collapseos/blk/812

( native words )
CODE EXECUTE 1 chkPS,
    DI POPx, JMPn, lblexec @ RPCn,
CODE EXIT
PC 0x0f - ORG @ 0x0d + ! ( stable abi )
    DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
;CODE
CODE (s) ( string literal, see B287 )
PC 0x2f - ORG @ 0x2d + ! ( stable abi )
    DI DX MOVxx, ( IP )
    AH AH XORrr, AL [DI] MOVr[], ( slen )
    DX PUSHx, DX INCx, DX AX ADDxx,
;CODE
Extract (s) code from stable ABI zone Only its jump addr remains. 2020-07-05 22:54:22 +10:00			`( native words )`
			`CODE EXECUTE 1 chkPS,`
			`DI POPx, JMPn, lblexec @ RPCn,`
Extract EXIT code from stable ABI zone 2020-07-06 03:41:12 +10:00			`CODE EXIT`
			`PC 0x0f - ORG @ 0x0d + ! ( stable abi )`
			`DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )`
			`;CODE`
Extract (s) code from stable ABI zone Only its jump addr remains. 2020-07-05 22:54:22 +10:00			`CODE (s) ( string literal, see B287 )`
			`PC 0x2f - ORG @ 0x2d + ! ( stable abi )`
			`DI DX MOVxx, ( IP )`
			`AH AH XORrr, AL [DI] MOVr[], ( slen )`
			`DX PUSHx, DX INCx, DX AX ADDxx,`
			`;CODE`