                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 021/021 ------           
       00512  0 00000 0 00000  D27   HTR 0                                                            F6S01600    
       00513  0 00000 0 00000  D30   HTR 0                                                            F6S01610    
       00514  0 00000 0 00000  D31   HTR 0                                                            F6S01620    
       00515  0 00000 0 00000  D32   HTR 0                                                            F6S01630    
       00516  0 00000 0 00000  D33   HTR 0                                                            F6S01640    
       00517  0 00000 0 00000  D34   HTR 0                                                            F6S01650    
       00520  0 00000 0 00000  D35   HTR 0                                                            F6S01660    
       00521  0 00000 0 00000  D36   HTR 0                                                            F6S01670    
       00522  0 00000 0 00000  D37   HTR 0                                                            F6S01680    
       00523  0 00000 0 00000  D40   HTR 0                                                            F6S01690    
       00524  0 00000 0 00000  D41   HTR 0                                                            F6S01700    
                        00551  D65   BES 20                                                           F6S01710    
 A                      00000        END                                                              F6S01720    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     185           0           0           0           0
 LIB       0           0           0           0           0
 COL     185           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      194                  
0NUMBER OF SYMBOLS,  DEF    82,DEFOP     0,UNDEF     0      
9            REM ************* FORTRAN II SECTION SIX ************************F6T00010    
1                                        ************* FORTRAN II SECTION SIX ************************F6T00010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 022/022 -----------I
                                         FORTRAN 2   RECORD 007  -  TAPE 3,7 TO 2,6.                  F6T00011    
                                                                                                      F6T00012    
                                         DUMP TAPE2 ONTO TAPE6 AND TAPE3 ONTO                         F6T00020    
                                         TAPE7 IF BATCH COMPILING                                     F6T00030    
                        00161  ZERO  EQU 113                                                                      
                        00162  ONE   EQU 114                                                                      
                        00177  SW1   EQU 127                                                                      
                        00200  SW2   EQU 128                                                                      
                        00210        ORG 136                                                          F6T00030    
       00210  0 77200 0 00202        REW 2              REWIND TAPES TWO AND THREE.                   F6T00040    
       00211  0 77200 0 00203        REW 3                                                            F6T00050    
       00212 -0 53400 1 00161        LXD ZERO,1                                                       F6T00060    
       00213  0 76000 0 00166        SWT 6              TEST SENSE SWITCH 6 TO SEE IF BATCH COMPILING.F6T00070    
       00214  0 02000 0 00317        TRA FINI           UP. DO NOT DUMP TAPES BUT GO TO FINI.         F6T00080    
       00215 -0 76000 0 00012  A11   RTT                                                              F6T00090    
       00216  0 76100 0 00000        NOP                                                              F6T00100    
       00217 -0 53400 4 00242  A6    LXD SEVEN,4        SET READ ERROR COUNTER.                       F6T00110    
       00220 -0 53400 2 00161  A2    LXD ZERO,2                                                       F6T00120    
       00221  0 76200 0 00202        RTD 2              READ A RECORD OF TAPE TWO.                    F6T00130    
       00222  0 70000 2 01371  A1    CPY REC-1,2                                                      F6T00140    
       00223  1 00001 2 00222        TXI A1,2,1                                                       F6T00150    
       00224  0 02000 0 00247        TRA EOF            EOF                                           F6T00160    
       00225  0 77100 0 00377        ARS 255                                                          F6T00170    
       00226  0 77100 0 00375        ARS 253                                                          F6T00180    
       00227 -0 76000 0 00012        RTT                                                              F6T00190    
       00230  0 02000 0 00243        TRA ERROR          ERROR                                         F6T00200    
       00231  1 77777 2 00232        TXI NEXT2,2,-1                                                   F6T00210    
       00232 -0 63400 2 00237  NEXT2 SXD A4,2           SAVE WORD COUNT OF RECORD TO USE WHEN WRITING.F6T00220    
       00233 -0 53400 2 00161        LXD ZERO,2                  ONTO TAPE6                           F6T00230    
       00234  0 76600 0 00206        WTD 6              WRITE RECORD JUST READ ONTO TAPE SIZE         F6T00240    
       00235  0 70000 2 01371  A3    CPY REC-1,2                                                      F6T00250    
       00236  1 00001 2 00237        TXI A4,2,1                                                       F6T00260    
       00237 -3 00237 2 00235  A4    TXL A3,2,*                                                       F6T00270    
       00240  0 76600 0 00333        IOD                                                              F6T00280    
       00241  0 02000 0 00215        TRA A11           GO READ NEXT RECORD FROM TAPE TWO.             F6T00290    
       00242  0 00005 0 00000  SEVEN     0,0,5                                                        F6T00300    
       00243  0 76400 0 00202  ERROR BST 2             READ ERROR PROCEDURE.                          F6T00310    
       00244  2 00001 4 00220        TIX A2,4,1                                                       F6T00320    
       00245  0 07400 4 00004        TSX 4,4                                                          F6T00330    
       00246  0 00000 0 00246  ER    HTR ER                                                           F6T00340    
       00247  0 77000 0 00206  EOF   WEF 6             AT END OF FILE ONE TAPE TWO. WRITE END OF FILE.F6T00350    
       00250  1 00001 1 00251        TXI A5,1,1                                                       F6T00360    
                                                       ON TAPE SIX.                                   F6T00370    
       00251  3 00001 1 00324  A5    TXH TEST2,1,1     TWO FILES DONE. YES, GO TEST SWITCH TWO.       F6T00380    
       00252  0 76200 0 00202        RTD 2             NO                                             F6T00390    
       00253  0 02000 0 00217        TRA A6                                                           F6T00400    
       00254  0 50000 0 00162  TAPE7 CLA ONE           TEST SENSE SWITCH ONE.                         F6T00410    
       00255  0 34000 0 00177        CAS SW1                                                          F6T00420    
       00256  0 02000 0 00314        TRA EOF3+1                                                       F6T00430    
       00257  0 02000 0 00262        TRA A7                                                           F6T00440    
       00260  0 76000 0 00161        SWT 1                                                            F6T00450    
       00261  0 02000 0 00314        TRA EOF3+1                                                       F6T00460    
