                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 195/195 ------           
                                         THE PROGRAM TO SEARCH AND REPLACE IS BASED UPON THE TWO      F1P05400    
                                         TABLES BEING ORDERED BY MAGNITUDE OF INTERNAL FORMULA        F1P05410    
                                         NUMBERS. THIS PERMITS A SINGLE PASS OVER BOTH,               F1P05420    
                                                                                                      F1P05430    
       00522  0 60000 0 02107        STZ WORKCL                                                       F1P05440    
       00523  0 53400 1 07730        LXA L(0),1       PREPARE FOR FORWARD SEARCH.                     F1P05450    
       00524 -0 53400 4 01613        LXD 6TA-1,4      NO OF ENTRIES IN FORVAL.                        F1P05460    
       00525 -0 75400 2 00000        PXD ,2                                                           F1P05470    
       00526  0 77100 0 00022        ARS 18                                                           F1P05480    
       00527  0 40000 0 00517        ADD L16TA                                                        F1P05490    
       00530  0 62100 0 00531        STA *+1                                                          F1P05500    
                                                                                                      F1P05510    
 U     00531  0 50000 2       CLMD01 CLA ..,2              GET NEXT ENTRY IN CALL TABLE.              F1P05520    
       00532  0 62200 0 02107        STD WORKCL            DIVIDE ENTRY INTO FIRST IN AC, LAST IN CS. F1P05530    
       00533 -0 32000 0 07742        ANA MSK                                                          F1P05540    
       00534  0 76700 0 00022        ALS 18                                                           F1P05550    
       00535  0 34000 1 01614 CLMD02 CAS 6TA,1             COMPARE CALL FIRST IN AC TO NEXT FORVAL.   F1P05560    
       00536  1 77777 1 00545        TXI CLMD04,1,-1       CALL GREATER THAN FORVAL                   F1P05570    
       00537  0 02000 0 00542        TRA CLMD03            CALL EQUAL FORVAL.                         F1P05580    
       00540  2 00001 2 00531        TIX CLMD01,2,1        GO FOR NEXT CALL ENTRY IF ANY. OTHERWISE   F1P05590    
       00541  0 02000 0 00546        TRA CLMD09            GO WRITE FORVAL TABLE.                     F1P05600    
                                                                                                      F1P05610    
       00542  0 50000 0 02107 CLMD03 CLA WORKCL            REPLACE FORMULA NUMBER IN FORVAL WHICH IS  F1P05620    
       00543  0 62200 1 01614        STD 6TA,1             FIRST RELATED TO CALL WITH LAST.           F1P05630    
       00544  1 77777 1 00545        TXI *+1,1,-1                                                     F1P05640    
       00545  2 00001 4 00535 CLMD04 TIX CLMD02,4,1        GO ON WITH SEARCH IF THERE ARE MORE FORVALSF1P05650    
                                                           IF NOT GO WRITE FORVAL TABLE.              F1P05660    
                                                                                                      F1P05670    
       00546  0 07400 1 07656 CLMD09 TSX WAT00,1                                                      F1P05680    
       00547  0 00000 0 00006        HTR 6                         FORVAL                             F1P05690    
       00550  0 00000 0 01614        HTR 6TA                       ON TAPE                            F1P05700    
       00551  0 50000 0 01613        CLA 6TA-1                     GET NUMBER OF WORDS IN FORVAL      F1P05710    
       00552 -0 10000 0 00554        TNZ WFD00                     TABLE EXISTS                       F1P05720    
       00553  0 02000 0 00610        TRA A4VAR                     EXIT 10 ASSEMBLE NEXT TABLE        F1P05730    
       00554  0 76600 0 00302 WFD00  WRS 194                       PREPARE TO WRITE FORVAL ON DRUM    F1P05740    
       00555 -0 73400 1 00000 WFD01  PDX 0,1                       SET INDEX A TO NUM OF WORDS        F1P05750    
       00556  0 53400 2 00555        LXA WFD01,2                   SET INDEX B TO ZERO                F1P05760    
       00557  0 77100 0 00022        ARS 18                        PUT NUM OF WORDS IN AC             F1P05770    
       00560  0 40000 0 00512        ADD TOT6                                                         F1P05780    
       00561  0 62100 0 00571        STA WFD04                     INITIALIZE                         F1P05790    
       00562  0 62100 0 00602        STA WFD07                                                        F1P05800    
       00563  0 40200 0 07731        SUB L(1)                      ADDRESSES                          F1P05810    
       00564  0 62100 0 00570        STA WFD03                                                        F1P05820    
       00565  0 62100 0 00601        STA WFD06                                                        F1P05830    
       00566  1 77777 1 00567        TXI WFD02,1,-1                SUBTRACT ONE FROM INDEX A          F1P05840    
       00567  0 76000 0 00000 WFD02  CLM                           COMPUTE CHECK SUM                  F1P05850    
       00570  0 36100 1 00000 WFD03  ACL 0,1                       FOR EACH FORVAL                    F1P05860    
       00571  0 36100 1 00000 WFD04  ACL 0,1                       ENTRY AND SAVE IN                  F1P05870    
       00572  0 60200 2 03564        SLW FRCHS,2                   SEPARATE TABLE                     F1P05880    
       00573  1 77777 2 00574        TXI WFD05,2,-1                                                   F1P05890    
       00574  2 00002 1 00567 WFD05  TIX WFD02,1,2                 TEST END OF FORVAL ENTRIES         F1P05900    
       00575  0 53400 2 00555        LXA WFD01,2                   SET INDEX B TO ZERO                F1P05910    
       00576 -0 53400 1 01613        LXD 6TA-1,1                                                      F1P05920    
       00577  0 46000 0 07744        LDA DRL02                                                        F1P05930    
