AB16-CCT4

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

2297 04112 000000 HLT ERROR 2298 04113 0 02 04767 LDA =1 2299 04114 000201 IAB 2300 04115 0410 37 LLL 33 C=0, A=0 2301 04116 100001 SRC 2302 04117 000000 HLT ERROR 2303 04120 100040 SZE 2304 04121 000000 HLT ERROR 2305 04122 0 02 00455 LDA CNTY 2306 04123 0 04 04407 STA SXTX INITIALIZE TEST COUNT 2307 04124 0 02 04166 LLLB LDA LLLS STORE LLL INST 2308 04125 0 04 04374 STA SFTT IN THE SHIFT ROUTINE 2309 04126 0 02 04770 LDA =-15 INITIALIZE SHIFT 2310 04127 0 04 00000 STA 0 COUNTER FOR 15 SHIFTS 2311 04130 1 02 00571 LLLC LDA SKNB,1 TEST LLL USING AN ALL 2312 04131 0 04 04413 STA SFYY ONES PATTERN IN B REG 2313 04132 1 02 04634 LDA SKNH,1 AND ZEROS IN A REG 2314 04133 0 04 04414 STA SFZZ 2315 04134 0 02 00571 LDA SKNB '177777 2316 04135 000201 IAB B REG ALL ONES 2317 04136 140040 CRA A REG ZEROS 2318 04137 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2319 04140 1 02 00551 LDA SKNA,1 TEST LLL USING AN 2320 04141 0 04 04413 STA SFYY ALTERNATING PATTERN 2321 04142 1 02 04675 LDA SKNK+1,1 2322 04143 0 04 04414 STA SFZZ 2323 04144 0 02 00551 LDA SKNA '52525 2324 04145 000201 IAB ALTERNATE BITS IN B REG 2325 04146 140040 CRA ZEROS IN A REG 2326 04147 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2327 04150 1 02 00611 LDA SKNC,1 2328 04151 0 04 04413 STA SFYY 2329 04152 0 02 00611 LDA SKNC =1 2330 04153 000201 IAB FLOATING 1 BIT IN B REG 2331 04154 140040 CRA ZERO IN A REG 2332 04155 0 04 04414 STA SFZZ 2333 04156 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2334 04157 0 12 00000 IRS 0 USED ALL SHIFTS 2335 04160 0 01 04164 JMP LLLG NO, MODIFY AND DO SOME MORE 2336 04161 0 12 04407 IRS SXTX ARE WE DONE 2337 04162 0 01 04124 JMP LLLB NO, TEST MORE 2338 04163 -0 01 04070 JMP* LLLA RETURN 2339 * 2340 04164 0 12 04374 LLLG IRS SFTT MODIFY SHIFTS 2341 04165 0 01 04130 JMP LLLC 2342 * 2343 04166 0410 61 LLLS LLL 15 2344 * 2345 * 2346 * SUBROUTINE T071 LRL