                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 199/199 ------           
       01036  0 62100 0 01072        STA RFT13                     FRET AND                           F1P07560    
       01037  0 62100 0 01103        STA RFT18                     INITIALIZE ADDRESSES               F1P07570    
       01040  0 50000 0 04550        CLA OTA-1                     GET NUMBER OF WORDS IN TI FGO      F1P07580    
       01041  0 77100 0 00022        ARS 18                        PUT IN AC AND                      F1P07590    
       01042  0 40200 0 07731        SUB L(1)                      SUBTRACT ONE                       F1P07600    
       01043  0 73400 4 00000        PAX 0,4                       SET INDEX C TO THIS NUMBER         F1P07610    
       01044  0 40000 0 07750        ADD TOTO                      ADD ORIGIN OF TIFGO ADD            F1P07620    
       01045  0 62100 0 01050        STA RFT08                     INITIALIZE ADDRESS                 F1P07630    
       01046  0 76000 0 00000        CLM                                                              F1P07640    
       01047  0 60200 0 01611        SLW E1RFT                                                        F1P07650    
       01050  0 50000 4 00000 RFT08  CLA 0,4                       GET FIRST WORD OF TIFGO ENTRY      F1P07660    
       01051  0 62200 0 01611        STD E1RFT                     SAVE FORMULA NUMBER                F1P07670    
       01052 -0 12000 0 01056        TMI RFT09-1                   ENTRY IS AN IF(E)                  F1P07680    
       01053 -0 32000 0 07742        ANA MSK                       ERASE DECREMENT OF AC              F1P07690    
       01054  0 40200 0 07732        SUB L(2)                      TEST FOR GO TO VECTOR ENTRY        F1P07700    
       01055 -0 10000 0 01106        TNZ RFT20                     EXIT FOR ENTRY NOT A GO TO VECTOR  F1P07710    
       01056 -0 53400 1 01613        LXD 7TA-1,1                   SET INDEX A TO NUM OF WORDS IN FRETF1P07720    
       01057  0 50000 1 00000 RFT09  CLA 0,1                       GET WORD OF FRET ENTRY             F1P07730    
       01060  0 12000 0 01065        TPL RFT10                     TEST FOR FIRST WORD OF ENTRY       F1P07740    
       01061  0 76000 0 00003        SSP                           PUT FORMULA NUMBER                 F1P07750    
       01062  0 76700 0 00022        ALS 18                        IN DECREMENT OF AC                 F1P07760    
       01063  0 40200 0 01611        SUB E1RFT                     COMPARE FORMULA NUMBERS            F1P07770    
       01064  0 10000 0 01067        TZE RFT11                     FORMULA NUMBERS MATCH              F1P07780    
       01065  2 00001 1 01057 RFT10  TIX RFT09,1,1                 TEST END OF FRET                   F1P07790    
       01066  0 02000 0 01106        TRA RFT20                     EXIT FOR END OF FRET               F1P07G00    
       01067 -2 00001 1 01106 RFT11  TNX RFT20,1,1                 PREPARE FOR SECOND WORD OF ENTRY   F1P07810    
       01070 -0 63400 1 01612 RFT12  SXD E2RFT,1                   AND SAVE INDEX A FOR RETURN        F1P07820    
       01071  0 53400 2 07730        LXA L(0),2                    SET INDEX B TO ZERO                F1P07830    
       01072  0 50000 1 00000 RFT13  CLA 0,1                       GET FREQUENCY PART OF ENTRY        F1P07840    
       01073 -0 12000 0 01077        TMI RFT15                     TEST END OF ENTRY                  F1P07850    
       01074  0 60100 2 03172        STO FRTS,2                    SAVE FREQUENCY                     F1P07860    
       01075  1 77777 2 01076        TXI RFT14,2,-1                TAKE NEXT FRTS WORD                F1P07870    
       01076  2 00001 1 01072 RFT14  TIX RFT13,1,1                 TAKE NEXT FRET WORD                F1P07880    
       01077 -3 00000 2 01106 RFT15  TXL RFT20,2,0                 EXIT FOR NO FREQUENCY IN ENTRY     F1P07890    
       01100 -0 53400 1 01612        LXD E2RFT,1                   SET INDEX A TO GET 2ND ENTRY WORD  F1P07900    
       01101  1 00001 2 01102 RFT16  TXI RFT17,2,1                 GET FREQUENCIES                    F1P07910    
       01102  0 50000 2 03172 RFT17  CLA FRTS,2                    IN REVERSE ORDER                   F1P07920    
       01103  0 60100 1 00000 RFT18  STO 0,1                       AND REPLACE IN FRET ENTRY          F1P07930    
       01104  1 77777 1 01105        TXI RFT19,1,-1                TAKE NEXT WORD OF FRET ENTRY       F1P07940    
       01105  3 00000 2 01101 RFT19  TXH RFT16,2,0                 TEST END OF ENTRY                  F1P07950    
       01106  2 00002 4 01050 RFT20  TIX RFT08,4,2                 TEST END OF TIFGO                  F1P07960    
       01107  0 76200 0 00222 WFR01  RDS 146                       POSITION                           F1P07970    
       01110  0 76200 0 00222        RDS 146                       TAPE                               F1P07980    
       01111  0 76200 0 00222        RDS 146                       FOR                                F1P07990    
       01112  0 76200 0 00222        RDS 146                       WRITING                            F1P08000    
       01113  0 76200 0 00222        RDS 146                       FRET                               F1P08010    
       01114  0 07400 1 07656 WFR00  TSX WAT00,1                   WRITE                              F1P08020    
       01115  0 00000 0 00007        HTR 7                         FRET                               F1P08030    
       01116  0 00000 0 01614        HTR 7TA                       ON TAPE                            F1P08040    
       01117  0 07400 1 07505        TSX TAP00,1                   ASSEMBLE EQUIT.                    F1P08050    
       01120  0 00000 0 00010            8                                                            F1P08060    
       01121  0 00000 0 04551            EQ                                                           F1P08070    
                                         PROGRAM FOR CLASSES OF EQUIVALENCE                           F1P08080    
                                         INITIALIZATION OF ADDRESSES AND STORAGE                      F1P08090    
