                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 306/310 ------           
                        01053  CIL03 BSS 1                 REL. ADDRESS AND TAG.                      F2402660    
                                         REQUIRED FIXC0N IS IN ACC. WHEN THIS-ROUTINE IS              F2402670    
                                         BEGUN. THE FIXC0N TABLE IS SEARCHED AND IF FIXC0N IS         F2402680    
                                         N0T ALREADY THERE, IT IS ENTERED IN THE TABLE.               F2402690    
                                         (SEARCH IS MADE IN TWO PASSES, ONE FOR EVEN ENTRIES, ONE     F2402700    
                                         FOR 0DD, FOR TIMING PURP0SES.)EXIT WITH NAME OF ENTRY IN ACC F2402710    
       01054 -0 63400 1 01107 FIXC0N SXD FC29,1                                       .- .--U.) -.)---F2402720    
       01055 -0 63400 2 01077        SXD FC18,2                                                       F2402730    
       01056 -0 63400 4 01111        SXD FC34,4                                                       F2402740    
       01057  0 60100 0 01406        STO ERDRM1            SAVE FIXC0N.                               F2402750    
       01060  0 53400 4 01434        LXA L(5),4            INITIALIZE DRUM ERROR COUNTER.             F2402760    
       01061  0 50000 0 01142  FC02  CLA ORIGIN            INITIALISE A01 T0 SELECT 1ST.ENTRY         F2402770    
       01062  0 60100 0 01401        STO AD1               AND 0DD NUMBERED ENTRIES.    - ).)         F2402780    
       01063  0 53400 1 01427        LXA L(0),1            INITIALISE COUNT THR0UGH TABLE             F2402790    
       01064  0 53400 2 01431        LXA L(2),2            INITIALISES FOR TWO FIXC0N PASSES          F2402800    
       01065  0 50000 0 01406  FC04  CLA ERDRM1            REQD. FIXC0N                -----          F2402810    
       01066  0 76200 0 00302        RDS 194               READ NEXT FIXC0N ENTRY                     F2402820    
       01067  0 46000 0 01401        LDA AD1                                                          F2402830    
       01070  0 70000 0 01407  FC08  CPY CPYWD1                                                       F2402840    
 D     01071  3 00000 1 01102        TXH FC24+1,1          DECR IS WD.CT OF FIXC0N TABLE )INITFX)     F24028S0    
       01072  0 70000 0 01410        CPY CPYWD2            READ CHECKSUH OF ENTRY        -.-.))-.     F2402860    
       01073  0 04000 0 01110        TLQ FC30              TRA IF ENTRY DQES N0T HATCH FIXC0N         F2402870    
       01074  0 70000 0 01405        CPY ERDRM             FALSE COPY.             )-) )...--.        F2402880    
       01075  0 34000 0 01410        CAS CPYWD2            COMPARE WITH CHECKSUM.                     F2402890    
       01076  0 07400 4 00004        TSX DIAG,4            0BVIATED BY TLQ.                           F2402900    
 D     01077 -3 00000 0 01135  FC18  TXL FC60,0            SAVED IRB IN DECR. MATCH F0UN0.            F2402910    
       01100  0 70000 0 01405  FC20  CPY ERDRM             FALSE COPY, N0 MATCH                       F2402920    
       01101  1 00002 1 01070  FC24  TXI FC08,1,2          INCREASE COUNT OF WORDS TESTED.            F2402930    
       01102 -2 00001 2 01112        TNX FC40,2,1          80TH PASSES ARE COMPLETED.  --             F2402940    
       01103  0 50000 0 01401        CLA AD1               ADJUST DRUM ADDRESS                        F2402950    
       01104  0 40000 0 01431        ADD L(2)              T0 TEST EVEN NUHBERED ENTRIES              F2402960    
       01105  0 60100 0 01401        STO AD1                                          --.             F2402970    
       01106  0 53400 1 01430  FC28  LXA L(1),1            INITIALISE COUNT THR0UGH TABLE             F2402980    
 D     01107 -3 00000 0 01065  FC29  TXL FC04,0            TRA T0 HAKE 2ND PASS. SAVED IRA )N DEC     F2402990    
       01110  0 70000 0 01405  FC30  CPY ERDRM             FALSE COPY.                 .4- -= =4-.    F2403000    
 D     01111 -3 00000 0 01100  FC34  TXL FC20,0            DECR, C0NTAINS ROUTINE LINKAGE.            F2403010    
       01112  0 60100 0 01407  FC40  STO CPYWD1            SEARCH COMPLETED. N0 HATCH.  -.            F2403020    
       01113 -0 53400 1 01071        LXD FC08+1,1                                                     F2403030    
       01114  1 00001 1 01115        TXI FC42,1,1          INCREASE FIXC0N WD. COUNT AND              F2403040    
       01115 -0 63400 1 01071  FC42  SXD FC08+1,1          STORE AS NEW TEST.        - -              F2403050    
       01116 -0 75400 1 00000        PXD 0,1               FORM NEW ADDRESS                           F2403060    
       01117  0 77100 0 00021        ARS 17                FOR                                        F2403070    
       01120  0 40000 0 01142        ADD ORIGIN            DRUM WRITING.                              F24031I1    
       01121  0 60100 0 01401        STO AD1                                                          F2403090    
       01122  0 76600 0 00302        WRS 194                                                          F2403100    
       01123  0 46000 0 01401        LDA AD1               WRITE NEW FIXC0N AND                       F2403110    
       01124  0 70000 0 01407        CPY CPYWD1            ITS CHECKSUH 0N DRUM.                      F2403120    
       01125  0 70000 0 01407        CPY CPYWD1                                                       F2403130    
       01126 -0 75400 1 00000  FC50  PXD 0,1               FORM NAME OF C0NSTANT                      F2403140    
       01127  0 77100 0 00022        ARS 18                IN ACC. NAHE C0NSISTS QF                   F2403150    
       01130 -0 50100 0 01416        ORA BCD2              2 IN DEC.=2) FOR FIXC0N TABLE,             F2403160    
       01131 -0 53400 1 01107        LXD FC29,1            AND ENTRY N0 WITHIN TABLE,                 F2403170    
       01132 -0 53400 2 01077        LXD FC18,2            IN ADDRESS.                                F2403180    
       01133 -0 53400 4 01111        LXD FC34,4            RESTORE INDEX.                             F2403190    
