1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 07:18:06 +11:00
collapseos/blk/319
2020-08-15 08:11:48 -04:00

17 lines
334 B
Plaintext

CODE * EXX, ( protect BC )
( DE * BC -> DE (high) and HL (low) )
DE POP, BC POP, chkPS,
HL 0 LDdi,
A 0x10 LDri,
BEGIN,
HL ADDHLd,
E RL, D RL,
IFC,
BC ADDHLd,
IFC, DE INCd, THEN,
THEN,
A DECr,
JRNZ, AGAIN,
HL PUSH,
EXX, ( unprotect BC ) ;CODE