|File: Germ.burdock|
|last edit by Jim Frandeen  January 15, 1981  12:42 PM|

Boot[];
Load[MesaInit];
Break[Zagain];
Start[Zmem,0];
Unbreak[Zagain];
Break[DoneOnceOnlyInit];
Start[OnceOnlyInit,0];
Unbreak[DoneOnceOnlyInit];
Load[Mesa];
Break[@Stop];
|Break[StackErr];|
LoadIOP["Domino"];
|BootMesa[Othello];|


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


CP[0, 1]! .stackP;
CP[1, 1]! UvC;
CP[2, 1]! UvPCpage;
CP[3, 1]! PC;
CP[4, 1]! .pc16;
CP[5, 1]! UvG;
CP[6, 1]! UvL;
CP[7, 1]! UvMDS;

CP[9, 1]! utbindex;
CP[A, 1]! utbbitpos;
CP[B, 1]! utbcount;
CP[C, 1]! utbargptr;
CP[D, 1]! utbfunction;
CP[E, 1]! utbtextlo;
CP[F, 1]! utbtexthi;
CP[10, 1]! utbdstlo;
CP[11, 1]! utbfontbodylo;
CP[12, 1]! utbfontbodyhi;
CP[13, 1]! utbheight;


LoadReal[PilotDLion.germRM];
Start[germ];
IOP[0, 2]! PC← 2000;
ContinueIOP[];