1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:18:08 +11:00
collapseos/blk/300

17 lines
540 B
Plaintext
Raw Normal View History

lblnext BSET PC ORG @ 0x1b + ! ( next )
2020-04-23 11:19:12 +10:00
( This routine is jumped to at the end of every word. In it,
we jump to current IP, but we also take care of increasing
it by 2 before jumping. )
( Before we continue: are stacks within bounds? )
( PS ) HL PS_ADDR LDdn,
SP SUBHLd,
JRC, lblofl BWR ( abortUnderflow-B298 )
( RS ) IX PUSH, HL POP,
DE RS_ADDR LDdn,
DE SUBHLd,
JRC, lblofl BWR ( IX < RS_ADDR? abortUnderflow-B298 )
2020-04-23 11:19:12 +10:00
E 0 IY+ LDrIXY,
D 1 IY+ LDrIXY,
IY INCd, IY INCd,
2020-04-23 11:19:12 +10:00
( continue to execute )