| T1Thrash.burdock, HGM, 10-Feb-85  4:21:26 |

Boot[];
Load[T1Thrash];

CP[00, 0]! $address;
CP[01, 0]! statusMask ¬ 0000; | Set to 1000 to ignore bad CRC |

CP[04, 0]! passCount ¬ 0;
CP[05, 0]! good ¬ 0;

CP[06, 0]! missedPackets ¬ 0;
CP[07, 0]! wrongLength ¬ 0;
CP[08, 0]! wrongData ¬ 0;


CP[0A, 0]! minLength ¬ 1;
CP[0B, 0]! maxLength ¬ 7FD;
CP[0C, 0]! key ¬ 4C6F;
CP[0D, 0]! packetIncr ¬ 1;
CP[0E, 0]! wordIncr ¬ 1;

CP[11, 0]! temp;
CP[12, 0]! length;
CP[13, 0]! Q;
CP[14, 0]! data;

Break[SwitchesAll0s];
Break[SwitchesAll1s];
Break[TranAlreadyInterrupting];
Break[NoTranInterrupt];
Break[NoRecvInterrupt];
Break[BuffferNotEmpty];
Break[MissedThePacket];
Break[WrongLength];
Break[WrongData];
Break[BuffferNotEmptyAgain];

Continue[];