AB16-CCT4

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

1860 03314 000201 IAB ** 1861 03315 1 02 00571 LDA SKNB,1 ** 1862 03316 0 04 03624 STA SFTZ ** 1863 03317 0 02 00571 LDA SKNB ** 1864 03320 0 10 03603 JST SHFT ** 1865 03321 0 02 03777 LDA ='52525 CHECK OF ALS USING 1866 03322 000201 IAB FLOATING ONE BIT 1867 03323 1 02 00611 LDA SKNC,1 ** 1868 03324 0 04 03624 STA SFTZ ** 1869 03325 0 02 00611 LDA SKNC ** 1870 03326 0 10 03603 JST SHFT ** 1871 03327 0 02 03777 LDA ='52525 CHECK OF ALS USING 1872 03330 000201 IAB ALTERNATING BIT PATTERN 1873 03331 1 02 00551 LDA SKNA,1 ** 1874 03332 0 04 03624 STA SFTZ ** 1875 03333 0 02 00551 LDA SKNA ** 1876 03334 0 10 03603 JST SHFT ** 1877 03335 0 12 00000 IRS 0 INCREMENT 1878 03336 0 01 03342 JMP ALSG GO SET FOR NEXT ITERATION 1879 03337 0 12 03622 IRS SFTX INCREMENT MAIN COUNTER 1880 03340 0 01 03306 JMP ALSB RETURN FOR NEXT PASS 1881 03341 -0 01 03300 JMP* ALSA EXIT 1882 * 1883 03342 0 12 03605 ALSG IRS SFT INCREMENT SHIFT AMOUNT 1884 03343 0 01 03312 JMP ALSD AND RETURN FOR NEXT PASS 1885 * 1886 03344 0415 61 ALSS ALS 15 1887 * 1888 * 1889 * SUBROUTINE T062 LGL 1890 * 1891 03345 000062 OCT 62 TEST NO. 1892 03346 0 000000 LGLA DAC ** LGL TEST 1893 03347 0 02 03345 LDA *-2 LOAD TEST NO. 1894 03350 0 04 00777 STA '777 STORE AT '777 1895 03351 101000 NOP KILL TEST LOCATION 1896 03352 0 02 00455 LDA CNTY 1897 03353 0 04 03622 STA SFTX INITIALIZE TEST COUNT 1898 03354 0 02 03410 LGLB LDA LGLS 1899 03355 0 04 03605 STA SFT MODIFY SHIFT INSTRUCTION 1900 03356 0 02 03770 LDA =-15 1901 03357 0 04 00000 STA 0 SHIFTS COUNTER 1902 03360 0 02 03777 LGLD LDA ='52525 INITIALIZE B REG AND 1903 03361 0 04 03623 STA SFTY STORE VALUE FOR LATER 1904 03362 000201 IAB CHECK 1905 03363 1 02 00551 LDA SKNA,1 STORE FINAL A REG 1906 03364 0 04 03624 STA SFTZ VALUE FOR CHECK 1907 03365 0 02 00551 LDA SKNA INITIALIZE A REG 1908 03366 0 10 03603 JST SHFT GO TO SHIFT AND CHECK ROUTINE 1909 03367 0 02 03777 LDA ='52525 INITIALIZE