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