izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/812

14 lines
367 B
Plaintext
Raw Normal View History

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