mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 23:30:54 +11:00
11 lines
261 B
Plaintext
11 lines
261 B
Plaintext
( native words )
|
|
CODE EXECUTE 1 chkPS,
|
|
DI POPx, JMPn, lblexec @ RPCn,
|
|
|
|
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
|