Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

16 lines
574B

  1. lblnext BSET PC ORG @ 0x1b + ! ( next )
  2. ( This routine is jumped to at the end of every word. In it,
  3. we jump to current IP, but we also take care of increasing
  4. it by 2 before jumping. )
  5. ( Before we continue: are we overflowing? )
  6. IX PUSH, EX(SP)HL, ( do EX to count the IX push in SP )
  7. SP SUBHLd, HL POP,
  8. IFNC, ( SP <= IX? overflow )
  9. SP PS_ADDR LDdi, IX RS_ADDR LDdi,
  10. DE BIN( @ 0x13 ( oflw ) + LDd(i),
  11. JR, L2 FWR ( execute, B287 )
  12. THEN,
  13. LDA(BC), E A LDrr, BC INCd,
  14. LDA(BC), D A LDrr, BC INCd,
  15. ( continue to execute )