Mirror of CollapseOS
Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

16 rindas
542B

  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 stacks within bounds? )
  6. ( PS ) HL PS_ADDR LDdn,
  7. SP SUBHLd,
  8. JRC, lblofl BWR ( abortUnderflow-B285 )
  9. ( RS ) IX PUSH, HL POP,
  10. DE RS_ADDR LDdn,
  11. DE SUBHLd,
  12. JRC, lblofl BWR ( IX < RS_ADDR? abortUnderflow-B285 )
  13. LDA(BC), E A LDrr, BC INCd,
  14. LDA(BC), D A LDrr, BC INCd,
  15. ( continue to execute )