                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 386/390 ------           
       01025  0 02000 0 01031        TRA M12515          CHTG FMLA N0 EQUALS AIL N0,                  F3B05390    
       01026  0 02000 0 01046        TRA M12540          CHTG FMLA N0 LESS AIL N0.                    F3B05400    
       01027 -0 53400 4 02305 M12510 LXD CBOX,4          IRC HAS TSX RTN ADDR T0                      F3B05410    
       01030  0 02000 4 00002        TRA 2,4             AIL COMP AT M12030.                          F3B05420    
       01031  0 50000 0 02301 M12515 CLA CHTGE2          SEARCH CUR CHTG BLOCK FOR                    F3B05430    
       01032  0 62200 0 01044        STD M12530+1        CUR AIL INST TAG                             F3B05440    
       01033  1 77777 4 01034 M12520 TXI M12520+1,4,-1                                                F3B05450    
       01034  0 50000 4 05744        CLA CHTG,4          GET TAG1 FR0M 2ND WORD OF                    F3B05460    
       01035  0 76500 0 00022        LRS 18              CHTG TABLE.                                  F3B05470    
       01036  0 40200 0 02306        SUB TAGB0X          TAG BQX HAS AIL TAG IN ADDR.                 F3B05480    
       01037 -0 10000 0 01043        TNZ M12530          CHTG TAG AND AIL TAG DIFFERENT.              F3B05490    
       01040  0 76300 0 00022        LLS 18              CHTG AND AIL TAGS SAME, S0                   F3B05500    
       01041  0 62100 0 02330        STA M1CW+3          REPLACE CUR AIL TAG WITH CHTG T2.            F3B05510    
       01042  0 02000 0 01027        TRA M12510          RTN VIA TSX T0 AIL COMP AT M12030.           F3B05520    
       01043  1 77777 4 01044 M12530 TXI M12530+1,4,-1   IRC ENDS CHTG BLOCK SAHE FMLA N0.            F3B05530    
 D     01044  3 00000 4 01033        TXH M12520,4        DECREMENT IS CHTGE2 VALUE.                   F3B05540    
       01045  0 02000 0 01027        TRA M12510                                                       F3B05550    
       01046  0 50000 0 02301 M12540 CLA CHTGE2          UPDATE CHTGE1. CHTGE1 HAS IRC                F3B05560    
       01047  0 60100 0 02300        STO CHTGE1          VALUE T0 GET 1ST ENTRY OF                    F3805570    
       01050  0 40200 0 02277        SUB CHTGL           CHTG BLOCK ALL SAHE FHLA N0.                 F3B05580    
       01051 -0 10000 0 01054        TNZ M12550          CHTGL HAS 2S COMP N0 WDS CHTG TABLE.         F3B05590    
       01052  0 76000 0 00143        PSE 99              SENSE LIGHT 3 0N HEANS CHTG                  F3B05600    
       01053  0 02000 0 01027        TRA M12510          EMPTY 0R EXHAUSTED.                          F3B05610    
       01054 -0 53400 4 02300 M12550 LXD CHTGE1,4        COMPUTE NEW CHTGE2. CHTGE2 IS                F3B05620    
       01055  0 50000 4 05744        CLA CHTG,4          DECREMENT VALUE IN M12530 T0                 F3B05630    
       01056  0 60100 0 02302        STO CHTGFN          INDICATE LAST ENTRY IN CHTG                  F3B05640    
       01057  1 77776 4 01060 M12555 TXI M12555+1,4,-2   BLOCK ALL WITH SAHE FHLA N0.                 F3B05650    
       01060 -0 75400 4 00000        PXD 0,4             THIS 0BVIATES SEARCHING ENTIRE               F3B05660    
       01061  0 40200 0 02277        SUB CHTGL           CHTG TABLE WHEN TESTING AIL                  F3B05670    
       01062  0 10000 0 01066        TZE M12570          INSTR FOR CHANGING ITS TAG.                  F3B05680    
       01063  0 50000 4 05744        CLA CHTG,4          ROUTINE ENTERED WHEN AIL                     F3B05690    
       01064  0 40200 0 02302        SUB CHTGFN          FMLA N0. GREATER THAN CHTG                   F3B05700    
       01065  0 10000 0 01057        TZE M12555          FMLA, S0 HUST UPDATE CHTGE1                  F3B05710    
       01066 -0 63400 4 02301 M12570 SXD CHTGE2,4        AND CHTGE2 T0 GET NEXT ENTRY,                F3B05720    
       01067  0 02000 0 01021        TRA M12503          T0 CMP AIL AND CHTG FMLA N0S.                F3B05730    
                                         EXPONENTIAL 0PEN SUBROUTINES                                 F3B05740    
       01070  0 76000 0 00002 M13000 CHS                 CHANGE MINUS SIGN OF                         F3B05750    
       01071  0 60100 0 02325        STO M1CW            INT FMLA N0, IF ANY, T0 H1CW                 F3B05760    
       01072  1 77777 1 01073        TXI M13005,1,-1     DECREASE CQUNT IN IR1                        F3B05770    
       01073  0 50000 1 02332 M13005 CLA AIL,1           SEC0ND WORD                                  F3B05780    
       01074  0 40200 0 02242        SUB M1ABC+18        FIXED EXP, FL0ATING EXP 0R SPECIAL 0P        F3B05790    
       01075  0 10000 0 01101        TZE M13020          FIXED EXPONENT                               F3B05800    
       01076  0 40000 0 02243        ADD M1ABC+19        TEST FOR FL0ATING P0(NT                      F3B05810    
       01077  0 10000 0 01102        TZE M13020+1        IF NEITHER, THEN N0T EXPONENTIAL             F3B05820    
       01100  1 77777 1 01304        TXI M13500,1,-1     DETERMINATION OF SPECIAL 0P.                 F3B05830    
       01101  0 76000 0 00144 M13020 PSE 100             FIXED EXP. LITE 100 0N                       F3B05840    
       01102  1 77777 1 01103        TXI M13020+2,1,-1   3RD WORD                                     F3B05850    
       01103  0 50000 1 02332        CLA AIL,1           INF0 0N L0C OF ARG                           F3B05860    
       01104  0 60100 0 02327        STO M1CW+2          T0 M1CW+2                                    F3B05870    
       01105  1 77777 1 01106 M13025 TXI M13025+1,1,-1                                                F3B05880    
       01106  0 50000 1 02332        CLA AIL,1           REL ADD AND TAG, IF ANY.                     F3B05890    
       01107  0 60100 0 02330        STO M1CW+3          T0 M1CW+3                                    F3B05900    
       01110  1 77777 1 01111 M13030 TXI M13030+1,1,-1   DECREASE BY 1                                F3B05910    
       01111 -0 75400 1 00000        PXD 0,1             TEST FOR END OF CUR AIL REC                  F3B05920    
