                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 264/268 ------           
       06233 -0 50100 0 03734        ORA DUPES                                                        F2213020    
       06234  0 60100 0 03746        STO REBITS                                                       F2213030    
       06235 -0 63400 1 06173 2NS91  SXD 2NS65,1                                                      F2213040    
       06236 -0 53400 2 03752        LXD L(1),2                                                       F2213050    
       06237  0 07400 4 05441        TSX TRAWRD,4                  TEST FOR TANSFER BITS.             F2213060    
       06240  0 10000 0 06244        TZE 2NSEND                    RESETTING N0T NECESSARY IF         F2213070    
       06241 -0 53400 2 03746        LXD REBITS,2                  TRAWRD RESULT ZER0.  IF            F2213080    
       06242 -0 53400 1 06173        LXD 2NS65,1                   RESETTING NECESSARY, EXECUTE       F2213090    
       06243  0 07400 4 06370        TSX RESET,4                   RESET ROUTINE AND                  F2213100    
       06244 -0 53400 4 06157 2NSEND LXD 2NS25,4                   EXIT                               F2213110    
       06245  0 02000 4 00001        TRA 1,4                                                          F2213120    
                                         3NS00 ROUTINE PROCESSES SC WITH THREE DISTINCT INDEXED       F2213130    
                                         SUBSCRIPTS.                                                  F2213140    
       06246 -0 63400 4 06255 3NS00  SXD 3GRP15,4                  SAVE LINKAGE                       F2213150    
                                         THIS ROUTINE DETERHINES GR0UP NUMBER FOR 3NS N0 DUPE SC      F2213160    
       06247 -0 53400 2 03751        LXD L(0),2                    PUT ZER0 IN XRB                    F2213170    
       06250  0 50000 0 03721        CLA L3                        0BTAIN L3                          F2213180    
       06251  0 34000 0 03717        CAS L2                        COMPARE WITH L2                    F2213190    
       06252  1 00004 2 06254        TXI 3GRP10,2,4                L3 GREATER THAN L2                 F2213200    
       06253  0 07400 4 00004        TSX DIAG,4  N0 DUPES.                   ERROR. GO TO DIAGN0STIC. F2213215    
       06254  0 34000 0 03715 3GRP10 CAS L1                        L3 LESS THAN L2,COMPARE L3,L1      F2213220    
 D     06255 -3 00000 0 06260 3GRP15 TXL 3GRP20,0                 L3 GREATER THAN L1                  F2213230    
       06256  0 07400 4 00004        TSX DIAG,4  N0 DUPES.                   ERROR. GO TO DIAGN0STIC. F2213243    
       06257  1 00001 2 06260        TXI 3GRP20,2,1                L3 LESS THAN L1                    F2213250    
       06260  0 50000 0 03717 3GRP20 CLA L2                        0BTAIN L2                          F2213260    
       06261  0 40200 0 03715        SUB L1                        SUBTRACT L1                        F2213270    
       06262 -0 12000 0 06264        TMI 3GRP30                    TRA IF L2 LESS THAN L1             F2213280    
       06263  1 00002 2 06264        TXI 3GRP30,2,2                L2 GREATER THAN L1                 F2213290    
       06264 -0 75400 2 00000 3GRP30 PXD 0,2                       PUT GR0UP NUHBER IN ACC DEC.       F2213300    
       06265  0 60100 0 03703        STO GR0UP                     0R INTO TAG 1                      F2213310    
       06266  0 50000 0 03715        CLA L1                        0BTAIN L1                          F2213320    
       06267  0 40200 0 03752        SUB L(1)                      L1 LESS 1                          F2213330    
       06270  0 40200 0 03717        SUB L2                        L1 LESS 1 LESS L2                  F2213340    
       06271 -0 10000 0 06274        TNZ 3GRP40                    N0T ZER0,N0 CARRY,TRA              F2213350    
       06272 -0 53400 2 03755        LXD L(4),2                    SET XRB                            F2213360    
       06273  0 07400 4 04754        TSX CARRY,4                   AND TSX T0 CARRY                   F2213370    
       06274  0 50000 0 03717 3GRP40 CLA L2                        RE-ENTRY,0BTAIN L2                 F2213380    
       06275  0 40200 0 03752        SUB L(1)                      L2 LESS 1                          F2213390    
       06276  0 40200 0 03721        SUB L3                        L2 LESS 1 LESS L3                  F2213400    
       06277 -0 10000 0 06302        TNZ 3GRP50                    N0T ZER0,N0 CARRY,TRA              F2213410    
       06300 -0 53400 2 03753        LXD L(2),2                    SET XRB                            F2213420    
       06301  0 07400 4 04754        TSX CARRY,4                   AND TSX T0 CARRY                   F2213430    
       06302 -0 53400 6 03751 3GRP50 LXD L(0),6                    THE FOLLOWING ROUTINE,             F2213440    
       06303 -0 53400 1 03703        LXD GR0UP,1                   THR0UGH 3GRP72, COMPUTES           F2213450    
       06304  0 02000 1 06313 3GRP55 TRA 3GRP55+7,1                QUANTITIES FOR XRB, XRC.           F2213460    
       06305  1 00002 2 06314        TXI 3GRP65,2,2                GR0UP IS SIX                       F2213470    
       06306  1 00004 4 06314        TXI 3GRP65,4,4                FIVE                               F2213480    
       06307  1 00004 2 06314        TXI 3GRP65,2,4                F0UR                               F2213490    
       06310  1 00002 6 06313        TXI 3GRP60,6,2                THREE                              F2213500    
       06311  1 00002 4 06314        TXI 3GRP65,4,2                TWO                                F2213510    
       06312  1 00004 4 06313        TXI 3GRP60,4,4                ONE                                F2213520    
       06313  1 00002 2 06314 3GRP60 TXI 3GRP65,2,2                                                   F2213530    
       06314  0 50000 4 03720 3GRP65 CLA X1+4,4                                                       F2213540    
       06315  0 60100 0 06362        STO INX                                                          F2213550    
