                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 224/228 ------           
                                         FLOW, TRANSFER ANALYS1S,                                     F2101470    
       05662 -0 53400 4 02537 FLOW   LXD TIFG0-1,4                 TEST FOR EMPTY TIFG0               F2101480    
       05663  3 01127 4 06311        TXH SV00,4,599                                                   F2101490    
       05664 -0 53400 1 00030        LXD DOTAG-1,1                 INITIALIZE                         F2101500    
       05665 -0 63400 1 05703        SXD FL030,1                   TEST                               F2101510    
       05666 -0 63400 4 05723        SXD FL060,4                   INSTRUCTIONS                       F2101520    
       05667 -0 63400 1 06241        SXD ADL60,1                                                      F2101530    
       05670 -0 63400 1 06113        SXD INC40,1                                                      F2101540    
       05671 -0 63400 1 06167        SXD RNC70,1                                                      F2101550    
       05672  0 53400 1 06275        LXA TLT50,1                   INITIALIZE TRALEV                  F2101560    
       05673 -0 63400 1 06275        SXD TLT50,1                   INDEX VALUE                        F2101570    
       05674 -0 53400 4 05504 FL010  LXD L(600),4                  INIT1ALIZE                         F2101580    
       05675 -0 63400 4 06307        SXD TIFX,4                    CURRENT TIFG0 INDEX                F2101590    
       05676 -0 53400 1 05506        LXD L(1350,1                  INITIALIZE XRA, DOTAG INDEX        F2101600    
       05677  0 50000 1 02544 FL015  CLA DOTAGZ+5,1                0BTAIN LEVEL OF DO)     ---        F2101610    
       05700 -0 73400 2 00000        PDX 0,2                       AND                                F2101620    
       05701 -3 00001 2 05705        TXL FL040,2,1                 TRA IF LEVEL ONE. IF N0T           F2101630    
       05702  1 77767 1 05703 FL020  TXI FL030,1,-9                LEVEL ONE, FIND NEXT               F2101640    
 D     05703  3 00000 1 05677 FL030  TXH FL015,1                   LEVEL ONE, IF ANY. )               F2101650    
       05704  0 02000 0 05775        TRA FL0END                                                       F2101660    
       05705 -0 63400 1 06276 FL040  SXD BNX,1                     SAVE BEGINNING OF NEST INDEX.      F2101670    
       05706  0 50000 1 02537        CLA DOTAGZ,1                  INITIALIZE                         F2101680    
       05707  0 73400 2 00000        PAX 0,2                       BEGINNING OF NEST                  F2101690    
       05710 -0 32000 0 05514        ANA DECMSK                    AND                                F2101700    
       05711  0 60100 0 06277        STO BNA                       END OF NEST                        F2101710    
       05712 -0 75400 2 00000        PXD 0,2                       /WDRESSES                          F2101720    
       05713  0 60100 0 06300        STO ENA                                                          F2101730    
       05714 -0 53400 4 06307        LXD TIFX,4                    0BTAIN CURRENT T1FG0 INDEX         F2101740    
       05715  0 50000 4 03670 FL050  CLA TIFZ,4                    AND SEARCH FOR TIFG0     -         F2101750    
       05716 -0 32000 0 05514        ANA DECMSK                    ENTRY IN NEST.                     F2101760    
       05717  0 34000 0 06277        CAS BNA                       COMPARE WITH BNA                   F2101770    
       05720  0 02000 0 05727        TRA FL070                     GREATER THAN 0R EQUAL T0           F2101780    
       05721  0 07400 4 00004        TSX DIAG,4  BNA, MAY BE IN NEST.        ERROR. GO TO DIAGN0STIC. F2101795    
       05722  1 77776 4 05723 FL055  TXI FL060,4,-2                LESS THAN BNA, G0 BACK       -..-- F2101800    
 D     05723  3 00000 4 05715 FL060  TXH FL050,4                   FOR NEXT TIFG0 ENTRY,              F2101810    
       05724  0 02000 0 05775        TRA FL0END                    IF ANY. IF NONE, EXIT              F2101820    
       05725 -0 53400 1 06276 FL065  LXD BNX,1                                                        F2101830    
       05726  0 02000 0 05702        TRA FL020                                                        F2101840    
       05727 -0 63400 4 06307 FL070  SXD TIFX,4                    SAVE CURRENT TIFG0 INDEX           F2101850    
       05730  0 34000 0 06300        CAS ENA                       COMPARE G AND ENA                  F2101860    
       05731  0 02000 0 05725        TRA FL065                     G GREATER, G0 BACK FOR NEXT NEST.  F2101870    
       05732  0 76100 0 00000        NOP                           G EQUAL T0                      .  F2101880    
       05733  0 60100 0 06301        STO G                         0R LESS THAN G, SAVE G.            F2101890    
       05734  0 50000 4 03670        CLA TIFZ,4                    TEST FOR THREE ADDRESS IF.         F2101900    
       05735 -0 12000 0 05743        TMI FL075                     USE ADDRESS T0 DETERHINE           F2101910    
       05736  0 73400 2 00000        PAX 0,2                       WHETHER 0R N0T THIS IS AN          F2101920    
       05737 -3 00005 2 05743        TXL FL075,2,5                 ASSIGN FORMULA. IF IT IS,          F2101930    
       05740 -3 00006 2 05722        TXL FL055,2,6                 IGN0RE, TAKE NEXT TIFG0 ENTRY      F2101940    
       05741 -3 00007 2 05743        TXL FL075,2,7                 TEST FOR ADD. GREATER THAN         F2101950    
       05742  0 07400 4 00004        TSX DIAG,4  SEVEN.                      ERROR. GO TO DIAGN0STIC. F2101965    
       05743  0 50000 0 06301 FL075  CLA G                         0BTAIN G                           F2101970    
       05744 -0 53400 1 06276        LXD BNX,1                     0BTAIN CURRENT NEST INDEX          F2101980    
       05745  0 07400 4 06217        TSX ADL0C,4                   0BTAIN XDG AND LDG                 F2101990    
       05746  0 50000 0 05511        CLA BITONE                    PUT BIT IN DOTAG FOR TRA           F2102000    
