9 lines
182 B
Plaintext
9 lines
182 B
Plaintext
( 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
|
|
|