mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 02:31:01 +11:00
2d9a07d215
This was becoming heavy to manage.
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,
|
|
;
|