                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 382/386 ------           
       00506  0 76400 0 00222 M10705 BST 146             COUNTER AND READ AIL                         F3B03230    
       00507  0 02000 0 00343        TRA M10220          RECORD AGAIN.                                F3B03240    
       00510  0 07400 4 00004 M1EATC TSX 4,4             AIL REC. READ 5 TIMES UNSUCCESSFULLY.        F3B03250    
       00511  0 50000 0 02311 M10750 CLA M1TRC           REDUNDANCY CHECK READING                     F3B03260    
       00512  0 40200 0 02167        SUB M1ECTR          D0 RECORD. TEST IF                           F3B03270    
       00513  0 10000 0 00520        TZE M1EDTC          TAPE 2 READ ALREADY 5                        F3B03280    
       00514  0 40000 0 02170        ADD M1ECTR+1        TIMES. IF N0T, INCREASE                      F3B03290    
       00515  0 60100 0 02311        STO M1TRC           COUNT BY 1 IN TAPE READ                      F3B03300    
       00516  0 76400 0 00224 M10755 BST 148             COUNTER AND READ D0                          F3B03310    
       00517  0 02000 0 00430        TRA M10260          RECORD AGAIN                                 F3B03320    
       00520  0 07400 4 00004 M1EDTC TSX 4,4             D0 REC. READ 5 TIMES UNSUCCESSFULLY,         F3B03330    
       00521  0 76000 0 00141 M10800 PSE 97              END OF FILE FOR AIL ROUTINE.                 F3B03340    
       00522 -0 76000 0 00142        MSE 98              TURN SENSE LIGHT 1 0N FOR AIL                F3B03350    
       00523  0 02000 0 00526        TRA M10810          EOF AND TEST IF ENTRIES IN SXTX TBL          F3B03360    
       00524  0 76000 0 00142        PSE 98              BY LIGHT 2 0N.                               F3B03370    
       00525  0 02000 0 00536        TRA M10900          T0 WR 0N TP 3 INSTR IN BUFFER.               F3B03380    
       00526 -0 75400 4 00000 M10810 PXD 0,4             IRC ZER0 IF D0 FILE N0T READ YET.            F3B03390    
       00527  0 10000 0 00426        TZE M10250          T0 READ D0 FILE RECORD.                      F3B03400    
       00530  0 02000 0 00636        TRA M11030          T0 COMPILE D0 INSTRUCTIONS.                  F3B03410    
       00531  0 76000 0 00142 M10850 PSE 98              END OF FILE FOR D0 ROUTINE.                  F3B03420    
       00532 -0 76000 0 00141        MSE 97              TURN SENSE LIGHT 2 0N FOR D0                 F3B03430    
       00533  0 02000 0 00751        TRA M12000          EOF AND TEST IF AIL AT EOF.                  F3B03440    
       00534  0 76000 0 00141        PSE 97                                                           F3B03450    
       00535  0 02000 0 00536        TRA M10900                                                       F3B03460    
                                         M1 TERMINAL ROUTINE                                          F3B03470    
       00536  0 76600 0 00223 M10900 WRS 147             ROUTINE WR 0N TP 3 INSTR REMAINING           F3B03480    
       00537 -0 53400 2 02322        LXD BB0X,2          IN CIB BUFFER FR0M CIT.                      F3B03490    
       00540  0 76000 0 00140        PSE 96              TURN-OFF ALL SENSE LIGHTS.                   F3B03500    
       00541  0 70000 1 02642 M10910 CPY CIB,1                                                        F3B03510    
       00542  1 77777 1 00543        TXI M10920,1,-1                                                  F3B03520    
       00543  1 00001 2 00544 M10920 TXI M10920+1,2,1    IRB 2S COMP N0 WORDS CIB BUFFER.             F3B03530    
       00544  3 00001 2 00541        TXH M10910,2,1                                                   F3B03540    
       00545  0 77000 0 00223 M10930 WEF 147             WR FORTRAN FCNS 2ND FILE TP 3.               F3B03550    
       00546 -0 53400 2 00411 PAT10  LXD PAT5+1,2        WRITE FORTRAN FCNS AS 2ND FILE 0N TAPE 3.    F3B03560    
       00547  3 00000 2 00553        TXH PAT12,2,0       1 IN DECREMENT IF F FCNS IN AIL FILE.        F3B03570    
       00550  0 77000 0 00223 PAT11  WEF 147             WR 2ND TAPE HARK 0N TP 3 FOR MERGE 1 END.    F3B03580    
       00551  0 76200 0 00221        RTB 1               SPACE 0VER DIAGN0STIC RECORD.                F3B03590    
       00552  0 02000 0 00004        TRA 4               T0 READ IN MERGE 2.                          F3B03600    
       00553 -0 63400 1 02171 PAT12  SXD M1ECTR+2,1                                                   F3B03610    
       00554 -0 63400 2 02172        SXD M1ECTR+3,2                                                   F3B03620    
       00555  0 53400 1 02167        LXA M1ECTR,1        LOAD 5 INTO IRC TP RD ERROR CTR.             F3B03630    
       00556  0 76200 0 00222        RDS 146             READ AIL RECORD COUNT, THE                   F3B03640    
       00557  0 70000 0 05742        CPY ERAS            NEXT FILE AFTER AIL EOF                      F3B03650    
       00560  0 07400 2 00064        TSX M10043,2        T0 BACKSPACE TP 2 T0                         F3B03660    
       00561  0 76100 0 00556        NOP PAT12+3         START OF AIL FILE T0 GET                     F3B03670    
       00562 -0 53400 1 02171        LXD M1ECTR+2,1      F FCNS AT BEGINNING OF COMPAIL FILE.         F3B03680    
       00563 -0 53400 2 02172        LXD M1ECTR+3,2                                                   F3B03690    
       00564  0 53400 2 05742        LXA ERAS,2                                                       F3B03700    
       00565  1 00002 2 00566        TXI PAT13,2,2                                                    F3B03710    
       00566  0 76400 0 00222 PAT13  BST 146                                                          F3B03720    
       00567  2 00001 2 00566        TIX PAT13,2,1                                                    F3B03730    
       00570  0 76000 0 00142        PSE 98              PUT LIGHT 2 0N FOR D0 EOF.                   F3B03740    
       00571  0 76000 0 00143        PSE 99              PUT LIGHT 3 0N FOR N0 CHTG TBL.              F3B03750    
       00572  0 50000 0 02173        CLA M1CON           INITIALIZE BB0X WITH 0. BB0X                 F3B03760    
