AB16-CCT4

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

1960 03445 1 02 00756 LDA TSTE+1,1 ** 1961 03446 0 04 03624 STA SFTZ ** 1962 03447 0 02 00734 LDA TSTD ** 1963 03450 0 10 03603 JST SHFT ** 1964 03451 0 02 03777 LDA ='52525 CHECK OF LGR 1965 03452 000201 IAB WITH FLOATING ONE 1966 03453 0 02 00611 LDA SKNC ** 1967 03454 0 04 03624 STA SFTZ ** 1968 03455 1 02 00611 LDA SKNC,1 ** 1969 03456 0 10 03603 JST SHFT ** 1970 03457 0 12 00000 IRS 0 1971 03460 0 01 03464 JMP LGRG 1972 03461 0 12 03622 IRS SFTX 1973 03462 0 01 03422 JMP LGRB 1974 03463 -0 01 03414 JMP* LGRA 1975 * 1976 03464 0 12 03605 LGRG IRS SFT 1977 03465 0 01 03426 JMP LGRD 1978 03466 0404 61 LGRS LGR 15 1979 * 1980 * 1981 * SUBROUTINE T064 ALR 1982 * 1983 03467 000064 OCT 64 TEST NO. 1984 03470 0 000000 ALRA DAC ** ALR TEST 1985 03471 0 02 03467 LDA *-2 LOAD TEST NO. 1986 03472 0 04 00777 STA '777 STORE AT '777 1987 03473 101000 NOP KILL TEST LOCATION 1988 03474 0 02 00455 LDA CNTY 1989 03475 0 04 03622 STA SFTX INITIALIZE TEST COUNT 1990 03476 0 02 03534 ALRB LDA ALRS 1991 03477 0 04 03605 STA SFT MODIFY SHIFT INSTRUCTION 1992 03500 0 02 03770 LDA =-15 1993 03501 0 04 00000 STA 0 SHIFTS COUNTER 1994 03502 0 02 03777 ALRD LDA ='52525 CHECK ALR USING 1995 03503 0 04 03623 STA SFTY FLOATING ZERO BIT 1996 03504 000201 IAB ** 1997 03505 0 02 00673 LDA TSTV ** 1998 03506 0 04 03624 STA SFTZ ** 1999 03507 1 02 00673 LDA TSTV,1 ** 2000 03510 0 10 03603 JST SHFT ** 2001 03511 0 02 03777 LDA ='52525 CHECK ALR USING 2002 03512 000201 IAB FLOTING ONE BIT 2003 03513 0 02 00631 LDA SKND ** 2004 03514 0 04 03624 STA SFTZ ** 2005 03515 1 02 00631 LDA SKND,1 ** 2006 03516 0 10 03603 JST SHFT ** 2007 03517 0 02 03777 LDA ='52525 CHECK OF ALR USING 2008 03520 000201 IAB 2009 03521 0 02 00651 LDA SKNE A ONE BIT MARKER