1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 17:18:06 +11:00
collapseos/blk/242
Virgil Dupras 2d9a07d215 blkunpack: don't include trailing empty lines
This was becoming heavy to manage.
2020-06-23 06:52:34 -04:00

15 lines
215 B
Plaintext

: LDdd(nn), ( dd nn -- )
0xed A,
SWAP <<4 0x4b OR A,
A,,
;
: LD(nn)dd, ( nn dd -- )
0xed A,
<<4 0x43 OR A,
A,,
;
: RSTn, 0xc7 OR A, ;
: JP(IX), IX DROP JP(HL), ;
: JP(IY), IY DROP JP(HL), ;