                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 383/387 ------           
       00573  0 60100 0 02322        STO BB0X            KEEPS COUNT OF RECORDS IN CIB BUFFER.        F3B03770    
       00574  0 07400 4 00341        TSX M10210,4        T0 READ AIL FILE FOR FORTRAN FCNS.           F3B03780    
       00575  0 76100 0 00000        NOP                 N0P NEEDED FOR ROUTINE AT RET1.              F3B03790    
       00576 -0 50000 1 02332 PAT14  CAL AIL,1           TEST FOR FORTRAN FCN. AIL                    F3B03800    
       00577 -0 32000 1 02333        ANA AIL+1,1         WORD ALL ONES IF A FORTRAN FCN.              F3B03810    
       00600 -0 32000 1 02334        ANA AIL+2,1                                                      F3B03820    
       00601 -0 32000 1 02335        ANA AIL+3,1                                                      F3B03830    
       00602  0 60200 0 05742        SLW ERAS                                                         F3B03840    
       00603  0 50000 0 05742        CLA ERAS                                                         F3B03850    
       00604  0 40200 0 02214        SUB M1CON+17                                                     F3B03860    
       00605 -0 10000 0 00615        TNZ OUT             ENTRY IS N0T A FORTRAN FCN.                  F3B03870    
       00606  1 77774 1 00607 PAT15  TXI PAT15+1,1,-4                                                 F3B03880    
       00607 -0 75400 1 00000        PXD 0,1             TEST IF LAST WORD OF                         F3B03890    
       00610  0 34000 0 02310        CAS M1ALWN          AIL BUFFER.                                  F3B03900    
       00611  0 02000 0 00751        TRA M12000          T0 AIL COMPILATION ROUT1NE.                  F3B03910    
       00612  0 07400 4 00341 PAT16  TSX M10210,4        T0 READ NEXT AIL ENTRY.                      F3B03920    
       00613  0 07400 4 00004        TSX 4,4             N0. OF WORDS OF AIL REC N0T A HULTIPLE OF 4  F3B03930    
       00614  0 02000 0 00751        TRA M12000          T0 AIL COMPILATION ROUTINE.                  F3B03940    
       00615  1 77777 2 00616 OUT    TXI OUT1,2,-1       HAKE IRB VALUE ZER0.                         F3B039S0    
       00616 -0 63400 2 00411 OUT1   SXD PAT5+1,2        DECREMENT ZER0 HEANS N0 FORTRAN FCNS.        F3B03960    
       00617  0 76200 0 00222 OUT13  RDS 146             SPACE 0VER REHAINING                         F3B03970    
       00620  0 70000 0 05742 OUT14  CPY ERAS            AIL ENTRIES WHICH ARE                        F3B03980    
       00621  0 02000 0 00620        TRA OUT14           N0T FORTRAN FCNS T0 P0SITION                 F3B03990    
       00622  0 02000 0 00624        TRA OUT22           TAPE 2 AT END OF AIL FILE.                   F3B04000    
       00623  0 02000 0 00617        TRA OUT13                                                        F3B04010    
       00624  0 53400 1 02173 OUT22  LXA M1CON,1                                                      F3B04020    
       00625  0 02000 0 00536        TRA M10900          T0 WR ANY F FCN ENTRIES IN CIB 8UFFER.       F3B04030    
                                         COMPAIL INSTR USUALLY HERGED AHEAD OF COMPD0 INSTR IF B0TH   F3B04040    
                                         HAVE SAME FMLA N0, EXCEPT FOR READ AND WRITE,WHEN D0 PRECEDESF3804030    
                                         THE AIL FOR TIMING REASQNS. FHLA N0. DECREHENT PART HERE.    F3B04060    
                                         COMPARIS0N OF AIL AND D0 FHLA N0S AND                        F3B04070    
                                         COMPILATION OF D0 INSTRUCTIONS                               F3B04080    
       00626  0 50000 2 02476 M11010 CLA DO,2            COMPARE AIL AND D0 INTERNAL                  F3B04090    
       00627  0 62200 0 02312        STD M1DOFN          FORMULA N0S.                                 F3B04100    
       00630  0 07400 4 00744 M11015 TSX ERR2,4          TEST FOR FORTRAN FCNS.                       F3B04110    
       00631 -0 32000 0 02210        ANA M1CON+13        +077777000000.                               F3B04120    
       00632  0 34000 0 02312        CAS M1DOFN                  COMPARE AIL AND                      F3B04130    
       00633  0 02000 0 00636        TRA M11030          AIL FMLA N0 GREATER D0 N0.                   F3B04140    
       00634  0 02000 0 00667        TRA M11070          AIL FMLA N0. EQUALS D0 N0.                   F3B04150    
       00635  0 02000 0 00751        TRA M12000          AIL FMLA N0. LESS D0 N0.                     F3B04160    
       00636  0 53400 4 02177 M11030 LXA M1CON+4,4       COMPILE D0 INSTR BY                          F3B04170    
       00637  0 50000 2 02476 M11031 CLA DO,2            GATHERING 4 WORDS FR0H                       F3B04180    
       00640  0 60100 4 02331        STO M1CW+4,4        D0 REC BUFFER AND PLACING                    F3B04190    
       00641  1 77777 2 00642        TXI M11035,2,-1     THEM IN CALLING SEQ L0CATIONS.               F3B04200    
       00642  2 00001 4 00637 M11035 TIX M11031,4,1                                                   F3B04210    
       00643  0 07400 4 00707        TSX CIT00,4         T0 CIT COMPILING ROUTINL.                    F3B04220    
       00644  0 00000 0 02325        HTR M1CW            CALLING SEQ FOR L0CATIONS                    F3B04230    
       00645  0 00000 0 02326        HTR M1CW+1          OF 4 COMPILED WORDS.                         F3B04240    
       00646  0 00000 0 02327        HTR M1CW+2                                                       F3B04250    
       00647  0 00000 0 02330        HTR M1CW+3                                                       F3B04260    
       00650 -0 75400 2 00000        PXD 0,2             TEST IF END OF CUR D0 REC                    F3B04270    
       00651  0 34000 0 02307        CAS M1DOWN          BY COMPARING CURRENT D0 WD                   F3B04280    
       00652  0 02000 0 00655        TRA M11055          P0SITION WITH T0TAL DQ                       F3B04290    
       00653  0 07400 4 00426        TSX M10250,4        REC WORD COUNT.                              F3B04300    
