collapseos/blk/822

mirror of https://github.com/hsoft/collapseos.git synced 2024-12-27 04:48:06 +11:00
CODE 0 AX AX XORxx, AX PUSHx, ;CODE
CODE 1 AX 1 MOVxI, AX PUSHx, ;CODE
CODE I [BP] 0 PUSH[w]+, ;CODE
CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE
CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE
pcat: add PICK and (roll) 2020-06-19 11:21:46 +10:00			`CODE 0 AX AX XORxx, AX PUSHx, ;CODE`
			`CODE 1 AX 1 MOVxI, AX PUSHx, ;CODE`
			`CODE I [BP] 0 PUSH[w]+, ;CODE`
			`CODE 1+ DI SP MOVxx, [DI] INC[w], ;CODE`
			`CODE 1- DI SP MOVxx, [DI] DEC[w], ;CODE`