home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tp55 / doc / system.doc < prev    next >
Encoding:
Text File  |  1989-05-02  |  2.9 KB  |  61 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Turbo Pascal Runtime Library Version 5.5        }
  5. {       System Unit                                     }
  6. {                                                       }
  7. {       Copyright (C) 1987, 1989 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.   FreePtr: Pointer = nil;       { Free list pointer }
  28.   FreeMin: Word = 0;            { Minimum free list size }
  29.   HeapError: Pointer = nil;     { Heap error function }
  30.   ExitProc: Pointer = nil;      { Exit procedure }
  31.   ExitCode: Integer = 0;        { Exit code }
  32.   ErrorAddr: Pointer = nil;     { Runtime error address }
  33.   PrefixSeg: Word = 0;          { Program segment prefix }
  34.   StackLimit: Word = 0;         { Stack pointer low limit }
  35.   InOutRes: Integer = 0;        { I/O result buffer }
  36.   RandSeed: Longint = 0;        { Random seed }
  37.   FileMode: Byte = 2;           { File open mode }
  38.   Test8087: Byte = 0;           { 8087 test result }
  39.  
  40. var
  41.   Input: Text;                  { Input standard file }
  42.   Output: Text;                 { Output standard file }
  43.   SaveInt00: Pointer;           { Saved interrupt $00 }
  44.   SaveInt02: Pointer;           { Saved interrupt $02 }
  45.   SaveInt1B: Pointer;           { Saved interrupt $1B }
  46.   SaveInt23: Pointer;           { Saved interrupt $23 }
  47.   SaveInt24: Pointer;           { Saved interrupt $24 }
  48.   SaveInt34: Pointer;           { Saved interrupt $34 }
  49.   SaveInt35: Pointer;           { Saved interrupt $35 }
  50.   SaveInt36: Pointer;           { Saved interrupt $36 }
  51.   SaveInt37: Pointer;           { Saved interrupt $37 }
  52.   SaveInt38: Pointer;           { Saved interrupt $38 }
  53.   SaveInt39: Pointer;           { Saved interrupt $39 }
  54.   SaveInt3A: Pointer;           { Saved interrupt $3A }
  55.   SaveInt3B: Pointer;           { Saved interrupt $3B }
  56.   SaveInt3C: Pointer;           { Saved interrupt $3C }
  57.   SaveInt3D: Pointer;           { Saved interrupt $3D }
  58.   SaveInt3E: Pointer;           { Saved interrupt $3E }
  59.   SaveInt3F: Pointer;           { Saved interrupt $3F }
  60.   SaveInt75: Pointer;           { Saved interrupt $75 }
  61.