29 lines
884 B
Plaintext
29 lines
884 B
Plaintext
|
|
{*******************************************************}
|
|
{ }
|
|
{ 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);
|