mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-30 19:58:05 +11: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,
|
||
|
|
;
|