47 lines
1.1 KiB
Plaintext
47 lines
1.1 KiB
Plaintext
|
||
{*******************************************************}
|
||
{ }
|
||
{ Turbo Pascal Version 6.0 }
|
||
{ Overlay Interface Unit }
|
||
{ }
|
||
{ Copyright (C) 1987, 1990 Borland International }
|
||
{ }
|
||
{*******************************************************}
|
||
|
||
unit Overlay;
|
||
|
||
{$D-,I-,S-}
|
||
|
||
interface
|
||
|
||
const
|
||
ovrOk = 0;
|
||
ovrError = -1;
|
||
ovrNotFound = -2;
|
||
ovrNoMemory = -3;
|
||
ovrIOError = -4;
|
||
ovrNoEMSDriver = -5;
|
||
ovrNoEMSMemory = -6;
|
||
|
||
const
|
||
OvrResult: Integer = 0;
|
||
OvrTrapCount: Word = 0;
|
||
OvrLoadCount: Word = 0;
|
||
OvrFileMode: Byte = 0;
|
||
|
||
type
|
||
OvrReadFunc = function(OvrSeg: Word): Integer;
|
||
|
||
var
|
||
OvrReadBuf: OvrReadFunc;
|
||
|
||
procedure OvrInit(FileName: String);
|
||
procedure OvrInitEMS;
|
||
procedure OvrSetBuf(Size: LongInt);
|
||
function OvrGetBuf: LongInt;
|
||
procedure OvrSetRetry(Size: LongInt);
|
||
function OvrGetRetry: LongInt;
|
||
procedure OvrClearBuf;
|
||
|
||
implementation
|
||
|