                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 146/146 ------           
                        01373 L(10)  SYN TEN                                                          4F15931     
                        01400 L(11)  SYN EQUAL                                                        4F15932     
                        01420 L(12)  SYN MINUS                                                        4F15933     
                        01454 L(1D)  SYN 2E18                                                         4F15934     
                        01374 L(63)  SYN ENDMK                                                        4F15935     
                        03440 MEMORG SYN 1824                      MEMORY ORIGIN FOR ALL STATES.      4F15936     
                        01452 MSK    SYN MASK2                                                        4F15937     
                        02402 MTR000 SYN STATEA                                                       4F15938     
                        02430 MTR300 SYN MTR3                                                         4F15942     
                        01103 N      SYN ERASE+3                   COMMON  WORKING  STORAGE.          4F15943     
                        00172 PLUS   SYN 122                                                          4F15945     
                        01566 PXD    SYN L(PXD)                                                       4F15946     
                        01100 RAXR4  SYN ERASE                     COMMON  WORKING  STORAGE.          4F15947     
                        01226 SIGMA1 SYN 0662                      DRUM TABLE ORIGIN -DRTABS.         4F15948     
                        01101 SR6WRK SYN ERASE+1                   ERASABLE STORAGE.                  4F15949     
                        01416  ST    SYN L(8)                                                         4F15950     
                        01571 STA    SYN L(STA)                                                       4F15951     
                        01104 STCKSM SYN ERASE+4                   COMMON WORKING STORAGE,            4F15952     
                        00224 TABTAP SYN 148                       TABLE TAPE.                        4F15953     
                        01453 TAG4   SYN 2E17                                                         4F15954     
                        00000 TAU1   SYN 0000                      DRUM TABLE ORIGIN -DRTABS.         4F15955     
                        00454 TAU2   SYN 0300                      DRUM TABLE ORIGIN -DRTABS.         4F15956     
                        07246 TAU3   SYN 3750                      DRUM TABLE ORIGIN -DRTA8S.         4F15957     
                        01413 TERC   SYN L(5)                      TAPE ERROR COUNTER.                4F15958     
                        01103 TETMQR SYN ERASE+3                   ERASABLE STORAGE,                  4F15959     
                        01102 TETWRK SYN ERASE+2                   ERASABLE STORAGE.                  4F15960     
                        01100 TETXR2 SYN ERASE                     ERASABLE STORAGE.                  4F15961     
                        01101 TETXR4 SYN ERASE+1                   ERASABLE STORAGE.                  4F15962     
                        01576  TIX   SYN L(TIX)                                                       4F15963     
                        00001 ZER    SYN 01                                                           4F15964     
                        00000 ..     EQU 0                                                            4F15965     
                                         END OF SYNONYMS USED BY SECTION ONE.                         4F15966     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F15967     
                                                                                                      4F15968     
                                         END OF SECTION ONE.                                          4F15969     
 A                      00000        END                                                              4F15970     
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP    6142           0           0           0           0
 LIB       0           0           0           0           0
 COL    6142           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS     6151                  
0NUMBER OF SYMBOLS,  DEF  1394,DEFOP     0,UNDEF     0      
9            REM 704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000.      4F1D0010    
1                                        704 FORTRAN MASTER RECORD CARD / DIAGNOSTIC = F0200000.      4F1D0010    
                                         ----------FILE: 147.PNG-----------------------------INCLUDE PREV LINE    
                        00000        ORG 0                                                            4F1D0020    
       00000  0 13440 0 13440        PZE DIAG,,DIAG                                                   4F1D0030    
       00001  0 00000 0 17777        PZE 8191                                                         4F1D0040    
                                         704 FORTRAN TWO, SECTION ONE DIAGNOSTIC RECORD F020.         4F1D0050    
                                                                                                      4F1D0060    
                                         THIS RECORD IS CALLED IN FROM TAPE ONCE FOR EACH ERROR IN    4F1D0070    
                                         SECTION ONE AND ONCE AT THE END OF SECTION ONE,              4F1D0080    
                                                                                                      4F1D0090    
                        13440 DIAG   ORG 1824+4096         MOD 4K OR 8K MACHINE SIZE                  4F1D0100    
                        00001 A      EQU 1                                                            4F1D0110    
                        00002 B      EQU 2                                                            4F1D0120    
                        00004 C      EQU 4                                                            4F1D0130    
                        77777 EXITX  EQU 32767                                                        4F1D0140    
       13440  3 00000 4 13543 EDIT   TXH ERENT,C,0         IF IR4 IS ZERO THIS IS THE END OF SEC ONE. 4F1D0150    
       13441  0 50000 0 00020        CLA 16                IF NON ZERO IT IS AN ERROR CALL,           4F1D0160    
       13442 -0 32000 0 14033        ANA L(4)D             IF IT IS THE END OF SEC ONE WERE THERE ANY 4F1D0170    
       13443  0 10000 0 00004        TZE 4                 ERRORS DURING SECTION ONE ( INDICATED BY   4F1D0180    
       13444  0 07400 4 14121        TSX PRINT,C                                                      4F1D0190    
       13445  0 14104 0 14067        HTR STOP,0,XCOM                                                  4F1D0200    
       13446  0 07400 4 14121        TSX PRINT,C           BIT IN WORD 20 OCTAL), IF THERE WERE NO    4F1D0210    
       13447  0 14045 0 14044        PZE RESTR,0,RESTR+1   ERRORS GO TO SEC ONE PRIME. IF THERE WERE  4F1D0220    
       13450  0 53400 4 02367        LXA DCELL1,4          GET INDICATOR OF SOURCE PROGRAM ERRORS.    4F1D0230    
       13451  3 00000 4 13456        TXH SOURCE,4,0        TEST IF ANY OF ERROR WERE SOURCE.          4F1D0240    
       13452  0 53400 4 14013        LXA L(8),4            NONE WERE, SO BACKSPACE TAPE 1 TO MACHINE  4F1D0250    
       13453  0 76400 0 00201        BST 1                 ERROR RECORD.                              4F1D0260    
       13454  2 00001 4 13453        TIX *-1,4,1                                                      4F1D0270    
       13455  0 02000 0 00004        TRA 4                 NOW GO TO 1 TO CS FOR MACHINE ERROR RECORD.4F1D0280    
       13456  0 53400 4 14015 SOURCE LXA L(12),4           SOME SOURCE PROGRAM ERRORS, RECOMPILATION  4F1D0290    
       13457  0 76400 0 00201        BST 1                 MEANINGLESS. BACKSPACE TAPE 1 TO SOURCE    4F1D0300    
       13460  2 00001 4 13457        TIX *-1,4,1           PROGRAM ERROR RECORD.                      4F1D0310    
       13461  0 02000 0 00004        TRA 4                 NOW GO TO 1 TO CS FOR THIS RECORD.         4F1D0320    
                        13462        BSS 10                EXPANSION AREA.  FOR PESSIMISM...          4F1D0330    
                                         NUMBERS           OF MACHINE ERROR CALL FROM SECTION ONE,    4F1D0340    
       13474  000002000304    MACERR BCD 1002034                                                      4F1D0350    
       13475  000002000602           BCD 1002062                                                      4F1D0360    
       13476  000002020606           BCD 1002266                                                      4F1D0370    
       13477  000002040303           BCD 1002433                                                      4F1D0380    
       13500  000002040304           BCD 1002434                                                      4F1D0390    
       13501  000002040305           BCD 1002435                                                      4F1D0400    
       13502  000002040306           BCD 1002436                                                      4F1D0410    
       13503  000002050203           BCD 1002523                                                      4F1D0420    
       13504  000002050605           BCD 1002565                                                      4F1D0430    
       13505  000003020702           BCD 1003272                                                      4F1D0440    
       13506  000003050601           BCD 1003561                                                      4F1D0450    
       13507  000005070105           BCD 1005715                                                      4F1D0460    
       13510  000004030407           BCD 1004347                                                      4F1D0470    
       13511  000005020303           BCD 1005233                                                      4F1D0480    
       13512  000000050503           BCD 1000553                                                      4F1D0490    
       13513  000000050600           BCD 1000560                                                      4F1D0500    
       13514  000000050603           BCD 1000563                                                      4F1D0510    
       13515  000000050606           BCD 1000566                                                      4F1D0520    
       13516  000100050304           BCD 1010534                                                                  
