1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 03:20:56 +11:00
collapseos/blk/310

16 lines
295 B
Plaintext
Raw Normal View History

CODE PICK EXX, ( protect BC )
HL POP,
2020-04-23 11:19:12 +10:00
( x2 )
L SLA, H RL,
SP ADDHLd,
2020-04-23 11:19:12 +10:00
C (HL) LDrr,
HL INCd,
2020-04-23 11:19:12 +10:00
B (HL) LDrr,
( check PS range before returning )
EXDEHL,
HL PS_ADDR LDdn,
DE SUBHLd,
IFC, EXX, lbluflw @ JP, THEN,
BC PUSH,
EXX, ( unprotect BC ) ;CODE