1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 376/380 ------           
                                            MASTER RECORD CARD = FN056                                            
                                         THE FOLLOWING PROGRAM C0NSTITUTES THE FIRST SECTION OF THE   F3B00010    
                                         MERGE. IT PERFORMS THE INITIAL MERGE OF THE AIL FILE AND THE F3B00020    
                                         D0 FILE OF COMPILED INSTRUCTIONS. IN ADDITION T0 MERGING     F3B00030    
                                         TMESE TWO FILES, IT INSERTS THE ARITHMETIC 0PEN SUBROUTINES  F3B00040    
                                         IN THEIR C0RRECT P0SITION IN THE FILE OF COMPILED INSTRUCT-  F3B00050    
                                         10NS AND EFFECTS APPROPRIATE GENERALIZED TAG CHANGES IN AIL  F3B00060    
                                         FILE INSTRUCTIONS                                       -..- F3B00070    
                        00030        ORG 24                                                           F3B00080    
                                          TAPE P0SITIONING T0 READ FORTAG INTO CORE ST0RAGE           F3B00090    
       00030  0 53400 1 02167        LXA M1ECTR,1        LOAD 5 INTO IRA TP RD ERROR CTR.             F3B00100    
       00031  0 76200 0 00222 M10000 RDS 146             READ BINARY TAPE 2 WITH FORTAG TBL           F3B00110    
       00032  0 70000 0 05742        CPY ERAS            THE 7TH RECORD OF 5TH FILE WHICH IS          F3B00120    
       00033  0 07400 2 00064        TSX M10043,2        THE TAPE TABLES HAVING 11 RECORDS.           F3B00130    
       00034  0 76100 0 00031        NOP M10000          TAPE 2 STANDS AT DOTAGB RECORD   .           F3B00140    
       00035 -0 53400 1 05742        LXD ERAS,1          COUNT FILE. TAPE 2 BACKSPACED N0.            F3B00150    
       00036  1 00007 1 00037        TXI M10010,1,7      RECORDS IN DOTAGB PLUS 7 T0 START FORTAG,    F3B00160    
       00037  0 76400 0 00222 M10010 BST 146                                                  )---)   F3B00170    
       00040  2 00001 1 00037        TIX M10010,1,1                                                   F3B00180    
                                         READ FORTAG INTO CORE ST0RAGE                                F3B00190    
       00041 -0 76000 0 00012        RTT                 TURN-OFF TAPE INDICAT0R,                     F3B00200    
       00042  0 76100 0 00000        NOP                 IF 0N.                                       F3B00210    
       00043  0 53400 1 02167        LXA M1ECTR,1        LOAD 5 INTO IRA TP RD ERROR CTR.             F3B00220    
       00044  0 76200 0 00222 M10020 RDS 146             READ TAPE 2 P0SITIONED AT FORTAG TBL         F3B00230    
       00045  0 70000 0 02331        CPY FORTAG-1        AND TEST FIRST WORD T0 GUARANTEE   -         F3B00240    
       00046  0 50000 0 02331        CLA FORTAG-1        BEGINNING OF FORTAG TABLE.                   F3B00250    
       00047  0 40200 0 02177        SUB M1CON+4         FORTAG IS TABLE N0. 4.                       F3B00260    
       00050  0 10000 0 00052        TZE M10030          TABLE N0. IS FIRST WORD OF TAPE TABLES.      F3B00270    
       00051  0 07400 4 00004        TSX 4,4             WR0NG TABLE. IS N0T FORTAG.         --.      F3BA1280    
       00052  0 70000 0 02331 M10030 CPY FORTAG-1        READ 2ND FORTAG TABLE WORD AND TEST          F3B00290    
       00053  0 50000 0 02331        CLA FORTAG-1        THERE ARE FORTAG ENTRIES.                    F3B00300    
       00054  0 10000 0 00061        TZE M10040          FORTAG TABLE ENTRIES ARE 1 WORD.             F3B00310    
       00055  0 53400 2 02173        LXA M1CON,2         LOAD 0 INTO INDEX REG. B.                    F3B00320    
       00056  0 70000 2 02332 M10035 CPY FORTAG,2        READ 3RD AND SUCCEEDING WORDS                F3B00330    
       00057  1 77777 2 00056        TXI M10035,2,-1     OF FORTAG INTO C0NSEC, L0CATIONS.            F3B00340    
       00060  0 07400 4 00004        TSX 4,4             EOF SKIP. FORTAG N0T LAST REC. OF FILE.      F3B00350    
       00061  0 07400 2 00064 M10040 TSX M10043,2        TEST IF TAPE READ C0RRECTLY.                 F3B00360    
       00062  0 76100 0 00044        NOP M10020          RE-READ TAPE L0CATION.                       FI2A0370    
       00063  0 02000 0 00075        TRA M10050          C0NTINUE IN MAIN PROGRAM.                    F3B00380    
       00064  0 76600 0 00333 M10043 WRS 219             DELAY 704 FOR RTT TEST.                      F3BA2390    
       00065 -0 76000 0 00012        RTT                                                             )MNJJJJJI    
       00066  0 02000 0 00070        TRA M10045          T0 TAPE READ ERROR ROUTINE.                  F3B00410    
       00067  0 02000 2 00002        TRA 2,2             TAPE 2 READ C0RRECTLY. RETURN MAIN RTN,      F3B00420    
       00070  0 50000 2 00001 M10045 CLA 1,2             TAPE READ ERROR RTN. INITIALIZE       .      F3B00430    
       00071  0 62100 0 00073        STA M10048          TIX ADDRESS T0 RETURN T0 PROPER              F3B00440    
       00072  0 76400 0 00222        BST 146             RE-READ TAPE L0CATION.                       F3B00450    
       00073  2 00001 1 00000 M10048 TIX 0,1,1                                                        F3B00460    
       00074  0 07400 4 00004        TSX 4,4             BINARY READ 5 TIMES UNSUCCESSFULLY           F3B00470    
                                         P0SITIONING OF TAPE 2, TAPE 3, TAPE 4, T0 READ COMPAIL       F3B00480    
                                         WRITE MERGE 1, AND READ D0 FILE, RESP.                       F3B00490    
       00075  0 77200 0 00223 M10050 REW 147             REWIND TAPE 3 T0 WRITE MERGE 1.              F3B00500    
       00076  0 77200 0 00224        REW 148             REWIND TAPE 4 FOR COMPD0 FILE.               F3B00510    
       00077  0 76200 0 00224        RDS 148             SPACE 0VER TRALEV THE 1ST FILE 0N            F3B00520    
