|File: DiskBootCedar5.burdock|
|last edit by Sturgis    26-Jan-84 17:18:01| 

Boot[];

SetBank[0];
Load[InitBurdock];
Break[AllMarked];
Start[go,0];
Unbreak[AllMarked];


|LoadGerm[Dlion];|
LoadGerm[checksummeddlion.germ];
Break[DPYOff];
Start[FindGermEnd,0];
Unbreak[DPYOff];

Reset[];

SetBank[0];
Load[NewCedarIO];
SetBank[1];
LoadMore[NewCedar1];

Break[TwoArgFPTrap];

|Break[UnImplementedFP];|

|Break[@NcTestAssignRef];|
|Break[@NcTestAssignRefNew];|
|Break[NcCedarOpCodeTrapContinued];|
|Break[NcCedarOpCodeTrapContinued+3];|
|Break[NcCedarOpCodeTrapContinued+6];|
|Break[NcCedarOpCodeTrapContinued+7];|


|Break[@NcGetCanonicalReferentType];|
|Break[@NcEnable];
Break[@NcDisable];|
|Break[@NcAssignRef];
Break[@NcAssignRefNew];
Break[@ReclaimedRef];
Break[@ReclaimableRef];
Break[@AllocateObject];
Break[@FreeObject];|

|Break[NcEnable4];|


|Break["NcDisabled1+1"];|
|Break[StashPCa];|


|Break["NcCedarOpCodeTrapContinued+1"];|
|Break["NcCedarOpCodeTrapContinued+3"];|

|Break[OnZ];|

|Break["StackErr+1"];|
|Break["JumpTrapFix+1"];|
Break[CheckForUnderflow3];
Break[NcRWFaultX];


CP[0, 0]! .stackP;
CP[1, 0]! TOS;
CP[2, 0]! uStack9;
CP[3, 0]! uStack8;
CP[4, 0]! uStack7;
CP[5, 0]! uStack6;
CP[6, 0]! uStack5;
CP[7, 0]! uStack4;
CP[8, 0]! uStack3;
CP[9, 0]! uStack2;

CP[0, 1]! .PC;
CP[1, 1]! PC;
CP[2, 1]! G;
CP[3, 1]! L;
CP[4, 1]! T;
CP[5, 1]! TT;
CP[6, 1]! Rx;
CP[7, 1]! rhG;
CP[8, 1]! rhL;

CP[0, 2]! .CR 471;
CP[1, 2]! .CR 7B9;
CP[2, 2]! .CR 7BA;

CP[4, 2]! .CR 1441;
CP[5, 2]! .CR 130D;
CP[6, 2]! .CR 10BD;


CP[10, 2]! .CR 132B;
CP[11, 2]! .CR 137B;
CP[12, 2]! .CR 1471;
CP[13, 2]! .CR 171F;

CP[15, 2]! uCrSaveTOS;
CP[16, 2]! uCrSaveStkp;
CP[17, 2]! uCrSavePC;
CP[18, 2]! UvChigh;
CP[19, 2]! UvPCpage;

LoadIOPNoSymbols["Domino"];

|following is to get the germ to boot from the disk|
CP[B, 0]! .mv 3E02F0 ← 2; |action 2 = physical volume boot|
CP[C, 0]! .mv 3E02F1 ← 3; |2 = SA1000, 3 = SA4000|
CP[D, 0]! .mv 3E02F2 ← 0;




Start[Germ];
StartIOP[2000];