home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / T-Pascal.70 / INTRFACE.ZIP / OVERLAY.INT < prev    next >
Encoding:
Text File  |  1992-10-30  |  1.1 KB  |  48 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Version 7.0                        }
  5. {       Overlay Interface Unit                          }
  6. {                                                       }
  7. {       Copyright (C) 1988,92 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.   OvrEmsPages: Word = 0;
  29.   OvrTrapCount: Word = 0;
  30.   OvrLoadCount: Word = 0;
  31.   OvrFileMode: Byte = 0;
  32.  
  33. type
  34.   OvrReadFunc = function(OvrSeg: Word): Integer;
  35.  
  36. var
  37.   OvrReadBuf: OvrReadFunc;
  38.  
  39. procedure OvrInit(FileName: String);
  40. procedure OvrInitEMS;
  41. procedure OvrSetBuf(Size: LongInt);
  42. function  OvrGetBuf: LongInt;
  43. procedure OvrSetRetry(Size: LongInt);
  44. function  OvrGetRetry: LongInt;
  45. procedure OvrClearBuf;
  46.  
  47.  
  48.