                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 427/431 ------           
       00103  0 60100 0 07322        STO 3794            NEW TIFG0-RECORD COUNT-.. .= ... =.)= =L...=)F3B00530    
       00104  0 50000 1 02362  C6    CLA FFLBUF,A        0BTAIN ALPHA FOR NEXT CIT IN IST FILE BUFFER F3B00340    
       00105  0 62200 0 01221        STD FFLCFN                                                       F3B00550    
       00106  0 50000 2 02216        CLA TFGBUF,B        0BTAIN  FOR NEXT CIT AND SAVE IN             F3B00560    
       00107 -0 32000 0 01162        ANA MASK            TIFG0 BUFFER                                 F3B00570    
       00110  0 62200 0 01213        STD TFGCFN                                                       F3B00580    
       00111  0 34000 0 01221        CAS FFLCFN          COMPARE FIRST FILE T0 TIFG0 FILE             F3B00590    
       00112  0 02000 0 00234        TRA E1                  ALPHA LESS THAN BETA                     F3B00600    
       00113  0 02000 0 00337        TRA J1                  ALPHA EQUALS BETA                        F3B00610    
                                                             ALPHA GREATER THAN BETA                  F3B00620    
       00114  0 53400 4 01145  C5    LXA L(4),C              COMPILE  THIS TIFG0 FILE INSTRUCTION     F3B00630    
       00115  0 50000 2 02216  C2    CLA TFGBUF,B        SET UP FOR WORDS                             F3B00640    
       00116  0 60100 4 01220        STO TFGCOM+4,C                                                   F3B00650    
       00117  1 77777 2 00120        TXI C1,B,-1                                                      F3B00660    
       00120  2 00001 4 00115  C1    TIX C2,C,1                                                       F3B00670    
       00121  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B00680    
       00122  0 00000 0 01214        HTR TFGCOM                                                       F3B00690    
       00123  0 00000 0 01215        HTR TFGCOM+1                                                     F3BY01YY    
       00124  0 00000 0 01216        HTR TFGCOM+2                                                     F3B00710    
       00125  0 00000 0 01217        HTR TFGCOM+3                                                     F3B00720    
       00126 -0 75400 2 00000        PXD 0,B                 COMPARE WORD CQUNT                       F3B00730    
       00127  0 34000 0 01212        CAS TFGWC               WITH BUFFER SIZE                         F3B00740    
       00130  0 02000 0 00137        TRA C7              WORD COUNT LESS THAN BUFFER SSIZE            F3BY0750    
       00131  0 02000 0 00133        TRA C3                  WC EQUALS BS                             F3B00760    
       00132  0 07400 4 00004        TSX 4,4             WORD COUNT INC0RRECT                         F3B00770    
       00133  0 07400 4 00654  C3    TSX READTF,C        READ TIFG0 FILE INTO BUFFER                  F3B00780    
       00134 -0 76000 0 00142        MSE 98                  IS TIFG0 FILE USE0 UP                    F3B00790    
       00135  0 02000 0 00137        TRA C7                  N0    TEST LOCATION WD 0F NEXT ENTRY     F3B00800    
       00136  0 02000 0 00150        TRA G1                  YES GO TO END 0F TIFG0 F1LE ROUT)NE      F3B00810    
       00137  0 50000 2 02216  C7    CLA TFGBUF,B        WORD COUNT LESS THAN BUFFER SIZE             F3B00820    
       00140 -0 32000 0 01164        ANA 2BIT                IS LOCATION WORD SPECIAL                 F3B00830    
       00141 -0 10000 0 00114        TNZ C5                  YES  BACK T0 COMPILE NEXT ENTRY          F3B00840    
       00142  0 50000 2 02216        CLA TFGBUF,B            N0                                       F3B00850    
       00143 -0 32000 0 01162        ANA MASK                D0ES NEXT INSTRUCTION IN TIFG0 FILE      F3B00860    
       00144  0 34000 0 01213        CAS TFGCFN              BEL0NG T0 CURRENT COMPILED BLOCK         F3B00870    
       00145  0 02000 0 00104        TRA C6                  N0                                       F3B00880    
       00146  0 76100 0 00000        NOP                     YES                                      F3B00890    
       00147  0 02000 0 00114        TRA C5                  YES                                      F3B00900    
                                         END 0F TIFG0 FILE RDUTINE                                    F3B00910    
       00150 -0 76000 0 00141  G1    MSE 97                  IS FIRST FILE USED UP.  TEST SWITCH      F3B00920    
       00151  0 02000 0 00153        TRA G2                          N0                               F3B00930    
       00152  0 02000 0 00443        TRA OUT                 YES   GO TO TERMINAL ROUT INE            F3B00940    
       00153  0 50000 1 02362  G2    CLA FFLBUF,A        ENTRY IN FIRST FILE BUFFER                   F3B00950    
       00154  0 62200 0 01221        STD FFLCFN          STORE INTERNAL FORMULA N0. FOR ENTRY         F3B00960    
       00155  0 53400 4 01145  G5    LXA L(4),C              COMPILE                                  F3B00970    
       00156  0 50000 1 02362  G4    CLA FFLBUF,A            FIRST                                    F3B00980    
       00157  0 60100 4 01226        STO FFLCOM+4,C          FILE                                     F3B00990    
       00160  1 77777 1 00161        TXI G3,A,-1             INSTRUCTION                              F3B01000    
       00161  2 00001 4 00156  G3    TIX G4,C,1                                                       F3B01010    
       00162  0 07400 4 01022        TSX CIT00,C         COMPILER                                     F3B01020    
       00163  0 00000 0 01222        HTR FFLCOM                                                       F3B01030    
       00164  0 00000 0 01223        HTR FFLCOM+1                                                     F3B01040    
       00165  0 00000 0 01224        HTR FFLCOM+2                                                     F3B01050    
       00166  0 00000 0 01225        HTR FFLCOM+3                                                     F3B01060    
