mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 03:30:55 +11:00
cd514e6cd6
Also, fix (roll) which wasn't properly implemented.
16 lines
411 B
Plaintext
16 lines
411 B
Plaintext
CODE XOR 2 chkPS,
|
|
AX POPx, BX POPx, AX BX XORxx, AX PUSHx, ;CODE
|
|
CODE NOT 1 chkPS,
|
|
AX POPx, AX AX ORxx,
|
|
IFNZ, AX -1 MOVxI, THEN, AX INCx, AX PUSHx,
|
|
;CODE
|
|
CODE + 2 chkPS,
|
|
AX POPx, BX POPx, AX BX ADDxx, AX PUSHx, ;CODE
|
|
CODE - 2 chkPS,
|
|
BX POPx, AX POPx, AX BX SUBxx, AX PUSHx, ;CODE
|
|
CODE * 2 chkPS,
|
|
AX POPx, BX POPx,
|
|
DX PUSHx, ( protect from MUL ) BX MULx, DX POPx,
|
|
AX PUSHx,
|
|
;CODE
|