home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N5.ZIP / HEAP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-04  |  532 b   |  25 lines
  1. unit Heap;
  2.  
  3. interface
  4.  
  5. uses _Heap;
  6.  
  7. function FreeBlocks: word; 
  8. inline($A1 / _Heap.FreeBlocks);         {mov ax,[FreeBlocks]}
  9.  
  10. function MemAvail: LongInt; 
  11. inline($C4 / $06 / _Heap.MemAvail /     {les ax,[MemAvail]}      
  12.  $8C / $C2);                       {mov dx,es}
  13.  
  14. function MaxAvail: LongInt; 
  15. inline($C4 / $06 / _Heap.MaxAvail /     {les ax,[MaxAvail]}      
  16.  $8C / $C2);                       {mov dx,es}
  17.  
  18. {The other declarations ...}
  19.  
  20. implementation
  21.  
  22. {Heap code may read and write _Heap vars}
  23.  
  24. end.
  25.