AB16-CCT4

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

2497 04372 0 000000 SHXT DAC ** SHIFT ROUTINE 2498 04373 0 04 04412 STA SFXX 2499 04374 0 00 00000 SFTT *** SHIFT INSTRUCTION TO BE INSERTED 2500 04375 0 04 04410 STA SFQQ A REG AFTER SHIFTS 2501 04376 0 05 04414 ERA SFZZ SHOULD COMPARE EXACTLY 2502 04377 100040 SZE 2503 04400 000000 HLT ERROR 2504 04401 000201 IAB 2505 04402 0 04 04411 STA SFRR B REG AFTER SHIFTS 2506 04403 0 05 04413 ERA SFYY SHOULD COMPARE EXACTLY 2507 04404 100040 SZE 2508 04405 000000 HLT ERROR 2509 04406 -0 01 04372 JMP* SHXT 2510 * 2511 04407 000000 SXTX BSZ 1 2512 04410 000000 SFQQ BSZ 1 2513 04411 000000 SFRR BSZ 1 2514 04412 000000 SFXX BSZ 1 2515 04413 000000 SFYY BSZ 1 2516 04414 000000 SFZZ BSZ 1 2517 * 2518 * 2519 * 2520 * SUBROUTINE T074 SHIFTS GENERAL 2521 * 2522 04415 000074 OCT 74 TEST NO. 2523 04416 0 000000 SFTA DAC ** 2524 04417 0 02 04415 LDA *-2 STORE TEST NO. 2525 04420 0 04 00777 STA '777 AT '777 2526 04421 101000 NOP KILL TEST LOCATION 2527 04422 0 02 00455 LDA CNTY 2528 04423 0 04 04407 STA SXTX INITIALIZE TEST COUNT 2529 04424 140040 CRA 2530 04425 0 04 00000 STA 0 2531 04426 0 02 04567 LDA RRST 2532 04427 0 04 04570 STA INDR 2533 04430 -0 02 04570 LDA* INDR 2534 04431 0 04 04572 STA SFFX 2535 04432 0 12 04570 STTL IRS INDR 2536 04433 -0 02 04570 LDA* INDR 2537 04434 0 04 04571 STA SFFY 2538 04435 0 02 04766 LDA =-11 2539 04436 0 04 00000 STA 0 2540 04437 0 12 00000 STTJ IRS 0 2541 04440 0 01 04442 JMP *+2 2542 04441 0 01 04545 JMP STTK 2543 04442 1 01 04455 JMP JPTB,1 2544 04443 0 01 04456 JMP STTA 2545 04444 0 01 04456 JMP STTA 2546 04445 0 01 04470 JMP STTC