collapseos/blk/817

lblexec BSET PC 0x36 - ORG @ 0x34 + ! ( DI -> wordref )
    AL [DI] MOVr[], DI INCx, ( PFA )
    AL AL ORrr, IFZ, DI JMPr, THEN, ( native )
    AL DECr, IFNZ, ( cell or does )
        DI PUSHx, ( push PFA )
        AL DECr, IFZ, ( cell ) JMPs, lblnext @ RPCs, THEN,
        ( does, see B302 )
        DI INCx, DI INCx, DI [DI] MOVx[],
    THEN, ( continue to compiled )
    ( 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 RSP checks in next 2020-06-22 05:14:38 +10:00			`lblexec BSET PC 0x36 - ORG @ 0x34 + ! ( DI -> wordref )`
			`AL [DI] MOVr[], DI INCx, ( PFA )`
			`AL AL ORrr, IFZ, DI JMPr, THEN, ( native )`
			`AL DECr, IFNZ, ( cell or does )`
			`DI PUSHx, ( push PFA )`
			`AL DECr, IFZ, ( cell ) JMPs, lblnext @ RPCs, THEN,`
			`( does, see B302 )`
			`DI INCx, DI INCx, DI [DI] MOVx[],`
			`THEN, ( continue to compiled )`
			`( compiled )`
pcat: implement does 2020-06-22 00:40:09 +10:00			`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