AB16-CCT4

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

2247 04036 0 03 04767 ANA =1 2248 04037 0 04 04414 STA SFZZ 2249 04040 1 02 04654 LDA SKNJ,1 2250 04041 0 04 04413 STA SFYY 2251 04042 0 02 04654 LDA SKNJ '100001 2252 04043 000201 IAB WITH NEGATIVE SIGN IN B-REG 2253 04044 140040 CRA 2254 04045 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2255 04046 1 02 00551 LDA SKNA,1 2256 04047 0 03 04614 ANA SKNG 2257 04050 0 04 04413 STA SFYY ALTERNATE ONES AND 2258 04051 1 02 04674 LDA SKNK,1 ZEROS 2259 04052 0 04 04414 STA SFZZ 2260 04053 0 02 00735 LDA TSTR '52525 2261 04054 000201 IAB ALTERNATE BITS IN B REG 2262 04055 140040 CRA 2263 04056 0 10 04372 JST SHXT TO SHIFT AND CHECK ROUTINE 2264 04057 0 12 00000 IRS 0 DID WE USE ALL SHIFTS 2265 04060 0 01 04064 JMP LLSG NO, MODIFY NO. OF SHIFTS 2266 04061 0 12 04407 IRS SXTX ARE WE DONE 2267 04062 0 01 04021 JMP LLSB NO, TEST MOVE 2268 04063 -0 01 04013 JMP* LLSA RETURN 2269 * 2270 04064 0 12 04374 LLSG IRS SFTT MODIFY NO. OF SHIFTS 2271 04065 0 01 04025 JMP LLSC 2272 * 2273 04066 0411 61 LLSS LLS 15 2274 * 2275 * 2276 * SUBROUTINE T070 LLL 2277 * 2278 04067 000070 OCT 70 TEST NO 2279 04070 0 000000 LLLA DAC ** LLL TEST 2280 04071 0 02 04067 LDA *-2 2281 04072 0 04 00777 STA '777 STORE TEST NO AT '777 2282 04073 101000 NOP KILL TEST LOCATION 2283 04074 140600 SCB SET C BIT 2284 04075 0 02 04767 LDA =1 2285 04076 000201 IAB INTERCHANGE A AND B 2286 04077 0410 41 LLL 31 2287 04100 100001 SRC C BIT MUST BE RESET 2288 04101 000000 HLT ERROR 2289 04102 101400 SMI A=100000 2290 04103 000000 HLT ERROR 2291 04104 0 02 04767 LDA =1 2292 04105 000201 IAB INTERCHANGE A AND B 2293 04106 0410 40 LLL 32 C BIT MUST BE SET, A=0 2294 04107 101001 SSC 2295 04110 000000 HLT ERROR 2296 04111 100040 SZE