Mirror of CollapseOS
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.

17 lines
595B

  1. CODE /MOD 2 chkPS,
  2. BX POPx, AX POPx, DX PUSHx, ( protect )
  3. DX DX XORxx, BX DIVx,
  4. BX DX MOVxx, DX POPx, ( unprotect )
  5. BX PUSHx, ( modulo ) AX PUSHx, ( division )
  6. ;CODE
  7. CODE ! 2 chkPS, DI POPx, AX POPx, [DI] AX MOV[]x, ;CODE
  8. CODE @ 1 chkPS, DI POPx, AX [DI] MOVx[], AX PUSHx, ;CODE
  9. CODE C! 2 chkPS, DI POPx, AX POPx, [DI] AX MOV[]r, ;CODE
  10. CODE C@ 1 chkPS,
  11. DI POPx, AH AH XORrr, AL [DI] MOVr[], AX PUSHx, ;CODE
  12. CODE I [BP] 0 PUSH[w]+, ;CODE
  13. CODE I' [BP] -2 PUSH[w]+, ;CODE
  14. CODE J [BP] -4 PUSH[w]+, ;CODE
  15. CODE (resSP) SP PS_ADDR MOVxI, ;CODE
  16. CODE (resRS) BP RS_ADDR MOVxI, ;CODE