Program Logic Manual - All about the IBM 1130 Computing System

calls the System Core Dump program via the $DUMPentry point in the Skeleton Supervisor to dump thestatement string, the Symbol Table, and the FOR-TRAN Communications Area. At the completion ofthe dump the ROL subroutine regains control. Itthen fetches and transfers control to the next phase.PHASE DESCRIPTIONSPHASE 1• Reads the control records; sets the correspondingindicators in the FORTRAN CommunicationsArea.• Reads the source statements; stores them in theString Area; precedes each statement with apartially completed ID word.• Checks for a maximum of five continuation recordsper statement.• Lists the source program, if requested.Phase 1 is composed of two major segments; thefirst analyzes the control records and the secondinputs the source statements. The control recordanalysis portion of phase 1 is loaded into the StringArea, while the statement input portion is loaded atthe normal Phase Area origin. The control recordanalysis subroutines, therefore, remain in storageuntil the processing of the control records is completed.They are then overlaid by the source statementsas the string is built by the statement inputportion.Errors DetectedThe errors detected by phase 1 are: 1 and 2.PHASE 2• Determines the statement type for each statement.inserts the type code into the statement ID word.• Places the statement terminator character (semicolon)at the end of each statement.• Converts subprogram names longer than fivecharacters to five-character names.• Converts FORTRAN-supplied subprogram namesaccording to the specified precision.• Generates the calls and parameters that initializeI/O subroutines during execution of the object program,if the IOCS control indicators are present.According to the indicators set in the IOCS word(word 16) of the FORTRAN Communications Area bythe previous phase, phase 2 generates the requiredcalls to FORTRAN I/O. If the Unformatted Disk I/OArea indicator is on, a 'LISP UFIO' followed by itsparameter is inserted into the string. If the Diskindicator is on, a 'LIEF SDFIO' followed by its parameteris inserted into the statement string. If anyother indicator in the IOCS word is on, phase 2 insertsthe 'LIBF SFIO' followed by its parametersinto the statement string. The table of device servicingsubroutines (ISSs) is also built and inserted.Phase 2, beginning with the first statement of thestring, checks each statement in order to classify itinto one of the 31 statement types. FORMAT statements,already having the type code, and compilergeneratederror statements are not processed by thisphase. Each statement name is compared to a tableof valid FORTRAN statement names. Each recognizedstatement name is removed from the stringand the corresponding ID type code is inserted into thestatement ID word.Arithmetic statements are detected by location ofthe equal sign (=) followed by an operator other thana comma. Because of this method of detection,arithmetic and statement function statements bothcarry the arithmetic statement ID type until phase 8,which distinguishes them.Names within the statement body are convertedinto name code and stored. Names with only one ortwo characters are stored in one word.Phase 2 converts all parentheses, commas, etc. ,into special operator codes. Each operator is storedin a separate word. Also, each arithmetic operator(+, /, *, **) is stored in a separate word, and astatement terminator character (semicolon) is placedafter each statement, except for CONTINUE andFORMAT statements and compiler-generated errorstatements.NOTE: The string words containing name or constantcharacters have a one in bit position 0. Bit82