1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-16 22:48:05 +11:00
collapseos/blk/319

17 lines
334 B
Plaintext
Raw Normal View History

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