                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 322/326 ------           
       04360  1 00001 2 04361 CIT02  TXI CIT03,2,1         DR0P WORD COUNT.                           F2505340    
       04361  3 00001 2 04356 CIT03  TXH CIT01,2,1         TEST FOR BUFFER DNE.                       F2505350    
       04362  0 53400 1 05130 CIT04  LXA L(4),1            PROCEED T0 NEW                             F2505360    
       04363  0 50000 1 05202 CIT05  CLA CIL00+4,1         INST INTO BUFFER.                          F2505370    
       04364  0 60100 2 00030        STO CIB,2                                                        F2505380    
       04365  1 77777 2 04366        TXI CIT07,2,-1        KEEP WORD COUNT UPDATED.                   F2505390    
       04366  2 00001 1 04363 CIT07  TIX CIT05,1,1                             . ..                   F2505400    
       04367 -0 63400 2 05173        SXD BB0X,2            SAVE CURRENT WD CT,                        F2505410    
       04370 -0 53400 1 05174        LXD E2C,1                                                        F2505420    
       04371 -0 53400 2 05175        LXD E3C,2                                                        F2505430    
       04372  0 02000 4 00001        TRA 1,4                                                          F2505440    
                                         *******************************,*****************************F2505430    
                                         SCLMN1 IS0LATES THE INNERHQST DOTAG C0NTR0LLING A GIVEN TAG  F2505460    
       04373 -0 53400 1 03647 SCLMN1 LXD TAG2,1            S1 INDEX QUANTITY.       -- - -1-..4= )-=. F2505470    
       04374 -0 53400 2 03650        LXD TAG2+1,2          S2 INDEX QUANTITY.                         F2505480    
       04375 -0 63400 2 04376        SXD SCLMN2,2          THIS ROUTINE     .                         F2505490    
 D     04376  3 00000 1 04400 SCLMN2 TXH SCLMN3,1          COMPARES SIZES                             F2505500    
       04377 -0 53400 1 04376        LXD SCLMN2,1          OF THE INDEX                               F2505510    
       04400 -0 53400 2 03651 SCLMN3 LXD TAG2+2,2          QUANTIT(ES OF                              F2505520    
       04401 -0 63400 2 04402        SXD SCLMN4,2          EACH SUBSCRIPT IN A TAG.                   F2505530    
 D     04402  3 00000 1 04404 SCLMN4 TXH SCLMN5,1          LARGEST 2.X. QUANTITY --                   F2505540    
       04403 -0 53400 1 04402        LXD SCLMN4,1          IS F0UND AND LEFT)IN)                      F2505550    
       04404 -0 75400 1 00000 SCLMN5 PXD 0,1               ACC FOR COMPARIS0N.WITH DOIND.             F2505560    
       04405  0 02000 4 00001        TRA 1,4                                         . -.             F2505570    
                                         *************************************************************F2505580    
                                         TELC M0NIT0RS THE COMPUTING OF THE LOAD P0RTION OF THE TEST  F2505590    
                                         DECREMENT.                                           - .--)  F2505600    
       04406  0 53400 1 05131 TELC   LXA L(3),1                                                       F2505610    
       04407  0 50000 0 05133        CLA L(0)                                                         F2505620    
       04410  0 60100 0 05245        STO ERTX01                                                       F2505630    
       04411 -0 63400 4 05236        SXD LINKC,4                                                      F2505640    
       04412  0 50000 1 03652 TELC05 CLA TAG2+3,1          SEQUENCE.  PUT S IN XB T0 PREPARE          F2505650    
       04413 -0 73400 2 00000        PDX 0,2               FOR CN1IJ ROUTINE.          - ---          F2505660    
       04414 -3 00000 2 04416        TXL TELC10-2,2,0      N0 S, GO TO NEXT S.                        F2505670    
       04415  0 07400 4 04423        TSX CN1IJ,4           COMPUTE (CN1-1)IJ-ETC.                     F2505680    
       04416  0 40000 0 05245        ADD ERTX01                                 .                     F2505690    
       04417  0 60100 0 05245        STO ERTX01            (C1N1)+(C2N1-1)D1+(C3N1-1)D1D2.            F1I05700    
       04420  2 00001 1 04412 TELC10 TIX TELC05,1,1        GO TO NEXT S FOR CN1IJ.ROUTINE.            F2505710    
       04421 -0 53400 4 05236        LXD LINKC,4                             .-.-) )---).=-.          F2505720    
       04422  0 02000 4 00001        TRA 1,4                                                          F2505730    
                                         *************************************************************F2505740    
                                         CN1IJ COMPUTES THE LOAD VALUE FOR A GIVEN SUBSCRIPT IN A     F2505750    
                                         SUBSCRIPT C0MBINATIQN. (C1N1-1), 0R (C2N1-1)D1 -. ) .= .1    F2505760    
       04423  0 56000 2 01100 CN1IJ  LDQ DOTAGZ+2,2        N2 INTO MQ.                                F2505770    
       04424  0 76300 0 00022        LLS 18                                                           F2505790    
       04425 -3 00002 1 04431        TXL CN1IJ2,1,2        S2 0R S3, TRANSFER.                        F2505800    
       04426  0 20000 0 03636        MPY WRKSC             S1,              )..                       F2505810    
       04427  0 40200 0 05127        SUB L(2)                                                         F2505820    
       04430  0 02000 0 04445        TRA CN1IJ8                                                       F2505830    
       04431 -3 00001 1 04437 CN1IJ2 TXL CN1IJ4,1,1        DIVIDE BY 2 AND RETURN.                    F2505840    
       04432  0 20000 0 03640        MPY WRKSC+2           S2                -)--..                   F2505850    
       04433  0 40200 0 05127        SUB L(2)              COMPUTE                                    F2505860    
       04434  0 76500 0 00022        LRS 18                (2C2N1-2)D1D2 THEN                         F2505870    
       04435  0 20000 0 03644        MPY WRKSC+6           GO TO CN1IJ8 T0 DIVIDE                     F2505880    
