rm_unknown = 0; { unknown }
rm_raw = 1; { raw (without HIMEM) }
rm_xms = 2; { XMS (for example with HIMEM, without EMM386) }
rm_vcpi = 3; { VCPI (for example HIMEM and EMM386) }
rm_dpmi = 4; { DPMI (for example \dos box or 386Max) }
|
const carryflag = $001; parityflag = $004; auxcarryflag = $010; zeroflag = $040; signflag = $080; trapflag = $100; interruptflag = $200; directionflag = $400; overflowflag = $800; |
type tmeminfo = record available_memory : Longint; available_pages : Longint; available_lockable_pages : Longint; linear_space : Longint; unlocked_pages : Longint; available_physical_pages : Longint; total_physical_pages : Longint; free_linear_space : Longint; max_pages_in_paging_file : Longint; reserved : array[0..2] of Longint; end; |
|
type
trealregs = record
case Integer of
1: { 32-bit }
(EDI, ESI, EBP, Res, EBX, EDX, ECX, EAX: Longint;
Flags, ES, DS, FS, GS, IP, CS, SP, SS: Word);
2: { 16-bit }
(DI, DI2, SI, SI2, BP, BP2, R1, R2: Word;
BX, BX2, DX, DX2, CX, CX2, AX, AX2: Word);
3: { 8-bit }
(stuff: array[1..4] of Longint;
BL, BH, BL2, BH2, DL, DH, DL2, DH2, CL,
CH, CL2, CH2, AL, AH, AL2, AH2: Byte);
4: { Compat }
(RealEDI, RealESI, RealEBP, RealRES, RealEBX,
RealEDX, RealECX, RealEAX: Longint;
RealFlags, RealES, RealDS, RealFS, RealGS,
RealIP, RealCS, RealSP, RealSS: Word);
end;
registers = trealregs;
|
type tseginfo = record offset : Pointer; segment : Word; end; |
var dosmemselector : Word; |
var int31error : Word; |