home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1990
/
number5
/
heap.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-10-04
|
532b
|
25 lines
unit Heap;
interface
uses _Heap;
function FreeBlocks: word;
inline($A1 / _Heap.FreeBlocks); {mov ax,[FreeBlocks]}
function MemAvail: LongInt;
inline($C4 / $06 / _Heap.MemAvail / {les ax,[MemAvail]}
$8C / $C2); {mov dx,es}
function MaxAvail: LongInt;
inline($C4 / $06 / _Heap.MaxAvail / {les ax,[MaxAvail]}
$8C / $C2); {mov dx,es}
{The other declarations ...}
implementation
{Heap code may read and write _Heap vars}
end.