|File: DriveCedar5.burdock|
|last edit by Sturgis    14-Jun-84 10:04:30| 

Boot[];

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



LoadGerm[Dlion];
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["NcDisabled1+1"];|
|Break[StashPCa];|


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

|Break[OnZ];|


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;

LoadIOPNoSymbols["Domino"];

|following is to get the germ to boot othello from the Ether|
CP[B, 0]! .mv 3E02F0 _ 0; |action 0 = inload|
CP[C, 0]! .mv 3E02F1 _ 5; |5 = Ether?|
CP[D, 0]! .mv 3E02F2 _ 0;
CP[E, 0]! .mv 3E02F3 _ 4A80; |4A80 = 45200'b, refers to 25205445200'b|
CP[F, 0]! .mv 3E02F4 _ 0;
CP[10, 0]! .mv 3E02F5 _ 0;




Start[Germ];
StartIOP[2000];