home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 2.ddi / INTRFACE.ZIP / OVERLAY.INT < prev    next >
Encoding:
Text File  |  1990-10-23  |  1.1 KB  |  47 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 6.0                        }
  5. {       Overlay Interface Unit                          }
  6. {                                                       }
  7. {       Copyright (C) 1987, 1990 Borland International  }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Overlay;
  12.  
  13. {$D-,I-,S-}
  14.  
  15. interface
  16.  
  17. const
  18.   ovrOk = 0;
  19.   ovrError = -1;
  20.   ovrNotFound = -2;
  21.   ovrNoMemory = -3;
  22.   ovrIOError = -4;
  23.   ovrNoEMSDriver = -5;
  24.   ovrNoEMSMemory = -6;
  25.  
  26. const
  27.   OvrResult: Integer = 0;
  28.   OvrTrapCount: Word = 0;
  29.   OvrLoadCount: Word = 0;
  30.   OvrFileMode: Byte = 0;
  31.  
  32. type
  33.   OvrReadFunc = function(OvrSeg: Word): Integer;
  34.  
  35. var
  36.   OvrReadBuf: OvrReadFunc;
  37.  
  38. procedure OvrInit(FileName: String);
  39. procedure OvrInitEMS;
  40. procedure OvrSetBuf(Size: LongInt);
  41. function  OvrGetBuf: LongInt;
  42. procedure OvrSetRetry(Size: LongInt);
  43. function  OvrGetRetry: LongInt;
  44. procedure OvrClearBuf;
  45.  
  46. implementation
  47.