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.

12 lines
349B

  1. ( TODO: move these words with other native words. )
  2. H@ 4 + XCURRENT ! ( make next CODE have 0 prev field )
  3. CODE (br) L1 BSET ( used in ?br )
  4. DI DX MOVxx, AL [DI] MOVr[], AH AH XORrr, CBW,
  5. DX AX ADDxx,
  6. ;CODE
  7. CODE (?br)
  8. AX POPx, AX AX ORxx, JZ, L1 @ RPCs, ( False, branch )
  9. ( True, skip next byte and don't branch )
  10. DX INCx,
  11. ;CODE