Newsgroups: comp.lang.pascal
Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!wuarchive!uunet!world!jamesp
From: jamesp@world.std.com (james M peterson)
Subject: Re: Rebooting PC via TP
Message-ID: <1991May13.211522.19283@world.std.com>
Organization: The World @ Software Tool & Die
Date: Mon, 13 May 1991 21:15:22 GMT
Lines: 14

for a cold reboot put $0000 into $0:0472 and call int 19
for a warm boot put $1234 into $0:0472

procedure coldboot;
var   r      : registers;      { registers record from dos unit }
begin
  memw[$0000:$0472] := $0000    { $1234 for warm boot, hmm parameter? }
  intr($19,r)
end;

you can also replace the int 19 with a jump to $ffff:0 by:
using  "inline(4ea/$00/$00/$ff/$ff)" instead.