| 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[];