TinyRTL v.1.0 (TP7.0)
Submitted By:
Unknown
Rating:
(Not rated) (
Rate It)
{*******************************************************}
{ }
{ Turbo Pascal Version 7.0 }
{ Tiny Runtime Library }
{ }
{ Copyright (c) 1995 by Solar Designer }
{ }
{*******************************************************}
unit System;
{$R-,S-,Q-,I-,N-,E-}
{ This unit implements Turbo Pascal's runtime library. When compiling
this unit, the compiler automatically includes a boot-strap symbol
table (SYSTEM.TPS) which declares all built-in types, procedures, and
functions. }
interface
var
_Vars :record end;
const
_Consts :record end=();
implementation
{$L SYSTEM.OBJ}
procedure InitTurbo; far; assembler;
asm
{$IfOpt G+}
push seg _Consts
pop ds
{$Else}
mov ax,seg _Consts
mov ds,ax
{$EndIf}
end;
procedure HaltError; far; external;
procedure HaltTurbo; far; external;
end.
