9
if (int31error <> 0) then begin
10
Writeln('Error getting DPMI memory information... Halting');
11
Writeln('DPMI error number : ', int31error);
14
Writeln('Largest available free block : ',
15
available_memory div 1024, ' kbytes');
16
if (available_pages <> -1) then
17
Writeln('Maximum available unlocked pages : ',
19
if (available_lockable_pages <> -1) then
20
Writeln('Maximum lockable available pages : ',
21
available_lockable_pages);
22
if (linear_space <> -1) then
23
Writeln('Linear address space size : ',
24
linear_space*get_page_size div 1024, ' kbytes');
25
if (unlocked_pages <> -1) then
26
Writeln('Total number of unlocked pages : ',
28
if (available_physical_pages <> -1) then
29
Writeln('Total number of free pages : ',
30
available_physical_pages);
31
if (total_physical_pages <> -1) then
32
Writeln('Total number of physical pages : ',
33
total_physical_pages);
34
if (free_linear_space <> -1) then
35
Writeln('Free linear address space : ',
36
free_linear_space*get_page_size div 1024,
38
if (max_pages_in_paging_file <> -1) then
39
Writeln('Maximum size of paging file : ',
40
max_pages_in_paging_file*get_page_size div 1024,
b'\\ No newline at end of file'