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.

11 lines
332B

  1. lblnext BSET PC 0x1d - ORG @ 0x1b + ! ( next )
  2. ( ovfl check )
  3. BP SP CMPxx,
  4. IFNC, ( BP >= SP )
  5. SP PS_ADDR MOVxI, BP RS_ADDR MOVxI,
  6. DI 0x13 ( oflw ) MOVxm, JMPs, L1 FWRs ( execute )
  7. THEN,
  8. DI DX MOVxx, ( <-- IP ) DX INCx, DX INCx,
  9. DI [DI] MOVx[], ( wordref )
  10. ( continue to execute ) L1 FSET