AB16-CCT4

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

1810 03241 1 02 00672 LDA TSTB,1 ** 1811 03242 0 04 03624 STA SFTZ ** 1812 03243 0 02 00652 LDA TSTX CHECK ARS USING 1813 03244 0 10 03603 JST SHFT FLOATING ZERO 1814 03245 140040 CRA ** 1815 03246 000201 IAB ** 1816 03247 1 02 00713 LDA TSTC,1 CHECK ARS USING 1817 03250 0 04 03624 STA SFTZ ALL ONES POSITIVE 1818 03251 0 02 00673 LDA TSTV ** 1819 03252 0 10 03603 JST SHFT ** 1820 03253 140040 CRA ** 1821 03254 000201 IAB CHECK ARS USING 1822 03255 1 02 00734 LDA TSTD,1 NEGATIVE ALTERNATING PATTERN 1823 03256 0 04 03624 STA SFTZ ** 1824 03257 0 02 00714 LDA TSTU ** 1825 03260 0 10 03603 JST SHFT ** 1826 03261 140040 CRA CHECK ARS USING 1827 03262 000201 IAB POSITIVE ALTERNATING PATTERN 1828 03263 1 02 00755 LDA TSTE,1 ** 1829 03264 0 04 03624 STA SFTZ ** 1830 03265 0 02 00735 LDA TSTR ** 1831 03266 0 10 03603 JST SHFT ** 1832 03267 0 12 00000 IRS 0 INCREMENT INNER LOOP COUNTER 1833 03270 0 01 03274 JMP ARSG OFF FOR NEXT SHIFT 1834 03271 0 12 03622 IRS SFTX 1835 03272 0 01 03232 JMP ARSB RETURN FOR NEXT PASS 1836 03273 -0 01 03224 JMP* ARSA NO ERRORS. EXIT 1837 * 1838 03274 0 12 03605 ARSG IRS SFT STEP SHIFT AMOUNT AND 1839 03275 0 01 03236 JMP ARSD RETURN FOR NEXT PASS 1840 * 1841 03276 0405 61 ARSS ARS 15 1842 * 1843 * 1844 * 1845 * SUBROUTINE T061 ALS 1846 * 1847 03277 000061 OCT 61 TEST NO. 1848 03300 0 000000 ALSA DAC ** ALS TEST 1849 03301 0 02 03277 LDA *-2 LOAD TEST NO. 1850 03302 0 04 00777 STA '777 STORE AT '777 1851 03303 101000 NOP KILL TEST LOCATION 1852 03304 0 02 00455 LDA CNTY 1853 03305 0 04 03622 STA SFTX INITIALIZE TEST COUNT 1854 03306 0 02 03344 ALSB LDA ALSS 1855 03307 0 04 03605 STA SFT MODIFY SHIFT INSTRUCTION 1856 03310 0 02 03770 LDA =-15 1857 03311 0 04 00000 STA 0 SHIFTS COUNTER 1858 03312 0 02 03777 ALSD LDA ='52525 CHECK OF ALS USING 1859 03313 0 04 03623 STA SFTY ALL ONE PATTERN