mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-20 10:58:26 +10:00
16 lines
295 B
Plaintext
16 lines
295 B
Plaintext
CODE PICK EXX, ( protect BC )
|
|
HL POP,
|
|
( x2 )
|
|
L SLA, H RL,
|
|
SP ADDHLd,
|
|
C (HL) LDrr,
|
|
HL INCd,
|
|
B (HL) LDrr,
|
|
( check PS range before returning )
|
|
EXDEHL,
|
|
HL PS_ADDR LDdi,
|
|
DE SUBHLd,
|
|
IFC, EXX, lbluflw @ JP, THEN,
|
|
BC PUSH,
|
|
EXX, ( unprotect BC ) ;CODE
|