Y28 6800 3_PL1(F)_PLM_Mar68 3 PL1(F) PLM Mar68

Y28-6800-3_PL1(F)_PLM_Mar68 Y28-6800-3_PL1(F)_PLM_Mar68

User Manual: Y28-6800-3_PL1(F)_PLM_Mar68

Open the PDF directly: View PDF PDF.
Page Count: 452

DownloadY28-6800-3_PL1(F)_PLM_Mar68 Y28-6800-3 PL1(F) PLM Mar68
Open PDF In BrowserView PDF
File No.S360-29

Form Y28-6800-3

Program Logic

IBM System/360 Operating System
PL/I (F) Compiler
Program Logic Manual
Program Number 360S-NL-Sll

This manual describes
the
internal
design of the IBM system/360 operating
System PL/I (F) Compiler. It is aimed at
personnel responsible for analyzing program
operations, diagnosihg malfunctions, and
changing the program format for special or
national language usage. The information
provides a guide for effective use of the
program listings.
Program logic information is not necessary for the use and
operation of the program; therefore, distribution of this publication is limited to
those
persons
with the aforementioned
require!ments.

Restricted :Oistribution

This publication is organized in three
sections.
section 1 is an introduction
describing the relationship between th€
compiler and the Operating system, and the
overall organization of the compiler. Section 2 is a description of the compiler
phases, including a general description of
each logical phase followed by descriptions
of each of the physical phases contained in
the logical phase. Section 3 consists of
flowcharts and routine directories.
The
flowcharts show the relationship between
the routines of each fhase, while the
directories list the routines and their
functions.

Forw

I
Although not prerequisite, the following
Ipublications are related to this manual and
\should be consulted.

The appendixes appearing at the end of
the publication contain topics of special
importance and reference rr.aterial.

Introduction to
ForJTl Y28-6605

S eg u e!2!~~l_~££~~.§_~~!b od s L_Ef cq r a II' _1.£gi~;:
Form Y28-6604

~~~al,

The convention has been followed in this
manual of printing all PL/I language items
in block capitals.
Prerequisite to the use of this publication are the following:

~~~!_Ref~ren£~~~~~!,

IBM

Form C28-8201

Sy~!em/3~Qper~!~ng~y~~em:

Fourth Edition

('~arch

1968)

This publication is a major revision of the previous edition. Y28-6800-2.
and corresponds to Release 15 of Operating System/3601 it reflects the
improvements and additions which have been incorporated in the fourth
version of the PL/I (F) Compiler. Significant additions include the
implementation of PL/I multitaeking, based storage and list processing.
and the extension of input/output facilities which include LOCATE mode
I/O. mixed record formats, variable length records. positioning control
in stream I/O. and data interchange facilities with OS COBOL data set ••
Other changes provide additional compile-time facilities. and improved
object-time performance in certain areas of application. These and other
changes are indicated by a vertical line to the left of the change I new
or revised illustrations are denoted by the symbol • to the left of the
caption.

Specifications contained herein are subject to change from time to time.
Any such change will be reported in subsequent revisions or Technical
Newsletters.
This publication was prepared for production using an IBM computer to
update the text and to control the page and line format. Page
impressions for photo-offset printin9 were obtained from an IBM 1403
Printer usin9 a special print chain.
Address comments concernin9 the contents of this publication to IBM
united Kin9dom Laboratories
Ltd., Programming Publications, Hursley
Park, Winchester, Hampshire, En9land.
RESTRICTED DISTRIBUTION: This publication is intended primarily for use
by IBM personnel involved in pro9ram design and maintenance. It may not
be made available to others without the approval of local IBM management.

e International Business Machines Corporation 1966, 1967, 1968

Control Program Logi£,

CONTENTS

SECTION 1: INTRODUC?ION.
Purpose of the Compiler.

· 15
. 15

.

The Compiler and Operating system/360.

. 15

Compiler Organization. . • . . . • . • · 17
Logical Phases. • • . . • . . •
· 19
Compile-time Processor Phase .
19
Read-In Phase. • • . .
· 19
Dictionary Phase • . •
· 19
Pretranslator Phase. .
19
Translator Phase . .
· 19
Aggregates Phase . • .
19
Pseudo-Code Phase. . .
• . 19
Storage Allocation Phase
· 19
Register Allocation Phase. •
· 20
Final Assembly Phase .
· 20
Error Editor Phase • •
· 20
SECTION 2: COMPILER PHASES .

· 21

compiler Control and 48-Character Set
Preprocessor. • • •
•.•...••
Compiler Control • • . • • • . . • . .
Initialization • . • • • • • . • .
Character Translation Tables . • •
Communications Region. • • •
.
Text and Dictionary Block
Control • • . • • • . • •
• •
Scratch Storage Control. •
Storage Requirements • • •
• •
Phase Loading. • • . • • .
• •
Phase Directory. • . . • .
• •
Diagnostic Message Centrol •
•
Input/Output Control •
• .
Program Check Handling
• •
Job Termination. • • . • .
·
• • •
Compiler Control Modules.
Module AC. • • • .
• .
Module AD. • . • .
The DUMP Option. • • • • •
·
Module AE.
•
Module AF.
• •
Module AG.
Module AH.
• •
Modules AI, AJ • •
• .
Module AK.
• .
Module AL.
Module AM. • •
• • • • . • .
Module AN. • •
Module JZ.
• •
48-Character Set Preprocessor •
·
Compile-time processor Phase • .
Line Numbering • .
Phase AS • • • • .
Phase AV • • • • •
Phase BC (BE, BF).
Phase BG (Bl, BJ). • . • •
Phase EM (BO).
Module BN (BP, BV)

21
~1

21
21
21
21
22
22
22
22
22
22
22
22
24
24
25
25
25
25
25
25
26
26
26
26
26
26
26

· 27
· 27
27
• . 27
· 27
· 28
• • 28
· . 28

Phase BW . . • .

• .

.

The Read-In Logical Phase . .
Statement Numbering . .
statement and Entry Labels • • .
chains Constructed by Read-In. •
Errors and Diagnostic Messages •
The Output String. . . • . .
Identifiers. •
. •••
Constants. • •
Operators. . •
Initial Labels .
.•• • • .
Structure of the Read-In Logical
Phase . • .
Phase CI .
Phase CL •
Phase CO .
Phase CS .
Phase CV • . • • . . • • • .

· 28
•
•
•
·
•
·
·
•
·
·

28
29
29
29
29
30
30
30
30
30

•
•
·
·
•
•

30
30
31
31
31
31

The Dictionary Logical Phase •
• 31
Constructing and Accessing
the Dictionary. • • . • • • • · 31
Testing for Consistent
Attributes . • • • • • • .
• 32
Compiler Pseudo-Variables and
Functions . • . .
· 32
Dictionary Entries for Entry
Points.
. •••.
• 32
Phase ED •
.•.•
• 33'
Phase EG •
• 33
Phase EI •
••••
• 34
Phase EL (EK, EM). •
· 34
Phase EP •
· 35
Phase EW •
• 36
Phase EY .
• 36
Phase FA • • • • • . • • • • • • • 36
Phase FE • • • • •
• 37
Phase FI • . • • •
• 37
Phase FK .
• 37
Phase FO •
• 37
Phase FQ •
• 38
Phase FT • • • • .
• 38
Phase FV •
• 39
Phase FX •
• 39
The Pretranslator Logical Phase. •
•
Additions to the Text. •
•
Phase GA • . • . • • • • • • • • •
Phase GB (GC).
. •••••
Phase GK .
• • • •
•
Phase GO •
• • • •
•
Phase GP •
•
Phase GU •
•
Phase HF •
•
Phase HK . • • • •
.• • • • .
Phase HP •
•

40
40
41
41
41
41
41
42
42
43
43

The Translator
Phase IA
Phase IG
Phase IL

43
44
44
44

Logical Phase
.
.
•

•
•
·
•

Phase
Phase
Phase
Phase

1M
IT
IX
JD

·· ·
· ·
··
·

·

The Aggregates Logical Phase
Phase JI
Phase JK
Phase JP

·

·

·

The pseudo-Code Logical Phase.
Pseudo-Code Design
Pseudo-Code Items.
Register Description
The Use of Symbolic Unassigned
Registers
The Use of Physical Registers.
Temporary Descriptors.
Temporary Workspace.
Phase LA
Phase LB
Phase LD
Phase LG
Phase LR
Phase LS
Phase LV
Phase LX (LW, LY>'
Phase MB
Phase MD
Phase ME
Phase MG
Phase MI
Phase MK
Phase ML
Phase MM
Phase MP
Phase MS
Phase NA
Phase NG
Phase NJ
Phase NM
Phase NT
Phase NU
Phase OB
Phase OD
Phase OE
Phase OG
Phase OM
Phase OP
Phase OS

···
·

·
·

.

·

·
·
·
·

·
·
··
·
·

··
·
·

·

.

·

The Storage
Phase
Phase
Phase
Phase
Phase
Phase
Phase
Phase
Phase

·
·

45
45
45
46

·

·

··

·

· ·
··
· ···
· ··

··
·

·

·· ·

·

·

·
·
·

··
··
··
···

··

·

·

· ·
····
· · · ··
· ···
··
·

·

·

·

·
···· ··
·
···

·

·
·
·

·

· ·

· ·

Allocation Logical Phase
PA
PD
PH
PL
PP
PT
QF
QJ
QX

·

· ···

·

·

44
45
45
45

·

···
·

··

46
47
47
47
47
47
47
48
48
48
48
48
49
49
49
49
50
50
50
50
51
51
51
51
51
52
52
52
53
54
54
55
55
55
55
56
56
56
56
57
57
57
57
58
59
59
59
60
61

The Register Allocation Logical Phase.
Phase RA
Phase RF

61
61
62

The

62
62

·.. .
·
·
· ·· ···
Final Assembly Logical Phase
· · ·· ·
Phase TF
·. . .· ·

PhasE
PhasE
Phase
Phase
Phase
Phase
Phase

TJ
TO (T~) •
TT
UA
.
UD
UE
UF (UB) •

·

·

··

·

· ·

·

·

· . · ·
·

The Error Editor Phase
Phase XA

·

SECTION 3: CHARTS AND ROUTINE
DIREC'rORIES

·

·

·

.335
.339

.

.341

Organization of Keyword Tables
Format of First Level Directory .
Format of Second Level Directory
Format of Third Level 'Tables
Format of Entry Requiring
Additional comparisons.

·

·

. · · ·

64
64
66

·

·

APPENDIX B: RESIDENT TABLES.

b4

64

APPENDIX A: GUIDE TO PHhSES AND
MODULES
Compiler Phase-in-Storage tliap

.

62
63
63
63
64

·

Phase Directory.
Control Code Word -- CCCODE.

·

.341
. 342
.342
.342
.342
.343
.343

APPENDIX C: INTERNAL FORMATS OF
DICTIONARY ENTRIES.

.345

1. Dictionary Entry Code Bytes

.345

2. Dictionary Entries for Entry Points
Entry type 1 for PROCEDURE,
BEGIN,
and ENTRY statements
Entry Type 2
Entry Type 3
SETS List Format
Entry Type 4
Entry Type 5
GENERIC Entry Point.

.347
.347
.349
.349
.350
.350
.351
.351.

3. Code Bytes for Entry Dictionary
Entries
ENTRY Code Byte.
Options Code Byte.
Optimization Byte.

.351.
.351.
.351.
.352

···

·· ·
·
·
· · .

.

·

·
··

·

·

·

····
··

4. Dictionary Entries for Data, Label,
and Structure Items
Label Variables
Obtained
from DECLARE Statement
Dictionary Entries for Data
Items.
Major and Minor Structure
Entries.

·

.

· ··
.···

. ·

..··

·

.352

·

.352

5. Code Bytes for DATA, LABEL, and
STRUCTURE Dictionary Entries.
The First Code Byte - Other 1.
The Second code Byte - Other 2
The Third Code Byte - Other 3.
The Fourth code Byte - Other 4
Variable Byte.
Data Byte •

·

.·· ··

··

··
·

·

.

35~~

.353
.355
.355
.35!)
.356
.356
.357
.357

6. Format of Variable Information • . . . 357
Uses of the OFFSET1 and OFFSET2
Slots in Data, Label, and
Structure Dictionary Entries • • . 360
STATIC INTERNAL Structures . . • . 360
AUTOMATIC Structures . . • • . • . 360
STATIC EXTERNAL and Parameter
Structures. • • . • .
• .360
CONTROLLED Structures.
• .360
Non-Structured Arrays in
STATIC INTERNAL. .
. .360
Non-Structured Arrays in
AUTOMATIC. . • .
. .360
STATIC EXTERNAL, CONTROLLED or
Parameter Array • • . • . . . • . 360
Non-Structured Scalar Strings
in STATIC INTERNAL. • • . . .360
Non-Structured Scalar Strings
in AUTOMATIC • . . . • . . . . • 361
Non-Structured Scalar Strings
in STATIC EXTERNAL,
CONTROLLED or Parameter.
.361
Non-Structured Non-String
Scalars in AUTOMATIC or
STATIC INTERNAL . • • . . . . . 361
Non-Structured Non-String
Scalars in STATIC EXTERNAL,
CONTROLLED or Parameter.
• .361
7. Other Dictionary Entries • • .
• .361
Label Constants
Extracted
by the Read-In Phase . • . • . 361
Compiler Labels.
. .361
Formal parameter type 1
entry. • • • • •
. . . 361
Dictionary entry for FILE . • . 362
FILE Constants. .
• . . . • . 362
FILE Parameters and Temporaries . . 362
FILE Environment Entries
.362
Dictionary Entries from
Constants. • . . . . . .
. .362
Task Identifiers and EVENT Data . . 363
Dictionary Entries for Built-in
Functions . . . . . . • .
. 363
Second Code Byte . • . . .
· .364
Internal Library Functions .
.364
BCD entries • • .
· .364
Dictionary Entry for Parameter
Descriptions.
· .364
ON Statements . . .
.364
ON Condition . . .
. . • .365
CHECK List Entry .
· .365
PICTURE Entry . . .
• . • . . . 365
Byte 9 - Code Byte .
· .365
Dictionary Entry for Workspace
Requirement • . . . . • . . . . . 366
Dictionary Entry for Parameter
Lists . . • . • . . . • • . • • .366
Dictionary Entries for Dope
Vector Skeletons . . . . . • . . . 366
Symbol Table Entry . . . . •
.366
Dictionary Entry for AUTOMATIC
Chain Delimiter • . .
....366
DED Dictionary Entry
.366
DED2 Entries. . . . . . .
. .367
Dictionary Entry for FED Format Element Descriptor • . . . . 367
Label BCD Entries . • . . • . . • . 367

Dope Vector Entries for
Temporaries • . • . • . • ~
.367
Record Dope Vector Entry
• • 367
Dope Vector Descriptor Entry • . • 368
Format of a Second File
Dictionary Entry. . .
.368
Dictionary Entry for aSIATIC
DSA • • . • •
. • • • . • • • 368
8. Dimension Table

.368

9. Dictionary Entries for Initial
Values • . . . • • • . .
IN IT IAL Value List . • . • • • .

.369
. 369

APPENDIX D: INTERNAL FORMATS OE TEXT . . 371
1. Text Code Byte after the Read-In
Phase • . • • • . • . • • • . • . • • .372
First Level Table (00 to 7F) . . . 372
First Level Table (80 to FF) . . • 373
second Level Table (00 to 7F)
(preceded by second level
warker byte C8).
. . . . . . 374
Second Level Table (80 to FF) • . • 375
2. Text Formats After The Read-In
Phase • . . • • . • . • . .
.375
.375
PROCEDURE Statement.
ENTRY statement • .
.376
BEGIN Statement • • . • .
.376
END Statement. . • • •
.376
IF Staterrent • .
.377
DO statement •
.377
.377
ON Statement •
ASSIGN Statement .
.377
WAIT Statement.
.378
CALL Statement. . . • • . .
.378
GO TO Statement.
.378
SIGNAL and REVERT Statements • • 378
DISPLAY Statement. . . . • • • .379
DELAY Statement. . • . . • • . • .379
RETURN Statement . . • . . . • . .379
STOP, EXIT, and Null Statements • .379
INITIAL Label DECLARE Statements .379
DECLARE and ALLOCATE Statements . • 380
FORMAT Statements. • • . • . . . .380
OPEN and CLOSE Statements. • • • .380
READ, WRITE, GET, PUT, REWRITE,
UNLOCK, and DELETE Statements . . 380
3. Text Code Bytes on Entry to the
Translator Phases • . . • • .

.381

4. Format of Triples • .

.383

5. Text Code Bytes in pseudo-Code • • . . 386
6. Text Formats in Pseudo-Code
pseudo-code Design • • . . . • •
RX Instructions..
.• • . .
RS Instructions.
RR Instructions • .
SI Instructions..
. •.••
SS Instructions..
. .•..
Variable Length Item FLAG.
compiler Function (Bit 1=1).

.386
. 386
. 387
.388
.388
• 388
. 388
.388
.389

Pseudo-code Format between IEMRA
and IEMRF •
• • • • • . • . 389
7. Text Formats in Absolute Code.
RR Instructions.
RX Instructions. • • • • •
SS Instructions. • • • • •
RS Instructions. • • • • •
SI Instructions ••

.390
• .390
• .390
.390
.390
• .390

8. Second File Statements, and the
Formats of Compiler Functions and
Pseudo-Variables. • . • • .
•
Second File statements • •
•
Array Bounds • • • • •
•
Multiplier Function. •
•
String Length statement. •
•
INITIAL value statements .
•
Second File statements for BASED
and OFFSET. • • • • • • .
•
Second File Stateroents for
DEFINED. • • • • • • •
•

.390
.390
.391
.391
.392
.392

Compiler Requirements and
Dictionary/Text Block
Relationship. • . •

.405

APPENDIX

F:

COMMUNICATIONS

REGION • • 407

Transfer

Vectors. • . • • .

• • 407

communications

Region •

• .408

APPENDIX G: SYSTEM GENERATION. • •

.414

APPENDIX H: CODE PRODUCED FOR
PROLOGUES AND EPILOGUES. •
prologues and Epilogues.

.416
.416

DSA optimization

.4201

APPENDIX I: DIAGNOSTIC MESSAGES.

.422:

.392

APPENDIX J: COMPILE-TIME PROCESSOR • • . 429
.393

9. Pseudo-Code Phase Temporary Result
Descriptors (TMPD) . • • • . • . • . • . 393
Temporary Description Stack • • • 393
Temporary Descriptions in
Pseudo-Code. • • • •
.395

1. Internal Formats of Text. . • .
.429
Format of a Dictionary Entry • . • 429
Format of an Identifier Value
Block (IVB) • • . . . • • .
.430
Instruction Codes for the
Compile-time processor.
.431

10. Library Calling Sequences..

2. Communications Region Use..

• .395

. .434

11. Descriptions of Terms and
Abbreviations used in Text During a
Compilation • • • . • • • • • • . . • . 396

3. compile-time Processor, Operating
system, and Compiler Control
Interfaces. .

.437

APPENDIX

INDEX. • . • • •

.43B

E:

STORAGE

REQUIREMENTS • • • 405

FIGURES

Figure 1. Compiler Data Flow and Data
sets Used • • . . . • . • . . . .
. 16
Figure 2. Logical Phases of the
compiler and their corresponding
Functions. • • • . • . . . . . • .
17
Figure 3. Compiler Organization and
Control Flow. . • . • • • . • • . . • . 18
Figure 4. Input/Output Usage Table . • . 24
Figure 5. storage Map for the Read-In
Phase . " . • • • • • . • •
30
Figure 6. Dictionary Entries for an
Internal Entry Point. • • . • • • • • • 33
Figure 7. PL/I Phase-in-Storage Map • . . 340

Figure 8. Crganization of Read-In
Phase • . . • . . • . • . . . . .
Figure 9. Organization of Keyword
Tabl e • . • . . . • . . . . .
Figure 10. Decision to Include a
Second Offset Slot. . . . . .
Figure 11. Dimension Table • .
Figure 12. Temporary Descriptions in
Pseudo-Code -- Use of TMPD Triple
Fields F5 and F6 . • . • • • . • . • •
Figure 13. The IEMAF Control section .
Figure 14. Bit Identification Table .

.341
.342
.359
.369
.394
• 414
• 415

TABLES

Table AA. Module AA compiler Control
Resident Control Phase. • .
. 70
Table AA1. Module AA
Routine/Subroutine Directory. .
71
Table AB. Module AB Compiler Control
Initialization. . . • . . . . .
73
Table AB1. Module AB
Routine/Subroutine Directory. .
74
Table AC. Module AC Compiler Control
Intermediate File Control . . . . . . . 74
Table AD. Module AD Compiler Control
Interphase Dumping. . . . .
. 74
Table AD1. Module AD
Routine/Subroutine Directory.
. . 74
Table AE. Module AE Compiler Control
Clean-Up Phase. • . • . . . • • .
. 75
Table AE1. Module AE
Routine/Subroutine Directory..
. . 75
Table AF. Module AF Compiler Control
Sysgen Options. •
75
Table AG. Module AG Compiler Control
Intermediate File Switching • • • . . . 75
Table AK. Module AK Compiler Control
Closing Phase • • . • • . . . . . .
75
Table AL/AN. Modules AL/AN Extended
Dictionary/Dictionary Phases • . • . • · 76
Table AL/AN. Modules AL/AN Extended
Dictionary/Dictionary Phases (cont'd) · 77
Table AL/AN. Modules AL/AN Extended
Dictionary/Dictionary Phases (contld) · 78
Table AL/AN. Modules AL/AN Extended
Dictionary/Dictionary Phases (contld) · 79
Table AL1/AN1. Modules AL/A~
Routine/Subroutine Directory. . • . . · 80
Table AM. Module AM Compiler Control
Phase Marking . . • • . • • . . • • . · 81
Table AS. Phase AS Resident Phase for
Compile-time Processing . . . . . . • · 89
Table AS1. Phase AS Routine/subroutine
Directory . • . • . . • • . • . • .
90
Table AV Phase AV Macro Processing
Initialization • • . • . . . . . . .
91
Table AV1. Phase AV Routine/Subroutine
Directory • • • • . • . • . • • . . • · 91
Table BC. Phase BC Initial Scan and
Translation . . . . • . . . • . . . • · 92
Table BC1. Phase BC Routine/Subroutine
Directory . • . •
• . . . • . . · 93
Table BG. Phase BG Final Scan and
Replacement . . . . . . . . . . .
· 94
Table BG1. Phase BG Routine/subroutine
Directory
. . . . . . . . . . . · 95
Table BG1. Phase BG Routine/subroutine
Directory (cont'd) . . . . . . . . . . · 96
Table BM. Phase BM Diagnostic Message
Determination and Printing . . . . . . · 97
Table BM1. Phase BM Routine/Subroutine
Directory . • . . . . . . . . . . . . · 97
Table BW. Phase BW Cleanu~ Phase • .
97
Table BX. Phase BX 48-Character Set
Preprocessor. . •
. . 105
0

0

•

•

•

•

•

•

0

0

•

Table CA. Module CA Read-In Common
Block 1 . . . . . . . . . . . . . . . .106
Table CAl. Module CA
aoutine/Subroutine Directory.
.106
Table CC. Module CC Read-In Corrmon
Block 2 . . . . . . . . . . • .
.107
Table CC1. Module CC
Routine/Subroutine Directory.
. . . 107
Table CEo Modules CE , CK, CN, and CR
t<.ead-In Keyword Block • . • . . . • • .107
Table CI. Phase CI Read-In First Pass . . 108
Table Cll. Phase CI Routine/Subroutine
Directory • . . . . . . . • . • . . . . 108
Table CL. Phase CL Read-In Secend Pass .109
Table CL1. Phase CL Routine/Subroutine
Directory . . . . • . . . . . • . . . . 109
Table co. Phase CO Read-In Third Pass • . 110
Table COl. Phase co Routine/Subroutine
Directory • . . . . . . . . . . . . . . 110
Table CS. Phase CS Read-In Fourth Pass .111
Table CS1. Phase CS routine/Subroutine
Directory . . . . • . . . • . • . • . . 111
Table CV. Phase CV Read-In Fifth Pass . . 112
Table CV1. Phase CV Routine/Subroutine
Directory . . . . • . . . . • • . . . . 112
Table ED. Phase ED, Initialization . . . 129
Table ED1. Phase ED Routine/Subroutine
Directory. . . . . . . . . .
. . . 129
Table EG. Phase EG Dictionary
Initialization . . . . . . • . . . • . . 129
Table EG1. Phase EG Routine/Subroutine
Directory . . . . • . . . . . . . . . . 130
Table EI. Phase EI Dictionary Declare
Pass One.
. . . . . . . . . . . • 131
Table Ell. Phase EI Routine/Subroutine
Directory . . • . • . . . . . . . . . . 132
Table EL. Phase EL Dictionary Declare
Pass Two.
. • . • . . . . . . . . 134
Table ELl. Phase EL Routine/Subroutine
Directory . . . . • . . . . . • . . . . 135
Table EP. Phase EP Dictionary Entry
III and Call . . . • . . . . . . . • . . 137
Table EP1. Phase EP Routine/Subroutine
Directory . . . . . • . . . . • . . . . 138
Table EW. Phase EW Dictionary LIKE . . . 139
Table EW1. Phase EW Routine/Subroutine
Directory . . . . • . . . . . • . • . . 139
Table EY. Phase EY Dictionary ALLOCATE .140
Table EY1. Phase EY Routine/Subroutine
Directory . . . . . . . . . . . . . . . 140
Table FA. Phase FA Dictionary Context . . 141
Table FA1. Phase FA Rcutine/Subroutine
Directory • . . . • . . . . . . . . . . 142
Table FE. Phase FE Dictionary Bce to
Dictienary Reference . . . . . . . . . . 143
Table FE1. Phase FE Routine/Subroutine
Directory . . . . . . . . . . . . . . . 144
Table Fl. Phase FI Dictionary Checking .144
Table Fll. Phase FI Routine/Subroutine
Directory . . . .
.145
Table FK. Phase FK Dictionary
Attribute. . . . • . . . . .
.146
0

•

•

•

•

••

•

Table FKi. Phase FK Routine/Subroutine
Directory • • • • • • • • • • . • . • . 146
Table Fa. Phase Fa Dictionary ON • • • • 147
Table F01. Phase Fa Routine/subroutine
Directory • • • • • • . • • • • • • • • 147
Table FQ. Phase FQ Dictionary Picture
Processor
• • • • • . • . • • • . 148
Table FQ1. Phase FQ Routine/Subroutine
Directory • • • • • • . • • • • • • • • 149
Table FT. Phase FT Dictionary Scan • • • 150
Table FT1. Phase FT Routine/Subroutine
Directory • • • • • • • • • • • • • • . 151
Table FV. Phase FV Dictionary Second
File Merge • • • • • • • • • • • • • • • 152
Table FV1. Phase FV Routine/Subroutine
Directory • • • • • • • • • • • • • • • 153
Table FX. Phase FX Dictionary
Attributes and Cross Reference • • • • • 154
Table FX1. Phase FX Routine/Subroutine
Directory • • • • • • • • • • • • • • . 155
Table GA. Phase GA DCLCB Generation • • . 165
Table GAl. Phase GA Routine/Subroutine
Directory. • • • . • • . • ••
• .165
Table GB. Phase GB Pretranslator I/O
Modification • • • • • • • . • • . . • • 166
Table GB1. Phase GA Routine/Subroutine
Directory • • • • • • . • • • • • . • • 167
Table GK. Phase GK Pretranslator
Parameter Matching 1 • • • • • • • • • • 168
Table GK1. Phase GK Routine/Subroutine
Directory • • • • • • • • • • . • • • . 168
Table GO. Phase GO Preprocessor
Parameter Matching 2. • • • • • • • • .169
Table Gal. Phase GO Routine/Subroutine
Directory • • • • • • • • • • . • • • • 169
Table GP. Phase GP Pretranslator
Parameter Matching 2 • • • . • • . • • • 170
Table GP1. Phase GP Routine/subroutine
Directory • • • • • • • • . • . • • . . 171
Table GU. Phase GU Pretranslator Check
List. • •
• • • • • • • • • . . .172
Table GU1. Phase GU Routine/subroutine
Directory • • • • • • • • • • • • . . . 173
Table HF. Phase HF Pretranslator
Structure Assignment • • • • . . • • • • 174
Table HF1. Phase HF Routine/Subroutine
Directory • • • • . • • • • • • • • • • 175
Table HK. Pretranslator Array
Assignment • • • • • • . • • • • • • • • 176
Table HK1. Phase HK Routine/Subroutine
Directory • • • • • • • • . • • • • • • 176
Table HP. Phase HP Pretranslator iSub
Defining • • • • • • • • • . • • • • • . 177
Table HP1. Phase HP Routine/Subroutine
Directory • • • • • • • • • • • • . . . 177
Table IA. Phase IA Translator Stacker • . 183
Table IA1. Phase IA Routine/Subroutine
Directory • • • • • • • • . • . • • • . 183
Table IG. Phase IG Translator
Pre-Generic • • • • • • • • • • • . • . 186
Table IG1. Phase IG Routine/Subroutine
Directory. • • • • • . • . • .
. .186
Table IL. Phase IL Translator
Pre-Generic • • • • • • • . • • • • • • 187
Table 1M. Phase 1M Translator Generic • • 187
Table IM1. Phase 1M Routine/Subroutine
Directory • • • • • • . • . • • • . • . 188

Table IM1. Phase 1M Routine/Subroutine
Directory (continued) • • • • • • • . • 189
Table IT. Phase IT Post-Generic
Processor
. • . . • • . • . . . • 189
Table IT1. Phase IT Routine/Subroutine
Directory. • • • • • • .
• . • . • 190
Table IX. Phase IX Pointer and Area
Checking • • • • . • . • • • . • . • • . 190
Table IX1. Phase IX Routine/Subroutine
Directory • . • • • • • • • • • • • • • 190
Table JD. Phase JD Constant Ex~ression
Evaluator
. • . . . . • • • • • • 191
Table JD1. Phase JD Routine/Subroutine
Directory. • . . • . . . • .
. .191
Table JI. Phase JI Aggregates
Structure Processor . • . . •
.196
Table Jll. Routine/Subroutine
Directory. • • • • . . • • .
.196
Table JK. Phase JK Aggregates
Structure Processor . • . . •
.197
Table JK1. Phase JK Routine/Subroutine
Directory • . • . • . • • . • • . • . . 198
Table JP. Phase JP Translator Defined
Check. .
. • . • • • • • . • . • 199
Table JP1. Phase JP Routine/Subroutine
Directory . . • • • • • • • • • • • • • 199
Table JZ. Module JZ Compiler Centrol . . 199
Table LA. Phase LA Pseudo-Code Scan . . • 231
Table LA1. Phase LA Routine/Subroutine
Directory • • • . • • • • • • • . • • • 232
Table LB. Phase LB Pseudo-Code Initial .233
Table LB1. Phase LB Routine/Subroutine
Directory • • • . • . . . • • • • • • • 233
Table LD. Phase LD Pseudo-Code Initial .234
Table LD1. Phase LD Routine/Subroutine
Directory. • • • • • • • • •
.234
Table LG. Phase LG Pseudo-Code DO
Expansion . . • • • . . • . . . . • • • 235
Table LG1. Phase LG Routine/Subroutine
Directory . • • • • • . • • • • • • • • 236
Table LS. Phase LS Pseudo-Code
Expression Evaluation • • . • • . • • . 237
Table LS1. Phase LS Routine/Subroutine
Directory . • . . • • • • . • • . • . • 238
Table LV. Phase LV Pseudo-Code String
Utilities
. • . . . • . • • • . . 239
Table LV1. Phase LV Routine/Subroutine
Directory • • . . • . • . • . • • • . . 239
Table LX. Phase LX Pseudo-Code String
Handling . • • • . • . • . • . • . • . . 240
Table LX1. Phase LX Routine/Subroutine
Directory • . . . • . • • • . . . ._ • .241
Table MB. Phase ME Pseudo-code
Pseudo-Variables . . . • . • . . . • . . 242
Table MEl. Phase ME Routine/Subroutine
Directory • • • . . . . . . • • • • . • 243
Table MD. Phase MD Pseudo-Code In-Line
Functions
. • . . . • . • • • . . 244
Table MD1. Phase MD Routine/Subroutine
Directory • . • • . . • . . • • • • . • 244
Table ME. Phase ME Pseudo-Code In-Line
Functions
. . . . . • . • . • . . 245
Table MEl. Phase ME Routine/Subroutine
Directory
. . . . . . . • . . . . 245
Table MEl. Phase ME Routine/Subroutine
Directory (continued) • . • . . . • . . 246
Table MG. Phase MG Pseudo-Code In-Line
Functions 1 . • . • . • . • . . . • . • 247

Table MG1. Phase MG Routine/Subroutine
Directory • • • • . • • • . . . . • • • 247
Table MI. Phase MI Pseudo-Code In-Line
Functions 2 • • • • • • • . • • • . • • 250
Table MIl. Phase MI Routine/Subroutine
Directory • • • • . • • • . • . • • • . 250
Table MK. Phase MK Pseudo-Code In-Line
Functions 3 • • • . • • • • • . • . • . 251
Table MK1. Phase MK Routine/Subroutine
Directory • • • • . . . • • . . . • . . 251
Table ML. Phase ML Pseudo-Code Calls
and Functions • • • • • • • • • • • • . 252
Table ML1. Phase ML Routine/Subroutine
Directory • • • • • • • • . • . • • • • 252
Table MM. Phase MM Pseudo-Code Calls
and Functions • • • • • • • • . • • • . 252
Table MM1. Phase MM Routine/Subroutine
Directory • • • • • • • • • • . • • • . 253
Table MP. Phase MP Pseudo-Code BUY
Reorder.
• • • • • . • . • • • • 254
Table MP1. Phase MP Routine/Subroutine
Directory • • • • • • • • • • • • • . . 254
Table MS. Phase MS Pseudo-Code
Subscripts • • • • • • • • • • • • • • • 255
Table MS1. Phase MS Routine/Subroutine
Directory • • • • • • • • . • • • . • . 255
Table NA. Phase NA Pseudo-Code
Branches, ON, Ret urns • • • • . • . . . 256
Table NA1. Phase NA Routine/Subroutine
Directory • • • • • • • • • • . • . • • 257
Table NG •. Phase NG Pseudo-Code
Operating System services . • • • • • . 259
Table NG1. Phase NG Routine/Subroutine
Directory • • • • • • • • • • • • • • • 259
Table NJ. Phase NJ Pseudo-Code RECORD
I/O • • •
• • • • • • • • • . • .260
Table NJ1. Phase NJ Routine/Subroutine
Directory • • • • • • • • • • • • • • • 264
Table NM. Phase NM Pseudo-Code
Executable I/O • • • • • • • • • • • • • 266
Table NM1. Phase NM Routine/Subroutine
Directory • • • • • • . • • • • • • • • 266
Table NT. Phase NT Pseudo-Code Data
and Format • • • • • • • • • • • • • • • 267
Table NT1. Phase NT Routine/Subroutine
Directory • • • • • • • • • • • • • • • 267
Table NU. Phase NU Pseudo-Code Data
and Format Lists • • • • • • • • • • • • 268
Table NUl. Phase NU Routine/Subroutine
Directory • • • • • • • • • • • • • • • 268
Table OB. Phase OB Pseudo-Code
Compiler Functions. • • • • • • • • • .269
Table OB1. Ph~se_OB Routine/Subroutine
Directory • • • • • • • • • • • • • • • 270
Table aD. Phase aD Pseudo-Code
Assignment • • • • • •
271
Table OD1. Phase aD Routine/Subroutine
Directory • • • • • • • • • • • • • • • 271
Table OE. Phase OE pseudo-Code
Assignment • • • • • • • • • • • • • • . 272
Table OE1. Phase OE Routine/Subroutine
Directory • • • • • • • • . • • • • • • 272
Table OG. Phase OG Library Calling
Sequences • • • • • • • • • • • • • • • 273
Table OGlo Phase OG Routine/Subroutine
Directory.
274
Table OM. Phase OM In-line Data
Conversions • • • • • • • •
.275
0

0

•

0

0

0

••

0

0

••

0

•••

••

0

••

Table OM1. Phase OM Routine/Subroutine
Directory. • • • • . • • . • • .
.275
Table OPe Phase OP Further In-line
Conversions. • . • . . . • . • .
.276
Table OP1. Phase OP Routine/Subroutine
Directory . • • . • . • . • . . . . . • 276
Table OS. Phase OS Constant
Conversions . • . • • . • • . • • • . • 277
Table OSl. Phase OS Routine/Subroutine
Directory • . . . • . • . . . • • • . . 277
Table PA. Phase PA DSAs in S~ATIC
Storage.
. • . • . • . • . • • . 290
Table PAl. Phase PA Routine/Subroutine
Directory • . . . • . • . • . • .,. • .290
Table PD. Phase PD Storage Allocation
Static 1.
• • • • . • . • . • . • 291
Table PD1. Phase PD Routine/Subroutine
Directory • • • . • • • . • • • . • • . 291
Table PH. Phase PH Storage Allocation
static 2.
• • • . . • • • • • . . 292
Table PH1. Phase PH Routine/Subroutine
Directory • • • . • . • • . • • . • . . 293
Table PL. Phase PL Storage Allocation
Symbol Table and DEDs • . • • • . • • . 294
Table PL1. Phase PL Routine/Subroutine
Directory • . • . • . • • • . • . • • . 294
Table PP. Phase PP Storage Allocation
Sort of AUTOMATIC Chain • • • • • • • . 295
Table PP1. Phase PP Routine/Subroutine
Directory • . . . • . • • • . • . • • • 296
Table PT. Phase PT Storage Allocation
AUTOMATIC Storage • • • • • • • . • • • 297
Table PT1. Phase PT Routine/Subroutine
Directory • . • . • . • • • • • • • • . 298
Table QF. Phase QF storage Allocation
Prologues
• • • • • • . • • • • • 299
Table QF1. Phase QF Routine/Subroutine
Directory • . • . • • . . • • • • • . • 300
Table QJ. Phase QJ Storage Allocation
Dynamic Storage • • • • • • • • • • • • 301
Table QJ1. Phase QJ Routine/Subroutine
Directory • • • . • • • . • • • . • • • 302
Table QX. Phase QX Print Aggregate
Length Table . • . . • • . • • • . • • • 303
Table QX1. Phase QX Routine/Subroutine
Directory • . • . • • • . • . • • • • • 303
Table RA. Phase RA Register Allocation
Addressibility Analysis • • . • • • • .307
Table RA1. Phase RA Routine/Subroutine
Directory • • • • • • • . • . • . • • . 308
Table RF. Phase RF Register Allocation
Physical Registers • • • • • • • • • . . 309
Table RF1. Phase RF Routine/Subroutine
Directory • • • • • • • • • • • • • • • 309
Table TF. Phase TF Final Assembly Pass
1 • • • •
. • • • • • . . . • . .321
Table TF1. Phase TF Routine/Subroutine
Directory • • • . • • • • • • • • • • • 321
Table TJ. Phase TJ Final Assembly
Optimization • • • • • • . • • • . • • . 322
Table TJ1. Phase TJ Routine/Subroutine
Directory • . • . • • • • • . • • • . • 322
Table TO. Phase TO Final Assembly
External Symbol Dictionary • • • • • • • 323
Table T01. Phase TO Routine/Subroutine
Directory. . • .
. • . • • . . . 323
Table TT. Phase TT Final Assembly Pass
2 • • • . • • • •
• • . • • • • • 324

Table TTl. Phase TT Routine/Subroutine
Directory . • • • • • • • • . . • • • . 325
Table UA. Phase UA Final Assembly
Initial Values, Pass 1 • . • • • • • • . 326
Table UA1. Phase UA Routine/Subroutine
Directory • • • • • • • • . • • • . • . 327
Table UD. Phase UD Final Assembly
Initial Values, Pass 2 • • • • • • • • • 328
Table UD1. Phase UD Routine/Subroutine
Directory . • • • • • • • • • • • • • • 328
Table UE. Phase UE Final Assembly
Initial Values, Pass 2 • • . • • • • • • 329
Table UE1. Phase UE Routine/Subroutine
Directory. • • •
• • • • • . • • 330
Table UFo Phase UF Final As~embly
Object Listing. •
• • • • • . • . 331

Table UF1. Phase UF Routine/Subroutine
Directory. • • •
• • • • •
.332
Table XA. Phase XA Error Message
Editor. •
. • . • • • • • .
.334
Table XA1. Phase XA Routine/Subroutine
directory. • . . • • • . • ••
• .334
Table 1. Communications Region.
.409
Table 1. Communications Region
(cont'd). • • . . • . • . • . •
.410
Table 2. Communications Region. •
.411
Table 2. Communications Region
(cont'd). • • • • • • . • • • • .
.412
Table 3. Communications Region. Bit
Usage in ZFLAGS . • . . • • • • . • . • 413

CHARTS

Chart 00. Overall Compiler Flowchart . . 67
Chart AA. Resident control Phase Logic
Diagram (Modules AA through AM, and
JZ) . . . . • • . . . . . . • . .
. 69
Chart 01. Compile-time Processor
Logical Phase Flowchart . . • . .
82
Chart AS. Phase AS overall Logic
Diagram • • • • • . . . .
. 83
Chart AV. Phase AV Overall Logic
Diagram . . • . • . • . •
. 84
Chart BC. Phase BC Overall Logic
Diagram . . • . . . . . .
. 85
Chart BG. Phase BG Overall Logic
Diagram . . • . . • . . .
86
Chart BM. Phase BM Overall Logic
87
Diagram • . . • . . . . .
Chart BW. Phase BW Overall Logic
88
Diagram • . • • . . . . .
Chart 02. Read-In Logical Phase
. 98
Flowchart • • • • . • . •
Chart BX. Phase EX Overall Logic
. 99
Diagram . . . • • . • • •
Chart CI. Phase CI Overall Logic
.100
Diagram • . • . . . . . •
Chart CL. Phase CL Overall Logic
.101
Diagram • . • . • . • . •
Chart CO. Phase CO Overall Logic
Diagram • • • • . . • . •
• .102
Chart CS. Phase CS Overall Logic
.103
Diagram . . • • • . • . . . . • •
Chart CV. Phase CV Overall Logic
Diagram . . . • • .
· .104
Chart 03. Dictionary Logical Phase
Flowchart . . • • • . . •
.113
Chart EG. Phase EG Overall Logic
Diagram • . . • .
• .114
Chart EI. Phase EI Overall Logic
Diagram • . • . •
· .115
Chart EL. Phase EL Overall Logic
Diagram • • • • •
• .116
Chart EP. Phase EP Overall Logic
Diagram • . . • • . . • • . • . • . • . 117
Chart EW. Phase EW Overall Logic
Diagram. • . • . • . • •
• .118
Chart EY. Phase EY Overall Logic
Diagram • . • . .
· .119
Chart FA. Phase FA Overall Logic
Diagram • . . . •
.120
Chart FE. Phase FE Overall Logic
Diagram • • • • .
. • . 121
Chart Fl. Phase FI Overall Logic
Diagram • . • • .
• .122
Chart FK. Phase FK Overall Logic
Diagram . . . . • . . . .
.123
Chart Fa. Phase Fa Overall Logic
Diagram • . . . •
.124
Chart FQ. Phase FQ Overall Logic
Diagram . . . . •
· .125
Chart FT. Phase FT Overall Logic
Diagram • . . • •
.126
Chart FV. Phase FV Overall Logic
Diagram . • • . •
• .127

Chart FX. Phase FX Overall Logic
Diagram. • . . . • . • . . . .
.128
Chart 04. Pretranslator Logical Phase
Flowchart . . . . . . • .
.156
Chart GA. Phase GA Overall Logic
Diagram • • . . . • . . . • . . .
.157
Chart GB. Phase GB Overall Logic
Diagram. . . . . • • . .
.158
Chart GK. Phase GK Overall Logic
Diagram. • . . • • • . . . . • •
.159
Chart GP. Phase GP overall Logic
Diagram . . . . . • . . . . . . . • . .16 ()
Chart GU. Phase GU Overall Logic
Diagram. • . . . • . . • . . • .
.161
Chart HF. Phase HF Overall Logic
Diagram • • . . . • . . . . . . . • . .16:2
Chart HK. Phase HK Overall Logic
Diagram. . . • . • . • . . . . •
.163
Chart HP. Phase HP Overall Logic
Diagram. • • • . •
. . .•
.164
Chart 05. Translator Logical Phase
Flowchart • . • . • . . . . • . . • . . 178
Chart IA. Phase IA Overall Logic
Diagram • . . . • • . . . • . • .
.179
Chart IG. Phase IG Overall Logic
Diagram. • . . . • . • . . . . .
.180
Chart 1M. Phase 1M Overall Logic
Diagram. • . • . •
. • ..
.181
Chart IT. Phase IT. Overall Logic
Diagram. • . . . •
.182
Chart IX. Phase IX Overall Logic
Diagram. . . . . • • . . • • . .
.184
Chart JD. Phase JD Overall Logic
Diagram. • . • . •
.185
Chart 06. Aggregates Logical Phase
Flowchart. . • . • . . . • • • •
.192
Chart JI. Phase JI Overall Logic
Diagram. • . . . • . • . • • . •
.193
Chart JK. Phase JK Overall Logic
Diagram. • . • . • . • . • . • •
.194
Chart JP. Phase JP Overall Logic
Diagram . • • • . • • . . . . • . • . .19'5
Chart 07. Pseudo-Code Logical Phase
Flowchart. . . . • • . . • . • .
.200
Chart LA. Phase LA Overall Logic
Diagram. • • . • • • . . • • . .
.201
Chart LB. Phase LB Overall Logic
Diagram. • . . . • • . .
.202
Chart LD. Phase LD Overall Logic
Diagram. • . . . • • . • . . • .
.203
Chart LG. Phase LG Overall Logic
Diagram . • . . • . . . • • • • •
.204
Chart LS. Phase LS Overall Logic
Diagram . • . • • • . . . • . • • . . .205
Chart LV. Phase LV Overall Logic
Diagram. . • . . • • . .
.206
Chart LX. Phase LX Overall Logic
Diagram. • . . • • • . . . . • .
.207
Chart MB. Phase MB Overall Logic
Diagram. . . • . • . . . • • • •
.208
Chart MD. Phase MD Overall Logic
Diagram. . . . . • . . •
.209

Chart ME. Phase ME Overall Logic
Diagram "
Chart MG. Phase MG Overall Logic
Diagram
Chart MI. Phase MI Overall Logic
Diagram
Chart MK. Phase MK Overall Logic
Diagram
Chart ML. Phase ML Overall Logic
Diagram
Chart MM. Phase MM Overall Logic
Diagram
Chart MP. Phase MP Overall Logic
Diagram
Chart MS. Phase MS Overall Logic
Diagram
Chart NA. Phase NA Overall Logic
Diagram
Chart NG. Phase NG Overall Logic
Diagram
Chart NJ. Phase NJ Overall Logic
Diagram
Chart NM. Phase NM Overall Logic
Diagram
Chart NT. Phase NT Over'all Logic
Diagram
Chart NU. Phase NU Overall Logic
Diagram
Chart OB. Phase OB Overall Logic
Diagram
Chart aD. Module aD overall Logic
Diagram
Chart OE. Phase OE Overall Logic
Diagram
Chart OG. Phase OG Overall Logic
Diagram
Chart OM. Phase OM Overall Logic
Diagram
Chart OPe Phase OP Overall Logic
Diagram
Chart OS. Phase as Overall Logic
Diagram
Chart 08. Storage Allocation Logical
Phase Flowchart

········
·········
······· · ··
· ·· ··· ·· ····
· · ·· ·· ·
····· ···
····· ···
·········
······· ·
·········
······ ······
·········
· ··· ·· ·· ·
· ··· · ·· ·
··· ······
·········
····· · · ··
········ · ··
· ·· ····· ·
··· ··· ·· ·
······ ·· ··
········

·

.210
.211

·

.212

·

.213

·

.214
.215

·

.216
.217
.218

·

·

.219
.220

·

.221

·

.222

·

.223
.224
.225

·.·
·

.226
.227
.228
.229

·

.230

· ·

.279

Chart PA. Phase PA Overall Logic
Diagram IEMPA. STATIC DSA'S
Chart PD. Phase PD Overall Logic
Diagram
Chart PH. Phase PH Overall Logic
Diagram
Chart PL. Phase PL Overall Logic
Diagram
Chart PP. Phase PP Overall Logic
Diagram
Chart PT. Phase PT Overall Logic
Diagram
Chart QF. Phase QF Overall Logic
Diagram
Chart QJ. Phase QJ Overall Logic
Diagram
Chart QU. Phase QU Overall Logic
Diagram
Chart QX. Phase QX Overall Logic
Diagram
Chart 09. Register Allocation Logical
Phase Flowchart
Chart RA. Phase RA Overall Logic
Diagram
Chart RF. Phase RF Overall Logic
Diagram
Chart 10. Final Assembly Logical Phase
Flowchart
Chart TF. Phase TF Overall Logic
Diagram
Chart TJ. Phase TJ Overall Logic
Diagram
Chart TO. Phase TO Overall Logic
Diagram
Chart TT. Phase TT Overall Logic
Diagram
Chart UA. Phase UA Overall Logic
Diagram
Chart UD. Phase UD Overall Logic
Diagram
Chart UE. Cverall Logic Diagram.
Chart UFo Phase UF Overall Logic
Diagram
Chart XA. Phase XA Overall Logic
Diagram

· ·

·

·
·

·

·
·

·

·
·
·
·

··· ··· ·
··· · · ·
· · · ···
· · · ··
·· · ····
· · ···
··· · ··
· ·· ·· ··
··· · ··
· ···
··· ·
·
·
·
······ ·
· ·
·· ·
· · ·
··· · ··
··· ····
·· · ···
· · ··

· ·

··

·
·

· ··
· · ·

·

··.

·
· ··
···

· ··

· ··
····
···
· ··
··

····
···
· ·

.280
.281
.282
.283
.284
.285
.286
.287
.288
.289
.304
.305
.306
.311
.312
.313
.314
.315
.316
.317
.318

·

.319

···

.320

The Operating System/360 PL/I
(F) Compiler analyzes and processes source programs written in PL/I, and translates them
into object programs in load module form
suitable for input to the Linkage Editor.
When errors are detected in the source
program, appropriate diagnostic messages
are produced. The compiler functions within Operating System/360 and may be used on
machines where at least 45,056 (44K)
bytes
of core storage are available for the
compilation (exclusive of storage requirements for the Operating System).

A compilation is initiated by loading
the compiler control routines from the link
Library.
The compiler control routines
then carry out their own initialization,
including loading those compiler control
routines which remain in storage throughout
the compilation.
These routines perform
the following functions:
1.

Act as the interface between the compiler phase and the Operating System,
controlling all input/output, storage
allocation,
program
interruptions,
storage dumping, etc.

2.

Supervise
the loading of compiler
phases in accordance with source program options and inforrration obtained
from the source program by the compiler phases.

3.

Supervise all workspace used by the
compiler for information concerning
the source program. This includes any
spilling from main storage to backing
storage in order to accorrmodate large
source programs, the conversion of
symbolic
references
to
absolute
addresses, and the conversion from
absolute addresses to symbolic references.

4.

Provide a number of routines to assist
in compiler debugging.

THE COMPILER AND OPERATING SYSTEM/360
The PL/I
(F) compiler is'a processing
program of Operating System/360. The compiler consists of a number of phases under
the supervision of compiler control routines.
The compiler communicates with the
control program of the Operating System,
for input/output
and
other
services,
through the control routines.
A compilation is introduced as a job
step under the control of the Operating
System, via the JOB statement, the execute
(EXEC) statement, and the data definition
(CD)
statements of the Job Control Language, for the input/output data sets.
Cataloged procedures are provided to keep
these statements to a mini~um.
A discussion of the introduction of a compilation
as a job step, and of the available cataloged procedures, is given in the publication IBM System/360 Opefi!:!:.!!}SL.§y~!:~!!!..L-~~~!
~~) Program!!!er's Gui2~' Form C28-6594.
The source program to
be
compiled
appears as input to the compiler on the
SYSIN data set. The compiler uses SYSUT1
(required if the main storage is insufficient to contain the program) and SYSUT3
(required if the 48-character set or the
compile-time processor is used) as work
data sets. The SYSPRINT data set is mandatory.
The SYSPUNCH and SYSLIN data sets
are used, depending on the options specified by the source programmer, to contain
the output from the compiler.
The overall data flow associated with a
compilation, and the data sets used in the
compilation, are illustrated in Figure 1.

The
compiler
options specified are
interpreted
and the appropriate action
taken. The environmental options, such as
storage size and device type, are used to
calculate the text and dictionary block
size and the "spill" point (i.e. the point
at which the main storage available is
insufficient to contain the dictionary and
text).
To determine the block size a table
contained in Phase AB is used. The storage
size is used as the argument tc search the
table.
When the correct entry is found,
the text tlock size and the dictionary
block size values are extracted and used
for the compilation.
The options are instructions to the
compiler. Some of these require a phase to
be loaded that would not otherwise be
loaded. When an option of this type is
found,
a request for the phase required is
inserted into the status byte in the phase
directory.
Other options are in the form
of instructions to a phase that is always
loaded. These instructions are also placed

section 1 (Introduction): The Compiler and Operating system/360

15

r-------------,

I
I
I
I
I
I

I
I
I
I
I
I

Source

program
(SYSIN)

L------T------J
I
I

,
V

r---------------------------,
compiler
,

,

,

I

,
(SYSUT1 and SYSUT3
,
lare used as work data sets I
I
when required)
,

L-------------T-------------J
I

,

I

V

r--------T--------T--------T-------T---------T--------T-------T--------,
SOURCE
XREF
LIST
DECK/MACDCK
LOAD
option

opticn

I
I
I
,

V

I,

V

I,

program

I,

listing

I
I
I
I
I,

,

L_____________ J

I

list of
stateroent
numbers

V

V

r-------------,
r-------------,
ESD,TXT,RLD ,
ESD, 'TXT,

I

I,

object codel
produced
I
by the
compiler
I

I,

RLD, END,
I and NAME
I (if OBJNM
I specified),

END and NAME'
I, cards. PL/I
Source text
I, if MACDCK
I
specified. JI

,

I
IL _____________ JI

,
,

SYSPUNCH

SYSPRINT

SYSLIN

for all
compilations

SOURCE2
option

,I

I
I
I

I,

I
I
I

,r-------------,,
External
Symbol

I

,
I,

I Dictionary
I _____________ JI
L
SYSPRINT

V

r-------------,,

I List of
I identifiers, I
I
I list of
I attributes I
I assumed by I
identifiers JI
IL _____________

,
V

V

r-------------,, ,r-------------,
I List of
I

,

,

compiler
I options usedl
I and
I
I, Diagnostic I
Messages
L _____________ JI

SYSPRINT

compiler Data Flow and Data Sets Used

SYSPRINT

I
I
I

,

I
IL_____________ JI

L_____________

ATR
option

I

16

I
I
I
I

EXT REF
option

V

.Figure 1.

,I
,I

SYSFRINT

SYSPRINT

,

V

identif iers, ,

option

,
,
,
I

r-------------,
List of

,
,
,
,
,L_____________ J,
I,

options

,
I
I
I

,r-------------,
List of

r-------------,
Source

I
I

option

,
I
I
I

,Listing of
I
I input to the I
,
Icompile-tirre
'processor
I

I

I

L _____________ J

SYSPRINT

in coded form in the comrrunications region
of the dictionary, generally in the Control
code word (see CCCODE in Appendix B).

information as the addresses of the
heads of chains, the symbolic start of
text,
etc. The remainder of the dictionary
contains
all
information
relating to identifiers appearing in
the program, terrporary storage areas
required, etc. For the compiler ~ro­
per,
the format of all dictionary
entries will be found in Appendix C.

The PL/I (F) Compiler com~rises a number
of logical phases, each of which consists
of several physical phases.

r-------------T---------------------------,
ILogical Phasel
Main Functions
I

The compiler phases and their corresponding functions are indicated in Figure
2,
and the organization of the compiler is
shown in Figure 3.

Icompile-time
I Processor
I
I

Control is passed between the phases of
the compiler via the control routines.
After each phase has been executed,
it
branches to the control phase, which selects from its load list the next phase to
bE~ executed.

IRead-In
I
I

communication between the
implemented by the following:
1..

phases

is

1:Q~.t.§~.t __ ~!:.!:i:n.9..!.

The text string at
the start of the compilation is inp'l\t
text.
This is converted
by
the
compile-time processor, if necessary,
into a string which is PL/I source
text.
The -characters in this string
are translated into a code internal to
the compiler. The phases of the compiler gradually process the text until
the final form is the object program,
consisting of a string of machine
instructions.
For the compiler proper, the text code bytes used,
and
formats of statements at different
stages of the compilation, will be
found in Appendix D.

The text is broken down into a number
of blocks, depending upon the size of
the machine. Each block has a symbolic name which is independent of the
physical location of the block in
storage. Thus, the text blocks may be
moved around in core storage under the
supervision of the compiler cont~ol
routines, and spilled on to backing
storage if insufficient main storage
is available.
2.

1:Q.§_Gicti2n~~~

The dictionary consists of a number of blocks, each with
a symbolic name.
Part of the first
dictionary block is used as a communications
region
(see
Appendix F)
between phases, and for this reason
the first block is never spilled, even
when the source program to be compiled
exceeds available storage. The communications
region
contains
such

~-------------+---------------------------~

IExecutes compile-time
I
I statements
and
produces I
linput for further compiler I
Iprocessing.
I

t-------------+---------------------------~

ICheck source
Itax;
remove
Icharacters.

syn-I
superfluous I
I

~rogram

t-------------+---------------------------~

IDictionary
t
I
I
I

IRemove BCD identifiers andl
declarations; I
Ireplace by syrrbolic ref-t
lerences
to
dictionaryl
lentries.
I

I attribute

~-------------+---------------------------~
IPretranslatorlRearrange 1/0 statements; I

Icreate temporary variables I
I
Ifor
procedure
argurrentl
I
I
I expressions; convert arrayl
I
land structure assignments I
Ito DO loops;
remove iSUBI
I
I
I expressions.
I
~-------------+---------------------------~
ITranslator
I Convert PL/I
syntactical I
Iform to internal
triplel
I
I
I form.
I
~-------------+---------------------------~

IAggregates
I
I

IMap all
structures
andl
larrays to align elements onl
Icorrect storage boundaries. I

~-------------+---------------------------~

I Pseudo-code
I

Iconvert
I code.

triples to pseudo-I
I

t-------------+---------------------------~

I Storage
I allocation
I

IAllocate storage for items I
lin
AUTOMATIC
blocks orl
ISTATIC storage area.
I

~-------------+~--------------------------i

IRegister
I allocation
I
I

IAllocate physical registers I
lin place of syrrbolic reg-I
listers requested by earlierl
Iphases.
I

t-------------+---------------------------~

IFinal
I assembly
I
I

IComplete translation to ma-I
Ichine code; produce loaderl
Itext; produce object codel
Ilisting.
I

~-------------+---------------------------~

IError
IPrints out any necessary
I
messages.
lIEditor
_____________ Idiagnostic
___________________________
JI
~

Figure 2.

Logical Phases of the Compiler
and their corresponding Functions

section 1 (Introduction):

Compiler Organization

17

r-------------------------------------------,
r-----------,I
1 OS/360
I CONTROL
I PROGRAM

I
I

PL/I (F)
COMPIL~g

L---T-------J

1

A

1

1

I

1

1
V

1
I

r-------.1. ---,1

1 COMPILER
1 CONTROL
I ROUTINES

1-------,
I

L---T-------J

I
I
I
I

V

1\

I
I
I
I

r-----------,
I SYSTEM
I

r-------.1.---,1
I

\ ___________
RESIDENCE J\
L

I\ COMPILER

\

\<--+-------------->1

I
1I

I PROCESSING I
r-----~

r-----------,
1

I

1---,

I
I

1 PHASES
I

I
1

L ___________ J

I

I
I

\
1

1

I
I

I

I

I SOURCE
I
IL___________ JI

I
VI

I
I
V

V

1\

V

V

V

r-----------,
TEXT

I DICTIONARY I

I I
BLOCKS
Ir---------+-->I
I
L ___________
JI

1L ___________
BLOCKS
JI

V

r-----------,

I

OBJECT

I

I1

I

\

1\

1\

I

I

1I

1I

1L_________ +
1_______________________ +
I _________ J

I

V

r-----------,I
1 SPILL
I

1

STORAGE JI
IL___________

Figure 3.

I

I·

L___________ J

18

r-----------,

IL _________ +__ >1

V

r-----------,I
1 SPILL
\

I

I

1

STORAGE
L ___________
J

------>

CPU Control

------»

Read/Write Communication

<----->

Input/Output under OS/360 Control Program
and Compiler Control Supervision

Compiler Organization and Control Flow

L.OGICAL PHASES
The logical phases of the compiler and
their main functions are su~marized in the
following paragraphs.

Compile-time Processor

The Translator Phase converts the original PL/I syntactic form to an internal
syntactic form, referred to as "triples."
Triples consist of the original source
program operators and o~erands, but rearranged so that the operat.ions specified in
the source string may be carried out in
their proper order.

Ph~§~

The Compile-time Processor Phase reads
input
text,
executes any compile-time
statements contained in it, and modifies
text as directed, producing modified text
for further compiler processing.

The Read-In Phase is responsible for
source program syntax checking, and the
removal, from the text string, of all
superfluous characters, such as comments
and non-significant blanks.

The Aggregates Phase carries out all
structure and array mapping, so that elements are aligned on the correct storage
boundaries.
When it is not possible to
carry out the ~apping at compilation tirre,
such as when the aggregates contain string
lengths or array bounds which are specified
by expressions, object code is produced to
do it at object time~
~his phase also
checks that items DEFINED on arrays and
structures can be mapped consistently.

Dictionary Phase
The Dictionary Phase removes all BCD
identifiers and attribute declarations from
the source string, and replaces them by
symbolic references to dictionary entries.
The dictionary entries contain all the
consistent declared attributes, and all the
attributes specified in the language in
default of source program specifications.
Error messages are generated for all inconsistent attributes.

The Pseudo-Code Phase converts the triples to a form closely resembling machine
instructions, in which registers are represented symbolically, and storage locations are represented by dictionary references with offsets.
The final pseudocode version of the text also contains a
number of special pseudo-code items for the
guidance of later phasesc

Pretranslator Phase
The Pretranslator Phase processes those
features of the language that are more
easily processed in their original PL/I
form, than when the original syntactic form
has been lost in later phases. The Pretranslator carries out these modifications
which include the rearranging of the order
of certain I/O statements, the creation of
temporary variables for procedure arguments
which are expressions, the conversion of
array and structure assignments to a series
of 'DO' loops surrounding scalar assignments, and the removal of iSUB expressions.

The Storage Allocation Phase searches
the dictionary for all entries requiring
storage, and allocates offsets to each
item, either within its AUTOMATIC block, or
within the STATIC storage area. Code is
compiled
to
set up dope vectors and
pointers at object time, for allocations of
controlled variables and temporaries, the
storage for which must be obtained during
the execution of the object program. Prologue code is generated for each block of
the object program.

Section 1 (Introduction):

Compiler Organization

19

The Register Allocation Phase allocates
physical registers to the symbolic registers which have been requested by earlier
phases, and also ensures that all the
storage location offsets allocated in previous phases can be addressed by the insertion of additional instructions, where necessary.

The Final Assembly Phase completes the
translation to machine code instructiona,
by calculating branch destination addresses
inserted symbolically by earlier phases.
Loader text is then produced for
the
machine instructions, constants, INITIAL
values in STATIC storage, and all the

20

constant data required for block initialization. ESD and RLD cards are produced to
enable the object program to be edited by
the Operating System/360 Linkage Editor.
The Final Assembly Phase also produces a
listing of the object code produced.

The Error Editor Phase is entered at the
end of every compilation.
The dictionary
is examined to determine whether there are
any diagnostic messages to be printed out.
If there are none, the corrpilation is
terminated by the compiler control.
If
there are diagnostic messages to be printed
out, the error dictionary entries are processed and the messages are printed. The
texts of all the diagnostic rressages are
Iheld in modules XG through YY.

Note:
For description~i of terms and abbreviations used in the text during a compilation
which are mentioned in t~his section of the Program Logic Manual, refer to ~EE§~9ix_QL_!!.
Loads phase AN to handle a normal dictionary, or phase AL if an extended
dictionary is requested.
On return from module AB, the first compiler phase is loaded and entered.

COMPILER CONTROL
when the PL/I (F) Compiler is invoked by
the
calling
program
(e.g.,
the Job
Scheduler) of the Operating ,System, the
Compiler Control module IEMAA is loaded and
entered.
IEMAA is resident during the
whole compilation; it controls the following functions:
Initialization
Character translation
Text and dictionary block control
Scratch storage control
Phase loading
Diagnostic message control

The character translation tables (see
Appendix D.l)
provide the facility for
converting external code to a compiler
internal
code, and for converting the
internal code back to the external form.
These tables thus prevent the compiler from
becoming character code dependent, and enable the scanning routines to process the
input source statements more efficiently.
Note that the contents of these tables are
different during compile-time processing
from the contents during compilation proper.

Input/output control
Program check handling
Job termination

Initialization is achieved by module AA
linking to module AB. Module AB performs
the detailed initialization of the compiler, and provides the following functions:
Opens SYSIN and SYSPRINT data sets
a phase directory (for details
refer to Appendix B)

Cons~ructs

The comrrunications region is an area
specified by the control routines, and used
to
communicate
necessary
information
between the various phases of the compiler.
The communications region is resident in
the first dictionary block throughout the
compilation.
Entry to the various corrpiler control
routines is via a transfer vector. Details
of the transfer vector and the organization
of the communications region appear in
Appendix F.
(Note: The use of the corn~uni­
cations region during compile-time processing is described in Appendix J.)

Sets up a communications region in the
dictionary (for details refer to Appendix
F)

Scans option list
Obtains space for
tionary blocks.

text blocks and dic-

Opens SYSUT3 and SYSPUNCH as necessary
Prints a list of options used in
compila.tion

current

Block control is achieved by a systerr of
text and dictionary references.
If the
program in storage becomes too
large,
blocks are placed on an external file,
SYSUT1. The block control routines contain
the input/output control.

Section 2 (Compiler Phases): Control, 48-Character Preprocessor

21

Scratch storage

Con!~21

Scratch storage of 4K bytes is guaranteed to all phases. The control routines
split the 4K-block into discrete sections,
and allocates them as required. The sections are in multiples of 512 bytes.

The (F) Compiler requires
for the following purposes :

main

storage

Because of the number of phases in the
compiler, the phase directory is split into
halves.
The first half is constructed
during the initialization of the compiler:
also a list of names of the phases in the
second half is kept in Phase AA. This list
is used to pass status indications (i.e.,
whether phases are wanted or not wanted)
from the first half to the second half.
Phase JZ uses the list to construct a new
directory for the second half.
(The error
message phases have their own ~hase directory, which is built in phase XB and uses
the same space in AA as the phase directory
proper.)

Compiler processing phases
The phase directories are ccnstructed by
use of the BLDL macro and a build list.
The format of the build list is fully
described in the publication !~~_§yst~m{l£Q

Print buffers
Compiler control routines
Dictionary area

Opera~i~g_§y~!~mL_~2~~~21_g~29~~m_Ser~i£~§,

Form C28-6541. For details
directory see Appendix B.

Text area

cf

the

phase

Input/Output buffers
Input/Output routines (QSAM)
The main storage required by each phase
of the compiler need be contiguous only for
each control section.
During the read-in phases a minimum of
two dictionary blocks and two text blocks
are available in storage simultaneously.

Diagnostic message
control
routines
cause diagnostic messages to be placed in a
chain in the dictionary.

During the rest of the compilation four
dictionary blocks and four text blocks are
available in storage simultaneously.
The dictionary and text block size is
chosen according to the amount of main
storage available to the compiler.
The
SIZE option, interpreted at
invocation
time, provides the value used to determine
the block size. A table contained in Phase
AB is searched, using the SIZE option as an
argument. When the correct entry is found,
the block size is extracted.
Appendix
allocation.

E

shows

details

of

storage

Phase loading routines include phase
marking (where phases are indicated as
wanted or not wanted), phase loading, and
phase
deleting
facilities.
The phase
directory is constructed for this purpose.
22

The I/O control routines involved act as
an interface between the corr~iler phases,
and SYSIN, SYSPRINT, SYSLIN, and SYSPUNCH
data sets.
(See Figure 4.)

The compiler handles all ~rcgraro checks.
Control can be passed to a phase to enable
it to deal with the check.

The compiler completion code is picked
up and control is returned to the calling
program.

The compiler
follows:

completion

codes

are

as

o

No diagnostic messages issued; compilation completed with no errors

4

Warning messages
compiled

8

Error messages issued; program compiled but with errors; execution
may fail

issued;

Sect~ion

12

Severe error messages issued; compilation may be completed but with
errors, successful execution improbable.
If a severe error occurs
during compile-time processing, a
listing of the PL/I text on SYSUT3
will
be printed if the SOURCE
option is specified. The compilation will be terminated.

16

Terminal error messages
issued;
compilation terminated abnormally

program

2  I
I
I r-->I Dictionary entry for entry label
IA
IIII Ir--IL _____________________________________ JI
III

III

r-------------------------------------,

I I L_>I Entry type 2. Used to provide
I
II
I data description of target in
IB
RETURN (expression).
j
II II r--I
I L _____________________________________
J
II

II
r-----------------------------------------,
I
V
II
I I r----------------- L - - - - - - - - - - - - - - - - - - - , r-------------------------------------,
! L_>I Entry type 3. This entry is used
I Second entry type 2.
I
I
I to point at the data description C I I Used to provide data description
I
I and parameter descriptions for para-ID
r--I meter matching.
I
I l-------T---------T--------------T---- J
II
II
II
II

L___

I

I

I

I

I
I

I
II
I
I

L __________ ,

I of value returned when label A
IC
I is invoked as a function. This
I
I entry may, and usually will, coin- I
cide with B.
lI _____________________________________
JI

l ______ .______________________ ,

I

I

I

V

V

V

r-------------------·---,
I Description of
I
I
IE
I first parameter
I
l ______________________ J

r----------------------,I

I
I Entry type 1 for
l_>1 PROCEDURE or
l___ I ENTRY statement

IF
I

l-----------T---------- J

r----------------------,
I Description of
I
I
I El
Il ______________________
second parameter
I
J

r----------------------,

I Formal parameter
I type 1 entry

I
IG

I

I

r-----------------------,
I Description of
I
I
I E2
IL _______________________
each parameter
I
J

r-----------------------,

I Description of paraI
I meter used in prologuelH
Il _______________________
construction
JI

l---------------T------ J

I
1\
Il ______________________ JI

/\
I
Il ______________________ JI

Note: There is an entry E for each parameter described in D.
Figure 6.

Dictionary Entries for an Internal Entry Point
construct chains linking entries of
cular types.

Phase ED simply moves a set of subroutines, which handle certain features of the
list processing facility, into the communications region and sets a register to point
at them. The routines will later be used
by phase EL.

Phase EG has two main functions.
The
first is to set up a hash table, and to
insert the label entries left in the dictionary by the Read-In Phase into hash
chains.
The second function of the phase
is to create dictionary entries for PROCEDURE, BEGIN, and ENTRY statements, and to

parti-

For RBOCEDUR£;=BEG!~ staterrents, entry
type 1 dictionary entries are created
(see
Appendix C.2), and block header chains are
set up to link these entries sequentially.
A containing block chain is also set up to
link each entry with that of its containing
block.
On the appearance of PROfEDUR£; statements,
circular PROCEDURE-ENTRY chains are
initialized to link the entry type 1 dictionary entries of the PROCEDURE and ENTRY
statements of the same block.
The formal
parameter list is scanned, and formal parameter type 1 entries are created and
inserted into the hash chain. Details of
the PROCEDURE-ENTRY chains appear in Appendix C.2.

Section 2 (Compiler Phases):

Dictionary Logical Phase

33

The attribute list is scanned and an
options code byte is created in the entry
type 1 (see Appendix C.2). A check is then
made for invalid and inconsistent attributes.
CHARACTER and BIT attributes are
processed, and second file statements (see
Appendix D.8) are created if necessary.
Precision data are converted to binary, and
dictionary entries are created for pictures
(see Appendix C.7).
statement labels are scanned and their
entry type 2 dictionary entries are created. The relevant data bytes in the dl.Ctionary are completed by default rules (see
Appendix c.3).
For ~NTRX statements, entry type 1 dictionary entries are created (see Appendix
C.2), and the circular
PROCEDURE-ENTRY
chain is extended.
Formal
parameters,
attributes, and labels are processed in a
similar
manner to those for PROCEDURE
statements, except that the options code
byte is not created.

!NITIALl.
dictionary entries
for INITIAL attributes.
INITIAL CALL:

second file

are created

statements

created~or-INITIAL CALL attributes.

are

CHARACTER and BIT: fixed length constants
areconVertedtobInary; a code byte marker
is left for * lengths (see Appendix C.8).
Second file statements (see Appendix D.8)
are created for adjustable length constants, and the source text is replaced by
pointers to the statements.
DEFINED:
second
file statements
(see
Appendix D.8) are created and the source
text is replaced by pointers to the statements.
POSITION: the position
verted-to binary.

constant

is

con-

PICTURE:
a picture table entry (see AppendiX--C:7>
is created and inserted into the
picture chain; similar pictures share the
same picture table.
The source text is
replaced by a pointer to each entry.
USES and SETS: USES and SETS attributes
a re--ffiov ed--rnto dictionary entries, and
pointers to the entries replace the source
text.

Phase EI
Phase EI scans the chain of DECLARE
statements set up by the Read-In Phase, and
modifies the statements to assist Phase EK
as follows:

LIKE:
BCD entries are created for identIfiers with the LIKE attribute.

Structure Level Numbers:
verted to binary-.- - - - - -

LABEL:
if the LABEL attribute has a list
of statement label constants attached, a
single dictionary entry is created.
The
dictionary entry contains the dictionary
references of the statement label constants
in the list.

these are con-

Factored Attributes: parentheses enclosing
factored attributes are replaced by special
code bytes, so that Phase EK can distinguish them easily.
A factored attribute
table is set up.
It consists of slots
corresponding to each factored level. Each
slot contains the address of the attribute
list associated with that level, and the
address of the slot for the containing
level.
The following attributes are processed:

IOFFSET and BASED: Second file statements
lare made--and~ext references are inserted
lin the DECLARE statements for these attriIbutes.
1~~EAl.

Fixed-length specifications are conIverted to binary; second file statements
lare made for expressions; a code byte,
Ifollowed by the length of text reference,
lis inserted in the DECLARE statement text.

DIMENSION: dimension table entries (see
Appendix C.8) are created in the dictionary
and the source text is replaced by a
pointer to the entry.
Fixed bounds are
converted to binary and inserted in the
table. A second file statement (see Appendix D.8) is created at the end of the text,
for adjustable bounds, and a pointer to the
statement is inserted in the dimension
table.
Identifiers with identical array
bounds share the same dimension table.

Phase EL, consisting of modules EK, EL,
and EM, scans the chain of DECLARE statements constructed by the Read-In Phase.

PRECISION: precision and
are converted to binary.

An area of storage known as the attribute collection area is reserved. ThIs-Is

34

scale

constants

All other attributes,
constants are skipped.

identifiers, or

used to store information about the identifiers, and has entries of a similar
format to that for dictionary entries.
Complete dictionary entries are constructed for every identifier found in a
DECLARE statement. These identifiers can
be one of the following types:
1.

Data Items (see Appendix C.4)

2.

structures (in
level
number
Appendix C.4)

this case, the 'true'
is calculated)
(see

3.

Label Variables (see Appendix C.4)

4.

Files (see Appendix C.7)

5.

Entry Points (see Appendix C.2)

6.

Parameters (see Appendix c.7)

After the dictionary entry has been
made,
further processing (e.g. linking of
chains, etc.) must be done in the following cases:
1.

DEFINED data

2.

Data with the LIKE attribute

3.

Files

4.

Strings with adjustable lengths

5.

Arrays having adjustable bounds

6.

GENErtIC identifiers

7.

structure members

8.

Identifiers with INITIAL CALL

9.

Identifiers with the INITIAL attribute

After the declaration list has been
fully scanned and processed, it is erased.
7.

Event Variables

8.

Task Variables.

Identifiers appearing as multiple declarations are rejected and a diagnostic
message is given.
The attributes to
each identifier are
ways.

be associated with
picked up in three

First, the attributes immediately following the identifier are stored in the
attribute collection area.
secondly, any factored attributes and
structure level numbers
are
examined.
These are found by using the list of
addresses placed in scratch core storage by
Phase EI.
Each applicable attribute is
marked in the attribute collection area,
and any other information, e.g.
dimension
table address, or picture table address, is
moved into a standard location in the
attribute collection area. All conflicting
attributes are rejected and diagnostic messages are given.
Finally,
any
attributes
which are
required by the identifier, and which have
not been declared, are obtained from the
dE~faul t rules.

Phase EP first conditionally marks later
phases as 'wanted' or 'not wanted,' according to how certain flags in the dictionary
are set on or off.
This assists in the
load-ahead technique,
The entry type 1 chain in the dictionary
is then scanned. For each PROCEDURE entry
in the chain, each entry label is examined
for a completed declaration of the type of
data the entry point will return when
invoked as a function.
If this has previously been given in a DECLARE statement
nothing further is done, otherwise entry
type 2 and 3 dictionary entries are constructed from default rules (see Appendix
C.2).
If this default data description
does not agree with the description derived
from the PROCEDURE or ENTRY statement, a
warning message is generated.
At each PROCEDURE entry, the chain to
the ENTRY statement entry type 1 is followed. Each statement is treated in a
similar manner to that for a PROCEDURE
entry type 1.
The CALL chain is then scanned and, at
each point in the chain, the dictionary is
searched for the identifier being called.
If the correct one is not found, a dictionary entry for an EXTERNAL procedure is
made (see Appendix C.2), using default
rules for data description. Before making
the entry, the identifier is checked for
agreement with any of the built-in function
names. If there is agreement, a diagnostic

Section 2 (Compiler Phases):

Dictionary Logical Phase

35

message is generated, and a dummy
ary reference is inserted.

diction-

If an identifier is found,
it
is
examined to see if it is an undefined
formal parameter. If it is, the formal
parameter is made into an entry pOint,
again using default rules for data description.
If it is not, or if the declaration
of the formal parameter is complete, the
type of entry is checked for the legality
of the call.
A diagnostic message is
generated if the item may not be called.
In all cases, the item called is marked
IRREDUCIBLE if it has not previously been
declared REDUCIBLE.

Phase EW is an optional phase, loaded
only if any LIKE attributes appear in the
source program.
This phase scans the LIKE chain which
has been constructed by Phase EK,
and
completes the dictionary entry for any
structure
containing a LIKE reference.
When a structure in the LIKE chain is
found,
its validity is checked, and dimension data and inherited information are
saved.
The dictionary is scanned for the
reference of the "likened" structure and
the entry is checked for validity.
This dictionary entry (see Appendix C.4)
is copied into the dictionary, with alterations if there is a difference between the
original structure and this structure with
regard to dimensioned data.
If both structures have dimensions a straight copy is
made; if the structure with the LIKE attribute has dimensions and the likened structure has not, the dimension information is
added to the copy; if the structure with
the LIKE attribute is not dimensioned and
the likened structure is, then the dimension data is deleted from the copy. Inherited data is added to the copy.
If an
error is found, the structure with the LIKE
attribute is deleted and a base element
copy of the master structure is inserted
instead.
Where copies of entries occur
which refer to dimension tables with variable dimensions, the dimension table entry
is copied, and new second file dictionary
entries and statements are created. Similar entries must be made if the structure
item has been declared to be an adjustable
length string, or has been declared with
the INITIAL attribute.
36

Phase BY is an optional phase
Iprocesses all ALLOCATE statements.

which

The second file is scanned first and all
pointers to the dictionary are reversed.
All ALLOCATE statements using the DECLARE
chain are then scanned, and the dictionary
references of allocated items are obtained
by hashing the respective BCD of each item.
The attributes given on the ALLOCATE statement for an item are collected together.
A copy of the dictionary entry of the
allocated item is then made
(see Appendix
C.4),
and the ALLOCATE statement is set to
point to it.
The dictionary entry is
completed by including any attributes given
on the ALLOCATE statement, and copying any
second file statements froID the DECLARE
chain which are not overriden by the ALLOCATE statement.
I
In the case of an ALLOCATE statement in
Iwhich a based variable is declared, no copy
' co
lof the original
dictionary
entry
l
Irequired.
The BCD is replaced by the
loriginal dictionary reference.
~>

I
All pOinter qualified references in the
Itext are checked to determine that the
Iqualified variable is based.
For every
I occurrence of a variable with a different
Ipointer a new dictionary entry is made.
If
Ithe variable is a structure the entire
I structure is copied.
A PEXP second file
Istatement is made for the pointer and the
I'defined'
slot in the new dictionary entry
lis set to point to it instead of to the
Ideclared pointer.
I
The BCD of the pointer and the based
Ivariable in the text are replaced by the
Inew dictionary reference followed by padIding of blanks which will be removed by
Iphase FA.
I
The based variable can be the qualified
Iname of a structure member.
If this is so,
Ithe name is checked for validity. Only the
Ifirst part or lowest level of the qualified
Iname in the text is replaced by the dicItionary reference of the rrember.
It is
Ipreceded by a special marker to tell phase
IFA that a partially replaced name follows.

Phase FA scans the text sequentially.
If,
during the scan, qualified names are
found with subscripts attached,
they are
reordered so that a single subscript list
appears after the base element name.
The

dictionary is
scanned
and
references
obtained for any identifiers which are,
contextually, file, event,
pointer variables,
or programmer-named ON conditions.
If no reference is available, a new dictionary entry is made. The identifier is
then replaced in the text by the dictionary
reference.
If a constant marker is found,
the
dictionary is scanned to check if the
constant is present.
If it is not, a new
dictionary entry is made (see Appendix C.7)
and the resulting reference replaces the
constant in the text.
If a P FORMAT marker is found,
the
dictionary is scanned for a picture entry
in agreement.
If there is no agreeing
entry, a new dictionary entry is made (see
Appendix C.7)
and the picture chain is
updated. The dictionary reference replaces
the format marker in the text.
The CALL chain is removed from CALL
statements. The appearance of PROCEDURE,
BEGIN, END,
and DO statements results in
adjustments to the level and count stacks.
If statement introduction code bytes appear
(such as SN, SL, CL, and SN2), the current
statement number is updated.
All data
items associated with the PROCEDURE, BEGI~,
ENTRY, and DECLARE statements are removed,
leaving only the statement identification
and the keyword.

PROCEDURE, BEGIN, DO, and END statements
cause the current level count to be updated.

Phase FI
-------Phase FI scans the text and checks,
where possible, the validity of dictionary
references found.
References in a GOTO
statement are checked that they refer to
labels or label variables and that the
subsequent branch is valid. The code byte
for GOTO is changed to GOOB
(see Appendix
D.l)
if the branch is to a label constant
outside the current PROC or BEGIN block.
If the branch is to a label variable, GOOB
is set up unless a label value list was
given at the declaration, and all members
of the list lie within the current block.
I
List processing based variables in ALLOICATE, FREE, READ, WRITE, and LOCATE stateIments are rrarked as requiring a Record Dope
IVector
(RDV). Variables in TASK and EVENT
loptions on CALL statements are checked for
Ivalidity.
References are checked if they appear
where a file is expected.
Items ln data
lists are checked for validity, and Data
Element Descriptors (DEDs) and symbol bits
are set on for all variables found in the
lists.
Any errors which are found cause diagnostic messages to be generated and durrmy
references to be placed in the text in
place of erroneous references.

when an identifier is found, the hash
chain is used to scan the dictionary for a
valid entry.
If one is found, its dictionary reference replacE~s the identifier
in the output text.
If no valid entry is
found, and the BCD does not agree with any
entry in the tables of BCDs of PL/I builtin functions, then a dictionary entry is
made as if the identifier was declared in
the outermost procedure.
However,
if the
BCD agrees with a function name, and it is
not in a SETS position, a function entry is
made in the dictionary, and its reference
is used to replace the identifier.
If a left parenthesis is found, the
previous dictionary entry is checked for an
array, function, or pseudo-variable.
If it
is one of these,
the relevant marker is
inserted in the text before the parenthesis
(see Appendix D.l).
Checks are also made for the positions
of
function
references
in assignment
statements.
Any
dictionary references
encountered in the input file are moved
directly to the output file.

Phase FK scans the attribute collection
area for entries with the SETS attribute.
The SETS lists in the dictionary entries
are scanned, and their syntax checked.
Identifiers are counted and replaced by
their dictionary references. Constants are
counted, converted to binary, and arranged
in ascending order in the dictionary entry.

Phase Fa makes a dictionary entry for
each ON condition mentioned inside a block.
For ON CHECK conditions multiple dictionary
entries are made (see Appendix C.7),
one
for each BCD.
If a similar condition is
mentioned more than once in a block,
only
one dictionary entry is rrade for that

Section 2 (Compiler Phases):

Dictionary Logical Phase

37

condition, except for file conditions, ON
CONDITION, and ON CHECK, when separate
dictionary entries are made for each different BCD name.
SIGNAL and REVERT statements are treated
in a similar manner to ON statements.
The dictionary entries for each BCD name
associated with file or CONDITION conditions are checked and, if in error, the ON,
SIGNAL, or REVERT statement is replaced by
an error statement. A diagnostic message
is generated.
The BCD name of each file entry referred
to in ON, SIGNAL, and REVERT statements is
examined. If the BCD is SYSIN or SYSPRINT,
the dictionary reference of the file entry
is placed in a slot in the communications
region.
A check is made to ensure that formal
parameters do not appear in CHECK and
NOCHECK lists.
A single dictionary entry
is created for each CHECK and NOCHECK list
and a pointer to the entry is placed in the
relevant entry type 1.
When dictionary entries are made for
CHECK lists, one of three different check
codes is used depending on whether the BCD
is an ENTRY LABEL, a LABEL CONSTANT, or a
variable.

label, an assignment to a compiler label
has been inserted by the Read-In phase.
Phase FO checks the validity of each such
assignment~ for each array with
this type
of initialization, a second file dictionary
entry is made, and all assignments to the
array are chained.

Phase FQ checks the validity of each
item in the PICTURE chain in the dictionary
(see Appendix C.7).
The precision for each correct picture
is calculated, together with its apparent
length, and stored in its dictionary entry.
A data byte is created in the entry for use
by Phase F'I'.
Invalid pictures cause appropriate diagnostic messages to be generated.

Phase FT
------Phase FT performs certain housekeeping
tasks. These are as follows:

List Processing POINTER and OFFSET variables in CHECK lists are treated as data
variables. BASED variables may not appear
in CHECK lists.

I 1.

The second file entries are scanned
and pointers to each entry are inserted in the associated dictionary entry
(see Appendix C.7).

A dictionary entry is made for the list
processing AREA condition. This condition
is always enabled and may not appear in a
condition prefix.

2.

Each item which has a storage class is
inserted into the appropriate chain
for that class (see Appendix C.4).

3.

Constants are placed in the constants
chain and their apparent precision is
calculated.
Sterling constants are
converted to pence.

4.

Dimension tables are separated for
items which are not in structures, but
which are
arrays
having
similar
bounds, but with different elerrent
lengthS.

5.

Items which are members of structures
and which have "inherited" dimensions,
i.e.
are contained in a structure
which itself is dimensioned, are wade
to inherit their dimensions.
If a
base element of a structure inherits
dimensions which are not constant,
second file statements
(see Appendix
D.8) are set up to initialize the
bounds in the oeject time dope vector.

6.

Items which have expressions to be
evaluated at prologue tirre u e.g. par-

Dictionary entries are also created for
each ON condition which is disabled for a
particular PROCEDURE or BEGIN block, and
for each ON condition whose status is
changed within the block.
Pointers to
these dictionary entries are placed in the
relevant entry type 1.
All dictionary entries for ON conditions
are placed in the AUTOMATIC chain for the
relevant PROCEDURE or BEGIN block.
A further,
quite distinct, function of
this phase is to substitute error statements for all statements containing dummy
dictionary
references (which have been
inserted by previous phases on detecting a
severe error).
If a dummy reference is
found in the second file,
the compilation
is aborted.
Wherever an element of a label array is
initialized by appearing as a statement
38

ameter descriptions for entry pOints
and defined items~ are placed in the
AUTOMATIC chain for the appropriate
block.
7.

The dictionary entry for any item
described by a picture is expanded by
the precision and scale or string
length, extracted from the picture
table entry.
Identifiers of different
modes sharing the same picture table
are now placed in se~arate tables.

8.

The 'dope vector required'
bit (see
Appendix C.S)
is set on where necessary.

9.

When a label array is found which has
initial label statements for any of
its elements, the chained statements
are moved into the second file.
The
original statement is left in the
text, to be removed by Phase FV.

10.

Ibased variable is a structure this reflerence is ~ropagated throughout the strucIture.
The PEXP statement is then deleted.
I
A similar ~rocedure is performed for
I BVEXP
(based variable expression) second
Ifile statements whereby the dictionary reflerence of the AREA is inserted into the
I dictionary entry of the associated OFFSET
Ivariable.
ADV second file statements referring to
la BASED variable are checked for com~liance
Iwith the (F) implementation rules.
If the
Irules are obeyed, the dictionary entty of
Ithe 'bound'
variable is inserted in the
I appropriate slot in the multiple table
I entry.
If an MTF statement refers to a based
Ivariable the ap~ropriate bound slot is
Icopied frow one multiple table entry to the
lather.

Dictionary entries similar to label
BCD entries are made for all TASK
variables.

Phase FV scans the second file and
reverses the pointers to the dictionary.
Dictionary entries for DEFINED data are
completed (see Appendix C.4 and
C.S).
Overlay and correspondence defining are
differentiated between, as are static and
dynamic defining.
A preliminary check of
the validity of defining is also carried
out.

Phase FX is an o~tional phase entered
only if the XREF or ATR
(cross reference
lister and attribute lister respectively)
options are specified.
It scans the STATIC, AUTOMATIC, and CONTROLLED chains, and
the formal ~arameter lists.
For each identifier it creates an
in scratch text storage of the form:
2 bytes

3 bytes

When ALLOCATE statements are found,
any
second file statements associated with the
item being allocated are inserted in the
text following the statement.
When a reference to dynamically defined
data
is found,
the base reference is
inserted
into
the text following the
defined reference.
When
an initial label statement is
encountered in the main text, it is not
copied into the output string.

3 bytes

r-------------T--------------T------------,
I Dictionary
IText reference I Text chain I

IL _____________
reference
Ito
this item
I ____________ JI
______________
~

When PROCEDURE and BEGIN statements are
encountered, any second file statements
associated with data in the AUTOMATIC chain
for that block are inserted in the text
following such statements.

entry

~

This entry is inserted into a chain of
similar entries in the alphabetical order
of the BCD of the identifier.
If the XREF option is s~ecified, the
text is scanned for dictionary references.
When the dictionary reference of an identifier is found in the text, an entry is
created in a chain of entries from the
dictionary entry of the identifier.
Each member of the chain which represents a reference to the identifier, has
the following form:
3 bytes

2 bytes

r-------------------T---------------------,
I Statement number I
Text chain
I

L ___________________ ~ _____________________ J

I
The dictionary reference of a POINTER in
I a PEXP , and to place the operand in
the location specified by the TMPD following the function.
Assignments to compiler
pseudo-variables are treated in reverse;
the result from the TMPD following the
assignment is stored in the array bound or
string dope vector slot specified in the
compiler pseudo-variable.
Phase OB also scans the text for BUY,
SELL, and BUY ASSIGN statements. The temporary operands of these statements are
examined, and if they are CAD or short
fixed-length strings, they are allocated

tri-

Assignment

Remote format statements are executed in
a similar way. After the R format item is
met,
control is passed directly from the
data list to the format statement until the
end of the format statement. Control then
returns to the item in the in-line format
code of the EDIT statement following the
appropriate remote format item. rlowever,
if no format elements remain but some data
list elements are still present, control is
passed back to the beginning of the format
statement.
An
which
will
to be
nate.

following

1.

Floating-point to floating-point

2.

Fixed binary to fixed binary

3.

Fixed decimal to fixed decimal

4.

Numeric field to numeric field, if the
pictures given for the operands are
identical

5.

CHARACTER string to CHARACTER string,
if the operands are fixed length and
not more than 256 characters

6.

BIT string to BIT string,
if the
operands are aligned and not more than
2040 bits

7.

Label to label

8.

File constant to file parameter

9.

POINTER/OFFSET to POINTER/OFFSET

110.

1
I
I

FIXED
CHARACTER string to VARYING
CHARACTER string and VARYING CHARACTER
string to VARYING CHARACTER string
provided that:
1.

The length of the source operand
is not greater than 256 bytes

Section 2 (Compiler Phases):

Pseudo-Code Logical Phase

55

2.

The length of the target string is
not greater than 256 bytes, if the
maximum
length
of the source
string is not known.

3.

For
FIXED CHARACTER string to
VARYING
CHARACTER
string
the
length of the FIXED string is not
greater than 256 bytes.

Library calling sequences are compiled
for those cases of CHARACTER string to
CHARACTER string and BIT string to BIT
string codes not compiled in-line.
After checking both AREA operands, AREA
assignments are performed by the library.

In-line conversion phases which are
not required (OM and/or OP) are marked
unwanted.
IGN pseudo-code items and JMP triples
are removed. The amount of temporary working space required by each block of prograrr
is calculated and placed in the workspace
dictionary entry (see Appendix C.7).
The format of the text is converted so
that a pseudo-code item does not span
blocks.
The INCLUDE card matrix is formed for
all the conversion modules required.

All other assignment triples are translated into the CONV pseudo-code macro.
If the source operand is a constant, the
type of the target operand is inserted in
the constant dictionary entry, for processing by the constant conversion phase, and
the assignment is translated assuming the
target type.
MULTIPLE ASSIGNMENT triples produce the
same-Code as~or-sIngle assignment, except
that the registers used by the operand
concerned must not be changed or dropped.
Library calling sequences are generated
for ALLOCAT~L-ig~!L_~UYL-~~3_SE~~ triples,
and pseudo-code markers are left in the
text for insertion of code by Phase QF.
with §PECI~L AS§1§~~~~1 triples, if the
target is a varying or adjustable string,
storage is obtained if the target is AUTOMATIC, or allocated if the target is CONTROLLED.
The assignment is then translated.

Phase OG converts to pseudo-code all
statement numbers, statement labels, PROCEDURE, BEGIN, PROCEDURE', BEGIN', and endof-program triples.
The
CONVERT
pseudo-code
macro
is
examined in conjunction with the OPTIMIZATION parameter and pseudo-code is generated
in one of three forms:
1.

Code to
package

2.

Code
to
"in-line"

3.

56

call

Phase OM is called when either optimization levels 00 or 01 are specified.
This
phase scans the pseudo-code for the CNVC
macros, which phase OG has placed into the
text as 28-byte entries containing a transfer vector to select the appropriate conversion routine within OM, and replaces any
such macros with in-line code.
The conversions inserted by phase OM are
controlled by phase OG. When OPT=O, certain of the simpler FIXED DEC to PICTURE,
PICTURE to FIXED DEC, and FIXED DEC to
FIXED BIN conversions are passed to OM.
When OPT=l, the remainder of the feasible
FIXED DEC to or from PICTURE and FIXED DEC
to FIXED BIN conversions are passed to OM
together with FIXED DEC to CHAR conversions.
certain FIXED DEC to PICTURE conversions, which phase OG cannot itself efficiently detect to be uneconorric when performed in-line, are recognized by phase OM,
which inserts the calls to the appropriate
Library routines.

IPhase
OP
-----I
Phase OP generates in-line code to perIform BINARY to BIT string, BIT string to
IBINARY, and FLOAT to FIXED BINARY converIsions.

the Library conversion

perform

the

conversion

A modified CONV macro which is passed
to phase OM or OF for processing.

Phase as scans through the constant
chain in the dictionary and converts the
constants to the required internal form.
These are then stored in a constants pool,

and the offset of each constant from the
start of the pool is saved in the dictionary entry for that constant.
To permit the correct alignment of the
constant pool, three scans are made of the
constant chain: first to convert all double
word constants, secondly to convert all
single word constants, and thirdly to convert all unaligned constants.
In the first two scans only one pool
entry is made for constants having the same
internal form and value.
A fourth scan is made of the constant
chain and all constants required to initialize static are converted, but instead
of inserting these constants in the constant pool, they are moved into special
dictionary entries constructed by Phase LB.

The purpose of the Storage Allocation
Phase is to ensure that every item requiring
storage in a PL/I object program
obtains a unique location of the correct
size, located on the correct boundary.
Items requiring storage include PL/I source
program variables, dope vectors, dope vector skeletons, temporary variables, work
areas, data descriptors, symbol tables,
addressing slots, register save areas, flag
areas, etc. storage locations are allocated to items in order of descending alignment requirement to avoid wasting storage
by padding to the required alignment.
The Storage Allocation Phase is also
responsible for generating prologues.
In
generating the prologues, expressions which
determine size of variables, code generated
by the aggregates phase to initialize dope
vectors, and code generated by the initial
values phase, must be extracted and placed
in the correct sequence in the text. Also,
when a variable depends for its size or
initial value upon another variable, the
requests
for
dynamic storage must be
arranged so that the dependant variable
obtains its storage after the variables
upon which it depends.
Since all AUTOMATIC and CONTROLLED storage is obtained dynamically at object time,
the Storage Allocation Phase generates code
to relocate dope vectors when the allocated
storage address is known.

I
The purpose of phase PA is to deterrrine
Ithe eligibility of the automatic chains of
lany block for STATIC DSAs. Any chain not
Iso far found to be ineligible for a STATIC
IDSA is scanned to determine the DSA size.
ISTATIC DSAs are generated for any chains of
Iless than 512 bytes.
I
Dictionary entries are generated for
ISTATIC DSAs. This phase also acts as a
Ispill area for routines used in phases PD
land PH.

Phase PD is the first STATIC storage
allocation phase.
It scans the text, and
for every second file statement encountered
sets up a pointer in the associated dictionary which points to the second file
statement.
It then sorts the STATIC chain
so that the dictionary entries occur in the
order in which the storage for their items
will be allocated.
Storage is allocated for simple nonstructured, non-external variables, RDVs,
DEDs, SAVE/RESTORE entries, and the BCD of
entry labels and label constants. Storage
is also allocated for dope vectors for all
items in the STATIC chain requiring them,
twith the exception of EXTERNAL items.
A
tfull word address slot is allocated in
ISTATIC for each STATIC DSA.
The
external section of the sorted
STATIC
chain is scanned and a 4-byte
addressing slot is allocated for each entry
label, label constant, external (entry type
4) entry, built-in function, or EXTERNAL
item.
For each EXTERNAL ite~ the size of
the external control section is calculated
and stored in the dictionary entry.
The constants chain is scanned and the
offsets of the storage and dope vectors for
constants in the constants pool are relocated.
The current size of the STATIC INTERNAL
control section is computed and the result
is passed via the comrrunications region to
the next phase.

Phase PH is the second STATIC storage
allocation phase.
It scans the AUTOMATIC
chain and CONTROLLED chain for all items
requiring a dope vector.

Section 2 (Compiler Phases):

storage Allocation Logical Phase

57

For each such item a skeleton dope
vector dictionary entry is generated in the
STATIC chain (see Appendix C.7).
This
dictionary entry contains a bit pattern
equal in length to that of the dope vector
and containing all those values which are
known at compilation time. In particular,
it contains as much of the relative virtual
origin as is known at compilation time, the
constant bounds and string lengths, and the
constant multipliers.
Skeleton dope vectors are not put into
the STATIC chain for AUTOMATIC variables in
any biock whose DSA is in STATrc, except
when the variable dimensions bit is set to
one.
If the item is dynamically DEFINED, then
the dope vector is preceded by one extra
four-byte slot.
(In the case of structures
there is one extra slot for each element of
the structure.)
If the item is a dynamic
temporary (temporary type 2) or a CONTROLLED scalar string, the virtual origin
slot is relocated by the length of the dope
vector.
In all cases the skeleton dope vector
dictionary entry is pointed at by the
dictionary entry of the associated item.
The sorted STATIC chain is scanned from
the first skeleton argument list entry.
For each such entry, space is allocated in
the STATIC INTERNAL control section according to the assembled length of the argument
list. The offset of each skeleton argument
list is stored in the OFFSETl slot of the
dictionary entry.
RDV and DVD entries are found on this
same scan of the STATIC chain. RDV entries
are allocated eight bytes; DVD entries are
allocated the specified length.
A scan is made of the section of the
STATIC chain containing STATIC INTERNAL
arrays.
Storage is allocated for each
array according to its size (computed by
Phase JK) and the offset of the relative
virtual origin is relocated to the start of
the STATIC INTERNAL control section. If
the array is of the VARYING type and it
needs a dope vector, then storage is allocated for the secondary dope vector.
The
number of elements is calculated for INITIAL arrays and stored in the associated
INITIAL dictionary entry.
The section of the STATIC chain containing STATIC INTERNAL structures is scanned.
storage is allocated for each structure
according to the size of the structure
(computed by Phase JK), and this storage is
placed on the correct boundary on information supplied by Phase JK. The structure
member chain for each structure is scanned
58

and the relative offset of each member is
relocated to the start of the STATIC INTERNAL
control section.
Further, on the
structure member scan, secondary dope vectors are allocated when required, and the
number of elements is calculated for INITIAL arrays.

Phase PL
Phase PL scans the STATIC, AUTOMATIC,
CONTROLLED, structure, and PROCEDURE block
chains for variables which require storage
for their symbol tables and/or data element
descriptors.
When a variable is found which requires
a symbol table, the variable is joined onto
the chain of symbol variables for the
particular block. A symbol table dictionary entry is created for the variable (see
Appendix C.?), and a chain is set up to and
from the dictionary entry for the variable.
The new dictionary entry i~ joined onto the
STATIC chain.
The size of the symbol table is calculated, and its offset from the start of the
STATIC control section is stored in the~
symbol table dictionary entry. Throughout
the allocation of STATIC storage a location
counter is maintained to contain the next
free location in STATIC; this counter is:
increased appropriately.
All symbol variables require a DED and a
branch is taken to the routine which allocates them.
When a variable is found which requires
a DED, it is determined whether or not the
DED descr~bes a standard type; there are
eight standard types, which consist of the
different kinds of real coded arithmetic
data that can be obtained by the combination
of
the
attributes
FIXED/FLOAT,
BINARY/DECIMAL, LONG/SHORT (default preci-sions only).
If the DED is of a standard type, a
check is made for an identical DED that may
have already been encountered, so that
there will be only one allocation of storage for anyone type of standard DED. If
the DED is not of a standard type, it is
allocated storage of its own.
If the variable does not already have a
symbol table dictionary entry (which contains space for DED information), a OED
dictionary entry is constructedi and thE~
offset of the DED in the S~ATIC control
section is stored in it. A pointer in the
new entry in the dictionary entry for the
variable is also set up.

When all data element descriptors and
symbol tables in the compilation have been
processed, all STATIC storage has been
allocated and the total size of the STATIC
control section is placed in a slot in the
communications region.

I
Two words are allowed for tasking inforImation in the DSA if the TASK option is on
Ithe external PROCEDURE of the compilation.
The AUTOMATIC chain is scanned and dope
vectors are allocated for the items requiring them. Code is compiled to copy the
skeleton dope vector, and to relocate the
address in the dope vector.

I
Phase PP extracts all ON
condition
entries and places them at the head of the
AUTOMATIC chain.
It then extracts all
temporary variable dictionary entries from
the AUTOMATIC chain and places them in the
zone following the ON conditions in the
chain.
All dictionary entries which are totally
independent
of any other variable are
extracted, and also placed in the zone
following the ON conditions.
The phase then extracts all dictionary
entries which depend upon some other variable in containing blocks or in the zones
already extracted, and places them in the
next following zone.
Dependency includes
expressions for string lengths, expressions
for array bounds, expressions for INITIAL
iteration factors, and defined dependencies.
This is repeated recursively until
the end of the chain.
If some variable
depends upon itself, a warning message is
issued.
A
special zone delimiter dictionary
entry is inserted between each zone in the
AUTOMATIC chain (see Appendix C.7). A code
byte is initialized in the delimiter to
indicate to Phases PT and QF whether its
following zone contains any variables which
require storage (i.e., it does not consist
entirely of DEFINED items, which do not
require storage), and whether or not the
following zone contains any arrays of VARYING strings.

Phase PT allocates AUTOMATIC storage,
scans the CONTROLLED chain, and determines
the size of the largest dope vector.
It
scans the entry type 1 chain, and for each
PROCEDURE block or BEGIN block it allocates
storage for a DSA and compiles code to
initialize the DSA.
A two-word slot in the DSA is allocated
for each ON condition in the block, and
code is compiled to initialize the slot.
Space for the addressing vector and workspace in the DSA is also allocated.

Where there is a block with its DSA in
ISTATIC, dope vector initialization is not
Iperformed for the variables in the first
Iregion of the AUTOMATIC chain. Address
Islots in dope vectors for variables in the
Iremainder of the chain are relecated.
storage is allocated for addressing temporaries type 2 and for addressing controlled variables, and for the parameters
chained to the entry type 1.
The first region of the AU~OMATIC chain
is scanned and storage allocated for double
precision variables, single precision variables, CHARACTER strings, and EIT strings,
in that order.
The first region of the AU~OMATIC chain
is
scanned
and storaqe allocated for
arrays, relocating the virtual origin. For
arrays of strings with the VARYING attribute, the secondary dope vector is also
allocated and code is corrpiled to initialize the secondary dope vector. correctly
aligned storage is allocated for structures.
If a structure contains any arrays
of strings with the VARYING attribute,
the
storage for the secondary depe vector is
allocated at the end of the structure.
A pointer is set up in the AUTOMATIC
chain delimiter to the second file statement which has been created.
The remaining regions of the AUTOMATIC
chain are scanned and code is compiled to
obtain a Variable Data Area (VDA) for each
region.
code is compiled to copy the
skeletons into the dope vectors and to
relocate the addresses in the dope vectors.
During this pass, any DEFINED items which
are to be addressed directly have the
storage offset and the storage class copied
from the data item specified as the base
identifier.

Phase QF, which constructs prologues,
scans that text which is in pseudo-code
form at this time with end-of-text block
markers inserted.

Section 2 (Compiler Phases):

Storage Allocation Logical Phase

59

When a statement label pseudo-code item
is found, it is analyzed and one of three
things happens:
1.

The item is saved if it relates to a
PROCEDURE statement

2.

The item is omitted if it relates to a
BEGIN or ON block

3.

The item is passed if it relates to
neither of the first two conditions

when a BEGIN statement is found,
a
standard prologue of simple form is generated, and code is inserted from second file
statements (if there are any) to get the
DSA, either dynamically, or in the case of
eligible bottom-level blocks, by using the
supplementary LWS made available at initialization time. code is also inserted to
initialize the DSA and to allocate and
initialize any VDAs.
it
When a PROCEDURE staterr,ent is found,
is first determined whether it heads an ON
block or a PROCEDURE block. If it is an ON
block, a standard prologue (similar to that
for a BEGIN block) is generated. If it is
a PROCEDURE block, a specialized prologue
is generated. This takes account of the
manner of getting the DSA, the number of
entry pOints, the number of entry labels on
a given entry point, the number of parameters on each entry point, and whether the
PROCEDURE is a function.
Prologue code is generated for AUTOMATIC
scalar TASK, EVENT or AREA variables, in
order
to
perform
the
initialization
required when these variables are allocated.
The code generated by the prologue construction phase is partly in pseudo-code
and partly in machine code. The machine
code (which is delimited cy special pseudocode items) has the same form as the code
produced by the Register Allocation Phase
(see Appendix D.7).
DSA
optimization is performed
certain conditions (see Afpendix H).

under

At the end of the prologue, the statement label item saved earlier is inserted
to mark the apparent entry point. Code is
produced to effect linkage to BEGIN blocks
in such a way that general register 15
contains the address of the entry point,
and
general
register 14 contains the
address of the byte beyond the BEGIN epilogue.
At the end of the text, any text blocks
that are not needed are freed, and control
is passed to the next phase.
60

Phase QJ scans the text
FREE, and BUY statements.

fer

ALLOCATE,

On finding an ALLOCATE statement, a
routine is called which does a 'look ahead'
for initialization statements associated
with the allocated variable, e.g., adjustable array bounds or adjustable
string
lengths, and places the text references of
each statement in the dictionary entry
associated with each statement.
If the allocated item has a dope vector,
code is generated to move the skeleton dope
vector generated by Phase PH into a block
of workspace in the DSA of the current
block.
Any adjustable bound expressions
or
string length expressions are then extracted from the text references, and
the
expressions are placed in-line in the text.
Any information required from previous
allocations (specified by * in the ALLOCATE
statement) is extracted from the previous
allocation, and copied into the workspace.
Code generated by Phase JK to initialize
multipliers, etc., is extracted and placed
in-line, after first loading the variable
storage accumulator with the dope vector
size. Phase JK generates code to incre~ent
the accumulator register by the size of the
item.
If the item has no adjustable pararreters, code is generated to increment the
accumulator by the size calculated at compilation time. If this size is greater
than 4,096, Phase JK generates a constant
dictionary entry, which is used in this
code.
If the item has any arrays of varying
strings, the size of the array string dope
vector is added to a second accumulator
register. Code is generated te add the two
accumulators into the second one, which is
a parameter to a Library routine. A routine is then called which extracts the
Library call inserted by ~seudo-code and
places it in-line in the text.
Code is inserted after the Library call
to initialize the dope vector in workspace
to point to the allocated sterage. Code is
generated to transfer the dope vector from
the workspace to the allocated storage.
Any initial value statements associated
with the ALLOCATE statement are extracted
and placed in-line.
The initialization
statements are then sk~fped, and the scan
continues.

The action on·encountering a BUY statement is similar to that for the ALLOCATE
statement, with the following exceptions:
1.

Bound and string length code is inline, bracketed between BUYS and BUY
statements - there is therefore no
look ahead

2.

There is no
initial
value
associated with temporaries

3.

A slot in the DSA is updated with the
pointer to the allocated storage for a
temporary

This phase comprises two physical phases, each with a specific function.
The
first,
Phase RA, processes the addressing
mechanisms, while the second [hase, Phase
RF, allocates the physical registers.

code

The action on encountering a FREE statement is to generate code to load a parameter register with the pointer to the allocated storage for the FREE VDA Library call
inserted by the pseudo-code.

Phase QX is the 'AGGREGATE LENGTH TABLE'
printing phase. It is entered only if the
ATR (attribute list) option is specified.
It scans the STATIC, AUTOMATIC, CONTROLLED
and COBOL chains, and, for each major
structure or non-structured array that is
found, an entry is printed in the AGGREGATE
length table.
An AGGREGATE LENGTH TABLE entry consists
of the source program DECLARE statement
number, the identifier and the length (in
bytes) of the aggregate.
In the case of an
aggregate with the CONTROLLED attrioute, no
entry is printed for the DECLARE statement,
but an entry is printed for each ALLOCATE
for the aggregate, the source program ALLOCATE statement number being printed in the
'statement number' column.
Where the aggregate length is not known
at compilation the word "adjustable" is
printed in the 'length in bytes' column.
In the case ~f a DEFINED aggregate, the
word
'DEFINED', and not the aggregate
length, appears in the 'length in bytes '
column.

Phase RA scans the text fer dictionary
references, the beginnings and ends of
PROCEDURE and BEGIN blocks, and the starting points of the original PL/I statements.
A dictionary reference, when found,
is
decoded into a word-aligned
dictionary
address and a code.
These are used to
determine what is being referenced.
The
corresponding object time address as an
offset and base is then calculated.
If the address required has an offset
less than 4,096 and a base which is either
an AUTOMATIC or S~ATIC data pointer, no
extra instructions are generated. If this
is not so, extra instructions are inserted
in the text stream to
calculate
the
required address. The calculation of this
address is broken down into logical steps
lin a 'step table 1 . ' On completion, the
table is scanned backwards to deter~ine
whether an intermediate result has been
previously calculated.
The steps which
have not been previously calculated are
then assembled into the pseudo-code.
The compiled code is added either to the
output stream or to a separate file.
The
code in the separate file is terminated by
a store instruction to save the calculated
address.
The extra "insertion file" is
placed in the prologue of the relevant
block by the next phase. Instructions are
stored in-line if the referenced item is
CONTROLLED, if it is a parameter, if fewer
instructions are required to recalculate
the base rather than load the
stored
address, or if the reference itself is in
the prologue.
If no addressing code is generated, a
special item is put in text to tell phase
RF what base to use.
All relevant information for PROCEDURE
and BEGIN blocks is stacked and unstacked
at the start and end of the blccks respectively.

The purpose of the Register Allocation
Phase is to insert into the text the
appropriate addressing mechanisms for all
types of storage, and to allocate physical
general registers where symbolic registers
are specified or required as base regi.sters.

At the start of PL/I statements, code is
compiled to keep the required PREFIX ON
slots in the Dynamic Storage Area updated.
On meeting the pseudo-code error marker,
the calling sequence to the Library error
package is generated, and the error marker
removed.

Section 2 (Compiler Phases):

Register Allocation Logical Phase

61

If the STMT option has been specified,
code is generated at the start of each PL/I
statement to keep the statement numoer slot
in the current DSA up to date.

Phase RF scans the text for register
occurrences, implicit and explicit, and the
start
and end of PROCEDURE and BEGIN
blocks. At the beginning of PROCEDURE and
BEGIN blocks all relevant information is
stacked, and is later unstacked at the
corresponding end.
Registers are classified
symbolic, or base.

as assigned,

The Final Assembly Phase converts the
pseudo-code output of the register allocation phase into machine code, the principal
functions being the substituticn of machine
operation codes for pseudo-code operations,
and the replacement of PL/I and compiler
inserted symbolic labels by cffset values.
Loader text is generated for prograw
instructions, DECLARE control blocks, and
OPEN file control blocks, initial values
defined in the source program, parameter
lists, skeleton
dope
vectors,
symbol
tables, etc. ESD and RLD cards are generated
for
external
names and pseudoregisters. An object listing of the code
generated by the compiler is produced if
the option has been specified by the source
programmer.

Assigned registers require the explicitly mentioned register to be used. If that
register is not free it is stored. Symbolic registers may occupy any register in the
range 1 through 8. An even-odd pair may be
requested. Base registers may occupy any
of registers 1 through 8.
When a register is requested, a table of
the contents of registers is scanned, to
determine whether the register already has
the required value.
If it does, that is
used.
If it does not, and it is not an
assigned register, a search is made for a
free register and this is allocated if one
is found.
Should no register be free, a
look-ahead is performed to determine which
register it is most profitable to free.
If a register contains a base it need
not be stored on freeing.
If a register
contains a symbolic or assigned register,
it may require to be stored when freed,
depending upon whether it has had its value
altered since any storage associated with
it was last referenced.
At a BALR (Branch and Link) instruction
it is insured that all the necessary parameter registers are in physical registers,
and not in storage.
.
No flow trace is carried out by the
compiler.
Therefore, the register status
is made zero at branch-in and branch-out
points.
An exception is at a conditional
branch. Here the registers are not freed
after having been saved.
Any coded addressing instructions are
expanded when found in-line. At a specific
"insertion
point"
in a prologue, any
addressing instructions in the "insertion
file" are brought in and expanded.
62

Phase TF scans the text, assigns offsets
to
compiler and statement labels, and
determines the code required for instructions which reference labels.
The size of each procedure is determined
and stored in the PROCEDURE entry type 1.
A location counter of machine instructions
is also maintained.

Phase TJ scans the text until no further
optimization can be achieved in the final
assembly.
A location counter is rraintained for
assembled code, and offsets are assigned to
labels.
The size of each procedure is determined
and stored in the PROCEDURE entry type 1.
The amount of code required for instructions to reference labels is also determined, while attempting to reduce this from
the amount estimated by the first asserrbly
pass.
This phase also attempts to reduce the
number
of
~ove
(MVC) instructions by
searching for consecutive MVC instructions
which refer to contiguous locations.

Phase TO sets the four byte slot ZPRNAM,
in the communication region, to contain the
first four characters of the first entry
label of the external procedure, for the
purpose of object deck serialization.
Phase TO also produces ESD cards for the
compiled program.
It first makes up six
standard entries for:
1.

Program Control section (CSECT)
(SD
type)
allowing roorr for the compiler
subroutines if these are present.

2.

STATIC internal CSECT (SD type)

3.

Invocation count (PR type)

4.

Entry
points to Library routines,
IHESADA and IHESADB (ER type)

5.

IHEQERR (PR)

6.

IHEQTIC (PR)

Module TQ is used to produce a list of
Library conversion routines required for
execution of the program. ER type entries
are made up for each name in the list.

Phase TT scans the text and maintains a
location counter for asserr.bled code.
Loader text (TXT) and relocation directory (RLD) cards for requested combinations
of load and punch files are generated.
Nested procedures are unnested at object
time by suitable manipulation of the location counter. The offset of each procedure
from the start of text is left in the
PROCEDURE entry type 1.
Compiler labels are numberEd for use by
the object listing phase, and trace information is set up at entry points. Phase TT
also generates the text for the compiler
I subroutines. These subroutines are put out
lin one of the following combinations:

If the external procedure has the MAIN
option, an entry for a one-word CSECT (SD
type) is made up. An entry is made for the
CSECT 1H entry and entries are made up for
all entry labels in the external procedure
(LD type).

1.

EPILOGUE subroutine
DYNAMIC PROLOGUE subroutine
STATIC PROLOGUE subroutine

2.

EPILOGUE subroutine
DYNAMIC PROLOGUE subroutine

The entry type 1 chain is scanned and an
entry (PR type) is made up for each block
and procedure.

3.

EPILOGUE subroutine
STATIC PROLOGUE subroutine

The external section of the STATIC chain
is scanned and entries are made up for:
1.

Built-in functions
tions (ER type)

and library func-

2.

Files (ER type)

3.

STATIC external variables (SD type)

4.

External entry names (ER type)

5.

Programmer
type)

ON

condition

names

Phase UA generates text for the static
internal CSECT;
initializes a CSECT for
each static external variable; and, optionally (if the LIST option is present), lists
all the text produced for the static internal CSECT and provides suitable comments.

(SD

The CONTROLLED chain is scanned and an
entry is made up for each CONTROLLED variable and task name (PR type).
The size of the program control section
is incremented to include the compiler
subroutines.
All STATIC DSAs are put into the STATIC
INTERNAL control section, their combined
sizes being allowed for when the size of
the CSECT is calculated.

The phase first scans to the start of
the external section of the STATIC chain,
generating text for entry labels,
label
constants, compiler labels, file attributes, label variable BCDs, and DEDs for
temporaries.
Simple variables found on
this scan are used,
together with the
labels, to mark the start of the character
string section of the chain.
The phase then scans to the end of the
external section of thE chain, initializing
address constants for external variables,
external entry names, built-in and Library
functions,
programmer-defined ON-condition
names, external files, and label constants.
Text is rr.ade up for the constants pool.

Section 2 (Compiler Phases):

Final Asserrbly Logical Phase

63

The third scan of the STATIC chain
starts at the point left by the previous
scan, and generates text for dope vector
skeletons, argument lists, RDVs and DVDs,
and symbol tables. The scan is terminated
at the end of the chain.
Phase UA makes up RLD cards for the
address slots for STATIC DSA's and for the
address slot of the start of the epilogue
subroutine, if generated.

The phase then executes its final scanu
which extends over the external section of
the chain, to initialize a CSECT for each
external variable or external file.
Finally, any incomplete text and RLD
cards are punched out, and an END card is
produced for the compiled program. If the
OBJNM parameter is present for batch cowpilation, phase UD punches a NAME card to
follow the END card.

Text cards are output to initialize all
AREA's, EVENT's, and TASK's.
Arrays of
AREA's, will have a text card for each
element.

Phase UD generates RLD and TXT cards to
set up dope vectors at link-edit and load
time.
TXT cards are generated for each STATIC
DSA, containing its length, which is found
in the STATIC DSA entry.
TXT and RLD cards are generated to set
up the dope vectors for structured items
and any non-structured items appearing in
the AUTOMATIC chains. The TXT cards are
derived from the skeleton dope
vector
entries.
The RLD cards are generated for
each virtual origin slot.
When the last STATIC DSA has been processed control is released from phase UD.

Phase UE initializes those items on the
STATIC chain not processed by Phase UA.
The phase first scans to the start of
the external section of the chain, making
up text for simple data, and listing label
variables.
The second scan starts at the head of
the character string section of the chain,
and initializes dope vectors for all static
internal variables which need them.
The third scan corresponds in extent to
the third scan in Phase UA, but generates
text for arrays, and simple and interleaved
structures.
At the end of this scan, a
test is made to determine whether the
external procedure of the program has the
MAIN option.
If so, a one-word CSECT
(IHEMAIN) is made up,
to contain
the
address of the principal entry point to the
compilation.
64

Phase UF scans the text, and lists, in
assembly language format, machine instructions compiled for the source program.
I~
inserts comments in th~ listing for statement
numbers,
statement labels, entry
points, prologues, and procedure bases.
Phase UF contains module UH which generates NAME from a dictionary reference.
UF
also lists the text for the compiler SUDroutine. This is done by releasing UB and
loading module UI which performs this function.
Upon termination of this
phase
module UI passes control to phase XA.

The Error Editor Phase is entered at the
end of all compilations. The first phase,
Phase XA, examines the dictionary and determines whether there are any messages to
be printed out. If there are none,
this
phase terminates the compilation. If there
are diagnostic messages to be printed out,
phase XB is loaded and the third section of
the phase directory is completed. Phase XC
is then loaded and this together with phase
XA causes further modules (XF, and blocks
XG to yy) to be loaded, which process the
error dictionary entries and print out the
appropriate messages.

Phase XA examines the heads of the error
chains in the first dictionary block, and
the prograrrmer options which specify the
severity level of messages required.
If
there are no diagnostic messages to be
printed, this phase prints out a completion
message and completes the compilation. If
diagnostic messages are required, the phase
loads module XB which completes the phase
directory for Compiler control. Phase XB
is then released and phase XC and the
message address block XF are loaded.

The error editor then scans down the
error message chains and marks each error
dictionary with an indication of where the
associated message is to be found.
This
information is obtained from a table in
module XF.
The text of all error messages is \ kept
in modules XG through YY. The messages are
ordered, by severity, within these modules.
Module XA will have listed those modules
which contain messages required for a particular compilation.
Module XC loads and
releases these modules, one at a time, and
extracts the required messages.
Having
loaded a particular module, the phase scans
down the associated error messAge chain in
the dictionary for error entries associated
with the module.
It accesses the error
message text and scans it.

The message to be printed is built up in
a print buffer in internal corrpiler code.
This involves a translation from EBCDIC
mode, which is used for the rressage text
skeleton.
The message is completed by the
insertion of a statement number, an identifier, or a numeric value as specified by
the message dictionary entry. The message
is segmented, where necessary, to avoid
spilling over a print line, translated to
external code, and finally printed out.
When all
error
message
dictionary
entries have been processed, module XB
returns control to phase XA, which passes
control to module AA for termination of the
compilation.

section 2 (Compiler Phases):

Error Editor Phase

65

SECTION 3: CHARTS AND ROUTINE DIRECTORIES

This section provides a complete guide
to the compiler logic, in the form of
flowcharts and associated tables and routine directories, arranged in phase order.
Flowcharts
The flowcharts are presented at three
levels of detail -- overall, logical phase,
and physical phase. The overall compiler
flowchart (Chart 00) points to the logical
phase flowcharts (Charts 01 through 09),
each of which appears at the head of the
set of physical phase flowcharts to which
it points.
The physical phase flowcharts
point (by means of identifiers placed next
to the blocks> to the various routines
used. Entry points to physical phases are
labeled.
Where transfer is
effected
between
modules within a physical phase, the entry
label into the entered module is shown as
follows:
1.

2.

Where the means of transfer is a transfer vector, an asterisk is shown as the
label on the flowchart, and a note at
the foot of the chart states that the
transfer vector table is located at the
start of the module.
When transfer is made from a decision
block, the block representing the entry
is labeled.

Tables and Routine Directories
For each physical phase, a table is
provided, which lists the operations performed and identifies the routines and
subroutines involved. Where applicable, a
routine directory follows the table.
This
provides an alphanumerically arranged list
of the routines and subroutines contained
in the phase, and states their function.
In some cases, a physical phase comprises more than one module; this means that
routines contained in different modules may
be listed together in one routine directory.
To assist in cross-reference to the
compiler listings, the fcllowing convention
has been adopted: if a routine is contained
in a module whose label is not identical to
that of the phase under discussion,
the
label of the containing module is inserted
in parentheses after the routine name in
the directory.
In the case of a phase sharing a routine
contained in another phase, the label of
the
containing module is indicated in
parentheses after the routine name in the
"Subroutines Used" column.
The routine
will not then appear in the routine directory for the phase under discussion, but
will be found in the routine directory for
the containing phase.

With the exception of "fall-through"
branches, all branches froIT. decision blocks
are labeled where possible.
Where the
branch is actually a branch table, this
fact is indicated on the chart, and the
label of the branch table is given.
In some cases, additional labels have
been given, to assist in following the
program flow.

66

Identification of tables
phase flowcharts is based
label.

and physical
on the phase

Jver3l1 compiler Flcwchart

Chart 00.

··..x

...... 111 •••••••• "'.

liZ
••
YES •••• ",URO ••••
:11 ............. OPTl ON ON ••• (I

:..•-.-.-...._...Z!:

·.
:

.

~~~:lh~EH~r

...
.....

~I...............

....

• NO

.. ·.. ..
x

II

•-

..

•:.

Cl

••

HAScA~p

*.

*.

..

.:.~~ •••

••
*••
• YES

··................
RETUR"

..

..

'

••

..

C~iRU .:.~?
*. *••• .*

.

• YES

••••Ol.!..••••••

•

..

• :.

CZ

.•.•.OZ···.·.···.
ic

••
:

EXECUlE
FORTY
e GHT

••
:

PR~~~~~~S~~R

•••••••••••••••••••

·

.

............ x.x ••••••• ,.•••

•••••EZ.! ••••••••
.-.-.-.-.-.-.-.-.

•
:

"2.

LOGr~tp-~~ASE

:

THE REAO-lN LOGICAL PHASE CHECKS THE SVNUX OF
THE SauRt PROGRAM" REHOVES SUPERFLUOUS
CHARACTER ANO LeAvES CER TA rN CHA INS IN TIiE
PROCESSED TeXT TO AI) LA'fER PHASI'S.

•••••••••••••••••••
THE OICTlONARY LOGICAL PHASE CO~STRUCTS TflE
Ot TlONARV OF IOF.NTrFIF.RS FRO'" INFORMATION IN
OE LARE STATI:"ENTS 'N,) FRnH CONtEl(T IT ALSO
REPLACES IICO 10ENTlFIERS IN THE TFX t flY REI'FRFNCES
TO THE DrCTlONARV.

GZ·..x ..

......Gt...........
PR NT 0rT
AT R
ANp ~aH ~

•
•

.......
,

RET~lIe~
~
~.....

••••
•
YES •• ATR/XREF ••
K••••••• "..
I)PTI ON ON ••
•
......" •

....

.

• NO

.

••••••••••••••••••••••••• x.
X

······1i1···.······
.-.-*-.-.-.-.-.-.
:

•

nlt*

•
•
..................
:P~~GI~~~Sh~X~;

·····Jz··········
.......-.-.- ..........
·..................
X

•
1'5·
•
TRANSLATOR
•
• UIGICAL PHAse •

THE PRE TRANSLATOR LnGICAL PflASF. MMHPtJLATFS THr::
THl, REARRA"IGING till STA'rEM"NTsI. t:i~EATI'IG TF.MPnRARY
VARIII~LFS WHE~E PAR~"ErErlS Iln NOT "'''Tefl TflFIR

~ORAElpnND'NG ARGUM;NT~~ CONVERTtNr; ARIlAV

r~~~E~~A!'~n~~~~F.N S

'''0

DO LOOPS, "NO ReMOvl"lr,

THF TltA"ISLATOR LOGICAL PHASF CIJt.!VF.RTS THE

PlIt SOulteE TF.'('1( IS A'IV •

:O~iar ~~S ~~V-:

•••• , K. E5 •
•
•
•

• •••• G2 ••••••••••
•
EKECUTE·
•
IEMAG T O .

•

.'•••• F4··········

......

.................

*..*
•

1'2 ..........:

• ••••

•••• WAS
•••• YES
:
••
PHA SE
0 • • • • • • • • • X.
••
IEM8X
••
•

•
•
•
•
•

x

J4 •••••••••".
•
•
RELEASF AK
•
•

X

.. •••• JS ••••••• "' ••
• r.LOS( SVSUTl
..
• ~CAN BATrH
•
DFLtMITFR
•
• RECORD FnR
•
• SYNTAX ERRORS.

.... ·..... .>l>.................1(.........•....•.....••..•.
......... ·.....

*0"·
•

~

VFS

x

....

•

H4 •

'" H3 •

X

•
•
•

...·.K4 •••••••• •
II. 1'= TUR'I
•
TO CA.LL ING
•
PROGRAM
•
1)1 • • •

** •• ** •••••

section 3:

Ch~rts

an~

Routine Directories

69

Table AA.

Module AA Compiler Control Resident Control Phase

r-----------------------------------------------T---------------T-------------'----------,
IMain Processingl
I

~

I
statement or Operation Type
I
Routine
I
Routine Called
I
r-----------------------------------------------t---------------t-----------------------~
IInitializes the compiler
IZINIT
I LOADW, ABOR~
I

I

I

I

I

I

I

I

I

~

~

IPara~~ters ~§§~Q:

General register i points atl
I
I
Ithe passed parameters
I
I
I
IEntEy-to OS/36Q: GETMAIN(R), TIME, LINK, SPIE
I
I
I
r-----------------------------------------------t---------------t-----------------------~
IDeletes a list of loaded phases
IRELESE
IZUERR, ABOR~
I
I
I
I
I
IPara~~ters ~ssed: PARi -- address of list of
I
I
I
Iphases to be deleted
I
I
I
IEntry_ to OS~1.£Q: DELETE
I
I
I
r-----------------------------------------------t---------------t-----------------------~
Deletes a list of loaded phases and passes
RLSCTL
Module AD if interI
control to either the next requested phase or
phase dumping is reqI
the next named phase
uired; Module AE if it I
is end of Read-In
I
Parameters ~~~~Q: PARi -- address of list of
Phase; ZUERR, ABORT
I
phases to be deleted; PAR2 -- address of name
I
of phase to which control is to be given, or
I
zero
I
Parameters returned: PARi -- load point of new
I
phase-------------I
Entry_to OS/36Q: DELETE, LOAD{EPLOC), LOAD(DE),
I
LINK
I
r-----------------------------------------------t---------------t-----------------------~
ILoads the required phase and returns control tolLOADX
IZUERR, ABOR~
I
Ithe caller.
The phase may be loaded again
I
I
I
IParameters passed: PARi -- address of name of
I
I
I
Iphase to be loaded
I
I
I
IParameters returned: PARi -- load point of
I
I
I
I phase
I
I
I
I EntrY-!2- 0S / 3 £Q: LOAD (DE)
I
I
I
r-----------------------------------------------t---------------t-----------------------~
IMarks phases as 'wanted' and 'not wanted'
IREQEST
IZUERR, ABOR~
I
I
I
I
I
IParameters passeQ: PARi -- address of
I
I
I
Ilist of phase names to be marked 'wanted;'
I
I
I
I
I
I
IPAR2 -- address of list of phase names to be
Imarked 'not wanted'
I
I
I
IEn~!Q OS/3£Q: None
I
I
I
r-----------------------------------------------t---------------t-----------------------~
IPuts a record out to SYSLIN
IZULF
ILFERRX
I
I
I
I
I
IParameters pass~Q: PARi -- address of output
I
I
I
I record
I
I
I
IEntry_!o OS/360: PUT LOCATE{QSAM)
I
I
I
r-----------------------------------------------t---------------t-----------------------~
Iputs a record out to SYSPUNCH
IZUSP
ISPERRX
I
I
I
I
I
IPara~~ters ~~§~Q: PARi -- address of output
I
I
I
I record
I
I
I
PUT LOCATE{QSAM)
I _______________ I _______________________ j I
lIEn~EY_!Q_OS~3(.Q:
_______________________________________________

70

Table AA.

Module AA Compiler Control Resident Control Phase (cont'd)

r--------'---------------------------------------T---------------T-----------------------,
I
I

IMain Processingl
I
Routine
IRoutine Called

statement or Operation Type

I
I

~-----------------------------------------------t----- ----------t-----------------------i

IDeletes currently loaded phases and passes
Icontrol to the Error Editor

IZABORT, ABORT
I

IModule AD if dump opI
Ition specified; RLSC~L I

I

I

I
I

IEntry_!o OS/3&Q: LOAD (EPLOC) if dump option
I specif ied

I
I

I

I
I

I

~--------------------------------------------·---t---- -----------t-----------------------i

IPicks up completion code and returns control tolZEND
Ithe program that called cOIT.piler
I

IZUPL
I

I
I

I
I

I
I

I
I

I En!£Y_!2..J2§{l&Q: TIME,

I~REEMAIN,

I
I

DELETE

I

I

I

~------------------------·-----------------------t---- -----------t-----------------------i

I Handles all program checks
I
I Par9:~~te!:~J2~~~~Q: ARIN'1~ holds address of
jroutine wanting to handle interrupt. ARMASK
Iholds mask indicating which interrupts it is
Idesired to handle

I PIH
I
I

I ZUERR
I
I
I

I

I
I
I
I
I
I

I
I
I
I
I
I
I
I
I En!:!:y_to_OS{l&Q=
None
I _______________ I _______________________ JI
L
_______________________________________________
~

Table AA1.

~

Module AA Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

I

Function

~------------------t---------------------------------- ----------------------------------i

ABORT

BLKERR
CONSLD

IDeletes currently loaded phases, passes control to error editor.

I

I

I

IEnters message "REFERENCED BLOCK NOT IN USE", then terminates compi-I
Ilation.
I

I

I

Takes: dictionary reference and points at relevant slot in dictionary I
control block area (DSLOTS).
I

I

CONSLT

Takes text reference and points at relevant slot in text block con- I
trol area (TSLOTS).
I

lDFREE

Finds dictionary block which can be written on disk to make room for
a new block in storage.

I.FERRX

Marks error on SYSLIN data set.

I.OADX

Loads required phase and returns control to caller.
be loaded again.

I.OADW

Loads required phase and returns control to caller.

PIH

Handles all program checks.

PLERRX

Prints record on SYSPRINT data set.
performed automatically.

HDERRX

Marks error on SYSIN data set.

READX

Reads a block from disk.

I

RELESE
HEQEST
RLSCTL
L __________________

I

The phase may

Pagination (paging action) is

,

Releases all loaded phases.

IMarks phases as 'wanted' or 'not wanted.'

I

IReleases all loaded phases and passes control to next required or
Inamed
phase.
__________________________________
_________________________________ _

~

section 3: Charts and Routine Directories

71

Table AA1.

Module AA Routine/Subroutine Directory (cont'd)

r------------------T---------------------------------------------------------------------1

tRoutine/Subroutinel

Function

I

~------------------+---------------------------------- -----------------------------------t

SPERRX

Marks error on SYSPUNCH data set.

ZABORT

Deletes currently loaded phases and passes control to error editor.

ZEND

Picks up the completion code for the compilation and returns control
to ZINT to continue the batch, or to the operating systerr at the end
of a single or batch compilation.

ZINIT

Initializes the compiler.

ZULF

Puts record out to SYSLIN data set.

lIZUSP
__________________

72

~

Puts record on to SYSPUNCH data set.
__________________________________
__________________________________ _

.Table AB.
Module AB Compiler Control Initialization
r-----------------------------------------------T---------------T-----------------------,
I
IMain Processing,
I
Statement or Oferation Type
I
Routine
,
Routine Called
,
I
~-----------------------------------------------t---------------t-----------------------~
'Issues a BLDL macro instruction on all phases
IPROPEN
INone
I
lin compiler, and constructs a compacted fhase
I
I
I
I dictionary
I
I
I

,
I

I
I

I
I

,
I

I

I

I

I

I Ent!j~_!2_Q§'~.}~Q: BLDL
I
I
I
~-----------------------------------------------t---------------t-----------------------~
IPrints initial heading and performs scan of
10PTPROC
INone
I
loption list.
Default options are taken where
I
I
I
I necessary
I
I
I
I
I
I
I
I Par~me!:.§!:§_12~§§.~.9: General register 1 points to I
I
I
loption list passed at invocation time
I
I
I
I En!:!:Y_!:2_Q§./3&Q: TIME, PU~ LOCATE (QSAM)
I
I
I
~·-----------------------------------------------t---------------t-----------------------~
IMakes the initial space allocation for text andlOPENR
INone
I
Idictionary blocks.
Sets up communication
I
I
I
I
I
I
I region
I
I
I
I
I
I
I
I En!!:Y_!2_ OS{l&Q: GETMAIN (R)
~-----------------------------------------------t---------------t-----------------------~

10pens spill file if text and dictionary blocks 10PENSP
I
I are lK

INone
I

I
I

I

I

I

I

IEn!:!:Y_!:2 OS/3&Q: OPEN
I
I
I
~------------------------------------------------t---------------t-----------------------~
10btains the guaranteed 4K of scratch storage
IGETSCR
INone
I

I

I

I

I

I En!!:Y_!:2-2§./3&Q: GETMAIN (R)

I

I

I

~-----------------------------------------------t---------------t-----------~-----------~

ILoads intermediate file writer (Module AC).
I NODUMP
IZUPL (AA)
I
ISets buffer sizes for SYSUT3 and opens the datal
I
I
I
I
I
I set
I
I
I
I
I En!!:Y_!:2_Q§./3&Q: LOAD(EPLOC), OPEN
I
I
I
~-~---------------------------------------------t---------------t-----------------------~
IPrints out list of options for this compilationlNDMP
IZUPL (AA)
I
I
I
I
I
IEn!!:Y_!2 OS/3&Q: None
I
I
I
~-----------------------------------------------t---------------t-----------------------~
IEnters error messages generated when SYSIN,
IPJ13
IZUERR (AA)
I
ISYSPRINT opened
I
t
I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

None
I
I
I
~--------·---------------------------------------t---------------t-----------------------~
IReads first card and stores. Uses as heading
IRDCD
IZURD, ZUERR, ZUPL
I
I if required
I
I (all in AA)
I
~--------------------------------------------·---t---------------t-----------------------~
IEn!!:Y~2-Q§.{l&Q:

IReturn to pre-initializer in IEMAA
I ABOUT
INone
I
~--------·---------------------------------------t---------------t-----------------------~
10pens SYSPUNCH if MACDCK specified
IMCD
IZUERR
I

I ,
I.Ent!:Y_!:2-OS{l&Q: OPEN

~-----------------------------------------------t----- ----------t-----------------------f

ILoads dictionary handling control routines
I (phase IEMAN or IEMAL depending on normal dicItionary or extended dictionary being specified
I in the options)

I

I LODCNTL
I
I

I
I

INone
I
I
I

I
I

I

I

I
I

IL En
!:!:Y_!2.-2.§{1&Q : LOAD
I _______________ I _______________________ JI
_______________________________________________
~

~

Section 3: Charts and Routine Directories

73

Table AB1.

Module AB Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
ABOUT
Returns control to pre-initializer in Module AA.
I

I

GETSCR

Obtains scratch storage.

NDMP

Prints lists of options for current compilation.

NODUMP

Loads intermediate file writer module AC.
SYSUT3 and opens data set.

OPENR

Makes initial space allocation for tExt and dictionary blocks.
up communications region.

OPENSP

Opens spill file.

OPTPROC

Prints initial heading and performs scan of opticn list.

PJ13

Enters diagnostic messages generated when SYSIN and SYSPRINT data
sets are opened.

PROPEN

sets tuffer sizes for
Sets

IIssues BLDL macro instruction and constructs phase directcry.

I

RDCD
first card.
L __________________
LIReads
____________________________________________________________________
J

Table AC.

Module AC Compiler Control Intermediate File Control

r-----------------------------------------------T---------------T-----------------------,
I
IMain Processingl
I
I

Statement or Operation Type

I

Routine

I

Routine Called

I

~-----------------------------------------------+---------------+-----------------------~

IWrites a record onto SYSUT3

IIEMAC

INone

I

I

I

I
I
I

I

I

I

IPa~~~~ters ~~~~9:

PARi -- address of output
Irecord; PAR2 -- length of record
I En!~Y_!2_.2§/3~Q: PUT LOCA'I'E (QSAM)

I
I
I

I
I

~-----------------------------------------------+---------------+-----------------------~

ILink to file switching routine (Module AG)

I ENDED

I

I

INone

I

I
I
IEn!~Y_!2_.2§/3~Q:
LINK
L
_______________________________________________
LI _______________ LI _______________________ JI

Table AD.

Module AD Compiler Control Interphase Dumping

r-----------------------------------------------T---------------T-----------------------,
I
IMain Processingl
I
I

Statement or Operation Type

I

Routine

I

Routine Used

I

~-----------------------------------------------+---------------+-----------------------~

IDebugging aids.
This routine contains a dump- IIEMAD
IZDRFAB, ZTX'IAB, ZUPL
I
ling program which is invoked by use of the DUMP I
I (all in AA),
I
ILoption
_______________________________________________ LI _______________ jDUMP
_______________________ JI
~

Table AD1.

Module AD Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

~------------------+--------------------------------------------------------------------~
I DUMP
IConverts contents of specified area of main storage to hexadecimal, I
I __________________ I prints
the result.
L
____________________________________________________________________
JI
~

74

Table AE.

Module AE Compiler Control Clean-Up Phase

r-----------------------------------------------T---------------T-----------------------,
I
IMain Processingl
I
I

I

Statement or Operation Type

Routine

I

Routine Called

I

~-----------------------------------------------+---------------+-----------------------~

IInput and intermediate file control. Current
linput file is closed and IEMAC is deleted if
I present

IIEMAC

I (Module AC)

INone
I

I
I
I
I
I

I
I
I
I
I En!EY_!2_0S{1.§.Q: CLOSE(current input file),
I
I
I DELETE
I
I
I
~-----------------------------------------------+---------------+-----------------------~
IOpens SYSLIN and SYSPUNCH data sets if requiredlNOT48
IZUERR (AA)
I

I

I

I

I

I

I

I

I EntEY_!2_Q§{1.§.Q: OPEN
I
I
I
~-----------------------------------------------+---------------+-----------------------~
IExpands the number of blocks in storage to fourjNOTDCK
INone
I
Itext and four dictionary, if running with the
I
I
I
144k size option
I
I
I

I

GETMAIN
lIEntEY_!2--2§{1~Q:
_______________________________________________
Table AE1.

I

I _______________ I _______________________ JI

~

~

Module AE Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

~------------------+--------------------------------------------------------------------~
INOT48
IOpens SYSLIN and SYSPUNCH data sets as required.
I

I

lINOTDCK
__________________

Table AF.

I

I

IExpands
number of blocks in storage.
____________________________________________________________________
JI

~

Module AF Compiler Control Sysgen Options

r----------------------------------------------------------T----------------------------,
I
Function
I
Subroutines
I

~----------------------------------------------------------+----------------------------~

IThis module contains no executable instructions.
It is
INone
I
Igenerated at SYSGEN time and passes the default options
I
I
land
values to the compiler
I ____________________________ JI
L
__________________________________________________________
~

Table AG.

Module AG Compiler Control Intermediate File switching

r----------------------------------------------------------T----------------------------,
I
Function
I
Subroutines
j
~----------------------------------------------------------+----------------------------~

jSwitches SYSUT3 from an output file to an input file

INone

I

I

I

I

I ___________________________________________________________
Ent!:i~§_·to_OS{l'§'Q: OPEN and CLOSE
I ____________________________ JI
L
~

Table AK. Module AK Compiler Control Closing Phase

r--------------------------------------------·--------------T----------------------------,
I
Function
I
Subrout ines
I

~--------------------------------------------.--------------+----------------------------~
ICloses files, frees scratch core and deletes unwanted
IZURC(AA)
I
Iphases
I
I

I

I

IIf batch compiling, scans batch delimiter card for correctl
Isyntax and updates completion code.
I

I

I§ntri~~to

Q§{l'§'Q: TIME" CLOSE, FREEPOOL, DELETE, and

I

I
I
I
I

I
I
IFREEMAIN
L __________________________________________________________ I ____________________________ JI
~

Section 3: Charts and Routine Directories

75

• Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases

I

r-----------------------------------------------T---------------T-----------------------,
,Main Processing,
Routine Called
I

II

~-----------------------------------------------+---------------+-----------------------1

, ,
I I

statement or Operation Type

'Releases scratch storage allocated by ZUGC

I

I

Routine

IZURC

,

I

I

IZUERR, ABORT

I '

I
I

' I

I
I
,

I E~ra~~ter~_~~~se9: PARi -- a count of t h e "
I number of entries to ZUGC to be r e l e a s e d "
I
I
I
I
I §nt~Y_~2_2§{1~Q: FREEMAIN if storage being
I replaced is outside the guaranteed 4k block
I
I
,
~-----------------------------------------------+---------------+-----------------------~
IInserts diagnostic message in the dictionary
IZUERR
IZDRFAE, ZDICRF, ZDICAB I

,

,
,
I
I
,

R~~~~~~~rs_E~~~~9:

PARS -- numeric parameter ,
(if any); PAR6 -- message number; PAR7 -- add-,
ress of text (if any) or dictionary reference I
(if any); PAR8 -- length of text (if a n y ) '
§~~~Y_t2_2§{1~Q: None
"

,

I

I
I

I
,
,

~-----------------------------------------------+---------------+----~------------------~

,Takes a dictionary reference and points at the ,CONSLD
Irelevant slot in the dictionary block control
I
larea (DSLOTS)
"

INone
I

,
I
,

I

I

I

I

I R~~~~~~~~~_E~~~~9: PARi -- dictionary r e f - ,
'
I erence
, E~~~~~t~~~_~~t~~~~9: Address of slot in GRA
,
, Ent~y_~2_2S/1~Q: None
"

I
I
,

I
'
,
,

~-----------------------------------------------+---------------+-----------------------~

ITakes a text reference and points at the rele- ICONSLT
I
,vant slot in the text block control area
I
I
, (TSLOTS)
' "
,

I
I

I "

I R~~~~~~~~~-2~~~~9: PARi -- text reference"
I
, R~~~~~~~~~_E~~~ED~9: Address of slot in GRA
I
I
I
I '
I
, §~~~y_~2_QS/l~Q: None
~-----------------------------------------------+---------------+------------------------~
IAllocates space for a text block
'TRYMRT
,DFREE, TFREE, ZUPL,
I
I
I
IAEORT
I
,
,
,
I PaE~~~~ers_~~~~9: Relative track address of
I
,
, the block (if block is on disk) in RDTTR.'
, Otherwise RDTTR is zero
,
,
,
,
,
,
, Parameters returned: Address of block in GRO
, :g!it!:Y=i2=Qs/I~Q:GETMAIN(VC) if s t o r a g e "
,
'available.
OPEN if no space left for text
"
I
, blocks
' I
I
~-----------------------------------------------+---------------+-----------------------~

IAllocates space for a dictionary block
'TRYMRD
IDFREE, TFREE, ZUPL,
I
IABORT
I
, R~E~~~~~rs_E~sse9: Relative -track addr:ess of ' I
, block (if block is on disk) in RDTTR.
Other-,
,
I wise RDTTR is zero
I Parameters returned: Address of block in GRO ' I
I :g~try-t2=Q§~1&Q:-GETMAIN(VC) if storage
I
I
Open if no space left for diction-I
I
I available.
I ary blocks
I
I

I'

,
,
I
I
I
I
I
,

,

~-----------------------------------------------+---------------+-----------------------~

IInvestigates the dictionary block control used IDFREE
I (DSLOTS), to find which block can be written ani
Ito disk to make space for a different block in I
I
I storage
I
I
I
I R~E~~~.!:~E~.-E@~~~9: Relative -track address of
I block required in storage in RDTTR.
RDTT~=O
I
I
, if a block is being created
I Parameters returned: Address of block in
I
, storage-In BLOKAD-I
§~~EY_i2_2§{1~Q: None
I _______________
I _______________________________________________
L
~

76

ICONSLD, ZUERR, ABO~T,
IWDREAD, WRTRD, WDWRIT

I
I
I
I

I
I
I
I
I
I
I
I

I
I

I
I

I

_______________________ JI

I
I

~

Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cent'd)
r-----------------------------------------------T---------------T-----------------------,
I
IMain Precessing I
Routine Called
I
Statement or Operation Type
'Routine
I
I
I
~-----------------------------------------------t---------------t-----------------------~

IInvestigates the text block control area
I (TSLOTS), to find which block can De written
lonto disk to make space for a different block
I in storage

ITFREE
,
I
I

I

' I
I
I
I
I

I

E~~~~~!~rs_2~~~ed:

Relative track address
I block required in storage in RDTTR. RDTTk=O
I if a block is being created
I !:~~~~§!:.~~~~§!:~:!rn §2: T FREE
, E1!:!!:~Y_!:Q_Q S /3 §.Q : Non e

ICCNSLD, ZUERR, ABOkT,
IWDREAD, WRTRD, WDWRIT
I
I

I
I
I
,

I
I
I
I
I

' I
I '

' I

I

~--------,---------------------------------------t---------------t-----------------------~

Icreate space in storage by writing on disk

IWDWRIT

I
I
"
I !:~ra~§!:~~~_2~~seQ: RDTTR=O, BLOKAD contains
I address of block that can be written o u t "
, Parameters returned: BLCKAD contains address
"
I of-"block-In-stc)rage that is now a v a i l a b l e ,
I
I E1!:!!:~_to_Q§~l§'Q: WRITE (BSAM), CHECK, NONE

IWRITEX

I

I

,

I
I

I
,
I
I
I

t------------------------------------------------t---- -----------t-----------------------~

IWrites a block onto disk and reads a second onelWRTRD
linto its place in storage
,

IREADX, WRITEX, ZUERR,
I ABORT

I
I

I
I

I

I

,

t
I
t

t

I

!:~~~~§!:§~~_B~~~§9:

RDTTR contains relative
I
I
track address of block to be read.
BLOKAD
I '
contains address of block to be written
I '
Parameters returned: NOTTR contains relative
I
I
track-address-"()fblock in storage
' I
£!!:!!:~Y_!:2~QS/l§'Q: WRITE (ESAM), CHECK', NOTE,
I

I
I
I
I
,
,

~--------------------------------------------·---t---------------t-----------------------~

'Reads a block from disk into space already
,available in storage

IWDREAD
IREADX
' I

I
I

,

' I

I

I
I
,
,
I
I

!:~~~~et§rs_E~~~~9:

RDTTR holds relative track
address of block to be read.
BLOKAD holds
address of space in storage
Parameters returned: BLOKAD holds address of
"block-In-storage--Entry to~§{l§'Q: None

' I
I
I
' I
I
I
I
I
I
I

I
I
I
I
~

I

t-----------------------------------------------t----- ----------t-----------------------~

IWrites a block onto disk

IWRITEX

IZUPL, ZEND

I

I

I

I
I

,

I !:~~~~~te~~-B~~~~Q: TEMP4 holds relative track I
I address of space on disk
I
I E1!}!:~Y_!:~2_Q§{1§.Q: XDAD(WI), WAIT
I

I
,
I

I
I

t-----------------------------------------------t----- ----------t-----------------------~

IReads a block from disk

I

'READX

, !:g~~~!:~~rs_12~~~~9: TEMP4 holds relative track
I address of block on disk
I Par~~~t~rs_re!:~~!}§9: PARi
address of input
, area
I !:~~~~~!:er~ re!:~!~!}~Q: PAR2
record length
, E1!:!!:~_!:Q~§{}§.~~ : GET MOVE (QSAM)

IZUPL,

ZEND

I '

' I
"
"

I

I

,
,
,

' I '
I '

I

I

,

I

r-----------------------------------------------t----- ----------t-----------------------~

IReads a record from SYSIN
IZURD
INane
I
I
I "
I !:~ra~~!:~~~-12~~§.ed: PARl -- address of input
"
I
, area
, !:~~~~~!:£rs re!:~rn~2: PAR2 -- record length
"
,
, _______________________________________________
E1!:!!:~y_!:Q~§~}§.Q: GET MOVE (QSAM)
I
' _______________________ J,
l.
_______________

' I '
~

~

section 3: Charts and Routine Directories

77

Table AL/AN. Modules AL/AN Extended Dictionary/Dictionary Phases (cont'd)

r-----------------------------------------------T---------------T-----------------------,

I
I

IMain Processing I
Routine Called
I
Statement or Operation Type
I
Routine
I
I
~-----------------------------------------------+---------------+-----------------------~
IPuts a record out to SYSPRINT.
Pagination
IZUPL
IPLERRX
I
I (paging action) is performed automatically
I
I
I
I
I
I
I
I E~ra~eters-Bas~ed: PAR1 -- address of output
I
I
I
I buffer. PAR3 -- address of output buffer
I
I
I
I containing page heading (if any)
I
I
I
I
I
I
I ~g!~y_!O OS/l~Q: PUT LOCATE (QSAM)
~-----------------------------------------------+---------------+-----------------------~
IFinds a new text block.
Optionally chains the IZUTXTC
ICONSLT, TRYMR~, ZUERR, I
Inew block to the current block and changes the I
IABORT, BLKERR
I
Istatus of the current block
I
I
I
I
I
I
I
I R~~~~~ter~_£~~~~9: PAR1 -- optionally, a
I
I
I
I reference to the current block.
PAR2 -- a
I
I
I
I status and chain indicator
I
I
I
I
I
I E~~~~et~rs~~!~~~~9: PAR1 -- reference to new I
I block; PAR2 -- absolute address of the
I
I
I
I beginning of block
I
I
I
I ~~!~~QS/l~Q: None
I
I
I
~-----------------------------------------------+---------------+-----------------------~
IFinds the next text block in the chain.
IZCHAIN
ICONSLT, TRYMR~, BLKERR I
IOptionally, changes the status of the current
I
\
I
\ block
I
I
I

I

I

I

I

I

I

I

I

I

I

I

I

~

~

I R~ra~eter~-Bas~~~: PAR1 -- a reference to the I
I
I
I current block; PAR2 -- a status indicator
I
I
I
I Parameters returned: PAR1 -- reference of the I
I
I
I next~lock_rn-the-chain.
PAR2 -- absolute
I
I
I
I address of next block in chain
\
I
I
I ~~try_!2_Q§~1~Q: None
\
I
I
~-----------------------------------------------+---------------+-----------------------~
IChanges the status of the referenced text blocklZALTER
\CONSLT, BLKERR
I
I R~ra~~!er~-B~~~~~: PAR1 -- a reference to the I
I
I
I block.
PAR2 + 3 -- required 'status' byte
I
I
I
I
I
I
I En!~Y_!2~S/1~Q: None
~-----------------------------------------------+---------------+-----------------------~
IConverts a text reference to an absolute
IZTXTAB
ICCNSLT, TRYMRT, BLKERR I
laddress and optionally, does not change status I
I
I
lof the block
I
I
I
I
I
I
I
I E~~~m~!~~~_£~~~~~: PAR1 -- reference to be
I
I
I
I converted and option indicator bit
I
I
I
I
I
I
I E~~~~eters_~~!~~~~~: PAR1 -- the absolute
I address
I
I
I
I ~g!~y_to~S/l~Q: None
I
I
I
~-----------------------------------------------+---------------+-----------------------~
IConverts an absolute address to a text
\ZTXTRF
ICONSLT, BLKERR, ZUERR, I
\ ref erence
I
I ABORT
I
I R~~am~!er~-E~~~~~: PAR1 -- a text reference tol
I
I
I the block containing the absolute address;
I
I
I
I PAR2 -- the address to be converted
I
I
I
I Par~~~!ers~~!~~~~9: PAR1 -- the required textl
I
I
I reference
I
I
I
I ~~!~-.!:2~S/1~Q: None
I
I
I
~-----------------------------------------------+---------------+-----------------------~
IEnters message 'REFERENCED BLOCK NOT IN USE'
IBLKERR
IZUERR, ABCRT
I
linto dictionary and then terminates compilationl
I
I
~~!~Y_!2 OS/l~Q: None
I _______________ I _______________________ JI
lI _______________________________________________

78

Table AL/AN. Modules AL/AN Extehded Dictionary/Dictionary Phases (cont'd)

Ir-----------------------------------------------T---------------T-----------------------1

I
I

,Main Processing,
'Routine,

statement or Cferation Type

Routine Calles

I
I

.-----------------------------------------------+---------------+-----------------------~

ISupplies storage space for scratch purposes.
'ZUGC
'TRY~RT, ZUERR, ABORT
IAllocation is made in 512 bytes at a time
I
I
I Para!!!.§!.§!:~__12~~§.§9: PAR1 -- a count of t h e '
I
I number of 512 byte blocks required
I '
I f~ra!!!.§1ers_!:.§1~rn.§9: PAR1 -- address of the
I '
"
I allocated storage
I ];!!trY_1Q_Q§~}.2.Q: None
"

,

,
,
I
I
I
,

J.-----------------------------------------------+---------------+-----------------------~

IConverts an absolute address to a dictionary
Ireference
I Pa!:~!!!.§!:~__12~~.§,§9: PARt -- any ref erence to
I the block containing the abscl ute address;
I PAR2 -- the absolute address to be converted
I Pa~~!!!.§!:ers~.§1~rn.§9: PAR1 -- the required
I dictionary reference
I ~!!trY_!:2-QS/3.2Q: None

'ZDABRF
,CCNSLD, ZUERR, ABORT,
'IBLKERR
' I
I
I
' I
I
I
I '
I
I

I

I
,

I
I
I
I
I

~,-----------------------------------------------+---------------+-----------------------~

'Converts a dictionary reference to an absolute IZDRFAB
ICCNSLD, TRYMRD, BLK~RR I
I
I
,
I address
I Ear~!!!.§ter§__12~~§,§9: PAWL -- the dictionary
I '
I
I reference
"
I
, Par~!!!.§!:er~~et~!:!!§9: PAR1 -- the absolute
I '
,
I address
' I
I
I ~!!1!:y_!Q_Q§~}.2Q: None
I
I
,
~-----------------------------------------------+---------------+-----------------------~

IMakes an unaligned dictionary entry and
'ZNALAB
IZDRFAB, ZDAERF, TRYMRD,'
'returns an absolute address
,
IZUPL, ZUERR, ABORT,
,
,
"CCNSLD,
, Earam.§!~rs_~~~e9: PAR1 -- address of entry tol
I
,
, be made; PAR2 -- length of entry
I '
,
,
, E~!:~!!!eters_~§!urn.§Q: PAR1 -- address of entry "
I in dictionary.
PAR4 -- some reference to the "
,
I
I
,
, block
I En!!:Y_~Q-2S/3.2Q: None
I
I
I
~---------------------------------------------~-+---------------+-----------------------~

IMakes an aligned dictionary entry and returns
IZDICAB
Ian absolute address
I
I
I
I fara!!!.§1g!:~__12~~?eQ: PARl -- address of entry tol
I
I be made; PAR2 -- length of entry
, Pa~~!!!.§1grs ret~lrn'§2: PAR1 -- address of entry I
, in dictionary.
PAR4 -- some reference to the I
, block
I
I ~!!try_12-2S/3QQ: None
I

IZDRFAB, ZDAERF, TRYMRD,I
IZUPL, ZUERR, ABORT,
,
ICCNSLD
I
I
I
I
I
I
I
I
I
I
I
I
I

~-----------------------------------------------+---------------+-----------------------~

IMakes an unaligned dictionary entry and
IZNALRF
IZDRFAB, ZDAERF, TRYMRD,I
Ireturns dictionary reference
,
IZUPL, ZUERR, ABORT,
I
'ICONSLD
I
,
, far~!!!~t~f~__12as§ed: PAR1 -- address of entry to I
,
I
I be made; PAR2 -- length of entry
I '
,
I Parameters returned: PAR1 -- reference of
I
I
I
, entry-in dictionary.
PAR4 -- absolute address,
I
I
I of the entry
' I
I
, ~!!1~Y_1Q_QS/36Q: None
"
,
~-----------------------------------------------+---------------+-----------------------~

'Makes an aligned dictionary entry and returns alZDICRF
,ZDRFAE, ZDAERF, TRYMRD, I
,dictionary reference
I
IZUPL, ZUERR, ABORT,
I
I
"CCNSLD,
, E~~~!!!eters-B~§§~9: PAR1 -- address of entry tol
I
I
, be made; PAR2 -- length of entry
"
,
, Parameters returned: PAR1 -- reference o f "
I
I entry-irldIctionary.
PAR4 -- absolute address'
I
I
, of the entry
' I
I
,l ________________________________________________
EnifY to~S/36Q,: None
I
' _______________________ J,
_______________
~

~

section 3: Charts and Routine Directories

79

• Table ALl/ANi. Modules AL/AN Routine/Subroutine Directory
I r------------------T--------------------------------------------------------------------,
I I Routine/Subroutine I
Function
I

I ~------------------+--------------------------------------------------------------------~
Finds text block which can be written on disk
to make space for a new block in storage.

ITFREE

I
I

Allocates space for a dictionary block.

ITRYMRD

I

Allocates space for a text block.

ITRYMRT

I

Reads a block from disk into storage.

IWDREAD

I

Creates space in storage by writing a block on
disk.

IWDWRIT

I
I

WRITEX

Writes a block on disk.

WRTONL

Writes on last block on disk.

WRTRD

Writes a block onto disk, reads a second one
into its place in storage.

ZALTER

Changes status of referenced text block.

ZCHAIN

Finds next text block in chain.

ZDABRF

Converts an absolute address to a dictionary
reference.

ZDRFAB

Converts a dictionary reference to an absolute
address.

ZDICAB

Makes an aligned dictionary entry and returns
absolute address.

ZDICRF

Makes an aligned dictionary entry and returns
dictionary reference.

ZNALRF

Makes unaligned dictionary entry and returns
dictionary reference.

ZNALAB

Makes unaligned dictionary entry and returns
absolute address.

ZTXTAB

Converts text reference to an absolute address.

ZTXTRF

Converts absolute address to a text reference.

ZUERR

Inserts diagnostic message in dictionary.

ZURD

Reads a record from SYSIN.

ZUGC

Supplies storage space for scratch purposes.

ZURC

Releases scratch storage.

ZUPL

Puts record out to SYSPRINT data set.

I

80

~

I

~

IZUTXTC
L
__________________

I
I
I
I
I
I
I
I
I
I
I
I

Obtains a new text block.
__________________________________
__________________________________ j!

Table AM.

Module AM Compilei Control Phase Marking

r"-----------------------------------T---------------T-----------------------------------,
I
\

Function

IMain Processing\
I
Routine
I

Routines Used

I
I

~"-----------------------------------+---------------+-----------------------------------~

IMarks all non-optional phases and
IIEMAM
jRE~EST, RLSCTL (both in AA)
I
lall phases influenced by compiler
I
I
I
linvocation-time
options
I _______________ I ___________________________________ JI
L
____________________________________
~

~

section 3: Charts and Routine Directories

81

Chart 01.

compile-time Processor Logical Phase FloNch3rt

...x

•

•• YES

.*

E2·.

*.

IN~l~EO ••
ex
••
• ENC UN EREO.

••••••••

*.

....

.*

• NO

x

~i!;;~!i!~:::;:

...•••••• r..•••.

• MESSA
DUINOlTJC
E
TROl.•
•
HA
•

·.·.·H2·.····•.•.
X

~'.! ~~:;~~-.-.J~:
RE-INlTiA~tZE
•• COMMo
R G N ••

AND TA k••••••
••••••••••

•

'32

Cha rt 1\S.

Phase AS OveralL logic

• ••• A2· ••• •••••
~NTRY
FROM

•
•

Diag~am

•
•

•••• :~~U.~~ •••• •

X
02· ••• ••••••
•:•••••
•
U¥~ ;~~~F ~c :
• 'INPUT' n~T
•
•••••••• *••••••••••

X
••••• e2 *•••••••••

•
•
•

•

TURN
INCLUDE-SW

•

•
•

OFF

•

•*•••••••••••••• *.*
X

LOADW

.-.-.-Ai..-.-.-.-.-.
:"·;~n~·:G·*··:

•
•
•

PH

~nAD

•••• *

•
BG INTO •

e
•
.,~ORA
••~••••••

·

····*G2 •.•••.• **
,~

:•
•

X

U¥E PI"A~E BG

no~~~nvCE

:*
•

•••••••• ••• *.* ••••
,~

·

!NCTST
H2

X
,,*.
*•

•• • * is

•• ••

YFS •
••• !I«:L~E-SW••, •••••

.. ·.1 ..
.*

• NO

X

•••• ~2 IJ* ••••
:
•

*••

FtXRN
:
PHASE AA
•
• • • • • • (1 • • • • • • • •

Section 3: Charts and Routine Lirectories

83

Chart AV.

.....

Phase AV OVErall logic Diagr3m

.

·AV •

•

A2 •

••

·····.S3··.•.•.···..
\(

•
~OVF TOKSC"l
•
•
TABLE I"lTO
•
• SCRATCH STORAr,E.

•
•
.................

·

K

101101"1"48

.

••••• C 3.......... .

ALLO~ATE PO'l
IN C!lATCH
S DRAGE

•
•
•

•
•

••••••••••••••••••••

·····0"··•...ISFII··..•
ic

•

ncs's

SET UP

•

•
AND RUFFER
•
• AIlFA FOR
•
A"lO SYSl 1\
...
• INClUI)E F LFS •

•••••••••••••••••
ic

••••• F 3 ••••••••••
•
SFT UP
•
• KF YW'lRn T leL F. •

•
•
.................
IN'\l8::~lH

:

:

X

WWJVLP

••••• F3·· ••••• • ••

••

~fT

UP TASLF'>
• HI T II.ANSL ATE
• EKTFR"lAL CO('"
•
TO EIICDIC

•

•
..
•
•

.................
.....···
.................

HH'lflCf'I

K

..··.··G~··
'4AIII

·.....

:
•
'"

•

ADD CODE

•

:

TRl6~~T

:

•••••••••••••••••'"

.•................•

·*-.-.•.·GZ··········

•••••
.SG •
• 83.
•••

·

:
•••••••••••••••••
~~2H~M

ic
• • • • • F) • • • • • • • • • •

TO
STA TEMENT

.TO CAll CLEANUP.

·x

ic

K

llE4P

OZ •
•• ••••
•

• ENcaOE STHNT •
*- *- *-*-*-*-*
.USES AND TESTS.
•
A PUSH DOWN •
•
STACK
•

.................
...

HZ

.•.it

••

• •••• H3 ••••••••••

*.

•

•• wt. S I T . . YES
•
•• THF. EN!) FOR . . . . . . . . . . X.
••
PROC
••
•

.. ..

*..*

•
•

....
....

•

YES..

02 .X ••••••

••

..

J2

•

•
•
•

.................
··..........
•

••••••••••• x.

x

••

..

..,".
*0 o.

PROC

1Ir.

IS

TURN
PROC SW OFF

•

• NO

.·x..

•••••
••
•

·BG •
• 83·

SW ON

• (3 •

•• NO

••

•

••••• ".0

•

section 3: Charts and Routine Cirectories

85

Phase BG Overall Logic Diagram

Chart BG.

•• ••••
8G •
• 83·
••
•

••••••••••••••••••••••••••••••••••••••• x. x•••••••••••
K

PH2SCN

.-.-.-.-*-.-.-.-.

:~;~.~~ ~;.;;::=.:

:TJ!~nSTbR2~T

:

: •• =U~_l~S~ •••:

.-.
~

C1

•*
•*
•• WHAT
*.

·X

.

.

*.

••

*•

*••
•
••.*

IS IT

*•• *

•

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • 41 • • 41 • • 41414141414141414141414141 • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

·····01··········•

OAE08F

•

••·.··.02··········••

••·····04········.·••
.11.

OAMAC
K
••••• 03 ••••••••••

X

OAI DEN

OAOTHR

FNO OF TEXT

x
.. ... ..
El

NO ••

• •••••

*.

IS

••• * .*

IDENTIFIER

••

••

....................•

EZ

·· ..

·····Gl··········•

•

·•..................•

·

•• ••

:

*. *.

n~~Kp~~P

·

.X •••••••••••••

...

.
··········_·tc

~

* •• -

••

e·

..

OAPENT
~
•••••HZ •• •••••• ••

X

:

:

.

...

:~~~~~~:~

·

····*H3··••••••••

: :IIITPRT

•
INTERPRET
". .-.-.-.-........-.•
•
•••. It: ~a:-I'l :
•
:
•••••••••••••••••••

...

REPLi)EMENT

• ON ARG • GI'T
•
VIILU FOR

:

STACK
•
•••••••••••••••••

•
•
.................
.
.
•

• YES

¥b~-~H-n~~

:
•

G2

:

.

• K•••••••••••

••••••••••• )C •••

:··.··J2··········:
·.................
P¥~~-H~-~~~'

•

•

YALUE ONTO

STACK

...
•

.*
••

J3

••

*.

WAS
•• NO •
•• IT INCLUDE ••••••

*.

...

.

.•.
~

X

*.

*•••

••

••

• YES

·•••··KZ··········• ·····K3·········..
·.................... ··
. ......
.. .
.

•••••

X

LEY-81T· 1

X

•

•

•
•

TURN

I Nt LUOf-SW
ON

•

........ .
•
X

•••••••••••••••••

·!'IC •
~.~

86

n5.a........

to

..

• AI·

:_.~~~k~~!:~t_._:

•• OUTPUTS

:•. 1(.:..*PR~~~glJ\ .,.E .: .~~ • • •

··.·.Hl··········:

OAEOS

~

·····E4 •••••• ••••

K
•• ••••
•
04 •
••••

OAP~li ••

·

*.

• NO

•

••
SCAN OF
•
... X.VALUE FINISHED.

••

*.

x

•

:

.. .. o· ....

~H~~·····.

TO CALLER

I~I~~bRtM~E

YES ••
••
••••••
ACTIYATFO ••

••

.111

• YES

•

...

:

•

~

••

LF.Y-BIT 0

*.

•

•

.

e., • • • • • • • • • • •

••
••
••• OTHER •• . •• PERCENT SIGN ••
••••••••••••••••• • ••• •••••••••••••••••
...
04 •
x
•• ••••
•
•••••
.,,"

·•••••••••••••••••••.•• ·••••••••••••••••••.• ·•••••••••••••••••••.••
•

~

TOKFN •

••

.

Chart

Diagr~m

Phase BM Overall logjc

....

Brv1 •

"'
• BH •
• AI·
••
•

leA 0

X

: . . . . Al . . . . . ."' •• :

XA~ 1

. . . . E~H8tiS~

••• :

•
.............
"'...• •................•.

•
S~T
•
•
: SEVERI Y CODE : •••••••• X:

~EVE" ~F
O~~~~ySobf

XAI

YES ••

••

132

.•.·x

•
:

••

ANY ••
f'NTR IES •• NO

•

*. *. PRlt2E~feo • ••••••••••• )( •
*.
••

: •••• e ••••••••••••

*•• *

•

XA'~

K

••••• C1..........

KA7

H~ai~G~::

•

••

A~LOU

.................

:

: ........

K~

.sw •

• AI.
I• •

•

... •••• C2 ••••••• '...

:

.'....

.0 ...... x

•••••••••••••

~~H~~

• •••• C 3..........

• •••• C4 ••••••••••

rn ~~:
:
: hNk~5~b
:
:........
••
••

..............,...

:

~S~~:U

................
.•
....
.
·· ....

.................

K:

~L~K

: •••••••• K:

•

• 04 •• ~.
••••

NO
: . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Cttl4I • • • • • • • • • • • • • • • • • • • • • • • • • • • • • 0 . . . . . . .

,.e.

...
l(

114

He~E

••

••••

YES

*., ~~O~~'l~~s"~~.· ...
*.

•• ••

.•

•....rl.a........

·..................
T

HEAgEOFT~HAIN

XAZ~ ••••

E2 •••••••"'..

e.·· E·,.··..

'"
.
...................

:
..
••••••••• K:
. . .

0:
••••••••• K..
•
••

NE)(~°ftt.OCK

X

• ••••
·BW •

Or

•
:
•

Cle.8

•

At •

•••

'(Al~~ ••• E4•••••••••••

....
.. ..
TM

•••• YES
•
•••••••••• K
CHAIN ••
•

"N~W

,,~~I~~R9~h

.............
SEVERity
HEADER

•

•

• • • • • • • • • • • • • • • • • • • • 0 • • • • • • • • • • • • • • • • • • • • • <1 • • • • • • • • • • • • • • • " " • • • • • • • • • • • • • • • • • • •

•

·

X

K
••••• Gl............

XA'lr

•

•
••• ):.
•
•

·

.. Ii ..

.
.•..

....

*...

*..*

••••

G2

•••

••

Gl

.. ..

• .NO
••

GET T O .
•• SKEL TON •• NO
••
END
•• YES.
•
NEXT eNTRY
••••••••• X•• IN CU RENT •••••••••• lI •• OF CHAIN
•••••• X. 04 •
IN CHAIN.
•• BLOCK ••
••
••
••

•
•
.................

.....H2..........
X

•

XA32

H3 ..

....
.. ..

J2..........

.....JI..........

~~~~iE:

•...

•••

·..................
:
•
•

.....J1."'•••••"'..

....

• YES

*HIt ••••••••••

.................

•••• THA~T •••• YES
:
TO P~INT
••••••••• IC •• A lTA¥EHENT •••••••••• X.
BUFFER.
•• NUHBER ••
•
• NO

ST~K~~NT

:
•
•

T~

PRINT
IIUFFER

. ..• ···J4...····.··.

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • f' • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

i<

:
•
•

•••••

ACCESS:
:
MESSA E
••••••••• X.
SKELET N .
•

: ................:

AN
~••••••••• lC.:
H~!SAGE
SKhETON.
•

: ............... :

M
T

U4r

~fkgE:
I(
IN
••••••••• J(

R liT.

: •••• ~~~~U.....:

•

PUT
T
OIAGIIO~VIC
MESSAGE

.............

....

•

•

K

•

: •••••••••••••••••••••••••••••••••••••••••••• (~ •••••••••••••••••••••••••••••••••

••

Kit

WAS

••

••

• •••

,~~.:·lAStH~~TR.V
.:*~;~.)(:•Oft.:
•• IN CHAIN ••
•
*0
••
• •••
*.

•o·

section 3: Charts and Routine rirectories

87

Phase Bw overall logic Diagr3m

Chart BW.

"'' ' ' ' ' '
'" '" '"

"'BN '"
'" AI'"

ic

"'' ' ' '" "'A 1"''''''''''''''''•• ''''''

'"

'"
:

RELEASE

AN~H~~a~EO

'"

'"
:

"''"' ' ' ' ' ' "'''''''''''''. "'''''''.'''''''"
X

•"'''''''''''''81'''········'''•

.'" ...............
•
RELFASE ALL •
"'ACTI VE TEXT AND.
•
DICT BLOCKS •

"'

ic

·"''''''''''(1··''''''·'''··'''·

'"
FREE
•
•
ANV
'"
•
OUTSTANOING •
• SCRATCH STORAGE.

...."'......"'..."'..

'"

.•. "'.
K

.• 01

•••• "''''02'''.'''.'''''' •• '''''''''

*.

",:"'C~~~3unON·:.~~ •••••• x·
s~~b~~
~ *.
'"
.*.'"
•• • *
"'."' "''''.'''''''''.

...

'" YES

.AA •
•

X

•·"'."'.El.·········•
: l~gs~v~~a~A :

·•... ............•.
"'

·

.
..........."'.....•
X

••••• F I ••••••••••

•
•
•

•

RFALLnCATE
TF~T ANI')
nl(T BLnCKS

.,.

GI

.•.;

••

•
•
•

• •••• GZ ••••••••••

*.

•

••
IK
•• YES
•
•• TEXT IllnCKS •••••••••• l(.

*.

.*
**.
••.**
•

·

~O

.
·..................
.....
..·
ic

.·."'.Hl··········

•

SF.T UP

•

•

RFGION

•

• COMMUNI C ATI nNS •

x

·CI •

• 61·

88

•
•
•

•
•
•••••••••••••••••••

• 1( • • • • • • • co • • • • ' • • • • • •

·

OPEN
SPIll FILE

.

It • • • • • •

.....
...

••••••• K

HI,·

Table AS.

Phase AS Resident Phase for Compile-time Processing

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
~
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
IInitializes switches for compileIADRP
INone
I
Itime processor
I
I
I
~------------------------------------+---------------+-----------------------------------~
ILoads phases for compile-time
IADRP
ILOADX (AA)
I
I processor
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IDetermines whether Phase BC should IADRP
INone
I
Ibe
reloaded
L
_______________________
•____________ I _______________ I ___________________________________ Jt
~

~

Section 3: Charts and Routine Directories

89

.Table AS1.

Phase AS

Routine/subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I

I

Function

~------------------+--------------------------------------------------------------------~

I
I
I
I
I

ADRP

Initializes switches for compile-time processor.

BCKUP2

Backs up token pointer two places.

CHBLK

Changes currently busy IVB block status and gets a new block

CLSBUF

Handles calls to close and write out the buffer.
phase BJ if necessary.

COMENT

Scans the limits of a corroment, transfers each character into the
output buffer.

ENDIVB

Closes an IVB chain.

FREVAL

Releases a chain of IVBs containing a no longer needed value and
returns chain to free list.

GETIVB

Removes an IVB from the free chain for use by the calling routine.

GNC

Updates TOKPTR to point to the next character in a particular input
stream.

HASH

Accepts an EBCDIC identifier as input and outputs an index. The
index indicates the beginning of the HASH chain with which the identifier is associated.

INCTST

Determines whether Phase BC needs to be reloaded on return from
Phase BG.

INPUT

Reads in an input record from the source data set or from included
text.

INRD

Reads physical records from the included data set; unblocks and
sends them back one logical record at a time.

NXTTXT

Gets a new text block and sets up address slots.

OUTPTC

Outputs a single character into one of the three output rredia:
IVB's, text blocks, or external records.

SRHDIC

Searches the dictionary for the presence of a named item.

STRING

Scars the limits of a string constant, transfers each character to
output.

TOKSCN

Examines text, character by character recognizing and returning eachl
logical unit of text (called a token>. Tokens include identifiers, I
constants, operators, delimiters, etc.
I

I

UPNEWL
YAG2
l __________________

90

Loads and bases

I
I
I
Loads processor phases for the compile-time
processor.
__________________________________
__________________________________
JI
Updates temporary linecount slot.

~

Table AV Phase AV Macro Processing Initialization

r-----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

I
I

Subroutines Used

~-----------------------.------------+---------------+-----------------------------------~

IInitializes communication area for IINIT
Icompile-time processing
I

INone
I

I
I

~-----------------------------------+---------------+-----------------------------------~

IAllocates push down stack from
Iscratch storage

IINIT
I

INone
I

I
I

~----.-------------------------------+---------------+-----------------------------------~

IAllocates translation tables

IINIT

INone

I

~-----------------------------------+---------------+-----------------------------------~
I~nters

SUBSTR into dictionary

IINIT

INone

,

~-----------------------------------+---------------+-----------------------------------~

lCreates dictionary entries and
IINIT
INone
I
!values
for constants pool
L ___________________________________
LI _______________ I _ __________________________________ JI
~

•• Table AV1.

Phase AV Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

~------------------+--------------------------------------------------------------------~

IINIT
I

IEntry point to the initialization phase. This
Imunication region for compile-time processing.

initializ~s

the com- I
,

I

,

IWWN048
,

IAllocates the push down stack (to be used by Phases BC and BG) from I
Iscratch storage.
,

I

,

!WWOVLP
I
I
IWWOBCD

,Sets up tables to translate external code to EECDIC; tests the
IBCD,EECDIC option.

IIWWCHNBEG
I
I
iWWMOVEIT
I
~INCLUDE

I

~LABELS

I
I GOTO
I
IACT
I
I ELSE

(BC

I
I
I

I

I

I

I

IEnters built-in function SUBSTR into dictionary.

I

,

ICreates dictionary entries and values for compile-time constant
Ipool.

I

,

I

IMoves Subroutine package into core for use by BC.

I

IINCLUDE Processor
I
ILABEL List Processor.

I

Subroutine IGOTO statement Processor.
Package)

I

IActive/Deactivate Processor.
I
IELSE Clause Processor.

L __________________ i ____________________________________________________________________ J

Section 3: Charts and Routine Directories

91

Table BC.

Phase BC Initial Scan

and Translation

r-----------------------------------T---------------T-----------------------------------,
J
I Main Processing I
I

I

Statement or Operation Type
I
Routine
I
subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
IRecognizes statement type
IPH1SCN
ITOKEN, DELETE
I
~-----------------------------------+---------------+------------------------------------~
IScans until next % character
IPH1SCN
IFINDPC
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses PROCEDURE statement
IPH1SCN
I TOKEN, DELETE, IDSRCH,
I
I
I
I ADDSP (FREVAL, OUTPTC)
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses labels attached to state-IPH1SCN
IIDSRCH
I
Iment
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IEncodes statement into internal
IPH1SCN
I PARSE, TOKEN, IDSRCH, ADDSP
I
Itext
I
I DELETE, CHECK
I
~-----------------------------------+---------------+-----------------------------------~
ICleans up after INCLUDE in initial IPH1SCN
INone
I
Iscan
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IBegins statement identification
IPH1SCN
INone
I
Iprocess
I
I
I
l ___________________________________ i _______________ i ___________________________________ J

92

.Table BCl.

Phase.BC

Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------i

ADCONS

IObtains the dictionary reference of a constant, entering it into the
Idictionary if necessary.

ADDSP

Adds a

ADICT

Adds a normal item to the end of the appropriate hash chain and
returns the dictionary reference.

ADPROC (BF)

Processes PROCEDURE statement.

ASSIGN

Processes assignment statements.

CHECK

Checks back for undefined labels and identifiers not declared withinl
the block.
I

DECLAR (BF)

Declare statement processor.

DELETE
DO (BE)
DONE (BE)
FINDPC
IDSRCH

processor-~reated

item to the dictionary.

ISkips over bad text up to the end of a statement, field or proceIdure.

I

IDO statement processor.

I

IChecks stack for possible THEN's or ELSE'S after statement is comIpleted.

I

I

IscanE; source text, character by character, searching for macro perIcent character.

I

Obtains the dictionary reference of an identifier, entering it in
the dictionary if necessary.

IF (BE)

IF statement processor.

:KYWDSR

Checks for single or multiple keywords.

PARSE (BE)

ParsE~s and generates interpretive macro code for compilE-time
exprE!ssions.

PIF4

Provides special handling for end of included text.

PHlSCN (BE)

Main controlling routine for phase.

HETURN

Processes RETURN statement for PROC.

STB3

Collects labels into label list and identifier statement type on
first two tokens of statement.

STMT (BE)

Diagnoses statement type and builds label list.

~rOKEN

Returns significant tokens to PHlSCN and writes out diagnostics for
tokens in error.

UPDLIN
l __________________

I
I
I
I
I
I
I
I

l

~

Generates
an update linecount instruction.
__________________________________
__________________________________ JI
Note: See also BC Subroutine Package in Table AVl.

section 3: Charts and Routine Directories

93

Table BG. Phase BG Final Scan and Replacement
r-----------------------------------T---------------T-----------------------------------,
I
IMain Processing I
I
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
\Final scan for replacements
IPH2SCN
\ OUTPUT, TOKSCN, SRHDIC
I
~-----------------------------------+---------------+-----------------------------------~

\Recognition of end of text

IPH2SCN

I OUTPUT, TOKSCN, SRHDIC

I

~-----------------------------------+---------------+-----------------------------------~

IRecognition of an identifier
\PH2SCN
I OUTPUT, TOKSCN, SRHDIC
I
~-----------------------------------+---------------+-----------------------------------~
\Recognition of macro action
IPH2SCN
IOUTPUT, TOKSCN, SRHDIC
I
~-----------------------------------+---------------+-----------------------------------~
\Recognition of % character
IPH2SCN
I OUTPUT, TOKSCN, SRHDIC
\
~-----------------------------------+---------------+-----------------------------------~
IRecognition of other characters
\PH2SCN
I OUTPUT, TOKSCN, SRHDIC
I
~-----------------------------------+---------------+-----------------------------------~
ITerminates and cleans up INCLUDE
IPH2SCN
I OUTPUT, TOKSCN, SRHDIC
I
Ihandling
\
I
I
~-----------------------------------+---------~-----+-----------------------------------~
IRe-establishes scan at next higher \PH2SCN
\OUTPUT, TOKSCN, SRHDIC
I
\level text
\
\
I
~-----------------------------------+---------------+-----------------------------------~
IPerforms replacement on activated
IPH2SCN
I OUTPUT, TOKSCN, SRHDIC
\
identifiers
I _______________ I _ __________________________________ JI
L\ ___________________________________
~

94

~

.Table BG1.

Phase BG

Routine/subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~.------------------+--------------------------------------------------------------------~

CLOUT (BJ)

Closes output buffer, and writes out record on SYSUT3.

CONVRT

Handles conversions between the three data types used in the
compile-time processor .

DACLN

Terminates INCLUDE text handling and frees text blocks containing
included text.

DAEOB

Re-establishes scan at next higher level text.

DAEOBF

Recognizes and processes end of text condition.

DAIDEN

Recognizes and processes identifier in text.

DAMAC

Recognizes and processes macro action character.

DAOTHR

Recognizes character and outputs it.

DAPENT

Handles replacement operation for text identifiers.

DAPRTC

Recognizes % character and recalls Phase BC if appropriate.

I~UNCTN

(BJ')

Handles built-in functions.

I

Picks up a two-byte dictionary reference from scrubbed text, perI
forms error checking, resolves indirect references, and returns bothl
relative and absolute address.
I

GETDIC

I
I
I
I
INTPRT (BI)
Interprets the macro code generated by the Phase I scan.
I
I
Handles the output of tokens.
OUTPT
I
I
Scans text blocks.
PH2SCN
I
I
Pops the top temporary off the Phase II stack.
POP
I
I
PROINV (BI)
special entry point to interpreter for invocation of procedures
I
found in source program text.
I
I
Pushes next available temporary onto the Phase II stack.
PUSH
I
I
PUNCH (BJ)
Punches down output record, in source code, on MACDCK option.
I
I
Synchronizes linecount, closing buffer if necessary.
SYNCH
I
I
'I,'PEEK
Scans for procedure reference argument list left-parenthesis.
I
I
ZAASIGN (BI)
Performs identifier assignments for INTPRT.
I
I
ZACOMP (BI)
Performs all logical comparison operations for INTRPT.
I
I
ZACONCAT (BI)
Performs string concatenations for INTPRT.
I
I
ZACVT (BI)
Converts stack items to required type by 'RETURNS' attribute.
I
I
Z,ALGCL (BI )
Perforrrs all logical operations for INTPRT.
I
I
(BI)
IPerforms
stack maintenance for INTPRT.
LZAPUSH
__________________
____________________________________________________________________
JI
INCLUDE control routine. Opens DCB, finds member, sets up buffer,
and initiates look-ahead read.

INCONT

~

section 3: Charts and Routine Directories

95

Table BG1. Phase BG Routine/subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,
/Routine/Subroutinel

I

Function

~------------------+--------------------------------------------------------------------~

IZARlTH (Bl)

IPerforms all arithmetic operations for lNTPRT.

I

I

I

I

I

I

IZATRAl (Bl)
IZATRAN (Bl)

IZJSUBS (BJ)

IHandles transfers from included text to including text.
IPerforrrs all transfer operations for lNTPRT.

96

I

IBuilt-in function SUBSTR.

L __________________ L __________________________________ ___________________

I
I
I
I

~

I
______________ JI

Table BM.

Phase BM Diagnostic Message Determination and Printing

r------------------------------------T---------------T-----------------------------------,

I
I

statement or Operation Type

IMain Processing I
I
Routine
I

I

Subroutines Used

I

~-----------------------------------+---------------+-----------------------------------~

IDetermines whether error messages
lare to be printed

IXA
I

INone
I

I
I

~-----------------------------------+---------------+-----------------------------------~

Iscans error message text: skeletons IXA8
IXA50, XA70, XA90, XAii0, ZUPL
I
land
prints them out
I _______________ I ___________________________________ JI
L___________________________________
~

Table BMi.

~

Phase BM Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

~-------------------+--------------------------------------------------------------------~

IXA

XAO

IDetermines whether error messages are to be printed.

I

I

I

Isets severity code.

I

XAOi

IEstablishes which message types to suppress.

I

XAi

Icounts number of error chains to be processed.

I

XA2

Puts out messages if there are no diagnostics.

XA4

Prints out "COMPILER DIAGNOSTIC MESSAGES".

XA7

First scan of message chains.

XA8

Scans error message text skeletons and prints them.

XA9 (BN)

Scans to head of next non-empty chain.

XA12A

Selects and prints header for messages of given severity.

XA30 (BN)

Gets next entry in message chain.

XA32 (BN)

Builds up first part of message in buffer.

XA35 (BN)

Accesses message skeleton.

XA40 (BN)

Puts out completed message.

IXA50 (BN)

Moves wessage text to print buffer.

I

IXA70 (BN)

Converts binary statement number to character representation, and
moves it to print buffer.

I
I

Converts binary numeric value to character representation and moves
it to print buffer.

IXA90 (BN)

I
I

IXAii0 (EN)

Moves identifier from dictionary entry to the print area.

I

IZUPL
a line on SYSPRINT data set.
L
__________________ IPrints
____________________________________________________________________
JI
~

Table BW.

Phase BW Cleanup Phase

r-----------------------------------T---------------T-----------------------------------,

I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+-----------------------------------i

IResets all tables and communiIIEMBW
INone
I
Ications region cells to the value
I
I
I
Irequired
by the compiler proper
I _______________ I ___________________________________ JI
L
___________________________________
~

~

section 3: Charts and Routine Directories

97

Read-In Logical ?hase Flowcnart

Chart 02.

Al

...x

••
••
•• CHARA~TER •• YES
••

1t8

.. ..

*-.-.-.-.-.-.-.-.
WR :

• •••• A2 ••••••••••
.lt8-CHAR
8X •

.................

•••• •OpnOl'
'l •••••••••••• K:•
•••
• NO

·x

6&0~~Ulc
SET

•

.

• x••••••••••••• '" •••••••••

:n!:!Hi:::::~!i
• LIST IF REQ'O •
• ANO CONVERT TO •

:~~U~~:~.~~~~~.:

..··.Cl········.·
X

.MAKE DICT ENTRY.
*FOR U~ELS AND.
•
~H~ K
FOR
•
L G o
A~ RAM
END ••
••
0

••••••••• •••••••
x

:!;~:~Hi:::::g:

• SCAN TEXT TO •
• ANALYZE SYNTAX •
• OF STATEMENTS •

•••••••••••••••••

.•.x

._._._._1_._._._.

•• E1 ANY ••••
:;~~·U:······;,~:
•• ALLOiAT~1
•• YES
•• OECLAR J
LL •••••••••• K. SCAN TEXT TO •
.ANALYZE SYNTAK •
• STATE toN s.t
••
••
• OF STA TE IIENTS •

.. ..

..................

·x

.

• NO

• X•••• I I • • • • • • • • • • • • • • • • • • •

:H;~Hi:::::~~:

.MAKE CHAlNl pF •

:cUtocOE~Lp=O~

:

••••••• ,J. •••••••••

x
•••••
•"3 •
••
•

• U·

98

Phase BX cverall Lcgic Diagram

cbart BX.

••••• •
••••• •

•••••
• A1·
•••

• 8X •

• A2 •

• x••••••••••••••••••••••••••••••• ., •••••••

8A1~•••• A2.a••••••• '" ~
• CRJi~O AND·• •• SC~~ FIRST •'"
•
••• x: ~Eloa~E : •••••••• IC: Tf.tJerr :

r,. • • to • •

ft.

0 0

~.

0 0 6 . C ft 0

~."

CI •

8A1 ••••• A1 .:........

,

•
• •••••••••••••••••••
•••••••••••••••••

......... .................
,.

II

•••

81

12.......... .

8A70
• ••••

••

••••

•

It

A9XORO
ONE

•

•

•
•
.,

•••• K~~O~b •••••••••••• IC: T:~i VrA~2 : ••••
••

N AR

•• YES

•

...111
•• • ••NO

•
•
•••••••••••••••••

K
.••

CI' ••••

t.

8A2Zl.t~~~..........
•

.·00 ...... :

••
SURT
•• YES
.. OF C~~"fNI
•• ~~
R ~¥'.

•• • ••NO
K

".

••
•• IJF

01' ••••
Ji!10

.,.~~

*. ••

•
K·

~I!T

ArPRyPRIATe
WI CH ON

•

•

0

••
•••• it
:
•

•••••••••••••••••

•

8A2i'.2~~~..........

:

•

YES
•
••••••••••
111,..
:

IC.

C~T"ENT

•• • ••NO

~I!T

APPR PRI ArE
SWIT HOFF

•

•

••
•• '•• ,
:

•••••••••••••••••

ic

£1

••• ••

4t-

•• POSSIRLf

••

K~V~RD6R

.

.*...

ell'

*. ••

.1)t~gM~A.".

••• ••

El

YES

••

••••••••••••••• " ••••••••••••• ,•••• ., ... K·.

•• ••

•.••

~

·..

:

•• ••

•••••••••••••••••

X
••

••
~NO
••
F
• " Rf ORO
••

*.

1'3···..
••••

••••

.
••••••••••••••••••

• NO

SVH80L

.*
.:.

••

•

••• 0 •••••••••••••

G3···..

.. ..

*.

PERIOD
.~

••

n'"

.....
ic

HI..

N~XT
•• YES
R'E' nRD
••••••••••
III EIIOV ••
•• IN ••

•• •*

• NO

.•.

••

.,

••

JJ

••

1Ir.

IS"'.
IT lAST
••
•• RFCOII(l ••

• N,l ••

*. •• •*.*

....

• VFS

"'

·x)(•••• "" •••••••

.

H3 .*" ••

• ••• tIoHZ ••••••••••

•
X.
•
•

II(lTJUST
FM:T
IN CORE

*••'

•

•••• "'."•••••••••••

It "

K

·CI •
• AI·

•••

....

••

CO".""

••

.. ..

••

.,

··
..
·.. ..............
·•.....x....•
··
·
"'

A;> •

••••• •

••

• •• ·.HII.· •••• • •••

~V A
p~'nr)l)

." ."

."

*

J4

.,

•

," *

'"

•

•

.........
•• )(. A2 "

C *0

AAzr••••• J~ ••••••••••

.,

*. .:.~~ •••••• )(:•

IlIGIT
r

••

**

•

RF~~A('F
SFMT-COlNI

•

:
•

•••••••••••••••••••

C

'" VFS

......
.
.......... ....
..
. ....
x

~

'"

• 117. '"

•11 •••1(4"'··""'··•• '"
•

IG"IORE

•

0:-

.. VF ~

*C' *0

...•
•

................
.
••••

••• , •••••• K.

~
n

:

•

•

•• X. all •

. ; . FOk~~FO

'"

•

lI·a

•
, . co'"
f'nt.l.'lWE:l *!' ... N l .

YES

. . . . . . . . . ,X..

•

ClllON

It • 0 • Il 0 • • " " . . .

X
•••••J, ••••••••••
IGNORF

•

..

• Nl1

• "In

•

RE~bACF.

................
..••••..

••

.

!lilt

K
....••••
.. AZ •

*1"

*e."

114

*. ••

.. .. ..(I.
••

•

••••

it

••• •••

.

811A"

AA"~ •••• G5 ••••••••••
•
•

G4····.,

·:.:~~ ••••• X.:· ~SL~~~f~1) .:.~~~ ••••• )(:

• NO

•••

•

: ••••

~

:IIA'ltI
ic
••• ~I.GI.· •• ••••••
:
WR~TF
:
9
•
u K ING
•
S~URE
•
•

•

.

....
•• ••

....

• 111

81111"'••*F" ••••••••••
•
REP~ACF.
•
OPE RATIlR
•

.: *.~ O=~~:t~~ ••.: .:;.~ .. ." K:. .

•• NO
•
•
•••••• K. 112 •
••
••

• YES

*.••••

•
•
: ••
•
~

IG"fORE

" •• ". •••• It.liC.

.~

....

,,*

•• " , S .

ST I~..

K

Fl

. oe

•·••••E4·· ••••••••

IN

~OMMINT

[r,'lnRF.

••• "

l(.

A2 •

"'.0 • • "' • • • • • • • • • • • •

Section 3: Ch3rts and Routine Iirectories

99

cr.

chart

Phase CI Overall Lcgic Diagram

"'''''''''''''
"'CI '"
• AI'"
'"'" '"

'IOTEs

RSTART
X
f~~~~2~AnE~A~HOoRI~S~~\;:E~~V~EP~~~hHoJF
"'''' ••• A1 "'''''''.'''''''''''''''''' IS NOT SPEC I FI EO
'"
'4AI'I SCAN
'"
'"
OF TEXT
'"

•
•
'"
'
•••••••••••••••••"

.·"'..... .
• B1 •• K.

• •••••

~x

••••••••••••••••••••••

0 . , , , , , 0 • • tllJ 0 0 • • • • • • •

n" • • • • • • • • • • • • • • • • • 0 . . . . . . . 0 • • ~ • • •

o. en ••

0

0 ........ :

•••
POPLS T
• ",BleST·'.
:·~~~~~~·t:~~·;·:
• FOR LAB EL OR.. YC S
• AND/OR PREF
••
PREFIK
•••••••••• X. OPTIONS IN
•
•• OPT! ONS ••
• 01CT I ONA RV
•

h •

...

.................

·X

.

* . . '*
"

*

•

• NO

Xe ••••••••••••••••••••••••

PROC, ENTRY , •• OO,BEGI 'I
C1
"'.
... ;O~E~TO:· •• YES
••
HEAD
•• STATEMENT..

....
"'. ..
\'1&

• ••• "'«:2 ••••••• "'.'"

................... ."'..

••• "''''.
•••••••••• K.•:BLA~R~A8jOR:
LEV~L ~OIJNT ••••• J(. E2 •
81' 1
•
'"
•

• NO

K

ST!O

.•

•••
•••
END
••••
•• 01
••••
..02
••••
: . . . .~l:·:·····"':
I)~ T··..
:
.'"
TEST
"'. YES
••
TEST
•• YES
•
~~~OR
•
•• IF t~V"L
••
FOR
•••••••••• X..
FOR
••••••••• ,11. ~ ~f~ COUNT
is ••"'. 'In •
•• KEVWORD ••
••
'ENO' ••
•
!itER'EN'.
b ••••••••• X., •• col.Jtf
ZERO

Bt8CK

•. "'. • .•.•
NO

'"

•

ASS IGN

1'1

.......

•.•. • ."NO '"

:l.. ¥.:~!.u:!"':

E2 •• X.

x·
•••• • :X
STATZ

•••

••

.... ....

K
,.,

• ••••E2 ••••••••••

.................. ....

••

• •F;R T~~rL b~ YES
:
"'. ASSIGNMENT •••••••••• X.
•• STATEMENT..
•
• NO

TRAN FER

STATEM~NT
TO
OUTPU¥ TEXT

:
••••••
••••• X. 81 •
•
)(.
•

..

TO NEXT
SE'MI-COlON

• 81 •

100

.0 *,

••
*. •• VI'S
END
INPUT
• *•.•••

•.

.•
"~O

X

X

..
••••
X···"'
·
···········
·•••••.•
,...
•

1'4

.*
••
*. OF

.*

....."4··········

••·"'.·.FISKI"' •••••••••
•
P
•

BADST!

0·....

•.•. • ....
VES

•: fnp~E~~t :•
••
•
••••••••••••••••••

•
•

:

••••••••••••••••••••••••••• 0 ••••••••••••

'!' • •

lC

• ••••
:C\2:

••
•

:::::hart CL.

Phase CL Overall Lcgic Diagram

Xx••••••
SCHA

•••

0 • • • • • 0 • • • • • • • • • • • • • • • • • It • • • •

~

6

• ••••,\3 ••••••••••

.* . .
B2

•

••

•

.••••••••••••••••.
..••••.
x ·•••• •
..... .
.:
.. •• ••..

• :;OR UiEIFIC·:.!;~ ••••• X:
•• KEYWOROS ••
•

PR~~~SS

:
•

STATEMENT

•

• NO

•• X. F2 •

C2

8

*. *.

._ ••• Cl ••••••••••

•• TESi FOR •• YES
•
·'1~0 S ATEHE~t··········x:

•. •• •• o·
·NO

:~~~0~1~lL DECLARE.

I~EVERTf F.ASllGHr
I.OOB.
IIROC.

•• ' . TEST •••• YfS
:
••
FOR OTHER •••••••••• X.
.St~TEMEN!i··
:

.•.x

••

~l ~~

*. ••

YES

&gEl

:

.......

lern~l~EAs~~~~A~ijf

.

:Cil:

•• ••• HO

,

F2 •• X,

.

BAOll ••• F2.~........

:KU::JR5 ~~S~~ :.
• SKI P T~T TO

T8 PHA$~ ~s IF PROGRAM

CArl. /IIo~

4I·.1t ,:&,; ~A" •••• (~ •••••• ic:

•

:
:
•••••

OUTIt¥' TIXT

HOTEl

....
....
··. .......:
F~R

•

•••• ¥.i¥~' ••••••

•• ·NO
.•

ft· E2
•• TEST

TH~

••
••••STn~!U~~RTO
*o1.~........ :

x
oz···..

TEST FORI

MARK

uo,:~~f~~.

•••••••••••••••••••

•• • • • • • • • • • • • • • • • ••

...D
F3'··..

•

eo •••••

.1~

••••

II.... *. . . *.•.•... ,.., .X::¥b
1.
••

TEp

Er~~.

••

••

•• YES

I~

.

F4 ••••••••••

TRANiFER

Shu~~uP:~~~~

•

:
.

I~ • • • • • • • • • • • • • • • •

• /110

x

•••••
•
BZ •
•• ••••
•

·••••.
••••••
K

• F2 •

Section 3: Charts and Routine Directories

101

Chart CO.

Phase

Co Overall Lcgic Diagram

••••••
·co
• 81·
••
•
x

SCAN2

.*

BI

•••

••

.. ..

OECl.·.
82
••

.*

*.

• •••• B1.·· •• •••••

*.

.. ..II·

•• X.:·
T~5~
.:.~~~ ••••• )(.:. (ilh~~~ ·:.~~~
•• Of CLARE ••
••
••

*..*

•• ••••
•
81 •
••••

·.

*.

• NO

•

..... X:

.

.• x•••••••••••••••••••••••••.

Ie

IICOl
X
Cl
••
• •••• C2 ••••• • ••••
•••• TEST •••• VI'S
: CHECKO~VNTAX:
••••••
••
FOR
•••••••••• )(. DEClARAT ION ••••• X. III •
•• AllOCATE ••
•
OR
.)( •
•

•••• ••••

: ..~~~~~ll~ ••• :

......

• NO

X
••

01···..
TEST

*.

c~r~

••••

CAl~~: •• 02 ••••••••• *

•

•• YES

••••••••••••

**.
••.**

X:••

PROCESS

sTln~ENT

•

'"

: •••

••••••••••••••••••

•

~

• NO

x

EI

••

••

•••

SCANT

••

• •••• F.2 ..... • •••••

"'.

TEST

..

•• NO

••• ~0~R8~~A~F ••••••••••••

"'.

"'...
•

VFS

K

•••••
·CS •

• B2·

·

••

102

•
•

I(:..

TRANSFER

STI\TEME~T

•
•

.................
TE~ ~Vf~~~T
PROCFSSING

•

: ••••
•

•

.................

• NO

•••

••

THEO(~U(ISI

•

:
•

chart

cs.

Phase CS Overall Lcgic Diagram

NOTEI
lNPlIT FROM PHAS E C lF PROGRA"l
DOES NOT CONTA1N 0 CLARE, CALL
OR ALLOCATE STATEM lilTS

1

..

•••••
:C~:
•

;x •••••••••.•••..••••••••••••.••....

SCNA

•*

.:**.

92

•••

••

*.

TEST

•
.:.:~~ ••••• )(:

...*••
•• • ••NO
x

C2

•••

eflC'

• •••• B~ ••••••••••

P~91f~~E~~E

••

•

('I

: ••• :

•

•••••••••••••••••
III

)(

FORMAT

• ••••c ~ ••••••••••

••

••
*.
•
• •
.:. ~~5IM~~~ .:.:~~ ••••. ~~~~~~\I~~ :... :

••

·0

.. ...•
•

••

NO

X

•*

02' ••••

*.

. : . T~M ~R *:.~?
•• PR OGRAM ••

*..*

•• • ••YES

x:•

.•................•
•

TRT~~ •••D3 ••••••••••

•

••••. x:•
III

sTI~~~~~~RTn
OUTPUT TF.XT

•

x

•

t• .. :
•

•••••••••••••••••

K

•••••
·CV •
• 112·
••
•

Section 3: Charts and Routine [irectories

103

Chart

ev.

Phase

ev

Overall Logic

Diagr~m

..•

•·cv
•••••
• 82·

.x ••

0 • • • f!" • • • • • • •

X

SC'!A

82

••

•••

••

.. ..

e • • • • • elf • • • • • • • • e., • • • c.

SCNZ
• •••• 83 ••••••••••

*.

*

••
TEST
•• YES
•
••
FOR
••••••••• '" X.
•• LA8ELlS I ••
•

*.

*

•
•
•

.................

*

CI

PROCESS
LABEL'S I

•

• NO

•

.

·

• X."" ••• " •••• " •••••••••••••
X

C2

NO ••

•*

•••

POAI

••

• ••• *C3 ••••••••••

*. ••

..•..
TE ST

: •••••• ~O~pf~~P ••
*..*

••

•

·········n X:•................
OP~I~NS
.•
YFS

~~O~E~S

•
:

x· ••..••••••••••..•.•••••••
02

•••

POCI
• •••• 03 ••••••••••

••

••• =O~EnEC:· •• YES
:
••• ~NOL~~~EC~ •••••••••••

.. ..

X:

~F~rs!~~Y

:
•
: ••••

.................

*..*

•

• NO

S~n~~FNT

•

x

E2
TEST FOR I

ENTRY, PROC.
S~~l~kECALL •

•

•••

••• X••••

CHAIN

••

....

• •••• E4 ••••••••••

• ••• YES

TEST

•••. ••••

······OI················ X : ••••l~lFYI~t•••••:::
:

•• •••·•••••• ..

'·X:

~U~~~~~~
~~U~~

• NO

x

•••
F2
••
• ••• F~~SIN •••• YES

.. ..

CHE KON
• •••• F3 ••••••••••
:
T~R~2~~~1T :

.................

•• ON-STATEMENT ••••••••• .., K*

••

*..*

••

•

•

• NO

x

••
*.••••

G2

•••

••

••

•

•

• •••• G3 ••••••••••

•

YES
•
••••••••• oX.
••
•

PROCESS
END

••

..................•

• NO

H2

•••••••

ENOl

*. ••

.. ..ft·
.x..
e·
..

TEST
FOR
• END'

8Y A

PROC-ENO

•
•

x

*.

TEST
•• YES
*.••••FORPROGRAH
END OF
••••••••••
••
)(

*••. .••*

•• ••••
•
82 •
•••••
•

•••••

·EG •
• AI •

• NO

•••

·

• X••••••••••••••••••••• !) • • • • • • • • • • • • • "

·····J2··········•
.................

TRTSC

•
:
•

•

104

X

~~~~~~~~T

WlTtt:lUT
CHFCKING

••••

: •••• )(: 82 :
•
•
•

•

• •••

.

•••••••••••••••

Table BX.
Phase BX 48-character Set Preprocessor
r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~

ITranslates keyword table to inter- IBAOO
Inal code and initializes
I

INon~

I

I
I

r-----------------------------------+---------------+- ----------------------------------~

I BA1

I Reads a record

I ZURD (AA)

I

r-----------------------------------+---------------+- ----------------------------------~

IScans text

IBA1A

INone

I

r-----------------------------------+--------·-------+ -----------------------------------~

IHandles operators and keywords

IBA5

INone

I

r-----------------------------------+--------·-------+ -----------------------------------~

IReplaces operator keywords

IBA11

INon~

I

r-----------------------------------+--------·-------+ ------------~----------------------~

I Replaces comma-dot by
Iwhere applicable

sE~mi-co.hon

I BA20
I

I None
I

I
I

r-----------------------------------+---------------+- ----------------------------------~

I Deals with quote marks

I BA25

I None

I

~------------------------------------+---------------+-----------------------------------~

IMaintains parenthesis level count

IBA30

INone

I

r-----------------------------------+---------------+- ----------------------------------~

IReplaces period-period by colon

IBA40

INone

I

r-----------------------------------+---------------+- ----------------------------------~

IProcesses a slash

IBA50

INone

I

~-----------------------------------+---------------+-----------------------------------~

IReads one record ahead in case of
Ineed

IBA70
I

INone
I

I
I

r------------------------·-----------+---------------+ -----------------------------------~

IRestores the situation when a read IBABO
lahead has taken place
I

INone
I

I
I

~-----------------------------------+---------------+-----------------------------------~

IPuts out converted text and origi- IBA90
IZUBW
I
Inal
text onto backing store
I _______________ I _ __________________________________ JI
L
___________________________________
~

~

Section 3: Charts and Routine Directories

105

Table CA.

Module CA Read-In Common Block 1

r----------------~--------------------------T--------- -----------------------------------,

Function

1

Subroutines

1

I

~-------------------------------------------+--------- -----------------------------------1

IProvides subroutines common to all five
1ACONST, DECINT, EXP, EXPAND, EXPLST, IDENT,I
Ipasses
of the read-in phase
1MVCHAR,
OPTOR,
SCONST, SINGLE, SQUID
L___________________________________________
_________
__________________________________
.1I
~

Table CAl.

Module CA Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------,
I Routine/Subroutine 1

Function

I

~------------------+---------------------------------- -----------------------------------

ACONST

Checks for a valid arithmetic constant.

DECINT

Checks decimal integer.

EXP

Diagnoses expressions.

EXPAND

Expands iterations of string constants and picture characters.

EXPLST

Checks for a list of expressions separated by corr.mas but enclosed in
parentheses.

IDENT

Checks for a valid identifier.

I
I MVCHAR
I

Moves text from one address to another.

IOPTOR

IChecks for an operator and replaces the two-byte operators by oneIbyte codes.

I
I

I

ISCONST

IChecks for a valid string constant.

I
I SINGLE
I

I

IDiagnoses a single expression in parentheses.

1

~

ISQUID
for a valid subscripted and ___________________________________
qualified identifier.
I1
L__________________ IChecks
__________________________________

106

Table CC.

Module CC Read-In Common Block 2

Ir-------------------------------------------T-------------------------------------------,

I

Function

I

subroutines

I

.-------------------------------------------+--------- ----------------------------------~

IProvides subroutines common to all five

Ipasses
of the read-in phase
L
___________________________________________

Table CC1.

I CHAR, CHECK, KEYWD, MESAGE, NONEX,
I
INULINS,
OPT£ST,
PleT, FREC, SCFLOW
_________
__________________________________
JI

~

Module CC Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
Routine/Subroutine I

Function

I

------------------f------------------------·---------- ----------------------------------~

CHAR

Diagnoses the CHARACTER and BIT data attributes.

CHECK

I

I

Tests the top entry in the stack.

I

I

KEYWD

Iden"tifies keywords and hands back the replacement character to the j
caller.

MESAGE

Provides a diagnostic message.

NONEX

Checks stack for non-executable statements.

NULINS

Inserts null statement in output text.

OPTEST

Tests the output string and moves text to the output.

PICT

Diagnoses a picture.

PREC

Diagnoses the precision, and the attributes and fornlat items which
use it.

ISOFLOW

L __________________

Table CEo

~

It uses a TRT table set up for the purpose.

Bumps
stack pointer and checks for _________________________________
stack overflow.
__________________________________
_

Modules CE, CI<, CN, and CR Read-In Keyword Block

r-------------------------------------------T-------------------------------------------,

I
Function
I
Subroutines
I
~-------------------------------------------+-------------------------------------------~
IProvides tables of keywords in internal
I None
I
Icode, together with replacement code.
I
I
INo functional code exists in these modules. I
I
IRefer to Appendix B for details of keyword I
I
Itables.
L
___________________________________________ I _________ __________________________________ JI
~

Section 3: Charts and Routine Directories

107

Table CI.

Phase CI Read-In First Pass

r-----------------------------------T---------------T-----------------------------------11
I
IMain Processing I
~

I

statement or Operation Type

I

Routine

I

Subroutines Used

~

~-----------------------------------+---------------+-----------------------------------,1

IControls main scan, identifies
I statements, and analyzes some in
Idetail
I
I
I ___________________________________
L

Table CI1.

I RSTART
IASSIGN, BADST1, BEGIN, DO,
~
I
IELSE, BUMP, END, EOP, ERROR, IF,
~
I
ION, POPLST, PROC, READ, SIGRVT,
I
I
ISTAT2, STRING, plus those
~
I
Isubroutines contained in modules CAl
I _______________ land
CC
___________________________________
Ji

~

~

Phase CI Routine/Subroutine Directory

r------------------T----------'----------------------------------------------------------,
I Routine/subroutine I
Function
I

~------------------+--------------------------------------------------------------------~

ASSIGN (CG)

Diagnoses an assignment statement.

BADSTl

Recovers from failure to recognize a statement type; skips to next
semi-colon.

BEGIN (CG)

Checks the BEGIN statement and makes an entry in the first pass
stack.

BUMP

Advances the input Data Pointer (DP), skips blanks, if any, forcing
source text to be read into storage as necessary.

DO (CG)

Checks the DO statements and makes an entry in the first pass stack.

ELSE (CG)

Unstacks an IF compound statement.

END (CG)

Processes three different types of END statements; PROCEDURE-BEGIN;
DO; iterative DO.

ENTRY

Processes ENTRY statement.

EOP

Processes end-of-program marker, and returns to compiler control in
order to load next pass.

ERROR (CG)

Handles false starts on possible statements.

IF (CG)

Scans the IF statement and makes entry in first pass stack.

ON (CG)

Diagnoses the ON statement and makes entry in first pass stack.

POPLST

Removes prefix options from the text and places them in the dictionary.

PROC

Scans the PROCEDURE and ENTRY statement and makes an entry in the
first pass stack.

READ

Reads source text into storage, translating it into internal code,
except for character strings; removes comments; prints source listing and prefix options.

RSTART

Controls the first pass scan.
dictionary.

ISIGRVT (CG)
I
ISTAT2 (CG)
I
ISTID
I
ISTRING
(CG)
L__________________

108

Enters statement labels into the

Scans SIGNAL and REVERT statements.
Handles all other statements.
Statement identifier routine.
~

Scans
character strings.
____________________________________________________________________
J

~

I

Table CL.

Phase CL Read-In Second Pass

r-----------------------------------T---------------T-----------------------------------,

I

I

statement or Operaticn Type

IMain Processingl
Routine
I

I

I
I

Subroutines Used

~-----------------------------------+---------------+-----------------------------------~

Iscans for statements handled in
ISCNA
IBUMP, DELAY, DSPLAY, DO, FREE,
I
Ithis pass, analyzing them in
I
IGOTO, ITDO, LABEL, PROC, RETURN,
I
Idetail. Skips over other statements I
ITRTSC, plus those subroutines con- I
IL___________________________________ I _______________ Itained
in modules CA and Cc
I
_ __________________________________
J
~

Table CL1.

~

Phase CL Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
BUMP
Increrrents the input Data Pointer (DP), skipping over clanks,
I
obtaining a new text block if necessary.
I
DELAY

I

Processes DELAY statements.

I

I
I

DSPLAY

Processes DISPLAY statements.

DO

Processes DO statements.

EOP

Processes end-of-program marker, and releases control to phase CO or
CS, or CV (CO and CS are optional phases).

FREE

Processes FREE statements.

GOTO

Processes GOTO statements.

ITDO

Processes iterative DO statements.

LABEL

Diagnoses LABEL attributes.

OPTION

Handles OPTIONS attribute on PROCEDURE or ENTRY statements.

PROC (CM)

Analyzes PROCEDURE attributes and options, and completes the diagnosis of PROCEDURE and ENTRY statements.

RETURN

Processes RETURN statements.

SCNA

Main controlling routine of this pass.

L.TRTSC
__________________

~

I
I
I
I
I
I
I
I
I
I

Skips
over all other statements.
__________________________________
__________________________________ JI

Section 3: Charts and Routine Directories

109

Table

co.

Phase CO Read-In Third Pass

r-----------------------------------T---------------T-----------------------------------,
I
I Main Processing I
I

I
statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
IScans for DECLARE, CALL, and
ISCAN2
IATTLST, BUMP, CALLOP, DECL, DEFIND,I
IALLOCATE statements. Analyzes
I
IDIMS, ENTRY, ENVMNT, EOP,
I
I syntax of attributes by calling
I
IGENRIC, LABEL, LIKE, USES, IVLIST, I
lappropriate subroutines
I
land those subroutines ccntained in I
I ___________________________________ I _______________ LImodules
CA and CC
L
___________________________________
JI
~

Table COl.

Phase CO Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

~------------------+--------------------------------------------------------------------~
ATTLST
Processes an attribute list.
(Recursive)

BDCL

Processes DECLARE or ALLOCATE statement.

BUMP

Advances Data Pointer (DP), obtaining new input block if necessary.

CALLOP (CP)

Checks CALL statements and options.

DECL

Processes the DECLARE and ALLOCATE statements.

DEFIND

Checks the DEFINED attribute.

DIMS

Examines the dimension specifications.

ENTRY

Checks the ENTRY attribute.

ENVMNT "

*"' •••

'"
•
•
•
•

X ......
1;".....

R~PLf.CF.

0*

k

• •••• "" ••••••••••
:
GE~~~A~F.
:
X.
'4ElSAGE
•
: I Ni~~FR~UI1~Y :

•••••• "''''*.~ •••••

.....

r: PL 7. 0 '

•
•
0 0 !lY.
nrc' lnNARV
••• l'.:Ht~C'(.
RfFFRfNCr:.
•
• •

.................'"

,.

• YB

•• • • • • • "' • • • • • • • • •••

·····F"··········:
:

EPL 3~"
•

•

ic

II1'PLACl'
BY

er.n

•
•

..*"'O~~H~~~H
.•.••••••••••

~

r.4"' •••••••••
r.FT TFlIT
•
RF.HRfI'ICF
•
•
(')F ".r'Cr
.X:).o.o •••••••• fJ • • •
ITE'" IN
•
CALL CHAIN
•

........."'.......
x

••• *

·.
•• 1'1 ••
• ***

Section 3: Charts and Routine Virectories

117

Chart EW.

Phase EW Gverall Logic Diagr3m

CEsl~ •••, 1.!••••••••
•:s~a~ ~fil.l9NARY:•
• WI TH SAME Vc8 •
••••••••••••••••••
•
01

~
•••

••

• ••••02..........

. . . . THli A •••• NO
: SET
••
VALfD
••••••••• oIC.
.'l!RUC u~~..
:
••• "

P ERROR

~OOE

• •••• ~l..........

EWERNe

04

0.. .0

EWElD",

i •••• 05 ••••••• • ••

P
:
:
d C~TH::
•••• THM A . ' . . NO
:
lH!NT=6 ~~ :
••••••••• 11. WliH ~HE ~~Ke ••••••••• '(..
"DR
•••••••••• 11. INTO ~RATlH. •
: :
ATTRI au ~
:
••
II
:
AOSA ~Hut. T :

l8

!!R TURi'

•••••••••••••••••

.................

• • • ill'

• YI'S

•

"' •••

YES

:•••••••••• xi
EWC~PY

• EWNOLK
•••
:
•• E1
•
•• OR G NA
•
•• STI TV~f

EWOROM...
•.•.
TH·~..
• •••• Fl ••••••••• :
.0•••NO, •••••• 11••••..~i
E E ~t •• YES
.C PY Til. T E '"
OIM~NriONeo
••••••••••
~LEM~NTJNro •
M
••• ~laN~6;...
•••.
.•••
: S RAT H :

.. ..

:

.................

.. ,.

• YES

1(.

• NO

....
·.
x
•• J2 ••
••••

···.··G1··········
. .
~

:ewcopy

.COPY §TIIUCTVRE •
: ELE~~~lr~~ 0 :

.................•

•

·
.
.............
·
.••..Hl..........
.•.••H?••.••..•..
• x........... .

:eWINCH

·........
··.........
.•.
•

FORW1RO ANO
HASH CHAINS

...

•

l!

...n

• 1'1)..

••••••

THi!..
THE ENO •• YFS

fJF A .. ew
••••••••••
•• STPUCTUR£.'"

*. *. •• ••
•

r O~~cE~J~y,

nl"ENs~nNS
PR~~F'IT

...
..H

IF •

...

• J2

.....

THis ••
••
THE f'l(I ., VF~
x.o f1f' THr LIKE .* •• "~.e.
.,
CHAI'I ••

*...
*. ,..

...........
•

'10

'"

'"

• A1 •

.·0
~

)(

x

118

:

................
.
....
... ....0 ..
•

"'.

• J1 •• ".
••••

:

.lI . . . . . . . . .

:.~......

·

K

EWElO"

: rN~W; 8~~ITE :

, NO

o.

,..*

J4

••

F.NO OF

*. ••

VE C ; .

. .•.• ?' .. t~U~NF.~ ••••••• '(:

.

**.
••.**

.. ••• •

.*.*

Jl :

"''''.k~''' ••••• '''.

NOTE

•

...••.....•

•,

•

IEMf'f
X
·'~···AI
•
RfVfRSF
:
s5~r~~E:~LE

Diag~3m

Phase EY Cverall Logic

Chart EY'.

I

~~:~~

FROM PHASE E P OR
EW (OPTIONAL!

•
:

.. ...............
it

EY16

··'···111··········

•
•
•
•
•

SCAN PROC
AND O~CL ARE
CHAIN F~R
AllO AT
STATEMEN S

•
•
•
•

..,...............

•

" • • • tI • • • • •

..

•

XJc

leM~~ •••C2 ••••••••• 0

CI···..

".

.,.

••••

•

0

eND OF
•• y e s .
CHA INS
•••••••••• X.
••
••
X.
••••
•

•. ..

02

•
•
: Ht=' ~~O E~fH :
• UP ATTR Illurrs •
•,
•

Il.

••

O~

.. ..

*..*

••

•

:.~~.:..

.*

III.

E2

.•.x

*. •

••

.. ..

EYl4
• •••• 0 . . . . . . . . . . . .

.................

NO
:
OPY
:
~~R VAil. W,VH •••••••••• ){.VARIAiLE·S O.E ••
•• THIS PTII. ••
•
•
• YES

.

•

·.···.E3·••••••••R...• •.....•
·••••••••••••••••. ....

•

.

• X•••••••••• It • • • • • • • • e •••••

••

OFE~fxT

*.

•••

r;eX&~·MA·e..

-...

• NO

it

• IF TEM IS
•
• STRUC URIJ.C~CI(.
ON I t~
•
O~~LAR T ~M

•••

..··PO'NT 11. •••• YES
•
•• QuaLIFiER ••,........ X••

.. ...............

:r.'~CR

•

it

•.·•.•01·.··it ••••••

: EY17

..,... E1··········
n :•
.......•....
,.....

••••

(lX ••••• C2 •
(l.
•
(l
••••

..0..............

• NO

:EV21

o.

SCAN TEXT

o·

~

*•

.*

YES

.:.,
••

•
•
• REPLAC! PTR.
• AND VAil. AeLF . . . . . )!. C2 •
• 'N TE XT Y D.

'

•

NOTE I

B:K: :

MOV~U

g'HI8~t:~ K~J~~ENCE

Gl·i••••••••

:
••
•
.COpy NV ~E~ONO.
•
.F I LE STAT M NTS.
••••• ASSOCI A E
•
WITH
•
•

:)lI.~~~~~~~U~~ •• :

Section 3: Charts and Routine Iirectories

119

Chart FA.

Phase FA Overall Logic

•·FA
•••••
• A2·
••
•

·•....••••..• .
•

Al ••••

Diagr~m

NOTEI

•
INPUT FROM PHASE EP OR
IEMFAX
PHASE EW OR PHASE EY
.INITIAL IlE. GET.
• SCRATCH fORE. •
~ l~~¥T ,og ~UT :
.SET UP ~o¥NhRS.

••.•·AZ········••

CE32
X
••••• AI·····.·· ••
:
F~8~EI~~~i :
•
TO
•
• OUT PUT Nt EAS •

··..............

•••••••••••••••••••

•••••••••••••••••

• BI •• x.

CE31
X
·····BI··········
: T'~~P p8Y~~'
•
AND CALL
•
•
CENOTS
•

:

•
•
•••••••••••••••••

CE300
X
••••• B2·····.····

:B~l~~ ~:v~E~tST:

• •• X.TRANSlATE BYTE.
•
AND EXECUTE •
•
TRANSFER
•

· .....
..
......

•••••••••••••••••
x
•••• B2 •

X
••••• c I ••••••••••

CE30

• •
•• BUMP INPUT.
•• TEXT POINTER ••••••••

·•••••••••••••••••
.
••••

..• .•
x

•••• CI •

••••

CEINT
••••• F I ••••••••••

•

•
•
•

CALL CECON
CONSTANTS
ROUTINF

·

••

.
•
•

•••••••••••••• *••

CEI SUfi
·····GI··········
•
MOVE SUB
•
•
AND BINARY
•
•
CONSTANT
•
•
TO OUTPUT
•

•••••••••••••••••••

.••••FZ···•••· •••

CEKFY

• PICK UP KEYWORD.

:•

IMN~~~~5h

:•

.................
RELEVANT
TRANSFER

•

•

CE2~ •••• F3 ••••••••••

:~~~~ ~~EL~~H

:
•
FOLLOWS.
•
• SET 2ND LEVFL •
•
SWITCH
•

•••••••••••••••••

.·.··F4··········
:

CEBNK

CFL:,~~:~5

..........

.FOR ( INCREASE •
• BRACKE T COUNT.
• FOR I REDUCE •
• BRACKET fnUNT •

• IF VALID DICT •
.REF "lOVE TO 01 P.
~H~ ~a~K THR :
• NOH lfRJ !lYTE •

·..................

•••••••••••••••••

·····Gz··········
•.................•

CEOIIA)(

.MOVt' TEXT FROM.
.1 NPUT TO OUTPUT.
•
TEXT UNT I L
•
. . SIGN I S FOUND.

..•.....•
•• x.

···.·*Hl··········. ·•···*Hz·.·····....
.................
·
. ·................. .................
•
•
•

x
••••• H3..........

CEKPFR

CESMCL

CLEAR FLAGS •
AND
•
COUNT •

fI~ACKET

• GO TO PIC TURF •
•
ROUTINE
•
•
IN IEMFB
•

•
:
•

•

MOVF

S~~~~P~~

•
•
: ••••••••
•
• •

QUALJ FIFO.

HAME

x:

MOVF

81 •

••••

it
• •••• HIt ••••••••••
•

CEKSN
• •••• HS •••• • ••• ••
.STORE RELEVANT.
•
STATEMENT
•
.NUMBER MOVE SN •
• FTC TO OUTPUT •
TEXT
•
•

..................·..... .................
•....•
··
.
.. .................
1~5Nbb~~~~
BLOC K

:• •.••
•

~

• Al •

CEKPRC
*····Jl··········
• UPDATE BLOCK •
•
LEVEL AND
•
:COg~hA~~A~~~P :

·

.

••••••••••••• *•••

.

··.···J7.·········.
·..................

CFKDC L

.R E'10VE SN. F rr. •
'"
FROM
•
•
nUTPUT Tfl(T •

.
X
·•• ··K2.····**·
•.

•••••••••••••••••••• 0 •

·
•
•
•

~

0.1(0

SKIP I"4PUT
POINTER TO
SE"'ICOLO'4

.
•
•
•

.................•
·.....

•

it

·.....
• Bl •

120

CEKCEH
····.J3···· ••••••
..
BUMP
..
• I HPIIT POI HTER ..
•
OVER CHAIN
•

•

•

·..................

CEK I no

CI'~ON

• ••• ·JIt.· ••• •••••

• UPDAT E BLJCK
•
A'In COIJ'4T

•
•

• ••••• ** •••••••••

·.·.·JS····.·····
.MOVE ALOCK LEVL.
• CJU'4T ANI' ON- •
*CO,., TI') DIP SFT.

:g~N~H~o~I~bNg~:

·
. •.•··K4·····. •••· ··*··1<5··········
·.................. ·................... .................

:tKF.118
·····K3··········
•
•
•

GET NFl(f
flLOCK
IN CHAIN

•
•
•

CEKEOP

CF.'IOTS

• UPI1A TF END OF
• TEXT RFHRE'ICE
• RF.LEAS~ I~PUT
'" AND SCR"TCH

~

..

**** ••
.FE
•

.'11

'"

*

•
•
•
•

•
•
•
•
•

GFT NFW
TF.~T ALnrKn
:HFCK T~XT
'lOT LnNGER
THAN BLOC K

•
•
•
•
•

Chart

Phase FE Jverall Logic

FE •

•••••

••••
·•.....•

• FE •
• A1·

·

••

·

•

.

it

••• · · A l · · · · · · · · · .

•
•
•

GET START
OF
TEXT

·

•• x••••••
x

:
•

.. ..

*..*

x

.....
•
• •.................
•
.................

-.

.. ..
END

••••

:MO¥g

12~1

.................

•...•02..........

.

.. ..

ING BLOCK

:MO¥~ 6MIG~;NT

..."'.............

NO

•••

••

.. ..

•

•

••

••

*. ••

OICT
REF

.. ..

*..*

••

•••

••

.. ..

ENTRY
FOUNO

•

.i:NU··.,oO •••

to...
BH~hT ·:.:~~

.. ..

••

••

..

G2

•••••

••

*e

.. ..

ARRAY,.
••••

NO

•

III '"

.................

AOO • • • •

X.:~lt~F~~~I~8~·:.:~~c
••

fl,

n

*.

<) \:

co ...

*

(I':

•
•

MOVE I)ICT RFF.
•
OUTPUT fFXT . . . . .
•
I(

.................

n'"~.TO
~.

..

(;"1..........• •.....

i

G4 ••••••••••

*

... .............

sb~~t~jpT:

:•

.................
••••
•

0

o•• ee ••••• "el'll'l&.It,.r.•• ft~;~; o••••

• ••••

.. "'X:•

III"

•

• •••• F4 ••••••••••

• UPOATF.• ••
INPUT POnlTER ••••••
•
• OVER IICO •
•

•

CELP

DICTIONARV
I'IIITRV

•

YE S

11 til O.

•

•
•
•

.................

*..*

•
•
•

.................

••

. '"lAKE

NO
•
•••••••• 0oX.
••
•

X

•

•

CEPFOR
• •••• F4 ••••••••••

*. ••

• •••• " 3 . . . . . . . . . .

YES
•
UPDATE
•
•••••••••• X. INPUT POINTFR •
•
OV ER KEF
•

.!.

•

••

E3

•

CEnDRF
• ••••1'2 ••••••••••

NP

GI

••

•

o.
1(..
••

: x.

•••

•

.:.
••

SCAN.
OICTIONA~Y
•••••••••
•

•

K

••
••
• '.

:

.................

••

• NO

1'1

:

L ANO •••••••••••••••••••

CEIO
• •••• E2..........

*.

•"
•• YES
•
•• IDENTIFIER . . . . . . . . . . 1(.
• '.
••
•

*.

•

• C AFTER fOENT •
•
flYTI'
•

K

EI

:

CEKON
YES

R£e~lT •••••••••• X.INSERTING
•

•
:

•

NO

"'. STATE~NT..
••
••

e.

~MI5~~NT

A.... O••••••••••••••••• X.
•• •••••••••• X.INSF.:RTINGL
• C OF CONTAIN•

01*s x .. ••••

OR

B3 ••••••••••
VUMP
•
INPVO ~~~~TER :
STATEMENT
•

CEK~=~ ....C2..........
• ••• YES

•••

.4'·

•

00)(:•

X

K

•

:

BY 1

\1. . . . . . . . . . . . . . . . . 0 • • • • • • • • • 01• • • • • • • • • • It • • • • • • •

C1···..

4_.

.

••••••••••••••••••••

• NO

••

INPU'u~gINTER

CEKPRC
• •••• !I~..........
."OVE
TATEMFNT.
·:.:~~ ••••• X: TgMln~~'
: .......
••
•
L ANO C .

P~~812R

.~...

X

• •••• A2.···.·····

•••
Bl
••
••••

,~.

,1\2 •

• x••••••••••••••••••••••••••••••••••••••••••••••••••• oOOO.,ftC00,.,,,eo

cn,'

•
•
•

•••••••••••••••••••

• :'~

Diagr~~

MARKfR I N .
OUTPUT.

..•.....•

•

F,~~H~~ OR
PSFIJfln-VAR
"II\RKF R

"'

: ••• :
•
•

•• X. A2 •

it

•••

..

••
••
••

HI..

CEKEOP

-. ••

...EOP

III.

••

•

K

1110

•• ••••
•
A2 •
••••

·.

lit-

H2

•••

••

• •••• H' ••••••••••

*0 ••

•

••

....•••.•.•.•••..•
.
....
..•.....•
••••.JZ..........
••.••J3 ...........·
·
..
. .......
•

YFS
••
•••••••••• X..
••
••

-...
o.
FIRST

YES
• UPDATE START
••••••••• ,X.
OF 2ND FILF
••
•
POI NTFR

•
•

_.

• NO

•• X. 1\2 •

K

: MAKE IN LUO:
:
.CARD OIC~ ENlRY .......... )(.
•
• •

•••••••••••••••••

G;!R~Q?KlR

:
IF ARC LIST
••••• ,.".
IN PROGRAM.
)(

•••••••••••••••••

·"1 •

• 1\ 1 •

section 3: Charts and Routine Cirectories

121

....
• •
•....•

Phase FI Jverall Logic

Chart Flo

.·.

*••••
• FI •

• AI.

CESI~! . . A2.:........

:••••••••• X.:

!~Vl~HitH

...................

STORAGF.GET
FIRST I'IPUT •
•
TElIT 8 U I C K . .

•
•

•• A3 ••

• A2 •

...... AI.a..........

:•

....
·.....

Diagca~

lO~OAlA~VTE

CE02~l .. A3.: ••••••••

...................

:

:
8 P
APPROPRliTE
.x ••••••••• TEXT rolNTfR
BRANCH..
• •

....................

.

.. ••••
85 •
•••••
•

•

ox •••••••••••

~

BZ

:
•
•
•

•••

CfI)REF....

••

1'3

CECMflK...
84

oil.

CEJU"IP

.. ,

...... 85 ..............

NO ••••
. ' •• YES
•••• ,l;l~T . ' •• NO
•••• SE~~NO ..... VF~
:
BUMP
: ••••••••••••••••••••• IS IT 00 •••••••••••• X•• ~MWRR~oi~I~ ••••••••••• X••• ~EV~~R5TOII~ . . . . . . . . . . . X: S:ANA~O\NTFR

o·

**.. . *
•

**.. .
••*
.. YES

*.:).
*• • .-:.'1O

:
:

•••••••••••••••••••

x

oil . . . .

K

CEKEYW
Cl
••
• •••• C2 ••••••••••
. . . . 'S IT •••• YES
:
TR:~l~ATE
:
••
KEYWORD
•••••••••• X.
EXFCUTf
•

•. ••

.. ..

:

• NO

:

...

• 111

•

••

KN8:,.a~lO ~S

:

•

03J. •.

K

01
••
•• RIGHT ••
• •••
••
OR
•• NO
•
•
••
lEFT
•••••• x. A3 •
• ".RENTHES IS.
x.
•

*. ••

.....
··....
.

..................

:

~~k~~t~~

CERFMT...
nit
••

t:ue .'.,

...*
.. ..

••••

it

FOR I 8UMP

•

COUNT.

•

•
:
•

·..................
:8M~KPR~gP2l·

CFKON

Cf SMCl
••••• Hl········.·
•
SET OFF
•
•
ALL FLAGS,
•
• ClE AR 8RACKET •
•
cnUNT.
•

CFPR8G

•
:

•
•
.................

: ~~~¥E~F i~l~v

:

BUMP OVER

•
•

.................•

•

UPOATF.
AlnCK LEVfl
UIr) COUtiT

······JZ··········.
·..................
•
8UMP OVER
•
SUR
• ANIl rONSTA"IT

."

*.

••

.•.

••

•

...

HOCK lfVEL
.NI) cnUNT

~" • 0 0 .. III . . . . . . . . . . . . . . . .

IS
THI SA

1

:

•
..
•

••••

:

1)<;

••••

• A~

Cf F ~MK,
. CEPS,",K

;

"

.. X NJ

...

*. ••

•• ,

*x.

t'l

•

:~~:~i~·;~~~;r6~:

_.J4 I t.! . ' . ,
>lRntir,
., YES

... TJ PSF.UOg-VAP •
O~nP~Il~Tj"~~R :
•
•

:X x "·· H\~f~~NV~~~, ......... I(:
.,

... e.

•................

.....
··....
..

TEl) ••

V[

NO

••

••• f'I • • • •

S

•
• • • . . . III ro . . . . . . III (I . . . . II • • • • III ....

x••••
•

r.

..-....
....
....
.
·....
x

C "

" " ' " III ) . III

~

x... ,...
It

0 .00 • • • • •

fI

to " " ....

'I" f

III

I)

•

')

II 0 . . . 0 . . . . r'

.. 05 •

Y. C'

...

l(

...

•

R~ •

...

122

•
•
:
•

................
.
....
··.......

CEKFOP

*. *••• • *'" *
•

...

H~

X:

..."'..............

•
•

It It .......

CEDOND

• UPOATF IIlnCK •
• UPDATE 8lnr.K
•
LI'V~L M I n .
•
COU'lT AND
:lIMlI~HrA~V~~C. : . " . . . . .
l~~a¥~FOF
•
• •
S T "CK

..................
•

•..•. ..•••.••••

crKrtin

••

UPOAT~

• ,.3 .X ..

••

FilE f~TRV

III.

A5 •

..•.•"'4..............

CF.K 11'10
·····H3··········

•
•
•

:Cf ISUB

Kl

•

•
:

F2l~g~bWlk~

·•·•••HZ·········..
·.................

•

CEFIU

•

······Gz··········.
·.................

CEKSN
: •••• GU·; . . · · · · :
•
•

STAT~MENT

X
Oli..........
.

.................

.. ...
··..........

*..*

·

• YES
• VB
• ........... ~ ••••••••••••• XC'
Ie

YES

•

• ••••

05 •

• ,~..
• ••• NO
....
NJ
:
~~~~ A~~R~~O :
:
••••
EIIROR ••••• . , , , . . . X.' •• C~R~Uf~ •••••••••••• X:oua~~~~Hn~NCf:""

....·Fl·········.

CflRCT

•

A2 •
•••••
•

•

• TAKR

.................

....

oil

CFGOTO
K
••••• C3··········
A~TI~ETON ..
• OEPEN IN
•
• HER T AN F R IN.

•••

...

•

Ko;

, t.!O
••

, . .- IS IT *" ••
.,
lAST E(1P
••

-. ·If

. ",,-

*t! ...

....

• vrs

_x

.f'K •

·

• A7*

* •

Diagr~m

Phase FK overall Logic

Cbart FK.

••••

•••••
• A2·
••

·•.....•

.

• FK •

• A3 •

x

•••

... 0. A~~A
B3

E"lOFO

••

FNO

• •••• 1\4 ••••••••••

•••• YES

••••

.......
·· ..

s12r~xh

••••••• ,,'",K:

••••

•

•• ••

:

RHHl~

:

:·······lc

CONTROL

•

•••••••••••••••••

• NO

...

• ••••

·1'0 •

• AI.

• C3 •• K.

K

1'02 ••••

····.C3··.•••····

•
:
•

SC AN SF TS

o,HgNl~Y
F"fTRY

•
:
•

•••••••••••••••••••
• • • • • • • • • • • • • • • • • • • • • • CI • •

x.

03 x •.
•••

1'04

..•..0"..........

.....05..•.••....

..1 ••ii••••• ~....

•••••••••••••••••

•• ··END F·· •• YF.S
:
chtlafRTnF:
:cONsl~~~RTLlST:
••
LIS9
.......... 11. lOENTIJfFII.S ••••••••• 1(. 1''1011 stACK
•
••••
....
: A~O £9~SE~!fn :
:
fNFNTRY
:

•. .•

.......••••..

• NO

•• X. A3 •

~
•••

CESCN

••••
f3

••

..... ..
.....F2.'.........X.......... FIl •....

•••

Cl'IOLP

Q*..
Eit

•

••

•

• •••• E5 ••••••••••

.................

-.... ..

••
•• YES
••
IS ~T
•• YES
•
SCAN FOR
•
••• !OENTIFIER •••••••••••• x•••• QUALI IEO............ )(: :)J"L~~l~ATION ~
• NO

:
•
:

FLA~E~IT

:

III ,FTS

8U~~SR~TR:

•••••••••••••••••

• lItO

·

YF.S ••••
• •••
ASTERISK
••
••••
• •••

••
•
••

·

...•••Jl.a.........:
•

:•

:
.~J

~~X~K

x.
x

..

'3 ..........
..•••.:..........

.· :

~~ '.1:

.•.....:..••...,.

IY

•
:•
•

ic

••
••
••

••

....••
FOUND

•• •

.
.•••••••••••••••••
.
....
.. .
. . •••H5 . . . . . . . . . ...

•• NO
•
•••••••••• ".
••
•

ERR~R

WR T1

shc

OIA~

.. ..

• SAllE

FOERR2
rc
•• ..·*K2 •••• ••••• ..
••••••
:
l~R~f
~
• C3 .".....
WR9T~
..
.'
•
•
0lAGN6sTIC
>.

..........................

J4· •••

'.·:IK~8yN

• •
••••• •

NO

..~~ dU,8ic~;

••••

•

•

i ••••· · · · ··
ou=Mt.c :
.... .... .......... x::...............
:

CON~~•••

C ~[l~T I" :
sl8
!t IT CK •••••
cu'R" VW~:fRY: :x

~

•
•

:

YES

•• x.

LOW ... ' ~ N~~:Rf··.. HIGH
:
.)(.......... W
N~"T • >• • • • • • • • • " .
oO~~A9~E:
•••• h.~~
fNTRY

8tS"

Hit

.................•

•••••••••••••••••••••••• 0

*G4.~........

c~~t= 14U~

.................
...
.-..

H3.~. . . . . .. .
••
ER
CP"'.lk
T~~=YlllT! :

•
•

•••

HASH 8CD

••••

•
•

:•

•
:

••

.................

••••
·HO

•••••

.

• Je......................... .

"'i~~ ••1'".:••••••••

CE

C3 •

• •••• J5 ••••••••••
ERR9'
:

:

• YES

x

·

C3 •

••••• K4.i........
:

•

01.

~~U~IRY

RfFUE?JE

:
•

•••••
•
C3 •
•• ••••
•

:• •••••ittHfly
:
••••••••••

.....x

....

•• C3 ••
• •

Section 3: Charts and Routine DirEctories

123

Diag~~m

Phase FO overall Logic

.....
••
·

Chart FO .
• FO •
• AI·

• ~.

i:.••.•..•........... •.. ••:::...•..•.........•. •.•·.•:••••.••••.

NOHOY E

A2..........•

..
,A
.I.
.
•• ••••
. : . T~n08E ·:.~~ •••••• X:
SCAN
••

., . .
MOilED

.

••

x

: ••••••••
•

1(.:.••

....

••

A4' ' . .
a
*·,

..... JC.:.••

., ,.

•

....

·:.~?

.....

Nn

A5' '..

e , •••••••• • • • " ,

,..,
X.:· ~~gGa~ . : .

., ,*

.. ,-

•

•

END

YES

••

••

••

., ,.

YF.S

ns

ic

x,
X

QP

• •• ·.81·.··.· ••••

••
•
•

.

•••••••••••••••••

• YES

• II ••••••••

TEXT

•

-, ,.

.Al
. .••,
ORP~r~IN .:.~?

•
•
•

• • •••••
•
.X ••••• 81 •
•
• •

·•••••••••••••••••. ....
SCAN TEXT

..· .. •·· .. ·.. ·x·

x
··.··83··········

·····84.······.·.

•:MA~fiR 0l~l~ f~TRY:•
•
CHANGE 8'ITE
••••••••••••••••••
••

•
MAKF OI~T
•
."NTRY FOR ACH.
o
.:

: :

.

..... ..:.....:
E~~~l\~
~~

N

•••••
• AI·
••
•

• FQ •

X

Q3

:

.

• • • • • • • • II • • • • • • • • • • • • 1 . II I" • • • • • • • • I I .

ic
Cl···..

FKM¥11 •• c2 ..........

QP •••••C3..........

C4··· ••

c·· •.

•••• PROC •••• YES
:
AilE OICT REF :
:ENT~~K~ RI~ICH :
•••• CH
NO
••••••
••
OR
•••••••••• X.O~ ENTRY TYPE 1........
0lSA2LE
. . . . . . . . . " •• OR N~"'~CK . . . . . . X. G4.
••
BEGIN ••
•
• •
COIilOYTI N
•
••
L~T..
••

,1,.

•

: •••• ~~~tl: ••••• :

~ ..... * •••••••••• :

•••• ••••

•.•. .•.•

NO

•

e*

04

••••

YES

.•.xx ..............
••

G •••••

*.

.. ..
·.....F"...........

eo • • • • • • • • • • • • • • •

• •••• 05 ••••••••••

•

•

.................

••
LIST
•• YES
•
fIIAKE LASH
•• ITEM • lA8EL . . . . . . . . . . X. II AR 1 ABlE BCD
•• liAR ll8LE ••
•
01 CT ENTRY

*..*

•

• ND

E1

••
• :.
••

.•.x

••

.. ..

*.

END

*..-

.:.!~~

••

•

..... JC:fIIA~6RO~iJF~~TRY:
•
CHANGE 8YTE
•

*

•

•••

••
••

Fl..

.. ..

• ••••

*
.SCAN

*. ••

F2..........

• •••••

MVS IG

F3

•
CflA IN.

ON,
YES
AUTO
•••• f)~I*~II~h . . . . . . . . . . . . K:T~~~ ~~~Tr~g~

.................:.••••.•••

*...
•

•

NO

·x

Gl

•••

••••
••
INITIAL •• YI'S

.. ..

••

...x

HI·.

•• END

*.

OF
PR OGRA...

••

•
:

•••

••

••

.

END OF
LIST
•

•• NO •
..... .

••

Y~S

.. ..

•• FIRST ••
INITIAL ••

•• "'AI(!:

.. ..

NO

*

...
•

MAKE

SEC~NO

°JfiR

lit • • ., • •

•

YES

* ••••••• "
x

••

• NO

• AI •

••

FJlF

l~~~~

o~I'I

• • • • • • • • • • • • )(.)( • • • • • • • •

•
•

.

x.

...

.FQ •

K

•
:

:1~rlSArR~HY~aT: •• '"

•

.

••••• •

• G4 •

FOR IIRRAY.

•••••••••••••••••

•

x:

't • • • • • • • • • • • • • " • •

X

R!!

:

...·
••• H~
•• ••••••••
"''''OVF
STATEMENT
,.
...
CHA INING
•

...

•

YE S

K

*. ••

• CHECK UST ••
.MAKE
• fJICT ENTRY
•
••
••

•
FNTRY.

................. •••••••••••••••••
.
.
.
······r.4··········.:oo .. x:....
:'
x:
.•................. •....·•................. ....
•

... •••• G3 ••••••••••

YFS

ic
•••••"0; ••••••••••

flEFCHL

• ••• '\'f'4 ••••••••••

*. ••

*...

•• ••••••••• •• ••• • *" •

SMH~iNhW

124

••

*...

.....

MOllE

•••

·

······JI··········.
·..................

: 8EFTRN

G2

•

*...
••

•

ENTRY
"10
0AC T
X•••• PRESENT •••••• , . . . . . X: fOR C NDtTIO"l :

.. · .. ·)(··~~AT~:~~~ F?!.......... X:

• "10

••
••

•*
••

••••••••••

FP010

••

··.H~lhNQ~~~!.····

*.

•

••

•• X. Git •

K

:FKPROC

.................

.. .

.1:5. ... . .
X..
* ...
.,. *
•••

•
"'AKE.
• ON-CI1NOITIO'" . . . . . . . . .
•
OII:T ENTRY.

...............
.....

•...

• NO

•

ic

ic

LASCO

• •••• E2 ••••••••••

•

•
•
•

• •••

•
81 :
• •••

.. nVf

SJ~1~~~NhW

•

•

AI

•
:

Chart F;:2.

Phase FQ Overall Logic Diagr3m

.....

••••.
··....
.

•FQ •

• AI·

•••

•

....

A2 •

CYfABl

••••• Al •• ~ ••••• "'.

·......

• A3 ••••
•
.
CYFNT)(
•

•••••A2 ••••••••• '.

••••• A3..........

"'••• "'A4."'''''''''' •• '''''''''

:••~~••2:U~~"'.:

INSTRUCTION

:tNITIALlZE ANO :
:
c~~t~uru~s:
:Pt~~~:C~~pURE::
• PICK UP START ••••••••• )(.POSITION OF KEY'••••••••• )(.
CA~CUl.ATi: ••••••• .,~.
•
OF CHAIN.
•
BYTES IN
'"
'" OFF FT. GET •
•

:...............:

:.~l~I~~~.I:~~~.;:

CYIII INE

·.. ...... ..
•

CHARACTER

R~!3

CYOTT
."' ••• G 3."' •• "' •• "''''.
•
PROCESSES
'"
•
PICTURE
•
'" ( HA RAC TF R S
•

P~9t f~~fS
CHARACTERS
S,S,.,-

•

•

•

"'' ' ''''''.'"

"', "'

C YK

<;I

(YV

:

'.

III

*••••• 1.

C YC

"' •• "' •••• *'"
•'""'··"''''·CI
•'"
PROCFSSES

J>ROCESSES
••
··"'··G~·········,·
PICTURF
••

•
•
•

· .... .........
·. .··HI··········. ·····O>H2.········"..
.. .. ... ....... ·...................'.
•
•

PICTURE
CHARACTER K

""."'

"'

'"
•

:

CHARACTFRS
CP

OR

t

..

::

* ............ $** ••• ·tc

CYG

CYSS

P~OCESSES

•
•
•

PICTURE
CHARACTFR G

'" ~"' "'

CYEK

"'' '

•
•
•

•
PROCESSES
..
•
PICTURE
••
• CHARACTFRS ",7 ••

•••
••
IS."
THIS
•• NO

• •••• JZ ............
•
'IAKF SUR>;
•
.PICTURI' LENr,TH >.

Jl

".

••

..... S~~~'tb~~ •••• , ••••• ., x:
iii.

*. ••

••

A~~r"2h~~~HN

•

:11

• ......... * •• ****1)

'" YES

"'."'.
·· ..

• • 00100 . . . "'0 ... ) ( .

X

X
... "'.'" Kl "''''''''''''''''''''''.'''
'" GO THROUGH
'"
:
C~~~~~~G
: ••••• :
'" INDIVIDUAL
•
'"", ", FIELDS
'"
",.",
",.",
",

.•

... .. ..

::

•

A7 •

••• *

'"
:
•

:...............:

. ....."".. ...... •....F5·····.····•
........... .... .•.......... ..... •..... .. ........

··*••F2··"'··"'···'::·
·..*....... '.

C YSOPM

•'."'."'F 1"'•• '" "'."'."''''
''"'"" PROCESSES
'••"
PICTURE

TU~~~H

"''''''''''.F 3"'' '••• ' ' ••••
'"

CY(PAS

'CHARACfFR V

•

:•
"'•

:•
"' •

P:'Fct~iP

·......."'.."'."'.....
•

:•

1,2,3

•

CYl

..•

CVF.

"'' '

r:H"RAC~ER ~
"

I 8

"'

·
•

•

plI.nCEssrs
PICTURE

.."'

"'

P~7~p~ES

CHARAr.¥F~

"' "'

:

E

•

•

.

rH~~"'CTER

7.

•
•

..

*.*** •••••• *.*.**..

CYST ...

"'····H~

•
PROCESSES
'"
•
PICTURE
'"
"'CHARACTEI\S ~,H •

..

• •••• G4 . . . . . . . . . . .

· .•"'' ' ' •.•''.' ·••.·.>i4·····.·. ·•.
·.... .......... ·
.

rYSSfH

•:

:•
•
•

P~1~~~~P

•
•
•

PROCESSFS
PICTUII.E

CH~RACTER

'I

•
•
•

"!"' ............... .

CYP

••••• H5 ••••••••••

•
•

•
:

PRO'CESS~S

••
:
•

......."'.........
CH~~X~¥~~

F

CYENDO
• •••• Jl •• ··"'·"''''''''''
*'"
'"
END OF
• PIC"TURF CHAP>! •

·

.
*

'••••
" "' •• *•••••• "''''.

......
;

'"

.

.FT •
• AZ·

SEction 3: Charts and Routine Directories

125

Chart FT.

Phase FT Overall Logic

Diagr~m

•••••
• FT •
• A2·
•••

·...·. 2··········
K

ACt

•
•
:
SEC~aN~ILE :
•
•
•••••••••••••••••

.

·

•••• ••••••• x.x •••••••••••••••••••••••••••••••••• .,.o
•

IC

.AC2

AF3 ••••• B., ••••••••••

liZ.....

•••• T~~l •••• YES
:
•• SEC OND FILE •••••••••., 1(.

:~INT A~~E

0JC~~~N"RY

:
•
•••••

:••••
FN ~ITUE~~E :
i ••••••••••••

··l~n~~l~!··

•. .•

• ,.0

••
••

CZ

·K..

••

*.

NO
TEST
••
•••• , .~ORT~t'V OF . . . .

·......
$I.

*•• *

•

*

•, YES

· ..
• OZ •• x.

X

BlA ••••

••••••• OZ •• ••••••••••
• DICTIONARY SCAN.
••
•
••••••••••••••••••
TEST FORI
DATA VARIABLE.
STRUCTUIIEI
EVENT VAR AILE.
M~~h~~R ALE.
~M~~ COfcsTANT.
ENTRY!
F I \ E pAR AMETERS
au
L
BU LT N GENERIC.
FILE

,

X

fIIIVlil •." ••••••••••

EZ'·· ••

:

• ••• T T •••• YES
:
~~tl~NI~$
•• OICTfl!ARY .......... I(.!N~lY IIITO THE.
•• flll¥'Rv ••
• AItPII PilI ATf •

•••• . •••

TIN.

: •••••;~U~•••••:

• ,.0

·•..
.• M n..
GZ

••
F
•• Of' 0

••

ST

• x••• ~ ..)....

••

••

• ••• *G'\ ••••••••••

NO

• SI( P T NE XT
olcTI!;!NAIIY
EIIIY"Y

CTf~ARY.......... IC.
••
•
*..*
•

•• • ••YES

••••••••••••••••••
lc
•• ••••
•
OZ •
•••••
•

126

•
•
•

't . . . . . "

D" I t . e 1'1 • • • • ~

Chart FV .

Diagc~m

Phase FV Jverall Logic

•••••
• FV •
• 81 •

·

••

·•• ••Bl···••••••."

FVO

X

'~

••

RFVERSi
seCOND
F LE

••

POINTER
..
•••••••••••••••••••
•

·X

FV9

•• ~ •• ~1 ••••••••••
:
1~oRl~:AICH :
• ptCI( UP ST~T •
•
OF TeXT
..

•••••••••••••••••••

···*01···
...•••••••
•••
•
IDENTIFY
X

FVIC1

·•••••••••••••••••.

... x:

TEXT ITE"

:)( ••••• o ••

o ••• " •••

•

.

1c:0 • • CI • • • • /) • • • • II • • • • • • • • • • •

...

El···..
K

DEFTST

OEF:~ ••

•

x

•••
Fl..

n.

O~fI

• • • • • • II • • • • • • •

~.fI:

c:

•

AD~

8ASE

:

:

~b S~~~ij~

FV18
• •••• F2 ••••••••••

••••

• ••• YES

:

.... ....

AL~~~~~

:...

LJST :

...:

•••• ALLOCATE •••••••••••• X:M~~A~¥ ... ~~~AF~~E:'( ••••••

•

E3.'••••••••

QfI • • • • • • • • •

.•.................

..

K:

*....
..

• NO

t.).e~t:'-'.o ••

• le. 0110.0 • •

. ' . NO
E2..

••••
• ••• YES
•• O~NAMICALtY.. YES
:
•••• nICT. ~eF •••••••••••• ~ •••• OEFINED ••••.••••••••

*...
.. ..

x••••••••

NO

~~~~.U~=

DATC PY

:.:6~i~6.~i.e

c-(l • • • o • • • • :

..:

o. .•

•
G3

i. NO
••••

•

.STATeMeNTS ~OR •
YES.
: eAC~uJ~o~ TO : ......... K•••• OF L ST •• " •••..•

·0.·
....•

.
.
.................

K

•••
HI..

••••

*. ••

• ••• YES

.. ..
PRnc

••

...................

•••••••••• K.

•

..

• NO

•:*••

J1x •. *.

. .'"
eEGIN

*.

•

~J

NO

...x

••

••

• III

FOP

LAS El S

•.,. •• " ....

•

..

•.. ••••J2..........•

••·: .. :~~ ••••• K:ErH:~C~Y~~1
•

.. .1'1....
1<1

O)O'tIl*"

••

•

FOR. fNTRY

FV2·~

•••

••

FVl q
• •••• H? •••••••••
:nFS~~~R~HN~fS :

*..*

.).

fNV

*

X

III

: ••• o,,"~:
>
II.

..............*...
•

•••••J,•••.••••••

FV3..

•

~~~~NAW6~

: ......

..*....*.........
ALOCK

III

•
•

~

*• ••

YfS
.*.0 ••••••

•• ••

•.••.*

•

• "2*

)(

...*

.FX

Section 3: Charts ana Routine Directories

127

over~ll

Phase FX

Chart FX.

DiagL~m

Logic

..·

•••••

• FX •

• A2·

X

••••• A7.·.····· . ••:

:

b~~o I~:~~~

..................

•
STORi&E AND •
• TEXT BLOCK FOR.
•
SORT TABLE
•

:X························:·YE~····················,·· ........................ :
•••.•B2..........
113 •.
••••• ............
8'5 •.
.1h~lk&TE··

NO

FX"':>"-'

x

•••

:
:
•

SCAN STATIC
CHAIN

:
: •••
•

.................

0 ...

FX'r'l~

.. ..

•• N O :
. . . . . . x:
•

x.cg~Plb~~IHAs~ ••• '
•• NAME..

Fx"r3"

~

•••

... .

:
•••• END . ' ••
ENTRY: •••••••• U ••• OF' CHAIN ••••
•
••••

..................

•

sou

•

YFS

·····C2··········
ic

FK(\lN1

•• SCAN PROC-REGIN.•
•
CHAIN
••
••

-)C • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

•••••••••••••••••

·

x
02···..

•_
. . ••
••
END

.. . ."
....
·•....E2 ..•. .
•··.··E2·········.•
·•••••••••••••••••.
...

OF

••

CHfllN

••

••
••

NO

•••••••••• lC*.

-••
"
• YE S

•

K

•.................•

. *..............

x*

G 1 • •• ••

AUTOMATIC •

•••

pul~NE RS

•..•
..

·.
.

..
..

•

:

.

..................

YEi •••

......,0F

CHAIN

••

....x

••

NO

•

•

ADO

STATE"'E~T

•

: ••• :N~~:E~HI~ 5~NN:
•
ENTRY
•

·•••••••••••••••••.

128

••

*: •

"ENTRY TYPE ••

.. II·

l(

·.3,",5 .•
• NO

..
.••
•..................
.................
FK,.~~ •• F5.a••••••••

• ••••F ...;. ••••••••
SOltT EH'''V

•
••

:
•
•

•••••••

•

SORT ENTRY

•

••••••

Fxl~2 . . *G3 •••••••••••

.,c •

PRIIfr eCD
•
A~F~Ifv~D• •

••••• •

•••••••••••••

• r,z •

••••• •
X

.*

H3

••

H..

*.

...- ·······X··

••
'ITII.
•• NO
• ••• LIIMNG ••
• • • 111

• YFS

"•

lI

••
••••

• III.

:

••

*0 ••

H5

• ..

NO

••

•• END OF
~a:IN

·...••J3.·.·.·.····

L~~Q~NG
•

...

YES

N3

••

• YI'S

•••••
·GA •

~

PRINT
'TTR IBUTES

•••••••••••••

*. ••

······x··x•.•. *..
•..•
*•• _
_•• _ *
KII iF

ic

x

*.

~ •••••••••••••• :;~.:. c~~glT~~N

._.

••••• JJ ••••••••••

••

••

• NO

1"5

: ••••• :

..

YES

ENO

••

•

~

.*• *DIeT REF •• *.••
•• *.
••.*
*••
• *
YES

:t. 05··· •. *.

•• K. EZ •

ic

.. NJ
• K. •••

X..

••

fJ • • • •

•

X

•

10:·..

FXP!=I •• G2 • : . . . . . . . .

••

*r ~ ..

C HAl N

.
•••••••••••••••••

....
:

•• V E S .
• •
•••••••••••• X:SCAN SORT CH"IN: •••••••

NO

:

o.............•

IU.4I£ 3.~ ••••••••

•

-..*
.. ..

• G2 ••••

....
...*
... ..
...

FX()

F3···..

X · •••• • :

Hl

Co

X.

*. • ••YES

FZ···..

••••

•

• _ •••••• ')

:
YES •••• END OF •••• NO
•• 1tLocAT
NO:
.X •••••••• -,
CHAIN
• -. ••••••• •••
OR.
•••••••••• X.
..
••
••
•• "'''''''ETER..
•

SC.N TEXT

•• END OF
••••
TEXT

•• NO

••

x

FK(ll:~ •• Fl............
•

•.SCAN

.. .x •••••••••••

... SCAN CONTROllEO.
•
CHAt"!
•

:

-...
ANY

PA RA fifE TE A. S

••

FK01~Z ••

K.

FX:Hl"

••• x*

03···.. *.

•• Al·

.............

•

....

Table ED.
Phase ED, Initialization
r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------~
ISets up routines in scratch core
ISETUP
INone
I
Ifor phase EL
I
I
~
L ____________________________________ i _______________ i ___________________________________ J

.Table ED1. Phase ED Routine/Subroutine Directory

I r------------------T--------------------------------------------------------------------,
I I Routine/Subroutine I

Function

I

I

~------------------+---------------------------------- ----------------------------------i

I

I,]~ASK

I
I
I
I
II

ICELL
IRoutines for processing declared attributes.
These set up
I
linformation in the attribute collection area of scratch core,
I
IBASED
IAREA
Ifor reference by CDICEN, etc., in phase EL.
I
J
I POINTER
I
I OFFSET
I
I
L__________________ i ____________________________________________________________________ J

I I EVENT

I

I

I

I

Table EG.
Phase EG Dictionary Initialization
r-----------------------------------T---------------T-----------------------------------,
I
J Main, Processing I
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~----------------.-------------------+---------------+ -----------------------------------i

IHashes labels

ICAAl

ICHASH, CBCDL2

I

~-----------------------------------+----------------+ -----------------------------------i

IPROCEDURE-BEGIN chain

ICA7

INone

I

~-----------------------------------+---------------+- ----------------------------------i

IBEGIN

ICA8A

INone

I

~-----------------------------------+---------------+- ----------------------------------i

I PROCEDURE

ICAPROC

ICANATP, CFORP

I

~-----------------------------------+---------.--~---+ -----------------------------------i

I ENTRY

ICA10

ICANATP, CFORP

I

~-----------------------------------+---------------+- ----------------------------------i

IFormal parameters

ICFORP

ICHASH, CBCDL2

I

~-----------------------------------+---------------+- ----------------------------------i

IAttribute list

ICANATP

ICAPRE1, CATCHA, CATBIT, CATPIC

I

~-----------------------------------+---------.------+-----------------~-----------------i

Icreates entry type 2 entries for
ICTYPBL
IENT2F, CDEFAT
I
Ilabels
I
I
I
L ___________________________________ i _______________ i ___________________________________ J

Section 3: Charts and Routine Directories

129

.Table EG1.

Phase EG Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------·1
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------.~
CAA1
Scans label table and hashes labels.

CANATP

Processes attribute list.

CAP ROC

Processes PROCEDURE statements.

CAPRE1

Processes precision data.

CATBIT

Processes BIT attribute.

CATCHA

Processes CHARACTER attribute.

CATPIC

Processes PICTURE attribute.

CA6

Scans the PROCEDURE-BEGIN chain for the relevant statements.

CA8A

Processes BEGIN statements.

CA10

Processes ENTRY statements.

CBCDL2

Traverses the hash chain looking for entries with the same BCD as
that just found.

CDEFAT

Completes data byte for entry type 2 entries by default rules.

CFORP
CHASH
CTYPBL
ENT2F'
TYPW
OPTN1 (EF)
OPTN2 (EF)
OPTN3 (EF)
IATTRBT (EF)

Processes formal parameter lists.
t
IObtains an address in the hash table for an identifier.

I

Icreates entry type 2 entries for labels.

I

ICreates or copies second file statements.

I

IScans ENTRY chain.

I

IChecks containing block options, for inheritance.

I

IProcesses procedure options.

I

IPerforms post processing, makes

I

S~ATIC

DSA decisions.

IProcesses POINTER, OFFSET, and AREA attributes.

I

L__________________ ~ ____ ~----------------------------- __________________________________ J

130

.Table EI.

Phase EI Dictionary Declare Pass One

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I

statement or Operation
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------~
Iscans DECLARE statement
ICCGSO
INone
I

t-----------------------------------+----------------+-----------------------------------i
IScans text
ICCGS2
INone
I
t-----------------------------------+---------------+-----------------------------------~
IProcesses structure level
ICCGSCM
INone
I
~-----------------------------------+---------------+-----------------------------------i
IFactored attribute, left
ICCFLP
ICFP~CR
I
I
I
I
I parenthesis
~-----------------------------------+---------------+-----------------------------------~
IFactored attribute, right
ICCFRP
INone
I
I
I
I
I parenthesis
~-----------------------------------+---------------+-----------------------------------~
IData following DEFINED attribute
ICCDEF
INEWBLK, CTXTRM
I
~-----------------------------------+---------------+-----------------------------------i
I POSITION
\POSIT
INone
\
t-----------------------------------+---------------+-----------------------------------~
I CHARACTER, BIT
ICHABIT
ICTXTRM
I
~.-----------------------------------+---------------+-----------------------------------~
I PICTURE
ICATPIC
INone
I

t-----------------------------------+---------------+-----------------------------------i

IUSES, SETS
\SETS
INone
\
t·-------------------~---------------+---------------+-----------------------------------~
ILIKE
ILIKE
INone
I
~-----------------------------------+---------------+-----------------------------------i
IKEY
I KEYED
INone
I

t·-----------------------------------+---------------+-----------------------------------i
I Dimension
ICDDIMS
AST, TOMENE, ERRORB
I
ICTX~RM,

~------------------------------------+---------------+-----------------------------------~
I Precision
ICDPREC
IERdNEG, SCLBIG
I
~-----------------------------------+---------------+-----------------------------------i
I INITIAL
IEJINIT
ICECON, EHINIT
\
~------------------------------------+---------------+-----------------------------------~
IINITIAL CALL
IINCALL
ICTXTRM
I
~-----------------------------------+---------------+-----------------------------------i
I OFFSET
IOFFSET
ICTXTRM
I

t------------------------------------+---------------+-----------------------------------i
I BASED
I BASED
\PTVEXP
I
~------------------------------------+---------------+-----------------------------------~

L
____________________________________ ~I AREA
_______________ ~ICTXTRM
___________________________________ JI
I AREA

Section 3: Charts and Routine Directories

131

.Table Ell.

Phase EI Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
AREA
IProcesses AREA atrributes.

AST
BASED (EH)
CATPIC
CCDEF
CCFLP
CCFRP
CCGSCM
CCGSAT

I

IDeals with the case of* dimension bounds mixed with non -* bounds.

I

IEntry point in OFFSET routine, at which second file statement is
Imade.

I

IProcesses.PICTURE attributes.

I

IProcesses data following DEFINED attribute.

I

IProcesses factored attributes (left parenthesis).

I

IProcesses factored attributes (right parenthesis).

I

IProcesses structure level.

I

Attribute routine selector.

CCGSE

Scans DECLARE chain.

CCGSOO

Scans text.

CCGS2

Scans source text.

CDDIMS (EJ)
CDPREC (EJ)

Processes dimension attributes.
Processes precision attributes.

CECON (EH)

Makes a dictionary entry for a constant unless one has already been
made.
Returns the dictionary reference of the constant entry.

CFPMCR
CHABIT

Obtains more storage for the factored attribute table.

I

Processes CHARACTER and BIT attributes.

I
I
I
I

CSGSOO

Detects end of DECLARE chain.

CTXTRM

Tests for space in current text block and obtains new block if nec- I
essary.
I

EHINIT (EH)

Processes the INITIAL attribute except for the initialization of
label variables and INITIAL CALL.

EJINIT (EJ)

Processes INITIAL attribute and LABEL with a label-constant list.

ERRNEG

Deals with the case of a negative precision specification.

IERRORB
I __________________
L

132

I
I
I
I
I
I
I
I
I

IDeals with the case of lower dimension bound declared greater then
Ithe
upper ,bound.
__________
_______________________ ___________________________________ JI

~

Table Ell.

Phase EI Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,
Routine/Subroutine,

Function

~

------------------+--------------------------------------------------------------------i
,
GENTRY

,'Keeps

INCALL (EJ)

,'Processes

IVROOM (EB)

'Checks if there is space in scratch storage for another entry.
If
Inot, it makes a dictionary entry and chains it to the previous one
lor to the C8 in text as required.

a count of parentheses in GENERIC and ENTRY processing.
INITIAL'CALL attributes.

,
IVPUTL (EH)

a dictionary reference in the 'initial list' for a label
I constant.
If the constant is not known, a dumrry reference is
,inserted.
'Plac~=s

,
IVPUTC (EB)

,IVPUTO

(EB)

,Places a dictionary reference in the 'initial list' for a constant.

I

,Places the dictionary reference of zero in the 'initial list' for a
'negative or imaginary replication factor.

,

KEYED

Processes KEY attributes.

LIKE

Processes LIKE attributes.

NEWBLK

Obtains new text block.

OFFSET (EB)

Processes OFFSET attributes.

POSIT

Processes POSITION attributes.

PTVEXP (EB)

Entry
made.

SCLBIG

Deals with the case when the scale factor in a precision specification for fixed-point data is declared too Large.

SECON

~oint

in OFFSET routine, at which secondfile staterrent is

I

Icreates a dictionary entry for a constant provided the appropriate
,entry has not been already made.

,

,I

SETS

IProcesses USES and SETS attributes.
I
I
,
'TOMENE
IDeals with the case when the number of dimensions declared is great-I
IL __________________ ler
than 32.
__________________________________
__________________________________ JI
~

section 3: Charts and Routine Directories

133

Table EL.

Phase EL Dictionary Declare Pass Two

r-----------------------------------T---------------T-----------------------------------,
I
I Main Processing I
I

I

statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
Iscans chain of DECLARE statements
ICGENSC
ICDCLSC
I
~-----------------------------------+---------------+-----------------------------------~
IScans each item of DECLARE
ICDCLSC
IATLSCN, BCDPR, CDFLT, CDICEN,
I
I statement
I
ICDIMAT, DCIDPR, INTLZE, POSTPR,
I
I
I
I SELMSK, STRPR
I
~-----------------------------------t---------------+-----------------------------------~
IInitializes each identifier
IINTLZE
I DCIDPR
I
Ideclared
I
I
I
~-----------------------------------t---------------t-----------------------------------~
IProcesses factor brackets and levellDCIDPR
I~EMSCN, BCDPR
I
I numbers
I
\
I
~-----------------------------------+---------------+-----------------------------------~
IScans for next level number
ITEMSCN
\CDATPR
I
~-----------------------------------t---------------+-----------------------------------~
\processes BCD of identifier
\ BCDPR
IBCDISB, CHASE, SELMSK
I
~-----------------------------------t---------------+-----------------------------------~
IHashes BCD of identifier
ICHASH
INone
I
~-----------------------------------t---------------t-----------------------------------~
IScans list of attributes following \ATLSCN
ICDATPR
I
\ identifier
\
I
I
~-----------------------------------+---------------+-----------------------------------~
IApplies factored attributes
ICDFATT
ICDATPR
I
r-----------------------------------t---------------t-----------------------------------~
IApplies implicit attribute
IIMPATT
INone
I
~-----------------------------------+---------------t-----------------------------------~
IAttributes controlling routine
ICDATPR
ICDAT40, CDAT41, CDAT42, CDAT43,
I
\
I
ICDAT44, CDAT45, CDAT48, CDAT49,
I
I
I
I
ICDAT4A, CDAT4B, CDAT4C, CDAT4D,
ICDAT4F, CDAT54, CDAT55, CDAT56,
I
I
I
I
I
ICDAT57, CDAT58, CDAT59, CDAT60,
I
ICDAT61, CDAT62, CDAT63, CDAT64,
I
I
I
CDAT6A, CDATB4, CDATB8
lI ___________________________________ I _______________ ICDAT69,
___________________________________
JI
~

134

~

.Table ELl.

Phase EL Routine/subroutine Directory

r'------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
ATLSCN
Scans the list of attributes following the identifier.
BCDISB

Checks for multiple declarations, etc.

BCDPR

Processes BCD of identifier.

CDATPR (EK)

Attribute controlling routine.

CDAT40 (EK)

Processes DECIMAL attribute.

CDAT41 (EK)

Processes BINARY attribute.

CDAT42 (EK)

Processes FLOAT attribute.

CDAT43 (EK)

Processes FIXED attribute.

CDAT44 (J;:K)
CDAT45 (EK)

Processes REAL attribute.

I

Processes COMPLEX attribu'te.

CDAT46 (EK)

Processes precision attributes.

CDAT48 (EK)

Processes VARYING attribu'te.

CDAT49 (EK)

Processes PICTURE attriou'te.

CDAT4A (EK)

Processes BIT attribute.

CDAT4B (EK)

Processes CHARACTER attribute.

CDAT4C (EK)

Processes FIXED DIMENSIONS attribute.

CDAT4D (EK)

Processes LABEL attribute.

CDAT4F (EK)

Processes ADJUSTABLE DIMENSIONS attribute.

CDAT56 (EK)
CDAT57 (EK)

Processes USES attribute.

I

Processes SETS attribute.

CDA'I' 58 (EK)

Processes ENTRY attribute"

CDAT59 (EK)

Processes GENERIC attribute.

CDAT5A (EK)

Processes BUILT-IN attribute.

CDAT60 (EK)

Processes EXTERNAL attribute.

CDAT61 (EK)

Processes INTERNAL attribute.

CDAT62 (EK)

Processes AUTOMATIC attribute.

CDAT63 (EK)

Processes STATIC attribute.

ICDAT64 (EK)

Processes CONTROLLED attribute.

I

ICDAT69 (EK)

Processes INITIAL attribute.

I

ICDAT6A
(EK)
Processes LIKE attribute.
L_.
_________________
_________________________________
___________________________________ J
~

Section 3: Charts and Routine Directories

135

Table ELl.

Phase EL Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

~------------------+--------------------------------------------------------------------~

CDAT6B (EK)

Processes DEFINED ATTRIBUTE.

CDAT6C (EK)

Processes ALIGNED attributes.

CDAT6D (EK)

Processes PACKED attribute.

CDAT6E (EK)

Processes PACKED(NONSTRING) attribute.

CDAT88 (EK)

Processes POS attribute.

CDCLSC

Scans each item of DECLARE statement.

CDFATT (EM)

Applies factored attributes.

CDFLT (EM)

Applies default attributes.

CDICEN (EM)

Constructs dictionary entry.

CGENSC (EM)

Performs phase initialization and scans chain of DECLARE statements. I

CHASH (EM)

Hashes BCD of identifier.

DCIDl

Main scan routine.

DCIDPR

Processes factor brackets and level numbers.

ECHSKP (EK)

Initializes and passes control to Module EM.

IMPATT (EM)

IApplies implicit attributes.

I

IINTLZE

I

I

I

I

I

I

I

I

I

I

I

IPerforms initialization for each identifier declared.

I

I

I

I

I

I

I
I

I

I

IPOSTPR
I
ISCAN4 (EM)
I
ISELMSK

IPost-processor.
I
IScans chain of DECLARE statements.
I
ISelects correct test mask to be initialized.

ITEMSCN
L__________________

136

IProcesses inheriting of dimensions in structures.

~

ISTRPR

I
I
I
I
I

I
IScans
ahead for next level number. __________________________________ .1I
__________________________________

Table EP.
Phase EP Dictionary Entry III and Call
r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+- ----------------------------------i

IScans for PROCEDURE entries type 1

IENTRY3

INane

I

.------------------------------------+---------------+ -----------------------------------~

IFollows chain of ENTRY statement
IEPL40
lentry type 1 entries from a PROCE- I
IDURE entry type 1
I

INane

I

I

I
I
I

~-----------------------------------+---------------+- ----------------------------------i

IExamines all labels belonging to anlLBPROC
lentry type 1, constructing an entryl
Itype 3, if necessary
I

INane

I
I

I
I

I

~-----------------------------------+---------------+- ----------------------------------i

IFollows CALL chain in text making
IEPL290
I dictionary entries for E?ntry points I

INane
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IExamines the first character of an ICDIMAT
lidentifier and sets a flag indicat-I
ling the range in which it lies
I

I~one

I
I

I

I

I

~-----------------------------------+---------------+- ----------------------------------i

IApplies default rules

ICDFLT

INane

I

~------------------------------------+---------------+ -----------------------------------i

IGiven an identifier calculates its ICHASH
loffset in the hash table
I

INane
I

I

I

~-----------------------------------+---------------+- ----------------------------------i

IConstructs a dictionary entry

ICDICEN

INane

I

~-----------------------------------+---------------+- ----------------------------------i

ISets address slot to zero or the
IFNDEND
INane
I
I end of the dictionary
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IConstructs list of nu~bers of knowniBLDST2
INane
I
I blocks
I
'I
I
~------------------------------------+---------------+ -----------------------------------i

IBuilt in function name

ISCANBF

INane

I

l ___________________________________ L _______________ L ___________________________________ J

Section 3: Charts and Routine Directories

137

Table EP1.

Phase EP Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
BLDST2
IConstructs list of numbers of known blocks.
CDICEN
CDIMAT
CDFLT
CHASH
ENTRY3
EPL20
EPL40
EPL75
EPL100
EPL290

I

IConstructs dictionary entry.

I

Isets flag for default routine.

I

IApplies default rules.

I

ICalculates offset in hash table for given BCD.

I

IScans ENTRY chain for PROCEDURE statements.

I

IFirst entry in entry type 1 chain.

I

Iscans ENTRY chain for ENTRY statements type 1.

I

IReturn point from LBPROC routine.

I

IProcesses new entry label.

I

Scans CALL chain.

EPL340

Searches built-in function table for BCD of identifier.

EPL360

Blanks out BCD in text.

EPL600

Scans the CALL chain.

FNDEND

Sets address slot for label.

LBPROC

Processes labels of PROCEDURE or ENTRY statements.

PHSINT

Initialization of phase.

PHSMRK

Marks later modules as 'wanted' or 'not wanted'.

SCANBF

Checks for built-in function name.

l __________________ L ___________________________________________________________________ _

138

Table EW.

Phase EW Dictionary LIKE

r------------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

I
I

Subroutines Used

~------------------------------------+---------------+-----------------------------------~

Iscans LIKE chain
I EWBEGN
I EWCOPY, EWELDM, EWINCH, EWONDM
I
~-----------------------------------+---------------+-----------------------------------~
IUpdates hash chain for new entry
IEWHSCN
INone
I
~-----------------------------------+---------------+-----------------------------------~

ICalculates start of structure data IEWVART
INone
Ifrom start of variable inforrration I '

I
,

~-----------------------------------+---------------+------------------------------~----~

IChanges error entry to base elementlEWCHEN

INone

I

~-----------------------------------+---------------+-----------------------------------~

ICopies dimension table entry and

I EW2FNT

'EWN~BK

,

file statement
'
I _ __________________________________ JI
lIsecond
___________________________________
_______________
~

Table EW1.

~

Phase EW Routine/Subroutine Directory

r'------------------T--------------------------------------------------------------------,
I Routine/Subroutine ,

I

Function

~,------------------+--------------------------------------------------------------------~

CESCN

Scans dictionary to find entry corresponding to BCD in text.

EWBEGN

Scans LIKE chain.

EWCHEN

changes error entry to base element.

,I
,I
I

I

EWCOPY

copies dictionary entry into scratch storage.

E~L~

copies entry into scratch storage with dimension data rerroved.

EWELTS

Tests whether the likened structure is dimensioned.

EWEND

Handles transfer of control to next fhase.

E~R~

Processes erroneously "likened" major structure.

EWHSCN (EX)

Updates hash chain for new entry.

EWINCH

completes entry copy and places it in dictionary.

EWNOLK

Tests whether original structure is dimensioned.

EWNWBK

Obtains new dictionary block and terminates current one in use.

~~~

copies entry into scratch storage, inserting dimension information.

EWORDM

Processes dimension information in original structure.

EWSTRT

Tests validity of likened structure.

EW2FNT
l __________________

~

Copies
second file statement and associated
dictionary reference.
__________________________________
__________________________________
J

Section 3: Charts and Routine Directories

139

.Table EY.

Phase EY Dictionary ALLOCATE

r-----------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processing I
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+-----------------------------------~

IScans text for explicitly pointer- IIEMEX
Iqualified based variables
I

IEY14
I

I
I

~------------~----------------------+---------------+-----------------------------------~

ICopies dictionary entries for
lexplicitly qualified cased variaI bles

IEY14
I
I

IHASH, ATPROC, DICBLD, STRCPY
I
I

I
I
I

~-----------------------------------+---------------+- ----------------------------------1

Isecond file pointers.
ICATE statements

Scans ALLO- IIEMEY
I

IATPROC, DICBLD, HASH, STRCPY
I

I
I

~-----------------------------------+---------------+-----------------------------------~

ICompletes copied dictionary entry
Ifor an allocated it err
I

IATPROC with
Isecond entry
I point ATPROD

I MOVEST
I
I

I
I
I

~-----------------------------------+---------------+-----------------------------------~

IControls ATPROC and ATPROD routineslSTRCPY
IATPROC, ATPROD
I
each member of a structure
I _______________ I _ __________________________________ JI
lIfor
___________________________________
~

.Table EY1.

~

Phase EY Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

~------------------+--------------------------------------------------------------------~

ATPROC/ATPROD (EZ) Icoffiplete copied dictionary entry for allocated item by including
lattributes from ALLOCATE and second file statements.
I
DICBLD
Icollects attribute given for an identifier and copies its dictionary
lentry.
EY16
EY17
EY21

I

IProcesses ALLOCATE statements.
I
IProcesses identifier in ALLOCATE statement.

I

Processes major structures.

HASH

Hashes BCD of identifier to obtain its dictionary reference.

IEMEX

Scans text for explicitly pointer-qualified variables.

EY14

Copies dictionary entries for explicitly qualified based variables.

IEMEY

Scans second file,

MOVEST (EZ)

Copies second file statement and associated dictionary entry.

STRCPY

l __________________

140

~

reverses pointers.

Scans ALLOCATE statements.

Controls
ATPROC and AT PROD for each rrember of structure.
__________________________________ __________________________________ .1

Table FA.

Phase FA Dictionary context

r-----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

t o -----------------------------------+---------------+ -----------------------------------~

IScans text

ICE30

ICENDTS, CETRAN

I

t-----------------------------------+---------------+- ----------------------------------~

IReorders subscripts; makes dicItionary entry for file and event

I

ICEID

Ivariabl~s

I

ICESCN
I
I

I
I

I

t-----------------------------------+---------------+- ----------------------------------~

IIdentifies keywords
I

ICEKYWD
I

ICEKEND, CEKEOB, CEKEOP, CEKON,
I cEla'RC, CEKSND

I
I

t-----------------------------------+---------------+-----------------------------------i
IScans dictionary
I

ICESCN
I

ICESTUC, CEYES, CFPDER, CFPDR2,
I CHASH, CE3XX

I
I

t------------------------------------+---------------+ -----------------------------------~

IMakes dictionary entry for variaI bles

ICFPDR2
I

ICDFLT, CDICEN, CDIMAT, CEONCK
I

I
I

t------------------------------------+---------------+ -----------------------------------~

Iscans dictionary entry for conIstants and makes new entry, if
Inecessary.

ICECON
I

I

ICHASH
I
I

I

I
I

t-----------------------------------+---------------+-----------------------------------i

IScans PICTURE chain entry and makeslCEPICT
INone
I
Inew
entry, if necessary.
I _______________ LI ___________________________________ jI
l ____________________________________
~

section 3: Charts and Routine Directories

141

Table FA1.

Phase FA Routine/SubroutinE Directory

r------------------T--------------------------------------------------------------------'1

I Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------,i

default attributes for identifier.

I
I
I
I

CDFLT

Deter~ines

CDICEN

constructs default dictionary entry for identifier.

CDIMAT

Determines default scale for identifier.

CEBNK

Transfer point for zero or blank.

CECON (FB)

Scans dictionary entry for constantsw

CEDWAX

Subscript prime text marker.

CEID

Reorders subscripts and makes dictionary entries for files and eVEnt
variables.

CEINT

Transfer point for constant routine.

CEISUB

Transfer point for iSUB.

CEKCEN

Transfer point for CALL to get over chain.

CEKDCL

Removes SN from DECLARE statements.

CEKEND

Processes END keyword.

CEKEOB

Processes end-of-block marker.

CEKEOP

Handles end-of-program marker, or start of second file.

CEKEY

TransfEr point for keyword.

CEKIDO

Transfer point for iterative DO.

CEKON

Processes ON keyword.

CEKPFR

Transfer point for picture format itEm.

CEKPRC

Processes PROCEDURE keyword.

~
~
~
~

CEKSN

Moves SN, etc., to output stream.

I

CEKSND

Processes start of second file staterrent.
Identifies keywords.

ICEKYWD

I

Transfer point for left parenthesis.

ICELP
CENDTS

End of text block in output file routine.

CEONCK

Makes entry for programmer-named ON condition.

CEPFDR

Makes dictionary entry for variables.

CEPICT (FB)

Scans picture chain entry.

CERP

Transfer point for right parenthesis.

CESCN

Scans dictionary.

CESMCL
ICESTUC
L
__________________

142

~

I
I
I
I
~
~
~
~
~
~

i

I
I
i
I
I
I
I
I
I
I
I
I

I
I
I

I
I

I
I
Handles semicolon.
I
I
Points at next entry in structure chain.
__________________________________
__________________________________ JI

Table FA1.

Phase FA Routine/Subroutine Directory (cent'd)

r------------------T--------------------------------------------------------------------,

iRoutine/Subroutinel

Function

I

Ir------------------t--------------------------------- -----------------------------------~

Translates keyword into transfer instruction.

~CETRAN

I'

ICEYES

Compares structure levels.

I

ICE2L

Transfer point for second level marker.

I

ICE30

Controlling scan of text.

~

ICE31

Tests for end of block.

CE32

Moves one byte to output stream.

CE300

switches to appropriate routine.

CE3XX

Compares identifier in text with entry in dictionary.

CFPDER (FB)

Makes dictionary entry for ordinary identifier.

CFPDR2 (FB)

Makes dictionary for formal parameter.

CHAStI

Hashes identifier.

CHASHC

Hashes constant.

IIEMFA

Initializes phase.

I. __________________ L ____________________________________________________________________ J

Table FE.

Phase FE Dictionary BCD to Dictionary Reference

r-----------------------------------T---------------T-----------------------------------,

I
I

Statement or Operation Type

IMain Processing I
I
Routine
I

subroutines Used

I
I

~-----------------------------------t---------------t-----------------------------------~

IScans text

ICE30

ICENGTS, CETRAN

I

~-----------------------------------t---------------t-----------------------------------~

IScans dictionary

I

ICESCN
I

ICESTUC, CEYES, CFPDER, CFPDR2,
I CliASH, CE3XX

I
I

~-----------------------------------t---------------t-----------------------------------~

IChecks for array, function, or
ICELP
Ipseudo-variable if left parenthesis I
I is found
I

ICEFNCT
I
I

I
I
I

~-----------------------------------t---------------t-----------------------------------~

ITests for end of text block

ICENDTS

ICEKEND, CEKIDO, CEKPRC

I

.'-----------------------------------t---------------t -----------------------------------~

IIdentifies keywords

ICEKYWD

ICEKEOB, CEKEOP

I

~-----------------------------------t---------------t-----------------------------------~

IMakes dictionary entry

INone

ICDFLT, CDICEN, CDIMAT

I

l ___________________________________ L _______________ L ___________________________________ J

section 3: Charts and Routine Directories

143

Table FE1.

Phase FE Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------1

I Routine/Subroutine I

~

Function

t------------------t---------------------------------- ----------------------------------~

CDFLT

Applies default rules.

CDICEN

constructs dictionary entry.

CDIMAT

Sets flag for default routine.

CEFNCT

Tests validity of function reference in text.

CEKEND

Processes END keyword.

CEKEOB

Processes end-of-block marker.

CEKEOP

Processes end-of-program marker, or start of second file.

CEKIDO

Processes iterative DO keyword.

CEKPRC

Processes PROCEDURE keyword.

CEKYWD

Identifies keyword.

CELP

Checks for array, function, or pseudc-variable if left parenthesis
is found.

CENDTS

Tests for end of text block in output file.

~

I

CESCN

IScans dictionary.

I

IPoints at next entry in structure chain.

CESTUC
CETRAN

Translates keyword into transfer instruction

CEYES

Corrpares structure levels.

CE30

Controlling scan of text.

CE3XX

Compares identifier in text with dictionary entry.

CFDICN (FF)

Makes dictionary entry.

CFPDER

Makes dictionary entry for statement with ordinary identifiers.

CFPDR2

IMakes dictionary entry for formal parameters.

I

ILCRASH
offset in hash table for__________________________________
given BCD.
__________________ Icalculates
__________________________________
J
~

Table Fl.

Phase FI Dictionary Checking

r-----------------------------------T---------------T-----------------------------------,
I

I

Statement or Operation Type

IMain Processingl
I
Routine
I

I

Subroutines Used

I

t-----------------------------------t---------------t- ----------------------------------~

IScans text

ICESTRT

ICEKEYW

I

t-----------------------------------t---------------t- ----------------------------------~

IIdentifies keywords

ICEKEYW

ICEKEOB, CEKEOF, CEKIDO, CEKSN

I

t-----------------------------------t---------------t- ----------------------------------~

IChecks GOTO statement references

ICEGOTO

INone

I

t-----------------------------------t---------------+- ----------------------------------~

IConverts GOTO to GOOB, if necessarylCEGOB

INone

I

t-------------~---------------------t---------------t-----------------------------------~

IChecks file references

ICEFILE

INone

I

t-----------------------------------t---------------t- ----------------------------------~

IChecks data list items for validitylCEDTCK

INone

I

L___________________________________ _______________ L _ __________________________________ J
~

144

Table Fll.
Phase FI Routine/Subroutine Directory
r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~

ICECMBK

I

ICEDDOL

I

ICEDOND

Tests value of previous second level marker.

Processes function names used as control variables for DO groups.
Processes end of iterative DO groups.

CEDREF

Tests whether dictionary reference needs to be checked.

CEDTCK

Checks data list items for validity.

CEFILE

Checks file references.

CEFNMK

Processes function markers.

CEGOB

Converts GO TO to GOOB, if necessary.

CEGOTO

Checks GOTO statement references.

CEISUB
CEJUMP
ICEKEND

IProcesses iSUBs.
Bumps scan pointer over dictionary reference.
Processes END statements.

CEKEOB

Processes end-of-block marker.

CEKEOP

Processes end-of-program marker.

CEKEYW

Identifies keywords.

CEKIDO

Processes iterative DO keyword.

CEKON

Processes ON statements.

CEKSN

Processes statement number.

CELRCT/CERPCT

Process left and right parentheses.

CEOOPS

Checks validity of keywords in the text.

CEPRBG

Processes PROCEDURE and BEGIN statements.
Processes remote format references.

CESMCL
ICESTRT

Processes semicolons.
Controlling scan of text.

L __________________ L ____________________________________________________________________ J

Section 3: Charts and Routine Directories

145

Table FK.

Phase FK Dictionary Attribute

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I

I
Statement or Operation Type
I
Routine
I
Subroutines Used
1
.-----------------------------------+---------------+-----------------------------------~
IScans attributes area for SETS
IF01A
INone
1
Ilists
I
I
I

.-----------------------------------+---------------+------------------------------------1
IScans SETS list
IF02
INone
.-----------------------------------+---------------+------------------------------------1
IProcesses constants
ICONPRO
INone
.-----------------------------------+---------------+------------------------------------1
IProcesses
identifiers
ICESCN
CE3XX, CHASH
I
L
___________________________________
_______________ ICESTUC,
___________________________________

1

1

~

Table FK1.

~

Phase FK Routine/Subroutine Directory

.1

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
.------------------+---------------------------------------------------------------------f
CEIDLP
Scans qualified name.
CENQUL

Processes unqualified name.

CESCN

Processes identifier.

CESTUC

Finds address of next structure in chain.

CE3XX

Compares current BCD with BCD in hash chain.

CHASH

Calculates offset in hash table for given BCD.

CMPERR

Provides terminal error action.

CONPA

Inserts constant in ordered stack.

CONPRO

Processes constants.

ENDFO

Releases control.

FOERR2

Diagnoses constant greater than 255.

F01A

Scans attribute tidy-up area.

F02

Scans SETS list.

F04

Completes SETS dictionary entry.

scratch storage.
LGETSCR
__________________ Obtains
___________________________________________________________________
_
~

146

Table Fa.

Phase Fa Dictionary ON

r-----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+- ----------------------------------i

IScans input text for ON, SIGNAL,
land REVERT statements

IFK~VIT

I

IBEFTRN, CENDTS, QP
I

I

I

~-.----------------------------------+---------------+ -----------------------------------i

IMoves second file froIT input text
IF2
ICENLTS, BEFTRN
I
Iblock to output text block
I
I
I
~-.----------------------------------+---------------+-----------------------------------~
IMakes dictionary entries for ONIFKDCEN
ILABCD
I
Iconditions found in ON, SIGNAL, andl
I
I
IREVERT statements
I
I
I
~-.----------------------------------+---------------+ -----------------------------------i

IExamines BCD of file entries refIMVSIG
ICENDTS
I
lerenced in ON, SIGNAL, and REVERT
I
I
I
I
I
I statements; scans previous entries I
Ifor ON conditions
I
I
I
~-"----------------------------------+---------------+-----------------------------------~
IProcesses CHECK and NOCHECK list.
IBEFCHL
ICENDTS, LABCD
I
~-"----------------------------------+---------------+ -----------------------------------i

Icreates dictionary entries for
I NOMOVE
IQP
I
Icondition
prefixes
I _______________ I _ __________________________________ JI
L
___________________________________
~

Table F01.

~

Phase Fa Routine/Subroutine Directory

r-"-----------------T--------------------------------------------------------------------,

I Routine/Subroutine I

Functlon

I

~-------------------+--------------------------------- -----------------------------------i

I
I

BEFCHL

Processes CHECK and NOCHECK list.

BEFTRN

Replaces statements containing dummy dictionary references by error I
stateroents, and generates error message.
I

CENDTS

Requests a new text block for output.

Fl(DCEN

Makes dictionary entries for ON conditions found in ON, SIGNAL, and I
REVERT statements.
I

FICMVIT

Scans input text for ON, SIGNAL, and REVERT statements.

FICNOCK

Processes CHECK and NOCHECK lists.

FICPROC

Scans input text for ON, SIGNAL, and REVERT statements.

FP010 (FP)

Chains initial label statements and makes second file dictionary
entries for each label array initialized in this way.

I
I
I

Moves second file from input text block to output text block.
Ll~BCD

Creates a dictionary entry for each label constant and each entry
label mentioned in a CHECK list.

MVSIG

Examines BCD of file entries referenced in ON, SIGNAL, and REVERT
statements; scans previous entries for ON conditions.

NOMOVE (FP)

Creates dictionary entry for condition prefix.

Q3

Processes condition prefixes changed in current block.

QP

Determines which condition prefixes require dictionary entries.

I
I
I
I
I
I
I
I

IR8
statement to output buffer. ___________________________________ JI
L __ " ________________ Moves
_________________________________
~

Section 3: Charts and Routine Directories

147

Table FQ.

Phase FQ Dictionary Picture Processor

r-----------------------------------T---------------T------------------------------------,

I

I

Statement or Operation Type

IMain Processingl
I
Routine
I

I

Subroutines Used

I

r-----------------------------------+---------------+- -----------------------------------~

\Controls scan of PICTURE chain;
I initializes

ICYBR3
I

ICYEK, CYFIND, CYTABL
I

I
I

r-----------------------------------+---------------+- -----------------------------------~

IPicture character 9

\CYNINE

INone

I

r-----------------------------------+---------------+- -----------------------------------~

IPicture characters S, $, +, -.

ICYSDPM

INone

I

r-----------------------------------+---------------+- -----------------------------------~

IPicture character V

ICYV

INone

I

r-----------------------------------+---------------+- -----------------------------------~

IPicture character E

ICYE

ICYC21

I

r-----------------------------------+---------------+- -----------------------------------~

IPicture character K

ICYK

ICYC21

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture characters C,R,D,B.

ICYCRDB

INone

I

r-----------------------------------+---------------+- ----------------------------------~

IPicture characters 1,2,3

ICYOTT

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character P

ICYP

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character Z

ICYZ

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character

*

ICYAST

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character Y

ICYY

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character G

ICYG

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture characters 6, 7, 8, H

ICYSSEH

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character M

ICYSTM

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IPicture character F

ICYF

INone

I

r-----------------------------------+---------------+- ---------------------------------.-~

IConverts integer constants to scalelCYC97
Ifactor
I

ICYCONV
I

I
I

r-----------------------------------+---------------+- ---------------------------------.-~

ICalculates
scale factor
L
___________________________________

148

ICYFNT
_______________ INone
_ _________________________________ ._JI

~

~

Table FQ1.

Phase FQ Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

r------------------t---------------------------------------------------------------------~
ICYAST
Processes picture character *.

I

ICYBR2

Identifies picture character.

I

ICYBR3

Controlling scan of PICTURE chain.

I

ICYCONV

Converts integer constant to scale factor.

I

ICYCPBS

I

Processes picture characters slash (/), comma(,), point (.), and E.

CYCRDB

Processes picture characters CR, DB.

CYC21

Adjust:s data to terminate picture before illegal character.

CYC97

Converts integer constant to scale factor.

CYE

Processes picture character E.

CYEK

Completes entry for correct picture.

CYENDD

Releases control at end of picture chain.

CYF

Processes picture character F.

CYFIND

Obtains code for next character in picture.

CYFNT

Calculates scale factor.

CYG

Procel:,ses picture character G.

CYK

Procel:,ses picture character K.

CYNINE

Procel:;ses picture character 9.

CYOT'l'

I Procel:,ses picture characters 1,2,3.

CYP

Processes picture character P.

CYSDPM

Processes picture characters S, $ , + ,

CYSS

Procel:,ses picture characters 6,7.

CYSSEH

Processes picture characters 8,H.

I

Processes picture character M.

ICYSTM

I

Code table for picture characters.

ICYTABL

I

Processes picture character

ICYV

I

v.

ICYY

IProcesses picture character Y.

I

I

ICYZ
L
__________________

-

IProcesses
picture character Z.
__________________________________
__________________________________ JI

~

Section 3: Charts and Routine Directories

149

Table FT.

Phase FT Dictionary Scan

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processing I
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
.-----------------------------------+---------------+- ----------------------------------~

IScans second file
IACl
INane
I
~----------------~------------------+---------------+-----------------------------------~
IScans dictionary
IB1
INane
I

.-----------------------------------+---------------+- ----------------------------------~

IData variables
IDATVAR
INane
I
~-----------------------------------+---------------+-----------------------------------~
IEvent or label variables
I EVLABV
INane
I
~-----------------------------------+---------------+-----------------------------------~
IDimension attributes
IFO
INane
I
.-----------------------------------+---------------+- ----------------------------------~

IScans AUTOMATIC chain
IG2
INane
I
~-----------------------------------+---------------+-----------------------------------~
Iscans STATIC chain
IG3
INane
I
.-----------------------------------+---------------+- ----------------------------------~

Iscans CONTROLLED chain

IGEl

INane

I

.-----------------------------------+---------------+- ----------------------------------~

Isets dope vector required bit
IP1A
INane
I
~-----------------------------------+---------------+-----------------------------------~
IENTRY type 1 entries
IQA4
INane
I
.-----------------------------------+---------------+- ----------------------------------~

IENTRY type 2 entries
IQA3
IPROPIC
I
~-----------------------------------+---------------+-----------------------------------~
IENTRY type 3 entries
IQA2
INane
I
.-----------------------------------+---------------+- ----------------------------------~

IENTRY type 4 entries

IQX

INane

I

.-----------------------------------+---------------+- ----------------------------------~

IENTRY type 5 and 6 entries
IQAl
IPROPIC
I
~-----------------------------------+---------------+-----------------------------------~
I Constants
ICONST
INane
I
~-----------------------------------+---------------+-----------------------------------,~
Structures
ISTRUCT
MKDMTB, MVTX~
LI ___________________________________
_______________ IAJDMRT,
_ __________________________________
JI
~

150

~

Table FT1.

Phase FT Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
J
~------------------+--------------------------------------------------------------------~
ACl
Scans second file.
AC2

Detects second file statement marker.

AF3

Points relevant dictionary entry at statement.

AJDMRT

Modifies second file statements to initialize dope vectors for base
elements, rather than for the containing structures.

Bl

Scans dictionary.

BIA

Initializes dictionary scan.

CONST

Processes constants.

DATVAR

Processes data variables.

EVLABV
FO

FULIN
GEl
G2
G3

JProcesses event or label variables.

I

IProcesses dimension attributes.

I

JMoves initial label statement to the second file, collecting togethler all statements for the same array.

I

IScans CONTROLLED chain.

I

IScans AUTOMATIC chain.

I

Scans STATIC chain.

llo1KDMTB

Creates dimension tables.

llo1VTXT

Moves text blocks.

PROPIC

Extracts precision data from picture tables.

PiA

Sets 'dope vector required' bit.

QAi

Processes ENTRY type 5 and 6 entries.

QA2

Processes ENTRY type 3 entries.

QA3

Processes ENTRY type 2 entries.

QA4

Processes ENTRY type 1 entries.

QX

Processes ENTRY type 4 entries.

STRUCT

Processes structures.

L 'rRVECT
__________________

~

Transfer vector for appropriate chaining
routine.
__________________________________
_________________________________
_

section 3: Charts and Routine Directories

151

.Table FV.

Phase FV Dictionary Second File Merge

r-----------------------------------T---------------T------------------------------------1
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+- ----------------------------------1

IReverses second file pointers;
IIEMFV
IDATCPY, DEFMOV, DEFTST, F2MOVE,
I
Iscans text for block heading state-I
~MOVE
I
Iments; allocates statements and
I
I
I
Ireferences to dynamically defined
I
I
l
Idata
I
I
1
~-----------------------------------+---------------+-----------------------------------~
IExamines ADF references in second
IDEFCOM
INone
I
Ifile; completes defined item dicI
I
!
Itionary entry
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IDetects dictionary references whichlDEFTST
INone
I
Irefer to dynamically defined data
I
I
I
~-----------------------------------+---------------+- ----------------------------------,1

IExamines dictionary references and IDATCPY
Imoves any associated second file
I
Istatements to the output string
I

IF2MOVE, MOVE
I
I

I
I

~

~-----------------------------------+---------------+- ----------------------------------,

IInserts dictionary reference of
I FVPTR
INone
I
Ipointer in associated based varia- I
I
I
Ible entry
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses adjustable extents on
I FVADV
INone
I
Ibased arrays
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses adjustable lengths on
I FVSDV
INone
I
Ibased
strings
I _______________ LI _ __________________________________ JI
L
___________________________________
~

152

.Table FV1.

Phase FV Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I

Function
I
~----------.---------+_\_-----------------------.------.-------------------------------------~
DATCPY
Moves second file statements associated with dictionary reference to
output string.
DEFCOM (FW)

Examines ADF refenences in second file; completes defined item dictionary entry.

DEFMOV

Modifies text references to dynamically defined data.

DEFTST

Detects dictionary references which refer to dynamically defined
data.

FVO

Scans second file reversing pointers.

FV9

Initializes text scan.

FV10

Scans text.

FV16

Releases control.

:FV18

Processes ALLOCATE statements.

FV19

Processes PROCEDURE statements.

FV20

Processes BEGIN statements.

FV34

Scans AUTOMATIC chain.

FVPTR

Inserts D.R.

FVADV

Processes adjustable extents on based array.

FVSDV

Processes adjustable lengths on based strings.

F2MOVE

Moves second file statement to output string.

IEMFV

controlling scan of second file; invokes processing routines.

of pointer in associated based variable entrt.

IL MOVE
Moves text from input string to output string.
__________________ __________________________________ __________________________________ J
~

Section 3: Charts and Routine Directories

153

Table FX. Phase FX Dictionary Attributes and Cross Reference

r-----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+-----------------------------------~,

JScans STATIC chain for all items

IFXOOOO

JFX0010

I

~-----------------------------------+---------------+-----------------------------------~

Iscans PROCEDURE-BEGIN chain

IFX0100

IFX0010, FX0101, FX0105, FX0120

I

~-----------------------------------+---------------+- ----------------------------------4

IScans CONTROLLED chain for nonIparameter DECLARED, CONTROLLED
I dictionary entries

IFX0170
I
I

INone
I
I

I
I

I

~-----------------------------------+---------------+- ----------------------------------11

Iscans parameter list from PROCEDUREIFX0101
land ENTRY statements
I

IFX0010
I

I
1

~-----------------------------------+---------------+- ----------------------------------11

Isorts BCD of variables and creates IFX0010
lentries in scratch text storage
I

INone
I

I

I

~-----------------------------------+---------------+-----------------------------------~

IScans circular chain of ENTRY
Istatement dictionary entries assoIciated with a particular PROCEDURE
I statement

IFX0105
I
I
I

IFX0101
I
I
I

~

I
I
I

~----------------------~------------+---------------+- ----------------------------------11

Iscans AUTOMATIC chain associated
IFX0120
Iwith particular PROCEDURE or BEGIN I
I block
I

IFX0010
I
I

I
I
II

~-----------------------------------+---------------+- ----------------------------------11

IPrints heading line for tables
laccording to options specified

IFXHD
I

IATTMOV
I

I
I

~-----------------------------------+---------------+- ----------------------------------11

Iscans sorted chain of identifiers

I FXPRNT

IFX0299

I

~-----------------------------------+---------------+-----------------------------------~

JDetermines attributes of a given
lidentifier if the ATR option is
I specified

IFX0299
I
I

IATTMOV, FXBCD, FXDCLN, FXEND,
IREFMOV
I

I

I
I

~-----------------------------------+---------------+- ----------------------------------,

IScans the chain of references for alREFMOV
Igiven identifier (if XREF is
I
I specified) and prints therr in
I
lexternal decimal form
I

I FXDCLN
I
I
I

I
I

I
1

~-----------------------------------+---------------+-----------------------------------~

IConverts EBCDIC of particular
IATTMOV
lattribute to required external forml
land moves it to print area
I

INone
I
I

I

I

I

~-----------------------------------+---------------+-----------------------------------~

IPrints BCD of identifier having
I FXBCD
Iconverted it from internal form to I
I external form
I

INone
I
I

I
I
1

~-----------------------------------+---------------+- -----------------------------------1

I Converts an internal binary number I FXDCLN
Ito external decimal form and moves I
lit to print buffer
I

I NonE::
I
I

,I
I
I

~-----------------------------------+---------------+- -----------------------------------1

IFrees all scratch text storage and IFXEND
INone
1
Irel~ases control to next phase
I
I
I
l ___________________________________ _______________ _ __________________________________ .1
~

154

~

Table FX1.

Phase FX Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

IRoutine/subroutine!
Function
I
~------------------+--------------------------------------------------------------------~
ATTMOV (FY)
Converts EBCDIC data to required for~, moves data to print area.
I
FXBCD (FY)

Move~3

!

identifier BCD to print area, determines options tc be print- I

ed.
FXDCLN (FY)

Converts binary number to external BCD, moves it to print area.

FXEND (FY)

Free~3

FXHD (FY)

Prints heading line for table according to options specified.

FXPRNT (FY)

Scans sorted chain of identifiers.

FXOOOO

Scans STATIC chain.

FX0010

Sorts BCD of variables and creates entry in text for each item.

FX0030

Tests for end of STATIC chain.

FX0100

Scans PROCEDURE-BEGIN chain.

FX0101

Scans parameter list from PROCEDURE and ENTRY statements.

FX0105

Scans circular chain of ENTRY statemEnt dictionary entries associat-I
ed with a particular PROCEDURE statement.

FX0120

Scans AUTOMATIC chain associated with particular PROCEDURE or BEGIN
block.

FX0170

ScanB CONTROLLED chain for nonparameter DECLARED CONTROLLED dictionary entries.

FX0250

Scans text, making chain of references to each dictioary entry.

FX0299

Determines attributes of a given identifier if the ATR option is
specified.

scratch storage, releases modules, releases control.

!REFMOV (FY)
Moves the references to an identifier to the print buffer and
!l __________________ __________________________________
prints.
__________________________________ J
~

Section 3: Charts and Routine Directories

155

2hart 04 .

.....
..
·

• (14

Pretranslator logical Phase

Flo~chart

•

• B1·

••

.•.x

81
••
••••
••
FILE
•• yes
••
OR OPEN
••••••••••
•• CONSTANT ••

.. ..

*..*
• NO

• ..... R2 ••••••••••
.DCBS
GA.

.- .......-.-.-.-.-.

.................

X.
CRE ATE
•
• OCBS AND DCBS •

*

..

·

.

.•.• x•••••••••••••••••••••••••
x

C1

• ••• *<:;1 ••••••••••

...

0
• • S;MNH AN~· •• YES
:!'~.~~~.-.-.-~~:
••
2ND LEVEL •••••••••• x.
MODIFY
•
•• MARKERS..
PARM1ETt=RS •

*.

.. ..

......... ......

."0
•

.•

• NO

•'"

"'

·xx ......................... ..

01

·..

'

••
•• ANY..
•• FUNCTION •• YES

.. ..

··.~~kE~~~P ••
••

••

• NO

• •••• 02 ••••••••••
.MATCH1
GK •
.... -.-.-.-.-.-.-.
PA~~~HER :
•
MATCHING
•

··········x:.................

·

."'ic.

E2
"'.
•• ANY·.
NO •• FUNC TION ••

•

·• x•••••••••••••••• *. **. . ..*..*
REFERENCES

*•• *

• YES

·
••••.F2..........

••••F3••••••••••
.-.-.-.-.-.-.-.-.Z···.·.·· x:•.-.-.-.-.-.....-.
•.................• •.................
•
X

•

:

GO.

PREFb~O&~SSOR

...·• x•••••••••••••••••••••••••••••••
x

• NO

••

• ..... HZ . . . . . . . . . . ..

......
." STRUCT
... YES

"STRUCTS
HF"
.-.-........ -"'-.- .. - ..

•• • ~~S~ ~~~~~~~'" ••••••••••

... '"
·
...

•• IONS ••
• NO

x:

S t~O~~~~E

......

..

I GNMENTS
.. "'' 'ASS
' "''''.'''
'''.'''.'"

.

• x•••••••••••••••••••••••••
x

J1

"'.

•"'..
ARRAY"'. YFS

"''''.''''''J2 ...... '''''' •• •

'" ARR AYS
HK '"
.-"'-.-"'-"'-.-"'-.- •
P~~~~~S
:
.. ASSIGNMENTS ..

•'.MS~~~~~~~.' "'••••••.. x:
.'"

•• IONS ••

*•• *

•••••••••••••••••

• 1'10

·• x•••••••••••••••••••••••••.
·..x

K1

••

••••
• '"
ANY
•• YES
•• ISUB DEFINED ."' ••••••••
••
ITFMS ••
••••

*. ••

.-*-.-.-.-.-.-.-.
• ....... KZ ••••••••••

.ISURS

HP'"

X. PROCFSS ITF'1S •
•
DEFINED
•
•
USING ISI)~S •

• ••••••••••• * ••••

• NO

x
.....

*••••

•

.. AI·

··.

• 05 •

156

AI·

x

..·

.r

0;

...

.

o •••••••••••••••••••

... "
...................
·x• x•••••••••••••••••••••••••.
·..

GP*

~~C~~RA~~~~~S :

G1
••
• •••• G2 ••••••••••
••••
.CHECK LIST
GU.
••
ANY
•• YES
.-.-.-.-.-.-.-.. -.
••
CHECK
•••••••••• J(. PROCEED CHECK ..
..... 1I STS....
:
C~~~~HON
:

H1

.MA TCH 2

Chart GA.

Phase GA Overall Lcgic Diagram

•••••
• GA •
• AI •

·

••
~

ILOCN'

1:1"

e

AI • • • • • •

: 1L0l"'"

••

Bl

... ........ A3 .. • .... • •••••

• FILE NAME TO •
.SKElfTON OClC:Fl •
.CHANGE SYSPRINT •
•
TO I HE SPR T
•

••** ................•

X.

.:.

••

.•
••

x

••

•

0·0

.

•• ••
• NO

.GB •
• AI •

II'

•••

••
*.
N[J
ANY
•••••• ATTRI BUTFS ••

.....

.. ..

·

X

IL '11 f\

*.

". END OF
•• YES
• " STATIC CHAIN ••••••••••

*.

X

I l'lll"

•.~· •• AI··.· •• •• •••
••INITI Al IlA TION •
•
••...........................••

*,

.0

-...

••

,.

• YES

••

.

~

.'····CI········ ... •
•
GET NEXT
•
•
ENTRY IN
•
• STATIC CHA IN •

•
•
•.................

...

·· ..

x

••

• ,.

•*

••

01

••

FILE

CONSTA~T

*.

:.~~~3 ~.:.t:t~.:

•• ••

'''81

*••• .*

•

YES

•

f)

NJ

• *. ••

*. •• ''lei • *••
*•••

X

IlI\11~
•• E3 . : . . . . . . . .
•
•

*. *.,

•• ', •• " ATTR IBUTFS

•

•••••••••••••••••
.•••••••••••
.
x.

it

EI

•
APPRO~RlATE •
• PART OF DClce •
•
SKEl ETON
•

••

................................. ,

• NO

.*
I~.

.x

• YES

I

GET ENYMNT.

•• CHECK

•

•

•

•••••••••••••••••••

.................
flo •

15

ft

~

(! • • "

• •••• F5 ••••••••••
•
•
.SET COBOL FLAG.
ON I~N~HRIFI :

.................

••••••••••

'"

n • • .,. ~ 0 • • • • • • • • • • 0 • • •

.CHECK AND PbACf'.
:
IN ~H~~T N :

ATTR IBS •
• AND HAKE OPEN •
• CONTROL BLOCK •

·• x••••

.,..
., ..

YF.S

•••••••••••• x:

• NO

~ •• ~ •• ' 0 ' . ' • 0 • 0 • '3 • •

•.···.F3·· .•....•.•

i<

• '•••• F I ••••••••••

EI; .'..
, . IS
.,
COFlOl HI ••

CMA~T~~N~UlLl : ••• " •••• X.o., ~~~i'~~

[~ir~V t

:ILIl:Zt

n.

·..................
•
:

••

fI "II' t'I •

~ ~

0" ., It 0 0 0 0 •

~

•••••

e

.

G , • • • • tI ' 0 0 ' 0 • • • • • • •

.'•••• Gl··.· ••••••
•
.. 10K EDICT
•
,
•
ENTRY fiNn
•
••••• CHAI N FROM
•
• SU TIC ENTRV •

·..................

Section 3:

Ch~rts

and Routine Cirectories

157

chart 38. Phase 38 uverall Logic Diagrlm
*••••

..

·GB •
• AI·

MR

·
X

·. ···"1·. ········
.................
*...••.
*

•• INITIALIZE ••
• TEXT POINTERS.
•• LOAD IEMGJ ••

·......•
• 02 •

*.*.
x

• 81 •• X.

..

A6

• •

It

• *.

••••
X
: •••• B1 ••••••••• :

:
•

SCAN TEXT

•• R2

: •••••••• X.:·
•
••

••••••••••••••••••..
x
••• *

.........
• x••

A4.
",.B3

*"...

S~~~~~~NT

o.

*. *. ".
• YES

·'•• ~;" . . . . ,X.:·
,.
••

X

•

• x••••••••••••••••••••

.....01..........
........*........

*.

,

rt.

Nil

·......
•

...
...0
x

*.

••

*••
'*
.. YFS

('.

•
RFTURN TO
•
•• X.
SCAN FrIR
•
*SKIPPfD OPTIONS.

•

• Fl •

X

•
•

SCANS
FOR MA T LI ST

~l •

••

••

••

••

.:.

•• STATEMENT,.

·0 .

* . ~" •

• Yr S

• YI' 5

X

.-.-.-.-.-.-.-.-..00
..........."'..... ....x
•
CO .. P,.R!'
.ST Rue TURES ('1.\1'1 •
•
COflY INSEI!.T •

:

o·

·· .. ·.....
·••••.
•

Bl •

~

**.*

• '11 •

······"5·. ········.
·...................

•
•

...
.:.
••

G3

• III.

••

•

OUTPUT ANO

•

•

I SEE C21

•

•

RI'TURN

•

x

<:..

*n

';4

,.

•*(1 NO
.,

• YFS
F6A.

*e

IH~~6AON ·:.~~ . . . . . . X.:·pAl!.~~i~hls·:.:;~ . . . . . II:.:·

*. *•• *•• ."

•..

.. YES

., *,.

..

ft· ••
,...

••

G5

OF

••

.~

*. ••

*n

~~~MAT

.: •

••
*•••...
LISTS

• NO

•

• Fl .X ••

X
••

'*

••• ·.fl4 . . . . . . . . . ..
•
MAP/COPY
•

• G 3 •• X.

••••••••••••• * •••

• NO

(."

to

•••••F 3 ••••••••••

.....•

*. ••

~n
." • .,.

,•

·..
.
.
.•...............
.•
....
.
··••••....I:

•••
LABI7e.
Gl
••
• •••• G2 ••••••••••
••••
•
FORL ST
..
•• FORMAT
... YES
.-.- ....-.- .. -.-.. -.
0
OPT ION
•••••••••• ~.
sr. AN S
•
••••
....
:
F?~~~TF~I·;r :

•

8')

..

.*

FORlST

x

x

••

• F3 •

• r.K •
• A3·

·
.
··......... ·...................

*. *,,;

• fit •

••••

*••
• *
YF 5

•••

..... f.I

x

~

X

*"

....
• •
••••• •
··..........

02 •

.....
.•.
··..........

····.Fl··········

••

s~iH~tNT

:

~1
E2
••
••
•• NO
••
ENO
•• NO
•
•
••
OPTIONS
. . . . . . . . . . X..
OF TEXT
. . . . . . X. Bl •
••
••
••
• , SKIPPED ••

*.

••

·...................
·.....

t\.

A4

.x •••••••••• ,

• SCM-I STATFMENT •
••••
• SI( II'PING DATA.
YES.. GFT OR
••
.SPF.CIFICATIONS .X ••••••• ,..
PUT
•• X•••
.. TRANSMITTING •
., STATEMENT ••
• OTHER OPT IONS •
••• •

.-. *. *.

,.

x
:::::~l~i!i::::::

• *. ••
n?
*. •

.•.x

*. •••
*".
• YfS

0 . . . . . . . . . . . . . . . . .,

x

x

C3
.1Ir

NO
. . . . . . . . COBOL FlU'

~~~~S I ~~~M~~ I

• 01 •

A8

c.

...................

....
..
·....· .

FORLST

.to

SWf~~~NT ·:.~~."."X.;· ST:H~ENT ·:.~~ •••••• 'I(.:·OR ~~~HT(
• YES

·····C7.··········
•.•. •••.••.•..••. eo:*-*-*- *-*-*-*-*-*t
•

n.

AI..,.
B4

·11 *..

*.....
*. ...

Bl •

AFORMT

*.

•••••• •

•••
HI..
DATA

*. ••

NO

SCAN2.·.
H2
••
YES

••

••

DOES

·
.
·.................

••

fDIT OR
. . . . . . . . . . X•• IT CONTAIN ,"
LIST..
X..
I TOO
,.

**.. .
••*
• NO

··......
••••

X

X

*CI

*...
*. II.

• YE S

..····Hl ••••••••••

···.·HS· •• • ••••••

•
OUTPUT BUY
•
•
AND HMP
•
.1 Ton S TAHHF.NTS.

:

ol~n6~HY

:

.·................
:

R~~'=~~~V

:

• H2 •

.. 0·.x ..
Jl

••

END
••
. . . . . OF STATEMENT ••
'01') ••

··........... ....
··......
*. *.

x

•

•• .*
III • • *
.. YES

FI •

J3 •. .'...
••••
K

LLOOI T
X
·····J2··········
• OUTPUT PR I(1R •
• TEXT AND FND •
.SCAN TO THE I • •
• REPLACE IT flY •
•
SF"lI-CflLO'l
•

•••

O~H

.................

• ••

••••• J4..........
:

• yes

MKROO'l
X
• .....K2··········
•
MAKE ROOM
•
.1"1 nUTDUT TF XT ..
•
ANfl INSFRT
•• " .
• ENfl 5TATEME'IT •

..

..

•••••••••• ** •••••

X
...... K3· •• ••• .... •

·.................... ....
....
· ..
~

:

H":! :
•• 0*

•
•
..
•

I' 5A

•...•J5.•••••.••.

fll/TPUT:
:
: ........

X

OIHPIJT AND

:

~A~~n~sSI~.> •• , , " ... l(: F~~A~~WI~F"l
)!: sHHMn~~ :
*. *. .•.•
••••••••••••••••••• •••••••••••••••••••

x

• B1 •

158

F5
NO

STACK
•
nlfTlnNARY.
•
..
••• " .X. F1 •
RfFERENCE
nF T FMP
•
•
•

··........x ..
,. r.3 ..

.....

Phase 3K Overall Logic Diagram

Chart 3K.

"'GK •
* A" *

'" '" '"
ox

••• •• A~ •••••• "' •••

'"

'"

·...... ... ......
··.........
"'····83.···.··."'.
·.. .. ....
•
l"lITIIILl7F
•
• TFXT POINTERS.

•

ETr.

"'."'

"'

••••

*. X.

• 111

tI".Clt)"flrC!t.'I .... "CI ...

x

SCAN TEXT,
'"
NOTING
•
RlOCK LEVEL.
liND COUNT
•

r.'~*

•

"' "'

"."''''.CI.'''.'''''''''''''..

'"
•

:•

S~T 'ElUILT-

'.
l"l r.ENFRIC'"

n~vt~.

• NO
•• 0

BflPVM

VES ,.

"'."''''.''''''''''"

X

RIITST3

C? .,
0'" I~ ••
V[S.. PSFIJOO-.,

'"

tI

f1asct.N
'"
•

•

.'"

C~

•••
"'.

PSEUOO-

"'.

••

:l(·····o<· . ' •. y~~MH~ o.·X.... ""."""'.V~~~:nF .• -'"
'"

"'.

•••••••••••••••••

*" .;,.

,.'"

•• FOUND.·

*•••

'"

'" NO

ox

BAn,

•"'."."2."''' •••• ''''''.
03 ."' • ••
:
~Hv~JT~oaN:
YES •• ·~UNCTION .'.,
.GE"lF.RIC
AND/OR .)1 • • • • • • • • "'.
MARKI'R
'"
RUlL T- I N .
••
FOUND ••

o.

•

FUNr.T10NC;

•

••••

•••••••••••••••••

III • • •

• NO

8AR

.

." •• (looall • .,ao ••

~~~"EZ.!...

.

•
e.X*PUSH
•'"

x

F~

",*", • •

•'"
ST4CK*
•

"III

.. ........... ...
now,.,

"'

"'

•.•·.FZ·········'"

F3

................
..'...GI..........
G2 ..
"'1(..........
..................
....o·
Lin:
.FOR "ln~I-RU~l T- •

IN FUNCTI':lNS

:
•

•

:

ARr.NO. 0

•

•

*.

•

OF

TEXT

*.

(I-

••

~.

x

..•

• 81.

NO . . . . Oop ••••
FOLLOW
••

•

*. III.

••

*.

• YES

·••••••••..

A~MJ=~~T

'"

:
•

•

• Fit •• X.
••••
X
RADELM
•••
F4
••

••

NO

••

IS
ITS

.,

•• NO

·•.........• .. ..
·.••
.•
.
.................

"*,, •.,

., .?ELl~4~~R ~ •• "' ••••••••

*e

x

.,.

• vFS

• 83 •

K

FlAMORE

.····G4··········
AOO ONE T'l
•
IIJl.GNO
•
•

,.

x

• G5 •

..

....................
.
.
·· ..

*t,I ••

•••••
·GP •

•• 0

•• I'IARKER

• •••• F It ••••• "' ••••

•

"'.

••

• YES

X

8AlPQ

8ASTOP

,*.

NO

.•.x

.*ENO
••

:P:~~Mhf~

"'

.. ..
•

• SET POJNTFRS Tn.
•

••

Mn~~R ·:.::~ •••. ,X:
••
FOUNO ••
•
*..*
•

• :.

K

BAI'ST

•••

• •••• F5"' •••••••••
•
•
•
OUTPUT
•
E~~R~UT

........ ........
··..............

X:•
•

:

"'

•

G'I •• IC •

AI\G~~2"G!I.~ ••••••"
•• AG4tNST
CHECK ARiNO
0 CT
•
F.NfI\Y (1

••
•

: po~u:i~T~9~CK :

•••••••••••••••••
it

••••• •
•• 83 ••

....

tlAC~~2•• H?:... '"* •••
•

ARG"lO· \

•

• OUTPUT PRlnR •
• TFl(T, TrsvTr, •
•

S TMT NUM8ER,

•

!~U~~.:~~.~~~~I:

·• x••

tI • • •

e

I' • • ,

~

"

~ ~

•

e •••••••••••••

41 • • • "

~

•

e • c ••

\'I

to C' "

~

•

e •

.
to

...
·.
x

>I<

•

'"

•

F4 •

•• *$

Section 3: Charts and Routine DirEctories

159

·.....

Chart ::iP.

Phase GP OVErall Logic

·•.•...••••.

Diag~3m

••••• •
•

x
EXSCAN."'1 . ' .
A'3

".

..·

ES1~~~~.f\1.a........

*

...

NO
, ••• ,

01···..
IS
'.

.. ..
ITVM

·'.Jm.hj'~~

tI..*

"'16

02···..
••••
IS
'. YES
K··.AA~g~~n~T ••

11.533

' . NO

.•••••••..•.

tI..*
'

•

.~

: TESTC

•

.*

EI

'.

E2

*. ••

:)(•••••• ~~~~~~~f •••••••••••• K·.

• YES . '

....

re

K:..

IS

NO

••

. .IS- . ••

.'

**.
••.**

YES
'E~~2~~~nN•• ••••• ~

*..*.
• NO

.•.K

. .....
·••••••...•

fr44

*.

•

*.

.. ..

•

1(:

....•

•

••••
••••

• *.

.... .....

NO •• ARGUMENT
SCALAR

• YES

• YES

• ••••• : x•••••••• "

·•
.•
•
•
•••••••••••••••••
....
.
·· ..

II.

M12~:l~*H3.~ . . . . . . . .

••
••

•
•

WARNING
MESSAGE

~

X

CHCKS1,82 •••

CHECKS,M~4...

..H4

•
•

H....

*••
*
• YFS

'.

CHCK T

Cop.,;t·:13

J2

'.
*f'
A!IIO •• YfS
'.
PAR SliME
, *•••.
•• DATA TYPE ••

c*
•• ARG

*. *.

o· c·

....•
·.....
K

•

• NO

• 81 •

·•·•••••••••••••••••..•
··....
......
~

•• ···K2··········

•
•

WARNING
MESSAGE

K

•

04 •

•
•

x

:··~t~~:t~·:~···:

•
•
•
•

AGGREGATE
OUMM., OF
PARAMET Elt
DATA TYPE

•
•
•
•

•

K

J4
••

••
O~
••
A A
••
ES
••
MATCH ••

NO..
••••••••
9.,
••

*. *•••.*

.

• YES

)( • • • • • • • • 0 • • • '

•••••
•
81 •
•• ••••
•

K
•••

CHECK T
•
•
•

•••••••••••••••••

·

•.

• .Hao~··
0D ••••
•• AGGREGATE •• NO
NO •• R 0 ED ••
•• STRUCTl:'\1 ES •••••• K......
ARiu NT
••
•••• MA f
~! MAic~~~

• J3 •• K.

K
'16 •••

..•..............:..

..

• H3 •• K.

• YES

160

••••:

"'1c\

*..
..

· ..

.*.x '.
H2
.*
*.
.X..........
••
••
*. * . . *.*
.................
... '
•

K
•• ••••
•
J1 •
•••••
•

K

*..*

••

• YES

• YES

FRROR
MESSAGE

• YES

....•

.-.

• H1 •• X.

••
•• •••

•••
•••.•...
Hl ••*

..G2
••••
..G3
••••
..G4
••••
: ••• ~5 ••• =~
IS
•• PARAMETER ., NO
••
IS
' . NO
. ' ~1ti'l"Elf •• NJ
'IS A ~"U~LY •
•••• SC AL AR •••••••••••• K•••• A~~~~l=T . . . . . . . . . . . . K·. ¥~l~~R~a p.Tl~2····· •••• ' IC: ~B~~rAn~o

*. *•• *.-

x
•••••Hl..........
•
•

••

• 81 •

• CREATE SCALAR •
•
•
:
CHtn~~~ON
: ....
81 :

K

Gl
'.
•• IS
'.
• 'lJ •• ARGU"'ENT ••
• x. ••• AN ENTRY ••
~

'.

: •• *. :~¥R~2~~~~~!~"
.,"IATCH ••
;
*0 ••

•

K

•••••••••••••••••••
K
•• ••••
•
1.3 •
•••••
•

~.

•

••

00

PAR ANn

.................•

•
•
·····1:3··········

.~

NO . '

04 •• IC.

03···..

• NO

ic

.'

• YES

• E3 •• K.

ic

.K..

85

•. ••

COP~l~~~l.~ ••••••••
••••
• CREATE SCAl~R •
•• PARAMPrR •• YES
•
~~M"'Y
~ESCRI T ~ . . . . . . . . . . .
~O~~ ER
:

·· ....

• NO

••

e •

•••• ' .
·••••• :

... ··········X•.•....*'.....'*

.'

• YES

.

*•

• Nn

r·

•Hl •

....

...
x

*. *•••

*. *•• *

lc

•• 1"3 ••
••••• •

• 1.1 •

....

NO
••
IS
' •
•••••••••••• )(~ ••• A~~~~~T ••••

AIl.GI.JMFNT
••
•• SCALAR "

••••• •
••••• •

• YES

K

• NO

*. ••

• •• ' .
1.5

~

*...
.. ..

'.

: YFS

0"
*. • ••YES

C'. 84 IS
,.

••••

•• • * END *. •• YES
*. *. OF TEXT •• .- ••••••••)(
*••. .••*
•••••
·GU·

••

*

*0

83··· ••
CREATE A
CHAMELEON.
NO . '
IS
'.
AGGREGATE
.K..........
ARGUMENT
••
DUM..,Y'
•• SCAlAR . '

·
......................
.................

•'

f'

x

EX3~,.:~~2..........

•
• •
•
SCAN TEXT'
•
, •• X' FOR ARGU"'ENT .X.........
•
LIST.
•

C1

AI,

*.

*. *. •• ...
• NO

• 81·

.•.K

'.

)(

*. ••

•

•• PARAME'TFR •• YES
••
PARA..,
••• ~ESCR~PTlO~ ••••••••••• X.o •• SC~~AR

•••••
'GP •

: 8S10

• H3 •

A3 •

)(

••••••••••••

:

••

·*...)( .
....•

••

HI •

CHfCKT

.~?"':.

••

••

K

••• •
•'" •H3
••••• ••

••

.

*•••YES

J5

...K
00

••

90~~s

ill.

MATCH

.:.

••

*. *•••.*
'" YES

lUtlU.K5.: ••••••••
CONSTR~CT
•
•
'"
A REOU FO
•
•
DOPE VE TOR •
•
FOR l o G .

•••••••••••••••••••

Phas8 GU cverall Logic Diagr3m

Chart 3C'.

...

•• ••••
•
A2 '"

"' '"
·GU •

·..

••
•

• Al'"

X

••••• Al..........

•
GET SCRATCH
•
S T~RAGE FOR
• CHE K TAB~E.
•
IN TlALI E
• TEXT POIN ERS

"'' ' '"

X

ASt AN

• •••• A2 "'."' •• "''''.'''.

• •

•

.................

o
il.
• •••••••• ~.

........"'........

.....

SCIIN TEXT

" ' .

•

OJ<.

•

..
~

B2

,

••

.. ..

*. •• YfS
•• ".
END
*. *. OF TE Xl •• • *••••
••

••
• NO

.......

fI •

CI •

x

••• •
••C3
•• ••••
••

.HF •
• Al.

•

x

.•

ATST3

CZ.·...
••
• •• , YE 5
• •
•••• STAT EMENT •••••••••• "
••
,.

.. ..

•• ••••
•
01 •
•••••
•
AFM

•

•• *••01 ••••••••••'

•
CALLA'"
• -.~-.-.-.-.-.-.-...

·•.....•
~

•

NO

.·FoHousfNEKo1EP
INT9..
R
~ E •.

x:

As~~~~l.tt~2~2......

••

.................

02

• ••

.................

.................
....

P~V~TP=E2~~I~ : •••••••• x:PR5lH~M~~~NAL :

• • nR t:ALL STMTS •

·••••••..•0.............
•

X

ATEST...

115C •••••C5 . . . . . . . . . .
•.~JSSIBLE
SET PCSW CHFtl(
FOR
••

•
•• UPI)·HE
TIIBLE CHECI(
FOR.

\It

IF-swH AT ONCE : . . . . . . . ,
•
• •

04 - ••

8SCA=···

••

:

-eo

)c

:

• • ••
YES •• FUN~T~ON
••
MA K.R
••••
••••

..*..............:x........•.•. ....

: •• :51G~~~u~~~f~Eo
•
•
RESFT FMPTR ••

••••

AS!:b:~~~~!.......

•..•• 05••••••••••
X

Asel

:

:_._._~~~~t._._:

:x",," ••• :sr:;~~kr~~~~~FO:

SCA"! TEXT

LABEL
•
•••••••••••••••••• ••••••••••••••••••

•

• NO

A? •

ABGNIlI1

".'~ •• EI

•

••••••••••'

TF-~~hcH

ATEST5

Itt

X

:x ••••• :;~.:·
TWI C E .
••

·

:
..

.

E~~E

·0.·
(I.
•
THEN

x

BPC

•

.:.~~ ••

:

i<

•

••

••••• •
• Al •
•••• '"

.•.•.F2.......... ·

.................
~hH~~~~

....

.................

•

NO

.•.x

••

••

*0

F MPTR
SET

*.,

•••

••

....

0

*

• NO

BTEST4

X

F",

•••

.,

••••• F5 ••••••••••

NO ••' =UNCTlON··., YES
:...-.-~~~L.-.-:
:"'~' •• MARKER . . . . . . . . . . . . x:SIGt;!~~cf~5~KFO:
••••
•
NAME
•

.................

··•••••••• '" .. •..
K

,~
• 0 ....~

*a

••

8ENTON

......

•••• •
•

• ....

•••••• :

•• YES.
•
, ••• "l(* 01 •
••
••

*•• *
•

o'.

f4

*e
••
......... STATEMENT ••••

X

8STMT
•••
F3
••
•
GO T n .
••••
•
•
•
PSEUDO-CODE.
YES..
~S.
••
• AZ .)(..... ROUTHoIF Tn
.1( •• , . . . . . . .
sw
••
•
•
•
CHECI( THIS.
••
FT
••
••••
.STATEMENT TYPE.
••••
••••

••

O~

•

•
•
..
•

•

.K......

A"!o FMPTR

•••• R~lrT*•• ••
lit • •

•

CH~CK UBLE

••

YfS

... .........

~

DOWNflATE
FOR ~ND
STATFMENT

·~5·

•
•
•
•

•
•

·................
.....

................•

X

•••

.*G5PCSW •• *•••
NO..

NO

····. . 3···••••···

ElY4RNO

•.4··~~~::·;b···· •
CAllA/CAUB

:X ••\o

YES ••

•

•*G3 IS
••

••

••

O~TPUT

•

ic

BTEST3

• ••••E3..........

••

*.

•• 1".** •••••••••••1

•• ••••
•
C3 •
•••••
•

•••

"..0
E2

X

SET FMPTR IF •
ANY AR~MENTS •

:• c~~ckla.
~~~N :
FROM MARKER •
•••••••••••••••••

.. .
•• K. fll •

K
CALlIF'

• •••••

•••

•• Jl
••
•••'.

••••

:··;;iH·r;s::··:
90.

CALLBA

•• YES
•
~TPUT
I~n
•••••••••••• x: G~TA~~~~~LAG : . . . . . . eo
••
••
•
OR ENDSW.
IS

••

•

••

NO

.•
••

'<....

• •• " ' . . . . . . . . . . . . .

•••

J3

CAlSTM

: ·. .·i~~C6=:····:

••••

WAL. IT
•• NO
oil
C L8 . . . . . . . . . . . . K:
••••
oil
••

•

••

• X•••• It

• • • • tI • • •

CALSYM
X
·····K3 •••••• •• ••
•
OUTPUT.
•• oe •••••.t' • • o ••• (\" •• fI

•

·•••••••••••••••••.

.,.(!I •• eo.tI.".OOOOC.III).X:
•

R~~g~:rO

•
:

••

0 ••••••••••••••••

YES

·

STATEMF.NT

SO~~~MTElCT

1'\ • •

of) • •

.

0 •••••

CAli. EX

...............
• •••1(4•••••••••

!.o •• GoooX:
STATFMENT.
OIl

RETURN

:

•

Section 3: Charts and Routine Cirectories

161

Chart HF.

*

****

•

•** •• •

• A2 •

***

MR

Diag~~m

Phase HF Overall Logic

*****
*HF *
* Al*

• x•••

II • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • " • • • • • • • • • • • • •

K
MRTRT
K
MRBYN
.*.
****.A 1**********
*****A2**********
A3
*.
*
*
*
•
.*..
* INp~A\,fE
*
*
*
.*~TR!lCT~Rt*.YES
SCAN TElCT
: . . . . . . . . lC*. *~dh~~~~T." * .. "
: TEl(
0 N ERS : •••••••• l(:
*
*
**************...

*
*
.* •• *............

J(:*

*..*
•• ••
• NO

• •••
•
E2 :
****

K

L SGET

••

B3

•••

••

*.

.. ..

• •••

*.

....

••
ITEM IN
YES.
•
•• :~IrlT~H~~~t . . . . . .
G2 :

J(:

* •••

• NO

x

LS21

C3

YES ••
: ••••••••••• O ••••• • ••

•••

•

Cit

••

••STR~~T~RF.*. .,

'10

,*

• ••

NO
.,

. *END
· 0 ••

YES

.....
•.•
·.

~~Ti sp@l~!.··········X.CI.f'o OF TFXT " •••• et-· •• •

*..*

•..•

*. ••

*.

o.

X
• ••••

• 05 ••

*HK •
. . . At.

•

•

** ••

.....01..........
:
:

EXPAND

ST~¥~~URE

..

LS23

••,

••••• 05·· •• ••• •••

:

· ..
•

:
:
.......

~¥I;~~F~~g
~~~pIE\~

:........

*...
••••

·.......

X

SAENOfSA 13

:
YES •••• IS IT .' ••
:lC .......... "'. GElIi~TA .",.*

.*••"'.............•
x
*• A2"'. •*
•••• **

02 ..
K

•

NO

• 1'2 •• lC •

~ ARY

NECE

•

.

1'"..........

"'."''''
•lC
lC •
SAORAB
SA19
• "'
"'''' ••• E2'''.*'''......
• ••••
EO;
••
:8n~DS¥~u~lt~~ :
:
RESET
:
YFS •• ' . T~~h ••••
.UNT~L F~N~ BASe.'I( •• " . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . SOURfiE POI~ITeR .X"" •••••• MORE ELEMENTS ••
:T~bpre~F'N~!l6EO:
lC
:
T START:
••• ,
••••
~....
• NO

.................... .
....•
·.....

............

x

SA?"

K

FZ
•••• 0

•••

*• A2

SA32

*.

I~CE ••••

••••• F3 •••••• *•••
nul~~~TB~~g

:
•• POiN¥FR AT . . . . . . . . . . lC. R~hACF. IT IN •
••
START ••
.SnURCE TElCT BY *
••
••
•
NElCT ITEM
•
NO

:

•

•••••••••••••••••

•• • ••YES

.

·

••• ~ •••••• ftX.X •••••• " ••••••••••••••••• fI

······G2·.········. ...'"
K

:SATRT

......
·••••.

*SCAN STRU,TIJIIE •
•
•
: ,}~l(~HU"~~T :lC . . . . : Gl :

•.........................•

••••

..

• 05 •
lC

: SAOP

•• .*

HZ

•

K

*. ••
*10

•• .*

•• yes

H1

• •. .,

*tI

H5.~

BYNU •••
••••••••
•
BflCKSPACI;
•
.OUTPut POINTFR •
•
Tn START OF •
• THIS SCIILAR •

0

HA ~
•• 'In •
•,
STRUCTURE . . . . . , ••• ' 1( •• STACK BEEN ••• , ..
••
••
••
!WI LT ,~.

*..*....

o.

*tIr.. . . *
• NO

••

J?

.•.x

••

••

• C'

*
• vrs
..

·. ..........
~

.. 00; •

*.**

162

~

4. J' •. *.

J4...........

.......
•
, . BY NA'!F. ., vrs
FOR.
··.~Hl~~~~~t .. ·•.. ····"'l(: ~i~t'H~~~~ : ...
.11
"•
.
.

SA ~"

*f'

• NO ."
END
.,
......
OF EXPRN
••
... OR ST'!T ••

*f'

: .. ~U12~~~~I
...:
x

• YFS

•••

tIr • •

*'

.. NO

'iV'll

*•

AY'I13
••

C;E~QCH

••••• *** ••••

*....

"< • • •

.~

•••

...0
J~

1( . . . . .

*0:

••

FOUN('
~

•

*•••
• v~ S

••

r*'·

Cl'J art

Phase HK cverall Logic

HK .

Diag~~n

•••••
••
•

• HI( •

• AI·

HRTRT
X
••••• Al· ••• ••••••

••
•••

•••
••

.................
SCAN TEXT

• x••••••••'•••••••••••••••••••••••••• ".
""EOP

.....

Bl

•••

T~fl

x•••••••••••••••••••••••

(I • • • • • • • • • • • • • • • • • • • • • • • • • •

e •

(I • • • • • • • • • () • • • • '" 0 0 0

•

fI 00 III " :

••

••••
.......... .
.".. x ••••
..~ ••

••• x-. e'B ¥F

:

•• ••

.HP •

• NO

••

~
Cl' ••••

0.·.
.• li ij •.

••

~

.. ..
fT

•"1. A E

~l'.

A1 •

•

.f

.

NES!~I.*C2 ••••••••••

.......•.........

EARCH NisT~R •
,'ES
• AIE"EHT
••••••••••
x·s
F
•• 0

:

A 51G,... HT

LSTSCH

07···..

• NO

,

~

01' ••••

••~rt

1~3

·" •. i ffI ••••

·
.•. ..
.·~O

.

..

AR~~¥ho~~U:••••••

!~t·· ••
..!!Ii' E ••

Lith.••••••••••
YES
• •••
X..

•• i)THER THAN

•.

••

:

~l..

NO

:

u ••••••

';ES

SEARCH FOR
:
F IR~T ARRAV •
IN E PRESSION:
•••••••••••••••••

x.

:

tc

El

••

....

Ihli
••
•••••• '1551 "NT ••
•• STA EM NT ••

• N[)..

••

.*'

··a:' .............. ·....... ·............... ..;........
*F3..........
• YES

ARRASS

•

~~

Fl..
• ••• 0fl •••••• 011•••
~ •••
•• ··THU A •••• ~s
: ~E~RG~~Bn :
:
LUt"~T:
••
PI'~~- •••••••••• X. AND WHITHER ••••••••• x.
¥~
L~...
:
VAL 0 :
:
'seAAIR

••

.. .•

•.••0............

...•••• •••..
~..

·...I .....................................
.
..... .........................................
,...••.••••••••••••••••.•...•..
• NO

","

AAMULA

•••
61
••

• Ai:

••

••.••F5•.••.•..••

.CI...............

......•..........
•

0 ..................................... .

• ••• tI~.-.*
•
I(
P1HER •
~!:l!~
•••••••••• ,(..PS~ -vL~FTIABLE.•
RBliJ..
:
0
EQUALS
:

.• l.'TU'
IJ

••

X

....

AA3

F"..........

.CI • • •

::~~N~R~~~pA~~Ry:
2"11.1. 11.:••••••••• x.::P.ACH~~~~yON~:
STAlK ~OR
••••••••• x. A~b Gi~~~2T~ •
[) HENSlnN :
:eu ST
HFN S :

•• 01.
A
•• YES

••

• NO

·tc
.....H!..•••••.•.

• • • • 111 • • • • • • • • • • • •

.
.•••"'Hl..........

• X•••••••• " ••••••••••••••••

ARREXP

AETRT

: DoGlriR1tUNTS :
:
: INF~MfflON : •••••••• X:

:•••I=.U:~ .0•••:

ST"~=ENT:

ARRAy~fJ~l~H

....•

....HIt.........'"

SLMCG

~I...........

.....H5··········.

FRf'T"'P

:

: CHE AIUNOS :
:AOO SUeSCRTPTS :
:
GE~~~erF
:
:
: •••••••• X: AglrA~l~ncl( : •••••••• X: APPROPRIATELY :········)(:FO~Tna~1i~UIES:····

:=~U.,:::=U~~.:

:•••••••••••••••:

:••••••••••••• """:

:...............: .

section 3: Charts and Routine [ir€ctories

163

Phase HF Cverall Logic Ciagr3m

Cr1art HP.

. ..

.

*****
• HP •
•

'"

AI"

'"

'"

•

......
A2

•

ic
..... "',\1 "'.........

INIT

*

•

. . . .•

(I

0 • • • • • • • II • • • • I I "

A3 ..
••

~

• • "' .. CI 1'1 . " •

n

•...... "' •••• "' •••• "'.• •.......................

.'"

x•• "'.

OEFINI'O

*"

,..

"'. NO
,.
S~n~uPT •••••••••••• x.o"'o

• "'••••*•
• YfS

••••••••••• x.
: OEFSUII
X

A4 ,.:"'1.,

t' fI G r< f' 0 II • I"

."'.

SCAN.
S~~~lE
: ••••••••

: •••••••• x:

r>oT~H..........*

MASC~N)C
• ••••

INITIALIZF.

:

•

*.**

~'10

*"

T~~T

*0 *. ••II.

... VES
.",o·
.. ·•· .. x

..•

•.1••••
A •

.A'*

•

.

'···."'
" 113· •• •••••••*

• SK I P TO STAR T

..

:sUe~~Rn~O~~ST

.
·••••••.

:

"'''''''

'" "'."'''''''''''''''' "'''''''.''''''''''''*

.

..

•

"'' ' ' ' ' "'.

'" C3 "'. x.

'" "'... x
•• OETEMQ
•••
C3 ., "'.
•• IS

·•..."'''..' '.' '.' '."'.'•"
··....*.........
.····0'·····."'...'"
··.................
.•
•
••• "'C, •••••••• '"

'"

SUMOVF

.. "'.. '"..

'"

'" NO

..
•

.....
....
.. ..
EI

•

U~~ Uvt~So~

TE~P IN TMlF •

;

••• ·.no; ••••••••••

"'-.-.-.-.-.-.-.-.
•

SUMnVE

•

•
•

OUTPUT
SUBSCR IPT

•
•

..• "'' ' ' ' '..''' ....''..•

... ... ....

·

.

DIeT REFCF •
1~~OT'ABkE
:

:

NO

.

ic

• "' "'."''''.''' •

• X.e.".o.o.ec.e •••••••• e •••
'(

OERCUR
"''''''''''.EZ ••••••••••

"'.

...."'.............:

,.

"'' ' ' ' '.n4'' ·······'' ·

DEGRO!

•••
FI,
••
••
ANV ••
• •••
••
"IORF
•• VES.
•
•• SUBSCRIPTS IN ••• ".X. C~ •

Of FINED
•• YES
•
PUSH DOWN.
•
SUBSCRIPT . . . . . . . . . . X"'PARAMETER STACK ...... .
•• MARKER ••
•
•

••

••

"'."''''.C'''''.'''.'''
•••••
.)UTPlJt BUY TFMP •

J("'::N
~41~~~R o;:",~;, ..... x:
",.C&NSfANT .'"
•
.",.,.
"'. • VI'S
'•" SET

.
.
.....................

x

•••

OEEN02

"'.

,"'.,

x

••••
C!I ''""
'" "''''.''''"

''""

X

•
SCAN TEXT
• OF SURSCRIPT

:4

. : . fU~i~~HT ·:.~~; •••••
.0ICT REFCE.'"

• 01 •• X.

SUSCAN

DENGUe...

C5 •

"'.

SECOND

·,LIST .'"

•• II"

••

"'

••••

•

• NO

)c
•••
1'1
••
••••

••
.....

.. ..

I SUfi

~lISU8S

•• VFS

••••••••••••

••••

• •••• FZ ••••••••••
• OUTPUT PRIOR •
•
TEXT. FIND
•

.......... ...

x:

:

c6UHp~~~~~G

.TO ISU8 NUM8ER •

"'' ' ' ' '

'" NO

.

•

X

..

'.." "'."''''''' .. '''''''''.'''.'''''' '"

••
••

...x

HI·.

..

"'. "'.

."''''·H:>.·'''·''''''''''''·'"
'"

END
vr S
•• OF SUASCRIPT ."' •••••••• X.

*/t

.'"

*••
*
'" NO

..
·...

••

,.

RETURN

...

~

f:o • • It • • • • •

K

"'''''''·*2('£ •• YES
•
SET UP
•
•,
TEMPORARV •• "oo ••• oX. ERROR MESSAGE •
•
ANf' ABOR T
•
• , RESULTS ••

*. *•• *••
•

'lO

.** ..•••.•••••••..*

.....
...
ic

• XA •
• AI·

l.04

*>iJ..........

•••..

:
SET U P :
:
oroX. ERROR MESSAGf: *Ol)"t-flO'.I"X.
• •
•
• •
•

H4 ••••••••••

ERR~KTTW~PlE:

......
IN TeXT ANn *n"f'oX* 01 •
EII.ASI' RAO.
•
•
STATEMENT.
• •••

.••.•.•.•........

Chart JD. Phase JD Jverall Logic Diagr3u

•••••
·JO •
• u·
••
•
(NITI

x
r:·ii····:
POINTER~ E~C

:~'·r~n

•
••
• GET SCRATCH •
• C:ORE FOR STACK.

...• "'' ' ' ' '...''''''''''''

....•

• x••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• " ••••• oc •• ee
SCANT
X
• •••• Cl.·.······'"
•
SCAN TEleT

STAKOP

*
:'" Fg~TR ~R~~t~
:X
••••••••••••••
IPLE S
*
"'''''''

·..............

··"'··C5·······"'··
C5
! .... X:
:x .. :
•••••
•

• ."'.'" •

!

0 ••••••••••••••

••

X
••• ·"'05"''''·
..•••••

:

•• ~X*

:

:F~g~ET~~!.~~UK

·.. .. .. ..."'.". ' ...... ...... ....
"'

••••• El..........
:

END O F :
PROGRAM

E2

••• 0" •••• X••

:

:

•
•
•

•••

:

STACK EMPTV •••••••••• X.

.'..

....

SCR=H~A~6RE
AND

:

*.o •• n,,·o.

•••••••••••••••••

• NO

BTHT I*,a~~
.c aNTROL STACKNG.
ABORT IF
•
•
• STACK FUll
•

:

:RETURN CONTROL :

•• ••

''

X

TRYFLG

• ••••E3 ••••••••••

YE S

''

•.•··E5·.····....:

WINDUP

••

:
•
•
•

..... ......

INTO TEXT.
ABORT II'
STACK EMPTY

.."'' '

"'

••• ·IS THE ••••

"'................

.. ............

UNSTAK

x:

"' "'."' "'

••

"' "'' '

"

MORTXT
••••• 01 •• "'.......
• •••• 02 ••••••••••
•
• •
GET NEleT
•
•
•
EN!) I F "
.BLOCK IN ~HAIN,.
•
r.le: TEXT BLOCK
: ••••••••
A~gIM~~T
: ••••

~

aPERAND
<;TACKING

F\33~r~~Lg~~s

•• ~ . .
·JI

.•

*

•••••••••••••••••

• AI •

'"

• • • • • • o.oa • • • • • • • • • • • • • • • • •

•• " ••F 1 •• "'.......

•

••

' •• X.
•
•

E NO OF
EXPRESSION

F2

•'"

•~

om

••

,.*
."
••
IS..

X

• •••• F 3 ••••••••••

••

NO
••••••••• X••
THE'STACK •• " •••••••. X.
•
••
EMPTY.'"
•

•"'''',''''''' • • • ''' • • • '''.'''...:

*. tIt.

.

••

,,*

•

PUT OUT
MESSAGe
AND ABORT

••

PROnUCER

,,,

",,,,~.,,,.,,,

•
:
•••
•

c •••

·.. ... .....
· .
'"

"''''''''''.''' x ' '

.."' • • • • • • • • "' • • • • •

'" YES

It.CI • •

"".l' ••

X

••••••••• " ••• «1

'"

."' •• *H3 ••• "'''' •• ''' ••
•
lERn STACK.

•• 0 •••••••••

0 • • • • • • • 0)(.

TEMPORARY

'•••••
" X.•

•

CIj •

x

• NO
PREF I X
• tIt.
•••·"''''Jl •• '''''' •••• ''''''
•••• "'J2."'''''''.'''.'''..
J3
tIt.
"'''' • • • J4 ••••••••• '''
••••• JS ••••••••••
:
:
:ROUTINE CHECKS:
•• ··NUMERIC·· •• YES
: A~~E~A~~G~EII :
: ~~~LR~=I~~fo :
X. UlNARY PREF IX "' •••••••• X.
OPERAND'S
••••••••• X"'. CONSTANT
."' •••••••• X. DIeT. ENTRy"' •••••••• X'" STACK TfMP,
•
•
" ' . DieT. ENTRY •
tIt.
••
•
IF MINUS
'"
.SET SFLAG • r2 •

• '."'''' ••••• *••••*
.••••• "' ••• "' •••••••'"
•••
''

*..*
'"
tIt.

••

•

••

.."' • • • • • • • " ' . . . . . .

•

"' • • "'''''''''' • • • • • • • • • •

.•."'."'.....•

•• 0 ••••••••

"'.

••••• Kl "' ••••••• "'.

•

'"

O •••• 0 •• 0 ••••••• 0 •••••••••• 0.

..
."'.'"
"'.
.
.
...'".
"'....."'..........

."'''' •• Hl "' •• "'."'."'..
'" rJTHER RESULT •

oooX.

.0 ••••••

•

• • • • • • • • oo • • • • • • o • • • • • • • • • • • • • • • • • • • ' ••

.
· ....
.
.
..,,,....

•

•
•

UPfl(T
X
• •• ·"'FS·"'········
• UPDATE TI;XT •
0 . 0 • • • • POI NTE R RE SE T •
• TFUG TO lERO •

''""

INERT

•

TRIPLE

.

.."'' ' ' ' '.. ... .. " ' ... ....''........'"
'"

''

"'.
'"

' ' ''''''

'" C5 '"

.."' •• K2 •• "'."'''' ••••

••• X. NON-PRODucTIve.,......... .:. seT TFlAG ON

'"

"'' '

Xx

'"••••••••••••••••••••••• II • • • • • • • o.,.,.oo~.a ••

•

., • • • • • • C1«!')eo0:-.(\"

•

s~ction

3: Charts and Routine Directories

185

Table IG. Phase IG Translator Pre-Generic

r-----------------------------------T---------------T-----------------------------------,

I
I Main Processing I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~--------------------~--------------+---------------+-----------------------------------~
IScans text for BUY aggregate argu- IGS1
IFR, BR, TRF1, GS12
I
Iment dummies, end-of-block, and
I
I
I
lend-of-program triples
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IObtains next text block
IGS12
INone
I
~-----------------------------------+---------------+-----------------------------------~
ITransfers text to output block
ITRF1
INont
I
~-----------------------------------+---------------+-----------------------------------~
ITransfers text skeletons to output ITRF2
IGS1, TxF1
I
~-----------------------------------+---------------+-----------------------------------~
IStacks and unstacks information on IFR, FRP
INont
I
lencountering function and function I
I
I
I triples
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IInserts assignment statement for
IBR
IGS1, TRF2
I
laggregate
argument dummies
I ____·___________ I ___________________________________ JI
L
___________________________________
~

Table IG1.

~

Phase IG Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
BR
Inserts assignment statements for aggregate argurrent durrnies.
I
BR1

Transfers point for IGNORE triple.

BR2

Inserts assignment into text.

BR3

Makes new dictionary entry for temporaries.

BR4

Processes second BUY.

FR, FRP

Stack and unstack information on encountering function and function'
triples.

GS1

Scans text for BUY aggregate arguwent dummies, end-of-block, end-of-'
prograrr triples.

GS12

Chains to next text block on encountering an end of block marker.

TRF1

Transfers text to the output block.

TRF2

L __________________

186

I

I

I

I

I

I

I
I

ITransfers
text skeletons to the output block.
__________________________________ __________________________________.J

~

Table IL. Phase IL Translator Pre-Generic

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I

statement or Operaticn Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------i
IMoves function table to scratch
IBASROU
INone
I
storage.
I _______________ I ___________________________________ JI
lI ___________________________________
~

~

Table 1M. Phase 1M Translator Generic

r-----------------------------------T---------------T-----------------------------------,

J
IMain ProcessingJ
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------i
JSelects function for processing
IGNFUNC
IGNXTRP
I
~---------------.--------------------+---------------+-----------------------------------~
ISelects generic procedure
IGNPLIG
JGNDRTA, GNXTRP, GNFMID
I
~-----------------------------------+---------------+-----------------------------------~
ISelects generic Library routines;
IGNBIFH
IGNARID, GNCBEF, GNCACI, GNC1BI,
I
Idetermines function result
I
IGNGNCR, GNPRSC, GNSACH, GNSAPC,
I
J
I
I
IGNSBAR, EXPANL, GNSAPR, GNSBRT,
I
I
IGNSFMS
I
~-----------------------------------+---------------+-----------------------------------i
ISelects chameleon du~my and insertslGNCHAM
IGNXTRP, EXPANL
I
lit in relevant dictionary entry
I
I
I
~-----------------------------------+---------------+-----------------------------------i
IControls scan of text -- branches
I EXPANL
IARITH, LST1, SUBSPT, ASSIGN
I
processin9 routine
I _______________ I ___________________________________ JI
lIto
___________________________________
~

~

Section 3: Charts and Routine Directories

187

.Table IM1.

Phase 1M Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

~------------------+---------------------------------------------------------------------1
Calculates type of result of arithmetic operation (except **).
ARITH (IN)

ASSIGN (IN)

Returns to calling phase with result.

EXPANL (IN)

Controls scan of text -- branches to processing routine.

GNARID (IP) .

Identifies argument of built-in function and converts it to valid
type, if possible.

GNBIFH (IP)

Selects generic Library routine; determines function result.

GNB08 (IP)

Selects relevant faroily member.

GNB16 (IP)

Sets up result type of a built-in function.

GNCACI

Checks and converts a decimal integer.

GNCBEF

Standardizes argument code byte to a form for generic selection.

GNCHAM

Selects chameleon dummy and inserts it in relevant dictionary entry.

GNCTBI

Converts from decimal to binary.

GNDRTA

Analyzes dictionary type.

GNEOB

Processes end-of-block marker.

GNEOP

Processes end-of-program marker.

GNFMID (IQ)

Identifies family rr.ember.

GNFUNC

Selects function for processing.

GNF04

Checks for nested function situation.

GNP027

Sets up result type of a PL/I functicn.

GNFM3 (IQ)

Heplaces original reference in text.

GNL06 (IQ)

Forms entry relating to particular invocation.

GNGNCR

General conversion routine.

GNPLIG (IQ)

Forms tacle of family member descriptions.

GNPRSC (IP)

Selects highest mode, scale and precision of variable argument list.

I

I

IGNSACH

Perforrrs special argument check.

I

I

I

I

IGNSAPC

Calculates scale and precision of a function result.

I

I
Examines second and third arguments of the SUBSTR built-in function I

IGNSAPR (IP)
I

I

l __________________

188

or pseudo-variable and, if possible, converts them to binary
~

I
I

I

integers. Sets selection code according to findings.
____________________________________________________________________
J

.Table IM1.

Phase 1M Routine/Subroutine Directory (continued)

r-------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Functicn
I

~------------------+--------------------------------------------------------------------i

GNSBAR

GNSBRT (IP)
GNSFMS (IP)

GNTRID
GNXTRP
LST1 (IN)
(IN)
L SUBSPT
__________________

IHandles a subscripted argument.

I

IExamines all three arguments of SUBSTR and calcuiates the resulting
Itype exactly.

I

IReplaces references to SUBSTR in text by a reference tc another
lentry giving detailed information about the arguments.
Places a
Idescription of the resulting string in the text.

I

IScans source text.

I

IGets next triple.

I

ICalculates type and length of result of string operation.

I

IAdds
of array to stack.
______type
• ______________________________________________________________
JI

~

.Table IT. Phase IT post-Generic Processor

r-----------------------------------T---------------T-----------------------------------,
IMain Processingl
I

I
I

statement or Operation Type

I

Routine

I

Subroutines Used

I

~-----------------------------------+---------------+-----------------------------------i

IScans source text

IPGTXSC

IPGT01,PGEOB,PGECP

I

~-----------------------------------+---------------+-----------------------------------i

IAnalyzes type of function detected IPGFUNC

INone

I

~-------------------------.----------+---------------+-----------------------------------i

ICompletes function handling
IPGFNCP
IPGNEXT
I
~-----------------------------------+---------------+-----------------------------------i
IDetects 'chameleon' temporary ref- IPGBUYS
IPGRUY
I
lerences and deletes BUY and BUYS
I
I
I
Itriples where possible
I
I
I

.-----------------------------------+---------------+-----------------------------------i
IDeletes 'chameleon' reference in anlPGPASS
INone
I
lassignment triple and alters the
largument triple to indicate an
lintermediate result

I
I

I

I
I
I

I

I

I

~-.----------------------------------+---------------+-----------------------------------i

IDeletes all other references to
IPGFNCM
IPGBYAS,PGSELL
I
I 'chameleon' temporaries where
I
I
I
laQplicable
L
___________________________________ I _______________ I ___________________________________ JI
~

~

Section 3: Charts and Routine Directories

189

Table

I~l.

Phase IT Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

~------------------+--------------------------------------------------------------------~
PGASS
IDeletes 'chameleon' assignments.
I

PGBYAS
PGBUY
PGBUYS

I

I

I
I
I

I

I

IProcesses 'Buy Assignment' triples.
IProcesses BUY triples.

I

Processes BUYS triples.

I

PGEOB

Deals with End of Text Block conditions.

PGEOP

Processes end of program marker.

PGFNCM

Replaces 'chameleon' reference by an intermediate result where
applicable.

PGFNCP

Processes function prime marker.

PGFUNC

Analyzes function, and determines the type of processing required.

PGNEXT

Gets the next triple in source text.

PGSELL

Processes SELL triple.

PGTXSC

Scans text.

IPGTOl
L
__________________

~

I

Determines
action to be taken for a significant triple.
___________________________________________________________________
_

eTable IX. Phase IX Pointer and Area Checking

I

r-----------------------------------T---------------T-----------------------------------<1

I I
I Main Processing I
I
I I
Statement or Operation ~ype
I
Routine
I
Subroutines Used
I
I ~-----------------------------------+---------------+-----------------------------------.~
scan routine
IBUMP
___________________________________
_______________ I~ES~,ERASER
___________________________________ .1I
I LIMain
~

~

I Table IX1. Phase IX Routine/Subroutine Directory

I

r------------------T--------------------------------------------------------------------<1

I I Routine/Subroutine I
Function
I
I ~------------------+--------------------------------------------------------------------<~
I IBUMP
Iscan routine.
I

I

I

I

ITEST
ITests operands for pointer and area data types
I
I
I
I
bad statements.
I ERASER
L
__________________ IProcesses
____________________________________________________________________
.1I
~

190

• T,i i'll..' JD.

Phase

JD

Constant Expression Evaluator

r-·----------------------------------T---------------T-----------------------------------,

I

I

statement of Operation

~ype

IMain Processingl
Routine
I

I

I

I

Subroutines Used

~-----------------------------------+---------------+-----------------------------------~

IInitializes phase, gets scratch
I etc.

IINI~l

INone

I

I

I

I

~-----------------------------------+---------------+-----------------------------------~

Iscans text, for constant triples

I SCANT

I MOHTXT, PREFIX,

I

CCNCA~

.-----------------------------------+---------------+- ----------------------------------~

IHandles stacking/unstacking of
ISTAKOP
IUNS~AK
I
ILoperands
I
I
___________________________________ _______________ _ __________________________________ JI
~

• Table JDl.

~

Pha~e JD Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

.------------------+---------------------------------- ----------------------------------~

CONCAT

Detects constant string operands, performs concatenation, makes new I
disk entry, and puts ref. in a slot for stacking.
I

INIT1

Gets scratch core for the stack, initializes slots and switches.

MORTXT

Gets next text block, resets pointer.

OUT

Puts out error message and aborts corrpilation if stack
tied.

lS

I
I
I
I

not emp-

I

PREFIX

Detects unary prefixed constant, makes new list entry and puts ref.
in a slot, for stacking.

SCANT

Main scan routine.

STAKOP

Push down stack handler.

TRYFLAG

Tests if stack is full, and if so, aborts.

UNSTAK

Moves entry from the stack.

UPTXT

Updates text pointer.

l WINDUP
__________________

~

I
I

Releases
scratch core and returns control
to the control phase.
__________________________________
_________________________________
_

Section 3: Charts and Routine Directories

191

Aggregates

Chart 06.

Lo~ical

******
*"6
* 81*
** *
it

*****81****
.STRUCTURE ******
JI.
*-.-.-*-*-.-*-.-*
•
STRUCTURE
•

·
*

PRF.PROCESSOR

.
*

••• *•••••••••••••

it

..
.-.-.-.-.-.-.-.-.
:;;;~E t~~;

•

··~~:

STRUCTURE

•

• PRCCESSOR SCANS.
DATA CHAIN
•
•

*•••• *•••••••••••

.•.it

01
••
••••

• •••• 02 ••••••••••
.OEFINED
JP.

••
ANY
•• YES
.-.-.-.-.-.-.-.-.
OEFI"IEo
•••••••••• x.
nFFINED
•
••
ITEMS ••
..
CHFCK
•

••

*. *. •• • *

.....

• *

*•

·[7 •
• A1·

•

192

•• •••• ** ••••••••••..

......x

.. "10

x

.n7 •
• A1·

•

Phase

Fl~wchart

Chart JI. Phase Jl 8verall Gogic Diagr3TI

•••••
·JI •
• U·
••
•
••••• Al.~ ......... .

•

••

·.'................'"
81.!......... .......82............
·•..•.•
·•................... ...'...............
·
LOAD CONT
'fM1JNTS ••
• MOVE
AND RELE SE •
•

•
•

LOAD IEMJK.
• 08TAlN FIRST
AND tEMJL
••••••••• )(. CHAtN HEAO

"

••

...,

C2 , ..

•••••••••••••••••••••••• e ••••

.

·•····.0".·.···.·.·.
·
.
.................

CI./IO.•

SFT

•

*

,.eXT CHAIN

•

)(

• x•••••••'••••

·

................. x.:·

41.

.. ..

*.

•

OF E~IN
.:.~~~ ••••• )(:
••
•
*..*
•

••••• 01.;. ••••••••

':"
••
•••••••••••••••••
x
••••..

:

NufEhEM

..

• X•• 01

·.·.·02•••••·••·•

..
•

: •••••••• )(.:·lAST CHAIN

*.

•

*.

,,-

••

• YFS

···.·0"·
•.·•..··.•
•

X

X

·•••••••••••••••••.
•
•

GET
COBOL CHAIN

•
•

•

*,........•

E2-

X
*.. *.

:)(...... ~~.:. .*nEAsoATA*. .:.
• '...............•
111.._
...

•

:

.*

•

•• LOOK AT ••
• ENTRY ON CHAIN •
••
•
••••••••••••••••••

••••••

•• '••• Et

HE:~~AIN

Cit •. *•
.... *:.
.~

•

.................

• NO

·
••

.~

•••••C3..........

.~

••

.

PM~ n~~

CHAIN 2 "

•• VARU8LE ••

.....

• YES

x

• JK •
• AI·

•.·••F2··········:•
ic

•:

•••

PM~ n~;

CHAIN 1

•

STRUC TURE

..

•

•••••••••••••••••••

...

.
..
..................
K
,...'••••• F"••••••••••
MAP
•

,

ic

••••

.-

G2

.X...
.•.
• ••••.
• X · . ·0

•
•
• 01

*.

.:$

*.••

••

••

•*

.•.ic

••

.*

*

••

G4·

*e *.

.. ..

*.

.•

... **F5.;.••••••••

•

•

GET

NEXT ITEM

•
•

•••••••••••••••••••
x

*..*

••••• G5 ••••••••••
•
•

•• NO
• PUT STRUCTURE' •
••••••••• n X. ON CORRI'CT
••
• AUTO CHAIN

• YES

··•••••H"••••••••••..
.................

..................
•

•

)(

X

*.

•• AOJUSTABLF

*0

••

4'. AnJUSTA8LE

• YES

H2

·•

ic
••

NO •• STRUCTURE
OR ARRAY
III • •

•

*..*
*. 0*

••

••

NO

•

• •••

•

•••••• )(. 01 •

••

••••

• YES

...IIlKF ENTRY FOR •
*ll RR ARY ROUT I NF* •••••••

•
0 ••••••••••

ic

••••• J2.· ••••••••

•
•

•
•
•

MilKE ENTRY
FOR LIBRARY
ROUTINE

•
•

•
•
•

.................

Secticn 3: Charts and Routine DirEctories

193

....

Phase JK Over311 Lcgic Diagr3m

Chart JK.

.....

.·.

....

• •
•• A2 ••

• JII: •

• AI·

.....A1..........

CHNSCN

A2 .. ·'.0
:K••••••.••.•.

K

c~if~lO~6~:
slge~iE

....
•• .••

•

• •
••••• •

• Al •

Bl

••

...x

••

*.

~~21 NS

• : . OF

CI

MAKE A OVO

:
:

x

•••••
•
Al •
•• ••••
•

x
.....
.A1 •

•• ••
• NO

CHKOEF

.

x:
.•••••••••••••••••

.: .~~~ •••••

*. * . . *.*
X
•••

MKOIIO

NO •••• ~Y2
ves:
REQU? EO ............

·
.
"" •••••••••••••••••
:.K:
:

.....A3··.······.

X

•••

.JP •
•

•

••

• ••• *CZ..........

••••

*

....
•• ••

.•••••••••••••••••.

NO

•
: ••••••••

GET BASE

• ••

C3

•

••
l~
YES·
••••
olFlneo
••••' •••••••••
K:

••

• •••• C4 ••••••••••

.* ..!!Ai *. •• N O ·..
K•••••l~EII~g
•••••••••••• K:
••

....
•• ••

.•••••••••••••••••.

• YES

1

•••••••••••••••

OZ···..

• ••••

03.~........

i4..........
00
•••••••••••••••••

•••••••••••••••••

III.

·.FZ••••••••..•.FZ.t •.
.. ..

•

*..*

MAKE AN ROV

MKO¥2 •••c

.•.•REQU~fVREO •.•.••••••••••
NO
*. * . . *.111

H2

••••

••

...
*. •• YES
.*
*. •• YF S
••
ARRAV
•••••••••• K•• AnJUSTARlF. ......
*. *.
*. *"
••.*
....*
x
*••
*
*. • ro"NO
• NO
••••

••
••

...

.. ..
JI

••
••

••

K

••

F IKEO

seAL AR

*. *•• *.*

K

..•.....•

••••• KI.a........
:
ADJUS U R l ·
•
STRING E
: ••••••••
•
•
: ••••••••••••••• :

K.: ••'"••
til.

*•••

AUTO

*.,

••

0 ••

•

III

..
'" .
.•*.

194

.................
H4 ..
•

..••

•• ••••
•
11:5 •
•••••
•
X

G'5 •.

.i.VES

•

X..

.*

·6.*
• NO

x
•• ••••
•
••Al•••••

.*"

....
... .
...n

....

*0

••
••
AUTOMATIC ••
••
••

••••
• •••
••
CT~
•• ves.
•
X•••• OR T liP ........
1'5 :

'"

•
•

•

....

x:

G NERATF.
ODE T n ·
RFlOC ATE FlV . . . . . . . . .

Vo,,·

:..~~l~~~'*U~: ••:

••

x.. ••
••

•••••
•
Al •
•• ••••
•
i NO
J,' ' ••

YFS
:
••••••••••
•

K.
: ••

Ge~5~ A~a

RELOCATE
FlV VOA

~~~~=~~~l~:

....x .

.....

'"
•
'"

F4 •

:
'"
•

••:

IS
••
RJV
••
REQU REO
• '"

••
•.•. • ....
VFS

··....••••..
...
• K5

AlV~~' •• K) ••••••••••

foIO

x
•'" "' Al '"••

• •••
At :

••

"'AKE·
ROV AND
..... eo ••
CHAIN·

AlV~~~ •• ~4..........

•• X. E4 •

K"···..

x:

'I(

••·····J2······"'· ••••
•
•• MAP ARRAV "' •••

Flo •
•• ••••
•

•
•
•

•

x

' 1(

..............••••..
••••••

•• YFS
••••••
••

• NO

....

X

~IBRARV.

s~atH~~

*.

·:.~~ ••

• !II

.•....G4............

MAKE OVO

GENF.RATE.

IS·.

Rt~u?Rlo

:

•••••
•
A2 •
•• ••••
•

K

3.:••••••••

.....H3..........
·:..................:.....•..
•
•
•

....

••

• YES

•
• F2 •
• •

·

ic

III.

R

SI

•
• 1:5•
•

.~.

••

.:.

••••••••••••••••••

•• K. F' •

•••

•
:

•

..• .•

'ROeOT

••••

veel

::

.,••••••••••:••••••••

• ••
K.

•

••• •• ES ••••••••••
•
ReLOCATF
•
•
BV O~PE
•

••••• a • • • • X.

••••
·~O

..F4••••..•.F4 •.
....o·

..

•• : ••VF.i •••

K

:
K.

TE"P

?

•.•

•

ic
GZ' •• ••

•••
HI..

••••••••• x.o ••••OR

•

..

x

:

..
•
.................

...

• NO

••

'"

ic

••••
•
• :.
TEMP
.:.:~~ ..... )(:
III.

1;4 ••••

• ••
1!4
••
••••
••
cn
•• YfS

••••
..F3....
..
•••••
••••F3..........

• ••
X.

•

"

.. .

· ..

•••••••••••••••••

··.·~S

:
•
:

•••••••••••••••••
••••
.0 X. Al •
SETOVS, SETOVA ••••• •

••••••

• •••• El..........
•
•
•
STBMUCATPUBE.

A
•••••••••• x•• ADlu,TA'kE •••••••••• x*
.'1.fIEM
UCTU~~..
• ••• )( EN ••••
:

··.·:0

G ~5~A~5:
:
GE~5~RAl~
5 T RASE
••••••••• x.
R~LO ATE
ESS:
.: DEFINE ITEM

••••

PROCST...
EZ
••
••••
••
ANV
•• NO

.....05....•...•.

STB~U ••

•

•••
El
••
••••
••
IS
•• YES

:

0 •••••••••••

• ••••• VES •• •• Bl;~ •••• NO
:
MAP:
:
• Al .x•••••• IUITA'
FOR •••••••••• x. DEFINED ITEM •••••••• ,X.
••••••
AoBIE lNG··
:
: :

•• •••

..•

MAP BASE

•• X.

" OR Il\!
X
••• •• Ko; •• ·"' •• • •• •
:
G~~6~A~8
:
•
SET ITFM
•
•
• AI')ORF.SS IN
•
Rnv
•

.................

....
x

...

...

Al •
'" .***
..

•

..

••• •
•• •Cl
•••••••
x

•••••
• JP •
• Al·
•

I EM~: ••• Al.~ ••••••• ~

A2' i.:~

.. x:• DEFI~~~NCHAIN •
•

:
•
:

•
: ••••••••

~ ~~~~ ~~

x.:·••

.. ::::::: ........... '........................ '........ :::

: YES •• ' . O~~~~E . ' ••
T ~
'.~ TR~Tg~

••
EN··
OF CH~IN . : .

: .................:

••••

Diagra~

Phase JP Overall Lcgic

Chart JP.

••

x: •••
K

•• ~~s~...

•

••••

•

YES

• • •

x:

Al :
••••

::::.:
• Al.
• •
•

• '.C~RRE~PONb! •• NO
:.X·.I~.DE~~NfNG ••••••••••••

· _. ..
*•••

C2

•••

<• • • • • • • •

)(*11;"

••

X·· ••...* ··(t •••.•..
StR~TORE ••

•

••. Bit ••

••

·

n •••

··.·~ES

·••••.
•

••••• •

I

d..

fRu ,
OF PA~K~O ••
•• STRINGS ••

*.

.-TN·.

....

••

*••
*
• YES

r~ A~I.'
1(....... .•. ••III..
O~
.
NO •• II
••

IN
SAM
TYPE

·

••• •••••• 0 •••••••••••••• 0

ERROR HE SSAGf.

t>

.

x•
l

• ••• 05 •••••••••

...............
F.RROR

:
•

X

GETCLS
••••

, ..

E5

: NO
•••
••

IIRF·.

•

: B5 :X.:~~.:·•• AAS
,9~~'~~g "':.X •• :
••
E SAME,.

.... •
• •

••••

•• TVPES ••

*•••

• B4 .x ••

• ••••• :
\.

P5

YES

••• ••
ARE

••

X.:~E~~~ch~tijG;: •
•• OF 8ASF. ••
... TYPE ••

*••
• *
NO

.

eft • • • • • • • • • • • • • • • • •

...............

.

••••••••••

••
••

••

*••
• YES

NOTEI

g~~~~TA~~ I~~pl~p~? ATe

o. e.····o:

*•••

NO
• ····G4.········ •
•••••••••••• X:
ERROR
:

*•••
• YES

• X•••••••••••••• fl
X

••

K

•.•.

~i

••••

*. • ••NO

• $A

•

..x ••••••

G3··· ••

....

••

.:.:;~ ••••• ~:

••

*. • 00·NO

• NO

•••• OE~'N~O •••• YES

• ••

• NO

K

*•• -

NO

*0

e. e • • • • • • • • • •

•*.

G2' •• ••

....

X. A I •
• •••••

. . . ·15 BA~E·' •• YFS
CI.oX • • • • PACKE.

Fit
••
••••
..:.
SHE
.. :.~~~ •••••
•• STRING ••
••
••

·.1~EMI8N~~NS; •••••••••• ' " •••• P1CK~~

•

••••

••••••
•••Fit•••••

rc

.-.
• • Hl s:h

CS

•• ••••
•
Al •
•••••
•

•• ••••
•
Pl •

• Fl •

JP542

•

rc

....

X

••

••• ·~O

K

.-.tc

...,.............
..
•

••••

....
~gI

0

~E'S

• B5 •
• ..
•••
•

NO

0 ••••••••• 0 .0 •• 0.0.

..rJ4

0.

•• ABLE ••

0*0

X
F2
••
•••' •• Pl..........
YES •• ··DE~INE ••••
•• ".
ERROR
.X•••••••••• ITEM Y RV~NG ••
•
•
•
•• STR NG ••

.;,

......0
. ...

•

....

.;,..

AA5ij~T-

oe('oX • • • •

oo ...
.,....
•• o.

*..*
*••
*
• NO

*••
*
• NO

• t.

Cit

..gl~E ~~..

JP541'\
•••
••
E2
••
el~ E ••••
YE S •••• DE~~NEO ••••
COOED
•• X.......... IT EH ODED ••
ARITH ••
•• AR TH ••

*..*

:

··'f

.....XX.:irE~Eol~~2s-·:.~~
•••••• X"':·
..
IONED ••
••
• •
••••• •

ic

•••

TYPF.S,.

•.1(..

t ••

• 03 •
•••

•••

• • • • • • • • • • • • • II •

··.·~O

K
•• ••••
•
03 •
••••• •

..... *tI .CI.
oil.

• *.

....

YES • ~...
•••••
• . ~'.

.~..

*...
*
.

x

El

.

••

• NO
•••
AS
••
• .IS BASE.,
•• DEFINFD
••

JPlf'l

•• ··OfIJNEO·· •• YES
••
8ASE·· •• YES
X•••• PAlK~D •••••• oe • • o.X.(j.~ S RUCTUR~ •••

• *0

JP5lt3

• NO
JP541
•••
AI,
••
•• ARE ••
•• DEFINED •• YES

• NO

•• 02 IS ••••
• : . DHJ~EO ·:.!;~
•• A LABEL ••

.'., ....
•

sTRucTu~ttl····)~,·xox·l"l!~:M~~A'~;~·*o

•...•

C3

•• ··9~HNEO·· •• YES
t. ••
• NO

_•• t

:X•••••••• ·'1.

x

: NO
•••
83
••
••••
••
IS
., YES

F4
••••• •••••

: YES
• t.
Cl
••

~.......

Al :

••

• Cl ••
•• ••••
•

........

x

••••
JP2!'1'

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • •

x:

i.:~ s

NJ . . . . DE~~NED·' ••
TE aF IIBi~EBSET
... .

••••• A4..........
ER ROR

N? , ....... "

•••• ••••

•

~O

••'.

••

J2

.

"fc

• • It'

l~

••

.111.

•.••

D".~N~foNEn

••

_..*
*. ••

••

•

·

NO

y~S

•••••••• .,

J3
••
•••• 81~E'
NO
SUf:lSCRIPTED ••••••••••
••
••

.'.,

X.,

*e

0.··
X..

J4

• *. ••

IS
•••• NO
••••• JS ••••••••••
ARRAy
••••••••••
EIIROR
•
•• PACKED ••
•
•

X.

*...
.0 o.

n.

*. • ••YES

•

.

.

VE S

......•..•.....
)(

••••••••••• o •••• " •••••••• XXX.o •••••••• rfl."." •••••••• ~

•••••• VI'S •• ~;I~F~~~~~· •• NO
• Al "'( •• , ••• ITEM ADJUST- •••••• , ••
•
.)(
••
IIAlF..
•••• ~
*c
e* ".
•

*.

(\ ••• no" " ." • " ••• " ••• " .•.•••

NO

GETI.I~ ••K4..........

K 3' ••••

~

•

KS··· ••

:ER~tt~EII2fiF~~~n:

.>11".

BAS

.0.0

·X.
WITH BA.5F.
••••••••• '(..
GRF.AtER
••
•
lP.~GTH
• .
••
••
•
•
*1'1 •• c· *
•••••••••••••••••

0 6 II II • •

r<

•

II)

no.

II II 0 0 1'1 (10 _ • •

no.

II •

II •

~ II • • 0 •

II 0 •

YFS

n •••

Section 3: Ch3rts and Routine Directories

195

eTable JI. Phase JI Aggregates Structure Processor

r-----------------------------------T---------------T-----------------------------------.,

I
IMain Processing I
I
I
Statement or Operation Type
I
Routine
I
subroutines Used
I
~-----------------------------------t---------------t-----------------------------------~
ITO re-order the STATIC AUTOMATIC
ISCANA
IMAP,MAPA
I
land CONTROLLED chains and to proc- I
I
I
less structures
I
I
I

r-----------------------------------t---------------t-----------------------------------·t
ITO scan down the COBOL chain for
ICOBOL-mapped structures

ISCAN
I

IMAP
I

I
I

~-----------------------------------t---------------t- ----------------------------------i

ITo transfer items from the COBOL
IRECHAN
Ichain to the appropriate AUTOMATIC I
I
I chain

INone
I
I

I
I
I

r-----------------------------------t---------------t- ----------------------------------.~

ITo transfer control from IEMSI to
I IEMJM

ITERMIN
I

INane
I

I
I

~-----------------------------------t---------------t- -----------------------------------j

ITO map COBOL structures

IMAP

INXTRF1,NXTRF2

I

r-----------------------------------t---------------t- ----------------------------------~

ITO check non-COBOL structures for
Iconstant length

IMAPA
I

INone
I

I
I

r-----------------------------------t---------------t------------------------------------j
ITO find the next member of a struc-INXTRFI
I
I ture

INone
I

I
I

r-----------------------------------t---------------t------------------------------------1

ITO find the next element of a
I NXTRF2
INone
I
struct ure
I _______________ I _ __________________________________ .1I
lI ___________________________________
~

~

eTable JI1. Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

r------------------t---------------------------------------------------------------------1
MAP

To map COBOL structures

MAPA

To check non-COBOL structures for constant length

NXTRF1

To find the next member of a structure

NXTRF2

To find the next element of a structure

I
I

I

I
l
I

I

il

RECHAN

To transfer items from the COBOL chain to the appropriate AUTOMATIC I
chain
I

SCAN

To scan down the COBOL chain for COBeL-mapped structures

SCANA

To reorder the STATIC, AUTOMATIC, and CONTROLLED chains and process ~
structures
I

I

I
II

II

lITERMIN
__________________

196

~

To
transfer control from IEMJI to __________________________________
IEMJM
__________________________________
JI

.Table JK. Phase JK Aggregates Structure Processor

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~------------------------------------+---------------+-----------------------------------~
Iscans AUTOMATIC, STATIC, and
ICHNSCN
IADHDV, CHKDEF, MKDVD, MKRDV,
I
ICONTROLLED chains
I
IPROCDT, PROCST, SETBRF, TERMWS
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses DEFINED items
ICHKDEF
ICMPIL1, INOBJ, PROCDT, PROCST,
I
I
I
I STBASE
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses structures (calculates
IPROCST
ICMPIL1, INOBJ, ELSIZ
I
loffsets, multipliers, sizes, align-I
I
I
Iments and padding; generates objectl
I
I
Icode)
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses arrays (calculates ~ulIPROCDT
ICMPIL1, INOBJ, LOADCN, SP54
I
Itipliers and generates object code I
I
I
~------------------------------------+---------------+-----------------------------------~
ICalculates storage offsets for
IPS25
ICMPIL1
I
ladjustable items in structures
I
I
I
~------------------------------------+---------------+-----------------------------------~
ICalculates storage offsets for
IALVACA
ICMPIL1
I
I
I
I
I adjustable arrays
~------------------------------------+---------------+-----------------------------------~
ICalculates storage offsets for
IALVACI
ICMPIL1
I
I
I
I
I adjustable strings
~------------------------------------+---------------+-----------------------------------~
IGenerates code to initialize stringlSVARY
ICMPIL1, INOBJ, IPDV, VOBJC
I
Idope vectors for arrays of varying I
I
I
Istrings in structures
I
I
I
~------------------------------------+---------------+-----------------------------------~
IGenerates code to initialize stringlVOBJC
ICMPIL1, INOBJ, IPDV
I
Idope vectors for varying, nonI
I
I
tstructured arrays
I
I
I
~------------------------------------+---------------+-----------------------------------~
IGenerates code to calculate the
ISTBASE
ICMPIL1
I
Istarting address of storage for
I
I
I
loverlay defined items
I
I
I
~------------------------------------+---------------+-----------------------------------~
IAdds text skeletons to the output
ICMPIL1
INone
I
I
I
I
I stream
~------------------------------------+---------------+-----------------------------------~
IMakes dictionary entries for dope
IMKDVD
IELSIZ
I
lvector descriptions
I
I
I
~------------------------------------+---------------+-----------------------------------~
IMakes dictionary entries fer recordlMKRDV
IMKCNST, CMPIL1
I
Idescription vectors
I
I
I
~------------------------------------+---------------+-----------------------------------~
IGenerates code to set the address
IADRDV
IINOBJ, CMPIL1
I
lin a record description vector at
I
I
I
lobject time
I
I
I
~-----------------------------------+---------------+-----------------------------------~
Icalculates the length and alignmentlELSIZ
INone
I
lof scalar data items
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
Isets
offsets for BASED variables
IBASED
L.
___________________________________
_______________ INone
___________________________________ JI
~

~

section 3: Charts and Routine Directories

197

.Table JK1.

Phase JK Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------1
I Routine/Subroutine I
Function
I
~------------------+---------------------------------------------------------------------\

\ADRDV (JL)

Generates addressing code for

AUTOMA~IC

RDVs.

ALVACA (JL)

Calculates storage offsets for adjustable arrays.

ALVACI (JL)

Calculates storage offsets for adjustable strings.

BASED

Sets offsets for BASED variables.

CHKDEF (JM)

Processes DEFINED items.

CMPIL1 (JL)

Adds text skeletons to the output stream.

ELSIZ

Determines size of storage required for structure base elements.

INOBJ (JL)

Initializes object code statements.

IPDV (JM)

Generates code to set up primary dope vectors.

LOADCN (JL)

Generates object code to load object registers with constants known
at compile time.
~

MKDVD

Makes dictionary entries for DVDs.

MKRDV (JM)

Makes dictionary entries for RDVs.

NXTREF/NXTRF1 (JM) Gets 'the next structure base reference.
PROCDT (JM)

Processes arrays.

PROCST

Processes structures.

PS25

Calculates storage offsets for adjustable items in structures.

CHNSCN (JL)

IScans AUTOMATIC, STATIC, and CONTROLLED chains.

SETBRF (JL)

Sets the reference to the current entry type 1.

SETDVS

Sets the dynamic dope vector size for non-adjustable structures.

SP54

Calculates base element multiples.
Generates code to initialize starting address storage for overlay
defined items.

ISTBASE (JM)

I
I

ISVARY (JL)

Generates code to initialize string dope vectors for arrays of
varying strings in structures.

I
I

ITERMWS (JL)

Terminates object code.

I

IVOBJC (JL)

Generates code to initialize string dope vectors for varying, non-

~
~
~

I
I
i
I
I
~

I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I

IL __________________ ____________________________________________________________________
structured arrays.
JI
~

198

Table JP. Phase JP Translator Defined Check

r-----------------------------------T---------------T-----------------------------------,

I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

~ubroutines

I
I

Used

~-----------------------------------+---------------+- ----------------------------------i

IScans DEFINED chain; checks
Ivalidity

IIEMJP
I

IGETCLS, GETLTH, STRCMP
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IChecks that two structure descrip- ISTRCMP
INone
I
Itions are the same and that they
I
I
I
be validly overlaid
I _______________ I _ __________________________________ JI
lImay
___________________________________
~

Table JP1.

~

Phase JP Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

I

FUnction

~------------------+---------------------------------- ----------------------------------i

GETCLS

Analyzes structure descriptions, and checks that all
the same defining class.

GETLTH

Obtains length of string or numeric field from associated dictionary
entry.

IEMJP

Controlling scan of DEFINED chain; checks validity.

JP8

Tests whether defined item is packed.

JP20

Tests whether base defined item is adjustable.

JP200

Tests whether item is a structure.

JP540

Tests whether defined item is coded arithmetic.

JP541

Compares base and defined item.

JP542

Tests whether defined item is dimensioned.

JP543

Tests whether base code is arithmetic.

ele~ents

are ofl

I

structure descriptions. ___________________________________ J
LSTRCMP
_______________ •___ ICompares
_________________________________
~

Table JZ.

Module JZ Compiler Control

r------------------------------------T---------------T-----------------------------------,
I
I Main Processing I
I
Function
I
Routine
I
Routines Used
I
I
~------------------------.-----------+---------------+ -----------------------------------i

IReconstructs the phase directory
IIEMJZ
Ifor the second half of the compilerl

IRLSCTL, ZUPL, ZEND

I

I
I
I
I
I ___________________________________
EnllLE-Q§/36Q: BLDL
I ________. _______ I ___________________________________ JI
L
~

I
I

~

Section 3: Charts and Routine Directcries

199

PSEudo-Code

Chart 07.

-....

L~gical

..·

Phase F1Jwch3rt

• 1'7 •

• AI·

.-.-.-.-.-.-.-.-.

A3

••
• •••• A4 ••••••••••
•• ANY..
.CALLS I: F"IS
I1L •
•• GENERIC •• YES
.-.-.-.-.-.-.-.-•
••
ARGUMfNTS •••••••••• X.
PROCESS
•
••
••
•
r,t:NFRIC
•
••••
... FNTRY NAI1ES •

.................

•
•
•

UTILITY
SCANN ING
PHIISE

81

.•.x

•
•
•

••

••••
•• DYNAMIC •• YES
INITIAL
••••••••••
••
••
••
••

.. ..

*.

.•.X

•••• e •••••••

X

••••• 11 I ••••••••••
• SCAN
LA.

• NO

.. ..

.................

.!.

X

• NO

• •••• B2 ••••••••••

LR.

.................

.. ..

X. CONSTRUCT P-C •
•
TRIPLES FOR •
.DYNAMI C I NITI AL.

.COMPIL ER FNS nM

.

:£................

• NO

...·. ........................ ..
x

X

·····B5··········
.-.-.-.- .-.-.-.-.

83
••
• •••• S4 ••••••••••
•• ANV ••
.CALLS &. FNS
MI1.
•• CALLS OR •• YES
.-.-.-.-.-.-.-.-.
•• FUNCTION
•••••••••• X.PROCES~
CCk~.
.R~~ERENC;~..
~~vhc~~lgNS :

*-.-.-.-.-*-.-.-.

.INITIAL

•
PROCESS
•
*COMPILE R FNS & •
.PSEUDo-VARI MILS.

•••••••••••••••••

)(

·.-.-.-.-.-.-.-.-.
..··C5···.······
.................
X

CI
••
• ••• *C2 ••••••••••
••••
.INITIIIL
LD.
•• STATIC
•• YES
.-.-.- ....-.-.-.-.
INITIAL
•••••••••• X.CONSTRUCT DICT,.
••••
••••
:sTi~r~ll~I~?~L :

.. ..

*.

• NO

.ASS I GNMENT

.................

...·xx........................ ..
.-*-*-....-.-.-.-.
....
.
.. •..
..................
·X
.

·
...• x•••••••••
X

01
••
• •••• 02 ••••••••••
••••
.00 EXPANSION LG.
•• '
DO
•• YES
•• STATEMENTS •••••••••• X.
EXPAND
•
••
••
•
DO LOOPS
•

.•.·

.................

·

• X••••••••••••• 'I.e." •••••

·FI··········
.....-.-.-.-.-.-.-.-.
.................
.... .

··...F3··.·······

.emE

x

••
• •••• GZ ••••••••••
ANY..
.STRING HANDL LX.
• '" STRING
•• YES
.-.-.-.-.-.-.-.-.
•• EXPRESSIONS •••••••••• X.
CONVERT
•
"'.
••
.STRING TRIPLES.
Gl

III

G.l

..

•

..** •••••••••••••

JI

••

.•.x

·
•

·· ..

••

·

.•.

• X•••• " ••

X

................
........

·

•• X. Gl ..

J3

••• "

00

eo

G ••• " ••••

YES
•••• OPt~nspR ••••••
••••
0

eo

(1 • •

0 0

I)

•••

e ••••

~

•
•
...

2ND PAS~

...
K

/>In

*0

It.

(1,.

• ORIE'ITFfl 1/r')

••

.* I N-Ll 101 E*Q ••
••

• •••••• CONVERSIONS.·
• • • • 3RDPASS.*

.,*

*. • 0*VFS

CI

··.··J5···.······
.-.-.-.-.-.-.-.-.
X

.CP •

'"
•

*.* •••••••••• * •• •*

.

0- • • .,." • • ,.. 0 )( CI

• )( • • • • olt." • • • eo" •• oo.t\o.oe.

X

K3

_.* .*K4****** ••••

.. 0

ox

····
. K5·······*··
.-.-.-.-*-+-.-+-*
.crlN~TA'ITS

•• lINV ••
"nATA FURI1 NT ,'I\).
•• DATA nR •• YeS
.-.-.-.-.-.-.-.-.
••
FORMAT
." . . . . . . , oX" MM(E LIB CflLL ..
••
LI STS ••
.S~QS FOR DHV ..
••
...
.. FnRMlIT LISTS •

• (I"
~

·

•••••••••••••••••

• NO
•

•

G "

• • ., G C' •

e

I'J ., 0 "

., (I ., • • 0 -0 •

..

eo'll( "

(I

o.

II

eo" •

0

,

~

II!

*****.*. **.*.* *••

x

*.***

..." '"

...'~A2*

2 00

os.

.cnWERT CO'lSTS •
• Tn 0EOO 1Rff) ".
• INTFRNAl FClRM '"

Phase LA Overall Logic

C:hart LA .

.....

..•

Diagr~m

·LA •
• A1·

NOTE:
THESE ROUTINES ARF. SCAN
RgUTINES CALLED BY
C ~P LI'R PHAses IEMLPJ
THROUGtl fEHOE.

X

•• ~' •• Al·······.··
•• Fl.AGSl
INITIALIZE
•
PO NTERS.

DYI

••••• A3······.··.
.CONSTRUCT DOPE.
• ••• A4 •••••••••
•
VECTOR I N . .
•
RETURN
•
• WORKSPACE FOR ••••••••• )(.
.BASEO AGGREGATE..
•
~

.................:•
A~80k~~~

:

•

! •••••••••• •••:

,

X

MYZ

:

• •• ··83.·· •••• • ••
~~n ¥~E~:

•• •••••••
•·····81·
•
•
TRANSFER TO •
: s~:~R~bnH~~ :
•••••••••••••••••••

.•................•
:

x

•••••
•••

oij~~MG~~fNG : •••

·

•••••••••••••••

•••• *64 ••• •••••••

0. x· 0)(:

RETURN

•••••••••••••••

:

..0:

HY~t• ••
MY3A
·.C3 ••••••••••

·LB •
• AZ·

:GEN~~nE~s~~XT

: ••••
.TO OUTPUT 8LOCK.

•••••••••••••••••••
SC2

·

..

••• '~.Ol········.·
MOn I ~reR ~~T
OUTPUT

... .............•

:
•

•

: so ••••• 02..........

: ••••• :
•

,~

•
•
:

UPDATE TO
NFlCT Til. I PLE

SCl
• •••• 03 ••••••••••
•••
•
'~ •• ·D4··.·····.
.)(
•
S~AN F O R . .
•
: . I• • • • • • •
RTiV~HEO
: •••••••• )(:
RETURN
:

.................

K:

.................

•

• •

1'4·••••••••••
.1'3···... • ..40 •••.
•:••••• ···.1'5·.·••·•·•

SC4'~il~.El..........

•
.:•••
:

.
.
...................
• MARK CURRENT
rN:~~T~bOCK

•

e ••••••••• tt • • • • • • • •

.... ....

....................

•• WAS ENTRY •• NQ
•
o.e$.o.".x ... x.tt:!
SC6 OR S~Z ••••\. •• Xe.,)(:
•

SC5 '1~~.Fl ..........

YES

...............

ACCESS..
T~i~lF
e.oX:

RFTURN

•

:

··
..
.................
K

•
••
CURR ENT
:• MIIRK
ll~~U~A~~~gK :.& ..................••.
• ,
•

.................

sce '1~~,lGl ••••••••••

I~ • • • • • • • • • • • • • •

•

• ••••F 3 ••••••••••

•
0 • • • • • • (\0

•••••

•
•

MaYI' TRIPLE.
•
TO OUTPUT
•••••••

G3···..

•••••

G2..........
r"' ••••••••••
•
• • UPOATE INPUT •
••
WAS
••
•
'40YE T H E .
• ••• GIj •••••••••
• MARK CURRENT
•
•
POINTER T O .
•• ENTRY AT •• NO
.COnE OELI'4JTED • •
•
INPUT BLOCK
•••• o • • • • X.RF.GISTER STt.TUS . . . . . . . . . )( •• SC11 OR SC12 •••••••• "X. BY JHP TRIPLE ••••••••• X.
RF:TURN
•
•
•
WANTI'D.
•
flYrES.
••
••
.TO OUTPUT BLOCK.
X.
•

.................. ...................

·

x

.. ...

*...
•

YES

• • II!I • • • ~ • • ., • • It

·

.

................... .

_.:J o •• " •••••• eo It.

.....**** •••**.

0 •• " ••• 0 ••

SC9dH~Hl . . . . . . . . . .
•

*

HARK CURRENT
INPUT BLOCK
NOT WANTfO

•
••••••••• ,.0 • • • • • 0
•

•.................•
..•..Jl..........

•

SC1"

.....

J2 ••••••••••
CONYERT THE • •
•
• ••• J3 •••••••••
SYMBOLIC.
•
ADJ U S T . .
•
INPUT POI NTER •• ". . . . . . X.PARAHETER BLOCK ••••••••• X.
RETURN
•
TO ABSOLUTE • •
• •
•

·....
•
•
•
•

•
••

. ............ .....

,~............

"'

...............

section 3: Charts and Routine

Lir~ctories

201

Phase LB Overall Logic

chart LB.

Di~g~~m

... ............

•••AZ·
"'lB·

•

ic
.....··AZ·········
•

SCAN

.!

T~~T I~~R :
•••••••••••••••• 1(: i~a~
AL~~JLr~p :X•••••••••••••••••••••••• ·•••••••••••••••••• :

•••••••••••••••••••

.•.
fc

BZ

•*

••

*•

....
··.·:0

• :·EOP lAfpLE .:.!~~
••
FOUNO ••

.....

.....X

:~~I:

•

NO..
••••••••••••••••••
*.

EZ·· .

:.••:u. .~.~•••:

•.•. .•.•

:-.-.-=~~

•
•

PR9C'Sf
ANY ~lAT Al

Tc

•

.•.•G2

••••• G~:T:;·····.

...............
TO MAIN

.........
•

x..

.•.

••

N:

Auto"~9Yc

•••••••••

:•••••••••••••••:

•

INIT I AL PROCESSING
•
•

•

SC N

•••.

CHAIN.

G3 ••••••••••
x...................
.

....

NO
•••••
INItIAl
••••••••••
RETURN
•• Fl G Oft ••
•

*•••

•
•

• YES

...
ic

••

••

••

H2

••

*.

•

•

......................

is
••••••••••••
yes
•
PROCESS
•
IT" AN
X.INITIAl STRING.
"'. A RAY..
•
•

.. ..

...*

*

·NO

fc

MAIN

•••••JZ ••• ••• ••••

•

INI~Vi~T~NTRY

•:
••

...................

:

••

·• x••••••••••••••••
ic
····*ttz . .•••••. •••

CNSTWK
•
•

•
•

202

.

0 ••••••••

OUTPUT.
• ••• K3 ............ ...
5NZ A N D . .
•
ASSIGNMENT
••••••• " X.
RETURN
•
TR I P l E S . .
...

·........................

Olt

ElD

••

••

*. *•••.*
x•

SCA~t~.*E3.~........

YES ••• :
~lTE·· •• NO
:
.X. •••••••••
~k LE
•••••••••• X.
•
•• F UNO ••
•

•*

OF
••
AU O"ATIC ••
••
HAIN.·

•••••••••••••••••

.....El.'.........
. -.-:

...

• YES

..,z.!••••••••
•: lOY ~~~~~AiNTS :•
••
••

AUTiU •

........................

....

*EIt.\ ••••••••

:.. ...... ~1~._
X.
PRoces~ .
• ANY INrTtAl

.... _:•

:•••~u:n~.~•••:•

Phase ID Cverall Logic

Chart LD.

Diag~~~

"'' ' ' ' ' '
'" '"'"

"'lO '"
'" AI'"

·X

: S T(\OO4)

"'' '0' ' ' B1•• "'''' •••• '''.

:

:,

~2~~Ul
sr:~~

:

·

:
'"

• • ~I • • • "' • • "' • • • • • • '"

x

•••
GAAt·
.",C1 1 ""..
: •••
~
.~, OAi.
"'. YES
•
INHul.
··~I. IU:A~N •••••••••••• lC:
sn~~

:."''''.''''''.'''.''''''.'''.''':

~

··~'·*oI···.······
cORRiHI~NTRY :

:
•
•

:•.

•
•

.

·

• ST999~1

•

••"'."':

ON
CONSTANT

,."'.~~U=

lC

• ••'.*1:1.·
•• ·"'···.:
MAK~olLOT

..

:

:...
~3=n:~fO :
• ..........."' •
'

·
·
· .•...FA··········
~

:STN'88

:

IN~Hh

:

:

:

:

l~~W

•

•

••••••••••• 41 •••••

G)

• NO

•*
••

••• e..

•..

..

K,

••

END
OF CHAIN

CNSTWK
••
A •••• NO
:: COR~~~~I~NTRY :
FA~~:;R •••••••••••• K: CON~~ANT
:

"'·"'''''''C4''''''''''''.'''''''''''''''

C1

..··1T1~

:........ x••••

•••• '"••••
NO
.CNSTWK

•••

*Ci•• ••••••:

:.",,,,••~~:l~,,,,,,,,,.,,,:

"'. "'. • ..'
'"
YES

CNVERT
X
• •••• 03 •••• • •••••

·•
•
:

CONVERT TO

'"

•
:

..............."'•.
FW~~AI~RO

GACl

K

"''''.''''''04··
••·.'''••:•
MAK~ ~LOT
: ~S'M~~~~n :

...................
:'

•

•

ARRI~.*E1.i••••••••

•

•
:x...........
•

.................

:•
•

seT U P .
Tn~ll~~

•
o •••••

STI)~~ •• F3.! ••••••••
•

POINT

•

:• VAl~~
T~t~T :
TO TABLE
••••••••••••••••••
••

*. .,

*. *•• *.*

.*

•
•• JC • • • • • • • • • • • • • • • • • • • • o • • • o • • • oooe • • • • • • • • • • •

• YES

~
• lG •

•••••
• At •
•••

Section 3: Charts and Routine Lirectories

203

Chart LG.

.....
•.•A1·.

Diag~~~

Phase LG OVErall Logic

·•••••••••.•
.•.
....
....
.. ..

·LG •

• A3 •

.
. x:....
................. ....

x

LGOOOO
fc
·INITIALlZATlON •
:
~MRi~r1~ :
•
DO BLOCKS
•

•••••A1··········

41

•
•
.................

••

• : . WHILE'
••

·:.:~~ ••••• lC: g5~@R~l5'4T~T

••

: ....
III :
STACK ENTIlY.
•
•

•

• NO

LGf"Zl~ . .B1.i ••••••••

•
•
•••••••••••••••••••
•
•

:SCRATR~LEA'S
H S RAGE: .......

x

·LS •
••••••
A1·
••
..

x

C1···..
LGO~ll •• c2 ••••••••••
••••
• PUSH OOWN 00 •
••
•• YES
•
STA~K A~O
•
••••
00
•••••••••••• K: '~JL ~H~~
••
••
•
ENTRY
•

.. ..

• NO

:
................
.
. .....
..
......
••...02..........

.••.•03...........

•••••••••••••••••

• •••••; ••i •••••••

•• X. B1 •

x

01 •.
•••

LGClt:' 11

....
• ••• YES
: PU~Ag~'Ngo :
: ~ftNAiONT~~h:
ic ......
••
ITOO
.......... K. INITIA~I~E
......... K. AN~ l~¥ il
•.... K. B1 •
••••
••••
:
NE~N~R¢ K :
:
nA~K 9~TI~:
• .....

•• .•

• NO

X
E1···..

LGI'~l~.~,F ••••••••••

....
.. ..
• NO

LG('~IZ ••

*..*

•

• " *cONTRO •••• YES
:
•• VAR IABl~
.......... )C.
••
••
•

•• • ••NO

•• • *

*.

DO STACK

Fl···..
X

*.

gros
~~!E C!i8~P
ANO PDP UP

.................. ....

•• ' • DO' •••• YES
:
•• DR tTOO'
•••••••••• K.
••
••
•

G!

...ic

•

••••••
•

•

F2.......... E

)CP~~k •• F3 ••••••••••

SY~~~~~tTKEG

!

:
:
ANA YZ TH
FOR LOOP
........ ")C. EXPR~SS ~ON ~N •
CLOSE.
• ENSUING TEXT •

••

•••••••••••••••••

•

•••••••••••••••••
ic

••

TO,BV

*.

:

••••• lC. B1 •

*•• *

*. ••

.-

.*

YES
,
•••••••••••••••• eo ••••• e ••• '·II • • • OO

•• ••••
•
111 •
•••••
•

• NO

ic

HI···..

••••

• :. TO~AB~. ·:.!~~
•• EQUALS ••
••••

•• ••

"'00

H2..........

LG~ ~~! ••

• GENERATE TEXT •

..... X:•
•

~REn~l~~

EXPRFSSION TO
A TI'HPORARY •

•••••••••••••••••

x

lG~"21

• •••• JZ ••••••••••
.SAVE LOOP ENTIlY.
•
AND HI' 'IT
•
....
.... YFS
••••
WHllf ............
~~'~~FA~~TWN :
••
••
..
00 STACK
•

.. ..
·.....
"lO

x

• A3 •

* *••• •

204

..SPEC

•• ••

.................
·•.....•

'1:

x

••• *

• 81 •

o.

.00

ic

•••
Jl
••
••••

•

H'3···.11

••••

COOlii
••• H4 ******* ••••
•

:• ... ,•••• x.lhRn~V~FpARt:.:~~,
••• lC:
•• OF THIS ••
•
•• ••••
•
• IH ••

....

GF.NE"·~~b H~T

! ... :

•• •••••••••• * ..............
COlli'lT COOl'

•

Phase LS

:-::hart LS •

.....
.•

Logic Diagr3m

~verall

·LS '"
• AI·

'"

X

••• ;·"'Al·.···"'····
•
INITIALIZE
•
•
WORKS PAC E
'"
• ANO TEMPORARY •
•
I)ESCP.IPTION •
•
STACK
•

............
.."'. . "'..."'..

..
·· ..
.-.-.•-.-.-..-.-.-.
.. ...............
• Ell •• X.

X

L Elf •••'.

·····81··········
•
LA
•
•
lJISE SCI TO
•
• LOOK FOR TR IPL E.
•
0" INTERE'ST •

"'

x
•••

eopz.. ......C2 ............ ..

CI
••
••••
•• END OF
.... YFS

*. ...

PROGRAM

.. ..

*..1lI

••

••• O

..
•

•••••

••

01

WANTED ANO

•••••••

•

~r

X

•

••

LflE21

*.

-. *•• *..

.* ))2
*c

·

.0 .0

••••

",.

• •••

*. '" 1:.'YES
.
K

•••

.

C O"lST
• •••• F 3 ••••••••••
CREATF
•
••
IS
•• YI'S
•
DICTrONARY
'"
".
OPERAND
........... X'"
fNTRY FOR
'"
.A CONSTANT..
•
URGFT
..
"'..'"
'"
CO"lSTANT
..
• NO
E2

•
•

SET UP

"'.

,..0

;ARITH
x
••••• E I ............ .

DES8n~n8NS

•••

•• OP fRAN!)
NO
•
•
••• X•• CONVERSION •••••.,.X. F3 •
·.RI'QUIRf'O ••
••

• YES

:

•

P.ELEASF L S .

.. AI •

.• ~~.: *.·H~~E~kl ~~E·:.
••

••

•

.........................l••.***V
.
..

•

•

.. NO

.•.x

HARK NEXT
PHASES I"

flX.

••

.. ..

:

•••••••••••••••••••

................
.
....
.
· ....
"'

·.......
.. 1'3 •• X.

·
.
•.... ............•
X

•••• '~F I •••••••• "'.

•
I)ETERHrNE'
•
.CHAItACTE RI STICS.
•
OF RESULT
..
,~

GI

.•.x

••

.0

•• STRING
TVPf
•• RESULT

*.

tl.

)(

x

:CONVT

ARITH2

•••••CALCULATE
... 2 .. •• ..····"'·•
8~SE, SCALE
•
•
: H08~'T:~a~f'
:

..................
•

.* ••
*••
*
• YES

NO
•
••••••••

x

:STRING
• ••••·Hl··········
..
OUTPUT
•
•
•
~)ECESSARY
..
••• X: TR IH~~ AND :
.. OESCRIPTIONS •

.....................

• x•• e"e ••• 0'.

RELSTK
~
• ...... JI· ......... • .....
:
TE~~~FcnD :
•
FROM TEMP
..
•
SUCK
•

·............... ....
"'

..

x

X
"'.··.112
••••
·."'··.
AS~~~~RNipLF
~b ~~~aH

H3

~~~.~.~

'"
•
:

SOURC~

:
•

•
••• ""

••

J)I • • • • • • • • • • • • • •

.."' •• Ht. ••••••••••

.0

••••

•

GF.NF~A TE

PS EIJD!)-C::mF
FOR FrXEn

81"1ARY

EXPRESSION

•
•
•
•
•

• ••• **** ••••• ** ••

•• .. ••YES

:ASSIGN
K
• •••• J3 ••••••••••

iND.
•
TARGET IN
•••••••
IJE~~d~~~~Y :

......................

~L"AT

FXC I

••

0"

:

....:

•••

••••
•
FIXEO
"10
•
••
DECIMAL
o • • • "O.",.X.
••
••
•

• • • • • IOt • • • • • • • • • • •

:...... x

FOR

X

ASS IGN

:
•

PSr:lJ")O-Cf)O~

EXPRESSIJ"I

·····G3····.··.··.

TARGFT
.........FOR"'."''''''''''.''''''
.. ' ' ' ..•

:

•
•••

..
:• ~~~~¥l~~~
:•
AllGNMI'NT
••••••••••••••••••
•

elr :•
TI Mf'

G~t T0 ~j

WORKSPACE

...'~ •• F4 ••••••••••
Ge"lEP~.TF
•

iII..*
*
*••
• YES

"'····GZ··········
..
•
•

LRFLl

••

•• OPERANDS ••

•

:

....

••••
•
.,.
., NO
•
• •• X•• FIXED POINT •••• ,.•.•.• 1(.

K

*. ••

F3

:
•
•
•

..

AS~~~~RtUPLE

:
•
•
•

.................
FOR DECIMAL
S~IFT IF
NEEDED

K
...... Kl· .. ··.·"' .. • ..
•
Ann ANV
•
'" RESULT TEMPS •
'"
TO TFMP
'"
•
SUCK
•

·....... .."'."'.......
··....."'....
"'

x

• I'll

•

Section 3: Charts and Routine Lircctories

205

Phase LV Overall Logic Diagc3n

chart LV .

..•

•• $ ••

·LV •
• AI·
NOTE

..... Al········.·
•
•

·

I ~I TI ALI ZE
CO""O~

•
•

.

: TO:Nbn :
•••••••••••••••••

I

THESF TWO ROYTlNF.$

K

STUTO

A~r:

··.*

~~~YSIHNgA~l~bl~VS •
COMPILER PHASES IEMLW
THROUGH I E"'OG.

····AZ·········

• lSTUTl
•
•• •••••••••••••••
••

•

.

*·A4· .. ••• ... • ..
7.STUTZ
..

•••••• *•••••••• ..

x

•••••
·U •
• Al·
•••

X

STRUTl

•••
••
IS
••
•• SOURCF
•• YES
•• OPERAND A ••••••••••
•• CONSTANT ••
••

8Z

.. ..

...*
• Nfl

: STRUTZ
X
• •••• 8~ ••••••••••
··.*·84· •• ·* •••••
• CRFATF NFW
•
*OETFR'1INE TVPF •
.f1F STRING DOPE.
•
OICT lO~ARY
•
X.
ENTRY FOR
., . . . .
•
VFC TOR
•
•
CONSTANT
•
•
RE(IUIPEI')
•

·.................

.................

...

it

LSUTl7

•••
(Z
••
•• RFSUlT..
•• STRING
•• YES
•••• L~N~~~ . . . . . . . . . .

*.

.. ,.

••

it
·····C4.•••••••••

• •••• C3 ........... ..
•
•
•
CONITRUCT
•
8UtRI~HGN
:

.,)!:

•
GI:'IERATE
•
PS f.UO'J-C~OF
• TIJ (NI TI
HI:
•
DOPE: VFC OR

A

.................

..*

.. Nfl

•

•
•
•
•

: •• ~~.~~~~1~~2 •• :

·

·
.
·..................

LSUTZ7
X
...... OZ··········
CO~STRUCT

•
•
•

•
ASSIGN
•
TRIPLE.

·

• K••••••• if!

LSUT26
it
• •• ··E2··.···.···

:

A~~7~~AI~0

"'.0. "'. ., ...
~

.

0 •••••

·····"'4·····.····
it

:

•
•
..
•
..

ANY T"'PD
TRIPLES

·

• X••••••
II

LSUT?2

•
•

*•••

.*

• NO

K

.····G7 ............ ..
RETURIII
..
•
•
OFSCRIPTTON •
•
UF RFSULT
•
•
STRING
•

·

.

* ••••••••••••••••

··..................
K

..

206

..

•

..

It • • • 0 • • • • • • • " . "' • • • • • • • " . , . • • • 1& '" C

1&

•••
FZ
••
• ·STRING ••
•
• -nOPE VEl-TOM •• YES
•
•• •• R~~~V'REO . . . . . . . , . . . . . . . . . . . . . . . . . . . . . . . . . . . .

*.

•
•
•

..................

·..................
•
•

INCREMF.NT
AOOR
OEPENOIIIIG
ON TYPE of
OOPF. VECTnR
RETIJR~

.···HZ···· .. • .. ••
RFTURN
..

··.................
~

••••F4* ........ .

..

R~TlIP.~

•

.....

··....•••..

Diagr~m

Phase LX Overall Logic

Chart LX.
·LX •
• A1*

•••

•

BEGIN
X
••••• A1 ••• •••••••

A4

•••
INITIALlZI'
•••••••••••••••••'"

••
•

·

A4 •

•
x
•••

lIl2

••

• •••• A5 ••••••••••

•• ' . NOT •••• YES
:
p~~~~l60E :
•• OPF.RATION •••••••••• X.
I'OR
•••••
••
••
• NOT OPERATION.

.................

.. ..

.

*..*

•

• NO

.•.

•

K

••

'14

••

CAN ••
• •••
•• IN-LINE . , NO
•
•
••
CODE BE
•••••• K. K2 •
•• GENERATED..
••

*0

*•• -

••

• •••

• YES

x

• :'~

••

,~.

•••

C1

LB

••

*.

•

....
.. ..
~~8c.R~M

.•.x

C4
••
. .••• C5 ••••••••••
••••
•
GENERAT!'
•
•• CONCAT
•• YES
• PSEUOO-COOF •
~'.
OPERATION . . . . . . . . . . K.
FOR
•
••
,.
• CONCATENATION.
••
••
•
OPER AT ION
•

• •• "'.C2 ••••••••••

•

..··"'··...·..······MB
. ......

.: .~~~ ••••• K:
••
•

PH:~rKMP

.. ,.

: ••••••••
I F WANTED.
X

• A1 •

• NO

•••

x

•

*"

• *.

..................

1'j0

•

FUNT.
*. .,
02
••
03
••••
•• CAN ••
• •••
•• NO
,.
BOOL
., YES
••
IN-~INE
•• NO
•
•
•• o. 0 ER T ON ............. X•••• FOOCT ION •••••••••••• K•••• ~~~RA¥~D •• '." , • K: H2 :
,.11
".
••••
~TRll'i

• 0

**.
••. **

• NO

K

STROP

•• ~' •• E1 ••••••••••

•• SET UP ••
: ClEs2:~ ~~~8NS :
•
•

T5 •••••

:
•
•

.•..................•
•
•

~,

OTHE~

TRIPLE
TYPES

.

X

•••••

••••••• FI· •••••••• ••
:CluR~H~~I~~lcs:
•
• ' OF RESULT ••

••

F2.~••••••••

••
•
••

.................

.................

.•.x

x
•• ••••
•
B1 •

Gl

•
•

•

I'jO
•••••• CONVERSION ••
-.REQUIRED ••

*•••

••

• YES

.....-.-.-.-.-.-.,

••

•

it

•
:

0)(0 111 • • • • • • • 0 •

••••• F4

SET OP

:
•
:

•
:

N~~8EJg

.•.

................
..
.

• NO

REL

P~~~g~t~OE

.ft •.

RlSb~k~o

*.

.*
*
*••
• YES

••

:

o*.C'1'I

:

.................
•
:

AOOU~"G5.~ ••••••••
•
:

•
0

A~~L f~~~s

USED FROM
TEMP STACK

"

••

NO

U~ •• F 5. ~ ••••••••

:
:
••••••••• K.
o~~~:mjN:
K:
FOR

11

XOI:CO.OOflO • • OO

••

ADO

A~~EU~bS
TO

•
:

*

TEMP ST ACK
•
•••••••••••••••••

~

··.··H2··········

•• CREATE MASK •
•
FOR
•
•• BOOl FUNCTION.•

:.~~~.~~.U ~l~~.:

•••
L!L8
••
• •••• E!> .......... .
,...
•
GENE RATE
•
•• AND-OR
•• YES
•
PSFIJOO-COOE •
•• OPERATION . . . . . . . . . . X.
FOR
•
••
••
.ANo-OR-E KCl. OR •
••
••
•
OPERAT ION
•

.. ..
.a........
•····*F3··.·.·.···•
•••••••••••••••••
.
. . .................

.................•

SETUP.
OPERAND
•
•
• DE SC RI PTI ONS •

G3

X

• GENERATE PSEUDO.
• -COOE Tn CONV- •

o. x

E4

•

••

.•
*• ••
•• ASSIGN

. .................•

x

:L11
•
··.·.Hl.·.·"'····.
.ZSTUTl
LV.

Olt • • • • 0111.0

X

•••••1' 3 ••••••••••

• )C . . . . . . . . . . ".

••••• •
••••• •
• H2 •
••••• •

••

•• • * OPERAND -. ••

*.

MOVE TRIPLE
TO
OUTPUT

••••

• YES

1'2.:••••••••

: HT. F~~RS

.. ..............

.

*....
*•• _

*III.
.*
•• *

• YI'S

•••••
•
B1 •
•• ••••
•

····.,..3·····•••··*

ASS IGN

X

•
GENERATE
• ASSIGN TRIPLE.
•
TO ISOLATE
•
.STRING OPERAND •

•••••••••••••••••••

•••••••••• "x.

...
ic

••

•:.••

J1

MAX

••

••

~I~A~~
·:.~~ ••••••••••••••
KNOWN , .
*.
••

·••••..

*•• -

• YES

• K2 •• K.

K

•..... :

LIB1 •••• K2.~........

Kl···..

.. ..

•• ' \ENGTH •••• YES

*. .,

>

25~

*..*
• NO

x:

••

••••••••••

:

p~~~b~~l50F.

:
.OO.O ••••••••• O • • • • • • • • OO"
•

.................

x.•

•

TO
CALL LIBRARY

•
.....

O.fI.""' •• eol'O • • • • • • • Ol'OOOoa oe

~

•• ~

•

ic

••••• •
••••• •
•

A4 •

Section 3: charts and Routine Directories

207

Phase MB 8verall Logic

Chart M2 .

Diagr~~

•••••
• 148 •
• A1·
••
•
x

••••• Al··········
.INITI ~ZATlON ••
: Lg~¥
~n~n':
•
ST AG~
•
•
•
FOR TA K

••••••••i •••••••

·.......

B1 •• x.
•• ••••
••• x. ••••••••••••.•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
K .

................-....-.

HB02U •• B1.~••••••••
•

LA

•

.................

• use FOR
sc 1 TR
Tf PLe.
•
.LOOK
•
OF INTeRe T •

X
HBOOl)4

• •••• C3 ••••••••••

00-·· •• yes
:
I~J~TAh!:
:
•••••••••• X.VARIA l~.l HAKE ••••••••• K.
•••• PSI ••••
:sEfT~s~ §~f~tH :
:

•••• p

••

MBO~ll •• C2..........

Cl···..

.. ..

vA~fY8Le

.................

• NO

l6r..~E¥6L ~g:

.................
AND SET fRT

T~R~fi~~N~~R

•

•••••
:
x

....

•• Fit ••
••••••
ic
Fl···..

H8HI13

F2···..

=' •.

H81~1~ •• F3..........

•• ·*SIHPLE •••• YES
•• ·:s~Y~~
YES
:
•• ASSIGNHENT •••••••••• K•• psv SWIT2H •••••••••• x.
••••
••••
• ••• ON • •••
:

.. ..

H81111 •• FIt.~ ••••••••

~Sf~~ ~N~gT
STAR~ OF

:
:R~~5A: ~5llfn
•••••••••
T"'PO~ FROH •
SEi~~~~~s OF:
K : RE~a~~ A~I)ER :

...... ••••. .................

.................

......

• NO

• NO

001(.

:

1(.

81 •

x

G"

•••

.,

"813"".

••••• G5 ••••••••••

, . ' . END of •••• YES
:
:UnNH~~6 :
••
STAr.K
••••••••• 0 K. PSV SW ITCHES 0 •
•••
• :LEAR STACK •

*0

.•.

H1

• * END

••

OF
PROGRAH

•• ••

••

··••••......
·····Jl··········
·...................
*.

x

*.

.*

• YES

• 81 •

"'8DO l!'l
ic
.RELEASE SCRATCH.
•
STORAGE.
•
•
RELEASE
•
• IEHHB, IEHHC •

ic
.......

• 140 •
.. 81·

208

....
....

•• B1 ••
• •

:14BI318
(I

• NO , .
•

•*

*•• *

...•

•

".

'10

x

ic

NO ••
•••••

.. ..

0

Hit

j. .,

.* PSEuno- *. ••

•• ••

••

VAR I A8L E
••
T"'PO
••

*.

••

··.....,...
.....
•••··J4·•••··••••.
.1(00...
*. • 41·YES

••••

• Jit ••

"IB132r

G

l( •

)(

.......................

•
•
• Fit
•
•

• GENERATE CODe •
FOR PSEUOQ- •
•
VARI ABL E
•

.................
•

*

Cnart Mu·.., • Phase

~D

~verall

Logic DiagriTI

•••••
·"0·
••
•

• 81·

•.~1
:
•
•

•..

• x•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

•X

x

•:

81 ••• "'······

F~iArRIPT

OF I NTER~h

••

• 41 •••••••••••••••

~
CI···..

VARIN

LFA~11 ••c3 ••••••••••

C2···..

.. .. ••••

•••• • fSA •••• YES
.",'. IS
•••• YES
:
•••• FYI6~lgN •••••••••••• X"' ••• IT AOOR ••• "'••••••• , x:

*.

"t~E~nl~V

:

•

02
••
• ••• "'03••••••••••
•••• IISAN •••• YES
:
RE"OYE
:
•• 0 • • • • • • • • •
FI~AP~~xT

•

.. ..

.................

*...*

••

• NO

•

• NO

. •'"•••••'"

"~~lA~'~~N

:".x
•

•• X. 81 '"

ic

•••

LFIGN

.. ..

•••••••••••• X·· •• FmcH~~

01
••
•••• IJSAN •••• YES

••••

fa~~~

*.

•

••

E1

• NO

••••••

LFSPEC...
E2
••

••

.. ..

.".~S~R ?~~EN •• '

*...
•

:···x
•

•• X. 81 '"

i~E~I A\· ••

••' :

.................

.. .... .....

X:•

*..*

NO

ic
•••

•••

NO

YES

*••••••••

• •••• E3..........

•••• I SIT·· •• YES
:
"t~E§~:l:V
X.'.~ ~u4rr~A:= •••••••••••• )(: Tgu~RTRVHEA

...... ••••. .................

*..*

•

•
•

:
:
: •••

•

x

• NO

•• X. 111 •

X

••••••

• ••
LFCO"...
L FOR
Fl..
F2
••
• •••• F3..........
•
•••• IPAN •••• YES
•••• IS IT •••• VES
:
DJ~lK~JTrON : ':
•• ,•• A~~V:£~T •••••••••••• X••• ~~u4~T\A=E •• ' •••••••• X: ?~TaR~¥~~~T : ••••

*.

.. ..
•

.•

NO

...... .....

*..*
• NO

,

0

.................
•

•

•• X. 81 •

X

••••••

SNAKE
LFMOYE
••
G2
••
• ••• *G3 ••••••• "''''.
• •••• G4 ••••••••••
IS
••
••••
•
• •
MOYE CODE
•
IT AN
•• YES
••
IS IT
•• YES
•
PRODUCE.
•
TO OIlTPUT
'"
•
•••••
• EI~o-OF-FUNCTION ••••••••• )( •• END OF AOOR ••,•••••• H)(. APPROPRIATE ... oo"uX. RESET SCAN
I~. TRIPLE
••
..FUNCTION ••
• IN-L INE CODF. •
•
PARAMI'TF.R
•
••

•*

GI

•••

•••

.. ,.

.. ..

*..*

•••••
• ME •
• 81·
•••

·.."'..

*..*

·x
•

NO

• NO

.................
•

.................

••

•

x

••••• •

• 81 •

secticn 3: Charts and Routine Directories

209

Chart ME . Phase ME Overall Logic

.....

Diagr~n

•••••••••••85 •••
85 •.

·"E •
•••

• 81·

•••••84..........

X

SIGN

•

:•

95kK~ijT

•••

.*
*.
:X• ••• !~~~~;~...OR
IA~oU .;.
DOUBLE ••

.....

.................
•

TRIPLE.
•

·.CO""A••

• DOU8LE

.COMMA

.····C5·····•••··.
•••• ........ ••••• X:·
it

SOCOM

•

• PLACE SECONO
IN~hE~t~8K

•
:

•
•
•••••••••••••••••

...x

x

•••
$FUNC
•••
• • 01 S ••••
..°taST:·.
: . .; , , :•• ;:.::.:
••
If A
•• YES
.INoix ~IPE~ •• YES
• ~E~ET ~~LAS
•
•• FU~TION
•••••••••• X•• COMPtET ON •••••••••• X. se' AR UMF,Nl •

.. ..

.'.!"

.NO

:...

:

.NO

E~ ~F

··:¥RiJL~~"·
*•• *

:

*.

:

:

••••••••••••••••• X:

••••••••

:•

.•.

Fl·.
• • A;Gb~En ~.. YES
•• ONE OF THE ......
-.RELEVANT ••
•• FNS ••

*•••

• NO

V~9Al~Lf~!~~·
S~~lt~~US~~T

K

:

•
•
•

·····F2······.···
•
•
•
ODWNOATE
•
• STACK POINTER.

•••••
•
C1 •
•• ••••
•

It.•• ••

*.•
• *
YES

•85 •

• YES

•.A1·

• C1 •

··.·.HZ••X•••·••••
•
•

RESET CF~AG
FROM STApK

: M9~f O~~~U\~

•
•
:

•••••••••••••••••••

·····.Jz.··.·.....·
X

• IF CFLAG • Z
• SET ARGUMENT
•
SWITCH ON

•

.................
.
•

•

•

•

.x ••.••• o • • • • • • • • • • • • • • • • • • • • • • •

··....••••..
X

• Cl •

•••••••••••••••••••

.
X

FS··•••••• ••
••• ••••"'OVE
••
TDB
STACK
•
•
•
•••••••••••••••••
•

••

it

X

·····E5··•••·••··

·

*. *•• *. *

210

••

.COIISTRUCT TOB • •
:TR~HfEo~l~l~o :
• INTO FIelD 6 •

IIIS8

•• ··IT1~NO •••• NO
•• OF PROGRAM ••••••
•• TRIPLE..
•

•

1m

••••••••••••••••••••••• o.X •

•
•
x •••••••••••••••••••
••••
• •
••••• •

x
•••• .
·
·
•.... •
.....
·"G •

"'S7

•
•
•

.

••••••••••• x.x

X

CONSTRUCT
TOfl FRO'"
T"'PDS

•
•
.................

:

•
•
•••••••••••••••••

.............

x

·····F4
.••••·•••·•
•

MS1 •••••E3 ••••••••••

• NO

Gl

N

••••• •

•

El
••
•• IS
••
••
IT AN
•• YES

...x

SWIT H

:••••••••.•••••••••••?

•• X. Cl .•

.•.x

••

................
..••••..

.. ..

..~~U~~

K "....

05

NO •••• I~S A ••••
A~H ~H

X

"'SG

··H4 ••••• •••••
••• ••RESET
•
CFLAG •
•
• FRO .. SH.CK
••
••

.................
·
.
X

••••• J4 •••••••• ••

•

IF CFLAG-Z

•
•

.................
.
•

••

SFT ARGUMFNT

SWITCH OFF

O • • • II . . . . I:I' • • • • • • • • O.1I

••

TO

.

Phase MG 8verall Logic Diagr3n

Chart MG .

.....
·MG •

• AI·

••
•
X

••••• Al.·.·······
• LOAD PHASE "H •
.SASE REG $lER• •
• OBTAIN S RATCH •

•

ANl

•

:••••n2:.~~••••:

·............

•• Bl •
•• •
X.
X•••••••• tlo • • • • • • • • • • • • • • • • • • • • • • • • • •

" •••••• " •••••••••

0 ••••• 0' •••• 0 • • • • • " • • • • • • • • • • • • • • • •

)

x

.-.-.-....-.-......-.

(

~

.

:··~~U~·(:·····:

:LoH~EF~~IT~?PLE:
~:.l=~r.~U

:..

••:

x

:

•••
LFARIN
•••
LFARII
•
• ,.CI IS ••••
..C2 IS ••••
:··=:~r·=;:~···:
••
IT A
•• YES
•• CODE TO •• YES
•
IN ~~A~K.
•
•
•• • /¥~~JlFN •••••••••••• ~ •• B~ET~~~~~f~E···· ••••••
"~~IA~Ef~~N :"'le

*.

*...
.. o·

•. .. ••

..••••.

• NO

• NO

x:

•.••..•••..••..•.

III

•

•• X. Bl •

X
01

•••

••••••

••

LFIGN

02

•••

.0

.0 ..

.. .. ••••

•••••
x:•

03 ••••••••••

••• ,. IPAN •••• YI:S
•••• ,PIN
YES
: RE"RYE TRIPLE:
:
.'l?I~ORE TR I P~~ •••••••••• X••• ~~~~T\d~E ••••••••••••
F 0" TEXT
:." • 1<
_.

.. ..

*.

• III

• NO

·

El

•

.. X. Bl •

K

•••

... .. .................
c*

• NO

••••

••

LFSPEC.·.
102
••

• •••• E3..........

... ': t~EHA~· •• YES
•••• \fSIN •••• YES
:
••• ~'siRr~~~N ............ K· ••!~U~T\~E .......... eo

...*
•• ••
• NO

• NO

·

•
0

:
:
: .. ole

x:• B~~~?WHL ~ •
•••••••••••••••••

•• X. IH •

X

Fl···..

. .....
..
..

....*
•• ••

1~K~T~~~R~O

••••

LFCO"

f2···..

•

LFO: ••• .,.3..........

••• ,. IJSAN •••• YE·S
. . . . IfSI~ •••• YES
:
*. J\RGyHENT •••••••••• 1( • • AN N-\dN£ •••• n •••• cX.
•• ,.!R PLE....
•• :~NCT ~...
:

... .....

•. .•

•. .•

• NO

:

On~n~TtOH:
OF

~~g\Jl'l~~T K

:
•••••
:

••• l ••••~ ••~ •••••

• NO

•• X. Bl •

X ·•••• •
G1' ••••

LFEOF2

G2' ••••

L FE~:: ••G3..........

•• ·::NI~NbTO~· •• YES
••
O~· •• YEl)
:
•• I'UN TION
•••••••••• K•• AN IN-LINE •••••••••• K.
•• TR PLE ••
•• FUNtT ION..
•

.. ..

•Jr..*
• NO

x
•••••
•••

• "1 •
• AI.

·ir Mo

.. ..

-tot.• NO

:~~aM~~IIV~
IN-LINE
COOE

••

G".......... :
:

:
: IIInYE COOE
::
......... X. OUTPut. RE!2T .... .
•
.SCAN PAIIA"Efb •

.................
.

L F"'~:l

..,................

..

.!••

•• 81 ••
••••••

section 3: Charts and Routine Directories

211

Chart MI .

Phase MI Overall Logic

Diag~~m

••••••
·"1

·•.

* Al*

ic

"J •

••••• Al·.········
• LOAD PHASE
•
AND
•
:3:nI~EfllnrH :
•
STORAGE
•

·.......

•••••••••••••••••

••

81 •• X.
• • x••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
.... ic
x

.......-.-.-.-.-....

:··;~U:·(:·····:

:LoM~EF~lT~yPLE:
: ••2~.I=U~S*! ••:

ic
Cl···..

LFARI~

LFA~!l.~i ••••••••••

CZ···..

•••• liSA •••• YES
•• ··co&~ TO·· •• YES
:
•••• F¥:~H~N •• ··········~··B~E~~~~i~E··········

*.

••

*..*

..••••.

•• • ••NO

•• • ••NO

x:•

ic

•••

:

•

•

•••••••••••••••••

...... .

LFIGN

OZ

•••

••

03.......... .
."''''.'''..' ' ' ........ .
• ••••

•••• lIS AN •••• YES
•••• IJSI~ •••• YES
:
·'I~NORE TRtP~i •••••••••• K••• ~~UN~T\D=E •••••••••••• K:

.. ..

"'. .NO
.'"

..· .....

*..*

*,.*

.NO

RE"i~A
F

JRULE:
:
E
:"0ic

•

•

.

•

•• X. Bl •

....~

ic
•••

~nl~Y

•• X. Bl •

01 ..

LFSPEC. "'.
EZ
"'.
••• : l~EHA .''''' YES
.",'''' IISll··"" YES
"'. ASSIGNMEN~ •••••••••• K"'. AN IH-L NE ••••••••••
•• TRIPLE ••
..FUNCTl N ••
El

"tN

M~UJEf~lN :"'ic

••

.. ..

*...
"'.. '"

..

*..*

"'' '
· .",.",.
'" .
'"

'" NO

• NO

Ei •••"' ••"'.... .•

• ••••
:
1~K T~~~Rlo
K.
PR 0 EA
•
BUY T PLE

:
:
•••••
•
K

•.............."''''.• .

•• X. Bl •

•

ic

• "'.
LFCOM. "'.
LFOR
Fl..
FZ
"'.
• •••• Fl ••••"'."' •• '"
••
IS
••
• '" I S . .
•
IN ER T A
•
••
IT AN
•• YES
••
IT IN
•• 't'ES
• DES ~PTlON •
•
•• ARGUMENT
•••••••••• X•• AN IN-LINE .......... , X.
• ••••
"'. TRIPLE ••
..FUNCTION .'"
•
AltG iNT
•

..."'...

•• "'. •",..

"".. ••••

• NO

:",.Ula",i

~~~"' ••:

'" NO

.. X. Bl •

ic

••• ",,,,.

Gl···..
LFEOF2 GZ···..
LFE~U •• ~~..........
LF"~:~ •• G4 ••••••••••
•• I SIT..
•• IS"'.
• Pit UCE THF. • •
•
•• AN END OF •• YES
•• IT END OF •• YES
• AP OPRI AT E •
• "OV~ fDDE TO •
•• • /v~in~N ••••••••• ~ ••
!~UA~i\~~E ••' •••••••••
I~ohlNE
: ....... " K:sg~~ ~~AA=nn : •••

*,.*

•• • ••NO
ic

•••••
·MK •
• AI·
•••

212

K· ••

*..*

•• • ••NO

·x

•• ••••
•
Bl •
•••••
•

K:

•••••••••••••••••• ••••••••••••••••••*

•

Chart MK.

Phase MK Overall Logic

·41...41.......
• 81 •• X.

•

• • x••••••••••••••••

Diag~~m

• • • • • • • 0 , • • •' • • • • • • 0 • • • • • • It • • • • • • • • • 0 • • • • • • • • • • 0

0 . 0"

X

e ,.

0 •• 0 0 ••••••• " ••••

-.-.-.- -.

... 41• • • 81.: ........... ...

.......PHASE LA... -... -... •
:t.o~~E F~i IT liPL E:

•
••

l ......

•••••

OF NT ~.~
R T
fi ......

x

Cl

•••

LFARIN

••

C2

•••

LFARIl
• ..... *C~..........

••

•••• IJSA •••• YES
• ,~··coA~ ~.'.' YES
:
....
FUNCTION
•••••••••• X.... liE PR 0 EO .0 •••••••• X.
•• TRIPLE ••
BY THI
HASE
•

..

.. .. ••••

*..... . *

••

·x

RAME ER

•

• NO

•

•

0

· ......

••••••••••••••••••. .

.NO

••

III

•• X. III 1)1
•
•••• 0
LFSPEC...
Et
••
E2
••
lT
YES
P l · · •• YES
.... ASS G~ N~ •••••••••• X•• AN IN-L ~NE • I • • • • • • • • •
•• T IPL
••
o.F\JNcnllH ••
•

X
•••

.0'·

:· ..
I
*..*

••': le

*...

·

• • • 1It

....

•• ••

.

••

•••••41

LFCON
••
.1)1

F2···..
IS
••
IT IX •• YES

•••••••••• K•• AN IN-L HE

o.~~t«:Tt ~...

..••••.

lFEOF?

··./¥~lJLgN ••••••••••••

•• • ••1\/0

.. ..
~

• M!. •

• A2*

•••

ERT A

RJPTlOtf

OF

IA!i~':IK

•

•

•

•

•••••
:

• ••••~¥.i••:.•••••

•

•• x. In

fi

•

(I

X

•• ·:NI~Nr o~· •• YES

X.
:

•

• NO

•

Gl···..

;l..........

LFOL •••
•
I
•
DE

.G ••• o • • • •

•• ••

• NO

*..*

• x.
.•

•

fi
fi

•• ". 111

Fl···..
IS..
l,~ AN
•• YES

•'.!•• PL•• ••••

.

•
•
• ••• *E~.........
:
r~K TIN~A~O: •
X.
PA ~5E A
•••• t
•
IIUY nPLE
•
•••••••••••••••••

.NO.NO

X

:

:"'x

-..*
•• ••

•• "'NO
••

ARrtME~T

X

••••

*..*

*.•.•

•

.. ".• B1 III
0

.....
LFIGN.·.
01
••
02
••
• ••• *03 ••••••••••
•••• ,PAN •••• YES
.1)1'. IPIN •••• YES
: RE~~E TRIPLE:
... ·l~NORE TRI"!'~ . . . . . . . . . . X•• I)I!PU~TH~E ..... o•••••••• ":
F H TEXT

••

.

:.....:

.................

*..*

... NO

"A~K st~:~
H IFY CAN

••••

lFE~Z ••

G2···..

.0·';'T l~

r:,•••

YES

:

x•• o!~uACT~A~E ••• 41• • • • • • • • , , :

*...
•• ••
.i·••

.NO

il............

:=lIK~alJ.Y~

r,4t..........:
•

LF~~¥S ••

:
:
: ••••••• ,

NOY;

•

~oor 19:

l~iihlN
~lhN;nI
••••••••••••••••••
• •)I:S2~N
••••••••••••••••••
.

:

: ••••

•• III ••
••••••

section 3: charts and Routine Directories

213

Chart ML.

Phase ML Overall Logic

.•......A2·

Diag~3m

• ML •

·

·•
.•
·•••••••••••••••••.
it
·.···A2 ••••••
••••

•
•

INITIALIZE
MOOULE

•
•

•••• ••••••• JC. x•••••••••••••• 0
: FPAfll
it

..:

:····U~·~~~·
~UNCTtON
ARGUIIENT OR

•
•
•
•

••••••••••••••••••••••••••••••••••••

•

•
•
•
•

END OF

PROGRAM
•••••••••••••••••

.•.x

C2
••
• * IS IT *. •• YES
••
*. END OF
••••••••• ,.

.......

....

.*

•• PROGltAM
•• ••
• NO

: FPFNAR
•

.

.*

a.

•
02·.

:.~~.:. ANI~NnV
••

*.

NAME

*.

o·

lit

.1414 •
• .Ai •

•

••

••

.:.
••

• YES

E2 ..

•••••E3..........

ic

•••

FPEPCO

.•.it

••
NO •• 1·B~hl!I~· ••

••••• ••• •••••••••• *.

*.

FUN( liON

·0 *•• *.* .*

••

• YES

FPGAR
X
•••••GI··.·······
•
FORM TABLE
•
•
OF FAMILV
•
•
ME MBFR
•
• DESCRIPTIONS •

·:•.•·Gz··········:

FPB IF

X

R~He~T
T:~~T ~2~RV

·.................. ·••••••••••••••••.
:

:

•

FPARD3

ic

•
•
•
•

FORM ENTRV
RELATI NG TO
ARGUMfNT
DESCRIPTION

x

····*Hl··········

:····~~·~t;·····:

•

.................
•

•

:•

.................•

•

•
•

RHkvANT

:~=~~~

•

•:

······Jl.•····•···. ·····J2··········
X

FPF(,'"

·..................
•
CHECK FOR
•
• ONE ~ND ONlY •
• ONE AGRfEMENT •

:•

X

o~f~\~XE

REFERE'N~E

:••••• •

·.................
•

IN TEXT

)I.

•

it

••••• K 1••••••••••
•
RFPL AC E
•
•
ORIGINAL
•

·..................
:

R~~F~~~~E

214

: ••••••••

¥SNlMIJR5~YE

~4

:

:
: Al\GU~MC:lTH :
AN EN RY
••••••••• IC.ENTRVPARAM .TER •
PARAM TER.
•
REFERENC
•

•

• YES

F2

••••. •...•.•••.

.•••••••••••••••••. .••••••••••••••••.

....
•• ••

••• \E~~IUC·· •• NO
:
••
SELECTION •••••••••• X.
•• REQUIRED ••
l(.

•
c . O . O • • • • • • • • r ... e • • I1 • • • •

Chart MM.

Phase MM 0verall Logic

Diagr~n

•• ••••
'1'1 •
• AZ·
••
•
BEG

·

l~••• Az.a ••**.**.
:
:
•

LOAD

..."'.............
~~~¥~~L 1re

CFE

:11•• A3.**.**.**.

: •••••••• x:

:

•

~C"U~~ION.:

.................:X••••••••••••••••••••••••••••••••••••••••••••••••••••••:
:CA

~NWg~

T TON.
.END OF PROGRAM •

...
ic

B3

••

....

......

•• ··E~A~F . ' •• YES
•• PROGRAM BEEN ••••••••••
••
FOUND ••
X
•• ••
• NO

.MP ...
• A1"

••
•

·

CFC~k~ ••c 3.!••••••••

• S~AN ARi,rr~~T ••
~dle~NThES :
•••••••••••••••••••

•
:

• • • • • • • • • • • • • • • • • • • • • • • • It

CFB!lZ1

E3

Xx
•••

CFFSI TR

••

.. ..
·.......

•• ··,s THI . ' •• YES
•• A BU[LT-fN ••••••••••
•• FUNCTION ••

*..*

••

SAve

•
••
•

..................
ENV'RONMENT

••

•

K

••••••

.. ..

• NO

•

:

•

ic

•••

103
••
.*
*.
yes •• [S THERE ••

A NESTeo
••
•• FUNCTION ••

*•••

••

CFY(iCll

•

yes • •

•

••

..................

•

*

·
H···..

.. ..

*..*

.. ..

*..*

• N O .

CFL~~~

ic

.....*0,. ••••••••••

................•

•...

.
•

CFC~~:.*H.............

H'···..:

JZ.~........

II.
.o...................•

.:

• GENERAlE R~~OOE
•
••
*TO P A
SUl T.
• • • • • • • • • ,. . . . . . . . 1(:
L1sT : . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

A*RBai t

...................•

•

YES

is STRi~
RE U ~'..
FUNC •• ,~I cI~ ~' •• CAll
:
G NORAl:
A
•••• NO :
•• ,.•••••••••• AALL I~ A ••••••• , .•• K.
T~2N~Fe~
......... K
•.••••
IN'IO~A~ION
••••••
••
..FUNCTl8N ••
CONfROl.
•• Ne~T~O ••

A

.
.
:
..
••

•

•
.SET PARAMETIRS •
•
... TO
•
•••••••
THEPR~Or
K R
...
IT 'I
•

K

HZ···..

.K..........

•

••••••••

• NO

RE~Ul

.................

:K·· rc •• ••••••• S~~~~1~E ••••

: ••••• 2~~~.....:

*.

T
DOPE VECTOR

e, ••••••••••

F ...••• ••
•• TS
••
NO.. CALLING ••

• SCAN ARGUMENTS •
• AND GENERATE.
: f~85..l2lr~~T

•
•• ••••••• •••••••• •••

•
•

• ••••

rc

CFC~U . . F3.~........

CFCt'3C

•

CFL~~.' ••Hl..........
: G'E~5RAn $OE :

••

• F3 •• K.

CFN~n ... FZ.i** •••• **
•

•••

*..*

• NO

·

"...

• • :~sA~~n·· •• YES
:Ai~~~RMht~N :
1( ••
BUILT-[N
•••••••••• 1(.
SCQALuL!NCG
..FUNCtlON ••
•
e E.. e

....

*..*
• YES

CFB~ •••J,.L •••••••

•:

E,.:U~~~NT

•

:

••
•
••••••••••••••••••
ic

•••••
•
F3 •
•••••
•

•

Section 3: Charts and Routine Directories

215

Phase MP

Chart ME' .

.....

~verall

Logic

Diagca~

• MP •

• AI·

••
•

.x ••••.•••••••••.••••••••••••••••••••••••••••••••••••••••••••••••••
it
lC

MP8

0 ••••••••••••••••• " •••••

•

••••• AI ••••••••••

•
• SCAN

•
TElCT AND
.MOYE TO OUTPUT •
•
•
•••••••••••••••••

·

.
.:<

: SWITCH ON
• APPROPRI ATE TRI PLE

...............................................................................
MP"

•

it

MP3

•••••81..........

•

X

•
••
!But~M~RlS~&s~OR:
!

•

•

STRING..

••••• C1.·.· •• •• ••
• ST ACK 8UYS DR. •
•
STACK INPUT •
:.lC: SK~gl~be~hT :
•
BUY
•

..... .................
··•••·01.··•••••••. ....

• •
••••••

:
•

.:.
••

•••

ON

X

MPItA

••

..... ..
•

x
•••••
·MS •
• A2.
•••

it

83

• ••• *84 •• • •• •• •••

••
*.
.
8U~~L~LAG .:.~?:

·.................. ...................
END OF TEleT

rc

MPe82

• •••• 82..........

:.~eT
R~~~e T~& PkQ;s. :
•
8UYX FLAG ••••••

••

•
•

IF CURRENfLY

•

lC

JFF
•
•••••••••••••••••
••••

·.
.
. .
.................

'l'ES

• C4 ••••

X

••••••

.• .. un -. •.
C3

.'..

•••

••

-.... ..
•

:

MPB8T
lC
• •••• C4 ••••••••••

YES
•
GENERAT~
• ••••••••••• lC: TR~~tL SL~s9M

NO

•
•
!···x

• C1 •

·····0"······....•
.·.................•

it

AoOSEL

• ADO OICT REF.
•
•
• TO SELL LIST .lC ••••• 01 •

•••••••••••••••••••
•

•

X·

••••

• ADO
•

•

•

OICT REF

• •••••••••• o ••• oeX. TO SELL LIST

•

•

•

•• ~ ••

• •••••••••• x.
X

: MPZ3

••••• F I ••••••••••

•
•
•
•
•

SCAN
•
TElCT
•
WITHOUT
•
MOYING
•
IT
•
• SWITCH ON
• APPRoPR lATE TR IPLE

.................

...............................................................".... .......... .

·

:MP31
it
•••• ·F1··.······.
• 8UYS FN ARG.
•
• MOYE 8UYS-8UY •
• TEXT TO OUTPUT ••
• . REMOYE FROM •
•
STACK
•

'

·:

"II'Z8

·
•

•
:•••••
it
•••••••••••••••••
•..• ••••
C1 •
•

.- -.
.. -.. -..
Gl

ic

••

••

TRIPLE

•

·

••

••

.. HZ •

YES

• 1( • • • • • • • • • • • • • •

..
.
·.................. ..................
X

••••• Hl..........
•
•
•

·····G3···· .. •••••
• MOYE BUYS-8UY •
•
•
.TFXT TO OUTPUT ••••• lC. 01 •

··...........

• NO •• OUTE RMOST ••
BUVS

flUY

"?~F.oJhw=

.....
•
•
••••
·...................
..
. ......

it

•••. *.

..
.

••• •• F" ......... .

..................
...

.X

X

MP8T

• •••• HZ ••••••••••

1'1 . . . . . . . . . . . . . . . . 11 • • • • 18 • • • • • • • • • tI • • • " • • • • • • • • • • • • •

lC

RESET INPUT •
• SCAN TElCT AND.
POINTER TO
••••••••• K.MOYE TO OUTPUT.
OUTER B U Y S . .
•

:1~~lb~R~~TE: TRI PLF.

• • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • tt • • • • • • •

••••

.*

it
J2' it" ••

·0

•
•
YES..
BUYS.
••
• C4 .X •••••• IS FN ARG.
••
••
•• OUTERMOST ••
••••
•• ONE ••

*•. *
•

NO

·..

..
.................
ic

••••• J 3 ••••••••• "

Y

: RE MOeW TR I PLE :
•
FROM TElCT
•

·

.

•••••K 3 ••••••••••

•
•
REMOYE FlUYS •
•••• ceo •••••••••• eX.
FUNCTIO~
•
• ARGUMFNT FRO" •
•
HXT
•

•••••••••••••••••

··....
......
x

•

216

liZ •

o •••••••••• o

MP86

it

·····J4.·········
•
flUYS.
••
:REMnhR~~~MBUY: ••• :
•
OUTPUT
•

·...................

Phase MS

Chart MS.

Lcgic Diagcam

Over~ll

•••••
:Mlz:
••
•
BEGIN
K
·····AZ···.····.·
•
LOAD
•
:
MO~~hE,
:
•
INITlAltZE
•

··.........

•••••••••••••••••••

• BZ •• K.

••••

K

•• • •• BZ··· . . •••••
:
s~~~~Rl~~ED :
:EN~LS=E~R08~AM :

•••••••••••••••••••

...it

CZ

••
END *. •• 'YES
••• ~F C~~~RAM •••• o • • • • • • X
•• FOUND.·
•••••
•• ••
·NA •
•
• NO
•• It*HAS

."i •

•

SBS~UUOZ.!. . . . . . . .

•
•

•

iaK~Y

............"'.....•

:
•

:
•

NAME

. . . . . . . . . . . '• • • • • • • • • • • • • • • . , ) ( . ) ( • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • I1 • • • • • • • • 6 • • • •

SBT~l~ ••EZ.a........

•
• .....

:SCA~ FO~R~~~MA.:

~fMEA

• E2 ••••• K.
••••••

.........

£3.....

SIISTIH
••

IS

.. ..

e ••• ~ •••••••••••••

S8S~~•• *fIt ••••••••••
••

•

••• ~INARY ...~

:

~.......

:

• YES

·.x •••••••••••••

.•.·x

81NARY

.

j) • • • • • • • • • • •

J(

•• F Z . . *.
••
A l~oA~A .:.:~~ •• :
-. *.
.*.*
*•••
·NO

.:.

•
:
:

.................

• •• K.;· AR~rx~~T .:.~~ •••••• J(: C93v~nEAT

•

: OR 'KnCE IPT:

•••

SBOPT
F3
••
• •••• FIt"'."'''' ••• '''''''''
•••• OFI~ET "'. "'. YES
:
~a~Eo~~Ui :
•• KNOWN AT
•••••••••• K. IN CONSTANTS •
•• COMP ILE ••
•
POOL
'"
•• TIME .'"
•
•

.. ..

..............

"'. "'. "'''''''. "'

• NO

'"

.. K. l!2 •
• De • • • 81' • • •

:

X.

SBN~n"GJ .i...........

•

•"'..

leNVUX~ENT

S8TRID

•

K

ic

.*

G2

• "'.

••

G3

*.

:X• ••••• :~!"':··.SUBSCRIPT
ISAIT
.:.
••

til...
....
.•.x
••• O;~A=:=:;.... ••.K..........
Il P;· ••
.. ........"''''''• .";UB"'..
'"
*•• *

:
•

,~"'

....."'......•

,~

•

•••• '"
•

E'NVIRONNENT

YES

0°
.'"

.K •••••••• "'.

•"'."'~I."' •• "'."''''''''''...'"•

JZ

.•.ic

•"'

MAKE ENTRY
~g~SHNJN
POOL

K

• •• "'.H3•••••••• "'.

Hit

.."'.. ..."'' '..

•."'."'

*. "'.

*

"'

•

'"

: J( . . . . . . . . . . . . . . . . :

CI..*
"'. ••

'"

K

"' '"'"
BZ '"

x

'"

.'" o·

• YES

K

.."'.

.."'.

TO ADD
'"
i¥~~E~ I ~r.o T8R :
THREE TIMES '"

...

."''''''' '''.''''''''''''''''''''''''

• NO

"'' ' ' ' '

"'.

"''" ••GENERATF.
"'.J4"''''.'''•••••
''
CODE '"

*. "'.

... .

•••

• GENERATE CODE.
••••
'" TO MULTIPLY.
NO..
IS
••
• SUBSCRIPT 8Y .1( • • • • • • • • • • MULTIPLIER .'"
•
MULTIPlfER
'"
"'. It OR II ••

585029
••

•
:
•

....."'' ' ' .......'''.•

K

SBS05

Ii
SUII,S RIPT ••
•• NE'S ED • '"

''""

."' ••• G4"' •••••••••

'"
•

• NO

'" YES

•• •"'."'~''''J 1."'•• "'.....•
•
'"
RfSTORE·

.. ..

*..*

••
RI
COUNT
••
•• CORRECT ••

NO

SBS028

••

··.:~~~~H~t.··········K:

H2

C:OMPILATI!;,.

•••

••••
IS
•• YES

·NO

: S8ERR
•
•

••

• •••••

."'.
••••
NO.'"
IS
•• YES
A~¥re~

K3

'"

: E2 :K••••••••

"'.

....
.. ..

~BS8RN

"''''···K4'''
"''''.'''.''''''''''''
• GENERATE
COOE •

..... ..... .....

••.•• ., ..... X:•

·

TO CHECK
~~~ER1~T

"'

"'

section 3:

•

•

: ••••
'"

Ch~rts

and Routine Directories

217

Phase NA

Chart NA.

Lcgic

Qver~ll

.....

Diagra~

..•

~A.

• AZ·
•••••••••••• 0 •••••••••••••••• 000.

•

*...

A4
~.

t:." e

_ • • e _ • • • • ., •• " • • •

~A"rr3:

0*. .,

.. ..

••••• A!' ••••••••••

*.

•
•
••
"'ASK
•• YES
• A4 ••••• K•• AS OPERA'ID •••••••••
••
••
••

••••

·

• 83 •• X.

.

•

•
•
•••••••••••••••••
X

'10

•

.................
•

•

x

•••
'1A8r In
84
••
• •••• 115 ••••••••••
••
IS
••
.7STUTl
lV.
•• OPERAND A •• NO
.-.-.-.-.-.-.-.-.
• •• ~tT STRING ••••••• ·····)(:C~~~~~ ~~~RI~D:
••
••
• TO lilT STR ING •

.
x: x•••••••••••••••• :

MOV~.
: ••••••••••••••••

•

··....••••.....
.
.:x...

•

'1ASC 1
X
• •••• 83 ••••••••••

NASC2
••••• 81..........

: LA~IT T~E~~e.

*..*

•

• OUTPUT P /C Tn •
8RA'ICH ON
•
• MASK TO lAIIE L •

,I(.

.................

.. ..

•
DELETE
•
lA ~lT T=l ~~E.
•
•
•••••••••••••••••
X

• YES

·

.)C • • • • • • • • • • • •

,

0 ••••••••••••

NA801Z
X
·····C4··········
•
: °n~~IR~/i,lO :
. . . . . . . STRI'IG TO 7.ERn •
•
AN~ 8RA'ICH
•

:...l:.~~~~~ ••••:

••
••
••

*.

...ic

02

••

*• ••.

EOP2

*.

*•• *

.*

.*

··................... •••• .. ..
• •
E2

•
•••••

x

X

:

.•.

••

•:.*. EXI T

*.

••

NO
RETURN...
1'3
••

.*. ••

X..

•
•

·..................•
••••• •
·.....
OUTPUT CAll
TO IHEOSSA

•

•
ADDRESS OF
•• eo
.LAIIEL, AND CALL.

: .... l~~~~:~
••••:
X

NO

X

*•• *••

.•

• YES
•••
G3
.,
••••
GOOI!
•• '10

,.X.:·•.

*...
*•• *

• NO

.................

•

.••.. F4..••......

:l~~PKlGP{CwIVH:

.:~008G&~O&OLN· ••• Y.;~,. ••

.

• '10

.. ..

.....F3..........

•••
G2
••
••••

•. *.

•
•
•

2...

.. ..

GOOS

*.

*..*•• *

STOP
X
·····Gl ••••••••••

IIIA3NI

•

·:.X••••• ~ !.:.*. oKXHop .*.:.
••
•

ilTPUT
GNME .. T
IPlE

"..
••
• •••• E5 ••••••••••
•••• VAI.UF •••• YES
•• ·*vARIOUS·· •• Y!,S
:~~¥~TE~C~wnl~Y:
RETURNED
•••••••••• )(.,
TYPES
•••••••••• l(.YAI.~E AND OUT PT.
••
••
.,RETURNED ••
~OO
TO 8RANCH •
••••
••••
.ON WTCH VALUES.

X

••

*••. .• **
• NO

•
•
•
•

..

• NO

F2

AS

••••••••••••••••••• •••••••••••••••••••
K
X
X
•••••
·NG •
• AI·

••••
• ••• YES
••
RETURN
••••••••••
••
••
••
••

83 •
•• ••••
•

YES

Fl..

•••

: '1A3r" 5

OUTPUT CAll·
X·
TO IHESAF8
• •

•
•
•

X · .

'=l(tT
••••• E1 ••••••••••
OUTPUT CAll
TO IHEOSEA

·····04·..••·••••.
..
.X..........

• •••• 03.;. ••••••••

.* •.••

• NO

•
•

·

YES

:
•••••

DE

T

:

••••••
A2 •
•

F8L~5WeNG
••••• X.
hl~lES.
•

X.

• GOT

: ...............
:
K

••••

GOT!).
••••• G4 ••••••••••
•
OUTPUT
•
.PSEUnO~DO~ TO •
8Rt~~L 0
:

..' ·.0 ...... 1(:•

••••••••••••••••••

•

K

•

83 •

ic

H2

•••

••

••••
••
ON
••••

Hl

:~;:dl.:;~~~!.:

.•

.................

ic

·.....

J2

• NO

•••

••

o·

... IF

X

At. •

..

83 •

••••

S TG'IAL

• ••• F DR ...... SGNL
••
SIGNAL
............
••••
••••

··....
......
218

••

• •••• H5 ••••••••••

1(.

• •••• K3 ............. .

:
1(.

°nr~~TPl&oln
BYTE IN

P~Y

A~~E~:k\i

:
•
:

...................

:

......
..
x

•

I'll •

• •• *

...

ps~~~b~P'8~E

····.J4··········

'1A1140

X

:pO~T :~~Rr~~ ~~

:
••••••
IN
••••• 11. 113 •
ONt" OR MnRE.
•
•

........................
•
•

...

~ROC"nURE

o'l-UPlns

:•

.................
TO fET SNAP

8~N_8~lfN

··-........................ ..

......
• •
...

•

•••

• '10

•
'lORE
•
•
ON-UNITS
•
•••••••••••••••••

•
lC

•

X

*.

H4

.. ..

YES

•:·~·;~3;·;~c·;~·:
se¥ SYSTEM 81T •
. ' , . ON 1'1 ONE OR •

••••

....

K2

0:' •.

ic

x

••••
•• 83 ••

•

•••

CO Of TO ~ET.
YES ••
••
:1~E~~PoRIMO~~ :)( •••••••••••• REVERT . . . .
ON-UNITS.
••••
•
•

IIIAllrn

••

.. ..

.. ..

• NO

REVERT

•••

• ••• YFS
•• ·SYSTEM
NO
....
• ••• YES
:
•••••••••• )(.. SYSTEM/SNAP •••••••••• lC."
SNAP
••••••••••
••••
••••
••••
••••
••••
:

•

• •••

:

Chart NG .

Phase NG

•••••
•••

Jver~ll

Lcgic Diagrarr
• A2 •

.....
*-.-.-.-.-.-.-.-.

A? .. •.
..x....

•X
~l..........
LA·

•

: ••~~.l~U~UI ••:

••

• •••••
:

~

D.
*.

.,.

••

B1

.~

••

WAIT

•••• ••••

••

....

.*

*. NO
••
•••••••••• )( ••
••
.,.

• YES

BZ

.~

••

*.

DELAV

*..*
*. ••

~ o. ,a.

.*

.

• ~ONvlRT ••
•
:
OP1=~~l;ElO
:
•••••••••••••••••••

• *•

•

...... .

.*

*.

• YES

B3

• NO
••

•••••

.0 *.

o·

II.

.: •

YE S

•••••••·. .
······B,.··
•
•
X

.~

*.

DISPLAY

**.
••. **

."0*

:

••

CAL~ohn~~p.Y

: ••• :

•••••••••••••••••••

• YES

x
·····~ii·········
OP ANYgRT.
T
•
CHARA TE~
•
STRING
•
•••••••••••••••••••

O$PY,CHAR
••
•
•

0 ••••

..
~

·

•• X•••• n.
•

•X

~o

.

1\4

*.
~.
~~£5CATE·:.!~~ •••• ,x.;· YARH~eE
.,.
.~
*.
•*
*....
* •. *
*.

It, :

.0••••••••• ftX*.••

OlAY
X
···.·CZ·.··.····.

·• x.

*00

: ·,J°z·:
:

.-. ••

.:·OR

.

•

/13

...

YES
.......
•

AZ :

*.

*..*
*. ••

EOP

x

:X~j ••• ~

: NO

• NO
•••
••••

••• X. USE SCl T O .
• UIOK FOR TR IPLE*

• Al •

x

.. )C . . . . . . . . . . . . . . . . . . . . . . . . . .

NGO

.•.........•

·•....
.....•

• NG •
• AI·

·.··.OZ··········

II • • • • • • • • • • • • • • • • • • • • •

• GENERATEMALL
'fO I HEOS A
••
.lIBRARY" UlE.

•
•
.................
•

OSPY1!!

K

03

•••

••

OSPY3
• •••• 04 . . . . . . . . . .

.. ..

•••• REPLy·· •• YES
:
••
OPTION
. . . . . . . . . . X*
•• PRESENT ••
,~

*..*
• NO

III

,~

·• x••••••••••••••••
OSPY4
it
·····E3······.···

8~~~~ ~HAl
CHAR~ T~R

•

................
YAR IA LE

:
•
•

.

0 ••••••••

•• BUILD UP ••
• PARA"ETER LIST.
••
••

.................

·

.•.•••F3········.•.
X

G~~EV~6S':LL :
*lI BRARY MODULE.
•••••••••••••••••••

: ••• ., • • • • • • • • • • • • • • • • • • • • • • • • • • • • o • • • • • • • • e . . . . . . . . . . o ••• :

section 3: Ch3rts and Routine Directories

219

Cnar t

.....

Jver~ll

?hase NJ

NJ.

. .

Lcgic Diagram

****

.

·NJ •

... Al"

:

A2 :

•• **

STRTMJ
X
NUSTAT
X
PRGENO
...... Al ••••• "'."'..
"' •••• A2..........
• •••• A3 ••••••••••
•
• •
SCAN F O R . .
•
•
INITIALISE.
•
RECORD 1 1 0 .
•
END OF
•
:SC:2D~~tH:~PSM : ••••••••
~ESBC~F.S5~ :·····.,·l(:RElE:~~G~a~TROL:·······x
•
• • PROGRAM END • •
•
• ••••
•••••••••••••••••
•••••••••••••••••
•••••••••••••••••
."l"1 •
• AI·

x:

••
•

•......B4........

:SC"l~~h~~~~~~

....... BI............
....... .
•
••
•
SCAN FOR
•
•
PUT DPRNO.
X
.DPTION TRIPLES.
• ON SfLl CHAIN ••••••••• X. GO TO PROPER ••••.,
•
•
X .ROUT TO PROCESS.
•
• •
OPRND
•

.......!I'x...........

...... ....................

SE~wSa~l

!•

SVS~~~ •• CZ............
..

·.x •••••••• :
• •

.................

g~~N~OVW

··••••..
•

•

~H ~~~~HT

: ••••••••
... CONTROL BLOCK •

....

•

IGNOPT
• ••••

*

x.~·

c~~hStQ~HtK :x··~

• •

FR~~T~RP~lE

:

:

CaHRStQ~tatK

• •

•

• YF.S
C4· ••• ,
••••

••

•

INTFR"

IG"lORE TRIPLE::

2~2R~Leis~F

•

~

~ •• : ...... :

SELL TRIPLE

•

••••• n l . . . . . . . . . .

o

SET2~X •• C3..........

•••

.................
02..........
•••••cn..........
t
:
:
....X:
.................:x .....•.. .................
.................:.o ......

:
; •• :
••••

)(

PUT AODRFSS
OF PNT~
opRNn l"l
2ND SlnT
PIIRM LIq

•
•
•••••
•
x
•

...................
••••• Co; ....... .
•
SET
..

·;.~? ...... x:

~l~O~C~A~TAF~~

.....II.o.

...............

04 ..

.....[)5.•••••...•
n

REA:> SF.T

*1)

•••

: . •••

*

*

;x

¥

•• ··INTO A·· •• YI'S
:CO~P fl~6~UF~~f):
X•••• H~t~~G , . . . . . . . oc.,x:h~To~~2~
~~X:oo·x
••• •
.5 l I1T I'll. RM LI ST.

.. ,.

.................

0..,

·····ES··••••••••

•

NO

:

B2 •

••••• EI...........
EVT~:! •• E2..........
KYT~~! ••F3..........
E4··· ••
•
PUT ADDRESS • •
• •
..
•
OF E V E N T . .
• • • KEYTO TRIPLE
•
••
KEYTO A •• NO
: •• : ~r~~Do~Np~~~
EVENT TRIPLE
C~MR~tQ~(bh : • ., ••••• X•••• n~u~G . . . . . . . . ' :
••
liST
• •
• •
•
••••

:x ....•••. :

·•.....•

x •••• ••••• ••••••••

••••

•

••••• B5 ...........

•
•
X.
•
•

B2 :

................. *

•

SET.
SfTSW Tf").
INDICIITE
.........
REAl) S E T .
•

....................

••••

:

••••• Cl.~......
•
•

•
•
•
•
•

:x.. :....)l!

•••••••••••••••••

•••••••••••••••••

., • ••YES

X

•
•
•
•
•

PUT ADDRFSS
OF RDV OF
'lPRND IN
2ND SLOT OF
pARM LI ST

•
•
•
•••••
•
X
•

•••••••••••••••••

B2 •

KFYOPT
U1COPT
••••• F l . . . . . . . . . .
• •••• FZ..........
• •••• F3 ••••••••••
•
PUT ADDRESS •
•
KEY O R . .
•
•
OF SDV D F .
.KEYFROM TRI P L E . . .
•
4~~R~rotNOF" :X •••••••• : cb~h~[Q~t6h
lOC~TE TRIplF :
•
•
PARM LI S T . .
• •
•
X · ••• • •• •• •••• ••••
•••••••••••••••••
."' •••••••••••••••

:'·t

,:t•• ; .. ..

•.. •
·.....

x:

"'' '

• B2 •

FILOPT
••••• Gl ••• "'......
• ••• "'G2 ••••••••••
•
PUT ADDRESS
•
'"
•
•
OF OPRND IN • •
•
••• :
I~IR~l2IsVF
FILE TRIPLF

:x....... ,!

··..........

.,x •••••••• • •••••••• ••

x

: ....~~~~;~ .....:

:·";~l·t:H:·.
•

,c.,:

*...................•

•
'"
•
•

:•• :~y5:;6:~;;··:
OF ROV OF
•

TO INOICATE •
.CO"pllER LA!lFL ...
•
LOCATE 4Nn
•••••• ".X.PUT IN ~RI) SlJT ••••••••• X.
SAVF pNTR •
• OF P4RM LIST.
•
opRND'"
..
• •

...............

.................

...••H3..........

.•.••H4.•..••... '"

•••••••••••••••••

•••••••••• *••••••

.................

• B2 •

ENOIO
••••• HI..........
• •••• HZ ••••••••••
•
PUT ADDRESS • •
•
•
OF REQUEST.
'"
ENOIO
••
: C?~T~~~ ~t8fK
SaT~~~NT
, .. . .

:x........ :

..........*..*...

•

IN PARM LIST

•.........•......

"'.

•

i:

••••• J l . . . . . . . . . .
•
GENFRATE.
•
LIBRARY.
•
CALLING
•••••••••
•
SEQUFNCE.

•
•
•••••••••••••••••

J2

••
)(.0

•• ,

••

.o. r.

SETS..,

*. *.

·

..

x

J3

.*.

ON
••

<. • • • • ..

."'''c ••

*.

•
r.E!IIE R A T E . .
'" SFll TRIPLES •
•
CANCEL
•
FOP OpRNOS
•• o"O.''',X. OPTION TR,pl~
•
ON CHAIN
•
X.
SCMI

RFAO
o*" ••• atl."''C*(,

0*

.lOCATE

•. *. *. o. "'.o.
SELL SW

.

I1FF

,

1l*.Otlt'lt'

to

X

it
."'•••KI..........

......K2..........

•••••K3 ••••••••

•••••••••••••••••

• •••••••••••••• *.

.. ••• *••••••••••••

• GENEP.AH COOl' •
• GENERATF conE
• TO ASSIGN pNTR •
• TO INITlALlZF
• VALUE RETURNFD . . . . . . . . . X.Vb.RIABlE NAMED
• IN ROV TO SAVED.
.BY LOCATE OPNI'l
•
pNTP O P R N O . .

220

.~
•
•
r.E!IIERATE
..
.COMPILER lABEL
•••••••• ·X. MFNTIONED IN
•
•
1RO SUlT OF
• •
P~RM LIST

...
•
•
•
•

•
• •••
•
•
•
•• " .X. "2 •
•••

. ....

OpRND HI
2ND SLOT OF
PARM LI ST

•••••
•
•

Char: t

.....'"
*

N~\

Pnase NM Jver311 Lcgic Diagraw

•

*'1"1 *
AI'"

'" '" '"
)c

N'1RI

"'''''''''''''Al.·'''······'''•
SCAN TO
•
:"ItoX: ~~)(IN~~~t~~ :Ke ....................•...•••.•.•....•.••...•...•...............................•.•... "........ :
..*

·

.................

••

.

.

•

c-

)c

••

*.

••

•.•

81

•••

••

EOP2

*. ••

*..*
*. • ••YES

x
•••••
·NT •
• AI·
•••

.*

NO

•-

•••, ••••••• X..

••

*.

82

• *.

••

OPEN

*. ••

*..*
*••
*
• YES

.*

NO

••

•••••••••• X..

.*

*.

83

• *.

-.

*.

CLose

*...
*•• *

•• NO

••

••

••• 0 •••• 0.)(...

*('1

• *1'

• NO

••

GET

*.

• yeS

*0 ••

o.

*. • fI-VF.S

••

"10
••
•• n.o •••• oX..

•

CH~f~
o~AkJ¥to~s

..•
•

:

•••••••••••••••••••

O'pE~~l.*C

••
:

3.a•••••••••

CHE~K

0~Ab~9t6~s

•

:

•••••••••••••••••••

:

lhn:IS~~M

••••• E2 ••• •• •••••

• GENERATE CUt •
•
TO 1I8RARY
•

~~~~~CA

• •••••••••••••••••••• 0 •••••••••••••••• •

:

o.

*tI ••

o.••

.-

*• • ...YFS

..................
•

X

~~~IB~TY :

•*•••••••••••••••••
~I

:• ~~~~H8 ='•
•••••••••••••••••

*.

••

YES
:INIlr~nntION :
•••••••••• x.
CAll TO
•

. ····04·.·.·.·...•

·•••••••••••••••••
- .
.
t

PUT

0

• NO

•:'cHe5~

CA1I8
ic
• •••• E~ ••••••••••
: Gf~F L 'J~A~¢ll :

• *.

GFTlZ ••• C5 ••••••••••

••••

.. ..

:

ic

0

..NhTThIP~e ••

•••••••••••••••••••

CALl8

C4

•••• x•• ••OAl'AI
l STEDIT,
*.
••

••...02.·········:
~~~~~E¥~R

85

fcx ••••• o •• o • • • • • • • • • • • • • • • •
GETI'r

.ic

:

••

*.

•

X
•····~2··.···.··

OPENt'''

:

·

o.

84

•

:STORAO

x

••••• ~4 ••••••••••

•

:

•••• :
•"'

opnb~T fN
PA~t;pf'R

:

:

................•

lPIRARV

••

••••• no;· X
•••••••••

MVTRSP
•

MOVE DATA

•

*SPECTFICATfONS •
•
TO OUTPUT
...
•
UNCHr\NGEO
•

•••••••••••••••••••

GETI!5

.ic

:····~~:=n~····:
•
T~~Mf NAT ION •

:

Et~hA:Q

:

•••••••••••••••••••

.

x••••••••••••••••••••••••• x••••••••••••••••••• 0', o • • • • • • • • • • • • e , • • • • • • • • • • • • • •

S2ction 3: Charts and Routine Directories

221

Phase NT

Chart NT .

.....

Jver~ll

Lcgic Diagram

·NT •
• AI·

••
•
;;

•
•
•
•
•

INITULI ZE
PHASE AM)
GET 4K AREA
OF SCRATCH
STORAGE

•

x

At,

•
•
•
•
•

••

*.,

••••

·•••••.•

•••••••••••••••••

•

:

•

YES
••••••••••••••••• e • •

NTrrll
:
•
•

.................•

ic

TRIPLES OF
INTfREST TO
THIS PHASE

it

..•..04·······..·
X

•••
NTOl:l21
01
••
• ••••0' ••••••••••
•••• COMMA •••• YES
:OEDOSFE~~~~~IlL.E:.
•• IN EDIT lIST •••••••••• X.ANO MAKE ENTRV •••••
••
••
•
TY S DATA
1ST
••
•X

.. ..

.•.......R

.•

~.......

• NO

.

t~~~21~.~2~=~U.:

.. )C .............. ..

·X
•*

•
SAVE TYPE
•
• cnllF.S OF ANY •
.DA TA I TEM WHICH.
•
MAY INVOKE
•

El· ••••

•• FORMAT
••••
ITEM

o·x···········o.~

NTJ~i: ••E2 ••••••••••

*. ••

*..*

........

III

X:

YES
•
••••••••••••

MAKE

•

~NTRV

I~E~ ~~tl

•

•

•

:••.•

••••••••••••••••••

•• • ••NO

.•.x

••

*.••••

Fl·.
END ••
OF
•• YES
FORMAT
LI ST

*. *•• *.*

••

•

*.................................................. .•

• NO

x

•••

HI..

NTI'017

• ....

*H2..........

••••

.. ..

• •••

• NO

ic

•• ••••
•
Cl •
•••••
•

222

....... .i.......
:R2~T~~ ~

.....

,-13 ••••••••••
:
: RP~AC ~Ol~T S :
••••••
••••••••• X.EN~R fES IN ~H~ ••••• X. B2 •
~=~~EO:
:
LlBT:iUTlNE:
• •••••

•••• END OF •••• YES
: MA~~EW;~lP
••
PROGRAM
•••••••••• X.
ll!RAa~

.........

~i ••••••

:
•
•

.•...............•.
••••••
·.....
liSE U PRnr.
I'JR BEGIN

• Cl •

•
•
•

•
•
•••••••••••••••••

•.

X

1~~~El~~~M~~R

;;

• .x ........................................... ..

:·..~H~·~~:··..:
•
•
•

·..··85····.····.

it

•

• ••••

• .Al.

• Cl •• X.

*. *•• *.-

.-

••••• 1\" ••••••••••

.···.·..·····.····NU..

YES

*. ••

.ASSOCTATE ITF.MS •
•
IN THE
•
• DATA AND FORM"'.
• TYPE LISTS
•

NT:" 23

:·······ic

· ..... ..
••••

F~T'

• NO

~.

....

••

0*

*(,

B2 •

..
NTll00
X
Bl
••
• •••• B2 ••••••• • ••
•• ·~CA~AiEE~· •• NO
:
FSRvr;s~En :
··l~OI~~U~ B~ ••••••••••• )(: PH~~h~¥C~NTO
•• NM ••
•
STORAGE
•

NTI.'flOl

.•.

• • • • • • e • • • e • • • • • • e • • • o • • • oc

.......1··········

NT{'nnn

Phase NU Jver311 Lcgic Diagram

2hart NU .

.....
.•.

·•.....•

'NU'
• AI'

•

..,·.·Al··.·······

'.•...1.4..........
*••
**.......

K

IN~~lH! ZE
LOAD MODULE
IEMNV

.. ...............
:
•
•

•,

•
••

*:1('..

:
•
.'

•

III

*1fr..

.0

** •••

x
.
" x." •• " •••• ,,")(
' . x.
• .x ••••••••••••••••••• o • • • • • • • • • • • • •
"

:

"luv' 27

.
...... 04..........
'.Gt;NF.~IITf LAOF.L •
.. USED IN LOAO'

••••••••••••••••••••••••• 0 •••

X

x

ADOP.FSS

.,"(:$

'''''''.'02''''''''''''''''

'. .'

."'''''''

• NO

'.

•

... ..''''''.''''''''''''

.. "'."''''
0:

III.

'''.'''.'''

YF S • '"

'.

•

III.

LIST

••

.*

...
1 "'.

"'. YES

.*

•••••••••••

•

• • • • • • • • • • • 00 • • • • 0 . .

0 •••••••••••••••••••••••

05
••
FORMAT
ITEM

"' ..
'"
'" NO

.

3"''''''''''''''''''''''''

'''''.'''FZ''''''''''''''''''''''''''

••• "''''F
:FgSN~~~~fNX~~~N:
:
RESET COMMA :
)(. IOATA OUTPut)' "' •••••••• X'" fNTRY IN SCAN'
'" BRANCH ROUND '"
•
TRT TAOLE
'"
'" FORMAT IEOITI '"
'"
'"

... ..."'.
"'''''''.'''''' "'

.. .. ...

"'''''''''''''''' ' ' ' '

"'' '

x

"'''''''''' *G7 "' •• "'''' "'''''''''''''

• '"
"'.
•
GENERATE
'"
"'''''''.
• '"
COMMA
"'. YES
'" LIBRARY CALL '"
'"
'"
"'. IN LIST OR ."' •••••••• X'"
FOR
"' •••• X'" B1 '"
"' ••• DATA ••• '
: ~~A~k~PH~~:
x '" "'."'''' '"
"'.

....."'''' ..'"
'•"

"'.

• II

• NO

PR.OGRAM

*e

*. "'.
,,*

.*

*••• *
1\

... ..
~

F
",·"'DATA' "'.'. YES
.eolT' OR [IST·."',••••••••
t.
.'"
"'..'"

'. • NO
'"

••

'.
••

••

*s..,.

'" NO

~

Gl

• NO

."
0* E5
YES •• fND OF

*••
*
'" NO

.K"'.

".

."'K.

'.

".

••

••

111.,,* . '

.'.
.K.......... 0.."

1)""'*04 "''''.'''......
•
•
..
GENERATE
•
........ APPROPRIATF.
.. LIBRARY CALL •
4r

x:

.... ..' '.

.•

LtST

*)(000('01)110*.

t.T E n I T '

~

8 •

• NO

X

K

•'

*0

ic

NU0018
• GENERATE CODE'
•
.'
' . YES
• TO LOAD AD~R '"
' . ".
EO IT
. ' •••••••••• X:O~ NtgR~HNbA~b : ••••
••••
•
REGISTER 8
'"

-.

'0

.'.
R5
'.
• • ••
YFS.'
FORMAT
'.

1tI................

..

K
.'.
' .•
•01
••

El

. '•

C1 • • •

..."'.............

~...............

."'.

~>;

'" GFNERATE COOE •
.",
'" TO SAVF. lINK'
VI'S . '
'.
• •••••••••••••••••• 0 •••• 0 •••••• 01 ••••••••••••• "0 •••·."(' ••• ,,(1 I)
~"ID
*X",.C'''''lIftt)*''
FO!:tMAT
••
'. TRANSMISSION •
'.
.'
REGI5T~RS
•
..

X
NU1~l"'.02 ••••••••••
•• •••••••
•• ..... 01·
LA
•
•
GENERATE
•
• - .. -.-.-.-.-.-.-.
• UORARY ~ALL •
:
i~~~L~O~F
:)( •••••••• : DI~rcTg~ ~NO
•
INTEREST'
•
NO LIST
•

..

ic

"ll).. "11

"

NUl (1)2

115 •

*•••

Rl •

'''

"lU;'"l3
ic
...·.·.F4·"''''···''''''.·
: MooO[HA~F.MNU :
• IFM~V ANO 4K •
•
OF SCRATCH
'"

.. ..... .."'."''''''''''•
"'''''''''''''
'" .

• "'

'" "'."''''
'" '"

• 61 '"

"'

x

'OB '"

'" At '"

'"

* "' •• "''''"'."''''"''''''''''."''''

x

.'.
NU~~·24
••••
'"
GENfRATE
• '"
COMMA
' . YES
'" LA 1 DATUM
"'.
IN EDIT
."' •••••••• X'"
LA ~.(lED
"'.
LIST.'"
•
BAlR 7,8

HI"'.

.

*..*

"'. '" 'NO
"
X

"""'''''HZ''''''''''''''''''''''''''''''•

•

'"
•
",, , ... t.
"

•

"'."'. "'. "''''''''''.'''''''''.''''''

I~'.

Jl.·. "'.

NU(l~~~."'J?"'''''''''''''''''''''''' ,{ ':

..

"'' ' ' ' ' "'''''''''''''''''''''''''''''''''''''

• '"
"'.
'" GENERATE CODE '"
•
• "'PRE-FORMAT •• YES
•
TO ORA~H
'"
•
"".. MARKFR • ",. "'•••••••• X:R~~~AtO~~M~~NG: ••••

*..*

"' • NO
'"

··."'...

•

•

x

•

A5 •

"'''''''''' '"

section 3: Ch3rts and Routine

Dir~ctories

223

2nart OB .

Over~ll

Phase JB

.....
..

Lcgic Diagraro

·OB •
• AI·

•

..•
.
................. ....

.•..

X

••••• A I . . . . . . . . . . .

••• X.

SCAN TeXT

..

.X••• )( •••••••••••••••••••••••••••• ., ••••••••••

.........
•

.•.
*.
III...
x

BI

••
*.••••

Al •

••

END
OF
TE1(T

•• YES
••••••••••
x

•••••

••

....

•• ••
• NO

·00 •
• BI •

X
CI···..
••••
•• COMPILER •• YES

.. ..

ST4 ••••• C2 ••••••••••
• •••• C3.; ••••••••
•
• •
PLACE
•
•
BUMP
•
..
PSEUOO•
STACK
: •••••••• 1(: pX~~~:~Hs
..
. . .
IN STACK
•

•••• V~~i~g~E •••••••••••• X:
••••
• NO

x
.111.

..................:

.................
.111.

ST6

01
••
02
••
• ••••03...........
••••
•• I S . .
•
FXAHINE.
•• COMPILER •• YES
•• ASSIGNEO •• YES
•
PSV OPERAND"
••
ASSIGN
•••••••••• X•• VALUE FIXED ••••••••••
AT TOP OF
.....
••
?
••
•• BIN AR Y • •
lC.
S T ACK "
••••
III.
? .111
•
•

X.

*. • *

*. ••

• NO

•••••••••••••••••

• NO

.

•
•
•
•
•

·......................
X:

••

..

.. ..1\.

Ct.LCLlLATE.
•
•
flOP= VECTOR •
OFFSET FROM .......... 1(.
PAR4'1erl'RS.
•
• •

• NO

• • 41.

.

iii.

eo; ••••••••••

GF.NFRATF
CODE TO
SET RFSULT
PI OOPF
VECTOIl

•
•
•
•
•

..................

....•

0:

·•

.
·..................

1'4 ••••••••••
REPLACF.
•
"IT" BY
•
PSEunO-COOE •
"IVC
•

X

• •••• 1'5 ••••••••••

•
•

•
• •.................
•
.................

*. TEMP

•.....

e 00 • • • • • • 0
An

• Al .X ••
••••••
:)(." •••••••

F3..........

Fl···..
MTFR
F2' •• ••
FRS l~~
••••
•• I S . .
•
REPLACE.
•
••
MTF
•• YES
••
FIRST
YES
•
BY
•
•
••
FUNCTTON
••••••••••
oprRANO
••••••••• ,·x..
WORKSPACE
•••• 00.,.X.
...
••
... CTL OR ••
•
REFERENCE
•
X
•
• NO

O f t . " . O.

'x

·····E2········ ••
• Pl~CE AS'SIGN •
TO F I)(EO
•
•
•
•
BINARY IN
•••••••
•
TE XT
•

...*
..

•. ... ** ••••••••••••

.....£4..........
....................
·......
"Xo 0

X..

X.

**.. .C'..*
• N:J

ic

.<

AT~

c*o

1)4
••
• •••• f)5 ••••••••••
••••
•
REPLACF
•
CTL
•• YES
•
OPFR~NO BY
•
OR TEMP
••••••••••
WORKSPACE
•
••
••
•
REF
•

o.o.X..o.

DECR Fill FNT
STACK

•
•

•

x

AOVR
••
• •••• G2..........
• •••• G3 . . . . . . . . . ..
AOV ••
•
CALC ULATE.
..
GENERATE
..
• •••
•• OR S[lV
•• YE'S
•
OrJPE VFCTOR •
•
PSEUDO-COOE.
•
•
••
FUNCTION
•••••••••• X. OFFSET FRO"l ••••••••• )(.
TO LOAI)
••••• X. Al •
••
?
••
•
PARA"IETER'S"
• REGISTER FRO'4 ..
•
•
••••
•
• • [lOP!' VFCTOR.
• •••
GI

••

•••

......"'..........

.. ..
•

NO

.................

*..

x

•••
ST7, ST6
•••
BY5
•••
HI..
H2
••
H3
••
••••
••
IS..
••
"'.
•"
BUYS
*. YES
••
IT A
•• NO
••
SCALAR.
•., yrS
OR FIRST
........... X•• DOP£: VECTOR ••••••••• 0X.1\
< 256
( I . f \ ..
••
RUY
••
..'lNLY TEMPo.
••
!.IYTES ."
••
••
.....
••
o.

*.

fI • •

•. ..
•

a

.YFS o.
• Xe • • •

~

*0

*

JI

••

SFLL
7.NO

nQ

*.

.•.x

. , r·

NO

RUV

*•• *

*0

•*

••

0*

•

.*

•
•

KI
o

•

N J ••

O . J " *0

••

·

*0 • ({

224

..

*

• ft ••

0

x
..... 3...........
..... 5.•.........
f..... .*••••J4..........
....
*
•.••..••.•••..•..
*****.** ••• *••
*** ••••• ** ••

x

110 r! O .

o.

11.0.001'1 • • 0 . 0

J

~L I r . N .
•
WURKSPACF.
•
T(1
*.,1.\0"0".''(.
R'lIJNO •
•
"'.

4-~YTF

coo

J

PL AC
WORKSOArF.
'"
OFFSE'T
.o,~,.~ .. ,,~X.
IN 'lrFSF.T 2 •
•
SLOT·..

IlIJ'4P
W'OP'I(SPA.CE
r 'JIJ 'IT

'"

•

.onno'H)O"')(*

X"

. . .

:11:*"

POIOVF

5TArE~FNT

FP,O'1 TFlCT

•• *.~

..
x
****

:

-.

"'.

vF S

BUYS AFF:N o*c
•• RE'10VEfl ••
••

OFFSET
1'1 OFFSFT 1
SLOT

••••• ** ••••••• **.

*.** •••• *********

.!. *.
HA S

HS .......... .
PL AC F
•
•
•
•
•

WORKSP~CE

****

•• X. Ai '"

;>..........
*
*
•• ** •••••••• *.*..

RVlq
• •••• J

• NO

: STIr

.. .

*. • ••NO

• YES

••••.

• •••• H4 •••••••
•
flL I G N .
•
•
WO'\I(SPACE.
•
Tn
."coe •••• r-X.
•
RF'lUIP~'l.
'"
'"
BOU"JOARY.
•

e~r.X:.

• III

«.ft • • • •

0

• • • • 0 . 0 • • • • • 0 0 1100 • • • 00

oor

CI"" 0 0 • • 0 . " " " flO (\ 'I

.~o

0 -:0""

t"

0'" 0 " 1 " " " " 0 0

~"o oon

Cr!"" 0

ftc ..

ft8

0'

"I :

•

..
•

•

Chart 00. Module 00 Overall Lcgic Diagram

.....
..•
·00 •

... Bl'"

SCRCOR

X

.

"' •••• "'''' .....
'*"''''··Bl
..."
GET BLOCK
•

•
OF
... SC ~ATCH CORE

•

'"

................. "'."' ..............

...

MOVTAB

X

•• *'~.C I .......... .

• 'lOVE TABLFS,
•
'" C ONST ANTS AND.
• ROUT' NE S INTO •

...................

...•

SCRATCH CORE

•

·...4'.DI········•..
~

•

•

•

•

SET UP
PO INTfR
1 N REG I S TER

•
•
•

•

..... 4' .................. .

·

X

.

." ••• E I ••••••••••

•

END OF

•

..................•
.....

:RELt~~~Rt~~TROL:

•

x

...

·OE •
• Al·

S~ction

3: charts and Routine Directories

225

Phase OE overall Lcgic Diagraro

Chart OE.
* ••••

• OE •
• Al·

·

••

··•....81 ....•. X..
••••

ic

ASS"32

•••
'iPASS
83
••
• •••• 11.. • •••••••••
••••
•
AllOCATE OR •
SPECIAL •• YES
•
IIUY POItAGE •
: •• X••• !SU~~~~NT •••••••••••• 1(: FO~p~~~~~O
:

·····81··········

•
•
•
•

SCAN TEXT
FOR A"I
INTERESTING
TRIPLE

•
•
•
•

••

•••••••••••••••••••
•••

.. ..

.................

,*

•

• NO

•

·• x•••••••••••••••••••••••••.

ic

C1

*.

••

••• •
•••• YES
:g~~ An py~~R~~gH:
•• ASSIGNHENT •••••••••• X. TH~O TRIPLES] ••••••••
•• TRIPLF ••
• AND CHECK FOR
••••
•
VALIDITY
•

.. ..

• NO

X

ASS 1)1'1
• •••• C2 ••••••••••

.................

••

••

C3

•••
••
ARE ••

.. ..

OP~RA"lOS

•• YES

•••• Fl~AIJRG ••••
*..*
• NO

111.,,.

ASFLl"·
• •••• C" ••••••••••
• GENEItA TF. COOE •
• FOR FkOATlNG •
• • • • ,,)(:
ASSr:G~~l.NT
: ••••••••••• 0

.................
*

••••• :

...

x

•••
Aspar-'
03
••
• . . . . 1). . . . . . . . . . . .
•• ARE ••
• GENERATE CODE •
•
•• OPERANDS •• YI'S
• FOR PO~NTERI •
•
••• ~O~~HHsO~ ••••••••••
AS~~~.N~~NT
: •••••••••••••••• 1(:

*,

.. ..

,I(:

.................

,*

•

• NO

•

ic

•••
lISARr r
E3
••
• •••• 1' ........... .
••••
•
G~HERATF.
•
•
••
ARE
•• YES
.LJ8RARY ~A~LlNG.
•
•••• OPi:U~S ............ ·1(:AK~2un~ fG"I2~NT:" •• ' ' ' . · ••••••• 1(:

*.

.. ..

.................

••

•

• NO

1'3 ..

•••••1'............

ic

• *.

, " bp
III"

.. ..

~IXEO

*,.*

.

ASFBtr

~~~DS·· ••

•• 8 I NARY

•

GE~E:A~~ I(~H°F.

.................

YES
:
•• ,.." ••••• x.
••
•

...

• NO

al~AAy

ASS I GNHENT

:

:

••••••
"•••••••• ~.x.•
•
•

x

•••
f,SFOf'
G3
••
• •••• G........... .
•• ·:;P n~DS·· •• YES
: GE~R=AHI(~goE :
•
••
~IXED
. . . . . . . . . . x.
Ol'CIHIIL
•••••••••••••••••• lC •
•• DECIMAL ••
•
ASSIGNHENT

.. ..

.................
*

*..*
• NO

III

~

•••
O\STR: ,.
H3
••
• •••• H4 ••••••••••
•• ·*STRING •••• YES
: ~~~E~~HN&og~ :
*, OF Nl..fJIl'fRlc •••• e • • • • • X. NUMf.RIC FIELO *.D
•• F I EL~S ••
•
ASS I GFH~NT
•

*.

.. ..

.................

••

•

• NO

x

•••
•• J ~UY, •• ••

CAL III

:···G~~~::TE·"·:

.:"•• AL~bHh,
.:.!;~ ..... K:
FREE
••
•

.. ..

*..*
• NO

Jrlrrt~~

................
.
.
··•....
....81 ..•
•

SEOUENCF.

•

•• J3

0..x

f,SL"r
: . . . . J" . . . . . . . . . :

••••

1(:

. : . ope~~~DS .:.:~~ •••••
•• LAI'IELS ••
•

*.

.. ..

Gr~S~~n8~roe

•

• NO

ic

it
•••• *K, ••••••••••

:E~g a~R~R~=~H,:

·..................
• OJ, 1."10 RELEA~E.
•
CONTROL
•

.....
••
·
ic

·OG •
• A2·

226

·
.........
·....... .......... ....

GF"IC"I
X
••••• K3··········
•
•

GF"IERATE
CONV HACRO

"'

•
•
•
..... ~. 81 •

•

ASOROP

•

ic

:.~:~~5S~=;~~~~.:

.................

: •••••••• ~:
Ra~~~Tf~
ASSIGNHFliT.
• TMPI) TRIPt F~

.................

••

:

•••••••••••••• )(.

...

••

·•..a......•
• III •

:

..

•

~G

Phase

Chart 03.

~ver311

.......

Lcgic Diagraw

• OG •
• AZ·

•

TRSCAN
X
•• ••• AZ··········

•••••
•
•
•

•
•

.. ...............

AZ ••••• X.
• X
•

~....

"'

GF.T NEXT
TR IPL E AND
rXAMINE

. .....
··..................
. ....

TSC I'll'

•'"
•
'"

••••• 11 3 ••••••••••

•
OUT PUT P I C .
•
•
• FOR LAST ITEM . . . ooX. A2 •

x

x

:

Xoo a.

0 •• 0'

I)

x.

0.:. 0 0 0 0

on •• () e

0

•••
TSCSNO.
8Z
••
• •••• S 3 ••••••••••
••••
.UPOATE MAX I MU'! •
••
SN,
•• YES
•
STORAGE
•
••
Sl OR SNZ
••'•••••••• X.REQUIREMENT IF •
••
••
•
NfCF SSARY
•

.. ..

.................

*..*

•

• NO

•

ic

····OZ·········

•• COMPI LE R ERROR ••
•••••••••••••••• •
X
• NO
TSCEP,!
•••
•••••• E l . . . . . . . . . .
EZ
••
•
TERM INA TE
•
••••
• PHAS E~ DELFTF. •
YES ••
••
:I~';;L~~CE~~U~S : X . . . . . . . . . . . . EOPZ
••••

..................
•

•

x

•••••
.OM •
• 81·
•••

.. ..

*..*

•••
TSCPRC.
03
••
• •••• 04 ••••••••••
•• PROC
••
'"
PRES E RVF
•
•• OR BEGIN •• YES
'"
WORKSPACF
•
..PRIMEO OR NOT •••••••••• )('.COUNTS FOR tAST •
•• PRIMEO
••
'" BLOCK PREPARr= •
••
••
'" FOR NEW ALOCK •

.. ..
•

.................

NO

X

• ••
1'3
••
••••

X............
NO ••

•

*...
....
JUMP
•

••
••••

YES

x.x ••••••• o • • •

.. ..
.. ..

• • • • • • • • • • • • oeo •• o • • • • • • •

F3

X
•••

••

.
.
..
.*
...............

....

"ftftO.O • • • • • • • • • • 0.(> • • • • • • • • • • 10 • • • • • • 0 • • 0

•
CNVFNO
•
• •••• F5 ••••••••••

.:. E~~Ar,~ho .:.:~~.)(: A? :
••

*.

••

•

•••••••• ••• x.

••••• Gz.; ••••••••

•• MOVE PSEUDO- ••
• CODE TO OUTPUT.
••
••

.................
X

·•

••

: PUlo8~N~~MEO

••

• OUTPUT BLOCK

••• 1fI

NO

X

.X •• ., •• e

.•

PCSCAN
X
·····G3··········
•
•

GET NEXT
PIC ITF'!

:
•

'!JG

•••••

~=1"G5 .i........

•••••
X!

•

.....•••••••••••••••••.

•
•

•
•
.................

: G5 : ••••
•
•

•

GENf~AlhEOOE
LIBRARY

:
•

X

: NO
ic
• NO
•••
•••
IEMOH
•••
HZ
••
H3
H4..........
H5
••
•
••••
••••
•
El(AMINE·
• • ••
• YES ••
.,
NO , .
•• YO:S
•
OPERANDS OF •
••
IN-LINE ••
••••••
IGNORE
•• K. . . . . . . . . ,
CONVERT
. . . . . . . . . . K. CONVERT ANn . . . . . . . . . K •• CONVERSION ••
••
••
••
••
• CHECK IF TIiF
•
••
••
••••
••••
.CONV IS IN-UNE.
••••

.0

.. ..

•

.. ..

•

•.•••

.................

IE'!OI
••••• J 4 . . . . . . . . . .
••••••
:
• G5 .X., •••
•
•
•

......

1~[~~AgDE:
FOR THIS
C'lNVERS ION

....

• YES

ic

J5

•••

••

YES •• ~ONVERSIO~· ••
.X •••••••••• DONE 8Y 01
••
•
••
••

•

.,~...............

....

*..*
•

NO

ic

·····K5···.·· ••••
•
OUTPUT
•
MOnlFIED
•
•
•
*CONVERT AND SET •••••
• TO CALL OM OR •
•
OP
•

.................

section 3:

Ch~rts

and Routine Directories

227

~hart

OM. Phase OM Overall Logic Diagram

•••••
• OM •
•• e~.
•
~

···.·81··••··•••·•

•
••• x:
••

SH~TUICT

:

•

••••••••••••••••••

.•.
i

jz ••••••••••

Cl
••
• •••
••••
•
N~OE
•
•• ITEM •• YES
•
B AN H ON
•
•• CDNY~ItJ MACRO •••••••••• x.
CONT tNEO
•••••
i.
.i
.TRANSFER YECTOR.
•

*..*

•• •••••••••••••••••

•• • ••NO

•

.•.
....
.
.:x•• :
.... :
r
....
.••••••••••••••••.
•• ••
..••·:C,... : .....EZ..........:
..
.:x••.:
:x•••• :
•
•
~

01

••

• ••• *oZ ••••••••••

NO ••
••
••••••• ~NO OF TEX! ••• X••

•

UNPACK
(DEC TO PICI

••

•

• YES

*OP •

•

(PICPf~KOECI

.................•

•

•

•..•. .Z··········•

•

·•••••••••••••••••.• .

• x••••••

OToe
(DEC TO elNI

••
.x
•••

•

· .....GZ...........

••

* •

:X •••• :ILleRU~RCAlll :x •• :
••
•
••••••••••••••••••

.••••HZ·.··••••••

• •
:x• •••• :•* I OEcEVATPIC I :X
•• :
•
•••••••••••••••••••

· .....JZ··········.
..
.:X••:.
: ••••• :

IOEeE9~KpICI

•
••
••••••••••••••••••
x

..
··..................
.
•
•
••••• ItOP •

ic

·····C2·······'. ••

oil
oil

·•

ic

.
....*03..........

SCAN TEXT

.•0.02 ..
.. •• ••.'"
....
· ...

:.... .....:
.-.-.-.-.-.---..:
~;~:;

•
•
oil

••
•
••••••••••••••••••

••• X"

oil • • •
•

• F2 •

••••••
x

:" ••••••••• 0 •••••

.~

.•••••••••••••••••.

X:

~dN ftV~

.••..n" ••••• •••• •

••••••
.
....
••••••••••••••••

.•••••••••••••••••. .•

CONVFRT·· •• YES
:
8RA~H O N :
:_._.~l!~~~-*-.-:
••
MACRO
•••••••••• X.
CON AtNED
•••••••••
"IT TO
••••• X. E? •
••
••
.TRANSF.R VECTOR.
•
8 NARv
'"
'"
•

lC.

• NO

·..

• E2 •• X.

•

••••

NO ••

••••••

.*

•

.X •• tI • • • • • • • 6

X

E2

••

END

OF TEXT

*. *.

*•••

••

..·..
:°12:
•

•

••

YES

'''.
••

.:*

.....
.•...."'."''''''''''.....•''

F~·.········
·•••••••••.•.••• 0.lC::-.-.~k!2!~-.-.-:
:
F~V~XR~O

~

•••

Section 3: Ch3rts and Routine Directories

229

Chart

as.

as Overall Lcgic Diagram

Phase

·•......•
•

·····1\2··········
X

•
•
•
•

GET SCRATCH
STORAGE TElIT
8LOCK.
SET SCAN· 0

.*

NO ••

·• x•••••••••••
•

·

..................

•••••
•
AAt •
•• ••••
•
x

•

:-.-.£2!!¥~1-

......:

INTO lOCATION

.1(..........

s~ Y~~:

•

CONl~~~~ I N :

•••••••••••••••••••

•

1Ulli •.•.
.. ..

VSEA
·····85··.·······

••

GET NFl(T

:

•

SCANAt
2 • ••••
YES ••••
ijNSt N~..
•••• O.S~A~ •• "

ic

••

•

.....•. ...........

•

:

8'1 1

••

· · · · · 8 4 . · · · · · ••••

xx ••••••••••••••••••••••••••••••••••••

. . . . .C1.'........

:

•

up8~HN!CAN

:

•••

ic

•••••
• PA •
• 83·
••

X

CONSTANT IN

A4

n

0

:···~n·tT:;~···:
..

ic

STPTST

••

*. ••
YES •• * END OF -. ••
••••••••
SCAN· It
•• X••••• "....
CHAIN
,.*
••
.*
*,.
*. *•• *••
**.. .a**.*
• YES
.. NO

•
•
•
•

•••••••••••••••••••

LOCOMP

0..

A3

A4 •

* ....

.

•
: •• :

"

CHAR TO

Pl8~~~~~16~AR

•• J3 ••
• •

• NO

•
:l( ••••••
:

CH~~ ~~~lNG
CONYERS ION

:

YE S

C5··· ••
••••

...................,
..
..
.
x ·..... •
:

····C3·· •• • • • • • •
:
CONVRT:
:
...............:
:

.

l(
•••••••••••••••••
••••
l(

&..............
•••* .
vsc:••• *C"'..........
fI

••

~~.:. pf~~ano
••••

.:.

..'.

•l(

••••

•• lI. J3 ..

• *.
o.SOg~tiE
*.
e.
·:.~? .....

• *.

03
••
.:.*.•• H~r~~ *..*.: . :;~... ,.l(.:.*.
*.
•*

*. • ••NO

POOU~ . .E1.a . . . . . . . .

••
•
•
•

•

••

SCAN POOL
FOR SIMILAR
ENTRY

:
o

••

.:..•.

.•.·x

••

S~=neR

*. *•• *.*
•

NO

•
•

•• 'l2~
aIc

o.o.
.*

0 ANS

'I

2

f3

••
••

••

*.

x

•• ••••
•
M •

....

•

ic
F3

.*•••.
*..
•
*. *•••.*.*
x

.-..-.- .............-.
...................
ic

·····G2··········
•
CONYRT
•
•
•

X

••••• H2··········

:
•

AR~05rN~~~T
TElCT BLOCK

:
:
•

•••••••••••••••••

··....
.
••••.
ic

•

AAt •

••

....

••

*"

e..*

*•••
• YES

••

·•••••••••••••••••.
Fit

*...
*. ••

....

FORM
•

•••

CHAR TO
81 T S TR fNG
CONYERS tON

•••••
•

o.

.0 ..:1...
NEEDEO

.*

.:"".

G3

••

H~r~~

•.•••••••••••••••••..0 ..
:

••••••••• aX*

....
..
..lI!. .

*.

G4

•••

••

*"

•

•

·;.;;;..... X.:·". c~~~2~hR
.:.~? ..... )(:
STR INC ••
•

*...
.c

••

.

0*

NO

Bt~lm~r~G

CONYERS ION

•

•
:

C~~RA~T~~NG

CONV"R~ION

.

•••••••••••••••••

•

ARCHD
ic
·····H4··········
•
•
•

ARITH TO
CHAR
CONVERSION

.. J3 •• X.

•
•
•

X

CHARD

ic

•

x••••

•
0 •••••••

• ••• J3 •••••••••
RETURN

•

•
'"
•

CHAR TO
~RITH

C ONVF RS JllN

•
•
•

......... **** •••••
x

••••

"..

1(4

• YES
•••
••

*t'

I\RARD"

• • • • • 1(5 • • • • • • • • • •

•

•
•
.'" SOURCF
., NO
•
• K4 . . . " )(..
Cl-tARACTER
•••••••••• l ( .
....
., ~TRI"'G .'"
•

••••

230

(\

L"~

•

• YES

• •••••• x•••••••••••••••••••••• e. x•••••••••••••••••••••••••
•

~
1'"

AR8Tn
• •••• Go; ••••••••••

·
.
·.....................
. ·.................
.
· ..
.
·•................• ·.·..·.J4.·.··.··....
•

:

ARTTH

•

• •••••

0*

CHA~~ •••H3.: ••••••••

•:

ARITH TO

CONYERS ION

• 'In

*...
*•• *
•

YFS

*•• *

NO

J~

•••

ARARO
• •••• "5 ••••••••••

••

•• ~riNvERSln~· ••

ic

•

·•••••••••••••••••• ••••••• x..
\~1aR~I~n~~-

•

•
•
•

•
•
••••

•• IN INTeRNAL •••••••••• K.n

••••
•• •AAt
• ••

YES

INTO TEXT
8LOCK
SEE C 3

*. ••

VSOA
ic
• •••• 1''1 ••••••••••

••• *

..··SOURCE •••• YF.S

AN

•

:

*. .to

• NO

0 ••

ANO

c

·xx••••••• ., ................. ..

HR~E~·.'
•

•
..
•

.*
*...
*. ••

YES.
•
••••• oX. K" •

*•• *

••
o. UNAL CHEO •• NO

.:.:;~.

••

•*SOURCE *. ••

NO

05

X*:"'sltAHHNG . : .

.. YES

*. *STR.ING
. *••

*••
·NO

SCANl

...

".

·X

o.URfE~O.
IIOR
*••

..

*.

ic
0 ••

YES o.SI
•• 0000.0
AL

.................•
Fl

SCAN2

DIt

*c

.".n.ft.

ARITHMETIC
TO AP,I Hi

••

..

CO"IVF.RSfON
...
•••..••.•.•..••.••
*

.Table LA. Phase LA Pseudo-Code Scan

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
ISCINIT Initialization
ILAOOOS
IUT01,UT02
I
~-----------------------------------+---------------+-----------------------------------~
ISC1
Search for triple of inter- ILA0010
IUT01,UT03,UT06,UT07,UT08
I
est
I
I
I
I
~-----------------------------------+---------------+-----------------------------------~
ISC2
Move current triple then
ILA0011
IUT01,UT03,UT06,UT07,UT08
I
search
I
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
ISC3
Delete current trifle then
ILA0012
IUT01,UT03,UT06,UT07,UT08
I
search
I
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
ISC4
Skip current triple - text
ILA0020
IUT06
I
wanted
I
I
I
I
~-----------------------------------+---------------+-----------------------------------~
ISCS
Skip current triple - text
ILA0021
IUT06
I
I
free
I
I
I
~-----------------------------------+---------------+-----------------------------------~
ISC6
Move current triple - text
ILA002S
IUT03,UT06
I
wanted
I
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
ISC7
Move current triple - text
ILA0026
IUT03,UT06
I
I
free
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
ISC10
Symbolic input pointer to
ILA0035
IUT01
I
I
absolute
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
ISC11
Skip pseudo-code - text
ILA0040
IUT06
I
wanted
I
I
I
I
~-----------------------------------+---------------+-----------------------------------~
ISC12
Skip pseudo-code - text
ILA0041
IUT06
I
I
free
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
IMV2
Move user pseudo-code to
ILAOOSO
IUT04
I
I
contiguous OP
I
I
I
~.-----------------------------------+---------------+-----------------------------------~
I1'1V3
Move user pseudo-code to OP I LAOOSS
I UT04
I
~.-----------------------------------+---------------+-----------------------------------~
IMV3A
Move user triples to OP
ILAOOS6
IUT03
I
~.-----------------------------------+---------------+-----------------------------------~
IDV1
GE~nerate dope vector for
ILA0070
IUT07,UT10,UT11
I
based aggregate
I _______________ I _ __________________________________ JI
lI ___________________________________
~

~

Section 3: Charts and Routine Directories

231

.Table LA1.

Phase LA Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+---------------------------------------------------------------------~
DVl
IGenerate dope vector for based aggregate.
MV2
MV3
MV3A
SCINIT

I

IMove user pseudo-code to contiguous output text.

I

IMove user pseudo-code to output.

I

IMove user triples to output.

I

IInitialize input and output text blocks.

SCi

Searches for triple of interest to user as indicated by 1RT table.

SC2

Move current triple to output then search for triple of interest to
user.

SC3

Delete current triple then search for triple of interest to user.

SC4

Skip over current triple and mask input WANTED.

SC5

Skip over current triple and mark input FREE.

SC6

IMove current triple to output and mark input WANTED.

SC7

Move current triple to output and mark input FREE.

SC8

lYJove input pseudo-code to output and mark input WANTED.

SC9

Move input pseudo-code to output and mark input FREE.

SC10

Convert symbolic input pointer to absolute.

SCll

Skip over input pseudo-code and mark input WANTED.

SC12

Skip over input pseudo-code and mark input FREE.

UTOl

Get a new input text block.

UT02

Get a new output text block.

UT03

Move pseudo-code to output.

UT04

Move triples to output.

UT05

Move text to output.

UT06

Test for end of block and chain to next clock if necessary.

UT07

Convert dictionary reference to at-solute.

UT08

Move input pseudo-code to output.

UT10

Set adjustable Dound values in a dope vector.

IUTll
Convert output text references to __________________________________
absolute.
L
__________________ __________________________________
.
~

232

Table LB. Phase LB Pseudo-Code Initial

r-----------------------------------T---------------T-----------------------------------,

I
I

Statement or Operation Type

IMain Processing I
I
Routine
I

I
I

Subroutines Used

t-----------------------------------+---------------+- ----------------------------------~

IScans text for PROCEDURE, BEGIN,
land ALLOCATE triples
I

ISCAN
I
I

ISCINIT, SCi, SC3, SC5 (all in LA),
ISFSCAN, ENDRTN, MAIN, SCAUTO,
I AUT012

I
I

I

~-----------------------------------+---------------+-----------------------------------~

IScans automatic chain

ISCAUTO

IMAIN

I

t-----------------------------------+---------------+-----------------------------------i

IProcesses INITIAL attribute dicItionary items

IMAIN
I

ICNSTWK, ARRENT
I

I

l

.--------.---------------------------+---------------+-----------------------------------1

IProcesses IDV

statement~)

IAUT012

I

IARrtENT

t------------------------------------+---------------+ -----------------------------------~

IProcesses
INITIAL arrays
I ARRENT
L
___________________________________
_______________ ICNSTWK
_ __________________________________ JI
~

Table LEi.

~

Phase LB Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

.------------------+---------------------------------- ----------------------------------~

ARRENT (LC)
AUT012

CNSTWK
ENDRTN
MAIN
SCAN
SCAUTO
L SFSCAN
___________________

IGenerates triples and pseudo-code for arrays declared with INITIAL.

I

IProcesses IDV (initial dope vector) statements.

I

\

ICreates initialization triples.

I

IReleases phase and scratch storage.

I

IProcesses INITIAL attribute dictionary items.

I

IScans text for PROCEDURE, BEGIN, and ALLOCATE triples.

I

IScans AUTOMATIC chain.

I

Iscans
through second file statements.
_________________________________
___________________________________ J

~

Section 3: Charts and Routine Directories

233

Table LD. Phase LD Pseudo-Code Initial

r-----------------------------------T---------------T------------------------------------1

I
I

statement or Operation Type

IMain Processinql
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+- -----------------------------------1

Iscans the STATIC chain for any
I STATIC
IENDRTN, ARRENT, CNSTWK,
I
Ivariable with the INITIAL attribute I _______________ I _LOVNAS,
STHADD
__________________________________
.JI

L ___________________________________

~

~

Table LD1. Phase LD Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I

Function

I

~------------------+---------------------------------- -----------------------------------1

ARRENT

Processes the initial value string for arrays.

CNSTWK

Creates constant entries for initial values.

CNVERT

Converts decimal integer constants used as replication factors to
fixed binary.

ENDRTN

Releases the phase and scratch storage.

GAAl

Scans array initial value string.

GAC3

Makes slot for converted constant for arrays.

LOVNAS

Calculates the equivalent length in bits or bytes of a constant for
variable or adjustable length strings.

STATIC

Scans the STATIC chain.

STRADD

Addresses elements of structures.

ST0006

Locates initial value list.

ST0088

Resets initial value entry.

IST9999

Makes slot for converted constant for scalars.

L __________________ i ___________________________________________________________________ _

234

Table LG. Phase LG Pseudo-Code DO Expansion

T -----------------------------------,
r----------------------------------- TI --------------Main Processing I
I

I
I

Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+-------.--------+-----------------------------------~
I Scans text
I LG0002
I SCi (LA)
I
~------------------------------------+---------------+-----------------------------------~
IFor iterative DO triples, pushes
ILGOOii
IPSHDWN, SC5 (LA), CVSCAN
I
Idown stack and examines control
I
I
I
I variable
I
I
I
~-----------------~-----------------+---------------+-----------------------------------~
IPushes down DO s t a c k ·
1LG 0013
IPSHDWN
I
~-----------------------------------+---------------+-----------------------------------~
IFor iterative DO' and DO' triples, ILG0012
I EXPEVL, POPUP
I
Ipushes up stack and removes top
I
I
I
I
I
I
I entry
~-----------------------.------------+---------------+-----------------------------------~
IFor CV triples, reverts to normal
ILG0015
IEXP~VL
I
1 scan
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IFor TO and TO' triples, examines
ILG0017
I EXPEVL, TESTOP
I
~argument and assigns to temporary, I
I
I
I
I
I
I if necessary
~-----------------------------------+---------------+-----------------------------------~
IFor BY and BY' triples, examines
ILG0019
I EXPEVL, TESTOP
I
lexpression and determines signs of I
I
I
I
I
I
I constants; assigns variables to
I temporary
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IFor WHILE and WHILE' triples, marksiLG002i
ICODE3
I
Iloop as iterative; generates test
I
I
I
I triples
I
I
I
.-----------------------------------+---------------+-----------------------------------~
IDO EQUALS triples, assigns expres- ILG0024
ICODE2, TESTOP
I
ISion as a temporary; generates codel
I
I
Ito control loop if end of specifi- I
I
I
I
I
I
I cation
.-----------------------------------+---------------+-----------------------------------~
Isets up control variable text in DOICVSCAN
ICVCOPY, PSTYPO, PSTYPi
I
~stack
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IGenerates loop control code
ICODE2
ICVCODE, DICENT, COMPAR, SWITCHP,
I
I
I
I
ILMV3AU, LMV3A5, PSTYPO, PSTYPi
.---------------_._------------------+---------------+-----------------------------------~

ITests expression result type and
ITESTOP
IDICCHN, LMV3A5
I
lassigns to temorary if not constant I
I
I
~-----------------------------------+---------------+-----------------------------------~
IMoves
text from DO stack to output ICVCODE
L
___________________________________
_______________ ILMV3AU
___________________________________ JI
~

~

Section 3: Charts and Routine Directories

235

Table LG1.

Phase LG Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------"

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
CODE2
IGenerates loop control code.
I
I
CODE3
IGenerates loop control code for wHILE.
COMPAR

I

Generates triples to test upper limit control expressicn.

CVCODE

Moves text from DO stack to output.

CVCOPY

Moves input text to DO stack.

CVSCAN

Sets up control variable text in DO block.

DICCHN

Chains dictionary entries.

DICENT

Makes a dictionary entry.

EXPEVL (LH)

Analyzes expression to determine result type.

LGOOOO

Initializes phase.

LGOOO2

Scans text.

LGOO1O

When EOP triple encountered, releases scratch storage and passes
control to next phase.

LGOOll

For iterative DO triples pushes down stack and examines control
variable.

LGOO12

For iterative DO' and DO' triples pushes up stack and removes top
entry.

LGOO13

Pushes down DO stack.

LGOO15

IFor CV triples reverts to normal scan.

LGOO17

For TO and TO' triples, examines argument and assigns to temporary
if necessary.

LGOO19

For BY and BY' triples, examines expression and determines sign of
constants. ASSigns variables to temporary.

LGOO21

For WHILE and WHILE' triples, marks loop as iterative and generates
text triples.

LGOO22

When WHILE' triple encountered, branches to generate comparison
triples.

LGOO24

For DO EQUALS triples, assigns expression to a temporary: generates
code to control loop if at the end of specification.

LMV3AU

Moves triples to output.

LMV3A5

Moves one triple to output.

POPUP

Removes item from DO stack.

PSHDWN

Pushes down DO stack and initializes new stack entry.

PSTYPO/PSTYPl

Test pseudo-variable argument type.

SWITCHP

Changes DO stack text markers.

TESTOP
l __________________

236

~

Tests expression result type and assigns to terrporary if not constant.
__________________________________ _________________________________ _

Table LS. Phase LS Pseudo-Code Expression Evaluation

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-.----------------------------------+---------------+-----------------------------------~
IScans text and branches to
ILBO
IARITH, FUNCT, LZZ1, MOVEPC,
I
Iprocessing routines; marks phase LWI
ISCAN (LA), STRIN~, SUESPT
I
land releases control to next phase I
I
I
~-.----------------------------------+---------------+-----------------------------------~
Icalculates result type and
IARITH, ARITH2
IADDSTK, ASSIGN, CONVT, CICDES,
I
Igenerates pseudo-code for +, -, *, I
I EXPONT, GENRPD, GETADX, GETFR,
I
I/f prefix +, prefix -, compare
I
IGETGR, MCVEPC, RELSTK, SETCPX,
I
loperators, and ADD, MULTIPLY, and
I
I STRING, SWOP
I
IDIVIDE functions
I
I
I
~-.----------------------------------+---------------+-----------------------------------~
ICalculates result type for string
I STRING
ILZZ1, MOVEPC, STALRG
I
I
I
I
I operators
~-.----------------------------------+---------------+-----------------------------------~
IInserts symbolic register in subISUBSPT
IADDSTK, DICDES
I
Iscript triple and stacks result
I
I
I
~-----------------------------------+---------------+-----------------------------------i
IInserts workspace descri~tion in
IFUNCT
IADDSTK, ARITH, DICDES, GETFR,
I
ITMPD triples after function, and
I
IGETGR, SCAN
I
Istacks result.
Stacks arguments
I
I
I
Ifor ADD, MULTIPLY, and DIVIDE func-I
I
I
Itions. Adds pseudo-variable mark- I
I
I
lers to stack
I
I
I
~-----------------------------------+---------------+-----------------------------------~
Icalculates results types and
I EXPONT
IADDSTK, ARITH2, CONVT, GETADX
I
Igenerates pseudo-code for ** opera-I
I MOVEPC, STALRG, SWOP
I
Itor.
Generates calling sequences
I
I
I
Ito library subroutines for complex I
I
I
I arithmetic
I
I
I
~-.----------------------------------+---------------+-----------------------------------~
ICalculates target type and
ICONVT
IADDSTK, ASSIGN, GETFR, MOVEPC,
I
Igenerates assignment triple for
I
ISTALRG
I
Iconversion; sets dictionary entries I
I
I
Ifor constants
I
I
I
~-.----------------------------------+---------------+-----------------------------------~
IInterchanges operands; optionally
ISWOP
IGETADX, GETFR, GETGR
I
Iloads first operand
I
I
I
~-----------------------------------+---------------+-----------------------------------i
IObtains free floating or fixed
JGETFR, GETGR
IGETADX, STALRG
I
larithmetic register; stores it, if I
I
I
Inecessary
I
I
I
~-.----------------------------------+---------------+-----------------------------------i
IAdds items to, and releases items
IADDSTK, RELSTK INone
I
Ifrom intermediate result stack
I
I
I
~-.----------------------------------+---------------+-----------------------------------i
IGenerates calling sequence for
ISETCPX
I EXPONT, GETADX
I
Icomplex * and I operators, superI
I
I
Ivises complex arithmetic
I
I
J
~-----------------------------------+---------------+-----------------------------------i
IInserts TMPD triples after zero
ILZZl
IRELSTK, SCAN
I
lloperands
___________________________________ I _______________ I ___________________________________ JI
~

~

Section 3: Charts and Routine Directories

237

Table LSi.

Phase LS Routine/Subroutine Directory

r------------------T-------------------------------------------------------------------I Routine/Subroutine I
Function
~------------------+---------------------------------- ----------------------------------

ADDSTK (LT)

Adds items to intermediate result stack.

ARITH/ARITH2 (LT)

Calculate result type and generate code for +, -, *, /, prefix +,
prefix compare operators, and ADD, MULTIPLY, and DIVIDE functions.

ASSIGN

Generates an assignment triple and TMPD in the output text.

CONST

Sets up dictionary entry for constant operand.

CONVT

Calculates target type and generates assignment triple for conversion.

DICDES

Constructs operand description from dictionary entry.

EOP2

Marks phases wanted/not wanted and releases control.

EXPONT (LU)

Calculates result type and generates pseudo-code for ** operator,
and generates calling sequence to Library subroutines for complex
arithmetic.

FCTDES

Inserts workspace description in TMPD triples after function, and
stacks result.

!
I
I
I
I
I
I
I
I
~
~

FUNCT

Inserts workspace description in TMPD triples after function, and
II
stacks result. Stacks arguments for ADD, MULTIPLY, and DIVIDE func-j
tions. Adds pseudo-variable markers to stack.
~

FXCi (LT)

Generates fixed binary pseudo-code.

GENRPD

Generates pseudo-code for packed decimal operations.

GETADX (LT)

Sets up address of pseudo-code instruction.

GETFR/GETGR (LT)

Obtain free floating or fixed arithmetic register; store it, if
necessary.

LBO

Scans text and branches to processing routines.

LBE21 (LT)

Tests for operand conversions and constants.

LBFLi (LT)

IGenerates floating pseudo-code.

LZZl

Inserts TMPD triples after zero operands.

MOVEPC

Moves pseudo-code to output text.

PSI

Adds pseudo-variable marker to stack.

RELSTK (LT)

Releases items from intermediate result stack.

SETCPX (LU)

Generates calling sequence for complex
complex arithmetic.

STALRG

*

~
~
~
~
~
~

I
~

I
~

I
I
I

I
I
I
I
I
I
I
I
I
I
I

and / operators; supervisesl

I

I
Generates pseudo-code to store all arithmetic registers currently inl
use.
I

I
I
I
SUBSPT
Inserts symbolic register in subscript triple and puts result in
I
stack.
I
I
SWOP
Interchanges operands and optionally loads first operand.
I
L __________________ L ____________________________________________________________________ J
STRING

238

Calculates result types for string operators.

Table LV.

Phase LV Pseudo-Code String utilities

r--------"---------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

~----------------.-------------------+---------------+-----------------------------------~

IInitializes module; releases conItrol to next module

ISTRUTO
I

INone
I

I

I

~------------------------"-----------+---------------+-----------------------------------~

Iconverts data item to string; cal- ISTRUTi
Iculates string length
I

ISCAN (LA), STRUT2
I

I

I

~-----------------------------------+---------------+-----------------------------------~

IProduces a string dope vector desIcription from a standard string
I description
L
___________________________________

Table LVi.

ISTRUT2
INonE
I
I
I
I
I _______________ I _ __________________________________ JI

~

~

Phase LV Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Functicn

I

~------------------+---------------------------------- ----------------------------------i

LSUT17

Tests whether string length is greatEr than 256, and if necessary
generates fixed length calling sequence.

LSUT22

Tests whether string dope vector result is required.

LSUT26

Generates any assignrr.ent and TMPD triples.

LSUT27

Sets up assignment and TMPD triples.

STUTO

Initializes module; releases control to next module.

STRUTi

Converts data item to string type; calculates string length.

STRUT2

Produces string dope vector description from standard string description.

ZSTUTi

Transfer vector to STRUTi.

ZSTUT2
L __________________

~

I
I

I

I
I
I

Transfer vector to STRUT2.
__________________________________
__________________________________ JI

SEction 3: Charts and Routine Directories

239

Table LX. Phase LX Pseudo-Code String Handling

r-----------------------------------T---------------T-----------------------------------,
I

IMain Processingl
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
IInitializes phase, scans text and
IBEGIN
I FUNPT, SCAN (LA), STROP,
I
Ibranches to processing routines;
I
ISUBSPT, TMPDT
I
Ireleases control to next ~hase
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses TMPD triples.
ArithmeticlTMPDT
IGETMPD, MOVSEL, RELSTK, SCAN (LA)
I
Itype TMPDs are ignored.
String
I
ISET~PD
I
ITMPDs are replaced by the top item I
I
I
Ifrom the string stack
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses function and function
I FUNT
~ADDSTK, DICDES, GETADS, GETMPD,
I
largument triples.
Arithrretic type I
I MOVEPC, RELSTK, SCAN (LId, SETMPD, I
Ifunctions are ignored. Dictionary I
ISTkOP
I
lentries are created for the resultsl
I
I
lof string type functions.
A
I
I
I
Ilibrary calling sequence is gener- I
I
I
fated for the BOOL function using
I
I
I
Ithe mechanism for packed tit opera-I
I
I
Itions. The result descriptions arel
I
I
ladded to the string stack
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses subscript triples.
ISUBSPT
IADDSTK, DICDES, SEGNOR, SCAN (LA)
I
IArithmetic type subscripts are
I
I
I
lignored. A symbolic register or
I
I
I
Iworkspace offset is added to string I
I
I
Itype subscript triples and the
I
I
I
Istring description is added to the I
I
I
I string stack
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses string operations CONCAT,ISTROP
IADDSTK, DICDES, GETADS, GETADX,
I
lAND, OR, NOT and comparisons with
I
IGET~PD, MOVEPC, MOVSEL, RELSTK,
I
Istring type operands.
For simple
I
ISCAN, STRUT (LV), ASSIGN, GETWS4,
I
Icases, in-line pseudo-code is gen- I
IGETWS8, SBGNER, SBGNR
I
lerated; otherwise calling sequences I
I
I
Ito the library are generated.
The I
I
I
Iresults are added to the string
I
I
I
LIstack.
___________________________________ I _______________ I _ __________________________________ JI

I

~

240

~

.Table LX1. Phase LX Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

I

Function

~------------------+--------------------------------------------------------------------~

ADDSTK

ADSTR (LY)

IAdds strings to the intermediate string result stack.

I
I

Iconstructs dope vactor and string descriptions from a given descriptor which may describe either a string, or its dope vector.

ASSIGN

Generates an assignment triple and associated
text.

BEGIN

Main controlling routine for phase.

DICDES

constructs operand description from dictionary entry.

FUNPT

Processes result returned by functions.

FUNT

Processes funtion and function argument triples.

GETADS/GETADX

construct address part of pseudo-code instruction.

GETMPD

constructs operand description from TMPD triples.

GETWS4
GETWS8
LB

~MPDs

in the output

IAllocates 4 bytes of aligned workspace.

I

IAllocates 8 bytes of aligned workspace.

I

Terminates phase at end of program.

LIBl

Generates Library calls for string operations.

LIL2 (LY)

Generates pseudo-code for NOT operation.

LIL3 (LY)

Generates pseudo-code for concatenation operation.

LIL6 (LY)

Generates pseudo-code for comparison operation.

LIL8 (LY)

Generates pseudo-code for AND/OR operation.

Ll1

Generates pseudo-code to convert to string.

MOVEPC

Moves pseudo-code from nuffer to output text.

MOVSEL

Moves SELL triples to output text.

MVC1/MVC2(LY)

Creates MVC instructions.

RELSTK

Removes strings from the intermediate string result stack.

SEGNER

Gets next even-odd pair of symbolic registers.

SBGNOR

Gets next symbolic register.

SBGNR

Gets next symbolic register.

SETMPD

Constructs TMPD triples from description.

SUBSPT
TMPDT
L T5
__________________

I
I
I
I
Processes subscript triples.
I
I
Processes TMPD triples.
I
I
Sets
flags for triple types.
__________________________________
__________________________________ JI
Processes string operations CONCAT, AND, OR, NOT, and comparisons
with string type operands.

STROP

~

Section 3: Charts and Routine Directories

241

Table MB.

Phase MB Pseudo-code Pseudo-Varidcles

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processing\
\
\
Statement or Operation Type
\
Routine
\
subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
\Scans source text
\MBOOOl
\SCl (LA)
\
~-----------------------------------+---------------+-----------------------------------~
IPSI operator; starts new entry in
\MBOOll
\ SWITCH
\
\stack for pseudo-variable
\
I
I
~-----------------------------------+---------------+-----------------------------------~
IPSI' operator; completes stack
\MB0012
\SWI~CH, TARGET
\
\entry and generates code for data
\
\
I
\list items
\
\
\
~-----------------------------------+---------------+-----------------------------------~
\Assign completes stack and rescans \MB0013
IDRF~~P, MMV3A5, MVTMPD, OUTMPD,
I
\group of assignments, putting tar- I
\TARGET
\
Iget descriptions out in correct
\
\
I
\ sequence; generates code for
\
\
\
Ipseudo-variables in stack
\
I
\
~-----------------------------------+---------------+-----------------------------------~
\Multiple assign; places only target\MB0014
I MVTMPD
\
\descriptors in stack
\
\
\
~-----------------------------------+---------------+-----------------------------------~

IConstructs pseudo-variable stack
\MB0020
IMVT~PD
I
lentry
\
\
I
~-----------------------------------+---------------+-----------------------------------~
IPlaces temporary descriptor in
\OUTMPD
\MMV3A5
I
\ output
\
I
I
~-----------------------------------+---------------+- ----------------------------------11

\Gets temporary workspace for

\TARGET

\GETWKS

~

\ pseudo-variable,
if necessary
I _______________ \ _ __________________________________ J~
L
___________________________________
~

242

~

Table MB1.

Phase MB Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
DRFTMP
Makes temporary descriptor from a dictionary reference.
I
GETWKS

Obtains workspace to accoITmodate a variable of given type.

MBOOOl

Scans source text.

MB0004

Multi-switch for triples of interest.

MB0010

On reaching end-of-text marker, releases rerraining block, and
releases control of phase.

MBOOll

PSI operator; starts new entry in stack for pseudo-variable.

MB0012

PSI' operator; completes stack entry and generates code for data
list items.

MB0013

ASSIGN; completes stack and rescan group of assignments, putting
target~ descriptions out in correct sequence, generates code for
pseudo-variable in stack.

MB0014

Multiple ASSIGN; places any target descriptors in stack.

MB0020

constructs pseudo-variable stack entry.

MB1310

Resets input pointer to start of sequence of ASSIGNS.

MB13l1

Rescans ASSIGNS and associated TMPDS from stack in reverse order.

MB13l6

Tests for end of stack.

MB13l8

Tests for pseudo-varaible TMPD.

MB1320

Generates code for pseudo-variable.

MMV3A5

Moves one triple to output.

MVTMPD

Places temporary descriptor in stack.

OUTMPD

Places temporary descriptor in output string.

SWITCH

changes scanning table.

I
I
I
I
I
I
I
I
I
I
I

I
I
I
I
I
I
I
I

Il TARGET
temporary workspace for pseudo-variable,
if necessary.
___________________ Obtains
_________________________________
___________________________________
J
~

Section 3: Charts and Routine Directories

243

• Table MD.

Phase MD Pseudo-Code In-Line Functions

r-----------------------------------T---------------T-----------------------------------"
I
IMain Processingl
I

Statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------i
IScans text
IPhase LA (SCAN) INone
I
~-----------------------------------+---------------+-----------------------------------i
IBuilds up function stack
ILFARIN
INone
I
~-----------------------------------+---------------+-----------------------------------i
IBuilds up argument stack
ILFCOM
INone
I
~-----------------------------------+---------------+-----------------------------------.~
IMoves generated code to output
ILFMOVE
IMV3(LA)
I
I
I
I
I block
~-----------------------------------+---------------+-----------------------------------i
IGenerates in-line code and
ILFEOF2
I SNAKE
I
Ilibrary
calling sequences
I _______________ I ___________________________________ JI
L
___________________________________
~

• Table MDl.

~

Phase MD Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
LFARIl
Continues scan for in-line functions.
I
LFARIN

LFDR
LFEOF2

Calls subroutines to generate

LFIGN

244

in-lin~

code.

Removes triple from text if inside an in-line function.

LFSPEC

I

I

I
Builds up argument stack.
I
I
Unpacks dictionary reference of argurrent when argurrent triple found. I
I

LFCOM

L SNAKE
__________________

I

Builds up function staCK.

Branches if IGNORE triple or not an in-line function.
~

I

I

I

I

I

I
Generates code for ADDR function.
____________________________________________________________________
JI

eTable ME. Phase ME Pseudo-Code In-Line Functions

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------~
IScans and moves text
IPhase LA (SCAN)ISC1,SC2,SC3,SC5,MV3
I
~-----------------------------------+---------------+-----------------------------------~
IBuilds up function stack
ISFUNC
IZDRAOF
I
~-----------------------------------+---------------+-----------------------------------~
IConstructs result TDB and branches ISFNPM
IMS4,MS5,MSB,RTAA,RTAB,INDEX,
I
Ito routines for INDEX, UNSPEC,
I
I ILUNSP,EVENT, ZDRAOF,STATUS
I
I CONPLETION, and STATUS
I
I
I
~-----------------------------------+---------------+- ----------------------------------i

IDeletes current triple
ISIGN
INone
I
~-----------------------------------+---------------+-----------------------------------~
IBuilds up argument stack
ISDCOM
IZDdAOF
I
~-----------------------------------+---------------+- ----------------------------------i

IInspects arguments and branches to IMSB
IRTB,RTC,RTL,RTE,RTF,RTG,RTH
I
subroutine
I _______________ I ___________________________________ JI
I appropriate
L_,
__________________________________
~

~

eTable MEl. Phase ME Routine/Subroutine Directory

T------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+---------------------------------- ----------------------------------i

EVENT

Generates in-line code for COMPLETION function.

FINISH

Passes control to the next phase.

ILUNSP

Generates in-line code for the UNSPEC function.

INDEX

Generates in-line code for optimizable invocations of the function
INDEX ..

MSB

Calls subroutines to generate in-line code.

MSG

Resets current flag and continues scan.

RLCTOF

Releases module and passes to"next phase.

RTAA

Generates in-line code when the result is in a register by name, and
the second argument is constant.

RTAB

Generates in-line code when the result is in a register by name, and
the second argument is variable.

RTB

Generates in-line code for the case when the first argument is an
aligned bit string, and the second and third arguments are both
constant.

RTC

Generates in-line code in the case when the first argument is a
character or aligned bit string, the second argument is constant and
the third variable.

RTD

RTE

Generates in-line code when the first argument is a character or
laligned bit string, the second is constant and the third is not
Ipresent.

I

IGenerates in-line code when the first argument is a packed bit
Istring, and the second is constant.

I

IRTF
IGenerates in-line code when the first argument is a character
and the second and third are
both variable.
LI __________________ Istring,
__________________________________
_________________________________
_
~

Section 3: Charts and Routine Directories

245

Table MEl. Phase ME Routine/Subroutine Directory (continued)

T------------------T---------------------------------------------------------------------,
I Routine/Subroutine I

Function

,

~------------------+--------------------------------------------------------------------.~

RTG

Generates in-line code when the first argument is a character
string, the second is variable, and the third is not present.

RTH

Generates in-line code when the first argument is a bit string, and
the second is variable.

SBERR

Error routine.

SBGNER

Gets the next even register and sets the even/odd bit on.

SBGNOR

Gets the next odd register and sets the even/odd bit on.

SBGTNR

Gets the next available symbolic unassigned register.

SCAN

Scans for the next triple of interest.

SCINIT

Initializes pointers and text blocks.

SDCOM

Builds up argument stack.

SFNPM

Generates in-line code.

SFUNC

Builds up function stack.

STATUS

I

Generates code for STATUS function.

STRUT2

Constructs a string dope vector.

SUBl

Generates code to place the address of the first argument plus a
literal offset into a symbolic register.

SUB3

Generates a ST and DROP instruction, optionally followed by a MVI
instruction.

SUB4

Constructs a dictionary entry for the constant JJ, and generates an
MVC instruction.

SUBS

Generates two STH instructions, followed by a DROP instruction.

SUB6

Generates an RX instruction to operate on a TDB by a register,
optionally followed by an instruction to drop any reqister used in
addressing the TDB item.

I
I
I

ISUB7L

I

ISUB7R
I
ISUB9

I

Deletes current triple.

SIGN
I

I
I

Generates SR, SLDL, OR instructions.
Generates SR, SRDL, OR and DROP instructions.

ICalculates correct values for ILEN, IOFF and Y.
I
IConverts a dictionary reference to an absolute address.
IZDRAOF
I
I
IZURCOF
scratch core.
__________________ i IReleases
__________________________________
__________________________________.J

I

~

246

Table MG.

Phase MG Pseudo-Code In-Line Functions 1

r-----------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processing I
Routine
I

I

I
I

Subroutines Used

1·-----------------------------------+---------------+ -----------------------------------~

IScans text

IPHASE LA (SCAN) INone

I

1·-----------------------------------+---------------+ -----------------------------------~

IBuilds up function stack

ILFARIN

INone

I

l·-----------------------------------+---------------+ -----------------------------------~

IBuilds up argument stack

ILFCOM

I

INone

.-----------------------------------+---------------+- ----------------------------------~

IMove generated code to output
Iblock.

ILFMOVE
I

IMV3 (LA)

I
I

I

.-----------------------------------+---------------+- ----------------------------------~

IGenerates in-line code
ILFEOF2
IABBFLL, ABbFLS, ABSFB, ABSFD,
I
I
I
I
IALLCC2, CElLB, CEILD, CEILL,
I
I
ICEILS, CMPLXB, CMPLXD, CMPLXL,
I
I
I
I
ICNASTR, CNVIN'I, CCNJGE, CONJGD,
I
I
ICONJGL, CONJGS, ERRFUN, FLOORB,
I
I
I
IFLOORD, FLOORL, FLOORS, IMAGB,
I
I
IIMAGFD, I~lAGL, IMAGS, REALE,
I
I
I
IREALFD, REALL, REALS, SBG'INR,
I
I
I
I
I
I TRUNCB, TRUNCD, TRUNCL, TRUNCS,
I ___________________________________ I _______________ LI UNSPEC,
UTTEMP
L
_ __________________________________
JI
~

Table MG1.

Phase MG Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutinel

Function

I

.------------------+---------------------------------- -~--------------------------------~

ABBFLL

Generates in-line code for ABS function with long floating-point
argument.

ABBFLS

Generates in-line code for ABS function with short floating-point
argument.

ABSFB

Generates in-line code for ABS function with fixed binary argument.

ABSFD

Generates in-line code for ABS function with fixed decimal argument.

ALLOC2

Generates in-line code for ALLOCATION function.

CEILB (MH)

Generates in-line code for the CEIL function with fixed binary argument .

CEILD (MH)

Generates in-line code for the CEIL function with fixed decimal
argument.

CEILL (MH)

Generates in-line code for CEIL function with long floating-point
argument.

CElLS (MH)

Generates in-line code for the CEIL function with short floatingpoin1: argument.

CMPLXB

Generates in-line code for COMPLEX function with fixed binary
argument.

CMPLXD

Generates in-line code for COMPLEX function with fixed decimal argument.

CMPLXL

Generates in-line code for COMPLEX function with long floating-point
argument.

CNASTR

Constructs assignment triple and associated TMPDS.

ICNVINT
L
__________________

~

I
I

I

I

I
I

Converts a decimal integer constant__________________________________
to fixed binary.
__________________________________
J

Section 3: Charts and Routine Directories

247

Table MG1.

Phase MG Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------1

I Routine/Subroutine I

Function

I

.------------------+---------------------------------- ----------------------------------~

CONJGB

Generates code for the CONJG function with fixed binary arguments.

CONJGD

Generates in-line code for the CONJG function with fixed decimal
arguments.

CONJGL

Generates in-line code for the CONJG function with long floatingpoint arguments.

CONJGS

Generates in-line code for the CONJG function with short floatingpoint arguments.

I
I
I
I
I
I
I
I
I
!I
I

ERRFUN

Aborts if Phase 1M discovers an error in a function.

FLOORB Om)

Generates in-line code for the FLOOR function with fixed binary
argument.

I
I
II

Ii
II

FLOORD (MH)

IGenerates in-line code for the FLOOR function with fixed decimal
argument.

I
II
I

FLOORL (MH)

Generates in-line code for the FLOOR function with long floatingpoint argument.

II

Generates in-line code for the FLOOR function with short floatingpoint argument.

II

I

FLOORS (MH)
IMAGB

Generates in-line code for IMAG function with fixed binary argument.

IMAGFD

Generates in-line code for IMAG function with fixed decirral
argument.

IMAGL

Generates in-line code for IMAG function with long floating-point
argument.

IM/,GS

Generates in-line code for IMAG function with short floating-point
argument.

LFARIN

Builds up function stack.

LFARIl

Continues scan for in-line functions.

LFCOM

Builds up argument stack.

LFDR

Unpacks dictionary reference of argument when argument triple found.

LFEOF2

Calls subroutines to generate in-line code.

LFEOF3

Depending on start of argument list, branches to produce in-line
code.

LFIGN
LFMOVE
LFSPEC
IREALB
L
__________________

248

~

~

I
II

~
II
II

I
I
I
Removes triple from text if inside an in-line function.
I
I
Moves generated code to output block.
I
I
Branches if IGNORE triple or not an in-line function.
I
I
Generates
in-line code for REAL function
with fixed binary argument. JI
__________________________________
__________________________________

Table MG1.

Phase MG Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,
I Routine/subroutine I

I

Function

~------------------+--------------------------------------------------------------------~

IREALFD

IGenerate in-line code for REAL function with fixed decimal argument.

I

I

I
I

I

I

I

I

I

IREALL

IREALS
I
ISBGTNR
'rRUNCB (MH)
TRUNCD (MH)
TRUNCL (MH)
TRUNCS (MH)
UNSPEC (MH)

IGenerate
I argument.

in-lin~

code for REAL function with long floating-point

IGenerates in-line code for REAL function with short floating-point
I argument.

IGet next available symbolic register.

IGenerates in-line code for the function TRUNC with fixed binary
largument.

I

IGenerates in-line code for the TRUNC function with fixed decimal
largument.

I

IGenerates in-line code for the TRUNC function with long floatingIpoint arguments.

I

IGenerates in-line code for the THUNC function with short floatingIpoint argument.

I

IGenerates in-line code for the UNSPEC function.

I

IUTTEMP
a required amount of temporary__________________________________
work space.
l __________________ IGets
__________________________________
J
~

section 3: Charts and Routine Directories

249

Table MI.

Phase MI Pseudo-Code In-Line Functions 2

r-----------------------------------T---------------T-----------------------------------,

I
I Main Processing I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------~
Iscans text
IPHASE LA (SCAN) INone
I
~-----------------------------------+---------------+-----------------------------------~
IBuilds up function stack
ILFARIN
INone
I
~-----------------------------------+---------------+-----------------------------------~
IBuilds up argument stack
ILFCOM
INon~
I
~-----------------------------------+---------------+-----------------------------------~
IMove generated code to output blocklLFMOVE
IMV3 (LA)
I
~-----------------------------------+---------------+-----------------------------------~
IGenerates in-line code
ILFEOF2
IMAXB, MAXD, MAXL, MAXS, MINB, MIND, I
I
I
IMINL, MINS, MODB, MODD, MODL, MOGS,I
ROUNDD, ROUNDL, ROUNDS
LI ___________________________________ I _______________ IROUNDB,
_ __________________________________
JI
~

Table MIl.

~

Phase MI Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
LFARIN
Bu{lds uf function stack.
I
LFCOM

Builds uf argument stack.

LFEOF2

Calls subroutines to generate in-line code.

LFMOVE

Moves generated code to output block.

MAXB/MINB (MJ)

Generate code for MAX/MIN function with fixed binary arguments.

MAXD/MIND (MJ)

Generate in-line code for MAX/MIN function with fixed decimal
arguments.

MAXL/MINL (MJ)

Generate in-line code for MAX/MIN function with long floating-point
arguments.

MAXS/MINS (MJ)

Generate in-line code for MAX/MIN function with short floating-point
arguments.

MODE (MJ)

Generates in-line code for MOD function with fixed binary arguments.

MODD (MJ)

Generates in-line code for MOD function with fixed deciwal arguments.

MODL (MJ)

Generates in-line code for MOD function with long floating-point
arguments.

MODS (MJ)

Generates in-line code for BOD function with short floating-point
arguments.

ROUNDB

Generate in-line code for ROUND function with fixed binary argument.

ROUNDD

Generates in-line code for ROUND function with fixed decimal argument.

ROUNDL

Generate in-line code for ROUND function with long floating-point
arguments.

I ROUNDS
Generate in-line code for ROUND function with short floating-point
IL__________________ __________________________________
arguments.
_________________________________ _
~

250

I

I

I

I

I

I

I

I

I

eTable MK.

Phase MK Pseudo-Code In-Line Functions 3

r-----------------------------------T---------------T-----------------------------------,

I

Statement or Operation Type

~

I Main Processing I
I
Routine
I

I

Subroutines Used

I

I~-----------------------------------+---------------+-----------------------------------~
~scans

text

IPHASE LA (SCAN) INone

I

~-----------------------------------+---------------+-----------------------------------~
~Builds

up function stack

ILFARIN

INone

I

~-----------------------------------+---------------+-----------------------------------~

~Builds up argument stack
ILFCOM
INone
I
~-----------------------------------+---------------+-----------------------------------~
~Move generated code to output blocklLFMOVE
IMV3 (LA)
I
~-----------------------------------+---------------+-----------------------------------~
~Generates in-line code
ILFEOF2
IDIM, HBOUND, LBOUND, LENG~, SIGNFB,I
~
I
\SIGNFD, SIGNL, SIGNS, FREBIE
I
L ___________________________________ _______________ _ _________________________________ -J
~

eTable MK1.

~

Phase MK Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
Routine/Subroutine I

Function

I

------------------+---_._----------------------------- ----------------------------------~

DIM

FREBIF
HBOUND

IGenerates code for DIM function.

I

I

I

I

I

IGenerates code for FREE function.

I

JGenerates code for HBOUND function.

I

I

LBOUND

Generates code for LBOUND function.

I

LENGT

Generates code for LENGTH function.

LFARIN

Builds up function stack.

LFCOM

Builds up argument stack.

LFEOF2

Calls subroutines to generate in-line code.

LFMOVE

Move~3

SIGNFB

Generates code for SIGN function with fixed binary argument.

SIGNFD

Generates code for SIGN function with fixed decimal argun-ent.

SIGNL

Generates code for SIGN function with short floating point argument.

SIGNS

Generates code for SIGN function with short floating point argument .

generated code to output block.

.------------------~----.----------------------------- -----------------------------------

Section 3: Charts and Routine Directories

251

Table ML.

Phase ML Pseudo-Code Calls and Functions

r-----------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processingl
I
Routine
I

I
I

Subroutines Used

~-----------------------------------+---------------+- ----------------------------------1

IScans text

IPHASE LA (SCAN) INone

I

~-----------------------------------+---------------+- ----------------------------------i

IIdentifies argument of procedure
I invocation

I FPFNAR
I

INone
I

I
I

~-----------------------------------+---------------+- ----------------------------------oi

Iselects generic built-in function

IFPBIF

I FPARDl

~-----------------------------------+---------------+-

______ ___________________________ I
~

o~

Iselects
PL/I generic entry name
IFPGAR
FPARD3, GNSECO
L
___________________________________
_______________ IFPARD2,
_ __________________________________
.JI
~

Table ML1.

~

Phase ML Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------01
I Routine/Subroutinr I

Function

I

~------------------+---------------------------------- ----------------------------------of

FPAOl

Scans for next argument.

FPARDl

Obtains parameter descriptions relating to built-in function arguments.

FPARD2

Obtains successive parameter descriptions relating to the entry
description of a PL/I generic procedure.

FPARD3

Obtains and stacks full parameter description of a PL/I generic
procedure.

FPBIF

Selects generic built-in functions.

FPEPCO

Constructs an entry parameter.

I
!
I
FPGAR
Selects FL/I generic entry name.
I
I
GNFM2
IReplaces generic reference testing for uniqueness.
i
I
I
IGNSECO
entry in stack of parameter __________________________________
descriptions.
L__________________ IMakes
__________________________________
JI
FPFNAR

Identifies arguments of procedure invocations.

~

.Table MM.

Phase MM Pseudo-code Calls and Functions

r-----------------------------------T---------------T-----------------------------------,

I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+-----------------------------------~

IScans text
IPHASE LA (SCAN) INone
I
~-----------------------------------+---------------+-----------------------------------~
IScans list, counts arguments and
ICFCALL
ICFARID, CFPBIR, CFFDVS, CFMVTR,
I
lidentifies storage class
I
ICFMVCD
I
~-----------------------------------+---------------+- ----------------------------------1

IRescans list and generates calling ICFCFSS
ICFARHA, CFCALP, CFBIFH, CFMLBR,
I
Isequence for library routine
I
ICF~VCD, CFNEST, UTTMPW, CFAIF1,
I
I ___________________________________ I _______________ I _BASED
L
__________________________________ JI
~

252

~

eTable MM1.

Phase

~M

Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

I

Function

~------------------+--------------------------------------------------------------------~

IBASED (MO)

I

I BEGIN

I

ICFALFl (MO)

I

ICFARHA

I

ICFARID (MO)

I

ICFBIFH

IGenerates relocation code for based variables.
Initializes phase.

Places address of invoked routine at the head of its argument list.
Generates calling sequence.
Counts arguments and

se~s

STATIC/AUTO flag.

Further built-in function identification with relevant parameter
setting.

CFB04

Restores previous environment.

CFB021

Tests nature of function found.

CFB036

Restores pointer to start of invocation.

CFCALL

Scans lists, counts arguments, identifies storage class.

CFCALP

Completes calling sequence and, if necessary, generates code to
initialize dope vector.

CFC03C

Tests for nested function.

CFCFSS

Rescans list and

CFEXIT

Transfer vector after first scan.

CFFBIR

Identifies built-in functions, sets parameters for calling sequence
generation.

CFFDVS (MN)

Reserves output text area for generation of code to initialize dore
vector when a function returns a string.

CFL06

Generates code to set up result dope vector.

CFL043

Generates code to place result address in

CFMLBR (MN)

Generates code to move a skeleton parameter list which is greater
than 256 bytes.

CFMVCD

Generates pseudo-code into the output text block.

CFMVTR

Generates triple into the output text block.

CFNEST

Handles a nested situation.

CFY007

sets parameters to produce special calling sequences.

UTTMPW (MN)

gene~ates

calling sequence for Library routine.

argu~ent

list.

IAllocates one word of workspace.

L__________________ L ___________________________________________________________________ _

Section 3: Charts and Routine Directories

253

eTable MP.

Phase MP Pseudo-Code BUY Reorder

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
I

Statement or Operation Type

I

Routine

I

Subroutines Used

I

~-----------------------------------+---------------+-----------------------------------~

IMain
scan routine for phase
L
___________________________________

eTable MP1.

IMPl
ZDRFAB, ZTXTRF, ZUERR
_______________ ISCAN,
_ __________________________________
JI

~

~

Phase MP Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------1

,

.

UT05

Adds SELL dictionary reference to SELL list if not already there.

MPl

Main controlling routine for rearranging BUY and SELL statements
involved in obtaining VDAs for adjustable length string temporaries.

MP3

Processes EOP triple.

MP4

Processes BUYS triple.

MP4A

Processes BUYX triple.

MP8

continues text scan if not string or arithmetic data, or not structure.

MP23

continues scan of text.

MP26

Processes BUYS triple.

MP27

Processes BUY ASSIGN triple.

MP28

Processes BUY triple.

MP29

Processes SUBSCRIPT triple.

MP30

Processes ASSIGN triple.

MP31

Accesses top stack entry.

MP86

Tests triple for BUYX, and processes.

MP87

Scans for BUYS, BUY, and SELL triples.

MP5

Processes SELL triple.

SCAN

General scan routine.

ZDRFAB

Converts dictionary reference to absolute address.

ZTXTRF

Changes absolute address to a text reference.

IZUERR
L
__________________

254

~

Releases control of phase.

Makes
error message entries.
__________________________________
__________________________________ J

Table MS.

Phase MS Pseudo-Code Subscripts

r-'----------------------------------T---------------T-----------------------------------,

I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

I
I

Subroutines Used

~-,----------------------------------+---------------+-----------------------------------~

IScans text

ISBSCAN

INone

I

~-,----------------------------------+---------------+-----------------------------------~

ICalculates element offset
I
I

ISBSTIH
I
I

ISBASS, SBCOBI, SBGNOR, SBMVCD,
ISBNEST, SBSUBP, SBSUDV, SBXOP,

I
I

IUTT~MP

I

~-,----------------------------------+---------------+-----------------------------------~

IChecks
subscript range
L
___________________________________

Table MS1.

ISBSBRN
INone
_______________ L
_ __________________________________ JI

~

Phase MS Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~

SBASS

Updates scan pointer over an assignment.

SBCOBI (MT)

Converts subscript to binary integer.

SBERR (MT)

Puts error message into dictionary.

SBGNOR (MT)

Allocates an odd sYffibolic register.

SBMVCD (MT)

Generates pseudo-code and moves it into output text block.

SBNEST (MT)

Handles nested subscript situation.

SBSBRN (MT)

Checks subscript range.

SBSCAN

Branches to LA for scan.

SBSTIH

Calculates element offset.

SBSUBI

Saves array name.

SBSUBP (MT)

Handles end of subscript list.

SBSUDV

Generates code to set up the dope vector of an array of adjustable
strings.

SBS05

Generates code to mUltiply subscript by multiplier.

SBS06

compiles code to convert to fixed binary.

SBSOO2

Checks for occurrence of subscript.

SBS029

Generates code to multiply subscript by 4 or 8.

SBTRID

Scans for comma, subscript prime, or subscript triple.

SBXOP (MT)

Handles special index feature.

SCAN

Controlling scan of text.

(MT)
L UTTEMP
__________________

~

Allocates
workspace.
__________________________________
_________________________________ _

section 3: Charts and Routine Directories

255

Table NA.

Phase NA Pseudo-Code Branches, ON, Returns

r-----------------------------------T---------------T-----------------------------------,

/
/ Main Processing /
/
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
/Initializes text block
INAINIT
/SCINIT (LA)
I
~-----------------------------------+---------------+- ----------------------------------i

IScans text for next triple of
/NASC1, NASC2,
/SC1, SC2, SC3 (all in LA)
I
I interest to user
I NASC3
I
I
~-----------------------------------+---------------+-----------------------------------.~
IProcesses STOP statements
ISTOP
INAUTl
I
r-----------------------------------+---------------+- ----------------------------------~

IProcesses EXIT statements
IEXIT
INAU~l
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses IF statements
IIF
INAUTD, NAUT16, NAUT21, ZSTUTl
I

r-----------------------------------+---------------+-----------------------------------·1
IProcesses ON statements

ION

INAU1D, NAU16, NAUT16, SC5 (LA)

I

r-----------------------------------+---------------+------------------------------------1

IProduces Library call at end of
leach PROCEDURE or BEGIN block in
Isource text

IPROCP, BEGINP
/
I

INAUTl

I
I
1

1

1

r-----------------------------------+---------------+------------------------------------,
IProcesses RETURN statements

IRETURN

INAUTl

I

~-----------------------------------+---------------+- -----------------------------------1
IProcesses function RETURN stateINA3002
INAU~B, NAUTCA, NAUT1, NAUT12
1
Iments for one data type
1
I
I
~-----------------------------------+---------------+- -----------------------------------1

/Processes function RETURN stateIments for more than one data type
1

INA3013
I
I

/NAUTA, NAUTB, NAUTCA, NAUTD, NAU~F, 1
INAUT1, NAU~7, NAUT8, NAUT9, NAUTll, I
I NAU'I12
I

r-----------------------------------+---------------+- ----------------------------------~

IProcesses GO TO statements

IGOTO

INAUTD

1

r-----------------------------------+---------------+- ----------------------------------~

/Processes GOLN triples

IGOLN

I

INAUTD

~-----------------------------------+---------------+- ----------------------------------1

IProcesses GOOB statements

IGOOB

INAUT5, NAUTD, NAUT16, SC5 (LA)

I

t-----------------------------------+---------------+-----------------------------------1
IProcesses SIGNAL statements
I

I SIGNAL
I

INAUTD, NAU~6, NAUT16,
/NAUT10, NAUT21

NAU~8,

I
~

t-----------------------------------+---------------+- --------------------------~-------~

IProcesses
REVERT statements
IREVERT
SC5 (LA)
L___________________________________
_______________ LINAU1D,
_ __________________________________
Jl
~

256

Table NA1.
Phase NA Routine/Subroutine Directory
r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~.------------------+--------------------------------------------------------------------~

EXIT

GOOB
GOTO
GOLN
IF
NAINIT

IProcesses EXIT statements.

I

IProcesses GOOB statements.

I

IProcesses GO TO

staterr~nts.

I

IProcesses GO TO label number (GOLN) triples.

I

IProcesses IF Statements.

I

IInitializes text blocks.

NASC1/NASC2/NASC3

Scan text

NAUTA

Generates pseudo-code to test switch value at RETURN (function
value) statement for more than one data type.

NAUTB

Generates assignment triple to

NAUTCA

Generates assignment triple set up by NAUTB.

NAUTD

Generates indicated pseudo-code.

INAUTF
L
__________________

f~r

next triple of interest to user.

RETU~N

function result.

IGenerates
pseudo-code to branch to __________________________________
L~U v~lue.
__________________________________
J

~

Section 3: Charts and Routine Directories

257

Table NA1.

Phase NA Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
NAUTl
IGenerates call to indicated library routine.
t

NAUT2
NAUT5

I

I

\Makes dictionary entry tor indicated library routine.

NAUT6

I

f

IMoves indicated pseudo-code, deletes current triple, continues text I
Iscan.
I

I

I

I

Updates current symbolic register value.

J

J

NAUT7

On entry, register BR points at an 8ntry label dictionary entry. OnJ
normal exit from the routine, register BR points at the next label I
dictionary entry. Abnormal exit indicates that there are no furtherl
labels on the current PROCEDURE or ENTRY statement.
I

NAUT8

Bump EQU* value for branch pseudo-code item.

NAUT9

Bump return switch value to be used for current entry lacel.

NAUT11

For current entry label, generate appropriate EQU* pseudo-code item.

NAUT12

Converts current label dictionary reference to an absolute address.

NAUT16

Converts dictionary reference of tri~le second operand to absolute
address, loads address into register BR.

NAUT17

Makes dictionary entry for maximum negative number.

NAUT18

Makes indicated dictionary entry.

NAUT21

Generates pseudo-code to compare source tit string, making library
comparison routine dictionary entry, if necessary.

NAll00

Tests for SNAP.

NAl140

Using NAUTD, generates code for ON-units.

NA3002

Processes function RETURN statements for one data type.

NA3005

Outputs assignment triple.

NA3013

Processes function RETUHN statements for more than one data type.

NA8003

Generates pseudo-code for branch and mask, labels.

NA801D

Converts ID to bit-string.

NA8012

outputs pseudo-code.

ON
PROCP/BEGINP
RETURN
REVERT
SIGNAL
STOP

I
I

Compares bit-string to zero.

Processes ON statements.
\

IProduce Litrary call at end of each procedure in source text.

I

IProcesses RETURN statements.

\

\Processes REVERT statements.

I

\Processes SIGNAL statements.

I

IProcesses STOP statements.

I

IZSTUTl
Istring utility in Phase LV to provide a dope vector for a specified
IL__________________ Istring.
__________________________________ - ________________ ________________ J
~

258

~

.Table NG.

Phase NG Pseudo-Code Operating System Services

r------------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
I

Statement or Operation Type

I

Routine

I

Subroutines Used

I

~-----------------------------------+---------------+-----------------------------------i

IProcesses ALLOCATE triples for
Ibased variables

IALOCAT
I

ICALIB, FALUTl
I

I
I

~-----------------------------------+---------------+-----------------------------------i

IProcesses DELAY triples

IDLAY

ICALIB, INTEG, SCAN (LA)

I

~-----------------------------------+---------------+-----------------------------------i

IProcesses DISPLAY triples
I

IDSPY
I

ICALIB, CHAR, ENDLST,
I SCAN (LA), STeRAD

I

I

~-----------------------------------+---------------+-----------------------------------i

IProcesses FREE triples for based
Ivariables

IFREE
I

ICALIE, FALUTl
I

I
I

~-----------------------------------+---------------+-----------------------------------i

IProcesses
WAIT triples
IWAIT
L.
___________________________________
_______________ LICALIB,INTEG,SCAN(LA},OPLAST
___________________________________ JI
~

.Table NG1.

Phase NG Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Function
I

~-------------------+--------------------------------------------------------------------i

CALIB

Generates part of calling sequence and makes dictionary entry for
Library routine.

CHAR (NH)

Converts a given argument to character string.

I
I

I

I

I

DLAY

Processes DELAY triples.

DSPY

Processes DISPLAY triples.

DSPY3

Tests that operand is character variable.

DSPY4

Makes dictionary entry for parameter list.

DSPY10

Scans for REPLY option.

ENDLST

Completes parameter list and makes dictionary entry for it.

FALUTl

Examines argument of ALLOCATE or FREE triples to see if variable is
based and forms RDV in workspace to Frepare for call to the library.t

INTEG (NH)

Converts a given argument to an integer.

NGO

Scans to next triple.

OPLAST
L STORAD
__________________

I

Builds up parameter list in workspace.
~

I
I
I
I

I

I
Stores
an address in a parameter list.
____________________________________________________________________
JI

Section 3: Charts and Routine Directories

259

.Table NJ.

Phase NJ Pseudo-Code RECORD I/O

r-----------------------------------T---------------T-----------------------------------,
1
IMain Processingl
I

I
Statement or Operation Type
I
Routin~
I
Subroutines Used
I
~-----------------------------------+---------------+-------------------------~---------1
IInitialize Phase NJ by calling in
ISTRTNJ
IZLOADW (AA), SCINIT (LA), SC1 (LA) I
Iblock NK and initializing SCAN
I
1
I
lutility
I
I
I
~-----------------------------------+---------------+------------------------------------1
IInitializes switches and flags to
INUSTAT
I TXTEST
I
lindicate start of new statement.
I
I
I
IDetermines RECORD-oriented I/O verbl
I
I
land goes to appropriate routine
I
I
I
~-----------------------------------+---------------+------------------------------------1
IGets next triple of interest,
ISCNOPT
ISC3 (LA), TXTEST, SCAN01, CMPERR
I
Iconverts to internal code and sel- I
I TXTERR, ZABORT (AA)
I
lects the appropriate routine to
I
I
I
I process it
I
I
I
~-----------------------------------+---------------+----------------------------------_.\

IProcesses FILE option of RECORDIFILOPT
I TXTARG, DYNMPL, LAONLY, STDROP,
I
loriented I/O by placing dictionary I
ICMPERR, TXTERR, WRKSPC, MVPSCD,
I
Ireference of FILE Declare DCB in
I
IZTXTRF (LA), SYMREG, MV3 (LA)
I
Ithe appropriate slot of the param- I
I
I
leter list. The parameter list is
I
I
I
lin STATIC if file constant, WORKI
I
I
I
1
I
ISPACE if file parameter
~-----------------------------------+---------------+----------------------------------_.\
IEstablishes the record dope vector IINTFRM
ITXTARG, CMPERR, DYNMPL, LAONLY,
I
I (RDV) for the triple operand and
I
ISTDROP, LAOSM2, CRDV, TXTERR,
I
Iplaces the address in the second
I
IZABORT (AA), WRKSPC, MVPSCD, TXTRF,I
Islot of the parameter list unless
I
ISYMREG, ZD~FAE (AA), CALLIB,
I
Ithe operand of the INTO triple is
I
IZDICRF (AA), REFRDV, SCALAR,
I
IA varying string, in which case it I
IPNTRDR, BSDRDV
I
Iplaces the address of the string
1
I
I
Idope vector of the operand in the
I
I
I
slot in the parameter list. I _______________ I ___________________________________ JI
lIsecond
___________________________________
~

260

~

Table NJ.

Phase NJ Pseudo-Code RECORD I/O (cont'd)

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
t------------------------·-----------t---------------t -----------------------------------~

Iprocesses the operand of the
LOCOPT
ILOCATE triple by establishing the
IRDV for the triple operand and
Iplacing this address in th~ second
Islot of the parameter list.
It
lestablishes the pointer qualifier
lof the based variable and saves
Ithis, either to be used, or tc be
loverwritten by the operand of a SET
Itriple. It establishes a compiler
Ilabel and puts this in the third
Islot of the parameter list in ~rder
Ito tell the library where to
Ireturn, so that code assigning the
Ipointer value returned in the RDV
Ito the saved pointer operand is
I avoided. It then initializes the
Ibased variables just allocated

I

ZDICRF, PNTRDR, SCALAR,
LOCRDV, CMPERR

TX~ARG,

I

t-----------------------------------t---------------t- ----------------------------------~

IProcesses KEYTO option of RECORDloriented I/O by verifying that its
largument is a character string,
Ithen placing it in the appropriate
Iparameter list slot, which may be
lin STATIC or WORKSPACE

I TXTARG, SCALAR, DYNMPL, LAONLY,

IKYTOPT
I
I
I
I
I

I
I
I
I
I

ISTDkOP, NXTMPD, ZSTUT2 (S~RUT2 in
ILV), LAOSM2, LAOSM1, TXTERR,
IZD~FAB (AA), SC5 (LA), WRKSPC,
IMVPSCD, MV3 (LA), SYMREG
I

I

t-----------------------------------t----~----------t-----------------------------------~

IProcesses the KEY or KEYFROM optionlKEYOPT
lof RECORD-oriented I/O by
I
Iconverting the argument to a char- I
lacter string if it is not already al
Icharacter string and placing the
I
Iresult in the appropriate parameter I
Ilist slot; this is either in STATIC I
lor WORKSPACE
I

ITXTARG, SCALAR, DYNMPL, LAONLY,
I
NXTMPD, ZSTUT1 (STRUT1 in
I
ILV), LAOSM1, LAOSM2, TMPSEL, TXTERRI
I
I
I
I
I
I
I
I
I
I

~STDROP,

t-----------------------------------t---------------t- ----------------------------------~

IProcesses the IGNORE option of
IIGNOPT
IRECORD-oriented I/O by first
I
Ichecking that the argument is a
I
Iscalar and then converting to a
I
Ibinary fixed integer if it is not
I
lalready a binary fixed integer.
I
IThe address of the argument is
I
Iplaced in the appropriate parameter I
Ilist slot in STATIC or WORKSPACE
I

I TXTARG,
ILAONLY,
I MVTRPL,
ICMPERR,
IWRKSPC,
I
I
I
I

SCALAR,
STDROP,
LAOSM1,
TMPREF,
SYMREG,

CINTEG, DYNMPL,
MVPSCD, WRKSPC,
ZDRFAE (AA),
NXTMPD, MV3A (LA),
MV3 (LA)

I
I
I
I
I
I
I
I
I

t-----------------------------------t---------------t- ----------------------------------~

~

~

IProcesses the event oftion of
I EVTOPT
I TXTARG, DYNMPL, LAONLY, STDROP,
I
IRECORD-oriented I/O by checking
I
I NXTMPD, TMPREF, TXTERR, WRKSPC,
I
Ithat the argument is a scalar EVENT I
IMVPSCD, ZTXTRF (LA), SYMREF,
I
Ivariable and placing its address inl
IMV3 (LA)
I
Ithe appropriate parameter list
I
I
I
Islot. The parameter list is either I
I
I
lin STATIC or WORKSPACE, depending
I
I
I
lupon the storage class of the argu-I
I
I
Iment.
L___________________________________ I _______________ I _ __________________________________ JI

section 3: Charts and Routine Directories

261

Table NJ.Phase NJ Pseudo-Code RECORD I/O (cont'd)

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
1
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------·t

IProcesses the pointer operand of a ISETOPT
ISET triple.
If part of a READ
I
I statement, the address of the poin-I
Iter variable is placed in the sec- I
lond slot of the parameter list.
Ifl
Ipart of a LOCATE statement, the
I
Ipointer operand overwrites the
I
Ipointer taken from the based varia-I
Ible in the LOCATE statement, to be I
lused in the pointer assignment codel
Iproduced by ENDIO.
I

ITXTARG, SCALAR, NXTMPD,
ITMPREF, STDROP, TXTERR
I
I
I
I
I
I
I
I

I

DYN~PL,

1

I

I
I

I

I
I

I
I
I
I

~-----------------------------------+---------------+------------------------------------1

At end of I/O statement, places
IENDIO
REQUEST_CODE (i.e.
IODEF) in sta- I
tic constant chain, puts STATIC
I
parameter list in STATIC chain.
Creates external Library calling
sequence for RECORD-oriented I/O
statement as follows:
EPRM
LA
1, PARM.LIST
L
15, RECORD.IO.LIBRARY.ROUT
BALR 14,15
EPRM

IZDICRF (AA), LAONLY, LAOSM1,
1
ICALLIB, MVPSCD, ZTXTAE (AA), SELL, 1
ISC3 (LA) SYMREG, TMPREF,
1
IZDRFAB, MVTRPL, RCBCMN
L
I
I
I

I
I
I
I

If there is a WORKSPACE parameter
list, it updates the MVC or parameter list from STATIC to WORKSPACE.
It checks whether a LOCATE statement is being processed, for which
it generates pseudo-code to assign
the pointer value from the RDV to
the pointer variable and to initialize the REFER variable of a
self-defining structure.
It generates an allocate triple to indicate
possible initialization of TASK
and/or EVENT variables, and a compiler label triple to mark the end
of initialization code for the
library.
It generates any SELL
triples accumulated throughout the
Istatement on SELL chain.
It canIcels the RECORD-oriented I/O option
Itriple codes from the SCAN TRT
I interest table. It gets the next
Itriple of interest and goes to
INUSTAT to process as a new statelIment.
___________________________________ L _______________ L ___________________________________ JI

262

Table NJ.

Phase NJ Pseudo-Code RECORD I/O (cont'd)

r-----------------------------------T---------------T-----------------------------------,

I
I

statement or Operation Type

IMain Processingl
Routine
I

I

Subroutines Used

I
I

~---------------~--------------------+---------------+-----------------------------------~

IIndicates presence of NOLOCK
I option.

INLKOPT
I

INone

I

I
I

~--------.---------------------------+---------------+-----------------------------------~

IDelete the SELL triple encountered ISELL routine
Iduring scan of RECORD-oriented
lat SVSELL or
11/0 statement but puts dictionary
ITMPSELL entry
Ireference in the SELL chain so thatlpoint
I
ISELL triple can be regenerated at
lend of I/O statement
I

IZDHFAB (AA), MV3A (LA)

I

1

1

1

I
I

I

I

I

I

I

~------------------------------------+---------------+-----------------------------------~

IAt end of program, releases own
IPRGEND
IRLSCTL
I
Imodules and turns control over to I
I
I
requested phase.
I _______________ I _ __________________________________ JI
LInext
___________________________________
~

~

Section 3: Charts and Routine Directories

263

.Table NJ1. Phase NJ Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
Function
I

I Routine/Subroutine I

~------------------+--------------------------------------------------------------------1
BSDRDV(NK)
Entry point to CRDV routine which warks it as processing a based
variable in an INTO or .FROM option.

CALLIB

Creates pseudo-code to call library routine; indicates call in dictionary if not previously noted.

CINTEG

Checks whether argument is a binary fixed integer.

CMPERR

Indicates compiler error and ABORT, error code in HOLD register.

CRDV (NK)

Constructs a record dopt vector (RDV) entry in WORKSPACE. If the
dope vector descriptor bit is on, then the routine generates a
library call to generate the RDV.
If the variable has static
extents and is not a string, the RDV is constructed froIT information
in the RDV dictionary entry.
If the variable is a string, then the
RDV is constructed from its string dope vector.

DEFER

Indicates compiler error in the case of a deferred feature not
detected by earlier phase.

I
I

DELETE

Establishes DELbTE code as REQUEST_CODE.

DYNMPL (NK)

I
I
I

Establishes a parameter list in workspace if one is not already
established. Calculates workspace offset to particular slot
I
requested. Establishes a symbolic working register.
Establishes
I
skeletcn pseudo-code for LA, ST, and DROP of register into workspace I
offset.
I

ENDIO

handles operations at end of I/O statement.

J

EVTOPT

Processes EVENT option.

II

FILOPT

Processes FILE option.

I

IGNOPT

Processes IGNORE option.

II

INTFR~,1

Processes INTO/FROM option.

I

KEYOPT

Processes KEY or KEYFROM option.

LAONLY (NK)

Outputs pseudo-code for LA into symbolic work register of a dictionary reference without any offset modifiers.

I
I

(Not implemented in second version.)

I

I
I
I

I

~
II

I,

LOCRDV (NK)

Entry point to CRDV routine which marks it as processing a based
variable of a LOCATE statement.

KYTOPT

Processes KEYTO option.

LAOSMl (NK)

Establishes pseudo-code for a LA instruction into a symbolic work
register wit.h the address of WORKSPACE and a literal offset which is
pointed to the argument register.

LAOSM2 (NK)

Generates LA pseudo-code in which both base and offset are in registers.

MVPSCD (NK)

Puts pseudo-code asstmbled in pseudo-code area into output text
block.

MVTRPL (NK)

Invokes SCAN utility to move generated triples into output text
block.

I

I
I
I
I
I

I
I

INLKOPT
presence of NOLOCK option.
L
__________________ L Indicates
____________________________________________________________________
J

264

.Table NJ1.

Phase·NJ Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Functlon
I
~.------------------+--------------------------------- -----------------------------------1
~USTAT

IHandles operations at start of new statement.

I

I

I

IInvokes SCAN utility to get next triple, which
lit is a TMPD; if ~ot, it is an error.

~XTMPD

i~

checked to see if I

I
I

I

PNTRDR

IEstablishes the seven-byte pointer information slot in
able dictionary entry.

PRGEND

d

BASED vari-I

I
I

Releases control to next phase at end of program.

I

I

RCBCMN

Commons the dictionary entries of request code blocks.

REAC

Establishes READ code as REQUEST_CODE; establiShes
size.

REFRDV (NK)

Establishes the address of the RDV dictionary entry in the ARG register when given the data variable dictionary address in IND~l.

REWRIT

Establishes REWkITE code as REQUEST_CODE.

SCALAR

Confirrrs that dictionary code byte refers to scalar item; ascertains
whether item is a constant.

SCANOl

Indicates compiler error in the case of a deferred feature not
detected during Read-In.

list

I

IGets next triple of ipterest, branches to afpropriate routine.

tSCNOPT

I

I

I
I

I

ISearches options, inserts RECORD-oriented I/O option entries into
ISCAN TRT interest table.

ISCRHOP

/SELL (NK)
STDROP (NK)

IGenerates SELL triples for all dictionary references in the SELL
Ichain.

I

10utputs fseudo-code to ST contents of symbolic work register into
Iparameter list slot in workspace set up ty DYNMPL, and the drop of
the syrrbolic register.

STRTNJ
SY~REG

pararr~eter

Initializes phase.
Establishes sYffiDolic work register.

(NK)

TMPREF (NK)

Generates the appropriate LA pseudo-code to load the address of the
temporary described by TMPD.

TMPSEL (NK)

Adds "temporary entry to SELL chain for generation of SELL triple
upon completion.

TXTARG

Proce:3ses second argument of triple.
If dictionary reference, establishes absolute address in INDX1.
Returns to LR if zero, i.e.,
TEMP, LR+4 if dictionary reference.
If null, indicates compiler
I
error.
I

TXT ERR

Writes error message.

TXTEST

Converts function code of triple interest TRT table to internal key,1
and invokes PRG£ND if end of program is indicated.
I

UNLOCK
WRITE

I
I
I

IEstablishes UNLOCK code as REQUEST CODE.
Iversion.)

I

(Not implemented in secondl

I

IEstablishes WRITE code as REQUEST CODE.

I

I
I
I
I
I

IWRKSPC (NK)
IEstablishes the requested workspace brea, starting on fullword
IL __________________ Iboundary.
__________________________________ __________________________________ JI
~

Section 3: Charts and Routine Directories

265

Table NM.

Phase NM Pseudo-Code Executable I/O

r-----------------------------------T---------------T-----------------------------------,
I

I

Statement or Operation Type

IMain Processingl
Routine
I

I

I

Subroutines Used

I

t-----------------------------------+---------------+- ----------------------------------~

IProcesses GET and PUT statements

I

I
I

IGET
I
I

I INSERT, STORAD, INSTFL, GENPC,
IGENTR, MVTRSP, BNDLST, CALlE,
ICHAR, INTEG, UTTMPW, SRCERR,
ISCAN (LA), STRUTi (LV), STRUT2 (LV)

I

I
I
I
I

t-----------------------------------+---------------+- ----------------------------------~

IProcesses OPEN and CLOSE statementslOPEN
I INSERT, STORAD, INSTFL, GENPC
I
I
I
IGENTR, MVTRSP, ENDLST, CALlE,
I
I
I
ICHAR, INTEG, UTTMPW, SRCERR,
I
I
I
ISCAN (LA), STRUTi (LV), STRUT2 (LV)I
L ___________________________________ _______________ _ __________________________________ J
~

Table NMi.

~

Phase NM Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

t------------------+---------------------------------- ----------------------------------~

CALIB (NN)

Generates part of calling sequence and makes dicticnary entry for
Library routine.

CHAR (NN)

Converts a given argument to character string.

ENDLST (NN)

Corrpletes parameter list and wakes dictionary entry for it.

GENPC (NN)

Moves

GENTR (NN)

Moves generated triples to output.

GET

Processes GET and PUT statements.

GETOO

Initializes switches for GET/PUT.

GET20

PAGE option.

GET85

Processes end of I/O statement.

INSERT (NN)

Inserts dictionary reference in pararr,eter list.

INSTFL (NN)

Inserts file reference in parameter list.

INTEG (NN)

Converts a given argument to integer.

MVTRSP (NN)

Moves data and format list triples to output.

NMRi

Begins scan for triples of interest.

OPEN

Processes OPEN and CLOSB statements.

OPENOO

Initializes switches for OPEN/CLOSE.

SRCERR (NN)
STORAD (NN)
(NN)
L UTTMPW
__________________

266

~seudo-code

to output.

IMakes error dictionary entry.

I

IGenerates pseudo-code to store symbolic register in parameter list.

I

10btains
temporary workspace.
__________________________________
__________________________________ J

~

Table NT.

Phase NT Pseudo-Code Data and Format

r-----------------------------------T---------------T-----------------------------------,

I
I

IMain Processingl
I
Routine
I

statement or Operation Type

I
I

Subroutines Used

~-----------------------------------+---------------+- ----------------------------------i

IInitializes phase, obtains scratch IN'TOOOO
I storage
I

INone
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IScans text

INT0003
I

I

INTOOll, NT0014, NT0017, NT0021,
INT0023, NT0024, SC2 (LA)

I
I

~.-----------------------------------+---------------+-----------------------------------~

ICollects remote format items and
Isaves until end of block

INTOOll
I

I

INone
I

I

~.-----------------------------------+---------------+-----------------------------------~
IN~UT10

IAssociates remote format items withiNT0014
I data list items
I

I

I
I

t·-----------------------------------+---------------+ -----------------------------------~

IMakes entries for Library routines INT0017
INTUT20
I
Irequired for EDIT-directed I/O and I
I
I
Icopies skeletons for phase NU into I
I
I
Iscratch storage, then releases
I
I
I
Iphase
I
I
I
~------------------------------------+---------------+-----------------------------------~
IIdentifies type of data list item
INT0021
INonE
I
land enters the type code in a list I
I
I
~-----------------------------------+---------------+-----------------------------------~
IAssociates format and data list
INT0023
INTU~10
I
litems and marks INCLUDE matrix
I
I
I
~-----------------------------------+---------------+- ----------------------------------i

IIdentifies type of format list itemiNT0024
land enters the type code in a list I

INone
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

Isets bits in INCLUDE matrix to
Irepresent STREAM I/O conversion
Irequirements at execution time

INTUT10
I
I

INone
I
I

I
I
I

.-----------------------------------+---------------+- ----------------------------------~

IMakes dictionary entry for Library INTUT20
INone
I
IL___________________________________
Routine
I
I
I
L _______________ L ___________________________________ J

Table NT1.

Phase NT Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

~-.-----------------+--------------------------------- -----------------------------------i

NTOOOO

Initializes phase, obtains scratch storage.

NTOOOl

Initializes phase address slots.

NT0003
NT0011
NT001L~

NT0017
INT0021

I

INT0023

I

INT0024

I

INT1700

I
I NTUT10
I

INTUT20

I

I

Scans text.

I

collects remote format items.
Associates remote format items with data list items.
Makes entries for Library routines for EDIT-directed I/O.
Identifies types of data list items.
Associates format and data list items.
Identifies types of format list items.
No EDIT-directed I/O, therefore no scan pass.
Sets bits in

I
I

IN~I"UDE

matrix.

Makes dictionary entry for Library routine

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

I

L__________________ L ____________________________________________________________________ J

Section 3: Charts and Routine Directories

267

Table NU. Phase NU Pseudo-Code Data and Format Lists

r-----------------------------------T---------------T------------------------------------,
I
I

IMain Processingj
I
Routine
I

Statement or Operation Type

Subroutines Used

I
I

~-----------------------------------t---------------t------------------------------------~

IGenerate Library calling sequences INU0022
Ifor data items in DATA-directed 1/01
I statements
1

IINSERT,UT24,UTii,UT23
I
I

I
I
I

r-----------------------------------t---------------t- -----------------------------------~

IGenerate Library calling sequences INU0023
Ifor data items in LIST-directed 1/01
I statements
I

IINSERT,UTii,UT25,UT14,UT23,UT09
I
I

I
I

I

~-----------------------------------t---------------t------------------------------------~

IGenerate code for data items in
IEDIT-directed I/O statements

INU0024

IUT09,14
I

1

I
I

r-----------------------------------t---------------t- ----------------------------------~

IScan text

INU0002

ISC1(LA),SC2(LA),SC3(LA)

I

~-----------------------------------t---------------t------------------------------------~

~

~

IGenerate Library calling sequences INU0029,NU0030
IUT15,UT18,ECDCNV,UT10
I
Ifor format list items
INU0033,NU0037, I
I
1L ___________________________________ I NU0050
_______________ I _ ___________________________________ JI

Table NUl. Phase NU Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------t---------------------------------------------------------------------~
BCDCNV (NV)
IConvert decimal constant to binary.
INSERT

I

IAdd an entry to an argument list.

NUOOO2 (NV)

Scan text.

NUOO22

Generate Library calling sequence for DATA-directed data list itew.

NUOO23

Generate Library calling sequence for LIST-directed data list item.

NUOO24 (NV)

Generate cards for EDIT-directed data list item.

NUOO29 (NV)

Generate Library call for A or B format item.

NUOO30 (NV)

Generate Library call for E or F format item.

NUOO33 (NV)

Generate code for R format item.

NUOO3? (NV)

Generate Library call for P format item.

NUOOSO (NV)

Generate Library call for X, PAGE, ShIP, LINE, C, or COLUMN format
item.

UT09

Make dictionary entry for constant in EDIT or LIST list.

UT10

Convert a constant entry to one of specified type.

UTll

Generate Library calling sequence passing argument list.

UT14

Generate code for intermediate result items in EDIT and LIST data
lists.

UT15
UT18 (NV)
UT23
UT24

I

IMake dictionary entry for FED or DED.

I

IGenerate an assignment triple.

I

IGenerate Library call code.

I

IConstruct symbol table dictionary entry.

I

IL__________________
UT25
I Set
bit in the INCLUDE matrix.
__________________________________
__________________________________.JI
~

268

Table OB.

Phase OB Pseudo-Code Compiler Functions

r-O----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

I
I

Subroutines Used

~-----------------------------------+---------------+-----------------------------------~

IScans text for BUY, BUY ASSIGN
Istatements and compiler function
land compiler pseudo-variacles (see
IAppendix 0.8), and transfers to
lappropriate routine

ISTl
I
I
I
I

ISCAN (LA)
I
I
I
I

I
I
I
I
I

~-----------------------------------+---------------+-----------------------------------~

IReplaces MTF compiler functions
I (Appendix D.8) by pseudo-code move
Icharacter instructions, adjusting
Ithe target field to controlled or
Itemporary type 2 workspace where
Inecessary

IMTFR
IEUFIZE, FRSTOP, se3 (LA)
I
I
' I
I
I
I
I
I
I

I
I
I
I
I
I

.-----------------------------------+---------------+- ----------------------------------~

IReplaces ADV compiler functions
I (Appendix D. 8) by pseudoo-code
linstructions to load specified
lelement of a dope vector into a
I register

IADVR
ISC3 (LA)
I '
I
I
I
I
I '

I
I
I
I
I

.-----------------------------------+---------------+- ----------------------------------~

IReplaces SDV compiler functions

ISDVR
I
jload the waximum length from a
I
Istring dope vector into a register I

ISC3 (LA)
I
I
I

I (Appendix D.8) by instructions to

I
I
I
I

~-----------------------------------+---------------+- ----------------------------------i

IReplaces compiler pseudo-variable
Itriples and compiler assignment
Itriples by pseudo-code instructions
Iwhich store the value assigned in
,specified part of dope vector

IBUFIZE, S~ACK, MV3A (LA), FRSTOP,
IDROPRG, USTACK, SC5 (LA)
I
I
I

IST4
I
I
I
I

I
I
I
I
I

.-----------------------------------+---------------+- ---------------------------------~~

IRemove BUY, BUY ASSIGN, and SELL
IST8, ST10, ST7 ISC2, SC3 (both in LA)
Istatements for scalar nonI
I
ladjustable temporary variacles froml
I
Ithe text, and allocate storage in
I
I
Ithe pseudo-code workspace for the
I
I
,t,emporaries
I
I

I
I
I
I

I

I

~-----------------------------------+---------------+-----------------------------------~

IGenerates code to drop a symbolic
Iregister, or mark a literal
Iregister not wanted

IDROPRG
I
I

INone
I
I

I
I
I

.-,----------------------------------+---------------+ -----------------------------------~

Determines whether the target dic- IFRSTOP
tionary reference of MTF function, I
or ADV or SDV pseudo-variacle is
I
controlled or a temporary type 2.
I
If it is, the dictionary reference I
is replaced by the dictionary ref- I
erence of the controlled or temI
porary type 2 workspace, with the
I
appropriate offset, if the target
I
is a structure base element
I
stack and unstack the information
,STACK, USTACK
specifying the target field of
I
compiler pseudo-variable assignment I

ISETDVF
I
I

I

I

I

I
I
I
I
INone
,
I

.-----------------------------------+---------------+-----------------------------------i
ICalculates the offset of the dope
Ivector of a structure base element
I from the start of the structure
Idope vector

ISETDVF
INone
I
I
I '
I
I

I
I
,
I

~-----------------------------------+---------------+------------------------~----------~

IPlace triples from the source text IBUFIZE
ISC5 (LA)
I
lin
an internal buffer.
I _______________ LI _ __________________________________ JI
L
___________________________________
~

Section 3: Charts and Routine Directories

269

Table OBi.

Phase OB Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

IRoutine/Subroutinel
Function
I
~------------------+--------------------------------------------------------------------~
ADVR
Replaces ADV compiler functions by pseudo-code instructions to load
the specified element of a dope vector into a register.
AT7

Generates pseudo-code.

AT8

Replaces operand by workspace reference.

BUFIZE

Places triples from the source text in an internal buffer.

BY5

Tests length of string.

BY19

Processes string temporary (dope vector only).

DROPRG
FRSTOP
MTFR

Generates code to drop a symbolic register or IT.ark a literal reglister not wanted.

I

IReplaces the target field of MTF fUnction or compiler pseudoIvariable by controlled workspace where necessary.

I

IReplaces MTF compiler functions by pseudo-code move character
I instructions.

SDVR

Replaces SDV compiler functions by pseudo-code instructicns to load I
the maximum string length into an object register.

SETDVF

Calculates the offset frow the start of a structure dope vector to
the dope vector of a particular base element.

STACK/USTACK

Stack and unstack information specifying target field of compiler
pseudo-variable aSSignment.

STl

Scans text for BUY and BUY ASSIGN statements, compiler functions,
and corrpiler pseudo-variables.

ST4, ST6

Replaces compiler pseudo-variables and compiler assignment triples
by pseudo code instructions to set the aSSigned expressicn, converted if necessary in the specified part of a dope vector.
I

I

ST7,ST8,ST10

Remove BUY, BUY ASSIGN, and SELL statements for fixed scalars froIT
I
Ithe text, and allocate space for the temporary variables in the
I
workspace.
L __________________ Ipseudo-code
__________________________________
__________________________________ JI
~

270

eTable 00. Phase OD Pseudo-Code Assignment

r-----------------------------------T---------------T-----------------------------------,

I

I

statement or Operation Type

IMain Processingl
I
~outine
I

I

Subroutines Used

I

~-----------------------------------+---------------+-----------------------------------~

IGet block of scratch core

ISCRCOR

INone

I

~-----------------------------------+---------------+- ----------------------------------i

IMove routines, constants and tableslMOVTAB
INone
I
I _______________ I _ __________________________________ JI

block
lIto
___________________________________

eTable OD1.

~

~

Phase OD Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------i

18CRCOR

10btains block of scratch core.

I

I

I

I
routines, tables and constants
into scratch core.
I
lI MOVTAB
__________________ IMoves
__________________________________
__________________________________
J
~

section 3: Charts and Routine Directories

271

Table OE.

Phase OE Pseudo-Code Assignment

r-----------------------------------T---------------T-----------------------------------'1
I
I

statement or Operation Type

\Main Processingl
I
Routine
I

I

Subroutines Used

I

~-----------------------------------+---------------+- ----------------------------------·i

IGenerates pseudo-code for assignIment triples

IASSOO
I

IASCOO, ASCDOO, ASDROP
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IGenerates Library calling sequenceslALLOC, FRE~,
ICALlB
I
Ifor ALLOCATE, FREE, BUY, and SELL
IBUY, or SELL
I
I
I triples
L
___________________________________ I _______________ LI _ ___________________________________I1
~

.Table OE1.

Phase OE Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------1
I Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------1

ALLOC (OF)

Processes ALLOCATE triples.

ASCOO

Inserts target types for constants.

ASCDOO

Controls assignment of real and complex data.

ASDROP

Drops symbolic registers.

I
I
I
I
I
I
I

ASFBOO

Generates code for fixed binary assignments.

I

ASFDOO (OF)

Generates code for fixed decimal assignments.

I

ASFLOO

Generates code for floating-point assignments.

ASLOO

Generates code for label assignments.

ASPOOO

Generates code for pointer/offseL assignrr.ent.

ASAROO

Generates library calling sequence for area assignrr.ent.

ASSOO

Processes assignment triples.

ASS032

Tests for special assignment triple.

ASTROO (OF)
BUY (OF)
CALIB (OF)

Processes BUY triples.
Generates Library calling sequences.
Enables for SIZE prefix option.

FREE (OF)

Processes FREE triples.

GENCNV

Generates convert macro instruction.

GENRXO

Generates RX instruction.

GENSSO

Generates SS instruction.

GETDES

Obtains operand description.

RMNDX

ReITroves index from operand.

SELL (OF)
jSPASS (OF)

I

Generates code for string and numeric field assignments.

I

ENABLE

SBGTNR

I

IObtains next symbolic register.
I
IProcesses SELL triples.
I
IProcesses special assignrrent triples.

f

I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I

l __________________ L ____________________________________________________________________ J

272

Table OG.

Phase OG Library Calling Sequences

r-----------------------------------T---------------T-----------------------------------,
I
I

IMain Processingl
I
Routine
I

statement or Operation Type

Subroutines Used

I
I

r------------------------------------+---------------+ -----------------------------------~
ITRSCA~

IScans triples and takes action on
Itheir values

IEOBIN,TSCSNO,TSCCLB,TSCPRC,FMT001, I
ITSCEOP,TSCEP2,JSCJMP,MOVITM,MOVODT I

I

r-------------------~---------------+---------------+- ----------------------------------i

IScans fseudo-code deleting IGNORE
litems and detecting CCNVERT items

IPCSCAN
I

ICNVFND,MOVITM,MOVOUT

I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IExamines fields of CONVERT, and
Idetermines whether the conversion
lis to be done in-line

IIEMOH

IMJG201,IEMOI,CODCAL
I
I

I
I

I

I
I

r-----------------------------------+---------------+-----------------------------------i
IGenerates Library calling sequence IMJG201

IMJG203,MJG204,MJG298

I

~-----------------------------------+---------------+-----------------------------------~
-

-

-

-

-

-

-

-

-

-

-

_

~

~

IGenerates in-line code for selectedlIEMOI
IBITCDI,FDTOFB,FIBFLT,DECFLT,PICHAR I
I conversions
I _______________ I
I
_______________________ J

l ___________________________________

section 3: Charts and Routine Directories

273

Table OGi.

Phase OG Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
IEOBIN
Entered when an end of in~ut block marker is detected.
I

I
I TSCSNO
I
I TSCCLB
I

Processes SN, SN2, and SL triples.
Processes CL triples.

I

I

I

I
Processes PROC, PROC1, bEGIN, and BEGIN1 triples, and sets up counts I

I TSCPRC
I

I

I

for work space requirements.

FMTOOi

Handles the workspace requirements for FORMAT and FORMAT LIST.

TSCEOP

Processes EOP triple.

TSCEP2

Processes EOP2 triples and terminates phase.

TSCJMP

When a JUMP triple is found the routine sets up a counting mechanism
and enters PCSCAN.

MOVITM

Moves from input an item which spans blocks.

MOVOUT

Moves an item to the output block.

CNVFND

When a CONVERT is found passes control to IEMOH and outputs pseudocode generated on return.

MJG20i (OH)

Generates pseudo-code to call the Library conversion package.

CODCAL (OH)

Given a DED generates a code byte used by the in-line conversions.

MJG203 (OH)

Generates pseudo-code to point registers at data.

MJG204 (OH)

Generates pseudo-code to call Library conversion module.

MJG298 D-.Q,'"-••

.OYN. STORE
... ..
... SCANS TF.XT
"'FOR ALLOCATE I: •
"'BUV STA TE"IENTS ...

..............................

.•.·x

J2
••
......
....
LIST
•• VFS
..... Ar,GREGATF ••••••••••
•• LENGTHS ".
......

(I.

*.

.....
.•

• NO

ic

• r9

*

• AI·
...

... ....... J3 ........... .
'"LIST LFNGTHS .~~,"
.-.-.-... -.-.- ... -.- •
PRINTS
•
..
AGGREGATF
•
'" LHIGTH TABLE •

~'"

$ •••

*.** •••••• * ••

.....
...
ic

.1'9 •

• Al*

Section 3: Charts and Routine Cirectories

279

<~hart

PA.

Phase PA

~verall

Ciag~~m

Logic

•••••
••
•

• PA •

• B3·

PAOSA
X
••••• B 3 ••••••••••

•• PICKUP HEAD ••
• OF ENTRY TYPE 1.
CHAIN
••
••

.................
••••••••••••••••••••••••• x.x
C3
••••

••

.*. ••

.. ..
END

OF CHAIN
••••

•

C4

•••• YES
••••••••••

••••

NO

. *. ••

• •••• C5 ••••••••••

•• ·;H~nLBE •••• NO
: SET OFF FlAG :
ANY ~TATrc
•••••••••• X.
IN THI:'
•
. ' •• fl. A'
:cnMM~NJi~~ IONS:

1(••

.....S....
.....
::21:
•

YES

...... .........
. .
~

.x •••••••••••••••••••••••••
I(

•
.....02..........
:
:

PICK U P :

•

x

yes ••,;

....

NHTHE=· ••
N~~ ••

:1( .......... :~ocg~h"l~

.................
NE~~p~NIRY

03- X*. *.

•

*..*
• NO

...
K

('3

•
•

••

•• I S · .
NO •• BLOCK ~O ••

: x•••••••••••••••••• ~A:

~L~h'~~.··

•• OSA ••

* •• *
•

YES

·····G3··········
·..................

OSASI7.E

X

• CALC STORAGE •
• FOR V AR I ABl ES •
:STRUH~~~~ ANI) :

X

··..*H3··········

•
ADD
•
• STORAGE FOR STD.
:

g~~pt~~PoI2

:

•
SI ZI'
•
•••••••••••••••••

••••••••••• x.

.....J2..........

•
•

•

J3- X*. *.

SET.
••••
ELIGIBILITY.
YES..
IS SIZE
••
BIT OFF
.X •••••••••• )512 BYTES ••
IN ENTRY.
••
••
TYPE 1 .
••••

•••••••••••••••••

*•• *

• NO

••••• KZ..........

~

OICENT
it
• •••• K3 ••• • ••••••

CHAIN ENTRY :
:os~A~iCHA~l~Y :
FROM ENTRY
.X.........
ENTRY FOR
•
TYPE 1 .
• STATIC CHAIN •

·.................. ..................

:....
•

280

•

Phase PD overall Logic

Cha::-t P;) .

.....

Diagr~m

..·

·po •

•

PO

AI·

X

.... · . A l · · . · . · . · · .
•
SCAN TEXT
•
AND
•
•
•
REVERSE
•
•
SECOND FILE
•
POINTERS
•
•

•• *••••••••••••••
X

·····Al··········

SCS OIlT

•
SCAN STATIC
•
CHAIN
AND
•
• SORT ENTIIIES
•
(I N PAl

•
•
•
•
•

.................

• X••••••• G • • • • • • • • • • • • • • • • •
STATIC

x

•

Cl···..

• ••••C2.' ••••••••

." ·~~~~~t •.•.

.................

YES

:

ALLOCATE

•.• J~H~~r~ .• ' •.•.••••• x:

.. ..

• NO

.X ••••••• 41 • • • • • • • •
X

OVALOC

R~PH~:a~

*

*..*

:

:
•

0 ••••••••

•

•••
01
••
• ••••02 ••••••••••
• .... I S A -. _. VF.S
:
°fitE~~J.~E
:
-. DOPE VEC TOR •••••••••• X.
AND
•
• ,,~;QUIRE~...
:
A\~g~~~~

.. ..

................:.

• NO

• )C • • • • e • • • • • • • • • • • • • • •

X

El···..

TVALOC

it.

e ••••••• e _ a • o •••••

• •••• EZ..........

•• ··STATIC •••• YES

:

•.•. ~~H:~~~ ............. K:

.. ..

~L~~~e~~:

....9............

••••

•

• "10

AOO~fM ING

0 0 •••••••••

•
.. •••• F3.t. ......... .

:I')E6~R~h~h~PF

1(:

:
:
•

. ................

: ••••••••
• •

~~~UO~TA7~

DICT ENTRV

CONAlC
~
····'*Fl··········
.SCAN CONST ANT~ •
CHAIN AND
•
•

.................

:.CONSTANTS
O~Hp~~T fN :
POOL -

·

.X •••••••• '•••

K
···Gl ••••• •••••
•••• BU'IP
•
lOCATION.
•
COUNTER flY
•
• SI Z F. 0 F POOL
•
••

.................
...x

• '"

HI· •

ARF·.

•

."'THERF MOPE •• "£5.
"'.
CONSTANTS
••••••
••
POOLS
• '"

*.

*•• *

••

•

.....
)c

.....

• PH •
• AI·

section 3: Charts and Routine Cirectories

281

Phase PH overall Logic

Chart PH.

•••••
•••

• PH.
• A1·

.x ••••••••••••••••••••••••••••••••••••••••••••••••••••••

P8SCAN
••••• A\..........

AUTENO

.•

S;A~~ g~:

:
•
•

X

A2

•••

P8s1

••

•

.. ..

*..*

•

• YES

:..··.81··········
snn ~~ :
•

ic

CON TROll ED

...

••

*..*
* ••
*
• NO

x:•

•• ••YES

G¥ TO

?~XcHIUH

84

• *.

• *.

••

RF8~IR:· ••

eE~Tb~

*...
* •• *

NO

••••••••••••

85...
•••• IPA •••• NO :
x•••• STRUCTUR'E •• •••••

*..*

*••
*
• YES

• YES

ic

•• ••••
•
A2 •
•••••
•

• ••• *C2 ••••••••••

*

•• END OF
•• NO
•
•• • ~ONl~~\~EO ••••••••••••

*..*

•• i~

•.•• ee2Vb( ••.•...••• o.x ••••

•

*.

•

83
••
•• ··ll~~YE·· •• YES

•I( x•••••••••••••••••••••••••••••••••••••

C1

:
•
•

•••

CHAIN
•••••••••••••••••••
••

••

GO TO NEI(T
ITEM l"l
THE CHAIN

.;

... ..... ...... .... .... .... .

CONSCN

0000.00 • • • • • • • • • • • • • • • • • • • • • • • • • • • 0

• ••• A3 ••••••••••

.................

··ENO OF •••• NO
:
••••••••• x•• AUTOHATIC •••••••••• ".
•
•• CHAIN ••
•

.................
PROCEDURE
8EGIN CHAIN

•

Diagr~D

•••••
•
A2 •
•• *.**
•

••
:

••••••••••••••••••

·····04··········
X

:Y~~i~~~N~eF IN:

......
• S'fATIC CHAIN •••••• ". A2 •
:
A~~~:T~
:
••••••

••••• ~ ••••¥••••••

···.·El··········
•
CONTINUE
•
SCAN OF
•
•
•
STATIC
•
•
CHA IN
•

•••••••••••••••••••

·
•••••EZ··········
.
K

:YE ;g~ ~~£Y IN:
:
• slAT IC CHAIN ••••••

:

A~\g~:~~

:

•••••••••••••••••

• x•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
K
"
Fl.·...
SKARGl F2···..
SKA~:1 •• F3.' ••••••••
••••
••••
•
AlJ,;,1~CATt
•
•• END
NO
•• iK~~JlTO~ •• YES
•
AHVO NT
•
••••
CHA N •••••••••••• x•••• Rlrs~N •••••••••••• ":
R~QU~ft~

•

CSCN2

r.: ••

.. ..

.. ..

*..*

• • • III

• YES

• NO

ARRSCN

.................
:

•

•

x

G2

•••

•

••

• ••••G3..........
• •••
• ••• YES
:
A~h~l~l~:
••
ARRAY
•••••••••• x.
lAlCUlATE
•••••••••
••
••
•
NUM8ER O F .

•••• ••••

: ••• ~k~=~:U ••••:

•
• •••• G 4 . . . . . . . . . . .
: Ol~Gy~RTYA~YE:
:
X.
AllOCAfE
•••••
•
DEGENERATE
•
"

: •• ~2:~.¥~¥I2:•• :

• NO

;
:
:

STRAlO

H2 •••••

.IC. ••••• ••••••••••••

:•

ic

•••••
•

·Pl •
• .A1·

282

• ••• *H3..........

• •••• H 4 . . . . . . . . . . :

NO • •••
• ••• YES
: STA~~8~ATSORK :
:
D~~~~~Uh :
:
STRUCTURE •••••••••• x.
NYHtER OF ••••••••• X.OOPE YEfTDR FOR . . . . .
.'.
•••
:~h:~N NNA~II:
:
-YbRlbRI~VAl :

' ••••'

·

01;9
•••••• b,.

I......

.........

i •••••

x

Chart PL.

Phase PL Overall Logic

Diagc~m

"'' ' ' ' ' '
'" '" '"

"'PL '"
'" AI'"

SCS~:~**AI*~"'*"'''''''**'''

DE2!Hh~~2~~~",****

*
*
'" SCAN CHAIN
'"
S~Rn~n~
:
'"
*
*****************

SYMIU**A3********"''''
*
*
*
'"
*
ALLOCATF
*
:X •••••••• : ~6~BShH~~~ :
*
*
*
*
***"'*************
*"'*************"'*

*

:x.. :x ••.. :*
*'"
*

x

****
A1

****

.*.

ALLOCATE OED
FOR VARIABLE

x

*'"

*

x

• YES

• YES

.*.

.*.

*..*

*.TABLE.*

*

*

B1
*. *.
62
*.
63
*•
.* DOES *.
.* DOES "'.
.* • *END
OF
*. NO
*..* ••
NO
.* VARIABLE *. NO
***** *
*.
CH~.IN
.* .••••.•. x*..* VARIABLE
REQUIRE
o •••• ox*.
REQUIRE
.* •• 00)(* Al *
*.
.*
*.
oeD
.*
*. SYMBOL.*
'"
*

*..*
*•• *

*

*•• *

YES

: x••••••••••••• ·OEOAl.t:··· x'"

CCSCAN
x
*****Cl **********
'**" OFSCAN
''""
CHAIN
CONTROLLED *
*
VAPIABLES
*
*
*
*****************

SYMTAB
*****C2**********
*****c 3**********
**
** ALLOCATE OED "
* '..
*
ALLOCATE
* FOR VARIABLE *X •••••••• * SYMBOL TABLE *
*
*
* FOR VARIABLE *
*
*
*
*
*****************
*****************
x
x

.*.x

*.

CH.6IN

*..*

.*

02

"'.

II

03

OED
.*
*..*
*0

VES

X••••••••••••••••• 0

*

0

• • 000 • • •

X

X

CNSCAN

.*.• YES
*.

*•• *

*

o. e • • • • • •

00 • • 0<1 0" • • • • 0 0 • •

DEDA Ll
•
*"***E3**********
..'" ALLC'CATE OED **
* FOR CONST ANT *

*

*
******************
**

•*

*.

X

. •*. NO

F2
*•
• * DOES * •
• '" CONSTANT "'. YES

FI
*. *.
END OF
*. NO
CH.6.I"J

*.

*•• *

.*

.*

*

*
*
"'****************

X
.*.

*.

.*.• *YES
•

*. SYMEIOL .*
*.TABLE.*

*

*****El **********
** SCAN CHAIN
**
* OF COIIJSTANTS *

•*

•

.*·~A~n~Le*·*. NO
.*·~A~~~~LE*·*. NO •
.* ......•. X*.
REQUIRE
.* •..•.• 001<*. REQUIRE .* ••••

*•• *

*

•••••••••••••••••••••••••••••••••• :

OEDAL~.

01
*.
• *·*eND OF *.*. NO

*.

****

*•• *

.* •.•••••• X*.

'" YES

*.

REQUIRE
OED

*..*
*. 0*

0*

.* •.••••

•
OOOClO • • • • • • •

*

B:SCAN
X
*****Gl **********
* SCAN CHAIN
*
* OF PPOCEOURE *
*
AND BEGIN
*
*
BLOCKS
*
*
*
*****************

.t

R~g~U'

X
SYMTAB
X
*****H3**********
*****H4****"'*****
**
'"* ALLOCATE OED **
**
ALLOCATE
FOR VARIABLE :X •••••••• : ~6~BSaRIUH :

ACSCAN.
HI
*.
*****H2**********
*'" SCAN CHAIN"*
.* • * END OF *. *. NO
""*. CH~.IN .*.* •••••••• X: OF v~~I~~eHC
*0

•

*

*•• *
* YES

x

*"'***
*PP *
* Al*

*

:X .. :X •••• :
*

0

************"'****.
"''''**
** H2 **

*

*

**"'****"'*********

***********"'*"'*****

****'" *

.. *
*

Section 3: Charts and Routine

[ir~ctories

283

Phase PP Jverall Logic Diagr3m

'2hart PP .

.....
•....1.1·
• pp •

•

. ....1.1 •
1 ..
·······1.1··········
.
•••••••••••••••••. ....
X

RI.O

•
SCAN ENTRY.
•
••• X. TYPE
CHI. IN .X •••••

...·x

••
IS·.
THERE
•• NO
AN ENTRY
• *••••••••
•• TYPE 1 ••
x
•• ••
.PT •
• YES
• A1.

••

*.

81

•

.....

....

••

X
C1

••••• •
••••

·.

•••

•••

••
•• I S . .
••
THERE
•• YES
•••• A~H~Y~O ••

.....

*..*

• C2 •

.x •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

SETCHN
X
•••
SC24
• ••••C2..........
C3
••
• ••••C4 ••••••••••
•
•
••••
•
•
•
SCAN.
••
ON•• YES
•
h~~EIiAI~
•
X:
AUTO CHAIN
: •••••••• )( •••• CONoITION ••••••••••••

·······x·· •

~

.~

·

x
·.K....·····01·••·•••·••.
•

•

•

MAKE AN
AUTO CHAIN
DELIMITER

X

.*

•
•
•

•

• E1 ••••

:SORC;~···

•

• •••• E2 ••••••••••

*..*

•

•• •••

.. ..

:
•
•

.*
••

.•.

•

NO

...ic

••

E3

*.

•

*•• *

•
•

•
•

••
NO..

••

F3

*. ••

ADD TO
ANY
INoFPENoENT
.x •••••••••• oEPENDENC IES ••
CHAI"!·
••
••

•
•
•••••••••••••••••

RA7

••

G1

.•.ic

••

*..
••••
•

•• ••••
•
E2 •
•••••
•

.. ..

• YES

H1

J.

••

SCRU81
• •••• H2..........

)!:

•• • ••NO
ic

·····Jl··········
••
••• ERROR
•
•
•

·..................
x

•••••
•
Al •
•• ••••
•

284

DU~~~E~~?~S

•

•
•
: ••••

•

-.

••

J.

~~~~~N,

SRCH2
• •••• F4..........

••

o~~~Nbl~lln

<;C44
• •••• ~5 ••••••••••

:
:
IN CURRENT
••••••••• x.
DEPENDENT.
•

:.....~~~l=••••• :

ADO TO
OEP"NOFNT
CHAI N

...ic

G3

•••••••••••••••••

••

• •••• GIt••••••••••

*.

x:

•••• ••••

• •••• H3..........

)!:

INDE~~~~NT

A5~al~HAIN

o~O~~l~~

INDE~~2DENT

:
:

: •••••~~~l~••••• :

•

:
:
: ••••••••
• •

·•••••
.
•••••
x

•
NO •••• END
*. YES
:
•••••••••• OF CHA IN ••••••••••••

X

• •••• H4 ••••••••••

:
:
: ••••••••
• •

•••••••••••••••••

X:

MAK~

OEf~~t~ER

:
:
•

•••••••••••••••••
x
••••.
......
.
*

El •

:
•
•

:.................:

• NO

.................
1.A~;~YJjENT

PhA~~ IN
IN~HA~~ENT

.•

•.•. .•.•

YES

• •••• G2 ••••••••••

•••• I~~~f •••• YES
:
•• • .t2B~DCH2 ••••••••••••
•• ? ••
•

•

.................
•

•• 1~JU TA8l~· •• YES
:
••
I~EM
•••••••••• x.
••
••
•

III

*.
*
...
E~~IN ·:.X •••••••• :DEPE~g~NfoCHAIN:
.*
•
...
*..111
...
•

. ~?:.*. OF
x

F2

x:

• NO

ic

••

x••

NON
•• YES •
• •• ~OJvn:8lE ••••••••••

•••••••••••••••••

••••• F1..........

•

•• YES
•••••••••

*..*

E2 •

SCAN
DEPENDENT
CHAIN

SC31 •••• 04 ••••••••••

*.

TEMP

ic

El..

: NO •••• THaE A·· •• YES
:
••••••
DEPENOE NT •••••••••• K.
••
CHAI"! ••
•

03· ••••

••
• •••

·•.••••....•

•••••••••••••••••••

·•••••..• .t

x:
.

...*

•

:RA4
•

..................:.'.x

.. ..

.................

•
•

• C2 •

Diag~3~

Phase PT Jverall Logic

Chart PT .

•••••
• PT •
• AI·
••
•

............ ··x

CONTl
K
. . . . . Al··········
• SCAN CONTR~~LED.
• CHA IN FOR
:
gSp~Ae2~ DR :

OSA19

.. ..
A3

•••

....

••

.... -....,... ......

tlE.

••
••

.................•

•

PROC

•• NO
•
•
•••••• X. E3 •

• YES

••••••••••• xxx •••••••••••••• o •• o • • • • • • :
: :oSA26
••

83'·'..

••

.:.

.. ..

• •••• 81t.~ ••••••••

*.

•

p:R~~~hR ·:.~:~ ••••• X:

*. * . . * .*

•

:

••• C

:

•

3.~ •• "

•*

.

••••

GET NEXT El'

•

................

"'*

• NO

.. DSA~~.

*

:

a~~O~A~1i

:CIR~~a~ l~AIN

•
:

•••••••••••••••••••
• X••••••

DSA4

01

It
•••

•••• 9

elta • • • • • • • • • • • • • • • •

•

••

• ••••

•
Di ...........
.

. ' •• 'tES
:ALL~ColEA2D8YTE:
N
•• CON IliON ••,•••••••• x. CO"'~JLE CODE •
•• EN RES ••
• TO INITIALIZE.
•• ? ••
•
•

•• • ••NO

•••••••••••••••••

·• .•

• •
03
.* 11
• NO..

.-.x

••

······I~E '~=~l NA~ •••
*.
••

-...
•••• •

··.........
•

OSA1'4
>0.···04 ••••••••••
St8R~NPO~n~R :
• •• X'"
STAT~MENT .X •••••••••••••••••
•
'"
CREArEO
•
•

t

THIs*. ••

...

...

YES

................

• E3 •• x.

X
••••• e I ••••••••••

oSA25
X
·····E3··········

OSA10
:
•
•

AbaR5~T~oR

ADORESSI NG
VECTOR

•
•

:
•
•

:

•••••••••••••••••••

.•.x

Fl..

.. ..

••••
• ••• YES
:
••
PROC'
•••••••••• X.
••
••
•
• NO

2Aba~~ATPOR

:
•
•

.................
*

ADORE S'ING
SLoh

•

:x. () ...................... ~

*GI.····••··•••
•••••AllOCATe
P~5~~~Pie~E :
•••••••••••••••••••

oSA17
• •••• H2 ••••••••••
•
ALLOCAT~
•
~~~A~h&yr :
• :·o~~PV~g~OR·:.~~ •••••• X:
• '.
••
•
WORK SPAce
•
e

*

• YES

·

x

:oSA161
·····Jl··········

:•

STORAGE

:
•

•••••••••••••••••••

AHg~:J~
:••
•
R EQUIREO
•
•
•••••••••••••••••

·
.
·..................

:oSA162
K
······Kl··········
•
• COMPILE CODE •
••••• 1'0 INITIALIZE.
•
oOPf VECTOR •

.................
•

•

•
:

•

.

x

'"

'..."

................
·x

X

.*

G4

•••

••

*0

.. ..o·
··..........

OSAENO
• •••• GS ••••••••••

•

•• END OF
•• YES
•
••
El CHAIN
•••••••••• X.
••
••
•

*.

• NO

• C1 •

••
•
••••••••••••••••••••
•
•

GET VOA
WRR~S8'~~o

:OSA91t:'
...... ·F4··········
...
STORE OSA
•
'"
S I7.E I~
•
4, ENTRY TYPE I
•

oSA46
X
·····H3··········

••

•

..................

.•

x

•••
HI..
••••

.. ..

S~~!;~~A~fiRo

.. ..

•

X:•

• NO

•• ALLOCATE ••
CHAR STRING •
•
STORAGE
•••••••••••••••••••
••

· ... ·······)ex
*.

:
•

OSA38

•
:

:oSA16

.

•
OSA~~! •• E5.l ••••••••

YES
•
••••••••• , ••

EGlON

*.

··.·*G3······.···

X

oSA121

·

·

X

E4···..

••••

:

oSA29
X
• •• ·.F3··········

o·

*.
• .AO~USTA8LE ••

•••••••••••••••••••

• •••• F2 ••••••••••

*..*

ALLOCATE

OO~~bKA~~Ro

: OSAl'2

••

ALLOCATE
BIT STRING
STORAGE

RELEASE
TEI(T ~LOr.KS
AND CONTROL

•

•
•
•

.•.................
x
.........
*QF •
• AI·

••
•

·
.
·•••••••••••••••••.

OSA,)4

X

•••• ·J3 •• ••••••••
•
ALLOCATE
•
STORAGE FOR •
•
•
ARRAYS
•

·
.
·.....................

OSA68
X
• •• ··K3··········
•
...
...

...

ALLOCATE
STORAGE FOR
S TRUCTUR ES

•
•
....... H
•

...'"

secticn 3: Charts and Routine Directories

285

Chart QF.

Phase

OF Overall Logic DiagL3m

••••

•••••
•
••••••••••• x.

••• 103 •••

•*OF•101·••

••••

. ....

..
•

~
• •••••101··········

:OFOOOO

OAD~:. •• A3.!........

:

·

••••••
• 101 ••
••• SCAN TEXT .X
•
••••• •
•
•••••••••••••••••
••

B1

...·x

••

AU

.

MioTIC
•••••••••
AI N .

K......
••

•••••••••••••••••
K

.:.!!~

••

•• ••
NO

.....

.....X

A',:··..

....
•• ••

• ••••••••••••••••• *.

·OJ •
•• 101.

VI'S
••••••••••

NO

K.:PlA~~DO~~l~IT"R:
~TATF~eNT

.•••••••••••••••••.
•

*. *.

•••

•
•

IN TE XT

~

8"

•*
VES..

•

OMO¥~1 . .A5 ..........

•.•.

OElIMITER
••
•

OF1172

*.

....

•:.•• E?Bx9"

•
•

!~AN:

~

••

FIRST
lONE

B5 ••••

OF" 860

*.

.*
••

NO
ENO
•••••
OF CHAIN
•
III.

••
••

•• .-

~

*••
*
• NO

•••••
•
A3 •
•••••
•

•

*.

*•• *

•. ••
._

••

••

• VI'S

•

·····C4*·········
X

:EX~Q~~~sl~~A~T

•
•

FOR I EM
FROM NO

X

.. ···C5 ••••••••••
•
~~IP 2ND
•
:
Tol~
•
STATdM~NT •

lffT :

:
•
•

·.......

: ••• !~.n2~~ ••••:

: ..... :I~~ •••••• :

•• X. J3 •

x · •••••

OF1215 0"···..
0"11:: •• 5 ••••••••••
••••
••••
•
RXTRACT
•
•
•
NO..
DOES
•• VES
•
~APPING
•
: 103 :X X••• • ••• IlfaR~~~O •••••••••••• X:
~RgEF~~~M
:

..... .... ....

...............:

:

•

t".•••••.•.•

K

QPPROL
OF(l360
•••
• ••• ·E2·.·.··....
E3
••
• ••••
••••
• ••• VI'S
:
E2':ER~T NT :
••••
• ••• VES
:
G ~SRAfE
:
••
PROC
•••••••••• X.
F«I
••••••••• K·. E XJK
•••••••••• X.
A C
•
••••
••••
:
E H ~to L :
•••• 0 • •••
:
RRSS N
:
•• ••
• •••• ~.... •••••
•• ••
• ••••••• 11 •••••••
El

•••

••

~~l

R~Al

.~

·

NO •••• Il~M ••••
.x......
FJ~ST
•• IN ZONE ••

.111

•

*.

e*

*•• *

• YES

.

•••••• ••••••••••••• ••••• • x.

X

.••••••••••••••••. ....

....
•• ••
X

....
•• •••

GENERAT~

T~l(g~~G~~A

:
••••••
: •••• X: A3 :

:
:

OON~~~.*G2 ••••••••••

·:.!!~ .....

••

F".:........

G~g~=~~E
F~R ~~tU8SA

:
:

•••••••••••••••••••

•

• NO

G1···..
••••

QFOU~ ••

oep~a~ ••F2 ••••••••••

••••
• ••• VES
:
•••• BEGIN •••••••••••• X:

ON

~

E5·.

.~

Fl···..

•• ~~.:.
••

Ig ~ i T~

.•.

•
:

•

:

QF1~U •• F5.~........
: :E~O~1i XVAR :

......:••••••••••••••••
A"f~N~'~~ :
MA~P
•

NG CME

•

.•••••••••••••••••. X:....•••101 :

X:••

~R!tF~~1

TO ~~roh

•

:. •••

•

X.

•

•

...........................
OF!!m •• H5.!••••••••
••
GSNERATE
••
ODE TO
•
C PV ARG
•
• A1!! TAR~p •

.. .

••••
••••••

: •••• ¥~~h.i•••:

•••• •
•
X
.. " •
•••
OF"625
QMOVfl
Jl
••
J"
••
. . ' •• ill••••••••••
••••
•••• VE S
•••• H :RE A •••• VE S
:2~=~OiT ~R8N~~~ :
••
PROC
•••••••••• X.. ~N~R~ p~l •••••••••• X. 3T RNFt ~Nn •
• J3 •

••••

•• ••

·

....

• NO

• *

..X. A3 •

.*.

••••

?

••••

*•• *

.

• "10

:~A= ~ ~~ f~9R~S:

•••••••••••••••••

.
•

••••••••••••••• K••••••••••••••••••••••••• X•••••••••••••••••••••••••

286

Chart

Phase

QJ •

QJ

• A1·

•

......Al··.·······••
••
X

o.

.."'.............. ..•

••• X.

••

A2

A2 •

.-.x

••

*.

•• ADJUST
•• 'II'S
••
ARRAY OR
••••••••••
•• STRUCT ••

.x•••

SCAN TE XT

••

.*

K..

••
••

*..*
*. • ••NO

..•.....•
••••
..."'.81..........

.;.

.

•• A1 •
••••• •

Cl

.• END

*. •:.

*...
*•••

••

OF

TeXT

*. ••

E~~r~TS

flNDEXP
X
••
.. ••••84 ••••••••••
:
YES •••• ANy·· •• NO
:
~n~~f T
:
.X..........
STARS
•••••••••• X..
2ND FILE
•
•
••
••
•
STATEMENTS
•

FROM OLD
DOPE VECTOR

.*

X

.•................•

••••••••••
X

•••••

.QU •
• A3 •

•••

**.
••.**

••

*••• .*

••

.. ..

•
SET SIZE
•• YES
• AND GENERATE
•••••••••• X.
CALLING
••
•
SEQUENCE

.•.

•

••

X

*.

*•• *

x

~'.~XM .~ ....... .

•

•

•• F2 ••
••••••

·.... .............
•
•
•

EXTRACT
HAPPIIIIG
CODE

:•
••

og~~E~~HoR

:•
••

.... .................
.

.*

• YES

BYI

•

·····G2.·········

•• "DJUSTABLE •• NO
••
ARRAY OR
••••••
... STRUCT ••

*.

OF.TERMINE

:

CALLING
SEQUENCE

•
•

LIB~l." •• ES.:••••••••
•
DETERMINE
•
.:. L~2~nT? ·:.~; •••••• X: ~~~~h~~D :
••
••
•
CALLING
•
••

•
•
•

RELOCATION
CODE

• x••••••••
K

•• ••••
•
A1 •
•••••
•

.. ..

x

F 11

••

*.

••

.* INITIAL *. ••

*.

VALUE

*.

••

.*

.*

F4

...·x

• *••••

*.

x

.
.... ··"'"'........
..
.
·····G3••••••••••
it

•• EXTRACT 11'40 ••
•
FILE
•
•
STATFMENT
••••••••••••••••••
••
1) • • • • • • • • • • • • • • • •

••

. : . S¥a~G
•• LENGTH

NO

*••
*
• YES

.

.................

••

•

• vES

F3 •• X.

••••

1'5 •

.. x•••••••••••

X

•

~U~AA~~n

•
•

••••• •
••••••
•

E4°··..
••••

••••••
• •
• Ai •

x

0*

•
•
•
•

.................

• 1110

Gl

• YES

:

•

X
• •••• F2 ••••••••••

8Y15

Fl..
.••••

• •••
A2 :

*•• *

• YES

··.........
.•.

••••

•.:.~~ •. l(:.••••.
*..*

•••••••••••••••••

'"

x

*..*

••

**.
••.**

•

• F2 •

•••

••
••
STRIIIIG
•.•

• ••
04
••
••••

••

NON

t ....... X.:·. .
~~:l~K
~~~l~~
? .·:.~? ..... X.:·..?

.....
··....

••

• YES

BUY

•••

Ll8i.l ••• E3.! ••••••••

*. ••

'op.

BUY

03
••

•••••••••••••••••••

• NO

*.

.4
..................

•

·····C4.· ••••••••
•
EXTRACT
•
• •••
•
HAPPING
•
•
•
•
C mE FROM
••••• '(. E5 •
1ND FILE
•
•
•
•

X.

•• 8UYS

•••

*...
.. ..

..•.........•

x

*.

* •••

• 84 •

x

83

•••
ALLOC
01
••
• ••••02..........
••••
• ••• YfS
:
i8A~E'A~~~B
•
••
AllOCATE
••.••••••••
2ND ~ILE
••
••
•
POI 1'4 TF R S .

• NO ••
••••••

··••••..

••• *

YES

• NO

...x

• •• 41

•• YES.
•
•••••• X. G4 •
••
••

•• X. B4 •

*••. .••*

E1

*.

ALL
STAR

• NO

•...0..............
••'

... ••

A3

.. X. E5 •

:
•
•

.•.x

Diagr~m

··....••••..

...

•••••
• QJ •
GS 1

Qverall Logic

*. 0*

• ..

.:.~?

••

•

••

.....X·"'. ·······"'·······.
·.....
•• E~ ••

... :
•
•
•••••••••••••••••
.
•• X. F3 •

PREVAL
X
.····G4· •••••••••
COpy
OLD
DOPE VECTOR

• ••• ·FS··.···· •••
•• DOPE
GENERfTE
Y CTOR ••
RElg5~ ION
:

.......

• YES

•

•

X

*.

• G4 •• X.

•
• •••
•

SEQUENCE

•
•

•

••••
•
••
··G5·····.··
••:
:•• )(:
•

•

FXTRACT

•

FOR

•

~~ZT~l~~T

:....~~~2~~ •••••:

............. ..

~

....·x
·.
• •
• F1 •
••••

Section 3: charts and Routine Directories

287

Chart QU. Phase JU Jverall Logic

Diagr~n

•••••
••
•

• QU •
• A3·

•••••A3.i ••••••••

TI~p~3\~nRS :
Eft
•
••••••••••••••••••

:

••

X

TRANS

••••• ~3 ••••••••••

•• ••••
•
C2 •
•••••
•
:

i

ET
0 OSII

..............

:

•

••

C2

NO ••

•• X••

•••••••••••••••••••••••

rc

TLA

••••• Cl.......

• •••• •
:
SN~~I ~~XT
:
• B3 ••••• x. IPRM AND EPRM •
•
•
•
NESTS
•

•••

x

••

·IT ~hHI~·..

.. ..

*..*
• YES

••

k
*...
...

YES ••••

x••••••••• sE~k~~G ••••X••••••••••••

•

• ••

C3

.

A

••••

IN TRN

••••

•• •F2•••••
••••••

• NO

l(

.t

K

LARGQ

•••

03

•
02
••
:
No····SISAN·· ••
•• •••••• AR UMENT
••
•• RE ISTER ••

*.

.*

•

....:X.x"':................

*.

x

"'."''''

•• C2 !II•

'"

••

•'"
'"

.'" pK~RAM"'.

""..

TEOP

"'.

•• OF

"'. YES

.....

•",' '"

•••••••••• )(.

'"

'" "'

•)( x•••••••••••
'" •• "''''.

• NO

X

..

• •• : P8GT~GTn~K
•
• MVC'S STORED

'"

lC

•• ••••
•
83 '"
•••••
•

•••••
• Q)( •

"'

....."'..........

•••••••• "'.

••
•

....

.. ..

'"

....
*•• *

*•• *

• YES

~

•• NO
•• ••••••

..AOOR ••

AOEOQ
•••
"'.
J2
••
•••• I S · · •• NO
• •••
•• "'. NO
•••• AL6~~~ENT •••••••••••• )("'."'. OEOSW ••••••••••••

MTSQ
•••
MTMVC
J4
••
• ••••~5 ••••••••••
• ••• NO
•••• Opl~ANO·· •• YES
:
"o~I~Yl.D
:
ARGSW ••• "' •••••••• K•••• A ~~~r5T •••••••••••• lC: f~~lNfw~AON :
8'1' MVC
•

J3

•••

••

x.... .0..
••••

....

*. ••

• YES

...**..•..........

*. ••

• YES

• NO

x

x

X
••...K2··"'
·······

• NOTE REGI STER •
• LOADED 8'1' THE •

·
....
··......

:... :

x

• tl3 •

X

"'PUTK3······.··
•••
•.•..
•
MVC
• INSTRUC TlON FOR .....

MSTACK

REGENT

:opl~~~SNh r~s:.~~~I.~~~~~~~~.:

288

:
•

• &2·

ri:~:;i;:~:;·:· :~:E::·;i~;:fi;··
WAL~G~~~-

X:

•••

•••••
•
83 •
•• ••••
•

.

"'•••••••••••••• "'.

-)(

X

Jl

SE ¥EX¥

···.·F5··.···"'
·.·•
•

•

·• x•••••••••••••••••••••••••.
AOFSIQ

TLM

H 0 TP T •

*..*•• -

••••
••••• YES
•••• OR ~~¥SW •••••••••••• oE6 QHI VARfArE:
••••
•
•

.. ..

"'...

x

••••

xx ..............•..•....•••••....•.•.. :

H~::::

*••
• *
YES

..

"'~~~i~U"'~~~~~~~'"

*•• *

IS "'.

*..*
*••
*
• YES

• 83 •

."'.'"

.."'R~~l.Fl"'····"'' '··

• F N

."'.
ALIGNQ
•••
'" 83 '"
••
'"
•
IT ••
•• G2
NO •• A ACKEO ••
YES.. tP RAND •• NO
••• "'. (NONSTRINGI •• leo ••••••• "'.A 0 C 10NARY ••••••••••••••••••••
•
..VARIA8LE ••
..R F RENCE..
•

•

••

.x "'.
E5
"'."''''
.'"
"'.
: F2 :)( .. ~?"':\ l~~ l~TRY·:.
••
*.
.*
"'."''''
- •• *

'" NO

•'" G2 ••
••
X.
• ••••• K

x
••••

05

.i. NO

'" YES

•••

F3

"'

.•GlS ••

'"

.*
*•• *

x

X

••

yes

'" NO

."'."'......."'...........
. "''."

ALGREF

••

98:. •••

•

.•.x

:.:;~Fi(·~~~:~;"':

• ACCORD
REQUfRfD
'"'" F2 '"
"' •••• X'"
N TO
'" INSTRUC ION
•
•

TLLl8Q

i. ....

E'l
••
• '" OTHER "'.
YES .'" iNSTRN
••
••••••••
QUIRING.'"
•
•• A rGNMENT. '"

.............
"''''''''''

04

*••
*
• NO

LARGY
X
••• ··E2·······
•
SET
•
AltGSIl
••

TTS

••

•••

••••
L
•••• yes
•• ··ITlfoAR·· •• NO
••·~T JiTHJ=· ••
••
INSTRN
•••••••••• X•• FROM ADDReSS •••••••••• X.. A CA~Ll~G ••
••••
• •••
• •• ~=C
~~ au N ••••

*••
• *
YES

•••••

•
•
: G2

TLL

•

"S

·····1(4··········: ••••
X

•

OUTPUT

•

. .••

.·•.•••. ·.................. ....

IT INTO STACK.

•• "'..............

•

K

·....'"
• 83 •

••••• •
• 83 •
••••

:

•

M~~ ~Hh~~n8

INSTRUCTION·

K: 83 :

•

•

·.

2nart OX. Phase

Jverall

~X

.....

~ogic

Diagr~D

• QX •
• A2·

•••

·

SCANC
X
·····A2··········
: Aa~~~AH~T1~o :

cg~n~~L~2

:
•

:

DICTIONARy
•
•••••••••••••••••

.

• • • • • • • • • • • • • • • • • • • e.o • • • • • • • • • • • • • • •

ic

• •• ·.B2···.······

•

•
: s~H I~EtaA ~~ :
•••••••••••••••••••

· ..

.••.•.85•.••••....•
~

• ••••••••• x:PR8E~D~~~OCa:JN:
•
•

•••••••••••••••••••

x

x

•••• •l.

••••• Cl..........

C2

•

.*

••

.. ..

*.

.*

.;..YES
C3
••

.. ..

• GET NEKT ~NTRY •
••
END
•• yES
•• W~S IT
:
IN CHA N
:." •••••• X•••• OF CHAIN •••••••••••• X•••• scAl ~

.................
*

*..*
• NO

x

*.

.*

.

•

NO

·
·..x

*...
*•••
• yES

.

• x•••••••••••••••••••••••••

E'2

NO •• E~Tn

••

~6R ·1••

: x•••••••• "•••••••• No~~iT~LNu~~D'.
·.ARRAY.·

*•• *

•
•
•••••••••••••••••••

NO

X

.AUTOHAT IC C HA IN.

~l~P~~VRY Gr~

·•••••••••.•
x

•
•
.................

.PROCEDURE CHAI N.

• Cl •

••••
: E4
••

••••

x

······Gz···. •··••·••
•

I~R !~~R~~I~~

• C2 •
)(

:l ... )(.:·

E4
••
••••

• •••• E5 ••••••••••
•
GET HEAD OF •
AtJTOHATIC
•

x:

.. ..

................:.

P~~gEg~RE ·:.~~ ••••••
•• CHAIN ••
•
*..*
•
• YES

.*
••

F4

.•.x .0

*.

·0 .•
•

••

YE S

.. .

•••••
·RA •
• Al·

~~~t~o~~r

•

•••••
•
•
x:
•••.••.•••••••••••*

F5 ••••••••••

*.

IS
•• NO
..~~B(JL(J~WITC~ ••••••• 0

x

PRALEN

·•••••••••.•

...x

• YES

ANAGG
X
·····F2···... •••• ... •
• ANALySE DICT: •
• ENTRy FOR AN •
•
AGGREGATE
•

•

····*04··········:
:

••• ••

•• 1S IT ••
••
IS
•• YES
•• ENTRy FOR •• NO
•• ~~BOLo~WI TC~ ••••••••••• )(.A.~~~~bc~e~~~;'.'.':

**.. .••*

*.

*...
..*

•

03

•• ••••
•
E4 •
•••••
•

.:..YES
C4
••

•• NO
•• WAS IT
••
•••••••••••• )( ••• ~oN~~2~~eD ••••

*..*

x

• *.

02
••
••••

•

•••••••••••••••

• C2 •• X.

x
•

Tg~~oeN

:

~

SWITCH·
••••••••••••••••
•

·.......

•• ••••
•
Cl •
•••••
•
•

•.•..84.......•
•

•

•••

GH HEAD OF
C(JN~~2~~FO

•

.......
x

.

•......•

• C2 •

.LENGTH TABLE •

•••••••••••••

section 3: Charts and Routine Directories

289

.Table PA. Phase PA DSAs in

S~ATIC

Storage

r-----------------------------------T---------------T-----------------------------------,

I

IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------t---------------t-----------------------------------~
IScans Entry Type 1 chain for blockslPADSA
IDSASIZ,DVSIZE
I
leligible for STATIC DSAs
I
\
\

r-----------------------------------t---------------t- ----------------------------------~

IMakes a dictionary entry for each
\STATIC DSA

IDICEN~

I

INone

I

I
I

r-----------------------------------t---------------t- ----------------------------------~

ISorts STATIC chain (called from PD) ISCSORT

INone

I

~-----------------------------------t---------------t-----------------------------------~

IScans STATIC chain for INTERNAL
larrays; calculates number of eleIments for those arrays needing
I initialization. Allocates storage
Ifor arrays and, if necessaryv for
Isecondary
dope vectors
L
___________________________________

IARRSCN
INone
I
I
I
I
I
I
I
I
I
I
I
I
I
I _______________ I _ __________________________________ JI

~

~

.Table PAl. Phase PA Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

r------------------t---------------------------------- ----------------------------------~

ARRSCN

Scans STATIC chain for INTERNAL arrays; allocates storage for arraysl
and secondary dope vectors (callEd from FH).

DICENT

Makes a dictionary entry for each STATIC DSA.

DSASIZ

Calculates size of DSA excluding Register Allocator Workspace.

DVSIZE

Scans AUTOMATIC chain for variables requiring dope vectors, and
calculates size of dope vectors.

PADSA

Deterffiines eligibility of a block for a STATIC DSA.

ISCSORT
L
__________________

290

ISorts
S~ATIC chain (called from PD).
__________________________________
__________________________________ J

~

eTable PD.

Phase PD Storage Allocation Static 1

r------------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processingl
Routine
I

I

I
I

Subroutines Used

~------------------------------------+---------------+-----------------------------------~

IReverses second file dictionary
IPD
I NXBLCK
I
I pointers
I
I
I
~-----------------------------------+---------------+-----------------------------------~
ISorts STATIC chain
ISCSORT (in PAl INonE
I
~-----------------------------------+---------------+- ----------------------------------i

I SDSAl
I

I1Ulocates storage for sin'fle, non- I STATIC
I structured, non-external items
I

I
I

~------------------------------------+---------------+ -----------------------------------i

IAllocates dope vectors for all
I DVALOC
INone
I
Inon-external items
I
I
I
~------------------------------------+---------------+-----------------------------------~
IAllocates 4-byte addressing slots; ITVALOC
ISTHCDV
I
Icalculates control section size for'
I
I
lall external items
I
I
I
~-----------------------------------+---------------+- ----------------------------------i

IAllocates
storage for constants.
L
___________________________________

eTable PD1.

ICONALC
_______________ LINone
_ __________________________________ JI

~

Phase PD Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,

I Routine/Subroutine I

Functlon

I

~------------------+---------------------------------- ----------------------------------i

CONALC

DVALOC
NXBLCK
PD
SDSAl
SCSORT
STATIC
STRCDV
I'I'VALOC

I Allocates storage for constants.

I

I

I

I

I

I

I

I

I

I

t

I

I

I

I

I
I Allocates 4-byte addressing slots; calculates control section size

I
I

IAllocates dope vectoI'S for all nen-external items.

I

IObtains next text block.

I

IScans text file and reverses second file pointers.

I

IAllocates a 4-byte address slot for each STATIC DSA.

I

Isorts STATIC chain.

I

IAllocates storage for simple, non-structured, non-external iterrs.

I

IAllocates relative offsets of structure ITember dope vectors.

I

IL __________________ Ifor
all external items.
__________________________________
__________________________________ JI
~

section 3: Charts and Routine Directories

291

eTable PH.

Phase PH storage Allocation static 2

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
IScans AUTOMATIC chain; allocates
IPBSCAN
IAUT04, SKDV1, SKENT3, S~RSCN,
I
Idope vector
I
ITEMPDV
I
~-----------------------------------+---------------+-----------------------------------~
Iscans CONTROLLED chain
ICONSCN
IAUT04, SKDV1, STRSCN
I
~-----------------------------------+---------------+-----------------------------------~
IAllocates storage for skeleton
ISKARGL
INone
I
largument lists appearing in STATIC I
I
I
Ichain
I
I
I
~-----------------------------------+---------------+-----------------------------------~
Iscans STATIC chain for INTERNAL
IARRSCN (in PA) INone
I
larrays; calculates number of
I
I
I
lelements for those arrays needing
I
I
I
I
I
I
I initializing. Allocates storage
Ifor arrays and, if necessary, for
I
I
I
Isecondary dope vectors
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IScans STATIC chain for INTERNAL
ISTRALO
INone
I
Calculates number of
I
I
I
I structures.
lelements in structured arrays need-I
I
I
ling initializing. Calculates size I
I
I
lof storage for all structures and I
I
I
location counter.
I _______________ I _ __________________________________ j I
lIbumps
___________________________________
~

292

~

.Table PHi.

Phase PH Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~.------------------+--------------------------------------------------------------------~
ARRSCN (in PAl
Scans STATIC chain for INTERNAL arrays; allocates storage for arrays
and secondary dope vectors.
AUT END

Tests for end of AUTOMATIC chain.

AUT04

Calculates size of dope vectors for dynamic temporaries and CONTRCLLED variables.

CONSCN

Scans CONTROLLED chain.

CSCN2

Tests for end of STATIC chain.

END5i3

stores STATIC location counter and releases control.

PBS CAN

Scans AUTOMATIC chain; allocates dope vectors.

PBSi

Gets next item in chain.

SKAkGL

Allocates storage for skeleton argument lists appearing in STATIC
chain.

SKARGi

Allocates storage required.

SKDVi

Creates skeleton dope veotor dictionary entries for non-structured
variables in AUTOMATIC and CONTROLLED storage.

!3KENT3

Constructs skeleton dppe vector dictionary entries for function
Ivalu~s.

STRALO
STRSCN
TEMPDV
l __________________

I

\Calculates number of elements in structure arrays to be initialized;
Icalculates size of storage for all structures.

I

Icreates skeleton dope vector dictionary entries for structures in
IAUTOMATIC and CONTROLLED chains.

I

ICreates skeleton dope vector dictionary entry for temporary workIspace.
__________________________________ __________________________________ J

~

section 3: Charts and Routine Directories

293

Table PL.

Phase PL Storage Allocation Symbol Table and DEDs

r-----------------------------------T---------------T-----------------------------------,

I

IMain Processingl
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------~
IAllocates STATIC storage for all
IIEMPL
IBCSCAN, CCSCAN, CNSCAN, SCSCAN
I
Isymbol tables and DEDS
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IScans STATIC chain for symbol and
ISCSCAN
IDEDALi, STRSCN, SYMTAB
I
IDED variables
I
I
I
~-----------------------------------+---------------+-----------------------------------~

IScans CONTROLLED chain for symbol
land DED variables

ICCSCAN
I

IDEDALi, STHSCN, SYMTAB
I

I

I

~-----------------------------------+---------------+-----------------------------------~

IScans PROCEDURE block chain of
IENTRY type 1 entries

I BCSCAN
I

I ACSCAN, DEDALi
I

I
I

~-----------------------------------+---------------+-----------------------------------~

IScans AUTOMATIC chain for symbol
land DED variables

I ACSCAN
I

IDEDALi, STRSCN, SYMTAE
I

I
I

~-----------------------------------+---------------+- ----------------------------------1

IScans chain of members of particu- ISTRSCN
Ilar structure for symbol and DED
I
I variables
I

IDEDALi,
I
I

SY~TAB

I

I
I

~-----------------------------------+---------------+-----------------------------------~

IAllocates storage for symbol tableslSYMTAB
IDEDAL2
I
~-----------------------------------+---------------+-----------------------------------~
IAllocates storage for DEDS
IDEDAL (two
INon~
I
I
lentry points:
I
I
DEDAL2) I _ __________________________________ JI
I ___________________________________ IDEDALi,
L
_______________
~

Table PLi.

~

Phase PL Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
I ACSCAN
IScans AUTOMATIC chain for symbol and DED variables.

I

I BCSCAN

I

Scans procedure block chain of ENTRY type 1 entries.

CCSCAN

Scans controlled chain for symbol and DED variables.

CNSCAN

Scans constants chain for DED variables.

DEDALi (PM)

Allocates storage for DEDs.

IEMPL

Allocates STATIC storage for symbol tables and DEDs.

SCSCAN

Scans STATIC chain for

STRSCN

Scans chain of members of particular structure for symbol and DED
variables.

294

and DED variables.

I
I

I
I

I

ISYMTAB (PM)

L __________________

~ymbol

~

Allocates
storage for symbol tables.
I
__________________________________ __________________________________ J

Table PP.

Phase pp storage Allocation Sort of AUTOMATIC Chain

r-----------------------------------T---------------T-----------------------------------,

I
I

statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

.-----------------------------------+---------------+- ----------------------------------~

IScans BEGIN-ENTRY for ENTRY type 1 IRAO
I entries
I

ISETCH, SCRUB1, SORCH
I

I
I

.------------------------------------+---------------+-----------------------------------1
Iscans AUTOMATIC chain from each
IENTRY type 1 entry

ISETCH
I

IEXDT, SRCH2
I

I
I

~------------------------------------+---------------+ -----------------------------------1

IAdds ON conditions to first AUTOIMATIC zone

ISC24
I

INone
I

I
I

~-----------------------------------+---------------+- ----------------------------------1

IAdds temporaries (type 2) and inde-ISC31
Ipendent items to first zene
I

INane
I

I

I

~-----------------------------------+---------------+- ----------------------------------1

IAdds dependent items to subsequent ISC44
I zones
I

INone

I

I

I

~-----------------------------------+---------------+- ----------------------------------1

IDetermines list of dependencies
I from INITIAL attribute

ISC39
I

ISCNCHN, SHCH2
I

I

I

t------------------------------------+---------------+-----------------------------------1
IDetermines list of dependencies
I from DEFINED attribute

ISC40
I

ISCNCHN, SRCH2
I

I
I

t-----------------------------------+---------------+-----------------------------------i
IDetermines list of dependencies forlSC35
larray bound expressions
I

IEXDT, SCNCHN
I

I
I

~-----------------------------------+---------------+- ----------------------------------1

IDetermines list of dependencies forlSC50
Istring length expressions
I

ISCNCHN, SRCH2
I

I
I

~-----------------------------------+---------------+- ----------------------------------1

IRemoves independent item dictionarylSCRUBl
INone
I
Ireferences upon which iterrs in the I
I
I
IAUTOMATIC
chain depend.
I _______________ I ___________________________________ JI
L ____________________________________
~

~

section 3: Charts and Routine Directories

2~5

Table PP1.

Phase PP Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------1
\ Routine/Subroutine \

Function

I

~------------------+---------------------------------- ----------------------------------i
I EXDT
\scans dimensions tables for second file statements with adjustable
j

I
I

Ibounds.

IRAO

Scans BEGIN-ENTRY for entry type 1 entries.

I

IRAl

Tests for end of ENTRY type 1 chain.

I

IRA4

Creates an AUTOMATIC chain delimiter.

j

IRA7

Tests for end of chain.

SCNCHN

Scans curr~nt AUTOMATIC chain; determines whether reference belongs
to it.

SCRUBI

Removes independent iteffi dictionary references from the stack of
dictionary references upon which items in the AUTOMATIC chain
depend.

SC24

Adds ON conditions to first automatic zone.

SC31

Adds temporaries (t}'pe 2) and independent items to first zone.

SC35

Determines list of dependencies for array bound expressions.

SC39

Determines list of dependencies from INITIAL attribute.

SC40

Determines list of dependencies from DEFINED attribute.

SC44

Adds dependent items to subsequent zones.

SCSO

Determines list of dependencies for string length expressions.

SETCHN

Scans AUTOMATIC chain from each ENTHY type 1 entry.

SORCH

Sorts chain in order of dependencies; creates zone delimiter dictionary entries.

296

I
I

I
I

SRCH2
L __________________

!
i

~

Scans second file statements for dictionary references of labels,
~
data. items, and structures, which may belong to the current AUTOMAT-~
IC chains.
__________________________________
__________________________________ J~

Table PT.

Phase PT storage Allocation AUTOMATIC Storage

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
~.-----------------------------------+---------------+-----------------------------------~
IScans stacked CONTROLLED chain for IMYNAM
IDVSIZE
I
I
I
I
I largest dope vector
~-----------------------------------+---------------+- ----------------------------------i

IInitializes ENTRY type 1 chain scanlDSALOC
land DSA
I

IMKSTAT
I

I
I

t-----------------------------------+---------------+-----------------------------------i
IAllocates slots for ON conditions

I~KSTAT

IDSA4

I

~-----------------------------------+---------------+- ----------------------------------i

IAllocates storage for workspace andiDSA10
Ifor DSA addressing vector
I

INone
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IScans AUTOMATIC chain and al16catesiDSA16
Istorage for dope vectors
1

ICOPY, DVSIZE, INITDV, MKSTAT,
ISTDVIN

I
I

t------------------------------------+---------------+-----------------------------------i
IAllocates BUY workspace

IDSA17

INone

1

~------------------------------------+---------------+ -----------------------------------i

IAllocates storage for parameters

IDSA19

INone

1

t------------------------------------+---------------+-----------------------------------i
IAllocates storage for double preci-IDSA25
Ision variables
1

INone
I

I
I

r------------------------------------+---------------+-----------------------------------i
IAllocates storage for single preci-IDSA29
Ision variables
1

INone
I

1
1

~------------------------------------+---------------+ -----------------------------------i

IAllocates storage for character
I ~3trings

IDSA38
I,

INone

1

I
I

~------------------------------------+---------------+ -----------------------------------i

IAllocates storage for bit strings

IDSA46

INone

I

t------------------------------------+---------------+-----------------------------------i
IAllocates storage for arrays and
Isecondary dope vectors

IDSA54
1

ICOPY, INITDV, MKSTAT, SDVCDE
1

I
I

~------------------------------------+---------------+ -----------------------------------i

IAllocates storage for structures

IDSA68

ICOPY, MKSTAT

I

t------------------------------------+---------------+-----------------------------------i

IGets VDA and initializes dope vec- ~DSA72
Itors for adjustable regions of
I
IAUTOMA1IC chain
I

ICOPY, INITDV, MKSTAT, STDVIN

I

I

I

I
I

~-----------------------------------+---------------+- ----------------------------------i

IAllocates
storage for DEFINED iternslDSA98
L
____________________________________
_______________
~

INone
___________________________________ JI

~

section 3: Charts and Routine Directories

297

Table PTi.

Phase PT Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
, Function
I
~------------------t---------------------------------- ----------------------------------11

CONTi

Scans controlled chain for size of longest dope vector.

COPY

Compiles code to copy skeleton dope vector into real dcpe vector.

DSALOC

Initializes ENTRY type 1 chain scan and DSA.

DSA4

Allocates slots for ON conditions.

DSA5

Allocates standard save area and flag bytes.

DSAiO

Allocates storage and workspace for DSA addressing vector.

DSA16

Scans AUTOMATIC chain and allocates dope vectors.

DSA17

Allocates BUY workspace.

DSA19 (PU)

Allocates storage for parameters.

DSA25 (PU)

Allocates storage for double precision variables.

DSA29 (PU)

Allocates storage for single precision variables.

DSA38 (PU)

Allocates storage for character strings.

DSA46 (PU)

Allocates storage for bit strings.

DSA54

Allocates storage for arrays and seccndary dope vectors.

DSA68

Allocates storage for structures.

DSA72

Initializes dope vectors for adjustatle regions of AUTOMATIC chain. I

DSA74

stores pointer to skeleton second file statement.

I
I

DSA98

Allocates storage for DBFINED items.

I

DSA16i

Allocates storage required for dope vectors.

I

DSA162

Compiles code to initialize dope vectors.

I

DSA952

Gets VDA for this region of AUTOMATIC chain if required.

I

PVSIZE (PU)

Determines size of dope vectors.

INITDV

Compiles code to initialize address slot in dope vector.

MKSTAT

Makes a second file statement.

MYNAM

Scans CONTROLLED chains.

I
I
I
I
I
I
I

SDVCDE (PU)

Compiles code for secondary dope vectors.

I

I:
II
Ii

I,

I:

II

Ii

ILSTDVIN
Initializes structure memter dope vectors.
__________________ __________________________________
__________________________________ JII
~

298

Table QF.

Phase QF Storage Allocation Prologues

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processingl
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~--------.---------------------------+---------------+-----------------------------------~
IScans text for statement labels,
IQFOOOO
IQBEGEP, QB~ROL, QECP, QMCVE, QPHOL, I
IQSL
I
IPROCEDURE statements, BEGIN state- I
Iments, BEGIN END statements, and
I
I
I
lend-of-program marker
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses statement label pseudoIQSL
IQMOVE
I
Icode items
I
I
I
~----------------.-------------------+---------------+-----------------------------------~
IFrees text storaqe at end of phase; IQECP
IQMOVE
I
Ireleases control
I
I
I
~-----------------------------------+---------------+- ----------------------------------i

ICreates stereotyped prologue for a IQBPROL
IQADJAL, QFSKIP, QF020i, QMOVE
I
IBEGIN block requiring a dynamic
I
I
I
Istorage area
I
I
I
~----------------.-------------------+---------------+-----------------------------------~
Icreates stereotyped or special
I QPPROL
IQADJAL, QFSKIP, QF020i, QMOVE,
I
Iprologues for PROCEDURE statements, I
I QONPRL
I
Idepending on conditions.
Processes I
I
I
Istatement label pseudo-code items
I
I
I
~----------------.-------------------+---------------+ -----------------------------------i

Icreates a compiler label rrarking
Ithe return from a BEGIN block

IQBEGEP
I

IQADJAL, QF020i, QMOVE
I

I
I

~.-----------------------------------+---------------+ -----------------------------------i

Icreates a prologue for ON block

I QONPRL

IQADJAL, QFSKIP, QF020i

I

~.-----------------------------------+---------------+ -----------------------------------i

IAssembles code to initialize DSA
IQADJAL
IQMOVEi
I
Idope vector data areas, and to
I
I
I
lallocate variable data areas
I
I
I
~-----------------------------------+---------------+-----------------------------------~
ISkips second file statements
IQFSKIP
INane
I
Ifollowing a block heading statement I
I
I
~.-----------------------------------+---------------+-----------------------------------~
IObtains new buffer and chains it tolQF020i
INone
I
Ithe previous one
I
I
I
~-----------------------------------+---------------+- ----------------------------------i

IMoves input text being skipped fromlQMOVE
linput buffer to output buffer
I

INone
I

I
I

~.-----------------------------------+---------------+ -----------------------------------i

IMoves a second file statement,
Ipointed at by PARi, to the prologue
Ibeing
generated
L.
___________________________________

IQMOVEi
I
I _______________

~

IQMOVE
I
I
I
I ___________________________________ JI

~

Section 3: Charts and Routine Directories

299

Table QF1.

Phase QF Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------1
I Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------

QADJAL

Assembles code to i~itialize DSA dope vEctor, variable data areas,
and to allocate variable data areas.

QBEGEP

Creates a compiler label marking the return from a BEGIN block.

QBPROL (QG)

Creates stereotyped prologue for a BEGIN block requiring a dynamic
storage area.

QEOP

Frees text storage at end of phase; releases control.

QFSKIP (QG)

Skips second file statements followin0 a PROCEDURE or BLGIN statement.

QFOOOO

Scans text for statement labels, PROCEDURE staterrents, BEGIN statements, BEGIN END statements, and end-of-program marker.

QF0201 (QG)

Moves code to output buffer; obtains new buffer if required.

QF0360

Tests for external procedure.

~F0370

Generates prologue for GFT DSA.

QF0570

Generates code to copy argument and target addresses.

QF0625

Tests for entry points.

QF0860

Tests end of chain.

QFl172

Tests end of first reqion.

QFl194

Extracts mapping code frow second file.

QF1215

Tests for storage required.

QF1511

Removes VDA accumulator assignment ccde from mapping code.

QMOVE

Moves text from input buffer to output buffer.

QMOVEl

Moves second file statement to prologue being generated.
Creates prologue for

IUONPRL (QH)

I

I QPPROL (QG)

eN block.

Creates stereotyped or special prologues for PROCEDURE statements,
depending cn conditions.

I
I

I
I
I
l
I
I
I
I
I

I
I
I
statement label pseudo-code
items.
lIQSL
__________________ IProcesses
__________________________________
__________________________________
JI
~

300

Table QJ.

Phase QJ Storage Allocation Dynamic Storage

r-----------------------------------T---------------T-----------------------------------,

I
IMain Processing I
I
Statement or Operation Type
I
Routine
I
Subroutines Used
I
I
~-----------------------------------+---------------+-----------------------------------~
IGeneral scan of text for ALLOCATE, IGSl
IALLec, BUY, BUYP, FREE, TRP1.
I
IBUY and FREE statements
I
I
I
~---------------,--------------------+-~-------------+-----------------------------------~
IAllocates items not requiring dope IAL20
IAL15, TRP2
I
Ivector
I
I
I
.-----------------------------------+---------------+- ----------------------------------~

IGen8rates code to move skeleton
I MOVEDV
ITRB2
I
Idope vector into workspace for
I
I
I
Icontrolled variables
I
I
I
.-------~---------------------------+---------------+-----------------------------------~
ILooks ahead to reverse pointers forlREVPT
IGS1, TRFl
I
IALLOCATE statements
I
I
I
.-----------------------------------+---------------+- ----------------------------------~

IAllocates storage for controlled
I string

IAL28
I

IGS1, LIBC1, LIBC2, SCANSF, TRF2

I

I

I

.------------------------------------+---------------+ -----------------------------------~

IAllocatE storage for controlled
larray

IAL27
I

I ABOUND, LIBC1, MOVEDV, PREVAL,
ISCANSF, TRF2

I
I

.-----------------------------------+---------------+- ----------------------------------~

IAllocates storage for controlled
I structure

IAL29
I

IBNDEXP, LIBC1, MOVFDV, NXTREF,
I NXTVAR, PREVAL, SCANSF, TRF2

I
I

.-----------------------------------+---------------+-----------------------------------i
ILoads Library call parameter reglister to free allocated storage

IFREE
I

ITRF2, TRF3

I
I

I

.'-----------------------------------+---------------+ -----------------------------------~

IMoves skeleton dope veotor for
I bought temporary

IBUYP
I

ITRF2
I

I
I

.-----------------------------------+---------------+- ----------------------------------~

IBuys storage for temporary array

IBY14

ISCANSF, TRt2

I

.-----------------------------------+---------------+-----------------------------------i

IBUYs storage for temporary struc-

IBY13

ILIBC4, NXTREF, NXTVAR, SCANSF, TRF21

I-t urE:

I

I

I

.------------------------------------+---------------+ -----------------------------------~

IPlaces initial value code line for IAL15
Icontrolled variables
I

I NXTRF, SCANSF
I

I
I

•._----------------------------------+---------------+ -----------------------------------~

ISkips scan register over initiali- 18KIPTX
I
I zation st.atements

IGSl
I

I
I

•._----------------------------------+---------------+ -----------------------------------~
IGenerates code to set a pointer to IPREVAL
Ithe previous allocation.
I

ITRF2
I

I
I

.-----------------------------------+---------------+-----------------------------------i
ISearohes dimension tables for
ladjustable bound expressions

I ABOUND

I

ISCANSF
I

I
I

.-----------------------------------+---------------+-----------------------------------i

IGenerates code for temporary varia-ISTMP
ILIBC3, TRF2
requiring only a dope vector
I _______________ I _________________________
lIbles
____________________________________
~

~

I

~

_________ JI

Section 3: Charts and Routine Directories

301

Table QJ1.

Phase QJ Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

/ROUTINE/SUBROUTINE!
FUNCTION
\
~------------------+--------------------------------------------------------------------~
ABOUND (QK)
Searches dimension tables for adjustable bound expressions~
ALLOC (QK)

Ascertains the type of allocate statement.

AL15

Places initial value code line for controlled variables.

AL20 (QK)

Allocates items not requiring dope vector.

AL27 (QK)

Allocates storage for controlled arrays.

AL28 (QK)

Allocates storage for controlled strings.

AL29 (QK)

Allocates storage for controlled structures.

BNDEXP

Generates or extracts code to set the adjustable bounds of structures.

BUY

Ascertains the type of

BUYP

Moves skeleton dope vector for bought temporary.

BY13

Buys storage for temporary structure.

BY14

Buys storage for temporary array.

BY15

Buys storage for temporary string.

FREE (QK)

Loads Library call parameter register to free allocated storage.

GSl

General scan of text for ALLOCATE, BuY, and FREE staterrents.

LIBC1/LIBC2/LIBC4

Places the library calling sequence for controlled storage in
sequence in the text.

MOVEDV (QK)

Generates code to move skeleton dope vector into workspace for controlled variables.

NXTREF (QK)

Obtains the next structure base element reference.

NXTVAR (QK)

Obtains the next varying array base element reference.

PREVAL (QK)

Generates code to set a pointer to tlle previous allocation.

REVPT
SCANSF

DUY.

Looks ahead to reverse pointers for ALLOCATE statements.

!

Places second file

state~ent

in line in the text.

SKIPTX

Skips scan register over initialization statements.

STMP (QK)

Generates code to buy storage for terrporary variables which only
require a dope vector.

TRFl

Transfers input text to output.

TRF2

Adds text skeletons to the output text.

!TRF3
Adds the Library calling sequence to the output text.
l __________________ __________________________________ __________________________________ .1
~

302

.Table

Q~.

Phase QX Print Aggregate Length Table

r-----------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processingl
I
Routine
I

I

Subroutines Used

I

~-----------------------------------+---------------+-----------------------------------~

Iscan storage chains in dictionary
ISCANC
IANAGG
I
Ifor aggregate entries
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IAnalyze aggregate dictionary
IANAGG
IANCOB,FINALA,FIRS~A,FCR~AL,GETVO,
I
lentries
and
print
table
entry
I
IGETSB,PRALEN,PRHED,VOPLUS
I
L ___________________________________ _______________ _ __________________________________ J
~

~

.Table QX1. Phase QX Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
ANAGG
Analyzes dictionary entries for a major structure or non-structured
array.
ANCOB

Finds original major structure dictionary entry for a COEOL major
structure.

FINALA

Calculates address of final basic element of a major structure.

FIRSTA

Calculates address of first basic element of a major structure.

FORMAL

Calculates length of a non-structured array.

GETVO

Gets virtual origin of a dimensioned variable.

GETSB

Sets

PRAIEN

Prints an entry in the Aggregate Length Table, and gets statement
number.

PRHED

Prints main heading of table.

SCANC

Scans STATIC, AUTOMATIC and
aggregate entries.

SETPH

Prints first page heading and sets print buffer for subsequent page I
headings. headings.
I

~ointer

to BCD in a dictionary entry.

CON~ROLLED

~

chains in dictionary for

I
I
I
I
I

I

IVOPLUS
Calculates address of first or last
element of major structure.
L. __________________ _________________________________
___________________________________
JI
~

Section 3: Charts and Routine Directories

303

Chart 09. Register Allocation Logical Phase Flowchart
******
*nq
* Al*

***

x
*****
*10 *
* Bl *
***

304

Phase RA Overall Legic Diagram

Chart R1\ •

•••••
••
•

• RA •
• Al·

lAA

K

••••• s l · · · · · · · · · ·

... x:••
•

•

INPUS~AN
TEXT

...
••••

• ••
:",

.................•
,

:x .................................................. x.••••.•...••..•.••••.••.. tc: •••••••••••••••••••••••• -:

.~

'•.

• Bl •

•

ACT~ ••• *C~..........
• •••• C3 ••••••••••
•
TACK.
• GET NEW STACK •
••
•• YES
•
RMATION •
• Er.TRY FOR NEW.
••• ~ROC/BEGIN••••••••••••
F"'~~'fi~A~~S : ••••••••
'\~~h~~
Cl···..
••••

•••• ••••

ANI'

X:

: .................:

X:

•

: •..•
: •••• i.~~~~~ ••••:

• NO

K

•••
ACTl
01
••
• ••••
~ ••••••••••
••••
•
lIN 0 T E .
• •••
••
•• YES
•
S A K "I
•
•
•
•• PROC'/BEGIN' •••••••••• X.
••••• X. Sl •
••
••
•
ORA&E
•
•
•

....
•• • ••NO
K

E~

•.

••••

•••

..

J~RT

~AT1H
.•••••••••••••••••
. ....

••...•••.. x••
ME~!..

.. ..
p~e

•• :!A

:
.................

• NO

ic

DRT~U,.~~UU......

••' . p{EUrr-·· •• YES
:
00
........... X.
• INS RU TION.
•

.

til.

.....J'.

x.

........................................

• NO

Fl···..

*..*

•

~

K

ACT l~

Gl···..

....
•• ••

AlO

F3°··..

x.

~

• ....

0 IHT~R~~~y:
'.·~O~~A!EE~·.'.* YES
RE~ER NCES
••••••••• K*, PR DU fO
•.••.••. X.:
AND 0 FSETS •
•• B FO E ••
•

•

•••••••••••••••••

•• ••

.....
........ ........

•••
UPSN
GENFLP
E2
••
• ••••~3..........
~4...........
•• ·;TAT M Nt' •• YES
:
Gf~~Alg:
:
Ge~~Al~
:
:
Ng!.gl'~N ••••••••••
¥A~AT~
•••••••••
~POATE
•••••
. . : . \lUES
S ~lS~ NT
:
x
:
ON~~FA~s
:
)(

•••• YES

*...
•• ••
.~

F4.......... :

rF.~~6RngM
fOR~O

:
:
*.0 ••
•

.•••••••••••••••••.
f)OR"SS

•••G2 ••••••••••

.••••••••••••••••
.
....
.. .

••·:B}~k~TE·· •• YES
:
•••• MXt\Kh ••••••••••••

x:

~MPo~O

AB~8~~TE

:
:

•

• NO

•

•• X. Rl •

K

• •••••

Hl···..

ACT12 ••• H2 ••••••••••

•• ' ;ROlOGUE ... • •• YES
: TaT:MR'H~?AI~G :
••
INSERTION •••••••••• X. INSTRUd "IS •
••
POINT ••
•
"I HISER ON •

•••• ••••

: .....~1~~ •••••• :

....

• NO

o.

• NO
••••••

••

*.

J1

...ic

x

••

END ••
OF
••
PROGRAM
••

*. ••• * .*

•• Rl ••
••••• •

.*

• YES

K
•••••
• RF •

..·

• 1.1·

s2ction 3: Ch3rts and Routine Lirectories

305

Phase RF Gver311 Lcgic riagraw

Chart RF .

.....

..•

• RF •

• Ai·

.....Al··········
X

.GET TEKT BLOCK •
• FOR OUTPUT AND •
• SCRATCH STYRAGE.
:
A~gRsH~K~ :

·......
:
:
·•••••••••••••••••.
•••••••••••••••••
.
• III •• K.

• •••• •

: x•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••

0 • • • • • • • • • • • • • • • • • • • • ell • • • • •

P91NIT
x
••••• 81..........
••• X.
•

SCAN TEXT

e ••••••••• :

LB

•
• •••• B5 ••••••••••

: €g~~l~VH :
• •••••••••••••••• X.IIjSTRUCTlON AND.X •••

.•••••••••••••••••.

•
•

•

x

C2..........

•.•.

•••
OBREGS
C1
••
• ••••
*C~ ••••••••••
•••• USI NG •••• YES
:
RE~a~~~:
: SC~~~~~G~~IER :
••
PfEUDO•••••••••• X.
UiAGE AND
••••••••• X.
RE~U~~T~
•
:
~:~HD:
:
PEN
:
• I~~ RUCT!~N.

•• ••NO

•••••••••••••••••

•••••••••••••••••

OUTPUT

•

•••• *C4.~ ••••••••

•• ~~N~RATe ••
:
~ERI HE~~
:X•••••••••••••••••
•••••••••••••••••••

• YES
*.
00;..
•
•• ·~EGAI~hRS· •• YES
... ·8RANCH •••• NO :
e. AVA LA8lE .e •••••••••••••••••••••••••••••••••• X*.
IN OR. OUT • * ••••
••
••
••
POINT ••
03

e.

ic
.e.
••

.

.*
*••
*
• NO

e.

*•••
•
l(

XXo ••••••••••••••••••••••••
E1···..
LAOi •••• e2 ••••••••••
••••
•
GET FREE
•
•• ADDRESSING •• YES
• REGISTER FROH •
NSTRUCTlO~ ••••••••••• X:~~~MIH H~~'
••••
•
IF NONE
•

.. ..

.'.!

E3

.................

·ic

••

••••

: •••.• :

• NO

•••

. : . E~~r
.:.~?
•• =~GI e~~..

•• • ••YES

LAn.
• ••• *f" ••••••••••

•

I NIt

•.•• ••.•

••••: ••••: :•

:l~~UU~~.tlk~.:

• NO

. .....'3..........
:ADIHOV
••
•

•

X

LPROC,
LEND

••

•• ";0( IPROC:· ••

• •••• HZ ••••••••••

yes
:
OR Ub~MATE:
•• ~~GIN/BEGIN: •••••••••••
BL~l~C~N~~IES

.. ..

*..*
• NO

Kl

...x

••

*•

• NO
END
••
•••••••• PR8~RAH ••••

*.

*•• *

.....
•.Al·
·
•

x

·TF •

306

••

YES

K:•

......

:"'XX:
B1 :
•
••••

.................

XPAN
•
RE
NG.

• •••

•
•
1t~.uloNS
1r.HpUT.••••• x.• B1 ••
•••••••••••••••••••
••••

•

A

••• ". IN 9

••
••

.

••••••• ••••• •••••• ••••••• X.

•••

•••

•

:

:
••••••• ~.l ••••••

• • F1
••••
: ••• :~f
•• PROLOG
•• yeS
• AOOR~~SING.
•
••
INseRTION •••••••••• K. INSTRU T ONS ••••• x.
•• POINT ••
•
Fit H
•
•

H1

LOOK-AHEAP

..... X:: TR~UINVlRef6
FR
Ny

("I

••

Table RA.

Phase RA Register Allocation Addressibility Analysis

r-·----------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processingl
I
Routine
I

Subroutines Used

I
I

t-----------------------------------+---------------+- ----------------------------------~

IControls scan of source
I

ILAA
I

IACT1, ACT2, ACT5, ACT8, ACT9,
I ACTiO, ADCPUF, GETSBF

I
I

t-----------------------------------+---------------+-----------------------------------i
IProcesses RX, RS, or SI instrucItions

IACT3
I

IADTEST, DRTEST
I

I

IProcesses 55 instructions

IACT4

IADTh5T, DRTE5T

I

I

t-----------------------------------+---------------+-----------------------------------i
t-----------------------------------+---------------+- ----------------------------------~

ICompiles code for start of PL/I
with label, 2.
Iwithout label, 3. compiler label

I Statement: 1.

IACT15, ACT14,
IACT16
I

IADCBUF, GENFLP, UPSN
I
I

I

I

I

t-·----------------------------------+---------------+-----------------------------------,

IProcesses PROCEDURE and BEGIN
I blocks

IACT6
I

IADCEUF
I

I
I

r-·----------------------------------+---------------+-----------------------------------,
Iprocesses END statements on PROCE- IACT7
IDURE or BEGIN blocks
I

IADCBUF
I

I

t

t-----------------------------------+---------------+- ----------------------------------~

IAdds text to output string

IADCBUF

IGETCBF

I

r-----------------------------------+---------------+-----------------------------------,
IAdds text to insertion file

IADIBUF

IGE1IBF

I

r----------------·-------------------+---------------+-----------------------------------,
IObtains new source buffer

IGETSBF

INone

I

t-----------------------------------+---------------+-----------------------------------,
IObtains next output

buffE~r

I GETCEF

I NonE

I

r-----------------------------------+---------------+-----------------------------------,
IObtains next insertion file buffer IGETIBF

INone

I

r-----------------------------------+---------------+-----------------------------------,

IExamines dictionary reference in
I source

IDRTEST
I

IADINST, DECOMP, SETBLK
I

I
I

r-----------------------------------+---------------+-----------------------------------i
IProduces recovery code when literaliADTEST
loffset greater than 4095 is met
I

IADCEUF
I

I
I

t-----------------------------------+---------------+-----------------------------------,
ICreates coded addressing instruc-

Itions
L
___________________________________

IADINST
IADCBUF, ADIBUF
I
I _______________ I _ __________________________________ JI

~

~

Section 3: Charts and Routine Directories

307

Table RAi.

Phase RA Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

I

Function

~------------------+---------------------------------- ----------------------------------·i

ACTi

Copies non-special three-byte item to output.

ACT2

Copies

ACT3

Processes RX, RS, or 81 instructions.

ACT4

Processes SS instructions.

ACT5

End of block routine.

ACT6

Processes PROCEDURE and BEGIN blocks.

ACT7

Processes END statements on

ACT8

End of source text routine.

ACT9

Action of start of

ACTiO

non~special

five-byte item to output.

co~mon

PROCEDU~L

or BEGIN blocks.

block of prologue.

IAction at end of prologue.
arsolute code to output streaw.

ACT12

copi~s

ACT13

Creates ADI instruction at prologue insertion point.

ACT14

Compiles code for start of PL/I statement with label.

ACT15

Compiles coce for start of PL/I statement without label.

ACT16

Compiles code for start of PL/I

ADD/ADD2

Generates store of calculated address.

ADCBUF

Adds text to output string.

ADIB[JF
ADINST

I
I
I
I

sta~eroent

compiler label.

Adds text to insertion file.

I

ADTEST

I
I
I
Produces recovery code when literal offset greater than 4095 is met. I
I

Creates coded addressing instructions.

ATD

Tests whether previous offset is out of bour-ds.

DECaMP

Decodes dictionary reference.

DRTEST (RB)

Examines dictionary reference in source.

DTY

Scans step table and generates addressing instructions.

GENFLP

Generates code to set bits on and off in a prefix ON-slot.

GETCBF

Obtains next output buffer.

GETIBF

Obtains next insertion file buffer.

GETSBF

Obtains next source buffer.

LAA

Scans input text.

L125

Moves addressing instructions to IN-LINE.

8ETBLK

Finds block number of referenced iterr.

UPSN

Generates code to keep the statement number slot in the LSA up to

~

I
I
I
I
I
I
l
I
I

date.
L__________________ __________________________________
- _________________________________ .JI
~

308

Table RF.

Phase RF Register Allocation Physical Registers

r-----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processingl
I
Routine
I

I
I

Subroutines Used

~-----------------------------------+---------------+- ----------------------------------i

Icontrols scan of text
I

IZ9
I

IADCBUF, ADIMOV, BRi, BH3, BR4,
I
I
I GETNX'I', LBAL, LBALf{, LECTR, LEOE,
1
1
ILEOP, LRi, LR3, LR4, LF6, LR7, LR9,1
I
I
I LSH 1FT, OB}{EGS
I
~-.----------------------------------+---------------+-----------------------------------~
IProcesses PROCEDURE or BEGIN state-ILPRGC
INone
I
Iment
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses end of PROCEDURE or LEGINILEND
INone
I
I block
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IProcesses requests for registers;
IOBREGS
IBRGUSE, LOADi, STOREi, STORE2,
I
lallocates physical registers
1
IREGUSE
I
~-.----------------------------------+---------------+ -----------------------------------i

ICompiles code to store syrrbclic
I registers

ISTORE2
I

IADCEUF
I

I
I

~-----------------------------------+---------------+- ----------------------------------i

ICompiles code to store assigned
I registers

ISTOREi
I

I

IADCEUF
I

I

~-----------------------------------+---------------+- ----------------------------------i

ICompiles load of physical registerslLOADi

IADCEUF

I

~-.--------------~-------------------+---------------+ -----------------------------------i

ICompiles load register
I LOADRG
IADCPUF
I
~-----------------------------------+---------------+-----------------------------------~
IExpands coded addressing instrucIADIMOV
IADCEUF
I
Itions
I
I
I
~-----------------------------------+---------------+-----------------------------------~
Il\dds to output buffer
I ADCBUF
I None
I
L ___________________________________ _______________ _ __________________________________ J
~

Table RFi.

~

Phase RF Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------i

ADCEUF

Adds to outfut buffer.

ADIMOV

Expands coded addressing instructions.

BRGUSE

I
I

.

I

I

Tabulates use of base register in look-ahead.

BRi (Ril)

Processes RX branch instructions.

BR3 (RH)

Processes BeT instructions.

BR4 (RH)

Processes RR branch instructions.

F'RTEST

Scans list of free registers to make even-odd pair.

GETNXT

Obtains next block.

LADi (RH)

Processes ADi (addressing) instructions.

I

I
I

ILB
(RR)
IConstructs
and puts out completed _________________________________
instruction.
L __________________
__________________________________
_
~

section 3: Charts and Routine Directories

309

Table RF1.

Phase RF Routine/Subroutine Directory (cent'c)

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Function

I

t------------------t---------------------------------- ----------------------------------~

LBAL (RH)

Processes BAL instructions.

LBALR (RH)

Processes BALR instructions.

LBCTR (RH)

Processes BCTR instructions.

LDROP (RH)

Processes DROP pseudo-instruction.

LEND (RH)

Loads end of PROCEDURE or BEGIN block.

LEOB (RR)

Processes end-of-block marker.

LEOP

Processes end-of-program marker.

LOADl

Compiles load of physical registers.

LOADRG

Compiles load register.

LPROC
LR1

LR3 (Rh)

Processes floating-point instructions.

LR4 (RH)

Processes SS instructions.

LR6 (RH)

Processes instructions where a load of first operand is required, no
operands are changed, e.g., ST.

I

I

I

I
I

Processes SI instructions.

ILR9 (RH)

Processes instructions in which no load of first orerand is needed,
and it is changed, e.g., LA.

LSHIFT (RH)

Processes shift instructions.

OB560(RG)

Tests whether all registers are available.

OB630 (RG)

Generates stores of registeLs if branch in or out.

OB895 (RG)

Generates code to load registers.

P9INIT (RH)

Main text scan.

OBREGS (RG)

Processes requests for registers; allocates physical registers.

REGUSE

Tabulates use of registers in look ahead.

STORE1

compiles code to store assigned registers.

STORE2

compiles code to store symbolic registers.

W4

Extracts ADls at prologue insertion roint.

(RH)

Z9 (RH)

310

I

I

Processes instructions in which first and second operands require
loading, and the first is altered, e.g., AR.

(~H)

L __________________

I

I

Processes PROCEDURE'or BEGIN statement.

(RH)

I LR7 (RH)
I
I
I

I
I

~

Controlling
scan of text.
__________________________________ __________________________________ J

Final Assembly Logical Phase Flowch3.rt

Chart 10 .

•••••
•••

·1(\ •
• 81·

••'••• Bl.a••••••••

:~:~~i!.-.-.-.-I!:

• ASSIGN OFFSET.
•
TO lA"IEl S
•

•••••••••••••••••••

X

····••Hl·········4,
.-11>-.-.-.-.-.-.-'"
lIE'"

.SUTIC

..................

.FURTHfR STATIC 4'

.INIT I Al t

ZATfO~

•

4'

4'

.1 >
••

·x..

JJ
••
••••

•~.

.. ..
.....

Lt ST TEKT

*.

••

• NO

K

·KA •

• AI·

•••

• •••• Jz ••••••••••

.I.IST
•.••••••••••
YES
.- .... -.-.-.-.-.-.
K•

••

UF •

..•. .............
.....

•

*

LIST

TF.~T

~

•

ic

·~A

•

• AI·

• *

•

section 3: Charts and Routine Directories

311

Cbart TF .

Phase TF

~ver311

Logic

•••••
·TF •
• A1·
•••

Diag~a~

·•.....•....•
• A3 •

....
.... ....
x

A3

·.......

......
•••••
•• 82 •

• 81 •• X.

.....81..........
X

ILClOZ"

:
~HT8~~~~~:
• FROM TA8LE
: USI~~ l~~ENT :

:

Cl

x
•••

••

ILf)f'17

:

BLOCK

83

.X..........

••

•

~~:fNT~QT
BLOCK

: •••• x: 81 :
•
•
•

•••

••

NO •••• NO OF •••• YES
~ROGRAM ••••••••••
••••••••
..~ . .
il:

l~~b~ ~OINV~~
•••••••••••••••••

•••••••••••••••••

OFE~gxT ·:.~;~ ••••• x:

x

X

ITEM FRgM

.
. ....
.................. ....

I Ll)(\22
• •••• A" ••••••••••

• NO

gPcbK~~~1:

1 .X.... ....•

••

•

.....8Z..........

•••••• :

IL0003

"':.
••

•••

:

I LOlll!)
• •••• C2..........

•• •••

:T

••
•

• •••• C3..........

• •••• C" ••••••••••

•• ·;ROCEOUR:· •• YES
: ~~l~ ~Mll~¥~l
25~ti~~'~~:
SET LOCATION:
••
HARKER
•••••••••• X. VAL UE fN ET~ ••••••••• lI.A~igjS RiYUIR@O* •••••••• X.
iOUNTKR
: •••
.'..
..'.
: ~~O~O~I~I~~vy :
:OF S71~SlNMNl :
:
0 IE O .

:

•• ••

• ••••••• "'........

:

:

• •••••• i. •••••••

• ••••••••••••••••

: ....
82 :
• ...

Xli:

• NO

x

01

•••

••

ILnOll

• •••• 02..........

• ••••03..........

..:

:...............:

!L0015
• •••• E2..........

• •••• F.3..........

.................

.................

pft°o

• •••• ~4 ••••••••••

•

•• ·*eNO OF •••• YES
: S~~~CllFT~~a~ :
:
Sl~~
Lo~n~M
:
••
PROCEDURE •••••••••• x. IN LOCNl SLOT ••••••••• x. CU~~~¥ TOTAL ••••••••• X. COUNTER FROM •••••
•• HARKER ••
•
OF
•
• PROGRAH sIze •
.Eft OF CONTAIN-.
X

.'.. .•.•

:.~~!::.n:~.l

VS :

:

:.1~~.:~i~'2~~~.:

• NO

x

E1

•••

••

• ••••

. . . . PL8 S •••• YES
: o~L~~fic~M~e :
:
~MUekof~:
••
OR
•••••••••• X.
SO bAR IN
••••••••• X.ZaRO ~~~~ ~PACE ••••••••• I(.
•• • /C8S •• ' .
:LC~~~T SFL~f~3 :
:F R ~lSCnNi INC :
:

.. ..

• NO

·x

F1

•••

.............•.............
••

ILl' 01"
• •••• FZ..........

•• N~N-8RANC~· •• YES
:
••
HACHINE
•••••••••• X.
••
INST
••
•

.. ..

•

• NO

x

Hl

•••

••

··....••••..
• NO

;

• "3 •

312

Tn LOCATION
COUNTER

•

x ......

••••• )(. 82 •
•
•
•

•

••••

1l",!l9

••••
••
•• YES
••
LABfL
••••••••••
"'.
••
••
.••

* •• *

A~2sH~gf~o~F:

.................

*..*

•

• •••• H2 ••••••••••

•
ASSIGN THF..
• •••
•
cuRRENT
•
•
...
X.
LOC'!T ION
••••• X. 82 •
• COUNTFR VALUE.
•
•
•
AS OFFSET.
• •••

•••••••••••••••••

:

e"...........

SE~ij:RII ~~LOG8HS u, E

:

OFF ?:C8S'

:

.................

•

• ••••

~verall

Phase TJ

Chart TJ.

Lcgic Diagram

••••
··••••·
•

.•.

...

~

.•

·••

~
••• '~·Al··········

IU")OIl

A3 •...

•• 1".

•

.*

A3

••

*.

•
•
NO..
END
••
• 02 .X......
OF.~
••
••
•• PROGRA", ••

• INUI ALilATlON •

••••••••••••••••••••

111..*
*•• *

..111111

• YES

·

X

•••••• B3···••••• •••
: Cn~H~~ET~~f :
•
• 8LOCK ••

...................
......,.

.•..'.91..........
X

ILI\()1}3

* •• JC • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • • ., ••• o •••••••••••••••••••
ILt!O . : . .
.l••• x
~3 ••••••••••

oz..........
..,..........

1.X.........

:
EfsT8R~~~~:
• FROM T!~l
: uSts~ ~gD ENT :

...........

•• OZ •••••

:

:

~.....

K

•••

......
.. ..
t

• NO

ic
HI···..

...

LABEL

••

....

•• Jl
• :'"
••
te.

•
•• YE:S
...
••••••, •••••• )(:

•

~

.•.x ........

.. ....
··....••••..
x

• A3 •

...

•• H2..............

x:•

I LZrI(16

H3· ... •••

•
••••
ASSIGN NEW.
•• CHANGE
•• YES
TO
: •••••••• X••• ~~g <\t~~~

nFEUh

IL(ln21
:.. HJ~;:~rM~r . .:

.:.~~:~ •••••

....

••

• NO

...
... .....
All TREATEO'"
•
•
t"l SA .. e WAY "' •••• l(. 02 ...
AS IN te .. T F .
•
...

.............................•

• '"

MVC

........................ ....
...
•
...

X'"

I v'~12

••••

••
••••

x

ILU!l2
• •••• GZ ............. .

.Gl"'ACH.•• "'.
•• NST, PLBS.t •• YES
!
8S END OF ••••, ••••••
••
IILOCK .'"

•• P

•....
.................

8PtT~"b.~~~:
:Fa~s f~~RS~A~N :
F~O'" .x ••••••••• PRO~' ANO END.
T~~b~ ~(1I2V"~ :
:
OF EXT BLOCK:
~...

rg , :•
COMPRESS

I~HE=~~

.................

.. ..
x
··......
.
••••.
..

••••
.~

• ••••H4 ........... .

•
•

SET OPT8 ON.
• •••
IN F.Tt O F .
•
•
C~~~E~~p~~QC. : ....
02 :
swi TCH
•
• •••

................................. .

.......... ~ x:
•

l(:

• 02 •

*

•

x

•• ••••
•
02 •
••••

·.

section 3: charts and Routine Directories

313

Phase TO

Chart TO.

~ver311

Lcgic Diagram

X

•••••• B1··•••••••••
• GENERATE BASE.
: FOR ~f2E~NTRV :
•••••••••••••••••••
lG421 •••

•

•
:

c1.:•••••••••
MAKE 6

E~JA~2t~?ES

•

!

•••••••••••••••••••
K
••••• 01·· •••• ••••

• MAKE SO TVPE
•
F~RECT ••
•• THE ENTRV
MA IN C
• IF EXT PRO HAS.

:.~=U=~.~~.l~~.:

••••••••••••••••••••••••• e ••••••••••

••••.Gl.·········
K

LGI:'sn
•
•

SCAN
ElCTERNAL

·

lG02~ •••G3.~........
•

•
•

.

.................
•

••

•••

.* . .

••••

H2

•• NO

••

•• EXTERNAL

•• NO

••

: )(;"0'" ••••••
• ••

..."
H3

••

EXTERNA~

•••••••••••• )(··.~~~Mn'io2~ ••••••••••• l(··~~n~C~tSN

••••

..NAME ••

• YES

• YES

•• ••

X

M. KE SO
ANn PR
TYPE ENTRIES

••••

*. ••

······Jl··········.
. ·.................
.
. .
•
•
•

• *.

.*..

••

FILE

•

•
•
•

*0

Ie

x

H1

CONC~~~~EO

• •••
•

·····J2··········.
·.·...............
..
.

yes

••

?:.•

.. ..
•

•
•

~.

"In

"'AKE PR
TVPE ENTRV

•
•
:

.................

••••••••• ~o.l(:

...x

OO

• •••• G5.;. ••••••••

•
•• 01 CT ••
•• F.~TRY FOR •• YF.S
: •••••••• X•••• OA~~~~(~

~CAN.

•
:

: •• xt snfHo~H2~N :
•••••••••••••••••

(I . . . . . . . . . . . . . . . .

r,4···..

*

•

Hlo
••
•• OICT
•• ENTRV F:lR •• YFS
•
··.~I)~f~~~lEO ••••••••••

*,

*.

.-

* ••
*
• NO

X

:

Ty~~K~Ni~Y

:

••••••••••••• x••••••••••••••••••••••••• x•••••••••••• o.

.

0 ••••••••••

.

X

•• •••1<5· ......... .

...

...................

.PRnIJUCE eR TYPF •
• F.'ITRY FOR fACH •
...
"'OfJULE
...

...

314

Chart T'I •

....'"

Phase TT Over:lll Lcgic Diagram

•·TTAI·'"

••
•
X

.41• • • Al.· •••• •• ••
• INITJAL~lATI~N •
• SE T SW T~HF.
'•
• FOR PUN H LO 0 '.
•
OPT 0 S
..

·................
'...
....
.
· ..
••

Bl •• X.

*.

ILOO~;"
K
••••• Bl ••••••••• '"
:
••• x.

••••• •

B2 •
•• ••••
•

GfT BRANCH
L ST INDEx

.x ••••••••••••••••••••••••••••••••••• o ••• o •• ~o •••••••• •••••

!lOll";!:
~
•••• "'82 ••••••••••

':
:
.X•••••••••

:...............:
Cl ..
x

0 •••••

~E~R~~~GI~EUF :
P~OM TABLE 2 • •

:.l~:~!~:§,~U=.:

••.•Hz..........

.••••

•.•... i

•

•
CIt........... •
••·~RO E UR~· •• YES
: SA NC nE~~ :
:~~Nrc·.p~R ~:
• SET
~~NT •
:
••
•••••••• X. L& "'}
Of •••••••••
•
••••••••• X
••••
••••
••••
:
:
:
;RO
I :
T T
r.
•••

MA~K~R

!lOfHn

.'~

gL~T

pioNEA~~etGT1
•••••
;.2•••• ~....

•. .•

lLOO 3

~3..........

X.PRO~~~ PR~L~

~O~~n~ yA~UE

•••••• ~~HN
~~.;.1....

•• ~~
••• ~~F~~~R.
•••••

• NO

01

~
•••

ILOOll

*.

••••••

Ol...........

···.·1'13···•••••••

••••
~EAR
•
•• EN~ ~F
•• YES
• TEXT UFF~R.
.RESTORE PRiCLC
•• PRO E URE ........... X RFSTO E L CN
•••••••• X. FROM LOCH +
•• MA K R ••
4(;0IlNTER F OM •
• LOCN3 1~ TI

•••• ••••

•
•
•

: •••••••••••••••:

~2~n.l~.SU.

•
X.

••••

•
•

••••• Ie. 81. •

••••

• NO

1~~31~·
• •••

.1. *.

GENUT
El
Ef..........
• •••• ~~...........
• ,••• PL8 S••••• YES
:8vp~ftOe PReca~ :
: G~~o ftTS :8~T:
:
••
PC 8 S
........... X.
kN'D ••••••••• Ie. THE R!h~IR~O •••••
••••
••••
: TOF~P Nao.v~ :
8N 0
:

i!lY.'!+r

•. .•

:,a
•••••••••i ••••••

•••••••~~........

• NO

x

•••
Fl..

• '~··MACHI . ' •• YES
•• INSTRVC~fON
'~'..
••••

GENTXT
• •••• FZ ••••••••••
: T ~~N~~~TS 0 :
••••••
X. iNFORMATlbN .,•••• X. 82 •
: A~~x~LAf#Fl~:
• .....

.* ••••••••

•• ••

••••••••t ••••••••

• NO

·
....
....
.. ..
~
G1···..

.
. ....
.................. ....

1l02~~ •• G2 ••••••••••

• " END OF
•• YES
• CHA IN TO NF.XT •
•
•
•• TEXT 8LOCK • III• • • • • • • • )(. TEXT BLOCK
...... )(. 81 •
III.

••

• NO

•

••

x

•
: NO

•••
HI..

"~··~N8

•••••• '11.

RF •••• 1YES

R G AM ••• 4 • • • • • • • •

*..*
•• ••
•

H2

•••

••

IS ~OMPILi~••••
•• NO
x••••
••

USA~VlDN

*..*
•• ••
• YES

•

ILOl'17
• •••• *H3...........

.CL~AR

0 ••••••• )(.

TEleT

A~D

LO BUFFf.R

•

1~ • • • •

• o ••••• ooX:

•••••••••••••
II:

.: ........ ".......INC~~~
. .i.••••••••.
)(:F8~N~Oft~fivH~~ :

HIt ••••••••••

: MARK

C~R~NT

T[,~~AN~e"DK

:

: ••••••• ~

I
}I.
'.................

..VA
...••

•

••A2••

•• J3

.••••••••••••••••••.•

section 3: Charts and Routine Directories

315

Cilart iJA.

Phase UA

~ver311

Lcgic Diagraw

•• ••••
UA •
• A2·
••
•

·X

UAOOI'

••••• A2..........

• •••• A3 ••••••••••

••
••
•
•
••
•••••••••••••••••• •••••••••••••••••••
••

••

• • Gf'T HEAO OF
• INITIALlZATION ••••••••• K. STATIC CHAIN

·ic

83

•••

UAOC'l5

• •••• BIt ••••••••••

••

•*
*.
•
••••••••••••••• ~;~.:.*. E~R.Y~ .*·:.x........ :•

.................

.. ..

*..*

....
""2..........
:STARID~~A~

.................
•

•

X
oz.·...

UAIt(l1

••
RNAL·· •• NO

'.·:XIfEM

FOR:
yes
•
CONST~N~
.)(..........
.INIT IALllAT ION •
••

•

X

.!.

C3

•

•

• NO

UM1C'

•

GET NEXT ITEM :)( •••••••••••••••••

..·..

••

YES

••

•••••••••• )(..

*..*

Cit.i. •.
··~:nE •.•.

.••..C5 ..••••••••
•

NO
:-.-.-.-.-t~t~2~:
IABLE
•••••••••• X.
•
LABEL..
• PRocess ITEM •

.....

..1)*...
Y

tl:I~~:

UA 3.,

.•................•

UA01~ ••• D3 ••••••••••
••••
•
TXTMOY·
•• END OF
•• YES
: •••••••••••••••• X•••• Ta~S S~1~T •••••••••••• )(:CONS~~~~S~OOL :
UA013

.-.-.-.-41-.-.-.-.

*..*

•

•••••••••••••••••*

•• • ••NO

•

••••• El..........

•

E2

•

.................

: GET NEXT ITEM
•
•

*

••

•

Ie

.

...it

it
• *. ••

.*
*.
:X ...... ~~.:· IT~~E~EED . : .

.

AOCON ••
*.....
•

FJ

*.

••

,F *. .. *yes
••••••••

....

••.- END

STAT C
•• CHA N

••

.......

•

K

•• ••

YE!

.uo •

• NO

• B2 •

•

.....
······F5······
•
•

•.•••F2··"'····.··
.-.-.-.-.-.-.-.-.
·..................
X

•

••• ••••••••••• •••• :

X

TKTMOV·

PROCESS ITENl

•
•

:

••

.•.x

• * E"lD

: • • • • • • • • • • • • • • • • )(.0 ••

••

OF

St~llij

*.

X

*. ••

••

YES

••••••••••• ~

...

• ••••

•• ••
• "lO

H3

••

.UD •
• liZ •

• ••

••

OR *. ••
STRUCTURE ••

•• .*ARRAY

YES
• GET "lEXT ITEM .X..........

.................
•
•

*.

)(

....

••
*..*
• "lO

~:~n~,

.

....................

U'd8"
)(
••••• J3 ••••••••••

·................ 1'1.:.-.-.-.-.-.-.-.•

TKTMOV·

PROCESS ITf"

316

•
•

·"'····G5··•••••··••

.............
OUTPUT
TEKT

X

UA033
•
. . . . . HZ..........

•
•

FORM TFleT
IN BUFFER

•••••••••••••••••••

G3

••

····E5·······.·

•• TxTMOV ••
•••••••••••••••• •

:

K

•• ····H~·········
•
• RETURN ••

...............

Chart UD.

Phase UD Jverall Lcgic Diagram

••••••
·uo
• 82·

••
•

..···C2·········.
X

: MOv~N~¥~Rij~T :
•
FROM •
• COMM!. REGt. [NYO.
•
fJSAOFF
•

S~ATlC

..................

x
:••• ~o~;;.;;o
•••:
•
•
•
•

.....:

:•••

*D~~:t;
F IR~T OR NEXT •
•
O~ AOFF 8Y
STATl
OSA
LENGTH OF
• PREVIOUS OSA
OICT I NAAv.
F.N R Y . .

.x.........

........•...0....
9

•
•
•
•

•......••........
x

••••• F~.i••••••••

•. x:
•

A~CllS

eN ~~Y

AtTO •
'\. :

~Y~

••••••••••••••••••*•
•

SCAN I

•*
••

G2

.-.K

••
t.

•• VES

.*
••

G3

...

YES
••

MORE

•••• OELIMITE'\ ••••••••••• x•••• S~~II~

*••. .••*

• *.

H2..

,

.. ..

,,*

•

• )C • • • • • • • • • • • • • • • • • •

1>10

•••

H3

••••
• NO..
ITEM
•• VES
:x .. ··.D~~~U~~lnR.·· .. •• .. .,

*.

··.·····iI
•••••

·UE •
• • A3 •

x

•

•••

*••. .••*

• 1>10

•

*. ••

••• ••

H4

...,

••

)I • • • •

.. ...

CORRE~-

P8~~~~ES

••

.. ..

• •••• H!5 ••••••••••
•• VES

*...

*..*
• YES

0 •••••••••••••••••

• •• *.

••••

GElERATE

.•

..... ...... ....
•

*

• 1>10

H

CARl)

•

Te~gg~F :

"'

"'

•

e

~

"'·"'.·J4 "''''* •••• ' ' •••

• GFI>IERA TE TKT

•

CARO OOPF
V!;C TOR A'IO

•

•
•
'" RLIl CARD FOR •
• VIRTUAL ORIGIN.

·

•

••••••••• .,.x •••• STRUCTURE . . . . . . . . . . . . )!: F8ap
•• NO

•••••••••• O •••••• O •••••••••• " ••••••••••••••

•• ** •••• *** ••• *••

OOIl.Ofl"~fI.O

••••

X
0;.***
•••••••
*••• *.J
SCAI>I BAH
HF.MENB
•

•

** RLO
GENFRATINC:
•
CARDS FOR.
.1/ IRTUAL OP I GINS •

*•• *** •• *••••••••

. "

oo • • • • ,,'I(oo • • •

OftOtlO • • OClI"iO.OO • • • • •

1'I

Section 3: Charts and Routine DiIcctories

317

)ia~rarr

Chart UE. Overall Logic

•••••
• UE •
• "3 •
•••

··..."3.····.·....
X

U,,':Ion

..

.••••••••••••••••••.•
:

S?HI~E~~,,~~

:

x

e3

•••

U"'r' 15
• •••• RIt .......... .

••

•*
*.
•
••••••••••••••• :~~.:. OF f~2rN ·:111)(.0 •••••
*. _.
.*
•
• III
III

.. ..

.................

• "10

X

•

0:

Nt:)[yEITEM

•

:

C3···..

•

.111

..•..

••

)(

K

UAlI2l . . . C2..........

:X ••••••••••••• e •••

~n

•
UA2~;'l;l5.;. ....... .
•
•
•

C4 •••••

*.

.*

*.

.. •..

.•................•

• START SCAN FOR.
yeS •• eXTERNAL' •• NO
•• SIMPli
•• Y E S .
• nOPE VECTORS .X..........
ITEM
•••••••••• K•• O"T ... V"R "eLF •••••••••• x. PROCESS ITfM
•
•
••
••
..OR LAB L ••
•

•
II
.................
x

02

•••

••••••••••••••••• X.:tHI ~"I~AR~ OF .:.!~~
•
•• SC AN
••
III.

·

••

•• • ••NO

•

III

III

•

..... X:OFRn~~fcS~~~I';
•
•
•••••••••••••••••

x

E2 .~ ••
•• DOE S ••

••••• El..........
•
•

•

~TEM

....

•

.·

..

•••••• F2·····•• ••••
••••••••••••••••••• PROCESS ITEM •
•••••••••••••••••••

rc

.-

F3···..

f~~IN ·:.~?
.111
*..111
•• ••

.:. OF
••

Fit

*.

ITE~

." •••••••••••••••••

.....

.....
•."1.

.....
!;~.:*
x

•*

!tI.

·UF •

H3

•••

••

f~~IN

• ••••

*

.

·:.K•••••••. :

••

•

•

ITf"

:

.*•••••••••••••••••
•

H" •••••••••••
:l(•••••••••••••••••

GE~"IN~~XI~TE'"

.
•

•

• ••••••••••••••••

....*J3..........
.................
III

K: PROCess

*...
••• *

U"I~5

*.

•• ••
NO

•

•

UAI'Ud~F'5.;. . . . . . . ..

••

•

....
•
OF

.i.NO

••
*.
•
X.:·III. ~~~~TPJE .*·:.~~••••• •

• YES

x

318

GEf NEXT

•••••••••••••••••
X

• YES

X

.•.•

.····E4· ... • ••••••

.x •••••••••••••••• _

111.._

X

·

.·••

UA033

·

•
•
NO..
••
: GE T "lEX T ITEM :X •••••••••••• N~E~TgaPE . " •

.................

•
•

U"'J21
• ••• *03 ••••••••••

••.

*.

•*

III...

*..*

l(

J4' i...
.. •..

NO

•

••

:csd~ITMk'fhM

: •••••••• x.:·

:

:

IIIG

*.

.•••.JS.;.••.••..•
.................

*.

.._.

*

•

'~IJU~ ·:.:;~ ••••• x:
:

PROr.ESS Iff'"

:

:

.....
••
.

Phase UF Overall Lcgic Diagram

Chart UF .
·UF •
• AI·

....•

·••••.
••

......'tnT8~~~~~:
81..........
X

I ll,I'f)]

:
• I:ROM T A8l F 1

82 •

• x•••••• ,,~) • •

••.glj~R~~~GI~E~F
·..1:12 ••.......•

It • • • CI • • • • • • • • • • • • • • • 0

••••

X

Il("lu n 2

~

0 • • 0 . It 110

e

0

eo ••

ell

no"

0 •••••••• 0

•

:
:
.'X ••••••••• FROM TAAlE 2. •

t:~::~t~~~i:::.:,

El ..
X

:.l~~~t~~~l~U~.:

..•...f2...........

...... 3······.····

.............

.............

\l(,n15.

•••

lr016
PRINIT
~
•••• PlBS ••••• YES
.PRIN b~OlOGUE.
•
P~/NID~M~
•
••••
PCBS
•••••••••••• X ~ROCEO~~~ BASE:, •••••••• )( FORGpU~~R~pRoR~ISSEVNG.
••
••
lOCN C TR • n
S~

.. ..

• NO

X

IL(\(\18.
Iltltl 9
• ••••GZ •••••••••••
PRINT STATEMENT
••
lAB~l
•• YES
•
NUMBER
•
··2~ ~~~JE~EN! ••••, ••••••• )( .A~gE~nF\~R~l •••
•••
Gl
••
••••

*. *•• * .*

.......... * •••

•

00)(:

••••

•
B? :

*•••

• NO

~

.

•••
HI..

0"
•• END

••

~~

OF
PROGRAM

..

*. ••

*. •• •• ••

....x
• •
·.....

IU'I,17
• •••• HZ ••••••••••

.
•

YES
•
•••.••••••• X.

RElE ASE UH
MlO l040 ur

.
••
•

•• •• * ••••••••••••••

• NO

• A7 •

...x
•.1'5
... ...
J2

••

• •••• J3 ••••••••••

...................
.
.
.
..
.
..................

COMP IL;A •• YES
: II ST COMPILER:
•• ~UBROUTrNE ......... ., X" SU6ROUTINE
•
... WANTEO ."
..
•
'ti.

•

••

NO

..

•

X

........ K3·· •• • •• •••
•
.PRINT LINE WITH •
•••••••••• " •••••• )(: MN~~5~tP~~D :

.....
...
it

·XA •

• AI·

section 3: Charts and Routine

DiI~ctcri€s

319

.....

2bart XA .

Jver~ll

Phase XA

Lcgic Diagram

• l(A •
• AI·

••
•

X
XAN
: •••• Al . . . . . . . . . :
: ••• aH~tr~~
•
SET
•
•
LEVEL OF
: SEVERITY CODE : •••••••• X: 0~~r~9s~~l

XAf'

••••

••••••••••••••••••• •••••••••••••••••••
X
••••• 81..........
•
•
• CONSTRUCT PHASE.

XAI

82···..
)(Ai •••• *B3 •••••••••••
ANY· •
YES •• ENTRlp •• NO
•
P~T OUT
PRJgE~SEO •• •••••••••• X.
'" SSAGE
••

.................:)(.••••••••••• ....•
:",~~~i~~oCrJ~~

•

XAit

•

·

X

••••• Cl..........

*..*

XA7

.....

·······x

•••••••••••••

.•.

.AA •

•

• ••••C2..........

• •••• C3..........

:

:

H4 •

• •••• C4 ••••••••••

: ~UH~~ :
: ~ge~~~s : •••••••• x: ~~li~~E : •••••••• x: ~k~8~~ : •••••••• )(: A~e~f~s :
••••••••••••••••••• ••••••••••••••••••• ••••••••••••••••••• •••••••••••••••••••
",k~~fGE:

:

S~AN:

~?Kf g~:

··.........
...
• 04 •• )(.

••••

,,*

l(

04

••

ALI

-,

., .. •• .....

NO ••
YI'S
••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
p~NTR es
,*ooeooo ••
•
•• "OCE SED..
)(
•• ••
·~A •
•
• H4 •

.•.

XA'I ••••• E1 . : . . . . . . . .

XA2~ •••• E2..........

GET T O : :

:

~~~V
•••••••••
8LOCK.

HEAD OF
••••••••• X.
CHAIN.
•

•
•

·

••••• t.t.t ••••••••••

t.t.

l(Al~~ ••• E4 •••••••••••

E3···..

·•••••••••••••••••...•••••••••••••••••.
:

A~UN~R?~h

·*rHP~HAI
A·· •• YFS
•
N •••••••••• X

••
X..
NEW
••

...
•• •• ..

•

SEV~RI
TY
HF.'AOF.R

••

•••••••••••••

x
I t • • • • 1I • • t • • • • • • • • • • • • t • • t • • • • • • • • • • t • • • • • • • • • • • • • • • • • •

)(

X
•••
..NO
•••••Gl..........
G2
••
G3
••
•
•
•• IS
••
••••
• •••
•
GET T O .
•• SK~LET2N •• NO
••
END
•• YES.
•
: •• X: N~~Tc~~I~Y
: •••••••• X••• !N B~~~KNT •••••••••••• X•••• C~~IN •••••••• X: 04 :
)(A3C'

.. ..

.
.
.................

.

*...

.....
.. .

• YES

X

: •••• ~~~~:~; . . . .:

•
:

.....Jl..........

...........................................

: KA35

•
:
•
•

;

• •
: ••••••••
SKELETON.
•
• •

~CECSES~GSE

.................

•••
•• H3 HAS ••••

: · . . ~~l~::t.~~···:

P

.....

x:.

NU"'B~R

••
GOT
•• YES
•
: •••••••• )( ••• ~ NMt~~FN! . . . . . . . . . . .

..................
.....J2..........
K:
.................
.

XA32

NU"'8~R.

TgU~~E~T

....

•

• NO

"x

~

.....J3..........
.................

•••••••••••••••••

• •

M~CA~8E·
•
SK~~h N
: •••••••• K:

• •

•
:

..................

*...

~.~.e.e(l

T~u~h~T

......J4...........

••••••• Oc ••

ICA4"

8U 1L0
•
Me SSAGE.
•
T~n N~N
: ••••••••
BUFFER
•

..............

x.

PUT O¥T
01 A~~~~GJ.c

...

••

~

••

K4

HAS

••

••

YF.~"

• ....

•
NIJ ...
THIS
••
••••••••••••••••••••••••••••••••••••••••••••••••••••
~ •••••••••••••••••••••• o.o.".".".~t~TcA~t~V,..'.IIlI,l~o't(: 0

*0

320

•• rIA'·

"*

4

.***

•
:

Table TE.

Phase TF Final

Ass~mbly

Pass 1

r-----------------------------------T---------------T-----------------------------------,
I
IMain Processingl
I
I

statement or

Op~ration

Type

I

Routine

I

Subroutines Used

I

~-----------------------------------+---------------+- ----------------------------------i

I ~3cdns text

IIL0024

I None

I

t------------------------------------+---------------+ ----------------~------------------1

IAssigns offsets to labels

IFINEQl,

II~0019

I

~EX~SL

~-----------------------------------+---------------+- ----------------------------------i

IIncrements location counter for
I machine i.nstructions

IILOOl4

INone

I

I

I
I

~------------------------------------+---------------+ -----------------------------------i

IDetermines code for instructions
Iwhich refer to labels

I

IFIN~Cl

IIL0020
I

I

I

t-----------------------------------+---------------+-----------------------------------i
IInitializes location counter at
Istart of procedure

IILOOlO
I

INone
I

I
I

t-----------------------------------+---------------+-----------------------------------i
IStores size of procedure and
IILOOll
INone
Iresumes
containing procedure
I
I
L_. __________________________________ _______________
~

Table TF1.

~

----------------

I
I

___________________ J

Phase TF Routine/Subroutine Directory

r-·---------------·--T---------------------------------------------------.------------------,
I Routine/Subroutine I
Function
I

t------------------+--------------------------------------------------------------------i
IFINEQl

ILocates label number table entries.

I

I

I

I

I

I

IILOOOO

IIL0003
ILOOlO
IL001l
IL0014
IL0015
ILOOl7
IL0019
IL0020
IL0022
IL0024
LINEXTSL
__________________

IEntry foint from compiler control.
IEntry foint to scan from initialization routine.

Jlnitializes location counter at start of procedure.

I

Istores size of

procedur~

and resurres containing procedure.

I

IIncrements location counter for machine instructions.

I

IProcesses the start of prologues.

I

IReleases control.

I

IAssigns offsets to latels.

I

IDetermines code for instructions which refer to labels.

I

IProcesses end-of-block pseudo-code item.

I

Iscans text.

I

IDeterrrines
multiple statement latel__________________________________
entries in dictionary.
__________________________________
J

~

section 3: charts and Houtine Directories

321

Table TJ.

Phase TJ Final Assembly Optimization

r-----------------------------------T---------------T-----------------------------------,
I
I

Statement or Operation Type

IMain Processing I
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+-----------------------------------~

\Controls phase
IILOOOO
I OPTIMA
I
~-----------------------------------+---------------+-----------------------------------~
IMaintains location counter for
IIL0014
INone
I
Imachine instructions
I
I
I
r-----------------------------------+---------------+- ----------------------------------~

IAssigns offsets to labels

IIL0019

ICOMRTN, FINEQi, NEXTSL

I

~-----------------------------------+---------------+-----------------------------------~

IDetermines code for instructions
Iwhich refer to labels

IIL0020
I

IFINEQl

I

I

I

~-----------------------------------+---------------+-----------------------------------~

IInitialize location counter at
IILOOi0
INone
I
Istart of procedure
I
I
I
~-----------------------------------+---------------+-----------------------------------~
Istores size of procedure for
IILOOii
INone
I
Imachine instructions
I
I
I
r-----------------------------------+---------------+- ----------------------------------~

IReduces number of MVC instructions IIL0027
IOFFSET, OS~RTN
I
~-----------------------------------+---------------+-----------------------------------~
IDetermines offset from a given
IOFFSET
INone
I
Idictionary
reference
\ _______________ I _ __________________________________ JI
L
___________________________________
~

Table TJi.

~

Phase TJ Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine \

Function

\

~------------------+--------------------------------------------------------------------~

COMRTN

IDeterwines whether further optimization is

FINEQi

~ossible.

\

\

I

ILocates label number table entries.

ILOOOO

\Controls phase.
\Entry point to scan lcop from initialization.

I

ILOOi0

IInitializes location counter at start of procedure.

I

ILOOii

Istores size of procedure and resumes containing procedure.

I

IL0012

IProcesses machine instructions, etc.

I

IL0014

IMaintains location counter for machine instructions.

IL0019

Assigns offsets to labels.

IL0020

Determines code for instructions which refer to labels.

IL0024

Gpts pseudo-code item length and updates text pointer.

IL0027

Elides MVC instructions.

ILi00i

Evaluates new ADCON needs.

ILii01

Restores content of containing procedure.

NEXTSL

Looks for equivalent statement labels.

OFFSET (TK)

Sets location counter to zero.

Determines offset from a given dictionary rEference.

I

I OPTIMA
~

I

322

I

I

IL0003

IOSMRTN
L__________________

I

I

I

I

I

I
Scans text.
I
I
Scans ahead for literal offsets.
__________________________________
__________________________________ JI

Table TO.

Phase TO Final Asserr.bly External Symbol Dictionary

r------------------------------------T---------------T-----------------------------------,

I
I Main Processing I
,
statement or Operation Type
1
Routine
1
subroutines Used
1
1
~-----------------------------------+---------------+-----------------------------------~
I constructs first: six standard ESD 1LG40i
1f1~OVE, NA.ME, ERROR
,
lentries
I '
I
~-----------------------------------+---------------+-----------------------------------~
IConstructs entries for external
ILGOOl
,MOVE, ERROR
,
Iprocedure labels
1
I
I
.-----------------------------------+---------------+- ----------------------------------~
'MOV~,

IConstructs PR type entries for eachlLG030
Iblock and procedure
1

NA~E

I

I

,

.-----------------------------------+---------------+- ----------------------------------~

Iconstructs entries for external
ILG050
IMOVL, ERROk
,
Ivariables and external entry names I
I
1
~-----------------------------------+---------------+-----------------------------------~
,constructs entries for ccntrolled
ILG090
IMOVE, NAME, ERROR
I
Ivariables and task names
I '
I
~-----------------------------------+---------------+-----------------------------------~
Iconstructs entries for Library
IIL0200
11HEINC
,
Iconversion
modules
" _______________ L _ __________________________________ J,
L. ___________________________________
~

Table T01.

Phase TO Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,
I ROUTINE/SUBROUTINE 1

I

FUNCTION

.------------------+---------------------------------- ----------------------------------~

ERROR

Truncates over-length external identifier, generates error message.

LGOOl

I

I

Constructs entries for external procedure labels.

I

1

LG030

Constructs PR type entries for each block and procedure.

I

1JG050

Constructs entries for external variables and external entry names.

I.G055

Processes ON-conditions and external variables.

1.G080

Processes external entry names.

1.G085

Processes FILE constants.

I,G090

Constructs entries for controlled variables and task names.

LG093

Inserts name in ESD entry for CONTROLLED.

L,G401

Constructs first six standard ESD entries.

MOVE

Moves ESD entries to card buffers, and puts out buffer when full.

NAME

Generates names for pseudo-registers.

11HEINC
(TQ)
constructs
a string of Library module
names.
L ___________________
_________________________________
___________________________________
J
~

Section 3: Charts and Routine.Directories

323

Table TT.

Phase TT Final Assembly Pa3S 2

r-----------------------------------T---------------T-----------------------------------"

IMain Processing \
1
I
statement or Operation Type
I
Routine
I
Subroutines Used
1
~-----------------------------------t---------------t-----------------------------------~
IScans text
I1L0002
INone
I
~-----------------------------------t---------------t-----------------------------------~
IGenerates text for RR instructicns I1L0012
IGENTXT
1
1

t-----------------------------------t---------------t- ----------------------------------~

IGenerates Text for RX non-branch
IIL0013
linstructions LM, STM, and S1 Types 1

I EOBHTN, GENTXT, OFFSET
1

I
I

~-----------------------------------t---------------t- ----------------------------------11

IGenerates text for shift instrucI1L0027
IGENTXT
I
1 tic-ns
1
I
1
~-----------------------------------t---------------t-----------------------------------~
IGenerates Text for SS instructions I1L0014
1 EOBRTN, GENTXT, OFFSET
1
~-----------------------------------t---------------t- -----------------------------------1

ISets up trace information and num- I1L0019
Ibers compiler labels
I

IGENTXT
1

I
1

~-----------------------------------+---------------t- -----------------------------------1

IGenerates text for branch and load IIL0020
laddress instructions
1

IF1N~Ql,

1

GENTXT, OFFSET

1

1

~-----------------------------------t---------------t- -----------------------------------1

IInitializes location counter at
1start of procedure

I1L0010
1

IPUNCHT
1

1

I

~-----------------------------------t---------------t- -----------------------------------1

I Resumes containing procedure at end I ILOOll
lof procedure
1

I PUNCHT'

1

1

1

~-----------------------------------t---------------t- -----------------------------------1

IMoves Text into card image

IGENTXT

IPUNCHT

I

~---------------------------------,--t---------------t -----------------------------------1

IPunches cards ensuring that RLD
Icards follow related TXT card

IPUNCHT

ICAkLOU

1

1

I

1

~-----------------------------------t---------------+- -----------------------------------1

IGenerates text for compiler subrou-I1NCLUD
IGENTXT
I
1tine
1_ __________________________________ .11
L
___________________________________ 1_______________ L
~

324

Table TTl.

Phase

~T

Routine/Subroutine Directory

r-------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

I

Function

~------------------+--------------------------------------------------------------------~

CARDOU

Directs card image to load file or punch file.

EOBRTN

I

I

Chains to next input text block.

I

I

FINEQl

Locates label number table entries.

G£NTXT

Moves text into card image.

IL0002

Scans text.

IL0003

Entry point to scan from initialization

IL0010

Initialize~

ILOOll

Resumes containing procedure at end of procedure.

IL0012

Generates text for RR instructions.

location counter at start of procedure.

Generates text tor

IL0013

rou~ines.

~~

non-branch branch instructions, LN, STM, and

81 tyr-e.

IL0014

Generates text for S8 instructions.

IL0015

Processes the start of prologues.

IL0016

Processes the end of prologues.

IL0017

End-af-text routine.

IL0019

Sets up trace information and numbers compiler labels.

IL0020

Generates text for branch and load address instructions.

IL0022

End-of-block routine.

IL0027

Generates text for shift instructions.

I

IOFFSET (TU)
I

Determines offset and relocation pointer from given dictionary reference.

I

IPUNCHT
Punches cards ensuring that RLD cards
follow related TXl card.
L __________________ __________________________________
_________________________________
_
~

Section 3: Charts and Routine Directories

325

Table UA.

Phase UA Final Assembly Initial Values, Pass 1

r-----------------------------------T---------------T------------------------------------1
I
I

Statement or Operaticn Typ8

IMain Processingl
I
Routine
1

I

Subroutines Used

1

~-----------------------------------+---------------+- -----------------------------------f

IScans STATIC chain to beginning of IUAOOl
lexternal section
I

IUA200, UA220, UA230
1

1

1

~-----------------------------------+---------------+- -----------------------------------1

IInitializes scalar variables

IUA200

ITXT~OV

1

~-----------------------------------+---------------+- -----------------------------------1

IInitializes BCD for label

IUA220

IRLD~OV,

TXTMOV

I

.-----------------------------------+---------------+- ----------------------------------~

IInitializes DED for temporary

IUA230

I

I TXTMOV

~-----------------------------------+---------------+- -----------------------------------/

IInitializes address constants.

IUA010

IUA40l, UA403, UA404, UA405, UA406

I

.-----------------------------------+---------------+------------------------------------1
IInitializes symbol table entries

IUA080

IRLD~OV,

TXTMOV

I

~-----------------------------------+---------------+- -----------------------------------1

IInitializes address slots for
I external variables

IUA403
I

IRLD~OV,

TXTMOV

I
I

1

.-----------------------------------+---------------+------------------------------------1

IInitializes address slots for func-IUA401
IRLD~OV, TXTMOV
I
Itions and programmer-defined ONI
I
I
1 condi tion names
I
I
II
~-----------------------------------+---------------+-----------------------------------~
IInitializes address slots for labellUA404
IRLD~OV, TXTMOV
I
I constants
I
I
II

.-----------------------------------+---------------+- ----------------------------------~I

IInitializes address slots for entrylUA405
Ilabels
1

IRLDNOV, TXTMOV
I

I

IInitializes file attribute entries IUA406
land files
I

IRLD~OV,

~

I

il
.-----------------------------------+---------------+- ----------------------------------~I

TXTMOV

I

.-----------------------------------+---------------+- ----------------------------------~

IInitializes constants pool
IUA014
IRLDMOV, TXTMOV
~
~-----------------------------------+---------------+-----------------------------------~
IInitializes dope vector skeletons
IUA02l
ITXT~OV
I

r-----------------------------------+---------------+-----------------------------------11

argument lists
lIInitializes
___________________________________

326

IUA025
_______________

~

I

IRLD~OV,
TXTMOV
_ __________________________________
J

~

Table UAl.

Phase UA Routine/Subroutine

Dir~ctolY

r-------------------T--------------------------------------------------------------------,
I Routine/Subroutine I
Functlcn
I
~------------------+--------------------------------------------------------------------~

OUTPUT (UB)

Moves card images to punch and/or load file.

I

RLDMOV (UB)

Moves RLD entries to card buffer.

I
I

TXTMOV (UB)

Moves TXT entries to card buffer

UAOOOO

Entry point from compiler control.

UAOOl

Scans STATIC chain to start of external section, to initialize
scalar variables.

UAOOl5

Return point for branches taken in first scan.

UAOlO

Initializes address constants.

UAOl3

Return point for branches taken in second scan.

UAOl4 (UC)

IInitializes constants pool.

UA02l

Initializes dope vector skeletons.

UA0215 (UC)

Produces text for dope vector skeleton.

UA025

Initializes argument lists.

UA033

Return point for branches taken in last scan.

UA080 (UC)

Initializes symbol table entries.

UAI00 (UC)

Initializes one-Word CSECT 'IHEMAIN'.

UAI00A

Exit from UA to compiler control and UD.

UA200

Initializes scalar variables.

UA220 (UC)

Initializes BCD for label.

UA225 (UC)

Entry to label routines for label variable BCDs.

UA230 (UC)

Initializes DED and FED for temporary.

UA401

Initializes address slots for functions and programmer-defined ONcondition names.

UA403

Initializes address slots for external variatles.

UA404

Initializes address slots for label constants.

UA405

Initializes address slots for entry latels.

UA406

Initializes DECLARE control blocks for files and file attributes
entries.

\

Makes text for file attributes entry.

IUA407

I

Initializes array variables.

IUCINIT (UC)

I

IUCUPDT (UC)

IInitializes arrays of varying strings.

I

I

I

I

IUC0080 (UC)
ITIDY
(UC)
L
__________________

I

I
I
I
I
I
I
I

\Initializes bit arrays.
ICompletes
packing of bit strings in__________________________________
structures or arrays.
__________________________________
J

~

Section 3: Charts and Routine Directories

327

.Table UD.

Pha~e

UD Final Assembly Initial Values, Pass 2

r-----------------------------------T---------------T------------------------------------1

1

IMain Processing 1

1

1
statement or Operation Type
1
Routine
1
Subroutines Used
1
~-----------------------------------+---------------+- -----------------------------------,

IScans STATIC DSA chain

IA1

I

IAUTO

~-----------------------------------+---------------+- -----------------------------------1

IScans STATIC DSA's AUTOMATIC chain IAUTO

IDAT,LAB,STRUC

1

~-----------------------------------+---------------+- -----------------------------------1

IInitializes dope vectors fer data
litems and label variables
1 (unstructured)

IDATLAB
I

ITXTMOV(UB),RLDMOV(UB)
I

1

I

1

I
I

~-----------------------------------+---------------+- -----------------------------------1

IInitializes dope vectors for

structures
1
L ___________________________________

ISTRUC
ITXTMOV(UB),TLD~OV(UB)
1
I _______________ I _ __________________________________ .1I

~

~

.Table UD1. Phase UD Routine/Subroutine Directory

r------------------T---------------------------------------------------------------------.

1 Routine/Subroutine I

Function

I

~------------------+---------------------------------- ----------------------------------i

IA1

IScans STATIC DSA chain.

1

1

1 AUTO

I

IScans STATIC DSAs AUTOMATIC chain.

1

1

I

I

IDATLAB

I

IInitializes dope vectors for data

I
i~ems

ISTRUC
1
IUDOOO

IInitializes structure dope vectors.
1
IEntry point

I

I

lIUDEND
__________________

328

and labels.

I
I
I
I
I
I

I

IReleases
control.
__________________________________
__________________________________ JI

~

Table UE. Phase UE, Final Assembly Initial Values, Pass 2

r-----------------------------------T---------------T-----------------------------------,
I
I

statement or Operation Type

IMain Processing I
I
Routine
I

I
I

Subroutines Used

.-----------------------------------+---------------+- ----------------------------------~

IScans STATIC chain to beginning of IUAOOl
I external section
I

IUA~OC,

UA220, UA230

I

I

I

.'-----------------------------------+---------------+ -----------------------------------~

IInitializes scalar variables
IUA200
ITXT~OV (UB)
I
~-----------------------------------+---------------+-----------------------------------~
IScans STATIC chain to initialize
IUA003
IUA300, UA320, UA340, UA360, UA365
I
linternal dope vectors
I
I
I
.-----------------------------------+---------------+- ----------------------------------~

IInitializes
I nal strings

dop~

vectors for inter-IUA300
I

IRLD~OV

(UB), TXTMOV (UE)

I
I

I

.'-----------------------------------+---------------+ ------------~----------------------~

IInitializes dope vectors for inter-IUA320
Inal data arrays
I

IRLDMOV (UB),
I

TX~MOV

I
I

(UE)

.'-----------------------------------+---------------+-----------------------------------1
IInitializes dope vectors for arrayslUA340
lof varying strings
I

ITXT~OV

I

(UB), UCUPDT (DC)

I
I

~-----------------------------------+---------------+- ----------------------------------i

IInitializes dope vectors for inter-IUA360
I nal labe:l arrays
I

IRL0~OV

(Ub), TXTMOV

I
I

(UE)

I

~------------------------------------+---------------+ -----------------------------------i
IIni~ializes

dope vectors for inter-IUA365
IUA300, UA320, UA360
I
I nal structures
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IInitializes arrays
IUA030
IRL~~OV (UB), T~TMOV (GE),
I
I
I
IUCINIT (UC)
I
.-----------------------------------+----T----------+- ----------------------------------~

IInitializes structures

IUA04G

I

I

ITXT~OV (UB),
(Ue)

UA200, Ue0800 (UC),

I

I TI;)Y

I

.------------------------------------+---------------+ -----------------------------------~

IInitializes one word CSECT
I" IHEMAIN'

IUA100

I OUTPUT, RLDMOV, TXTMOV (all in UE)
I

I

I
I

.------------------------------------+---------------+-----------------------------------i
IInitializes CSECT for STATIC
lexternal variables

IUA1005
I

IOUTPUT (UB), DA030, UA200, DA300,
IUA320, UA360, UA365, UA401, UA406

I
I

~-----------------------------------+---------------+- ----------------------------------i

IMakes up END card and
Iphase

ter~inates

IUA120
I

IOUTPUT (UB)

I
I

I

~------------------------------------+---------------+ -----------------------------------1

IInitializes array variables

IUCINIT (UC)

ITXTMOV (UB), UC0080 (UC), TIDY (UC) I

l ___________________________________ L _______________ L _ __________________________________ J

Section 3: Charts and Routine

Dir~ctories

329

.Table UE1. Phase UE Routine/Subroutine Directory

r------------------T--------------------------------------------------------------------,
I Routine/Subroutine I

Functicn

I

~------------------+--------------------------------------------------------------------~

I AREA
I

Initializes AREA variables.

I EVENT

Initializes EVENT variables.

I
I TASK
I

Initilizes TASK variables.

IUAOOO

Entry point from UA and compiler control.

UAOOl

Scans S1ATIC chain to start of External section, to initialize scalar variables.

UAOO15

Return point for branches taken in first scan.

UA003

Scans STATIC chain to initialize all dope vectors for internal variables.

UA021

Start of scan for arrays and structures.

UA030

Initializes arrays.

UA031

Produces RLD entry for label array virtual origin.

UA033

Return point for branches taken in arraj scan.

UA034

Produces RLD entry for nata array virtual origin.

UA040

Initializes structures.

UA100 (UC>

Initializes IHEMAIN CSECT.

UA105

Return point for branches taken in external scan.

UA120

Makes up END card and terminates phase.

UA200

Initializes scalar variables.

UA207

Lists label variables.

\UA300

Initializes dope vectors for internal strings.

UA320

Initializes dope VE:.ctors for internal data arrays.

UA340

Initializes dope vectors for arrays of varying strings.

UA360

Initializes dope vectors for internal label arrays.

UA365

Initializes dope vectors for internal structures.

UA401

Initializes address slots for functions and programmer-defined ONcondition names.

UA406

Initializes DECLARE control blocks for files and file attributes
entries.

UA1005

IInitializes CSECTs for STATIC external variables.

l __________________ L ____________________________________________________________________ J

330

Table UF.

Phase UF Final Assembly Object Listing

r-----------------------------------T---------------T-----------------------------------,

I

IMain Processingl
I
I
statement or Operation Type
I
Routine
I
Subroutines Used
I
~-----------------------------------+---------------+-----------------------------------~
IScans Text
IIL0002
INone
I

t----------------·-------------------+---------------+ -----------------------------------~

ILists RR instructions
IIL0012
IPRINIT, RRRTN
I
~-----------------------------------+---------------+-----------------------------------~
ILists RX non-branch instructions
IIL0013
IBX~~N, PRINIT, FRNTOU, PRNTVF,
I
I
I
I
ISECCND
t-----------------------------------+---------------+- ----------------------------------~

ILists SS instructions
IIL0014
I EOBkTN, PRINIT, PRNTOU, SSRTN
I
~-----------------------------------+---------------+-----------------------------------~
ILists shift instructions
IIL0026
IPRINIT, PRNTOU, PRNTVF
I
t·-----------------------------------+---------------+ -----------------------------------~

ILists LM and STM
IIL0027
IPRINIT, PRNTOU, PRNTVF, SECOND
I
~-----------------------------------+---------------+-----------------------------------~
ILists 81 instructions
IIL0028
ICHARVF, PRINIT, PRNTOU, PRNTVF
I
I
I
ISECCND, SSRTN
I
t-----------------------------------+---------------+- ----------------------------------~

ILists branch and load address
I instructions

IIL0020
I

IIL0013,

NA~EIT,

NAMEQU,

PRINIT~

IRR~~N

I
I

t-----------------------------------+---------------+-----------------------------------i

ILists labels
IIL0019
INA~EVF, NEXTEL, NEXTSL,
I
I
I
I
IPRNTLC, PRNTOU, PRNTVF, STATMN
~------------------------------------+---------------+-----------------------------------~
ILists procedure names
IIL0010
INAMEVF, NEXTEL, PRNTOU, STATMN
I
t------------------------------------+---------------+ -----------------------------------~

ILists ends of procedures

IILOOll

INAMEVF, NEXTEL, PRNTOU

I

~------------------------------------+---------------+-----------------------------------~

IScans ahead for literal offsets;
linserts second instruction byte
linto print image

I SECOND
I
I

I EOLBTN
I

I

I
I
I

t-----------------------------------+---------------+- ----------------------------------~

IGenerates listing of text for base ISSRTN, BXRTN
IABSOFF, ADDEND, NA~EIT, NA~EQU,
I
loffset pair
I
IPRNTVF
I
~-----------------------------------+---------------+-----------------------------------~
INames generated label number
INAMEQU
IDECINT, FlNEQl
I
t------------------------------------+---------------+ -----------------------------------~

IInserts location counter value, andlPRINIT
Ihexadecimal and mnemonic operation I
Icodes in print line
I

IPRN1LC
I
I

I
I
I

~-----------------------------------+---------------+- ----------------------------------i

IMoves variable length ite~ into
Ivariable field part of print line

IPRNTVF
I

IPRNTOU

I

I
I

t-----------------------------------+---------------+- ----------------------------------~

ILists statement numbers
ISTATMN
ISTATNO
I
~-----------------------------------+---------------+-----------------------------------~
IDetermines name and offset from
INAMEIT
IDECINT, HEXINT
I
Idictionary reference
I
I
I
~------------------------------------+---------------+-----------------------------------~
IGenerate listing of compiler
IIL0017
I PRNTLC, PRNTVF,PRNTOO
I
subroutine
I _______________ I _ __________________________________ JI
I ___________________________________
L
~

~

section 3: Charts and Routine Directories

331

Table UF1.

Phase UF Rcutine/Sutroutine Directory

r------------------T--------------------------------------------------------------------,

I Routine/Subroutine I
Function
I
~------------------+--------------------------------------------------------------------~
ABSOFF
Appends literal offsets to operands in variable part of print line.
ADDEND

Appends signed literal offsets to operands.

BXRTN/SSRTN

Generate listing of text for base offset pair.

CHARVF (UG)

Places one cbaracter in variable field of print line image.

DECINT (UG)

Converts binary to externally coded decimal.

EOBRTN

Chains

FINEQl

Locates label number table entries.

HEXINT (UG)

Converts binary to externally coded hexaaecimal.

ILOOOO

Entry point from compiler control.

ILOOO2

Scans text.

ILOOO3

Entry to scan from initialization routines.

ILOO1O (UG)

Lists procedure names.

ILOOll (UG)

Lists ends of procedures.

ILOO12

Lists RR instructions.

ILOO13

Lists RX non-branch instructions.

~o

next input block.

Lists S8 instructions.

IILOO14

I

Processes the start of prologues.

IILOO15

I

Processes the end of prologues.

IILOO16
I
IILOO17 (UI)

End-of-text routine, and compiler subroutine listing.

I

Processes compiler generated label numbers.

IILOO18
ILOO19 (UG)

Lists labels.

ILOO20

Lists branch and load address instructions.

ILOO26

Lists shift instructions.

ILOO27

Lists LM and STM.

ILOO28

Lists S1 instructions.

ILOO32

Processes SS decimal instructions.

ILi003 (UG)

Prints "*PROCEDURE" followed by entry names and statement number.

IL2005

Identifies operands.

NAMEIT

Determines name and offset from

NAMEQU

Names generated label number.

NAMEVF (UG)

Places a variable nawe in the print line.

INEXTEL (UG)

L __________________

332

~

dic~ionary

entry.

I
I
I
I

I

I
Scans
dictionary for wultiple entry labels.
I
__________________________________ - - - - - - - - - _________________________,J

Table UF!.

Phase UF Routine/Subroutine Directory (cont'd)

r------------------T--------------------------------------------------------------------,

!Routine/Suoroutinel

Function

!

~------------------+--------------------------------------------------------------------~

NEXTSL (UG)

NM0003 (UH)
PRINIT (UG)
PRNTLC (UG)

Icommon return point in naming

routi~e.

I

IPrints location coJnter value, hexadecimal, and rrn~monic or codes.

I

~Converts

Prints a line.

PRNTVF (UG)

Moves variable length item into variable field part of

RRRTN

Generates

SECOND

Scans ahead for literal offsets; insErts second instruction byte
into print image.

STATMN (UG)

Lists statement numbers.
~

~

location counter to hexadecirral; places it in rrint image.

PRNTOU (UG)

STATNO (UG)
L __________________

I
I
I
I

IScans dictionary for multiple statement labels.

I

R~

~rint

line.

format listing of text.

Converts
statement number to decimal.
__________________________________
__________________________________ J

section 3: Charts and Routine Directories

333

Table XA.

Phase XA Error Message Editor

r-----------------------------------T---------------T-----------------------------------,

,
I

Statement or Operation Type

,Main Processing,
I
Routine
I

Subroutines Used

I
I

~-----------------------------------+---------------+-----------------------------------~

,Determines whether error rr.essages
IXA
INone
I
lare to be printed
I
I
I
~-----------------------------------+---------------+-----------------------------------~
IScans error message text skeletons IXA8
IXASO, XA70, XA90, XAllO, ZUPL
!
prints them out
I _______________ I _ __________________________________ jl!
lland
___________________________________
~

Table XA1.

~

Phase XA Routine/Subroutine directory

r------------------T--------------------------------------------------------------------11

I Routine/Subroutine I
Function
!
~------------------+--------------------------------------------------------------------~
IXA
IDeterrrines whether error rressages are to be printed.
~

I

I

I

I

I

I

I

I

I

I

IXAO

ISets severity code.

IXAOl

IEstablishes which message types to suppress.

IXAl

Icounts number of error chains to be processed.

IXA2

Iputs out messages if there are no diagnostics.

XA4

IPrints out "COMPILER DIAGNOSTIC MESSAGES".

I

XA7

IFirst scan of message chains.

I

XA8

IScans error message text skeletons and prints them.

I

XA9 (XB)

Iscans to head of next non-empty chain.

I

XA12A

ISelects and prints header for messages of given severity.

I

XA30 (Xb)
XA32

IGets next entry in message chain.
Builds up first part of message in buffer.

(XB)

XA35 (XB)

Accesses message skeleton.

XA40 (XB)

Puts out completed message.

XASO

Moves rressage text to print buffer.

(AB)

XA70 (XB)

Converts binary statement number to character representation, and
moves it to print buffer.

XA90 (XB)

Converts binary numeric value to character representation and moves
it to print buffer.

XA110 (XD)

Moves identifier from dictionary entry to the print area.
Prints a line on SYSPRINT data set.

~

IZUPL

l __________________

334

I
!
I;
I
I
I

I

I

__________________________________ __________________________________ J

APPENDIX A: GUIDE TO PHASES AND MODULLS
---------------------------------------

This appendix relates the logical phases,
physical phases, and rrodules contained
within the physical phases.
The compiler
name is IEMAA.

BC

BC,BE,BF

Initial scan and translation
phase
fer
compile-tirre processol

PHYSICAL
PHASE
MODQLE§

BG

bG,EI,BJ

Final scan and replac~­
ment phase for COITpilLtirre processor

LtI,PN

Error
phase

BC,I::V

contain the
n'essas:;es

DESCRIP'TION

----.------

P,A

Controls
cOITipiler

}\B

Performs detailed initialization

AC

Writes
records
interroediate
SYSUT3

Au

PerforITis
interphase
dumping as specified in
the DUt-~F option

AE

End of read-in phase

AF

Controls system generation compiler options

AG

Closes SYSUT3 for output, reopens for input

running

of

BW

el,

Read-In
routines

r.:;hase

cowmon

CC

Read-In
routines

rhas€::

corrrron

CE

Keyword tatles

CG,CI

Read-In pass 1

CK

Keyword tatles

CL,CM

Read-In

eN

Keyword tatles

CO,CP

Read-In pass 3

CR

Keyword tatles

CS

CS, C'I'

Read-In pass 4

CV

CV,CW

Read-In pass 5

ED

Initialization,
sutroutine package
Declare Pass 2

CI

Format annotated
tiona:ry dump

dic-

AI,AJ

Format
dump

text

annotated

Closing phase
piler

AL

Controls extended dictionary compilation

of

corr.-

AM

Phase rrarking

AN

Controls
normal dictionary compilation

BX

JZ

AS
AV

CL

CO

AK

48-character set
rocessor
Build~3

second
phase directory

prephalf

Resident
phase
for
compile-time processor
Initialization
for cOltipile-time
essor

phase
proc-

diagnostic

Cleanup
phase
for
compile-time processor

on
file

AH

message printout

lED

I
I

r:-

ass L

for

EG

EE,EG

Initialization

EI

bfl,EI,EJ

First pass over
statements

EL

EK, f..L,

Second
pass
over
DECLARE statements

EP

EP

El\~

DECLA~E

Constructs
dictionary
entries for PROCEDURb,
ENTRY and CALL stat€::rr.ents

Appendix A: Guide to Phases and

~odules

335

I EW

EY

EV,EW

EX,EY,EZ

Constructs
dictionary
entries for LIKE attributes
Constructs
dictionary
entries for
ALLOCA~E
and
for
explicitly
qualified based variables.

IIA

IA,IB,IC

Stacks operators
operands

IIG

IG

Processes
array
and
structure arguments and
built-in functions

IlL
I

IL

Preprocessor for generic functions

IIfVi

1M, IN,
IP,IQ

Processes generic funcIc functions

I

I

I

FA

FA,FB

Checks
context
source text

FE

FE,FF

Changes
BCD to dictionary references

FI

FI

Checks validity of dictionary references

I

E'K

FK

Rearranges attributes

I

FO

FO,FP

Constructs dictionary
entries
for
ONconditions

l~ggreg~~~~_~2gica1_Eh~~~

of

lIT
I

Processes function triples

IIX

POINTER and AREA checking

IJD

FQ

FQ

Checks
validity
PICTURE chain

of

and

Evaluates
expressions

JD

constant

IJI
I

,J1, JJ

Structure
pre-preprocessor

IJI

JI,JK,JL

Structure preprocessor

JK

JK,JL,JM

Structure procEssor

JP

JP

Checks DEFINED chains

FT

FT,FU

Dictionary
house-keeping

FV

FV,FW

Merges
second
file
statements into text

E'X

FX,FY

Processes
identifiers
for cross reference and
attribute listing

LA

LA

Utility scanning phase

LB

LB,LC

Generates
triples to
initialize
AUTOMATIC
and CON~ROLLED scalar
variables

Constructs DECLARE and
OPEN control blocks

LD

LD

Constructs dictionary
entries for initialized
STATIC scalar variables
and arrays

LG

LG,LH

Expands DO loops

GA

GA

GB

GB,GC

Modifies I/O statements

GK

GK

Checks parameter matching

GO

GO

Preprocessor for second
check on parameters

LR

LR

Initialization
Phase LS

GP

GP,GQ,GR

Second
eters

LS

LS,LT,LU

Converts
expression
triples to pseudo-code

GU

GU,GV

Precesses CHECK
tion statements

LV

LV

Provides string
dling facilities

HF

HF,HG

Processes
assignments

ILW

LW

Initialization
phase LX

LX,LY

Converts string triples
to pseudo-code

MC

Constructs pseudo-code
for pseudo-variables

I HK
i.-iP

check on pararr.condi-

structure

I

HK,HL

Processes array assignments

ILX

HP

Precesses items defined
using iSUBs

MB
IMD

336

IvlE,

Scans

for

ADDR

£o:r

han·fo:r

func-

tions
and
generates
code for each

OP,OQ

GeLerates
pseudo-co6e
for
further
in-line
conversicns

OS,O'1',OU

converts constants to
required internal form

PA

Puts
eligible
into STA'IIC

PD

.PD

First
S'IATIC storase
allocation phase

PH

PH

Second S'IA'I'IC storage
allocation phase

PL

PL, PJVj

constructs
tables and DEDs

PP

PP

Sort~3

, P'I'

prI, PU, PV

Allocates
storage

lOP
,

I
constructs pseudo-code
for in-line functions

ME

MI
LvlK

ML

MG,MH

constructs pseudo-code
for in-line functions

MI,MJ

constructs pseudo-code
for in-line functions
constructs [seudo-code
for in-line functions

M.K

OS

,FA

I

Processes generic entry
names

ML
MM,MN,MO

Cl\LL
and
Processes
procedure
function
invoca.tions

AU'IOEATIC chain

Reorders BUY
statements

MS

MS, rJ1T

constructs pseudo-code
for subscripts
QF

QF,(!G,QH

Constructs prologues

Nl\

NA

Generates
pseudo-code
for
tranches,
RETURN
triples, etc.

IQJ

QJ,QK,QL

Allocates DYNAMIC StOIage

Generates Library calling sequences for DELAY
and DISPLAY statements

~QX

~A

i

Lists lengths of aggregates

NJ'

NT

OB

NG

NJ,NK

SELL

sYIT,bol

MP

NG

and

DSA's

Generates Library calling sequences for executable RECORD-oriented
input/output statements

NM,NN

Generates Library calling sequences for executable STREAM-oriented
input/output statements

NT

Pre-processor for NU

NU,NV

Generates Library calling
sequences
for
data/format lists

OB,OC

Proce~3ses

functions
variables

OE

OD,OE,OF

constructs Pseudo-code
for assignments

OG

OG,OR

Generates
library
calling sequences

OM

Ol~,

ON ,00

Generates
pseudo-code
for data type conversions in-line

KA,RB,RC

ProcE~sses

addressing

mechanisms
RF

~~l',f~

OPOQ

MG MH

340

AD

LA LV

GO

MS MT

XJ

NA NB

XK

NGNH

XL

NJ NK

XO

There are three resident tables: the
dictionary, the keyword tatles,
an~
the
phase 6irectory.
The dictionary is resident through part of the compilation;
the
formats of the dictionary entries are fully
described in Appendix C.
The
keyword
tables are resident during the read-in
logical phase,
and the phase directory
throughout the cowpilation.

In this way it is possible to hold in
storage only those keywords which
are
required for anyone pass. The keyword
tables are constructed in the following
rr,o.nner.
For ease of searching and modifying a
keyword tatle, it is organized into two
levels and by Keyword length, as shown in
IFigure 9.
The KEYWD routine is called by one of
the statement scanning routines, and is
supplied with a parameter which enables it
to decide which set of keywords to look at
(e.g., statement identifier, eN condition,
miscellaneous).
It does this by using the
parameter to extract the required relative
address
(B(A),etc.)
from the first lev01
directory.
The second level directory Frovides the KEYWL routine with the means of
reaching a Lable containing keywords of
correct l~ngth; the KEYWD routine calls the
KEYIn routine, which scans the next significant item in the source text to obtain
the length used in this look-u~.

The read-in phase is divided into five
passes containing the wodules shown in
Figure 8.
Modules CA and CC contain routines which
are cowman to all five passes. Successive
blocks of routines overlay the areas used
in the first pass by modules CE, CG, and
CI. The keyword tables are held in separate modules (CE, CK, CN, and CR) which IT:U~t
each be less than 1,024 bytes (lK) long.

r--------,

,

I
I
I I
CA
I I
I
Il _________ JI I

> Common Routines

I
r---------, I
Il _________
cc
JI I
I

------------T--------------T--------------T--------------T-----------r--------,

I

I

CE
l ________
J

r--------,

I
I
I
CG
I
lI ________ JI

r--------,

r--------,

I

I

CK
L _________
J

r--------,

!
I
I
CL
I
!l ________ JI

r---------,

r--------,

I

I

CN
l ________
J

r--------,

I
I
I
co
I
Il ________ JI

r--------,

I
I
CI
I
I
Il ________ JI

!
I
I
Cr-"
I
il ________.JI

I
I
I
CP
I
Il ________ JI

Pass 1

Pass 2

Pass 3

• Figure 8.

I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I
I

r--------,

Il ________
CR
JI

r--------,

I
I

CS

I
j

I

lj ________ J

r--------,

r--------,

I

I

CR
l ________
J

r--------,

I
I
I
CV
I
Il ________ JI

r--------,

I
I
I
C'I'
I
Il ________ JI

I
I
CW
I
I
Il ________ JI

Pass 4

Pass 5

Organization of Read-In Phase
Appendix B: Resident Tables

341

r------,

r-------------i

R(A) I
~------i First Level
I
I
r-i R (B) I Directory
I
I ~------i
I
I I R(C> ~--,
I
I ~------~ I
I
I I
I I
I
I I
I I
I
I
I
I
I
I
I r------, I r------, I r------,
Al>1
I Bl>1
I Cl>1
I Second

~------~

I

~------~

I

I

I

~------~

Level
tory

I

I Direc-

~------~

~------~

~------~

I

I

I

I

I

I

I

I
I

I
I

I

I

I
I

I
I

I

~------~

l ______ J

~------~

STLm DC FL1'x' where x is number of
keywords in this table
OC X'112315'

keyword in internal

code

~------~

~------~

.Figure 9.

The third level tables have a prefix
byte containing the number of entries in
this particular table followed by keyword
entries.
These consist of the keyword in
internal code plus the replacerrent character
(keywcrds recognised as
such
are
replaced Dy a single code byte).

DC X'55' replacement in internal
code
DC X'393839'
DC X'5A'

Organization of Keyword Table

FSTLVL DC AL2(STATID - FSTLVL)
DC AL2(ONID -

FS~LVL)

The second level tables contain relative
addresses, which enable thE KEYwD routine
to reference a third level table containing
keywords of the correct length.
If one of
these entries should contain zero,
then
KEYWD will interpret this as meaning that
no keywords of this length exist in this
table.

Some keywords are not represented hy one
word
(e.g.,
GO TO, BY NAME, and clearly,
the mechanism must be modified to cope with
the second word.
This modification is
achieved by OR-ing a 1-bit into the first
bit of the first level.
The presence or
absence of this hit is tested by the KEYWD
routine before the suspected keyword is
compared.
If the bit is absent, the pasa
through thE routine is quick, as there is
no possibility of an extra level search.
If the bit is present, the keyword must be
compared after the additional bit has been
AND-ed out.
If the comparison is equal,
the two bytes following the replacerrent
character are used as a relative address to
reach the next level table.

Kor~~~_2K_gD~~Y-B~gui~iD9_~gQi!i2Dal

£Q!N:arisoD.§
DC X'9726' GO +

~'1000'

DC X'40'
STATID DC FL2'm' where m is smallest
length in table
DC FL2'n' where n is largest
length in table
DC AL2(STLm-STATID)
DC

342

where the
symbols beginning STL are
the s~mbolic addresses of
the corresponding keyword
tables

AL2(STLn-S~ATID)

DC AL2(N XTLVL-*) Relative address
of next level table
The format of these extra level tables
is similar to that fer the third lEvel.
In
this way,
it is possible for national
languaye keywords to replace single wcrds
by two or more words, if so desirEd.

1. abort has occurred

1.

Because of the number of phases in the
compiler, the phase directory is split into
halves.
The first half is constructed
during the initialization of the compiler;
also a list of names of the phases in the
second half is kept in Phase AA. This list
is used to pass status indications (i.e.,
whether phases are wanted or not wanted)
from the first half to the second half.
Phase JZ uses the list to construct a new
directory for the second half.

2

LIST

1. not wanted

o wanted

3

4

LOAD

DECl,

1. not wanted

o wanted

1. not wanted

o wanted
5

The phase directory is constructed Ly
use of the BLDL macro and a build list.
The format of the build list is fully
described in the pUblicat:ien IBM_,§Y~J::.§!!!~~.£Q

6

E:XTF<-EF

1. not want,ed

o

wanted

XREF

1. not wanted

A'IK

1. not wanted

Q~~ati~~~~~.§!!!L-f2~!roJ-R~Qgra~_.§~£vif~~,

o wanted

Form C28-6541.

Each entry in the build list is 30 bytes
long. On returning from the BLDL macro,
two bytes of the name field and ten other
bytes of each satisfied entry in the build
list are used to construct a 12-byte phase
directory entry in the cOllipiler control
routines.
The build list is destroyed
after the initialization process is complete.

7

1.

o

o wanted

1. means U-format

o rreans }-forrnat
records on input

1

1 if track overflow
is presE'nt

Byte Number

2

1 -

3
4

severity
severity
Severity
Severity
where

The format of a phase directory entry is
as follows:

Phase name

2

5

St.atus byt,e

3
4 -

5

concatenation
number
Library identification

6 -

8

TTR of first text record;
where TT is the relative
track numcer, and R is the
block number on that track

9 -

10

Total
amount
required

of

and

The format of the control code word
(CCCODE), which is four bytes in length, is
as follows:

()

o

DUMP

1. wanted

o not wanted

6

CHAR 48

1 not wanted
o wanted

7

MACkO

1 not wanted
o wanted

o

SOURCE

1 not wanted
o wanted

1

CHK

1 not wanted
o wanted

2

BCD

1 BCD input
o EBCDIC input

3

SOUKCE2

1. wanted

storage

Length of first text record

11 - 1.2

2

code
code
cede
code
OOOO=FLAGW
0001.=FLAGE
0010=FLAGS

4

opr

o

not wanted

1. wanted
o not wanted

Appendix B: Resident Tables

343

5

1 AE required

6

1 program check
has occurred

7

1 means first recorc.

has been read
3

0

STIV1T

1 not wanted
0 wanted

1

MACDCK

1 not wanted
0 wanted

2

COMP

1 not wanted
0 wanted
1 rtacro phase now

3

running
1 batch record found
0 batch record not

4

found
5

1 EOF record found
0 EOF record not found

6

not used requirement

7

NEST

1 wanted
0 not wanted

344

This appendix describes the formats of
dictiohary entries during the compi~ation
of a source program.
The appendix is
organized in the following manner:
1.

Dictionary entry code bytes

2.

Dictionary entries for ENTRY points

element ~as a different code Lyte, but in
order to fermit ra~id identification of
dictionary entries,
the code bytes have
been allocated on the following basis:

Bit

Bit

posilio~ yal~~

3.

Code
bytes
entries

for

ENTRY

dictionary

o

o
1

4.

Dictionary entries for
and STRUCTU~E items

DATA,

LABLL,
1*

o
1

5.

Code bytes for LATA, L~BEL, and STRUCTURE dictionary entrieG

o
1

6.

7.

USES
of the OFFSE1 1 and OFFSET 2
slots in DATA,
LABEL,
and STRUCTURE
dictionary entries

Dictionary entries for:
label con~)tant.s
data constants
formal parameters
FILE entries
TASK and EVENT data
internal library functions
parameter descriptions
ON conditions
PICTURES
expression evaluation workspace
dope vector skeletons
symbol table entries
AUTOMATIC chain definitions
OED dictionarv entries
FED dictionar; entries
temporary dope vectors
BCD entries
second file statements

8.

Dimension tables

The dictionary is used to communicate a
complete description of every element of
the source program,
the compiled object
program, and the compiler diagnostic messages between phases of the compiler;
the
text describes the operations to be carried
out on the elements.
Each type of element has a characteristic dictionary entry, which is identified by a code occupying the first byte
of the entry.
In general,
each type of

o

3

1

lieani.!}.9
entry has ECL
entry has no BCG
entry is to be chained
entry not to be chained
not a rrEmLer of structure
merrber of structure
not dilfensioned
dimensioned

*This bit only applies to Phase FT which
constructs the storage class chains by a
sequential scan of the dictionary; later in
the compi ler, i tell.S wi th thi s bit on are
added to the storaye class chains.

In the second half byte, the following
Icodes have the meanings shown,
unless the
Ifirst half byte is X'C':
X'F'
X'7'
X'E'

rreans
rreans
means

data variablE
label variable
structure

The second and third
bytes of every
dictionary entry contain the length,
in
bytes,
of the entry.
If the entry has BCD
(i.e., the first bit of the entry is zero),
this length count does not include the ECD;
instead, the BCD, which follows the wain
body of the entry, is preceded by a single
byte containing one less than the number of
characters of BCD.
Using this general schewe,
the code
bytes alloc~t€d for dictior.ary
entries
appear in the following table. Code bytes
in the tanle which have no corresponding
descri~tion are not allocated.
X'OO'
01
02
03
04
05

06

Statement label constant
Procedure or entry label
GENERIC entry label
External entry label (entry type 4)
Built-in function, e.g., DATE
Te~porary variable and controlled
allocation workspace
Built-in GENERIC label, e.g., SIN

Appendix C: Internal Formats of Dictionary Entries

345

07
08
09
OA
OB
OC
OD
OE
OF
10
11
12
13
14
15
16
17
18
19
1A
1B
1C
1D

Label variable
File constant

Task identifier
Event variable
Data variables (not dimensioned or a
structure member)

42
43
44
45
46
47
48
49
4A

4B
4C
4D
4E
4F
80
81

Dimensioned label variable

Dimensioned task identifier
Dimensioned event variable

82
83
84
85
86
87

1E'

1F
20
21
22
23
24
25
26
27
28
29

Dimensioned data variable

30
31
32
33
34
35
36
37
38
39
3A
3D
3C

3D
3E
3F

346

Task identifier formal parameter
Event variable formal parameter

8E

8F

Data variable formal paralf,eter or
temporary

90
91
92
93
94
95
96
97

lnvocaticn count dictionary entry

Label variable in structure

Task identifier in structure
Event variable in structure
structure item
Data variable in structure

98
99

Dimensioned variable forrral
or temporary
File attribute entry

paramE:-t~r

9A

9B
9C

Dlmensioned and structured label
variable

9D
9E
9F

Dimensioned
structure
Dimensioned
structure
Dimensioned
Giffiensioned
va.riable

task identifier in

AO

event variable in

A1
A2

structure item
and structured data

Formal parameter type 1

Dimensioned task identifier formal
f;ararr!eter
Dimensioned event variable formal
parameter
Dimensioned data variable formal
parameter or dimensioned temporary

A3
A4

A5
A6

A7
40
41

ENTRY type 1 -- from a PROCEDURE
statement
BEGIN statement entries -- entry
typE:- 1
ENTRY sta.tement -- entry typ~ 1
Entry type 5
Entry type 3
Entry type 2
Entry type 6
Label variable formal parameter or
temp crary
constant
File formal parameter or file
temporary

8A

8B
8e
8D

2A

2B
2C
2D
2E
2F

88
89

ON CONDITION entry

A8
A9

structured label variable temporary

AA

AB
AC
AD
AE
AF

strcictured task identifier temporary
Structured event variable temporary
Temporary or formal parameter
structure
Structured data variable temporary

BO

4

Level

5

count

6-7

Dictionary ref~rencE to t~e
entry type 1 of the containing block

8-9

Dictionary reference of the
dictionary
entry for the
first
label
that
W5S
attached to the PROC£DUk£
statement

10-11

Dictionary reference to the
entry type 1 of the next
PROCEDURE or BEGIN staterrent
in the source program

12-13

The start of the chain
all AUTOMATIC variables

B1
B2

B3
B4
B5
86
B7
B8
B9
BA
BB
BC
BD
BE
BF

co

Dimensioned and structured label
variable temporary

Dimensioned and structured task
identifier temporary
Dimensioned and structured event
variable temporary
Dimensioned structure formal
parameter or temporary
Dimensioned and structured data
variable temporary
String dope vector for temporary
DED2 entry
Internal library function, e.g.,
conversion routines
Compiler label
Prefix ON list item
Parameter lists
Dope vector skeletons
Symbol table entry or DED entry
Error message, table entry, workspace
requirement, STATIC DSA, etc.
Record dope vector (RDV) entry
Workspace requirement entry
Select a member froIT ~ generic family
AUTOMATIC chain delimiter or Dope
Vector Descriptor CDVD> entry
ON condition entry
Label BCD entry
End of information in dictionary
block

C1
C2
C3
C4
C5
C6
C7
C8
C9
CA
CB
CC
CD
CE
CF

The format of an entry for a PROCEDURE
statement is as follows:

1

Code byte X'80'

2-3

Length

,

14-15 I
16-17 >
18-19 I
j

of

Dictionary references to
three dictionary entries
inaicating storage requirements for workspace

20-21

Dictionary
ChECK list

22-23

Dictionary
refErence
NOCrlECK list

24-25

Dictionary reference of the
first symbol table entry for
this block

26-28

Size of
block

29-31

Offset of the eight words in
the DSA used for addressing
the DSA

32-34

Offset of the storage used
for the pararre~er list necessary in an ALLOCATE- FREE
statement

35-37

Offset
of
the
two-byte
switch which is set on entry
to a procedure and tested at
a RETURN (expression)

38-40

Offset of the tour-byte slot
which
will
contain
tne
address of the first approximation of the target field
(the address of the implied
parameter)

41-42

Dictionary reference of the
entry type 1 of the first
ENTRY statement of the procedure. The Entry type 1
for PROCELURE
and
BNTKY
statements of anyone procedure form a circular chain.

the

reference

DBA

for

Appendix C: Internal Formats of Dictionary Entries

of
of

this

347

If there are no ENTRi statements in a procedure this
slot will contain the dictionary
reference of the
PROCEDURE's entry type 1,
i.e.,
of the entry in which
the slot occurs
43

OPTIONS code byte

44-57

Eight 2-byte dictionary references
to
dictionary
entries for prefix options.
Only those prefix options
which are changed within the
procedure have a dictionary
reference.
The
remainder
are zero.
~he order of the
options in this list is the
same as in the options byte.
(See "Options Code Byte" in
this Appendix)

60

Options change byte.
This
byte contains a one bit for
each prefix option which is
changed within the procedure.
Its format is identical with the normal options
byte

61-63

Offset of workspace used in
BUY statement

64

Optimization byte

65

2*n where n is the number of
parameters
at this entry
point

66 onwards N dictionary references
formal parameter
type
entries

The format for the entry type 1 derived
from an ENTRY statement is as follows:

348

Code byte X'82'

2-3

Length

Level

5

Count

6-7

Dictionary reference of the
next member in the circular
PrtOCEDURE-ENTRY chain

8-9

Dictionary reference of the
dictionary
entry for the
first label en the original
ENTRY statement

10-12

The offset
entry point

13

2*n where n is the number of
par.-ameters

of the apparent

14 onwards n jictionary references to
the formal parameter type 1
entries
The lal:els on a PROCEDURE or ENT.t{Y
statement will be placed in the dictional~y
according to the following format:

1

Code byte X'Ol'

2-3

Length

4-5

Hash chain(STATIC chain)

6-8

Pointer to transfer vector

9-10

statement numl:er

11

Other 1 code byte.
(See
"First code byte - other 1"
in this Appendix.) The last
bit will always be set to
one, unless the label is the
last label for a particular
statement, in which case the
last bit will be set to
zero.

12-13

Pointer to entry type 2

14-16

Spare bytes for final assembly.
The pseudo-code phase
dealing
with
RETU~N
(expression)
will
insert
into these bytes a
code
which rrust be stored in a
specific slot in the DSA
whenever the procedure is
entered via this label.
The
coJe is used by the prologue
construction phase.
Byte 16
in the first label for each
PROCEDURE or ENTRY statewent
will contain t.he nunlber of
latels associatEd with that
stCiterr.ent

of
1

The format of an entry for a BLGIN
statement is similar to the above for the
first 34 bytes. The initial code byte is
X'81',
and the dictionary reference in
bytes 8 and 9 is that of the first label on
the original BEGIN staten;ent, if any.
If
there was no statement label,
then the
statement number occupies this slot. The
presence of a state~ent nurrber or statement
label is indicated by a flag byte in
position 35.
This is set to aN for a
statement number, or to SL for a state~ent
label.
Bytes 36-56 contain the same as
bytes 44-64 in a PROCEDURE entry type 1.

1

4

17

Block level

18

Block count

19

count of containing block

20

BCD length·-1

21

BCD of labl2l

~ntry
type 3 dictionary entries are
constructed either frorr an ex~licit declaration
or from implicit and default
rules. Th0ir for~at is as fellows:

1

Code tytel:. '84'

2-3

Length of entry.

4-5

Dictionary
referenCe
of
entry type 1 of PROCEDURE or
ENTRY statement.

6-7

Dictionary
reference
of
entry type 2.
This describes the value returned
when the label associated
with this entry type 3 is
invoked as a function.

8-10

The offset in the DSA of the
containing
bleck
ot
the
first approximation of the
storage
for
the
value
returned
by
this
entry
point, when it is invoked as
a function.

11

The entry code byte.
(See
"Entry Code Byte" in this
Appendix.)

12-13

The dictionary reference of
an item in the AUTO~ATIC
chain of
the
containing
block. Entry type 3 entries
feature in the
AUTOMATIC
chain of
~he
containing
block.

14-15

switch bytes. The pseudocode phase
dealing
with
RETURN
(expression) inserts
into these tytes the bit
pattern of the code which
will signify that entry to
the procedure was by the
laDel associated with this
particular entry type
3.
Phase QF will use this to
create ~VI instructions.

16-17

Dictionary reference of a
SETS list.
1his will be
zero if the attribute SETS
was not specified. The format of a SRTS list is given
at the end of this section.

18-19

Dictionary reference of the
dictionary
entry for the
label belonging to this
entry type 3.

An entry type 2 describes the data
attributes of an entry point.
The format
is as follows:

1

Code byte X 185 I

2-3

Length.

4-5

Dictionary
en·try type 3

6-8

Offset, i.e.,
the position
of the string dope vector in
the DSA of the block to
which
the entry belongs.
This will be zero if the
item is not a string.

•

reference

of

9

DATA byte
(sf;!e "DATA Byte"
in this Appendix).

10-12

Data information, which is:
1. with numeric data,
the
precision and
sc~ling,
left jUBtified
2. for strings of fixed maximum length,
the binary
version
of the string
length in the two leftmost bytes of the data
information
3. for strings of adjustable
length,
the text reference of a second file
statement
giving
the
expression for the string
length

13-14

Picture table reference,
if
required. The storage allocation phase will
change
this to the dictionary reference of a DED entry,
the
picture
table
reference
being moved into this reference if necessary

Appendix C: Internal Formats of Dictionary Entries

349

20

21

Status byte. This byte will
contain
X'OO'
or X'FO'.
X'OO'
indicates that the
entry was constructed from
an ENTRY declaration which
had parameter descriptions.
X'FO'
indicates the entry
was constructed either artificially or from an ENTRY
declaration which did not
have parameter descriptions.
2*n where n is the number of
parameters. This is zero if
the status byte is X'FF'

22 onwards If the status byte is X'OO'
there are n two-byte references of parameter descriptions~
A parameter description
is a dictionary
entry
for the particular
type of item but without a
BCD.
If one particular parameter is not
described,
i.e.
if there are two adjacent commas in the ENTRY
attribute,
then the dictionary reference is zero.
When the status byte
is
X'FO'
then an entry type 3
is only 23 bytes long.
22+2n23+2n

350

Entry type 4 dictionary entries describe
external entry points. Their format is as
follows:

1

Code byte X'03'

2-3

Length

4-5

Hash chain, later used
as the STATIC chain

6-8

Offset of the load constant
in STATIC

9-11

Offset in the DSA of the
declaration
blocK of the
the
storage
for
first.
approximation of the value
~-eturned.

12-13

Th€ dictionary reference of
an item in the AUTOMATIC
chain
of
th~
declaring
block. Entry tyre 4 entri~s
are members of the AUTOMATIC
chain
of
the
declaring
block.

14

The ENTRY byte. (See "ENTRY
Byte" in this Arpendix.)

15

The DATA byte. (See "DATA
Byte" in this Arpendix.)

16-18

Data information which is:
a) with numeric data, the
precision
and scaling,
left justified
b) for strings of fixed maximum length, the binaLY
version of the
string
length in the two leftmost bytes of the data
information
c) for strings of adjustable
length, the text reference of a second file
statement
giving
the
expression for the string
length

19-20

Picture table address if
required.

21-22

Dictionary
SETS list

23

Status byte. If this
X'OO' the rreaning
san:e as the stat.us
an entry type 3.
byte is X'FF' it is

DECLARE statement number

1

Code byte X'C8'

2-3

Overall length of original
BCD entry

4-5

2*nl where nl is the number
of identifiers in the SETS
list.
If * was specified,
these bytes contain 2*nl+l.

6-5+2*nl

Dictionary references of the
identifiers in the SETS
list.

6+2*nl

n2, the nurrber of parameters in the SETS list.

7+2*nl
onwards

n2 numbers of one byte each.
These are the parameter
numbers and will be in
ascending order.

referenc~

of a
bytE-' is
is the
byte i.n
If tne
irnplit::d

that no parameters were
cribed
24

2*n where n is the number of
parameters. This is zero if
the status byte is X'FF'

25

n dictionary references to
parameter descriptions as in
an entry type 3

25+2*n

Level

26+2*n

Count

27+2*n

BCD length-1

28+2*n
onwards

BCD of identifier

TIN entries. 1hese ~ntrics
are made when an identifi~r
is given the attribute GENERIC.
The rointers ~rE to
the entries which contain
specifications of the various possible attributes

des~

Entry type 5 dictionary entries describe
the entry points which are formal parameters.
They have the same format as entry
type 4 except that:

12+2n

Level

13+2n

count

14+2n

BCL length-1

15+2n
onwa.rds

BCD

This code byte is used in ENTRY type 3,
4, and 5 dictionary entries. 1he format is
as follows:

Byte 1 is X'83'
Bytes 4 and 5 contain the address
the formal parameter type 1 entry

of

Bytes 6 to 8 contain the offset in the
DSA of the declaring block of the
address slot associated with a forwal
parameter
No BCD is contained in

th~

entry

The format for a GENERIC entry point
as follows:

IRREDUCIBLE

2

REDUCIBLE

3

USES

4

SETS

5

SECONDJI.R Y

6

RECURSIVE

7

Has data attribute

8

Not used

is

1

Code byte X'02'

2-3

Length

4-5

Hash chain

6-8

Offset 1 Slot

9-10

DECLARE statement number

11

2n, where n is the number
of two-byte addresses following

12-11+2n

1

This code is used in entry type 1
dictionary entries for PROCEDURE statements.
The format is as follows:

Pointers to entry type 4
or 5, ENTRY labels, or BUIL-

1

REENTRANT

2

ON Block

3

MAIN

4

TASK

5

RECURSIVE

Appendix C: Internal Formats of Dictionary Entries

351

another chain, e.g.,
MATIC or STATIC chain

6

OPTIONS

7

contains RETUHN (expression)
statement

8

ENTRY name is passed as
argument

AUTO-

2-3

Length

4-5

Initially contains the hash
chain. After the dictionary
scan, this is re-used to
form another chain, e.g.,
AUTOMATIC or STATIC chain

6-S

Offset inserted by storage
allocation phase
(as for a
data item)

9-10

DECLARE statement number

11

'Other l' code Dyte
(See
"First Code Byte - Other 1"
in this Appendix.)

12

'Variable' codE::
"Variable Byte"
Appendix)

13

(See
'Other 2'
code byte
'Second Code Byte - Other :2"
in this Appendix.)

14

(See
'Other 3' code byte
"Third Code Byte - Other 3"
in this Appendix.)

15

'Other 4 '
code byte
(Se-e
"Fourth Code Eyte
Other 4"
in this Appendix.)

This code byte is used in entry type 1
dictionary entries.
Format of the Optimzation Byte:

1

Not
eliqible for
library workspace.
in

DSA

2

Eligible for DSA
storage.

3

Needs invocation count.

4

Needs current file slot.

5

contains

6

Not used.

7

Not used.

S

Not used.

in

STATIC

asynchronous CALL.

byte
in

(See
this

-

16 onwards Content determined by variable code byte.
After variable information
2 nytes

Symbol slot

1 nyte

Level

1 tyte

count

1 byte

BCD length-l
BCD

1

352

Code
byte may be X'07',
X'17', X'27', X'37', X'S7',
X'97',
X'A7', A'B7'.
The
last four cases apply when
the item occurred in a parameter list in a PROCEDURE
or ENTRY statement.
In this
case,
bytes 4 and 5 will
contain the dictionary reference of the corresponding
formal
parameter
type 1
entry.
In the first four
cases,
bytes 4 and 5 initially
contain
the hash
chai~.
After t~e scan of
the dictionary,
this slot
will
De re-used to form

with the exc~ption of the 2-byte syrrbol
slot, the general format is the same as for
a structure.

The format is as follows:

1

bytE may be X'OF',
X'lF', X'2F', X'3F',
X'PF',
X' 9F', X' AF', or X' EF' .
'Ih,~
COde

last four cases apply when
the iterr occurred in a parameter list in a PROCEDURE
or ENTRY statement.
In this
case, bytes
4 and 5 will
contain the dictionary reference of the corresponding
formal
paraweter
type
1
entry.
In the first four
cases, bytes 4 and 5 initially cont~in
the
hash
chain.
After the scan of
the
dictionary this slot
.be re-used to forn'
will
AUTOanother chain,
e.g.,
MATIC or S~ATIC chain
2-3

Length

4-5

See above

6-8

Of f set.
Se,,,,
"Format
Variable
Information"
this Appendix

9-10

22

Variable infcrrration.
The
contents of these bytes are
deterrrined by the variable
code byte.
See "Forroat of
Variatle
Information"
in
this Apr:;endix

1 byte

Level

1 byte

Count

1 tyte

BCD length-l

of
in

DECLAHE statement
number.
If the variable has not been
ex~licitly
jeclared,
this
number is zero= otherwise,
it is the statement numner
assigned to
the
DECLARE
statement from which
the
variable was obtained.

11-16

Six code bytes.
These are:
other 1, variable, other 2,
other 3, other 4, and data.
(see "Code bytes"
in this
Appendix for a description
of these bytes.)

17-19

Data inforrration, which is:
1. with numeric data,
the
preciSion and
scaling,
left justified
2. for strings of fixed maximum length,
the binary
version
of the string
length in the two leftmost bytes of the data
informat:ion
3. for strings of adjustable
length,
the text reference of a second file
statement
giving
the
expression for the string
length

20-21

the ~icture table entry
2. If the DED bit is on and
the SYMBOL bit off, this
slot
points at a
D~D
entry.
I f thE. i ten! has a
picture,
tte CED entry
will contain the picture
tal::le address
3. If the SYtv;BOL bi t is OIl,
the slot will point at a
SYMBOL entry.
This again
will contain thE picture
addrEss, if specified

BCD

These entries do not include base elements, i.e., they do not have any data
attributes or LAB~L.
Their format is:

1

Code byte may be
X'2E',
X'3E', X'AE', or X'BE'.
The
last two indicate that there
is no BCD attached.
When
the identifier occurs in the
parameter list of a PROCEDURE or ENTRY
statement,
bytes
4-5 ccntain the dictionary
reference of the
formal
parameter
type 1
entry.
In the case of the
first two code bytes, bytes
4-~ of the
entry initially
contain the
has~
chain.
This is later modified ny
Phase FT

2-3

Length

4-5

See byte number 1

Symbol
slot,
containing
ei t:her Z81:'0,
or one of the
following:
1. If
the SYMBOL and DED
bits are not aD, and the
data iterr has a picture,
these bytes contain the
dictionary refErence of

Appendix C: Internal Formats of Dictionary Entries

353

6-8

1. For structures which are
parameters, or are dynamically defined, the offset froIT. the start of the
major
structures
dope
vector
or
the
minor
structures dope vector.
2. For major structures, the
offset from the start of
AUTOMATIC or STATIC of
the address slot which
will point at the structure dope vector
3.
For CONTROLLED structures,
only that specified for minor structures
in 1 , above
4.
For structures in STATIC EXTERNAL the contents
depend on the setting of
the
"dope
vector
required"
bit
in
the
"other 3" code byte.
If
this bit is off and the
item is a major structure, the slot contains
the offset from the start
of STATIC of the slot
which will contain the
address of the first byte
of the structure.
If the
dope vector bit is on,
the
slot contains the

354

offset frorr the start of
STATIC of the
address
slot which will point at
the structure dope vector.
The offsEt slot is
not used in eith~r of thE
above
cases for minor
structures

These bytes are used by the
storage allocator; they will
finally contain one of the
following offsets:

9-10

DECLARE number,
i.e.
the
stateroent nurrber
of
the
DECLARE staterrent which Froduced the structure

11-15

Five code bytes. These are:
other 1, variatle, other 2,
other 3, and other 4

16

Variatle information.
The
content is deterrrined by the
variacle code byte, and will
always include the information required fer structure
members. Th~ format is described under
"Format
of
Variatle
Information"
in
this Appendix
After variable infcrmaticn:
byt~

Level

1 byte

Count

1 byte

BCD length-l

1

BCD

r-----T-------------------------------------T------------------,

I Bit I
I No. I

I
I

Description

I
I

Set Iiy

~-----+-------------------------------------+--------- ---------i

I 1
I
I
I
I 2
I
I
I 3

Symbol or requires load constant if I Phase EL, FT, or I
label constant
I NU
I

I
Defined on

Phase EL

Mentioned in CbECK list

4

Needs DVD

5

Last member in structure

6

Variable dimensions

7

*
*

8

dimensions
string length for data item

--More labels follow for a label
constant

_____

~

---Major Structure - no member of
the structure has a dimension or
length attribute
which is not *
__________
•___________________________

~

I
I
j

I
I
Phase FO
I
I
I
Various
I
I
Phases FL or LW I
I
Phase EL
I
I
Phases EL and FT I
I
Phases EL End FT I
I
Phase EG
I
I
I
Phase LY
I
I
_________ _________ JI

r-----T-------------------------------------T------------------,

I Bit I
I No. I

I
I

Description

Set by

I
I

~-----+-------------------------------------+--------- ---------i
1
Dynamically defined
Phase EL
I
2

CONTROLLED major structure with
varying strings

3

NORMAL

4

Reserved

5

Formal Parameter

6

INTERNAL

'7

00

=

=

0, ABNORMAL

=

0, EXTERNAL

I
I
I
I
Phases EI and FT I
I
I
I
Phase EI
I
I
Phase EI
I
I
Phase EL
I
Phase EY

1

=

1

AUTOMATIC or DEFINED or siffiple
parameter

j

and
01

8
______

~

STATIC

11
CONTROLLED
_____________________________________

~

I
I
Phase EL
I
I
Phase EL _________ JI
_________

Appendix C: Internal Formats of Dictionary Entries

355

r-----T-------------------------------T------------------------------,

I Bit I
I No. I

I

I

Descriftion
I
set by
I
~-----+-------------------------------+------------------------------~
1
I Needs dOpE vector
I Phases EK and EY if variable
I
I dimension entries, variable
I
I string length, or in
I
I CONTROLLED storage;
I
I Phase NU when item appears
I
I in an argument list

I
I
I Needs DED
I Phase NU
I
I
I Needs no storage for the iten I Phase GP
I itself
I
I
I
Correspondenc~ defined
I Phase FV

2
3

4
5

Chameleon

Phase GP

6

Sign bit for first offset

Phase PH for STATIC and
Phase PT for AUTOMATIC

7

Indication of the state of
the value in the first offset
rubbish
0
1 = good value

Phase PH for STATIC and
Phase PT for AUTOMATlC

I
I 8
IL _____

As above but for second
~

address slot
_______________________________

Phase PH
~

_______________ _______________ j

r-----T-------------------------------T--------------------,

I Bit I
I No. I

I

I

Description
I
set by
I
~-----+-------------------------------+--------------------~
1
A constant has been produced
Phase JK
I
for this structure or array
I

00
01
10
11

2
and
3

Not te:r.porary
Tempora.ry tyr:;e 2
Temporary not sold
COBOL temporary

Phase GP, HF, HK,
IM, or LB

4

~ember

of defined structure

Phase FV

5

Packed

=

Phase EL

6

iV.a jor structure

PhasE l.L

No dope vector initialization

Phase GP

A temporary type 2 which has
been incorporated in workspace 1 or RDV reguired.
For
COBOL temporaries this bit
means RDV required
_______________________________

Phase Of

I
I 7
I
I 8
I
I
I
I _____
L

356

~

0 Aligned

=

1

~

_______________ _____ j

I
I
I
I
I

r-----T-----------------------------------,
Description
I

I Bit I
I No. I

I

~-----+-----------------------------------i

I Second addr~ss slot
I
I
I
2
I Dimensioned
I
I
I
3
I ~Ember of structure
I
I
I
4
I Value list for label variables or I
I
I pas for defined iteas
!
I
5
I Initial value if not a'structure I
I
I or LIKE if a structure
I
I
6
I hXTERNAL slot
I
I
I
7
I Defined slot
I
I
I
Il _____
8
I ___________________________________
CONTROLLED fro~ ALLOCATE statement JI
1

~

For a detailed explanation of the significance of these bits and a description of
the extra slots associated with them, see
"Format of Variable Infornati.on" in this
Appendix.

r---------T---T------------T----------T---------T----- ----T---------T-------T---------,

I
I BIT
I

I
I
I

1

I
I
I

2

I
I
I

3

I
I
I

I
I
I

4

5

I
I
I

6

I
I
I

7

I
I
I

8

I
I
I

~---------+---+------------+----------+---------+---------+---------+-------+---------f

I CAD or I
I NUMERIC I
I FIELD
I

1

I POINTER/
I OFFSET *
I.

I Sterling I Long
I NON
I Short/
I S'IERLING I OFFSErr

I Cad.
I Binary I Float I Complex I 1
I NumerlC I Decimal I Fixed I Real
I 0
I Field
I
I
I
I

~---------+---+------------+----------+---------+---------+---------+-------+---------i

I STRINGS I 0 I Adjustable I Aligned I Varying I No
I Char
I AREA I Not
I 1
I
I
I Length
I
I
I Pict.urc I
I VARI- I Used
I
I Packed
I
I Picture I Bit
I ABLE* I
I 0
I
I
I String
Il _________ I ___ I ____________ LI __________ I _________ I _____ ____ LI _________ LI _______ LI _________ JI
~

~

~

~

*AREA, POINTER, and OFFSET data byte settings are:
AREA:
X'02' superimposed on the non-plctured CHAR string data byte entry
POINTER: X'40' superimposed on the FIXED EIN data byte entry
OFl'SE'l:

X'50'

superim~osed

on the FIXED PIN data byte entry
position of the information when the presence
of
other
attributes alter its
address.

Data
items,
labels~
and structures
require pointers to various tables if they
have certain attributes;;
for example, if
they are dimensioned or defined on a base.
Space will be left for information only if
the attribute is present. This leads to an
addressing problem of how to find the

The protlem is resolved by collecting,
into one byte, all the attributes which
require more than one bit to describe them.
This has taken the second place in all the
collections of attribute bytes. The presence of a bit in this byte indicates the

Appendix C: Internal Formats of Dictionary Entries

357

presence of further information. The offset of this information from the start of
the variable information is given by the
presence of the bits to the left of the one
of interest.
Each bit will have a value
associated with it.
The sum of the values
of the bits present and to the left of the
one of interest will give the value of the
offset. This is achieved in the coding by
moving the code byte, masking off the bits
to the right of the one being tested and
the bit itself, and translating the byte.
The information produced by the presence
of the following bits in the variable byte
is as follows:
Bit number 1:
----The second offset slot is 4 bytes long.
The contents of this slot are d~scribed
in this appendix.
The decision to
include a second offset slot in a
dictionary entry is based on questions
about the nature of the identifier.
Refer to figure 9.

r-,

IYI
l_J

implies that a second offset
slot will be given,

r-,
INI

l_J

that it will not.

Bit number 2:
----------The dimensioned

bit.
The slot produced
by this is three bytes long. Tne first
byte will contain the number of dimensions,
the next two the dictionary
reference of the dimension (multiplier)
table

Bit number 3:
----Member-of a structure tit.
This slot
is ten bytes long and has the following
format:

358

1

Declared level number

2

True level

3-4

Dictionary reference of
the containing structure

5-6

Dictionary reference of
the next merrter in the
structure

7

Alignment

8-10

Element length

n~mber

~.tL n U~12~f_~.!..

POS for defined items.
slot will contain the POS
binary intEger.

Bit number 5:
----The--initial value
four-byte slot.

or

The two-byte
value as a

LIKE

bit is a

1. For normal initial value.
The first
two bytes contain the dictionary
reference of the associated 'Initial
Value' dictionary entry. Tne four~h
byte contains X'FO'
2. For INITIAL CALL.
The first three
bytes contain the text reference of
a second file statement. The fourth
byte contains X'OF'.
3. For initial labels.
The first t~ree
bytes contain the text referencE of
a s~t of second fil~ statements.
The fourth byte contains Y'FF'.
If
there is an initial slot but no
initial values the fcurth byte contains X'OO'
4. For LIKE.
The first two bytes contain the LIKE chain.
The third and
fourth bytes contain the dictionary
ref~rence of the liken~d structure
bi~!:!.2!:0b~f_£.!..

The E1TERNAL bit.
This
contains the ESD number

2-Lyte slot

Ei!:_'!}~!!2bef_l.!..

The DEFINED bit.
This
contains the following:

7-byte

slot

1-2

Defined chain.

3-4

Dictionary

5-7

The text reference of a
second
filE
statEment.
After the dictionary these
bytes will contain X'FFFFF.f'
if the base is unsubscripted.

ref~rence

of tase

Bit number 8:
----The-CONTROLLED from ALLOCA'IE bit. This
bit is on for dictionary entries for
level 1 CONTROLLeD data specified in
ALLOCATE stat~ments. The two-byte slot
contains the dictionary reference of
the dictionary entry for the dat~ constructEd from the DECLARE statement

r---------------,
I Entry
I
L-------T-------J

I
V

r---------------,

YI Is it data
I
r--~ iteffi?
I
I
L-------T-----·--J
I
IN
I
V

I

r---------------,

r---------------,

r---------------,
I Is it formallY

r---------------,

I
I Is it strucIN
I Is it label
IN
r-,
I
I ture?
~-----·---->I variaole?
~-->INI
I
L-------T-----·--J
L-------T-------J
L_J
L_________ >I<------------------------- Y
YV
I Is it strucIN
r-,
I parameter?
~--------->I ture member?
~-->INI
l~------T-------J
A
L-------T-------J
l_J
IN
I
IY
V

r------·---------,

I Is it con-

I
I

IY
I
I
~----J
I trolled?
I
L-------T-------J
IN
V

r---------------,IY
I

V

r-,

IYI
L_J

r---------------,IY

I Is it ex-

r-,
I Is it static? ~--------->I
~-->IYI
I
I
I ternal?
I
L_J
L-------T-------J
L-------T-------J
NI<-------------------------JN
V

r---------------,IY r-,
I

I Is it string? ~-->IYI
l--------T-------J
L_J
IN
V

r---------------,IY r-,
I Is it struc-

I ture member?
~-->IYI
l-------"T-------J
L_J
IN
V

r---------------,I Y
I

r-,

I Is it defined?~-->IYI
L-------T-------J
L_J
IN
V

r---------------,
I Is it dimenIY
r-,

I sioned?
~-->IYI
L-------T-------J
L_J
IN
V

r-l

INI
.Figure 10.

L,_J
Decision to Include a Second Offset Slot

Appendix C: Internal Formats of Dictionary Entries

359

Basic

elements:

OFFSETl slot not used.
contains
offset
of
element's dope vector from the start of
the EATERNAL control secticn

--OF~~~~2---sIot

The OFFSETl slot is in bytes 6-8 of the
jictionary entry and the OFFSET2 slot is
part of the variable infor~ation.

MajQf_5:!DQ_!!}inoE_~!!.~E!~~~~~

Mai2~ ___~~~~~2~ ___ st~~~!ur~ __~nt~i~~~

OFFSETl slot not used.
OFFSET2
contains offset of structure dope
tor from start of STATIC INTERNAL
trol section (if there is a
vector)

slot
veccondope

Basic elements:
OFFSETl slot contains
--offset o~virtual origin (in the case
of dimensioned ite~s) or offset of item
(when not dimensioned)
from start of
STATIC
INTERNAL
control
section.
OFFSET2 slot contains offset of dope
vector (if there is cne) from start of
STATIC INTERNAL control section

OFFSETl slot:
not used. OFfSET2 slot contains offset
of structure dope vector from point to
which pseudo register points.
(In the
case of the major structure, this value
will De zero.)

Basic elements: OFFSETl slot not used.
--OFFSET2---slot
contains
offset
of
element's dope vector
relative
to
address in pseudo-register.

OFFSETl slot contains offset cf vertical
origin of the array relative to start of
data region. OFFSET2 slot ccntains offset
of dope vector (if there is one) from the
start of the data region.

Const~!!~di!!J~nsi2~~~

as
for
STATIC
INTERNAL except that all offsets are
relative to start of DSA.
as

for

STF.TIC

~Qj~~tabl~_Qi!!Jensi2~~~

major and minor
structure entries: OFFSETl slot not
used. OFFSET2 slot contains offset of
structure dope vector from start of DSA
(if there is a dope vector)

~Qj~~!~Ql~_Qim'§D~i2D~~

OFFSET·l slot not:
used.
OFFSET2 slot contains offset of
dope vector from start of data region.

~~~iE_ el~me~!Q~

OFFSETl slot not used.
slot
contains
offset
cf
elem~nt's dope vector (if there is one)
from the start of the DSA

OFFSET2

OFFSETl slot contains offset of address
slot which contains a pointer to the arrays
dope vector.
(Not used in the case of
CONTROLLED.)
OFFSET2 slot is not present.
~~j2~_~!ruct~Ee

e!}!!:y~
OFFSETl slot contains offset of address slot from start
of data region. OFFSET2 slot contains
size of EXTERNAL
control
section.
(Offset
of
major
structure
dope
vector = 0.)

Minor structure entries:
OFFSETl slot
--not-used:--OFFSET2-sIot-contains offset
of structure's dope vector from start
of major structure dare vector.
360

OFFSETl slot ccntains offset of datum
from start of data region. OFFSET2 slot
contains offset of dcpe vectcr (if there is
one) from start of data region.

11

Other 1 Code
Byte
(See
"First Code Eyte - Other 1"
in this Ap~endix

12-14

Second offset Slot

15-16

Spare for Final Assembly

17

Level

18

Count

19

Count of Containins Block

20

BCD Lengt.h-1

21 etc.

ECD

E:~~~!:~Ql~ __ l.englb.!.

OF£o'SETl slot not
u3ed. OFFSET2 slot contains offset of
dope vector from start of data re~ion.

OF?SE~l slot contains offset of
address
slot which points to string dope vector
(not used in the case of ~ONTROLLED).
OFFSET2 slot not present.

OFFSET1 slot contains offset of datum
OFFSET2 slot
from start of data region.
not present.

OFFSETl slot contains offset of address
slot which points to datuffi (not used in the
case of CONTROLLED).
OFFSET2 slot not
present.

1

Code byte X'OO'

2-3

Length
byte

4-5

Hash chain - STATIC chain

6-8

Offset

9-10

statement
number
(except
when the latel is mentioned
in an ON CHECK list,
in
which
case it gives the
chain to the label BCD dictionary entry, code
byte
X' CE')

up

to

The format is identical to that of a
label constant, except for the cmission of
the BCD. The code byte is x'C3'.

These entries are derived froIT the PROCEDURE and ENTRY statements, and do not
contain any information other than that the
The
identifier is a formal parameter.
format is as follows:

1

Code byte X'40'

2-3

Length

4-5

Hash chain

6-7

These bytes will point to a
full
description
of the
identifier after Phase EK,
or Phase FA, or Phase FE.
These full descriptions are
dictionary entries for the
type of item they are describing.
They do not contain the FCD of the identifier,
but in the slot for
the hash chain there is the
dictionary reference of the
corresponding forreal parameter type 1 entry.

8

Level

9

Count

10

BCD length-l

11

BCD

BCD length-l

Appendix C: Internal Formats of Dictionary Entries

361

For a description of the types of entry
pointed to, see "Dictionary entry for parameter descriptions."

16

Level

17

Count

is

BCD length-l

19 onwards BCD

For attributes specified in OPEN statement the format is as follows:

Code X'B9'
is used for file parameters
and for file temporaries.
~he
format of
the entry will be the sarre as that for
label variables.

1

Code byte X'9S'

2-3

Length

4-5

STATIC chain

6-S

OFFSET1

9-10

DECLARE statement number

11 onwards String of second level markers (without preceding 'CS'
code bytes) one for each
attribute other than FILE,
TITLE and IDENT.

This entry is created by the read-in
phase and is referred to only as the
argument of an ATTRIBUTES marker.

Code X'Cg' is used for
string.

the

1

Code byte X'C8'

2-3

Length

4 onwards

Internally
argument
option

environrrent.

coded form
of
of
ENVIRONr-~ENT

Code X'CS' is also used for attributes
collected from the DECLARE statement.
Code X'OS'
is used for file constant
entries, which have the following format:
Code byte X'C8'

1

Code byte X'OS'

2-3

Length

2-3

Length

4 onwards

4-5

Hash
chain,
subsequently
EXTERNAL
or STATIC chain
depending on whether FILE is
EXTERNAL or INTERNAL

String of second level rrarkers
(without [receding code
bytes X'C8'), one for each
attribute other than FILE,
ENVIRONMENT,
EXTERNAL,
or
IN'IERNAL

6-S

OFFSETl (S~ATIC or
vector offset)

9-10

Declare statement number

11-12

Dictionary
attributes
none)

13

Code byte (similar to th~
"othsr 2" code byte.
Only
internal/external bit used)

1

Code byte X'S8'

2-3

Length

Dictionary
reference
environrr.ent string (zero
none)

4-5

Hash chain

6

DATA tyte

14-15

362

1

transfer

reference
entry
(zero

of
if

of
if

The format is:

7

Data Precision*

8

Scale Fact:or*

Eighth bit:
1 indicates that no conversion is required.
2.

After
the constants processor the
bytes 6 through 8 will contain the
offset of the constant from the start
of the pool of constants.
If a dOfe
vector is re~uested then the offset ot
this frow the start of the constants
pool is eight less t.han that of th.2
converted constant.

3.

Shoule a DED be required, this will Le
constructed by Phase PL.
The two
bytes,
precision(2)
and
scale
factor(2),
will contain a dictionary
reference of a DED dictionary entry.
If the constant requires a dope vectcr
then Phase OS will make a dictionary
entry for it, and the dictionary reference preceding the PCD will be the
dictionary reference of this.

*'l'hese are the apparent precision and factor derived
from the BCD of the constant
( ~3ee Note 2)
9

Type (see note 1)

10

DATA byte (2)

11

Data Precision (2) **

12

Scale Fact:or (2) * *
**These bytes are inserted
by the phase requesting conversion.
If a picture is
required,
these bytes are
used to contain a
picture
table reference (see Note 3)

13-14

Dictionary reference - used
when a phase requires a constant to be converted into a
specific location in storage

15

BCD

The format of the dictionary entries for
task identifiers and EVENT data is,
afart
from the initial code byte, the same as
that for a label variable.

Notes:
1.

The type byte has the following

mean-

ing:

00 - normal

BCD constant.
The first
offset slot must be relocated by the storage allocation phase,
to contain
the offset of the converted
constant from the start of
STATIC storage, rather than
from the start of the constants pool

11 - the BCD is replaced by the internal form of the constant.
The first offset slot is
treated in the same way as
for the code 00
10 or 01 - the constant is required to
be converted into a
specific location in storage.
The second code implies the
converted constant should
be made negative
before
being stored

'l'he forrT,at is:

1

Code byte X'04'

2-3

Length

4-5

Hash chain later
the STATIC chain

6-8

Offset - gives the position
in S~A'lIC storage of the
load constant for Library
routine

9-10

Code bytes - the first code
byte contains a value which
identifies
the
built-in
function and also provides
inforrr.ation about it.
It is
used mainly by [hases 1M and
MD-MM inclusive.
The second
code byte contains further
information about the builtin function
(See
"Second
Code Byte.")

11-12

DECLARE statement number

sixth bit:
1 indicates that the constant requires a DED.
Seventh bit:
1 indicates that
constant requires a dope vector.

becoITes

the

Appendix C: Internal Formats of Dictionary Entries

363

13

Level

14

count

15

BCD lengt.h-l

16

BCD

The

further information
the function

second code byte
information:

the

contains

followin~

1

May oe

2

May have
argument

an

3

Must have
arqurr,ent

an

4

Is a pseudo-variable

5

Indicates to which of the
two tables the offset refers

6

an
array
(or
May
have
structure> as an argument,
but will return a scalar
result

~assed

13

Level

14

Count

abou·t

BCD entries are used when the LIKE,
DEFINED, or POOL attributes are used.
A
short dictionary entry with the format
given below is used. This is pointed at by
the dictionary entry with the attribute.

as an argument
array
array

as
as

an
an

Library routines, other than built-in or
GENERIC functions, are known as Internal
Library Functions.
Their dictionary entry
format is as follows:

1

Code Eyte X'40"

2-3

Length

4

BCD length-1

5

BCD

Dictionary entries for parameter descriptions are identical with the normal
entry for data variable, label variable u
structure,
filE,
or entry points, except
for the following details:
Hash chain contains pointer to formal
parameter type 1. After Phase FT this
pointer is moved to the bytes containing level and count
No BCD is present

364

1

Code Byte X' C2'

2-3

Length

4-5

Hash chain

6-8

Offset

9

Library Code
identifies
the particular Library routine required

10

Not used

11-12

Code Bytes - the first code
byte contains a value used
by phase MG to pick up complete inforrration about the
Library function. The second
code
byte
contains

No block identification is present fer
ENTRY or FILE
The code byte for an entry point
referred to as entry type 6 - is X'86'

Entries for ON statements are made by
Phase FC, and contain the following:

1

Code Byte X'CL'

2-3

Length

4-5

AU'lOMATIC chain

6-8

Offset

9

Code byte as suppliea by the
Read-In Phase

10

Block

The format of an entry in the picture
table in the dictionary.

lev~~l

1

Code Byte X' C8'

11

Block count

2-3

Length = L+13

12

n

4-5

contains
address of
entry in picture chain

6-8

Offset in STA1lC storage

9

Code Byte (after PhasE F~)
(SEe Code Byte descripticn)

10

P
the nurrber of digit
positions in field in nuweric picture.

11

Q
the number of digit
positions after V character
in numeric picture.
Code
X'SO'
represents 0 7
X'7F'
represents
-1, and X'81'
represents +1.

12

W -

13 onwards n dictionary references of
variables cr ON condition
entries

This entry is made by Phase FO:

1

Code Byte X'4D'

2-3

Length

4-5

Hash chain later
AUTO£
I
I

~----------+---+---+-----------+--------+----------+--------+----------~
3
,CILI
T
,
(I
I
I
,
.----------+---+---+-----------+--------+----------+-- ------+----------~

31
4

I

4

,

D

, M ,

U,

I

,

,CI/I'"

.----------+---+---+-----------+--------+----------+-- ------+----------~
5,
5
, E I N I
V
I
)'
I <= , > I
+
I

~----------+---+---+-----------+--------+----------+--------+----------~

61

6

IFIO,

w

,

.,

,

I

,

.----------+---+---+~----------+--------+----------+--------+----------~
7 I
7
, G I P I
X
I ASSIGN , MULTIPLE'
>=
I
/
I
I
, <
I
,
I
I
I
I
I
I ASSIGN
.----------+---+---+-----------+--------+----------+-- ------+----------~
8 I
8
, J , Q I
Y.
I
:
I
I
I REFBR
,
.----------+---+---+-----------+--------+----------+-- ------+----------~
9,
9
I I I R ,
Z
I
II
I
1,='
*
I
~----------+---+---+-----------+--------+----------+--------+----------~
A I
I
I
I PSEUDOI
%
I
I
I
1/1'
I
,
I
I
I VARIABLE
I
I
I
I
I
~----------+---+---+-----------+--------+----------+--------+----------~
B ,
"I
'I'
I
=
'PREFIX - ,
.----------+---+---+-----------+--------+----------+-- ------+----------~

, C ,

'I

I FUNCTION

,

I

,

It'

,

.----------+---+---+-----------+--------+----------+-- ------+----------~

D ,

I

I

I

,&

I

I

>

I PREFIX

+

I

~----------+---+---+-----------+--------+----------+--------+----------~

E I

I

I SUBSCRIPT

I

I

I

I'

LITERAL

I

I

I

I

I

I

, CONSTANT ,

I

I

.----------+---+---+-----------+--------+----------+-- ------+----------~

F

________
JI
IL __________ '___
I ___ I ___________ I
, ' __________ I ________
<
, __________
**
~

~

~

~

~

~

~

'<-Digits->I <-----Letters-----> I <--------------Operato rs-------------->,

372

8

9

A

D

C

B

F

E

r--------T-------T----------T-------T-----'----T----------T---------T-------------,
I
I
I
IHYBRID I
I
I
I
I

o ITO

ILINE

IA

I QUAL

I

ISN

I

lFL DEC IMAG

I

~--------+-------+----------+-------*---------+----------+---------+-------------i
1

I
I
I AL1Q~~TE I

I
I f~11

I
I£~Ig~

I

I NA~E!

I

i FL DEC REAL

IB

I

I

I SL

I

I FL BIN IMAG

I

1~§§IGN_~~

I

I

I
I

~--------+-------+----------+-------+---------+----------+---------+-------------~

I

2 I EY
3

I

~--------+-------+----------+-------+---------+----------+---------+-------------i
IEB~~

I

Ig~TUI~~

IESQf

I

ISL'

I

IFL BIN REAL

I

~------~-+-------+----------+-------+---------+----------+---------+-------------i

4 IWHILE
~i

I

IP

ICHECK

I

ICN

I

IFIX DEC IMAG I

~--------+-------+----,------+-------+---------+----------+---------+-------------~

I DI§,ELAY I §QQ~+

I

I ~£;.~!~

I

I GET

I

~

FIX DEC REAL I

~--------+-------+----------+-------+---------+----------+---------+-------------i

6 I SNAP

I COL

IR

I

I

I CL

I

I FIX BIN IlvJAG I

~--------+-------+----------+-------+---------+----------+---------+-------------~

7 I

ISIGNAL

I§Q~Q

1!1: DO

I~RITE!

1E.!:l!

I~~~_~Q

IFIX BIN REAL I

~--------+-------+----.------+-------+---------+----------+---------+-------------~

I
8 ISYSTEM

I
IE

I
I

INO
I CHECK

12nd LEVELl
IMARKBR
I

I
I
lEND ITDO IINTEGER

I

I

~--------+-------+----------+-------+---------+----------+---------+-------------i

9 I YiAI1:

I REY~BT I

I12Q

I E~~Q

IF

ILIST DOl

I UNL.Qf~

I EN12

I STG DEC REAL I

I

I

I

.--------+-------+----------+-------+---------+----------+---------+-------------i
I
I
I
I DATA
I
I
I
I
I

I
I A ITHEN

I

B

I

I

~--------+-------+----------+-------+---------+----------+---------+-------------i
IQELA~

I

1!~IT._1~~1211!K

110C~~~

I REWRITE:!

lEND PROG ION

I

~--------+-------+----------+-------+---------+----------+---------+-------------i

C
D

ICONTROL I
I VARIABLE I

I
I

I
ISN2

I
I

I
I

I
I

I ARRAY
I
ICROSS SECTION I

~--------+-------+----------+-------+---------+----------+---------+-------------i

I NULL

I~XIT

IQ~CL~R~

I§LS~

12~LETE

IOPE~

lEND BLOCKICHAR CONSTANT I

~--------+-------+----------+-------+---------+----------+---------+-------------i

E I
.F

IC

IX

INO SNAP I

I

I

ISUB

I

~--------+-------+----------+-------+---------+----------+---------+-------------i

ILSTOR
;
I _____________
BIT CONS'IANT JI
________ I ASS!~~
_______ I __________ IfORM~I
_______ I _________ If1Q§~
__________ I _________
~

+

~

~

~

~

~

~

Go Out Of Block

Appendix D: Internal Formats of Text

373

o

I 0
1

2
I 3
I 4
5
6
7
8
9
I A
I B

1 C
D
1

E

I
1 F

1

2

3

4

5

6

7

r----------T--------T--------T-------T--------------T-----------T----------T---------,
I
IFILE
I
I
I DECIMAL
I OPTIONS
I EXTERNAL
IAREA
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
I
I
I
I
I BINARY
I IRREDUCIBLE I INTERNAL
I POINTER I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
I
ILIST
I
I
I FLOAT
I REDUCIBLE
IAUTOMATIC IEVENT
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
I
IEDIT
I EVENT1
I
IFIXED
IR~CURSIVE
I STATIC
I TASK
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
ITITLE
I DATA
I PRIORITY I
I REAL
I ABNORMAL
I CONTROLLEL I CELL
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
IATTRIBUTESISTRING
IREPLY
I
I COMPLEX
I NORMAL
ISECONDARY IBASED
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
IPAGESIZE
ISKI
I
I
IPRECISION 1
IUSES
I
I OFFSET
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
IIDENT
ILINE
I
I
IPRECISION 2
ISETS
1
I
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
ILINESIZE 1 PAGE
1
I
1 VARYING
I ENTRY
IINITVAR 1 1
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
1
ICOPY
I
I
I PICTURE (NUM) I GENERIC
I INITIAL
IINITVAR 21
~----------+--------+--------+-------+--------------+-----------+----------+---------~
IINTO
IKEYTO
I
I
IBIT ATTRIBUTE IBUILTIN
ILIKE
I
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
IFROM
ITASKOP
1
I
ICHAH ATTRIBUTE 1
I DEFINED
1
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
ISET
I
lIN
I
IDIMS(INTEGERS) 1
IALIGNED
I
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
IKEY
I
I
I
1LABEL
I
1PACKED
I
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
INOLOCK
IKEYFROM I
1
I
I
1 PACKED
1
I
~----------+--------+--------+-------+--------------+-----------+----------+---------~
I
1FORMAT I
1
IDIMS
I
I
I PICTURE
I
IIGNORE
NAME i I ______________
(NON-INTEGER) i IRETURNS