home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1991
/
number5
/
extmem.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-09-16
|
727b
|
35 lines
program ExtMem;
{-Display the amount of extended memory in kilobytes}
uses Dos;
function GetListOfLists : Pointer;
{-Get pointer to the DOS List of Lists}
var
Regs : Registers;
begin
with Regs do begin
AH := $52;
MsDos(Regs);
GetListOfLists := Ptr(ES, BX);
end;
end;
function ExtMemInK : Word;
{-Return the amount of extended memory}
var
P : Pointer;
begin
P := GetListOfLists;
Inc(Word(P), $45); {extended mem in K at offset 45h}
ExtMemInK := Word(P^);
end;
begin
if Swap(DosVersion) < $0400 then begin
WriteLn('Requires DOS 4 or greater');
Halt;
end;
WriteLn(ExtMemInK, 'K extended memory');
end.