1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 04:28:06 +11:00
collapseos/blk/242

15 lines
207 B
Plaintext
Raw Normal View History

: LDdd(n), ( d n -- )
0xed A,
SWAP <<4 0x4b OR A,
A,,
;
: LD(n)d, ( n d -- )
0xed A,
<<4 0x43 OR A,
A,,
;
: RST, 0xc7 OR A, ;
: JP(IX), IX DROP JP(HL), ;
: JP(IY), IY DROP JP(HL), ;