2020-06-18 07:24:47 -04:00
|
|
|
lblnext BSET PC ORG @ 0x1b + ! ( next )
|
2020-04-22 21:19:12 -04: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. )
|
2020-08-08 08:08:05 -04:00
|
|
|
( Before we continue: are we overflowing? )
|
|
|
|
IX PUSH, EX(SP)HL, ( do EX to count the IX push in SP )
|
|
|
|
SP SUBHLd, HL POP,
|
|
|
|
IFNC, ( SP <= IX? overflow )
|
|
|
|
SP PS_ADDR LDdn, IX RS_ADDR LDdn,
|
2020-08-14 21:41:34 -04:00
|
|
|
DE BIN( @ 0x13 ( oflw ) + LDd(n),
|
2020-08-08 08:19:31 -04:00
|
|
|
JR, L2 FWR ( execute, B287 )
|
2020-08-08 08:08:05 -04:00
|
|
|
THEN,
|
2020-07-06 23:31:00 -04:00
|
|
|
LDA(BC), E A LDrr, BC INCd,
|
|
|
|
LDA(BC), D A LDrr, BC INCd,
|
2020-04-22 21:19:12 -04:00
|
|
|
( continue to execute )
|