| DSRTest.burdock, HGM, 22-Oct-85  0:50:03 |

Boot[];
Load[DSRTest];

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

CP[04, 0]! Q;
CP[05, 0]! temp;
CP[06, 0]! mask;


CP[0, 2]! .TPC 0;

Break[CTSNotSet];
Break[CTSNotClear];
Break[DSRNotSet];
Break[DSRNotClear];
Continue[];