                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 409/413 ------           
       00725  0 00000 0 02366        HTR M2CW+4          BETA 3 C(M2CW+4)                             F3B04840    
       00726  0 00000 0 02274        HTR M2CON           ZER0                                         F3B04850    
       00727  0 02000 0 00664        TRA M21515          TR. T0 COMPILE TRA T0 BETA 1                 F3B04860    
                                         TIFG0 ENTRY AN ASSIGN                                        F3B04870    
       00730  0 50000 0 07324 M21600 CLA ASN0            CURRENT ASSIGN N0.                           F3B04880    
       00731  0 60100 0 02365        STO M2CW+3          4TH WORD 0F CIT                              F3B04890    
       00732  0 40000 0 02303        ADD M2CON+7         +000001000000                                F3B04900    
       00733  0 60100 0 07324        STO ASN0            REPLACE ASSIGN N0.                           F3B04910    
       00734  0 07400 4 02177        TSX CIT200,4        COMPILE                                      F3B04920    
       00735  0 00000 0 02345        HTR TIFFN           ALPHA                                        F3B04930    
       00736  0 00000 0 02274        HTR M2CON           ZER0                                         F3B04940    
       00737  0 00000 0 02307        HTR M2CON+11        +030000000000                                F3B04950    
       00740  0 00000 0 02365        HTR M2CW+3          CURRENT ASSIGN N0.                           F3B04960    
       00741  1 77777 1 00742 M21610 TXI M21610+1,1,-1                                                F3B04970    
       00742  0 50000 1 05472        CLA TIFGO,1         2ND WD. 0F TIFG0 ENTRY                       F3B04980    
       00743  0 76700 0 00022        ALS 18              PLACE BETA IN DECREMENT                      F3B04990    
       00744 -0 53400 2 07323        LXD EASC0,2         CURRENT ASC0 ENTRY PT. IN IR 2               F3B05000    
       00745  0 60100 2 07325        STO ASC0,2          STORE BETA IN PRQPER ASC0 LQC                F3B05010    
       00746  1 77777 2 00747        TXI M21620,2,-1     STEP COUNT FOR NEXT ASC0 ENTRY               F3B05020    
       00747 -0 63400 2 07323 M21620 SXD EASC0,2         PT. AND STORE                                F3B03030    
       00750  1 77777 1 00503        TXI M21000,1,-1     BACK FOR NEXT TIFG0                          F3B05040    
                                         M2 TERMINAL ROUTINE                                          F3B05050    
       00751 -0 53400 2 02355 M21900 LXD BBOX,2          2S COMPL. 0F N0 0F WDS IN BLOCK              F3B05060    
       00752 -0 53400 4 07322        LXD TFRC0,4                                                      F3B05070    
       00753  1 00003 4 00754        TXI M21900+3,4,3    STEP UP BLOCK COUNT BY 3                     F3B05080    
       00754 -3 00000 2 00764        TXL M21920,2,0      TEST IF AT END 0F BLOCK                      F3B05090    
       00755  0 76600 0 00222        WRS 146             SELECT TAPE 2                                F3B05100    
       00756  1 00001 4 00757        TXI M21910-1,4,1    STEPUP IR 4 BY 1                             F3B05110    
       00757 -0 53400 1 02274        LXD M2CON,1         ZER0S IN IR 1                                F3B05120    
       00760  0 70000 1 06622 M21910 CPY CIB2,1          WRITE REMAINING CITS                         F3B05130    
       00761  1 77777 1 00762        TXI M21910+2,1,-1   DECREASE COUNT IN IR 1                       F3B05140    
       00762  1 00001 2 00763        TXI M21910+3,2,1    INCREASE COUNT IN IR 2                       F3B05150    
       00763  3 00001 2 00760        TXH M21910,2,1      TEST 1F AT END                               F3B05160    
       00764  0 77000 0 00222 M21920 WEF 146             WRITE END 0F FILE                            F3B05170    
       00765  0 76400 0 00222        BST 146                                                          F3B05180    
       00766  2 00001 4 00765        TIX M21920+1,4,1                                                 F3B05190    
       00767  0 76200 0 00222 M21925 RDS 146             P0SITION TAPE 2 AT BEGINNING                 F3B05200    
       00770  0 70000 0 02366        CPY M2CW+4          0F TIFG0 FILE                                F3B05210    
       00771  0 02000 0 00770        TRA M21925+1        BACK T0 READ LOOP                            F3B05220    
       00772  0 02000 0 00774        TRA M22000-2                                                     F3B05230    
       00773  0 02000 0 00767        TRA M21925                                                       F3B05240    
       00774  0 76200 0 00221        RTB 1                                                            F3B05250    
       00775  0 02000 0 00004        TRA 4                                                            F3B05260    
                                         M2-MAIN PROGRAH-TIFG0 FHLA N0 IN                             F3B05270    
                                         TRALEV                                                       F3B05280    
       00776  1 77777 2 00777 M22000 TXI M22000+1,2,-1   UPDATE TRALEV ENTRY                          F3B05290    
       00777 -0 63400 2 02347        SXD ETRAL,2         P0INT, SAVE IN PROPER CELL                   F3B05300    
       01000 -0 53400 2 02274        LXD M2CON,2         RESET IR 2 WITH ZER0                         F3B05310    
       01001  0 07400 4 01456        TSX M22700,4        TRAST0 FMLA N0 SEARCH, H2 SUBROUTINE         F3B05320    
       01002  0 02000 0 01004        TRA M22006          CUR TIFG0 FMLA NQ N0T IN TRAST0              F3B05330    
       01003  0 02000 0 01015        TRA M22015          CUR TIFG0 FMLA N0 IN TRAST0                  F3B05340    
       01004 -0 53400 2 02347 M22006 LXD ETRAL,2         2S CQHPL. 0F TRALEV ENTRY PT. COUNT          F3B053S0    
       01005  0 50000 2 03211        CLA TRALEV,2        TRALEV ENTRY                                 F3B05360    
       01006 -0 12000 0 01013        TMI M22013          IS IT START 0F NEXT ENTRY 2                  F3B05370    
