                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 304/308 ------           
       00703 -0 50100 0 01417        ORA BCD14                                                        F2401580    
       00704  0 60100 0 01052        STO CIL02                                                        F2401590    
       00705  0 07400 4 01015        TSX CIT,4             ENTER IN C1T TABLE                         F2401600    
       00706 -0 53400 4 01404        LXD LINK2,4                                                      F2401610    
       00707  0 02000 4 00001        TRA 1,4               RETURN                                     F2401620    
                                         ROUTINE FORMS END TEST FOR FIXC0N SEARCH ROUTINE             F2401630    
       00710  0 53400 2 01434 INITFX LXA L(5),2            LOAD READING ERROR COUNTER.                F2401640    
       00711  0 76200 0 00302  C1    RDS 194                                         .                F2401650    
       00712  0 70000 0 01007        CPY 1CNT              READ FIXC0N WD.CT                          F2401660    
       00713  0 70000 0 01010        CPY 2CNT              AND ITS CHECKSUM                           F2401670    
       00714  0 50000 0 01007        CLA 1CNT                                                         F2401680    
       00715  0 40200 0 01010        SUB 2CNT              TEST FOR READING ERROR.                    F2401690    
       00716 -0 10000 0 00733        TNZ C6                ERROR.                                     F2401700    
       00717  0 50000 0 01007        CLA 1CNT              IS FIXC0N EMPTY.                           F2401710    
       00720  0 10000 0 00725        TZE C4                YES                                        F2401720    
       00721  0 40200 0 01431        SUB L(2)                                                         F2401730    
       00722  0 76700 0 00021        ALS 17                STORE END TEST IN                          F2401740    
       00723  0 62200 0 01071  C2    STD FC08+1            FIXC0N SEARCH ROUTINE                      F2401750    
       00724  0 02000 4 00001        TRA 1,4               RETURN T0 MAIN ROUTINE.                    F2401760    
       00725  0 76200 0 00302  C4    RDS 194               FIXC0N IS EHPTY.                           F2401770    
       00726  0 70000 0 01427        CPY L(0)              SET FIRST F0UR L0CATIONS                   F2401780    
       00727  0 70000 0 01427        CPY L(0)              T0                                         F2401790    
       00730  0 70000 0 01427        CPY L(0)              ZER0.                                      F2401800    
       00731  0 70000 0 01427        CPY L(0)                                                         F2401810    
       00732  0 02000 0 00723        TRA C2                STORE ZER0 AS END TEST                     F2401820    
       00733  2 00001 2 00711  C6    TIX C1,2,1            ERROR. TRY T0 READ 3 TIMES.                F2401830    
       00734  0 07400 4 00004        TSX DIAG,4            DRUM 2 READING ERROR FIVE TIMES.           F2401840    
       00735  0 50000 0 01427 LINKTR CLA L(0)                                                         F2401850    
       00736  0 60100 0 01050        STO CIL00             THIS ROUTINE COMPILES                      F2401860    
       00737  0 60100 0 01052        STO CIL02             INSTRUCTION FOR RETURN                     F2401870    
       00740  0 50000 0 00750        CLA L(TRA)            T0 THE FORTRAN MASTER                      F2401880    
       00741  0 60100 0 01051        STO CIL01             ROUTINE.                                   F2401890    
       00742  0 50000 0 00751        CLA RELTG             TRA1,4                                     F2401900    
       00743  0 60100 0 01053        STO CIL03                                                        F2401910    
       00744 -0 63400 4 01012        SXD LINK1,4                                                      F2401920    
       00745  0 07400 4 01015        TSX CIT,4             FENTER IN CIT TABLE.                       F2401930    
       00746 -0 53400 4 01012        LXD LINK1,4                                                      F2401940    
       00747  0 02000 4 00001        TRA 1,4               RETURN                                     F2401950    
       00750  635121000000    L(TRA) BCD 1TRA000                                                      F2401960    
       00751 +000001000004     RELTG OCT 000001000004                                                 F2401970    
                                         ROUTINE READS AND CHECKS TABLE IRV (ALS0 CALLED B0B)         F2401980    
       00752  0 53400 1 01434 RDRM   LXA L(5),1            LOAD ERROR COUNTER.                        F2401990    
       00753 -0 63400 4 01012        SXD LINK1,4           SAVE ENTRY PT.                             FI4AI111    
       00754  0 76200 0 00303  RDS   RDS 195                                                          F2402010    
 T     00755  0 53400 0 01013        LXA L(152), 2                                                    F2402020    
       00756  0 46000 0 01014        LDA L1304             DRUM ADDRESS OF TABLE IS 1304              F2402030    
       00757  0 70000 0 01007        CPY 1CNT              READ WD. CT. OF TABLE.                     F2402040    
       00760  0 70000 0 01010        CPY 2CNT              READ WD. CT. CHECKSUH.                     F2402050    
       00761  0 70000 2 00434  CPY   CPY BOB+152,2         READ 150 TABLE ENTRIES.                    F2402060    
       00762  2 00001 2 00761        TIX CPY,2,1                                                      F2402070    
       00763  0 50000 0 01007        CLA 1CNT              DOES WD. CT AGREE                          F2402080    
       00764  0 40200 0 01010        SUB 2CNT              WITH ITS CHECKSUH.                         F2402090    
       00765 -0 10000 0 01005        TNZ ER0R              N0. ERROR.                                 F2402100    
       00766 -0 53400 2 01007        LXD 1CNT,2            YES.                                       F2402110    
