                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 248/252 ------           
                                         C0RRESP0NDING SUBSCRIPT COMPINATION FR0M THE TAU             F2204390    
                                         DRUM AND P0SITIONS IT IN PROPER FORMAT IN ST0RAGE.           F2204400    
       04520 -0 63400 4 04601 SUBCOM SXD SUB085,4                  SAVE LINKAGE INDEX.. --.           F2204410    
       04521 -0 53400 1 04607        LXD SUBORG,1                  INITIALIZE ERROR COUNTER           F2204420    
       04522  0 76200 0 00304 SUB010 RDS TAUDRM                    SELECT TAU DRUM. - - )--.          F2204430    
       04523 -0 53400 4 04611        LXD SUBORG+2,4                INITIALIZE                         F2204440    
       04524 -0 75400 0 00000        PXD 0,0                       SUBSCRIPT C0MBINATION              F2204450    
       04525  0 60100 4 03714 SUB020 STO C1+8,4                    SPACE        -..-).--              F2204460    
       04526  2 00001 4 04525        TIX SUB020,4,1                T0 ZER0.                           F2204470    
       04527  0 50000 0 03700        CLA TAG                       COMPUTE                            F2204480    
       04530  0 76500 0 00011        LRS 9                         DRUM                               F2204490    
       04531  0 73400 6 00000        PAX 0,6                       ADDRESS.                           F2204500    
       04532 -0 75400 0 00000        PXD 0,0                       TAU ONE ADD. IS ORG+3TAU.          F2204510    
       04533  0 76300 0 00011        LLS 9                         TAU TWO A6D. IS ORG+5TAU.          F2204520    
       04534  0 60100 0 04612        STO SUBES1                    TAU THREE ADD. IS ORG+7TAU         F2204530    
       04535  0 76700 0 00001        ALS 1                         STORE           - -   .)--.        F2204540    
       04536  0 60100 0 04613        STO SUBES2                    ADDRESS                            F2204550    
       04537  0 50000 4 04612        CLA SUBORG+3,4                IN SUBES1                          F2204560    
       04540  0 40000 0 04612        ADD SUBES1                    FOR LDA                            F2204570    
       04541  0 40000 0 04613 SUB030 ADD SUBES2                    INSTRUCTION.                       F2204580    
       04542  2 00001 4 04541        TIX SUB030,4,1                                                   F2204590    
       04543  0 62100 0 04612        STA SUBES1                                                       F2204600    
       04544  0 46000 0 04612        LDA SUBES1                    COPY SUB. C0MB.                    F2204610    
       04545  0 70000 0 03704        CPY C1                        TAU ONE, TWO, THREE                F2204620    
       04546 -3 00002 2 04550        TXL SUB040,2,2                                                   F2204630    
       04547  0 70000 0 03710        CPY C3                        TAU 3                              F2204640    
       04550  0 70000 0 03705 SUB040 CPY S1                        TAU 1,2,3                          F2204650    
       04551 -3 00001 2 04556        TXL SUB060,2,1                                                   F2204660    
       04552  0 70000 0 03707        CPY S2                        TAU 2,3                            F2204670    
       04553 -3 00002 2 04555        TXL SUB050,2,2                                                   F2204680    
       04554  0 70000 0 03711        CPY S3                        TAU 3                              F2204690    
       04555  0 70000 0 03712 SUB050 CPY D1                        TAU 2,3                            F2204700    
       04556  0 70000 0 04612 SUB060 CPY SUBES1                    TAU 1,2,3                          F2204710    
       04557 -0 53400 4 04607        LXD SUBORG,4                  COMPUTE CHECK SUM                  F2204720    
       04560 -0 50000 0 03704        CAL C1                        AND COMPARE WITH-                  F2204730    
       04561  0 36100 4 03713 SUB070 ACL C1+7,4                    ENTRY CHECK SUH.                   F2204740    
       04562  2 00001 4 04561        TIX SUB070,4,1                THREE ATTEMPTS ARE HADE            F2204750    
       04563  0 60200 0 04613        SLW SUBES2                    T0 READ SC C0RRECTLY. -            F2204760    
       04564  0 50000 0 04613        CLA SUBES2                    IF ERROR STILL PRESENT,            F2204770    
       04565  0 40200 0 04612        SUB SUBES1                    COMPLETE ROUTINE, MAKE.ERROR RET.  F2204780    
       04566  0 10000 0 04571        TZE SUB075                    CHECK SUMS AGREE, TRA- ----- ---,) F2117711    
       04567  2 00001 1 04522        TIX SUB010,1,1    CHECK SUMS DISAGREE         )-)1 ).            F2204805    
       04570  0 07400 4 00004 PAT03  TSX DIAG,4  IN READING TAU FR0M DRUM.   ERROR. GO TO DIAGN0STIC. F2204815    
       04571 -0 53400 4 04610 SUB075 LXD SUBORG+1,4                REARRANGE C1,C2,D1,D2, -.-----H.,-)F2204820    
       04572  0 50000 4 03713 SUB080 CLA C1+7,4                    T0 COMPLY WITH CORE                F2204830    
       04573  0 73400 2 00000        PAX 0,2                       ST0RAGE FORMAT.                    F2204840    
       04574 -0 32000 0 03772        ANA DECMSK                                                       F2204850    
       04575  0 60100 4 03713        STO C1+7,4                                                       F2204860    
       04576 -0 75400 2 00000        PXD 0,2                                                          F2204870    
       04577 -2 00006 4 04602        TNX SUB090,4,6                                                   F2204880    
       04600  0 60100 0 03706        STO C2                                                           F2204890    
 D     04601 -3 00000 0 04572 SUB085 TXL SUB080,0                                                     F2204900    
       04602  0 60100 0 03713 SUB090 STO D2                                                           F2204910    
       04603 -0 53400 4 04601        LXD SUB085,4                  RESTORE LTNKAGE INDEX,             F2204920    
