collapseos/blk/823

13 lines
453 B
Plaintext
Raw Normal View History

CODE DUP 1 chkPS, AX POPx, AX PUSHx, AX PUSHx, ;CODE
CODE ?DUP 1 chkPS, AX POPx, AX AX ORxx, AX PUSHx,
2020-06-21 10:40:09 -04:00
IFNZ, AX PUSHx, THEN, ;CODE
CODE DROP 1 chkPS, AX POPx, ;CODE
2020-06-21 10:40:09 -04:00
CODE SWAP AX POPx, BX POPx, AX PUSHx, BX PUSHx, ;CODE
CODE OVER ( a b -- a b a ) 2 chkPS,
2020-06-21 10:40:09 -04:00
DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx, ;CODE
CODE PICK
DI POPx, DI SHLx1, ( x2 )
CX DI MOVxx, CX 2 ADDxi, CALLn, lblchkPS @ RPCn,
2020-06-21 10:40:09 -04:00
DI SP ADDxx, DI [DI] MOVx[], DI PUSHx,
2020-06-18 23:10:14 -04:00
;CODE