                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 380/384 ------           
       00334  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B02150    
       00335  1 77775 2 00336 RST060 TXI RST060+1,2,-3                                                F3B02160    
       00336  2 00003 1 00327        TIX RST040+3,1,3    SXTX TABLE LENGTH IN 1RA,                    F3B02170    
       00337  0 02000 0 00340        TRA M10200          SXTX TABLE IN CORES SUCCESSFULLY.            F3B02180    
                                         READ AIL, READ D0 ROUTINES                                   F3B02190    
       00340  0 53400 4 02173 M10200 LXA M1CON,4         0 IN IRC WHEN SKIPPING CL0SED SRTNS.         F3B02200    
       00341  0 50000 0 02174 M10210 CLA M1CON+1         STORE 1 IN M1TRC, TP 2.                      F3B02210    
       00342  0 60100 0 02311        STO M1TRC           READ ERROR COUNTER.                          F3B02220    
       00343  0 76200 0 00222 M10220 RDS 146             READ 1 RECORD OF AIL, THE 2ND                F3B02230    
       00344  0 53400 1 02173        LXA M1CON,1         FILE 0N TP 2 ALREADY P0SITIONED.             F3B02240    
       00345  0 70000 1 02332 M10230 CPY AIL,1           AIL REC. READ 0VER FORTAG FILE.              F3B02250    
       00346  1 77777 1 00345        TXI M10230,1,-1     IRA GIVES P0SITION IN AIL RECORD.            F3B02260    
       00347  0 02000 0 00521        TRA M10800          END OF AIL FILE.                             F3B02270    
       00350  0 76600 0 00333        WRS 219             END OF AIL RECORD.                           F3B02280    
       00351 -0 76000 0 00012        RTT                                                              F3B02290    
       00352  0 02000 0 00501        TRA M10700          REDUNDANCY WHEN READING TP 2.                F3B02300    
       00353 -0 63400 1 02310 M10240 SXD M1ALWN,1        STORE 2S COMPL AIL WORD COUNT                F3B02310    
       00354  0 53400 1 02173        LXA M1CON,1         IN CURRENT AIL REC, USUALLY 100              F3B02320    
       00355 -0 75400 4 00000        PXD 0,4             RD RTN ENTRY VIA TSX  ----       -.-..       F3B02330    
       00356  0 10000 0 00360        TZE PAT1            ROUTINE T0 SKIP 0VER FORTRAN FUNCTIONS       F3B02340    
       00357  0 02000 4 00002 RET1   TRA 2,4             IRC VALUE SET BY TSX RETURN F FCN TEST       F3B02350    
       00360 -0 50000 1 02332 PAT1   CAL AIL,1           A FORTRAN FCN, A CL0SED SUBRTN,              F3B02360    
       00361 -0 32000 1 02333        ANA AIL+1,1         IS IDENTIFIED BY 4 WORDS                     F3B02370    
       00362 -0 32000 1 02334        ANA AIL+2,1         FILLED WITH 1 BITS.                          F3B02380    
       00363 -0 32000 1 02335        ANA AIL+3,1         TEST IF AIL ENTRY.IS ALL-1-BITS,             F3B02390    
       00364  0 60200 0 05742        SLW ERAS            INDICATES SUCCEEDING ENTRIES                 F3B02400    
       00365  0 50000 0 05742        CLA ERAS            BEL0NG T0 A FORTRAN FCN AND                  F3B02410    
       00366  0 40200 0 02214        SUB M1CON+17        ARE SKIPPED 0VER-HERE,- ---                  F3B02420    
       00367 -0 10000 0 00410        TNZ PAT5            AIL ENTRY N0T A FORTRAN-FCN.                 F3B02430    
       00370  0 50000 0 02201        CLA M1CON+6         AIL ENTRY IS A FORTRAN.FCN.                  F3B02770    
       00371  0 62200 0 00411        STD PAT5+1          STORE 1 IN DECRE..F FCN-EXISTS.=-==          F3B02450    
       00372  1 77774 1 00420        TXI OUT34,1,-4      T0 TEST IF LAST AIL INSTR-OF BUFFER.         F3B02460    
       00373 -0 75400 1 00000 PAT2   PXD 0,1             COMPARE N0. CURRENT WORD OF                  F3B02470    
       00374  0 34000 0 02310        CAS M1ALWN          AIL REC WITH AIL.REC-COUNT=-                 F3B02480    
       00375  0 02000 0 00400        TRA PAT3            T0 TEST IF LAST INSTR IN REC.                F3B02490    
       00376  0 07400 4 00341        TSX M10210,4        READ NEXT AIL RECORD. --- -- --              F3B02500    
       00377  0 07400 4 00004        TSX 4,4             WD COUNT-N0T EQUAL-T0-REC COUNT              F3B02510    
       00400  0 50000 1 02332 PAT3   CLA AIL,1           TEST IF 0PEN SUBRTN END, -                   F3B02520    
       00401 -0 10000 0 00403        TNZ PAT4            BY 1S IN FIRST WORD OF-ENTRY.  - --          F3B02530    
       00402  1 77774 1 00373        TXI PAT2,1,-4       0S IN IST-WORD INDICATES F FCN ENTRY         F3B02540    
       00403  0 40200 0 02214 PAT4   SUB M1CON+17        -377777777777.  -     =- --                  F3B02550    
       00404 -0 10000 0 00410        TNZ PAT5            IST DESIRED AIL ENTRY F0UND                  F3B02560    
       00405 -0 50000 1 02332        CAL AIL,1           TEST IF CURRENT ENTRY                        FIBYI570    
       00406 -0 32000 1 02333        ANA AIL+1,1         AN 0PEN SUBRTN-END-0R                        F3B02580    
       00407  0 02000 0 00412        TRA OUT24           AN0THER FORTRAN FCN.                         F3B02590    
       00410  0 53400 4 02173 PAT5   LXA M1CON,4                           .  -- -.--.-               F3B02600    
 TD    00411 -3 00000 0 00426        TXL M10250          UNC0N. TR.T0 READ=IN D0 RECORD.              F3B02610    
       00412 -0 32000 1 02334 OUT24  ANA AIL+2,1         C0NTINUATION-OF TEST-1F                      F3B02620    
       00413 -0 32000 1 02335        ANA AIL+3,1         CURRENT-ENTRY=F=FCN 0R                       F3B02630    
       00414  0 76000 0 00006        COM                 0PEN SUBRTN-ENTRY.                           F3B02640    
       00415 -0 32000 0 02214        ANA M1CON+17        E377777777777.- = =--                        F3B02650    
       00416  0 10000 0 00372        TZE PAT2-1          ENTRY INDICATES F FCN.                       F3B02660    
       00417  1 77774 1 00373        TXI PAT2,1,-4       0PEN SUBRTN ENDI=-- --=- ==                  F3B02670    
       00420 -0 75400 1 00000 OUT34  PXD 0,1             COMPARE N0. CURRENT WORD OF                  F3B02680    
