collapseos/blk/817

( compiled )
    BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )
    DX DI MOVxx, DX INCx, DX INCx, ( --> IP )
    DI [DI] MOVx[],
    JMPs, lblexec @ RPCs,

lblchkPS BSET ( CX -> expected size )
    AX PS_ADDR MOVxI, AX SP SUBxx, 2 SUBAXI, ( CALL adjust )
    AX CX SUBxx,
    IFNC, ( we're good ) RETn, THEN,
    ( underflow ) DI 0x06 MOVxm, JMPs, lblexec @ RPCs,
pcat: implement does 2020-06-22 00:40:09 +10:00			`( compiled )`
			`BP INCx, BP INCx, [BP] 0 DX MOV[]+x, ( pushRS )`
			`DX DI MOVxx, DX INCx, DX INCx, ( --> IP )`
			`DI [DI] MOVx[],`
			`JMPs, lblexec @ RPCs,`
pcat: add PSP checks in all native words Also, fix (roll) which wasn't properly implemented. 2020-06-22 04:07:02 +10:00
			`lblchkPS BSET ( CX -> expected size )`
			`AX PS_ADDR MOVxI, AX SP SUBxx, 2 SUBAXI, ( CALL adjust )`
			`AX CX SUBxx,`
			`IFNC, ( we're good ) RETn, THEN,`
			`( underflow ) DI 0x06 MOVxm, JMPs, lblexec @ RPCs,`