1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:38:05 +11:00
collapseos/blk/329

16 lines
219 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
CODE CMP
HL POP,
DE POP,
2020-04-23 11:19:12 +10:00
chkPS,
DE SUBHLd,
BC 0 LDdn,
2020-04-23 11:19:12 +10:00
IFNZ, ( < or > )
BC INCd,
2020-04-23 11:19:12 +10:00
IFNC, ( < )
BC DECd,
BC DECd,
2020-04-23 11:19:12 +10:00
THEN,
THEN,
BC PUSH,
2020-04-23 11:19:12 +10:00
;CODE