                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 422/426 ------           
       02163 -0 63400 4 02331 M23075 SXD CBOX,4          SAVE LINKAGE                                 F3B11860    
       02164 -0 53400 2 02347        LXD ETRAL,2                                                      F3B11870    
       02165  0 50000 2 03211        CLA TRALEV,2                                                     F3B11880    
       02166 -0 32000 0 02305        ANA M2CON+9         SAVE DECREMENT 0F TRALEV                     F3B11890    
       02167  0 60100 0 02364        STO M2CW+2          ENTRY                                        F3B11900    
       02170  0 07400 4 02177        TSX CIT200,4                                                     F3B11910    
       02171  0 00000 0 02311        HTR M2CON+13        +170000000000                                F3B11920    
       02172  0 00000 0 02315        HTR M2ABC           TRA                                          F3B11930    
       02173  0 00000 0 02364        HTR M2CW+2          AI                                           F3B11940    
       02174  0 00000 0 02274        HTR M2CON           ZER0                                         F3B11950    
       02175 -0 53400 4 02331        LXD CBOX,4                                                       F3B11960    
       02176  0 02000 4 00001        TRA 1,4                                                          F3B11970    
                                         M2 COMPILER CIT200                                           F3B11980    
       02177  0 60100 0 02351 CIT200 STO E1C2            SAVE AC                                      F3B11990    
       02200 -0 60000 0 02352        STQ E2C2            SAVE MQ                                      F3B12000    
       02201 -0 63400 1 02353        SXD E3C2,1          SAVE IR 1                                    F3B12010    
       02202 -0 63400 2 02354        SXD E4C2,2          SAVE IR 2                                    F3B12020    
       02203 -0 53400 2 02355        LXD BBOX,2          2 S COMP. 0F N0. 0F WDS. IN BLOCK            F3B12030    
       02204  3 77634 2 02217        TXH CIT204,2,-100   COMPARE T0 100.                              F3B12040    
       02205 -3 00000 2 02217        TXL CIT204,2,0      LAST ENTRY                                   F3B12050    
       02206  0 76600 0 00222        WRS 146             SELECT TAPE 2                                F3B12060    
       02207  0 50000 0 07322        CLA TFRC0           TIFG0 FILE REC. COUNT                        F3B12070    
       02210  0 40000 0 02303        ADD M2CON+7         ADD 1 T0 DECREMENT                           F3B12080    
       02211  0 60100 0 07322        STO TFRC0           TIFG0 FILE REC. COUNT                        F3B12090    
       02212  0 53400 1 02274        LXA M2CON,1         ZER0 IN IR 1                                 F3B12100    
       02213  0 70000 1 06622 CIT201 CPY CIB2,1          OUTPUT AREA                                  F3B12110    
       02214  1 77777 1 02215        TXI CIT202,1,-1     SET COUNT FOR NEXT W0R0                      F3B12120    
       02215  1 00001 2 02216 CIT202 TXI CIT203,2,1      SET UP COUNT 0F BL0CK                        F3B12130    
       02216  3 00001 2 02213 CIT203 TXH CIT201,2,1      BACK T0 C0NTINUE WRITING                     F3B12140    
       02217  0 53400 1 02277 CIT204 LXA M2CON+3,1       COUNT 0F 4 IN IR 1                           F3B12150    
       02220  0 50000 0 02275        CLA M2CON+1         1 IN ACC                                     F3B12160    
       02221  0 62100 0 02222        STA CIT205          T0 GET NEXT ENTRY                            F3B12170    
       02222  0 50000 4 00000 CIT205 CLA 0,4             ADDRESS 0F NEXT ENTRY                        F3B12180    
       02223  0 62100 0 02224        STA CIT206                                                       F3B12190    
 A     02224  0 50000 0 00000 CIT206 CLA                 NEXT ENTRY                                   F3B12200    
       02225  0 60100 2 06622        STO CIB2,2          OUTPUT AREA                                  F3B12210    
       02226  0 50000 0 02222        CLA CIT205          ADDRESS                                      F3B12220    
       02227  0 40000 0 02275        ADD M2CON+1         ONE                                          F3B12230    
       02230  0 62100 0 02222        STA CIT205          RESTORE ADDRESS                              F3B12240    
       02231  1 77777 2 02232        TXI CIT207,2,-1     DECREASE BLOCK COUNT                         F3B12250    
       02232  2 00001 1 02222 CIT207 TIX CIT205,1,1      GET-NEXT ENTRY                               F3BI2260    
       02233 -0 63400 2 02355        SXD BBOX,2          SAVE COUNT                                   F3B12270    
       02234  0 50000 0 02351        CLA E1C2            RESTORE AC                                   F3B12280    
       02235  0 56000 0 02352        LDQ E2C2                                                                     
       02236 -0 53400 1 02353        LXD E3C2,1          RESTORE IR 1                                 F3B12300    
       02237 -0 53400 2 02354        LXD E4C2,2          RESTORE IR 2                                 F3B12310    
       02240  0 02000 4 00005        TRA 5,4             BACK T0 HAIN ROUTINE                         F3B12320    
       02241 -0 63400 4 02260 ADD1   SXD ADD4,4          SAVE LINKAGE                                 F3B12330    
       02242 -0 53400 2 02346 ADD2   LXD CTRAST,2        CURRENT TRAST0 ENTRY P0INT                   F3B12340    
       02243  0 50000 2 02372        CLA TRASTO+2,2      3RD WD 0F TRAST0 ENTRY                       F3B12330    
       02244  0 12000 0 02254        TPL ADD3            S0RT OUT TYPES 1,2,3                         F3B12360    
       02245  0 50000 2 02371        CLA TRASTO+1,2      TYPES 4,5,6. TEST 2ND W0                     F3B12370    
       02246 -0 12000 0 02254        TMI ADD3            TYPE 2                                       F3B12380    
       02247  0 50000 2 02370        CLA TRASTO,2        1ST W0R0                                     F3B12390    
