home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 2.ddi / INTRFACE.ZIP / SYSTEM.INT < prev    next >
Encoding:
Text File  |  1990-10-23  |  3.0 KB  |  65 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Runtime Library Version 6.0        }
  5. {       System Unit                                     }
  6. {                                                       }
  7. {       Copyright (C) 1988,90 Borland International     }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit System;
  12.  
  13. interface
  14.  
  15. const
  16.   OvrCodeList: Word = 0;        { Overlay code segment list }
  17.   OvrHeapSize: Word = 0;        { Initial overlay buffer size }
  18.   OvrDebugPtr: Pointer = nil;   { Overlay debugger hook }
  19.   OvrHeapOrg: Word = 0;         { Overlay buffer origin }
  20.   OvrHeapPtr: Word = 0;         { Overlay buffer pointer }
  21.   OvrHeapEnd: Word = 0;         { Overlay buffer end }
  22.   OvrLoadList: Word = 0;        { Loaded overlays list }
  23.   OvrDosHandle: Word = 0;       { Overlay DOS handle }
  24.   OvrEmsHandle: Word = 0;       { Overlay EMS handle }
  25.   HeapOrg: Pointer = nil;       { Heap origin }
  26.   HeapPtr: Pointer = nil;       { Heap pointer }
  27.   HeapEnd: Pointer = nil;       { Heap end }
  28.   FreeList: Pointer = nil;      { Free list pointer }
  29.   FreeZero: Pointer = nil;      { Must be zero }
  30.   HeapError: Pointer = nil;     { Heap error function }
  31.   ExitProc: Pointer = nil;      { Exit procedure }
  32.   ExitCode: Integer = 0;        { Exit code }
  33.   ErrorAddr: Pointer = nil;     { Runtime error address }
  34.   PrefixSeg: Word = 0;          { Program segment prefix }
  35.   StackLimit: Word = 0;         { Stack pointer low limit }
  36.   InOutRes: Integer = 0;        { I/O result buffer }
  37.   RandSeed: Longint = 0;        { Random seed }
  38.   FileMode: Byte = 2;           { File open mode }
  39.   Test8087: Byte = 0;           { 8087 test result }
  40.  
  41. var
  42.   Input: Text;                  { Input standard file }
  43.   Output: Text;                 { Output standard file }
  44.   SaveInt00: Pointer;           { Saved interrupt $00 }
  45.   SaveInt02: Pointer;           { Saved interrupt $02 }
  46.   SaveInt1B: Pointer;           { Saved interrupt $1B }
  47.   SaveInt21: Pointer;           { Saved interrupt $21 }
  48.   SaveInt23: Pointer;           { Saved interrupt $23 }
  49.   SaveInt24: Pointer;           { Saved interrupt $24 }
  50.   SaveInt34: Pointer;           { Saved interrupt $34 }
  51.   SaveInt35: Pointer;           { Saved interrupt $35 }
  52.   SaveInt36: Pointer;           { Saved interrupt $36 }
  53.   SaveInt37: Pointer;           { Saved interrupt $37 }
  54.   SaveInt38: Pointer;           { Saved interrupt $38 }
  55.   SaveInt39: Pointer;           { Saved interrupt $39 }
  56.   SaveInt3A: Pointer;           { Saved interrupt $3A }
  57.   SaveInt3B: Pointer;           { Saved interrupt $3B }
  58.   SaveInt3C: Pointer;           { Saved interrupt $3C }
  59.   SaveInt3D: Pointer;           { Saved interrupt $3D }
  60.   SaveInt3E: Pointer;           { Saved interrupt $3E }
  61.   SaveInt3F: Pointer;           { Saved interrupt $3F }
  62.   SaveInt75: Pointer;           { Saved interrupt $75 }
  63.  
  64. implementation
  65.