unit SysInit;
interface
var
  TlsIndex: Integer;         
  TlsLast: Byte;
  PtrToNil: Pointer = nil;
procedure _InitExe;
implementation
procedure _InitExe;
asm
end;
end.

unit System;
{$H-,I-,S-,L-}
interface

type
  PGUID = ^TGUID;
  TGUID = record
    D1: Cardinal;
    D2: Word;
    D3: Word;
    D4: array[0..7] of Byte;
  end;
  PWideString = ^WideString;

var IsConsole : Boolean;
    RandSeed:integer;

procedure _Halt0;
procedure _HandleFinally;


implementation

uses sysinit;

procedure _Halt0;
asm
end;

procedure       _HandleFinally;
asm
end;

end.

..\tool\delphi\DCC32.EXE  -Y -B .\system\system.pas
..\tool\delphi\DCC32.EXE  -GD -W- -$H-  -U".\system"    kernel.dpr 

unit System;

{ This is a dummy system unit, which does almost nothing. }

{$R-,S-,Q-,I-,N-,E-}

interface

var                              { TP needs a public var & const block }
  static_var  : byte;
const
  const_var   : byte = 0;

implementation

{ These routines must be declared in the right order (the compiler calls
  them by number, not by name) and must be far.  In the TP 6.0 SYSTEM.TPU there
  are 137 of them; buy the RTL source if you want to know what they do.  Coding
  the other 134 stubs would be a good idea, but I couldn't be bothered. }

procedure InitTurbo; far; assembler;
asm
  push dx
  mov dx, seg(const_var)
  mov ds,dx                { Load DS }
  pop dx

  mov al,const_var         { We have to be sure the var's & const's get linked in }
  mov static_var,al
end;

procedure HaltError; far; assembler;
asm
end;

procedure HaltTurbo; far; assembler;
asm
end;

end.

bpc system.pas
TPUMOVER.EXE TURBO.TPL  -SYSTEM
TPUMOVER.EXE TURBO.TPL  +SYSTEM