                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 434/438 ------           
       00663  0 76600 0 00333        WRS 219             EOR) 0N TAPE 3                               F3B04310    
       00664 -0 76000 0 00012        RTT                 IS TAPE CHECK-INDICAT0R 0N                   F3B04320    
       00665  0 02000 0 00672        TRA M3B2                YES        .-.--)-= ==                   F3B04330    
       00666 -0 63400 2 01212        SXD TFGWC,B             N0                                       F3B04340    
       00667  0 53400 2 01141        LXA L(0),B          RESET INDEX OF TIFG0 BUFFER                  F3B04350    
       00670 -0 53400 1 01211        LXD E3M3,A          RESTORE INDEX OF.FIRST-FILE BUFFER           F3B04360    
       00671  0 02000 4 00001        TRA 1,C             EXIR. BACK T0 MAIN-ROUTINE- ==.)==           F3B04370    
       00672  0 76400 0 00222 M3B2   BST 146                        )- )-.- ===).=-                   F3B04380    
       00673  2 00001 1 00656        TIX M3B3,A,1        ERROR ROUTINE                                F3B04390    
       00674  0 07400 4 00004        TSX 4,4             ERROR READING TAPE 2. TIFG0 FILE             F3B04400    
       00675  0 76000 0 00142 M3B4   PSE 98              INDICATE END OF-T7FG0 FILE= .,-4             F3B04410    
       00676 -0 53400 1 01211        LXD E3M3,A          RESTORE INDEX OF)FIRST)F7LE BUFFER           F3B04420    
       00677  0 02000 4 00001        TRA 1,C             TRANSFER T0 HAIN ROUT(NE-4- ==,)4=           F3B04430    
                                         SU8ROUTINE FOR READING A RECOR0 OF FIRST FILE                F3B04440    
       00700 -0 63400 2 01210 READFF SXD E2M3,B          SAVE COUNT IN IR 2 FOR-L(NKAGE               F3B04430    
       00701  0 53400 2 01202        LXA M3ECTR,B        ERROR COUNT      . )-- -----=-               F3B07760    
       00702  0 76200 0 00223 M3A3   RDS 147             READ FIRST F)LE FR0H TAPE 3                  F3B04470    
       00703  0 53400 1 01141        LXA L(0),A          INITIALIZE IR1 T0 ZERO-.- .                  F3B04480    
       00704  0 70000 1 02362 M3A1   CPY FFLBUF,A        COPY FIRST FILE INTO BUFFER                  F3B04490    
       00705  1 77777 1 00704        TXI M3A1,A,-1                       ..)- ==).-=                  F3B04500    
       00706  0 02000 0 00721        TRA M3A4            EOF                                          F3B04510    
       00707  0 76600 0 00333        WRS 219             EOR DELAY 704  T0 MAKE TAPE TEST             F3B04520    
       00710 -0 76000 0 00012        RTT                            -   )- )--- )-.- )==)             F3B04530    
       00711  0 02000 0 00716        TRA M3A2            ERROR ROUTINE                                F3B04540    
       00712 -0 63400 1 01220        SXD FFLWC,A         SAVE LOCAT0N WORD OF FIRST FILE              F3B04550    
       00713  0 53400 1 01141        LXA L(0),A          RESET INDEX OF FIRST F1LE)BUFFER             F3B04560    
       00714 -0 53400 2 01210        LXD E2M3,B          RESTORE INDEX OF TIFG0 FILE-BUFFER           F3B04570    
       00715  0 02000 4 00001        TRA 1,C                                      )---).- )-4         F3B04580    
       00716  0 76400 0 00223 M3A2   BST 147             BACKSPACE TAPE 3 T0 TRY AGAIN                F3B04590    
       00717  2 00001 2 00702        TIX M3A3,B,1                            ))  ---.=                F3B04600    
       00720  0 07400 4 00004        TSX 4,4             ERROR READING FIRST FILE FR0M TAPE 3         F3B04610    
       00721  0 76000 0 00141 M3A4   PSE 97              INDICATE END DF FIRST.F7LE--- )-.= ,         F3B04620    
       00722 -0 53400 2 01210        LXD E2M3,B          RESTORE INDEX OF TIFG0 FILE BUFFER           F3B04630    
       00723  0 02000 4 00001        TRA 1,C                                      )---)---)-=         F3B04640    
                                         TSXCOM TABLE SEARCH                                          F3B04650    
       00724 -0 63400 1 01211 M31000 SXD E3M3,1          SAVE LINKAGE OF FIRST F(LE BUFFER            F3B04660    
       00725 -0 63400 4 01210        SXD E2M3,4          SAVE LINKAGE FR0MT TSX )NSTR7))-4            F3B04670    
       00726  0 60000 0 01065        STZ DUP             REINITIALIZE HTE INSTR.  -).-                F3B04680    
       00727  0 50000 0 01226 M31005 CLA TSXCOM-2        TEST WORD COUNT OF CHECK SUH                 F3B04690    
       00730  0 40200 0 01227        SUB TSXCOM-1                                  ..-                F1117111    
       00731  0 10000 0 01017        TZE M31080          CHECK SUH EQUALS WORD COUNT                  F3B04710    
       00732 -0 53400 1 01226        LXD TSXCOM-2,1      WORD COUNT IN IR1         )                  F3B04720    
       00733  0 50000 1 01230        CLA TSXCOM,1        FIRST ENTRY                                  LC117111    
       00734 -0 32000 0 01162        ANA MASK            SAVE DECREMENT, INTERNAL FMLA. N0.           F3B04740    
       00735  0 40200 0 01221        SUB FFLCFN          FIRST FILE LOCATIQN ND.    --. .             F3B04750    
       00736 -0 10000 0 01017        TNZ M31080          N0T EQUAL.  N0 TSXCOM ENTRY                  F3B04760    
                                         CUR FIRST FILE FHLA N0 APPEARS IN TSXCOM                     F3B04770    
       00737 -0 50000 1 01231 M31015 CAL TSXCOM+1,1                                                   F3B04780    
       00740 -0 32000 0 01165        ANA PMASK           SAVE SIGN OF SECON0 W0. OF ENTRY             F3B04700    
       00741  0 10000 0 01057 CQR3   TZE CIT07+6         TYPE 1 ENTRY NEGAT)VE      ----)             F3B04800    
       00742  0 50000 1 01230        CLA TSXCOM,1        TYPE 2 ENTRY                                 F3B04810    
       00743 -0 32000 0 01163        ANA AMASK           SAVE ADDRESS AND STORE )N                    F3B04820    
       00744  0 60100 0 01225        STO FFLCOM+3        4TH WORD OF FIRST FILE CDHPILER              F3B04830    
       00745  0 50000 1 01231        CLA TSXCOM+1,1      SECOND WORD OF ENTRY        ---              F3B04840    
