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; |