AB16-CCT4

* NAME: AB16-CCT4 DOC 70180658000 REV H PAGE 67

3179 05561 123567 PATX OCT 123567 3180 05562 0 005563 MESS DAC *+1 3181 05563 177757 DEC -17 3182 05564 106612 OCT 106612,106612 05565 106612 3183 05566 140702 BCI 6,AB16-CCT4 05567 130666 05570 126703 05571 141724 05572 132240 05573 120240 3184 05574 140720 BCI 6,APR 24, 73 05575 151240 05576 131264 05577 126240 05600 133663 05601 120240 3185 05602 151305 BCI 3,REV H 05603 153240 05604 144240 3186 05605 0 005606 MES1 DAC *+1 3187 05606 177772 DEC -6 3188 05607 106612 OCT 106612 3189 05610 141720 BCI 5,CP IS **16 05611 120311 05612 151640 05613 125252 05614 130666 3190 * 3191 * 3192 * TEST IF CP IS 716 AND MODIFY PROGRAM IF IT IS 3193 * 3194 05615 0 02 05561 X13R LDA PATX 3195 05616 000201 IAB PUT INTO B REG 3196 05617 0 02 05561 LDA PATX GET THE WORD AGAIN 3197 05620 0 05 00002 ERA 2 XOR WITH LOC.2 3198 05621 101040 SNZ TEST FURTHER FOR 716 3199 05622 0 01 05705 JMP X135 IF ZERO, CP IS 716 3200 05623 0 02 05752 LDA =-1 LOAD -1 INTO A 3201 05624 0 12 00001 IRS 1 IF CP IS 716, SHOULD SKIP NEXT INSTRUCTION 3202 05625 100000 SKP TEST MORE 3203 05626 0 01 05705 JMP X135 CP IS 716 3204 * 3205 05627 140040 CRA 3206 05630 0 04 00461 STA TMP1 RESET THE COUNTER 3207 05631 34 0104 SKS '104 3208 05632 0 01 05631 JMP *-1 WAIT TILL NOT BUSY 3209 05633 14 0104 OCP '104 PUT ASR IN OUTPUT MODE 3210 05634 74 0004 OTA 4 3211 05635 000000 HLT ERROR