home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 13.ddi / RTLOVR.ZIP / OVERLAY.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1992-10-28  |  1.6 KB  |  70 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Runtime Library                    }
  5. {       Overlay Interface Unit                          }
  6. {                                                       }
  7. {       Copyright (C) 1988,92 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Overlay;
  12.  
  13. {$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. implementation
  48.  
  49. {$L OVERLAY.OBJ}
  50. {$L OVEREMS.OBJ}
  51.  
  52. const
  53.   OvrRetrySize: Word = 0;
  54.   OvrFileBase: Longint = 0;
  55.  
  56. procedure OvrInit(FileName: String); external;
  57. procedure OvrInitEMS; external;
  58. procedure OvrSetBuf(Size: LongInt); external;
  59. function  OvrGetBuf: LongInt; external;
  60. procedure OvrSetRetry(Size: LongInt); external;
  61. function  OvrGetRetry: LongInt; external;
  62. procedure OvrClearBuf; external;
  63.  
  64. procedure OverlayHalt;
  65. begin
  66.   RunError(209);
  67. end;
  68.  
  69. end.
  70.