mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-23 23:50:21 +10:00
15 lines
206 B
Plaintext
15 lines
206 B
Plaintext
: LDd(i), ( d i -- )
|
|
0xed A,
|
|
SWAP <<4 0x4b OR A,
|
|
A,,
|
|
;
|
|
: LD(i)d, ( i d -- )
|
|
0xed A,
|
|
<<4 0x43 OR A,
|
|
A,,
|
|
;
|
|
: RST, 0xc7 OR A, ;
|
|
|
|
: JP(IX), IX DROP JP(HL), ;
|
|
: JP(IY), IY DROP JP(HL), ;
|