mirror of https://github.com/minexew/Shrine.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.1 KiB
48 lines
1.1 KiB
2 years ago
|
//This is executed by the Adam task at boot.
|
||
|
|
//See $LK,"Adam Start-up",A="FF:::/Kernel/KMain.HC,\"StartOS"$.
|
||
|
|
|
||
|
|
#help_index "Compiler/Directive"
|
||
|
|
public extern I8i Option(I64i num,I8i val);
|
||
|
|
Option(0,0); //(0,0)=EchoOff (0,1)=EchoOn
|
||
|
|
|
||
|
|
#include "/Kernel/KernelA.HH"
|
||
|
|
#include "/Compiler/CompilerA.HH"
|
||
|
|
#include "/Kernel/KernelB.HH"
|
||
|
|
#include "/Kernel/KernelC.HH"
|
||
|
|
#include "/Compiler/CompilerB.HH"
|
||
|
|
|
||
|
|
Option(OPTf_WARN_PAREN,ON);
|
||
|
|
Option(OPTf_WARN_DUP_TYPES,ON);
|
||
|
|
HashTablePurge(adam_task->hash_table);
|
||
|
|
|
||
|
|
#include "/Adam/MakeAdam"
|
||
|
|
|
||
|
|
//Dbg("Type 'G;'");
|
||
|
|
DocTermNew;
|
||
|
|
//Raw(ON); -- this breaks inputs in KCfg
|
||
|
|
WinVert(2,10);
|
||
|
|
|
||
|
|
if (DrvIsWritable)
|
||
|
|
DirMk("/Tmp"); //Good to have a Tmp
|
||
|
|
|
||
|
2 years ago
|
DirMk("/Home"); // needed why?
|
||
|
2 years ago
|
|
||
|
2 years ago
|
DirMk("/0000Boot"); // needed why?
|
||
|
2 years ago
|
#include "/Adam/Opt/Boot/MakeBoot"
|
||
|
2 years ago
|
#include "/Adam/Opt/Utils/MakeUtils"
|
||
|
|
|
||
|
|
Cd(__DIR__);;
|
||
|
|
|
||
|
|
#include "ShrineCfg"
|
||
|
|
#include "ShrineDistro"
|
||
|
|
|
||
|
|
// Make 128MB RAMdisk B: (Distro tree + ISO are built here)
|
||
|
|
CBlkDev* res;
|
||
|
|
res=BlkDevNextFreeSlot('B',BDT_RAM);
|
||
|
|
res->unit = 0;
|
||
|
|
res->max_blk = 0x40000-1;
|
||
|
|
BlkDevAdd(res,,TRUE,TRUE);
|
||
|
|
|
||
|
|
MakeStdDistro;
|
||
|
|
CopySingle("B:/Shrine.ISO.C", "C:/Shrine.ISO");
|