                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 431/435 ------           
       00424  0 07400 4 00700  M1    TSX READFF,C                                                     F3B02690    
       00425 -0 76000 0 00141        MSE 97                  IS FIRST FILE USED UP                    F3B02700    
       00426  0 02000 0 00430        TRA M3                  N0                                       F3B02710    
       00427  0 02000 0 00330 C0R1   TRA H3+6                                                         F3B02720    
       00430  0 50000 1 02362  M3    CLA FFLBUF,A            D0ES NEXT INSTRUCTION IN                 F3B02730    
       00431 -0 32000 0 01162        ANA MASK                FIRST FILE BEL0NG T0 CURRENT             F3B02740    
       00432  0 34000 0 01221        CAS FFLCFN              COMPILED BLOCK                           F3B02750    
       00433  0 02000 0 00436        TRA M4                  N0                                       F3B02760    
       00434  0 76100 0 00000        NOP                     YES                                      F3B02770    
       00435  0 02000 0 00405        TRA L5                  YES                                      F3B02780    
       00436 -0 75400 2 00000 M4     PXD 0,2             TEST IF TIFG0 FILE BUFFER IS EMPTY           F3B02790    
       00437  0 34000 0 01212        CAS TFGWC                                                        F3B02800    
       00440  0 02000 0 00137        TRA C7                                                           F3B02810    
       00441  0 02000 0 00133        TRA C3                                                           F3B02820    
       00442  0 07400 4 00004        TSX 4,4             WORD COUNT INC0RRECT                         F3B02830    
                                         M3 TERMINAL ROUTINE                                          F3B02840    
       00443 -0 53400 1 01207  OUT   LXD BBOX,1          2S C 0HPLIMENT OF N0. OF WORDS               F3B02850    
       00444  0 50000 1 02523 PAT1   CLA CIB-3,1         ENTERED IN BLICK                             F3B02860    
       00445  0 40200 0 01172 PAT2   SUB L(TRA)          TEST IF TRA INSTRUCTION                      F3B02870    
       00446  0 10000 0 01137 PAT3   TZE RTN             YES                                          F3B02880    
       00447  0 02000 0 01066 C0R2   TRA PAT4            N0                                           F3B02890    
       00450 -0 63400 1 00454 RET1   SXD N2,1            SAVE INDEX REG. N0. IN COMPARE INSTR.        F3B02900    
       00451  0 53400 1 01141        LXA L(0),1          INITIALIZE IR 1 T0 1                         F3B02910    
       00452  0 70000 1 02526  N1    CPY CIB,1           REMAINDER OF                                 F3B02920    
       00453  1 77777 1 00454        TXI N2,1,-1             INSTRUCTIONS IN BUFFER                   F3B02930    
 D     00454  3 00000 1 00452  N2    TXH N1,1            TEST IF AT END OF BUFFER                     F3B02940    
       00455  0 77000 0 00204        WEF 4               YES, WRITE END OF FILE                       F3B02950    
       00456 -0 53400 4 07322 M32000 LXD 3794,4   WRITE 00 FILE C + FORTRAN FUNCTION FILE AS 2ND FILE F3B02960    
       00457  1 00003 4 00460        TXI M32005,4,3      P0SITION TAPE 2 T0 READ D0 FILE C            F3B02970    
       00460  0 76400 0 00222 M32005 BST 146                                                          F3B02980    
       00461  2 00001 4 00460        TIX M32005,4,1                                                   F3B02990    
       00462  0 76200 0 00222        RDS 146             READ D0 FILE C INTO STORAGE                  F3B03000    
       00463  0 70000 0 07323        CPY 3795                                                         F3B03010    
       00464  0 53400 4 07323        LXA 3795,4          WORD COUNT                                   F3B03020    
       00465  1 00004 4 00466        TXI BST,4,4                                                      F3B03030    
       00466  0 76400 0 00222 BST    BST 146             BACK T0 FIRST WD.                            F3B03040    
       00467  2 00001 4 00466        TIX BST,4,1                                                      F3B030,0    
       00470  0 76200 0 00222        RDS 146             PAST IDENTIFICATION COUNT                    F3B03060    
       00471  0 76200 0 00222        RDS 146             WORD COUNT                                   F3B030T0    
       00472  0 76600 0 00224        WRS 148             ZERO 0N TAPE 4                               F3B03080    
       00473  0 70000 0 01141        CPY L(0)                                                         F3B03090    
       00474  0 50000 0 01141        CLA L(0)            RESTORE BBOX T0 ZERO                         F3B03100    
       00475  0 60100 0 01207        STO BBOX                                                         F3B03110    
       00476  0 76000 0 00140        PSE 96              TURN OFF ALL SENSE SWITCHES                  F3B03120    
       00477  0 07400 4 00654 READ   TSX READTF,4        TREAD TIFG0 FILE                             F3B03130    
       00500 -0 76000 0 00142        MSE 98              TEST IF AT END OF TIFG0 FILE                 F3B03140    
       00501  0 02000 0 00503        TRA COMP            N0                                           F3B03150    
       00502  0 02000 0 00522        TRA FREAD           YES                                          F3B03160    
       00503  0 53400 4 01145 COMP   LXA L(4),4          4 IN IR 4                                    F3B03170    
       00504  0 50000 2 02216        CLA TFGBUF,2        SET UP F0UR WORDS FOR COMPILATION            F3B03180    
       00505  0 60100 4 01220        STO TFGCOM+4,4                                                   F3B03190    
       00506  1 77777 2 00507        TXI COMP1,2,-1                                                   F3B03200    
       00507  2 00001 4 00504 COMP1  TIX COMP+1,4,1                                                   F3B03210    
       00510  0 07400 4 01022        TSX CIT00,4         COMPILER                                     F3B03220    
