1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-30 20:48:06 +11:00
collapseos/blk/286

16 lines
574 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 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,
2020-04-23 11:19:12 +10:00
( continue to execute )