                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 251/255 ------           
       04757  0 50000 2 03722        CLA X1+6,2                    PUT RIGHT INDEX                    F2206010    
       04760 -0 73400 4 00000        PDX 0,4                       IN.XRC  ) .   -                    F2206020    
       04761  0 50000 1 00740        CLA DOTAGZ+5,1                TEST LEFS SUB. DO                  F2206030    
       04762 -0 32000 0 03776        ANA CARMSK                    CARRY BITS.                        F2206040    
       04763  0 10000 0 05022        TZE CAR30                     EXIT IF N0 CARRY.                  F2206050    
       04764  0 50000 1 00741        CLA DOTAGZ+6,1                COMPARE                            F2206060    
       04765 -0 32000 0 03772        ANA DECMSK                    N0 CARRY TRA LEVEL                 F2206070    
       04766  0 34000 0 03723        CAS LL                        AND LOW LEVEL.                     F2206080    
       04767  0 02000 0 05022        TRA CAR30                     EXIT                               F2206090    
 D     04770 -3 00000 0 05022 CAR05  TXL CAR30,0                                                      F2206100    
       04771  0 50000 1 00740        CLA DOTAGZ+5,1                COMPUTE FOR LEFT                   F2206110    
       04772 -0 32000 0 03773        ANA ADDMSK                    SUBSCRIPT THE QUANTITY             F2206120    
       04773  0 60100 0 05024        STO CAR40                     C*X (C0EF. TIMES ADDED             F2206130    
       04774  0 56000 0 05024        LDQ CAR40                     VALUE).                            F2206140    
       04775  0 20000 2 03710        MPY C1+4,2                    COMPUTE FOR RIGHT                  F2206150    
       04776 -0 60000 0 05024        STQ CAR40                     SUBSCRIPT THE QUANTITY             F2206160    
       04777  0 56000 0 03712        LDQ D1                        C*N3*D(L) (C0EF.TIMES              F2206170    
       05000  3 00002 2 05002        TXH CAR10,2,2                 INCREMENT TIMES DIM. OF            F2206180    
       05001  0 56000 0 03713        LDQ D2                        LEFT SUBSCR1PT.                    F2206190    
       05002  0 20000 4 00737 CAR10  MPY DOTAGZ+4,4                IF THESE QUANTIT1ES                F2206200    
       05003  0 20000 2 03712        MPY C1+6,2                    ARE UNEQUAL,                       F2206210    
       05004  0 76700 0 00021        ALS 17                        EXIT                               F2206220    
       05005  0 40200 0 05024        SUB CAR40                                                        F2206230    
       05006 -0 10000 0 05022        TNZ CAR30                     0BTAIN LEFT                        F2206240    
       05007  0 50000 1 00740        CLA DOTAGZ+5,1                SUB. DOTAG                         F2206250    
       05010 -0 32000 0 03776        ANA CARMSK                    CARRY BITS AGAIN.                  F2206260    
       05011  0 77100 0 00017        ARS 15                        TEST FOR                           F2206270    
       05012  0 76000 0 00001        LBT                           CARRY TYPE 0)E                     F2206280    
       05013  0 02000 0 05016        TRA CAR15                     0R CARRY TYPE                      F2206290    
       05014  0 50000 0 03774        CLA CR1                       TWO.                               F2206300    
       05015  0 02000 0 05017        TRA CAR20                     0BTAIN PROPER                      F2206310    
       05016  0 50000 0 03775 CAR15  CLA CR2                       TAGTAG CARRY BIT,                  F2206320    
       05017  3 00002 2 05021 CAR20  TXH CAR25,2,2                 SHIFT IF NECESSARY FOR             F2206330    
       05020  0 77100 0 00002        ARS 2                         CENTER SUB. AND                    F2206340    
       05021 -0 60200 0 03737 CAR25  ORS CARWRD                    PLACE IN CARWRD.                   F2206350    
       05022 -0 53400 4 04770 CAR30  LXD CAR05,4                   EXIT                               F2206I60    
       05023  0 02000 4 00001        TRA 1,4                                                          F2206370    
 A     05024  0 00000 0 00000 CAR40  HTR                           E.S.                               F2206380    
       05025 -0 63400 4 05060 LIST   SXD LIST40,4          SAVE LINKAGE                               F2206400    
       05026 -0 73400 1 00000        PDX 0,1                       PUT INDEX QUANTITY IN XRA          F2206410    
       05027  0 73400 6 00000        PAX 0,6                       PUT NR. OF WDS IN XRB,XRC.         F2206420    
       05030  0 40000 0 05061        ADD LIST50                    COMPUTE NR, OF WRDS                F2206430    
       05031  0 62100 0 05046        STA LIST30                    PLUS 0RIGIN EI AND                 F2206440    
       05032  0 62100 0 05041        STA LIST20                    INITIALIZE ADDRESSES.              F22064S0    
       05033  0 50000 1 05106        CLA LADDIN+5,1                TEST                               F2206460    
       05034  0 77100 0 00022        ARS 18                        FOR                                F2206470    
       05035  0 40200 1 05101        SUB LADDS+5,1                 FULL                               F2206480    
       05036 -0 10000 0 05040        TNZ LIST10                    TABLE.                             F2206490    
       05037  0 07400 4 07774        TSX BURNCE,4          DRUM 0VERFLOW, GQ SAVE IRA BEFORE DIAG.    F2206505    
       05040 -0 75400 0 00000 LIST10 PXD 0,0                       ZER0 IN ACC.                       F2206510    
       05041  0 36100 2 00000 LIST20 ACL 0,2                       COMPUTE                            F2206520    
       05042  2 00001 2 05041        TIX LIST20,2,1                ENTRY                              F2206530    
       05043  0 76600 0 00303        WRS ADRUM             SELECT DRUMF                               F2206535    
       05044  0 60200 0 05062        SLW LIST60                    CHECK SUH.                         F2206540    
