collapseos/blk/821

17 lines
516 B
Plaintext
Raw Normal View History

2020-06-18 19:06:53 -04:00
CODE DUP AX POPx, AX PUSHx, AX PUSHx, ;CODE
2020-06-20 07:34:46 -04:00
CODE ?DUP AX POPx, AX AX ORxx, AX PUSHx,
IFNZ, AX PUSHx, THEN, ;CODE
2020-06-18 19:06:53 -04:00
CODE DROP AX POPx, ;CODE
CODE SWAP AX POPx, BX POPx, AX PUSHx, BX PUSHx, ;CODE
CODE OVER ( a b -- a b a )
2020-06-20 07:34:46 -04:00
DI SP MOVxx, AX [DI] 2 MOVx[]+, AX PUSHx, ;CODE
2020-06-18 21:21:46 -04:00
CODE PICK
DI POPx, DI SHLx1, ( x2 )
DI SP ADDxx, DI [DI] MOVx[], DI PUSHx,
;CODE
CODE (roll) ( "2 3 4 5 4 --> 2 4 5 5". See B311 )
CX POPx, SI SP MOVxx, SI CX ADDxx,
DI SI MOVxx, SI DECx, SI DECx,
STD, REPZ, MOVSB,
;CODE