61 lines
2.9 KiB
Plaintext
61 lines
2.9 KiB
Plaintext
|
|
|||
|
|
{*******************************************************}
|
|||
|
|
{ }
|
|||
|
|
{ Turbo Pascal Runtime Library Version 5.5 }
|
|||
|
|
{ System Unit }
|
|||
|
|
{ }
|
|||
|
|
{ Copyright (C) 1987, 1989 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 }
|
|||
|
|
|