1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 02:58:06 +11:00
collapseos/blk/310

16 lines
281 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
CODE PICK
HL POPqq,
( x2 )
L SLAr, H RLr,
SP ADDHLss,
C (HL) LDrr,
HL INCss,
B (HL) LDrr,
( check PS range before returning )
EXDEHL,
HL PS_ADDR LDddnn,
2020-04-23 11:19:12 +10:00
DE SUBHLss,
CC lblofl @ JPccnn, ( abortUnderflow-B298 )
2020-04-23 11:19:12 +10:00
BC PUSHqq,
;CODE