|
|
@@ -1,12 +1,12 @@ |
|
|
|
CODE ROT ( a b c -- b c a ) 3 chkPS, |
|
|
|
CX POPx, BX POPx, AX POPx, |
|
|
|
BX PUSHx, CX PUSHx, AX PUSHx, |
|
|
|
;CODE |
|
|
|
BX PUSHx, CX PUSHx, AX PUSHx, ;CODE |
|
|
|
CODE ROT> ( a b c -- c a b ) 3 chkPS, |
|
|
|
CX POPx, BX POPx, AX POPx, |
|
|
|
CX PUSHx, AX PUSHx, BX PUSHx, ;CODE |
|
|
|
CODE DUP 1 chkPS, AX POPx, AX PUSHx, AX PUSHx, ;CODE |
|
|
|
CODE ?DUP 1 chkPS, AX POPx, AX AX ORxx, AX PUSHx, |
|
|
|
IFNZ, AX PUSHx, THEN, ;CODE |
|
|
|
CODE DROP 1 chkPS, AX POPx, ;CODE |
|
|
|
CODE SWAP AX POPx, BX POPx, AX PUSHx, BX PUSHx, ;CODE |
|
|
|
CODE OVER ( a b -- a b a ) 2 chkPS, |
|
|
|
DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx, ;CODE |
|
|
|
CODE PICK |
|
|
|