33 lines
767 B
HolyC
33 lines
767 B
HolyC
|
//See $LK,"Install Documentation",A="FI:::/Doc/Install.DD"$.
|
||
|
|
//Study my account examples: $LK,"Cfg Strs",A="FL:::/Demo/AcctExample/TOS/TOSCfg.HC,1"$, $LK,"Update Funs",A="FL:::/Demo/AcctExample/TOS/TOSDistro.HC,1"$
|
||
|
|
|
||
|
|
#include "BootDVD"
|
||
|
|
#include "DskISORedSea"
|
||
|
|
|
||
|
|
#help_index "Install"
|
||
|
|
|
||
|
|
#define KERNEL_BIN_C "Kernel.BIN.C"
|
||
|
|
#define BOOT_DIR "/0000Boot"
|
||
|
|
#define BOOT_DIR_KERNEL_BIN_C BOOT_DIR "/0000" KERNEL_BIN_C
|
||
|
|
|
||
|
|
U0 MakeAll()
|
||
|
|
{
|
||
|
|
if (Cmp("/Compiler/Compiler","Compiler",,':'))
|
||
|
|
throw;
|
||
|
|
if (Cmp("/Kernel/Kernel","Kernel",,':'))
|
||
|
|
throw;
|
||
|
|
}
|
||
|
|
|
||
|
|
public U0 BootDVDIns(U8 drv_let=0)
|
||
|
|
{//See $LK,"::/Misc/DoDistro.HC"$.
|
||
|
|
try {
|
||
|
|
if (!Drv(drv_let))
|
||
|
|
throw;
|
||
|
|
MakeAll;
|
||
|
|
Move("/Kernel/Kernel.BIN.Z",BOOT_DIR_KERNEL_BIN_C);
|
||
|
|
} catch {
|
||
|
|
PutExcept;
|
||
|
|
Beep;
|
||
|
|
}
|
||
|
|
}
|