mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:38:06 +11:00
14 lines
367 B
Plaintext
14 lines
367 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
|
|
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
|