2020-04-23 11:19:12 +10:00
|
|
|
PC ORG @ 0x1b + ! ( next )
|
|
|
|
|
( 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? )
|
2020-06-14 23:48:10 +10:00
|
|
|
( PS ) HL PS_ADDR LDddnn,
|
|
|
|
|
SP SUBHLss,
|
|
|
|
|
JRC, L2 BWR ( abortUnderflow-B298 )
|
|
|
|
|
( RS ) IX PUSHqq, HL POPqq,
|
2020-04-23 11:19:12 +10:00
|
|
|
DE RS_ADDR LDddnn,
|
|
|
|
|
DE SUBHLss,
|
|
|
|
|
JRC, L2 BWR ( IX < RS_ADDR? abortUnderflow-B298 )
|
|
|
|
|
E 0 IY+ LDrIXY,
|
|
|
|
|
D 1 IY+ LDrIXY,
|
2020-06-14 23:48:10 +10:00
|
|
|
IY INCss, IY INCss,
|
2020-04-23 11:19:12 +10:00
|
|
|
( continue to execute )
|
