mirror of https://github.com/hsoft/collapseos.git
12 lines
325 B
Plaintext
12 lines
325 B
Plaintext
CODE (n) ( number literal )
|
|
PC 0x27 - ORG @ 0x25 + ! ( stable abi )
|
|
DI DX MOVxx, DI [DI] MOVx[], DI PUSHx,
|
|
DX INCx, DX INCx,
|
|
;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
|