Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!rphroy!caen!math.lsa.umich.edu!sharkey!umich!ox.com!math.fu-berlin.de!unido!infoac!siebeck
From: siebeck@infoac.rmi.de (Wolfgang Siebeck )
Newsgroups: comp.lang.pascal
Subject: Re: Rebooting PC via TP
Message-ID: <1991May14.110509.22230@infoac.rmi.de>
Date: 14 May 91 11:05:09 GMT
References: <1991May13.211522.19283@world.std.com>
Organization: RMI Net INFO.box Systems * Aachen * Hamburg * Flensburg
Lines: 47

Ok, so try this one. It work's for sure, just insert a "uses boot;" in
your program:

(*****************************************************************************)
(*                                                                           *)
(*    B O O T   Version 1.0                                                  *)
(*                                                                           *)
(*    (c) 1990 RMI Nachrichtentechnik GmbH                                   *)
(*        released to the Public Domain                                      *)
(*                                                                           *)
(*    usage:                                                                 *)
(*                                                                           *)
(*    BootMachine(TRUE);      Execute COLD-BOOT                              *)
(*                                                                           *)
(*    BootMachine(FALSE);     Execute WARM-BOOT                              *)
(*                                                                           *)
(*****************************************************************************)

unit boot;

interface

procedure BootMachine(cold : boolean);

implementation

procedure BootMachine(cold : boolean);

var

	BootFlag : integer absolute 0:$472;

begin

	BootFlag := $1234;
	if cold then
		BootFlag := 0;
	inline($ea/$00/$00/$ff/$ff);

end; (* BootMachine *)

(* No initialization *)

end.

-- 
siebeck@infoac.rmi.de