mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 22:40:56 +11:00
17 lines
195 B
Plaintext
17 lines
195 B
Plaintext
|
( dd nn -- )
|
||
|
|
: LDdd(nn),
|
||
|
|
0xed A,
|
||
|
|
SWAP <<4 0x4b OR A,
|
||
|
|
A,,
|
||
|
|
;
|
||
|
|
|
||
|
|
( nn dd -- )
|
||
|
|
: LD(nn)dd,
|
||
|
|
0xed A,
|
||
|
|
<<4 0x43 OR A,
|
||
|
|
A,,
|
||
|
|
;
|
||
|
|
|
||
|
|
: JP(IX), IX DROP JP(HL), ;
|
||
|
|
: JP(IY), IY DROP JP(HL), ;
|