AB16-CCT4

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

2010 03522 0 04 03624 STA SFTZ ** 2011 03523 1 02 00651 LDA SKNE,1 ** 2012 03524 0 10 03603 JST SHFT ** 2013 03525 0 12 00000 IRS 0 2014 03526 0 01 03532 JMP ALRG 2015 03527 0 12 03622 IRS SFTX 2016 03530 0 01 03476 JMP ALRB 2017 03531 -0 01 03470 JMP* ALRA 2018 * 2019 03532 0 12 03605 ALRG IRS SFT 2020 03533 0 01 03502 JMP ALRD 2021 03534 0416 61 ALRS ALR 15 2022 * 2023 * 2024 * SUBROUTINE T065 ARR 2025 * 2026 03535 000065 OCT 65 TEST NO. 2027 03536 0 000000 ARRA DAC ** ARR TEST 2028 03537 0 02 03535 LDA *-2 LOAD TEST NO. 2029 03540 0 04 00777 STA '777 STORE AT '777 2030 03541 101000 NOP KILL TEST LOCATION 2031 03542 0 02 00455 LDA CNTY 2032 03543 0 04 03622 STA SFTX INITIALIZE TEST COUNT 2033 03544 0 02 03602 ARRB LDA ARRS 2034 03545 0 04 03605 STA SFT MODIFY SHIFT INSTRUCTION 2035 03546 0 02 03770 LDA =-15 2036 03547 0 04 00000 STA 0 SHIFTS COUNTER 2037 03550 0 02 03777 ARRD LDA ='52525 CHECK OF ARR USING 2038 03551 0 04 03623 STA SFTY FLOATING ZERO BIT 2039 03552 000201 IAB 2040 03553 1 02 00673 LDA TSTV,1 ** 2041 03554 0 04 03624 STA SFTZ ** 2042 03555 0 02 00673 LDA TSTV ** 2043 03556 0 10 03603 JST SHFT ** 2044 03557 0 02 03777 LDA ='52525 CHECK OF ARR USING 2045 03560 000201 IAB FLOATING ONE BIT 2046 03561 1 02 00631 LDA SKND,1 ** 2047 03562 0 04 03624 STA SFTZ ** 2048 03563 0 02 00631 LDA SKND ** 2049 03564 0 10 03603 JST SHFT ** 2050 03565 0 02 03777 LDA ='52525 CHECK AT ARR USING 2051 03566 000201 IAB ALTERNTING PATTERN WITH 2052 03567 1 02 00651 LDA SKNE,1 A ONE MARKER BIT 2053 03570 0 04 03624 STA SFTZ ** 2054 03571 0 02 00651 LDA SKNE ** 2055 03572 0 10 03603 JST SHFT ** 2056 03573 0 12 00000 IRS 0 INCREMENT INNER LOOP COUNTER 2057 03574 0 01 03600 JMP ARRG AND GO SET NEXT TRY 2058 03575 0 12 03622 IRS SFTX 2059 03576 0 01 03544 JMP ARRB RETURN FOR NEXT PASS