mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 12:38:44 +10:00
14 lines
214 B
Plaintext
14 lines
214 B
Plaintext
|
( ixy+- HL rd )
|
||
|
: LDIXYr,
|
||
|
( dd/fd has already been spit )
|
||
|
LDrr, ( ixy+- )
|
||
|
A,
|
||
|
;
|
||
|
|
||
|
( rd ixy+- HL )
|
||
|
: LDrIXY,
|
||
|
ROT ( ixy+- HL rd )
|
||
|
SWAP ( ixy+- rd HL )
|
||
|
LDIXYr,
|
||
|
;
|