                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 033/033 ------           
       00617 +377777777777     MK2   OCT 377777777777                                                 F1BM3340    
       00620 -0 00000 0 00000  COL1  MZE                                                              F1BM3350    
                        00621  COL   BSS 1                                                            F1BM3360    
                        00642  RT    BES 16                                                           F1BM3370    
                        00642  8.5   BSS 1                                                            F1BM3380    
                        00643  8.4   BSS 1                                                            F1BM3390    
                        00644  8.3   BSS 1                                                            F1BM3400    
                        00645  8.2   BSS 1                                                            F1BM3410    
                        00657  D     BES 9                                                            F1BM3420    
                        00657  Z     BSS 1                                                            F1BM3430    
                        00660  X     BSS 1                                                            F1BM3440    
                        00661  Y     BSS 1                                                            F1BM3450    
                        00662  LT    SYN Y+1                                                          F1BM3460    
                        00644  8.4L  SYN LT-14                                                        F1BM3470    
                        00624  8.4R  SYN RT-14                                                        F1BM3480    
                        00662        BSS 27                                                           F1BM3490    
                        00030        END 24                                                           F1BM3500    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP     362           0           0           0           0
 LIB       0           0           0           0           0
 COL     362           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS      410                  
0NUMBER OF SYMBOLS,  DEF   131,DEFOP     0,UNDEF     0      
9            REM MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR   F1ME0010    
1                                        MACHINE ERROR RECORD. THIS RECORD HALTS TO PERMIT OPERATOR   F1ME0010    
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 034/034 -----------B
                                         INTERVENTION. IF THE SAME SOURCE PROGRAM IS TO BE RE-TRIED,  F1ME0020    
                                         OPERATOR SHOULD PRESS START.  IF NEXT SOURCE PROGRAM IS TO BEF1ME0030    
                                         COMPILED, THE OPERATOR MUST MANUALLY TURN SL1-ON, AND PRESS  F1ME0040    
                                         START.                                                       F1ME0050    
       00000  0 00000 0 00000                                                                         F1ME0060    
                                         MASTER RECORD CARD = F0130000.                               F1ME0070    
                        00030        ORG 24                                                           F1ME0080    
       00030  0 00000 0 00031        HTR NEXTIN                                                       F1ME0090    
       00031 -0 76000 0 00141 NEXTIN SLT 1                                                            F1ME0100    
       00032  0 02000 0 00004        TRA 4               GO TO 1 - CS TO REPEAT PROBLEM.              F1ME0110    
       00033  0 76400 0 00201        BST 1               BACKSPACE OVER MACHINE ERROR RECORD.         F1ME0120    
       00034  0 76400 0 00201        BST 1               BACKSPACE OVER BATCH MONITOR                 F1ME0130    
       00035  0 02000 0 00004        TRA 4               TO 1-CS TO READ NEXT RECORD.                 F1ME0160    
                        00030        END 24                                                           F1ME0170    
0SHARE ASSEMBLER STATISTICS                                 
0TAPE  TOTAL      1 FAIL      2 FAIL      3 FAIL      4 FAIL
 INP      16           0           0           0           0
 LIB       0           0           0           0           0
 COL      16           0           0           0           0
0NUMBER OF ON-LINE INPUT RECORDS         0                  
0NUMBER OF OFF-LINE PRINT RECORDS       25                  
0NUMBER OF SYMBOLS,  DEF     1,DEFOP     0,UNDEF     0      
9            REM PST                                                                      
1                                        PST                                                                      
                                         ----------- SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 035/035 -----------B
                                         APPLIED PROGRAMMING, IBM , L. MAY AND A. S. NOBLE JR.                    
                                         704 FORTRAN II / SECTONR ONE.                   29 OCT 58                
                                                                                                                  
                                         SECTION 1= READS IN AND CLASSIFIES STATEMENTS. FOR ARITHMETIC4F10000     
                                         FORMULAS, COMPILES THE OBJECT (OUTPUT) INSTRUCTIONS. FOR     4F10001     
                                         NONARITHMETIC STATEMENTS INCLUDING INPUT-OUTPUT, DOES A      4F10002     
                                         PARTIAL COMPILATION, AND RECORDS THE REMAINING INFORMATION   4F10003     
                                         IN TABLES.                                                   4F10004     
                                                   THE FIVE MAJOR DIVISIONS OF SECTION 1 ARE=         4F10005     
                                         COMMON, STATES A, B, C, AND D. COMMON REMAINS IN LOWER MEMORY4F10006     
                                         THROUGHTOUT SECTION1. STATE A READS IN AND CLASSIFIES ALL    4F10007     
                                         STATEMENTS, AND TREATS NONARITHMETIC STATEMENTS. STATES B,   4F10008     
                                         C, AND D TREAT ARITHMETIC FORMULAS.                          4F10009     
                                                                                                      4F10010     
                                         SECTION 1 / COMMON =                                         4F10011     
                                         704 FORTRAN MASTER RECORD CARD / COMMON = F0140000.          4F10012     
                        00000        ORG 0                                                            4F100121    
       00000  0 00004 0 00030        PZE ORGCOM,,1TOCS                                                4F100122    
       00001  0 00000 0 03437        PZE ORGA-1                                                       4F100123    
                                                                                                      4F10013     
                                         PART 1 / WORKING STORAGE, BUFFERS, AND TABLE PARAMETERS=     4F10014     
                                                                   EIFNO AND SENSE SWITCH SIMULATORS. 4F10015     
                                                                   TAPE TABLE BUFFERS.                4F10016     
                                                                   TAPE TABLE PARAMETERS - INTET.     4F10017     
                                                                   DRUM TABLE PARAMETERS.             4F10018     
                                                                   FORSUB COUNT AND BUFFER.           4F10019     
                                                                   CIB BUFFER AND PARAMETERS.         4F10020     
                                                                   REMAINING WORKING STORAGE.         4F10021     
                                         PART 2 / CONSTANTS USED BY SECTION ONE.                      4F10022     
                                         PART 3 / SUBROUTINES USED BY SECTION ONE=                    4F10023     
                                         NAME                      FUNCTION                           4F10024     
                                         C0150,2                   SCAN, AND CONVERT NUMERICS.        4F10025     
                                         C0160,2                   SCAN CHARACTERS.                   4F10026     
                                         C0180,2                   CONVERT NUMERICS.                  4F10027     
                                         C0190X,4                  INITIALIZE C0190 TO 1ST WORD OF F. 4F10028     
                                         C0390,4                   INSERT CHARACTER.                  4F10029     
                                         C0190,4                   OBTAIN NEXT NON-BLANK CHAR IN AC.  4F10030     
                                         C1T00,4                   COMPILED INSTRUCTION TABLE ENTRIES.4F10031     
                                         DIM.SR,4                  DIMENSION TABLE SEARCH.            4F10032     
                                         DRTABS(,4)                DRUM TABLE ENTRIES.                4F10033     
                                         GETIFN,4                  GET INTERNAL FORMULA NUMBER.       4F10034     
                                         JIF(GIF),4                JUMPS (GETS) IFN IN SL AND TL.     4F10035     
                                         MTR000                    MONITOR STATES FROM DRUM.          4F10036     
                                         RA000,4                   COMPUTER RELATIVE ADDRESS.         4F10037     
                                         RDRX,4                    READ DRUM INTO BUFR.               4F10038     
                                         SR6DC1,1                  CONVERT 6 BCD DIGITS TO 1 BINARY.  4F10039     
                                         SS000,4                   SCAN AND PROCESS SUBSCRIPTS.       4F10040     
                                         SUBX00,4                  ADD BLANKS TO SUBROUTINE NAMES.    4F10041     
                                         TESTFX,1                  TEST FOR FIXED OR FLOATING POINT.  4F10042     
                                         TEST..,4                  TEST CHARACTER IN AC.              4F10043     
                                         TET00,1                   TAPE TABLE ENTRIES.                4F10044     
                                                                                                      4F10045     
                                         DIAG                      DIAGNOSTIC CALLERS.                4F10046     
