1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 426/430 ------           
                                            MASTER RECORD CARD = FN060                                            
                                         THE FOLLOWING PROGRAM CONSTITUTES THE FINAL SECTION 0F THE   F3B00010    
                                         MERGE.  IT MERGES THE FILE 0F INSTRUCTIONS PREPARED BY THE   F3B00020    
                                         FIRST SECTION WITH THE FILE PREPARED BY THE SECOND SECTION.  F3B00030    
                                         IN ADDITION T0 MERGING THESE TWO FILES, IT INSERTS IN THEIR  F3B00040    
                                         PROPER P0SITION THE INDEXING INSTRUCTIONS NECESSITATED BY THEF3B000S0    
                                         APPEARANCE 0F RELATIVE CONSTANTS.                            F3B00060    
                        00030        ORG 24                                                           F3B00070    
                                         READ TSXCOM INTO HIGH SPEED STORAGE                          F3B00080    
       00030  0 53400 4 01202 M30000 LXA M3ECTR,4        ER0RR COUNT IN IR 4                          F3B00090    
       00031  0 76200 0 00303        RDS 195             SELECT DRUM 3                                F3B00100    
       00032  0 46000 0 01147        LDA L(704)          DRUM ADDRESS                                 F3B00110    
       00033  0 70000 0 01226        CPY TSXCOM-2        WORD COUNT 0F TSXCOM TABLE                   F3B00120    
       00034  0 70000 0 01227        CPY TSXCOM-1        CHECK SUM 0F WORD COUNT                      F3B00130    
       00035  0 50000 0 01226        CLA TSXCOM-2        WD. COUNT                                    F3B00140    
       00036  0 40200 0 01227        SUB TSXCOM-1        CHECK SUM                                    F3B00150    
       00037  0 10000 0 00042        TZE M30010          EQUAL                                        F3B00160    
 D     00040  2 00000 4 00031        TIX M30000+1,4      N0T EQUAL, TRY 4 M0RE TIMES                  F3B00170    
       00041  0 07400 4 00004        TSX 4,4             WORD COUNT N0T EQUAL T0 CHECK SUH            F3B00180    
       00042  0 53400 4 01202 M30010 LXA M3ECTR,4        ERRQR CQUNT IN IR4                           F3B00190    
       00043  0 50000 0 01226        CLA TSXCOM-2        WORD COUNT                                   F3B00200    
       00044  0 77100 0 00022        ARS 18              PLACE IN ADDRESS                             F3B00210    
       00045  0 10000 0 00073        TZE M30050          N0 TSX INSTRUCTION                           F3B00220    
       00046  0 73400 3 00000        PAX 0,3             PLACE WORD COUNT IN IR 1 AND 2               F3B00230    
       00047  0 40000 0 01142        ADD L(1)            ADD ONE T0 WORD COUNT                        F3B00240    
       00050  0 40000 0 00061        ADD M30025          INIT1AL ADDRESS                              F3B00250    
       00051  0 62100 0 00055        STA M30020                                                       F3B00260    
       00052  0 76200 0 00303        RDS 195             SELECT DRUM 3                                F3B00270    
       00053  0 46000 0 01150        LDA L(706)          DRUM ADDRESS                                 F3B00280    
       00054  1 00001 1 00055        TXI M30020,1,1      INCCREMENT 8Y 1                              F3B00290    
       00055  0 70000 1 00000 M30020 CPY 0,1             TSXCOM TABLE INTO ST00RAGE                   F3B00300    
       00056  2 00001 1 00055        TIX M30020,1,1      COPY LOOP                                    F3B00310    
       00057  0 53400 1 01141        LXA L(0),1                                                       F3B00320    
       00060 -0 50000 0 01141        CAL L(0)            ZEROS IN ACC.                                F3B00330    
       00061  0 36100 1 01230 M30025 ACL TSXCOM,1        COMPUTE NEW CHECK SUMS AND COMPARE           F3B00340    
       00062  1 77777 1 00063        TXI M30025+2,1,-1   T0 GIVEN CHECK SUH                           F3B00350    
       00063  2 00001 2 00061        TIX M30025,2,1                                                   F3B00360    
       00064 -0 63400 1 01227        SXD TSXCOM-1,1                                                   F3B00370    
       00065  0 60200 0 01226        SLW TSXCOM-2                                                     F3B00380    
       00066  0 50000 0 01226        CLA TSXCOM-2                                                     F3B00390    
       00067  0 40200 1 01230        SUB TSXCOM,1                                                     F3B00400    
       00070  0 10000 0 00073        TZE M30050          END.  CHECK SUHS AGREE                       F3B00410    
       00071  2 00001 4 00043        TIX M30010+1,4,1    N0T EQUAL) BACK TO TRY 4 MORE T IMES         F3B00420    
       00072  0 07400 4 00004        TSX 4,4             READ DRUM 3 H0RE TIMES                       F3B00430    
       00073  0 02000 0 02673 M30050 TRA TSXPT1                                                       F3B00440    
                                         PROGRAM FOR PART 3 0F MERGE                                  F3B00450    
       00074  0 07400 4 00654        TSX READTF,C        IN)TIALIZE TIFG0 FILE BUFFER                 F3B00460    
       00075  0 07400 4 00700        TSX READFF,C        FIRST FILE BUFFERS                           F3B00470    
       00076 -0 76000 0 00142        MSE 98              IS T)FG0 FILE  USED UP                       F3B00480    
       00077  0 02000 0 00101        TRA C4              N0                                           F3B00490    
       00100  0 02000 0 00150        TRA G1              YES, GO TO END 0F T1FG0 ROUTINE              F3B00500    
       00101  0 50000 0 07322  C4    CLA 3794            T)FG0 RECORD CQUNT                           F3B00510    
       00102  0 40000 0 01151        ADD L(1D)           ADD ONE T0 DECREMENT                         F3B00520    
