mirror of https://github.com/hsoft/collapseos.git
15 lines
431 B
Plaintext
15 lines
431 B
Plaintext
CODE 2DROP SP 4 ADDxi, ;CODE
|
|
CODE 2DUP
|
|
AX POPx, BX POPx,
|
|
BX PUSHx, AX PUSHx, BX PUSHx, AX PUSHx,
|
|
;CODE
|
|
CODE S0 AX PS_ADDR MOVxI, AX PUSHx, ;CODE
|
|
CODE 'S SP PUSHx, ;CODE
|
|
CODE AND AX POPx, BX POPx, AX BX ANDxx, AX PUSHx, ;CODE
|
|
CODE OR AX POPx, BX POPx, AX BX ORxx, AX PUSHx, ;CODE
|
|
CODE XOR AX POPx, BX POPx, AX BX XORxx, AX PUSHx, ;CODE
|
|
CODE NOT
|
|
AX POPx, AX AX ORxx,
|
|
IFNZ, AX -1 MOVxI, THEN, AX INCx, AX PUSHx,
|
|
;CODE
|