collapseos/blk/822

( native words )
CODE EXECUTE
    DI POPx, JMPn, lblexec @ RPCn,
CODE >R
    BP INCx, BP INCx, [BP] 0 POP[w]+,
;CODE NOP, NOP, NOP,
CODE R>
    [BP] 0 PUSH[w]+, BP DECx, BP DECx,
;CODE
CODE 2R>
    [BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,
;CODE
CODE ROT ( a b c -- b c a )
    CX POPx, BX POPx, AX POPx,
    BX PUSHx, CX PUSHx, AX PUSHx,
;CODE
pcat: implement does 2020-06-22 00:40:09 +10:00			`( native words )`
			`CODE EXECUTE`
			`DI POPx, JMPn, lblexec @ RPCn,`
			`CODE >R`
			`BP INCx, BP INCx, [BP] 0 POP[w]+,`
			`;CODE NOP, NOP, NOP,`
			`CODE R>`
			`[BP] 0 PUSH[w]+, BP DECx, BP DECx,`
pcat: more native words 2020-06-19 13:10:14 +10:00			`;CODE`
pcat: implement does 2020-06-22 00:40:09 +10:00			`CODE 2R>`
			`[BP] -2 PUSH[w]+, [BP] 0 PUSH[w]+, BP 4 SUBxi,`
			`;CODE`
			`CODE ROT ( a b c -- b c a )`
			`CX POPx, BX POPx, AX POPx,`
			`BX PUSHx, CX PUSHx, AX PUSHx,`
pcat: more native words 2020-06-19 13:10:14 +10:00			`;CODE`