| T1Test.burdock, HGM,  4-Dec-84 18:35:15 |

Boot[];
Load[T1Test];

CP[00, 0]! L0;
CP[01, 0]! $address;

CP[04, 0]! passCount;
CP[05, 0]! temp;
CP[06, 0]! Q;
CP[07, 0]! data;

CP[08, 0]! dally ← 8000;
CP[09, 0]! length ← 3;
CP[0B, 0]! key ← 4C6F;
CP[0C, 0]! wordIncr ← 1;
CP[0D, 0]! packetIncr ← 1;

CP[12, 0]! switches;

CP[00, 1]! recv00;
CP[01, 1]! recv01;
CP[02, 1]! recv02;
CP[03, 1]! recv03;
CP[04, 1]! recv04;
CP[05, 1]! recv05;
CP[06, 1]! recv06;
CP[07, 1]! recv07;
CP[08, 1]! recv08;
CP[09, 1]! recv09;
CP[0A, 1]! recv0A;
CP[0B, 1]! recv0B;
CP[0C, 1]! recv0C;
CP[0D, 1]! recv0D;
CP[0E, 1]! recv0E;
CP[0F, 1]! recv0F;
CP[10, 1]! recv10;
CP[11, 1]! recv11;
CP[12, 1]! recv12;
CP[13, 1]! recv13;
CP[14, 1]! recv14;
CP[15, 1]! recv15;
CP[16, 1]! recv16;
CP[17, 1]! recv17;
CP[18, 1]! recv18;
CP[19, 1]! recv19;
CP[1A, 1]! recv1A;
CP[1B, 1]! recv1B;

Break[SwitchesAll0s];
Break[SwitchesAll1s];
Continue[];