collapseos/blk/451

mirror of https://github.com/hsoft/collapseos.git synced 2024-07-24 07:00:19 +10:00
( native words )
CODE EXECUTE 1 chkPS,
    DI POPx, JMPn, lblexec @ RPCn,
CODE EXIT
    DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )
;CODE
Extract (n) code from stable ABI 2020-07-06 04:13:01 +10:00			`( native words )`
			`CODE EXECUTE 1 chkPS,`
			`DI POPx, JMPn, lblexec @ RPCn,`
			`CODE EXIT`
			`DX [BP] 0 MOVx[]+, BP DECx, BP DECx, ( popRS )`
			`;CODE`