Contributor: STEVE ROGERS
{
From: STEVE ROGERS
Subj: Rebooting
Here's some code to make both warmboot and coldboot com files. If you
want to make them TP procs, just enter them as inline code.
------------------------------------------------------------------------
{Makes two COM files: WARMBOOT & COLDBOOT }
const
Warm_Boot : array[1..17] of byte = { inline code for warm boot }
($BB,00,ドル01,ドル$B8,40,ドル00,ドル
8ドルE,$D8,89,ドル1ドルE,72,ドル00,ドル
$EA,00,ドル00,ドル$FF,$FF);
Cold_Boot : array[1..17] of byte = { inline code for cold boot }
($BB,38,ドル12,ドル$B8,40,ドル00,ドル
8ドルE,$D8,89,ドル1ドルE,72,ドル00,ドル
$EA,00,ドル00,ドル$FF,$FF);
var
f : file;
begin
assign(f,'warmboot.com');
rewrite(f,1);
blockwrite(f,warm_boot,17);
close(f);
assign(f,'coldboot.com');
rewrite(f,1);
blockwrite(f,cold_boot,17);
close(f);
end.