                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 197/197 ------           
       00664  0 50000 0 01613 SFRTP  CLA 7TA-1                     GET NUMBER OF WORDS IN FRET        F1P06480    
       00665  0 77100 0 00022        ARS 18                        NUMBER WORDS IN TABLE GO TO AC ADDRF1P06490    
       00666  0 40000 0 00626        ADD TOT7                      COMPUTE NUMBER OF WORDS IN TABLE   F1P06500    
       00667  0 62100 0 00701        STA SFR01                     PLUS ORIGIN OF TABLE AND INITIALIZEF1P06510    
       00670  0 62100 0 00707        STA SFR03                     ADDRESSES                          F1P06520    
       00671  0 62100 0 00721        STA SFR06                                                        F1P06530    
       00672  0 62100 0 00724        STA SFR07                                                        F1P06540    
       00673  0 62100 0 00733        STA SFR11                                                        F1P06550    
       00674  0 62100 0 00743        STA SFR13                                                        F1P06560    
       00675  0 62100 0 00753        STA SFR17                                                        F1P06570    
       00676  0 76000 0 00000 SFR00  CLM                           SET E12 TO ZERO TO INDICATE        F1P06580    
       00677  0 60100 0 07746        STO E12                       TABLE IS IN ORDER.                 F1P06590    
       00700 -0 53400 1 01613        LXD 7TA-1,1                   SET INDEX A TO NUM OF WORDS IN 7TA F1P06600    
       00701  0 50000 1 00000 SFR01  CLA 0,1                       A WORD OF 7TA GOES TO AC.          F1P06610    
       00702 -0 12000 0 00704        TMI SFR02                     COMPARE THIS WORD. IT IS ALPHA ONE F1P06620    
       00703  1 77777 1 00701        TXI SFR01,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06630    
       00704  0 62100 0 01605 SFR02  STA E11                       SAVE ALPHA ONE FOR COMPARISON      F1P06640    
       00705 -0 63400 1 01606        SXD A1BOX,1                   SAVE INDEX FOR RETURN TO ALPHA ONE F1P06650    
       00706 -2 00001 1 00762        TNX SFR21,1,1                 EXAMINE NEXT WORD OF 7TA           F1P06660    
       00707  0 50000 1 00000 SFR03  CLA 0,1                       PUT NEXT WORD OF 7TA IN AC.        F1P06670    
       00710 -0 12000 0 00713        TMI SFR05                     COMPARE THIS WORD. IT IS ALPHA TWO F1P06680    
       00711 -3 00001 1 00762        TXL SFR21,1,1                 EXIT FOR END OF TABLE              F1P06690    
       00712  1 77777 1 00707        TXI SFR03,1,-1                EXAMINE NEXT 7TA WORD              F1P06700    
       00713  0 76000 0 00003 SFR05  SSP                           COMPUTE ALPHA TWO                  F1P06710    
       00714  0 40200 0 01605        SUB E11                       MINUS ALPHA ONE                    F1P06720    
       00715  0 12000 0 00701        TPL SFR01                     ALPHA ONE IS SMALLER               F1P06730    
       00716  0 50000 0 07731        CLA L(1)                      C(E12) NOT ZERO INDICATES TABLE WASF1P06740    
       00717  0 60100 0 07746        STO E12                       NOT IN ORDER ON THIS PASS.         F1P06750    
       00720  0 53400 4 07730        LXA L(0),4                    SET INDEX C TO ZERO TO INDEX OTA   F1P06760    
       00721  0 50000 1 00000 SFR06  CLA 0,1                       ALPHA TWO GOES TO  AC              F1P06770    
       00722  0 60100 4 04551        STO OTA,4                     SAVE ALPHA TWO                     F1P06780    
       00723  1 77777 1 00724        TXI SFR07,1,-1                GET NEXT WORD OF ALPHA TWO ENTRY   F1P06790    
       00724  0 50000 1 00000 SFR07  CLA 0,1                       PUT THIS WORD IN AC                F1P06800    
       00725 -0 12000 0 00732        TMI SFR10                     ALL WORDS OF ALPHA TWO ENTRY SAVED F1P06810    
       00726  1 77777 4 00727        TXI SFR09,4,-1                GO TO NEXT WORD OF OTA             F1P06820    
       00727  0 60100 4 04551 SFR09  STO OTA,4                     SAVE WORDS OF ALPHA TWO ENTRY      F1P06830    
       00730 -3 00001 1 00732        TXL SFR10,1,1                 ALPHA TWO ENTRY IS END OF TABLE    F1P06840    
       00731  1 77777 1 00724        TXI SFR07,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06850    
       00732 -0 53400 1 01606 SFR10  LXD A1BOX,1                   SET INDEX A TO GET ADDR OF ALPHA 1 F1P06860    
       00733  0 50000 1 00000 SFR11  CLA 0,1                       ALPHA ONE GOES TO AC               F1P06870    
       00734  1 77777 4 00735        TXI SFR12,4,-1                GO TO NEXT WORD OF OTA             F1P06880    
       00735  0 60100 4 04551 SFR12  STO OTA,4                     SAVE ALPHA ONE                     F1P06890    
       00736 -0 63400 4 01607        SXD A2BOX,4                   COMPUTE INDEX FOR                  F1P06900    
       00737  0 50000 0 01606        CLA A1BOX                     RETURNING TO ALPHA ONE             F1P06910    
       00740  0 40000 0 01607        ADD A2BOX                     AFTER TRANSPOSING                  F1P06920    
       00741  0 62200 0 01607        STD A2BOX                     ALPHA ONE AND ALPHA TWO ENTRIES    F1P06930    
       00742  1 77777 1 00743        TXI SFR13,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06940    
       00743  0 50000 1 00000 SFR13  CLA 0,1                       PUT NEXT WORD IN AC                F1P06950    
       00744 -0 12000 0 00750        TMI SFR15                     FINISHED SAVING ALPHA ONE ENTRY    F1P06960    
       00745  1 77777 4 00746        TXI SFR14,4,-1                GO TO NEXT WORD OF OTA             F1P06970    
       00746  0 60100 4 04551 SFR14  STO OTA,4                     SAVE WORDS OF ALPHA ONE ENTRY      F1P06980    
       00747  1 77777 1 00743        TXI SFR13,1,-1                EXAMINE NEXT WORD OF 7TA           F1P06990    
       00750 -0 53400 1 01606 SFR15  LXD A1BOX,1                   SET INDEX A TO GET ADDR OF ALPHA 1 F1P07000    
       00751  0 53400 2 07730        LXA L(0),2                    SET INDEX B TO INDEX OTA           F1P07010    
