61 lines
2.9 KiB
Plaintext
61 lines
2.9 KiB
Plaintext
|
||
{*******************************************************}
|
||
{ }
|
||
{ Turbo Pascal Runtime Library Version 5.0 }
|
||
{ System Unit }
|
||
{ }
|
||
{ Copyright (C) 1987,88 Borland International }
|
||
{ }
|
||
{*******************************************************}
|
||
|
||
unit System;
|
||
|
||
interface
|
||
|
||
const
|
||
OvrCodeList: Word = 0; { Overlay code segment list }
|
||
OvrHeapSize: Word = 0; { Initial overlay buffer size }
|
||
OvrDebugPtr: Pointer = nil; { Overlay debugger hook }
|
||
OvrHeapOrg: Word = 0; { Overlay buffer origin }
|
||
OvrHeapPtr: Word = 0; { Overlay buffer pointer }
|
||
OvrHeapEnd: Word = 0; { Overlay buffer end }
|
||
OvrLoadList: Word = 0; { Loaded overlays list }
|
||
OvrDosHandle: Word = 0; { Overlay DOS handle }
|
||
OvrEmsHandle: Word = 0; { Overlay EMS handle }
|
||
HeapOrg: Pointer = nil; { Heap origin }
|
||
HeapPtr: Pointer = nil; { Heap pointer }
|
||
FreePtr: Pointer = nil; { Free list pointer }
|
||
FreeMin: Word = 0; { Minimum free list size }
|
||
HeapError: Pointer = nil; { Heap error function }
|
||
ExitProc: Pointer = nil; { Exit procedure }
|
||
ExitCode: Integer = 0; { Exit code }
|
||
ErrorAddr: Pointer = nil; { Runtime error address }
|
||
PrefixSeg: Word = 0; { Program segment prefix }
|
||
StackLimit: Word = 0; { Stack pointer low limit }
|
||
InOutRes: Integer = 0; { I/O result buffer }
|
||
RandSeed: Longint = 0; { Random seed }
|
||
FileMode: Byte = 2; { File open mode }
|
||
Test8087: Byte = 0; { 8087 test result }
|
||
|
||
var
|
||
Input: Text; { Input standard file }
|
||
Output: Text; { Output standard file }
|
||
SaveInt00: Pointer; { Saved interrupt $00 }
|
||
SaveInt02: Pointer; { Saved interrupt $02 }
|
||
SaveInt1B: Pointer; { Saved interrupt $1B }
|
||
SaveInt23: Pointer; { Saved interrupt $23 }
|
||
SaveInt24: Pointer; { Saved interrupt $24 }
|
||
SaveInt34: Pointer; { Saved interrupt $34 }
|
||
SaveInt35: Pointer; { Saved interrupt $35 }
|
||
SaveInt36: Pointer; { Saved interrupt $36 }
|
||
SaveInt37: Pointer; { Saved interrupt $37 }
|
||
SaveInt38: Pointer; { Saved interrupt $38 }
|
||
SaveInt39: Pointer; { Saved interrupt $39 }
|
||
SaveInt3A: Pointer; { Saved interrupt $3A }
|
||
SaveInt3B: Pointer; { Saved interrupt $3B }
|
||
SaveInt3C: Pointer; { Saved interrupt $3C }
|
||
SaveInt3D: Pointer; { Saved interrupt $3D }
|
||
SaveInt3E: Pointer; { Saved interrupt $3E }
|
||
SaveInt3F: Pointer; { Saved interrupt $3F }
|
||
SaveInt75: Pointer; { Saved interrupt $75 }
|
||
|