|
- lblnext BSET 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 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 LDdi, IX RS_ADDR LDdi,
- DE BIN( @ 0x13 ( oflw ) + LDd(i),
- JR, L2 FWR ( execute, B287 )
- THEN,
- LDA(BC), E A LDrr, BC INCd,
- LDA(BC), D A LDrr, BC INCd,
- ( continue to execute )
|