mirror of https://github.com/hsoft/collapseos.git
17 lines
595 B
Plaintext
17 lines
595 B
Plaintext
CODE /MOD 2 chkPS,
|
|
BX POPx, AX POPx, DX PUSHx, ( protect )
|
|
DX DX XORxx, BX DIVx,
|
|
BX DX MOVxx, DX POPx, ( unprotect )
|
|
BX PUSHx, ( modulo ) AX PUSHx, ( division )
|
|
;CODE
|
|
CODE ! 2 chkPS, DI POPx, AX POPx, [DI] AX MOV[]x, ;CODE
|
|
CODE @ 1 chkPS, DI POPx, AX [DI] MOVx[], AX PUSHx, ;CODE
|
|
CODE C! 2 chkPS, DI POPx, AX POPx, [DI] AX MOV[]r, ;CODE
|
|
CODE C@ 1 chkPS,
|
|
DI POPx, AH AH XORrr, AL [DI] MOVr[], AX PUSHx, ;CODE
|
|
CODE I [BP] 0 PUSH[w]+, ;CODE
|
|
CODE I' [BP] -2 PUSH[w]+, ;CODE
|
|
CODE J [BP] -4 PUSH[w]+, ;CODE
|
|
CODE (resSP) SP PS_ADDR MOVxI, ;CODE
|
|
CODE (resRS) BP RS_ADDR MOVxI, ;CODE
|