AB16-CCT4

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

2060 03577 -0 01 03536 JMP* ARRA NO ERRORS EXIT 2061 * 2062 03600 0 12 03605 ARRG IRS SFT INCREMENT SHIFT INSTRUCTION 2063 03601 0 01 03550 JMP ARRD AND RETURN FOR NEXT PASS 2064 03602 0406 61 ARRS ARR 15 2065 * 2066 * 2067 * 2068 03603 0 000000 SHFT DAC ** SHIFT AND CHECK ROUTINE 2069 03604 0 04 03625 STA SFXY STORE WORD 2070 03605 0 00 00000 SFT *** PROPER SHIFT INSERTED 2071 03606 0 04 03620 STA SHFQ STORE WORD AFTER SHIFT 2072 03607 0 05 03624 ERA SFTZ COMPARE WITH ORIGINAL WORD 2073 03610 100040 SZE 2074 03611 000000 HLT ERROR - DID NOT CHECK. 2075 03612 000201 IAB 2076 03613 0 04 03621 STA SHFR 2077 03614 0 05 03623 ERA SFTY COMPARE THE 2ND WORD 2078 03615 100040 SZE 2079 03616 000000 HLT ERROR 2080 03617 -0 01 03603 JMP* SHFT 2081 * 2082 03620 000000 SHFQ BSZ 1 2083 03621 000000 SHFR BSZ 1 2084 03622 000000 SFTX BSZ 1 2085 03623 000000 SFTY BSZ 1 2086 03624 000000 SFTZ BSZ 1 2087 03625 000000 SFXY BSZ 1 2088 * 2089 * SUBROUTINE T066 LRS 2090 * THIS ROUTINE CHECKS THE PROPER OPERATION 2091 * OF THE LRS INSTRUCTION USING POSITIVE AND 2092 * NEGATIVE DATA. THE DATA IS ALTERNATING BITS AND 2093 * FLOATING ZERO AND ONE PATTERNS 2094 * 2095 03626 000066 OCT 66 TEST NO. 2096 03627 0 000000 LRSA DAC ** LRS TEST 2097 03630 0 02 03626 LDA *-2 2098 03631 0 04 00777 STA '777 STORE TEST NO. AT '777 2099 03632 101000 NOP KILL TEST LOCATION 2100 03633 0 02 00455 LDA CNTY 2101 03634 0 04 03622 STA SFTX INITIALIZE TEST COUNT 2102 03635 0 02 03770 LRSB LDA =-15 2103 03636 0 04 00000 STA 0 SHIFTS COUNTER 2104 03637 0 02 03724 LDA LRSS STORE LRS INST 2105 03640 0 04 03605 STA SFT IN THE SHIFT ROUT. 2106 03641 0 02 03774 LDA =-1 STORE CORRECT 2107 03642 0 04 03624 STA SFTZ A REG AND B REG 2108 03643 0 04 03623 STA SFTY VALUES 2109 03644 0 02 03767 LDA ='100000