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