home *** CD-ROM | disk | FTP | other *** search
-
- {*******************************************************}
- { }
- { Turbo Pascal Version 6.0 }
- { Turbo Vision Unit }
- { }
- { Copyright (c) 1990 Borland International }
- { }
- {*******************************************************}
-
- unit Memory;
-
- {$F+,O+,S-}
-
- interface
-
- const
- LowMemSize: Word = 4096 div 16;
- MaxBufMem: Word = 65536 div 16;
-
- procedure InitMemory;
- procedure DoneMemory;
- function LowMemory: Boolean;
- function MemAlloc(Size: Word): Pointer;
- function MemAllocSeg(Size: Word): Pointer;
- procedure GetBufMem(var P: Pointer; Size: Word);
- procedure FreeBufMem(P: Pointer);
- procedure SetMemTop(MemTop: Pointer);
-