Y24 5017 2 DOS System Control Program Logic Manual Jul67

Y24-5017-2_DOS_System_Control_Program_Logic_Manual_Jul67 Y24-5017-2_DOS_System_Control_Program_Logic_Manual_Jul67

Y24-5017-2_DOS_System_Control_Program_Logic_Manual_Jul67 Y24-5017-2_DOS_System_Control_Program_Logic_Manual_Jul67

User Manual: manual pdf -FilePursuit

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

Download
Open PDF In Browser	View PDF

File Number 8360-36
Form Y24-5017-2

Program Logic

IBM System/360
Disk Operating System
System Control
Program Logic Manual
PrDgram Number 360N-CL-453, Version 2
This publication describes the internal logic of
the IBM Systeml360 Disk Operating System, System
Control Program.
It is intended for use by
persons involved in program maintenance and by
system programmers who are altering the program
design. Program logic information is not
necessary for the operation of the System Control
Program; therefore, distribution of this
publi~ation is limited to those with maintenance
and alteration requirements.
It is designed to be
used as a supplement to the program listing.
Effective use of this manual requires an
understanding of IBM System/360 operation and of
IBM System/360 Disk Operating System control and
service programs, macro instructions, an"d
operating procedures. Reference Publications for
this information are listed in the Preface of this
manual.

Restricted Distribution

RESTRICTED DISTRIBUTION: This publication is intended for use by IBM
personnel only and may not be made available to others without the
approval of local IBM management.

Major Revision, July 1967
This edition, Y24-S017-2, is a major revision of, and obsoletes Form
Y24-S017-1 and its Technical Newsletters Y24-S0S8, Y24-S0S3 and
Y24-S066. Changes are indicated by a vertical line to the left of
the affected text and ~o the left of affected parts of figures. A
dot (e) next to a figure title or page number indicates that the
entire figure or page should be reviewed.
Specifications contained herein are subject to change from time to time.
Any such change will be reported in subsequent revisions or Technical
Newsletters.
Requests for copies of IBM publications should be made to your IBM
representative or to the IBM branch office serving your locality.
A form is provided at the back of this publication for readers'
comments. If the form has been removed, comments may be addressed
to: IBM Corporation, Programming Publications, Endicott, New York
13760.

€D

International Business Machines, 1966, 1967

PREFACE

This Program Logic Manual (PLM) is a guide
to the IBM System/360 Disk Operating
System" System Control Programs, Linkage
Editor, and Librarian; it supplements the
program listings by providing descriptive
text and flowcharts .•

• Organization, function"
system residence.

and format of

• Generation and fUnction of the
supervisor control program, including
physical IOCS.
• FUnction of the system control
programs, IPL and Job Control.

PREREQUISITE AND RELATED LITERATURE
• Function and interrelationship of the
Linkage Editor program and the
Librarian programs.

Prerequisite and related publications that
will aid in the use of this manual are:
• IBM System/360 Principles of Operation,
Form A22- 6821
• IBM System/360 Disk Operating
System: system Control and System
Service Programs, Form C24-5036

The first three sections provide
background material essential for an
understanding of the individual components
of the DOS System Control Program.

• IBM System/360 Disk Operating
System: Supervisor and Input/Output
Macros, Form C24-5037

This manual is organized to provide
quick access to the detailed information on
the internal logic of all components of the
DOS System Control Program. Cross
referencing is provided as follows:

• IBM System/360 Disk operating
System: System Generation and
Maintenance" Form C24-5033

1.

The label list, Appendix ~ provides a
cross reference between the listing and
the detail (routine) level flowcharts.

• IBM System/360 Disk Operating
System: operating Guide, Form C24-5022

2.

Error messages, Appendix F., are cross
referenced to the program phase and the
detail (routine) level flowchart.

3.

Program level flowcharts refer to the
detail (routine) level flowcharts.

4.

Detail (routine) level flowcharts,
where applicable, refer to the program
level flowcharts .•

Closely related publications are:
• IBM System/360 Disk Operating
System: Data Management Concepts, Form
C24-3427

I

• IBM System/360 Disk and Tape Operating
Systems: Assembler Specifications,
Form C24-3414.

Titles and Abstracts of other related
publications are listed in the IEM
System/360 Bibliography, Form A22-6822.

The organization of this manual is
adaptable to the various ways in which it
will be used:
1.

Sections 1 through 3 may be read as an
introduction to the DOS System Control
Program.

2.

Sections 4 through 8 may be read,
either selectively or completely, for
program level concepts.

3.

The reader
entry into
individual
an example
the manual
particular

ORGANIZATION AND USE OF THIS PUBLICATION
This manual presents the components of the
DOS System Control Program in a logical
manner that emphasizes:
• Interrelationship of the components in
an operating system environment.

may choose his own pOint of
the manual based on his
qualifications. Figure 1 is
of how the various parts of
may be used in satisfying a
situation.
3

Maintenance

System

Program

Program
Listing
Reod Sections
J - 3 for Essential
Concepts

Label list

Label"

.·.:·,·'·n·'·;,;"
..... :: .

----Read Desired Program
in Section 4- 8

Program Level
Flowcharts

YES
2

Read Sections
J - 3 for Essential

Routine Level
Flowchart

Concepts if

Necessary. Read
Program Level
Discussion of
this Program in
Section 4- 8.

YES

YES

Figure L

4

DOS

Example of PLM Usage

Syst~m

Control

NO

STRUCTURE
This manual contains eight sections and
seven appendixes. The function of each
section and appendix is presented below.

General Information Sections

2.

Interface with other programs

3.

Program flow (phase to phase)

4.

I/O flow

5.

Storage maps

6.

Key concepts

Note:

Section 1: Provides an introduction to the
IBM System/360 Disk Operating System,
System Control Programs.
Section 2: Provides information about the
organization of system residence (SYSRES).
Section 3: Provides information about
supervisor generation. This section
includes a discussion of:
1.

Supervisor generation macros.

2.

Common information that is referenced
from other sections, such as:
a. Supervisor storage organization
(MAP)

The program level flowchart for a
specific program is located
immediately following the program
level information for that program.
In some cases, it was necessary to
group the program level flowcharts
immediately following a group of
programs. This is particularly true
in the case of the B-transients and
the A-transients in Section 4.

Section 4: Provides information about the
following programs:
1.

Initial Program Load (IPL)

2.

Job Control ($JOBCTLA)

3.

Supervisor Control ($$A$SUP1)

4.

A-transients

5.

B-transients

b. Communications region
c. Device dependent codes
a.
b.
c.

d. I/O Tables
•
•
•
•
•
•
•
•

LUB Table
PUB Table
TEB Table
JIB Table
Number in class list (NICL)
First in class list (FICL)
First on channel list (FOCL)
First available pointer (FAVP)

e.

Program Information Block (PIB)

f.

Disk Information Block (DIB)

Note:

The background information contained
in Sections 1 through 3 is essential
for an understanding of the
individual components presented in
subsequent sections.

Foreground Initiator
Nonresident Attention Routine
Program Terminator

Section 5: Provides information about the
Linkage Editor program ($LNKEDr).
Section 6: Provides information about the
following Librarian Maintenance programs:
1.

Common Liorary Maintenance program
(MAINT)

2.

Automatic Condense Limits program
(MAINTCL)

3.

Core Image Library Maintenance program
(MAINTC2)

4.

Relocatable Library Maintenance program
(MAINTR2)

5.

Source Statement Library Maintenance
program (MAINTS2)

Program Information Sections
6.
Sections 4 through 8 contain program level
discussions of the system control programs.
These discussions contain the following
information when applicable:

Update Transient, Library-Routine, and
Foreground Directories program
($MAINEOJ)

7.

Library Condense program (MAINTCN)

1.

8.

System Reallocation program (MAINTA)

Program introduction

5

Section 7: Provides information about the
Librarian Organization program CORGZ (copy
System program).
Section 8: Provides information about the
following Librarian Service programs:
1.

Directory Service program (DSERV).

2.

Relocatable Library Service program
(RSERV) .

3.

Source Statement Library Service
program (SSERV).

Appendix E: Contains a detailed
description of ESD processing in the
Linkage Editor program. It is to be used
as a supplement for the Linkage editor
charts RA-RJ in Appendix H.
Appendix F: Contains an error message
cross reference that identifies the program
phase(s) and the detail (routine) level
chart(s} associated with a specific error
message.
Appendix G: Definition of PIK (Program
Interrupt Key), LTK (Logical Transient
Key), RIK (Requestor I/O Key), and FIK
(Fetch I/O Key).

Appendixes
Appendix A: Contains the label list for
all programs in this manual. The structure
of this appendix is as follows:
1.

Labels are sequenced alphamerically
within a phase.

2.

Phases are sequenced alphamerically
within a program.

3.

Programs are ordered to reflect the
structure of this manual (Sections 4
through 8, IPL, Job Control, ••• ,DSERV,
RSERV, SSERV).

Appendix H: Contains the detail (routine)
level flowcharts for all programs in this
manual.
Flowchart titles, where
applicable, refer to the program level
chart associated with the detail chart. An
example of this upward cross referencing
follows:
Chart SH.

A label may be cross referenced to the
detail (routine) level flowchart that
contains the label or it may contain the
notation "Listing Only." The latter
notation designates that this label does
not appear in any flowchart. However, the
comment following this label presents some
information that is not readily clear in
the listing.
Appendix B: Contains a list of flowchart
abbreviations that have been established as
standard within this manual.
Appendix C: contains an explanation of the
flowchart symbols used in this manual.
Appendix D:
printouts.

Contains sample LISTIO

Map Processor (Refer to
Linkage Editor - Chart 36)

Cross reference from the program level
chart to a detail level chart is provided
in the program level chart. Each block in
a program level chart contains a detail
chart designation in the block title line.
An example of this downward cross
referencing follows:
STMTIN

r-----------------------------------------,
I CONTROL STATEMENT READ
Chart BB
I
~-----------------------------------------~

I
I
I ·Where: BB represents the detail level I
I _________________________________________
flowchart of this routine.
L
JI
It is recommended that all the
flowcharts in Appendix H be removed and
placed in a separate binder. This
procedure, if followed, provides the reader
with access to the flowcharts and the rest
of the manual with a minimum of page
turning.
It also divides the manual into
two, easier to handle, parts.

(

6

DOS System Control

CONTENTS

PREFACE. • • • . • • • • • • • • • • •
Prerequisite and Related Literature
Organization and Use of This
Publication. •
Structure • • • . . . •

3
3

•

23

SUPERVISOR CONTROL PROGRAlvlS. •
• 90
Resident Supervisor Charts 12
through 17 • . • • • • • •
• 90
Physical Input/Output Control
System (PIOCS) • • • • • . •
• 97
Physical Transient Programs
($$A)--Charts 18 through 20 • • • • • 106
Supervisor B-Type Transient
Programs (Charts 21 through 30) • • • 125

Telecommunications

24

SECTION 5: LINKAGE EDITOR PROGRAM.

.142

Purpose of an Operating System •

24

Language Translator Modules.

.142

Configuration . . • • ~ ••
Minimum Requirements . •
Additional Features
I/O Devices • • • •
System I/O Devices.

24
24
24
25
25

SECTION 1. INTRODUCTION. •
~ultiprogramming

3
5
• 23

· ..

Components • . • • • • •
26
System Residence. •
27
System Control Programs (Chart 00) •• 27
Linkage Editor Program ($LNKEDT),
Chart 00 . • • . • • • • • • . • • • 28
Librarian Programs. • • • • . • • • • 28
Processing Programs (Chart 00)..
31
SECTION 2: SYSTEM RESIDENCE
ORGANIZATION. • • • • • • •

·
Linkage Editor Program Flow.
·
Key Concepts . . . . . . . .
·

.143

·

.146

SECTION 6 : LIBRARIAN MAINTENANCE
PROGRAMS.

.·.. .·

.157

Common Library Maintenance Program
(MAINT), Chart 39 • • • •

.157

Core Image Library Maintenance Program
(MAINTC2), Chart 40 • • • • • • • . • . 160
Relocatable Library Maintenance
Program (MAINTR2), Chart 41 • •

• . 32

System Residence Organization After
Generation. • •
IPL • • . • •
• • •.
•
SYSTEM DIRECTORY. .
Transient Directory
Open Directory. • •
Library Routine Directory •
Foreground Program Directory. •
System Work Area (Librarian Area)
Phase Directory • • • • • • .
Core Image Library Directory.
• •
Core Image Library. . • • • •
• •
Relocatable Library Directory •
Relocatable Library • • • • •
• •
Source Statement Library Directory ••
Source Statement Library. • •

33
35
35
35
35
35
36
37
37
37
40
40
42
43
43

SECTION 3: SUPERVISOR GENERATION AND
ORGANIZATION • • • • • •
46
Supervisor Generation • •
46
Organization. • • • • •
• • 51
SECTION 4: SYSTEM CONTROL PROGRAMS • • • 71

• .162

Source Statement Library Maintenance
Program Maints2, Chart 42 • • • • . • • 169
System Reallocation Program (MAINTA),
Chart 43 • • • • • • • • • • • • • . • • 171
Library Condense Program (MAINTCN),
Chart 44..
• • . • . • • • • • • • 175
Set Condense Limits Program (MAINTCL),
Chart 45 . • • • • • • • • • • • • . • • 177
Update Sub-Directories Program
($MAINEOJ), Chart 45. • • • •

• • • 177

SECTION 7. LIBRARIAN ORGANIZATION
PROGRAM. • • • • • • • • •

.179

Copy System Program (CORGZ), Charts 46
and 47 • • • • • • • • • • • • • • • • • 179
SECTION 8. LIBRARIAN SERVICE PROGRAMS • • 184
Directory Service Program (DSERV>,
Chart 48 • • • • • • • • • • • • • • • • 184

Initial Program Load Program (IPL),
Chart 01. • • • • •
• • • • 71
$IPLRT2, Chart 02
• • 75

Relocatable Library Service Program
(RSERV), Chart 49 • • • • • • •

Job Control Program.
Program Flow. • • •

Source Statement Library Service
Program (SSERV>, Chart 50 • • • • • • • 189

79
• • 79

• .187

Contents

7

APPENDIX A. LABEL LIST • • • . •

• • 191

System Control Programs (Section 4) • • • 191

APPENDIX 0: SAMPLE LISTIO PRINTOUTS • • • 261
APPENDIX E: LINKAGE EDITOR ESD
PROCESSING. • • • • • • • • •

.263

APPENDIX F: ERROR MESSAGE CROSS
REFERENCE • • • • • • • • • • •

.266

Linkage Editor Program (Section 5) • • • 231
Librarian Maintenance Programs
(Section 6) • • • • • • • • •

.244
APPENDIX G. PROGRAM KEY DEFINITIONS • • • 269

Librarian Organization Programs
(Section 7) • • • • •

.251

APPENDIX H: DETAIL (ROUTINE) FLOWCHARTS. • • • • •
• • • • • .270

Librarian Service Programs (Section 8) .252
APPENDIX B. FLOWCHART ABBREVIATIONS.

.257

APPENDIX C: FLOWCHART SYMBOLS • • • . • • 260

APPENDIX I: MICROFICHE INDEX
CROSS-REFERENCE ~IST. •
GLOSSARV • • • •

• • • 750
.763

INDEX • .'. • • • • • - • • • • • • • • 764

(

\

8

DOS System Control

FIGURES
4
Figure 1. Example of PLM Usage
26
Figure 2. System I/O Flow.
Figure 3. System Residence
• • 34
Organization. • • • • • .
Figure 4. System Directory Record
36
Formats • • • • • • • • • • • • • •
Figure 5. System Work Area Record
38
Formats • • •
• •••
39
Figure 6. Core Image Directory Format.
40
Figure 7. Core Image Library Format.
Figure 8. Relocatable Library
41
Directory Format. • • • . • • • • •
42
Figure 9. Relocatable Library Format
Figure 10. Source Statement Library
44
Directory Format. • . . • • • . • .
Figure 11. Source Statement Library
45
Format. • • • • . • . • • •
50
Figure 12. Macro Functions . • •
51
Figure 13. Global Settings • • •
Figure 14. Supervisor Storage
54
Allocation. . • • • . • • . .
Figure 15. Supervisor Communications
55
Region (Part 1 of 5). • • . • • . • •
Figure 15. Supervisor Communications
56
Region (Part 2 of 5) • • • • . • . .
Figure 15. Supervisor Communications
Region (Part 3 of 5) • • • • • • • .
57
Figure 15. Supervisor Communications
• 58
Region (Part 4 of 5) • • • • • • • •
Figure 15. Supervisor Communications
59
Region (Part 5 of 5). • . • • •
59
Figure 16. System Control Center
Figure 17. I/O Table
Interrelationship •
60
Figure 18. PUB Table
• • 61
Figure 19. LUB Table. •
• • 62
Figure 20. Tape Error Block (TEB).
63
Figure 21. CHANQ, LUBID, REQID Tables • • 64
Figure 22. PIB Table (Part 1 of 2).
65
Figure 22. PIB Table (Part 2 of 2) • • • 66
Figure 23. DIB Table
67
Figure 24. JIB Table
•• 68
Figure 25. Option Tables •
• • 69
Figure 26. Device Type Codes
•• 70
Figure 27. Density Data.
• 70
Figure 28. I/O Table for One-Device.
• 72
Figure 29. I/O Table for Two-Device
System..
••••••••••
• • 72
Figure 30. IPL Main Storage Map.
• • 73
Figure 31. Job Control Storage
Allocation. • • • • • • • • • •
79
Figure 32. DOS Supervisor Calls.
• 95
Figure 33. Task Selection Procedure..
96
Figure 34. Supervisor Cancel Codes • • • 97
Figure 35. Example of the CHANQ Table
Operation • • • • • • • • • • • • • • • 97
Figure 36. Command Control Block (CCB)
98
Figure 37. Channel Command Word (CCW),
Part 1 of 2 • • • • • • • • • • • • • • 100
Figure 37. Channel Command Word (CCW),
Part 2 of 2 • • • • • • • • • • • • • • 101
Figure 38. Program Status Word (PSW) • • 102
Figure 39. Channel Address Word (CAW) •• 103
Figure 40. Channel Status Word (CSW) • • 104
Figure 41. CSW Testing in I/O
.105
Interrupt Processor • • • • • •
Figure 42. Error Recovery Block
.106
(ERBLOC). • • • • • • • • • • •
Figure 43. A-Transient Programs.
• .107

Figure 45. Unit Record Devices
Supported by Device Error Recovery • • • 108
Figure 46. Interface Communication
Area (For Physical Transient Phases
$$ANERRZ, $$ANERRY, and $$ANERRO) • • • 108
Figure 47. MAP Output. • • . • •
.127
Figure 48. List I/O Examples for
Nonresident Attention Request •
• .128
Figure 49. Initiator Phase Map.
• .129
Figure 50. Terminator Phase Map.
• .130
Figure 51. Multiprogram Main-Storage
Organization • • • • • • • • • • • • • • 131
Figure 52. Cancel Code Messages • • • • • 131
Figure 53. Module Phase Relationship • • 142
Figure 54. Linkage Editor Storage Map
for Less than 14K Available Main
Storage • • . • • • • • • • • • • • • • 144
Figure 55. Linkage Editor Storage Map
~or 14K or More Available Main
Storage • • • • • • • • • • • • • • • • 145
Figure 56. Linkage Editor I/O Flow • • • 146
Figure 57. Control Dictionary/Linkage
.147
Table
••••••••••
.158
Figure 58. Maintenance Storage Map
Figure 59. Core Image Library
.160
Maintenance Control Statements.
Figure 60. Relocatable Library
Maintenance Control Statements • •
• .162
Figure 61. Module in the Relocatable
.163
Library • • • . • • . • • • • •
Figure 62. Relocatable Format of ESD
.164
Records • • • . • • • • • • • •
Figure 63. Relocatable Format of TXT
Records • . • • • • • • • • • •
• .165
Figure 64. Relocatable Format of RLD
.166
Records • • • • • • • • • • • •
Figure 65. Calculation of ESID
Numbers in MAINTR2 • • • • • •
• .167
Figure 66. Source Statement Library
.169
Maintenance Control Statements • • •
.169
Figure 67. Book Header Card Formats.
Figure 68. Reallocation Control
Statements • • • • • • • • . • • • • • • 171
Figure 69. MAINTA Reallocation Table • • 172
Figure 70. Method Used by MAINTA to
.173
Reallocate SYSRES • • • • • •
Figure 71. Condense Control
.175
Statements. • • • • • • .• •
Figure 72. CORGZ Storage Map
.179
.180
Figure 73. CORGZ I/O Flow • •
.181
Figure 74. Copy Statement Formats • •
Figure 75. DSERV Control Statements. • .184
Figure 76. System Status Report • • .
.185
Figure 77. RSERV Control Statements. • .187
Figure 78. DFB Format. • • • • • • • • .194
Figure 79. Phase-Vector Table Entry
Format. • • • • • • • •
• • • • • .197
Figure 80. PERIDA Layout • • • • • • • • 232
Figure 81. Last In-First Out List (LIFO)232
Figure 82. Linkage Editor Map • • • • • • 241
Figure 83. Description of Flow Chart
.260
Symbols • • • • • • • • • • • • •
Figure 84. Sample LISTIO Printouts
.261
(Part 1 of 2) • • • • • • • . • •
Figure 84. Sample LISTIO Printouts
• • • 262
(Part 2 of 2) • • • • • • • • •
Figure 85. Description of ESD
• • • 263
Processing . • • • • • • • • •
Figures

9

CHARTS

Chart 00. System Program Flow • • • • • 22
Chart 01.
Initial Program Load
($$A$IPLl>. • • • • • • • • • •
74
Chart 02.
Initial Program Load
($IPLRT2) • • • • • • • • • • •
• • 78
Chart 03. Job Control ($JOBCTLA) Root
Phase • • • • • • • • • • • • •
81
Chart 04. Job Control ($JOBCTLD)
Statement Processor (Part 1 of 2) • • • 82
Chart 05. Job Control ($JOBCTLD)
Statement Processor (Part 2 of 2).
83
Chart 06. Job Control ($JOBCTLG)
Statement Processor (Part 1 of 3).
84
Chart 07. Job Control ($JOBCTLG)
Statement Processor (Part 2 of 3).
85
Chart 08. Job Control ($JOBCTLG)
Statement Processor (Part 3 of 3).
86
Chart 09. Job Control ($JOBCTLJ)
Statement Processor (Part 1 of 3) • • • 87
Chart 10. Job Control ($JOBCTLJ)
Statement Processor (Part 2 of 3).
88
Chart 11. Job Control ($JOBCTLJ)
Statement Processor (Part 3 of 3) • • • 89
Chart 12. Supervisor General Entry,
General Exit, and Processor Exit.. • • .116
Chart 13. Resident Attention Routine • • 117
Chart 14. SVC Interrupt Processor,
General Cancel, and Fetch • • • • • • . 118
Chart 15. I/O Interrupt Processor and
Channel Scheduler • • • • • • • • • • .119
Chart 16. Program Check and External
Interrupt Routines. • • • • • • • • • .120
Chart 17. Unit Check, Resident ERP,
and Quiesce I/O Routines. • •
• .121
Chart 18. Physical Transients ERP • • • 122
Chart 19. Physical Transients Message
Writer. • • • • • • • • • • • •
.123
Chart 20. Physical
Transients--Physical Attention
Routine • . • • • • • • • •
• .124
Chart 21. Logical Transient Root
Phase • • • • • • • • • • • • • • • • .132
Chart 22. Logical Transient
Foreground Initiator (Part 1 of 2) • • • 133
Chart 23. Logical Transient
Foreground Initiator (Part 2 of 2) • • • 134
Chart 24. Logical Transient
Nonresident Attention Routines (Part
1 of 2) • • • • • • • • • • • • • • • • 135
Chart 25. Logical Transient
Nonresident Attention Routines (Part
2 of 2) • • • • • • • • • • •
• .136
Chart 26. Logical
Transient--Terminator (Part 1 of 5) • • 137
Chart 27. Logical
Transient--Terminator (Part 2 of 5) • • 138
Chart 28. Logical
Transient--Terminator (Part 3 of 5) • • 139
Chart 29. Logical
Transient--Terminator (Part 4 of 5) • .140
Chart 30. Logical
Transient--Terminator (Part 5 of 5) • .141
10

DOS System Control

Chart 31. Linkage
Editor - Initialization Phase
($LNKEDT) • • • • • • • • • • • • • • .149
Chart 32. Linkage Editor - ESD
Processing Phase ($LNKEDTO) • • •
.150
Chart 33. Linkage Editor - TXT, REP,
RLD, and END Processing Phase
($LNKEDT2). • • • • • • • • • •
.151
Chart 34. Linkage Editor - Control
Statement (INCLUDE, PHASE and ENTRY)
Scan and Processing Phase ($LNKEDT4). .152
Chart 35. Linkage Editor - End of
Control Statement Processing Phase
($LNKEDT6). • • • • • • • • • • • • • .153
Chart 36. Linkage Editor - Print Map
Phase ($LNKEDT8). • • • • • • • •
.154
Chart 37. Linkage Editor - Pass 2 RLD
and Terminal Processing Phase
($LNKEDTA). • • • • • • • • • • •
.155
Chart 38. Linkage Editor - Catalog
Core Image Directo~y Phase ($LNKEDTC) .156
Chart 39. Common Library Maintenance
Program (MAINT) • • • • • • • • • • • • 159
Chart 40. Core Image Library
Maintenance Program (MAINTC2) • • • • .161
Chart 41. Relocatable Library
Maintenance Program (MAINTR2) • • • • .168
Chart 42. Source Statement Library
Maintenance Program (MAINTS2) • • • • • 170
Chart 43. System Reallocation Program
(MAINTA). • • • • • • • • • • • • • • .174
Chart 44. Library Condense Program
(MAINTCN) • • • • • • • • • • • • • • .176
Chart 45. Update Directory and Set
Condense Limit Programs ($MAINEOJ and
MAINTCL). • • • • • • • • • •
• • .178
Chart 46. Copy System Program
(CORGZ), Part 1 of 2. • • • •
• • • 182
Chart 47. Copy System Program
(CORGZ), Part 2 of 2 • • • • • • • • • • 183
Chart 48. Directory Service Program
(DSERV) • • • • • • • • • • • • • • • • 186
Chart 49. Relocatable Library Service
Program (RSERV) • • • • • • • • • . • • 188
Chart 50. Source Statement Library
Service Program (SSERV) • • • • • • • .190
Chart AA. BOOTSTRAP-- $$A$IPLA; Refer
to IPL, Chart 01 • • • • • • • • • • • • 270
Chart AB. Clear Storage and Load
Supervisor-- $$A$IPL2; Refer to IPL,
Chart 01 • • • • • • • • • • __ • • • • 271
Chart AC. Build Two Device System
(Part 1 of 2)- $$A$IPL2 ; Refer to
IPL, Chart 01 • • • • • • • • • • • • .272
Chart AD. Build Two Device System
(Part 2 of 2)- $$A$IPL2 ; Refer to
IPL, Chart 01 • • • • • • • • • • • • • 273
Chart AE. Move I/O Tables-- $$A$IPL2;
Refer to IPL, Chart 01 • • • • • . • • • 274
Chart AF. Build PUB Table-- $$A$IPL2;
Refer to IPL, Chart 01 • • • • • • • • • 275

Chart AG. Common Move Subroutine-$$A$IPL2; Refer to IPL, Chart 01 • • • • 276
Chart AH.
Update Disk Address-$$A$IPL2; Refer to IPL , Chart 01 • • • 277
Chart AJ.
Initialization and Read
Control Cards-- $IPLRT2; Refer to
IPL, Chart 02 • . • • • • • • • •
.278
Chart AK.
Eyaluate Control Statement
and Check Time of Day-- $IPLRT2;
Refer to IPL, Chart 02. • • • • • • • .279
Chart AL. Assign SYSRES and SYSLOG-$IPLRT2; Refer to IPL, Chart 02 • • • • 280
Chart A.fVl. Hove I/O Tables to Low Main
Storage-- $IPLRT2; Refer to IPL,
Chart 02 • • • • • • • • • • • • • • • . 281
Chart AN.
Add a Device-- $IPLRT2;
Refer to IPL, Chart 02. • • • • • • • .282
Chart AP. Delete a PUB-- $IPLRT2;
Refer to IPL, Chart 02. • • • • • • • .283
Chart AQ.
Date and Time Subroutines-$IPLRT2; Refer to IPL, Chart 02
• • 28~
Chart AR. Analyze Device Type-$IPLRT2; Refer to IPL, Chart 02 •
.285
Chart AS. Update FOCL and LUB Entry-$IPLRT2; Refer to IPL, Chart 02 •
.286
Chart AT.
Check Device Assignment and
Convert Decimal to Hexadecimal-$IPLRT2; Refer to IPL, Chart 02 • • • • 287
Chart AU. Build PUB Table-- $IPLRT2;
Refer to IPL, Chart 02. • • • • • • • .288
Chart AV.
Find PUB and Test Delimiter
Subroutines-- $IPLRT2; Refer to IPL,
Chart 02. • • • • • • • • • • • • • • • 2 8 9
Chart Aw.
Reorder MPX Channel LUB's
and PUB's and 1052 I/O Subroutines -$IPLRT2; Refer to IPL, Chart 02 • • • • 290
Chart AX.
Set Job Control Flags-$IPLRT2; Refer to IPL, Chart 02 • • • • 291
Chart AY.
Allocate Main Storage
Subroutine-- $IPLRT2; Refer to IPL,
Chart 02 • • • • • • • • • • • • • • • • 292
Chart BA.
Initialization-- $JOBCTLA;
Refer to Job Control, Chart 03 • • • • • 293
Chart BB. Control Statement Read
$JOBCTLA; Refer to Job Control, Chart
03. • • •
• • • • • • • • • • • • 2 9~
Chart BC. Phase Vector Table Lookup-$JOBCTLA; Refer to Job Control, Chart
03. • • •
• • • • • • • •
.295
Chart BD. Subroutine-- $JOBCTLA
(DSKINT); Refer to Job Control, Chart
03. • • • • • • • • • • • • • •
.296
Chart BE. Subroutine~- $JOBCTLA
(LOGOUT, MSGOUT, LSTOUT, and CHKCNT);
Refer to Job Control, Charts 03-11 • • • 291
Chart BF. Subroutines-- $JOBCTLA
(SCANR1, SCANR2, and SCANR3); Refer
to Job Control Charts 03-11 • • • • • • 298
Chart BG. Subroutines-- $JOBCTLA
(RDSTMT, LOGCHK); Refer to Job
Control, Charts 03-11 • • • • • •
.299
Chart BH. Subroutine-- $JOBCTLA
(EXCPRG) (Part 1 of 2); 1efer to Job
Control, Charts 03-11 • • • • • • • • • 300
Chart BJ. Subroutine-- $JOBCTLA
(EXCPRG) (Part 2 of 2); Refer to Job
Control, Charts 03-11 • • • • • • • • .301

Chart BK. Subroutines-- $JOBCTLA
(MTNCNT, CHKASG, CHKASG3); Refer to
Job Control, Charts 03-11 • • • • • . • 302
Chart BL. Error Routines-- $JOBCTLA
(ATNCUU, NOEERR, OERRTN, RNAERR,
NVSERR, and ERRRTN); Refer to Job
Control, Charts 03-11 • • • • • •
.303
Chart BM. UNA Statement Processor-$JOBCTLD; Refer to Job Control, Chart
05. • • •
• • • • • • • • •' • • • 30~
Chart BN. CLOSE Statement Processor-$JOBCTLD; Refer to Job Control, Chart
05. • • •
• • • • • • • • • • • • 305
Chart BP.
LISTIO Statement Processor$JOBCTLD Scan and Terminate Routines
(Part 1 of 5); Refer to Job Control,
Chart 05 • • • • • • • • • • • • • • • • 306
Chart BQ.
LISTIO Statement Processor$JOBCTLD (SYS, PROG, F1, F2, or ALL
Operand Routine; Part 2 of 5) Refer
to Job Control, Chart 05 • • • • • • • • 301
Chart BR.
LISTIO Statement Processor$JOBCTLD UNIT Operand Routine (Part 3
of 5); Refer to Job Control, Chart 05 .308
Chart BS. LISTIO Statement Processor$JOBCTLD (CUU or SYSXXX Operand
Routine; Part 4 of 5); Refer to Job
Control, Chart 05 • • • • • • • • • • • 309
Chart BT.
LISTIO Statement Processor$JOBCTLD (UA and Down Operand
Routines; Part 5 of 5) Refer to Job
Control, Chart 05 • • • • • • • • • • • 310
Chart BU. DVCDN Statement Processor$JOBCTLD (Part 1 of 3); Refer to Job
Control, Chart 05 • • • • • • • • • • • 311
Chart BV. DVCDN Statement Processor$JOBCTLD (Part 2 of 3); Refer to Job
Control, Chart 05 • • • • • • • • • • • 312
Chart BW. DVCDN Statement Processor$JOBCTLD (Part 3 of 3); Refer to Job
Control, Chart 05 • • • • • • • • • • • 313
Chart BX. DVCUP Statement Processor-$JOBCTLD; Refer to Job Control Chart
05 • • • • • • • • • • • • • • • • • • • 314
Chart BY.
ASSGN Statement Processor$JOBCTLD (Scan and Check First and
Second Operandi Part 1 of 10); Refer
to Job Control, Chart 04 • • • • • • • • 315
Chart BZ. ASSGN Statement Processor$JOBCTLD (Cross Assignment
Verification); (Part 2 of 10): Rafer
to Job Control, Chart 04 • • • • • • • • 316
Chart CA. ASSGN Statement Processor$JOBCTLD (V6rify and Store UA or IGN
Assignment; (Part 3 of 10); Refer to
Job Control, Chart 04 • • • • • • • • • 311
Chart CB. ASSGN Statement Processor$JOBCTLD (Complete Scan of Operands;
Part 4 of 10); Refer to Job Control,
Chart 04. • • • • • • • • • • • • • • • 318
Chart CC. ASSGN Statement Processor$JOBCTLD (Final Verification for
Normal Assignment; Part 5 of 10):
Refer to Job Control, Chart 04..
.319
Chart CD. ASSGN Statement Processor$JOBCTLD (Make Normal Standard
Assignment: Part 6 of 10): Refer to
Job Control, Chart 04 • • • • • • • • • 320
Charts

11

Chart CEo ASSGN Statement Processor$JOBCTLD (Make Normal Temporary
Assignment; Part 7 of 10); Refer to
Job Control, Chart 04 • • • • • • • • • 321
Chart CF. ASSGN statement Processor$JOBCTLD (Make Alternate Assignment;
Part S of 10); Refer to Job control,
Chart 04. • • • • • • • • • • • • • • .322
Chart CG. ASSGN Statement Processor$JOBCTLD (Terminate Assignment and
Open Files--Part 1 of 2); Refer to
Job Control, Chart 04 (Part 9 of 10) • • 323
Chart CH. ASSGN Statement Processor$JOBCTLD (Terminate Assignment and
Open Files--Part 2 of 2); Refer to
Job Control, Chart 04 (Part 10 of 10) .324
Chart CJ. RESET Statement Processor$JOBCTLD (Part 1 of 2); Refer to Job
Control, Chart 05 • • • • • • • • • • • 325
Chart CK. RESET Statement Processor$JOBCTLD (Part 2 of 2); Refer to Job
Control, Chart 05 • • • • • • •
.326
Chart CL. Subroutine-- $JOBCTLD
(CLOSES); Refer to Job Control,
Charts 04, 05 • • • • • • • • •
• .327
Chart CM. Subroutines-- $JOBCTLD
(TXCUU, TXCUU3, HEXCON and CLOSE1);
Refer to Job Control, Charts 04, 05 •• 32S
Chart CN. subroutines-- $JOBCTLD
(SCNLUB, SCNJIB, and lHKOPN); Refer
to Job Control, .,charts 04,05 • • • • • 329
Chart CPo Subroutines-- $JOBCTLD
(DVCDN3, UNPA, ONPAl, and UNAENT);
Refer to Job Control, Charts 04, 05 •• 330
Chart CQ. subroutines-- $JOBCTLD
(SKIPLN, OUTPUT, OUTPUTS, and
OUTPUT1); Refer to Job Control,
Charts 04, 05 • • • • • • • • • •
.331
Chart CR. Subroutines-- $JOBCTLD
(GETLAN, INITL, CHKRNG, and NUMCON);
Refer to Job Control, Charts 04, 05 • • 332
Chart CS. subroutine-- $JOBCTLD
(SYSXXX); Refer to Job Control,
Charts 04, 05 • • • • • • • • • • • • • 333
Chart CT. Subroutines-- $JOBCTLD
(EXCP, EXCPROG, EXCPROG1, and
SVCBTRANS); Refer to Job Control,
Charts 04, 05 • • • • • • • • • • • • • 334
Chart CU. subroutines-- $JOBCTLD
(RSTSTD, and GETJIB); Refer to Job
Control, Charts 04, 05 • • • • • • • • • 335
Chart CV. Subroutine-- $JOBCTLD
(SFPPE; Part 1 of 3); Refer to Job
Control, Charts 04, 05 • • • • • • • • • 336
Chart CWo Subroutine-- $JOBCTLD
(SFPPE'; Part 2 of 3); Refer to Job
Control, Charts 04, -05. • • • • • • • .337
Chart cx. subroutine-- $JOBCTLD
(SFPPE; Part 3 of 3); Refer to Job
Control, Charts 04, 05 • • • • • • • • • 33S
Chart ~Y. Error Routines-- $JOBCTLD
(ILOS, INDVTP, TXCUU1+S, IVDS, SFNC,
TIAERR, CNIOAG, FNIOAG, NOMRJB,
ASSGN43, and ERRRTN); Refer to Job
Control, Charts 04, 05 • • • • • • • • • 339
Chart DA. CANCEL, and STOP Statement
Processors-- $JOBCTLG; Refer to Job
Control, Charts 07, OS • • • • • • • • • 340
12

DOS System Control

Chart DB. EOJ (/&) Statement
Processor-'$JOBCTLG (Part 1 of 2);
Refer to Job Control, Chart 07 • • • • • 341
Chart DC. EOJ (/&) Statement
Processor- $JOBCTLG (Part 2 of 2);
Refer to Job Control, Chart 07 • • • • • 342
Chart DD. EXEC Statement Pr9cessor$JOBCTLG (Part 1 of 4); Ref~r to Job
Control, Chart OS • • • • • I,' • • • • • 343
Chart DE. EXEC Statement Processor$JOBCTLG (Part 2 of 4); Refer to Job
Control, Chart 08 • • • • • • • • • • .344
Chart DF. EXEC Statement Processor$JOBCTLG (Part 3 of 4); Refer to Job
Control, Chart OS • • • • • • • • • • • 345
Chart DG. EXEC Statement Processor$JOBCTLG (Part 4 of 4); Refer to Job
Control, Chart OS • • • • • • • •
.346
Chart DH. PAUSE, LOG and NOLOG
Statement Processors-- $JOBCTLG;
Refer to Job Control, Chart OS. •
.347
Chart DJ. OPTION Statement Processor$JOBCTLG (Part 1 of 3); Refer -to Job
Control, Chart 06 • • • • • • • • • • • 348
Chart DK. OPTION Statement Processor$JOBCTLG (Part 2 of 3); Refer to Job
Control, Chart 06 • • • • • • • • • • • 349
Chart DL. OPTION Statement Processor$JOBCTLG (Part 3 of 3); Refer to Job
Control, Chart 06 • • • • • • • • • • • 350
Chart DM. ALLOC Statement Processor$JOBCTLG (Part 1 of 3); Refer to Job
Control, Chart OS • • • • • • • • • • • 351
Chart DN. ALLOC Statement Processor$JOBCTLG (Part 2 of 3); Refer to Job
Control, Chart OS • • • • • • • • • • • 352
Chart DP. ALLOC Statement Processor
(Part 3 of 3) and MAP Statement
Processor-- $JOBCTLG; Refer to Job
Control, Chart OS • • • • • • • • • • • 353
Chart DQ. JOB Statement Processor$JOBCTLG (Part 1 of 2); Refer to Job
Control, Chart 07 • • • • • • • • • • .354
Chart DR. JOB Statement Processor$JOBCTLG (Part 2 of 2); Refer to Job
Control, Chart 07 • • • • • • • • • • • 355
Chart DS. Subroutines-- $JOBCTLG
(OPNLNK, RSTLAD, CHKLNK, IOROUT, and
GTMXHN); Refer to Job Control, Charts
06-0S • • • • • • • • • • • • • • • • • 356
Chart DT. Subroutines-- $JOBCTLG
(RASCAN, LUBSCN, GETPUB, and JIBSCN);
Refer to Job Control, Charts 06-0S • • • 357
Chart DU. Subroutines-- $JOBCTLG
(SCNINT, and UASCAN); Refer to Job
Control, Charts 06-0S • • • • • • • • • 35S
Chart DV. Subroutines~- $JOBCTLG
(GETIME, TIMOUT, RSTASG, and RSPASG);
Refer to Job Control, Charts 06-0S • • • 359
Chart DW. Subroutine-- $JOBCTLG
(LBLOUT); Refer to Job Control,
Charts 06-0S. • • • • • • • • •
.360
Chart DX. Subroutines-- $JOBCTLG
(CNVBCD, CHGSTT, STUCRL, STUSPC, and
STUFIU); Refer to Job Control, Charts
06-08 . . • . . . • . . . • • . . . • • 361

(

Chart DY. Error Routines-- $JOBCTLG
(LAXERR, PNPERR, NDTERR, NVAERR,
OTSERR, and LANERR); Refer to Job
Control, CCharts 06-08 • • • • • • • • .362
Chart EA. RELSE, and HOLD Statement
Processors-- $JOBCTLJ; Refer to Job
Control, Chart 11 • • • • • • • • • • • 363
Chart EB. UCS Statement Processor$JOBCTLJ (Part 1 of 2); Refer to Job
Control, Chart 11 • • • • • • • • • • .364
Chart EC. UCS Statement Processor$JOBCTLJ (Part 2 of 2); Refer to Job
Control, Chart 11 • • • • • • • •
.365
Chart ED. ACTION, and INCLUDE
Statement Processors-- $JOBCTLJ;
Refer to Job control, Cha~t 09..
.366
Chart EE. MTC Stateme~t Processor-$JOBCTLJ; Refer to Job Control, Chart
09 • • • • • • • • • • • • • • • • • • • 367
Chart EF.
LBLTYP, and VOL Statement
Processors-- $JOBCTLJ; Refer to Job
Control, Chart 10 • • • • • • • • • • • 368
Chart EG. DLAB Statement Processor-$JOBCTLJ; Refer to Job Control, Chart
10 • • • • • • • • • • • • • • • • • • • 369
Chart EH. XTENT Statement Processor$JOBCTLJ (Part 1 of 2); Refer to Job
Control, Chart 10 • • • • • • • • • • .370
Chart EJ. XTENT Statement Processor$JOBCTLJ (Part 2 of 2); Refer to Job
Control, Chart 10 • • • • • • • • • • • 371
Chart EK. TPLAB, and DATE Statement
Processors-- $JOBCTLJ; Refer to Job
Control, Charts 09, 10 • • • • • • • • • 372
Chart EL. SET Statement Processor-$JOBCTLJ; Refer~to Job Control, Chart
09 • • • • • • • • • • • • • • • • • • • 373
Chart EM. UPSI Statement Processor-$JOBCTLJ; Refer to Job Control, Chart
09 • • • •
.374
Chart EN.
RSTRT Statement Processor-$JOBCTLJ; Refer to Job Control, Chart
09. • • •
•• 375
Chart EP. subroutines-- $JOBCTLJ
(~BLOUT, and CONCAT); Refer to Job
Control, Charts 09-11 • • • • • • • • .376
Chart EQ. Subroutines-- $JOBCTLJ
(TXCUU, HEXCON, and CNUNCO); Refer to
Job Control, Charts 09-11 • • • • • • • 377
Chart ER. Subroutines-- $JOBCTLJ
(UPDSAV, LNKOUT, NUMCON, and GTMXHN);
Refer to Job Control, Charts 09-11 • • • 378
Chart ES. Subroutines-- $JOBCTLJ
(DOP34, XTOP12, XTOP34, and BINCON);
Refer to Job Control, Charts 09-11 • • • 379
Chart ET. Error Routines-- $JOBCTLJ
(NDTERR. NLUERR, DNEERR, NDSERR.
INAERR. NLSERR, LAXERR. and OTSERR);
Refer to Job Control. Charts 09-11 • • • 380
Chart EV. Initialize and Return to
Fetching Routine-- $$BLSTIO; Refer to
Job Control. Chart 05 • • . • • • • • .381
Chart EW.
Build Printline in Workarea
Subroutine-- $$BLSTIO (PUIF); Refer
to Job Control. Chart 05 • • • • • • • • 382
Chart EX.
Identify the LISTIO Operand
Subroutine-- $$BLSTIO (FNDARG); Refer
to Job Control. Chart 05 • . • • • • • • 383

Chart EY. Build Header Subroutines-$$BLSTIO (PStlRTN. and LHRTN); Refer
to Job Control. Chart 05. • •
.384
Chart EZ. Build Print Line
Subroutines-~ $$BLSTIO (SOLB, and
SEOOB); Refer to Job Control, Chart
05. • • • • • • • • • • • • •
• .385
Chart FA. SUPVR Macro-- General
Entry; Refer to Supervisor, Chart 12 • • 386
Chart FB. FOPT Macro-- General
Cancels and" Program Check without
User PC Routine; Refer to Supervisor,
Charts 14 and 16 • • • • • • • • • • • • 387
Chart FC. FOPT Macro--General Cancel
Subroutine; Refer to Supervisor,
Chart 14 • • • • • • ~ • • • • • • • • • 388
Chart FD. FOPT Macro-- General Exits;
Refer to Supervisor, Chart 12 • • • • .389
Chart FE. FOPT Macro-- General Entry;
Refer to supervisor. Chart 16 • • • • • 390
Chart FF. SGTCHS Channel Scheduler
(Part 1 of 3); Refer to Supervisor,
Chart 15 • • • • • • • • • • • • • • • • 391
Chart FG. SGTCHS Channel Scheduler
(Part 2 of 3); Refer to Supervisor.
Chart 15 • • • • • • • • • • • • • • • • 392
Chart FH. SGTCHS Channel Scheduler
(Part 3 of 3); Refer to Supervisor,
Chart 15 • • • • • • • • • • • • • • • • 393
Chart FJ. SGTCHS Start 1/0-- No
Options; Refer to supervisor, Chart
15 • . • • • • • • • • • • • • • • • • • 394
Chart FK. SGTCHS Start 1/0-- Maximum
Options (Part 1 of 3); Refer to
Supervisor, Chart 15 • • • • • • • • • • 395
Chart FL.
SGTCHS Start 1/0-- Maximum
Options (Part 2 of 3); Refer to
Supervisor, Chart 15 • • • • • • • • • • 396
Chart FM. SGTCHS Start 1/0-- Maximum
Options (Part 3 of 3); Refer to
Supervisor, Chart 15. • • • • • •
.397
Chart FN. SGTCHS Macro-- I/O
Interrupt (Part 1 of 5); Refer to
Supervisor., Chart 15. • • • • • • • • .398
Chart FP. SGTCHS Macro-- I/O
Interrupt (Part 2 of 5); Refer to
Supervisor, Chart 15 • • • • • • • • • • 399
Chart FQ. SGTCHS Macro-- I/O
Interrupt (Part 3 of 5); Refer to
Supervisor, Chart 15 • • • • • • • • • • 400
Chart FR. SGTCHS Macro-- I/O
Interrupt (Part 4 of 5): Refer to
Supervisor, Chart 15. • • • • • • • • .401
Chart FS. SGTCHS Macro-- I/O
Interrupt (Part 5 of 5): Refer 10
Supervisor, Chart 15. • • • • • •
.402
Chart FT. SGUNCK Macro-- Unit Check
Routine Entries; Refer to supervisor.
Chart 17 • • • • • • • • • • • • • • • • 403
Chart FU. SGUNCK Macro-- Unit Check
Routine Build Error Queue Entry:
Refer to Supervisor. Chart 17 .• • • • .404
Chart FV. SGUNCK Macro Error Recovery
Exits (Part 1 of 2): Refer to
Supervisor, Chart 17. • • ~ • • • • • .405
Chart FW. SGUNCK Macro Error Recovery
Exits (Part 2 of 2): Refer to
Supervisor" Chart 17. • • • • • • • • .406
Charts

13

Chart FX. SGUNCK Macro-- DEQUER and
RSTREG subrout1nes~ Refer to
Supervisor, Chart 17. • • • • •
• .407
Chart FY. SGUNCK Macro-- Error Start
I/O Subroutine; Refer to Supervisor,
Chart 17. • • • • • • • • • • • • • • • 4 08
Chart FZ. SGUNCK Macro-- Quiesce I/O
Task; Refer to Supervisor, Chart 17 • . 409
Chart GA. SGDFCH Macro-- Fetch with
MPS Option (Part 1 of 3); Refer to
supervisor, Chart 14. • • • • • • • • .410
Chart GB. SGDFCH Macro-- Fetch with
MPS Option (Part 2 of 3), Refer to
Supervisor, Chart 14. • • • • • • • • .411
Chart GC. SGDFCH Macro-- Fetch with
MPS Option (Part 3 of 3)~ Refer to
Supervisor, Chart 14. • • • • • • • • .412
Chart GD. SGDFCH Macro-- Fetch with
Batch Only Option (Part 1 of 2);
Refer to Supervisor, Chart 14 • • • • • 413
Chart GF. SGDFCH Macro-- Fetch with
Batch Only Option (Part 2 of 2)~
Refer to Supervisor, Chart 14 •
• .414
Chart GG. SGDFCH Macro-READUPDT and
RSTPUB Subroutine; Refer to
Supervisor, Chart 14. • • . • .
• .415
Chart GH. SGSVC Macro-- SVC Interrupt
Handler; Refer to Supervisor, Chart
14. • . • . • . • • • • • . • • . • • .416
Chart GJ. SGSVC Macro-- SVC's 1, 5,
12, and 13~ Refer to Supervisor, Chart
14. . • • • • . • • • • • . • •
• .417
Chart GK. SGSVC Macro-- SVC's 2 and
11 with MPS Option; Refer to
Supervisor, Chart 14. • • . • .
• .418
Chart GL. SGSVC Macro-- SVC's 2 and
11 with Batch Only option; Refer to
Supervisor, Chart 14. . • . • . • . • .419
Chart GM. SGSVC Macro-- SVC's 3, 4,
and 7~ Refer to Supervisor, Ghart 14 •• 420
Chart GN. SGSVC Macro--SVC's 8, 9,
and 10; Refer to Supervisor, Chart 14 .421
Chart GP. SGSVC Macro--SVC's 22, 23,
24, and 26~ Refer to Supervisor,
. Chart 14. . • • • . . • • . • . • • . . 4 22
Chart GQ. SGSVC Macro-- Program Check
Interrupt, SVC's 17 and 18; Refer to
Supervisor, Chart 14. • . . • .
.423
Chart GR. SGSVC Macro-- Program Check
Interrupt~ Refer to Supervisor, Chart
16. • . • • . • • • . • • . • • •
.424
Chart GS. SGSVC Macro-- External
Interrupt with User OC or IT
Routines; Refer to Supervisor, Chart
16. • • • • • • • • • • • . • • •
.425
Chart GT. SGSVC Macro-- External
Interrupt Subroutines; Refer to
supervisor, Chart 16. . • • • .
.426
Chart GU. SGSVC Macro-- Program Check
Interrupt~ Refer to Supervisor, Chart
14. . • • • • • • • • • • • • •
• .427
Chart GV. SGDSK Macro-Resident Disk
Error Recovery (Part 1 of 2); Refer
to Supervisor, Chart 17 . . • • . • • . 428
Chart GW. SGDSK Macro-- Resident Disk
Error Recovery (Part 2 of 2); Refer
to Supervisor, Chart 17 • . • • • • • .429

14

DOS System Control

Chart GX. SGTCON Macro-- Resident
Attention and SVEREG-VLDADR
Subroutines; Refer to Supervisor,
Chart 13 . . . , . • . . • . . . . .
.430
Chart GY. SEND Macro-- LTA Subroutine .431
Chart HA. ERP Monitor (Part 1 of 2);
($$ANERRA); Refer to Supervisor"
Chart 18. • • • • • • • • • • • • • • • 432
Chart HB. ERP Monitor (Part 2 of 2~
$$ANERRA)~ Refer to Supervisor, Chart
18. . . . . . . . . . . . . . . • . . .433
Chart HC.
2311 Nonresident ERP (Part
1 of 2) $$ANERRB~Refer to Supervisor,
Chart 18. • • • • • • • • • • • • • • .434
Chart HD.
2311 Nonresident ERP (Part
2 of 2) $$ANERRB; Refer to
Supervisor, Chart 18 • • • • • • • • • .435
Chart HE.
2400 ERP-- Error Analysis
and Selected Errors (Part 1 of 2)
$$ANERRD~ Refer to Supervisor, Chart
18. . . . . . . .'. . . . . . . . . . .436
Chart HF.
2400 ERP-- Error Analysis
and Selected Errors (Part 2 of 2)
$$ANERRD~ Refer to Supervisor, Chart
18 • • • • • • • • • • • • • • • • • • • 437
Chart HG.
2400 ERP Selected Errors
(Part 1 of 3) $$ANERRE~ lefer to
Supervisor, Chart 18 • • • • • • • • • • 438
Chart HH.
2400 ERP Selected Errors
(part 2 of 3) $$ANERRE~ Refer to
supervisor, Chart 18 • • • • • • • • • • 439
Chart HJ. 2400 ERP Selected Errors
(Part 3 of 3) $$ANERRE~ Refer to
Supervisor, Chart 18 • . • • • • • • • • 440
Chart HK. 2400 ERP Data Check (Part 1
of 3) $$ANERRF~ Refer to Supervisor,
Chart 18 • • . • • • • • • • • • • • • • 441
Chart HL.
2400 ERP Data Check (Part 2
of 3) $$ANERRF; Refer to Supervisor,
Chart 18. • • • • • . • .'. • • • . • .442
Chart HM. 2400 ERP Data Check (Part 3
of 3) $$ANERRF~ Refer to Supervisor,
Chart 18. • • • • • • • • • • • •
.443
Chart HN.
2321 ERP Error Analysis
(Part 1 of 3) $$ANERRG~ Refer to
supervisor Chart 18 • • • • • • • • • .444
Chart HP.
2321 ERP Error Analysis
(Part 2 of 3) $$ANERRG~ Refer to
Supervisor, Ch~rt 18 . • • • • • • • • • 445
Chart HQ 2321 ERP Error Analysis
(Part 3 of 3) $$ANERRG~ Refer to
Supervisor, Chart 18 • • • • • • • • • • 446
Chart HR.
2321 ERP Track Condition
Check ($$ANERRH)~ Refer to
Supervisor, Chart 18 • • • • . • . . • • 447
Chart HS. 2321 ERP-- Data
Check/Missing Address Marker
($$ANERRI)~ Refer to Supervisor,
Chart 18. • • • • • • • . • • • •
.448
Chart HT.
2321 ERP-- NRF/Missing
Address Marker, NRF/Seek Check (Part
1 of 2) $$ANERRJ~ Refer to
supervisor, Chart 18. • . • • • • . • .449
Chart HU.
2321 ERP "NRF/Missing
Address Marker, NRF/Seek Check (Part
2 of 2) $$ANERRJ~ Refer to
Supervisor, Chart 18 • • • • . • • • • • 450

Chart HV.
2321 ERP--Continuation of
$$ANERRJ ($$ANERRK); Refer to
Supervisor, Chart 18 • • • • . • • • • • 451
Chart JA. Message Writer-- Determine
Action Type and Targets; $$ANERRM;
Refer to Supervisor, Chart 19 • • • • . 452
Chart JB. Message Writer-- Determine
Ownership (Part 1 of 2; $$ANERRN;
Refer to Supervisor Chart 19 • • • . • • 453
Chart JC. Message Writer-- Determine
Ownership (Part 2 of 2) $$ANERRN;
Refer to Supervisor, Chart 19 • • • • • 454
Chart JD. Message Writer-- Format
Message; $$ANERRO; Refer to
Supervisor, Chart 19. • • • • • • • • .455
Chart JE. Message Writer -- output
Message; $$ANERRP ; Refer to
Supervisor, Chart 19. • • • • . • • • .456
Chart JF. Message Writer-- Read
Operator Reply (Part 1 of 2)
$$ANERRQ; Refer to Supervisor, Chart
19. • • • • • • • • • • • • • .
.457
Chart JG. Message Writer-- Read
Operator Reply (Part 2 of 2)
$$ANERRQ; Refer to Supervisor, Chart
19. • • • . • • • • • • • . • • •
.458
Chart JH. Message Writer-- Error
Recovery; $$ANERRRi Refer to
Supervisor, Chart 19. • • • • • • • • .459
Chart JJ. Message Writer-- Cancel,
Ignore or Dequeue ($$ANERRS); Refer
to Supervisor, Chart 19 • • • • • • • • 460
Chart JK. Unit Record ERP-- 1052 and
1056 (Part 1 of 2) $$ANERRU; Refer to
Supervisor, Chart 18. • • • • • • • • .461
Chart JL.
Unit Record ERP-- 1052 and
1056 (Part.2 of 2) $$ANERRU; Refer to
'Supervisor, Chart 18. • • • • • • • • .462
Chart JM. Unit Record ERP-- 1403,
1442, 1443, 2501, 2520, 2540, (Part 1
of 2) $$ANERRV; Refer to Supervisor,
Chart 18. • • • • • • • • • • • • • • .463
Chart IN.
Unit Record ERP-- 1403,
1442, 1433, 2501, 2520, 2540, (Part 2
of 2) $$ANERRV; Refer to Supervisor,
Chart 18. • • • • • • • • • • • • • • .464
Chart JP. Paper Tape ERP--2671 (Part
1 of 2) $$ANERRX; Refer to
Supervisor, Chart 18 • • • • • • • • • • 465
Chart JQ. Paper Tape ERP--2671 (Part
2 of 2) $$ANERRX; Refer to
Supervisor, Chart 18. • • • • • • • • .466
Chart JR. Optical Reader ERP--1285;
$$ANERR9: Refer to Supervisor, Chart
18. • . • • • • • • • • • • • • • • • • 467
Chart JRA. Optical Reader ERP--1285;
$$ANERR9: Refer to supervisor, Chart
18. • • • • • • • • • • • • • • • • • • 468
Chart JRB. Optical Reader ERP--1285;
$$ANERR9: Refer to Supervisor, Chart
18 • • • • • • • • • • • • • • • • • • • 469
Chart JS. Physical Attention-- Send
Messagei $$ANERRYi Refer to
Supervisor, Chart 20. • • • • . • • • .470
Chart JT. Physical Attention-- Read
Operator ReplYi $$ANERRYi Refer to
Supervisor, Chart 20 • • • • • • • • • • 471

Chart JU. Physical Attention-Initial PUB Scan; $$ANERRZi Refer to
Supervisor, Chart 20. • • • • • •
.472
Chart JV. Physical Attention-- Cancel
Routine and Physcial 1ttention
Subroutines ($$ANERRZ); Refer to
Supervisor, Chart 20 • • • . • • • • • • 473
Chart JW. Physical Attention-Emergency Cancel (Part 1 of 2)
$$ANERRO; Refer to Supervisor, Chart
20. • • • • • • • • • • • • . •
.474
Chart JX. Physical Attention-Emergency Cancel (Part 2 of 2)
$$ANERRO; Refer to Supervisor, Chart
20 • • • • • • • • • • • • • • • • • • • 475
Chart JY. Move Data to Communications
Region ($$ANERR1) • • • • • • • •
.476
Chart KA.
Nonresident
Attention/Initiator Root Phase
($$BATTNA); Refer to Supervisor,
Chart 21. • • • • . • • • • • • •
.477
Chart KB. Control Routine ($$BATTNA);
Refer to Supervisor, Chart 21 • •
.478
Chart KC.
Root Phase Subroutines
($$BATTNA)i Refer to Supervisor,
Chart 21 • • • • • • • • • • • • • • • • 479
Chart KD. General Scan Routines
($$BATTNA)i Refer to Supervisor,
Chart 21 • • • • • • • • • • • • • • • • 480
Chart KE. MSG Statement Processor
($$BATTNB); Refer to Supervisor,
Chart 24. • • • • • • • • • • • •
• 4 81
Chart KF.
Set Operator Communications
and Exit Table Linkage ($$BATTNB);
Refer to Supervisor, Chart 24 • • • • • 482
Chart KG. CANCEL Statement Processor
($$BATTNC); Refer to Supervisor,
Chart 24. • • • • • • • • • • • •
.483
Chart KH.
PAUSE, LOG, and NOLOG
Statement Processors ($$BATTNC);
Refer to Supervisor, Chart 24 • • • • • 484
Chart KJ.
MAP Statement Processor
($$BATTND); Refer to Supervisor,
Chart 24. • • • • • • • • • • • •
.485
Chart KL. Output MAP Subroutines
(Part 1 of 2) $$BATTNDi Refer to
Supervisor, Chart 24. • • • • • •
.486
Chart KM. Output MAP Subroutines
(Part 2 of 2) $$BATTND; 'Refer to
Supervisor, Chart 24. • • • • • •
.487
Chart KN. ALLOC Statement Processor,
Part 1; $$BATTNE)i Refer to
Supervisor, Chart 25. • • • • • • • • • 488
Chart KP. ALLOC Statement Operand
Validity Checking; $$BATTNEi Refer to
Supervisor, Chart 25. • • • • • • • • • 489
Chart KQ. ALLOC Statement Processor,
Part 2 (Part 1 of 2) $$BATTNF; Refer
to Supervisor, Chart 25 • • • • • • • • 490
Chart KR. ALLOC Statement Processor,
Part 2 (Part 2 of 2) $$BATTNF; Refer
to Supervisor, Chart 25 • • • • • • • • 491
Chart KS. START Statement Processor,
Part 1 ($$BATTNG); Refer to
Supervisor, Chart 25 • • • • • • • • • • 492
Chart KT. START Statement Processor,
Part 2; $$BATTNH; Refer to
. Supervisor, Chart 25 • • • • • • • • • • 493
Charts

15

Chart KU.
START Processor Subroutines
$$BATTNHi Refer to Supervisor, Chart
25. • • •
. • • • • • • • • • • • 494
Chart KV.
ASSGN Statement Processor
(Part 1 of 2) $$BATTNIi Refer to
supervisor, Chart 22 • • • • • • • • • • 495
Chart KW.
ASSGN Statement Processor
(Part 2 of 2) $$BATTNIi Refer to
Supervisor, Chart 22 • • • • • • • • • • 496
Chart KX.
READ Statement Processor
$$BATTNIi Refer to supervisor, Chart
22. • • • • • • • • • • • • • • • • • .497
Chart KY.
Validate S~SXXX Subroutine
$$BATTNIi Refer to Supervisor, Chart
22. • • • • . • • . • . • • • • • • • • 498
Chart KZ.
Validity Check Channel and
Unit and Convert to BinarYi $$BATTNIi
REFER TO Supervisor, Chart 22 • • • • • 499
Chart LA.
Unassign Subroutine
$$BATTNIi Refer to supervisor, Chart
22. • . • • • • • • • • • . • • • • • • 500
Chart LB.
Scan LUBs in Class
Subroutine $$BATTNIi Refer to
Supervisor, Chart 22. • • • • • • • • .501
Chart LC.
Scan JIB's Subroutine
$$BATTNIi Refer to Supervisor, Chart
22. • • •
• • • • • . • • • • • • 502
Chart LD.
Reset Free List Routine
$$EATTNIi Refer to Supervisor, Chart
22. • • •
• . • • • • • • • • • • 503
Chart LE.
ASSGN Processor Subroutines
(Part 1 of 2) $$BATTNIi Refer to
Supervisor, Chart 22 • • • . • • • • • . 504
Chart LF.
ASSGN Processor Subroutines
(Part 2 of 2) $$BATTNIi Refer to
Supervisor Chart 22 • • • . • • • • • .505
Chart LG.
Common Error Exits
$$BATTNIi Refer to Supervisor, Chart
22. • • • • . . • • • • • • • • • . • .506
Chart LH.
LISTIO Statement Processor
$$BATTNJi Refer to Supervisor, Chart
23 • • • • • • • • • . • • • • • • • . • 507
Chart LJ.
List Subroutines $$BATTNJi
Refer to SUpervisor, Chart 23 • • • • • 508
Chart LK.
Locate Assignment Routine
$$EATTNJi Refer to Supervisor, Chart
23. • . • • • • • • • • • • . • • • • .509
Chart LL.
Output List (Part 1 of 3)
$$BATTNJi Refer to Supervisor, Chart
23. • . • • • • • • • . • . • • • • • .510
Chart LM.
Output List (Part 2 of 3)
$$BATTNJi Refer to Supervisor, Chart
23. • • • • • • • • • • • . • • • • • • 511
Chart LN.
output List (Part 3 of 3)'
$$'BATTNJ i Refer to SUpervisor, Chart
23. • • • • • • • • • • . • • • • • • .512
Chart LP.
VOL Statement Processor
$$BATTNKi Refer to Supervisor, Chart
23. • . •
.513
TPLAB Statement Brocessor
Chart LQ.
$$BA.TTNKi Refer to Supervisor, Chart
.514
23 • • • •
Chart LR.
Concatenate Subroutine
$$BATTNKi Refer to Supervisor, Chart
23 . • • •
.515
Validity Check Subroutine
Chart LS.
$$BATTNKi Refer to Supervisor, Chart
23. • • •
.516
16

DOS System Control

Chart LT. DLAB Statement Processor
$$BATTNKi Refer to Supervisor, Chart
23 • • • • • • • • • • • • • • • • • • • 517
Chart LU.
Extract Operand from
Statement Subroutine $$BATTNKi Refer
to Supervisor, Chart 23 • • • • • • • • 518
Chart LV. Common Error Exits
$$BATTNKi Refer to Supervisor, Chart
23. • • • • • • . • • • • • • • • • • .519
Chart LW. Output Label Data
Subroutine $$BATTNKi Refer to
Supervisor, Chart 23 • • • • • • • • • • 520
Chart LX.
XTENT Statement Processor,
Type and Sequence (Part 1 of 2)
$$BATTNLi Refer to Supervisor, Chart
23. • • • • • • • • • • • • • • • • • • 521
Chart LY.
XTENT Statement Processor,
Type and Sequence (Part 2 of 2)
$$BATTNLi Refer to Supervisor, Chart
23. • • •
• • • • • • • • . • • • 522
Chart LZ.
XTENT Limit Processing
$$BATTNLi Refer to Supervisor, Chart
23. • • •
• • • • • • • • • • • .523
Chart MA.
XTENT Processor Subroutines
$$BATTNLi Refer to Supervisor, Chart
23. • • •
. . • • • • • • • • • .524
Chart ME. Terminal XTENT Statement
Processing $$BATTNLi Refer to
supervisor, Chart 23 • • . • • • • • • • 525
Chart MC.
EXEC Statement Processor
$$BATTNMi Refer to Supervisor, Chart
23. • • • • . • • . •
• • • • • • 526
Chart MD. Output Last Block of Label
Information $$BATTNM; Refer to
Supervisor, Chart 23 • • • • • • . • • • 527
Chart ME.
Move Last Block Routine
$$BATTNMi Refer to Supervisor, Chart
23. • • • • • • • • • • .
.528
Chart MF.
Move Subroutine and
Initialize ,for FG Program Load
Routine $$BATTNMi Refer to
Supervisor, Chart 23 • • • • • •
.529
Chart MG.
UCS Statement Processor
$$BATTNM; Refer to Supervisor, Chart
23. • • .
• • • • . • • • • • • .530
Chart MH.
TIMER Statement Processor
$$BATTNNi Refer to Supervisor, Chart
25. • • .
• • • • • • • • • • • .531
Chart MJ.
UNA Statement Processor
$$BATTNIi Refer to Supervisor, Chart
.532
22. • • • • • • • • • • • • • • •
Chart MK.
HOLD or RELSE Statement
Processor $$BATTNIi Refer to
.533
Supervisor, Chart 22 • • • • • • •
Chart l~.
UNA, HOLD, RELSE Processor
Subroutines $$BATTNI; Refer to
Supervisor, Chart 22. • . • • • • • • .534
Chart NA.
Terminated Program I/O
Handling $$BEOJi Refer to Supervisor,
Chart 26. • • • • • . • • • • • . • . .535
Chart NB.
EOJ Processing Routine and
$$BEOJ Subroutines $$BEOJi Refer to
Supervisor, Chart 26. • . • • • • • • .536
Chart NC.
Message Output Subroutine
$$BEOJi Refer to Supervisor, Chart 26 .537
Chart NO. Quiesce I/O Phase $$BEOJ3i
Refer to Supervisor, Chart 26 • • • • .538

(

Chart NE. Reset Foreground PUB
Ownership and Detach Attention
Routine $$BTERM: Refer to supervisor,
Chart 26 • . • • • • • • • • • • . • • . 539
Chart NF. Reset JIB's for I/O Devices
of Terminated Program $$BTERM: Refer
to Supervisor, Chart 26 • . • • •
.540
Chart NG. Get TEB Statistics and
Reset TEB's $$BTERM: Refer to
Supervisor, Chart 26. • • . • • •
.541
Chart NH.
Print Message and TEB
Statistics Subroutine $$BTERM; Refer
to Supervisor, Chart 26 • • • • • • • • 542
Chart NJ. Prepare Cancel Cause
Message $$BEOJ1: Refer to Supervisor,
chart 27. • • • • • • • • • • • • • • .543
Chart NK. Output Cancel Message on
SYSLST: $$BEOJ1: Refer to Supervisor,
Chart 27. • • • • • • • • • • .
.544
Chart NL. Select Cancel Message and
Program Identification $$BEOJ2; Refer
to Supervisor, Chart 28 • • • •
..545
Chart NM.
Select I/O Device and
output the Cancel Message $$BEOJ2:
Refer to Supervisor, Chart 28 • • • • • 546
Chart NN. Prepare Information About
Cancel Cause $$BILSVC: Refer to
supervisor, Chart 28. • • • • • • • • .547
Chart NP. Select I/O Device and
Prepare to Output a Message $$BILSVC:
Refer to Supervisor, Chart 28 • • • • • 548
Chart NQ. output Message on Selected
I/O Device $$BILSVC: Refer to
Supervisor, Chart 28. . • • • . • • • .549
Chart NR. Prepare Canceled Program's
PSW for Output Message and PIOCS
Subroutine $$BPSW: Refer to
Supervisor, Chart 27 • • • • • • • • • • 550
Chart NS. Select I/O Device and
Prepare to Output a Message $$BPSW:
Refer to Supervisor, Chart 27 • • • • . 551
Chart NT.
Prepare Information for
Message about PC Cancel and Select
I/O Device $$BPCHK: Refer to
Supervisor, Chart 28. • • • • • • • • .552
Chart NU. Set Up for I/O and output
the Message $$BPCHK: Refer to
Supervisor, Chart 28. • • • • • • • • .553
Chart NV~
Monitor Background Program
Dump $$BDUMP: Refer to Supervisor,
Chart 27 • • • • • • • • • • • • • • • • 554
Chart NW. Monitor Foreground Program
Dump $$BDUMP: Refer to Supervisor,
Chart 27. • • • • • • • • • • • • • • .555
Chart NX. Foreground Program Dump
$$BDUMPF: Refer to Supervisor, Chart
29. • • • • • • • • • • • • • • • • • • 556
Chart NY.
Prepare Page Headings and
PIOCS Subroutines $$BDUMPF: Refer to
Supervisor, Chart 29. • • • • • •
.557
Chart NZ. Prepare and Edit a Line
Subroutine $$BDUMPF: 1efer to
Supervisor, Chart 29. • • • • • •
.558
Chart PA. Line rest Subroutines
$$BDUMPF: Refer to Supervisor, Chart
29 • • • • • • • • • • • • • • • • • • • 559

Chart PB. Initialize for BG Storage
Dump or Printer or Tape $$BDUMPB:
Refer to Supervisor, Chart 29 • • • • • 560
Chart PC. BG Dump on Printer or Tape
$$BDUMPB: Refer to Supervisor, Chart
29. • • . • • •.• • • • • • • • • • • • 561
Chart PD. Prepare Page Headings and
PIOCS Subroutines $$BDUMPB: Refer to
Supervisor, Chart 29. • • • • • •
.562
Chart PEe Prepare and Edit a Line
Subroutine $$BDU~~B; Refer to
Supervisor, Chart 29. • • • • • •
.56~
Chart PF.
Line Test Subroutines
$$BDUMPB: Refer to Supervisor, Chart
29 • . . • • • • • • • • . . • • • • • • 564
Chart PG. BG Dump on Disk Device
$$BDUMPD; Refer to Supervisor, Chart
29 • . • • • • • • • • • • • • • • • • • 565
Chart PH. Prepare Page Headings and
PIOCS Subroutines $$BDUMPD: Refer to
Supervisor, Chart 29. • • • • • •
.566
Chart PJ. Prepare and Edit a Line
Subroutine $$BDUMPD; Refer to
Supervisor, Chart 29. • • • • • •
.567
Chart PK. Line Test Subroutines
$$BDUMPD; Refer to SUpervisor, Chart
29. • • • • • • . • • • • •
.568
Chart PL. Parameter Storage Dump
Monitor $$BPDUMPi Refer to
Supervisor, Chart 30. • • • • • •
.569
Chart PM.
Initialize Parameter Dump
or Printer or Tape $$BPDUM1: Refer to
Supervisor, Chart 30 • • • • • . • • • • • 570
Chart PN. Parameter Storage Dump on
Printer or Tape $$BPDUM1: Refer to
Supervisor, Chart 30 • • • _ • • • • • • 571
Chart PP. Line Test Subroutines
$$BPDUM1: Refer to Supervisor, Chart
30. • • • • • • • • • • • • • • •
.572
Chart PQ. Prepare and Edit a Line
Subroutine $$BPDUM1: Refer to
Supervisor, Chart 30. • • • • • • • • .573
Chart PS. Set Up a Write on SYSRES
Operation $$BYSYSWR • • • • • • • • • .574
Chart QA.
Initialization, Part 2
$LNKEDT: Refer to Linkage Editor,
Chart 31 • • • • • • • • • • • • • • • • 575
Chart QB. Initialization, Part 1
(Part 1 of 2) $LNKEDT: Refer to
Linkage Editor, Chart 31 • • • • • • • • 576
Chart QC. Initialization, Part 1
(Part 2 of 2) $LNKEDT; Refer to
Linkage Editor, Chart 31 • • • • • • • • 577
Chart QD. Read SYSLNK Subroutine
$LNKEDT: Refer to Linkage Editor,
Chart 31. • • • • • • • • • • • •
.578
Chart QE. Control Dictionary Search
Subroutine $LNKEDT: Refer to Linkage
Editor, Chart 31. • • • _ • • • •
.579
Chart QF. Label Search Subroutine
$LNKEDT: Refer to Linkage Editor,
Chart 31. • • • • • • • • • • • •
.580
Chart QH. Convert to Binary
Subroutine $LNKEDT; Refer to Linkage
Editor, Chart 31. • • • • • • • • • • .581
Chart QJ. Print/Carriage Control
Subroutine $LNKEDT; Refer to Linkage
Editor, Chart 31 • • • • • • • • • • • • 582
Charts

17

Chart QK. Update Disk Address
Subroutine $LNKEDT; Refer to Linkage
Editor, Chart 31 • • • • • • • • • • • • 583
,oChart QL. Extract Phase Number
Subroutine $LNKEDT; Refer to Linkage
Editor, Chart 31. • • • • . • • •
'0584
Chart QM. Read/Write Subroutine
$LNKEDT; Refer to Linkage Editor,
Chart 31. • • • • • • • • . • • • • • .585
Chart QN. Overflow Test Subroutine
$LNKEDT; Refer to Linkage Editor,
Chart 31 • • • • • • • • • . • • • . . • 586
Chart QP. Read Input Stream $LNKEDT;
Refer to Linkage Editor, Chart 31 • • • 587
Chart QQ. Autolink Processing
Subroutine $LNKEDT; Refer to Linkage
Editor, Chart 31 • . • • • • • • • • • • 588
Chart QR.
Non-Abort Error Subroutine
$LNKEDT; Refer to Linkage Editor,
Chart 31 • • • • • • • • • • • • • • • • 589
Chart QS. Overlay Subroutine $LNKEDT;
Refer to Linkage Editor, Chart 31 • • • 590
Chart QT.
Core Image Block Building
Subroutine $LNKEDT; Refer to Linkage
Editor, Chart 31 • • • • • • • • • • • • 591
Chart QU. Action Processor $LNKEDT;
Refer to Linkage Editor, Chart 31 • • • 592
Chart RA.
Initialize ESD Processor
$LNKEDTO; Refer to Linkage Editor,
Chart 32 • • • • • . • • • • • • • • • • 593
Chart RB. ESD Processor, Card Image
Check, (Part 1 of 2) $LNKEDTO; Refer
to Linkage Editor, Chart 32 • • • • • • 594
Chart RC.
ESD Processor, Card Image
Check, (Part 2 of 2) $LNKEDTO; Refer
to Linkage Editor, Chart 32 • • • • • • 595
Chart RD.
ESD Processor, Process ESD
Items Against Control Dictionary
$LNKEDTO; Refer to Linkage Editor,
Chart 32 • • • • • • • • • • • • • • • • 596
Chart RE. ESD Processor, Process ER
$LNKEDTO; Refer to Linkage Editor,
Chart- 32. • • . • . • • • • • • • • • .597
Chart RF.
ESD Processor, Process SD
$LNKEDTO; Refer to Linkage Editor,
Chart 32 • • • • • • • • • • • • • . • • 598
Chart RG. ESD Processor, Process
LD/LR $LNKEDTO; Refer to Linkage
Editor, Chart 32. • • • • • • • •
.599
Chart RH. ESD Processor, Update
Linkage Table and Control Dictionary
(Part 1 of 2) $LNKEDTO; Refer to
Linkage Editor, Chart 32 • • • • • • • • 600
Chart RJ.
ESD Processor, Update
Linkage Table and Control Dictionary
(Part 2 of 2) $LNKEDTO; Refer to
Linkage Editor, Chart 32 • • • • • • • • 601
Chart RK.
Initialize for $LNKEDT2;
Refer to Linkage Editor, Chart 33 • • • 602
Chart RL. TXT Processor $LNKEDT2;
Refer to Linkage Editor, Chart 33 • • • 603
Chart RM. REP Processor $LNKEDT2;
Refer to Linkage Editor, Chart 33 • • • 604
Chart RN. RLD Pass 1 Processing (Part
1 9f 2) $LNKEDT2; Refer to Linkage
Editor, Chart 33 • • • • • • • • • • • • 605

18

DOS System Control

Chart RP. RLD Pass 1 Processing (Part
2 of 2) $LNKEDT2; Refer to Linkage
Editor, Chart 33 • • • • • • • • • • • • 606
Chart RQ. END Processor (Part 1 of 2)
$LNKEDT2; Refer to Linkage Editor,
Chart 33 • • • • • • • • • • • • • • • • 607
Chart RR. END Processor (Part 2 of 2)
$LNKEDT2; Refer to Linkage Editor,
Chart 33.
• • • • • • • • • • • • 608
Chart RS.
Write SYS001 Subroutine
$LNKEDT2; Refer to Linkage Editor,
Chart 33 • • • • • • • • • • • • • • • • 609
Chart RT.
Initialize Control Card
Processor $LNKEDT4; Refer to Linkage
Editor, Chart 34. • • • • • • • • • • .610
Chart RU. Include Card Processor
$LNKEDT4; Refer to Linkage Editor,
Chart 34.
• • • • • • • • •
.611
Chart RV. Entry Card Processor
$LNKEDT4; Refer to Linkage Editor
Chart 34.
• • • • • • • • •
.612
Chart RW. Phase Card Processor (Part
1 of 3) $LNKEDT4; Refer to Linkage
Editor, Chart 34 • • • • • • • • • • • • 613
Chart RX. Phase Card Processor (Part
2 of 3) $LNKEDT4; Refer to Linkage
Editor, Chart 34 • • • • • • • • • • • • 614
Chart RY.
Phase Card Processor (Part
3 of 3) $LNKEDT4; Refer to Linkage
Editor, Chart 34 • • • • • • • • • • • • 615
Chart RZ. Skip Blanks and Extract
Field Subroutine $LNKEDT4; Refer to
Linkage Editor, Chart 34. • • • •
.616
Chart SA. Phase Post Processing
$LNKEDT6 (Part 1 of 6); Refer to
Linkage Editor, Chart 35. • • • •
.617
Chart SB. Phase Post Processing
$LNKEDT6 (Part 2 of 6); Refer to
Linkage Editor, Chart 35 • • • • • • • • 618
Chart SC. Phase Post Processing
$LNKEDT6 (Part 3 of 6); Refer to
Linkage Editor, Chart 35 • • • • • • • • 619
Chart SD. Phase Post Processing
$LNKEDT6 (Part 4 of 6); Refer to
Linkage Editor, Chart 35. • • • •
.620
Chart SE. Phase Post Processing
$LNKEDT6 (Part 5 of 6); Refer to
Linkage Editor, Chart 35. • • • •
.621
Chart SF. Phase Post Processing
$LNKEDT6 O(Part 6 of 6); Refer to
Linkage Editor, Chart 35. • • • •
.622
Chart SG. Include Post Processing
$LNKEDT6; Refer to Linkage Editor,
Chart 35. • • • • • • • • • • • • • • • 623
Chart SH. Print Map $LNKEDTB (fart 1
of 4); Refer to Linkage Editor, Chart
36.
.624
Chart SJ. Print Map $LNKEDT8 (Part 2
of 4) ; Refer to Linkage Editor, Chart
36.
.625
Chart SK. Print Map $LNKEDT8 (Part 3
of 4) ; Refer to LiOnkage Editor, Chart
36.
.626
Chart SL. Print Map $LNKEDTB (Part 4
of 4) ; Refer to Linkage Editor, Chart
36.
.627

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

(
\

)

Chart SM. Pass 2 P-Pointer Processor
$LNKEDTA; Refer to Linkage Editor,
Chart 37 • • • • • • • • • • • • • • • • 628
Chart SN. Pass 2 R-Pointer Processor
$LNKEDTA; -Refer to Linkage Editor,
Chart 37. " • • • • • • • • • • • • • • 629
Chart SP. Pass 2 RLD Constant
Processor $LNKEDTA; Refer to Linkage
Editor, Chart 37 • • • • • • • • • • • • 630
Chart SQ. Pass 2 ABORT and MAP
Routines $LNDEDTA; Refer to Linkage
Editor, Chart 37 • • • • • • • • • • • . 631
Chart SR. Pass 2, Block Phase Header
$LNKEDTA; Refer to Linkage Editor,
Chart 37. • • • • • • • • • • • •
.632
Chart ST. Pass 2 Subroutines
$LNKEDTA; Refer to Linkage Editor
Chart 37. • • • • • • • • • • • •
.633
Chart SUo Determine If Phases to be
Cataloged Fit in Core Image Directory
$LNKEDTC; Refer to Linkage Editor,
Chart 38 • • • • • • • . • • • • . • • • 634
Chart SV. Check Core Image Directory
for Entries Being Replaced $LNKEDTC;
Refer to Linkage Editor, Chart 38 • • • 635
Chart SW. Catalog Phase Entries to
Core Image Directory $LNKEDTC; Refer
to Linkage Editor, Chart 38 • • • • . • 636
Chart TA. Read Control Statements
MAINT; Refer to Maintenance, Chart 39 .637
Chart TB. Analyze Control Statements
MAINT; Refer to Maintenance, Chart 39 .638
Chart TC. Load Phases MAINT; Refer to
Maintenance, Chart 39 • • • • • • •
.639
Chart TD. Branch to Phases MAINT;
Refer to Maintenance, Chart 39 • • • • • 640
Chart TE.
Scan Control Statements
MAINT; Refer to 1aintenance, Chart 39 .641
Chart TF. Common Error Message
Routine MAINT; Refer to Maintenance,
Chart 39. • • • • • • • • • • • •
.642
Chart TG. Common IOCS I/O Routine
MAINT (Part 1 of 2); Refer to
Maintenance, Chart 39 • • • • • • • • • 643
Chart TH. Common IOCS I/O Routine
MAINT (Part 2 of 2); Refer to
Maintenance, Chart 39 • • • •
• • .644
Chart TJ. Core Image Library
Maintenance MAINTC2i Refer to
Maintenance, Chart 40 • • • • • • • • . 645
Chart TK. Scan Core Image Directory
MAINTC2i Refer to Maintenance, Chart
40 • • • • • . • • . • • • • • • • • . . 646
Chart TL. Initialize for Relocatable
Library Maintenance MAINTR2i Refer to
Maintenance, Chart 41 • • • • • • . • • 647
Chart TM.
Catalog Relocatable Library
MAINTR2 (Part 1 of 2); Refer to
Maintenance, Chart 41 • • • • • • • • .648
Chart TN. Catalog Relocatable Library
¥~INTR2 (Part 2 of 2)i Refer to
Maintenance, Chart 41 • • • • • • • • . 649
Chart TP. Delete from Relocatable
Library MAINTR2 (Part 1 of 2); Refer
to Maintenance, Chart 41 • • • • • . . • 650
Chart TQ. Delete from Relocatable
Library MAINTR2 (Part 2 of 2); Refer
to Maintenance, Chart 41 • • • • • • . • 651

Chart TR. Build ESD Record for
Relocatable Library MAINTR2 (Part 1
of 3); Refer to Maintenance, Chart 41 .652
Chart TS. Build ESD Record for
Relocatable Library MAINTR2 (Part 2
of 3); Refer to Maintenance, Chart 41 .653
Chart TT. Build ESD Record for
Relocatable Library MAINTR2 (Part 3
of 3); Refer to Maintenance, Chart 41 .654
Chart TU. Build RLD Record for
Relocatable Library MAINTR2; Refer to
ZvIaintenance, Chart 41 • • • • • • • • .655
Chart TV. Build TXT Record for
Relocatable Library MAINTR2; Refer to
Maintenance, Chart 41 • • • • • • • • .656
Chart TW. Rename a Module in
Relocatable Library MAINTR2; Refer to
Maintenance, Chart 41 • • • • • • • • .657
Chart TX. Write Block in Relocatable
Library MAINTR2; Refer to
Maintenance, Chart 41 • • • • • • • • • 658
Chart UA. Catalog and Delete Entries
MAINTS2; Refer to Maintenance, Chart
42 • • • • • • • • • • • • • • • • • • • 659
Chart UB. Rename Entry and Book Name
Validity Check MAINTS2; Refer to
l~intenance, Chart 42 • • • • • . • . • 660
Chart UC.
I/O Control MAINTS2 (Part 1
of 2); Refer to Maintenance, Chart 42 .661
Chart UD. I/O Control MAINTS2 (Part 2
of 2); Refer to Maintenance, Chart 42 .662
Chart UE. Format Book MAINTS2; Refer
to Maintenance, Chart 42 • • • • • . . • 663
Chart UFo Compress Book and Format
Book Already Compressed MAINTS2;
Refer to Maintenance, Chart 42.
• .664
Chart UG. Last Card in Book
Processing MAINTS2; Refer to
Maintenance, Chart 42 • • • • • . • • .665
Chart UH. Book End Statement
Processor MAINTS2i Refer to
Maintenance, Chart 42 • • • •
• .666
Chart UJ. Finish MAINTS2 Entry and
All Through Processing Routine
MAINTS2; Refer to ~~intenance, Chart
42. • • • • • • . • • . • • • • • . • .667
Chart UK.
Update Source Statement
Directory Subroutine MAINTS2 (Part 1
of 2); Refer to Maintenance, Chart 42 .668
Chart UL. Update Source Statement
Directory SUbroutine MAINTS2 (Part 2
of 2); Refer to Maintenance, Chart 42 .669
Chart UM. INITS, GETBKN, LASLID, and
MVBNMC Subroutines MAINTS2; Refer to
Maintenance, Chart 42 • • • • • • • • .670
Chart UN. OPRERS, OPRERT, and DELERR
Error Subroutines MAINTS2i Refer to
IvIaintenance, Chart 42 • • • • • • • . .671
Chart VA. Process Allocate Control
Statement MAINTA (Part 1 of 2); Refer
to Maintenance, Chart 43 • • • • • . • • 672
Chart VB. Process Allocate Control
Statement MAINTA (Part 2 of 2); Refer
to Maintenance, Chart 43 • • • • • • • • 673
Chart VC. Update Record 4 of System
Directory MAINTA; Refer to
Maintenance, Chart 43 • • • • • • • • • 674

Charts

19

Chart VD.
Build Directory and Library
Reallocation Tables MAINTAi Refer to
Maintenance, Chart 43 . • • • • • • • • 675
Chart VEe Compute Displacement and
Direction for Directory and Library
Movement MAINTAi Refer to
Maintenance, Chart 43 • • . • . • . • • 676
Chart VF.
Update System Directory
Records 1, 2, and 3 MAINTAi Refer to
Maintenance, Chart 43 • • • • .
.677
Chart VG. Write Updated System
Directory MAINTAi Refer to
Maintenance, Chart 43 . • • . .
.678
Chart VH. Update Library Directories
MAINTAi Refer to Maintena~ce, Chart
43. • ~ • • • • • • • . • . • . • • • . 679
Chart VJ. Relocate Directories and
Libraries MAINTAi Refer 10
Maintenance, Chart 43 • • . • • • • • . 680
Chart VK. Format Unused Tracks
MAINTAi Refer to Maintenance, Chart
43. • • • . • • • • • • •
• • 681
Chart VL.
TSTNUM, CONVRT, and UPDATE
Subroutines MAINTAi Refer to
Maintenance, Chart 43 • • • • • • • • .682
Chart VM.
Update Disk Address and
Copy Label Track Subroutines MAINTAi
Refer to Maintenance, Chart 43 • • . • • 683
Chart VN.
Initialize to Condense a
Library MAINTCNi Refer to
Maintenance, Chart 44 • . • • • • • • .684
Chart VP. Condense a Directory
MAINTCNi Refer to Maintenance, Chart
44 • • • • • • • • • • • • • • • • • • • 685
Chart VQ. Condense a Library MAINTCNi
Refer to Maintenance, Chart 44 • • • • • 686
Chart VR. Automatic Condense MAINTCNi
Refer to Maintenance, Chart 44 • • • • • 687
Chart VS. VERILI, IODISK, and WRTEDR
Subroutines MAINTCNi Refer to
Maintenance, Chart 44 • • • • • • • • • 688
Chart VT. CHGCCW and ICRDAD
Subroutines MAINTCNi Refer to
Maintenance, Chart 44 • • • • • • • • .689
Chart VUe Set Condense Limits
MAINTCLi Refer to Maintenance, Chart
45 • • • • • • • • • • • • • • • • • • • 690
Chart VV. Print System Status Report
and Update Subdirectories $MAINEOJ
{Part 1 of 3)i Refer to Maintenance,
Chart 4 5 • • • • • • • • • • • • • . • • 691
Chart VW.
Print System Status Report
and Update Subdirectories $MAINEOJ
{Part 2 of 3)i Refer to Maintenance,
Chart 45 • • • • • • • • • • • • • • • • 692
Chart VX. Print System Status Report
and Update Subdirectories $MAINEOJ
(Part 3 of 3); Refer to Maintenance,
Chart 45. • • • • • • • • • • •
• .693
Chart VY. Build Library Routine qnd
Trans~ent Subdirectory Blocks
$MAINEOJ; Refer to Maintenance, Chart
45. • . . • • . . • • . • . . .
• .694
Chart VZ. Build FGP and LIOCS Open
Subdirectory Blocks $MAINEOJi Refer
to Maintenance, Chart 45. • •
• .695

20

DOS System Control

Chart WA. Initialize Phase 1, Copy
IPL, and Format Cylinder 0 of SYS002
CORGZi Refer to organization, Chart
46. • . . • . • • • • • • • •
• .696
Chart WE. Read and Analyze Control
Statement, Write System Directory
Records CORGZi Refer to Organization,
Chart 46 • • . • . • • • • • • • • • • • 697
Chart WC. Build SYS002 System
Directory Information CORGZi Refer to
Organization, Chart 46. • • • •
.698
Chart wo. Process ALLOC Control
Statement CORGZi Refer to
Organization, Chart 46. • • • •
.699
Chart WE. Analyze Copy Statement Type
CORGZi Refer to organi~ation, Chart
47. • • • • • • • • • • • • • • • • • .700
Chart WF. Scan Copy Statement
Operands CORGZi Refer to
Organization, Chart 47 • • • • • • • • • 701
Chart WG.
Initialize to Build Library
Directories on SYS002 CORGZi Refer to
Organization, Chart 47 • • • • • • . • • 702
Chart WHo Build Core Image Library
Directory on SYS002 CORGZi Refer to
Organization, Chart 47. • • • • • • • .703
Chart WJ. Build Relocatable Library
Directory on SYS002 CORGZ; Refer to
Organization, Chart 47 • • • • • • • • • 704
Chart WK. Build Source Statement
Library Directory on SYS002 CORGZi
Refer to Organization, Chart 47 • • • • 705
Chart WL. Build SYS002 Core Image
Directory Entries for $ Programs
CORGZ; Refer to organization, Chart
46. • • • • • • • • • • • • • • • • • • 706
Chart WM. Build System Directory
Records and Format System Directory
CORGZi Refer to Organization, Chart
46 . . . • • • • • • • • • • • • • • • • 707
Chart WN. UPDISK, BLKLUP, UPRITE, and
TSTNUM Subroutines CORGZ; Refer to
Organization, Charts 46 and 47 • • • • • 708
Chart WP. WRITE, NEWRD, IOSYSRS, and
READDR Subroutines CORGZ; Refer to
Organization, Charts 46 and 47 • • • • • 709
Chart WQ. MOVE2,- MOVECC, CPYALL, and
WRTSD Subroutines CORGZi Refer to
Organization, Charts 46 and 47" • • • • 710
Chart WR. SINGLE, EXCMP, LKDOT and
NXTONE Subroutines CORGZi Refer to
Organization, Charts 46 and 47 • • • • • 711
Chart WS. CONVRT and DIRGET
Subroutines CORGZi Refer to
Organization, Charts 46 and 47 • • • • • 712
Chart WT. MOVE Subroutine CORGZi
Refer to Organization, Charts 46 and
47. • • • • • • • • • • • • • •
.713
Chart WU. Phase 1 Error Message
Routines CORGZi Refer to
Orga,nizationl, Charts 46 and 47.
.714
Chart wv. ERRRTN Error Subroutine
CORGZi Refer to Organization, Charts
46 and 47 • • • • • • • • • • • • • • .715
Chart WW. Copy Libraries from SYSRES
to SYS002 CORGZ2 {Part 1 of 2)i Refer
to Organization, Chart 46 • • • • • • • 716

(

Chart WX. Copy Libraries from SYSRES
to SYS002 CORGZ2 (Part 2 of 2): Refer
to organization, Chart 46 • • • • • • • 717
Chart WY. WRITLB, READLB, SYSDIR,
READIR, LOOPCT, and UPRITE Subroutine ~
CORGZ2: Refer to Organization, Chart
46. • • • • • • • • • • • • • • • • • .718
Chart XA. Read and Analyze Control
Statements DSERV: Refer to service,
Chart 48. • • • • • • • • • • • • • • .719
Chart XB. Print System Status Report
DSERV: Refer to Service, Chart 48 • • • 720
Chart XC. Print Transient and/or Core
Image Directories DSERV: Refer to
Service, Chart 48 • • • • • • • • • • • 721
Chart XD. Print Relocatable Directory
DSERV: Refer to Service, Chart 48 • • • 722
Chart XE. Print Source Statement
Directory DSERV: Refer to Service,
Chart 48 • • • • • • . • • • • • • • • • 723
Chart XF. Get Next Directory Entry
DSERV (Part 1 of 2): Refer to
Service, Chart 48 • • • • • • • • • • • 724
Chart XG. Get Next Directory Entry
DSERV (Part 2 of 2): Refer to
Service, Chart 48 • • • • • • • • • • • 725
Chart XH. Scan Control Statements
DSERV: Refer to Service, Chart 48 . • • 126
Chart XJ. Print Title Lines DSERV:
Refer to Service, Chart 48 • • • • • • . 727
Chart YA. Analyze Control Statements
RSERV: Refer to Service, Chart 49 • . • 728
Chart YB. Analyze Control Statement
Operands RSERV: Refer to service,
Chart 49 • • • • • • . • • • • • • • • • 729
Chart YC. Read Directory Block and
Scan for Module Name RSERV: Refer to
Service, Chart 49 • • • • • • • •
.730
Chart YD. Read Blocks from
Relocatable Library and Determine
Type RSERV; Refer to Service, Chart
49 . • • . . • . . • . • • . • • • • • . 731

Chart YEo Punch ESD Record RSERV:
Refer to Service, Chart 49. • • •
.732
Chart YF. Print ESD Record RSERV:
Refer to Service, Chart 49. • • •
.733
Chart YG. Punch and/or Print TXT
Record RSERV: Refer to Servi~e, Chart
49. • • • • •

.

.

.

• • .

.

.

•.

.734

Chart YH. Punch RLD Record RSERV:
Refer to Service, Chart 49 • • • • • • • 735
Chart YJ. Print RLD Record RSERV;
Refer to Service, Chart 49 • • • • • • • 136
Chart YK. I/O Subroutines RSERV:
Refer to Service, Chart 49. • • •
.737
Chart YL. Scan Control statements
RSERV: Refer to Service, Chart 49
.738
Chart ZA. Analyze Control Statements
SSERV (Part 1 of 2): Refer to
Service, Chart 50 • • • • • • • • • • .739
Chart ZB. Analyze Control Statements
SSERV (Part 2 of 2); Refer to
SerVice, Chart 50 • • • . • • • . • • • 740
Chart ZC. Get Card Images and Load
Output Buffers SSERV: Refer to
Service, Chart 50 • • • • • • . • • • • • 741
Chart ZD. I/O Input Control SSERV:
Refer to Service, Chart 50. •
.742
Chart ZE. output SSERV: Refer to
Service, Chart 50 • • • • • • . •
.743
Chart ZF. Heading Control SSERV:
Refer to Service, Chart 50 • • • • • • • 744
Chart ZG. Find Book SSERVi Refer to
Service, Chart 50 • • • • • • • • • • • 745
Chart ZH. $$BOPNLB Transient Program
to Open Source Statement Library
SSERV: Refer to Service, Chart 50
.746
Chart ZJ. Read Control Statements and
Scan for Operands SSERV: Refer to
Service, Chart 50 • • • • • • . •
.747
Chart ZK. EOF on SYSRDR, SYSLST, and
SYSPCH SSERV: Refer to Service, Chart
50. • . • • • • • • • • • • . •
.748)'7
Chart ZL. Error Routines SSERV: Refer
to Service, Chart 50. • • • • •
.749

Charts

21

'"'"
t::l

0

Cfl

()

g
11

rT

~

0
0

Cfl

'<
Ul

rT

ro
S

()

0

::s

rT

11
0

....

INTERRUPT PROCESSORS,
PHYSICAlIOCS,
MPS MECHANISM

LOAD AND INITIAliZE
THE SUPERVISOR
(SSAS$UP1)

ERROR RECOVERY
PROCEDURES,
PHYSICAL ATTENTION

Cfl

'<

Ul

rT

(1)

S
'U
11
0

\!l

11
nJ

S

...."l0
~

'I

I

//EXEC PROCESSING PROGRAM

LI

SORT/MERGE

(\

LI

I

//EXEC DSERV

SECTION 1. INTRODUCTION

The resident version of the IBl4 System/360
Disk Operating System (DOS), System
Control, Version 2, provides disk operating
system capabilities for 16K and larger
System/360 configurations. At least one
IBM 2311 Disk Storage Drive is required.
Systems larger than 16K can benefit from
this 16K package if they do not require the
expanded functions of the larger disk
operating system packages offered by IBl'l.
The system is disk resident, using the IBI>l
2311 Disk Storage Drive for on-line storage
of all programs. Depending on the
requirements of the particular application,
the system can be expanded to include all
processing programs used to perform the
various jobs of a particular installation,
or it can be tailored to a minimum system
to control a single program.
The operating system is composed of many
components, which include: CPU,
input/output channels, input/output control
units, input/output devices,
microprogramming, system control programs,
support programs, user programs, user data
files, Tele-processing capability, and
multiple programming capability. Only the
system control programs are within the
scope of this publication. Of the system
control programs, the supervisor and
physical IOCS are specifically designed for
a user's configuration by means of a
one-time assembly (generation time). They
require re-assernbly only if the user's
configuration changes.
The supervisor and physical IOCS provide
the required interface between the program
being executed and the other components of
the operating system. The program
currently being executed is identified to
the operating system as the current program
(definition used with this manual). The
last program interrupted is identified as
the problem program. The problem program
or the current program can be, at any given
time, either a system control program, a
support program, or a user program.

MUL'l'IPROGRAMMING

)

I

For those systems with main storage equal
to or in excess of 24K, disk operating
system offers multiprogramming support.
This support is referred to as fixed
partitioned multiprogramming, because
programs are assigned to fixed locations

when they are cataloged to the system. A
program occupies a contiguous area of
storage. The amount of main storage
allotted to programs to be executed may be
determined when the system is generated, or
the amount may be determined by the
operator when the program is loaded into
main storage for execution.

Background vs Foreground Programs
There are two types of problem programs in
multiprogramming:
background and
foreground.
Background programs are
initiated by job control from the
batched-job input stream.
Foreground
programs are initiated by the operator from
the printer-keyboard. Foreground programs
do not execute from a stack (batch). When
one program is completed, the operator must
explicitly initiate the next program.
Background and foregound programs
initiate and terminate completely
independent of each other.
The system is capable of concurrently
operating one background program and one or
two foreground programs. Priority for CPU
processing is controlled by the supervisor,
with foreground programs having priority
over background programs. All programs
operate with interrupts enabled. When an
interrupt occurs, the supervisor gains
control, processes the interrupt, and gives
control to the highest priority program
which is in a ready state.
Control is taken away from a high
priority program when that program
encounters a condition that prevents
continuation of processing until a
specified event has occurred.
Control is
taken away from a lower priority program at
the completion of an event for which a
higher priority program was waiting. When
all programs in the system are
simultaneously waiting (i.e., no program
can process), the system is placed in the
wait state enabled for interruptions.
Interruptions are received and processed
by the Supervisor. When an interruption
satisfies a program's wait condition, that
program becomes active and competes with
other programs for CPU processing time.

I

In addition to at least 24K positions of
main storage, multiprogramming support
requires the storage protection feature.
Introduction

23

I

Note that programs produced by the
FORTRAN and PLiI compilers may not be run
as foreground programs, because object
programs produced by these compilers use
communication region data or system logical
units pertinent only to background
programs.

5.

System I/O flow

MINIMUM REQUIREMENTS
The minimum configuration required by the
DOS System Control is:

TELECOMMUNICATIONS

16K bytes of main storage (24K bytes
Disk Operating System includes
telecommunication capability that is
defined as Basic Telecommunications Access
Method (BTAM). A BTAM program may be run
as either a foreground program or a background program.
Normally it is run as
a foreground one program so that it has
the highest priority of any program being
executed at a particular time. As with
multiprogramming , BTAM requires a minimum
of 24K positions of main storage.

I

are required for multiprogramming
and BTAM).

2.

standard instruction set (language
translators can require extended
instruction sets).

3.

One I/O channel, either multiplexor or
selector.
(Tele-processing requires a
multiplexor channel and at least one
selector channel.)
,

4.

One card reader (IBM 1442, 2501, 2520,
or 2540).
See Nbte 1.

5.

One card punch (IBM 1442, 2520, or
2540). See Note 1.

6.

One printer (IBM 1403, 1404, or 1443).
See Note 1.

7.

One IBM 1052 Printer-Keyboard.

8.

One IBM 2311 Disk Storage Drive.

PURPOSE OF AN OPERATING SYSTEM
All System/360 programs have certain common
required fUnctions such as input/output
operations, error detection and correction,
operator communications, program loading,
and five types of interrupt-handling
capability.
The Supervisor and physical
IOCS programs relieve the user of
performing these repetitious functions.
His attention can be devoted solely to
solving his problems.

Note 1:

The operating system provides maximum
utilization of System/360 resources, that
is, main storage, CPU time, channel time,
input/output devices, program libraries,
control files, and data files.
It also
provides maximum throughput (minimum lost
time between jobs and minimum set-up time).

One 2400-series magnetic tape unit
(7- or 9-track) can be substituted
for this device.
The data-convert
feature is required if a 7-track
tape unit is SUbstituted for a
card reader or a card punch. The
data-convert feature is not
required if a 7-track tape unit is
substituted for a printer. MPS
must have a reader or all
foreground initiation commands
must be entered via a 1052 device.

CONFIGURATION

ADDITIONAL FEATURES

This section presents the minimum
configuration requirements as well as the
additional features and devices supported
by the DOS System Control. Presentation is
in the following order:

Additional features supported by the DOS
System Control are:

1.

Minimum requirements

2.

Additional features

3.

I/O devices

4.

System I/O devices

24

DOS System Control

1.

Timer feature.
Simultaneous read-while-write tape
control (2404 or 2804).

3.

Any channel configuration up to one
multiplexor channel and six selector
channels.

4.

Tape switching unit (2816).

c

5.

Storage protection feature (required
for multiprogramming).

6.

Additional main storage up to
16,777,216 bytes.

7.

Universal character set.

I

Items 16 through 21 are attached by
means of a private, leased, or
common-carrier network to the multiplexor
channel through a 2701 Data Adapter Unit,
2702 or 2703 Transmissions Control Unit.
With the 2701, 2702, or 2703 attached to
the multiplexor channel, burst-mode devices
(magnetic tape and DASD) must be attached
to a selector channel.

I/O DEVICES
SYSTEM I/O DEVICES
I/O devices supported by the DOS System
Control are:
1.

1442 Card Read Punch.

2.

2501 Card Reader.

3.

2520 Card Read Punch.

4.

2540 Card Read Punch.

5.

1403 Printer.

6.

1404 Printer (for continuous forrr,s
only).

7.

1443 Printer.

8.

1445 Printer.

9.

1052 Printer-Keyboard (Used for
operator communications).

10.

2671 Paper Tape Reader.

11.

2311 Disk Storage Drive.

12.

2321 Data Cell Drive.

13.

2401, 2402, 2403, 2404, and 2415
Magnetic Tape Units.

14.

1285 Optical Reader

15.

2260 Display Station.

16.

1030 Data Collection System.

17.

1050 Data Communication System.

18.

1060 Data Communication System.

19.

AT&T 83B3 Selective Calling Stations.

20.

AT&T Teletypewriter Terminal, Models
33 and 35.

The I/O devices used to perform system
input and output are called system units.
The symbolic designations for the system
units are:
• SYSRES (system residence) - a 2311 Disk
Storage Drive selected for system
residence.
• SYSLOG (system log) - a 1052 Printer
Keyboard or a printer selected for
operator/system communication.
• SYSRDR (system reader) - a card reader
or magnetic tape unit, or optionally a
2311-, selected as the control-statement
input unit. See Note 1.
• SYSIPT  - a card punch,
or magnetic tape unit, or optionally, a
DASD selected as the primary punched
output unit of the system. See Note 2.
Note 2:

SYSOPT, of Basic Programming
Support (BPS) and Basic
Operating System (BOS>, is
equated to SYSPCH by macro
generation in the DOS. SYSOUT
is a name that must be used
when SYSPCH and SYSLST are
assigned to the same magnetic
tape unit.
Introduction

25

SYSRDR
MAl NT

SYSIPT

IN

SYSRES

SYSLOG

SYSLST

IN

OUT

OUT

OUT

OUT

MAINTA

I/O

MAINTC2

I/o

MAl NTC N

I/o

MAINTR2

IN

I/O

MAINTS2

IN

I/O

$LNKEDTC

I/O

$MAINEOJ

I/O

SYSPCH

SYSOO2

OUT

OUT*
OUT

SYSLNK

CORGZ

IN

IN

OUT

OUT

DSERV

IN

IN

OUT

OUT

RSERV

IN

IN

OUT

OUT

OUT

SSERV

IN

IN

OUT

OUT

OUT

I/o

OUT

OUT

IN

I/O

OUT

OUT

LI NK.AGE EDITOR
JOB CONTROL

IN

IN

SYSOOI

I/O

I/o = Input and Output
* If called by CORGZ

Figure 2.

System I/O Flow

• SYSUSE - Logical unit block (LUB) used
exclusively by System Control to
schedule all operator-initiated I/O
unit manipulation.
• SYSLNK - a magnetic tape, or DASD
device used primarily for I/O by the
linkage editor program.

COMPONENTS
Functionally., the DOS, Version 2, is
subdivided into the following components:
• System residence
• System control programs

• SYSFGI - a logical unit used in
foreground initiation.
Note 3:

with the exception of SYSRES
and SYSLOG, system units are
used only with programs
running in a hatched-job
environment (referred to as
background programs).

System I/O flow is shown in Figure 2.

26

DOS System Control

• Linkage editor program
• Librarian
• Processing programs
Each component has unique characteristics,
which are given a general presentation in
this section.

(

SYSTEM RESIDENCE

SYSTEM CONTROL PROGRAMS (CHART 00)

System residence (SYSRES) is the IBM 2311
Disk Storage Drive on which the system
residence 2311 disk pack has been mounted.

The DOS, Version 2"
major programs:

System residence consists of the
elements of the DOS System Control. These
elements are:
Cyl. Trk.
1.

IPL retrieval program

0

0

2.

System directory

0

1

3.

System work area
(librarian area)

0

2-4

4.

Transient directory

0

5

5.

Open directory

0

6

6.

Library routine
directory

0

7

7.

Foreground program
directory

0

8

8.

Problem program phase
directory

0

9

9.

Core image master
directory

1

0

10.

Core image library

11.

Relocatable library
directory

12.

Relocatable library

13.

Source statement library
directory

14.

Source statement library

15.

Label storage area
(volume area)

Elements 1 through 10 and 15 are
required for a minimum SYSRE$. Elements 11
through 14 are optional.
For additional information on SYSRES
refer to Section 2: System Residence
Organization.

1.

IPL (initial program load) program.

2.

Job control program ($JOBCTLA).

3.

Supervisor control program ($$A$SUP1).

These programs allow operating system
capability by providing the necessary
interface between the IBM System/360, its
supporting I/O deVices, the operator,
system residence, and the program being
executed.

The IPL program must be executed each time
it is necessary to load a new supervisor
control program or to change the channel
and unit assignment for SYSRES.
The IPL program:

Elements 1 through 9 have fixed locations
in SYSRES. Elements 10 through 14 do not
have fixed locations. The starting address
of each element is determined by the size
(allocation) and the starting address of
the preceding element. However, they must
appear in the sequence shown.

)

is controlled by three

1.

Operates in the supervisor mode.

2.

Loads the supervisor from SYSRES.

3.

Initializes the supervisor for system
operation.

4.

Places the system in the problem mode.

5.

Exits to EOJ when it is finished.

For additional information refer to Section
4: System Control Programs., IPL Program.

Job Control Program ($JOBCTLA-$JOBCTLJ)
The job control program provides job-to-job
tran3ition for background programs. It is
also used to prepare each background job
step for execution.. (One or more programs
can be executed within a single job. Each
such execution is called a job step.)
Job control performs various functions
on the basis of information provided in job
control statements. These functions are:
• preparing the system for execution of
programs in a batched-job environment.
• Assigning device addresses to symbolic
units.
• Setting up fields in the supervisor
communication region.
Introduction

27

• Editing and stori~ volume and file
label infornation.
• Preparing for restarting checkpointed
programs.
• Clearing the background problem program
area to binary zeros between job steps.
Job control is executed in the
background program area and is overlaid by
the job step it is preparing for execution.

of the supervisor control program.
Reassembly is required wh~never the user
wants to change the capability of the
supervisor. An example of this is when the
installation configuration changes.
For additional information refer to
Section 4: System Control Programs,
Supervisor Program" Supervisor Transient
Programs, Physical IOCS Transients/and
Section 3: Supervisor Generation and
Organization,.

For additional information refer to
Section 4: System Control Programs, Job
Control Program.
LINKAGE EDITOR PROGRAM ($LNKEDT), CHART 00
Supervisor Control Program ($$A$SUP1)
The supervisor program operates with
problem programs when job processing
(problem program execution) occurs. The
supervisor program is divided into two
parts:
1.

the resident part called the supervisor
nucleus

2.

the nonresident part called a
supervisor transient.

The nucleus is loaded into main storage
at IPL time and remains there throughout
job processing,. A transient (one of many)
is loaded from the core image library of
SYSRES on an as-needed basis. when a
transient has finished performing its
serVice, it can be overlaid by some other
transient when some other type of service
is required. This technique maximizes the
use of main storage allotted to the
supervisor. The basic functions performed
by the supervisor are:
• Storage protection (required for
multiprogramming)
• Interrupt handling

All programs to be executed in the DOS
environment must be link-edited and stored
in the core image library before they can
be executed. The link-edit function is
accomplished by the linkage editor program
operating in one of three modes:
1.

Catalog mode. An object module is
link-edited and permanently stored in
the core image library. The core image
and system directories are updated in
this mode of operation,.

2.

Load and execute mode. An object
module is link-edited for temporary
storage in the core image library and
is immediately executed.

3.

Assemble and execute mode. A source
module is assembled or compiled. The
object module (output) is link-edited
for temporary storage in the core image
library and is immediately executed.

~:

when operating in modes 2 or 3, the
core image and system directories
are not updated.

The linkage editor program is called by
job control when a // EXEC LNKEDT control
statement is read. Control is always
returned to job control when the link-edit
fUnction is completed.

• Channel scheduling
a

Device error recovery

o

Operator communications

• Program retrieval .

CHANQ (Channel Queue) Table: The first byte contains the chain field (a pointer to the next in queue). The last three bytes
contain the CCB address (Figure 21).
LUBID

A one- byte pointer to the LUB making the I/O request.

REQID

A one - byte pointer to the progrom containing the CCB (Figure 21).

FLPTR

A ane- byte pointer to the next free entry in the channel queue (Figure 21).

Figure 17.

60

I/O Table Interrelationship

DOS System Control

c

Channel
Unit

PUB- TABLE

Channel Queue Pointer
TEB Pointer or Error Count

~Iannel
0
~
PUBS--

PUBORG

Device Type
Device Characteristic Code
Channell
PUBS

Channel Scheduler Flags
Job Control Flags

.::,:;~::;. ~~~u:~

..

i·.:·:

0

1

2

3

4

5

6

7

Channel 7
PUBS

~ PUB-table

PUBEND
STOPPER

delimiter

BYTE 0 -

Channel number. (H ex 0-7
FF = NULL)

BYTE 1 -

I/O device unit number. (HEX
= magnetic
tape unit 0 ... ).

1F = 1052, HEX 80

BYTE 2 -

HEX 0, 1, 2, ••• points to the
first channel queue entry for
this device.

BYTE 3 -

If device is a magnetic tape unit
and TEBS are specified, this byte
is a TEB pointer (HEX 1,2, 3 ... ).
If device is a magnetic tape
unit but TEBS are not specified,
th is byte is an error counter.
If device is not a magnetic
tape unit, th is byte is an error
counter.

BYTE 4 -

See Figure 26 for device type
codes.

BYTE 6 Bit 0: 1 = Device busy
1: 1 = Switchable device
2: 1 = EOJ for SYSRDR or SYSIPT
3: 1 = I/O error queued for recovery
4: 1 = Operator intervention required
5: 1 = Device end received
6: 1 = Burst device on MPX
7: 1 = 7- track tape unit
BYTE 7 Bit
0- 4: standard MODE assignment for
7 - track tape
(a II ones if not tape,
all zeros if device is down).
5: device is assigned to a background job
6: device is assigned to a foreground 1 job
7: device is assig~ed to a foreground 2 job

BYTE 5 - SS of the MODE = porameter in the
DVCGEN macro for a tape unit.
(See Figure 27 .)
NOTE:
-----:A:null PUB is generated for each device to be supported
by the supervisor. (See 10TAB macro in this section.)
Standard physical unit assignments are made to the PUB
table at supervisor generation time. PUBS are ordered by
channel and priority within a channel. (See DVCGEN
macro in th is section.)

Figure 18.

PUB Table

)

Supervisor Generation and Organization

61

LUB TABLE
SYSRDR

(

\

SYSIPT
SYSPCH
SYSLST
SYSLOG

Byte 1

SYSLNK

JIB
Pointer

SYSRES

* SYSSLB
00 = Points to first PUB
01 = Points to second PUB
02 = Points to third PUB

* SYSRLB
SYSUSE

HEX
00 = Points to first JI B
OJ = Points to second JIB
03 = Points to third JIB

SYSFGI
FF = Null pointer, the LUB is
unassigned
FE = nore

SYSOOO
SYSOOI

FF

= Null

pointer

SYS002
SYS003
SYS004

SYS244

* These

rn

LUBs are not used or supported in DOS, Version 2. They may be used in Tape Systems (TOS) to refer to
magnetic tape devices on which private source statement and relocatable library tapes are mounted. In DOS,
these libraries are on SYSRES.

Figure 19.

LUB Table

(
62

DOS System Control

TEB Table
TEBTAB

TEB 1
TEB 2

o
TEB 4
TEB 5
TEB 6
One TEB is generated for each magnetic tape unit if the
CONFG macra contains the TEB = yes parameter.
Job Control resets each TEB at norma I or abnorma I Endof- Job. An unused TEB contains HEX 'FFOOOOOOOOOO'.
A TEB is referenced from byte 3 of a magnetic tape unit
PUB.

Figure 20.

Byte
0- Error recovery retry count.
1 - Permanent read error count.
2 - Number of times the read error routine is entered.
3 - Number of times the write error routine is entered.
4 - Write skip (erase gap) count.
5 - Noise record count.

Tape Error Block (TEB)

supervisor Generation and organization

63

_ ....:.:LU:,:;B.:,:IO;.., _ _ _ _ _ _

CHANQ
B

REQID

o

C

F

1---1- -

- - -- -

~---I

-

~----I

Chain
Byte
-

-- -

Chain
Byte

-I-----l- - - - - PUB

i'~:21

-1----1- -

-

-

- - -1----1

Chain
Byte
-~--__I.-

The length of the
queue is determined
at supervisor
generation time.

D

-1---1

Chain
Byte

-

- -- -

-

-

-1----1

Chain
Byte
-

-

-

-1----1

Chain
Byte

-11------1- -

-

-

-~---I- -

-

-

-

-'-1----4

Chain
Byte

o

-

-

-~--...

Chain
Byte
-~----I--

Chain
Byte

.

--~-

-----

-~---I-

-- - - -

Chain
Byte
Chain
Byte
Byte

o

2

- - - - - - ..--~

3

----

.......

-'--_

KEY:
The free list pointer contains a displacement index to a free list entry within the channel queue. The free list is a
group of entries that function in essentially the same manner as a device queue. When the free list pointer contains a
hexadecimal FF, it indicotes that no mare free list entries are available.
The first byte of the channel queue entry (chain byte) contains a pointer (displacement index) to the next channel queue
entry far that device. A hexadecimal FF indicates the last channel queue entry for that device. New requests on a
given device are queued at the end of a given device queue.
CCB address far the specified device.
A pointer (displacement index) to the LUB table identifying the logical unit making the

I/O request.

Contains a pointer (displacement index) to the first channel queue entry for a specific device (Figureli).
Contains a code identifying the program making the I/O request. The one- byte entry is coiled a RID .
\

)

• $$A$IPLA (32-byte bootstrap routine).
• $$A$IPL2 (less than 4096-byte IPL
routine) •
$$A$IPL1 is a 24-byte bootstrap program
located on SYSRES at 00 00 1 (CC HH R).
The operator sets the channel and unit of
SYSRES in the load unit switches and
presses the load key.
Microprogramming
reads the first record (24 bytes) from
SYSRES into main storage starting at
location 00. This 24-byte record consists
of a PSW starting at location 0 and two
CCws starting at location 8.
Microprogramming executes the first CCW at
location 8, which reads in the $$A$IPLA

program from SYSRES (cylinder 0, track 0,
record 2). The first CCW is chained to the
second CCW, which is a seek for the
$$A$IPL2 program on SYSRES (cylinder 0,
track 01, record 5).
$$A$IPLA is a 32-byte progr.am made up of
tnree CCWs. The first two CCWs of the
$$A$IPLA program and the two CCws from
$$A$IPL1 are chained together, so that all
the CCws are executed. The CCWs of the
$$A$IPLA program are a search, transfer in
channel, and read for cylinder 0, track 01,
record 5 to load the $$A$IPL2 program.
Control is transferred to the $$A$IPL2
program by loading the PSW at location o.
This PSW was loaded as part of $$A$IPL1.
$$A$IPL2 clears storage from the end of
itself to the end of main storage.
A
program check is forced and the program
check new PSW returns control to the
$$A$IPL2 program. The address at which the
program check occurred is saved as the end
of storage address. There is no provision
in the $$A$IPL2 program to clear main
storage below location 12,228.
The transient directory is searched for
the core image library disk address of the
supervisor. The supervisor is read into
main storage starting at location 00.
(See
Figure 30 for a map of main storage.) The
I/O tables that are located within the
supervisor are moved to the end of
supervisor so that a 2-device system can be
built in low storage for the IPL operation.
See F'igures 28 and 29 for examples of
I/O tables built by $$A$IPL2.
Figure 28
shows the I/O tables for a 1-device system,
and Figure 29 shows the I/O tables for a
2-device system.

)

System Control Programs

71

(

\

LUB Table

o

LUB Table

.FOCL
Pointers

FF

10

F F

3

FF

4

F F

5

FF

(

F FFFF FFF
FF F F FFF F

I
I
I
I

I
I
I

)

SYSTEM

DEV

'- SYSTEM

DEV

SY STEM

DEV

SY STEM

DEV

~

6

SYSRES

7

...-+...-+-+-+-+-+-1--"

FF

F F
2

~FOCL

FF

,

~

~

~

2

FF

3

FF

4

SYSLOG

5

SYSLOG

6

SYSRES

7

SYSRES

PUB Table

SYSTEM

PUB Table
SYSGEN
Entries
Painter to
PUB for
logical
device

Po i n te rs:
Points to
the first
device
on
channel

SYSTEM
SYSTEM
SYSTEM

DEV

NOTE: It is assumed that SYSRES is on channel 2 and that the
communication device SYSLOG is on channel O.

NOTE: It is assumed that SYSRES is on channel 2.

Figure 28.

I/O Table for One-Device
System

Figure 29.

I/O Table for Two-Device System

(

(
72

DOS System Control

Step 1

Step 2
0000

0000
PSW

CCWI

CCW2

$$A$IPL1

CCWI

CCW2

$$A$IPL1

CCW3 CCW4

CCW5

$$A$IPLA

PSW
0024

10024
0048

CCW3 CCW4

CCW5

$$A$IPLA
0048

DISK ADDRESS OF $$A$IPL2

12,228

114,445

DISK ADDRESS OF $$A$IPL2

12,228
$$A$IPL2 - Clears storage, loads
supervisor moves I/O tables from
SUPVR area to end of supervisor,
builds two device system and sets
storage protection keys

$$A$IPL2

$$A$IPL2

$$A$IPL2 is moved to location
28,672 (X'7000')

28,762
$$A$IPL2 - clears storage, loads
supervisor, moves I/O tab les from
SUPVR area to end of supervisor,
builds two device system, and sets
storage protection keys
End of Storage

End of Storage

Step 1 - represents the main storage map after $$A$IPL2 is
loaded for a system using a supervisor less than or equal to 6K
and a machine size of 16K.
NOTE: Storage addresses are in decimal notation.

Step 2 - represents the main storage map after $$A$IPL2 is
loaded for a system using a supervisor greater than 6K and a
machine size greater than 16K.

Step 3

Step 4

0000

0000
Supervisor Constants

I'

Supervisor Constants

Supervisor loaded by $$A$IPL2

1------------- >Supervisor
SYSGEN I/O Tables

t-------------

End
lof
SUPVR

End
of
SUPVR

SYSGEN I/O Tables moved to end of
supervisor by $$A$IPL2

...

End of
SUPVR
IPlus4K

$IPLRT2 is loaded into this area at
the "finish of $$A$IPL2

Step 3 - represents the main storage map after
$$A$IPL2 loads the supervisor.

'\

Figure 30.

End of Job transient ($$BEOJ3)
loaded into problem progrom area at
finish of $$IPLRT2

I'

$1 PLRT2

End of Storage

)

>Supervisor
SYSGEN I/O tables moved back
into supervisor at the end of $IPLRT2

End of Storage
Step 4 - represents the main storage map after
$$IPLRT2 is executed.

IPL Main Storage Map

System Control Programs

13

(

Initial Program
Load (lPL)

(

~

IPLPRG
Chart AA
IPL BOOTStRAP ($$A$IPL1)
""a aperCllOr sets the channel and unit of SYSRES in the load unit
switches and pre_s the load key. Microprogramming then reads
the first 24 byte record consisting of a P~ and two CCW's into
main storoge storting at location 00. It executes the first CCWat
location 8 which reads the $$A$IPLA an SYSRES into main storoge.

CCW2
IPL BOOTSTRAP (SSA$IPLA)
Chart AA
This program finds the SSA$IPL2 program an SYSRES and loads it
into storage storting at decimal location 12,228.
BEGIPL
CLEAR CORE, LOAD SUPERVISOR
(S$A$IPL2)
Chart AB
$$A$IPL2 clears storage beyond the supervisor and forces a pragram
check to get its return address to SSA$IPL2 and to determine the
storage size of the system. The transient directory is searched to
find the address of the supervisor nucleus. 'MIen the supervisor
entry is found, the S$A$IPL2 program Is moved to decimal location
28,762, if the supervisor is larger than 6K and the machine size
larger than 16K. The supervisor is then loaded into main storage.

ENDRD
BUILD TWO DEVICE SYSTEM
(S$A$IPL2)

cp

Chart AC-AE

1. Puts the end of storage address in the communication region.
2. Moves the SYSGEN I/O tobles to end of supervisor and builds
a one device system in low storage for SYSRES.
3. Puts the system in the wait stote and gives the operator the
choice of a 1052, a card reader, or an unassigned card reoder,
as the communication device.
4. Adds the I/O tables for this communication device to the I/O
tables for SYSRES and completes the two device system for
IPL operation.

Finished
Building Two
Dev Syste
YES

(

NO

1

SETPROT
SET STORAGE PROTECTION KEYS
(SSA$I PL2)
Chart AD
If the storage protection feature is available on the system, a key
of 0 Is set for the supervisor region and key of 1 is set for the rest
of storage. The new PSWs are restored and the pragram exits by
loading and transferring control to SIPLRT2.

(SVC4 Load
)
$1 PLRT2 Chart 02

Chart 01.

74

Initial Program Load ($$A$IPL1)

DOS System Control

(

After the system I/O tables have been
moved, a PUB is built in low storage for
SYSRES. A LUB is assigned for this PUB and
the FOCL is set to point to the PUB for the
SYSRES device. The system is put into the
wait state and the operator has the option
of selecting the communication device
desired for IPL. If the desired
communication device is:

storage are not protected. They receive a
storage protection key of 1. The $$A$IPL2
iss~es a SVC of 4 to load the $IPLRT2
program overlaying the $$A$IPL2 program.

1.

A card reader, and it is already
assigned as SYSRDR, the operator
presses the EXTERNAL INTERRUPT key
causing an external interrupt.

2.

A card reader, and it is not assigned
as SYSRDR, the operator presses the
START key on the reader causing an 1/0
(device end) interrupt.

3.

A 1052, the operator presses the
REQUEST key causing an I/O attention
interrupt.

The $IPLRT2 program is loaded and executed
every time the operator chooses to IPL the
system. It is loaded (by the $$A$IPL2
program) starting at 4K bytes beyond the
end of supervisor. See Figure 30 for a map
of main storage. Before loading $IPLRT2,
the $$A$IPL2 program has moved the system
1/0 tables to the end of supervisor.
A
2-device system, SYSRES and SYSRDR or
SYSLOG, has been built by the $$A$IPL2
program for IPL operations.

After the operator has taken the
appropriate action for choosing a
communication device, a PUB and LUB are
added and the FOCL is updated to show the
new device. This completes building of the
2-device system for IPL.
A check is made to see if the storage
protection feature is supported. If so,
the storage protection keys are set. The
supervisor area, in blocks of 2K, receives
a storage protection key of O. The upper
part of the supervisor that is not an even
multiple of 2K and the remainder of main

$IPLRT2, CHART 02

The $IPLRT2 program performs the
following functions:
• Adds a device to the system.
• Deletes a device from the system.
• Sets the system date.
• Sets the system time of day, if the
timer feature is supported.
The ADD, DEL, and SET statements are
entered from the IPL communication device
(SYSRDR or SYSLOG). The formats for these
statements follow.

System Control Programs

75

ADD -- Add a Device to the PUB Table

Operation

Operand

ADD

X, cuu' [(k) I ,devicetype [,X' 55 'I

=Channel and unit numbers In hexadecimal.
k =S, If the device Is swltchable (II physically attached to two adjacent channell).

X'cuu'

The designated channel II the lower of the two channels.
k = 0-255 Indicates the priority of the device, If the device cannot be switched. The highest priority Is O.
If k I. not given, a priority of 255 II allumed.
devlcetype = 24OOT7 for 7- track, 24OO-lerle. magnetic tape units.
24OOT9 for 9- track, 2400- series magnetic tape units.
I4<42NI for I4<42NI card read punch •.
See Figure 26 for additional device type Codel.
X'II'

=Device specifications used for tape made.

If device specifications are not specified, X'II' hal the following

set valuel:
X'CO' for 9- track tape
X'SlO' for 7- track tape
X'OO' for non- tapes
X'OO', X'OI', X'02', and X'03' are Invalid a. X'II'

• See Figure 27 for a complete lilt of
density settings.

The end- of- block character (i) 6:Jlter code 5) must be given after each ADD ltatement If the communication device
II a prlnter- keyboard.

DEL- Delete a Device from PUB Table

I

1000r.ti~ "a.-rand
Where cuu II the channel and unit numbers, In hex, of the device to be deleted.
The end- of- block character
II a prlnter- keyboard.

SET -

@

6:Jlter code 5) must be given after each DEL statement If the communication device

Set Date and Time of Day

Operation

Operand

SET

[D~E.nll[,CLOCK.n2J

The entries In the operand represent the following:
DATE=nl

Sets the .ystem date to the specified value. nl hOI one of the following formats:

mm/dd/yy
dd/mm/yy
Where mm speclfl. the month, del specifies the day, and yy specifies the year.
The format to be used I. that selected when the .ystem WOI generated.
CLOCK =n2

MUIt be given at IPL time If the timer feature I. present.
Sets thel}'ltem clock to the specified value. n2 hOI the following format:

hh/mnv'Where hh specifies hours

tlO- 23),

mm specifies minutes (00- 50), and II speclfle. seconds

tlO- 59).

(

76

DOS System Control

After a card is read, the operation cod,
is evaluated b¥ a translate and test
instruction to determin~ the type of
statement. This instruction then
determines the address of the routine for
processing the statement.
Add routine: The add routine checks to
ensure the device is not already assigned.
It then determines where to add the PUB in
the PUB table and moves all the PUB entries
beyond this point down one PUB length to
make room for the new PUB. The new PUB is
then inserted in the area just vacated.
The LUB table and FOCL pointers are updated
to reflect the new entry and the routine
returns to read another control statement.
Delete Routine: The delete routine first
checks to see if the device to be deleted
is in the PUB table and then determines the
actual location of the PUB to be deleted in
the PUB table. All PUB's beyond this point
are moved up one PUB 'length overlaying the
PUB to be deleted. The LUB table and FOCL
pointers are updated so they no longer
point to a 'nonexisting PUB entry. The
routine returns to read another control
statement.

Set Routine: The set time of day roytine
determines the operand format of the set
statement.
~

• The DATERT subroutine converts the
month, day, and year to decimal. This
information is then stored in the
system date field of the communication
region (displacement 79).
• The TIMERT subroutine is used, if the
timer feature is supported, to put the
time of day (in seconds) into
hexadecimal location 54.
The SET card ~ignals the end of the
control statements. The system assignments
for SYSRES and the communication device
(SYSRDR or SYSLOG) are checked and
permanently assigned. The system 1/0
tables are moved from their temporary
location at the end of supervisor to their
permanent location in the supervisor area.
This move overlays the two device IPL 1/0
tables that were built by $$A$IPL2 and
finishes the IPL operation.
The End-of-Job transient ($$BEOJ3) is
loaded to initiate normal job processing.

)
system Control Programs

77

$IPLRT2
from Chart 01
BEGIN
INITIALIZATION AND READ CONTROL
CARD ROUTINE
Chart AJ
The size of main storage and the lacation
of the system I/O tables in main storage is
found. The number of PUB's and TEB's in
use is calculated.
A control statement is read from the IPL
communication device (SYSRDR or SYSLOG).
The control statements can be used for
adding or deleting a device or setting the
date and time. If the IPL communication
device is SYSLOG, a message is printed
"Give IPL Control Statements on 1052"
before enterinQ the contro I statement(s}.
OPRTN
"
EVALUATE THE CONTROL STATEMENT
CARD ROUTINE
Chart AK
The control statement just read is
evaluated to determine if the op code is a
legal control statement and the type of
operation (ADD, DEL or SET). After the op
code is analyzed, control is given ta the
appropriate routine to service the statement.

ADD

~

DEl

~------------------------~y-fcard
~-------------------------,

SET
ADDRTN

SETRTN

DELRTN

ADD A DEVICE ROUTINE
Chart AN
The first operand of the add
card is checked for a key
field (multiplex or burst
device indication). The
channel and unit numbers
are checked. If present,
the th ird operand is processed. The BLDPUB subroutine adds the dev.ice to
the PUB table. The CHURTN
subroutine updates the FOCL.
The LUURTN subroutine assigns ,
o LUB for the PUB just added.
After the I/O tables are
updated, the routine returDS
to READGO to read another

SET TIME OF DAY
ROUTINE
Chart AK
The date and time of day are set

DELETE A PUB
ROUTI NE
Chart AP
The operands of the delete
cards are canverted to hex
and the PUB table is searched
to find the PUB to be deleted.
All PUB entries beyond the
PUB to be deleted are moved
up one entry, overlaying the
desired PUB. The FOCL and
LUB tables are updated so
they do not point to a nonexisting PUB. After the I/O
tables are updated, the
routine returns to READGO to
read another contral statement.

control statement.

in the communication region. The

FDSRTN subroutine gets the
operands from the control statement. The DATERT subroutine puts
the date in the communication
region. If the timer feature is
present, the TIMERT subroutine
puts the time of day in the
communication reg ion. The SET
routine terminates the reading of
control statements.
USNRES

•

ASSIGN SYSRES AND SYSLOG

Chart AL
The PUB's for SYSRES and SYSLOG or SYSRDR
are checked to insure that they are
assigned only to a single logical unit and
that they are properly built. The PUB's
are then permanently assigned as the
system residence un it and the system

(

communication device.

OFFINT
MOVE SYSTEM I/O TABLES TO
LOW CORE
Chart AM
The system I/O tables are moved to their
permanent location in the supervisor area.

A message" IPL complete" is printed (if
SYSLOG was the communication device) and
the program exits by loading the End of
Job transient ($$ BEOJ).

( SVCI4 Load
$$BEOJ3 Chart 26

Chart 02.

78

Initial Program Load ($IPLRT2)

DOS System Control

(

JOB CONTROL PROGRAM
The job control program provides job-to-job
transition for background programs. It
also prepares background program job steps
for execution. (One or more background
programs can be executed within a single
job. Each such execution is called a job
step.) Job control does not prepare
foreground programs for execution. They
are prepared by the foreground program
initiator B-transients.
Job control performs various functions
on the basis of information provided in job
control statements:
• Prepares programs for execution.
• Prepares input for the linkage editor
program if the link option has been
specified. The statements: ENTRY,
ACTION, PHASE, and INCLUDE, when
present in the job control input
stream, are copied to SYSLNK as card
images. An INCLUDE statement with a
blank operand causes the contents of
SYSIPT to be copied to SYSLNK until a
/* statement is read from SYSIPT.
Blank cards from SYSIPT are not copied
to SYSLNK.

$JOBCTLA (Chart 03): This phase is the
initial entry into job control. It is
loaded every time job control is fetched
and i p considered the root phase.
(It is
resident in main storage at all times
during job control execution and contains
routines that are used by the other phases
of job control.)
Job control input is read from SYSRDR or
SYSLOG depending on the setting of the job
control input switch (COMREG+56, bit 2).
As each control statement is read, it is
analyzed to determine which of the
processing routines is to be used. The
phase containing the correct processing
routine is loaded if it is not already in
main storage as a result of the previous
control statement.
See Figure 2 for I/O flow. Figure 31
represents the storage allocation for job
control.

All byte counts are
approximations and are
included only to show
relative size.

• ASSigns device addresses to symbolic
units.
• Sets up fields in the supervisor
communication region.
• Edits and stores volume and file label
information.

$JOBCTLA

Background
Problem
Program
Area

• Prepares for restarting checkpointed
programs.
• Clears the background· program area to
binary zeros between job steps.
The job control program is executed in
the background program area and is overlaid
by the job step it is preparing for
execution. A JOB statement in the input
stream marks the beginning of a job and a
/& statement marks the end of a job.
An
EXEC statement calls for execution of a job
step. A job step is normally ended with
the EOJ macro.

6108
Bytes

Figure 31.

Job Control Storage Allocation

$JOBCTLD (Charts 4 and 5): Contains the
processing routines for the following
control statements:
1. ASSGN

PROGRAM FLOW

2. CLOSE
3. DVCDN

)

Functionally job control consists of four
phases and one B-transient, which are
identified as $JOBCTLA, $JOBCTLD, $JOBCTLG,
$JOBCTLJ, and $$BLSTIO.

4. DVCUP

5. LISTIO
System Control Programs

79

6. RESET

2. INCLUDE

7. UNA

3. DATE

$JOBCTLG (Charts 6, 7, and 8): Contains
the processing routines for the following
control statements:
1. CANCEL

12.

/&

(for EOJ)

4. SET
5. UPSI

6. RSTRT

7. MTC

3. EXEC

8. LBLTYP

4. JOB

9. VOL

5. LOG

10. TPLAB

6. NOLOG

11. DLAB

7. OPTION

112 •

XTENT

8. PAUSE

13. HOLD

9. ALLOC

14. RELSE

10. MAP

(

15. UCS

11. STOP

$JOECTLJ (Charts 9, 10, and 11): Contains
the processing routines for the following
control statements:
1. ACTION

80

DOS System Control

$$BLSTIO: This B-transient contains
subroutines used by the DVCDN and LISTIO
control statement processors of $JOBCTLD.
When required by these processors, it is
fetched (SVC 2) into the supervisor
B-transient area.

(

Note:
""JObControl is entered from the supervisor fetch rautine. It can be entered normally
by means of the EOJ macro or abnormally from the B-transients $$BILSVC,
$$BPCHK, $$BTERM, $$BEOJ, $$BEOJI. In all cases the B-transient $$BEOJ is
used to issue the actual fetch for Job Control ($$JOBCTlA). This phase includes:
1. The initialization routine (JOBCTL).
2. The control statement read routine (CONTROL).
3. The phase vector table (see Figure 79).
4. The root phase subroutines (Charts BD-BK).
5. The root phase error message routines (Chart BL).
Items 4 and 5 are used by other job control phases.

$JOBCTlA

JOBCTL
INITIALIZATION

*

04-A
OS-A
06-A
07-A
OS-A
09-A

100A
11-A

Chart BA

Initializes the job control program as follows:
1. Loads base register.
2. Seizes control of the system.
3. Sets up the communication region.
4. Checks available record counts if system
units are supported on a DASD device.
(SYSRES).
5. Saves the LUBs to unassign extent JIBs of the
previous job-step.
The main storage area that contains this coding is
subsequently used as a 120 byte I/O area.
Contro I statements are read into th is area and
messages are displayed from it.

Q

CONTROL
CONTROL STATEMENT READ

Chart BB

1. Reads control statement.

2. Ignores blank statements.

TABLE A
PHASE
Operand
ASSGN
CLOSE
DVCDN
DVCUP
LlSTIO
RESET
UNA

~

$JOBCTLD
Chart

04
05
05
05
05
05
05

3. Checks column 1 to determine if the
statement is from the operator or the
programmer. An indicator is set to control
error processing in the phase vector table
lookup routine. A blank in column 1
indicates an operator statement. / / in
columns 1 and 2 indicates a programmer
statement.
4. Scans the control statement for the first
operand (may be / /,/*, *, or the operation
field).
5. Performs initialization for the phase vector
table lookup.

BTLOOP
PHASE VECTOR TABLE LOOKUP

TABLE B
PHASE
Operand
CANCEL
/& (for EOJ)
EXEC
JOB
LOG
NOLOG
OPTION
PAUSE
ALLOC
MAP
STOP

Chart BC

1. The phase vector table is searched for an

2.
3.
4.
5.

argument that is equal to the current operand
(register POINT! is pointing to column 1 of
the statement or to the first character of the
operation field). See Figure 79 for the format
of an entry in the phase vector table.
The operand is checked for va Iidity.
The statement is logged as specified in the
condition switches of the found entry.
If the correct processing phase is not in main
storage it is loaded (SVC 4).
Processing for the operands / / ,/*, *, or
IG NORE is in the raot phase and they are
processed as fa llows:
/ / - The statement is scanned to make the
next operand (operation field) available
for processing. Exit to
/* - Ignored. Exit to - - - - - - - - - I + ! J
* - Ignored. Exit to ---------+t~
IGNORE - The Job Control input switch is
set to indicate SYSRDR. Exit to--I-Io'-l~
Control is transferred to the correct
processing routine as specified by table A,
B, or C for a II other operands.

)

Chart 03.

Chart

07
07

08
07

08
08
06

08
08
08
08

TABLE C
PHASE

2

J

6.

$JOBCTLG

Operand
ACTION
INCLUDE
DATE
SET
UPSI
RSTRT
MTC
LBLTYP
VOL
TPlAB
DlAB
XTENT
HOLD
RELSE
UCS

$JOBCTLJ
Chart

09
09
09
09
09
09
09
10
10

10
10
10
11

11
11

Job Control ($JOBCTLA) Root Phase

System Control Programs

81

Chart 03
Tabl. A
ASSGN

ASSGNI3
Chart IV

1.
2.

3.
4.

S.

"'*""".

Scan. tho ASSGN _
... nt for tho 'st
SVSXXX.
Ch.ck. and convert. SYSXXX to the symbolic unit
addr.... logical unit and cia...
•
!h. unit can not be SYSRES
ASSGNO: !h. unit can not be SYSLOG II a '-round
program i. loaded
Scan. Ih. ASSGN stal.... nl for tho 2nd aporand.
Devlc. addre... !hI. operond must be X'CUU'. UA or
IGN. If tho devlc. oddr... Is UA or IGN••xlt to
ASSGNI3.
Comput•• tho PUB polntor and PUI addr... of tho
""y.lcal d.vlce specified by X'CUU'. !h. devlc. ",pe
and mod. are tak.n from tho PUI and _ed for u.. In
the croll assignment vertficotion routine.
• !h. dey ic. con not be flagged a. down.
•
If the device Is being a .. lgned to SVSLST. SYSPCH
or SYSOUT and It Is a magnetic tape unil. It can
not be file prot.cted.
•
If Ih. dovic. I. not a DASD dovlc. It can not be
owned by a foreground (FG) program.

------------1--'

VERIFY and STORE UA or IGN ASSIGNMENT

I.
2.

ASSGN86
MAKE NORMAL STANDARD ASSIGNMENT

I.
2.
3.
4.

S.

ASSGN6
CROSS ASSIGNMENT VERIFICATION

Chart

az

Ch.ck. for ""y.lcal compotability between the devlc.
being a ..igned and tho logical unit to which it I.
being a .. igned a. w.1I a. logical unlls to which it Is
alroody a .. lgned.

ASSGN84
COMPLETE SCAN OF OPERANDS

Chart CB

Proc ... the r.moining (3rd and 4th) optional operand•• ALT
or X'SS' (MODE). or TEMP. !he operond •• if pr••nl. ore
ch.ck.d for validity and switch•• are lOt to controllUb.quen' p'ocessing.
ASSGN402: Entry at thi. point proc ..... only the 4th
operand. TEMP.

YES

Chart CA

S.Is byt. 0 of the LUB being generated On a werle
area) to hex FF (una.. lgned cod.) If the alll"nmont
I. UA.
Sol. byte 0 of tho LUB be ing generated (In a work
orea) to h.x FE (ignore code) if tho a .. ignmont i. IGN.
•
If IGN tho logical unit cannol be SYSRDR.
SYSIPT. or SYSIN.

6.
7.

Chart CD

If aal9nmont i. temporary .xit to ASSGN22.
CloM the fil. if a cloM is in operation.
If in SYSOUT modo and if tho auignmont i. for
SYSLST tho JIB pointer In the SYSLST PUB i. null.d.
If In SYSOUT modo and tho a .. ignmont I. for .Ithor
SYSPCH or SYSOUT the JIB point.r in the SYSPCH
LUI I. null.d.
ASSGN23A: Ro.. t tho LUB to standard una ..lgned.
~ui"nnMInt i. IGN or if it is!!!! for a tape
dovlc. go to ASSGN24.
If the newouignment is for a tape device and if MODE
i. specified tho standard modo and owner'" ip bit. of
the PUB+7 are modifi.d.
ASSGN2S: Update tho .. t modo byle of tho PUB
(PUB+5).
ASSGN24: Mak. the actual allignment by moving
ii;;MW'TUB to tho LUB tabl. from tho work area.

ASSGN87
TERMINATE ASSIGNMENT AND
Charts CG. CH
OPEN TAPE FILES
I. Sot open flog off in all DFB. u.lng this devic••
2. If auignmont wa. for SYSIN. SYSIPT must aloo be
auignod. (SYSRDR ha. boon)
II aaignmont wa. for SVSOUT. SYSLST
aloo be
a .. igned (SYSPCH ho. bHn) - - - - - - - - - t - - i
3. If the Gllignment fl for one of the I)'stem un1h
SYSRDR. SYSIPT. SYSPCH. or SYSLST. tho fil. i.
opened.
• If tho fil. i. a tape unit l!IISIl. not at lood point
tho open 1. bypouod.

--------+-.
mu.'

(

ASSGNBS
Chewt CC
D.lormlnes if the ossignment I. for SYSOUT or SYSLNK and
performs flnol t.sting. If tho a .. ignmont i. for SYSOUT it
cannot be t.mporary. If the allignment i. for SYSLNK tho
job control switch J8CSWI. bilO i...t off ta prohibit
linkog••di~r output on SYSLNK.

ASSGN22
Chart CE
I.
2.
3.
4.

S.

ASSGN88
MAKE ALTERNATE ASSIGNMENT
Chart CF
1. T.st. tho validity of the alt.rnat. auI9n... nl.
2. Det.rmlne. if the modo of tho a .. ignment i. equal to
tho mode of tho LUI.
3. Make. .
If tho dovlc. i. not tope !!!: MODE i. nol specified. it
is not nece.... to u
• the PUB.

Job Control ($JOBCTLD) Statement Processor (Part 1 of 2)

DOS System Control

(

.
CLOSE

• Chart 03
Table A

~

RESET

~

RESET STATEMENT PROCESSOR Charts CJ-CK

CLOSE STATEMENT PROCESSOR Chart BN
1. Closes a logical unit. ,
2. The unit may optionally be reassigned
to another device, made UA, made
IGN, or if tape it may be specified as
an alternate (AL T). If the unit is a
system unit,one of the optional operands must be specified.
3. If an optional operand is not specified
the programmer logical unit is closed

Resets logical unit assignments to standard
as specified by one of the following
operands:
1. ALL - Reset all assignments to standard.
2. SYS - Reset all system assignments to
standard.
3. PROG - Reset all program assignments
to standard.
4. SYSXXX - Reset a single logical unit
to standard.

and the assignment remains unchanged.

4. If an optional operand other than ALT
is specified the ASSGN statement
processor (Chart JC2) is entered at the
label ASSGNO to make the actual
assignment.
5. An ALT assignment spec ifies that the
logical unit is to be closed and an alternate unit is to be opened and used.
The B-transient $$BCMT07 is fetched
to open the alternate dev ice.
The ALT operand is valid only for
the system output units SYSPCH,
SYSLST, or SYSOUT. These units
can not be assigned to a disk.

~

LISTIO
LISTIO STATEMENT
PROCESSOR
Chart BP-BT
Lists the I/O assignments of the system as
specified by one of the following operands.
SYS
PROG
Fl

•

•
•
• F2
• ALL
• SYSXXX
• UNITS
• DOWN
UA
• X'CUU'
•Refer to Appendix D for sample printouts.

I
DVCUP

)

,.

J

DVCUP STATEMENT PROCESSOR Chart BX
Makes a device available after it has been
down. The procedure is:
1. Compute the PUB address of the device
specified by the operand X'CUU'.
2. Set the job control flag in the PUB to
indicate the device is up.
3. If the dev i ce is tape th e standard mode
is restored.

UNA

•

Chart BM

1. All I/O assignments for the foreground
area(s) specified are unassigned.
2. The operands of the UNA statement,
Fl and/or F2, can appear in any
sequence.
3. The area(s) specified must be currently

I

DVCDN
DVCDN STATEMENT
PROCESSOR

•

UNA STATEMENT PROCESSOR

inactive •

Chart BU-BW

Indicate a device in the PUB table as being no longer available to the system.
The procedure is:
1. To indicate the physical device as
down.
2. To reset all assignments to standard.
3. To unassign all standard assignments
assigned to the downed device.
4. To remove all alternate assignments
assigned to the downed device.
5. To log all assignments that have been
altered.

+

C!J

CONTROL

Chart

os.

Job Control ($JOBCTLD) statement Processor (Part 2 of 2)

system Control Programs

83

•

'Chart 03
Table B

OPTION
OPTION STATEMENT PROCESSOR

Chart DJ

Records the job control options requested
by the programmer. The parameters of the
OPTION statement are scanned, one at a
time, and control is transferred to the

,

Table #1
PARAM

Last
Parameter
Processed

NO

CHART

DECK
Set DECK option ON, COMREG+58, bit 0

DK

~

NODECK

NODECK
Set DECK option OFF, COMREG+58, bit 0

DK

,.....

LIST

LIST
Set LIST option ON, COMREG+58, bit 1

DK

~

NOLIST

NOLIST
Set LIST option OFF, COMREG+58, bit 1

DK

'+

L1STX

L1STX
Set L1STX option ON, COMREG+58, bit 2

DK

NOLlSTX

NLlSTX
Set LI STX option OFF, COMREG+58, bit 2

DK

SYM

SYM
Set SYM option ON, COMREG+58, bit 3

DK

NOSYM

NOSYM
Set SYM option OFF, COMREG+58, bit 3

DK

~

XREF

XREF
Set XREF option ON, COMREG+58, bit 4

DK

~

NOXREF

NOXREF
Set XREF option OFF, COMREG+58, bit 4

DK

~

ERRS

ERRS
Set ERRS option ON, COMREG+58, bit 5

DK

~

NOERRS

NOERRS
Set ERRS option OFF, COMREG+58, bit 5
C48
Set 48 character set
option ON, COMREG+58, bit 6
C60
Set 60 character set
option ON, COMREG+58, bit 6

DK

~

OPTNLG
Set the SYSLST -LOG option
OFF, COMREG+59, bit 3
USRLABEL USRLBL
Initialize Job Control
Label Processing for USER LABEL Processing. Set label
area disk addr equal track I, record O.

DK

STDLABEL STDLBL
Initialize Job Control Label Processing for STANDARD
LABEL Processing.
Set label area disk addr
equal to track 0, record O.

DL

DUMP

DUMP
Set Job control dump option ON, COMREG+59, bit 1

DL

NODUMP

NODUMP
Set job control dump option OFF, COMREG+59, bit 1

LINK

LINK
Set LlNKEDT control bits, COMREG+57, bits 0,2

DL

NOLINK

NOLINK
Set LINK option OFF, COMREG+57, bit 0

DL

LOG

OPTLOG
Set the SYSLST -LOG option ON, COMREG+59, bit 3

DL

~

CATAL

CATAL
Set L1NKEDT control bits, COMREG+57, bits 0,2,3

DL

f+

correct processing routine as show in

Table 1.

RTN LABEL

DECK

YES
03
CONTROL

48C

60C

NOLOG

Chart 06. Job Control ($JOBCTLG) Statement Processor (Part 1 of 3)

84

DOS System Control

!+'

r-...

,.

DK

~

(

DK

~

r--.

DL

~

,.....

,.....
DL ,.....

....
~

c

"

CANCEL
CANCEL STATEMENT PROCESSOR

"Chart 03
Table B

Chart DA

This statement is ignored if a job was not
in process when it is encountered:
I. Displays the messoge "JOB-job name-CANCELLED
DUE TO OPERATOR INTERVENTION".
2. Sets the cancel code in JBCSWI.
3. Sets the SYSRDR input switch on (also
in the PIB).
4. Resets all label sequence indicators.
5. Resets all I/O assignments to standard.
6. If a job is canceled and it is out
of sequence step 5 is bypassed.

EOJ

/&

STATEMENT PROCESSOR
Charts DB, DC
I. Fetches $MAINEOJ to update the
library and transient directories if the job
just finished was MAl NT or $LNKEDTC.
2. Restores standard I/O assignment.
3. Insures that SYSIPT is at EOF.
4. Resets jab control options to standard.
5. Sets job status bit OFF (see item 1).
6. Displays EOJ message and logs the time.
7. Resets the job name field in the communications
region to "NO NAME".
8. Lists all non zero TESs.
9. Resets all bits in COMREG+57 except the
autotest indicator.
10. Control is transferred to the JOB
statement processor at the label RSTCOM.

JOB
JOB STATEMENT PROCESSOR
Charts DQ, DR
I. Kesets all bits in c;oMREG+!)1 except the
autotest indicator.
2. Simulates a SYSRDR EOF if the /&
statement has not been read.
3. Restores all LUB assignments to standard.
4. Moves the JOB name to the communications
region.
5. Logs the JOB statement on SYSLST/
SYSLOG. Logs the time on SYSLOG.
6. Restores all options to standard.
7. RSTCOM: Restores the communications
reg ion to standard.
8. Resets the EOF indicators in all PUBs.

dJ

CONTROL

)

Chart 07.

Job Control ($JOBCTLG) Statement Processor (Part 2 of 3)

system Control Programs

85

*

EXEC
EXEC STATEMENT PROCESSOR

•

*Chart 03
Table B

LOG
Ch.arts DD- DG

An EXEC statement indicates the end of
preparation for the execution of a job
step. All control statements, necessary
for execution, must be processed before
this time. A test is mode to determine
if all lobe I processing has been
accomplished. If there is label or extent
informotion in the label output area, it
is wriHen on the label cylinder of SYSRES.
If the EXEC statement has a blank operand
field, initialization is performed to
execute the linkoge editor output.
v.t.en a phase name is spec ified, it is
saved in a work area and a phase directory
is built for this job step. v.t.en the
phase directory is completed, storoge is
cleared from the problem program beg inn ing
address and a fetch is issued for the
desi red program.

(

t

Chart DH
LOG STATEMENT PROCESSOR
1. If the statement is frpm the operator, no / / in
column 1, the log-on-SYSLOG-switch
(COMREG+S6, bit 3) is set ON.
2. If from the programmer, II in column 1 the
log-on-SYSLST -switch (COMREG+59, bit 3)
is set ON.

,
I

STOP

Chart DA

STOP STATEMENT PROCESSOR
Th is statemeRt is an error if the system
is not in a multi programming environment.

A WAIT macro pointing to a dummy CCB
is simu lated to force entry into the
supe(visor task selection routine. This
removes the background program from the
task selection mechanism.

I
NOlOG

•

NOlOG STATEMENT PROCESSOR
Chart DH
If the statement is from the operator, no
II in column 1, the log-on-SYSlOG-switch
(COMREG+S6, bit 3) is set OFF.
If from the programmer, II in column 1, the
log-on-SYSlST -switch (COMREG+S6, bit 3)
is set OFF.

PAUSE

,

Chart DH
PAUSE STATEMENT PROCESSOR
If the statement is from the operator, no
II in column 1, the job-control-pouseswitch (COMREG+S6, bit S) is set ON to
cause a pause before the next job-step.
If the statement is from the programmer,
/ / in column I, the job control input-cinSYSlOG- switch (COMREG+S6, bit 2) is set
ON. Th is forces a pause on the next
job control read operation.

MAP

t

MAP STATEMENT PROCESSOR
Chart DP
Displays on SYSlOG the current allocation
of each main storoge area (superv isor
background, foreground I, and foreground 2).
Included is the upper limit of each area
as well as the name of the program
currently being executed. See Figure 47.

\.

I
AllOC

+

AllOC STATEMENT PROCESSOR

(

Charts DM-DP

This phase reallocates main storoge according to the number
of 2K blocks specified for one, or bath of the foreground
areas by the operand of the AllOC statement. To reallocate,
this phase:
1. Builds a table containing the current number of 2K blocks,
the lower limit address, the address of the save area,
and the upper limit address. A separate table is built for
the background area and each foreground area. The
source information for the table entries is the program
PIB.
2. Updates the table built in step 1 with the information
secured from the operand of the AllOC statement. The
operand value is easily converted to byte count which is
used to calculate upper limit information. Upper and
lower limits necessary to ensure contiguousness and the
designated amount of main storage are calculated for
each table entry and checked to overlap for active areas.
3. Resets the PIB entries with origin information and storage
keys of all program areas, using the table entries as
source information.

0
A
CONTROL

Chart 08.

86

Job Control ($JOBCTLG) statement Processor (Part 3 of 3)

DOS System Control

(

*

Chart 03
Table C
RSTRT
RSTRT STATEMENT PROCESSOR

ACTION
ACTION STATEMENT PROCESSOR Chart ED

Chart EN

Computes the LUB and PUB pointer for
SYSXXX and saves the checkpoint number.
Insures that all label processing has been
accomplished and closes the user label
area.

This slatement is invalid if the link
option (JBCSWI, bit 0) is nat ON. If
valid the ACTION slatement is copied to
SYSLNK.

I
(

SVC 2 Fetch )

_$;;,;$;;;,BR;;;;S~TR;;;;T_*_""

UPSI
UPSI STATEMENT
Chart EM
PROCESSOR
The parameter of this slatement is
converted to a single byte and stored in
COMREG+23.
• A character I sets a bit ON.
• A character 0 sets a bit OFF.
• A character X leaves the bit unchanged.

SET
SET STATEMENT PROCESSOR

Chart EL

Provides the operator with the capability
of changing the UPSI byte, the system date,
the line count, the system time, ond the
remoining capacity of SYSLST or SYSPCH
when they are assigned to disk. Processing
is as follows when the operand is:
DATE the MM/DD/YY or DD/MM/VY
parameter is canverted to binary
and stored into COMREG+79 thru
84. The Julian day is computed,
adjusted for leap year, converted
to EBCDIC, and stored in
COMREG+8S thru 87.
~ The parameter is converted to
binary and stored in COMREG+
78. The job control line count
for the remoining lines on the
current page is adjusted.
Q,Qg = the parameter HH/MM/SS is
converted to bi nary seconds,
multiplied by 300. The system
timer is divided by 256 and
added to the result. The new
value is stored as the new system
time of day in decimol location
54, SYSTOO.
(((HHX60)l-MM)X60)l-SS)X3OO)l-TiMER!
256) = NEW S,(STOO
UPSI See UPSI Chart
RCLST = The parameter of this operand is
converted to binary and stored in
the SYSLST OIB.
RCPCH = The parameter of this operand Is
converted to binary and stored in
the SYSPCH OIB.

=

=

DATE

1

* See LIOCS PLM

DATE STATEMENT PROCESSOR Chart EK
Moves the date, from the operand of the
slatement, to the communication region
(byte 0).

T

INCLUDE
INCLUDE STATEMENT
PROCESSOR

Chart ED

This slatement is invalid if the linlc
option (JBCSWI, bit 0) is not ON.
If the slatement conlains an operand, the
complete slatement is copied to SYSLNK.
If the stotement does not conlain an
operand, SYSIPT is copied to SYSLNK until
a 1* slatement Is read on SYSI PT. Blank
slatements, read from SYSIPT, are not
copied to SYSLNK.

MTC
IMTC STATEMENT PROCESSOR

Chart EE

Permits the operator to initiate tape I/o
commands on specified logical units or
physical I/O devices.
The routine checks the op code, computes
or locates the PUB pointer, and assigns it
to the SYSUSE LUB, arVl executes the I/o
aperation.
The third operand (duplication factor)
determines the number of operatians to be
performed. If the third operand is left
blank, a duplication factor of I is assumed.

=

~co~
)

Chart 09.

Job Control ($JOBCTLJ) statement Processor (Part 1 of 3)

System Control Programs

87

(
\

•

,

Chart 03
Table C

LBLTYP

TPLAB
TPLAB STATEMENT PROCESSOR
Chart EK
The sequence af the TPLAB statement is
checked. It must follow a VOL statement.
If there is a continuation 'punch in column
72, a second statement is read into the
input area contiguously with the first
statement. There are 49 characters read
from the first statement and an additional
20 characters from the second statement.
If a continuation statement is not
indicated, the 49 character record in the
input area is padded with 7 zeros and 13
blanks.
The label is moved from the input area to
the label output area. A switch is set to
indicate that only a VOL statement may
follow.

LBLTYP STATEMENT PROCESSOR

Chart EF

1. If the first operand is TAPE the size
of the label area is set to 80 bytes.
2. If the first operand is NSD the second
operand (nn) is used to calculate the
number of bytes required to contain
the specified number of extents.
This computed value plus 84 bytes
determines the size of the label
area.
3. The size of the label area is
determined in step 1 or step 2 and is
stored for subsequent use by LIOCS
and the Linkage Editor.

I

I
DLAB
OLAB STATEMENT PROCESSOR

XTENT
XTENT STATEMENT PROCESSOR Charts EH,EJ

Chart EG

The sequence of the OLAB statement is
checked. It must follow a VOL statement.
A continuation statement is required. It
is read into the input area contiguously
with the first statement. The disk format
1 label is built in the label output area,
one parameter at a time.
Param. 1 (51-bytes) make up fields I, 2,
and 3.
Param 2 (4-bytes, max.) is the vol. seq.
no. It is converted to 2-bytes
binary and stored in field 4.
Param 3 (5-bytes) is converted to 3-bytes
binary and stored in field 5.
Param 4 (5-bytes) is converted to 3-bytes
binary and stored in field 6.
The creation and expiration dates
are tested for validity (fields 5
and 6 respectively).
Param 5 (13-bytes) is stored in field 8.
Param 6 (optional) is tested
if blank or SO, set field 10 to an S.
if OA, set field 10 to a D.
if ISC, set field 10 to a C.
if ISE, set fi eld 10 to an E.
A switch is set on to indicate that a DLAB
statement has been processed and only an
EXTENT statement can follow.

The sequence of the XTENT statement is
checked. It must follow a DLAB statement
or another XTENT statement. The
parameters are processed one at a time
(parameter 1 - 7). An XTENT statement is
required for each extent to be defined
for a given set of VOL and OLAB statements.
The extents are built in a label output
area and are written in the SYSRES
VOLUME area.

(
\

I
VOL
VOL STATEMENT PROCESSOR

Chart EF

The sequence of the VOL statement is
checked. The 1st parameter SYSXXX is
tested, converted, and the symbolic unit
address is saved in the label save area.
The 2nd parameter, FILE NAME, is tested
and moved to the label output area. A
switch is set to indicate that the VOL
statement has been processed.

CONTROL

Chart 10.

88

Job Control ($JOBCTLJ) Statement Processor (Part 2 of 3)

DOS System Control

(

*

UCS

t

UCS STATEMENT PROCESSOR

t

HOLD
Charts EB, EC

The 240-character Universal Character Set
(UCS) specified by the operand "PHASE NAME"
is loaded in the buffer of the IBM 2821 Control
Unit of the logical unit specified by the
operand" SYSXXX". The phase is loaded from
the Core Image Library.
I. The operand" SYSXXX" specifies a 1403
with the UCS feature.
2. The operand "PHASE NAME" specifies the
core image library phase to be loaded.
3. The operand "FOLD" (optional) specifies
that the buffer is to be loaded with the
"folding" operation code (hex F3) in
the 3rd CCW.
4. The operand" BLOCK" (optional) spec ifies that data checks are to be inh ibited.
The in~ ibit dato check operation code,
X'73' is set In the 2nd CCW.
5. The operand· NULMSG" (optional)
specifies that the BO-character verification message is nat to be printed. The
chain bit is set off in the 3rd CCW.

I

*Chart 03
Table C

HOLD STATEMENT PROCESSOR
I.

2.
3.

•

RELEASE

RELSE STATEMENT PROCESSOR
I.

2.
3.

Chart EA

All I/O assignments for the foreground
area(s} specified ore to stay in effect
from job step to job step.
The operands of the HOLD statement, FI
and/or F2, can appear in any sequence.
The hold flog, bit 4 of PIB+12, is set
ON(I}.

Chart EA

All I/O assignments for the foreground
area(s} specified are unassigned at the
end of the job step currently being
execllted in that area.
The operands of the RELSE statement, FI
and/or F2, can appear in any sequence.
The hold flag, bit 4 of PIB+12, is set
OFF(O}.

""'-

~

A
CONTROL

Chart 11.

Job Control ($JOBCTLJ) Statement Processor (Part 3 of 3)

)
)

System Control Programs

89

SUPERVISOR CONTROL PROGRAMS

Batch Job Support (BJS)

Three divisions of Supervisor Control
Programs are presented in the following
sequence in this manual:

BJS is an inclusive part of MPS support.

(

1. Resident Supervisor ($$A$SUP1)
Supervisor call Interrupt SVC
a. Supervisor Interrupt Processors
b. Physical IOCS
2. A-Transient Programs ($$ANERRX)
3. B-Transient Programs ($$Bxxxxx)
RESIDENT SUPERVISOR CHARTS 12 THROUGH 17
Supervisor is the storage resident portion
of the Disk Operating System. It is loaded
into storage at IPL time and remains there
throughout system operations. Refer to
Section 3 of this manual for information
about generation of the resident
supervisor. Refer to Figure 14 in Section
3 for information about the storage
.
organization of the resident supervisor.
Infrequently used supervisory functions
are not included in the resident
supervisor. They are in the form of
transient programs (A and B) and are
fetched or loaded from the core image
library when needed.

Supervisor Interrupt Processors
This portion of the resident supervisor
processes the following system interrupts:
• Supervisor call interrupt
• I/O Interrupt

svc is detected by microprogramming, which
loads the SVC new PSW. The SVC interrupt
processor (Chart 14) analyzes the SVC code
placed in the SVC old PSW by
microprogramming. Control is transferred
to the appropriate processing routine. SVC
codes greater than 27 cause a cancel. Some
SVcs are optional and cause a cancel if
supervisor was generated without the
option.
(See Figure 32 for a list of
supervisor calls.)
SVC 0: Execute the user's channel program
(EXCP). The address of the user's command
control block (CCB) must be supplied in
general register 1 before issuing this SVC.
Return may be either to the interrupted
program or to the highest priority program
ready to run.
When an SVC 0 is issued by
or A-Transient programs, the
address of the CCB must be supplied in
general register 15 before issuing the SVC.
Not~:

superv~sor

(

SVC 1: Fetches a phase. A fetch loads a
phase from the core image library and
.branches to the entry address in that
phase. The load and entry addresses are
obtained from the core image directory
entry for the phase being fetched. The
storage address of the phase name must be
supplied in general register 1 before
issuing this SVC. The user may override
the linkage editor entry address by
supplying an entry address in general
register O. Return may be either to the
interrupted program or to the highest
priority program ready to run.

• Program check interrupt

Multiprogramming Support (MPS)

SVC 2: Fetches a B-transient. Loads a
B-transient program (phase name prefix
equals $$B) from the core image library to
the B-transient area (Refer to Figure 14)
and enters the B-transient at its load
address plus 8 bytes. The storage address
of the B-transient phase name must be
supplied in general register 1 .•

General Entry and General Exit routines
provide the mechanism for multiprogramming
support. Refer to these areas on Chart 12
of additional descriptions for .
multiprogramming concepts. Figure 33
illustrates the task selection procedure
associated with multiprogramming.

An address in general register 0 is
ignored. The B-transient is loaded at the
beginning address of the B-transient area.
General register 15 is loaded with this
address and may be used by B-transients as
a base register. Return may be either to
the interrupted program or to the highest
priority program ready to run.

• External interrupt
• Machine check interrupt

90

DOS System Control

(
"

Only one program can use the B-transient
area at a time. If the B-transient program
is SVC 7 bound, another program is
selected. This program becomes SVC 2 bound
(waiting for the B-transient area) if it
issues an SVC 2. Another program is then
selected.
Note: Supervisor may branch directly to
the SVC 2 routine when fetching a
B-tranSient. - If the transient is not in
- the library when referenced by the
supervisor, the system will enter the wait
state.

I

SVC 3: Fetches or returns from an
A-transient. Load an A-transient program
(phase name prefix equals $$A) from the
core image library to the A-transient area
(Refer to Figure 14) and enters the
A-transient at its load address plus 8
bytes. The storage address of the
A-transient phase name must be supplied in
general register 1.
An address in general register 0 is
ignored. The A-transient is loaded at the
beginning address of the A-transient area.
General register 11 is loaded with this
address and is used by A-transients as a
base register. Return will be to the
in~errupted program.
Note: Supervisor may branch directly to
the SVC 3 routine when fetching an
A-transient. Only programs operating in
the supervisor mode can issue an SVC 3. If
the transient is not in the library, the
system will enter the wait state.

l

CAUTION: SVC 3 is also used as a return
from an A-transient program-. The last byte
of the A-transient name field determines
the usage.
• X'OO' Returning from error recovery
A-transients.

user, general register 1 contains the phase
entry address adjusted for any changes in
the phase's load address.
, Note: Return may be either to the
interrupted program or to the highest
priority program ready to run.
SVC 5: Modifies the supervisor
communications region. Supplies the
supervisory support for the MVCOM macro.
The sequence of events is:
1. MVCOM macro issues an SVC 5.
2. SVC 5 fetches $$ANERRl by branching to
the SVC 3 routine.
3. $$ANERRl alters the supervisor

communications region as specified by
the MVCOM macro.

Return may be either to the interrupted
program or to the highest priority program
ready to run.
SVC 6: Cancels a background or foreground
program. Cancel code X'23' is posted to
the PIB for the program issuing the SVC 6.'
Refer to Figure 22 for the format of the
PIB tables, to Chart 14 for General Cancel
Routine, and Figure 34 for cancel codes.
The next time the canceled program is
selected on general exit. a branch is made
to the SVC 2 routine to fetch the cancel
B-transient program, $$BEOJ3.
SVC 7: Waits for I/O to complete or a
timer interrupt to occur. SVC 7 supplies
the supervisory support for the WAIT macro.
With MPS option: Returns directly to the
interrupted program if the traf,fic bit has
been posted in the CCB or TECB.- See SVC 24
in'this list for an explanation of the
TECB. If traffic bit is not posted:

• X'Ol' Returning from physical attention
transients ($ $ANERRZ , Y, 0) or post
cancel by any A-transient.

1. Change the status of the interrupted
program PIB to SVC 7 bound (not ready to

• Last byte is alpha - fetch A-transient.

2. Select the highest priority program that
is ready to run.

When returning from an A-transient, the
branch address is in general register 15.
The A-transient must load one of the exit
addresses from the error recovery block
(ERBLOC). Refer to Figure 42.
SVC 4: Loads a phase from the core image
library and returns to the user.- - See the
following Note. The storage address of the
phase name must be supplied in general
register 1 before issuing this SVC. The
user may override the link-edited load
address by supplying a load address in
general register o. Upon return to the

run).

When I/O is completed or a timer
interrupt occurs"
1. The traffic bit is posted in the CCB or

TECB.
2. The PIB is restored to the ready-to-run
status.
When this program is again selected at
general exit, the old PSW will be loaded
with the address of the second
instruction of the WAIT macro expansion.
System Control Programs

91

without MPS option: Returns directly to
the interrupted program if the traffic bit
has been posted in the CCB or TECB.
(See
SVC 24 in this list for an explanation of
the TECB.)
If the traffic bit is not posted, the
system enters the wait state with
interrupts enabled.
SVC 8: Supplies the supervisory support to
temporarily return from a B-transient
program to the problem program. The
B-transient area is not released. The task
selection exit loads the problem program
registers. Return to the B-transient
program is accomplished by issuing an SVC
9.
SVC 9: Supplies the supervisory support
for returning to the B-transient after an
SVC 8 is issued. The task selection exit
loads the B-transient registers.
SVC 10: Sets a timer interval. This SVC
is optional and the issuiug program will be
canceled if supervisor is generated without
IT option. Only the timer supported
program can is~ue an SVC 10. bthers will
be canceled.
The time interval is specified in
general register 1 by the'user (SETIME
macro). The system time of day (SYSTOD,
X'54') is updated to the time that the next
interrupt should occur (may change if
another SVC 10 is issued). The system
timer (SYSTIMER, X'50') is set to the
specified time interval. The time interval
in SYSTIMER immediately begins to lapse.
Refer to IBM System/360 Principles of
operation, Form A22-6821, for info~mation
concerning the operation of SYSTIMER.
Note: Current system time of day can be
obtained by shifting out the low order byte
from the remaining time interval (SYSTIMER)
and subtracting it from system time of day
(SYSTOn). Time in SYSTOD is represented in
the form, seconds x 300. Time in SYSTIMER
is in the form, seconds x 300 x 256.
An SVC 10 returns directly to the timer
supported program. No task selection is
performed.

SVC 11: Returns from a B-transient
releasing the B-transient area. SVC 11 is
invalid if issued by other than a
B-transient. The logical transient area is
released for use by other programs or
tasks. Return will be to the highest
priority program ready to run.
SVC 12: Supplies the supervisory support
to reset flags to 0 in the linkage control
byte (displacement 57 in the supervisor
co~nications region).
The user loads a
j

92

DosCsys~em

Control

mask (1 byte" hexadecimal> into general
register 1. This mask is ANDed with the
linkage control byte. An SVC 12 returns
directly to the interrupted program. No
task selection is performed.
SVC 13: Supplies the supervisory support
to set flags to 1 in the linkage control
byte (displacement 57 in the supervisor
communications region) '. The user loads a
mask (1 byte" hexadecimal> into general
register 1. This mask is ORed with the
linkage control byte. An SVC 13 returns
directly to the interrupted program. No
task selection is performed.
SVC 14: This is the normal end of job
(EOJ).
Cancel code,X'10' is posted to the
PIB for the program issuing the SVC 14.
Refer to Figure 22 for the format of the
PIB tables and to Chart 14 for General
Cancel routine. The next time the canceled
program is selected on general exit, a
branch is made to the SVC 2 routine to
fetch the cancel B-transient program
$$BEOJ3. Job Control is loaded by $$BEOJ
to perform end-of-job-step.
SVC 15: This is the same as SVC 0 (EXCP),
with this exception: when the CHANQ table
is full, the SVC is ignored. Return is
direct to the interrupted program in this
case. If the CHANQ table is not full,
general register 0 is zeroed and EXCP is
issued (see SVC 0 in this list).

(

"

Note: The CHANQ table is full when the
free list pointer (FLPTR) equals X'FF'.
Refer to Figure 21 for the format of the
CHANQ table and to Figure 35 for CHANQ
operation.
SVC 16 THROUGH 21: These supervisor calls
provide supervisory support for the STXIT
and EXIT macros. They are optional, and
the issuing program will be canceled if
supervisor was not generated with the
applicable option.
• SVC 16 stores the address of the user's
program check (PC) routine and save
area address in the PC option table.
• SVC 17 provides a return from the
user's PC routine to the program
interrupted due to a program check.
• SVC 18 stores the address of the user's
interval timer (IT) routine and save
area address in the IT option table.
SVC 18 can only be issued by the timer
supported program.
• SVC 19 provides a return from the
user's IT routine to the timer
supported program. SVC 19 can only be
issued by the timer supported program.

(
\

• SVC 20 stores the address of the user's
operator communications (OC) routine
and save area address in the OC option
table.
• SVC 21 provides a return from the
user's OC routine to the program
interrupted by the external interrupt
key.
The address of the user routine is
specified in general register 0, and the
address of the users save area is specified
in general register 1 in all cases. Refer
to Figure 25 for the format of the option
tables.
SVC 16, 18, and 20 return directly to
the interrupted program
SVC 17, 19, and 21 return either to the
interrupted program or to the highest
priority program ready to run.
SVC 22: Seizes the system and provides a
release from such a seizure. The SVC 22 is
ignored if supervisor was generated without
MPS option. The program issuing an SVC 22
is canceled if the PSW protection key field
does not equal O.
(Only Job Control and
B-transient programs can issue an SVC 22.)
The first SVC 22 issued seizes the
system and the next one issued releases the
system. The program can change the system
mask by loading the system mask it requires
into the last byte of general register O.
If the program masks off all interrupts,
the loaded PSW contains its protection key.
The task selection mechanism is altered
by the first SVC 22 so that only supervisor
or quiesce I/O tasks and the program that
issued the SVC 22 can be selected. The
next SVC 22 issued restores the task
selection mechanism. The contents of the
last byte of general register 0 are again
used as the system mask.
Return from each SVC 22 is directly to
the interrupted program.
CAUTION: There is no way to cancel a
program that has seized the system.

control and B-transient programs can issue
an SVC 23.)
The user must specify the address of the
core image phase name in general register 1
and the address of where the load address
is to be stored in general register O. The
main fetch sUbroutine scans the core image
directory and retrieve the load address.
If the phase is found in the directory, the
load address (3 bytes) is stored at the
user's address specified by general
register O. If the phase is not found" the
return is to the interrupted program.
SVC 24: Stores the address of the user's
timer event control block (TECB) and sets a
timer interval. This SVC is optional, and
the issuing program will be canceled if
supervisor is generated without IT option.
Only the timer supported program can issue
an SVC 24. Others will be canceled.
The address of the user's TECB is
specified in general register 0, and the
time interval is specified in general
register 1.
The traffic bit is reset in the user's
TECB, an~ the TECB address is stored in the
IT option table. Refer to Figure 25 for
the format of the IT option table.
Note: The TEeB has the same format as a
command control block (CCB), but only the
traffic bit is used. The traffic bit is
set when a timer interrupt occurs. Refer
to Figure 36 for the format of the CCB.
The time interval is set, and
time of day is updated as for an
(See SVC 10.) An SVC 24 returns
to the timer supported program.
selection is performed.

the system
SVC 10.
directly
No task

The user causes the program to wait for
the timer interrupt to occur by issuing an
SVC 7. (See SVC 7 in this list.)
SVC 25: Issues halt I/O on a
tele-processing device. If supervisor is
generated w~thout tele-processing option, a
program issuing an SVC 25 will be canceled.

• The program must have no pending I/O
operations.

The address of any command control block
(CCB) containing the symbolic unit address
for this device must be supplied in general
register 1 before issuing this SVC.

• The program cannot issue supervisor
calls while the system is seized.

An HIO instruction is issued to the
device if:
/

/

SVC 23: Loads phase header. Retrieves the
load address for a specified phase from the
core image directory. The program issuing
an SVC 23 is canceled if supervisor was
generated without MPS option or the PSW
protection key does not equal O. (Only Job

1. it is a tele-processing device and
2. there is I/O pending for the device .•
In this case, return is to the highest
priority program ready to run. The device
System Control Programs

93

busy flag is reset at this time. If an sve
25 is issued for other than a
tele-processing device, ~t is ignored.

or the program will be canceled (ERR25).
Return is to the interrupted program. No
task selection is performed.

sve 26: Validate address limits. The
program issuing an sve 26 will be canceled
if the PSW protection key does not equal O.
(Only Job Control and B-transient programs
can issue an sve 26.)

With MFS option: The PIK of the program
issuing the SVC 26 must equal the storage
protection key for both addresses or the
program is Canceled (ERR25).

The upper address must be specified in
gene~al register 2, and the lower address
must be specified in general register 1.
The upper address must be within main
storage, and the lower address must be
higher than the end of supervisor address,

With BJS option (batch only): sve 26 is
ignored in a BJS system without storage
protection.
SVC 27: Same as sve 25, except the EXCP
eeB is not dequeued if the CSW has been
stored after a HIO command.

(

94

DOS System Control

DOS SUPERVISOR CALLS
Macro
Supported

Function

SVC

EXCP

0

Execute chaMel programs.

FETCH

1
2
3

Fetch any phase.
Fetch a logical transient (8- transient).
Fetch or return from a physical transient
(.4.- transient).

LOAD

4

Load any phase.

MVCOM

5

Modify supervisor communications region.

CANCEL

6

Cancel a problem program.

WAIT

7
8

Wait on a CCB or TECB.
Transfer control to the problem program from
o logical transient (8- transient).

LBRET

9

Return to 0 logical transient (8- transient)
from the problem program after a SVC 8.

*10
11
12

SETIME

13
14

EOJ

15

Set timer interval.
Return from a logical transient (8- transient).
Logical AND (Reset) to second Job Control
byte (displacement 57 in communi cot ions
region).
Logical OR (Set) to second Job Control byte
(displacement 57 in communications region).
Cancel job and go to Job Contro I for end of
job step.
Same as SVC 0 except ignored If CHANQ
table is full. (Primarily used by ERP).

STXIT (PC)

*16

Provides supervisor with linkage to user's PC
rautine for program check Interrupts.

EXIT (PC)

*17

Return from user's PC routine.

STXIT OJ)

*18

Provides Supervisor with linkage ta user's IT
rautine for interval timer Interrupts.

EXIT (IT)

*19

Return from user's IT routine.

STXIT (OC)

*20

Provides supervilOr with linkage to user's OC
routine for external or attention interrupts
(operator communications).

EXIT (OC)

*21
*22

Return fram user's OC routine.
The fint SVC 22 seizes the system for the
issuing program by disabling multlprogram
opelOtion. The second SVC 22 releases
the system (enables multiprogram operation).
Load phase header. Phase load address is
stored at user's address.
Provide supervisor with linkage to user's
TECB and set timer interval.
Issues HALT I/O on a Tele- processing device.
Validate address limits.
Special HIO on teleprocessing devices.

*23
*24
*25
*'26
*27

* = optlonol

)

Figure 32.

DOS supervisor Calls

System Control Programs

95

I/O Interrupt

Priority Table

This is detected by microprogramming, which
loads the I/O new PSW. Refer to the I/O
Interrupt Processor on Chart 15.

PlB Tables
Supervisor IOsk PI B

X'84'

Qulesce I/O task PlB

X'SO'

Attention task PIB

X'40'

X'BO'

Program Check Interrupt

t Foreground I program PIB

X'3D'

X'82'

t Foregraund 2 program PI B

X'20'

X ' 83 1

Bockground prOgram PlB

X'IO'

t All bound PlB

Meaning of Status
Detached

External Interrupt
This is detected by microprogramming" which
loads the external new PSW. External
interrupts can be caused by:
• Timer
• External interrupt key

t Test sta,.,. flags
in order speclRed
by priority tabl ••
2.
.•::::'
t;::;:~~j%:..
.

Select lat PlB for
which the TRT
function i. not
X'OO'.

X'OO'

PIB Flags During Task Selection

:~

MVCFLD
X'60'

X'B3'

X'SS'

This is detected by microprogramming, which
loads the program check new PSW. Refer to
Program Check Interrupt Processor on Chart
16.

(
\,

Sample
SIO,.,.
X'84'

Flag

Table of Selection Criteria
Label

TRT Function

X'BO' TRTMSK X'OO'

Waiting for B-translent area

X'81' TRTLTK X'OO' orX'03' (Note I

Waiting for CCB or TECB

X'B2'

Ready to Nn

X'B3' TRTRUN X'03' orX'OO' (Note 2)

X'OO'

Inactive SUM or QulesceI/O X'84'

X'OO'

IAc:tlve SUPVR, Qulesce
I/O, or All bound

X'OS'

X'SS'

Note 1: X '00' when the B-transient area is in use.

Note 2: X'OO' when a task has seized the system.
That ta.k' s statu. flag wi II equa I X' 84'
or X'SS'.

t These PIB'. are generated for MPS option only.

Figure 33.

Task Selection Procedure

• Signal (not supported)
Refer to External Interrupt Processor on
Chart 16.

Machine Check Interrupt
This is detected by microprogramming, which
loads the machine check new PSW. The SEREP
action code (S) is stored in storage
location 0001, and the system enters the
wait state. Refer to Chart 12.

(
96

DOS System Control

Type
Logical Cancels

Logical

I/o Cancels

Cancel Code

Condition

(ERP). Refer to Unit Check, Quiesce
I/O, ERP Exits, and Resident Disk Error
Recovery on Chart 17. See Figures 41
and 42 for CSW testing and error
recovery block layout, respectively.

Label

X'lO'

Normal EOJ

ERRIO

X'20'

Progra m check

ERR20

X'21'

Illegal SVC

ERR21

X'22'

Phase not found

ERR22

X'23'

Program request

ERR23

X'24'

Operator intervention

ERR24

X'25'

Invalid address limit

X'26'

k

Figures 36 through 40 illustrate:
Command Control Block (CCB)

2.

Channel Command Word (CCW)

ERR25

3.

Program Status Word (PSW)

Unassigned LUB code

ERR26

4.

Channel Address Word (CAW)

X'27'

Invalid LUB code in CCB

ERR27

5.

Channel Status Word (CSW)

X'30'

Reading past /& on
SYSRDR or SYSIPT.

ERR30

Because of their usage, these items are
included in this section..

X'31'

Error queue overflow
or no CHANQ entry
available for ERP.

ERR31

X'32'

DASD address not
within JIB extents.

ERR32

X'33'

No long seek in user's
channel
program.

ERR33

Figure 34. Supervisor Cancel Codes

FLPTR

CHANQ

LUBID

REQID

roo---

CCB address

PHYSICAL INPUT/OUTPUT CONTROL SYSTEM
(PIOCS)

CCB address
CCB address

Physical IOCS is that portion of the
resident Supervisor that:

CCB address

• Builds a schedule of I/O operations for
all devices on the system (CHANQ
table). Refer to Channel Scheduler on
Chart 15. Also, see Figure 35 for
CHANQ operation.

CCB address

• Starts the actual I/O operations on a
device (SIO).
Refer to Actual I/O on
Chart 15.
• Schedules the starting of all I/O
operations and monitors all events
associated with I/O. Refer to I/O
Interrupt Processor on Chart 15.
• Performs error recovery procedures

CCB address
CCB address
(CHANQ
pointer)

(Olain
field)

(LUB No.)

(RID)

Figure 35. Example of the CHANQ Table
Operation

)

System Control Programs

91

1.0

00

I1:j
~.

CSW

'§

Status Bits

t:I

CTl

t1

Bytes

C/l

w

Used For--l Residual Count

0

C/l

'<

en

rt

CTl

S

()

0

~

a
I-'

5

1

~

•

1

1

()

~

I

PJ

1

OJ

I

~

()

~

1

0
I-'

....

OJ

.... ....

.... ..)

l...

e-

I

- __ -17

Byte 2

I-'
0
(')
~

Traffic
Bit
(Wait)

.....
()
()

• End-of'-file

V'or/&)

Unrecoverable
I/O Error

Acceptable
Unrecoverable
I/O Error

Retum DASD
Data Checks,
or 2671 errors
to the User

Post at
Device
End

Set Oa By--i

0
PIOCS

I
PIOCS

2
PIOCS

4

3

5

Pro Pro

I Pro Pro

Pro Pro

0

Bits
Set On By--j

PIOCS

Trock
Overrun-

DASD

I
PIOCS

End of
Cylinde ...
DASD

?
PIOCS

2540 Punch
Questionable
Equipment Check Condition
or Tape, or
DASD Read
Error

3
PIOCS

5

4
PIOCS

PIOCS ~ Physical 10CS
Pro Pro ~ Problem Progrom
Bytes 4 and 5 contain the status bytes of the Channel Status Word (Bits 32-47). If byte 2, bit 5 is on and
device end results as a separate interrupt, device end will be ORed into CCB byte 4.

*

~\

Unused

Indicates /* or /& statement encountered on SYSRDR or SYSIPT. Byte 4, bit 7 (unit exception) is also on.

,~

13

_'I

I

Retum Tape Read
Data Check, 2540
Punch Equipment
Check, or DASD
Data Checks on
Count, Read Command, or Verify
Command
6
PIOCS

User
Error
Routine

7
Pro Pro

Byte 3
Data Check
in Count
Areo-DASD

I

CCN Address
in CSW

I

--- --- --

OJ
...Bits

I

IRepresentation

--

11

----I

Reserved
for Physical
10CS
12

15 16

X'4O' -Chonnel 1Addre. of CCW ~
Address of CCN
Associated with 1 Appendage
in the CSW
1
This CCB
Routine Present ' Stored at
for TeleChannel End, or
processing
1Address of the
Device
Channel
1Appendage
X'20' -Sense
1Routine for
Information
TeleDesired
processing
I Devices
X'80' -CCB
being used by
ERP

Nat Used

IHexadecimal

-- -- -..

9

135

I

1

t1

7

~

X'OO'
8

CCN Address

B t:5-- __
of SYSnnn
BIT
SYSRDR ~ 0000
DESIGNATION
SYSIPT ~ 0001
40 Program- contro II ed I SYSLS
SYSPCH=
0002
~ 0003
interruption
1 SYSL~G-0004
133 Status madifier
34 Control unit end 41 Incorrect length
1 SYSRES ~ 0006
Busy
42 Progra~ check
SYSooo : 0100
136 Channel end
43 ProtectIon check
1 SYSoo - 0101
37 Device end
44 Channel data check I
J etc.
138 Unit check
45 Channel control check
Unit exception 46 Interface control check
Chaining check

1
1

1

0

I Transmitting
1
Information
I Between Physical
I'OCS and PrabI'em Program
1 DESIGNATION
'132 A
'
1
ttentoon

I

Nat Used
Must Contain

Symbolic Unit
Address

Corriage
Channel 9
or Verify
Error for
DASD

6
PIOCS

Command
Chaining
Retry from
the next
CCW to be
executed

7
PIOCS

I

1

-~1

8 Bytes
Appended
to the CCB
when Sense
Information
is Desired

1

I
I

I
I
I
1

1
I

Command Control Block

4. Symbolic Unit Address (bytes 6, 7):
Contains the 2-byte hexadecimal
representation of SYSnnn. This value
represents the location of the logical
unit in the LUB table (see Figure 36)
and is placed in the CCB by the problem
program.

Communication between the problem program
and physical IOCS is accomplished by the
use of the command control block (CCB).
The CCB is two double words in length with
eight major fields as shown in Figure 36.
All data in the CCB is in the hexadecimal
format.
The eight fields of the CCB are
listed and described as follows:

5. Byte 8: Is not used and must contain
hexadecimal O.

1. Count Field (bytes 0, 1): Contains the
residual count, which is stored in these
two bytes by PIOCS when the CCB is
removed from the queue.

6. CCW Address (bytes 9-11):
Contains the
address of the CCW that is associated
with this CCB.
This address is placed.
in the CCB by the problem program.

2. Transmission Information (bytes 2, 3):
Used for communication between PIOCS and
the problem program.

7. Byte 12: X'80'-CCB being used by ERP.
X'40'-channel appendage routine for a
teleprocessing device.
X'20'-sense
information desired.

Note: Bytes 0 through 3 are ANDed off, by
PIOCS, when the CCB is placed in the
queue. Communication bits set on by
the problem program are left on
because an AND instruction is used by
PIOCS for resetting bytes 0 through
3.
3. CSW Status Bits (bytes 4, 5): Contains
the CSW status information, which is
stored in these two bytes by PIOCS
before control is returned to the
problem program.
Not~:

An information bit, in bytes 2
through 5, incicates the occurrence
of the indicated condition when the
bit is on.

8. CCW Address in CSW (bytes 13-15):
Contains the CCW address from the CSW.
This address is stored by PIOCS before
control is returned to the problem
program.
A CCB that has been queued, by
PIOCS, to service a problem program I/O
request cannot be used for a second
problem program I/O request until the
first request has been completed.
Note: Bytes 13-15 contains the address of
the channel appendage routine when
bit X'40' is set in byte 12.
9. Sense Information (bytes 16-23): Bytes
16-23 are appended to the CCB when X'20'
is set in byte 12.

System Control Programs

99

I

°

BlIte
Bit
Name

2

4

3

5

0111 2 1 3 [4l516J7 8[9[10[11[12[ 13 114 [15 16[ 171 181 19120[21122[23 24[25[26127[2*9/3013 I 3**41 35 136 37138139 4014114**4145146147
Command Code
Flags
Data Address
( Ignored)

Field

A

FIELD

NAME

A

Command Code

B

C

°°°
D

E

DESCRIPTION
Bits 0-7:
Spec i fy the operction to be performed.
\ (See Note on Part 2 of this Figure)

B

Data Address

Bits 8-31:
Specify the location of a byte in main
storage. It is the first location referred
to in the area designated by the CCW.

C

Flags

Bits 32-36:
Specify the flag bits used in conjunction
with the CCW.

. . . - - - - - - - Count - - - - - -.....

F

Bit 32Chain-Data (CD) causes the address
portion of the next CCW to be used with
the current CCW. t Note
Bit 33Chain-Command (CC) causes the
command code and data address of the
next CCW to be used. The chai n data
flag (bit 32). takes precedence over this
flag.
Bit 34Suppress Length Indicatian (SLI) causes
a possible incorrect length indication to
be suppressed. The chain data flag
(bit 32) takes precedence aver this flag.

(

Bit 35Skip (SKIP) suppresses the transfer of
informatian to main storage.
Bit 36Pragram Control Interruption (PCI) causes
the channel to generate an interrupt
when the CCW is fetched.
0

Reserved

Bits 37-39:
(Must contain zeros)"

E

Ignored

Bits 40-47:
Not checked

F

Count

Bits 48-63:
Spectfy the number af bytes in the
operation

*The transfer in channel command (TIC) is the one exception to this statement.
t Note: Chain data cannot be done on 360/30 if a highspeed device is being used. Example- 2311,2400 mod

m.

Figure 37.

100

Channel Command Word (CCW), Part 1 of 2

DOS System Control

(

Note,
8-BIt Code

CHANNEL COMMAND CODES

Device
1052

Command Code
assignments are listed in the following table. The symbol
X indicates that the bit position is ignored; M identifies a modifier bit.
CODE

COMMAND

MMMM 0100
XXXXlOOO
MMMM1100
MMMM MMO 1
MMMM MM1 0
MMMM MM11

Sense
Transfer in channel
Read backward
Write
Read
Control

0 1 2 3 4 5 6 7

Command for CCW

o0 0 0
o0 0 0
o0 0 0
o0 0 0
o0 0 0
o0 0 0
o0 o0

Read inquiry BCD
Read Reader 2 BCD

Write BCD, Auto Carria.ge Return
Write BCD, No Auto Carriage Return
No Op

2540

Sense
Alarm
Read. Feed, Select Stacker SS

Type AA
Type AB

Read

Read, Feed (1400 compahbility mode only)
Feed, Select Stacker SS
Type BA
PFR Punch, Feed, Select Stacker 55 Type BA
Punch, Feed, Select stacker SS
Type BB
SS

Stacker

00
01
10

Rl
R2
RP3

Read

o

1442 Nl

ID I

I~

Data Mode

EBCDIC
Column Binary

0 X
lOX

o

ReOli
Read
Write

1 X

1 1 X
0 X
lOX
o 1 X

o

Write
Write

Write
I 1 X
Control I 0
Control o I
Control I I

DO
DO
D 1
1 0
5 DO
5 DO
S
1
1
5

Eject and SSI
Eject and SSI
Eject and SS2
Eject and SS2
551
Eject and SSI
SS2
Eject and SS2
Eject and 551
SS2
Eject and SS2

1 0
1 0
o1
o1
1 1
o0
1 I
1 0
I 0
1 0
1 1
0 1
0 1

Hex

Dec

OA
02
09
01
03
04
OB

10
02
09
01
03
04
11

01
09
11
19

01
09
17
25

02
00
04

02
00
04

OB
13
lB

19
27

03

03

08
04
DC
01
02

08
04
12
01
02

I

I

Read
Write
Control
NoOp
Sense

MMMM

Read

S
I
1
5
S
S

1 0
o0
1 0
o0
o0
o1
1 0
o0
o0
o0
o0
1 0
o0

1 0
I
1 I
1 1
o0

o

1 1 Punch diagnostic

Sense

o

Sense

1 Read diagnostic

x = 0 means EBCDIC

mode

X = 1 means Column Binary Mode

1403 or
1443

DASD CHANNEL COMMAND CODES (See A26-5988)
Multiple Track
M·Ti Of!
Command for CCW

Count

Control

X
X
X

NoOp
Release·

Restore
Seek
Seek Cylinder
Seek Head
Sense I/O

,Transfer in Channel

t

Home Address EQ
Identifier EQ

IdentiUer HI
Identifier EQ or HI
Key EQ
Key HI
Key EQ or HI
Key" Data EQ*
Key It Data HIKey " Data EQ or HI·
Read

t

Write

I

00011111
00001111
lIlOIXl000

IF 31
OF 15
X8

4 (usually)

0011
0011
0101
0111
0010
0100
0110
0010
0100
0110

1001
0001
0001
0001
1001
1001
1001
1101
1101
1101

39
31
51
71
29
49
69
2D
4D
6D

57
49
81
113

0001 1010
0001 0010
0001 0110
00000110
0000 1110
0001 1110

lA
12
16
06
OE
IE

26
18
22
06

5 (usually) 0001 1001
8+KLTDL of
0001 0101
RO

19

25

15

21

0001 1101
00000001
00000101
0000 1101

lD
01
05
OD

29
01
05
13

Note 1

5
8

~

Home Address

Record RO

Count, Key" Data
Special Count, Key" DataData
Key" Data

1
X
X

I

I

Key Ir: Data
Count. Key &r; Data

4

5 (usually)
5 (usually)
5 (usually)
1 to 255
1 to 255
1 to 255

Home Addre S8

Count
Record RO
Data

03
17
13
07
DB
lB

6

Set File Mask

Hex Dec Hex

00000011
00010111
0001 0011
00000111
0000 1011
0001 1011
00000100

6
6

Space Record
Search

I~:;\~~~e

t
M·T On

Number
of bytes

trans{erred

8+KLTDL
8+KLTDL
DL
KL &. DL

04

Write. No Space
Write, Space 1 After Print
Write, Space 2 After Print
Write, Space 3 After Print
Write, Skip To Channel N Alter Print
Diagnostic Read
Test

Dec

03
23
19
07

Line Immediately
Line Immediately·
Line Immediately
Cbarmel N Immediately

No Op

11

9A
92
96
86
14 8E
30 9E

1/0

Sense
Carriage Space 1
Control Space 2
Space 3
Skip To

27
04

B9
Bl
Dl
F1
41 A9
73 C9
105 E9
45 AD
77 CD
109 ED

0 0 0 0

C HAN Channel

CHAN Channel

o
o
o

o

o
o
185
177
209
241
169
201
233
173
205
237
154
146
150
134
142
158

o
2400

Tape·

0
0
0
I
1
I

0
1
1
0
0
1

1
0
1
0
1
0

1
2
3

1
1
I
1
I

4
5
6

1
0
0
0
0
I

1
0
0
I
I
0

I
0
1
0
1
0

o
o

0 0 1

0 0 0 0 1 0 0 1
0 Q 1
0 0 0 1

0 o 0 1 I 0 0
1 CH ANO 0
0 o 0 o 0 0 1
0 o 0 o 0 0 0
0 o 0 o 0 1 0

I
I
0
0
0

0 0 0 0 1 0
0 0 0 1 0 0
0 o 0 1 1 0
1 C HA NO
o0 o0 o0

I
I
1
1
1

1
1
1
1
1

11

7

8
9
10
11
12
0 0
0
0
0
0
0
DD

Transfer in Channel
Sen8e
Read Backward··
Write
Read
Control

o
o
o
o
o

Mode Set

o
o
o
o
o

0
0
0
0
0

1 0 o 0
0 1 o 0
1 1 o 0
o0 o1
o 0 1 0
C 1 1 1
0 1 1

,i,i I"

trait equals ON and permits 0
program check interrupt for a specific
exception.

If 0 - the CPU is in the supervisor mode

0

code
code
code
code

BIIs 36-39:
Fo"" the program mask for the following
program exceptions.

.37
3B
39

(W) 14~f I - the CPU i. in the _it state
If 0 - the CPU is in the running state

Condition
Condition
Condition
Condition

(.'ompletf"

c.umpJete
('omplct('t
(1)mpJett'

(lOOIlOOIlO (lIlIXXlIlIll

Dc't im.IJ n\'('rRnw

Not available '(unpredictable)
I holfwonl
2 halfwonls
3 halfwonls

Bits 34 and 35:
Indicate the last condition code setting.
All instructions do not set a condition
code.
00
01
10

Bit Meaning
(A) 12 ~f I - generate exlended ASCII code
If 0 - generate EBCDIC

(P) 15

Bits 32 and 33:
Indicate the length, in halfwords, of
the instruction lost executed, as
follows:
00(0)
01 (I)
10 (2)
11 (3)

7 ) Interrupt key
Exlernal signal

•z

6

c:omplete
l'omillete
l'OmpJete

1,2,3 ~uppre~,
I ~ ..upprr"
(XXl!lINXIO OIXl!XNlII
2
'uppn'~"
(lIXXNlIXlO (lIXXXIl(N)
0,2,3. ...ul'pn·..../
tenninah'
(XlIXlIlIXN) (NX)()() III I
.\cldn· ......ing
0.1,2,3 ",uppreoss/
tenninah'
(lIXXlIlIlI)!)
()(lI)()()
I
III
Sl}(·l'i6u.ltion
1.2.3 ..uppn·.....
(XXXNNK)!) (lIX)()(1l11
D .• I"
2.3 terminah'
1';"''"," "
(XKXXlOOO ,\\ I \\ \\
()()()()()()()() ,,1"(\\\\

()()()()(lIKlO , 1",,\\
OOOOO(lnO h"("(\"(\\

Machine Cltrck (old PSW 48.
~I.l< hm<

n~w

j
j

7

•

l'ompJl'h'
('Omplett"
l'omplett"
l't)mplet(·
lumpl.I.
('Omplt"h'
t'Omp)et("
l1Jmpletf"

PSW 112. I'rionly 1)

m.llfunclion ()(NXlIlIKN) nO(NXKNK)

Dt'\'il'(' ;uldn· ...... hit ...
Bi .... of R. and R. field of ... t
l'npn'dll tdhl("

7
7
7
7
i

13

I·ER\I~On CALL

Mule bits 0 - 7 refer to the system mask.
Muk bits 36 - 39 refer to the program mask.

tennin.ltl'

Bit
Name
Field

1

0

Byte

2

3

o 11 12 13 41 5 16 17 819110111112113114115 16117118119\20J21122F3 24125126J27l2812 9p~l31
o0 0 0
Command Address
Key
A

B

C

DESCRIPTION

NAME

FIELD
A

Protection Key

Bits 0 - 3 form the storage protection key for all commands associated with START I/O.
This key is matched with a storage key whenever data is placed in storage.
(Must contain zeros whenever storage protection is not implemented.)

B

Reserved

Bits 4 - 7 (Must contain zeros.)

C

Command Address

Bits 8- 31 Designates the location of the first CeN in main storage associated with the START I/O.
(The three low order bits, 29 - 31, must be zeros, specifying a CeN address on integral
boundaries of a double word.)

Figure 39.

Channel Address Word (CAW)

)

system Control Programs

103

.

f-1
0

,...>zj

.j:o

~

Ii

tj

0

CIl
CIl

'<

Ul

rI'

(1)

.

.j:o

0

n
::r

I

0

Byte
Bit

1

2

3

1

4

6

5

1

Name

Key

Field

A

o

0 0 0
B

-

Command Address

Status

Caunt

C

0

E

-- _ . -

m

§

0

n

....(1)

A

Protection Key

Bits 0 - 3 farm the storage protection key used in the chain of operations: 01 the subchannel.

CIl

B

Reserved

(Must be zeros.)

Ii
0

rI'

Ili

C

Command Address

Bits 8-31 farm an oddress that is eight higher than the oddre" of the I.. t CCW used. * Note

Ul

0

Status

Bits 32 -47 identify the conditions in the device and channel that caused the CSW to be stared.

;

....

i:I

rI'
I=l

NAME

FIELD

~

DESCRIPTION

Bits 32-39 are obtained over the I/O Interface and indicate conditions delecled by the device or the control unit.

0

11

Bits 40-47 are provided by the channel and indicote conditions associated with the subchannel •

Q.

......
(".)

CIl

Each slotus bit represents one type of condition .. follows:

~

'-"

DEVICE OR CONTROL UNIT
Bit Positian
32

E

Count

Deslgnaled Condition

CHANNEL/SUBCHANNEL
Bit ..... ition

Attention

40

Designated Condition
Program - Cantrolled Interrupt

33

Status Modifier

41

Incorrect Length

34

Control Un it End

42

Program Check

35

Busy

43

Protectian Check

36

Channel End

""

Channe I Data Check

37

Device End

4S

Channel Control Check

38

Unit Check

46

Interface Cantrol Check

39

Unit Exception

47

Chaining Check

Bits 48-63 form the residual count for the last 'CW used.

* Note: This address is !l2t 8 high ... on 0 command reject.

/~,

f\

1

7

0111213 415161 7 8191101"112113114115iI611711811912012112**41251261271281 29 13013 1 3213313413S136137138L3~401411421431""14*6147 4814915015115**4Issl56157158159160161162163

Status Bit
45

Status Condition
Channel control check

46

Interface control
check

38
42
43
44
47

Unit check
Program check
Protection check
Channel data check
Channel chaining check

32

Attention

Action
Enter wait state with
all interrupts masked
off.

Exit to unit check on
Chart 17 for error
recovery.
For attention from a 1052,
include attention task
in task selection and
take general exit (EXT03).
Attention interrupts
are ignored if:
1. System reallocation
or condense is in
operation.
2. Attention is not
from a 1052.

35

Device busy

Skip channel end test.

36

Channel end

See Chart FQ far
actions taken.
Attempts to reschedule the channel
(No attempt is made
for the multiplex
channel unless this
is a burst-multiplex
device).

37

Device end

34

Control unit end

See Chart FP for
actions taken.
Attempts to reschedule the channel
(If the ITKJltlplex
channel is being rescheduled, only the
device is rescheduled.
If the device on the
multiplex channel is
a burst-multiplex
device, both channel and
device are rescheduled).

33 and 35

Control unit busy

Figure q1.

Reset device ta
available. The status
is not tested unless
neither channel
end, device end, nor
control unit
end has·occurred.

CSW Testing in I/O Interrupt
Processor

)

System Control Programs

105

Displacement
from ERBLOC
in Decimal

Length
in bytes

-2

Description
Address of first error queue entry in table.
Address of retry ERP exit (EXRTy).
Address of ignore ERP exit (EXIGN).
Address of DISWHY (retry) ERP exit (EXWHY).
Address of the channel queue table (CHANQ).
Address of cancel ERP exit (EXCAN).
Address of last entry in error queue table.
Address of last entry queued to table (initially ERQUE-22).
Requestor I/o key (RIK).
Address of cancel attention exit (ATNCNL).
Address of attention dequeue exit (PUBDEQ).
Address of attention exit (EXT02).
A-transient phase name field ($$ANERRJ6')
Five 22 bytes error q.ueue entries.

2
2
2
2
2
2
2
2
2
2
2
2
8
5 x 22

o

2
4
6
8

10
12
14
16

18
20
22
30

Error Queue Entry (22 bytes)

CSW

(8 bytes)

o ---'-----l.~

8

Displacement
Within Pub
Table
(2 bytes)

Flag
Byte

--------'.~

Bit

o
1
2
3
4
5

6
7

"

Message
Number

Sense Data
(6 bytes)

Disk Seek Address
(4 bytes)

~12------~.... 18------~.~22

101-----1.... 11

Designation

(

Unused
Intervention requ ired
Passback*
Allow ignore
Reserved (DASD)
Allow retry
No CCB available
Unused

*Put on by device ERP when user wants
control returned to him on error.

Figure 42.

Error Recovery Block (ERBLOC)

PHYSICAL TRANSIENT PROGRAMS ($$A}--CHARTS
18 THROUGH 20

organization. The A-transients functions
within DOS are:

Physical transient programs are commonly
referred to as A-transients. These
infrequently used sections of the
supervisor reside in the core image library
and are fetched by the resident supervisor
(SVC 3) only when needed.
Each program
phase. name begins with the prefix
characters $$A. These phases are loaded
singly into the A-transient area. See
Figure 14 for Supervisor storage

1. Provide device-dependent Error Recovery
Procedures (ERP).

106

,DOS System Control

2. Issue messages associated with ERP
operations, Message Writer.
3. Process 1052 attention requests,
Physical Attention Routines.
Figure 43 illustrates each A-transient in

(

terms of phase name, function, and program
level chart identification.
ERP: To understand the error recovery
procedures detailed in the flowcharts, the
reader should be familiar with the sense
information that corresponds to the
individual I/O devices supported by this
system. The latter part of the Physical
Transient Programs section lists the
devices supported by ERP and also the sense
byte data associated with the device.
In
addition, a brief statement describing the
actual hRP is made. Detailed procedures
can be found in Appendix H (detailed
flowcharts) •

l

Note:

Figure 44 is omitted intentionally.

Figure 45 illustrates the unit record
equipment supported by'ERP ar.d also
indicates the sense bits associated with
each device.
CAUTION: Although the 2311 disk error
recovery procedures are not an A-transient
when the SYSTEM=DISK generation option is
selected, the sense data and action-taken
information is included here. The
inclusion of this material consolidates the
sense data in this section of the manual.
The 2311 disk ERP a~e part of the
supervisor nucleus. See Chart 17.

I

MESSAGE WRITER: The message writer is a
group of seven A-transients that build
error messages, issue the message, analyze
operator responses, and select the proper
exit.

Physical Attention Routines: The physical
attention routines are three A-transients
fetched by the supervisor when an attention
interrupt has been determined. The
attention key signals operator
communication with the system. If the
operator chooses to initiate a foreground
program or to use the nonresident attention
routine facilities, (other B-transients)
the physical attention transients get the
$$BATTNA root phase. If the operator is
satisfying an operator intervention
condition or canceling the job, the
physical attention transients process the
attention interrupt. when the physical
attention routines are processing the
interrupt, they perform parameter passing
by using a common area called the
interphase communications area. Figure 46

illustrates this area and its relationship
to the entire A-transient area.

Phase Name

Function

18

$$ANERRA
$$ANERRB

Program
Level
Chart ID

Error Recovery Monitor

18

$$ANERRC

18

$$ANERRD

18

"$$ANERRE

18
Tape (2400) Error Recove ry

$$ANERRF

18

$$ANERRL

18

$$ANERRG

18

$$ANERRH

18

$$ANERRI

Data Cell (2321 ) Error Recovery

18

$$ANERRJ

18

$$ANERRK

18

$$ANERRM

19

$$ANERRN

19

$$ANERRO

19
Messoge Writer

$$ANERRP

19

$$ANERRQ

19

$$ANERRR

19

$$ANERRU

18
Un it Record Error Recovery

$$ANERRV

18

$$ANERRX

Paper Tape Error Recovery

18

$$ANERR9

Optical Reader (1285) Error Recovery

18
20

$$ANERRZ
$$ANERRY

Physical Attention

20

$$ANERRO
$$ANERRI

Figure 43.

20

Modify Communications Region

None (See
Chart JY.)

A-Transient Programs

system Control Programs

107

504 - byte Physical Transient Area

Sense Bits
Device
0

I

2

3

1052

X

X

X

X

2501

X

X

X

2540R

X

X

2520P

X

2540P

X

4

5

X

X

X

X

X

X

X

X

X

X

X

X

7

X
X

The labels which are associated with these bytes are
as designated below. Byte A is the first byte of the
Physical Transient Area, Byte J is the last. Bytes B through
H constitute the interphase comllKJnications area; when phases
Z, Yond 0 are fetched or refetched, these bytes (B through H)
are not overlaid and remain with information for the other phases.
Byte

X

X

1442P

X

X

X

X

1442 RIP

X

X

X

X

X

X

2520 RIP

X

X

X

X

X

X

1403

X

X

X

X

X

1443

X

X

X

X

X

X

X

X

2671

6

A

X

Z
0

PARLTK
PARCOMM-I

C

IJBPARI+493
PARCOMM
IJBPAR2+493
PARCOMM2
PARCOMMC
PARCOMMD

X
F

R = reader
P= punch
D, E,

Phase
Y

B

X

X

label
IJBPARI
IJBPAR2
IJBPAR3

PARCOMMI
PARCOMMJ
PARCOMMC+3
PARCOMMD+3

Z

Z
Y

Z

Note: Bytes C, D and E
are used to indicate the
program(s} FI, F2 or BG, to be
canceled.
Bytes F, G and H
indicate the programs
which use devices which
require operator intervention.
Byte B indicates if a
canceled program has
fetched a logical transient.

Y

Z
Y

Addressed by incrementing or decrementing one of these labels.

G,H

Figure 45.

Unit Record Devices Supported
by Device Error Recovery

Figure 46.

Interface Communication Area
(For Physical Transient Phases
$$ANERRZ, $$ANERRY, and
$$ANERRO)

I/O ERROR RECOVERY PROCEDURES AND SENSE
DATA
2400 Tape Error Recovery
CSW Bit 44--Channel Data Check
Action: Initial Selection--eight retries
without respositioning. Read data
transfer--no retries. Write data
transfer--eight retries with
repositioning. After stated number of
retries, take eguiprnent error exit
(cancel) •
Message:

OP28 CHAN DTCHK.

Byte 0, Bit 2--Bus Out Check
Action: If retry count is greater than
seven (eight retries), take equipment
error exit (cancel). If initial
selection, take retry exit. Otherwise,
perform repositioning and take retry
exit.
Message: OP09 BUSOUT CHK.
108

DOS System Control

Byte 0, Bit 3--Equipment Check
Action: Take equipment error exit
(cancel> •
Message: OP10 EQUIP CHK.
Byte 0, Bit 1--Intervention Required
Action: Check for Rewind and Unload
(intprvention required at device end).
If yes, take continue exit; otherwise,
take operator intervention exit.
Message: OP08 INTERV REQ.
Byte 0, Bit 5 Overrun
Action: Allow eight retries,
repositioning the tape. After eight
retries, take equipment error exit
(cancel).

Message: OP14 OVERRUN.
Byte 0, Bit 4 - Data Check
Action: 1. Read Commands--CCB option.
If the record length is less

(

than twelve and Byte 1, Bit 0
(noise) is off, take retry
exit. Otherwise, retry 100
times with repositioning
(back space/forward space)
performing CRC correction.
Perform tape cleaning every
eight retries. Tape cleaning
consists of five backspaces
and four forward spaces. For
a read backward, tape
cleaning is done by five
forward spaces and four
backspaces. Detection of
load-point causes termination
of the backspacing sequence.
After 100 retries, take
equipment error exit (cancel,
ignore).
2. Write and WTM
Commands--Backspace erase and
retry fifteen times, then
take equipment error exit
(cancel). For write
commands, if unit exception
is present in the CSW, post
it to the CCB (Byte 4, Bit
7).
3. Erase Gap Commands--After
fifteen retries, without
repositioning take equipment
error exit (cancel).

Action: Allow eight retries,
repositioning the tape. After eight
retries, take equipment error exit
(cancel).
Message: OP14 OVERRUN
Note: If an I/O error occurs during tape
repositioning (other than backspace into
Load Point on tape cleaning), equipment
error exit (cancel) is taken with the
message: OP20 ERR ON REC (Error During
Recovery).
To achieve data check error recovery on
write tape mark and erase gap commands,
they must be command-chained to a no-op
because the command code is not available
for analysis when the error occurs (device
end).
1052 Error Recovery
CSW Bit 44--Channel Data Check
Action: One retry, equipment error exit
(cancel, retry, ignore).
Message: OP28 CHAN DTCHK.
Byte 0, Bit 3--Equipment Check
Action: One retry, equipment error exit
(cancel, retry, ignore).
Message: OP10 EQUIP CHK.

Message: OP11 DATA CHECK.
Byte 0, Bit 7--Data Converter Check
Action: Take equipment error exit
(cancel).

Byte 0, Bit 1--Intervention Required
Action: Execute audible alarm command and
take operator intervention exit.
Message: OP08 INTERV REQ.

Message: OP30 CONVRT CHK.
Byte 0, Bit O--Command Reject
Action: Take program check exit.

Byte 0, Bit 2--Bus Out Check
Action: One retry, equipment error exit
(cancel, retry, ignore).
Message: OP09 BUSOUT CHK.

Message: OP18 COMM REJCT
Byte 1, Bit 4--Load Point and Byte 3, Bit
6-Backward status
Action: Take program check exit.
Message: OP29 BK INTO LP (Backward
Command into Load Point).
Byte 1, Bit 7--Not Compatible
Action: Issue a rewind and unload command
to the unit and then take operator
intervention exit.

Byte 0, Bit 0 - Command Reject
Action: Take program check exit.
Message: OP18 COMM REJCT.
1403-1443 Error Recovery
CSW Bit 44--Channel Data Check
Action: If initial selection, one
retry--take equipment error exit (initial
selection: cancel, retry; channel end:
cancel, retry, ignore).
Message: OP28 CHAN DTCHK.

Message: OP32 NOT COMPAT.
CSW Bit 47--Chaining Check

Byte 0, Bit 3--Equipment Check
Action: Take equipment error exit
(cancel, ignore).
system Control Programs

109

Message: OP10 EQUIP CHK.
Byte 0, Bit 5--Code General storage Parity
Error (1403 only)
Action: Take equipment error exit
(cancel). UCS buffer must be reloaded.

Message: OP08 INTERV REQ.
Byte 0, Bit 2--Bus Out Check
Action: If initial selection, do one
retry; then take equipment error exit
(cancel, retry).
If data transfer, take
operator intervention exit.

Message: OP33 UCB PARITY.
Message:
Byte 0, Bit 1--Intervention Required
Action: Take operator intervention exit.

OP09 BUSOUT CHK.

Byte 0, Bit 4--Data Check
Action: Take operator intervention exit.

Message: OP08 INTERV REQ.
Message: OP11 DATA CHECK.
Byte 0, Bit 2--Bus Out Check
Action: If initial selection, one retry;
otherwise, take equipment error exit.
(Initial selection: cancel, retry;
cha nnel end: ca ncel, retry, ignore).

Byte 0, Bit 5--0verrun
Action: Take operator intervention exit.
Message: OP14 OVERRUN.

Message: OP09 BUSOUT CHK.
Byte 0, Bit O--Command Reject
Action: Take program check exit.
Byte 0, Bit 7--Channel 9
Action: Post CCB, take continue exit.
Note: This test is main storage resident.

Message: OP18 COMM REJCT.

csw

Bit 47--Chaining Check
Action: Take operator intervention exit.

Byte 0, Bit O--Command Reject
Action: If command code is UCS enable or
inhibIt data check, take continue exit;
otherwise, take program check exit. This
procedure allows UCS-oriented programs to
operate on non-UCS hardware.
Message: OP18 COMM REJCT.

Byte 0, Bit 4--Data Check (1403 Only)
Action: Take equipment error exit
(cancel, ignore).

Message: OP14 OVERRUN.
2501, 2520, 2540 Error Recovery
CSW Bit 44--Channel Data Check
Action: If initial selection, one retry;
then equipment error exit (cancel,
retry). If read data transfer, take
operator intervention exit.
If punch
data transfer, one retry; then equipment
error exit (cancel, retry).
Message: OP28 CHAN

DTCHK~

Message: OP11 DATA CHECK.
1442 Error RecoveEY
CSW Bit 44--Channel Data Check
Action: If initial selection, one retry;
then equipment error exit (cancel,
retry).
If data transfer, take operator
intervention exit.

Byte 0, Bit 3--Equipment Check
Action: Reader-- Take operator
intervention exit. PUnch--CCB option.
Take equipment error exit (cancel,
ignore). For 2520, Byte 0, Bit 7
indicates punch check.
Message: OP10 EQUIP CHK.

Message: OP28 CHAN DTCHK.
Byte 0, Bit 3--Equipment Check
Action: Take operator intervention exit.

Byte 0, Bit l--Intervention Required
Action: Take operator intervention exit.
Message: OP08 INTERV REQ.

Message: OP10 EQUIP CHK.
Byte 0, Bit 1--Intervention Required
Action: Take operator intervention exit.
110

DOS System Control

Byte 0, Bit 2--Bus Out Check
Action: Do one retry; then take equipment
error exit (cancel, retry).
If the

(

device is a 2520, do not retry if this is
not initial selection (cancel, retry).

take equipment error exit (cancel,
retry).

Message: OP09 BUSOUT CHK.

Message: OP09 BUSOUT CHK.

Byte 0, Bit 4--Data Check (Can not occur on
a 2520 punch)
Action: Take operator intervention exit.
Message: OPll DATA CHECK.
Byte 0, Bit 5--0verrun (Cannot occur on
2540 or 2520 punch)
Action: Take operator intervention exit.
Message: OP14 OVERRUN.
Byte 0, Bit O--Command Reject
Action: Take program check exit.
Message: OP18 COMM REJCT.
Byte 0, Bit 6--Unusual Command Sequence
(2540 read only)
Action: Post CCB--take continue exit.
CSW Bit 47--Chaining Check (2501, 2520 read
only)
Action: Take operator intervention exit.
Message: OP14 OVERRUN.
2671 Error Recovery
CSW Bit 44--Channel Data Check
Action:
If initial selection, do one
retry. Take equipment error exit
(cancel) .
Message: OP28 CHAN DTCHK.
Byte 0, Bit 3--Equipment Check
Action: Test CCB for ignore option (byte
2, bit 4) and if on, turn on byte 3, bit
1 of the CCB and take equipment error
exit (cancel, ignore, retry). Otherwise,
take operator intervention exit. See
Note 2.
Message: OPiO EQUIP CHK.
Byte 0, Bit i--Intervention Required
Action: Take operator intervention exit.
Message: OP08 INTERV REQ.

)
Byte 0, Bit 2 - Bus Out Check
Action: Do one retry; if error persists,

Byte 0, Bit 4--Data Check
Action: Test CCB for ignore option {byte
2, bit 4} and if on, turn on byte 3, bit
3 of the CCB and take equipment error
exit (cancel, ignore, retry). Otherwise,
take operator intervention exit. See
Note 1.
Message: OP11 DATA CHECK.
Byte 0, Bit O--Command Reject
Action: Take program check exit.
Message: OP18 COMM REJCT.
Note: A record may not be partly on one
tape and partly on another.
Note 1: When a data check occurs, the
user's Ccw is modified by the error routine
to allow rereading of the last character.
The data address will be the last character
read (character in error) and the byte
count is decreased by the number of valid
characters read. If the CCB ignore option
is chosen and the operator responds ignore,
the I/O operation is dequeued and posted
with the disaster-error bit on (CCB byte 2,
bit 2) and 2671 data-check bit on (CCB byte
3, bit 3).
To read the rest of the record, the
problem program (logical IOCS) should add
one to the CCW data address and subtract
one from the nyte count to adjust for not
rereading the bad character and then
reissue the EXCP. The operator must
backspace the tape two characters for retry
(option retry or on the A-type message when
ignore is not allowed). If the operator
chooses the ignore option (the character in
error is not to be reread), he must
backspace the tape one character if the
load key was pressed to free the tape or if
the character preceding the character under
the read head is an EOR (End-of-Record).
Otherwise, no manual intervention is
required for the ignore option. The ignore
option is available to the operator
whenever the user specifies any of the
DTFPT ERROPT entry options.
Note 2: When an equipment check occurs, the
operator must reposition the paper tape to
the beginning of the record in error to
perform the retry operation. The device
must not be readied until this
repositioning has been performed.
If the
ignore option is available to the operator,
he can exercise this option by
repositioning the tape to the beginning of
System Control Programs

111

the next record on the tape and then
responding ignore on the 1052 keyboard.
The ignore option is available to the
operator whenever the user specifies any of
the DTFPT ERROPT entry options.
2311 DASD Error Recovery
CSW Bit 44--Channel Data Check
Action: One retry; then equipment error
exit (cancel, retry).
Message: OP28 CHAN DTCHK.
Byte 0, Bit 3 - Equipment Check
Action: Take equipment error exit
(cancel, retry).

otherwise, take retry exit. After nine
retries, post data check on count to CCB"
if present; otherwise, post data check.
If command code is verify" post verify
error to CCB.
Messages: OP12 VERIFY CHK (Data Check on
Verify Command).
OP1! DATA CHECK (Data Check/not Data
Check on Count or Verify).
OP16 DTA CHK CT (Data Check on Count).
Byte 0, Bit 5--0verrun
Action: If retry count is greater than
nine, take equipment error exit (cancel,
retry); otherwise, take retry exit.

Message: OP10 EQUIP CHK.
Message: OP14 OVERRUN.
Byte 1, Bit 4 - No Record Found*
Action: Test for Byte 1, Bit 6 (Missing
Address Marker). If present, execute
restore command and take retry exit.
After ten retries, take equipment error
~xit (cancel, retry).
If not present,
read Home Address and compare to user's
seek Address. If equal, post No Record
Found to the CCB and take continue exit.
If not equal, treat as a Seek Check.
Messages: OP21 NRF - MADDMK (No Record
Found/Missing Address Marker)
OP1S SEEK CHECK (Home Address unequal to
Seek Address)
Byte 0, Bit 7--Seek Check
Action: If Byte 0, Bit 0 (command reject)
is on, take program check exit.
Otherwise, execute restore command and
take retry exit. After ten retries, take
equipment error exit (cancel, retry).
Messages: OP26 INVAL SEEK (Seek
Check/Command Reject) OP15 SEEK CHECK.
Byte 0, Bit 1--Intervention Required
Action: Take operator intervention exit.
Message: OP08 INTERV REQ.
Byte 0, Bit 2--BUS out Check
Action: If retry count greater than nine,
take equipment error exit (cancel,
retry); otherwise, take retry exit.
Message: OP09 BUSOUT CHK.
Byte 0, Bit 4 - Data Check*
Action: CCB options (all data checks,
data check on read or verify). If retry
count is greater than nine, take
equipment error exit (cancel, retry);
112

DOS System Control

Byte 1" Bit 6 - Missing Address Markers*
Action: If retry count is greater than
nine, take equipment error exit (cancel,
retry); otherwise, take retry exit,.
Message: OP13 ADDR MRKER.
Byte 0, Bit 0 - Command Reject
Action: Check for Byte 1" Bit 5 (File
Protect); in either case" take program
check exit.

(
\

Messages: OP18 COMM REJCT.
OP17 FILE PROT.
Byte 0, Bit 6--Track Condition Check
Action: 1. Read Home Address and RO in
the error recovery routine and
move CCHH from RO to Seek
command ,executed below.
2. If alternate track: update
seek address to the next
track address. If the track
address equals 10, treat it
as End of Cylinder;
otherwise, proceed to step 3.
3. Set up the channel program:
Seek, Read Home Address (with
skip bit on), TIC to CSW
address minus eight. Execute
this channel program in error
recovery. At channel end,
exit to channel scheduler csw
processing routine. If DASD
file protection is present,
set the appropriate file mask
following Seek.
Byte 1, Bit 1--Track Overrun
Action: Post track overrun to
the CCB and take continue exit.

(

Byte 1, Bit 2--End of Cylinder
Action: Post End of Cylinder to
the CCB and take continue exit.
Byte 1, Bit 5--File Protect
Action: Take program check exit.

4.

If retry count is equal to
15, take equipment error
exit (cancel, retry).
Otherwise, go to step 5.

5.

Increment retry count and
take retry exit.

6.

Issue a Read RO and compare
CCH to user's Seek Address.
If equal, post No Record
Found to the CCB and take
continue exit. Otherwise,
go to routine for Seek Check
(alone) •

Message: OP17 FILE PROT.
CSW Bit 47--Chaining Check
Action: If retry count is
greater than nine, take
equipment error exit (cancel,
retry); otherwise, take retry
exit.
Message: OP14 OVERRUN.
*For these errors, Home Address is read and
the track address is provided for the error
message. For other errors, the track
address is obtained from the user seek
address if error occurs during channel
program execution.
Note: If the 2311 error routine gets an
error while trying to execute a Restore
command or Read Home Address or RO,
equipment error exit is taken with retry
and cancel options with the message: OP20
ERR ON REC (Error During Recovery).
2321 DASD Error Recovery
CSW Bit 44--Channel Data Check
Action: One retry; then
equipment error exit (cancel,
retry).
Message: OP28 CHAN DTCHK.
Byte 0, Bit 3--Equipment Check
Action: Take equipment error
exit (cancel, retry).

Messages: OP15 SEEK CHECK (No
Record Found/RO unequal to
Seek Address).
OP23, BLNK STRIP (Step 3, cannot
read Home Address).
OP21 NRF - MADDMK (Step 4, 15
retries).
Byte 0, Bit 7--Seek Check
Action: If Byte 0, Bit 0 (command
reject) is present, take program
check exit. If Byte 1, Bit 6
(missing Address Markers) is
present, take operator
intervention exit. Otherwise.,
issue a Seek to BB1111, a Seek to
BB2222, and take retry exit.
After ten retries, take equipment
error exit (cancel, retry).
Messages: OP26 INVAL SEEK (Seek
Check/Command Reject).
OP22 BALST CELL (Seek Check/Missing
Address Markers).
OP15 SEEK CHECK (Seek Check alone).

Message: OP10 EQUIP CHK.
Byte 1, Bit 4--No Record Found
Action: 1. If Byte 1, Bit 6 (missing
Address Markers) is present,
go to step 2. otherwise, go
to step 6.
2.

If retry count is less than
3, issue a Restore command
and go to step 5.

3.

If retry count is equal to
3, issue a Read Home Address
to the first and last tracks
of the cylinder. If neither
is successful (unit checks),
take equipment error exit
(cancel, retry). Otherwise,
go to step 4.

Byte 0, Bit 1--Intervention Required
Action: Take operator intervention exit.
Message: OP08 INTERV REQ.
Byte 0, Bit 2--Bus Out Check
Action: Take retry exit. After 15
retries, take equipment error exit
(cancel, retry).
Message: OP09 BUSOUT CHK.

)

Byte 0, Bit 4--Data Check ••
Action: 1. If retry count is less than
eight., go to step 5.
2.

If retry count is equal to
System Control Programs

113

226, take equipment error
exit (cancel, retry).

3.

If retry count is an even
number, issue a Seek to
X-X-X-4-19 (last track of
strip) and a Seek to
x-x-x-o-o (first track of
strip). Perform this
operation eight times. Then
proceed to step 4.

4.

If retry count is any
multiple of 32 (32, 64, 96,
), issue a Seek to
next lower strip.
(If this
is the lowest strip - 00000
- seek the next higher
strip.) Proceed to step 5.

5.

Increment retry count and
take retry exit.

Messages: OP11 DATA CHECK (Data Check/not
Data Check on Count or Verify).

2.

If alternate track: Update
Seek Address to the next
track address.
If track
address equals 20, treat it
as End of Cylinder;
otherwise, proceed to step
3.

3.

Set up the channel program:
Seek, Read Home Address
(with skip bit on), TIC to
CSW command address minus
eight (last CCW executed).
Execute this channel program
in error recovery. At
channel end, exit to channel
scheduler CSW processing
routine. If DASD file
protection is present, set
file mask (inhibit long
Seeks) following the seek.

Byte 1, Bit 1--Track Overrun
Action: Post track overrun to the CCB and
take continue exit.

OP12 VERIFY CHK (Data Check on Verify
Command).
OP16 DTA CHK cr (Data Check on Count).
Byte 0, Bit 5--0verrun
Action: Take retry exit. After 15
retries, take equipment error exit
(cancel, retry).
Message: OP14 OVERRUN.

(
Byte 1, Bit 2--End of Cylinder
Action: Post End of Cylinder to the CCB
and take continue exit.

Byte 1, Bit 5--File Protect
Action: Take program check exit.
Message: OP17 FILE PROT.

Byte 1, Bit 6--Missing Address Markers**
Action: Perform action indicated under
Data Check just described.
Message: OP13 ADDR MRKER.
Byte 0, Bit O--Command Reject
Action: Check for Byte 1, Bit 5 (file
protect); in either case, take program
check exit.
Messages: OP17 FILE PROT (Command
Reject/File Protect).
OP18 COMM REJCT (Command Reject alone).
Byte 0, Bit 6--Track Condition Check
Action: 1. Read Home Address and RO and
move CCHH from RO to Seek
command executed CCHH from
RO to Seek command executed
below.
114

DOS System Control

CSW Bit 47--Chaining Check
Action: Take retry exit. After 15
retries, take equipment error exit
(cancel, retry).
Message:

OP14 OVERRUN.

Note: If the 2321 Error Routine gets an
error while trying to execute a Restore
command, a Seek command (data-check
procedure), or a Read Home Address or a
Read RO, equipment error exit is taken with
retry and cancel options with the message:
OP20 ERR ON REC (Error During Recovery).
**For these errors, Home Address is read
and the track address is provided for the
error message. For other conditions, the
track address is obtained from the user's
initial Seek address if the error occurs
during channel program execution.

(

1285 Optical Reader
CSW Bit 44--Channel Data Check
Action: One retry; then take equipment
error exit (retry, cancel).
Message:

Message:

Byte 0, Bit 4--Data Check
Action: Post Byte 3, Bit 0, of CCB and
take continue exit.
(See Note.)

OP28 CHAN DTCHK.

Byte 0, Bit 3--Equipment Check
Action: Post Byte 3, of CCB and then
continue exit.
(See Note.)
Byte 0, Bit 1--Intervention Kequired
Action: Test for Byte 1, Bit 6
(Non-recovery)--if present, post Byte 3,
Bit 4 of the CCB. This indicates that
the error is passed back to the problem
program. Exit via equipment error.
Message: OP35 NON RECOV.
If Byte 0, Bit
6 is not present, take operator
intervention exit.

Byte 0, Bit 5--0verrun
Action: Four retries; then equipment
error exit (retry, cancel).
Message:

OP14 OVERRUN.

Byte 0, Bit O--Command Reject
Action: Take program check exit.
Message:

OP18 COMM REJCT.

CSW Bit 47--Chaining Check
Action: Four retries; then equipment
error exit (retry, cancel).
Message:

Nessaqe:

OP09 BUSOUT CHK.

OP14 OVERRUN.

OP08 INTE.RV REQ.

Byte 0, Bit 6--Nonrecovery
Action: Post Byte 3, Bit 4, of CCB and
take continue exit.
Byte 0, Bit 2--Busout Check
Action: One retry; then equipment error
exit (retry, cancel).

Byte 0, Bit 7--Keyboard Correction
Action: Post Byte 3, Bit 1, of CCB and
take continue exit.
Note: Data Check and Equipment Check,
which indicate unreadable character and
unreadable line, respectively, are retried
by Logical IOCS in an attempt to correct
the error.

System Control Programs

115

C art FA

GENERAL ENTRY
Obiectives:
1. Store the old PSW address for this interrupt in General Exit (EXTOl).
2. Establish address of the PIB for the task that has been interrupted
using the PlK. PIK equals the key of the last task selected on
genera I ex it.
3. For interrupted background for foreground programs, general
registers I to a are stared in their respective save area.
The address of this save area is specified by the PIB.
4. For interrupted supervisor or quiesce I/O tasks the respective
PIB status flog is set to X'a5' (task is made active).

EXIT TO INTERRUPT PROCESSOR

--------------jf--------------,

•

Supervisor call interrupt

•

I/O i n t e r r u p t - - - - - - - - - - - - - - - - - f - - - - - - - - - - - - ,

•

Program check interrupt -------------I--------~

•

External interrupt

*14-A
15-A
16-A

LPSW

EXTOl, EXT02, EXT03
Chart FD
GENERAL EXIT (TASK SELECTION)
There are 3 general exits:
• EXTOl
• EXT02
• EXT03
EXTOl: Direct return to the interrupted task or program.
EXT02: Task selection; determine which task or program should run next. Task selection
is performed because the next task may be other than a return to the interrupted program
or task.
The PIB status flog (byte 0) indicates the task or program is:
1. Ready to run (unbound)
2. Waiting for I/O to complete or a time interval to elapse (SVC 7 baund).
3. Waiting for the B-transient area to become available (SVC 2 baund).
4. In control of the system (seized by a SVC 22).
5. Detached from the system (Foreground programs and attention task. only).
Priority is determiend by the sequence of the PIB's. Task selection selects the highest
priority task or program that is:
1. Unbound, or
2. SVC 2 bound but the B-transient area is na longer in use.
CAUTION: A program, or task, that has seized the system by issuing a SVC 22 will be
selected aver all other programs or tasks except special supervisor tasks (Supervisor and
Q.oiesce 1/0).
Refer to Figure 33 for task selection procedure. Refer to Figure 22 for the format of
the PIB tables.
The following toble of tasks tested during task selection are in priority sequence.
The PIK in the communications region is set to the PIB displacement for the task or
program selected. The exit from the General Exit routine, after a task is selected, is shown
in the table •
..-.---.--1.
task;
to_
.the_point
where
was
2. Supervisor
Q.oiesce I/O
taskreturn
__
__
_ _Supervisor
____
_interrupted.
_ _ _ _ _ _ _ _ _ _.....1

.r---------4- 3.

Attention task
Foreground 1 program - - - - - . ,
Foreground 2 program
Background program _ _ _ _ _ _.l....._ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _-I...J
All Baund (no task or program is ready to run); load external old PSW and enter wait
state with all interrupts masked on.
EXT03: This exit insures that the old PSWand registers are stored before task selection.
Task selection is performed the same as for EXT02. (See EXT02.J
Considerations for Supervisor Generated Without MPS: Task selection functions are the
same as with MPS option except the foreground program and all bound PIB's are nat included.

4.
5.
6.
ATNRTN ...------+-7.

LPSW
Wait State

Chart 12.

116

------1

Supervisor General Entry. General Exit, and Processor Exit

DOS System Control

(

ATNRTN
RESIDENT ATTENTION ROUTINE

Chart GX

1052 Attention Key: v",en an attention request is
made, the attention PIB status is changed to active.
First the physiC'll attention transient program
($$ANERRZ) is fetched. v",en the attention PIB
is next selected, the logical attention transient
program ($$BATTNA) is fetched. After the logical
attention transient program releases control, the
attention PIB status is changed to inactive. In a
batch job only system (BJS), the attention routine
runs attached to the problem program.
External Interrupt Key: Same actions as for the
1052 attention key above except that the physical
attention transient program ($$ANERRZ) is not
fetched.
Timer Interrupt Waiting: Refer to the CAUTION in
the timer interrupt routine on Chart 16. The program switch at ITBRC being set, returns to the
timer interrupt routine because timer interrupt

processing has not yet been completed.

EXTERNAL

Fetch $$BATTNA
Chart 21

$$ANERRZ

Chart 13.

Resident Attention Routine

system Control Programs

117

SVC INTERRUPT
12
E

ENTSVC
SVC INTERRUPT PROCESSOR
Objective: Branch to the
routine for processing the

B

Chart GH

requested supervisor call.

The SVC code is used to
index a table of SVC routine
addresses. The figure at 'E4
on Chart GH contains the label
and chart locations for all
supervisor calls. The task is
canceled (ERR21) if an SVC code
greater than 26 is issued. Detailed explanations for each
supervisor call can be found in
the preceding discussion of the
Supervisor Program.

SVC 0 - Execute Channel Program.
SVC 1 - Fetch problem program phase. -------+---I~
SVC 2 - Fetch B-Transient. ------------J-~
SVC 3 - Fetch or return from on A-Transient. -----+-~
SVC 4 - Load any phase. -------------+-~
SVC 5 - Modify communications region. -------I--~
~
....c----t---f- SVC 6 - Cancel.
SVC 7 - Wait.
SVC 8 - Transfer to user from B-Transient.
SVC 9 - Return to B-Transient after SVC 8.
SVC 10 - Set Timer Interval.
SVC 11 - Return from B-Trans;~nt.
SVC 12 - Reset 2nd Job Control switch.
SVC 13 - Set 2nd Job Control switch.
14--+---1- SVC 14 - EO).
~
SVC 15 - EXCP(lgnored if CHANO full).
SVC 16 - Store users PC exit.
SVC 17 - Return from users PC routine.
SVC 18 - Store user> IT exit.
SVC 19 - Return from users IT routine.
SVC 20 - Store user> OC exit.
SVC 21 - Return from users OC routine.
+SVC 22 - Seize or Release the system.
SVC 23 - Load Phase header. ----------+-'~
SVC 24 - Store users TECB address and set timer interval.
SVC 25 and SVC 27 - Holt I/O on TiP device.
'SVC 26 - Validate address limits.
+MPS only - ignored in BJS.
'Ignored in BJS without S P.

15
B
CHANNEL
SCHEDULER

ERR10
ERR20-27
ERR30-33
Charts FB to FC
GENERAL CANCEL
Refer to Figure 34 for a table of cancel
codes used by the Supervisor program.
Objectives of General Cancel are:
I. Calculate the cancel code.
2. Post the cancel code to the canceled program's PIB.
See Note 1.
3. Release the logical transient (B- transient) area, if
it is in use by the canceled program. See Note 2.
4. Logical I/O cancels store the canceled
programs register> and exit to I/O
Interrupt to: (I) dequeue the CHANO
entry, (2) attempt to re - schedule the
channel, and (3) take general exit,
EXT02. Other cancels take general exit,
EXT02. The next time the program to be
canceled is selected on general exit,
$$BEOJ will be fetched to cancel the program.
Note I: The PIOCS error rautines post the
cancel code to the canceled program's PIB.
Entry to general cancel for these cancels
are at label ERRSET.
Note 2: Bit X'80' of the cancel code is set
~he canceled program is using the B- transient area.

FCHRTI
FCHRT2
FETCH SUBROUTINE
OPTION
CHARTS
Objectives:
MPS
GA-G(
I. Load a problem program BATCH ONLvT GD-GF
phase or transient pragram from the core
image librory of SYSRES to main storage.
2. Supply the load address for a phase from the core
image directory entry (SVC 23). The sequence of
events to load a phase are:
a. Determine the disk address of the sub - directory
where a scan of directory entries is to begin.
• $$B - LlOCS open sub- directory
• $$ - Transient sub-directory
• $ - Library routine sub- directory
• FGP - Foregrourod program sub- directory
• Other - Problem program sub- directory
b. Scan the directory entries until a match is made
to the user phase name.
Note: The physical transient area (PTA) is used
as an I/O area for directory blocks, referenced
by a DSECT, with 8 leading bytes for the name
of the phose called and room for 1820- byte
directory entries (I block).
c. Relocate the L/E entry address if an overriding
load address has been specified. The phose
entry address is possed to the user via register 1.
d. Load the phase into ma in storage.
e. For a bockground phose, store the end address of
the phose in the communications region, displacement 36.
See Figure 6 for the format of phase directory entries and
Figure 7 for the format of the core image library entry.

I

+
W

GENERAL
EXIT

Chart 14.

118

SVC Interrupt Processor. General Cancel. and Fetch

DOS System Control

(

I/o INTERRUPT
*12-D
17-D
SVCI5, SVCOO

INTRTN
I/o INTERRUPT PROCESSOR

Charts FN to FS

I/o interrupts ore caused by termination of an I/o operation or
operator intervention on the I/o device. Each I/o interrupt is
processed in this manner:
1. Find PUB for the device that causes the I/o interrupt. The device
last started is tested first. If the device that caused the I/o interrupt is not found, an attempt is made to re-schedule the channel.
See Note 1.
2. Exit to the channel appendage routine if !ill of the following
conditions exist:
a. Supervisor has been generated with tele-processing option
(TP=BTAM).
b. The device causing the I/o interrupt has I/o pending (CHANQ
pointer is not X' FF').
c. The user has specified an appendage routine address in the CCB.
d. The program has a flag on in its PIB indicating an appendage
routine address in the CCB is allowed.
3. Evaluate CSW. Refer to Figure 41 for CSW testing on an I/o
interrupt.
4. If status is attention from a 1052 the attention routine PIB flag is
posted to include the attention routine in task selection and
general exit, EXT03, is taken.
5. If the device status indicates thot the channel program has been
succ'essfully completed:
a. Post traffic bit in the CCB.
b. Dequeue the CHANQ entry if device end posting was not
requested. (See Figure 21 for format of the CHANQ table).
c. Exit to START I/O if there is more I/o pending on this
device. If not, attempt to re-schedule the channel. See
Note 1.
Notel: Re-schedule the channel, with MPS: The PUB's in the
channel list are scanned, beginning with the PUB following the last
one started, and the first one with I/o pending will be the next PUB
started. If the end of the channel list is reached, the scan continues
from the first PUB in the channel list. If no I/O is pending in the
channei go to the general exit routine.
This method is used to insure the sharing of the channel between
programs when operating in multi-programming and is referred to as
a rotating PUB scan.
Re-schedule the channel, batch only: Same as with MPS except the
channel list is alwoys scanned beginning with the first PUB in the
channel list (FOCl).

CHANNEL SCHEDULER

Charts FF to FH

SVC 0 and SVC 15: The objective of the channel scheduler is to build
an entry for the channel program in the CHANQ, lUBID, and REQID
tables. Refer to Figure 35 for a sample of a device queue in the CHANQ
table. Refer to Figure 21 for the format of the CHANQ, lUBID, and
REQID tables. Refer to Figure 36 for the format of the CCB (channel
command block).
Communications and status bytes 2 through 6 of the CCB are reset
before making the CHANQ entry.
Exit from channel scheduler is to START I/O if:
1. This I/O request for the device is the first in queue (CHANQ pointer
in the PUB contained the null code, X' FF') and
2. This device is not busy (busy flag in the PUB ~eset).
If the above conditions are not met, general exit, EXTOl, is taken.

YES

NO
GIOADR
ACTUAL I/o

OPTIONS

CHARTS

System I/O Fi Ies

MINIMUM

FJ

Assigned to a 2311:

MAXIMUM

FK-FM

SYSI PT, SYSRDR, SYSPCH, and SYSLST are System I/o files. Before
a start I/o is issued to these files, the search address in the user CCW
chain is checked against the current address in the DIB. Refer to
Figure 23 for the format of the DIB tables.
DASD File Protect: Extent information must be present in the JIB's
for all files assigned to a 2311 or 2321 (data cell) except system
I/O files assigned to a 2311 and SYSRES.Any access to DASD
file must fall within the extents specified in the JIB's. Refer
to figure 24 for the format of the JIB's.
Start I/O: If the device is burst-multiplex, but the channel is
presently operating in burst-multiplex mode, take general exit,
EXTOl. An SIO command is issued to start the device, if the
channel is available. The alternate channel is tested if the
device is switchable. Before using the SIO command, the correct
CCW address must be set in the CAW.
1. For 7-track tape, CAW; set mode CCW.
2. For SYSLOG, CAW; Prefix ID CCW.
3. For DASD file protected devices, CAW equals CCW-chain in
the supervisor, which TIC's to the user's chain.
4. For all others, CAW; CCW specified by CCB.
If the device receives a normal start (condition code 8 set on SIO)
post the device busy flag in the PUB and take general exit, EXTOl •

12

A

GENERAL EXIT

)

Chart 15.

I/O Interrupt Processor and Channel Scheduler

System Control Programs

119

PROGRAM CHECK INTERRUPT
ENTPCK
PROGRAM CHECK INTERRUPT
The program is canceled
(ERR20) ifi
I. Supervisor was generated
without user PC routine
option.
2. The user has not
previously supplied the
address of a PC routine
by issuing a STXIT PC

EXTERNAL INTERRUPT KEY

PROCESSOR
OPTION

CHARTS

NO PC RTN

FB

PC, NO IT,
OC, OR SP

GQ

PC WITH IT,
OC, OR SP

GR

macro.

3. The user has specified an invalid save area.
4. The program check occurs while a B-Transient is in
operation.
5. The progrllm check occurs while the user's PC routine is
in operation (routine in use).
To exit to the user's PC routine:
I. Save the PC old PSWand problem program general
registers in the user-supplied save area (72 bytes).
2. Store the address of the user PC routine in the PC
old PSW.
3. Branch to general exit (EXT03).
The user's PC routine will be executed when this
task is selected in the general exit routine. Return from
the user's PC routine must be with an EXIT PC macro.
See Figure 25 for PC option tables.

YES

GENERAL CANCEL
EXTERNAL INTERRUPT

120

Program Check and Internal Interrupt Routines

DOS System Control

CHART

EXTERNAL INTERRUPT, TIMER OPTION
CHART
The timer (SYSTIMER) is
NO
IT
FE
reset to its maximum value
OROC
(X' FFFFFFFF ') and the
system time of day (SYSTOD)
WITH IT
is updated to the time that
GS
the next timer interrupt will
L.0_R_O_C
_ _....L_ _ _ _--1
occur (current time + 15.5
hours).
Note: Current time of day is calculated by subtracting the
remaining interval (SYSTIMER) from SYSTOD.
The timer interrupt is ignored if:
I. Supervisor was generated without interval timer feature
option.
2. The timer supported program has been canceled.
3. The timer interrupt occurred while the user's IT routine
was in operation (routine in use).
With User TECB Address: The traffic bit is posted in the
user's TECB (timer event control block) and the timer supported program is included in task selection. The TECB
address is cleared in the IT option table.
With User IT Routine: To exit to the user's IT routine:
I. Save the external old PSWand timer-supported-program
registers in the user-supplied save area (72 bytes).
2. Store the address of the user IT rautine in the external
old PSW.
3. Branch to general exit (EXT03).
The user IT routine will be executed when this task is
selected in the general exit routine. Return from the user's
IT routine must be with an EXIT IT macro.
See Figure 25 for the IT option table. Refer to Figure
36 for the format of the CCB (TECB has the same format as
the CCB. Only the traffic bit X '80' in byte 2 is used).
CAUTION: If a B-Transient is operating for the timer
supported program when the limer interrupt occurs for a user
IT routine, the exit is deferred. The attention routine PIB
is posted to include the attention routine in task selection
when the B-transient area is released. A switch (lTBRC) is
set in the resident attention routine to continue timet interrupt processing when the attention task is selected on
general exit.

12
A

Chart 16.

OPTION

The attention routine PIB is
NO IT
FE
posted to include the
OROC
attention routine in task
selection. The nonWITH
GS
resident attention routine
IT OR OC
($$BATTNA) processes the
request when the attention
task is selected in general exit.
Note: If supervisor was generated without user OC
(operator communications) routine option, the interrupt is
ignored.

(

GENERAL EXIT

(

UNTCKI
UNTCK2
UNIT CHECK
Charts FT -FU
Determine the action to be taken
for the following error conditions:
• Unit check
• Channel data or channel chaining
check
• Program check or protection check
User Unit Check Routine: Post the
disaster error flag (bit 18) in the
CCB and return to the I/O interrupt
routine to continue testing the CSW
(this error is ignored by PIOCS).
No User Unit Check Routine: Sui Id
a 22 byte error queue entry in the
error queue table. The error queue
table is 5 entries long; an attempt
to build mare than 5 entries causes
a cancel condition (ERR3\). Refer
to Figure 42 for the format of an
error queue entry.
Exits from Unit Check:
• Disk device; exit to Resident
Disk Error Recovery
• Channel 9 overflow on printer;
post channel 9 overflow to CCB
and take ignore exit (EXIGN).
• All other conditions; exit to
fetch the ERP monitor (EXTRAN)
where the Quiesce I/O Task will
be included in task selection
on general exit (EXT03).

OTHER

RESERR
RESIDENT DISK ERROR RECOVERY Charts GV-GW
Objectives:
1. Analyze the sense information
and the CSW stored in the 1st
entry in the error queue table.
2. Determine and execute the disk
error recovery procedure, and

then choose one of the error
recovery procedure exits.

Refer to Figure 44 for disk
sense information and to Figure 42
for the format of an error queue
entry.

QUISIO
Chart FZ
Wait for completion of all CHANQ
entries for every non-tele-processing
device on the channel (Ai'l PUB CHANQ
pointers are null, X'FF'). Quiesce
I/O PIB remains in the task selection
until all entries in the error queue
have been processed. On Iy one error
queue entry wi II be processed by ERP
(error recovery procedure) A-transients
at a time. When the error queue table
is empty (5 entries are maximum),
Quiesce I/o task is removed from task
selection at general exit.

$$ANERRA

o

*18-0
19-0

$$ANERRD

ERP EXITS
ERROR RECOVERY PROCEDURE EXITS
Charts FV-FW
EXTRAN: Includes Quiesce I/o task in task
selection and returns to I/o Interrupt
to attempt to re ... chedule the channel.
Initiates procedure for fetching the
ERP monitor ($$ANERRA).
RCVERR: Same action as EXTRAN exit.
See EXTRAN.
EXCAN: Cancel code has already been
set in the PIB by the PIOCS error
recovery procedure. Releases the
B-transient area, if the canceled
program was using the B-transient area.

EXTOl is taken.
~ This exit returns to the physical
transient.

EXIGN: Restore the CSW from the error
queue entry and dequeue the error queue
entry. Return to I/O Interrupt and
continue evaluating the CSW.
EXWHY: Retry the user's channel program
starting with the CCW in error. Dequeue
the error queue entry. Return to I/o
Interrupt and re-evaluate the CSW.
EXRTY: Same action as EXIGN if the retry
flag is not set in the error queue entry.
If the retry flag is set, dequeue the
error queue entry and return to I/o
Interrupt to re ...chedule the channel.

Return to
Transient

I/O INTERRUPT

Chart 17.

Unit Check, Resident ERP, and Quiesce I/O Routines

System Control Programs

121

$$ANERRA
ERP MONITOR

cr

$$ENERRD
Charts HA- HD

The ERP monitor is composed of two A- transient progroms.
These are:
1. $$ANERRA - determine device type and identify
2311 unrecoverable errors.
2. $$ANERRB - continue identification of 2311
unrecoverable errors.

Determine device type to be:
Data cell (2321) - fetch $$ANERRG
Unit record - fetch $$ANERRU
Paper tape - fetch $$ANERRX
Disk (2311) - ana Iyze CSW and sense data to
identify the unrecoverable error, post message code
to the error queue entry, and fetch the message
writer ($$ANERRM).
Refer to I/O Error Recovery Procedures for disk sense data
and to Figure 42 for the format of the error recovery block.
Optical reader - fetch $$ANERR9

•
•
•
•

TAPE ERROR RECOVERY

cr

Charts HE- HM

Tape error recovery is accomplished by three A- transient
programs. These are:
1. $$ANERRD - error analysis and selected error
procedures.
2. $$ANERRE - selected error procedures.
3. $$ANERRF - data check procedure.
Ob jectives:
1. Analyze the sense informatian and the CSW stored
in the 1st entry in the error queue table.
2. Determine the tape error recovery procedure, and
chaose ane of the error recovery procedure exits.
Refer to I/O Error Recovery Procedures for data sense
information and to Figure 42 for the format of the error
recovery block.

.

I

$$ANERRG

t

DATA CELL ERROR RECOVERY

$$ANERRU
Charts HN-HQ

Data cell error recovery is accomplished by five Atransient programs. These are:
1. $$ANERRG - error analysis.
2. $$ANERRH - track condition check procedure.
3. $$ANERRI - data check and missing address
marker procedures.
4. $$ANERRJ - no record found and seek check
procedures.
5. $$ANERRK - continuation of number 3 above.
Objectives:
1. Ana Iyze the sense information and CSW stared
in the 1st entry in the error queue table.
2. Determine the data cell error recovery procedure,
and choose one of the error recovery procedure exits.
Refer to I/O Recovery Procedures for data cell sense
information and to Figure 42 for the format af the error
recovery block.

I

t

PAPER TAPE ERROR RECOVERY

Charts JK- JL

Unit record error recovery is accomplished by two Atransient progroms. These are:
1. $$ANERRU - unit record test cannot occur
conditions, channel data check, and 1052 errors.
2. $$ANERRV - 1403, 1442, 1443,2501, 2520 and
2540 error recovery procedures.
Objectives:
1. Analyze the sense information and the CSW stored
in the lst entry in the error queue table.
2. Determine the unit record error recovery procedure,
and choose one of the error recovery procedure
exits.
Refer to I/O Error Recovery Procedures for unit record
sense information and to Figure 45 for unit record devices
supported. Refer to Figure 42 for the format of the error
recavery block.

I
$$ANERRX

t

UNIT RECORD ERROR RECOVERY

$$ANERR9
Charts JP- JQ

Paper tape error recovery is accomplished by one Atransient progrom, $$ANERRX.
Ob jectives:
1. Analyze the sense information and the CSW stored
in the lst entry in the error queue table.
2. Determine the paper tape error recovery procedure,
and choose one of the error recovery procedure
exits.
Refer to I/O Error Recovery Procedures for paper tape
sense information and to Figure 42 for the format of the
error recovery block.

I

+

OPTICAL READER ERROR RECOVERY

Charts JR- JRB

Optical Reader error recovery is accomplished by one Atronsient program, $$ANERR9.
Objectives:
1. Analyze the sense information and the CSW stared
in the error queue table.
2. Determine the optical reader error recovery
procedure and choose one of the error recovery
procedure exits.
Refer to I/O Error Recovery Procedures for optical reader
sense information and to Figure 42 for the format of the
error recovery block.

t

~
Chart 18.

122

Physical Transients ERP

DOS System Control

(

$$ANERRM

7

MESSAGE WRITER ROUTINE

1-

$$ANERRQ
Message Writer Routine
Chart JA

Analyzes message code in Error Queue
entry for device in errar; selects
appropriate lO4>yte message and
obtains CCB address - both are
stored in save area for use by subsequent
phases.
$$ANERRN

Charts JF-JG

Analyzes operator's response to message
and turns on appropriate flags for use
of phase S. Receives operatar's response
via the 1052 keyboard. However, if
operator responds incorrectly, the
message "OPNND INVALID RESPONSE"
is printed and phase R is called.

~

MESSAGE WRITER ROUTINE Charts JB- JC
Prepores and saves message with following
information:
1. Program type (BG, FI, F2) which
error device is associated with;
2. Message numberi
3. Type of action required and response,
if necessary.
If SYSLOG is unassigned, phase R is
called unless the message is information
only in which case S is called, bypossing
intervening phases.
$$ANERRO

+

MESSAGE WRITER ROUTINE

Chart JD

Prepores and saves message information
about:
1. Symbolic name of device, e.g.,
SYSRDR or SYSOOI ;
2. CSW;
3. Sense Byte Data;
4. Channel and Unit Number of device;
5. Seek address at error time if
DASD.
$$ANERRP

NO
$$ANERRR

Chart JH

If a system-to-operator message could
not be printed on SYSLOG for any of
several possible reasons, the console
is used to communicate with the operator.
Information is stored for console display
as follows:
Byte 0 - message number;
Byte I - Action character (A, 0, I);
Bytes 2 and 3 - Channel and unit number
of error devi ce ;

Byte 4 - desired operator response.

If action or decision is called for, the
system is put in a wait state pending
operator's response.

(

+
WAIT

)

Chart JE

Prints errOr message containing information
gathered and saved from previous phases;
prints on 1052 or printer.
Can call phase Q, R, or S depending upon
type of error involved.

1

1

Message Writer Routine

~

Message Writer Routine

YES

Valid Response

$$ANERRS
Message Writer Routine

Chart JJ

Analyzes the External Option Flags set
in phase Q by the operator's response
and chooses the appropriate exit to
Cancel, Retry, or Ignore.
Here is a sample format of the error
messages!

BG OPI91 C COMM REJCT SYS003 = 191
CCSW = XXXXXXXXXXXXXXXXXX SNS=
XXXXXXXXXXXX CCB = XXX XXX SK =
BBBBCCCCHHHH

dJ

ERP EXITS

)

Chart 19.

Physical Transients Message Writer

system Control programs

123

13

SSANERRZ

SSAA/ERRY

PHYSICAL ATTENTION
a.artl JU-JV
Th II phYlical transient is used ta perform tests whose
results determine which A or B- tranllent II required
for further proceuing of the attention interrupt.
I. If SYSLOG il not a 1052-exit.
2. Scan the PUB (Physical Unit Block) for devicel
requiring operatar intervention.
a. Stare the program interrupt key (PIIC) of
the program that owns the device requiring operator intervention in the interphase communication area (PARCOMM)exit - - - - - - - - -_ _ _ _ _
b. If no operatar intervention is required,
and if the attention request switch is
ON, exit - - - - - - - - - -_ _.......
c. If no operatar intervention is required,
and the attention ,request switch il
OFF, exit
3. If this phase is entered with the attention
recall switch ON, the supervisor routines are
used to cancel the program and dequeue the
channel queue. These routines are entered via a
SVC 3 and control returns to this A-translent line.

PHYSICAL ATTENTION
I.

-------1----.

+_.:....-,

2.

a.artl JS-JT

Sen4 the message:
ARb 0P601l... __INTERV REQ FOR xxx
ARb ~~..!!£i!!...Here.J.._
where xxx is FG1, FG2, or BGb
Read the operatar relponse which il either
CANCEL or IGNORE.
a. CANCEL response: Turn ON the physical
attention recall switch, exit
b. IGNORE response and the attention
request switch ON, exit -------~....,
c. IGNORE response and the attention
request switch OFF: Turn the attention
request switch ON, exit below.

------1--------.

------------+-......,

SSANERRO

Issue a SVC3 to enter the task selection
mechanism of the supervisor program. These
conditions are present:
•

RF contains the addreu of the general exit
(EXT02).

e The phase name in ERBLOC has been
modified ta S$ANERRx where x equals the
physical transient 10 (Hex 01).
•

The attention routine PIB flag has been set
to a Hex 81, making that routine eligible
for selection when the logical transient
area becomes available.

PHYSICAL ATTENTION
Charts JW-JX
I. Send the message:
ARb 11400 EMERGENCY CANCEL
ARb-{b".p;n"; Fits Here.)
2. Reacfilieoperatarresponse:a. Valid responses: ~
CANCEL bbb (cancel background programs)
CANCEL FGI (cancel foreground 1)
CANCEL FG2 (cancel foregrounil 2)
CANCEL 8Gb (cancel background)
b. Invalid response (other than those listed
above), send the menage:
ARb_ l~..E_INVALID STATEMENT
ARb_ lR"e!f!'"....!,8.£.i.!!.,.Her~ _
3. Set the cancel code in the PIS indicated by
the response.
4. Cancel the program with the supervisor ATNCNL
routine. Enter the routine by issuing a SVe3.
Control is returned to this A-transient when
the SVC old PSW is loaded by the supervisor.
S. Final exit from this transient is ta the supervisor task selection mechanism ofter these
conditions are set:
•

(

RF contains the address of the general
exit (EXT02).

•

The phase name in ERBLOC has been modified with the physical transie;,t 10•
• CAUTION
Emergency cancel signalled by 2
consecutive attn requests

Chart 20.

124

Physical Transients--Physical Attention Routine

DOS System Control

(

SUPERVISOR B-TYPE TRANSIENT PROGRAMS
(CHARTS 21 THROUGH 30)
B-transient programs are infrequently-used
routines; therefore they are not resident
in main storage. They may be fetched or
loaded from the core image library when
needed. The B-transients occupy an area of
1200 bytes (1000 bytes in TOS) referred to
as the Logical Transient Area (LTA).
A SVC 2 instruction loads and executes a
B-transient phase. A prefix of $$B to the
name of a phase identifies it as a
B-transient. The normal return to
supervisor nucleus control is an SVC 11,
but some of the transient programs exit by
fetching another B-transient with an SVC 2.
In the latter case, the calling B-transient
will be overlaid by the transient being
fetched.
Register 1 is loaded with the address of
the transient name prior to issuing the SVC
2, so the fetch or load routine has access
to the name for purposes of searching the
disk directories or tape records for the
desired transient.

Chart NA (see Figure 50)

$$BEOJ3

Chart NO

$$BTERM

Chart NE

$$BPCHK

Chart NT

$$BILSVC

Chart NN

$$BEOJ2

Chart NL

$$BEOJ1

Chart NJ

$$BPSw

Chart NR

$$BOUMP

Chart NV

$$BDUMPF

Chart NX

$$BDUMPB

Chart PB

$$BDUMPD

Chart PG

$$BPOUMP

Chart PL

$$BPOUM1

Chart PM

Nonresident Attention (Charts 21, 24,
and 25) inclUdes these B-transients:
$$BATTNA

Chart KA

$$BATTNB

Chart KE

$$BATTNC

Chart KG

$$BATTNO

Chart KJ (see Figure 47)

$$BATTNE

Chart KN

$$BATTNF

Chart KQ

INITIATOR

$$BATTNG

Chart KS

Foreground Initiator (Charts 21-23)
includes these B-transients:

$$BATTNH

Chart KT

I$$BATTNN

Chart MH

$$BSYSwR

Chart PS

B-Transient Grouping
The supervisor B-transient programs can be
grouped by the various functi~ns performed.
These functions are nonresident attention
routine, foreground program initiator, and
program terminator.

)

$$BEOJ

$$BATTNA

Chart KA

$$BATTNC

Chart KG

$$BATTNrl

Chart KT

$$BATTNI

Chart KV

$$BATTNJ

Chart LH (see Figure 48)

$$BATTNK

Chart LP

$$BATTNL

Chart LX

$$BATTNM

Chart MC

Program terminator (Charts 26-30)
includes these B-transients:

INITIATION (FIGURE 49)
Foreground programs are initiated by the
operator through the 1052 assigned to
SYSLOG. The operator may initiate a
foreground program whenever an allocated
foreground area does not contain a program.
The operator initiates a foreground
program by pressing the 1052 request key.
The attention interrupt causes control to
be given to the system's Attention·routine.
Note: If the transient area is in use by a
routine other than the Attention routine,
the attention interrupt is posted and
System Control Programs

125

serviced when the transient area becomes
available.
The Atte~tion routine reads a command
from the oPerator. The command START (F1
or F2) indicates a foreground program is to
be initiated. The Attention routine
determines if the area specified is
allocated and does not contain a program;
if so, it trans.fers control to the
foreground initiator. Otherwise, the
operator is notified that an invalid
command has been given.
The foreground initiator reads
subsequent commands required to initiate
the program. These commands are used
prirr.arily to specify I/O assignments and
label information. When an I/O assignment
is attempted, the following verification is
made:
1.

The symbolic unit is of the class
SYSnnn.

2.

The symbolic unit is contained within
the number specified for the area at
system generation.

3.

If the symbolic unit is to be assigned
to a non-DASD, the device must not be
in use by the other foreground program
nor can it be assigned to a background
job either as a standard, temporary, or
alternate unit.

The label information for each file in
the job is written on SYSRES as a label
information block for later retrieval and
processing by the data management routines.
A main storage area for label information
is required under the same conditions as
for background jobs and is calculated and
reserved by the initiator.
When the EXEC statement is encountered,
the foreground initiator directs the
supervisor to provide loading information
for the program to be invoked.
If the
program has not been cataloged, the
operator is notified by the initiator. He
may correct the command (for example, if
the name was misspelled) or cancel the
initiation.
After the loading information is
received, the initiator checks to determine
if a self-relocating program is to be
loaded. This is determined by the load
address being zero. The foreground
initiator directs this program to be loaded
following the label information. area. It
also calculates the entry point to the
program by adding the address at which it
will be loaded to the previously-calculated
entry point (derived when the program was
linkage edited and cataloged onto the
system). A non-self-relocatin~program
126

DOS System Control

will be directed to be loaded utilizing the
information derived when the program was
cataloged.
Diagnostics, such as the program being
outside the limits of the foreground area,
are not performed by the initiator, but are
performed by the Supervisor when the
program is loaded and causes the program to
be terminated.
When initial control is given to the
user's foreground program, register 2
contains the address of the uppermost byte
of storage available to this program. This
may be used to calculate the total storage
available to the program. A foreground
program can dynamically determine the
storage available to it by storing the
contents of this register for later
reference.
Note that a program capable of either
foreground or background operation (with
proper linkage editing) can utilize the
same programming to determine its storage
allocation independently of its actual area
assignment.
TERMINATION (FIGURE 50)
A foreground program is terminated under
its own control by issuing an EOJ, DUMP, or
CANCEL macro or through operator action or
a program error or certain I/O failures.
When a foreground program is terminated,
the following actions are taken:
1.

All I/O operations that the program has
requested are allowed to quiesce.

2.

Tape error statistics for all tape
drives assigned to the program being
terminated on which an error has
occurred are logged out on SYSLOG and
the statistics reset (system generation
option) •

3.

DASD extents in use by this program for
DASD file protection are dequeued
(system-generation option).

4.

All I/O assignments made for the
program are canceled so that these
devices may be available to subsequent
programs.

5.

The operator is notified that the
program is completed. The storage used
by the program remains allocated for
the foreground area.

6.

The program is detached from the
system's task selection mechanism.

After a foreground program is completed,
the operator may initiate another program
for the area by pressing the SYSLOG request

(

(

key and continuing with the initiation
procedure previously described.
Figure 51 illustrates the relationship
among programs in a multiprogramming
environment.
In addition, this figure
shows the format of the save area used with
each program.

SP
BG
F2
FI

size
size
size

T

field I

upper
upper
upper
upper

field 2

limit
limit
limit
limit

field 3

NAME
NAME
NAME
field 4

Field I-area identification

NONRESIDENT ATTENTION ROUTINES (FIGURE 49)
Attention commands are submitted when the
operator presses the request key on the
1052 keyboard. The system's Attention
transient routine ($$BATTNA) is loaded and
issues the message READY FOR
COMMUNICATIONS.
It then reads input
statement information and selects the
appropriate statement processor. Commands
accepted by the nonresident attention
routines are:
•

PAUSE: Indicates job control pauses for
operator communication at the end of
the current batch job step.

•

CANCEL: Indicates one of the programs
in the system is to be canceled. See
Figure 52 for cancel code information.

•

MAP: Provides a map of main-storage
utilization. See Figure 47.

o

ALLOC: Permits the operator to allocate
storage among foreground and background
programs.

•

MSG: Causes control to De given to a
foreground program operator
communications routine previously
activated by a STXIT command.

SP -

s~ervisar

BG - background area
F2 - foreground area 2
FI - foreground area I
T - indicates which program has interval timer support.

Field 2 -length of area.
The number of bytes allocated to the corresponding
area of storage. Where 2K equals 2048 bytes of
storage. For the background area this represents
the number of full 2K blocks. For example, if the
area were 11 .2K, the MAP would indicate 10K.

Field 3-area upper storage limit.
The highest storage address allocated to the
corresponding area in hexadecimal.

Field 4 - user name

•

•

TIMER: Causes interval timer support to
be given to the program specified.

BG - background job name
F2 - foreground 2 program name
FI - foreground I program name
Absence of a name indicates there is no active
program in the area.

START: Indicates the foreground
initiation function has begun.
Figure 47.

MAP Output

)
System Control Programs

127

Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl
Fl

Figure 48.

128

....

LI STIO AL'.
tiD UNIT
SYSRDR
SYSIPT
SYSPCH
SYSLST
SYSLOG
SYSLNK
SYSRES
tlO UNIT
SYSOOO
SYSOOI
SYS002
SYS003
SYSOOII
SYSOOS
SYS006
SYS007
SYSOOB
SYS009
SYS010
SYSOl1

1/0

UNIT

SYSOOO
SYSOOI
SYS002
SYS003
SYSOOII

1/0

UNIT

SYSTEM ••••

CMNT

1/0

UNIT

SYSRDR
SYSIPT
SYSPCH
SYSLST
SYSLOG
SYSLNK
SYSRES

1/0

UNIT

1/0

UNIT

...

MODE

00

....

PROGRAM

CMNT

CHNL

UNIT

MODE

91
91
'11
91
92
92

92
92
• UNA •
UNA •
•
•• UNA
UNA.
• FOREGROUND 1 •

·

CMNT

CHNL

UNIT

· ··

MODE

• UNA
• UNA •
UNA •
• UNA
• UNA •
• FOREGROUND 2 •
CMNT

CHNL

UNIT

·· ·

MODE

UNA •
•
• UNA
UNA
• UNA •
• UNA •

....

SYSTEM

CMNT

.*••

CHNL

UNIT

MODE

(

0
0
0
0
0

...

OC
OC
00
OE
IF
•1 UNA 90•

PROGRAM

CMNT

...•

CHNL

•
•
•
•

UNIT

MOOE

91
91
91
91
92
92
92
92
UNA •
UNA.
UNA •
UNA •

• FOREGROUND 1 •
CMNT

SYSOOO
SYSOOI
SYS002
SYS003
SYS004
L1STIO UA

DC
OC

OE
IF
•1 UNA 90•

SYSOOO
SYSOOI
SYS002
SYS003
SYSOOII
SYSOOS
SYS006
SYS007
SYSOOB
SYS009
SYS010
SYSOl1
LISTIO Fl

UNIT

0

0
0
0
0

SYSOOD
SYSOOI
SYS002
SYS003
SYSOOII
L1STIO BG

CHNL

CHNL
•
•
•
•

UNIT

MOOE

UNA •
UNA.
UNA
UNA •

·

• UNA •

••

UNASSIGNED
CHNL

..

UNIT
90

List I/O Examples for Nonresident Attention Request

DOS System Control

(

Attention

Foreground
Initiator
YES

NO

$$BATTNA

$$BATTNA

Root
Phase

Root
Phase

MSG

Located in
foreground
area of the
program being initiated.

Lacated in 8-

$$BATTNB

$$BATTNC

transient area

together with
the root
phase.

$$BATTND

$$BATTNJ

$$BATTNE
~=~-I--

$$BATTNK

- - - - --$$BATTNF

$$BATTNG
$$BATTNL
$~BATTNH

EXEC

Figure 49.

$$8ATTNN

initiator Phase Map

System Control Programs

129

$$BEOJ - $$BEOJ3
Abnonnal Doqwu. I/O
EOJ d..,I.... 01....1..

T,.t dovl.... 00-

twmlne. cause of
c~c:el, call. proper
aubMqu.,t program.

NO
8G lob

FG job

$$BTERM
Detach Attention
Routfne If It wer'll
the program being
canceled; otherwi.. write EOJ
IMuag.. Uncaa1an

I/O o_lated

wilt! program Wlr ...
this function I.
overridden by a
Job Control
command-hold.

YES

YES

$$BEOJ2

$$EOJI

Writes meuoge

Writes speclol
message If logical
transient I.
conceled.

describing cause

of cancelation.

$$BPCK

$$BllSVC

Writes message

Writes message
when phase not
found or iIIega'
SVC Issued by
program.

about storage

location and
cause of program
check Interruption.

$$BPSW
Gives status of
canceled pregram

by printing

lA.tlS

PSW.

$$DUMP
Tests for BG or FG If cancel macro detected by S$8DUMP
job, r,lb to u..,
calls proper du"",
program.

FG job

8G job

$$BDUMPF
Writes on tope or

prlnter:heodera,
raglsten, Supervisor
and FG portions of
main storage.

$$BDUMPB
Writes on tope or
printer:heoden,
regllt.n, COfoltREG,
SupervlKtr and 8G
portions of moln
slo~.

$$BCUMPD
Records on dille:
headers, regilt.,..,
COMREG, Supervltorond BG
portion. of moln
seorcge.

Simulate normal

EOJ

$$BOUMP
T... macro poraml"r1, analyte.

1;0. Colb octual
dump plQUram.

$$BDUMPD
WrItes reg""''' ond
portion of main

,"''''Uo_lflodby
PDUMP .... "'.

Figure 50.

$$BPCUMI
Write. regf.htr1 and
portion of main
.torage specifJ.::I by
PDUMP mocro.

Terminator Phase Map

(
130

DOS System Control

Cancelo

DOS System Control

(

SECTION 6: LIBRARIAN MAINTENANCE PROGRAMS

This section presents the programs that
perform the functions required for
maintaining the libraries and directories
of SYSRES. These functions are as follows:

• Relocatable library maintenance program
(MAINTR2)
• Source statement library maintenance
program (MAINTS2)

• Catalog function for all libraries
except the core image library. The
core image library catalog function is
performed by the linkage editor program
(Phase 8, $LNKEDTC).

• System reallocation program (MAINTA)
• Library condense program (MAINTCN)
• Set condense limits program (MAINTCL)

• Delete function for all libraries
• Update sUbdirectories program
($MAINEOJ)

• Rename function for all libraries
• Reallocate function for all libraries
• Condense function for all libraries
of the system, in certain
cases, will cause the directories to be
incompatible with their corresponding
libraries. These cases occur, in
particular, when the reallocation program
(MAINTA) and the condense program (MAINTCN)
are being executed. If the execution of
either of these programs is not completed,
the status of the system is unpredictable
and the system may have to be rebuilt. It
is therefore imperative that during the
execution of either program, the supervisor
be prevented from fetching any transient.
To safeguard against these
incompatibilities, PIOCS performs the
following:
~aintenance

• Masks attention if bit 6 of the linkage
control byte (displacement 57 of the
communication region) is on. This bit
is turned on by both programs and is
turned off by $MAINEOJ (the program
that updates both the $ and $$
directories) •
• Enters the system into a "hard wait" if
the linkage control byte has a
configuration of X'FF' when an I/O
error occurs on SYSRES. This byte is
set to X'FF' during reallocation
involving the core image directory.
It
is restored to its original
configuration when the reallocation is
completed.
The programs included in this section
are presented in the following order:

)

COMMON LIBRARY MAINTENANCE PROGRAM (MAINT),
CHART 39
During execution of all maintenance
fUnctions (except when $LNKEDTC is used to
catalog in the core image library and when
$MAINEOJ is resident), MAINT is resident in
storage with one of the following
maintenance programs:
• MAINTC2
• MAINTR2
• MAINTS2
• MAINTA
• MAINTCN
• MAINTCL
The MAl NT root phase is composed of 3
CSECTS:
1.

LIOCS logic module (GET or PUT)

2.

Error message routine (ERRRTN)

3.

Card handling and fetch routine (MAINT)

MAINT is fetched from SYSRES by job
control when a //EXEC MAINT control
statement is read. The MAINT root phase
performs the following functions:
1.

Loads base registers of phases.

• Common library maintenance program
(MAINT)

2.

Reads control cards from SYSRDR or
SYSIPT.

• Core image library maintenance program
(MAINTC2)

3.

Analyzes the operation field in
statements.

cont~ol

Librarian Maintenance Programs

157

4.

Loads or fetches appropriate phases.

5.

Branches to appropriate entries in
phases.

6.

Sets up pointers to operands in control
statements.

7.

Writes error messages.

8.

Performs I/O operations for GET and PUT
macros issued in the phases.

(

Refer to Figure 58 for a storage map
showing the relationship of MAINT and its
phases. Refer to Chart 00 for interaction
between MAINT and other programs in the
system.

,,

~End of SUPERVIS OR

LlOCS Logic Module

.....

LlOCS Logic
Module

MAl NT
Root Phase < Error Message Routine

$MAINEOJ

MAINT

$MAI NEOJ
) Phase

(

~~

~~

~

~

", ..... ,

I

Figure 58.

158

MAINTC2
t'--,
MAINTR2
~~
MAINTS2
I
MAINTCN
I
MAINTA
I
1
MAINTCL

Maintenance Storage Map

DOS System Control

",

BEGINN

AUTOEN

READ CONTROL STATEMENTS

Chart TA

ENTER MAINTCN

Entries from other maintenance phases are:

Chart TA

Enter MAINTCN phase to

}----j;~. To get the next operand of the
ENTMAI
'-------/
last control statement read or to read the
next contra I statement. If emered from
NEWRD
}---+t~. NEWRD to read the next control statement.
Control Statements are read from either
SYSRDR or SYSIPT (initially from SYSRDR).

perform automatic
condense operation.

ANALEN
All

YES -

/* STMNT HAS BEEN READ

EMAINS
ANALYZE CONTROL ST ATEMENTS, LOAD CORRECT
PHASE, AND BRANCH TO PHASE ENTRY
Charts TB, TC, AND TD
The operation field in each control statement

is analyzed as:
• IPTCTRL - branch to NEWRD and read
subsequent control statements from SYSIPT.
• RDRCTRL - branch to NEWRD and read
subsequent control statements from SYSRDR.
• CAT ALC - error 3M 1OD.
• DELETC - load MAINTC2 and branch to
MAINTC2 phase entry plus 4, Chart 40
• RENAMC - load MAINTC2 and branch to
MAl NTC2 phase entry plus 8, Chart 40
• CAT ALR - load MAl NTR2 and branch to
RMAI NT, Chart 41
o DELETR - load MAl NTR2 and branch to
RMAI NT plus 4, Chart 41
• RENAMR - load MAINTR2 and branch to
RMAINT plus 8, Chart 41
• CAT ALS - load MAl NTS2 and branch to
CATENT, Chart 42. Phase entry.
• DELETS - load MAl NTS2 and branch to
DELE NT, Chart 42. Phase entry plus 4.
• RE NAMS - load MAl NTS2 and branch to
RNMENT, Chart 42. Phase entry plus 8.
• CONDS - load MAINTCN and branch to
MAl NTCN, phase entry, Chart 44.
• CONDL - load MAINTCL and branch
to phase entry, Chart 45.
• ALLOC - load MAINTCN and branch to
CNDCL, Chart 44. Therefore branch to
MAl NT A, Chart 43.
Phases are loaded on Iy when they are
not already in storage. Phase entry in
the preceding list refers to the
initial entry label in the phase, and
plus 4, plus 8, etc. refers to plus 4
bytes, plus 8 bytes, etc. Refer to
Figure 58 for a storage map of librarian
maintenance phases.

)

Chart 39.

Common Library Maintenance Program (MAINT)

Librarian Maintenance Programs

159

Function

Element

Delete

Phase

DELETC

phase 1 [, phase2, ..•J

Program

DELETC

XXXX .ALL [, YYYY .ALL, .••J

Phase

RENAMC old name, new name

Rename

Control Statements Required

[, old name2, new name2, ••• J

Figure 59.

Core Image Library Maintenance Control Statements

IMAGE LIBRARY HAIN'I'ENANCE PROGRAM
(MAINTC2), CHART 40

CORE

MAINTC2 is fetched from SYSRES by the root
phase MAINT when a control statement
concerning core image library maintenance
is read by MAINT.
MAINTC2 deletes or
renames phases in the core image library.
Phases are cataloged in the core image
library only by $LNKEDTC. See Figure 59
for control statements acceptable to
MAINTC2.
There may be any number of these control
statements in any sequence. The operands

in DELETC control statements may be in any
sequence.
Preceding these control
statements is the job control statement
//EXEC ~AINT. A /* (end-of-file) always
follows the statements.
Refer to Figure 6 for the format of the
core image (Cl) directory and to Figure 4
for the format of the system directory.
To delete a phase from the library,
MAINTC2 deletes the phase entry in the CI
directory. To rename a phase, MAINTC2
changes the phase name in the CI directory.

(

(
160

DOS System Control

MAINTC2

)

MAINTC2+4

)

MAINTC2+8

I

l
DELETE

Operation in

Y-

CATALOG

l

RENAME

RENAME A PHASE IN THE CI DIR

Error 3Ml0D
Chart TJ

A scan is made of the entries in the CI
directory for an equal compare to the first
operand of the RENAMC control statement. The
second operand replaces the name field in the
directoryentry. An updated block is written
in the CI directory. The system directory
need not be updated.

Is Operand
xxxx.A LL

NO
DELET

YES

DELETE A PHASE FROM THE CI LIB

Chart TJ

A scan is made of the entries in the CI
directory for an equal compare to the operand
of the DELETC control statement. Blanks are
moved to the name field in the directory entry.
An updated block is written in the CI
directory. The system directory is also
updated to reflect the changes that
have been made in the CI directory.

SCNALL
DELETE A PROGRAM FROM THE CI LIB

Chart TJ

A scan is made of the entries in the CI
directory for on equal compare to the first 4
characters of the operand of the DELETC control
statement. Blanks are moved to the name field
of every entry in the directory that
contains this 4-character prefix. An updated
block is written in the CI directory
whenever one or more phases are deleted
from that block. The system directory is also
updated to reflect the changes that have
been made in the CI directory.

ENTMAI, MAINT
Phase, Chart 39

)

Chart 40.

Core Image Library Maintenance Program (MAINTC2)

Librarian Maintenance Programs

161

Function

Element

Catalog

Module

Control Statements Required
CATALR module 1
CATALR module 2

Delete

Rename

Figure 60.

Module(s)

DELETR module 1 [, module 2, ••• ]

Progrom

DELETR XXX.ALL

Library

DELETR ALL

Module

RENAMR old name 1, new name 1
[,old name 2,new name2, ••• J

GYYY .ALL, •••J

Relocatable Library Maintenance Control Statements

RELOCATABLE LIBRARY MAINTENANCE PROGRAM
(~AINTR2), CHART 41
MAINTR2 is fetched from SYSRES by the root
phase MAl NT when a control statement
concerning relocatable library maintenance
is read by the root phase MAINT. MAINTR2
catalogs, deletes, or renames modules in
the relocatable library. See Figure 60 for
control statements for these operations.
There may be any number of these control
statements in any sequence. Module names
specified in the DELETR control statements
may be in any sequence. Preceding these
statements is the job control statement
//EXEC MAINT. The statements are always
followed by a /* Cend of file> statement.

Refer to Figure 8 for the format of the
relocatable library directory and to Figure
9 for the format of the relocatable
library. All records in the relocatable
format have the same structure, the only
difference being in the length of the
variable field. Refer to Figures 62, 63
and 64 for relocatable formats of ESD, TXT,
and RLD records. All other records are
card images of the input. Figure 61 is an
example of a module as it might appear in
the relocatable library. Figure 65 is to
be used with Chart TS as an aid in
determining the new ESID numbers of the ESD
records when they are being converted to
the library format.

(

(
162

DOS System Control

1st byte = Number of logical records (1 in Linkage
Editor control cards, 2 in 12- 2- 9 cards)
r2nd byte = Record length (160 in all records)
1

INCLUDE

I

Unused

PHASE

I

Unused

}

1

160
160

2

160

ESD

ESD

2

160

ESD

TXT

2

160

TXT

TXT

2

160

TXT

TXT

2

160

TXT

TXT

2

160

TXT

TXT

2

160

TXT

2

160

2

160

RLD

2

160

RLD

~

'-

I

REP

y

y

REP
Unused

I

Linkage Editor
Contro I Cards

12- 2- 9 Cards

Unused

RLD
RLD
END

I..

I
y

Unused
)

2 Bytes
160 Bytes
160 Bytes
I..~------------------~y~------------------~)
322 Bytes

Figure 61.

Module in the Relocatable Library

Librarian Maintenance Programs

163

EXTERNAL SYMBOL DICTIONARY
SYMBOL TYPE 10 AOOR LENGTH LO 10
IJBLNK10 SO 01 001900 000928
001900
01
IJBLNK
LO
IJBLOV
LO
002008
01
IJBINL10 SO 02 002228 000650
IJBINL
LO
002228
02
IJJCPD3
ER 03
ER O~
IJJCPD1
IJBES010 SO 05 002878 000~58

Example of 8
ESD Items from
Assembler
Output Listing.

ETC ••••

Assembler Output or
RSERV Output ESD
Cords

Blank
Seq.
No.
Seq.
No~

SO Item
1st Entry

"L-_~~_ _ _I-_-I-_-\-_~~_

Relocatable Library
ESD Record
(J 60- Bytes)

LD

LD

SO

LD

ER

ER

Variable Field
(48 Bytes)

SO

~------------------~T~------------------J

Variable Field (128 Bytes)
Relocatable
Library Block
(322 - Bytes)

Relocatable
Library Track

Figure 62.

Relocatable Format of ESD Records

(

164

DOS System Control

LOC

OBJECT CODE

001800 00000000
00180~ 0000
001806 0000
001808 ~7FO FOOC
00180C 9035 FOOC
001810 9103 1015
00181~

~770

Example of Text Contained
in Relocatable Text Records
from Assembler Output listing.

F07~

••• ETC.
Assembler Output
or RSERV Output
TXT Cards

56 Bytes of Text

Seq.
No.
Loader 10
Card Type
Origin of
1st Byte of
TXT ESID
No.
Variable
Field Byte
Count

56 Bytes of Text
(Machine Longuage
Generoted by Assembler)

Card
Deck
Seq.
No.

L..-_ _ _ _ _---\_ _ _ _ _

Relocatable library
TXT Record
(160 Bytes)

TXT
56 Bytes from
1st Card

TXT
56 Bytes from
2nd Card

Variable Field
(56 Bytes)

TXT
Next
Card

y

Variable Field (136 Bytes)

Re locatab Ie
library Block
(322 Bytes)

160 Bytes

Relocatable
library Track

Figure 63.

Relocatable Format of TXT Records

)

Librarian Maintenance Programs

165

RELOCATION DICTIONARY
POS.ID
01
01
01
02
02
02
02
03
03

REL.lD

01
01
02
02
02
';
02
02
03
04
••• etc.

FLAGS

ADDRESS

OC
08
08
08
OC
08
OC
08
08

001928
00lB39
002168
002105
0021D8
002475
002478
002899
0028AO

Example of RLD items
from Assembler output
listing

Assembler output or RSERV
output RLO cards
~~""~r-----r-.-----r---~--r-.--.----r----.----~

All 9 RLO entries listed above are shown here as:
• 8-byte entries for items with R or P IDs unlike the
preceding item.
• 4-byte entries for items with Rand P IDs the same
as the preceding item.

Card
Deck
Seq
No.
Seq
No.
(

\
Variable number of RL D entries,
8 or 4 bytes each.
""",

"'" "'"
Relocatable Library
RLD Record
(160 bytes)

I

Variable Field (56 bytes)

I
I
/

"'" "

56 bytes of
RLD Entries
from 1st Card

RLD Entries
from 2nd Card

RLD Entries
from next
Card

Variable Field (128 bytes)

Relocatable
Library Block
(322 bytes)

160 bytes

Relocatable
Library Track

Figure 64.

166

160 bytes

322 Bytes

Relocatable Format of RLD Records

DOS System Control

(

The following chart is to be used as an aid in determining the ESID number being calculated on Chart TS and TT in MAINTR2
program. ESID in the chart refers to the ESID number of the input ESD record. The chart is followed by an example where
one ESD item from the input record will fill the relocatable library record.
I

2

3

X
X
X
X
X
X

X
X
X

X
X
X

AREAl

AREA2

AREA3

AREA4

ESID
blank
ESID
ESID
blank
blank
ESID
blank

ESID
ESID
ESID
ESID
blank
ESID
ESID
blank

ESID+l
ESID + 1
ESID + 1
blank
ESID
blank
blank
blank

ESID+1
ESID
ESID+l
ESID+l
ESID
ESID
blank
blank

Note: X = LD entries in input record.

LD

LD

LD

Move ESID of
~--------- 1st SD (input ~---­

ESID field)

Figure 65.

ESID=4
ER

Move ESID of
Next
2nd SD (input ~Output
ESID field +l)
ESID

Calculation of ESID Numbers in MAINTR2

)

Librarian Maintenance Programs

167

MAINTR2 +4

MAINTR2

MAINTR2 + 8

INITIALIZATION

Chart TL

On the initial entry to MAINTR2, SYSIPT is opened and the
system directory is checked to see if the relocatoble librory
is allocated. The initialize routine branches to:
CATALR to catalog a module if the entry to this progrom
was RMAINT.
DELET to delete a module name(s) from the RL directory
if the entry to this progrom was RMAINT+4.
RENAME to change the name of a module in the RL
directory if the entry to this progrom was RMAINT+8.

•
•
•

CATAWG~
~

DELETE

DELET
DELETE A MODULE,
PROGRAM, OR LIBRARY

RENAME

CATALR
CATALOG A MODULE

?

Charts TP and TQ

A module is deleted from the relocatable Iibrory by
blanking the name field in the directory entry for the
module. Refer to Figure 8 for the format of the
relocatable librory directory.

Charts TM and TN

The RL directory is scanned to see if an existing module is
to be replaced. The name of the existing module must be
deleted from the directory by the delete routine previous to
cataloging the new module. The program branches to
DELNER to delete the directory entry and returns to CATALR.
The directory will be scanned a second time but the name
has already been deleted.
Cards are read from SYSIPT (module to be cataloged) and
analyzed as to type. A. blocks are built, they are cataloged
starting at the next available block in the library. The
progrom bronches to RCESD to build ESD records, to RCRLD
to build RLD records, and to RCTXT to build TEXT records.
Other types of cards are cotologed in card image.
See Figure 61 for an example of a module in the
relocatable library. After the module is cataloged (END

(
RENAME
Chart TW

RENAME A MODULE

To rename a module in the relocatable librory, the

statement is read), the RL directory and system directory ore

new name (second operand of the control statement)

updated and written on SYSRES. The progrom then returns
to ENTMAI in MAINT root phase.

replaces the old name (first operand). The updated
RL directory block is then written on SYSRES. Refer
to Figure 8 for the formot of the relocatable
library directory.

End of
Module

YES

(ENTMAI, MAINT
Phase, Chart 39

NO
TXT

ESD
Card Type

RLD
RCRLD

RCESD
BUILD ESD RECORD

Charts TR, TS, and TT

Refer to Figure 62 to aid in the conversion of ESD input
records to

RL

records.

The ESID of each record, regardless of the length of the
variable field, is the ESID of the first non- LD item in the
variable field. Use Figure 65 to aid in setting up ESID save
areas on Chart TS.

Chart 41.

168

~

BUILD RLD RECORD

RCTXT
Chart TV

Refer to Figure 64 to aid in the
oonversion of RLD input records to
RL records.

Chart TV

Refer to Figure 63 to aid in the
oonversion of TXT input reoords to
RL records.

I

8

Relocatable Library Maintenance Program (MAINTR2)

DOS System Control

BUILD TXT RECORD

(

SOURCE STATEMENT LIBRARY MAINTENANCE
PROGRAM MAINTS2, CHART 42
MAINTS2 is fetched by the root phase MAINT
to service the source statement library.
It is fetched from SYSRES when a control
statement involving the source statement
library is read by the MAl NT root phase.
MAINTS2 catalogs, deletes, or renames books
in the source statement library. See
Figure 66 for the format of the control
statements used in MAINTS2.

CATALS sublib. bookname = Catalog Control Statement

J}

DELETS sublib. book! ['sublib. book2, •••

Delete Control
Statements

DELETS sublib. ALL
RENAMS. sublib. oldname, sublib. newname

= Rename Co"trol
Statement

Figure 66.

Source Statement Library
Maintenance Control Statements

There are two types of information
stored in the source statement
library: MACRO definition books and source
deck books. See Figure 11 for the source
statement library format and Figure 10 for
the source statement library directory
format.

BKEND [sub.baok]

G SEQNCE] Gcount [,COMPRSD]

There are two types of source statement
library book header cards: BKEND header
cards and MACRO header cards. See Figure
67 for header card formats.
The BKEND
header card provides the user with any or
all of the following options:
• Input sequence checking.
• Input card counting.
• Accepting input in compressed format.
The BKEND card or parts of it may be
omitted when cataloging, but must be
present if the input is in compressed
format.
A BKEND trailer card must end a
book if a BKEND header is used.
A MACRO header card starts a MACRO
definition book and the MEND card must be
the last card of that book. There may be
any number of control statements in any
sequence involving the source statement
library.
However, it is not possible to
catalog and to delete the same book from
the source statement library in the same
job step.
The MAINTS2 phase is completed when a /*
or /& card is read. After the end card has
been read, the system directory is updated
to reflect the changes that were made in
the source statement library.
Control is
returned to the MAINT root phase and
~ffiINTS2 is completed.

= Book End

Header

Statement

= Book End

BKEND [sub.book]
MACRO

=Macro header statement

MEND

=Macro trailer statement

Figure 67.

Trailer

Book Header Card Formats

)

Librarian Maintenance Programs

169

MAINTS2+4,
DElENT

MAINTS2,
CATENT

MAINTS2+8,
RNMENT

Which Operand

NEW NAME

OWNAME
CATAlS
CATALOG A BOOK

DElETS
DELETE A BOOK OR
SUB-LIBRARY

Chart UA

All error switches are reset.
The operands on the CATAlS
card are checked and switches
are set to perform the operatians called for. If the entry
is the first into MAINTS,
the system directory is read
into storage. The name of the
book to be cataloged is put
in the source directory list.

MVBCAT

RENAMS
RENAME A BOOK

Chart UA

6

Chart UB

All error switches are reset.
The address of the old name
operand is saved. If the entry
is the first into MAINTS,
the system directory is read
into storage. The old book name
is put in the book catalog field.

All error switches are reset.
If the entry is the first into
MAINTS, the system directory is
read into storage.

,
Chart UB

BOOK NAME VALIDITY

The book name is checked to make sure the first character is alphameric
and the remaining 7 are alphameric or numeric.

DELETE

Operation
in Process

RENAM

ENTMAI, MAINT
Phase, Chart 39

(

CATALOG

WAITBO

MAINTS2+12,
FINENT

Charts UC to UH

I/O CONTROL - READ, COMPRESS,
AND CATALOG BOOK
The MACRO or BKEND header card is read.

FINSHS

If a BKEND card,

FINISH MAINTS PHASE

switches are set to perform any ,of the options the user called
for (sequence checking, card counting, or input in compressed

Chart UJ

MAINT returns control to the FINSHS routine to set a
switch to indicate the system directory has been
updated and written on SYSRES. Control is returned
to the MAINT program, and MAINTS is finished.

format). The source cards of the book are read and put into the
output block 'in compressed format. If already compressed the
input is put directly in the output block. If not, the input is
compressed and then put in. When the output block becomes
ful', it is written into the source statement library. The program
checks each card to see if it is a MEND card ending in a MACRO
definition book or a BKEND card ending in a source deck.

ANAlEN, MAINT
Phase, Chart 39

When the last card is recognized t it is written into the source

statement library with a hexadecimal zero at the end to identify
end- af- book. A switch is set indicating the next card read will
be the first card of a new book.

I

AllTHT
All THROUGH PROCESSING

Chart UJ

Tbe system directory and source statement directory are

updated to reflect the changes in the source statement
library and the system directory is written on SYSRES. A test is made
to see if a card was read after the BKEND or MEND card. If so,
this signifies a new book is ready to be processed. The exit to MAINT
is determined by the type of extra card that was read.

I
Chart 42.

170

ENTMAI, MAINT,
Phase, Chart 39

.J

Source Statement Library Maintenance Program (MAINTS2)

DOS System Control

(

AllOC id=cylin{track) [, id=cylin{track),

00

oJ

Where:
id refers to library identification (either Cl, Rl, or SL.)
cylin refers to the total number of cylinders to be allocated to the library,
including the directory
0

track refers to the number of tracks to be allocated to the directory
Note: All operands used must be on one control statement

Figure 68.

0

0

Reallocation Control Statements

SYSTEM REALLOCATION PROGRAM (MAINTA), CHART
43
MAINTA is fetched by the phase MAINTCN.
when a control statement requesting system
reallocation is read by MAINT, the library
condense program (MAINTCN) is fetched to
condense all directories and libraries
before reallocation. After the condense is
complete, MAINTA is fetched from SYSRES by
MAINTCN.
SYSRES is reallocated by
redefining the sizes of the directories and
libraries. See Figure 68 for the format of
the reallocation control statement.

// VOL SYSRES,IJSYSRES
// DLAB 'DOS 16K DISK SYSTEM RESIDENCE
FILE'
// EXTENT extent information
// EXEC MAINT
ALLOC

id=cylin (tracks)
[,id=cylin(tracks) .•• l

/*

/&

Control statement input for the
reallocation fUnction, read from the device
assigned to SYSRDR, is as follows:
/ / JOB jobname

Refer to Figure 69 for the format of the
reallocation tables and to Figure 70 for an
example of the method used by MAINTA to
reallocate SYSRES.

)

Librarian Maintenance Programs

171

COOSA
ROOSA }
SooSA .

DISPLACEMENT (DECIMAL)

20
22
24

48
50

26

54

01 RECTORY TABLE
Old starting address (CCHH)
New starting address (CCHH)
Number of tracks used
Number of tracks allocated
Number of blocks used
Tracks of displacement (Note I)
Block size
Update code (Note 2)
Number of blocks per track
Entry size
Number of entries per block
Displacement of disk address in entry
LIBRARY TABLE
Old starting address (CCHH)
New starting address (CCHH)
Number of tracks used
Number of tracks allocated
Number of blocks used
Trocks of displacement (Note 1)
Block size
Update code (Note 2)
Number of blocks per track
Record size
Number of records per block
library identification

28

56

Table for next directory

~

8
10
12
14
16
18

20
22
24
26

CLOSA }
RLOSA
SLOSA

0
4
8
10
12
14
16
18

28
32
36
38
40
42
44
46

52

Note I: The tracks of displacement is the number of trocks that must be added to or
subtracted from the old disk address (displocement 0) to arrive at the new disk
address (displacement 4).
Note 2: The update code is a 0 if the tracks of displacement (displacement 14) is 0, I
if the tracks of displacement is positive, and 2 if the tracks of displacement
is negative.

Figure 69.

MAINTA Reallocation Table

(

172

DOS System Control

55

Does Not
Move

reallocation is accomplished within the disk storage area allocated to SYSRES.
Note 1: Pass 1 is a forward scan of the directories and libraries beginning with the core image library. Track 0 of
label cylinder has been stored on cylinder O.
Note 2: The CI directory wi II never be moved from its predetermined starting disk address (Cyl I, track 0.) by MAINTA.
Note 3: On pass I, all libraries and directories that must be moved to a lower disk address are moved. Only active
blocks are moved.
Note 4: On pass 2, all libraries and directories to be moved to a higher disk address are moved. Only active blocks
are moved.
Note 5: To format an unused track, the key field and the data field are written in each unused block of the directory
or library. The data field is blank except for an asterisk in byte position 1.
Note 6: The relocatoble library and the source statement library are not formatted.

Figure 70.

Method Used by MAINTA to Reallocate SYSRES

)

Librarian Maintenance Programs

173

(

MAINTA

)

l

MAINTA
Charts VA, VB
PROUS5 ALLOCATE CONTROL
STATEMENT
Refer to Figure 68 for the format of the ALLOC control
statement. The operands of the ALLOC statement
are analyzed and a table containing the reallocation
information is built from the statement.

!

GOONI
Chart VC
UPDATE RECORD 4 OF
SYSTEM DIRECTORY
All 4 system directory records are read
into storage. Using the information
stored from the ALLOC statement, record
4 (system allocation record) is updated.
Refer to Figure 4 for system directory formats.

1

BLDTB
BUILD REALLOCATION TABLES

Charts VD, VE

A reallocation table is built for each
of the three directories and each of the
three libraries in this sequence:
I. CI directory at label CDOSA
2. CI library at label CLOSA
3. Reloc directory at label RDOSA
4. Reloc library at label RLOSA
5. SS directory at label SDOSA
6. SS library at label SLOSA.
Ea'ch of these tables are 28 (decimal)
bytes in length. Refer to Figure 69 for
the displacement and name o(each field
in the reallocation tables. Refer to the
program listing for initial values in the
fields of each table. The tables begin at
label CDOSA.

l

UPSYSN
UPDATE SYSTEM DIRECTORY
RECORDS I, 2, AND 3

Chart VF

Using the reallocation tables that have been built,
system directory records 1, 2, and 3 are updated
in storage. Refer to Figure 4 for system directory
formals and Figure 69 for the reallocation tables.
The fi"t track of the label cylinder is stored on
cylinder 0, track 2.
SYSRES is opened to determine if the upper
extent of file IJSYSRES is valid. The message
3M661 BEGIN REALLOCATION is printed.

l

WRITE
Chart VG
WRITE UPDATED SYSTEM DIRECTORY
AND BLANK TRANSIENT, LIBRARY
ROUTINE, FOREGROUND PROGRAM,
AND PROBLEM PROGRAM PHASE DIRECTORIES
Refer to Figure 3 for allocation of
these directories.

~
Chart 43.

174

System Reallocation Program (MAINTA)

DOS System Control

9

DIRUP
UPDATE LIBRARY DIRECTORIES

Chart VH

The library directories are read into
storage one block at a time. Each entry
in the directory block is updated
using the reallocation tables. The
updated directory blocks are written at
the same disk address from where they
were read. No relocation of the
directories takes place at this time.
Refer to Figures 6, 8, and 10 for the
formats of the CI library, Reloc library,
and SS library directories, respectively.
Refer to Figure 69 for the format of the
reallocation tables.

!

MOVE
RELOCATE DIRECTORIES AND
LIBRARIES

Chart VJ

Directories and libraries are moved as specified
in the reallocation tables. This operation is
accomplished in two passes of the tables. Refer
ta Figure 70.
If the move is to a lower disk address, the
move is made on pass 1. If the move is to a
higher disk address, the move is made on pass 2.
Only the active blocks are moved. If the disk
address is to remain the same, that directory or
library is bypassed an pass 1 and pass 2. ,One
block at a time is moved. The update disk
address subrautine, TKCOMP, can either
increment or decrement the disk address by any
predetermined displacement.

~

TKFMT
FORMAT UNUSED TRACKS AND
FETCH $MAINEOJ

(

Chart VK

The format for unused tracks is the data field
with an asterisk in byte position 1. The unused
tracks are formatted in all directories and in
the CI library in this sequence:
1. CI di rectory
2. CI library
3. RL directory
4. SS di rectory
Restore fi"t track of label cylinder from cylinder
0, track 2 to new cylinder. The message 3M671
END REALLOCATION is printed.
$MAINEOJ is fetched to update the transient
library routine, and foreground program directories.

!

NEWRD, MAINT
Phose, Chart 39

(

LIBRARY CONDENSE PROGRAM (MAINTCN), CHART
44
MAINTCN is fetched from SYSRES by the root
phase MAINT when a control statement
requesting a condense or reallocation
function is read.
MAINTCN is also loaded,
together with MAINT, when $MAINEOJ requests
an automatic condense. MAINTCN condenses
any or all of the libraries and their
respective directories. See Figure 71 for
control statements that cause MAINTCN to be
fetched.

Function
Condense

Reallocate

Element

Control Statements Required

Core Image
Library

CONDS Cl

Relocatable
Library
Source Statement
Library

CONDS Rl

All Libraries

CONDS Cl, Rl, Sl

All libraries

Any ALlOC control statement

Figure 71.

Refer to Figure 4 for the format of the
system directory. Refer to Figures 6, 8,
and 10 for formats of the core image
directory, relocatable directory, and
source statement directory, respectively.
Refer to Figures 7, 9, and 11 for formats
of the core image library, relocatable
library, and source statement library,
respectively.

CONDS Sl

Condense Control Statements

)

Librarian Maintenance Programs

175

CNDCl
INITIALIZE FOR LIBRARY
CONDENSE

Chart VN

Initialize to condense core image library
directory and Iibl'Ory. Bit 6 of the linkage
control byte is turned on to prevent the
operator from pressing the attention interrupt
key while the CI directory and library are being
condensed. (The job cannot be cancelled.)
All entries in the transient, library routine,

CNDRl
INITIALIZE FOR LIBRARY
CONDENSE

Chart VN

Initialize to condense relocatable directory
and lib",ry.·

INITIALIZE FOR LIBRARY
CONDENSE

Cha,t VN

Initialize to condense source STMNT directory
and library.

LlOCS open and foreground program directo;ies

are cleared. The sub-directories will be built,
after Job Control reads a /& control statement,

by $MAINEOJ.

MAICON

ENDROU

CONDENSE A DIRECTORY

Chart VP

A scan is made of all entries in the directory.
New directory blocks ore built from the entries
that have not previously been deleted.
Deleted entries are omitted from the new
directory blocks.

FINISH THE CONDENSE OPERATION Chart VR
The last (new) directory block is written in the
directory. The system directory is updated and
written. Bit 6 of the linkage control byte is
tumed off to allow attention interrupts.

Switches have been set in displacement 22 of
the supervisor communications region indicating
which libraries are to be condensed.

MAINTCN is called when:
1. A CON OS control statement has been read
by MAINT. One library is condensed at
a time. Return to MAINT for the next
operand in the CON OS statement or to read
the next control statement.------I-o
2. An AllOe control statement has been read

by MAINT. All lib""i .. are condensed
befo,e MAINTA is f.tched.
3. An automatic condense of one or more

(

lib""ies has been ,equested by $MAINEOJ.
The requested libraries are condensed
befo,e $MAINEOJ is fetched.

RDllB

When a phase entry that is not deleted is found,
the phase is n'l)ved ahead in the area allocated
to the library, thereby removing phases from
the library that were previously deleted from
the directory. The phase is moved one full
track at a time. After the entire phase has been
relocated, the directory entry is updoted. New
directory blocks are written as they become full.

Chart 44.

176

Library Condense Program (MAINTCN)

DOS System Control

(

SET CONDENSE LIMITS PROGRAM (MAINTCL),
CHART 45
MAINTCL is fetched from SYSRES by the root
phase MAINT when a control statement
requesting the setting of the automatic
condense limits in the system directory is
read. See Figure 4 for the format of the
system directory.
MAINTCL sets condense
limits for all or any of the libraries.
The control statement that causes MAINTCL
to be called is:
CONDL

Objectives of $MAINEOJ are:
1.

Determine if the condense limits in the
system directory have been exceeded and
call MAINTCN if an automatic condense
is necessary.

2.

Build sUbdirectories by scanning the
core image directory and extracting
those entries that belong in the
subdirectories. Refer to Figure 3 for
the organization of the directories on
SYSRES. Subdirectories maintained in
this system are:

CIFnnnn,RIFnnnn,SL=nnnn

Whenever the number of active entries is
equal to or less than the condense limits
set by ~~INTCL, $MAINEOJ calls MAINTCN to
condense.
UPDATE SUB-DIRECTORIES PROGRAM ($MAINEOJ),
CHART 45

Job Control at the completion of MAINT
or $LNKEDTC.

•

CORGZ after copying the system to
SYS002.

•

MAINTCN after performing an automatic
condense operation requested by
$MAINEOJ.

Transient subdirectory ($$)

•

LIOCS open subdirectory ($$BO)

•

Library routine subdirectory ($)

•

Foreground program SUbdirectory (FGP)

Note: The library routine subdirectory
may be referred to as the preferred
program directory.

$MAINEOJ is fetched by:
•

•

3.

Print a system status report on SYSLST
using the entries in the system
directory. Refer to Figure 76 for a
sample printout of the system status
report.

4.

Issue a SVC 14 (EOJ). This is the
completion of the maintenance run.

)
Librarian Maintenance Programs

177

(

MAlNTCl

BEGINN
SET .c.ONDENSE LIMITS

•

Chart VU

Automatic condense limits are set in the
system directory. Refer to Figure 4 for
the format of the system directory records.
The condense limits are changed to the
limits specified in the CONDl control
statement. Condense limits remain unchanged
in the system directory until another CONDl
control statement is issued.

G

NEWRD, MAINT
Phase, Chart 39

Charts VV and VW
Initialization: Change CCB to write on SYSOO2
instead of SYSRES if SMA! NEOJ was fetched by
CORGZ.
The automatic condense limit is compared to
the number of available blocks in each of the first
3 system directory records. If the condense limit
has been reached, information indicating which
libraries are to be condensed, is saved in the
communications region for MAINTCN.
Note: If there are no deleted blocks (noth ing to
condense) or no condense limit is specified, no
automatic condense can take place for that
library.
If one or more libraries require an automatic
condense, MAINTCN is called.

YES

NO

AUTONO
UPDATE SUB-DIRECTORIES

(

Charts VX to VZ

Before building new sub-directories, the
tracks where they are to be written are
cleared. One scan is made of a II entries
in the core image directory. When an entry
to be included in one of the sub-directories
is found, it is moved to the correspanding
sub-directory output buffer areas. As these
buffers become fu II or when the scan of the
core image directory is complete, the buffer
areas are written on SYSRES (or SYSOO2).
Sub-directory entries are identified by the
prefix characters in the phase name.
These prefixes are:
•
FGP for the foreground program sub-directory.
• $ for the library routine sub-directory.
• $$ for the transient sub-directory.
• $$BO for the llOCS open sub-directory.
Refer to Figure 6 for the organization of the
sub-directories and core image directory.
DSERV
Charts VX, TG, and TH
The system status repart is printed from the
system directory. Refer to Figure 76 for a
sample printout of this repart.
Reset bit 7 in the linkage control byte.
This indicates to Job Control not to fetch
$MAINEOJ again.

Chart 45.

178

Update Directory and Set Condense Limit Programs ($MAINEOJ and

DOS System Control

MAI~TCL)

(

SECTION 7~·LIBRARIANORGANIZATION PROGRAM

The copy program 
• Controls processing in the SFPPE
Appendix A. Label List

199

subroutine (Charts CV, CW)
LIOSYX ••••••. BS
Routine within the LISTIO statement
processor used to process the operand
Sysxxx.
LISTIO ••••••• BP
Initial entry into the LISTIO statement
processor.
LUSADD
Listing only: Label of a 2-byte
location used to hold the address of the
LUB being assigned. Loaded by the
subroutine, Sysxxx.
LUBCOM
Listing only: Label of a 2-byte
location used for temporary storage of a
LUB for comparison. Used by the SCNLUB
subroutine.
MODSW
Listing only:
BANK1+1, bit 7: If on, specifies that
the mode must be set for this
assignment.
• Set ON: ASSGN statement processor
(Chart CB)
• Set OFF: INITL subroutine (Chart CR)
• Controls processing in the ASSGN
statement processor (Charts CD, CE)
NEWLUB
Listing only: Label of a 2-byte work
area in which a LUB is built for a new
assignment. The subroutine TXCUU
computes a PUB pointer and stores it in
byte O.
NEWPUB
Listing only: Label of a 2-byte
location used to hold the address of the
PUB to be assigned to the LUB that is
being assigned. Loaded by the
subroutine TXCUU.
NOC
Listing only: Label of a 2-byte
location used to hold the number of
logical units of a class. Loaded by the
GETLAN subroutine.
NOEXC . • • • • • •. CL
NOMRJB
CY
NUMCON
CR
Subroutine: converts to EBCDIC numbers
(0-9) to binary in WRKRG3.
OLD PUB
Listing only: Label of a 2-byte
location used to hold the address of the
PUB currently assigned to the LUB that
is being reassigned. Loaded by the
subroutine SYSXXX.
OUTPUT ••••••• CQ
Subroutine: Displays on SYSLST and/or
SYSLOG.
OUTPUTS •••••• CQ
Subroutine: Displays a line and skips a
line on SYSLST and/or SYSLOG. Clears
I/O buffer and work areas to blanks.
OUTPUT1 •••••• CQ
200

DOS System Control

Subroutine: Displays a line on SYSLST
and/or SYSLOG. Clears I/O buffer and
work areas to blanks.
OUTPUT2 •••••• CQ
PROGSW
Listing only:
BANK1, bit 5: If ON, specifies that the
programmer LUBs are to be scanned.
• Set ON: LISTIO statement processor
(Chart BS), ASSGN statement processor
(Chart BZ), RESET statement processor
(Chart CJ)
• Set OFF: INITL subroutine (Chart CR)
ASSGN statement processor (Chart BZ)
• Controls processing in:
1. LISTIO statement processor (Chart
BQ)
2. ASSGN statement processor (Chart BZ)
PUBMSK ••••••• CV
RESET •••••••• CJ
Initial entry into the RESET statement
processor.
RESETSW
Listing only:
BANK1., bit 7: If ON, specifies RESET in
progress.
• Set ON: RESET statement processor
(Chart CJ)
• Set OFF: INITL sUbroutine (Chart CR)
• Controls exit from the RSTSTD
subroutine (Chart CU)
RESET01 •••••• CJ
RESET1 ••••••• CJ
RESET11 • • •• •• CK
Routine in the RESET statement processor
used to reset all LUBs to standard.
This routine is also entered as a
subroutine from the DVCDN statement
processor.
RESET2 ••••••• CK
RESET3 ••••••• CK
RESET4 ••••••• CK
RESETS ••••••• CK
RESET8 ••••••• CK
RETADD ••••••. BP
RETSW
Listing only:
BANK1, bit 3:
• Set ON: SFPPE subroutine (Chart CV)
ASSGN statement processor (Chart CE)
• Set OFF: ASSGN statement processor
(Charts CB, CE, CF)
DVCDN statement processor (Chart BU)
INITL subroutine (Chart CR)
• Controls processing in the SFPPE
subroutine (Charts CV, CW)
• Controls processing in the GETJIB
subroutine (Chart CU)
RSTSTD ••••••• CU
Subroutine: Restores a LUB to its
standard I/O assignment or unassigns a
non-standard assignment.
RSTSTD1 •••••• CU
RSTSTD3
CU
RSTSTD4 •••••• CU

(

(

SCNJIB ••••••• CN
Subroutine: computes address of a JIB
in register POINT3. The stored LUB of
the JIB is moved to the location JIBCHN.
SCNLUB ••••••• CN
Subroutine: Makes all LUBs of a class
available one at a time. The current
LUB is made available in the location
JIBCHN. The address of the next LUB is
saved in the location SLADD. The
residual number of LUBs (in a class) is
saved in the location SNICL.
SFNC • • • • • • • •• CY
SFPPE •••••••• CV
Subroutine: Scans the LUBs for equal
PUB pointers. LINKR4 is used to
re-enter the subroutine from the calling
sequence.
SFPPE01 •••••• CV
SFPPE02 •••••• CV
SFPPE03 •••••• CP
SFPPE1 ••••••• CV
SFPPE10 •••••• CW
SFPPE12 •••••• CW
SFPPE13 •••••• CX
SFPPE14 •••••• CW
SFPPE15 •••••• CX
SFPPE16 •••••• CX
SFPPE17 •••••. CX
SFPPE18 •••.•• CX
SFPPE19 •••••• CW
SFPPE2 ••••••. CV
SFPPE201
CW
SFPPE3 ••••••• CP
SFPPE4 • • • • • •. CV
SFPPE5 ••••••• CV
SFPPE6 • • • • • •• CV
SFPPE7 .•••••• CV
SFPPE8 ••••••• CW
SFPPE8A •••••• CW
SFPPE9 • • • . • •. CW
SKIPLN ••••••• CQ
Subroutine: Prints a blank line on
SYSLST and/or SYSLOG to simulate a line
skip.
SLADD
Listing only: Label of a 2-byte
location used to hold the address of the
first LUB of a class. Loaded by the
GETLAN subroutine.
SNICL
Listing only: Label of a 2-byte
location used to hold the number of
logical units of a class. Loaded by the
GETLAN subroutine.

)

STDFDSW
Listing only:
BANK1, bit 2: If ON, specifies that a
stored standard assignment has been
found.
• Set ON: SFPPE subroutine (Chart CW)
• Set OFF: SFPPE SUbroutine ...DR · ......... · .....
HALT · .......... · .....
HARDWT · ........
INDIB · .............
INHWRITE . .. . . .. .. . .

GA
GD
GA
GD
GA
FH
FQ
FQ
FE
FE
FE
FN
GB, GF
FL
FS
FS
FU
FJ
FK

JIBTYP

......

LDREGS
LGD
LGDl
LGDD
LMERA ................................
LOGPRC ..............................
LOGPRCl ......................
LOOKUP ..............................
LOOKUP ..............................
LTA ...... ... ............... ,. . '
LTABSY
................

FM
FL

I• • • •

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

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

....

I. . . . . . . . . . .

I. . . . . . . . . . . . . . . . . . . . . . . . . . . . .

.....

'

...

'

•

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

I. . . . . .

FM
FN
FL
FL
FL
FD
FM
FM
GB
GF
GY
GK

· ..............
· ....... .........
NOCCBl ..... .... .........
NO LOADAD
·.......
NOLOADAD
· .......
NOPINS · ...... ·.... ..
NOPINSTR ... ,,. ..........
NOQUIS · ..............
NORCD · ................
NOTBSY · ,. .............
NOTIC · .................
NOUTCK · ..............
.ONEBL · ........... ,. .....
ONE BLOCK . ............
OPCLOSE · ..............
OPCLOSE ....... .......
OPTRTl · ...............
OPTRT2 · .... ...........
OURSIO · ............ ...
PCHDIB · ... ............
PCHKSW · ...............
PCHKSw · ...............
PCHKSW · . .............
PCITRT · ..............
POSTCE · ..............
PREFERED
·.......
PREFERED
·.......
PROTECT · ..... ·.......
PRTPRG · ................
PSTEOF .......... .......
PUBDEQ · ........... ...
PURGE · ...............
QISRTl · ..............
QISRT2 · ... ...........
QISRT3
QUISIO · .... .............
QUISI02 · ...... .......
QUISI03 · ...............

FZ
FZ
FZ
FZ
FZ
FZ

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

FV

MACHEK
MVZEX

,.

'

'

,.

'

,

'.'

'

'

'

'

'

'

'

•

FH
FV

I. . . . . . . . . . . . . . . . . . . . . .

•

i. . . . . . . . . . . . . .

'

'

RCVERR

'.'

'

FY
FU
FT
GB
GF
FL
FL
FZ
GV
FP
FL
FU
GC
GC
GA
GD
GT
GT
FY
FM
FB
GQ
GR
GT
FR
GA
GD
FL
FU
FR
GM
FP

Appendix A. Label List

207

.......

RDDIR2
RDDIR2
..............
RDHA9 ....................
RDTXT
.................
RDTXT
............. .. . . . .. .
READUPDT .. . . .. .. .. .. ...........
RECNO-4 ................
RESCHK ..................
RES ERR .......... '
RESVC
. .. .. . . .. ..
RSETWAIT
RSTPUB
RSTREG
RTYl
.. .. .. .. .. .
RTY9
.. .. .. .. .. .. .. ............

GB
GF
GV
GC
GF
GG
GG
FU
GV
GK
FP
GG
FX
GV
GV

SEEKTEST ..............
SEKCHK ..................
SEKCHKl ............
SELBMX
SELECT
SETLTl .. . .. . .
SETLT2 ..............
SETLT2 .. . . .. .. .. ..
SETLT2A .. . .. . .. ..
SETOPl
SETOPl
SETOP2
SETOP2
SETSVAR
SETSVAR
SIO
STDEXT
STMODE
STRTIO
STRTIO
STRTIOl
STRTIOl
STRTED
STRTED
SUPCNL
SUPEXP
SUPEXT
SVCOO
SVCOl
SVC01A
SVC02
SVC02
SVC02A
SVC03
SVC04
SVC05
SVC07
SVC08
SVC09
SVC10
SVC10A
SVCll
SVCll
SVCllA
SVC12
SVC13
SVC15
SVC18
SVC19
SVC2BND
SVC22
SVC22A

FL
GV
GV
FQ
FQ
GK
FC
GK
GK
GQ
GU
GQ
GU
GC
GF
FK
FV
FK
FJ
FK
FJ
FK
FJ
FK
FV
FF
FD
FF
GJ
GJ
GK
GL
GK
GM
GM
GJ
GM
GN
GN
GN
GN
GK
GL
GL
GJ
GJ
FF
GU
GU
GK
GP
GP

·

'

.......

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

CO

........

.......

'

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

·.....
. . . . .........
. .. ....
......
'

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

· ....... · .....
· ........
· .........
··.........
.........
· .....
........ · .....
·.....
· ....... ·.....
· ..... · .....
· .....
· ..... · .....
·.........
·........
· ..... ... . . .
·· .....
......
·.....
· .........
. . . . ... ..
· .....
'

208

DOS System Control

SVC23 .. ..............................
SVC24 .. ..............................
SVC26 .. ..............................
SVCRTNl ............................
SVEREG .. ....................
SXTRTl .. ............................
SXTRTl . ............................
SYSFILE .. . . . . .e . . . . . . . . . . . . . . . . . . . .
SYSFILEl
SYSFILE2 ..........................
...............
SYSFILE3 .... ,.
SYSIN .................. .............
SYSINOUT
......... ...........

GP
GP
GP
GH
GX
GQ
GU
FM
FM
FM
FR
FM
FK

.. ..........................
..............................
.. ..........................
..'...... ........
.. ............................
...... ...........
..................
..............................
.. ............................

GB
GN
GN
GS
FH
FH
FH
GW
GW
FP
FL
FP
FR
FH
FJ
FK
FP
FM
FQ
GB
FN

.......

'

..

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

...

'

....

TESTSVC
TMEKEY
TMEKEYl
TMERTl
TPBUSY
TPBUSYl
TPBUSY2
TRKCHK
TRKEOC
TRNOFF
TRYNXT
TSTATTN
TSTBMX
TSTDEV
TSTEOJ
TSTEOJ
TSTERF
TSTNXT
TSTQEF
TSTSVC
TSTUCK

I. . . . .

'

'

'

'

,.'

,

..............................
. . . . . . . . . . . . Ie

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

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

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

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

UNCOMMON
UNTCKl
UNTCK2
USREXT
USRUCK
VALLOAD
VALLOAD
VLDADRl
VLDADR2
VLDADR3

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

· .................
·.. ............
· ................
'

.................
· .......... ...
· ......... .....
'

'

'

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

•

toe • • • • • • • •

I• • •

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

WAITLOOP

•• •

I. . . . . . . . . . . . .

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

ZROREG

Phase

'. . . . .

'

FJ
FT
FT
FT
FT
GF
GC
GX
GX
GX
GG
FS

Charts HA-HB

~~ANERRA!

·......... ......
CHECK · ................
CHKDISK · ..... ........
COMBIN ................ ...
BUSOUT

'

'

,

EQUIP
EXITA
EXITB
EXITC

HB
HA
HA
HA

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

HA

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

HA,HB
HA,HB

•

(

• • • • Ie • • • • • • • • • • •

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

HB

(

· ..............
NORCFND · .............
PROTCHK · ....... · .....
PTERP · ......... ·.....
SEKCH ·......... · .....
SKCHK · ......... · .....
INTVEN

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

UNRCERP

HB

SSELER

HB

TSTCLN
TSTRCT

HE
HF
HE

TSTRD

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

HB
HB

WRYT

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

HA

Phase $$ANERRE, Charts HG-HJ

HA
HA

Phase $$ANERRB, Charts HC-HD

•

• • • I. . . . . . . . . . . .

HF
HF

BSOT

HG

CHDATCH
CHKIS
CHKRT
CONTX

HG
HJ
HG
HG

DOSVC

HH,HG
HH,HJ
HH

CHAINCH
CHKAM
COMREJ

HC
HC
HC

DATACHK
DTCH

HC
HD

ERR
EXITA

HC
HC

FTMON
FTMSW

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

HJ
HG

HC

GOBCK

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

HJ

HD

MAINRT
MSGWTR

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

EXITA
EXITB
FILEPR
INSERT
MESG

'

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

OVERUN

•

SKSLI

•

• • • • • I• • • • • • • • •

• • • • • • • • Ie

••••••

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

TSTSSL

HD
HD
HC

VERIF

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

HD

Phase $$ANERRD, Charts HE-HF

•

DOSVC
EREV
ERG
ERR
EXIT

•

•

• • • • •

Ie

I• • •

........

·.....

I• • • •

I• • •

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

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

•

• • • • • •

I• • • • • •

I• • • •

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

I• • • •

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

NOCOMP

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

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

•••••••••••

• • • • • • • • • •

I• • • •

HG
HH

Ie • • I• • • e · . '• • • • I• • •

HJ

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

HG
HG

HC

UNKN

CNTREX
CNTRTN

•

HD
OPRFL
OVRN
RCHAN
RCNSC
REPBCK
REPFRW
RETOFF
SETSVC

)

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

HF
HF

TEBVER
TSTRD
UC
UNKN

I. . . . . . . . . . . . . . . . .

•

•

••••

I• • • • • • • • • • •

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

•

•

I• • •

e· . . . . . . . . . . . . . .

....

I. . . . . . . . . . . .

................
··.............
~

HH,HJ
HH
HG
HG
HG
HJ
HG
HJ
HJ
HJ

HF
HF
HF
HF

Phase $$ANERRF, Charts HK-HM

HF

BTOFWS
BTOTCL

HL
HL

FETCH3
FTCH2
FTCH3

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

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

HF
HE
HF

CHECK
CRC

HK
HL

MAINRT

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

HE

DOSVC

HM

HF
HF
HF

EREV
ERGRET
ERR

HM
HK
HM

RCHAN
RCNSC
RET OFF

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

• • • • • I• • • • • • •

Appendix A. Label List

209

RCHAN
READBK
REDFOR
RETOFF
RETRY
RSCH

'. . . ' . , • • • •

' •••

I• • • •

"

HM
HL

•

HK

RSTFLG

HR

HK

HM
HL

UCHK

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

WRITE
WRREP

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

T03
T06

•••••••••••••••••• HR
HR

..... - ....

-~-

.....

HK
HL

,

HL

'

Phase $$ANERRI, Chart HS

HK

'

HK

Phase $$ANERRG, Charts HN-HQ

B01
B02

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

COl

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

HP,HQ

F01
F010
F02
F03

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

HP
HP
HP
HP

A01
A02

••••••••••••••• HR

... • • • • • ... • • • • • • ,- HL

SNS
TEBVER
TSTCLN

MSGWTR

HN
HN

,

BOSO
EOSO
EOS1
E06
E062

'

· .............. ...
.....
............
..................
,

IOERR
IORTN
L01

HN
HN

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

'

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

HS
HS
HS
Hs
HS
HS
HS
HS

MOl
MSGWTR

HS
HS

R01
RSTFLG
RSTQPT

HS
HS
HS

G01

HP

H01

HP

K01

HP

L01

HQ

MOl
MSGWTR

HQ
HN,HP,HQ

COl

N01

HQ

IOERR

PHASEH
PHASEI
PHASEJ

HQ
HP
HN

IORTN
MSGWTR+4

HU
HT

NOl

HT

Q01

HQ

R01

HN,HP

RSTFLG
RSTQPT

HU
HU

T01

HP

SOl

HT

Phase $$ANERRJ, Charts HT-HU
A03
AOS
AOS1
A06

·..................
..................
·.............. -.....
· ........ ........ ....
· ..................
'

'

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

HT
HT
HT
HT
HT
HU

Phase $$ANERRH, Chart HR
Phase $$ANERRK, Chart HV
COl
C01+4

HR
HR

MSGWTR

HV

IOERR

HR

ROVER

HV

210

DOS System Control

(

Phase $$ANERRM, Chart JA

INST ................. JE
IODONE
JE
IOERR
JE

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

CCBSTR

JA

MSG2
MSG3
MSG4

JA
JA
JA

NOLOG

PHASE1

JA

PHASES
PHASE4+8

JE
JE

Phase $$ANERRN, Charts JB-JC

RELOC
RSTFLG
RSTQPT
RTYRTN

JE
JE
JE
JE

ATYPE

JC

Phase $$ANERRQ, Charts JF-JG

CALPHS3
CCBUNAV

JB
JB

COUNTRG

JC

DECCTR

JB

EXCONT

JC

IOCOMP

JC

LOGENT

EXIT

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

MPTST
NOLOG

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

OPFLAG
RESET
SVCALL

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

TSTCCB
TSTRTY

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

JF
JG

JG

KANEXT
KRETRY
LOGENT

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

JF

MPSTST

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

JF

JC
JB
JB

JE

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

JC

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

JE

NOLOG
NOPBR

JG

'

'

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

JG
JG

JG
JF

Phase $ $ANERRO , Chart JD

PHASES
PHASR

CALPH4
CUU

JD
JD

REP ERR
RSTFLG
RSTQPT

LACS~l

JD

SSMASK

NOCCB

JD

PHASE3+8

JD

Phase $ $ANERRR , Chart JH

SWITCH
SYCLAS

JD
JD

EXINTR

UNPCH

JD

Phase $$ANERRP, Chart JE
AACTION
ACTIONA
CALPH5
COUNTRG
ERRTYP

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

JE
JE
JE
JE
JE

'

'

'

· .. ................
'

........................ .....
KEYINT ..............................
LOADPSW ............................
LDPSW ................................
IOINTR

PHASES
RESPNS
RETRY
TSTATD
TSTCAN

JG
JG

'

'

·..............
· ..............
·.................
·· ..............
....... .........
'

'

JG
JF
JF
JF

JH
JH
JH
JH
JH
JH
JH
JH
JH
JH

Appendix A. Label List

211

Phases

~~ANERRS,

...

Chart JJ

EQPCHK
ERRUR+8

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

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

JM
JM

GETMSG

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

IN

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

JJ
JJ
JJ

H01

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

JJ

INTREQ

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

JM

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

JJ

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

.. . .. ,. .......... ................
MSGPRT ..............................
SET CODE ............................
TSTTRG ..............................
ZERTEB ..............................

MSGWTR
MVMSG

IN
IN

JJ

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

IN

CANEXT
CANTRN
CLRCCB
EXIT

:'.

~

IGEXIT

".

.-

KRTY

.. ............................ ..... JM
'

OVRUN
JJ
JJ

RETRY
RTY
RTYCT

..

....

I. . . . . . . . . . . . . . . . . . . . . . .

. . . . . . . . . . .e ..

JJ

1

.:I

....

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

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

SELERR
JJ
UCPBAR
UCSTST

IN
IN
JM
JM
IN
IN

Phase $$ANERRU, Charts JK-JL
Phase $ $ANERRX , Charts JP-JQ
AACT

JL

CMDREJ
CNCL

JL
JK

EQPCHK
ERRUR+8

BUS

JQ

JL
JK

CALLMW
CHDTCK
COMR

JP
JP
JP

FTHMSGW

JK

DAT

JP

IGON
INTREQ

JK
JL

MODCCW

JQ

RETRY

JQ

LOGERP
LOGTST

JL
JL

SETFLG

JP

NOSENSE

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

JK

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

RSTFLG
RSTQPT
RTYONE

JL
JL
JK

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

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

UNUSENS

Phase $$ANERR9, Charts JR-JRB
ANNUL

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

JK

........

'. . . . . . . . . . . . . . .

I. . .

JRA

.......................... JRA
CDATACK .......................... JR
CMNDREJ ........................ JRA
CONTINUE ...................... JRB

BUSOUT
Phase $$ANERRV, Charts JM-JN
ATYPE
BUSOUT
BUS1
BUS2

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

IN
JM

.......
JM
....... . ..... JM
Cl'lDREJ · .............. IN
CMDSEQ · ................. IN
CONT ........ .. . . . . ..
IN
C0100
JM
CO2
. . .. .. JM
DATCHK · ................ IN
212

DOS System Control

EQPCHK
EQUIPXIT
FETIV'lSGW
INTERV
NONREC
ONERTRY
OVERRUN
RETRY

..

....

I. . . . . . . . . . . . . . . . . . . . .

..

I. . . . . . . . . . . . .

JR
JR

· ............ JR
............. JRA
............. JRA
· ...................

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

JR
JRA

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

JRB

(

UNSUPTD

••••••••••••• JR

Phase $$ANERRO, Charts JW-JX
END
EXIT1
EXIT2

Phase $$ANERRY, Charts JS-JT
CALLSEC3 ...........................
CANTLP . .. . .. . . . .. . . .. . .. . .. ..
CHQOVFLW . . .. .. . . . . . . . . . ..
CNCLMSK .. . .. . . .. . .. . .. .. . .. ..
CNCLSW ................................

JT
JS
JS
JT
JT

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

JS

.

HOLDQUE

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

PAR40
PAR41
PAR42
PAR43
PAR44
PAR45
PTRXCH
WAIT1

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

JX
JX
JX

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

JW
JW
JW
JW
JW
JW
JX

-

.................................
. . . . . . . . r. . . . . . . . . . . . . . . . . . . . . . . .

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

IJBPAR2+8 ••••••••••••• JS
INVAL • • • • • • • • •• • • • • • •• JT

$$ANERR1, Chart JY

LOGRTN • • • • • • • • • • • • • • ••
LOGTST .•••••••••••••••
LOGWAIT •••••••••••••••
LOG1 • • • • • • • • • •• • • • • • ••
LOG2 ••••••••••••••••.•

JS
JS
JS
JS
JS

ERR

POSTCAN

JT

RSTCHQ

JS

SETARON

JT

TCAN2

JT

WAIT

JW

............ '... .. .. .. .. .. .. .. .. .. .... JY

B-Transient Initiator and Nonresident
Attention Routines (Section 4)
The first section of this label list
contains the labels that are found in the
listing only. Although these labels do not
appear on any flowchart, an understanding
of them is important.

.. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .. .... JS

Listing Only Labels
Phase $$ANERRZ, Charts JU-JV
BYCNL

JV

CALLSEC2
CNCLLOOP

JU
JV

ENDPUBS1 •••••••••••• JU
ENDPUBS3 •••••••••••• JV
EXIT • • • • • • • • • • • • • • •• JU
FINDPUB1

JU

I JBPAR1 + 8

JU

LTKHLD

JV

PUBSCN
PUBSCN3

JV
JV

QIDCK1
QUEID

JV
JV

SECTION1
SECTION3
SETPOSTL
STEPLOOP

JU
JV
JV
JV

ATABLE
Listing only: Defines a set of internal
allocation tables built by the ALLOC
processor. Because of this ~abel's
physical placement, it also defines the
internal allocation table for background
programs. The ALLOC processor uses
existing limit information, found in the
PIB, and allocation information acquired
from the ALLOC statement to establish
the table. After the allocation data
has been validity checked, and posted to
the allocation table, it is used to
update the appropriate PIB entry. The
table expansion is:
1.

A half word of padding for proper
alignment.
(This field can contain
a constant.)

2.

A half word containing the current
number of 2K blocks.

3.

A fullword containing the save area
address.

4.

A full word containing the lower
limit address.
Appendix A. Label List

213

5.

A fullword containing the upper
limit address.

BUFFER
Listing only: Defines a 72-byte I/O
area used by either the nonresident
attention routine or the foreground
initiator.
FLGBYO
Listing only: Defines a byte of program
switches:
Bit 0
1: Input is from SYSFGI.
Bit 1
1:
A read has been issued.
Bit 2
Not used.
Bit 3
0: A label block in main
storage is to be written on
the label cylinder of
SYSRES.
Bit 4 = 1: Only a VOL statement can
follow.
Bit 5
1:
Only an EXTENT, or VOL label
statement can follow.
Only an EXTENT label
Bit 6
1:
statement can follow.
Bit 7 = 1: Only a DLAB or TPLAB label
statement can follow.
FWRKFL
Listing only: Contains the load address
for the foreground program being
initiated. Used by the EXEC processor.
F1TBEN
Listing only: An internal alloc~tion
table for Foreground 1 programs.
(See
ATABLE in the listing only section.>
F2TBEN
Listing only: An internal allocation
table for Foreground 2 programs.
(See
AT ABLE in the listing only section.>
JBSLUB
Listing only: A halfword work area
primarily used with the scan JIB or scan
LUB subroutines. When used with the
scan JIB subroutine, this area contains
the LUB image information (PUB pointer
and JIB pointer) found within a JIB
entry.
when used with the scan LUB
subroutine, this area contains a true
LUB entry used within the unassign
routine for comparisons.
LBLADR
Listing only: Defines an area that
contains the address of the temporary
label storage area (Foreground origin
plus 1728).
LBLSTR
Listing only: Defines an area that
contains the address of the label
storage area. This address follows the
register save area.
LBSLUB
214

DOS System Control

Listing only: Defines an area that
contains the LUB entry found by a scan
of the LUB table. This label can be
described as a parameter passing area.
MTRSVD
Listing only: A one-byte switch used
when the file type has been found to be
sequential disk (SD).
Bit 0 = 1: The logical units, or volume
serial numbers, or the bin
numbers are different
between this extent and the
previous extent.
Bit 1
Not used.
Bit 2
1:
This is the last extent.
Bit 3
1: The bin numbers are
different but the unit
numbers are the same between
this extent and the previous
extent.
Bits 4-7 = Not used.
PHSNAM
Listing only:
containing the
the phase name
loaded.
PHSNUM
Listirig only:
containing the
phase name.
RGSVAR
Listing only:
area.

Defines a seven-byte area
first seven characters of
of the B-transient to be
Defines a one-byte field
last character of the

Defines the register save

RG2SVA
Listing only: Defines an area within
the register save area that contains the
contents of register 2.
SCNSTP
Listing only: Defines a one-byte area
that contains the character that caused
the general scan routine to stop
scanning.
(Contains the scan delimiter>
SYSTBL
Listing only: Contains the table
arguments for a translate operation
searching for a system class unit.
TABLE
Listing only: Defines the branch vector
table used to load and execute
B-transients required by either the
nonresident attention routine or the
foreground initiator. If a START
statement has been processed indicating
the B-transients are functioning as a
foreground initiator, the branch vector
table is expanded to handle this
function by adding the table entries
starting at location INTABL. Each table
entry consists of:

•

Operation field of the control
statement.

SCNRL1
SCNRL2

•

Phase identifier (an alphabetic
character) •

•

Branch vector index factor used to
get the first executable instruction
of the processing phase.

TMPAR1 ................ KA
Defines a doubleword save area used in
conjunction with the general scan
routine (Chart KD). The first word is
loaded from register POINTl with the
address of a statement field (operation
code or operand). The second word is
loaded from register POINT2 with the
remaining I/O area (see label BUFFER).
Also used as an entry point during
B-transient initialization.

Phase $$BATTNA Root, Charts KA-KD
BTLOOP ............... KB
Beginning of a table lookup in the
branch vector table to find the
appropriate B-transient required for
further processing.
CHKSTT • • • • • • • •• • • • •• KB
CONTROL ••••••• '. • • • •. KB
Entry point for the routine to obtain
the input statement.
DTCHAT •••••••••••••• KA
Entry point to the coding that detaches
the attention routine from the task
selection operation within the
supervisor program.
DTCHS Z • • • • • • • • • • • • •• KA
Test to determine if the task is to be
detached.
DTlNUN ••••••••• '. • • •• KC
Entry point to the read subroutine
(RDSTMT) when continuation information
is expected.
ERRRTN •••••••••••••• KC
Entry point for error processing.
EXCPRG ... • • • • • • • • • • •• KC
Entry point to the subroutine used to
issue a SVC O.
NDSCAN •••••••••••••• KD
NVSERR •• • • • • • • • • • • •• KC
Entry point to the subroutine used to
send appropriate error messages.
RDSTI4T • • • • • •• • • • • • •• KC
Entry point to the subroutine used to
read input from SYSLOG or SYSFGI.

)

SCANR1 •••••••••••••• KD
Entry point to the general scan routine
when the operation code field of a
control statement is required by the
calling routine.
SCANR2 • • • • • • • • • • • • •• KD
Entry point to the general scan routine
when the first operand field of a
control statement is required by the
calling routine.
SCANR3 • • • • • • • • • • • • •• KD
E.ntry point to the general scan routine
when other operands are required by the
calling routine.

KD

KD

Phase $$BATTNB Message Processor, Charts
KE-KF
CKEF1F2 ••••••••••••• KE
Entry point to a subroutine used to
return the key of the area referenced as
either Fl or F2 in the operand of a MSG
statement.
EXTINT
MSG

KE

• • • • • • • • • • .. .. • • • •• KE
Entry point to the MSG statement
processor.

SET EXT •••••••••••••• KF
STEXCD •••••••••••••• KF
Entry point to a routine used to check
and set the external interrupt exit
table for linkage to a program that is
identified by the key specified.

Phase $$BATTNC CANCEL, LOG, NOLOG, and
PAUSE Processor" Charts KG-KH
ANAERR •••••••••••• '.. KG
Entry point for error processing.
CANCEL •••••••••••••• KG
Entry point to the CANCEL statement
processor.
CANCLB ............. '.. KG
Start of CANCEL statement processing for
a batch only system.
CKBF12 •••• '. • • • • • • • •• KG
Entry point to a subroutine used to:
1.

Identify the operand.

2.

Return the corresponding key to the
calling routine.
CNCLIN •••• '. • • • • • • • ... KG
CNCLME •••• ,•••• '. • • • •• KG
Cancel processing steps when it has been
determined that the B-transient now
being executed is now being canceled.
CNLRTN ..... ,••• '. • • • • •• KG
Appendix A. Label List

215

Entry point to the subroutine used to
set the cancel code in the PIB.
LOG

• • • • • • • • • • • • • • • •• KH

Entry point to the LOG statement
processor.
NOLOG • • • • • • • • •• • • • •• KH
Entry point to the NOLOG statement
processor.
OPRSNT

• • • • • • • •• •.• • •• KG

PAUSE ••••••••••••••• KH
Entry point to the PAUSE statement
processor.

Phase $$BATTNE ALLOC Statement Processor"
Charts KN-KP
ALLOe ................ KN
Entry point to the ALLOC statement
processor.
(See Phase $$BATTNF, label
STARTF+2.)
CHKPRN •••••••••••••• KN
Test for a duplicate operand in an ALLOC
statement.
CHKRNG ••••••••• ,. • • •• KP
Validity check of the main storage
allocation value specified by the ALLOC
statement.
CKSCST •••••••••••••••• KN
Valid delimiter check.
CRTBLD •••••••••••••• KN
GTNXOP

•.••••••••.•.• KN

Start of a repetitive sequence of code
used to get the operands of an ALLOC
statement.
Phase $$BATTND MAP Statement Processor,
Charts KJ-KM
BLNKLD

KN

KM
CNVBCD
Entry point to a subroutine used to
convert a specified binary number to
EBCDIC and remove leading zeros.
MAP

• • • • • • • • • • •• • • ••• KJ

Entry point to the MAP statement
processor.
OUTPUT •••••••••••••• KM
Entry point to the output subroutine.
RVRSCN • • • • • •• •• • • • •. KM
Start of a reverse scan of the I/O area,
BUFFER.
SKPLIN • • • • • • • • • • • • •• KM
Entry point to the Output subroutine
when a line is to be skipped.
STUBGL • • • • • • • • • • • • •• lI.L
Entry point to the Output subroutine
used to e~tablish a background line for
the MAP processor.
STUCRL • '. • • • • • • • • • • •• KL
~ntry point to the Output sUbroutine
used when a line of data in the I/O
area, BUFFER, is written on SYSLOG and
the next line is initialized.
STUF1U •••••••••••••• KL
Entry point to the Output subroutine
used to establish a foreground line for
the ~~P processor.
STUSPC • • • • • • • •• • • ••• KL
Entry point to a routine to put the
upper limit address in a line for
output.
216

INNXEN •••••••••••••• KN
Start of a repetitive sequence of code
to build internal allocation tables.
(See Listing-only Section,
labels: ATABLE, F1TBEN, or F2TBEN.)

DOS System Control

Phase $$BATTNF ALLOC Processor, Charts
KQ-KR

(

CHGSTT • • • • .• • • • • • • • •• KR
Entry point to the subroutine used to
enter and exit from the supervisory
state. The supervisory state is entered
so that the B-transient program can
issue a privileged instruction.
CKNDAR •••••••••••••• KR
Start of a repetitive sequence of code
used to set storage protection keys.
CMNWLM •••••••••••••• KQ
Start of a repetitive sequence of code
used to update the internal allocation
table (see Listing-only Section,
labels: ATABLE, F1TBEN, or F2TBEN) with
new limit information.
NVAERR •••••••••••••• KQ
Error exit.
NXPBNT • • • • • • • • • • .• • •• KR
Start of a repetitive sequence of code
to update the PIB table with values from
the internal allocation table.
RSPPEA

KR

STARTF+2 ••••••.••••• KQ
Start of the second phase of ALLOC
processing. Allocation is performed
using three basic steps:
1.

Get limit information from the PIB.

(

2.

Get allocation information from the
ALLOC statement.

Update the PIB information with the
ALLOC statement information.
STLLMT •• • • • • • • • • • • •• KQ

ASSGN ••••••••••••••• KV
Entry point to the ASSGN statement
processor.

3.

CAS ERR • • • •• • • • • • • • ••
Error exit.
CHKFUA

Phase $$BATTNG START Statement Processor,
Chart KS
OPLGT

KS

START + 2
Entry
START
S TART BG
TERr-171

••••••••••••• KS
point to the first phase of the
processor.
• • . • • • • • • • • •. KS
KS

Phase $$BATTNH START Statement Processor,
Charts KT-KU
ADDRLP •••••••••••••• KT
Start of a repetitive sequence of code
used to relocate the CCW string into the
root phase, $$BATTNA.
CHKFGA

KU

LOGGER •••••••••••••• KU
Entry point to the subroutine used to
print the exact number of significant
characters (nonblank) found in the I/O
area, BUFFER, on the logical unit
SYSLOG.
MOVTBL
KT
Entry point to the second phase of the
START processor.
REVSCN •••••••••••••• KU
Start of a repetitive sequence of code
used to perform a reverse scan of the
I/O area called BUFFER. The scan
searches for a non blank character to
signify an output.

LG

• • • • • • • • • • • • •• ML

CHKJIB •••••••••••••• LD
JBSLUB is replaced with LBSLUB.
(See
Listing-only Section of this label
list.) This routine finds any JIBs
assigned to a LUB that has been
unassigned prior to making an
assignment.
CHKMOD •••••••••••••• KV
Start of a repetitive sequence of code
used to check the mode value in the
ASSGN statement against the valid mode
values in a table.
CHKNXC • • • • • • • • • • • • •• LF
CHKOWN •••••••••••• ,.. KX
CHKPUB •••••••••••••• KZ
Start of a table look-up to find the
channel and unit, specified in the ASSGN
statement, in the PUB table.
CHKRNG •••••••••••••• LF
Entry point to a subroutine used to
check a field of characters, one by one,
for valid limits.
CKNDCH •••••••••••••• KW
Begins a search for an unchained JIB
entry.
CKNXJB • • • • • • • •• • • • •• LD
Exit point to the scan JIB subroutine,
SCNJIB. (See label list for this
phase.) The subroutine is entered to
reset JBSLUB (see Listing-only Section
of the label list) according to any JIB
chained to the logical unit.
CMPBPT

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

LA

Test for identical PUB pointers. When
the PUB pointers are equal, it means
that another LUB is assigned to the
physical unit pointed to by the LUB just
unassigned.
(See UNPA this label list.)
If no other LUB with a matching PUB
pOinter is found, the ownership flag of
the PUB pointed to by the LUB in LBSLUB
is reset to indicate that PUB is not
assigned to any LUB.
DNEERR

••••••••••••.e. LG

Error exit.
WFMRES •••••••••••••• KU
Entry point to a sUbroutine used to set
up the label area. The subroutine
writes a filemark on the label cylinder.

GETKEY

•••••••••••••• ML

GTNXJB

•••••••••••••• LA

Phase $$BATTNI, Charts KV-KZj LA-LGj MJ-ML

GTNXLB

ALT

)

• • • • • • • • • • •• • • • •• KW

Start of a routine to make an alternate
assignment.
ASGCHG • • • • • •• •• • • • •• MK
ASGPUB •••••••••••••• KW

Continues search for LUBs with a PUB
pointer that matches the pointer in
LBSLUB. However, the search is within
the JIB table.
............... .e. LA

Start of a repetitive sequence of code
to get each LUB of a given class and
compare its PUB pointer with the PUB
pointer of the LUB in LBSLUB,.
HEXCON

• • • •• • • •• • • • •• LE

Entry point to a subroutine used to
Appendix A. Label List

217

convert a variable length field of a
hexadecimal number in the form
X'nn ••••• ' to binary.
HOLD • • • • • • • • • • • • • • •• MK
Entry point to the HOLD processor. This
routine is used to set a switch in the
appropriate PIB assign flag.
This
switch can be interrogated later by the
Job Control program.
IDSBRR • • • • • • • • • • • • •• LG
Error exit.
IV1KASGN • • • • • • • •• • • • •• KW
Entry point to a routine used to make
the actual assignment during ASSGN
processing. The assignment is made by:
1. Establishing the PUB pointer in the
LUB.
2. Setting the ownership byte in the
PUB.
3. Setting the mode byte in the PUB.
(For tape devices only.)
MODRST • '•••••••• '. • • •• KV
Test of the mode value. The instruction
at this label is modified so that the
immediate field contains the set mode
command.
NASERR
LG
Error exit.
NDCHFD •••••••••• '. • •• KW
Entry point to a routine used to chain a
JIB entry to the JIB table.
NDTERR •••••••••••••• LG
Error exit.
NJPERR • • • • • • • •• • • • •• LG
Error exit.
NLUERR • • • • • • • •• • • ••• LG
Error exit.
NUMCON • • • . • • • •• • • • •• LE
Entry point to a subroutine used to
convert a variable length field of the
form nnn •••• n to binary.
NWPBPT •••••••••••••• KW
OWNRSH
KV
Test to determine if a device has
already been assigned to a different
area.
READ ••• '. • • • • • • • • • • •• KX
Entry point to the read processor.
RELSE • • • • • • • • • • • • • • •• MK
Entry point to the RELSE processor.
This routine turns off a switch in the
appropriate PIB assign flag. This
switch can be interrogated later by the
Job Control program.
RETURN •••••••• '. • • • •• KW
Exit to the root phase, $$BATTNA.
RNGTOP •••••••••••••• LF
RSTOWN ••••• .,. • • • • • •• LA
SCNJIB •••••••••••••• LC
Entry point to a subroutine used to:
• Initialize JBSLUB (see Listing-only
section) with the first and last
218

DOS System Control

bytes of the JIB chained to the
current pseudo-LUB entry of JBSLUB.
• Return immediately to the calling
sequence when an end-of-JIB-chain
condition is found.
SCNLBS '. • • • • • • • • • • • •• LA
Entry point to a subroutine used to:
• Return, sequentially, each LUB entry
in a given class to the calling
routine.
• Return immediately to the calling
routine when there are no more
entries in a given class.
SCNLUB •••••• '. • • • • • •• LB
SNGCHG • • • • • • • • • • • • •• MK
SNGUNA • • • • • • • • • • • • •• MJ
SYSXN2 •••••••••••••• KY
Entry point to the subroutine described
below (SYSXXX) when it is entered as a
result of UNA statement processing.
SYSXXX.
• ••••••••• '. •• KY
Entry point to a subroutine used to
check and convert a field in the form
SYSnnn to an address pointer to a LUB
entry and PUB entry associated with the
logical unit.
TMFAVP
LD
Save area for the old JIB pointer. This
pointer is stored by the scan JIB
subroutine, SCNJIB.
TXCUU ••••••••••••••• KZ
Entry point to a subroutine used to
check and convert a field in the form
X'cuu' to a PUB entry address, a PUB
pointer, device type, and mode reset
byte.
UCUERR
LG
Error exit.
UNA ••••••• ,. • • • • • • • •• MJ
Entry point to the UNA (unassign)
processor. This routine is used to
selectively unassign all the programmer
class units of the area specified by the
operand of the UNA statement.
UNALOP •••••••••••• ~. ML
UNARTN •••••••••••• '.. ML
UNPA ••••••••••• '. • • •• LA
Entry point to a routine to unassign
currently assigned logical units. The
SUbroutine saves the LUB entry of the
LUB to be unassigned in location LBSLUB.
It then unassigns the LUB in the LUB
table. It checks the LUB table and JIB
table for other LUBs that point to the
physical unit pointed to by the LUB just
unassigned. It resets the ownership
flag in the PUB if no other LUBs point
to that physical unit. Any stored
alternate assignments found in the JIB
table are treated as LUBs (unassigned
followed by a search for matching PUB
pointers).
UNPAN2 ••••••••• '. • • •• LA
Entry point to the unassign subroutine
for the UNA statement processor.

/

\

(

Phase $$BATTNJ LISTIO Statement Processor,
Charts LH- LM
ASGLST • '••••••• '. • • • •• LK
Entry point to the subroutine for
listing I/O assignments when all
preliminary setup steps have been
completed.
CHKF1 • • • • • • • • •• • • • •• LH
Test for an F1 operand.
CHKF2 • • • • • • • • • • • • • •• LH
Test for an F2 operand.
CHKUA • • • • • • • • •• • • • •• LH
Test for a UA operand.
If UA is found,
the header 'UNASSIGNED' is put into the
I/O area, BUFFER.
CKPBUA • • • • • • • •• • • • •• LH
Start of a repetitive sequence of code
to test the status of the devices in the
PUB table, searching for an unassigned
device that is not down.
CUAPNX • • • • • • • •• • • • •• LH
Check the next PUB entry.

)

LANXJB • • • • • • • •• • • • •• LK
Entry pOint to the routine used to get a
chained JIB entry and inspect its
status.
LISTIO • • • • • •.• • • • • • •• LH
Entry point to the LISTIO processor.
LSTASG ••••••.~ • • • • • •• LM
Entry point to the subroutine used to
calcu'late address of the PUB, convert
the channel and unit information to
hexadecimal EBCDIC, set up IGN and UNA
headers as required, and call the
subroutine to output the I/O area.
LSTAUN • • • • • • • • • • • • •. LK
Entry point to the subroutine used to
list the assignments for either F1 or F2
programmer class units,. The subroutine
sets up primary and secondary headers,
calls the LUB scanning subroutine and
the JIB scanning subroutine, and calls
the final output sUbroutine.
LSTBG • • • • • • • • . • • • • •• LJ
Entry point to the subroutine used to
list BG units.
When this routine is
used the System Class units are also
listed preceding the BG units,.
LSTBUN ..... • •• •• • • • •• LK
Entry pOint to the subroutine used to
list assignments for BG programmer class
units or System Class units.
LSTF1 • • • • • • • • • • • • • •. LJ
Entry point to the subroutine used to
list F1 units.
LSTF2
• • • • • . • • • • • • • •• LJ
Entry pOint to the routine used to list
F2 units.
LSTPRG • • • • • • • • • • • • •• LL
Spaces one line and resets program
switch SYSSWH causing the listing of
System Class units to stop (Chart LK).
LSTSTD • • • • • •• • • • • • • • •• LL
Reset switch STDSWH causing the listing

of standard assignments to stop (Chart
LK).
LSTUA •••••••• '. • • • ••• LN
Program switch set to NOP (Chart LH)
when a UA operand is found.
The switch
is reset to branch when the header,
'UNASSIGNED' has been printed.
NDSCAN
LL
NOTASG
LM
Sets IGN in the I/O area, BUFFER.
NOUNIT •••••••••••••• LL
Entry point to output a 'NONE' header if
no units were listed as unassigned.
NXTLUB ••••••••••• ,. •• LK
Start of a repetitive sequence of code
used to get each LUB entry in a given
class.
OUTPUT •••••••••••••• LM
Entry point to the subroutine used to
output and clear the I/O area.
SAVLUS ••• '... • • • • • • • •• LK
Save the logical unit specification.
SPACE ••• •••• '. • • • • ••• LL
Entry point to a subroutine used to
clear the I/O area, BUFFER, so that a
blank line will be logged.
STDSWH •••••••••••••• LK
Program switch set to branch when stored
standard assignments are to be logged.
The branch is taken at the end of the
JIB table scan. The scan finds any
stored standard assignments.
The switch
is reset at location LSTSTD, Chart LL.
SYSSWH ••• ,•••• '. '. • • • •• LK
Program switch set to branch when system
units are to be logged. The switch is
set to branch by the list BG routine,
Chart LJ. The switch is reset to NOP
after the System Class units have all
been logged (Chart LL).
SYSUNT • • • • • • • • • • • • •• LK
UALNOT ••••••••••• '. •• LN
UAPSWH • • • •• • • • • • • • •• LH
Program switch set to branch after unit
assignments have been listed. This
switch is initialized in the NOP state.
It is set to branch just before the
'UNASSIGNED' header is logged.

Phase $$BATTNK VOL Statement Processor,
Charts LP-LW
CNUNCO •••••••••••••• LS
Entry point to a subroutine used to
check and convert a field of the form
SYSnnn, when n equals any number in the
range 0-9, to a logical unit class.
CONCAT •••••••• '. • • • .•• LR
Entry point to a subroutine used to:
1.

Read the second half of a statement.
Appendix A. Label List

219

2.

Join the first and second parts of a
statement forming a single
statement.
(This operation is
called concatenation.)

routines.
LQ

TPLEND

••

TSHORT

•••••••••••••• LQ

III

•

..

•

•

..

•

..

•

....

VOL

3.

Reset the address of the operand in
the I/O area named BUFFER.

4.

Reset the length of the operand.

DLAB • • • • • • • •• • • • • • •• LT
Entry point to the disk label (DLAB)
processor. A DLAB statement must be
preceded by a VOL statement and followed
by one or more EXTENT statements. Label
information is written on the SYSRES
label cylinder for use by the LIOCS open
routines.
DLBOUT • • • • • • • •• • • • •. LT
DOP34 • • • • • • •.• • • • • • •• LU
Entry pOint to the subroutine used to
get the third and fourth operands of a
DLAB statement. After obtaining the
operand, the subroutine checks its
validity and converts EBCDIC information
to binary.
LV
LAXERR
Error exit.
LBLOUT •.•••••.••••.. LW
Entry point to the subroutine used to
output the label information that has
been accumulated in the I/O area,
BUFFER. The subroutine:
1.

sets length information in the write
and verify CCws.

2.

Determines if space is available on the
label track within SYSRES.

3.

Updates the disk address if necessary.

4.

Checks to ensure label area extents on
SYSRES are not exceeded.

5.

Sets up the seek address and CCB.

6.

Branches to the I/O subroutine (EXCPRG)
to write and verify the label
information on SYSRES.

.................. LP
Entry point to the volume label (VOL)
processor. This statement must precede
DLAB or TPLAB statements. The volume
label processor:
1. Tests for proper statement sequence.
2. outputs any label information
previously accumulated in the I/O
area, BUFFER.
3. Checks the volume information and
stores it in the I/O area.

Phase $$BATTNL XTENT Statement Processor,
Charts LX-LZ; MA-MB
INDSEQ •••••••••••••• LY
Start of extent type, and sequence
number checking for an indexed
sequential file type.
ISCKSQ •••••••••••••• LY
ISTYP4 •••••••••••••. LY
Start of sequence number checking for a
type 4 extent.
NEWXTN ............... MB
Exit from XTENT processor. This
sequence of code re-initializes the
extent processor for subsequent XTENT
statements.
NODCUX •••••••••••••• MB
Sets program switch, MTRSVD, for LIOCS.
(See Listing-only Label List.)
NOTSEQ • • •• • • • • • • • ••• LX
Test for direct access file type.
OUTLBL

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

OTSERR
Error exit.

LV

RSRbllCP

LW

TPLAB • • • • • • • • • • • • • •• LQ
Entry point to the tape label (TPLAB)
processor. This statement must be
preceded by a VOL statement. Label
information is written on the SYSRES
label cylinder for use by the LIOCS open
220

DOS System Control

ME

Calling sequence for the subroutine used
to output label information from the I/O
area into the label cylinder of SYSRES.
PACKCG

NLSERR • • • • • •• •• • • • •• LV
Error exit.
NLUERR •••••••••••••• LV
Error exit.

(

SXTPOK

MB
'. • • • • • • • • • • • ••

LX

Calling sequence for the subroutine used
to get the extent sequence number
(XTOP12). The sequence number is
validity checked to determine if it is
in ascending sequence.
XTENT • • • • • • • • • •.• • • •• LX
Entry point to the extent (XTENT)
processor. The XTENT statement must
follow either a DLAB statement or
another XTENT statement to be valid.
XTOP3 ••••••••••••••• LZ
Entry point to routine used to:
1.

Get the extent limit information.

2. Validity check the extent limits.
This routine is generalized so that it

(

can be used for both lower limit and
upper limit extents.
XTOP5 • • • • • • • • • • • • • •• LZ
Entry point to the routine used to:
1.

2.

Get and check the serial number and
store it in the label area DSECT
(I/O area).
convert the SYSXXX field of the
extent to class and displacement.

3.

Get the B2 field of an extent,
convert it to binary, and store it
in the label area, DSECT (I/O area).
XTOP12 • • • • • • • • • • • • •. MA
Entry point to a subroutine used to
extract and validity-check the first two
operands (type and sequence number) of
an XTENT statement.
It converts the
operand to binary, and stores it in the
label area, DSECT (I/O area).
XTOP34 • • • • • • • • • • • • •• f.'!..A.
Entry point to a subroutine used to
extract limit information from the XTENT
statement, perform initial validity
checks, convert the numeric EBCDIC limit
data to binary, and put the limits into
the label area, DSECT (I/O area).
XTOUT ••••••••••• '. • •• ME
XTUNI T •••••••• '. • • • •• ME

temporary label storage area to the
label storage area.
2.

Clear the remainder of main storage
to initialize it for the foreground
program being initiated.

MVCLRT

MF

NOLBPR

ME

PNPERR •••••••• '. • • • •• MC
Exit to the subroutine used to send
error messages (ERRRTN). The sUbroutine
eventually exits to CONTROL (Chart KB).
RSRMCP

MD

UCS • • •• • • • • • • • • • • • ••
UCSDN •••••••••••••••
UCSSCN ••••••••••••••
UCS1 •••••• '. • • • • • • •••
UCS2 •••••••••• '. • • • ••
UCS3 • • • • • • • • • • • • • • ••
UCS4 • • • • • • • • • •• • • •••

MG
MG
MG
MG
MG
MG
MG

Phase $$BATTNN Timer Statement Processor,
Chart MH
CHKOWN

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

MH

Test for timer ownership.
Phase $$BATTNM EXEC and UCS Statement
Processor, Charts MC-MF
EXEC ••• '. • • • • • • • • • • •• MC
Entry point to the execute (EXEC)
processor. This phase is the last
processing phase of the foreground
initiator. The foreground program will
be loaded when this phase has finished
executing and the foreground program has
been chosen by the task selection
mechanism of the supervisor.
FINISH
INITL

)

.. ...-........ . MF

Phase $$BEOJ (Supervisor B-transient),
Charts NA-NC

'

MG

MOVLOP • • • • • • • • • • • • •• MF
Start of a repetitive sequence of code
to move the last two routines of the
EXEC processor to the main storage area
occupied by the root phase, $$BATTNA.
The root phase resides in the logical
transient area of main storage. The two
routines are moved 256 bytes at a time.
The last time the move is executed, some
remaining number of bytes (less than
256) are moved to the logical transient
area.
MOVRTN • • • • • •• •• • • • •• MF
Entry point to the subroutine used to:

1.

TIMER • • • •• • • • • • • • • •• MH
Entry point to the TIMER processor.
TIMLNK • • • • • • • • • • • • •• MH
Entry point to a subroutine used to
assign the system timer to the program
specified in the TIMER statement.
TNAERR •••• '. • • • • • • • •• MH
Error exit.

Move any label information from the

ARCANCEL •••••••••••• NA
B-transient $$BTERM is fetched to
perform functions of an Attention
Routine cancel,.
CNCLTEST •• '•••••••• ,. • •• NA
Routine which determines cause of cancel
and selects appropriate subsequent
program to be fetched.
DKTYPE ••••••• '. • • • • .•• NC
If output device to receive dump is
disk, the extents for disk device
assigned to SYSLST (recorded in DIB
table) are checked to see if extents
filled.
If they are, the dump is
bypassed and the next program in the
terminating sequence is fetched.
Appendix A. Label List

221

ENTl • • • • • • • • • • • • • • • • •• NB
Entry point for subroutine which tests
for user Program Check and/or Operator
Communication Option table entries - if
there are any, they are reset to zeroes.
ENT2 • • • • • • • •• •• • • •• • •. NB
Same as ENTl for Interval Timer Option.
ENT3 • • • • • • • • • •• • • •• • •• NB
EOJSTEP • • • • •• •• • • • . • •. NB
Routine if BG program is canceled due to
reaching normal end-of-job.
FGJOB • • • • • • • • • • • • • • • •. NC
FGLST • • • • • • • • • • • • • • • •• NC
IJBEJ20+8
• . • • •• • • •• • •• NA
INTERR

• • • • • • • • • • . • • • • • • •• NC
Identification is made of physical
device associated with SYSLST or SYSOOO.

OCTEST • • • • • • • . • • • • • • •. NA
Test is made for existence of Operator
Communication Option.
ONLIST • • • • • • • • • • • • • • •• NC
Determination is made whether message
should be outputted on SYSLST or SYSOOO.
OTHERS •• • • • • • •• • • • • • •• NA
PCTEST
NA
Test is made for existence of Program
Check Option entry indicating user
routine will handle program check
errors.
PROGCHK • • • • • • •• • . • • • •• NA
PUT • • • • • • • • • • • • • • • • • •• NB
Entry to subroutine which uses PIOCS to
output message.
RLCCB • • • • • • • • • • • • • • • •• NC
Depending upon device to be used for
output, the appropriate CCW address is
placed in a common CCB.
SETLOGUN • • • • • • • • • • • • •• NC
Routine which sets logical unit address
for either SYSLST or SYSOOO in CCB after
determination has been made as to which
symbolic device will be used for message
output.
SUPPRIO ••••••••••••••• NB
This routine is entered if an abnormal
end-of-job condition exists and the
B-transient $$BTERM is executing.
S~ould an I/O unrecoverable error occur
which would then cause a cancel of
$$BTERM itself, an unending loop would
result. Therefore I/O operation is
bypassed and $$BTERM is recalled.
SVCERR • • • • • •.• • • • • • • • •• NA
SVCo

• • • • • • • • • • • • • • • • •• NB

Entry point to subroutine which uses
PIOCS to output message.
SVC2 •••••••••••••••••• NA
222

NC
NC

UNNORM •••••.•••••••••• NA
Routine entered when abnormal end-of-job
condition exists.
Investigation will be
made as to cause of cancel and type of
program executing to determine which
B-transient of the terminating phases to
call next.

Phase $$BEOJ3 Supervisor B-Transient, Chart
ND

NA

LOGLIST • • • • • • • • • • • • • •• NC
Entry to subroutine to output message
regarding canceled program.
MVZ

TPTYPE
TPTYPEl

DOS System Control

CLI

ND

GARY
GO

ND
ND

HALTIO

ND

ITERATE

ND

LASTPUB

ND

PUT

ND

QUEUE

ND

TM

ND

(

Phase $$BTERM Supervisor B-transient,
Charts NE-NH
ADDLST ••••••• NF
The pOinter from FAVP byte which was
pointing to the first available JIB
before this terminating phase began is
put in the chain byte of the
last-dequeued JIB (using register 8 as
an intermediate storage). The second
byte of the LUB has a pointer to the
first JIB associated with that LUB; this
pointer is now put in the FAVP byte.
CHAIN •••••••• NF
Routine which zeroes additional JIB
entries if a LUB has more than one JIB.
CONTSCAN ••••• NG
Program ownership' (Fl, F2, or BG) of
devices is determined.
DEQUEUE ••.•••• NF
The JIB pointer from the LUB is
temporarily stored at label FRLSTBEG.
The JIB pointed at by the LUB is
addressed and its first 3 bytes are
zeroed. The chain byte (4th byte) of
the JIB is checked for additional JIBs
in the chain; if there are any, they too
have their first 3 bytes zeroed until
the end of the chain is reached.

(

DEQUEUED ••••• NF
The LUB being unassigned is made
X'FFFF'. The next ~UB is then addressed
and tested for associated JIBs. This
continues until all the LUBs have been
checked.
DONE ••••••••• NE
Registers are prepared to do a PUB table
scan.

is loaded into a CCW; register 13 is
loaded as a link register to the
unassign routine. The terminated
program is identified as being an F2 job
or otherwise; if F2, the ownership flags
will be reset in the ,PUB~ntries of
devices owned by this program.
If the program is not an F2 program,
it is therefore an F1 because the
$$BTERM phase is called to terminate
foreground programs. The PIB assign
flag byte is checked to see if the
cancel switch is on which indicates
cancel occurred while in a terminator
phase due to an I/O malfunction. To
prevent a repetitive
cancel-within-cancel loop, a branch is
set in the switch at label LOG to
suppress further I/O operations.

ENDPUB ••••••• NE
Test is made to determine if end of PUB
table has been reached.
FG1

NG

GETBYTE •••••• NG
Tape Error Block (TEB) data is retrieved
and prepared for logging; the first 3
bytes of the TEB entry are zeroed and
the statistics are logged.
GETNXT ••••••• NG
Entry point to subroutine for actual
printing of TEB statistics on SYSLOG.
LOG • . • • • • • • •• NH
MOD

• • • • • • • • •. NE
PUB Job Control flags are reset for the
devices which are owned by the program
being terminated.
MTAPE •••••.•. NG
The device type from the PUB table entry
for the device is examined. If the
device is not a tape drive, the PUB scan
proceeds to the next entry in the table;
if it is a tape drive, the Tape Error
Block (TEB) for that particular drive is
addressed and checked for any record of
tape errors. Should this tape drive
have experienced no errors, the PUB scan
resumes and the next device in the PUB
table is investigated.
MVI • • • • • • • • •• NE
A detach flag is posted in the PIB for
the terminated program; the portion of
core occupied by this program is now
available for overlay. An End-ofTermination switch is set in the
PIBPUBAS flag byte, an SVC 22 releases
control of the system from this program
and an SVC 11 returns the system to the
Task Selection routine of the
supervisor.
NOP

NG
Switch to enter or bypass the routine
which prints headings prior to logging
the Tape Error Block (TEB) statistics.
Since only one set of headings is
needed, this routine will be used only
for the first TEB statistics logged;
after being entered once, this routine
is subsequently bypassed by making this
switch an unconditional branch.

OUTAR • ..• • • • •. NE
Entry pOint to this program phase after
it is fetched. The output area address

PHYSEIZE ••••• NE
Further I/O operations are disabled and
an SVC 22 is issued which disables
multiprogramming and gives this· program
control over the system to complete its
desired fUnctions until another SVC 22
is issued to release control.
PRCOMPL •••••• NE
Routine which gets the job name from the
foreground save area, to identify the
job and writes a message "PROGRAM
COMPLETED."
SETUP • '••••••• NE
If it is not a normal end-of-job step
and is not the Attention Routine which
is being canceled, the Tape Error Block
(TEB) statistics are obtained and
logged.
SKIPHDR •••••• NG
Routine prepares to print channel and
unit number of the device, the permanent
read error count, and the number of
times the read error routine is entered;
this data is obtained from the Tape
Error Block (TEB) for the tape drive.
TEB

•••••••••• NG
Entry point to the subroutine whiCh
scans the PUB table for tape devices and
logs the tape error statistics.
TEST ••••••••• NF
LUB entries are checked to see if they
have any associated JIBs.
UNASSGN •••••• NE
Check is made if symbolic device
assignments should be reset.
UNASSGN+8 •••• NF
The LUBNDX from the PIB of this program
(F1 or F2) is inserted in register 5.
In the case of Fl, for example, LUBNDX
is equal to the sum of the LUBs assigned
to devices owned by the system programs,
the background program, and the
Foreground 2 program. This index is
doubled because there are 2 bytes per
LUB entry. The result is the
Appendix A. Label List

223

displacement, from the LUB table
starting address, where this foreground
program's LUBs begin. By adding this
displacement to the LUB table starting
address, the actual address for the
first LUB is obtained in register 5.
The number of LOBs assigned to this
type of foreground program is obtained
from the NICL (Number-in-Class); this
value is adjusted and doubled.

Phase $$BEOJ1 Supervisor B-transient,
Charts NJ-NK
Label
Chart
BALR14 ••••••• NK
Exit and return to PRINT subroutine for
output message when cancel of program
occurs during execution of a logical
B-transient phase.
CAUSE1

NJ

approprlate message code and message are
placed in the output area, and the total
length of the output message is stored
in the CCW byte count field.

Phase $$BEOJ2 Supervisor B-Transient,
Charts NL-NM
Label

DKTYPE ••••••• NK
Routine which checks the extents of
SYSLST from the SYSLST disk information
block (DIB) once the I/O device is
identified as a disk. CCWs and a CCB
are prepared for disk use.

message
the
not the
If they

NAl4ED •••••••• NJ
This label indicates task of moving job
name to output area has been
accomplished; now the cause of program
cancellation is to be investigated.
ONLIST ••••••• NJ
Determination has been made that the
output message will occur on SYSLST.
PRINT •••••••• NK
Entry to subroutine which uses PIOCS to
write the output message.
PROG ••.•••••• NJ
When a program check has been found as
the cause of cancellation, the
224

DOS System Control

Chart

••.•••.•••.• NL

Cancel code from PIB of canceled program
is compared with codes entered in a
look-up table until the code is
identified, or the last entry is reached
which covers unrecognized codes.
B

LOGGER
NJ
Routine which prepares to output
on SYSLOG device, providing that
device is present, assigned, and
same physical device as SYSLST.
are the same, SYSLST is used.

\

SETLOGUN ••••• NK
The logical unit number is stored in the
CCB, and the PUB entry for the output
device is located.
STH •••••••••• NK
TERM •••• '••••• NK
A supervisor call is issued to fetch the
$$BPSW program.
TPTYPE ••••••• NK
TPTYPE1 •••••• NK
Routine which investigates the physical
I/O output device.

A

FGJOB
NJ
Canceled program has been identified as
a foreground program so message output
will be on SYSOOO. The SYSOOO LUB is
located and tested to see if it is
assigned. If yes, register 4 is set to
use the SYSLST LUB when reference is
made to SYSOOO so that the output
wessage actually occurs on the device
assigned to SYSLST.
FGLST •••••••. NK

I

I

• • • • • • • • • • •• NL

Routine which uses pointer from lookup
table to displace into an actual message
code table to'obtain code for output
message. Name of background job is
retrieved from communications region and
moved to message output area.

(

• • • • • • • •.• • •• NL
Name of foreground job is retrieved from
save area and moved to message output
area.
CAUSE1 ••••••• NL
Entry point to start of $$BEOJ
B-transient.

C

NL
Routine which obtains address of desired
message and moves actual message to
output area after having first cleared
storage where previously used
instructions resided for use as output
area. Also sets count value in count
field of CCW to be used.
DKTYPE ••••••• NM
Routine which checks DIB for SYSLST to
see if extents are full; sets current
address from DIB into CCW for outputting
message.
D

FGJOB
FGLST

NM
NM

LOGGER ••••••• NM
Entry point to subroutine which outputs
message on SYSLOG, SYSLST or SYSOOO. If

(

these symbolic devices are unassigned no
message is written. The next
B-transient terminating program is
fetched.
MVC

NL

ONLIST

NM

SETLOGUN

NN

TERM .•••••••• NP
TPTYPE ••••••• NP
TPTYPE1 •.••••. NP

PRINT
NM
Entry point to subroutine which uses
PIOCS to output message.

Phase $$BPSW Supervisor B-Transient, Charts
NR-NS

RLCCB •.•••••. NM
Address of CCW for the output device is
placed in the CCB.

Note: Labels for this program are
identical to those of $$BEOJ1. Please
refer to discussion of labels on $$BEOJ1
label list.

SETLOGUN
NM
Logical unit address is placed in CCB.
TPTYPE
TPTYPE1

NM
NM

Chart
BALR14
DKTYPE

Phase $$BILSVC Supervisor B-Transient,
Charts NN-NQ

FGJOB
FGLST

Label
DKTYPE
FGJOB
FGLST
FGTAPE

... ....
........
........
.......
'

Chart
NP
NN
NP
NP

NN
The address of the instruction issuing
the illegal supervisor call is obtained
and translated to hex; the illegal SVC
code is also translated to hex and both
become part of the output message.
LA • • • • • • • • • •• NP
MVC
NP

ONLIST
PRINT

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

LOGGER
Note: Labels used in this program which
have the same function as those of $$BEOJ1
are discussed in thp. label list of program
phase $$BEOJ1. Only those labels which are
significantly different or are unique to
this program phase are discussed here.

NS

>• • • • • • •

· ......
· ......
· ... ....
'

SETLOGUN
STH

NS
NR
NS
NR

NR
NR
NR

• • • • • •.• • •• NS

TERM •••••.• • •• NS
TPTYPE ••••••• NS
TPTYPE1 •••••• NS

L

NOP

NP

ONLIST •.•••••. NN
OVLAY •••••••• NN
Job name taken from foreground save area
will be overlaid by the job name from
the communication region if the program
is found to be a background type.
PNFORSVC ••••• NN
Determination is made whether the cause
of program cancel was due to an illegal
SVC or a phase-not-found condition.
PRINT • • • • • • •• NQ
RELOC
RLCCB

NN
NP

Phase $$BPCHK Supervisor B-Transient,
Charts NT-NU
Label
Chart
DKTYPE • • •• • •• NT
Routine which locates disk information
block owned by SYSLST, checks the SYSLST
extents for room remaining, and stores
the current address in the seek CCW.
FGJOB •••••••• NT
Indicates program canceled was a
foreground program, and symbolic device
SYSOOO must be checked for aSSignment.
FGLST ••••.•••• NU
Canceled program has been identified as
foreground.
LA

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

NU

Data address for disk output area is
placed in write count., key and data CCW.
MVC

• • • • •.•.•• •• NU
CCws are prepared for disk use.
Appendix A. Label List

225

NOP

• • • . • • • • •. NU
After first line of message is output
this switch is set to branch and the
second line of the message will be
output to the disk; the branch condition
causes the B-transient $$EDUMP to be
fetched.
NOTBG •••••••. NT
Routine which recovers the address of
the instruction which caused the program
check so it can be identified in the
output message.
ONLIST ••••••. NT
Message will be output on SYSLST rather
than SYSLOG.
PRINT •••••••• NU
Subroutine which uses PIOCS to output
message.
RLCCB

NT

SETLOGUN
NT
SYSLST logical unit number is set in CCB
and PUB entry address for the device is
obtained.
START •••••••• NT
Entry point to this program to start
execution.
TERM ••••••••. NT
Exit from this program is a supervisor
call to fetch $$BDUMP.
TPTYPE ••••••. NT
TPTYPEl .••••. NT
SYSLST is identified as a tape drive,
and the CCWs and CCB are prepared for
tape output.

Phase $$BDUMP Supervisor B-Transient,
Charts NV-NW
BALl

NW

DSKRT

NV

FETCH •••••••• NW
FGJOB •.•••••. NW
The upper storage limit of the program
to be dumped is calculated by:
obtaining from the PIB of the canceled
program the number of 2K blocks of
storage the program occupies,
multiplying it by 2048, adding the
result to the address of the end of the
supervisor area (= BG save area
address), and subtracting one byte.
Register 8 will communicate this value
to the dump program fetched.
NOCHNG ••••••• NW
Routine used when a foreground program
is to be dumped, to identify the
physical I/O device associated with

226

DOS System Control

SYSOOO. The type of device determines
which B-transient dump program will be
fetched to perform the actu~l dump.
PRINTER •••••• NV
PUT •••••••••• NW
SET CODE
NV
SYSTST
NV
Routine similar to the NOCHNG routine.
Identifies the physical device assigned
to SYSLST for a background program dump.
TAPEl •••••••• NW
When SYSOOO is found to be a tape drive,
the CCB and CCW are modified accordingly
to perform a sense operation for a
file-protect condition. Register 12
signals the fetched dump program that a
tape drive receives the storage dump.
TERM ••••••••• NW
TPTYPE •••• ,. •• NW

Phase $$BDUMPF supervisor B-Transient
Charts NX-PA
Chart
Label
ALTER • • • • •• •• NZ
Switch to enter or bypass SPECIAL
routine that blanks printing of the
first two storage data words. To
illustrate the use of this SPECIAL
routine, consider the example where the
beginning address of a problem program
or parameter dump falls between 3F8 and
3FF. To begin print of the dump at the
nearest lower double-word boundary, it
is necessary to blank out data from 3FO
through 3F1.
In the case of a parameter dump, an
additional calculation is made to
determine the number of additional
blanks needed, shoUld the desired
starting address be 3FC; this number is
put in register 2 by the $$BPDUMP
monitor phase and passed to the phase
actually performing the dump. This
switch will therefore be a NOP only once
(if needed) at the outset of the problem
program portion of a dump, or a
parameter dump and will normally be set
to a branch.
ALTERl ••• ,. • •• NZ
Routine that puts an extra 2 spaces
between groups of 4 words, making a
total of 3 spaces,. This makes the dump
easier to read since storage locations
such as lBO, lCO, lDO, etc., stand out
clearly. The word counter, register 0,
used for this grouping function is reset
to 4.
ALTER2 ••••••• NZ
This routine increments register 6 that
points to locations along the print line
where data information is being

assembled. It is incremented by 9 for
each new word to be printed; one for the
space between words.and 8 for the print
positions of each unpacked word.
ALTER 3 ••••••• NZ
Switch to enter or bypass instructions
that create 2 blank spaces between the
location counter and first word of
storage data. Switch will be set to
branch except when preparing the first
word of each new print line.
BLNK2 • • • • • • •• NZ
SubIa bel of routine discussed under
ALTER3.
BTSTCR ••••••• PA
Branch and link to TSTCOR subroutine is
followed by comparing characters of the
next line to be printed with those of
the line just printed. If the next line
is identical, a switch is set to branch
to the CLRLIN routine that will suspend
printing the identical line and
prints---SAME---instead.
CLRLIN ••••••• PA
See discussion of label BTSTCR.
CMPCOR ••••••• PA
Register 5 contains the highest storage
location that prints for any single
line. Register 5 is compared to
register 8 '(which contains the upper
storage limit of the dump) to see if
limit of dump will be exceeded should
the entire line be printed. If register
5 is higher than register 8, the value
in register 8 is then loaded into
register 5 and the printing ceases at
the dump limit.
CORE ••••••••• NX
Register 7, containing the beginning
storage address of the problem program
area, is tested for proper boundary
alignment. If it is not on a boundary
that is a multiple of 16, it is adjusted
to a boundary such as lBO, lCO, IDO,
etc., and the switch at ALTER is set to
Nap. See label ALTER.
COREl •••••••• NX
Preparation of problem program
identification.
CORE2 •••••••• NX
Problem program portion of main storage
is dumped up to limit address contained
in register 8.
CORE3 ••••.••• NX
Routine that obtains and prints
information about the length of the
label area of main storage.
ENDLIN ••••••. PA
See discussion of ENDLINI label.
ENDLINI •••••• PA
Instructions at ENDLIN and ENDLINI are
used to index the location counter,
register 7, and identify the storage
limits to be printed as the last line of

the dump when printing of identical
portions of storage had been suspended.
FPSW ••••••.••• NX
Switch used to bypass routine for
printing floating-point registers if
this feature is not present on the
system.
LST

• • • • • • • • •• NZ
Switch used to return from REGPNT
subroutine, when last word of a
print line has been unpacked and printed,
to prepare the next line. For register
printing and user's communication region
printing it will be a Nap; this permits
entry to a routine which blanks out
unneeded high order positions of the
printline .•
LSTLN •••••••• PA
The location counter, register 7, is set
and translated to identify the storage
locations being printed on each line of
the dump. This label is also used to
enter the PRNTLN subroutine on a last
line condition, thereby bypassing the
TSTCOR SUbroutine.
NOTEST ••••••• NX
An area of storage used for phase
initialization instructions is blanked
out to be used as an output area for the
dump. If needed, a branch will be taken
past the end of the cleared area to the
next instruction.
OUT

• • •.• • • •• •• PA
Switch made a Nap when supervisor
portion of dump is completed. During
the problem program portion of the dump,
the switch permits exit from dump phase
by fetching $$BEOJ when the dump limit
is reached.
OUTI • • • • •• • •• PA
Switch set to branch if SYSOOO is a tape
driVe, to write a tape mark following
the record of the last line of the dump.
OUT2 ••••••••• PA
Exit .from foreground program dump
$$BDUMPF by fetching B-transient phase
$$BTERM.
PAGHED ••••••• NY
Entry to subroutine that prepares and
prints page headings.
PRINT ••.•••••• NY
Routine that uses PIOCS to perform I/O
operations.
PRINTL ••••••• NZ
Entry to subroutine that loads address
of CCB into register 1 and goes to PRINT
label discussed previously .•
PRNTLN ••••••• PA
Entry to subroutine that defines an area
of storage to be printed on a line,
obtains, edits, and prints the data.
REGPNT

••••••• NZ
Appendix A. Label List

227

Entry to sUbroutine that obtains, edits,
arranges and prints: register data,
user's portion of the communication
region information and label length
information.
REGPNT1 •••••• NZ
REGPNT5 •••••• NZ
Entry to subroutine REGPNT which
bypasses the blanking of the I/O area.
RELOCF ••••••• NX
If output device is not a tape drive,
the CCB is supplied with the CCW address
of the alternate device.
SPECIAL •••••• NZ
See discussion of this label under
ALTER.
START •••••••• NX
Entry point to the program phase fetched
into the logical-transient area.
START 1 ••••••. NX
SUPV • • • • • • • •. NX
Beginning of routine that dumps
supervisor program portion of main
storage.
SUPV1 •••••••• NX
Return to program mainline after
supervisor program has been dumped.
TAPNOP ••••••. NY
Switch set to branch if SYSOOO is a tape
drive.
TAPRTN ••••••• NX
Data address is stored in the tape CCW
and CCB is furnished with the CCW
address.
Switches at OUT1 and TAPNOP
are set to branch to perform functions
necessary for output on tape drive.
TAPSYS ••••••• NY
TAPSYS1 •••••• NY
Switch to a NOP if an end-of-volume
condition is detected on the tape drive
receiving the dump.
TPMARK ••••••• PA
Routine for writing a tape mark
following last record of dump.
TSTCOR .•••.•• PA
Entry to sUbroutine that tests whether
storage area to be printed on a line is
in dump limits and whether the next line
will be the last line. Register 3 is a
pointer to the storage address of the
first byte of a line to be printed and
register 5 points to the last byte of
the line. See CMPCOR label discussion
which is part of this subroutine.
TSTLST ••••••• PA
The storage address of the last byte of
the next intended print line is tested
to determine if it is the last line of
the dump.
If it is, the program enters
routines to end the dump.
TSTLST1 •••••• PA
SwitCh that is set to a branch on last
line of dump. If a portion of core is
found that is identical to the previous
line, this switch is set to a NOP and
the identical data is shown by printing
228

DOS System Control

a line with --SAME--.
TSTPRT •••• '. •• PA
Switch that determines if data will be
edited and printed as a normal line, or
if --SAME-- will be substituted for
consecutive identical lines.
UNPK ••••••••• NZ
An entry point into the subroutine
REGPNT discussed previously.
UNPK1 •••••••• NZ

Phase $$BDUMPB Supervisor B-transient,
Charts PB-PF
Note: The labels for this program that are
identical to those of the $$BDUMPF program
are discussed in the label list of
$$BDUMPF. Only those labels which differ
significantly or are unique to this program
are expanded here.
Label
ALTER
ALTER1
ALTER2
ALTER3

Chart
PE
PE
PE
PE

BAL1 ••••••••• PB
Routine that blanks out initializing
instructions of this phase so this
portion of storage can be used as an I/O
output area.
BLANKS ••••••• PE
Blanks are used to blank out the
unneeded high-order positions of the
printline area when the registers and
user's part of the communication region
are printed.
BLNKST ••••••• PE
Switch that determines if BLANKS
instruction will be used; switch will be
set to branch except for conditions
given under BLANKS label.
BLNK2 ••••• '. •• PE
PF
BTSTCR
CLRLIN
PF
CMPCOR ••••••• PF
COMM ••••• '. • •• PC
Routine for preparing user's portion of
communication region data for printing.
CORE ••••••••• PC
CORE1 •••••••• PC
CORE2
•••••••• PC
CORE3 • • • • • • •• PC
END LIN
ENDLIN1

PF
PF

FPSW

PC

LST
LSTLN

PE
PF

NOTEST

PB

OUT

PF

PAGHED
PRINT
PRNTL
PRNTLN

PD
PD
PE
PF

REGPNT ••••••• PE
REGPNTl •••••• PE
REGPNT5 •••••. PE
RELOC •••••••• PB
Same as RELOCF label in $$BDUMPF
program.
SPECIAL ••••••
START ••••••••
SUPV •••••••••
SUPVl ••••••••

PE
PB
PC
PC

TPRTN •••••••• PB
CCWs and CCB are prepared for use with
tape drive as output device to receive
dump.
TRANS •••••••. PE
Data is translated into printable
characters for dump print-out.
Translate operation is defined in the
IBM System/360 Principles of Operation
manual.
TSTCOR ••••... PF
TSTLST ••••.•. PF
TSTLSTl •••••• PF
TSTPRT ••••••• PF
UNPK
UNPKl

PE
PE

Phase $$BDUMPD Supervisor B-Transient,
Charts PG-PK
Note: The labels for this program that are
identical to those of the $$BDUMPF program
are discussed in the label list of
$$BDUMPF. Only those labels that differ
significantly or are unique to this program
are expanded here.
Label
ALTER
ALTERl
ALTER2
ALTER3

Chart

........ ~
PJ
PJ
PJ

BALl • • • • • • • •• PG
Routine that blanks out initializing
instructions of this phase so this
portion of storage can be used as an I/O
output area.
BLANKS ••••••• PJ
Blanks are used to blank out the
unneeded high-order positions of the
print line area when the registers and
user's part of the communication region

are printed.
BLANKST •••••• PJ
Switch that determines if BLANKS
instruction will be used; switch will be
set to a NOP except for conditions given
under BLANKS label.
BLNK2 ••• ,••••• PJ
BTSTCR ••••••• PK
CLRLIN ••• '. • •• PK
CMPCOR ••••••• PK
COMM ••• ,••• '. •• PG
Routine for preparing user's portion of
communication region data for printing.
COREl •.•••••• PG
CORE 3 •••••••• PG
DUMP

PG

ENDLIN
ENDLINl

PK
PK

LOAD ••••••••• PH
The data address for the output area is
loaded into the disk CCWs, and the
address of the first CCW of the chain is
put in the CCB.
LST •••••••••• PJ
LSTLN

PK

MOVE •••••• '••• PH
Current address taken from the Disk
Information Block (DIB) for the
appropriate symbolic disk device is put
in output area to serve as the count ID
information when count, key and data are
written. The current address record
number is then reduced by 1 and put in
the search CCW for writing the first
dump record.
MVBLNK ••••••• PJ
SubIa bel of SPECIAL routine. Refer to
label SPECIAL in $$BDUMPF label list.
NOTEST

PG

OUT
OUTl

PK
PK

PAGHED ••••••• PH
PDUMP2 ••••••• PG
Switch set to branch if it is a
parameter dump; will bypass printout of
all parts of core except the area
specified in the parameter limits.
PRINT •••••••• PH
PRINTl ••••••• PH
Routine that uses PIOCS to seek, search
ID equal, write count, key and data,
verify" and wait, for completion of the
I/O operation.
PRNTL •••••••• PJ
PRNTLN ••••••• PK
REGPNT
REGPNT5

PJ
PJ
Appendix A. Label List

229

......
· .......
TSTCOR · ......
TSTLST · ......
TSTLST1 ......
TSTPRT · ......
UNPK .........
UNPK1 · .......
SPECIAL
SUPVl

PJ
PG
PK
PK
PK
PK
PJ
PJ

Phase $$BPDUMP Supervisor B-Transient,
Chart PL
Label
Chart
BALl ••••••••• PL
Sense data is tested for file-protect
condition if SYSOOO is a tape drive; if
it is protected, the dump cannot be
taken and this program phase returns to
supervisor for selection of next task.
If not protected, B-transient $$BPDUM1
is fetched to perform the actual
parameter dump.
DISKRT ••••••• PL
Register 3 is loaded with a 1 prior to
fetching B-transient $$BDUMPD to signal
that this is a parameter dump.
EXIT

PL

· .......

FGJOB
PL
Routine that identifies SYSOOO device

PRINT .• .• • • •• •• PL
Entry to sUbroutine that uses PIOCS to
test for a tape file-protect condition
in the event a foreground program dump
is taken and SYSOOO is a tape drive.
PROCED ••••••• PL
START •••••••• PL
Entry point to B-transient $$BPDUMP.

Phase $$BPDUM1 Supervisor B-transient,
Charts PM-PQ
Note: The labels for this program that are
identical to those of the $$BDUMPF program
are discussed in the label list of
$$BDUMPF. Only those labels that differ
significantly or are unique to this program
are expanded here.
Label
Chart
ALTER •••• '•••• -PP--ALTER1
PQ
PQ
ALTER2

BAL

•••••••••• PM
Routine that blanks out initializing
instructions of this program phase so
this portion of storage can be used as
an I/O output area.
BTSTeR •••••• ~ PN

CLRLIN
CMPCOR

ty~e.

.........

FIX7
PL
See discussion of next label.
MAIN1 •••••••• PL
The starting address for the parameter
dump, entered in register 6, is shifted
right double logical 4 positions so that
any value not a multiple of 16 will now
be in register 7. If value in register
7 is now zero, it indicates that the
starting value in register 6 is on a
double-word boundary. Register 6 is
then restored by shifting left to the
next lower double-word boundary nearest
the value specified by the dump
parameter (label FIXT). If register 7
was not zero when tested, the value now
in it is used to calculate the number of
blank print positions needed so printout
starts at desired starting byte.
MAIN2 •••••••• PL
The upper parameter address is
incremented by a word length and tested
against system's main storage capacity
to see if requested dump is a valid
address within core. If not, the upper
storage limit is put in register 8 to
impose a valid dump end limit.
OUT

230

• • • • • • • • •• PL

DOS System Control

DATE

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

PN
PP
PP

ENDLIN ••••••• PN
ENDLIN1 • • • .• •• PN
EOVFG •••••••• PQ
End-of-volume has been detected and the
program decides whether a foreground or
background program is being dumped.
Foreground programs dump on symbolic
device SYSOOO while background programs
use SYSLST.
EOVFGN ••••••• PQ
End-of-volume has occurred on the tape
drive receiving a foreground program
dump (symbolic device SYSOOO). The
class and unit number for SYSOOO is
retrieved and stored in register 0 to
communicate this information to the
end-of-volume routine $$BCMT07.
EOVMV •••••••• PQ
An end-of-volume switch in the
communications region is turned on and
used by the phase $$BCMT07 to indicate
its function.
FGHED •••••••• PP
FGNAME ••••••• PP
FGTST ••••.•••• PM
The logical transient key (LTK) is
compared with the LTK for a background

(

program, to determine if the program to

L/E Common Labels

be dumped is a background or foreground

FIX

program.
•••••••••• PQ
When word counter reaches zero, 2 extra
blanks are inserted between words so
that locations such as lBO, 1CO, 1DO,
etc., will stand out, thus making the
dump easier to read.

LST
LSTLN
LST1

PQ
PN
PQ

MVBLNK

PQ

PAGHED ••••••• PP
PDUMP •.•••••• PM
Register 14 is tested to see if it was
loaded by $$BPDUMP phase to indicate a
tape drive will receive the parameter
dump.
If register 14 is zero, the
physical I/O device is a printer.
PDUMP1 • '. • • • •• PM
Routine that prepares the CCWs and the
CCB for a printer operation rather than
tape operation.
PRINT •••••••• PQ
PRINTL ••••••• PQ
PRNTLN ••••••• PN
PRNTLN1 •••••• PN
REGPNT ..............
REGPNT1 . '.........
REGPNT5 ............
REGPNT6 ............
RELOC ................

PQ
PQ
PQ
PQ
.PM

SPECIAL •••••• PQ
SPECIAL1
PQ
START •••••.•. PM
TPRTN ................
TSTCOR ..............
TSTLST ..............
TSTIST1 ............
TSTPRT ..............

PN

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

PP
PP

UNPK
UNPK1

PM
PP
PN
PN

LINKAGE EDITOR PROGRAM (SECTION 5)
Linkage Editor Program ($LNKEDT, $LNKEDTO,
$LNKEDT2, $LNKEDT4, $LNKEDT6, $LNKEDT8,
$LNKEDTA, $LNKEDTC), Charts QA-SW

)

The first portion of the linkage editor
label list contains labels that can be
referred to by more than one phase. These
labels do not appear in any flowchart.
However, the explanation of these labels
describes critical areas of the listing.

ESDNOO
Listing Only: Contains the
of the first ESD card image
image is on SYS001.
ESDOOO
Listing Only: Contains the
of the first ESD card image
image is on SYSLNK.

disk address
if this card
disk address
if this card

FCHPHS
Listing Only: Contains the phase number
of th~ linkage editor phase to be
fetched next.
NMELST
Listing only: A list of control
sections that have been specified by the
name list operand of an INCLUDE card.
The list is blank except when a named
submodular is still being processed.
NMSBSW
Listing Only: Supplies the information
in byte 4 of location PERIDA during
INCLUDE card processing in the $LNKEDT6
phase. Resets to zero during the
execution of the control card scan in
the $LNKEDT4 phase. Bit 6 is set to one
during initial INCLUDE card processing
and bit 1 is set during phase post
processing (autolink mode).
NOBLOK
Listing only: Third subfield of the
28-byte phase header built in the
$LNKEDT6 phase. Contains the number of
blocks required for the specified phase.
NOBYTE
Listing Only: Fourth subfield of the
28-byte phase header built in the
$LNKEDT6 phase. Contains the number of
bytes in the last block.
l'11XPHRG
Listing Only: Seventh and last subfield
of the 28-byte phase header built in the
$LNKEDT6 phase. Contains the next
available load address. This is a
fUnction of phase length.
ONSOOO
Listing Only: Contains the address of
the next card to be processed.
ORPHDA
Listing Only: Fifth sUbfield of the
28-byte phase header built in the
$LNKEDT6 phase. Contains the disk
address of the first block of the phase
specified in PHEADR (see label list this
section).
ORPHRG
Listing only: Sixth subfield of the
28-byte phase header built in the
$LNKEDT6 phase.. Contains the load
address of this phase.

Appendix A. Label List

231

PERIDA

the include card processor (Chart KN).
Figure 80 illustrates the physical
structure of PER IDA and Figure 81
illustrates how this location functions
as a last in - first out list.

Listing Only: The location labeled
PERIDA is a 3D-byte input control area
used by the linkage editor program to:
• Obtain the address of the next card
image to be processed after the END
card.

Note:

If all five levels of include are
used, the last 5-byte segment of
PER IDA contains the address of
the card image following the
first °include statement.

• Determine the point at which
processi>ng is finished for an object module.
• Maintain control over the nesting of
include statements by functioning as
last in-first out list to establish
processing priorities.
Location PERIDA is used in conjunction
with either location ESDOOO or ESDNOO
(see label list, this section) depending
on the input device being used at this
time. ESDOOO or ESDNOO is loaded with
the disk address of the first ESD card
image of the object module. PERIDA is
loaded with the disk address of card
image that follows the control card
image. The linkage editor program
compares the disk address in location
PERIDA with the address in either ESDOOO
or ESDNOO.
Input control is based on
the result of the comparison that is
made at END card time. Possible results
and corresponding input control actions
are:

Byte Byte Byte Byte

o

1

2

3

C

H

H

R

Byte Byte Byte Byte Byte
26 27 28 29 30

ic

• The address in
the address in
address of the
processed from

232

R

Sw
Byte

: Disk Address
: of Next Card
:L __________
to be Processed .JI

......- - - - Request via Aulolink Switch
l=ON
O=OFF
Figure 80.

(

PERIDA Layout

LIFO LIST

Include A

/

A Says
Include B

• The address in PERIDA is equal to or
higher than the address in ESDNOO.
Effectively shift PERIDA left five
bytes. Get the address of the next
card image to be processed from the
updated PERIDA.

B Says
Include C

DOS System Control

H

I

PERIDA is lower than
ESDNOO. Get the
next card irr,age to be
PERIDA.

Before the comparison is made and the
appropriate actions are taken at END
card time, the linkage editor program
ensures a value is available for PERIDA
(see RECFOO, phase 1 section of the
label list).
Location PERIDA establishes
processing priority by functioning as a
last in - first out list for up to five
levels of include (nest depth). The
list is built during the execution of

H

I
I

• The address in PERIDA is equal to or
higher than the address in ESDOOO.
Process the card image sequentially
following the END card.
• The address in PERIDA is lower than
the address in ESDOOO. Get the
address of next card image to be
processed from PERIDA.

(

/

C :~::::~::)

Last In

B

::(::(::~::::o

Second In

First In

Figure 81.

First
5 Byte
Segment
of Perida
Second
5 Byte
Segment
of Perida

~::::*,

C

First Out

O~~~::::~O B
Second Out

Third
5 Byte
::::::55} A
Segment
of Perida
last Out

Last In - First Out List (LIFO)

PHEADR
Listing Only: First subfield of the
28-byte phase header built in the
$LNKEDT6 phase. Contains the 8-byte
phase name. This is the beginning of a
special purpose I/O area used when phase
information is reinitialized.

(

ROOTNO
Listing Only: This location contains a
zero when the first phase is not
specified root and a one when it is a
root. The value in ROOT NO is either
added to or subtracted from the control
dictionary number.
• Subtracted - When the control
dictionary number is being used to
obtain a control dictionary entry
address.
(C/D NO - ROOTNO) X 16 = DISPLACEMENT
CDENT1 + DISPLACEMENT = ENTRY ADDRESS
• Added - When control dictionary
entries are built, an adjustment of
one is necessary for each entry when a
root phase has been specified.
SBl in a
test register. If the register is
zeroed, there is no MAP information. If
the content is nonzero, MAP information
will be printed.
TSTUNR •••••• SQ
VERLOP •••••• SR
Beginning of a loop to read and verify
all core image blocks written by linkage
editor. All verification occurs at this
point rather than after each individual
write operation.
WRTLOP •••••• SR
Beginning of a loop to write the 20-byte
core image directory headers in the
directory.

(

Phase 8 $LNKEDTC, Charts SU-SW

Label
BEG INN
CATSUP
CHKSUP
CHKTAG
CHKWA
CHKWAR
CHLENT

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

. .. .. . .. .. SV

EOBWA

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

SW

GOONL

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

SW

.. . .. .. . ..

SW

INCRWR

.........

SW

LCANCL
LSTPH

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

SU
SU

MODLR
MVEWA
MVEwB

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

SV
SW
SV

NBLOCK
NEXCID
NODRUP
NOM.TCH

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

SV
SU
SV
SV

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

SU

Chart

SU
SV
SV
SW
SU
SU
SV
CNC~.i.SS
SU
COSTRT ............ SV
Program switch. Branch equal
instruction until the last phase entry
in the system work area is detected <*
in the 1st byte) • At this time, it is
changed to a NOP.
DIRSCN

KWITT

OUTWA
PHNMSS
READWA
REPLRE
RSYSDR

'

...........

SU
SV
SV
SW

SETADDR
SU
START .............. SU
WCIDRC
WRTSYD

...........

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

SW
SW

Appendix A. Label List

243

LIBRARIAN MAINTENANCE PROGRAMS {SECTION 6}
Common Library Maintenance Program {MAINT},
Charts TA-TH

Label
AALLOC
ACATAL
ACONDS
ADELET
AEND
ANALEN
ANSWER
ARENAM
AUTOEN

Chart

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

TB
TB
TB
TB
TA
TO
TF
TB
TA

BCONDS ••••.• TC
BEG INN •••••• TA
Initial entry to MAINT when MAINT is
fetched by job control.
BLOPER •••••• TO
Error message 3M21I INVALID OPERAND.

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

CALL
TH
CANCEL
TF
TF
CANCLl
COUNT
TG
CPEND
TG
CRDBYT
TB
Refer to note *J1 on Chart TB.
DMSG

•••••• TB
•••••• TA
ERRINV •••••• TB
Error message 3Ml0D INVALID OPERATION.
ERRREG •••••• TA
Register containing the address of the
error message routine, ERRRTN. When
branching to the error message routine,
ERRREG is loaded by a BALR instruction
with the address of the error message
information. Before leaving the error
message routine, ERRREB is restored to
the address of ERRRTN.
ERRRTN •••••• TF
Error message subroutine common to MAINT
and all of its phases.
EXEC •••••••• TG
ENT~~I

FMAICL •••••. TB
FOUND ••••••• TH
FRSTCH •••••• TE
Subroutine to get position and length of
the first operand in a control
statement.
TG
TH

IJJMOV •••••• TH
IJJNOSK
TH
244

LAPOVR •••••• TG
LGCARD •••••• TF
LGMSG ••••••• TF
LOAD
Listing Only: Instruction contained in
DTFs for files that are double buffered
{two I/O areas are specified}. This
instruction loads the address from
register 14 in the user's I/O register
as specified in the DTF.
MODCON
MOD IF

TA
TF

NEWRD ••••••• TA
NOFONO •••••• TE
NOREAD •••••• TD
NOPl •••••••• TF
NOP2 • • • • • • •• TF
NORMAL •••••• TA
NXTOPR •••••• TE
Subroutine to get position and length of
all but the first operand in a control
statement.

(

TF

EMAINS

GET
GETIO

IJJPWT •••••• TH
IJJSWAP
TG
IMSG •••••••• TF
INITAl
TE
Subroutine to get position and length of
operation field in a control statement.
INITIAL
TH
INSTRT •••••• TA

DOS System Control

OPERCL
OPERRL
OPERSL

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

TC
TC
TC

PUTLST

'

... ..

TA

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

TB
TF
TG

RDIPT
RETLST
RETURl

,.

'

·.....

SCANFS
TD
SCANRl
TE
SCANR2
TE
SIXTHC
TC
Compares sixth character of operation
field to determine the library
concerned.
SKIPIT •••••• TF
SLOW •••••••• TG

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

TESBYT •••••• TC
Refer to note *A4 on Chart TC
TPIPT ••••••• TB
TSTLCH •••••• TB

(

Core Image Library Maintenance Program
(MAINTC2)" Charts TJ-TK

AREA2
Refer to Figure 65.
AREA3
Refer to Figure 65.
AREA4
Refer to Figure 65.

DELETE

TJ

· ......

ARENAR
ERRMES •••••• TK
Program switch. Set to NOP if no match
to a program (first four characters of
operand) is found in the CI directory.
Set to branch if a match is found.
ERRME1 •••••• TK
Program switch. Set to NOP if operation
is delete. Set to branch if operation
is rename and a scan for the new name is
performed.
ERRPHS •••••• TK
Program switch. Set to NOP if operation
is delete. Set to branch equal if
operatfon is rename and a scan for the
new name is performed.
ERRPRS •••••• TJ
GONCOM

TK

ESID save area"

ESID save area.
ESID save area.

TL

BUFCCD
Listing only: Input area for records
from SYSIPT (160 bytes).
BUFFER
Listing Only: Output area for physical
blocks to be written in the relocatable
library on SYSRES (322 bytes).
BUFREC
Listing Only: Area where one ESD, TXT,
or RLD logical record for the
relocatable library is assembled (160
bytes).
CANCEL •••••• TL, TM, TX
CATALR •••••• TM
CATNEW •••••• TM
CATNMD •• " • •• TM
CATPFD ••
TM
CATREP •••••• TW
CATRIP •••••• TM
CATRIQ •••••• TM
CATRLB " •• " •• TN
CATSER ••• " •• TN
CATSIC •••••• TN
CATSYE •••••• TM
Error message 3M52I: RELOCATABLE
DIRECTORY IS FULL.
CATSYR •••••• TX
Error message 3M53I: RELOCATABLE
LIBRARY IS FULL.
COMCAT •• !. • •• TN
COMCWD •••••. TN
",'I' • •

INCR •••••••• TK
Entry to subroutine to continue scanning
the CI directory from the point where a
match has been found.
MREOPM
MREOPN
NERR1
NINLIB
o PALL
RNXTBL
SCNALL
SCNCID
SCNCIN
SKPOND

· .....

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

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

TJ
TJ
TJ
TK
TJ
TJ
TJ
TK
TK
TK

'

Relocatable Library Maintenance Program
(MAINTR2), Charts TL-TX

ACATAR
ADELER
AINIT
AINITC
AINITO
AINITP
AINITT
AREA1

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

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

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

••

I• • •

· ......

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

TL
TL
TL
TL
TL
TL
TL

Refer to Figure 65.

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

DEERNl-1
TP
Error message 3M33I (module name): NOT
IN LIBRARY.
DELCMP
TQ
DE LET
TP
TP
DELETA
DELETM
TP
DELETO
TP
DELINA
TQ
DELNER
TP
DELNEX
TQ
DELPAL
TQ
DELPFD
TQ
DELPFX
TQ
DELPND
TQ
DELPNE
TQ
DELSW
TQ
Switch is set when an entry is deleted
in the RL directory block being worked
on. Only blocks being changed will be
written on SYSRES.
DRCTRY
Listing Only: I/O area for RL directory
blocks (322 bytes).

ESID save area.

Appendix A. Label List

245

END ERR
Listing Only: EOFADDR specified in DTF
for SYSIPT. Error message 3M34I: EOF
ON SYSIPT - END STATEMENT MISSING.
ENTMAI •••••• TA
Entry in MAINT root phase to get next
operand or next control statement from
SYSRDR or SYSIPT when all operands are
processed.
ERRRTN •••••• TF
Label of the error routine. The address
of this routine is ERRREG ( register 9).
INVCRD •••••• TN
Error message 3MllD:
MODULE.
INVOPD •••••. TW
Error message 3M2lI:
CONTROL STATEMENT.

INVALID CARD IN
INVALID OPERAND IN

NEWRD ••••••• TA
Reads next control card from SYSRDR or
SYSIPT. A module has been bypassed on
SYSIPT because of an error.
NOCYL ••••••. TL
Error message 3M43I: NO RELOCATABLE
LIBRARY.
NOTIN ••••••• TW
Error message 3M33I (module name): NOT
IN LIBRARY.
NXTOPR •••••• TE
Entry in MAINT root phase to extract the
second operand of a RENMv£ control
statement.

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

TR
RCESD
RCESDB
TR
RCESDC
TR
RCESDR
TR
RCESDS
TR
RCES1JT
TR
Compares to see if ESID numbers in input
records are in sequence. If not, a new
library record must be started.
RCESDU •••••• TR
RCESLC •••••. TR
Figure 65 is a table showing how
AREAl, AREA2, AREA3, and AREA4 (ESID
save areas) are set up on Chart TS when
the ESD output record is full and there
are more entries to be moved from the
input record. Refer to Figure 65 to aid
in finding the ESID number for this and
the next output record.
RCESMC •••••• Tr
One or two must be the number of entries
moved to the output ESD record from the
input card at this point in the program
because ESD input cards have a maximum
of three entries. Refer to Figure 65.
RCESSW •••••• TT
RCESTE •••••• TT
RCE.SWB
TT
RCESWR
TR
RCMVBl
TS
TS
RCMVB2
RCL'4VB3
TS
RCMVB4 • • • • •• TS
246

DOS System Control

.... '.

RCMVB5
... TS
RCMVB6
TS
RCRLD
TU
TU
RCRLDB
RCRLDC
TU
RCRLDE
TU
RCRLDL
TU
RCRLDM
TU
RCRLDN
TU
RCRLDR
TU
RCRLDS
TU
RCRLDU
TU
,
RCTXT
TV
RCTXTB
TV
RCTXTC
TV
RCTXTR
TV
RCTXTS
TV
RCTXTU
TV
RCTXTV
TV
RCTXTW
TV
RCWRBK
TX
Subroutine used to write blocks in the
relocatable library on SYSRES.
RCWRBL •••••• TX
RCWRBM •••••• TX
RCWRBN •••••• TX
RCWSUR •••••• TR
RENAME •••••• TW
RENCON •••••• TW
RENCSO • • • .• •• TW
RENCST •••••• TW
RENERN •••••• TW
Error message 3M54I (module
name): ALREADY IN LIBRARY.
RENERO •••••• TW
RMAINT •••••• TL
Initial entry to MAINTR2 is RMAINT to
catalog, RMAINT+4 to delete, or RMAINT+S
to rename.
RSKIPT •••••• TX
Routine used to skip records on SYSIPT
to the end of the module.
RSKIPU •••••• TX
END statement on SYSIPT indicates that
the end of the module has been reached.
SYSIPT is positioned at the record which
follows the END statement.

· .......
............
·.........
..... ..
......
··· .......
....
·........
......
·.........
......
...... ...
·· .......
......
.......
·.........
.....
'

'

;

........
..........
.... ....
'

SEARCH •••••• TW
Subroutine used to find a name in the
relocatable directory.
SEARRD •••••• TW
SRCCMP •••••• TW
SYSDIR
Listing Only: I/O area for system
directory record number 2 (SO bytes).
UPDAT ••••••• TX
Subroutine used to update disk address.
UPDATl •••••• TX
UPDATE • • • .• •. TX
UPDEND •••••• TX

(
ZNMNFD
ZNlvf..NON

TW
TW

Source Statement Library Maintenance
Program (MAINTS2), Charts UA-UN

Label

Chart

ALLTHT •••••• UJ
Starting address of the all through
processing routine.
ALOERR •••••. UM
BEGADD
Listing Only: Register 2 contains the
operand length from the MAINT root
phase.
BERRl ••••••• UH
BKCMPR •••••• UD
BKCPRS •••••• UE
BKNDCK •••••• UE
BKNDPR •••••• UH
Routine used to check the book-end
header. It is not written into the
source statement library.
BKOSEl •••••• UA
BKOSET •••••. UA
BKOTST •••••• UO
BKWAIT ••••.• UC
Entry into I/O routine to read first
card of book.
BNOERR •••••• UH
CATALS
UA
Starting address of the catalog routine.
CATENT •••••• UA
The initial entry to MAINTS2 for catalog
operation.
CDCTPR •••••. UR
CDNDTl •••••• UF
CDVSW ••••••• UJ
CLGETB •••••. UB
CMXBLK •••••• UJ
CNTERR •••••• UG
CPRDPR •••••• UH
CTLCHT •••••• UO
CTLBYl
Listing Only: Switch used to indicate
whether initialization has been done.
Switch is initially on, turned off when
initialization is done.
OCSW
Listing Only: Switch to delete a book
from the source statement library.
DECRLG •••••• UH
DELEl ••••••• UN
DELE2 ••••••• UN
DELENT •••••• UA
The initial entry to MAINTS2 for a
delete operation.
DELERR •••••• UN
Subroutine that issues error message for
any delete errors.
DELET ••••••• UK
DELETS •••••• UA
Starting address of the delete book
routine.

DINIRT •••••• UA
DIRUP ••••••• UK
System directory update routine.
DIRDIl •••••• UK
DLINC ••••••• UJ
DNEWT ••••••. UK
DNTCHT •••••. UK
DOUCAL •••••• UJ
DOURST •••••• UJ
DOUTST •••••• UJ
DOVERR •••••• UL
DRENMl •••••• UK
DRPROC •••••• UK
DTSTC ••••••• UL
EODOl ••••••• UL
EOOIRO •••••. UL
ERRBY
Listing Only: Current error switch.
ERRSEQ •••••• UC
FILOU ••••••. UF
Output buffer full switch that branches
to the address contained in register 10.
The address is FILOUl until the output
block is fUll,.
When the output block is
filled, the branch address is changed to
RELDIN, which is a save area for the
remainder of the card in compressed
form.
FILOUl •••••. UF
FINENT •••.••. UJ
Entry to MAINTS2 to set a switch
indicating that the system directory is
updated and written back on SYSRES.
FINSHS •••••• UJ
(See FINENT in this section.)
FLGBLN •••••• UF
FLGINC •••••• UF
On a compressed card, the high order 4
bits of column two contain the length,
in bytes, of the following non blank
field.
FNOOP ••••••• UE
FRESET •••••• UJ
GETBKN '•••••• UM
GET1CE •••••• UD
Logical IOCS used to read input from
SYSRDR.
GETNNM •••••• UB
INIDAD
UM
INITBK
UC
Two instructions are assembled at this
location. When the program is loaded,
the branch instruction is effective.
The first time the branch is executed,
it is overlaid with a wait that is
effective thereafter.
INITS ••••••• UM
Entry to the initialization routine that
is used to read the system directory
into storage 'from SYSRES.
LASLI2 ••••••• UM
LASLID •••••• UM
Subroutine that checks the book name
Appendix A. Label List

247

operands for length and determines that
the first character is alphabetic.
LCDPRl ••••.• UG
Entry to last card processing routine if
last card was a MEND card.
LCDPRC •••••• UG
Entry to last card processing routine if
last card was a BKEND card.
LCDSWl •••••• UF
LCDTST •••••• UE
LCDTSW .••••. UE
LCDXIT •••••• UG
LDCDND •••••• UE
LDSCAD •••••. UE
MVBCAT .••.•. UB
The starting address of a section of the
CATALS routine that is common to all the
routines.
It is used to get the book
name from the operand field of the
control card.
MVBKNl •••••• UB
MVBNMC •••••• UM
Subroutine that saves the book name of
the book to be cataloged.
MVSTMT •••••. UJ
NDLERR
NMCK
NNM2
NOBBDR
NOCPRS
NOFULL
NRELDI

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

UC
UA
UB
UE
UF
UF
UF

OFULLB •••••• UF
Output buffer full switch that branches
to the address contained in register 10.
The address is NOFULL until the output
block is full.
When the output block is
filled, the branch address is changed to
NRELDI, which is a test for the end of
valid input data in compressed form.
OPREDl •••••• UN
OPRED2 •••••• UN
OPREll •••••• UB, UM, UN
OPRERS •••••• UN
OPRERT •••••. UN
Subroutine that determines if an I or D
type message is to be issued and then
issues the message.
OPRRTN •••••• UH
OPRSCN •••••• UH
PARLGT
Listing Only: Register 1 contains the
operand length from the MAINT root
phase.
RELDIN •••••• UF
RENAMS •••••• UB
Starting address of the rename a book
routine.
RESET ••••••• UJ
RNMENT •••••• UB
Initial entry to MAINTS2 for a rename
operation.
RSETSW •••••• UA
248

DOS System Control

RSTORC
RSTSWS
SBLlf.lSG
SCNBLK
SCNBLN
SCNCD
SCNl>1F
SEQNPR
SEQSW
SETCTM
SLNl'4C2
SLNMCK
SNETST
SPLPRT
SPRTT
STEPBl
STEPB2
STEPLl
STEPL2
STEPL5
SWBOA

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

UB
UG

· .....

UA

(
\

· ..... UK
· ..... UF
· ....... UF
·... ... UE
·..... UH
· ...... UC
· ..... UG
· .. ... UA
· ..... UB
· ..... UB
UJ
· ..... UJ
· .... ..
UK
·· .......
... UL
· ..... UK
UL
· ..... UL
· ..... UC
· ......
TSTD5 · ...... UL
TSTOP · ...... UK
UPS TAT · ..... UG
UPSYSD · ..... UJ
WAIOl · ...... UC
WAITBI · ..... UC
Entry into I/O input control
WAITBO · ... ... UC
Starting address of the I/O output
'

'

'

'

,

'

routine.
WRBLK
WRCMPL
WRDIR
WRTE
WRVRD

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

(

UL
UK
UJ
UJ
UK

System Reallocation Program (MAINTA),
Charts VA-VM

ALLERR • • • •.•• VC
Displays error message 3M62I:
FOR DIR EXCEED CYL FOR LIB.
BLDTB
BLNKDl
BLNKD2

TRACKS

VD
VG
VG

CANCEL

.• • • .• •• VA, VB, VC, VD,
VF, VL
CCDERR •••••• VA, VB, VL
Displays error message 3M21I: INVALID
OPERAND in ALLOC CTRL STMNT.
CDOSA
Listing Only: Beginning of reallocation
tables. Refer to Figure 58 for an
example of one of the three tables at

(

this label.
CLOSA
Listing Only:
rea~location

CLSWT

Beginning of CI library
table. Refer to Figure 5S.

••••••• VA

CNVRTK •••••• VB
COMPAR
Listing Only: The second operand of
this compare instruction is a one during
pass 1 on Chart VJ and a two during pass
2 on Chart VJ. A compare is made to the
update code in the reallocation table.
COMPA1 •••••• VM
COMPA2 •••••• VM
CONVRT •••••• VL
Subroutine to convert the fields in the
ALLOC control statement from decimal to
hexadecimal.
COPYLB •••••• VM
Subroutine used to save the first track
of the label cylinder in the system work
area and to restore this track to the
relocated label cylinder after
reallocation.
CYL

••••••••• VB

DIRERR •••••• VD
Displays error message
3M63I: xxDIRECTORY ALLOCATION IS TOO
SMALL.
DIRUP ••••••• VH
DIRUP1 •••••• VH
DIRUP2 •••••. VH
DIRUP3 •••••• VH
DIRUP4 •••••• VH
DIRUP5 •••••• VH
DIRUP6 •••••• VH
DIRUP7 •••••• VH
DIRUPS •••••. VH
DIRUP9 •••••• VH
DIRUP10
VH
DSKERR •••••• VC, VG, VH, VJ, VK
Displays error message 3M50I: POTENTIAL
DISASTER ERROR. REBUILD SYSTEM.
DSPLN •••••.• VE
DSPL1 ••••••• VE
DSPL2 ••••••• VE
DSPL3 ••••••• VE
DSPL4 ••••••• VE
END •••••••••
ENDJOB ••••••
GETAL
GOON1
INTL1
INTL2
INTL3
INVALL

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

VK
VK

VB
VC
VD

VD
VD
VD

LABEL2
VK
LIB ERR
VD
Displays error message 3M64I: xx
LIBRARY ALLOCATION IS TOO SMALL.
MAINTA
MOV

MOVE
MOVE1
MOVE 2
MOVE 3
MOVE 4
MOVE5
MOVE 6
MOVE7
MOVES
MOVE 9

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

· ......
·...· .........
MOVEl1 · ......
MOV1 · ........
MOV2

VJ
VJ
VJ
VJ
VJ
VJ
VJ
VJ
VJ
VJ
VJ
VJ
VB
VB

MVALDC

VL

~

•
•

• • • • Ie •
. . . . . I• •

'

~10VE10

'

·.......
NEXTAL · .....
NXTL · ........
QUIT

•

•

I.

I• • •

VC
VL

· ........

VC, VG, VH, VJ, VK
SVC 7 is issued on a non-existent
CCB.

An

ROOSA
Listing Only: Beginning of relocatable
directory reallocation table. Refer to
Figure 59.
RDSYSD ••••.•• VC
RLOSA
Listing Only: Beginning of relocatable
library reallocation table. Refer to
Figure 59.
RLSWT •••.•••• VA
RTRN •••••••• VM
SDOSA
Listing Only: Beginning of source
statement directory reallocation table.
Refer to Figure 59.
SLIB •••••••• VL
SLOSA
Listing Only: Beginning of source
statement library reallocation table.
Refer to Figure 59.
SUB IT ••••••• VM
SUBIT2 •••••• VM
TKCOMP •••••• VM
SUbroutine used to increment or
decrement the disk address by a
displacement in register 3 (DISREG).
TKFMT ••••••• VK
TKFMTl •••••• VK
TKFMT2 •••••• VK
TKFMT3 •••••• VK
TKFMT4 •••••• VK
TKFMT5 •••••• VK
TKFMT6 •••••• VK
TKRETN •••••• VM
TRCKS ••••••• VB
TSTB •••••••• VB
TSTNUM •••••• VL
Subroutine to test the fields of the
ALLOC control statement. Each character
must be numeric (0-9).
TYPEL ••••••• VA

VA
VB

UPDATE

VL
Appendix A. Label List

249

Subroutine used to increment an address
to the next character of the ALLOC
control statement.
UPDl • • • • • • •• VB
UPD2 •••••••• VB
UPSYSN •••••• VF
UPSYSl •••••• VF
UPSYS2 • ••••• VF
UPSYS3 •••••• VF
WRITE • • • • • •• VG
WRITEl
VG
VG
WRSYSD
XTNERR • ••••• VF
Displays error message
3M65I: ALLOCATION EXCEEDS SYSRES
EXTENT.

Library Condense Program (MAINTCN), Chart
VN-VT

Label
AUTOCN

Chart

· .....

·.....
CANNOT · .....
CHAST · ......
CHBLNK · .....
CHDEOB · .....
CHGCCW · .....
CHGON · ......
CHKEOB · .....
CHKOFL · .....
CH2 · ........
CH3 · ........
CH4 ·........
CNDCL · ......
CNDRL · ......
CNRSL
BLDCCW

· ......

· .....
· ......
ENDROU · .....
FTCHMA · .....
FTCHL'1E · .....
GOWRTl · .....
GOWRT2 · .....
ICRDAD · .....
ICREND · .....
ICRNOP · .....
ILLEC · ......
IlViUP ........
INCRID · .....
INCRIL · .....
IODISK · .....
DIS ERR
DSMES

250

MArCON
MODHR
MODOFL
MON
MVECHN
MVREC
MVRECl
MVSLCD
MVSLCN

........

VP

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

VQ

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

VR

· .....

VQ
VN

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

VP
VQ
VR

NOCND
NTATRK
NXTTRA
RDDIR
RDLIB
RESTNA

-

'

VP
VT
VT
VP
VP
VR

VQ

SKIPWR •••••• VT
SWBYTE
Listing Only: Bit 0 of CI LIB is
condensed. Bit 7 of SS LIB is being
condensed.
TESTAU
TRNOFF

VR

WIRTDR
WRTEDR

'. • •• •• VQ
VS

VS

VR
VQ
VR
VP

VP
VQ
VT
VT

VQ
VT
VT

Set Condense Limits Program (MAINTCL),
Chart vu

vr
VT

VN

ADDRA

•••• '•••

vu

VN

VN
VS
VS

BEGINN ••••••• VU
Starting address of the MAINTCL program.
BLOPER •••••• VU
CRDDNE

••• '. •• VU

VR
VR
VR
VQ
VR
VT
VT
VT

VR
VQ
VP
VQ
VS

DOS System Control

GENPRO •••••.• VU
Test the operand for the correct length;
then put the limits into binary to be
written into the System Directory.
MAINTCL ••••• VU
Program used to write the automatic
condense limits into the Source
Statement Library
OPRPRS
PROCCL
PROCRL
PROCSL

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

VU
VU

VU
VU

(

Update Transient, Library Routine, and
Foreground Directories Program ($MAINEOJ),
Charts w-vz

LIBRARIAN ORGANIZATION PROGRAMS (SECTION 7)
Copy uystem Program (CORGZ, CORGZ2), Charts
WA-WY

Chart

Label
AUNOP
AUTONO

.........

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

Phase I CORGZ, Charts WA-WV

VW

VX
Label

BEG INN ,e . . . . . . . . . .
BLGOON .. . .. . .. .
BRIFRL . .. . . .. .
BRTLB .. . .. . .. .. .

W

VX
W

VW

COLMN
COMDOL

. .. .. .. .. .. .. W
.. .. .. .. .. .. VX

DSERV

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

Chart

ABORT ..............
ALOCAT ............
AROUND ............
ARUD ................
BLDDE
BLKLUP
BLNKT
BUILD

VX

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

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

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

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

GNLR ..
GNOP ..
GNTP ..
GNTRA
INCRPT
INCRTR
INCRTT

. .. .. .. .. .. VX
. .. . .. .. . VW
. .. .. . .. .. VX
.. .. .. .. . .. VX

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

VY

VZ
VZ
VY
VW
VX

VX

MESLIB . .. . . . .. VY
MESOP .. .. .. .. .. . . VZ
MESTP . . . . . . . VZ
MESTH.A .. .. .. . .. .. VY
NOWRT1
NOWRT2
NOWRT3
NOWRT4
PROLIB
PROOP
PRO TEL
PROTRA

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

..

VX
VX
VX
VX
VY

. VZ

.. VZ
.. VY

.

RDCID .. . .. .. . .. VX
REIPL .. .. .. .. .. . .. VX
A new supervisor has been cataloged.
The system must be started over wirh the
IPL procedure.
RELD •••••••• VZ
RLSL • • • • • • •• VW
SYSDIR
TRNON

VX
• • • • • •. VW

WC
WC
WH
WN
WF
WM

CCARD
CI '...................
CISON ..............
CLSWT ..............
COMCMP ............
CONVRT ............
CONVRTK
COPYRT ............
CORGZ ..............
CPYALL
CYL ..................

WB
WE
WH

DIRGET ............
DLIMIT ............
DOTCMP ............
DOTF ................
DOTFND ............

WS
WG
WF
WH
WF

'

ENDJCE
ENDTBL
ENTCOM
EOJROU

WU
WD

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

END ..................
ENDIND ........
EOFT ................
ERETRN ............
ERRORA
ERRORB ............
ERRORe ............
ERRORD ............
ERRORE ............
ERRORl
ERROR2
ERROR3
ERROR4
ERRORS
ERROR6
ERROR7
ERROR8
ERROR9
ERRRTN
EXCNP
EXIT
EXP

WF
WS
WD

WE
WA
WQ
WD

WL

...

WT

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

WU

'

.......

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

· .....
· .. ...
· .....
·
.....
.......
.........
.........
-

FINDIT
FINDRL
FRfilDIR

WD

WB
WV
WU
WU
WU
WU
WU
WU
WU
WU
WU

WU
WU
WU

WU
WV
WR

WL
WT

WH
WJ
• • •• •• WC
Appendix A. Label List

251

GENTRY
GETAL
GETDIR
GONXT

·.....

· ......
· .....
·......
IOSYRS · .....
ISSS · .......
LKDOT · ......

MOTEST
MOVE
MOVE!
MOVE2
MOVE2
MOVECC
MVALDC

·.....
· .......
·......
··.......
. -,- ..
··......
...
,.

·......
· ......
·.....
·
......
· .......
· .....
OTHER · ......
OVRFLW
NEWRD
NEXTT
NOFIND
NTALL
NXTL
NXTONE

WQ
WD

WE
WE'

WP
WI{

WM
WT

WP
WT

WT
WK

WS

TE~~G

252

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

WM

'

· .......

WP
WT

WQ

Phase 2 CORGZ2 1 Charts WW-WY

WE

Chart

Label
CLEAR
COPYIT
COREIM
CORGZ2
CPLB

WR

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

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

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

WX
WW
WW
WW

WX

ENDCHK
EOJ

WW
WX

INITIAL

WW

LOOPCT
NOLIB

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

· .......
READ ·.......
READIR

OUT

WY
WX
WX
WW

WM

·..... 'WY
READLB ........ WY
RXTURN · ..... WX
SETLIM · ..... WW
SKIPWR · .. ... WY
SSON · ....... WX
SSTAT ·...... WW
SYSDIR · ..... WY
UPDDIR · ..... WW
UPDISK · ..... WY
UPRITE · ..... WY
WAITRS · ..... WY
WRITIT ·..... WX
WRI'l"LB ·..... WY

WA
WD
WK

LIBRARIAN SERVICE PROGRAMS (SECTION 8)

· ...... WC
·
. .........
.. . . . . WA
· ...... WH
WG
·......
· ..... WR
WG

.....
··......
· .....
TRCKS · ......
TRYSS · ......
TSTDEL · .....
TSTNUM ·.....
TSTRL · ......
TURNSW ·.....
TYPEL · ......
UPD! · .......
UPD2 · .......
UPDATE · .....
UPDISK · .....
UPINIT ·.....

WN
WN
WN

WD

WQ
WQ
WS

WD

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

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

WD

WP

· .. .....

WRITE
WRIT-IT
WRTBLK
WRTSD

WR

·..... WF
RALLT ·...... WG
READ · ....... WB
READCC · ..... WE
READDK · .....
RISON · ...... WJ
RLAC ·....... WC
RLSWT · ......
RRL . . .. . . .. . WE
RRTURN · ..... WH
RTREND · ...... WC
SALLT
SDAL
SDW
SEEIF
SETTS
SINGLE
SISON
5 ISONT
SLAC
SLIB
SS
SSWTST
STEXIT
STORE

UPIT
UPRI
UPRITE

WK

WT
WC
WS
WE
WG

WL

'

WH
WN

WJ
WG

Directory Service Program' (DSERV)I Charts
XA-XJ

WD
WD
WD
WN

Label

WN
WA

AM

DOS System control

Chart

...........

XD

(

ADD 01
ADD02
ADD 03
BBB

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

XG
XG
XG

.........

XD

field in the DSERV control statements.
IORUT •••• ,•• '. XF
LIBRPRES •••• XB
Subroutine used to determine if the
relocatable and/or source statement
libraries are present.

CCC
• • • • • • • •• XE
CLEAR ••••••. XJ
CNT

Listing Only:
576 is the maximum number
of entries in the transient directory.
COBL •••••••• XE
CONTIN •••••. XE
COUNTING
XC
DATACHEK
XG
DATERR •••••• XG
DDD
• • • • • • • •• XE
DECRT ••••••• XF
DIRTYP •••••. XA
DSERV •••••.. XB
DSPBYT
Listing Only:
Initially X'OO'.
Bit 4 X'08'
TRANSIENT DIR SW
Bit 5 X'04' = SS DIR SW
Bit 6 X'02' = RL DIR SW
Bit 7 X'Ol' = CI DIR SW
DTFCPPUT •••• XB
Subroutine used to print a line on
SYSLST using CPMOD LIOCS module.

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

ENDTD
XC
ENTf."AI
XA
EOJ
XB, XE
EOVLST
XB
ERRINV
XA
Displays error message 3D10D:
OPERATION.

OFF ••••••••• XD
OFFSD •••• ,••• XE
OPAERR •••••• XA
Displays error message 3D20D:
OPERAND.

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

RDCONV
RDERU
READ1
RELSEA
RET

· ... ...
· ......
'

INVALID

XD
XG
XF
XF
XB

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

INVALID

FRSTCH •••••• XH
Subroutine used to determine the,
position and length of the first operand
of the DSERV control statements.
GETAD ••••••• XG
GETADA •••••• XG
GETCD ••••••• XC
GETNXRD
XD
GETNXSD
XE
GET NX TD
XC
GETRD ••••••• XD
GETSD ••••••• XE
GETSUT •••••• XF
This is the entry label to the SDMOD
LIOCS module when a GET macro is issued
in the program.
GETTD ••••••• XC
GETTD1 •••••• XC
GETXIT •••••• XF
HDRRD
HDRSD
HDRTD

NEWRD ••••••• XA
NOFOND •••••• XH
NOREAD •••••• XA
NOSL •••••••• XB
NOTBLK •••••• XA
NXTOPR •••••• XH
Subroutine used to determine the
position and length of the next operand
in the DSERV control statements.

XD
XE
XJ

INITSHL
XH
Subroutine used to determine the
position and length of the operation

SCANR1
XH
SCANR2
XH
SDCONV
XE
SKIPA
XG
SW
Listing Only:
Indicator for directory
being displayed.
o - pot transient directory
T - transient directory
SYSDIR •••••• XB
TDCONV •••••• XC
TDWORK
Listing only:
Input buffer for one
20-byte directory entry.
TEST

••••••.••

XF

TESBYT
Listing Only:
Initially X'80' bit 0"
X'80' - First control statement switch.
TESTSL •••••• XB
TRYCD ••••••• XB
TRYRD ••• ,. ,. ,.. XB
TRYSD •••• ,••• XB
TSTLCH •••••• XA
TURNOFF
XJ
USERSK
WLRERR
WRHDR
XXX

yyy

ZZZ

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

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

XG
XG
XC
XC
XC
XC
Appendix A. Label List

253

Relocatable Library Service Program
(RSERV), Charts YA-YL

Label
AINTIS
ALLSW2

Chart
YA
YC

CANCEL •••••• YA
CHP3 •••••••• YC
CMPDIR •••••• YC
CMP2 •••••••• YC
CNVORG •••••• YJ
CPLSOP •••••• YB
CPSLSH •••••• YA
CRDSWT
Listing Only: Program flags.
Bit 0 - first time switch in RLDPRT
routine.
Bit 2 = 2540 reader/punch.
EDCPGP •••••• YE, YG, YH
EDPCBA •••••• YE
EDPCCS •••••• YE
EDPCIA •••••• YE
EDPCIR •••••• YE
EDPCLA •••••• YE
The number of entries is computed by
dividing by 16 the variable field byte
count of the ESD record.
EDPCLI •••••• YE
EDPCLT •••••• YE
only non-LD items are included in the
ESID number count.
EDPCNA •••••• YE
EDFCRT •••••• YE
EDPCSC •••••• YE
EDPCSI •••••• YE
EOD1 •••••••• YC
EOMTST •••••• YO
EOMTS1 •••••• YO
ENDRTN •••••• YA
EOFADDR specified in the DTF for SYSRDR.
ENDRT1 •••••• YA
ERlLOP •••••• YA
Error message 3R10D: INVALID OPERATION.
ESDPBP •••••• YF
ESDPCA •••••• YF
ESDPCH •••••• YE
ESDPIA •••••• YF
ESDPRT •••••• YF
ESDPSB •••••• YF
ESDPTL '•••••• YF
ESDPUD •••••• YF
EXTK3 ••••••• YO
EXTRCT •••••• YB
EXTRT1 •••••• YB
GETCTL •••••• YA
Subroutine to read control cards from
SYSRDR.
GETFIA •••••• YL
GETFIL •••••• YL
GETFLD •••••• YL
GETFR1 •••••• YL
254

DOS System Control

GETFR2
GETFSC
GETFSI
GETFSN
GETFSR
GETFTS
GETFWM

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

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

YL
YL
YL
YL
YL
YL
YL

IGNORE •••••• YC
ILOPRO •••••• YB
Error message 3R21I:
INCRIT •••••• YH
NOLIB ••••••• YA
Error message 3R43I:
LIBRARY.
NOPCH ••••••• YO
NOTHR1
•••••• YC
Error message 3R27I:
FOUND.
PCHSUB
PCHSWT
PPSWT
PRTHCM
PRTHCN
PRTHDR
PRTHGS
PRTHG1
PRTHG2
PRTHUO
PRTSRA
PRTSSK
PRTSUB
PRTSWT
PRT1
PSUB2

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

...... .....
..............
'

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

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

...........

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

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

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

INVALID OPERAND.

NO RELOCATABLE

(module name) NOT

YK
YA
YA
YD
YD
YD
YD
YD
YO
YO

YK
YK
YK
YA
YD
YK

RDCD •••••••• YA
RDDISK •••••• YK
RDPCAI •••••• YH
RDPCBB •••••• YH
RDPCCT •••••• YH
ROPCS4
•••••• YH
RDPCS8 •••••• YH
RDPCTS •••••• YH
RDRD1 ••••••• YC
RDRD2 ••••••• YC
RDRD4 ••••••• YC
RDSD •••••••• YA
REINT1 •••••• YE, YG, YH
REPPL ••••••• YJ
When a replace card is printed, entries
are divided by blanks instead of commas.
REPPRT •••••• YJ
RLDPBP •••••• YJ
RDLPCH •••••• YH
RLDPCO •••••• YJ
RLDPDR •••••• YJ
RLDPHE •••••• YJ
RLDPRR •••••• YJ
RLDPRT •••••• YJ
RLDPSW •••••• YJ
RLDPUO •••••• YJ
RLDPXA •••••• YJ
SS2 .......... YA
SYMPRT • • .• • •• YG

TSTDAL
TSTPCH
TSTPCI
TSTPRT
TXPCIM
TXPCSC
TXTPCH
TXTPIA
TXTPRT
TXTPSA
TXTPT2
UPOT3

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

YC
YO
YO

YO
YG
YG
YG
YG
YG
YG
YG
YC

EOV condition has been encountered on
SYSLST.
EOVPCH
ZK
Entry to end-of-volume routine when an
EOV condition has been encountered on
SYSPCH.
EXIT .
ZH
EXP
ZC
EXPCDl
ZC
EXPCO
ZC
EXPLP
ZC
EXPOUT
ZE
Entry into routine that controls the
expanded output.
EXPTIN
ZC

· .....

.......

..... .....
·......
.....
··.......
.......
'

· .....

Source Statement Library Service Program
(SSERV), Charts ZA-ZL

ALLSW ••••••• ZO
Switch set if operand is ALL.
ALLTST •••••• ZB
ALOTST
• ZB

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

BEOVRT
ZK
BKENDO
ZO
BKNDOA
ZF
BKNDOS
ZF
BKNDOU
ZF
Subr'outine for header and trailer
control.
BKNDOl •••••• ZF
BLNENT •••••• ZJ
Entry into find operand subroutine used
to find the first operand on the control
statement.
CALLCS •••••• ZA
Entry into SSERV control statement
analysis used to read another control
statement.
CHNGSB •••••• ZB
CLRCO ••••••• ZC
CMPRST •••••• ZO
COSET ••••••• ZE
CPPCH2 •••••• ZE
CPRPCH •••••• ZE
CPRSCl •••••• ZA
CPRSC3 •••••• ZA
CPRSCN •••••• ZA
CPRSW ••••••• ZC
Switch set to -FF- if output is
compressed.
CSERRl •••••• ZL
CSERR2 •••••• ZL
CSERR3 •••••• ZL
DIRCKl

• • • • •• ZG

EOBK • • • • • • •• ZO
EOBKT
ZD
EOVLST
ZK
Entry to end-of-volume routine when an

FNDBK •• ••••• ZG
Entry to subroutine used to find the
book to be serviced in the source
statement library.
FNDBKl •••••• ZG
Entry to find book subroutine.
FNDBK2 •••••• ZG
FNDL ••••••••• ZG
The two instructions at this address are
overlayed the first time they are
executed (fetching $$BOPNLB).
$$BOPNLB
is called to find the source statement
library.
$$BOPNLB replaces the calling
instructions with two execute
instructions.
GETALL •••••• ZC
Entry point to get next book if the
sublibrary qualifier is a period.
GETBKl •••••• ZB
GETOUT •••••• ZK
HIBKSW
HIBKT

ZL
ZD

IBUFPT •••••• ZC
INITl ••••••• ZA
The initial entry point to the SSERV
program.
MVBKN • • • •• •• ZC
ZC
MVBKNl
NBLENT •••••• ZJ
Entry into find operand subroutine to
find the second and all remaining
operands.
NBLEl • • ••••• ZJ
NFERR ••••••• ZL
NOLIB •• ••••• ZH
PCHESW
PRTCCD
PRTCCl
PRTNF
PRTNFl
PRTNF2
PRTSW
PRTTST
PTRNT
RDBLK

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

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

ZE
ZL
ZL
ZL
ZL
ZL
ZC
ZE
ZD

.......

ZG

'

'

'

Appendix A. Label List

255

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

RDBLKl
ZG
RDBLK2
ZD
RDBLK3
ZD
ZJ
RDRDR
Entry to read control statement
subroutine. Reads a card and checks for
EOF.
RELOC ••••••• ZH
RELOCl •• ~ ••• ZH
REP'CAL •••••• ZH
RESCN ••••••• ZA
RSTBPT •••••• ZG
RSTBPl •••••• ZG
RSTDA ••••••• ZG
RSTPRT •••••• ZE
RTRNTl •••••• ZD
RTURN ••••••• ZG
RTURNl •••••• ZG
SCNNBL

256

•••••• ZJ

DOS System Control

SCNTSP •••••• ZJ
SKIPBO •••••• ZD
SLASHO •••••• ZK
Entry into eng-of-file subroutine that
completes job and calls job control.
SLASHY •••••• ZK
SLASHl •••••• ZK
START ••••••• ZH
Starting address of $$BOPNLB transient,
·which is used to find the source
statement library directory in the
SYSRES pack.
TSTCMl ••••••
TSTND •••••••
TSTPCl
TSTQUA ••••••
Entry point
operands on
serviced.

ZF
ZG
ZF
ZB
used to test for more
the control statement being

APPENDIX B. FLOWCHART ABBREVIATIONS

ABS
ACC
ACCT
ACT
ADDR
ADJ
ADV
ALL BND
ALLOC
ALPHA
ALT
APROX
ARITH
ASDNG
ASMBL
ASGN
ATT
AUX
AVAIL

Absolute
Accumulator
Account
Actual
Address
Adjust
Advance
Algebraic
All Bound
Allocation
Alphabetic
Alternate, Alteration
Approximate
Arithmetic
Ascending
Assemble
Assign
Attention
Auxiliary
Availability

BFR
BI
BKSP
BLK
BLKCNT
BLNK
BR
BM

Buffer
Binary
Backspace
Block
Block count
Blank
Branch
Buffer Mark

ALG

Calculate, Calculator
Carriage
CC
Card Column
CD
Card
CHAN
Channel
CHAR
Character
CHG
Change
CHK
Check
CHKPT
Checkpoint
CLR
Clear
CLS
Close
CMND
Command
CMP
Compare
CMPL
Complement
CMPRSD
Compressed
CNCL
Cancel
CNSL
Console
CNT
Count
COL
Column
COMM
communication
COMP
Compute
CON
Constant
COND
Condition
CONT
continue
CONV
Convert
CORR
Correction
CPLD
coupled
CPSW
Current PSW
CTR
Counter
CTRL
Control
CTRL DICT Control Dictionary
CU
Control Unit

CURR
CYL

Current
Cylinder

DCMT
DCML
DEC
DECR
DEL
DESCG
DEV
DIM
DIR
DR
DSK
DSPLT
DSPY

Document
Decimal
Decision
Decrement
Delete
Descending
Device
Dimension
Directory
Drive
Disk
Displacement
Display

ELIM
ENT
EOF
EOJ
EOPSW
EOR
EQ
EQUIP
ERP
ERR
ES
EXEC
EXT

Eliminate
Entry
End of File
End of Job
External Old PSW
End of Reel
Equal
Equipment
Error Recovery Procedure
Error
Electronic Switch
Execute
External

FIG
FLD
FLDL
FLT
FMT
FR
FREQ
FUNC
FWD
FXD

Figure
Field
Field Length
Floating
Format
From
Frequency
Function
Forward
Fixed

GEN
GENL
GM

Generator
General
Groupmark

HDR
HEX
HI
HLT
HSK
HYPER

Header
Hexadecimal
High
Halt
Housekeeping
Hypertape

1/0

Input/Output
Instruction Counter
Identification
Increment
Indicate
Indication
Indicator
Information
InitiaJize

CALC
CARR

Ie
ID
INCR
IND
INDN
INDR
INFO
INIT

Appendix B. Flowchart Abbreviations

257

INQ
INST
INT
INTERV
INTRPT
I NVAL
IOOPSW
IT
IW

Inquire
Instruction
Initial
Intervention
Interrupt
Invalid
I/O Old PSW
Interval Timer
Index Word

PRI
PROB
PROC
PROG
PROT
PRT
PT
PTR
PUB

Priority
Problem
Process
Program
Protect, Protection
Print
Point
Printer
Physical Unit Block

LA
LBL
LD
LDG
LGL
LIT
LNG
LOC
LT
LTK
LTR
LUB

Load Address
Label
Load
Leading
Logical
Literal
Length
Location
Less Than
Logical Transient Key
Letter
Logical Unit Block

Q

Queue

MACH
MAX
MCOPSW
MIN
MISC
MOD
MPXR
MPS
MPY
MSG

Machine
Maximum
Machine Check Old PSW
Minimum
Miscellaneous
Modification
Multiplexor
Multiprogramming System
Multiply
Message

NEG
NO
NUM
NXT

Negative
Number
Numeric
Next

OC
OP
OPN
OPND
OPTR

Operator Communication
Operation
Open
operand
Operator
Order
Overflow
Overlap
Overlay
Overrun

R+S
R/W
RCD
RCV
RD
RDR
RDY
RECVY
REF
REG
REJ
REL
RELOC
REQ
RES
RET
RGN
RI
RLS
RM
RO
RPT
RSLT
RST
RSTR
RSTRT
RTE
RTN
RWD
RO

Reset+Start
Read/Write
Record
Receive
Read
Reader
Ready
Recovery
Reference
Register
Reject
Release
Relocatable
Request, Require
Residual
Return
Region
Read In
Reels
Record Mark
Read Out
Report
Result
Reset
Restore
Restart
Route
Routine
Rewind
Record Zero

SCHED
SCN
SCTR
SECT
SEG
SEL
SEN
SEQ
SER
SIG
SILl

Schedule, Scheduler
Scan
Sector
Section
Segment
Select
Sense
Sequence
Serial
Signal
Suppress Incorrect
Length Indication
Simulator
Seek
Storage Mark
Single
Space
Specification, Specify
Search
Store
Storage
Statement
Stored
Starting
Subtract

ORD

OVFLO
OVLP
OVLY
OVRN
P.PROG
PARAM
PAREN
PC
PCI
PCOPSW
PG
PGLIN
PH
PKD

PNCH
PNDG
PNTR
POS
PR
PREC
PREV
258

Problem Program
Parameter
Parenthesis
Program Check
Program Controlled
Interrupt
Program Check Old PSW
Page
Page and Line
Phase
Packed
Punch
Pending
Pointer
Position
Print
Precision
Previous

DOS System Control

SIM
SK
SM
SNGL
SP
SPEC
SRCH
ST
STG
STMNT
STRD
STRTG
SUB

SUMM
SUP
SUPVR
SV
SVCOPSW
SYM
SYNC
SYST
Sw

Summarize
Suppress
supervisor
Save
SVC Old PSW
Symbol, Symbolic
Synchronize,
Synchronizer
System
Switch

TBL
TEMP
TM
TMN
TMT
TOT
TP
TR
TRANS
TRK
TRLR
TST
TU
TW

Table
Temporary
Tapemark
Transmission
Transmit
Total
Tape
Transfer
Transient
Track
Trailer
Test
Tape Unit
Typewriter

UNC
UNLD
UNPK
UNPKD
UNUSL
UPD

Unconditional
Unload
Unpack
Unpacked
Unusual
Update

VAR
VER
VOL

Variable
Verify
Volume

WA
WD
WLR
WM
WR
WRK

Work Area
Word
Wrong Length Record
Wordmark
Write
Work

XPL
XTR

Explain, Explanation
Extra

Z
ZN

Zero
Zone

Appendix B. Flowchart Abbreviations

259

APPENDIX C: FLOWCHART SYMBOLS

ITEM

IDENTIFICATION

A4

TERMINAL.

Beginning, end or point of interruption in the progrom.

2

DECISION.

Decision function dependent on existing conditions.

3

SUBROUTINE.

4

SUBROUTINE CHART IDENTIFICATION.
ther explanation is found.

5

LABEL.

6

PROCESS BLOCK.
being performed.

7

BLOCK COORDINATE.
the block.

8

I/O BLOCK.
performed.

9

MODIFICATION BLOCK. Notation within the block defines the program modification being performed.

Label of routine corresponds to listing label.
Identifies chart where fur-

Corresponds to listing label.

Notation within the block defines the function being

PREDEFINED PROCESS BLOCK. Notation within the block defines
processing not included in this set of flow charts.

11

OFF-PAGE CONNECTOR. Notation within this block defines the
flowchart and block coordinate to which control is being transferred.

12

OFF-PAGE CONNECTOR. Notation within this block defines the
flowchart and block coordinate from which control is being tronsferred.

13

Same as 12 except the • defines a multiple entry.

14

ON-PAGE CONNECTOR.
the some flowchart.

Exit from this block to another block on

15

ON-PAGE CONNECTOR.
flowchart.

Entry from another block on the some

16

SUBROUTINE. Notation within the block defines the function being
performed by the subroutine.

260

Descript ion 1-----(16

Can anpear on the left or right hand side of

10

Figure 83.

·~JMl--0

Notation within the block defines the function

Description of Flowchart Symbols

DOS System Control

0-

SY;.;S;;.;.X.;.;.Y.;;;Z;.&...--..;;D;..;4

APPENDIX D: SAMPLE LISTIO PRINTOUTS
,.
2.
3.
4.
5.
6.
7.
8.
9.

List
List
List
List
List
List
List
List
List
10. List

all system units.
all background programmer units.
all foreground 1 programmer units.
all units.
all foreground 2 programmer units.
a specific unit (SY5XXX).
the logical units assigned to all physical devices.
all unassigned units.
all down units.
all logical units assigned to a specified physical

Note: The lst Iine of each sample shows the control
statement as it was logged by job control.

~

II LISTIO ALL

•••

unit.

110 UNIT

2J

1/

L1STIO SYS

•••
110 UNIT

CMNT

SYSRDR
SYSIPT
SYSPCH
SYSLST
SYSLOG
SYSLNK
SYSRES

~

•••

CHNL

UNIT

0
0
0
0
0

DC
DC
00
OF
IF

••
1

UA

MODE

....

CMNT

SYSOOO
SYSOOI
SYS002
SYS003
SYS004
SYS005
SYS006
SYS007
SYS008
SYS009
SYSOI0
SYSOll

110 UNIT

••
90

PROGRAM •••
CHNL
1
1
1
1
1
1
1
1

••
••
••
••

UNIT

UA
UA
UA
UA

MODE

91
91
91
91
92
92
92
92

••
••
••
••

•••
SYSOOO
SYSOOI
SYS002
SYS003
SYS004

Figure 84.

CMNT

FOREGROUND 1
CHNL

••
••
••
••
••

UNIT
UA
UA
UA
UA
UA

••

••
••
••
••

CMNT

MODE

••

••
••
CMNT

SYSOOO
SYSOOI
SYS002
SYS003
SYS004

••

90

•••
UNIT

UA ••
UA
UA ••
UA ••

••

UNIT
UA
UA
UA
UA
UA

••

UNIT
UA
UA
UA
UA
UA

•••
MODE

••
••
••
••
••

FOREGROUND
CHNL

••
••
••
••

MODE

91
91
91
91
92
92
92
92

CHNL

••

MODE

DC
DC
00
OF
IF

FOREGROUND 2

••
•••

1/0 UNIT

CHNL

••
••
••

CMNT

UA

PROGRAM

••

SYSOOO
SYSOOI
SYS002
SYS003
SYS004

•••

UNIT

••

SYSOOO
SYSOOI
SYS002
SYS003
SYS004
SYS005
SYS006
SYS007
SYS008
SYS009
SYSOI0
SYSOll

110 UNIT

•••

CHNL
0
0
0
0
0

•••

II LI STIO Fl

110 UNIT

SYSRDR
SYSIPT
SYSPCH
SYSLST
SYSLOG
SYSLNK
SYSRES

•••

II LISTID PROG

1/0 UNIT

~

SYSTEM

CMNT

SYSTEM

•••
MODE

••••
••
••
••

Sample LISTIO Printouts (Part 1 of 2)

Appendix D. LISTIO Sample

261

..:.J

1/ LISTIO F2

•••
I/O UNIT

FOREGROUND 2
CHNL

CMNT

••
••
••
••

SYSOOO
SYSOOI
SYS002
SVS003
SYSOOII

~

••

110 UNIT

CMNT

•••

CHNL

UNIT

0

DC

MODE

II lISTIO UNITS

CHNL

UNIT

0
0
0
0
0
1
1
1
1
1
1
1
1
1

OF
OC
OC
IF
00
90
91
91
91
91
92
92
92
92

OWNER

110 UNIT

BG
BG
BG
BG
BG
BG
BG
BG

SYSLST
SYSRDR
SYSIPT
SYSLOG
SYSPCH
SYSRES
SYSOOO
SYSOOI
SYS002
SYS003
SYSOOII
SYSOOS
SYS006
SYSOO7

CMNT

MODE

II LISTIO UA

•••

UNASSIGNED
CHNL

•••

UNIT
90

1

.!J

MODE

••
••
••
••
••

SYSTEM

SYSRDR

-!J

UA
UA
UA
UA
UA

•••

II LISTIO SYSRDR

•••

.:J

UNIT

II LISTIO DOWN

••• DOWN •••
CHNL

UNIT

•• NONE ••

.!EJ

II LISTIO Xii01FiI

CHNL

UNIT

0

IF

Figure 84.

262

OWNER

1/0 UNIT

CMNT MODE

SVSLOG

Sample LISTIO Printouts (Part 2 of 2)

DOS System Control

APPENDIX E: LINKAGE EDITOR ESD PROCESSING

CONTROL
DICTIONARY
ENTRY

ESD ITEM FOR PROCESSI NG
SD
• Origin on a
doubleword
boundary
• Current phase
number saved in
the input area
for later use
in the control
dictionary •
• SD length saved
so that it can
be used in calculating the
next phase origin
at the end of
ESD processing.
• Relocation factor
for this SD computed.

LD
• Check the linkage table to
determine if a
corresponding
SD entry has
been processed.
a. Processednegative
control dictionary
numberignore this
LD.
b. Not processed make this LD
unassigned.
c. Processedpositive control dictionary numberassign the
LD and save
the control
dictionary
number in
the input
area •

ER
• If this phase is
not to be autolinked, set the
first byte of the
origin field to
a X'FF'.

PC
• Origin on a
doubleword
boundary.

CM
No comment

• PC length saved
so that it can be
used in calculating the next
phase orig in at
the end of ESD
processing.
• Relocation
foc tor for th is
PC computed.
• Name field of
PC must be
blank or an
error exists.

• LD must point to
a SD or CM or
an error exists.
LD

Note A

Note D

Note G

LR

Note A

Note D

Note G

SD

Note B

Note E

Not~

PC

Not Possible

Not Possible

Not Possible

CM

Error

Error

Note J

Note L

ER

Note C

Note F

Note K

Note M

NO
MATCH

Post the SD to the
control dictionary.

Post the LD to the
control dictionary.

Post the ER to the
control dictionary.

Post the CM to the
control dictionary.

Figure 85.

H

A PC item cannot
be matched against
the control dictionary because it has
a blank name
field. Post any PC
as a new control
dictionary entry.

Error
Error
Error
Not Possible

Description of ESD Processing

Appendix E. ESD Processing

263

Notes For Figure 85.

A.

2.

An SO that matches an assigned LO/LR
entry is an error. An SO that matches
~n unassigned LO/LR entry requires
that:
1.

2.

a. The assembled origin of the
input LO must equal the
assembled origin of the
control dictionary entry or
an error exists.

The ESO number of the SO equal the
LO/LR ESO number.

b. If the assembled or1g1ns
agree and the LOs point to
the same SO, ignore the
input.

The assembled origin of the ESO
it~m (SO) equal the assembled
origin of the control dictionary
entry (LO/LR).

c. If the input and control
dictionary entry do not
point to the same SO, the
labels of the SO entries
pointed to must match or an
error exists.

If either requirement is not met, an
error exists. If both requirements are
met, replace the LO/LR entry with the
SO item just processed.
After the linkage table has been
updated, and if the SO is not to be
bypassed, calculate the next available
phase origin. Try to resolve any
unassigned LD/LRs. If the ESO nunilier
is negative, skip the LO/LR. If the
ESD number is positive and a control
dictionary number exists in the linkage
table for the LO/LR, put this number
into the control dictionary. If the
control dictionary number is negative,
leave the LO/LR unassigned. If it is
positive, assign the LD/LR entry in the
control dictionary. The reason an
attempt is made to assigh unassigned
LO/LRs at this time is that a new SD
has just been posted and it might
define the unassigned LO/LR.
B.

d. If the labels are the same,
test the phase numbers. If
equal phase. numbers are
found, set a switch to
indicate a possible
duplicate entry and ignore
the input. If the phase
numbers are different, post
the input LO as a new
control dictionary entry.
3.

b. Compare the phase numbers of
the LDs. If the phase
numbers are equal, set a
switch to indicate a
possible duplicate entry and
ignore the input. If the
phase numbers are different,
post the input LO as a new
control dictionary entry.

If the SO entry is for the current
phase, or for the root phase, make the
control dictionary number in the
linkage table a negative value so that
all LO references to this SO will be
bypassed.
E.
Replace the ER entry in the control
dictionary with the ESO-SO item.

o.

The three possible conditions and
actions taken are as follows:

The two possible conditions and actions
taken are as follows:
1.

1.

264

The control dictionary entry is an
unass·igned LD/LR. Set a switch to
indicate a possible duplicate
entry. Replace the control
dictionary entry with the ESO-LO.
(Change the input LD to an LR if
the old control dictionary entry
was an LR.)
DOS System Control

The ESO input is an unassigned LD
and the control dictionary entry is
an assigned LO/LR.
a. The assembled origin of the
input LD must equal the
assembled origin of the
control dictionary entry, or
an error exists.

If the SO entry in the control
dictionary is not for the current
phase, or for the root phase, post the
ESO-SO to the control dictionary as a
new entry.

C.

The ESO input is an assigned LO and
the control dictionary entry is an
assigned LD/LR.

The ESO input is an assigned LO.
a. The assembled origin of the
input LD must equal the
assembled origin of the control
dictionary entry or an error
exists.
b. Compare the control dictionary
number of the input with the
control dictionary number of the
control dictionary entry. If

the control dictionary numbers
are equal, ignore the input. If
the numbers are different, an
error exists (invalid
duplication of a label>.
2.

autolink is specified, and the
phase number of the control
dictionary entry is not the
current phase or the root phase,
post the ER to the control
dictionary. This enables the ER
to be autolinked.

The ESD input is an unassigned LD.
a. Same as item 1 above.

b. If the prefix is not IJ, NOAUTO
is specified, and the control
dictionary entry is an assigned
LD/LR, force the control
dictionary entry to be an LR.
If the control dictionary entry
is either an so or an LR, do not
post the input as a new control
dictionary entry.

b. Compare the phase numbers of the
input and the control dictionary
entry. If the phase numbers are
equal, set a switch to indicate
a possible duplicate entry and
ignore the input.
If the phase
numbers are different, post the
input LD as a new control
dictionary entry.
F.

G.

Make the LD entry an LR and replace the
control dictionary entry (ER) with the
input LR.

H.

Same as item G2 above.

J.

Do not change the control dictionary
entry (CM). Put the control dictionary
number of the CM control dictionary
entry into the linkage table entry of
the ER, thereby assigning the ER.

K.

Replace the control dictionary entry
with the input ER for autolink.

L.

Put the common (CM) with the longest
length into the control dictionary.

M.

Replace the ER entry in the control
dictionary with the ESD-CM item.

The two possible conditions and actions
taken are as follows:
1.

The input ER matches an unassigned
LD/LR. Continue the scan of the
control dictionary.

2.

The input ER matches an assigned
LD/LR or an SD.
a. If an IJ prefix is found,

Appendix E. ESO Processing

265

APPENDIX F: ERROR MESSAGE CROSS REFERENCE

Message
01001
OIOlA
OIlOA
OIllI
0I121
OIl31
01141
01151
OI16A
OIl7A
0I18A

r

01221
I201
01231
OP08

OP09

OPlO

OPll

OPl2
OPl3
OP14

OP1S
OP16
OP17
OP18

266

Phase

Chart 10

OP29
OP30
OP31
OP32
OP33
OP3S
OP60D

Phase
$$ANERRG
$$ANERRU
$$ANERRX
$$ANERR9
$$ANERRB
$$ANERRE
$$ANERRG
$$ANERRU
$$ANERRX
$$A$SUPl
$$ANERRD
$$ANERRJ
$$A$SUPl
$$ANERRJ
$$ANERRG
$$ANERRJ
$$ANERRA
$$ANERRA
$$ANERRA
$$ANERRG
$$ANERRC
$$ANERRU
$$A$SUPl
$$ANERRD
$$ANERRG
$$ANERRU
$$ANERRX
$$ANERR9
$$ANERRE
$$ANERRE
$$ANERRA
$$ANERRE
$$ANERRV
$$ANERR9
$$ANERRY

HJ
IN
(Optical Reader) JR
JT

1140D

I$$ANERRO

JW

1AOOD
1A10D
1A20D
1A30D
lA40D

$$BATTN1
$$BATTNI
$$BATTNI
$$BATTNI
$$BATTNI
$$BATTNK
$$BATTNI
$$BATTNI
$$BATTNI
$$BATTNH
$$BATTNM
I$$BATTNK
$$BATTNK
$$BATTNF
$$BATTNG
$$BATTNB
$$BATTNG
$$BATTNE

LG
LG

AB

$$A$IPL2
$$A$1PL2
$IPLRT2
$IPLRT2
$IPLRT2
$IPLRT2
$IPLRT2
$ 1PLRT2
$1PLRT2
$1PLRT2
$1PLRT2
$1PLRT2
$1PLRT2
$IPLRT2
$$A$$UPl
$$ANERRE
$$ANERRG
$$ANERRU
$$ANERRX
$$ANERR9
$$A$SUPl
$$ANERRD
$$Al'lERRG
$$ANERRV
$$ANERRX
$$ANERR9
$$A$$UPl
$$ANERRD
$$ANERRG
$$ANERRU
$$ANERRX
$$A$SUPl
$$ANERRD
$$ANERRG
$$ANERRU
$$ANERRX
$$ANERRB
$$ANERRK
$$A$SUPl
$$ANERRG
$$A$SUPl
$$ANERRE
$$ANERRG
$$ANERRV
$$ANERR9
$$A$SUPl
$$ANERRG
$$ANERRB
$$ANERRK
$$ANERRB
$$ANERRG
$$ANERRL
$$A$SUPl
$$ANERRE

Message

AD
AJ

AP

OPl9

AP

AN
AR

AN
AL
AL
AJ
AM

OP20
OP2l

AY
AP



HB
HN
HA

(Disk)
(Tape)
(Data Cell>
(Unit Record)
(Paper Tape)
(Optical Reader)

JK
GV
HE

HN
JK
JP
JR
HG
HG
HA

LG
LG
LG

LV
LG
LG
LG

KU
MC
LV
LV
KQ
KS
KE
KS
KN, KP

Phase

Chart ID

Message

Phase

Chart ID

KV,KX,KY
KZ,LE,LF

21001
2101I
21021

$$BATTNJ
$$BATTNK
$$BATTNL
$$BATTNM
$ $ BATT NN

Lli
LP,LQ, LS
LT, LU
LZ, MA
MC
MG

0801I
08021
08031
08041
OS05I
0807I
08081
08091
08101

$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BEOJ2
$$BPCHK
$$BILSVC
$$BEOJ2
$$BEOJ2
$$BPCHK
$$BILSVC
$$BILSVC
$$BP8W
$$BEOJ
$$BEOJl
$$BTERM

NL
NL
NL
NL
NL
NL
NL
NL
NL
NT
NN
NL
NL
NT
NN
NN
NR
NB
NJ
NE

lAOND
1A1ND
lA2ND
1A20D
lA20D
1A3ND
lA4ND
lA40D
lA5ND
lA50D
lA6ND
1A7ND
lA70D
lA80D
lA90D
lCOOA
lCl0A
lC10A
1C10A
lC30A
lC30A
1C80D
lLOOD
1L10D
lL10D
11POOD
1800D
1810D
1810D

$JOBCTLD
$JOBCTLD
$ JOBCTLD
$ JOBCTIG
$JOBCTLJ
$JOBCTLD
$ JOBCTLD
$JOBCTLJ
$JOBCTLD
$JOBCTLJ
$JOBCTLD
$JOBCTLD
$JOBCTLJ
$JOBCTLD
$JOBCTLD
$JOBCTLA
$JOBCTLA
$JOBCTIG
$JOBCTLJ
$JOBCTIG
$JOBCTLJ
$JOBCTIA
$JOBCTLJ
$JOBCTIG
$JOBCTLJ
$JOBCTIG
$JOBCTLA
$JOBCTIG
$ JOBCTLJ

CY
CY
CY
DY
ET
CY
CY
ET
CY
ET
CY
CY
ET
CY
CY
BL
BL
DY
ET
DY
ET
BL
ET
DY
ET
DY
BL
DY
ET

21921
21931
21941

$LNKEDT2
$LNKEDT4
$LNKEDT
$LNKEDT4
$LNKEDT4
$LNKEDT
$LNKEDT4
$LNKEDT2
$LNKEDT4
$LNKEDT4
$LNKEDT4
$LNKEDT4
$LNKEDT6
$LNKEDT6
$ LNKEDT 6
$LNKEDT6
$LNKEDT4
$LNKEDT6
$ LNKEDT 6
$LNKEDT4
$LNKEDT
$LNKEDT
$LNKEDTO
$LNKEDTO
$LNKEDTO
$LNKEDTO
$LNKEDT
$LNKEDTO
$LNKEDTO
$LNKEDT2
$LNKEDT
$LNKEDT2
$LNKEDT2
$LNKEDT2
$LNKEDT2
$ LNKEDT 2
$LNKEDT6
$LNKEDT6
$ LNKEDT 8
$LNKEDT
$LNKEDT2
$ LNKEDT 6
$LNKEDT
$LNKEDT

RK

$$BATTNI

3C10I
3C20I
3C21I
3C30I
3C33I
3C40I
3C60I
3c61I
3C62I
3C63I
3C64I
3c65I
3C66I

CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ
CORGZ

3Dl0D
3D20D

D8ERV
DSERV

Message

MJ,MK,ML

OP70I
OP71I
OP72I
OP73I
OP74I
OP75I
OP76I
OP77I
OP78I
08001

21101
21121
21131
21141
21151
21161
21201
21221
21231
21241
21251
2131I
21331
21351
21361
21401
2141I
21421
21431
21441
21451
21461
2147I
21501
2151I
21551
21561
21581
21701
2181I
21821
21851
2191I

RT
QH
RX

RT
QC, QU
RZ
RM

RZ
RU
RY
RT
SB
SC
SA
SD
RW
SB
8G
RU
QC,
QC,
RB,
RH
RB
RF,
QE,
RC

QU
QU
RD
RG
QN

RD
RR

QT
RM
RN

RP
RR

RL,RN,RQ
SA
SF
SK
QA
RS
8E
QT
QM
WU
W

WU
W

WU
W
W
WU

WU
WU
W
WU
W

XA

XA

Appendix F. Error Messages

267

Message

Phase

Chart 1D

Message

3D431
3D47I
3M10D
3M11D
3M211

DSERV
DSERV
MA1NT
MA1NTR2
MA1NT
MAINTC2
MA1NTR2
MA1NTS2
MA1NTCN
MA1NTCL
MA1NTA

XB
XB
TB
TN
TD
TJ
TM, TW
UB, UN

3M541

$LNKEDTC
MA1NTS2
MA1NTS2
MA1NTS2
MA1NTC2
MA1NTR2
MA1NTS2
MA1NTR2 (Listing Only)
MA1NTS2
MA1NTR2
MA1NTS2
$LNKEDTC
MA1NTR2

SU
UH
UC
UG
TK
TP,TW
UN

I
3M221
3M23D
3M25D
3M26D
3M331

I
3M341
3M35D
3M431
3M521

268

DOS System Control

VN

VU
VA,VB,VL

UE
TL
UM
SU
TM

3M611
3M621
3M631
3M641
3M651
3M661
3M67I
3M681
3M691
3M70A

Phase
MA1NTS2
MA1NTC2
MA1NTR2
MA1NTS2
MA1NTA
MA1NTA
MA1NTA
MA1NTA
MA1NTA
MA1NTA
MA1NTA
MA1NTCN
MA1NTCN
MA1NTCN
MA1NTA

Chart 1D
UC
TJ
TW
UN
VD
VC
VD
VD

VF
VF
VK
VR
VR

VS
VC,VG,VH
VJ, VK

3R10D
3R211
3R27I
3R431

RSERV
RSERV
RSERV
RSERV

YA
YB
YC
YA

3S10D
3S211
3S331
3S431

SSERV
SSERV
SSERV
SSERV

ZL
ZJ, ZL
ZL
ZB, ZC

APPENDIX G. PROGRAM KEY DEFINITIONS

PIK (program Interrupt Key)

RIK (Requestor I/O Key)

The PIK is a halfword in length and
consists of a zero value in the high-order
byte and the key value in the low-or~er
byte. The key value is the key of the
program that was last enabled for
interrupts.

When a supervisor routine (fetch or
physical transient) issues a SVC 0 or SVC
15, the routine puts the value to be used
in the CAW storage protect key into the
high-order digit of the second byte of the
RIK halfword. When this value is zero, the
low order digit can have these special
meanings:

When an interrupt occurs, the value in
the PIK indicates to the supervisor which
program was interrupted. It can also be
used by transient programs and problem
programs to determine if they are running
as BG, Fl, or F2.
The value of the PIK equals the
displacement from the beginning of the PIB
table to the PIB entry for the program
(task). For BG, F2, and Fl tasks, this
value equals the storage protect key
multiplied by 16.
Task
All Bound*
BG
F2*
F~

AR
Quiese I/O
Supervisor

PIK Value
X'OO'
X'10'
X'20'
X'30'
X'40'
X'SO'
X'60'

*Multiprogramming generation option only.
The PIK is set by task selection within
the general exit routine. The fetch
routine sets the PIK to x'GO' because it
enables itself for interrupts and because
it gets control directly from the SVC
interrupt routines. The SVC interrupt
routines, like other completely disabled
supervisor routines, do not change the PIK
from the value it had when the interrupt
occurred that transferred control.

LTK (Logical Transient Key)

RIK
X'Ol'

Meaning
This is a SYSLOG I/O
request. The channel
scheduler is not to
type a SYSLOG 10
prefix.

X'02'

This has been a fetch
I/O request. This
special code is
required by ERP to
recognize fetch
requests.

Fetch always sets a X'02' in the RIK.
ERP transients put the key of the program
requiring ERP into the RIK, when the ERP is
a retry of a user EXCP and the ERP
transient requires control to return to
itself.
Physical transients put a X'Ol' into the
RIK when they are doing a SYSLOG I/O. The
PIK for physical transients has a value of
x'06', therefore the channel scheduler
would type nSp" (supervisor 10) as the
SYSLOG ID. The physical transients put the
ID of the program referred to by the
message into the message.

FIK (Fetch I/O Key)
Used by the fetch to validate the phase
name address and load address. FIK has the
following values:
Key of the problem
1
program requestor.

2
The LTK has the same value as the PIK when
the logical transient area is in use. When
the transient area is free, the LTK equals
zero. The SVC 2 routine sets the LTK and
the SVC 11 routine resets it to zero.

3

4

Appendix G:

o
o
o

if the transient
issued the SVC4. Key
of the problem program
if not a transient.
Program Key Definitions

269

APPENDIX H: DETAIL (ROUTINE) FLOWCHARTS

Chart AA.

BOOTSTRAP-- $$A$IPLA; Refer to IPL, Chart 01

•o ·o;Eli;~·,·E;··
•
UNIT PRE 5

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

•

0

LOAD ItE

•

IY 'USSING THE LOAD KEY. THE OPERATOII CAUSES
MICROPROGRAMMING TO READ THE "A.. PL' RECORD
FROM SYSRES 'CYLINDER O. TRACK O. RECOIIO 11
INTO MAIN STOIIAGE LOCATIONS 0-17 'HEXADECIMAL!.
THIS ItECOIID eONSISTS OF:

I~~M~~ 10
CCIII
i
•••••• C! •••••••••••
o
00

00

18

60

00

00

21

READ DISK INTO STOIIAGE LOCATION HIX
II. I_O-aYTES OF DATA. CHAINED ~CII.
AND SUPPRESSED IILR.I

'511

I

8 CClll

1'0CCII2 1'81

MI CIIOPROGRAMMING INITIATES A SID COMMAND
SPECIFYING SYSRES AS THE UNIT 'NO CCIIT 'Hix
LOC 81 AS THE FIRST CCII. THIS COMMAND CAUSES
THE ""IPLA RECORD TO IE READ INTO MAIN STORAGE
LOCATIONS 1I-3F IHEXAOECIMALI. THI S RECORD
CONSISTS OF:

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

i
··...·03··.........
.

CCIIZ

SEEX USING
CCwz

o

OT
CUZ

00

00

30

60

00

00

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

06

SEEK THE DISK ADORESS SPECI F lED ay THE
F IUT I-IYTES OF DATA IN THE SEEK
ADDRESS LOCATED AT STOIIAGI LOCATION
HEX 30. ICHAINED CCII AND SUPPRESSED
IILR.I

00

32

60

00

00

00

II

60

00

00

10

00

ZO

00

10

•

RECORD 5

0

•

IIHERE:

ccn
00

.x.

w. w•
._ F)
•_
FOUND
w. NO •
w. e.
._ • •••••
a.
._
a• • _
o YES

i
•..•..Gl.··.··.··
.•

CCIIS

00

READ DISK INTO STORAGE LOCATION HIX
3000. IU96-IYTES OF DATA. SUPPRESSED
IIL11.1 THIS CCII IS NOT CHAINED.

i

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

:o lAtlJ'ii

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

270

DOS System Control

II IS liN NO.
CC IS CYLI NDER NO.
HM IS TRACK NO.
R IS RlCURD NO.

TRANSFER IN CHANNEL ITICI TO celis UNTIL
THE SEARCH ADDRUS SPECIFIED IY CCIIS
IS FOUND. ICHAINED CCII AND SUPPRESSED
IILR.I

00

THE SEEK ADDRESS IHEX LOC SOl COMTAINS THE
SYSRES DISK ADDRESS OF THE .... IPL2 ,ROGRAM. THE FORMAT OF THE SEEK ADDRESS
FIELD IS:

i
......EJ...........
.

05

SEARCH FOIl THE DISK RECORD SPECIFIED
IY THE I-IYTeS OF DATA IN STOIIAGE
LOCATION HEX 32 IIEEK ADDRESS PLUS
2-IYTESI. THE CCII IS CHAI NED AND 1IL11
IS SUPPRESSED.

00

THE celiS II-51 ARE CHAINED TOGETHER.

•

CCIII

o SE~@5~ ~&lNG
00

•

0

AT THE COMPLETlON'OF THIS 100TSTRAP OPERATION.
. .. . IPU HAS aEEN LOADED INTO MUN STOIIAGE AND
MICROPROGRAMMING TRANSFERS CONTROL TO IT IY
LOADING THE Pili FROM MAIN STORAGE LOCATIOM 0
I HEXADECIMAL! •

Chart AB.

Clear Storage and Load Supervisor-$$A$IPL2, Refer to IPL, Chart 01

...... Al . . . . . . . . . ..

$$AsIPL2

..·..Sl··········

IJBIPZIO
it
..
LOAD ADOR
OF BEGIPL
IN EXTERNAL
INTERRUPT

ERR

..
..
..
..

~~~

..

CHECK. LOAD

..

RE TURN ADOR

LOOKUP

..

VES.*

CODe IN

STORAGE

••••

HALT

X

:~:~~:.:...

.X..........

..

....02·········

*.

••

.*
*..* •••
ENTRY

.*

...............
LOAD PSW

WAIT FOR
OPER ACTION

t3

....x

...

C4

ANY..

...

••

• • ••
.o. MORE •• NO
•• SEARCHING •• YES
•• ENTRIES ON ........... X•• TRANSIENT ••••••
•• THIS
...
..DIRECTORY ••
•• TRACK...
..o •... .•
... • YES
.o.
.NO

03

.'.

'ND

:

3

ie

•
•
•

PUT CORE
IMAGE OIR
ADDR IN

:

·····El··········
.................
..

GET SVSRES

..

DEVICE AOOR
FROM LOC 2
AND STORE
IN DEVADR

•
ADO 20 TO
..
DIRECTORY
• AD OR TO LOOK

..

· ....
~~;~~

.. OF TRANSIENT
.. DIRECTORY IN
:
seEK AODR

o

••

....
2

..

••

.

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

LOAD AODR
OF SEEK
CCW IN
CAW

•
:

F3

••

END

•

INDICATE
•
SUPVR FOUND ••

F4

'"

••

••
LAST
•• YES
•• RECORD OF ••••••
.SUPERVI SOR ••

-. NO

it

'NO

G3
••
...
IS
••
•• THIS THE •• NO

•

•

x

SWl

• 1

••••

• Z

•

•

.. ..
.. .. .. .o.
.. ....... .....
x
....
·......
·
.
.'.
.'.x

..

..

sw TO

.YES

·.·..Gl··········
•
•
•

.'.x

TURN ON

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

•• OF DIRECTORY .* .....
••
BLOCK •• '

..

'.

RDDIRZ

•

•

• AT NEXT ENTRY.
o
•

it

LOAD AoaR

..
•
•

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

•• AC-G2

..

.....FI··········
.................

READER

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

·····E3··········

..

READ Ctw

x
··......

it

FOUND

•
•
•

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

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

it

CONTIN

•

LOKCID

......

.. ... ... ..

•
..

• 6

.···.05··········

••

•• IS
••
•• THIS THE •• yes
•• SUPERVISOR ••••••
•• ENTRY ...

•

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

:X •••••••••••••••••••••••• :
X

RTRAK

X

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

*•

DIRECTORY

••

•

ALL
INTERRUPTS

..

•

*.

X

.- •

LAST

.

MASK OFF

•
•

B3

...

'ND

: ••••C2 ..........:

..

0

•

•

At-Ol·

TO FORCE
PROG CHECK
*A4

..

..

STORE ADOR..

O'

it
···.·01··.·····.·
..

..

..
t N CAW"
•••••••••••••••••

CLEAR

CLEAR HAIN

•

• 1

X

:•••!~.~;.~~~•••:

..

·.....

.. LOCATION 0-3

it

l~~~I ~~5ae

:

0

0

PUT ERROR

..

I ·····C1·····.····
:
BEGIPL

•

•

.....02..........
..

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

:

....
....

o
o 5

'A4
THE PC PSW CONTAINING THE
RETURN ADDRESS TO THE SSASIPL2
PROGRAM I S THE RETURN LI NKAGE
AFTER THE PROGRAM CHECK. THE
ADDRESS OF THE PC I S SAVED AS
THE END OF CORE ADDRESS.

.. .-

• LAST DIRECTORy ••••••
••
BLOCK
••

• At •

• B4.

•

o •

ENDRD

SW2

G4

••

• ••• FIRST • .o • • NO
•• RCO OF SUPVR .o • • .o.o •
•• SEEN READ ••

.. -.. -.. .....x

w. . . .

.VES

·YES

.

wAC·

•• A~ •

•.··..Hl···········
ic

•

H3

•w

.'.x

••

•

.o

VES •• TRANSIENT ••
• ••••
aIR BEEN
._

READ BLOCK
OF
TEXT

·.SEARCHED ••

w.

.w

• NO

x

.. .'. ..
............ x
........

••
••

oND

x
.'.

*...

SW

....

•• Kl
•• SUPERVISOR •• NO
••
FOUND
• * .... .o •
••
••

•.

••

.o.

.o.

·YES

.....x .
:

....
3

:

•
•

AH •

UPDATE
OISK

~~~~~~~

•
•

.At •

ie

• •••• J3 •• •••• ••••

:~~~:~~-.-.-.-~~:
UPDATE
DISK

RDBLOK

: •••• :~2~~~! ••••:

•

.o.o.o

SETBLK

•

UPDAT

•• YES
••••• .o

o 5

X

:....
....:
......x . .....
x
.....
:x ••.••.•.•. :
•• F! •
.
o 6

Jl
*.
READ
ERROR

..·.·H4
••• •• •••••
.-.-.-.-.-.-.-.--

CHGADR
.OSKADR

:••••

•
X.
•

•

••••:

~MpUTE
tORE SIZE,
ADOR OF
TRANSIENT
01 RECTORY

··....x ..
• Z

•

•

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

·..~......
:

1

:

Appendix H. Detailed Flowcharts

271

Build Two Device System (Part 1 of 2)- $$A$IPL2
Refer to IPL, Chart 01

Chart AC.

....
: ·'1··········:
i

SETBLK

E:~a=DFRAaK
DI:A~aJ~7~E

•

BYTES

•

• I

.....
: el··········:
i

·•
•

.................
• OF SUPERVISOR.

C1

.•.x

·····81t····.·•.••

.:

i

GET

•

•

.

• •••• Clt ••••••••••

;.

:c~~~Rlo~~D O~A5:

X

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

• seT SYSRES
: LUB NO. TO 6

._

eYES

...•

a.SllE
AT
_.
16K LEAST
._ ••••••
a.
._

-YES

•
:

·
.
.................
X

MVCEND
X
••••• 02· •• • •• • •• •
.GET END OF CORE •
• ADDR.
HUT CCW.
•
WITH BLOCK
•
:LENGTH TO REAO :

• •••• 04 ••••• • ••••

.....
•• H:•

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

a •• _

•

•

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

a •• _

w. w.
• _ 01
MACHINE w. NO

Of

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

._SUPERVISOR -. NO

•_

GET ADDRESS

:COMM~~l'ia~IONS :

_.GREATER
a.
6K THA".
._ .a ••••••••••••••••••

a.

i

ENDRD

•

~~~=~is

-.

w.

...

• fit.

•

• •• ··B2· ......... .

~:lE A~~R y~
• -~AVER I-DEC BlK.
_CNT. CALC size-

.-

...a.....

··......

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

:

.AB •

·AB •
• CZ •

• PUT SY$RES
•
.ADOR IN DEVADR •
:
FOR LUBRTN
:

o

HALT

X

••••• f1· •• • ••••••
• PUT SYSRES ADDR-

*IN $AVERZ.

GEY-

• AODR TO MOVE

•

::~~~.t~2:2!:~~~:

•.•..FI·····.····
._._e_.__._._e_.
X

-SYSMYC

•

AGe

MOYE THE

•

•

IPL PROG

•

: •• !~.~~~.!222 •• :

·····e2....•..
X

• MODIFY SW AT.
.REeNO TO X' OZ'.
• MODIFY SW AT •
: SWZ TO X'FO· ••

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

:x .....•.......••••.•..... :
SeT ceN TO
READ IN

•
•

•
•

X

SlJPEAYISOR,
DECREMENT

x

X

ADJUST BASE
•
REG AFTER
•
NT :
M~~EN~e

.................
r8l

.. .0. ..
.. .. ........
G2

••

••

_OF IPL PROG .J3.

BLOCK

p~~T Tb/~O~~¥
TO ENTER

•

: f~~e~~~~~N~~W :

•• NO

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

••••••

• psw TO POINT
:
TO EXTRTN

.....
.i·

• YES

:

•

X
·····GIt•••••
·•.••

••

COUNT 0

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

•

: •• ~~25~.52~~! ••:

•••• ·GI ••••••••••
•
•
:

X

·····FZ··········

RDBLOK

•
:

..

• AD •

•• G!.

.

o

······Hl··········.
·..................
X

•

GET AODR
OF ADCON
TABLE

•

•

•
•
•

LASTRD

RDOIR2

X

•
•

ACJUST FOR
LAST

X

•
•

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

READ

•

•

;.

:···G~ l·AOCON···:

•
AND HOVE
•
• IT TO HIGHER •
: CORE LOCATION:

·····J2·······

•
TURN ON SW •
•
-SW1- READY.
• TO READ LAST •
•
RECORD OF •
•
SUPERVISOR •

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

...x

.....x

••

••

••

Kl

••

ALL

..

.....-......;. .
ADeONS

MOVED

.AB •
• • G~ •

•• NO •

••

••••••

RDDIRl

·YES

:

272

....
1

1'NTERRUPTS

• AO •

X

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

ENABLE
ALL

;.

:X •••••••••••
ADClOP

·
.
.·................
.....
...
••••• H4 ••••••••••

: •••• H2 ••••••••• :

:

DOS System Control

• A3·

oJ3
TI-!E I PL PROGRAM
IS NOW EXECUTED
STARTING AT
LOCATION X'7000·.

WAIT

Chart AD.

Build Two Device System (Part 2 of 2)- $$A$IPL2
Refer to IPL, Chart 01

.....

....

>
> 1
>

.....

.

-At ...

>
>

.... H!*

>

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

83

.>.x

>

•

: 2

:

LUBSET
X
····.BS.·········
... PUT C/U OF
•
•
COMM DeVICE
...
• FROM OLO PSW
...
: INTO -ADRDEV- :

••

.*.* RESULT *. *.
............... •••• •••• OF OPERATOR .*
*. ACTION .*oO
.*
I/O INTERRUPT

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

* ...
-EXTERNAL

.INTERRUPT
.SYSROR ASGN

·····CS··········
.................

X
.····C3··········

X

EXTRTN

...
...

LOCATE LUB
FOR SYSRDR

:~~!~!~_._._._e~:

..
...

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

IN SYSGEN

..

•
ASSIGN PUS
•
• FOR COMM OEV
...
.OURING IPL .A4.

... 110 TABLES IN ...
...
HIGH CORE
...

X
.···.03··.·····.·
...
...

SET MESSAGE
CODe OIOlA

...

0-4

...
..

IN CORE LOC

•*

*.

E3

.'.x *. ••

IS
SYSROR

*.

.*

•

x

• >.

ENTER

NEI THER .. '"

•• • *.

....
·
x

•

• 1

.. "

*.

>

F2

1052

*.

OR
CARD
READER

*.

NO
••••••

*.

•• •••

CARD

READER

WoO

.. '"

.* .....
..

.* DEVICE.
END

..·..G2··········

SETLOG

•

•

.. LOCATE OEY Ice ..
... IN PUB TABLE
... PUT C/U INTO

..

.................
I/O OLD PSW

...
:

.1052

• ATT ENTI ON

X

SET LUB

NUMBER

4 FOR
SYSLOG

•

: ••••.••••••• X:
X

RORIPT
: •••• G3 ••••••••• :

...
...

• GET LENGTH OF •
• BLOCKS.
GET •
•
• LIMITS TO BE
:
PROTECTED.

~

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

·····E4•.••..••..
X

SET LUB
NUMBER 0

GO

••••

X

·····ES··········
.. RESTORE liD •

•
•
:

NEW PSW AND
eXTERNAL NEW
PSW

•
•
:

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

·AS •
• • C~.

X

*.

••

>NO

• 3

-YES

IS

.PROTECTION.·

SETPROT

.*

05

• ••••••••••••••••• *. THERE STORAGE ••

..

.. .- .. .. .................

•• ASSIGNED

.>.x ••

..
.. ......
....
·· .' .

VES ....

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

..

...

>
HALT

.····F4·•• •••·•••
X

SETKEY

•

GE

•

KEYS·
DCK •
TO >

..................
.....x .
eo •

• BE

> 3
>

>
•

.····F5••••••••••.
.---.---.-.-.-.X

AF.

.CLORTN
•
•

SET SYSRES
ADDR IN PIB

•
•

: ••• ~~~.~~!~~ •••:

.···.Gs •••••·•••·

PSWGO

•
•
..
:

X

SET MASK TO
ENTER
PROGRAM
STATE

•
..
•
:

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

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

X
..•..H3·······

.···.H5··········

...

FOR SY5ROR

•

:
•
•

>

seT JaCSWO ....
TO X-20', LOG.
ON SVSLOG •

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

X

•

BRANCH TO I/O •

.T ABLES IN HIGH •
• CORE TO PICK UP.

.................
.LOAD INSTR FOR ..
•
$I PLRT2
•

.~

• 2

>

>
•

..
•
•

X
····Js·········

...............
SVC 4

•

LOAD $1 PLRT2
CHART AJ

•
•

Appendix H. Detailed Flowcharts

273

Move I/O Tables-- $$A$IPL2: Refer to IPL, Chart

Chart AE.

01

. .
: 1

·· ..
• 4

:

·.•..A3··········

... •••• A1 . . . . . . . . . ..

i

i

• CALCULATE THE •
• SIZE Of THE ..
:T¥8sHo3~T T~~~R :

:!!~£~~~-.-.-.-~~:

• •• ·.A5 •••• ••••••

··.....

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

LUBRTN

•

BUILO PUB
FOR IPL

: ••••~!~!~~ ••••• :

• 2

x

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

-REGISTERS, PUT"
...
CHANNEL AND ...
.. UNIT IN TEMP ..
..
PUB
...
•••••••••••••••••

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

.*

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

•

TURN OFF

FIRST ENTRY
FLAG

*•••••••••••••

.*.x *.

.
...

...

..
•
:

·· ..

X

······05...•.••....
·.................

•

E2

. *. *.
IS

*.

16K

....
. .*
.... "
16K

-NO

·.···Fl··········
X

,,-OVE LUBS

.....
...
i

• 3

_AB •

.....f3··········
X

uNASSIGN

•

ix........................ :

ARE
THERE
TESS

• •••• G5 ••••••••••

•••

LOGWRK

••••

: •••• H4 ••••••••• :

•• YES

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

•
..TO ESTABLISH •••••••••• X.
••

IS IT

....
.. ..

•• SYSLOG

••

•

'NO

PUT 1052

TYPE IN
PUB

•

•

•

.·.·.HS••X·•··•.
SET THE

·..............
Pot~¥ER

........... x:

•• NO
••••••
••

•

X

•
•

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

••••
2

X
: ••••"4 ••••••••• :

•
•

· .
:

: •••• J 3 ••••••••• :

PUT CARD

READER TYPE

IN PUB

•

REPLACE PUB
TYPE WITH
SYSUSE

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

:

:

·.••••Kl·······.
i

••

··.!...
•

DOS System Control

•
•
•
:

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

• NO

i

·YES

TURN ON
TEB FLAG

RESWRK

••

i

..

•.•. .*..

•••

.. ..

•• H3

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

••

G3

••
• PUT RES TYPE
IS IT
•• YES
•
IN TEMP PUB
•• TO ESTABLISH •••••••••••••••••••••••••••••••••••• X.
TURN ON
•• • ~YSRES ••••
:
SHARED FLAG
••

X

• SET THE FaCL •
•
AND FIRST 3
...
• PUBS TO A NULL.
•
VALUE. GET •
• AOOR OF TESS •

274

•

..

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

..·.·Hl··········

• 1

·· ..

LUBS TO

•••• ~!2~.~~~; ••• :

RETURN

IN LOW CORE •
• seT TO IGNORE.
•
SYSLOG
•

.

••

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

•

..

..

·

...

• •••• ES . . . . . . . . . ..

MOVE THE

x

..

x

:~~~~~~-.-.-.-~~:

- C2HALT

•
•

LUB

.. EXISTING LUBS •

••• •• G1•••••••••• NNN NNNNNNNNNN NNNNNNNNNNNNN
• SYSMVC
AG.
.SEE FIG. 30
•
• -.-.-.-.-.-.-.-.
.FOR CORE MAP
•
• MOVE THE PUBS.
.WITH I/O TA8LES.
• TO HIGH CORE •
.IN HIGH CORE
•

•*

LUBS

ASSIGN
THE

•

.....E3··········
..

..
CALCULATE
..
.. SIZE OF PUBS, ..

.'.x

UPDATE THE

i

*.

:x •....•.•...••.•••....... :

Jl

•

:

X

CALCULATE THE.

•
NUMBER OF
..
.LOGICAL UNITS, ..
•
GET AOOR TO •

..'"

MOVE PUBS

X
.···.03.·········

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

..

*.

GET AOOR TO

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

•

-YES

..

:~~~~!~-.-.-.-:~:

..
•
•

LUBLOP

.*
.....*
* •• *

ORGEST

GET LUB
ORIGIN, GET
NICL ENTRY

..

CORE
*. NO
.-SUPERVISOR *. YES
•• SIZE GREATER •••••••••• X_. TOO LARGE FOR ••••••

*. THAN

•
..

i
·····C5··········

······C3··········.
.................

*.

(S

E1

AH.

UPDATE THE
FOCl

:x ........................ :

······01·······.
.* •*

•
:

X

LUBMVC

Cl··· *.

.. :3

..

MOVE THE
TESS TO
HIGH CORE

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

NO
*. THIS FIRST *.......
.
*. ENTRY .*
*.
.*
* ••
-YES
••••

..

X

.CHURTN

:~~~~~~.-.-.-!~:

THROUGH IT WILL
BE SYSRES C./u
NEXT TIME IT
WItL BE THE
COMH DEVICE.

X
.. '"

·····85··········
.-.-.-.-.-.-.-.-.
.................

X

····.83··········

:~·iN'i-iALiiE···:NNNNNNNN:.~~~!}~\ ME

:x ........................ :

...•.K4··········
i

PUBHKE

•
INITIALIZE
• FOR BUILDING

•

·.................
··.~....
•

PUB SUB-

ROUTINE

•

4

•

•

•••

Build PUB Table-- $$A$IPL2; Refer to IPL, Chart
01

Chart AF.

................
·-...............
.

....

•

--.....- 1

BLDPUB

X

,8ElrYS~I:~~
NEW PUI

•

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

•

••

• OF CHREG, PUT •
• FnCL PTR FOR •
: CHAN IN (HTST :

.................
._ 01

.w.x

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

••
ANV
•• NO
•
TAOLE FOR
•
•• DEVICE ASSGN •••••••••• X.FIRst AVAILABLE_
•• TO CHAN ••
•
FNTRY
•
aYES

.-.x

..
.... ....
C3

i

r:ii"I'I-ir-~
'LT-.
.·.JJ
...............
"

••

OES IRED

•• NO

.YES

:··SE~~tM·:U8···:

....
.. ..

..

•

•• :~~~I~O~N&A~! ••••• :

CHtLDP

w. w.

-

.-................-

:

• PUT CHAN NO.

.. ···03··········
X

•
•

CALCJLATE
CHANN LEND

15~

:

.

..···el··········
•
•

GET FIRST
POSITION OF

•
•

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

PUB FROM

:

•

FOCL

:

··.··E2•.·····•••
X

BCHEST

•
STORE FIRST •
• AVAI lABLE pue •
•
l\UJIISER IN
•

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

FaCL

.XX •••••••••••••••••••••••••.

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

....
.. ..

CHtNT

Ft

.-.

••

• •••• F2 •• ••••••••
._
'S
*, YES
•
DETEftJI41NE
•
• ,
THI
THE
•••••••••• X. LAST PUS ON •
•• lAS CHAN.•
CHANNEL
•

*..*

•

-NO

IIlANCH..
.......

ic

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

SHASTA

Gl

•••

•

:

••

1

:

••

SWITCH

.:. .. ..
.... ....
H1

•••

~a~l

•• UNUSEO

.
--....
-.
....- .

··.Y;S

.

• 2

.:.~~

••

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

X

: •••• JZ ••••••••• :

~lli1t:~~E

ON (HANNE L

:

1

X

:

•

•

•
:

GET LAST PUB

ON CHANNEL
FROM FOCL

•

•
:

•

LENGTH

:.;ujEJ·n·L·Jt:··:
~D"Kl-

-...............•

RETURN

:• 'II~:
'i~a~ :
TN •

IN -

:

GEJoA2ge~ss

:

•

PUB

•

-

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

•

LDWKIt-

•

.. .-. ..
........
i

X

FS

••

ANl ON _.NO
_..- DEY ICE
.- ••••
•• TH SHAN..

•

.YES

x

i

:SySMSl·······:,:
.-.-.-.-.-.-.....

••••
aGI.·
•• ••••••
_ CAL~
AOOR
Of • flit T PU8 ON
- TH! ~~HANNEL

•
-

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

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

····.H3··········
:
:
.-................-

• ••••HS· •••• •••••
_S TORE F I R~ PUI• ON CHAN
OR N CHA",
TN'.
• , olpLt X'1 ' •

'.

.....Jl···.······:.................
.........•.......
.
.:::....................... ..
-....CHfl N

PUB USED
BY PUB

••••

i

x
• •••• E4 ••••••••••

-·····F3···········.................-

•

.••••••••••• x..
:-•

•

NOMYP

·YES

SCHSCH

•
•

·.................-

•

••

X

:···j~l:E=ENT···:

•
•

••

·NOP

:SCHTST

SPASW

.-.i ••

:................~~-: ::-•.t!i~i=,
-:::.
•l! .•

•
•

.-................: ,8E1

os

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

X

CHSRT

•

.····a3.·.··.·.··
-:
-:

ENfNO

..··Bl·········-...............
:

CLIIIIT"

MOVE THE PUBS.
TO JIIIAKE ROOM
•
FOR
PUB
•

X

INSERT

•

SLOT

•

NE=.E~¥EAN

-····J3·········X

-..............."
•

:

NEW

RETURN

~Ilr NO!~

:

i

'

-I
.N'.

IlIT.................
.xx •••••••••••.

CLOLPZ

.. -.

NO.•••••
••

•

X

••••

--

- Z

.-.

J'

••

U~TL
FO
EN flY

••••••••

-.••
••

.YES

--

•.··1t5·········--...............
_

i

RETURN

Appendix H. Detailed Flowcharts

275

$$A$IPL2~

Common Move Subroutine-Chart 01

Chart AG.

Refer to IPL,

··...................
. . . . Al ••• • •••••

•

$YIMYC

s-I.

...x

•

-, e.

•:-,3"II"AReED
.:.~~ •••••• X:•
_.
.e

_..e
-'.tls

.e

Cl

...•

a.

• •••• 2 •••••••••

•••••••••••••••
_EIUR"

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

:•

• I

•

•

a.

•

EoR .: .~~~!. !~. ~~~. ~~~~ .......................... X:
.:-a. ".S21
•
a. LEFT ._ .e
•••liGHT TO HIGH COlE

..•.Tfi'Li~k
·01.·.·······

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

X

IIiCHT

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

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

AT,

•

sHin

• 3

•

X

.-

E3

~p 'l!9RE ,5 :

·..................
:

BE.~(WID

0

.:.e.

:

Fl.···.·····.
·.....
:
·..................

·

a.

a •• _

.-G. ...-, -,
-. -. ,- ,x

X

·
.
·..................
·.........
i

i

HI.·.····.··.:
·....•
:
··..................
X

pH~2tl's

X

••••• Jl ••••••••••

: ~8V~E 'LXif, :

·.........••.......
.....
··....
.
256 IVTES

··...·.H2··.·······..
·.................
x
··....
......

RESIDl
•
•

X

UPOATF
POINTERS

• 2

•

•

X

• 3

276

.:.!~~
._

••••• C3 •••• ••••••
• uPt"'E FROM •
:'"0 TO POINTERS:

•• YES
................... .
.e
•

• NO

•

-.

._

••••• f) ••••••••••

DE~i1ZjHT

SHIFT
COlltT
0 -

-•

CO~"T

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

X

••
••
a.

...x

:

2

:

.............• :

·NO

:x••••.•.••...•.•.•••••..• :

DEca.

......
....

sfif~'E~6~~T

••••• 11 ••• •••••••

:

X

DECal

•

DOS System Control

•
•

: 1

:

.ESIOl

i

• •••• FIt ••• •••••••

•

CALeULA TE

•

::1'~t6J.?F
~~~~ :
TCJ NEW AREA:

.................
·.G4·.·······.
··................
..
X

•

RETURN

•

Update Disk Address-Chart 01

Chart AB.

····Sl·..······.
··...............
.
•

DSKAOR

:

:

:
•

D3

Woo

oo_

Woo

........

i

TOTgltR:g~NT
NUMBER

•*

.oo

.'.i

WOO

TRACK

09

...............
RETURN

:

.'.x

-. ...=41....-••••..

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

• YES

··....x ..

._ .-

•

·····Cl··i .•·.....
SET TRACK NO

TO O. POINT
TO CYLINDER
NUMBER

i

: •••• G3 ••••••••• :

•

•

•
•
•

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

.

i

:···i~~:EMENT···:

*01 SK AODR BYTE •
: 8EI~g G~l~TED :

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

INCREMENT

i

:

1

:

I

•

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

:••••.•..•• x:
LUUENO

i

•
•

INCREMENT
TO NEXT Lua

: •••• G5 ••••••••• :

i

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

RETURN

•

•
•

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

:

:

ADDRESS

:

.. .'.x ..
........
....
··......
··.................
H5

••

NO ••
LAST
SYStEM
•
••
LU'

•••••

i

• 2

• •••• Jl ••••••••••

~DiR~QE~T

•

•

.·................
......
....
: FOCL POINTER

.. X................... ..

EXITl

·.....F5··········.

..

NO )(
.a .....

WOO

-YES

•
•

••

•
E5
••
iNO •• ••
•••••• REPOS1TfONED ••

•
•
•

a •• _

•

'.

IS

.YES

··.··.E3.··.··.....
• INCR CHANNEL
NUMBER. GET
•
•
FDCl ENTRY

. '•

i

_oo

NUMBER

Woo a.

:

:

05

: ••••• '.ASS\~EO ••••

i

i

• •••• el ••••••••••

SET RECORD NO •

•

NO ••

'NO

·····el··········:
:
.................
F1

LUUPLP

••

YES..
IS IT
••
•••••••••••••••••••• THE LAST
••
•• CHANNEL ••

a •• _
.. YES

•

LUIS

• •••••••••••••••••••••••• X i

X

RECORD
WOO NO
_oooo- NUMBER
.a .......
*oo a.2 OR 8 ._ . -

oo-

.

.. .'. ..

oo-oo

AD MOIIK

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

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

X

:

•

.

.

•

ADDRESS

•

·systlM
·········:•
:·····0'
aIF1~3l·11
•

:•

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

.................
pm~Oto

01

it~~~~~~T

LUU"'"

•

:····~ICK·U;····:

RECORD NO.

AEtNO

•

i

X

•

:

• 2

.·.··C1··········

,..........
··.....•
...............

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

...............
CHURTN

I

• Pl.' DISK ADOR •
•
IN UPDATE
•

•

Refer to IPL

• •••• B3 ••••••••••

......
....

•

$$A$IPL2~

••
.'
••

.YES

•

X

• ••• J5· ••••••••

•

RETURN

•

)

~ppendix

H. Detailed Flowcharts

277

Chart AJ.

Initialization and Read control Cards-- $IPLRT2;
Refer to IPL, Chart 02

o
•

o

·.·.A2·······.·

...............
I(

PLRTl

0

•

0

. -·······

ic

BEGIN

•.····82~
GE T CO"~ RGt\!

•

:AE~Ai loS~iBt~~R:

··......

.................
-AS END OF SUPVR_
•
ADDRESS
•

°l~

i

o TABLES TART AT 16K
SYSTEM I
LARGER THAN
6K.
THEY .. ILL BE AT THE
ND Of IHE IIPlRT2 PROG
f If IS • 16K SYSTEM,

•

1

0

·····C2.·········
..................

PUBClC

X

•

CALCULATE

•

•

THE NUMBER OF •

•

PUBS IN

•

USE

:

:

HeelC

• _ 02

NO ...

........ ,

....
0,

w,

ARE
THERE
TESS

o.
0,

.AH-K5

.....

a.

._

._

:~:~i

...

o
o

a ....

·ns

• .
······04..•...•....
.~~~:!~-.-.-.-:~
OSP MSG
0110_

...
0

0
•

••• ·.E"..·.·.·•

•

X

•••
··F2
•
TLRN•••
Ot-. •••••••
TF8
•

•
•
•

eFLAG, CALC THE •
•
NU'-8ER OF
•

HPS USED

TURN OFF •
FIRST ENTRY.
Ot.4 1052
•

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

•

•

SWITCH

o

•

o 2

REAOGC

ofl

READR TIS A SUBROUTI NE
N THE LISTING, BUT IS
HgWN AS lOG 1Col IN LINE
R GRA" FLOW,

1

..

REAORT

..

F2

-.

,_ • -cn,..",ILPDEV -. a.
a, _.

-.

YES
._ , ......

A aFl
l05'2
Woo

._

eND

••••

• ...
·····GZ·····.·
INITIALIZE TO •

•

READ CONTROL

•

:

CN qEADER

:

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

STATEMENTS

•

......
H7·······.· •.
._e_._e_e_._._._.
X

lOt-ilO

AW

READ STMNT
ON CARD

... ....
.....x
..
·
:::~~:

.AK •

• 81·

PPRTN

1

•

(

"

lOGREO
X
••••• F4 ••••••••••
•
INITIALIZE
•
.TO READ CONTROL.

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

. .

.."

:

•

:x ..•.•.••.• :

..

.................... xix ............................................ ..
,',

........

STATefrolENTS Of'.l •

:

1052

:

,

:

,

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

.·····G4
...·........
.-.-.-.-.-.-.-.-.
X

REREAD

IOHlD

A'"

REA.D STMNT
ON
1052

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

.. ..
.. .. .....•
•• B!.
H4

,',

e.

• _ STATfM£NT •• YES
••
ENTEREO
••••••
••

01<

••

a •••
·NO

.

·AK •

OPRTN

•
.:~!~:!~:::::::;;:.
D$P MSG
0118A

· .
:

2

:

(

278

DOS System Control

EValuate Control Statement and Check Time of
Day-- $IPLRT2; Refer to IPL, Chart 02

Chart AK.

·....
.....
: 3

:

····.A5.·········
.---.---.-.-.-.-.
it

·.....
....

.....

X

······a3··········.

·AJ-H2
AJ-H4

OPRTN

...

BS

·····C1··········

... TRANSLATE THE ...

.. .. ........
..·
.-.-.-.-.-.-.-.-.
.................
.....
•.B! •
....

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

~

·YES

• E2·

...

.................
OP CODe

...
...

...

ILLCC

.····C3·.········
X

...

INITIALIZE

...

...

...

OPERATION.

...

... SEARCH TABLE

it

•••
·.C5 ••••• •••••
.TIMERT
Ag.

...

FOR SEARCH

••

IS
••
NO.. IT THE
••
• ••••
CLOCK
••
••
FIELD ••

... STORE ADDRESS ...
...
Of FIRST
...
:
OPERAND
:

COSCH

.>.i

.-

:x •••••••••••
X

INNER CCDE
TRT FOR THE

•

OPERAND

·AP •

CARD INTO

AR-

GET NEXT

X

TURN OFF
...
END OF CARD
...

SWI Tel-'

•

: 1

: •••• 81 . . . . . . . ...
...
...

.FOSRTN

•
PUT TIME
•
• IN SUPERVISOR •
•
REGION
•

...

:~2!!~~!.~~.~~2~:

it

·····01··········
:TEST-YHE-FIRsr-:

i

X

*TRTBRC

AY.

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

• >.

03

*.

••
OP
••
....
CODE EO
..... NO ..
...
TO SEARCH ...... ..

*. TBl

-CHAR OF OP coDe... At D. OR S
...

X

·AL •

*.

ENTRY ••

-..-

.-

-YES

·····el·····.····

... LOAD AOQR OF

•

... TABLE, COMMA

...

·····e3········.·

...

•

•
•

...

...

AL TER

DELI HI TER

...

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

...

IS AN ERROR

STOP

...
...

>

UNSRES

TABLE TO

it

T1MCHK

E5

NO ••

.. ROUTINE FOUND.
•

•

:

.. .>. ..
..... ........
·

X

IN SEARCH

>

: 2

• ••••

:.~~~~;~.!2.!!;.:

••

IS

IT TIME

••
••

•• COMMAND ••

it

.YES

·AP •

.E~.

.....Fl··········

it

i

•

TRANSLATE

•

•

END OF OP

••

• AND TEST FOR

coDe

•

ILLCC

X

F3··· ••

..··.FS.···••• •••

:!~~~!_._._._e~:

••

ADO ••
DEL •• SET OR OEL •• ADD

•• •••

••

.... .. ..

CONTROL
••••••
STHNT ••

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

..

..~
-AN.

·SET

PUT TIME IN
SUPERVISOR
REGION

•
•
•

• • B1·
>

..•·.GL··········

SETRTN

• TEST THE END OF.
• OP CODE CHAR •

•
•

:!~!~~~-.-.-.-~!:

.·····G3··········
-.-.-.-.-.-.-.-.

:.:~~!.~~.2~!~~.:

:.!~;.~!!.~!~~!.:

i

• FDSRTN

..

•
DELIMITER
• TABLE, COMMA
•
IS A LEGAL

•

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

STOP

•

H3

>
AOORTN

••• ·.G5 •••••• •• ••
.FDSRTN
AR •

.'.it

••

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

•
•

•
:

•
•

FIELD

•• ~ •••

....

•> 2

..··.Jl·..i ·...·.·

• CALC THE LENGTH •
• OF THE OP coDe ..
•
MOVE THE OP
..
•
coDe INTO
•

it
......•...
..···.J3
-.-.-.-.-.-.-.-.

••

_ PUT THE DATE

: •••• 2~!;~~ •••••:

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

i

i

•

IN THE SUPVR

•
•

•

REGION

•

.> •

••

..

..... ..... -..
i

.YES

·AP •

•.E!.

ILLCO

··.·.J5··········
.-tt-.-.-.-.-e-.-•
i

.OATERT

Ag •

.DATERT

x

H5

•

:

NO ••
IS
••
•••••
IT DATE
.*
_. COMMAND ••

••

•••• •VE;-

GET NEXT
OPERAND

..

..

••
IS
•• NO
•• IT THE DATE ••••••
••

it

.--.-.-.-.-.---.

AR.

GET FIRST
OPERAND OF

X

••••• H1 ••••••••••
•
RESTORE
•

X

Age

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

•

PUT DATE IN
SUPERVISOR

REG [ON

•
•

•

it

·····K1··········
:!~!~~;-.-.-.-:~:

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

TEST FIRST
•
• OPERAND FOR A •
LEGAL CHAR
•
•

>

>

• 1

>
>

•

.. .'. ..
..··.vEs.. .....
..!•.. ...
....
K3

••

••

-.

IS

•• NO

TIMER
••••••
•• PRESENT ••

·AL •

• • 81>
UNSRES

it

·AL •
• Bl·UNSRES

: 3

:

Appendix H. Detailed Flowcharts

279

Assign SYSRES and SYSLOG-- $IPLRT2; Refer to IPL,
Chart 02

Chart AL.

.....
....
.·..
..n

......
....

'''''-111

t~:5J

UNSRES

: 1

i

.:~oli
cMu8EV·:'~~!...
_. UNASGN.a.

a •• _
• NO

._

o

....

: 2

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

:

._ e3

o~A~fiBAP8=

:
:

•

·..................
·• x................ ...

·····El··········:

:•

~~: J~iN~~:

•
:

o

ABNCHK

•

IN -lU8KEY-

L~&"~Sg~v~g~

:

i

•••

••

:

ic

•••

2

•

CCMM DEVI CF

M3
4O.
4O.
•

4O

••

• • 4O

0

:

DOS System Control

••

....
.. ..
.~ ..
VAtlO

• VES

0

::3 :

•

•

ic

·····GS··········
:~~~~!~-.-.-.-~~:
.ASSIGN
IN.

.................
• VALIDATE THE
FLAGS
• THE PUB TBL

•
:

RFSNFD
••••• HIt ••••••••••
•
GET AODR OF •
•• NO
•
HSG 01164 •
•••••••••• X. NO PUB GIVEN •

••

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

FOR SVSRE S

•
•

"3
ALL INTERRUPTS
EXtEPT MAt~INE

m~~oA~k

•

ic

.-.-.-.-.-.-.-.-.
• ••• ·HS··········

.OSORTN

AV.

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

CHECK DISK

•

•

ASSIGN"ENTS

•

•

CHANNEL

•

x

• AP •

• F3·
o •
o

ABNCHk

•

·xX ............................. ..

280

• lJNASSIGN SVS
• INPUT 10UTPUT

: ••••• !!~~~ .•••• :

x

.4O

WAS
PUB

:.~~:~~:!~i;!::.:
1

0

ic

4O.

x

•

:

•

:~~~=!~-.-.-.-~~:

AT.

• DEVICE CHECK • •

....
....

•

:

:···i~lT·FOR····:

o

REORDER TME
MPX LUBS

.....FS··········

4O •

o

$VSLOG IS

.•

o

•• NO
••••••••••••••••••••

• VALltATE PUB
FOR $VSRES

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

••

.YES

•

..

:

RDRTST

....
.. ..

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

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

••
• •••• H7 ••••••••••
IS..
•
I N IT FOR
•
••
CO""
•• NO
" OFVICF. CHECK • •
-. DEVICE Ai
•••••••••• X.
SVSROR IS
1052

••

WAS
PUB
FOUND

..

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

•
•

•

i

••••••

.

• X•••••••••••

.CC"CHI(

X

•

••

.

·····G3......•·-.-.-_
•.•••••.
.-.-.-

..

• YES

••

.4O

.0.x

LUB

cnop

.VES

•••• ••••

Hl

F3

••

••
WAS
•• NO
•••• T~8U::~B ••••••• :

••

:

•

••
••
••

• FIND THE PUB •
• FOR THE COM" •
_OEV IN HIGH tORE

(n

•
•

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

..

AY.

SET

:F~laN?~R~Y~A~s· •

:

• IN MIGtI CORE
•
110 TABLES

: •••• ~~~!~~ ••••• :

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

•

• FOR TME SVSRES •

:

••••••

i

ic

.MAKE PERMANENT •

X

PBFF IN

•• YES

••

oNO

• FINe TtiE PUB

.....Fl···.··.···
._a_._._._e_._._.
.PBFRTN

A JIB

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

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

:

FOR COM" OEY

••

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

•

•

alP.

i

COMOOK

••

SVSRES

LUB HAVE

.................
..~..
•• F;*

X

GeT ACOR OF

,.SG 0117,,·-

• He PUB GIVEN
:
FeR SVSLOG

0

._
a., ._
• YES

•••

.a···OS·······

•

•

•

••
.4O

C5

.··.·03······...·

•

•
•

pue

w.

X

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

.····02·.·.····.·

COMNFD

•

.................
IN

lUBHLP

w. w.

WAS

a.

i

TURN OFF

•

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

.x ................... a.
CO .. MVALID
DEY PUB
._ .-

..···01··········
JOB CONTROL
ASSIGN FLAG

NO.o

• 0 •

0

o FOR ~YSR~i IN. 0
:
HfA~L~S E :

i

CO"GWI~:TlON

•
•

A~SIGNMENT

P~B
"MUNI
A- ••
T J N DEYI E •

i

•

:MAKEBJeRMANEN;*:
oLUB

AT-

o
-fOR

•

0

:

x

X

-COMCHK

••••• C1 •••• • •••• •

:
:

: 3

a_a_a_a_._._. ___ .
·····83··········
VAL&8ATE

CHKcm~

.- •

HIGH••

....
-.... -

:

....·J5···.····.·
ic

• SAVE PROGRAM •
• CHECK NEW PSW •
•
PUT ACOR OF
•
.-OFFINT-IN PROG.
• CHECK NEW PSW •
oKJ

.................
x
.•....
_B! •
-AM.

o

OFFINT

Move I/O Tables to Low Main storage-- $IPLRT2;
Refer to IPL, Chart 02

Chart AM.

··.................
•••• AS •••••••••

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

.....

...

ell·

• 2

• JS*

_ALtRTH

:

VA~A~:Te

:

ALLotA TlDN

•

i

··..........
...i

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

• 1

X

.....
Cl··········
: lNA~v~LJ~~

e3

.* .* COM"

TO :

PUB TABLES
BACK TO LOW
CORE

•

-.

.

•• •••••••••••••• •••• ••••• X.
OPNLOP
i

.....01··········

:

IS

A NULL

······03···········
MSGRTN

••

.

...
IS

••

••

.. .......

.02

_FZ_

05

•• TH~RE A •• NO
•• PUII F K THIS . . . . . .
• • • 4 ••
•

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

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

:
:

i

ENTRY •

·-·-·Di~;iiG·---·

:-MDVE·T~E·PUB·-:

fYSTl1i
LAADRkYI

GEl

·..................
~uruGOtm~ IN

i

AN

AGe

alOW CORE

:

:.D4
X'FF'

·~~SSAGE

TABLES TO

• ••••C5.·· •• • ••••

-. _. NO

aYES

IS
JPL COMPLETE.

NO . :

:UIIUSl
•
OEil

*. a • • _ .-

i

•

: f5 :2I ,3: :
'IM •
E
................
.
.

•.•. Y&IZA .•••••• :

•
•
•

.................
*SYSMYC

•

••••• 15 ••••••••••
T
R

AY_

•

O'"R'N

•

X

..... _____
Bl·.········
._a_.
.-.-a-.

DFFINT

•
•
•

•

.

oYES

.

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

i

:i;SM~l·······AG:
_a_a.e.a•• _ ••

:aLON
"O¥~8l~~
CORE

i

IPLEND

a_.

•

~H8 :
.................

•
•

-F2-

X
····E!·········
svt 14
•

:···~·Ut··;~i····:
• AD
ROM PUB.

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

...............
GO TOJ08
CONTROL

•

•
•

i

FS···..

._a_._.-._.-....-.
••• ·.Fl ••• •••••••

-CLeRTH
•

1•

"F_

UPDATE

•• HS

•

.. .•. ..
.... ....
i

Gl

••
••
••

·...............
i

x

.:S;;~~·······:G:
_._e_____.-____.

:···'11;·;~,·····:

.Wk'lRT I .

•

POINTER

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

'. MOVE THE 'E8S •

.................
'..
.

S.
V
L CE
VALUE ••

•
.A

•
.FZ.

.

NEX

{N~R.
HIcK.

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

..

OP"END

i

: CLEft!·~R8f&AM :

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

'"PSM

•

J,.•.•.

ND •• FIII,HEO

••••• SCA
•
•• LUI

..

••

ING
••
ABLE ••

··......
·····11·········
................
I

•.•..•.•

••••

• 2

•••••1t1••••••••••

.

.X4! ••••••••••

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

X
:·;·i;i6:·¥·~;~~··:
• IIIA K. P , A R.

_TEll

• IN PltOG

•

i
.:....dGI·······
V~omn··
: flN.pC~A
••

• YES

'. 0

....

OPNUSN

•• NO
••••••
••

•
TO LOM
• CORE

A •• NOX

•• ELL ••
• YES

••

ARE
THERE
TEIS

It·· ..

•• '•• pl~oA A
I~,OR
......•
..

.................Z:
:IU~u~nEL "P~F

•

0

'F2
CC,,.ON SUBROUTINE
SHOWN ONLY IN ONE
PAOGAAfill

i

N LUI

P R

•

.YES

•

i

:

RIiJ~fII,'0

:

i

• 1

••••

•

Appendix H. Detailed

Flowchar~s

281

Add a Device-- $IPLRT2; Refer to IPL, Chart 02

Chart AN.

....

••••••
•• •••

....

• 1 ••
•• ••••
•
i

•••••
E.\I'
•
..LAIT

A.

- Z

it;:r.•.•.-.
._.
98 ••••••••••••••••••••
I

IL

•• ••is

~CIT

•

• J

ic
• i AODROF
: MJ Aft 11B~

• d

0 'MAGE

:

.....
-·....
.
x

....g2 ..........

•••••Cl.!••••••••

•

: YArllJ~I.URY :
• puii:iiW.
•

·

.

GE

AD DR OF

~&A3 ~B
I~mp~~l~l

•
:

.:................:
x
··....
......
:CAN" ,

••••••• 4! •••••••••

x

• 5

:;&IRVA·······:;:
:;;i·;iR;io~MS-:

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

•

• FROM ADD CARO •
•
I"AGE
•

lill·;~~· •.
••..c¥ft

- 5

........ ....
·- ..
MORE.. YES

•••• IV9EI ••••••• :
x
• NO
• 5

.
1
......'Yes..

x
.' ••
.•··YHu A·'. NO
•• KEY F ELO ••••••

•

C5

•• PRES NT ••

•

os

•• • •• 03 ••••••••••
- CL!,AR 0IV ICE •
: .. 88~DDECltE :
'TYPE INTO HOLD •
•
AREA
•

•.•. .•.•

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

••••

• 5

• 5

•

••••••••••• X;
$l(PKEY

.-.

.-

Gl

IS

-.

-.

• NO

••••• Hl ••••••••••
'HEXRTN
AY.

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

:
•

C2~~E~~I~H~ :
HEX

•

N

:

A9BM~NJU.

.....
e', •
...
··.........• F3-

ABNCHK

•

x

••••• KI ••••••••••
••

PV! H
F fCAN
fLO",

••

E

:

·..................
.....
.....:

PUloDEO
i

• 1
~

282

-

DOS System Control

•• DEYICE

.:.
.-

••

A·-.

N,,"CVT
ic
.OECRTN
AT.
'CONVRT PRIORI ry.

F5

(

••

.... .... ....• ................. ....x· ........
-......
··......
x
x
x
:••
.. .'. ..
!
................. .... -...
..............
·· .. .
..
x
..
:iLO;UI·······:u:
.. ..
----.-....-...-.
•.••.. ...•.•....
:
°
IVIL:
.................
.... ....x
··......NUMBER FROM KEY.

• FIELD TO DEC

~~!.:. ONDE~AN
••

•

-YES

CARC IMAGE

•

••

• 5

G4

•

•

ic

TttlRD

;E95;··,fl~.

• A LE
VIC •
'FLA!. S T
HIx • "EY FOR SN •
DEVICE
•
•

'NO

•

••

~Plot~~

.:.
••

•

.,

YES •• PRIORI TV ••
••••• KEY LARGER ••
•• •• THAN
255 ._ ••

• 5

tt3

ZERO

'NO

- 3

••••••••••••••••••••••••••• x•••••••••••
PUI"KE
ic

•• NO

•

tOO 'HE PUB
UB

•

:

'YES

• 5

-

x

x

..........-...---.
.................

.-.....-.-...-...-.
.................
:l~n;~a·······:;:

:~Ex~~~·······lj:

•

- CON8ERT THE •
• YHIR OPERAND.
•

T

:x•••••••••••••••••••••••• :

DILSCN

.-.

••

KEY· •

·YES

•• ··THI§E
NO
••
THIRD
••••••
-. OPERAND ••
•

•

x

• 2

F3

E5

~.:·S J~!~~BLE

•

x

• OPERAND FROM

:
.
..............•..
:

•

:-GiT-T~E-;Hi;D:

x
••••• Jl ••••••••••
:. PUT CHAVNIL

DEY ICE TVPE

:F~;Rf~·······:::

•

•:--.Li~I=RN¥"AN
.:.!~~ ............. x:
a. 6 ._ ._

-..• __....
..._._e_e_e

ic

•

••••• Fl ••••••••••
:SI'1E UIhF8~ :

•

••

:-'~iL;iE'~i--:

·· ..
x
MY~~ Kh~ :
·:.................
.
··..........
.
.
aYES

•• ) In s ••
••••
.ND

--...... ....
............ ....
.... ......
..··.F.··········
.. .'•. ..
.-.-....-.-.---.

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

-. ..

·x•

••••

:~~Dj~~·······:;:

i

••

YES ••• KE,I'IILi;· ••
• •••• LARGER MAN ••

x

El
-.
NG ••••OPERAN'··.. ¥~Rtn8RT
•••• a. FOR A 51" CH-. _ ••••
•
-.AILE OEV .•

...

•

ic

X

- 5

.•.x

X

•

•

I

x

PUIEXO

••••

"E'C~~"

DILADD

rjr!jitij8~-·:

•

.

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

••

••••

i

_TN

-.··.tEs.-

••

••

II

-. NO
.-

•• •••••
.. .•,.AlI:i·J·;;;
.•.••
5 •••••••• u
IY

..
..-..-.....
••••••
=
-·......
...
-.........q4..........
:;0;;91·······:;:
Xlkh •
..•......•....... .·•...............
. .r~ll~f':!:·~
..........•.....
• 01 T

•_
_.

i

A'···••
••••, fIIb= .•. 1m2'

m

ttEX

.-•.

k3
••
• ••• , tRACK·· •• YES

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

••••

TAPE

• NO

i

• 3

:

•

•

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

• ...... 4 ••••••••••
: toSIIF:9°~2R :

.................
x
··....
......

x:

SEV':plRA«

• 4

•

:

UPDATE THE

Foc~HIO p~:ON

•

:

.- -_.-.-.-...
.................

ENAOR

ic

:LwRtl·······u:
.....
• ADD A LoglCAL •
: UNnRB~u.K
:

i

KEAOGO

:lj·:

..-

• F2·

(

Chart AP.

Delete a PUB-- $IPLRT2; Refer to IPL, Chart 02

-

: 1

X

DELLOP

••

A4

•••

••

PUB ••
•• ON CHAN •• NO
••
BEING
........ oooo ...... oo.oo.oo.oo
•• SEARCHED ••

........

****.
-At<. ..

-.
X
··.-.-.-.-.-.-.-.-.
...81·····.····

·YES

.. F3*

DELRTN

*FQSTRN

AR*

...

GET FIRST

...

...

IMAGE

..

'B3

'B2
AQ-D4
AK-H5, 85 ,E5
AR-Cl,B5,E5,H5
AT-Dl,E3

AL-D2, H4

.'.x

AN-Gl

AV-J5
AR-E2
AY-G4

AV-D5

NO..
••••••

.....
.. .

.................
-OPERAND OF CARD __

-.

+ •••

.

.YES

.. 82-

YES

HOLD
PUB

•

ADDRESS

.. "

* ••
.NO

BS

•••

••

·YES

·····C4··········
..................-

..

...

NO •• WAS SCAN
••
• •••• SUCCESS FUL
••

• 4

*,,, LENGTH MORE ....................... 'Ix.
-.BYTES.-

.

... DELETED ...

••

•

.-.-

X

Cl"*" *.
.. * • * OPERAND *. ••
..... THAN 6

..

PUB

TO BE

X

..
..
.....' ...
x
....
-- ..
SCNEND

84
••
•• THIS ••

'.

C5···

*.

<•

ARE

THERE

....
TEas

.•

•• NO

••

••••••

·YES

:............ x:
.. '"

*.

•*

*.

*.

01

CHAN
NUMBER

*.

MORE THAN

*.

6

*.

'I.

.*

.*

X

...

TO CONVERT

OPERAND

TO HEX

..

X

·····E2··········

ILLCD

..
•
•
•

GET ADOR OF

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

INVAllD

•

..·Fl··········
.··-.-.-.-.-*-.-*-.

YES..

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

• • • • oo • • • •

oo....... •••

..

••

...

·····Gl··········
... GET CHAN NO.
..
GET Foel

..
ENTRY FOR
: THI S CHANNEL

..

..
:

••••••••• **..... ..

X

····.G2··········
"MSGRTN

AW •

• --a- ..- _ . - . - .. - ..- .

•
•

PRINT THE
MSG CALLED

•
•

:.~~~.~.~:~~2~*:

.....

.-.

-.
·- ..
_ 4

COHM

DEVICE
A LOG

·...................
x
-......
• TO BE DELETED •

)

_ 1

oo • • •

SET ERROR
CODE IN LOW
CORE BYTES
0-3

i

•
•
•
:

DELETE TEB
ASSOCIATED
WITH PUB TO
BE DELETED

•
•

.................
•
:

X

oo ................. :

X
·····G5··········

.GET LENGTH AND.
• ADOR OF PUBS
•
• TO MOVE INTO •
• AREA oecup I EO •
.BY PUBS TO DEL ..

•
•
•
•

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

.. _..............

••••• ~~!!2~ •••••

X
·····K2··········
GET AODR OF
MSG 01121

•
•

.................
x
-.....
• DEL ST ATEMENT •
• FOR NONEXISTENT.
•
DEVICE
•

· • 3

.....·ES··.·······

TEBOEQ

.-.................

X

WAIT FOR
OPERATOR

DEL EXT

•

•
•
•

• GET ADOR AND •
• LENGTH OF PUB •
TO DELETE
•
•

••

X
····J3·········

..-. ....
•• .. vEs

•

•

·•••••FS··.·······-

••

.-a

-

•
:

.-.................

-

.-.x

•

•
•
_
•

•

GET NUMBER
OF DEVICES
•
WITH TEBS
• FIND TEB FOR
THIS PUB
•
•

:x .•....•.•. :

······G3··········-

IOSTOP

•

*

PUBDEQ

LOAD HARD
WAIT PSW

Jl
••
•ANY -.
.4DEVICES ON •• NO
•
-. THIS CHAN.
• ••••••••••••••••• x.

CHAN OF DEV

•

X

.···*05··········
..................

TEBLOP

-H4

READGO

..
•

3

1

••

x
: •••• H3 ••••••••• :

• f2·

X

:

-NO

.AJ •

··...Kl·····.····

ADORE SS

x:x

..
...... ..
F3

:x .•.
X

•

•

pue

.F~.

ABNCHK

AT.

CONVERT
DPERAND
TO HEX

• CALC AOOR OF
• FIRST PUB ON

TO LOOK AT
NEXT PUB

·AW •

:oo ••••• oo ......... oo •••• oo ....

..

:

.................
.....x
._.. .....
.

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

..

ERROR MESS AGE •
1111 PREVIOUS.
STATEMENT
•

X

*HEXRTN

INCREMENT

•

• B3·

INITIALIZE

..

it

:

•
•

.--..-

-NO

······El··········.
.................
...

SCNLOP

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

*... * ...................
YES
x...

MDVING ALL PUBS
BEYOND THE DNE
TD BE DELETED

UP ONE PUB LENGTH

DELETES THE DESIRED
PUB FROM TABLE.

...··H5··········
:-MOVE·PUBS-Up·-:
X

AG.

.SYSMVC

.................
-ONE PUB LENGTH.

• BELOW DEL PUB •

'H4

X
...---.-.-.-.-.-.-.
···J5··········
.CHURTN

•

AS •

.................
.CHANGE THE FOCL.
•

•

$0 IT WON'T

•

PT TO DEL PUB •

••••• KS ..

!...•....

::~~~:~-.-.-.-~~:

.................
......
•
NULL LUBS
•
• THAT POINT TO •
DELETED PUB •
•
: REAOGO

X

--.

.AJ •

• F2·

Appendix H. Detailed Flowcharts

283

Chart AQ.

Date and Time SUbroutines-- $IPLRT2; Refer to
IPL, Chart 02

(

\.

. ..

··

• 3

• 1

.····Al·········..
OATERT

DECREASE

•

X

*.

*.

LONG

.-

.-

'NO

': •••
.

2

X

TlMERT

.* .....

* ••
-YES

84

x.

........ .....x
·YES

o

....

• 4
o

x

.'.

-. a. 99

:~2~~!!-.-._.-~~:

·....
.....

•• .-

x

* ••
'NO

: 4

X

•

ESTABLISH

•

AOOR OF DAY

: ••••• ~!~~~ ••••• :

•-.. -.-*-.-.-*-.-.

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

....
·02··········
.-._____
._e_._._.
X

•
•

F~g~~Al~Ngf~s

DECIMAL

••

[S

••

YES..
DAY
w.
• ••••••• LARGER THAN ••
•• 31 OR ••
•• 0 ••

•

....-.

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

:

X

·····G1···•.•··•·
X

··......

•
CALCULAT E
THE DAY OF
•
• THE YEAR AND
CONVERT
•

.. ..
...

·····E4··········

• CONVERT HOURS
•
TO SECONDS
GET HI NUTe
•
• FI ELO LENGTH
AND AOOR
•

[LLCD

.'.x ••

·····F4··········
.-.-.-.-.-.-.-.-.
X

.DECRTN

•*

.*IT

IS

START

*..

....

*. *.

••

'NO

••

••

..

...............
OTERET

.'.

G4

·....x .
X

• 2

x

...............
RETURN

•

TIME FIELD AT X' 54' SYSTOO
[S [N THE FORM SECONDS TIMES
300. THE TIME BE[NG SET IS
EQUAL TO USER SPECIFIED TIME
OF DAY PLUS MAXIMUM TIMER
INTERVAL (15 112 HRSI M[NUS
ELAPSED TIME.

(

·................
• ••• FS·········

:

ADREST

X

ADREST

••

YES.. MINUTes ••
•• ••• HORE THAN ••
••
60
••

GS

.' •

••
IS
••
•• DAY FIRST •• NO
•• DATE FIELD ••••••

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

·YES

'NO

•

x

: •••• HS ••••••••• :

0

• CONVERT MINUTE.
.. TO SECONDS
•
•
ADO TO HOUR •
•
SECONDS
•

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

•
CALCULATE
ADDRESS OF
•
: SECOND FIELD

•
•
:

.................
:X •••••••••• :

it

: •••• J4 ••••••••• :

•

GET ADDR

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

•
..

AND LENGTH

OF SECOND
FIELD

•
•

·····JS··········
.................

SKPINC

X

• CALC FIRST
• FI ELO ADDRESS
• AND SUBTRACT
•
FIELD
LENGTHS
•

•
•
•
•
•

:

IT LEAP
••••••
•• YEAR
••

: 1

:

THE ROUT I NE MUST
MAKE A LEAP YEAR CHECK.

•• YES

. .

'

X

~iTPlsT~~ m~mY

YES

••

[S

•
•
•

.. . . ..
.... ....
x
....
··......

'J2

..
.. ...... ....
....x ··......
Kl

•

• •••• 05 ••••••••••
:

:

x

'NO

284

•

• * .....

1

CONVERT
MINUTES TO
DECIMAL

o

• •• ·H2 •••• •••••
RETURN TO

I F THE P REVI OUS
MONTH ENDING DATE

:

••

•

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

Of CENTUR Y

*.

AT.

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

•.···H4.·········

X

.* PREY *.
.* ENDING
MONTH
*..a NO
*.
.....
*. DATE 31 .*
*. *J2 .x
* ••
·YES

*.

•
•
•
•
•

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

• 4

.'.x *.

·ES

.'.x

x

X

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

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

Jl

O[SPLACEMENT
HEX 0054

.E5

: •• !~.~~;!~e~ .••:

•
MOVE DATE
•
• INTO SUPERVISOR.
• DISPLACEMENT •
•
DECIMAL 79
•

Z

04

X

•
•
•
•

•••••G2.· ••• •••••

:

•

•

-CALC THE JULIAN.. ENDING DATE •
_OF THE PREVIOUS.
:
MONTH
:

Hl

X

'NO

X

• 4

•

•
•

........

·····FZ··········

•

.*
MONTH
*. VESX
-.GREATER THAN . . . . . ..
*. 12 OR .*
*. 0 .*
x

* ••
'NO

...... ~!~~~.:

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

•
•
•

••
IS
••
•
YES •• RESULT
••
.X .................... GREA TER THAN ••
••
24
••
••

•• • NO

Fl"·· *.
.* IS *.

:~~~

•

•

• •••• CS·····.····
•
PUT TIME IN •
•
COMH RGN

AT.

• CONVERT HOUR
•
FIELD TO
•
DECIMAL

·AP •
• E2·

EZ··· ••

•

• DECRTN

~

X

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

•
•

: •••• ~~~!:~~ •••• :

• CONVERT F[RST •
OPERAND TO

AT.

CONVERT THE
DAY TO

X

..

X

: 4

• DECRTN

:~~:~!~-.-.-.-:~:

X

•
ADD SECONDS •
• TO
AND.
•
HI
sec.
.HUL T
BY 300.

:

••• •• 01.· ••••••••
*ADREST
AO*
..
FIND DATE
•

····.el··········

·····C4··········
.-.-.-.-.-.-.-.-.

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

C1
*.
.* IS *.
•
.* YEAR
*. YESX
a.GREATER THAN ••••••

•••••BS··········

.'

••
IS·.
•
••
TIME
•• NO X
••
fIELD 14
••••••
•• BYTES ••

••

•
SET FOR DAY •
: Fl~5~~s~E~~T :
• OPERAND FI ELO •

NO

YES.. SECONDS ••
••••••••
GREATER
••
•• THAN 60 ••

TlMERT

....
·....
.
.....82··········
·..................

YLPYR

13 BYTES

*.

• •••• A4 ••••••••••

•

DAY COUNT
BY ONE

B1 •••••

• * IS -.
• -CATE FIELD *.

AS-·· ••

: •••• A2 ••••••••• :

:

OATERT

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

X

NLPYR

•

•

•

DOS System Control

·.···K4.··•••. ••·
X

:~~~~!~-.-.-.-~!:

.CONVERT SECOND •
FIELD
•
•

: •• !~.~~S!:~~ •• *:

··....x ..
• 3

•

x

• ••••KS ••••••••••

:

...............
RETURN

:

(

Analyze Device Type-- $IPLRT2; Refer to IPL,
Chart 02

Chart AR.

····Al·········

·

• 1

•

X

TAPE

_GET ADDN. OF OE-tt

:V~~~N Tt~h~fH~ET:

•
SET MODE
• FOR TAPES TO
: 7 OR 9 TRACK

••

.'.

C1
••
INCR _.

.-SCAN ADDR,

I~

....

END OF

*.

TA8LE
tt . . . "

-NO

01
• tt

.. NO.tt

*.

••

YES

.. .....
...
.. tt . . . . .

...

.....x

IS

THI S

*.

riO ••

................... oO ...... oO......

SET DEVICE
TYPE AND

.....E2··········

TEIH:XT

..

FLAGS

~

•
GET ADDR (IF
•
.MESSAGE 01141, •
• CMINOT .!.OD TEB- •
• INSUfFICIENT •

.. CHANNE L 5CHEO ..

..

:*.!:~~; .~~e~;

.....
...
·AP •

....... tt..

*.

• F3·

Fl
PRESENT

tt.

.'

.."

ABNCHK

o- .. "

.. :

....

••

TEB

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

.tt

• 2

.<

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

.*

lNCR TEB USED.

...

:x ....•....••

······F3······.···.

TESEST

X

•

GET TEB

INCREMENT

INCREASE TEB
COUNT BY 1

.*
••

TURN OFF
BURST

·

iLLCO

······Jl··········
·.................
LOAD AODR

:

FOR SPEC I Al

..

X

·
.
..............
·····FS·······

:BL~~~c~~E~HytE:.
TURN ON END •
Of CARD SW •

·····GS··········
.................
•
•

..... YES:

...... ..
TEB IN
USE

sH~~MYfRls

••

••••••

STORE TEe

IN USE

•

• •••• J3 ••••••••••

STORE OPERAND •
START ADOR,
•

CALC LENGTH

:

OF fiELD

•

:

X

.. ...:.
.....x ........
HS··· ••

!~~.:. l~A~~a
••

0

••

'NO

·AP •
•• E~.

ILLCO

i

RETURN

••••••

:x ...•..•..• :

•

•

•• 12

••

i

•
:

X

TRT

.S

•
•

..

'NO

•

Of

•• E~.

•

:...........•..•......... x:

:x ................. :

••

ic

•

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

FLAG

OEVICE

IS

..

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

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

X
E5··· ••

OOR4 •• fUNCTION

• AP •

Ii
....·
·.···.H3·.····

X

..

i
•• 05 •• ••• ••
•••
••••
TRANSLATE
AND
•
• TEST FOR THE
•
-END OF OPERAND,_
• CHAR A BLANK
..
•
OR COMMA
-

••
••

: •••• ~~!~;~•.••. :

··......

YES

.'

·····Hl·······
·
·
.
..............

8STQK

: •••• !~.;~~~ •••• :

o. 03 .'. •• •.
ROOM
FOR NEW

•
•
•

OPERAND AODR
AND LENGTH

•

X

:.............. x:
..

•
•

i

FOR 1::8

•

'NO

B$IOFF

••••••

2

i

• GET START OF

G3··· ••

DEV

*0

••

: •••• C5 ••••••••• :

X

.'. ' .
Gl
o

••

····.E3·.····.···
IN~¥~2E~iE

•

•

* ••
• YES

ON CHAN

•• NO

.YES

X

BURST
ON MPX

ARE

•

ILlCO

······El·····. ····.
.................
.'

·

·oO

·YES

-YES

NO

••

'NO

ILLCO
••

TESS

tt • • _

..

.'.

THESE

·AP •
• EZ*

.'. .... *.

(.3

.. .... .. ....
·· ..
x

.. "

.... •••• DESIRED DEV .tt.
TYPE

..

END

OF CARD

•• E~ •

.................. x:x
• tt

.'.x ••

• ..... BEEN REACHED ••

·AP •

: SCHLOP

85

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

YES ...

•
•
:

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

.................
*G'=T END OF DEV ..
..
TABLE AOOR
..

FOSRTN

•

·····.S3········.·.

X

·····B1··········

.

• •• ·AS.········

··......

FNDTYP

····JS·········
X

•
•

RETURN To
fOSRET

•
•

ROUTI NE

•*

• tt

Kl

.'.x

- • tt •

WAS

*.

NO

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

_.DeVICE ADDEO •••• oO .
•• A TAPE

oO.

i

••• *

·YES

:

2

:

• 1

Appendix H. Detailed Flowcharts

285

Chart AS.

Update FOCL and LUB Entry-- $IPLRT2: Refer to
IPL, Chart 02

····'2..·..·..·.
··................. ··...............
.

• •• ·A4 •••••••••

•••• Al •• • ••••••

•

LUIIIITII

•

•

ltJuttTN

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

•

• .
·•.··.B2··········
~mm :
................. .................

·····84•..•.....•

i

X

•••••11 ••••••••••

•

: GET

••

XBDtI
•
DDLU

••

GE

•
•

S

UPDATE
Roun NE

•

UPLU8

.

....
·.....

•
•

LU
AI DRESS,

•

•

•

• 4

.

N~\kT THS ~~~L :

:

mOT:
.................
• AOoR IN CHREG •

•

.
.................
··....
GET LENGTH,.

Cit
•• ··1

•

•
•

._

a ....

oNO

"

'E3

....

••

LUB.

•

••

Eit

.'

.

••

IS
IT THf

*.

......
.... ..
LAST PUB

•

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

oNO

:

: 5

"

.. ..
oNO

•

INCREMENT
TtiE PUB
POINTER

" .:
·:•..·.Hl········.·
Jy3Af~I'=IS

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

.

LUa

•

.

·.....Jl·····.··.·.
·..................
•.
··....
.....
X

:

•

LU=E~Hi~TER
BY ONE

• 3

•

:

•

••••

lBlPEO
••

•

Git

••

••

••

END

OF LUB

TABLE

•• NO

••

••••••

• YES

: 1

• •••• K2 ••••••••••

:

• •••••

:

5

RETURN

••

••

•

...... ..
·LO~

:

.0.x

._ H" IS •• -.
•• DEVICE
•• NO
•• SWI TCHA8lf ••••••

CHUPD
X
: •••• H5 ••••••••• :

:
:
...... .-...- .... .................
.... .....x .
:

x

_n S

•

•o 4

o.
••••

' .X

•••

.'.

•• COMP

0

EQ •• CHAoN NO. •• HI
X
•• ••• TO SEARCH ••••••••••••••••••••
•• CHAN
••

•
•
:

o.
••••

J2

(

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

OSnUB
X
••••• HZ ••••••••••
o
•
•
STCRE THE
•
PUB
:
PCINTER

•
• 2

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

: •••

o

................
.... . .
·..... .
................
.
....
·
.. ..
.... .... ....•
. .
....
"
...............
•
• 3

•
•

X
: •••• F5 ••••••••• :

UPlUB
X
: •••• GZ ••••••••• :

.-.

••GlH1S•• ••

RETURN TO
CHURET

SETFCL

w • w.

• Upel'E

YES ._ PUB BElO~ w.
•• •••• a.
ONE REMOVED
._ . a.
••

• ••• E5 •••••••••

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

•• YES

DOWNDATE ._ UPDATE OR w.
......................... w. COWNDATE
._
w. a. LUB ._ ._
e •• _

DOLUS

•

•

•

O~EINlJ:g~~E

••

DON'T UPDATE

....." .
: 2

.'.x

RESTORE IT

X

INCREASE PUB
NUMBER BY

• o.

• _ E2 IS w. w.
..
._ PUB IN
w. YESX
w. e. MOVE
-E3AREA ._ ••••••

• _ F2

tHA~ NO. TO

·.····04·...·......
:.................:

CHEXT

• _02 IS w. w.
••
LUB
w. YES
w. w.UNA55 1GNEO ._ ......... ..

• NO

:I~¥=' T~&OFyC~O:

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

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

'.
••••' .X
LuBLPL
.a.

a. w• • _ ...

• •••• t5 ••••••••••

•••• YES

ONO

..

•
:

CHSLOP

••

~~gM

....
.. ..

••••

w.

•••

•• PUB NO, EQUAL •••••••••• X.
•• TO 0 . .
•

• END AODR. AND •
• AODR OF FIRST.
•.
LUB
•

• 1

o
: 6

x

"LUUA
X
•••••C2 ••••••••••

•

....
....

:l/nu~d~~

0

. . . . . . . . . . . . . . . . . . . . . . . . . . . IC.

·

•0

CHURTN

0

X

SUBTRACT 1

NUMBER

••

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

g~~~~h

: 6

:

•

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

FROM

•
•

CHANNE l
NUMBER

:

••

.'.x

K" PUB •• ••

........ ....x
...... · .
:" :

••
CHAN
•• YES
••
EQ SEA'!:CH ••••••
•• CHAN.·
•
'NO

x

•

• 6

0
0

(

286

DOS System Control

Check Device Assignment and Convert Decimal to
Hexadecimal-- $IPLRT2~ Refer to IPL, Chart 02

Chart AT.

....... AI ......... ..
DECRTN

.....01··········
X

.···B3···•.·••.·

_GET NO. OF CHAR-

*TO CONY TO DEC,-

.................
•
GET END OF
.. FIELD ADOR 1

..
..

•

0

HEXRTN

o

• I

o

.•••.•.•••. x:

x

X

:
...
•

GET TRUE

END OF

FIELD AODR

SAVE FIELD
U:NGTH, GET
END OF HEX

* ••
'NO

.o*

•

*

SUBTRACT 1

•
•

FROM FIELD
LENGTH

.oo . . . . . . . . . . . . . . . . . . . . . . .

.-REDUCE -.
NO .. -NO OF CHAR -.

•• • *

E3

.' .

••

-. ••

NO

F3

•

•_

-.

END

·····GI··········

x
: •••• G3 ••••••••• :

..

...
..

••

Of Hex

•• NO

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

FIELD

••

••••••

0

.. PUT THE SIGN ...
-IN THE CONVERT ..
..
FIELD
..

x

: •••• Hl ••••••••• :
FIELD TO
BINARY

..

...

.................
o

0

.-

x

E5

.' .••

..

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

••
••

DEVICE
ON lIST

•• NO •
••••••

·YES

X

·····FS·······
•

PUT JOB

•

•
CONTROL
•
• FLAGS IN PUB •
•
TO X'04'
..

·YES

:

X

CONYER T THE

•

:

lLlCD

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

.-

••

o

RETURN

·AP •
•• E~ •

•

BY 1 t PACK
THE NUMBER

o

•• oo • • • • •

•• •YEs

X
.....Ft··········
NUMBER CHAR

·.··E4.········
X

.. .- .....x ...............
.
.0.
IS

•• _. THE Hex
CHAR

.*

REDUCE THE

'O-

•

* • .YES
.o-

o

..... -.-

PUB 1 llEGAl ••

..

'NO

-.

••••• TO CONY BY 1,._
_.LAST CHAR.'"

...
..

0

05
••
•• INCR ••
YES ••SEARCH REG ••

*AP ..
... E2o

..

COMCHK

:X •••••••••••

······03··········.

..:..
.

.*

lLLCO

..

···.cs·········
X
• <•

x

• 0.

*.

_

*

: ..••...•...........•••.. x:

.'.x

Et

o

:

•

: •• ~!~~2.~22~* •• :

D1
-.
.* .o* NUMBER *. *. YES
....
TOO LARGE
.. * .....

*.

0

·····e3··········

:OECLP
: •••• Cl ••••••••• :

*.

....

...

•

PACK FJELD

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

TO CONVERT

1

:

i

• •••• GS ••••••••••
RETURN

TO HEX

X

····H3··········

...............
RETURN

:

··....Jl.:........
...

RETURN

Appendix H. Detailed Flowcharts

287

Build PUB Table-- $IPLRT2; Refer to IPL, Chart 02

Chart AU.

· .
• 2

0

•

0

X

ENFNO

: •••• BIt ••••••••• :

••••• Bl ••••••••••
:

...............
BLOPUB

:
o

....

: 1

:..

p8~IT~ij~I~~R
NEW PUB

o

•

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

0-

.. GET CHAN NO . . . .
.. GET Foel PTR ...
..

GET PUB

..

-YES

:x
...................................... :
X

.a.

01

eo

• * I S a..
• - THIS PUB *. NO
a.ENTRY AVAIlA- ••••••••••
e.
BlE.a
e..*
e ••

*

• • • • • 02 ••••••••••

INCREMrNT
•
.. PUB SEARCH
•
X.REGISTER, LeeK.
.. AT NEXT ENTRY.
..

..

•

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

-YES

,

X

•• ••• 04 ••••••••••
..
CALCtJLA TE
•
.. CHAt\NE:.l END
..
DESIRI:;D

·.................
POS IT I nflj

0

:x .................... :

.... X: 1
BCHEST

E1

•••

••

• •••• EZ ••••••••••
••
ANY
••
• CALC CHAN PUB •
•• DEVICES •• NO
• DISPLACEMENT, •
••
ON THIS
•••••••••• X.
STORE CHAN
•
•• CHANNel ••
• PI.JT eRIGIN IN •
••
••
•
FOCL
•

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

.. ..

·YES

:X ......................... :
X

CHCNT
••

Fl

•••
IS

••

•• HHS THE

••

••

LAST

CHAN

••••••

•••

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

··.··GZ·······.··
X

••

o

••

SWITCH

••

•
•
•

x

0

CETERMI"If
LAST plJf' eN
CHANNf L

o

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

",

•

•
•

GET A[:ORt:SS
TO MOVE PUB

HI·.

•
:

0

·····G4......... .
X

:~:~:~~-.-.-.-!~:

• Move THE PUBS.
• TO MAKl ROOM •

:•• ~~!.~;~ .~~~ ..
:
oGS

....x

·

: 2

*G5
ALL PUB ENTRIES,
BEYOND THE
DESIRED LOCAl ION
fOR THE NEW PUB,
"'UST BE MOVED
UP ONE PUB

LENGTH TO MAKE
RCOM FOR THE Ne~
ENTRY.

X

• •••• H4 •••• • •••••

••
NEXT
•• YES
••
FOCL USED ••••••••••••••••••••

INHRT

NE\toj PLII

IN lnCA TI n~

•

•

.. ••• 2~;!~~~ •••• :

oNO

,

(

0

•

• NOP

:SCHTST

•
•

..... ~~~:!~ ......
o
•
•

•• YES

••

.. ..
............
Gl

IHCREMFNT

PUB USED
BY PUr::

·····FIt···.··.·..
.................

oNO

SCHST A

SPRSW
X
: •••• E4 ••••••••• :

X

••

.. .... ..

BRANCH..

.a. e.

•• e.
CHAN E\;O._ .. "
a •• _

0

CHelDP

C4

•

._ DESIRED e • eo NO
_.POSITION PAST ••••••

•

ORIGIN

o

:..

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

0

,

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

X

SCHSCH

: •••• J 1 ••••••••• :

DETERMINE
LAST PUB
ON CHANNEL

•

.................
•
:

....

•

:

······J2·.··.·····.
.................

CHF I N

X

• GET LAST PU~
C~ CHANNEL
•
FROM FOCl

•
•
:

;
.·..·J4···.·
.. ·.·

o

•
•

0

STORE PUt!
ORIGIN AND

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

OI5PlACE,",UH

•

0

: X•••••••••••••••••••••••• :
X

o
o
•

2

0

•

;

0

•

•...K4·········
................
RETURN TO
8LD~E

T

•

(

288

DOS System Control

Chart AV.

<

Find PUB and Test Delimiter Subroutines-$IPLRT2; Refer to IPL, Chart 02

····AI·········

I
MSGOUT

*-*-*-.-.-.-.-*-*
DISPLAY MSG
ON

SYSLOG
• •••••••••••
*
OG4
ADDR OF DESIRED
MESSAGE I S FOUND
IN REGISTER PDINTl

~

•

X
·*·***G5.*****.·
••-LSTOUT
BE

*-*-*-*-.-.-.-*-*
DISPLAY HSG
SY~~ST

•

••

IS

•

DES1RED MSG
-lSDXO-

*
*
•••••••••••••••••

*NO

••

•
•

•••••
·BG.

•

•

•••••

X

POINT TO

HESSAGI: TO
BUFFER
.G4

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

H3 •

·····E.··········•

NVSERR

0

*.

•
•

••••••
••

•

F~~R~M~'

!

:A~a¢E TgE~~~r~s

ACTRSP

····*ez··········
*

•

• •••• Os ••••••• ·.~
...

• X ••••• o.

:

8E

LOG STMNT
Of'.!
SYSLST

" CLEAR 8UFFEk.

X

INITIALIZE

LSTDUT

"

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

·•

o
o

..*.··CS
..X*···.····
.-*-.-.-.-.-.-.-.

CONTROL

*

.....Fl··.·.·.···
•
0
•••••••••••••••••
x
•*••••
*
o 1 *
0
••••

Co

••

oND

.•.x

•
•
•

.SB

• 81·

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

YES

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

0

•

••••••••

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

•
•

.. *•.•...*

ERRRTN
it
•••
••• 85 ••• ••••••••
LOGOUT
bE

.YES

*-*-.-*-.-.-.-.-.
DISPLAY

0

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

POINT TO
DESIRED MSG
-lCOOA-

.0.

*.

•

BE

MSGQUT

0

•

o
o

..

8UFFER

ic

•• INITIALIZE •
..
ERROR 14SG
..
•
FDR SYSRDR
••••••••••••••••••
•

X
.....01··········

AND
ATT
M

••

84
....
• ... ~D8I~EIN~ .... NO
' . CA~CELED
.0 ••••

•.• ··.C3•.•.•......

X
••• ··C2••••••••••

NDEERT

OND

o Move

••
•
• AS·
.•....• x.•

.0 x
•••

.0.x *.

.* IS *.
•
.* DEVICE *. YES.
*.
TYPE
.* ..••
*. OJ SK .*
*. *.•• .*

o
o
..
o

DY-C3

X

CHKCNL

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

•••••••••••••••••
Cl

MESSAGE TO

•

•••••

o

OERRTN
X
••••• 83••••• • ••••
.. CLEAR BUFFER ..
:AM¢~ TgE~~~~~S :

•

•••••*
••
• 0*
A4·

•
:••••••.•••.•••.••••••••• x:

*82
B8-81
BJ-C5
ED-J5

*A5
CY-K5

BC-El
CY-K5

.. A3*

.. 82*

8B-C4

*A4

DY-F3
ET-El

•••••
** *

0

DA-81t

gt-~~

EA-Kit

~g:~}

EB-G2
EC-F5
EE-D2
EF-C4
EG-85
EJ-G1
EK-D4
EK-K1
EL-83
EM-E4
EH-G5
EO-D2

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

•••••
*88 *
• A2*

••*

ACTRSP

EA-D4

ES-H5

ON-Kl
DP-Bit
OQ-El

•
:

0

.

.

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

NOE~~~.4t(2.!. . . . . . ..
•
•
•
:

POINT TO
DESIRED
MSG
-ICBDO-

•
•
•
:

•••••••••••••••••
i

•• ••••
•
1 •
•••••
•
Appendix H. Detailed Flowcharts

303

UNA Statement Processor-- $JOBCTLDi Refer to Job
Control, Chart 05

Chart BM.

....

· .

_

...

.**.

-Be ...

.. E3*

:

··.··Bl··········
................-

UNA1

INITIALIZE
FOR
RELOCATION

LOAD CORRECT

..

OR~~~~S

* •• *.**.***** ••••

x

x

,',

Cl
*.
.- MULTI -.
.-PROGRAMMING-. NO
*. ENVIRONMENT ••••••

*.

*.

.-

.* ••
-YES

.*

x
··......

X

··

•

•-

.-

ti.

:x ............................................... :
.*.
El
-.
VAllO

FORMAT

-.

•• NO

.."
* ••
-YES

.*

F 1 EQ 3
F2 EQ 2

'E4

X

····*E3··*·······

:~~!;~~_*_*_._S~:

..

..

..

ADDRESS.

····*F3********·*
* Move LUB AODR •
* TO LUBAD AND •
:

Nb~BI2Qg~I!s,

: 2

ASSIGNING F2 PUBS,

•*

YES

..... • *.

*.

IS

F2

.*

OPERAND

*.

·

.-

.RESTORE pueHSK
• TO HEX FB FOR
UNASSIGNING
•
BACKGROUND
•
•
OWNERSHIP

.
*

·e4

'H2
1, WRKRG3 EQUALS
FOREGROUND 1 PI B
AODRESS,
2. PUBMSK EQUALS PUB

.-..·.HI··········
-INITIALIZE FOR ..
..
UNASSIGNING ..

.. FOREGROUND 1
..
LUBS
...
-H2

...
..
..

3,

MASK FOR UNASSIGNING
Fl PUBS, HEX FO.

POI NT2 EQUALS
UNIT CLASS 3,

x

X

.·*·*H3**·.·.··*·

H5

•
•

.*

-.

X

IS

*. *.

FI

.*

.. ..

*.

OPERAND

••• *

*YES

: .......... x:x

.. .. .. ..
.....x
·YES

x

."

*.

DID ••
NO •• A BLANK ••
• .................... END THE LAST ••
••
SCAN
••

:~~~~~!-.-.-.-~~:
UNASSIGN
THE LUB

,',

••

•••••••••••••••• *

J1

•
•
•
•
•

•• *•• ** ••••• * ••• *

****.****.** •••••

X

·····J3·········*
..
INCREMENT
*
• LU8AD TO ADDR •
*
OF NEXT
*

NO

.* •.•.

·

:

4

.

LUB

* •••• ** •• *.*.**.*

•• **

.·.·.J4··X...··*.*
::S~~~~_._._*_~~:
GET LAST

:...~r:2~:~~....

:

··

.***

x

• 1

•*

K3

",

x

••

*. •• YES.•
MORE
Lues IN
.* ......
•• CLASS
••
*.
.*
••• *
'NO

x
* •• *

·· ..
• 2

)

304

X

*·*·*63·**.·**.··
•
INITIALIZE
•
*FOR SUBROUTINE.
•
UNAENT
•

* ••
-"
'NO

I~

·····G5··········

X

UNA2

-. *.

:

:X ......... ..

HEX FE.

x

",

·.....

:

* TO WRKRG1
*
••• *.*.* •• *.**** •

3. PUBMSK EQUALS PUB
TO MASK FOR UN-

Gl

1, LOAD LUB AOOR IN WRKRG3 FROM LUBAO,
2, SAVE THE CURRENT LUB IN LUBCOH,
3. NULL THE LUB IN THE LUB TABLE
BY SETTING TO HEX FFFF,

X

.F2
1. POINT2 EQUALS UNIT
CLASS 2,
2, WRKRG3 EQUALS
FOREGROUND 2 PIB

.................
*F2

.

TIAERR

•

X

LUBS

x

* ••••

·cv •

:***!~.~~~~~;.*.:

·· ..

-INITIALIZE FOR ..
..
UNASSIGNI NG ..
.. FOREGROUND 2

.*

•
COMPUTE LUB *
.ADDRESS AND NO.*

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

.·.·.FI··········

THE PI B FLAG MUST BE HEX BO
INDICATING THE PROGRAM IS
DETACHED INa LONGER IN USE) •

•• D!.

•

..

• 4

...

....

x

*.

..

•.

*YES

: •• :;~!.~~*~~-; ••• :

UNAE

.C4

••

IS
••
PROGRAM *. NO
DETACHED
.* •..•
·C4
••

X

..

OPERAND

'"

··***03****······
.. LOAD POINTI
*
•
WITH CLASS

SF-

.. POINT TO 1ST

C3

• 3

·····01··········
.-.-.-.-.-.-.-.-.
*SCANR2

•*
*.

••

• 4

...

.:*

.*··*B3···***·.·*

:!~!!~.-.-*-.-~~:

..
..

•

X

·:* PI2

X

UNA

1

DOS System Control

•

••

K4

•

*

·B8 *
*. 8~*

CONTROL

··

• 4

.', ••

DID ••
•• A BLANK *. NO
..
••
END THIS
..................... x.
*. SCAN
.*

••

* •••

.*

(

·YES

.*~*..
: 3

:

x NVSERR
*.**.

...

·BL •
• E4·

CLOSE Statement Processor-- $JOBCTLDi Refer to
Job Control, Chart 05

Chart BN.

•• ••••
•
• I ••

....

..I

CUlII

······f!. ··········
lNO
................
.

:

INJTU.IZI

:

RELDEnlON

••

•

:;c:~li·······i':
e_.-.-______
...

: pOJ!!I,18

•

• 2

'.

w.

.-

YES

....
··...... ............
• 3

•••••••••• •••••••••••
YES..
•

..

..
··......

..

.-

·.
• 3

i

Dvtyp

• _ G1
••
_.

_.

i
._.

• 4

•

•

SM'tHON'

i'9N~t

ofikYilo :
.:...............
.
•

CLOSEt

w. w.

-.. -

•• NO
••
•••••••••• X..

..I····

UNIT

•

-.

...

TAPE._.._

-.. -

H2

i
.1.

W.

-·.fES

..ld...Ih:....
x

A

··......
i

•

H3

I.

.
.:.••

I.

··......

UNIT
._
1..1
I.

I.

··.fES

'~ES

•
•

.'

•

J3

...
IS

·.................
....
·•.....•
:FE'C~

•

·· ..

·

• 4

i

•.FETCH
····JtVC·Z·····
•
UeCMTQ7 •

I.

CLOSE2

i

•••

....K~Ali:··· ..

_. NO

'.

NO
NO
......
ND..
•

'SE
•• OPE

..•. •.•
• YES

••••

•

•

I
....
··......
.4

•

i

i

• I

•

•••••
.CII .CLOSEt
• M.

'N IE .H':

•

I.

..•. .•.•

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

INIT REGS!l •
• 'NO
F~R ~yV •

i

• 2

•• 0ROuT.-

.:••

.2

•

YES •• THE UNIT •• NO
.x ••••••••••••••••••
SYSPCH,.LST ••••••
•

~

i

i

-.

i

-. NO

I
-.••••
.-......I:.
••••
eYES

.....""'i..........

._ .

OP RAND .1.._

•

•• 1NJ!a
·UT.......:
w. LIT ••••
• _ SY

ILUS

•

••••
• ••• NO
•• ··THIIE , •••• NO
I. PROGRAMMER •••••••••• XI.
SE DND
.1 • • • •

A ... YES
IllER . . . . ..

•• J1 Ik':-.••

.-.

• J

• 4

..

ICY'
• 811

e. .
. G2
__
IS
•• NO
DEVICE
••••••
.YES

-. ··.AIT..-

• 1

'SSGND

i
.....

i

•.

.-

X

DI It
._
w.._

l

._

••••• F............ .
CII•

i,

._

~

._

• CLOSEl

.YES

•_

0

....-......-.-.-....

•

Ii
DEW CE

.•Hill
•• _.pR&

I.

••

.IV •
• J2 •

·:..............."

•

FR'

i

...
tl •.
CE
It

S"XCHON.

x

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

D4
DE

•

:··~o;ti·i;·H·CE··:

•

~

SE' CLOSE •

it,Nft!· ••
·..............
.
.....
...
:•

:···514I·~LO;E· •

INOVTP

·....x .

w. eYES

•

I.

x

I.

ICY'
• liZ-

._
w. NO
~h,
-. w. AS
ED ._ ••••••

-.

i
····.ci·······

CLOSE!

.ND

x
.....

-.

-.

··,NO

i

el

I •

•

·

·

NYSERR

.UNI,
ADDI:
.................

...i

I ••_

•

• 2

::,::
..

:
eAZ*

...

.1

.-Cit

i

EH'CMlaLt~D

•

• •••• PROGRAMMER . '
I . I . UNIT ._ .-

a •• _
• YES

i

.1 • • • • • • • • • • • • • • • • • •

'YES

•

......
01· ••• ••••••
• .$Y5I11
CS.
.
. . e-_ _ .-_.-.

NO

I.

..'

I ••'

i

:

LT

•

•• ·~C,BI~ND •••• NO
e.,ntH A BLA••••••••••••••••••• X.

-.

I •

I.

•
:

_.OR COMM.. ••

•
•

OP RAND

I.

i

Cl

.•.x

•

••

\N

••.- is -.

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

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

...

ilRICllGJ

14

:

-~YlIXI-

Q
OPE

•

i

•

P~NTER
HEA

• LOA

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

i

CLOSED

:t;t;t1···
..··l;:
..................

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

•

ii
:"iNC~t·······ii:

:-Set·iE-rvsi~;:-:

.................
.....i

• SE
•

SVS' MASK •

0 HEX FF

•

CONTROL

...

• a8 •

• 81.

Appendix H. Detailed

Flo~charts

305

LISTIO Statement Processor- $JOBCTLD Scan and
Terminate Routines (Part 1 of 5); Refer to Job
Control. Chart 05

Chart BP.

.
:

• A3·

·····A2·······.··
ic

• MOVE THE ADDR •
• OF THE SYS UNIT.
• TABLE,S YSTABLEt.
• TO THE TRANS
•

.

:.~~S;.!!;~;!:~.:

X

X

****.
-Be ..
.... E~.

•

8T-H4

BV-J5

·····82··········
.-.-.-_.-.-.-.-.

:!~!.!~.-.-.-.-~~:

..

'A3
RQ-K3
BR-G2

.. FNDARG

EX.

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

INITIALIZE

•

FOR

: •• ~;~2;!!!2~ ••• :

•

···.·e1.···.·.·.·
X

DETERMINE
TYPE OF
OPERAND

•
..
•

•• D~"

... LOAD POI NT4 ...
-WITH ERROR EXIT... TO BE USED IF ...
...

$$BLSTIO IS

·
.
.................
• ..·.·A4.·.·.·.·...
o

.A5
ENTEREO FROM UBLSTIO
SUBROUTI NES AS AN ERROR
EXIT.
POI NT4 IS USEO
AS A ORANCH REG.

•

..

ZERO WRKRG3

•

:

*FZ

:

.....
.. .
• .A~ •

'02
1. THE OPERAND IS ANALIZEO ANO CONTROL IS
TRANSFERREO TO THE CORRECT PROCESSING
ROUTINE USING TABLE A.
2. REGISTER POINT! CONTAINS THE
LOGICAL UNIT CLASS
3. REGISTER WRKRG2 CONTAINS THE

·····01··········

SF-

...... -.-...POINT
- ... -.-...TO-*-*- ......
OPERAND

TNVSERR

·····84 .......... .
.SAVE THE BRANCH •

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

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

•
•

HENT IN LOC

..

COUNT FROM

X

•
LOAD WRKRG3 •
-WITH THE BRANCH.
.TABLE OISPLACE-"
•
KENT OF THE •
NVS ERR RTN
•
•

'TABLE DISPLACE-o
WRKRG3

ic
·.···C4•••••••

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

X

*SCANR2

·····05. .·••··.··

ic

L10EOJl

•
SET THE
•
•
8-TRANSIENT·
.ACTIVE SWITCH, •
:
TRANSN,OFF ••

•

:~2:2;~ •••••• :~~:

•*

it

1I0EOJ

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

···**81*·········

L1STlO

.....
.....
.

1

LUB COUNT.

..

·····04..........
it

.-.-.-.-....-.-.-+
BK-

*MTNCTN

.................
•
:

.'.x

RELEASE
SYSTEM

•
:

X

EI
*•
010 *.
A BLANK *. NO

.*
*. END THE SCAN • * ••••
*. *.
.*
.*
* •• YEs

.....
•• .E: •

····E4··.·.·.··
.SVC 11 RELEASE •
THE
•
•

·!~e~~!~~!.!~~! ••

·eL •

....·Fl·········*
X

... SAve POINTl
..
...
IN WRKFlD3.
...
... POINTl I S ThE.
-POINTER TO THE ..

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

OPERAND

•

·.·.·Gl··········
.................
it

...
..

LOAD LINKR2
WITH RETURN

..
..

NVSERR
.F2
IF THE $$8LSTIQ TRANSIENT HAS BEEN
LOADED, LIOEOJ IS THE NORMAL EXIT
FROM THIS PHAS E AND TNVS ERR IS
THE INVALIO STATEMENT ERROR EXIT.

'G2
L1NKR2 IS USED BY THE UBLSTIO
TRANS I ENT TO RETURN CONTROL TO
THE CALLING ROUTINE AT THE
LABEL RETADO.

... ADDRESS TO BE ...
...
USED BY
...

*$$BLSTJ a

*G2*

TABLE A

:OPERAND·:· ROUTi NE·: ·cHART:

••••• Hl.!••••••••
*SVCBTRNS
CT:LOAO-ANo-iNi;::-:

·...................
*$$8LSTIO

*G2*

·····Jl··········

RETA~O

it

:~!~;!~-.-.-.-~~:
• SEIZE SYSTEM •
• AND seT SYSTEM •

:m··· .. :·r.ior. ...• :·sQH·:
:PRDG····: .l.iDr. .... :. sQH·:
:Fi······: .l.iDr. .... :·sQH·:
:H······: ·r.ior.····:· sQAi·:
:m·····: ·r.ior.····:· SQAi·:
:uNm···: ·uNiTS···: ·sm·:
:cuu·····: ·l.iDcuu··:· sm·:
:Dowh····:· DowN····:· mr:
:ui······:·ui······:·BTSi·:
:mXXi<"·: ·l.iDsvx··:· ssW:

:~!~~.!~.~~~.~!.:

·.·.·Kl····.·....
...................
·......
X

•
HOVE THE
•
• OPERAND TO THE •
• TRANSIENT AREA.
•
IN LOCATION ..
•
TARG
..

ic

· .
• 1

306

•

DOS System Control

.....F4.·····.···
it

:~!~~!~-.-.-.-~~:

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

SEI ZE

SYSTEM

·····G4•••••.••••

·G5
EXIT BY TABLE B

it

•
LOAD WRKRG3
.WI TH DISPLACE.MENT FROM SAVE
AREA, COUNT
•

•
•
•
•

·.................
.....
...x..
.
• G5·

TABLE B

:oimm:·:········:·····:
.MENT
.ROUTINE .CHART.
:HEXOO····· : CONTROl. .: Bs!si:

:HEXii·····: NVSERR··: it!E4:

Chart BQ.

LISTIO Statement Processor- $JOBCTLD (SYS, PROG,
Fl, F2, or ALL Operand Routine; Part 2 of 5)
Refer to Job Control, Chart 05

.....
...
···.·Al·*·····

I

..

A2· + •••
IS
OPE RAND
... SYSXXX

SET LJOSW ..

ON~

• 3

• 1

X

L10L

··......

··.....

*BP ..
... 82-

INDICATES-

LIST 110 IN
PROGRE 5S

••

...

..

.. ....

X
·····A4..........
.

••••• A3·······

X

LIOL2

L lOLL

•
SET TPROGSW.
• ON. INDICATES.

•• YES

........... .. X*S INGLE UNIT TO •

BE LISTED

•

•
LOAD WRKRG3
• WI TH ADORE 55
OF NEXT LUB
•
SAVE AREA
•

• •••• A5 •••• •• •• ••

:~~!~~!!.-.-.-~~:

•
•
•
•

:

: .....;~!~~~~; •••• :

'NO

IN WRKRG3
FROM WRKRG2

X

.·····B2··········
-.-.-.-.-.-.-.- .

X

-LOAD LUB COUNT

•. ·•. B3·······. •·

X

·····81·**·······
*

• GETLAN

CR.

.. COMPUTE LUB
• ADDR AND NO.
IN CLASS
•

• SET LUB COUNT t

..

.NUMBER IN CLASS.
.AND COUNT CTRL •
•
TO 1
•

•

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

•
•

·····C4·.··X •.·..·

.·......x
...

.CHRASG3

X

..
•
•

BK •

COMPUTE PUB
ADDR IN
WRKRG4

•

·····01··········

..·... 03··········

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

•

ADDRESS
LIOL4

.................
: AREA,

LOAD LINKR2
WITH THE

•
..
•

....... C3··· .. ••••••
• PLACE LOGICAL.
•
UNIT CLASS
..
•
IN CLAORO
•

.. SAVE LOGlCAL ..
.. UNIT CLASS IN I.. CLAQRO AND
I... LUB COUNT IN •

~~~~~~

..···85··········

X

•• •• ·B4 ••••••••••

• 2

L

PRINTl
LINE FROM

.... .....:

.-.-.-.-.-.-.-.-.

·· :- ..
IDLL20i
X
·····Cl··········
: ..
·..... .

X

•

• 05·

• MOVE PUB ADDR •
• TO TRANSIENT •
TPUBADO :

~~;;.;~~~!.*.:

....

-as * •••

.. G3*

L10L2D2

.05

.

X

X

:~~.!~~~-.-.-.-~~:

• MOVE LUB ADDR •
• FROM LUBAD TO •
•
SLADO FOR
•
SCAN
•

... PRINT A BLANK ..
• LINE TO EFFECT ..

: •• !.~!~~.;~!~ ••:

: ....•..... x:

·····El··········
.- -.-.- - ..-.- .....

X
·····E3·········.
:~~~~~;-.-.-.-~~:

:~!;.~~!!*;~!;~.:

: ••• ~2!~!~~; •••• :

X

*LHRTN

...

LIOLL3

EY*

...

.SCAN LUB TABLE.
• FOR EQUAL PUB •

.. BUILD HDR FOR ..
_SPECIFIED LOGI-*

.....Fl·····**···
.................

:...•..................•. x:x

X

:~~~~~!~.-.-.-;~:

.. PRINT HEADER
... FROM BUFFER.

..

SKIP 1 LINE

..
..

L IOL4

'F2

REENTRY POINT FROM
THE SFPPE2 SUBROUTINE ..
SEE NOTE *05 •

••
••

••

...

MOVE HEADER
TO BUFFER

X

•

LOAD WRKRG3
WITH CLASS
COUNT. LOAD
POINTl WITH

*

•
•

.................
·····E4•••••.•.
it

3. LI NKR2 IS LOADED

IN THIS ROUTINE TO
FORCE A RETURN TO
LlOL4.
4. SFPPE2 IS LOCATED
AT CHART CV.

**

.MOVE PUB POINT-.
... ER TO TJIBCHN *
• IN TRANSIENT •
.AREA FROM CURR ...

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

·····F4••••••••••

..
•
•
•

• LOAD SYMBOl! C •
.UNI T ADDRRCLASS.
: A~~GO~g~NtlIN :

·..................
it
······G4••••••••••.
•

..

CLEAR

•

BUFFER

•

:.•~~~!.~~~;;•..:

X
·····Hl··········

X

••••• H3 •• • ••••• ••
.INCR POINT! TO •
* POINT TO NEXT.
•
CLASS
•

:~~!~~!~.-.-.-;~:

• PRINT HEADER

•

•

•

.................
x
··......
FROM BUFFER.

SKIP 1 LINE

• 1

•• NO
••••••

.*

CLASS

.COMPUTE LOGICAL.
.UNIT NO. WITHIN.
•
CLASS OF
•
• CURRENT LU8. •
• STORE IN TLUN •

1. EXIT IS TO SFPPE2
AT THE ADORESS
SPECIFIED IN LINKR4
2. LINKR4 IS LOADED
EACH TIME SFPPE2
Ef6~:~S CONTROL TO

it

••

END
OF LUB

··*··G3··········

•

• K1

•

F3

"YES

X
·····Gl·····
..•..
...

.'.

..
........

..

X

•

•

J3

.'.x ".o

NO .o.
... •••

END
OF LUB
•• TABLE

...

aYES

'K1
I IO-UNI T---CMNT--CHNL---UNI T---MODE

• 2

..•..K3··········
*-.-.-.-.-.-.-.-+
X

• SKIPLN

:~~:~-.-.-.-.-~~:

.................
• BUlLD A PRINT.
• LINE IN WORK •
•
AREA
•

it
····
. J4·.··.··
..•
:~~~~-.-.-.-.-~~:

'.

....x ...... ..
··

it

••••• H4 ••••••••••

CQ.

.. PRINT A BLANK •
• LINE TO EFFECT.
•
A LlNE SKIP
•

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

•
•

BUILD PRINT
LINE IN

•

: •••• 2~;;~~••••• :
x
··......
.*.•
• 3

•

LlOEOJ

·BP •
• 44 •

Appendix H. Detailed Flowcharts

307

LISTIO Statement Processor- $JOBCTLD UNIT Operand
Routine (Part 3 of 5); Refer to Job Control,
Chart 05

Chart BR.

....

* ••••

...·.•141··········

: 3

- 1

X

UNITS

X

UNCU

UNITS7

-••••• A3··········-

:~~!~~~-._*_._s~:

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

.. ·.·e3··. ·······

.··.·81··········
:BuILr.tPHYSICAl-:
EY.

:~~!~~~-.-.-.-~~:

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

UNIT HEADER

..

•
COMPUTE LUB
• AD DR AND NO.

...

IN BUFFER

•·..·Cl····.·.·.·
.................

*

4

it

.·····01··········.....
-................
.... .
.·..·EI··········

UNITS9

••

LOAD PUB
ADDRESS I ~

••

WRKRG3

*BS

.-.x

••

END

•

OF LU8

-CLASS

••

LUB

••

••

: ••

X

TR,ANSI ENT

:
..

.PUI F
•

i

_ 3

-

-

*

EW.

PRI~T

BUILD

LlNE IN WORK

•

•
•

!~~! •••••• :

...

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

.....FI··········

.....F3··········

.................-

•
BUILD PRINT
• LINE IN WORK

.................
.-.
........

...

• COMPUTE TLUN, •
• LOGICAL UNIT •
• NUMBER WITHIN.
:
LUB CLASS
:

..

0 IN REG
POINTl

X

it

..

Move PUB

..

:~~!~-.-.-.-.-~~:

..
ADORE 55 TO
..
_TRANSIENT AREA.

..

LOC TPUBADD

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

..

•

-

it

i
·····G3··········
.-.-.-.-.-.-.-.....

.. ..

................
.
....
. - ....
AREA
.•...............
.

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

i

i

•• x.sp

• A4·

it

.*.

UNlTS2

UNlTS3

•..•
.. ..
-NO

.. ..
.... .. ......
Jl

.-.

••

SI~GLE

•• YES

ENTRy

••••••

'NO

• SEUOB
•
•
•

EZ.

BUILD PRINT
LINE IN
BUFFER

.•...H3··········
i

:~~!~~!~.-.-.-~~:

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

PRINT ONE
LINE FROM
BUFFER

X

• TXCUU3

eM.

·····J3··········

•
•

:

• SEUCB

EZ.

.................
LINE IN
BUFFER

•
•

.····KZ··········
i

:~~!~~!!.-.-.-~~:

................. .................
:x •.•••.•.•. :
.....
. ...
....
•

POINTER IN
NEWLUB

1

• PRINT 1 LINE

•

*

-

•

FROM BUFFER

.~

~

:

•
•

•

•
•
•

·····Jz··········
:-·Bullo·PRINT·-:

•

LOAD LINKR2

: 2

DOS System Control

:

•

•

• WITH THE AOOR •
.UNITS9 TO CTRL •
•
RETURN FROM •

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

.4O

F4

•••• I S · · •• NO
UA IN THE ••••••
... BUFFER ••

*.

·YES

X
·····G4•.•..••.••

:~~!~~!!.-.-.-~~:

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

:

PRINTl LINE

FROM BUFFER

•
:

:x .......... :

·····H4••••••••••
X

UNITS8

• INCR PUB ADDR
• IN WRKRG3 BY
• 8 TO POI NT TO
•
NeXT PUB

•
•

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

-* 4

-

•
:

-_

-

~~~~~

i

....
·Kl··········
:-·COHPUTE·PUS·-:

•
•

X

• HOVE CHANNEL •
AND UNIT TO ..
•
•
BUFFER FROM •
:TCHNL AND TW.uT:

.LIOEOJ

Hi
••
• •••• HZ ••••••••••
••••
.PUI F
EW.
...
IS
•• YES
.-.-.-.-.-.-.-.-.
••
CEVI CE
••••• 4O •••• X. BUI LO PRI NT
••
COWN..
• LINe IN WORK

••

•

• •••• G2 ••••••••••

-NO

• 4O

AREA

Gl··· *.

*.
-SKI PLN
CQ.
END
•• YES
.-.-.-.-.-.-.-.-.
OF
••••••••• 4OX. PRINT A BLANK.
••
PUBS..
.LINE TO EFFECT •
••••
•
A LINE SKIP
•

••

.*

•
•

-

••

MUL T I

-NO

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

SET LOGICAL

.. UNJ T CLASS TO ...

YES. •

it
·····04•...•.•...
.-.-.-.-.-.-.-.-.

...... .

X

X

•

.4O

•••••••• PROGRAMMING ••
.ENV IRONMENT.

:!~~~.!~.~~~~~~.:

•• YES

••

85

EQUAL
••
•• 4••

...... .- .... :•••••
- .
OF

••

·····E3··········

..

308

.4O

.X . . . . . . . . . . . . . . . . . . . . . . . . . ..

UNITS40l

I

••

03

.. .- . ..
.. ......
i

••

~~~L~l~N~~O~~

:
•

-NO

* •• x.•

.. Kl*

4O.

END

.CLEAR TEMPORARY.

.SCAN LUB TABLE ..
• FOR EQUAL PUB ..
•
PO INTERS
•

_

•.

·YES

·····C4········.·

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

-- --

..

.-.x

UNITS50l

:~~~~~.-.-.-.-;!:

..

••

..4O.

.YES

••••• C3··········

...

FROM BUFFER

•••.

....
....
-....- :x. ...........•....•....... :

X

UNITS5

:~~~~~!~.-.-.-S~:

...

84

••

: 2

it

.. SPACE 1 LINE

• NO..

••• •••

•
•

:••• !~.;~~~~ •••• :

..

... PRINT HEADER

i

UNITS402

X

A5

....

•

:X •••••••••••••
it

:

: INCR. LOGICAL:
NO •• uN~~GlE:~s·
• UNIT CLASS BY .X.. ••••••••
EQUAL
••
.1 IN REG POINTl.
X
-.
ONE
••

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

: •• ~.~!~~.;~!~ •• :

UNITSb

••••• A4..........

•
HOVE UA TO
•
• OUTPUT BUFFER •
:
+23
:

... PRINT A BLANK ..
_LINE TO EfFECT ...

.P$HRTN

-....-

--

*SP ..
... 82-

'K4
EXIT TO THE SU8ROUTl NE SFPPE •
L1NKR4 CONTAINS THE AOORESS
WITHIN SFPPE TO WHICH CONTROL
IS RETURNEO. SFPPE 1 S ON
CHART ev •

LISTIO statement Processor- $JOBCTLD (CUU or
SYSXXX Operand Routine~ Part 4 of 5)~ Refer to
Job Control, Chart 05

Chart BS.

........., .
• 12-

•

Lloeuu

i

r'iuH~;;:i8ro:

.-,p....•

-~~IN Ito :
.................

:

•

HEX

II-

•

X

••••• 81 ••••••••••
oneuu

• B2o 0
o

X
:·sE·lali~:;·~~·

LIDSYX

eNo

:: L;¥
~'oEiN '.
PRO~ESS.'

:-p;-6r;Y~E6:

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

:.................
~a8 pli~AT~=
:

• .,G
.................

X

.-...---..........

• •••• ~3 ••••••••••
• RE TDRJ
0
•
PINTA'
.POINTER 0 HE.
• SYXXX OPERAND •
o
0

••••• Cl ••••••••••
oSKIPLN

COo

o PRINT A BLANK 0
ILINE TO EfFECT'
o A LINE SKIP 0

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

X
...
·.03··········
._e·I_e-._.·e.e_.

X

••••• 01 ••••• •••••
'PSHRTN

oSYSXXX

Eye

!i~-I~D-;H;;iciL:

I'":8hA
.................

.................
:UN

BUJ~~&R IN :

X
.....EI··········
: P~A~~ tH5'~ER :
.................
LINE

••
••
••

WR"RG~

••

IS
UNIT
SY$IN

•• YES
••••••

.-

i
.. .0. .. .
.. .... .. .....
i

F!
-.
._
IS
•• YESX
_.
UNIT
••••••
•• SYSQUT .-

:···L~a8:;vi····:
•

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

o

E3

:

oND

x

•

.0.i

-.
.. .....-

..

•

0

•

C

: GE UN

oOUTPUTS
Cgo
.-I.I-e-I.I.I-e-e

• SPACE

eso

• (H,eIC. xx. AND •

0

oNO

.

• ty •

• 11.
o

x

X
:··S·'3=;~~.~;

:···M8~~·~~;····:

o

8

BYT~S~
WR=K~

fo

oON

0

•

o

2

to

••

INOI ATEo

PROGRAM" R

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

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

:

•o

0

0

ILUS

UNIT

0

•

•

i

:is··:10

i

o

o 0
o
LIDL202

:··~DUI·~ro;··:

o

PUB F~Ai! TO

•

WR~K~ 3

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

:

:

•

0

x

:···Lglo·;;:····:

•
•
:

WRKRG3 - AS
POINT •• TO

•
•
:

.................
"~K~D

X
••••• Kl •••••••

• SET S!!lTfH •
:.Nw1"rrEs
LLEO

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

•

ilGUMEN

•

)

oK2
WRKFLD2 AND NRKFL03 ARE 10NT IGUDUS. WHEN
LDADEO IN THIS MANNER TH Y S MULATE THE
LAST PUB IN THE ~!!I rAB~. WRKF~~3 IS
~~miD ThP¥~~Tpui J=ETH
ni[k~2

I,JR

0

0

i

.....

UNITS 401

.

• 1• •

• EI00

Appendix H. Detailed Flowcharts

309

LISTIO Statement Processor- $JOBCTLD (UA and Down
Operand Routines; Part S of S) Refer to Job
Control, Chart OS

Chart BT.

--

- 1

X

UAON5
••• .... A4· . . . . . . . . . .

......

..... _.

_

*BP ...
.. 82-

*BP ...

--

X

:~~:~~~-*-.-*-S~:
... PRINT A BLANK ...

.. PRJ NT A BLANK ..

...LINE TO EFFECT ...

:**e.;!~~*;~!~*.:

X

-

...

-C2
***UNASS IGNEO*.-

...

...

X

...

INIT REG

POINTl TO
FOR UA

it

:~~~!~~-._._._2~:

BUFFER +6

-12 BYTES*02

...

........._......*****03····*···*-

...

_INIT REG POINTl_

... TO BRANCH TO
...
TEST2 FOR

...

••• .... C4 ........... .

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

GET SYSlOG
PUB ADDR IN
WRKRG4

..
...

- : 2

:

04
".
CURRENT· •• YES
..
". PUB SYSLOG
•••••••••••••••••• X.

... is
".

• DOWN PROCESSING-

:**~~~;;;;!~~***:

•
•
..

.-.

X

-

...

-BRANCH TO TES n*

...

X

HEADER TO

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

...
...

...

·····01····**··**
...

...

*·*·*C3.*·*.*
••• ...MOVE DOWN
...
...

...._........ _ -...
*C2

A LINE SKIP

·.·.*84* ......... .
•
LOAD WRKRG3
•
WITH SYSLOG
LUB POI NTER
HEX 08

• 1t ... 1t . . . . . . . . . . . . . . . . .

-MOVE UA BUFFER ...
... TO BUFFER + 6 ..
...
-17 BYTES...

...

X

-****83*** ..... ••••

.LINE TO EFFECT ..

*****e1··· ... ·_··.·

X

DOWN

*****81··- _._-_.-

:~~~~~~-.-*-.-;~:

-

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

... 82-

---

VA

.. SAVE CURRENT ..
•
PUB ADDRESS •
• IN TRANSIENT •
.. AREA LOCATION.
•
TPUBADD
•

""

........
-NO

:x .............•..•................................. :

·····El······.···

it

X

UADNI

:~~~~~r~._._._~~:

• PRINT HEADER
•
FROM BUFFER

: •••• E4 ........... :

·E2

CHNL---UNI T---

•

LOAD CURRENT

•

PUB ADDR IN
WRKRG3

:.;~!~~.!.~!~~ •• :

X

UADN4

........ Fl···· .. ••• ....
_MOVE SUB HEADER.
.. TO BUFFER + 10 ..
..
-14 BYTE5•
..
....E2

•

.. ..
....
F3

•••

••

F4

.."
.. .. ..

·DOWN

:~~~~:'!~.-.- .. -;~:

• PRINT SUBHEADER"
.. FROM BUFFER.
..

:.;~!~~.!.~!~~ ... :

TESTl

-..-

TEST2
I S " . YES
PUB
••••••
UA
O4"

••
...

.*

G3

...

". * ••• ."

.*.x

••

IS
PUB
DOWN

* •••

••

.*

••

:~~~~-.-.-.-.-~~:

• BUILD A PRINT.
• LINE IN WORK •
•
AREA
•

..................
X

. ····J3·.········

.. CLEAR BUFFER • •

• MOVE CHAN AND ..
.UNI T TO BUFFER •
.FROM TCHNL AND •

LOAD PUB
ADDR IN

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

x

- : 1

:

••

.. .... ..

•• ·HAVE ANY·- •• YES
UNI TS BEEN . . . . . ..

*.

•• LISTED

••

·.·.·H4·•••••••·•
X

:~~~~~!-.-.-.-;~:
•

PRINT LINE
FROM BUFFER

•
•

..... ::~2~~:: .... :
• BP •

---

.. A4.
LIOEOJ

: ••••• r~~!! ........:

•

....

--

X

• 1

•• ••• K3 ....... •••••

:~~~~~!;.-.- .. -~~:

•
•

PRINTI LINE
FROM BUFFER

•
•

-..................-

..

:..•......•...•.••..•.... x:x •.•...••.. :
.~

--....- 2

310

\

: .... ~~!!*~~~ ....*:

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

X

REGI STER
POI NT2

(
I

-NO

UADN6
X
...... H3 ........ • ••••

I ··.·. Jl···.·.····
UAON2

INCR PUB
..
POI NTER BY
..
.. 8 TO POI NT TO ..

G4··· ".
•• NO
••••••

: ............. X:
X
...... • .. H1· .. • .. ••• .. ••
•
MOVE
..
•
.... NONE··
•
:TO BUFFER + 11 :

X

: ••• *ES.* ............ :

..
•

·YES

.YES

-NO

UAON3

* ......

.-.x

UA ."PROCESS ING ...
NO."
END
. . . . . . . . . . . . . . O4 . . . . . . .
UA OR DOWN ... x.... ....... •••
OF PUB
*.
••
...
TABLE

* •••

X

•
•

...................-

•

.... ···Gl···· .......... ..

•

DOS System Control

-

(

Chart BU.

DVCDN Statement Processor- $JOBCTLD (Part 1 of
3); Refer to Job Control, Chart 05

....
....

o
o 2

o

0
0

0

X
···.·A ........•.

• MDYE

.....
-ac ..

o

.. E3*
o 0
o

....

: 1

X
···.·81.·········
:!~!!~.-.-.-.-;~:
INITIALIZE

•

: •• ~~~! •••• ~! ••• :

0

DYCDN2
•

0

SET SVSLOG

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

x
••••• el ••••••••••

X
••••••C2 •••••••••••

FOR
RELOCATION

..
..

POINT TO
OPERAND
X'CUU'

.-.-.- ..... -.-.-.-.
MSGOUT

..
..

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

• MESSAGE ON

..

SYSLDG

oC3

SCAN

w• • _

.-

RETURN

• •••• a5 •• •••••

••

•

..!..

SKIP ONE
LINE ON

SYSLDG

003

·aL •
• E4·

o 0
o
NYSERR

.-.-.-.-.-.-.-.-.

.-.-.-e-.-.-.-.-.
*TXCUU

.OYCDN3

eM-

.. GET DEY TYPE

..

:

:

x
••••• E2.· •• • •••• •

CPa

x
·····04··········
.-.-.-.-.-.-.-.-.

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

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

x

X

P~8B A~ghT~~D

• 0.

Ft
••
•• IS
w.
._
UNIT
w. NO
w.
SVSLDG
••••••
*. w.
._ .-

• •••• FZ···.······

.-.-.-.-.-.-.-.-.
• SVCBTRANS

CT.

•
LOAD AND
•
•
INITIALIZE
•
.. SSBLSTIO
.F3.

_YES

X
••
• ••ez·· ••• •••••
• "TNCTN
BK.

X

DVCDN5

.-.-.........-.-.-.-.

•• • •• Gl •• •• •• ••••

:n~~EF~~L~DMm~:

..

0 OF SYSLOG

..

:

LUB

:

•

.................
oDYCDN3

SYSTEM

o

X
·····Hl··········
.-e-e-.-.-.-.-.-.
.................

DYCDN14

•

.................
x
....
:

:x ..•..•...• :

SEIZE

:

:

•

2

:

CPo

BUI LD COUNT

..

···.·Jl·.··..·

o
SET SWITCH 0
..
DOSW ON..
..
BIT 0 OF
..
.. BANK! PLUS 1 •

..............
·J2

•

SYSTEM UNIT

•

TABLE TO

•

o B-TRANSIENT.
o -SSBLIS TlD-

0

0

i
·····05··········

• CLEAR BUFFER. 0
• MOYE HEADER~ •
: 1/8w~~lT tDA 0 :

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

X
•• ·•. E4.··.·
•.•• ·

•••••• ES.·· ••• • •• ••

:~=!!~.-.-.-.-~~:

USES:
F4

....

••

••

••

x.

.'

END

••

OF LUa

TABLE

•• • w

••

....

NO •
••••••

••

BUFFER

•

X

.-.-.-.-.-.-.-.-.
MSGDUT

BE

PRINT HEADER

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

oCLE~'p~r~~R

0

x
..........
:
ESob2¥. :
.................
x
.....
•

EQ 0

CLASS~

o

-ORIt-

..

0

..

• BV •

X

•• • •• G4 ••••••••••

o
•

•

•

.YES

oG3
THIS SWITCH FORCES
RETURN FROM SUBROUTINE
SFPPE EACH TIME A LUB
IS FOUND wITH AN
EQUAL PUB POINTER •

•

• 82.
•

0

0

DECREMENT
COUNT

:
o

•
:
•

DYCDN9

.................
X
·····H4•••.•••.••
••

INCREMENT

0
0

:

CLASS

:

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

-CONTROL FOR LUao TABLE SEARCH 0

X

•

•
•

.................
oF3
THE UBLSTIO
LINKR2 AS A
REGISTER. L
LOADED WITH
ADDRESS OF
TO CONTROL

•

•

0

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

•
SCAN LUB
•
oTABLE FOR EQUALo
.PUB POINTER .E3.

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

w• • _

CR •

• COMPUTE LUB
• ADOR AND NO.
IN CLASS
•

•
BUI LO COUNT •
.CONTROL FOR LUa.
• TABLE SEARCH •

*G3

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

0

.GETLAN

f~~L~N~ SD~EI~~Eb~6

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

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

•
:

:DYCDNL

oE3
RETURN WHEN A LUB IS
FOUND THAT HAS AN EQUAL
PUB POINTER DR WHEN

•

OFF

X
••
••• e5.·· •• •• •• •
• HOVE AODR OF •

TO 4.
CLASS TO 0

o

•

SET

RETSW

o

X

BE

..

•••
•• e4 ••••• •••••
o SETLUB COUNT 0
•
:

•

.-.-.-.-.-.-.-.-.
.............
MSGOUT

._

x
••••• El ••••••••••

..

oC3
1. THE 110 AREA BUFFER
IS SET TO BLANKS.
2. THE MESSAGE '11101
ASSIGNMENTS RELEASED'
IS MOVED TO BUFFER
AND PRINTED.

X

• YES

DYCDN4

:

X

DVCDNS

SET LlOSW, •

:BI~N6TgF FB~~~l'.

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

•••••• 02 ••••• • •••••

•DID *.
A BLANK w. NO
w.
END THIS
.W • • • •

••

..

•

•••••.••••• x:

X
01··· w.

..

BE

OUTPUT RELEASE

.................
a.

i
••••• 8" •••••••

• ASSIGNMENT
•
.a3.
.SWI TCHES

:~~~~~-.-.-.-!~:

..
..
..

063
THE ASS I
SYSLDG
AND THE
COMREG PLUS
SET.

•

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

..
..

• TO •
FER, •
NO.

ASS

:

X
.··.·B2.·········
:~~~~~~-.-.-.-~~:

DYCDN
•

.....

HEADERo

• •• N
• OUTPU

o

oJ2
THE SWITCH DDSW I S TESTED
IN THE RESET RDUTINE. IF
ON, CONTROL I S RETURNED
TO DVCDN2 OF THIS CHART
AFTER ALL LUBS ARE RESET
TO STANDARD.

•

•

x

..J'".0. ..
.. .. ....
e.

• NO..
••••••
••

COUNT

EQUAL
0

••

••

••

oYES

0,,2

i

.:RESE~li······CK:
-.-.-.-.-.-.-.-.
.................
x
....
....
o RESET TO STD

)

0

• ALL LUBS FOR •
.THIS UNIT
.J2.

•

:

0

1

:

X
······KIt
..•......•.
.-.-.-.-.-.-.-.-.
.............
x
.....
MSGDUT

BE

PRINT CONTENTS
•

OF

BUFFER

•

·BV •

• F5.
•

o

0

Appendix H. Detailed Flowcharts

311

Chart BV.

DVCDN Statement Processor- $JOBCTLD (Part 2 of
3); Refer to Job Control, Chart 05

......
: 3

.....
-ow ...

......

.....
-au·

...

.

....H!*

DVCON13

:

....

.. F5*

: 1

:x .••.•..•....•.•.••.....• :

x

••• •• 81· •• • ••••••
• RESTORE UNIT
•
CLASS IN
•
POINT!

•
•
...

•

..

X
·····82··········

·.........
: 2

:

······84....·.·....
X

oVCoN9

.. STORE CURRENT ...

-LOOP CONTROL IN•
COUNT. ZERO ..
.. LOGICAL UNIT •

oVCoN12

:

it

······B5.·······. -·

• CLEAR 8UFFER • •
• MOVE TLUNI T, •
TCMNT, AND
•
•
.TOWN TO BUFFER.

•
MOVE COUNT
• CONTROL FROM
_LOCATION COUNT
TO WRKRG2
..

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

x

X
·····C2··.··.···.
:~~!~~~-.-.-.-~~:

i
·.··.C4··.·
..•·•.
• INIT SSTOLUB •

: ..... C5 ••••••••• :

.. AODR AND NO.

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

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

FROM

WRKFLD2

...

: •••• Cl ••••••••• :
...
INCREMENT
..

• LOGICAL UNIT ..
• NUMBER, TLUN, ..

: ••••• ~!.~ ••••••:

..

NO. IN TlUN

...

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

•
..
..
•

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

...

..

COMPUTE LUB

...

..

•

:•..•.••.•.••.•••..•••... x:

*03
1. MOVE PUB POINTER FROM
NEWLUB TO LUBCOM+O.
2. MOVE NULL JIB POINTER,
HEX FF, TO LUBCOK +1.

X

·····02·····.··.·
.. MOVE LUB ADOR ...
.. TO tUBAD AND
-STORE CLASS IN
.. WRKF tD2 fROM
...
POINTl

x

• WI TH HEX FFFF •
.. TO BE USED AS •
• STORED STD LUB •

: ••• !~.;~~~: •••.:
oVCoN7

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

..
...
..
..

·

•

.

X
···· . 04··.··.···
.
•
•

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

FLAG

•
INCREMENT
• CLASS IN REG
•
POINTl
•
BY 1

INITIALIZE
LUBeOH

it
.-.

05
••
•• HAVE ••

•
•

• ~~.:. AL~u~~Ag~es .:.~~!

•

SEARCHED-

................. .it...
•

FOR COMPARE

•

·03

•

• 3

-SCNLUB

..

WORK AREA,
JIBCHN

..

F2

••
••

.'.x

••

..

..

•

FROM •

WORK

EA,

•

•

JI

IN.
3+4.

......
.aw •

.

•• B! •

•• YES

LUBS OF ••••••
• TH! S CLASS ••
OF

••~ •••

........
• 2

(

--.

• K4.

.

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

X

.....F5··········

:~~~!~-.-.-.-~~:
• SET OPEN I NO- •
-I CATORS OFF IN -

:~~~;~ ••••••• :2!:

•

x

it
..• • SAVE
.. ·*Gz NEXT
.. •••••••••
LUB •

: •••• G5 ••••••••• :

:S~~DO I~N~L~~i~L;
.................

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

:·····H2··········
a~V50:~BU~?yR :

X

X
..··.H5··········

•

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

.. ADDR AND CURR •
•

•

!N WRKRG3

..

:

TO TPUBAOO
IN $$BLSTIO

~~~~.~~~~~~

•

..:
•
•

X
·····J2·····.···.
.-.-+-+-.---.-.-.
• PUI F
•
•
•

EW.

BUILD PRINT
LINE IN
WORK AREA

•
•
•

.................
.....x .
....
: 1

:

.

.·au....•

•

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

..
..

...... NO·"

.....

••

it

• SAVE L

i

END

BEEN

•

······E4·.....·....

eN-

Move LUB TO

..
..

••

.- .-

X
.·····e2·········.
-.-.-.-*-*-.-.-.
.........................

•
•
•
•

• LOAD PUB ADDR •
•
IN WRKRG3
•
• FROM LOCATION.
NEWPUB
•
•

•

MOVE DEVIce

•

• DOWN FLAG TO

•
• THE Joe CONTROL.
• FLAG BYTE IN •
• PUB. -PUB+7- •

it

• ....... 5 •••••••••••
MSGOUT
BE

.---.-.-.-.-.-.-.
SKIP 1 LINE

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

• -PRJ BLANK

BUFFER-

•

·8P •
• .A~ •

LIOEOJ

(

312

DOS System Control

Chart BW.

DVCDN Statement Processor- $JOBCTLD (Part 3 of
3); Refer to Job Control, Chart 05

......
_BV •

<
<
<

.. E4*
< <

<

••

*.

.*

B1

.*.x

tt.

THIS

OVCDN8

• • • • • B2 ••••••••••

*.

..

LUB
*. NO
..
ASSIGNED TO .* •••••.•• X-

•• r~ED~ew~...

..

* •• *

-YES

X

·····C1··········

*UNPAI
..

UNASSI GN

IN BUfFER

:

:.2~!.~~!!.~~~ ••:

X

·····B4··········

OVCDN10

•
MOVE JIB
•
• POINTER FROM •
.FAVP TO CURRENT •
JIB+3
•
•

:.;;~e!~.~!!~; •• :

i<

i
·····C4··········
................-

<

..

•
<
<

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

<

•
I NI T WRKRG3
• WITH ADDRESS
*
.OF CURRENT lUB •

...

CURRENT LUB

•
...

···*·C2··········

CP*

tt_tt_tt_tt_tt_._._tt_.

..

..

MOVE-AL T-TO
PRINT LINE

1

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

•
MOVE JIB
• POINTER FROM

•
•

-CURRENT LUB. IN.
• LUB TABLE t TO •
FAVP
41•

:x .......... .

·····01·········.
i<

<

..
..

·····02·····*····
:-·MOVE-STOREO·-:
.SCNJI B

<

BLANK THE
COMMENTS
FIELD IN
BUFFER

•
•

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

:l~3BI~0~~YIR~~

i<

• <.

.. ..

CHECK
SYSLOG

: •• !;~!~~~;~! ••••

• YES

i

......
Fl··.········
tt_._._tt_._._tt_tt_tt
.............
X

...

• <.

••

LINE FROM
BUFFER

F2

*•

IS·.
• * CURRENT
NO •
•• JIB AN AlT
••••••
•• ASSIGN..
X

BE

DI SPLAY PRT

:

E2
••
... WAS
••
NO • _ THERE A -.
•• ••••
STORED
••
lUB
••
••
•• ·E3 ••

:~2~;~~_._._._2~:

HSGOUT

CN.

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

..

·····El··········
..

X

DVCDNll

.. ...

..

* ••
*
.YES

i

··**·04··········
•
ZERO FIRST
•
•
3 BYTES OF
•
CURRENT

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

JIB

<

X
·····E4·······.··
•
MOVE JIB
• POINTER FROM
• SAVED STORED
lUB TO
•

•
•
•
•

: •• ~~~~~~!.~~~ •• :

······F4-...••
·-·OiSPlAY·PRT·-i

MSGOUr

* •••
*
BE

.............
LINE FROM
BUFFER

•

: X•••••••••••• :

·····Gl··········

DVCDN15
:

X

RESTORE OLD

G2··· ••
.. _ IS
-.
NO .*AlT ASSIGN ••
••• *.FOR THE DOWN ••
•• DEV ICE
...

:

.. LUB IN JIBCHN ..

..

FROM

•

: ••• ~~~~~2~:!••• :
<

:

.•••.Hl.·.··..·..
i<

.. RESTORE SLADD
.. AND SNIel TO
• 0lO lUB VALUES
• fROM WRKflD3

..
•
*
•

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

:

:~~

..•• i***
B!.
.BV •

<
DVCDN13

.*.. .. .. ....
<

1

·YES

:

••••*H2·i••·••····

• SAVE THE AODR •
*Of THIS JIB IN •
WRKRG3 FROM •
•
*
POlNT3
..

; Refer to Job
Control, Chart 04
*

:

.......

..

*CC ..
.. H5*

NEWLUB

+ ....

...

X
.. "
it.

.... •• *. i t .

X

.........x .

....

A$SGN23C

••

+• • +
*NO

02

•

••

*. it • • it .-

••• .... BS· ..... ••• .. CU"
• .....
.RSTSTO
.. RESET LUB TO
•
STANDARD

*.
•

... .......
FOR

•• $YSOUT

••

•••• ""

.. .... • .. CS· .. • .. • .... • ....

.UNPA3

**

• UNASSIGN THE

AS$GN230
X
• ...... 03 ............. •

*..

MOVE A NULL
• JIB POINTER,

:HE~Y~~CHT~U~HE

05

NO ".

••

:

............... * ......

X
E4 ......

YES..

.*

• .................... '*.

..

TAPE
UN IT

* •••
*

... NO
..... .o.

"CE ..
.. J4*

* *

..

*

..

LOAD WRKRG3
•
WITH PUB ADDR •

.*
*

...

.....x
2

*J2
SYSlST AND SYSPCH
PUB ADDRESSES ARE
COMPARED. I F THEY

····Jl··········.
.. -.-.-.-.-.-.-.X

SKit

ARE EQUAL SYSOUT
MODE IS IN EFFECT ..

..

*ASSGN .. COMPUTE ...

:~~2! . . ~~~ . . !~~~~ . . :

"'J2

.YES

x
..........

··

:!!~t~~~!~~~~~!.:

.. eE •

•

J4"

:..•..•...•..
x:•
x

····"H4········"·
........................ .

. ····J3···X . ····*·

X
·. ···J4······
. . ··

..

.TO COMPLETE THE.
.SET MODE INSTR ..

.ASSGN25

• RESET OWNERSHIP.

•

BITS TO ZERO
]N LOCATION

•
•

*
MODE
•
:;~!!;.~.~~~ .. !;.:

X

• MOVE MODE TO
•
PUB+5
• FROM LOCATION
:
MODE

•
..
..
:

"SET BITS 6 AND •
.7 ON IN PUB+5 • •

: ..... ~2~~~! ••••• :

X

... ...... K3 ........... • •

• UPDATE STANDARD"
.. MODE IN PUB+1 •

.... NO

••

....... ..

......

•

*
*

• 2

-ORED WITH

•

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

•
BITS FROM
..
• LOCAT]ON MODE.

x

••
•

• 1

320

"MAKE ASSIGNMENT.

• BY MOVING LUB ..
.FROM WORK AREA,.

.."RESET
• .... ·H3 STANDARD
...... ••• .. •• ..•
• MODE IN PUB+7 ..
• -SET OFF B]TS •
0-4•
•

X

.. ..

. ····G5 . .X••••. ••.

.....

.........
X

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

MODE

..

* *

.. SAVE PUB AOOR ...
..
IN WRKRG2
..
..
ZERO WRKRG4
..

SYSOUT

.*. ...

*
*
*

..

.... Kl ......... ....

G3

·YES

.. SAVE LUB AOOR ..

.. CHECK SYSPCH

...

: .... ~~~~ .. ;~~!2 .....:

MOOSW
•• NO
""ON.-WAS MODE ••••••
".SPECIFIED.*

•• -._HI·_X••·•••• _

*CHKASG

.. FOR THIS UNIT •

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

NO

•

X

...... • .. F5 .... •••••• ..
*• LOAD WRKRG4 ..*
• WI TH LUB ADDR •

.. FOR TH]S UNIT ..
FROM NEW PUB ..

* ••
-YES

IN WRKRGI.

.ASSGN24

..

G1··-

• *.* $YSl$T *. it.
*. it. ASSIGNED . _

x

X

:.~~~!~~2.:~~~~.:

....

........

,," .*

··* ....F3········. ·*

X

*ASSGN. COMPUTE ..

....

.....

: ............ .ox:x ........... :

.. CHECK 5YSLST

....

•• YES

• '*

*

..

:~~~!~~-*-.-.-~~:

..

...

I GN ] N

: ....... " ...... " .............. N;~t~B8Y~~X G ~; ........ :

2

·····Fl··········

*.

.*.

•• ASSGN ...

..*
•

: ................... x:
ASSGN23

LUB

NO

.................
THE

FILE

•

.*...................
•

.ClOSE 1
..

CP •

.. - . - .. - .. -+-+-+-.-+

:X .......................... .o :
x

X
··***el*· •• *.* ••
•
eM*-*-*-+-*-*-*-*-*
..
CLOSE
..

..
..

X

*
•

*

IS".

*

-YES

..- . -. - . -. -. -. - . - .

. ..

•• ASS IGNMENT ... YES.

CLOSE
IN
.PROCESS ._

X

ASSGN23A

..

...*. . . . . . . . . . . ..

.

ASSGN22

MOVE A NULL

*-

..
••• *•••••••• X:HE~Y~r~T T~U~HE :

SY~~~T

..

.*

*NO

NO.*

..

.. J]B PO]NTER,

* 2
C2
...
*
.. " IS
••
... ASSIGNMENT ... YES
••
FOR
.................... .
•• SYSPCH ••

IS
... YES
ASSIGNMEf'.lT
it.
TEMP
._ .* .•.•
it • • _

:........•............... x:
• ..... B3 ...........

.. .. . .. -

ASSGN23B

•*

it.

* *

*NO

C1··-

*

• Kl·

B2· +.
..]S
••
•• ASS]GNMENT ... YES

......_._.........
..

·CG

1

X

*****Sl·* •• ·**.*·
.. MOVE A NULL ..
.. JIB POINTER,
..
-HEX FF, TO THE ..
-LUB WORK AREA, ..

*

:

.....

**

X

ASSGNB6

2

DOS System Control

(

Chart CEo

ASSGN Statement Processor- $JOBCTLD {Make Normal
Temporary Assignment; Part 7 of 10); Refer to Job
Control, Chart 04

....

.....
-co ..

·

•< 1

.. C1< <
<

X

.··.·01··········

ASSGN22

•••••••••••••• X
ASSGN26 82. *.

:~~~~~~-.-.-.-~~:

X

.......01··········

...
...

..
..

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

·····el··········
X

*CHKASG

.. .. ..

..

:~~~:.~~~.!~2~~.:

.*
*.

•• 0:•

-.

*.

..-

*.

.*

NO ..

• >.

*.

X

NO

"YES

X
.>.
••

..
.. .. .. ..
03

·····C4··········

*.••••••
NO

IS
DEVICE

>.

TAPE

••

* •••

·YES

YES.*
IS
*.
.... •• -ASSIGNMENT FOR."
.... SYSPCH .. "

*. ....

..

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

.a .....

• * $YSOUT *. *.
.. "

*.

<
NOMRJS

-. .YES
.o-

Gl

~~~

.....x

·CV •

IS
SYSlST
-.ASSIGNED

*.

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

X

YES:
••••••


<
•
SET RETURN •
•
SWITCH,
•
•
RETSH,

X

..

PUB ADDR IN
WRKRGl

<

•

•... ...
• ... ·02
... •
GET
JI B..... ••••••CU.

<

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

•

: ........2~ ....... .

X

SAVE SYSPCH

SET RETURN
SWITCH,
RETSH,

X

ASSGN27

: •••• C2 ••••••••

• * SYSPCH
*. NO
*. ASS! GNED
........ ..
*.
.*
X
*.
.* ...
"
.YES

CU.

T~E~fINb~Ro

......•.....• x:

x

Cl·"· *.
• * IS
*.

..

X

.RSTSTD

*. tt. SYSIN .. .. .o* • .YES
.o*

:~~~:.~~2.~~~~~.:

<

.......04·····.····
.-*-.-.-.-.-.-.-.

.. " I 5
a.
._ASSIGNMENT *. NO
*.
FOR
.a . . . . . . . . . . . . . . . . . . . . ..

.. CHECK SYSPCH
...
.,a.SSGN. COMPUTE ..

<

•••• .. H3 .......... •

:~;!~:~-.-.-.-;~:

• ATTACH JIB TO •
•
LUB IN WORK
•

:.!~;!~.~;~;~~

...:

X
••·.*H4·*.······.
>

•

• LOAD PUB ADDR •
*
IN WRKRG3
•
FROM

•

NEWPUB

•

* ••••••••••••••••

x

X

••••• J3 ••••••••••

... RESTORE LUB
.. AODR FOR THI S
• UNIT IN LUBAD
:
FROM HRKRGl

•
•
•
:

..................
·.·..K3··········
X

<

<

• SAVE ADDR OF

•

•
•

•
•

.FIRST FREE JIB.

.*
•*

••

J4

.* • ••

•.

MODSW
••
ON.-MOOE
••••••
·.SPECIFIED.·

••

....
.....
• .H4·

.*

·YES

.CD •
•

.....
it

·CD •
• FS·
•

.

<

ASSGN24

>

ASSGN25

.................
....
IN WRKRGI
FROM POINT3

X

<

:

•

1

Appendix H. Detailed Flowcharts

321

ASSGN statement Processor- $JOBCTLD (Make
Alternate Assignment: Part 8 of to}; Refer to Job
Control, Chart 04

Chart CF.

.....
...
eCB •

• J3-

·····Al·.·
••.••••:
:
t¥',aogr
i

ASSGN!8

b~AD

··......

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

ASS\'"GNED. IN

•

LU8Au

•

•

• 1

·····e1··········
:-~~~~~iiiAii!-:
i

*CHKASG3

UNIT.

•

Cl

i

i

_.

IS

••••• B4 •••••••

'SET THE RETURN'
.SWITCH. RETS'" •
•
oFF
•

.w.
.e_.

-.

C2

:GETj'=····
···cu:
.......
-.-.-.-.-.
.................

-.

• _ I S UNIT w. NO
NO ...
lS
-.
e. e. ASSIGNED .e •••••• X••••• "SSIGN
.. ENT FOR._
_. SV$PCH
._
•••• ••••
X
w. _ •••••

··........

-YES

01

.'.x

••••

eYES

·

.

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

•

....
-.-. .,- .- .... .. .. .....
· . ..!..
..
.....Fl·.··.·..··
·
....
.................
·· ..
••
••

w. w.FOR SY$OUT ._ ._ .......

••

:

1

•• ••• E3 ••••••••••

•• YES
•
•••••••••• X.

TAPE._

•

'NO

:~~~~~~-.-.-.-~~:
A$SIGN"ENT

:

••

IS

G2

a. NO

•
•
•
•

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

: •••• 05 ••••••••• :
•

:

S,T BG ONNER

~~~ "T;~8

•

:

i·

X

·····E4··········

: i~IGA\~E~~~~E :
:-BYTE2, BIT 1- :

E5

••

••
W'S
•• NO
.A~~li~;~~J F~:

(

• YES

NO..

• YES

Fit

'NO

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

X

ic

·····G3 ••••••••••

••

•

•
•

.YES

HOVE LUB TO

·····G4··.······.

• SET STA~OARO
• flAG HI JIB.
: -8YTE2, tiln·

•

WORK AREA
JIBCHN

•
•

.....F5··········
i

••

••
IS
•• YES •
•• A$SIGNMI::NT
••••••••
••
TEMP..
X

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

••

IS

i

.. .'. ..
...... .-

••

.YES

•

A~!tb~~D

.'.x

....-

•

x

A~~fG~~D

.

•••• ·ts ••• •••• •••

• lOAD PUB AD DR
•
OF THIS
• ASSIGNMENT IN
•
NAKRGJ

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

.IS
••
NO.. THERE A ••
•••••• JIB ATTACHED ••
-. TO THIS ••
•• LUB ••

.•.
...
....
....
•• ••
•..•
-. .. ••••••• :X······ •. *....
.... .....
••

•

•

..RKRG3

F3

INDYTP

• 2

Gl

LO,tO LUB

AcaRESS IN

-tV.

• e2·

• CtiECK SYSPCH

:

INp~f~f~TER

·

:

i

:

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

••

IS
DEVICE

x

eYES

•••

:

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

'NO

E2

•

:p~~~'e:~EN~~~UB:
: BlIi °AYf~T8 :

-.-..-.-

ASSGN34

• GET JIB ADDR

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

: ASSGN37

•
.•..·Olt··.······.

w.

•• ASSG~SFOR *1 •• YES
..
w. PROGRAMMER
._ ............................. X.
*. UNIT .-

El··· -.
• - IS
-. w. NO
._ASSIGNMENT

i

ASSGN36

-.

'NO

i
._ .... _.

•

-.. -

.-

a. YES
*"SSIGNJIIENT FOR._ ••••
e. w.SVSlST ,,_ ...
•_

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

.'.i

• • • '1

• 3

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

82

BIC-

··......

•

•
•

:

• lOAD ACORESS
•
OF SY~Lst

•
•

.:................:
~XIR6~

x

: •••• G5 ••••••••• :

• "OVE THE JIB
• POINTER FROM
• SYSPCH LUI TO
• SVSLST lUB

•
•
•
•

................
.
·
•
.....
•• B! •
.··....
·.

.

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

x

: •••• Hl ••••••••• :

.SAIJE SVSPCH PUB.
•
ACDRESS IN
•

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

WRKRGl FROM
WRK~G4

•
•

..

•... ~C.:.••

.'.ic

..
......

H1

S~~g~T

.....-.-.-.-.-.-.-.

•.X .............. ic.

ic

ASSGNQO 1

• CtiKASG

:

ek.

C~~~'G~~~~'T

:

J2

• ••

•••

•
YFS •• ••
IS
"'.,
•• x ...... ••ASSIGNMrNT
TEMP
._ ••

ceNTRal

.................
•
teMPUTE
•
ACtRESS OF
• ATTACHEe JJB

·YES

.··.··Jl··········
-.-.-.-.-.-.-.-.
·.................. .....• . .. .. .. ...
..
.....x . . . ··....• ..
....

eN_

• StNJIB

.:.
••

.K4

.IB •

X

• • • • • H) • • • • • • • • • •

.',

•
•
•

• 4

X

J3"·" ...
•• IS
••
• NO ..... TTAttiEC. ••

••• •••

........

JIB
.. ·.STANDARD ••

·YFS

'NO

: X. . . . . . . . . . . . . .

:

2

:

•

3

•

K3

.'.

•k,
...

•
.IS
-•
• VES..
THIS
-.
........ ASS IGN"'ENT ....
TEMP
••

.. .. .-..
··....x ..
'~O

• 4

322

DOS System Control

•

•

~~amS~~D .US~5M~'D.

IF THEY ARf [QUAL snOUT
MODE IS IN HrFtT •

.....x
•.C!·
·Cv •

FNIOAG

(

Chart CG.

ASSGN Statement Processor- $JOBCTLD (Terminate
Assignment and Open Files--Part 1 of 2); Refer to
Job Control, Chart 04 (Part 9 of 10)

-- -- 1

.

-

.

X

... ** ... A3· ... ••••••••

LOAD LUB
...
ADDRESS OF
... THIS UNIT IN

...**co............
... G5·

--

...

X

X

*CHKOPN

...

*CHKASG3

eN'"

...

...

... seT OPEN FLAG.

...

...

S3··········
.-.......
...-.- -.-.- -.-.

··-.-....-.-B1··········
-.-.- -.

ASSGNB7

•

:***.~~~~~; ••••• :

OFF IN OFBS

...

...
..

oK-

...

CHECK
ASSIGNMENT

..
..

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

...

:~;!~~.!~!~.~~~.:

.. OF THIS UNIT

x

•• • ••• S4 •••••••••••
EXCPROG
CT

*-*-SENSE-i,o-*-*

.............
FOR THIS

..

DEVICE

C3·-· *.

: •••• C1 ••••••••• :

.* IS

NO

... LOAD LUB ADOR ..
.. OF THIS UNIT ..
IN WRKRG3
...
..

*.

C4

UNrT - . ••

ASSIGNED

• ...

X

ASSGN40

.'. * •

........ DEVICE

.*

*.

AT LOAD

POINT

* .•
-YES

X

···"*01···"*·*···
*-*-*-CHECK-*-*-*

*CHKASG3
..

BK*

ASSIGNMENT

.....

*.

...

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

.. OF THIS UNIT

*.

it

..-..... ...

.....

*.

IS UNI T
ASSIGNED

....

.. .- ......

*. *.

IS
DEVICE
TAPE

-.

•• NO

NO.*

....

.-

YES:

*.

-N~

E3

.-.

*.

_ ... ** ... 04· ............... ·* ......
SK*

... MTNCNT

+-... -*-+-... -*-... - ... - ...

... RELEASE SYST
..
• AND SET SYST
..MASK TO HEX FF •

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

.
.
..........................it

... .. E4*· ... *.*·

....

IS
DEV ICE
DISK

·YES

F1

X

03· ... •

.... • *

E1·*·
.+

.-

X

*. NO
.* ....
.*

.

.

. .. -.*

.*

*SVC 2 - FETCH.
...
$$BJCOPT TO ...
• OPEN DEVice •

"YES

.
o

• 2

.......

..

.0.x ••

*CH ...
.. A)"

...
IS
-.
..
."UNIT CROSS •• NO X
".ASSIGNED WiTH ••••••
... SYSlOG ...

X

• .. *· .. F4 ................. .

:~!~~~!-.-.-.-~~:

.. .... .. .

•
SEI IE SYSToo
•
... SET SYST MASK.
...
TO HEX FF
...

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

.

·YES

:..................................... x:x ....•....• :x ............. :
•• ~ ... +

-BB •
- o B1*
•

·*··. ··*

X

••• ...... Gl· ...
: seT SG OWNER
•
flAG IN PUB

o

:

CONTROL

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

+7. BIT 5 •

:x
.......... :
x
ASSGN29 HI···
•+
IS..
• -ASSIGNMENT •• NO

••

....

FOR
SYSIN

*....
....

...

••••••••••

·YES

it

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

x..

FOR
•• SYSOUT

....*
.. .. *

........... X..

x

: •••• J2 ••••••••• :

•
SET SYSTEM
•
.. TYPE I SYSTYP, •
•
FOR SYSIPT
..

•
SET SYSTEM
•
• TYPE, SYSTYP, ..
:
FOR SYSlST
:

\gB~gIN~Y T5 :
NEXT lUB,
*
SYSIPT /SYSlST *
**.*
.... * ........... .

*.

FOR
SYSlST

*.

.YES

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

:x ...........•....••...... :

)

..

*···*J1.· ....... * ••

ASSGN31
i
* •• **Kl-· ... *****··
• INCR LUB AGDR t •

...... H4 ................ .
•
•
•
RESET JOB
........... X. CONTROL LINE
.*
• COUNT TO 1

ASSGN30 H2· .. •
ASSGN32 H3·*·
• _ I S .*
IS...
.-ASSIGNMENT *. NO
.-ASSIGNMENT •• YES

....

..

'NO

:x ........................ :

ASSGN33

x

'J5

THE SYSTEM UNITS

m~g~: ~W~~~LST

• ...

J4
••
CAN BE OPENED.
•I S .CAN *oo
..ASSIGNMENT *. NO
... THE UNIT
•• YES
•• FOR A PROG .* ......... X..
BE OPENED ••••••
••

J3

•••

-.

...

.*

UNIT

* ••
*
*YES

••

.....
.J5

'NO

:x .............•.....•.... :
x

··......
• 2

.....x
• 1

-

•

:
•
•

x
.......
·co •

:ASSGN23A

.

•• B~ •

Appendix H. Detailed Flowcharts

323

Chart CH.

ASSGN statement Processor- $JOBCTLD (Terminate
Assignment and Open Files--Part 2 of 2); Refer to
Job Control, Chart 04 (Part 10 of 10)
*CG ..
* E3*

• *

X

**··*A3**********
*MOVE CLASS AND *
ORDER TO
*
*
IJSYS IN
*
* OFT+6 FROM
•
*LOCAT ION CLAORO*
* •• *** .*.****.***

*

.***

*

: I' :

x

ASSGN41
X
......... *8 1 .... ***** ***

*

LOAD SYSLsr

DIB ADDR IN
POINT2 FROM
POINTl

..

X

** *** 83**********
* MOVE INPUT
*
* MASK, HEX OAt *
* TO IJSYS IN
*
•
OFT+21
•
* -INPUT FILE- *
******** *********

*
*

..
..

*** *** **** **** ***

*··*·85*·****·**·
.UNPA3
CP.
*-*-*-*-*-.-*-.-.
* UNASSIGN THE •
*
LUB FOR
*
•
THIS UNIT
*
***.* •• ** ••••• **.

x

**** *C3**·* ******
:
MODIFY FILE :
NAME IN
*
*
IJSYSIN OFT '*

:***!~;.!~*!~***:

C5

X

X

:**~:;~!~~~:~*

·**··05** •• * •• ***

•

**
:8y~~~A¥O ~bl~T :
* TO SYSIPT
*

:YES ••• * IS
*. *.
oo . . . . *. UNIT SYSRDR ••
x
*..
OR
.*
·SYSIPT .*

..

...

X

03·*·

*****01*******
•.. RESET SWITCH * ..
... BYTE, IJSVSIN ..

.'.x

.* IS
•• ••
NO ...
•••• *. ASSIGNMENT ••
*.
FOR
...
*. SYS I N. *
*
* ••
·YES

.1 NCR LUB ADOR,

* ••
*
*NO

*.***** •• *.*.* •• *

x

X

*** ** E 1*.* *****.*

···*·ES······*·*·

..
SET SYSTEM
..
-MASK TO HEX FF ..

UNASSIGN
•
SYSIPT
: ••• **.~~2 •• ***.:

:~!~~~!-*-*-*-~~:
-RELEASE SYSTEM,-

:~~!!~*-.-.-.-~!:

.*****.**********

(

.....

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

..

··FI····"'··

*****F3*·***·**·*
** MODIFY FILE **
*
NAME]N
*
IJSYSIN DTF *
+27 TO PH
*
**** ***.**.******

FETCH
..
... $$BOPEN TO
...

.. OPEN THE FILE ...

-SPECIFIED BY ..
IJSYSIN OTF ••

•• **** ••• **

SET SYSTEM

:****G3*********:
* RESET KDDIN *
* SYSPCH DIB+9 *
* TO DECIMAL a1 *

..

:~!~~.!~*~~~.~~.:

*
*
**'************.**

.. ..

X

H3·*·*.

*·*.*Hl·*****·

..
SET JBCSWO ..
.. BIT 1 OFF TO ...

-IND. NO RETURN ...
... TO CALLER IF ...

:*.~~;~*~!!;;* ..

* ••
*
*NO
*J2
TEST SWITCll BYTE AT
IJSVSIN OTF + 21.
HEX 04 INDICATES A

X
J1-"'-

CORRECT OPEN.

.*

*.

DID
NO
FILE OPEN ....... .
·.CORRECTLY.*
*. *J2 .*

* ••
*
*YES

*
*
*

1
****

**** .*. *. * •• ** •• **•

CONTROL

·BB •

• 91·

* *

324

x

:****J3*********:
* MODIFY FILE •
*
NAME IN
*
IJSY$]N DTF *
* +27 TO L$ *
*****.* •• *.******

•
•
•

X
ASSGN42
** ***K 1 ** •• ** •• **
*
UPDATE DIB
*
* FOR THIS UNIT ..
* FROM I JSYSIN *
* DrF
.J4 *

.....x

*
ASSGN43

x

X

*****G 1 ***** •• ***
*MTNCNT
BK*-*-*-*-*-*-*-*-*
SEIZE SYST.
..

..

*CY ..
.. FZ·

X

DOS System Control

X

*****K3****·*****
* RESET KDO]N *
* SYSlST DIB + *
* 9 TO DECIMAL *
*
121
*
*****************

*J4
1. THE alB CURRENT
ADDRESS, BBCCHHR, ]S
SET FROM THE DTF+sa.
2. THE R VALUE OF THE
CURRENT ADDRESS IS SET
TO 1.
3. THE B8 VALUE OF THE
ENO ADDRESS I S SET
EQUAL TO THE BB VALUE
OF THE CURRENT ADDRESS.
4. THE CCHH OF THE END
ADDRESS ] S SET FROM THE
DTF+54.
5. THE UPPER HEAD LIMIT ]S
SET FROM DTF+71.
6. THE LOWER HEAD LIMIT IS
SET FROM DTF+S4.

(

Chart CJ.

RESET Statement Processor- $JOBCTLD (Part 1 of
2)~ Refer to Job Contro1, Chart 05

.....
-....• 1

x

RESET
••••• 81 ••• •••••••
*INITL
CRe

B2

•

o.

._

: •• ~~~2.~~.~~:·

·····C2
- .••...•.••-

ic

RESEll

X

-INCR LUB COUNT"
-BY 1 IN WRKRGI "
" -VAL\JE EO 1- "

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

•

.-....
...............
..
- -.
_.x.

:

"2

RfSflOl

"

POINT TO
OPERAND

.0 Et

.-.it

.................
.....•
•• B!.

"

:

-. .- .....
ic

a ••"

.YES

• Bl •

•• E~.

·.···Ft····.·····
..................
i

: SAVE POINT1,
" POINTER TO

:
"

:

:

?~E~~~~f2

i

: •••• Cl ••••••••• :

"

SeT POINTI

"

.................
-.....

:

FgrA~!S!S~
ic

:

1

1 OR 2-

·CI( •

-. _.

•• 010 A BLANK_. NO
E~~A~HE .* .a ••• :

* .. *.

X

:

"

NVSERR

RESFTll

:RESl8R~o~2INTl

···.·03····.·..·•
X

•

• INCR LUB COUNT •

"

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

('.

.................
•
:

TO OPERAND
SYSXXX

•
:

.

• BY 1 IN WRKRGl •
• -VALUe EQUALS •

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

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

IS

OPERAND
••
••
SVS
••

_NO

·····02··········

X

.-.-.-.-.-.-----.

x
... .-.
C]

YES..

••• •••

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

••••• 01 ••••• •••••
-seAHR2
BF"

SUME
••
Ai
••
5 NGLE
• OPER NO, SYS •
•
XXX.
SET •

-YES

:·•· ..e1·.··.·····:
!~~g ~~~~¥!
Sy~ E~ASS

a •• _

-

••• •• B........ .

e•

• :"_. opllAND
.:.~~ •• ~ •••••••••••••
ALL
._

·..................
RELOCAT ,ON

_ 3

- -

_.

.0

:-~Nii-;O':SaF:

"

.-.ic

-.....

-

seT

•

POlfrtTl
FOR

•
•

.-................
•
•

:

.

PROGRAMMER
CLASS -1-

x
.. .-. ..
....
E!

• YES..

••••••

•

a.

."...............
• CHECK XXX GE T •
• SYMBOLIC UN. T •
ADDRESS
•
•

.-x.
.• is
...... .. .....x

••

IS

OPERAND

a.

X

•• • •• 04· •••••• •• •

:~!~~~=-.-.-.-~~:

PROG

••

E4

••

••

••

••

_NO

x
-....-

.

• .!

•

-

••

OPERANC· •• YES
SYSIN OR
••••••

•• SVSOUT

••

• NO

·CY •

•• Bl·

.··.·F"'
- .·.·... ··.X

-

lLUS

•
SET NO IN
•
elAta' A S~ !CL. :
.SINGLE OPERAND •

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

·····G4.·.·..···.
X

•

LOAD SYMBOLIC.

• UNIT CLASS IN
•
REG POI Nfl
•
FRO" LOe
•
CLAORD

•
•

.................
x
-.....
....
: 2

•

•

:

)

Appendix H. Detailed Flowcharts

325

Chart CK.

RESET Statement Processor- $JOBCTLD (Part 2 of
2); Refer to Job Control, Chart 05

(

......
··......
.
• 1

·····A2·········.

.....

..

RESETll

...

•

X
·····A3··········
• MOVE LUB ADQR •
..
•
•

WRKFLD2 FOR
R$TSTD SU6ROUT) NE

. ..
-.x.

·····81··.··..···

. ·•·••••
.·····B3··
-.-.-.-.-.-.-.-.

.... o~.

..

..

....
6

RESETll
..

.. ..

COMPUTE L UB

..

..:

AODR AND

*CHKASG

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

..

• 3

. . . tuttl··.·······
X

..
.
......................
•
COMPUTE LUB
•
• ADOR OF SYSLST ...

~
: •••• 01 ....... ..
..

:.;2!~~!.2!!.Z-

..

..

•

:S~~~~2_._._._!~:

.. UNIT CLASS IN ...

SET

COMPUTE LUB
ADOR OF
SYSLOG

•
•
•

.. • .. • .. C2 .... •••••• .. •

: •••• ~~~~~~! •••• :

RESFTSW
ON

NO..
.......

...

02

.x'.

...

IS

..

.. ..

.-

.'.x *.

••

NO.*
SINGLE
•• ••••
ARGUMENT

*.

*.

-.

...

.."

*.

.*

• .o.o • • •

..
HOVE LUB
..
.. ADOR TO SLADO ..

.
.................
......
.............. . x... .... ..
FROM LUBADO

.
'
• •••

..

.o

..

5

F2

• *. •

*.

..

SAVE 11.10. IN

..

..

AND SNICL

..

.. CLASS AND LUB ..
-ADOR IN WRKFl02*
.. FROM SLADO
..

.. .. ....
'NO

-RSTSTD

•

RESET LUB TO
STANDARD

RESET JOB
CONTROL LI NE
COUNT TO 1

:
..
..

..

.x'.

:~;~~~~-.-.-.-;~:

•
MOVE LUB TO
•
• JI6CHN. UPDATE ..
-SLADD AND SNICL"

.

• _ D~.

RSTST04

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

..

J1

". ...

'J2
THE RSTSTD SUBROUTINE
RETURNS CONTROL TO
LlNKR3+4 IF THE

••

.. .. .. ...
x
.....
. . x
··.......
NO ••
• .....

END
OF LUBS

••

...
...

SWITCH RESETSW
IS ON.
CHART CU.

.*

"YES

1

•

• 4

•

.

*.

E4
.·STORED ••
•• STANDARD
•• YES
••
ASSIGN EQ
••••••
•• SYSLNK
••

•

X

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

* •••

'NO

X

X

• SET LlNK OPTION

•

•

:

.RESTORE LOGICAL •
• UNIT CLASS IN •
•
POINTl AND
•
•
INCR BY 1
•

81 T OFF I N .

JBCSWl BIT 0 ••

• 02*'

RSTSTD4

••

G5

·····H3••••·•·•••
X

•
RESTORE LUB
•
POINTER AND
•
•
.caUNT IN SLADD •
.A~O SNIel FROM.
•
WRKFLD2
•

.................
.•··.J3·••X ••••·••

:~~~~~~-.-.-.-~~:

•
MOVE LUB TO •
• JIBCHN. UPDATE.

:~~~~2.e~2.~~!;~:

·....x .

.'

••

NO •• REHAININf ••
•••••
LUB COUNl
••
••
EQ 0
••

.YES

:

5

(

..~

-J2

:

•

:
LOAD WRKRGl
:
.WITH REMAINING.
:
LUB COUNT
:

•••• •NO··
RESET8

4

·····e5··. ····.•.

R~SET3

.. .-

•• RETURN BY •• YES
••
LINKR3+4
••••••

••

·· ..

•

·CU •

••

x

·····HI·····.···.

• 3

··.···F4··.····. ··.···FS··········.
•••:
..............
.................
:x ..•••.••.. :
..
x
..
.
..
.. . ..
.. ...-..
x
....
..!...
·· ..
....

:•• ~~~!:~~;~!

G3

-.

••• YES

X
·.··.F3··.·
•••·.·cu.
-- ..-.-.-.-.-.-.-.

X

:
•
:

••

••

RESET4

. ····Gz· •• •. . ••••
..................
.. .................
:....•.•... x:
......
·cu •
X

·····Gl··········

..

.'

•• CURRENT
•• NO X
••
LUB EQUAL
•••• .o •
•• SYSLNK
••

.. .*. ..
...... ..

..

X

RESET2

x

:.....••.•. x:

•
..S TORED ••
XYES •• STANDARD
• .o
••••••
ASSIGN EO
••
SYSlST
...

••

IS
•• NO
SYSLNK
••••••
·.ASSIGNED ...

04

'NO

.o

.'

.. . .. .
.. .. ....x
·· ..
x
.'.

••
I/O
• .o YES.
••
PENDING
•• )C • • •
..ON SVSLOG ••

••

x

x

..

•

*

••• YEs

••

...

·YES

: •••• Fl ••••••••• :

.o.

.x' .

E3

.. ..
• .o

oo.

••

:x ••...•...•.
x

Lue EQUAL
...
•• SYSLST
••

* ••
-YES

-...

•• SYSLOG

*.o

•
•

.. . ..
.. ,.
C4

••

•• -YES

CUR~ENT

COMPUTE LUB
ADOR OF
SYSLNK

x

- •

X NO •••• CURRENT·· ••
.. oo. _oo LUB EQUAL ••

X

.*

•
•
•

-YES

••

••

X NO ••

.x'.

•

•
•

NO.IS
••
..... •••
SYSLOG
••
•• ASSIGNED ••

E2··· ••
•

C3

03

SYSLST
.*
•• ASSI GIIIEO ••
".o

.o.

·YES

El

X

:~~~~::-.-.-.-~~:

6K •

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

X

RESET5

_SAVE LUA COUNT ...
.. IN lOC COUNT .....
.. SAVE LOGICAL ..

..

:

·····B4·········.
...................

X

X

:.~~:.!~.~;:~~

..

: 2

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

:~!~~~-.-.-.-~~:

:

•
•
•

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

..

*CJ ..

......

• TO LUBAD FRO"" -

2

• 6

:

•

·.···HS··········
.__ ._._._._._tf_.
X

.CHKOPN

ON ROUTINE

INE TO RESET
IGNHENTS TO
D.
THE SWITCH
SET ON BY THE
OUTINE TO
ONTROl TO
RNED.

CN.

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

EA~EfET

• RESET OPEN FLAG.
• IN OFBS US ING •
•
THIS DEVICE
•

x

.. .'. ..
..~.. ........

CONTROL

J5

NO ••
•••••

••

••

DDSW ON

·H4

••
••

••

.YES

.B8 •

•.B!.

CONTROL

····K5·········
X

:

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

RETURN TO THE •

• OVCON ROUTINE •

326

DOS System Control

(

Chart CL.

Subroutine-- $JOBCTLD (CLOSES)
Control, Charts 04, 05

Refer to Job

•

....

: 3

o

...·AI·········
CLosee

X
..... A5··········

CLDSEll
0

o

1.~~~Kem~63~~wD2

SET TO ZERO.
2. POI NT2 I S LOADED
WITH THE DIB TABLE
ADDRESS.
3. POI NT! I S LOADED
WITH THE DIB TABLE
ADDRESS OF SYSPCH.

··.··81··········
INrT WORK
AREAS AND
REGI STERS
oB2

•*
*.

•*

Cl

...x
IS

+.

UNIT

a.

.*

a •• _

.CHKASG

.+

x
....

0

..

....
·01··········
.. LOAD
POINTl ..
.. WITH THE DIB

.................
+.

IS
UNIT

•+

*. YES

* •• -

·ND

o
o
•

x
....

.. ..

....
3

•••
E4
••
IS
•• _. YES
._ •• UNIT
-.
SYSIN
••••••

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

X
•... F3.·····
..·

•
•

RETURN TO
CALLING SEQ

•
•

CLDSEIO
X
•
lOAD POINTl
• WI TH ADDRESS
:
SYSIN DIB

..
:

.-

.+

*.

HI

IS

*.

SVS[PT

*.

ASSIGNED

+.

+. NO

••••••

.+.

x
....
·.....

.+•• -

-YES

o
o

X

·····Jl··········..

... SAVE SYSIPT
... PUB POINTERS
..
IN WRKRG4
:
FROM WRKRGI

..
..
:

.................
X
.·...KI··········
.. LOAD WRKRG3
.WI TH LUB TABLE
• DISPLACEMENT
:
OF SYSRDR

)

•
•
•
:

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

8~g2~~~RbDt

:•

IN WRKFlD2

.E~.

NVSERR

it
..... FS··.···.···

...
•
:

:

0

o

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

• BUILO SEARCH

ADel~~~oIN

•

:

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

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

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

:

.Bl •

.·.··F4······.···
o

:

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

··.··GS··········
.INIT REG 1 AND •
•
REG 0 FOR
•
• WRITING FILE •
.MARK ON SELECTO •
• UNIT
.H3 •

8K*

... CHECK SYSI PT
ASSIGNMENT
:

..

X
.....ES··.···.···

• STORE CURRENT •

X

X
.·• -.-+-+-+-+-.-.-+
..·GI··········
*CHKASG

x
.....

:•••••••••••• X:

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

-WITH LUB TABLE ..
.. DISPLACEMENT ..
:
OF SYIPT
:

•

•

·NO

0

..

•
•
:
•

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

•

CLOSE9

.. .... ..

•

X
·····Fl··········
.................
LOAD HRKRG3

....
....

o
o 2
o

.NO

•

.YES

: •••••••••••• X~

...x

*.

•• NO
••••••

NOEXC
X
• •••• 05 ••••• • ••• •
... ZERO THE KOD •
•
FIELD OF
...
• CURRENT AOOR •
•
IN 018 OF
•
• SELECTED UNIT 0

.

E3
••
•• IS
••
._
UNIT
•• YES
••
SYSIN
••••••

SV5LST
••••••
+. a.
._ .+

..

..

·YES

• 0.

.*

••

.. ..

:

.. ....

:x ..•.....•• :

•• SYSROR
•• NO X
•• AND SYSIPT ••••••
•• SAME
••
.DEVICE ••

..

... TABLE ADDRESS ...

OF SYSLST

03

.•.x

..

..

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

•

•

••

X
.....e5··········

•• NO
••••••

·YES

•

•

•
SET CURRENT
• ADDR EQUAL TO
: ENODtgD~~ IN
o SELECTED UNIT

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

.- ••••

3

e3 IS •• ••

.0.x

••
EXTENTS
•• EXCEEDED

•
:

ASSIGNMENT

•• SYSRDR
•• ASSIGNEO

YES

+.

o
o

+.

B5

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

X

EI

... ..

BK.

• CHECK SYSRDR

••

oND

:

o

X
··.··83··········
.-_.-.-.-.-.-.-.
:

•
•
•
•

········tt········

•

.•.x

*.

SV5PCH

+.

....

• lOAD 01 B ADDR
• OF SELECTED
.UNIT IN POINT2
•
FROM POINT}

:}....:

0£2

X

..

0

:

2

·H3
l.REG 1 IS LOADED WITH
THE SYMBOLIC UNIT ADDRESS.
CLASS AND ORDER,
OF THE SELECTED
UNIT •
2.REG 0 IS LOADED
WITH ADDRESS OF
THE WRITE FILE
MARK CCW.

X

• ••••• HS···········
ExtP
CT

.-tt-.-.-.-.-.-.-.
WRITE FILE MARK
• ON SELECTED.
UNIT

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

•

•

: •••••••••••••••••••••••• X:
it
·····JS··········

CLOSE12

• ZERO CURRENT
•
AOOR IN DIB
• FOR SELECTED
•
UNIT

...
•
•
•

•

0

.................
•
:

X
....KS·········
RETURN TO
CALLING

•

seQ :
...............

· .
•

• 1

0
0

Appendix H. Detailed Flowcharts

3'27

Chart CM.

Subroutines-- $JOBCTLD (TXCUU, TXCUU3, HEXCON and
CLOSE1)~ Refer to Job Control, Charts 04, 05

.....
·BN •
.. K2·

* *

.*.**Al*········.

·

••• *42* ••••••••

..

TXCUU

HEX CON

x
81·-·._
NO

.it ••••

*B3
l.FIRST CHARACTERS MUST
BE AN X.
2.lAST CHARACTER MUST
se AN APOSTROPHE.

NO •••• VALID

X... •••

FORMAT

*.

it • • •

-YES

X

·····C1······**··
*HEXCON

*
NVSERR

••
* ••
"YES

TRANSLATE

... EBCDIC

-cuu-

...

•

...

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

.·..·01··········

• * • ••
02

BINARY

• -A-F TO FA-FF- •

*

•

•

X

...

LOAD WRKRG3

•

...

ADDRESS FOR

it

•.

...

••• *

.*

·YES

..

.*.x

C4
*.
IS..
•• DEVICE
*. YES
•
*.
TYPE
•••••••••• X.
••
DISK..
•
••

.....

.*. .

CS ••• * •••••

RETURN TO
CALLING seQ

•

..
•

-NO

*03
I.A WRITE TAPE MARK
COMMAND I S SET IN

.*

INIT WRKRG3
AS POINTER
TO PUB FOR
THIS UNIT.

... ·C3 ••

•• VALID *.
• *CHARACTERS *. NO
••
FO-FF
••••••

-WITH PUB TABLE ...
LOOK UP.

*C3
WHEN ENTERED FROM
CHART 8N BLOCK K2 THE
DEVICE IS ALWAYS A
PROGRAMMER TAPE UNIT
AND THE CLOSE SWITCH
IS OFf.

..··.C2··········
... TO HEX -CUU-

...

•
..
..

••

.................
TO

: x •••••••••••••••••••••••• :

x
·..··B4····.··
...
..

*63

X

...

eM-

*-*-*-*-*-*-*-*-*
CONYER T HEX •
...

CLDSE1

* .............. * ..... •

X

IN LENGTH
.....*
*.
.*

cuu

..... A4 ........... •

82-·-

•• C~ARAtTERS· *.

*.

.

.....x
-BL •
- E4.

2 J~Mrwl S wm5~D
tilTH THE SYMBOLIC

·····04......·......

DESIRED TAPE UNIT.
3.POINT2 IS LOADED
WI TH THE PUB
ADDRESS OF TH:
DESIRED UNIT.

: .... * ... :2~ ........ :

~~~T o~g~~ES~~ ¥~~ss

X

•

INIT CCW
AND REGI STERS
TO WRITE ON
•
• DESIRED UNIT

*

•
•
•
•

* *

·····El··········
.................

X

X

...

SEARCH PUB

...

•

TABLE FOR

•

-SEARCH FOR

...

_DESIRED DEVIce ..

...

...

cuu-

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

•

.*.x

X

Fl
-.
.-DEVICE -.
• - FOUND IN *. NO
it.
PUB TABLE . i t • • • •

-.

*.

NVSERR

*****E2******···*
• PACK HEX-CUU- •
... TO BINARY-CUU •
•
MAKE RESULT"
AVAI LABLE
•
IN WRKRG3
•

........ F2 .. • .. •••• .. •
RETURN TO
..
CALLI NG SEQ :

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

....

* ••
"'YES

•

it

•• ........ E4 ................. ,

.~:~~~~~.-.- ..-;!.

(

WRITE TAPE
MARK

.
**

1

X

X

• ...... F4 •• •• ...... .

••••• F5 .. •••• ••
.. MODIFY CCI1 *
•
TO REWIND ..
•
AND UNLOAD
..

.CLEAR 110 AREA •
-BUFFER TO BLANK.
.. MOVE TRAI LER •
.IMAGE TO BUFFER.
•
FROM CEOVl
•

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

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

*

• CY •
• B3·

* *
...

SAVE DeVICE
TYPE AND

PUB ADDRESS
·H2

•
..

•
...

.. .... G2···· .. • ... •
*
TXCUU3

X

: ..... Hl ........... :
COMPUTE THE
PUB POI NTER
·J2

•
..
•

......... *G5 .......... • .. •• ..
EXCPROG
CT

•••• .. G4 ......... ..

*

•

.-e-.-.-.-.-"-·R"
REWiND

MODIFY CCW •
TO WRI TE
TAPE

AND

* •• ~~~2~2 .....

:x ...•...........•........ :
TXCUU3

X

it

X

.····G1··········

TXCUU2

*H2
1. THE PUB ADDRESS OF THIS DEVIce
IS SAVED IN THE LOCATION NEWPUB.
2. THE DEVICE TYPE IS SAVED IN THE
LOCATION DEVTYPE FROM THE PUB.

it
•••. . . ·H4·.··.·
. ·· .....
..
~!~~~~~- -.-~!:
WRITE
TRAI LER

HS··· ••
•• IS
...
NO ... THE CLOSE ...
••••• SWITCH ON ••
••
..C3
••

...~ ..

. ....*
"YES

·BB •

.. 81·

4···Jl·*··. ·• . .
X

•
:

RETURN TO
CALLING SEQ

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

*

*J2
1. ~U~R¥~h~U ~D~mp~~umRnB ~lmACEMENT.
PUB DISPLACEMENT DIVIDED BY 8 EQUALS
THE PUB POINTER.
2.THE PUB POINTER IS SAVED IN THE
LOCATION NEWLUB.

:

- *

CONTROL

it

. ·.·.JS······*

•
•

*
..............
* ....

*
........
* ........ .

:

X

.-.-.-.-. -. -.-.-.
EXCPRDG

CT

WRITE TAPE
MARK

*

x
.......

......

- 1

DOS System Control

*
*

SET CLOSE.
SwITCH OFF . . .

-BANK1, BITO-••

X

••• .. ··K4 •• • ... • .........

328

X

• ...... J4 . . . . . . ...
•
MODIFY CCW •
TO WRI TE
TAPE MARK

•
:

• .....
KS··· .. ••••• •
RETURN TO
CALLING SEQ :

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

(

Subroutines-- $JOBCTLD 

••

·•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
i
i •••••••••••••••••••••••••
i
• x.x •••••••••••••.

• •••• 01 ••••••••••

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

:

NLISTX

:

•
·····E1·······
•
JET.
:
••
•

\

L STx

•

·...............
,~ J~~

•

)

:

SYM

:

:

X

•
•
•
•

SET
SYM
SWITCH
TO ON

NOSYM

:

X

•

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

•

•

••••• e3 •• •••••
I~~

•

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

•
:

SWITCH
TC OFF

••
••

•

i

X

•

•
•
•
:'

XREF

XREF
SWITCH
TO ON

•

:

•

•

•

NOXREF

:

SET.

XREF
SWITCH
TO OFF

•
•
••

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

•

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

• •••• GI ••••••••••
:

...............
ERRS

:

••...HI.···X ••.
•
•

SET.

ERR}

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

:

S¥ATO~

•

•••

···.G2··.·•..••.
··...............
.

··.····G!·········
................

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

·····H3·······
.............
. .

•

•
•

NOERRS

SET
EARS

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

•
:

SWITCH
TO OFF

•

•

C"8

•

X

•

•

•

:

•

•

:

FOR 48

·····H4·······

•

C60

•

X

JNDI~ITOR·.

CHAR SET

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

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

• •••• G4 ••••••••••

•

•

•

•
•

c~f= t~T

OPTNLG

•

·····H'······.
X

SET.
INDICA TOR •

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

:

• ••• Gs •••••••••

•

•••

SET

•

• PRRlIRA""ER •
: LYIl

m· ...'
.·............

• •••••••••••••••••••• •••••••••••••••
x
)(
x
x ••••••••• x•
•••••• •••••••••••••
•••••••••••• ••••••••••••••••••••••••
••••

·...............
···R~'~· Ri··TO··· •
•

•

CALl. N

D - 3

SEQ

•

•

)

Appendix H. Detailed Flowcharts

349

Chart DL.

OPTION Statement Processor- $JOBCTLG (Part 3 of
3); Refer to Job Control, Chart 06

.··.·Al········.

·····A2·····.·.·.

....·S1·······
...............

·····82·······

...

OPTlOG

X

...

..

...

..

····.A3·········.
..

·····A4·•••.......

···.•83·······

..

ic
-L6l0UT
OW*
*-*-.-*-*-.-.-.-.
• CHECK PREVIOUS.

..

X

seT

PROGRAMMER ..
LOGICAL
..
INDICATOR ..
TO ON
..

..

DUMP

NO DUMP

seT

DUMP
INDICATOR
TO OFF

...

..
...

STDLBl

·····84·····•.·•.

X

..

SET
..
DUMP
..
INDICATOR
..
TO ON

..

·····Cl·...••..•.

*
LA8EL
•
•
OPERATIONS
•••••
* •• * ••••••••*

i
·····C4••••••••••

X

OUTPUT

.LBLOUT

.................
.CHECK PREVIOUS •
•
lABEL
•
•
OPERATIONS
•

·····04·.···..··.

·····05··········

•

: •••• ~!~~~! ••••• :

ic

·····85···.······
ow.
.-.-.-.-.-.-.-.-.

: ••• ~22~~~~~~ ••• :

•

ON

• •• •• A5········· *
•
USRL8L

·····CS··········
.-.-.-.-.-.-*-.-.
.................

:~~!~~2-._._._2~:

:~~!2~!-.-.-.-2~:

(

RESET LABEL

AREA DISK

•
•

i

os.

.RSTLAD

•

•
•

RESET LABEL
AREA DISK
ADDRESSES

•
•
•

:......................... x:

...·01······.·..

X

•

SET NUMBER

HEAO
TO

*

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

CArAL

•

:

ZERO

X

•

SET NUMBER
HEAO
TO

•

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

:

ONE

•

:

:..•.•.••...••••....•...• x: ......•••••••..•...•..•. x: ...•.......•....•.....•. x:
• •••• E2 ••••••••••
LINK

..:-CHECK-SYSlNK*-:
·.·Fl··········
X

as-

*CHKLNK

_ASSIGNMENT AND ...
..
TAPE
..

••

*.

•• * ••••••••••••••

..

F2

.*.x •• ..

(

•

*.

........ .....
CATAl
OPTIONS

·.SPECIFIED.·

YES
••••••

i

..

'NO

·OY •
• CS·

X

os.
·····G2··········
:-CHECKSYSLNK'*-:

*
OSTERR

.CHKLNK

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

ASSIGN AND
TYPE

'*

•

.....HI·······
X

..
..
..

seT EXEC
...
SWITCH OFF ..

:

SWITCH ON ... "

..............
AND LINK

. . ···Jl·······
...............

GOCAT
..

..

X

•

X

SET

..

ON

.. "

CATAL
SWITCH

... H3.········.
·•...............
·

..

·····J2······.
..

•
..
•

SET EXEC ..
TO OFF AND •
LINK SWITCH •
TO ON
••

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

NO LINK

•

·····J3·······
X

..
•

SET·
LINK
•
SWITCH
•
TO OFF
•

:........................ x: .......•.........•....... : •.••••....••.•...•....•.••......•.••...........•.. x:

.···KS·········
X

•

•

RETURN TO

CALLING

seQ

•

•

•••••• 2~:~~ ••••• •

350

DOS System Control

(

Chart OM.

ALLeC Statement Processor- $JOBCTLG (Part 1 of
3)~ Refer to Job control, Chart 08

..........

··....
.
.....
• 1

•

:

2

.

·ON •

..o~.

.....
_ae ..

.. AND STORE IN
•
TABLE
.Kl
•

.

ALLoe

••

81

X
.e.
IS

*.

MULTI-

·····82··········

••

PROGRAM

-YES

• 2K
• THE
•

WRK

5.

mNI~6R~01 NT3 EQ
POINT4 EQ ADDR.
OF LOGICAL TRANSIENT
AREA.
WRKRG2 EQ D
BYTE COUNT.

•

·

.
·..................
'LOAD ADDRESS OF'
• THE Fl TABLE •
• INTO POINT4 •

GET NUMERIC

:

:

..

•
•

ALLOCATION
VALUE

C4

X

."

BS

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

••

'NO

REGISTERS
*83

.'.x

••

i

.. .'. ..
.. .. ........

..

C5

.

'NO

••••• 04 •• •••• ••••
•
LOAD THE
•

X
·····05·······

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

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

X

02 " ••
PIB ••

• MODIFY TEST.
• AFTER RETURN •

'ADDRESS OF THE •

ItfoT=8\~T4

:

....

•••• xD'S ••••

'NO

••

•• DELIMITER •• YES
•• IS A BLANK ••••••

'NO

•:TA!~D~~tI~RED:.~~~ •

INITIALIZE

:

•

FROM SCANR3

•

..Kit

•

ROUTINE

."

•

TABLE

:X •••••••••••••

•

....·Gl··········
-GET ORIGIN FROM.. CURRENT PIS ..

oAND MDVE I T TO •
.. THE TABLE AS ..
.. LOWER LIMIT ..

.................
'L1MIT FO
.. TABLE

T •
..
1- ..

.................
X
.....
.
....
• -CURRENT

ER"

.LIMIT "J

.. ......

: 1

:

'JI

mIMAml~~ eb~~RSmi~

Fit

••

."

... ••

..

•...
....
.YES

.'•

••

·J3

: LOAD OPiRAND
• ADORES IN
..
WRKR 3

••

:
•
•

'NO

'NO

i

X

••.
•• •·•·•
• ··G2····
SUB
FROM

·····G3
••••
•
SET •••••••

16

CORRECT
LOWER

.POINTl, POINT2 ••
• POINT TO NEXT •
• TABLE AND PIe.
• RESPECTiVELY •

•
•

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

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

:

LIMIT

i
·····G4•••.•
·•..•
• MOVE OPERAND

•

.FOUND BY SCANR2.

·..................
··.!....
•
INTO THE
•
'PRECEDING TEST •

...

·DN •

• 01.
CHKRNG

··......
:•••••••••• X:
• 4

•

.]

H2··· ••
END * •
• NO.*
OF
•• YES
• ••••• ALLOCATION ••••••
•• TABLE ••

•*

....
.

.

E5

X
..
..
. ·····F5··········
.F iR~¥Ph~fi~Iijos: .~~~ .x:
..
.. .. .-..
..................
x
.....

CHKPRN

•• IS
••
•• TRANSI E~T •• YES
..REGION BEl NG ••••••••••••••••••••
•• USED
••

• • • K2 ••

•

:•••••••••• x:X

••

X

x

:··C:~~·U·······:

..

.YES

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

X

••

*...
.. ..

•

:X
•••••••••• :
X

.'.

FZ

...

•

•*
FIRST
•• NO
X NO.* OPERAND ••
.OPERAND EQUALS •••••• X... ••• 1-5 CHAR
••
••
F2..
•• IN lENGTH ••

.................
• AND PUT INTO

Eit

•

ix•••••••••• :

i

i

··.··E2··········
• USE ADDRESS •
• OF SAVE AREA •
• AS LOWER LIMIT.

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

••

YES . ' DELIMITER "
S ~~GAQUA~ •••

.. .. ....

:~~

x

X
.....01.·········

.....Ft··········

•
•

.. ..
: ...•..!
.. ......
CKSCST

YES..
FIRST
••
• •••• OPERAND EQUALS ••
••
Fl.·

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

CRTBLD

INNXEN
X
'STDRE CONTENTS.
.. OF WRKRGI IN ..
'TABLE AS UPPER •
.. LIMIT VALUE ..
..
*Jl
..

•

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

•

X
··.·.84······.···

X

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

•
..

•

&RA~~~I EMe~EADDRESS.

••• ··e2·· •• ••••••
.MOVE THE UPPER •
• LIMIT FOR THE.
.NEXT AREA INTO.
•
WRKRGI
•

-SECOND OPERAND ..

..

2

WRKRGI EQ END
STORAGE ADDRESS.

•
•

.J4

•

'RESET DUPLICATE.
.. OPERAND AND ..
SWITCHES

.

x .................
··....
.
.....
• 4

X
.·.··el··········

ER OF •
S TO •
COUNT.

• ADO

·

2.
3.
4.

--.- ..-.-.-.-.-.-.

·.·.·AS··········
'SCANR]
BF'

BF.

GET FIRST
OPERAND

•

.B3
I.

+•• -

:

..
•

•
•
•

•

X

X

..·.··A4·········.
-.-.-..-.-.-.-.-.
.................

X

+. NO
••••••
•• SUPPORTED.a.
.*

.+
+.

GTNXOP
.seANR2

..
..

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

•• e~ •

• 3

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

X
..... A2··········
..
CALC NUMBER
.. OF 2K BLOCKS

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

.....

:

......
i

• 2

•

.J2
•
..J3
WRKRGI CONTAINS
•••• EXIT ON THE NOLOG
CHANG NG IDYNAMIC.
FIRST TlHE THROUGH
UPPER LIM T
THIS ROUTINE.
INFORMATION.

ALLOC STATEMENT
2
Ft~L8l
RED THE FI RST
• IF BOTH F1
ARE SPECIFIED
IS USED TWICE.

n: h

x
.....

..

.8l •
• E~·

NYSERR

FIELD INDICATING THIS
FIELD IS INACTIVE. IT
CONTAINS A HEX FF IN THE
LAST BYTE.

TRUCTION AT LOCATION CKSCST IS
D TO BRANCH TO THE ERROR HANDLING
IF THE SECOND OPERAND IS
Y AN EQUAL SIGN DR A COMMA.
S ALLONED TO DELIMIT THE
ND.
'KI
CURRENT UPPER L I HIT
HI NUS NEXT UPPER
MLIHIT DIVIDED BY 2048.

Appendix H. Detailed Flowcharts

351

ALLOC Statement Processor- $JOBCTLG (Part 2 of
3); Refer to Job Control, Chart 08

Chart ON.

.

-

....

-....:

1
-A3

THE LOWER L1~lT I
BY GETTING TtiE N
BLOCKS FROM THE

*.-.*

X

ENTRY.

• ••• *A?.***
*CONV(::H.T NUMERIC•
VALU!:= TO
•

r HofA~Y

.. PACKE:D

•

(

AND DIVIDE

CO~Vt:RTI

LCULATEO
OF ,K
T TABLE

•

•

:

STLLMT
it
.. A5· .. ·*····
.. ••
••••• STORE
NEW
•
LIMITS IN
..
THE CORRECT ..
:
TABLE ENTRY :

VALUE

TO THE NUl'1oER OF
«ZK
f\LOCKS TIMES 20481. SUBTRACTING
ThE BYTE :OUNT f-ROM THE UPPER
LIMIT AND ADDING ONE.

: ••••• 2~ .~**.***:

3

*

..........* •••••••
-B4

NEW UPPER LIMIT EQUALS
UPPER LIMIT OF LAST AREA
PLUS NUMBER OF BYTES IN
LAST AREA.

• *. *.
[1.2

YES.*

•••••• *.

• *NUMBER *.
uF 21\
••
BLOCI5

it

•
•

·····B5··X. ··•••••

-

-J4
A HEX FF IS FOUND IN
THE LAST BYTE OF THE
POINTER SAVE AREA
FIELD OF AN INACTIVE
ENTRY.
THI SIS THE
LAST BYTE OF AN
UPPER LIMIT ADDRESS
(ALWAYS FF I.

·····J5··.··. ··•·

.. INITIALIZE
..
•
FOR lOW TO
•
• HIGH SCAN OF •
ALLOCAT ION
•
•
.C3"
• TASLE

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

.....x
·Op •
... S~.

-

NXPBNT

ALLOC statement Processor (Part 3 of 3) and MAP
statement Processor-- $JOBCTLG1 Refer to Job
Control. Chart 08

Chart DP.

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

• BC •
• • E3·
0

:NXPINT
i
•
• •••• Sl••••• • •• ••
•
•

:•

MAP

ACO 16 TO THE •
TABLE P91NTER •

ic

W..o
_ •

•• •••• C2 ••••••• •

.:.!~~
.0

..... )C:
•

•

.oW

s~I~;EA8gR
IN PIa

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

•

*.

'NO

••• a.OI.! ••••••••
:p~WlaI T~Op~f~'2:

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

•

AND ADD 16 TO •
STORAGE KEY •

IN WRKRG4

•

....·02·····..
ic

•
•
•
•

RETURN TO •
PROBLEM
•
PROGRAM
STATE
•

.03
lPSW CONTAINING
ADORESS Of
CONTROL

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

.03

ic

·····C4····.·.···
•
•

• CLEAR THE 110
•
BUFFER AND
• Hove THE MAP
HEADER INTO
•

•

•

•
•

PUT PROGRAM

NAME INTO
LOCATIOH
NAMfLO

•

•

•

ic

: •••• C5 ••••••••• :
•

SET UP BG

AREA
INDICATOR

•

: •• !~!.2~~:~~ ..• :

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

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

: •••• OS ••••••••• :

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

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

•

ic

:~!~2~!_._._._~~:

•
:

•

.....B5··········

• YES

NVSERR

RSPPEA

-. w.

•:·ALf~2A¥~ON
e.
TABLE

-.

........
.....
••E! •
.

•

:

ic

••

IS

• BL •

.o..ic

.0.ic

: 1

NO.MULTI
*.._
•••
_.
PROGRAM
•• SUPPOR TED ••

.................
NEXT ENTRY

B4

••

paYNI~Aio I 'HE :

• _ Cl

......

.....

-ON.

• JS.

OUTPUT MAP
HEAOER LINE

.....

•

:

•

•

x

*'
•

•

-

COMPUTE
NUMBER OF
BG 1 K BLOCKS

.H3

ic

·.··.E1••••••••·•
ic

• SET PIa VALUE.
_FOR LOWER L un t_AND BLOCK COUNT_
_FROM ALLOCATIONo
•
TABLE
•

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

.

• BB •
• Bl·
•

ic

: •••• E4 ••••••••• :

0

CeNTROl

•
•

fl

.:.

o •• _

._

ic

•
•

2K BLOCK

X

.....G5··········

-

.SUPPORTING THE.

••

....•FS··········

·····G4·······.··

LINE

• CALC THE PIB •
.AOORESS OF THE.
.PROBLE" PRCG~AM.

PROTECTION •
KEY IN THIS •

TO Bee

: ••• 2~!:~!.~~ ••• :

SKIP ONE'

X

SET STORAGE_

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

BE-

:

·.................
-

·.···Gl••••·••
•

:~!~S~~-.-.-.-~~:

•

'NO

:-·CONVER,*'jj-*-:

•.-.-.-.-.-.-.-.-.
•••. F4.···•.•·••
."SCoUT

a:.

X

·····ES··········
.CNVBtO
ox •

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

0

ic

w.

•
.*
w.
:!~~.:.w. OFE~BEA
*F2
._
o.

•

.................
o

:x•..•..•..•.
:CKNDAR

CLEAR THE
110 BUFFER

•
•

OUTPUT OG
SE T UP F Z-F 1

•

ic

•

PuT END OF

•

A WORK

• "AIN STORAGE
• ADDRESS INTO

•

•
•
•

:!~!;~~~~-!!:~:.:

: ••• :~2!~!!~ •••• :

·····H4 •..•..•..•

····.HS··· .•••···

•

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

oH3

·..·.Hl··········
ic

•
•

ACD 20"'8 TO
WRKRG1,

•
•

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

INITIALLY
LOWER LIMIT

•
•

NUf'BER OF lK BG
BlOCK 5 EQUALS f2
START I~G ADCRESS
+1. "INUS STARTING
ACORESS Of BG
AREA CIVIDED BY
1024.

ic

:~!~!~S-.-.-.-~~:
•

CALCULATE

SUPERV[ SOR

•
•

:.~~~;:.~!:!!~ .. :

X

:~!~:!~-.-.-.-~~:

•_
•

SET
END
OF UP
.. AIN
S fORAGE

•
•

·····J5··········
X

:~!~~~!-.-.-.-:~:

•••••KIt··········
.-.-.-.-.-.-.-.-.
X

ox.

• STUCRL

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

.................
.....x
..
OUTPUT

•

Fl LINE

:

·BB •

• Bl·

eCNTROL

•
OUTPUT
•
• SUPERVISOR UNE •
• SET UP BC lHIE •

ic

o

•

• 1

•

•

0

Appendix H. Detailed Flowcharts

353

JOB Statement Processor- $ JOBCTLG· (Part 1 of 2);
Refer to Job Control, Chart 07

Chart DQ.

.....
...

......
....

-BC ..
.. E3*

JOB

: 1

.....
01··········
+-.-.-+-+-.-.-+-+
X

*SCANR2

..

X
.OELIMITER.

a.

IS A
BLANK OR

*.

COMMA
w.

•_

....

.-

....

01

.-

a. NO
.a . . . . . . . . . . . . . . . . . . ..

.*

aYES

.'.x ••

OPERAND

TOO

SMALL

as YES
..
.a ............................ x.
.a

'NO

•-

a.

EI··· ••
OPERAND

·····84·····..

SIHEND

..

•
•
•
•

CLEAR

..

·····e3··········
tt_._._tt_._tt_._._.

·····C,,······.···

..

:••••• e~~e ••••••:

.USRLBl

ic

QL.

•
•
•
•

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

CLEAR
LABEL
CYLINDER

..

·····03·.···..
..

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

JBCSWI

YES

as

..

X

·····0''·······

•
•
•
:

..

RESTORE·
JBCSW4
•
TO INITIAL
•
VALUE
••

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

••••••••••••• X:
x

·OR •
• 81·

E3
- •
IS
a.
..
.a PREVIOUS a. YES •
*.
JOB
••••••

•-

·.COMPLETED.a
a.
.+

a •• _

RESTORE
•
JOB STATEMENT.
IN 110 BUFFER.
FROM SAVE
•

RSTSW4

RESET.

.. LINK CONTROL ..
..
BYTE IN
..

.'.i

TOO
.a •••••••••••••••• x.
e. a. LARGE ._ ._

X

SET
•
SIMULATED·
EOJ SWI TCH
•
OFF -NOP, •

: •••• ~!~~!!; •••

i

-.

a. a • • _ .+

.-

SET UP FOR
LABEL
CYLINDER

X

Cl··· ••
+.

-DR •• H~ •

X

..
•
•

GET JOB
NAME

•_

.....
.

:

·····B3··········
·..................

BF_

(

CRjBSQ

(

* ••
'NO

'NO

····.Ft··········
X

•
CLEAR JOB
• NAME STORAGE
• AREA AND MOVE
THE JOB
•
•
NAME IN

•
•
•
..
•

x
.......
·el •

.

•• E~.

NVSERR

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

i
•• ···F3 •• •••• •• ••
•

SAVe JOB
STATEMENT
IN JOB
STATEMENT
SAVE AREA

•

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

•
•

x

: •••• G3 ••••••••• :

CLEAR
1/0
BUFFER

•
•
:

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

.'.x

x

HI·.

•• lABEL ••
•• oPERATlONS ' . YES
••
IN STD
••••••
•• MODE
••

.. .. .....
'NO

:

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

•••

:x .•.•••••.• :
x

••••• Kl •••• ••••••

:~~~~~~-.-.-.-~~:

•
•

RESET TO
USER LABEL

..
•

: ••••• ~22~ ••••••:
x
··....
......
• 1

354

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

EOJ SW ON

: -8R, SIMRET-

•
:

: •••• J3 ••••••••• :

RESET.
lABEL
•

~QY¥~~~~

• SET SIMUlATEO •

x

ic

,. •••• J1 •••••••
..
•

: •••• H3 ••••••••• :

•

DOS System Control

•
•
:

MOVE JBCSW4
INTO SAVE
AREA

•
•
:

.................
•••••K3··········
X

• OR MASKS INTO.
•
JBCSW4 TO
•

.................
.....x
...
• ALLOW OUTPUT

•

:ON LS T AND LOG :

EOJ

·OB •

• 81·

(

Chart DR.

JOB Statement Processor- $JOBCTLG (Part 2 of 2);
Refer to Job Control, Chart 07

***
-OC) ••
..
.. 04*

...
... 1

..

...

...

.····81·······
i<

CRJBSQ
..
..

..
..

RESET TO
STANDARD

...

~~~~~~:~

... LOAD ADDRESS

.'.x * .
15

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

LINE COUNT

GET TIME
OF DAY

*.

*. * .... .*

.*

•

LABEL AREA

•

LENGTHS

X

··.··C4· ••• ••• •••
•

LOAD 018

•
•

TA8LE AODR
INTO WRKRG1

•

AND ZERO
SYSLNK ENTRY

•
•
•

.................
X
·····04••..••.••.

*.

TO SYSRDR

RESET BG

•

•

•

CLEAR

..

• *JI B CHAINED-. NO

*..

X

•

:

:~;!!~~-.-.-.-~~:

...
:

..................
01

·

...

NAME AND

X
···..C3··.······.

•

.. OF LUB TABLE
... INTO WRKRGI

...

·····B4·.·····••·

RESET JOB

...

.....

..
...

...

···..83··.······.

..

..

..

X
.....C1.·········

•*

...
... 2

..

i<

...

JOB CONTROL ..
SWITCHES IN ..

:

..
...

.* .....

•

USERS

•

SCRATCH

•

AREA

•

•

-YES

X
·····E3··········
.-.-.-.-*-.. -.-.-.ov.
·....................

X
·····El··········
...

...

COMPUTE

..

ADDRESS OF

.*

.'.x *.
IS

*TlMOUT

...

JIB ENTRY
INTO WRKRG3

F!

...

.....

LOG TIME

...

ON SYSLOG

X

*.

...··.·F3··••••••••
.--.-.-.-.-.-.-.

..

*L5Tour

.* STANDARD *. YESX
*. ASSGN IN .* .....
*. EFfECT .*
*.
.*

BE-

LOG
STATEMENT
ON SYSLST

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

* ••
'NO

•

: ........................ ~:
RSTCOM

i

•

GET JOB

.·.··G1····· ••
SET JOBOUT-OFSEQUENCE
FLAG IN
JBCSW3

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

•

•

•.···Hl··········
X

:~~~::~-.-*-.-~~:

•

RESET
PROGRAM

...

: •• ~~~!:~~~~!~ •• :

SIMRET

:~

.......... :

X

*·*··Jl·····***··
:~~!:~~-.-*-.-~~:
RESET ALL

•

110

...

•
ASSIGNMENTS
••••••••••
* •• *.*.•

x
......

··

• 1

.*
••

YES

H3

.'.x

•

•

•

...

••

..

X
*··**J3 •••••••• ••
•

••

•

:x
..•...........•.•....••• :
x

.. . ..
F4

.'

••

END

•• NO

•••• O~A:~~

••

....

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

.*

·YES

.. ..

CONTROL

·····G5·······
..............
X

•
•

•

SET PUB
EOJ FLAG
TO OFF

•
•

•

*

•

•

*

·····HS··········
•

'NO
.NOP

*

EOJOFF

•

PUB
TABLE

X

....

.....x .. .. .. .
• 84·

X

ADDRESS

•• B~.

:SR· ••• SIM~5~TEO ••••
...

.DQ

RSSASG

CANCEL
SWITCH TO
OFF

•

:

······E4·······.··.
.·................

·B8 •

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

..

*

~

·····G3··•••••

X

•
•
•

....

: 3

RESET JOB
OATE FROM
SYSTEM DATE

•

LOAD ADOR

OF NEXT

•
•

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

PU8 TABLE

•

:

ENTRY

:

:

3

:

•
•
•

··..................
.~..
·· ..
•

•

• 2

•

Appendix H. Detailed Flowcharts

355

Chart OS.

Subroutines-- $JOBCTLG :<
-LODNAl'l+ 8*****************

*YES

it

*

(

****:0:************

it

.*F2 DID *. *. *.
ND.* A BLANK
..... *.
COMMA
.*
*. OR
END SCAN • *
*. *.. * .*
.
X

*****E3***"'******
*MTNeNT
6K*
*-*-*-*-*-*-*-*-*
* REL EASE THE '"
*
SYSTEM

*

x
.* .

it

•*. *.
Fl
.* UNIT *. *.
YES.*
...... *. CLASS EO .*
*. *. 0 .* .*

X

*****E2**********
*SCANR3
BF*
*-*-*-*-*-*-*-*-*
* POINT TO 2ND
*
OPERAND
*
* -PHASE NAME*****************

*'

*POINTER FOR 1ST*

WRKRGI

•**** *
*2 *
***** *

X

*****El**********

**

THE UNIT CLASS IN THE LOCATION
UNCLOR, EYTE O.
o ftiUALS SYSTft-l
1 EOUALS BG
2 EQUALS FGl
3 EIJUALS FG2
2. UNCLOR, BYTE 1, CCNTAINS
THE UNIT ORDER -PUB POINTER-.

X

X

*****K2**********
"'SET 3RD BYTE OF*
*
BUFFER,
'"
*
lODNAME+I0,
* TO HEX FF ..

*

*G4

*****
*EC *
B2*

*

***

UCSSCN

*

*****************

x

***** *
* 2 *

***** *

364

DOS System Control

(

ucs statement Processor- $JOBCTLJ (Part 2 of 2);
Refer to Job Control, Chart 11

Chart EC.

.....:

2

:

.....

*EB •
.. J3*

---

: •••••••••••••••••••••••• x~
UCSSCN

B2

.-.

••

• 0

YES

•••••••••••••••••• *.

••

010 BLANK

.. .-

.0

*•

END LAST
...
*. SCAN
••
0 •• _

-NO

·.,. ··Cl·····.····
..... _...........
X

UCSON

*MTNCNT

BK*

0-0-0-0-0-0-0-0-0

•
:

RELEASE

..

THE SYSTEM

:

•

svt '"

LOAD THE UCS
PHASE FROM

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

•

CI LIB
-C3

THE PHASE IS LOADED INTO
THE BUFFER LABELED LODBUF

:~~~~~~_._._._2!:
•
POINT TO
• NEXT OPERAND

:

•

...... ......:
•

:~~

x

X

···. . ··01···········

-C3

X
••••• C2 ••• •••••••

•*

.*

02

,-,
DID

-03
••

THIS OPERAND HAY BE
FOLD. BLOCK, NULHSG

••

BLANK OR
•• NO
••
COMMA END
.* ••.•
••
SCAN
••

•••• .....

X

·YES

••••

--

-

....1

- 1

··.··Et···d....•.
X

*MTNCNT

BKa

• -0-0-0-0-0-0-0-.

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

SEIZE THE
SYSTEM

•

:

E2·*·..

.. .. ....

X

• •••• Ft···lIt ••••••

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

WRKDfB eeB

:

X
···"'• ··Gl •••••••••••
~::~~2_._._._~~.
exeCUTe

110

-AS SPECIFIED.

.. !~.~:~2:~ ..

.....x

,*B8 ..

• 81-

--

CONTROL

E3···..

X..

•• ··LENGTH

*.

, " ••

OPERAND
FOLD

•• NO
•
••••••••

••

• YES

·····G2·······
X

.MOD IFY LODCCW2
•
TO FOLD.
•
• -OPCODE EQUAL.
•
tiEX F3- ••

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

...
... - .

*.

..

F3

,-,

••

OPERAND

..

BLOCK

F4

•• NO

•
••••••••

·YES

X

·····G3·······
.Mea I FY LODCCW3
•
TO INHIBIT
•
• OAT A CHECKS.
-HEX 73•
•

..................
-....,

................................... X.

•

x.

-YES

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

••

E4···

•• NO
•• ··LENGTH
*. NO
•••••••••• ;(..
EQUALS
••••••••••••••••••
••
X
•• 6 CHARS • • •

.YES

.. ..
.. ......
F2

••
••

UCS4

....
.. ..

EQUALS
•• 5 CHARS.

.YES

.. STORE THE UCS •

: Loh~~w~O~~to :

UCS3

•• ··LENGTH •••• NO
••
EQUALS
••••••••••
*.4 CHARS. ••
X

,-,

••

-, ....

• ••• OPERAND * ••• NO
•
••
NULMSG
•••••••••••••••••• x.

.YES

..···G4···· •••
X

.MODIFY LODCC~2
• SET CHAiN BIT.
.OFF TO PROHIBIT.
\ojR ITE.

NVSERR

,

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

x

: 2

:

Appendix H. Detailed Flowcharts

365

Chart ED.

ACTION, and INCLUDE Statement Processors-$JOBCTLJ; Refer to Job Control, Chart 09

....

**
*

1

**
*

.....

***
*ae ••. .

*8C •

. . . E;:.

•

Bl
..... * LI NK

*.

*.

INCLUDE

*. *.

OPTION

*. * ..... .*

.*

.* ..••

...
seT OUTPUT
...
-CHARACTER COUNT*TO 80 BYTES IN ...

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

CNTFLD

:

••

OTSERR
*C2
1. UPDATE THE BLOCK
COUNT FOR 1/0
AREA CONTROL.
2. WAlT FOR PREV IOUS
110 ON SVSLNK TO BE
COMPLETED.
3. HOVE STATEMENT
TO NEXT AVAILABLE

X

OPERAND

•••

••
-.

:2~!~~!.e~~e.:S!:

••

:

······El···········
- - - -.- -.-.LNKOUT

ER

... ... ... OUTPUT
... ...

STATEMENT

•• ~~.:!!~~~ ••

...

...

•• NO

....Fl·········
svc

1
...
-WAIT FOR SYSlNK*

. . !!2.~~~~~~r!2~ ....
•

*

•• ~!;:
*B8 ...
... 81-

*

••• YES

... -

*

*NO

• 2

•• x.

COPVLP

X

*

it

··.·.F4··········

~~:~~:-.-.-.-~~.

:~~~;~:- ... -.-.-~~:

.INCR BLOCK CNT ••
• Move STMNT TO •
.OUTPUT AREA .C2 •

READ FROM

·····ES··········

:~~~~~~-.-.-.-~~:

.................
.INCR BLK COUNT ••
• MOVE S THNT TO •
.OUTPUT AREA .C2 •

(

G3

*

.... ...-.- ..
H3

•••

OUTPUT

•

ON SYSLNK

•

•

*

: 2

:

x
.....
•• E!.

•

••

....
....

"4

·ET •

*

INAERR
ENOINe
• •••• H4 ••••••••••
• SAVE LINKRI .- SVSIPT
•• YES
•
IN LlNKR4
••
END OF
•••••••••• X.
••
FILE..
X.
••••
•
·HI
•

••

.~~~~!-.-.-.-~~

X

.*.x

••
HAS ••
•• SYSIPT
•• NO
•• BEEN OPENED ••••••

••

X

······FS···········

...................
....:X•••••••••••••••••••••••• :

SYSIPT

X

THE EXCPRG SUBROUTINE PLACES
THE ATTENTION, ATNCUU, ROUTINE
ADDR IN LlNKRl ON EVERY RETURN
TO CALLING SEQ, ATNCUU IS USED
TO DISPLAY THF ATTENTION
MESSAGE, lCOOA,

ER

OUTPUT ON
SVSLNK

o.

·YES

"HI

LNKOUT

••••••••••••• X:x •••••••••• :
UPDOPT
X

.*.x

E4
••
• - WI LL..
•
•• THI S CARD •• YES.
••
FILL THE
••••••
•• OUTPUT ••
- .. AREA ••

....
...... .
•••··
. . F3····. ·•••••

····
. ·05··.·····.··.
.-.-.--.-.-.-.-.X

•• YES
•
••••••••

*NO

•*

• *••••••••••••••
·E2
•
••

.*.

....

.* • ••

REP
CARD

...... •

•
INIT FOR
•
-COPY ING SY S IP T •
TO SYSLNK
•
•

5:*

0

:UNBLKD

C5
••
•
•• ANY· •
•• YES X
•• CARDS IN •• NO
•••••••••• X•• SYSLNK OUTPUT ••••••
••
x
•• AREA ••

••

-...

i

•* 1

i

* •••

*
CONTROL

••
••

.* ••..

·····E3··•••.·..•
*

...

••

x

BLANK
OPERAND

*

it

.t

END
CARD

04

-.

·YES

oE2
1. AND BIT 6 OF
SVSIPT OFB FLAG OFF.
2. SET OUTPUT CHAR
COUNT TO 80 BVTES
IN CNTFLD.

C4

• •• NO

*

it

••

.. ..
.....-.....--...
............
....
• *.

03

*INCR BLOCK tNT.*
... MOVE STHNT TO ...

.*.x

_.
2
••
IN
•• NO
BYTE 1
••••••••

x

X

ER*

:

"'YES

:~S~~~~-.-.-.-~::
SCAN FOR
_

BUFFER AREA, BUFFER.

.·.··01··········
. . -.-+-*-.-.. -.-.-.

.••

·····C3···. . ··•··
.................

AREA IN OUTPUT BUFFER,
LNKBFl, FROM INPUT

.UPDSAV

*.
•*

·YES

* *
*
OTSERR

*

3

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

.*

*ET •
• E4·

o

·····Cl··········

B4

••

.. .. .. ..

.*~ ••

•*ET
*~*....

.... E:*

X

.*.

83

....

:

NO •••• LINK
•• •••
OPTION

NO

"'YES

*

E3w

* *
*
X

:X •••••••••••••••••••••••• :

.*.x *.

ACTION

(

*.

••• *

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

*

*
*

·••·HS··.··.···
...............
X

•
SVC 1
•
• WAIT FOR SYSLNK.
.1/0 COMPLETION.

*NO

x

J3

x

• *. ••

J4

• ·SYSIPT ••
••
UNIT
*. YES •
-.
EXCEPTION .* ••••••

*.

••

.. ..

.*

• * • ••

•• ANY·.
•• CARDS IN •• NO
•• SVSLNK OUTPUT ••••••
••
AREA
••

.......-

••

·YES

*NO

x

.. ..
.. -. ... -.... x
.....
...Bl·
.~..
J5

••
••

.* . ••

•• NO
••• oo ..

SV51PT
EOF

-yES

-BL -

.*.x

X

.- -.-.-.-.-.-.-.

K3
*.
••• * BLANK •• *. YES
•• CARD IMAGE .* ••.•

.oo

**
*

3

ON

••••

*

*
*

x

••• *

**
*

....
2

OUTPUT

••• ~!~~~~ ••••

X

·NO

DOS System Control

...

oo.

•••• ••• *

366

• ••••• K4···········
LNKOUT
ER

:x.......•.. :

**
*

.~

"
•*

..

....
4

**
*

•

*

: 5

:

*

ATNCUU

MTC Statement Processor-- $JOBCTLJ: Refer to Job
Control, Chart 09

Chart EE.

......

.....
*ac ..

.... E;*

HTC

it

PUT AOORE S5
OF NVSERR

••

..
..

IN LINKR4

it

:~;~~~~-.-.-.-~~:

: 5

.-

••

it

x

'NO

.:-·-CHECK-OUP-·-:
....85··········
X

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

.YES

• NO..

X......

. .

a •• +
• YES

.'

AS

.. ..

DID
+.._ NO
COMMA
••••
... a.
ENO SCAN
lO_ ••

+.• -

•

YES ••
OUP
••
•••••
FACTOR GT
.*
••
99
••

•••
HTe2
83
••
• •••• B4 ••••••••••
••••
.CNUNCO
EQ.
•• X'CUU'
tt. NO
••
FaRHAT
•••••••••• X.CONVERT SYSXXX •
••
••
•
TO SYMBOLIC
•
••••
.UNIT ADDR
.B2.

:

-.

• 4

: 5

·.....

..
..

: ••• !~~.~~~;! •••:

.0.x *.

.'.x

'NO

SYMBOLIC
AND UNIT m~SAO~~. SYST
RETURNED IN TH~ FIELD
UNCLOR.
BYTE 0 IS SYSTEM
CLASS.
BYTE I IS UNIT
CLASS.

.··..Sl··········
Cl

A3

··....
......
x
.. . ..
.... .. ......
·

:

.... .. ..

'B2

.. POINT TO 1ST
OPERAND
..

1

••
DID ••
YES ...
EQUAL
* ..
• ••••• SIGN END THE ••
••
SeAN
••

: •••• Al ••••••••• :
..
..

:

••

••

••••

C3

.x'.

••

* • ••

........
/1

IN COL 1
AND 2

••

ER •

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

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

it

······es···..·····.

••

C4

.'

••

X

••

••

....
ENTRY

• • • K3 ••

·YES

.FACTOR AND CON-.
.VERT TO BINARY •

.

IS

YES .* THE UNIT
••• •••
A SYSTEM

••

.NUMCON

••
••

MOVE OUP

FACTOR TO
WRKRG4

••

'NO

: s

X

•+

Dl
-•
1S
+.
•
OPERAND +. NO X

MTCI

El
.+

+.

•-

••

eYES

.0.x

• 2

OPERAND
+.

.-

.+

.....FI··········
.................
.. CONVERT TAPE

COMMAND TO
HEX AND

•

1. MOVE COMMAND TO CCH.
2. SET CHAIN BIT OFF.

..

..
..

•••

••

*.

-INITIALIZE CCW ..
*F2

MTC4

..

••

••

F3

.' .••

..

.·... .........
·
YES ••
OUP
• ••••
FACTOR
••
0

••

••

.*

'NO

• 5

X

•

TABLE DSPLT

..

.................
•
:

:......................... X:x

'F2

x

05

·····E4······ ••• •
COMPUTE LUB
..
•

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

··....
......
it

eYES

..

it

:•••.•.••.. x:

.- ••••

it

..

•

·····E3··········
•
STORE PUB
•
.PNTR IN SYSUSE •
LUB.
SAVE
•
•
.SYSUSE LUB PNTR.
•
IN WRKRG3
•

•
+. NO X

• 5

..
..

•

PUB POINTER

X

+.

VALID

• UPDATE WRKRG1 •
• TO POINT TO 1ST.
•
PROGRAMMER
•
•
LU8

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

e.

IS

*.

:•

·· ..

*.IN
a. LENGTH.._
+.

:!~~~~.-.-.-.-!~:
~fi~ ~5~R!Y~~D :

NVSERR

+.3 CHARAC::TERS ••••••

it
·····04··.·······

·····03··········

• 0.

•+

FOR THIS UNIT.
IN WRKRG3
:

·....' ..
.-.-.-.-.-.-.-.-.
• 3

•• X.

•

X
••••• F4 ••••••••••

* ..

IS
••
DEVICE
•• NO
MAGNETIC
••••••
TAPE
••

:~~~~~~-.-.-.-~~:

.. .. ..... .................
..
x
.'.
.. .'. ..
....... .. .....x ........
•.8:•
•

•

ASSIGNMENT

•

it

•• • YEs

CHECK THE

•

•

FOR THIS UNIT.

•

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

MTes

•• •• ··FS···········

EXCPRG

BH

EXECUTE
OESIRED

••••• !~~ •••••

• ET •
• 81·

it

·.····Gz···X •••·••·.

• 0.

...

••

Gl

-.

JS

+.

+. NO
+.
COMMAND
• + ••••
+.
WTH
••
+.

+ •• -

•
o

.-

x
: •••• Hl ••••••••• :
..
..

CCW

·.····H2··········.

··.··H3·········.

• SET COUNT FOR •
• SINGLE I/O IN •
•
WRKRG4
•

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

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

·.................
CCB AND CCW
·K2

ic

SET CHAIN
BIT ON IN

o

•

•• •••• OR IS PUB FOR ••••••
•• Fl OR F2 ••

•

·YES

INITl ALlZE

•

i

G4

G3

••
IS
••
.. NO •• OEVICE DOWN •• YES

••

••

THIS UNIT

·.ASSIGNED ••

.

NDSERR
H4

::~~~~~-.-.-.-~::

•
•

POINT TO 3RD
OPERAND

•••••

.•:

x

:X •••••••••• :

::;~~~~-.-.-.-~~:

.. POINT TO 2ND

..

OPERAND

•

..

: •••• ;~~!!; ••...:

··....
......
it

•

I

•

••••

THE UNIT
••
•• IGNORED ••
·.-IGN-.·

·YES

• 81·

X

X

NOTERR

J3··· ••

J2"·· ••
••

DID ••
... A 8 LANK •• NO •
•• STOP THE LAST ••••••
••
SCAN

.. ..
·.....
••• YEs
it

· .
• 3

•

••
••
••

*.

DID

••

A BLANK •• NO
END THE
••••••
SCAN
••

•

4

.

.'

••

NEW·.

•• NO •
••••••

.YES

······HS········.·.
·.................
..~..

·8B •
• 81*

CONTROL

•
UNASSIGN
SYSUSE LUB
•
•
• -SET TO XI FFI •

...

·BB •

• 81 •
CONTROL

it

• YES

•

G5

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

••
OUP
•• ~ FACTOR 0

X

••

..... ....
... .....x
...
...... .. ....
.·...x . ··......
..··.K4··•••·· •••
· .
.................
..~...

:.:2~~.~~~!~~:

• ET •

·····Jl···.·...··

.'.x
IS

NO ••••

•
•

••••••

'NO

·ET •

X

••

I S . . YES

•

'K2
'K3
SET HODE COHHANO TO Ccw. WRKRGI CONTAINS THE LUB
POINTER TO THE FIRST
MOVE SYS ANO UNIT CLASS
TO CCB AS SYMBOLIC UNIT
SYSTEM UNIT.
ADDRESS.

5

•

X

HTG3

.SET DEVICE TYPE •
• IN DVCTYP AND.
• SYSTEM CLASS •
• AND UNIT CLASS.
•
IN WRKRG3
•

:

2

:

Appendix H. Detailed Flowcharts

367

LBLTYP, and VOL Statement Processors-- $JOBCTLJ;
Refer to Job Control, Chart 10

Chart EF.

.....

.....
..

• .E~ •

• E3*

X
··,.··e1 ••••••••••

VOL

LBL TVP

:~~~~~~-.~.-.-~~:
..

..

POINT TO

..

OPERAND

····.·B3··········.

........ *.

••

••

• YES

• 2

X

·····01··········

•
•

··

• CHECK NN AND
.. CCNVERT TO

..

•
•

••

SEQ

••

••

C4

.'

..

X

03

.' .

••

••

'.

.. ..
so

.

DID

••

••

.. .... ..

.....

..

·YES

OTSERR

-.

3

... A BLANK •• NO
•
••
END THF
.................... x.
...
SCAN
••
x

YES
••••••

••

••

••
IS
•• NO
••
FILE TYPE
••••••

: .... ~!~!:~ ..... :

:.;~~;~~!.!!:~:.:

.' .

ERROR

-JBCSW4

x
.....

• E4·

:~~~~~~-.-.-.-~~:

BG PROG LABEL •
TO 80

POINT TO ZNO
OPERAND

·ET •

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

-BYTES IN WRKRG3*

C3

.NO

•

X

• SET LENGTH OF •
AREA

••

·· ..

*. o • • _ .-

•

•
•

: .•:~!~~~!~~: •••.

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

••

END THE
.o.
SCAN
.. "

•

X

•

Cl DID -. _.

A BLANK

•

:~~~~~;-._._._2~:

'E5

.'.x

NO.*

I

·····84··········

X

:~

• 0

•

INITIALIZE
REGISTERS

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

:

·· ..

·ac •

-ac •

••

04

x
' .••

.

IS

·SL •

•• E! •

••

FILENAME

.. .. .. .

••

NO •

NV SERR

•• 1 TO 8 CHAR ••••••
••
LONG
••

••

.

·YES

·YES

-E5

• * •-

...

El

.'.x *.
IS

OPND
TAPE

...

X

·····EZ··········
• COP'PUTE LENGTH •
• OF BG PROGRM' •
• LABEL AREA IN •

*. -.YES
...

.. * .......

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

*. o • • _ .-

•

• NO

WRKRG3

.JZ

•

•

: ............. x:

.....FZ··········

X

LaTOLT

·.,.·.Fl
•• ••• ••••••
..
SET EXTENT
..
..

AREA BVTe
COUNT TO 20

..
•

IN WRKRG3

•

•

.. -ASSUME NSD-

X

.STORE LENGTH OF.
• BG PROG LA BEl •
• AREA FOR 1I OCS •
.,ANO THE LINKAGE.

x
: •••• E3 ••••••••• :

~

.SAVE FlU

ENTRY

•

•
MOVE IT T[
•
.LABEL SAVE AREA.

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

~AME

.IN MTFlIN, ALSO •

.SET BIT 1 ON IN.
• MTRSVO TO FlA.., •
• LAST SEQ 0151( •

:::! :;!.!.~!!~;;:

•

:x .••.••...• :

x

......
F3···········.
.-.-.-.-.-.-.-.LBLOUT

·.... F4··········
X

• SAVE SYMBOLIC.
• UNIT AOOR IN
•
MTCLOR Of•

EP

OUTPUT LABEL
TO VOL AREA.

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

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

·····G!!··········
:~~~~~~-.-.-.-~~:

·· .. ·G4··.··.····

•

:~~!!~: •••.• :~~.:

•• ••••••• *•••••••

·····E4··········
X

•
•

-SYSRES-

.....

LABEL SAVE
AREA

X

...

x

._ Gl

NO.o
• •'.• *. o.

0.

.'.

·BB •

• al·

-. w.

*.

IS
OPND
NSD

._

CONTROL

._ .-

X

•

POINT TO 1ST

•

•

OPERAND

•

X

•
-

.YES

•

•
•

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

: ••• ;;!;=!!; •••• :

o •• _

SET RESERVeD
BYTE, MTRSVO,

TO ZERO.

·~2

POINTl IS POINTER
TO THE FIRST N OF NN.
POINT) I S SET TO 1
LESS THAN THE
NUMBER OF CHARACTERS
IN ~N.

X
...... HI· ....·,.·····
• AOJ REGISTERS.
.. POINTl AND
•
•
POINT3 FOR
•
oCONV'ERSION RTN.*

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

*H2

'

•

H3

••
••

••

••

.'.

END THE

'.

X

••

DID

A COMMA
SCAN

-.

••••• H4 ••• ••••

••

··.YEs

J!

.'.

X NN PLUS B4

••

•••• ••••

:............. x:x

::3 :

368

••••

• 2

X

.:

•

*'2
1.

DOS System Control

PROCESSED

I~

..............
x
-.....
JBCSW4.

•

....
3

-BIT 7-

•

•

•

•

•

x

: •••• J4 ••••••••• :

: •.• ~~!!.!~~: ... :

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

....x
··

ccrITROL

.CtJNVERT SYSXXX •
•
TO SYI1801l C
•

X

·.....
·
....
. .
• NO

·····J3··········
:~~~~~~-.-.-.-~~:

...
IS·.
... LAS'T CHAR •• YES
••
OF OPNO A ....... .
...
PAREN
••

SET VOL STMNT
t:LAG ON

••••••

-

.~~

x

•

•• NO

•

•
•

•

SAVE LABEl
AREA POI NTER
IN LBLPTR

I

1. LINKRG4- SET
TO THE ACDR.ESS
OF THE INVALID
STMNT MESSAGE.
2. POINT4-S.ET
AS POI NTER TO THE
LABEL AREA PLUS

a SVTES.

Chart EG.

**
.......
itBC ..

*

*

.. E3*

* *
*** **B 1* ••• ***"'*.
THE INVALID

*

..

ROUTI NE

...

... STATEMENT M5G ..

.*

.....

•*

C1

*.

WAS
VOL THE

*.

*.

-Jo • •

*

.*

NO

PREVIOUS
*. STMNT .. '"

••

...

****

*
*

x

.*

****

•

63

• *.

••• *

**

*****
*ET *
* E2*

X

NLSERR

.

*

4

•*

****·B4**********
*
ASSU~E DA
*
* AND SET FI LE
* TYPE TO A 0
IN THE SAVE
•
AREA
*
********** .*** .**

*NO

*****C3*******·**
* ZERO RESERVED *
*AND EXTENT FILE"
*TYPE FIELDS IN *
*THE LABEL AREA *

•*
*
* ••
*YES

*
*

3

X

*.

IS
*.
.*EXPIRATION *. YES
*.
DATE LT
.* ••••
*.CREATION .*
*.DATE .*

C2· *. * •
DID * •
A COMMA -. NO
END THE
.* ••••
SCAN
•*

••

.x

"YES

•_

Refer to Job

•

:*:;~~~*;;~*~~~**:

*** ***.* it. __ .. _***

• *.

1

·****62.·· •• *.***
*SCANR2
SF*
.-*-*-*-*-*-*-*-..
* POINT TO 2ND *
OPERAND
*

-INrT LINKRG4 AS... BRANCH REG TO *

..

***.

X

i<

OLAB

$JOBCTLJ~

DLAB Statement Processor-Control, Chart 10

x

-****
*BL *
* E4*

C4·*·

.*

YES

* *

*
NVSERR

6TH

OPERAND
OA

•

*.

*****************

* ••
*
*NO

.

.*

*

5

5

x

x

X

. *.

***** 0 1 *.*** ** .. *.
*
*
.INIT
REG POINT4*

02
*.
VALID *.
.
.* LENGTH
*. NO X
".-MAX 4 CHAR- .* ••••••

*****03***·**·**·

.*

.. AS POINTER TO *
.THE LABEL AREA ...
•
*
** ••• ****** .. *****

:~~~~~~-*-*-*-~~:

.. POINT TO 5TH *
OPERAND
_
*
.. -SYSTEM CODE- *
.. **.************.

X

****·04**"*******
ASSU~E I SC
...
AND SET FILE
* TYPE TO A C
I N THE SAVE
AREA
.**** •• ***** ... *.**

*
*

x

•*

X

E1

* .... ·-E2**···**···
*NUMCON
ER*
:-*CONVERr*ro-*-*
•
BINARY IN
*
WRKRGl
*
************** ....

.*
*. NO
·.CONTINUATION .* .....
... CARD SPEC. *
*.

* •••

. ...

·YES

**
*

****
4

**
*

i<
**"**Fl·******···
.CONeAl
EP*
*-*-*-*-*-*-*-*-*
.BUILD COMPLETE ...
... CARD IMAGE IN ...

:~~~~~!!.~~~~~~.:

i<

··**-Gl······***·

*SCANR2

BF-

*-*-*-*-.-*-*-*-**
.. POINT TO 1ST

...
..

OPERAND
-51 CHARS-

•

*
****** •••••••••••

.* 1ST *.
.* AND LAST *. NO
* .. CHAR AN APOS-. * .....
.... TROPHE
...
*.
i<
* ••
.. YES
.***
*
•
* 4 •
*
•

X
..*·*·*Jl*·····*·*·
STORE FILE ID *

*IN DATCRL, SET *
* DAFMT TO 1 TO *
*ENSURE FORMAT 1*

*

•

*****************

X

)

**"**Kl** .. * .. * .. ***
*INIT REGISTERS *
* POINTl AND
* POINT2 FOR
*
* NEXT SCAN AND *
*SAVE IN TMPARl *
*****************

**
•

1

****J~!~;~S******

it

**·**G2**********
*DOP34
ES*
*-*-*-*-*-*-*-*-*
*CHECK, CONVERT,*
*STORE CREATION *
* DATE I N LABEL *
*.******** •• *-**-

*

.*

• *

*
OTSERR

XYES .*.* 6TH * •
.. ••• *.
OPERAND
ISC
.o*

*. * ••• .. *

.... **

*NO

•

X

**"*-F3·*********
* STORE SYSTEM *
* CODE IN LABEL *
* AREA, DASYCD . . .
.. -13 BYTES..

it

*·*.*F4******·.**
ASSUME I SE
*
AND SET FI LE
TYPE TO E
*
IN SAVE AREA *

*

*
*
*

*

*****************

X

*····G3······** ....
*INIT REGISTERS *
* POINTl AND
*
*POINT2 FOR NEXT*
* SCAN AND SAVE *
*
IN TMPAR1
*
*** ... _****-******-

.*
*.

.'

G4

.*. *.
6TH

OPERAND

X

·*·"'*H3**··******
*INITIALIZE INST*
.. AT DSEQMSK TO *
"INDICATE XTENT •
•
STATEMENT
*

X

X

****~;~~!~~~****:

NO
.o* ••••

I SE

* •• *

*YES

**
*

: ......•... x:x

****1IH2**·*.****.
*UPDATE POINTER *
•
POlNT4 FOR
S TORI NG
EXPIRATION
•
DATE
*
•• **.****.** •• ***

CKSTDM

****
4

H4· *. ••

•*

*
DSE9~;~.H5.**.***

.*
*.
* SET BIT IN *
.* STANDARD *. NO
_ JBCSW5 FOR *
.... LABEL MODE .. * .. .o •••••• X*-DLAB PROCESSED.
._
X
*AND ONLY XTENT.
*..*
•
NEXT
•
*•• *
**.* ••••• * .... **
"'YES

x

**-*

***··J2·**·* *****
*OOP34
ES*
*-.-*-.-.-*-*-*-*
*CHECK, CONVERT ,*
• STORE EXPI RA- *
*
nON DATE
*
* ••••• * •••• ******

*****J 3******.***SCANR2
BF*
*-*-*-*-*-*-.-*-*
* POINT TO 6TH _
*
OPERAND
•
.-OPT I ONAL NSD- *
*.**-*******.**.*

X

***.*K2**********
*RES TORE POI NT4 *
* TO POINT TO •
* CREAT! ON DATE *
* IN LABEL AREA.

* ***.** •• *.** ....*
...

x

•*

*.

x

**_.*
*ET *
• E4*

E4·*· * •

* * .. ** *

X

****.F2**********
* STORE BINARY *
* VOL SEQ NO IN *
* LABEL SAVE
*
AREA

i<

****

.* 1ST *.
.. NO •• AND LAST *.
X••• "'.CHAR AN APOS- ••
*. TROPHE
.*

• 4

it

*.

Hl

. *. ••
E3

*
:

••• *
2

•
:

K3

x
.*.
*.

*
* 5

•
•

X

6TH *.
.* OPERAND *. YES
..
*. EQ SO OR
.* ....••••.••••••••.••.••.••.•••••
-.
BLANK
.*
••

*.

* ••
*
*NO

• ...

.. x ..
.**..

....

* 3

•

X

*",**"J 5.** *** ..... *
*SET LABEL AREA ...
* FILE TYPE,
*
* DAFTYP, FROM *
SAVE AREA
•
FILE TYPE
•
_
******* .... ***.***

****-K5**********

**SET
:

•

LABEL AREA *

g~leG~~N¥bHA4

:

*** •• *******-** ••

..

: CONTROL

~.*

*B8 *
* ... B!*

Appendix H. Detailed Flowcharts

369

Chart EH.

(

XTENT Statement Processor- $JOBCTLJ (Part 1 of
2)~ Refer to Job Control, Chart 10

*****
-Be ..

.... E~.

·..··Al·.······.X

XTENT

-INIT lNKRG4 AS
.. BRANCH REG TO
.. INVALID STMNT
*
RTN

..
..
..
..

·.....
·

....
·· ..
• 4

• 1

.*.X

Bl
*.
PREV- *.
• *IOU$ STATE-*. NO

•*

- .. MENT DLAS OR

*.

XTENT

.*

••

.* ............................................................

x..... *.
NO

>C2
1. POINT4 MINUS THE LENGTH
OF THE VOL AND DLAB FIELDS
I S SET TO THE BEGINNING
ADDRESS OF THE CURRENT
EXTENT IN THE LABEL AREA.
2. WRKRGI IS SET TD ENDING
AOORESS OF THE CURRENT
EXTENT IN THE LABEL AREA.

·····C1··········

-INrT REGISTERS ..
..

...

POINT4 AND

..

WRKRGI

:* •• * •• :~~.* .•••:

:

.'.x

• _THIS EXTENT_. NO
-.FIT IN LABEL .* .....
AREA
.. "

*.

*.

4.

x

X

seQ NO.*

*.

2

* ••
.. -

YES

..

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

X

.*

: •••

....

·

.····C5·········.
.-.-.-.-.-.-.-.-.
.................
.XTOP34

•

·NO

• ... ••••• X

..

.ISCKSQ

.....

04

*.

XND .+
• • • • oo

x

...

X

.oo ASCENDING
SEQ NO. oo.
·oo ••

•
•

X

:cH~f~AECB~~~~T :
: •• S~:S~;~~:~~ ••:

i

X

••••• F5 ....... • ••••

.RESTORE POINT4
•
STORE UPPER
• LIMIT CELL NO
.,81, N XT82 OF
•
LABEL AREA

...

•••
NOTSEQ. *.
Gl
*.
G2
••
••• * FILE •••• NO
.*··OIRECT
_. SEQUENTIAL ............. X*.
ACCESS
-. 01 SK
••

... *.

.x

H2

•• eXTeNT -. *.

NO
•••••• X......

.
>

x

****

• CHECK, CONY ERT •
..
- STORE eXTENT

: ... * ....~~2.~2;, ....

x
......

>

• 4

••
IS
*.
•• THIS THE
*. NO
*.FIRST EXTeNT ....... .

....

AYES

>

x

370

•*

H3

>

•

• * ... *

....

.'.x *. ••

.....x
·eJ •

.B~.

XTOP5

- CHECK,CONVERT •
• STORE eXTENT •

: •••• ~~~*~2; •••• :

X

.*....

·····J3··········

..

:~!~~~~-.-.- -~~:

J4

.'.x *.
seQ

•••• vesx

........ ....x
: ....
••• *:
·.....
x
x
.
.
.*oo ••.
..*. .. ..
.. .- ·..... .........-.. ·....x .
...~.... · . · ... ·.".....
....
* CHECK, CONYER T ...
• STORE EXTENT •

••

_.~~~*~2;

K3

*.

NO. GT

••••••

1

••

'NO

.... NO

...

•

DOS System Control

i

• 5

>

2

•

• 5

•

K4
••
••
IS
*•
•• THIS THE •• YES
•• FIRST EXTENT

i

••••••• :

·YES

:

··........

.'

'. *.

.-..

AYES

·.

X
·····H4 ••••••••••
:~!~~~~-.-.-.-~;:

.* EXTENT *. YES
••
TYPE 0
.* ••••
*. ••
.* .*
* •••

S~~ ~o

x
* .....

: 1

.

: 5

. .

x

*.:

••

..
.... .

.YES

'NO

.-.-.-.-*-.-*-.-•

•

• >.

4

.YES

G5

••

EXTENT
YES
.* EXTENT
•• NO
NO..
VALID
••
TYPE GT
•••••••••• X•• TYPE EQUAL •••••• X•••• _.
eXTENTS
••
••
2..
••
4
••
••
_02
••

X

:* ••• ~~~*~2; ...... :

• **.

.

.' '

TYPEl

.... * • • *

X

ISTYP4

G4

•

•

••.
...
.

oo..
....
*...
.. ..

•••

.NO

•• ··*J2···.·· ... • ••
*XTDP12
ES ...

•... -*-*-*-*-.-...
-.-*
CHECK,CONVERT •

•

*.

•

SXTPOK
X
** ••• J1 •• **."'**··
-XTOP12
ES.

·· ..

••

••

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

'. '.

• * EXTENT
NO..

• 5

... -.'

•• NO

AYES

..

*. .oo
....
*...
.. ..
G3

.. .. ....

.YES

..

INDSEQ

.... .... ..

K1

•
•
•

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

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

,. STORE EXTENT

ES.

.XTOP34

.. STORE TYPE IN ..
-eXTENT TYPE FLO•
OF
..
.. LABEL AREA
...

TYPE 1 OR
128
.*
*... ••••
AYES

•
•

·····E5.··.··.···
.-.-.-.-.-.-.-.-.

·····Fl····.···.·

'.

POINT4 BY 4

• .E!*OTSERR

LAXE RR

••••••• *** •••••••

Hl

i~k~ ~~, fl~~~
AREA. t NCR

·ET •

-CHECK, CONVERT ...
..
EXTENT
..
..
TYPE
..

-XTTYPE-

:
•

.STORE lOW LIMIT.

YES
•
••••••••

:~!~~!~-.-.-.-;~:

...

el,eZ,Hl,H2

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

.... +.

..... .. . ..
·

~~C~~EI ¥Pt~~1 ~B~~~T ro~~~LHEAD

ES.

:CHm~Ece~~W

'.
••
X.

·

,XTLLH2, CANNOT EXCEED UPPER
HEAD,XTULH2

X

: XTOP3

.. .. .......

• 3

·ET ...
... E3'"

·····el··········

* • *.

ASCENDING

.'.

1. UPPER ANa LOWER LIMIT CELL NOS.
XTS1 ANa XTB2 MUST BE EQUAL.
2. XWM~IE~il~~~~.CANNOT EXCEEO
3. LOWER EXT~NT, XTlL, CANNOT

.......

.."
* ••
-YES

.-.i * •

C4
••
•
...
IS·.
YYES •• THIS THE
••
••••• FIRST EXTENT ••

>02

01
*.
.* WI LL -.

84

·..... x

* ...
"
·YES

X

.*

•

.NO

•

.~

:

3

:

(

.....x

.

.ET •
•• E~.

NLSERR

Chart EJ.

XTENT Statement Processor- $JOBCTLJ (Part 2 of
2); Refer to Job Control, Chart 10

....

....--....--

--....-••.••82·····.••..
- 1

XTDP5
X
____ - ...___ ... __•• e

·····S3·······
.-.............

ic

:tc%NII·....··;F:
~TH ;- POINT
SW:I:Ll2NHO
:

ic

_StANR]
BFe_ ... _._e.e_o_e.o

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

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

...

.-.

•
•

•

POINT TO 7TH
OPERAND

• SET SW ITtH •
• MTRSVD AS LAST.
:
so EXTENT ...

•
•

-82-

•

- 4

CHKPUN

el

ic

-.

·····C3··········
.................
X

C2
-.
- . -.
NO ••. SCAN

• SET WRITE DISK •
• DATA lENGTH, •
Drt~G~~T~~ •
:

•• • -AND 1ST
LAST -. w. NO
-.CHAR AN .P05-•••••• )( •••• 0 . STOP CHAR A .w. TROPHE.o
•
••
BLANK .-

0..0

W.._

o ••0

W• • _

eYES

-'1ES

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

.........E2··········
.-.-.-.-.-.-.

.····E3··········

•..···411••••• •...••

··. ··El··.····.··
..........••......
PO]NTl AND

.NUMeON

•

TMPARl

•

••

:~~!:~~!-.-.-.-~!:

POINT TO 6TH

•

•

-SYSXXX-

•

•

OPERAND

·SB •
•• B~.

ic

XTOUT

• _GlSCAN -. w.
•
•• STOP CHAR •• NO )(
••• ~ 8!a=~A OR ••••••• :
·YES

G2

••

•• IS
••
•• FILE TYPE •• NO
•• SEQUENTIAL ••••••
••
SO
••

...i

•• E~.

-

NVSERR

ic

.---.-_.-.---.-.
._...............
.• .
. . . Hl· ....• .. •••••
CNUNCO
EQ.

-

CONTROL

:S3g~~ ~~~R~klC
IN KTClOR

-G •
1. BIT ] OFF INDICATES
LABEL BLOCK.
2. BIT 4 ON INDICATES
ONLY VOL STHNT CAN
FOLLOW.

•
-

••
••

.-.
ic

kl
••
•• lAST -.
•• OPERAND •• NO
•• STOP CHAR A ••••••
_. BLANk..
•

·YES

_ 4

ic

• YES

: 2 :

:

: 3

·.·t

i

••••• H4 •• • •••
• RE STORE WR ITE •
•

OISK DATA

• LENGTH TO 84
•
BYTES IN

•
•

•

! ..... ~!~~~! ••••• :

•
•

......
- 6

•

.....F5··········

NEWXTN

X

• UPDATE LBLPTR
WITH ADDRESS
.OF NEXT EXTENT
:
SAVE AREA
•

•
•
•
:

.................
i
·····G5•••••.•
••.
• INCREASE BYTE.
.COUNT IN ~RITE •
.DISK DATA LNG, •
• DTALGT, BY 1 •

:~:!~~!;~2.~!!~~:

···.·H5··.····
X

•

SET
SWITCH
J6CSW't

•

·K4

•

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

·BB •
• Bl·

X
• •••• J4 •••••• ••••

• MOVE CURRENT
•
EXTENT TO
• OUTPUT AREA
• OVERLAYING

•
•

•
•

CON~ROL

:~~;~l~~!.;:!;~!:

_

i

: 6

ic

SAVE AREA
PLUS 8

:

•• NO
••••••

.YES

•

:.~~~~.-;.!!!~~!.:

••

SYSTEM
FilE

X

• XTENT TO VOL

........ .!.. .. .......... ....
-....- .... -.....!••
-....-....: 1

·····G4
••••••••••
:~~~2~!-.-.-.-~!:

ounBL

175.

•• NO
••••••

K2

••
••

•

-·:x: .....
- :
.
• •••••••••••• x•

PACKAG
X
.···.F4···.···
•
SET 61 TO.
• OF MTR$VD ON •
• TO FORCE L10CS •
•
LOOK AHEAD •

x

:
•

i

•
I NCREHENT
•
• EXTENT COUNT •
• BY 1 IN LABEL •

•

.................
....
:-1 -.
....:.X..
.-..............

IS THE EXTENT
COUNT IN CURRENT
EX TENT EQUAL TO
OR GRE6TER THAN

J2
••
FIRST
eXTENT

SET NO
XTENT
FLAG

• OUTPUT PREVIOUS.

.. .-. ..
............
.....-....
x
.. .-. ..

X

·····05··········
.................

NODCUX
i
: •••• E4 ••••••••• :

_H]

: •• ~:~~.~!~!~2 •• :

...··Jl.··. .·····
--.................
•

ic

5

.INIT POINT4 AS •
• PO[NTER TO PREV• -[OUS EXTENT •
.AND ZERO SWI TtH.

• CONVERT $V$XXX •
TO SYMBOL It •
•
• UNIT ADDRESS •

••••• NO··

•

-NO

-....:

·····H2··········

LAXERR

.. .. ....

ic

.YES

·Bl •

.-0ic ••

·ET •

04
••
•• VOL. ••
..SER. NO. EO •• YES
..PREVIOUS VOL .- ••••
•• SER NO •••

.....

• STORE CURRENT •
: Cfi~l ~~MI~;~
- OF tABEL AREA FROM WRKRGI •
•

•

..~..

.YES

: ••• ~~.!!~~~! ••• :

................. .................
....
•.X.:-2 :.-.
.-.x
.... .... .....x ........ ....

•

cs

IS
••
YES..
THIS
••
• •••• TRACK FULL ••
••
.H3
••

••

* •••

• OUTPUT EXTENT ..
•
TO VOL AREA •

•

•
•

X

._._._0__ ... _-0-.

.. ..
NO.

••

: •••••••••. x:

.....F2··········:

X

C4

.-.ic

••
BIN ••
NO.. NO EO..
••
•••••• PREVIOUS BIN ••

i

••••
Fl ...••••••BF••
_StANR3

:

••

SET BITS 3 •
OFF AND 4 •
ON IN
..
JBCSW4
•

X

ER.

•
CONVERT 82
• TO BINARY ·IN
WRKRGI
•

• RTN. STORE IN •
•

•

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

*POINT2 FOR SCAN-

.-................-

• •• YES

-....-

: •••••• :~! ••••

ic

-UPDATE POINTERS-

•

•

·YES

ic

••

.. ..

.!..

-

XTUN! T
X
• •••• BS··········
: A1N~~I='~=G'o :
:sTA~lv~F Ak~:EL :

••

• ~~.:.y~I~RWYabs. : .
•• UNIT
••

X

·····03·······

D2
-•
•
•• VALID ••
X
NO.. LENGTH
••
•• •••••• -1 CHAR••

-fiELD OF L BEL.
:
AREA
:

.-.x

_ 5

•• E!.

.-.x

......Ot···ic ...•••••

• STOR SERIAL • NO. N XT ERL •

B4

--....--

-

.- THIS

: 7

ic

....

--....
....--

-]

-

... x:-

6

.
:

-K4

1. BI T 3 OFF INDICATES
LABEL BLOCK.
2. BIT 5 ON INDICATES
ONLY AN EXTENT OR YOL.
STATEHE~T HAY FOLLOW.

:

:

Appendix H. Detailed Flowcharts

371

Chart EK.

TPLAB, and DATE statement Processors-- $JOBCTLJ;
Refer to Job Control, Charts 09, 10

.......
-ac •

:

x

···..Sl··········
...................

TPLAB

ffI····B2··········
I

... INVALID STMNT ...
... ERROR ROUTINE ...

*.

-·....-.
-.x.

:.:~2.!~.~~:~~~.:

....

• 2

.-.x *.
ON ••

••

X

•

o

INDICATE ONLY.
A VOL STHNT •

:.. ::~.~2~~2~ ..

.*
* ••
.YES

..··.02·······.··

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

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

:

-aUILD COMPLETE ...

BiiT3J3~~Wt~

•

TO WR]TE

:xx .•....•..• :

.-.

*.

BEEN
.* ••• .o
-.PROCESSED.·
*.
.o*
* ••
-YES
*ET

-

.....
.-x

X

•

•

LE~GTH TO 60

CHARACTERS

•

•

: ••• !~.~!!~~! ••• :

*

• E4·

.....FI.··.···.··
....
X

:~~~~~~-.-

DTSERR

-2~:

POINT TO

...

OPERAND

...

-FILE 10-

..... F2···.···.··
.-fI ................X

• SET FILE TYPE.
• IN FIlTYP TO •
.A T TO INDICATE.
TAPE
•

•

.............. Q •••••

* •••

.*

04

••

-.

8

•• ,",0 X

•• CHARACTERS IN ••••••
•• LENGTH

••

·YES

·····E4··········
X

·BL •

NYSERR

• HOVE DATE TO •
.COHHUNICA nONS.
•
REGION
•

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

-COMREG+O-

x
.....
•• B! •
.BB •

-

CONTROL

(
\

·BB •
• B1·

CONTROL

•••••• AN APOSTROPHE._

*.

x
.. .-. .. .
........ .....
x
•• .e:.

.....x
-..

GI··· *.
• * IS -.
NO .. THE 1ST CHAR ••
0.

........

•

·····E2··········
..
SET DATA
•

EI
-.
.o* HAS *.
.. '" VOL STMNT "'.o NO

C4

.-x.

••
DID ••
•• A BLANK •• NO
•• STOP THE
••••••
•• SCAN
••

:

•
INDICATE A
a
.LABEl IS READY.

... CARD IMAGE IN ...
*eUFFRl, BUFFR2 ...

•
:

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

X

• ... ··01 •• • •• •••••

BF.

POINT TO
OPERAND

·YES

:~2~~~!_._._._~~:

X

.SCANR2

•
:

••

~H ~B~ijw~b·.

NO

.* .....

X
·····84•••••.•.••
.-.-.-.-.-.-.-.-.

DATE

.

:·····C2·······

TPLEND

-.SPECIFIED.-

•• E~ •

:

HOVE SHOR T
•
.STRING TO LABEL.
- SAVE AREA AND •
.PAC WITH 1-0' S •

-ADDRESS OF THE ...

• CONTINUATI
....
CARD

1

i

TSHORT

...
HUTIAlIZE
...
ItlINKRG4 TO THE ...

Cl

.·sc·.
....

- -

..... E~.

(

••

-YES

x

:!NjT~lLiirREG·:
...

PO]NT4 AS

...

-POINTER TO THE ...
... LABEL STORAGE ...
•
AREA
...

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

•*

..

•*

Jl
*•
SHORT * •
STRING
*. YES

..

*.49 CHARACTERS ••••••

•••• ••••
.NO

. .
X

0 •••

:

1

:

x

K1

.'.

fl.

• ••••

K2 ••••••••••

•• LONG -.
•
HOVE STRING •
•• STRING
•• YES
• TO LABEL SAVE •
•• ~~ CHARACTE~! •••••••••• X: Ne ~~~~iNG
:

....
fl.

••

• NO

:........... X:x

NVSERR

,til • • • •

oOL •
•• E~.

.

.

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

....x

- : 2

:

(
372

DOS System Control

Chart EL.

SET Statement Processor-- $JOBCTLJi Refer to Job
Control, Chart 09

.....
..

_

• Be ..

.. E3*

'" .• '" ..... x:

~.
:SET

it . . .

*A2
THi: OPERAND POINTED
TO BY THIS

x
-It'" AI" ** .......... .

*SCANR2

SCAN MAY

X

8E DATE, CLOCK, UPSI,

LINECT, RCLST, RCPCH.

*··*·AS·····"*"'··
* INIT. WRKRG3
•
*WlTH DIB TABLE *
*ADDRESS, POINT4.
* WITH SYSLST *
* DIB ADDRESS

BF*

lI--*-*-*-*-*-*--li-+
.POINT TO CURENT*
..

*

OPERAND

*A2
.............
_* ••••

* ................ ..

.. B2

••
••

Bl

.'. ••
DID

-It.

AN EQUAL

-.

...

NO

•• SIGN END THE ••••••

~

IF THE YEAR IS A
LEAP YEAR THE
COMPUTED JULIAN
DATE IS INCREASED
BY 1 BEFORE IT IS
STORED •

1:13

• •• x...• *

SCAN

.*. *.

L INECT

84

•*

- . ..
*.* ..

* ....

>

*YE S

-

... NO

...

...

• * •••••••• x...

DATE

*•

1

*
*

UPSI

•*

SYSUPI

*.

01

LENGTH

*.

x
.......
*

1

X
*. *.

* •••

4

it • •

.**** 03·** **.****
*SCANR3
SF •
*-*-*-*-*-*-*-*-*
*
POINT TO
PARAMETER
-NN*
** ** ** * .. * .. * .. *****

...

*

"YES

ES*

*-*-*-*-+-*-+-*-*

X

.>.

*.

COMREG+79

.. *

*.

it • •

x

* ... ** F 3**"*******
*NUMCON
ER*
*- .. -*-*-*-*-.-*-*
* CONVERT PARAM it
*
TO BINARY
*

x

.. DAY AND

.
it

STORE

IN COMREG+ 85
*B2

-II-

.

..
-11-

G3·*·

......

_EM ..

****+****.*.***** ..

.

J3*

* *
*

x

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

it • • -11-

.*

.. YES

-lI-*.*"it

"BB

.. Bl-

*>*
CONTROL

:YES .*.* VALUE
*.
x ...... LESS THAN
.*
*.
30
.*

SY SUPI 1

•*
*

*** ..
1

*. * ....

*NO

X
05· .. •

IS
LENGTH
4

.*

NO •
• ••• *..

•*

* ••
*
"YES

X

*****J 3**********
.COMP NEW NO. OF*
*REMAINING L INES*
* ON CURR PAGE *
*FoR JOB CONTROL-

:~~!~*~!;~;*;;*~:

IS
OPERAND
RCPCH

*. * .... .*

.-

*.

DIBRC
X
**_* .. E5 *_* _* lI-**_*
BF*
*SCANR3
_-*-*-_-*-*-"-"-iIPOINT TO
PARAMETER
it
-NNN..
* ....... * .. ** .. ** .. * ... **

x

X

• *.

F4·*·

F5
....
.* SCAN * •
TIMER
YES
NO. * ENDED BY
-•
*.
EXCEEDS
.* .......... *.
BLANK DR
.*
*.23.59 .. 59 .. "
COMMA
•>

•*

* •• +

... *YES

>NO

X

.. +* .. *G4.**** **** *
.. CONVERT TIME TO*
*SECOtllOS, MULTI-*
* PLIED BY 300 . . .
* RESULT IS IN *

G5

• * IS
*.
.. NO • * P ARAM AT
...
x ••• *LEAST 3 CHAR IN*
*. LENGTH
.*

*.

:*** .. ~~!~r;* .. *+ .. :

**

x

*..

:x ............ :

x

*

* .. ***H3* **.**** .. *
* SAVE OLD LINE *
*
COUNT AND
*
*SToRE NEW COUNT*
*
IN LINCNT..
*
* -CoMREG+78- *
***. ** *** ....... ****

*

*YES

** * **E 4********* *
*8INCON
ES*
it_*_*_*_*_*_"_*_*
* CONVERT TI ME
*
TO BINARY
HH/MM/SS
*
**** ****** **** ** +

*
*.+*****lI-****
.. ***

*

*YES

... _ *.G 1" •• " II- • • _ .. *
*COMPUTE JULIAN *

.*

* ••
*
*YES

X
04. i t .

*.

NVSERR

E3
*.
..
• .. SCAN ...
X NO .* ENDED BY
••
•••• *BLANK OR COMMA ...

F2
*.
.* SCAN *.
..
• * ENDED BY
*. NO
X
*BLANK OR COMMA.* ...... .

IN SYSQAT,

*.

*****

. *.

*****F 1****** •• *"
STORE DATE
..

• NO."
X.. ....

**BLE4l1-•

*

... ** * .. E2" ** ..... * •• *
"SCANR3
BF*
.-.-.-*- .. -*-*-.-*
* POINT TO UPSI *
PARAMETER
..
-NN"'NNNNN*** * ** ** iHI ** ** .* ..

.CONVERT DATE TO*BINARY. MM/DO/ ..
*yy OR DO/MM/YY it
-lI-** ******* ** ** •••

"YES

x

x

X

*****El***·****··
*BINCON

02·

X

*···*C5 .. ·***····*
.. SET POINT4
•
.. AS POINTER TO *
.. SYSPCH DIB
..

x......

.*

.*
FIELD
•• NO
*. LENGTH EQUAL • * ...... .

NO

EQUAL 4

*NO

X
C3..
• CHKTIM C4· .. •
•• FIELD ••
••
•• LENGTH
*. NO
NO ...
EQUAL 6
••••••
CJ,.OCK

*. *YES

• * FIELD *.

... YES
.* . . . .

* ....

-NO

:SLINCT

...

C2· ...

*•

: SYSDATE

IS
OPERAND
RCLST

. ..
* •• *

:x ............ .

Cl

...

B5·*·

•
-II.
NO
.*
110 FOR *. YES.
.* ........... x*.
SYSLST OR ••••••
*. SYSPCH ••

• 1

.-

X

.*. *.

• * OJ SK..

.

X

*****H4****** .. ***
*DIVIDE TIMER BY*
"256 AND ADD TO ..
"PREVIOUS RESULT*

* ******* ..... **** ..*
***

X

.. ** ..
1

.*
*. "YES

*

X

*"***H5**********
*NUMCoN
ER ..
.. -*-*-*-*-*-*-*-*
.. CONVERT RC
PARAMETER
TO BINARY
*
** ******** .. * .. * * ... *

X

** ..... *J4 .. it * **_* ..... *
.. STORE RESULT *
.. IN SYST TIME
*
OF DAY
*
.. -HEX LoC 54- *

*"'***J5**_* .. ****iI*STORE IN SYSLST*
...
OR SYSPCH
..
018+14

******* .. _*** .. ****

******* ... ********

•

*

-

:......................................... :X ......................... :x ......... ~ ................ :

Appendix H. Detailed Flowcharts

373

a

Chart EM.

UPSI Statement Processor-- $JOBCTLJ; Refer to Job
Control, Chart 09

.....
-BC ...

... • E~.
o

·...-.-.-.-.-.-.-.-*
·.81··········
:..
....
X

UPSl

*SCANR2

...

SF •

POINT TO

...

...

OPERAND

;~~~~~~~~;

*** ••

*EL ...

... F2_
o

x

Cl

'O*.

DID

*.

*.

.*.x

SVSUPII
r.2
*.
'O* VALID *.
'O* LENGTH
+. YES

• •••• C3 ••••••••••
... INITIALIZE ...

A BLANK *. YES
... REGISTERS FOR ...
STOP THE
•••••••••• X.I-B CHARACTERS •••••••••• X.SETTING 6ITS ON_
*. SCAN 'O*
*.
'O*
• AND OFF
...
-.'O*
*El
...
*. 'O*
_. 'O*
•••••••••••••••••
-NO
-NO

'O*

*.

'Ott

0

o

*......

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

o

:

0

2

:

..

o
'
•
... 1 _'Ox.
... ....... i

UPSICH

YES.*

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

•*

*.

03

.*.

••

IS

-.

THIS

CHARACTER
AN X

*.

...-

.it

*.

'O-

'Oo

oNO

oel

POINT3
WRKRG3
WRKRG4

....
....

: 2

0

:

X

E3-·-..

E4··· ••

.....
.... *

...*
••••

'O*
IS
-.
'O* IS
-.
'Ott
THIS
*. NO
••
THIS
*. NO
..
*. CHARACTER •••••••••• X.. CHARACTER •••••••••••• " ••••• X.
••
AI..
••
A 0
••
• YES

*YES

·*···F3··········
o

•
•
•

..--.E!.x..
--

x

:BTONRT

(

BTOFRT

ic

•o .. • •• F4·· ••• •••••
•
•
AND BIT OFF
•
USING MASK
:
IN WRKRG4

0

OR BIT ON
USING MASK
IN WRKRG3

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

o
•••••••••
*•••• _••

-BL •

o
NVSERR

: •••••••••• X:X •••••••••••••••••••••••• :
X

NXTBIT

.. ····G3··········
• SH I FT WRKRG3 •
AND WRKRG4
•
• RIGHT ONE BIT.
_ro CONTROL NEXT.

: ••• ~~~!.~!! •••• :

·····H3··········
X

•
INCREMENT
•
• POINTl TO POINT• TO NEXT CHAR • OF UPSI PARAM ..

.................
o

•

..

J3

.0.i

••

..

••
LAST
+. YES
•• UPSI CHAR ••••••
•• CHECKED ••

........ .....x
oNO

....
....

• EL *
••
H!.

i

o

• 1
•

•

•

o

SETEXT

0

(
374

DOS system Control

RSTRT Statement Processor-- $JOBCTLJ; Refer to
Job Control, Chart 09

Chart EN.

....

. .
a .....

: 3

..··.Al··········
·.................REG! STER

•
<

*

·
.
.·................
··"'··A4···"'·"'····

:
INITlALIlE
:
.. ERROR LINKAGE ..
..

•

ic

X

RSTRT

....

-• 2

:

• SAVE FILENAME.
:
IN FILNAM
•

.- ..

...

*

- 1

: •••••••••••••••.•••••••. X:

.·····Bl··········
-.-.-.-.- . -. -.-.

ic

ic

*SCANR2

·····S2··········
:-poiNT-Yo*lsi*-:
-SCANR)

SF-

.. POINT TO 1ST
..
OPERAND
..
-SYSXXX-

..

..
..

..

x

*.

END THE
SCAN

* . .+*

.*

PARAMETER
-NNNN-

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

..

x

C 1·--· *.
•DID *.
.- A COMMA *. NO

_.

•• ••INIT
·.B4REGISTER.
.... ••••••••
•
POINT4 AS
•
•
POI NTER TO
•
.LABEL SAVE AREA.
•
+ B BYTES
•

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

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

C2" *. i t .
.* DID -.
NO .. "
A BLANK -.

.* ••• x••••••• OR
*.

it • •

-YES

ic

........

COMMA END .SCAN
.-

*..*
* ... *

x

02 • * • ••
•• VALID ••
•
NO •• LENGTH 1-4 *.
• ••••••• CHARACTERS
••

EQ*

_CONVERT SYSXXX ..

..

TO SYMBOLIC

.. UNI T ADORE 55

..

..

...

·.....Fl··········......................
..

RANGE 0-9. THE RESULT

• VALIDITY CHECK.
.AND CONVERT TO •
• BINARY

OF THE B[NARY CONVERS[ON [S [GNORED •

.

..

POINTER I N .
WRKRG3
•

X

X

.-.-.-.---...-.-.-.

... • ... ··F2··········
.SAVE CHECKPOINT'"
... NUMBER. RIGHT.
... ADJUSTED, IN •
...
CHKPTN
•

······F4
LBLOUT ... ••••••••••
EP

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

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

OUTPUT LABEL

.-.-.-.-.-.-.-"-A
..................
•
CHECK THE
•
ASSIGNMENT
•
• FOR THIS UNIT.

OF SYSRES

...... ....x
· .
-NO

:

ic

• <.

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

X
••••• J 1••••••••••

·-.

·VES

•
•
•

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

·
.
·......................
··....
.
•
BLANK PHASE
• NAME 10 CHAR
•
-PHSNAM+7-

ic

•

1

•

*
•

it

•• E! •

. .-.-._._a-._._._.

• POINT TO 2ND
•
PARAMETER
... -FILENAME-

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

*
NVSERR

.RELEASE SYSTEM •
• AND SET SYST • •
•
MASK TO FF
•

•
...
•

*J5
1.

ic

ic

••

·····J4··········
...INIT REGISTERS.
• 0 AND 1 FOR •
•
FETCH
•

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

•• DID ••
•• A BLANK •• NO
•• END THE SCAN ••••••

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

·YES

·x'.

o

[S SET TO
S CONTAIN-

MBOLIC. UNIT

NIT AND

2•

·J5

ic

K2
••
.... VALID ••
•
•• LENGTH
•• NO X
.1-8 CHARACTERS ••••••
A.

a ••••
.BL •

X

·····H4 ••••••••• •
*MTNCNT
BK-

:x .......... :

x
•• .. ··KI··········

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

•••••H2·· ... ••• ... •••
"'StANR3
BF.

J2

:

·····G4··········
.PROHIBIT WRITE.
• OPERATION ON •
• SYSRES.
PIe •
•
• ASSIGN FLAG,
•
81 T 8 OFF
...

:

X

•-.-.-+-.-.-.-.-.
.....................

HI·.
•••• UNIT •••• NO
•• ASSIGNED
••••••

3

....

: 4

ic

G2··· *.
010 ••
.... A BLANK •• YES
•• ENO THE LAST ••••••
••
StAN
••
••

....

. .

.. TO VOL AREA ..

X

X

SAVE PUB
POINTER IN
PUBAOR FROM
WRKRG4

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

:x •.•....•.. :

NLUERR

•••••
G1·· .. •••••••
• CHKASG
BK.

•
•
•
:

ic

·····E4··········
• SET BIT 1 ON •
• IN HTRSVD TO •
• INDICATE LAST •
:SEQ DISK ENTRY:

*ET ..
* .8~.

ic

COMPUTE LUB

TO VER[FY THAT EACH
CHARACTER [S OF THE

:~~~~~~-.-.-.-;~:

.E3.
..... .................

* ••
.. YES

..

'E3
THIS SUBROUTINE IS USED

••••• E2··.·······

*. *. NO
*.A PROGRAMMER .* .....
•• UNIT
.*.
.*
ic

...

.YES

ic

••

SYSXXX

OTSERR

-

ic

El

ic

"'ET •
• E4'"

.. .....

.YES

._.*

X
•••• *

•• IS
••
..CHECKPOI NT •• NO
•• UNIT A SEQ •••••••
-. 01 SK
••

••• *

• 4

"'YES

04··· ••

................. ....x .. .. ....
·· ..
.'.
_CNUNCO

.'.ic

C4
••
HAVE ••
• LABEL STATE-*. NO
*. HENTS BEEN • * ••••
·.PROCESSED.*

.*

-YES

.•••. D1··········
.-.-.. -. -.-.-.- .

ic

LOADRS

SF-

.. .. ....x
.. ...x . ·- ..
••

• •• a

•
•
•

•••• K4••••••• • •
SVC 2 FETCH •
B-TRANSI ENT •
-SSBRSTRT..

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

.YES

• 4

: 2

•

:

Appendix H. Detailed Flowcharts

375

Chart EP.

.. 'II • •

Subroutines-- $JOBCTLJ (LBLOUT, and CONCAT)
Refer to Job Control, Charts 09-11

Al.it •• * •• _.

****A4*********

LBLOUT

CONCA T

**
*

'II ..

a

EQ 1

BIT

it..*
* •• *

*

.. "

..

.* ....•.. .oX'"
..

*****B3**** ****.*
* SAVE DATA LNG *
*
IN WRKRGI.
*
• ZERO KEY AND
*
*
DATA LENGTH *

****82*********
RETURN TO
CALLING

S EO

... * •• * ... ** .... *.4-*.

*

................. X
X
11-

....

SET BLOCK NOT
PRESENT FLAG ...
ON IN JBSCW4,

a

BIT

..

x

C2

• JIS
...
LABEL
YES
....
MODE
.* .....
·.STANDARD .*
0*

*

** ***C 3******* ***
*(,TMXHN
£:R*_*_*_it_*_*_it_it_*
GET MAX
* HEAD VALUE

* ... *

*NO

x

x

..... -It".'COMPUTE
11 0 1 *** ... AND
* ... ***
...

** ** *02* ** ** ** ***

.STORE BYTE

* INCR HH BY 1 *
*AND SET RECORD.
NUMBER TO 0
*

'II-

..

*

CNT ...

*

IN WRITE AND
VERIFY ccws

...

**

*

** ** *B5 * ** ****** ...
*RESTORE BUFFER *
FOR ERROR
*
LOGGI NG
ONLY

*

*

3

x

X

** ... **B4****** ... **'"

•

* ... **

Sll_VE 1ST CARD *
* I MAGE
IN BUFFRl*
*
FROM BUFFER
*

************ *******

NO

*****C1**-***·
..
..

*

X

81
* ..
• * LABEL *.
.*BLK PRESENT •• YES

.... -JBCSW4,

1

x

*****C5******* ... **
*
UPDATE REGS
*
*POINTl, PDINT2 *
* FOR SCANNING *
*
BUFFERI AND *
*BUFFER2
*E5*
****** ... ******** ... *

X

X

*it****D3it-l!-tI-**** it***
WRITE EOF ON
.. All BG TRACKS *
EXCEPT
TRACK 0

X

* *** * *C4***" *** ****
RDSTMT
8G
**REAO-CONTiNU:**
* AlION STMNT *
I NTO BUFFER
******.****.*

X

*****04**********
* MOVE OPERAND
*
FIELD FROM
*
..
BUFFER TO
BUFFR2

*

****05*********
RETURN TO
CALLING
SEQ

***************

.*

E1

IS

.-THERE

*. *.

ROOM

ON TRK TO

.... HOLD LBl .. '"
-It.
*HZ .*
'II • •

x
* ****E 2* ** ** ** ***
*GTMXHN

NO

*
•

** * * ...... * ** 'Il*ililiI.'Il*'Il

*

*

* 2

X

F 1 •• *.* •• ***
STORE NEW
it

*

WRKRG2

..

* ... *

*NO

x *.

G 1" ••

x

INCR WRITE

* *** *G2* ** ** ** ***
*
COMPUTE NEW
*
*RESIDUAL COUNT it
IN WRKRG2

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

*K2
**** it**. * .. ** ****.

• it-lt it it

..
..

it • • • "

UPDA TE HHR OF
SEARCH ADOR.

RECORD NO
BY 1

*.

lOG
ON SYSLOG

*.

.. *

*.

.*

NO
• * .....

* ••
*
*YES

0

WRITE LABEL
IN SYSRES
*
VOL AREA

*****
*ET *
* E3*
* *LAXERR

*

0*

**.x ..

****
•
DPLBNF
X
*-IHI-*** F 3***********

RESIDUAL CNT
...
_IN REHeAP FROM ..

..

**.*

*E5
THE COMPLETE RECORD,
STMNTl AND STMNT2 IS
1~gC~G~~gR~~ BUFFER1

E4 .*. *.

*SET KEY LENGTH ...
*
TO 8 AND
...
* RESTORE DATA
*
LENGTH FROM
•
*
WRKRG1
*
•
** *** ••• _******* *

GET MAX
HEAD VALUE

:x ................... .

.* .*.
*
*

ER*

1>-1>-1>-*-1t-il-*-it-il

.* •.•.

·YES

RSRMCP

x
** ... *E 3**********

X
******F 4***it*** ****
LOGOUT
BE
**-*-*-*-*-+-*-**
lOG
STATEMENT ...
ON SYSLOG
******.******

:XO
x

x

:~!~;~!-*-*-*-~~:

* SEIZ.E CONTROL *
*
* OF SYST. SET
*SYST MASK TO FF*
** ***************

0

0

0

0

0

0.0 0:

G4 .*. *.

** ***G3"'********·

.*

*.

0*

LOG
ON SYSLST

*.

NO
.* .....

* ...
*
*YES

·:.HZ······ . · . · .
RESIDUAL COUNT LESS
(CURRENT BYT E COUNT
TIMES 537, DIVIDED BY
512, PLUS 821 EQUALS
NEW RESI DUAL COUNT.
IF NEW RESIDUAL COUNT
IS NEGATIVE, THERE IS
NO ROOM ON TRACK.

x

'II"'.
**H 1 ... *********
*MTNCNT
BK*

*-it-*-*-*-*-*-*-it
-RELEASE CONTROL.
OF SYST. SET
*
... SYST MASK X'FF'*
* ......... ** ....... * .......... ***

...

x

* ***H3*"'*******
RETURN TO
CALLING

**** ... *~~~* ......... ** *

*J2
THE MAXI MUM HH VALUE
I S COMPARED TO THE
CURRENT HH VALUE.
CURR'=NT HH CAN NOT EXCEED
MAXI MUM HH ..

x

***** J 1** ... *******
*
INITIALIZE
*
REGISTER 1
*
TO POINT TO
*
SYSRES eCB
*

*K2
RESIDUAL COUNT MINUS CURRENT BYTE COUNT,
THAT HAS CALCULATED IN WRKRGI IN *H2.
K1·*·
.* IS
.... THIS THE
... NO
* .. F IR S T RECORD .. _ ••••
".oN TRACK .*

.....

1

.. -

· .
* ...... *

x
...........
• 1

376

•

*

•

2

•

*

DOS System Control

X
******H4* ... ******* **
LSTOUT
BE
**-*-*-*-*-*-*-**
LOG STATEMENT
... ON SYSLST ...

x

•
*

** ... *
3

*
•

*
*
*

** ... *
3

•

Chart EQ.

Subroutines-- $JOBCTLJ (TXCUU, HEXCON, and
CNUNCO); Refer to Job Control, Charts 09-11

..····AI···. ··••..

,. •••• A2 ........... ...

...

TXCUU

*.·.

... .. • ..... A4* .......
CNUNCO

HEXCON

*

•• ** ............

.

Xl:

B1

.*. *.
6

*.

."CHARACTERS
*.
IN

62

..

NO
.. NO.*
........ x. ••••

it.

-..*
* •• -

.o*

•• LENGTH

.it

*.

B4

*F3

-.. -

:··················· ... 0~Y8~~~R

..

CONVERT HEX

...

:

CUU TO BI N

•

TABLE FOR

X

*···*C3*··***.···
•
SET POINTER
•
* POINT2 FOR
..
* $YSIPT TABLE •
•
ENTRY
•

*
•
...
•
...

SEARCH FOR

•

cuu

...

••

*

.*

••

El

.". *.

*.

TABLE

..... -.*

.*

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

-YES

I

·····Fl. . ····.•·.
...

SAVE DEVICE

.*

-

oo.

*.

•

IN

••

TABLE

* •••

oo*

••

•

X

••••••••

****-E5**",,*"· •• •
•
SAVE
•
•
PROGRAMMER
..
•
UNIT NUMBER *
IN UNCLOR
:
:

• ... * ....... * ......... ..

:•••••...•••..••••••.•••• x:

............ F2*···· ... •••
RETURN TO
*

CALLING

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

1. FIRST TWO CHARACTERS
MUST BE X'

2. LAST CHARACTER
MUST BE I.
lAS IN XICUUII

UNTFND

**· ....

X

····*

.... •CLASS
..
.SET F4*
UNIT
..
AND SYSTEM
• CLASS IN SAVE
•
AREA UNCLOR
*
"'H2

..
...
*
...
..

.* ...... *.......... ..

F5

...
IS
it.
• NO ...
UNIT
...
X......
NUMBER IN
...
...
LUB
...
..TABLE.·

x
........

* .....

"YES

...

THE SYSTEM CLASS, NICL AND FICL
PQ]NTER, IS seT TO A 1 IN
UNCLOR BYTE O.

••• ·Gl ••• ••• ....
...
RETURN TO
...
CALLING

NLUERR

X

•

...* •••• ~i~ ••••• *

.. ···64 ........... • .. •
RETURN TO
CALLING

•
*

• •• * •• *~~~ ... * •• * •
-H2
1. UNCLOR, BYTE 1t THE UNIT CLASS 1

k~~ ~~b~~~~f I~ l~~ f~~E! I~~sBfB!HE

2. UNCLOR, BYTE 0, THE SYSTEM CLASS,
NICL AND FICL POINTER, IS SET TO ZERO
BECAUSE THE ROUTINE IS WORKING WITH

A SYSTEM UNIT.

'H4
1. POINT! IS
INCREMENTED BY
3 TO POI NT TO THE
FIRST CHARACTER
OF xxx.
2. POINT3 IS
INITIALIZED TO
A 2 AS A CHARACTER
COUNT REGISTER.

.'.x

.. "

·ET ..
* B2"

'G2

'Hi
1. THE DEVICE TYPE] S
SAVED IN DVCTYP
FROM THE PUB.
2. THE PUB ADORE SS IS
SAVED IN REG I STER
POINT4.
3. THE PUB POINTER IS
COMPUTED IN WRKRG3.

AND CONVERT
TO BINARY

·YES

*F3

•

X

•
•

E4
*oo
•• UNI T ••
FOUND
.oo NO

••

•• * ................. * ....... .

X

:;2!~!;~; ••• :~;.:

:--CHEC;-XXX-*-·

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

•

.' .

x

* -

.. pure

X

·"··"05·""*"*·*··
*NUMCON
ER*

•
•
*
..

..* ..... ** •• ***.*.

PACK HEX
TO BINARY
IN IORGSA

*
DNEERR

.. TYPE AND PUB
...
... ADDRESS. COH- ..
THE PUB
..

i

o

*ET ...
* B3*

X

TXCUU2

: ••••• *:~: .......:

LOOK UP SYS
UNIT IN
..
SYSTEM UNIT
• TABLE 5YSUTB

:**.... E2***.* ...... :

*.

C4

0

*
NVSERR

DEVICE
*. NO
*.FOUND IN PUB .* .....
it.

.*

* ...... 04 ......... * •••

·YES

• BL •
• E4*

,.

PRGUNT
.......... C5 •• ********
IS
*INIT REGISTERS *
THIS A
*. YES
*FOR PROGRAMMER.
.oo
PROGRAMMER • * ... oo . . . . . . X.
UNIT.
*
..oo
UNIT."
.. 5Y5000-SY5Z55 •
...

..

x.....

-DESIRED DEVICE._

...

CHKPGU

FDSYSU

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

. .

X
• *.

-NO

02
•• CHECK *.
• NO •• FOR CHAR
....
RANGE
.*
•• FO TO FF .*

•

x

••• * •

* ..... *...

.x'. .e

X

• •••• 01 ••••••••••
...
SEARCH PUB
...

OTHER

.*.* .... :

o
o

** ........ * ••• *... ...

••••••• ** ••••••••

* .•.

·oo.ooSYSXXX

X

...
•* ... • ... ·C2·
CONVERT
• EBCDIC TO HEX
* AND SET UPPER
•
ChECK LIMIT
TO FF
•

••

.. ..

.'

·······*

X

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

.'.x

SYSIN •• ··SYSIN,

o.

_YES

·····Cl-·····.···

..

••

VALID
FORMAT

-YES

TXCUUl

. *.x

X

G5 .......... • .. •• ..
*.. • .......
SET SYSTEM
•
•

CLASS IN

BYTE 0 OF
UNCLOR

: ....* ...... :~; ........... :

X

..... HS· ......... * ...

RETURN TO
CALLING

.. ...........;;~*...... *.

Appendix H. Detailed Flowcharts

377

Chart ER.

Subroutines-- $JOBCTLJ (UPDSAV, LNKOUT, NOMCON,
and GTMXHN)1 Refer to Job Control, Charts 09-11

(

\

·····A4.·····.•..

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

Ott.ttAl·It~ •••••

:

•• •• A3·· •••••••

UPDSAV

:

:

. . ."e ••• Qt:jo .....

LNKour

:

•

NUMCON

••••AS.········•

·.n.............
•

•

GTMXHN

-B2

1. THE OLD BLOCK COUNT,

x
: '••• 81 ..........:

:

8l~~E~S~~T

:

o

*82

•

mmE~SW~~m IN

2. NE" BLKCNT EOUALS
OLD BLKCNT PLVS 1

••.., •••••• 0. . . . . 00 • • •

·C2

1. THE INITIAL VALUE
OF BLKCNT ISO

X
....
otlC1···
..••••••
ecmlPurE
ADDRESS_
"

OF NEXT

"

oAVAILkOlE AREA"

:IM~~~ OUT~g~ :

o.... o._•••• •••••
~

•

2. 9LIML~~N~6u~R~RGl'

o SPLACEMENT ~N
OUTPUT A
3. DISPLAC
PLUS
OUTPUT A
ARlING
ADDRESS
I,
S OF
~~~~L~V
E AREA

····Dl••
SYC

X
7 ~.·····
WAIT -

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

.····C5···.······
•

SET UPPER HH

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

•

-ASSUME NO

:

X

:"O~~JTt~~~'NT

"

"
"

BUFFER

TO SYSlNK

OUTAUT AR EA

"

"
•

.........0 ...........

BLKCNT

•

VALUE TO 9

•

:

•

MUL TI

:.~~22~~~~!~2; •• :

······03··········.
X

04

...x

••

•• CHECK ••
••
FOR
•• NO

.~::~~2-._._._2!'.

••

OUTPUT

" FOR PREVIOUS •
" 1/0 ON SVSlNK "
• • tt . . . . . . . . . . . . .

·····El··········:

i

X

•
SET OUTPUT
"
-BLOCK COUNT IN "
"
CNTno FROM "

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

• STATEMENT ON •
SYSlNK • Gift.

CHARACTER ••••••
•• RANGE FO ••

....

•• TO 1=9 ••

x

i

•
ZERO BLOCK
•
: COUNT t BLKCNT :

•
•
•

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

INTO
IORGSA AND
CONVERT TO
BINARY IN
PACK

•

: •••• ~!~~~! ••••• :

05

...i

••
IS
it.
HUL T I
i t . NO

PROGRAMMING ••
·.SUPPORTED.·
••

.....

.it

·YES

• el •
• E4·

···.·E4.······..·
•

.....
.
i

·YES

: •••• E3 ••••••••• :

••

••

••

"'VSERR

i

: •••• E5 ••••••••• :
•
•

SET UPPER HH
VALUE TO 3

•
•

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

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

.... F3·········
i

•

...

....

RETURN TO
CALL ING

~~~~~~~~

•

·G4

SYSlNK OUTPUT AREA IS

322 BYTES ST4RlING
AT CNTFLO

(
378

DOS System Control

Chart ES.

Subroutines-- $JOBCTLJ (DOP34, XTOP12, XTOP34,
and BINCON); Refer to Job Control, Charts 09-11

.. •••• AI ......... ..
..

...... AZ ......... ..

• •••• A3 ••••••••••

XTOP12

DOP34

X

•
•

...............
XTOP34
·JZ

• •••• A4 ••••••••••

•

•

X

X

BINCON

..

X

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

·····B2··········
::~~~~~.-.-.-~~:

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

:.!!~~~~~~.~2:. •••

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

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

x

x

X

.···.Bl····.·····
*SCANR2

BF-

... POINT TO 3RD
..
OPERAN[}

..

•
•

-CR DATE-

POINT TO
OPERAND

..

•

x

•*

.. *

Cl

. *.
DID

*.

A COMMA

*.

•• END THE SCAN

*.

*. NO

..
. *.*
* •• *

NO .. '"

.o*

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

C2

. *.*

*.

*.

C3···..
C4··· ••
•• DID ••
.w
DID w•
•• A COMMA •• NO
YES •• AN EQUAL ••
•• END THE SCAN ••••••••••••• SIGN END THE ••
Woo
••
••
SCAN
••

-.

.*

*..*
••• *

x

02

• •.

••

VALID *. *. NO X NO.* .... VALID *. *.
LENGTH
.* .••• X......
LENGTH
.o*

• -5 CHARS -....

.. CONVERT YEAR

....

X
.NUMCON
ER.
.·····E2··········
-.-.-_.-.-.-.-.
•
•
•

•

CONVERT TO
BINARY IN
WRKRGI

x
.•.
••
9

..

.
X NO

•• NO

.'.x ..
..
x.....

X

E4

:~~~~~~-.-.-.-~~:

•
•
•

•
•

CONVERT TO
BINARY IN

• NO.*

•

:....~~~~:!.....:
*
:

X
·····Fl··········
·..................
•

·KZ

•*

··.··GZ··········
• STORE BINARY •
•
VALUE IN
•
• EXTENT SEQ NO • •
•
-XTSEQN•
•
.K5
•

•
:

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

•••••••• * •••• * •••

HL

.'.x

•••• •YE~·

•• ~.*.
: 1

••• *

X

·····Jl··········
• STORE BINARY •
• DAY IN DACRDY •
•
FROM WRKRGl •

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

.KZ

X

•
•
•

····HZ·········
RETURN TO
•
CALLING
•
SEQUENCE
•

...............
'J2
1.
2.
3.
4.

••

*.

•

a•

••

••

X

• •••• F4··········
.CONV PARAMETER •
• TO BINARY IN •

:

••••• G3··········
•
SAVE Bl IN
•
SVXTB BUILD •
•
.EXTENT INFO IN •
•
• LABEL AREA
FROM WRKRGI •
•

•

...

.. •• *YES..

:

.*

••

••

VALID
FORMAT

R~giN~~! NI~6 :
:.~2!~!~ •••• :S~.:

·ET •
• EZ·

X

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

X

····G4·········
RETURN TO
•
CALLING
•

......

••• ;5~~~~~; ••••

....

: 1

:

X

•

•••• H3·········
RETURN TO
•
CALLING
•

..a~~~~~~~~

....

THIS ROUTINE IS USED TO PROCESS THE LOWER AND UPPER LI.MIT OF EXTENT
STATEMENT.
THE VALUE OF 81 IS SAVED IN SVXT8 FOR THE CALLING SEQUENCE.
mt6~.a~.~~~2L~~~L SIm~ IN THE LOWER AND UPPER
C2C2C2 IS CHECKED AGAINST THE MAX. CYLINDER NO. OF 199.

mh

x
.....
.BL •
• E4·

* •

NVSERR

•

•••• Kl·········
RETURN TO
•
CALLING
•
SEQUENCE
•

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

:

•
•
•

1

•• *.

••

x · · •..•..
•••••
.NO

X

••
IS..
•
•• BINARY
*. NO X
•• DAY 366 OR ••••••
•• lESS
••
••

F3

NLSERR

X

x
• •• *

. . ..*.

••

..•. .NO
.•.•

•

..:~~~~~~-.-.-.-;~:
*..Gl···*·*····
CONVERT DAY
TO BINARY

x
...

BINARY
•• YES
YES..
IS
•• VALUE GT
••••••• X.. •••
EXTENT
•• OOFF
••
•• ZERO

X

•
:

....
FZ

.. STORE BINARY ..
• YEAR IN DACRYR •
•
FROM WRKRGl •

••

8

.YES

• •••• E3· •••• • ••••

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

x
.. ... ..
•...
....
04

••

.YES

·YES

..

03

...*
.. ..

*..*

·.................
TO BINARY

••

..

.NO

'C5
1. IF PROCESSING THE
DATE OPERAND:
POINTl CONTAINS HM OR 00
POIKT2 CONTAINS DO OR MM
POINT3 CONTAINS yy
2. IF PROCESSING THE CLOCK
OPERAND
POI NTl CONTAINS HH
POINT2 CONTAINS MM
POINT3 CONTAINS SS

•• CHARACTERS ••••••••••••• CHARACTERS ••
•• IN LENGTH..
..IN LENGTH ••

*.1-3 CHAR ....

X
·····el··········
:~~~~~~-.-.-.-;~:

••••
••••

.YES

.YES

*.

·····B4···*······
.SCANR3
BF •
*-.-.-*-.-.-.-*- •
•
POI NT TO
•
PARAI'tIIETE R
•
•
•
·B5
•

• PT. TO OPERAND.
• LOWER AND UPPER.
•
EXTENT
•

* •• -

*..*
* •.
-YES

..

*.

THE SCAN

x

• *.

0[0

A COMMA

* . . . . . .*

-YES

01

.. *.

••••• B3· •••••• • ••
• SCANR3
OF.

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

...

.85
1. MM/OD/YY
2. OD/MM/YY
3. HH/HM/SS

.K2
THE REGISTER POINT4 POINTS TO THE CREATION DATA FIELD
IN THE LABEL AREA WHEN PROCESS ING THE CREATION
DATE. IT POI NTS TO THE EXPIRATION DATE FlELO IN THE
LA8EL AREA WHEN PROCESS ING THE EXPIRATION DATE. THE
CALLING SEQUENCE UPDATES AND RESTORES POINT4

'KS
WHEN
CALLI

THE

?~Sl~

THE EX
NUMBER

Appendix H. Detailed Flowcharts

379

'ED-D3
EE-F3

....
...
·

·.......
!~;f~

·····01.·.•.·....
i

POINT TO
DESIRED

•
•

MESSAGE

•

-lA20D-

:

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

:

.....
••E!*
.

*'EN-El

!~;~:

NOT ERR

(

Error Routines-- $JOBCTLJ (NDTERR, NLUERR,
DNEERR, NDSERR, INAERR, NLSERR, LAXERR, and
OTSERR); Refer to Job Control, Charts 09-11

Chart ET.

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

NLUERR

i

•

POINT TO
DESIRED
MESSAGE

•

.

.
.................
.
-!A40D-

•

X

PCINT TO
OES IRED

-EB •
• H3*

*EE •

•• G~ •

·····83··········

ONEERR

.....
...

.....

*EQ •

•

.
.................
.
~ESSAGE

-lA500-

·..·.84··········
.·...............
.
.
i

NOSERR

•

POINT TO
DESIRED
MESSAGE
-lA700-

•
•
•

·····as··········

PNPERR

•
•
•

X

POINT TO
DESIRED
MESSAGE
-IC30A-

•

.

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

oA

-EG-83

.....

·.....

·
i

·····EI··········
POINT TO
•
DESIRED
•
MESSAGE
•

•

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

-It 10A-

.....
·

:

~.

·····E2··········
..................

NLSERR
•
•
•

X

POINT TO
DESIRED
MESSAGE
-llOOO-

(

eN-"
.......
.. .

EH-K5

~~:!~

-ED·
•• G~.

INAERR

ED-Bl
ED-B3
EF-C3
EG-D5
EH-D4
EK-El

•

LAXERP

i

•

POINT TO
DESIRED
MESSAGE
-lLI00-

·····e3··········
•
•
•
:

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

OTSER.R
i
·····E4··········
•
POINT TO
•
DESIRED
•
MESSAGE
•
-IS100:

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

: •••••••••••••••••••••••• X: ............................ X: ................................ x~

·OL •
•• A~.

Oi:RRTN

.....
•.A:*
.
·Sl •

ERRRTN

(

380

DOS System Control

)

Chart EV.

Initialize and Return to Fetching Routine-$$BLSTIO; Refer to Job Control, Chart 05

·................
o •••• A3 ••••••••••

•

SSDLSTIO

•

x
:.oiN"o,ALiieo •
•

TRANS ENT SW •

• BANKT TO OFF

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

STATUS
-HEX 00-

•

•

•

X
···..C3·.········
•

GET

•

• COMMUNICATION·
•
REGION ADDR •

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

FROM LOC
HEX 16

•
•

X
····.03··········

•
•

GET PIe TABLE.
ADDR FROM
•

:R~a~~~NJfOIISg

.................:
oE4

i

·····E3··········
•

GET ACDR Of

•

L. T .8. CONTAINS THE ADDRESS OF
SAVE AREA WHERE REGISTERS
HAVE BEEN SAVED BY THE
SUPERVISOR.

• LOGICAL TRANS.

:=~5~E~lBLjIBrE·:

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

-PLUS 72

-Elt-

oF4

X

·····F3··········

REGISTER 15 IS THE BASE REGISTER
mT~m w~mN~ouHNa~ NOT

•
RESTORE REG •
09-14 FROM SAVE •
: AREA PLUS 16 :

•
oF4
•
•• eo •••••••••••••

X
·····G3··········

•

•

RESTORE

REG IS TERS

0-8
FROM SAVE
PLUS 44

•

•

.................
x
.....
00

0

•• H~.
o

oH4

RETURN TO THE ROUTINE THAT FETCHED
SSBLSTIO BY BRANCH NG ON REG L1NKR2.
L1NKR2 WAS LOADED WJTH THE" RETURN
ADDRESS BY THE FETCHING
ROUTINE. IT WAS SAVED BY

mTa~~gRX~S~~isl~orrfNE.

Appendix H. Detailed

~lowcharts

381

Chart EW.

Build Print line in Workarea Subroutine-- $$BLSTIO
(PUIF)~ Refer to Job Control, Chart 05

(

··•....•............
•••• Al •••••••••

•

PUIF

•

·····B1···......••:
:
X

•

LOAD BASE REG •

~~~=f~TwJ~~

......

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

AOOR FROM

•

TPU8ADD

•
•

:

·····el··..·.··..
UNPACK AND
TRANSLATE
CHANNEL AND

.....03..........

X

-CONVERT LOGICAL-

•
•
•
:

•

.................
•-

w.

*.

.'.x

•
•

...

.... .-..

UNIT NO. TO

EBCDIC IN

•

NO.*
-x ••••••••
*.

.*

*.

TLUNIT+3.

-SVSXXX FF-

•

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

04

X
.w ••' •

SYSTEM

w.

CLASS
-0-

w.
._

*.. . . .*
w• • _

-YES

··············x...

'. w•

IS
DEVICE
OOWIII

•

•

•
:

: -0, 1, 2, 3-

."...01··········
• _ ~l

LOAD WRKRG3

• WI TH LOG leAL
•
UNIT CLASS.

. ¥ ••••••••••••••

• MOVE CHANNEL
• AND UNIT TO
•
TCHNL AND
:
TUNIT

X

...

•
•
•

IN :

:UNn"~~Fr~Y

:

·····C4··········
...................

PUIF~

X

•
•
•

1

w. NO •
.w ••••

._

••

••

·YES

..

••

E2

••

IS

..

.. ......
DEVICE
TAPE

PUIFS

••

X

: •••• E4 ••••••••• :

•• NO

• BlJllO LOGICAL.

••••••

.................
• UN IT POINTER
:
IN WRKRG3

.YES

•

~

····.F2···.••····

·····FIt·••••.•··•

:.:~~.!~2~!.!: ..:

:.~l~:~~S~~~~! •• :

X

(

X

•
MULTIPLY
• POINTER BY 5
:
TO ~l~~~OPE

:UNPACKl TRANS- :
'LATE~
NO STORE.

•
x•••••••••••
x··························•

•
•

:

x
PUIFI

Gl

•••

••

•• PRO~~~~~ING••

.. ..

••••

'NO

.-

• ADD SYST UNI r •
• TABLE ADDRESS •
.TO OJ SPlACEMENT.
• FOR LOG. UNI T •

:cOM~H~Eo5~~GENT:

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

•• ENVJRONfilENT •••••••••• X.

••

X
·····G4.••.•••••.

• ••••G2 ••••••••••
YES

•

•

..OVE OWNER
J 0 TO TOW"

.J2

•
•

•

:.~~~:.l:.!~~~~.:

. •••••.••••••••••••••••••••.
xx

·

PUJFT3

•••
• ~JNGLE...
: •••• H2 •• n •••••• :
•• AsSIGNMENT ' . YES
• MOVE ARGUMENT •
•• ••
•
•••••••••
X.
XXX TO TlUNIT •
-K2._ +3, SYSXXX· _

....
.. ..
x
··....
......
• NO

• 1

•

X

.

••• ·.HIt •••• • •••••

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

•

MOVE LOGICAL

•

+3

•

.UNIT TO TLUNtT •
•

: ••• -;~!~!=!; •••• :

: •••••••••••••••••••••••• X:X •••••••••••••••••••••••• :

POINT1 .. CLASS 0,1.2 OR 3

x

6WmEME2¥NER

3. OWNER TABLE + 015PLACE"ENT ,., ACDRESS
OF OWNER 10

• ••• J] •••••••••

•

RETURN TO
CALL ING

•
•

•... ~i~~~~~~ •••• •

'K2
THE SWITCH. TPROGSk, IS ON IF
A SINGLE A.SIGNMENT IS BEING

G~O~m~~NTAI~I~ml~i~~G~~ENT
THE OPERAND SYSXXX.

(

3-82

DOS System Control

Chart EX.

Identify the LISTIO Operand Subroutine-- $$BLSTIO
(FNDARG); Refer to Job Control, Chart 05

··..........
• 1

i

··....-•..........

FNDAlIGl A4 .'. _.

....Al ••••••• ...

•

""DAR'

:··i~2a·~;KRG···:

·...................
E

.-.X

i

C3 ,., e,

_.

••••

''0 •• ,;oiX~~A1NG

• ••• YES

-.-, .-.-

-. -. ,- .-

'NO

-.

O~I~aNO

-. VES

··......
i

• 2

.

x
'.

•

NO •• h·ef~lkII!·.
""IIiG••
RON"E~T ••

••

•••• O,.,AND ••••••• :

-NO

.]

Ii

••

•• YES

•••• DP'IAND ••••••• :

'NII

••••••••••• 1 1
• 1

Ii

• 4

•

- -

·····!I··········:
·..................

:
•

•

I~

~~KIG'

Lui COUN¥
TO 4

-

•

•

•

••

.

I NCR "RKRG4
RKR8Y44eQ

•

.
.
.................
• ••••C5 ••••••••••

RKRG4
X:_ ...I NCR81..:Q

XYES ••
•• NO
•
•• •••••• OPE~ONO ••••••••••••

•

12- :

KR

x· ........ ••••• .. •.... •.. ••

...
....
. :0 .
....
.................
.....
•
.-x·... •• ...... •.... ·........
iNE=.WRK;G:•• :
-. _. _,.*
O'5:
:
•
.
·-....
'.
.......
-·····F5··········.
·................
.
....
.
·.X.
·.".-......
' ..
·-..•..............
.... . 0"

XYES..

••• •••••

••

• •••• 0' ••••••••••

OPERAND •• NO
•
INCR ..RKRG4 •
DOWN
•••••••••••• X:_WRKRU
16- :

••••

-. NO

: ••
•

BY "

•

AND •••••••••••• x:-~=~D~: ~~s~~x
OPERAND
•

-YES

•• VES

••

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

x··························

C4

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

.. ..
........ ....x
·· ... .-. ..
.. ..
.. ..... -.....
..... ·.....
.....
G1

:

• •••• 85 ••••••••••

•• NO

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

* •• *

••

••

x

••

°C=H~D

.-

'YES

.-.ic

I NCR WRKRG4

x··························

..E4

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

•• •••• ENY

F1

ves ••

-YES

-.
..··.NO..•••••••....:

.••••
•-

.'.x

14

.

-. _. DPlrsND ._ .................................. X........ ~N¥ ROHMEN!. ,-

01

:

.-.
....
... 1- .:
••••••••....•••••••••••• X:_
.•................
.·•......•..•..........
x
:- LUX ~oiYlTsd
:_
2

X

el

-, _. NO

:••••••••.•••••••••••• ops.rt ND •••••••••••• x: -WRkll."EQ 4- :

•

1~llmm

FNOAR"
• ••••A' ••••••••••

-..-,-.-

YES ._.-

•••••• 1••••••••••

E

•

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

• 3

KEY]
•
:

KEn

•• x.

X

INCR WRKRG]
BY 1

•
:

x

: ••••G5 ••••••••• :

•
•

I NCR WRKRG)
8Y 1

•
•

--....-.
-..
• 2

KEYl

•• X.

x

: ••••H5 ••••••••• :

•
:

INCR WRKRG3
IY 1

•
:

.
.................
:........................X:

·····J5··········
AN.

EXIT

X

•- LOAI
yN , LOGIIAL
CLA 5
• O'~6 ,. OR

••

:....~~!!!!.~...:

.....
.. .
Ii

---

* J3*

Appendix H. Detailed

Flo~charts

383

Chart EY.

Build Header Subroutines-- $$BLSTIO (PSHRTN, and
LHRTN); Refer to Job Control, Chart 05

• •••• Al ••••••••••
:

...............
PSHRTN

:

x

: •••• 81 ••• ' ••••• :

:

• •••• A3 ••••••••••
:

...............
LHRT"

•

X

·····B3··········
-COMPUTE LOGICAL• UNIT CLASS IN •
•
WRKRG4
•

ib~~~RIfg

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

:...:~::!::::...:

X

X

:

BLANKS

•

·. ···Cl··········
...................
•

BUlLO

oB4
SYS EQUAL 0
BG EQUAL I
F2 EQUAL 2
F1 EQUAL 3

•

• PHYSICAL UNI T •
:
HEADER
:
•
aCI
..

oC4
SYS EQUAL HEX 70
BG EQUAL HEX 64

·····C3··········

.. LOAD WRKRG4
..
WITH O[S.. PLACEMENT TO
-tCRREtT HEADER

•
•
•
..

F2 EQUAL HEX 98

FI EQUAL HEX A9

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

:

:~~

004
HEADER ADDRESS EQUALS

X

·····C3··········
.. LOAD WRKRGlt •

• WI TH ADDRESS
•
OF CORRECT
•
HEADER

•
..
•

•

•

.................
*D4

ML~MI~WE6~mfs

OF REGI STER 15. REG.
15 IS THE BAse REGISTER
OF THE SSBLSTlO
TRANSIENT.

oE4

x
: •••• E3 ••••••••• :
•
•

MOYF HEADER
Te BUfFER

•
:

....... ......:
:~:

.

.

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

•
•

X
·.. ·F3.········
RETURN TO
•
CALLING

•••• ~~2~~~S~ •••• •
oGI

CHNL---~

384

I T----OWNER--I/O UN) T----------MODE

DOS System Control

1 svS HEAOER ••• -SYST EM-•••
2 BG, HEAOER ••• -PROGRAM- •••
'3 F2, HEAOER ••• -FOREGROUhD2-•••
4 Fl, HEAOER ••• -FOREGROUND1,:", •••

Build Print Line Subroutines-- $$BLSTIO (SULB,
and SEUOB); Refer to Job Control, Chart 05

Chart EZ.

··.................
...... AI-.........

•

S1JLB

o •••• AIt ••••••••••

•

:

·

.

x

ic

: •••• C4 ••••••••• :

ClE'-R ./0

•

•
:

:•

..,...............
oJl

•
•
•
•
•

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

•••••·••
:.w··C1··
':8y~u~\¥NI~ :
!¥~~~=~~

ISTERS
3 EQ
ADDR
EQ
POOR

•

• Il10 . . . . . . . . . . . . . ..

:•

:

olNIT
•

•
•
110 BUFFER •

• 0

SEUDB

·····B"···X ..·····

ic

:.,. •• 01 ........... :
•
~OAO WRKRG3
• " TH ADDRESS

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

BUFFER TO
BLANKS

•

•
:

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

ic

X

:-=~el·~#Nj···:

••••• 04 ••••••••••
• MOVE CHANNEL •
TO BUFFER
•
•

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

: •••• !;~~!~ ••••• :

:

THt#~=~llIN

:

•

oJ1

•

El

••••

o.

o.

x
.0.
D.
IS

•

SUlBl

•••• NO

LUB
•••••••••• X..
UA.o
o.

• YES

•

:

MOVE •• UA..

Tg~~~:~2~N

.0. o.
IS

• •••• E3 ••••••••••

LUB
JGN

.... ....

••

•

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

:

X

MV~ELC~~fHjN

:

•

:

BUfFER+20

:~~

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

F4

•

:

BUFFER+20

:

·Jl

•

• •••••• :~; •• *••••

••

.:. DE~icE

..

•

2 BVTES

.-.
....
..
.
·:.~~~ ••••• X:TOMV~E J98W~NIT:

X
.····Fl··········
•
HOVE
TUHJT
TO LPUNJT IN
BUFFER+26

•

•
HOYE UNJT
•
• TO BUFFER FROM -0
:
TUNJT.
•

•
•

•
•

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

·Jl

~gvfc~~rN\N

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

:

·····F2··········

:

:

•

TCHNL.

X
·····E4.....
·····

SULB2

•••• NO

.YES

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

E2

••••

.... ....

X
......FI·······.··

fROM

•

•

••

....
* •• *
DOWN

• ••••FS ••••••••••

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

.F IELD IN BUFFER.

••

-NO

i
·····G3··········
•
HOVE THODE
•
LHODE IN •

i
·····G4··········
•
BUILD
•

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

• REMAINDER OF

•

•

•

•
:

TO
BUFFER+33

:

• PRINT LINE IN •

•

·Jl

•

:

...... ......:
BUFFER

:~:

:x ••.•.•••..•••••••••••••• :
:•••••••••••••••••••••.•• x:x ........................ :
•

..

x
·... H3·········
RETURN TO

CALLING

•

•

•••• ~5~~5~~~ •••••
-J~

1. MOVE OWNER TO OWNER FIELD
MOVE MODE FROM TMODE TO MODE FIELD
3. MOVE LOGICAL UNIT FROM TLUNIT TO THE

z.

4.

A6eEU~~~ ~m~NT FROM TCMNT TO THE
COMMENT FIELD-MODE LESS 6 BYTES

Appendix H. Detailed Flowcharts

385

SUPVR Macro-- General Entry; Refer to supervisor,
Chart 12

Chart FA.

••••e':•••••••
..................
.
iAH=Rft~T

:

:

•
•
•

...
•ch"I:···
ic

.. TUR

o. -D5

.0

··.y~S

.....
:GI1:
..
ic

...............
SUPERVISOR
CALL
INTERRUPT

•
•
•

x
.....
..

•
•

•

····S3·········

...............
PROGRAM
CHECK

INTERRUPT

ENTSVC

." - •
e3

oO_ USER ooO
•• PROG CHECK WoO NO
D.

ROUTINE
••••••
WoO o. *05 ._ .-

x
.....
O.A:_

o•• _

ic

...

:FEo:
• 82-

-YES

,-,
oO_ 03

.:*

-

-oO OoO

o. *05 ._ ••

-NO

x

,-,
E3

oO- USER

-oO

WoO

INTERRUPT

..

WoO

VESX

ROUT JNE . 0 • • • •
o.KEV
o. *05 ._ ._
o •• _

-NO

F3

,-.x

WoO

oOINTERVAL-.
..
.0
TIMER
WoO YESX
D.
ROUT
D.
-05INE .o_ . 0 .......
w.

o •• _

._

-NO

.....
•• B!*
x

-GO·

ENTPCK

DOS System Control

-...............-

.••....H!x •
-FY •

..!
••
.FE •

HACHEK

ENTIO

Mt~~t~E

INTERRUPT

•

-.-

• 84 •

-05
SUPERVISOR GENERATION
OPTIONS (FOR ROUTING
IN FLOkCHARTS I

(

o •• _

386

• •••• 85 ••••
110 ••••• •
•
INTERRUPT
•

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

~~g~:gf .:.!~~.

WoO

• 0
WoO

•••• B4 •••••••••

_Fa •

x

ENTEXT

ENTEXT

:•

•
•

•

x

*GH •
• 82-

R D. NO
•• o.tiER
I TiPT ••••••
KEY RTN ._
.0

····B2·····•.••

..!..

eGR •

•• B;*

-

ENTPCK

Chart FB.

)

FOPT Macro-- General Cancels and Program Check
without User PC Routine; Refer to Supervisor,
Charts 14 and 16

.
INT'C"

I

•_

AI •••••

.. ..

...

• El-

·:

.
·.....................:
i
• •••• 81 .......... .

i

:····Ia·,i;y·····:

CA~hf~rEl

'RIi~'I= T~

•

L EXIT •
LOAD'
• RORM HECK.
•
LO P ..
•

x

••••• £2 ••.•

:

.. .-

eYES

.02
SOP,RVISOR
GEN RATION
OPT ONS

x

:Nm·Gm~.

'AT 'CltKSIl
•
'111 PROG CHECk •
'!!!TIRRUPT RTII, •

.

CANCEL
DOe AND
AVE REGS

•
•

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

F1

.'.x

•

••;RI!8HtING
••••••••
NO
OPTION

••

-.

.....-..
-02

••

-YES

i

:-;;9i6-~iiEL·-:

X
:···E~'A8lisH···:
'UTVf A~ IiANEEl.

--.-.-.-.-.-.-.-.

·.................:
:'fi;:
..

•

: EXtN

X

__·_._tt-._.·._tl_.
..................
:GElFP~toaRi=ESS:

'BEiNG CANCELED •

A~B:S

i

.'.
i

•EBAS8····

NO .FllE PR TEtT' •

ERRGO

........

• ••••• OR DISK 110 ••

••

.D2

••

'YES

F
•• R

.'.X -' .'.

..... .' .....
:•••••••••• xi
..
··....
.
.....
.:·I~

'.

- '0••••••
BRANtH
K

TCH.·

·NOP

::eTptA·······~;:

:

X
.....03··········
FE.

'GENENT
•
GET PIS

:PCHKSW

••

.~S

~M t~Ks .
:
.:...............

.

....
-.-.-.-11-.-..-.
• S1RE

CA~!i i'riEL

·..................:

.X •••• .,••••••

X
:~Ls~I·······'8:

X
·.....5.·········

:tNLS6i·······,i:

•

:.................
AEiOISiEa~o :

:li.'.Iit.:Jl.•

•• x•

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

X

•: 'UNT
.1_ 10.
AND 11
hx nNE
RAl

• 1

:

:···;i~E·RE;;···:

FI~E U8TE~t •• NO
• 6 R 2ni ~YSTE".' ••••

HUt
.....
.....1"to
.
..
··....
..
....' .
•

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

cA·····

··u:~li.iJ'!' ...

e.

.:'e. cCC!lfRta
.10..':.:~~..
i
··.10
:;j.:

• 1

i

• FL •
• H2 •

•

• •••• G5 ••••••••••

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

CNLsve

•

X

: ....Hl.........:

PiSNTO ••

·....................
•
LOAD
• ADORBSS
•

REG 1

•

:x•••••••.•• :
X
:"·Lglo*:Oo;···:
•
OF EXT02
•
•

INTO REG 9

•

:

FOREif,ERAL

:

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

X
:;;e=ta·······G::
.-.-.-.-.-.-.-.-.
'SAVE REGISTERS •
: FORpliftUm ED :

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

x

:ftd··llXahTjH···:
•
2ftl Elh •
• aBRIss
.....
---..........
i
.....
•

RaG 8

...

IN

•
•

EltRGO

:Fi2:

appen1ix H. Detailed Flowcharts

387

Chart FC.

FOPT Macro--General Cancel
Supervisor, Chart 14

Subroutine~

......
....
•

:

eFB-OS, 1(1

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

CANCEL FLAG

TO

'LOAO UBEOJ3 •

.-ez.'. -.

:

X

SET X'40' •
•
IN PIa

•

1

·····84··········

ic

•
•

(

......
....

·····B2·······

ERRGO

Refer to

•

o
•
• RESET LOGICAL •

• TRANSIENT KEY.
•
TO a IN
•

•

: •••S2~~.~~~~••• :

ic

w•

VES.-

••••••

CANCEL

IN

-.

-.PROGRESS
a.
._ .-

.-

w• • _

'NO
'03

··.........,.........
.... 01 •••••••••

•

ERRSEl

•
•

POST
IN PIB

.'.

•

CANCEL CODE

•

CANCEL FLAG

w.

•• p~~~~IAMI~G
••••••••
YES
w.
OPTION

-. -..- .x
··....
......
•

2

•

••

E2

.'.ic

w.

-.

04

.'.ic

••

SVC ••
•• NO
•• ISSUED
•• BY LOGICAL ••••••••••••••••••••
·.TRANSIENT.·

........

•
•
•
•

.YfS

ic

OPT [ON

• • _ .-. w*03
eYES

.-

·····F2·······

ERR SET

X

•
•

SET PIB
FLAG TO

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

····ES·········
BRANCH .TO
•
EXIT ACDR
..

.!~.~~~.~

....:~!.

x

x
.. .'. ..
••
........
..............
....
•
:••••
2 :.X.x
·····G4•••••••.••
.. .0. ..
..••G!.~.. ........ .... :...... ......:
F3

•

: X;I~~6 ~A8S
: •• ~~~.~.~~~~2·
• _ G2

.'.

w. w.

w• • _

•
•
:

•• CANCELrD ••

..~.w

• YES

G3

SET 8-TRAN
BIT X'SO'

.G~.
o
SUPCNL
SETL T2

o•

•

•• LOGICAL •• YES
•• TRANSIENT ••••••
•• ACTIVE ••
'NO

• FV •

ic

RESTORE

REG 10
TO ADDRESS
OF PIB
TABLES

•

B~~Eca~C~tB.·

•

·FV •

o.

ERRSET

·····HZ··········
•

: •••• FIt ••••••••

•
X

EXCHANGE

• LOGICAL TRAN
• AND PIB SAVE
• AREA POI NTER

::~

j(

'NO

•
•
•
•

••

• • 8ACKGROUND •• NO
•• PROG BE ING ••••••

•

••
SUPVR
w. YES
w.
BEING
.w ••••
a. CANCELED
w.
._ ••

o
: 1

•

•
•
•

0

:

o
SUPCNL

····H3·········
X

•

•

•
•
•
•

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

ic

•••• H4 •••••••••

...............
BRANCH TO

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

•
BRANCH TO
•
• EXIT ADDRESS •
.IN REG 8
.J4.

•

•
EXIT AD DR
•
-IN REG 8
.J4.

oJ4

aJl

..

PROGRAM

J2

.'.ic

••

EXT02 I S THE EXIT FOR
LOGICAL CANCELS AND

..

NORMAL EOJ.

DEQUEUE IS THE EXIT FOR
LOG ICAL 110 CANCELS.
SEE CHART FB.

•• LOGICAL •• YES
•• TRANSI ENT ••••••
•• ACTIYE ••

....

•• ·Jl ••

....
ic

'NO

•

....

: 1

••.•IlGK2·········
j(

•

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

: I ~X

388

•

:•••.••••..•• x:

ic

OWN THE LTA

•

• REseT LOGICAL.
•
TRANSIENT
•
:CONTROL SWI TCH :

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

•

£~~lel~~

X

: •••• E4 ••••••••• :

-•

.*MULTI- w.
.ePROGRAICMING*. NO

-. *03 ..NO

OPTION

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

•

.i x•••••••••••••.

El

~~mxm~

······OZ··········.
i

:ERRSETO

BRANCH TO

•

ABDRE S~J4:

DOS System Control

0

:

.G5

REFER TO NOTE .82

ON CHART GN.

)

FOPT Macro-- General Exits; Refer to supervisor,
Chart 12

Chart FD.

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

EXT03

:;ve;tl·······GX:
~~jiiiiiiiiiiq
.................

•...
·......
..•
• 0

I

m~1I ~ 2 nit 'G21
B~ P OGRANj HE TRT
I
OPERAJ
NOT STOP
AT lH
H
PROal
EN

X

:••• ;BI~·~i·s···:
fi~TERM'

_.

Nij

• TO

eYES

·.....
• 3

X

NE •
AchyE •
003:

'HAGHE~T

'.NO
••••••

N

8! IIIfa.

R

-..
:BO~Ng JRa~~
-. -..-...- ....
x .................
·.
OPT

~~9r=

ro

I

X

4··· •.
.' 8~

X

EXECUTE

•• ANCEL ••
T X'40' ' . YES
••
N IN Pia ••••••••••••••••••••

•

_BRANCH INSTRUt-o

.

:TI~~TI~EH~yUEST:

•

D2

• NO

X
·····D4··········

-.

i
.'.x ..
:···s~f·w:ij·· •
..
•:.
.. ...... .....x ..............
..,....
••

AI~5~IA~N .:.!:~.

•

EXTERNAL
OLD PSW

•

.....

••

l'

'.

.:·:'YC~~rl~~~ .:.~~! '"

-......~.. .-

TO

I

81'

TO ••

ERS •

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

L8~0 .tReM~S
TO REG 1

•

x

i
•••• F3 •• •••••••
• lOAD EXTERNAL •

: Q~KI~S~TI~IER :

..

·FZ •

i
.. .'. -.
.. .. ....

.. .'. ..
: •••••• OP!ij" ••••
............... .....
.. ......
x
.. .....x

X
.·.·F4·.··_····
: ~RaR =ax :

F5

NO ••

·GL •

SVC02

QUiSIO

••

o •••

'NO

o.

• YES

SUPEXT

.Gk •

••R! •
SVC02

.:..........:
: •••••••••••• X:

•

••

MPS

• 81·

••
$UPYA
•• YES
•• INTERRUPT ••••••

··.!.........
04

:

•............
RUll .
..RX2G.

•

...............
i
.....

··.ND

G2

-.

•

s~~EcA=IA

x

• C1·

.'.x

REGN ERA

• SET Pia FLAG'

: •••• E5 •••••••••:

.

.'.x

G1

•

X
.····05.······

CNCl

·GX •

F2
••
•••• QUIESCE O. a. YES
o.
1/0 PIa
••••••

.. ..

BIT ON IN

•

••

'NO

••

•
•

ALLaNO

••

PIa

MOVE OLD
PSW FROM

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

oNO

·.....

•
•

:

-.. -

E2

:

....

··.~~~IL....

•-. YES
-. ALL BOUND ••••• '" "' •••• '" "' •• '" "' •• '"
tI.
o. PIa ._ . 0

.....

•

o7M9aUIIl'

·.................
...................
.••••••••••••••••••••••••• x;;.
.- .'. -.

a• 3

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

I
.....•R~dT
,......
.
DB.
:X'21'~ ~EG
..............

EXTEOJ

THO!.

R THE

••••• C2 ••••••••••

•

-RUP ED PRAM. •

PI

•

•

••••• C1 ...... ••.•• •
•
EXECUH
•
',RAVCH INS Rut-.
• 10 IN IN ER- •

•

··..........
.
• I

oa3
F THI fYSTEM HAi BEEN

'"

EXT02

81 •••••

.'

w.

··•....
..
......-.X.

X

EXTOl

:aLi
••

.H4
SUPERVISOR GENERATION OPTION

X

:·····H3·······
m ~~W·.
: I~A~jY~E •••

·: RgmR&S .:
·.....................
x
....
·.....
X

...... J1 ••••••••••

•

• 2

0

•

..............
.
··......
' .

x

:··~E~2:~D:ESS··:

• OF ~AYE AAEA
• FRO HIGHEST
:
At lYE PIB

•
•

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

:.

• 2 •• X.
••• c
•
lNERA
X

:.Ri!1tRi
:;i~S··:
l NA XESN •
•
•

IN
ON

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

NtTIAL

"TRY

•

•

·........x .
• 1

•

•

0

Appendix H. Detailed FloNcharts

389

Chart FE.

FOPT Macro-- General Entry; Refer to Supervisor,
Chart 16

(

110 INTERRUPT

.....
.--

.....

_FA.
• Cl-

_FA •

•• B~ •
o

····.84••••••••••

EHTEXT
X
•••• 82 •••••••••
•
LOAD P$W
•

:

..
MODIFY
.. GENERAL EXIT

...............
.,IT~L5x~ECNAL

i

ENTIO

:

:

•
•

R~HIAN~ I~O :
: •••• 2~2.!!~ •••• :

-C3
SUPERV ISOR
GENERATION
OPTION

·····C4······.···
i

:SAVE REGl STERS :
..

•

9-11 UNTIL

GENERAL

•

•

: ••••• ~~!! •••••• :

····.04•
i

•••• D2 •••••••••

•
•
o
•

-:...............:sul~BMINE

EST
JNTR

IN

SUBR

HE

: •• ~!~~ ••••• ! ....

.xx•••••••••••••••••••••••••••••••••••••••••••••••••••.
.-.

w• w•
• _ E2
• _ MULTIw. NO
w. w.PIlOGRAtIIMJ
OPTION NG._ .* ••••••••••••••••••
a. w•
*e3
._
•_

(

\

-YES

i

GENENT

•••••FZ ••••••••• •
- ~S~ PIK FROM _

~~L M

:&8:

~~

:

.................
:
•

INiERRUPTEO P B IN REG 10 •

.-.x

oNO

·····HZ··••..•...
X

......--.......
•
•
•

IN
PIB FLAG
8YTE

•

•

•

•

GET AODR

:c~R6~li=R~:~ED

•

GET ACOR

OF SAVE

•

•

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

•
•

AREA FRGM

•

PROGRAM P18

•

BACKGROUND

•

x

:
•
•

X

STORE
ItEGISTERS

•
•

:...~!~!.!:~:...:

.••••••••••••••••••••••••• x..
GEH2

Ri~,sI~RS

STORE

•
:
•

•
SET ACTIVE •
• 8IT X'Oll I" •
Pie FLAG
•
•

DOS System Control

: ••••• ~:!! •••••

x

• LOAD ADDRESS •
• OF HACKGROUND •
:
~~98R:~GP

18 :
.................

.

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

X

RiTURN TO
NK ADDR

x

SAVE AREA

.

····KZ·········
.!~.~.~.:....:~~.
•

: ••••• !~;~ •••••• :

•

: •••• J3 ••••••••• :

FROM
PtB

•
GET AD DR
•
OF PIe
•
.FOR INTERRUPTED.

•
:

·····Jz··········
.

~REA

X

: •••• G4 ••••••••• :

: •••• H4 ••••••••

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

•
•

GENI

: •••• H3 ••••••••• :

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

390

·VES

X

..-...POST..

S&TT·~IAY'·.

.0 •

F!
*.
•• BACKGROUND •• NO
••• tN~~~~D:~ED•••••••••••••••••••••

•

•••••••••••••• •••• -. fLAG
EO .*. IN PIe .-

:

X

..
........

..

·····G3··········

G2
w.
•• REGS -.
YES ... ARE SAVED w.

GENI
X
......H1.·....••

GENENT

•
•

oKS
REGI STER 9 POINTS
TO INTRTN
CHART ON-AI

Chart FF.

SGTCHS Channel Scheduler (Part 1 of
Supervisor, Chart 15

.....
...

3)~

Refer to

-GH·

• J2*

.sve

SVC15

•:-

.....
.·.
sve

.a.ic

A2

•_

_•

·~~PERyl SOR

15

~~ftre

.:.!~~.

_oo a. fULL ._.-

0

a •• _

-GH •

.NO

• JZ*

.....x
...
• FD •

• Cl.

•.•..8Z··········
ic

•

CLEAR REG 0

•

•

TO INDICATE

•

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

NO CHANQ

•

•

OVERfLOW

·

•

.

••••••••••••••••••••••••• Xi

SyeDO

.:*ooo

o. FULL ._ .o•• _

.....
·
.

• _ .-

:

:

MPS

o.

·:....3 ..
:.X.

t3

•
•

AESVC

ic

-oo -oo

._

._

NO

.0••••

•
•

CLEAR RID
CREG 6)

-YES

-oo

·....
.....
ic

Dit

E3

••
••

REG 6

: ••••• !~!~~ ••••• :

••

:

oo.

ic

••

STORAGE
PROTECT

•• NO
••••••

STOR

-oo

•

OF tta

•
•

CLEAR PUB
AD DR FROM

ic

••

:

•. ..·AIt.. .•
·NO

~x •••••••••• :
J!

••

•••• SUPYR •••• YES

•• INTERRUPTED ••••••

• I

•

:

• .PROTECT OR •• YES
DASD FILE
••••••
•• PROTECT ••

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

ic

i

·FG •
• G2·

H3
••
•• STOR
••

U~~

'NO

•

.•.x

······H2···.·.····
:iAO' .
:

.. ..-.......
··......

•

•
•

·..................
.....
...
BYTE 7

EXCPb

•
•

.................
REG 3

:

·NO

IN REG 6

•

x
: •••• G3 ••••••••• :

•• YES
••••••

GET SYMBOLIC
UNIT ADDRESS
FROM SUPYR

• eca,

•

: •••• ~22~~~~ •••• :

G.

MPS
OPTION

•

Ri~~E~l~R

•
•
•

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

.. ... ..
.. .. ..·AIt......

.'.

WITH

ic
••• ··FIt··········

GX •

:EXCP4 (MPSI
•
.Exep2 (NO MPSI.

ic

J2

LOAD REG 6

:X •••••••••• :

.:-VALIOATE·ENO·-:
....F3··········
.YLDAOR2

aYES

G2

·····EIt.·········

•

•••••• !~!2! •••••:

X

Ooo

• *PROTECT OR *oo NO
ooo
DAse FILE . 0 • • •
a. a.PROTECT
-A4 ._ .o •• _

••
••

....

.

.

F2

••

DASD FILE
••••••
•• PROTECT ••

.

·YES

•• ••••••• ••• • XXX . . . . . . . . . . ..

:

••

.-PROTECT OR •• NO

•

.X
.•.
.. -.
•... ..*AI..t ...•

•

FROM COMM
REGN TO

...

.•.x

•• STOR

X •••• _ ••••••

LOAD PIK

.

•

• YES

·····ez··········
•

•

•

• • • A4 ••

ic

• _ ElSTOR
.-PROTECT OR ... NO
Ooo
DASD FILE ..... ..
a. PROTfCT ._
o. _A4 ._
a •• _

REG 15 TO
REG 1

x

..

'. -oo

ic

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

•
•

: •••• 03 ••••••••• :

-YES

.J~.

:

LOAD ADDRESS
OF SUPVR
tCa FROM

•

o•• _

aGH •

2

•••••Clt··········

SUPEXP

••

••
SVC
••
•• ISSUED BY •• NO
•• A B-TRANSIENT ••••••

• YES

... -oo

*oo o. OPTION
_A4

·

: 1

·GK •
• • F~.

X

DZ

......
....

·.........
...
.. ..
.....x ........

-oo Ooo
~~:~~ .:.~~~.
.NO

mT~~TP.BTAMI
OPTION ONLYI

EXTOl

i

•••

e2

• _

: 3

GENERATION OPTIONS

e•

.•.x

••

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

• ••• SUPVR •••• NO i
••. INTERRUPTED ••••••

.. ..!. .•.
·· ..
·YES

:............:~

• 2

*FG •

.A~.

•

Appendix H. Detailed FlOwcharts

~91

SGTCHS Channel Scheduler (Part 2 of 3); Refer to
Supervisor. Chart 15

Chart FG.

(

.....
oFF •

••J;*
o

oA3

BYTE 6 OF THE eea CONTAINS
X'OO' FOR SYSTEH CLASS UNITS
X'OI' FOR PROGRAMMER CLASS UNITS

X

••••• A2.· ••••••••

:
•

:

fi~ITsX~S~~l§
FROM ecs t

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

•

BYTE 1

o

0

x

• _ 82

• o.
w• w •

*.

•SYSTEM
YES
w.
LUB CLASS
.a ............................................................. ..
w.
*A3
.a.
...

* ••
oNO
oel
'SUPERVISOR
GENERATION

e2

OPiTIONS

•_

*.

.oW

*.

• o.

w.

MPS
OPTION
*Cl

*.

.. .'. ..
.. ...... .....x
...
.. ..0 ..

EXCP7

w.

...
* ••
-YES

*.

...

NO
••••••

C4

'NO

.....02··········
X

o
o
o

....
I

•

GET NO. OF

•

1ST LUB

04

•

ASSIGNED

0
0

TO

•

PROGRAM Pia

•

INTERRUPTED

• FB •
• B5·

ERRZ7

.'

.+
MPS
••
OPTION
••
+C1

•

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

•

••

••
INVALID
•• YES
••
LUB CLASS
•• 0 • • •
••
CODE
...

•

.••• YES

'

•

•• NO
••••••

••

0

:x .............. :

x

: •••• EZ ••••••••
•
•

*:

COMPUTE
PROGRAMMER
LUB

E4
••

EXCP5

NO ...

...... *.

.-

F2

.'.

••

LUB
NUMBER

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

VALID

••

•••

....

F4

*.

••

•
NG X

.+

• YES

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

••

YES ••

X

.-. .0

lOG -. .•
••

....

••

OPTION

• 0

·YES

• F6 ..

• 65·
ERRZ1

-.

••

..BY BACKGROUND . . . . . . . . . . . . . . . . . . . . .
•• PROGRAM ••

••••• ~~~2~~ ••••• :

:................................................ x:x

.'. ••

SVC
ISSUED

••

•
•

••

-NO

:X
............................ :
•

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

EXCP6

X

•
•

CLEAR COMM
AND STATUS

al~EEc~-5

G't •••••

•
.+
• YES ••

•

•• ••••

•

.............. Ox

X

·

..

.

EXCP IGPIJ

...... HZ .. •••••••••
COMPUTE
ACORESS

••

0

t13

••

..

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

OF LUB

: ..... ;~!:~ ..... .

x
__

• NO

't • •

..

FGl

.

••

."
... -..
-NO

.. '. •.
.. -·.0 .... ...

o. ..

IS
+. YES
"10
LUB X'FF' ....... X......

...

... -0

H4

PES

YES
••••••••••••••••••

x,

• Fa •

oJI
X I FE' • IGNORE
X 'FF' = UNASSIGNED

• 85·

: •••• J3 ........ .

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

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

X

CO~PUTE

•

ADDRESS OF
PUB ENTRY

•
•

USING LUB
POINTER

0••

••

1<2

.0.x ••

IS·.

•

..

•
•

•
..

... o.

···;N~

TUqN ON

TRAFFIC BIT •
INCCBt"
BYTE 2
•

...•.K;·······
•

:

POST CHAN END A"'O
•
DE¥~CecKND ••

: ..•• ~!!;.: ••.•

.....

: EXTOl
X

..

• FD •

• 81·

392

DOS System control

•

X

•

LUB XIFE' •• YES.
OR X'FFI
...... .
••
.Jl

·0

FRR21

x

····.JZ··········

X

·····JS··········

EXCt'lO

CHECK
VAll 01 TV

•

NUfoIBER

•

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

OF

•

LUB

1

SGTCHS Channel Scheduler (Part 3 of 3): Refer to
Supervisor, Chart 15

Chart FH.

......

.....
..·
.x
*FG •

• JZ-

:

'.

TSToEV

Al
w.
._ TELE- w.
l«) .*PRoceSSING -.
••••••
OPTION
.a. a • • ez ._.a

....

aYES

._ Bl

.'.x

: 3

•

._
w. YES
w. SVC 25 OR .a ••••
*. a.svC 27 ._ .a •• _
'No

•

· .
: 1

E~I:~T I~H:=~e

:

.................
LI ST USING

• FLPTR

GET POINTER
TO NEXT

•

•

FIELD

:

_ez_•

•

MOVa CHAIN

•

ENTRY IN
TABLE

NO..

•
FIELD FROM
•
• 1ST 'fREE lIST.
• ENTRY TO THE •
• FREE LIST PTR •

•••••

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

X

....

: 3

.E2
SUPERVISOR
GENERATION

STORE OLD
•
FlPTR IN
• CHAIN FIELD
• TO ACO ENTRY

~

G3

• STORE LUB NO • •

••
••

.IN LUBID ENTRY.

.................
• AND X'lO' IN

:

•

•

·xx •••••.••••••••••••••

REQID ENTRY

•

:

••

NULL

••

.

.o • • • • •

'NO

•

••

••

F....

•• • •

CHAN

IN BURST

• .o

MODE

p~I~~a~Q

•• YES

••

•••••••••

.o • .o • • .o • • • • •

'NO

:x .••••••••••••

•• NO
••••••

SVC 25

lOP SET

.!..
·....
.

.'.x

HAL T i t : TPBUS VI
GS
••
•
•• THIS ••
I SSUE HALT
• YES •• THE LAST
••
•
I/O ON
•
•• ••••
DEVICE
••
TELE-PROCESSING
•

DEVICE

•

• FD •

EXTOl

••

•• INTERRUPT •• YES

~ ~Hg!~ftA~N
..o • • •

••

........

STARTED ••

'NO

.....x
.
·GK •

• .F~ •

RESVC

..!.•

NO..

·

.Gte. •
.F~.

:

.. .'. ..
............ x
.....
·
·
....
it

J4

...... J1 •••••••• ••
STORE OLD
FLPTR INTO

·GM •

10PSET

.o.

••

·GM •

••••••

: 2

•

.. .'.• .. .
........ .....x
•.J!*
·
.'.•
........

H4

EQ X'FF'

•• NO
.-••••

i

••

•••• •VE~·

•
•

••

DEVICE
BUSY

E4
••
•• WAITING •• YESX
•• FOR DEVIce ••••••
..END ONLY ••

•
•
•

•

·YES

•• CHANQ PTR •• NO

••

•

:

······G4···········
.. ..
...... .. .- ..
.....
•
•• C!*
.
.....
.'.• ..
•.J;.
..
·
•••
••••••• :

.•...G2··········

.............. ..
110 KEY IN

REQID ENTRY

PUB

TPBUSY

•

it

it

• AND REqUeSTER •

·

EXTOl

·YES

EXTOl

• 4

• STORe LUB NO • •
.IN LUBIO ENTRY.

.'.

GET CHAN

04

••

.....
•
•• C!•
·
·· ..
.'.

..·FD!..*

QUEUE ENTRY

.FO •

•
·····G1··········

.

•• NO X

.. .'.• ..
...... .-....

:.!~.!~;.~~~~~ ..:

·YES

ANY

••
••

.····E3··········

.. ..

HI·.

•

:

.YES

•• ·e2 ••

..
........
B.... .' ••

CHANQ
••••••
•• ENTRIES ••

:

.'.x

x.

..

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

••

•• X'FF',
••
•• ~~L~ •••

Fl·•
••
•• PROTECT •• NO
••• ~Ro~~f8NfP •••••••••••• .o • • • • • • • • :

••

..

FIELD EQ

•• STOR

,

••

•

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

••

:~~~~~.-.-.-.-~~:

it

OPTlO~S

aA1)OR .fROM REG I_AND A CHAIN FLO• OF X'FF' INTO.
•
CHANQ ENTRY •

•

.'.x

CHAIN

• •••••

•

•

03

TYPE

•
·····Clt··········

•
•
•
:

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

..

.. ··.vEs..

•• t!.

CALC ADDR
OF CHANQ

•

i

.'•

·YES

it
·····e3··········

•

:···S~6Re·CC8···:

••

••

:
:

: •••••••••••••••••••••••• X:

it
··...·01···.······
•

PO Y~lE~H~~8M
PUB

:

..A~ELE!· ••

••

:

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

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

:
:

I

..PROCESSING ' . NO
_.
DEVICE
••••••

FNDQUE
it
: •••• 83 ••••••••• :

•

'C2
REFER TO FIGURE 35
TO AID IN QUEUING AN
ENTRY TO THE CHANQ
TABLE.
FLPTR-FREE
LJ 5T POI NTER

···.·Cl··~.······
• CALC AODR OF •

:•

:

-ENTRV IN QUEUE •
FROM tHAI N
•
•

.!..

~

: 2

it
·····e2··········

w. w.

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

·....
.....

......

a •• _

:EXCP3

SCAN CHANQ LIST
FOR THIS DEVICE
TO LOCATE LAST
ENTRY IN QUEUE

....

•

••

•

RESVC

••

NOT

•• YES

•• OPERATIONAL ••••••

•

. . . . .M ............

'NO

·FT •

.A~_

.. . ..
.... .... ..~..
......
.. . ...
·
i

Kl

'. ••

• :. DEV~~~ BE .:.~~ ••
_. STARTED ••
•
·YES

iGIDADR

•• J~.

·FD •

• CI·EXTOI

it

....·:.x.....
..
.....
.. .. ..
.... ...
.....x ....
.....•
. ·....• .
..·
....
TPBUSY2

K3

•••

••

~~~.:. ~~t~~i~
.NO

• FY •

K4

• ••

10NOP

••

!~~.:· sTai~o

.: •

.NO

lOP SET

•• G~.CHFA I l

.GM •

:

4

:

• JS·

~ppendix

H. Detailed Flowcharts

393

SGTCHS start I/O-- No Options; Refer to
Supervisor, Chart 15

Chart FJ.

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

··..........
• I

• 12-

·'~-KI

X

•

LOAD CHAN

·

.....
*FK •

.

•• c~.

•

FQ-KI

·...·81··.·······
: 'R8MU~61 :

GIOAOR

(

•

.

. . . . . ¥ ••••••••••

~X •••••••••••••••••••••••• :

X

TU'eOJ
•_

.:-

.w.

UNCOMMON

Cl ••• _.

o.

.....
.

~lt9!~,i .:.~~~.

x
.....
•• B!*

*. o. o • • _ ._ ..NO

..t

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

EHAN OR
•• •• _. YES
._
BUSY
.NOT OPERATIONAL. . . . . . . . . . . . . . . . . . . .

_FB •
•• C~ •

_fa·

.NO

ERR30

.... .•.x ....
03

•_
••

CHANNEL

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

FAILURE

X

HOVE teN

•

•

.•.X
ANY

.

CHFA IL
••

••

••

F3

...x

••

ANY· •

........ .....x
...
: •••••••••• x:
..•.·G3··········
• DEVICE STATUS. NO
.EXCEPT BUSV DR ••••••
••

MOD

••

·VES

• FD •

• Cl·

STR TED

.-

X

.-.

G1

•_

-.

NORMAL

D. D.

o.

o •• _

-.

w. NO

START

._ .0 ••••

......

._

X

·YES

:

1

......Hl.·········
SAve CHAN

·

AND PUB

ADDR

•

•

.
•

•

•• 411 ••• 11 . . . . . . . . . . .

X
. . . . . Jl ••• ••••
•
SET X'BO' •
•
IN PUB FLAG •
•
TO INDICATE •

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

DEVIce BUSY.

X

-FD •

.c~.

EXTOl

394

•
•

·..................
:

:

X

AND UNIT,

EXTOl

X

• MOVE· CHANNEL
•
AND UNIT TO
:
110 OLD PSW

DOS System Control

..•..H3··········
.................
X

•
•

•

:

STORE CAW
WITH tCN

ACOR + 8 IN

csw

.....x
..

·FN •

• A4·
GETCHQ

•
•

•

:

.*

·VES

-.

·FT •

• A2·

·FD •

EXTOl

,
I

-NO

X

••

[OHOP

....

•
•

.....·Ft···········
.....•..•.....

SfRTlOI

E3

..

.FV •
•• G~.

VES ••l:tlAN STATUS ••
• ••••• EXCEPT PC [ OR ••
••
WRONG
••
·LENGTH.·

•

AODR FROM
TO CAW

• eta

..~

........ ..:..
.....x ••.C!.

••
NOT
•• NO
•• OPERATIONAL ••••••

••••••

·ND

...... el ..... •••••
•

•• VES

.... ....

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

Sl'RTlIl

...x

04
••
•• CHAN ••

••

Chart FK.

SGTCHS Start 1/0-- Maximum Options (Part 1 of
Refer to Supervisor, Chart 15

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

.....
.. .
.
• ~ 8~.

G'lllAOR
.e A1

••

• 1

.a.x *. *.

BURS"

•e

MULTIPLEX

BRSFLG

lOa
_NO

YES

••

CHAN

TSTEOJ

*.

* •• _
_NO

X

•
:

AND UNIT
FROM PUB

•

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

.

EXTOl

FH-Kl
FQ-Kl

••

..
•

••

..................
.'.

._

.C2
EXIT ON YES LEG IF
BURST DEVICE HAS BEEN
STARTED PREVIOUSLY
AND I F IT 0 ID NOT
COfrolPLETE OPERATION
PRIOR TO THE CURRENT
MPX START 110

··......

*. a • • _ lO-

x

• NO

•

I

C3

.'.x

••

DEVICE
IS

..

...... ..

•
•

'E2
SYSIPT,
SYSROR,
SYSPCH, CR
SYStST

••

• oo

:

1

• FM •
.F~.

.....x
.

UNCOMMON
•
•

110
.......... oo
.E2
••
·.oo·
••
oo.
.NO

.. ..
.. ..... ..
F3

YES..

•• ••••

.....x
...

A

2311
oo.
..oo.
.oo ••
.YES

.oo

SUPVR

••

REQUEST

·oo

••
••

••

•

oo.

...
oo

Fit

• FD •

x

••

JOB
CONTROL

·oo

·· ..

•
•

• 3

•

••
••

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

••

•

DEVICE
A DASD

OPEN
••
• oo . . . . . oo.

...... .

FILE

••

oo . . .

• NO

X.

•

........ oooo.oo ••••• oo ... oo •••• oo .. X.

X

X

STRT 10

·.·~·H3··········
•
MOVE cew
•
•

•

ADDRESS FROM
CCB TO

.....
·....

.'.

JI
••
•• CHAN ••
•• BUSY OR NOT •• YES
•• OPERATIONAL ••••••

............
.....
•• C!.
··...... .

CAW

i

'NO

-

·· ..

••

oo·

·YES

•

SET SWITCH.
AT NOPINSTR •
TO A BRANCH •
.J4
•

..............
:......•••••. X;
.....
..

X

·····GS·······••

:

•

•

l~INM~~

BURST MODE

SWITCH AT

:•••• ~~!~~2 ••••

• FL •

.....i

PROTECT

EXTOl

• AI·

X ••••

•

•

oo ....... :

.FO •

-. C! •

REfER TO NOTE .F4

RESET SWITCH •

AT NOPINS
TO A Nap
.K4

•

-

• FO •

EXTOl

I

.. ..

ON CHART Fl.

X

•

••

'J4

.

X

...............*
•

.

•

.

·····J3·······

STRTlOI

oo ...

•
•

•• Fl-K4.
.ooX.
FM-KS· •••

X

X

••••

···.·G4·····.·

•
•
•
:

.'

.-oo
••
BURST
•• NO
...
MULTI PlEX .-oo .....
•• DEVICE ••

.oo YESX

X

•• YES

F5

•

·NO

G3··· .oo

:

TEST
Al TERNATE
CHANNEL

SET DEVICE •
BUSY FLAG •
I N PUB
•
FLAG BYTE ••

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

• 3

EXTOl

..•···Hl··.·. ···•··

:

X

•

NO
••••••

.'i .

'NO

..................
CHANNEL

•
•

LAST STARTED

·····ES·······

•••

E4
••
• • ••
DEVICE
••

x.. .oo

STORE ADDR
OF PUB

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

••

x

: •••• 05 ••••••••• :

lOGPRC 1

SYSINOUT

-.
••

.YES

..

·FJ •
• C3·

• C1·

:

NORMAL
START

:

.FM •
•• J~.

lOGPRC

• 0.

:
LOAD NUMBER
.. OF ALTERNATE

NO ••

.oo...

•

CODE

:

Fl
-.
.e·* DEVICE *. *. NO
*. SW[TCHABlE ••••••

·····Gl··········

Cs .' ••

•

•

CCW COMMAND

ic

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

STRTEO

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

:

x

•••

.-

X

SET 7 TRACK
MODe IN

•
•

•• YES
••••••

••

E3
••
• ·DEVICE ••
•• IS SYSTEM •• YES

.- ....x
· .

X

X

START
110

·····C4·····...·.

STMOOE

AT NOPINSTR •
TO A NOP
•
'J4

* ••
-YES

.-

······es···········

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

RESeT SWITCH.

•

- •

.* ••
-YES

:

••

·····03·······
·...............

.0.x

*.

.. ..

2

SID
•• YES

i

CHAN *.
*. NO
*NOT OPERATIONAL_ .....

*.

..

'NO

BUSY OR

*. ....

••

DEVICE

A 7 TRACK
•••• oo
TAPE
...

..

ATTEMPT •

CHANNEL

E1

.'.X

•

TEST

•*

83

•• SYSLOG

··..··01···········

.. "

.oo

••
••

i

.'.x

:

.NO

C1
-.
••
• * DEVICE
•• YES
_lOON MULTIPLEX ••••••
CHAN

..

·oo

•e

....

......
....

..
..
:

... C!*

.82

•

AND UNIT
FOR START
110 COHMAND

_FD •

:X •••••••••••••••••••••••• :
• LOAD CHANNEL

YES

•••••••••• X*.OPERATING IN lOa ••••
_BURST MODE._
*. -e2 lO_

: •••• 01 ••••••••• :

•

X
:·STOft~·CHANNEL·:

._.

._ A2 HPX -. _ •

*.

*. e
DEVICE .*
..*
a.

3)~

•

'<4
REFER

X

·····K3··········
: RE¥ADclU
..................
•

•
•

MOVE STORAGE

PROTECTION
KEY FROM
TRY

TO NOTE .K2
ON CHART Fl ..

•
•
•
:

··......
X

• 2

•

~ppendix

H. Detailed Flowcharts

395

Chart FL.

SGTCHS start I/O-- Maximum Options (Part 2 of 3);
Refer to Supervisor, Chart 15

·64.
•.•

• FK.

.!.

• 1

.-

.- -.
•:*1" :I~~ess·:.~~~.

PROTECT Al

-. ·NO
".*

e.

TO.A BRANCH

•

•

*84

•

•

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

GET CORRECT

:

•
•

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

•

X

•
•

•
•

•
•

SEEK AND
STORE CHAN

E1

.•.x
IS

•.•.•y~;.

it

X

GET AODR OF

•

cew

•

•

3.

•
•

4.

SVSPCH

SVSL ST

05

.'

.

••
JIB ••
POINTER. ••
E::QUAL
•*

...... .
'NO

·····es··········
X

::!!!!~-.-.-.-~~:

.GET AOOR OF JIB.
•
CONTAIN ING
•
EXTENT
•
•

.................
.
...
·· '' ..
.. ..
..... .. ..
..
...
.. ......
*

oF4
BRANCH=CHECK
OIB EXTENTS FOR
I.
SVSRDR
2.
SVSIPT

FS.

REQUESTORS
PI8

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

:x .••.••....••.•••••..•... :

:

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

ERR32

it

·····E4 ••••••••••
•
COPY USER
•
•
TIC ADDR.ESS •
TO CHANNEL
*
•
•
CHAIN TI C

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

e-..-.-.-__.-__ ._.
•

...

••

•• X'FFI . ••

:Ffl-:

LOAD ADCR
•
• OF USERS 2ND •
•
CCN INTO
•
• CHANNEL CHAIN.
•
TIC CCN
•

....

: 1

.GETPI8

VES ••
•••••

•• ~.*

•

•.!..•

•
•
•
:

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

..·..E3··········

NO
••••••

IMfWRITE
X
..... Fl··· •••••••

it

·····es··········

oNO

NOTIC

.-

*

• GET ADOR OF
• Lua FOR THIS
• DEVICE USING
:
LUBID ENTRV

........

_.

-. SVSRES

•
•

:x •.•.•••..• :

• : , I~H~A~L~CfNG:.~~~ •••••••••••••••
•• THE seEK ••

• * •- DEVICE * • _.
-.

it

GEl AeCR OF
SUBCELL ANC
STRIP fROM
SEEK AOOR

GEfJIB

03
••
• USER CCW ••

•
•

teN CHAIN
AODR IN CAW

,'.
•
•
•

.•.x

·····01···.······
..................
•

·....05··········

DASD2321

USER
•
TO
•
CHAIN.
CCN
:

C

·

•

• INHI&IT LONG

·YES

•• B!•

.a••••••••

o C
o

•

LIST

..
!..
·FB •

83
*.
USER *. _.

LGDD
·····C

•

CHANNEL
ccw eHA IN

• FROM DASO FP

.*

* •••
·YES

.~

•

-..-

••

•• DEVICE
•• NO
••
IS
••••••
•• OATA CELL ••

ERR33
.B4
SET ON TO INSURE
MAINTAINED-CONTROL IN
CASE OF A PROGRAM CHECK
•••••••••••••••••• -.
SeEK
._
AS A RESULT OF USING
INVALID USER-SUPPLIED
-. CHAINED .*
ADDRESS PARAMETERS.
*.
.*

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

AT PCHKSW

x

AS

...x

NO.* • *

:

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

-.

-YES

STRTlO

X

SET SWITCH •

*.

: 2

USER
*. NO
*..*-.LONG
teN HAS
••••••
SEEK.-

..

·····81··.····

•
•

•••
A3

*FK •
• H3-

•

•

X

SEEKTEST

_.

-.-. .-.- .....x

•

......

··......

.......

(

3

•• X •

••••

CLCINS

x

FS

•••

••

NO ••
VAllO
•••••
LGWER
•• EXTENT

it

••
••

••

• •• YEs

• FB •

• 81·

.•.x ..
..
•.••
x:
.... ....•••••.•...••.••.....
....
G1

••

WRITE

o~t\~~~gs

•• YES

·NO

X
·:.......H1··········
.:
wa~~BI~

·..................
ceN

x

..··.

A BRANCH

.K2·

• 1

X

NOPINS

•• • ••H2 ••• •• ••

• RESET SWITCH.
AT PCHKSW •
•
TOANOP
•
•
•
·84
•

••
••

••

••

H3

.•.x
JIB

'NO

SYSFILE
-.

........
CHECK
SWITCH

.K2

••

••
•

••

•
•

GET ADDRESS
OF CVLINDER

•
•
•
:

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

:

NUMBER FROM

SEEK CCN

....
x

VSRESI

l~E

•

....

: 2

0

:

•

·....
.....

YES..

J5

.

••

'Ne

_'

: •••• K4 ••••••••

• RESET SWITCH.
•
AT PCHKSW
•
TO A NOP
•

••.J:.
• FK •

•••

VALID
••
E~~~~~.r--P-

.

.FM •• X•
• F4•
LGDI
x

•• : •• STRTI 0\

DOS System-Control

X •••••••••• :

.. .. ••
:X ••••••••••••••••••••
........
TRYNXT

:••••••:!:•••••

396

FH.

• GET AeOR OF •
• NEXT JIB CON- •
.TAINING EXTENT.

i

·····J3..········

STRTlO

it

.TSTNXT

BRANCH
••••••••••••••••••••

X

H~'"

•

·····H5····•...··
.-.-.-.-.-.-*-.-.
.................

A2321

*. ••

·NOP

·FK •

...............
··....x ..

•

GS
••
..··DEVICE •••• YES
••
IS
••••••
•• 2311
••

..!..

:-··i~:~~E
~~JI~~ 4~

:•

•

LGO

.FM-D5
FB-F3
GQ-FI
GR-F3

X

ERRl2

G3

.. ··.NOP..

··....... ..
·...............
•• x.

X

•••
••
OIB ••
••
CHECK
•• BRANCH
••
SWITCH
...... .
••
.F4
••
••

•

•

•

NOPINSTR

••

....•KS··········
.-.-.-.-.-.-.-.-.
X

.TSTNXT

FM •

• GET ACOR OF •
• NEXT JIB eON- •

:!~!~!~~.!=!~~!.:

.:.~...:
~

)

SGTCHS start I/O-- Maximum Options (Part 3 of
Refer to supervisor, Chart 15

Chart FM.

··....
......
.. ..
•
• 1

oA3

FROM FR-Jl

SYSFILE1

• ···S¢iFj~E2····.
:

...............
*"3

.a.x

USERS SEARCH ADDRESS + 1
~M~~I~~R~ SAVE AREA IN

··...84··········
x

.. .-. ..
........

•• •••• C2 ••••••••••
•

•••••

x:

•

~~l~y~~3R

Cit

:__ .•..•.•.•....•...

•

•

• 0
*. YES
•
w. e. SY5PCH ._ •••••••••• x•
W..o
•

it

*

·····DIt··········

•
•
•

•

CALC AODR
CF 018
SV$PCH

•

•

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

INCREMENT
SEARCH ADOR
BY 1 RECORD
IN SAVE

•
•
•
•

X

SYS]N

•••

05
••
•• CURR ••
NO •• ADOR.
-.
• ........ USERS SEARCH ••
••
AOOR
••

........

.................
.-.x
. ADDR 1.•
.. .. .....x
•
•

•

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

-NO

•• YES
••••••••••••••••••••

••

'NO

PCHOIB
• •••• D2 ••••••••••

w.

••

•• SVSROR
••
OR
•• SYSJPT

•
DID
•••••••••••••••••

*

W.

w• •

•

:
•

INDIS

x

• w.

GET USERS

FROM CCM

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

-NO

01

•

..

:fA~~C~AC~D~~~1

w. w.

• 0

...

ERR32

it

•

.:- w.._
sva: .*.:.~~~
w• •

x

:Fi~:

_83

•
•

OR
-. $YSIPT

••

'NO

·....................
• _ Cl

•••

•• END ADDR ••

X
: •••• 81 ..........:
GET ADDRESS

X

A4

........

:

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

•

::DDfiU~~E~lDS .:.~~~.

SYSFI~E2

• OF DIBS FROM
•
COMM REGN

3)~

·····E2·····•.•.•

AREA

Eft

-MUST BE SYSLST,*
•
•
CALC ADDR
•
•
••••••••••••••••• X.
OF SYSLST
••••••••••••••••• X.
:
DIB
:

••

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

••

•• tURR·.

ADOR =

•

·YES

.....
.....x

·FL •
•• H~ •

•
•• NO X

LGD

•• USERS SEARCH ••••••

+

• • • B3 ••
·YES

·FK •

•_

--

• 81·

..

F3

.x-.

-.

..

Fit

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

.. 0 •• FLO POltHEO ••
....... TO 8Y USERS ••

..... ....
.. .....x
--(REG·7)...····G3·········
x

'NO

- 1

•• WCKO-CeW ••
·.VAl]O.·
·YES

·FB •

• B1·

•

ERR32

.................
.....
· ' ..
:

JIBTYP

...............
TSTNXT

,

-....' ..
......H1.··.······
• 2

•• X.

J'IBTYI'

X

•

CALC ADOR

:

ftBN¥~T

•

QUEUE

:

:

•

••

H2

.'•
END

•• YES
••••••
••

••!..

-.

: •••• J2 ••••••••• :

•• NO •
••••••
••

X
··••K1·······
••
-.................
•

•

RETURN TO

LINK AOOR

ERR32

x

••

• YES

•

..

••

••

]0

ic

••

·YES

·FK •

-

••

••

STRTJ 0

X

·····GS··········
.-.-.-.-.-.-.-.-.GETP]B
•
•

FS.

GET
REQUESTED

: ••• ~!~.~22~ ••• _:

•
•

GET CHAIN
FJELD FROM

..
•

·..................
·....x .
· •

THIS JIB

• 2

COUNT KEY

•

it

: •••• H5 ••••••••• :

••

•••••NO··

x

J1

•

F5

NO..
REC]O
••••• = SYSLOG

AND DATA.

••

••
OF
••
QUEUED
•• JIBS

•

.. .'. ..
........

LGDl

•

WCKO:'Wlh TE

x

TSTNXT

·FB •
• B1·

•• EXTENT
••
TYPE
••
JIB

RETURN TO
LINK AODR

•..•. !~~~.!! ••.••

••••••••••••• X

•

·F1

•
•

.. .-. ..
..... -......
•• H; •
LOGPRC

CAUTION I

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

•

·FL •
• Kit_

X

• •••• G2 ••••••••••

:

••

•• COUNT _.

vES •• ENTERED ••
•• • -. AT SVSFILE ••
••
.A1
.-

• •••• G1 ...........

.-x.

t~-

x

• FB •

•

:

MOYioSJe lOG

:

:

OUTPUT AREA

:

.·................
.... . .
.... .
.FK

•• X.

• C4·
LOGPRCl

-·····J5···.·......·-................•

•

X

LOAD eeN
INTO CAW

•
•

it

: •••• K5 ••••••••• :

MgK6R~!~

·.................:

•

TO USER teW

_.t.

:
•

STRTlOl

-..

.FK •

• J3·

Appendix H. Detailed Flowcharts

397

SGTCHS Macro-- I/O Interrupt (Part 1 of
to Supervisor, Chart 15

Chart FN.

...

.fJ •

.FW •

• H3·

• f3·

INTO REG 9
FORe~'~ERAL

•
:

•

GET FIRST

•

0

:

•

CHANQ ENTRV

•

: •••••••••••••••••••••••• X~

.'.A

.-

o

: 3

X

: •• !2~.2;~!=~ ••• :

,

•-

:

:~~~;!.--.-.-~~:

.......-.............

•
:

1

.····AIt··········

GETCHQ

:

b~Bx~~R

:

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

IltfRTW
;
• ..... 1.1· .......... •

:

(

......
....

.....
...

.....
...

....•.
:FI.:

Refer

5)~

Bl
-.
CHANNEL

oB3
SUPERV ISOR
GENERATION
OPTIONS

-.

e. YES
e. a. FAILURe ._ . 0 • • • •

e. e. eNO· o

DISWHY

•••

Bit
••
.- TELE- ••
•• PROCESSING •• NO
•
••
OPTION
•••••••••••••••••• X.

••

•• : ••

·

.... ....
·B3

••

·VES

*FV •

.~~.

·••. ··Cl·······ttt*·.
...................
X

..

RESET WAIT

•

•-

*.

.-

.'.x

-.

-.

MPS

••

•

I/O OLD PSW

01

C4
••
•• CHANQ ••
..PTR IN PUB ••

•

BIT IN

•

.<.x

CHFAIL

:

04

X

LOAD PUB

..

ADDRESS OF

•*

••

LAST DEVICE

..

STAR TED

..

X
EZ··· ••

..

..

;.

X

..... F3··········
.................

.
.................
....
· ':.X..
CORP~B·· t
Gl···*t*·····
.. ..
........ ....
._................
••••••••••• X:
·
.0.
·····HZ··········
....x : •••.• ..•..•:
•

:

AOOR
Of F IRS.T

GZ

..

oNO

X

o.

•

•

• * INTERRUPT o. YESX
FROM THIS ••••••
*. e.DEVICE ._ .* ••
'NO
•

...······

•

POINTER TO

•
•

:

ON CHANNEL

•

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

•

NEXT PUB

•

....

..
...<...

.'.
i<

Kl

••

..

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

• YES..

SAME

CHANNEL

••

:••.•.•..•. x:x

•

Git •••••
•• ·APPENOAG~·.o t>JO
•
••
ALLOWED
. . . . . . . . . . . . . . . . . . . x.
...
.H3
••

• 1

•

·YES

.. ..
................. .....x .. ......
·83
TSTUCK

..... H4··········
X

•

GET ADeR
•
• OF REQUESTORS.
•

APPENDAGE:
R.OUTI NE
FR.O~

•

YES..
•••••

•

CCI3

••

•

0

...

• FT

•

0

•

UNIT
CHECK

••

.*

.*

'NO

• F2·

0

• 1

x

J2

••

*.

'J3
MULT I PtE RETURN FROM USER S
APPENDAGE ROUTINE
TO
ADDRESS IN REG 1, IF CSW
PROCESSING IS TO BE SKIPPED
TO DEV ICE END.
TO ADORE SS

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

STILL

•• YES

IN CHANNE L •••••• l~T~~~ ls~
••
LIST
••
REQUIRED.

*., ••
'NO

INITRG

INITRG

tiro• • • •

• FQ •

.

•• A;.

398

FS •

: •••••• ~!~ •••••• :

~!~!

oNO

X

.-.-.-.-.-.-.-.-.

•
GET AOeR
•
• OF REQUESTORS.

lZ OF
APPROPRIATE PIS
IS CHECKED.

.FQ •
•• A~.
o

••

(

X

.GETPIB

'"3
BYTE

X

.

<

INCREMENT
PCINTER TO
HE XT PUB
IN CHANNEL

e.

.

.... .'

o

X

*.

X
·~·.Jl··
•
INCREMENT

• 1

••

•• INTERRUPT •• YES
e.
FROM THIS
••••••
•• DEVICE ••

PUB ON
CHANNEL

:CORCHN

x
··......

Z

•

• tI\• • •
..
GET

*l

••

••••• F4 •••••••• ••

•
RESTORE
•
• CHAN AND UNIT •
• AND PUB ADDR •
:TO REGS 2 AND 3:

GET
FOCl

X

i

LDREGS

* ••
oNO

....

tCB

·YES

:!=~:~2-.-.-.-~~:

-STARTED-

:CORPUB

I~

.. ......

.. ..

··.·.FZ··········

-.

Fl
-.
• _ INTERRUPT e. YES
*. e. FROM
LAST ••••••
DEVICE!
._

INTPUBSC

••

.'

'NO

.-

•

E4
*.
.*
••
NO..
MPS
••••••
OPTION
••
••
·83
••

INTERRUPT •• YES
••
FROM LAST
••••••••••••••••••••
•• DEVICE ••
.ST ARTED.

..

! •• ~~.~~~~~~~ ••• :

.'.

YES

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

·YES

.N··El··········
•

••

.. .'. ..
.. ......

-YES

•

....

••

•• APPENDAGE •• NO
•
..RTN SPECIFIED •••••••••••••••••• X.

o. NO

e •• _

•

EQUALS
XI FF'

*.

'NO

OPTION
••••••••••••••••••••
--. a. *83 ._ .-

•

••

DOS System Control

o• 2

~R8~~~~INlF IS

UNTCK2

.···J4·*·······
X

.'.x

J5
••
•• CHAN ••
YES •• OATA I CHAN ••

............... .....:x•••• ....
x
.....
.'.
...
··......
..

• EXECUTE USERS.
• APPENDAGE RTN •
..
·J3
•

;~A6~ ~~b~R?2··
•• CHECK.·

• FT •

'NO

• CZ·

X·

K4

Ufl:TCKI

••

••

·J3

* •••

.>

*. NO
• * ••••

• Ai·

TSTATTN

.*

.YES

CEOETST

• 3

*F P *
•

.FP •

••

•• SKIP ••
•• CS\rriI PROC

A2 •

•

.....
.....

.• B"·
......
Al

.'.

..

CEoETST

w.

+. w. NO
._ • ATTENTION

••

: 2

SET DeVICE
END IN CSW

•

.'.

••• •• A5 ••••• ••

'B4

••

.YES

x
."

X

*. a • • _ .-

a. aYES

x
·.....

IREG 91
GEN EX IT

Ne
A
••••••
w. w. 1052 ._ ••

: 2

:

.E2
FR-C5
G"-K5

CHANGE ATTN-

RTN PIe FLAG.
TO X'83' TO •
[NClUOE
•
ATTN RTN •

SET ATTN

TO REG 9

•
•

a •• _

._ .+

'NO

F3

.'.

.*

·YES

x
·....
.....
I

Kl

[~

REG 9

.EXT03 I F ATTENTI ON
• EXT02 IF ERP

TRANSIENT
RETURNED (SVC 3)
TO EXIGN OR EXWHY
FOR OTHER
..~ ••• EXTOI CONDITIONS

.. .

.... .....x
.....x . .
'NO

:

I

••

·FR •
•• A! .CHNDRT

:

X
.···.FS··········

••

• LOAD ADDRESS
OF EXT03
•
•
TO REG 9
• FOR GENERAL
EXIT
•

4

: •••••••••• X:

·····Gs .•••··•

RSETWAIT

••

.'.x

••

•
•
•
•
•

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

:

i

G3

X

: SE~I:E~~i~TOR.
•
TO NOT
•
:
SVC 7 aOUND ••

••

..............
x
.•....
.A! •

••

.-

·FQ •

••

......A.·
.. ................. .
TAPE

oECHQ

••

x
: •••• J3 ••••••••• :
RESET
RETRY CTR
IN PUB

....x .
· .
-• 4

•ADORIN~~~SENj
•• YES
tSW
••••••
••

.

: •••••••••• X:

RETURN TO ADDRESS

••

eC2

.'

'NO

:

•• J~.

.'.

• YES

• ••• CEVICE •••• YES

Jl
w.
._ .- ANY +. w. NO
w.
DEVICE
.a ••••
STATUS

••

....

:

•.

'J2

.... ....

.-.x

•
•
•

..OEVICES·.
NO •• Pla HIGHER -.
• ••••• PRIORI TV THAN ••
·INTERRUPTED·
PROG PIa.

........ ....x
. .. .'. ..
.... ....
H3

.a ••••

:

x

ES

• RESET DEVICE.
.BUSY, POST DEV.
.END AND I..,TER- •
• VENTI ON REQ • •

i

e.

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

·FR •

·YES

.-.
HI
+.
._ • - DEVIce +. w. yes
BUSY

FS •

GET AeDR OF
PI B OWN ING
THIS DEVICE

X

'.
:.x.

CHENO

••

X

•
•
•

··..·E3.······

Ne! ••
TEB
••••••
OPTION
••
.A4

•

fOR GENERAL
SXIT

••

·····05··········
.-.-.-.-.-.-.-.-.
.GETPIB

.....
•• E; •

:..:.::~~!.~:...
·....
•• ..X..
.

_G2
IF ADDRESS IS NOT PRESENT
= OEV[CE END CNlV. [F
PRESENT, = CHA~NEL e..,o.

LOAD AoOR

+. a.

DECHQ

SELECT

•
POST DEVICe.
• STATUS FROM.
• CSW TO BYTES •

TRNDFF

••

.NO

.FQ •
.. .A~ •

• FQ •

X
.....03·······

x

C5

• YES ••
SUPYR
••
x ••••• INTERRUPTED ••

•• DEVICE
•• NO
•• END POSTING ••••••
•• REQUIRED ••

'NO

··.··GI··········
..................
....
OF EXT03

••
••

••

.. .'. ..
.. ..
.....x ........
.
.

••

•• PlOtS ••
•• ERROR RTN •• YES
•• OPERATING ••••••
••
.F2
••

•

X

+.

t3

TSTERF

:
FR~~A~Yf~OG ••
: ATTN RTN PIB ••

w.

..
........
HPS
OPTION
·AIt

~X •••••••••••••••••••••••• :

..•··Fl·······
..............

2

••

X

85··· ••

·YES

:.~~~2~.!~.~~~·

X

*tWo..

••••••

..

• E2·

X

1•••••••

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

:

.
NO ••

IN iTRG

•• J~ •

•X

·

FW-H2

:.~~~2~.!~.=~~·

X

.. .

.'.x *.

.* • - DEVICE *. w.

•
•

FU-03

• RESET DEV ICE.
•
BUSY AND
•
• INTERVENTION •
•
REQU IRED
•

·YES

'NO

•

FN-J5
FT-E2,G5

·FQ •

• •• ··C2·······
• RESET DEVICE•
BUSY AND
•
• I NTERVENTI ON REQUIRED
•
•
• FLAGS IN pue-

_. IN PROt .-

•

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

X

NOTBSV

••
tTRL
_. NO
••
UNIT BUSV ••••••

•

X

PURGE

• POST TRAFFIC.
•
B11 IN CCB, •
BYTE 2,
•
•
:
X'80'
••

.. ..
·····83·······
.. -. .. .....- .....
••A;.
x
.. .'. ..
.. ...... .....x
..............
••F!.
82

Cl
*.
.- SUPVR *.
• _ CAlAL OR +. YES
-.REALLOCATION ••••••

•
•
•
•

SUPERVI SOR GENERATION
OPTIONS

•• YES
••••••••••••••••••••
••

x

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

•

..

• A4

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

:

x
: •••• 81 ••••••••

--'--.e

••

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

•

'NO

-YES

w.

A2

.. .....x
....
· .

a •• _

01

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

X
•••

••
••
DEVICE
••
END

I NTISRRUP T ••••••
+. a.
._ .+

•
:

··......
• I

X
TSTATTN

Refer

SGTCHS Macro-- I/O Interrupt (Part 2 of 5)
to supervisor, Chart 15

Chart FP.

•

·...·J4··········

CAUTION'
IF THE INTERRUPTED
PROGRAM HAS HI GHER
PRIORI TV THAN THE
PROGRAM TO WHICH
THE DEVICE [S

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

~grTm m~lT~8N.

ClR TEB

X

•
GET TEB
•
NO. FROM
• PUB AND tALC
:
ADDR OF TEB

•
•
•
:

~~T~~~E~~T~m~~EAS
PROGRAM.

I F THIS IS

··-•.·K4··········.
X

•

RESET

•

IN TEB

:

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

•

RETRY eTR

•

x
··....
......
• 4

•

Appendix H. Detailed Flowcharts

399

SGTCHS Macro-- I/O Interrupt (Part 3 of 5)
to Supervisor, Chart 15

Chart FQ.

.....
...
00

.......
.x······· .
..

•

• 82-

••
••

................
• ,a oAI
X",pi
•

TH'

tHA"G

•

t

A3

0

:

·B5

•• 100
••••••••••••••••••••

••

-YES

X

ii

••••• 81 ••••••••••

: •••• B3 ••••••••• :

E

• LOAD ADDRESS
• OF PUB LAST
•
STARTED

·

E

ic

·····BIt··········

.

•

x
: •••• C3 ••••••••• :
•
•
-

.--..............
CHANG ENTRY

: '0 ~'N~~ftNQ
ic

:CHNTST

~YBEUA6~

:•

CHANQ ENTRY

•

pus

CHAN~

• 0

NO . ' S~l~CTOR

RETURN TO AD DR

IN REG 9.

EXT03 IF ATTN
INT~RRUP~ OR

'.
.0.

~~yO~fT~ p~6gt~~.

0

O. oB5 .0

EXT02 IF ERP
TRANS] ENT RETURNED

o •• 0

-YES

I $VC31 TO EX IGN
OR EXWHY.
EnOl FOR OTHER
C(JNOITIONS.

.'.x

o.

•

:

.•.

••••••••••• Xi

.'.

• 2

••

.~.

:TSTOEF··

·

F3

I

••••

• LOAD AODRS OF
PUB LAST
S TAR TEO AND
1ST PUB ON

• NO.- DEVICE
-.
•• •••• AVAILABLE ••

2

.:., A6illilLE

e.

• 5

•

• 2

.:.~~ ••• :

Y~$

:

X

...x
....

•
•

J2

•

•
•

••

-...
.. ..
.YES

.. .'. ..
...... ..

••

••

LAST

PUB

•• YES

•

•••••••••••••••••• X •

•• STARTED .-NO

...
.....
J3

-.

••
BUAST
•• NO
••
TIP
•• ON MULTIPLEX •••••••••• X..
OPTION
•• DEVICE ••
••

FREOEVl

•• NO X
••••••
••

...
.... .

J4

.....
....x .
.
• FZ·

.-.
-.

•PUB ••
••
tHANQ
•• YES
•• PTR EQUALS ...... .
••
XIFF I ••

-. ...... .....x .
··......

'REG91

GENERAL EXIT

.NO

.YES

i

• 4

:

•

5

:

.<5

FJ-Bl 'MINIMUM OPTIONS I
FK-Al 'MAXIMUM OPTIONS)

.. .

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

.

• • k~.

400

INCREMENT

PTR TO NEXT

••

:

liD, .K5.

·YES

i

FS.

.......
..:mm
.

i

•• X.

H4

•• X.

GE'N~~ONQ

••

• 3

i

mlT;r~'
ic
••••• K1 ••••••••••
• egDSP

.'.i<

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

..·.·G4··········

:

...

:SElBMX

••

F5

··....'' ..

.YES

•

•

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

:

.

•

ENTRY

•• PAST ••
NO •• LAST PUB ••
•••••
ON TH IS
••
•• tHAt'IINEL ••

•
•
•
•

•• ~~~~.!~.~~~! •• :

-YES

....

.. ..
-. .......
....
·· '" .
.-...-.-.-........
·...................

ltlCREMENT
POINTER TO
NEXT PUB

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

••••• FIt ••••••••••

- •

•
PUB ENTRY t
• BEGIN AT 1ST
•
PUB ON CHAN

• NO

G.

•
•

X

IN ITCHNL

.- -.
.. -. .. .... .· .

•

.. ..

JI

i

·····E5··········

•

•

•

HI..
PUS ••

.:.

..........
··......
.YES

H2
••
••••
••
CHANQ
•• YES
••
BURST
•• NO
••• ~TRXl~~'LS ••••••••• i··li.··2~ a~~TA~LE~ •••••••••••••••••••••••••••••••• :
••••
•• ·S5 ••
••

••

DEVICE •• e. NO
•
AVAILABLE ................... X.

••

..!...

••
o •••
eVES

•

...x

'
.
: •••

4

:

Gl
o.
o.
•• DEVICE
o. NO
o.ON MUL II PLEX . 0 • • • •
o. CHANNEL ••
••

Dolt

• NO

o.

O~T~~~L

.........

0.··..

••

-... ....
....
·
:

oF2

flo.

'NO

••

x.····

.0.x:X •••••••••••••••••••••••• :

SELECT

••

•.·0 .• o·

•

PUB -.
• YES ••
CHANO
••
.~TRX~~~~LS ••• -

•
•
•

•••

Colt

i

E3

•

POINTER T
FReE LIS
POINTER

'.
'.

3 •• X •
••••
X

.NO

•

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

•

........

•• c~.

x
: ..··M~~E·dL~····:

.t

•
:

•• PUB ••
CHANg
o. YES
••
o. PTR EQUALS ••••••••••••••••••••
CI.
X'FF' ••

•

•• PAST ••
•• LAST PUB •• VES
••
ON THIS
••••••
•• CHAN
••

.. .
.

. . . . . . . 111 . . . . . . . . . . .

03

GET
FOCL

FREDEV

: ••••• ~~!~~ ••• o.:

• ...... 01·· •••• ••••
: L t~~V~Or=~~R :

:•

INCREMENT
POINTER TO
NEXT PUB

SUPERVISOR
GENERATION
OPTION

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

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

:•
:

'BS

:!~~:~~---.-.-~~:

•
•
•

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

ic
..... oCl •••••• ..,. ••
=Y~fDC~:A=

:

• • • «1

· S:fi'A9S: .
........."'.......
:•

1

••

fliPS
OPTICN

••

•

•

.. .0. ..
.. ..

IIUTRG

t;ittrlj8i~··:

(

·.....

0

~

I

IJECHQ

Refer

DOS System Control

··...... .
• 1

• .F~ •

•

SGTCHS Macro-- I/O Interrupt (Part 4 of 5); Refer
to supervisor, Chart 15

Chart FR.

.....
.....
: 4

·
·
··

• FP •

.
.

••
••

-COUNT fROM CSW •
•
TO cca
•

••

.fl...,. •• ........... .

"
•••• "

TIP
OPTION

'"

.1.3

••

•• NO
••••••

·elt

••

.-

••

SYSRDR

:

*. a. De,. ._ .*

•

NO

DECREHENT

..

•

esw ADDRESS

•
•

AQDRESS OF
LAST teW

•

BY B TO GET

•

o •• _

-YES

•
•

e3

a:.

YES ••

•• ••••

•• o.
ROUTINE
._ . o •• _

- 3

••

READ

,-,

••

..

.-....x --

.. ,* .. •.
...... .. ,,-,

x

64

a • • EIt .a
a •••
·YES

•

x

x
,-,
._ CleeB -. D.
J~~!.:. A~~~A~~E

_

••

DEALSO

x

,-,

C5
••
.a CTRL
••

YES •• UNIT END •••
• •••• DEY END. UNIT ••
.CK. OR UN I T.
•• EXCP •• a

......x
-

-NO

-NO

....
-NO

• FP •

• a E; .

:x ..•....... :

x
.. -, ..
·~··Ol····,······
......•.......... .....x .. .. ....

x

CHNORT

DZ

,

x

••

NO ••
IS
••
THERE A
••
•• •••
••
eeB
••

: ,"OVE ADDRESS :
-OF NEXT teN IN •
•
CHAIN TO
•

: eeB

:

oo.
BURST
... NO
•
..ON MULTIPLEX ••••••••••••••••• ooX.
•• OPTION ••

•

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

* ••••

•

2

:

X

D.

-.....

•• NO

OR
••••••••••••••••••••
•• SYS[PT ••
a.
••

..•..83··········

e.

OPT 1 N

•

•••

• YES

x

Bl

:

X

SYSFILE3

••

: 4

••••

• TEl~-ING
"
•• ~ROCeS
D.

,-,

-YES

1', • • •

1

.. ..
.. ..
.... .... ....x
....
- .1.2

• MOVE RESIDUAL.
~

:

x

CHNDRT
X
• _•••l l · ••• • •• •••

• 5

-....-

.••....K!.
.

:

•

•• .*

••

03

TRNDFF

,-,

••

•• .oo

............
,&

READ

X

• •• • .. 05··· .... ••
•
POST DEVICE.

NO

•

••••• oo

BUSY X'BO'

•

IN

pue

FLAG BYTE.

•

• YES

.YES

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

•

a

·EQ -

--

• Fl·

:••••••.••• x:

.H··El·······
..................
X

POSTCE

:

POST STATUS·.

•

FROM CSW
TO eeB

*E4

D.

*

•

THE

RESIDUAL
CCUNT FROM
THE esw TO

Fl
-.
SVSFI L
OPTION
*E4

D.

-.

•

•

: •••• !~~.~~2 ....:

....

,-,

.*.

•

~OVE

x

x

•_

·····E3·······

X

•
•

•

-- -- - 5

NO
.- ••••

D.

••

* ••
.YES

i

·····EZ··········

•

: 3

-

:

-

POST EOF
X'ZO' TO
PUB FLAG

•

..

: ••••••••••••••••• oooo •••••
TSTBMX

TYPB

•a

X

-H2
SVSLST

.- ••••

2311

SYSIN

.0

····.YE~·

••

-- --

x

:;VsFile2
··FM:
_0-0-.-.-4-."-.-·
..

....................
GE.T ADOR
OF OIB FOR
THIS FILE

•
•
•

1

H3

··tf\*··-

• ....·Kl·· ....

•
•

•
•

•
•

••

•

_

IN START

••••• !~2.~!~ ....

--

:

2

:

i

INITRG
JS

VES ...

•

•••••

•

X •••••• oooooo. :

,-,

••

•• BURST a.

ON

••

HUL TIPlEX
ooa
•• OPTION
••

..... ....
-- .....
-- -

•• ·E4 ...

.FQ •

••••
••

• V ES

• A3·

MOVE BURST.
HPX HASK
TO BRSFLD

....,-

FROM MPX
••
CHAN
.a

.a~
••
.FQ •

- - -

·····J3·······

a.

NO •• INTERRUPT ••

•• •••

.~ ••

_ 2

i

i

•
UPDATE
• -CURRENT OJ SK

•• NO

HSOO·. a.
a.

-

•

..

i
••

...... YE~·

•

••

CHANNEL
••••••
•• OPTION
••
• • • E4 .a
a •••

X:X

•••

,-,

·YES

••
BURST
•• NO X
•• ON MULTI PLEX . . . . . ..
.. oo DEVICE
••

SVSOUT

.!..

-

X

GS

• a SELECTOR

aYES

HI
-.
•• ··OEVICE •••• NO

-

.REQUIRED X'04' •
•
I N PUB
•
•
FLAG BYTE.

••• E'"

.-,x

•

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

•• BURST ••
••
ON
•• NO
••
MULTIPLEX
••••••
•• OPTION
oo.
.a
••• a

-YES

•

X

• ..... FS···· .. ••
•
POST OEYICE.
•
END POSTING.

:X.oo •••••••• :

DEVICE
_. NO X
*.
SYSTEM
••••••
D.
110
.*
o. o *H2
• • _ ._

•

T STERF

X

• POST EOF AND •
.UNI T EXCEPT ION.
•
IN CC8,
*
..
BYTE 2
•

X

• _ Gl ]5 -. *.

4

·YES

.

G3··· ••

• 0

••

.. ......

·...·F3·······
-..............

PSTEOF

,',

•• DEV ••
NO .aEND POSTING ••
•••••
REQUESTED ••
•• IN eeB
••

: •••••••••• X:

x

D.

-

E5

GENERA TI ON

OPTION

: ••••• 2!!~ •••••

,-,

D.

-e4
SUPER V I SOR

.K4

• J2a

REFER TO NOTE .H3
ON CHART FQ

SeLBHX

-NO
• (REG 91
.GENERAl EXIT
X

--

• Kit·

..................
ADDRESS
IN 018

.:..

:

1

-

:

~ppendix

H. Detailed Flowcharts

401

Chart FS.

SGTCHS Macro-- I/O Interrupt (Part 5 of
to Supervisor, Chart 15

• ..... al ••••••••••

....- .........

• •••• B2 ••••••••••

:

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

: •••• Cl ••••••••• :

ZROREG
: ••••C2 ••••••••• :

:

CQDSP

CQOSP

x

GET CHANQ
POINTER

•
•

FROM PUB

:

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

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

LOAD ADDR
OF LUBID
TO REG 5

•
•
:

...• • • • CI • • • • • • • • • •

..···El···. •·•·•·

ZROREG

x

•
•

CALC ADDR

OF CHANQ

•

ENTRV !N

REG

~

LOAD CHAN
NUMBER
TO REG 2

•
•

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

• •••• B3 ••••••••••

•

GETPIB

LOAD ADDR

OF F!RST
PUB ON
CHANNEL

•

X

•

LOAD LTK

•

REGN TO

•

FROM COHM

····E2.•. ·• •. ••

•*

.*
*. *.

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

03

.-.x * •
110

*.

REQUEST
*. YES
FROM
TRAN B- ._ • * ••••

a.

a •• _
_ NO

._

·····E3··········
X

i

RETURN TO
LINK ArD~

•

REG B

•••• !2.~~:.~ ••••:

•

•

..•..e,3··········

GETPIB

X

•

X

•

:

•
:

...
...

...
...

MOVE REQIO
FeR THIS

CHANQ ENTRV
TO REG 8

...
...

...
...

:x ••••••...• :

X

-...................•••• oF 1.......... .

•
•

LOAD ADOR
OF cee
INTO REG 1

•

...

····G1·········

402

RETURN TO

LINK ADDR

CIolC AODR
OF PIS
FOR: CHANQ
~NTRY IN
REG 8

...

••

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

•

..

...

X

•

x

.···.F3··········

GETP!.!

...

X

DOS System Control

····G:;·········
RETURN TO

lINK ADOR

•

5)~

Refer

(

Chart FT.

SGUNCK Macro-- Unit Check Routine Entries; Refer
to Supervisor, Chart 17

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

......

.....

....

-FN •

•• J~.

: 1

o

•··•.B2·······

• 2

:

.- .'. ..
X

ic

10NOP

•

SET DEVICE.

•

STATUS TO

85

.. ..

: ••• =~~2!.:~~ ••

·YES

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

•

RESET ERROR

·····C2··········
•

••

•

QUEUE FLAGS

AND SET
RETRV FLAG
IN IOERR

Cit

.'.x ••

.'.

PUB

C5
••
•• CHAN·.
•
•• CHAINING •• NO X
••
81 T ON IN ••••••

••

NO.. DEVICE
••
••••• END POSTING ••
•• FLAG ON ••

•

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

a.

••
CHAN
•• NO
••
CHAINING
••••••
• , OPTION .a. 001 ••

•

:x.O~T1Tfi~A~~El ••

UNTCK1

0

•
•
•

II.

..!..

.

.....•

••

.....
eea

J..

••

• •

.YES

·YES

·FU •

• • 8~.

oD1

.'.
ic

SlJPERV ISOR
GENERATION

OPTION

.....

•_

PRTPRG

02
+.
•• CHAN +.
DATA OR

-.CHAN CHAINING ••••••••••••••••••••••••••••••••••
+. CHECK,
.+.

*FN +
•• H~.
o

eee ••

+•• +

-YES

.

••

.....
.
*FP •
• o AI0

: •••••••••••••••••••••••• X:

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

UNTCK2

X

•

REseT ERROR

:

QU~~~ :~t~~.

1ST Jl,TTN

FLAG IN

•

••

••

••

:x •••••••••• :

.

••

••

.....-..
eeB

••

••

YES

•

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

.a

Git

•••

••

a•

USREXT
X
·····GS·······
•
POST
•
DISASTER
ERROR
FLAG IN
t!

•

.....
•.A! •
.
flFP •

••

•• BURST ••
•
ON
•• NO X
MULTIPLEX

•• DEVICE

••

TSTATTN

••••••

X

• MODIFY BURST.
• ON MULTIPLEX.

..................
LOAD CSW
INTO
REG 8

.'.x

eea

ft·············

...··J4·······

X

•

•
•

•

-

MASK AT

BRSFLG IN

:.~!::!II!!2.~!N

•

-

:X •••••••••• :

..! ..

••

-FU •
• • B~ •

.

••

.. ...... ....
:•.•....••. xi
......

PRTPRG

••
PRESENT
•• YES
••
REG 8 NOT
••••••

0

••

i

• NO

•

•o 2

: 1

IS

ERP

•• (PUB).a •••
·YES

: •••• J2 ••••••••• :

••

.'

I T AN

Hit

'NO

CSW

F4

fl • • •
-YES

-.
.. .. ....

K2

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

•• OPTION ••
•• ·01 ••

+.

•• = X' FF I

••

BURST
•• NO
_.ON MULTIPLEX ••••••
••

YES..
CHAN
••
••••••
QUEUE PTR
••

••

ceeB)

BSTTST

-YES

.'.x

ROUTINE

'NO

+•• -

.-

........

••

••

•

.x'.

H2

•••

••

••

••

G2
+.
••
+.
•_
TIP
+. NO
+.
-01
.+ ••••
._ .+. a.

.'.ic

:X •••••••••• :
X •••••••••••••••••••••••• :

:•••••••••• X:X

•

10ERR

•

••

.NO

•

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

•

•

•

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

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

FLAG IN
IOERR

HOVE AODR
OF NEXT cew
FROM CSW
TO eea

Eit
••
•• USER
••
•• UNIT CHECK •• YES

_THAT USER WANTS_ ••••
a.
SENSE
••
+.DATA .+

'NO

•

AVAILABLE

+.

• - SPECIFIES +. YES

-.. -

•
•
•

•

eea

: USRUCK

• _E2 eee

X

X

RESET NO

i

x
'. +.

....·05··········

·····04··········
•

+. NO

0

•0

:

~ppendiK

B. Detailed

FloNch~rts

403

SGUNCK Macro-- Unit Check Routine Build Error
Queue Entry~ Refer to Supervisor, Chart 17

Chart FU.

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

•••••
••••A!~•
•

• 1

•

ic

.. .'. ..
...e
-. -.....
84

• :'

••

.:.!~! .............. .

OpH&N

.

'NO

• _e2
•_

.•'.

GElSEN

-. e.

ERROR

-. ··.AD.-

YES ••

-.' YES

••••••

••

.- •

2702

..

OR

••

...2703

.e

••

••

.-

'NO

• Ae
·····DZ·.········
OR :

.AolIVtHIe:
.................
:tAB~~R

•••

C5

-. _.QUEUE
TAILE
.-•••••••••••••••••••
FULL
.0

:,=CREM8NT

X

..

'FOR NE XT e~TRY •

ERROVL

.'.x

.- -.
03

X

.-.-._._._._e_._.

······OS···········
ERRSIO
FV

-.

•eea
*. YES
*.NOT AV.JL.8LE ••••••
-. SET N._
•
*.JOE
•
_ • • R._
_
X
*NO
•••••
-FP •
• AI-

...

x

.'.

•-

GEbAUNSE

.

.

• )C . . . . . . . . . . . .

TSTATYN

• _ E!
- •e•
SUPVR
_. YES

-. o. INTERRUPT
IN 110 ._ ••••••
o. PSN ._
o •• _

'NO

.....x

.

-FB •

•.•••
F2·······
•
X

• SET DEVICE.
8y~VE AND
• DEY
ERROR • •

•

.-.-.-.-.-.-.-.-.

ERR3l

..............
• FLAG

-f5
MULTIPLE RETURN
FROM ERRSIO
SUBROUTINE •

FCHOVL
•
GETSEN
X
•••••• F4 •• •• •••• •••
ERRSIO
FV

•• B!*

GET SENSE
DATA

IN PUB •

FL G BVTE •

..

••
••
••

:x.......••.•. :

G4

.-.x

••

..

ERROR
•• YES
ON
••••••••••••••••••••
SENSE ••
•• • FS ••

.. ..
-NO

x
.'.
.- -.
H2

NO._

••••••

•

NOUlCK

-.

IS'

THERE A

-.

._ .*. o. o eea
•• _

.-

-YES

._J2

•

.'.x

X

H3

•••

•• CHAN

••

.:CHA2Al~A~=ING:.~~~ •
•• CHECK,

-.. -

•• teB ••
'NO

..·FV!..•

.

._e~.

-. e.

X NO.o
USER
-.
•••••• o.
.,ANTINFO
SENSE ._ .o.
._
o •• _

EXTRAN

eYES

·:·····K2··········
'Dfi~_ss :
X

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

·••••• •••••• X;

• 1

404

•

DOS System Control

••

.'.x

•••••HS.······
..
A.· ....
...... .. .....x .:E.............
x:
.. ..
.... .... .... ....
..!..
. ..... - - ..••!B!...

..
•.

MYlEX

••

••

H4

ic

ERRSEN

••

DEVICE

• RESET DEVICE •
.STATUS BITS IN.
.CSW EXCEPT DEY •
N~~D C~~~TE~~: •

•• YES

•• PR INTER ••

_NO

• FW •

•• B~ •

: • • • • • oo • • • • • •

RESCHK

YES..
•••••

••

J4

x

•••

DEVICE
A

2311

-NO

·GV •
••A~.

RES ERR

X

••

i

·

• FV •

.C~.

-

EXTRAN

••
••

••

YES..
oo • • • •

JS··· ••
DEY ••

STATUS

••

IS DEV END ••
..AND UNIT ••

·.CHECK.·

x

: 1

••

'NO

:

·FY •

-

RCVERR

(

Chart FV.

SGUNCK Macro Error Recovery Exits (Part 1 of 2);
Refer to Supervisor, Chart 17

GE{ ERROR
RE 0 RY
TR NnENT

'.3
MULTIPLE
ENTRIES

~~:5~

...••....A!*.
.

............
• A1-

oB3
SUPERV ISOR

mia~TlON

·····B2··········
X

RCVERR

•
HOVE ERROR
•
-ON RECOVERY "5G-

....

.................
:tO~=Ao~' ~3E~E TO:

•

ENTRY

•

o

:

.•••••••'•••••••••••••••••• xx.
EXTRAN

•
•
•
•

-.. -

·····03··········
._e_e_._._._a_a_.

X

X

••
• •• 02· ••• ••••••
*RSTREG
FX*

-CClaSp

R~m9~~s

:CHANR~~~~C5LER :
: ••. ~~~!:!~:~..•:

D.

X

QUeUE

THI~

·····EIt··········

...

.:.!~~.

A

MOVE CHANNEL
AND UNIT
FROM PUB
TO CORE LOC

.

····.HZ··········
X

•

•

•

LOAD ADDRESS
OF EXT03
INTO REG 9
FOR GENERAL

•

EXIT

•

•

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

····.Jz·······

....x
....

•
•
•
:

MOVE WAIT
ERROR
TO CORE
LOC 0

SEI 8U~t~CE ••
FlAG TO
•
ACTIVE
•

..............
.....
.
X'S5'

X

::~!:

SELECT

•

•

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

o

•

: 1

:

•
:

X

•••••H4 ••••••••••
•
MOVE AC TlON
•
•
CODE 'W'
•
•
TO CORE
:
LOC 1

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

X

•

•

X
·····G4••••••••••
cooe •

-.

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

:
•
•

•

•

:x•........•....••........ :

oNO

•
•

0

SUPCNL

a. D • • _ ...

STDEXT

.....

: •••• ~.~~2.~ •••••

.REALLOCATION'. YESX..
-. o.IN PROGRESS
._ ...... .

.

..~~;2!t F3
o
0

X
·····FIt·••••
·•···

•
•
•
•

oNO

.-

•
•
•

o

-. e •

.'.x *.

•

: •••~~~~~~2~ •••• :

a. FETCH ._ ._
a •• _

G2

•

•
•
•

:X •••••••••••••••••••••••• :
SET WAIT
ERROR CODE
TO FETCH
ERROR QUE UE

.0.x

• FU •

•• E~ •

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

• _ F2

.....
.

X

SET WAIT
ERROR CODE
TO HARD
FETCH ERROR

FCHOVL

D. ENTRY
D . . . _ ••

•
•
•
•

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

•
•
•
•

X •••••••••••••••••••••••• :

.NO

•:*

FS*

.0.

E2
*.
• _NO cee -.
YES .. *AVLBL FLAG -.
•••••• SET IN ERROR .a.

X

MOVE SENSE
BVTES FROM
ERQSNS TO
CORE LOC

! •••• !.!~.12 •••• :

-YES

.-a_a_._._a_._a_.

0

:

·····C4··········

HAROWT

.. e.
• _e2
HULT]- • D.

• -PROGRAM"! NG*. NO
-.
OPTION
.................... .
o.
*B3 ... .a.

i

1

X

• ••• J4 •••••••••

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

•

ENTER

WAIT STATE

:~:

•

•

.KIt HARD WAIT

THE CPU ENTERS THE WAIT
STATE WHEN THE LOAO PSW
INSTRUC TlON LOAOS A
OOUBLE WORD WITH A 1 IN
BIT POSITION 14 •

~ppendix

H. Detailed Flowcharts

405

Chart FW.

SGUNCK Macro Error Recovery Exits (Part 2 of 2);
Refer to supervisor, Chart 17

.....

........
*.A!*
.

-FU •
• H4_

---

ERRPRT

.-

82

•_

_.

.e.ic

-.

CHAN
9

-.

·····83··········:
:
X

EXIIHY
•

-. NO

••••••

-.OVERFLOW
o.
._ .-

MOVE CSW

.._FY!..•

-YES

.

SmM

EXRTY

•

GD~~EE==¥~y

• ~~.:

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

o •• _

'84
SUPERVISOR
TlON

TO CSW

:

. .
....
.!••

•• C~.

• 0
.0

-.

-.

C2

.-.ic

eea

: 1

x

~XTRAN

-. _ .

AVAILABLE
a.
._
o •• _

. 0 C3

_.

.-

NO

••••••

*.

ic

•

POST CHAN

•

.................
i
....
-....·.....
•

9 OVERfLOW

•

:

TO eeB

:

.

*.

.. ..

: 1

X

.!~~.!~-.-.-.-~.

..... .....
RE-EXEtUTE
USERS

~~~

•

Al-

•

•

QUEUE ENTRY

TO CSW

•

•

·····H2··········
iC

:~~~~:-.-.-.-~~:

•
•

DEQUEUE
ERROR

•
•

: ••••• ~~!~~ ••••• :

..~..
...
oFP •

• AI-

TSTATTN

·406

DOS System Control

FY

·····05··········
.-.-.-.-.-.-.-.-.
.................
X

.OEQUER

•

•

FX.

DEQUEUE
ERROR
ENTRY

.....
...
iC

SELEtT

.....F3··········
..................
•

DEQUEUE
ERROR
ENTRY

X

*tIIOVE STORED CSWFROM ERROR
•
•

RE-EXEtUTE
USERS

x

• Fl·

:

X

·YES

:

.FQ •

•

EXiGN

ic

ERRSI02

:X •••••••••••••••••••••••• :

X

•

······04···········
.-.-.-.-.-.-.-.-.
..... .....
~~~

:~~~~!:-.-.-.-~~:

_

ENTRY.·

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

PROTECT
OPTION ••
-. -84 ••
'NO

:

....
.
•• -.X.
.... .
·····G2··········
·
.
.................

........

·~k~8R O~UI~E·: •

••

: •••• CS ••••••••• :
..
LOAD ADDR
•
OF SELECT
•
•
INTO LINK
..
•
•
REG 8
..

_. YES
.a ••••••••••••••••••

EXIGN

IGNORE
extT

.'.x

85
••
•• RETRY·.

EXIGN

•

•.•.. 00:!···········

X•••••••••• :

: 1

.'

-. _
STORAGE

.0

-YES

: •••• 02 ••••••••• :

(

..
!..
.FN •
• B"·

..

OtSWHY

•

•
..
•

Chart FX.

SGUNCK Macro-- DEQUER and RSTREG
Refer to supervisor, Chart 17

Subroutines~

• •••• '2 ••••••••••

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

DEQUER

•

:

:.C3
SUPERVISOR
GENERATION
OPTION

·····C2·······
X

•
•

C4

RESTORE·
DeQUER
•

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

SWITCH TO
•
A BRANCH ••

····85·········.
··...............
.

......
....
1

...x

•

R5TREG

•

:

••••••••••••• X.
RSTREG
X
: •••• C5 ••••••••• :

-.

•• PRo~Nk~A1Na
••.a ••••
YES:
OPTION

_.

-. a. *C3 ._ .a •• _

.NO

• LOAD CHANNEL

•

:

:

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

AND UNIT

INTO REG 2

•

:x ••...•...•...•..•..••... :

X

: •••• 02 ••••••••• :
LOAD PUB
ADDR INTO
REG 3

.................
·
•....E2.····.··.·

.....04··········
X

*CQDSP

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

X

•

•

DEQUEUE

•

THE FIRST

•

EIlROR QUEUE

:

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

:

ENTRY OF THE

•

FS*

.-e-e-.-a-a-a-a-e
•
RESTORE
•

REGISTERS

····E4·········
X

•

:

...............
RETURN TO

•

LINK ADDR

•

.....F2··········
i

_
•

."avE CHAN
AND
FROM UNIT
PUB
TO 1/0 OLD

•

••

:...... ......:
•

=~~

:X •••••••••• :

•...·G2··········

DEQUERI

i

.DECREMENT AODR
-OF NEXT AVAJL•
ABLE ERROR
• QUEUE ENTRY BY

•
•
•
•

:~~~.~~.!.~~!~~.:

X

·····H2·······
•

RESET 0
BUSY
• QUEUED
: FLAGS I

ICE.

D

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

•

••

•

..!...
: 1

:

~ppendix

H. Detailed Flowcharts

407

SGUNCK Macro-- Error start I/O Subroutine: Refer
to Supervisor, Chart 17

Chart FY.

(

··....
......
• 1

X
......AIt···········

OURSIO

··.... ........
•••• Al· . . . . ••••

•

ERRSIO

•

START
I/O

•

-.~

• _ Bl

•:-w.

.'.x

'83

mmm~

OPTION •

w • w•

~~8~t2~ ._.:.~~ ............... .

OPTION

w. *83 ._

-·.YEs

••.......•. x:

·

ERRSIO

.
..............
X

• ••• Cl ••••••••••

•
•
:

.~

LOAD REG
8 TO REG
2, teN KEY

•
•
:

·. . ··01··········
..................
X

·:·····C2••·•·•••••.:
.................
X

ERRSIO

•

.. aVE teN

~8D~I~S

······CIt •••• •••••••

TEST
1/0

..!...
: 1

FROM CDMM

•
•

REGN TO
REG 2

•

....................
KEY
TO
REG 2

:.E5
FH-K3
FJ-03

.'.

•

...............
EARSIOl

MOVE CCW

FRa2Dl~S 8

•
:

TO CAW

•

:
......
...........
~

2

RCVERR
CSWCHK

PROTECTION

•

•. .... 'I.

••
••

MACH INE CHECK
IN!!:~~PT

•
KEY FROM
•
REG 2 TO
•••ItI- • • • • CAW
•
••••••••••

• LOAD CHANNE:L
AND UNIT
FROM 110
OLD
PSW
TO
REG
2
_

..

*.

...

• FA •
• Bit·

'I •

..................
.!••
··....
..

X

•
•
•
•

MOVE ACT ION
CODE S
INTO MAIN
STORAGE

e.

CHANNEL
ERROR

•• YES
••••••

••

'NO

.·.··H3··········

MACHEK

.'.x

..
........
GIt

:•••••••••.•••••••••••••• x:

•
•
•
••

••

CHANNEL·· •• YES
•
FAILURE
•••••••••••••••••• x.

'NO

•

......Hl····.······

Fit

••

:

X

•
•

••

H4

.'.x

••

•
•• yeSX
••••••

.. .... ..

····J3·········

.. .'. ..

••
••

•
•

UNIT
CHECK

••

·····G5··········

CHFAI L

X

•
•

HOVe SYSTEM
ERROR coDe
X'Ol' TO
CORE LOC a

·····H5··········

'I •

'NO

•
MOVE SEREP
•
•
ERROR CODE
•
X'OF' TO
•
•
• MACHINE CHECK.

....

:

X

•

ENTER

WAIT STATE

•.••••• :~! .•••••

J4

•

..

NO..
•• •••

X

·· ..
••••

• 1

••••••••

..

••
••

.YES

•

r
K4 •• •••••••
• ••••
RETURN
TO
•
LINK ADOR
•

••••• ~~~~.! ••••••

DOS System Control

....:

• 2

••

CHANNEL
END

~;~.~~~

··

x

•

•
e

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

:

X

e.

: •• ~~S!!!~~.! ••• :

•

408

(

• E5.

X

.e··

••

·..··Gl··X•••••••·
• MOVE STORAGE

.....-

'~O

eFV •
•• B~.

......
:

FN-81

.....x ....
. .-.:x•.••.••••. :

:

X

• 1

••
••

E4
e.
YES •••• CHANNEL·· ••
• •• e.
NOT
••
·.OPERATION.·
e.
'I •

• •••• E2 ••••••••••

: •••• Fl ••••••••• :

•

••

CHANNEL
BUSY

'NO

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

•• 'I..

x

IT.
S
•
PROT
N

EARSI02

DIt

•
•

••.. ··e1· ........
•
•

.. .'. ..
.. ..... -...-

• YE S..

•

X

•
•
•

x

.

:

• LOAD PROGRAM •
• INTERRUPT KEY.
•

x

:AFTTIO

•

....KS·········
X

•

RETURN TO

LI NK A[:DR

•

Chart FZ.

SGUNCK Macro-- Quiesce I/O Task; Refer to
Supervisor, Chart 17

--

- 1

..

QUISI03

••
••

••

X

..
........ ....
- B3

•••

••

LAST
PUB
ENTRY

•• NO
••••••
••

i

·YES

X

001510

x

.-.

•

-. .-

•
•

·····02·······

X

SST P IK
IN COIIIM
X'6Q'

•

RESET QUIESCE

•
•

BYTE TO
X'84',

•

RHGN TO

SUPVR KEY

•

•

:

•

•

.....
2

0

TO

•

:.~;~2~~~:.!~!~.:

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

...............
QISRTl

• LOAD ADDRESS

•

.0.; *.

•• PRoc1~~iNG· _.

F3

••

J~

eYES

.-.X

r8LE-

• LOAD ADDRESS
• OF PUB ENTRY
•

:

SE~A~~SI~H

:
•

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

-YES

It

. .......••. Xi

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

:QISRT3

••

.... .....
·J4

FS

•••

••

•• DEVICE
••
IN ERROR

••

•• YES
...... .

-NO

.. .-. ..
........
x

G5

• NO ••

....... ..

-..-

:
•

CURRENT PSW
TO X'FE'

•

.-.x

-. NO

~

•

TO REG 1S

QI SRTl
X
·····ES··········

•
•

G:3
••
•• ERROR ...
•
•• QUEUE ENTRY •• YESX
•• FOR TAPE
••••••
•• DEVICE ••

-. PROCESSING ••••••
-. a.DEVICe ._ .-

•

FOR SYSRES

•

·YES

e. e.

i

·····oS··.·······
.-................

•• 7 OR 9 ••
••TRACK TAPE •• NO
••
SUPPORT
........ .

NO

OPTION
••••••••••••••••••••
*. a •a•• • _ ._ .-

._ G1

.-.x

QISRT2

QISRT2

.................
OF PUB
TO REG 15

•

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

:•.•••.••.••.••.....•••.• x:

x

: •••

Fl

•-

a

0

QUISI02
-.

:

: •••• E:3 ••••••••• :

EXT02

TO REG 15

HOVE

.TRANSIENT NAHE •
• FOR "ANERRD, •
•
TAPE ERROR
•

-FD •

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

•

• •••• CS ••••••••••

•

•
•

·····03··········

• 82-

GET ADDR
OF 1ST PUB
ON CHANNEL

.,

DISABLE

SYSTEM MASK
I N CURRENT

•

.....
...

x
: ..... El ••••••••• :

-

X

1/0 PIS FLAG.

: ••• !~~S!!~~ •••

•

.*i................. .

•
•
..

X

NOQUIS

•

-

: •• ~~~!.!~22~ ••• :

'NO

•

_

: •••• C3 ••••••••• :

e. e •
• _ Cl
•_
ERROR
*. YES
+. QUEUE TABLE .- ••••••• _ ••••••••••
••
EMPTY .a •• _

·····01•.•.•..•··

_ 2

..... •••

••

••

PUB
••
CHANQ PTR
...

X'FF'

••

.YES

-NO

: X............... :

x

:oisRV1·······FZ:
-e-_-_-.
• "-4""'1 _ _

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

:

g~SYf~E
,

x

·····H2·······...
.................• gl SRT!

FZ.

:-·-·DEQUeue·-·-:
DEVICE
•

•

•

•

:... ~~~.~~!e:...:

•

PU'o'2~~fSS
PUll ENTRY

:

• • • • • • • 411 • • ~. . . . . • •

•

•

• ••• HS •••••••••
RETURN TO
•
LINK AODR
:

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

: •••• :~~!!2~ •••• :

x

: •••• J2 ••••••••• :

•

:

x

•.····H:3
MOVE••••
A ••••••
TO
•
• TRANS lENT NAME •
• FDA UANERRA, •
TRANS lENT·, •
•

..X ..............:.J4
~~~~aXli8~

: __ •• Jl ....... ~.:
INCREMENT

X

X

INCREMENT

•

TO NEXT

•

PUB ADDRESS

•
X
•
.......................... XX

....
- -

•

X

····J3·········

OPTION.

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

SVC :3
•
.FETCH I.AHEARA •
OR SSANERRD
•
•
•

IIANERRA
CHART HE FOR UANERRD

CHART HA FOR

- - 1

-

~ppendix

H. Detailed

~lowcharts

409

SGDFCH Macro-- Fetch with MPS option (Part 1 of
3); Refer to Supervisor, Chart 14

Chart GA.

··....
......
• 1

liPS-SEE CllAIIT GD FOIl lATCH DNLY

••·.1......•••
··..................
•

fCHIIT2

•••••A!.! ••••••••

-...............•

FCHRll

.-................-

_

•

TO REG 9

•

-

·····83·.········
.................

·..··el····.····.
......."..•.......

·····C3·········.:
.................

ic

X

•••••••

°1:i~Y
a :
•

-

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

.BLOCK

MOVE PHASE

•

:

1~'Ga18~~Es

:

NAME FROM

•

:•

RE~~Et~R

•

:

•

ADDRESS

MOVE SVPVR

03

-

• 0

.:*••

•

KEY TO PROG

l=T~Illl~PM~V

•

:

• 4t!a . . . . . . . . . . .4I\• •

.. ..

••

X

P~:SE

..

•oo..
...

.-.-............-.-.-.

F3

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

••

.-.x ..
..
•:. TI=k .:.~~ ••

.C4

• CALC l IS-R TN

P~itE

•

: ••••••••••••••••
•

• •••• G4 ••••••••••

• CALC FGP OIR

•

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

•

.PHASE

.0

•
•

REG 4
·C4

•

•
•

-HZ

••

ON THE FIRST ENTRY
TO THE FETCH SUBROUTINE

DURING IPL

.... ....

.....H4··········
.CAlC PROS PROG •

OIR

OISK •

.............. ~ ...... X:A~g~,~~R~E~OIt BE: ...................

.-

:•••••• :S:•••••• :

·YES

m;:tVmsM:

.•·•.oJ1···.·····.
!oi;i!·;iNE-iF·-:
X

\g~~mSlENn.

~mm~PM: f~!~m~lENn .

GY.

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

x:•

·····JS··········
X

•

STORE REG

41 •

:

H~~6R I NAa~~

:

•

OF CiJRRECT

•

: ••• ~!~~~!~~~ ••• :

SELE TOR CHAN •
~

.

x:..

·:.~~~ ••••• X:O\8KB~og~1 ~~R,: •••••••••••••••• x:

-NO

••••

..

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

FGP

••

.. ..

•
•

·OIR DISK ADDRI •

•• YES

x

.:*••

•

.•................
IN REG It

PREFEREO
• •••• FIt ••••••••••

.. ..
•••

•
•

DIR •

•

• ••••••••••• X:HRRfNT~E~E410
• ••
•
·C4

G3

: ••••••••••••••••••

·:.~~~ ...... x:DIS~oAggR~o~RR.: ..................... X:

••

••••

GX-

• SVSR S J S ON

•••

.C4

AS TRAN S
• •••• E4 ••••••••••
• CALC TRAN

-NO

X

• lTA

•

...

PH:SE

.....

..•.-.. a·Gl····.·····
_._._e_._._._.
: S:UJ ~'~ni :
....................
.H2

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

••

...

- VALIDATE lDC : OF PHASE NAME :

-S~EREG

• •••• 04 ••••••••••
• CALC OPEN CIR •

..... x:DIS~oAg~R~~~R.
•
I N REG It

-NO

...

G)C.

.

.iC •••••••••••

x
: _ •• K1 ••••••••.• :
\8AeJ~liG~

:

.............
,...RBG 13

•

x
....
.-....-• 1

·:.!~~

x

• YlDADR2

•

:~Rge

w.

••••

X

.tII• • • Fl ......... .

:

OPCLOSE

w.

•••
E3
••
••••

.:.
...

•

._.

-NO

CLCEX

••

•

x

X

H1

•

4 TO COMPUTE •
-DIRECTORY DISK.

•

..... 01 ...........
-

•

OF PTA

X

FCHRll
ic
-lflDICArE !'ETCH : I~ ftE~~ES~~R :
-EItR6R RlloVERV •

•
•

. _ . . . . . . . . 411 . . . . •

410

•

- ~DAD
ADDRlss :0
A.EIRt~' fNT :

•••••A2 ••••••••••

•

(

-

DOS system Control

....•KS··········
X

•

SET CCW

•

: 12oR~teED~8~ :

• OF BLOCKS PER •

:2!~~S!~~~.!~~~.:

.....

:RCDIR2

x

·GB •
•• 8~.

-

SGDFCH Macro-- Fetch with MPS Option (Part 2 of
3), Refer to Supervisor, Chart 14

Chart GB.

:

1

.. ..

- .

_

**

*

*GA ...

**

2

... K5*

*

-o 3

- *

•-

:x ........................................ :
GETENTRV
X
·*··*B4 ... • .. ·*****
* LOAD PHASE
*
* ENTRY ADDRESS *
*FROM 01 REG TORY *
*
TO REG 1Z
*

X

ROD! R2

4*****62* ••••••••••
READUPDT

GG

*REAo-oIREcToR:;-*
_BLOCK, UPDATE-

...............
DI SK ADDR

X

X

·····C2··········
:
:
..-......... ....
... LOAD ADDRESS

GE2~R~~Tg~h,

·****C4*""********
* LOAD PHASE
*
* LOAD ADDRESS
*
""FROM DIRECTORY""
*
TO REG 7
*

...

.. INTO REG 15 ...
-FOR svc 23 ExIT-

_

:............................................. x:x
LOOKUP

02"

X

*.

0'"

YES .. '" END OF C I
0

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

OI RECTORY

it.

04"*·*_

••

.*
*.
.*OVERRIDING *.

*..*
.*

YES
*.LOAD ADDRESS .* ................... .
*.IN REG 0.*

.... *

* ••
-NO

TESTSVC

*.

o· svc -.
El

*. *.

••

23

•*

* ••
·YES

.....
-FD ..
... 62*

-

EXTOZ

ii.

.*

NO

.. * .....

.. '"

*.

......x

.-

.....

-NO

NOLOADAD
X
o
_
·****E4*"*·******

EZO *. *.

*•

*FB ...

*

YES

ECUAL

PHASE

.*

NAMES

LOAD PHASE
--ENTRY ADDRESS.
FROM REG 12
TO REG 0
*
*******.***** •• **

.* ......................... .

*
*
*

* ••
*
-NO

... 65-

* •

-

ERRZ2

....•FZ····_·····
...................
X

*...

...

INCREMENT
ADDRESS TO

..

...

_NEXT D1 RECTORY'"
ENTRY

X

TSTSVC

•

..

.....
F3

X

*•

*·***F4**********

SVC 23

.* ......

*. ...... * .*
*YES

- .

o

*

o. 0"

GZ"

*. *.

X

"*·* .. G3·*** .. *.*.*
*MOVE LOAD ADDR *
* Of PHASE TO *
* USER AREA
*
.. SPECIFIED BY *
*REG 0 (3 BYTES)*
*** •• ********** ••

*.

END
*. NO
-.OF DIRECTORy ....... ..
BLOCK
...
it.

* •••

.*

-YES

x

o

_.** •

*

oJl
IF THE PHASE I S TO BE LOADED AT OTHER
THAN THE LOAD ADDRESS IN THE DIRECTORY

1

~~~~~to~~EE~~~~E MD~+R~EF~g~u!~gD BY
A RELOCATION FACTOR ..
RELOCATED ENTRY ADDRESS=l/E ENTRY ADDRESS
+(OVERRIDING LOAD ADDRESS-LIE LOAD ADDRESS).

x

•• **

-•

2

--

3

*
LOAD PHASE
LOAD ADDRESS
FROM REG 7
...
TO REG 1
•
********.****.***
*
•
*

•• NO

x

** ***F5 ***** ***.*
ADD RI F OF
•
PHASE TO
PHASE ENTRY
ADDRESS IN
* REG 0
*Jl *
*********---***** .. *

*
*
*
*

0

-

: X. . . . . . . . . . . . . . . . . . . . . . . . . :

EXPAND
X
****·G4**********
* BUI lD LI BRARY *
* SEEK ADDRESS *
*FROM DIRECTORY.
* PHASE ENTRY *

**.****************

0

.*** •
• FD •
• 9Z·

--

EXT02

X

**·**H4*** .. ***.**
* PICK UP OIR. *
*FLDS NECESSARY *
* TO READ TEXT *
* BLOCKS FROM *
* CI LIBRARY
*
*.**.*******.**.*

x

..-

*****
*GC *
* AZ*
RDTXT

Appendix H. Detailed Flowcharts

411

SGDFCH Macro-- Fetch with MPS option (Part 3 of
3); Refer to supervisor, Chart 14

Chart GC.

....

.....
••H!*
-Ga.

-xx •••••••••••••••••

ROTXT

.-

A2

NO ••
w.

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

•

YALLOAD

ic

~5~GT~L8~KA

•

:

-A3
BLOCK COUNT IN THE
DIRECTORY ENTRY
INCLUDES THE LAST BLOCK.

-.

....

lAST
w.
TEXT
BLOCK ._ . w. *'3 ._
w• • _
.YES

LOAD LENGTH

•

.................
.-.
INT& REG 12

w•

- -

: 1

- : 3

:
•

.-...............
.
....
. -..
--....-.
INTO REG 12

•

• 2

ic

X

:···clfc·LOAO···:
OF

•• NUMBER 2 w. yeS
w. w. ON TRACK ._ ••••••

•

ACDR

END

•

• OF TXT BEING
•
LOADED IN

•
•

:..... :!~.~ .....:

•• w*C3
• • _ .-NO

.-.
ic

·····02··········
.-.-.-.-.-.-.-.-.
ic

01
w.
• _ TWO w.
•
.*FULL BLOCKS-. NO X

GX.

.VLDAOR3

w• • _

:

ic

: ...... El ••••••••• :

• DOUBLE BLOCK

•

.--...•..........
LENGTH IN
REG 12

•
•

ic

.YES

•
:

•

•
:

·····Ft··········
...................

2

•

•
:

DecREMENT

'BLOCK

COUNT FOR
SECOND BLOCK

•

•

•
:

x

: •••• Gl ••••••••• :
•

CHAIN READ
CCWS FOR

•

:

2 BLOCKS

:

..•......."......
-....•

•

LIMlTS OF

•

TEXT BLOCK

-C3
THERE ARE 2
BLOCKS PER TRACK
ANFm ~MlBRARY.

-

- -

ic

oo.

••

IS THE
RECORD ON A
• IF IT IS

.oo

••

••

I~Ewmo~~ ~b~~~b

·oo

HORE
BLOCKS TO

lOAD

.oo•• YES
oo • • •

••

ic

-NO

AND THEN 2 BLOCKS
ARE LOAOEC AT A
T1~E UNTIL LESS
THAN 2 FULL BLOCKS
REMAIN. 12 BLOCKS
ARE READ BY
CHAINING 2 CCNSI •

·
•

x

04

.'

.

I

••

..BACKGROUND· •• NO

••

•

..o ••IN FIK
lOC
.o. .o.

PR.OGRAM KEY ...... ..

....

·YES

·····E4•.••..•.••

·····E2··········
ic

•
•

STORE LOAD
ACDRESS FOR

•

REG 1 TO

•

X

•
•

TXT FROH

•
•
•
•

•

: ••• S~~.~2 •• ! ...:

.. ..
........
FZ

••
••

.-.x

ic

•
ACD 1728 TO
• LOAD ADDRESS
• OF 1ST BLOCK
•
IN REG 1

•
•
•
•

•

..

-H4

E~O

·····HZ····.·····
ic

STORE LOAD

FROM REG 1

ADDR FOR
2ND 8LOCK

•

.···.·J2···········
ic

.~~~2~:~!-.-.-~!.
•

LCAD Z TXT
BlKS.UPDATE •

•• 2~~~.!22: ••

i
....
.....-

X •••••••••••••••••••••••• :

: 3

:

DOS System Control

STORE ADDRESS.
OF SAVE AREA, •

:
·.................
.:

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

i

• •• ··F4· •• •••••••

•
•

•• NO
••••••••••••••••••••

·YES

•

•

...

: •••• 2!~~.~~ •••• :

•• CHAINED ••

•

•

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

••

ARE
CCWS

STORE END
ADDRESS OF
PHASE IN
COMM REG~,

SETSVAR.

: •• !~.~~2.~~~ ••••

412

.-.
........ ....
· .
C4

II~ILL
BLOCK OF

ic

_ 2

:

:

ic

•

CHECK ADDR

•
•

FO~E~~XT

.. .- .... .................
-....-

w. w. Ref'AINING ._ ••••••

UPDATE
LOAD AOOR

•

••••

OATAADDR

Cl
w.
.- .BLOCK ••

•

•

AND CCW

ic

ONEBLOCK

•

OF LAST BLOCK.

•

:

·····B4··········

ic
•••·.e2 ••••••••••

••••• al ••••••••••
• LOAD BLOCK
•

:
•

.e.

(

I~i8 ~gG4~

····G4••ic•··••••
RETURN TO

•

·H4

•

...............
LINK ADDR

OF FETCH

SUBROUTINE

•

Chart GO.

SGOFCH Macro-- Fetch with Batch Only Option (Part
1 of 2); Refer to Supervisor, Chart 14

BATCH ONLY-SEE CHART GA FOR HPS

.. •••• A2 ••••••••••

• •••• Al .......... ..
:

.... ..........
FCHRT2

FCHRTI

:

~

o

....

0
0

o 1

o

0

.···.Sl··········

·····S3··········

•

.................

ic

ic

FCHRTZ

.. LOAD ADDRESS ..
.OF A-TRANSIENT ..
..
AREA CPTA)
..

• LOAn PROGRAM •
• INTERRUPT KEY.
•
FROM COHM
•
..
REGN TO
•

.....-..........
REG 6

..

•

:x ................................... :

TO REG 9

o

x
·. .··CI··········

·····C3·...•....·

o
0
••w . . . . . . . . . . . . . . . .

:.... ~~.~!e .....:

X

FCHRTl
..
..

HOVE SUPVR
KEY TO PROG
.. INTERRUPT KEV
..
IN COHM RGN

..
..

..
..

..
..

···..03······.·.·

·····01··········
..................
..

..

..

004
LOAD ADDRESS TABLE: LOADING
REGISTER 4 • CONSTANT INTO
REGISTER 4 INCREMENTS REGISTER 4
BY THE CONSTANT.

•
:

.................

0

'

CLEAR REG 4

.. TO COMPUTE
•
DIRECTORY
: DISK ADDRESS

.. INTERRUPT KEY"
_IN INSTRUCTION ..
.. AT LABEL FIK ..

o

..
..
..
..

X

X

.. SAVE PROGRAM

HOVE PHASE
NAME FROM
REG 1 TO
1ST 8 BYTES

oE2
SUPERVI SCR
GENERAT H!N
OPTION

.0. ••
El

E3

•••

OPCLOSE

••

• •••• E4 ••••••••••

••••
.CAlC LIDes OIR
••
UBO
•• YES
• 01 SK ADOR TO
••
PHASE
•••••••••• X.
BE bOl IN
••
••
•
REG 4
••••
•
·04

•• HPS ••
•• OR STORAGE •• NO
••
PROTECT
••••••

.. .. .. ..

.................

.. ..

•• ·E2 ••

oNO

·YES

X

X

CLCEX

.-<0-.-.-.-.-.-.-.
...................

• ·····Fl···.······
• VLOADR.2
GX.

F3

•••

• VALIDATE LOC •
• OF PHASE NAME.
•
I N REG 1
•

P~:SE

.. ..

••••

•

•

ABTRANS

••

• •••• F4 .......... .

••••
.:.
••

•
•
•••••••••••••••••••

• CALC TRAN OIR •

·:.~:: ••••• X: Ol~~ ~8~RI~O

••

oNO

: •••••••••••••••• X:

.................
•
•

REG 4
·04

•

•

:x •......•.• :
x

.-.-.-.-.-.-.-.-.
...•..•....• _.....
SAV~

•

USERS
REGISTERS

o

••

••

•
0

x

..

• 0.

HI·.

•:.••

TI=~

..

.... ....
.H2

oHZ
ON THE FIRST ENTRY
TO THE FETCH SUBROUTINE
DURING IPL •

-.-.-~!:

• DETERMINE IF •
• SYSRES IS ON •
• SELECTOR CHAN.

: x•••••••••• :
ic
.....
KI·· •• ••••••0
o
•
LOAD REG"
•
TO LINKAGE
:
ReG 13

.. ...............
,.

o

:

....x
....
1

.. ..
PHASE

•• YES

.................

.....H4··········

•
.................
x:.PHASE

: •••••• :2~ ••••••:

·YES

:!:!~.-

S

-CALC PROB PROG OIR DISK.
•
9~~0~NT~EaE4
: •••••••••••••••• X.

.:.~~ ••

·····Jl··········
....
..................

PREFEREO

••

••••

oNO

••

ic

•••

• •••• G4 ••••••••••
• CALC lIB-RTN •
• OIR DISK ACDR •
•
•••••••••• X.
TO BE 701
••••••••••••••••• X.
••
••
•
IN REG 4
•
••••
•
·04
•
G3

.... ·.Gl· ••• ••••••
• SVEREG
GX.

LTA .. ADORESS OF LOGICAL
TRANSIENT AREA CB-TRANS lENT).

~~~N~?g~fsiRg~ ~~!~a~~b ENTJ.

..··.Js...X ·······

.STORE DIRECTORY.
DISK AeOR
•
•
•
FROM REG"
•
•
INTO SEEK
..

: ••••• ~22~ •••••• :

·····K5··········
X

•
SET CCN
• TO READ DISK
• AND SAVE NO.
• OF BLOCKS PER

•
•
•

•

:.~!~~:!~~~.!~~.:

.. ..

:RODIR2

~

0

:

·GF •
•• A~.
o

Appendix H. Detailed Flowcharts

413

SGDFCH ~~cro-- Fetch with Batch Only Option (Part
2 of 2); Refer to Supervisor g Chart 14

Chart GF.

· .

c.g.oito
eGO 0

0.0.

O;oK;o

:

o

1

:

0000

............ ··x

.)t • • • • •'. . . . . . . . . . . . .

R"Dt'1n2
i
.()o(beoAl aooqOOOOlOGO
READU"DT
GG
____
O_,1--o-t:t_e-o-o

READ

A3

VES.o

DIRECTO~Y

DISK IlIlOn

OGoo,oooo.ClC1ooo

:

.................. Xx
:lOOKUP

Bl
• ft

• 0

eo
eo

0*.
END

82

o.

fl..

.ft
.(10

oND

aFe
• 0

.0.x

.

B;o

PHASE
NAME

._

83
a.
.01S LOAOo •
.AOCR OF THIS-. YES
a.PHASE WITHIN ••••••

••••••

ct.

00,

.....x

SUPVR
.0
o. o . . . _ ••

.NO

·YES

•

X

- : 3

..FB •
o B5 •

0

•

............................................. x.

ERR22

elEQUAL-. ••
• &

••
e.
eo

0.

-.

._

.'.

eo e. eJ4t ._ . 0

0(1)0 • •

-.

.e

-POW

'It.

OPTION

X

o •• "

o•

o •• _

:

1
.<.

.'.

$$

PHASE
0.

.·STORAGI; ....
.It
PROTEC:
eo NO ..

o.

OF C[
o. YES
DIRECTORV . 0 . . . . .

eo

2

00

..... e. 0 .

· .

UPDATEo

OlllOC~,

(

-

ERR25

x

X

·····C~··········
• PICK UP REST
•

o. YES

·····CS··········
•
UPDATE LOAD
•
•
ADDRESS FOR
•
NEXT TEXT
•
•
BLOCK

• OF DIRECTORV
..
• FIELD NECES TO •
ItREAD TEX r BLOCK.'

. 0 . . . . . . . . . . . . . . 0 .............. ..

.0

:~~~~.S!.;!~:::::

0 0 0 •• _ .-

oNO

: X.................................................... .

X

·~ •• Olo.4H.o •••••

•

INCREMENT

•

o
ADDRESS TO
0
.NEXT OlREC10RY •
•
ENTRY
..

X

GETENTRY

.... ··02 •• 41 . . . . . . . .

RDTXT

LeAD PHASE
0
• ENTRY ADDRESS •
• FROM DIRECTORY"
..
TO REG 12
•

0"3

·

...

• • fI . . . . . . . . . . . O . . . ~.

.. .1...

• NO.o

••

0.

E1

• 0.

...

END OF
e.
DIR.ECTOR.Y
...
BLOCK
.0

••

.It

-. ....
.F4

o

·····e2···. ·tt ••••

E3.~

LOAD PHASE
•
ct LOAD ADDRESS
t..FRC,", DIRECTORY.
•
TO REG 7
•

..

0

0

F2

.0.x

...

ct • • 0

•
•
•

CCW •

DATAADDR
X
••••• F3··········
...
CALC LOAD
•
•
ACDR OF END
•
• OF TXT BEING
•
•
LOAOED IN
•
REG 2
•

.................

-NO

·····G2··········
•
•
•
-

·

X

G3

X

........ :

•• e ... _:~!.

••

..... ·H2.·.···· ••.
X

•
LeAD PHASE
• LGAD ADDRESS
..
FROM REG 7
TO REG 1

•
•

oJl

. . . . . . . . . . . . . . . . . . .,c. . . . . . . . . .

REFER TO NOTE
• J1 ON CHART GB.

x:

·····J2··········
X

EXPAND
•
•

eUILD LIBRARY.
SEEK ADDRESS
•
DIRECTORY.
PHASE ENTRY
•

"FRO~

..
o

0
• • • • • • • • • • 00 • • • • •

.0.x

.................

....

•

0

0

.YES

••• o·K2.··o ....... .
•
PICK UP
•
-OIRECTORY FIELD.
• NECESSARY TO
t.-READ TEXT BLOCK.

:~~2:.;!.~!~~~~~:

....x
· .
•

- 2

DOS System Control

0

•

..... F5··········
X

_F4
BLOCK COUNT IN THE
DIRECTORY ENTRY
I~CLUDES THE LAST
BLOCK.

•
•
•
•

·J4

·····G5··········
·..................
•

•

•

••

X

.0,

41

•

"YE S

STORE LOAD
ACCRESS FOR
TEXT BLOCK
FRO~ REG 1

: ..•. !;.~~~ .....•
SUPERVISOR
GENERATION
OPTION •

··.·.·K3.··········
REACUPDT
GG

.-.-.-0-0-.-.-*-.
LOAD TEXT
.BLOCK,UPDATE •

.o~!;~.!~~: ••

....
-. --

RE TURN TO
LINK ADDR

·J5

!;!!.2!;~;~ ... :

•
•
•

X

GX.

CHECK ADORE SS •
LIMITS OF
..

·· . ··J3··········

3

X

STORE ADDRESS •

ON SAVE AREA, •
REG 10+4
•
INTO REG 9

x
..... HS······
....
.................

.-.-.-.-.-.-.-.-.

••••• H4.· ••• •••••

.VLDADQ.3

...... ..
: ••
x
.....
•• B;:.
. x:x ......................... :

-

•
•

:x .......... :

H3
••
••
END
••
NO • ADDR OF TEXT ••
••••• BLOCK Io.j ITH IN ••
••
COR:
••

•
•
•
•

•

•

..................

-NO

ERR25

STCRE END
ADDRESS OF
PHASE IN COMM
REGN,
DISP 3b

SETSVAR

oJ4

X

414

ES
••
... FETCH ••
••
FROM
•• NO
... BACKGROUNG
••••••
*. PROG
••

•
•
•

-0.

-. .....

·FB •

:

LOAD BLOCK
LENGTH FOR-A
FULL BLOCK
INTO REG 12

•• S HJRAGE ••
•• PROCTEC T
•• YES
••
OPTION
..................... .

LeAD PHASE
•
ENTRY ADDRESS ..
FROM REG 12
..
TO REG 0

•••••H."' ••••••••••

••'CI.oH1··af:1 •••• o.
•
ADO RtF OF
•
oPHASE TO PHASE 0
• ENTRY ADDRESS.
IN REG 0
...

.-x.

X
·····E4··········

VALLOAD

:X •••••••••••••••••••••••• :
••

YES •• CVERR 1 DING ••
•••••••••••••••••••• LOAD ADDRESS ••
-. IN REG 0 ••
••
• a-

NOLOAOAO

..

-NO

•••••
•••• fI • • •
•
LOAD LENGTH
•
• OF LAST BLOCK •
•
INTO REG 12
•
AND

•

0

1

•

X
05···

• YES..
MORE
••
••••••
BLOCKS TO
••
LOAD
••
"
0 •••

••

a. • • 0
"YES

•

..

.

·YES

X

o.

,-.x ••

•• LAST
-.
••
TEXT
•• NO
0.
SLeCK
••••••••••••••••••••

-110

:

0

-J'
E<'lO

OF FET':H
SUBROJT I NE

•

(

Chart GG.

SGDFCH Macro-READUPDT and RSTPUB Subroutine;
Refer to Supervisor, Chart 14

··......
• 2

•

X

·····B3··········
:~~!~~2_._._._~~:

• •••• Bl ...........

·
•

.

READUPDT

X
• .,. •• c l ••••••••••

+_e_._._._._._._.

•

FZ-

COMPLETE

...................
....
110 ON SYSRES :

·

1

:

.- . -.
........

*. w.

BUSY

a.

a •• _

._

••

•

••
••

••

C3

.'.x

..... E2··.·.·.··.

eXCHANGE
PUB FLAGS

.................
.....x .

.-.-.-.-.-.-.-.-.

X

:~!~~!!-.-.-.-~!:
•

:

..,...Fl·······III..
X

:

sE~A~~sI~M

:

•

ENABLE

•

.................
:

COMPLETE

I

Ie

•

••

....
1

:

.'

••

·GIt

•• NO
••••••

••

:x •......... :

x

••

ALL·.
•
TRACKS
•• NO X
READ

ARE CCWIS ••
CHAINED
••
'NO

.

.. •• •YES..

.. ..
.. .. ........

YES ••

•• •••••••••• ••••••••

••

X

: •••• E4 ••••••••• :
•

RESET CHAIN

·····ES··········
•
RESTORE PIK
•
•
INTO REG b
•
FROM
LOC F IK

•

·...................

.................
·
•

BIT IN

1ST CCW

•

·····F3··········
X

•
•
•
:

MPS
OPTION

X

•• ON CYLINDER ••••••

ON SVSRES :

:

••

E3

x
.' ••

05··· ••

••

·YES

X

•

·YES

.. .. ....

._ .w ••••••••••••••••••

•• ~ •• El ..... • •••••
*RSTPUB
GG*

110

C5

ALL ••
•• BLOCKS
•• NO
••
ON TRACK
••••••
•• READ
••

YES

'NO

:

• 3

••••• ~~2~~!! •••••

01·-· +.
DEVICE

•

PICK UP
RECOkO
NUMBER
FROM SEEK

': •••
.
x

._.*
*.
w.

·····'(3··········
•
•
•

•

:

··......

RESTORE
PUB FLAGS

X

READUPDT

*QJSRT2

.................
•

•

. . . . . . . . . . . . . .111.

TRACK AODR
EQUAL 0
AND UPDATE
CYLINDER

X

•

..................

····FS·········
RETURN TO
•
LI NK ADOR

•

•• X •••••••••••••••••••••••••
x
•

x
: •••• Gl .......... :
•

LOAD ADDR

•
:

OF
TO REG 15

eea

'G'
SUPERVISOR

X

QECNO-4

: •••• G3 ••••••••• :

...................
:

.......HI····. ··..··

•

:

MPS = HUL TIPROGRAMM ING

DISK ADDR
•
TO NEXT BLOCK :

X

a

5VC
READ
FROM
SYSRES

H3

.'

.

••

·····Gs·········.

GENERATION

OPTIONS.

UPDATE

•

OPTION.

.....HS··········

RSTPUB

X

:
•
:

SET SYSTEM
HASK TO
DISABLE I/O

•• S TORAGE ••
•• PROTECT OR •• NO
•• MPS OPT IO~ ••••••
••

.. ..
.......x .
·G4

·YES

;x .......... .
•••

*.
• * • + 110 - • -.NO.
*. COMPLETE
.eX •••
*. a. a • • _ ._ .JL

: 3

·····J5··········
X

:

•

:

2

EXCHANGE

..
•

SY$RES PUB
FLAG WITH

:

-YES

.....x .
....

•
•
:

.................

••

a •••

WAlTtDOP

RSTPUB

•

..... ......:
FETCH PUB

~~~~

: ••••••• ~ •••••••••••••••••••••••••••••• X:

:

····K5·········
X

•

~ppendix

RETURN TO
LI NK ADOR

•

H. Detailed

~lowcharts

415

Chart GH.

SGSVC Macro-- SVC Interrupt
Supervisor, Chart 14

Handler~

Refer to

(

'.

.....
-FA·

•• B~.
o

·····82··········
X

ENTSVC

•
MODIFV
• GENERAL EXIT

•
•

•

•

•

ROUTINE TO

•

LOAD 5VC

: •••• 2~2.:~~ ••••:

·····e2··········
X

•

SAVE REGS

•

•

9-11

•

.................
• UNTJ L GENERAL •
:
EXIT
:

..._._e_e_._._e_._e
·.·02········.·
.................:
X

-GENENY

FE-

o GET PIB ADDRb

:s~~~. R~~~~ ~=G

0

: svc·:··· .. OPTioN- ........ : .. LABEL.":" CHARy'" .......... ..
: .. 0................ ALL .............. : .. svcoo":" FF!C2 ............ ..
: .. i"" ..... • .. ill··· .... ··;· svcoi -:·aj.:si .......... ··

X

.····E2··········

•
•
•
•

LOAD ADDR
OF EXTOl
I N GENERAL
EXIT RTN

•

:·r .... •• .... ·MPS·" ••••• :- SVCOZ·:· GK:.ei . •• .... ••
NO MPS

: ••• !2.~~~.~ •••• :

..

0

oFl

THE $VC CODe IS

5.TORED IN BVTE
OF THE SVC OLD

.-

P$W (LOCATION 35).

SVC CODES OVER 26
ARE INVALIO.

.w. w.

F2

.'.x

-.

5VC 0

-Fl

a.

._

w. yes
._ ••••••

.NO

oFF

It

••
••
••

G2

.'.x

••

0

.....x
...

It • • It

..

It

C2-

SVCOO

..

VAllO
•• Ne
SVC
•• 0 • • •
CODE
••
•• • Fl ••

.. ..

..!..

• VES

.

·FB •
•• B~.

SVCRTNI

X

•

DEVELOP

·····H2··········
•

•
•

•••• :.

0

w.

PTR TO TABLE
OF SVC RTN
AtORS FROM

•
•
•

: ••• ~~~.~~2~ •••• :

ERR2l

SVC02 .. GL-Bl

: .. 3................ AlL.··· . ••• :. svciH·:· a~!Bi""··"·"
: . ;. ........ °AL.L··
$VC04·: ·GM!83·······
:·5··:····· AL.L.·······:· svcos· :·aj!03··""·~:
:·6········ AL.L.····
ERR23·:· F6!85·······
:0 1".: ••••• AL.L.·······:· 5"C07·: "G~!B4·······
:·s···· AL.L····· .... :· $Y(08":" GN:,si··
:.q ........ ALL·······:· 5"(09· :·G~=-B3······ ..
: ·io·:· O. ·tiMER······:· $YCio· :·GN:.S;······ ..
•• :

0

•••

0

NO T110lER

••••

• ERR21,0 F8-A5

:·ii 0:." ···HPS··
.. ····:" svcii 0:. GK=-S':.·······
NO "'PS
• SVCll • GL-B30
: °iz·:··· . ·ACC···
svciz·: ·G'j:.F4·······
:. i3·: .. ••• ALL··· . • . 0:. SVCi3 •. :,. i;j!H5·······
:.
••••• ACC·······:· ERRio·: °FS!S;·
:. is . :····· AL.C"··"···:· $vcis·:· F~:'Ai·······
0 ••• :.

i~·:

0

:. i6" :;~c i~g·lr

gr g~:. ~~f~ll:· g3:~~··

NO PC

•••••

0

••••

" ERR2l • F3-BS

:. HO:. ic :NO· it" ORo DC:· EXTRT i: GQ!S4·
0

0

......

• PC AND IT OR DC. EXTRTl" GlJ-B2
fiO PC
" ERR21 • FB-B5

: . is·:···NO·tiMER··
. ···:· 5vcis·:· GU!SS-······
TIMER
• ERR21 • F5-B5

:·iq·:·· NO·-TiMER···· _.:. ERR21
SVCiq·: ·GU!S3 •
TIMER

"

00 _

•••

Fe-B5

: "20·:·· ·OC·RTN"""···:- sxiRH:· GU!B4·······
NO OC R TN

.. ER R2l

NO DC RTN

• ERRll .. FB-B5

• F 5-B5

: -2i 0: .. ·OC -RTf:.·····: - exiRii:· GU=-S2·" _••• "
..

·····J2··········
X

•
,",OVE AODR
•
OF SVC
• ROUTINE FROM
•
TABLE TO
REG 6
•

•
•

.................
x
.......
. ..

.

• 04·

BRANCH TO
AODR IN REG 6

416

DOS System Control

•

•
•

: ·ii" : ••.• ·MPS·······:· 5"C22": ·G~!Bi·"·····
~PS

• EXTOl .. FP-Cl

NO MPS

• ERR21 • FB-B5

NO

:

0

23 ": •• "··;.ps·······:· 5YC23 -: ·r,?!B3 - ••••••

: ·24·:·"· "tiMER··,,·· .. :" SVC2;'·:· GP:.BS· . ···" .
NO TIMER
• ::RR2l • Fe-B5
: ·25":··· -·BtA~·· _..• :" svcZ;°:· H!Fr· . "· . "
NO BTAH

• ERR2l • FB-BS

: °2b·:"·· sTaR ·PRot·"": SVC26·: ·G?!H4··· _•••
0

o

NO STOR PROT

• EXTOl

0

FD-CI

: ·27" :- •• ·-SIAM· .... ···: .. SVC2-j°: ·F~!F2·"·····
NO BTA'"

.. EXTOl •

Chart GJ.

SGSVC Macro-- SVC's 1, 5, 12, and 13; Refer
to Supervisor, Chart 14

.•..•.

SVC 1

...

*GH •
• J2*

X

SVC01

• •••• 81· ..__ .··,···
*SVEREG
GX*

:---SAve*"'IysER ---:

·...................
•

REGIS ERS

•

·••...·C1·.,·,.······.
..•.. .............
X

•

ZERO

•
:

•
•
•

REGI STER
0

~~~.~

--.
·····03•...X ·····.
·Gti •
• J2·

."

X

.-.-.-.-.-.-.-.-.

SVC05

• . . . . 01 ••,·· ••••••
*FCHR T2
GALOAD PHASE

•

FROM CI LIB

•

• ]'0 MAIN StORAGE-

EI

...x

••••••

•

-YES

:.F2

REG 0 CONTAINS
THE lIE ENTRY

X

AOORESS LOADED
IN THE FETCH
sua.OUll NE.

•• •• ·Fl· •• •• •••••
•
,MOVE
•
•
OVERRIDING
•
•
ENTRY ADDR
TO REG 0
• • • • • *F2
.00*
••••••••••

•

·~ •••,tiI •••• •

.-

HI

•_

.-.x

SVC 12

• GH •
• J2 •

.•... .....

SVC12
•

•

·F5
MASK IS

X

F~··

Jg3H~~~l + s~+
:~~

-

•

EXTOL

•

S~~.l~

•
•

..
-

·GH •

•••••

• J2·

-H2
SUPERVISCR

GENERATION

-.

SVC13
X
·····HS·······
•
IORI BITS •

OPTION

-.

•

KE~lANp~~C

•

JOB CTRL SW •
COMREG + 57 •
*FS
•

·FD •

x

:.·••• Jl ••• tfI.......:

R~:J~~ETy5£R

ON IN 2ND

..............
x
.....
•• C!.
•
•
•

_YES

:

IN REGISTER

...... .....••
..~..
••C!.

STORAGE tI. NO
tI.
PRGTECTIUN ...... ..
*. tI FEATURe
.. .
• • H2 ._
o •• _

:

SPECIFIED

lAND' BITS.
OFF IN 2ND •

.FD •

X

S\!: OLD
PSW

..~..

·GM •
•• D~.

.....
.-

•

:

··..··G1···. ••••••AODR IN

SAVE USER

REGISTERS

:

:X •••••••••• :
STORE ENTRY

•

*B6t

X

-..-

•

•

:~~~~~~_._._._2:

NO

tI.

... a.ADORE 95._ .-

SVCOlA

•
•
•
•

·····E3··········

tI.

•• ~VE~¥~lNG·
*.
ENTRy

•
seT UP
HVCOH PHASE
•
• NAME IN SVC 3
•
FETCH NAME

.................

...................
•

•

-

:

EXTOl

:

. _ ...........:e ••.•••

.....i

X•••••••••• :

-Fa·

•• B~.
EXT02

~ppendix

H. Detailed Flowcharts

417

SGSVC Macro-- SVC's 2 and 11 with MPS Option;
Refer to supervisor, Chart 14

Chart GK.

......
--

......
svc

SYC 2

.J~.

-

-

-82
GH-J2 ISYC INTERRUPTI

X

~~:~~

•••

81

-.

Hm UmJ~A'

o. o • • _ ••
_NO

.-

-.

••

•

1

-.

-NO

•

02

•••

PIK

-

x

• :.Eoy~L~O~~K .:.!~~.
w. o. REGN ._ .o •• _
_NO

••
••

..!
••
·Fa •

• YES

·..··El··.·.·····
.:_.................:

····.E2·······
Pl8
•
•

RESET X'OZ'.
IN
FLAG·
-8YT~!
NDICATES:
SV.,; 2 80UND ••

•
Move PIK
•
-FROM COMM REGN -

•

19G'2A~S~~A~~
kEY

..............
....
..- -......
....
....•F2··········
.................
x
.....
•• A!.

•

:•••••••••• X:

.....-.-.....-..-.-.-.
: 12~av'NR~~~ :

:S;ER~A·······G'i:

RESVC

:

•

:

SAve A!tEA
•
•• o •••••••
~ •••,••

~~a~~A~~oA

IN SYC

OLD PSW

.FD •

-

EXT03

-H2

FF-C2

FH-H4,G5

X
• . .··Hl· ........ ·.-··
STORE RI!G~
IN
-15-1

LOOtCAL-

:
............
...•.:
IrdSlr~A

•

*K2

,

•

:

•

:

-

.-.-.-.-.-.-.-.-.
• LOAD B-TRAN •
• FROM CI LIB •
.TO B-TRA~ AREA •

.. ... ..
........
x

F3

••

•• B-TRAN
•• YES
••
AREA IN
••••••
••
USE
••

..!•.

-NO

X
• •••• G! ••••••••••

•................
....
-..... ..
•
..................
......
- -.....
:·lO:g3:00RESS··:
:
:
.................

·GL ••••
•
• C3.
.x •••••••••••••••••••••••••
X

SETLTI

:···E~~lusivE·

•
:
•

'OR'

svc

Z •
BO~'~E TRT ••
·H4·

X

Y~T&XI2!1

i
:

P~"

*TRIN

ue :

. . . . . .411" .......... .

x
••••

·· ..
• 1

•

e ....

418

FOREIW9ERAL

:

x
.....Kl··········
2=B~ nl~tns .i
.i...............

SETLT2

Y AREA •

DOS system Control

EXT02

:
MO~'KPJ~ TO :
_INDICATE 8-TRAN:
AREA IN USE :

:

•••• Kl....••••. .•

.

.FD •
•• B~.

LTABSY

• JZ·
SETLT2A

: =8~+0~8 :

..................

.................

X

AD~R

•
•
•
•
•

ERR21

:FCHR~~·······GA:

• HZ·

X

$YA:02A

•
MOVE ZEROS
•
TO LTK TO
•
INDICATE B• TRAN AREA IS
•
NOT IN USE

•.B;.

ERR21

X

·····04••••••••••
i<

•• NO
••••••

• • a~.

X

ERR21

..............

••

SSB
PHASE

i<

X

•

..
!..
.Fa •

03

w.

.....
.

• F8 •
•• B~ •

• SET X'SO' IN •
• PIa FLAG BYTE.
•
TO INDICATE •
:
REGS SAYED ••

x

e.

••

·····C4·······

•

.. .-. ..
...... ......

X

5VC28ND

CLEAR FIK
(REG 6)

--·.................

o •• _

••

·YES

-

X

• _ a-TRAN
w. YES
o.
AREA IN
••••••••••••••••••••
w. o. use ._ ••

svc

•• ISSUED
•• NO
•• BY a-TRAN ••••••

·····ca··········
•
•

B4

•••

............

--........--

........ o. BY B-TRAN ._ .-

.-.x

X

SVCll

• - svc -. -.
VES.o IssueD

el

11

·GH •

•• B~.

SVC02

(

-

!VANtl

-

.:'82:
....i ,IUO',
.
--

-H4
APPLI ES ONLY TO MPS

Chart GL.

SGSVC Macro-- SVC's 2 and 11 with Batch Only
Option; Refer to supervisor, Chart 14

.....
....: 1

.....
...
.GH •

• J2.

:

• SVC 11

SVC11

............

•• ··IS~~~D •••• NO
-BY B-TRANSIENT ••••••

•• B~.

·YES

X

Bl
*.
.- ISSUED
svc -. -.

-. -..- .BY B-TRAN

a.

·B2
GH-J2 ISVC INTERRUPTI
GX-J4
FETCH SSBATTNAI
FD-E5
FETCH •• BEOd)

.-

••
_.

····.B3·······

..............
X

w. YES
.a ••••

USE ._ .-

w• • _

..
!..
·FB •

.

•• B~.
ERRZI

·4tMt··Ol···X ••··
:

RESET·

1C~~~~E~NB~IB

...............
:

•
•
•

INVERT THE
LOGICAL
TRANS lENT

•
•
•

.................
.....x
.
:

·NO

•

·····C3··········

w. w.

B-TRAN
AReA IN

*. a.

.

ERRZI

• SET XIBOI IN.
• Pia FLAG BYTE.
•
TO INDICATE •
:
REGS SAVED ••

._

...x

• FB •

• • B~.

X

SVCllA

·NO

• _ Cl

.....x

: •••••••••••••••••••••••• X:

._.

YES.-

••••••

••

SVC Z

......
-$\(C02

A,3

...x

KEY (LTKJ

•

·GK •
•• H~.

SEn T\

••

CANCEL FLAG ••

.••••••••••• x..
·····E1···••..·••
...................
X

~:!~!~_._._._2~:

•

SAVE REGS

•

SAVE AREA

•

• 12-0 IN PROG

•
•

.F2
ADDRESS OF B-TRANS lENT
AREA + B BYTES • ENTRY
ADDRESS FOR A
B-TRANS lENT.
THE TRANSIENT NAME
IS LOCATED IN THE
FIRST 8 BYTES.

··. ··Fl·······..·
X

•

GET AODR OF

•

•
a-TRANSIENT •
: A T~~S~o~~Y~e :
• P IB IN REG 15 •

.................
·····Gl··.·.··.··
..................:
X

.STORE REGS 15-1.
• rN LOGICAL TRAN_

:Sf~IDA:6SIE~~T

•

IN REG 0

•

o

:

STORE LOAD

•
•

AODR + 8 IN
SVC OLD PSW

:

-F2

w.

• _ •11

*. a.

.-.ic
ssa

-...

·YES

......
....
x

:

2

:

.................
x
.. ... ..
.......... ....x
......
..!..
•• B! •
.
•
•

LOAD B-TRAN •
fROM CI LIB
•
• ro B-TRAN AREA •

w. w.

J!

w. NO
••••••

._ .-

:

:!~~~!!-.-.-.-~~:

•
•

:

PHASE

0

X

•

..................
•_

2

·····H3···•••··••

·.....HI···X . ···"'··
..

....

.....

x
•• B;:-

.

·FB •

ERRZI

••

••

••

8-TRAN

•• NO

AREA IN
••••••
...
USE
••
·YES

o

• I

•

•

.FD •

EXTOZ

Appendix H. Detailed

Flowch~rts

419

Chart GM.

SGSVC Macro-- SVC's 3, 4, and 7; Refer to
Supervisor, Chart 14

.....

.....
SVC 7
.GH •

SVC 3

. J2·

*GH ..
.. J2*
o

.0

*.

o

0

.0.

SVC03

x

oNO

o

X

0

o

LOAD PIK
FROM COMM
REGN TO
REG 6 (FIK)

•
:

0

• 0

.0

*.

A-TRAN

••

._

_. YES

.-

oC5

·..··01·······

RE saT SUPVR*

PIe FLAG TO ..

._...........

: x'r~~lTr~~VR .... "
,

•• svc ••

FCH3
i
•• ··.02··········
• LOAD ADDRESS •
•
OF THE A•
• TRANSIENT NAME.
•
I NTO REG I
•

.................

ON

.C5 ••

..

••

.....x

.0.

• FO •
• CI·

..
.. .... ..

·····03··········
CLEAR FIK
(REG 61

.e ....
oND

0

04

- o0
EXTOL

••

••
MPS
••
OPTION
••
·G4

o

·····E2··········
•
LOAD REG 0
•
• WI TH ADDRESS •
OF THE A•
•
• TRANSIENT AREA.

* ••
oNO

.................

X

X

......
Ft·· ...... •••••..
..
LOAD ADDR
OF EXT 02

INTO REG 9

..

o

0

••••• F2.· ••••••• •
CLEAR FIK
•
(REG 61

....................

.................

X
·.'*··Gl··.~···.··
..
LOAD ADDRESS ..

•.-.-.-.-.-.. ···G2··•.• ·•·•·
. -.-.

FOR GENERAL

..

EXIT

..

OF ERROR
QUEUE ENTRY
INTO REG 6

o

••

X

•

••

..CCB OR ••
••
TEte
•• YES
•• TRAFFIC BIT ••••••

••
ISSUED
•• NO
••
aY B-TRAN ••••••

X

• * EIATTN -. ••
• *RTN EXIT ORo. YES
-.PHYSICAl I/O . 0 • • • •
... CANCEL ...
*(EXCAN)*

..
..
..

C4

••

NO
. . . . . . . . . . . . . . . . . . . ..

·YES

:x ........... :

.0.

..

••

ON AFTER PENDING
110 FROM SPECIFIED
IS COHPL ET ED OR
TI HER INTERRUPT
OCCURS.

cca

.0 •

·YH

X

..

• 0 •

.. .. .. ......

•

•••••••••••••••••• x.

o •• _
oNO

..

:~~!I.~~~~~.!~~I:

*GJ-E3
GX-Clt

0

C3

TO FETCH

*. 0 .

•

0

x

-.

:SUB·~a·BYTES···:

• FROM ADOR IN
•
.SVC OLD PSW TO •
·POINT AT 1ST
•

o

• 0.

Cl

0

i

SVC07

•

.................

0

o

_FB ..
.. 85·
o

•

.....

.....

P$W ._ . o •• _

·····63····....··

SVC04

Bl
*.
•• WA I T -.
B J T ON
•• YES
IN SVC OLD . 0 • • IO.

*. o.

(

..
..
..
0

....wI ••• _ • • • • • • • • • •

o

X

.FCHRTI

GA.

.................
•
LOAD A-TRAN •
INTO THE A- •
•
• TRANSIENT AREA.

CALFET
X
·····E3··········
• FCHRTI
GA.

X

.-.-*-.-.-.-.-.-.
•

·····E4·······
•
RESET elT •
• X'Oll IN PIe.
•
FLAG TO
•
INDICATE
•

LOAD PHASE
•
CI LIB TO •

.F~OM

. .. ;~;!.~~~~~•.

:.:!!~. ;!~~!2~ •• :

.....x
• FD •
• • A~.

X

··.··F3··········
•
STORE PHASE •
•
ENTRY AD OR
•
FROM REG a
•
• TO USER SAVE •

o

EXT03
(SCAN PISSI

x

•• ···ES··········
•
SET WAIT
•
B IT IN
SVC OLD
PSW

.................
.....x
... C; •
.
o

0

.FO •

EXTOl
I LOAD SVC OLD PSW I

:. !:~!. ~:~2.!~ •• :

.....x
·FD •

• o a2·
0

-G4

SUPERVISOR
GENERATION
OPT ION

o

EXT02
ISCAN PIBS)

oG5

ENTERED FROM $$ANERRZ
WHEN SVC 3 IS ISSUEO
AND REGISTER 15 HAS
BEEN LOADED WITH THE
ADDRESS OF PU6DEQ •

00

0

• GS·
o

0

oH4

FH-E4,Klt,G3

X

••,•• ·Hl ...• •• ••
..
SET ERP ..
SWITCH IN ..
..

.. DEQUEUER SUB- ..

............

-ROUTINE TO NOPo

0

.~

...··H5·······

X

X

PUBDEQ

••••• H2··········
• LOAD ADOR OF •
A-TRAN AREA •
•
INTO THE
•
A-TRAN BASE •
•

•
SET SUPVR •
•
PIa FLAG TO •
: X' 8~~fI~~PVR ••

..............
....
.. ....
o

: •.•. ~;~.;! ••••• :

0

.... .
·····JS··········
.....................
o

:x •....'. '" ... :

····Jl·······.,.·

...............
,

1II.··J2····.···.
X

X

-BRANCH TO ENTRY.
:ADDR IN REG 15 :

•
•

ENTER THE
A-TRANSIENT

0

• H4·
IOPSET

•

•
•

••• ~!.~~2.!~!2 •• •

AND UNIT
TO liD

o

USE SUBROUTINE,
RSTREG, -CHART FX
IF MPS OPTION IS
PRESENT.
USE SUBROUTINE,

1~D~~-~~~R6pHbN

•

OLD PSW

o

oK4

x

MOVE CHAN

....

0

•

.

• FB .....
• Kl·
DEQUE
X

...tt-.-.-.-.-.-.-.-.
"'.K5··········
•

.K4

•

.................
x
.....
•• E;.

:

o

us~~~T~~5s

•

TRNOFF

• FP •
o

420

DOS System Control

Chart GN.

SGSVC Macro--SVC's 8, 9, and
Supervisor. Chart 14

Refer to

10~

·· ..
• I

.....
.:x.......... :

•

.....

... J2*

X

·····S1··········
..

GET ADDRESS

..

SAVE AREA

.. OF PROB PROG

..

..

..

.................

ADDRESS PRI"HERS OF
THE lCGICAl TRANSIENT
SAVE AREA AND THE
PROBlE" PRrGRAM USING
THE TRANSIfNT AREA
ARE REVERSED WHEN A
LOGICAL TRANSIENT IS
ACTIVE.

SVC09

.. .... ..

LOAD

svc

INTO REG
C FOR

svc

SVCI0
X
: •••• B5 ••••••••• :
•
•

TMEKEY

x

·····D3··········
.- .-.-.-.-.-.-.-.
• SVEREG

:

...

•
•

..:

·····CS··········

•

TMEKEYI

:

~2~~R~1~E
INTO REG :;

•

...... ......:
:~:

:•..•.....•.•.•••.•..•... x:x
TMEKEYl

•••
05
••
•• TIMER ••
NO •• CONTROLLED ••
•••••
BY INTER••
•• RUPTED ••

GX.

~~~~.~~~~

ic

THEKEY
• ····C4········· •

• SAVE REGS 12-0 • I", PRI'lS PROG •

...

: •••• ~~!~~~ ••••• :

LOAD ADDR OF
SVCIOA INTO

:.:~!~:!~~~!~:

:....•.•.••..•.....•..... x:

:X •••••••••• :

'02
SUPFRVI SCR
GENlRATI(N
CPTION

...
9

• •••• B4 ••••••••••

:!~.~~~.~~~.~~~.:

..

OLD P SW

•• NO
••••••

·····C3··········

...................
...

..

•
RESTORE PSW •
ACDR FROM
•
•
• LOGICAL TRAN •
.SAVE AREA, REGO.

AND 1 IN

·····01··.·······

••

x

SAVE ARFA

ic

•••

MPS
OPTION

.YES

.

STORE REGS

x

.-

B3

••
••

-. ·02 ••

ic
••••• e 1 ••••••••••
...

...J2·
·GH •

.82

'B2

.a

.:2~.

·.J2·.

·GH •

*GH ..

SVCOB

SVC 10
WITH
IlNTERVAL TIMER OPTION I

SVC 9

SVC B

...:

.. ~..

.P:~:~~;.

·FB •
•• B~ •

ic
••••• e 1 ••••••••••
...

...
...

STORE PPOB

...

AD DR FRO'"
REG 14 INTO

...
...

PR(lG ENTRY

• f>
ENTEI1EC I-Qrf!! $$ANERj:tl
"'HEN A SVC :: I S ISSUED
AND REG l~ HAS SFEN
LOADI::D WI T~ THE
ADDRESS f"lF FXC.lI~.

.................
... PROB PRGG PSft ...

.....
. -.. -.-.Fl··········
. -.-.-.-.-*
X

*SVEREG

---SAVE REGS 12-0 ...
.I~ LOGICAL TRAN-

... J3-

ENTERED FROM $SANERRO

WHEN A

svc

3 I S ISSUED

LDADI;O hlTH THE ADDRESS

OF ATNCNl.

0'0

ES

••

·YES

•
·Fp
••••0
• FS·

···.F4•••... ·.•

svcio:·

X

RI:;TURN
TO

•••• ~!~~.~~~~ •••

EXCAm

-G.

;

: •••• G2 ••••••••

CHANGE LOGICAL
TRANS lENT CANCel
SWITCH IN GE'.IERAL
CANCEL TO A NOP

·G3

·
.
..............
....

AND REG 1S HAS BEEN

•

.. ..
.. ....o· ..

NO •• ENTERED ••
•••••••• •••••••••••• VIA SVC 10 ••

•

x

·····FS··········
•
GET TIME
•
• ELAPSED SINCE.
•
INTERRUPT
•
FROM

: ... ~~~!!:;: .... :

• E2·

SEn 12A

'HI

I

.....

: •.. ~!~;.!:;! ... :
*CK ...

• LOAD RE-ENTRY.
• PSW AODR FRn,"" •
• LOGICAL TRAN •
.AREA TO R!:G 14 •

•

ex-

.....
...

·····E3··········
·
.
.................
··.....-

.

ERR21

X

-G4
TIME IS IN THE
FORM SECONDS
X 300 I N THE 3
HIGH ORDER OF
SYSTIMER.

:... ~:~!!~~: ....:

·.. ....
• tn·

x

AH~C~L·

X

: •••• H2 ••••••••• :

•
•
•

LeAD PIB
ACCRESS FRO'"
SAVE ARfA,

·····HS··········
• SHIFT UNUSED •
.LOW ORDER BYTE.
• FROM INTERVAL ..
AND ELAPSED •
•

•
•

~

:.... ~:!.:: .....:

: ... !!~~.:~~~ ...:

'J4
SYSTOD I S THE
TIME THAT THE
NEX T 11 MER
INTERRUPT WILL
OCCUR I F THE
INTERVAL IS
NO. ALTEREO BY
ANOTHER SETIME
MACRO.

X

·····J2··········
.-.-.- .-.-.- .-.-.
.eRRSET

FC.

.................
•

·

SET
CA"lCEl
cere

X

···.·Kl·······

_K'
:

•

.
...

EXTOl

..
! ..
• FD •

...

• Cl·

X
·····GS··········
: SET INTERVAL :
• SPECIFIED BY •
REG 3 I NTC
•
•

.K3
RESTORE LOGICAL
TQ.ANS lENT CANCEL
SWITCH IN GENERAL
CANCEL TO A BRANCH

·····JS·········.
X

•

INCREMENT

SYSTOD BY

•

.................
•
..

INTERVAL
BEING SET
·J4

•
•

X

.···.KS···· ••••••
..
DECREMENT
•
•
..
SYSTOD BY
.TIME REMAINING.
.. IN PREVIOUS •

:•.. !~r~~~:~ ....:

......
:

X

EXTOl

·FD •

... C! •

APpendix H. Detailed Flowcharts

421

Chart GP.

SGSVC Macro--SVC's 22, 23, 24, and 26; Refer to
Supervisor, Chart 14

(
\.

.....
.

.....
...

SVC 23
WITH
IMPS OPTION)

SVC 24
NITH
lIT OPTION)

·GH •

·GH •
•• J~ •

• J2·

SVC22
Bl

it
.'.
svc

X
SVC23

-.

.* • * OLD PSW *. *. NO
*. KEY EQUAL • * ••••
*.
0
.*
*.
.*
it
* ••
evES

.-

.....
...

••

Ct

.'. *.

.* .* REG 0 *. *. NO
*. EQUAL 0 .* ••••
*.
*e2
.*
-.
.*
* ••
eYES

USER f4AY CHANGE THE
SYSTE~

HASK IN THE SVC
CLD PSW VIA REGI STER D.

........ .....x
.
x
0

•

KEY OF SVC

: •••• C3 ••••••••• :
•
•
•

·oo

:... !~.:!!.:~:2·

.'.x

•
:

•

I NTO REG 1

•

:

·CIt

:

.-EXCLUSIVE ORI

• TRT FUNCTION.

• BYTE TO ALTER •
• SCAN OF PIBS •
•
*F2
•

oo.

..~

oo •

• YES

•
•

..

VALl DATE
ENe ADOR

.

.GA •

FCHRT2

·····E5·······
X

•
•
•
•

CLEAR F IK
IREG 6)

RESET
•
TRAFFIC aIT •
IN USERS
•
TECs
•

·...............

..!..

.

·GA •
.... A~.

·.·.·F5··········
X

.COMPLEMENT USeR •
• TECs AODR AND •
•
STORE IN
•
.INTERVAL TIMER.

FCHRTI

:.~=!!2~.!~=~~ •• :

..
.

..~

·GN •
•• F~ •

••
···GI •••••
_STORE
LAST •••••
BYTE_
•
OF REG 0 IN •
•

SYSTEM MASK

OF SVC OLD

•

•

:.•••.. !;~ ....•• :
-FD •

.

•• C~.
EXTOl

SVCIOA

SVC 26
WITH

IMPS AND STORAG~.~~2TECT OPTIONS.

.

·GH •

• ... J~ •

.....x

.'.x

SVC26

H4
••
••
SVC
-•
••
OLD PSW
•• NO
••
KEY EQUAL
.-.oooo.

••

.... ....
0

••

..~

·YES

..

·FB •

• • B~.

X

.-.-.-.-.-.-.-.-.
.................
••
••• J4 ••• •••••••
.VLDADRI
GX •

•
•
•

VALIDATE
ADDRESS
LIMITS

x
.....
••C!.
• FD •

EXTOl

422

•
•

: •••• ~~.!~~~ ••••:

it
•

:

:~~~~~~!.-.-.-:~:

·..................
'f2
THE fIRST SVC 22 ISSUED
WILL ALTER THE PIS FLAG
AND TRMISlATE AND TEST

·····FI·······
...............

OFL3~gRAf~~a

·····05··········

,..0

x

•

it

:

.................

o.

: •••• E3 ••••••••• :

•

·····C5··········
it

••

... ..

TIMER EVENT CONTRCL

BLOCK. USER
SPECIFIES THE
ADDRESS IN REG

••A!.

• 'EXCUJSIVE OR'
AND SVC 2
BOUND BITS

03

·oo

·····el·······
•
•

TEca •

SYC
••
••
ISSUED
••
-.
BY B-TRAN
••• oooooo

it

SVC 22 BOUND •

•

X

'C4

CLEAR
PARAMETER
REG 4

·..................

:X •••••••••• :

•

TIMER KEY

•• B~ •

: •••• ~~2.~~~ •••• :
SVC22A

•

ERR21

••

•

.................

••

·Fa -

it

····.01··········

•
MOYE PIK
•
•
FROM COMM
•
-REG TO STORAGE •

X

•.TMEKEY
•••• as ••••••••••
GH.
:-·-Cii~i;EiK-·-:

••

• YES

-FB •

ERR21
,C2

svc

••
OLD PSW
•• NO
••
KEY EQUAL
••••••

• 85-

it

SVC24

B3 •••••

DOS System Control

•
•
•

(

Chart GQ.

SGSVC Macro-- Program Check Interrupt, SVC's 17
and 18; Refer to Supervisor, Chart 14

OPTIONS

USER PC ROUTINE WITHOUT ISTORAGE PROTECT, INTERVAL TIMER, AND USER DC ROUTINEI.

......
. ..

-'FA.
• F30

: 1

MD'tIE ADDR

•

OF PROGRAM

:

.... ....

•
•
•

••• • • • • tII. . . . . . . . .

SVC 16

.

·GH •

••J!-

o

.

•

•
CHECK OLD
• '
P91:1 TO
• GENERAL EXIT

svc 11

• GH •

D!
•• USER ••
•• PC ROUTINE •• NO
••
AOOR
••••••
•• PRESENT ••

•

.....

.••....J!•

0

x
'. ••

ENTPCK
X
• .... ··Bl..........
•

....
....

•

·YES

·····B4··········I.
X

EXTRTl

SXTRr1

•
LOAD USER
• PC ROUTINE
•
ADDR FROM
•
•
.PC OPTION TABLE.
•
TO REG 0
•

~~~.:.PCI~O~IINE .: •

................. ...... ........
.... x.
·····C4·.·••··•••
................. .....x . ........
....
••

·~··Cl
....... •••••
o
•
•
$AV:B ReGS
•

C3

...... .....-

Gt~AAe"ll~T

.YES

··.-'.tt-.-.-__._._....

~~~ll~D TaFE~MF S~MmE

ADDRESSES.

0GENENT
Fe··Dl····.·~··

•

....................
AND SAVE
REGS

•
•

oEZ
SUPERVI SDR
GENERATION
OPTION

..

El

.'.

J~..

x

.'.

03
••
•• USER..
•
•• SAVE AREA •• YESX
•• IN SUPVR
••••••
••
·02
••

OR SlYSFtIL ••
o. o. -E2 ._ ••

Ft

.0.x

CHART FL

•• RBlEAse-.

o. BRANCH
CTRl 9W
••••••
oF2
••
o.
••

•• PROG CHK

o.

O.

.....x

o •••
oNO'

.

-FL·

.

•• H~.

••• ., ••••••• X.

•

LGO

ic

• .... ··Gl·~......... .
-SVEREG

GXo

-'D-.-.~.-.-.-tf-.

• SAVE OLD PiW

:PR~~D sl6i

•

SAR~A :

••w............... .

: 3

......Hl··.·.
•

·~··•
LOAD USER

•
•

TABLE TO
RBG 0

• ROUT INE ADOR •
-FROM PC OPTION •
•
•

•••iII .................

.....F3··········
• ~OVE OLD PSW •
• AND REGS FROM •
.PROG SAVE AREA •
• TO USER SAVE •
• AREA FOR EXIT.

RESTORE PC
OLD PSW AND
:R~feEF~reA UfgR
.PROG SAVE AREA

•
•
:
•

·····E4·······

•
•
•
:

SET REGS •
SAVED X'OO' •
IN PIO
•
FLAG BYTE ••

x ..............
.....
••S!.
....

2

:

·····05··········
Til:.
................
X

• STORE USER PC •
• RTN AOoR ANB •
'SAV~ AR~A

:T~Rp~ Rp¥~

AS R •

...FD!..•

••C!.
EXTOl

ic

o

ERRZO

•

....

: 1

0

:

'F5
USER PC ROUTINE A
TO BE STORED ISS

f~RR6G!S~E'HhA&T

DRESS IS TO BE RES •
ADDRESS OF USER SAVE
AREA IS SPECIFIED IN

SED
{

I D-

REGISTER 1.

.:t •••••••••••••••

·····G3··········
X

•
•
•
•

HOVE USER
PC ROUT INE
AOOR TO
PROG CHECK

•
•
•
•

: •••• 2~2.~~~ ••••:
SETOPI

••
•••••
• •• ·J1.·
LOAD •••
USER
•

:

: TAlk! fO :
...................
....x .
··....
.

X

••••• H3 ••••••••••

• COMPLEMENT
• THE USER PC
• ROUTINE AoOR

•
•
•

......
......:
....
.
··....' ..
·:·····J3··········.:
.·................
.....x
•

IN REG 0

:

:~:

SETOPZ

•

••

:

• 2

X

• 1

·F5

: •••••••••••••••••••••••• X:

ic

:~A~~ ~2Eap4Y8~

••

• FO •

X

......
....

•
•

ic

oFZ
_.

·····04••••••••••
X

.'.x

.NO

-YES
REfER TO NOTE .04

.'

................•

....

o •••

:

C5
••
•• USER ••
YES •• RTN AD DR ••
• •••• TO BE RESET ••

SAVE •
FROM.
TABLE.
1
:

-... ...-

El
••
•• USER..
•
.- SAVE AREA •• YESX
••
EXCEEDS
••••••
w.
CORE
••
•• ·02 ••

-.

.FlrE~~gTECT ••

ND

••

'NO

'NO

oNO

x

.LOAD USER
-AREA ADDR
.PC OPTION
TO REG
:

:

oOZ
COMPARE USER SAVE AREA

X

• GET PIa AODR

.

X

•• LTK·.
•
•• IN COMM •• NO X
•• REGN· 0
.-••••

·:....................:
•
•

x
'. ••

.H4

ic

: 3

X

ic

•••
B5
••
•• USER ••

•

•

••••

'.

X

IaT~2EO=~foa
TABLE

•

--Fa.
.A~-

EXTD3

Appendix H. Detailed

~lowcharts

423

Chart GR.

SGSVC Macro-- Program Check Interrupt; Refer to
supervisor, Chart 16

(

PROGRAM CHECK
INTERRUPT
OPTIONS

USER PC ROUTINE WITH (STORAGE PROTECT, INTERVAL TIMER, OR USER DC ROUTINEI. -B1

.....
-FA ..

.. •Fi·

-X

-B1

SEe CHART FB IF NO USER

PC ROUTINE OPTION PRESENT ..

~H~ 5~~~ 8aTI~N~O~is~~o

ENTPCK

.-.

83
-.
.e CASO ••
NO .tt FILE PROT _.
•••••• OR SYSFll .-.
*E4
.-

ABOVE ARE PRESENT.

-. .-. eYES

C3

.-.x

-•

• tt .... PROGRAM

*.

CHECK
SWITCH

*.

*. *.

BRANCH
._ .......

.....x

••

-. tt *F5
• • _ ._ Nap

*Fl ..
• • H~.

:.•.••..••. x:

x
·····03··········

..
•
..
..

Move ADDR
OF PROGRAM
CHECK OLD
PSW TO

-

LGD

•

.................
.. GENERAL EX IT

•

-E4

~~~~ftXJf8~

X

·····E3··········
-

..
•

SAVE REGS
9-11 UNTIL

OPT ION

.................
: GENERAL EXIT

•

(

:

-F5

REFER TO NOTE

*B4 ON CHART FL.

·····F3··········
X

:~~~~~!-.-.-.-~~:

•
...

...

:

-G2
PROGRAM CHECK
CCCURRED IN

~:~;.:;~~

..

A PROBLE~ PROGRA~
(BACKGROLND OR

FOREGROUNOI.

GET PIe
ACOR AND

G3

.-.

••

...:
..
•

..

••
PIK
•• YES
•• GREATER THAN ••••••

••

X'30'

... ::~o··

••

..!..
• FB •
••
B;.

X

·····H3·····
. ····.-................
•
•
•

GET AODR
OF PC
OPTION TABLE

ERR20

•
•
•

·····J3··········
X

:~~!~!~_._._._2~:

.................
•
GET USER
•
•
ROUTINE AND •
• SAVE AREA ACORS •

_K4

.....K3··········
X

:~~!!~!_._._._2~:

.................
.....
•
•

•

EXIT TO
•
USERS ROUTINE •

.KIt

: ERR20

X

·OB •

•• B~.

424

DOS System Control

•

RETURN FROM PC JTRT SUBROUTI NE
IF USER ROUTINE IS I N USE OR
B-TRANSIENT IS OPERATING. BOTH

RETURNS BRANCH TO ERR20 •

)

Chart GS.

SGSVC Macro-- External Interrupt with User OC or
IT Routines~ Refer to Supervisor, Chart 16

··.....-

..

':~2tt:

..

• Cle

- 1

• eXTERNAL INTERRUPT

•

-A4

lV~EP7~Tl~ft~pyAMbmIiDIHm mSED
THROUGH 01.
S1STOD WILL BE UPDATED TO THE TIME THAT THE NEXT
T MER INTERRUPT WILL OCCUR.
SYSTIMER •

ENTEXT

i

:
•
•
•

O'A ITAijRB2L
0
SM
FOR E ERAL
aXI

...... A~ ••••••••••

:
•
•
•

..................

·

.•

X

X
····.83··········

.....e1 ........... .

*-

RIt\

SAlE
1
9UN

.RESET SYSTIMER •
• TO MAXIMUM
•

F~~~~~FF'
................
.

GEN~
.................
AL E

:

•
:

,

:

x

.-..-.~-.-.---.-.

GET filii
ADOR AND

•
•

LOW ORDER
BYTE FROM
ELAPSED
TIME

X .
..... 9J .......

·····03···X ...····
: ~E~J~~~ :

SAVE REGS

: REnIGwtA'·.
EX~ERNAL

•

.................

:

OLD '5"

•

•

:•

...x

.................
ic
.. .-. ..
.. ......
Dit

QUANTITY

•

·NO

• ELAP SED T tME

•• OC ROUTINE -. NO
OPTION
••••••
w. w. - F 2
•
._. -

•

-YES

.-.x

Fl·.
• EXTERNAL-.
•
•• INTERRUPT •• NO X
•• ~~y I'L~

..SE!•••••• :

.... ....

.•'X....•

..-

x

:····2AANGE···
•
• ATTN RTN 'Ia •
FLAG TO

:..............
:C'lv~ •

•

• OPTION TASLE
:
TO REG 4

•

:

X
·····F3··.·······

• E4 •

• VES

TO TIME

OF DAY

•
•
•
•

ADD MAX IMUM
VALUE
X'OOFFFFFF'
TO TIME

X
..... F4··········

i
.· ...F5·······

.................

:

X

POST

:: ¥~ll=~yh
FL,Ya N

...............

•

•

.. .-. ....
..-..r-..
Jl

•-

-.

TlM

FEAT
••
.F

NO
B ·••••••
••
•

-YES

ERTl

-.....
.
...... 1

•

i
.....

-..

• FO •
• AZ.EXT03

•
•

==819" ::

.. -..-.. .....
x

··..........
• Z

EXT03

·FD •

•• A! •

-

EXT03

-J5
MULTIPLE RETURNS FROM
PCITRT ROUTINE.

ROUTINE PI8 •
FLAG BYTE
•
TO XI 81 1
ACTIVE
-

.FO •
•• A~.

cANelLET -. _. YES
.- ••FLAG
••
IN T IS
••••••
••
PII
••

.NO

·FD •
• • A~.

Ai~NA Rg~IA~~ •••

..............
i
.....

••

x

•
•
•

• •••• J4 •••• •••
•
CHANGE ATTN.

-

.................

.-.x

:

• IT (INTERVAL
•
TIMER)
• OPTION TABLE

SET SWI TCH •
AT ITBRC IN •

X

·····J3··········
- GET PIB AOOR
:
O~
: ay VHE TI=ER

:

..............

X

K3

X

•
•
:

..............

:X
•••••••••• :
X

••

i
·····H4·······

.....H3·······

--

••

.YES

TMERll
i
• RESET SWITCH.
• AT JTBRC IN •
• ATTN ROUT INE •
:
TOANOP ••

••

RESET PIS.
FLAG SYTE •

XSS~' 7 Tgo~~6 •• •

..............

.K5.

G4

.••..••••••••.•••••••••... x..
•

•
•

•• S-TRANSIENT •• NO
•• ACTIVE FOR ••••••
..IT OWNER ••
•• ·..15 ••

·.................-

•••••HI ....... .

..............

x
X
·····G5··········
.. .-. ..
O~L~~~BA~RSM
.................
.. .. .....
i
x
.....
-

• S.TDRE UPDATED.
•
TIME OF DAY •
TO SYSTOD

• SIT X'SO' IN •
: USERS TECS ••

.ROUTINE

: •••• ~~.2~~ •••••:

•

•
:

.................

:!~!!~!-.-.-.-~~:
: 5U~ f¥ :

•
•
•
•

X
-·····G3··········-

•

EXT2

·····e
• LOAD . . ··········
AODR OF •
• INTERVAL TIMER.

.................

a •• _

i
·····E5·······
: POST TRAFF IC· •

X

i

w.

••

••
USER
•• VES
•• TECB ADDR ••••••••••••••••••••
•• PRESENT ••

:·ADDE~ONVERTED·:

•• EbsER -._.

•

x

:···L8~D·uSER···:

p~l~',~~
:
.................

•

.'

:

.INTERVAL TIMER.
• RTN ADCR AND •
.USER TECS ADOR •
.INTO REGS 5 + 6.

•
•
•
•

.................

•

-....-

: 2

:·sHi~'·uNUSED··:

•

..................

•

....

:

x

...·7e:

:G'EN~~+·~
•

xI

EXT03

-K5

THE INTERRUPT WILL BE
IJN¥REO fN9 EXIT SET UP!

hMEHi
USE •

10utmEnA~N

..-

.FO •

• AZ·EXTOl

-

Appendix H. Detailed Flowcharts

425

Chart GT.

SGSVC Macro-- External Interrupt Subroutines;
Refer to Supervisor, Chart 16

--...............-•••• B2 •••••••••

..

pelTRT

pelTRT

..

C2

.0.it

..

••

•• ··RHa¥VNE··
••••••••••••••••••••••
YES
w.
IN USE
o. w*el
• • _ ...

.-

-NO

.-.it

.- -.*:.
D2

-.

••••••• ••••••• •~~~.:.w. o.Tk~21i~~T
ACTIVE ._ ._

•

o•• _

-NO

: ····D3·········:
it

...............
~i~~R~D~~

(

.. •••• BIt ......... ..

• •••• 85 ••••••••••

:

:

...............
OPTRT2

...............
OPTRTl

:

OPTRT2
it
•• •• ·C4 ••••••••••
•
AOD NO. Of
•
• THIS SVC TO •
• REG 4 TO GET •
•
•
POINTER TO
• OPTION TABLE •

.................
·····04··········
X

• LOAD POINTER
•
TO OPTlON
•
TABLE TO
REG It

•

•

.................
•

:

:x ...•..•......•.•..•.•••. :
it

it

..... ·R~WjRr~D... ••
..
..

...................
LINK "DDR
PLUS"

..
..

•:SVER~~·······G;:
-.-.-.-0-0-0-.-.

.................
.. SAVE OLD PSW

..

AND REGS IN

..

..

.PRDG SAVE AREA ..

·····F2··········
X

.. SAVE OLD PSW

..

AND REGS IN

..

..

.................

OPTRTl

ic

•
•
•
:

LOAO PIK
fROM COMM
REGN TO
REG 3

·····E4··········

.................
X

-USER SAVE AREA ..

x

..
MOVE USER
.. ROUTINE ADoR
:
TO OLD PSW

..
..
:

.................
.....

:

··..·FIt··········
•

.. FOR EXIT FROM ..
.. USER ROUTINE ..

: ••••G2 ••••••••• :

•
•

•

CALC AOOR
OF OPTION
TABLE IN
REG

~

•
•
•

·····G4······.···
ic

•
LOAD USER
• ROUT I NE AOOR
• FROM OPTl ON

•
•
•

:...::!~~.~~....:

it

• GU ..

---

.. F2*

SETOPl

··..·H4··········
ic

•
•
•

LOAD USER
SAVE AREA
AOOR FROM
• OPTlON TABLE

•
•
•
•

: ••• !~.:~2.~ ••••:
it

•···R~~uRN·TD··· •
:

426

DOS System Control

...............
LINK AD OR

:

(

)

Chart GU.

SGSVC Macro-- Program Check Interrupt; Refer to
supervisor, Chart 14

OPTIONS

USER PC ROUTINE WITH (STORAGE PROTECT, INTERVAL TIMER, OR USER OC ROUTlNEI.oB1

.....

.....

·~~E CHART GQ IF ONLY USER
L~S~~~TA~~fo2~, TV~ ~~~~~NT

.....

SVC 17 AND 21

SVC 19

SVC 16 AND 20

*GH •
•• J~.

.GH •
•• J~ •

·GH o

X

X
·····83··········

·····8"'·.········

SVC19

•
•

•

.....
*GT •
• G2*
o

x

X

·····02··········
•

RESTORE
PRCGRAM SAVE

·····D~··········

•
COMPLEMENT
•
•
NEW USER
•
• ROUTI NE ADDR IN.
:
REG 3
:

•
•

AREA FRO"

CHECK PIK
AGAINST

•
•

: ••••• !~~~~ ••••• :

001

•
•

•
-

: ••• !!~~~.~~~ ••• :

•
GET PIK ANO •
.ADDR OF OPTION •

-ADDR ("IF OPT ION •

TO PROBLEM PROGRAM.

:!~~~!!!.-.-.-~~:

X

GU-

: ••••• !!2~~ ••••• :
USER SAVE AREA HAS OLD
PSW AND REGS FOR RETURN

X

·····BS··········

SVC1B

····.c"'
••.•••••••
:~~!~!~-.-.-.-2~:

X

GET PIK AND

LOAD A I .
INTO REG
• TO CALC
SVC NUMBER
FOR EXIT
•

.................

·····C2··········
._._e_e_e_e_e_._.
•

X

SXTRll

:!~~~!~!.-.-.-~:

: ••• !!~~~.~~~ ••••

-CPlRT2

o

:X •••••••• , ••

CHECK P IK
AGAINST

•

0

o

:x .......... .
CLEAR
REGISTER

SVC 18

·GH •
.. .J~"

• J2-

o

EXTRTl
: •••• 82 ••••••••• :

.....

.................

•

-USER SAVE AREA.

: •.•.•. :~! ..•.•. :

005
USER ROUTI NE ADDR TO BE
STORED IS SPECIFIED IN
REG D.
IF REG 0 • 0 THE ROUTINE
ADDR I S TO BE RESET.
ADDR OF USER SAVE AREA
IS SPECIFIED IN REG 1 •

0

.0.x

·····E2·······
X

•

•

SAVE RFGS •

SAVED X'SO' •

..............
•

o

INPIB
FLAG BYTE

•

yeS

•

.o.

••• ....

E4
••
•• USER ••

••

0

RTN ADOR

TO BE

••

....

.. RESET .o. ••

••

oNO

:..••..••.•.••••••••....• x:
oF1
WHEN ENTERING A USER
ROUTINE, THE USER RTN
ADDRESS IN THE OPTION

TABt.E IS COMPLEMENTED

TO INDICATE THE ROUTINE
IS IN USE.
WHEN RETURNING F~OM THE
USER ROUTINE VIA AN EXIT
SYC THE ADDRESS IN TH(
OPTION TABLE IS RECOMPLEMENTED (RESTOREDI.

SETOFl
X
•••••
FZ· .. •• .. ••••••
•
CC~PlEMENT
• USER ROUTI NE
•
ADDRESS
•
IN REG 3
•
.Fl
•

.................

: x....................................... :
X

·····C2··········

SETOP2
•

STORE REG
3 IN
OPTI ON
TABLE

•

.................
.....
o

,0,
Fit
tI.
•
•• USER ••
• VES.. ROUTI NE ••
.X....
IN USE
••

0

••

........
·Fl

••

oND

···.·G4···.··
.-.-.-.-.-.-.-.-.•..·
X

GX.

.YLDADRI

.................
• VAL JOATE L1MI TS.
•
OF USER
•
•
SAVE AREA
•

x

·FD •
•• A~.
o

EXT03

X

·····H"'··········
.................
.....x
•
STORE NEW
•
• USER ROUT I NE •
• AND SAVE AREA •
• ADQRS IN OPTJ ON •
• TABLE
.HS •

·FD •

• •el·
o

EXTOl

-l\.ppendix: H. Detailed Flowctnrts

427

Chart GV.

SGDSK Macro-Resident Disk Error Recovery (Part 1
of 2); Refer to Supervisor, Chart 17

(

.....

.

*FU ..
...... J~ •

.....A2··········
X

RESERR

•
INCREMENT
• RETRY COUNT.
• REMOVE CHA IN

•
•
•

-FLAG FROM READ.

··.....

: ....~~.S~~ ••••• :

··......
.. .•.• ..
.. ..........
• 1

• 2

BZ

...x

B4

tI.

••

tI.

••
eee
•• NO
*. AVAILABLE ••••••
*.
.* ••
_YES

••••• •••

REQUIRED

·

•

EXTRAN

3

,",aVE USi::R
seEK ACDR

Cit

:

10 ERROR
QUEUE TABLE

DSKTST

02

•

tI.

04

tI.

E2

*.

*.

...x * •

* ••
.NO

RTYI

*.

• .. .-

E3

·....·Gl··········
•

••• •• w.

.................
REAO

•

:

HOME ADDRESS

:

• -.

• ..

...

:

••

......
I

:

•

.... .... ....
·· ..
x

.YES

• 4

•
··.··KI····,···
POST NO
RECORD
FOUND TO

.....
:

X

.-.

•

COMMAND w ••• YE si
X..••••
•• REJECT
._ .- ••••

•

••

.
....
· ..

••

w...
...

...x

••

••

.....-..
COMMAND

(

••

._ ••

•

••

·FW •

DOS System Control

w.

CHECK
w• • •

..

••

H3

•••

._

RETRY

COUNT GT

w.

.. ..
10

..

••

-

••••••

.....•
...
·GW •

H4

•• YES.
•••• X.
••

TRKCHK

••

•• OVERRUN •• YES
••
DR END OF
••• _ ••
••
eYl
••

........ ..!•.
x
....
·· .. ... . .
·NO

X

TRKEDC

J4
••
•• ··CHANNEl·· •• YES
•
••
CHAINING
•••••••••••••••••• X.
w.
CHECK
••

........
·....• .

RESTORE

HEAD

·NO

...•

....

: 2

••

.. .... ......

•• -RECOVERY·· •• YES
••
ERROR
••••••

.....x
..~ ... .
·FY •

•• B~.RCYERR

:

·GW •
• F3-

•

••••!2.2•••••

....

...•

•• TRACK ••

.~~~~!'!-.-.-.-~!

3

•• YES

••

·NO

······J3.··········•

:

••

• B2·

• ••••• X

SEKCHKl

••

TRACK

CONDITION

••••

.NO

HIGN

x
.. ... ..

eNO

• 4

K3

•

F4

G4

••

•

•• G~.

428

G3

X

•• SAME·.

CCB

SEKCHK

• 2

••

YES.e

•e

• X...... e. REJECT

.NO

•• CYLINDER •• NO X
••
AS USERS
••••••
••
SEEK
••

•

:

CHAN ERRORS

••

.NO

...•

.. ..
·NO

.RETRY ONCE ON

••

.... ....

ADDRESS
••••••
•• MARKER
••

JI

••

e •••

•

SEEK
•••• YES
CHECI<
•• ••••••••••

:

3

...x

·NO

.NO

...•

...

E4

.YES

:

_. .. .. .•

HI
*.
._ •• MISSING·· •• YES
••

* ••
.Ne-

G2

:!2~2~~-.-.-.-:~:

..

FOUND

•

•••••••••••••••••• X.

..··MISSING·· •• YES
•
••
ADDRESS
•••••••••••••••••• X.
•• MARKER ••

....
.....x .

*. w.

NO
RECORD

*.

NORCO

•• OVERRUN ••

••

.... ! ....

FZ·-· *.
YE S ......

...x

•• RETRY·.
••
COUNT
•• NO
••
EQUAL
••••••

......
: 2

••••••••••••••••• • *.

....:

·NO

... EOUI PMENT w. YES
w.
CHECK
.w ••••

EXRTV

~~~:~~~

••

OR

* ••
·Ne*

...

....

:

..··BUS OUT·· •• YES

••

• ..

*FW ...
... 85-

• •••• CS ••••••••••

·NO

•• • "CHANNEL tI. tI. yeS
tI.
OAT A
• tI • • • • • • • • • • • • • • • • • •
tI.
CHfCk
...

.....x
..
·

ROHA9

••

.... ....
...•
........

:xx .•••...... :

tI.

•••

••••
.EDROHA
GW.
••
DATA
•• YES
.-.-.-.-.-.-.-.-.
••
CHECK
•••••••••• X.
READ
••
••
•
HOME

•

·.................
•
•

· .
:

x

•
·····C?··········

...... c~.

••

·NO

x

*FV ..

••

YES .INTERVENTION ••

.. ..

.....

•

:

.. .•. ..
.. ......
··....• .. ....•
. .
x

RTY9

KS

YES ••

•••••

••

RETRY

••

COUNT GT
••
••
10
••
·NO

• 2

•

: 3

:

)

Chart GW.

SGDSK Macro-- Resident Disk Error Recovery (Part
2 of 2); Refer to supervisor, Chart 17

.....
.

..•.A5.········.
··...............
.

......

*GY •
•• G~.

: 1

x
·····82··········

·..................

.- .'. -.

······CIt··········.

ADDRESS AND

•
•

•

ic

e2

NO

.0
••• • 0.

o.

a.

o•• _

._

•
CHAIN READ
• HOME ADDRESS
AND READ
•

•
•

•
•
•

: ••• ~~~2~2.2 ••••:

X

-.

AL TERNAT E w.
TRACK

GET ADDR
·OF PI8

X

EDROAl

:~;!:.!~-.-.-.-~~:

: ••• ~~~2:~.2 •••• :

•

······85··········.

ic

GWe

• _._e_e_e_e_e_e_.
•
READ HOME
•

•

:

·····81t··········

TRKCHK

_EDRDHA

EDRDAl

01 SABLE

._ ._

•

WRITE
ON SVSRES

•

.YES

.-

02

.'.x

-.

.'.ic

-.

._
HEAD
w. YES
w. a. NUMBER
GT 9
._ . 0 . . . . . . . . . . . . . . . . . . . .
a. w• • _ ••

x

INcreMENT

C¥LEND

i

•

POST END

.................
HEAD

•

PlUMBER

:

F2

ND.o

•••••••••••••• ••••••

..............
•

:

OF CYL INDER

TO

ece

•

•

•

-.

DASC

-.

•

-.

..........

····.Gl·~

•

•

LOAD ADOR

OF RECOVERY

•

•
:

teN TO
REG e

•

•

•

•

TO Ce8

CYLINDER

•

EXiGN

.FW •

•

• 2
•

•

• tIItt ........... . , . . . . . . .

•

•

• 3

•

ic

F5

•
•

••

YES •• RECOVERY
•••••
ERROR

•

••

••

:

-NO

.FV •
•• 8~.

'.
."IX.

x

Git

••

~22~!~~

.X •••••••••••

•••• '

••

READ
HOME

•

••X.

LOAD ADDR
OF RECOVERY
tCN TO
REG 8

.....
•• G!.

DISABLE

WRITE
ON SYSRES

•
•
•
:

: ••••G2 ••••••••• :

LONG SEEKS

•
:

POST TRACK •

OVERRUN OR
END OF

i

.....
...............
. ••• •••
.
·.......
.
.. .'. ..
·····F.4··········
.... ........
.................
..
!
..
··.... ..
. x
.'.
.. ..
·····G5··········
.................
.. ..
X

•
•

•

.-.-.-.-.-.-.-.-.

•

EDTlCl

i

ic

ENA8LE

X

..............

FILE
.o. w.PROTECT
*H3 ._ ...

EOTIC

•

·GV ."lX• Hit·
•

-YES

X

••

•

•

TO READ
HOME ACOR

··ERRSiB·······Fy··

: •••• E4 ••••••••• :

•

·..
·····F3·······

TRKED'·

0 •• _

EOTIC

x

: •••• E3 ••••••••

•

LOAD AODR
OF ceN

.................
•
:

• YES

: •••• EZ .......... :

.••••••••••• xx.
.'.
.-

•
•

........

.NO

•

X
····.05··········

ERDRAA

Dit
••
•• DOES ••
•• Pl8 ALLOW •• NO
•••• N~~nE~N ••••••• :

RCVERR

••

STORAGE

PROTECT

•• NO

•• FEATURE ••
• • • H3 ••

••••••

• MOVE UPDATED
•
SEEK ADOR

•

:

TO ERROR

QUEUE TA8LE

•
•

•

:

·YES

·· ..
• 3

•

x
·.·.·HZ··········
e_o_a_._._._._o_e
-CQDSP

•
•

.H3
SUPERVISOR
GENERATION
OPTIONS

FS*

RESTORE CHAN
SCHEDULER

•
•

..
........ ....x
x
·· ..
.....
.
....
••

•• DEVICE
••
IS
•• SYSRES

•• NO
••••••

LOAD teN

•

.•...............
.
.
.....xx•••••••••••
.
:

x

J2

•

•

: ••• ~!2!!!!~~ •••:

.- ".

ic

: •••• HIt••••••••• :
KEY TO
REG 2

•
:

····H5·········
i

·................
•
•

RETURN TO
LINK ADDR

•
•

.FW •

• • 8~.

EXWHY

••

·YES

• 2

: 1

•

:

Appendix H. Detailed

Flowch~rts

429

Chart GX.

SGTCON Macro-- Resident Attention and
SVEREG-VLDADR Subroutines; Refer to Supervisor,
Chart 13

(

......
·FD •

••E!.

•···A3·········-...............

--...............-•• •• A1·· •• • ....••

..

SVSREG

•*

..

•

Bl
-.
-.
PIB FLAG of. YES

•

Byl~&SARE .of .* ••• :

of.

eSAVED.•• _

.!..

-"0

-

:

A4

••

..

...
ATTN
•• yes
•• RTN CANCEL ...... .
..FL4G SET • f'

...... ... .....x
•.B:.
·····B4···.••..•. -

•

·05

..

-

.-.x

•

-NO

•• TEST

of . . . .

VLDAORI

•

...x

SVEREG

ATNRTN

1

····02·········
...............
VLDAoR3

·05

-

:

.................

X

•
•

LOAD PIK
FROM COIliM

•

•

MOVE Z TO
•
NAME FIELD
•
OF A-TRAN
•
PHYSICAL ATTN.
S$ANERRl
•

•

.................

.................
RI~~ ~O

•

:

•
•
•

·····e3··········
X

VLOAOR3

····C2·········
•
VLOADR2
•

•

...............
·05

•
•

CLEAR HIGH
BYTE OF

C4

:

UPPER LIMIT

:

••

•

IN REG 2

.-.x

••

•• ATTN *.
... RTN PIB •• NO

•
•

.................
•

EXTEOJ

X

•
•

:........................ X:

x
: •••• Cl ••••••••• :
.. GET ADDRESSES.
• OF SAVE AREA ..
AND OLD PSW :
:

·····S3··········

VLCAoRI

·FD •

:

••

SVC 2

....

BOUND ••
•• *e5 ••

••••••

x
.....
•.o!.

.YES

·GM

:•••••••••••••••••••••••• X:X

..

x

..
.....x ...... ..
VLOAQR2

: •••• 01 ••••••••• :
•
..
..

.-................
.-.x
,

-

.....
....: 2

:x ..•..••... :
X

....... Gl •••• •• ••• •
..
STORE REGS
..
9-11 FROM
..
..
.. 'COM,.. REGN TO ..
-SAVE AREA,SAVED-

:2~.!~!!!!~.~~!!:

X

X

••

G2

PIK

••

~~M~k~E

••

KEV

ESE OPTIONS ARE
NT

:OC

.-.

.IT

E4

••

.CONTINUE· •
••
TIMER
••
BRANCH
••
INTERRUPT ••••••
.PROCESSING.·
•• SW ••

....

CLEAR HIGH
BYTE OF
LOWER LIMIT
IN REG 1

*GT •

.B~.

····.F4···.·.·.··
X

•
•
•
•

(

.....x
·

·NOP

:•••••••••• X:

•
•
•
•

.................
.-.x
.:.
-. -.. -..
••

...

X

• INSERT STORAGE.
•
KEY OR STaR •
•
~LOCK
•
•
CCNTAINING
•
LeWER ACOR
•

ONLY WHEN ONE DR MORE

x

: ITBRC

·····F3····.··.··
.................
-

·.···F2··········

m~~~RZI
-os SUPERV!SOR GENERATION
g~m~T i ~~Dt~RGENERAT EO

.YES

-NO

::3
- :-

-

FCH3

••

... -

VES...
REG 6
••
••••• 'USER KEV)
••
•• EQUALS
••
•• 0
••

:

.-.x

NO •• ·iNTERVAL * •••
••••••
TIMER
••
•• OPTION ••
•• ·05 ••

.. .-. ..
.... .. ..
E3

-YES

AREA

04

x

ERR25

*. *. of -OS
.• • _ .-

X

••

-NO

·FB •
• • B~.

Et
-.
•MPS -.
• AND FLOATlNG_. NO
-.POINT OPTiONS ••••••

-STORE FLOATING ..
.. POINT REGS
•
•
IN SAVE

•••

YES..
UPPER
••
...... L1MIT EXCEED ••
•• HIGH CORE ••

STORE REGS
12-0 IN
SAVE AREA

·····Ft··········
...................-

03

*

•
LOAD REG 1
•
WITH AoDR
•
OF THE NAME
• OF SSBATTNA,

TMERTI

•

: •• !!!~.~:r~~~ •• :

.. .- . ..
.. .-. ..
.. _"0 .. .....x ........
·
x
x

G3

.:.~~ ••

.*

••

G4

•• VES
••••••
••

••
LOW
•• LIMIT HI
••

SUPVR

·oo .•

.YES

••

••
MPS
••
OPTION
••
·05

•• NO
••••••••••••••••••••

••

• VES

-Fe·

.B~.

-.....·HI.·····.·.·-..................X

STORE OLD

..

SAVE AREA

..

PSW IN

..

.....H2··········
X

• INSERT STORAGE.
•
KEY OF STOR •
•
BLOCK
•
•
CCNTAINING
•
•
UPPER ACDR
•

••
••

••

..
SET REGS ..
ARE SAVED •
..
• X'SO' IN PIB •
:
FLAG BYTE ••

..............

:

I

••

••

-.

••

J2

PIK..

EQUALS

••

x

YES
••••••

·05

••

•

•• NO X

:

:oooo.

•
:

RETURN TO
LINK ADDR

X

·YES

·FB •
• • B~.

~6~¥~61fN .:.~~~.

••

RETURN TO
LINK ADDR

•

PIS

• •••••• *

X

•

RESET ATTN •
RTN FLAG
•
BYTE TO
•
•
X '80 t

:EXT02

x

-FO •
• 82·

---

DOS System Control

X

•••••

•• J~.

.....
430

.J5
GK-B I MPS OPTION
GL-Bl BATCH ONLY

••

·NO

ERR25

•
:

.HDVE BACKGROUND •
• PIB DISPLAtE- •
-MENT TO PIK IN •
:
COMM REGN
:

x........................ :

J4
••
•• ATTN _.

.FB •

X

•
:

:

..·REQUESTOR· •• NO
••
KEV
...... .
•• CORRECT ••

X

X

• SET ATTN RTN •
• PIe FLAG BYTE.
•
TO X'S)' ••

.oo

J3

ERR25

••• ·KI······ ....
•
RETURN TO
•
LINK AD DR

2

·····HS··········
.................
X

: •••• H4 ••••••••

... ••

_NO

STORAGE
••••••
••
KEY
••
• VES

: •••

.-.

MPS
OPTION

• oo ...

: 3

....·Jl······.

H3

.. .. .!.. ..............
....
· - i
- -.
x
x
.-.
.-. .oo
.-.
.:.
.. ....... ..... ........ .....x
-- •.B;:•
.
·····KIt····.··
····K2·········
····K3·········
...............
...............

.................

X

oo·

SVC02
IFETCH
UBATTNAI

)

SEND Macro-- LTA Subroutine

Chart GY.

FROM FETCH SUBROUTINE

-B4

THIS SUBROUTINE IS LOCATED IN THE 8-TRANSI ENT AREA

t~DT~~ m~HD~blRg~iMuR~~~DI~&·8~~~C~N~~Ry~I!ONS.
SUBROUTINE. ARE DVERLAY~D BY THE SUBROUTINE,

····B3·········-...............
•

LTA

•

UA

•

aBit

•

X

··.···C3·.··..··.·•

LOAD AODR

•
•

•

Of PUB
FOR SYSRES

•
•

.................
•_

.-03

x
,-,

w•

-.

_. NO

w• • oNSI~el~ToR
_.CHAN ._
a •• _
aYES

••a ••• :

x

:··R~I~T·BU:ST.

•
•

MULIIPLEX
FLAG IN

•

•

..............
•

SYSRES PUB

•

,

,

.X •••••••••••

X

••••• F] •••••• ••••

:
:

°i~ft~Mi~T
l~EI~R= :~ges

:

:

.................
-

X
·····G3··········
:INST~~~~\a~S IN:
-FETCH RTN WITH -INSTRUCTiONS AT<

.................
_LABEL MV

START-

....Hl·········
X

•

BRANCH TO

•

:...............
,N2¥ID~tla2s :
IN FETCH SU8ROUTINE

Appendix H. Detailed Flowcharts

431

ERP Monitor (Part 1 of 2); ($$ANERRA); Refer to
Supervisor, Chart 18

Chart HA.

(

--....--

..

$SANERRA

-

X

CHECK

-•. ··AI-·· . . . ·_·- -

1

AI,.

•••

UNRCERP

••

• •••• AS ••••••••••

MOVE 'U'
TO FTCH NM
TO UNIT

•• UNIT
••
•
••
RECORD
•• YES
•
••
EQUI PMENT
•••••••••• X.

..

...

••

•

••

•
4.

••

•

RECORD
PHASE

• . . . . . . . . . . . . . . . . . . . ..

_NO

.....83..........

X

·····SI··········
..

ESTABLISH

•
•

.................
Cl

.-.x *.

IS
DEVICE

•

FOR PAPER

.X..........

TAPE PHASE

•

•••

MOVE 'X'

TO FTCH N M .

•

YES..

•

*.• * OPERATIONAL *..* NO
..................... ..
*.
*.
.* .-

•
•
•

.. .-

····C3·········
...................
SVC 3 FETCH
$$ANERRX
CHART JP

•*•
•••*•

C4

••

....
••
••

•
•

01

.-.x *.

•

...

EXI

...

- 2

*.

*.

.-. -.

.. ..-.x

.-

.*

.* .....

••

•*

*.

Gl

UNIT

CHECK

+.

*. * •• *.*

..

...

PROGRAM

X

.. ..

..

CHECK

*.

••

··.·G2·"·".,,···
...................
SVC 3 FETCH
SSANERRM
CHART JA

•

.*

·····Jl·········.
X

INSERT X '24'
PROGRAM

CHECK MSG
CODE

....--....
-

..
•

-

....

*.

$$ANERRC

••

•• ···G3·X. ••••. •. .
•

..
•

-

INSERT

X'27'

•

ERROR ON

F4

•••

DEV ICE MSG

: ••••• ~~2~ •••••••

TURN OFF

RETRY ANO

..................
•
•
•

X..

...

•

.-................
•
•

CHECK

•• YES

••

.* ••.•

.* •• _

_ 4

X
•••

.. ..
..
..
.....x ........
G4

NO.*

x

*•••

•

•

•

*.

.*

INSERT

•

EQUI PHENT

•

·····FS··········
•
•

MOVE '9 1
TO FTCH NM
TO OPTICAL
READER

*

•

X

CHECK MSG
CODE

*

•

X
*·+·G5······
. ••
SVC 3 FETCH
$$ANERR9

•

*
•

.-....................

X

•

MOVE 1M'
* TO FTCH NH
•
FOR MESSAGE
+ WRI TER PHASE

•
•
•
•

:•.••••.•....••..•.•.•••• x:
x
····K4·········

..

SYC 3 FETCH
$SANERRH

•
•

•••• ~~~~!.~~ •••••

....

•••. ·J4··· . ·•••••
.-................-

EXITB

•

: ••••• ~~!;~ ••• +.:

*•

EQUIP

CHECK

·YES

-

•
•

•••• ~~~~!.~~ •••••

DOS System Control

...

-- --

- *····H4••••••••••
X

IGNORE BITS
•
IN ERROR
..
FLAG
..

TO FTCH NM
TO GET
HSG WTR

+. NO
••••••

X

NORCFND

......... J3 .... • .......... •
•
MOVE 'H'
•

•
..
•

••

......•.

·- -- X
·····H5··. •••••••
•

4

••••

.1 NSERT CHANNEL.
•
OATA CHECK
•

-•

H5G CODE

:x •••........•...•••....•. :
CHECK MSG
CODE

••

OPTICAL
READER
• •••

+.

CHANNEL
DATA

EQUIP

•••••

UNKNOWN

•••. ·H3···. •••

PROTECTION

•
•

.YES

.. ..
.. ..

*. ••

•

•

432

SVC 3 FETCH
$$ANERRG

.*

••
.YES

-NO

•

X
••••
.. J2····*···
•
• INSERT
X'25 ' .. ..

•

····05·········
E5

•• NO
••••••••••

* •••

•

:X •••••••••••••••••••••••• :
x

- 2

x

X

PROTCHK

•

-- -- 3 -

·HB •
•• B~.

••••••••••••••••••••

...x

..+.....

CHKOISK

:

•• NO

'G'

MOVE

TO FTCH NH
FOR DATA
CELL
PHASE

.................

DISK

-

•

•
•

E4

+.

•
:

• YES

•

..

-- 3
-

• •••• F3 .......... .

••••

: 1

••

••

••

-....-

-NO

...

..*
••

X

X

•
•
•

.*

.-.x ••
Hi

•

. . .*.~~~~!*~~ ......

....... *••• * ••••••••

*. *. YESX..
.* .......

•
..

X

RETRY AND ..
IGNORE 81 TS .. *

'M'

.. ...............
$$ANERRU
CHART JK

.. •••• C5 . . . . . . . . . . .

•
•

...

•
MOVE
..
TO FTCH NM
•
FOR MESSAGE
: WRITER PHASE

YES

.. .... BS·· .. ••••••
SVC 3 FETCH
•

x..

.. ....

* ....

·***·F2· .... •.. • ...... *

+.

_NO

••

..

EXI TB

DATA OR

CHAIN
CHECK

...

DATA
CELL

•

-

• -CHANNEL-.

*.

MSG CODe

TURN OFF

..
:

--.~.*-**.*

'-YES

: •••••••••• X:x
Fl

..
•

... 2

.-.x *.

-... .-..

.-

INSERT
DEVICE NOT

OPERATIONAL

...

.+

•*.* DEVICE *. *. NO
*.
2311
.* ..•.

COHBIN

••··. 02*·········
.-................
·- ..
.
TA··· X
·····E2·······
-...............
..
..

* ••
• YES

+.

.-x.

X

.*

El

••

•
•
•

••

_NO

ERROR -.
NO .* OCCURRED *.
...... . *. ON RECOVERY .tt

*. +.

X
••

•• YES
•
...........
••
..
••••
•

-YES

.*

••

TAPE

-NO

X

*•

PAPER

••

•
*
•••••••••••••••••

-SSM ENABLE tNT ..

•*

84 ..

PTERP

•

*AODRESSABIl lTV ..
..
OF ERBLOC
..
.. AND pus AND •

•

(
\,

)

Chart HB.

ERP Monitor (Part 2 of 2; $$ANERRA)
Supervisor, Chart 18

Refer to

•••••
••
•

*HA ..

.. G4_

X

NORCFND

.-.

•*82 NO t • _ •
•* RECORD *.

YES

•• •• co~gy~~ON •• ••••• •••••••••••••••
*. *•• - .'NO

X

.t.

SEKCH

C3

•*t2SEEK ' . t. *.
••••...•......•••NO.*
•*. tHECK
.*.
.*
*. *•• - ..YES
INTVEN

01

.'.x *.

02

.'.x *.

.*MISSING •. *.

*.•**.

······E1····.·••··.

X
·····E2
••••••
•·•••
•

•••••••••••••••••

•

•• ••••
•
1 •
•••••
•

·YES

X

•
INSERT
• INTERVENTION
•
REQUIRED
MSG CODE
•

•
•
•
•

._

.* YES
...•••.••••......•

*. *•• -.-

·····04·····.····
......... .....
X

• •••

~~~~~~o

ADDRESS

MARKER
'NO

*. *. NO
.* •*
·.INTERVENTION ••••••
•• REQUIRED .*
*.. *••• .x

•* .*

.'.x *•

*. *.

.X

NO

..
INSERT
.. RECORD
.. AND HI

••••••••••••••••••••••

·ADDRESS
..
H56 C

*. *•• -.-YES

-INSERT INVALID.

•

SEEK ADDRESS

•

MSG

X'26'

•

•

•

•••••••••••••••••

•
•
•
•
•

······E3··········.

SKCHK

•
•

X

I NSERT seEK
CHECK "SG
CODE

•
•

••• ••••••••••••••••••
:X •••••••••••••••••••••••• :

.....
• Fl······.···•
X

•
TURN ON
..
OPERATOR
• INTERVENTION
.. BIT IN ERRFLG

•
..
•
..

•••••••••••••••••

·····F2.··.·.·

EX ITA
•
•
•

X

....

TURN OFF •
RETRY AND •
IGNORE
•

BITS
••• •••••••••••••
••

• •
••••• ••
• l

: •••••••••••••••••••••••• x:X •••••••••••••••••••••••• :
EXITS
•

BUSOUT

X

····G2·········
SVC 3

CHART JA

•••••••••••••••

i

•••

G4

•

• FETCH UANERRM «
•

.. ..
........

••

••

•

*.

*.

BUSOUT

CHECK

*.••••••••••••••••••••
NO

.*

• YES

••••.H4··········•

•.. INSERT

X

BUSOUT ..

••• MSG CODE •••
•••••••••••••••••

EXlTt
..

•
••••H5·.·······
SVC 3

•

: FETt~A~/AIMRRB :

•••••••••••••••

EXITB
..

••••J4.··X ••••••
SVC 3

•

:FET~~AIIA~iRR'" :

•••••••••••••••

Appendix H. Detailed Flowcharts

433

Chart HC.

2311 Nonresident ERP (Part 1 of 2) $$ANERRB;Refer
to Supervisor, Chart 18

····A1···.·····

...............

>
...
>

$SANERRB

(

>
...
>

.····81····•.....
X

>

>

-SET SYSTEM MASK...
TO ENABLE
..
.. INTERRUPTS ON ...

.................
... ALL CHANNELS

·.....

...

: 2

:

·····C4·······.•·

X

.····C1·······.··

X

UNKN

... LOAD ADORS OF •
_COMM REGN INTO ...
... RIO, ERBlOC •

.INSERT UNKNOWN •
• ERROR CODe IN •
.HSGCaDE BYTE OF.
•
ERROR QUEUe
•
ENTRY
•
•

:.~~~!!!~!~.~!~.:

*••••••••••••••••

.....
·....
x

X

OATACHK

01

.-.

: 1

*•

• * ·By~~N5~TA· *.

YES'

.*•..

:

•• INDICATE DATA ••••••••••

*.

CHECK

**.
.**
••

.*

X

*HD ...

-NO

I

.... B!*
>

OTCH

OVERUN

El

.>.

+.

SENSE * •
BYTE DATA
NO
_.SHOWS OVERRUN . . . . . . . . . . . . . . . . . . . ..

•*

.*

(

*.

\,

-.CONDITION.-

*.

.*
*. AYES

.....Fl··········
X

...

INSERT

CHKAM

...

... X'14' OVERRUN ...

*... '"

• CODE IN MSGCODE*
... BYTE OF ERROR •

: •• ~~~~~.~~!~! •• :

·.......

*HD-D3,G4

oo'"

F2

.>.x

*oo

SENSE

*•

BYTe SHOW

MISSING

*.••••••••••••••••••••
NO

*. ·MARKER
ADDRESS .....

*••
-YES

..
....
•····Gl·········*
·····G2··········
.* ••

:

1

:.X.X ••••••••••••••

EXITBB

:

X

X

• MOVE
•

E~:~;

LAST

'M' INTO.
CHAR POS •

• OF FTCHNM TO •
• IDENTIFY MSGWTR.
•
PHASE
*

•...••.*.**••••••

• INSERT MISSING.
.. ADDR MARKER -CODE IN MSGCODE •
• BYTE OF ERROR •

: •• ~~~~~.~~!~! •• :

....
...-

F ILEPR

G3

.•.x

••

•• SENSE ••
.* BYTe DATA •• NO
*.INDICATE FILE ••••••••••••••••••••
•• PROTECT ••
·.ERROR.·

....

.YES

x

•

····Hl·····.·•.
X

•

SVC 3

$$ANERRM

...~~:~!.~~....

: 1
•

>

:

••.••H3······.·••
X

•
INSERT FILE •
• PROTECTED MSG •
• CODE IN MSGCODE_
• BYTE OF ERROR •
QUEUE ENTRY •
•

.................

COHREJ

X

H4

•••

••

•• SENSE ••
•• BYTe DATA •• NO
•• SHOW COMMAND ••••••••••••••••••••
•• REJECT ••

.. ..
* •••
• YES

X
·····J4·..•...•.
·

CHAINCH

_REJECT CODE IN •
• MSGCaOe BYTE OF.
> ERROR QUEUE •

>

•

AND ALLOW

•

>IGNORE BITS IN •
ERROR QUEUE •
•

:~~~~~.~~~:.~~!~:

x
·....
.....
:

434

DOS System Control

1

:

•.•.••

....x ........
.... x
..........
.................
··........x ..
••

:

EXITAB
X
• •••• K4 ••••••••••
.RESET OFF RETRY.

.>.X ••

• •••• CSW STATUS

: ••••• ~~!~!••••• :

:.....••..••.•.•••..••••. x:

J5

NO •• ·~~el~I~~

• INSERT COMMAND.

•

2

BYTeS

••

·YES

:

HAINING·

ODE IN •
BYTE OF.
QUEUE •

•

RY·

• 1

>

)

Chart HD.

2311 Nonresident ERP (Part 2 of 2) $$ANERRB;
Refer to Supervisor, Chart 18

........
.. He

DATACHK

..

··

it

.. 01·

OTeA

• itit • •

X

B 1 _._ ..

• 1

*._**.

-ZERO RlO INSERT-

.. t

BYTE CHANQ
.. POINTER FROM

.. PUB ENTRY INTO
..
RlO

*

*

.'

.

83
*.
•• SENSE ••
.* BYTE DATA i t . NO
it.SHOW DATA CHK ................... __ . . . ..

it
it

it.

it*it* __ •••••••••••

IN COUNT . i t
... FIELD."
it • • •

.YES

_. _.-c

x

1* .... itit* • • it

..
MULTIPLY
..
.POINTER BY 4 TO•

OJ SPLACE TO

.. ACTUAL DEVICE
*ENTR YIN CHANO

11it
it

.............. _**-.... --

X

***+.01***** I t i t * i t .
... GET STARTING
it
.. ADOR 0 F CHANQ it
..
FROM ERSL DC
•

.
..

_**_.*._..

LOAD IN R12

.it.*it ....

..

x

._ it. itC 3*********.
..

..

TURN ON eeB

BIT WHICH

it

..

-INDICATES DATA ..

..

CHECK IN
COUNT FIELD

if
:t
it
it • • • • • • _ . . . . . . . . . . . _ .

x

_. ***D3*********·
-INSERT DATA CHKit
_IN COUNT FIELD it
"CCD E IN MSGCODE*
.. BYTE OF ERROR ..

:**2~;~;*;~!~!**:

VERIF
X
4*4**C4*4********
*TURN ON BIT IN *
*
cca WHICH *
*INDICATES DASO *
* READ/VER DATA *
* CHECK ERROR *
***it****_*******

X

TSTSSL
X
*****05**********
* LAST CCW USED *
* IS TESTED FOR *
* SIll AND SKIP *
* BITS HAVING *
*
BEEN ON
*
*****************

****404**********
* MOVE 1ST 4
*
* BYTES OF CSW *
*FROM ERR QUEUE *
*ENTRY TO FIELD *
*CALLED HOLDCCB *
*****4*****4*****

x

X

*****El**********
*ADD DISPLACEMET*
* IN RIO TO Rl2 ...
* TO GET ACTUAL *
* ADDR OF CHANQ *
*ENTY FOR DEVICE*
*****************

X

*****F1*******···
*LD CHANQ ENTRY _ DATA INTO

*
*

R12 •

GET CCB ADDR
FOR DEVICE

*

:***.l~*~;~*****:

X

*****G1**********
* 3 LOW ORDER *
* BYTES LEFT IN *
* R12 ARE CCB *
: AO~~toL~f8 IT :
*****************

**it**
*He *
* Gl*

• *

*
EXIlBB

.

.

X

E5
*•
.* WERE *.
• * SKIP ANO *. NO
*. SI LI BITS ON .* ••.•
*. IN LAST .*
*. CC,", .*
* ••
*
-YES

*4***E4****4* .. ***
-LD esw BYTES IN*
..
Rl2
*
>

** ... *******-**** .. *

.
.

X

*
*
*
*
*

*
*

*

.*.

TURN ON DASO
VERI FY ERROR
BIT IN CCB

*
*
*

*********_*a.**_","*

***It***It*********

G4

.

SKSLI
X
**_**F5********a.·

*****F4*******lt**

* LO AN 8 INTO
R9 SUB R9
*
*FROM R8 GIVING
* ADDR OF LAST
*
USED CCW

MESG

....

X

*"'***G5*********'"
* MOVE VERIFY *
* ERROR CODE IN *
... MSGCD BYTE OF *
.. ERROR QUEUE *
:**.**;~!~~* .....*:

.* WAS 4.
• * COMMAND *. NO
*.CODE OF CC,", A.* ••••
*. READ OR .*
*VERIFY.*
It • • *
*YES

: •••••••••••• x:x •••••••••• :
x

.>.

HI
*.
• -RETURN I t .
• *DASD RD/VER*. NO
*.ERROR TO USER.* ••••
*.BIT ON IN.*
*. CCB .*

* •.
*
*YES

H4

.*RETURN * •
.*DASD RD/VER*. NO
*.ERROR TO USER.* .....
*.BIT ON IN.1t
*. It eCB
••
• • It
*YES
****

X

:x........... :
INSERT
X
*****Kl**********
* INSERT DATA *
* CHECK CODE IN *
* MSG CODE BYTE *
*OF ERROR QUEUE ...
*
ENTRY
*
*****************

EX ITBB

x

·· ..
•

*****J 1**********
*TURN ON BIT IN *
* ERROR QUEUE *
*ENTRY ERRFLG TO*
* IND DATA CHK. *
*IN COUNT FIELD *
*****************

..

*****
*
• G1*

·HC

.*. *.

2

•

X

*****J4**********
*TURN ON BIT IN *
*ERRFLG BYTE OF *
*ERR QUEUE ENTRY*
*INDICATING DATA*
* CHK IN COUNT *
*****************

x

. .
****
o
•
• 2 •

.x .
***4

: 1

:

Appendix H. Detailed Flowcharts

435

ChaLot HJc..

-

:

2400 ~RP-- Error Analysis and Selected Errors
(Part 1 of 2) $$ANERRD~ Refer to Supervisor,
Cnart 18

····AI·········
...............
$$ANERRD

<

:

<

....

- 1

<

··...B1··········
..:
seT SYSTEM
MASK IN PSW

..
..

..
TO ENABLE
..
.. INTERRUPTS ON ..

i<

LOAD ADDR
Of CQMREG,

.. ERROR BLOCK,

i<
·····B4···
... ••••••
• INSERT EQUIP
•
•
• CHK MSG CODe
INTO EMSGNO •
•
IN ERBLOC
•

i<

..
..

• ADD LUB TABLE.
• INDEX TO REG 14.
• AND ST ORE SUM •
INTO eCB
•
•

..

.. AND PUB TABLE ..

: ••• ~~!! .e~~~ .•. :

:!~r2.~~~~.~~:~.:

<
< 3
<

i<

·····C2······.•..

··•..Cl······. ···

.* ••

<
<
<

2

•
GET CHANQ
•
•
I NDEX FROM
•
•
•
PUB AND PUT
• INTO TAPE ERROR •
• BLOCK REG 14 •

.................

:.~~~.~~~~~;~~

..
..

<
<
<

•..··B2··········

i<

..
..

<
<
<

<

• 4
<

(

....

:~~*

..

TEST ERROR

···*·02···*······
:
:

..

Mf~H~~~8rR

..

•

CHARACTER

GET ADDR

g~u~~~G

•

INTERRUPT

: •• ~2~.!.!;~~~ •• :

:.~2!;;.~52.5~!.:

·····03··········
.-*-.-.-.-.-.-.-.
i<

• CNTRTN

.. ..
..... ..... -..
YES ••

••• *.

.....

... .... **C5"'·.*.", ••••

:~~!~!~-.-.- . . -~~:

••

.. INCREMENT CTR •
• FOR INTL READ.

EQUIPMENT .'11
CHECK
••

it

: .. ;~~~~~.!~.!;~.:

·NO

it

.-

• <.

El

•_

*.

*.

ERROR

ON

-.

-.RECOVERY

*. * ••• .-

·····E2··········
i<

.*

•
•
•
:

YES

+.

.* ••••

·····FI··········
.................
HSG coDe IN
EMSGNO AREA

-IN ERBlOC

04

••

:.......... x:x

..
..

*K3"

•• ••

SSELER

••

....

.*

..

..
..
..

TEST ERROR

:.~!.

it

.. ..
............... .... .. ..

RETRY

i

E4

.·.·E3*········
•
SVC 3
•
TAKE RETRY
•
EXIT EXTRY
•
•

• NO..
x. .....

it

ICHART FW

<
<
<

5

.< •

i<

: ...... E5* ......... :

••

DATA
CHECK

<•

••
••

COMPUTE
RECORD
LENGTH

••• YES

<

<

i<
FS···

.*
YES..
•• •••

CHARACTER

<

x

• <.

:••••• e~~e••••••:

: •• ~2~.!.~;~2: •••

G4

••

WAS
••
••
NO.*
CCW
••
•••••
ADDRESS
••
•• STORED
••

it

•.

•••• *
• HF •

.*
•••
*
aYES

••J!.

i<

*. +.

i<

MAINRT

.+ •••
• YES

.-

..
GET ADDRESS
.. OF RETRY CTR,
• INCREMENT IT
AND STORE
•

.....
.

: ••• !~!2.!~~ ••••:

i

*
:

....
5

-

·····J1··········
•
•
•
•

GET ADDRESS
OF ERROR
MSG CCW AND
STORE IT IN

<

IS
- •
YES..
THIS A
••
• ••••
WRITE
••
•• COMMAND ••

<

:

J2

•
•
•
•

<

: 1

....

*.

it

<
<

i<

<

2

<

it
.**••
*HF •

•• • YES

FTCH2

••••K2······•••

...............

DOS System Control

.. ..
* •••
.YES

.K~.

<
FTCH3

<

it
•• ** <

- *._*

•

.x *.

UCHK

....

> I

*•*

·····S4·.·····.··
.*................
•

*B5·····.·••.*

REAOBK
X
.* ••
• LOAD ADDRESS
• OF BACKSPACE
COUNT INTQ
•
•
BKSREG, Rl3

X

REDfOR

LOAD ADDRESS

•

• OF BACKSPACE
COUNT INTO
•
BKSREG, Rl3

•
..
•

*

•
•
•

.................
*

>

•

.. J2*

*

SNS

·····(2·······
..............
X

..
..
..
..

i

·····C3··········
•
PUT ADDRESS •
• OF C(W HHO •
• ADDRESS AREA •

MOVE X'OO' ..
INTU TAPE ..
CLEANING
..
SWITCH TO ..
TURN J T OFF.

..

•

OF ceB

•

* •••••••••••••• *
.*

·····C5··········
.................
X

X

·.·*·C4···.*.*.·.
*
• LOAD ADDRESS
OF fORWARD
•
SPACE COUNT
• INTO FWSREG~
•
RIZ

•

•

•
•

•

•

• ••••••••••••••• *
•

LOAD ADDRESS

•

FOR~ARD

OF

•

•
•

SPACE COU;\jf
INTO FWSREG,

•
,..

•

R12

•

:Xoooo e ••••••••••••••••••••• :

X
.·.*.03 •• *•••• ** •

X

**.·.02 ••••••••• •

..

PUT SENSE

.-*-.-.-.-.-.-.-.

..

.. COMMANO CODE

..

.. IN THE SENSE

..

• OOSVC

·

.................
• AND SENSE AoeR ..

..

AREA OF CCW

..

HM.

SVC
DO

15
110

.
•
•

** ••••••• ****.* ••

X
·····04······· .. ••

TSTCLN

*• SET UP BACK *..
• SPACE COMMAND.
CODE IN CCW •
•

.................
*

>

x

..

(

*.* ••
*HK •

*

i

·····E2····**····
*-*-*-*-*-*-*-*-*
_cosvc

HM*

>

.................
..

511(15
EXECUTE:
SENSE: I/O

..
..

..

..
..

.*

•
MOllE X'FF' •
INTO CLUE
•
•
• AREA TO TUR~
• ON TAPE CLEAN.
•
SIoIIT(11
•

.* •• •

....

*
*
*

2

*
*

x

:BTOTCl

X
·····F5*·····*

.-.- .-.-.-.-.-.-.
**··*F4·*········
.uOSIIC
HM.

LOAD
PGINT

•

SIIC 15

>

•
•
•

•

•
EXECUTE
•
CLEANING OP •
*• .......
*••• *••• *.

>

TURN OFF
TAPE CLEAN

•

INDICATO~

** .•......
*

*••• •

•

•

• J2·
• >

*&1

THE NUMBER OF
FORWARD SKI PS ARE

COMPARED TO THE
NUMBER OF SK I PS

I SSUEO MINUS THE

NUMBER OF BACKWARD
SKIPS.
IF THE

RESULT IS NOT ZERO
THE BRANCH TO THE
FORWARD SKIP ROUTiNE
IS TAKEN.

*

G4

.......

•
NUMBER OF
•
*FORWARO ~PACES •
*TO SKIP
.Gl

*
*** ••••••••• "'** ••

H2

....

*

ZERO

* •••
*NO

••

.*

••

*. * •

.. ..

NU. OF

*.

JIME~

. ..

••

..

*

·oo

*

.•**.**.*.**.*••.

....x
·.
*•

I

*•••

*
•

DOS System Control

THE

••

·oo ••

••

••

.*

··......**..
x

x:

•

.................

3

*

*

'.

•
•
•

.* . ••

FRS

.YES

•
SET FORWARD •
• SPACE COMMAND.
CODE IN CCW •
•

:Xoo ••• oooooo.oo ...

x

CRC ••••

• COMMAND CODE
• IX'LBI) INTO
CCW

G5

•• OF TIMES

BTOFwS
X
: •••• H4 ••••••••• :

•

•• 3 •*oo XooX
•• INSERT TIC ••
····*J2·········*

NO ••

••

... oo ••• REQUIRED NrJ • • •

.YES

*.
•
.* oo* COMPARE
.oo YES.
EQUALS
.* .....
*oo

.oo

•••••••• oo.oo •••••••••••••••••• oo ...........

.'. *.

• >.

•• BKSP
.. NL •• THE REQ'O

• R12 TO J.ET THE.

*. • oo

x

x

X

"'~···G2.···.···*·
•

• SUB R13 FROM

x

442

*

oooooo ••• oo.oooo ooX:

*. •.

*..*
*.
.*
*.
.*
x
*
*•.
·YES
*** ••
·HM •
NO.*
.. .....

X
···*.E4·.·*·*·

• ••••••• * ••• **

x

.>.
F2

G2·

oo :

• •••• J4.·* •••••••

.-*-*-.-.-.-.-.-.
HM.

.DO~Ve

·
•
•

FORWARD
SPACE

.
•
•

.* ••• *•••••••••• *

....
x

** 2 •*
****. *

(

2400 ERP Data Check (Part 3 of 3) $$ANERRFi Refer
to supervisor, Chart 18

Chart HM.

.···A2·········

o

0

oosvc
•• •••••••••••••••
••

DOSVC
X
••••• 82 ••••••••••
• HOVE PNTR TO •

....

:c~~~?EA~~~ i~~E:

.PUT X'FF' INTO.

•
PNTR IN PUB •
•••••••••••••••••

*o
*

1

••••

00
0

·····e2··········
i

• HOVE CHANNEL

•

o

•

•
•

SCHED FLAGS
TO RESTORE

•

FOR SAVING

INSTRUCTlDN

•
•

••••••••••••••••••

····.02•.••.••

·····04··········
*

X

•
•
•

•
•

lURN OFF •
QUEUE ERR •

AND DEV BUSY

INDICATORS •
IN PUB FLAG-

X

RSCH
•
•

•

HOVE A ZERO •
INTO THE CHAN •
SCHEO FLAG
•

.AREA TO RES TORE-

THE FLAGS
•
•• ••••••••••••••••

••••••••••••••

...... ......
x

•••••E2··········
i

.0 •

E4

• SET RIK TO
•
-X'OO' ,LOAD R15 •
• WITH ADOR OF •
:RE~C~ a I Nt~DR&UT:

*.

CHECK
*...UNIT
OCCURRED
*•••
oNO

•••••••••••••••••

•• YES
••••••

X

•••••

• HL •
• 82·

o o*

.....•F2···········
X

i

•• •• FIt •••••••• •

*•

SVC 15
EXCP

•

•••••••••••••

...............
RETURN

0

•

0

.0.x

G2
*•
•* CHANQ *•*. NO
*.•*e. OVERfLOW.·
.* ••••••••••••••••••
*.
.*

•••••
o
o

*••
eYES

0
0 0

••
o
OHL-a2

HL-F2
ERR

X

·····H2··········:

:•

i~E~W~fT~g~~

•••••H3··········
X

•

THE TRAFFIC.

•

•

TO A X'SO'

•

•

:am W~FOT~~ :
.cca IS COMPAREDo

•••••••••••••••••

•••••••••••••••••

TO RESTORE

:CH~~HeaNPL~~~N :

:•....•.•......•.•...•... x:

.•••.J2··········

ERE V

X

• MOVE X'ZO' MSG •

:

:

cgR~oAN~BE~~E
EH~RlE~8MOR

:
:

•••••••••••••••••
••1••

·HK •

• &3·
00

•

..

.0

o.

••

J3

.•.i x*•••••••••••
•

*.

'II • • •

..

*. o.

1/0

COMPLETED

••

•

NO •

.0 ••••

OYES

X
••••
•
•
••••

o
o 1
o

0

)

Appendix H. Detailed Flowcharts

443

Chart HN.

2321 ERP Error Analysis (Part 1 of 3) $$ANERRG;
Refer to Supervisor Chart 18

....
....

•
*

• 1

··.··.Al·········
.................

AOI

·····81··..······

A02

•

$$ANERRG

oot

*oo

•

X

.. SET SVS MASK

"

GET AoDR OF

..

• ERBLOC AND PUB."

• GET RETRY CNTR ..

•

*oo

CHECK

*. *oo

..-

*oo YES

...

.* ................................. ..

*NO

·····64*·········

*

*••••••• *•••••••••*

X

INSERT
MESSAGE
NUMBER 10

X

*

•
•
•

•
•
•

*

INCREMENT

..

.................
AND SAVE
RETRY elR

••

..
..

*

C3

*oo

EQUIP

CHECK

C4
YES

••

••••••

...
••

*. •.

·oo

ONE
RETRY

•• NO

.•
*••• .*

.* ..

oo.oo .. oo • • • oo • • • • oo.oo

.YES

x

.. ..
.... ....

: • • • • • oo . . . . . . .

.'. ••

••
NO
••
RECORD
••
FOUND

.* . ••

••

*NO

03

•
•
•

x

. *. ••

...... ......

.*
••

*

INSERT
MESSAGE
NUMBER 28

x

x

..

*oo

CHANNEL
DATA

·····B3····.·••..*

: •••• Cl ••••••••• :

*
•

X
.*oo

**
*

.................

.................
•

*oo

•*
•
•

*YO ALLOW INTRPT*

A3

oot

(

•• YES
••••••
••

:
•

x:

····04••••.••..

MSGWTR

ROl

X

svfslNE~N~~H

:

CHART JA
••••••
* •••••••• •

X

*• ····os·*··**···
svc 3
EXRTY
•
•

...............
(.HART FW

•

'NO

BOl

E3

..... .. ..
..
......
NO..

oo·

.*.x

CHECK

x

.~

F3

YES..
•••••••••••• ••••••••

.*.x

*oo

AVAILABLE

*oo *.

NO

••••••

.• .-

•

INSERT

•

..

•
AND SAVE IN ..
-HIGH CORE-SAVE ..
..
CSW STATUS
..
•
BYTES
..

.................

•
•
..
•

*

*

.oo
.oo

.

ADDRESS

~o

•

•••••••••• X.

····G4•••••••••
SVC 3 FETCH
S$ANERRJ

•
•

*•••••
CHAR T HT
*.*** ••••• *

•MARKER
•...
• • ••
·YES

*•

INSERT
MESSAGE

.................
•

•

*

•

NUMBER 22

TURN ON

•
•

•

•

A-TYPE
MSG FlAG

**

*•••••••••• *•••••
:oo.oo •• oo.oo ..... oo ....... oo ... oo . . .

~

MSGWTR

•

x:
X

•••• K3**"·**·:O:O •

,. SVC 3
FETCH
UANERRM\
,.
,.
CHART JA

•

•••••• *•••••••• •

444

x.

..... H3··········

*•

•

-ADDR IN HI CORE.

: x ................... :
x

PHASEJ

*.
.• MISSING *. ••

X

X

•
MOVE USER'S
•
.. SEEK AOOR TO
•
_ERR QUEUE
SAve.
• USERS DATA CELL.

·....

••

·····J3·······
*

·····Jl··········
.................
••••
• 1 •
• •

.*

*NO

X

TURN OFF
•
RETRY AND
•
IGNORE
,.
FLAGS
•

..............

·oo

••
••

•••

•

X
....·H2*······

....
..

COMMAND
REJECT

G3

•

MES~AGE
NUMBER 26

x
.*. ••

X

802

**••••• *.* ••••••••*

*oo *YES
.*

X
cce AOOR

•
•

,. ....Hl··········
• GET

X
·····G2
••••••••••
•
*

\

.oo
oo.

A3 •

*

.* G1 eeB * .. *oo *oo
oot

••

·yES

• HP •
•

(

......
••

SEEK

•• •••

DOS System Control

(

2321 gRP Error Analysis (Part 2 of 3) $$ANERRG;
Refer to Supervisor, Chart 18

Chart HP.

•••••
*HN •
• E3*
••
•
FOl

X
····.A3
•.••••••••
•
•
•

INSERT

•
•

•

MESSAGE

..

NUMBER 08
••••••••••••••••••
•..

.0

83

.*.x

too

too

•.oo.1~I~a~~~~A o~...*oo *ooYES................................ ..
*oo

o •••

••

'NO

·····C3···.····..•
X

••

INSERT

.0

•

.................
HES~AGE

•
•

*oo

•
•

NUMBER 09

•

yes.o

oo·

oo............................ •••• o.

x _oo
.'.

BUSOUT

'I_ ••

oo.

IS

YES .-RETRY COUNY ••

••••• A MULTIPLE

o.

x
••••

·· --

o.

OF 16

o •••

••

••

••

YES.o

oo.. ••••

*

••

••

o •••

o •••

••

*oo

••

YES
••••••••••••••••••••

•

FLAG

-....-.

3
EX-IGN
CHART FW

•

•• x.

'.
i

...............

• SVC 3

••

•

.0

•

FETCH •

$$ANERRf4

CHART JA

•

•

x

F3

EXRTY

CHART FW

•••••••••••••••

••
••

•

•

••

.....

•• YES
••••••••••••••••••••

OVERRUN

* •••

*HQ •

• G3·

'NO

••

.. ..
.. ..
G3

*.••••

.•.x

-

••

MISSING

•• NO

ADDRESS
••••••
MARKER ••

* •••
·YES

i

•••••
• HQ •
• A3·
•-

.

: ••.••••••• x:x
F02

••

H3

•••

••

IS

RETRY

••

• •••• HIt· ••••• • •• •

•••

•• NO

THAN ••••••

••

•'
o.

•*

*.

J3

INSERT

MESSAGE

*•

•

•
NUMBER lit
••••••••••••••••••
••

•• • YES
•*

F03

X

GOI

.. ..

••

*. GREATER
••
7

.'.x

.'.i ••

••
.* Jit IS COUNT".
••
YES
*..oRETRY
MUL TI PLE OF ••••••
••
16
•
*.
•• .*

........

IS·.
•
RETRY'. YESX
COUNT
•••• X.
000
••

....

°NO

'NO

: •••••••••••• X:
PHASEI

••••K3.i•••••••

)

...............
svc

····E4·.·····••

-oo *oo

••

•
•

*

····05••••••·•·
i

•

•

-

MSGWTR.

COl

•

.... .'. ....
.. ..

X

•••• F2 •••••••••
•
svc 3
•

..

DATA
CHECK

o.

o.

I~~~p~N

*

.oo

too

'NO

•••• •

oo·

o.

'NO

• I

ROI

E3

X
.*oo

too

IN] TlAl

~ElECTION

·····04·.·····
:
••
..............
.... .

*oo

• 1

.'. .oo _oo

FOla

•••

'NO

-NO

x

Cit

X

_oo

CHECK

o. o.

oo.

*oo

*

03

E2

X

Tal

o
o
o

SVC 3 FETCH
ISANERRI
CHART HS

•••••••••••••••

ROI
0

0

0

i

•• ••••
••
I
•••••
•

i

•• ·.KIt· ••••••••
SVC 3
•
:
CHiWlw
:
•

•••••••••••••••

Appendix H. Detailed Flowcharts

445

2321 ERP Error Analysis (Part 3 of 3) $$ANERRG:
Refer to Supervisor, Chart 18

Chart HQ

(

•••••
*HP '*
• G3·
••

.

·.•.•.A3··········.
·..................
X

'*

•
•

INSERT

•

MESSAGE
NUMBER 18

•

'*

x

83

.'. *•

•*C.OMMAND *•*. YES
*.•* REJECT
••••••••••••••••••••••••••••••••••••••••••••••

*.

..-.. -.-

••

'NO

X

lOI

.*
...

e3

.-.

*.

*.

-.

·

-.. -..

". CHECK

YES
.- .................... .

•
•
•
•

••

..

POST
•
YES.*
CCB+3 wITH
.X..........
-X'40'-·

•
•

*.

•••••••••••••••••••

COl

•

•
,.

.*

D3 .•.x

TRACK
OVERRUN

...............
EX I GI"l
CHART FW

····04•.•..•...

PHASEH

*. *.
.*

*..*•• -

•
•

.-

•

x

...

•
•
,.

...............
SVC 3 FETCH

05

•

$$ANERRH

,.

CHART HR

•

*.

.*

E)

.•.x *.

*. *.

-. -.. -.. .END

X

.
·.................
•
•
•

··
..
•
•
.................
X

•*F3FILE *. •. ••
PROTECT
.*
*.
••
*. *•• *.*
'NO

• •••• F4 ••••••••• •

YES •••

................•. *.

·
·
·

.
.

•

NUMBER 11

•

QOl

X

.

x

........

•
•
•
•

TURN OFF
•
RETRY ANO
IGNORE
•
FLAGS·

*•••••••••••••

·NO

·····H3······
•.·•:•
•
:
X

.*.*.H2*······

*

•
•

.*.
•• G3 *. *. •• YES
•• CHANNEL
*. •• CHAINING
••••••
CHECK ••

*.**.**.** •••• **.

•• -.10
••••••

.*

ic

•• ••• E5 ••••••••••

OF CYLINDER ••••••••••••••••••••

*.

*.

FILE
PROTECT

••

·

YES

.*.

NOl

X

••
••

.YES

-NO

*****G2****•• *·**
•
INSERT
*
•
ME~~AGE
•

.... .'. ....
....

X

'NO

HOl

X
svt 3

••··E2···***" .. :e.·

*.

TURN OFF
•
RE:TRY AND
•
IGNORE
•
FLAGS·

..............

.-

'NO

.....02..........

.

X

••• •• C5·······

*. *.

TRACK
CONOI T ION

x

•••••
• HP •
• H4·
••
•
GOl

COl

POST CCB+3
X' 20'

··*·G4.· •••··**

•
•

INSERT
MESSAGE
NUMBER 17

(
\.

'"

:x ....•..... :
HSG",YR
•
•
•

X

• ••• FS.*· ••••••
SVC 3
FEH.H •
SSANERRIoI
'"
CHART JA
•
• • • • • • • • • • • • 11'":11 •

X

•
...
•

...............
SVC 3
EXIGN
CHART
F\Ij

...
...
•

~~~~~tE

NUMBER 19
•••••••••••••••••••
••

:.•....••••.•......•••.•. x:
MSGWTR

•
•
•

446

·.·.K3·····..••
X

...............

SVC 3
FETCH.
SSANERRMJ
•
CHART JA
•

DOS System control

(

Chart HR.

2321 ERP Track Condition Check ($$ANERRH); Refer
to supervisor, Chart 18

•• ••••
•
1 •
•••••
•

.-.i

.*Ait *•e.
NO •• ALTERNATE -.
••••••
TRACK
.*
*. *.
.*.*

••••A2 •••••••••

•
•
•••••••••••••••••
•

"ANERRH

·•••••••

•

*••
_YES

.•.x

X

.* Bit *. t • *. YES
*..* HEAD
19
••••••••••••••••••••
*. *.
.*.*

•••••82 ••••••••••

-

• INITI
• AND
•
A
•
CON

REGSTE.
•
S.

••••••••

*•.
-NO

•••••e2····•••••·
X

:

MOVE LUBlo

•

TO

•

:T03

:

eta

•

••

AND SET UP

Rlk

•

•

T06

SX~A~5

X

seEK

•

AOOR

tOE~=••• Fl.i••••••••
• RESTORE CHANQ •
•
POINTER.
•

M~i~8e~ ~~t2. :
••••••••••••••••••
•

FULL

*.

••
*••
*
-NO

..

••

.. ..
.... ....

•
•
•

•• NO

.i..
•• 1 ••
••••••

.

••••••••••••••••••••••••• X.

i

•••••H2 ••••••••••

•
•••
•

••••

•

•

•

····05·········
...............

"

i

•
•

•

Svc 3

EXlbN

CHART FW

•
•
•

SET FILE
MA~K COMMANO
•
TO NOP
•

:x ••••.••••• :

• YES

"SGIITR

COl

eea

·····'4··········•
X

•••• Y'o ••••••••

.

"

TO

••••••••••••••••

••

ERROR

POST END

OF CYLINDER

X

•

~m. :
••:s~m3e~
•••••••••••••••••

.-.x

•

•
•*
.····FIt·······

• RESTORE CHANQ •

G2

•

•

.-.x

••

POINTER.

.................

Eit
*•
.*.* FILE *. *. YES
.PROTECT OPTION." ••••
*. IN USE .*
*. *•• *.*
-NO

RST~~i •• F2.!••••••••
•

•

ADDRESS

i

•*E2CHANQ*. e. ••
YES..

..

"•
•
"

COMPUTE

•

•••••••••••••

• ••••• •••• ••• •••••••

•

••••• 04•••••••• ••
•

HOME

.•.

•

HEAD

·
·•••••••••••••••••

X

·••···OZ···········•
•

UPDATE

•--••••••••••••••••""
.••••••••••• x..

•••••••••••••••••
•

X
·····C5
••••••••••
"
"

i

·····c.,.··········
-

•
•••
19·

••••••••

••

GET CHANNEL

•
•

ERRONEOUS
DEVICE

•

AND UNIT OF

•
•

•
•

•••••••••••••••••
X

•
•
·····HIt··········
•

WORK.

•
.AD
•

I TCHK
H·
OF
•
UTiNE •

•••

••••••••

•••••J2.i••••••

:•

m~y01~D

•

IGNORI

•
F
•••••••
~.2A
•••.

••
•

:x••••.••.•••••••.•••••••• :

••••ltl·!·······:

...,...........

• SVC

)

:

F=TCH •

J~ n~~A

••·.U.•.....··

C01+4

i

••• eJIH.. ••.
•••••••••••••••

Appendix H. Detailed Flowcharts

447

2321 ERP-- Data Check/Missing Address Marker
($$ANERRI); Refer to Supervisor, Chart 18

Chart HS.

·...Al·········•
·•...............
.
..

$SANERRI

....

X

..
..

INITIALIZE
REGS AND

..
..

..
..

ADDRESS
CONSTANTS

..
..

E06

RELOCATE

STRIP
.oo
NUMBER
• oo
00

READ
HOME
AOOR

X

SUBTRACT
•
1 FttOM
• STRIP NUMBER

INTERNAL

MOl

..

..

X

·.···04
.••..•.•.••
•
X

E062

··..................
•
ADD 1 TO
• STRIP NUMBER

······[3···········
.-.-.-.-.-.-.-.-.
.............

COUNTER

..

IORTN

•
•

·•..·.05···········
X

..

··•.F2·········

...............
SI/C 3

..

_FETCH S$ANERRK ..

..

..

CHART HV

..

•

····F3·········
...............

.,

5YC 3

EXIHY

CHART FW

•

••

.'

••

CHANNEL
QUEUE
FULL

••

••

••

*•••
'NO

·...•.F5··········.
.·................ .·................
••··.F4••••••••••

•

•

CHANNEL
PROGRAM

YES ••

IUERR

X

•

.............
.. . ..
.. ..
EXECUTE

x

oo ••••••••••• oo •••••• oo

STKIP

ROl

svc 15

ES

HS

SEEK

X

..

·.................
.
....
' .
-.x.
··..........61··········
·
.
RETRY

..

•

•

•• INIT IALlZE: ••
•
FOR
•
Svt IS
•
••• ••••••••••••••••
•

X

.·..·Fl··········
INITIALIZE

FLAGS

·····CS··········

:X •••••••••••••• oo ••• oo ••• oo.:

•*. *..

X

..

•
•
•

*

•* 226 * •*. YES
*.•**. RETRIES
.* ...................... .
.•
*.
.*
*••
'NO

..

•

•• YES
••••••••• oo ••••••••••
••

·····03··········•
.................

..
..
..

x

..

.•................•

•

••

..

·•••••••••••••••••.
El

··.·.BS··········
•
SAVE CHANO
•
•
POINTER AND •
• CHAN SCHEDLJlE •

'NO

·····01··········

•

X

10RTN

•

••

••

.............
X
Hove

IORTN

x

C3

HS

.. HOME ADDRESS
•
TO MESSAGE
..
WRITER

~ET UP

• SEEK ADDRESS

X

..

i

··..................
.. .*. ..
.... ....

..

•··*-*-*-*-*-*-*-*-*
•.·Cl.·•.•·...··
E050

·····B3···
•••·••••
•
•

.................
IORTN

*

••••• •
•• 2 ••

•·...81··········
..

·•····AS·········
.
••••••••••••••••

..

X

• RE!)TORE CHANt.
•
POU... TER AND •
• CHAN !)CHEDUlE •
•

flAG::.

•

RSTQPT

X

•

RESTORE

•

•
•

CHAI'IIO
POl"HER

•
•

(

.. 1

..

E051

X

RS TFLG

X

··.··GS··········
•
RESTORE
•

.................

·.................

.x'.

.... .'. ....

..
SET UP
.. SEEK ADDRESS
..
1 AND 2

..
..
..

•

*

HI

•
•
•

-. *. NO
aTH
•*•*INTERNAL
*. RETRY .* .* ................. ..
*. * •• *.*
·YES
JI

.~. ••

•
YES..
.x.oooo ••••• •••• ••••••

**.**J2 •• *** •••••

•.•. .•.•

X

EXRTY
(.HART Fw

•••••• **** •••••

••

••

•
•
•
•

M5GWTR

····J4······.··
X

•
!)VC 3
•
• FI:TCH $$ANERRH •
•
CHART JA
•

•••••••••••••••

·····Js··..··.··.
X

•• RETURN ••
•••••••••••••••

•

.......
KZ···········
.-.-.-.-.-.-.-.-.
X

IDRTN

•••• KI·········
•
•

........

••••

• 2

SYC 3

SET UP
CCW IN CCB
FOR NEXT
SEEK

x !••••••••••••••• !

·•.....•

·NO

•

•
•
•
•

••

WHT

CHECK

'NO

i

8050

••••
••
RETRY
•• YES
•• A MULTIPLE ••••••
•• OF 32 ••

ROl

•
•
•

x

H5

-.

••

lOI

CHANNEL
SCHEDULER
FLAGS

•

•
•

HS

.............
··••••••••..

SEEK TO
.1ST AND lAST.

TRKS OF STRIP

x

• 1

448

•

DOS system Control

(

Chart HT.

2321 ERP-- NRF/Missing Address Marker, NRF/Seek
Check (Part 1 of 2) $$ANERRJ; Refer to
Supervisor, Chart 18

-- -X
·····
. A5···········
*!~~r~.-*-.-*-~~.
- 5

-

NOl

-

****A2* **** ****
S$ANERRJ

-

SEEK AND
READ

HA

........... ** •••

X

····*B2*·-It

_.* . . _.. _

INITIALIZE

...

REGS AND
AREAS

YES .. '"

.... *.

x
••• *

-.
-. .-

*•

I/O
ERROR

.-

* ...
---NO

-

_ 2

x

X

C2-··

C5·-· ••
... CCH OF * •

.. "

.. '"
*. YES
NO .. '" HA EQUAL
-.
-.RECORD FOUND . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . X........ ••••••••••
SEEK ADOR
.*
* ...
"
-NO

•*

*.

.. "

.*

*.

SOl

02" * .....
• -MISSING·.
ADDRESS
MARKER

*.

it ..

..'"

..

X

* .......

.*

X

····*·04···*····*·

·····05*** •• * ••• •

..

LOAD NO

.. RECORD FOUND
..
MESSAGE

LOAD

NO

.*
* ...
"
.. YES

SEEK CHECK

..

..
..

MESSAGE

x

** •••••••••••••••

• *.*

· •

* ...

5

-

10
RETRI ES

HIGH

..
EQUAL

._.-x
-- --

·- .• 1

- 4

-

.***

X

FI·*· *.

-,

.'

ERROR

."

- 2

*

*
"*
*
*

SEEK AND

x
****

·

READ HA
TRACK 0

.*.

G2·

•*

.*

A05

.* ....••.• X

*.!~~!~*-*-*-*-~~*
SVC 15

SEEK AND
READ HA

SEEK I/O

TRACK 19
*************

- -

* •••

1

.

X

..

-

*****H3**********

•

NO.*

• x•••••••••••••••• *.

RETRY
COUNTER EQ

...

16

.-

*.
.*

*
*
*

• *'

LOAD BLANK
STRIP MESSAGE

X'23 1

*
*

*.

*

* ••
*
*YES
-

3

!.x:

***************

I/O
ERROR

*.* •• *-*

NO

.*

•

* •••.

X
.. **** *

- -

*

x

X

A051

****Jl"********
SVC 3
*
FETCH RTYEX
..
CHART FW

.-. *.

- 3

*

it

*
*

H4

*YES

****
:

*

it

-NO

*

.

******G4********* **

*** ***G3***********
IORTN
HU
*-*-*-*-*-*-*-*-*

*. YES

ERROR

*

AND

COMMAND CODE
FOR SEEK

A03

*.

I/O

*'• • *

SET UP

ADDRESS

**************-**

**"**"*"****"****

-

it

*****F4**********

*-*-*-*-*-*-*-*-*

NO

-.

- .-

•

******F2*·*·*······
IORTN
HU

*.

I/O

* ••
-NO

,

,-,

*****J2**********

*

*
*
*'

LOAD MESSAGE
FOR NO RECORD

FOUND AND

MISSING AD OR

*
*
*

:****~!~~;~*****:

.- .-.
*

4

****

MSGWTR+4

*.x.

X

NO

. •. *.

x
****

--

- 1

.*
*.

J3

*.

I/O
ERROR

*.

MESSAGE .*
*.
0*

* ••
*
*YES

-

.*

--

****
2 _

. .......................
x
.x
...

****K2*********
:

..

FETC~Vf$lNERRM;

CHART JA
*
***************

Appendix H_ Detailed Flowcharts

449

Chart BU.

2321 ERP NRF/Missing Address Marker, NRF/Seek
Check (Part 2 of 2) $$ANERRJ; Refer to
Supervisor, Chart 18

·.··A3··•••••••

••
••
IORTN
••••••••••••••••
•

..••.83·······•••
X

IORTN
•

SAVE CHANQ

•

•

POINTER AND

•

•

fLAGS

•

-CHAN SCHEDULER •

•••••••••••••••••••

··.··t3·.·.······
X

•
•

INITIALIZE
FOR

..

svc

•
•

15

•

••
•
••••••••••••••••••

....·.03···········
X

SVC 15
EXECUTE
CHANNEL
PROGRAM

.**••••••••••

E3

•*
••

*.

*. *.

.'.x *• *.

CHANQ
FUll

*••
'NO

(
*.• *yes
••••••••••••••••••

.* .*

·····F3••••••·•••

RSTQPT

X

•

RESTORE

:

•

:

pg~~~~R

.................
••

••

·····FIt....••••..

IOERR
•
•

X

RES TORE
CHANO

•
•

• POINTER AND •
_CHAN ~CHEOULER •
•
flAGS
•

•••••••••••••••••

X

·····Gl·········.

RSTFLG

·•••••••••••••••••.
•
RESTORE
•
_CHAN SCHEDULER •
•
FLAGS
•

H3

•*

.'.x *•

t.

NO.*
UNIT
*•••
••••• •••••.••.••••
*.
CHECK
*. *.
.* .*

*•••

·YES

:x .....•.•••.•.•.•.••....• :
X

•····J2········*
•*
+It
•**.*** •• **.**
•• *•
RETURN

x
•***·J3···•••• *.•
•

RETURN

•

•••••• *••••• *••*•

(

450

DOS System Control

2321 ERP--Continuation of $$ANERRJ ($$ANERRK)
Refer to supervisor, Chart 18

Chart HV.

••••A2·········

•
•
•••••••••••••••••*'
•

~

SSA.NERRK

X

•••• 82 ••••••••••

•

INITIALIZE

•
•

•

REGS AND
AREAS

•
•

•
•
••••••••••••••••••
>

•••• >
1 *
•••• *

>

*
*

·····C2·••X •••••••
•

SET UP

*>

•

POST DATA.

•

CHECK IN

•

>
>

eee

•>

•••••••••••••••••

X'IO'

••••••••••••••

x

NO.* • * DATA
CHECK

-. *.
.-. *. t • • _ .-.*

-. ...-.-

••••••

..

WRITE

.-

-. COMHAND .-

.YES

>NO

x
.*.
*•

x

.>.

*. - .
USER

E2

E4

•*
REQUEST *. NO
*.•*DATA
CHECK . . . . . ..
*. t • • _ .*
*.
.-

*. *. ANDERROR
READ ._ . t .....
*. t • • _ .-

.YES

.YES

... USER
- •
._WANT VERIFY_. NO

>

•

PASS BACK

•>

BIT

>•

·····F4·······

X

>

TURN ON

..............

•

••

>•
TURN ON
PASS BACK
•

..............

•

•

•

Bn

*

:x ......•..• :

·····G2··········
SET UP DATA
CHECK
MESSAGE

>
>

G4

.... ....
*•••

·YES

.>.x

X

·····H<\·.·····

.*H2DATA •• •• ••
••
••

........
CHECK ON

COUNT

••

x
>•••• >

....

> 1
>

i
•••
••
J2·
•••••
•• •••
•
SET
UP
DATA
>

CHECK ON
•
COUNT MESSAGE •

>

>

>

•••••••••••••••••

:•••••.•..• x:
MSGWTR

X

•

SYC 3

•
TURN ON •
• VER I FY ERROR •

YES
••••••

>NO

•
•

••••K2·········

•
•
>

IN CCD
X'20'

••••••••••••••

>•

•

>
>

·····J4··········
i

>

>

•

SET UP

>

MESSAGE

• VERIFY ERROR

>

•

•

>

>

•••••••••••••••••
: •••••••.•• x:
MSGWTR

X

•••• K4•••••••••
•

: FET&'lRyANR~" ,:

•••••••••••••••

x
.>.
••

•
•• SLI ••
X NO •• AND SKIP ••
••••••
DIT ON
••

•
•
•

>
>

•••••••••••••••••

••

•

*

:x••..•..... :

x

•
•
•

.o

X

·····FZ·······
•

)

•

>•

.>.x - •
04
.*
LAST -.
YES.*
CCW A
-•

02 .>. _.

.o.o ... - .

X

·····c""·······

ROVER

•

-MISSING ADDRESS.
• MARKER MESSAGE •

•

"JVf 3

>

:,l'fl!iimSWRRH.:

•••••••••••••••

~ppendix

H. Detailed

Flowch~rts

451

Message Writer-- Determine Action Type anj
Targets; $$ANERRM; Refer to Supervisor, Chart 19

Chart JA.

(

-..

····Ai·····....•
·•...............
.
'"

SIANERRM

·-....
.....-

'"

• 1

·.··.B3··········
.................
-

·····Bl······.···
X

PHASEl

•

SET SYSTEM

X

**

..

.MASK TO ENABLE •

·.................• INTERRUPTS ON •
'" All CHANNELS '"

X

•

ERROR QUEUE
I Nro REG 1

•

NUMbER BYTE

•

TO SEE IF bIT'"
*3 I ~ ONE
*A4-

.ERR DEV IN R15 '"

• ••••••••••• *••••

X

·····01······**··
•

,.

.*

see

.................
-BYTE TO

•

IF'"

.•
•*

*.

FOR DEVICE '"

15 AVAILABLE

El

•0

D3

.-.x
MSG

'"

*. *.

RANGE

*. * . . *.*

.*

*YES

.0.x *.

- **.*

- -

-

X
****.B5·*· *******
* LOAD ADDR OF
*
MSG TABLE:.
•
*
.INTO R2 ADD Rl *
*TO bET ADDR OF
AC TUAL MSG
.*******. ***.****

*'
*

*

x

*****c 5** ****** $*
• HOVE CHARS OF
* ACTUAL MSG Tu *
""A SAVE AREA FuR*
USE BY OTHE:R
*
* MSGWTR PHASE
*
********. **.*****

*

*

•• ***05*** ••• *** •
*
MOVE N INTO
*
• LAST CHAR POS *
*OF FTCHNM FIElO*
*
TO IDENT !FY
*
* PHASE TO CALL *
*.******** * •• ****

X

*. •• YES
etB
*.
AVAILABLE
.* ••••
•• FOR DEV .*
•.
.*
*
*••
_NO
X

*****E 3 * **.******
•
SUB 6 FROM
*
MSG VALUE TO
* CONVtR T FROM
*
*PACKED lJECIMAL •
* FORMAT TO HEX *
**** ***** •• *****.

*

*

:x ....•....• :
.*. *.
F3

X

****E 5*. * ••• ** •
SVC 3
•

*
**'

Ss.ANERR~

CHART J8

* •••• * •• ***._*.

*

*

(

x

MSG2

*****F 1 **********
*INSERT POINTER *
• TO CHANO FROM
* PUB ENTRY FOR •
•
DEVICE INTO *
•
REG 12
..
** •••• ****.**.***

2
****

x

-.

:'-4UMBER J N
/'olD
*.10'5 OR 30'S ••••••

TEST ERR FLAG '"

-eca

•

-USE X'IO' MASK.

IN REG 9.

ZERO REG 12

*'

X

'"

PUB ENTRY FOR •

•

•

*.*
••
C3*·*·.**···*
•
TM THE MSG

• LOAD AODR Of •
*COMREG IN REGIO.
•

INSERT HSG

NUMBER FROM

•
'"

·····C1··········
.................
.ERBLOC

-

FOR EXAMPLE,
IF HSG CODE IS
X'lO' THE MASK
TEST IDENTIFIES
BIT 3 AS ON.
00010000 HAS VALUE
OF 10 IN PACKED
DECIMAL FORMAT AND MUST
BE CONVERTED TO
HEX FOR PURPOSES
OF ADDRESSING THE
I1SG TABLE. SIX IS
SUBTRAC TED FROM IT
lEAVI~G 00001010'"
HEX OA AS MSG NUH.
EACH TABLE
ENTRY IS TEN
BYTES LONG SO
TH'= NUMBER OF MSG
IS HULTIPLlEO BY
~O. THE ANSWER
HEX 64 IS THUS
DISPLACEMENT IN
THE MSG TABLE •
ADO THIS TO I1SG
TABLE STARTING
ADOqESS TO GET
ACTUAL HEX
ADDRESS OF
APPROPRIATE MSG
FOR ORIGINAL CODE.

*.

••
M~G
•• NUMBER IN *. NO
*.20'S OR 30'S .* ••••
RANGE
••
*o.
•*

*

*.

* ••
*
*YES
X

X

*****G3*·****· ***
SUB 12 FROM
*
• MSG VALUE T(J
*
* CONVERT FROM
*
*PACKEO DEC I MAL •
,. FaRHAT TO HEX *
.****** **********

*****Gl **********
*
MPY POINTER
*
*
BY 4 TO GE T •
*
* DISPLACEMENT
IN CHANQ
•
*

-

*

-

•••• ***.* •• *.****

:x ...... o. ••• :

X

.*

*. *.

*.

....

.*

.*

*YES

X

X

··***J3··**··*··*
* SUBTR 24 FROM •
* MSG VALUE TO •
* CONVERT FROM •
.PACKED DECIMAL *
• FORM.AT TO HEX •
* •• ***** •••• *****

•••••••• ** •••••••

:X ....

o. ...

o. ... o.

:Xo.o. .......... :

:

CCBSTR
X
••••• K 1 •• ***.*.*.
• STORE eee ADDR •
.. FROM R12 lNTO •
..
AREA WHERE
•
.NEXT PHASE CAN •
• GET IT TO USE •
••••••••• *** •••••

.-....-x

** ••

452

•••
H3

MSG
*o.
o.* NUMBER IN *o. NO
.... 40'S RANGE
.* ••••

···*·Jl····*···**
• lO CHANO ENTRY *
• DATA IN R12 LO *
• ADDR INST DROPS*
• HI ORDER BYTE.
• G1VING CCB ADDR.

• 1

x

MSG3

*.***Hl·*·*****··
•
ADD ADDR OF
*
.CHANQ TO DSPLT *
• TO GIVE ACTUAL ..
• ADDR OF CHANO •
• ENTRY OESIRfD *
•••••••• * •• ******

•

DOS System Control

MSG4
X
***.*K3···*·**···
• MULTIPLY MSG
•
* NUMBER IN Rl
*
* BY MSG LENGTH.

--

--

.**.** •• * •••••• * •

.*x••

--

• 2
****

--

(

Message Writer-- Determine Ownership (Part 1 of
2); $$ANERRN; Refer to Supervisor, Chart 19

Chart JB.

....
·.....

·•....••••.•
• 1

····A1····•••••.
··•••••••••••••••
.
..

UANERRN

A2

.•.x

*

x

·YES

•

····.B2••••••..•.

·····81··········
·..................

.................

X

x

X

*

6

NO..
REQID
••••••
PROG KEY

••

..

.. LOAD ADOR OF ..
.. COHREG IN RIO ..
.. AND ERBLOC
..
..

IN R9

••

(2

X

•
HOVE CHAR I
•
.INTO TARGI FLO.
•
TO INOICATE •
•
IGNORE
•

..

..
..

QUEUE FOR

OEY ICE FOR
OPTR INTERV

..

..
..

03

X

• ADD ADDR OF PI B•
•
• TABLE TO LTK
.TO GET ADOR OF •
• Pie FOR PROG ...
INVOLVED
•
...

E1

*. *.

E2

*
.* •OPERATOR
*.
-.REQUIRED .*
*.
.*
*••
*NO

····.04•.•·· ••• ••

··.··05··········

*

*.... *•••••••••••

X

•
•
•
•

.................
•

•

HOVE
CHARACTERS
FIINTO
PRINT LINE

• •••• E3.··.······
.LD ADDR IN R15 ...
... OF OEV ICE PUB ...
... ENTRY GOTTEN •
FROM ERRQUE •
•
•
FOR DEVICE
..

••
•

"'

X

••

•
MOVE CHAR R •
• fOR RETRY INTO.
• SAVE AREA FIELD •
• CALLED TARG2 •

.................

.. FIELD CALLED ..
• ACTION. I MEANS.

*1 NFORMAT J ON HSG.

2

*.
•• X.

TSTCCB

X

•

·····Gl····.···.·

•

..

..
IGNORE
••••••••••
*••••••..

F3

ece

••

.*

*.*
•

...

*NO

X

••

i

•
•
•

•
•

MOVE
CHARAC TERS
F2 INTO
PRINT LINE
AREA

MOVE CUOE
• $P FUR SUPVR
• TO PRINT LINE
AREA
•

*

*••• * ••• *••••••••

MOVE a CHAR
• TO LAST CHAR •
• POS OF FTCHNM •
*TO lOENT IFY NxT.
* PHASE TO CAll •

..

.................
*

••••••••• *•••••••

.. ..
.....H3··*.····*·
.... .... .... .................
• •
X

••

•
ADD ADOR OF •
• LUBIDQ AND ITS.
• LENGTH TO R14 •
• NOW HAVE AOOR •
• OF REQID OF OEV.

H4

.•.x
PUB

••

•• X. x•• JC •
••
• C5·
X

*
*
·····G5··········

CALPHS3

•

•
•
•
•
•

•

X

CCBUNAV

• •••• G3··········
• ZERO REGS 12 •
INSERT •
• AND 14.
• CHANQ POINTER.
• FRU,", pue INTO •
R14
•
•

. *. ••

JOB

•.

•
*
*

• 7
•

•

.x ........... .

H2

7

• •.
*
·YES

x

X

••••• HL.··.······
• HOVE BLANK TO •
.BYTE AFT TARGL •
• TEST ERRFLAG ..
• FOR PA$SBACK •
.. ACTION BIT ON •

x

*
*
*

*.

• LOAD cce ADOR •
•
STORED FROH •
-PREVIOUS PHASE.
• INTO R14 LOAD •
• AND TEST REG •

-HOVE CHAR I TO ..
-SAVE AREA F IElO.
.. CALLED TARGI . . .

••

"'

•• AVAILABLE •• NO
•• ENTRY GOTTEN ...................... .
DEVICE
.*

.... .
·····G2·.••••••••
.................
••

X

••

• • • DEV "' •
.YES •• ASSIG."4ED
TO Fl

x

·····f2··········
•.................•
.... .

.. KOVE CHAR I ..
_INTO SAVE AREA ..

•

.*.x

•

x.....
.....
.... ........ ... . .............................. ....
....
.*.
..•.. F5····.····.
.. ..
.................
·....
... ......
....
·····G4 .•••·•••·.

·YES

·JC •
- B3·

E5

•
X

•
•
•
•

AREA

X

*.

....

.....x

X

.* .

... ALLOW ••
•• RETRY BIT •• NO
•• ON IN ERRFLAb ••••••
•• OF ERR
••
·.QUEUE.·

YES

·.···Fl··········

I SIGNIFIES

x

TSTRTV

-.INTERVENTION ...... .

..

*NO

:X •••••••••• :

x

. *.

-.

........

X

·YES

x
.*. ••

•• BG PROG ••

•
MOVE IDPH
•
PREfiX FROH •
•
• PIB INTO PRINT.
•
LINE AREA
•

••
HUl TI
•• NO
•• PROGRAM"I NG ••••••
..ENVIRON- ••
•• HENT ••

C5

YES ••
DEV
...
• ••••• ASSIGNEO TO .*

.................

.* . ...

*

..

·····C4•.•. ·••.••

x

X

*

:.......... x:

X

• YES

.. TEST ERROR
..
.. FLAG IN ERROR ..

.................

.................

• HOVE PROT KEY •
• OF X'lO' INTO.
• FIELD CALLED •
PROTKEY IN
•
•
•
•
SAVE AREA

~

X
•• ••• B5··········
•
HovE
•
'"
IDENTIFYING •
•
CHARACTERS
•
• BG TO PRTUNE •

•
INSERT BYTE
•
FROM LTK IN •
•
.REG La..
STORE.
• IT IN SAVE AREA.
.IN PROT KEY FLO.

•• x.x •• JC •

• 6

.*

*NO

*

····.B4••..••.•••
X

•
HOVE BLANK
•
.INTO TARG2 AREA.
•
CLEARING R •
•
PREVIOUSLY
•
THERE
•
•

HPTST

*.

x

·Je •

*•

...•. B3··········

ERR ••
QUEUE
•• NO
••
.ERR FLAG IGNORE- ••••
•• BIT ON ••

..

••

• B5·

X

••

••
••

=a

••

•• DEV ••
YES •• SHARED BY ••
•• •••
BG ANO F2
••
...
JOBS
••

·YES

................
.
·•....
..
.
.
• . •....
G,..
....
...
·····el···.·.··.·
··..·C3··········
........
·.... ............
.................
••···01 ••••••••••
·····02·.........
.. ..
................. ·.................
....
.. ALL CHANNELS

•

x

A5

••

•

.HOVE CHAR 0 FOR.
• aPTR DECISION ..
.TO ACTION FIELO.
•
BLANK OUT
•
TARGl. FIELD •
•

•
TO ENABLE
..
.. INTERRUPTS ON ..

*

*

X

*SET SYSTEM MASK_

•• 5 ••

•

x

A4

•
HOVE CHAR I •
.FOR INFORMATION.
.INTO ACTION FLO.
.ANO I TO TARGl •
FOR IGNORE
•
•

.. .. ·..... .................
••••

•

4

.•.
.. .•. ..
........ ..... ....

X
••••• A3·······
•••

••

•• ALLOW·.
•• IGNORE OR •• NO
..RETRY FLAG ON ••••••
•• IN ERROR ••
·.QUEUE.·

....
....

............

•• 3 ••

•

•
•

•••.•H5··········
X

••

• LOAD AOOR OF
• LUBTAe IN R13
.TEST IF SYSlOG
LUB IS
•

*. NO
DEV ••••••

•
•
•
•

.... .... .................
••••• •
....
.•.x
...
.. ..
.. ..
·····J2·········· ·····J3···•..··.·
........ ....x ................. .................
.... .... •••••x ....
••••••
. •••••
x
••••• •
.•.x
.
..
...
••••••
.. ..
x......
••

*. ••

.................

IS
CCB AOOR
REG

=

•• YES

0 ••

.* ....
i

·NO

• 6

JL

•• PASSBACK •• YES
•• TO USER FLAG ••••••
••
ON
••
• NO

*

• 2

X
••••• KL ••••••••••
•
HOvE CHAR C ..
.INTO SAVE AREA ..
• FIELD CALLED •
»
TARGl MEANING.
•
CANCEL
•

)

•••••••••••••••••
x
•• ••••
•
1 •

••••••

•• FLAG SHOW
•• USED BY
·.SUPVR ••

.*

x

·YES

••

*

*

x

X

X

•
TURN ON
•
• BIT 2 IN BYTE 2.
• OF eeB MEANING.
• UNRECOVERABLE •
•
1/0 ERROR
•

• INSERT BYTE FRM •
• REQIDQ IN Rl2 • •
• THIS IS KEY OF ..
• PROG TO WHICH.
• DEVICE BELONGS.

••

•• JOB CTRL

J4
••
•• OEV ••
YES •• sHARED BY ••
••• •••
BG AND Fl
••
••

JOBS

••

K2

••

....

••
DOES
•• NO
•• USER ACCEPT ...... .
•• ERROR ••

o.

.*

• YES

x
•• ••••
•
3 •
•••••
•

x
•• ••••
•
6
••••• ••

J5

* •

•

Kit
••
•
•• DEV ••
• YES •• SHARED BY ••
Fl AND F2 ••

x

•·JC
•••••
• B5·
•*•

•

x
.* . *.

NO..
IS
••
•• •••
SVSLOG
••
..ASSIGNED ••

·JC •
• B2 •

ii

·4

ASSIGNED

*.

.NO

••

7

•

*
•
*

.•

.YES

x

·JC •
• Bl·

.

*. *. JOBS .• ••
....
*NO

x

•• ••••
5 •
•
*
•••••
~ppenjix

H. Detailed Flowcharts

453

Chart JC.

Message Writer-- Determine Ownership (Part 2 of
2) $$ANERRNi Refer to Supervisor, Chart 19

.....
•.•

..

*JB •

• J5*

·····81··········
•
•
.................
X

•
•

UNPACK "5G NO •
FROM ERRORQUE •

•
AND MOVE TO •
*PRINTLlNE AREA ..

·····el····.·...·
•

• El*

..•..03··········

.................

·.................

·····85··········
·.................

.*.i ••

·····C3··········

·····CS··········

X

•
MOVE CHAR R
• TO LAST CHAR

•
•

•

•

•

POS OF FTCHNM •

•

PHASE TO CAll •

TO IDENTIFY

X

• TARGI FIELDS

·••..••••...•

•.J8
•••••

•••.•82·····••·•·

NOLOG

• MOVE CHARS FROM.
..
ACTlON AND
•

.................

.J8-J4
J8-K4
J8-A5

...

•••••
*JB •
• JS*
•

cz

i:

SET SYS TE"
MASK TO
PREVENT ALL
INTERRUPTS

RESET

•

•

.................

X

X

H5G TU GIVE ••••••
•• NFORMAT ION.

.YES

i

."OVE 1 CODE FOR.
.INFORMATION TO •
•
FIELD NAMEl) •
•
ACTION
•

•
•

X

X

IS·.

•• ACT ION OF •• NO

••

•
•
•
•

........

••

• TO PRINT LINE.
•
AREA
•

ATYPE

•
MLVE CHAR A •
•
INTC ACTION •
• F I ElD AND BLANK.
• INTO TARGI A"lO •
• TARGZ fiELDS •

•
HOVE I FOR
•
.IGNORE TO TARGI.
.F [ElO AND BLANK •
•
INTO TARG2
•
•
FIELD
•

.................
•••••
..•
x

·.···01··········
.................
X

• HOVE CHARS OF •

• "5G STORED IN •

•

SAVE AREA BY

•

-PREY 10U5 PHASE •
• OF MSGWTR RTN •

·····OZ·····*····

• HOVE X' Ff t INTO.
• SAVE AREA OF •
• CCB ADDR AS •
• FLAG Tu SHOW r-.c*
•
H5G PRII'IITEO •

.................
....

··.....' ..
•.•..EZ··········
•

X

..···El··········
•
MOVE PREFIX •
_CODE FROM PRINT• LINE AREA 10 •

.................
•
•

SAVE AREA FOR •
FUTURE USE
•

1

EXI T
•
•

•• X.

X

MOVE CHAR S •
INTO LAST PO~ •

.................
.OF FTCHNM FIELO.

•
TO IDENTIFY •
• NEXT PHASE CALL.

·J8 •

.·................

•
•
•

....FI·········

...............
5YC3
SSAHERRO
CHART JD

•
•
•

•
•
•

•.•.F2·········

x

.'.

.. ..........
*.

"0

i

X

...............
!loVC 3
SSANERRR OR
SSANERRS

CHAR T JH OR JJ

•
•
•

(

f3
••
•• IS OEV ••
..QUEUED FOR
YES
.ERR()R RECOVERy ••••••••••••••••••••

:x .......•.. :
SVCALl

X

• GS.

····*03··*·······
• LOAD AGDR OF •
• PUB ENTRY FOR.
.OEV FROM ERROR •
*QUEUE It-lTO R15 •

·••• *F3*··*······
•
,",OVE X'40'
•
IN"TO FIELD
• NAMEO EXTOPT
.. TO UH AS AN
•
OPT ION FLAG

•
•
•
•

.................
··......
•

..•.•F4··.···••··

OPFlAG

i

.TURN uN BIT .,.. •
.CHAN SCHED FLG •

.................
• OF PUB ENTRY •
• Tu SHOW uPTR •
• INTERV NEEDElJ •

i

1'< .....

• 1

•

X

·····G4··········
.SET SYS TEM MASK •
•
TO ENABLE
•
•
INTERRUPTS
•
•
ON All
•

.................
•

CHANNELS

•

.....
...
x

·JB •
.. C3·

(
454

DOS System Control

Message Writer-- Format Message; $$ANERRO; Refer
to Supervisor, Chart 19

Chart JD.

·**·A1 •••••••••

·•••••••••••••••.
••

>
•

SSAHERRO

•••• >

....

>

• 1

•

·····81·········.
.................

i

-SET SYSTEM MASK_
•

TO ENABLE

•
•

INTERRUPTS
ON ALL

•

.................

•
,.

CHANNELS

•

·····Cl·.·....•••

X

·..................
AND ERBLOC

•

•

IN R9

•

··.··Ol••••••••••
X

SWITCH

2 LOCATIONS

•
OR X'FO'
• TO lOW ORDER
•
POSITION TO
.ELIMINATE SIGN

•
•
•
-

•

>

>
•
>

•

R13 ADOR IS

•

ERROR QUEUE

•

•

• OBTAINED FROM.
•

f~~OT~At k~~o

Gl

.>.
R12

*oo

*oo INDICATING
NO

*oo

eea .-

••••••

.*

• >.

·····F4·.········
• _TURN ON BIT •
• INDICATING DASO.
• ERROR IN ERRFLG •
• OF ERRORQUEUE •

x

G4

.>.

••
CCB ••
NO ••
ADDRESS
••
•••••
AVAILABLE
•• FOR DEV
••

.* .*

·YES

>

X

•• H3 •••• • ••
TRANSLATE·
•
ASSEHBLED ..
•
tSW INTO
•
•
PRINTABLE ..
·CHARACTERS •
•

•
TEST CSW IN •
.. ERRQUE ENTRY
•
.. FOR I NCORREC T •
•
LENGTH -I/O •
• PROG CHK ERROR •

i

X

> 9

•••••H2··.·.·····

.................

>

•

•
PUT IN CSW
•
• PRINT LINE AREA.

.................

•

................. .....x . ........

i

x

'NO

:S~~~~SbFA~~w~NT:

•

>

• CMP SYM UNIT
•
• AD DR 1ST BYTE.
•
(LUB CLASSI
•
• WITH X'OO' TO •
• SEE IF SYS LUB •

............

6

•

i
NOCCB
·····E5··········
.LOAD 10 INTO Rl*
• wiLL POINT TO •
.XXX IN SYS SY" •
.IDENT TABLE FOR.
• UNKNOWN UN IT
•

5

•

>

•••• 1

SYCLAS

X

•

.X •••••••••••

>

•

i
••••• Hl ••••••••••

.'.x

E4,
••
WAS·.
•
••
ERROR A •• YESX
•• PROGRAM CHECK ••••••

X

>NO

> 6
>

•

·····G3··········
• UNPK ADDRESS, •

•
MOVE X'FO'
•
• INTO PRINT AREA.
-CSW MAKING 1ST.
• 2 BYTES ZERO
•

*oo YES

•• X.

·····G2.·••.••.••

.. .. ·....x . .................
••••

oot EQUAL 0,

*oo

••F2·······
X

*oo

•

••

LACSW
X
·····F3··········
.LO ADDR OF ERR •
• QUEUE ENTRY FOR.
.DEV IN Rl FIRST• 8 BYTES IS esw •

•••••••••••

i

oot

•

··..........

.*

................
.
••••.
.
. '.....
.
·....' ..
....
......
.·................ ·.................. .................

TRANSLATE·
CHAN AND
•
UNIT HJ
•
•
PRINTABLE •
·CHARACTERS •
•

•

••

• YES

................
.... . .

X

-LO ADOR Of eta •
_SAVED FROM PREY_
• PHASE INTO R12,.

...............

•• DEV ICE
•• NO
•• A 2311 DISK ••••••
••
DRIVE

X

•

.·.··Fl··········
:
:
.................

····C5 •••••••••
SYC 3
•
SSANERRP
•
CHART JE
•

x

04

*····E3 ••••• • ••••
• GET CHNO CODE •
• OF LAST USED
•
• ecw AND PLACE •
•
• IN CSw PRINT
• ASSEMBLY AREA •

• 3

i

•
•
•

.. .'. ..
........

•
•
•
•
•

.................

_UNPK. CHAN AND •
• UNIT FROM PUB.
• ENTRY FOR DEV •
AND pur IN
•
•
• PRINT LINE AREA.

X

.............

X
• lOAO AOOR IN
.eSHOLD l~TO Rl
• SU8 8 GIVING
• AOOR OF LA!»T
..
USED cew

..·.·E2··········
.................

X

-LO ADOR OF DEV •

X

• ••• ·03 •• • •• •• •• •

X

cuu ••••

·····El··········
.................

.................

•• C4 •••••••
• TRANSLATE.
• ceB ADDH.ESS •
.INTO PRINTABLE.
., CHARAe TER5
•

.................

•

CALPH4
X
•••••
.HOYE B5P •••••
CHAR •••••
TO •
• LAST CHAR POS •
• OF FTCHNH TO
•
.1 DENTI FY PHA:,E •
• TO BE CALLED
•

.................

••

>.
•• X.
•

8

> 5

X

X

................
.
••••

,.

• PUB ENTRY IN

8

X

.................
•

........

• •• * •

·.....
>

>
•

••• •• B4 ••••••••••
• GET tta AODR
•
• FROM AREA WHEkE.
•
SAVED BY
•
• PREV I OUS PHASE •
• UNPK etB ADOR. •

·····C3··········
• MOVE CCW AOOR •
•
FROM C5W TO •
•
~AVE AREA
•
•
CAllED
•
•
eSHOlO
•

• •••• 02.· ••••••••

•
2 xc AND L
•
• eXEC INSTR ARE.
.USED TO SWITCH •
• DATA BETWEEN •

·.....
•• 4

'NO

•
UNPACK UNI T •
.NO. 1 N TO ZONEO •
.OCML AND PUT IN.
•
PRINT LINE
•
•
AREA
•

• COHREG IN RIO.

•

••

·····C2····.·····
.................

X

• LOAD AODRS Of •

••••

>

B3
••
•• AOf.JR ••
..OF ccw FRUM •• YES
..csw LESS THAN ••••••

• CONVERT TO PKO •
.DCMl FORMAT THE.
• UN I T NUMBER OF •
•
DEVICE AND
•
•
STORE IT
•

..

....
....
.'.

••·•.B2····.·····

X

PHASE3+8

•

•• 2 ••
x

>
>

...........

••••

·····FS···.· •• •••
• HPY SYH UNIT
•
.NO. IN R1 BY 3 •
.TO DISPLACE IN •
.SYM UNIT IOENT •
•
TABLE
•

i

·.···G5.· ••••••••
• LO TABLE ADOR •
.INTO R2 ADO Rl •
• DISPLACEMENT
•
• TO GET PROPER •
• SYMBOL 1 C NAME •

.................

•

>

X

••••• H4··········
• HOVE CCW ADDR •
• FROM THE ece •
.INTO SAVE AREA •
.LO AODR Of CC" •
•
INTO REG 1
•

X

• •••• HS ••••••••••
• GET SYH HA.ME
..
• OF SYSTEM Dev •
.FROM TABLE. Hove.
•
IT TO PRINT
•
• ASSEH8L Y AREA •

................. .................
..
i

·····Jl··········
•
•
•
-

>

INSERT IN Rl
THE SYM UNIT
LUB NUMBER
OF CLASS

J2

.'.i

·····J3.·········
X

••

............

•• 110 ••
•• PROGRAM •• YES
•• CHECK ERROR ••••••

•
•
•
•

•

•••••••••••••••••
Kl

••• t-

i

• GET SENSE BYTE •
• OATA fROM ERROR •
• QUEUE AND UNPK •
• PUTTING IT IN •
•
PRINT AREA
•

•••••••••••••••••

>NO

.. ..

••

'.A SYSTE" LUB ••••••

*.

*•••
>NO
i

•• ••••
•
1 •
•••••
•

.•

x

••••••

1 •
•• ••••
•

i

•• ••••
•
z ••
•••••

x
••••••

·.
• 3

.
••••

•

•

•

..K3 •••••••
TRANSLATE •

S~~¥~ ~~l~
PRINTABLE

'CHARACTERS •

•••••••••••
x
••••••
••••••
• 4

•

••••• J4 •••••• ••••
.LD AoOR OF SEEK •
.FIELD INTO REGl •
• UNPK 1ST TWO •

••
•

• B
>

••••

•
•

>SYTES I BB I AND >

·....

.PUT IN PR AREA. •

•••••••••••••••••
.
'' .
• 9 ••••
>
.

UNPC~···

X

••

• - •• DE~f~E •••• YES

X

i

•• •••••
• ..K4
UNPK
CCHH •
•
FROM SEEK ..
.AODR AND TRANS •

>n

PLUS BB TO.

.PRINT CHARS.

•••••••••••
x
••••
•• 5
•

•>

•••• >

Appendix H. Detailed Flowcharts

455

Chart jE.

Message Writer -- Output Message; $$ANERRP;
Refer to supervisor, Chart 19

....

--••••••••""

•• ••••
•
2 >
•••••
•

.
.•.
........
•_ 1 •"
••••

-

- 3

•••••
•
••••

o
o

06

"

0

..
•····AI··.······•
•...............•
..... ••••x
x
•••• •••••••••••••••••
....
••••
-....".
.••••"
-"......
-.. ·••••" .>.
·
" .
·····SZ···
..••
·
.•
·····81··········
·····S3··········
................. ."............." •••• ....... ......
·.................. .................
••••
-"....".
.••••- ••••••
"
••••••••••.
·····e1··········
······C3··········· ·····C4•••••••·•• ·····C5
"
................. •••••••••••••••••
.............
-.................
.... . - ."................"
x

ERRrVP

•

$SANERRP

..

A2

X

"NO

• 9

X

PHASE4+8

•

INTERRUPTS

..

-ON ALL CHANNELS-

>
"6

•• X.

.*

• LO CCB AD OR IN •

~~i ,gr~ '~O

• RIK FIELD OF
•
ER8LOC

Ait

.i

••

SUB

••

•• 1 AN~ TEST •• NO
..REG 10 IS IT ••••••
..EQUAL TO ••
•• 0 ••

•

•

·YES

•
"

• It

X

X

•
LOAD 3 INTO •
• RIO TO COUNT •
• ERROR RETRIES.
• I F ERROR OCCURS.
.ON SYSlOG oPER •

• LD REG IS INTO.
•
REG 0 SO
•
•
REG a WILL
•
• NOT HAVE VALUE •

COUNTRG

*SET SYSTEM MASK•
TO ENABLE
..

•••••A3··········
:
I :

••

•• ERROR ••
•• REQUIRE •• YES
•• OPERATOR
••••••
•• INTERV ••

•

••

x.

X
····.B4.·.· •• •
•
ALTER INSTR.
• AT LABEL INST.

o

•

• 5

•

i

IOERR

OF ZERO

•

FROM NOP

TO BRANCH

•

•

B5
••
YES •• I~CmAMij ••
•••••
DEV IS
••

•

>

X

• LOAD AOORS Of
• CCHREG IN RIO
.. ERBlOC IN R9
_START OF PRINT
..

LINE IN RI

..
..
..
..
..

.-.
x

..

.....02··········
.................
"
"

-."'ENf
"NO

*.• -

.*

·····E1··.·.·····
.................
X

.. LA OF PLINE+3
-IN R12 TO SKIP
.. PROG IV PRINT
*SET LOWER BYTE
.. COUNT IN CCWI

..
..
..
..
..

.HPY POINTER BY
• 8 TO 01 SPLACE
• IN PU8TA8 TO
.. SYSlOG ENTRY

•
•

•
•

·····ez.•••••.•.•

• TO Rl FOR ADoR •
•
OF ACTUAL
•
• SYSLOG ENTRY •

.................
"
"

:x •...•..... :
X

·····Fl··········

RElOt

*SET PlINE+3 AS ..
-CCWI DATA ADOR ..

.................
-LA OF STARTING ..
• POINT Of PRINT ..

.. LINE 2 IN RI

..

·····G1·······.··
.................
X

"PUT AODR IN RI ..
-IN DATA ADOR OF•
Ccw2 LA Of
..
•
IS T CCW OF
•
• CHAIN INTO Rl •

X

.................
• IN R14, LO LUB •
• TBL ADOR IN R13.

••

JI

.".x

••

...... ......

••

••

IS

·····F2·····.·
..............
X

*

•

Move CHANQ
• POINTER BYTE.
• FROM PUB INTO.
•
INSTR NAMED.
•
RSTQPT
•

·····GZ.·•••••
•

••

SYSLOG
•• NO
A PRINTER
••••••

Move

CSHAG.
• BYTE FROM PUB.
• INTO INST AT •
• LABEL RSTFLG •

·••••••••••••••-

..•••H2··········

.HOVE 'FF' NULL •
• CHANQ POINTER •
• INTO PUS AND
•
.ZERO PUB CSFLAG.
•
BYTE
•

.................
J2

X

••••• KI··········
• MOVE CARRJ AGE •
• SKIP TO 1 CMNO •
• CODE INTO CCWO •
• HOVE CHAIN FLAG.
•
INTO CCWZ
•

x
.". ••

•• DASO ••
••
ERROR

........

*. NO
*. *.
INDICATED IN ...... .
ERRFLAG ••

·YES

·YES

••·.•K2··········

HOVE LARGER •
.BYTE COUNT INTO •
• CCW2 FOR MORE •
• PRINTED INFO •
• DUE TO DISK ERR.

x•••••••••• :

x

>

....

456

•
"

"2

_

••••• •

DOS System Control

•
:

•
TEST REG 0
•
FOR ZERO .NOT ZERU MEANS
* CHANQ FULL

L~~&L~S~~laPT

--

.. ..

•• OPTR

X

···.·F3··········
."................"
X

TEST TRAFFIC
B IT IN CCB
FOR ON
CONDIT ION

.. ..
.. ..
G3

• NO ••

••••••

110

•
•

·.•.
...... ........

NO .-ACTION CALL-.
..DECISION ••

....

CAlPHS

.HOVE Q CHAR TO •
• LAST CHAR POS •
• OF FTtHNM TO •

.IOENTIFY PHASE.

• TO BE CALLED •
•••••••••••••••••

••••
--....
..-..
• 7

•• X.

X
·····G4 ••• •••• •• •
•
MOVE CHAR S •
.INTO LAST CHAR.
• POS OF FTCHNM •

••

OPERATION .*
·.COMPLETE ••

••

RSTQPT
X
• ••• ·H3 ••••••••••

"

.NOOP

X

"

.................

•

CHANQ POINTER •
• BACK INTO PUB.

•
•

.····H4·········
..............
svc 3
S$ANERRS
CHART JJ

•
•
•

•

X

.x".

••

110

•• ERROR ON •• NO
•• SVSlOG OPERe ••••••

.YES

x

• 3

•

................
••••••
·"••••••••." ·••••"

AACTiON

........
••••
-"••••..

•••••••••••••••••

....

••

•• JUST DONE ••

: l~S~TE~~~ ~8S
• YOENTlFY NEXT •
" PHASE TO CALL •

••••>
• 10 •
" "

"•••••••••••••••••"
K3

•

.MOVE R CHAR TO •

BACK I NTO PUB •

••

SYc. 3

.·.··J5·.········:

X

• HOVE ORIGINAL.
•
CHANNEL
•
.SCHEOULER FLAG.
•

••••Hs.i•••••••

:•••••••••••••••
!~:~'R~~
:

.·..·J3·.·····.··

RSTFlG

•••

• .o
SW
••
BRANCH
•• 8RNCH

G5

........

••

•• !~p~X~~~YSE~= ••••••

•••••••••••••••••

.YES

X

INST

.TO IDENTIFY NXT.
• PHASE CALLED •

.*

"

X

·····FS ••••••••••

PHASES

MOVE ORIGINAL.

x

ES
••
•• ERROR ••

• ..... fOR OPERATOR ••

•
•
•
•

"••

•

x •
x
·YES
•••• " ••••••••••••••••• ."
•• 10 •
- 4
•
."
"
.• •••••••••••• X..
•••• "

...

•.

INDICATE NO
HSG PRI tHEO

•

.-

..•.•...... x:

.•.x

:iij8 S~e~RA~~iL~O:

TO •

x
••••
"•> 7 •""
••••
•- ••••
•
8 "
•••• "

lODONE

·····E4··········
• MOVE 'FF' INTO •

•• YES
...... .

-NO

•
•
•
•

.o.

·YES

••

CHANQ
FULL

EXTOPT

".
".•••

x

.... .". ....
.. .. ....

•

04
••
... IS
••
•• ERR ACTI ON •• NO
•• INFORMATiON ••••••
•• M5G TO ••

•
•
•
•

"
"
•••••••••••••••••

••
••

•

i

• MOYE X'40 '

•
:

• 11 ••••
X

·····03··········
E3

>

.X •• 12 •

RTVRTN

INSTRS AT

••••
NOLOG

X

X

•

................. .................
i
....:x...•••••.. :
••••
" .
" "
> 1

•

•

• EXeCUTE RESTORE.

ERROR
INFO

X

X

••
•• ·HI·
•••••••
.ST
AOOR••
OF
1ST.
.Ctw INTO LOGCCB.
• LD PUBT'B AODR •

svc lS
PRINT TWO
LINES OF

X

• AOD PU8TAB ADDR •

X

X

LOGENT
X
·····CZ··········
.ZERO RI INSERT.
•
PUB POINTER •
• FROM lUBTABLE •
•
FOR SYSlOG
..
..
IN RI
•

••

>NO

•• X.

X

01
-.
• -SYSTEM *.
IN MULTI
*. YES
*..**.ENVIRONPROGRAM
.* .* ....

BUSY

•

• 9

• 5

*.

x

•

x

••••
"• 8 "•
>
••••-

X

Kit

." •

••

•• ACTION A •• YES
••
INDICATED ••••••

·NO

x

• 11 •

x

• 12 •

:
•

X
..··K5f~~R:R
•••••••••
....

:

CHART JH
•
•••••••••••••••

Message writer-- Read Operator Reply (Part 1 of
2) $$ANERRQ~ Refer to supervisor, Chart 19

Chart JF.

••••
•

0

3 •
•• ••••
•

--•••••••••••••••-•••• A1 •••••• • ••

-

UANERRQ

-

•••••
0
••••

o

• 1
•

••...
Bl····.··•••:
:

X

• MOVE A X'23'
•
• INTO BYTE COUNT.
•
AREA OF CCN •
• TO REDUCE THE •
•
LENGTH BY 3 •

.. .............. .................
.... .
•

•• ,

ADDRESSES

•

••

X

•····Cl··········
• SET SYSTEM
'MASK IN PSW TO
•
ALLOW
• INTERRUPTS ON
• ALt CHANNELS

•• 2

o
.
•• X.

•

0

••••

Dl

x
.'.
-.

•
•
•
•

X

••••• OZ ••••••••••
• STORE ADDRESS •
• Of FIRST CCW •
• IN CHAIN INTO.
•
OUTPUT CCB
•

*. *.

x

•••••••••••••••••
•••••
·JG •

'NO

:

.............•...
·............ ..........
-

Il)

:
•

•

•

•

>

.. ..
........

·····E1••.·••.•••

·····E2··········
X

-•••••••••••••••••.
• GET ADDRESSES •

•
•
•
•
•

III OF PUB-TABLE •
• AND LUB-TABlE •

o

0

•••••••••••••••••

•....Fl·.··.··••·
X

i

••• ·.F2 ••••••••••

_ STORE ADDRESS •
•

OF CONSTANTS

•

DATA AODR AND.

• STORE DISABLE.
• ROUTINE INTO •
• WAIT CONSTANT.
•
AREA
0-

•

.................

-FOR ZEROING THE-

•

FLAGS OF CCW

STORE AODR Of •
BYTES TO ZERO.
DATA AoDR AND.
FLAGS OF FIRST.
tCW IN CHAIN •

>

o

III

•••••••••••••••••

••
a••
·JG •
• >82•

>

IOCOMP

••

YES..
I/O
••• •••
COMPLETE

•.

·····03··········
.................
X

••

.*

•• •••

···*·04··········

•

> •

: ..•..•.••• x:

>

KRETRY

•••·.E4.·.·······
x

X

·····E3····.·····

.•.••Gl·.··.·•.•·
• LOAD ADDRESS
•
OF OPNND

•
•

•
•
•
•
•

•
•
•
•
•

.••.•F3··········
i

LOAD
OFOU
INTO
OF PUB
REGIS

SET SYSTEM
MASK TO
ENABLE
INTERRUPTS ON
ALL CHANNELS

•
•
•
•
•

x

•••••
·JG •
• G4·
••
o
EXtONT

•
•

•
•

ONSE MESSAGE
INTO R2

X

HPS TST

••
....

• COMPARED TO A •
• X'40' FOR MPS •

.....

•

•••••••••••••••••

••
••

•••

••

MPS
SYSTEM

•.

•• YES
••••••

.*

i

• •••• J2 ••••••••••
MOtgwA~8Rmo :
• REPLY INTO R2 •
•
FOR eea
•
'AOORESS CHANGE 0

t.

MPS
SYSTEM

H2

'NO

x

J}

•

.JG •• X.
• 02·
•
••••
X

0BYTE 53 IN THE •
COMREG IS
•
•

.... .'. ....
.... ....

•••••••••••••••••

•
•
••

•••••••••••••••••
•••• .

···.·Hl••··••·••·
ENVIRONMENT

>

·.
.. ....
....

•••••••••••••••••

•

•••••
G3.f•••••••••
• MOVE A X·O..

MOVE PREF IX
TO MESSAGE
LINE

•• YES
••••••

'NO

i
•••••••••••••••••
•o••••
2 •
••••••
0

x
.....Kl··········
FIX
'BYPAS PRlNTlNGo
PR
IN
•
NVALIO'
•• OPNNO
•

RESPON E MSG

•

IN R2
•
•••••••••••••••••

•

i
•• ••••
•
1 •
•••••
•

.•..•Kl··········
X

• STORE ADDRESS •
:
OF wCi~oA~T2 :
'AR~~ OF OUT~UT •

•

eca
•
•••••••••••••••••

.i::·········:

•• 3 ••
••••••

oNO

>

X

x
•·JG
•••••

•
•
•
•
•

RESTORE
CHANNEL
SCHEDULER
FLAGS IN
PUB ENTRY

LgAeI~~G~~IER

•

••

0

•••••••••••••••••

........
.K5

••

.. .'. ..
....
•••••••••••••
·•••••••••-• .,.•.i••.•
.. .' . ..
••••
........ •••••
RESPONSE

MSG

.•

>NO

.. ..
........
x

.> •

••

.*

°NO

x

•·JG
•••••
• 81• >
•

J4

••

~~~.:. Ex~~~hoN

•

••••

i

• 5

x

•••••
·JG •
• 83·
o •
•
OECCTR

i

i

svt

•

•
•
•
•
•

°NO

······J3·········..•
15
EXCP TO
WRITE

....

Hit
••
•• NON- ••
•• RECOVERABLE.. YES
••
ERROR
••••••

:
•

ACCRESS

>

*.

.'.i

·····H3··········
o

••

•••••••••••••••••

X

:
•

KANEXT

·····G4··········

• 1 NTO REQUESTORS.
•
I/O KEY FOR
•
•
SYSLDG
•
•
REQUEST
•

i

YES •• OPERATOR ••
• •••• RESPONSE A
••
•• CANCEt.

>

RSTFLG

.. .'. ..
F5

.................

.................

.*

YES •• OPERATOR ••
•• ••• RESPONSE AN ••
•• IGNORE
••

RSTQPT
i
• •••• F4 ••••••••••
•
RESTORE
•
•
CHANNEL
•
• QUEUE POI NTER •
• IN pue ENTRY •

RESS.
8.
•
, •
15.

·····G2··········
•
•
•o

• INVALID RESP- •

.'.x

05·.

E5

................. .................
•
•
•
..
•

••
••

.YES.·
••
•
•• OPERATOR ••
• •••• RESPONSE A
••
RETRY.·

•
•
•
•
•

·JG •

•
MOVE ZEROS
.TO POI NTERS TO
•
CHANQ AND
•
CHAN SCHED
•
FLAGS

••

RESPONSE

................. .....x ........
• G3·
• LOAO PSw WITH
• WAIT ROUTINE
•
AND GO INTO
•
THE WAn
•
STATE

o

X

x

.0 •

.YES

• >HZ•

X

• OFF

NO •• OPERATOR

••

i

•
•
•
•
•

........
.. ..
...........C5

'NO

>

PHASR

.0.

0
0
0

.·SWITCH ••
ON •• TO BRANCH ••
•••• IN CASE OF 1/0.••
ERROR
••

:
•

i

Cit

• o03·
0

i

1£1~=:b~TtL~N

•• x•••• JG •
••
• B3.
X

MO'ilE POINTERS
TO CHANQ AND
CHAN SCHED
FLAGS TO SAVE
AREAS

NOPBR

ALL CHANNELS
•••••••••••••••••

0

•
•
•
•
•

i

• •••• B4 ••••••••••
SE~A~lS~~M
:

.................

•

*. *•• - .-

SSMASK

·····C3··········
• CLEAR R1 AND •
.INSERT ABSOLUTE.
•
ADDRESS OF
•
• pua ENTRY FOR.
•
SYSLOG
•

15
•• SYSLOG
YES
_. A PRINTER .1Ii ••••••

*.

X

·····B3·.··.··.··
• SET REGISTER •
.10 WITH NUMBER.
•
OF RETRIES
•

• 5
•
LOGENT

•••••••••••••••••

.111

• GI·

COUNTRG

••••
••••
x
85 .' .••
o

0,.
•

0

•• x.

• JG

····.B2••••••••••

X

X~~ ~~;~~~

0

••o••••
•
4 0
••••

·......... ..

?~O

.:.

••••

'NO

•

i

K3

.:*

*.

o

••

~Ut~Q
_NO

x
•• ••••
•
••4•••••

•

.:.~~~.

.•

x

-JG ONOLOG
• C3·

o •

•

Appendix H. Detailed Flowcharts

457

Chart JG.

Message Writer-- Read Operator Reply (Part 2 of
2) $$ANERRQ; Refer to supervisor, Chart 19

....

•• 7 ••
••••••

•••••
••
:x ...•..•• :

.....

REP ERR
..

•

•

x
.·Bl·······
UNPACK
MESSAGE

*JF ..
• 8S-

.....02·.········
.................

10tOMP
•

...........
NUMBER IN

•

• ERROR QUEUE •
-eNTRY BLOCK_

•

•·JF
••••
* H4*•
•••
x
B3 .'. ••

·•.

.

*JF •
.. FS*

•
•

X

RESTORE
ADDRESS OF

•
•

.. FIRST CCW IN
•
CHAIN INTO
•
OUTPUT cce

•
•

•

.... .... .... .....
·......... .. •

OECCTR

*.

•• RETRIED
NO
•• THREE TIMES ••••••

.O'

·····Cl··········
··.................
.

·····01··········
·•..................•

·····02··········
.'*................

..

.O' X.

•
NUMBER TO
.. MESSAGE LINE

•
..

...•.C3··········

X

•
•
•
•
•

SET THE
NOP
BRANCH
SWITCH
TO OFF

NOLoe

•
•

•
•

•

x

..

ZERO FIRST

•

.. BYTe OF REPLY ..

•

IN AREA

•

X

'*
•
•
•

LOAD THE

•
•

ADDRESS OF
THE COMREG
INTO

•

•

RIO

•

.....
··.

LOGE NT

• EXECUTE MOYE •
.INSTRUCTIONS TO.
• RESTORE CHAN •
.QUEUE AND CHAN ,.
•
SCHED FLAGS ,.

...................•.
·..
....
.JF

X

·JF •
• • C3·
*

• K3.

·····e2····.·.
..............

.. ,",aVE MESSAGE

x

·YES

.JF

X

..

.

•• X.

• 01·
PHASR

·.···03··········
.................
X

HOVE THE
CHARAC TER
'R' INTO

•
•

•

•
•
•

•

FETCHNAHE+1

•

•
•

.····E3·········
..............

• FOR EXIT CALL.

x

• JF •
• H2*

·····El······...·
·..................
X

•

•

•
..

MOVE THE

..

PREFIX INTO

MP!> TST

..

THE MESSAGE
AREA

,..
..

(

X

•

SVC 3 FETCH
SSANERRR

•

•

CHART JH

·.·.·Fl··········
.................

•

X

.. CHANGE CCW
•
-ADORE.55 IN tte ..

•

..
..

TO AllOW

·····61·······
..............

.••.....•.••
.

..
•

JF-05

X

..

SET THE

•..
..

BRANCH

..

NOP
SWITCH
TO ON

KRE TRY
•

..

X

TURN OFF

EXTERNAL

.'.

ExtaNT

••

x

G4

. *. ••

.O' .O' NO
O'. ••••••
.IGNORE ••

•• DOES
•• ERR QUEUE
•• FLAG BYTE

.... •....• ....
O'.

.:.~~.O'

••

••

x

....

ALLOW

·YES

•• 7 •*

·····H2·······
·................
•

***

·YES

•••

• OPTION FLAGS

G3

•.

• F5·

•

• E5 •

x

.:..O' poss
8~vr~~s
lelE

·JF •

KANEXT

·JF •

•• RETRY·.

.....

.. •
•

x

•••••
••
•
CQUNTRG
*JF ..
• 83·

.....

*JF-C5

,.

PRINTJNG ON
1052

•

•

•

•.••.H3·······
X

•
•
•

TURN ON
RETRY
FLAG

•

•

·...............
•

•

··.··.H4···•.•..
·...............
X

·.

•
TURN ON
•
• IGNORE FLAGS •

•

*

x
•• ••••
•
7 •
••••

*

: ••.•••••••••••••••••••••• X:x •••••••••••••••••••••••• :
PHASES
X

.••••J3·.·•.•.•••
•

•
•

MOVE THE
CHARACTER
'Sf INTO

•
•
•

.................
•

FETCHNAME+7

•

• FOR EXI T CALL •

.•..K3·········
X

•

•

•

458

DOS System Control

...............
SVC 3 FETCH

UANERRSt

CHART JJ

•

•

•

(

Message Writer-- Error Recovery; $$ANERRR; Refer
to supervisor, Chart 19

Chart JH.

••••• •
•"1•••• ••
X

•• ·.A1 •••••••••

·

.

•
•
•••••••••••••••
•

$SANERRR

•

••••.A2··········
.MOYE CHAN. AND •
• UNIT fROM PUB •
• ENTRY TO MAIN.
•
STORAGE
•
•
LOCATION 2
•

.................
. ....
." .

.
·····82 •••••·••••
• x••

·····81··········
X

•
SET SYSTEM
•
MASK TO
•
•
'oISABLE ALL I/O'
•

AND EXTERNAL

•

•
INTERRUPTS
•
•••••••••••••••••

••

:

2

X

SET RETRY
fLAG. X'Ol'

•

••
:

•••••••••••••••••••

ENTRY POI NT WHEN
110 OR EXTERNAL

INTERRUPTS OCCUR

..............
.
. ....
10lMTR

"

•

."••••

RESPNS

'A~

•••• A3··.······
*
·.4 •

8~Rl~~s T~AAH~CUT!O~

•

"

."
• ••• 6 "
•
."
"
X ••••

·····83··········

10lNTR

•
•
·····Cl··········
*'
•

SET UP

•

• ENTRY POINTS
-FOR INTERRUPTS.

TSTATO

•:••
••

X

'GET ADDRESS OF •
•

ERROR QUEUE

•

•

ENTRY FOR

•

-DEVICE IN ERRORo
•

.

•.•..E1··········
•

•

SAVE EXTERNAL •

NEW PSW AND •
• sues T nUTE
•
• HYPSW FOR ex- •

.................
-YERNAl NEW PSW •

·•..·.Fl.····••.•••
X

• GET ADDRESSES •
-OF THE tee AND.

•
"

THE PUB ENTRY •
0

•••••••••••••••••

••

[S

KEY INT

.•
YES..

x
••••
""4
•
" "

.'.x

x

.".••

..............
. ....

.... ....

••

x
•••• "
"5 "
"••••

....

x

E4 ." .••

.•.•.E3··········
i

•

•
-_

·YES

o
o

"2

X

o

0

•
0
•

X

·····F4·······
• SET ExTERNAL.
.. OPT ION FLAG •
•
FOR IGNORE
•
IX'lO')
•
•

..............."

"

X

·····ES ••••••••• •
.HOVE INTERRUPT •
.COOE BYTE FROM.
• EXT. OLD PS~ •
.TO SPECIAL PSW •

X

·•..•F3··.··.···.
WAlT

.

•
TURN OFF
•
•
•
KEY-61 T
• IN INTERRUPT •
• COOE OF EXT . . .
•
OLD PSW
•

........ ....x .................
....
.....F5··········
..............
.................
"
"

.................
•

·····05·.··.··..·
.................

•• IS
••
•• IGNORE
•• NO
•• RESPONSE
••••••
•• VALID .-

• LOAD PSW WITH.
.ALL INTERRUPTS.
•
ENABLED AND •
• MACH CHK AND •
• WAIT BITS ON •

."
•x••• 3 "
•
0

·····F2··········
.................
"
"

•

• REPLACE EXT.
•
OLO PSW
• WtTH SPEC JAL

•o

·····Gl··········
•
•
•
•
•

MOVE THE
HESSAGE
NUMBER TO
STORAGE
LOCATION 0

•
•
•
•
•

...............•.

.....HI··········
X

• HOVE DEtIS [ON •
: ~~~~'S;8~lG~O :
•
LOCATION 1
•

.................
"
"

•••••G2.··•••••••

•
"3

•
RESET THE
•
• FIRST 5 SYTES, •
• OF MAIN STORAGE.
•
TO lEROS
•
"

•

0

·...............•.

"4

X

RETRY

"

"••
•
"

••

x
•••• 0
"

•

YES.o

.".x

••

X

.... ....

••

IS

MESSAGE

••

'.

•• •••• A OECISION ••
•
•• TYPE
••

•••• J2 •••••••••
•
fETCH
•
•
SSANERRS
•
CHART JJ
•
•

•••••••••••••••

·...............

"

0

x
.". ••

....

IS
••
YES.. MESSAGE ••
••••• AN ACTlON ••
•• TYPE
••

"6

Jl

H4

........

o
"5

"NO

0

X

•••

•"

••••• •

0

••••

X

····Gs·········
• LOAD EXTERNAL •
•
PSW
•

•

o

••••• H2 ••••••••••

•
RESTORE
• EXTERNAL NEW
•
PSW

LOADPSW

0

....•
....

.................

•

••

:x .......... :

••••
"
"••••"

X

..
..

psw.

x

X

••

X

o

• SET EXTERNAL.
• OPTION FLAG *
•
TO INDICATE •
•
ACTION TYPE.
• MESSAGE IX'40'1

cs

.YES

.NO

·YES

.....E2·······
X

...*
..

•• IGNORE

"NO

MOVE AN '5'
• TO LAS,T BYTE
•• OF THE
NAMEFETCH

••
hO..

.* •• IS *. ••••••••
NO
•• RESPONSE

.... .-..

•

x

••

*.
IS..

04

02
••
•• IS
••
•• DEY ICE IN •• YES
•
•• ERROR STILL •••••••••••••••••• x.
•• 8USY
••

PHASES

.•.

Cit

..
.
....

.*

LOPSW

••

ANY· •
OTHER
••
••••• RESPONSE
•• X....... ••• INTERRUPT ••
•• RETRY.·
••
••

a~~ftY5N .:.~~~ ••••••.••••••••

X

•••

·YES

*.

TYPE

X

85

••
KEYED
•• NO
•• INTERRUPT ••••••

"•••••••••••••••••

'NO

•••••••••••••••••
X

•••

........

••

o
"
•••••••••••••••••

••••• 01 ••••••••••

C2

...............•
................
...
...
.... .
····AS·········
EXINTR
•
·A4
•

EXINTR

•
SET SYSTEM
•
MASK TO
•
•
•
DISABLE ALL •
.1/0 INTERRUPTS.

i x•••••••••••••••••••••••• :
X

•

••

i

TSTCAM
•••
J5
••
IS
••
• • ••
••
RETR.Y
•• NO
NO .0
IS
••
•• RESPONSE
.0 •••••••••
RESPONSE
••
•• VALID ••
•• CANCEL ••
••

J4

*.

*.

•.•. .•.•

i · ·•..•. *

.YES

'NO

••••

•• 2 •
••••••

.YES

0

X

X

••••• Kl······ •• ••
•
MOYE ACTI ON •
: ~gy£'s;a;lG~O :
•
LOCATION 1
•

o

•

•••••••••••••••••

)

:....•..... xi

.

"•••• •
"1
"••••"

••••• K . . . . . . . ..

: oJ~Io~X~l.'G·.
•

FOR RETRY.

.

X'04'
"•••••••••••••••

•

X

·····KS •••••••

•

: o~~Io~xJl.AG·.
•
FOR CANCEL, •
•
X'oO'
•

.

•"•••••••••••••

ix••••••••••••••••••••••• ~:

••••• ••
"3
"••••"

~ppendix

H. Detailed

Flowcn~rts

459

Chart JJ.

Message Writer-- Cancel, Ignore or Dequeue
<$$ANERRS>; Refer to supervisor, Chart 19

··..........

··....••••..
• 4

• 5

•

o

·................ ..............
•

SSANERRS

...

TURN OFF
NO MESSAGE

•o

SWITCH

.•.x

···.·8t··········
·.................. ·....x .
X

•
SET SYSTEM
..
-MASK TO ENABLE ...
.. INTERRUPTS ON ..
..
.. ALL CHANNELS

·••••.

·····C1··········
...................
01

.•.x *oo

NO ... • * 1$
..... . *. DEVICE

*

•
•
•
•

.*

·····E1··········
X

COHREG INTO
Rl

..
'"

C3

.•.x

••

REPLY
IGNORE

·oo

•

CLEAR USERS
eCB BITS

•
•

.................
•o

...

••

...

...
...

oo.

*NO

•
•
•
•

••
••

••

• 3

•• X.

CANTRN

••

••

E3

••
••••••

.0.

AVAILABLE

*.

•

b

x

o 5

°NO

0

X

•• ··.E5.··.· •••••
• MOVE A X'S9' •
•
CANCEL CODE •
• INTO PIS FOR •
•
OPERATOR
•
..
DECISION
•

NO
••••••••••••••••• oo ...

.................

.•

•
..
•
•
•

.................

X:
ZERTEB
X
·····G2··········
•
ZERO R2 AND •
•
INSERT TEB
•
• POINTER FROM •
•o
PUB
••

·····G3··········
X

•
SET A X'OI'
•
CODE IN
•
FETCH NAME
• +7 FOR SVC 3

•
•
•

••

••
••
•••••• UNCONO I T I ONAl ••
•• CANCEL
••

......
......

.....F3·**"······

·YES

os

.XYES

••

•
SET SYSTEM
..
MASK TO
•
01 SABLE ALL
• INTEt{RUPTS ON
• All CHANNELS

.. .•. . .
........
x

*

•

••

eca

X

.MOVE X'SA' INTO •
.ADDRESS IN PIB •
• TABLE FOR UN- •
•
CONDITIONAL •
CANCEL TE~T •
•

•
•
•

....
·.....
••

.
YESX

•• oo.
.NO

o

···. ·es··········
.................

•

x

••

REPLY
RETRy

LOAD ADDRESS
OF EXTRY EX IT
ROUTINE FROM
ERBLK I ~TO
R15 FOR t::XJT

.................

••

X

•
•
•
•

0

....
....

as

•0

.YES

X

•0

YES oo. PREvIOUS
........
CANCEL

X

•
•
•
•
•

*NO

• *•••••••••••••

·····Gl······.··.

••••

x
... .•.

·····C4··········

•. ••

.•

03

ZERO LAST
BYTE OF
FETCH NAME
FOR SVC 3

.... .. ..

• MOVE A X'OO'
•
INTO RETRY
•
COUNTER IN
•
TEB

•
•

x

••
IS
•• NO
• oo
TEB-TABLE ••••••••••••••••••••
••
ZERO
••

KRTY

•• oooo..

X

Fl·.

: ••••••• oo ••

•• YES
•• oo •••

•• X.

····E2··.··.*··
.SI/C 3
RETURN.
•
TO EXIGNI
•
•
CHART FW
•

.................
.. ...x ..
,.
..

6

.
oo·
• YES..

•

X

..
..
..

*• 8

o

X

o

·oo .NO
.•

** ••••••• ** ••• **.

*oo ·YES
.-

....

•
•
•

.....84··········

••

.. .... ..
··........
·····02··.·..·..·
.... ... ....
·
. ...... ..
·..... x
.. ....
...
.. ..
..

.. OF EXIGN EXIT ..
.. ROUT INE FROM
., ERBLK INTO
..

-oo *.

.. LOAD ADDRE!)S
.. OF TEB-TABLE
..
PNTR FROM

•

A TYPE
MESSAGE

X

.. R15 FOR EXIT

EXIT

*. *. TAPE .• .*

oo.

••

* .•
·NO

.................
....

..

•

A

l

B3

·····C2··········

•

ERROR PUB

•

_.

.. LOAD ADORE 5 S

:

OEVld-IN-

··....
......
.... ...x ....
.. ..

• LOAD ADDRESS
•
OF CCB INTO
•
PUBREG RI4

•

IGEXIT

.. GET ADDRESSES ..

•

•

••

.... • *oo

X

..

$.

•

.* RESPONSE
*..*
CANCEL
*. *oo
..*

YES

• 3

: ~~B~~HRi~6

•*82 IS

X

CLRCCB
0

•
•

•

·.....A4··········.
.·................

TSTTRG
X
••••• A2 •••••••

·.••.Al·········.

(

SETCODE
i
F4· .. WuRK
•• .. •••••
•......
ZERO
•
•
REGISTER 12 •
.. AND INSERt
•
.. PROTECTION
•
KEV DATA
•
•

• •••• F5··········
•
LOAD
•
ADDRESS OF
•
•
..
PIB TABLE
•
•
INTO RIO
•

.................

..·. . .G4·.··.·····

. ···.Gs·· . ·•·•···

X

•

\

:oo ............ X:
CANEXT
X

..................
o

(

•

*

X

•
SET ADDRE!;.S
• OF EXCAN EX IT
• ROUTINE FROM
•
ERBLK INTO
• R15 fOR EXIT

•
•

·.................
.... . . ................. ·................. ·................. .................
·........
······H3··········.
.. .. ·..... ·.................. ................. ................. .................
·.....
....
....
·····J2·····....· ··.··J3··········
••••
····JS·········
.
..............
................. .................
o

ADD
PIS TABLE
ADDRESS

•
•
•

•

•
•

••
•• x.

• 2

x

MSGPRT

X

HI·.
HAS
•• MESSAGE •• NO
•• BEEN PR INTED •
••
.Kl

•.

.*

·YES

••x*. •

o
• l
o

.* *•.••
x
•

4

X

• •• ·.H2 ••• • ••• •••
•
MULTIPLY R2 •
•
BY 6 TO
•
• AtCES!> PROPER •
•
TEB ENTRY
•

*.

••

•
•

•

•

R3

••••• H4.· •••••• ••
•
OR A X '40'
•
•
SETTING BIT •
•
IF PREVIOUS •
•
CANCEL
•

o

•

0

X

·····HS··········
•
SET LAST
•
•
BYTE I N .
•
FE TCH NAME
•
•
TO ZERO FOR •
•
SVt 3
•

x

•

X

•

•

•
•
•
•

•

X

••• ·.K2··········

o

•
..
•

0

ZERO RETRY
tOUNTER IN
TEB

•
•
•

•
•
.................

....

• LOAD ADDRESS
.OF PUBDEQ EXI T
• ROUT I NE FROM
•
ERBlK INTG
• RIS FOR EXIT

•
•
•
•
•

•

o 8

•

•

0

X

• SVC 3 RETURN.
•
TO EXCAN
•
•
CHART FW
•

.····K3·········
..............

X
• svc 3 RETURN.
: l~IRUrl;~Q :

(

it

•o 2

o

X

o

·Kl
THE SAVE AREA OF
THE DEVICE CCB IS
CHECKEO TO SEE
IF THE DEVICE
HAS BEEN
ASSIGNEO.

X

• LOAD ADDRESS
•
OF PUB IN
•

•
ADO R2 TO
•
Rl FOR
•
PROPER TEB
• DISPLACEMENT

0

••••• •
460

•

•
•
•

DOS System Control

Unit Record ERP-- 1052 and 1056 (Part 1 of 2)
$$ANERRU; Refer to supervisor, Chart 18

Chart JK.

....

..........
• 1

o

•'"

*

••••A1····.··.·

*

.*.x

A2
••
••
IS
••
•• DEVICE A •• YES
•• 1442 PUNCH ••••••
•• OR RD/PCH ••

*•

*

i

'"

SET SYSTEM

•

INTERRUPTS

'"

'"
'"

ON ALL
CHANNELS

'"
'"

'NO

X

···.·B4 ••••••••••
.MOVE X'02' INTO •
•
TM [NS1 AT
•
• LABEL UNUSENS •
•
FOR USE AS
•
HASK BYTE
•
•

..

C3

i

....
.................
*

·..··01··········
.................
X

2

*.
•• X.
* .

OLD AOOR OF C$W ..

*•

COMPARE ERROR
• COUNT IN PUB
• ENTRY FOR DEV
•
TO 1

•
QUEUE INTO
•
• REG 9 TEST CSW ..
• STATUS BYTES •

'b

*

X

.................
.. .'. ..

.................

• *.

E2
••
•• PUB ••
•• ERR COUNT •• YES
•• EQ OR GREATER ••••••
•• THAN 1
••

-.

X

E3

**
*

3

*o

•

X

·····F2.···.··.··

TO •

•
•
•

URMSG BYTE OF •

.................
•
..

*NO

**
*

X

x

ERROR QUEUE

•

ENTRY FOR
DEVICE

•
•

MOVE 1 INTO
PUB ENTRY
ERROR COUNT

•
•
..

•
•
.................

7

.................

x

.'x.

..•.x

.
YES •

E5
.",
... SENSE ••
NO ...
OAT A
...
oO.
IS
••
DEVICE A
•••••• ....... IMPOS~lBLE
... 1443 OR ••
•• FOR OEV ••
·.1445 ••
E4

••

••
IS
••
•• DEVICE ON •• YES
•• ERROR QUEUE ••••••
•• A 1050
••

.... .... .... .... .... ....
....
....
.
·.··"'Fl····.··.·· ,
CHECK *. NO
*..*DATA
INDICATED IN ...... .
*. csw .. *
*. *•• - .x

UNUSENS
X
·····05··········
.TEST SENSE BYTE •
• DATA AGAIN~T
•
.IMPOSSIBLE bIT *
.COMBINATION FOR.
.PARTICULAR (.lEV"

·····04··········
• MOVE x'oe' INTO •
•
HI IN5T AT
•
• LABEL UNUSENS •
•
•
FOR U5E AS
•
MASK BYTE
•

• MOVE X'OF' INTO.
•
TM INS T AT
•
• LABEL UNUSENS •
•
FOR USE AS
•
•
MASK BYTE
•

•
•
•

••

* ..

.... .....
•.

* •.•

*NO

*NO

x
. *.

0

* 6 *.
•• X.
•
:A *•••• ' 3.
•

X

X

••••• F3 ••••••••••

·····F4········*·
• HOV E UNKNOWN
•
•
DEVICE CODE
*
.INTO URHSG 8YTE.
•
OF ERRGR
..
•
QUEUE ENTRY
•

• MOVE X'03' INTO.
•
TM INST AT
•
• LABEL UNUSENS •
•
FOR USE AS
•
MASK BYTE
•
•

.................

••••••••••••• * •••

• -UNIT DEVICE_. NO

.. ..

-END OR CHANNEl.- .......
-.END ON IN.-

*.

Csw ...

.. .
.. .. ....
.*.

HI·.

....
....
x

·YES

x

x

X

·····C2··········
•
LA OF RETRY
•
• EXIT INTO R15 •
.MOVE X'OO' INTO.
• LAST CHAR POS •
•
OF FTCHNH
•

••
•

2

.• YES

.*

F5

.... ....

•
•
•

..·.HZ·········

...............
SVC 3
eXRTY
CHART FW

•
..
•

.................

.. ..
.... .... ....
.* . ••
J3

.* IS *. •• YESX.
••
*. •• DEVICE
A
..................... .
PRINTER ••

.... ....
- -

)

.

..... ....
-.,
x

x

*
*

·.··.K2····.··•.·
..
TURN ON
• AllOW IGNORE
• BIT IN ERRflG
.. BYTE OF ERROR
•
QUEUE ENTRY

..
..
•
..
•

X

••••• K3 •• • •• • •• ••
• HOVE X'01' INTO •
TH INST AT
•
• LABEL UNUSEN5 •
•
FOR USE AS
•
..
MASK BYTE
•

*

.................

.................

x

..0••••..-

....
7

••••

*
*
•

··.··Gs.·.··.··..

*

• HOVE UNKNO~N
..
.SENSE OAT A MSG •
.CODE INTO URHSG •
• BYTE OF ERROR •
QUEUE ENTRY
•
•

.................
:............ x:

.....................
.X.· •
....
•

-

••

*
*

.·.··Js··········
X

FTHMSGW

.HOVE X'HI INTO.
• LAST CHAR pas ..
• Of FTCHNH TO
•
.IDENTIfY FIRST.
• HSGwTR PHASE
•

.................

*
*

.....•

*

X

*
*
*

·Jl-D3
Jl-K2
JL-K3
JL-J5

.

*.

-NO

*.

*NO

. . . . . . . . . . . . . . . . . . . . . oO . . . . X.

••
15
•• YESX
••
DEVICE A
••••••
2540R
••

oNO

••

CNCL
X
•• ••• H5··.·····.·
.TURN OFF AllOW •
*RETRY AND ALLOW.
.IGNORE BITS IN •
.ERROR FLAG BYTE.
• OF ERR QUEUE
•

• MOVE X'05' INTO •
•
TH INST AT
..
.. LABEL UNUSENS •
•
FOR USE AS
•
•
MASK BYTE
•

x

IGON

7

.····H3.··.···.·.

x
. *. ••
Jl

i
••••
1 -••••

*

X

i

*NO

•*

.....
.....,

·NO

*•
*

csw

•• STATU:) BYTE ••
X••••• SHOW CHAINING.*
•• CHECK
••
•• ERROR."

i

.* . ••

••
IS·.
..
•• DEVICE A •• YESX
•• Z50L, L442R/P ••••••
•• OR 1442P ••

••••• 0 •••••••••••

.

••
IS
•• YES
••
DEVICE A
••••••
••
1052
••

G3

.*

.*

*YES

**

·Jl •
• Bl*

.* G1C1Rl *. _.

*,
*

"a

*,*

·····03···..·•···

*•

x

x

• 0.

.-CHANNEL-.

*
*

.J~.

5

. *.

x

*NO

·JL •

R TYONE
X
•• ··.02···.··· •• •

• PORTION Of ERR ..

•

*
•

C4
••
••
IS·.
•
•• DEVICE A •• YE5X
•
.Z5Z0P A 25Z0R/P ••••••••••••••••• x.
•• OR 1403 ••
x

••

",. WAS SENSE •• YES
•• DATA EQUAL
••••••
••
X' 00'
••

.*

*NO

*•

MOVE X'2S'

....
....

.................

i

*.

oPUB ENTRY FROM ..

•

·oO

x
.. .'. ..
........... .. ...... ........ .... ........
....

.................

•

••

........

•
•

.................

.. *

_ERRBtOC IN RIO.

·YES

.*.x

*,

*

.•

i

C2
••
•• DID..
•
ERR OCCUR .", YE SX
••
ON A REAO
••••••
COMHAND

LOAD AoaR OF
•
CQMREG IN R12 '"

El

4

••
IS
•• YES
••
DEVICE
••••••
•• A 2540P ••

·····83.··..·..··

x

·····Cl··········

.. QUEUE IN R14

X'OO' SHOULD
NEVER OCCUR

.*.

X

•
•

A4

• HOVE X'lCJ' coDe.
.INTO URMSG BYTE.
• OF ERROR QUEUE.
• INDICATING
•
• UNKNOWN SENSE.

.................

.................

i

.................
•
•

·····B2.··· ••••••
.OBTAIN AOOR OF •
• LAST-USED CCW •
• +8 FROH csw.
•
•
SUB 8 FOR
•
• LAST C.CW AODR •

'"

"'MASK TO ENABLE '"

*

•

:!~N~~Rg~T~u5~iA:

X

·····Bl··········

....
....

*•
*

.TEST FOR X'OO' •

*NO

ERRUR+8

3

·····A3···•.·.•·•

NOSENSE

........

...............
SSANERRU

....

**
*

*

5

*
•
..

X
••••KS··.···""-·
•
SVC 3
$SANERRH

•
•

CHART JA
••••••••••
*•••• •

i

• 4

•

-

*

~ppendix

a.

Detailed Flowcharts

461

Chart JL,

Unit Record ERP-- 1052 and 1056 (Part 2 of 2)
$$ANERRU; Refer to supervisor, Chart 18

··..........

..

•••••
*JK ..
.. F5*
•

• 1

it

Cl

*'

•

.',it *.

.. •. 'I. 'ISYSLOG

ENTRY

C2

.. "

·····01··········
.................

....
·.....

*. ..

*-

'I- 'I-

·····02··.·.·.··.
it

LAST CHAR pas ..
.. OF FTCHNM TO
..

t

• IDENTIFY PHASE ..

..

'I . . . . . . . . . .

'"

.·................
.....
·..J5·.

..
...

SSANERRV
CHART JM

..
...

· .
•

3

·····C4 •••••••
•
S TOKE CHANe.
• PlJlNTER BYTE •
• IN HOVE INST •
LABELED
•
•
*
RSTQPT
•
••• *** ••• * ••••

.* ••

-NO

RESET ARE OEVICE
BUSY, I/O ERROR
QUEUE:.D HIR RECOVERY,
AND uPERATOR
I NTEKVENT ION
tCHED FLAG.
• Il\I DEVICE. PUB *
•
ENTRY
.F3 *

·

.

.*

x
,'.
F5
••

•
•
•

(

*..

........

• NO..
I/O
••
•••••• OPERATION
••
·.COMPLETE ••
·YES

: x...... ~ ..... :

.-.x

X

···*·G4····*·*···
.ADD LUBIDIJ ADlJR*
Rl TO THE
•
• CHANQ POINTER.
.VALUE .01 SPLACES.
*TO PROPER LUBID*

*. *.

........ ....
··......

• "''4

.................

x

'NO

•

2

X

••••• H2··.······.
• MOVE COMMAND •
• REJECT CODE TO •
• URMSG BYTE OF •
•
ERROH QUEUE
•
EfliTRY
•
•

••••• H4·*··*·····
•
HOVE DEV ICE
•
• LOGICAL UNIT NO •
• INTO CCB AND
•
• LOAD cce AOOR •
INTO REG 15 •
•

.* ••••••• *•••••••

x

J2
••
•• SENSE
• * DATA SHOW *. YES
• CUMMANu REJECT ••••••••••••••••••••
••
ERROR
••

*.

.*

RSTFLG
X
·····HS.····.····
• Hove ORIGINAL.
.CHAN SCHl;D FLAG •
.BYTE SACK INTO.
• DEY PUS ENTRY •

·..*.
.
·..... .
·····J5*·········
. .................
.....
*JK..•
•

*•••• *•••••••••••

••••• *•• *••••••••

.'.

RS TQPT
X
·····G5··········
• HOVE ORIGINAL •
* CHANe POINTER •
* BACK INTO DEV •
:
PUB ENTRY
:

•

X

*••
*
"c

ALARM
CCW

............. X:
it

·*···E4.·.*·.·.* •
.MOVE X'FF' INTO*
* CHANQ POINTER.
.BYTE OF DEV PUB •
ENTRY-REMOVES *
.OEV FROM CHANC,- •
*.* ••

•• *••••••• *•• ** ••

G2
...
•• SENSE
YES
• * OATA SHOW
••
SU!:> OUT
...... ..
••
ERROR
••

•.

EXECUTE

'F3
BITS WHICH ARE

• *.*.F 2** ••••• **.
• MOVE BUS OUT
*
* CODE TO URMSG *
* BYTE OF ERROR *
QUEUE ENTRY •
•

·

.............
······C5.·.·....·..
.................
SVC 15

'NO

*
•••• *•••••••

•

X

······B5···········

it

X

••••• 04.· •••••
• MOVE CHAfIINEL*
• SCHED flAG IN*
• OEV PUB ENTRY.
* INTO IN~T AT •
• LABEL RSTFLG*
• *.** •••••••••

.JI\ •

.'.

E2
••
•• SENSE ••
YES .* DATA SHOW ...
• •••• INTERVENT ION ...
·.REQUIRED .*

•

:~~~~ A~~O 1 C~~b :

• I'IISERT CHANe •
• PNTR FROM PUB •
.* •• * •• * •••••••••

x

····EI·········
...............
... *•.• ..
x
....
·.
SVC 3

x.

E,",PCHK
X
• •• **03·····*·**·
*TURN ON BIT IN •
ERROR QUEUE
•
*
• ERQ,OR flAG TO •
•
• ALLOW IGNORE

x

..

I NTRECI
X
.*.··B4··.·.·· •••
•
SET AODR OF •

X

YES

.. MOVE CODE FOR ..
.. INTERVENTION •
• REQ MSG INTO •
• URMSG bYTE OF •
.ERR QUEUE ENTftY*
•• ** •• * ••••••••••

it

•• 4 ••
••••• •

•

•

x _.
.',

t ••

3

'NO

-MOVE X'ES' INTO-

... TO BE CALLED

• 2

.INDICATE EQUiP ••••••••
CHE;CK

•• 1 ••

it

•

SENSE: .....
.* .*BYTE
DATA *.

x

'NO

··..........

• HOVE EQUIP CHK •

,.
M5G CODE TO •
,. URM$G BYTE OF ..
.. ERROR QUEUE •

•* IS *. *. YES
*.•* DeVICE
. . . . . ..

*.

X

LOGERP

..
TEST PUB
..
.. ENTRY POINHO ...
-TO BY EqR QUEue.
*TO SEe I F ERROR.

.. IS ON SYSLOG

•

·····S2··.·.·.··.
.................

····.81··········
.................

lOGTST

....

··....••••..

•

• ••••••••• *••••••

.JK •• X.,
• C2·
AACT
X

X

·····J4··········
• HOVE X'OI' INTO •
• REQUESTOR l/D •
•
• KEY FIELD OF
•
ERROR BLOCK
•

·

•• *.*•• * ••• *.* •••

• TURN ON DATA •
• CHECK BIT IN ..
.ERROR FLAG bYTE •
• OF OEV ERROR
•
QUEUE ENTI(Y •
•

x

i
.. ··**K2··* •• ••• ••
* MOVE UNKNOWN •
• SENSE CODE TO •
• URMSG BYTE OF •
•
ERROR QUEUE
•
ENTRY
•
•

*** ••••••••••••••

.....
...
x

·JK •
• JS·

462

DOS System Control

CMOREJ

X

•* **RESET
•• K3··········
ALLOW- •

• IGNORE BIT AND.
• ALLOW-RETRY BIT.
• IN ERROR FLAG.
• OF ERROR QUEUE •

•••• *............ *

.••.....JKJ5·.•
.
x

X

••••• K4.·········
• LOAD Rl5 INTO.
• RO SO RO WILL •
* NuT HAVE' ZERO •
IN IT
•
•

.·................
....
• •
•.... •

•

JS·

i

• 4

•

(

unit Record ERP-- 1403, 1442, 1443, 2501, 2520,

Chart JM.

2540, (Part 1 of 2) $$ANERRV; Refer to
Supervisor, Chart 18

•oo••••
•••
I
••••

•

•

.•.
i

o
o
o

••••• 1•••••••••
"ANERRV

•••••••••••••••

• MOVE CODE FOR
• INTERVENTION
• REQUIRED MSG
• TO URM5G BYTE
.OF ERR Q ENTRV

*. *••• .-

·····81··········
i

82

:

c~~N~k~s

*.

:

*. *•• *.*

:·•• ··Cl.··•••••••:

C2

L8~~EADy~ ~~

~RBLO~

.•.i

•

••

........

••

•• ·~A~iN~~o:· •• yes

..................

:

i

02

:··~~el·t;:;~;··:
•

INl~B~L~hO
ccsw

0

••

*.

:

•

.....-..

•••••••••••••••••

ERROR

•

.•.i *.

·····el··········
:
PMr :
i

F2

.•.

••

.... ...••••

• iYTE INTO RI2 0

GET.
0

•••••••••••••••••

oNO

o

•

•

C5.

• IN

•

•• X•

••••

HOl

•

X

.. ..
• NO

'I.

0

~

0

0

0

EQUIPMENT
CHECK

•

•
•

o•

•0

Rl2

•••••••••••••••••

..
.. .... ......
,

H3

•• WI LL
••
USER

*. ••

..
i..
• IN •

i
o ••••
o I •
••••••
0

•

i
.0.

BUSI

••

'I.

·····J3·········*
:~S: 8~sU~oE~m:
~~UlltaR :

: ¥~~~

•••••••••••••••••

.

.. ..
'I •

'NO

i

Hit

.'.••

............
••

IS

••

•• DEViCe A

•• NO

•

*.14 ... 3 PRINTER •••••• x•••••••••••••

i

•••••
·IN •

..

·VES

• D2·

:••.••••.•. x:
i

'I.

••

·NO

.YES

0

•••••••
•
••••
i
.'.
GS
*.

•• IS
••
DEVICE A •• VeS
..1403 OA 1443 ••••••
•• PRI NTER ••

IS
••
.*1403
DEVICE A *.
PRJ NlER

'I • • • • •

•• NO
•
•• ACCEPT ERROR •••••• x.

• SET ERFLAG IN •

.

YES

G4

...........••

i
•••••••••••••••••••
•••••
•
i

•

• A80R FOR &EV
•
BY LOADING

C02

•

• 82·

i
:···:~lt:·c·:···:

.

*IN •
• GS·

o• 5

i

i~~ C~6Nl~

x

*IN •
• f2·

x

••••
:•••••G3··········
..
:
•

•••
H2
••
•• C!W ••
•• UTU SHOWO. YES
• cHfININ CHECK ••••••
•• ERROR ••

•.

.* •.•..•....•..... x.

....
'Ix.· •
•

••

'I •

• IN ••••
• F3·
RlYt r
X
·····ES·····**··*
•
MOVE ERROR
A 1
*
..
INTO
..
• tOUNT BYTE uF •
*PU8 FOR OEVlc.e ..

.VES
•

EQ 1

'NO

0

·

•

• IN •
• o C5·
•

i

-. ••
•• 05
ERROR
.COUNT IN pue •• YES
•• FOR DEViCE ••••••

•. e ••• .*

SElERR

e•

.* IS .*.
0: 0 gmc~oA ·:O~~!.
*.
.*

i

••

·VES

i

•••••
• IN •
• Ait·
•o•

....
·.....
...
.·...... . .. •••••...
.... .
·..................
.......
•• 5 ••

*.

i

••••• ••
••
*
••••

F3
•• WAS * •
•• EQUIP CHK. •• NO
•
..ERROR
ON THE._ •••••••••••••••••• X.
e. 2520P

YES

.e

x

:zEn2Nal~0Im:T:

0

*.

••

e •••

G2

•

.IN •
• • ES·
0

i

oNO

i

• 02·

x

• *

e •••

·IN •
• 82.

•·6.tiN~~:·e.

••••• Gl ••••••••••

-IN -

El
••
•• IS
e•
•• OEVltE A •• NO
•• 2520 RIP

• COMMANO REJECT .0 ••••
ERROR ••

*. *.

i

··.N6

• 02·

.•.i

i

• 01 SPLACEMENT

.

.'.i ••

•• I S · .
•
... CHAN END •• YESX
•• ALONE or-.
'Ie ••••

x
•••••
.IN •

·NO

i

'NO

••••••• *•••••••••

.... ...- .....
. ..... •
.

'I.

.... .... ..... .... ...·•. .•.
.•.

00EVICE ON QUEUE.

•
LO INTO RI5 •
•••••••••••••••••

*MPY BY 0\

••

.. A·· •.
........

i

.:.*. °a~~RI~~
.. *:.~~~.
ERROR ••

~~f~~ 1~&R

.. ..

C4

••

i

•••••
·IN •
• 81.
•••

E2
•• SENSE ••

• GET FRO" ERROR 0

i

• MOVE CODE FOR •
• BUSOUr HSG TO •
• URMSG BYTE OF •
.eRR QUEUE ENTRY.
• FOR DEVICE
•

•• ·oEvl~E
YES
•• 2SltOP OR A ...... .
•• 2520P 'I.

*

'NO

IS

··.Nb

03

.• ·~.iiNt~o:· •. YES
•• DATA CHECK. ••••••

.BYTES FRy" CSW 0

:

.•.i

*. e.

••••
1 •
•• ••••
•
•

x
.'.••

•• DEVICE A •• YES
..251t0 RDR OR A••••••
141t2 RP

x

°NO

C3

SELECTION

·····85··········

.VES

....

o

•
•

•••••••••••• *•••••••

.•.x

B4

TEST FOR
INITIAL

•

•• DEY END ••
•• ON ••

••••
o
•
o 2 •

..8USOUT PARITy ••••••
•• ERROR ••

IN RIO •

•
•

••
CSW -.
.*ST.TUS $HOW*. NO
-. CHAN END OR ••••••

.X

*NO

i

o

'I.

YES
lNTERV REQ ••••••
ERROR.*
•

•••••••••••••••••

: ~~MR?= m

.•.i *.

*..• ·~A'lN~~: .•.

OSET SYSTEM MASKO
•
TO ENABLE
•
•
INTERRUPTS
0

BUSOUT
i
•o•••• AS ••• •••••••
•

•
•
•
•
•

•••••••••••••••••

°NO

ERRUA+8

1 •
*• ••••
•

··.··AIt.·i ••·.·•.•

*••••••••••••••••.•

*.

0

0

•••••

o
0
0
0

INTREQ

A2
*,.
•• ·~AnN§~o:· •• YES
EQUr P (MEeK •
o. ERROR ••

0

••••
••••

• 2

o

··..·J4··········

COlao

i

• RESET OFF
• RETAY 81T
• ON ALLOW
.all IN e
• OF ERR

OW.
N •

e.
G.
•

•••••••••••• ••••

.

BUSZ
X
•••• ·J5 ••••••••••
• TURN ON ALLOW •

• IGNORE BIT IN •
.eRROR FLAG BYTe •
• OF EAR QUeUE •
• ENTRY FOR DEV *

•••••••••••••••••

.

•••• ••••••••••••••••••••• X.......................... X ••••••••••••••••••••••••• Xi

•••••
.IN *
• E2·
•o•

)

Appendix H. Detailed rlowcharts

463

Chart IN.

Unit Record ERP-- 1403, 1442, 1433, 2501, 2520,
2540, (Part 2 of 2) $$ANERRV; Refer to
supervisor, Chart 18

•••••
·JM •
• F2.

* *

*

i

CMDREJ

AI,
••
•• IS
••
YES.. DEVICE
••
••• •••
A 1403
••
•• PRI NTER ••

........

.....

*JH-E2
JH-H2

*••••

*JH •
• 02*

•* * **
* *
*

* *

*

···.·81········.·
.................

QATCHK

X

OVRUN

QUEUE

*. *•

*. *.

B4

*oo

..

·····C2··········
X

*.
*. *.•• .• .•

•••
C3
••
•• C!»W ••
•• STATUS HAVE •• YES
..CHAN END BIT ••••••
••
ON
••

*YES

.. URMSG ByrE OF ..
..

ERROR QUEUE

..

.. ENTRY FOf< DEY"

•• ** •••••• ** •••••

*

X

.. TURN ON AllOW ..
• IGNORE BIT AND ..
.TURN OFF AllOW"
.. RETRY BIT IN ..
..
.. ERRFlAG BYTE

JH-D5

JM-J5

JH-J2
JH-J3
JH-J4

x

* 3 **
•*•••
**

ATYPE

X

• TURN ON ACTION.
• A FLAG IN ERROR.

•

•

•

FLAG lSVTE OF
ERROk QUEUE
E"'lTRY

••
..X.X •• 3
• El·
•
M!)GwTR
X
"'MOVE XIMI

•*
*

INTO.

••x*•
3

••

··.·F2 ••••••• ••
X

JH-G5
JM-H4

•

•
•

...............
SVC 3

UANERRM
CHART JA

F3

••

•
•
•

•••

..... .....
·NO

..*..x
..
:J~s:
•

seT

••

•

.TURN ON BI T IN •
.CCB TRANS INFu •
.BYTE 3 TO SHOW.
• QUESTIONABLE •
•
CONDITION
•

.....................
....
•.X.* • JM *•
•

C4.

X

CONT

·····ES··········

• LOAD AoOR I~
.R IS OF EXIT TO
• IGNORE ERROR
•
RECOVERY
ROUT INE
•

2

•

•

.................

....:.x.

•:

•

•
•

*.

••••.X

GETMSG

• •••• F4 ••••••••••

*.

1..

TO

....

..MOOE ••

X

·····OS······ ••• •

.............. x..

•.CMND
MOVE CODE FOR.
REJECT

..
x

••••

:

....
1

.....
.

M~G.

... ERR COUNT •• YES
•• I N PUB EQUAL ........

••

.

**
*

••

IS

.YES

• *

*NO

x············

RTY

·.!;.EQUENCE ••

.*.x

.................

JH-C3
JM-C4

, •••• UNUSUAL CMNO ••

04
••
•• LAST ••
•• USED CCW
••
YES
..COMMAND CODE ••••••

• PHASE GF MSGWTR.

JM-B4

x

.*.

CS
••
•• SENSE ••
NO •• DATA SHOW ...

•• J'"H2·•

• LAST CHAR POS •
• OF FTCHNM TO •
• IDENTIFY FIRST •

*F!

* *
*

................. .....x ........

X

•
•

·JM •
• G2.

••
•
CMDSEQ

.1ST BYTE LD CCW.
•
AODR IN R13 •
.SUB 8 GET LAST.
• USED CCW ADDR •

• MOVE CODE FOR •
.PARI TV ERR MSG •
.TO URHSG RESET.
• AllOW RETRY ANO.
"'IGNORE ERRFLAGS.

•
•
•

X

MOYE CSW DROP •

•

*
.
•• x.

ro1VHSG

2

·····C4•••..•• ·••

UCSTST

*NO

• 1

**
*

: .......... x:

X

UCPBAR

.. MOVE CODE: FOR ..
*OVERRUt-/. M!)G TU ..

.....

x

*•••
·YES

............
: .............. .ox:
·..... .
·····01·········· ..···02·········· ·····03····.•·...
................. .................
..... .. . .................
·
•• *.
.... . ....
....
·····E2··········
*.

*EI

.... .... ....

.... "*................................. ..

*N~

Cl
•• IS
.. " DEY J CE A
NO ..
*.1403 PRINTER •••• X.

.*.x ••

••
IS
••
•• DEVICE A •• NO
• .1443 PR INTER ••••••

YES

*. * .• *.-

..

.*.x *. *.

*NO

X

*.

•• IS
•• DEVICE A
pA!~fER

.. BYTE OF ERROR ..

..

..

82

.. MOVE CODE FOR ..
.OATA CHECK ERR ..
."'5G INTO URMSG ..

•••

• TU URMSG BYTE •
.OF ERROR QUEUE.

: ••••• i~!:~ ••••• :

• JM •

• ES.

* *

:

x
·····G4··········

.RESoET OFF ALLOW.
• REfkY AND ALLOW.
• IGNORE BI TS IN •
ERR FLAG OF
•
•
• ERR QUEUE ENTRY.

.................

....
....
x

*•
*

3

**
*

RETRY

X

·····GS··········

• LOAO ADDR IN •
• RlS OF EXIT TO •

.................
•
•

•

RETRY ERROR
RECOVERY

ROUT INE

•
•

•

:X ........... :

x

·····HS··········

.MoVE ZERO J Nf[J •
•
LAST CHAR
•

.................
POSITION OF
•
•
• FTCHNM TO CALL •
•
• NEXT ROUTJ;~E

····JS·········
...............
X

•.EXRTY SVC
*
OR 3EX IGN ..
•
CHART FW
•

464

DOS System Control

(

'A3
THE STATUS BYTE OF THE

.•..Al.·.··.···

mT

•
•
•••••••••••••••••
,..

SSANERRX

....
ic

X

.0 •

S2
••
• •••• B3 ••••••••••
..CHANNEL..
• MOVE A X'19'
•
••
DATA
•• NO
• MESSAGE
•
••
CHECK
•••••••••• X.INTO THE
•
••
.A3..
.QUEUE ENT
•
••••
• UNUSUAL
•

-OF COHREG INTO ..
'BLOCK INTO
RIO

..
..

...··e1.·········
X

..
OF ERBlOC
..
INTO WORK
.. REGJSTER RlS

..

..
..
..

·..................
...··01··········
i

..

HOVE STATUS

..
..

INTO CSMl
AREA

..

................

.. ..

..

•••••••••••••••••

.. LOAD ADDRESS

·YES

CHOTCK
X
·····C2 ••••••••••
.THE STATUS AREA.
.1 S CHECKED FOR •
• CONTROL UN I T .

.................
:~~DtHg~v ~~6 ~~g:

.-.x

02
••
•• CHAN ••
YES •• DATA CHK ••
••••• 0,'1 INITIAL ••
•• SELEC T ION ••

•
• ..... .. ......
.................
....
.' .
..

BYTE DATA

..

..
..

i

ONL

• JQ •

• 04.

.x ••o

•*

X

·····E1··········
•

LOAD ADDRESS

•

.
.................
.. OF PUB INTO •
.. WORK REGISTER.
•
15
..

..···Fl··········
i

•
ZERO CCBREG •
• 12 AND INSERT •
• CHANNEL QUEUE •

·.................•

POINTER

•

•

....
2

•
•

SETFLG
i
·····E2·······
•
AN~ X'EB'
• IN FLAG BYTE
• AREA TO TURN
•
• OFF RETRY AND.
•
IGNORE BITS.

**

..............
.... ....

• JQ-El·
•
JQ-Fl.
JQ-Dl· • •
JQ-04....

••

..x.x ••

••

4

• •••

•
•
•

CALLMW
i
····F2·········
•
SW'C 3
•
.FETCH SSANERRM •
•
•
CHART JA

...............

• 4 POINTING TO •
•
THE PROPER
•
•
ENTRY FOR
•

.................
,.. CHANNEL QUEUE •

.....Hl··········
•
ADO ADDRESS
•
OF CHANNEL
QUEUE AND
•
• LOAD ADDRESS
OF cca
•

•
•
•
•
•

.................
i

i

.

-••••

..

.•.ic

.

03
••
04
••
• •••• 05 ••••••••••
..CHANNEL..
•
••••
•
TEST seNSE
•
••
OR
•• NO
NO
.ELOCK AND MOVE :0:
••
DEVICE
•••••••••• X..
INVALIIJ
•••••••••• X. EQUIPMEf>lT CH .... :0:
••
END
••
••
bITS..
:0:
M~G TO HSG
•
*NO. AREA
*A3:o:

X..

•. •. .• .•
.YES

•.

•••••••••••••••••

....
- .-

i

i

_

• 4

*

o

•••
--•••••
.• 2

_..*
*. .•
.VE~

•

i

E5

.. ..

··....••••-.. .-. ..
........ .....
.5

* •••
-NO

•

i

f3

··•. . f5····· . ·
i

••

•
•
•
•
•

•• BUS OUT •• YES
••
CHECK
••••••
••
.A4
••

• JQ •
• (4·

BU~

X

·····G5··········

••••

i
••••
•
• 2 •
•• •• *•

i

i

i

-NO

YES .INTERVENTION ....
•• •••
REQUIRED
••
••
.A4

*.

i

•

.'.

J3
••
..CHANNEL*.
•• CHAINING *. YES
••
CHECK
••••••
••
.A3

........

.*

i

••••• K3··········
• Move A X'19'
•
• MESSAGE CODE
•
.INTC. THE ERROR •
.QUEUe ENTRY FOR.
• UNUSUAL SENSE •

.................

x
•••••
·JO •
• C4·
•
BUS

..

J4

••
••

4

.•

·YES

i
.*
•••
• JQ •
•

..

SI •

o

.*

-NO

•

i

••

IGNORE
ALLOWED

*•

H5

ic

-NO

MESSAGE COOE IS
INTO THE MESSAGE
AREA OF THE ERROR
ENTRY BLOCK IBYTE
THE ERROR RECOVERY
FOR THE PROPEA
MESSAGE.

.................
:X •••••••••••• :
.. .*. ..
.............. .... ....
··......
.... .'. .... ···•.J5·······
.... .... ..... .........•....
• ·.·.H4 •• • ••• •
TURN ON BIT*
•
• FOR INTERVEN-*
•
nON REQO
•
• WI TH A X'40' •
•
IN ERR FLAG •

*

•••••••••••••• ***

•
TES T SENSE
•
.BLOCK AND HOVE •
• INTERVENTII.JN •
.REQ MSG TO ~SG •
.NO. AREA
.Kl"

•••••••*•••••••••

.*.X

TU~N ON SlT.
FOR INTER\I
:0:
REQUI RED
•
WITH A X'40' •
IN ERR fLAG.

......•.......

ic

'.0

.*. ••

.•
*.
YES •• EQUIPMENT ...
••• ....
CHECK
••
••
.A4
.*

..~

COMR
•••••Hl..........
H3
••
• MOVE A X'lS'
•
••••
• MESSAGE CODE.
YES.. COMMAND ••
*INTO THE ERROR .X.. ••• •••••
REJECT
••
.QUEUE ENTRY FOR.
••
.A4
•
• CMNO REJECT *K2.
••••

...........•.....
•• ••••
1 •
•

-NO

•• _NO
••

o

·····Jl··········
• MOVE A X'2S'
•
• MSG CODE INTO.
• ERR QUEUE ENTRY.
• FOR CHAN DATA.
• CHK
.K2.

••

•• SUS OUT
•• yes
••
CHECK
••••••••
••
·A4
••

•••
OAT
G3
••
• •••• G4 ••••••••••
••••
• MOVE A X'H'
•
••
DATA
•• YES
• MESSAGE CODE •
••
CHECK
•••••••••• x ...no THE ERROR.
••
*A4..
.QUEUE ENTRY FOR.
••••
.OATA CHK
.11.2.

•

i

i

X

i

MULTIPLY BY

.- .-. ..
.......C3

•

·.···Gl·····....·
•

THE PAPER TAPE SENSE DATA BLOCK OF THE ERRLR QUEuE
ENTRY IN THE ERROR RECOVERY BLOCK 1 S TE~ TED fOk
PROPER ERROR CONDIT ION-ON BITS

•• ••••
•
• 1 ••

• LOAD ADDRESSES ..

.. R9 AND ERROR

'A4

l~~~!R A~~A~~W~ T~~~S.

•

•..•.81··········
..
..

$$~NERRX;

Paper Tape ERP--2671 (Part 1 of 2)
Refer to supervisor, Chart 18

Chart JP.

•• NO
••••••

x

.--

•
•
•
•
•

AND X'8F' •
IN FLAG AREA •
TO TURN OFF
•
INTERVENTION.
REO 8IT
•

.JQ •

• 01·

MOOCCW

ic

•••• •
•
••••••
o

• 5

....
i

•• 4 ••
••••••
Appendix H. Detailed

Flowch~rts

465

Paper Tape ERP--2671 (Part 2 of 2) $$ANERRX;
Refer to supervisor, Chart 18

Chart JQ.

•• ••••
••
6

·.....
.....
*JP •
• J4*

••
•

•....82··········
.................

••.•.81·······

X

X

'"

•

OR A X'IO' '"

'" INTO ERR FLAG-

•
•
..............
'"

TO TURN ON

•

I GNORE FLAG '"

•
•
•
•

•

.·.··Cl·······
AREA TO TURN

OFF INTERV •
REa BIT •

*JP

x.

Moocew

x

.. J4*
'"

GEl ADDRESS

..

WORK REG 15

.. OF CCW MID
• LOAD IT INTO

•

•

GET RE~JOUAL

•

NEW ceN tHT

..

:c~¥NI~DA~¥oAE TO:

..............
·.........*. ..
.....01··········
.................
•

•
•
•
•

X

AND X'8F' ..

.. IN ERROR FLAG'"
•
•

110 AREA
ADDRESS IN
teN HOLD
AREA

·····C2··········
.................

X

..

STORE UPOATED ..

'"

.. IN HOLD AREA

•

•

.....02··········
.................
X

..

..

•
..

..

GET ADDRESS

OF

tew

AND

•

•

_RESTORE UPDATED-

'"

•

..

*

e.ew

IN

WORK REG 15

..

•

.•.....
••
.

.....
•.•

.JP-F3
JP-J3

• JP •
• 02·

••

BUS

·····C4··.·······
X•

•
•

MOVE A X'09'
•
MESSAGE
CODe.INTO THE E-RROR •

.................
.. ..
..... ........
..
.QUEUE ENTRY FOR- BUSOUT CHECK •

:............................. X:x
RETRY

04 ._. _ •

!~~.:.

REJRY
·05

••

x

x

F1

.'.x

••

.. .... .....

•• ERROR ••
..
ON
•• YES X
•
••
lAST
•••••• X •••••••••••••
·.CHARACTER.·

•*

...

x

*NO

.

• JP •
• F2·

*

THE PUB ERROR COUNT

AREA IS C.OMPAREO TU
A X'Ol' TO SEE JF

RETRY HAD BEEN EXECUTED •

.:.
••

'Ne,

·JP •
• F2 •

.*. *.
E1
•* A/'.IV *. *. NO
...
*.
DATA
.* ....
*. READ
IN .*
*.
.*
*••
·YES

'05

·····E4
•••••••••••
•
X

•

SET THE PUB

•

.................
•

•

*

ERR COUNT
•
TO X'Oll •

AREA

•

·····F4••i ·•••••••

• LOAD ADOkESS

•

·..................
•

•
•

OF RElay

tXIT INTO
R15

•
•
•

• *

·····G1··········
X

•
•
•

HOYE CCW
TO CC~ HOLD
AREA AND MOVE
RESIDUAL CNT
TO HOLD AREA

•
•
•
•
•

.................
•
•

i
·····G4•.••••••••
•
•

MOYE A ZERO
INTO LAST

•
•

.................
•

•
•

BytE OF FETCh.

NAME FOR

•

BRANCH

•

'H5
THIS ERP EXIT RETUR,..S

..••.Hl··········

TO A-TRANSIENT.

X

•

LOAD CCW CNT

•

• INTO WORKREG
• AND

*•

•

•

•

.................
sus TRAC T
RESIDUAL CNT

•

·····Jl··········
.................
X

•

SUBTRACT

•

IT 110 AREA

1

•

ADORESS

•

• FROM WORKREG
•
AND ADO TO

•
•
•

•

....x
....

•• 6 ••
• •

466

DOS System Control

i

•

.····HI.·········
..............
SYC 3

.H5

•

.RETURN TO EXRTY'*
•
CHART FW
•

Chart JR.

$$fu~ERR9:

Optical Reader ERP--1285i
supervisor, Chart 18

it • • •

Refer to

A21t •• -It • • it • •

$$ANERR9

.

.

X

*****82*.* .... it it • •
I NI TI ALIZE
REGS AND
AREAS

...

....
..

*JRA-C3

JRA-C4
JRA-H 1

JRA-r3

X
cz'" *.
_.. '"·UNUSED
SENSE

it.

BI TS

* ... "

**** ••• '11********.

-NO

:
OZ'"

.. " CHANNEL *.

.. "

*.

iI... :x. ......................... :
1

: ••

FETMSGW

*.

DATA

CHECK

* •• *

.'

.*

X

*****04**********

*

..

YES

.* .................. .

PUT AN M

•

IN FETCH
NAME

*NO

.*

NO

..... *.

CDATACK

X

..

FOR CHAN.

••• * .. E3****iI**
*-It SET MSG CODE

EQU! PMENT
••
CHECK
.. "

..

•*
* ••
*
·YES

x
*.iI ••

...

OAT A CHECK

.*.

x

-..

*E 4***
**** **
* • ...SVC
3 FETCH

..

*

..

* •••••••••• * •• **
.*

MESSA.GE

WRITER

***.*.* ••• * ...... *

*

****

+JRA-C2

* *

EQPCHK

.-"**FZ*

._il.*.it.*X

*..

POST EQUI P

..

..
..

CHECK ERROR
TO CCB

..

•

*

*JRA-Al ....

*

....- .*.
........

ONERTRY

.'
*.

F3

EQUIPXIT

*.

ONE
RETRY

***·*F4*******
YES

.. * ........ ~ ..... x.
:

'.

SET OP
INTERVEN.

*

REQ'D FLAG ...

****** .. *.*._**

X
·"**·G3·-"·--·_··
PUT ONE

IN RETRY

··

• 1

COUNTER

x
......
. ..

*J RB-A2 ....

*

)

Appendix H. Detailed Flowcharts

467

Chart JRA.

.
.--

Optical Reader ERP--1285; $$ANERR9:
Supervisor, Chart 18

Refer to

*****

.. *JR-E2

INTERV

Al

•••

JR-F2

*.

. '"

A3

.-.

NONREC
*****A4**********

..

4.

*. YES
.*
*. YES
..
•• INTERVENTION . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . x... NONRECQVERY .4- • • • • • • • • x.
*. REQ'D .*
*.
.*
..
*.
.*
*.
* •••
* •• *
OP

.oil-

-NO

.+

*.

.*

BI

.-.x *.

4-

*

TO ceB

4-

-NO

*.

*****82***** •••••

*.

..

YES

..

RTN.*

..

NONRECOVERY

..

*..*
* ••
*
-NO

...

POST

NONRECOVERY ••••••••• .oX.

*.

..

POST

NONRECOVERY

TO

..

eea

..

X

*****83**********
*
LOAD DP
*
* INTERVENTION *
:
REQ'D MSG.
*

-

X

*****B4*******
TURN ON
PASS BACK
FLAG
- 0

4-

*****.***********

:x ................................... :

C1

*.

.0.x *.

··*·*C2···*···**-

BUSOUT
*. YES
•
•••••••••• X.*
...

BUS OUT

*. * ... -

0

SET MSG
CODE FOR

-

X

*****C3*******

*

BUSQUT

-

SET OP
INTERVEN.
FLAG ON

X

o

*****C4**********

**

*

*

LOAD
NONRECOVERY
MSG

*0

*

*

'NO

....

•

0

x

0

•• X*JR •
.. F3*

.* .*

-

***.

•

2

•

01

.'. *.

DATA

CHECK

*. *.
.*

..

.0

-.

OVERRUN

•

-.

*•

*. *.

.

YES X
•*
.* •••••••• x*.

o

.*

*.

4
RETRIES

* ••
*
-NO

0

ANN~~***E3**********

.o*
*YES

.-

SET MSG.
CODE FOR
REJ. CHD.

.

*. *.

.*
.0

X

*

YES
*
.. * .............. X*

*

.

*****F2it*********

*. *.

NO

-o

CMNDREJ
i
*****G 1**********

-

0

...

• OVERRUN E2·*· *.

-NO

F1

0

o

* •• *

.*

0

.. .. X* 2

.tt

• * REJECTED
*.
COMMAND

ceB

-

E1·*·

.
_

0

• *

*** . . *... ** *_ ... *.* ..

.-

X

*****
*JR *
* 04*

CHECK TO

...o

•o~~~;~4
_ *

'
.
* ....
*

*** •• OZ*** ••• ***...
*
POST DATA

YES

........... X.

x

*****
*JR *
* 04*

INCREMENT
COUNT

SET

OVERRUN
HSG

*

(

X

*****F3*******
*
SET OP
*
*
INTERVEN •
:
REQ'D FLAG

_

*JRB-A4

x

*****
-

0

0
•

x

*****
*JR *
* 04*
o

0

*JRB-A2

***.*************

X

*****H1*******
•
TURN OFF *
RETRY +
IGNORE
FLAGS

x

***'*'*

-.

*JR *
* 04*

(
468

DOS System Control

Chart JRB.

Refer to

Optical Reader ERP--1285; $$ANERR9:
Supervisor, Chart 18

..... _..

*.!tA.

-

X
* ... It **A2*._.*"

>

.. *JRA-F 1

+JR-G3
J RA-F2

RETRY

..

----

- 1

~

_.* .

btl ADDRESS
OF RETRY
EXIT

.It
'II.

:x ........................................... :
x

eYT E OF

YES
.!t ••••

CHECK

---

.-.

B4
it.
.* KEY-

...

FETCH
NAME

A4·*·

CHAINING

it.

* it • • *82 ... * •• _••• -.

... ZE:RO SEVENTH

.-

X

BOARD

.it

YES

it.

*.**.S5 •• *.** ••••
..
POST
...

•• CORRECTION .* .....••. X.
it.
RH)I 0 ...

*. * ... '" .*

KEYBOARD

CORRECTION
TO eGa

.................. .

-NO

:x ....................................... :

x

C4 . i t • • •

X

*.**C2.··**·*"svc 3 FETCH

---_.... -.....MeSSAGE

.>

ANY

ERRORS

it.

i t . !too
POSTED . _

WRI TER

it • •

••

..

NO

* .....

x

*

•• it.*

.. YES

-.

*JR ..

.. C3-

CONTINUE

-

X

···**04· •• ••••
TURN ON

IGNORE
FLAG

.

X
•-. ···E4··**·
.. eea
._ ... _._ ..__ ._._ -·***
*
*

..
SET
_FOR USER ERROR

..

RECOVERY

...

..

x

-****.

- - 1

-

)

Appendix H. Detailed Flowcharts

469

Physical Attention-- Send Message~
Refer to supervisor, Chart 20

Chart JS.

o
o

..

·.··AI·········

0

SSANERRY

•••••••••••••••

•

0

•o•••••
I

•••••

....

o
o 2
o

•

••••• •••••
·Jr·

·..··01··········
.................
X

I JBPAR2+8

-lO ADOR IN REG.

.. 9 OF COHM RGN •

•

$$ANERRY~

AND IN REG 13 •

.. OF PI8 TABLE

•

•

..

AOOR

....

•• F3 ••• X..

·····Cl··········
•
•
..

.. ..

.................
• REGS STORED ANDsvc 2 BOUND •

..

.0.

x

••

•• °NO
•*

.0

:-.;~~~~~~~

.JT •
• F3·
> 0

.................

.................

12 OF ERROR

..

•
..

P 10CS ERROR
COMM REGN

•
•

.BLOCK.

THIS IS-

·····EI··········
X

.. MODI FY PHASE ..
• NAME IN ERROR.
•
BLOCK TO
•
SSANERR'Ol'
•
•

•••••••••••••••••
•

0

···.··Fl·. ·....•..·
X

•
•
•

SET RIK
EQUAL TO
X'Ot'

..
•
..

.................
•

0

X

• TO Pl8 TABLE
•
AD DR TO
NCREI1ENTPIBTO
_• I PROPER

lOGRTN
i
·····FZ··········
• PUT OUTPUT AOOR.
.FOR MSG IN CCW2.
• AND CC~OA. PUT.
• TYPIN ADOR. IN •
• CCW3 FOR REPLY •

.................
....

·.•·.G1··········
_SET SYSTEM MASK-YO PREVENT EXT •

.................
.. INTRPT.
LOAD"
.. COUNTER IN
•
• REG 12 WITH 3 •

JT

0 •••••

.

LOGI
•
• • ••• G2··········
• STORE TYPOUT 1 •
• AD OR IN DATA •
• ADDR PORTION •
OF CCWI
•
•

.................
o

·····03······.·.·
.................
• LO LUB TABLE
OAODR IN REG 15
.GET SYSLOG PUB
•
ENTRY AOOR
IN REG 10
•

0

E3

·····04··········
.................
X

•
•

•
•

•

•

•
•

.

•••

••

•
•

WAIT

.·SYSLOG ••
..NOW QUEUED •• YE5
•• FOR ERROR ••••••
·.RECOVERY ••

........

i

• SET ATTN RTN •
o PIS FLAGS TO •
-SHOW REGS STOREL
•
AND ATT RTN •
IS ACTIVE
•
•

.. ..
.. ..
X

E4

....

(

••

x
.0.
••

.··.·FIt·.········
X

.... ....

•
LOAD WAIT
• PSW.
WAIT
• FOR OPERATOR
•
RESPONSE

•
•
•
•

.................
o

°NO

:•.......... :

•

.
i
.
.. x......................... ..
i

·····G4··········

RSTCHQ

• RESTORE USING.
.PROG CHANQ PNTR.
.ANO CHAN SCHED •
TO
.FLAGS
PUB SVSLOG.
•
_

.................

•••••••••••••••••

X

·JT •
• B2·

.....
..
x

0

•

·.···H3.·
•• ••••••
• RESET SYSLOG
•
.CHAN SCHEO FlGS.
• SO I/O OPER •
CAN DE
•
•
•
PERFORMED
•

•

• oz·

.

....

o

.................

••••
o
•

.JT .....
IF PHASE Z WHILE SCANNING
THE PUB TABLE FOUND A
X
DEVICE REQUIRING OPERATOR LOG2
INTERVENTIO
SE l
THEN IOENTI
HE fl,
F2 OR BG PR
USING
•
PUT ADOR
THE DEVICE,
D ITS
OF CCWOA
•
STORAGE KEY IN THIS
•o
IN CCD
INTERPHASE COMMUNICATIONS
AREA AND CALLED THIS PHASE.

'JI

··.·.05··········
.................

CHQOVFLW

.o •

x

••••
I 0
o
•
••••

•

E.YTE~

•
•
•
•
•

*• °NU

•
.·SYSLOG ••
• YES •• NOW ON
••
••• •••
CHANNEL
••
•• QUEUE ••

HOLDQUE
i
••• •• G3···.····.·
.SAVE PUB CHANa •
• PNTR AND CHAN.
• SCHEO FLAGS •
• HOVE X'FFI TO •
•
• CHANQ PNTR

LD AD OR OF
LABEL WAIT
IN WAITP$W
INST AODR

•• SYSLOG
•• YES
•• 110 OPER
.o • • • • _
·.COMPLETE ••

°NO

F3

••

ONO

X

lOGTST

.LOGWAIT

.................

• GL·

x

C4

._
1/0
•• YES
••
QUEUE
•••••••••••• _ .. .o • • • • •
... OVERFLOW ••

•
•
•
E5.

•............ x:

X

••

X

•
••

·····EZ··········
• HOVE PROGRAM •
·IDENTIFICATION •
FROM PIS TO •
•
• MESSAGE OUTPUT •
•
AREA
•

....

.. .0. ..
.. -.....

......:

:X •••••••••• :

o

·*··*oz*·*·····*·
•
ADO KEY
•

-LD AODR IN REG ..

•

*IOENTIFIC
•
BY NO-O
• CCW2 AND
• COMMAND

WRITE MSG
GET OPTR
REPLY

•

.....x .................

.*

·····01 ..•.•..••.
X

SVC 15

°NO

•• REG LO
•• YES
•• EQUAL ZERO ••••••
·J4

*. ••

X

............

x

CZ

0

0

•

······04···········
.............

83
••
•• MUL TJ ••
••
PROG
•• YES
". ENVIRONMENT ••••••

.................

X

• SET X'Bl' IN
• FLAG BYTE OF
•
A1T RTN PIS

• 3

.'.x

CANTLP
•
·····BZ··········
-INSERT STORAGE.
.KEY FROM INTER-.
•
PHASE COMM
•
• RGN IN REG LO •
•
·JI
•

••••

....

o
o

•

•

·····J2··········
•
*
•
•
••

•••••••••••••••••
x
o•••• •
• 2 •
o
•
••••

•• ••••
3 •
)
o
•
••••

'J4

bh~f~SIM~ImObp~RATOR

INTERVENTION FCIR FL TYPE
PROGRAM WHICH IS CHECKED
FIRST TIME THROUGH LOOP •
SO THE LOOP COUNTER IN
REG 12 IS REDUCED BY 1.
REG 12 IS ALSO BEING USED
TO I NDE. THE 1 NTERPHASE
COMMUNICATIONS AREA IT

~gMO!~~~A~~ mEN~~~RE

F2 CAN BE CHECKED AND
FINALLY BG •

(
470

DOS System Control

Chart JT.

Physical Attention-- Read Operator ReplYi
$$ANERRYi Refer to Supervisor, Chart 20

.....

•••••••
••••••

*JS •
• G4-

•••

82

.•.i

• 3

··2~leNswIlcA!=····· :

·.··.e2
..··.·•.··•
•

·····C5········.·

i

•
•

LO ADDR Of
CCW2 INTO

..

....

••u9!!EiT sw >. YES

.....

•• BYTE ••

•••• "
• 2 "
" "

·NO

X

o

•
•

REG 0

..

•*
-.
*. SYSLOG .* .*
*.
.*

•
RE
• ON

• J2*

E2

oo*oo

•*

.".x *oo *oo

WAS

•
•

•••••
*JS •
• C2"

••••
" "
• 1 "
"••••"

*..
·NO

.".

*••
>NO

.

.>.

•
LD REG 15
• WITH AD DR OF
SUPVR
•

LD ADOR OF
INVALID

•
•

·•••••••••••••••••.
MESSAGE
IN REG 0

•
•

•

.-

*oo ·YES
.-

i

EXIT

•

*.

.... .....
•
.... •••.••••••
.
·····G3
·
.
••

•

MODIFY

·G5

*.

.•

••

x

.YES

••••> .
•

•

••••••••••••••

•

IN REG 15

>

*G5

DURING LOOP IF PROGRAM
STORAGE KEY FOUND
INDICATING A DEVICEIS)

X

LOAD ERROR
BLOCK AODR

•
•

•

B2·
> •

>

SETARDN

INSTRUCTION.
AT LABEL
•
CNelSW TO •
BRANCH
•

·JS •

•• x..

"

·····G2·······

X
•....HZ··········

• INSERT LTK FROM•
• INTERPHASE COMM.
• RGN INTO REG 0 •
•
TO IDENTIFY •

.................
> PROG CANCELED>

·····J2··········
X

• STORE CANCELED.

•
PROG LTK IN •
'INTERPHASE CDMM"
• RGH WHERE CNeL •

.INFO KEPT

•

F3
••
•• LOOP
••
•• eTR IN
NO
•• REG 12 ZERO ••••••

~~¥~~et=i [8~!R: Ta~SSAGE
USo~:S&Lf ~2~m

•

•

•

FOR FI AR ••••• HE.E
THE OPERATOR IS TO
TVPE HIS RE PONSE,
IGNORE DR
CEL.
IF H
NSE IS
OTHER
NORE OR
CANCEL
PHASE
SAGE
I SSUES
OP600
a RESPONSE
AND OP
REPLIES
AGAIN •

•••••••••••••••••

.A3.

•••••••••••••••••
x
••••
••• 1 ••*
••••

CNeLSW

.*

m

IS OUTPUT ON SYSLOG.

•

x

•••••
*JS •
• G2••
•

•
•
•

ATTENT ION

i x......................... :

POSTCAN
•
•
•
•

•

.>.

TCAN2

*oo

• 2

•
•

TCH.

.....es··········
.................

.*

WAS t.
.* oo-RESPONSE
OPERATOR *oo
._
*. CANCEL .-

•
•

sW.
T RTN •

BYTE

X

NO
........................... t.

*oo

PI

"

*.

i

F2

•

:

•••••••••••••••

OPERATOR
YES
..
RESPONSE
.................... .ox.
-. IGNORE .-

*oo

$$ANERRO

i

112
YES.*
UNIT
_.
••••• EXCEPTION ON

i

C~2~FloP~:r~

•

:x............ :
•••••
•T••••••
•
ATT •

.•.i *.

•••••
*JS •

:

•••••••••••••••*••••

•••••••••••••••••••

i
••••• Gl ••••••••••

•••

B5
••
.0 ATT ••

* ·~~~=~~LE *. *. YES
*.• *.
ERROR ON
.* .......
SYSlOG .*
*. *•• - .*
i
• NO

INVAL

i

CNCLMSK

*oo

X

•••
H3
••
..BRANCH ••

.... ....

IF ANV
•• BR
•• PROGS WERE • * ••••••••••••••••••
·.CANCELED ••
·ND-OP

X
•• ••••
•
3 •
•

••••

0

X
•••••JIt·········.

tALLSEC3

.TURN ON ATT RTN •
.RECALL SW IN AR.
oPIB. LO ADDR OF.
OSUPVR ATT EXIT •
• RTN IN REG 15 >

•••••••••••••••••

•
:

••••KIt.i
•••••••
sve

.. ..........
3
1'~NERRZJUj

~

•

:

Appendix H. Detailed Flowcharts

471

Physical Attention-- Initial PUB Scan; $$ANERRZ;
Refer to supervisor, Chart 20

Chart JU.

··.......

·· ..
• 1

X
·*··*A2······
. ···
.-.-.-.-.-.-.-.-.
.PUBSCN

..

•
•

..

:

~~~.~~.~~~;

.. GET COMM REGN ..

... AND Pie TSl
.. ADDRESSES IN
..
A PAIR OF

••

..
..
..

••
••
••

: ••• ~~2!;!~~~ ••• :

B2

x
.*.
••

ENO
OF
PUB
SCAN

"

..:
•
...

····B3···.···.·
SVC 3
FETCH

........
YES

•....
..
·· ..
.~

·NO

• 2

.•···Cl···. ···
i<

..

SET ATTN

:~~~~~.-.-.-.-~~:

.................
• F I NO PROGRAM
..
THAT OWNS
THE OEVICE
•

BOUND"

•••••••••• ****

...

NAME TO
RET TO THE

• : . F2
••
PROG

.................
SUPERVI SOR,
$SANERROI

•
•
•

·· ..
• 3

X

..02··· ••
b~'BG
......

i<

.····01·. ·•·••·••

.. MODIFY PHASE
..
..

•

·····C2. •••. . . •··•

..

REGS STORED
..
AND SVC 2
..

..
..

!!~~~~~r ..... "

i<

PIe FLAG TO ..

..

•

X

••

... ..

4

CALLSEC2
X
·····A3·······
•
SET FETCH.
•
PHASE NAME •
TO
•
•
S$ANERRY

JV.

SCAN FOR
[NTERVENTI ON

X

·····SI··········

IJBPARl+8

•

F INDPUB 1

·····Al·········.
$$ANERRZ

•

..

•

.···.03···.··.···

EXIT

X

•
SET REG 15
• WITH ADOR OF
GENERAL
•
EX IT-TASK
•
SELECTION

•
•
•

.. ....x .................
.:.~~ ••

••

•

• YES

·

• 1

.. "

.*

*.

El
IS

·..··E2.·········
X

*.

X

• CA LC STORAGE •
•
•
PROTECT KEY
.VALUE AND STORE.
• IN INTERPHASE.
•
AREA
•

NO
.-.u
.

*.
.*

····E3···.·····
•
SVC 3
•
-FETCH $$ANERRO *

.................
·· .. ....x
··
·...•.Fl·······.
..............
··
*.

SVSlOG A

1052

X

*. * •• *.*
-YES

-•• ~~.!!2~!!~! •• •

••••

• 3

•

X

.F3

THIS SWITCH IS ON
ONLY IF THE ATTENTION
KEY HAS BEEN PREVIOUSLY
DEPRESSED.
THIS
CONSTITUTES A REQUEST
FOR AN EMERGENCY
CANCEL AND CAUSES
$SANERRO TO BE FETCHED •

• 1

PREVENT
EXTERNAL

..

..

INTERRUPTS ... "

• 2

·····Gl·······
i<

..

ENDPUBSl

..
LTKHLD
..
.. WITH LOGICAL •

..

..

X

•••
G2
••
• ••• PENDING·· •• YES
·.INTERVENTION ••••••
·.REQUIRED ••

MODIFY lBl ..

TRANSIENT"
KEY"

•••• .....

••••••••••• **.

X

··......

·NO

••••

• 4

HI

...x * •

• * • - RECALL * • .... YES
*.
SWITCH
••••••
*.
ON
.*
*.
.*
x
* ••
·NO

.....
..
• JV •
• A1·

,·····Jl··········
·..................

SECTIONl

...

X

CLEAR

..

..
INTERPHASE
..
-COMMUNICATIONS·
•
AREA
•

i<

•• ·.·Kl··· ••• • •• •
SET L TK
•
•
• SAVE AREA IN •
INTERPHASE
•
•
• AREA TO ZERO •

·..................
··....x .
• 1

472

•

SEeTl ON3

x

: •••• J2 ••••••••
SET FETCH
PHASE NAME

TO

•

: ••• !!!~~~~2 •••

•

•

:x .......... :
x

··••.K2·······
•

TURN ON •
ATTENTION •
REQUEST
•
•
SWI TCH

·.~...
: 3

DOS System Control

:

.

•

Chart JV.

Physical Attention-- Cancel Routine and Physical Attention
Subroutines ($$ANERRZ) Refer to Supervisor, Chart 20

•••••
*JU •

~

00

•

••••

i

SECTl0N3

••••••••••••••

•

....•.•.

·····el·..i ·······

•*

*.

• > OPERATOR

NO

•

>

.*

•

i
·····E1·······

•
•
>
•

SET CANCEL >
FLAG IN
•
APPROPRIATE 0
PIS
>•

o

••••••••••••••

••••

*.

•
•

>

X'59' I~
PI8

•

•

••••••••••••••

x NO

LD REG 15
WITH ADDRESS

•
•

oFIND THE PROGRM.
•
THAT OWNS
•

••

FZ

•0•

••••CO~CiL

••

•
•

> OF ATTN EXIT

>

o

>

>

(EXT021

0

•••••••••••••••••

fl

••

••

F2 OR

BG PROG

..

x
.0.

>.

..··Fa..•i ····•·

•• NO

•
SVC :3
•
OTASK SELECTION>

••••••

•

x
••••
•

..

••

*.

....
EOJ

...............

>

.....-..
eYES

i

•••• E4 ••• ••• •••
RET TO ADDR >
IN LNK REG
•
•
PLUS 4
•

>
•

...............

LTKHLO
i
·····ES··········
> PUT LTK INTO >
>
o REG 10 AND
•

>
•

INTO

•

INTERPHASE

>

AREA
•
•••••••••••••••••

.

••

••

SA':~
PROG

.:.~~~.

.-

oNO

•••• 0

i
·····65··········

i

•

••••

•o 1

••••

••••

•••••••••••••••••

F5

>

o •••• 0
> 4 •
•
>

·····HZ·
•• •••••••
•
PREVENT
•
>INTERRUPTS AND>
> SET DEQUEUE >
.exn IN REG 15 •
>
IPUBDEQI
>

.. ..
..-.....

.:.-.

•••

•

••

i

*••
eYES

..IN LOG CAL o. NO
o. TRANSIENT .> ••••
•• AREA
••

.

·YES

: ..... *. *. Tki~li~~T.*·*
*.
.*

..-.....

.>.x

>~~B !~ .•.

QIDCKI

• ZERO REG 10.
•
UIEO TO
•
PAS KEV TO
C LLiNG

CANCEL
•• NO
•• DUE TO NORMAL ••••••

>

*. *.

...: •

i x•••••••••••

...... .... ..

••

••

i

Hi .>. >.

••

o.REQUIRED .>

ENDPUBS3

•
THE DEV ICE
•
•••••••••••••••••

G2

•

i

.> •

:.~~.:. 6~~'rOH

X
.....E3··········

i

••••• E2 ••••••••••
>QUEID
JV>

.-.-.-.-.-.-.-.-.

• 4

•

04

.YES

·YES

COOE TO

..

.

••

•

>

.....-..

0

-.

i
::'l~:=t:~·

-•

ENTRIES
.- ••••
>. SCANNED .>

>

*..
>NO

:••

•

.•.i

>NII

•

i

.·CANCEL -.
YES •• 1N PROGRESS>.

••

°NO

i

...... • *. _ OR
ALREADY ... CANCELED .*
*.
.*

C4

•

••••>

.. .... ..

• 0.

Fl

o

•0 •
o 4
••
END ••
•
OF
•• YES
puSSeAN
••••••••••••••••••••

02

•
•

.'ALL pue ••
••
TABLE
•• VES

•

i

• ••••>

> 2

o

INTERRUPTS

x
••••

i

* ••
eYES

o STEP THROUGH
>
PUB TABLE

: ••••I'I=I!I••••:

X

•••••••••••••••••

••

OADD8TOTHE>

•••••••••••••••

>

•>

.PUB ADDRESS TO -

•• RESET
•••• C3 ••
••••••••
PUB
ENTRY.
.ADDR IN REG 15 •
•
AND ALLOW
•

•
0
•

•

QUEIO

•••••••••••••••

·····B4··········

..··S3.········
SVC 3
•
PUBOEQ
•
CHART GH
eKJPI

•••••••••••••••••

••
••

•.•• O£I~g~L IS ••••••••
*.

•

•.••

•
SCAN FOR
• INTERVENTION
•
REQ IN PUBS

•
•

*. >.

>
•

••

.•.•

.
.X

>.

....

•••••••••••••••

·YES

>

•o

• •••••••••• X:
X

i

••

........

i

• >.

PROGRAM

o

0
0

PUBSCN

o

0
>

··.·'5.........

o•••• A4 ••• ••• •••0

>

•••••••••••••••••

.-.-.-.-.-.-.-.-.

•
>
•

•••••••••••••••••

01

ALL

••

•
>

PUBSCN3
••••• CZ··········
>PUBSCN
JV.

CNCLLOOP

PROG TO
BE CANCELED

.0.x

c~I~~io

·4

:X •••••••••••• :
•
•

B2

....

•••••••••••••••••

ZERO A REG
AND LOAD IT
WITH KEY OF

••

NO ••

> 14 NITH LOOP •
• CONTROL COUNT •
•o
OF 3
•
>

•
>
•

i

••••• 13•• ••• •••••
>LO ADDR OF PUB 0
• ENTRY FOR OEV 0
•
IN REG 3
•

:
: tIs. ~UR :
• MORE CANCELS •
•••••••••••••••••

•

SET UP REG

>

0

cB=¥X6~ ~88~T

sET:~~l~al.! ••••••••
•

0

••••• A2· •• •••••••

:

•
RESET RE- •
• 6ALL AND RE- •
oQ EST SNITCHES •
•
IN PlB SN •
BYTE

•••• >
•
>
••••

o
o 3

0

X

STEPLOOP

••••• Al· ••• •••

•

...

o
• 2
o

• HI-

>
>

: ••• !!2V!=i~ ••••:

•0

: •••••••••••• X:X •••••••••• :

i
.••.Ha·········
•

•
svc a
>CANCEL AND
•

•
•
•
0

RET >

TO SSANERRZ
•
•••••••••••••••

i
•
>

• ••• HS •• ••• •• ••
RET TO AOOR 0
IN LNK REG
0

>

•••••••••••••••

•

i

•••••Jl.i•••••

·····J2·.········

••••••••••••••

:> ~~~Y~~EANIO :>
•••••••••••••••••

•
o
o
•o

i

SET CANCEL •
BYTE IN
0
APPROPRIATE 0
PIS
•
0

BYC=~ •••Kl.i ••••••••

: Nm ~~8RlaF :

o

PUT CHANNEL
AND UNIT

...--

>
>

•

•

••••>

i

:•••••••••• X:
:

o
•

o •••• •

02

CA'~~~A~fIT

>

• 3
•

••••

0

0

0

:

>

•••••••••••••••••
i
••••
0

>

> 1
o

••••

0

0

Appendix H. Detailed Flowcharts

473

Chart JW.

Physical Attention-- Emergency Cancel (Part 1 of
2) $$ANERRO; Refer to supervisor, Chart 20

(

••••A2 •••••••••

•• IfANERRD ••
•••••••••••••••••

•• ••••
•
1 •
•••••
•

.•.x

·····S2··.··••·•·
X

• LDA
• COMM
*REG9
• PIOCS
.8LOCK I

B3
••
••••

OF.
IN.
F.
R.

••••

·.···e2•••••••
MO IFY

•

PHAS

•
•

IN
BlO

•

•

FIRST MESSAGE FROM THIS

Gm=-

•••••
ez.i••••••••
• PUT ADDR OF •
:
•

*•

••

:PAR43

JX-Cl
•••••
••••
•
•••

....
i

•••••••••••••••••

:
:
•

SI~oANr~T

fim~~R
IN REG a

:
:

•

• YES..

••

.-.x

••
IS
••
SYSLOG
••

• •. ·C1 ••

•• • o.
• NO

..x•••••••••••.

i
•..•...z·••• ••••••
•

-AI

:
•

.................
··...........-.x..
.......;;.........
•
•
.................
: MefA1=~C~l

i

PAR4;·"
••
:

LO
UR ;fuFI I .•
YiiTHAI
:

-

•e

• •

474

1

DOS System Control

........
OK

.:.~~ ••

••

x

•••••
·JX •
.. G3•
•••

MAlTl

.. ..
x

Fit

•••

••

-....-..

••
110
•• YES
•• OPERATION ••••••
•• COMPLETE ••
_ND

:
p!BA¥oIlCIIr
_ FOR OPERATOR

:
•

•
•
.................
•

REPLY

•

:X •••••••••• :

....-.-....-.-....-.

.................

• RUTYBE USEII . puiYSLDG :
·:OA

.....

J~. . . . . . .

: IkRTiRS
l

:

ro :
.................

•
.:

C;C811IN
ItEGJ

J ..

••

••

sTl'YEo

.........
!.......JX-.
.PTRIICH

PAR4l

:

••
•

••••OG4*!••••••••

63

:••••••••••••••••••••••••x:

~JOBM~

•

•••••••• "2:t.2B ••••

•••••••••••••••••

:

••

•••••••••••••••••

•

J..

•e

2

·ND

..05.•.•...
....
x

NO •• OPERATDR

••

• • •J1 ..YES

i
•••••
• J ••

_YES

••••• F3· •• • •••• ••
•
CDMPARE
•
•
CHANQ
•
•
• POINTER IN
•
• SYSLOG PUB
•
TO IFF'
•

•
•
•
•
•

.•.x

.- ..
E4

• :.

• NO

•••••FZ··········
•••••&z.i••••••••

•.

*. •• ERROR
••
RECYY ••

•

.....

• J3.

•••

n

••

•• .. •• •• RE~~f~~o .....

•

•••••••••••••

•• IS
••
.:.QU~~~~O~OR .:.!~!.

X

·j~:~l

IN REG 10

············x

•
AODR BYTES
•
•••••••••••••••••

• SET AOQR OF
CONSTANT
•
• AR IN DATA
• AODR OF CCIiI
•
AND CCII3

X

SVC 15
COMH. WITH
• OPERATOR,
.E1

.................

• SYSLOG DEVICE

\~BSkI~Am :
INSTRUCTION

•
•

.*.i

·SYSLOG.·

x

•• ••••
•
4 •
•••••
•

•·.•.·04.··.···.·..

X

•
CALCULATE
• PUB AOOR FOR

C5

0[0 ••
YES.:iII
UNIT
••
•• ••• EXCEPTION ...OCCUR ON ••

•••••
•
2 •
•• ••••
•

·····03··········*

•
•
:
•

•••••••••••••••••

i¥gR YREmE~us~RiiE·
AS DISCUSSED IN CHART
JX-A5.

••

•
•
•
•

..
•
•

••••••••••••••••••*

•••••••••••••••••

IN REG 15.
•.TABLE
••••••••••••••••

X

AR 11~OO EMER-

LO AOOR OF
teW3 INTO
REG 0

i

•
LO AODR OF
• PIB TABLE IN
• REG 13 AND
.. AooR OF LUB

ME.

• MOYE X'OI' TO
• RJK BYTE IN
: S¥B~O~Xt~ij~L
• INTERRUPTS

is

•

•

·····e3··········

•

·····02·····.····

PHA~E

•

:X •••••••••••••••••••••••• :

PAR40

•
'SAN
'01'.
••••••••••••••

·El

X

..3.
~Ee~S :
UNT·

x:

•• ·YES
••

X

•

.···.05········.·
•
•

• •••• B4••••••••••
•
N
CW1
•

••
MULTI
•• NO
•
•• • EN~'28~==NT.····· •••••
••••
•

U.

•••••••

•• ••••
•
3 •
•••••
•

•e

• •

•

.. ..
i

44

•e•

••

.• 511 ...

e.••••••
YES
•• _E
A8LE
.~-..
•• OCCUR ••
.;~

(

,

X

·····E5··········*
•
•

LO AOORo OF
INYALIO

•
STATEMENT
• MSG IN REG 0

•
•

"

••••••••••••••••••••
X

.·•.·F5··········

•• MODIFY ••
: cABlA~Aol~3yD :
•••••••••••••••••••

•••••G5.i••••••••

BLANK OUT
•
•
1I0RO
: INE=~R~E~i~E :
.RPL Y U~PER CASE.

.................
*

···.·H5.·i .......•

: k26All laID

.....-................:

:

US~o~TMfP :

....- . ..
:J~l ••• x.

PAll:I*MJ5.~........
• LD ADDR OF
•
• PI8
~L10 •

II

.................
:n~~ LDO~"NI~O:

-

~O NEXT PI8

•

J..

·-..

•e J •e

(

Chart JX.

Physical Attention-- Emergency Cancel (Part 2 of
2) $$ANERRO~ Refer to supervisor, Chart 20

"5

•••••
*JW •
• J5*

BI

••
•
,-,x

•·.•·B2··········

EXIT2

*oo

.*
•••••• REPLY VAllO .*
*. *. *A5 .* .*

•
•
••• X.
•
•

WAS
-.
NO ./11 OPERATOR t.

••
•

•
•

•
•

x

····.e1······....
X

.................
•

•

·····C4·····.····
• 1 EXCLUSIVE •
.OR INSTRUCTIONS.
•
ARE USED TO
•
• EXCHANGE OAT A •
.BETwEEN FIELDS.

*..*NO
.......

*. *.ACTIVE
.NOW .-

USE NEXT TtHE •

PTRXCH

X

,.,
C2
too
oot
IS
••
oo- CANCELED
*oo PROG AREA

-MODIfY INVALID.
• "5G TO IS020 •
• FOR POSS [RlE •
•

.····04·····.···
..............••

•

.................

* ••
·YES

• THROUGH lOOP

LO ADOR OF
AREA NOT
ACHve H5G
INTO REG 0
*G5

*••
·YES

.................

.....x
••
.
·JW •

• H2·

x
,.,

.*01 WAS *.BG*. *. YES ..
*.• **. CANCEL
M5G GIVEN
••••••••
*05.*
X
*. *•• - .·NO

E1
*oo
.. _CANCEL *oo

....·02··········
X

..

*. *NOW
.•• -

.................

*JW •
• H2-

...............

·05
BLANKS 1N PROGRAM
IDENT IFICATION PART uF
CANCEL MESSAGE MEANS
CANCEL ALL PROGRAMS •

•
.,
•

.E5
COUNTER IN REGISTER l4
IS USED TO SEE IF CANCEL
MESSAGE WAS CHECKED FOR
All 1 TYPES OF PROGRAM
A~~lA~~DA~~jYE I ALtO~CP~~
OF PROGRAM ARE CHECKED •

....
·NO

x
,.,
Ft
too
.*
All *oo
PROBLEM *oo NO
*.oo.*. PROG
PIBS ••••••
CHECKED ._
*. *E5 .'x

.....
...

•

RETURN
TO AODR IN
LINK REG

E2
••
•• IS A ••
..CANCEL FOR •• YES
•• THIS PROG IN ••••••
·.PROGRESS ••
•• NOW.·

·NO

:.................. x:x

•
•

,.,

* FOR PROG *oo VES.
*.•*oo
WHOSE PIB ••••••
ACDRESSED ••

*oo ·YES
.-

····Olt·.·.•••••
X

•
SET X'ItO'
•
• CANCEL CODE •
.IN CANCEL BYTE •
.OF APPROPRIATE.
•
PIO
•

x

x
,.,

OPERATOR RESPONSES CA~ BE
1. CANCEL Fl
2. CANCEL F2
3. CANCEL 8G
It. CANCEL
REPLY 4 MEANS CANCEL BG
~~RGe~~fop~~~~Y T~E~E51 WAS
LOADED WI TH ADORESS OF
INVALID ,)fATEMENT MESSAGE. IF REPLY PROVES
INVALID, THIS ADDRESS
WILL BE PUT IN CCW2 DATA
ADDRESS FOR SYSlOG OUTPUT
TO OPERATOR SO HE CAN TRY
AGAIN TO GIVE A VAlIL
REPLY.

•••••
••

.

X

••••• F2··········
•
MOVE X'61t'
•
• TO PIB CANCEL.
• BYTE MEANING •

.................
•

OPERATOR

•

CANCEL

...

•

•·JW
•••••

•

• EIt·

• JW •

• J5.

:x ................ :
X
·····G2
•
LO AD•••
DR •••••••
OF
•
• SUPVR ROUTlNE •
•
CANCEL A1T
•
• exIT IN REG 15 •
• (ATNCNU .HS.

•••••••••••••••••
X
····H2 •••• •••••
SVC 3
•
•
SSANERR'OI' •
•

............•..•

•

x
.....J2.......

END

*G5
IF PROGRAM AREA IS NOT
~~~D A¥6 I ~5tpBlS~~~El S NOT
ACTIVE' MESSAGE.

X

.-.-.-.-.-.-¥-.-..

.·.··G3··········
.PTRXCH
JX •

.................
•
•

RESTORE

USER DATA

•
•

• TO $YSLOG PUB •

.•••••••.••.•

.JW-D5,J4

X

••••• Hl •••••••
•
HOVE X'83' •
.. TO FLAG BYTE •
• OF ATTENTION •
•
ROUTINE
•
•
PIS .K5 •

·H5
A RETURN TO SUPERVISOR IS
TAKEN TO PROCESS THE

m~~A~om5~Lh~~m

TO
NEXT SEQUENTIAL INSTRUCTION OF THIS A-TRANSIENT
PHASE.

••••••••••••••

:x .......

o.o. •• o. • • o. • • o.o. ... o. • • • :

.•...J3..•••.....

EXITl

X

•
TURN OFF •
•
LD AOOR OF
•
•
ATTENTION •
.SUPVR ATTENTION •
• REQUEST SWITCH ••••••••• X. EXIT ROUTINE ..
•
IN ATTN RTN •
•
IN REG 15
•
•
PIB·
•
•

••••••••••••••

•••••••••••••••••
·K5

X'S3' IN FLAG BYTE MEANS

~¥¥~~fi~~ ~~5Tt~~R~~,

X

)

•• ·.K3·· •• •••••
•
SVC 3
•
•

SSANERR '01'

ACTIVE AND NOT SVC 1
BOUND. ATTENTION ROUTINE
WILL BE CALL EO AGAIN,

•

••••••••••••••••*

Appendix H. Detailed Flowcharts

47~

Chart JY.

Move Data to Communications Region ($$ANERR1)

(

••••••••
·•····A1.·
•••••••••••••••.
•

$$ANERRI

•

o

•••••
•
••••

•o I

X

·····Bl··········
•• GET
•
AD

o

0
RTING.
OF.

*COM

IONS

•

If

x
.0.
BG JOB

lot

*. *.

ClDOES -. too

*.. . NO
. . . ..

HAVE
CONTROL ._

*. *... - .-

·····01··········
..•..............

*

-BYTE OF PROBLEMPROGRAM AREA If
)NTO REG 9
If

·

·····EI··········

X

.

·····E2··········

•

•
•
•

If

•
•
•

GET AODRE~S
OF THE USER
SAVE AREA

•
•
•

•••••••••••••••••

•••••••••••••••••

.0.x

·····F2··••••••••

Ft

•

0

X

-.

.*. *. NO X..
*.•*BYTEUPPER
WITHIN .* .....
MAIN STORAGE-

*. *•• -.-

•
•
•
•
•

GET CONTENTS
OF USER REG 1
FROM THE
SAVE AREA

*.

..

• 'ADDRESS IN o. NO X
*.MAIN STORAGE

.-.*••
.YES

.* .....

X

..: ···HI··········:
• LOAD BEGINNING'
•
ADDRESS OF
•

o

y~~asRBaT:

•

•
0

x

*. *.

•

•

•••••••••••••••••

-YES

• 0.
-•
• _ Gl
START

•

T.
1.
•
•
•

.................
•

•

•

x
••••

• 2

0

•

•

0

·YES

:X •••••••••••••••••••••••• :

• OI50PLACEMENT
•
INTO MOVE

•
•

······E4··········.

• 01 SPLACEMENT

•

•

·····E3··········
.................
X

•

INSERT THE

•

INSTRUCTION

•

•
•

•

ADD L

• TO GET
•

.

.* •*

G3

X

SYSTEM
ISVC 221

•

.0 •

.....-..
UPPER

•

•••••••••••••
X

••

IS·.

(

0

~EllE

•

LI

•
•

• ••••• F4 •••••••••••

•

E.
T.

.. COUNT
• 01 SPL

ZERO

REGISTER 0

•••••••••••••••••••

X

•

x

ERR

·····F3··········
.................
•

•• NO •

•• LIMIT WlTHIN ••••••
..USER AREA ••

·YES

• ••••G"'••• • ••••• •
•
GET ADDRESS
•
•
OF 8G PROG.
•

·•••••••••••••••••.
•o

PIB

••

••.••H4··········
X

•
•
•

•

INSERT X'61'
I NTO CANCEL
CODE OF BG

PIB

•

•
•

•

•••••••••••••••••••

·····J3··········

• ••••• J"'•••••••••••
RELEASE

•••••••••••••••••••

•••••••••••••

X

•

MOVE USER

•

•
DATA INTO
•
.COMMUNICATlDNS •
•

REGION

•

X

I~~~T~~I

:x ••.••.•.•..•••••..•••••. :
x

•

•

•
•

DOS System Control

0

........

••••••
••••••

•••• •
••••

o 3

•

.'.x

0

•

•

Cl3
••
•• IS
••
•• IT WITHIN •• NO
•
••
THE USER
•••••••••••••••••• x•
•• AREA
••
x

x

476

REGION

X

•••••••••••••••••
• I

•

.••••H2··········

·••••.

REG 4

CALCULATE

'CALCULATE ADDR ••
• OF LAST BYTE •
• OF DATA TO
•
•
BE NOVED
•

•••••Jl.a••••••••
•

X

•

• DISPLACEMENT •
•
WITHIN THE
•
.COMMUNICATIONS •

x •••••••••••••••••
•• ••••
•
3 •
••••••
H

•••••••••••••••••

•
•
•
•

..···C3··········

x

• INSERT
.FROM US
•
INTO

INSTR
LEN

••

·YES

X

•
•

.'.x

........

•••••G2 ••••••••••

•••••••••••••••••
• LOAD ADDRESS
•
Of COMM
•
REGION USER
AREA INTO
•

B3

•• LAST
••
•• BVTE WITHIN •• NO
•• USER AREA OF ••••••••••••••••••••
•• STORAGE ••

•••••••••••••••••

X

LOAD ADDRESS
OF START OF

LOAD STARTING.
AODRESS OF
•
THE PIB TABLE.
INTO REG 1
•

•
GET ADDRESS
•
• OF THE LOGICAL ..
• TRANSIEI\IT SAVE.
• AREA OF THE •
• ATTENTION PIB •

•

•
•

•
•
•

X

•

If

• PROBLEM PROG
•
AREA INTO
•
REG It

.
.................
X

·.···C2··········

·····02··········

X

LOAD ADDRESS
OF UPPERMOST

·
•

• YES

•
•

0
•
•
•

••••••••••••••••••

0

• If

LOAD ADDRESS

• OF LA~T BYTE
.. OF USER AREA
•
INTO REG 5

••••••• •••••••
•

o

·····82.·....·•.·

X

•••••
0
•
••••

o

• 2

0

••••K3·········
RETURN TO

SUPVISOR
VIA SVC 3

•••••••••••••••

•

•
0

(

Nonresident Attention/Initiator Root Phase
($$BATTNA)1 Refer to supervisor, Chart 21

Chart RA.

·KB-El
KE-E3

KG-HI
KS-Jl

1·········.
·•····'
••••••••••••••••
•

UBATTNA

•

•o••••
1 •
•
••••••

5

X

•-OVERLAY PHASES
AND·
•

•••••••••••••••••

·····C1··········
lOAD THE

e2

•

• 0.

•• SWITCH

•• ON

0

•••••••••••••••••

••

X

••

·····02·······

.................

..............

•
•
•
•o

eea

INPUT

•0

·····E1··········
X

•
•
•

•

pur

ADDRESS

I NYC OUTPUT

•

Joe

IN THE

•

•

REGION

•

0

X

••

.................*

••

• INTO A REGISTER.

•

••

••

••••••••••••••

*. *•• -.-

•

........ ....x
....
EQUAL
1052

••

••••••

o

..............
•

.

'--"',

0
0
0

•

X
••••• HI ••••••••••

0

.................
VECTOR TABLE •
AS BATCH ONLY.

*J2.

SYSTEH

0

•

•

X

•
•

•

•

····G4·········
EXIT THIS
B-TRANSIENT

•
•

VIA SVC 11

••••••••••••••• •

OH4

A HEX '07'IS HOVED
TO THE ATrENT I ON

····H2·····.···
X

• MOVE A HEX FF •

.INTO THE BRANCH_

RELEASE THE

o

KC •

~ENO MES~AGE

I READY FOR
•
·COMMUNICATIONS'·

•

•

: •••••••••• X:

•

•

•

•o•••• F4 •• •• •• • 0
•
SVC 22
•

•• NO

.ERRRTN

o 1

.H4

X

••

SY~LOG

·····G2··········
.-.-.-.-.-.-.-.-.

....

o

PIe

•

x
••••• •••••••••••••••••

°NO

OET ACH THE •
ATTENTION •

·••••••••••••••.

X

•

•

X

•
•

o

•*
*.
•• MULTI PtE *. YES
*. *.PROGRAMM]
NG • *••••
SUPPORT ._

•

•

·YE~

t.

SEIZE THE
SYSTEM

·····E4·······

o 2

*OEtlHETER

o

x

F2

•-BUFFER
PUT ADDRESS
liD
•

•
•

•

svc 22

•• X.

• E3·

··.••FI··········*
x
.0.

CHART KE

.COMMUNICATIONS •

o

Gl

...............

•
•

•

•

• KE

••
••

•

o

i

TeST

••

DETACH
TASK

·····04·······
•

•
•

.....................
.... .*.
.. ..

•

• AND INTO THE
ADOR FU..

•

SS8ATTNB
AT EXTINT

.CONTROL SWITCH.

•
eee
•
•••••••••••••••••

• ce ..

•
•

·····e2 ••••••••••

•
•

•••

X

····03···••·••·
X

RESET.
ATTN PIe
•
SWITCH
•
8YTE
•
0

HIPARI

•

Of SVSLOG
OUTPUT teN

X

C4

·YES

X

*

•
PUT ADDRESS
•
OF SYSLOG
•
*1 NPUT tew J NYD •

o

NO..
•• ••••

°NO

·••••01··········
•

................

DTCHSZ

••

•• EXTERNAL •• YES
•• INTERRUPT ••••••••••••••••••••

•
ADDRESS OF
•
• ERROR RQUTJ NE •
_INTO A REGISTER-

o

•••••••••••••••••

.. x ..
.. ..

X

0

DTCHAT
X
••••• 84••••••••••
•
SET UP A
•
• REGISTER SO •
• THAT A SVC 22 •
• WILL MASK I/O •
.ANO EXT INTRPTS.

• USE PIB TABLE.
•
AoDR PLUS
•
• 01 SPLACEHEMT •
• TO POINT TO •
ATTN PI8
•
•

BASE.
ER·
FOR·

•••••••••••••••••

•

•••••
0
••••
: ••.•.••.••••.••••...•.•• x:
o
o

• 2

·····82·•••••••••

x
..... 1··········
•
•
•

•••••••
•••
•o•

•
•

...............

o

CONTROL
CHART KB

•

••

ROUTINE PIS FLAG BYTE.
EVENTUALLY THAT VALUE

I S CHANGED TO A HEX
'87' AND CHANGED AGAIN
TO A HEX '81' WITHIN
SVC 22 PROCESSING
ROUTINES.

OJ2
BRANCH VECTOR TA8LE ENTRY IS IN THE FORM

·····JI.······
..............II .
X

•
•
•
•

o

MODIFY THE.
INSTRUCTION.
AT OTCHSZ
•
TO sve
0

x

•

••••

....

o 1
o

)

OPERATID
• PHASE Ie

• BRANCH V
A olSPLA

THE fiRS

A NEWLY

WHEN THE NO

HAVE "PS, T

ENTRIES. WH
ROUTINE IS
ADDITIONAL
BY UBATTNH.

Of CONTROL HATEMENT
!ALPHA-CHARACTER)
EX fACTOR. THIS IS
LUE USEO IN LOCATING
BLE INSTRUCTION WITHIN
ASE.
ATTENTION ROUTINES
CONTAINS AOOITIONAL
NRESIDENT ATTENTION
NING AS AN INITIATOR,
E ENTRI ES ARE ATTACHED

0

•

•

Appendix H. Detailed Flowcharts

477

Control Routine ($$BATTNA); Refer to supervisor,
Chart 21

Chart KB.

(

4 ••• A1 •••• •••••

••
•

•0

CDHTROL

•••0

••••••••••••••• 0

o•
o I
o

••••

··.··81••X6•••.•.•
•
RESET THE
>OPERANO NUMBER
•
IN LOCATION
•
OPNUMB TO
0;
ZERO

0

•

>B4
ON THE FIRST
TIME THROUGH
CONS IDER THE
NEXT TABLE
ENTRY AS THE
FIRST ENTRY.

X

CHKSTT

CONTROL

•>••••
2 •
0

0

••••oB3··· ••••• ••

"
>

•
•
>
•
•

PUT BUFFER
ADDRESS AND

>
•

• BUFFER LENGTH.

X
.···.85.•.•...
·.·

BTLDOP

• POINT TO THE
HEXT TABLE
•
•

•

••··.C3.·X••••••··

C5
••
•• END OF o.

x

.> •

KO*

.................. ~~~.:.

0-0-0-0-0-*-0-0-0

SCAN
OPERA TlON

•
•

o.

FIELD
•
•••••••••••••••••

•0

•••

.•.x

••

o.

INPUT
o. NO
~uF:E:N:LL

*..0

•

•••••••• x:

o •• 0

• •••
1

D3

•
:

••••

x

o.

.0
••

ISSUED

"NO

x

••0 ••

·KA •
• 84·

.. ..

·E2
A HALFWORD
OF 5 IS USED
IN THIS CHECK
BECAUSE THE
LENGTH INFORMATION
o. YES IS IN THE FORM
•••••• LENGTH-I.

x
•••••
• KU •

TABLE

o •••

0:.

••

x

05

••

••
TABLE
*. NO •
•• ENTRY EQ
••••••
•• PARAMETER.·

••

·YES

(

x

.0 •

E3
••
•• FIELD ••
.0 LENGTM GT

••

••

........
6

•
YES.

*.••••••

.E2..

•
•

i
····E4.····
..··
NVSERR

•

CHART KC
••••••••••••••••
••

X

*NO

• 85·

• >

•

CHKFGA

•••
DTCHAT

••

.. ... ..
........

••

·YES

.. ..
............
• 0.

.".x o.

e~~'5~-

o.

·NO

BLANK
O. NO
..
AT END OF .0 ........................ x•
o. FJELD.o
X

•0

*.

.0

oYES

El
••
START

••

084
•
•• ••••••••••••••••

•
•
•

01

•
•

ENTRY

•••••••••••••••••

• stAHRl

.*

0

:X •••••••••••

: INR:Gr:J~R~F :

•••••••••••••• 00.

••••

F3

x
.0.

F5

.. .. .. ..

•
BRANCH TO.
•
EFFECTIVE
• ADoR IN PoINT3 •

...............

•• ·E2 ••

X

•••••••••••••••••

>G4
TH
BA
T

MA2~
HCH

JBD~AE

ADDRESS OF
THE FIRST
EXECUTABLE
INSTRUCTION.

i
..: ···H3··········
A=G T~~O:~I~c= :

0

••••••

•
I
FlER.
•
APPLY
•
H ADDR.
.SVC
.INFORMATION .J4.

•••••••••••••••••

•
•

••••••••••••••••

•••••••••••••••••

.i..•

i

•••••••••••••••
•
HASE·

•
SVC 4
> LOAD CORREC T
•
PHAse

• VECTOR TA8LE •
• IN REGISTER 6 •

• 2

...
.. .. .

i
··.•H5······.··

.PUT THE START- •

>

••

YES.. CORRECT ••
PHASE
••
..RESIDENT ••

.NO

·YES

·····G3··········
•
MOVE THE
•
OPERATION
•
•
o FIELD ~ROM
>
• THE BUFFER TO •
•
PARMTR
•

..

.x

····F4·········.X.......... . . ..

••

•• FIELD ••
•• LENGTH GT •• NO •
••
0
••••••

>J4
REGiSTER 0 SUPPLIES
THE IIRRIDI7i
LOADI
ADDR
• REG I TER
SUPPL S THE DURESS
OF THE PHASE NAME TO
BE LOADED.

X
•••• J,•••••••••

•
BRANCH TO
•
•
ADDR IN
•
OPOINU
064*

•••••••••••••••

(
478

DOS System Control

Root Phase Subroutines ($$BA'l'TNA>, Refer to
Supervisor, Chart 21

Chart KC.

•• ••••
•
I *
*••••*

····'1·········**
*

*

ERRRTN

•••••••••••••••

• ••••4 •••••••••

•••• A2 •••••••• •

•• EXCPRG ••
•••••••••••••••••

•••

• •••A5 •••••••~ •

o

*•
••••••••••••••••

•

HVSERR
••••••••••••••••
••
•

RDSTMT

.••.•.•••.••••••••.••.••.. x..
i
81 ••• •••••••
*•••••
PUT ERROR*

:

.·····az····
..···..
*
i

:

1='3St~E

: 8u~~I:UT*F2 :
•••••••••••••••••

•

•

•••••••••••••

•····83······.··•
•

•

DTINUN

••••••••••••••• 0

*

•
:

PUT LENGTH
OF ERROR

M~m8~ ~~~O

*•
:

C2

:

=~~heE I:~g

:

:.m
~es~58
•••••••••••••••••
lca:

.ERRR N

KCO

~.-.-.-.-.-.-.-.

:* MESSAGE
~~~gR
:
.n •
•••••••••••••••••

.0. * •

i

• ... C5 •••••••••

•'
*. *. YES
•• ,,. eee •• ••••••••••••••••••••

:EXJ~ lAM?B~TH:

........

.' TRAFF It
'. BIT POSTED

•••••••••••••••••••

•••••
Dl.!••••••••
•
PUT lIPERAND •

•••••'5.!••••••••

• •••• 84 ••••••••••

•
•
:
1~~E:M~1 :
•••••••••••••••••••

: •••••••••••••••••••••••• X:

••••••••••• Xi
X
•••••e1 ••••••••••

•

i

RDSTMT

•

CDNTROL
•
•••••••••••••••

ONU

i
.···ozsve........
.
•
7

•

.AIT
•
••••••••••••••••
•

•

...·03·········
i

o
o

EXIT TO
USER

••

0

•

•••••••••••••••• •

NO..
••••••
••

Dit

••

.•.i

*D5

f5s~Mk~Y~R

••

FGl
INPUT
.05

e.

.e

I F A CARD READER
OR 1050 DEVICE
.ILL aE USED
TD ACCEPT INPUT
TATEMEHTS. rHE
WIT H THAT
~DI€ATES ¥EVICE

••
••

f

••

*•.•
.YES

JmelMi"At

.E2 •• HOOD·· ••
~mm-STAT£MENT

.•.·.EIt..•i ·••····
o

•

•

RESET REG I

•

:o s~I~~1 T~E8 :•
•••••••••••••••••

.....FI·······
i

•
TURN ON' •
•• IND,YSFGI
CAT OR IN • •
•
LGBYO
•

.••••••••••• x..

i
..•...
FIt·····.·····
.-.-.-.-e-.-.-.-.
EXCPRG

*Hl
•
••••••••••••••

•••••••••••••••• •

•

EXtP

•

i
....Gl·······
•.
: c~~~'R~k :

KC

PE?~8RM

•

•••••••••••••

••

Git

.•.i

••

e•

••
~NIT
•• YES
•• EX EPnOH ••••••
•• po reo JH..
•

•• ••eee•• ••

•

X

·NO

•• ••••
•
I 0

••••• •

i
.. .•. ..
.. -.. -..
Hit

••

.~~~.:O•• ALL
am~1 .: •
BLANK ••
*NO

i
J4···..
••••
••
INPUT
•• YES

o.

ON

•• • ~YSFG' ••••

• •••• JS ••••••••••
.LOG'ER
KU.
.-....-.-.-....-.-.

•••••••••• X.

*. ••

·NO

:

LW INPUT

aNAT~"fBI

•

:

• ••••••I.i•••••••

.••••••••••• x..
i

•···:I?~:=·;~···•

•
•

ADDRESS I N .

LINK REG
•
•••••••••••••••

•*•···:I'·:=·;~···
•
••••••••••••••
i

•

ADYRYSS IN

L

NK

AEG

•

•

Appendix H. Detailed Flowcharts

419

.................•

•o
•

($$BATTNA)~

General.Scan Routines
superviso~. Chart 21

Chart KD.

····. 2·········
...............•

••

...............
SCAHIlZ
Oftl

•
•

•

SeAHRl

oJl

•

•

Refer to

.-

. . . . A3 . . . . . . . ..

...............•

••
o

SCAHR3
*K1

•
•

• •

Z •
•• ••••
•

i
··.·.03•...•.•••.

i
.·..·01··········

SCAHR3

SCANRZ

• LOAO RE I S .
0MITH
R •
•
AD
•
• ~ RE
•

:.H~~

•
LOAD POINH
•
AND P
OWITH CH

o

AND RE
• BUfFER

.~.:

···.·c.··
........
oz

0L

ARAMETER •
REGISTER_

•

ESET THE.

.0

01

.*.

••

.0

•

•

Of THE EXIT

•

i
····.C5······.··.
•
*

•••••••••••••••••

•••••••••••••••••••

.CALC REMAINING.
• BUFFER LENGTH.
•
CPOINT 2-11 •

THE lOOk III

CQOING-NOSCAN

•
•

•

••••
••••

•
ADD ONE TO
•
.THE ADDRESS IN •
oPOINTl SO THAT •
• IT POINTS TO •
-'HE NEXT CHARAe_
•••0 •••••••••••••

THE CHARACTER •

IN A WORK

*.

• NO .0
END
•• •••• OF BUFFER

o •• 0

·E2
THE
HEX
UPP
IS
THE
ROU
BEl
TO
CARD

• IN lOC TMPARI •

.................
•
FOR USE 8'(
•
-LATER SCANS*04 •

•

X
·····E5··········

•

•

:LEN¥~HL~~~~~ER :

CHANGE THE

• CHARACTER TO
•
UPPER CASE

*E2

•

•
•

AGES FOR

.0

.0

.0

F3

..

.i

-.

o.

:

*•

.0

i

BLANK.
S fiOM"A.

X

D~ gah~·

••••0

•••••G5 ••••••••••
• TST LAST CHAR •
• IN THE FIELD •
•
FOR A COMMA •
:CS~~D~rDllA2" :

Y THE
TiNE
ISH

.................

..

.i

i

H3
-.
.0 CHAR o.
•
•• EQUAL TO •• YESX

•••• ANSf~Al
O.

o •••
·NO

•
:

.o···.x:

.0

•••••
J).!•••••••••
•
AOO ONE TO
• THE PARAMETER •

~Jl

ENTRY AT THIS POINT TO GET THE
OPERATION CODE FielD. POINTERS
ARE INITIALlZ~ WITHIN THE

mLl~ A~~Q~iIP~ED~EADING

:LENG~IIJ~~TER,:

•
•
.................

OKI
ENTRY AT THIS POINT TO GET
OTHER FIELDS THEN THOSE
SPECIFIED IN .HI AND .JI.
CURRENT POINTER INFORMATiON

fM~ b2~ASl~= ~:~A=~ENA~ADE.

BLANKS ARE NOT SK IPPED.

.*.i

.•.

K3'.

.0

. : . OF

o.

~

J..

.0

-

• •
• ••
·2

480

DOS System Control

•

*.
'.
•
IllI!~ER .:.!~~~........................... :

..

NU"6ER KEPT •
IN lOCATION ••

•
OPNUM
•
•••••••••••••••••

ONO

0 •••

HAl~ b2~Am= ~:~A=~ENA~AOE.

•

•

X
•·••.~~gF5··········
g=~R12D :

o.

•• I ••

OHI
ENTRY AT THIS POINT TO GET THE FIRST
FIELD AFTER THE OPERATION CODE.
LEADING BLANKS ARE SKIPPED.
CURRENT POINTER INFORMATION

MINUS ONE

..

•••••••••••••••••

.0

o •• 0

PARAMETER

•

o:·~gA~ E8~~~ .:.!~~.
o.

ADJUST THE

•

•••••••••••••••••••

oYES

•

i
····.05··········
:o~Tg~~c~fi¥t~~s:

i
·····E3····.·
.•.·

•

o.

.0

POINTI CONTAINS
THE ADDRESS OF
THE FIRST CHARACTER
OF THE FielD.
PDINT2 CONTAINS
REMAiNING BUFFER
LENGTH.
POINT3 CONTAINS
LENGTH-I.

•

~~~mh~M~iW

••

.0

•

REGISTER
•
•• ••••••••••••••••

i

i
.·..·E1··········

o.

LOAD A REG

•

·• .•

.0

• 2

o.

•

·····03····.·...·
: Ao&~~sIH~F :

••

oYES

.•.i

.

.X •••••••••••••••••••••••••

·D~

o •••

Ft

•
•
•

••••••••••••••••••••

i

BLANK

0.

•
•

i

•
•

.0 CHARACTER o. NO
o. IN BUFFER A ••••••

*.

• CALC ADDRESS
• Of NEXT CHAR•
ACTER IN
•
NRKRGl

SCNRL2

• wi TH

••.••.•••.• x:x

i

••••• 85.· •••••••• .

·····C3·.··.·••••

:•••••••••••••••••
A~12::
:SCHRLl

:IiDSCAN

•
•
•

.

:x ••••••••••.•••••••••.••• :

* •
••••
••••••••••• X:

••••

•••••••••

i

SCANRI

•• ••••
1 •
•

.-

••••H5•••••••••
EXIT TO ADDR •
RIMl~~
:

...............

MSG statement Processor ($$BATTNB): Refer to
Supervisor, Chart 2q

Chart KE.

•••••••••••
•····A3
EXTINT
••••••••••••••••
•

·••••••••••••••••.•

x ....
.....au.·.··
·..................

·····83·····.····
·.:................:

·····85··········
:HE=
0:

....·el.·····....
·..................

·····C3··········

·····01.····.····
................,.

·····03·.···..
·...............

··.··EI·········.

.. .'. ..

••.•41·········.
··...............
.
..

SSBATTNS

•

•.••A2·········•

••
•

...............•
"5G

:X •••••••••••••••••••••••• :

M5G

*SCANR2

kO-

*-*-*-*-*-*-*-*-*
•
GET FIRST
•
•

OPERAND

•

..

•••• 1.5 •••••••••

•

•

•

PUT THE 8G

•

A REGISTER

•

~~~R~i~. K~~to

•

X

X

•

CKFlf2

•
PUT THE Fl
• STORAGE KEYf

•
0

~~gi!T~=

·C4
•
•••••••••••••••••

•

'CIo

X

*CKF lFZ

KE*

*-*-*-*-*-*-*-*-*
•
GET CORRECT •
•

PROGRAM KEY

KF*

*-*-*-*-*-*-*-*-*
ESTABLISH
..

•
•

*5 TEXCo

LI NKAGE TO

.. USER ROUTINE

•
•

IS USEO I N THE STEXCO
SUBROUTINE.

·····C5··········
X

kF*

•

LINKAGE TO

•

• USER ROUT 1NE
..*
•••• *.*** ••••••

..

...............
CHART K8

•

•

.. .'. ..
........

••
••

i

05

RESET ATTN.
P1BSW
•
AFTER TESTlNG •

•

IT

YES ••
•• ••••

••

•

E3

•.

• KA •
• B4.

DTCHAT

Fl.·

••.••E5··········
X

••

•
PUT THE F2
STORAGE KEY
•
:HEf ~~8: §T~~TO
•
.CIt

NO.. ATTEN••
••••• TlON REQUEST ••
••
SW ON ••

.....x .. ..
••
. .......
•

••

OPERAND
EQUALS

°NO

x

CONTROL

•
•
•
•

X

•
•
•

X

•

• TEST THE "SG
STATEMENT
•
•
OPERAND IN
.. THE BUFFER

·•••••••••••••••••.

*-*-*-*-*-*-*-*-*
•
E~TABLlSH
•

•

X

*STEXCD

THI:: REGISTER POINT4

X

.*

•
•
:
•

•••••••••••••••••

• YES

x

.KA •
• F2.

.. .'. ..
........
i

.

F5

••

XYES.. OPERAND ••
•••••• •••••• ••••••••
EQUALS
••
••
F2
••

TMPARI
LIS NOT
AT AN

E INSTRUCTION.

BEFORE SEGS SBATTNA C.ODE
Ala, IT CAN
SED TO REtURN
TO THE INI-

'NO

TlON ROUTINES.

ii

•
•

····G4·········
RET TO AtoDR •
IN LINK REG •

..........•....•

•

•
•

X
····G5•••.••••
•
NVSERR

•

CHART KC
••••••••••••••••
••

)

Appendix H. Detailed Flowcharts

481

Chart lIT.

set Operator Communications and Exit Table
Linkage ($$BATTNB)~ Refer to supervisor, Chart 24

. 1·········•
•• ····STEXCD
••••••••••••••••••

••• 0

o•
o 1
o

••••
x

x

:··:~2~·····:···:

• PIe T
•

B3

.e

o

••••

THE C T .
AM-

X
·····B5····.·
....

: MO~~O~HMSW :
.PROBLEM PROGRAM'

.. ..

•

•• ·F2 ••

•

PI
•
•••••••••••••••••

0

SETEXT

••

• -COMPLE-••

MENT OF •• NO
-.
USER "'DDR
••••••
•• FOUND ••

AT.

• PROBLEM

.'.

•• ••••
2 •
•

0
0

SAVE "'RE ... TO

• DC SAVE AREA

•

••••••••••••••••••

'YES

:.C4
REGISTERS

WILL BE REORDERED FROM 9-B TO 0-15.

X

X

••••• Cl •••••• • •• •

••••• C3 •••••••• ••
•
LO... D 110
•

:• OFm~THE I~gR~~vE
:
CORRE~T •

•

• PROBLEM PROGRAM-

_INTO A REGISTER.

•••••••••••••••••

BUFFER WITH

~Nf~ mMH~~~ b~ 5~~ioN

J~YkEjABl~E"t2E~EiS IOF
FOUND IN THE COMMUNltATION
REGION AT DECIMAL DISPLACEMENT 104. SEE FIGURES
15 AND 25 IN SECTION 3.

-OIVIDE THE PRo-*

:Ag~A~o~ElE~~l f

:
•••••••••••••••••
*YO START Of DC •
-ex JT TBl
*OZ-

•••••••••••••••••

•••••o3.i ••••••••

.....05·.·X .•·•

• FROM PROBLEM
•
.PROG S"'VE AREA •
.TO DC AREA
.C~ •

•

PUT THE

OQU8lEWQRD

• OPTION TABLE
• ENTRY INTO A
• PAIR OF REGS

.*

.•.x

USER
AODR

•

:

••••••••••••••••••

PUT DC ADORe

IN PSW FLO •
OF PROBLE"
•
PR~~e fAVE ••

••••••••••••••

.'.

····e""·········
.:.....
E~~itgG. . ·:.~~ ••.••• x: ?~TLI2K . . ~~~ :
....
.
..............
...-

•
•

•
•
•

••

••

1052.·

-

'YES

THE POSSIBLE VALUES ... RE:

••

.*
*. YES
•• HAS POSITIYE ••••••
*. SIGN .*. *F2 .x

*••
'NO

•

•

•

:X •••••••••• :

'F2
t.

:•

WITH THE
LENGTH OF
THE MESS"'GE

•
•

E3

•••••••••••••••••

Ft

~~~N¥P Ff~~o

:•

X

X
.....E1···.······
•

iC

MHMG~oC~y~E :
:.~~!!¥~'.!~~gi.:
'02
THE DC EXIT TABLE REFERRED

X
••••• 01.· ••••••••

·····C5··········
• MOVE GENERAL •
.REGISTER VALUES.

•

k3.

•• ee

o
o 2

Eg~m~MD8~Ei~DRESS
ZERO

··....F3··········.
X

•

SET UP

SY~~gG

:

•

•

:

•••••••••••••••••••

•

X
• ••• ·E5
•• •••••••••
.PUT
COMPLEMENT
.OF DC RlN ADDR •
.INTO DC OPTION.
•
TABLE ENTRY •
•
TO IND BUSY •

(

•••••••••••••••••
X

• ••• F5 •• ••• ••• •
•
•
IN LINK REG •

• EXIT TO ADDR

•••••••••••••••••

•

•eee.•

··.··Gl.·X..·.····
•
•

•
•

CLEAR THE
J/0 BUFFER

FOR MESSAGE
USE

•
•

•
•

•
•
•••••••••••••••••

X
.••.G3··.·
••·•·

·
•

•

EXCPRG

CH ... RT KC

.
•
•

•••••••••••••••

...·.Hl.··.·.··.·
X

:

•

Bb~~~R IGi'TH

MESSAGE FOR

•

•

NO ROUT tHE

•

:

• LINKAGE IC401 •

•••••••••••••••••

·····Jl.··.···..·
X

•

seT UP THE

•

•
CCW COUNT
•
-FJELD WITH THE.
• LENGTH OF THE •
•

MESSAGE

•

•••••••••••••••••

.i..
•oo 1 •••
• e ••

(
482

DOS System Control

CANCEL Statement Processor ($$BATTNC); Refer to
supervisor, Chart 24

Chart KG.

o
o
o

••••Al •••••••••

................
SlBATTNC

o

0

....A2·········

o

•

CANCEL

A3·········•
•• ....CNLRTN
•••••••••••••••••

0
0

•••••••••••••••••
:x•••••.•.••.•• ,,. •••••••.. :
•

:

x

•• ~~.:'

.0

*. *.

MPS

.*

•
..•.•B3·····.····

ADDRESS DF PIB
TABLE PLUS A
DISPLACEMENT IkEY
VALUE) TD POINT

*:.

•

pYa T~~Ti~~REC'

.*

*.•
'
'YES

GET FIRST
OPERAND

ADOR

*THE C
•
YAeL

'C2
A HEX '80'
INDICATES THE
AREA IS NOT ACTIVE,
OR DETACHED.

••

•

F.

P18RY.

C3

.0.i

III.

PI B

•
•

•••••••••••••••••••

••••

0

X
····84·········

• EXIT TO AODR
IN LNK REG
•

i
·····85·.··
..····
•
•
•

•
•

•••••••••••••••• •

x

• *. *.

•*•*

fiRST

OPRSNT

*.

*. *. O~5~~~O
**.
.•. **

• •••• 02 ••••••••••

*CKBf12
KG.-.-.-*-.-.-*-*-*
.* .* ............ x: ~~~G:~~BkE~ :

*.

YES.*
•• ••••

YES

*.

••••••••••••••••••
*Kl
•

'ND

.e

03

.'.x

t.

CANCEL
ALRE:ADY
ISSUeD

*.

* •.
.ND

e•

YES.O
• ••••

:

Nafh~c~~s~

.-

····0,.·········

.-

•
•

o

CONTROL
CHART K6

•••••••••••••••

i

o•••• •
o 1 0

:
•

PROGRAM TO

B~NfBlmm

•*

o

E5

.i..

o
o 1
o

·.···F3•••··••.•··

..

KEY

•
•

.*

REG POINH

MOVE CANCEL
CODE TO

•
•

:• E~~~~ET
c~A: :
BYTE .H3
•
•••••••••••••••••

* ••
'
eYES

i
·····F4·······

o
•

•

SVC 22

•

SYSTEM

•

SEIZE THE

•

••••••••••••••• •

i.
.•-*-*-*-*-*-*-*-*
····G2.·········

CNCLIN

*CNLRTN

•

o

•

KG_

SET CANCEL

CODE IN PIB

•

•

•

o

0

•••••••••••••••••••

•••••••••••••••••••

i
...·G3······.··
RET TO ADDA.

IN LINK RElio

•••••••••••••••

...····..·
.·····HI
-.-.-.-.-*-*-.-.
mEcr=CJ~8
:

·•••••••••••••••.

KG'

•
•

0

•••••••••••••••••
x
•••••
*KA •

• B4-

••
o

DTCHAT

....H2.·····.··
i

:

o

0

•• ••••MOVE
F5.i••••••••
THE
•
o

F2 KEY TO

••

•

0

.

..

CONTROL
CHART KB

THE KfY USED IS CALLED
THE IMPLICIT KEY. ITS
VALUE IS
T WHEN A
START IS
UED. A ZERO
VALUE ME
I. BATCH
ENVIRONMENT,
AS KEY TO
8E CANCELED.
NMENT-ND
2.

mR'GHKEYB~ENKUS¥~D
PROGRAM TO

B~

G5

.0.•o•

e.

..··.H4·······

o
o

-. .••••
·NO

•

0

SVC 22
•
RELEASE THE •
SYSTEM
•

••••••••••••••

0

••••

i

•
•
•

•
•

OJ2

X
••••

o 1

THE CANCEL
CODE~ ARf
SET FDR OPERATOR
I~TERVENTION
CANCEL.

0

YES •• OPERAND ••
: •••••• E9rz\S ••••

•

·H3

OCNLRTN

····.N6··
0

:o R~81~J1R. :•
•••••••••••••••••

•

•

i

e.

0

••••

•

••

OPERAftO
E9~t\S

: ..••.•••.• x:

·····GL·.········
•
•
: H~~I 18r mlJ :

•

•
•

•••••••••••••••••••

:
•

i

0

Fl KE.Y TO
REGISTER
POINT4

.'.• ..
..
: ••••••
••••

:•••••••••• X:
•

•••••
o5.i••••••••
•
MOVE THE

VES..

.•'. *. *.

CANtLB

••

°NO

•
•

•

. ' I~ POINT4 ' . NO
X
'.
EQUALS
••••••••••••••••••••
*.
0
.*

*.

••••

•

*J2
•••••••••••••••••

Fl

'.
.'

'aG'

•

•
•

•••••
El.i•••••••••
• PUT KEY OF

•

o.

OPERAND
EQUALS

••

X

*._
•

.. .0. ..
...... ..
C5

*-*-*---*-*-*-*

••••••••••••••••••
MSG 11300
•

'ND

•

••

i

• •••• C4 ••••••••••
tERRRTN
KC...

**.
. **
.•

0

•

POINT4

•••••••••••••••••

o

01

MOVE THE
REGISTER

BG KEY TO

o•

AN.ERR

*.

•* ENTRY *. YES
••••
OETef~ED •••••••••••• x:

*-*-*-*-*-.-.-.-.

•
•

CALC THE

•

•••••••••••••••••••

i
:~~:=i~·······:~:

•• ••••
1 •
•

o

*eSE STARTING

.'.
Bl'.
'.

CANCEL

A5 ••••• ••••
•• •••• CKBFl2
•0
• ••••••••••••••• 0

0

0

•
•

i
····H5.···.···.
NVSERR

•

CHART KC
••••••••••••••••
••

OJ3

THE PROGRAM BEING

i~IUAmcHEt~W

o
•

i
····J4·········
SVC 11

0

RETURN
••••••••••••••••
••

CANCELED.

OKl
THE KEY USED
I S CALLED THE

EX:h!~11 ~~~I

F2-HEX '20'

FI-HEX '30'

Appendix H. Detailed Flowcharts

483

Chart RH.

PAUSE, LOG, and NOLOG Statement Processors
($$BATTNC) ; Refer to Supervisor, Chart 24

..•••
•• .• ·.AS·····
NOlOG
•

•• .... A1·········
••
PAUSE
••••••••••••••••
•

•• ····.3·········
•
LOG
••••••••••••••••
••

·................

•••••
Bl.i
•••••
•
TURN ON •

X
.·.·.B3·······

..... ss.··.· ..

• PAUSE SWITCH.
•
IN JOB CTRL •
•

SWITCH 0

•

••••••••••••••••

•

X
····Cl·········
CONTROL

•

TURN ON

X

•

LOG SwITCH •
IN JOB CTRL •
SWITCH 0

•

••••••••••••••• •

•

CHART K8
•• •••••••••••••••
••

484

•

•
•

DOS System Control

•

X
····C3·····
..·•
CONTROL

•
•

•

TURN OFF

tOG SW ITCH

IN JOB C.TRL

•

•

.•.............•
•

SWJTCH 0

•

····cs·········

•

X

•

CHART KB
•
•• •••••••••••••••
•

•
:

...............
CONTROL
,CHART KB

•
:

MAP Statement Processor ($$BATTND); Refer to
supervisor, Chart 24

Chart KJ.

•• ••••
•
I •
•••••
•

. . . .2·········.•
................

.•••Al·········••
•
*
..

•"

...............
SSBATTNO

..

HAP

:x .•........••.••.•.•...•. :
x

•

X
·····A3
•••••
•••••
*-*-*-*-*-*-*-.-*
*STUCRL

KL*

.................
•

OUTPUT

•

•

BG

•

•

*

·*-.-.-*-.-*-*-.-*
..•.03.·.·······

···.·81··········
.................

.•................•

·····el
......····
•-.-.-*-*-.-.-*-*
.................

•
·..··e3.·········
.................

··.··01··········
.................
X

HAP

•
•

BUFFF.R AND
HOYE THE HAP

..

THE BUFFER

•

•
•

HEADER I NYD

•
•

•

•

*

•

OUTPUT F2

• pur

KM*

OUTPUT HAP
HEADER LINE

Kl*

• SET UP F2-fl

•

X

-OUTPUT

X

.~TUCRL

.. CLEAR THE I/O •

•

END Of

•

MAIN STuRAGE

•
•

A WORK
REGISTER

•
•

• ADDRESS INTO

•
•

*

•
•
•

•
•

CLEAR THE 110 •
BUFFER AND
•

•

*

·····03··········
.-.-.-.-.-*-.-.-.
..............•..

.-.-.-.-.-.-.-.-.

··.··E3
•.•••.••••
.-.-.-.-.-.-.-.-.

X

X

•
•

SET OUTPUT
lEfoiGTH TO 1

.stUFIU

•
..

•
•
•

'OUTPUT

*

K"' •

·•••••••••••••••••.

.................
SKIP ONE
LINE

•
•
•

X

••••• El··········
'SKPl IN
kM*
•
•

KL'

SET UP
EN[' OF MAIN
STORAGE

•
•

•
•

*

.....Fl··········

OUTPur Fl
LINE

X

•
•

X

...............
• ••• F3 •••••••••

• CALC THE PlH •
• ADORESS OF THE •
• PROBLEM PROGRAM.
• SUPPORTING THE.
'INTERVAL TlMI:R •

•
..

.................

*

CONTROL
CHART K8

•
•

•

X

*-.-.-.-.-.-.-.-.
·····Gl··········
.STUSPC
Kl*

.................
• CALC SUPERVISOR'
•
UPPER LIMIT ,.

*

*
*H2

X
•• ••• Hl·· ••• •••••
•
CALC THE
..
•
NUMBER OF
•
BG lK
•
•
•
BLOCKS
•

.................
•

.HZ

NUMBER Of IK
BG BLOCKS EQUALS
f2 STARTiNG
ADDRES~ PLUS 1

MlfolUS START ING

ADDRESS Of BG
AREA OIVIOEu
BY 1024_

•

.·····Jl··········
-.-.-.-.-.-.-.-.
X

'STUBGL

KL •

.................
•
OUTPut
•
• SUPERVISOR LINE'
.SET UP BG LlhE •

X

••••• Kl········.·
•
PUT PROGRAM •
NAME INTli
•
•
LOCATION
•
•
NAHFLO
•
•

)

•••••••••••••••••••
x
••••• *
*I *
*•••• *
Appendix H. Detailed Flowcharts

485

output MAP Subroutines (Part 1 of 2) $$BArrND;
Refer to supervisor, Chart 24

Chart KL.

•• ••••
1 •
•

-••••-

·-••••A3···••·•••--

•••••••••
•• • • ••1.1STUCRL
•
••••••••••••••••••

-

STUSPC

•••••••••••••••

-

................. ........... •x..
X

·····Sl··········

STUCRL
•
•
•

CALCULATE
THE NUMBER
Of .l~ BLOCKS
•
*C2

····12•••••••.•

--

•
•
•

-

STUBGL

•••••••••••••••
••••••••••••••••••••
.:x...........•ti .......... ..

--

STUSPC
i
••• •• PUT
83· •••
••••••
•
THE
0
.PROGRAM
110 •_ INTO THEPREFIX
_
BUFFER
•

•••••••••••••••••••

DOUBLE THE NUMBER

?~ '~EB~?iKM~~~D

i
:cNv:~A·······:~:
e-e-*-*-e-e-*-e-*

STUBGL

o

-CONVERT N~8ER •
• OF lK BL KS •
•
TO EaCD C
•

•••••••••••••••••

..x •••••••••••••••••••••••••.

.02

'~Epi~mla~MND

x

LlMlTf .RE CALCULATED
BY GE TI NG THE BG .ND
F2 DR GIN AODRESSES
RESPECTIVELY AND
DECREASING THE IR V.LUE
BY ONE.

:6~T~BI·······:=:

e-e-.-*-e-.-*-e-.

-

:

TYPE BUffER

CO~~~~Aa ON

•••• c" ••••••••• 0

STUFIU
•• •••••••••••••••
••

•

:

X
·····03···
....·•·
.-.-.-.-*-.-.-*-.

STUFlU

0CNV8CD

KMo

• CONVERT UPPER •

•

LIMIT TO

•

•

EBCDIC
•
•••••••••••••••••

•••••••••••••••••

····.e3.·X..··.·..
•

MOVE THE

:UP~~~ ~A~llclO

• fJELD OF THE
•
1/0 BUFFER

•

:•

••••••••••••••••••

.•.
~

-

Fl
*.
PIB e.
NO •• lNDIC.TES -.
•••••• TIMER SUPPORT.*

*.

*.

.*
* .•
eYES

o POINT TO THE
•
NEXT PIS

.*

•

:

:

ENTfty

•
o

• •••G3· ••• • ••••
RET TO AOOR •
IN LNK REG
•

X

•••••••••••••••••••

.
.•.

•
•

•

i........

• CHARACTER IT' •

.

.

••••••••••••••••••••

••••• G••
•
MOVE tHE

J~~FFl~E

X

• •••• F) ••••••••••

•e

•

••••••••••••••• 0

............ Xi

•e

HI

t •

e.

••
PI8
•• YES
.INDIC.TES TASK ••••••
•• DETACHEO .-

*.

* •.
.NO

.*

X

x
•• ••••
•
1 •
•••••
•

••••• Jl ••••••••••
•
GET PROGRAM •
• N.ME FROM S.VE •

:·mD·~REPy'OlT:

•
BUFFER
•
•••••••••••••••••

x
••••
•
•
0
••••
o

• 1

486

0

DOS System Control

(

Chart KM.

o
..

output MAP Subroutines (Part ,2 of 2) $$BArTND;
Refer to Supervisor, Chart 24

···.Al·········
...............
CNYBCD

o

.....
.....

0

..
0

o
o 1

o

..

0

X

"PUT THE ADDRESS.. OF THE LAS.T ..

•

.................

..
..
..

..

EBCDIC

..

*

:).

A WORK

.. "

..

REGISTER

..

.... .. ..

•

..

·•

••

.....
.....
*

*

····04.•••••••••

*

•

...............
SKPLIN

*

•

*

:X ..•.•••••••••••••••••.•• :

x
·····E3··········

·····Fl··········
X

• REPLACE ZERO

WITH A BLANK

•
•

.................
*POINT WORK REG.
• TO NEXT CHAR •

*

...•F2·········

•

*

*-.-.-.-.-.-.-.-.

••••• F 3 ••••••••••

·................
RET TO AOOR
Ih lht< REG

•
•

X

X

•
•

• STORE LENGTH
•
IN SY!>LOG
•
OUTPUT CCW,
•
SET UP eCB

.................

••

'NO

•

CALCULATE:
•
LE:NGTH FOR
•
I/G OPE RAT ION •

..................

••

x

•

CEDING CHi1\R

..•••••••••••••••••..

X

•
•
•

.*.

........

••••• C4 ••••••••••
.. OECREA!)E
..
P~i~TBXTU~~E_ :

*.

·.•...03··········.

El
••
•• NEXT ••
•
•• CHARACTER •• YES
X
••
EQUALS
••••••••••••••••••••
K

*. *.

• .X. 1

·YES

••

..

*NO

•*
*. *. NO
*.•* CHARACTER
EQUALS
.. *............................ .
LERO

(3

**.
••.**

•

............. .• x:
:SLNKLD
J. *•
01
••

..

.:**. C~~fi:E~ER
·:.~:~ ...... x:
BLANK .*
..

.................
*

..
..

I NlC A REG

RVR~CN

.. OF FIELD INTO ..

..

BYTE OF THE
110 BUFFER

:.................................... x:x

X

•..•• ·.el
••••••••..
PUT ••
ADDRESS
..

•

..

.....83··········

X

UNPACKED

OUTPUT

0

·.···el··········
............ ....
..

...............•

•

.. CONVERT LIMIT ..
*INFQR""AT ION TO •

..

•••• A3·· •••••••

•
•

KC.

.exePRG

.................
•

PERFORM THE:

•

.. I/O OPERATION.

•

*

····G3·········
X

•
•
•

...............
RET TO AOUR
1N LNK. REG
V1A ElCPRG

•
•
•

Appendix H. DetaiLed Flowcharts

487

ALLOC statement Processor, Part 1; ($$BATTNE)
Refer to Supervisor, Chart 25

Chart KN.

*A5

•

•o

.··.Al·········
.,BATTNE

*e2

•••••••••••••••

•

•

•

•0

o

····A2.·••••••·
ALloe

*e2

•••••••••••••••

EX I T ON THE NO LEG THE
fiRST TIME THROUGH TI1IS
ROUTINE

0

o

*

: x•••••••••••••••••••••••• :

x

.....81··········

83

-RESET DUPLICATE•
OPERAND AND •
• SECOND OPERAND.

SWITCHES

*

YES

*. *.

•••••••••••••••••
OC2

see

•

0

FF

x

•* •

0

X

•
•

GET FIRST
OPERAND

•
•

(

•

·J5

•

*F5

.......... .....

YES •• DELIMITER ••
I S A BLANK
••

.... 0 ••

.

*NO

THE INSTRUCTION AT L(JCATlON CKSCST IS MODIFIE:D
TO
NCH TO THE ERROR
H
NG ROUTINE If THE
S
OPERAND I~
D
TED BY AN EQUAL
S
OR A COHHA.
THE
COHMA IS ALLOWED To
DELIMIT THE FIRST
OPERAND •

X

·····G4 •••••••
•
MODIFY TEST •
• AFTER RETURN •
•
FROM SUB•
.FS •
• ROUTlNE

*

-

H3

.0 •

x

.KP •
• BI·

* o0

••

••
FIRST
•• YES
.OPERAND EQUALS ••••••

.................
•

x

ONO

o
o 2
o

OJ2
CURRENT UPPER LIMIT MINUS
NEXT UPPER LIMIT DIVIDED

BY

20~B.

•
ADD NUMBER
•
OCKS •
• OF ZK
TO
TE.
•
•
COUN
•
•
WR
•

·····J3··········
.................
X

•
•
•
•

................

LOAD THE
ADORESS OF
THE FZ TABLE
INTO POINT4

*

OK2
WRKRGl CONTAINS CHANGING
(DYNAMIC) UPPER LIMIT
INFORMATION.

-•••••••••••••••••*

....
x

488

ES •••••••••
NVSERR
•
CHART KC
•
•

................. :••...••.•.
.............
.
x:
.....
.. ..
•. ......
Fl.·
.. ••••

••••• HI ••••• • •• ••
•
CALC NUMBER •
• OF 2K BLOCKS •
..
AND STORE
•
•
IN TABLE
•

....

....

\,

x

x

••••• Kl.····· •• ••
• MOVE THE UPPER •
• LIMIT FOR THE.
• NEXT AREA INTO.
.wRKRGl
.K2.

••

.0. ••
F4

X

X

X

....

•

·····G3··········
•
LOAD THE
•
•
•
ADDRESS OF
•o THE FI TABLE •_
•
INTO POINT4 •

.................

·····Jl··········

E4

°NO

.................

·····GI··········
•
CALC UPPER
•
• L1MIT fOR NEXT.
•
TABLE ENTRY •
• -CURRENT LOWER •
• LIMIT MINUS 1- •

X

...0

.... ....

....
••••
.... .

.-.-.-.-.-.-.-.-.

.................

X

•
•
•

•• DELIMITER •• YES
•
•• IS AN EQUAL ........... X.
••
SIGN
.. •
•

• KP
•• X.
• E3·
GTNXOP
X
••••• F3··········
.SCANRZ
KO.

...•.Fl··········

o 1
o

CKSCST

·YES

.GET ORIGIN fROM.
•
CURRENT PIB •
• AND MOVE IT TO •
• THE TABLE AS
•
LOWER LIMIT
•
•

.JZ

KO.

GET NUMERIC
ALLOCATION
VALUE

•••••••••

X

o

•
•
•

•
THIS VALue IS ALSO STOReD.
IN THE ACTIVE LOWER LIMIT
FIELD INDICATING THIS
FIELD I~ INACTIVE.
IT
E3
••
CONTAINS A HEX
IN THE
•• ENO ••
LAST BYTE.
• NO ••
OF
••
•••••• ALLOCATION
••
••
TABLE
••
•• ·F2 ••

o

•

X

.SCANR3

.................

:X ................................
·EZ

.................

·····04··········
.-.-.-.-.-.-.-.-.
.................

X

.OECREASE POINn.
,. AND POINTZ BY •
•
16 POINT TO •
• NEXT TBL AND •
.PIB RESPECTIVELY

TABLE ADDRESS.
AND ZERO THE ..

I NNXEN
X
•• · · . E l · · · · · · · · · ·
•
STORE THE
•
•
CONTENTS OF
•
• WRKRGI IN THE.
• TABLE AS UPPER.
.L1MIT VALUE .ez.

................

....·03··········

SET UP POINT2 •

• BYTE CNT REG

X

·····C4··········
•
MOVE THE
•
• UPERAND
•
BY SC
•
•
E
•
•
INTO
.PRECElIIN TEST •

•
•

:.............. x:

.................
•
•

...............

-NO

tAS LOWER LBU T •
• AND PUT INTO •
TABLE
•
•

X

•

........

•

X

.....01·······.··
•

•••
B4
••
••••
·.··BS·.· •• •• ••
•• DUPLICATE •• YES
•
NVSERR
•
..FIRST OPERAND •••••••••• X.
CHART KC
•
••
.AS.·
•
•

.* .*

•
USE ADDRESS
• OF SAVE AREA

•

• WITH THE PIe

*••
°NO

X

CHKPRN

·····e3··········
.................

_POINT 1 WITH Fl.
TBl ADDRESS

.*.x *.

0

0

*

NOTE AT *G4 CHART KP.

X

• seT UP WRkRGl •
• WITH THE END •
-OF STORAGE ADOR•

o
o 2
o

0

0

*

•••••• TA~K DETACHED._

•

···.·el.....··.··
.................

1

PIB -.
.* •*INDICATES
t

0

CRTBLO

••••

....

o

•

....
....

•

•

0

0

0

DOS System Control

••••

0

0

*J5
THE AllOC STATEMENT
FORMAT

0

~~~O§R n:2~! t~N~~OEREO

THE FIRST OPERAND. IF
BOTH Fl AN~ F2 ARE
SPEC I F I ED SCANR2 IS

•
•
•
•

USED TWICE.

-

x

.0 •

K3
••
••••
·.··K4·.··· ••••
••
FIRST
•• NO
•
NVSERR
•
CHART KC
*'
.OPERAND EQUALS •••••••••• X.

*'.

....

F2.*'

*•••
• YES
X
••••
•
•
••••

o
o 2
o

0

..•............

*'

*'

(

Chart KP.

ALLOC Statement Operand validity Checking;
$$BATTNE; Refer to Supervisor, Chart 25

.***+

.....

"KN ...
... G4*

.. 1

.*

X
81 .. •• *.

• * • * OPERAND * • *. YES
...
LENGTH
.* ............................. ..
*. L T 1
*.
.*
* ...
'"
*NO

...

x

** *63** ••••• *.*

..
CONVERT
..
.. NUMERIC VALUE ..
...

..

TO

PACKED

..

BINARY AND

..

:.*2!~!~~.~~+~**:

X
•*

*.

.*

*.

C1"·· *.

C3--+.

OPERAND

LENGTH

.. •

YES
..
YES .*
.* ...•••••••.•••.. x.x ••••••••••••••.••. OF
*.

*.

GT 5

.... + • • +

NUMBER

••

2K BLOCKS .+

GT 255

*. 4 • • • .*

-NO

.*

-NO
*04

x

:****01** •• *****:
INTO WRKRG3

.•••••••••• X:
El

.*.

.*.x *.

• * .. * OPERAND * • +.

*.

CHARACTER

..... NUMERIC .. "
+.

IFl AND F21 SEPARATED BY A
COMMA. A COMMA DELIMITER
REQUIRES ANOTHER ITERATION OF
THIS ROUTINE TO COMPLETE
OPERAND PROCESSING.

SAVE THE
•
*
NUMBER OF
*
• 2K BLOCKS IN *
•
THE CURRECT *
• TABLE ENTRY •
.* ••• *********.**

..

*
*.*****. ******.*.

:CHKRNG

~~~E~6~t~~NA~~gC o~~~I~~E~I ELDS

•

..
PUT ADORE 55
..
-OF THE OPERAND ..

..

A BLANK DELIMITER INDICATES
NO MORE OPERANDS FOLLOW.

x
* •• ** 03 ... **" .* •• *

NO

E3
*•
• * SCAN * •
.*STOPPED ON *. NO
••
A BLANK
.* •••.
*.
*04

..

.* ................. x.

*.

.*
* ...
·YES

.•

* ••
*
*YES

.....x
·KN •
• F3·

* -

·····Fl····**·.··
X

*-TEST

X

*

CHARACTER ..

.. TO DETERMINE ..
-IF IT IS AN 000*

.. NUMBER

EXECUTE
$$BATTNF
•
*G4
*
************** •• *

*J3"

.** •• ** .... *** •• **

it

X

*****Gl******·***
* POI NT WRKRG3 •
* TO THE NEXT *
* CHARACTER OF *
* THE OPERAND *

•

*

*·*·G3*········
SVC 4 LOAD
•
$$BATTNF

·... ~~!~r.~~...*·

*.***.***.** ••• ***

.*.

~omvl~g~R~m~NcomOL

* ••
*
·YES

A SVC 4.

*J3
EACH CHARACTER IS
TESTED TO DETERMINE
IF IT IS ODD. THE
TEST TO DETERMINE IF
THE ALLOCATION IS IN
MULTIPLES OF 2K IS
MADE ON THE LAST
NUMERIC CHARACTER
ONLY •

x

.

" *. YES
•
.* •..••••.•••••••• x.

• * .* NUMBER

*.

ODD
*J3

* ••
*
-NO

•*

~~U!~~ ~Rg~E~~~~~' T~$~~lI~A,

WITH THE SECOND EXECUTABLE
INSTRUCTION. WHEN THIS
TRANSI ENT IS F INI SHED
PROCESSING, THE LOAD IS

TO $SBATTNF A.T THE NEXT
INSTRUCTION FOLLOWING

.*

*.

LOAD INSTRUCTION IS PHYSICALLY
FIRST INSTRUCTION FOUND IN
LISTING OF THIS TRANSIENT.
BRANCH VECTOR TABLE FOUND

EXECUTED BY BRANCHING TO

Hi
*.
.*END OF * •
NUMERIC
CHAR IN
••
*. OPERAND .*

.*.
J1

oG4
THE
THE
THE
THE

THE ADDRESS IN THE BASE
REGISTER. ,THIS IS THE
ADDRESS OF THE SVC 14
INSTRUCTION. $$BATTNF IS
LOADED SO THAT IT OVERLAYS THE FIRST PART
OF $$BATTNE. $$BATTNF
ALSO HAS A SVC 4 AS ITS

• NO.*
••• •••

*.

*
GTNXOP

·****F3**********
*
SET UP TO
*
LOAD AND

•*

it
Kl·*·..

X

.*

*.
* •• *K2*.* •• * •• *
.*
LAST
•• NO
*
NVSERR
•• CHARACTER OF .* •.••..•. X*
CHART KC
*. OPERAND ••
•

.. ..
K

••

• ••••••••

** ••••

·YES

o

*
*

it
•• *.
1

Appendix H. Detailed Flowcharts

489

ALLOC statement Processor, Part 2 (Part 1 of 2)
$$BATTNF; Refer to Supervisor, Chart 25

Chart KQ.

A2··.·••••·••
•• ..•.
STARTF. 2
••••••••••••••••
•

•.... Al·········•
•••••••••••••••••
•

SSBATTNF

..

•• ••••
••
I
•••••
•

..x •.....•....•.......••••••.

·••··01·..·......

X
·····84.••..•...•

X

STLLMT

_PUT END OF HAIN_

•
•

SfORAGE AODR
I Nro WRKRG2

•

•
•

•
•
•

STORE NEW

•

LIMITS IN
THE CORRECT
TABLE eN TRY

•
•
•

•
FeR INITIAL •
• UPPER LIMIT CHK*

•••••••••••••••••

•••••••••••••••••••

·····C1·..X ·•.....

··.··C4..X·..••..•

• PUT Fl TABLE
• ADDRESS INTO

•
•

•
•

.................
o•

POINTl

o

••

•

•

•

CALC NEW
UPPER LIMIT

•
•

TABLE ENTRY

•

FOR THE NEXT

•

*e3
•
•• ••••••••••••••••

:X •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
i
·····Ol··.·
......

X
·····0.··········
:
:

CMNWLH
•

SAVE TOTAL

•

NUMBER OF 2K

•

BGN02K

•

• SET REGISTER

•

•

•

~glmRto

•

• BLOCKS IN LOC •
•

•

ENTRY
•
•••••••••••••••••

•••••••••••••••••0

•

.'.x

·····EI··········
X

E4
*.
.. tEND OF

-CALC TOTAL BLKS-MINUS ALLOCATEDtelKS WITH RSLT •
*IN WRKRG4. CALC_LOWER LIMIT -FZ-

*.

OF2
THE LOWE

.0.x

~~~C~bA'

FROM THE
ENTRY. C

m~~

NO

L

9S481.

*.

~p

CT
ING

sul¥M~7~~S

*J2

.*

• THE UPPER LIMIT AND
x ADDING ONE.

* ..
·YES

······Gl··········o

ENSURE SAVE

•

AREA AODR

EO BSORG

.*

•••• 0

x

.*.

NVAERR

0

·G5
NECESSARY TO

·····G4··········
.-.-.....-.-.-.-.-.
X

KR*

ENTER
SUPERVISOR

• STATE
*G5.
•••••••••••••••••

.0.x *.
HI

X

·····H"··········***
•
INITIALIZE
• FOR LOW TO
• HIGH SCAN OF
• ALLOCATION

.. .. ....

•

'J2
A HEX FF IS FOUND IN

x

Jl

~~MtlT smEAR~ATHE

.'. ••

FIELD OF AN INACTIVE
ENTRY. THIS IS THE
LAST BYTE OF
•••••• AN UPPER LI MIT
••
ADDRESS (ALWAYS FF I.

•• NEW ••
•• LOWER LIMn •• NO

••

••

........
GT OLD

LIMIT

TABLE *H5

*•

•••••••••••••••••

*NO

1~~¥iu~mN~~O

IN SUBSEQUENT
PROCESSING.

•
•

••••••••••••••••••*

•• NEW·.
YES •• UPPER LIMIT ••
••••••
LT OLD
••
•• LIMIT ••

FS·········

*•.
'NO

•
•

0

(

*.
.* .* BG *. *. YES
• • ••• ERRRTN
•
*oo
AREA LT
•••••••••• X.
CHART KC
•
*. * .
10K.*
•
*E5
..
.*
•••••••••••••••

*CHGSTT

•

oE5

"ESSAGE lPOOO
INVALID ALLOCATU...,",

*.•
-YES

•

X

•

.*

0

• I
•

.*

Fit

••••
•

*.

IT I

-oreATES ACTIVE . . . . . ..
THE BYTE COUNT FROM
AREA
.*

*.

*. *.

.. NO .*ALLCiCAT ION
•• ••••
TABLE

•••••••••••••••••
Fl
*.
TOl *.
•* .*ENTRY
IN- *.

,..,eXT TABLE

*H5
BY USING A FORWARD
SCAN OF THE ALLOCATIUN

mb~~D~ONu~¥mL~S

POINT!
POINT2
WRKRG2
WRKRGI

EQ
EQ
EQ
EQ

ATABLE-16
PIBTBL
ADORESS
STORAGE KEY 0
BG LOWER LIMIT

x
•••••

.KR •

• 81·

••
•

NXPBNT

x

•o••••
1 •
•
••••••

·YES

:•.•••.•••• x:
NVAERR
X
•••• Kl •••••••••
•
ERRRTN
•

·........... ..
•

CHART KC

~\,

•

(

490

DOS System Control

Chart KR.

ALLOC Statement Processor, Part 2 (Part 2 of 2)
$$BATrNF; Refer to Supervisor, Chart 25

_A4

•

·.. ·A3·········
_'4
CHGSTT

•

USED TO ENTER AND EXIT THl
SUPERVISOR STATE. WHEN
USED AS AN EXIT, CERTAIN
BIT SWITCHES IN THE SVC
NEW PSW ARE RESET TO THEIR
ORIGINAL VALUES.

••• **
·KQ ...

---

... H4*

..................... x:

x

:NXPBNT

X

*·**·B3··_···*···*
*

**.·.~l
••••••••
ADD ••
16
TO
...
THE TABLE

..

..
SAVE THE
.. ADDRESS OF
•
THE PC RTN
• FOUND IN THE
NEW PC PS~J
•

...

POINTER 50

...

.................
_THAT I T POI NIS ...

... TO NEXT ENTRY'"

•*

*.

•*

• •••• C2 •••••••

END
.....
*
OF
*. VE;S
...
ALLOCATION .* •.•••••. X.

TABLE

+.

+ •• -

-NO

X

R5PPEA

*.

Cl

.

.-

.+

...

it

REPLACE BG

...

STAI1.T AODR
IN PIB

...

...

...

... AND ADD 16 TO ...

RETUPN TO ...

~~8~~~~

.................

: •••••• :~;* ......

·.···El••·•···•··

...

...
...

ST ATE:;

X

....EZ·········
X

• SET PIB VALUES ...
_FOR LOWER LIMIT_
-AND BLOCK COUNT_
-FROM ALLOCATION-

CONTROL

·····03·······
.
X

FORCE A
PROGRAM
CHECK

X

...

CHART KS

····E3*·-*•• *· •

.NSI FOLLOWS BAL.
* INSTRUCTION •

•••••••••• * ••••

:.**•• !~~~;* •••• :
..

.PUT INSTR AOOR •
.. OF INSTR FOL- •
• LOWING BAL IN •
.THE AODR FLu OF.
..
NEW PC PSW
•

** •• ** •• _._.*-•••

*····02···*··· . . .

... POINT TO NEXT ...
• PIB WITH POINTZ*
STORAGE KEY
IN WRKRG2

•••• ·C3*····*····

...

X

·.···01··········
...
...

•
•
•

.* •• * •••• * •••• * ••

-

*F2

.X .............. PETURN 1 S AFFECTED
X
BY USING A LPSW ON

:CKNDAR

Fl"*· *.

*

*...

:VES ....
END
....... *..
OF AREA.*
*.
.J2
•*

*. *.

oo.

t~~ ?~~T~5c~~~NWITH
~gc~5~fA~~Ef~EMOOIHED

ADORE-5S OF CONTROL.

.*

-NO

x

:*.**Gl***.* •• *

•
SET STORAGE •
• PROTECTION KEY.
•
IN THI S 2K •
•
BLOCK·

..............
X

** ••• Hl·*********
•
AOD 2048
•
TO WRKRG1,
INITIALLY
LOWER

:** ... ~!~!!•• * •• :

. . . . . . . . . . . . . oo • •

J2
DETERMINED BY REPETITIVE
ADDITIONS OF 2048 TO
THE LOWER LIMIT UNTIL
IT IS GREATER THAN THE
UPPER LI MIT OF AN AREA

Appendix H. Detailed Flowcharts

491

Chart KS.

START Statement Processor, Part 1 ($$BATTNG);
Refer to Supervisor, Chart 25
o

•••••*

-

••••

o I

···.A1·········

...............

>
•
>

•

S'BATTNG

.···'2.·.......

o

••

•
•

>

ST ART+2

•••••••••••••••

•

0

0

°A.

X
••••• A3·· •••••
CONVERT •
NUMERIC
•
•
_PART OF OPERANO.
•
TO A KEY
•
• VALUE
.AIt

..............

CONVERSION:
AN~ WITH OF IHEXI
OR WITH 02 IHEXI
MULTIPLY BY I.
IDECIMALI
Fl"'x'30'
F2-X'20'

·.........
• z •
•

: x•••••••••••••••••••••••• :

x
·····Bl·········.
*-*-.-t_._._._._.
.................
*SCANR2
•

GET THE

•
•

••••• B3···X ••••••.

KOt

•

C3

••
TASK
••
DETACHED

.................
• THE PI8 TASlE •
•
INTO
•
•
REG 12
•

.*.*_. *.
*.
*...
*•• _

t t.•.•*
*

.*

NO
OPERAND
NO
........... Xt. ENOS IN COL . t ••••
71
._

• YES

~~XN1~g~~AI~~AT~~

........
X

._

•
•
•

•••••••••••••••••

-NO

•

BUCKEl

X

•
•
o•

····elt··.··.·..
...............
X

• LOAD THE BASE •
• REGISTER FOR •
.THE Fe PROGRAM •
• FROM THE ORG •
.FlO OF ITS PIS.

t •• _

•

ATTACH FG •
TASK
•

·CIt

••

o

.··.·E3··········

-. If.

•
•
•
•

·····05·······
., .............*

*.

.YES

YES.* OPERAND *.
........
*. t.I S A BLANK ._ ._

• HuYE AOOR LF
•
FG ORIGIN
• Hno LOGICAL
..
TRANSIENT

.................

CONTiNUES TO
AS AN
ATTENTION TASK.
THE TRA~SI ENT AREA
J S occup 1 ED BY THE
ROOT PHASE AND THE
LOGICAL TRANSIENT

•••
IN USE. A S'IC 11
03..
IS THE ONLY WAY TO
•• CORE..
• RELEASE THE AREA •
•• ALLOCATED
NO X
••
FOR THIS
...................... .
•• TASK
••

-YES

x
.0.
t.

X

•• ••·CS····.·· •••

RU~

i

02 .t. _.

TERH?l

*.
OELIMITER *.
A BLANK

THE FG PIB IN
TASK SELECT ION.

CAUTiO~

•• NO
•••••• THE INITIATOR

*•••
·YES

.t.x *.

El

~~~MI~mA~8~N~hs

••

.. ..

'ING ADDRESS OF •

• t

-C,

.... .*. ....

:~ut·i~~·;;::;~·:

*..-t.IS

0

x

x

01

X

• HOVE CONTE"-ITS •

.OF LOGICAL TRANt
• -SlENT BUCKEl ..
.TU ULD ATTer-TN •
..
SAVE AREA
•

.................

•
•

•t

····.85··········
.................

•
COMPUTE
•
• CORRESPONDING.
•
PIB
•
•
ADOKESS
•

•

SECOND
OPERAND

0

ERRRTN
CHART KC
·KIt

•
•
•

X

·····ES··.····

MODIFY PIK,.

•

• LTK, AND KEY.
•
TO EQUAL FG ..
• KEY. ENABLE •
INTERRUPTS·
•

..............

I

\.

: x•••••••••••••••••••••••• :

.~.

:OPLGT
...

• t

*. *.

Fl

-.

t.

.0

*.•
-YES

Gl

x
.>.
t.

• t

*.

*.

-. .- ....x
o
o I
o

.0.x *.
HI

.. .. .. ..
IS BG

••••

·····H3·······
• SVC
o

:x ....•..... :

X

••••••••••••••
x

--*

seT UP HJ
LOAD

•
•

•

.KS

•

•

.•..HS·········

•

..

.K5

•

*
•
.................
•

•

0

22

····J2·······.·

SSBATTNH

•

StEZE THE
SYSTEM

NVSERR
CHART KC
.K2

•••••••••••••••

•

X

•
0

•

•
•
•

MESSAGE

DTCHAT

SVC It LOAD
SSBATTNH

•••••••••••••••

•

····.J3.·..··.

•
•
•
•
•

DETACH THE.
ATTENTION •
TASK. PIB
•
FLAG EQ
•
X'Bl'·

••••••••••••••

0.2
ISOOD

!~mA~NT

•

X

X

•
•
•

•

..............
•
•

o

:.••••.•... x:

*····Jl·······

..

•
•

X

•

NO
X
••••••••••••••••••••

•
SET BG PIB •
• FLAG TO X'83'.
• I TO MAKE BG
•
•
TASK ACTIVE.
o
0

.

0

X

SET UP TO
•
DISABLE
•
INTERRUPTS ON •

svC 22

THE SYSTEM

0

• YES

Bit·

o

0

.•

•

·····G5··.··.·.•.

•

0

.*OPERAND *. ••

•••••
·KA •

·····G3······.··.
•o

t •• _

STARTBG

·...............

.................

IS Fl OR
.111 . . . . .
FZ
.-

*.

.................
•
•
•

III. YES

°NO

••
••

X

·····FS •••••••
•
svC 22
•
•
RELEASE
•

X

••

OPERAND

•t

X

·····F3··· •• • ••••
.PUT FOREGROUND •
*INITIATOR TITLE.
• 1 NTD FOREGROUNO.
• PROGfUM NAME •
tFIELO
tFit.

*. *.

OPERAND
NO
LENGTH
TWO IS ._ ••••••••••••••••••••

0.4
IPIOO

X

•·•••K3··········
• MOVE AOOR OF

AREA NOT
AVAI LABLE
MESSAGE

•

>ATTENTION SAVE 0

•
AREA TO THE •
• FOREGROUND PIB •

o

•

•••••••••••••••••
x

o

•••• >

o 2
o

••••

492

DOS System Control

0

0

(

Chart KT.

.··.At·········,.
...............
"

,.
"
,.

START Statement Processor, Parr 2; $$BATTNH;
Refer to supervisor, Chart 25

~

$SBATTNH

,.

A2·········
.•.••.............
.

"•

HOVT6L

"

....•
...."

"•

"

•

"1

"

:x .............................. :

..•..,n··········
x

,.
ADD BRANCH
.. VECTOR TABLE

.................

•
•

."................"

•
eCB. PUT
,.
_BUFFER ADDRESS ..

IN CCW

·····01·······
..
..
..
..

•

..

X

HODIFY PIS ..
ASSGN FLAG
*
TO ALLOW
,.
SVSRES 110 ,.

..

*D2
PHASES U5ING
BASRG2 AS A
BASE REGISTER
WILL BE LOCATED
IN THE
FOREGROUND AREA

"** ••••••••••••

OF LABEL
INFORMATION
TABLE

•

X

*····03*··*·····*
•
LGAO BASRG2 •

• WITH ADDR OF
•
FOREGROUND
•
AREA

•
•
•

*02
..*.............
.•

X

..
..
..

TO S

•

. ····EI········,.*
.. SAVE ADDRESS

•
•
•

••••• C3····*·····
•
RESET RCD
•
•
NUMBER AND
•
.SET KEY LENGTH.

..

*CCW ADDRESS IN ..
,.

THREE TJ~E5

X

X

PUT SVSFGl

INIl IAUIE
LABEL AREA
*B4

'*

,.

.····el·······.··
.................
,.

THIS
SUBROUTINE

..-*-.-.-.-.-.-.-.
................

_ENTRIES TO THE ,.

INITIATION

"eo
PERFORM

X

····*63·····*····
.WFHRES
KU*

,.
,.

• ROOT TO SUPPORT.

•

"

····E3·········
...............
X

,.

•
•

..
..
,.

·..................

"

CONTROL
CHART KS

•

*

"

•..·.Fl········**
X

.. GET CYLINDER
NUHBER OF
..

..

.
*

.LABEL AREA FROM-

..

COHM RGN

..

"•••••••••••• *••••
.................... .oX:

x

..•.•Gl··········

:AOORLP

"02
ADD ROOT
PHASE BASE
REGISTER VALUE
TO CCW ADDRE!)S

• RELOCATE THE •
ccw STRING
•
•
IN THE ROOT •
•
PHASE
•
·G2
•
•
• *** ••••• *** •• ***

•

.. .". .
.. ..
i

*. ..

HI
• NO .*RELOCATION * •
FINISHED
••

.. .. *.

*.

.*

*••
*
·YES
X

••
*.*J
1*•• ** ••• **'*
•
INIT CCWS
•
•

*

RESCW4 AND
RESCWS WITH

*•
'*
'*

••..•......** .••.
•

LABEL AREA
ADDRESS

"K2
LAST TRACK EQUALS
KEY TIMES THREE
DIVIDED BY 16.

X

····.Kl·······*··
•
CALC LAST
•
•
TRACK FOR
•
• LABEL AREA IN •
POINT3
•
•
.K2
•

.................
*

x
··....
....""
• 1

"

Appendix H. Detailed Flowcharts

493

START Processor Subroutines $$BATTNH: Refer to
supervisor, Chart 25

Chart KU.

......,*•••••••••

••

WFMR£S
•
••••••••••••••••
•

o

. 3.·..••.··
.·••·.............
.•
•

••

LOGGER

•

.

•• ••••
KB •
• El*

"
"

!........
HEAD VALUES •
••
•
••••••••••••••••••
••••• a••
I~D ~~~~E

:•

:

•··.··C1··········•
X

•

SETUP

•

tCD
•
•••
•
••••••••••••••••••

······0'
···········
•-.-*-.-*-.-.-.-.

X

•
•

PUT ENO OF
BUFFER AD DR

•

FOR RE VERSE

•

KC

WRITE
FilE

•

MARK

•
•

SCMI
•
•••••••••••••••••

•.•••.. ..• .x:
C3

.~.

.".x *.

.* END *.. *•
OF
.*
*. SUFFER .*
*.
.*
*••
·YES

.. NO.*
••••••

:x ........... :

•o

••••RETEl.!TO•••••••
LINK •
REG "OCR

•••••••••••••••

•0

·····E:3···.··.·.·
X

•
•

CALCULATE
LENGTH OF

•
•

·.................
•

BUFFER

•

•

CONTENT

•

"

F3

.".x

••

oo· ANY .oo •• YES
••
.oo
OUTPUT
•• oo.oooo
·oo
••
·oo
oo.

·oo °NO
.•

.·.·.G3··········
X

•
•

ZERO
•
WRKRGI TO
•
• SET LENGTH FOR.
•
ZERO OUTPUT •

.................
"
"
:X •••••••••• :

••.•.H3··········
X

•
AOOITO
LENGTH AND
•
• STORE IN CCW

•
•
•

·

.

"

"

•••••• 11 ••••••••••

···.··J3···········
.-.-.-.-.-.-.-.-.
X

EXCPRG

KC

LOG 1/0

•••••••••••••

...
•

o

494

DOS System Control

•
•

x

*••
eYES

03

SET INPUT
~WITCH TO
FGl

C5 .'. .oo
oo· REA[I .oo *oo
YES ...
. •. oo .... o .. oo....... ..•.
l~SUED
.·oo
••
·oo
..
·oo "NO
.-

*.

.*
*. *. NO
*..* CHARACTER
BLANK
.* .......
*. *.
.* .*

•••••••••••••

•

...
•
...

•

:REVSCN

X

CHKFGA

•
•

INTO WRKRGI

X

EXCPRG

·····es··········
.•".................

·····B3··.·.·.••·

•

•••• K3·.·X ••••••
RET TO AOOR
IN LINK REG

•••••••••••••••

•

••

·.·.0".·.·.··.·.
X

·...............
•
•

CONTROL
CHAIlT KB

•
•

"

.··.·05·········
........"'.....
X

•
•
•

ERRRTN
C.HART KC
·E5

"E5
le200
READ UHlT
NOT DEF INED
MESSAGE ..

•
•
•

Chart KV.

....Al·········

...............

<
•
<

$SBATTNI

ASSGN statement Processor (Part 1 of 2) $$BATTNI:
Refer to supervisor, Chart 22

•••A2·······••.
·".·.............
..

<
•
<

A~SGN

•

....

•

....

•
• I
•

:x ......................... :

.....81·······
..............
x

•
•
•
•

.02_

•

oo_

Ot

.i'.

too

<

•
•

too

I S A COHMA

NV!)ERR
CHART KC

'02
INITIAL
COND I lION
NWPBPT ! S Al!)(.j
MODIFIED BY
TXCUU
SUBROUTINE

oo- DELIMITER too NO
too

.too ......

.....
·•....
•

too too *F2 ._ .too ._

x

-YES

• 4

·.··.E1··········
*-*-*-t-*-t-.-t-*
.................
i

• SY5XXX

•

KO-

*-*-*-t-*-*-t-t-*•
•

•

<

Gl

.'.i

too

....

•• ·f2 ••

o ~

0

.... .". ....
.. .. .....
••
.
.·····Jl··········
-.-.-.-.-.-.-.-.
Hl

•

lit.

OPERAND
IS IGN

•• YES
••••••

*•••
NO

x

: RNGTQP

•••

03

····04.•.······

*•

•*
*. *. YES X.. ..
NVSERR
..
*..* CHARACTER
GT UPPER
•••••••••• X.
CHART KC
..
*. *LIMIT
.. ••••••••••••••• ..
. . * .*
*••
>NO
X
••••• e 3 ••••••••••
..

AOD

..

1 TO

•

POINTER,

..

SUBTRACT 1
F ROM COUNT

..
..

.................
..
..

>

•

x

• >.

F3
*•
. " END *•*oo
.. NO .. "
....... *. *. STRING
OF
.* .*
*. *... *.."
.YES

X

..
..

···*G3·········

...............

>

RlT TO AODR
IN lNK REG

..
..

>

Appendix H. Detailed Flowcharts

505

Chart LG.

Common Error Exits $$BATTNI; Refer to Supervisor,
Chart 22

•••••
•• •

•• •
•••

• 02-

•••

CASERR
•

ERARTH

•

•

ONE ERR

X

•••• Bl· •• • •••••
CHART KC

*Cl

•••••••••••••••

•

•

•

•

····8Z.··X •••.••

•

*e2

CHART KC

•••••••••••••••

NASERR

•

·.·.83··X••·····

•

•

•

*e3

•

•

'Cl
1AlOO
CONFLICTING

•

CHART KC

•••••••••••••••

•

'C3
IAlOD
INVALID

~~2Sm!GNMENT

••••••
••
• 05•

• Olt-

IDSERR

ERRRTN

..

••••••••

•

ERRRTN

•

.•.

..

•••••
•••
• 03_
•

••••0

• 01-

•
•

•

NDTERR

X

• ••• B~ •••••••••
ERRRTN
•
CHART KC
•

*C4

•••••••••••••••

•

'02
KZ-Fl

'03
KZ-B3

'0..
KW-C3

'05
KV-E3
kW-03

KX-E3

.••....•

.....
•• •

.

NJPERR

•

X
····F2·········
ERRRTN
CHART KC
*G2

•••••••••••••••

UCUERR

•

•
•
•

ERRRTN
CHART KC
*G3

•••••••••••••••

gtlUENTLY
UNASSIGNABLE
MESSAGE

506

DOS System Control

NLUERR

X

•••• F3 •••••••••

•
•

'63
IAOOD

'H2
KW-F3

•

••

•••

•
•

.....
•• •

• H3_

• ti2-

'H3
ML-Ol

•
•
•

•
•

•

H40

••
•
X

•••• F4.· •••• •• •
ERRRTN
CHART KC

•
•

••••••••••••••• •

·G..
1"400
INVALID

*G4

k~llmc~mN

MESSAGE

ERRRTN
CHART KC

•
..

·cs
..............
.•

'C5
lA200
INVALID
DEVICE
TYPE
MESSAGE

MESSAGE.

*01
KV-03
KX-F3

•

X
····85·········

'C"lAOOO

INVALID
MM~~!GNHENT

mJ5~

•
•

Chart LB.

LISTIO statement Processor $$BATTNJ; Refer to
supervisor, Chart 23

•••• '1 •••••••••

•

•

UUTTNJ
••••••••••••••••
••

•

• ••••2 •••••••••
.:

LISTIO

:

•••••••••••••••••

•• ••••
•
I •
•••••
•

..x •••••••••••••••••••••••••.

•• ••••
•
2 •

••••• •

.X •••••••••••••••••••••••••

Llsl'2
••81.i••••••••
• SCANR2
KD.

*_._e-._._._*_._.

..••.••
•·····B3·····
•
CLEAR THE

•••••••••••••••••

•••••••••••••••••

•••••••••••••••••

•••••
c3.i
••••••••
•
PUT

.. ... ..
........

•
GEr THE
• OP ERAND FROM
• LISTIO 5THNT

Cl

.•.x

lID BUFFER

•
•o

•
•
•

t.

*. •• NO
•• • *
DELIMITER
•
'. IS A BLANK .* ..•..... X'
'. * . . * .*

····C2··.······
NVSERR
CHART KC

•
•

..···B4······.··,
• ADD 8 TO THE
• PUB POINTER
• SO THAT IT
• POINTS TO THE
•
NEXT PUB

.'

*.• '
'.

.•.x *. *.

R :

•••

i

o •••• •

·····03·······

.-*-*-.-.-.-.-.-.
elSTBG

LJ*

o NONE LISTiNG
•
SWITCHES
•

····EZ··X•••••··
CONTROL

VES.o
••••••

••
OPERAND
IS F2

••
••

.•

•

•

X
····G2·.·.·····
CONTROL

....D
0:·..
....
.. .. ..
?tEm

CHART KB
••••••••••••••••
••

•

•

•

:

SPACE

LY=~

•

:

•••••••••••••••••

.

·:.~~

H2

•••

i
·····Jl·······
...
.-.-.-.-.-.-.-.-.
: BACkAI~UN :
.UTBG

LJ.

°r~Rft~D o:o~~!.

ASSIGNMEN¥S

•

•••••••••••••••••
i

.-.-.-.-.-....-.-.
•••••Kl ••••• •• • ••
LJ'

LIST

:FOlm~=M~E

•

:

•••••••••••••••••

•

CHART KC

.i..
• ••
••••••
•

•••••••••••••••••

• ••• FIt •• • ••••••

C~~=fR2.

•••••••••••••••

:•

•

··........

••

••••NVSERR
J2.i••••••••
•

:o

•

.IC.4

••••

•'

••

X

.. ..
............

CKPBUA

.NO

X

•
•
•
•
•

FOR SVSLOG

•

H3

•••

••

DEVICE

•• VES

DOWN

••••••

·NO

• I

.. .•. .. .
.........•·•····••••
i

J3

••

••
DEVICE

•. *. ~~sl~~fgG

•• VESX

i

°NO

K3

.•.i

• •
• 2 •
••••••

••

.*
•. o.
•• DEVICE

............

•• UNASSIGNED

.NO

x

•••••

·LN •

••
•

••••
•

VES
••••••

LSTUA. B2'

x

LSTF2

•••••

•••

LIST HEADER

AND THE WORD

~ONE
•
•• ••••••••••••••••

•••••
Es.i ••••••••
.SPACE
LL.

.-.-.-.-.-.-.-.-.

•••••••••••••••••••
.
••••

....
•••••• x.:·..
...
.... ...
CHKUA

eYES

*LJ •
• 85.

•

LL.

i
·····G3··········
p5No~~~ss :

:•

•

.:5

x

• '.
HI..

:•••••••••• xi

BR

X

•••••••••••••••••

·NO

•

••

•• ••• e4••••••••••

•
•

•
PUT THE
•
STARTU.G
"ADDRESS OF THE
.LUB TABLE INTO
•
POINT2

••••••••.••.•i .••

•••

• LSTFI

...-

•• VES
••••••••••••••••••••

.*

.NDUNIT

.....F3.··.··.···

• •••• t=2 ••••••••••
.LSTFI
LJ.
*. YES
.-.-*.*-.-.-__
.-.
.* •.•••••• X.
LIST
•
.*.*
:FOIEI'2~=~N9NE :

.. ..
.... ....

*.

•.

..

.X •••••••••••••••••••••••••

•. • NO
.•

G1

••

.

X

CHKF2

.>.X

.-.-.....
-.-*-.-.-.
*

•
•
•

i

OPERAND
IS Fl

'. '.

04

NOP·NO

•••••••••••••••••

X

•'

••

X
··..·E3··.·······

.'.
Ft
*.
••••

*.

..

•• ANVTHING
••
LISTED

•

0

•
PUT THE
•
STARTING
• AODRE SS OF
• THE PUB TABLE
INTO POJNTl
•

•

CHART KB
•
•• •••••••••••••••
•

CHKFI

••

.G~.

TO NOP

·VES

UAPSWH

••••••••••••••

·NO

•

HEAD~~T AND

:

*.••••••••••
YES
X.
LIST
•
.*
• BACKGROUND •
*. *•• ' .'
• ASS I G..HENT 5 •
•••••••••••••••••
OPERAND
IS 8G

••
••

••

•

••••••

X

• •••• 02 ••••••••••

••

NO..
END
• ••••
Of PUB
•• TABLE

• 3

Dl

•
•
•
•
•

X

Cit

•
•
•

:••••••••••
I~~t'o

X

CUAPNX

••

HE

HE
SIGN

•
•

• ••••••••••••••• •

' ..• VES
'

•

.

.

X

0

••••••
• 2

•

Appendix H. Detailed Flowcharts

507

List Subroutines $$BATTNJ; Refer to Supervisor,

Chart I.1.

Chart 23

•••• Al •••••••••
0
LSTBG
0

o
o
o

•••••••••••••••

o
o
o

0

••••'3••••••••• 0
LSTFJ

•••••••••••••••

0

0

•*LH
•••••
• KI*

o •

•

•••••8~.i••••••••

•••••83.i••••••••

:
v~ 'MT~lcL :
OANa N CL v LUESO
o INTO WRKRGI 0
o

:

:o

0

•••••••••••••••••

:

o

:o••••

:

•

0
0

o

7A~h ~=k~~f

x

cl~:::·····:

THE OUT PUT
BUFFER

•
0

•

0

•

0

X
·····85·········.
:

LSTF2

:

·

P~Ic~H~NC2

: ~~¥h mm :
•••••••••••••••••

.

.····C5...•......
X

•
•

CLEAR
THE OUTPUT

•
•

••• 8UFFER •••
•••••••••••••••••
X
·····05··········

i

:····9~;·;=;····:
HIXm"IN
TH OUTPUT
UFFER

:0

•••••••••••••••••

•••••••••••••••••

:
o
•

:

•••••••••••••••••

x
:••••cl~::=·····:
THMm UT

P~IclHlN&1

•

PUT THE

•

• FOREGROUNO TWO •
THE :

: HE'85'p~'

:
0
•

BUFFER
•
•• ••••••••••••••••

•••••••••••••••••
x
•••••
*LK •

X

• 81-

o

•••• ·El ••• ••••
:
S5~1
·0
o SW~ SVUWH
0
o
Tu BRANCH 0

tYSTU

o

0

LSTAUN

••••••••••••••• •

X
·····E5··········
.-.-.-.-.-.-.-.-.
*LSTAUN
LK*
.LlST FOREGROUNO.
•
TWO UNIT
•
• ASSIGNMENTS •

•••••••••••••••••

OFZ
THE RIGISTER

fsm NS~~~

SPEC1F\CATlON.
•
•

···.FS···X ..·.··

o

CONTROL
CHART K8

•••••••••••••••

..
i..
• ut •
• 82•

o

0

LSTBUN

508

DOS system ConLrol

•

••

Chart LK.

Locate Assignment Routine $$BATTNJ; Refer to
Supervisor, Chart 23

.....
..
*LL ...

.. E4*

·

••• ·Al .... •••••••
LSTAUN

.
*
:

• 4

:

:x ......................... :

x

..... 81··········
...

RESET THE

:~2~~~~-.-.-.-~~:

................

". LOGICAL UNIT ...
... SPECIfICATION ..

•
•
•

:X ••••••••••••••••••.••••• :
x

SAVE

THE

·

SPACE ONE
LINE

X

·····01··········

• 3

••••

NXTLU~

•
:

x

: •••• ~2!~2~••••• :

:•••••••••••••••••••••••• X:

··.··05··········

•

CLEAR

:~~:~~-.-.-.-~~:

•

OUTPUT

...
"'INDEX
•
"DISPLACEMENT + ..
... NICL ADDRESS ...

.................
*.

*.

.'

.....
...

: ••••• ~!.~~~ •••••:

·LL ..
.. 83·

SAVE NICL

.. ENTRY IN LOC
..
$CfICL FOR
LUB SCAN

NOUNIT

F3

..
...

GET FICL
ENTRY AND

...
•

.. CALC STARTING ...
-LUB ADDRESS FOR-

•..••.• :2~.:

.F4
••

..... .. ..
..
·····G3··········
·..................
V

: ••••• 4O . . . . . . . . . . . . . . . 4O .. X:

THIS SUBROUTINE
IS 10ENTlCAL TO
THE ONE IN
S$BATTNI PHASE

•
LANXJB
X
••••• FS ••••••••••

:~~~!2_._._._~~:

• SET LUB VALUE.
.IN JBSLUB FROM ..
.CHAINEO JIB .F4.

.................

• 4O .•
'NO

·LL ..

*G2

·····Gl··········

.'.x

ES 4O. .' END
••
4O. 4O.. OF CLASS
••
••
4O.

..

x

:;~~~

.. SET UP LOC
•
•
JBSLUB FROM •
.LUB ENTRY .E2.

.................

x

·····Fl··········
·..................
...
..

X
•• ••• ES··········
•
PUT THE
•
•
CHAR ACT ERS
•
-At T- INTO
•
• THE COMMENTS
•

:~=~~~~-.-.-.-~~:

YES
...... ..

X

..

X
·····E3··········

THE ONE IN
$$8ATTNI PHASE.

*.

* ••
'NO

:...:!.~~~~~~...:

••• LL-El tC1

THIS SUBROUT INE
I S I DENTICAL TO

CLASS
IS EMPTy

-L]ST ASS]GNMENT• FOR LUB ENTRY •

· ....
·

BUFFER

'E2
El

it

ASGLST

: ..... 03 ••••••••• :

... ENTRY ADDRESS ..

.*

X

.. LOGICAL UNIT
•
• SPECIFICAT JON ..
•
IN LOCATION •

.................
··....
.....' ...

REG IN LOC

:.......... x:
SAVLUS
··.··C5··········
..
SAVE THE
•

:~~~~~.-.-.-.-~~:

: •••• !~!~~~ ••••• :

.*
*.

.................

•• ••• C3··········

...

CALC NICL

•

• .LL-D5, B1

... LOGICAL UNIT ...
.. SPECIFICATION ...

...

•

X

·····C1··········
...

OUTPUT THE
SECONDARY
HEADER

STARTING SCAN
ADDRESS EQUALS

DOUBLE THE FICL
VALUE PLUS THE
STARTING ADDRE:SS
OF THE LUB TABLE,
LUBAOD. THIS VALUE

IS SAVEO IN SCFICL.

• F3·

NOS CAN

X

•

PUT THE

..

CHARACTERS

•
•

• SYS INTO THE •
• OUTPUT BUFFER •

'G4

PROGRAM SWITCH
SET TO BRANCH
IF MORE STANDARD
ASSIGNMENTS ARE
TO BE LI STED.
BRANCH W]LL BE
TAKEN AT END
OF JIB CHAIN

.'.it

STDSWH

G5
••
•• LIST
••
OR ... ST ANDARD
••
• •••• ASS IGNMENTS ••

.....x
·
..
..
·

••

........
·G4

X

:~~~~~~-.-.-.-~~:

•
PUT LOGICAL •
•
UNIT
•
• SPECIFICATION·
•
INTO
•

·..................
OUTPUT THE
HEAOER

:

.... .....:
~~~~~;

..~

'J2

:~~~~~.-.-.-.-~~:

·..................
SPACE ONE
LINE

x

: •••• Kl ••••••••• :
SET UP
SECONDARY
HEAOER

*
:

•

....
1

:

PROGRAM SWITCH

SET TO BRANCH
WHEN SYSTEM
UNI TS ARE TO BE

LOGGED. NOP WHEN
BG PROGRAMMER

CLASS UNITS ARE
TO BE LOGGEO.
WMEN SWITCH IS

SET TO BRANCH

WRKRGl CONTAINS
POINTER TO TRANSLATE
TABLE.

SYSSWH

••

*.

x

4O..

.* . .

••

J3

.4O

SYSUNT

.

••••• J4 ••••••••••
PUT SYSTEM
•

SYSTEM
•• YES
•
UNIT LIST
•••••••••• X.

....

.J2..

••• *

.
•

UNI T NAME
INTO THE

•

.. .'. ..
........
x
··....
........
H5

NO ••
• ••••

.LL •
• B1·

x
·····Jl··········

x

LSTSTD

••••. H3··········

X

••••• Hl ••••••••••

••

·NOP

·LL •
• • 8~.

....x

•

•• ••• B5··········
•
ADD 1 TO
•
•
WRKRGl
• SO THAT IT
..
CONTAINS
•
NEXT UNIT
•

.·.....
....

.................

LSTBUN

.................

• 2

•

X

X
·····B3··········

......82·········..

...

... REGISTER THAT ...
...
CONTAINS
•

··......

·· ..

•
1

••

••

END
OF JIB

CHAIN

••

••

••

·YES

• 3

•

110 BUFFER

•••••••••••••••••

'NO

X
•.•••K3··········

.CONVERT LOGICAL.
•
UNI T NUMBER •
• TO EBCDIC AND •
.PUT IT INTO THE.

:.~~!~~!.2~~~~~.:

x
··....
......
• 2

•

K4

.'.x

••

• •••• KS ••••••••••

• ••• END OF
.4O NO
:
CR~Rgl T~O :
•• SYSTEM CLASS •••••••••• X.THAT ]T POINTS.
*. UNITS ••
• TO NEXT UNIT
*

....
.. ..
·YES

.....
..·

:LSTPRG

x

.LL •

• B4.

..................
··........
.~

• 4

•

Appendix H. Detailed Flowcharts

509

Chart LL.

output.List (Part 1 of 3) $$BATTNJ: Refer to
Supervisor, Chart 23

•••• A2 •••••••••

•

•

•••••••••••••••••
•

•••••
ILK •

SPACE

•

• H5·

•••

Bl

••

.•.x

:.~1·

X

••

*••
• NO

ASGLST

••

•*
t.
• e STORED
I. NO
*. •• STANDARD
••••••
IN JIB ••
*.
.x

*••
eYES

:

• ••••C3.· ••••••••

*-*-*-*-*-*-*-*-*
SPACE ONE
•

.-*-*-*-*-*-.-.-*
•
SPACE ONE
•

•

•

LINE

KU.

•

•••••••••••••••••••
•••••
*LK •

X

.SPACE

•

•••

LL •

LINE

•

•••••••••••••••••••

• G5·

X

X
·····85·······

LSTSTD

•••••••••••••••••••

•
•

•
•

X
• •••• e2 ••••••••••
.LOGGER

•••

Kit •

..·.·.84··········
-.-.-.-.-.-.-.-.

LSTPRG
.SPACE

• ••••82 ••••••••••

:

•.LK
•••••

•

••••

• 19hEft~F~~~ •
••
••
..
i.. •••••••••••••••••
elk •
• D5·
••
•

YES
.1 ••••

·LK ..

•••••

·..
ILK

*. I. ALTERNATE
IN JIB ••
*.
.-

.•.x

••
NOUNIT
••••••••••••••••
•
••••

.* STORED *. ••

Cl

•••• A3 ••• ••••••

••

LL.

SPACE ONE
LJNE

•
•

·····CIt••X·•••·

• RESET SYSTEM •
:SWI ¥~~T S~A~~H
•
TO NOP
•

•••

••••••••••••••••

•
•

•

RESET·
STANDARD
•
ASSIGNMENT
..

LIST SWITCH.
STOSWH
•

••••••••••••••

X
·····C5··········
..................
•
•

SET JDBLUB
SAVED FOR

•
•

IN LBSLUB

..

.WITH THE ENTRY.
•

•

STANDARD LIST ..

• F5*

••
•

UNXJB

•
•
•

X
····02.····
...·
RET TO LNK
REG AOOR

•
•

VIA LOGGER
•
•••••••••••••••

X
·····03······.··.

X
••••• 0.,., ••••••• • ••
•

PUT THE

•

•

:

Nl~~oAa~K:A~L

:

•
•

PUT THE
CHARACTERS

•
•

•

INTO THE 110

-NONE-

•

•

• PROGRAM CLASS •

•••••••••••••••••

•••••••••••••••••••

X

X

•

BUFFER

•

•••••El.! ••••••••

.·····E3··········
-.-.-.-.-.-.-.-.

·····E4····..····

•

•••••••••••••••••

• VIOSLY SET UP •
•••••••••••••••••

•••••••••••••••••••

•
SAVE THE
•
•
LUB ENTRy
•
• FROMTHEJB·
•
IN LOCATION •
•
LBSLUB
•

x

• LOGGER
•

OUT PUT THE

• F5.

•••

•

·•....F3·. .
••••

••••

.

.···.F3.···.·.···
.-.-.-.-.-.-.-.-.

NDSCAN

LANXJB

•

LINE PRE-

.LK

••••••
ILK

KU.

X

.SPACE
•

LL.

SPACE ONE

•
•
•
•

PUT THE
PROGRAM
HEADER 1 NTO
110 BUFFER

•
•
•

X

••• •• 05 •••••• • •••
•
MOVE THE
If.
•
CHARAe TERS
•
•
-STO•
•
TO COMMENT
•
• FLO OF BUFFER •

•••••••••••••••••

x
•••••
.lK •

• 05-

••
•
ASGLST

(
\

•

x
•••••
.LK •

• 81·

••
•

LSTAUN

•

•
LINE
••••••••••••••••••
••

•
•

····G3.··X ••••··
RET TO ADDR

•

IN LNK REG
••••••••••••••••
••

(

510

DOS System Control

Chart LM.

output List (Part 2 of 3)
Supervisor, Chart 23

$$BATTNJ~

Refer to

••••·••••••
•• ····A2
LSTASC;
••••••••••••••••
•
82

•*• *

'.

*.

.'.x *. *.

UNIT

ASSIGNED

*.

* ••
'NO

.*

*. YES
••••••••
.*

'CI

PUB ENTRY ADDRESS
EQUALS PUB PO INTER
FROM THE LUB MUL T1-

:NOTASG
••••• C3 ••••••••••

mlYI~~ MmsTa~

•
••

THE PUB TABLE,
PUBADD.

SET
'IGN'

•
•

e
••

IN THE 1/0

• •• X>

•

BUFFER

e

•••••••••••••••••

X
·····02·.··
...·.·

• CONYER T CHAN •
• AND UN IT SPEC •
*'0 HEXAlJECIHAL •

•

EBCDIC

VES.*
•• ••••

•
e
•••••••••••••••••

•

•
•

•
•
.................
F2

•

*.

X
·····G2 .........
.
• CONVERT MODE

•

•

SET BYTE
•
• TO HEXADECIMAL •

•
EBCDIC
••••••••••••••••••
••

e
e

•

····D5·········
OUTPUT

•••••••••••••••

•
•
e

SET

•

•
•

BUFFER

•

•

•

•

OUT:~I ••F 3.! ••••••••

.-.-.-.-.-.-.-.-.
.LOGGER

•
e•

MODE
INFO INTO
ThE 110
BUFFER

•
•
•
•

•
e
•••••••••••••••••

KU •

OUTPUT
LINE

•

••

•••••••••••••••••
i

•·····G3··········
••
•
tLEAR
:e gH~~~A
:e
•••••••••••••••••

••••• H2 ••••••••••

pur

.*

'UNA'
IN THE I/O

x

* .•
eYES

•
•
•

*••• .*

.*

••••••••••••• x.x •••••••••••••••••••••••••••••••••••••••••••••••••••

*. NO •
.*
*.•*DEVICE TYPE *.••••••
-. TAPE.*
X
*.
.*

•

*.

-. *.

.•................•

•

x

• e.

UNIT
IGNORED

•
·····E3····.·····

•
PUT CHAN
•
• AND UflilT INFO.
• INTO THE 110 •

BUFFER

.'.x *.
'NO

X
·····E2·········.
•

.*

*.

•

D3

•
•

.···H3·i••·•..••
RET TO ADDA.

•

IN LNK REG
••••••••••••••••
••

Appendix H. Detailed Flowcharts

511

Chart LN.

Output List (Part 3 of 3) $$BATTNJ; Refer to
Supervisor, Chart 23

••••

•••••

""1 ""
"••••"

*LH •
• K3*

"""
X
0"0

LSTUA

82
*•
0" . *HEADER *. "0

*.

*.

PRINTED

*.

.*

.*

.* NO
............•.•...
NOP

*BUYES
.• -

o

0

••••••••••••••••••••••••• X.
UALNOT
X
•••••C2 ••••••••••
" CONVERT CHAN "

:• A~~A~~lMe
;•
EBCDIC
"
"
•••••••••••••••••
X

••••• D2 ••••••••••
"
PUT CHANNEL "
"
AND UNIT
•
"
INFO IN THE "
•
110 BUFFER
•

.

•••••c3.i•••••

:
S~~D H~aD~R ".
• LIST
•
•
*C4
•

SWI~CMES

"•••••••••••••• "

X
.•...03.····
...•·
"LOGGER

KU.

*-*-*-*-*-*-*-*-*
OUTPUT
•

•

"•••••••••••••••••

••••••••••••••••••••

•••••E2.i••••••••
.-.....-.-.-.-.-.

.-.-*-*-.-.-*-*-*

.OUTPUT

·
•
•

LM"

OUTPUT
LINE

•
•

•••••••••••••••••"

..
i..
*LH •

.

• B4-

"•

CUAPNX

•

HEADER

•••••El.i••••••••
"SPACE

"

LL"

SPACE

•

"

ONE

•

•
LINE
•
•••••••••••••••••

••••• Fl.i••••••••
•
"
:

PUT
SECONDARY

OUY~OVEUuJ~ER

•
•
:

•••••••••••••••••••

G).i••••••••
.:•••••
-.-.-.-.-....-.-.:
• LOGGER

KU •

s~~~CMIRY

•
HEADER
•
•••••••••••••••••

H3.!••••••••
.•••••
-.-.-.-.---.-.-.
• SPACE
•

•

LL •

SPACE

ONE

•

•

•
LINE
•
•••••••••••••••••

.!..
" ""
"••••"

"1

512

DOS System Control

Chart LP.

VOL statement Processor $$BATTNK: Refer to
Supervisor, Chart 23

••••

·•••••.•
• 1

X

•• ..•. A2·········
••
VOL

...............

•

·•••••••••••••••.
•••• A3 •••••••••

•
•

•

'$BATTNK

••

····.A4·•••••••••
.-.-.-.-.-.-.-.-.
.SCAHR3

.................

:x ............................................. :

x

B4

•

: BASEl:~~lFOR
•
INFORMATION
BLOCK CSECT

*.

•

..
..
..

INTO POINT4

02

.•

.'.x ••
C4
.*
•. ••
•• LENGTH

X

..

....

·YES

·····e2··········
·..................
.. PUT STARTING
..
ADDRESS OF
•
LABEL AREA

••

•• DELIMITER •• NO
••
IS A
••••••••••••••••••••
••
BLANK ••

:
•

.................
•

:
•

OPERAND

.. .'. ..

x

INITIALIZE

KO.

GE~A:~LE

:
•

••••• B2 ••••••••••

•

•

NO
•
..GREATER THAN •••••••••••••••••• x.
••
0
••

..

*. * ••• .•
·YES

.. .'. ..
....

.'.x *.

it

04

*. *. NO
*•*STATEMENT
*.. ••
IN
.*oo ......
SEQUENCE .*
*.
..*
x
*..
"
·YES

••

•• Ut-4GTH
•• NO
•
•• LESS THAN •••••••••••••••••• X•

.....

••

...

*.

9

.*

••

-YES

·lV •

• B4·

,;

.'. *.

·····f4.....•..•·

OTSERR

X

E2
FILE
NO.*
TYPE I~
•• •••• SEQUf:.r-..ll Al

.*

*. *. OI!:.K
*F3

*. *.
.*
.*
.. *

•
CLEAK FilE
•
• NAME ~ TOR AGE •
•
AREA AND
•
• ~()VE THE FILE.
•
NAME I~
•

.................

* ..
"
-YES

.•...F2·.*"lI···
X

..
..

HT o'1TR!:lIJO ..
TO INDICATE ..

..

[;ISK ENTRY

..............

• LAST SEQUE"4T1AL*

..

*F3

•

'F3
THE5E IN~TRUCTI0NS
AKt: USED TO OUTPUT
LABEL INFORMATION
THAT WAS FOUND
Fl.J~ THE PkEV IOUS
LAbEL BlUCKS.

•
•

X

•
•
•

..

SET KEY
FIHD TO
FILE NAME

•
•
•

.···.C4·.········

·····G2··········

X

X

- SAVE S,VMbOllC •
• UNIT ADDRESS •
• I .... LOC MTeLOR •

lW.

.................

*-*-*-*-*-*-*-*-*..

.................
.. OUTPuT THE
.. LABEL TO THE

·................
NVSEttR
CHART KC

·••··.F4••••••••••.
·..................

:................ x:
-LBlour

.·.·E5·········
X

•
•

..

•

•

• VOLUME AREA .F3.

OF THE lAbEL

5AVE AREA

•

X

X

.-.-.-.-.-.-.-*-.

••••• •
•• 2 ••

•

....

.••..H5··········
X

.··.·H2·.·"······
• SCA'.R2
KO.

•••••
H4
•
SET•• ••••••••
TH(
•

·..................
.. .•. ..
.... ....

•
•
.................

·•••••••••••••••••.

.....J4··········
.·................

•
•

GET ~YSXXX

•
•

•
•
•

•

OPERAND

•

x

••

15 A

CL"HA

••

• SET SEQUENCE
•
FLAG IN
•
FlGBYO
•
TO VOL

••••••••••••••••••••

·YES

.••.•K2··········
.-.-.-.-.-.-.-.-.
X

.................

.•.•K3.········
X

LS.

• CNUNCO

• COf.4VERT SYSXXX •
• TO UNI T ClAS5 •
•
AND ORDER
•

•
•
•

X

J2
-.
• - DELIMITER •• NO

••

REHRVEO
BYTE MTRSVO
TO ZERO

•

•

NVSERR

CHART KC

•

•

•
•
•

•
•

STORE LABEL
AREA ADDRESS

•
•

•

LBLPTR

•

•

IN LOCATION

•

····J5·········•
•
X

CONTROL
CHART KB

•••••••••••••••

•
•

x
•• ••••
•
••2••• ••

•••••••••••••••• ••

x

•• ••••
•
• 1 ••

....

Appendix H. Detailed Flowcharts

513

Chart LQ.

TPLAB Statement Processor $$BATTNK; Refer to
supervisor, Chart 23

•••• A2 •••••••••

•
•

•

TPLAB
•
••••••••••••••••
•

•• ••••
•
3 •
•••••
•

•• ••••
••
I
•••••
•

.•.x

*.

X

TSHORT

B2
*.
•*
e.
NO .*
*.
······~~~~m~m~.··

•• ••• •••••
••• ••··84
•
SAVE SHORT
•
•

•

.*

•

10 IN

LOtATION

•

•

••••••••••••••••••

*••
• YES

"TH FlO

.

.

••••••••••••••••••••••••• X •

•••••
ez.i ••••••••
• CONCAT
LR.

TPLEND
X
••••• C" ••••••••••
• SET SEQUENtE •

.-.-.-.-.-.-e-.-*
:
•

GETo,EST
STA TEMENT

•

:
•

•

•••••••••••••••••

.••••••••••• xi.
02

.•.

FLAG IN

FLG8YO

•

•

TO TPU8
•
••• ••••••••••••••••
•

·····04..X···.·

••

.*CORRECT *. •• NO
*. SEQUENCE .It ••••
*.
.*
*.
.*
* ••
..i..
eYES

•
•

••

•
•

~ET

FLG8YO •
TO INDltATE •
BLOCK

PRESENT
•••••••••••••••
••

..•

•

elV •
• 84·

•••••
E2.i••••••••
• SCANA2

OTSERR

i

e-*_e--._._*-*_._.

• •• ·.E4 ••• • •• ••••
• RESET DATA
•
• LENGTH TO 80 •

KD.

•

GET FILE

•

:•

•

aD

•

F2

.•.x

*. *.

*•.• .-

•
•
•
•

.-

•••••Gz.i••••••••
RESS.

••••G3.i•••••••

~RleE

:
••
•
••••••••••••••••••
T

WJ~J

IS

B-tM ftLE
RACTER

1I:;ilul~Es.

••

•e

••••

HZ

.•.i *•*.

10
IS A

:

c~mR~t

•••••••••••••••••

•• YES

*. It • • _

.•.
x

I •
•• ••••
•

J2
*.
• •••• J3 ••••••••••
10
•• •• YES
••
SAlE
••
•• •• IS'
0 ,ONNG
••
LONG
•••••••••• X.
LO AT ON
•
•• STRING ••
•
MTFF D
•
•• ·H4 ••
•
•
• NO

•• ••

•••••••••••••••••

x

••••1(.2.i•••••••
:
•••••••••••••••••

: clIXURRc'

514

DOS System Control

•
•
•
•

•• ••••
•
J •
•••••
•

i.......
:
•••••••••••••••••
• ••• G••

:

••••••• :
-HI .i
.NO
••••••

sillY~l

TYPE fiELD
WITH' T
INDICATING
TAPE

•••••••••••••••••

• YES

• SET
: L2

:

•••••
F4.i•••••••••
•
SET fILE

e.

.•••
c~l~s IN··.. NO
APOS TRQPHE • *•••.......•.••....

*.

t~Do'Ie~,

••••••••••••••••••

•
OPERAND
•
•••••••••••••••••

:

t~2~JR~k

Chart LR.

Concatenate Subroutine $$BATTNK; Refer to
Supervisor, Chart 23

•••• A3·· •••••• •

• CONCAT ..•
•••••••••••••••••

..

•••••e3.i••••••••
..
CLEAR
..
• CONCATENATION·

.. BUFfERS WI TH
..
BLANKS

..
..

1121 BYTES I

..

..

•••••••••••••••••
'C~

·····e3..........
X

•

..
..

..

SAVE FIRST

•

PART OF
STATEMENT

..
..

*C4

..

SAVE THE FIRST 70 BYTES
~~ la~AHgNB~~mh BY
ORING THE TWO fIELOS.
THIS WILL MAP ALL
LOWERCASE CHARAC TERS TO
UPPERCASE.

•••••••••••••••••••
X

••••• 03.· ••••••••
*RDSTHT
KC*

.D4
THE
STAT
1/0
BUFF

*-*-*-*-*-*-*-*-*
.. INPUT !:»ECOND ..
PART OF

..

_STATEMENT

..

-04-

•••••••••••••••••

*E4

.....E3··········
X

..

COMBINE THE

..

A SINGLE

..

• TWO PARTS INro ..

..

CO"BINE THE TWO PARTS BY
ORI NG THE CONTENTS Of THE
1/0 BUffER ISTARTING AT
SUfFER +L51 WIlH BUFFR2 •
BUfFR2 I S CONTIGUOUS
wITH BUFFR1 •

.................
..
..

STATEMENT
-fit

..
..

*F~

X

...··F3··········

.. RE!:iET POINTER ..

.. AND LIMIT FOR
.. NEXT ENTRY TO
..
StANR
..
-Fit

..
..
..
..

•••••••••••••••••
X
····G3·········

·
..

..

RET TO ADoR

IN LNK REG

.
..

GET VALUES SAVED BY THE
SCAN SUBROUTINEI
L. REMAINING BUFFER
LENGTH •
2. ADDRESS OF
SUBTRACT THE
FIELD OF THE
THE STARTING
THE OPERAPtD ..
ADDRESS TO T
THE RESULT AN
ADORESS IS I
56 TO THE RE
F I ELO. THE R ULT AN
BUfFER LENGT IS III
T2.
RESTORE POINTl AND POIN 2
IN LUCA TI ON TMPAR L WHERE
IT IS RefERENCED BY THE
SCAN SUBROUTI NE.

..

•••••••••••••••

Appendix H. Detailed Flowcharts

515

Chart LS.

Validity Check Subroutine $$BATTNK; Refer to
Supervisor, Chart 23

•····'2.·.·····.
••
CNUNce
•• •••••••••••••••
•
B2

.•.i

••

•* •*LENGTH * •*. NO
*. EQUALS
.* .......•..........
*.
6
.*
*.
.*
*.•
-YES

.•.i

. *C2FlRST*. *.
.* THREE *.

*.

CHARACTERS
SYS

*.

*.

.*

.*

.
NO
)(
.* ................. .

*.•
.YES

i
··.·.02.........
.
• SET UP POINTER •
-AND LENGTH FOR •

•
•

NUMERIC
CONVERSION

•
•

•• ••••
••
I
•••••
•

•
TO BINARY
•
•••••••••••••••••
·El

IDENTICAL TO THE
SUBROUTINE IN THE
PRECEDING PHASE.

•••••Ez.i ••••••••
-HUHtON

LE*

.e

*-*-*-*-*-*-*-*-*
•
CONVERT xxx •
TO BINARY

•

Eit

..

.x *.
IS

*.

.e UNI T IN *. NO
*. LUb TABLE ••••••
e.
.*

•

*.

•
*El
•
•••••••••••••••••

.*

x
•••••

··.y~S

-LV·
• 83·

····.FIt
.•.•·.....•
•

i

X

••••• F2 ••••••••••
•

SAVE UNIT

•

ORDER IN

•

UNClOR

•

•

•

•
•
.................
•

LOCATION

G;I!

•*. *

.•.i

••

•

•
•

*.

255

*. * ••• .*

•
•

i
····*H2······.··.
•
•

•
•

COMPUTE
CLASS FROM

KEY
*H1

•
•

•
•

•••••••••••••••••••
i

••••• Jz ••••••••••
•

GET

•

• CORRESPONR ING •

: NI~Lwi~IGI :
•••••••••••••••••
i

•••••
•
I •
•••••
•
•

516

DOS System Control

•
•

i

• • • •H)* • • • • • • • •

•
•

NVSERR
CHART KC

• ••• G4 •••••••••
RET TO ADDR •
IN LNK REG
•

•••••••••••••••••

.*

·ND

.HI
CLASS EQUALS
4 MINUS KEY
DIVIDED BY 16.

•

i

•

ORDER
*. YES
X
•• GREATER THAN ••••••••••••••••••••

*.

SET UNIT

CLASS TO
ONE

•
•
.................

•

•

••••••••••••••••••

••
•

~LUERR

Chart LT.

DLAB Statement Processor $$BATTNKi Refer to
Supervisor, Chart 23
"2

LllAB MUST

>

.... Al**·······
DLAS

•• * ••••••••• **.

BE PRECEDED
BY A VOL

STATEMENT •

....

•
..

>

....

>
> 1
>

x
• >.
Bl
*.
•
*
•* 5TATEMENT*. *.

....

>
> 3
>

.. ..
........
x

.> •

B3

... . *. ••

*. *. SEQUENCE
IN
.* ...
.*
*. **A2
••• .*
x
.o

'*YES

*.

NO •• uELlMI TER

NU

.....
.

A

COMMA

....

*••• >

>
>
•

....

>
> 4
>

•

>

····.S4··.·······
.................

.· ... B5··········*

X

>

*•••

X

>

*
•

ASSUME. ISC
OR ISE AND
•
• SET FILE TYPE.
'"
TO C UR E
•

.RESET RESERVED.
•
BYTES AND
•

••

•

TYPE FIELD

>

• YES

·LV ..
• B4-

>
>
>

.................

•

>

>

>

> >

.....Cl··········
X

..

LOAD WRKRG4

• W(TH FILE

x

QTSERR

..

..........

INFO.

..
AuuA.ESS AND
..
*POINT4 wITH THE.
*ADDR OF lBl ARA.

••••••••••••• ** ••

>
>

2

. *•*

X

·····C4 •••
.SCANR2

4

x

•
>

>
> 2
>

THAN 'O.
••

GET NEXT
•
OPERANO• SYSTeM CODE-

*. *.
.*
.*

NO

..

•

>

.- 04

CUNVER T IIOL
NO.

.F2

•

TO.

X

-CONCAl

X

lR*

.................
• aUIlD COMPLETE ..
.. CARD IMAGE IN ..

*tiUFFRl,

·**·E2*****····
NII~EHR
•

·................
•
•

•

BUFFK2.*

ChART KC

"2
IDE~T ICAl

it

.....Fl··········
• SCANR2

KO*

.................
..
..

·· ...F3··········
X

*LOP.H
•

.'. *.

~TOKE

1"1 lABEL.

x

>
> 2

X

•••• ·H1··*····*··

• SAVE FILE 10 •
IN OACTRL
•
•
• AND SET OAFMT •
.TO I TO ENSURE.
•
FORMAT ONE
•

*.

·····Jl*··..·····*
*
X

• RESET REGISTERS*
•
POlNTl AND
•
PDINT2 FOR
•
NEXT SCAN
•

>

:

>

INTu POINT4

>H2
AN EXH~T
MUS T FL·l LO~

.................
•

OPERAND-VOL

• SEQUENCE

....
....

NO.

•

•

THE DlAB.

•

•

•

PUT FILE
TYPE JUST
DETERMINEL
INTO DAFTYP

•

•
•
•

'"
•
•
'"

·..................

DATE

IN L~L

*'O

•
>

LABEL AREA

•

* ..•
>NO
> 3

.**.

'"
'NO

SET LABEL
AREA DATA
LENGTH FlEtt;
oTAlGT TO 64

>

•

·.·.JS·········

•

•
•

X

•
•

CONTROL

*••••• *••••••• *••

CHART ~B

_
•

••••••••••••• *. •

>

•

................

•

.................
•
•

it

·.DATE ••

>

...

.... 'O ...

>

>

it

....

*..

.*
••

_*··*·J4··········
ASSUME LA
•
• AND SET FILE •
TYPE TO 0
'"
•
• IN SAVE AREA •

•
•

• >.

>

I S SO OR
BLANK

• •••• HS •••• • •• •••

•
•

YE~

it

X

TO STARTING
ADORE ~S OF

••

•

····*J3**········
• RESET POINT4
•
•
•

it

.>.

.................
•

>

>

>

K4

••

••

X NLSERR
*••••

.LV •

it

>
>
>

·H2

·*.·*G5••X····.··-

*.

H4
*.
•*OPlRANo
•. ...
••

.-*-*-.-.-.-.-.-.
:C~~5~E ~~~~~~~ :

x

>
> 1
•

DlAB

PROCESSEC

•

x

X

*··*·1-13*·······lU.
.. •
*DOP34

.* K3 t S *. ••
•• EXPIRATION •• YES
*. •• CREATION
DATE IT
...... .
••

•

•

•

.H2

X
*• ••••
K 1••••••••••
SCANR2
KO.
GET NEXT

X

SET FLGBVO •
TO INDICATE •

>
>

••• *. *•• **.* ••• **

•

.....

..............

•

••••••••• *•••••

*•• *** •••••• * *•••

*.••

.*

>

..
•

1<.0.

GET LA~T

•

I~E

.·•.. F5·······

>

•
OPERAND•
'" CtPTlONAL NSO- •

:

•• *••••••••••••••

.-.-.-.-.-*-.-.-.

·.*.

•

it

.SCANR2

• OF EXPI~ATtON •
uATE AREA
•
•

*.

IS

*YES

• S

*·**·G4··*.·.····
*-*-*-*-.-*-.-.-.

•••
*.G3*·.*·.*·*·
.. PUT ADDRESS ..

••

OPERAND

>
•
>

oLBlJUT

.·..........,......

CREA.TlON •

.> •

*....,.
·....
.

• SET FLLE TYPt •
• A!> SEOUEr~TIAL •
*
lJI SK
•

X

,..

•• •• * •••• ** ••••

••••
·F4'*· ••••
>

LU.

.. (JAT£:

.*uPERANO*.
• -ENCLOSED I N•• NO
*. APOSTROPHES ••••••
• YES

X

X

•• ••••• • * •••• *•• *

.. .... .. .. .. ....
....

•

•

••

D5

••

x

•

> 2

.................

*

>

NO ••
... •••

·····E4······· •••
•
~AVE SV!:oTEM
•
CODE IN
•
•
DASYCO AND
•
•
•
• RESET POtNTl
AND POH,T2
•
•

•
•
•

*~* .***. *. *.... '*.*.•

x

~l

....

*-.*- .-*-.-.-.-.
• CHECK, CGNVERT •

*-*-*-*-*-*-*-*-*
..
GET THE FIR!:'T ..

.. OPERAND - 51
..
CHARACTER5-

*

*.

·YtS

TO THe:

SUaROUTINE lf~
THE PRECEDING
PHASE •

X

..

SAVE VOLUME
SEQUENCE
NUMBE.R IN
LAbEL uAVlSJ

•. •.• *. *

> •• ** •
> 2 •

X
•••• *r: 3** ........ .

..
•
•

..

>NO

>

>

x

.APOSTROPHES·

>

·*.··El···*······
*-*-*-*-*-*-*-*-*

*.

NO.* OPERAND
• •••• I:NCLOSED IN ••

••••.•••••••••• *.

• BlhAKY

x

.>.

.* OPERAND "' . ••
IS ISC
.*

it

>

LE •

.~EQUENCE

*•.
"YES

•••••

> 5

X

*NUMClJN

x
.>.
••

.... .........'"..
....
.... ........
....
YES..

>
>

••••• 03**··••••••
*-*-. -.-.-.-.-.-•

*.

C5

•
•
•

,.

>NO

>

*••••••
K.O.

.-.-.-.-.-*-.-.-*
••••••• *•••••• _*.

.... ........
....
*.

*.CONTI.\lUATION •••••••••••••••••• X.
*.RECUIRED

*.

.'. ••

.* LENuTH *. ••
••

x ••••• GREATER

x

.>.
Dl

C3

.
• YES

• 82·
> >
>

.> •

...

OPERAND

IS DA

>NO

x

••• *

....

>

> 4
>

>
>
>

.

•• YESX

...... .

it

.*.* >

...

>
> 5
•

,

•
>

Appendix H. Detailed Flowcharts

S17

Chart

w.

Extract Operand from statement Subroutine
$$BATTNK; Refer to Supervisor, Chart 23

>
•

>

··.·A2•••••••••

>

00P34

•

•••••••••••••••*

••••*
I
>
•••• *
.>.x

*>
>

·····82··········
*-.-.-.-*-*-*-.-e
X

*SCANR2

•
•

._ Bit

KO*

GeT THIRO

AND FOURTH

*.

•

•
OPERANDS
•
•••••••••••••••••

X

·····C,,··········

*. *. NO
.X
*. -DELIMITER
*.•*.
J!) A
COHMA
._ ••••••••••••••••••••
*. *•• - .-

•
STORE
•
CONVERTED
•
•
• liAY - 2 bYTE~ •

*
*
.................
•

eYES

02

.-

.*.x

e.

*.

•
•

X

SET LENGTH

•

X

...............

•
•

•

>

.................
*
*
SUBROUTINE

•

•..•. •·
•·····FZ·.·
-.-*-.-.-.-.-.-*
X

.NUMtON

LE •

.................
• CONVEkT YEARS.
•
TO BINARY
•

•

.Fl

•

·····GZ••X·••••••.
•

*
•
•

STORE

CONVERTED
YEAR VALUE
IN tlACRYR

•

*
•

......•......•...
•

•

*

X

·····HZ··········
> SET POINT!
*
• TO AOURESS Of •
• THE DAY FIELD.
> AND POIN13
*

.............•...
•

TO LENGTH

•

·····J2··
.•..••..
.-.-.-.-*-.-.-.-.
X

>NUKCON

LE*

>

CONVERT OAY

*

•

TO BINARY

•

•

.Fl

••••••••••••••••••
•!..
>
> I

**

••••*

>

518

····E3••••••.••

•
IN POU..r3
•
-FOR CONVERSION.

DOS System Control

NVSERR
CHART KC

···.0".•..•.•..

...............

*

··.v~S

.....E2··········

I NlC DAtROY

•

X

.

NO
X
*.• t LENGTI-I IS *.••••••••••••••••••••
*. t. 5 .* .-

•

*. t • • *.>~O

.>.x e.

C2

e. e.

VES.*
DAY
••
•••••••••••••••••••• GREATER THAN .366
.-

•

•
•

*

RET TO AD DR
IN LNK REG

•
•

*

Chart LV.

Common Error Exits $$BATTNK, Refer to Supervisor,
Chart 23

.....
.

......
•• •

...

••
•
., 01••
LAXERR

····81·.•••••••

NLSERR

i

• •••••••••••••••
*'1
•

•
•

•

ERtlRTN
CHA~T KC.

•
•

i

ERRRTN
CHART KC

'CI

ILIDO
LABEL AREA

EXHAUSTED
MESSAGE.

'01
L"-F3
LX-"l

"8-85
MO-03

•••••
••

.,
•

....82·········

o

o

NLUERR

•

•

DT~~RR

CHART Kt

oD3
LS-E4

•

•
•

•

*e3
•
•••••••••••••••

ME.SAGE.

~l

•

i

ERRKTN

LOGICAL UNl T
~Pt.CIFICAT ION

-02
LT-K3
LX-F3
LY-fl

LZ-Kl, 84
"A-Cit, Fl.

•

OC3
14400
INVALID

ILDaO

INVALID
LABEL SYNTAX
MESSAGE.

• DIt-

0

•••• BJ •••••••••

•
•

*C2
•
•••••••••••••••

OC2

•00••••0

0

• 03-

• 02-

•

o

0

X

...............
• ••• 8,. •••••••••
EMRRTN
•
CHART KC
•

-C4

•

OC4

lHOD

SrATEHENr
OUT OF S~OUE.c~
~ESSAGE.

004
LP-D2
LO-O?
L 1-t\1

lX-fl.l, JJ
LY-HI
"C-C3

Appendix H. Detailed Flowcharts

519

output Label Data Subroutine $$BATTNK; Refer to
Supervisor, Chart 23

Chart LW.

o
•
o

....At·········

....

...............
LBLour

Bl

0

•

0

....

o
o 1
o

83

• * LABEL *.
*.......................
NO
*.•* t. BLOCK
IN
.
._

*.

.. .-

BUFFER

.-

·....el·······
X

.....01··········
•
•

PUT DATA
LE~GTH tN

WRKRGl FROM
DTALGT

o

El

x
.0.

••••

0

X

p~~m8~h~HmVER

._LENGTH t.

MAXIMUM IS EXCEEDEO

0

o

•

'O

.0.x

•• YES
••••••

• LV •

•• ••• G3 ••••••• • ••

•

•

•

•
•
•

••••

....

o
o 3

o

0

0

RESET TRACK

CAPACITY

•

•

.................
•
•

TO VALUE
TRKCAP

•
•

0

0

.•..•H3··········
X

X

•• ••• Hl ••••••••••
• SET UP WRITE •
•
AND VERIFY
•
•
teN WITH
•
• LENGTH VALUE •

•
CALCULATE
REMAINING
•
•
CAPAC ITY
.TRACK CAPAC I TY
•
·K4

•
•
•
•

.................

.................
0

•

:.•..••.....•..•...•...•. x:

·····Jl··········
.................
X

•
•
..
•

•

•

.JIt

X

••••• Kl •• • •••••••
•
GET THE
•
•
REMAINING
•
•
CAPACITY OF •
•
THE TRACK
•
•
FROM REMCAP •

•••••••••••••••••

....

•

• •

520

DOS System Control

OJ4

·····J3·····..·..
.................
X

RSRMCP

• PUT REMAINING.
• CAPACITY INTO.
•
LOCATION
•

•o

REHCAP

•·•••K3··········
•

SET UP

.. SEEK ADDRESS

•
•

o

IN LOCATION
SHHAOO

•
•

•

•

0

•••••••••••••••••
x

o

••••
•
••••

• Z
o

1. DATA LENGTH PLUS KEY LENGTH
MULTIPLIED BY 537.
2. PRODUCT DIVIDED BY 512.
3. QUOTIENT ADDED TO B2.

•0

X

x

••••0

• 1

0

o
LAXERR

X

o

o

OF5
A TWO BYTE FIFLO I~
PICKED UP, STARTING
"I TH WRECNO. AODI"'6
256 TO ThIS VALUE
EFFECTIVELY INCREA~E~
THE RECORD NUMBEk
BY l •

••

°NO

·····Gl··········

•
CALCULATE
• SPACE NEEDED
• ON THE LABEL
..
TRACK

0

0

o

o

•

•

•

EXTENTS
EXCEEoeD

X

0

EXCPRG

CHART KC

THE PRODUCT DIVIDED
BY lb.

.....'!' •..•.•.... .....x
F3

•
•
•

.................

····05·········
...............

0

•

• Bl·

ADJUST DATA

•

C~&

LAST TRACK NUMBER
EQUALS KEY VALUE
MUL TIPLIED BY 3.

:................ x:
o

•
o

•

0

·E4

••

.................
LENGTH BY
ADDING KEY
LENGTH

WR ITE

X

•
•
•
•

NUMbER

•

RESET MAXIHUM •
LENGTH WITH •

•

SET UP

.................

·.·*.Fl··········
•
•
•

o•

•••
••
E3· •• •• •• ••••
•
CALCULATE
•
•
LAS T TRACK
•

*e2 .*
*••
• YES

• CURRENT OAT A
•
LENGTH
•
*E2

•

.................
•

X

X

•
•

o

•

'E~

°EZ
MAXIMUM LENGTH
IS RESET BY EACH
••

X

·····C5··········

•
•
•
•

X

0

GREATER *.
......NO.*
. *. *.
THAf.I
PREVIOuS.MAXIMUM ._
t.

0

• RESET RECORD
•
NUMBER TO
ZERO IN
•
•
WRECNO
o

•
•

0

.................

'O •

···.·03·.···..···
.................

•
•

0

X

.................
°DZ
8NPMSK
OF THE FLAG
BYTE FLG8YO

0

••••• 85 ••••••••••
.ADD 256 TO THE.
• RECORD NUMbER •
• AND STJitE IN •
•
WRECNO
•
•
·F5
•

°NO

o

.................
•
•

.*

.HIt

••

0

•
AOD ONE TO
• TRACK NUMBER
• AND STORE IN
•
WHHAOD

•

X

••

·····C3··········

SET BLOCK •
NOT PRESENT.
FLAG
•
0

••••••••••••••

••

x

o
o 3
o

*02

x
.0.

WHEN THE DIFFERENCE
BETWEEN THE OLD
RE S I DUAL COUNT
IREMAINING CAPACITY 1
AND THE CURRENT BYTE
COUNT (SPACE NEEDED.
IS A ~E(j,ATIVE VALUE,
THERE IS NO SPACE
AVAILAeLE ON THE TttACK::'.

YES ••
SPACE
••
••••• AVAILABLE ••

-YES

•
•
•o
•

OB~

.. ..
.... .. ..

.0.x *.

....
....

o
o 2
o

0

0

•

0
0

0.4
REMAINI
3625 I
MINUS C
I SPACE

CAPACITY EQUALS
MUM BYTES PER TRACK'
T BYTE COUNT.

01

XTENT Statement Processor, Type and Sequence
(Part 1 of 2) $$BATTNL; Refer to Supervisor,
Chart 23

Chart LX.

·.**Al·········

*

$SBATTNL

···.42··•••.•.·

*

XTENT

*
*
*

1

*
*
*

:x ••....•.........••.•.... :

Bl

.*.x *.

i

• •••• 83··········

• * .*PREVIOUS * • *. NO
*. STATEMENT ...... ..

:~!~~~~-.-.-.-~~:

.. ~!:~~~* .. ~..

.... OlAS OR ••

•
CHECK AND
•
• CONVERT EXTENT •
..
TYPE FIELD
•

.................

_LV"

.. B4_

* *

*
OTSERR

ic

•• ••• C1 •••• • •••••
..
INITIALIZE
•
..

POINTERS TO

.. FILE ADDRESS

..

.................
-AND LABEL AREA •

-ADDRESS

*C2.

*C2

,-PUT THE ADDRESS_OF THE CORRECT •
.PIS ENTRY INTO.

.....
·oo.*
.. .. ...
03···..

•

*

NOTSEQ

*.

FILE
-. SEQUENTIAL

.................
WRKRGI

: ...• !!!~~; .•..•:

WRKRG4 CONTAINS THE
FI LE INFORMATION
ADDRESS WITHIN THE
LABEL AREA. POINT4
CONTAINS THE AOORESS
OF THE LABEL AREA.

·····01.•ic·••··•••
..

X

• •• ··C3.·· ••• •• ••
•
STORE
•
•
CONVERTED
•
.VALUE FOR TYPE.
•
IN LOCATION •

•

NO
.. *
•••••••••• X..

..

.oo

.YES

04···
FILE
DIRECT
ACCESS

.

*. *.

. ....
.*

NO

oo. ••••••

..:..

.YES

·LV •
• B1·

*E2

EXTRACT THE NUMBER
OF 2K BLOCKS ALLOCATEO
FROM THE PIB AND
MULTIPLY BY 2048
TO GET NUMBE R OF
BYTES ALLOCATEO •

·····El··········
ic

..

CALCULATE

..

.. THE AMOUNT OF ..

.....

.. MAIN STORAGE
.. ALLOCATED IN

:~~~~~~

*

..

* *
I NDSEQ
E3··OO
YES..

oo.......

:;~.:

.*

*.

..

... THE FG UPPER

oo.
••

..

.*

••

EXTRACT THE ADDRESS
OF THE PROGRAM ORIGIN
FROM THE PIB. ADD
NUMBER OF BYTES
ALLOCATED TO THIS
PROGRAM.

ic
•• ••• Gl ••• •••••••
..
GET LABEL
•
.. AREA ADDRESS ..
.. PLUS 20 PLUS
•
..
92 INTO

.... .....:

*.

....

.*

.*

X

.·.oo ..

1

••

••

.-.-.-.-.-.-.-.-.

.XTOP12

HA.

..... .................
ic

-LV·
• B2·

* *

•.••.G3··········

*
NLSERR

•
•
•

GET EXTENT
SEQUENCE
FIELD

•
..
•

.....
ic

.lZ •
• B1·

* *

:~!~:~!-.-.-.-~~:
GET EXTENT
SEQUENCE
FIELD

XTOP3

•

x

ic

•••• ••••

H3

YES ••

.OO. oo •.

oo.

••••

**
*

.* •

IS
••••
THIS FIRST
•• EXTENT

.oo

X

.NO

* *
*
LAXERR

TYPE

X

X

SXTPOK

• *.

• 81·

........

.................

HI
*•
• * SPACE *.
•• AVAI LA8LE *. YES
••
WITHIN FG ••••••
••
AREA
••

·LV •

.* EXTENT

••

•• • •• F4· •••••••••

TYPE •••• NO
EQUALS

128

.·oo *oo

• YES

:.......... x:
•
•
•

~~~~~~

.....

..

• YES

*C2

ic

NO..

• ••••• *.

F3·-·

..

.. LIMIT ADDRESS ..
[N WRKRGI
..
..
..
*GZ
..

:

•. oo·

•• ••

X

ic

CALC ULATE

1
*NO

.....Fl··········
.................
..

TYPE
EQUALS

E4

....

.• oo.

oo.

*NO

1

oo. ..

••

.oo

J3

.*.i *. ..

.. .. ....

ASCENDING •• NO
SEQUENCE
••
NUMBER
.*
·YES

.....

:.......... x:x

.LZ •
• B1·

oooo.oo

..~

..

.LV •
• B4·

* *

*
OTSERR

* *

*
XTOP3

Appendix H. Detailed Flowcharts

521

Lx·.

Chart

XTENT Statement l-rocessor, Type and Sequence
(part 2 of 2) $$SATTNL; Kefer to su~ervisor,
Cnart 23

.....

.

-Lx.

--

.. 04-

INDSEQ

B1

.*.X

:

_.

• -eXTENT

ISTYP4

*.

.~ ••

* ••
*
.YES

-- .- 1

X

•

X
·····C3··········
.-.-.-.-.-.-*-.-*

Cl"-· *.

.* EXTENT -. *. YES
..
TYPE
.* ...........•.... x.

*.

0

-. * •• + .*

*XTOP12

..

.*

X

..

03

MA*

GET EXTENT

..

..

SEQUENCE

YES

*.

..

.....

x

.*.

*oo

•

oo

THAN 1

-. *G4

••

*..

...

*.

E3

.*

.*

.'. * •...

.*

.. ..... .. ....x
. .
....
FIRST
EXTENT

... NO

••

.* .....

*YES

:

2

:

• 82·

••

.. ..
--.....-..
••

--.

-LV·

FIRST
EXTENT
.G4

*.

* ••
-NO

x

Fl·.

.-x.

.X .................... NO. GREATER

EI
*.
• * ·SEQUENCE *. *. NO
..
*. NO. GREATER .* •••••.•••••••.•• x.
....
THAN
.*
*. 1 .. "
* ••
-YES

•*

..

.*
*.
.. " SEQUENCE - •

: •••• ~~~~~~ ••• *.:

.*

..

SEQUENCE

: •••• ~~~2~~ ••••• :

*01·········*
•....
-.-.-+-.-.-.-.-.
..

HA*

GET EXTENT

..

'NO

*XTOP12

.*.X * •

.* EXTENT - . *.
NO .. "
.. ................................. *..
I S TYPE
.'.
4
*.
.*

•*
TYPE
*. YES
-.GREATER THAN ..... ..
*.
2
.*
*. *. -No""

83

1

*. YES
.* ••••

••

NLSERR

••

-NO

•

2

*G4

••• oo

THE FIRST EXTENT MUST BE A

mDE~CEA~u~m mhE~

I SCKSQ
x
: •••• G1 ••••••••• :

THAN l I S OUT OF SEQUENCE.

SET UP FOR
SEQUENCE
NUMBER

.................
•
•

CHECK

..

Hl

.-.x

.oo

•• SEQUENCE

••

..

.

•• NO X

NUMBER IN . . . . . ..
•• ASCENDING.·
·.ORDER.·

....

• YES

.....x

·LV *
•• B~.

-

OTSERR

.....
•• B:'.

~X •••••••••••••••••••••••••••••••••••••••••••••••••• :

·LZ

*

-

XTOP3

S22

DOS System Control

Chart LZ.

XTENT Limit Processing $$BATTNLJ Refer to
Supervisor, Chart 23

*LX-F4.J3
LY-Hl

o••••••
• > 0
o >
>

i
·····al·.·
.......
*---.-*-*-.-.-.-.

XTOP3

*X'OP34

o

83

MA-

GET LOWER

:

o•••• 0

•• ••••
•
1 •
•••••
•

•

i
.•.
••

84

.

..

••

....

.. ..

:

•••••••••••••••••

• NO

.*

.NO

·..··el.······..·
• PUT Bll CELL

•

.. OF THE LABEL

..

..

AREA.

..

•••••••••••••••••
BASE REGISTER,
4~NHD BY A
OF FOUR WHEN
PER LIMIT
U OF THE
DSECT
OCESSED.
RATION
, POJNT4
TO ITS
ALUE.

....

..
..
..

PO."'1t
*D2

..

..

•••••••••••••••••
i

..

:

..•••••••..••.•.•••••

6 CHAR
•• NO
1~5~~~~~H~~

••

•

NUMBER IN

•

•
•

lJF LABEL
AREA

•
•

:

•••••••••••••••••

i
.....F1····.·
.•.·

i
.....Fl···.·
.....
•

>

CALCULATE

: F~iWp~t~¥~is :
• USED IN SCAN •
••••••••••••••••••
•

·.···Gl.......•..

i

........

.*

•

NO ••

••

····E4 •••••••••
NVSERR
•
C.l:tART KC
•

•••••••••••••••• •

••

OPERAND

LENyTH

*.

i

•
•

.. ... ..

x.x •••••••••••••••••• *.

••

••••

••

•.••
.YES

i
·····ES.···.··.·.
.-.-.-.-.-.-.-.-.
LE •

.~UMCO~

•
•

CONVERT B2
TO BINARY

•
•

•••••••••••••••••••
X

••• ·.FS ••••••••••

•

:.. AR~iE~ot~'Ek
:
POINT4
..
..
*D2
•••••••••••••••••..

..

A
BLANK

i

*..
*
.YES

•••••••••••••••••

•

*.

05

.•

• lOCATIOr. XTSERl.

..

L~~flN9F

X
.•.
••

.•.ii

..

.YES

• SAVE THE SERIAL.

MA_

GET UPPER

••

03

•

•
FIELD
0
••••••••••••••••••
•

•••• ••••••• •••••••••

•
•
•

i
·····E3··········

• ••• ·e1 ••••• • •• ••
*-.-.-.-.-.-.-.-.
*XTOP34

..
* ••

KO.

GET 82

•••••••••••••••••

i
·····01·······.··
.. ADD It TO THE
.. LABEL AREA
..
POINTER,

GEf SERIAL
NUMBER
FII::LO

•

C5
o.
NO •• DELIMITER ••

.-.-.-.-.-.-.-.-.
•
•
•

•••••
elV •

.SCANR3

•

••••• C3.·.·· •••• •
.SCANR3
KD.

:Neot.Ho~DXmD:

ii

•• ••• 85 ••••••••••

.-.-.-.-.-.-.-.-.

.0

ii

XTOP5

0

• 82·

:X •••••••••••••••••••••••• :
i

•

••••
i

*.

••••
•• LOWER
••
SPLIT
•• YES
••
HEAD
•• YES
••
CYLINDER
•••••••••• X•• GREATER THAN ••••••
••
••
••
UPPER
••
••••
..HEAD

•

Ll~f~N¥F

• 2

•

STORE B2

•

,-. LOCATION

o

UBEL AREA

•

XTB2 OF

•

•

•

•

•••••••••••••••••••
x

i

AREA.

••••• G3·· •••• •• ••
-SCANR3

•
•

.•.i *.

...... N6~hkRS *. *.

*. o.

ARE

*.

EQUAL

.*

••

••
••

*.

NO

••••••

MXCC.HH

* ••
·NO

.*

,~

••

*•••
·NO

.*

..

.. ..

••

••

i

:

.CONVERT SYSXXX •
•
TO CUSS
•
AND ORDE~
•
•

.. ... ..
. O..PERANDS....
*•••

i
..··J4·····.···
C=Xi~R~C
:

•••••••••••••••• •

•••••••••••••••••

i
•••••

.•.

·lV •

• B2. NLSERR

i

••••0
••••

*.

SIGN

i

-.LIMIT.-

• 1

••

AN EQUAL ••••••••••••••••••••

:t~~=i~·······t~:
.-.-.-.-.-.-.-.-.

.•.i

0'

.0 •

·NO

*.
. *KlLIMIT
LOWER *.
.
••
•• YESX
>.GREATER THAN ••••••
*. UPPER.*
•

•

XTOUT

•
•

•• OELIHITER •• YES

••

*..
-YES

Jl
*.
UPPER *.
•
EXTENT
•• YESX
EXCEEDS
••••••

*.

i

..

H3

.•.i

.*

KO.

GET SYSXXX
FIELD

•••••••••••••••••••

..

•••••••••••••••••

Hl

•••

.-.-.-.-.-.-.-.-.

• PUT B2l CELL •
:NeotAHobOxm o :
• OF THE LABEL •
..

•••••
•_ H8
•
81_

0
•

K3

••

••

••

ANY

MORE

• NO

:XTOUT

x

•*M8
••••*
* 61·
•••

•• YES

••••••

i

••••••
••••• ••
• 2

Appendix H. Detailed Flowcharts

523

Chart MA.

XTENT Processor Subroutines $$BATTNL: Refer to
Supervisor, Chart 23

.••••....> 1
>

•••• Al •••••••••

• )(TOPI2 ••
•••••••••••••••• •

••

•

TYPE OR

••..• BIt.~ •••...••
.-.-.-.-.-.-.-.-.
.NIJMCON

KO*

.................
..

GET THE

..

LIMITS

..

• SEQUENCE NO. •
•••••••••••••••••

Cl

•• ••·83···••••••.
.-.-*-*-*-*-*-*-*
*SCANR3

..

:

p~?~~IE~~b

• POINT2 TO THE:. •
•
• -NEXT FlElD

i

*-*-*-..
-..-*-*-.-...
• GET EXTENT

..

·····A4· •• • ••••••
•
SET SCAN
•

:

•>

.................

XTOP3lt

.*.x *.

C3

•*• *DElU4ITER*. *.

LE.

.................

..

EXTENT

*AS
THIS SUBROUTINE AS
ILLUSTRATED GETS THE
LOWER LIMIT INFORMATION
FROM THE EXTENT.
HOWEVER, IT IS ALSO
USED TO GET UPPER LIM T
INFORMATION. THE
CORRECT LABEL Of THE
LABEL AREA OSECT 15
AOORESSED FOil. UPPER
LIMIT V UES BECAUSE
Of A B
REGISTER
AOJU5 T
T IN THE
CALLIN
OU11NE.
EXTENT
fORMATION
I.!J IN
FORM 81CELL
ER CIC1CYLI
1
C2t2
CYLINUER 2
Hl1
H2H2-HEAD2

X

*A5
..
•••••••••••••••

•

i
•••••
el· •••• •• KO*
• ••
*SCAHR2

•••• A3····.·•••

•
-

•
•
•

..

..

.*.x *.

.*
*•
NO .* DELIMITER *.
...
1S A
.* NO
•••••••••.•••.•••. x••••••••••••••••
*. ... COMMA
JS A . "
...
cmU4A ...
...
*. *•• *.*
*.
.*
* ••
eYES
eYES

CONVERT (.2
TO BINARY
·G2

••

Cit

.-.x

•
•
•

••

C2
••
••
FIELD
•• YE:.5
•• GREATER THAN ••••••
••

......·N".. .....
199

.~

x

'*

·LV
• 1:)2*
> •

.*.i *.

i

*.

.*
* •• * .*
i

PUT LOWER
•
.LIMIT CYLINDER.
• TWO INTO LOC
•
•
•
XTLLC2 OF
•
• LABEL ARE A

•
··.··E3··········
.-.-.-.-.-.-.-.-*

• >.
E1
-.
.-OPERANC-.

.... ....

• NUM(.ON

•LENGTH
•• YES
•
•• GREATER THAN •••••••••••••••••·.X.
••
3
••

..........
.·····Fl
-.-.-.-.-.-.-.-.
i

•
•

...•F2····.··.•

.................
•
CONVERT
•
•
OPERANO TO
•
.G2.
• BINARY

-

•
•

>

x

••

•• SEQUENCE •• YES
•• NO. GREATER ••••••
•• THAN
••
•• 255 ••

i
•••••
·LV •

>NO

• UPERAND F I ELU •

····.F4••.•••••.•
X

... .... .....x .................
IS
ZERO

••

YES
••••••

.-

·NO

>G2
THIS SUBROUTINE IS
IOENTiCAL TO THE
ONE FOUNO IN
PRECEDING PHASE.

.. .-. ..
.. ..

••

•

.................

x
F3
••
.*
•• ••
•• EXTENT

••

SET SCAN

:.POIpb?~~IE~~D
:
NT2 TO NEXT •

.•.

...............
NVSERR
CHART KC

X

•

.................

i

LEt

·····E4••••••••••

LE •

•
CONVERT
•
• OPERAND TO
•
• BINARY
.(,2 •

>NO

Gl

X

•

*•••
.YES

eYES

• NUfilCON

·····04·········.
...................

.t.

*. t.
.* 03
LENGTH
_.
EQUAL
.*
*. *. 9 .* .*

01
• -OPERANO_.
• e LENGTH
NO
•
NO.*
-.GREATER THAN •••••••••••••••••• X.X.... •••••• ••••••••
0

*. *.

>

• CLEAR XTLLHI
• AN~ LOAO IT
•
WlTH LOWER
•
UMIT HEAD
ONE VALUE
•

•
•
•
•
•

·LV •

• 62·

> •

··.··G3···••••••• - ....•GIt.a •••,••.••
NLSERR

i

• PUT THE CELL •
• NUMBER FIELO •
.. INTO LOCATION.
•
SVXTB
•

•
SET SCAN
•
•
POINTER5.
•
• POINTI AND
•
.POINT2 TO NEXT.
• OPERAND FIELD.

.-................

.................

·•••·H3··········

.·.·.H4·······... -.·
.-.-.-.-.-.-.-

• B2·

••

.....HI··········
i

• STORE SEQUENCE
• NUfI4BER IN LOC
XTSEQN IN
•
LABEL AREA
•

-

NLSERR

•
•
•
•

>
•••••••••••••••••

i

SET SCAN

•

::~AN~~~~f~O~~~l:

.

X

.NUHCON

.................

.................

·····J3··········
.-.-.-.-.-.-.-.-.

·····JIt········••

• NUMCON

•
•
•

LE.

COhVERT C1
TO BINARY
·G2

•
•
•

•••••••••••••••••

•
•
,..

:

¥~~ANe~~A9~6N
L~mCM~

:
:

•••••••••••••••••
i

··

••••
•
••••

• 1

DOS System Control

--

•
•
•

X

•
•
•
•
•

.................
X

-PUT LOWER LIMIT'

:

CONVERT H2
TO BINARY
·G2

•
PUT LOWER
• LIMI T HEAD
TWO VALUE
•
•
INTO XTLLH2
• Of LABEL AREA

••••·K).·i ••••••••

524

LE.

•
THE NEXT
•
• OPERAND FIELD.

X

····Jl········.
RET TO AOOR •
IN LNK REG
•

-...............
•
•

i

•

•
•

···.KIt·········

>

ReT TO ADDR
IN LNK REG

•••••••••••••••

•
•

>

hlLSERK

Terminal XTENT statement processing $$BATTNL;
Refer to Supervisor, Chart 23

Chart MB.

....
....

•• I ••
• •

..••.
A3··········
*-.-*-*-*-*-.-.-.
i

OUTLBL

-LBLour
•

•••••••
•
•••
•• •*Lz'-K3.F5

•

.•.x

XTOUT

B1
*.
.* TYPE *. *. NO
*.•**.SECUENT
IAL
DISK
.* .* ....
*.
.*
x
*••
eYES
••••
•
•

Ct

·····ol··········
.................
•
•

..............
TO lERO

•

·J2

x

XTUNIT

.0 •

0

• &1'

R~SET DATA

•0

•

TO 81t

•

•

*Olt

•

•••••••••••••••••

:. ·•· •.

tLV •
•

0

x

·....Cj··········
•
•

RlPlACE
PRE:VIUUS
EXTENT IIIITH

·····es··········

•

•

•

M:w EXTENT

•

0

•

LAXERR

•
•

.................
•

•

0

•
•
•

X

ADO 1 TO
THE EXTENT
COUNT IN

THE LABEL

•
•
•

•

SAVE AREA
•
•• ••••••••••••••••

: ........................................ x:x •••••••••••••••••••••••••••••••••••••••••••••••••• :
,..eIolXTN
X

. ·····
.................
·····O~····

•
SE r POINTER
.. PCdI'4TIt, Tll
.. A",ORESS Of
.. NEXT E.XTENT
.. If\; LABEL AREA

..
•
•
•
•

·····E ......••.•
~

i

•
~AVE NEW
•
AOOAESS Of
•
ThE: ExTENT
• AREA IN LOO.
•
L&LPTH.

0

RESET
"TRSVD

•

OB4
LENGTH USED
Ih WRITE CGW.

0

••

• LENGTH DTALGT •

i

o

•• .""2 ••
••••• •

•

.* 85 HAX *•' .
YES.. EXTENTS ••
~~c~~a~~ .*.*
*.
.*
i
*••
.NO
•••••

• SET UP POINTIt •
•
SO THAT IT
..
• CO~TAINS THE •
• 'DDRESS OF THE •
• PREVIOUS EXTENT.

·..•·El·······

..

•

•

EXTENT

i

•* FIRST *. *. YES
*.•* EXTENT
.* ....
*. *.
.* .*
*••
.NO
X

OUTPUT

PREY 10US

....·83··········

....

o 2

.•.i *.

LW*

.................
•

•
..

...................

•
•
•
•

•
t
t

"2

THE SUBFIELO

.. ..
.0.i
Fl·.

wITHIN THE o,:.Eor

FOR THIS ExTENt
FIELD IS CO,.,PARfO
TO THE IOE'HICAL
SUBFIELO OF THE

.... .. ..
....
.. .. .. ..
NCt •• SYMBOLIC

••
•••••
UNiTS ARE
••
••
EQUAL ••
•• • F2 ••

i

o

• 3
•

PREVIOU~

EXTENT FIELD.

i

ADD 20 TO
THE DATA
Li:HGTH IN
Ll:C OTALGT

•
•
..
..
•

.................
•
o

• YES

0

...·.F3··········

..
..
..

0
0

i

Gt

••..·C3·······

.0.

i

••
••
NO.. NUMBERS ••
••• ••• ARE ECUAL ••
••

..

BU~

..

• YES

.0.i

HI·.

VOL

....

-

i

: •••••••••• X:
X

·····JI·······

NOCCUX
•

SET NO

..
•
•

..............
.... .
•

o

EO X'IO'

....

•o 3

•

····J3·········
X

SEE LABEL LIST

ENTRY FOR MTRSVO.

•
•o

CONTROL
CHART KB

•••••••••••••••

•
••

.
X

SeT SW ITC" •

•

WITH X'SO'

•o

•

••••
o.

•
•

PRESENT

o.

.....KI·······

PACKCG

0
0
0

OJ2

..

EXTENT
..
DEQUEUE sw. •
MTRSVO
..

SfT BLOCK ..

.•.............•
•

• INOIQArOR IN •
..
FlGbVO
•

••••
••••

o
o I
o

•

Hi INDICATE
•
EXTENT
..
I"'ROCE:SSEO·

i
••• ··H]·••••.
•

••

•• SERlAL
•• YES
•• ••NUMBERS
EQUAL ARE._ ••••••
•• • F2 ••

·NO

IN fLC,BYO

..............
•
•
•

•• • F2 ••

••

SE: T SWITCH •

MTRSVO

·J2

••••••••••••••

0

•

•

•

i

••••
o
••••

•o I

0
0

Appendix H. Detailed Flowcharts

525

Chart

EXEC Statement Processor $$BATTNMi Refer to
supervisor, Chart 23

~lC.

.. •••• Al . . . . . . . . . ..

••••• A2 . . . . . . . . ...

..

..

...............
$$8ATTM

:

EXEC

..

.....- 1

:x •••••.••..•••••••.••.••. :

•....Bl.··.··•.•·
x

83

:~~~~~~-.-.-.-~~:

*. *.

:.~~2~~~S:~!~~ ..:
Cl--· *.

•DELIMITER
*
*. * • .\10
.* IS
A BLANK .* ••••••...•.•••••••
*.

C3

*.

• *OPERANC-.
LENGTH

..

•• NO

..." -.* .*

x

.*

•

.* •••••••••••••••• x.

.....Fl··········
X

..

..

--.

*MO •

• 81·

.*
* ••
-YES

CLEAR SAVE

AREA
TMPARl
TO BLA~KS

•

ic

•
-

··.*FZ·····*···
••*•••••••••••.
ERRRTN
CHART KC

•
:

·····Gl··········
X

..

..

PUT PROGRAM

NAME INTO

..

..

.................
..
SAVE AREA
: .JUST CLEARED

..
:

·····Hl··········
X

..

SET AN ODD

IN
SAVE AREA
VALU~

..

.................
:

FWRKFl

.··.·Jl.······.··
.................
X

.PUT THE AODR OF.
• PROGRAM NAME
•
.INTO REG 1. SET-

•

REG 0 WITH

..

.ADDR OF FWRKFL -

RESS ED BY
S SET WITH AN ODD VALUE.
NAME ~ATCHING THE
SPECIFIED IN REGISTER
URING THE CORE IMAGE
CTORY SEARCH" PART OF

THE AREA ADDRESSED BY
ONTAIN$ THE LOAD

DARY ALIGNED.
UEI

•....Kl···.···.··
X

•
•
•
•

:

SVC 23
GET LOAD ADDR
FOR PROGR AM
SPECIFIED

_ 1

526

•
•
..
•

...... ......:
x
....
--....-:~~

.*

.*

* ••
*
-YES

El
-.
.*OPERAND-.
•• LENGTH
•• NO

-

DOS System Control

····C4·········
·
..••~S!... ..... ...... .

*.••••••
NO

..

*••••

9

••

.-.x * •

*. *E5

.-.x

*.

••

.. ..

03

-YES

*.

K2·

•
•

ic

ERRRTN
CHART tr-.C

~:~~

-C5
lC30A PROGRAM
NOT FOUND
MESSAGE.

•
•

·LV •

-

OTSERR

••
LABEL
•• NO
••
BLOCK IN
••••••
••
CORE
••

•

-.GREATER THAN •••••••••••••••••• x.

LESS THAN

PNPERR

·YES

X

*.

.-.x

EXEC
STATEMENT

*. eYES

*. *.

x
.' .••

'IN SEQUENCE-

01--'· -.
• -

.*

*..*

.*

.*

•

·J2
•• .•• *YES

X
*.

*MG ..

-

• ·PROGRAM·.
•• NAME IN •• NO
•
••
DIRECTORy
•••••••••••••••••• X •

.. GET THE FIRST ..

*.

.....
.
--

- .

.....x
.
• ME •

.. • 8~.

NDLBPR

-E5

THE L
LABEL

mN~F

LABEL
ER OF
SYSRES
IS
BIT SWITCH OF
FLGBYO EQUALS ZERO.

output Last Block of Label Information
Refer to supervisor, Chart 23

Chart MD.

$$B~TTNM;

•••••••

• 1
•

••••

0

..••.
• A3··········•
X

•

UPDATE

•

•

lRACK

•

NUMBER
••• ••••••••••••••••
••

•••••
• Me •
• o030

o

······83··········.
i

•
•

RESET
iU::CORD

•
•

•
•
.................
•

·C2
ThE REMAINIIIG SrCTl~N
CF Thl~ RDUTI~l IS
IDENTICAL Te ThE
lelDUT SUeRULTI~E
tHAlt1 L ....
FuLNu I~ PR.CEOI~G

X

·····Cl··.·.··
•
"

•
•

SET A
HEX '40·

•

Jr. THE LAST
SO ENTRY

•
•

••••••••••••••• •

~~:fE~HAk¥u~o:T

•

'OulT IC"'l INFORMAr leN.

.••••••••••• x..

hl.oHSER

·····C3····.·····
·.•.................•
i

•

CALCULATE

•
•

i

03

•••••• GREATER THAN .*.OATA Lr.G .*

*e2

*••
"
ONe

••••

.*

·•.....•
• 2

ACD KEY

LEHGTf-I TO

Dt~Awk~~gIH

•
•

•

i

• SET UP WRITE
•
'NO vER JFY
•
celiS ~ITH
•
LENGTH
INFORMATION
•

*. *.

*••
"
eYES

x

•• ••••
•
2
•••••
•

•

Kt

WRITE
BLuCK

•

·:O~~ ..

•• .-

•
•

tee

X

•

t.

•

WRITE
-SVSkES-

EXCPRG

•••••••••••••••••••
t.

SET UP

······J3.··
...·...·
.-.-.-*-.-.-.-.-.
.............

X

Kl

•

•

·•••••••••••••••••.
•

•

• GET RE~.INING •

•e

•

•

"'UMBER

X

•

• . 1··········•
·····

.: •• VUmlE

RECORD

•
•

•••••••••••••••••••

...x

•

WRITE

...··tI3··········

•

TRACK

•

·•••••••••••••••••.

•
•

CAPACITY

UPDATE

•

X

"

•

ateMAINI~G

X

••••• HI· ••••••• ••
TRACK

•

C.APAtI TV

•

If

•••••••••••••••••

CALCULATE

SAVE

·····G3··········

•
•
•
•
•

SPACE NeeDEO
&N THE

X

.·................

•

·····Gl··········

•

•
•
•
•

···• ..F3··········•

RSRMCP

•

·•••••••••••••••••.

•

LAKE-IlR

•

.••••••••••••••••••••••••• x..

...·.Fl··········:
:

•
•

RESET TRACK

.................

X

•

•••••
* 81·
••
o

·LV •

• CAPAC I TV AND
CALCULATE
•
~Er4AININb
•
•
CAPACITY

:..........•:
•

·NO

X

.................
•

x

t •••

•

,.

:•

bl~xTtE~AI~

-•

EXTENTS *. YES
*..- EXCEEDED
...... ..
*. t.
•• .-

·····E3·.•.•...•.

X

••••• EL ••••••••••
"
RESET
"
•
"'XJJIIU,.
"

:

•
•

.. ... -.

x

o

•

LAS T TRACK
fIIUfilBER

...

•*01 t4AX *. e. *.
YES.* LENGTH

*.

•

x
•••••
.ME •
• 81·
•••
NOlBPR

x

•• ••••
•
1 •
•••••
•

0

Appendix H. Detailed Flowcharts

527

Chart ME.

Move Last Block Routine
Supervisor, Chart 23

$$BATTNM~

O=fi:~J

••••••

••••

o

•••••
•

•

0
0

1
•• ••••
•

X
.. ·..81.·.··
....·

••••• 83···X ••••••.

NOlBPR

.PUT ADDRESS DF >

•
MOVE THE
•
• PROGRAM NAME •
• [NTO THE F[RST •
•
• B BYTES OF

•

LABEL

•

•

[NFORMATIOh

•

•

I,.TO WRKRGIt

•

•••••••••••••••••

•••••••••••••••••••

X
·····Cl·........
·

·····C3··········

•

•

FG AREA

•

MOVE THE

x

•

•

PUT THE

•

•
•

•
LENGTH OF
•
>THE lABEL AREA •
•
INTO WRKRG2 •
>
•

X
·····01··········
•

o REG[STER SAVE.

SET THE

•

X
·····03··········

•
•

AREA TO
ZERO

•
•

•
THE LABEL
• STORAGE AREA

:smAYMRm CT :
•
•

PSW SAVE
AREA

•••••••••••••••••

•••••••••••••••••

•

.>.x

.111

:l:GINTO :
•••••••••••••••••••

•

••• •••

•
WRITE.
••••••••••••••

ADD 32 TO

·~iIN
STORAGE ALLOCATED
EQUALS THE NUMBER DF 2K

:mcuvsAGE:
•

~tgc~al mEI~AEgY[Nol~E

: •••••••••• X:

TO CONVERT BLOCKS fD BYTES.

•••••
G3.i •••••••••
•
CALCULATE
o LOAD ADDRESS

X

H3

~~kC~~a~E

.•.x

••

FG
••
•• IS A SELF •• NO
~E~~&allaG

•••

*J2*

•••••••••••••••••

....
.....

U8~l~A~=ou~RA3~[aY2RESS

ADDRESS PLUS VHE NUMBER
OF BYTES M[NUS ONE.

:
•
•

•••••••••••••••••••
X

••••• Kl •• •• ••••••

•: umm N •:
••
•
••••••••••••••••••
x

•• ••••
•
1 •
•••••
•

DOS System Control

• •••• HI•••••••••••

•
•

SET LOAD
ADDRESS IN
REGI!l~R 0

•
•
:

..................
.

•••••••••••• X:

.YES

.x···········;j4···········

·J2

528

>

.t

: :aA~ m"tais :
: MA f~VhaAf~E
• ADDRESS [N
•
RG2SVD

•

RELOCATING

*Glt.
•.PROGRAM
••••••••••••••••

·····HI··········:
X
•••• ·Jl ••••••••••

OG4
LOAD ADDRESS EQUALS ADDRESS OF THE lABEL S TDRAGE
AREA PLUS THE LENGTH OF THE LABEL AREA •

>

FOR SELF-

•

•

•
*G2
•
•••••••••••••••••

• PROGRAM

•

: k:r~L A~~R~£gE :
·F2
••••••••••••••••••
••
•

:···~il~~~:;;···:

:

••

X

o

•

x

• THE AMOUNT
:OF

POINT

·····F3···....·..

•

ASSIGN FLAG.
TO INHIBIT
•
SV5AES

." *..... ••..
·VES

.F2
PRDV[DES SPACE FOR
FLDATING PD[M REG[STERS
[N FG SAVE AREA.

X

SET P 18

•

•
•
•

El
t.
*.
NO •• FLOATING o•

• PUT THE AOOR •
• OF TtiE CORRECT.
:
FG ..

•

•

ADDRESS OF

IN POINT2
•• ••••••••••••••••

X
·····E1.·········

.....Fl···.···

PUT THE

•

•••••••••••••••••••

•
•

Refer to

•••••
J3.!••••••••
• PUT THE ASDR •
:
•

O~"~~EM~~uEL :
1 [N PD[NTl

•

·J5
•
•• ••••••••••••••••

•••••K].!•••••

:•
•
•

'~~°ftI~

TNO
ROUTINES

•••
•

.klt.
••••••••••••••

.....
:

X

.MF •

..Bl·

•

"VCLAT

I~M2~DA~mSM·~ RE

[MAGE L[BRARY D[REtT8RY
PREV[DUSLY.

OJ5

THU [S AN ANITlAL[ZATlDN
ORAGE
FOLlDWS •

llEAlRM[N~

Mf

Move Subroutine and INITIALIZE FOR FG Program
Load Routine $$BA'l'TNM; Refer to Supervisor, Chart

Chart MF.

23

....... AS ......... ..

-

HOVRTN

.....

..

-ME ..
.. K3*

---

X
·····el··········
:~~~~!~-.-.-.-~!:

X
·····85··········

MVCLRT
..

Move ZEROS

.. PUT THE VALUE ..

..

:.:!~~:~~.:~~:

255 INTO

..
..

..

-INTO THE LABEL ..

..:

...
..
...

WRKRG3
FOR EXECUTE

: •• ~~~!~~~!!~~ •• :

~x •••••••••••

it

X
····.cs··········
*

MOVLOP

·...·Cl··········

..

SET UP

..

-

.. REGISTERS FOR ..
.. MAIN STORAGE

..

SUBTRACT
Z5b FROM

.................

LENGTH

:CLEAR OPERATION:

X

·····01··········
.-+-+-.-.-+-+-.-.
*HOVRTN

MF*

..
CLEAR
REMAINING
..
.. MAIN STORAGE

..
..
..

.................

-DZ
REGISTER ONE CONTAINS
THE ADDRESS OF THE NAME
OF THE FOREGROUND PROGRAM TO BE LOADED.
REGISTER
ONTAINS THE
LOAO AOD
AS DETERMINED BY
LlNKAGE
EDITOR
AM OR AS
ESTABLI
FOR A
SELF-REL
ING PROGRAM.
BOTH REG
R VALUES ARE
STORED I N THE FG PROGRAM
SAVE AREA.

-03
REMAINING LENGTH IS
CALCULATED BY ADDRESSING
THE CONTENTS Of WRKRG3,
255, TO THE NEGATIVE

VALUE IN WRKRGZ.

..

*.

...... ......:

.. VALUE IN THE ..
... BASE REGISTER.

:

:~~

*F2

X

·····Fl··········
.................
... SAVE REGISTER
0 AND 1
... VALUES IN THE
.. REGI STER SAVE

...

-AREA

..
..
..
..

-F2-

REMAINING..
YES .* POSSIBLE
LENGTH
-x ..••••.• *.
PARTIAL

.*

..

••

..

••••

*.

*03..

.. LOAD REGISTER ..
1 WITH THE

GET..

..•••••••••••••••••..

X
·····El··········
..

X

as .*. *.

.....04..........

FINISh

E4

.*.x *.

BLOCK

.*

-NO

X
·····es····
. ·····

-

*.

ANY
•• NO
REMAINDER • * ••••

*.

••

.*
*..* •• -

..
.-

..
..

HOVE
ZEROS INTO

:

256 BYTES

-

.................

* ••
• YES

CAUTION

THE REGISTER SAVE AREA
CAN BE CONSIDERED AS
BEING IN TWO PARTS.
PART 1 CONTAINS REGS 9-0.
PART Z CONTAINS REGS 1-8 •
THE SAVE OPERATJ ON PUTS

REG" VALUES I N THE CORRECT
SAVE AREA.

X
·····FS·····.····

X
·····F4·.·.·
...·.
..
..

_

MOVE ZEROS
INTO THE

..

...
ADD 256
..
... TO ADDRESSES ...
..
IN POINTl
...
-AND POINT2
.GS*

REMAINING

.................
BYTES

.................
-

:

:X •••••••••• :
X

.....Gl··········
...

..
..

X

STORE THE

..

...

..

THE SVC 4

...

:

ADDRESS OF

.................
..
...

IN THE PSW
*H2

..
..

-HZ
THE PSW IN THE FG SAVE AREA I

X
...···H1·
svc •••····•

11
..
:RELEASE CONTROL:

...............

····G4·········
RET TO ADDR

•

IN LNK REG

:

...............

*G5
POINTl CONTAINS THE MOVE
FROM ADDRESS. POINTZ
CONT AI NS THE HOVE TO

ADDRESS.

8~fMI~~ mU~~~TEM~S~&G~EXl

~~~~~I~~¥ ~tlW~~~TlgM~~E
4 INTO THE INSTRUCTION ADDRESS
LOGICAL TRANSIENT RELEASES ALL
FIELD. WHEN A svc 11
THE FOR-EGR
~~E¥ls~NnC~mM~~I~A~lmY
FOR TASK SELECTION.
THE CURRENT PSW. THE SEQUENCE
IN THE FOREGROUND SA
OF EVENTS THAT FoLLO
1. EXECUTE THE SVC 4 TA\oAD THE FOREGROUND PROGRAM NAMED IN
HE FOREGROUND AREA, STARTING At THE ADDRESS
~~~m~~D1IN
TER O.
o THE FOREGROUND ENTRY ADDRESS AS SUPPLIED
2. EXECUTE A BR
THE SVC 4.
IN REGISTER
OUND PROGRAM.
3. EXECUTE THE

CONTROL.

Appendix H. Detailed Flowcharts

529

$$BATTNM~

UCS Statement Processor
Supervisor, Chart 23

Chart MG.

··......
• 1

·.........

•

: 2

...
....
...
.
. .. .

.•.
....
.. .. oo. ...

...............

:

• NO

·
.
·.....
................
·

.NO

'••••
.

• 3

.....81··········
··
X

INITL

TO NOP

X

UCS2

......B4...........

•••
B2
••
•••• VALID •••• NO
•
••
DEVICE
..................
••
TYPE
••
*. *03 ••

-RELOCATE CCWI S ..
-AND SET-NOPSW- ..

..

:

·A4
LOOCCW2-SET TO NONFOLD OPCOOE
i
-HEX FB-.
LODCCW2+4-SET CHAIN FLAG TO
i
A2
••
A3
••
CHAIN WRITE CCW
·····AS·······.··
-HEX 60- •
••
UNIT
•• YES
••
IS
•• YES LOOCCW3-SET ALLOW DATA
•
MODIFY UCS
•
••
ASSIGNED
•••••••••• X•• ASSIGNMENT
••••••
CHA I N OPCODE
:
LOAD CCWS
:
••
••
••
IGN
••
-HEX 78-

.. •••• Al . . . . . . . . . ..

ucs

Refer to

..

UCSON

SVC4
• LOAD THE UCS.
PHASE FROM
CI LIE

x.

....

• YES

B5

UCSSCN

•••

A.

• • ••
YES •• 01 D BLANK ••
END LAST
••
••
SCAN
••

x.. .•••••••

..... :~?....

.....
...

• ••••• X

....

oo.··

.NO

i

·····Cl··········
X

.. POINT TO 1ST
OPERAND

i

..-.-.-.-.-.-.-..

•• •• •• C4 •••••••••••
EXCPRG
KC

NDTERR

.................

..

..

: •••~!!~!::; •••• :

·····cs··········
..................
.x..
....
x
.. ... ...•.•
.. ......

X

• B5.

·····C2········.·
•
MOVE CLASS
•
AND ORDER
•
TO CCB
•
-WRKCCB:

::S~~~~-.-.-.-~~:

..

·LG •

i

:!S~~~;-.-.-.-~~:

.............

.A~X~~~l~FIl8

•
POINT TO
• NEXT OPERAND

•

IN WRKCC8

•

:•.•..•••...• x:

...
x

• * 01 DID -. ••
•*
A
*. NO
COMMA
.* ••••••
*. -.SCAN
END THE
._ .*

*.

* •• YES

·····El··········
X

KD.

..:

:.;~~:~~.~~~~;

.................

••

.•.x

..

UNIT IN

..

WRKRGI

• NO..

x•••••

..

..

....

: 4

X
•*

Gl··· -.
.* UNIT -.

*. *.

CLASS
EQUAL a

*K3

*.

* ••
.NO

*. YES
._ .* ••••

.-

..!..

.....HI··········
..
LOAD LUB
..
• POINTER FOR 1ST.. BG PROG UNIT ..
:
IN WRKRGI
:

.................

·F3
THE PH AS E IS LOADED INTO
THE BUFFER LABELEO LOOBUF

••

.

OPERAND

••

·····Jl··········
.................
i

.. COMPUTE LUB ..
..
TABLE
•
• DISPLACEMENT •
• TO DESIRED UNIT.
• WITHIN CLASS • •

X

••• •• KI· •••• • ••••
• CHKASG

BK.

:GEY·LUS·ANO·PUS:
•

...

:

...:

ADDRESSES AND.

~~~.~~~~~

.....x

....

: 1

530

•

•• •• E4 •• • •• • ....
NVSERR
•
CHART KC
:

•• LENGTH

NLUERR

UCS3

..5

.-

.•.

.. ..
....
.. ..
F4

NO..
•••• ••••

1-9 CHAR IN ••

E5

NO.*

••

*.

LENGTH

: ••••••• 4 E~~:kt

..

.

••

...x

••

-.

...
.... .

LENGTH..
X NO ••
••
EQUALS
•• X.. ••••••••
OPERAND
••
CHARS. ••
••
FOLD
••
.YES

·YES

F5

.YES

:

i

UCS4

·····G2··········
.SET PHASE NAME •
• SAVE AREA AND.
•
BUFFER TO
•
.BLANKS SAVE PHS.

X

.. ..
X.... .......
....
...
.. ..
.... .

..

G3···...

..

NO.. LENGTH
••
•• ••••
EQUALS
••
•• 6 CHARS. ••

:~~~~.~~.~~~~~~.:

X

G4 oo ..•.

NO..

••

x

H3

• NO • A

x. ••••

••

OPERAND
NULMSG

.,.
••

••
••

.*

i

.~tUt.,~

.MODI FY LODCCW~
:
TO FOLD.
••
.-OPCODE EQUAL •

..............
•

HEX F3-

'.

X

·····H4·.·····
•
MODIFY
•
•
LOOCCW) TO •
• INHIBIT DATA •
•
CHECKS.
•
..
-HEX 73- •

..............

:

·····Jz··········

·····J3·······

• ••••••• A ••••••••

: ••••~~!!~; ••• -

i

OPERAND
BLOCK
.YES

.. ... ..
·.................. ••~... .. •.•.•vE;·..
i

····.H2·.··.·· •• •
• SET 3RO BYTE •
•
OF BUFFER
•
• LODNAM+IO TO.
•
HEX FF.
•

•
•
•
•
•

.

.YES

: 4
UCS1

••••

i

·LV •
•• B~ •

X

-YES

• x

• 4

•
:

i

..
..

••

·YES

.. .'. ..
F2

..

................. ..~... ........
.. POINTER FOR
.. FIRST SYSTEM

.... .
·.....
...............
•

·E3
THIS OPERANO HAY BE
FOLO, BLOCK. NULMSG

• YES

X

LOAD LUB

05

•• DID ••
NO ••
BLANK
_•
•••• •••• •••••••••••• OR COMMA
••
••
END
••
·.SCAN ••

....

..

.....Fl··········
..

E2

·KB •

• AI·

• •• CONTROL

•
•

••
DID ••
X NO •• A BLANK ••
••••••
OR COMMA
••
••
END
••
·.SCAN ••

:~~~~~~-.-.-.-~::
*K3

.SCANR3

•

-GET UNIT CLASS ..
..
AND ORDER
..

..

·····02·····
.....
•-.-.-.-.-A-A-.-.
i

• POINT TO 2ND
..
OPE RAND

.*~••

·03
OEVICE MUST BE A 1403
WITH UCS FEATURES.
-OEVICE TYPE COOE HEX 42-

•
•

*B3·

X

SVC 23 - LOAD •
THE UCS PHASE.
HEADER INTO •
BUFFER.
•
-LODNAM+8•

•
MODIFY
•
•
LODCCWZ
•
• SET CHAIN BIT •
.OFF TO PROHIBIT

.
i
.
•••• •••••• •••• •••• ••• •••• ••••••••••• •••• •••••••• ••• x.

.•.x

·K3
1. THE SUBROUTINE CNUNCO RETURNS
THE UNIT CLASS IN THE LOCATION

..
.. ........
.....
..
x
··.......... .

••
••

..

K2

••

PHASE
FOUND

•• NO
••••••

·YES

• 2

•

DOS System Control

i

2.

~N~hB:rsBHMM
1 EQUALS BG
2 EQUALS FG1
3 EQUALS FG2

¥~~LB~ll~kBEk· _~B~T~mTER_.

·HC •
• C4·PNPERR

··......
x

• 3

•

Chart MH.

TIMER Statement Processor $$BATTNNi Refer to
SUpervisor, Chart 25

·_·-Al*-----*_·

•

$$BATTNN

****A2* ** **** * ..
*
TI MER

• *** AS*·* ** ****
TI MLNK
,

1

63

.*.

:x ••...•...•....•.•.••.... :
X
*****e 1*"* •• ****-..
.. PUT THE ADOR
-OF THE

*B2
1C600 TI MER NOT
AVAILABLE ~ESSAGE

INTERVAL-

.. TIMER OPTION
TABLE INTO

-It.- *** **** .... ** _.it
..

WRKRG4

..

*-

,

****
3

*-+-+-*-+-*-*-*-+
SEND

'"2

x

..

SET OPERAND

..

STATEMENTS

ERROR

MES SAGE

**

..

«-

OF TIMER

•• NG
*
.*.* •••••••• X:

IS F2

CHART KC

X

*****C3*******
DOI::S
*
****C4**.******
PROGRAM.
*
CONTROL
CHART KB
CONTROL THE * •••••••• X*
TIMER.
*

...

CHAR T KB

.•

*.

TIMER
IN USE

* •••

.*

, ***. ,
•

El
*.
• DELI
*
*.
****E2********·
METER *. NO
...
NVSERR
*. IS A BLANK .* .......... X*
CHART KC
*.
.*
...
.+
***************
* ••
*
"YES

3

x

PUT CURRENT
KEY VALUE
IN PDINTI

X

F3·*·

*·**·F5·********·
*CALC .. ADDR. OF *
•
THE NEW
*
*INTERVAL TIMER *
(IT J OPTION *
TABLE
*
** ********** * ... **

.-

.. *

.*

.-.x

x

X

OPERANO
IS BG

*. *.

**** ___ G3**********
•
PUT THE
..
* DISPLACEMENT *
.. VALU E FOR THE *
* ATTENTION PIB *
IN POI"Hl
*
***** **** *** **** ..

YES

.. * ......

* ...
*
-NO

-,,

x

* ••
*
*YES

01

SVC 22
SEllE THE
SYSTEM

.* ***E5· *. **** ***
* PUT THE KEY •
*OF THE PROGRAM •
...
• THAT NOW HAS
IT SUPPORT
*
INTO lTKEY
*****************

"*
*

.*
*.
.* ATTENTION *. NO
*. ROUTINE IN
.* .....
*. CONTROL • *

KEY INTO
POINT4

*

,

** ***E 3**********

x

-** ."F 1" ********+
*
PUT BG

X

***·*C5***·**·

*****05**********
* SAVE THE KEY
*
*OF THE PROGRAM *
... THAT HAD IT
*
SUPPORT IN
'*
WRKRG3
** **** ** ** **'** ***

YES

*NO

•*

** *.*B5***** * **.*
* SET REGISTER
*
*ZERO TO OISABLE*
* INTERRUPTS ON *
SEIZE
OPERAT ION
*
** *.** ** * * ** ** *. *

X

03· *.

****02* ***. ****
CONTROL
...

***** .... ***** ** *.*

.-.

****B4*********
NVSERR

'
.
••••

2

X

* •• _- D1" **** _••• *
... SCANR2
KD*-+-+-*-*-*-*-*-*

*.

*

..*ERRTN
*** *C2* **** *****
Ke...

-.SUPPORTED ••

x

OPERAND

X

TNAERR

Cl

.*

,•

: ' .......... .ox·:
.*
*.
.:* IN+i~~~L *:*~~ .. :

.*

-.....
*
*

4

** ***G5*** ** * * .....
* STORE IT IN *
•

THE

..

*COMMUNICATIlJNS ..
*
REGION
*

*
-

:Xoo ....... oo ... :

x

X

*.** ·H3*· ***.* ***
.TIMLNK
Mti*

·*·"·H1*****·**··
PUT Fl
KEY INTO
POINT4

*

:-*GET*C~NTROl*-*
OF TIMER

,

* * .. ******.*** .. *.*

X

X

Jl·· ..
...

...

.*

OPERAND

-.

IS F1

*.

YES:

* ••
*
*NO

,
*
*

X

*****K 1**********
*
PUT F2
KEY INTO
POINT4

*

-

-

* ...... J 3* ** **** ***
* ZERO REGISTER *
*
0 AND SET
*
* THE MAX IMUM *
• TIME INTERVAL *
* IN REGISTER 1 *
**.*********** ***

•
.* .....

••

x
.***
2

****
1

-

X

*****J4**********
TIMLNK

:-·-GIvE"TiMER*-:
CONTROL TO
'SPECIFIED PROG'

**********.*.****

X

*****H5**********
* SET REGI STER *
*ZERO TO ENABLE *
•
INTERRUPTS
*
ON RELEASE

X

*****J5*******
SVC 22
*

*

~ELEASE

THE
SYSTEM

*

**.***********

*

*

•

*

X

*****K3* **** •• ***
SVC 10
SET TIMER
INTERVAL

*

** ••• * •• * ........ ****

**

X

.***.H4*.*·**.***
* PUT KEY OF
*
*
PROGRAM
*
* SPECIFIED BY *
* THE OPERAND *
* INTO POINTl *
*.***************

•

'4

X

***"'K4****.****
CONTROL
CHART KB

X

*
*

... **K5_**_*·"·*
RET TO AODR •
IN LNK REG
*

* .*-***- •• *.****

*
*

Appendix H. Detailed Flowcharts

531 €I

Chart M.1.

UNA Statement Processor $$BATTNI; Refer to
Supervisor, Chart 22

..••
•• ····Al·····.·
UNA
••••••••••••••••
•

•• ••••
•
1 •
•••••
•
x

X

·····Sl········..

*GETKEV

:~=::,~·······=t:
*-.-*-*-.-.-.-.-*
• UNASSIGN ALL •

ML*

*-*-*-.-*-*-.-*-*

• GET kEY OF
•
• FIRST OPERAND.
•
IN POINT2
•

:

•••••••••••••••••

~~GlE~ksU='lS

.B4
THE UNITS UN ASS IGNEO ARE
THOSE bELONGING TO THE
AREA SP[CIFIEO BY THE
mV~M~~RANO OF THE UNA

:

•••••••••••••••••

X
·····C1·····.·
...
.-*-.-.-.-.-*-*-.

*CHKFUA

•

ML*

CHECK AREA

•

.................
•
•

TO BE
DETACHED

01

.•.x

t •

• 111

t•

*.
IS A
.*. _.BLANK.t

•-

*.

•
•

SCAN

YES

..

DELIMITER, •••••••••••••••••••••• "...................... x.

* ••
·NO

·E4

x

·····El··········

SNGUNA
••••• E3 ••••• •• •••
• UNARTN
ML.

• FIRST OPERAND.
•
IN POINT".
•

• UNASS I GN ALL •
• lO('ICAl UNlTS •
• IN CLASS .E4 •

X

•
•

SAve THE

.-*-.-*-.-.-.-.-.

•

KEY Of THE

•

•••••••••••••••••••

•••••••••••••••••

··.·.FI··········
X

*GETKEY

X

I4L*

*-*-*-*-*-*-*-*-*

•
•

• GET KEY OF
•
• SECONO OPERANO •
•
IN POINT2
•

•••••••••••••••••

•••••••••••••••••

Gl·····.····
......
-.-.-.-.-.-.-.-.
X

.CHKFUA

•
•
•

ML •

CHECK AREA
TO BE
DETACHED

•
•
•

•••••••••••••••••

..

.•.x

HI·.

..

••
SCAN
•• NO
•• DELI"ITER ••••••••••••••••••••
••

... ..

IS A
••
·.BLANK ••

·YES

.•.x

•• JlKEYS "'. *. ••
••

...... ......

YES
•
•• ARE lOFNTICAL •••••••••••••••••• x.
·NO

x

••••• •
• 1 •
••••••

X

• •••K2 ••••• • •••

•
•

ERRRTN
CHART KC

•

••••• * ••••••••••••

532

•• •• F3·· •••••••
CONTROL
•
CHART KB
•

DOS S¥stem Control

THE UNITS UNASSIGNEO ARE
THOSE BELONGING TO THF.
AREA SPEC: I F I EO BY THE
FIRST OPERANO OF TH~ U_A
STATEMENT •

HOLD or RELSE Statement Processor $$BATTNI: Refer
to Supervisor, Chart 22

Chart MK.

o
..
o

.·..Al······ .•.

...............
HOLD

.. A2·········
.··.............
.

o
..
o

0

..
0

0

RELSE

..

>

....
....

o
o 1

o

:x ...•.................... :

0
0

0

x

····.81··········
.................

.0. *.
83
••••• 84•••••••
.*STATEMENT*. *. HOLD
.... HOLD/RELEASE
TURN ON ..
.*
..
*.
TYPE
•••••••••• X.
SW IN PIB
..
*. *. *H3.*
..
ASSIGN
..
...
..
FLAG
..
*••
*
••••••••••••••
*RElSE

·····Cl··········
.................

·····C3···...•

X.

ASGCHG

*GETKEV

Hl*

*-*-.-*-*-.-.-*-*
.. GET KEY Of
..
..

FIRST

..

..

OPERAND

..

X

i

..

r ... e

GET

..
..

..

APPROPRIATE
PIB ADORBS

..
..

USING THE
KEY

Cl

x
.0.

..
TURN OFF
..
.. HOLD/RELEASE ..

..............

..
..

..
..

..
..

..

...................

:.......•..•.......................•.•. x:x

X

SNCC.HG

•••
E3
••
• •••• E4 •••••••
••••
•
TURN ON •
••
•• HOLD
• HOLD/RELEASE •
••
STATEMENT •••••••••• X.
SW IN Pie
•
••
TYPE..
•
A!)SIGN
•
• • • H3 ••
•
FLAG
•

••••• E I ••••••••••
o
0
• SAVE ACDRESS
OF THE PIB
•
IN POiNT4
•

•
•
•

•

0

.. ...

......................
X

••· . ·F3···X . •··

· · · · · F l · · · · · · .. •• ..
.CETKEY
ML.

•
TURN OFF •
• HOLD/RELEASE ..
•
!Jw IN PI B
•
•
ASSIGN
..
FLAG
•
•

...............

...................
GET KEY OF
SECOND
OPERANO

•
•
•

: x•••••••••••••••••••••••• :

·· . ··G1.··.·.......
i

GET THE
APPROPRIATE
PIB ACCRESS
USING THE
KEY

i

................
·.····G3·········

•
•
•
•
•

•
•

..................

•
•

.. ..

THIS IS A LOGICAL DEClS I ON RATHER THAN A CODED
DECISION. THIS ROUTINE
USES A BAL INSTRUCTION TO
ACCESS THE COOING STARTING AT LABEL ASGCHG. WHEN
THE HOLD/RELEASE SWITCH

NO..
SCAN
••
••••••
DELlfolITED ••
BY A
••
••
·.BLAhK ••

....

~~lbA~~1 ~~E 5H~~G~~~c6t I ~~
THE INSTRUCTION WHOSE
ADDRESS IS IN THE LINK
REGISTER. THEREFORE, THE
ENTRY POINT TO THE HOLD
PROcESSOR (BAL TO ASGCHG)
IS F£jLLOWEO BY AN INSTRUCTION TO TURN ON THE
HOLD/RELEASE SIIHTCH. THE
SWITCH SETTING INSTRUCTION
ADDRESS I!) NUN IN THE LINK
REGISTER. THE SAME TECHNI QUE I S USED BY THE
RELEASE PROCESSOR.

·YES

.... ....
*.

KEYS
•• NO
ARE EQUAL
••••••

* •••
·YES

•

x
••••

....

> 1
o

: ........... x:

..·.Kl·········
...............

CONTROL
CHART KB

OH3

i

.>. ••
H1

.0.x ••

..............

·RELSE

.-.-.-.-.-.-.-.-.

*.

..

X

*••
*NO

Jl

..

• RESET POINT2 •
... WITH PIS AGOR •
• OF THE Flq~T •
.AREA SPECIFIED.
• BY FIRST OPND •

"' •

-.BLANK.--

•• .*

..

·····03·.........·

t.

SCAN
*. YES
*.. **. DELIMITED
BY A
._ ••••••

•
•
•
•
•

FLAG

.• x•••••••••••••••••••••••••.

• t

•
•
•

SW IN PI B
ASSIGN

0

•

0

X

•
•

o

ERRRTN
CHART KB

•
•

•

Appendix H. Detailed Flowcharts

533

Chart I'lL.

o
..

o

UNA, HOLD, RELSE Processor Suoroutines $$BATTNI;
Refer to Supervisor, Chart 22

....Al·········

...............
CHKFUA

••

YES.*

•• ••••

B1

.0.x *.

KEY

EO KEY OF

.*

GET THE

.-

...

CALC PI8
ADDRESS -

...

~~~~.~~~

01

*. e.IS

..

.....
o

•

IN UNALUN

•

.................
AND PUT KEY
[NTO WRKRG2

•
:

..
:

X

·····05··········
.-.-.-.-.-.-.-.-.

••

.SYSXN2

KY •

.................

* •••

·YES

•

CONVERT

•

:

SYSXXX

:

0

o
UCUERR

X

x

·+···E5··········
X

: •••• E3 ••••••••• :

...............
IN LNK REG

•

.. F3*

: •••••••••• X:
..
o

it

• STORE WRkRGl

..
• * .*OPERAND * • •• NO
••
LENGTH EO .* ................. x.
*. a.2 CHARS._ . -

*LG ..

RET TO ADDR

•..•.C5.·.·······

oNO

.*.x

•

•..•....•.• x:

AN eQUAL._ ..................... .
SIGN

D3

UNKEY

:UNALOP

a. a • • _ .*

.0.x *.

....El·········

•

.." DELIMITER .... YES

• * • * P[O *. *. Nli
*. DETACHED .* .....
*. X '80' .*.
.x
* ••
-YES

..

..

.0.x

....:

.. Of PIB TABLE

•
•
•
..

.................
•

C3
*•
• * SCAN *.

..
..

•

:

ZERO WRKRGl
AND STORE
THE PROGRAM
KEY IN LOt

..

...

OPERAND

UNARTN

X

...

STATEMENT

...............

•
•

.................
..

..

····AS·········

·····85··········

:~;~~~~-.-.-.-~~:

.. STARTING ADOR ..

:

:

·····83··········

X
•••·.C1.·.·
••••••
...
..

o

0

GET KEY

*.

•• THIS PROG ••

* ••
"
oNO

····A3·········

0

X

••

OF OPNO

*.

o

0

..

..

..
•

•

PUT Fl KEY

•

.................
•
•

[NTO
POINT2

*

YES ••

•• ••••

••

F3

.*.x

+.

! ••••••••••••••• :

·····F5··········
:~~!~~~-.-.-.-~~:

[5 Fl

••

••

••

•
•

·.·.·S3··········
PUT F2 KEY

•

INTO
POINT2

X

•
•

*

*

•

x

IS F2

•
..

*

NUMBER IN

•

•• NO

• NO ••
••••••

•

•••••••••••••••••• x.

x

..
........

..

• *. ••

OPERAND

ADD ONE
TO THE
LOGICAL UNIT

:....~~~~:!.....:

.. ..
.. .... ......

••

..
•

·····GS··········

X

•-

UNASSIGN
LOGICAL

: ••••• ~~!!~ ••••• :

* •••
_NO

••

WRKRGI

X

.. ..

H3

•

AREA KEY
INTO

•

a.

OPERAND

a.

PUT THE

•
•

.0 •

HS

••

END

OF

••

CLASS

••

••

••

·YES

·YES

:•••.•••••. x:
•

:

534

DOS System Control

X
··..J3·········

...............
RET TO ACDR

IN LNK REG

····J4·········
X

•
•

•
•

o

...............
ERRRTN
CHART KC

•
•
0

•

:

X
····JS·········

...............
RET TO ADDR
IN LNK REG

•

:

Chart

Icrminated Program I/O Handling $$BEOJ; Refer to
Supervisor, Chart 26

NA.

.....
..·

·N8 •
• 82·

···*·A1·········
..

$$BEOJ

··....

··

• 2

• 1

x

X

····*Bl··········

IJBEJ20+B

.. LOAD AODR OF ..
-COMM REGN INTO ..

.................
.. Rll AND ADDR

•

.. OF PIB TABLE
..
INTO RIO

..
..

it
.....Cl··········

82···..

.................
-OF INTERRUPTED ..

..

PROGRAM

..

X
.·.··01··········
-RESET WRITE ON ..

*SYSRES B[T AND ..
_CHAN APPENDAGE ..

•
•

····C2·········
...............

•

SVC 2
$$8ATST3

•

·02

•

[S

·NS •

••

••

..
.

X

SET P[B •
ASS[GN FLG ..
TO [NO[CATE
•
CANCEL PROG •
[N PROGRESS.

: 4

*.

X

...*
.. ..

....
....

.YES

it

:!~!~-.-.-.-.-~:

•

.w.x

SVCERR
•• ~:NCEL...
: •••• FS ••••••••• :
••
DUE TO
•• YES
•
SET REG 0
•
•• ILLEGAL SVC •••••••••• X.
EQUAL TO
•
••
••
•
ONE
•

RESET BIT.

..............

.................

• LOGICAL TRAN •

..

•

EXECUT [NG •

:.••..••..• x:

..··.GI··········
·..................
it

G3

..

...X

·NO

G4

••

•• ·ATTENTloN· •• yeS
••
ROUTINE
••••••
•• CANCELED ••

.PC TBL INTO R13*
-AND DIVIDE THE ..
..
l TK BY 2
..

a.

.. ..

x
··....
......

••

·NO

• 2

X

it

.-.-.-.-.-.-.-.-.
.................
··.·.H1··········
.ENT1
Ne.

• 3

•

OCTEST
X
••••• J 1 ••••••••••
• LOAD ADDRESS
•
•
OF OC
•
• OPTION TABLE •
•
INTO R13
•

MESSAGE

J3

.•.x

it

•
•

ZERO THE
OPTION TABLE
ENTRY

it

• 1

•

•
•
•

x.

.YES

x

SET REG 0
EQUAL TO
ZERO

•
•

:

·J5
OETERHIN

l~~T~~2~

••

•

.·.•K2·········

•

...............
SVC 2
SSBEOJl
CHART NJ

.•.•.K3··········
•

•
•
..

SET UP TO
FETCH
$$BEOJl

•
•
•

E CAUSE

·Tl~oE

(FlED,

CANCEL C
ANALYS I S
NT! NUES
IN SSBEOJ1.

·.~...

it

X

NB.

.................
.....
··....
.
•

...............•

Due· ••

.................

: 4

• ENT1

••

....
....

•
•
:

:

.. ·:~~o··

:

• .CANCEL
NO
••••• G~vc·z·····
•• TO PHASE NOT ••••••••••
SSSEOJ2
•
••
FOUND
••
•
CHART NL
•

•• CNCL ••
•• CODE BE- •• YES
•• TWEEN X'ZO' ••••••
..AND XIZZI ••

..................

K1··········
......
-.-.-.-.-.-.-.-.

•• X: 5

OTHERS

: •••• H4 ••••••••• :

.................
:

.•.it

•

:~~~~!!!::::::~~:
...
WRITE
•

··..........

•
•
•

.................
.......

....
.. ..

• IN CNCL CODE •
• THAT INDICATED •

.. ZERO INTERVAL ..
..
TIMER
..

...............

.NO

X
•.•.·F3·······

.·.··Fl··········

ZERO THE
OPTION TABLE
ENTRY

:

E3.....
CNCLTEST E4 •••••
PROGCHK
WAS
+.
..CANCEL ••
• ••• ES •••••••••
•• LOG[C.AL
•• NO
••
DUE TO
•• YES
•
SVC 2
•
••
TRANSIENT
•••••••••• X•• PRDG CHECK
•••••••••• X.
SSDPCHK
•
•• EXECUTING.••
••
•
CHART NT
•

.YES

•
•
•

•
•

••

a •• _

.. LOAD ADOR OF

...............
SSBTERM
CHART NE

......
....

x

ENTRY

····CS·········
SVC 2
•

•
•
•

SUPPRIO

·····03·······
..............
•
•
•
•
•

X

EOJSTEP

..~
·ND •
•.D!.

·NO

·02
REFER TO IBM
SYSTEM/360
OOS AUTO TEST
PLM-Y24-5027.

•• •••• a.BY PROG
INTRPTED._ .a.
._

PCTEST

.•.

x
.....
•• E!.
·

•• TERM[NATOR •• YES
.SE[NG CANCELED ••••••

•

...x

..

C3

............
••

.................
NO •• SUPPORTED

X

• •••• 85 ••••••••••

•• aYES

it

UNNORM

it

.. BIT IN ASSlGN ..
.. FLAG OF PIS ..

•* ElTIMER•• _.

:ARCANCEL

B4···..

••• NO

• •• YES

.. ADD L 1K VALUE ..

*TO PIB TBl ADDR*TO POINT TO PIS-

83···..

INTERR

• •• AUTOTEST·· •• NO
•••• NORMAL •••• YES
•••• 8G
•• w. NO
•
:
LSt~HR~~El
:
•• PROGRAM IN
•••••••••• x..
EOJ
•••••••••• X..
EOJ STEP
•••••••••• X. ADOR OF PHASE •
..~~OGRES~...
••••
••••
••••
••••
: NAME S$8TERH :

·

:

....

:x.: .
..
....
...............
5

SVC2
•

•

:

•

•••• K4.~ ••••••
SVC Z
$SBILSVC
CHART NN

-

•

a

..!.•.
:

3

:

Appendix H. Detailed Flowcharts

535

Chart NB.

EOJ Processing Routine and $$BEOJ Subroutines
$$BEOJ; Refer to Supervisor, Chart 26

•••• A' •••••••••

••
•

...............••

•••••
-NA •

PUT

•••• AS •• •••••••

...............•

•

•

••

0•

ENTl

• C3-

••
•

PUT

X
:···t81~·t~:····:

•

ADDRESS

•

:

InMEt-

:

•••••••••••••••••••
X

·····Cl·······
•
•
•
•

RESET·
tAUL AND •
SUPERV I SDR
•
UPDAT E JDB •

•

(;ONTROL SW •

••••••••••••••

x
•••••
-NA •
• 85'
••
•

o

•

•-NA
•••••

EmU¥E
tHANNEL

•

•• ····0''·········
•
ENT2
••••••••••••••••
••

.

:

:oU2 t~81 ~~~~l :

.'.x

D5
'.
.• - PC
*. ..... 0
••
OR oc
*. TABLE ENTRlE~ ••••••

... •.

....

.* .'

.YES

:••..••••.•.•••••••..•••• x:

.x .•••.•.••..•.•..••.••••..
X

ZE~OB~t~tE~

•••••••••••••••••

•••••••••••••

••
•

·····El··········

• LOAD AND TEST'
o REG 13 FOR
•
•
ANY PC OR
•
•
ot TABLE
•
•
ENTRY
•

PROG

••••••••••••••

:

•

···.··C3·.·X ..······

• 84'

.

SVC 0

..x....•...••................

SET
•
tANtEL tODE •
BIT IN JOB
•
CONTROL sw •
JCSWO'

EOJSTEP

•

ENT1 •••• 8s.! ••••••••

SVc.o

X
·····01·······
•
•
•
•
•

·•...............•

····84.*·*·····.

i
.·.··e ••••••••••

ENU

X

:
o

•
IN JtSWO
•
•••••••••••••••••

····e3·········
~X~Tl

•••••••••••••••

:
•

: tET

TRY IN

PROG

•
•

:A
P~t~~~R:
RI5
'Ho
•'PLUS
••••••••••••••••

:•••••••••• x:

•••••• FI·i •••••••••
•

LOAiiV~H2sE
IJOleTLA

•

•

•

•••••••••••••

.....Gl···.·····.
,pX
• SET
ENTRY
•
PO NT TO
$Jgt~m IN

•
•
:

:
•••••••••••••••••••
X

••••• Hl ••••••••••
•
SET REG 1
•
• WgTH AD DR OF •
•
AVE AREA •
'A2 aOYE Jt TPSW'
• TO THAT AREA •

•••••••••••••••••

x
·····Jt··········
•
RE ET PI8
•
ASS GN FLAG
• BIt HAT IN-

:DI~~T~Rom~lL

•
•

•
:

•••••••••••••••••

•

....Kt·!·······
Stll

•

AJt
•• •••U b.lR=
•••••

536

DOS System Control

•
:

x
.···F3·.·.···.·
RETURN TD

AR~MMNK

•••••••••••••••

ENTl•••• F5.! ••••••••
•
:

•

•

•

ZERO ENTRY

•

IN Pt OR

•

ot OPTION

•

•••••••••••••••••••*
•

TABLE

:x ••••.••••• :
•
•

•

x
• •••'5•••••••••
RETURN T~
ADDR IN LNk

REGISTER

•••••••••••••••

•
•

•

Chart NC.

o

•••• Al •••••••••

....

0

•

o

Message output Subroutine $$BEOJ; Refer to
supervisor, Chart 26

LOGLlST

•

•••••••••••••••

0

o 1

·····Sl··········
.................
•

CLEAR OUTPUT

FGL>T

•

..

_sv5000 IN eCB • •

,puT PUb PhTR n.*R:' FR(JH lUOTAS ..

•

*YO OUTPUT lRf:A •

x
.0.

••

1/0 ••
•• LEY ICE A •• NO
•• TAPt DRIVE:. ••••••

..................
{Jf SY~LST OR

•

b3

0

.......... ..
.*

*5 TORE UN IT AC,LH.*

tAREA TO BLAhKS •
TO MOVE H!:.G

X

SETLOGU.

.. USE EXEC JN~T •

•

o.

0

0

.....e2····.·.· ..

X

LOGLIST

••••• •
o
•
••••

·••••.
o

·YES

x

•••••
·NB •
• lI3·
•

··.··Cl··········

•

*.•*

•*[;1

t.

{I

-RlI POINTS AT

.pur

•

u*

*Fyk

*..*/10
•••.

•• ASSJG~ED .-

*. *••• .-

SYSL~ T

PU,", •

x
• >.

·····02··········
................. .....x .. .... ......
i

*GLT $V 5lS ,

De,,' ..

pue •

.. TYPE FROM

.. ":OVE TO FlELl> •

..

CALLeD TYPE

•

•

·YES

NO.

• SE •• !.I::. rAPE DR •
• F(,K FILE PKOT •
•
tONDITION
•

fLD 1l6+RS In! R4 •

pAYl

-.

IS
SVSLOG

MULT M5 bY

X

*'0 INuEX PUBTAS*

.................
.0.x

·····e3··········
. -.-.-.-*-.-.-.-.
"' ................

X

.LD Lun A8 AeOk •
tiN Kit LI) UUTPuT.
tARE A ADOR IN R5*
• Sf turpur AREA.
• ADCR Ifill CChLG •

0

0

>

...·.e2··········
......"'..........

X

0:3

••

•

TPT't'PE

....
....
x

0

• 3

•

•

>

Olt .'... •.

.. .......... ....
. :•.......•.•••.•.•...•.•. x: .••••••.•
.. .. ...............
.:*"[0
.....
........
....
·
··...... ·.....
••

IS

••

rAPL OR ••
• ••• F ILE PROUt TED ••

Y[S.*

·Nt: •

••

.*

••

I:IG

PftllGRAM

". NO

••••••

i

·YES

>'0

o

0

• .."ul·

x

x

• 0.

fl

.- IS
*. *. YESX•
SYSLOG
*.•**.AS
SAME DEVICE ••••••
SYSlST.*

*.

E2

-.

*••
'NO

lot

*..

TPTYPE; 1

III.

•!:.Y5.LH
* 15 ('R'oo *oo
~

SYSlIlIlJ

too

.*

• >•

PldNH:K . '

NO
. . . . . ..

too.'
t.

'I'

'3

...·.FZ··········

·····FI·······..·
X

X

-51 OUTPUT ARb\
.. AllOR IN CCWlS
..
LO ,-Ch!:.I\P
.. ADOR I'" RS

-Sf LOGICAL UNIT-ADDR OF SYSLut" •
-'NTO ceb VIA R5*

.................

o

•
···.·GI··········

•o 2

Ne*

t-t-t-t-t-*-t-.-t

.................
..

wRITE MSG

•

•

014 SYSLOC:.

•'"

o

o 2

•

•••

••

b~VICI: *:.~:~
OISI(. ••
ONe

•

·.···F4.···*..,,··
X

..
..

..
..

>

•

•••••••••••••••••

I~ KEG 3

i
..···G4.••....•.•

J(Lcca

• S fORl AOUJ( OF •
.APPKOPK fATE CLW.

•
•

IN kEtATED
CCl\ FA-lJM

•
•

•• • • It • • REG
S
•
•••••••••••

X

•••••
hlt··········
.-.-.-.-.-.-.-.-.

'.

•* BG ' •*. I'tL
*. PROGRAM . t ................................ ..
*. t .
.* 'I'
*••
'
-YES

.PUT

•t

x

•*Jl

.'.

FbJOa
-.

...

IS
*.••••••
NO
*..-'.ASSIGhED
SYSLST
t.
'I' 'It
x
'. -YES
'I'

··..........
x

• 1

•

.....
tNB •

•

•

0

x

.'. ..
..
!!!.: ..
.. ....
x
G5

••

EXT~~tL~ILL[~:"

•••••
·Nt:: •
• 03·
••
•

*••
*
'NO

•••.•H5··········
..
X

:t~ iV~~E~l A~e~:
:oU~~OVR~~~A 1 ~a :

.................

.U!:tE AS COUNT 10.

i

... .'. ..
...

....

••

.YE5.

• in·

••
o

•••••
.. 03·
••
•

.:.. 8 •

••
15.
•• NO
••
SY~OOO
••••••
•• ASSIG",ED ••
t.

WRJ TE MSG

• ON 110 DEVitt. •

x

J2

Na •

.................
•

.AOoR TO E.NOAIJUR*

..

:x •....•.••. :

HI

i

.LO AOOR OF CIa.
*IN KS INDEX 72 •
.SYTES YO SYSL~ Y•
.1J18 CMP CURKENT •

:......•..........•.•.•.. x:

••

X
lot.

ONLIST

.· ...FS··········

OKTYPE

" RI=LOtATE TAPE.
•
~UTPuT AREA
•
• 'DOR l:,TlJ CCWTP •
• to AOIJR Of cc~ •

.................

.................
x
·....
.....

• ~ T ADOR 1'" eee •
..
OF CCWLG
..

• PUT

•• A

x

~

*Vt

X

E4

x
•••••
.N8 •

...

i
::~~~~i·:~~·:~:·:

'BY I. PUT ADOO •
'IN SEARCH CCwS •
'LO IN TIC CCws 0

:.i=~~~~=.=~~=~.:

• 03·

·····K2·.·•••••••
X

.LOAD Utdl AOoR •
.OF SYSOOO IN K5.
.ADJUST RH.S SO •
*SYSOOO USEO IN •
.. SETLOGUN RTN •

.................

··..........
x

• I

•

•••••K5··········
X

'ST ADDR OF DISK'
'OUTPUT AREA IN 0

:~~AlEo~c~s~O~M

OOF CHAIN IN 05 •

•••••••••••••••••
x

•••••
•
••••••

o

• 2

Appendix H. Detailed Flowcharts

537

Chart ND.

Quiesce I/O Phase $$BEOJ3; Refer to Supervisor,
Chart 26

• ••• Al· ••••••••

•• SIBEOJ3 ••
•••••••••••••••••

·····81.•..•••

•• ••••
•
I >
•••••
•

X

•

PUT

STORE PROG •

•

KEY IN

•

LOCATION

•

••••••••••••••••
•

eLI

••-

*.

CI

.'.x *.

•

*.

eee

*. *.

••

.*

ASSIGN FLG
OF PIB IN
lOtAI ION

•

TH

.:.

••

x
•••••
•
• •••• >

*••
·YES

•
•
•

•••

C2

TP

·····8,.•••.•·•••·

.. ..

•
•

••

HAL flO

••

X

•••••••••••••

·····Fl.·..··...·

................

SVC 0

OI~ABLE

X

F2

•
•
..
..

YES..

••••• •••

>

•••••••••••••••••
> •••• > •

.>.x

x

•• •6••• ••
>
•
••••

COMPLETE

CALC END

•

•
•
•

A.IJOR Uf
RE'IO IN
Rl2

•
•
•

GO

..
..
..
•
..

······F4
•••• ' .
•••···.•••

••

•

CLi

····G2·········•

...............

••

5VC 7
HAlT

••

•

••

........

PUB·.

•

•• BELONG TO •• NO X

•

*. ••PROGENDED
BEING •••••• X•••••••••••••
••
·YES

s¢i~AiNTO

THIS DEVICE

REQID

•

YE~.

••••••

:x .•...••••..

~RNm
m~c~

DEQUEU
THE DE
BEEN D
REQID
DEVICE

••
••

•

.i ..
•• 1 ••
••••• •

DOS System Control

.>.x

.

••

rtEQI0

....

EQUAL 0

•• YES,.

.* •.••

•• ·H3 ••
ONO

x
.'.

Jlt
••
• •••• J5 ••••••••••
. ' ALL ' .
0
DECREASE
•
. ' OEVlttS ' . NO
• COUNT CONTROL •
' . DEQUEUED
•••••••••• X.
REGISTER
••
••
•
BY l-R13

....
.. ..

.i•••
• 2 •
••••••

:

.... ....
Hit

'YES

o

•••••••••••••••••••••

538

LTK..
EQUAL
••

•• ·H3 ••

x

.'.
.• JlTELE-*. *. ' . NO X•
•'
' . PROCESSING .* ••••
*. DEVIc.e ••

•....Kl.···••·•••

.*

.'.x ••

.. .... ..

••

•

GIt

'NO

Ii

•

>
.
••••

Ii

'H3
THESE
fUNC fI
LOOPS.

X

•

•• OECREAs,e ••
•
R 12 BY
•
•
O'liE
•
•••••••••••••••••••

i

•••••••••••••••••

:

PLUS 1

:x •......••..

.....Gl··········

····.v:;·

0

>
•
•
>

•
•

>NO

X

•••

•• ••••
•
> 5 •
••••

·····E4··········
................
.... . .

••

.

Hl

>
>
•

:X •••••••••••••••••••••••• :

>.

.. ADD 1 TO Rl
• -R7 IS useD
.. TO NUMBER THE
•
PUB ENTRIES
..
SCANNED

x

>
> 3
>

Ii

GARY

•• It

••

110

*.••••••
NO

UNAS,SIGN
SV5FGl

••••

ITERATE

••

0

••••• •

TP
DEY ICE

•
•

••

Uf

PUB TA8Lf

X

••
•
>

x

•••••••••••••••••••

seT R7
(NUMBERING
REGISTER I
TO MINUS 1

Ii

SVC 25
HAL T 110
ON TP
DEV ICE

•• NO

·YES

•
•

.>.x *.

1:.'\10

·VE~

•• IN OISABLE ••••••
•• C.LASS ••

•

*.••

.. .'. .. ······03···········
.... .... .... .............
• •
DEVICE

Cit

•

.. .......... ....
....
·····04........•.
·..................
••

••

·····*E2···········

TH

•
•
•

.................

x

•

PUB TABLE
ADDRESSES

....

fi.HR't'

D~~l~~ErN *:.!~~ .............. .

02

•
SET UP REGS
• WITH LUB ArotC

>

•

..

·····El··········

.. 3

•

*•••
>NO

>
o 5

X

>

AOD 8 TO

..
..

o 2

It-

i

•

•
kit ~u THAT
• IT POINTS TO
• THE NEXT PUB

*. ••

QUEUE

>

LASTPU~

•••••••••••••••••

X

..
..
..

•••• >

....•

•

i x•••••••••••••••••••••••• :

STORE PUB.

•
•

o

• 2

•

....

eeD

QUEUE

·····01·······
..............
•

6

X

ADDR IN RI
.hO teN
AODR IN THE

..

TELE
NO
PROCESSING ••••••
SUPPORTED.-

f.

•

••••• 82 ••••••••••
•
SET UP

..
•
..

•

•••••

>

••••• •

..................
·•• .
x

o

Ii

•
•
•

····KIt·········
5VC 2
SS8EOJ
CHART NA

••••
•
•••

o ~

•
•

••••••••••••••• •

Chart NE.

Reset Foreground PUB Ownership and Detach
Attention Routine $$BTERMi Refer to Supervisor,
Chart 26

oA4

RIO AND Rll ARE USED AS
FOR THE PIB-TABLE AND C
REGION RESPECTIVELY AND
A PREVIOUS PHASE AND S
UNCHANGED FOR THE NEXT

....AI·········.
·...............
:

$$BTERH

.....

:

.

X
·. ···81··········
.. LOCATE SAVE-

.. AREA POINTER
_FROM PIS-TABLE
INTO R2
..
..
*A4

.oo

.................
..
..

X
.....01·····.···
..
..

:HoD

..
..

OF UNASSIGN

: •• !~2!S~!~~~ ••

C2

.'.

•
•
•
•

•

OR INTO •
PI BPUBAS
•
TERMINATOR
•
WORKING
•

x

C3

••

•• *.••••••
YES
SCANNED

• * •• p6~~s

..

..
LOAD R13
.. WITH ADDRESS

.................
:ENDPUB

..

AREA

X
..... 83·······

•
•
•
•

.....••.... x:x

.... ···Cl··········
RELOCATE our ..

.. •.

.....
'NO

...

:•• ~~.~;~!~!;~ ••:

•••

PRCOMPL

••

• •••• C4 ••••••••••

•• NORMAL ••
•• EOJ seT •• YES

..
oo·

..CANCEL-CODE'" ...........

••

....
.. ...
X'OO'

••

• GET JOB-NAME •
.FROM FOREGROUNO •

x.

...................

.-.x

x
·····02··········

03
••
•• IS
*.
•• ATTENTION •• NO
••
ROUT INE
••••••
·.CANCELEO .*

X
.··.··04·•.....•...

.~~~.-.-.-.-.-~~.
• PROGRAM

.... ....

: .. ~~~.~~.!2.~~ •• :

SAVE AREA

•

'No

• RESET PROPER •
.OWNERSHIP FLAGS •
.IN ALL PUBS,GET.
.NEXT ENTRY, AND.

_RTN FOR BRANCH ..

:

X
·····82··········
• LOAD ADDRESS
• OF PUB-TABLE
•
INTO R5 AND
.LENGTH OF PUB• ENTRY INTO R6

..
..
..
..

X

..

: 1

DONE

..

..................

.. AREA ADDRESS
..
IN ccw
..
ADDRESS

.....
.....
-

• NF •
•• E~"

oUTAR

REGISTERS
ICATICATloN
SET BY
REMAIN

• COMPLETED'

• YES

:••••...•••.• x:

·····E3····· . ·

·····El··········
.. LOAD LOGICAL

..

..

..

•
SET A X'07' •
• IN DISPLACE- •
• MENT AREA OF •
• PUB AS DETACH•
MASK
•
•

.. TRANS! ENT KEY"

INTO RS AND

.................
-FZ-

'F2
THE LOGICAL TRANSIENT
KEY IS SHIFTED RIGHT
CAUSING A DIVISION BY
16 TO OCCUR.

X
····.FI·····
..···

.. LOAD ADDRESS ..
_OF lOG-ROUT [NE ..

.. INTO R14 FOR

:.::€~~!!!~~~:

...

Gl

.'.x *.

*G2

•

.

2

.................

•

PHYSEIZE
X
• •••• F3· •••••••••
..
CLEAR RO
..
• TO ZERO TO
•
•
DISABLE 1/0 •

F4

·...................

..

..:
'G2
THE BINARY BIT
CONFIGURATION IN
LTK +1 I S COMPARED
TO A BINARY 32.

••

•+
*. NO
.... FOREGROUND .......... ..
*. 2 JOB .*

... ... -..

•

:IF ANY,

- .•

•
• •••
.............
x..

GET ADDRESS

.OF TAPE-ERROR- •
•
• BLOCK TABLE,
INTO R2:

..............

.. MODIFY IT FOR ..
• INDEXING

SETUP
X
••• ·.E4 .......... .

X

X

••

*.

.-.x

••

••••

••

• •••• FS ••••••••••

OPTION

.TEB
NG.
.-_.-.-.-.-.-.-.
•••••••••• X.
LOG TEB•
••
•
STATISTICS
•

*. ••

• ••••••••••••••••

TEB

....

•• YES

. .......

x

X
·.····G3·
. ·••··•.··
S~yE~~

••• •

UNASSGN G5 •••••
.·SHOULD ••
NO •• ASSIGNMENTS ••
•••••
BE RESET
••

.. .. ....
it
... ....
-.......

CONTROL

.YES

• 2

:.H2
A 254

IS ANOED
INTO THE IMMEDIATE
DATA POSITION OF THE
RESET OWNERSHIP
INSTRUCTION MOD.

X

·····HI·······
...............

MODIFY MASK_
TO RESET F2 •

• OWNERSHIP FLAG ..
•
IN ALL PUB- •
• ENTRIES
.H2

.

MVI

•

X
·····H3··········
..

HOVE

..

INTO

•
•

PIB-FLAG

•

OETACH-MA~K

•
..
•

: •••••• :~! •••••. :

:.J2
RELEASES

.x •••••••••••

X
•••
JI'.
•• I S . .
• • FOREGROUND •• ON
•• CANCEL-SWITCH ••••••
•• IN PIB ••
•• ·K3 ••

.. ..

• OFF

X

.....Kl··········
• SUPPRESS I/O
BY CHANGI NG
•
•
Nap INTO
BRANCH AT

....

..

..
• ••• ,..G •
••••••••••••••••••••••••• X.
.. El.

-YES

..
..

.

'No

~~~~~.~~:

•
..
•

....

THE
CORE PART! TI ON
USED BY THE
TERMINATED
PROGRAM •

X
·····J3·······

•
AND INTO •
• PIBPUBAS THE •
•

..............

.OF TERMINATION•
•
SWITCHES •

.K3
THIS SwITCH IS IN THE
PI BPUBAS-BYTE IN THE P lB.
ON INDICATES 110 CANCEL
IN THE TERMINATOR ..
S PRESS ALL 110 FROM
N
TO AVOID A
C
-WITHIN-CANCEL
L
N THE SYSTEM.
SEl ON BY PHASE
S$~EoJ.

22

•••••• J4· •••••••• ••

BG AND FG END ••••••••• x

•

svc

RELEASE
CONTROL

X

•• .. ·K4· ••••••• •
SVC 11
•
•
.RE1URN TO TASK.

·~;~~S!.!~.~~~~~·

:X •••••••••• :

......
x

: 1

:

Appendix H. Detailed Flowcharts

539

Chart NF.

Reset JIB's for I/O Devices of Terminated Program
$$BTERM; Refer to Supervisor, Chart 26

•••••
ItHE •
• G5*
••
•
i
:~E:OBA;·:=~·:;·:

UNASSGN+a

• AND PUT SIZE •
• OF LUB TABLE •
• TO BE SCANNED •

•• •2•••••
••••••

•
INTO R7
•
•••••••••••••••••

x

·····C1·.·••..••·
i

C3

•

•

ADDRESS OF

LUB TABLE

•

•

•
INTO R5
••••••••••••••••••
••

·····01··········
X

•

•

•
•
•

GeT THE

LUB TABLE

END ADDRESS
BY ADDING R5
TO R7

•

•

•
•
•

•••

ADDLST

••

• •••• C4 ••••••••••

••••
• LOAD POINTER •
••
LAST
•• YES
.TO FIRH ENTRY.
• ••• JIBI~NTRY ••••••••••••
~~s~Ly".~~E~e :
..CHAIN..
•
FROH FAVP
•

....
·.

• LOAD STARTING.

.. ..

•• I ••
••••

.................

x:

-NO

·····03··········

:

••
•
••••••••••••••••••
x
•• ••••
•
I
•••••
••

•

•

MAKE LUB

ENTRY ALL

A2~~~SA~~XT

•

•

:

X

•
•
..
•

SAVE OAT A
IN R9 BY
LOADING IT
INTO R2

•

•
•
•

•••••••••••••••••

•••••••••••••••••

•••••••••••••••••••

x

.•.x

X

:···~~t·~::~:···:
• ENTRY LENGTH
•
IN R6 FOR
•
BRANCHING

•
•
•

•

LUB ENTRY

E2

-.

•

*.

•• • -LUB ISENTRY •• NO

·····E3······.···
• ZERO R9, AND

•

•
SET UP NEw
•
•
JIB POINTER •
••• ~ll~A~T~ET ••••••••
•
•
IN R9
•
ROUTINE
•
•
.FIt
*.
.x ••••••••••••••••••
•••••••••••••••••
*••
·YES
•••••
..x •••••••••••••••••••••••••.
·NE •
• B2·
••
•
x
.•.
DEQUEUE
X
TEST
Fl
-.
*.
.
ME~~BR~61~J~~ :
x
.*.-LUBDoes
ENTRY *. YES.
•
AND STORE
•••••••••••••••••••
•••• H~~iN~~= .•••••.•
•
IT uno
•
•
FRLSTBEG
•
•••••••••••••••••
*••
.NO

..

.-

•..•.F2··········

x

•• ••••
••
I
•••••
•

·····G3··········

CHAIN

X

•
ACCESS THE
•
• JIB ENTRY AND.
• ZERO OUT THE •
JIBS FIRST
•
•
•
THREE BYTES •

•••••••••••••••••
x
•• ••••
•
2 •
•••••
•

540

.····04·····..···

·····oz··········
X

DEQUEUEO

DOS System Control

X

• PUT DE QUEUED
.. JIBS ON THE
..
FREELJ~T

*F4
THIS IS SET UP FROM
PREVIOUS JIB ENTRIES
ItTH BYTE.

•
•
..

·05
THIS IS THE JIB POINTER
TL THE OLD FREELIST.
STORE BYTE POINTED T~ BY
F-AVP INTO ItTH BYTE Of
LAST JIB ENTRY DE QUEUED

Q~Vh Rt:;~~~~T~H6FBYTE
FkL~ TSEG.

Chart NG.

>

..

····Al···.···.·
...............
TEB

>

TEB

Get TEB Statistics and Reset TEB's $$BrERM: Refer
to Supervisor, Chart 26

....
....

>
•

>

x
····*61··········

•
•
..

LOAD BASE
ADDRESS OF
PUB-TABLE

•
•
•

•
>

IN Rl2

..
>

NO.*

••• •••

..
..
..

....
....

>

> I
>

LLAO LENGTH

1ST

••

• lOAD AODRE~!:t •
•
Of NEXT
•
•
BYTE IN our •
• AREA INTO flit • •
•
lERU R5
•

*.

THROUGH

•

.................
.... .

••

....

•• 7 ••
o.
o
>x.
.

>
•

•

~~A~~~o~·~~iH ••

•

BRA~CH AT
•
LAbEL NCIP •

•
•

•

BYTE IN THe

•

TEB-EkTRY

•

USING R3
INTO R5

•
•

•••••••••••••••••

·····oS··;..••··..
•

•
..

>

COt04VERT

DATA IN RS

•

.............

*lNCRE"'ENTAT HJ~ •

•

lNSERT

•

..

• Of PUB-ENTRY
•
INTO Rq fOR

X

·····CS··········

itt:SET·

•

>

.

GET8YTE

..............
:
•

0

·····B5··x.•..····

••

TIME

·····e4..•.•..

x
.....01··········
.................
•

•••

X

..
..

.. MESSAGE INTlI
.. Byre COUNT
.. FlELC OF CCW

•

·YES

·····el··········
.................
SET LENGTH
OF HEADEI{

B4

••••
•
5 0

....

o

o

.. ..... -....
••

x

..
..

•
0
0

X

NOP

.................

o

••
•

•

TO PACKED

•

DECIMAL

v•

•
•

•

•••••••••••••••••••

:x ................................. :

CONTSCAN

x

El

.too

x

·····E4·········.
•
•
.................

.................

•..·-.-.-.-.-.-*-.-.
•••F4···.·····..

·····FS··•.•·..•·

•••••••••••••

•••••••••••••••••

X

*oo

oo_ END *oo
ooOf
too YES
...
PUB-TABLE
too R12=25b .too too ._ ••

•
•

.* .......

.....
.

>'0

SET UP
SECONu

•

•

UNPACK AND

•

•

•

HEADER

o

x

·.···ES.· ••••••••

•

•
•

•

0

•

MOVE THE

•

CONVERTE...

•

BYTE TO OUT
•
AREA U~ lNG RIt •

tNE ..

• GS-

• >

X

··......••••..
X

oo_

.* PUB
.*aELLNGS

too

*oo
too

*.

oot
too YES
TO
NO
"'.FOREGROUND 2 •••••••••• X •• FGREGRGUfl,O 2 ••••••
too
JOB
too

too.*
too

FGI

Hl

.*

*oo._

.*

.~. ••

PUB

••

X

• •••• HZ ••••••••••

..................
.. .>. ..
.... .. ..
•

*.

•• BELONGS TO
YES
•
•• fOREGROUND 1 •••••••••• x.
••

._

*••
.YES

HTAPE

....
.. ..

••

Joe

tNO

JOB..

'NO

x

•••• >
>
>
••••

•

GET
DEVICE
JYPE

•

•
•
•

x

>
••
•

J2

YES ••
• ••••

x

•

• 3

>

••••

*. •.

0
0
0

••

JAPE

••

.* ••

••

'NO

•

•
•

•

ADO R9 TO

R12 TO GET
NEXT

PUS-ENTRY

....x
....

•o I
o

0>
0

:•...•..•.• x:

ENTER PRODUCT.
INTO RT
•

x
.•••.H3··········
•

•

ADO R2 AND

RT TO ACCESS

TEB-ENTRY

•

ADDRESS

*K3

•

•
•

•

•

.····H4··········*

•

•
•

SET lOOP

COUNT BY
lOAulNG R1

•

•

WITH A 5

•
•

•

•

•••••••••••••••••

•

•

0

.>.x

x
o••••

........ ........

••

•• TAPE

····.J4·········.
X

•
•

*. YES
ERRORS ••••••

ANY

.NO

THE AOORESS OF
THE t5EGII'4NING
OF THE T~B-TABLE
SEE FR-E.

•

•
•

lOAD POINTER
TO SECOND

BYTE IN
TE&-ENTRY
INTO R3

•

•
•
•
•

x •••••••••••••••••
••••
•
0
.i••
••••
o

>
o 4
o

••••

0

HS

.>.x

••

............

•NO..
•. *.
o

••

•

•
OUTPUT AREA
•
•••••••••••••••••

o 7

J3

INtREHE,..T R4

• BY It TO POINT •
•
TU NEXT P .. S
•
• TO BE U~EO IN.

X

*•

•••••••••••••••••
•

i

• Cl EAR HE AOER
•
.1 TO ALL blANKS.
•
ANLJ MAKE
•
• CHANNEL AND •
.UNI T PRINTABLE.

• FRuM PUb BY 6 •

•

x
·····Gs··········

·····G4·.········
.................

SKIPHQR

• MULTIPLY JEB- •

,. ENTRY POINTl:R •
•
•

•

•
•
•
•

0

·····G3·.····.···
.................

..
i
.
.x •••••••••••••••••••••••••
'K3
i
R2 CONTAINS

.....Kl··········
·....................

GEThXT

HEADER

X

.too

G2

too

X

• lOAD ADDRE~S
•
OF rtE:XT
•
TEB-BYTE fly
•
ADDING 1 H,
•
R3

NH

PRINT 2NO

•> 3 •>

•

i

.too

Gl

....
....

LOG

••

ALL

BYTES

e.

••

CHECKED

••

·YES

>

•

x

• •••• JS ••••••••••
o
•
•
•
•

MOVE ZEROS
TO

•
•

TEB-ENTRY

o

••

•••••••••••••••••

0

o 5

o

••••

0
0

•

x
..••••
K5········.·.
.-.-.-.-.-.-.-.-.
LOG

NH

PRINT

o STATISTICS

0

•••••••••••••
x
••••
0
o
••••
o
o 6

0
0

Appendix H. Detailed, Flowcharts

541

Chart NH.

Print Message and TEB Statistics Subroutine
$$BTERM; Refer to Supervisor, Chart 26

.•................•
•••• A4 •••••• •••

..

LOG

•

.....
83..........• LOG .*84··· •. *•
..
*•
.x.......... *.
.* .*
.. LOAD AODRES.S"
.. OF LUB TABLE

INTO R I t . .
....•••••••••••••••••
..

NO.*

CANCEL
WITHIN

*CANCEl
.-*
*...
·YES

x

.*. *•
C3
•*SVStOG * • *. NO
•
*
*. ASSIGNED •••••••••••••••••• X.•
*.
*.
.* .*
*••
.YES

··....*.*...
x

·····03··········
.................
X

..

SET LOGICAL

..

•
..

UNIT NUMBER
AND CCW-

•
..

..

eea

..

..

ADDRESS IN

• 1

•

..

······El··········.
·..................
X

..

CLEAR

aUlAR
TO BLANKS

..

..
..

...·.F3··········
.................
X

..

HOVE APPRO-

..

*PRIATE MESSAGE ..

.. INTO OUT AREA ..

.. PUT ceB AOOR

..

INTO REG 1

..

..

······G3···········
.............
X

svc.o

PRINT
A

LINE

••••••••••• x~

•*

H3

.'. t •

*•
.*
.* .*

• NO ...
110
- •
... X..
COMPLETED

*. *.

·

....

• YES

••••
.
• 1 '
••••
••••• *

····J3·········
i

•
RETURN
•
• TO ADDRESS IN •
• LINK REGISTER •

•••••••••••••••

542

DOS System Control

Prepare Cancel Cause Message $$BEOJ1: Refer to
Supervisor, Chart 27

Chart NJ.

•••• Al •••••••••

...............••

•
•
•

SlBEOJl

•

•...·el·····.····
it

CAUSE!

.. MOYE JDBNAME
•
FROM COMREG

..
•

-

-

..

TO OUTPUT

..

..

•• ••••
•
2 •
••••

·.

•••••••••••••••••
i
,-,
.* .*

*.

Cl

·C2
APPROPRIATE

*. t.

BACKGROUND

*.

JOB

*. *•• ' .-

*.• *YES
••••

• RELOCATE tcw
•
AD[,RE~!. I~
•
ei..H

03

..

..

..

•••••••••••••••••
it

·••••••••••••••••••.•
FOREGROUNDJDBNAME TO
..

OUTPUT AREA

••

*. ••

..

.t.x *.

.'.

fl
PROGRAM
CHECK

F2
'.
.*
*. *. NO
PHAse t .
.* .*NOT
FOIJNO *. NO
*.•*
•••••••••• X..
INDICATOR . t ••••
t.
.*
*. uN .'
*t .• •.**
*. **e2
•• ' .-YES

-YES

it

it

·····Gl··········

PROG

.. SET MESSAGE ..
.. CODe FOR PROG ..

.................
..

..
..

CHECK

I~

$V5LOG/LST

OUTPUT AHEA,

..

..
..

·····G2··········

•
seT UP
•
PHASE NOT
• FOUND MESSAGt:
•
IN OUTPUT
•
AKt:A

••••• Hl··········

:• M~~IA~:
~~~NT :
I N BYTE COUNT •
•
AREA Of &CW •
••••••••••••••••••
•

•

•
•
•
•

.................
••••

•• VESX

=
••••••
SYSLST ••
*.
.*

•

.................
~Y~LOG

"••••

LOGGER

X

•

.·····G3···.······
-.-.-.-.-.-.-.-.
NK.

.................
•

•

WRITE
CANCEL MSG
uN SVSLOG

•
•
•

ONLIST

INTO RIt

•

i

•
~ET UP A
•
• COUNT OF 120 •
• IN BYTE COUNT •

..

AREA. OF tCW

•

x
•• ••••
•
2 •
•••••
•

••3•••••
•• ••••
•

•
•
•

FOR JOB

CONTROL

i
,.,

•

•

••

NO.. SYSL~T
••••• ••• ASSIGNED

••

it

••

Fit

••
••

.*

i

,',

••
FG·.

............

••

••

SYSOOQ

AS~lGNED

•

•• NO X

••••••

it

•••••
• P4K •
• 02·
••
•

·YES

it

• • ••• G4 •••••• • •••

• LOAD ADDRESS
OF 2 TIMES
S.YSLST INTO

•
•
•

.•................•
•
..
•

REG 8

• •••• FS·· •• ••••••
• LOAD RS WITH •
ADDRESS OF
•
•
• LOGICAL UNl T •
•
ADDRES~ Of
•

.................
•

SYSLST

•

.....
••
.
i

·NK •

• 61·

•

STORE ADDRESS •
OF MESSAGE
•

IN DATA
ADDRESS Of
OUTPUT cew

•
•
•

i

•
•

it

.•··.HIt··········
•

•
•
•

•

!IoUBTRACT R8
FROM R4

SIMULATING

FG SYSOOO

•
•

•

•

AS SYSLST
•
•••••••••••••••••

•••••
*NK •

it

....

• •
• 1 •
••••••

it

• • •• ·J2 ••••••••••
•
•

•

•

E5

i

•••••••••••••••••

SET UP

•

it
.....JIt..•.••
··••

•••••••••••••••••

•
:
T~t~i~AYfON :
• IN OUTPUT AREA.
•
OF CC..
•
•

•
•
..

•

·····J3··········
•
•
·••••••••••••••••••.•

it

.····Jl··········

AOOttESS OF
FOREGROUND

INStRT LUB-

• .x ••••••••••••

~~A~uft~~:~fl

•

•
•

X

•

it
• •••• 05 ••••• ••
• SET CAt.lCEl •
•
BIT-ON
•

................. ·...............
.... .... ....

I~ tee.

• PRINT

RESET CATAl •

• UPDATE INDEX •
•
SWITCHES IN •

i

•

GET AND STORE.

.. ADDRESS OF
.. LOGICAL UNI T
•
ADDRESS OF
•

•

.ANO SUPERVISUR.

COMREG
•
•• •••••••••••••

ZERU RS AND

it

·····F3··········
•

···.·C5·it••··4-·

·YES

:x ..•.•••••• :
.... .
.....H3··········
....•
: HZ··········:
·••••••••••••••••••.• •••••••••••••••••••
o 1

••

it

.

....

•

•

•

• SYSOOO 1h RIt

••

~VSLOG

*.

·····04··········

FGJOB

•• NO
••••••

'NO

:x .......... :

NAMED

,',

*.

·NO

••

.. x ..
E3

, .. ove

..

•
•

·YES

·····E1··········
..

,',

•• SVSLOG
•• ASS IGl'iED

- OF FOREGROUND.
..
SAvE AREA
..

Hit

•*

C4

••
•• YES.
•• BACKGROuND ••••••
••
JOB
••

x

•...·01··········
.. AND PUT INTO

•

.... ....
........

it

..

it
,.,

X

TlKE,

.'

GET ACDRESS

•• 3 ••

.....e3···.···.··
··..................

MESSAGE FOR
ILLEGAL SVC SET
UP AT ASSEMBL Y

-NO

..

....
·............

..

AREA

CLEAR REST

OF 1/0 AR~A

•

•

•

LOAD A HEX

•

•
•

100 I~TO R5
AS A LOGICAL

•

FOR FG SYSOOO •

•

UHI T NUM8ER

•
•

..

•••••••••••••••••
it

•••

• Bl.

Appendix H. Detailed Flowcharts

543

Output Cancel Message on SYSLSTi $$BEOJ1; Refer
to Supervisor, Chart 27

Chart NK.

••••••
•••••
••

••••••
•• •4•••••

.....al··········

SETLOGUN

x

:. S~2¥T ~3amL :
• I N OUTPUT eeB •
FROM R5
•
•
UNO ZERO REG 5 •

•••••••••••••••••

•••••el.i ••••••••
• INSERT IN R5 •
•
PUB-POINTER •
'FROM SYSLST LUB'

•

ENTRY TIMES

•

•
B
•
•••••••••••••••••

.*.x

83
*. *.
.*.*
*.
• ••• A PRINTER •••••••••••• X••• ~ACK~~gUND •••
**.••.**
**.••.**

·....

• YES

••••
.
•• 5 '•••••
.

.-.-.-.-.-.-.-.-.
....... ......
·•••••••••••••••••
••••
••••
WRITE
MESSAGE
ON SYSLST

•
•
•

·····01··········
•

LOAD R6

•

: WI TH apORESS

:

•

PUB-TABLE

•

•••••••••••••••••••

TERM

•
•
•

····02·········
...............
X

SVC Z
SSBPS"

•
•

CHART NR

•

NO
I'II_ • • • • • • •

•••
*. *.
e5 ••••••••••
.*81t
IS
••• ••••
LOAD AODRE$S •
.*
DEVICE
*. YES
OF filE
x•.•. A TAPE ••••••••••••
X: p~g~~~r~2=
:•

*..*
*•• *

·....' ..

.YES

·

• 8

BALR14
X
·····C2····
•• ••••
• PRINT
NK.
•
•
-

FGLST

NO

- 6 •••• X.- NJ •
••
• Fit·

X

.*.

TPTYPE

B2
*. *.
IS
•*.*DEVICE
*.

••••••••••••••••••
IN R5
•

.NO

••••

•••• ' .x

TPTYPEl

••

C3

•••

••

.. ..

•
·····e5··········
.·................

DKTVPE

*.

IS..

•• ••••
C". ••••••••••
lOCA
AND
•

•

STORE ~EN!»E

DEVlCE
A TAPE

••••

•• NO,DISK •
•••••••••• X.

...

THE

A
!ty

•

•

•
•

S Of
T 018

EN

•
•
•

•

Ih R5

•

• YES

•
•

D'"

.PRINT

*.••

•

-NO

~K.

!»ENSE FO"-

..

••

•

x

X

•

LOAD ADDRESS

•

X

·••·E2·········

:
•
IR5+R6)
••••••••••••••••••
••

••
••
PRINT
••••••••••••••••
•

x

···.·F2··········
aB¥=nt

: OF

f~'hSI4PU8

·····E3••••••••••
•

STuRE ADDRESS.

•
INTO TAPE
•
OUTPUT CCW
• OATA AODRE~S
FIELD
•

··....-.-..

•••••••••••••••••
• 7

..••.Fl··········
•

GET SYSLST

•

FROM

•

DEVICE TYPE

•

•
•

PUB-ENTRY
•••••••••••••••••••
••

X

:

•

LOa~

S

:

teB INTO Rl

•

••
•
••••••••••••••••••

x

••••• •
••••••
• 4

•

X
······Gz•••••••.•.•
sve

0

EXtP
PRINT A
LINE

•
•
•
•

"'

PROTECTlO~

••••

STH ••••

i

··•..F3··········

•
•
•

PICK UP AND
STLRE
OUTPUT CCW

•

•
•

: ~3¥~GtS clt :
•••••••••••••••••
x
•• ••••
•
s •

·....-

•

STORE

IN

CCIiI

•

X

••••• F". ••••••••••
•

SET SEEK-

•

.................
..... ..........
•

ADDRESS AND

•

•

COUNT FIELtI

•
•

•

AREA

•

•

"'".
SET SEARCH

•

SEARCH AND

•

IN OUTPuT

X

• AOORESSE!» IN

x

•

•
•

X

• •••• HI•••••••••••

••

YES.'
110
'.
•• ••••
COMPLETED . '

:

•

•••••••••••••••••••

.... .'. ....
.... .-..
H2

•

• SEARtHl CC.W'S •

•••••••••••••

•

SET TRA

•

IN TJ

•
•

IN CH
ADO

•

•
•

•

-NO

•
TIel eew
•
•••••••••••••••••

X

••••• JIt••••••••••

X

•••• Jz •••••••••

~XCCrl

:

•••••••••••••••••

:
•

Aa5IE~:TrN

OUTPUT eew

:
•

•••••••••••••••••••••

:•••••••••• x:
x

·:•••••••••••••••.:
···:~'~:~·T~···
LtRRRUM~ER

X
••••• K,. ••••••••••
•

•
:

PICK UP

ADDRESS OF

mSIND~~m

DOS System Control

•

•
:

•••••••••••••••••••
x
•• ••••
•
1 •
•••••
•

544

ES

•

SEEK-ADDRESS

"..

x

X

•

•
..

FilE

....
······E".··········. X..... .•.
·•••••••••••••••••. •....• ....
.••.....• •....• •
•

•
..

X

••

YES.*

SYSLST
•••••
EXTENT
•• FILLED

•

IN HESSAGt:
CtB

x

X

• LOAD ADDRESS •
• OF FIRST BYTE •
• FOR TAPE OUTPUT.

• MESSAGE INTO
R5
•

CCW ADORE!)!.

•• 6 ••

••••• El·· •••• • •••

•

.................
.. .•. .. .-*-.-*-.-.-*-.-.
···.·05··········
·····03···.······
........
... ............
••••••••••••••••• ••••
·.
••
••

••

.111 IS
••
.YES .* TAPE FILE ••
PROTE(.TEIo ._

x

*. ••

.111

·~o

8 •
•• ••••
•

.•

Select Cancel Message and Program Identification
$$BEOJ2; Refer to Supervisor, Chart 28

Chart NL.

......... ••
•• ····1.1
SS8EOJZ
••••••••••••••••
•
CAUSEl

.

• LOAD ADDRESS
-OF CANCEL CODE
• LDgkUP TA8LE
•
lNTO REG 3

S3

•
..
•
•

··....

••

*.

•••••••••••••••••••
.
.
• 1 '
••••
••••' .X

X

••

BG

• •••• 85 ••••••••••
• CLEAR OUTPUT ..
'AREA BY MOV I NG •

•• NO

JOB

••••••

•

·····C3··········
• MOV[
.S TORED

HE •
B.

.TO OUT

•

·•••••••••••••••••.

*.•••••••••••••••••

·STMMT

cooe •

N lOOKUP 1 ASLE-

•

NII-A3
NM-D3

NM-G5

..

'USING MODIFIED'
•
INST AT
•
•
LA8EL HVC
..

•••••••,
••
•

• ••••••••••• *.* ••

x

.-.-.-.-.-.-.-.-.
:t;~gl·······~=:

•

·•....••••.•

* ••
'NO

• 2

·····E1·······.··
X

•

•

:c

•

.'.x

··........'' ...
• 2

.* .*

....
·.....
x
•• 1 ••

*••
·YES

••••

-ZERO REG 4 ANC, •

..

.

.

IN THIS

••
··"'u] •• •••••
.. HIJVE LENGTH.

••••••••••••••

··.··Hl··········

..
..

MVC

feD •

THE SUPVR HAS SWI

&

WHILE THE PUINTER I" THE FG-PI&
INT!
TO THE LOGICAL TRANSIENT SAVE AREA.

X

·.···Jl.·......··

..···J3···.···.••

•

.............•

..

X

INST LA8ELED
MVC

•

•

X

•

• Move M$G CODE •
• TO OUTPUT AREA •

INSERT LENGTH ..

'OF M~G INTO R3 •
ADD 31 8YTES •
:~l~r~ ~~e~~ Tft~:

*

..

•
lGLINE
••••••••••••••••••
•..

x

CA~EI

im-MiM~ nE~aC~¥EAHU J~~

HOVE ADOR •
OF MSG INTO.

•...

....

•

•

•••••••••••••••..

•

.................

• 3 ••
•• ••••
•

SYC 2

SSBPS..
CHART NR

••···H3···••••

X

LA OF fIISCODE •
TABLE IN RS •
ADO RS TO Rit •
TO GIVE AD OR •
OF MSG NEEDED.

LABELED

····F5·········

mic~~~~~" A~RE T~uu~~E8m~l~

X

•

•

'G~

• •••••••••• X •

.................
-IN MSCODE TABLE-

U8PSW

X

•
•

•

.. VALUE' OF H5G •
•
INTO INsr
•
..
LABELED
•

•
INSERT CHAR •
-FROM LC.c..KUP TbL*
*TO INDEX TO HSG*

..

.....F3··········
•

o

:

NAME

·•••••••••••••••••.

.................

••••••

L?~¥OAR?RS~~

.
·"It
•
•••••••••••••••••
X

·····Gl.·•.·•·••·

•

:

•

•

• MOVE NAHE Of ..
.. f~ JOB uno •
.. OUTPUT AREA •
.FROM ~AVE I~EA •

NO

X

•
•
•
•
•

x
·····E5··········

·.···£:3···•••••••
.R4 INDEX TO AR •
•
PHS FCJR FG
•
• ~AVE AREA IOOR •

....•............
Fl
*.
LAST *.
•*.* ENTRY
*.

..

:•••••••••••••••••••••••• x:

X

.LA Of PlaTAa IN •

-SEE IF THIS IS •
END Of TASlE

OUTPUTS

HSG
•
•
•
•••••••••••••••••

.. INDEX 5 BYTES •
• TO NEXT TABLE.
• ENTRY C,",P ru
•

*. *.

•

•

••• •• C5 ••••••••••
"'HOVE ACTUAL "~G.
.TO OUTPUT AREA •

NM-J2

.'.x *. * •

IN TABLE

..:

X

MVC

NH-Hit

NII-Kl

•*.* CODES
*..*YES
.....
EQUAL
.•••
*. *K2 .*
*.
.*
x

*.

IN BLANKS

STARTING AT

~~:~~.~~~~~

:*Olt

-COMPARE CANCEL •

•

..

:•

X

• CODe FROM Pl8 •
.FOR TERMINATED.

01

....•

•

·YES

.....el··········
*PROG WITH

·••••,
.... .'. ....
........

•. 4 ••

x

X

••••• 81·· ••••••••

A

....

•• ••••
•
3 •

•••••••••••••••••
'K2
THE LA$ T ENTRV HAS
A 'CATCH-AlL' FUNCTION
AND GIVES A MSG
SAYING
'UNRECOGNIlf:O
CANCEL-CODE'

·••.••••....••
x
~

Appendix H. Detailed Flowcharts

545

Select I/O Device and Output the Cancel Message
$$BEOJ2: Refer to Supervisor, Chart 28

Chart NM.

•• ••••
•
4 •
•••••
•
FGLST

·••.Al········.

•• LOGGER •..
•••••••••••••••• •

•• ••••
•
1 •

oo.

*oo

oot

C1

.•.x *.
IS

SYSLOG

..

ASS IGNEQ

*oo *oo

*oo

._ ••

NO
.. too ......

*oo ••

·YES

oo_

01

.•.x *oo
ARE

..

• *SYSLOG AND *oo YESX
SYSLST SAME ••••••
too DEVICE
••

*oo ·NO
.-

.-

X

.PRINT

.. SENSE TAPE OR •
• FOR FilE PROT.
•
CONDITION
•

.•.x

·····02··········
.................

03
••
•• TAPE ••
YES ."'CRIVE FlU ••
••••• PROTECTED ••

*RIt NOW HAS AODR*
• OF $YSlST PUB •
.GET PUB DEVICE.
• TYPE FOR CMP •
•
TO IDENTIFY •

.•.x

••

··••••••••..

X

ON SYSLOG

.................
••

••

bG

•• 1110

Joe

••••••

··••••••••x ..
• 4

•

.. ..
........

TPTYPEl

Eit

•••

•

••

••
IS
•• YES
•• SYSLST A
••••••••••••••••••••
••
01 SK
• '"
.NO

···•.F3··········
X

LOAD ADDR
OF eCb INTO
REG 1

X

•

•
•

······G3·.·.·······

••

SVC 0
EXEtUTE
CHANNEL
PROG

•••••••••••••

.LA UF DIB I~ RS.
.INDEX TO SY~L~T.
• OIB CMP tURR •
•
AODR TO E'40 •
.ADDR OF EXTENT.

'••••
.

..
................. ..... ............

• 2

X

RLtCB

X

•
•

..

STORE
APPROPRIATE
ctw
ADDR IN

•
•
•

•

tea FROM

•

•

RS

•

YES.$ .'"

•

••
~

•:.

•• NO

8G

JOB

••••••••••••••••••••

·YES

·····Jl···....

FGJOB

:• OATE
A~~S~~p5ftT~~~.
JCSWl BITS'

••••••••••••••

••

.•.x

•

.... ....
••

K1

••

x
••••• ••
••••• •

• 1

546

J2

•••

x

110

••

••

...... ......
••

IS

•.-.-.-.-.-.-.-..•.·H4··········.
X

••

2~~~t~J~N .:.~~~.

.PRINT

NM •

.•................•
• WRITE MESSAGE.

• ON 110 LlEVleE •

••
•

SYSOOO

••

ASSIGNED

•• NO

••••••

x

:·tD·~~s~~~·ttt-·:

.UNIT ALlOR INTO.
.R5. ADJUST REGS.

:t~ ~~,~g8U~S~¥N:

x •••••••••••••••••
•••••
·NL •
• ES·
x
••
•
•• ••••
•
1 •
•••••
•

DOS System Control

x

•••••
• NL •
• E5·
••
•

••••J3.i
••••••• •
•
sve 7

•

PROB PROG

•

WAIT
•
•••••••••••••••

•

:x ..•.•••••• :

••••K3.i•••••••

•
RETURN
•
• TO ADDR IN LINK.
•
REG 14
•

•••••••••••••••

••

SYSL~T

"'. ••

·NO

·····H5··X•••·•·••
• SET CURADR IN
• SEEK tew HOVE
CtHHRKDD TO
•
.OISK OUTPUT A~

•

••
•

• E5·

•
•

• COUNT 10 FLO

•

.................

x
•••••
·NL ..

"'YES

IS
••
•• SYSLST
•• NO
•• ASS1GNEO
••••••

* •••
• YES

.x

X

••

• SET CNCL BIT.
IN JCSWO

tl3

·NO

X

•

••

.x

• ES·

..
...... ......

x

HI·.

G5

••••• EXTENT FULL ••

·NL •

.... .•. ....
.... ....

X

·····FS········.·
.................

OK TYPE

••••• FIt •• •••• •• • •
.LA OF TAP[ OU1-•
.PUT AREA IN RS •
• ST IT IN t.tWTP •
• LOAD ADDR OF •
•
CCWTP IN R5 •

. ................
.
•••••••••••••••••
....
··.......
.·.··G4*.··•••••·

x

..
..
..

••

•

•

•• 2 ••
••••• •

•·..·Gl·······.··
.. MOVE COUNT
.. Of 120 BYTES
.. INTO CeWlG

PRINT

•

....

:x .•........ :
X

x

04

·YES

·.····E3·········
...............•
•

• oATA AUOR. LOAC.
• AOOR OF CtWSKP •
•
INTO REG 5
•

..

.. .•. ..
.. .........'"

TPIYPE

••

•

: •••••••••••••••••••••••• X~

................. ·

.. WRITE MESSAGE ..

•••••••••••••••••••

• 3

.•

PRiNT

•••• ·F2 ••••••••••
• USE A BLNK BYTE.
• AODR· F{JR tCWSKP.

NM-

··....••••..

·NO

••

x

·YES

X

ONLlST

*.

•••••
• E5·
•••

• 3

..

.. .. .. ..

x

•• SY~LST
•• NO
•• A PRINTER ••••••

·····Fl··········
*-*-*-*-.-.-.-*-.

f.4Jo1*

................. .................
*

E2

....... .......

•

.....e3··········
.-.-.-.-.-.-.-.-.

·····C2···*··*··*
*lfIIDEX INTO PUB.
TBl lA OF PUb •
• Tel IN Rb ACD •
• RS+R6 INTO K4 •

........ ........

AOOR ..
IN RS_
IN tCSt
AODR ..
I A RS ..

-PRINT

IN ~EN~E CC.h

SET CCW AOLJK
INTO ceB

*

.MUll RS BY 8 TO.

X

-LOAD
*GF S
*5 TOR
-SET
• IN C

·~3··········
*'
•

*'*'

·Nl •

·····el··········

.

"Nl •
• ES·

* SET RtV AO[)K •
.FOR SEr-.~E DATA •

..

X

*oo

*oo

*oo

51 LOGUr.,lT

X

*oo

••••••

X

*ADLtR IN ttEl SET •
• POINTER FROM •
• lUB TO PUEiTA6 •
•
I'" KEG 5
•

.................

•• NO

···.
.................

·····82··········
..................
..

••

SYSLST

A TAPE DR

·YES

X

SETLOGUN

•••

;.

·.....

.. THEN STORE IT ...

IN tCWLG

X

A3

••

••

LOGGER
X
••• •• 81·· ••••••••
• LO LUBT AS AOOR ..
• IN R4 LO OUTPUT• AREA ADOR IN RS..

................ .....
..

•

x

:·::~d~:·:~~·~~·:

.BY 1. SET THIS.
.'DoR IN SEARCH.

•••••••••••••••••••
•

eeNS

•

X
•••••K5····
••••••
•
•
•
•
•

ST SEARCH ttN
ADORS iN TlC
CCWS SET DATA
AODR IN MRITE
CXO CtN

•
•
•
•
•

.................
x

••••••
•
z ••
•••••

Prepare Information About Cancel Cause $$BILSVC;
Refer to Supervisor, Chart 28

Chart NN.

"3

"5

REG 6 CONTAINS

·····A1·••••••••.
'"

•

...............
IS81LSVC
-A5

kEG 10 AND REG 11 ARE
HHHALIZEO BY A

2X I SYSL!lr LOGICAL
UNIT ~UI1BER I

•
•

••

....
....

•

1

PREVluUS PHA$E TO BE

....
·.....

....
•....•

*•

**
*

*

*

b

•

.·................
•
•

• COMMUNICATION·

• 2

*o..o.

Pi.FOR!lVC

C2

•

.*o. ••

... PHASE .o.
•• NOT FUIJNO .o. YE!I

*o.

••

*..*
.o. ••
IRtG 0=0)

••

·····D2 •• ·~······

··..·El··········

·····E2··········

"
"
"

SE T UP REG 2
WITH AOORESS
OF THE PRINT

X

"
"
"

•
LOAD THE
•
•
AODRI:!>S OF
..
..
THE ILLI:GAL
•
.S'l(. 1!-..~HW(.TILN.
• IN WUkK. AKEA •

.................

*SUBRQUT 1l\lE FOR "

" BRAIIICt1 C.I" HEe. "

X

X

" SET UP REG 3
'" WI Ttt AODRESS

"
"

'"

"

•
•
•
•
•

UNP ACt< THE
AOOKE:SS TO
PREPAkE fOR
PRiNT IN hEX
AND TRAN~LATE

•
•
•

·..................

.................

x

.....F2.·········

'"

OF THE DUMP

SUBROUT INE

•

'

LOAD THE

,.

"
"

AOORE~S (JF

sTARTING

•
"

INH) REG
7

"
•

Pt1A~[

GET THE JOB

"

NAME FROM

'"

•

THE LOGICAL
TRANSIENT
SAve AREA

sn LENGTH

·........x .
•

•

.................
"
'"
'"

3

•

*

"
•
"

o 2

x

•• ••••
•
1
•

....

0

0

* x

.A£)UKl~S IN CC.W
SYSlOG/L~T

04

•

D.

*NO

•••·.E4.···•...··

FGJO~

X

LOAD BASE

LUB- r ABLE

•

•

INTO KEG 4

•

'"

•

•

*

•
..

'.2
$EE

••

...

ADOKESS OF
FORE&RO""ND
IN R4

~Y~OUO

SET LINK •
SWIT(.H IN
•

..............

•
•

CClHMRE Go AS
•
CANCEL BIr
•
FOk JOB
TRL*

e

F5

.'.x .o.

.. .... ..
.. ...
··........'' ....
.*.
.'.
·····G5·······•.
.. .. .... .. .. .... .....x .................
....
!lYSLOG

UNI T

• .. ASSIGNED

.*

*.

.o.

f'.lO..

NO
...... ..

.. ..... o. •••

••

••

IS

SYSL~T

••

•

=

SYSLST

••

G4

.oo

.* ••••

x

o

•

•

••••• H3···X •••••••

•
STORE THE
•
• SYSLOG LOGICAL.
•
UNIT NUM6ER
•

IN OUTPUT CCB •

ccw IN I,.Cb

....•
••
·.....
.<

•

•

b

SY!loOOO
•
•• ASSIGNED ••

.

NO X

*o. ... o.

·YES

•

5

••

••

oo.

x

SETLO;;W'II

••

.•
*.
.. *FORI:GROJNO *.

.
YI:SX

*•••
·NO

o

•

x

...

.* SYSLOC, *. ••
...

*. ...

.oo

o. •

*Yi:S

x

G3

••

ASSIGNED

.YES

*

NOTE OF NL-G4.

*

•
•
•
•

.'. ••

.<

•

.<

•

•
•

x

f3

• STORE ADORe !IS •
• OF THE SYSLOG •
• ERROR MESSAGE •

•

STnkE LUB

.................

•••• *••••••••••• *

.. ..

·····E5·······

X

.Z:RiJ ki:G 5 ANI.; •

•

ADDRESS Of

.. •••• 05 •••••• ..,

•
RESET JOB •
*.•••••••
YES
.C TRL SWITCH I. •••
*..• bACKGROUND
o. •• X. COMM REG FeR •
JOE-.*
•
-,SliC UPDATE
•
.o...
• IN[" A"ID CATAl
*•• *
••••••••••••••

·····E3····.·····
•

• *•••

....o.

HOR
•••
*•••• *•••••••••

•

0

<

..··*03···.······

·····J3··········
·..................

x
.....
.....

•

• CUAR fo'f:SSAGE •
•
AkEA AND
•
.R:lI... .:AT~ OATA- •

: ................!

.'.x

.*oo -YES
.-

.....

•

•

Jl
*.
.*
*oo too NO
oo*. tooBACKGROUND
JOB
._ .. * .......

*oo

• 3

•

.................

X

"

•

•
•
MES.:)AGE TO
..
.PRhH ARfA AND.

NAME"

"

FOR PkINTlNG

.................

·....' ..

RELLe

X

'"
StT A BYTE
•
•
• COUNT OF 120
•
11'1 ERRlJR
•
.. MESSAGE COilS.

IssuED·

X

•....H1··········

OVlAY

•

•

·····G2··········

.................
-THE

•

• MovE ILLEGAL
•
~VC l.ALL

.···.C4••••••••.•

GNLIST

•

.•••••••••••••••••
.... . .

• AND TRA.NSLATL •

X

"
•

UNPACK THE
ILLEGAL SVC

.................

·····Gl·*········
"
'"

•

•

.................
LOAD THE
ADDRESS OF

•

•

• CuDE Tu PREPARE.

" THE PIB-TABLE "
"
INTO REG 9
"

"
"

b!::T PHASE

X

·····Fl··········
"

•

..

·····01··········
.................
X

ERROR HESSAGt. •
uN SYSLOG
•

:o.o. •••••• o.o. ... o.o. •• o..o.o..o. •• x:
• •• "(.3 ••••••••••

./',IAME. FOR WHIC" •
........... X.
ThE SVC. WAS •

• tW

NC •

.PRI NT

.................
....

··.....' .

0

.•.••
84··.·X .••··•
.-.-.-.-.-.-.-.-.

X

• GET BACKGROUND •
•
JOb NA"'E
•
•
FROM THE
•
REGION

*

• 4

.....82··········
•

USED AS BA~E REGIS TEK.:t
FOR PIS-OSECT AND
SUPVR C.OHREG OSeeT
RESPECTIVELY.

•• STuRE
u,..n

LUGI:'AL

•

NUMBER
OF SYSL.!>T 1"

•

ZeRO REG 5

•

cce

AND

*
•
*

•

,..

·NP •

*
*

• HI·
• 0
o

X

·····H5.·.·.·.••.
X

••••• H4 ••• • ••• •••
•
SUb REG 8
•
•
FROM REt, 4
•
•
SIMULATING
•
•
SYSLST AS
•

•

GET SY$lST

•

•

PUB- TABLE

•

.A3.

.................

.....•...........

··.·.J4··········
.................

·····J5··········
.................

*FGSYSOOO

X

•
•
•
•
•

LOAD HEX 100
INTO REG 5 AS
LObI CAL UNIT
f>luHflER fuR
FGSYSOOO

x
•• ••••
•
• 5 ••

....

•
•
•
•
•

• DI SPLACEHENT •
• IN REG 5 FROM •
.SYSLST PuB-PNTR.

X

•
•
•
•

o

LOAU REG 6
WITH
PUB-TA8LE
ADDRESS

•
•
•
•

•

.....x
••
.
·NP •
• AI·

Appendix H. Detailed Flowcharts

547

Select I/O Device and Prepare to Output a Message
$$BILSVCi Refer to Supervisor, Chart 28

Chart NP.

·....
.....
: 3

'B2

REG 5 + REG 6
EQUALS REG 4

X

x

: •••• 85 ........... :

*****81*********.. LOAD ADDRESS

...

OF SVSlST

PUB ENTR Y
INTO REG 4
*82

if

..

..

•
•
:

X

·····Cl·. ········
GET SYSLST

FROM
PUB TABLE

..

PRINTER

*..*
* • .o*

JOB

'Itt

*..*

*•

X

... LOAD CARRIAGE ...
CONTROL ccw ...
ADDRESS
INTO REG 1

••• *

...

5

...

X

RLCCB

.. STORE MESSAGE ...
... CCW ADDRESS •

IN

eee

FROM REG 1

*

FGLST

....
••

..

E2

.*

DISK.."

*..o*
* • .o*

.o*

-NO

.'.x

·· .

*.

..

•• NO
••••••

x

X

·····E3···.···.··
•
•
•
•

LOAD CCWIS
CONTAINING
TAPE ERROR
MESSAGE

•

••

E4

.' .*.

*.

.*

.YES

• 4

!~!~.~~~.!

- 4

-

X

•

X

X

••• ·.F2··········
• LOAD ADDRESS
•
•
Of FILE
•
•
PROTECTION
SENS E CCN
•
•
I NTO REG 5
•

•

LOAD ADDRESS
OF THE
cewls IN
REG 1

•

•
•
:

STORE
seEK ADDRESS
IN CCW

LOAD OUTPUT
CCN ADDRESS
INTO REG 1

•
•
:

•
...

.................
x

.. .'.
-. .....-.. ...
- .
....
NOP

IS
••
YES..
SYSLST
••
••. *. •• FILLED
EXTENT
••
••

.. ...... ....x : ••
••• : ... ~.. • • •••• NO··
· .
......
· .**. . f3·*········
-·····F4··········.................
.................
x
·
.!.••.••..
·......
·····G2··········
.................
·...................
TAPE

•
•
:

ADDRESS IN
REG 5

'
.
••••

• 2

FGTAPE··

•
...
:

: •••• 05 ............. :

...
•••••••••••••••••

-NO

SET DATA
ADDRESS IN
OUTPUT CCN

x

X

OKTVPE

01·· .. *.
TPTYPE 02·-·*.
TPTYPEl 03·-·*.
• •••• 04 ••••••••••
IS
*.
.*
*.
.*
*.
... LOCATE AND •
*. N O . *
YES
.. "
SY5L5T
*. YES
... STORE SYSLST
..
A
•••••••••• X•• BACKGROUND .o* •••••••• X..
.* •...•... x. OIB-ENTRY ...

·····El··········
....
.' .
......
••·.·Fl.·•.······
·.................
...

•

DEVICE

• YES

...

•
•
:

··......

X

.*

·
.................
••• •• C5 •••••• • •••

..

• 6

•*
*.
*.

X

LA

41-

DEVICE TYPE

LOAD TRANSFER •
ADDRESSES IN •
TIC CCW'S
:

.................

..

** ................

...

:

E5

YES ••
•••••

.~

: 5

••

SNITCH
SET

"'. ••

••

-NO

:

··. . .F5·······
................
X

•
•
•
•
•

SET NOP
•
SWI TCH FOR
•
8RANCHING
•
SECOND TIME.
THROUGH·

•• *.

X

X

... ····G1· ... ••••••• ...

:!~!~~.-.-.-.-~~:

·....................
· . .. .
....
.
... ERROR ME SSAGE ..
•
ON SYSLST
*

STORE SENSE
CCN ADDRESS
IN MESSAGE
cea

•

MVC •••••
•

•

:

•

A

c~

EK-·

AND.

OUT~5~D

AREA

:
•

...
••

• G4'"

••• ** ••••••• *.* ••

. ···J1·········
X

SVC2
$$aDUMP
CHART NV

...................

...
...
...

X

X

·····H2·*········

••• ... ·H4·· ••••••••

X

·····GS··········
• STORE OUTPUT
•
CCW ADDRESS
•
•
•
I NTO OUTPUT
•
:CCB FROM REG 1 :

.................
.....H5··········
...
X

··.....................

: •• ~~:~;~.2i.! •• :

.................

.'.x *.

·····J4···.•.....

·····JS·.········

:~~!~!4-.-.-.-~~:

•

•
•
...
•

SENSE DATA

•*
••

J2

.. ......

•
•
•
•

x

·· ..
x
....
. .
- .
***.

• 2

•

4

DOS System Control

•

SET SEARCHFIELD
BY REDUCING
THE RECORD

•
•
•
...

X

IS·•
TAPE
•• NO
*.
FI LE
••••••
•• PROTECTED ....
·YES

548

•

.... X •••• 4

.NN

TERM
X
....... H1········· ...
• LOAD ADDRESS •
•
OF $$aDUMP
•
TRAN 51 ENT
•
•
:
IN REG 1
:

•

•
•
•

• 5

•

SET SEARCH
ADDRESSES IN
SEARCH. AND
SEARCH1 CCW' S

•
...
•
•

·.................

·....
~

: 3

:

:!~!~!.- -.-.-~~:

•
:

ERROR MESSAGE •
ON SYSLST
:

X

•
•
•
•

MODI FY OUTPUT
AREA POINTER
AT LABELS LA
AND MYC FOR

•
•
•
...

:~~~.~!~~.~~!~!.:

··........
.~

• 6

•

output Message on Selected I/O Device $$BILSVCi
Refer to Supervisor. Chart 28

Chart NQ.

·S3·········.•
·•...................
..

PRINT

..

.····e3··········
X

PRINT

·..................
.. LOAD ALIORESS

,.

..

uF eee

..

..

INTO Kl:G 1

..

.....·D3···········
X

WR.ITE
A

.............
LlhE

............ .x:x
.'. ••
E3
.. t

.. NO .. "

...... X*.

110

*•

r.OMPLETEu

*. •.

.*

* •.
*
·YES

*•

'I- .*

····F3·········
...............
i

..
EX 1 T TO
..
.. ADGRESS IN
..
.. LINK REGISTER ..

Appendix H. Detailed Flowcharts

549

Chart NR.

o

••••Al •••••••••

o

o

Prepare Canceled Program's PSW for Output Message
and PIOCS Subroutine $$BPSW; Refer to Supervisor,
Chart 27

"BPSII

•••••••••••••••

0
0

0

••••

o
o 1

....

o

•••••
sl.i••••••••
o
LOAO ADDRESS

0
:

O~N~ABR~aB%E

:

o

0

o

0

82

•••••

o
o 2
o

0
0

0

.0.x *.

83

........

,0
0

-SAVE AREA FROM •

• LOGICAL TRANS.

•
BUCKET
•
•••••••••••••••••

•• •• As~7A~EO ••••••• :

•'

X

••••• 01 •••••• • •••
•
UNPACK
•
•
USERS PSW
•
•
INTO filSG
•
•
AREA
•

•••••••••••••••••••

SYSLOG

..El·······

o
o 3

.....oz·.·.··.···

o LOAD LOGICAL
o UNIT ADDRESS
OF SVSLOG
•

*
•

o

•

DATA FaR

• PRINTING

•••••••••••

••••

:

•

:

1NTO OUTPUT
tCB

•

•

0

•••••••••••••••••

0

i
..-*-.-.-.-.-.-.-.
....fZ··········
oPRINT

.....Gl··········
:

o

X

b~AeuaO¥:m

*

INTO REG 4

:
0
0

•
0
•••••••••••••••••

•••••
HI.! ••••••••
o STFRE A02RESS 0
:
*

°IN~ES~An

ADDR~SS

OF
OUTPUT CCII

.. ..
........
E3

NO ••

.0 •

••

IS
••
•••••
SYSLST
••
..ASSIGNED ••

x
•••••
·NS •

'YES

•••••••••••••••••

....

•o 3
ONllST
o

:o

.
.X

MOVE 120

cA~~~ ll~~

OF MESSAGE

0

:0

••••••••••••••••••
CCW
•
x
o •••• 0
o 2
o

••••

0
0

:
0

o
•

GET SYSLST

0

PUB TABLE

•

550

(
•....fS········· •
•••••••••••••••••

•

PRINT

•

0

DOS System Control

o LOAD ADORE..

INV~ ~~8

:
o

1

•
•

:

•

•••••••••••••••••

,

••...H3····•• ·•••
X

o

••••••H'.!•••••••••

0

o LOAD REG 6
o IIITH ADDRESS
o OF PUB TABLE

o

o

0
0
0

o

0

•••••••••••••••••

•••••••••••••

••••••••••• xi
.0. o.
•

:.~Ro:·

••

*.

:
0

0

o

•••••••••••••••••

0

0

X
·····G5··········

PRINT

OIN SYSLST LUBI 0

0

•••••••••••••••••
x
••••
••••

.................
NUMBER FOR
SVSOOO

:US&~I~O~~p~f&5:

·····Jt·i........
o
o 1
o

•

•
•
•

•
•

o.
••••
o
.

o
0
•••••••••••••••••

o
ST RE CCII
o AODR is INTO
:
PRiNTI~2RA
o
LINE

• LOAD HEX 100

• LOGICAL UNIT

• I NTO REG 5 AS •

• STORE LOGICAL 0
o UNIT NO OF 0
* SYSLST iNTO •

X
··.·.G3····.·
•.··

SYSLOG

AS

X
·····£4······.··.

SET~~~~~F3.!••••••••

·····Gz··.··.····

....

•

~~~L~?

..x .............•............

: Y~~GU1E~C~ :
•••••••••••••••••

•

ON

SlH~LATES

••••••••••••••

0

•

*

LOGGER

NRO

o PRINT MESSAGE 0

·DS
REG4-REG8

:··.··03····.··
s"IiE~ IN ••
:• FOR
c~2~~EG8t~ ••
Joe CTRL.

o •
o

X

.YES

i

• E1·

•••••• FI •• ••••• ••••
:• "O¥~ AREA
~O'~O~E :
o
••
•••••••••••••••••

i

•••••
••
o

i

S~~V~ ~3m~L

o

••

••

NO •• FOREGROUNO ••
•• •••
SYSOOO
••
·.AS~IG"ED ••

• El·

•••• ·E2· •• •••••••

•
•

x

.. .'. ..
.. ......

.NS •

i
•

SX~D U~~~I~

••••••••••••••

TA8~ES¢28~~SS
INTO REG 4
•

Cit

RESET JOB •

0
0

•••••••••••••••••

:

•

'CTRL SIIITCH INo
• COHMREG FOR •

•
•

INTO REG 5

.................:

X

•

••

X

X

•• ~~:U~ltIS
•••
•
INTO HEX

• •••• 84••••••••••

.ZERO REG 5 AND •
•
STORE LU8
•

X:

· .••.C3·······

o. YESX

°NO

•

.. ..

FGJOB
•• NO

·YES

••

•• SVSLST

i
.*.
••

••••

••••

.0.
..
.. .. . .... .•.....
.... ••••x
t2

•

••• ~ACK~aguND ••••••••••••

°YES

o

•

••

NO

x

X

••••• Cl ••••••••••

•

••••

IS
*. *.
• * . *SYSLDG

•••••••••••••••••

• INCREMENT REG
*TO GET PNTR TO

(

J5

*.

........

CDMJ(STED

0:0

••

• YE!

..
i..
ONS 0
°oBlo

o

i
•·..taR12·········
MUTI
lilll Wu :

:•

.~

........ ....
0

\
Select I/O Device and Prepare to Output a Message
$$BPSW; Refer to Supervisor r Chart 27

Chart NS.

....

_

*NR •
• J3*

o •

•

·····SI.·.·······
·..................
i

•

GET SYSLST

•

•

DEVICE TYPE

•

•

PUB TABLE

Cl

....
·.....

•

FRO,",

•

III

.*.x *.

o

•

TPTYPE

C2

.*. *.

TPTYPEI

C3

•

I

•

••••

.*.x *.

• •••• CI•••••••••••

•

••••

·····01··········
.................
.... ....

DALRl"-

X

-PRINT

•
•

ON
SVSlST

•
•

• 3

*oo •••• *

•

··.......... .........
.

·····El··········
•••

X

LOAD ADDRESS
OF ssaOUMP

*

•
•

.................
•

INTO REG 1

•

•

0

i

F';LST

NR-

•• -.-*-.-*-*-*-*-*
MESSAGE
*

TERH

.. .*. .. ·····03·*········
........ ....
·.

o.

02

*..*
•.

i

••

TAPE

LOAD FIRST
BYTE FOR
..
TAPE OUTPUT
..
l'HO UAT,\.
.AODKE~S IN cew

i

....

• 3

0

•

*

.................

PICK UP
CCw ADDRE!J.!J.
AND LOAD
INTO REG 5

..

·

..••Fl·········

•

FETCH

ssaOUHP

CHART NV

•••••••••••••••

•

.•·.·F2····•••••·

STH ••••

• •••• C5··········

•
•

•

•

STORE SENSE

•

CCW ADDRESS
IN OUTPUT

•
•
•

•

.................
•

•

cea

•

lOCATE
SY~LST
OJ B-ENTRY
I NTu !lEG 5

•

•
•

•
•

•

•
•

•

*••••••••••*
••••••
•

0

•
..

i

•
•

•
PUT ADORE!J.!J.
OF FIRST
•
• CCN IN C.HAl'1I
•
INTO Rt:G I)

•

•
•
•

..

..
.. ..
.. .. ....
·.....
E,,"

••
..o

.'.i

o

•••• •
5
••••

*

••

... YES

SYSLST

EXTENT
•• FILLEL
..o

••

0

••••• .o

iC

••

'Nu

'••••
.

STORE CCW
ADDRESS INTO
OUTPUT cea

..

i

•

* .X

seT DATA

ADDRESS IN
OUTPUT CC"

·····05··········
.•................•

iC

•
•
•

•

.·................
•

•
•

·····04··········
·..................

•

·····F3···.······
•
*

i

i

•

•

·····E3··········
.·...............
.... . .
..
..
-

•
•
•
•
•

• 5

•

•
•

i

··*··E2··*·······
• LOAD ADDRESS
•
OF FILE
•
PROTECHON
•
SENSk CCW
•
INTO REG 5

•

*••• * ••••••••••• ...-

i

·YES

*NR-C4
NR-E3

..
•

*.••••••
NO
.*

•

o

:

• 2

0

0

i

DKTYPE

.*
*. Nu
.*
*. YES
*. *. YES
•• LOCATE
AND
•
.* .* SYSLST
STORE THE
•
*.•* PRINTER *............
x••.* BACKGROUtiD *.••••••••••
X..
;;
.*oo ........ Xt
LlIB TABLE
•
*. *.
.*
*.
JOB
.*
*.
DISK.*
• ADDRESS INTO •
...
**.••.**
*oo.*
•
MEG 5
•
*oo .*
* •• *
•••••••••••••••••
-YES
*NO
."'0

·....,.... .

....

o 4
o

•

• 3

•

•

0

·····F4··········
.................
i

:

A~5IE~~E~N

:

• ecw AND SET •
.COUNT FIELD I~ •
•
OUTPUT AREA
•

i

•••••
• 2 •
••••

·.
o

G2··········
..••.•
-.-.-.-.-*-*-.-.
i

• PRINT

NR.

·..................
•

SENSE

•

•

INFO

...

••

••

H2

.'.i
IS

•

••

TAPE

••

...

ONlJ

• 1

o

••••

0
0

•

•

•
•
•
•

.................
•

SET SEARCH

.. ADDRESSES IN

i

• 3

i

•

SET SEARCH

····.H4··········

•• YES

.....
·
.... ·.....

• .o

i

•

• FIEU, IN c.cw
.. BY REDUt ING
.. THE RECORD
NUMBER ay 1
•

i

••

FILE
...... .
·.PROTECTEO.·

*.

•.•.•G4.·····.···

•

..

.................
•

SEARCH AND

• SEARCHI CCWS

o

•

•

0

•

·····J4··········
iC

•

•
•

•

LOAD

•

TRANSFER

•

ADDREsses

IN TIC CCWS

•

•

•••••••••••••••••
x
o••••
•

0

......
• 4

0

•

Appendix H. Detailed Flowcharts

551

Prepare Information for Message about PC Cancel
and Select I/O Device $$BPCHK; Refer to
Supervisor, Chart 28

Chart NT.

.....
-•....
•
- 1

•

- 2

·•................• .................
..

SSBPCHK

..

·....01··········
i

START
..

GET ADQR Of

A3

····.A2··········

..

-LOGICAL TRANS- ..
.. lENT BUCKET ..
-FROM PIS TABLE ..

•
•
.................

:mOlm~T8lotE:

• fROM OLD PSW •
• OoUBLE CODE TO •
• INOEX "SG TABLE.

i

·····B2··········

.GET MSG LENGTH ..
.AND DISPLACEMNT.

.................

'~¥y~ l~~A~Of~~E:

••

••

Xx

••••

••

.... ....
SYSLOG

••••••

i

.................
.. FIELD CALLED
..
TXINAM

..
..

X

·····C2··········
• BLANK AREA OF •
• 91 BYTES FOR •
•
• OUTPUT "SG
• ASSEMBLY. WIPES •
.oUT PREY INSTS •

••

BG
PROGRAM

i

••

.*

.YES

•••• NU •

.-.

•

i

i

B3
••
.·SYSLOG ••
•
• • AND SYSLS T •• YESX
•• THE SAME
••••••

........

•• DEVICE

YES..
•• •••

_ i7

X

.................

UF •
.................
-

X

i

••

_

...

••

-NO

·····C5··········
.-................X

• STORE OAT A ADUR.
.OF TPLINE INfO.
•
CCWTP VIA
..
•
REGI
..

.....
--.

•

*.

IS

DI SK

--....--

••••

• K2·

SYSLST

.oO A

-....-.
- -

STORE SYSLOG •
SYH UNIT ADOR •

•••

B5

NU •

•
WRITE M~G
•
• ON 1/0 DEVICE •

·····C3··········
AND AOOR
•
• CCWLG IN eeB

TPTYPEl

.PRINT

oO.

-NO

•
•

•••

AS

,"'0..
•• •••

• NU •

• 4

••
el·JOB
••••NAHE
•••••..
.. •••
MOVE
-FROM PROB PROG ..
.. SAVE AREA TO ..

TPTYPE

• •••• A4 ••••••••••
• LOAC AOOR Of •
APPROPRIATE.
*TO OEV IN REG 1.
.STORe ceN ADOR •
•
IN CCB
•

•• NO

•• ASSIGNED ••

-i

.. ....
..
................. ..... ............
• F2·
· - --- X····
....-.-.-*-.-.-.-.-.
·.84··········
.. ..
.................
-....
- .... ........

3

.YES

• APPROPRIATE MSG.

....

• •
• 6 •••• -

·NU •
• G1·

-

:

i

•• •• Al •••••••••

.....
--......
-.-.
•••• _.
••••
i
.. .-. .. :.RLCCS.CC'•••••"

•NU-K2
NU-F2·• • ••

.

• x •••••••••••

01

.-.i *oo

oo_
BG
too
• _ PROGRAM
*oo NO
-.CAUSE OF PROG.- .....

*oo

CHECK

*. *•• - .-

.-

·YES

• •••• D2.··· ••••••

• BLANK AREA OF
• PREY USED TBl
.FOR USE AS 2ND
• OUTPUT "SG
•
AREA

•
•
•
•
•

.................

TERM
X
••• ··04 ••••• •••••
• LOAD AOOR IN •

••• 03··········
.••-.-.-.-.-.-.-.-.
• PRINT

NU.

•
•

X
•.STORE
•••• D5.·
••• •ADOR.
•• ••
DATA
e OF TPLN INTU •
.CCWTAP VIA kEGlt
• LOAD AOOR Lf •
• CCwTP IN REGI •

.................
....
--....--

•
•

·.................-

-.................• USING SYSLOG
•
PRINT NSG

REb 1 UF
NAME

•

•

•

$$8DUHP

•

x

:x ............ :

i

i

·····El··········

·····E2··········

..

:.~~¥.~~~~,.~~¥.:

.. OVERLAY NAME ..
-IN TXTNAH WITH ..

.................
.. NAME FROM JOB ..
.. STATEMENT NOW"

IN COMREG

..

ONU ST

• USE EXEC INST •

.TO MOVE M5G TO •
•
OUTPUT AREA •
• REGS8 AND b HAO •

••
••

.. .
.........
E3

.-.x .

*.

•• NO
...... .

••

•
•
•

x

.YES

••••
-·....
-_ 5

:x ................... :

•.•..Fl··········

NOraG

X

X

..

····.F2········.·
• PT REG 8 TO OUT.

.................

.................

..

GET LAST It

.. BYTES OF OLD

..

.. PSW FROM SAVE ..
.. AREA AND PUT
..

.. INTO REGS 1-8 ..

:P~~ A~~AtE~~~~x:

•
MOVE NEXT
•
..pART OF "SG IN •

.....Gl··········
i

ISOLATE IlC
DOUBLE [NST

·....F3··········
X

BIT •

.SET

•

IN JCSWO

.................
.. LNG TO CHANGE •
• HALFWQS TO BYTE.

·VES

••••• H1·· ••••• • ••

• SUB REG 8 FRO'"
• REG 7 TO GET
•
ACTUAL INST
ADDR WHICH
•
• CAUSED INTRPT

•
•
•
•
•

···.·H2··········
X

• LOAD DATA ADOR
.LABELED LSLlNE
-INTO CeNLG AND
•
CCWLS VIA
•
REG 1

•
•

••••

.•.•.H3·.········

SETLOGUN

.................

i

·····J2··········

i

·····J1··········
• UNPK INS T ADDR •
• PUT RESULT IN •

• AREA NAMED LeN ••

•

WILL BECOME

•

PART OF MSG •
•
•••••••••••••••••

•.•..K1··········
i

i

.PUT APPROPRIATE.
• OATA ADDRS INTO-

:

•••••••••••••••••

SYSLST ENTRY •
•- ••••••••••••••••

:CC~~~tOG CX~~KP

•

CCWlST

_

i

'SHIFT REG 7 TO • I SOLUE CONO •

··.•.K2··········

• PRINT OCML STOR.
•
IN MSG AREA •

:TEtll~stl~kgG

• CODE CHANGE TO •

•••••••••••••••••

.- .i

••••
• 1 •
••••

552

• LOAD UJ8 TABLE.
• ADDR IN REG 0\ •

.LOC SY SLOG AHD •

:

•••••••••••••••••

-

i

.

••••
2 •
•- ••••
•

DOS System Control

-••••.
••• ••
i

.. .-. ..
........
•••••
•
3 •
•• ••••
•

ASSIGNED

-. .

.. eCB. SIMULATE ..
•
•

•••••••••••••••••

i

.

-••••••
• 6

••••

•

-

.018 FOR EXTENT •
CONDITION.

- -

• STORE LOGICAL •
• UNJT ADOR IN •

·

:

.FULL
•••• •••••••••••••••••
-•••• i
x

·····Jit··········
x
••••
8 •
•• ••••
•

.COMPARE CuRRENT •

:A~g~RI=II~sf~Y

••••••

.•

$YSOOD AS
SYSLST

..

i
.·.·.H5••••••••••

i

•
•

LOAD ADOR (IF

•••••••••••••••••

•• NO

.YES

.:. o~~t~~T A .:.~~ ••
·YES

SYSODO

*.

•• PRINTER ••

•

i

••

••

i

.... Hit.'.......
....

1 •• X.

.01B INTO REG 5 •
.INDEX 12 BYTES.
•
TO POINT TO •
•
SYSlST DIB
•

.................
••

i

K3

•

DKTYPE
X
• •••• GS.· ••• • .....

• ZERO REG 5 PT •
.TD 1ST PROG LiJB.
POINTER •
•
TO GET LUB
•
• ENTRY OF SYSOOO •

••••

:c:tcJ~~:·;:;Le·:

• OSPLT IN REG 5 •
.ADO PUBlAS AODR •
• IN REG 6. GET _

-

.00UUlE

-STORE SVM UNIT.
.ADDR FOR SYSLST.
.IN tte ZERO REG.
• 5 AND LOAD IN •
.PU8 ENTRY PNTR -

.................
•
•

·HU •

-

·····G4 ••••••••••

X

.................

-

.·.....B2·.
....
--....-.
--.

X

FGJOB

•• NO
...... ..

*•••

• 8

i

·

- 5

••

SVSLST
IGHEO

A~S

-

•

•••
-•....
-

•

...... ......
....-..
-·....
-..
••

.-.i

- 3

•
•

-

.................
••

..
..

SVC 2
SSBDUHP
CHART NY

.RESET CATAL AND •
• SUPVR UPDATE •
• 81 TS IN JCSW1 •
CANCEL

G3

*SHI FT REG 8 TO ..

..
..

.····E4·········
..............
i

••

8G
PROGRAM

.. .-. ...:•
........
J5

••

!~!.:. ~~'~~f

•• FILLED

i

•••••
•••
•••••••

••

-NO

i
:·~;~~i·~~:::=;·:

••

•
2
•
••••••••••••••••••
•
•

ADOIt TFRi"
SYSL
0 8

INT SE K
C WOK

x
•·NU••••
•
• &1.
•••

•

Set Up for I/O ~nd. ~utput the Message $$BPCBKi
Refer to Supervisor, Chart 28

Chart NO.

••••••

1 •
•• ••••
•

X

•....81·····.··.·
Ii

AS tCHHRKDU

PRI NT

••
•
••

MODifY INST.
• AT LA SO DKLN.
• ADDR WILL LOAC •
• IN CC" AS NEW.

.................•

..............
•

•••••••••••••••••

•

i
• •••• s,. ••••••••••
••
LOAD tca

Ii

•

•

PRINT

•

·····S2··.····

• MOVE COUNT 10 •
•
INFO FROM
•
• CURRENT ADDR •
*'0 OUTPUT AREA.
•

...............••

••

..............

•••••
tNT.
• K5*
••
•
MVC

• ••• A,.•••••••••

••
A2 ••• ••••
• •••
MODIFY
INST.
• AT MVC TO USE.
• tlKLN AREA AS •
• HSG 2ND LINE •
•
OUTPUT AREA.

DATA ADDR •

ADOR INTO
REG 1

•
•

Ii

•••••
• NT •
• GS·
•••

···.·el··....·...
Ii

-MOVE CCHHR FROM-

• CURRENT AOOR TO*
*SRCHBCK T F J [LO •

Ii

······C4·•••·••••••
SVC 0
EXCP

• REDUCE RECORD •

•
~O. BY 1
•
•••••••••••••••••

•••••••••••••

Ii

04

• LOAD REDUc.eD •
• SRtH8CKT AOOR •
• INTO SEARCH ccw*
-AND SEARCttl CCW.

.*
••

'NII

.·••.El··········:
Ii

STORE ADOR OF •

.....

:Tf~A~~U i~~ A~

.................
:SEA~'i~1 ~Et IN :

LA

•

Ii
.···E4•••••••••

...............
svc 1

• PROS PROGRAM
•
"A IT

·Nr •

•*•

•
•
•

• AS·

X

·····Fl··········

.. ..
........ .....
..•

FGLST

*S10RE DATA ACDRt

FZ

Ii
.'.
••

•• IS lID
=F. NO
..DEvICE. A rAPE ••••••

'''F OKLINE OUTPT.
• AREA IN WCKO

••

lID
•• YES,
OPERATICN ••••••
*.COI'IPLETE ••

*
•
•••••••••••••••••

•

.. .'. ..
........
Ii

··•.·01··········

•

:EE=ck8 t~DIE2F 1:
•••••••••••••••••

••

ORIVE

••

Ii

• YES

:x •..•..•..• :
X

·•••••••••••••••.
•
•

• ••• FIt••• • . . •••
RETURN
VIA Rllt

•
•

·NT •

• 04·

Ii
NOP

Gl

.'.

Ii

*.

•*.* swnCH *. *.

*. =~t~~~

HR

~~RB~~· *....

•.•. .•.•

i

-NOP

•••••
*NT •

·····GZ··········

• STORE AOoR OF •
• INS1 LaLO ON- •
• LI:.T INTO teN.
• TO Rev SENSE
•
.DATA fRUM TAPE •

•••••••••••••••••

• Alt •

•••

..•..Hl·······•
Ii

••
•

SET swnCH
AT NOP TO

•

•
BRANCH
•••••••••••••••
••

•

•
•
···.·Jl··········
'Ii

•
STORE AD OR
•
•
OF teN FROM •
'REG 1 INTO &C8 •

•••••••••••••••••••

...•.H2··········•
Ii

••

·•••••••••••••••••.
STORE AOOR

• Of

•

tew
IN

•

SENSE

•

eea

•

Ii

.-.-.-.-.-.-.-.-.
•••••J2· ••••• •• ••

.PRINT
•

:

NU.

SENSE FOR

&AL~A~~O~i~~E

•

:

•••••••••••••••••

.'. ..
..
•.•
.• ·····:
Ii

K2

••

~=I~'E~f~~
••

x
•• ••••
•
1 •
•••••
•

••

TAPE

•• ••
·NO

Ii

•tNT·
••••
• a5.
•••

.t

•• yes

•

X
•••••
• NT •
• 04t

••
•

Appendix H. Detailed Flowcharts

553

Chart NV.

Monitor Background Program Dump $$BDUMP: Refer to
Supervisor, Chart 27

*A2
ENTERED VIA SVC 2
ISSUED BY

•..••A1·········•
•

•

...............
SS80UMP

•

*A2

•

....

UBPCHK
UBILSVC
SSBPSW

_ 1

ISSUING A

DUMP MACRO

•..- ··81··········.
·.................
-X

..

INITIALIZE

..

••
••

•

·····C1····.··

••

TURN ON

•

SET TAPE
•
INDICATOR REG.
• 12 FOR CALLED ,.
• DUMP PROG TO
•
.IDENT TAPE JOB.

.................

•

•

·····03··········
.................
-

·NW •
• AI·

--

.-.x -.
El
.*
•. *.
YES.*
DUMP
MACRO

CALL

*. t • • _ ••

.-.x *.

... DUMP
t •
SWITCH

*.•* IN
*. ••

COMREG

ON

····E3·········

•
•
,.

*.. t NO
.....

....

_ 2

-NO

:.•.•..•••. x:x

.-. *.

Hl
• *SYSlST

SETCODE

*. *.

.. .-

... ASS IGNED

IN LUB
TABLE

_

--....-X
H3·······
••••..CANCEL

t •••

••

..

•

NO X

. . . . . ..

t •• _

i

-YES

-·••••
•••• _ 2

i

·····Jl··········

MOYE

•

x'to' •

CODE •

..............
•

INTO PI8

•
•

fOR NORMAL
•
EOJ
•

•

X

•

LOCATE PUB

•

••••• J) ••••••••••
.. LOAD REG 1
•

•

•

•
•

ASSOCIATED

•

•

• WI TH ADDRESS

WITH
SYSLST

•
•

-

ENTRY

•

•••••••••••••••••
• 11< Kl

*
*.•••

.-.x

..-..-..
A DISK
DRIYE

x

_ 1

554

•
•

•

X

• ••• K) • • • • • • • • •

*.••••••
YES

.-

-

-

•

x

••••
·
-••••. ••••.
-••••-NO

SS8EDJ

•••••••••••••••••

•• _.

SYSLST

Of NAME

- 3

-

•

DOS System Control

SVC 2

SS8EOJ

X

•

...............
SYC 2
CHART PB
SSBOUMPB

.-.x

•

.
•
•

'O* .-

-•
•*Gt
*. *. YES X.
...
CANCEL
...
MACRO
*. o. CALL ._ .0 .. *.......

*. *.

•
•

•

X

,.

•

* ••
°YES

SYSTST

•

.
--.................

•
•

i

•
•
•

.*
...

-NO

Fl

SSBDUHPO

·····CS·· •••• ••••
•
CLEAR OUT
•
POUHP REG
•
•

i

•
LOAD REG 1
• WITH ADDRESS
Of NAME
•
•
SSBOUHPB

.....

*.

OF NAME

•

:x .......... :

PRINTER
-. • •

*........
NO
*..**.BACKGROUND
..
t .PROGRAM
._ .t • .o_
x
-YES

...... • t.

X

•
LOAD REG 1
• WI TH ADDRESS

•

X

FLAG BYTE

.-.x

••••••

•

IN PIB ASSIGN.

01
0

••

•

·..............•

DRIVE

•• NO

-

-

·····85··········
.·................-

DSKRT

••

SYSLST
A TAPE

·····C3··········

•

CANCEL FLAG •

•

-

- 3

·YES

X

..

.-.x

-•••• -

.. ..
........
B3

•

REGISTERS

••••

_

--....--

AND DIRECTLY
fROM PROBLEM
PROGRAM WHEN

•

•

CHART HA
•
•••••••••••••••

• ••• 05 •••••• • ••
SYC 2
,.

...............
S$BOUMPD
CHART PG

,.
•

Monitor Foreground Program Dump $$BDOMP; Refer to
supervisor, Chart 21

Chart NW.

.....
...•

tNY •

• 01-

~

·.·: •.Al··········:
·•••••••••••••••••X

FGJOB

•

CALC UPPER

•

lI2~E~~~I~R8~

•

··••••••••.-

SAVE IN REG S •

.-.

• 2

····.84••••.••.••

iC

oo*oo

oo-

Bl

CAPliCEl

*oo

MACRO

.'.

•

*oo

*. t. CALL ._ .*••
°NO

YES

...... • t .

*..

"'ACRO

•

..............

NORMAL EOJ •

•

PUT

..

•

LOCATE

..

•

IN LUE

..

~.NS.

x
.',

·................
•

•

....
....

•• 1 ••
• •

.....Gl··········
..

PU& ENTRY
ASSOCIATED

..
..

•
•

hlTH
SVSOQO

..
..

NO..

.................

x

....•

•

···· .. ·.. ·.. ··x

.', *.
HI
•*SYSOOQ *. *.

too

··....
....'' ...
• 3

*.

.*

.*

'PTYPE

NO •
••••••

••
•

\II ITH AOORE 5S

•

•

.,.

*•••

••
•

•

LOAD REC, 1

WITH ADDRESS

*.

·YES
iC

•• ••••
•
1
•••••
•

•

•

•

•

OF NAMe

••••••••••••••••••

•...Kl·········
SVC 2
SSBDUMPf

•
•

•

.•.•k2.·····•.·

CHART NX

•

SSBTERM

•

•0

•
•

•••••••••••••••

••

TAPE

··......
• 2

••••

OF N'PlE

SS8DUMPF

x

G4

iC

O.

TERM
X
••••• J2 •••• ••••••

•0

•

X

iC

•
•

*••
°NO

....• .

• 1

.................
•

..

....

o

X

LOAD REG 1

-

•

0

Sy~OOO

*.

.····Jl··········

FETt"

.- •
HZ
*•
•*
*. *. YES
*.••*. A(jR1VI:
TAPE
.* •.••
.*

* ••
.YES

.....

WAIT

:···· •• PRtJk~lED •• ••

• 3

x

SVC 1

.. .-. -.
.... .......• •
BAll

iC

•
..

..·.flt·········
X

Fl·•

•*SYSOOO *. *. NO .X
*..**. ASSlb
... ED
••••••
*. * •.• .*
iC
-YES

0

EXECUTE

COMMAND

..

e'

•

•
•
•

iC

~Vt

..

A PRINTER

i

OF eea FOR
SYSOOO INTO
REG 1

..·.·.E4···········
.............

.................
svsooo

*....

·····04··········
•••••••••••••••••••

i

DETERMINE

•

• LOAD ADDRESS

..

TAeLE

•

INC TAPE JOB

•
•
•

······El··········.

•

SET TAPE

.................

: ............. x:
•

lIIJ •

• 12 fOR tALL EO •
• lIUftP PROG TO •

*••
- .-YES

INTO PIB

•

~ENSl:

• IN[lICATOR IlEG •

CAll.·

Slf4ULATE

NOC.H~G

•

fa PREPARE

.···.C,...·••·••••·

*.._

iC

..

•

iC

t.

~~~~E~ I ~g~E·.

•

•

eea •

CtM AND

• FOR

•.•••01·······

:..

•

• ADDRESS INTO

.................

t.

DUMP

*.

MOVE DATA

•

. . . . . ..

iC

Cl

•*
NO.t

X

TAPEl
t.

•

•
•

svc 2

SSBTERM

CHART HE

,.
•

••••••••••••••• •

Appendix H. Detailed Flowcharts

555

Chart NX.

Foreground Program Dump $$BDUMPFi Refer to
Supervisor, Chart 29

·· ..
• ***

• 3

·
..

.

X

·····81··········
...
..

X'3Q' WITH
LOGICAL

Ct

.'.x *.

:

X

·····C2····.··
•
SET
•
SWI TeHES AT •
•
•
OUTl AND AT •
•
TAPNOP TO •
•
BRANCH
•

*. YES
*. PROG DUMP .* .......
*. ....
.* .*
* ....
Fl

..............

'NO

.··..01··········

..................

••••••• * •••••••••

·· .' .
x
•

X

... LOCATE IN PIB
FOR F2 ITS

• GET REG SAVE •
• AREA ADDRESS •
.FROM REG 9 OE- •
• L IHIT 32 BYTES •
.BY REGS 3 AND 5.

.................

1

•

..

MODI FY INST •
:.!2.~~:~.~~~. 8

: ••• ~~~~~~~~! ••• :

·····Fl··········

X

••••• F2··········
•
ZERO REG 12 •
• FOR USE AS PAGE.
• CTR. ZERO REG 2.
.TO USE FOR PAGE.

... LOAD AND TEST.
..
TAPE REG 12 •
*( seT BY $$BOUMP*TO IDENTIFY IF •

:.~!~;.;~~~!;~

:~!~222.!~.!:~~!:

.. "

.x'. *.

SYSOOO A

•• TAPE DRIVE

*.

*. * .... .*

*.. . YES
. . . ..

.*

.. ....
.~

'NO

.... ·2

.··.•Hl··········

.. :

·····G2·· ••• •• ....
.STORE REG 8 IN •
.SAVARA. IT HAS.
• PROG UPPER LIM •
.CALC AND SAVED.

•
•

•

..

.····Jl·····.····
·..................
• STORE ADDR OF
•
PTUNE FROM
• REG 1 INTO CCW
•
AND CCW2

•
•
•
•

·····K1··········
.LOAD AOOR eewo •
• IN REG 1 THEN.
•
STORE IT IN •
• CCB1 LOAD CCW2 ..
• ADDR INTO REG 1.

.................

. ..
.~

:

556

I

•
•
•

i

COREl

·····B5···
•••••••
.CLEAR
I/O ... AREA
•
MOVE PRPROG •
•
HDG--Fl-•
•
OR--F2--IN

·

• •• * •••••••••••••

X

X

• EoIT AND WRITE.
• FLOATING POINT ...
..
REGS LINE
•

.................

:~~~ ~~r~

·····03··········

._._ .-~~:

:~~~~~!-.-.-.-~~:

•
•

EDIT AND
WRITE GENL

: ••• ~;~~.~! ••••:

SUP V
i
·····04······*···
• SET BEGIN ADOR •
•
OF SUPVR IN •
• REG 7. SET END ...
•
ADDR IN
•

:••.•• ~~2.= .••••:

i

••••• E3 •••• •• ••••
"POINT TO REG B •
• INFO IN SAVE •
•
AREA CHANGE •
...
PRINT LINE
•
•
HDR INFO
•

+-.-.-.-.-.-.-*-.

•
•
•

WRITE PROS
HEADING
LINE OR RCD

•
•
•

P~OG

CORE
i
·····05·········*
.LOAD LOW LIMIT ..
.PROBPROG IN REG*
.7 TEST IF ADOR •
• ON A CORRECT •
•
BOUNDARY
•

.....................

.................

i

.-..-.-.-+-.-.-.-.

·····E4··.·····.·
.PRNTLN
PA*
.EDIT AND WRITE • SUPVR paR TI ON •
•
OF MAIN STG •

·.....

••

~.

•••• -........... * •

..

E5

.'.x

••

"'.

CORRECT •• YES
ADDRESS
••••••
•• BOUNDARY ••

.. .. ....
'NO

.

·

.

X

••• .... F3···.···.·.

.....................
•
...

SET SWITCH
AT LST TO

•
•

BRANCH

supvi··
i
••••• F4·······

•
SET sus EOJ.
• AND LAST LINE •
... TO NOP STOPS
•
INDEX OF
•

..

X
....... G3·· •• •••• ••
*REGPNT
NZ",

:-·EOIT-REG-e-·-:

*

: . . ;~~~!~.!~~!~*

X
·····F5··········

• CORRECT REG 7 •
• TO PT TO NEXT •
.MULTIPLE OF 16 •
•
BOUNDARY OF •
... p ROO PROG START.

.................

x

G4

.'

. ..

x

••

: •••• G5* •••••••

.. .. ....

ANY
•• YES
•• SPACE LEFT
••••••
•• ON PAGE ••

·

SET ALTER
SWITCH TO
NOP

..

H2

.x'.

••

..

.. •• • ..

•• FLOATING •• NO
•• POINT FEATURE ••••••
•• ON SYSTEM ••

X

·····J2·······
...............
•

SET FPSW •
TO NOOP
•
•
MODIFY INST •
.POI NTING TO LOw
• LIMIT OF PROG

NOTEST

X

·····K2··········
.CLEAR 115 BYTES.
• OF STG UP TO X •
• '06 1 THIS wIPES.
• OUT PREVIOUS •
•
INSTS
•

.................
..~....
: 3

DOS System Control

:

•

*

•

• ••••••••• *•••

'NO

•

:x ...•...... :

·

X

.

·····H3····*··
_ SET SWITCH •
•
AT LST TO
•
NOP

X

:!~~~!~-.-.-.-~~:

• SKIP TO CH ION.
• PTR WRITE HDR •

:~!~;.2~.!~.~~~. . :

. . ···J3······. . ··
X

•
SET LOWER
•
• ANO UPPER SAVE •
* AREA LIMITS •
• FOR REGS 8-15 •
.IN REGS 3 AND 5.

••••••••• *•••••**

.................

·····J4····"'·····
• MOVE LABEL HOG.
.TO OUTPUT AREA •
• POINT TO LABEL.
• LNG INFO WITH.

:.~~~~.;.!~2.~ •• :

X
...-···Js.······
.-.-.-.-.-.-.-.. ··
.PRNTLN

: •••• K4 ••••••••

.EDIT AND WRITE •
GENL REGS
•

•
•
:

: ••• **=;!~ •••••• :

··........
x

•

SET
Al TER3 SW
TO NOP

..............
·....x .
:

5

:

•

•

PA •

.WRITE PROO PROG •
.PORTION MAIN ST.
.AND TM IF NEEO •

• ••••• * ••••••••••

x

X

• 4

·····H5··········
• LOAD AD DR OF •
.PROB PROG UPPER.
* LIMIT FROM
•
•
SAVARA INTO •
•
REG 8
•

:x •.•.....•• :
X

CORE3

• ••• ·K3······ ... •••

:~~!~-.-*-.-.-~::

X

CORE2

•• *··H4·.· •••••• •

:X •••••••••• :
X

WRITE LINE
OR RECORD OF
LABEL INFO

.................

YE~

X

•
•
•

.................

: •• 2~.!!2~~~~ •••:

X

.. SYSDon IS PTR
.. LOAD ADDR OF
.. PTL tNE INTO
REG 1

:2~.~~2~.~.~~~~.:

...................

·····C5··········
.PRNTL
NZ.

X

*.

X

....... S4."' ••• "' ••• *
• CLEAR I/O AREA ...
• STORE FLT PT •
• REGS DELIMIT *
• REG SAVE INFO •

*-.-.-.-.-.-.-.-.
....···A5.·····.···
.REGPNT
NZ •

... ····C4··*·*· ... •••

•
•
•
•
•

:x .•••.•••.. :

Gt

X

••

·NOOP

X

•

.PA •• X •
• C4.

X

•*

._.

•• FLOATING •• BR
..POINT FEATURE ••••••
•• SWITCH ••

••••

RELOCF··
·····E2······ .. •••
• STORE ADDR OF •
.CCW4 INTO CCB2 •
• LD A 4 IN REG 4.
• AS WORK LENGTH •

... STARTING ADDR •

STARTl

A4

• 5

·····t3··········

•
SET HOG FOR
• FIRST LINE OF
• GEN REGS AND
• CONTROL BYTE
•
FOR TAPE

X

·····02··· •• •••••
• LOAD ADDR OF •
• CeH4 INTO REG I •
• THEN STORE IT •
:
IN eCB1
:

.. MOVE F2 INTO •
... HOG REPLACING.
.. Fl PROGRAM
•
:IDENTIFICATION :

·····Et·······

X

·····53··········

FPSW

·· ..

•

:x ....•.•... :
X

X

...

2

.·................

TRANS! ENT KEY

..

....

·····B2··········
• LOAD ADDR OF •
.TPLINE IN REG 1.
.STORE THIS ADDR.
•
IN CCW4
•

•

.................
..

• SKI P TO CHAN 1 •
• AND WRITE HDR •
• L INE OR TP RCO •

X

TAPRTN

*

COMP Fl
IDENTIFIER

.................

. .
:

START

.-.-.-.-.-.-.-.-.
*· ••• A3· ••• •• ••••
• PAGHEO
NY.

*

$SBDUHPF

... * ••••••••••••

··._....
.. ..
........
• 4

•

X

·-·"·AI-···*·__•.

(

•

X
••••KS······
. ••*
SVC 2
S$BTERM

•••• ~~:~!.~~* •••

•

(

Chart NY.

Prepare Page Headings and PIOCS Subroutines
$$BDUMPF; Refer to Supervisor, Chart 29

••••Al····•••••

•• PAGHED ••
•••••••••••••••••

·•....••••.•
• 1

·NZ •
• J5·

·····62··········
.................

·····Cl··········

·····C2··········

X

•

OUTPUT

..

X

X

..
Exec [NST
• USED TO CLEAR
•
120 BYTe
•
prUNE AREA

•
•
..
..

•

0

"

••••. 01.···••••••

.................
•

PAGE COUNT

..

• CONY TO OCHl

..

-STORE SAVE AREA.

UNPK PAGE NO

PUT IN HOR

•

•

.. ASSEMBLY AREA.

CLEAR SIGN

•

•

0

,

x
.'.
Fl
*.

.*
.* .....
*.
.*
*. *•• - .*
HIGH ".
Of PAGE NO
ZERO

-YES

•

•
:

E~~pgN

X

C4

•••

••

........
EOF
ON
TAPE

•• BR
••••••••••••••••••••

••

·NOP

·····04.·········
X

••

• LOAD X'OIOO'
•
• INTO REG. a 10 •
.GIVE CLAS~ AND.
.UNI T NO OF oEV •
• FOR EOV RETURN •

••
I/O
•• YES
••
OPERAT ION ••••••
•• COMPLETE ••

DECREMENT
LINE COUNT
BY 1

• •••••••••••••••1

····05·········
...............
X

•
RETURN TD
• ADOR IN LlloiK
•
REG ILt

•
•
..

·····G1··········

•
•

.................

F2

*

...............

•
OR INTO •
•
COHREG+89 •
.A X'02' TURNING.
• ON EOV RETURN.
•
SWITCH
•

..............

•
•
•

:x .•........ :

••

LINE
COUNT
ZERO

x

TAPNOP

••

·HZ

sw

••

X

.oo

• LOAD ADDRESS
•
INTO REG 1
'"
OF NAHE
•
SSBCHT07

*. ••
IS

x

"•

F3

.0 •

•• IF SYSOOO •• BR
TAPE DRIVE ••••••
BRANCH ••

•• NO
••••••
••

·YES

"•

-DIGIT OF PG NO •

X

SVC 1
PROB PROG
lolA IT

.. ..
·.···F4··.··.····
.. -..... ...... .. .. .... •................•
·...."
....
G3·········
·.•"..................• ..............
. •...··G4·········
..............•
••
••
••

• o.

·····G2··········

•
•
•
..

·····E4•••••••

X

• ••• E3 •••••••••

•
•
•

•

0

•

*•••

"'

x

* •••
·NOP

•

X

X

HI

••
••
••

•
•

x

•
•
•
•

o 2
o

-SUPPRESS LEAD• ING ZEROS BY
• MOVING BLANK
• INTO HI ORDER

REDUCE LINE
COUNT BV 1
1 N REG 2

•

x

._ORDER DIGIT_. NO

*.

•
•

X

..

.................
•

•
•
•

······E2··········.
·................."

X

•

TAPSVSI

TEST FOR

'NO

·····El··········
..

·.................
.. ..
:

•

03

•
INSERT LINE
• COUNT PER PAGE
•
FROM COMREG
•
INTO REG 2

•
•

REG 12 FOR

•

••

X

X

X

J NCREHENT

.

i

TAPSVS

·····C3..•·••••••
o

•

·····B4··········•

X

SVC a
of5

·.................. ."................
····.02•..•·.·.•.
.. .". ..
.... ....
."......•........."
• LOAD AD OR OF
•
CCSI INTO
•
REG I

.................
•

PRINT

• Hove JOB DATE.
•
FROH COHREG •
• AND PAGE NO.
•
• TO PRINT LINE.
• ASSEMBL V AREA •

•
HOVE CHAR 1 •
-INTO TPLINE AS •
: cO~~:O~A~~TE :

"3

•• xoo

• 2

•..•.al·.·x .•••.••
.................

PAGHEO

.•.•...•••.•

•••••
....
··...."." ...
.....·63···········
.............

•

3

•

0

X

•
RETURN
•
• TO AoDR IN LINK.
•
REG 14
•

•
•
•
•

'F5
IF SYSOOO IS
PRINTER IN PAGHEo
SUBROUTINE SKIP
TO CHANNEL I
PRINT PAGE HDR
AND OOUBLESPACE •
FROH REGPNT
SUBROUTINE ONE
LINE PRINTS AND
ONE SPACE IS
TAKEN. IF SYSOOO
IS A TAPE CRIVE
A TAPE RECORD IS
WRITTE~.

X

•
•

SVC 2
SSBCMr07

•
•

:.H2
SINGLE LINE COUNT IS SET
JUST PRIOR fO THIS

.'.x *•

2ND *.
..
.* •*HI ORDER
•• NO )(
•• OIGIT OF PAGE ••••••

........

•• NO. ZERO ••
·YES

~~ln~ol ~E~~lkN~E~~~T

SEQ INST WILL NOT BE
REACHED FROM THI S
POINT. IF NO LINE
COUNT WAS SET BV
PROGRAMMER AN ASSUHED
VALUE wAS ASSIGNED AT
SUPVR GENERATION TIME.

·····Jl·····.····
X

.SUPPRESS LEAD- •
• I NG EROS -MOVE •
• BL
TO 2ND •
• HI
DIGIT •
• OF Pi
NUMBER •

.................

:x ........... :

·•••.·Kl.·.·••..•.•
x

• MOVE JOBN'HE
•
TO PAGE HOG

•
•

ASSEMBLY AREA •
•••••••••••••••••••
•
x
•• 1 ••
••••• •

....

Appendix H. Detailed Flowcharts

557

Prepare and Edit a Line Subroutine
Refer to Supervisor, Chart 29

Chart NZ.

$$BDUMPFi

(

••••• 11..........

:

RECPNT

•••••••••••••••

:
•

••••
•
•
••••

o

REG==I ••81.!••••••••
o

!UNI

ARIA

••••• 2 •••••••••

o
o

REGPNT5

•••••••••••••••

o

•

o

•

i

o INTO REG ¥ TO 0
:
INl~MURE
:
o
0

····D2·········

o
•

o
,

·.......

•••••••••••••••••

X

•• • •• C5 ••••••••••
.AOo REG :3 TLt 4 ••

• eMP TO REG 5

•••••••••••••••••

i
·····03···.···.··

0

•

•

.*
••

•
•
•
•0

PRINTABLE
•
• CHARACTER TO
•o LABEL FSTWD

...............
UNPK

MOYE BLANK

•

D5

.•.x

•

Fl·!········

UNP~I
•••
: c86NmE7~

:••

:
•

REGOBYI

i

.. -.
.........-..

ONO

••
•
••••••••••••••••••

•
o
o

SET ALlER3
SWITCH TO
BRANCH

o

••••

•••••
Hl.i••••••••
o SEPARATE REGS •

ALTER

:o Eftlmm :
•••••••••••••••••

••

•

0

ALTER!

.:*

._ JI

'.

.0.i O.

O·ON~P

.i••

o
o I
o

••••

•

••

REG 0
EQUAL 0

•• NO

••••••

i
·••.G4.·.······

•
RETURN
•
.TO ADOR IN LINK.
REG
•
•

•••••••••••••••

i

••••••

oYES

X

·····H3··.·······

••

•
INCREMENT
•
• LINE LOCATION 0
• COUNTER REG 6 0

•• 8R

••••••

•

•

••••••
0

0

0

DOS System Control

BY Z

..

.i•.• •••••••••••••••••••
o
o
o

0

.i•.0
•
••••

G3

*.
.*

(

••

•.

F5

.•.rex .......... :
••

t.

SWITCH

*.

\

.

... .*

••

.*

.t

.NOP

X
··G5·······
•• AA'~ ¥MT~~I ~T·.
o TRANSLATE
•

0

...........

o CHARACTERS

0

0

o 5 •
o
•

SWITCH

O!

• Z
o
0

•••

HZ

••••• ~..............

•

.. .0. ..
............

••
••

BR ••

•
••

.
i X •••••••••••

• •••••

ALTER I

X

.i..

':.~~ ••

0

o.

o

.. ....
SNnCH

·.,. ..•...

••

·YES

LST

.............
.... . .

•
o
.
••••

O·.ii~p

I.

ALTER
S=RI~~HTO

•

•
•
•

.. ..
.... ....

••

SET

:

••••

•2
·

WITH BLANK

o

•

••••••••••••••••

•••••••••••••••••

o

X

i
•.....G2·.·····•

o UNPK ~ BYTES •
o FROM REG lAVE •
• AREA PUT NTO.
•o
LINE AR A
••

i

•• ••••
•
6

••••• •

••••• F3 •••••••

.0 •

NO..
LAST
•• ••• WORD UNPKD

0

•
•
•••••••••••••••••

····.G1 ..•i ·....··

x

E5

•
•
.................

:••

YES

....

•••••••••••••••••

0

'8Y~s'~a~~S

*. ••

•. ·c•. *

• ····E3·· •••• • •••
•
BLANK OUT
•
o ADDITIONAL 17 0
: Hn8Swb~A~f' :

•• ••••
•
I 0
••••
BLNKZ
x
••••• F2 ••• • ••• • ••

••

NEXT

•• WORD BEYOND ••••••
•• LIMIT ••

• .x •••.•.••••..•••••..••...••

.................

•

• TO SEE IF ALL.
OWOROS IN LIMIT •
• OF LINE UNPKO •

•
••••

UNP~ ••••El.I ••••••••
M8~ESMYmA :
M8IWT~2T~OARM
o NAMED WORK
•

558

•• NO
••••••

• ~~ FIRST TIME THRU
LOOP FlIIl ZNO REG
LINE HR WILL OCtUR
IMMEO SINCE NO NEW
LIMIT YET ~Er
IN REG 5.

·YES

:···~81··:·:····:

•

••

EQUAL

..
•
•
•
•

•••••••••••••••••

...... ......

••
••

•••••••••••••••••

6

i
.. .•. ..
C3

o LOA8 AOOR OF 0
OFSTW IN REG 6 0
o lEG
WILL
0
: pm~GTM~CS :

••

•
INCREMENT
• REG 6 BY 9
.FOR NEXT UNPKD
• WORO PRINTING
LOCATION
•

•••••••••••••••••••

tlEG==~I.c ••!........

••••

ALTERZ

o COMPARE REG 0 •
• WITH X'OOOZ' •

..x ••••••.•••.•••••••••.•••..

•

i
.....B5··········

i
.....B3··········

0
0
0

•••• •

• 5

••••••

SPECIAL

o

0

: Ge~~~ 28M~T :
•
0 fA
•
•••••••••••••••••

REGPNTl

o

0

• 3

~

••••

••••

o
•o

••••HIt·.·······
PRNTl

•••••••••••••••

•
•0

•

0

•

•

••••0

• ••• PA •

•••••••••••••••••••••••••••

x

•••••J3 ••••••••••
• LOAD ~ INTO 0
: REm 20~TER :

• Kit.

••••
i
.•.•.·J5·.·····
...•

PRNTL
•
:

o

LOAD AOOR
IN9& mZI

•
:

0

•••••••••••••••••

•••••••••••••••••

i

.•••••
•B3·
•

•

0

•

o ••••
• 5 •
o
•

••••

i

.NY •

•

Chart PA.

Line Test Subroutines $$BDUMPF; Refer to
Supervisor, Chart 29

.....
• 1
>

.. ···AI .. ••••• .. ·PRNTLN

····A3·········

...

TSTCOR

>

> 5

· -.

>

··**··81····.·····
*.*.- .
... 8

* .....

P,:RNTLN

X

*TSTCOR

.>

PA*

.>

:TEs;'-iF*ADDR-iN:

••

.................
· .
...• 1

...

.>.x

>.

·YES

>

..C.3 .<. •. ..
.. .... .. .

X

·····Cl··········
...................

·····C.2·······
•

..
...
...
...

..
•
..

SET TSTPRT •

AND TSTLSTl •
SWI TCHES TO
•
"lOP
..

NO..
••• •••

••

>
> 4
>

·.···01··X........
... IF LAST LINE
... eaND REG 7 IS
..
INDEXED 48
-SYTES TO PT TO

•

X

OUll

:~!~~~~-.-.-.-~!:

.>

.................
•
• HDR L IN:: OR RCO.

• PTR WRITE PAGE.

·NOP

>

•

.................

: •• ~~!~~!.!~~! •• :

X

04

•••

••

..

....

:OUT2

• COMPARE REG 5 •
.ENo OF LINE PNTR
.TO REG a LIMIT.
•
OF PRESENT
•
.PORTION OF DUMP.

..

..

LOAD ADDRESS

·. ···05·X. . ·· . ·•··
..................
•
•
•
•
•

PREPARE FOR
LAST LINE 6Y
INDEXING
ENDLIN INSTS
BY X'30'

•
•
•

•
•

TSTLSTl E5 •••

•

IN REG 1
OF NAME
$$BTERM

·YES

>
>
>

9

>

x
·····E4··········

X

·····E3··········

eMPCOR

NZ*

....x ....

•

-Nap

: •••••••••• X:

El··········
:EDIT-ANo-WRiTE-:

NO ••
NEXT
•••••
LINE LAST
••
••
LINE
••
.>

BR..
BR
••
•• ••••
IF SYSOOO
••
•• I S TAPE ••
·.DRIVE.·

SKIP TO 1 ON

•

X

LINE NOW IN

X
e5··· •.

••

••• 4

·NX •

·····03··········

•

_LAST LINE ADOR •

...

sw

F4*

....... ** .......... .

.**
••
*REGPNT

C4···

x
.....
*

.YES

.....

•
...
...
..

•

BR..
Nap
-.
••••• AFTER SUPVR ••
•• PART OF ••
• .DUMP ••

...

x

ENOL IN

>

X

OUT

••
••

.>

·IDENTIFICATION •

....

PAGE
FULL

.................

>

> 2

>

>

: :;

X

...
SET AND
..
TRANSLATE
... LOCATION erR
... REG 7 AS LINE

TSTLST
• •••• ENOl
B5 ... NG
•••••••
.GET
ADOR ••
•
• OF NEXT LINE
• TEST I F IT IS •
:
LAST LINE
:

• PT REG 3 TO 48 •
• BYTE STG AREA.
• PT REG 5 TO END.
• FOR 0"4E: PRINT.
.LINE OR RECORD.

......
.................
.... .-

*< ....•

LSTLN*u

X

X
..•··B3··········

TSTCOR
NO

SAME

>.

-LIMIT OF PRESNT*

... DUMP POR TI ON

B2

BR • •••
Sw
••
•••••
NOP IF 2
••
••
LINES
••
•• SAME ••

.....x

* •••

_ 7

... ..
....

·NOP ••••

.

•••• 3

X

•*

•*

Fl·-· *.

•• LINE
+.

*.

*.

*. 8R
$iIIITCH .* ••••
••
••

LAST

.. .-

-hOP

- ' .
sTsTeR·· X
·····Gl···•..•···
..................
... 4
>

* ....

-TEST If ADDR IN--LIMIT Of PRESNY*

.. DUMP PORTION

...

. . . . . Hl··········
.................
X

• COMPARE CHARS.
•

:

....
2

> 9

>

•

:

TO SEE IF
NEXT LINE
SAME AS ONE
JUST WRITTEN

•
•
•

X

*

····G2·········
RETURN

•
*Ta ADDR IN LINK.

•••••• *~;:.** ••••

.................
....x
-

-

>

1

>
>

>

..

TSTPRT

BR ••

• •• *.

--

••••

-NO

>

X

X

TPHARK
••••• G4 ••••••••••

••••• G3 ••••••••••

• LD ADDRESSES OF •

• LO RE:G 8 LIMIT ...
• INTO LINE END.
• REG 5 TO SET
•
• EXACT DUMP END •

• ecu· S

IN REG 1 •

•
STORE CCW5
•
.AODR FROM REG 1 •

:~~~;~.!~2.~~~~.:

: ••• !~!2.~~~~ ••• :

X
.•.·.H3·······

·····H4··········
.-.-.-.-.-.-.-.-.

>

•

X

•

LINE SWITCH •
TO BRANCH
•

••

*.

..

••

J3

.>.x *.

WRITE

..

LAST LINE

....
....x
sw

•>

·NOP

>
> 2
•

•

WRITE TAPE
MARK

•

SW

••

NOP IF 2
Ll NES
••
·.SAME ••
·NOP

••••••

>
_

....x
7

X
·····HS··········
:~~~!~.-.-.-.-~~:

.WRITE LINE WITH.
• STG Loe INDEX •

•

·····J4·······

...·.Js·······

:*••~~~2~2.2~••

...............

••:

X

X

••

CLRLi N
X
••• ·.G5.·······.·
* CLEAR OUTPUT •
LI NE AREA
•
seT UP
•
--SAME-•

:.e~2.;;~e~~::

CHANGE CC W5.
• TO BSR COMMAND.
•
SET TAPSYSl
•
SWITCH TO •

•• .BR

>
>
>
>

NZ.

.PRNTL

•

SET LAST

•

F5 •••••

> B

>

X

· · · · · J l · · . ·••••••
•
INCREMENT
•
•
REG 7 BY 48
•
:BY!¥~~TP~6~~ TO:
• OF NEXT LINE
•

F3··· ••

....x ....
- .
>

> 5

>

:~~~~~~-.-.-.-~~:

•

>

-.....

..

YES..
Ll"lE
••
••••• TO BE PRINTED ••
•• STILL IN ••
·.Ll/o1IT ••

•
•
•
•

SET SWS
•
AT TSTPRl
•
AND TSTLSTl
•
TO BRANCH ••

>
•

X

..................
•

INTO REG 14

.....x
·NZ •
• JS·
> >

i

ENDLI Nl

......
K4 .. •••••••••
>
>
• LOAD ADDRESS
•
..
OF OUT2
•

:

••••• K5··········

• LOAD ADDR OF

•

.LAST LINE FROM.
* REG 7 PLUS
•
.. 48 SYTES ON
•

:~~~!.~!~;.~~~2;:

>

....x

: 6

Appendix H. Detailed Flowcharts

559

Chart PB.

Initialize for BG storage Dump on Printer or Tape
$$BDUMPB; Refer to supervisor, Cnart 29

(
•••••
•
3 •
•• ••••
•
it

····,u·········

••••• A5 ••• •••••••

•• SI80UMPS ••
•••••••••••••••• •

T~~Esmu"T
IS TESTED

•

:
•

.'.it

•
•
·····01··········
•
:

LOAD PTLINE

IN~8D~~~Sl

•

•

•• 1 ••
••••••

..............

•

•

05
•

••

III.

X

•• ••••
•
2 •
•••••
•

• LOAD ADDRESS
OF CtW~
•
•
INTO REG 1

•

"'

...

.111

·YES

r~¥fi ~~11:3

:

.................
GET HIDICATQR •
• TO PROS PRuG •
•
BEGIN POINT •

•

:.••••.••.• x:

X

•• INTO REG 1 ••
•••••••••••••••••

III.

it

•••••••••••••••••••

• STORE AOORESS
OF ttWIt IN
•
• eew ADDRESS
•
PORTI ON OF
eCtil
•

••

•• ••• E5. . . . . . . . . ..

:III

•
•

••...F3···.······

•

.'.x

X NO..
HUl T1
••
• ••••• PROG SYSTE.M ••
·ENVIRONMENT.

·.••·.E3··········.

..• ·••FI··········•
OF tCwO

it

•
Nap 8RANCH •
•
SwITCH FP~W •
• S(J FLT POVH 41
•
KEGS WIll •
III
DUMP
•

•••••••••••••••••

it

•

·····C5···.···

•
MOVE DEVICE •
.TYPE X'50' FOR.
'TAPE INTO FlELO'
•
CALLED ZON£ •

it

LOAD ADDRESS

·YES

X

·····EI··········•

••

• ••••• POINT F~ATURE ••
•• PRESENT ••

•.·...03··········•

•• STORE

•

FlELD OF

••

1110 •• FLOATING

•

•

TAPE teNlt
•
•
•••••••••••••••••

•••••••••••••••••••

•••••••••••••••••

DATA ADORE~S

•

E •

it

• STURE ADDRESS •
• OF TPLINE IN •

•
:

ADDRESS •
•
OF PTLINE
•
• FROM REG 1 IN •
• PRINTER cew' s •

ADDRESS INTO

FIG'
REG.

a5

·····C3·X••••••••·

.*CI ' . *. ' . YES
*.• ' SYSLST
TAPE
*. ADRIVE
.*.* •...
*. *•• -.*
it
'ND
••••

+52»

.. .'. ..
........

REG 1
•••••••••••••••••••
••

"'

it

LOAD TPLINE

•

•

X

TPRTN

·•••••••••••••••••
:
•

TEST
8VTE I

••••••••• ••••••••

·····83··········
•
•

it

•

III POINT
ON 5
•

•• ••••
•
1 •
•••••
•

·•••.•81··········•

START

41

X

·····F5··········

NOTEST

.SR PAST ORIGIN .~ TMNT WH ICH WAS_

•
•
•
•
•

•
USED TO
•
• INC.REASE AREA.
.ro 8E OVERLAID •

•••••••••••••••••

•••••••••••••••••

:•••••••••••.•••••••••••• x:
X

• cew POINTED TO •

·····G5····••.·•·

•
eCBI
•
•••••••••••••••••

•
OF ce82
•
•••••••••••••••••

•••••••••••••••••

•.•.•Hl··········

••••••H3·· •••••••••

·.••·Gl········.·
it

• STORE ADDRESS •
•

•
•

OF tCWO IN

CCW ADORE SS
PORTION OF

•

•
•

•

LOAD ADDRESS

•

LOAD ADORE S5

•

•
•

OF WROLfH
INTO REG"

•
•

'PROPAGATE BLANK'

X

·····J3··········
•
•
•

ZERO REG 12
TO USE FOR
PAGE COUNT

•
•
•

•
•

:

ZERO REG 2
TO USE FOR

pkA,e~o&~V

•
•

:

•••••••••••••••••••
.i..
•• 3 ••
• •

....

~~,~.:

E

.THIS AREA US-ED •
'FOR 110 OUTPUT •

•••••••••••••••••••

•••••K3.i••••••••

DOS System Control

X
·····H5
•••
•••••••
:s¥k OPI?8

X
•

••
•
••••••••••••••••••

560

•
MOVE BLANk
•
.PRI NT CHAR 'ltD I •
• INTO STG LOC •
• X'121 LABEl£O III
•
UNE
.Jlt
•

• BY REG 1 INTO.
.ceN AOOR F I ELO •

it

•••••
•
2 •
•• ••••
•

BALl

• STORE A.OOR OF •

it

•
•
•
OF CCW2
•
•
INTO REG 1
•
•
•
•••••••••••••••••

it

·····G3··········

RELOC"

•••••••••••••••••
OJ4
THIS I

PARATION FOR

INSTR
THIS

PRIOR TO

ums

m~LY~l~~oN

·····J5···
•..•...
.-.-111-.-.-.-.-.-.
X

.PAGHEO

PD.

•
SET UP AN~
•
'WRITE PAGE HOG •
'ON PTR OR TAPE 0

•••••••••••••••••
x
•••••
• PC •
•••
•

Al •

I

\

BG Dump on Printer or Tape $$BDUMPB; Refer to
supervisor, Chart 29

Chart PC.

.....
...

··......

·PB ..
.. JS*

• 1

•.... AI··········
X

.. GET REG SAVE
.. AREA ADDRESS
..

FROM REG 9.

• 3

..

..

-DELIMIT 32 BYTE-

:!~5~.2!.~~~~~:;:

:~!.~~~~.~.~~2~.:

A3

.•.x

•

4

A4

.'

•

..
.... .....

X

·····A2···.·.····
.CLEAR 110 AREA •
•
SAVE FLT PT •
• REGS DELIMIT •
• REG SAVE INFO.

..
..

··......

··......

•

••

••
ANY
•• YES
•• SPACE LEFT ...... .
•• ON PAGE ••

•

x.

...

.*
••
•• ADDRESS ••

••

YES
BOUNDARy
••••••
•• CORRECT ••

*.

oNO

* •••

••

'NO

: .. B5

.•..·81··········

·····82··········
: •••
•••• :
....
··......
..

X

..

..

SET HOG FOR

..

..

: ••• ~2~.r~~5 •••• :

• 2

·····C1··········
..................
..
..

·····01··········

•···.02···•..•···

.. CHANGE PRINT ..
:LINE HOR INFO. :

WRITE
COMREG

:~~~~~!-.-.-.-~~:
EDIT AND
WR ITE GENL
REGS 0-7

..

: •• !~!2.~~~.~ ••• :

X

:~~~~~!-.-.-.-~~:

-SAVE AREA INFO .. -

.................
.····El·······
..............
·

•••••• ~!~; •••••••
X

X

..

..

CHANGE

NOP [NST

•

..

·····E2·······
•
CHANGE
•
Nap AT
BLNKST
•
TO UNC BR •
•
TO TRANS •

..

_AT LABEL LST TO.
•
BRANCH
..

..............

.....Fl··········
·..................

SUPV
X
.···.F2···.······
• SET BEGIN AND.
•
END ADDR OF •
•
•
SUPVR IN
• REGS 1 AND 8

X

pea

*REGPNT

+-+-+-+-.-.-+-.-.

:

EDIT REG 8

••···C1.····.·

·.................

:

X

X

..

RESET

:~~~!~~-.-.-.-~~:

...............

•
•
•

MODIFY
EOJ SW
TO Nap

:!~.~~~~.~.!~2.;:

..............

·····Jl·····
.....
.-.-.---.-.---.-.

••••• J2 ••• • •••

•

X

• UNPK

•
•
•

•

•
•

•+

Kl

.'.x

••

••

RESTORE LAST.

..............

•

....x .
·....
: 3

••

........ ....x
. .
x
....
·· .. ....

•• FLOATING •• NO
•• PT FEATURE ••••••
•• PRESENT ••

....... ......:
:~~

··.··C4·...·••·
................
X

..

MODIFY
•
SW
•
PNT
•
INE ..
P

•

:x •.•••..••• :
X
••• •• 03·· ••• ••• ••
•
LOAD REGS 3 ..
•
AND 5 TO
•
.POINT AT LABEL •
:
LENGTH INFO :

.................
X

.

MODIFY
•
AL TER3 SW ..
FROM UNe
•
BR TO NOP ••

..............

·····E4··········
:!~~!~~-.-.-.-~~:

.................
• WRITE PROBLEM.
• PROG PORTION •
.OF MAIN STORAGE.

X

X

·····F3··········

:~;~~~!-.-.-.-~!:
• WRITE LINE
• OR RECORD OF

.................
X

·····E3·······

•

CORE2
X
•• ••• 04· ....... • ....
• LOAD ADORE SS •
OF PROBPROG •
•
•
UPPER LIMIT •
:
I NTD REG 8
:

•
•

: •• ~e~~~.!~~2 ••• :

•

···*F4 •• ** •• • ••
SVC 2
$$BEOJ

•

....;~::r.~~ ...** •

X
·····G3··········

:

.CLEAR 1/0 LINE.
•
AREA
•
.MOVE PROB PROG •
HEADING IN
•
•

•

X

:!~~!:.-._._._t~:

.. LINE SW TO •
• NOP AND RESET •
ENDll NAND •
•
• ENOLlNl INSTS

•••••••• + ••••••••

FPSW

•

X

PE.

EDIT AND
WRITE GENL
REGS 8-15

.................

·····H3··········
.·................

: ••••H2 ••••••••

..
•
•

•

·.................

.PF ••••
• C4.
SUPVl
x

......HI··········

MOVE LABEL
LENGTH HOG
TO OUTPUT
AREA

•
•
•

.................
·..
.... .
•
WRI TE SUPVR
.. PROG PORTION
• OF MAl N STG.

X

• SET LOWER AND
UPPER SAVE
•
.RE. LIMITS
•
• FOR REGS 8-15

•
•
•

•
•
•
•

THIS IS WHERE PROBLEM
PROGRAM BEGINS, THAT
IS THE LAST DIGIT IS
~Tl~RO'(E.G. IFQ, 2FO,

COREl

····.G2····.·····

..

..
BRANCH
..
.. AT LABEL lST ..
TO NOP
..
..

X

·····C3··········

CORE3

X

e •

-POINT TO REG

:x •..••••.•• :

.....

COMM
X
·····C2··········
• PUT ST ART! NG •
• ADDR OF COHREG •
• INTO REG 3 AND.
•
END ADDRESS •

..
..

:

~~~.~!~~

X

..

• CORRECT REG 1
• TO PT TO NEXT
.MUL T1 PLE OF 16
• WORD BOUNDRY

-EDIT AND WRITE ..
•
FLT POINT
•

..

.. CPNTROL BVTE

X

:~~~~~~.-.-.-~~:

..

FIRST LINE

.. GENlREGS AND

·····B4.........*.

X

•
WRITE PROB
• PROG HEADING

•
•

i
·····J3··.······
.

CORE

"PT REG 1 LOWER •
.LIMIT PROB PROG*
• TEST IF AODR •
• ON A CORRECT •
BOUNDARY
•
•

....................
··......x ..
• 4

•

·YES

: 2

• 1

:

•

Appendix H. Detailed Flowcharts

561

Prepare Page Headings and PIOCS Subroutines
$$BDUMPB1 Refer to Supervisor, Chart 29

Chart PD.

(

.....
...
·PE •
• J5 •

···.Al·········

....

•• PAGHEO ••
•••••••••••••••• •

·····81··········

PAGHED

i

•

MOVE CHAR 1

..

INTO TPLINE

..

..

..
AS CONTROL
..
.. BYTE FOR TAPE ..
..
OUTPUT
•

•••••••••••••••••
i

·····Cl··········

..

EXEC INST

•

..

120 BYTE

•

....
·.....
:••.•.•...••.••..•.•.•..• x:

•• 1 ••
••••••

•• 2 ••

······B4•••..••.••.

••••• e2.a ••••••••
•
•
•
•
•

MOVE J
FROM
AND P
TO P
ASS

DATE.

~VC

...... ........
REG.

·····e2···
..••·.••
•
X

..

PTLINE AREA

..

X

····.Ol··········
..

INCREMENT

..

..

REG 12 FOR

..

.................
..

PAGE COUNT

..

-CONV TO DECIMAL_
_STORE SAVE

AREA_

• LOAD ADDRESS
• OF CCBI INTO
•
REG 1

oo·

C4

.'.x

.oo

·B5
IF SYS
IS
PRINTE
N PAGHEO
SUBRuU
SKIP
TO CH
1
HDR
PRINT
A~D 0
SPACE.
FRUH
NT
SUBROUTJ
ONE
LINE PRI
ONE
SPACE TA~ENoo IF
SYSLST IS TAPi::
DItIVE A TAPE RECuRD
IS "'KITTEN ON SVr. o.

.oo

• *110
.oo YES
OPE:RAT JON •• oo • • oo
·.COMPLETE ••

•
•
•

••

.oo

·····02····..····
X

•
INSERT LINE
.COUNT PER PAGE
•
FROM COHREG
•
INTO REG 2

0

.............
·B5

NO."
LINE •
AREA ..

·•••••••••••••••••. ·•••••••••••••••••.
.. USED TO CLEAR ..

X

PRI NT

*•••
'NO

••

.···.04····.····
..............
i

•

.·................
•

•
SVC 7
• PR{JB PROGRAM
•
WAIT

•
•

•
•
•

:X .......... oo:

i

·····El··········
• UNPACK PAGE NO.-

X

·····E2···· ••••••

••

••

·.................. ·..................
.•.
.. .•.x ..
.. .. ....
·•.....•
....••...•.•
·····Gl·········· ······e2
•
................. ·...................
• PUT IN HEADER ..
-ASSEMBLY AREA, ..
.. CLEAR SIGN
..

oECREHE~T

•
•

LINE COUNT
BY 1

•
•

oo.

oo.

E4

*oo

Of PAGE NO

*oo

*oo

ZERO

.*

.-

.* .....

F2

••

• oo

*••
-YES

••

·oo

•• NO
•••• oo.
••

• 2

X

-SUPPRESS LEAO- ..
.. ING ZEROS BY ..
.. HOVING BLANK ..
.. 1 NrD HI ORDER ..
-DIGIT OF PG NO.-

i

•

·G3

•

.oo

oo*

F4

..

.x

••

EOF
ON TAPE

.oo

*oo NO
•
•••••••• oooo ..... oo ••• X•

• • • *-

-YES

•

*G3
SINCE LINE COUNT I S SET
JUST PRIUR TO THJ!) POINT,
J T WILL NEVER BE ZERO
HERE AND NEXT SEQ INSTRUCTION WILL NOT BE
REACHED FROM TH I S PO I NT •
IF NO LINE COUNT WAS SET BY

e~~fi~A=~~R !S~~ G~~ ~U~~D

······G4··.·······.
i

• LLAD ADDRESS

•

•

•

.................
•

Of 5Y5LST
I NTO REb 0

•
•

SUPVR GEN TIME.

.•.x

HI·.
•• 2ND..
•
•• HI ORDER •• NO X
•• DIGIT OF PAGE ••••••
•• ND. ZERO ••

.... ....
·YES

X

·····JI··········
• SUPPRESS LEAD- •

• I NG ZEROS MOVE •
• BLANK INTO 2ND •
.HI ORDER DIGIT •
•
OF PAGE NO. •

•••••••••••••••••

····.H4·······
•
•
X

·••••••••••••••.

•
TURN EOV
•
• swnCH ON IN •
COMREG + 89 •
•

X

••••• J4 ••••••••••
• LOAD ADDRESS •
•
INTO REG I
•
•
OF NAME
•
•
$$8CHT01
*-

·•••••••••••••••••.

:x •.••..•.•• :
i

x

•• ••••
•
1 •
•••••
•
562

DOS System Control

•..•K4··.······
X

••••• Kl··········

•• MOVE JOBNAHE ••
oro PAGE HEADING.
• ASSEMBLY AREA.
••••••••••••••••••
•

• • • • • oo. oooo • • • • oo

.. .. ....

oo.

x

.*-

.YES

•.

.*

••

LINE
COUNT
ZERO

••

SYSl5T
•• YES
•• ASSIGNED TO ••••• oo
.oo PIUNTt.R ••
*-oo
·oo ••
.ND

x

oo_ F!HIGH *oo -.
• -ORDER DIGlT*'. NO

.•.x

•
•

SVC 2
SS8CMT01

*-

••••••••••••••••••

····G5·········
X

•
•
•

...............
RETURN
TO ADDR IN
LINK REG

*-

..
•

Prepare and Edit a Line Subroutine
Refer to supervisor, Chart 29

Chart PE.

···.A1·········*

o
•

o

•

...............
REGPNT

··••••••••..

..

o 3

·····81··········
.................

REGPNT

X

•
•

BLANK AREA
CALLED LINE

•
..

•

• Of I/O OUTPUT'
•
INFO
•

•

0

:x .•....•......•.•.•....•. :

X

·····e1··········
.................

REGPNT5

.*
*.

••

.. WILL POINT TO ..
'LOCS ALONG LINE-

X

LOAD It INTO

..

..

REG 0 TO

INITIALIZE
COUNTER

....

.. 6

..

····02·········
...............

*

..

.................
·....' ...
..
..
o

..

..
..
•

o

UNPK

••••

•••••••••••••••••

*

•

1

0

•
•

•
•

X

X

•

• •••• •

•

SET AL H:R3 •
~w Ttl UNC.
•
• BR IF IT WERE.
•
NOP
•

••

,
*
..............

••

·.···Hl·•...•.•.•

ALTER

•
•
•
•

.. ..
.. .. ....

*.•**.

0

•••••••••••••••••

H2

*•••
.NOP

••

.... ....
.... .... ....
·•••••••••,• ••••

o

-NOP

x

• 1

0

.*

,
0
0

•
•

•

o

•••••••••••••••••
•

0

••

••

••

X

F5

•••

••

BLANKS

•• BR

SWITCH

•.

••••••

.*

X

·····Gs··········
.................

BLANKS

.. MDVE 8LANK::.,
.INTO FSTWD+107
• IF NOT SUPVR
•
DR PROBPROG
• PART OF DUMP

••••••

•
•
•
•
..

0

0

:x .••.....•• :

••
•

....HIt·········
PRNTL

•••••••••••••••

TRANS

..H5·······
X

• TRANSLATE •

•0

••• AI'~
¥MT~~INT· •
CHARAt TERS
•
o

0

•••••••••••

0

0

*0

,

X

,

•
LOAD It INTO •
•
REG 0 TO
•
• RE~ET COUNTER.
o
0
o
•

x

o
o 2
o

...............
RETURN
TO ADDR IN
LINK REG

•• hO

·....x . .... ·····J3···..·..··
.................
....x
o 3
o

••
BR
••••••

SWITCH

EQUAL 0

••

·NOP

·····H3·· ••·•••••

x

o

····FIt·········

••

REG 0

.INCREMENT LINE.
• LOCAT JON CTR •
•
BY 2
•
•
(R[G 0)
•

••••••••
BR

SWITCH

•
•
•

X

••

• 4

.0.x ••
Jl

•••

••

SWITCH

BLNKS T

x.x •••••••••••

G3

• 5

••••
•

x
•••• .0.

X

•.

•

•

• YES

••• *o .

o
•o 2

IF NOP

AlHRI

•

.................

UNC BR

•

·····G2·······

·····Gl··········
• UNPK
BYTES •
• FROM REG SAVE •
• AREA PUT INTO.
•,
LINE AREA
•0

SET AL TER •
MUTCH TO •

•

•
•

:X •••••••••• :

·NOP

·..............
.
."..
.
·· It '•.... .
.. ..
........ ....x
.••••.

•

FSTwu+1t

o
o

•

0

.*

x

£5

BR ••

•

••

·YES

X

•

X

•
•

•

·.U~PACKED

LST

ADDlTIONAL 17 •

••

WORD

0
0

·.···F3.·•••··

BLANK OUT

••

LAST

x

0

.................

••
••

•

• BYTES (FIRST
•
2 WORDS)
o

.................

ALTER3

NO..

••••• •••••••••• •••••

•

*.

'NO

·····E3··.·······
.................
•

MOVE; BLANKS
TO LABEL

•

........
.. .'. ..
.o...... ........
••••
.... .*. ....
........
.... .... ....
•••••

X

X

BLNK2

0
0

o

NAMED FHWD

*.

8R
••
•• If WORD
YES
•• BEYOND LIMIT ••••••
••
.C4
••

05

·..................

0

C5

x

·····03·······*··

0
..

.....F2··········

i
:•••~~~:~=:=~
•••:

UNPKI

• SEPARATE REGS
•
WlTH BLANK
PRINT
•
•
CHARACTER

•.
.•

EQUAL

x

.0 •

••

o

•

It

••

•
• PRINT CHARAe. TER.
•
INTO AREA
•

·.........

"POINTED TO BY ..
.. REG 3) INTO ..
tAREA NAMED WORK*

*o

OC4
REG 3 IS INCREMENTED
4 BYTES EACH TIME
AND COMPARED TO REC.S
TO SEE I F ALL REGS
IN LIMIT~ DF THIS
LINE UNPKD. ON FIRST
NO
•••••• TIME THRU LOOP FOR
2ND REG LI NE 8R
WILL OCCUR IMMEDIATELY
SINCE NO NEW LIMIT
YET SET FOR REb 5.

X

X

COUNTER IN
REG 0

•••••••••••••••••

MOVE BLANK

•

.. .x
.. ......................... .

.. HOVE It BYTES
..
-FROM SAVE AREA ..

•
•

•

..

·····el··········

UNPK

• 0.

1

X

•
INCREMENT
•
REG 6 BY 9
•
•
.FOR NEXT UNPKO •
• WORD PRINTING.
•
LOCATION
•

•

·YES

·····01·.•..•.••.
..

WITH X'0002

1..3

.. LOAD ADDRESS
..
.. OF Fsrwo INTO ..
.. REG 6. REG 6 ..

REGPNTI

CMP REG 0

0

.·.••8S.·········

ALTER2

·..................
.. x ..
........
•

0
..

REGPfd5

o

i

,

•••••*
••••

oo 5

0

·····B3··········.

SPECIAL

.·.·82·········
*...............

..
•

• FOR ASSEMBLY

$$BDijMPB~

o

•

•o 5

•0

••••

:•..•.•....••••.•••.••••• x:

X

PRNTL

*•**···J5··········
Of •
• LOAD ADDRESS

..

ceB2
INTO REG 1

•
•
•

•••••••••••••••••
•

0

x
•••••
.PO •
• 84·

o

o

0

Appendix H. Detailed Flowcharts

563

Chart PF.

Line Test Subroutines $$BDUMPBi Refer to
Supervisor, Chart 29

....... AI ......... ..
PRNTLN

o

o

TSTCOR

....
*... .

.. 8

-

*o0 ••••

X

82

••
••

-TEST IF AODR IN_LIMITS OF PRE$-*

.................
-....- .
·····Cl··········
.. ENl DUMP AREA ..

..
..

..
..

•
•
•

.................
.. LOCATION eTR

..

... REG 7 AS LINE ..

o

-IDENTIFICATION ...

•
•
•
•

• GET END AOOR
• OF NEXT LINE
.. TEST I F IT IS
LAST LINE

:~~2.~~~.!.~!~~.:

-

:

i

TO NOP

:

••
...

PAGE
FULL

•• NO
.- ••••

:.~!~~.~22~~~; •• :

it

C5··· * •

••

EOJ
SWITCH

••
••

NO ...
NEXT
••
•••••
LINE LAST ••
••
LINE
••

4

i<

.NOP

•• PC •

•• H2·
-

·····El······.···
:~~~~~r-.-.-.-~~:

.................
.LINE OF STG NOW_
-IN OUTPUT AREA ..

2!.~~;~~

• LOAD ADDRESS
•
INTO REG 1
•
OF NAME
:
$$BEOJ

TSTLSTI

•

i<

X

....

-

-....- ..
* •••

.. 4
o

:

••••

0

.····G1··········

BTSTCR

X

:!~!~~~-.-.-.-:~:

*TST IF AD DR IN ...
_LIMITS OF PRES-.
• ENT DUMP AREA •

............................

2

--....
....-- 9

:

••••G2····.·· ••
i<

...............

•
RETURN
•
• TO AD DR IN LI NK.
•
REG
•

•···"Hl·····"····
it

• COMPARE CHARS
TO seE IF
NEXT LINE
SAME AS ONE
• JUST WRITTEN

•
•
•
•
•

..................

. ···. Jl·········.
i<

•
INCREMENT
REG 7 BY 48
•
•o BYTES, POINT
• TO NEXT LINE

•
•
..
.._

......................
.~ ...
o

-

I

••

•
•

it

-NO

:

5

:

SVC 2
$$BEOJ

~~~~!.~!

-

• •• : 3

:

TSTPRT

i<

•• L INE TO ••
•• BE PRINTED •• YES
'. STILL IN
••••••
•• LIMIT ••

0

•••

·NoP

F3··· ••

• * • * LAST *. *. BR
*. LINE SWITCH ••••••
*.
.*
*.
.*
i<
* ••
-Nap

ES

BR..
SW
••
• ••••
NOP IF 2
••
.LINES SAME ••

- 7

Fl··· *.

X

.. ..
.................- ....x .. ...........
·· -- .x ' .
.'.
..··F4··.••.....
-. .. .... .... ..••• ...... .... .. .. .........
- .
·....i<
·····E4••••••••••

X

• COMPARE REG 5 •
END OF LINE •
•
.. PNTR TO REG e •
• PRESENT LIMIT.
-OF DUMP PORTION.

-EDIT AND WRITE.

•
PREPARE FOR.
• LAST LINE BY •
INDEXING
•
•
• ENDLIN INSTS •

• HOVE X'IO' TO •
•
CANCEL CODE •
:
BYTe IN PIB :

·····E3··········
...................

CMPCOR

·YES

-

it

: •••• 04 ••••••••• :

:X •••••••••• :

X

- 9

0

i

.:

• SKIP TO 1 ON _
.PTR WRITE PAGE •
• HOR LINE OR RCO.

.. 7 BY 48 BYTES ..

.. TO PT TO LAST ..

C4

BR..
• ••••

:~~~~~~-.-.-.-~~:

.. IF LAST LINE ..
• COND, INDEX REG-

:

0

.~

···**01···. ···••·

0

2

i<

OUT

••

"YES

it

ENOLIN

•
•
•
:

:

C3

MODIFY
•
TSTLSTl AND.
TSTPRT SWS
•

:

X

TSTLST

.POINT REG 3 AT
• START OF 48
• BYTE STG AREA
• AND REG 5 AT

•• NO
••••••

SAME

it

TSTCOR

••

it

X

SET AND
TRANSLATE

: 5

: 3

* •••
••• * 0 •

0

:

-

·YES

.. 7

-

LSTLN

I

it

.····SI··········
:!~!;~~-*-.-*-~~:

PRNTLN

····A:3·········

..................
....
-.....
--.....•...·.83··. •••·•••
.. .-. ..
·····B5··········
.
......... ....x
....................
- .
.... .'.
.. ..
.. .-. ..
.. ..
·····C2·······
... .. .-..
..
..
........ .... ........
..............
• x
...- ......
··........
x
-.........03··········
·····05·······
................. .................. :••• •••

..

FS
••
• * SW •• ••
BR ... NOP IF
• •••• 2 LINES SAME ••

•
•

it

••

B

·NOP

0_

•• **

X
·····G3••••
·•••••

it
••••• Gs.·· •••• •••

CLRLIN

• LO REG 8 LIMIT.
• INTO LINE END •
• REG 5 TO SET •
"EXACT DUMP END •
.CLEAR 1/0 AREA.

.. CLEAR OUTPUT ..
•
LINE AREA
..
:SET UP --SAHE--:

.................

.-................

X

·····HS··········
.---.-.-.-.-.-.-.
..................
X

••••• H3 •••• • ...

•
•
..
:

.PRNTL

MODIFY
•
LAST LINE •
SW FROM NOP •
TO BRANCH."

..............
.0.x

..
.... .... ....
.._. - -

...

J3

••

••
WRITE
•• DR
... LAST LINE ••••••
••
SW
••

it

·NOP

:

i

-- -- 2

0

pe.

•
WRITE LINE
..
_WITH LaC INDEX •
• AND --SAHE-- •

7

····. Js······· ••
X

..

MODIFY SWS •

A~~ f~fr~ll

..............
-

:

•

TO BRANCH

•

:

.•.•.
K5··········
:LI

ENOLlNl
.LD

X

F LAST.

D~Ef87:

.. B

LAST.

:~~ ••••••• !!!2~.:

....x

-....: 8

564

DOS System Control

:

BG Dump on Disk ~evice $$BDUMPDi Refer to
Supervisor, Chart 29

Chart PG.

•• **

o

o 4

o
...

...

o

••• ******* •• ***

** ••

o
o 1
o

X

o
o 3
o

*.

... REG 3 WAS SET ...
...
IN $$BDUMP
...

••••••••••••••• **

PROG
NO
SYSTEM
.. * .....
*. ENVI RON- • *
*.MENl .*

*.

PDUMP
o.

.*

-

.* .....

....

*
*

·····01****··
... ...
...
SET SWS

.................
OUTl TO BR
,OUT
TO NOP
--

El

EQUAL

*.

...

* •• -

a

SET

*"··1'85·····*·*·*
*REGPNT
PJ.
.-.-*-.-*-.-*-.-*
•
WRI TE LABEL ..
LENGTH INFO •

0

BLNKST sw
TO BRANCH

x

o

*

:.**.~;~~~~ ••••• :

.. * ••

'O.

.*

<

.* ... * *C4*.**· .*.*.
*REGPNT
PJ.

*-.-.-.-.-.-.-.-.
• WRITE COMREG
•
INFO

•

CORE 1
X
···**C5·····***··
• CLEAR OUTPUT
•
L1 NE AREA
*
* MOVE --BG-- •
* IN AS PROBLEM.
•
PROG HEADER
* ..... * *.* * ** * ••• it

•

*

X

*****03*·***·*
o

·

BALl
X
*·**·E2· ... *·*"'**"'·
*HOVE BLANKS TO •
*AREA NAMED LINE ...
*THI S WI PES OUT.
• PREVIOUS INSTS ...
* UP TO X'92' ...
* .... * ••• * ** •• **** ...

<

X

•

** ···05 •• * •• *. **.
.PRNTL
PJ.
4-.-*-*-it-.-*-.-.
* WRITE PROBLEM.
.. PROG HEADER *
•
RECORD
it •• * **.*** ** .**.*

·*.**E4··*·* * ••• *
•
LOAD SUPVR
•
* LIMITS INTO *
.REG 7 AND REG S.
* (START REG 7 *
.. END REG 8)
** ••• * .*** •• ** **.

··***E5···****··*
*LOAD LOW LIMIT *
• PROB PROG IN ..
.REG 0 VIA REG 7*
.ZERO REG 1. TST*
• ADDR IN REG 7 •
**** ••• *** •• * ••••

··*··04* •• ****

•

o

RESET
BLNKST SW
TO NOP

• RESET SWITCH *
AT LST TO
•
NOP
•

•• * •••••••• * ••

YES<

*

'Ox •••••••••••

• BRANCH AROUND •
* ORIGIN STMNT *
*
TO BAll
*

.0.x *.

REG 2

•

o

...

•

o

*'O...

NOTEST
X
·····02····*·····

X

...
...

2

o

X

·****B4****.··
•

.* ••• C 3* .** * •• **.
*REGPNT
PJ*
.-*-*-.-*-*-*-*-*
EDIT REG a
•

*.*·*C2*******
* MOVE X'7B' *
• INTO CORE + 3*
• GET INDICATOR.
• TO PROB PROG •
•
BEGIN POINT*
*******.** ••• *

......
.YES

... PDUMP2 TO BR ...

<

** ••• B3**·****
* SET SWITCH •
AT LABEL
LST TO
*
BRANCH
*

.YES

NO

SET
AL TER3 SW
TO BRANCH

•

••• *

X

••

X

·····A5·*****·

0

X

• o.

1tREG 3 TO SEe IF... THIS IS POUMP ...

5

••• *

B2
*.
.* MULTI *.

... *.·*B1* •• •••••••

... LOAD AND rES T ...

o

0

COMM
X
•• *.* A4··· ** .*.* *
.POINT TO COMREG*
.BEGINNING WITH.
* REG 3, END
...
* WITH REG 5

.*** Al *** .... _*it_ 0
$$8DUMPD

•

.

*

.

•

X

X
.***.E3*· •• ••••••
• POINT REGS 3 •
*AND 5 AT BEGIN.
* AND END BYTES *
* OF REGS 9-15 •
• IN SAVE AREA •
• ** •••• **.*.* •• **

X

'NO

X

*.*·

X

** ... * *F 2. *** ... **.**
.PAGHEO
PH.
*-*-*-*-*-.-.-*-*
* WRITE HEADING *
RECORD

••
... ***Fl*
STORE ••
CHAR ...
...
FROM REG 2 ...
... INTO MVBlNK+l ...

... MODIF''I'ING THE... INSTRUCTION-

.*.**.*****.**

x

X

**···F3***····**·
*UNPK
PJ*
.-*-*-.-*-*-*-.-.
• EDIT AND WRITE *
REGS B-15

* •• * ·F4*** **.***.
.PRNTLN
PK*
.-*-*-.-.-*-.-.-*
* WR I TE SUPVR
* PORTION OF

••••• * •• ** •••••••

....

:*~~!~*;!~~!~~*.*

o

*
*PK

:x ................... :
*****G2* ** ** ***.*
.POI NT REG 3 AT •
*BEGIN REG 5 AT *
*END 32 BYTES IN.
* REG SAVE AREA *
*(ADDR IN REG 9)*
.* ****** ** *. ** ***

-AOOR OF WROLTH.*
ZERO REGS 2
AND 12

...
...

<
·····Hl·······.··
...

TEST CONFIG

X

**··*H2. *.* ... - *-*
*MOVE HOG GRO-7 •
•
AND CONTROL
•
* BYTE FOR DISK *
• TO I/O OUTPUT ...
*
AREA
*
.******'**.* ••••••

...

___ BYTE (CQMREG + ...
...
52) FOR F L T
...

... POINT FEATURE ...

...

ON SYSTEM

...

••••••• ** ••• **.**

•*

*.

JI

*.

x

*-.-*-*-.-.-.-.-.
• EDI T AND WRITE *

o

•

SET
FPSW TO
NOP

x

****

o
o 1

FPSW

*

X

* •• * 0

*.**

.*

.*

H4

'O*'O

-NO

X

.... ***G5·**···· •• *
.ADJUS T REG 7 TO.
* POINT TO NEXT.
.MUL T! PLE OF 16 ..
* FOR PROB PROG •
*BEGIN BOUNDARY.
• ••• *.* ••••• ** •••

<

*.
.oo

PAGE
NO
• 'O LINE COUNT .. * ••••
••
ZERO
••

<

X

• ..... *J4*.****··*·
.PAGHED
PH*
.-.-*-*-*-.-.-*-*
*
WRITE NEW
*
• PAGE HEAD I NG
RECORD
•
••• * •• * •• *** •••• *

·***·J3······ ... •••
*REGPNT5
PJ*
*-.-*-.-.-*-*-.-.
*EDIT AND WRITE ..
*FLOATING POINT.
•
REGS
*
••••• * •• **.* ••• **

:x .......... :

* •• *.K2*·* ** ** **.
*PT REG 5 TO END*
* OF REG a INFO.
.IN REG SAVEAREA*
* MOVE HOG AND •
*DISK CTRL BYTE *
*.** ** **.* ** *. **.

o
o 3
o

'O.'O'O • •

.0

'O*
·NOP

••••• H3····· ... •• ... •
.CLEAR I/O AREA *
.SAVE FL T PT REG*
.LD REGS 3 AND 5.
•
WITH FLT PT *
.LIMITS. SET HDG*
• * •••• **.*.** •• **

PDUMP2

x

"3
.0

.0

'.

PDUHP SW

*. * ••• .*
*NOP

x

<

•

X

···*·G4**·*·**
•
SET OUT SW •
• AND BTSTCR TO.
• NOOP. STOPS THE*
*INDEX OF ENDLIN
•
AND ENDLI Nl.
********* •••••

BR

oo.

*.

0

x

**

*.

·oo

*.**
o
0
o 2
0

X

*****Kl****··*

* GENL REGS 0-7 *

x

* •.
*
*YES

'O • • • • •

• •• *

.***·H5***·**·
*
SET ALTER.
SWITCH TO •
•
BRANCH
•
* LD PROB PROG •
.. END IN REG B*
.... **.***.*.* •

*
*
•

* * ** ·J2 •• *** *****
*REGPNT
PJ •

+ ..

FLOATING *. NO
_.POINT FEATURE ...... .
*. PRESENT 'O*

•*

*.

... 'Ooo

supvi**

X

*···*G1*.*
•• ** •• •
---LOAD REG 4 WI TH*
...
...

*.

• C4.

x

DUMP

0

F5'O

•*

•• ADDRESS
*. YES
... ON CORRECT
* .. BOUNDARY ••
II.
..*

•
0

.* •• 0

*.
.*

6

o.

•••

*

oo

.X ••••

..
'O . . . . . . . .

X

·****J5**** ...... *
PKit
*TSTCOR
.-*-*-.-.-*-*-.-*
*WRI TE PROB PROG.
.PORT! ON OF MAIN.
STORAGE
*
... **.*.*** **** ***

:X'O •• 'O'O ....... :

CDRE3
X
···**K4.** * •• *.* *
*
* MOVE LABEL
• LENGTH HOG TO •
* OUTPUT AREA *
*LOAO REGS 3 ANO.

BR

•• * •

.

:*;.~!!~.;!~!I;.:

0" ••
o

*

o
• 4

0

o

*

-

-

****
•
5 0
***.

0

Appendix H. Detailed Flowcharts

565

Chart PH.

Prepare Page Headings and PlOCS Subroutines
$$BDUMPD; Refer to Supervisor, Chart 29

··......
• 2

. ...............
····AI·········.

:

*

......

PAGHEO

: 1

*

:

:

....
.
·····B3............

....
3

*

*

*
*

:

*
•
•
.PJ ••••

·····81··.··.····
X

...

OUTPUT B VTE

...

AS CONTROL

...

...

:••••• 2~r~ ••••••:

EXEC INST

... USED TO CLEAR ...
..
120 BYTE
...
OUTPUT AREA
:

•••••• ** •••••••••

·····01··········
X

...

INCREMENT

...
...

REG 12 FOR
PAGE COUNT

: ••~!!~.!!~~~! ••:

X

. . ··.03·••X •••••••

·····El··········
... UNPK PAGE NO

..

PUT IN HDR

...

CLEAR SIGN

.................

••
••

BV 1

...

*

*

·····04. . . . . . . ..
.................
• LOAD AD DR OF
• SEARCHl CCW IN
• REG 6. STORE
• THIS IN TICI
ceN TO AD DR
•

•

••
• • • .o

•
..
•
•
•

x

X

. *.

•• ~ ••

.NO··

•• c:.

*.

OF PAGE NO .* .....
ZERO
.*

*.

*.

·····F3·········.
....x ...................
X

F2··· ••

•• LINE ••
•*
COUNT
•• NO
••
ZERO
••••••

••

.*
* ••
·YES

.

•••• ••••

.*

....

: 2

X

·

..................

.................
...

... INTO HI-ORDER ...
*DIGIT OF PG NO ••

HI

·····E4 ••••••••••
.LOAD AooR INTO •
-REG 6 OF OSKLI N.
•
(THE DATA
•
: OUTPUT AREA)
:

.................

·H2

SINCE LINE COUNT
IS SET JUST PRIOR

~~LlH~MRI~~'zHo

.* 2ND *.
.. HERE AND NEXT SEQ
.. _HIGH ORDER"' .. NO X INST WILL NOT BE
' •• DIGIT OF PAGE.* •••• REACHED FROM THIS
*.NO. ZERO ••
POINT. IF NO LINE
*. ••• * .*

COUNT
PROGR
ASSUM
WAS A
SUPVR
TIME

·YES

SET BY
AN
LUE WHICH
I GNED AT
ENERATIDN
USED.

i<

••••• J 1*.......... .
... SUPPRESS LOG ...
.ZERO BY HOVING.
"'BLANK INTO 2ND •
"'HI ORDER DIGIT.
... OF PAGE NO.
...

.....................
:x •.•••...•. :
x
·····Kl··
... •••••••
... MOVE JOBNAME
•
TO PAGE HOG •
•
: ASSEMBLY AREA :

.................
.....x .
....
*

:

566

1

*

•

:

•

X

• •• ·.F4 ••••••••••
• STORE OSKLIN •
AOOR IN CCW •
•
• USED TO WRITE •
•
•
COUNT KEY
AND DATA
•
•

...................

*
:

·····G3·X•••........

MOVE

• MOVE CURRENT ...
• AeDR TO OUTPUT •
AREA NAMED
•
•
• OSKlIN FOR USE.
• AS COUNT INFO •

.................

X

·····G4 ••••••••••
• LOAD AD DR OF •
• seEK CCN INTO.
• REG 6. STORE
•
• THIS ADDR IN •
CCB
•
•

.................

:.H2

.*.x *.

*

.

: ••••G2 ••••••• * ... :

•••
•• Gl ••• ••LOG
•• •••
... SUPPRESS
...
..
ZEROS BY
...

.. MOVING BLANK

i<

• STORE CURRENT •
• AOoR FROM REG 6.
• INTO SEEK CCW •

*

•

:

DOS System Control

·····H3·········.
X

• MOVE CURRENT
.ADoR IN FOR HAT
•
CCHHR INTO
• FIELD CALLED

•
•
•
•

.... .....:

:

~~;~~~

X

PRINTl

·····.H4··.· ••••• ••

SVC 0

•

SEEK SEARCH

•

10 EO WRITE

..............

...
•
•
•
•

.................

VERIFY.

X
• •••• J4 ••• ••• ... •••

**

REDUCE LINE

*

•
:

COUNT IN
REG 2 BY I

:

..................... .

....
....
i<

·····K3··.·.····.
X

•
•

STORE REDUCED •
ADDR BACK IN •
:S=~ty~EDR~bg~D :

: •• !~!2.~~~.~•••:

....x
....

: 3

*

:

•

CKD RCO.

X

• •••• J3 ••• • ••••••

• INSERT RECORD
.NO. INTO REG 6
• FROM SRCHBK+4
.. RE~UCE REC
NO. BY I
•

*

.................
cs .* . ••

.. .. ....
••

liD

••

•• OPERATION •• YES
••
COMPLETE
••• .o ••
a •••

*NO

····05•.•.•.•..
X

•

•

X

LOAD

·PK •

•• FlHIGH *. _.
.-ORDER DIG]T*. NO

i<

•
TEST UNDER
•
.MASK IF TRAFFIC.
.. BIT POSTED
•
:
IN CC8

...............
SVC 7

PR08 PROG
WAIT

..

•
•

:x .•••.••.•. :

E3
• ·SYSLST ••
EXTENT
•• YES
FILLED
••••••

• .o

•

·.··.85•••··.•·•.

ic

•
•
•
•

.•.x *.

..................

•

CMP CURRENT
AODR WITH END
ADeR IN 010
TO SEe IF

.................

:~~!~~~.!~.~~~~.:

·····E2*·········
•
DECREMENT
•
LINE COUNT

...

... ASSEHBL V AREA ...

•

•
•
•
•

•

*

x

ic
·····C4· .... • •••• ....
• LOAD AOOR OF •
• SEARCH CCW IN •
•
• REG 6. STORE
... THIS IN TIC CCW.
• AS THE TO ADOR •

*

i<

X

*

X

.................
•.••••••..•...•*.

.. CONY TO DCML
...
• STORE SAVE AREA-

•

INDEX REG 6 •
• 72 BYTES POINT.
•
TO OIB
•
•
ASSOCIATED
•

•

.................
...

...................

·····C3··.··.···.

·····C2··········
• LOAD ADDRESS
•
OF eeB
•
:
INTO REG I

· · · · · 0 2 · · . · · . · · ••
•
INSERT LINE •
• COUNT PER PAGE.
•
fROM COHREG •
:
I NTD REG 2
:

...

·····B4 ••••••••••
-STORE AoDR FROM.
REG 6 INTO
•
•
.. SEARCH AND
•
• SEARCHl CCW' S •

•
•
•
•

:••~~2~~.:~~e••.:

X

...

X

X

• PUT AD DR FROM
• COMREG+96 IN
• REG b POINTS
• TO DISK INFO

:.~~~;~~~!.~~~:.:

x
••••• c I ••••••••••
...

• F3·
PRINT

X

••• •• B2 •••••• • •••
• HOVE JOB DATE.
•
FROM CQHREG •
•
• AND PAGE NO..
• TO GUTPUT LINE.

...
Hove CHAR
...
-INTO FIRST OJ SK*

4

*

: 4

*

:

····e5...•..•••
X

•
•
•

...............
RETURN
TO AoOR IN
LINK REG

•
•
•

Prepare and Edit a Line Subroutine $$BDUMPD;
Refer to Supervitior, Chart 29

ella rt PJ.

.. .
<

1

..~**

•••• At ..... - ••••
REGPNT

X

.

**·*·A3··*
*eMP REG 3 .. ••••••
INDEX"
*BY REG 4 TO REG*
*5 LIMIT TO SEE *
..I FALL WRDS FOR*

..

:!.~~~.~~~~~~;~.:

<

* •••

: 5

. . ··.sl·····. ····
X

REGPNT
...

BLANK AREA

...

····82··. ·.•··•.

..

CALLED LINE

..

83
*.
NEXT i t .
... WORD STILL *. YES FOR REG 5.
•• IN PRESENT .* .••.
... LIMIT ••
* .. *84 .*
i<
* •••
. *.

X

***.

• 1
+

...

*

... EQUALS SYSlST ...
... SWI TCH I N Lac.

.

••••••• **-** •• *

-

X

*****G4**********

:~!~~~~-.-*-'*-~~:
*
WRITE OTF
*
*TABLE IN fiRS] *
* RCD OF sYStJo 1- *
.**.**** ... ********

:X ••••••••.••••••••••••••• :

*QB •

x

•

** ***H3*'*********
*INITIALIZE LOCS*
STSOOO AND
*
* ONSOOO WITH *
-lOWER LIMIT OF -

AI*
* •

*

INTPT1

:*~!r;~!;~~~~~**:

••

·H5
wHEN 110 HAS BEEN
COMPLETED, THE TAPE
SYS001 HAS A SINGLE
RECORD FILE CONTAINING
THE OTF TABLE. IN
ORDER TO CLOSE $V$OOl
AND SYSLNK. TERMINAL
PROCESSING MUST
RETRIEVE
THE OTf
TABLE.

.J4

X

X

**."F5*.*·.·**·
SVC 1
wAIT .H5

:x .......... :
X

**~..
'H2
LOADS AND EXECUTES
$$BOPEN TRANSIENT.

· .

-BOTH

TURN ON
SVSLOG

•

...

.*SYSLOG=*.

* •• *

.*

...

.* PRINTER *. EITHER
*. SYSLOG=5VSLST .. * ........

...
...

.*

X

*

* ••
*
AYES

· .

• OR

"'··*·Jl····**·

TAPEMARK
AFTER
RCOl
*****.*****.*

*****F4*******·**
•
SET UP cew
*
* AND eeB TO
WRITE DTF
TABLE

**G3***.***
*
OPEN
*
* SY5lNK AND *
•
SYS001 WITH '*
* OPEN MACRO '*
* .*****
*H2
•• ***

.*SYSLOG=*.

HI

*.

OPEN

*. NEI THER
*. SYSLOG=SYSLST .* .......
0*

svc a

WRITE A

X

F3
*.
.*SYS001 *.
A TAPE
*.
DEVICE
.*

*.

:.*.*~;!*~;~** . .

Gl

*** **-E5*·*·· * - ****

.*************

** ••• TURN
F 1******ON
...

...

x

X

****·E4*.* •••• ***
*
5ET UP DISK
*
• SEEK ADORE S5
*
•
IN LOCATION
*
ADDRESS
*

*****E3·**·***
TURN ON
*
- 5Y5001 EQUALS*
TAPE SWITCH •
IN LSTPSW * *

OPEN

...

*****J 3**********
*
BUILD A CCW
*
* TO WRITE THE *
OTF TABLE
-

: ••• *~;!.~;~** . .

STSOOl AND ONSOOl
ARE INITIALIZED WITH
THE 01SK ADORE SS OF
THE COUNT 1.0. FIELD
AS SPECIFIED IN THE
DTF TABLE. NOSOD1 IS
INITIALIZED WITH THE
UPPER LI MI T OF THE
EXTENT OF SYS001.

x

·· ..
****

•

1

•

X

·****K3*.·*_*.**.
SET UP
OVERFLOW
*
FACTORS FOR
*
SYSLNK

.

**** **-***-** •• **

-· x ..
****

•

4

•

Appendix H. Detailed Flowcharts

575

Initialization, Part 1 (Part 1 of 2) $LNKEDT;
Refer to Linkage Editor, Chart 31

Chart QB.

•••••
•

·•••••••••.•

X

X

-gA •

• •G""•
INTPTl

• 1

W~ijEEON

• 2

·····.A2···········

••• •• Al· •••••••••
•
ALLOW I
•
:
•

·•••••••••.•

•

:
•

OPER~foN
••••••••••••••••••
•

•

.............
SVC ~
LOAD
SLNKEOT4

•

.•.•.82···.··••·•

.................

•
•
.................

•

INITIALIZE

• DATE AND JOB
•

X

• RESTORE REG 0
• TO lTS VALUE
• BEFORE THE
•
LAST SVc.

•

DATE AND NAME'

• FROM THE COM" •
•
REGION
•

.'.x *.

X

2 •
•• ••••
•

•
SAVE THE
•
fADDRESS OF THE •
•
COMM REGION •
fANO SET SWITCH'

.................
• INLEXT TO NOP •

X

·····El·······.··
• SET UP ENDING'
•
ADDRESS OF
•
•
$lNKEDTO IN •
• REGISTER ONE •

·..................
·.··.Ft·······
·...............
X

•
MODIFY lOC •
•
OTHMTX TO •
• LOAD AD DR OF •
•
SlNKEOT2
•

······Gl···········
X

•

SVC 4
LOAD

.............
SLNKEOT2

•••

••

• •••• A4 ••••••••••

.. ..

.................

•
•
•
•

:x ........................ :

x
.···.83··········
.................
• SET UP START •
• ADOR OF CTRl •
• DieT AND INIT •
.FIRST CTRl DICT.
• ADOR
.C4.

··.···C.2.·.·••••••. ....·e3.·········
.... ................. .................
• •

Cl
.*lItK OR *.
MORE
*..*ooNO•••
*.• '*. AVAILABLE
CORE
.f
*. *•• ' .*
x
eYES

·····01 ..·.•·..••

X

A3

•• LINES ••
.INITIALJZE LaC.
•• PER PG IN •• NO
• OVERflOW AND •
•• COMM REGION •••••••••• X. HDNGSP WITH •
•• LT 10 ••
•
LINES/PG IN •
••••
•
eO"M RGN
•
·YES

·····81 .•..••..••
ic

NOLNPG

•

X

X

•
CALC. THE
•
LOAD ADDR
•
•
• OF SLNKEDT6 IN •
•
REG 0
•

•
FIND THE
•
.HIGHEST LNKEOT •
•
PHASE ADDR
•
.USING A SERIES •
.OF COMPARES .E4.

·····02.····••

.•...03··········

X

• "ODIFY LOC •
CTUHX TO •
•
• THE LOAD AD DR •
•
OF SLNKEOT6 •

•
•
..............
X

······E2···········
•

SVC 4
LOAD
SlNKEOT6

X

• SAVE I/O AREA.
.ADDRESS IN LOC •
• AWKARE + INIT •
• CCW 110 FIELD.

·.................
·····E3··········
.................
X

.AOO 8LOCK SIZE.
•
TU 1/0 AREA '"
• ADDRESS WITH •
.RESUL T OF CALC •
•
IN REG 2
•

X

••••• Fl.··.······
• RESTORE REG 0 •
• To ITS VALUE •
•
BEFORE THE
•
LAST SVe
•
•

•
•
.................
X

·····G2.·····.···
•
CALC ENDING •
ADDRESS FOR •
•
• 5LNKEOT 6 AN~ •
•
SAVE IN LOC •
•
VCTLNO
•

............•....

'C4
1. cnCAD IS INITIALIZED
WITH THE HIGHEST PROBLEM
PROGRAM ADDRESS.
2. CDENT! IS INITIALIZED
TO TttE FIRST ADDRESS
AVAILABLE FOR A CONTROL
OICT IONARY ENTRY.
CTLDAD-16 EO CDENT1

F3

x
.'.
••

··..........
• 3

•

·····FS··········
.................
X

•• CALC ••
YES •• ABOVE GT ••
• ••••• END AODR OF ••
•• $lNKEOT6 ••

........
'NO

··.•·G3···.··.·.·
X

• SE T uP REG 2
•
WITH END
•
ADDRESS
$lNKEOTB
•

·E4
•
WHEN LGADING liNKAGE
EDITOR PHASES INDIVIDUALLY
~~¥GI~~D A~~AtH~W~~~EOF I S
THE LONGEST LINKAGE
EDITOR PHAH.

•
•
•
•

·..................

.CAlC THE HIGHER.
.OF: END OF Lbl •

:~~~AO~D~~OR~~~

• PROTECT AOLK

:

•

·····Gs•••••·•·•·
X

• ADJUST HIGHER.
•
AOQRESS 1:1
•
•
DOUBLE WORD •
•
BOUNDARY
•

.·................

:.•..•••.•. x:
X

·····HI··········
•
•
•
'"

CALC LOAD
•
ADDRESS OF
•
SLNKEOT4 IN'"
REGI STER 0
•

•
•
.................

X

•• • •• HZ··········
•
SET UP CCW
•
•
ADDRESS FOR •
• PROPER LOCAT ION.
•
IN SLNKEDT2 •

.··.·H3··•.··.•·.
X

.SET UP

~TART

LINKAGE TA8LE •

• USING ADaR IN •
.REG 2-INlTIAl- •
• IZES lNKTAD •

x

..··.JI..··.·.
X

•
MODIFY Lac. •
•
IPTMTX TO •
• THE LOAD ADOR •
•
OF SlNKEDT4 •

•
•
..............
••••.
·•....
•
x

• 1

576

•

OF.

·.................. .................
•

X

·····Jl·······
..............
•
•
•
•
•

seT LOAD SW.
TO BRANCH •
CANCELING
•
INDIVIOUAL •

PHASE LOADS.

·•.•...•••x .•
• 1

•

DOS System Control

•• ••••
•
3 •
•••••
•

X
• •••• HS
•• ••••
.SAVE
END
OF •••
LBL.•
.AaOR AS END OF •
.SUPERVISOR AI"D •
•
FIRST PHASE ..
•
ORIGIN AODR ..

.................
.....
•.•
x

.Qe •

• 81·

Chart QC.

Initialization, Part 1 (Part 2 of 2) $LNKEDT;
Refer to Linkage hditor, chart 31
o

-

1

*

- 2

X

ACTRET
X* * ** * A3**********
*ROSOOO
QO*
*-*-*-*-*-*-*-*-*
* READ INPUT
*
FROM SYSLNK *

*****..
*QB

HOGMSW A5·*·
**"***A4**"********
*
SET UP
*
*.
* CHARACTERS
*
NOP • *
CLEAR
*.
*-CLEAR- IN MAP *x •••••••• *.
REQUEST
* PRINT AREA
*oo SWITCH

-

** ** ** *** *********

.. H5*

*****************

* •••

'BR

.-

* *

-

: • • • • • • oo.oo • • • • • • • oo . . . . . . . .

• <.

Bl

*****62******..

.* LSTPSW
it.
YES
...
*. SHOW SYSLST •••••••••• X•• ASSIGNED .*
..
.....
.*

......

TURN ON
MAPSW

..

ASSUMING THE

MAP OPTION

...

63
*.
.* FIRST *.
• *BYTE OF CD *. NO
*. IMAGE BLANK .* ....

..

..

..

:x .........
x

PO INT TO
NEXT CARD
COLUMN

:*.~~~!.~;~~~~*.:

SYSTEM

HOGCAN
• 0

x

** ***05·** ** *****
*
SET UP
*
* CHAR ACT ERS
*
* -CANCEL- IN *
*
MAP PRINT
*
*
AREA
*
.****** * ** ******.

*.

.*CARD IMAGE *. YES
*. TOO LONG
.* ..•.

..

.. OIRECTOR. Y Reo ..

- .

* •• *

*** *** **** ... -It. ***

*NO

x

.*
E 1"
*****...
.. ***
IN! T
.. ****
LNKEOT

E3

.. LOCATIONS FOR *
.. PHDAt THPHOA, ..
..
CYLIST, AND
..
*CILAST FROM SO ..

:VES

* •• *

*NO

< •

*
*

x
.*.
*.

INPUT
BLANK

*****..
*QU
... F2-

******* ••• *******

1

-o

5

*

•

: . . . . . . . . . . oo

x

.-

*.

.'

*. ** *E 5** * ** * * ***
*PRINT
QJ*
*-*-*-*-*-*-*-*-*
* PRINT ACTION *
* I NFORMAT ION *
*
ON MAP
*
*****************

- .X
-

....

-.

FULL

.<

*.

.'

.* ........................... ..

.*

*.

it • • -It

* •• *

*NO

X

·.***Gl**********
SET UP SEEK
ADDRESS FOR

*
RCD 2 AND
* REINITIALI ZE

...

*

*
*

x

-

..x.*- 3

............... x.
NOT ACT

*** *G2* * *** ****
ABTERR
CHAR T OM

*.

:**~~~!*~;~~;~**:

.*.
G3

*

*

-

.- -.
X

****F4**.******
RDNEXT
CHAR T QP

.*

-NO

MAP
SWITCH ON

.-

.*

****"*F5*****"*****
.INHIBIT SET UP *
* OF NEtI PAGE •
I F OVERFLOW *
OCCURS

-

o

•• ***
*QU *
* AI*

*
ACTNPR

X

ACTR16

*****G4**********

*. *.

NO

**

SET UP eGB

.* ••.••••• X*

*

BR •

AND CSW FOR

*

SYSLOG

X

*NOP

HDGMAP
X
*****H3**********

-

*****H 1 *** ** ** ***

:~~~~~~-*-*-*-~~:

* INITIALIZE
- TO PRINT MAP
: HEADING LINE

* READ SECOND ...
* RCD OF SYSTEM '*
*
01 RECTOR Y
*
*'* ****** ** * * *****

*
*
:

:~~~;~~-*-*-*-~~:

NO .*
*.
••• *. RELOCATABLE .*
*. LIBRARY .*
X
*.* •• *.*
****
AYES

* SPACE TO NEW *
*PAGE AND PRINT *
*
HEADING
*
**************"***

1

*

X

i

,

:x ............

.
•
-

x

****

*

1 *
****

X

****K2*********
ACT RET

*

oo.oo . . . . . . oo ..... oo.oooo:

- ****

o

2

*

*.

*.

.*

--

**
*

*
RDEXEC

X

* .. iIi·*J5 ... ***· ...... • .. •
• SET THE AODR *
OF LOC RDEXEC *
* AS NEXT INST *
*TO BE EXECUT EO •
•
AFTER SVC 1 *
*.***-***-* .. ***.*

'*

<.

6

* •••

li.CTERR

***"**K3"*****"*****
* SET UP PRINT *
*AREA WIlH CHARS*
*-ACTION TAKEN- *
AND -MAP-

H5

****.
*QP *
.. C3*

**"***J4********·*
* SET THE ADDR *
• OF LOC ERROR *
* AS NEXT INST *X •••
*TO BE EXECUTED *
* AFTER SVC 1 *
****.***** ***. ** *
•

*

• *.

.*

BR • * MACHINE
*.
..oo *. CDNFIGURAT ION. *
•• GT 16K SW.*

*.

•

x

-

I NLEXT

•• X* 4
** ***J 3**********

*

- -

X

****·H4*******
*
OVERLAy *
* PRINT ROUTINE*
* WI T~OS¥¥~€AV * *

*********** ******

.0. *.
J1

*****K 1**********
*INITIALIZE LOC *
*
RELDST WITH *
* THE STARTING *
* AODR OF THE *
* RELOC LIBRARY *
*****************

ERROR
*.
ON ACTION .*
•• CARD SH ••

*

* •••
- 5

<

G5.*.
.0

* ••
*
-YES

*

.*

o.

* •••

4

HDGOV~**

X

F3
*.
DOES *.
THE OP
*. YES
*. FIELD EQUAL .. * ••••
*. ACTION .*
.*

YES

•

..

*

.*.

F 1 .* ..

.X:

x

***** *E4********* **
ERROR
QR
*-*-ERRortMSG-*- *
*21121 ~ 2135; ,*
21361
*****.*****.*

x

.*.* Cl
*.
LIBRARY

X:X

C5"*.

BR • * CANCEL
•••• *.
REQUEST
*. SWITCH

u3·*·

.*

QM-

*-*-*-*-*-*-*-*-*
_READ THE FIRST *
...

: ••••••••••••••••••• a ••••

* ••
*
*NOP

x 'If."" •• _

.*" ••

-

*

II-

SYSTE~\1t

.. DIRECTORY 6.ND ..
-INITIALIZE THE ..

01 •• *
*DISKIO

-

:FNDVR8
X* *** *C3* *********

*****Cl·*·*·* .. *·*
SEEK

*

........... x:

o ................... :

*BR

. - 3

x:x

*****84**********
B5
:
CH~~rC¥~RS:
NOP • *. * NO AUTO
*•
* -NOAUTD- IN "*X •••••••• *.
REQUEST
oo*
*
MAP PRINT
*
*. SWITCH .*
*
AREA
*
*• • *
*.*.*.**** * •• *.**
*. • *

*.**


>

..

Extract Phase Number subroutine $LNKEDT; Refer to
Linkage Editor, Chart 31

XTPHNO

>
>

..

*

• 1

>
>

* •••• *

.·...82··········
il

XTPHNO

.. SAVE THE CTRL ..

.. DIeT AoeR OF ..
.. THIS ENTRY
..
.. IN REGISTER 1 ..

.................
>

•

.··.·C2··········
il

..

TEST THE

..

*CTRL DIeT TYPE ..
..
FIELD FOR
..
.. THI SENTRY
..

.................
•

*

·····84·•.·•.••..
X

>

•

.................
.. RESTORE CTRL

..

*

•

.. DIeT ADDRESS
..
IN REG 9

..
..

····C4· ••••••••
X

...............•

-RETURN TO LINK ..
.. REGl~TER AOOR ..

•

x
0>0

•*02 * ••. *•
YES.*
...
.*. EQ TYPE
so OR
.*
*. PC
*. *•• - .* .*
>NO

···.·EZ.·••·••·••
i

.. GET THE ESID

..

..

FOR THE SO

..

..

BELONGS TO

..

•
•
.................
..

THI S LU/LR

..

.•.••Fl.····.·
i

..

..

MODIFY LINK-

REG TO PRO- ..

..............

.. VIDE REENTRY '"
..
TO THIS
..
..
ROUT JNE ..

i

·····G2··········
*-.-.-.-.-.-.-.-.

.L TeOAO

QE.

.................
• GET eTRL OIeT •
• ADDR OF SO/PC •
•
ENTRY
•

:

0 0 0

0 0 0

0 0

0

oX:
X

XTPHGT
••••• H2·········.
•
ZERO REG 2.
•
.GET HIGH ORDER.
•
3 BITS OF
•
• PHASE NO. IN •
•
REGZ .HIt
•

.................
X

••••• J2 ••••••••••
• JOIN lOW ORDER •
• BYTE Of PHASE •
NO. TO HIGH •
* ORDER BITS •
•
IN REG 2
•

*

•••••••••••••••••

....
....
x

•> 1 ••
•

584

>

DOS System Control

*H4
THE PHASE NUMBER F I ELO OF
THE CONTROL OICTlONARY ENTRY
IS SPLIT. THE HIGH ORDER 3 Bns

~~~ ~Eg~ f~EBHp~o~mg~sT~~ 2,
ENTIRE PHASE NUMBER fIELD HAS

Mmr~GO~Hl!eBA~~&E~~~~

UP TO 201t7.

Chart

Read/Write Subroutine $LNKEDTi Refer to Linkage
Editor, Chart 31

Q!Vl.

* 2

*

"..-AI-·*·-----

*

*

****A2**·****·*
WRITE

READ

·«**AS*··***···
ABTERR
***.

••
*

--·.·.91··*x -........
~OVE

...

READ

...

... OP CODE INTU
:
CCW,RO'nRCl

.it _it_

it • • • it ..... _

...

.it.

·

x

•• _. *82* i t . it .... it

...
MOVE' WRITE
... OP ceDE INTO
:
CCW,RDWRCI

: . . . . . . . . . . . .o • .o.o.o • • • • .o .. .o .....

.it..

B3

••

* •• *

x

.it._.

it- ••• _••••

*. __ .....

..

it • •

PUT

ACDRESS

...
OF eGB IIHO
... REGI STER ONE

·

..**D2··· ... •••••
DISKIO

.

03
YES.*
0.0.

it.

*

.*.

ADDRESS
*
..****.** .... * •••

*

SET UP
FOR FETCH
OF PAS!) 2

X

**··cs.·* •• *·**
svc 1
fETCH
$LNKEDTA

+ •
<.

OP

CODE EClUAL

it.
.it

NOP

...

.

•*

..

..
..

*

....
•

•••••••••• * ••••

.................. • x:x .................................... :
x . . it.
_.... *... E 1* it._

:OISKIO

...

x

it-._ ... __ ._.

SET UP CCW AT ...

••

* * ***C3****·*****
*
*
TEST CCW
OP CODE

... PUT THE: OI SK
ADDR OF THE
BLOCK-CHHR
INTO LOC
ADRESS itit .....

_ ....... _ 0 1*****

***·84***.* ......

*. YES
*RETURN TO LINK
.* ............. X*
REGI STER

** ··*85 *** ** •• ***

*NO

:x ........................ :

...
lOC DSI<.WHT
.. WITH ROWRCI.
.. PUT cea ADIJR
...
IN R=G RB

X:

x

...

FOUND

_ • • _ itit . . . . . . . . . . __ . _

....... C 1* it_ ...... _.. _•

...

• *.

• * .' RECORD

...
...

X

RDWRMV

*

1

it.

•*

E3

.*. *.
OP

NO

CODE EQUAL
. . . . . ..
*.o
READ
.*
<.

*

it . . . . . _ .... it _ . _ • • it_it+

:................ x:
X

*** ••• Fl**.· •• ** •••
SVCG
EXECUTC
01 SK

VALOVE
X
*****f3*********·
....
TEST CCB
....
*
SYMBOL Ie
•
UNIT
fiELD

.

I/O

•• * ...... ** ••••••• *

.*

it.

Gl

x.

.'

it.

it.
YES
I/O
.* .....
-.COMPLETE .+

*.

* ••
*
*NO

.*

G3···
**·*G2···*·····
.*
*RETURN TO LINK"
YES.* SVSOOO
••
.REGISTER PLUS 4*X ............ *..
OR
••
•
•
..... SVSCOl
.*
.* ••••• *** ..... *
*....

.....
*NO

:x .............. :
*

.***.H3*········ ....

****H 1 *** ******

«

svc 1
WAIT
***.* .. **.* ... * ...

•

:x ............ :

:YES

..... *..

*

TEST THE
cca TO
DETERMINE
I/O STATUS

•*
*..

Kl

.*. * •

* ...
*
*NO

ERROR

*

..

*
*
•

....x
2

•
•

*

*.

EOF

*.

INITIALIZE

* MESSAGE 21941 •
*
..*******
•••••• ** ..

x
.. * ... *J 1**********
*

i

ERR094

X

.*

••

x

**
*

.* ••
1

**
*

Appendix H. Detailed Flowcharts

585

Chart QN.

Overflow Test Subroutine $LNKEDTi Refer to
Linkage Editor, Chart 31

****A3*****··**
CDSIZE

.

X

CDSIZE

**
.4* B3*** *** ... ***
* COMPARE ADOR ...

.. OF LAST LINK

..

*

... TBl ENTRY PLUS
..
3 WITH LAST

If

*CTRl DIeT ENTRY ...

.. *** **** * •••• * •••

X

ERR044C

......

•*

C3

*•

LINK ....
YES .... TABLE ADDR * •
.... .• *.
NOT lOW
.*

*..

..*

* •••
-NO

x

« ... ***D 3***

.*..•..

... TEST CTRL DIeT ..

..

NUMBER TO

...

*

.. OETERMINE IF

...
..

IT EXCEEDS
2047

..
..

**** *************

E3

x
.*.
*•

• * GTRl *.
.. .... **E4*********
.* DIST NO.
NO
-RETURN TO LINK ..
*.
GT 2047
.* ...•.•.• X... REGISTER ADDR ....
• tt
*.
il.

:.......... x:
X
** ** ill F3·lttl

ERR044

it . _ . . . . .

..
..
..

..

INITIALIZE
ERROR

~ESSAGE

*.
...

.

...
OF 44 ..

••• * ............ _••••

x

***ERROR
***63***********
CR
... -*-*-*-*-*-+-*-*
S END ERROR
MESSAGE

21441

*************

X

..

****H3·********
RDNEXT
CHART QP

..

(

586

DOS System Control

Chart QP.

Read Input Stream $LNKEDTi Refer to Linkage
Editor, Chart 31

** **A4* ** ** .... **

****Al*********

EXLOAD

ALNKOF

***-li

·

•< 1

x

X

*****Bl§******
'* SET SWITCH *
..

*

AT

END OF

AUTOL! NK FOR

*

•* * ***
B 3*** iHHi *
NOP SWITCH ..

••• *82* •••• * •••

*

RDEXEC

RDSOOONO DUMMY
PHASE CARD

..
..

NOAUTO

*
.. ... *

....

..

..
it

*

RESTORE

ADDRESS OF

CONTROL CARD
READ

.*

01
-It.
.*RETURN *
TO

..

..

AUTOLINK

·

CARD PROCESSOR,
$LNKEDT4.

0

0

0

00 0

0

0

0

0

0

0

0

0

0

0

0

0

0

0

0:

*NO

X
C4·*·

.*

*.

.*SLNKEDTZ IN*. NO
*.MAIN STORAGE ••••••
*.
.*

.

*C5
REGISTER RD
I S THE BASE
REGISTER FOR
ALL THE OTHER
VARI ABLE
CONTROL SECT IONS.

...* *- ** ***-* ** .. ***

OHPHSW
X
- * **- 0 3* * *.- **_.*
* SAV E THE AODR *
* OF THE LAST *
* DISK 1/0 IN *
*
LOCATION
*
*COMNRF
*05*
** **** ***********

*.
BR
.* ....

x

* ••
*
*NOP

0

* •• *

*
*
*

................................................ X..
it
.. * ••
*C2
I FIN SUB MODULAR ,
ROEXEC
X
SKIP ALL CARDS
**** *C 3** ***** ***
EXCEPT AN ENTRY
*PUT THE ADDRESS"
CARD. FIND THE
* OF A T ABl E OF *
*PHAS E ADDRESS ES*
ENTRY CARD
AND FETCH CONTROL
*INTO REGISTER 1"

x
* ••• * C 1""" *.*. * ••
is-

5

0

B4·*·

* ***B5 ******** ..
.* REQUIRED *. YES
* BR TO ADDR
*
*.PHASE IN MAIN.* •••••••• x* IN BASE REG *
*
*C5
..
.... STORAGE ••
*oo
* ******* ... ** ** **

*
it

**4*****li****** *
o

:Xo
x

EXLOAD

* •• ***

:*05
MODIFIED
IF A DUMMY
PHASE CARD
IS GENERATED.

X

****_04"'*******"'*
*
SAVE VALUE
*
* OF REGI STER *
*ONE IN LOCATION*
OVRXFR
*

*QQ

*

A2*

ALNKPR
****E2*********
RON EXT

x

.

.

**** * E 3* ******-**
*•
*
*

*GET BYTE COUNT *
OF RLD INFO *
* TO BE WRI TTEN *

*<
*

TEST COLUMN
ONE OF THE
CARD IMAGE

*

*

•

*** * * ... *** .. * * **** *

'*
..*

SY5RES INTO

F3·* •
NO • *
•••••• oooooooo...... .....

*

oo*

.*

*.

Gl

12-2-9
CARD

*.

... REGISTER 0
*
* ... * **** ... **** * ...... **

RELBSW

C TLSKP

INPUT ...
BR.*
FROM
*.
••• ~*. RELOCATABLE .*
*. LIBRARY .*

GZOO

.*

*oo

*.

0*

* ...
*
*YES

*
*
*

NO
'II-

ANY
RLD INFO

NO

.*

.* ••••

*..

0<

.*

NO
.* ••••

X

**G5***it***

*****G4** ... *******
*WRSOOI
RS*
*-... -*-*-*-it-*-*-*
* WRITE PASS 1
RLD INFO

TEST THE
CARD IMAGE
FOR TYPE

NECESSARY

* ••
*
*YES

* SVC 4
*
* LOAD PHAS E *

* SPECIFIED IN *
* LOC FCHPHS
*

*

*
****-It * *** ******* *

* ••
*YES

*.

i<

**** * G3**** *** ***

SUB

*.

FS.*. *.

.* IS
*.
.* THIS LOAD * ..

* ••
*
*YES

x

*. *.

MODULAR
*C2
•
0*

* ••
*
*NOP

<

X
LOADSW

F4·*·
.oo

<

****

X

.'If.+.

X
* ..... F 1
* .....
*
LOAD THE
*
SYMBOL Ie
* ADORE SS OF
...

RDNEXT

-II-

• 4

*

x
..*......ox .......................... ...
'*

3

*
0000000000

X

.......... itH1***·" ""***
*
LOAD THE
*
SYMBOLIC
ADDRESS OF
SYSLNK TO
* REGISTER ZERO
** * *** ...... * ... * ... *****

:FNDENT

• 2
* **-It-lt

oX:

H2.~.

•
IS
*.
.YES.*
NEXT
*.
.... X*. CHARACT ER A ....
*.
BLANK .*
0*

ROUNIT
X
*****J 1**********
STORE THE
ADDRESS OF
*
THE UNIT IN
*
:
CCB, RDCBOO :
* .. * ***** **** ** ***

.*

x

x

** * **K 1 ***** **** *
*ROSOOO
QD*
*-*-*-*-*-*-*-*-*
READ THE
*
INPllT

J2

ENTRY
CARD
IMAGE

*.

* ...
*
;: '" ~

....

*
*
<

·

X

<

•

<

***"*K2"'*****",
... RESET SWITCH*
MODSTS TO *
SHOW END OF
*
SUB MODULAR *

* 5

*.

*0

x

****

x

•

*

*
*

x

...... * ... *K 3*"******* *
*
INCREMENT
*
.. REGISTER ONE ..
.. TO THE NEXT *
* TABLE ENTRY
...

·

** *** ... ***** ... *****

· .
•

•

2

**********11****

**-It ... ***

.

****HS*********
BR TO ADDR
*
IN BASE REG *

:"'J5
REGISTER 0 IS
CLEARED TO
I NSURE NO
DVERRI 01 NG
TRANSFER ADDRESS
IS PROVIDED FOR
THE SVC 4.

.x ............

NO
...... .

*YES

X

RESTORE
REGI STER

*. YES

.*

X

.* •
J3

*0

*

1

*.

ESD
TYPE

CHKSYM

• *0

*

<

.*

*.

• 3

•

X

**l,**H4*** **** ... * *

•

: .......... x:

<

:x ........... :

X
H3·*·

<
<

*** ...

2

RDPHAS
X
*****J4*.***.*-ItIl*
*
PUT PHASE
*
*NUMBER INTO LOC*
*
FCHPHS AND
*
* CLEAR REG 0
*
*J5
*
*************-It***

*

LOCA TI ON FCHPHS

I S LOADED WITH
THE NUMBER OF
THE PHASE TO BE
FETCHED NEXT

0

<

*

it

«-***"'K4**********
* LOAD BASE REG *
*
RD, WI TH
*
ADDRESS OF
PHASE TO

:***2~*;2!2~2***:

*

*

****

4

•
•

****

Appendix H. Detailed Flowcharts

587

Chart QQ.

Autolink Processing Subroutine $LNKEDTi Refer to
Linkage Editor, Chart 31

AlNKPR

*B3
THIS IS THE
HIGH MAIN STORAGE
ADDRESS •

X
it* *82* **** .. it.itit

ALNKPR
.. •

.. INITIALIZE: TO ..

... ADOR Of LAST

..

• CTRL DIeT ENTRYMINUS 16 IN
*

-It

-REGISTER 9

•

1

*83*

..... * •••••••• ititit •

it* •• *

X

TYPEV8

*_ ........

.. ****C2*
* IN!T PHVERB
.. I1ITH .. OR E,
.. NO P AUTOLI NK
..

..
..

*

SW, RDALSW,
CLEAR REG 6

«

..

*

.it* It * •• * .*it.*.it.*

: ........................................... x:x
ALNK SC

•

•*

02

it.

END

AlNKCD

*.

it.

it.

YES

.it

.* ......... X*.

DICTIONARY

*.

.it

.. "
.NO

x

.. *** *E: 2* _'II' it.

*.

* it it
DECREMeNT
*
REG 9 SO THAT *
IT POINTS TO
*
THE NEXT CTRL *
DICT ENTRY
*

RESOLVED
ER'S HAVE AN

X

GZ'O *.
• * ER
*.
•
• .POI NTED TO *'O YESX
*'O
RESOLVED
.* ....
'Gl

'. *oo

oo*

'NO

HZ· *'O *'O
.* HAS *.
• ___ THE SEARCH *. YES
REG BEEN
'O* ••••
*. LOADED • *
*.DNCE .*

*.

* •• *

'NO

••• 'O ... 'O.o .... •

x:

x

:ALNKVL
* ****J2* ** *. ** ***
*LOAD THE SEARCH*
REG, REG 6,
*
•
* WI TH THE CTRL *
* DICT ADDRESS •
*
IN REG 9
*
* * ****** **** *****

'Kl
THE WHOLE
NAME FIELD
OF THE ER IS
K2

:X •.o ......... :
x
.*. *.

• *LOWEST *.o
• NO.*
ER IN
*.
•••• *.COLLATING SEC.*
* .. IN REG 6 .*
*. *Kl • *

* •• *

*YES'

****
*
•
• 1

588

ALNKOF

.

DOS System Control

:X ....
x

'O . . . . .

AlNKGT
*****G3********* *
* SET UP REG 1 *
*SO THAT A FETCH*
*
OF PHASE
*
$LNKEDT6 IS
*
* INITIALIZED *
* * ****** **** *****

. .
• 1

SEQUENCE.

x

*R T-G5
RX-F~

......

~~-;~;,Gl,J5

*YES

'Gl

OETERMINE WHICH
ER I SLOWER
IN THE COLLATING

*****
*QP *
* * A;*

x

.*

*.

NO

*Yf;S

** ***F 3****** * ***
* MAKE AUTOL INK *
* I N PROGRESS
* SW, RDALSW,
*
EO BRANCH

*

TESTED TO

*.

FZ· *.
*
*. *. NO
.* • CTRL
DICT
*. ENTRY EQUAL .* ....
*.
ER
.. *

'*

THE CONTROL
DICTIONARY.

••

RESOLVED ER ••••••
it.
IN CTRl .*
*.DICT .*

...
*** *** ** ** ** ** * **

...

IN THE

••

** *** E3**********
* MOVE HEX FF *
*INTO CTRL OICT *
-It
ASH ORG FIELD ...
* AS INDN OF
*
*RESOLUT ION TRY *
** **** * **********

..

FF

.*.
ANY

MORE UN-

it • • it

it . . . "

TENTH BYTE OF

03
.it

it.

... OF CONTROL

•

X

*

****H3* -a.*****-a.*
EXLOAD
*
CHART QP

.o ....

'O'O

• • • 'O ..

'O • • • :

Chart QR.

Non-Abort Error Subroutine $LNKEDTi Refer to
Linkage Editor, Chart 31

---*Ai .. it __ ...

it._*

ERROR

* 1

X

*****81*·*·*·TURN ON

...

...

ERROR CODE

... _ ... _ *82 it it • • • • i t . i t .

*

.

... IN MAP SWITCH
MAPSW

...

*

x

·

... it it ....

01 *.*

it

THE PR AREA
*
**** *-** *- ** ***-*

x

.

***··C1*·*·*****·
CONVERT
ERROR CODE
TO DECIMAL

SET UP THE

... NON VARI ABLE
... FIELD OF THE
*
... CARD I MAGE I N it

it

X

·

X

NOTC TL
it

* ****C2* ** ** ** ***
SET UP REGS
•
- AD DR OF _
-II
VAR FLO, PR
•
-AREA ADDR, AND *
-CNT OF ESDI L1NE*
* **. ** ** ** ** *****

*

*~HTH

it. it**._-

...

MOVE ERROR
CODE TO

*.

PRINT AREA

..oz·

X
*•

AN

*.

'{ ES

ESD CARD

.* .................. .

* •• *

-NO

.it

.*

El

x
.*. -.

12-2-9
TYPE
CARD

it • •

*

it. **-11. F 1* x

i t i t i t • • -It ..

MOVE CARD

I MAGE TO
PRINT AREA

it..

.. _*it_it_._ it. it. *.**
*
*

._.. *

•

OF WORDS

TO CONVERT
COUNT TO
*
9
* ****. ** ** ** *****

_it ....
*

• 1

... 2

*

YES

••••••
....

.. NO

·

:x ............ .

x

* .***EZ* **** _.**.
* RESET NUMBER *

_.

**

TISESD
X
* *-li* * E 3* * _***-li***
•
CONVERT ESO
*
•
VAR FLO TO
*
HEX AND
* UPDATE REG
POINTERS
-Ii
*-li **** .*** •• ** *.*

:X ........... .

NTESLP
X
* **"*F 2* **** *.-li ••
•

CONVERT WORD

-Ii

TO HEX AND
•
*UPOATE REGISTER.
POINTERS
..
-Ii

F3 .*. *.
.. *
••
.* ESD/LINE *. NO •
*. COUNT EQUAL .* •.••
*.
0
.*
.*
* ••
*
AYES

•

it • • •

PRER~***

*

X

X

*****Gl**********

:~~~~~!-*-*-*-~::
SKIP A
SPACE

6Z· *.
•••• WORD
*. NO •
-. COUNT EQUAL .* .•••
*.
0
•*

:X ................................. :
X

••• 'It.Hl_ • ...,"'._"' •• _

:!~.!~1*_*_*_*9i_:

... IPRINT ERROR
..

NDESLP
X
:-li-li**HZ***-li-li-li*-li_:
BLANK LAST
PRI NT BYTE

CODE AND

: ... ~St\.~D* .I.Mi\,G.E..

it • • :

-li-li-li*

X

**tt**J 1" * ......... .

:~~~;~;-.-*-*-~::

...

-*
*

2

**
*

SKIP A
SPACE

X

"'*·+Kl*********
RON EXT

CHAR T OP

Appendix H. Detailed Flowcharts

589

Chart QS.

o
..

o

Overlay Subroutine
Editor, Chart 31

····AI········.
...............
DVRlAY

$LNKEDT~

....

0

..
0

o
o 1

,

*•••

Refer to Linkage

0

,

0

X

OVRLAY

Bl

•• oo

*oo

•* oo· NORMAL

*•* ..

YES

*oo PRINT ENTRy . . . . . ..
*. *oo
.*
*oo •• .*

..
..

o

..·.83·········
X
svc. 7

...............
WA IT

..
..
0

°NO

·····e1··········
.................

OVRLAY+4

·.·.·C3··········

X

X

o

.. SET UP START ..
.AND END PLUS 1 ..
.. ADDRESSES OF
..

• MAP I/O AREA IN.
*A PAIR OF REGS ..

·····01··········
..................
PUT AOOR Of

..
nilS IN51
.. RELATIVE TO
• START OF PRINT
.. RTN IN A REG

..

..
..
..
..

.................. x:
X

·····El··········
.DECREASE VALUE
IN REGISTER
•
POINTING TO
•
.END OF MAP 110

•
•
•

.................
•

AREA

•
•

.0.x

Fl·.
.• YES •• o..110
•.
AREA ••
. o....... •. BLANK
o.. ••
•. 'NO
o.. .

.. .
X

·····Gl········ ••
•
CALCULATE
•
LENGTH OF
•
•
•
MESSAGE I N .
• MAP 110 AREA •

.................
o

0

X

··.··Hl··········
• SET UP COUNT •
• FJELD OF CCW •
WITH RESULT •
•
• OF CALCULATION.

.................
o

0

······Jl···..·.....
X

•

SVC 0
TYPE MESSAGE
SYSLOG

.............

....

•

x

o
o 1
o

••••

590

CLEAR THE
110 AREA
WI TH BLANKS

..
..
..

:................................................................ x:

X

..

0

...................
..
..
..

0
0

0

DOS System Control

•.. D3·········
X

.. ~ EXIT TO THE
..
AODR Jr-j THE
..
LINK REG

...............
..
..
..

NOTE
THIS ROUTINE PUTS OUT ERRLR MESSAGES
ON SYSLOG WHEN THE NOMAP (JPT IGN
I~ SElECTED. THE FIRST INSTRUCTION
l~ A BRANCH TO THE LINK RE;GI~TER ADDRESS,
SUPPLYING AN EXIT WHEN TtiE MODIFIED PRINT
ROUTINE IS FNTERED AT LOCATlUN
UVFLOw.
THE OVERLAY SUBROUTINE IS ENTEREu
BY BRANCHING TO lOCATION PRTlOG
WITHIN THE MODIFIED PRINT ROUTINE,
THIJS BYPASSING THE UNCONDITIONAL
BRANCH TO THE LINKAGE REGISTER
ADDRESS.
THE lJVERLAY ~UBRuUTINE DOES ~OT
PRINT A 121 CHARACTER LENGTH MESSAGE
AS DID THE PH.INT ROUTINE. IT
SEARl.HES FOR THE MESSAGE IA
NONBLANK)
CALCULATES ITS LENGTh,
AND PRINTS THE MESSAGE ON SYSLOG.

Chart QT.

Core Image Block Building Subroutine $LNKEDTi
Refer to Linkage Editor, Chart 31

OA2

PREPHS I S THE CONTROL
DIeT lONARY NUMBER

•••• Al··· ••·•••

...............

o
•o

DEROAO

OF THE LAST PHASE

PROCESSED IN THE CORE
IMAGE LIBRARY. PHSND

ARY NUHBER Of THE CURRENT

PHASE IN PROGRESS.
WHEN
THESE NUMBERS 00 NUT

MATCH THIS IS A

*

NEW PHASE.

• t.

*. *.
.* 81
IS
THIS A
*. NO
*.• * NEw
PHASE .* ....
*. *A2 .*
*. *••• .*

•

83
••
• •••• 84 ••••••••••
••
TXT
••
.WRITE
QH.
•• LOAD AoaR •• YES
.-.-.-.-.-.-.-.-.
••
GT OR EQ
........... X.
WRITE THIS
•• NEXT (I ••
•
CORE IHAGE
•• BLK ••
BLOCK
•

.. ..

• YES

*'

x

x

.*.

•·••. e1.··•. •.

(3
"'.
••
TXT
••
•• LOAD ADaR "'. NO
*l T LOAD ADaR OF •••••
"'. CURR C I • '"
•• BLK ...

MODIfY SW •
OERSWI IN •
THIS RTN TO •
BRANCH TO ..
FORCE INIT ..

·..................

....
....
··.....' ..
.-.-.-.-.-.-.-.-.
.................

·····El.··..·..·.

.....E3··········

..............

·YES

•

:*02

• le •••••••••••

X

DE ROOK

.. COMPARE LOAD

~~~OF~EE~E5~T!iD~O~H~OW'

PHASE BOUNDAR I ESe

••••• Ol ••••••••••

..

.. AOOR OF TEXT
.. WIlH AOQR OF
.. PHASE ORIGIN

..
..
..

INlT ERROR

..........

..
•
•
•

••••••••••••• * •••

...

F1

.'.x

...

.... ....

*

• 1

.

•• LOAD ADOR •• YES.
•• LT PHASE ORG ...... .

••

·02

*

•

•• •..•..•..•• X:

..

3

ERR050
X
······FZ···········
ERROR
OR

.-.-.-.-.-.-.-.-.

...

•

'NO

SECOND ERROR
MESSAGE

Z1501
•••••••••
*•••

WRITE THI~
CORE IMAGf:
BLOCK

i
•• .. ·GZ·········
•
RDNEXT
•
•
CHART gp
•

...............•

.................

•

.••••................
·.a<.... ..
·SE

••••

• El·

······C5··········.
·.................
x

ERR093
•
•
•

INITIAL(Ze
..
ERROR MESSAGE 10WITH 93
•

.'.x

E5
••
• ••• E4 •• * ••• *..
•• CALC
••
..
FETCH ABORT.
YES.. AODR GT ••
.RTN VIA ABTERR . X . . . . . . . . . .
LIHIT UF
••
..
CHART Q H .
•• CI LIB
••
*.**...........

.

.................
....

...*
...

··..... .
•

···...................
··.*••.' .

X

DERCAL
X
·····f3··········

•

se T

UP fOR
PHASE ORIGIN

•

'NO

'••••
.

4

6

••••• F5······*···
•
UPDATE LaC
•
•
LOCORE AND
'"
..
HICORE WITH
•
• NEW ADDRES5.ES •

.·................

•
•

••••

••• *

·····GI··········
•
AOD LNG TO
•
• LOAD AODR AND •
•
•
CHP SUM TO
• AOOR OF NEXT
•
• PHASE ORIGIN
'"

X
• •••• B5 •••••• ••••
•
CMP DISK
•
• AOOR OF CURR ..
.CORE (MAGE BlK ..
.W I TH UPPER LHT •
•
OF Cl LIB
•

•

• RE~ET DERSwl
•
•
AND HOIJE
•
•
CONTENTS UF
•
•
ORPHDA INTO •
.J2.
*THPHDA

•

X

•

••••

X

..

..
H5G WITH 50
.. TO SHOW LOAD
• ADDR OUTSIDE
•
PHASE LIMI T

•

5

LJER lTE
X
·····03··
•• ••••••
.WRI TE
QM •
..
..
•

X

..

.................
..••..........•

*NO

X

•
•
..
..
..

*

2

.'.x

X

DERQAO

·•.........•

......
......

IS THE COftTROL DICTION-

0

..0

•

X

OERLOP
X
·····G3········*·
•
STORE DISK
•
.ADDR OF CURRENT.
CORE IMAGE
•
• BLOCK IN LOC
•
•
THPHDA
•

.-.-.-.-.-.-.-.-.
·····G5·······.··
.READ
OM.

.................

.................

X

•••·.HS·i•••••••• *

*

•
•
•

READ THE
CORE I MAGE
BLK

•
•
•

oH2

DERDSW

lOAD ADDRESS IS TOO HIGH,
AND FALLS OUTSIDE THE
PHASE BOUNDARIES •

.'.x
HI·.

•• SUM..
BR
•• OF CALC
•• YES
•• GT NEXT PHASE ••••••
•• ORIGIN
••
•• -HZ ••

.. ·••••.
••••
·
.
·..................
...

x

°NO
Nap

•o 1

X

RESTORE
LOAD
ADDRESS

ADDRESS Of THE FIRST
BLOCK OF THIS PHASE.
THPHDA CONTAINS DISK
ADDRESS OF CURRENT
CORE IMAGE BLOCK.

:...................................... x:

.'.x

........
IN THIS

BLOCK

.,.

DERSWI

Kl
••
•• NEED..
NOP
.*YO INIT FOR •• NO
••
NEW PHASE
••••••

.. .. .. .. ....
.... ·••••.
....
•.

.*

• YES

x

·.

X

o
• 3
o

•o 2

····J5·······* •
RET TO LINK •
REG AODR
•

•

0

.-.-.-.-.-.-*-.-.
···.·K3··*··.····
.ADIDSK-4
QK*

.................
•
•
•

INCREMENT
DISK AOOR TO
NEXT BLOCK

....

•
•
•

x

•0

0

•

•

o

•

...............

o

x

••••
• 5 •
••••

'NO

• BR

X

•
•

••••••

•

x
.0.

X

J3
••
•• DOES ••
•• THIS TXT
•• YES

*. ••GO

•
•
•
•
•

.................

.................

•0

ORPHOA CONTAINS DISK

•
•
•

• PUT THE PHASE
..
NUMBER Of
• CI BLOCK READ
•
INTO LOC
•
PRE PHS

*
*

OJ2

••••• J 1••••••••••

•
•
•

••••• H3*···*·····
•
ADD 17ZB TO •
CURRENT CORE
•
IHAGE BLK TO
•
• GET NEW IJALUE •
•
FOR HICoRE
•

• 6

••••

0

•

•

Appendix H. Detailed Flowcharts

591

Chart QU.

Action Processor $LNKEDTi Refer to Linkage
Editor, Chart 31

•o•••• •••
••

·.2

••••

REG 5 CONTAINS

"DoR Of COL 12.

o
•

•

··.·Al········.
...............

REG 6 CONTAINS
NPUT AREA
DDRESS.

I

0

ACTNPR

ACltAN

..

• 1

• 82
THIS LOOP

SEARCHES FOR
THE OPERAND.

·····81·.·.·.·..·

ACTNPR

X

•

POINT REG 6

..

INPUT AREA

•

·..................
•
•

PAST OP FLO

•

• 5

........•. •x:

····.Cl···.······

'"

•

•

INITJALIZE

'"

.*. *.

ACTNTO

84

.*. ...

X

TURN OFF

•

•

X

*•••
"'YES

·····C3········.·
·...................
•

"'.

··..........
.................
o 5

* ••
*
"'YES

•

ERRQ35

•
ADD 1 TO
•
.. REG 6 $0 THAT •

•

i

83

.•.x *.

OPERAND "' ..
. NO
.... *....EOUAL
CANCEL .. '"
*.
.*
*.
.*
x
*••
-YES

.*
*. *. NO
.* .*OPERA"IO *. *. NO
*... '" EOOPERAND
NOMAP
•••••••••• X •• EQUAL NOAUla ••••••
*. * . . * .*
*. * . . * .*

X
·····C2••••
·•··•·

i

:FNDOP

ACTNHP

....
• •
·••••.

.. TO ADDRESS OF •

.*

....
• •
·.....

•

.... 2

A5

•• ••••
85 ••• •••••••
SET SN HOGCAN "

•
EQU NOP I....
•
• INIT RTN AND •
.TURN ON CANCEL ..
• OPTION SWITCH ..

·····C4··········
X

X

·.................
.
................. ...............
....
·•......•
:x ............. _... _.............. :
............. ·x
x
.. ..
·····01·········· ···.·02···.···
····03·········
................. ·............... ·................
··.......... ·••.....• .....•...
•.... •
..... ...... .x:
x
····.ES.··••·.·..
·····el.·.......·
·..................
·.................. .................
'" ERROR MESSAGE •

·..................
IT POINTS TO

•

-NEXT CHARAC TERS.

..
..
..

0

'" 2

*.....

ERRACT

X

..
..

CONTENT OF
REG 5
*A2

'"

•

X

.. CHP CONTENTS
OF REG 6 TO
..

WITH 35

'"

SWITCH

•

HAPSW

'"

'" HT SW HOGsw2 '"
•
EQ NOP IN
•
• INlT RTN AND '"
'"

MUVE FF TO

'"

'"

AlNKSW

'"

..

'" TO LOAD ADoR '"

.EXI T TO ACT RET •
•

CHART QC

INITIALIZE

.•.x *.

• WRI TE

*oo

*••
·NO

••
..14K OR ...
•• MORE CORE •• NO

Gl

.... YES

.*

IS

••

x

• 2

x
.0.

...

AVAILABLE

••

•

•

*. *.

•

•

INCREMENT
TG NEXT

RECORD

UPDATE

LIBRARY

••••

••

••

;:t!ie···:
•

o•

36

••

• MESSAGE WITH

•

•••••••••••••••••

•a.,.

•
•
•
..

:x .•..•••....

.....FS··········
i

ACTlOP

MOVE A BYTE
•
OF ZEROS TO •
WORK AREA AND ..

•
•
•

.................
.. .•. ..
........
..

INCREMENT

..

..

POIHTER REG

..

G5

••

•• tHARI RCD

••

••

EQUAL
0

•• NO •

••

••••••

·YES

...••HS··········
•
•
•
•

MOVE DISK
OVERFLOW
FACTORS Tu
lOC tYlFCT

•
•

·..................
•
•

0

• •••• J2 ••••••••••
: SWI'~~ =:~SN' :

..................

x.

TO SH6w MAP 0
• OPTION CHOSEN.

X

ERROR

..

0

••••••••••

•

X

• SET SW HOGMSW
• IN INIT RTN TO
•
NOP- INIT
•
POINTER Rlb
•
AND CTR REG

X

..

.YES

X

•• ••• J4 ••••••••••

•

····K2.•.x ·..•.·
EX! T TO

•

•••••••••••••••

•

."'CTRET CHART QC.

o

•

0

••••••
DOS System Control

X

• •••• Js •• ••••••••

•

RESTORE

•

:Aooi~~~T 6~GCORE:

:
•

•
•

IMAGE
LIBRARY

•
•

o

•••••••••••••••••

:x .•.•.•••.•....•...••........•......•.•.••.•....•.• :

592

•

• NO..
END
••
•••••• OF LIBRARY ••

••

oNO

• 2

•

.... .•. ...
.... ....

x
•• ••••
•
1
•

ASSIGNED

o

•

IMAGE

Hit

.YES

x

x

....
.. ..

:··;N~l

•

.................
•

•••• SYSlST •••• YES

ERRD36

•
•

X

t.

-YES

••

QK.

.................
•
•

•

*. *•• -.-

••

• ,a,DIOSK-4

•
~TART1NG
•
• AOORESS OF CORE •

NO
•• t . EQUAL HAP ._ . t ••••

.. 1

•

•

NCTACT

• *• *OPERAND -. *.

.0.x

..

..•..
F4··········
.-.-.-.-.-.-.-*-.
X

·····G4·.········

*••
·NO

.•.x

TO BRANCH

•

x

.QC •
• • G3·
0

*02 .-

HI

• •••• F3 •••••••
•
SET SWI TCH •
•
ACTRlb IN •

........... X. INI T ROUTINE

.YES

.-CONTENT OF t.
•••••• III.
INPUT
AREA A
BLANK
._ .-

*.

.•.x

....
...............
..
..
....
• •
•....•
.....:x........................ :

.-

QM.

.. IMAGE RECORD

F2

••

.•

•

•• -*-.-*-.-.-.-*-•
h'tUTE A CORE •

Fl
oo" CARD
too
• t IMAGE IN
too YES
INPUT AREA ...... .
*oo TOO LONG .. "

*.

3

:ClRlDP
i
•• ··.E4·.·.· ••• ••

..

••

*.

x

.. ERROR MESSAGE ..
..
WITH 12
..

•••

OPERAND

• ..... EQUAL CLEAK ••

•

:ERR1l2

OS

NO ••

•

..

•• •• CS ••••• ••••

•
EXIT TO
•
:ACTRET CHART QC:

ACTClR

'"
MODIFY
'"
• SWITCH ACTER~.
'" IN INlT RTN •

..
..
..

'"

•

sTi~¥i,..~H~ODR
Of THE COR.E

:
•

IMAGE L1BRAR.Y •

•

•••••••••••••••••
x

•o••••
3 •
0
••••
•

0

Chart RA..

Initialize ESD Processor $LNKEDTO; Refer to
Linkage Editor, Chart 32

LOC COMNRF

.

CARD IS BUILT
FOR THE FIRST
PHASE ONLY IF

OF CARD LAST
READ.

CARD I S FOUND ..
THE INSTRUCTION
AT THIS LOC IS

INPUT STREAM
RTN. KEEP AD DR

.. * • .. AI'" ** **** **

..

CHKNPH

AN OBJECT

A DUMMY PHASE

I S NOT MODIFI EO
I N THE READ

-A5
REG 2 CONTAINS
THE ADDR OF
THE NEXT RCD
CAUTION--THIS ADDR CAN'
BE ON THE
NEXT TRACK.
REFER TO -PERIDAAT START OF
LINKAGE EDITOR
LABEL LIST.
e LIE COMMON LABELS)

*A4

*A3

*A2

MODULE IS

THE OUTPUT

OF A LANGUAGE
TRANSLATOR. THIS
IS A TEST FOR
FIRST ESD/SYM
RCD IN A MODULE.

NO OTHER PHASE

ESSENTIALLY A

FIRST TIME

SW ITCH.

CHKNPH

.*.

ESDlST

.-.

B1
.....
B2
*•
• * ANY *.
.. -OBJECT * •
•*
PHASE
*. YES
.. * MODULE IN *. YES
*. CARDS PRO- . . . . . . . . . . . X..
PROCESS
••••••
*. CESSED .*
*A4
.*
*. *,11,3 .*
*..*
* •••
* ... *
-NO
*NO

x

*****C
1 **********4..
EFFECTIVELY
.. NOP SWI TCH
OMPH5W

X

-

..

..

*

4-

x

BUILD A
DUMMY PHASE

*.

44-

x

*** ** F 1" **** ** *.**
.. PHASE IDENTI- *

.. FI ER FOR GTRL
-CD SCAN RTN IN
A REGISTER

44-

................. _--

*

*.

....

-.·-.YES
x

**** *D3****·****-...

•

...

-(SEE LBL LIST) ...
...
*A5
...

...
-INTO LOC PERIDA-

-RECORD INTO LOC.
ESDNOO

: ................. x:x
.'. *.
E3

X
E2·
.. '"

*.

x

*.

.* RECORD *.

*.

.* ** •• ***********

ON

SYSLNK

*. * ••• ..'"

.+

•*

WAS
YES
•
THIS A
........... X.
•• SYM CARD ...

NO ..

.. .. .. ..

.* ........

**** -F2* .xi t __ • • • •

·.·.E4········.
RDNEXT
CHART QP

•

_NO

·YES

.. PUT ADDR AND

AN

RCD AFTER .. -

END RCD .-

... MOVE ADDRESS
... OF NEXT ESC

.... * •• * ** **** .... * ••

..

*

...
...

-

.

1

... MOVE ADDRESS
... OF FIRST ESC

***** E 1*******4**
CARD I MAGE

NO .. '"

.x ..... *.ESD

X

4-

* *************

-

*
...

*$WI TCH ON -XD1-*

·****02***** *****

****·01******·
... MODIFY SWI TCH

****

**** ***

SET MOD$TS

.. RESET DMPHSW

*A2

..
ROSOOO TO
.. BR I N THE RD
INPUT RTN

X
*+ ***C2*·*

*
...

--

-

it

-MOVE ADDRESS OF-

...
FIRST ESC
...
... RECORD TO LOC ...
ESDOQO

x

•••• *F3· •• * ••••••
•
LOAD REG 6
•
• WITH START ING •
•
AOOR OF
•
it
CARD IMAGE

•• it.

X

·***Gl*****··*EXLOAD
*
CHART OP
*Hl

***********.***

*HI

PROCESS DUMMY
AS IF IT WERE
A LEGITIAMTE
PHASE CARD.

*
* 1

•
*

-

*

X
.·.·.G3···.·.·.·.
PUT ESID
NUMBER
IN REGISTER
5

•
•

.................
x
.....
•• B;.
*

*

·RB •

*
ESORET

Appendix H. Detailed Flowcharts

593

Chart RB.

ESD Processor, Card Image Check. (Part 1 of 2)
$LNKEDTO; Refer to Linkage Editor, Chart 32
00(1)

..

• 2
•

0

•

0

(1:0(1:0

onA-G3

RG-{;3.114.H2
RJ-<4.Dl

oocoo

0000

• •
•••
•

¢

.

•

0

0

• ••

• 1

.

Cr • • •

.K .......................... .

x

,0

Cl

.0

*. o.

• 0.

END
OF

o.

.,

CARD

o.

H1AGE

O.

,0

x
.'.

o.

,0

C3
Cr •
•• ESIO

YES

o.

*.

• l1li
~~UHBER
YES
o.NOT PROCESSED ••••••
co. _. 002 .0 .0

.0: .......................... ..

,0

'0 • •

ONO

x

*

•••••
oRO.
81_
o
•
ESLBCO

'NO

0:

0

X

$OOOOz*oo ••• OO(l

·
o

x
.0.
03
••

•

ROHEXT

CHART QP

.
0:

..

0000000 ••• 0 •• 0.

• 0 E$IO

••

TO o. YES
*.••o.BENUf.mER
BYPASSED .0 .....
*82
.0
0.
.0
o ••
x
°NO

....

0

*

0

• 2

*

•

X

••••

0

·(I···E30 •••••••••
0;
ASSIGN THE
0Ct LO BY ANDING
•
" A HEX OF [NTO 0:

0THE TYPE FJELD ..

•••••••••••••••
0.*
•

·.·.·F3.···.·.·..

X

X

ot,ooooFlooo:cU)oooeto.
oFonCE THE TYPE •
FIELD OF tARO 0:

(I

IMAGE TO BE

0:

BINARY

(J

•

.STORE CTRL DleTo
0:
NO. IN VAR
•

.................

x
•*.
O.

Gl

.

~

eYES

0-

.. ..

MESSAGE TO
itO

.
10;

0:

G3

.* . ••

*.••••••
YES

• 0 lO POINT

o.

o.

oo:oooooo •• oooeooo

0 •• 0

•

x

00000G20000 • • 00.0
0:
INn IAllZE
0
0:
ERROR
0:

O.RANGE 0-2, It .0 •••••••• x~
o. OR 5 . 0
0:

•

IMAGE AS AN
ESID POINTER

ERR040

.0 TYPE O.
.0
CODE IN o. NO
~

FIELD OF CO

0:
0:
0:

(J

..

•

000 •• 00000000000*

TO SO

o.

* •••
°NO

.0

••

x

••••
3 *
*
*
•••• *

•o
•0

o.

.0

o.

.c.i o.

HI

o.

TYPE
EQUAL
LO

o •• 0

x

o•

.0

O. NO
..... ..
.0

.0

oYES

ERR042

• ••••H4 ••••••••••
•
INITIALIZE
0-

0:.
Cr.

0. NO
•
O. LO POINT TO •••••••••• x.
o. COMMON .. "
0:

0..*
(I • • *

i

00 • •

410'00

.0.

·

•

ENLD

i

:

•

c~g~~x~p

00000000:00000 ••

:

•

..

o
.
Ct •••

••••

.*
0.

X
'.
.0.

J3

.0

o.

o.

·.·.·.J4
•••·.....•.
.-0-.-0-.-.-0-0-0
X

••

VAR
o. NO
FLO TYPE
.0 .....
0. EO ER .0

ERROR

•

.0

K)

.0.x o•

*.

.

•0
• 0 AyT8L1~ o. YES X
o. OP
N FOR ••••••

t

··o.p~liE.o··

o..
0
°NO
:

o

.. 1
•

594

•
•

coco 0

DOS System Control

CNCALK

x
00411.0

:R&l:
o
0

o

QR

ISSUE

E"~Y:2~SG

•••••••••••••

0 •••

·YC:S

X

•
•
•

0
•
•••••••••••••••••

oYES

0(/;00

•0: 3

ooooJ2oooooooo.

0000

ERROR
MESSAGE OF
0\2

• >Co

•e 3 ••
•

H3

:X

•••••

•

X

:

•••• KIt •••••••••

cfti~P~p

:

••••••••••••••••*

:n~l:PRSDPC
• *"

(

ESD Processor, Card Image Check, (Part 2 of 2)
$LNKEDTOi Refer to Linkage Editor, Chart 32

Chart RC

0.2

*"5
USED

HEX FF 1 S USED TO PREVENT
AN AUTOLlNK ATTEMPT ON

TO CALCULATE NEXT
PHASE ORIGIN.

THIS ER •

....-.x.•••••
.. ..
.... .

....
....

• RS ..

**o

.. K3*

o
o

0

..

3

0

OS2

o.

LOCATION NHELST IS SET TO
BLANKS
IN THE END CARD
PROCESSOR. IF NHElST IS
NOT BLANK, PROCESSING IS

·····Sl··········
.................
....

CNCAlK

X

.. Move A HEX FF ..

..

INTO THE

FOR A SUBMODUlAR STATUS.

..

.. TENTH BYTE OF ..

.. THE VARIABLE
*F I ELC

....
*

..

*A2.

Ct

•*

.*.i *.

X

• • • • • S) • • • • • • • • • •

SET SWITCH
EUPOSW SO
•
• THAT I T FLAGS
• THIS ITEM AS
.NOW PROCESS :)0

,.

•
•
•
•

EQ SD

*.

PC

····.B4······.·.·
X

EISOPC

• MOVE LNG FLO •
• fROM VAR fLO •
• OF CARD IMAGE.
•
INTO LOC
•
*CSLNTh
.BS •

·····C4••••••••••

•

*'

MOVE ER CODE
•
INTU TYPE FLO •
Of THIS SO
•

.................
•

i

FOIlCI~~

01

....

02 ••••••••••
..•.. ••••
....
INITIALIZE

*. *.

ORG ON
NO
*..*-.BOUNDARY
DOUBLEWORO
.* .* ........... X...

..
...
.................

·..·.Et··········
.................

······E2···········
.-.-.-.-.-.-.-.-.
.............

-YES

i

MOVE PHASE

*

i

ERROR

..

•
•
•

o

**

3

*
*
0

•

CR

SEND

ERROR MSG

*E3
RELOCAT I uN fACTOR EQUALS
NEXT POSSIBLE PHASE ORIGIN
MINUS ASSEMBLED ORIGIN OF
THIS SO OR pc.

x

.0.

•••·F2·.·••••••

........ .... ...............
•

•

o

....

*

*

2

•
•

.................

0
0

i
••• .. ·E4 •• • ....... •

*

*

•

·····F4··········

CHART QP

•

•
STOR.E
•
*ALlGNED ADDRESS.
•
IN LOCATION •
NXPHRG
•
•

.................

0

•

0

*G3
THE VARIABLE FIELD Of THE
CARD I HAuE I S USED AS A
BUllIJ AREA FOR CONTROL
DICTIONAItY ENTRIES •

•••••G4···i •• •••••
CALCULATE·
•
•
CSECT
•
.E3
•

RElOCAT lON
FACTOR FOR

.................

.................

•

•

••••••••• •• X:

THI~

.. .0. ..
.. ......
i

x

•••

••

0

i

ROhEXT

•
•
•

0

•• ESOSBH

OF THE NEXT

0

••• ·.GI··········
• INIT CTR REG •
,. AND POINTER •
• REG FOR SCA~ •
• OF SUSMOD T BL •

o

i

•

o

i

i

·····04···••···••

• PuT THE AODR

..................

•

X

Fl·.
LOC ••
•• NMELST
•• YES
••
BLANK
••••••
••
·82
••
••

o

.................

• PUT PHASE ORG •
• ON DGUBLEWORO •
•
BOUNDARY
•

21451

*

oNO

•
•
•
•
•

.POSSIBLE PHASE:. •
•
ORlblN INTO •
•
SUB RTN REG •

ERROR MESSAGE ..
WITH 45
..

**.. ..."*

,.
NUMBER INTO
• VAR FIELD OF
•
CARD IMAGE

....
....

•

i

•
MOllE
•
ASSEMBLED
•
AOCkESS OF
• THIS SO OR PC
• TO WORK AREA

i

ERR04S,

*.

IT TO •

SE A~ ER

*

Estato

• -ASMBLO

HI·.
SO

H4

••

.... ....
IN NAME
LIST

••

••••••

i

•••• *

°NO

....

*o
o

·..··Jl.·.··•.···
i

0

INCREASE
•
POINTER VALUE.

2

••

•• RHUlT
•• NO
••
OF CALC A ••••••
••
MINUS
••

•• LBl FOUND •• YES

*•

0

,··.·C)··········

-RD ..

o

••

*0

.................

•
•
•

.....

.*
*...
·YES
i

••

2

.................
.. 81-

..

0

i

*. *. NO
OR
.* .......
.*

VAR
.. " FLO TYPE

*.

....
....

**
*

**

** •••.

-RS
.. K3*

PRSDPC

*.

1

·YES

0

*
i

••••• J4 ••••••••••
• FORCE RE~UL T •

.TO BE POSITIVE.
• BUT ~ET ~IGN •

.................

.................

.. ..

··.··K4••••••••••

•

,.

BY 8

*

•

0

.*.i

Kl

• NO..
••• •••
••

.... ....
·YES

....

*•

1

••••

0

*0

•
•

:x .......... :

••
••

••

•
•
..
•
•

MOVE
RELOCATION
FACTOR TO
'JAR FIELD
·G3

•
•
•
•
•

.................
.....
i

i

•

BIT IN TYPE
fLO TO NEG

i

••

COUNT
EQUAL
ZERO

•
•

ESlSCO

.RD •

• 81.

o

*
*

Appendix H. Detailed Flowcharts

595

Chart RD.

ESD Processor, Process ESD Items Against Control
Dictionary $LNKEDTO; Refer to Linkage Editor,
Chart 32

-MULTIPLE ENTRIES
RC-Cl,K4

.....

RB-C3

•• •••
••
•

·····Bl..........

-SRtHCO

*SRPCOO

.................
••••

.................
•

DIeT SEARCH

o

•

· .*......

ELBCH

QF*

.-.-*-0-*-*-*-*-.
• CONTINUE CTRL •

*-0-0-0-0-.-0-*-*

•
SEARCH FOR
•
-HATCHING LABEl •

'" IN (TRL DIeT

o
o

0

o •• _

°YES

o

o

,

ENTRY ·MUST
BE A COHHON.

•0

*. *.

X

•
•
•
•
•

x
..
..
.:.
........

x _.

0.

F3

.
VESX

°No

....
tI....tI
.. ..
G1

x
•••

••

....
••••

>
>

.

.

ERRO~O

• ••••G2 ••••••••••

••
NAME
•• NO
•
INITIALIZE
•
•• FIELD OF PC •••••••••• X. ERROR HESSAGE •
8LANK
••
•
TO itO
•
·YES

.•................•

0

X

•
•
•
•

MOYE LENGTH
FROH CARD
IHAGE TO
CTRL DICT

•

•

·E2

•

x

·.··.·H2···········
.-.-*-.-.-.-.-.-.
X

ERROR

OR

SEND

.ERROR MESSAGE.

21401

•••••••••••••
X

•••• J2 •••••••••
•
•

RON EXT
CHART QP

•
•

•••••••••••••••>

.'

596

·····G3··········
..................
•
•
•

:X •••••••••• :

x

•••••
• RH •
• >81·
•
ELBNCo

DOS System Control

•••••
.RH •
•

o

Fl·

o

• • • • • • • • • 1< • • • • • • •

,

0

······E4
•.••.••.•••
.-.-.-.-.-.-.-.-.
X

ERROR

0

EUPoLT

wR

.............
SEND ERROR
MESSAGE
21461

X

°No

0

..
INITIALIZE
•
• ERROR MESSAGE.
•
WITH 46
•

••

..FLO HIGH ••

x

o
o 1
o

.0 •

~~~h~Ol~~ .:.~:~.

YAR
TYPE EQ
.0 .....
o.COMMON ._ ••

o •• _

•
•
•
•
•

.................

••

*.
FLO *.

eHP LNG OF
eTRL SECT --CARD I MAGE
vs eTRl DieT
ENTRY

....

o
o 2
o

..••.E3··········

OE2
GET THE LONGEST
LENGTH IN
THE CONTROL
DICTIONARY.

NO
._ ....... .

•
0 ••• •oo
.RF
• Bl·
ERR046
X

x

°No

*•••
°YES

Fl •

.02 ••

.oo

.* E1 YAR -. *. *.

... FLO TYPE
PC OR
o. EQ eM

.RH •
• EI·

0

03
••
•• eTRL
••
•• DieT TYPE •• YES
••
EQ PC
...... .

DICTIONARY

x

.0.x

x

*•••
.NO

0

x

002

THE CONTROL

o
o 2
o

.....

••••

.... .
.'.
.. .... .. .... ·······04··········.,

0

••••
0
••••

°No

....

•• • YES
••

ELBNeD

o •• _

• 0

0

EL~ER

.oo.*

*. *.

HATCH

o.

o

Bl·

ELBCER
•••
e3
••
C4
* ..
•• CTRL
*oo
••••
•• DICT TYPE •• NO
••
CTRl
•• YES
••
EQ PC OR
•••••••••• X•• DJeT ENtRy
••••••
••
CM
••
••
AN ER
••

.....x

... WAS FOUND
YES
ON A PHASE
.0 .......
o. NAME ._ .-

*.

·RE •

X

*RH •
• 81-

x
01 .>. _.

ELBPC

x

·YES

.

*.••••••
NO

*. -.CTRL
LABEL IN
o.
DIeT.._

*.

............ .....
• • oo

eO Cl
-. _.
.0 HATCHING

*.

*.

•

• 0.

.*

x

.0 •

83

••
YAR
••
•• FLO TYPE
•• NO
••
EQ COHMON;
...... .

•

x.x .......................... .

• C2*
••••

••••0
>
•
••••

> 1

0

•

•••• ·S2 •• • •• • •• ••

OF-

ORE

....
X

X

ESLBCo

•••••

o
2
o

•

~,

~

• ••• r4 •••••••••

...............

<

RDNEXT
CHART QP

•
•
0

o 0
o

ELBINT

ESD Processor, Process ER $LNKEDTO; Refer to
Linkage Editor i, Chart 32

Chart RE.

··..........

.....
...
·RO •

.. 83-

ELSER

81

•

x
.'. *oo

*. *. EQ

•• .*

ER

*oo ••

·YES

•

X

ElBELR

._.

*•
.* CTRL *. *. YES
*.... DieT
TYPE
••••••
*. EQ SO .*
*.
.*
*••
'NO
B3

*. *oo NO
• * • *FLO YAR
TYPE
.. *.....

*..

I

.....
...
x

*Rf ..

.. 8t·

*oo•*

.*

C1

.'.x *. *.

ENTRY

IN CTRl
DieT UN•• ASSIGNED

**.••.**

ElBSD

•
•
•

**

•••x*.

.'.x *oo

oo- CTRl *0 *. YES
DIeT TYPE .* .....
*oo EO ER .*oo *oo •• .x

*..*

•*

x

.RH •

*RO •

*

FORCE CTRl
•
DieT TYPE FlO •
TO EQ LR
•

.................
.....:x ••...•.... :

.SEARCH
*F3*
•••••••••••••••••

'NO

01

X

·····C.3··········

••••• C2 ••••••••••
*SRPCOD
QF*oo.*ooYES
••••••• X.$-*-*-*-*-*-*-*-*
CTRl ..
.*
...CONTINUE
DICTIONARY
•

C1·

• Fl·

**
*

* *

*

EUPDl T

.....

*NO

.

·RH •
• El·

* *

x
.*.
El
*oo

*oo
.* oo-DieT
CTRl
*oo YES
TYPE
••••••

*oo

-.EQ COMMON ••

*oo

••

*oo ••

.....
x

*NO

*RH •

* Fl·
* *

.*.x *oo
Ft

*F3

KEEP SEARCHING
FO~ A MATCHING
GTRL DICTIONARY
E~TRY UNTIL ALL
ENTRIES HAVE
BEEN iNSPECTED

*

oo. VAR *oo
oo- FLO NAME *oo NO
*oo *.fLOPREFIX
HAS IJ
••••••
._
*oo

.. "

.. "

.-

*...
·YES

.*.x *•

Gl
DOES

VAR FLO

*oo

*oo

..

~

NO

-.INO
*oo AUTOllNK
REQ
._ ••••••

*oo *oo •• .·YES

X

.-.-.-.-.-.-.-.-*

••••• H l · · . · · · · · · ·
.XTPHNO
QL*

•
GET PHASE
*
•
NUMBER FROM *
* CTRl DIeT **
••••••••••••••••

.'.x

*•
. * JlCTRL·.
.*DICT PHASE *.

•

.. ..

YESX
*. •• NUMBER
EQ
••••••
Loe PHSNO.*

•• • *
*NO

x

Kl

•*

.*. *•

PHASE ••
•
•• NUMBER FROM*. YES X
•• C.TRL DIeT IND ••••••
••
ROOT
••

........ ....
x
*NO

.....
·RH •
•

x

....

*

*
*

I

*

*
*

Bl·

***

Appendix H. Detailed Flowcharts

597

ESO Processor, Process SO $LNKEOTO; Refer to
Linkage Editor, Chart 32

Chart RF.

·•.••••....•

•••••
*RE •
• 81•••
ELBSD

•*Bl

.•.x

-•

• 1

ERk043
i
....· ••• S2 ••••••••••

e.

ol~JR~YPE .:.~~~ ..

• :-

-.EQ COM"ON.O

•• INIT IAllZE ••
ERROR MESSAGE •
HITH 43
•
•
•
Q:

1.

*. *•• -.-

• • • • • • $: • • • • • • • • • •

• NO

••
•_

*.

Ct

.•.x

e.

VAR

•

.YES

X

.$0· • • C2 •••••••••••

e • *. NO

ERROR

TYPE
.0 .......
*. FLO
*. EO SO •• ••

SEND HSG
21431

x

* •••
·YES

OR

0-0-0-*-0-*-*-0-*

..•

• • • 00 • • • • • • • •

00:00101
*R.G 0

,. 810

• _01

.•.x e • e.

YES ...
CTRl
•• ••••
aleT TYPE

*.

EO ER

*. *•• -.-

ELOLD

X

..$002·0 •••••••

o.
••

(0

.'"

'"

•

RDNEXT
CHART OP

*~o»ooo

••••••••

•
•

•

·NO

x

ELBOSD
•*XTPHNQ
•••• E3 ••••••••••
Ql*.
YES
*. DieT TYPE ••••••••• ~ ................................. X-*-*-*-*-0-0-*-*-*
GET PHASE
*. *. EO SO .0 .*
••
NUMBER
•
*•• 0
•••••••••••••••••

••

•0

El

.0.

CTRl

*. *.

·NO

...i

Fl
e.
LO OR -.
• *lR IN CTRl
DieT UN-

•*

*. O.ASSIGNED
*. o •• _ ••

*..*....
YES
••

••

Gl

.•.i

Ct.

NUHBERS
HATCH

*.

*. *.

.*

.~

NO

..
X

••••

••

••

••

.*

G3

..

.x

••
[5
••
THE SO
•• NO
IN THE ROOT ••••••

........

.*

x

.YES

: •••••••••• X:

i

.

••
ASMBLO
o. NO Jt
••
OR[G[NS
.0 .....
••
HATCH ••
·YES

x

•••••
• El·
•••
ELBINT

·RH •

598

••

........

••

•.

·YES

HI·.

so

>NO

........
.. .•. ..
.... ....
:.••.•.•.•• x:
*. ••

ESID

..

.x

YES •• PROCESSED ••
• ••••• [N THIS PHASE ••

·NO

.•
•0

F3

DOS System Control

.•.••H3··.··.····

ELBGSD
•

:
•
•

X

MAKE REG 8

NEG~?[~~ ~TRL
DieT NUMBER
.H.t\

•

:

•
•

•••••••••••••••••
i

•.RH
•••••
• Fl •
•••
EUPDLT

•••••
oRH •
• 81 •
•••
ELBNCO

·H4

~5mm

'HE

~3~mLA~mIONARY
EXECUTION OF
THE SUBROUTINE
STARTING AT LOCATION
LTESIO, CHART Of.

Chart RG.

ESD Processor, Process LO/LR $LNKEDTO; Refer to
Linkage Editor, Chart 32
*••
THE

....
....

.....
*RF •

**

'" Ct·

***

*

x
·····B1··········
*
*
.................
'"
'"

/

FORCE LO
IN VARIABLE

'"

AN LR

'"

• *C1
*.

x
.*.

*

.................

'"
'"

FIELD TO BE

'"

**

ELBlOR
i
•• •• ·B3··········
•
GEl E~IO
•
..
NUMBER OF
•

ElBlO

'"

2

LAST 2 BYTES OF THE LD ENTRY
IN THE CONTROL DICTIONARY HAVE
THE ESID NUHBER OF THE SO.
THE EXl T TO THE SUBRDUT INE
AllOWS THE CONTROL DICTIONARY
ADORESS OF THE SO TO BE E)(TRACTED
us 1 NG THE Es,lD NUMbER AS A KEY •

ThE SO THE
DlCT LO
BElONbS TO

•
•
•

•
•
•

CT~L

x

*. ••

.'.

C3
••
• " ES I G * •
•• OF LTRL
•• YES
•• 0ICT MATCHES ••••••
.E!lIO ['F co.*
•• 1 MAGE ••

*..*

YES.*
CTRl
.. •••••
DIeT TYPE
EQ ER
.. '"

*. *•. *.*

1

.Alt .

x
••
*••
·RB •

* •••

*NO

*C4
THIS EXIT TO THE SUBROUTINE
PROVIDES THE CONTROL DICTIONARY
ADDRESS OF THE SO POINTED TO
BY THE ESIO NUMBER IN THE
CARD IMAGE LO TEM. SEE

'NO

.

• bl·

01

x
."'.

*•

*"

••••• 02 ••••••••••

••••• 03··········
* SE T UP lNK •
KEG wITH
•
•
SUB ROUT I NE
•
•
RET ADDRESS
•
•

CTRl *.
"'RESET VARIABLE '"
•* •*DIeT
ASYES
'"
FIElD TYPE
so,*.••••••••••
X.
FROM LR fa
..'"
"'.lO, OR lR.*
'"
LO
'"
**.•.
. .**
'"•••••••••••••••••'"
'NO

X

'"
lURN ON
'"
POSSIBLE
'"
DUPLICATE
'" ENTRY SW 1 lCH

'"
'"

*'

.................
*

'"

*

x

.'. *.
.* E2
•. ••
NO .. '"
ASHBLD
......
ORIGINS
••
"'.
EQuAl
.*
*. *•• * .*
·YES

.··.·Fl·.·····.·.
*'"

MAKE VAR TYPE '"

,

,

F2

.................
.....
*

3

.•

*

*

2

H2
••
CTRL ••
•• 0ICT NUMBER*. YES
•• IN LO EQ SO ....... .
•• NUMBER • *

•*

*NO

·····J2··········
*•
•
•

•
•

•**•• *••••••••• *•••

X

••••• *K2.·······.··
ERROR
QR

...............

*

*

INlT lALIZE
•
ERROR MESSAGE •
WlTH 43
•

••••

•••• K1·········
RONEXT
CHART QP

*

.-.-.-.-.-.-.-.-.
•

21431
.............
SEND
ERROR MSG

....
....
1

•
TURN ON
..
POSSIBLE
•
DUPLICATE
.. ENTRV SWITCH,
•
DPNrsw

*

ESDRET

•

*
*

•
•
•
•
•

• •••••••••• * •••••*

•••••• ** •••••••••

·····J3····
..·.·.
.-.-.-.-.-.-.-.-.

·RB •
.. 61·

.....
i

X

.L TeOAO

• *

QE.

*

ESORET

*

GET CTRL D[eT •
• ADDRESS OF SO •
• POINTED TO .C4.

••••••••••••••• *•

K3

x
.0.

.* .
••

••

••

•. ••

......... ....x
.... ....
....

SO
LABELS
••
HATCH

••

*"0

**
•

3

YES
...... .

**

x

x

*•
*

·····Hlt··········

••••• H3·.········
•
SET UP REG
•
• INPUT AND LNK •
REG RET FOR •
•
•
SUBRoUT INE
•

X

•
•

* *
X

X

* *

i

.

·RH •

• 81·

• B1·

.

x

·VES

• HB •

••••••••••••••••••••••••• X.
ERR043

........ .....

•

x

i

x

.* .

G4
••
••
IS
••
•• CTRL DICT •• NO
.ENTRY IN CURR ....... .
••
PHASE
••

.··.·G3·
•••••••
• PUT THE ••
ESID
OF.
•
THE SI) THE
•
• CARD I MAGE lO •
• BELONGS TO IN.
• REG FOR S/RTN •

x

·YES

* 1 *
** ••• *

.-.-.-.-.-.-.-.-.
.................
•
GET PHASE
•
.NUMBER OF CTRL •
DIeT PHRV
•
•

X

*. ..

*.

*

. .

ELBNAS
i
·.·*·F4 ••••••••••
.XTPHNO
QL.

X

• •••• F 3 ••••••••••

••
CTRL
*. NO
••
DICT TYPE
...... .
...
EQ 50 ••

•

*

:X ................................ :

.*. *..

G2

.

•

.. .'x. .
.. .. ·..... .................
·.....
.*.
.... .... .....x

• *
*
ELBINT

**

.................

•••• *••••••••••••

....

*RH '"
'" El*

*

• •• ·*E4-*· ••••• • ••
•
PUT ADDR OF
•
• ORIGiNAL CTRL •
.OICT ENTRY .. LO •
•
• - INTO REG q

IMAGE LO •• YES
*.NOT A~SIGNEO

: ................. x:x

*

5 *
•** •••
*

X

X

• l TeOAD
QE.
.-.-.-.-.-*-*-.-*
• GET GTRl DIeT.
•
AODR GF so
•
.POINTED TO .A4.

•
PUT GTRL
•
.* . * CARD *. .* .....
•
• DIeT AODR OF
•
50 ITEM IN
•
• A WORK REG I S TER.
*.
.•
,
*
*. * ... *.*
x •••••••••• *••••••
'NO
*
•
*• 5 ••

•

'" FLO ECUAL TO '"
*lR IF NECESSARY.

....
....

*
•
*. *
• *••

·····[3·········.

x

X

....

......

·..................

"'.SIGNED AS

·····El·..····.··

ESORET

X

ELBNLR

*

4

**
*

**
*

Appendix H. Detailed Flowcharts

599

Chart RH.

ESD Processor, Update Linkage Table and Control
Dictionary (Part 1 of 2) $LNKEDTO~ Refer to
Linkage Editor, Chart 32

°Rt-U,GI
RF-G3
RG-G4
•••••••
•

•

•• ••••
•
I •

0 •
0

••••••

o

••••• al.i••••••••

: AOMLTBllV E
•
NUMBER IN
o Lot tTLONO

83

:
•
0

o

•

:
•

o

°i2 NDN-PRDtESS

0

CTlDAD

..................

LABEL LIST. THIS IS
NDW AN EXTERNAL REFERENCE.

X
·····e3··········

X
······C,,·.···.··.··
.-.-.-.-.-.-.-*-.

•

EUPDOK

.MOVE TYPE fROM.
•
VAR fLO OF
•
tARO IMAGE
•
•
• TO LINK TABLE.

••

·····EI....•.••..
X

o
HOXE THE
o VARI BLE FLO
o INTO THE tTRL
o DltTiONARY

o

ENTRIES
RF-Hl
RG-FI

CARD

•

*.

•

MAKE
DICT NUMBER
• NEGAlJVE AND

• RESET SWITCH
EUPDSW
•

.
•

•
•

•

X
·····G3.···.··.··

EUPOCN

e•

.•

*..
OYES

STORE CTRL
DICT NUMBER

•

• AND ADO 1 TO
•
ESID ,.UMBER

•
•

•

•• ND

.

•

•

• IN LINK TABLE •

•••••••••••••••••

.x

••••••••••••••••••••••••••••••••••••••• X.

..···HI.·.·······
X

•
SAVE tTRL
0
•
OI&T NY"BER •
: Rt! WnH ~~ID :
•

•
•

••••••••••••••••••

: .••••..•.• x:
EUPTRY

so

•

IMAGE EQ TO ••••••
e.
eM
.-

*.

ROr"EXT

CHART QP

: •••••••••• X:
o.

tARO

•0

...............•

•

•••••F3.i••••••••
CTRL
•

e.

* ..
oYES

.•.x

X
···.04.••.•.•..

•••••••••••••••••

.* .-

GI
• tc

.* .*

•

•

···.·E3···X ..··.··

·

•

NO •• IMAGE EQ TO ••
•••••• LO OR eM
.-

*. *.

.. ..
SD

•• • C2

•

.•.

F l o•

•*

03

• MAKE THE TYPE.
FIELD Of LNK
•
• TABLE EQUAL TO •

•
•
•
•

•••••••••••••••••
••••
o
0
...•
• F2•••• x
EUPOLT

.. .

21411

•••••••••••••

·YES

.. .....

OE2
MULTIPLE
RD-t4
RE-OI

•

:.l~·

QR

SEN" ERROR
MESSAGE

X

•••
••
IS
••
NO..
THIS A
••
••• ••• NDN-PRDtESS ••
••

ELBINT

ERROR

•••••••••••••••••••

EUPOSW

••••
o 0

••

INITIALIZE

ERROR MESSAGE.
WITH 41
•

so IS AN

mt~YNATEMlTYNN¥HE

.................
•

• •••• B4 ••••••••••

·ND

X

:Lm
• ADOR IN LOC

ERROltl

....
.. ..

•••••••••••••••••

·····C1~tRlOom
...••..••.

x
.*.
*.

•* ESJO *. *. Yes
••
.e NUMBER
*. PROCESSED .* ..•..... X.
••
••
•

NUMBER

•••••
• RJ •
• BI •
••
•

EUPOXT

•

•••••••••••••••••
X

••••• Jl·· ••••••••

:~I!I!~-.---.-~!:

: GET

im

OltT :

•••••••••••••••••••

.i..
•oo 1 •
••••

0
0

/

\.

600

DOS System Control

Chart RJ.

ESD Processor, Update Linkage Table and Control
Dictionary (Part 2 of 2) $LNKEDTO: Refer to
Linkage Editor, Chart 32

....

•••••

....

*RH •

*
•*

• G3*

o

o

0

*.2
IF OVERLAP
HAS OCCURRED.
THE SUBROUT INE
DOES NOT RETURN
CONTROL TO THIS
ROUTINE.

·.·•.SI··········
.................
X

EUPOXT

oCOSIZE

QNO

*-*-.-*-*-*-.-*-.
• CHECK FOR LNK ,.
•

TABLE -

tTRL

GET CTRl
OltT NUMBER
AND AOOR IN
A PAIR OF
REGISTERS

:EPHLOP

-. -..-.- ....x
* *
°NO

:

x

•• •-

i

•
•
•
•
•

•
•
•
•
•

•..•••..•. oox:

.0.x *.

.*. *.

ESC NCO

.................

•

.- A * • *. YES
*.•*NON-PROCESS
*. so OR PC .- .- .......

01

***

.··.·B4·.·......•

-DIeT OVERLAP*B2*

C1

1

....
1

:

*. *.

EPHULO

• •••• CS ••••••••••

:x ••••. oo oo.oo .•

·····04·•......•.
i

:EPHSCN

• POINT AT NEXT •
.CTKl DieT ENTRY.
• A:>olD liECREASE
•
•
CTRL DICT
•
• NUHBER BY ONE •

.................

-. -..-.- .....x

*.50 OR PC .-

•
•
•
•

.................

*NO

f~O~~~E~w~~~~T I~T.

SET TO BRANCH HIGH.
NO LENGTH
INFORMATION HAS
BEEN RECEIVED ON
THE 1 TEM.

J. t .

.. ..

A
NO
... PROCESS TYPE ......... ..
• YES

C4

•• IS
••
•
GET ESJO
•• CTRL DieT •• YES
•
NUMBER OF
.oo ENTRY UNAS- •••••••••• X.
CTRL OICT
•• !:dGNED LD..
• ENTRY IN REG
•• OR lR..
.USED I~ SUBI\l~

*C2
THIS BLOCK IS A TEST
OF PROGRAM SW ITCH
DERDSW FOUND IN THE
SUBROUTINE THAT seTS
UP THE CORE IMAGE
BLOCK IN MAIN

YES..
·• X......

••

05

.0.x .oo

ESID
NUMBER

"oo

·.AMI~US

·oo ·oo •• .-

•

••
••

••

*NO

·RB •

• 81·

.*.x *.

._ El ANY

**

*
ESDREl
_.

•

.* LNG RCVO -.
•••••• FROM SO ITEM .YES

-.

-. -..-..
*C2

.YESoo*
••• •••

.oo

.-

oo.

.....x

••••
.. ES··········
.L
TE510
OE.

.. -*-.-.-*-.-*-.-..
DETERMINE:.
•

.................
..
•
•

STATUS OF
ES 10 NUMBER

SET PROGRAM

•

*

:

T~W I ~~NI~~o

ESDRET

.................
LNG CTRL SECT.
PROCESSED
•

.* . ••

B1+

* *

oo. F5
•• ESID

YES
.• X......

-NOT ••
PROCESSED ••

.oo

.•

.. ~o

x

X

·····Gl··········
SET SWITCH

,.

••
.oooo.

•

OERDSH TO

.................
,.
CTRl SECT
•
,. ASSUMED - NOP •

Hi

.*.x *.

*.

*.

.0.

••

ESIO~

TO BE

·.BYPA~SEO

·oo

*oo.* .•..
yES

••

•. *,0
oo·

.....HS··········
X

* •*.

SECT
LNG EQ
ZERO
.-

-. -..-.-

YES

.* .......

X

*
·····Jl··········
• RESET QERDSW
•
TO BRANCH

•
FLAG CTRl
• DieT ENTRY •
La OR LR AS
•
ASSIG"eD

•

•

*
.................
•
•

0

°NO

*

G5

.. ..

•

,. SHOW ZERO LNG •

*
. *•CTRL

.oo

.. .... ..

:........... x:
,.

•
•

x

.RB •

•

••• ·.Fl ••••••••••
•
•

X

••
DICT
*oo
NUMBER
GT ROOT ••
•• NO • • •

*NO

X

:

.*.x *.

·oo .•

*NO

,.

E4

oo. tTRL

:.J2
NEW LOAD ADDRESS
EQUALS LOAD
ADDRESS PlU!)
LENGTH.

0

•
•

*

*
•
•••••••••••••••••

:X •••• oo •.••. :

·····Js··········
.................

EPH~CD

X

•
•
•
•
•

STORE C TRL
Ole T NUMBER
VALUE IN
CTRl DieT
ENTRY

•
•
•
•
•

X

•••·.Kl··········
CALCULATE NEW.
AVAILABLE
•
• LOAD ADDRESS •
·J2
o
0

**
*

.................*
:x .••.•..•.• :
x
••••
o
*
oo 1 •*
••••

Appendix H. Detailed Flowcharts

601

Initialize for $LNKEDT2i Refer to Linkage Editor,
Chart 33

Chart RK.

***·A4*********
1 JBOTH

*
* 2
•

****
X

*
**

B1·*·

... -*
*.

IT AN

*.;~D CARD

.***

X
SET UP
*
*
REGI STERS
* FOR CONTROL
*
CARD SCAN
* *** •• ***********
••

*****S2*********-

*··**B4·***·**···

...

*. YES
:
RESET FIRST :
.* ......•. X* NON-CONTROL ..
.*
: CARD SWITCH :
*****************

IS

* ••
*
*NO

*
* •
... 1 * .....
*
*
OTHT~P**
X

X

** ... *.e 1... **** ** ***

.. MODI FY BRANCH ...
*INSTRUCTION AT ...

**** **** ..
.. ****C2*
RON EXT

.*
*.

CHART OP

-LOCATION OTHTFR*
ADORE SS

*.

*.

TABLE
ENTRY

*..*
* .•
*
*NO

.."

02

•*•
HAS

*.

...

.*

•. PROCESSED.*
*..*
* ...
"
*YES

...

A REGISTER

x

.. POINT TO THE
.. NEXT TABLE

*

:TXT

ENTRY

x

.*.**
*RL ..
• * B!*

..

***.*04*******

*
....

*

TURN UN
*
Slotl TCH MODSTS * *

* *.* E 3***.*****
EXLOAD
*
CHART OP
:
*******.*******

X

*****E4*·*·**·***
*SAVE THE START-*
ING DI SK ADDR *
OF THE MODULE *
IN LOCATION
ESDNOO
********** .. * * •• * *

*
*
*
*

.

NO .*
.... *.

**

****
1

•*

*.

EQUAL
ZERO

x

TXTPRC

COUNT

.

.

YES

••••••

..
*****************

X
:**** E 1'" **.* *** .. :

Fl

*.

X

*****03**********
PUT THE AGOR
..

*.

*. YES
.* A PHASE *. NO
...
OF THE ESD
...
.* .••••••. X.. CARD BEEN .* ••.••.•• X-TYPE TABLE INTO*

OTH INC

• *.

••

*NO

• *.

01
*.
CARD
*.

AN

MODULE IN

.* ******** ** ** ***

.*

.*. * •

OBJECT

*. ••• * .*

..

.-TYPE MATCH

C4

*. PROCESS .*

*WI TH THE BRANCH*
...

.*

.*

*.
.*

*.

•*

x

**'***

·RM •

*

*•

F4

.* •

*.

ON
SYSLNK

*•

*•

x

* ••
*
*YES

**
*

• B2*

* *

ERROOO

*
REPROC

X

*. **If G1***** * •• **

*

•

*
*

X

..

:***!~~~!*~~****:

x

ENO

.....x
.RQ

x

*

* Al*

*****
*RN •
• A1*

*~~~~~*-*-*-*-~~*

*
ENDPRC
NOTE

•

OF MODULE

IN LOCATION
ESDOOO

*
4

..

*** •• ***.**.**.**

* *

*
RlOPRC

* •

****** H1 * **** **** **
MESSAGE
21001
**** •• *.* •• **

1

*****G4***··**·4*
*SAVE THE START-*
• ING DISK ADDR ..

INITIALIZE
•
ERROR MESSAGE.
FOR
*
INVALID CARD

SEND ERROR

* .. **

*
*•

2

*
**

THE EXIT FROM BLOCK 02,
ON THE YES LEG, DEPENDS
ON THE CARD TYPE FOUND.
THE BRANCH ADDRESS EXIT
IS ESTABLISHED AT
LOCATION OTHTYP.

x

* ••• J 1.********
RON EXT
CHAR T OP

(

602

DOS System Control

Chart RL.

TXT Processor $LNKEDT2; Refer to Linkage Editor,
Chart 33

*MUL TIPLE ENTRI ES
RK-E2

.

RM-H4

.'It •• *

•

* * *

1

* *

*B2

MULTIPLE EXITS FROM SUB-

-it

*

ROUTI NE DEPENDING ON
CONDITIONS FOUND THERE.

X

TXTPRC

* *.* B 1+ •• - ... * * ••
PUT ESID NUM-

II-

*BER IN REGISTER_

.. FOR
..

SUBROUTIr~E*

USE

..

X
TXT GET
*. *"'*83 *** ... *** ... **
*DEROAD
QT*
*-*-*-*-*-*-*-*-*
*
SET UP CORE
*
*IMAGE BLOCK IN *
*WKA?EA
*84*
* -It**** **** ****** ...

*B4
THIS SUBROUTINE LOCATES THE
CORE IMAGE BLOCK THAT THIS
TEXT BELONGS TO, IF NECESSARY.
IT READS THE CORRECT BLOCK
INTO LOCATION WKAREA.

-C4
.-li ..

x
**C 1 ..

-It . . . . . .

*L TES! 0

X

* ••

*****C3* *** *** ***
*
CALC MAX
*
-It
BYTES OF TXT- ..
*LOAD AOOR PLUS ..
* NUMBER OF
*

QE*

*-J!-il--*-lt-il--lt-lt-*

.. GET CTRL DICT ..
*
INFO AND
*
-It
RELOC FACTOR *

:* ~~!~~*~~*;~*~*:

*** .it ••••••• _* .. **

.*

Dl
*.
ESIO *.

******02****.-*.-**
ERROR
QR

oil-NUMBER NOT _. YES
.-It-lt-*-lt-lt-lt-il--*
-It.
PROCESSED
.* ..••. u.oX
SEND ERROR
-lI-.
*82
.*
MESSAGE

* •. *

*._._ . _.* ••• -

.. "

21701

*NO

El

x

** *** 03**********
*
CALCULoHE
*
...
* LOAD ADDRESS
* IN LOC WKAREA ...
*
*C4
*

*

** *** ******* *****

x

.*. ••

* •• *

** ***E 3**********
...
CALCULATE
-It
NUMBER
OF BYTES
*
MINUS 1 *LENGTH MINUS 1 *
-****************

x
.. * ***F 1.* •• * ** *.*

x
** ***F 3**** *** ***

0"

*.

.'It

ESID

-It.

NUMBER TO *.
BE BYPASSED

YES

..

.* .................. x.

*.

*82

*NO

*CALC LOAD ADDR

..

*

-

ASSEMBLED

ORIGIN PLUS
*RELOC FACTOR -

*

..
..

X

..
*
*

GET NUMBER
OF BYTES OF
TXT ON THIS
CARD IN A
REGISTER
*
* ... ********** **** *

.*

*.

.*....
ALL TXT
*.

.-

*

YES
..
FIT IN THE
.* .......... X*
BLK
.*

* ...
*
-NO

Hl
*.
.*NUMBER *.
.. * OF BYTES *. YES
•
*..
OF TXT EQ
.. * . . . . . . . . . . . . . . . . . X.
*..
0
.. *

MOVE TXT
TO WKAREA

*

.'

X

*-*"'*H3*** ** .. ****
*
CALCULATE
*
NUMBER OF
*
BYTES THAT
*
* CAN BE MOVED *

.

X
****H4*********
RDNEXT
CHART CP

*****-********* ... *

X

*--* .. J 1---*_ .. ****
* LOAD THE ADDR *
* OF THE FIRST *
* BYTE OF TEXT *
* IN A REGISTER *

*

TXT!~~**G4***"'******

G3"*· *.

*****Gl**********

-NO

*F4
LOAD ADDRESS OF NEXT CORE IMAGE BLOCK IS HICOP.E.
MAXIMUM LOAD ADDRESS IS THE LOAD ADDRESS OF THe
LAST BYTE IN THI S TEXT RECORD.

*
SUBTRACT
*
* LOAD ADDR OF *
*
NEXT Cool.
*
* BLK FROM MAX
*
*LOAD ADOR
*F4*
*****************

..

•
*
.... *.*.* ••• * •••• *

* •• *

THE LOAD ADORE SS ] N LOCATION
WKAREA I S EQUAL TO THE
STARTING ADDRESS OF WKAREA
PLUS THE LOAD ADDRESS OF
THIS TEXT MINUS THE LOAD
ADDRESS OF THIS CORE IMAGE
BLOCK.
THIS EFFECTIVELY
COMPUTES A DISPLACEMENT FROM
THE STARTING ADDRESS OF
WKAREA.
LOAD ADDRESS OF
THIS CORE IMAGE BLOCK
]S EQUAL TO PHASE ORIGIN
LOAD ADDRESS PLUS
SOME MUL TI PLE OF 1 72 8.
THERE ARE 1728 BYTES PER
CORE IMAGE BLOCK.

x

*** *J2 * * ... ** *** ...
RONEXT
CHART QP

x

:**"'*J 3"******"'*:
*
MOVE TXT TO
*
WKAREA

*

*********** ... *****

.
*
*

****

1

****

•

X

* .. ** .. K3**** .. * ..... * ..
UPDATE TXT
*
* POINTER, TXT *
* LOAD ADDRESS t *
..
AND BYTE
*
*
COUNT
*
** **** ****** *****

.x

****

• 1

****

Appendix H. Detailed Flowcharts

603

Chart RM.

REP Processor $LNKEDT2: Refer to Linkage Editor,
Chart 33

....
....

•••••
*RK •
.. F2_

o I
o

--

·····S4··......•.

·····82··..·•·•·•
i

REPROC

*PRTLST

i

QJ*

..

.-*-.-*-*-.-*-*-.
•
PRINT REP
..
•

CARD IMAGE

KEEP A

..

COUNT OF
CONVERTED

..

·····C2··········
.................

*-.
YES.*
CHAR
".
• •••• IN CD IMAGE

QH*

.................
.. CONVERT NON-

.. TEXT INFO TO
..
BINARY

..

..
..

X

• •• •• EZ ••••••••••
-STORE CONVERTED_

.. INFO IN TEXT ..
.. CARD fORHAT ..
.. IN CARD IMAGE.

.
.................

....
....

*.

x

0

*CNVHEX

.*
*. EQ

o
• 2

•

•

0

0

.* .*

X

TEST FOR

..
o..
..

END OF TXT
ON REP CARD
IMAGE

..

..
_..
..

····.E4····...•..
X

ERR051

.................
••
o•

•0
•
••

INITIALIZE
MESSAGE
WITH 51

F4

.-.x

.-.-.-*-.-.-.-.-.

••

• ••••• F5 •••••••••••

••••
ERROR
QR
••
CHAR
•• NO
IN (.a IMAGE •••••••••• X
SE"4D ERROR.
..EQ BLANK
MESSAGE
••
••
215Ll

.. ..

.............

.................
-

·····G2··········
.
.................

·····G4••••••.•••

FROM REP
CARD IMAGE

•

•

X

•
•

-- --

*••
-NO

.*

*.

•
•

••••
_ 2 ••••

COMMA

·····04··········
.................
..

X
•••••
•• ••••••
.GET F2··
ADaRESS
OF •
• TEXT MINUS 1 •

..

.0.i *.

C4

•

X
.···.02
....•••.••
*-.-.-.-*-*-*-*-.

..
..

BYTES

i

-

..

.................

-

.. SET UP tNT
•
• AN~ AOOR INfO •
.. FOR CONVERT •
SUBROUTINE

•

RUNNING

..
..

..

•••••••••••••••••
-

•

0
__

INIT IALlZE
- NUHBER OF

•
•

• BYTES CONVERTED.
•
CTR TO ZERO
•

INIT I ALll~

•

FOR CONVERT

•

INFO

CNT

SUBROUTINE

-

•
•
•

•••••••••••••••••••

.·····J2··.······.
-.-.-t-._._._._.
·•••••••••••••••••X

.CNYHEX
•

•

HORE.

•

.-................
•

NUMBER OF

•

• CONvERTED BYTES •
• IN CARa IMAGE.

H04

•••

••

....
.. ..
•••••
--.

• ·tORRECT..

RONEXT
CHART QP

•
•

•

ERR013A

• •••• H5 ••••••••••

..................
•

•

•• NUMBER OF •• NO
•
INITIALIZE
•
•• BYTES ON
•••••••••• X. ERROR MESSAGE.
•• REP CO ••
•
WITH 113
•
·YES

QH.

CONVERT TXT

TO BINARY

t
t

·Rt •

• 81·

TXTPRC

······J5········
.-.-.-.-.-.-.-.-....
X

m~EDC9~T
[~M~a~O

:
:

•••••••••••••••••••

QR

ERROR

SENO ERROR
MESSAGE

21131

•••••••••••••

X

:

...............

o

••••• K2·· •• ••••••

:

····G5·········
X

•
•

i

:.•..••........•.....•.•. x:
REPTXT

X

•

~

X

••••• H2 •••• ••• •••

•

.*

.YES

I

\

•
•

X
••••KS·.···
••••
RD~EXT
CHART gp

.

-•••••••••••••••

•

•

x
••••
- 1 •••• -

o

.

_

(

604

DOS System Control

Chart RN.

.*

..

X

_.*

RlDPRC

$LNK~DT2i

RLD Pass 1 Processing (Part 1 of 2)
Refer to Linkage Bditor, Chart 33

A 1 * *********
LERD BYTE..

.. PROCESSED eTR ..

'" AND NOP RLSwl ...
*62
...

*

-. ****

- 1

*

*B2
WHEN SWITCH RLSWI IS NOP,
~ AND P POINTER PROCESSING
IS FORCED.
WHEN THE SwITCH
IS BRANCH, THE REMAINING
RlD INFORMATION IS
PROCESSED.

X

*****81*******
..

TURN ON

iI-

... RLD ON SYSOOl ..-

·._-*._........· '.
*

SWITCH

-II-

*

4

- 5

-

_B4

FLAG BYTE WAS A BI T
SWITCH THAT SIGNALS
TH I S CONDI TI ON.

x
** ** * B3* *** * ****.

*
TEST CTRl
•
* 01 CT ENTRY TO •
* DETERMINE IF *
•
P POINTER
_

:~~!~!~*!~*;~~~~:

*
0*

C1

...

*.

-*

*

*

11-

INITIALIZE
• ERROR MESSAGE
\oj ITH 55

.*

X

·****C5*******
•
SET SWITCH *
*
RLSWl TO
*
* Nap.
FORCE
*
RAND P
..

*

:**~~2~;~;!~~* *

*****
*RP *
* A2*

UPOATE

·POINTER

: •••••••••• x~

*

Rl~RIT

X

-D2

*****01 ... -****-**.
AD DR

THE ADDRESS POINTER IS A
REGISTER THAT CONTAINS THE
CARD I MAGE AODRESS OF THE
BYTE OF THE RlD ITEM TO
BE PRGCESSED NEXT.

...

*02*

*
*

•
AOD 4 TO
_BYTE PROCESSED ...
...
COUNTER

*-

03

* •••• * ****** ***

RLSWI

El
.iI-

NEED

*.

*
.
* •••

- -X
2

RLST~***

*82

ito

.*

BR

.* .....

* ••
_NOP
<

5

X

*

TO BRANCH

x

** *** F3** ********

:~!~;!~-*-*-*-~~:

* GET CTRL DICT *
11NUMBER OF R *
*
POINTER
*
** **** ***********

.*.

X

G3
*.
.*
R
*•
• * POINTER *. NO
*.
PROCESSED .* ••••

*****Gl**********

:~!~;~~-*-*-*-~~:

... GE;T CTRL DICT *
...
NUMBER OF P
..
...
POI NTER

*.

** ._ .... if *** ** * •• *_

*.* •. *.*

.*

*YES

X

- ****

*
-

H1·*·
.*
P
*.
.* POINTER *. NO
*.
PROCESSED
.* ••••••••••••••••••

.*
* •.
*
*YES

.*

*

P
*.
POINTER *. YES
TO BE BY- .* .•..
.*
*. *F2 .*
-

<

X

*****Kl*1I-*1I-***
* SET SWI TCH ..
* RLWR 1 T TO NOP*
*GETTING OUTPUT *
FOR PASS 2 *

*

*

1

X

2

*J4

THI S FLAGS THE R POI NTER
AS AN ER.
WHEN LOAD

*

SEND
ERROR MSG *
21701
-************

* •.
*
*NO

x

*
*

* 'It ***H3***** *****
*SAVE CTRL DIeT *
* NUMBER OF R *
* POINTER IN R *
*POINT ER FLO OF *
*RlD CARD IMAGE *
****** ** **** *****

*
*.X.

*~~~~~*-*-*-*-~~-

*. PASSED

•

3

x
*** ***J2* **** **** *_

J 1

****

3

*.**

*

11-

.*

****E4*********
RDNEXT
*
CHART QP

*
*F2
SKI P THE ADCON I F A MI NUS
CONTROL DICTIONARY
NUMBER WAS DETECTED.

*****Fl*******
RESET RLSWI ...

X

** ***E3* *********
*STORE CTRl DICT*
_ NUMBER OF P *
* POINTER IN P *
*POINTER FLO OF *
*RLD CARD IMAGE *
*****************

••

.*TO PROCESS
POINTERS

*.

-

_ 4

.<. *.

******04***********
P
ERROR
QR
• * POINTER *. NO
*-*-*-*-*-*-*-*-*
POINTS TO . . . . . . . . . . . X
SEND ERROR
*.
SO/PC
MESSAGE
*.
.*
21551
*•• *
*************
*YES

*-

*.

.*.
B5
*.
.* NEXT *.
YES. - RLO ITEM
•••• *.
HAVE SAME .*
*. POINTERS .*
*. *B4 .*

* ••
*
-NO

ERR055
X
** ***C 3***** **** *

••
END

OF RLD
*. YES
*. \lAR FLO ON oil . . . . .
*.CD IMAGE .-

...

X

RlCONS

......

•

RLRET

.*

-

~2D:~~~~~l~~E O~?~~~T~~ tL

J3

BE SUPPLI EO FOR THE ER.
.*
R
*.
.* POINTER *. NO
*.
POINTS TO
.* ••••
*.
ER
.*

* .•
*
*YES

<

*

*

x.

* ***K2***** * - **
RON EXT
CHART QP

X

*****K3**********
* MOVE HEX 80 *
*INTO R POINTER *
* FLO OF CARD *
* IMAGE AS FLAG *
*FOR PASS 2 *J4*
** ** ** ***********

:X •••••••••• :

x

- ****

_ 4

*

Appendix H. Detailed Flowchc . ts

605

RLD Pass 1 Processing (Part 2 of 2) $LNKEDT2;
Refer to LinkagE Editor, Chart 33

Chart RP.

•••••
*RN •
• Cl••
•
RLWRlT

.*.X *•*.

• _ A2 ALL

••

*.

ADeONS

YES

*•• ~;::t~S~~RA~•. *••••••.••••••••••••••••••••••••

•oo••••
1 •
•
••••

*. **t3
••• .*
°NO

0

·····'4·.........
....•............

X

.····82·······

•
•

ii

RESET·
SWITCH
•

..............•
•
•

RlWR IT TO
BftANCH

•

......Cl...........
ERROR

.*

QR

C2

x
.0.
t.

•

to

OC3

IF THE ENTIRE
VARIABLE FIELD
OF THE CARD
IMAGE I~ TO BE

*.

*-*-*-*-*-*-*-*-*
INVALID
SEND ERROR
X......YES.*
••••
RlD
CARD -.._
HESSAGE
*. FORHAT .*
21561
*.
•••••••••••••
*•• - .°NO

•..•01.···.··.·

.0.•- •
02

X

•

RONEXT

•

CHART QP
•• •••••••••••••••
••

YES.*

.- DuES

VAR FLO

• MOVE CHARS
• FROM THE RLD
• CARD IMAGE
• TO I/O AREA
ADLOPT
•

np~3Sij~lD T~fiRE

WRITE THESE
ADCON~ O~

SYSOOl FOR
U~E IN PASS 2 RLD
PROCESSING. IF
ANY ADCDN OF A
SIN LE CARD IMAGE

•
•
•
•
•

:••.••••••.• x:
•

•

o

x
····Clt•••••••..
RDNEXT

CHART QP

•••••••••••••••

•

••

8E

-.

*.

.. ····.~fTcyN[~'8~
....•
t.AREA .*
*••
'NO

s~g~D THE
IS
OUT ON
• BUT THE
TO BE
ARE
WITH A
ONTROl
NARY
BER. PASS 2
PROCESSING
TEST FOR
THESE ADCONS
AND SKI P THEM.

••.•.
EZ··········
*-*-*-*-*-*-*-*-*
X

-WRSOOI

RS-

• WRITE OUTPUT

*

o

•

tAREA ON 5Y5001 •

•••••••••••••••••

•
••••.F2··········
•
•

RESET BYTES
IN 110 AREA

•

COUNTER TO

•o

ZERO

•
•
•

••

•••••••••••••••••

:...•...•.. x:
ii

·····G2··········

RLBYWR

•
CALCULATE
•
OAOORESS WITHIN'
'" 110 AREA FOR •
•
RLD ITEM
•

:..............•:

•
•••••H2··········
:
• ADD ByTES IN

: ~~YE~R~~ ~~Ro

•

• IMAGE VAR FLO.

o

•

•••••••••••••••••

.··.·J2.··
..·•.•.:
:
ii

•

:

STORE BYTE

E~~~3L~Y~~
B~~Ell~lm

0

:

••••••••••••-* ••••

o
o

x
•••••

• 1

••••

•

•

(

606

DOS System Control

Chart RQ.

END Processor (Part 1 of 2) $LNKEDT2i Refer to
Linkage Editor, Chart 33

.*.

*RK * ...
..
.. G2·

* -

. . . . Al·······
X

ENDPRC

... R ESE T MODULE ...

.. STATUS SWITCH*
...

MOQST$ TO

SHOW MODULE ...

...

ENDED

...

......... *** •••••

*

*

-

- 2

- 1

x

X

·····81·······

...

SET SWITCH ..

...

ATRLSW TO

.*

..

-INDICATE BRANCH-

..............
:

it.

TO lOC RON EX!.

•*

* .....

*. NO
.* •.•.

.*

x

• <.

*****B3*******
* seT RECFOO ..
.. FOR IMME:OIATE*
..
EXIT FROM
*
INSOOO. NOP *
*
* THE OPCODE *
*** ... ** •• *.***

.-

*YES

FROM
SYSLNK

.....

* ......

*....

*... + YES
......
.*
X

-NO

••••

... ****C2 ..... *** .. *
* SET SWITCH ..
..
RELBSW IN ...
*THE READ INPUT ..
•
RTN TO NOP .. *
** ......... *.** ..

** 2
*
END roo
NO.*

•• ••••

.*

......

01

X

X

Cl"··

.- INPUT

*.

-. *.

NAMED
sue MODULAR

*.

.*

.*

:~~2!~~******:~~:

SWITCH
SBMDS T

·-.

02
*.
.*
*.
.
.... LOCATION *. YESX
*. fljOSOOu EQ .. * .....
*. TO ZERO .*

E2·

*...

x

.** ...

• *.

NO.+

.-

...

•*
* ••
*
.. YES

.... *.

x

**

*

••• *
3

*.

.-

FINISHED

.*

....

*

G1

....... *.

-.

MODULE

*.

.AUTO LINKED-

.*.

*J5
+ ••

.. "

.*

YES

.....Hl·······
...............
:

...

SET SWITCH ...
ATRLSW TO ..

I~gI~~~~I~~~

...

.. "

•

.····Jl.·········
: RESET E$DNOO
..
AND END PER

:
..

*
••••••
* .. ******* .....*

**.**Kl·******·**
*
EFFECTIVELY ..
*SHIFT LOCATION ..
* PER IDA LEFT ...
* BY FIVE BYTeS *
:* ... *** .. :~;** . . it*:

..

-J3
THIS ENSURES THAT
THE CORRECT ADDRESS
FOR THE NEXT CARD
TO BE PROCESSED
WILL BE SAVED IN
LOCATION NDSOOO.

·

*

••

*NO

4

.

* *

NO
.. * ...................... ..

·YES

x

F4

.* .

X

*.

*·**·*F5***··*"·***
ERROR
OR
.-.-*-.-*-*-*-*-*
SEND ERROR
MESSAGE

YES.*
ESID
*.
• _...
TO BE
....
... BY PASSED.'"

*. * .... .*

** •• ~!!~!.**.

*NO

****

•
*
* s -

X

X

*
•

*•
*

*_.*
6

*.
*

.....

**·*GS .***. *. **

**
***~~!~!*~~**** *
RON EXT

*H5
THE CARD IS LI STED
IN CASE AN INVALID
TRANSFER LABEL
IS FOUND

.. *.:

-J5

X

.-**"'J4**.* ... **
•
TURN ON *
• SWITCH TRFRSW*
* FOR SLNKEDT6 *
PHASE
*
*

DETERMINES THE
ROUTINE THAT GETS
CONTROL AFTER
AUTOLI NKING· HAS
TAKEN PLACE.
ANOTHER ER CAN BE
AUTOLI NKED AT
THIS TIME.

x

• *.

.~**

.*

***.

K2
*.
..·TRANSFER"'· *. YES
*.
ADDRESS
...... .
•• ACCEPTED.·

*
*
*

.

x

* ***.** .... ****
••

** •• *********.* ••

x
it ......

*...

*.x .......... ..

* •••

: ••

*-***J2**··******
*•
*_
CLEAR
NAME LIS T
NMELST

....

••

- •••• ****_.*-***
***

*. *.

EISXFR··
X
*H3
THIS LOADS PERIDA
•• ... *·H4********··
.MOVE ASSEMBLED *
WITH THE ADDRESS
OF THE STATEMENT
* ORIGIN, CTRL *
AFTER THe INCLUDE STATEMENT
* DICT NO. AND •
JUST FINISHED PROCESSING.
*TRANSFER LBL TO*
SEE LABEL LIST
*;~~~.!~~~
ENTRY FOR PERIDA •

X

*.

S

ENOXFR*·
.*.* *os····· *. -*.
* PUT STARTING •
.. AD DR OF CTRL *
... 01 CT I N A REG ..
* FOR DICT SCAN ...

*
*
***.*._*******.**

X
•••

ENDXFR

..
*

·····G4.****.* •• *
*MOVE C TRL DIC T •
* NUMBER TO THE ...
* ESID FIELD OF *
*THE CARD IMAGE.

:....•.•... x:x

i

:~~2~~~~****.:~~:

*.

****

*NO

x

S

*****
·RR *
* B1*

ESID
PROCESSED

-

3

: •......... x:

1 *
it it ....

.* • *

****** ...... *** *

*....•.. x .......................... ._

.. ....

.LIST CARD WITH.
•
TRANSFER
•

x

.. ****E3**·****
* RESET SWITCH*
* REeFOO IN THE*
.. READ SYSLNK *
SUBRTN
*
*

* .. ***
.RR *
• 05*

H2
*.
*. *.
YES... NESTED
•••••• SUBMODULAR ...

AUTOLlNK'"

**

.* . ••
E4

*.*·.G2**********
*
f.lOVE DISK
*
1tAODRESS OF NEXT"
* CARD TO BE *
"PROCESSED INTO *
:1t .. ~2;*~~~~~~** .. :

..* RR _ FS.
****
ENDRTN

x

...
•

X

_~o

•
• RR
... X .... *
• 05*
*
MOV~~R·
X
THIS

*****04**·*******
*LTESID
OE*
*-*-*-*-it-*-*-*-*
* GET CTRL DICT -II•
NUMBER OF
*
*TRANSFER POINT.
****.**** ... * •• ****

......

*

X

*····C5··**··****

3 *
... ***

* ••
... YES

.* .+WAS

* STORE ADDRESS *
... OF NEX T CO TO ..
* BE PROCESSED *
*
IN LOCATION *
NDSOOQ
*
*
.. ***** .. **********

.*.
F3
*.
.* ADaR * •
..
YES .* IN PERIOA *.
.X •••••••••••••••• *. GT AOOR IN .*
*. ESOOQO .*

*.

**

NO

X

TSTESD

*.

MODULE

*.

.*
* ••
*
.YES

:~~!~!*-*-*-*-~~:

*

·

.*·*PERIDA
*. NO
*.
LESS THAN .* ••••
*. ESOOOO .*

:.............. x:x
Fl

.-.

*
*

X

TURN OFF

*.

* ••
*
*YES

x
***** 03**********

*•

*.••••••
NO
TRANSFER
LABEL • *

*.

C4
...
.* ESID * •
•• NUMBER
•• NO
*.FOUND IN END .* ••••
*_
CARD
.. *
*.IMAGE.*

* ISSUE I/O TO *
*CHECK NEED FOR *

8S-*· * •

-

-* -*

... ** *C3**"***·***

••

*

•*

....

*NO

6

7

X

*.

••• *

:!~~2~~::_._*_~E:

* ••
*
-NO

·····El·······

>

*

B4
....
YES.*
LABEL
*.
AVAILABLE .*
FOR TRANSFER*
*.AOOR .*

•*

*

.*
.....

* .....

- -

•

- 4

X

82 • *. it.

INPUT
NOW ON
-. SYSLNK

*

*
*

•* 7

-

**

*~**

** s **
*
*
*
*
*

Appendix H. Detailed Flowcharts

607

Chart RR.

END Processor (Part 2 of 2) $LNKEDT2; Refer to
Linkage Editor, Chart 33
**

<

4

**

<

*****..
*RQ

< **** <

.. 05*

:x ...

ENDSCD

•*

X
.*.
81

****
e ....................... :

.._. * •
82

*.

CTRL

.*DIeT ENTRY

*.
.*

.." CTRL ••
.* DIeT NUM- * .. YES
BER A MINUS .* ... ..
*.
.•
.. *
* ...
"
-NO

YES

LO/LR

* •• *

.*

*NO

.-** <
<
<

63

.. * ..

.* ZERO

*.

*•

LNG SO
YES
PROCESSED
.* .......
*65
.*

<.

. .

* ... *

*NO

<

****

• 1

* .....

.. 1

•*
*.

*B5
SWITCH DERDSW IN CORE
IMAGE BLOCK ROUTINE SIGNALS
THIS CONDITION.
CHART OT.o

X

ACSLTH

-.AN UNASSIGNED.- ......... X*.

*.

*

• 2

• *

* 3 *•

<

<

X

ENUN:S**

X

.. _ .. **C 1* **** ••• *.

·*****CZ* **** ******

*~~~~~*-*-*-*-~~*

POINT TO
NEXT CTRL

S END ERROR
MESSAGE
Z1471
*************

DIeT ENTRY

...... *._-.. -.*.*_ . *.
<

<

X

*****(3******* ***
•
TEST FOR
*
* VAll D CONTROL *
SECTION
•
lENGTH
*****

*RO *

*

EZ*

* •

*

.*

01

.<. *.

SCAN

••

x

*.
.*

* * **oZ* ** ** ****
*
RDNEXT
CHART OP

*****E
1.""."-----...
*
SET NEXT

*EZ
CAUTI GNCONTROL DICTIONARY
IS BUILT FROM HIGH
TO LOW MAIN STORAGE.
THE SCAN OF
THE DICTIONARY
IS FROM LOW TO hIGH
MAIN STORAGE.

NO.* OF DIeT
•••••
FINISHED
*.
*E2

X

ERR058
X
*****03**********

·
*
*
*

INIT IAL IZE
ERROR MESSAGE
WITH 58

.

05·*·

•*
*.o
YES.* PERIDA
*.
••• * .. GREATER THAN .*
*. Nosaaa .*
•<
x
* ••
*
*NO
*****
*RQ *
* GZ*
• *

*
*
*

*.** <
<
*

4

<

X

.. AVAI LABLE LNK ..

..

TBL ADDR

EQ

.. TO BEGINNING

..

OF

TABLE

..

..

..

E3

******E4***********
.*
*.
ERROR
OR
.. *
VAL I 0
* .. NO
*-*-*-*-*-*-*-*-*
LENGTH
.* ........ X SEND ERROR
*.. CSECT
MESSAGE

E ISCSL
X
*****F 3* ****.**.*
* CALCULATE NEW *
* NEXT POSSIBLE *
: PHASE ORIGIN :

X

*****F 1.+*******.

*

SET UP
VALUES FOR

..

*TABLE CLEARING ..
...

LOOP

..

••

3

•

*<

Gl'"

•*

.*
*. TBL
*.

X

****F4*********
RDNEXT
CHART OP

*. YES
.* .....
.*

..HZ

x

* ••
*NO

*

•

****
2
****

x

:****Hl*********:
* MOVE ZEROS
INTO LNK
TABLE

x

•
*

:..••...•.......••...•• •. x:X

*H2
LI NKAGE
TABLE CLEARED
AFTER EACH
MODULE HAS
BEEN PROCESSED.

H3.*. *.

ENDSBM

.*

*.

• * RETURN TO
AUTDLINK

*.

*. BR
.* •.••••••••••••••••

* ••
*
*NOP

X

*.

.
.* MORE *.
.. YES .. *TBL ENTRIES*.
..... *. TO BE CLEARED.*
*.
.. *
* ... *

*NO

x

****

608

CLEAR

NDSOOQ

*

*****G3*******
RESET
•
•
SWITCH USED *
* TO ShOW ZERO *
*
LNG CSECT •
*
*85
*
**************

CLEARED

*

X

*RQ

*

**
*

DOS System Control

*

****J4*********
ALNKPR
•
CHART 00

<
*
*

*****F 5*** **** ***

*

*.***

LNK

•* 2

FROM NOSDaQ
TO ONSOOO

*****************

X

*.

JI

*

<

............. x:X

: ENCRL T

*

*MOVE DISK AOOR

<

****

* -*._** •• _••••••
....

x

** ***E5* ******** *

****~!;~!****

*. * • • *.*
*YES

************ ... ***

..
..

.

.<. ••

*

HZ*

*

write SYSOOl Subroutine $LNKEDT2; Refer to
Linkage Editor, Chart 33

Chart RS.

····Al·······..

....

--•••••••••••••••-..

WRSDOl

•

_ 2

·····81··········

····.83·.··...·..

X

WRSOOl

..

LOAD THE

..

....
- -

•
..

-•••••••••••••••••• IN A REGISTER.

-

YES

··...01··········
X

..

DISK AD DR

..

ON SVSOOI

LOC ADDRESS

svc

0
WRITE

•••••••••••••

·....El··········
X

•
..
•
..
..

"

"

.................

i

INITIALIZE

..

WITH 91

..

ABTERR

CHART QM

..

"
"

03

* •.
-NO

····E3····.···.
i

"
"

SVC 7

WAIT

i x•••••••••• :

·····Fl··········
*-*-*-*-*-*-*-*-*
•
..

.*
"
*... ••

.
•
..

•••••••••••••••••

...•.Gl··········
.................
..
..

..
•

ONSOOl

..

NEXT RCD IN

SET UP THE
AND

•

CLREXT

X

•
•
•

ZERO THE
NUMBER OF
8YTE~

sus

•

•

•
•

..•.H3·········
X

....
--....-- 2

.. eta teN
TO

••••

.RLO OUTPUT AKEA.

.-.i:

"
"

x

- 3

• FIELD IN THE

*•
•*HI
IS
*. *. YES
SYSOOI
*... " ASS
IGNED
.* .....
*. *. TAPE
TO
.*
.. "
x
*••
-NO

····"Jl*·········

*•*. YES
.* ....
••

..................

•

X

END

OF
FILE

····.G3········.·

X

STORE 0151<
ADDRESS Of

.-. *.

* ..•
_NO

• 1

..
..

F3

.. .. ....
....
- - -.
-*.-.- . -....-

QK*

POINT TO
NEXT RECORD

"

"

STOP TIMER
"
•••••••••••••••

X

*ADIDSK

.-.x *•

X
····e2..•.••.••
-...............-

..

..

..

TAPE

.. ERROR MES~AGE "

..

..

.. PUT DISK AODR
..
ON SVSOOI
.. INTO CHHR OF
.. COUNT FIELD
•
RlDOUT

..

..

.* 110 *. *. YES
*..." FINl~HED
. . . . . ..
*. *.
.* .*

..

.................
..

..

..

·····02··········
.................
-

ERR091

•

.. AND STORE Itot

eta

AND SET UP

······C3····.···...

•

*. *-.ExceEDED
FOR SYSOOI
•••••••••••••••••• x.
.*
*. *•• *- .*
-NO

..

..

X

• *ClUPPER*. *- •
• *-LHY Of XTNT*-.

.. DECREASE THE

BLOCK COUNT

.................
-

-••••- 3

ADD 1 TO

..

..

.*.X

ERRQ91A

i

WRSTOL

..

• NEXT ADDRESS
..
ON SVSQOl

_

--....--

_K(TURN TO LINK •
•
REGISTER
ADDRESS
-

•••••••••••••••

-

"
..

-...................

WRITE
ON DISK

..
"

•.•.•
Kl········.·
*-.-*-.-*-*-.-.-.
-....................i:

*015K10

"
"

QM*

WRlTE
DISK

..
..

x

••••
1 ••••

*_

- -

Appendix H. Detailed Flowcharts

609

Chart RT.

Initialize Control Card Processor $LNKEDT4; Refer
to Linkage Editor, Chart 34

·· ..
• 4

···-AI·········.
·...............
:

IJBSCN

IJBSCN

X

..

SET PROGRAM-

·····81·······
..

SWITCH

..

BRANCH

...

·...............
...

ERRNHL TO

....
....
- .
....

· .
: 2

x

.. ..
.. •.•••YE;· ..

S EEBLK

..

LOAD A REG

•
•
•
:

· .

.................

C5

.. ... ........
...

•

~

-NO

.RU •
• Bl·

X

ic

·····01··········
:~~!~~.-.-.-.-~~:

.................
..
SKIP BLANK
•
.. CHAR IN INPUT ..
..

STREAM

..

RW-C4,04

....
·....
..
:.x.
....
.
·..•·E2.··.··.••·
.. ..................
...
.. ..
.. ..
.....x . .. ..
RX-FS

RY-04,~ •••

:

.'.x

.*

••
••

CLEAR
NAME
LI ST

•• NO
••••••
•• -BR-

X

·····Gl·····**···
·.....................
..
SET SWI TtH
..
-REeFOO TO A BR ..
.. NOP DI SK I/O ..

·....Hl··········
X

:!~:~~~-.-*-.-~~:

.................
DISK I/O

..

......
1

·····G2··········
.................
RESET
NAME LIST t
NMElST, TO
BLANKS

•

•
:

:X •••••••••• :

······H2···········
it

.:~~2~._._._._~~.
SEND ERROR

MESSAGE

•• HOOUL E

•.•. .•.•

oo.

•

-.........

•••• ~!!~! ••••

G3··· ••
••

OP
••
••
FIELD
•• YES
••
EQUALS
••••••
••
PHASE
••

*.

X

• ·.·G4.······.·
•
RDNEXT
•
:
CHART QP

GETVRB

••

.....h3··········
X

it

it

'-RW •

.gg •
• .G~ •

PHCRD

ALNKGT

LOG CARD

IMAGE

...............
RDNEXT
CHART QP

J3

·..................

•

:

.'.x

.. ..
··......

X

'1 NIT LOCATIONS • DBLNRDbPHCSN • •

PHY6~p~CAND

X

:~~~~!-.-.-.-~:

.................
• PUT OPERATION •
• FLO INTO LOC
•
PHYERB

.•

•

•
:

4

•

••

KS

.'.x

NON

••

··......
• 1

610

•

DOS System Control

•
•

••

........
x
....
- .
· - ·......
-.....

NO ••
COMMA
••
•••••
DELIMITER ••
••
FOUND ••
• YES

it

:

·····JS··········

ic

it

····K2·········

.-.x

·····HS··········

'NO

: 5

•
:

GS

:

'NO

.-aB!a

:~~!~~!-.-.-.-2~:

*.

1

.... ..... ............... ..... ....
.
'NO

...

:

••
WAS
••
YES •• A DUMMY
••
• • • • oo
PHASE CARD ••
••
BUILT ••
• • • B2 ••
••

••
OP
••
•
YES..
FIELD
••
• X.... ••••• ••••• ••••
EQUALS
••
•• ACTION ••

·....:.x.
'.

:

• ...... F4 •••••••••••

YES
.~~~~~.-.-.-.-2~
•••••••••• x
SEND ERROR
MESSAGE

'NO

••

it

• ••• ·KI·······
•
SET SWITCH.
•
RECFOO TO •
*
NOP
••

.' .••

.•.• WITHIN
~l~b··

••

•••• ~!!~! •••.

.. STORE CONTENT •
.. OF REGISTER 2 ..

.

•

•

x

F3

X

•
•
•
:

x

••••••••••••• ** ••

...............
RONEXT
CHART ClP

:

: •••• Jl ••••••••• :
.. IN LOC PER IDA ..

····E5·········
it

•
:

.................

-NOP-

.. UPDATE PERIOA ..
.. IF NECESSARY ..

·

21011

ENTCRO

X

·YES

:

.............

• RY •

·····E3··········
•
INITIALIZE
•
•
ERROR
•
•
MESSAGE
•
:
WITH A 16
:

RU-F3·
•
•
RZ-ES,...
• •••
84,G4 : . . . .
X
ERRNMl
•••
F2
••

• _ Fl OP Woo WOO
••
FI ELO
YES
*oo
EQUALS
.o* .......
*. ENTRY .*

..

•
•
•
:

Qft

SENO ERROR
MESSAGE

it

'NO

X

ERROR

........ .....
•.B!.
.

X

INITIALIZE
ERROR
MESSAGE
WI TH A 10

:

* ••
'NO

OP
••
••
FIELD
•• YES
••
EQUALS
••••••
••
ENTRY.·

3

•
•

....

••

RV-Gl

ERROIO

..-.-.-.-.-.-.-.-.
.....05.··.···.··.

INCCRO

03··· ••

• RU-GI,D4 ,G4,J4

.'.x

••
OP
••
VES..
FIELD
••
•••••
EQUALS
••
•• INCLUDE ••
••

.................
SKIP TO
NEXT FIELD

•
•
•
:

•

:~~~~.-.-.-.-~~:

•
:

..

INITIALIZE
ERROR
MESSAGE
WITH A 01

.................

•• ~•••

• •••• C3··········

..

.. AREA ADDR AND ..
.. ANOTHER WI TH ..
A ONE *S2

·····es··········
X

X

-WITH THE INPUT.

..

:

63 •••••

• 3

·····el··········

.a

'NO

•• DELIMITER •• NO
••
A BLANK
••••••

X

..

••

it

:

: 5

.B2
IF A PHASE CARD
HAS ALREAOY BEEN
BUILT, GO DIRECTLY
TO PROCESS THE
PHASE CARO.

.'.ic

••
OP
••
YES..
FIELD
••
• ••••
EQUALS
••
•• CATALR ••
••

AS

-

• 3

-

it

- 2

•

(

Chart RD.

Inc1ude Card Processor $LNKEDT4; Refer to Linkage
Edi tor, Chart 34

·.........
••••••••••• X:

•••••
*RJ •
• CSt
••
•

> I
>

:LAB~T

*INIT A REGISTER•
•

WITH THE
ADDRESS OF

•
•

•

FETCH INS'S

•

•

SLNkEDT AND

•

X

..

oo.

.................

AN ERROR

EXlST~.

t.

too

*. *•• - .-

*oo

.-

•,..

'"

X

INITIALIZE

>
•

x*
•• •••
•
• 2 ••

ERROtt. MESSAGE •
WITH 14
•

.RT •

• >F2·
•

oot NEXT
.oo
CHAR Ea *oo NO
tooLEFT PAREN ._

*

ERRNMl

.* .......

.....x

*. *•• - .• YES

i

TURN ON
NHSEsSW

A"'tIO SBMOS T

•

..

*RT •
• E2·

*• •
•

>

.....
...
x

ERROlO

»

>

• FS.

*-.-.-.-.-.-.-.-.

.................
POINT TO

•

•
CHARAtTEM •

.~EXT

•

X

.···.H...·•••• •••·

>

•

•
INITIALIZE
•
• ERROR MESSAGE •
..
WITH 33
•

>

•

•••

THE NAME

L1~T

WILL

8E 8LANK EXCEPT
WHEN A NAHEU SUBMOCULAR IS STlLL

8E ING

PROtE!)~ED.

•
•

.-.-.-.-.-*-.-.-.

.....•.......

••

....

....

• 3

ERR033

••

.................
CHECK FOR
DELI HI TER

•

MESSAGE

21331

.YES

>
•
>

·.···J3·······

SETNOS

X

•
SET SWI TeH •
•
"OoSTS TO •
• INDICATE UN- •
•
NAMED SUB- •
MODULAR.
•

..............

.'.i

..
..
..
.
·....
'.
....
".
*.

G4

.:···.Kl··········
• SET ERRNML TO •

N2~I/gm TO :

• AND INIT cfR

•

• WITH NAME tNT.
•••••••••••••••••
x
•• ••••
•
1 •
••••
*•

x

····KZ·········•
•
•
•

RDNEXT
CHART QP

•••••••••••••••

•
•

CA~O.

••

". DELIMITER •• YE5
EQ COM"'A
••••••
.oo
••

.oo ••

2

>

....
.*•• .*.
.. ..
.. •. .*..
>

•

x

•••••
.RT •
• E2·
*•
•
ERR010

•

·RY ••••
• Gl·
i

F l~D~D

J4

••

•• OELlHIIER •• NO
••
EQ BLANK
••••••

*oo ••

·YES

:x ........•....•.......... :
X

PURY

*

•

••
• ••••• JZ •••••••••••
LOt ••
ERROR
QR
NMELSI
•• NO
BLANK
•••••••••• X
SEND ERROR

.. ..

RZ.

.::HIJEL

•

'H2

•••••••••••••••••
x
•••

·····F4.·•.··.•··
.-.-.-*-.-.-.-.-.

•
•

>NO

ERR010

f:.1 THER TO AL~KGT [jit
ENTALK. EXIT f(j
AlNKGT IF THi: CA~IJ
JU5T PROCESSEt.. WAS
AN l~C.LUuE CAR(joo E;XIr
Tu Ero.ITALK IF THE CA~l
JuST PROCESSED WA~ A~

X

·oo ••

• HI •

• E2·

.HZ

•

·····E4··
•• ••••••
.UPDATE
RZ.

*

·..................
.....x
•

....

oo-

••

••••••

X

....·F3··········

NO

..... ..

x
Gl .'. too

...

PAREN

•••

NQ

*f5

EO COMMA

Jl

X

••

.YES

•• • YES
.*

ERR014

DELIMITER

••

.. •..• .. ..... .·····05·······
.............
:X •••••••••• :
•••

04

.•
• . ••
RIGHT

••

•..•

•• ·EZ ••

..

• YES

••
....

·YES

•• oo ••••••• X..

*.

.'. ••

lA~

........

>

.>. ••
E3

<:5

I
t.
•• CHAR EQ •• 1'\10
••
RlLoHT
..... oo.
••
PAREN ••

NO

•• TO LI ST ••

•

PHNAME

x

*oo

..

...
•
•

CHARACTE~

x

CHKRP

*. *.

ALL
• NO.. MODULE
••
oo ••••• NAMES MOVED ••

HAVE BEEN HOVEo

•

INTO LOC

SUSMon

8ACI<. UP
THE INPUT
POINTER 0'"'(

,,*

x

DELIMITER HAS NUT
BEEN FOUND AFIi:R
ALL HOOULE NAMES

RZ-

PUT OPERAND

*oo

••

**.. .••*

'E2
THE NESTING LIMIT
IS FIVE. If A

···.·El.·.·
•.··.•
•-*-*-*-*-*-*-*-*
oo_

X

•
•
•

•*••••••••••••••• *

*YES

X

oo*oo

•••

•• DELI MIlER
••
[Q CLMMA

..............

.'.

03

oo*

SET SWITCH.
PHCSW TO
•
ALLOW A
•
BLANK
•
OPERATION.

>

··* ...85··········*

TO BUILD A

•
•
•

NAME INTO
NAME LIST

i

....•01·······

Fl

U~ED

RZ.

PUT MODULE

•

•
•

••••••••••••••• •

•

IS

NAME LI~T FOR 1"HIS
1 NeluuE.

X

.EXTKtT

*5 .. 1 TCH, N"Sas .. -

..

LOtATlON NHELST AS

~~il(~yl(~u~~5~f I ~~E

·····t3··········
.-.-.-.-.-.-.-.-.
.................

X

..

•
•
•
•

.SUBR{JUTlhE .84 •

rURN OFF •
NAMED
•
SUBMODULAR
•

*eXTRcr

BY ~PEtlfYING THE

i

HAKE LOC
•
NMELS T THE
•
WORK AREA
.fOR THE E;XTl{tT

·····e1•.•.•.•
•
..
•
•
..

*B4

•

•••••••••••••••••

•
•
•

> 4

>

·•...83··········
.....................

·····81····.·····
i

INCCRO

·•.•...•••.•

•

K4

.'.x

x

•.RT
••••..
• >E2.
•
•
ERR010

••

.* fIRST *. *. YES
*.•••• OPERA"'tID
••••••
*. BLANK .•.*
i

....

••••

.... · .
'NO

•• 3

x

>

• 4

>

*•••

>
•

>

**••• •

Appendix H. Detailed Flowcharts

611

Chart RV.

Entry Card Processor $LNKEDT4; Refer to Linkage
Editor Chart 34

*HUL TI PL E ENTR I ES
RW-Cl
RY-H5

.....

.....
o

*RT ..
.. 03o •
o

ENTCRO

61

.*. *.

.ott

.ott

*.

*.

SAveTl

*.

AUTOLINK
REQUESTED

0

X

• •••• 82 ••••••••••
..
*. YES
..
SAVE
.* .••••••• X. DISK ADDRESS

...ott .o*

....

* ... "

Of THIS
ENTRY CARD

..

•••••••••••••••••

oNO

····C2·········
X

..

ALNKPR
CHART CO

X

·····01··········

ENTPRT

:~~~~~!-*-.-.-~~:

.................
...
..
o

LOG
CARD IMAGE

0

.·····El*······.
X

SET EXIT
TO FETCH

$lNKEDTB

·····Fl···. ····**
.................
X

:~~~~~!-.-.-.-~~:

.. PUT OPERAND ..
.. OF ENTRY CARD ..

..

INTO PHNAME

.ott G1

.*

.....

*.

- •_•
DELIMITER
EO COMMA

..

'.

*.

.-

* ••
'NO

.....x
...

*RU ..

.. J4*

YES

.ott .......

......it

...

*RT ..
.. E2*

ERROlO

FINDND

612

DOS System Control

..

Chart RW.

Phase Card Processor (Part 1 of 3) $LNKED'r4;
Refer to Linkage Editor, Chart 34

·•....
.
•••• •
> 1

•

X

A4 ••••••••••
••• •••
•
PUT MAX LNG •

.....

·.................

...

*RY •
• G3·

.*.X

PHCRD

••

INIT LAUZE

.eXTRCT
•
•

.'.x

*.

REQUESTEO

*. *.

*••
'NO

.* .*

······C2···········
ERROR

.•

QR

*-*-*-*-*-*-*-*-*
SEND

YES
••••••

••
••

..... .............
•

ERROR H5G

•

21251

x

C4

.'.x ••

•.

•

*PRTlST

•
•

••
•

X

LOG
CARD I MAGE

RONEXT

•

•
•

••

•

•.

*eXTRCT

......

.................
•
•

....

• 3

>

•

>
•

.. ..

-. *.

NO

.....

..

oo·

.RY •
* F3·

• YES

••
>

X

•

SUPPRESS

.oo oo..

NEXT
••
OPERAND A oo.
..PLUS SIGN ••

..•

oooo......

Fl

•••• Ag~le~

•• NO

X

•
•

•• oo·

(HARAe. TER IN
INPUT

••••

X

•
:

>
>

AT~~bVYON

•
:

•
•

•••••••••••••••••

.. ..
.. ..
J2

••

.'.x

x

•

DELIMITER·

NON COMMA

: . . . oooo .. oo . . . . .

...... ......

x
•••••
·RX •
• 82·
••

.

.oo
. : . AP~~~~O~aE .:.~~ ••

x
••••
•
•

>
• 1
>

••••

•

•

>

x:

•••··J4··.•··•••·

••

·YES

•

X

·YES

K2

oo.

TO SHON"

••••••••••••••

•• NO

•. oo·

•• NEXT

.oo

oo. .-

•

•• •~pr~~E~~~T ••• •••• oo

.'.x

.oo

•

-

•
•

••

OPERAND

x

•••••
·Q14 •
• AS·
•••
AHERR

-...

•

••••• Jl ••••••••••

•

•
•

• •••• H4.· •••••
•
SET PHCSW •

• YES

> 3

.>.x *oo

DELIMITER
EQ COHMA

.oo ...

:OELEXT

•• -.-.-.-.-*-*-*-•
POINT TO NEXT •

••••••••

•• G4

:x ..•..•..•.....•......•.. :

.. ..
.. .. .••••x . .................
• •

RUNNING

TEST TYPE

>NO

OSPRTN
••• •• H2 •• • •••••••
.UPDATE
RZ*

••

IU •

.................
•

• OF DELIMITER
>

..YES

• A1. NTABS

••

•

•
•

·····F4
•••••.••..
.-.-.-$-*-.-.-*-.

vt:s ••

NO..

•

•

• RY •

.'.x

..

RZ.

.C"'DEL

.oo

G2

ATTENTION

H1

x

•••••
• E2·
•
ERR010
• RT •

POINT TO

x

.. .'. ..
·····G1··········
•
•
·.................. .....x ........
•

oo. oo·

·oo • YES
.•

X

-.

*. ••SUPERVISOR
............. oo •• oooo oox.
PHASE
••

*.

·oo

NEXT INPUT
CHARAG TER

•
•

x

Fl

.

*.

.UPOATE

.>.

•*• *

·oo

X

RZ-

*-*-*-*-*-*-.-*-*
•
PUT
•
• OPERAND INTO
PHNAHE
•

.'. *oo

··.··E4· ••··•••••
.-.-.-.-.-.-.-.-.
.................

X

·····EL···.··•.··

DIt

. t DELIMITER
NO X
..EQ APOSTROPHE ••••••

•

CHART QP

oo

:X.oo ... oo.oo •• oo.oo :

x

LKQUO

...............
·.····02··.······
•

•

>NO

SAvell

QJ*

>

•• YES
•••••

·oo too oo_ oo. oo·

• 82-

·····01···.··
..·.
*-.-*-*-*-*-*-.-*
·..................

•• 2 ••

.oo

ANOTHER
OPERAND

*Rv •

X

....
....

•
•

LOG DBLWRD

X

-.

RZ •

PUT HEX
OPERAND INTO

•

'NO

•*
*.
... AUTOLI NK *.

•

.................

*. *.IN PROCESS .* .* .......... x*• ERROR
MESSAGE.
WITH 25
**.••.**
••••••••••••••••••
••

C1

IN A REGISTER •

X

• •••• 82 ••••••••••

••

YES

OF HEX FIELD

•

·····84..•..•..•.
.-.-.-.-.-*-.-.-.

ERR025

81
*..
•*
*.
• * AUTOLJNK *.

•
•

... ..
x

••••
> 2 •
••••

.CALCULATE NUH- •
•
BER of HEX
•
•
•

BYTES TO BE
CONVERTED

•

•

•
TO BINARY
•
•••••••••••••••••

•.-.-.-*-*-*-.-.-.
••.•K4··.·······
X

.CNI/HEX
:

•

QH •

ols~f~~~~INT
TO BINARY

:

•

•••••••••••••••••
x
••••••
·RX
• B5·
•••
Appendix H. Detailed Flowcharts

613

Phase Card Processor (Part 2 of 3) $LNKEDr4;
Refer to Linkage Editor, Chart 34

Chart RX.

•••••
• RW •
•>•
•

..•

*••••

*RW ..

• J2*

•
•

•*•..•••B2·······.·.
-LOAD A REGISTER_

1 TH MAX LENGTH_

•
FOR DECIMAL
• DI SPlACEMENT

•
•

oot
*oo

X
·····C2
•••..••..•
•-.-*-.-*-.-.-.-.
*EXTRCT

RZ-

PUT OPERAND

•
•

•

INTO LOCATION.
CNVSUC
•

•••••••••••••••••

oo-

*oo

•••••••••••••••••••

..

....

••••
>
•
••••>
x
• >•

....

>
>

>

• 1

x

DECDSP

83

too

K EO
l021t

*oo

*oo ._

*oo NO
.too ......

._

X

>
>

CONSTANT
BY 1024

•
•

MESSAGE
WITH 02

X

•

.................
•
ENSURE
NEGATIVE
•
• OISPLACEHE'H

>

>

·····05·········.
i

STORRS

•
STORE'
•
CONVERTED
• DISPLACEHENT
.VALUE IN LOCA•
HON 01 SPLC

x

oo·

.>.

*oo

*oo

.'.x

ES
••
•• NON- ••
NO.*
COHJI1A
••
•••••
DELIMITER
••
••
FOUND
••

*oo

K EO
1024

oo*oo too

•
•
•
•
-

.................

•
•

•••••••••••••••••••
E2

•
..
..

•

:..•..•.... x:

>

>

>
•

.*

·····CS········· ..

•
•

••••>
z >>
>
••••

.··.·02••••.••.••

••

>

•

.................
•
•

•••

·YES

>
>
>

>

MUL TJPlY

x

INIT ERROR

....
....

>
> 2
>

85

NO .DISPLACEHENT ••
••••••
NEGATIVE

i

·····C3••••••••••
•

>
>

>

............-...

TS1NEG

*oo

._

z

: •••••••••••••••••••••••• x~

-YES

x

••

K~ •

..... .. .-

too NO
._ .*oo ......

.*oo -YES
.-

i

*•••

·YES

*RY •
• 01*

> >
>

•
•

REDUCE
CONSTANT

•

•
•

LENGTH BY

•

ONE

•

•

x

•
>
•••••••••••••••••

•••••
• RT •
*• E2·
>
•

••••••••••• x:x •••••••••• :
•
x
.TSTLI"

oo.

••

G2

.*oo

too

too

*.

CHAR
NO
IN RANGE
••••••••••••••••••••
••
0-9
••

:•

x
····.·H3········.··
*-.-.-.-.-.-.-.-.

••
••

x
·····~a=:x;·····.

X

•• ••• HZ.· ••• •••• t

POINT TO

•

l~lR~E'IR

:•

•
...............
*.•
IN INPUT

.. .'. ..
.. ..
x

J2

••

• NO ••
END
••••••
yF
•• F ELO

••

··.Y~S

ERROR

QR

• SE=MmR
21021

· nett"UHFA~V
~C

:

CHART QP

•••••••••••••••

VERT

HE

••

.................
: DE

•

614

•

•••••••••••••

.....K2.i••••••••
•

.YES

.....
x

.QQ •

G3*

• >
>

ALNKGT

·YES

•

.......-....
•

.... ....

oo_

.>.

x
F5
*•
.*
•. ••
.. NO
•. *..* DELIMITER
A BLANK
.*

NAUTO

X

• •• •• F2.· •••• • •••

lD :

•

DOS System Control

:

Chart RY.

Phase Card Processor (Part 3 of 3) $LNKEDT4;
Refer to Linkage Editor, Chart 34

X

NTABS

.*-**Al-"****_"_·
*EXTRCT
RZ*
*-*-*-*-*-*-*-*-*
..
PUT OPERAND
•
.. INTO LOCATION ..

..

SYMBOL

..

.*******+.*******

*

:

..

X

FNDDEL

.. .
DELIMITER *.

NO
........ ..

X
*.+.
..

·YES
****..
.."
.... 1
..... * 3 .. it

•

B3

.*.

CRDENO

... *.

EQ BLANK

·

ALNKGT

X

03

****·01*********-

..

TEST OPERAND

.*

•*

··.·*C4·· •• • •• • ••

:~~!~~!-.-.-.-~~:

.*

• PUT QUALIFIER *
• INTO LOCATION •
*
QUALIF
*
** •••••••••• *****

**

****

2

*

* *

.. E5*

NAU~~··

·oo *NO
.*

*QQ •
.. G3*

.. * .....X

X

C3
*.
.* ·OELIMITER: *.

x
.*.**
•

__ •

..

*

YES

-RX

•••

:

QUAPRO
__ ****64**********
*UPDATE
RZ*
.* DELIMITER *. YES
*-*-*-*-*-*-*-*-*
EC. LEFT
.* •••••••• X*
POINT TO
*
PAREN
* NEXT INPUT
••
*
CHARAC TER
* •• *
********** •• *****
_NO

B1· tt •

•*
*. EQ COMMA
*.
.... *. ....

*

1

-

.-.

04·*·

••

...·OELIMITE~· *. YES
*.
EO PLUS
.* .... oo
SIGN
.*

..

..
FOR NO AUTO
...
.. SPECIFICATION *

-** •• __ ..... __ ._. __ •
•
*

.* ANOTHER * • •• YES
OPERAND
.* .•••
*.
.*
* ••
*
*NO

oo.

••

.oo .*
-NO

:X •••.••••..•• :
X

ERR015

-

.

*****El**.*****.'"

...

INITIALIZE

...

W!TH15

..

x

•. oo.

.
• ••••• F2**** •••• **.

NO
*. NO
*~~~~~*-.-.-.-~~.
AUTO
0* ......... x
SEND ERROR
-.SPECIFIED.MESSAGE

..... *

*.

.....-.......

*..o*

21151

2

E4

••

.*. *.

*.

.* DELIMI TER •• NO
••
EQ RIGHT
••
PAREN ••

.-

•.

.YES

.***

•*

.*.x *.
F!

*.

NO •• DELIMITER ••
EQ MINUS
*. SIGN
••

..

.. ERROR MESSAGE ..

..

CHKRPN

E3·*·

* •••

.*

•

X

x

.*
•• *
*RT •

·YES

*

-.

E2*

*
ERR010

X

***.*F4.** •••••• *
.UPDATE
RZ •
*-*-.-.-*-.-.-.-.
•
POINT TO
•
•
NEXT INPUT
CHARAC TER
****.*.**.**.* •••

··**·F3*······
SET PHCSW *
TO SHOW A •
*
NEGATIVE
*
* DISPLACEMENT *

**.**
••• **.* •• *

:x .......... :

x

X

**.**Gl···****
..
SET AUTO- *
.. LINK SWITCH, ..
..
ALNKSW TO
..
.. SHOW AND AUlO..
• * ••• OPTION
_._-_ •••• *

**.*.
*RW •
• H2*

X

..

····Gz··*······
RON EXT

CHART QP

..

X

* •
*
DSPRTN

* ...... **G4** •• *.**.·
.CMDEL
RZ.

.-.-*-*-.-.-.-.-.
•
TEST TYPE
•
• OF DELIMITER •
*- ......... ** •••• * ... .*

** .....

·RZ *
• El·

* *
*

it

.--***
--QQ --

-- G3*

ENT AlK

H4·*·

-

* *

.. *

ALNKGT

••

YES

YES •• DELIMITER *.

•.• *.

x

•• • *

*.**

*•*

3

A COMMA

**
*

**
*

•*

.*

oo ...

x

-NO

*** ••
.RV •

x

•

•• **
1

*

••
oo.

*.

*.

H5

••

*•

AUTOLI NK ...
REQUESTED .*

*.

••

* •••
*NO

B2*

* •

*
SAVCTL

X

···*·J5·**······*

:~~!~~!-._._._2~:
•
•

LOG
CARD 1 MAGE

•

*** ............... *.

x

••
** •
• QQ •
•• G~.

*
ALNKGT

Appendix H. Detailed Flowcharts

615

Chart RZ.

Skip Blanks and Extract Field Subroutine
$LNKEDT4: Refer to Linkage Editor, Chart 34

••••A1 •••••••••

•

SKJPB

• EXTRCT ••
•••••••••••••••

•

'B2
A DEL
IS A
TER
THAT
S
THE E
AN
OPER
HIS
CHARA TER I S ALSO
CALLED A STOP
CHARACTER.

i

••••• al ••••••••••

•• ADD ONE TO ••
•
• CARD I MAGE
•
ADDRESS
••••••••••••••••••
••

..···e2•••••••••

•*
*.
TO LINK •
*. *. Lot
A
.* •••..••. Xt•• RET
REG AODR
•
BLANK .*
*..*
••••••••••••••• •

*••
-YES

.'.i .-.
*.

I~~~~ TESTED,
LIMITER

~2Y~Yt.

01
• NO.' ENDOF
'.
•• •••• CARD IMAGE

.*.*

THE BYTES
PUT FIELD
BEEN
HE
INE LOOPS
THE
UENCE,

.*

*••
'YES

A

ELIHITER.

.i'.

ENTRY.*

•

*. *•• -.*
i
.'.
Ft
*.

*. *.

*. *. NO
••••••
.* .*

oG2
BLANK OPERAND
IS ACCEPTABLE
IN AN INCLUDE
CARD.

i

*••
'YES

o.

••••••
••••••

REGISTER

ADDRESS

•••••••••••••••

i

• LOAD ANOTHER
• REG WITH THE
NUMBER OF
•
• DELI MITERS

•
•
•
•

•••••••••••••••••••
••••••••••• X:x

......
......
•••

i

.... ....

• POINT TO NEXT
• CHAAACTER IN
•o INPUT STREAM

•••••••••••••••••

·YES

•••••
·RT •
• FZ •
••
•

X

• •••• CS.· ••• • ••• •
.LOAO A REGI::.TEit •
• WITH HIGHE~T ..
• LEGITI"ATE
* INPUT ADORESS ••

•••••••••••••••••

•

·····F3·····.····
•
•
•
•
.................
• POINT TO NEXT.
• DELIMITER IN •
THE TABLE
•
•

. . ..
..
.•.•••••
.........•••

x

.0.

•.•••·•
···.·04.·
•••••.•••••••••.

......
*...
.... .05

·YES

.
.....
..
....
....
··....' ...
E4

• ••

i
·····ES•••••••••
·

ERROI3

••

o

'

LAST

••

X

.

•
•

•

0

0

• FZ·

o

•

o

0

•••••••••••••••••••

.. . ..
....
G4

.'i

••

•• LEGITIMATE •• NO
••
SKIPPED
••••••
•• FIELD ••
•• ·G2 ••

oYES

..
i..
.RT •

·YES

•••

• FZ.

i

·••••H3··········
•
THE CHAR IN •
'THE INPUT AREA'
•
IS A NON•
.DELIMITER, MOVE.
• IT TO WRK AREA.

•••••••••••••••••

•

ADOITO

:
T=:¥I~~f=TS
• TO WORK AREA

•

:
•

•••••••••••••••••••
i
:~:~:~I·······:t:

.-.-.-.-.-....-.-.:
:

.................
•

POINT TO

Nl~Mml

i

•• ••••
•
1 •
•••••
•

DOS System Control

0

o INITIALIZE
•
• ERROR MESSAGE •
•
WITH 12
•

••

D~~~~~l6R

i
•••• • •••••••••••••••••
i
••••
•·RT
•••••

• 2

••••• F4 ••••••••••

o

•

•
INITIALIZE
•
• ERROR MESSAGE •
WITH 13
•
•
•

o

'••••
.

ERR012

i

G3

0

'.
• RETURN TO LNK •
NO •• I~PUT PAST ••
• REGISTER ADoR .X.......... COLUMN 71 ••

••••
*NO

i

.'
•
••

i

FONOI::...

••

•••••J3.i••••••••

616

••.••.B5··········•

••

0

•••• HI.i•••••••

•

··.·.03···.······

• NO..

oRE TURN TO LINK 0

•

*.

• 4

····F2 •••••••••

.i'. *.

.0.i

•••••••••••••••••

•••
*
• NO

.*OP fLO OF*. *. YES
• CTLRET EQU
•
*..**.
THIS CARD EQ •••••••••• x.
TO RON EXT
•
••••••••••••••••
CHART QP
•
*INCLUDE
. . * .*
*••
'ND

*.

B4

•• ENTIRE ••
NO •• INPUT FIELO ••
••••••
TESTED
.'
*OZ
.*

RESET
i
• •••• C3 ••••••••••
.LOAD A REGI STER.
.WITH THE START-.
•
ING ADDR OF •
•
DELIMITER
•
.BZ.
• TABLE

i

••••••
*RY
• HS_
••
EN •
TALK

'NO

Gl
BLANK
CARD

•
•
•
•
•

••
INPUT
•• YES
•• IS THERE •• YES
..EQ DELIMlTER •••••••••• I( •• AN lhPUT FLO ...... .

YES
' . THIS CARD EO ••••••

.* •*

i

• SET MAX CHAR
• tNT IN A REG,
• AND SET REG
POINTER TO
•
• OPERAND AREA

E3

•*El '. *.
. ' OP FLO OF ' .

*.

....

:X •••••••••••• :

.i'.

*. *.

··.··B3·.·.··.·••

EXTRCT

UPDATE
•• •••••••••••••••
••

•• ••••
•
• 1 ••

0

•••••••••••••••••

Cl
'.
• 'CARD IMAGE ' . NO

•*

•

•

•

••••••••••• X:
:SKIPB

•••.A5·········•

• ••• A3··•••••••

•
•
•••••••••••••••••

•

i

• •••• H4••••• ••

• RESET SWITCH'
.THAT lHOlCATEO.
•
• THIS AS AN
o INCLUDE CARD'
•
OPERAND •

.... .
·••••••••••••••

••• • •••
•• ••••H5.·
•
CMOEL
•••••••••••••••••*

.xx ••••••••••••••••••••••••••
Z '
••••
•• •••••

•••••••:I:
x:•.-.-.-.-*-.-.-.-.

CMDEL

.'•
•• J4
••••
:~=~:~i
••
INPUT
•• YES
•• ~~LIHm~AB~ . . . . . . . . . . .
N~~fNINJBT

.. ..

.........•.•.....

*..*

FIELD

'NO

i

·•.·K4.········•
•

: U1Y~MO A~~~

•••••••••••••••

:

•

••••K5.i•••••••
mJMN~ :
•••••••••••••••••

:

Phase Post Processing $LNKEDT6 (Part 1 of 6)
Refer to Linkage Editor, Chart 35

Chart SA.

-- --

-A2

~~~I~~EO

-

****Al**···· ..

·if

IJBCTL

°Mr.

••••• A3*·*.····.*
• GET ASSEMBLED ..
.ORIGIN AND ESID.
.. NUMBER OF TR •
.ACOR IN A PAIR.
• OF REGISTERS •
•••••• * •• * •••• *.*

AND THEREFORE

CANNOT BE USED TO
DEFINE A TRANSFER

...

ADDRESS IN LABEL FORM.
IF SUCH ENTRIES ARE
FOUND TO HAVE MATCHING

~t~3~~~ 1~~Y T~~E CONTROL

.*

St .. ••
IS

••

THIS AN

*.

*.

x

YES

.....

-NO

--

INCLPR

X

...

....
85
••
... THE ••
... CTRL OICT •• YES
*. ENTRY EQUALS .* .....
..o
SO
••

*.

-5G ...
... Bl-

·-***C1·*****...
seT SWITCH ...
NMSBSW TO

REFLECT

C3

*

.-.x

...

••

AUTOl! NK
MODE

••

ADDRESS A
LABEL
••

••

....

X

.*

X

....

-- --

:~~~~~~-.-.-.-~~:

•
SEARCH CTRL
•
• DIeT FOR OEFIN-.
• IlION OF TR LBL.

.... *.

-NO

-5G ...
... C1-

-

El·-·

•*

*.

•<

-.

ENTRY
CARD

-YES

-......

.

.*

*.

••

.*

••

.*

.* .......... X_.

.*

F2"' *.
IS
THIS A
PHASE
CARD

••.•
* •• *
• 6

X

·····ES·*·*··**·*
*
STORE
•
•
TRANSFER
* ADDRESS IN
*
LOCAT I ON
•
TRFRAD
*

•••••• * ••••••••••

* •• * ••••••••••

....

:

*.
••

-

.....
-.

-x

-

• •••••••••••• * •••

.-.

NEWPHS

ERR023

G3
••
.* •• *G4.*••••••• *
•• L8L *.
.SRPCOD
QF.
..OF ER, CM, •• YES
•• OR UNASSIGNEO.* •••••••• x.
CONTINUE
..o
LD/LR
.o.
•
DICTIONARY
• • • A2 ••
•
SEARCH
•

.-.-.-.-.-.-.-.-*

*. .•

• •••• *.* •••••••••

X

--.**.

-NO

··*·HZ·········
•
ABTERR
•
CHART QM

* ••••••••••••••••

.-.x

< 2

·*···H3··· •• • ......
•
SAVE
•
ASSEMBLED
•
ORIGIN OF
•
.USABLE TRANSFER.
•
ADDRESS
•

H5
••
.. ·LENGTH ...
YES •• OF CURRENT ••
.o • .o *..
PHASE EQ
...
••
PLUS
••
• .. VALUE.·

x

••••• * •••••••••••

••• *.

·SE •
• B1·

....

·YES

- .
- -

X

·.*

·.··.K1.* ••
•
RESET
TRANSFER
SWITCH AT
...
LOCATION
•
*
TRFRSW
•
•• ***** ••• * •• *

<
<

-

4

• ...... J 3** ••• * •• "'_

.*•••• J4 ••••••••• *.

.GET RELOCATION •
•
FACTOR OR
•
•
ESIO NUMBER •

SEND ERROR
MESSAGE
• ••• ~!~~!*...

:~!~~~!-.-*-.-~~:

i:
* •• *

-

--

CINOSl

X

• <.

Jl
*.
• *TRANS- *.
• * FER ADDR •• NO
*.ACCEPTED FROM ••••••
•• AN END ••
• • CARD ...

. -.-.-*-.-.-.-.-.
ERROR

• •••• * •••••• * ••••

QR

- 3

-NO

.-.
X

J5
••
• • ••
NO •• AN ENTRY
*.
X........... CARD BEING .*
•• PROCESSED."
..... • •••
.YES
_ 6

*.**

:

....

._x..

x

<

X

·····GS··**······
:
INITIALIZE
:
• ERROR MESSAGE •
:
TO 23
:

x

* ••• * •• * •••••••••

LENGTH OF
CURRENT

•
PHASE
•••••••••••••••
***

: ....

X

CALCULATE

• SF •
• 83·

*.X.

INITI AlIZE
•
• ERROR MESS AGE •
•
WITH 81
*

SET PHS··
X
•• _*.Hl ••••••••••
•
PUT lOAD
•
ADDRESS OF
PROCESSED
PHASE IN A
..
REGISTER
•

X

*.·.·F5··.·.*· •• •

x

*

-.

:

...... .

<.

-

5

YES

ERRosi*·
: ••• *G2. ** •••••• :

:~~!!~.-.-.-*-~~:
• WRITE CURRENT *
* CORE IMAGE
•
•
BLOCK
••
* •••••••
*.* •• -.•

: •••

- -

*NO

WRPHCD
i
·····GI·········*

4

WRTRFR

i<

Fl-·· *.
IS
*.
THIS
*. YES
FIRST
PHASE

-....-..

•••

·YES

-

5

-.

.....

•• ••

••
·S8 ...
... 81-

.NO

:

:

2

--

•• ••

-

-

lABINV
E3
...
• •• *.E4 •••••••
••••
•
SET SWI TCH •
•• MATCHING *. NO
•
DPNTSW TO •
•• lBL FOUND IN •••••••••• X. SHOW INVALIO •
.CTRL 0 ICT....
• LBl ON END OR.
••••
•
ENTRY CARD *

.- ........~**

-SD .... x.
... G2WRTHDR

•
CALC LOAD
•
·ORIGIN--EQUALS •
•
ASSEMBLED
*
•
ORIGIN PLUS
•
• RElOC FACTOR •

••••••••••••••• * •

- -

NO

* •••

:x .......•.. :

x

.* ••• 05········*·

INVALI 0 CARD
MESSAGE TO
BE DISPLAYED
ON HAP.

••••••••••••••• **
•

- <
INCGET

-

<04

·····03···*····.·

• * .*AUTO LINK* • *. YES
*. IN PROCESS .* .....
*.
.....
.* .*
x
* •••

.GET RELOCATION *
• FACTOR OF SO •

:.*~2l~!~2.!2 ••• :

x

- 3

01

.o •

:~!~~~~-.-.-.-~~:

NO
. . . . . ..

·YES

.-.x

.. -N"..

••••• C5* •• * ••••• *

••

.*
••
... TRANSFER ••

** ••••••••••••

-

X

PHXADO

•• **. B3··****··*·
•
SETUP·
• FOR A CONTROL •
•
DICTIONARY
•
*
SEARCH

INCLUDE
.* ••..
CARD
....

* •••

-- -- 3

DIeTl ONARY SEARCH FOR
ANOTHER MATCHING
LABEL IS CONTINUED.
••

-

x

ENTRIES DO NOT

DEFJ NE A LABEL

-

1

:

X

•
•

.... *K4·····**·*
RDNEXT
*
CHART QP
:

_

-- --

* •••••• ** •• * •••

1

Appendix H. Detailed Flowcharts

617

Phase Post Processing $LNKEDT6 (Part 2 of 6)
Refer to Linkage Editor, Chart 35

Chart SB.

•••••
tSA •

o

o

PHSPRC

••

*.•*

o

0

.t.X *.

81

s

*. *.

0

*. * . . *

*.•
*
oNO

*•••••••• x*•

X

.SRCHCO

.SEARCH CONTROL •
• OltT FOR ouP- •
•
LlCATE NAME •

••••••••••••••••

:x..........•...•......... :

QF •

.................

SHOW + PHASE •
NAME
•

••..•.••... x:x

.. .-. ..

·····Cl·····.••··
X

o

0

·····B3··········
.-.-.-.-.-.-.-.-.

NOllST

••••••
e2 •••••••
SET sw nCH •
•
DPNTSW TO •

TYPE
YES
PHASE
•
NAME.*

ERR025

••••
0
••••

o 1
o

• £1-

*.

C3

•

.. ..

• ERROR MESSAGE •

•• HATCHING
••
NAHE

•••••••••••••••••

*. ·YES
oo·

•

INITIALIZE

•

•

WITH 25

••

•

•

0

FOUND

•• NO
••• oo ..

••

x

•••••
·SC •
• BU
o •

.•.x *.

01

••••••
02 •••••••••••
ERROR
OR

*.

X

·.···E1··········
•
•
INITIALIZE

•
•

.................
• ERROR MESSAGE •
•
WITH 21
•
•

····E2·········
...............

•

0

RONEXT
CHART gp

······E4···········
.-.-.-.-.-.-.-.-.

•••••••••••••••••

21201

X

•

QF.

•
CONT INUE
SEARCH Of
•
• CONTROL DIC T

0

•
•
•

X

ERROR

QR

.............
ERROR
MESSAGE

~ENO

.0.x *•

..·.FIt.··.·.···
X

Ft
• *w I THNAHE
LOWER
YES
-.COLLATING SEQ.* ••••••••••••••••••
THAN $$A

*. *.

•-

*.

.·····E3··········
-.-.-.-.-.-.-.-.
.SRPCOO

•

•
•

*. *••• .• .*

o

RDNEXT
CHART QP

• • • It • • • • • • • • • • •

°NO

.. .0. ..
.... ....
.. .-. ..
........
x

Gl

••

••
PHASE
•• YES
•
•• BEGINS WITH •••••••••••••••••• X.
·.ASTERISK ••
°NO

·Y~E

x

X

.-.-.-.-.-.-.-.-.

HI·.

••

······H2···········
ERROR

•• NO

•• FIRST PHASE ••••••
••

o

x

.. .*. ..
Jl

••

.............
21211

x

••••
o 1
o
••••

o YES

0
0
0

X

••

........
OPERAND

QR

SEND ERROR
MESSAGE

.('1

•• NO

•• ROOT IN CARD ••••••
••
·H3
••

x

•••••

·YES

•
•

o

····J2·········
RONEXT
•
CHART QP
•

•••••••••••••••

*SC •
• 81·
o 0

o

NTROOT

X

•••••Kl ••••••••••
•
MOVE HEX 01 •

:mg ~¥~[ ~Yct :

.................
.NUMBER AND GeT •
o

EOS ADDRESS

:

0

ISROOT

X

•••••
·SO •
• F2·

o

618

0

o

DOS System Control

••
•
•
•

.................

ONO

X

•

ERR020
• •••• 04 ••••••••••

••

.. ..

21251
•••••••••••••

oNO

•••

YES
•• INJTIALIZE
•• FOUND ON
••••••••• 'OX. ERROR ME~SAGE
•• PHASE ••
•
WITH 20
·.ENTRY.·
•

SE=~S~~~~R

*. *•• *.*

•

03

o · · . ••
•• o
DUPLICATE

*-*-*-*-*-.-*-*-*

YES

•••• AB¥~l~2K •••••••••••• x

ERR021

NT~uOT

oX

*.

•• PHASE
• -CARD FOUND

0

CONTROL OICTIONlll'r NUM8ER OF r~ ROOT PHASE
IS ALWAYS A ONE.
\
THE CONTROL DICTIONARY NUMBER OF THE
FIRST PHASE. IF IT IS A NON ROOT PHASE.

IS ZERO.
SEE ROOTNO IN THE LABEL LIST FOR

FURTHER EXPLANATION ON ADJUSTMENTS
REQUIRED BY THE CONTROL DICTIONARY NUMBER
IF A ROOT PHASE IS SPECIFIED.

•
•

0

Chart SC.

Phase Post Processing $LNKEDT6 (Part 3 of 6)
Refer to Linkage Editor, Chart 35
*

•

3

<

<
<

•

X
****.A3**** ••• *..
A4 .* •••
*SRPCOD
QF*
••
IS
*.
*-*-.-.-*-*-.-.-.
YES..
IT ER,
••
... CONTINUE SCAN .X •••••••••• CM, OR AN UN-.'"
•
OF CONTROL
*
•• ASSIGNED ••
•
DICTIONARY
•• LD/LR.*

*SB-Jl

SB-C3

NTROQT

.. *
*.

.o*

B1

......

<
< 4

*

••

IS
••
THERE A *. NO
BASE

*.

....

...........................

< < <
< <

<
<
<

••••••
X

-***

... YES

• 2

<

*

<

.o*

**** *C2" _.-li ... *.*

C1

*.

FG

INDICATOR

•*

.o*

..

NO

LOAD A REG

..

•

WITh END OF

•••••••••• X*
X
...

SUPERVISOR

.

·..•...............

.....
F2··········
.-.-.-.-*-*-.-.-.

·····Fl·····.····

i

.4010SK

QM*

*-*-*-*-*-*-*-*-*
REAO BlK OF ..

•

..
..

•

•••••••••••••••• *

QK.

UPDATE TO

NEXT bLOCK

•
•

••••••••••••••
•
*••>

: x........................................ :
X

I NCLOP

••• •• G l · · · · · · · · · ·
.SCAN DIRECTORY.

•
•

FOR MODULE
NM1E THAT

•
•

.................
.•

*.

....
....
i

*NO

•*

2

•

i

ERR031

*

*

INITIALIZE
ERROR HSG

•

WITH 31

*

••

•

•

........ ....
--••••.. ....
••••
FOUND

.*

•
•
•
•
•

• 1

*•••
>NO

*

3

...............

>

•
•

•

...

••

ON

••

SYSlNK

• •••• E5 ........... eo

•
SKIP T{J END
•
OF MODULE
•••••••••• X. BY AOJUSTI~G
••
•
DNSDOD
.... YE!:a

•
•
•
•
..

••

•

..

•

.•••*..............,.

...*
*•• '"
'NO

.... ............
.. .'.x ..
......
"

.'.••

.. .
..........

..

: X................................... :

x

Fit

.". ••

...
ERROR
••
ON NAMED

..

•• NO

...... .

·SUBkOOUlAR ••
•,YES

X

·····G4·*··. •••••

•
•
:

CLEAR THE
NAME LI~T,

•
•

.·................
R~~~~S ~BM~~¥ :

:X ........... :

CREATES A LAST

·....H3··········
i

•
SET UP DISK
• AODR AND TYPE
OF INCLUDE
.FLO:; OF PERIUA
.AND GNSOOO .A4

•

..................
•

•

•
•
•

x
..•...
H4···········
.-.-.-.-*-.
.-.-.-.
ERROR

QR

..............
SEND ERROR
"SG

21311

·····J3····. ··
...............
i

READ INPUT
•
RTN. TO
..
BRANCH
•

..·.K3·········

····J4·······. ·
-.................
X

SET swt TCH •
RElBSW IN •

•
•

RDNEXT

CHART QP

•
•

i

RDNEXT
CHART QP

•
•

• • ............... **

i

**

E4

.*

DISPLACE
LIST ENTRIES
BY A FACTOR
uF F I 'IE
·H2

G3

•

ALKNPR
CHART QQ

.....

:X .......... .

•
•

...... ..

-NO

i

.
YES.

i

.*.i

OIRECTORY

NEST

*. ••

••• **F 3 ••••••••••

•
•
..

•• ~AGIC:C. ••
••
END OF
•• YES

••

PASS,ING REG

.•..05·········
i

•
•

x

••

LIST TOO
••••••
*.
LONG
••

••

•
•

•
•

.................

•

.*.

•
•
•
•

**

· · · · · J l · · · · . · ••••

"•

*

·YES

IN-FIRST DUI TYPE OF
LIST DESIGNED TO KEEP
TRACK OF INCLU[)E
LEVELS. THI!:. I!:. AL:::.O
•• HATCHING •• YES
CALLED A PUSH-IJOWN
•• NAME FOUND •••••• LIST. REFER TO PERIOA
IN LABEL LISL

.. ..........

X

PUT AoOR OF
SAVE AREA
INCSAV. INTO
PAKAMETER

.................

•
•

·.LIST ••

""2
THIS

HI·.

•
•
•
•

•• FINISHED •• NO •
".PUSHING DO~"I ...... .
••
THE
••

• HATCHES CARD
•
• IMAGE NAME FLO.

.".x

••

·YES

i

...

·*···04··········

*••••

E3

••

* ....
.YE!:a

INCERR

* LIST ITEM A~O
• PR 1 NT 1 F MAP •
•••••• ** ••••

.•
••

•••

. ..•......... x:

QJ •

IOENTIFY AS

INCf"lD

........

• INFO AND eee ..
.. FOR REAO Of
..
• RELOt DIRECTORY.

C4

..

.·····03··········
-.-*-.-*-.-.-.-.
•

*

•• 1 S THE ••
..CARCJ BEING •• NO
••
PRUCESS-EO
...................... .
.AN INCLUDE ••

X

.PRTLS T

3

X

ALKERR

•
•
•
•

: ........... X:x
••

•• ALL ••
•• OIRECTlJRY •• NU
• ENTRIES IN BLK ••••••
•• TESTEL ••

.. seT UP SEARCH ..

RElot
DIRECTORY

HOVE AUT aLI NK
AND HODULE
NAME TO MAP
PRINT AREA

•••••••• *••••••••"

i

·····EI··········
-OISKIO

·

•

•
•

•

:x ................. .

..
..
..

I

i

X

INCREO

i

·····02*··*······
•.••
..•.•.•••..•*
• *

.. DIRECTORY AND ..
.. SET UP CCw
..
FOR READ OP

*

•

.. GET STARTING •
.. AD OR OF RElot ..
..

*

•

.·...C3·.········

•
•
•
•

..... *

-

·NO

.....
.
....
.
· . .....

i

....

........

*.

*••
.yES

*•

·oo ••
YES.* • * I!:.
.......... CTRL CARD ...
.AN INCLUDE ••

..

*. *. NQ
RELOt
*. ·.ASSIGNED
LIBRARy
••••••
.*
.*
*.
i

•*•*

....

83

:x .............................. :
x

I NCGET

*

i

AlKFNO

..

.. NAME uno A
.. REG AND HOVE

•

•

X

lNCLPR

.A4 THE DISK ADDRESS OF THE
FIRST TEXT RECORD (JF THIS
MODULE IN THE RELOCATABLE
LIBRARY IS IN THE FORH CHHR.
SEE THE LABEL LIST ENTRY
FOR PERIOA FOR FURTHER
EXPLANATION.

--

-

•

Appendix H. Detailed Flowcharts

623

Chart SH.

Print Map $LNKEDTS (Part 1 of 4); Refer to
Linkage Editor, Chart 36

oA4
THE LENGTH OF THE COMMON
CONTROL OICTIONARY ENTRY
IS THE LONGEST LENGTH FOR
COMMONS OF THE SAME NAME.

·····AI····.•···
I JBMAP

o

o

o

o

X

·····82*·········

*.·.*B3"···".·· ••

.................

... CTKL DIeT AND.

:SPACE ONE LINE:

.................

•
•

···. ·el·······

·····C2··········
..................

X

AOMOSW

-LOAD REGS WITH •
... START AODR OF ...

... Roor NO., GET ...
... CIJRRENT DATE
...

X

.. MODI FY PRJ NT.
SUBROUTINE
TO PRINT A

...

:

...

..

X

o

INfORMATION
INTO PHEADR

... PRI NT COMMON

LJ NE

·····01··········
:~~~~~~-.-*-.-~~:

·

.
......

...
PRINT MAP
... HEADING LINE

•
...

•••••• *........... *

.••• *

X

·····oz··········
...

:

DIeT ENTRY

03

o

* ...... * ••••••••••

.YES

1

o

... ·**E3 ..... · · . · · * ·
*SRCHCO
QF •

oE4
THIS OVERRIOING
TRANSFER ADORESS
IF FOUND, IS FROM
AN ENTRY CARO.

o

• DICT FOR lBL OF_
• TRANSFER AOOR •

X

ESIXTA

-••••••••••••••• *

........................

x

X

TO THE CTRl
DICT NUMBER

•
•

• 0.

••

•* I S · .
NO.. CONTROL ••

•
•••••• DICT ENTRY A ....
•• COMMON .*

..*

F3

o.

•••

••

LABEL
FOUr-.tD

.>

>.

'. * •••

•• NO
••••••••
••••

>
o

....x
1

G3

it

>
0

·* ....

* .. • .... Hl .... •• ..
• CALC THE END •
..
OF COMMON
...
*ADDRESS FOR THE.
...
CTRl DICT
•
.. COMMON
.. A4 •

...................... *

X

••• .... H2 .. • .. • .... *
...
SET SW
*
...
MPLDSW TO •
ENABLING
•
•
LD/lR MAP •
•
PROCESSING"
•

....................
......
>

.SJ

.. ..

YES ••

• •• *.

•• ~.*

·SJ •

"····Jl······*···
:PUT ADDRESS ON :
• A DOUBLEWORD •
:
BOUNDARY
•

.....................

·. ··.Kl··. ··......
X

• CNVBIN

SL.

.-*-..
-.-.. -.-.-.-.
.CONVERT LABEL, •

: L~g~R A~g ~~~o :
••••• ** •••••• *.*.

o

...
~
2

. . ···J2· . ••• . ··•.
X

... SAVE THE CTRL ..
... 01 CT ADOR AND •
CTRl DICT
..
•
•
NUMBER OF

: •• !~!~.~~~~~ ••• :
X

• •••• K2 ... *" •• • •• •
•
SET UP TO
•
• READ 28 BYTE *
•
PhASE HDRS
•
FROM SYSTEM ...
•

: ••• ~2~~.~~~~ ....:

624

.-.-.-.-.-.-.-.-.
••••• H3····*·····
.XTPHNO
QL.

•••
*
_NO

.....
it

.B~ •
>

FCHRLD

••••••••• **....... .

.>.it

....
.... ...
J3

>J5
THE LENGTH AT THIS POINT
IS THE CUMULATIVE LENGTH
OF THE INDIVIDUALLY NAMEO
COMMONS .. llNKAGE eDITOR
CAN EFFECTIVELY STACK
MANY COMMONS IF THEY
HAVE UNI QUE NAMES.

.

••

••
LABEL
••
IN FIRST
••
PHASE

•• NO'
X
••••••••••••••••••••

.*

•• • YEs
X

••••• K3 •• •• •• • •••
"'SAVE ASSEMBLED •
• OR IGIN OF THE.
•
LEGITIMATE
*
...
CTRL OlCT
...

: ••••• ~~!~~.* •••:

0

o

... ~

..

0

>

: 3

:

: 5

DOS System Control

....
••

• GET THE PHASE •
NUMBER
•
•
o
>

:

** ••

••

MAP
OPTION

-

••••

*..... .

.> •

·SK •

X

•

• K3*
PHSTQR

X

:

0

.. ..
.. .. ....
G5

• • B~.
o

X

···*

... F5·*
...
•••••
seT
SWITCH
•
AOHOSW TO •
SHOW TR
•
ADDRESS
•
ACCEPTED •

>

o
••
LBl ••
• "'EQ ER, CM, •• YES
• PH, UNASSIGNED ••••••••••••••••••••
••
LO/LR
••

•*

* ••
*
.NO

·YES

x

• .......... * ... ...

·YES

it

• SET UP FOR A ..
CTRl DICT
•
..
"'SCAN TO SEARCH ..
*
FOR PHASE
*

.

0

it

ESI XTY
-**·*F4·*····*
o
0
•
TURN ON SW •
oo. x.
-DPNTSW•
•
HEX 80
*...

• 0 •

• ...... *G2* ........... • .......

.....

'.
••••

• ••• *. X

•• .. *·F2 ........... • ..... •• ..
• CALC TOTAL LNG *
* OF COHMO"'l AND 41•
SAVE IN
..
• LOCAT ION COMNRF.
•
"'J5
•

....

NOHFR
·"'**·E5*·**·"'**··
•
MOVE THE
•
...
RELOCATED
•
• TRANSFER AODR •
TO
LOCATION
•
•
•
OVRXFR
•
..** ........ * ....... .

....

:COMCHK

.*•• 0

• 1

:-·SEARCH-CTRl·-:
o
• 4

• POINT TO THE •
• ENTRY AND ADD 1.

>NO

••• ... *05*······· ... *
•
CALC LOAD
•
•
ORIGIN AND
*
*SAVE THE RESULT.
•
IN LOCATION •
...
•
TRFRAO

•• _* •••••••••••••

x
. ··. ·FI··········

*. • *

it

X

• NO

••

: •••••••••••••••••••••••• X:

.0.x ••

it

o

SJ ...

.NEXT CTRl DIC T ..

.0 •

C5

NO ."OVERRIDING· ••
•••••
TRANSFER
••
•• ADDRESS ...
•• ·E4 ••

o

...

* ....

*"'......

•. . .*..............

••

* •••

PHADMD

...

...... .. ...

*..

"' •• "'.C4 ••

.LTCDNO
QE.
.*
_-.-*-*-*-.-.-*-...
YES • *
CTRL
••
...
GET'RELOC
.X •••••••••• DICT ENTRY AN ••
* FACTOR OF THE •
*.
lD/LR ••
.50 POINTED TO. •
• • • ...

·YES
.-NOP-

EQUAL TO ZERO :

• -END OF ....
...
• * CONTROL *. YES
MAPlDR
*. Ole TIONARY . . . . . . . . . . . . . . . . . . . . . .

Gl

••

................. ..... .. ..

.0. ••
El

•

•••• * ••• * ••••••• *

• 0.

(,3

• oo

... SET LENGTH OF ..
...
COMMON C1 RL
...

••••••••••• x. ... K4*
x · •••

•

• GET THE ESIO *
.NUMBER OF RELOC ...
*
FACTOR
•

•
•

NO
.* FIRST * ..
-BR-.*
TIME
*oo
••••• THROUGH MAP oo- .. PROCESSOR.·

:~~!~!.-*-.-.-~~:

CLRCMN

:~!~~~~-.-.-.-~::

.........................

0

o

X

··*··B5··*···· ... ••

:~!:~!~-.-.-.-~~:
_ READ PHASE
•

:~~~~~;-.-.-.-~~:

:

HI:AOING LINE.'"

•••••••••• ** ••

0

X

X

. ····Sl········.·

PRTMAP

....

o 5

• 2

.~

..

....

X
•• • •• K4 •• •• •• ••• ...

:~~!~2-_*-*-~~:
• CONTI NUE THE •
•

SCAN OF THE

..

.~
0

:

•

:*••~!~~.~!S!•••:
:

4

•• * ...

>
:

Chart SJ.

Print Map $LNKEDTB (Part 2 of 4)1 Refer to
Linkage Editor, Chart 36

OWING FIELDS ARE CONVERTED TO HEXADECIMAL
FER AODRESS-UPOATEO BY THE LNG OF COMMONS.
IN
ADORESS-MAPPED AS LOCORE.
ADDRESS-MAPPED AS HlCORE.
SE
Ll
DISK ADDRESS IN THE
•
I
VERTEO BY ENTERING THE
IN SUBRDU
AT LLCATlON CNVLOP.
TEO BY AODING A
HAND RARE C
CONVERSION FA
TO Tt1E BINARY VALUE.

.MULTiPLE ENTRIES
SH-C3,G5

••••••
•
•••
•••
i

PHADMD

••••• 81.· ••••••••
• DISPLACE LOAD'
• ADDR OF THIS •

'*

•••••••••••••••••'*
i

.*Cl

.'. *.

·.•...•••.

....
•.... •

• PHASE AND NEXT •
• PHASE BY LNG
•
OF tOMPlONS

o

•

0

I

•

.-.-.-.-*-*-.-.-.
SL.

.................

·····01··········

·····02··········

i

•

•

•

PUT OVEROOT

•

MAP PRINT

•

MESSAGE INto

•

'*
••••••••••••••••••
•'*
AREA

•
•

CONVERT HAP
INFO TO HEX

•
•

•

·A3

•

0

.SAVE
.SCAN
•
AD
•
CO
RELO

·.".•...•••.
•

•
•
•
•
•

X

05
••
•• CTRL ••
NO •• 0ICT ENTRY _ •
•• ••• EQ LD/LR
••

SL.

• tONVERT CSECT •
.INFO TO HEX AND.
.MOVE TO MAP LOC.

i

o

....

•

·····EI·······
':* ~m~"lo~~
•

SET SW

•

OVERLAID

o

••••••••••••••

0

'0
•

NO.*

fl

0

....

....... .... x..

• X•• 3

.*. *.
IS

THIS

.~.

:CSCAN

-.

• ••••• ROOT PHASE

*. *.

SET UP TO
SCAN CTRL
DICT IONARY
FOR AN SO
OR PC
•

~

•*

X

i

.-.-.-.-.-.-.-.-.
·•••••••••••••••••.

•
•
•
•
"

•
•

*..*

.* .*

i

0

.. .... ......

•••••••••••••••••
•

0

·····Hl··.·.·.·.·

i

·····G2··········

•
•
•
•

o

POINT TO
NEXT CTRL
DICTIONARY
ENTRY

•

PUT THE PHASE •

•
•
•

PHAse INTO
LOC LORoor

•
•

AND HJRDOT

•

•••••••••••••••••

•

•••••••••••••••••

•
•
•

PRINT PHASE
AND CSECT
INFORMATION

H2

.'.

.... .....•
·YES

·····Jl.·.·
.•.·•·•
•

•

IN A

•

·

••

H4

•••

i

••

H5

.. ..........
••

END ••
OF
•• YES
tTRl OltT ••••••

END

••

••
OF
•• "'0
•• tTRl DltT ••••••

x

•••••
·SK •

·YES

..·.··J2·········.
-.-.-.-.-.-.-.-.

•••••••••••••••••

•
CSECT
•
•••••••••••••••••

•
PUT PHASE
NAME INTO
•
• MAP PRINT AREA
o

•
0

X

•..··Kl··········
•
lDOlN
• TOTAL C
•
TO TR
•
ADO

•

S •

R.
•

•••••••••••••••••••

x
••••

• XTPHNO

QL.

• GET PHASE NO
• OF CTRl DICT

• 0.

1 •
•• ••••
•

X

• POOH TO NEXT.
•
CTRl DICT
•
ENTRY AND
•
•
• ADO 1 TO CTRL •
olCT NUMBER •
•

.................
x

x

K2

.... ....
·YES

•• ••••
•
2 •
•••••
•

• NO..

•• CTRL
OICT

••

••

........

••

·YES

: PHS TOR

•••••
·SH •
•

J2.

o •
o

•

•
•
•

o
o

*.

..

.. ..
• ••
*
.YES

.·.··JS··········
X

•
MOVE AN
•
.ASTERISK TO THE.
• MAP PRINT FLO •
.TO SHOW UNREF- •
.ERENCED SYMBOL •

•••••••••••••••••

................

•.-.-.-.-.-.-.-.-.
.••.K5········ ..

x

••••
0
••••

• 3

x
••••• •
."
••••

.'.••

•• JS
••
•• CTRL DICT ..... 0
•• ENTRY AN
••••••
LD
••

•••••••••••••••••••

YES..
•••••

•• ••••• ~NT'~A~~UA~ •••

x

o

• RESTORE tTRL
•
DICT SCAN
•
INFORMATION

MPLOSW

• 0 •

K3

••

•• THI S ••
• NO •• PHASE EQ ••
••• ••• tTRl OltT ."
•• PHASE ••

i

0

•
•

.·.·.J4··.·······

X
••••• J3 ••••••••••

~L.

• CONVERT LOAD •
• AoOR TiJ HEX, •
• MOllE TO PR",U •

•

'••••
.

L[jRSCN

••
o

X

.CNVBIN

•

REGISTER

• 5

°NO

•
•

X

•

••

i

X

• 81·

: •••••••••• X:
MAPHNM

.'.

•

••••

• •••• o .X

.. ..........

.*

••

H3

•
•
..

•
SET UP C.TRL •
• DltT END AoDR •

•
•
•
•
•

.................

••

•• IS
••
• NO •• THE ENTRY ••
• ••••• AN SO OR PC ••

X..

••••·G3.·X••••••••

MAPHAS

•
bET CTRl
•
OIC T NUMBER
• AN~ CTRL DICT
• AOOR OF THIS
PHASE
•

•

• •••• FS··········
•
MLVE C.HAR:)
•
-ENTRY- AND •
•
•
THE LBL FLO •
• TO PRI'n AREA •

QJ.

• 02.
HAPLDR

.•. ...••.. .x:x

x

i

-LIMns FOR THIS.

•
•
•
•

•• ••••
•
5 •

X

.PRINT

o

o

•
•

i

.:)H

·····G1.·•••••••·

X

•••
ES
••
•• Lo/LR ••
NO •• BELONG TG ••
• •••• CSEtT BEI~G ••
·.PROCESSED.·
•• ·03 .i
* •••
• YES

•

II'

• •••

oNO

•
PUT ROOT
•
• MESSAGE INTO
•
-HAP PRINT AREA.

•

•

....•
.·····FIt.·.·.···.·
-.-.-*-.-.-.-.-.
................. .·................
....
.... .
.·.·.Gs···.······
····.G4·········· .-.-.-.-.-.-.-.-.
.·...............
.... . . .................

•

•

F2
*-.
•• END ••
••
OF
•• YES
•• CTRL DICT ••••••••••••••••••••

*••
·YES

SPACE ONE
LINE

• YES

•

LDRT:)o

••••• E4••••••••••
.SPACEl
CiJ.

•••••••••••••••••

: •••••••••• X:
TRVROT

.•.•.E2··········

•
•
•
•
•

•
•
•

................. .... ............
.CNVBIN

•••••••••••••••••

MAPCST

PRINT TO
,..EXT CTRL
OICTlrJNARY
ENTRY

.'.x

.••·.••·••
.·.···04
-.-.-$-.-.-.-.-.

• 5

X

i

•
•
•
•

...... ........
DICTIONARY
THE CSECT
ESSED AND
POINTED TO BY
ARE COMPARED.
L CONDITION IS
LD/LR BELONGS
CT BEING

0

····.cs·.·.······
.·................

LoRGO

OICT •
AND •
OF.
TO.
CTOR.

II'

X

• PUT CONVERTED
•
FIELlIS
INTO
•
•
HAP PRINT
AREA
•

•

•

i
·.···C4••••••••••

.~•••• C2.!••••••••

.CNVBIN

.• • . *. OVERLAP ROOT *.••
*. PHASE .*
*.
.*
*••
'YES
DOES -.
NO ._THIS PHASE

• 2

0

0

X

....

Kit

••

PROCESS
LO/lR

••
••

ONO

:x .•..•..... :

i

.PRINT
•
•

QJ •

PRINT ENTRY
UNE ON MAP

: SCNCMN

x
•••••
·SH •
• E1·
••
•

•

••••••••••••••••••••
i

•• ••••
•
5 •
••••
•

0

Appendix H. Detailed Flowcharts

625

Print Map $LNKEDTB (Part 3 of 4); Reter to
Linkage Editor, Chart 36

Chart SK.

-••••

_ 3

.
-

-•••• *

•••••
·SJ •
• H3*
••
•

·.···81··········
•
•
: •••
••••:
.....
· ..•...
•
:

PUT ADOR

O~l~fR~~T~~RL

· ...*.
•*•*

.PRINT

•
:

*.

; •••••••••••••••••••••••• x;

--

• 2

•• ••••••••
•• •••• &5
seT
CNT
•
•
OF PRINTED
•
•
LINES TO
•
• 54 TO PREVENT.
•
OVERFLOW
•

.................

..-.
.. ..
••••

••••

EXTNlP

••••• e2 ••••••••••
•• POINT TO ••

*. *.

END
NO
*. -.CTRLOf
•••••••••• Xt NEXT CONTROL •
.. orCT [OHARY
•
*. *••DIeT.*
.•
••••••••••••••••••
ENTRY
•
*

TERSXY

X

FCHRLO

QJ.

.PRINT POSSIBLE.
• INVALID ENTRY.
• POINT DUP HSG •

X

Cl

·SH •
• G5·

•

X

1~~~.~~~

~
••••
eXTSCN

1

.....
83··········
.-.-.-.-.-.-.-.-.
.................
.... .

X

PREXTN

.....
.--

-••••••
••••

-

X

C3

•••

••

••

........

.*.x

••

ANY· •

..... ........
.

NO..
ERROR
••
••• ••• ON ENTRY
••
•• LABEL ••

NO..
ERRORS
••
•••••
IN THIS
••
••
RU'"
••

x

.YES

·YES

C5

.YES

·SL •

• 82·

.t.x

Ov'RlSW

• *

x
.*.

•*01 HAS *. t. *.
8R.*
•.•.
*. *.BEENROOT
DYER- .*
LAID
.*
*. *•• - .*

02
••
•• IS
••
NO •• CTRl olCT ••
• •••• ENTRY EQ TO ••
••

x
•- ••••
•
4 •
•••• -

-Nap

.

........
fR

••

•
•
•

PUT HSG
INTO HAP
PRINT AREA

•••••••••••••••••

.....
Fl··········
•-.-.-*-*-*-*-*-*
•.................•

.·····F2··········
-.-.-.-.-.-.-.-.
·.................-

·····F3··········
.-.-.-.-.-.-.-.-.

.·····Gl········
-.-.-.-.......-.-.-.•.

X

•-····G2··········-

• OVERLAID "5G

•••••••••••••••••

-·····EI··········.
•
•
•

PUT
HAP PRINT
AREA

•

NO..

•
•
..
•

H5G INTO

••• •••

•
•

•
•

QJ.

PRINT ROOT

•

MOVE UNREF- •
*ERENCEO SYMBOL •

•
•

•

•

•••••••••••••••••
; •••••••••• x;x
DUPlAB

HI

.-.

........
FOUND

••

•••.•H2··········

x

·····Jl.·.·
.....·-•••••••••••••••••X

'
PUT MSG
INTO MAP
PRINT AREA

•
•
•

•..-.-.-.-.-.-.-.-.
·.·KI··········
X

• SPAtEl

OJ*

SPACE ONE

•

•••••••••••••••••••
•

LINE

x

*•••• •
*• 1 -

•••••

626

•

•

MOVE CHARS

•

EXTRN lBl

•

..

--••••
••••
• 2

•

•
•

X

·YES

•
•
•

HSG TO HAP
PRINT AREA

; ••••••.••• x;
t.

ANY *.
•*.0DUPLICATE
•• NO
O.
LABELS
••••••

••

•
•

•

•

STRUCTURE

SPACE ONE
LINE

• SPACEI
•
•

QJ.

SPACE ONE
LINE

•
•

•
•

EXTRN AND

•

• TO HAP PRINT
AREA
•

•
•

•••••••••••••••••

•
•
•

X

• PRINT

QJ.

.................
• PRINT INVALID.
• TR lBl ON END •
• OR ENTRY "SG
•

; •••••.•••• x;

X

•

QJ.

.SPACEI

•
•

-PRINT

••
••

X

QJ.

SPACE ONE
LINE

FIRST
ER FOUND

INITIALJZE
ERROR "5G

x

UNRSPC
••

G3

•••
ANY

••

•
'"
•

• ••• E4.........

...............
ABTERR
CHART '1M

•.••F4.........

................
SVC 6
CANCEL

ES

.......·YES

.-•••.H3··········.
.-................-

•
.X....... •••
•
••

•
•
•

•

.*.x ••

...
.... .
OR $
PHASE

·····J2··········
.-.-.-.-.-.-.-.-.

.PRINT

QJ.

•
PRINT·
• UNREFERENCEO
•
SYMBOLS MSG

•
•
•

X
• • • • • J) . . . . . . . . . .

.-.-.-.-.-.-.-.-*
QJ-

.SPAtEl

•
•

SPAce ONE
LINE

•
•

•••••••••••••••••

•••••••••••••••••••

·•·•••K2·······-

.-.-.-.-.-.-.-.-*

X

X

• • • • • K) • • • • • • • • • •

-••••••••••••••.
•
•

•

RESET SW
EXTHSW TO

BRANCH

x

**••••
•
4 •
*

•

••••

DOS System Control

•

•

•

-PRINT

OJ*

•

PRl NT ZERO

•

SEtT MSG

•

LNG CTRl

•

•

•

•••••••••••••••••

; •••••••••• x;x
*

•••••

• 3

•

••••••

."

x

.. .-.IS ..
FS

•
YES.*
.X...... ••••

••

...
.... .

OPTION
CANCEL
••
ON

•

••
••

••

*NO

.·.···Gs··········.
.............
i

svc. a

WRITE A

•

LINE TO
SHOW
ERROR

••••HS.·.······
X

•
•

...............
.....

*

SYC 7
WAIT

x

X

••

*.0

X

• PUT "SG INTO
•
MAP PRINT
AREA
•

•

•

•• ERRLJR ••
YES •• IN lNKEoT ••

EXEl.h'R

••

NO •• ZERO LNG ••
••• •••
CONTROL
••
·.SECTIONS ••

•
""

WlTH B5

*

X

••

·YES

X

-SPACEl

x

E2

•

*

.··.·.E3······.···
-.-.-.-.-.-.-.-.
•.................•

EXTNSW

.·...............-.

•
•
•

.... .-. ....
........

X

•
X
ERR08S
·····OS·········*'

X

*

-YES

SETJC~

·····03··········
.................

·SL •
• 82·

-

*-

...

•

•

Chart SL.

Print Map $LNKEDTS (Part 4 of
Linkage Editor, Chart 36

4)~

Refer to

.... A4········· CNVBIN

*

-

- 1

..* "SK-C5,H5

·····64··.·..·...

SET JCS
X
··***B2******_

X

..
$VC 13
..
.. SET JOB CTRL ..
.. FLAG TO SHOW
..

........ _... _..

..

GOOD LINK

EOI T OUTPUT"

..

..

it

..

..

CLEAR

WITH 6, THE
COUNT OF
HEX OUTPUT

:.*~~~~!;!;~; ••

·····C2*·········
..*

LOAD A REG

..
..
•

*

..

ERROR REG-

····C3·.·· .....
CNVLOP

*E3

ISlER, RB

·
·
•

...
•

*:

..
SHIFT A
BYTE fROM
..
.. INPUT REG TO
: ADJACENT REG

..
..

*

.
.

ADD ONE

*•

TO OUTPUT

AREA POI NT ER

•

....... **.* •••••••

X

·····C4····.··.··
..................

X

**.*.B5***··****-

..

.-

C5

.-.

NO ...
HEX
•••• _.
CHAJt CNT

....

•• HI lEaD

:

*.

.. •

••

.*

.*

-YES

: ............................ x:x •••••••••••• :

.....04····**····
-...........-.-.....

····02 ..........

..
..

SVC 1

...............
FETCH

$LNKEDTA

X

CNVLOP

i

*

..

..

*

ZERO
ADJACENT

•

REGI STER

X

••••-05.* •••••••

·................
:

R~~G T~Db~K

:

*E3

ENTRY POINT

TO CONVERS ION

X

SUBROUTINE

FROM MAP

PHASE WHEN

THE C.YLINDER
VALUE OF A
DISK ACORESS

I S TO BE
CONVERTED.

***·*t4**·***·"'·'"
:
H~~JF~Y~E
*
FRO,", INPUT
REG TO
•
• ADJACENT REG ...
* ••• *** .... .,.. •••• *.

X

·**··F4 .. ••• .. *.·*.
•
SUBTRACT
•

*

9 FROM

ADJACE-NT

•

1

I

REGISJER

*........... ***.****

G4

.*. *.

t

YES .. * ·*RESULT *. * •
OF CALC
.*
*.POSITIVE .*

•..• *.

.. ..
* ••
*
-NO

x

: •• *.H4 ••••• *.**:
•

•
:

ADD 57

TO ADJACENT
REG I STER

•

*

:

........ * ..... *.* ••

:........... x:
x
:****J4.** •• * •• "':
*
•

-

ADD 192 TO
ADJACENT
REGISTER

•

* .'"* ••• ** ••••••• *

X

•• ·**K4*.**** ... **
*
STORE HEX
•
•
CHAR IN LOC •
• POINTED TO BY ..
• SPECIFIED REG ..

-••• ** •••••••••• *.*

x
****
-- 1 •

. .-

I
I

Chart SM.

Pass 2 P-Pointer Processor $LNKEDTAi Refer to
Linkage Editor, Chart 37
****
-

1
****

.-

A3·*·
****Al*********

•*

I JBRlD

•*

END
OF CARD
IMAGE

* ••
*
-NO

*•

.*

*. YES

.*

•

B1
...
.* HAS *.
... AN ABORT
ERROR

*.OCCURRED

*.

4

.-It

---x..
--

-II . . . if

*NO

-

X

** *** B3*** **** ***
* STORE NEWLY *
*CALCULATED BYTE*
* COUNT IN THE *
* I NPUT AREA
*

YES

****

- 3

•

x

*.

.. ..

. .

*****84**********

*
*
*
*

GET COMPLETE

PHASE NUMBER
THIS C SECT
BELONGS TO IN

*
*

*
*

:***;~*!~!~;****:

*S," ...
.. 65*

* T
ABOR

x

.* . . _. RESTORE
C 1 ******* ... *
*

.. DISK ADDRESS
OF LAST

.

it

BLOCK

.

RADD4
X
** ** *C3* * * * * *****
POINT TO
NEXT RLD
RECORD

_C2
BRANCH ON HIGH TO

ROTSIG INSTEAD
OF TO LOCATION
ERROR.

..

C4·*·

.* .*IS

THE P

* . *.

YES

*. POINTER IN .* ..•.
*THIS PHASE.*
*.
.*

* ... *

'NO

*02

X

**.**01******·
...
...

MODIFY SUB-.
R TN AT LOC
*
OERDAD TO TR
iI-

*

THIS PROGRAM SWITCH
IS ALWAYS SET TO NOP
ON THE FIRST RlD
RECORD.

X
03.*.*.
RIP *.
.. * POINTER
*. PROCESS ING
*.NECESSARY.*
*. *02 .*

.*

...
CTRl TO LOC *
.. RaTSIO
*C2-

.*.*** •• ***.*.

x

AND GET NEXT

x

..

*

•

4

x

RLDOP
X
.****F3*******
*
SET SW
*
*
RLDSW3 IN *
* CONSTANT PRO- *
'* CESS ING SECT *
*
TO BRANCH *
**************

......... Fl··· •••••••

*

REPOSITION

'"

SYSOOI

it

TO

..
it

•• * •••••••• * ***tI ...

:x ...........................

.*.
:~~~~~!-*-*-*-~~:

.

P

x

* •• *

*NO

.-

*****H3*******
*SN-C2,G3

•

NOP SW
RLDSW3

*

•

.-....

X

*****Jl*******
NOP SW
*
RLDSW1 IN *
THIS RTN*

*

POINTER

***

****
2

*

x

** ** *J 3*** *******

:~!~~~~-*-*-*-~~:
*
GET RELOC
*
* FACTOR FOR
*

P POINTER

** ** ** **** **** ***

'.
*...
.
* .X •••••••••••••••••••••••••

X

RLDRET

*****K 1**********
*
*CNT OF BYTES TO*
* BE PROCESSED *
*AND SUBTRACT 4 *

.. LOAD REG WITH

.

.

x

** *'**K 3**********
* SAVE RELOC
FACTOR IN
LOCATION
RFDFP

*** *** ** **** *****

.

• 1

628

DOS System Control

:~!~~!~-*-*-*-~~:

*

READ 28
BYTE HDR

x

*****

* PROCESSING *
**************

X

*****F4**********
*
SET UP TO
*
*
READ THE
*
* 28 BYTE PHASE *
*
HDR
*

*****
*SN *
* * B!*

X

SP-D1 ,C4, E5

PLUS 12

*

: x•••••••••• :

X
POINTER TO
INPUT AREA

GET RELOC

FACTOR FOR

:*****~~!~;******

*****G4*********«

*.

YES. * POINTER *.
••• *.EQ MINUS CTRL.*
•• DICT NO .. *

****
• 2

*****H1**********
* SET UP REG AS *

*

*

X

G3·*·

.*

*

FROM SYS001

:~I~~~~-*_*_*_~~:

o ...... :

x

RLDRAG
•• ***G 1" ..... **

"* READ RLD RCD

X

*****E4**********

•

:~;~~~;-*-.-*-;~:
.. START OF FILE

-

**************** *

.

- -

.

RLOCON

X

:ADDR ON SYSOO! :

.* _•• * ••• * ** * ••••

*****
*SP *
* B1*

*****E3*******
*
RESET SW *
RLDSWI TO *
BRANCH*
PROCESS
*
:***~2~;!!~!** *

*
.RESET
SW PREPHS*

*****04**********
STORE THE
*
PHASE NUMBER *
OF P POINTER *
IN LOC PHSNO *

*
*
*
*

BR

* ••
*
*NOP

* •• *. E 1if.*'" •• * •••
...

X

RLOSW1

•

3

.

RLDOR

Chart SN.

Pass 2 R-Pointer Processor $LNKEDTAi Refer to
Linkage Editor, Chart 37

......
--

··
:x •....•.•....•

*SH •

... G4*

• I

X

RlDOR

RLCTER
X
• ··**82.······ •••
•
ACO ONE TO
•
THE CNT OF
•
•
UNRESOLVED
•
ADCONS KE PT
• IN Loe UNRESO •

·*.··Bl*·
•••• ..
..
SET ..
SW
RLOS~2 TO
..
BRANCH..

.................

..............

INITIAL
..
CONDITION·

..

.-

C1

NO

e. ••••

*.

.-. *.
R

POINTER

EQUALS

•• ER

-.

.-

X

·····C2·······
•
SET SW
•
RLOSH3 TO •
8RANCH•
8YPASS
•

*.

.*

.-

: •. ~~~~;;;!~~ .•

* •• * .
-YES

.....
•• K;.
.
·SH •

·····D1·······
................
X

..
..

RESET SW ..
RLDSW2 TO ...

..

ER ENTRY SW ..

RLDRET

.. NOP AND CLEAR.

'E2
IF THE R POI NTER WAS
AN ER IT IS NECESSARY
TO PROVIDE AN ASSEMBLED ORIGI N FOR USE
IN CALCULATI NG THe
LOAD ADDRESS. THE
ASSEMBLED ORIGIN IS
THAT ADDRESS OF THE

·····El··········
X

:~!~2~~_._._._~~:

..
(,ET RELOt
..
-FAG TOR OF C TRL ...

...................
DIeT ENTRY

g~h~~s ~~EC~R!H~~ITCH

..

RLDSW2 I S THE ROUTING
SWITCH THAT DETER..,INES IF AN ASSEMBLED
ORIGIN IS NEEOEO.

····. Fl······. ···
SAVE THE

..

*.

Gl

.'. *.
'NO

......
··....
.
x
.

.'. * •

•

.. * • -CTRLIS DItT*. *. YES
ENTRY A
.... COMMON
.. "

.-

••

Jl

*.

.'.
*.
IS
*•

ENTRY AN

ER

.'
* •• 'NO

··....
......
x

• 2

•

* •••

3

* •• *
.*

...

••

••

•••
03
••
WAS ••
THE R
*. BR
POINTER
...... .

....

AN ER
••
•• • E2 ••

:.E4IF

THE R POINTER WAS AN
ER, THE CONTENT OF RFOFR
IS THE SUM OF THE
ASSEMBLEO ORIGIN AND THE
RELOCATION FACTOR. IF
THE R POINTER WAS A NON
ER, ONLY THE VALUE OF THE
RELOCATION FACTOR IS STORED
IN LOCATION RFOFR.

X

·····E3··········
• ADD ASSEMBLED.
.ORIGIN OF CTRL •
• DICT ENTRY TO ...
• RELot FACTOR- •

: . . ;~*~2~2.!2~~;.:

4

'
.
••••
*

•

.x •••••••••••

• RELOC FACTOR
IN LOC RFOFR

*

*

*

:*.*-••:~~ •• -•••:

..x_..
•.K!*
.
*SM ...

RLDRET

.* .....

··....x ..
•

x

• - CTRl DIeT

·· '..

RLDSk2

*··*·G3········**
* STORE EITHER ...
* LOAD AOOR OR •

• 3

* ••
'NO

'*F INC SO/PC THE •
•
RESOLVED LR *

: •• ~~~~~~; . . !2••• :

X

... 50 OR PC .-

*.

X

·"·**C3·"'·*····*·
::!~~~2-*-.-*-~~:

*
...

*. A • • _ .-

*.

'NO

·

IS
*.
CTRl
*. YES
DIeT ENTRV ...... .

HI

••

:.**;2!~.!22= •• *:

:.*••• ~~!~! ••* •• :

•*

"

• LENGTH OF THE •
• COMMON TO THE ..
•
CALCD
•

... ORIGIN Of THE ..
..
CTRl DIeT
..

•-

83

.YES ••
• ••••• UNRESOLVED ••
••
LR
••

·····F3····_··*··
•
ADD THE
...

..

ASSEMBLED

:RNXTRN

.

X

X

..

..

• 2

·NOP

:...•...... x:
..

··......
.. . ..
........

4

•

*. YES
.* .....

.-

·....x .
:

I

•

Appendix H. Detailed Flowcharts

629

Chart SP.

Pass 2 RLD Constant Processor $LNKEDTA; Refer to
Linkage Editor, Chart 37

o
o
o

.it.

RLDCON
.~

NO .. "

.•.• *.

*.

POINTERS
NOT

.... EQ

* •••

.. *

.

0

3

o 2

0

0

RLAOCN
X
**···B3···*· .. ··**
:~~~~~~-*-*- .. -~~:
* SET UP CORE *
IMAGE BLK
*
*
*
IN WKAREA
*
* •• *.* •• **.******

B 1 ARE *. _.
RAND P

o
o
o

1

*.
.*
.*

·YES

X

** .. **BS· .. ·***·***
* SUBTRACT 1
•
* FROM AOCON
* POINTER SO
*
*THAT IT POINTS *

:.!~.;!~!*~~!~**:

:.......................... x:
X
*****C1·*·.**..
seT SW
...

.*.

ROTSIO
C3
*.
**.*.C4*.*.******
.* WAS *.
* ADD 1 TO CNT *
.* THE AOCON *. YES
*
OF ADCONS
*
... BEYOND THE •••••••••• X* OUTSIDE PHASE.
*.
PHASE
.*
* LIMITS - LOC
"LIMITS."
..
ROTCNT ..
** .... **** ......... ..
* •• *

RLDSWI TO ..
NOP - ALLOW *

..

POINTER
...
PROCESSING"

•••• ** •••• ***.

:*** *!*! !~~* ****:

x
*-*.-

*SM *
* *K!-

X

.* ·CONSTANT-· *. NO
*. ' TO BE
...... ..
-.PROCESSED.*.
.*
X
* ••
-YES
*.*11*

.****03**··.**·**
*
CALC LOAD
*
AODR OF
*
*
*AOCON RELATIVE.
* TO START OF *

o

..
FACTOR OF R
.. POINTER IN A
..
REGISTER

o

0

THIS SWITCH EXITS ON THE
NO LEG WHEN THE ADCON IS
BEING RESTORED TO THE

E3
• *EXTRACT*.
AOCON
•• NO
FROM C I
••
BLK
••
*. *E4 ••

CORE IMAGE BLOCK •

••

o

x

•• ** •

o 3
o

0

0

.0. *.

E5
•• HAS * •
NO .. -THE ENT IRE i t .
••• *. ADCON BEEN .*
*.REPLACED .*

.....x
o 1
o

*.

* ••
*
o

.*

x

*-* ••

·SM ..

.

X

.*

0

_**.** .* •• II • • II 1I.1t

.*. *.

RLOSW4

* ••
*YES

•* RELOC ••
NO •• FACTOR TO *.
.. .... BE SUBTRACTED.-

*

SUBTRACT 1
FROM AD CON
POINTER

-E4

..
..
..

.0.x *.
F!

•

*

0

RLDRET

o

:**;~S.~~!~;! •• *:

o

X
......
El*·*·*·*·*·..
..
GET RELOC

X

***-*05 *** **** **.

o

RLORET

*SM *
* Kl*

..... -

*

-NO

: •...•••.•• x:x
RlDSW3
.*.
01

it.

RESDCN
X
*-***C5**********
*
REPLACE
AOCON IN
* LOC WKAREA
*
•
ONE BYTe AT ..

*. K;*

*****F3·.****·*-*
MOVE ONE
•
* BYTE Of THE *
•
AOCON INTO
..
THE WORK
*
*
AREA
*

RLORET

•• _••••• *.* ••••• *

-YES

x
···**G1·····.····
..................

X

'j

o
0
-GET COMPLEMENT ..

.. OF RELOCATION ..
..
FACTOR
..
o

*****G3***·******
o
0
* ADO ONE TO
•
AOOR OF
THE AOCON
•
0
it*.*.*****
•• *.* ••

..••.... .• x:

...•.Hl···.···.··
X

..

CALC LOAD

..

ADDR OF THE

..

..

LOAD

CONSTANT

.0 •

••

H3

HAS

*. ••

•*
THE
•• NO
•• ENTIRE AOCON .* ••••
*. BEEN
••
• • MOVED.·
x
* •••
·YES

o
o
•

x

••••• J 1 ••••• *** ••
.. ' CALC AND
..
..
SAVE LNG
*

..
..

OF THE LOAD
CONSTANT

..
..

.................
o

0

...•.Kl·······
X

..
..
..

SET SW
RLOSW4
TO NOP-

EXTRACT -

.
630

1

0
0
0

X

* •••• J 3*** •• ** •••
*
ADD THE
*
* RELOC FACTOR *
.. OF R POINTER •
: TO THE ADCON :
** •••• * •• ** ••••• *

X

..

o

..

***·*K3******·
*
RESET SW *
•

*

x

***.

:

.**-

1

DOS System Control

*

RLDSW4

•

TO BRANCH -

o

REPLACE-

•• _* ••• *_ •••••

..~**.
....
:

2

:

_

-

*

(

Chart SQ.

Pass 2 ABORT and MAP Routines $LNDEDTA; Refer to
Linkage Editor, Chart 37

.....

.......

-ST ..
... Cl*
o

·SH •

• B1·

0
-

x
... ·.81··········

i
.···.B5.···.·····

TSTUNR

ABORT

:~~.!!~.-.-*-.-2~:
WRITE THE

LAST CI 6LK
IN Cl LIB

•
_

...

•*

Cl

.0.x *.

HAS

-.................•
•
•

COUNT FIELD
WITH LENGTH

.....

Of ERROR

:

_••x* ..

* ••
·YES

TO DEC[ HAL

i<
·····C5.·.·
... ·..•
•
SET cew

*.

.*

•

IN REG RB

-

A HAP
*. NO
*.
BEEN
• * .....
-.REQUESTED.-

•.

CONVERT
ERROR COOE

..

...
...

.................
...

o0

~~~~~~~

•

....:
..
•

·SR •
•

--

B1-

o

·····01 ...X··.····.

X
•• ···05 •• ••••••••
•
SET eCB
•
•
SYMBOLIC
..
• UNIT AOORESS
•
•
TO SYSLOG
:

... FORCE NO EXIT ...

..

FROM BLK Kl

..

_AND PUT NO. OF ...

.................

_UNRESOLVED AD- ...

:;~~~.!~.!~!.~;::
o

....

.. 2

_.

. . . ..

oE3
STARTING
IS A GEN
1. THE N
I F AN

.. ...... X
TSTCNT

El

.*.

*.

• * ANY *.
.* HAP INfO *. NO

-UNRE
2. THE N
THE P

*. IN TEST REG .* .....
••
*E3
.*

"oo

TION TSTCNT, THE ROUTINE
TO PRINT--UNRESOLVED AOCONS,
E WORD MESSAGE

o

.. "

* •• YES

....

•

TS, If ANY, AND

:

:............ x:

X
,,"···F2-··"-····"
•
FORtE EXIT
_
TO Loe
-•

X
.....Fl··········

TSTSID

-CONVERT NUMBER ..
...
TO UNPACKED
•

-OECIMAL FORMAT ...
..
IN THE HAP
...
..
... PRINT AREA

..
•

.................

i<
.····G2·······

_

HOVE THE
WORD HSG TO

..

*
MODIFY
•
UNRESOLVED •
•
.ADtON HSG WITH
• ADtON OUTS IDE •
PHASE LIMIT.
•

..
..

.. THE HAP PRINT ..
..
AREA
..

.................

x
.. .-. ..
.. .. ...... ..
F5

••

••

•
-

-................... .

i<
.····Gl··········
o

BLKHO R fROM
BlK Kl

-

•

HSG ON
SYSLOG

THE W
AGE-ADCR
TANTS OUTSIDE THE
LIMIT
PHASE-.
THE PR [NTING [S DONE IN THE ORDER
SPECIF[EO ABOVE •

_

: 1

X
······E5.··········
PRI~¥CEaROR

DRESS CONSTANTS-

ADCONS OUTSIDE

••

I/O

•• YES

COMPLETE

••••••

-NO

*

•

:

••••• ***.* ••••

i<
···.G5.·.·
... ··
SVC 1

•

WAIT

•

...............

:x ..•...•..• :

.:~~~~~;-.-.-.-~~:
···.Hl..··.···..

i<

X

• *.*.H2· •• • •• •• ••
.PUT THE NUMBER.
OF ADCONS
•
•
- OUTSIDE PHASE.
_ INTO REG USED ..
• IN lOC TSTCNT *

SPACE ONE
LINE

YES ••

.0 •

••

SYSLOG

.

..

••

:·············x····· •. ..si~~tf. .. .•.•

.. ..

.................

....

..

x

H5

oNO

i

o 2

X
·····Jl····
..··.·

:!!;~!.-*-*-.-~~:
• PRINT NUMBER
AND WORD
•

_

-

0

-

0

i<
.···.J4··········

CANCEL

CLOSE
ST*
.•• -*-.-.-.-*-.-.-.
CLOSE
•

•
..

••

••

.... ... ..

PHASE CHK

MADE

-NO

- o

1

••••••

..~

..

•

•
•

i<
·····K5··········
:!!!~~~-.-.-.-~~:

• ••• K4· . . . . . . . ..
•

SVC 6

-...............

•

CANCEL

..

..

-

:

LINE

:

.PR[NT REQU[REO •

.................
..
•

INFORMATION
·K3

•
•

·SR _ •
• o Bl·
BLKHDR

._x..

-

••

SYSLST

eea FOR
SKIP A

i<

SYSLST IF THE

MAP SWITCH IN
THE PRINT
SUBROUT [NE IS
FOUND TO BE ON.

•

.................

:

-K3
PRINT MAP ON

.-.x

K1
...
."ADCONS ••
•• OUTSIDE •• YES

•

••• * •••••••••••••

SYSLNK

: ... *.~~;~!:~* ....:

X
.····J5··········
•
SET

o

_

0

Appendix H. Detailed Flowcharts

631.

Chart SR.

Pass 2, Block Phase Header $LNKEDTA; Refer to
Linkage Editor, Chart 37
*

:

*

*

2

**

:

X
• ••• ·A4 ••• ••• ••• •
.PUT THE NUMBER •
•
OF THE
•
• FIRST CYLINDER.
• USED IN THIS •

.......

*SQ-Cl,Kl

:~~~.!~!~.:.=~~.:

• *
*

·····01··········

-INIT REGS WITH ..
.. STARTING ADDR ..
-OF 110 AREA AND... STARTlNG ADDR ..

..

:

~~.~~.~~~~

....

...:

:X •••••••••••••
SAVE ADDR

..

READ IN lOC

..

.. OF HOR TO BE

..

:

...

..

ADRESS

·····El··········
X

:~2!2~~-.-.-.-~~:

..
GET DISK
.. AOOR OF NEXT

:.~~~.!~.~.~;:

..
..

..:

.·····Fl··········
-.-.-.-.-.-.-.-.
.................
X

-OISKIO

QM_

..
READ 28
...
... BYTE HOR FROM ..

*WK AREA

*E3*

X

·····G1··········

*AoO RELOCATION ..

..
FACTOR OF
..
_COHMON TO LOAD ..
.. AOOR OF THIS •

:

·····EZ···•• ••··.
:X •••••••••••

:

•
•

·····Jl··········
.................
X

.ADO RELOCATION.
•
FACTOR OF
•
• COHMON TO TR •
• AODR SELECTED.

*

*

·····KI··········
..................
.~..
X

• BUilD ZO BYTE
•
CORE IMAGE
•
DIRECTORY
• PHASE HEADER

..
•
•
..

•

*

**
*

1

**
*

:~~~~!2-.-

.................
•
•
•

·····Jz···..···..
X

• MOVE CTRl FLO.
•
CCHHRKDD TO •
•
PRECEDE HDR •
BLK AND SET •
•

: ••••~~.5S~••••• :

KZ

.*.x

••

•••• MORE •••• YES:
••
HEADERS
••••••
..TO WRITE ••

........
.~..
....
·NO

•

:

*

Z

DOS System Control

:

.*.x ....

F4

C5

••

•• STORAGE •• NO
••
PROTECT
...... .
••
FOUND ...

·····05··········

..
•
•
•

SAVE ACDR
OF STORAGE
PROTECTED
AREA

.................
x

:~~~;~.---.---~!:
CLOSE
SYSLNK

•

.. .. .. ..

• •• * STORAGE * •••
••

PROTECT

••

NO
...... .

'I •

.YES

•
•
:

STORAGE
PROTECT THE
LABEL AREA

•
•
:

..................
:x ....•...•• :
x

•.···Gs··········

•
SAVE NEW
• END OF SUPER•
VISOR AND
.END OF STORAGE

..
•
•
•

:.~~2!~~!.e22~;.:

.*.x
...
.... .
H4

ES··· ••

: •••• FS ••••••••• :

X

X

••

•••• H3.........
•• CATAL ••
•
SVC 14
•
NO •• SWI TCH SET ••
•
FETCH
.X.. •••• ••••
IN COHM
••
•
JOB CONTROL •
•• REGN
••

...............

•
•

x

..

......G4 ••••••••••

•
•
•
:

.-~~:

kRITE BlK
OF PHASE
HEADERS

x

.. .*. ...
.. .. ....

•

·YES

·····GZ*·········

X
·····HZ·······
__ . ··

ADO ONE TO
CURRENT
CYLINDER
VALUE

.... ....

X

STORE CCHHR
IN lOCATION
ADRESS AND
SET UP CCB

·····E4··········
..................
••
ALL
•• NO •
•• C.YLINDERS ••••••
..VERIFIED ••

~gy~Rl~~ 5~fA :
:.~~.~~!;i.~~~.*:

•
•
..
:

• SEARCH CTRL •
DIeT FOR
•
•
.S TOR AGE PROT eCT •

:X •••••••••• :

..

·····FZ··········
•

X

:~~~~~-.-.-.-~~:

X

...
•
•
:

X

·····Hl···•.•·•.•
:.~~e~~:.~:~~~:.:

*E3
SAVEO ON SYSODI DURING
INITIALIZATION

.................
SET UP
CCHHRKOD

·····S5······..··
..................

*

•
RESET OVFlO •
FACTORS AND •
•
• CCW FOR WRITE.
:DISK OPERAT ION:

*

................-

X

••• ·04 ••• • •••••
•
SVC 7
•
WAIT

·YES

WRTLOP

x

•
SAVE END
•
• OF SUPERVISOR •
:
ADDR
:

·YES

ic

X

•

•*

: •••• AS ••••••••• :

X

SVC 0
VERIFY
CYLINDERS
·B3

LAST
••
•••••• ZO BYTE HDR ••
•• BUILT ••

.................

X

.................
······C4···········

.. ..
.. ... -..

:.~~~~;:.2~~~~~.:

*AOO RELOCATION.
•
FACTOR OF
•
.COMMON TO LOAD •
• ADDR OF NEXT •

·••• ·S4··.···••. ·

.STORE CYLINDER.
• VALUE IN Loe •
VERADR, THE •
•
•
VERIFY AD DR •
• LOCATION
.B3.

02· ••

• ,..,0 ....

3

:x .......... .

X

VERLOP

X

X

·····01··········
.................

: 1

•
MOVE AN
•
• ASTERISK INTO •
• 20 BYTE C I
•
•
tiDR TO SHOW •
.LAS T HDR I~ BLK.

..................
..

*

X

...
...

.. CCW FOR READ ..
:DISK OPERATION:

~LKLOP

•

·····C2····· .....
.................

X

·····C1··········

.. seT UP OVFLO
..
FACTORS AND

632

*B3
4 VERI FY LOOP [S ESTABL1SHEO TO REAO ALL CORE
IMAGE BLOCKS PREVIOUSLY
wRITTeN.
ALL VERIFICATION TAKES PLACE AT THIS
TIME INSTEAD OF AFTER
EACH INDIVIOUAL WRITE
OPERATION.

x

BLKHOR

....

..HS·······
SVC 5
•
SET UP
•
COMM RGN
•
•
WITH NEW
•
•
INFO
•

...........

·YES

·····J4··········
X

:~~:~:~-.-.-._2~:

•
SEARCH CTRl
.. DICT FOR END

•
•

:.2~.:~~~~~!~2~.:

K4

.*.x

••

..END OF ••
..SUPERVI SOR ••• NO •
••
ADDRESS
••••••
•• FOUND ••

.. ..
* •••

·YES

*

:

....x
....
3

*

:

EXIT

X

...............

.. •••••••
• •••• KS·
SVC
1
•
•
FETCH
•
..
SLNKEDTC
•

Chart ST.

*

Pass 2 Subroutines $LNKEDTA; Refer to Linkage
Editor Chart 37

----AI·_··_····

-····AS·········-

•• •• A4 ••••• • •••

REPOOI

ROSOOl

CLOSE

- z -*
*

X

·.···83····**····

X

••••• B1 •••• • •••••

..

GET DISK
..
AODR OF
..
THIS RECORD
..
.. IN A REGISTER ..

*ADID$K
CK*
*-*_*_*_*_tt_*_*_*
.. GET THE NEXT ..

.................
*

*

.................
.. TRACK ADDRESS ..

-

-

X

··••. B4··········
• MQVE STARTING.
• ADOR OF FI LE
•
INTO LaC
ONSOOl

.-.x

-.

*

.* LAST
.* Reo ON
*.
* • .o.

-.

*.
.*

- .
- ···. ·03··········
...................

.....

-

·SQ •
... 81·

X

·····01··········

---

TS TUNR

.....

.ott

NO

...... ....

El

X

• GET THE NEXT •
... TRACK ADDRESS •

..
..

••
SYSOOl
•• NO
•• A TAPE UNIT ....... .

·oo

.. •. oo· ..

.•

·····04..•.....••
X

-NO

-- X
··* . ··cs·······
. ··

• GET DISK ADDR •
OF DTF TBL
AND PUT IT
•
INTO LOCAT ION.

•
•

X

··"··05··"··*····

•

•
•
•

SET UP CCW
AND ceB TO
READ FROM

•

SYSOOl

.BACKSPACE FILE.
ON SYSOOl
...

X

·····E3*·········

JS

•
PUT DISK
• ADOR OF NEXT
• RCO INTO lOC
..
ONSOO1.

A TAPE

-.. -

•
•
•

····E4•••••••••

x
.....Fl-·······
.·

:RDTPOI

..
seT UP CCW
.. TO READ TAPE

.. AND POINT THE
ces TO THE

•

RET TO lNK
REG ADaR

•

TAPE CCW

....F3·········

•
•

i!-

RET TO lNK
REG ADDR

····*E5 . ·*·*·*·**

*DISKIO
(1M.
.-tI;.-.-.-.-.-*-*-.
* READ OTF TBl •
* INTO INPUT
•
:.~~;~:..!~~2~~* . . :

X

I SCLOS

X

..
..

..................

*

• ...... ·F4· ... •••••• ...
EXCPOI

•

··F5*·**·""
svcz

CLOSE
SVSLNK

*

..

: .................. .oX:

.....Gl··········

EXCPOI

:.2~~~~.~~~!~~;.:

•- 3

X

*

SET UP
OISK CCW
AND CCB

X

••••• J 1. ••• *.* ••••

:~!~~!~-.- . . -.-~~:

.................
READ RCD
FROM SYSDOl

•
•

*

Kl

.-. ••

..... RECORD
••
FOUND
••

.....
.. ...
• YES

-

....x
....
I

*
-

-H2
THE DTF TABLE IS SAVED
DURING INITIALIZATION
AS THE FIRST RECORD ON
SYS001. INFORMATION
FROM THE OTF TABLE IS
REQUI RED BY THE CLOSE
MACRO IN THIS ROUTINE.
IF SVSOOI IS A TAPE
UNIT THE OTF TABLE WAS
WRITTEN ON SYSOOl
FOLLOWED BY A TAPEMARK. TO RETRI EVE THE
TABLE. THIS ROUTINE
BACKSPACES TO THE
TAPE MARK AND BACKSPACES
AGAIN TO THE FIRST
RECORD f THE DTF
TABLE. BEFORE
READING. IF
SYSOOI I S A
01 SK THE
Fl RS T RECORD,
THE DTF

~~~~E I MIt~DIATELY.

oo.....

.+

NO.*

H3

•

.... NO
•
GET NEW
........... X.
OVERFLOW
....
• FACTOR VALUE

....................
....x
-- .- z -

.* . ••

••

RLD

.... ....
ON

•• SYSOOI

••
...

••

•

X
. ···H4·········

X

BKSP FILE ON

•

SVSOOI

:

.oo

•• •. oo. .*

•• YES

•*

oo ...... oo.

svc 7
WAIT

x

•

• ALTER SYSlNK
•
OTF TO
APPEAR AS

•••• J4 •••••••••
RET TO LNK
•
REG AODR

x

:~!:~~!-.-.-.-~!:
BKSP RCD.

• READ DTF TBl

•
•

: •• !~!~.!~~2~~ •• :

...

SYSOOl

x

X

•

•

.................
••• J5 ••••••••
•

SVC 2

CLOSE

SYSOOl

••

...

• .x •••••••

• 4

.....

•

*

•
:

•

..........
.
.

•

•

TPREAD
•• •• ·K3 .... •• •• ••••

*.**KS···X . ·*···

...............
RET TO lNK
REG AOOR

.

oo • • •

..

...

... x

-

SYSOOl
A TAPE

: •••• HS ............... :

..

:~!~~~!-.-.-.-~!:

-*

••

. *. .oo

-NO

·····J3.···.·. ··.
.....................
•

.•G5

*

: ..•...•... x:
: •••• Kl ••••••••• :

SYSOOl

.YES

•

oo.

....

TO BACKSPACE

*-

-

....... Hl··"'·······

sve a

....

•
OF RCD ON
•
.SYSOOl INTO lOC*
.ADRESS AND SET *

-

x

·•. ···G4·.··X . •···•·

i

.. PUT 01 SK AODR ...

•

•

X

X

.. YES

•-

••

:X •••••••••• :

.-. -.

SYSOOI

RODKOl

*.

••

:~;~~~;-.-.-.-~~:

*

*. *. UNIT ... .-

..

•.•

: •••• ~~~~~;* .... *:

...YES

-

:~~~~~~-.-.-.-~~:

.................
... STORE IN LOC
FeTODl
..

I

REeFOl

..
DECREASE
•
.. RECORD NUMBER.
..
BY ONE AND
..

UNIT

* •••

YES

*NO

SYSOOl
A TAPE

••• :H~

- 3

C4··
•• IS

*. SVSOOl READ . . . . . ..

YES..
......

X
.....
oo. B5 IS *. *.

X

:x ............................................................................................. :

C1

CLOSE

4

.
•*

Appendix H. Detailed Flowcharts

633

Chart

suo

Determine If Phases to be Cataloged Fit in Core
Image Directory $LNKEDTCi Refer to Linkage
Editor, Chart 38

** .. *,1\2* ** **.* **
$LNKEDTC

...

*

..

_

• 2

*

-

-o 1

BEGINN
X
**·**82*"" * ..... *.*

*

84

..-

LOAD

..-

_

- **

.*.it

••

•• ·-INVALID·· •• YES
.....

BASE

REGI STERS

*.

.. * ................................. ..

PHASE

NAME

*. + • • • .*

ell-

-NO

:.......................... x:X

X

START

..
..

SVC 5
RESET 10TH

..

COMM REGN

.-

LSTPH

*****C2 ••• **.*.*...
...

C.. O. *.

PHNMSS

.*
LAST
*. YES
••
PHASE IN
.* .......
*. WK AREA .*
*.
.*

.. BYTE IN SUPVR ..
•

•
•

.....

-

.**** ••• ** •••••••

•

X
··C5·······
SVC 2
•
OPEN
•
...
SYSLST
US ING

••• !!2~~;~.*·

·SV •

••Ai·
o

X
***"·02*.···***·* LeAD ERRREG ..WI TH ADDR
OF ERRRTN

READWA

X

****.04·***··.·.·
-

0

UPDATE
OI SK

...

ADDR

X

• •• ···05·····*····*
ERRRTN
TF
*-.-*-.-.-*-.-*-*
DSPLY
MSG
3M221

o

•• *.***.* ••••••••
*E3
TO FETCH $MAINEOJ
WHEN A I AMPERSAND STMNT
IS READ BY

X

*****E2**.****
.. ON BI T 7 IN ..
.. JBCSWl, DISP
..

.. SVC 13, TURN..

57 IN COMM

JOB CONTROL ..

..

: •• *~~2~!*:~; ...

OUTWA
X
····*E4·.*·· •• ·**
•
INCREMENT
*
•
ADOR TO
* NEXT PHASE
•
ENTRY IN
:.**.~~*~~;! •••• :

*~~!;~~-.-*-.-;~.

TEMPORARI LY

•• ** •••••••••••••

.0.

X

G4
••
.* DOES ••
YES
CI DIR
••
•••••••••••••••• •••• HAVE SPACE ••

···**G2* ** .. * .. ****
SAVE NEXT
*
AVAI lABlE
*
* ADDRESS FOR *
.. CORE I MAGE

*

a*

*.

:***~~~;S!~~!***:

CHKWAR
X
··*··H2··*·······
•
MOVE WORK
•
AREA ADDR
•
•
Tt CURRENT
01 SK ADDR

X
H3··· ••
•• LAST ••
YES . 4 ENTRY IN *.
•••••• THIS BlK
••

:X ••••.•••. a.a:
CHKWA
X
·····*J2**· .. *****··

*~~~~~~-.-*-.-;~*
READ BLOCK

FROM SYSTEM.

.*~2~~.~~~~**

X

x

* •••

o
o 1

634

DOS System Control

••

*.

•• • * .*

.•

CNCMSS

•

*
*

....x
2

...........

0

it

0

*

X

.*H4··*···*
SVC 2
•
* OPEN SYSlST *
•
USING
*
•
$$BOPEN,
•
LIDeS
*
•

••• ••• J4·.·· ..... •• ••

.!~~~!~-.-.-.-!~.
DSPLY
MSG

3M52I
.* •••••••••••

LCANCL

*****K2****······
INIT ADDR

.. .. ....
*NO

*NO

• TO 1ST PHASE
ENTRY IN
•
WORK AREA

•

DIR

•

* •••••••••• **

*

SVC lL
EOJ

AVAILABLE
ENTRY OF el

READ

SVS TEM

DIRECTORY

*

*·· . E5*········
X

•

NEXCID
X
••••• F4 ••• * ••••••
UPDATE NEXT

X

******FZ* *. * •••••••

SETADOR

***** ••••••••

•

•

•

X
.* •• K4 •••••••••
SVC 6
CANCEL

(

sv.

Chart

Check Core Image Directory for Entries Being
Replaced $LNKEDTC; Refer to Linkage Editor, Chart
38

••••

•••••
••
•
• A2·
• *
•

*• 1 *•

······'
1·..........
•-.-*-*-.-*-.-.-.

NOMTCH

SW-F3

sw

RSVSOR
•

·'2
SU-Clt

i

READNA

••••*

•

.............
READ BlK

FROM SYS

•••• *
*
•* 3 •*

WK AREA

....

·····81··········
.................
X

•

INITIALIZE

..

•

A REG TO

•

• 1ST ENTRY IN
..
SYS WK
..
AREA BlK

.*.X *. *.

HYEwe
•••••••
•••••••ATTURN
SW •
.*
PHASE
*.
YES
"ODLR
•
*. *. DETECTED
••••·•••••• X.
TO A NOP
•
IN WK
.*
•
(BLOCK E1)
•
_.AREA .*
•
•
• .... *
••••••••••••••

<1*

A3

*NO

:x •..•..••.•..•••••••••••. :

tHKSUP

.*.x *.

CATSUP
•••••S4•••••••
.t
IS
*. *. YES
••
SII' 13
•
.*
SUPVR
TURN ON
•
*. _.CATALOGED._
BEING
•••••••••• X. SUPYR fLAG
•
• IN J&tSWl I'N •
*. *•• *...
•••••••••••••••
COM" REGN •

..
•

..

83

·NO

:x ............................... :

····..Cl···········
X
svc 0

NBLOCK

:x .....•............•..... :

·••• ·e3···•••··•·
X

CHlENT

READ BLK
FROM
CI OIR

.............

*

....
....

**

2

•
•
•
•

•

*

*

INCREMENT
AooR TO
NEXT ENTRY
IN WK AREA

•
,.
•
•

.·................
.. .•. ..
........ ....
··••••..
x

·····01··········
·..................
X

•
•
•
•

A~

LAST

03

INIT AOOR
•
TO 1 S T .
ENTRY IN
•
CI OIR BlK
•

••

••
END
• ••• AR~t M~K

·YES

•• NO

••••••••
x
*

: X........................... :

x

COSTRT

••••. E3·······

• .o

••

•

.·..............
•,

.*

.*.x

.... .... ....
·.....
x
.*.
.. ..
.... ....
i

BRANCH

••

REPlRE

Gl

•

1

.o

...
END
•• YES
••
OF ~ORK
... .o .... .o
••
AREA
••
*NO

.....Hl··········

••••• F3.··i ••••••·
•
INCREMENT
• AOOR TO NEXT
*' ENTRY IN
•
Cl (JIR

·..................
·····Jl··········
.................
HOVE BLANKS
TO NAME FLO
IN OlO ENTRY
OF CI DIR

•

•
•
•

•

*

X
•••••• Kl •••• •••• •••

svc

•

0

WRITE AND

.............

VERIFY UPDATED

•

BlK IN

CI VIR

X

·····G3··········
.................

DIRSCN
•
•
,.

INCREMENT
iNDICATOR
REGISTER FOR
•
Cl DIR

•
•
•
•

*

H3

••

•

.o

LAST

·sw •

• *AI•

x

J3

••

••

•• YES
••••••

••

i

·NO

t.

•

.. .•.x ..
........ .....
.
.•.
.. ..
........ ....x
• •
x
....
••••
·•••••.•

*. •• ENTRY
IN
CI DIR

:x .......... :
•
•
•
•

*'

•

*•

X

HOORUP

•
•

·..................

X

•• UPDATE FIELDS.•
•
IN SYS DIR
•
•
•

•

A 1100lR
•
TO A BRANCH •
(BLOCK Ell
•

•

Fl·.
•• LAST·.
•
••
PHASE
• .o NOPX
*oo DETECTED
••••••
••
Sw
••
•

KESET SW

•

·YES

MOOlR

•

X

•••
El
••
•• WK
••
•• AREA ENTRY •• NO
•• EO TO CI DIR ••••••
••
ENTRY.·

••

2

MVEwA

••

END

•• NO

Of Cl DIR
. t ••••
BlK
••

.YES

• 3

• 2

•

•

*

•

•

·•••••••••.•
x

*

1

•

Appendix H. Detailed Flowcharts

635

Chart sw.

Catalog Phase Entries to Core Image Directory
$LNKEDTC; Refer to Linkage Editor, Chart 38

*****...
*sv
... H3*

x

MVEwA

*****
A1*.*******.
*
GET ADDR
if
OF NE Xl
AVAI LABlE
ENTR Y IN
CI OIR

...

** ****** ** *. * ••••

**
*

• 1

*

x

EOBWA

... *** *. B svc
1.... *** **** *.
0

NO.*

.. READ BLK FROM ..

................... *.

CI OIR THAT
*CGNTAINS NXT ...
AVAIL ENTRY

.***

CHK

r:G**

'* ••••
*

:

ENTRY FROM
SYS WK AREA

-*-

X
***
**** ******
* * *C2*
INCREMENT
* ADDR TO NEXT

I NCRWR

..
..
...

ENTRY IN
WK AREA BlK

*

••

.*

.*

* ••
*
*YES

..... * •• *.*
.NO

*

*
*

X
****
3

X
.****E 1* **** ****.
...
INCREMENT
...
... ADDR TO NEXT

...

ENTRY OF

...

:

Cl OIR BlK

..

**********
******02*
UPDATE ADDR
OF NEXT
AVA! lABlE
ENTRY IN
CI OIR

*
*
*

BLK

4o******** •• **

.*.

03
••
.* IS
*.
.*lAST ENTRY •• YES
*. MOVED FROM .* ••.•••.•.•.•••.•..
*. WK AREA .*
+.

* ••
*
*NO

.*

x

**.*
• 2

*

x

**
f: 3*** ,*.* *.*
* ***
UPDATE ADDR
*
•

X

*.***F 1* *.* ... ** *++
IN SYS DIR

WRITE AND
VER I FY
CI DIR

** * * ** *.** ** ** ***

****** ••• * ••• ***.

UPDATE FLDS

* ** ·**C3·******·***
SVC 0

*
*

X

D1·*·
IS·.

•• LAST ENTRY *. YES
*. MOVED FROM .* .•..
*. WK AREA .*

X

WCIORC

* *** •••••• ** ******

** ... *** **** **** •• *

•

**

*.

END
OF SYS WK

*.

TO CI OIR BLK :

.*

.* .

3

:X .......................... :

x

.*
... MOVE
**C 1* **
** ••
..
PHASE
...

B3

..AREA BLK

*************
*
*

... 2

."

*4o**

OF NEXT
AVAILABLE
ENTRY IN
C I OIR

UPDATED
SYS DIR

•

*************

x

X
******F4·**********
RSYSDR
SW
*-*-*VERiFY-*-*-*

*
•

BLK

X

*.****E4***********
RSYSOR
SW
*-*-*-.-*-*-*-*-*
WRITE

*. *.* ••••• ** •• ***

**
3*****
._***_
* .**F
UPDATE
DISK

*..

WRTSYD

ADOR FOR
NEXT SYS
WK AREA BLK

UPDATE TO
SYS DIR

*.********* •• *.***

*

•

****F5*·* **** **
RSYSDR

*

*********.***

x

**.**

*SV *
* Ai·

X

GOONL

* •

·****G1***·······
..
CALCULATE
...

*
REAOWA

NEXT

...

AVAILABLE
RCD IN
CILIB

KWITT

X
.***G4*********
svc 14

X
******G5**·*******
LOAD ACOR
*

RSYSDR

OF eGB

INTO REG

EOJ

1

..

••• *** ..... **** ••••

X
******H5* .*********

HI

.. *
END
*. Of CI OIR
*.
BlK

svc

NO

EXCP

0

*. * ••• .*
*YES

X

*.***.J SVC
1***.****~**
0
WRITE

AND

VERIFY Cl
DIR BlK

X

* ****J5******··*
SVC 7
..

·
*

WAIT

•

******.***.****

.

:x .......•.. :

x

**.*

*
*

1

X

•

636

DOS System Control

****K5*********
RETURN TO
*
1I NK AODR

*

Read Control Statements t4AINT; Refer to
Maintenance, Chart 39

Chart TA.

····A2·········

."·-AI-·"'--·*·-

•• ·.A3·········
ENTMAI
•

...............

...
BEGINN
..
: INITIAL ENTRY:

..
AU10EN
...
: FROM $MAINEOJ :

................

i

X

AUTOEN

.* ... LOAD
··81*****···*
.....
BASEl

...

TEMPORAR I LY

·····B3··········
•
GET POINTER •
•
TO NEXT
•
CTRL STMNT
OPERAND

...

........_._ -..

...
TO seT
...
... HDDeON SWI TCH ...

-_*

... *

*

X

..

....
..
..
.
...
.....

.. AT MooeON TO ...
• [NDICATE MAINT ..
..
FETCHED BY
...
...
$MAINTEOJ ..

..............

i

x
·····01··········

1

**
*

•

x
•
.x .••••••••••••••••••••••.•

*

X

NEWRO

··03······*
•
SVC2
•
• OPEN SYSRQR •
.USING $$BOPEN, •
• LOGICAL IOCS •

*

LOAD

-

.YES

*TD •
... B!* NOREAO :•

o..o. .. o..o. . . . . . . . o. . . . . . . . . . o..o. :

BEGINN

*

TII-02

C3
*.
•• ALL ••
NO •• OPERANDS ••
• •••• IN CTRL STMNT ••
·.PROCESSED.·

SET SWITCH ...

:x ...

.TB-CI.B4,J3
TD-H2

i
.* .

. . .··Cl**·····

**

*

._* ....._.... _._ ..*
ALL BASE

-

REGI STERS

INSTRT
X
••• **E I ••••••••••
..

LOAD REG9

...

... WITH ADDRESS
.. OF ERROR M5G

.TO-H4

..
..

UJ-03

....................

:ROUTINEt ERRRTN:

*F5
REFER TO NOTE .A4
ON CHART TC.

....Fl·········
...............

F3°··

X

*.

••
I.
•• YES
•
•• CTRL STMNT .* •••••.••••••••••.•

...
5VC 2-FETCH ..
.. $$BSYSWR-AlLOW*
.WRITE ON $YSRES*

.... .-

.*

-NO

.·G1·······
-

X
•••••G3*·········

X

..

SVC2

PUTLST

.. MOVE BLANK
•
TO 1ST BYTE
• OF CTRL STMNT
•
IF INPUT IS
•
FROM TAPE

•

.. OPEN SYSL5T ..

.................

-USING $$BOPEN, *
*LOGICAL IOCS *

i

MODCON

•••
HI
*.
•••• MAINT •••• YES
•• FETCHED BY .- ••••••••••••••••••
*.$MAINEOJ .*

*.

.. ..

.*

*NO

X

X

4·.··Jl·······
•
SVC13.
• TURN ON BIT 7.
..
IN 2ND JOB
•
•
CTRL SWITCH.
•
.K2
•

..............
....x

....

*
*

1

*
-

-

•
•
•
•
•

····J2·········
•
AUTO CN
•
• MAINTCN PHASE.
•
CHART VR
•

...............

*K2

TO I NOI CATE TO JOB
CONTROL TO FETCH
$MAI NEOJ AFT ER
READING A J AMPERSAND
CTRL STHNT •

X
······H3···········
.-.-*-.-.-.-.-.-.

NORMAL

PUT

•

1G

.............
PRINT CTRL
STMNT ON

X
·····G4+••••••

AEND

•
STORE AODR •
•
OF AEND
•
.ANALEN SWITCH, •
:
CHART PO ••

..............
.-.x

H4
•• ··MAINTS2·· •• YES
••
IN CORE
••••••••••••••••••••

*.

SYSLST

..............
.••....xB;.
.TB •

.F5

* •••

••

••

*NO

i

·····J3·······
•
TURN OFF •
• CATAL,RENAM, •
•
DElET, AND
•
• CONO SWITCHES.
•
.K4·

*.

•

X
.*.•J4••••••
**.
SVC14
EOJ

X

•

*· •• J5
••• ••••••
•
FINENT
•
• MAINTS2 PHASE.
•
CHART UJ
•

...............

*K4
REFER TO NOTE .Jl
ON CHART TB

*
EMAINS

Appendix H. Detailed Flowcharts

637

Chart

Ta.

Analyze Control Statements MAINTi Refer to
Maintenance, Chart 39
<
<

.-.*
1

<

•

x
.*.

•*

...-

•*

STMNT

_

<.

-TA •

.. J3*
< <

···**-re.
.-.-._4_._._._._.

EMAINS

* ••
-NO

x

;

.< •

._.*
*.

••••• Sl·· ...
-INI?'IAl

~¥ruh c~~~

:

opeRA 1I(31't

83

··.··84.··.• *_ ..

RDIPT

*.

:
CH:~~~ ~6F
.* ............... X* SYSRDR FOR
* ..... ..
*.
.*
... CTRl STMNT •
*...*
...
INPUT"
* ... *
........... - •• -..
x

:
.................
..

TPIPT
****.A4 ••• *** •
.. CHANGE OTF ...
...
TO SYSIPT •
. 4 . . . . . . . . . . . . . X_
FOR CTRL
* ..... ..
:
STMNT INPUT.-

A3
*.
*.
IPTCTRL *. YES

..

RORCTRL *. * .. YES
STMNT

-----

-NO

*TA

*

- 03·

.tI- C1

•*
*.

.-.x *.

< <-

_•

*.

CT~L

STM.NT

*.

8lA'NK

.*

.. '"

.*

YES

.* .....

C3

......

*.

CATAl

*.

x

• •••• C4 ......... *
•
TURN ON
-. YES
SW, .* •••.•••. x.* CATAl
BIT 7 [N
* ••••

.it

-TA ...

CRDBYT

..

:**_***:~!**** *

*._
-NO

it . . . . .

*.....

NEWRO

ACATAl

-.

- < 03*
•

-

X

~E""O

AOE~;!"04_"""

03·-·
.. *.* DElET *. *. YES

*.

*.

...

x

D~~~~ ~~, •
BIT 6 IN
* ••••
CROBYT
•
:*.-... *:~!** .. *.

:

.* ......•. X*

*

* . . . . . *.*
-NO

.....x

·TC •

• 81·
< -

51 XTHC
AtONDS
E3
...
**.**E4.* •••• *
••
*.
*
TURN ON •
...
CONDS
*. YES
*
COffDENSE
..
.. * .......... x* SW, B[T 4 IN it • • • •
•*
..
CRDBYT
•
*. * . . . *.*
: .. **.**:~!* •• *.


..

:

DOS System Control

•

•
•
•
•

..................

x

X

UPDATE FlDS
IN RL DIR

•

••••••••••••••• **

...·.Hl··········
*

•

lCGICAl RCO
*
OF OUTPUT BlK :

•
:

..
.. ..

...

'O ...

•• NO ..
•• ' O . ' O .

1

•

X

X

•

•

X

X
• .. • •• G2.· .. ••••• ••

•
•

0

WRITE 322
BYTE BlK
IN RELOC

END
CARD

:x .•........ :
UPOENO

• MOVE 2 TO 1ST.
•
BYTE OF
•

• • • • • • • • • • • • • • • .. it

······Gl·······.•··

X

ES •••••

"YES

.........

RCWRBN·*

...

.. ..

••
••

·YES

*
•

•
..
•

...............

*

•

*

• .... F5 .. •• .. •• .. ••
ENTMAI
..
MAl NT PHASE

•

·...~~~~~.!: ......

Chart

UA.

Catalog and Delete Entries MAINTS2; Refer to
Maintenance, Chart 42

.

•• ••••
•
1 •

-••••

.•. *.
i

•••••1•••••••••
:
MAtlUiT+ D :

.:*

.e

A3

ANY

*•

• ••• A5 ••• • •• •••

:MAIN~ifE~~US • :

~E2aI~a .:.~~~.
*. 11>..
.* .* ..
.NO

•••••••••••••••••

•••••••••••••••••

:.B4
THE

OPERANO POSITION AND
LENGTH ARE SUPPLIED BY
MAINT PHASE

i

...··83··········

••••• a5 ••••• •••••

• SAVE OPERAND •
.LENGTH IN REG3 ••

: la~~ y~E~:~2

• TO START OF SS -

·· -••••

• 2

••••

:L~8f kR~~ ~M~R

.................:
• TO OUTPUT CCW •

X
····.C5.······

X

•••••el.i •••••

:

·BIt
•
•• ••••••••••••••••

•

••• ··C3··········
• DECREMENT THE •
• DISK ADOR BY •
• 1 RCD, RESET •
• NO. OF DELETED •
BOOKS
•
•

•• RESET ALL ••
•
ERROR
..
•
SWITCHES
•••••••••••••••
••

i

DE LETS

.. SeT DISK ADOR ..

REseT CURR •
ERROR
•

•
•

.................

SWJ~~ml SET ••

:

..............

•tUB
••••• HI.
•••

•

swnCH

•

: •••••••••••••••••••••••• X:X •••••••••• :

i
•..... 01··········•
• SET RESIDUAL
..
CN' FOR
•
OUT BLOCK

·

i
.·...05··········

.:................:

.................

• LOAD POINTER
.TO OIR UPDATE,
SET UPDATE
•
•
ENTRY TO
DELETE
•

f6~=TO~GBgA~K

-

•••••••••••••••••

• E2
BIT ONE OF COMPRESSED
INPUT SWITCH I~ SET
TO ZERO.

RSETSW
i
••••• EI •••• •••
• SET DCSW TO.
•
ALL O'S FOR ..

.····03··········

BKOSEI
i
.HOVE BOOK ADOR •
• TO DIR UPDATE.
• L1ST 1 SAVE
-

•
•
•

:.. E~~~k~t
I~~~¥T .."
SWITCH *E2••••••••••••••

.................

•
•
•
•

·· .• 4

.'.i

SET CTLBYl •
BIT 5 ON TO •
READ AFTER
•
BOOK END
•

MAINTS2

.INJTS

U"'.

.:...............:.
•

• YES

READ SYS

8mCI~~Ih

X

·····Gl ...••·•••·

•

• POINT TO NEXT _OIR UPOATE LIST.
:CAmRlllD~E~OR :
.. OlR UPDATE
..

.* . *

·····G4·······

:

*. *.

...··Jl··········
:

.xx .......... ..

.*

Kl

.*. *.

ANY e.
•• ACTlIE
•• YES
•• ENTRIE IN ••••••
*. SS 0 R.*
•

*.

.

* •.
• NO
i

.*

•• ••••
•
1 •
•••••
•

x
•• ••••
•
2 •
•••••
•

....
• ·Kl··········•
i

•
•
•

SET DELETE
NAME TO
OELEJE ALL

.
•
•
•

-•••••••••••••••••
:

X

ALLTHT

••

i

•••••
·U8 •

.•.x

••

........
.H4

••

·YES

•••

• Alt·

.•.i

X •••••••••••

"VBCAT
SlNMC2

•• J5 END' . ••
YES ••OF SUB LIB ••
L~ncftE~\.··

:.................•.•.

••

....

.*

·NO

i
.....
KIt.·········
.-.-.-.-.-.-.-..
.OPRERT

UN.

• ISSUE I OR 0
•
ERROR
•
MESSAGE

•
•
•

•••••••••••••••••

i

•••••
·UJ •

•·UJ
•••••

•••

• KI·

• AI·

H5

IS
••
NO..
THE
••
•• ••• OPERAND ALL ••

IF THE OPERAND H
NlJT All, JUST ONl
OPERAND WI LL BE
SERVICED AT A
TIME.

-••••

.YES

•

••

• H4

•• ••••
•
3 •

..···
:·····J3·.···
sB~\~~R~m :
• TO DESIRED
•
•
SUB LIB
•
••••••••••••••••••
•

•••••••••••••••••

BKOSET

••••

•••

X

• INITS
UM.
.-~.-.-..-*-*-.-.
,.
READ SYS
•

8~~~CI¥~lJT

··•• --

• C3·

*..
• YES

........

i

•••••
·UM •

*.••••••
NO
.*
.*

G5

•••

••
•• SUB -.
NO ••
LIB
••
• •••• QUALIFIER A .•• PERIOD ••

••••

i

i

:

~~I~~ ~~~51.·

••••••••••••••

•• TO MAINTS2

X

OIHIRT

•
TURN ON SW •
• TO PRINT SUB.
• LIB QUAL MSG •

HVBCAT

.i-. *. *.

1ST
ENTRY

i

SBLHSG

A4.

•••••••••••••••••
HI

-

:X .......... :

..•

•••••
·UB •

i

NO
••••••

i
·····F5··········
.-.-.-.-.-.-.-.--

........

••••••••••••••• •

.........-.·YES

•

••
SUB ••
••
LIB
•• NO
•
•• QUALIFIER A •••••••••••••••••• X.
•• PERIOD ••

••

F3

-.

••••

••••

i

.i

.* E5 1ST ' • -.
•• ENTRY TO ••

• PUT BOOK NAME •
IN BOOK
•
•
• CATALOG FLO •

.....FI·······

..

:x ........................ :
NMCK
i
•••• ·E3··········
.HVBNMC
UM.

.-.-.-.-.-.-*-.-.

•
•
•
•
•

•••

FRESET

..

.x

KS..

..SEARCH 0.

•
•

. : . NA~t"~FE~UB .:_~~.:
••
LIB
••

*.

....

.-

.YES

X
•• ••••
•
3 •
•••••
•

Appendix H. Detailed Flowcharts

659

Chart us.

Rename Entry and Book Name validity Check
MAINTS2; Refer to Maintenance, Chart 42
** .. **

.*A5"*

*

* •

*

*A5 UA-F3,H5

X

MVBCAT

*****A4 .. *********

** ** A1•• ** •• * •• *

*MVBNMC
UM*
*-*-*-*-*-*-*-*-*
* PUT BOOK NAME *
I N BOOK
*
*
*
CATALOG FLO
*
.... ******** .... * .. ** ..

X
** ***8
1* ******** *
SAVE LENGTH
*

SNETST
X
***- *B 4***** **** *
*
LOAD REGS
*
* 1-3 TO CHECK
*
FOR VALI 0
SUB-U B

.. MAINTS2 PLUS8

..

RNMENT

..

RENAMS
..

AND AODR OF
RENAMS

OPERAND

............ X:x

: SLNMCK

C1

*.

WHICH

C4
*.
.* INCR
*.
.*SEARCH, END*. YES
OF LIB
.* ....•.............
*.
TABLE

NEW NAME

*.

.*. "2ND .... •• .... • .. •••• ..

OPERAND

*.

*. *OLO
~

1ST

X

GETNNM

..

02

*****01******·
..
RESET ALL ..

.."

*.

SUB

.*.

*.

04
*.
• --SEARCH *.
.. NO.*
NAME EQ
*.
•••• *.
SUB LIB
.*
NAME

.*
LIB
YES
*. QUALIFIER A ••••••••••••••••••••
*. PERIOD .. *
•*
* •• *

ERROR

it.

swr TCHES

*

*

* •• '11-

x

El
*.
.*NEW ISNAME *.
PRESENT

.*

..

it

.. fRCM OPERAND, ..

1

:x ....................................... :

:x ............................. :

x
*****F 2* ** .... ***.*

NNM2

* PUT NEW NAME
* IN DIRECTORY
•
UPDATE LIST

*

*
*
*

•
*
:

.*

.*

Gl

.*. *.
1ST

ENTRY TO
MAINTS2

*.

...

*****
*UJ *
Al*

*
*.

*.

All THT

NO

.4 .....

****

•

• YES

CLGETB
X
*****F4*** .... ·****
*LASUD
UM*
*-*-*-*-*-*-*-*-*
* GET BOOK NAME *
* FROM OPERAND, *
*
"F5
*
..****************

*F5
THE OPERAND IS CHECKED
FOR IS T CHAR ALPHA AND
THE REST ALPHA OR
NUMERI C. OPERAND MUST
BE LES S THAN 9 CHAR
IN LENGTH.

1 ..
****

OPREII
X
*** ***G 3***********
ERRRTN
TF
,*-*-*-*-*-*-*-*-*
DSP MSG
3M2U

*****:~;*****

* •.•

:****~~;;!~~** .. *:

*****E4****·*****
* LOAD POI NTER
*
.. TO DIR UPDATE *
*LIST, SET CURR ..
• SUB-U B TO SUB-*
•
LI B WANTED
*
*** **************

..
*F5
*
.. *** •• ** ** _it ****.

*•
*

x

** *** 05***** ** ***
*OPRERT
UN*
*-*-*-*-*-*-*-*-*
* ISSUE I OR 0
*
*
ERROR
*

X

**** *E2" ****.it U~I*
***
*GETBKN
*-*-*-*-*-*-*-*-*
GET BOOK NAME ..

NO

.*

*YES

'NO

.. if

* •• *

·NO

.NAME

MVBKNl
X
*****G4*******"-**
* LOAD POI NTER
*
* TO DIR UPDATE *
*U ST 'F PUT BOOK.
* NAME IN DIR •
*
UPDATE LIST
*
************.****

:*H2 ERROR ROUTINE FOR
MSG 3M21I IS LOCATED

IN MAINT PHASE AT

X

*****H 1 **********
-INITS
UM*

LABEL OPRERI.

*-*-*-*-*-*-*-*-*
READ SYS OIR, ..
-II-

..
..

OP EN
SYSIPT

..

* - ** ************ *

*********+*******

:x ........... :* J2

x

*****
*UA *
* E3*

x

* ** *H3*********
.. ENTMAI MAINT *
*PHASE CHART TA *

X

.* ... *H4 ...... *** .. ***
*
TM LOCATION
*
• DCSW WITH HEX ..
• co, ALL ONES- *
*DELETE, MIXED- *

:~;~e~;:*2;S!!!~:

SWI TCt--lES RENC DE AND
R2CDE ARE TURNED ON.

* •

*
NMCK

.*.

J4
*.
.* WHAT *.
DELETE .* OPERATION *. RENAME
••• *. IN PROCESS
.* . . . . . . . . . . . . . . . . . . .

*..

*KI MAINT WILL RETURN TO MAINTS2
AT RNHENT (RENAME ENTRY)
AFTER GETTING LENGTH AND
ADDR OF NEXT OPERAND
(NEW NAME J.

*.

* •• *

.*

.*

*CATAL
*****
*UJ *
* AI*
* *
'K3 KNOW ING THE BOOK
NAME THE PROG BRANCHES *
TO THE I/O CONTROL
X
ROUTINE TO
1. READ IN THE BOOK
*****K4**********
FROM SYSIPT.
•
GET ADDR OF
*
2. COMPRESS THE CARD
* OUTPUT AREA,
*
IMAGES.
* RESET LENGTH
*
3. CATALOG THE BOOK.
* OF LAST CARD
*

:**~!;~~!*:~~****
:SKWAIT

x
*****

*UC *
* E4*

660

DOS System Control

x

* ***K5*** ******
* ENTMAI MAl NT
*
.PHASE CHART T A *

*

*Kl

** .. *** .. ********

*

(

I/O Control MAINTS2 (Part 1 of 2): Refer to
Maintenance, Chart 42

Chart OC.

..

,•••••••
•••

•• ••••
•
1 •
•••••
•

••••••••••••• X.·UE-E2
• UF-F3,KIt
X

.'.

WAIl81

............

UG-Cl
UH-Cl

•••••••
•
•••
••

• YES

·,
..
.................

WAlT80
X
•• •• ·82 ••••••••••
.. LOAD REGS 5-1
-FOR 1/0 OUTPUT
.. SET OUA'DR TO
•
FF NOT END

X

••• •• B4 ••••••••••

..
..
..
..

•
•
•

.................
..

OF BOOK

•

·····t2·.···.····

SEQSW

··...................
.. LOAD AODR OF

..
..

•

THE CURR
OUTPUT AREA

••

X

······03···········
.-.-.-.-.-.-.-.-.
3M250
.............
TF

ERRRTN

DISPLAY
MESSAGE

.. *

*. *.

.* .*
*... -

.*

'NO

••

C4

•• oo

SEQ

••

CHECK

••

REQUESTED

•• NO

••••••

.....
,.
·UB •

• K4.

·YES

ERRSEQ

-oo -.
YES.*
END
•••••••••••••••••••• Of LIBRARY

•
•
•

............

••

..
..

x
.'. *.
E2

INCREASE
CARD COUNT
BY ONE

~x ••• oo • • • • • • :

i

WAIOl

UH-K~

Ait
••
•• CARD ••
••
COUNT
•• NO
•• REQUESTED ••••••

• UF-F3.K~

,

x

.'.

04
••
•• LAST ••
• NO..
CARD
••
••• •••
READ IN
••
SEQ
••

.*

*. *••• .•
.YES

:......................... x:x .•.•..•.•. :x .......••... :
BKWAIT
i
'E5
INSTRUCTIONS ARE
,•• ••• E4•••• • ••••• TWO
ASSEMBLED AT LABEL
INITBK. THE BRANCH IS

..
.................
• LOAD REGS 5-6 •
FOR BOOK 110 •

,,•

ASSEMBLED LA~ T SO THA.T
IT WILL BE IN CORE THE

FIRST TIME THROUGH

OVERLAYING THIS WITH

A WAlT INSTRUCTION
HAKES IT A WAIT

CONOI T ION THEREAFTER.

i

·..*-*-*-*-*-*-*-*-*
···Fl···········
.............

NDlERR

ERRRTN

TF

..•...FZ···········
X

..

DISPLAY
MESSAGE

3"531

WR I TE BLOCK OF
BOOK IN
SOURCE
.. STATEMENT ..
LIBRARY

.............

x

•••••
-UJ ..
••

.

.. 85·
FINSHS

INITBK

X

F4

•••

••

.0: FIRST 0:.
NO..
TIME
••
••• •••
THROUGH
••
••
.E5
••

........
• YES

:x ................... :

·····G2··········
.................

.·····G4···········
.............

X

••••• H4 •••• ••••••

sweDA

X

.. POINT TO ALl

..

.. teN LOAD ALI

..

..

..

.. CCO LOAD ADOR ..
.. OF Al T OUTPUT ..
BUFFER

·...............,
CHAN ENO

svc

0 READ
FIRST CARD
OF BOOK
INTO
BUFFER

X

•••• H2 •••••••••
• SVC 7 WAlT FOR.

•

X

•

•

•
HOVE WAIT
•
INTO INITBK
TO OVERLAY
•
• BRANCH INST.

•
•
•
•

•••••••••••••••••••

:........•. x:
X
••••• J2 ••• •• •• •••
•
IHeOAD
•
•
INCREMENTS
•
•
THE DISK
•
•
ADDRESS
•

•••••••••••••••••••

....
....

x
•• 1 ••
• •

X

.

•••• 1J4 ••••
.SVC
"'AI T•••••
FOR •
CHAN END
•

,•

•••••••••••••••
x

.

•••••
·UO •
• 82·
,
•
8KCHPR

Appendix H. Detailed Flowcharts

661

Chart UD.

I/O Control MAINTS2 (Part 2 of 2); Refer to
Maintenance, Chart 42

...

•• 2 -••
••••••

•• ••••
•
1 •
•••••
•

•••••
*uc •

••

• J4*

... ... ........ .... ..... ... xx.

••.....•.:
:·····12·
lm g~Nmh
X

BKCMPA
•

IMAGE STORE
: COHDR~2D~ IN

BKOTST

•*

C2

*.

..

.x *.

NO.*

•• ••••

BIT 6

*.

..

*.

*el

.-

.•.x

t.

FIRST

BOOk

.*

•

FIRSi

•

•

~ARb

•

••••••••••••••• •

X

•••••
-UE •
• A2·

:=~SM L~~ls~A~g :
oro 5U¥PUT AREA •
•••••••••••••••••

X
..··.£4....•.....

•
•

•

•
•

ARD HAS
• THE
iATlSFY

ani.

·F3
•••••••••••••

:•.•••..••• x:
i
······G2···.···
•.••
.-.-.-.-.-.-.-.-.

GEHCE

TG

READ CARD
OF 800K

•••••••••••••

:x•••••.•••• :

X

a·······

••••••
REH ET PRE.
• REA ~II RE- •

• STDRE hN2ITION.

COO&KtM~R 0

••••••••••••••

1·

·thCKER SELECT CHARACTER
V OR II

x

i

•• ••••
•
1 •
•••••
•

DOS System Control

COMPUTE
RESIDUAL

LENGTH IN
OUTPUT AREA

•
•
•

••••••••••••••••••••

~E~MAi~A~~RL.

GET

•

BLOCK COUNT

• GET LENGTH OF •
• ANY DATA LEFT •

.-.-.-.-.-.-.-.-.

662

•

*..
*
eVES

·····04·•.X ·•·.••·

••••••
F2.i •••••••••
GET
TG

:

NO

••••••••••••••••••••

*.
.*
.*

SWITCH

CTLCHT

*.

.*

·····C4···..•....

·····e2.·X..·..0*.
R~~ET T84~

t •

:C~~~I l3M~~~~T:

*.•
eYES

:

*.

NeW

• SET RESIDUAL

••••••

..

CARD Of

*.

.*

* ••
-ZERO

02

•••

X

•• TEST ••
ellBYl
*. NOT 0

.*
*.
e.

84

•••~L2¥~RJgD8~ •••••• :

•
:

•••••••••••••••••
·EhBYl IS TESTED FOR BIT 6
ON SIGN FIES FIRST CARD OF
BOOK PRE READ.

.*

•• ••••
•
2 •
•••••
•

x
•••••
.UE •

•••

• A2·

BKCPRS

•••

BKCPAS

Chart UE.

Format Book MAINTS2i Refer to Maintenance, Chart
42

.

..-

'*

'Ai

IF MEND CARD WAS LAST
CARD READ AND 0 IO NOT

FIT IN BLOCK A NEW

.-.x *.

A2

.*
*.
*.

• 1

A3*

BKCPRS

BLOCK MUST BE MADE FOR
THE MEND CARD ..

'A3
UD-B4,.f!t

BKNOCK

*Al

* ..
*
'NO

.*

*. *.

.*15 CONTROL
CARD A MEND
CARD

* ..

-

****
*
***** -

*****
•• •

.*

.*

A4

x
.*. ••

*. *.

.*FIRST CARD

.* YES
.......

*. IN
*.

x

YES

BOOK SKEND.* ••••

*.

******

.*
*.*
*..
_NO

x

.--

*****
*UH
AI*

*UG
:0:

-

.

.

---

.-.x

LCDPRC

X

*****82**********

*'

THE OPERAND

-*'

ENDING ADOR.

*************>l<***

SCNMF

C2

.. * . *

X
.*.
*.

ANY

BKNDPR

84
*.
*. *. NO
.* .*CODE MACRO.*
*.oo?
••••••••••••••••••
*.
*. *•• *.* .*
*VES

*CLEAR REG 1 GET*

*'*'

*'

*'

01*

*•*.

BLANKS IN
NO
..
*.NAME FIELD OF.* . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . x.

*.LAST CARO.*
*.READ .*

*•.
*
*YES

· -.
****

* 3 *.X.
••.•••••••••• X:
•**** * x
NOBHDR
i
LDCDND
04 .*.
******05***********
ERRRTN
TF
.* BOOK * . *oo NO •
*_:0:_*_*_*_*_*_*_*
.*
DISPLAY
*.HEAOER FOUND .. * •.••
MESSAGE
*'
*.
.*
3M350
*.
.*

.-

x

. *.
.* 02FIRST*. *.
NO.* OPERAND *.

*

•• • • *. CHAR A BLANK •

*. *.

..*

..*

*•.
*
*YES

*oo .*

:x ........•............... :

-E3
READ ANOTHER CARD

x

.'. *.
E2

X

LDSCAD

*****E4***********

.*
*.
*..* CARD ALL *..* YES
....
*. BLANK .. *
*. *E3 .*
x
*•.
*
'ND
*****
**UCA4**

* LoAD ADDR OF
* SCRATCH AREA,

**

COMPRESS
CARD IN

*****************

x

WAITBI

X

F4

*****F2**********
*COMPUTE REMAIN-*

. *. *.

*. *oo

oo* INPUT
.* ALREADY
COMPRESSED

.

* ING LENGTH OF *
*CARD .. SCAN FOR
*OPERATIDN FIELD*

*

-

*

***'

* AREA USED TO

•
--

: .......... x:
FNDOP

*************

*YES

*.
*

*****************

****

•

*. *.

- -

2

*oo

-

.*
.* .*

.*YES
.....

x

*****

'NO

*UF *

* A5*

****

x

G2

.'. *.

.*OPERATION*. *. NO
*..* FIELD
FOUND .* ...... .
*. *.
.*
* .•
* .*
*YES
'Hi
8IT 3 OF CTLBY2 ON
MEANS THAT THE
HEADER HAS BEEN
PROCESSED.

LCDTSW
H2

.*

.-.x *.

* .. *.
*
*Hl
.* .*

YES.* HEADER
.... *BEEN PROCESSED ..

x

-•

*.

.•

****

- 2

****

'Ill.

••

x

G3 .'

LCDTST

.*
*..* BOOK
*oo

.*.

*oo

END

*. * •• *.*

*..* YES
••••

.*

.*.x *.
H3

.
.*
.... *. WAS

XYES .*

******G4*******
RESET ADDR *
* SWITCH TO *
*SAVE REMAINDER *'
*
OF CARD
*
****'*********** -

••
•

LCDPRC

*. *.

HEADER
*ooBOOK END

*. *.. *.*

*
*•.
_NO

x

*****
*UG
*
* 01*

-NO

.* .*

-

NOCPRS

X

X

*****H4**********
•*GET END OF CARD**

**
*

ADDR . PUT A
BLANK AT END
OF CARD

**
*

*****************

'NO

-

X

~VI'*_titl~

**
**

-

•

TURN ON SW *
LeDBY TO TEST
FOR LAST CARD*

**************

-

*

.

.* .*

X NO

J3-

.'.x

x

--#-.

*. *oo
.*
.* .*

••• • *.OP CODE MEND

*. *.

.* .*

J4

.* . *.

*. *.

END OF
NO
*.CARD-l BLANK .* ••••

*. *oo

*••
*
*YES

.* .*
*••
*
*YES

x

****

·
••

1

****

-*
•

.
.
: ..••....•. x:

X

*****K3*******

**

*

SET SWITCH
LAST CARD
WAS MEND

**************

x

****

3 *
•
•*'****

*•

-**
-*

X

***t*K4**********

'"*

*

PUT A ZERO IN
NEXT TO LAST
POSITION OF
CARD

*
*

*'
*
*
*
*****************
SCNCO

:x.......... :

x

******
*• *

*UF
Al*

•

Appendix H. Detailed Flowcharts

663

Chart UFo

Compress Book and Format Book Already Compressed
MAINTS2: Refer to Maintenance, Chart 42

•••••
•••
• x••••••••••••

*UE •
• 1(4-

.....

••••• •
•• •4•••••

•• 2 ••
••••••

X
:~t::Al==u;·:6:·:
: e~W T~hA=~! :

••••••
·ue
•

seNCD

• OF NON-BLANKS •

•••••••••••••••••••

····.81..••...••.
X

RELDIN

OMOVE NON-BLANKi.
• FROM INPUT ARE •

:

TOc~R~P:~~lED

••

•••••••••••••••••
•

.. ..
........

0

:...•..•••..•......•.••.. x:

CARD

•••
Cl

•

••

i

•• ••••
•
2 •
•••••
•

• YES

*.

*..
ONO

.*.*

.....01··········
i

seNBLN
•

LCD~Wl

:CO~~~i~Lt~~&TH

• OF BLANK FLO

•:.

:
•

•••••••••••••••••
•

0

:x •••..•••.• :

:•••••••••••••••••
1m pm~lR :
Ft

•
•

RESTORE

CONDITION
eODES

X

.INeR SAVE AREA •

:O~N~~~uI6o~N~e

x

.....
.
• • A4.
0

LCOPRI

OFULLB

x

;x .......... :
*.

.* [S *. *. YES
*..* AODR
SW
••••••
*. SeT .*
*. *•• - .*
x
·NO

·····Jl·.·.......
i

E~~F~~RlL~~

•••••
•
1 •
•• ••••
•

•
•
:
•

BYTE
•••••••••••••••••

x
: ••• :Kl·N~··O;··:
OBY~E~

:

REMh'f1NG.
lNFWl&UT
:

•••••••••••••••••••
x

•• ••••
•
1 •
•••••
•
664

·oo

.•

oo·

'NO

0]

•

•

0

x

•••••
·UC •
• B2.
••
o

•

SET ADoR

•

SWITCH

DOS System Control

....

• 3 ••••
••••
X
•••
Hit
.oo

..

.• END

OF

................
•

•

t.

..

·YE~

·~aITE

OCK, •

•
• OUTPUT

X

.RESE' SAVE AREA.

A~~Al,~r~~

...•...........

OUTr~~G'hO£K
•••• .""

·••••.
x

• 4

•

•

0

:

i

:LENI~M~T~AVED:

•••••••••••••••••
K4

.•.x
IS

••

••

•• OUTPUT
' . YES
' . BLOCK FUL L ••••••

*.

•.•. .•.•

MAl !~l

.NO

:x

•••••
:Ui.:
•••

••

i

•••••
:Ui2:

••

•

.

••••• •
••••••
']

••
J4 •••
•• •• ••
o •••
SET
END • OF
0
•
INPUT BLOCK •
.INDICATOR, GET.

••

OF·
lK SW •

·····HS····.···.·:
:

NO

••••••

.t

••. *

S TU •

•

X

·oo *.

•• 1 NPUT CARD

A~O •

•

0

NRELOI

i

NOFUll

•

·· ....
••

BLOtK OF BOOK
IN SOURCE STATEMENT LIB.

t •

·····Gs·••••.•••.

X
••····G4•••••••
•

••••

READ ANOTHER
INPUT STATEMENT

OATA.aN

·YES

WAI TBO
'J]

.H]

f5
••
•• WILL ••

*.

••••••••••••••• •

INTO OUTPUT

.oo

••••••••••••••• ••••• SAVE AREA FIT ••
•• IN OUTPUT ••
BlK ••

•

o MOVE SUB FLO

x
.'.
••

...... ....
•.

••••

'H]

•
:
•

.• E5

YES..
AOOR
...
••••• SWITCH SET ••

•

•
•

WAITBI

FILOUI

:

• LENGTH REG + l •

•••••
·UG •
• BI·
••
o

NO..

·ue •

Hl

•

x
.0.

.*.*
*••
eYES

.-.

•

·C4

*.

x

fJLOU

SAVE AREA

.ADOR BY LENGTH.

•*
*.
•:*8lgg~P~~Ll .:.~~ ••

*. *.

•

•

·····05·····.·..·
.................

••

·····E3.··.··.··.
•
•
•

C"PRSO •

.•.x

X

• MOVE fLAG AND •
NON-BLANK!)
•
•
• FROM CARD TO •

·•••••••••••••••••.

o iLANKS IN 1ST •

SF

••

•
•
•
•
•

·····cs··········
.................

~~agE~~~~ .:.!~~.

i

:··;oll·~~:·O;··:
_BYTE

.'.i

•• MEND

'NO

x

fLGBLN

03

............

SCAN FOR NEXT •

'C4
THE NuMBER Of NONBLANKS CONTAINEO
IN SUB FIELO IS
I
THE LOW ORDER
Of THE BYTE
PREtEDI",G THE
FIELD. THE BYTe
IS REFERREO TO AS
THE flAG BYTE.

N

.*
*. *. YES
*.•* OF END
CARD
.* ....
*. *.

X

• GET NUMBER OF
NON-BLANKS
_FROM FLAG BYTE
•
AND PUT IN
LENGTH REG
•

•• NO
...... .

X

eDNon

····.05··········
.................

FLGINC

••

••
END
•• Of INPUT

:

•••••••••••••••••••

0

1 •
•• ••••
•
.•.x

83

fit·

NOCPRS
X
••••• AS··········
.POINT TO COL 2 •
.Of INPUT CARD, •
GET AOOR Of •
•
• OUTPUT BLOCK •

••••
•

•••

WAIT80

.J3

:

Last Card in Book Processing
Maintenance, Chart 42

Chart UG.

MAINTS2~

Refer to

ENTER AT LtDPRI IF
LAST tARO Of BOOK
IS A MEND tARO

••••>>

•••••
-UF •
•

o

o I
o

o03_
0
o

·····81·······

LCDPRl

••••

ENTER AT LtDPRt IF
LAS T CARD Of BOOK
IS BKEND CARD.

•

Bit

•
•
: ci=~ kCiJCH ••
• ,
.
>•

·YES

•

.0. *.

. t C4

•• ·tAnLtAR~· >. NO
-.FIT -IN OUTPUT ••••••

*.

*. *•• -.-

• E2•

•o•

..

X

seT END OF

WAITBO

.............
3M260

'E2

UE-A2,G3

*••
- .°NO

:.••.••.......••.•.•...•• x:

•·•••E4·······
X

SETCT"

El
-.
.*OUTPUT
*. YES
SUPPRESSED ••••••

*. *.

TF

MESSAGE

i

'.

i

01 SPLAY

: o~Atls~E=r~~K :
•••••••••••••••••••

... *.

......
03···········
*-.-.-.-.-.-.-*-*

CNTERR

ERRRTN

•

-BLOCK INDICATOR-

...

*••
>NO

·ue
•
• 82-

••••.01.·········

LCDPRC

t • _.

*.

..

•••• .....-YES

x
.'.

YES.*
ANY
.. ................................. t. t.
CARD
COUNT .t.ERRORS ._ ._

.....•

BLOCK.*

·........

.'.•*.

.* CARD -. *. NO
*..*-.REQUeSTED.COUNTING
••••••
*. *•• - .-

••••••••••••••
Cl

>

.-

•• RESET COUNT••
• CARD SWITCH •
••••••••••••••••••
:X •••••••••• :

x

••••::F.e·t:;,·····
• BLOlK OF BOOK •
IN SS LIB

..............•

•

...•.F4··········
x

.. LOAD 1/0 CTRL ..
•
REGS LOAD
•

.................
•

:·:E·~.·t:·,·· 0

ADOR

•

•

0

.. .'. ...
.. ..
x

•

'PROt SMA ~ES~TO
.HEADER EAD S. . .
'RESET SEQ CHECK
•
SWITCH
•

IF THE ERROR SWI reH
IS ON THE BOOk IS
NOT TO BE CATALOGED.

OUTPUT BUFFEtt ..

•

:x ....•.••.. :
RSTSWS

'F5

G4

-.

••
ERROR
•• YES
•• SWlrCH ON ••••••••••••••••••••

••

••••••••••••••

·F5

••

*•••

'ND

•

•S~M¥·.
·Hl·······
:••••c~m
~ARD
•
•
..............

• LAS T
.. AS •
•
MEND SW
•

X
•:••••IN~~fi2~~T~
HS··········
:

UPSTAT

•••••
•• ••••••••
• RES H4
TORE
CURR •

•
OISK ADOR
• RESTORE DISK
• SEARCH ADOR

•
•
•

.•................•

.................
• THE DISK AODR •
•
•

TO THE NEXT
BOOk

•

i
••••• ~s ••••••••••
:

•
..

~O~N'L?~K
UPDATE
ENTRY

:

•
•

•••••••••••••••••
•

:x.....••..••.••••••••..•• :

•

lEGS

K4·······
••••••
••
•
RESET

LCDXlT

•••••
Kl •• ••••••••
• iNpCH
~CN TO •
:
k06R~ESTm :
• OUTPUT CONTROL •

•

0

•

•••••••••••••••••

•

·••••••••••••••.
•
•

ERROR
SNITCH

•

..

•

•• ••••
•
1 •
•••••
•
Appendix H. Detailed Flowcharts

665

Chart URo

Book End statement Processor MAINTS2; Refer to
Maintenance, Chart 42

X

BKNOPR

.*·*.Al*******

*

TURN ON SW

* ...

TO IGNORE
MEND CARD

...

- .
:

x

OPERAND ON

.*

4TH

...

.. BOOK END CARD ...
>
*

FOUND

>.

* •••

X

CPRDPR

* ..

.>

·****C3*******

*
*

.... NO

.-

.*

••••••

•
•

·

*****...
*UC

*.

3RO

• * ................. oo.oooo

. .. .*

* ••
*2ND

.*.

...

X

COCTPR

C4
*.
• * CORR ...
.* KEY WORD ...
SEQUENCE
*.
FLO
.*
* .....

NO

*.**._.* •• *.*-

-YES

WHICH
OPERAND

SEQNPR

*

SET SWITCH
INPUT IS IN *
COMPRESSED
..
FORMAT
•

*•

B4

*.

** **** ** *. *******

C1

:

.0 •

... * ***
131 FOR
*** *****
...
SCAN
1ST **
...
...
CHAR OF
...

2

*****C5********·*
PUT NUMBER OF •
CARDS IN BOOK *

*
•

*

..

•

*
*

IN SAVE AREA,
ZERO NUMERIC

*1 N CNT OPERAND *
.... *.* ... * ........... *

·YES

... 62o

o

*

WAITBD

x

** ***
0 1 ***** ** .-.
~AVE REGS 8
...

•*

..

...

AND 10, SET

...

...

SlOP ON A

...

... TRT TABLE TO

**_.
1

*

OPRSC~tHt

*•
*

: ... :

*

x
.*.
*.

NO.*
OPERAND
.. ••••
FORMAT
•• CORRECT

...

:*****~~~~!*****:

:

03

x
****

*.

* •• *

x
* •••
* 4
>

X

••

.*

*.
.*
.*

• NO

x •• oo*.

*

•- 3
o

*•
*

CaRR
OPERAND

*oo LENGTH

*..

x
.. ***

·YES

3

1+ ****
*****..
...*****
PUT E BR.
INDEX

X
05··· *.

SET SWITCH

*

NUMBERS

**

it.

OPERAND ON

*.

.*

CARD

.*

--

*

****
4

.* G1-"'- *. *.

*.

*".

*.

••
..

•
.YES ..

*

x ......

••

x

* ••
*
*YES

•• *.

.

.'

G4···

F5

*

.*.

••

••
ANY
••
NUMERICS
I N OPERAND

••

.. .......
FLO

...

••

*NO

....

LENGTH OF

....

OPE RAND

•*

.-.x *.

1ST
OPERAND

*.

H4

*. NO
.* ••••

.*

* ••
-NO

*oo

*

:oo ......... oo .... oo .. oox:

x

*

• o.

J2

0

* ..

... CATAL ••
AND BKEND •• YES
NAMES THE
oo ••• oo ..
••
SAME

...

•

•

3

*oo ••
*NO

•*

.*

*.oo ..

*

*. NO
.* •••.

.*

*YES

ERRRTN

TF

*-*-·(jiSPLAY*-*-·

x

*··**·J4·***·****·*

.~~~~!~-*-.-.-!~*
DISPLAY
MSG

•• *.~~;~2* •• *
X

****·K4.*****· •••
RESTORE
TJ)"T TABLE

AND REGS

"SG
3M23D

*.* ••• * ••• * ...

:x .......... :

x

•
o
*

****
4

DOS System Control

o

*
*
•

:

x

..

WAITBI

.** .....
• UC

*

• A4·

*

*

*
*

STORE

·•. ··H5····. ··

*..
*

....x ·

• 1

RSTQRC

*. *"*·K2· **** ****.*

CARD CNT IN

SET SWITCH
TO COUNT

CARDS

•••••• * ••• * •••

: .....•••.• x:

x

BNOERR··

* •• *

•

X

**
*
:BERR1

.. *

*oo

4TH

•• * ..

*

.0.x *.

OPERAND

CONVERT TO

:.*•• S2S~!~ ••••• :

*oo PROCESSED.·

*.

x

.. "

*YES

> 3
>

*.

•

* Bl NARY,

.*

*NO

H2

X

···**G5··**··*···
*PACK CARD CNT, •

XYESoo*
END OF
••
... oo ••• CARO, COL 71 ••

LOAD MAX

* •••

*.

666

** •••••••••••••••*

*
:****G2******+**:

*. YES
• * .......
.*

-

*

•* 3

*. YES
...
•••••••••• x...
.*

-.
2

COUNT TO
.. SEARCH AREA,
•
ZERO ZONES
>

*

* ...
'"
>NO

*
*

.*oo

.•.. *.

*.

* ••
• YES

.* OPERAND
*. TOO LONG

F4

ANY
NO.*
MORE
OPERANDS

.* .....

*

*

*
.
... oo.
X

4

* * ••• *
OPRRTN

.... NO

******E5*****····*
MOVE CARD
•

*

* ....... *** •• * *
**

******** **** **** ..

WAS

X

X

****"E4".*****

-OPERAND LENGTH ...

••

* .....

·YES

TO CHECK
SEQUENCE

.'.x
F1

*.

*

-OR COMMA, CALC ...

.. II-

• ..

* ••
*
_YES

*•

.0

0
>

-VALUE IN REG 8,.

-SCAN FOR BLANK

NO •••• CORRECT··
10NES

•• oooo*.

.*

*

*

x

••• *
*
0
** .4 *0

••
•

•

Chart UJ.

Finish MAINTS2 Entry and All Through Processing
Routine MAINTS2; Refer to Maintenance, Chart 42

·· ..

..
··.··Al·······
..............
••
°
... AZ*

• 1

·A2

X

ALL THT

.. WAS BOOK END, •
... RESET SW-1ST •

•.

....

•

FINENT

•

.*

....

•• UC < •••••
• Fl·

it

·····B3······.

*.

•
•
•

-SUPPRESSED DUE.- .......

..... TO ERROR ...

* ••
°NO

X

ENTRY, SAVE

•

...

ADORE 55

*

ENTMAI

MAINT PHASE
CHART TA

*.

•

.....'
lIST

••

•

.· ...C1··········

it

·····cs··········

X

•

..

.................
.. CURR POINTER

····84.········

...............

8S
••
... ANY·.
..ENTRIES IN •• NO
.SYS OIR UPDATE ••••••

·YES·

... POINT TO NEXT ...
DIR UPDATE
•

..

•

•
•

TRAILER

it

.< •

FINSHS

X

RESET SW- •
CARD READ •
AFT ER BOOK
..

•

....x
-. .

.*

• 2

DLING

····AS·········

.MAI NTS2 PLUS 12 •

• YES

*
*. •• YES
.* • OPERATION

....

*•

•• AfTER BOOK ••••••••••••••••••••
••
TRlR
••

x

• 0.

•••
A3

•• WAS A ••
•• CARD READ •• NO

-RENAME OPERAND-WAS PROCESSED-

Bl

it

CDYSW

UA-K3
UB-f2, J4
UG-K4

... RESET SW-HOR*

<

····C3·········
WAIT FOR
EXTRA CARD

:~!~~~.-.-.-.-~~:

•

.................
• UPDATE SYSTEM.
•
01 RECTORY
:

••••• r2.~~~2 •••••

•

: x •••••••••• :

DOUTST
VES .. *
••••••

•••

.. *

••

D1

END
-.
OF OIR
*.
UPDATE
.*

*.

LIST

••

* ••
·NO

fl

.'

YES .. •
••

..... .............. •• *.

.*

,.
OR i&
CARD

.. ......

.'.x *.

·•.. ·E3·······

•
•

AEND
MAl NT PHASE

•
•

TURN ON
1ST CARD
OF 800K

•

:

·····Fl··········
.................
i<

...

LOAD ADOR

...

UPDATE
SUBROUT! NE

F3

•

OF DIR

•

YES

••

••• •••

.tt-.-.-.-tt-*-.-.-.
····G1··········
*OIRUP

UK __

.... .. ..

..................
•

STATEMENTS

••

ON SYSIPT.

• CALC THE NO.
OF BlKS
•
.. REMAINING ON
• CURR CYL FOR
•
CATALOGING

.................

G3

."
IS

••

i
······G5···········
SVC a
WRITE svs

....

DIR ON
SYSRES

•• ·G2 ••

•

·YES

:•......... x:

·..··H3··········

MVSTMT

: •••• Hl ••••••••• :
...
RESET OIR
...
.. UPDATE LIST •
..
POINTER
•

it

• MOVE CONTROL •
• CARD IMAGE
•
•
FROM BUFFER •
.INTO CTRL CARD.
• INPUT AREA • • K4 •

...................
x

.. ..
.. .. ....
· . .. .
J1

....

•

:

_NO

....

TURN
1ST CARD
OF BOOK
PRE-READ

...... ......
~~

..
•

.

•
•

SUB-LIB
MESSAGE

<

:

....x
1

<

:

......
K2···········
.-.-.-.-.-.-.-.-.
X

SPlPRT

X

RESET SW
TO PRINT

•

ERRRTN

TF

..... .....
.~ ..
.....
-

PRINT NO SUB
• U B QUALIF IER.

~~~

:

2

ENTMAI

MAl NT PHASE

•

•••• ;~~~!.!~ ......

REFER

,A4 ON

x

: •••• HS ••••••••

•
•
•
•

....Js.·.······
X

•

•

•

TURN OFF
HAINTS2 IN
•
CORE SW
•
·J4
•

..............

TO NOTE

CHART TC

.UA •• X.X •• 2 •
• K4.
...

•·•.·Kl·······

•

i<
····H4••••
•••••

'J4

it
·..··J3·······
OFF .

••

••
SUB
•• YES
•• LIB MSG TO .................... ..
... PRINT ••

FRESET

•

.................

: x•••••••••• :

SPRTT

•
•
•
•
•

WROIR
••

••
MAINT
•• NO
••
READING
••••••••••••••••••••
•• SYSIPT ••

i<

DOURST

X

·····FS··········
..................

GMXBLK

•
SET NO. OF
•
• DELETED BLKS •
• TO 0 AND AVAI L-.
• ABLE BLKS TO •
TOTAL ALLOC •
•

••

<

:.•.......•..•..•.......• x:

'G2
ARE CONTROL

.................
55 OIR

SAME

.NO

UPDATE SYS

OIR AND

i<
·····F4··········

••

•• SYS IPT ••

.. GET ADDR OF •
.NEXT AVAI LABLE •
LI B BLOCK
•

.................

•

DEVICE AS ••
•• SYSROR ••

<

i<

.<.it

·····E4··········
•
SET DIR AND •
LIB CURRENT •
ADDRS TO
•
STARTING
•
AQDRS
•

•

PRE-READ SW ••

it

. ···.ES··········

i<

RE SET

•

..............

•••• S~!~!.!e •••• •

:••...•...• x:
...

....

·YES

it

i<

····E2·········

x

05

•••

••
•• ANY· •
NO.. ACTIVE
••
• ......................... BlKS IN SS
••
...
LIB
••

••
••
••

.NO

• * .* CATALOG *. *. YES
*. OPERATION ••••••
•.
.*
*.
..*
* ••
'NO

DOUGAL

UPSVSD

03···

*.

ANAL EN

MAINT PHASE

•

•

•••• S~~~!.!~ •••••

'K4

it

•• ··K3·········
• PUTLST MAINT •
.PHASE CHART TA •
•
·K4
•

...............

LAST CARD REAO FROM SYSIPT
IS A CONTROL STATEMENT

FOR MAINT. BYPASS CARD

READING.

:

Appendix H. Detailed Flowcharts

667

Chart UK.

Update Source Statement Directory Subroutine
MAINTS2 (Part 1 of 2); Refer to Maintenance,
Chart 42

•• ••••
•
I
•••••
••

•• ••••
•
2 •

••••••
i

.0.
....

TSTOP
••••• 1•••••••••

••
•
DIRUP
••••••••••••••••
••

••

••••••

DONE

.... .NO
....

•x•••••••••

·····a2··•..•.•..

X

:···~~l·::·;····:

•
•

REGS, SiVE
OIR UPDATE

X

DRENMI

•
•

•
•

UPDATE

•

•

RENCDE

•

swnCH

••••••••••••••••
.

....

•• 5
o
CLRBLK

•
•

STEPL!

•
•

•

.*

..

._

••

·YES

FZ

BLOCK

••

*.••

•

••••• •

HI

t.

END OF

*. ' .

DIRECTORY

*. *.

·....' ..

o •••

.• .-

'NO

7

CI

••••

o ••••' .X

ONTCHT

•••

.

YES X

.0 ••••

••••••

•••••CIt.!•••••
•

tURN ON
HEM NAME

.YES

•

•
•
• ERROR SWITCH •

••

••••••••••••••

i

••

..
..

.
X NO.'

C5

.•.X

•

•

SVC 0 WRITE
DIR BLOCK
ON DISK

..

• 81.

•••

EODIRO

o.

•••••
•
2 •
•• ••••
•

••

J2

.X

••

EHOOF

••

CYLINDER

••••••
3 •
•• ••••
•

••••••J!.!•••••••••

•• HO

••••••

•

THE DISK
ADDR TO THE

.i..

....

•• J ••
L

•

DOS System Control

•

RD¥~~IFUi¥S
=k~iKCVL

•
•

.••.•••...•••• x..

•••••K2.i••••••••
INm2~~TS

•

•••••••••••••

·YES

:•

••

••
o •••
'YES

X•••••••••••• :

•• ••••
•
5 •
••••• •

• DEL 1 UPDATES

•

: OF DR02~fAeEL

:

THE SYS OIR
FOR REMOVAL

•• ••••
•
6 •
•••••
•

•

...... ......

••

.0

..
..

•
•

•••••••••••••••••

•••••••••••••

X

'.

SUB-LIB

• •••• YO BE DELETED •••

X

TORY.
SWI CH
•

:•
•

NEXT ADDR
•
•
•••••••••••••••••

668

....
.. ..

•
•

······HZ···········

•••••
• UL •

NAME

.i..
•• I ••

.X t.

i

• e JIBOOK ' . t.

'YES

B5

.....G5··········

tIIaT •
OF·

X

*. NO
•• IN SEQUENCE ••••••
*.
.*. o •• _ .X
•e

..
...
.... .

••

•• HAS ••
••••
•• NEM NAME *. YES
NO ••
••
•• BEEN PUY IN •••••• X......
OPERAND
••
••
SSLI8 ••
••
ALL
••

•

0 OF •

0

.•.X

••

•
BlK
•
•••••••••••••••••

••••••••••••••

)(

.*

S

84

':.

.ALL

.......
.
.YES

.fROM DIR ENTRY •
•
ADO NUM OF
•

NRVRO
•
•
•
•
•

••

.YES

-

••

:.~~.:' ~5hElfB

DIROIl
X
•••
•• F5··
•• ••••••
• GET
NUMBER
OF •
-BOOKS TO DELETE'

x
••••• •

X
·····Gz·······

X

• REAO~D¥~~IFIRST.

••

.'.

•••••
•
I
••• N

•

••

........

OmmDN . : .

AS

DELET

.. ..

.x

X

•
•••

•
X
•
• •••••••••••••••••••••••••••••••••••••••••••••••••• x.

•

'NO

······Gl···········
··."........•••••••••••••
....•....
•••

•• RESET DELETE ••
•
UPDATE
•
•
FLAG
•••••••••••••••
••

••••••

• 4

SCNBLK

•

••
MOYE
•• YES
.ENTRIES IN DIR ••••••

*. o •• _ ••

BLOCK OF
SYS CIR

•

••
•
••••••••••••••••••

ANY e.
•• DIRECTORY'. NO
ENTRIES
••••••

•

•

X
·····03......
·

x
•• ••••
•
7 •

UPDATE LIST

••

*. o.

LIST

• TO DIRECTORY

•
LIST SCAN
•
•••••••••••••••••

•*

........

·····EZ.·.....·..

:~£:N~okOO~D:~~s:

NEW NAME
OR BLANKS

•••••••••••••••••••

.0.••

STEPBI
X
• RELOAD POINTER _

• LOAD REG 3-5 •
• FOR DIR BLOCK'

IN DIR WITH

•
•

X

'NO

.·.··el··········

.•.x

•

•

•

o.

oz

••

X

F1

• REPLACE NAME

•••

.NO

X
·····C3··········

•• MORE ••
•• ENTRIES •• YES
... ON UPDATE ••••••

•

•

OUTPUT
BLOCK AREA

••••

o
.
••••

••••

X
.····01··········
-•••••••••••••••••.
CLEARS THE

·

••

DRPROC

RESET·

•

•••••••••••••••••

•

.•.X

••

·DELETE

X
·····CZ.•••...

X

A4

i··.. ....
••••
•• 5 ••

.. .... ......•.

NAME
••• ••••••••••••••••
••

•••••Cl· •• • •• ••••
• SET DIR ADDR •
•
FOR SEARCH
•
• LOAD DIR DISK'
•
AOOR fOR
•
•
SEARCH
•

•

B3

••

• PUT DISK ADDR •
.AND ENTRY ADDR • • RENAME •• ·~~~IA~·o~·
CATAL
DELETE
••••••
• IN OLD BOOK • •••••• ••••

•
REGS 2-10
•
••••••••••••••••••
•

X··············

. . . . . . . ..

.:·pRma~l~~ .:.~~~ .... ~~.:.

6 •
•• ••••
•

DIRUP

DNEWT

A3..

.:....KI··········
'O\~teR
:

WRCMPL

X

: TO 0 l~fiJORY

:

•••••••••••••••••••

.i••
•. 4 ••
••••••

Chart UL.

Update Source Statement Directory Subroutine
~~INTS2 (Part 2 of 2); Refer to Maintenance,
Chart 42
-***
*
•* 4

*

X

*****A5*****·*
* SET ENO-OF-*
*BLOCK, END-OF-*
01 RECTORY
...
:
SWITCH
-UK ..

*

... Hl·

* *

.*.

X

EODIRO

:*~!~~ *!~*~~ !!~*:

* • • *.*
*NO

x

X

..... "*C 1" •• *. "'it ***

..

INCDEC SETS

...

**"'**C3*******
* SET END OF * +
BLOCK NOT
*
END OF OIR ...
+
SWITCH
*
********-11*****

*

UP THE DISK

..

SEARCH ADDR ..

*

-It. *** ***** ** ** ****

< 2

.-It • •

...* 3

* •
........

*

*

EoaD!

<

*
*

.*

END OF

.<

*. NO
.* ......
.*

:x ..................... :

_......*-.... **

*

:x ......
x
.*.
F1

..

* ••
*
-NO

--

HI-".

*

.* ·OIRECTORY· l i . YES
BLOCK
.* .......
*. FILLEO .*
*.
.*
* ...
"


.._.

...

>

> 6
>

>
>

................ ~?:.

. '"

-It.

.. a:.

• >.

...

BL~tRToF
TRACK
.. '"
*.
.."

INCREMENT

... TRACK NUMBER
...
IN 01 SK

...

...
...

ADDRESS

: ••• 2!~~~!2~! ••• :

... REALLOCATION

..

:

:

TABLE

-PREPARE TO UPD ..
-PHASE MODULE OR.aOOK ADDRESS IN-

•

RESPECTIVE

*.

TO BE MOVED

*.

'.

.-

.>.x

a

X

-RESTORE RECORD ...

*····03*······ ... ••
* SET UP DISK *
•
ADDRESS AND *
•

..'"

.-

* ••
.YES

>
•

:x .•..•.•... :
DIRUPS
i
·.··*OSa •••••••••
...
COMPUTE
NEW
:
ADDRESS

DIRECTORY
BLOCK

•
•

: ••.•••••••.••••••••••••• X:

.>.i

OIRUP2
X
a.*·_E3··········
a GET NUMBER OF •
• BLOCKS PER TRK ••
*FROM REALLOCA- •
:
TION TABLE
:

DIRUPB
X
"'·*··El····-*····
•
INCREMENT
•
• RECORD NUMBER •
IN 01 SK
•
ADDRESS

....

DIRECTORY *. NO
BEING BUILT ••••••

*. *.

TO

*CCW·S TO WRITE -

*

Cl

·····CS·······*··
•
CONVERT
•
• DISK ADDRESS
•
FROM CCH
CCHH

....._................-

TO 1

85· *.

. .

X

... OI SK AODRESS

.*

X

a.

• 7

NUMBER IN

*.

• aNUMBER a.
•
.OF DIRECTORYa. YESX
•• ENTRIES IN .a ••••
a. TABLE EQ .a
O•••
X
*NO
* •••

a. a.

·.···02·········.

.*

NO

.* ........

* ••
.YES

C3

...

X

*.

.* • *lIBRARY * • *.

o

...

0

:

.................

...

._ •

83

X

·····C.2··········

...

•

: 2

X
·····AS··········

INCREMENT

x

DIRUPI

* ...
'"
·YES

...

>

:x .•...•.•••...•.....•.... :

x

B2

..

TABLE

0

.ADDRESS TO NEXT-

...

...
...

... REALLOCATION

0

•

X
··.··A4··.··.···.

X
·.···A3··········
....................

DIRUP

... LOAD ADDRESS
...
OF C I

>
> 4

.* ES CI .... ....
•• 01 RECTORY ••

NO
• ..................... BEING BUILT ••

......*. . .*..........*.

tie

* •••

••

.>

aYES

: •••••••••••••••••••••••••••••••••••••••••••••••••• X:
DIRUP3
X
·····*F3····*······
SVC D

o

•

1

o

•*
*.

•a

*.

Gl

.....x

•

>

0

:

•

••

01 SK
ERROR

••

....
5

READ

•• YES
..
YES.*
•••••••••••••••••• X.X.. •••••••••••• .....

••

*.

• 7

* •••

·..*.

DIRUPIO

DSKERR
i
·····*H2·····*·····

.. .. ........
.VJ ...
• AI·
o

MOVE

•

•~~~~!~.-+-.-!~
•
DISPLAY
MESSAGE
3H70I

X

•• • *

x

...
•

o

•

*

•

STORE CH
Of NEW
CI SK ADDRESS

..
•

.•.......*.....•.

...

o

•

>

: •••••••••••••••••••••••• X:

.X

••

DISK
ERROR

X
•••·*GS·······a.a

DIRUP7

*.

•
GET SIZE OF •
ENTRV FROM
•
•
• TABLE, INCR •
*AODRESS TO NEXT.
•
ENTRY
..
• •••••• *.* •••••••

*.

.. .. e·
·NO

.....
HI
••
••. LAST *.
... :. DIRECTORY .:.~~ ••
•• UPDATED ••
·YES

o

* •• *

X

a

..

•• a··FS··_a ••••••

•>

....._...........

•

.NO

o.

STORE CHH
OF NEW
•
• OJ SK ADDRESS

:

... •• •• ..••

o

••

DIRECTORY
BLOCK

G3

i

·····F4·"'ic ·····"'··

DIRUP6

o

i

·····H3*·.·*.···.

H5

• lOAD NUMBER OF •
ENTRIES PER •
•
_SLaCK FROM TSl ••
: LOAD 8FR ADDR :

.~
o

* ••••••••••••••••

* ••••• ** •••••

0

• 4

0

o

•

0

:

QUIT

•
•

x

• •• *

····J2·········
SVC 7
WAIT ON NON

•
•

•.~~~~!~~!.~~2 •• •

.*

J3

•••

••

••

••
LAST
••
DIRECTORy
••

••

ENTRY

.*
* ••
*
·YES

* •••

aVES

0

it

NO
••••••

it

>

:

0

··.···JS·*·········
SVC 0
WRITE
UPDATE
* DIRECTORY •
••• *~~~~~ •• **

*.

.*

••• *
0

2

:

X

DIRUP9

·•·. ·*K3·····*··**·
SVC 0
.. WRITE LAST
DIRECTORY
• BLOCK WITH

**:.~~~2~2.*.
•

:

X
* •• * 0
1

:

••

.. ..
.. .. ..

• 3

: •••

DJRUP4

X

·

o.

3

.>.X

•• lAST ••
NO ••
ENTRY
••
• •• *. IN BLOCK ••

YES.*
• ••••

.*

••

•

.=..
•o

o

5

00

K5

••

.'.it *. ••

DISK
ERROR

* ••
*
°NO

.a ••

.*

••
••

.*

. .
o
o 6

•

0

Appendix H. Detailed Flowcharts

679

Chart VJ.

Relocate Directories and Libraries MAINTA; Refer
to Maintenance. Chart 43

.....

-........-

*YH ...
.... H~.

:

-

*A2 1ST PASS IS A
FORWARD SCAN OF THE

~~Au~~AnO~I~Aem m~F~~ ~ITH

.....Al··········:
.................
X

HOVE

:ll~cI~f~~~ ~~~

...

1ST PASS

...

*A2

:

1

...

-- -_ 5

-.

-

NO
•
•••••••••••••••••• x.

-

MOVES

...
...
...

X

02

MOVE BLOCK
BYTE tNT
PLUS 8
TO CCWS

: 3

...

X

GET NUMBER
PER TRACK

...

-- --

X

-

SVC 0

READ BLOCK
AT OLD
AODR

I

.VK •

•
•
•
•

_

DECREMENT
ADDR TO
PRECEDING
ALLOCATION

.*

GI··· *.
DISK

YES
.*0 •••

ERROR

*0

*0

*. *0

.-

*0 .-

.-

-NO

_ 4

...·.·HI···········
X

svc

0
WR ITE BLOCK
AT NEW
AOOR.E SS

.-................
x
-...._

- -

•

TKFMT

.~

x·············
.X
DSKERR

...... ......

····.·J2···········
.-.-.-.-.-.-.-.-.
ERRRTN

TF

DSPLY "SG
3M10I

SET PASS
INDICATOR
TO PASS 2 t
.05

.-.x

oo.

Kl
••
MORE ••
ACTIVE
.oo YES
BLKS
•••• oo.

QUIT

X

• •••K2·········
•
SVC 7
•
• WAIT ON NON- •
• EX ISTENT ttB •

.. .... .. x ...............
....-.
x
....
- -

••
_.

·oo

••

-NO

:

680

5

:

DOS System Control

..--

•
•

•

•

....

- :

6

E4
••
oo- MOVE
••
•• TO HIGHER •• NO
•• DISK ADaR, ••••••
..2ND PASS ••
••

....

....x

oo •

.YES

:

x

.. .-. ..
.. .. .. ..
--....-.
-..
f3

••

LAST
••
... oo....
BLOCK ON
••
•• TRACK ••

--

_ 8

·.···F4··········
X

-F5

ADOR Of LAST
TRACK=STARTING
DISK ADOR +
TRACKS USEO-l

:!~~~~~-.-.-.-~~:

•
COMPUTE OLD
• AOOR OF LAST

•
•

:... !::S~.:~; ... :

.oo • •

.•...G3··········

X
·····G4••••••••
•·

•
INCREMENT
•
• OISK AODR FOR •

• COMPUTE NEW
• AOOR OF LAST

MOVEb

--

X

:!~~2~~-.-.-.-~~:

: ••~~!!.!:~~~ ••• :

:!~~2~~_._._._~~:

....x

-- --

- 3

-

•
_

:..... !::~!....• :

.-.
ic

H4

••

.. .. .. ..
••

.oo

••
LAST
•• TRACK FULL

YES
••••••

*oo

oo •

..

J4

.-.x

••

..

.

••
ANY
•• NO X
•• FULL TRACKS •• oooo ...
••

*.

oo.

* •••

oo •

·YES

-NO

•
•
:

_

.05 2ND PASS IS A
REVERSE SCAN OF THE
ALLOCAT ION TABLES
STARTING WITH SS LI B•
REFER TO FIGURE 10.

-NO

.-.

-

•

X

••

Jl
••
•••• DISK •••• YES:
••
ERROR
oo • • • • •

- 7

.-.

• 7

MOVE1
X
·····C2··········
• MOVE UPDATED •
• BLOCK NUMBER •
: TO DISK AODR :

....x

•• A~ •

·····04.•..•...••
.-................

NO ••

. . . . . . . . . . . . . oo

X

• GET NO. Of
•
BLKS TO BE
: MOVED, RESET

•• a••

••••• NO··

MOVEIO

MOVES

-

····.B5.·········

MOVEll

:........................ x:

·YES

0*0

..

_ •••

.···.·FI.···.··.···
...

-

-.................

- -.
"'OVE4··· ... 4

.-.x ••

: ••••• !~2~~ •.••• :

X

...

oo • • • oo.oo • • • • • •

...
PASS
•• YES
•• 2 COMPLETE, ••••• oo
•• C I LIB ••

•
•
•
•

·····E2··.·.·····
•
It.rICREMENT
•
• AOOR TO NEXT •
•
OIR OR LIB
•
TABLE

...

OF BLOCKS

_ 9

84

·····C4··········

••

-NO

: ...

.. ..

YES
•••••••

.oo
••
••

X

••
PASS
•• YES
•• 1 COMPLETE oo • • • • •
•• SS LIB ••

- -.
·····E1··········

Move;···

.. ..
.. ....... ....x
-- -x
.. .-. ..
.. .. .... ....x
- - 6

·.·.·01.·.·...·..
...

.-.x ••
C2

·YES

: •••

.oo

:

oo.
PASS
•• NO
•• 1 INDICATOR ••••••
••
ON
••

-.

2

MO'lE2·"

....
....-

-9
:

·····C1····.·.·..

...
GET OLD AND
... NEW STARTING
...
ADDRESS
FROM TABLE

:

..

• w.

X

.oo

-NO

81
••
*.
0- 0-TO MOVE
LOWER *.

*0 DISK ADDR,
*.15T PASS .*0
.'"
*0 ••
-YES

•••

LAST
TRACK

·oo

X

HOVE 1

••

·oo

: •••

••••

Alt

••
••

...

:

X

MOVE'9

MOVED. REFER TO F [GURE 70 •

*GET AODR OF CI ...

8

X
·····K4••••••
••••

•
SET LAST
•
.TRACK INDICATOR.
.SET UP TO MOVE •
•
BLOCKS FOR
•
•
LAST TRACK
•

.................
....:x .......... :
o

x

_

:

2

:

Chart VK.

Format Unused Tracks MAINTA; Refer to
Maintenance, Chart 43

.....
.-.

.......
.-x.

*VJ ..
• 84-

2

•..·.A2·····.·...
X

TKFMT

-AI

~~ui~~ m~tiTABLE

A4
••
.* LAST ••
NO .. TRACK TO FOR-.
• •••••••••••••••••• "A1 IN THIS LIS-

.. ZERO STARTING ..

..

LIBRARY WILL NOT

ADDRESS OF

..

.. RELot L IBRARV ..
.ALLeCATE TABLE ..

BE BLANKED

.

: •••••• :~! •.••••:

*.

·....-.'O
• 5

······B2·····.·.·.

······93·····.· ...·
·..................
x
·....
.
·....

3

.. UPDATE TRACK
..
NUMBER FOR

·....•.............

..
..

.. DISK ADDRESS

-

·····e2··.······.
·..................
X

• 4

.. LOAD ADDRESS ..
.. Of BEGINNING ..
.. OF ALLOCATION ..
..

X

TKFHT6

MOVE .. TO
1ST BYTE
OF BUFFER

-- .-

..

•

TABLES

•••

• •••••

TKFHTIt

X

..
...... ..
84

•••

••

••
S5
•• YE S
••
DIRECTORy.· . . . . . . . . . . . . . . . . . . . .
••
TABLE ••

·NO

·····C4•.••.•••..
X

•

INCREMENT

LABEL2
X
: •••• C5 ••••••••• :

•

•
•
•

•
ADDR TO
•
• NEXT DIRECTORY.
•
OR LIBRARY
..

: •••• 05 ••••••••• :

NO

PREPARE DISK
•
.READ AND WRITE.

•

.... a.TO BE DONE ._ .. * .......
a.

••

......
:

• * •*

••

••

Fl

1

LAST

BLOCK IN
TRACK

:

TRACKS

It

••

••••••

•

X

.~~~!~~-.-.-.-~~.
RESTORE LABEL
AND CYLINDER TO

••

.~~~.~22~;;;

·· ..
••••

·····Gl········J·

: INCREMENT BLOCK:
.NUMBER IN DISK.

..................

•

: s :

: •••

X

DETERMINE

X

·..····F!). •••••••••.
...................

END JOB

RESTORE
JBC.SWl

•

STARTING ADDR •

•

X

•

······ES···········
•• NO

:!~~2~~-.-.-.-~~:

YES

X

ADDRESS

..

••••• FZ •••••• • •••

* • ••

• 2

•

ANY

UNUSED

••

ADDRESSES

·YES

·NO

TKfMT5

EZ··· ••

TKfMT2··

•.•.. *..

•

.."

* ...
"
-YES

.. .. ....
· .. . .
••

:

.•. *.

..

•
•
•

x

: 3

*. *.

.. _FORHATT ING

GET ADDRESS
OF LABEL
CYLINDER

.·................

.....!.

X

02" *. *.

.. "

.. "

: ...•. !:!~; ..••. :

:.......................... x:
TKFHTl

OR nlR

*. a • • _ .-YES

X

-

•

..

:2:.~~~;;~.!~~;.:

IN COMM
RGN

•

•

X

·····G2··········
X

•

INITIALIZE
TO WRITE
IN UNUSED

•

•

••• .. ··G5···········

.~~~~!~-.-.-.-!~.

•

MSG-END

..............

.REALLOCATION •

TRACKS

3M611

:••••••••••••••••••••••• ,X:
TKFMT3
i:
•••••• H2 •••••• •••••

END

SVC 0

WR ITE •
BLOCK IN
UNUSED

•

•

.... !~:;~ ....

•

o.

0

ERRRTN

DISK

.. ..
. .
ERROI'1

•• YES

..
'O
.
••
...

••-•••••••• X

.................
MAINT PHASE
CHART TA

•
•
•

:

TF

.-.-.-.-.-.-.-.- •
DISPLAY
MESSAGE
3M10 I

.............

·NO

1

NEW RO

DS~~~~ •• J3 •••••••••••

J2···
••

:

•••• HS···· . •. ••
X

•

QUIT
'.

·.··K3·········
X

...............
SVC 7

•

• WAIT ON A NON- •

•

EXISTENT cee •

Appendix H. Detailed Flowcharts

681

Chart VL.

TSTNUM, CONVRT, and UPDATE Subroutines MAINTA;
Refer to Maintenance, Chart 43

.. •••• Al . . . . . . . . . ..

...............
TSTNUH

...... A3 . . . . . . . . . ..

CONYRT

:

X

TSTNUM

.. e.

Bl

CONVRT

-.

-. *. YES
• _ .*
CHARIS LESS
*. THAN 0
._ .......

*. e.

.*

63

...x
FLO

-.

• •••• AS ••••••••••

..

UPDATE

._ .-

-..-

-. .- .....x .
·····C3.·..•·..•.
·................."

...

-.

IS

:

X

*. *.

..
YESX

-.CHAR GREATER ••••••
*. THAN 0 .. "
e
* ••••
... : ....

NO·

:

1

..

CONVERT

..

•

FLO FROM
COil TO

..

C5

••

••

• •• *"

.o •

·YES

:

."."

·.··01··...·...

.*03 IS

RETURN TO
lINK ADOR

-.

NO .e AllOe CI

••••••

e.

_.

LIB FLAG

•• ON, *F2 .. "

*.

...

•e

••
••

.-

.-

* ••
-YES

E3

...

- •

REFER TO

NOTE *A5 ON

-. ..
MADE

*.

._

YES .....

.X...... •••• •••• ••••

•

UPDATE AODR
TO STORE
AlLoe FOR

G3··· ••
•• IS
••
NO •• ALLOe RL ••
••• •••
FLAG ON
••
••
.F2
.+

.. ..
•• • YES

ceo ERR··

X

•

....
....:............. x:
"•

••

"NO

·····J3··········
X

U~8A~io~~OR

:
•

·..................
........
ALLOC FOR
RELOC LIB

MVAlDC
X
: •••• J4 ..........
•
•

+.:

STORE
ALLOCATION

DOS System Control

•

.................
""

X

•

X

TF

X

• ••• K4.· •••••••
RETURN TO
LINK AODR

X

····Gs·········

·
•

..

.X ............. ..

.............

••
RL
•• YES
•
•• ALLOCAT ION . . . . . . . . . . . . . . . . . . . x.
••
MADE
••

:.•......•. x:

•

MSG

CANCEL

"

x

••••

3M2l!

• 2

.. ... ..
.... ....

"2

.+.

COL

E RRRTN

RE TURN TO
LINK ADDR

"

:
•

.+

......
F5···········
··-·-·OSPlY·-·-··

····F4.· ••••.•.

..

RELOe LI B

SLiS

YES
. . . . . ..

-NO

i

H3

*".

72 BLANK

• 1

.•... F3··········
.................
·
•

.. .. .-

..
-. .. .... .. .· ..

•

YES
••••••

:........... x:
NXTL

.". *".

PAST
COL 72

E!;.

*.

• NO

CHART VA

0:>

• .o

e ... "

.F2

."

"NO

eI LI B
AlLOCATIO..,

*. *.

682

.-.;(/

•• COL 72 ••
NO.. OF CTKL ••
•••••••• ••••••••••••
STHNT
.*
•• REACHED .*

HEX

X

..

1

•

:.•~!:~.;!:~! ...:

-YES

:

Cl

X

•
INCREMENT
•
INPUT ADDR
• PNTR TO NEXT
•
LOe OF

e •• _

·NO

• _ •-

·····a!)·····.·.··

UPDATE
-.

.* TO BE *. NO
*. CONVERTED ...... ..
*.
.-

svc

b

CANCEL JOb

•

Chart VM.

Update Disk Address and Copy Label Track
Subroutines MAINTAi Refer to Maintenance, Chart
43

......
: 4

:

'A3

IF A FALSE NO RECORD FOUND
WITH ND DTHER ERROR CONDI-

16~~S O~H~~~D B~~~~S O~~U~~E

·................
·
• •••• A1 •••••••••

•

TKeD"p

: 2

• •••• AS ••••••••••

1ST TRACK OF THE LABEL

·.....

•

CYL INDER WILL BE LOST ..
THE PROBABILITY OF A

."

FALSE NRF WITH NO QUAL-

:

:..•....•........•...•.•. x:

X

TKeDMP

X

COPYLB

•••
81

COPYL8

IFYING ERRORS IS REMOTE •

····.·BS···········

-•

• * IS *.
..X
• * INDICATOR *. YES
*. SET TO SUB .. * ............................. ..
*. a. DSPLT ._ ••

•

SVC 0 READ A

• BLK OF LABEL

•

a •• _

'NO

x

SUBl1

: •••• C1 ••••••••• :
•
•
:

AOo
OISPlACEHENT
TO TRACK tNT

...

•:*

•
•
:

.................
·....
....' .
:

1

COMPA 1

WOO

.'.x

*.

..

X

CS··· ••

e.

IS GT
DSPLT
.:.~?
9
._

a.

.............. .

oo •• oo ..........

..

YES •• NO RECORD ••
FOUND pas T ED ••
•• IN CCB
oo.

OO • • • • • •

• • • A3 ••

...

·oo ••

* ••
·'YES

'NO

: •••

ic
······02·········...

01 .a ....

•*
-.
*..* IS SUM GT 9 *..a NO
.....
*.
.*
*. * •• *.*
X
-YES

X

•

:

x

·
.
.................
..:...
: •••• Fl ••••••••• :

.. ADO 1 TO C YL

•

:

:

NO.

:

1

:

SUB 1 FRaM~
eYL NO.

•
•

oo.

.. ..
X

03

•••

RTRN

.oo

•• NO

•• IS DSPLT Gl ••••••

....

•• TRACK eNT ••

·oo

••••

·. ····El··········.
.................
SUB 10 FROM
TRACK on

•
•

COHPA2

·· ..
• 3

•
:

C2

••

X

x

• •••• 04 ............. .
..

•••••• 05.· •••••••••

................
RETURN TO
LINK ADDR

SVc. 0 WRITE A
.BLK OF LABELS.

·YEe;

•

X

·
.
.·................
x
··....
......

ic

•••• .. E2··········

: •••• E3 ••••••••• :

•
SUB 10 FROM
• 01 SPLACEMENT

:
•

• 2

•
•

3

•

·

.
.................
x
··......
•
•
•

INC.REMENT
BLK NO. IN
DISK

• 4

•

•
•
..

•

ADD 10 TO
TRACK CNT

·......
•

SUB 1 FROM
CYL NO.

x

: •••• ES ••••••••• :

•

:xoo ••••••••• :
SUBIT2

X

·
.
.................
: •••• G3 ••••••••• :

• SUB DSPLT FROM •

:

TRACK CNT

:

: ••••••••••• oo ........ oo ••• oox:
TKRETN

i

: •••• H3 ••••••••• :
STORE THE
UPDATED
01 SK AODR

x

• •••• J3 ••••••••••
•

RETURN TO

•••• ~1~~.e22~ ••• •

AFpendix H. Detailed Flowcharts

683

Initialize to Condense a Library MAINTCN; Refer
to Maintenance, Chart 44

Chart VN.

.....
.

· .
****

• VR ..

·

.8~.

• 1

'A2

..----AI

*********

MAl NTCN

SWBYTE
-PROGRAM SWITCH
BITQ,X'aO'-CI LIBRARY IS
CONDENSED.
BIT7,X'Ol'-SS LIBRARY IS
BEING CONOENSED.

.

*.*·A4·········
CNDCl

*** ••••••••••••

..... 81·······

: ......................... x:x •••••••••••••••••••••••• :
x

X

..

TURN OFF

-B5
.. *.
MPS
B4
*•
.* NEW *.
.*
St,JPVR
*. YES
*. CATALOGED . . . . . ..
*.
.*
*.
.*
it
* ••
*NO

CNoel

..

.. ALL SW ITCHE.S. ..
..
IN SWBYTE
..
*A2

TESTS

......

*•• *** •••••• **.

·VR •
• F3·

* -

.*.* CONTROL *.
YES
*. STATEMENT .* .....
*. OPERAND .. "
*. CL .*
x
* ...
••• *
'ND

.
:

.····C4·····.·
..

svc

.....

:•••• ~2~;~~ ••••

*VR ..
.. C3-

* -

1

:x ........... .

.-.x

04
*.
.* ATTN *..
•
.* ACTIVE
TASK
*.• *xYES.
•••
*85
.*

.. ..
* •••

* ••
*
*NO

El·*· ••

-C5
IF OISASTER ERROR OCCURS
IN PIoes, DISPLAY MESSAGE
3M7DA POTENT! Al OISASTER.
SYSTEM SHOULD BE RESTORED.
A WAIT IS ISSUED ON A
NONEXISTENT CCB.

13 PRE-.

_VENT ATTENTION-

*1 NTERRUPT. TURN.
•
ON BI T6 OF •

01
*.
.* CONTROL *. *. YES
..
*.. STATEMENT .* ........................................... x •
•• OPERAND ••
*. RL ••

••

*
TESTUA

X

C1·*·

*

-NO

*•

.. * CONTROL •• YES
••
STATEMENT ••••••
* .. OPERAND .. *
.o.
Sl
.. *
* ••
*
-NO

CNDRl
X
·*···E3*·***···*·
• AL T t:R BYT E l
•
• OF CCB TO NOT *
•
ACCEPT
•
Dl SASTER

•

o. • • • • • • • • • • •

x.

.'.x *.

••

*.

: •••• ~~~2~~.* ••• *

E4
.* ORFl

••

F2

*85

•

X

*. ••

ATTACHED

*.

•

- -

- 2

... -

.*

.*

..

·····E5···*···*··

::~2~2-.-.-.-~!:

YES

* ......

-NO

UPDATE
OISK

•••••
*VR ..

: •••• !~2~~~~ •••••

.. 85-

* *

......
Fl···········
.-.-.-.-.-*-.-.-.
X

ERRRTN

TF

DISPLAY
MESSAGE
3M21 I

•• * ••••••••••

.....x
• VR •
• Jl·

-

* *
RESTNA

CNOSl

Fl··········
X

.*
• •••
ALTER
•

BYTE l

•

OF eCB TO NOT •

.................
•
•
•

ACCEPT
01 SASTER
ERRORS

•
•
•

X
·····G2··········
.-................
•
INIHALlIE
•
TO CONDENSE
• SL DIRECTORY
•
ANa S5 LIB

•

X

·.···F3*·········
• INITIALIZE TO •
• CONDENSE RELOC •
•
DIRECTORY
*
AND
•
•
RELOC LIB
•

·····G3··········
X

:!~~~:~-.-.-.-~~:

*

•

RESET RELOC
LIB CONDS

X

IOOISK

..............
.-

·vP
*
• Bl··
MAicON

:

·.···.J4.···
....·.·
.-.-.-.-.-.-.-.-.

X

.....

: x•••••••••••• :
i

si~~C~~RI~~'

:

·····Jl···*···
•
TURN ON 55 •
LIB IS
•
CONDENSED
•
SWITeH IN •
• SWBYTE
.A2 •

o. . . . . . . . . . . . . . . . . . . . . . . .

••
•

•
BUILD CCW
•
_CHAIN TO WRITE, •

..................

•

VS

WRI TE BLANK
RECORD IN •

••• ~~2;2!~ •••

o..o..o.o. :

X
·····K4••••..•

• CHANGE 5 WI TCH
•
AT IeRNOP •
•
TO BRANCH
•
ENTRY NOT •

: •• !~S~~~~~!~2·

......x .
*

684

DOS System Control

F5

.-.X *.

-•

NO
ALL
*•
........ -SUB-OJ RECTORI ES*
*. BLANK .. "

ic
·····G4··········
.................•* MaVE BLANKS
• TO DIRECTORY
•
BUFFER

·····H4··········
.................

• RESET SS LIB
•
• CONDS REQUEST.
• FLAG
.Jl •

.*
.. "

*.

* •••

.•

·YES

NXTTRA

VS.

:x ...
x

*

•

:~~~~~~!.~~2.:~!:

. ·HZ·········*
.·•·-.-.-.-.-.-.-.-.
*J1
REFER TO NOTE .H4
ON CHART VR.

·····F4··········
• ALTER eCB TO •
• ACCEPT 01 SASTER •
*
ERRORS
•
*C5

• * •••••••••••••••

X

.TRNCFF

CANNOT

X

2

X

.····G5······.···

•
INITIALIZE
•
•
TO CONDENSE •
• CI DIRECTORY •
:AND CI LIBRARY:

.................
X
·····HS·
. ·•••··••
:!~2~~-.-.-.-~~:

.................
•
RESET C1
•
• CONoS REQUEST.
.FLAG
.Jl •

X

·····J5·······
•
TURN ON CI •
•
LIBRARY)S •
•
CONDENSED
•
•
SWITCH IN •

: •• ;~2!!; •• :!~*

.....x
.vP •

•• B~.

*
HAICON

Chart VP.

Condense a Directory MAINTCNi Refer to
Maintenance, Chart 44
**
*

****

1

*

A4 "*oo

*VN-J2tJ5

* ••••

*

• * .* DELETED * • *. NO
*.
ENTRY
.. * .................. ..
*.
*.
.*
* ...
*
*YES

.

*

* *

X

MAl COI'l

......
·.62***·· ..
IODISK

··**-

X

**.*·84·*****.
SET GAP-I N *
DIRECTORY *
01 SCOVEREO
*
INDICATOR.

*
*
*
*

vs

*-*-*-*-*-*-*-*-+
READ SYSTf:M
01 RECTORY

: ......................... .oX:
....

*.
***.
*

3

.*

C2

• *.
ANY

*.

DEL ETED

ENTRI

*

*.

E~

NO

•*

•

* ••••

.....

+ •• -

.YES

INCRID
i
**··*C4*.********
*[CRDAD
VT*
*-*-*-*-jlt-*-.-*-*
* UPDATI! DI SK •
*ADDR FOR INPUT.
*FROM DIRECTORY.
* ••••• * •• **.*****

MVREC
X
** ***C5**· * ...... **

**

MOVE ENTRY

* TO DIRECTORY

:

*
*

OUTPUT BUFFER:

**.**.*.*** •• ****

*VR ...
.. Jl*

* *

X

·.··.02······.···

...

INITIALIZE

X

*BUFFER ADDRESS *
NEXT ENTRY'"

MVREC1
X
**···05···"'*·"'·*·
•
INCREMENT
*
•
DIR OUTPUT
*
*BUFFER ADDRESS •
.TO POSITION OF •

*******.**** .... ** ....*

** ••• *** •• *. * .**.

**·**D4**********
*
INCREMENT
•
*
OIR INPUT
*

...

5T AR TI NG
ADDRESS OF

...

R[S* iNA

...

* TO

... DJ RECTORY AND ..
...
LIBRARY
...

...... * •••••• ** ••••

*

NEXT ENTRY

*

: .....•........•........ oX:
X

. ····EZ· . •···••·•

ROO I R

*CHGCCW

CHBLNK

Vi.
-II-

ccw

TO READ

E4 •••••

YES .... ··END OF * •••
• ••••
DIRECTORY
••
BLOCK

• -*-*-*-*-+-+-*-*
PRE PARE

..

:.* •• ~r~ .~;~ _....:

*.

....

x

•

•

2

•
•

UPDATE DISK

ADDRESS FOR

•

:.~~!~~r.r~*~!~ ... :

x

*
*
*

.. _ ••• *F2 .......... * _. i t .
IOOISK
vs

....

:!S~2~~-._*_*_~!:

*NO

•* 3

*

.*

X

*··**ES.·······**

*-4-*-4-*-*-+-*-+
READ

* •• *
2

•

MODHR

X

•• **.F5**··***""·
GET OLD
•
ADDRESS OF
•
.. LI BRARY FROM

...

*DIRECTORY ENTRY ..

01 RECTOR Y
BLOCK

• ••• * ....... ...

•

*
*

x

* ... **
*VQ *
* A2*
*
ROLIB

X
··*"'*G2* ******* ••
...
IMTIALIZE
...
... TO 1 ST EtHRY

... OF DIRECTORY
.. INPUT BUFFER

..
...

*
.............
*** ....*

:

•• 0

••••••••• 0

•••••••••••

LHAST

x:x

....

HZ
*•
.. '" LAST
*•
• * ENTRY IN

01 RECTORy

* ...
*
*NO

.

x

****

*

.*

YES
.......... ..

:;
*****
*VR *
* B1*

* *

*
ENOROU

1

Appenrtix H. Detailed Flowcharts

685

Chart VQ.

Condense a Library MAINTCN; Refer to Maintenance,
Chart 44
Ii .. Jill.

- -

4

_

*VP ...
-IIF5*

II

- •

*

... 1

.............. x.

ROll B
X
****·A2*******
II
INDICATE THAT
...
WRITE
*
* MAY CYLINDER II
..

OVERFLOW

*.

II

* •• Ji • • • • • * ••• *Ji

A4·*·
CI
*.
LIBRARY *. NO
CONDENSED • * ••••

.*

-.

••

*.

* •• *

.*

*YES

·

-.

82
Ii •
• *REMNDR

Ji.

YES •• OF LIBRARY

••••.•.•••..•• ..•. *.

LESS

THAN

1 TRACK ..

Ii.

*.

Ii . . .

*

*.

.*

YES

.*

• ..... oO ........ oO.............

-II-

..'"

*.

TRANSI ENT
.....
PHASE .*

*.

-NO

...

X

: BLOCCh'

*****Cl**********
STORE BLKS

II

THAT REMA IN
TO BE

..
..

WRI TTEN

.. II

***C2* •• I i . " " ,

*CHGCCW

*

if

TO READ

.* .

IMUP

C3
....
• *END OF *.
.* DIRECTORY *. NO
*. OUTPUT BLK oO* ••••

VT.

PREPARE CCWS

*.

...

LI BRARY TRACK ...

• • • liJiIi • •

*

:x.oO ........... :

.if.

*-Ji-Ji-Ji-Ji-Ji-*-Ji-*
II

•

*NO

............ x:
X

NTATRK

$$

*oO • *

C4
*.
.*END OF * •
.* DIRECTORY *. NO
*. OUTPUT BLK .* ..•.

*.

x

lili*. l i l i * l i *

.*.x

CHOEOB

.. *

* ... * ... *

****

**
*

2

*VP *
C4*

•-

*

-

I i . * •• *Ji.
IODISK
VS
*-Ji-*-Ji-*-Ji-*-Ji-*

*
*
*

*Ii*.
3

.*

*

*.

*************

TO BUI LO CCWS

*.

.*

OENSED

*.

*. oO*
"'YES

X
MVSlCN
*·***E4·**.******
* MOVE 'DOFF' *
*
TO END OF
... SS LIBRARY
BLOCK

X

*****E2* ...... ****-11
* INITIALIZE
*
II

04 .. *.
SS

.* LIBRARY *. NO
*. BEING CON- .* ....

READ 1
LIBRARY
TRACK

*
*

• *

*
INCRID

x
*lili** *02* **

-Ii

TO WRITE

LI BRARIE.:S

>

:...................................... x:
MVECHN
II • •
II

: . . . . . . . . . . . . . . . . . . . . . . . . . . oo . . . . . .

x:x •••• oOoO •••• :

GOWRTl
X
*****F4*********'"

X

**F2" * ..... ** * ••
BUI LO CCWS
*

...
INITIALIZE
*
...
DIRECTORY
*
... OUTPUT BUFFER ...

.

TO WRITE
UP TO ONE
LI BRARY
TRACK
*************** ... *

-

:xoO .....

.*ENTIRE *oO
PHASE
*. NO
CONDENSED
.*oO
*oo

.*

.oOoO . . . . . .

*~~~~~~-*-*-*-~~*
WRI TE CONDENSED
* DIRECTORY *

oO • • • • oO • • • •

BLOCK
******** .. ****

*YES

*****
*VP *
* C4*

x

NO.*

.... *.

H2

• >.

*.

ANY
*.
GAP IN
OIRECTORY

•*

oOoO . . . oO • • •

WIRTDR
X
******G4 ... * ... ** ******

G2 • *. ....

.. .•*

* •

.*

*.

*.

*. NO

TRACK
FULL

.*

.* ..................... ..

* ••
*
*YES

x

**** **J 2***** ******
IODISK
VS
*-*-*-*-*-*-*-*-*
WRITE UP TO l'
* TRACK OF
*
LIBRARY
*************

:............. x:
X

*****K2* **** *****
*
RES TORE
*
*REGISTERS WITH *
* PCINTERS TO *
*INPUT AND OUT- *
*PUT DIR BUFFERS*
* ******* **** *****

.*. *.
J3
.* GAPANYIN *. *. NO
DIRECTORY
.* •••.
*.
.*
*. * •. *
X
*YES
****
** 4 >•
* **** *

INCRIL
X
*****J4*********of"
..
INCREMENT
*
*
TO MOVE
*
NEXT CCW
STRING

oO*

x

*** .**K 3***********
IODISK
VS
*-*-*-*-*-*-*-*-*
WRITE UP TO 1
* TRACK OF
*
LIBRARY
****-********

x

****

** 1
*

686

DOS System Control

2

x

**
*

** ... *
4

*•
*

.

*****************

•
:

*
3

:

oo . . . . . . .

oO . . . .

oO .. :

Chart. VR.

Automatic Condense MAINTCNi Refer to Maintenance,
Chart 44

--

- 1
_A4
FROM MAINT
PHASE WHEN AN
AUTO-CONDENSE
IS NECESSARY.

****A3****·· ... **

-

-- ......

*VP ..
.. H2-

X

MOVE LAST'"

.-

..

.. OUTPUT BUFFER ...

...

•*

.*. *. *.

S5

.*

.... NO

•• LIBRARY BEI~G ....... .
".CONDENSED.-

*..

* -

.•

C3

.*. *. *.

RElOC

*·*··B5"'***"'**
•

SVC 12 RESET.
BIT 6 OF 2ND ...
*JOB CTRl SW TO •
•
ACCEPT ATT
*
* INTERRUPTS *

*

*.***.* ... * •• **

X
*.

••

•• REQUEST .*
.... ·H4 ••

.........
-NO

.*

C5··· ••

*•

................... ~~~.:.•• co~gI2sE
": ..
REQUEST ••

YES

*.LIB CONDENSE ••••••

* • ·YES
.o-

X

CANNOT

63·*· *.
.*
CI
.... YES
•• LIB CONDENSE ••••••
*. REQUEST .*
..... H4 .*
* ••
*
-NO

...

ENTR Y TO
DIRECTORY

C1

"'VN ...

:........................ x:x

-· . ··e1·-········
-......................

* ......
* E4"

--

ENDROU

*

AuraCN

... *** •• :!~* .... **.

* •• H4 .*
* ...
*
-NO

.* ....

·YN ..

•• E;*

X

MVSLCO
o

_

CONSTANT TO

..

••

...

DIRECTORY

o
CNDRL
FTCHHE

••

it

: .. ~~l~~!.~~~~~~.:

4 ••

.......x

*

-NO

·VN •

:x ............ :

0

YES ...

*-·WRITE*LAsj-*-*

*.

...

BLOCK

*

.-··.·Fl··········X

IN SYSTEM
DIRECTORY

* ............ * ........... . -

BUFFER

...

.·.··Cl··········
: SEX~c~~I~rl, ...
...

•• * ••••••••••••••

SW t

X'40'
*H4

•
•

•*

x

F3

.* • ....

FTCHME

• ... ··F4 .......... ...

AUTO
•• YES
...
SVC 1
...
...
CONDENSE
•••••••••• X*FETCH $HAINEOJ ...
... REQUEST ••
...
CHART TA
•

....

.... *H4 ••

• ....................... **

.*** •••• * •• *.* ...

-NO

X

AND VERIFY

i

FTCHHA

..

:BUILD CCW CHAIN:

* •••••

* ••B4*
*
TESTAU

..

..................
..

... ···E5 ... ••• ... ••• ...

•
NEWRD MAINT
•
....PHASE CHART T A ..

....

REQUEST .. '"
..... H4 .*

•

.......F2 ... ••• ...... ••••
- SVC 5 RESET ...*
...
• ALLOC REQUEST.

UPDATE FIELDS ..

...

X

*.
* ••
*
-NO

"'VN

...

•*

. . . . . . . . . . . . . . . . . . . . . . ALLOCATION

** •••••••••••

it

CNOSL

E3.*.

NOCNO

•••WRTEDR
.. ·*El*****· .. ••••
vs
DIRECTORY

.. DISPLAY
-.-... - .. - .. -*-*-*-*
MESSAGE
...
3M681
*

........ **** ........ **

* o F2·

X

GOwRT2

X
.* .....
·*05.·· .. • ...... ••
ERRRTN
TF

X

**··04 ........ * •

•
SVC 1
*
.FETCH SMAI NEOJ *
•
CHART TA
•

SS
*. YES
*.LIB CONDENSE .* ....
.... REQUEST ....
*. *H4 ...

.MOVE SS LIB EOF*

...

.-

03

•• .. • .. 01· ... •••• .. •• ..

.0.x

X
*.....G2· ........ *

..
SYC 1
.. FETCH MAINTA

•

CHART VA

.. .........** .... * ••• *

*

*
*

....

G3

.0. ...
NEW"'. NO

..

.... SUPERVISOR
.* •••••••. X.
•• CATALOGED.'"
•

......
...

.....

*.*.G4.·* ......... .
ENTMAI
MAINT PHASE
CHART TA
•

... ......................* ... .

·YES

*H4

······HI···········
.............
X

ILlEC

..... **··H3 ..... ••• .. ··*··

*!~~!:!-.-.-.-~:.
..

..

WRI TE UPDATED
SYSTEM

DIRECTORY

VN-Fl" ....
VP-C2........

..~:~~!~-.-.-.-!:.
DISPLAY MESSAGE

..

•

3M691

•

DISPLACEMENT 22 IN THE
COMMUNICATIONS REGION
IS USED BY MAINTENANCE
PHASES TO PASS THIS
INFORMATION
CN
CI LIBRARY
X'OS' '"
RE LOC U BRAR Y
X'04'

SS LI BRARY
X '02' =
X'40' = SYSTEM REALLOCATION
IS REQUESTED,

FETCH

MAINTA AFTER CONDENSE.

X '20' = AUTO-CONDENSE

.. ....

REQUEST WAS MADE
BY $MAINEOJ

..

RESTNA
x
:" ••• Jl •••• " •••
RE SET ALL •
SWITCHES IN •
SWBYTE

X

•
•

•

. *··.
...................
X

• ..... J 3 •• *"' •• *.*
NEWRD
*
MAINT PHASE
•

..

* ••• ~~e:! !~* .... *'"

*K2
* ..................
.•

...

X

_K2
REFER TO NOTE "'A2
ON CHART VN

Kl .......... ...

SVC 12 RESET-

... BIT 6 OF 2ND •

• JOB CTRL SW TO •
ACCEPT ATT ...
INTERRUPTS ..

•

...

x

* •••

-....:

1

:

Appendix H. Detailed Flowcharts

687

Chart VS.

4 .......

*

VERILI, IODISK, and WRTEDR Subroutines
Refer to Maintenance, Chart 44

..

Bl •••••••••

.. ***83*****·**-

TRNOFF

IODISK

MAINTCN~

.

.. ** *85* ** ** ****
*

........ * .... - ******

TRNOFF

X

..

GET DSPL T
22 OF COMI'I1
REG ION

_.-c

lOO:::SK

*.*.*C 1" ** .... ** .....

.. **

*
*

WRTEDR

********* **** **

•

WRTEOR
X
*****C5 *-* ** *****
*CHGCCW
VT*
*-*-*-*-*-4--*-*-44CHANGE
*
* CCWS TO WRITE *

X

3*********.*
SVC 0
EXCP

*G1

•

*

**********4-******

x

X

**
... ** 0 1" ** ** .***11
-RESET SPECIFIED..
CONDENSE:
..
.. REQUEST FLAGS t!...

*Gl

*****05 * ** **** ***
* SET CCW'S TO *
:WRItyc, S~~~CHI :
*
VERIfY
*

..

*

*

** ******** ** *****

E3···

X

****El*********
RETURN

** *** *** *********

TO

LINK ADDR

..

*E2
REFER TO NOTE
*C5 ON

CHART VN

.* .. "DISASTER *- *. NO
*.
ERROR
..................... .
*E2
.*
*. * ••• .*

•*

*.

·YES

DISFRR

X

.. *.ERRRTN
** ... F 3**********.
TF
*-*-*-*-*-*-*-*-*
DSPLY MSG
3M70A

*G1
REFER TO NOTe *H4
CHAR T VN

.*.x * •

ANY
*.
GAPS IN *. YES
DIRECTORY
.* ....

*.

* •.
*
-NO

.*

.*

x

* * - ** *F5 ***** ******
[OO[$K
VS
*-4--4--4--4--*-*-*-*
WRITE DIR, 1
*
TRACK

x

.. WAIT ON NON... E:XISTENT eGa

***************

DOS System Control

E5

:x .......... :
DSfI.ES

.. ... ***G 3***
svc ******
7
..

688

X

**"'*F4*********
RE TURN TO
LI NK AODR

•*

*

..

x

*

****G5*********
RETURN TO
*
LI NK AOOR

Chart VT.

CHGCCW and ICRDAD Subroutines MAINTCN; Refer to
Maintenance, Chart 44

.. •••• AI ......... ..

• •••• A:; ••••••••••

...............

:

~ccw

:

..

x

..............
..

....
·..... .

• ADDRESS FROM

A NOP

•

:.~~~~!~~.;;2; •• :

ICRNOP

BRANCH..
••• •••

..

...

••

C3

•••

••

ENTRY
NOT INCR

..

.. ......
sw

••

••

·NOP

0

* •••

• 1

.....01··········

CHGON
..

:cNT~~~SD~§~ORDS:

X

..
RESTORE
..
.. POSSIBLE CVL.*
..
OVERFLOW SW
..
.. AT MDODFL TO ..

:.~!~~!~~.~;~: •• :
•

• GET NUMBER OF •

..

.....(2·······

..

• ReDS AND AOOR ..
-OF BUFFER FROM ..

•

SEQUENCE TO

X

ICRDAD

..
..

: ••• ~~~!.~~~ •••• :

: •••• Cl ••••••••• :
GET NO. OF

·.·.·83··········

X

·
.
.................

•

:

..
HOVE FLAG
.. FROM CALLING

LOAD AODR
OF 1ST (tw

..

2

··.···62··········.

CHGCCW
X
: •••• 81 ••••••••• :
•
..

1 CRDAD

. .

X

INCREMENT

.·.·02·········
·................
X

•

_ADDRESS PotNTER..
TO NEXT CCV
..

IN STRING

..

....
03···..

••

•
BRANCH TO
•
• LINK AOORESS+8 •

NO

.. ..
ENTRIES

••

.

.
.

• •••• 04 ••••••••••

MAX

••

REACHED ••

•

•••••••••• X.

•

• •• *

INCREASE
READ COUNT
BY 1

•••••

.................. .

• YES

·····EI··········
:~E~~;S[EN~~~ I~o:
.................
X

... MOVE COMMAND
.. CODE
BUFFER

..
..

..

..

(tW

.....Fl·······

:CH2

·

• RESET ENTRIES •
-+ cown TO ZERO •

SET CVL

..

OVERFLOW

F3

..

·...............

••

Gl

•••

.
.
.................

CH3

CHKOFL

••

• •••• G2 ••••••••••

•• POSS ISLE

•• BRANCH
•
INCREMENT
•
••
CYLINDER
•••••••••• x. LIBRARY INPUT.
•• OVERFLOW ••
• DI SK ADDRESS
•

•• sw

••

•

·NOP

•

•

• 3

oo·

••

LAST

ccw

Jl

x

TO 1

it

BUILT

•• NO

o'

••••••

· .
·

.. ..
.. .. ........

oo • •

••

•• SWITCH

••

.YES

x

BY 3 CCWS

i

·····K2·.·····

•

•
•

•
•

X........... :

. .
• 2

•

•
~OVE NEW
•
• SEEK ADDRESS •
.AND MOVE SE EK •
'SEARCH., AND ric •

.

••••• K 1••••••••••
DECREMENT
ADDR POINTER

·····J2··········
X

i

•
•
•

CHANGE
CYLINDER
•
OVERFlOW SW •
AT MON TO A •

..............
··......
NOP

•

MAX

: •••• H4 ••••••••• :

•• NO

•

•• HEAD NUMBER ........... X.
• oo

·· ..
••••

• 3

:==~;. !~.;r~ !~~.:

·NOP

H3 •••••••

••••

•• CYLINDER •• NO
••
OVERFLOW.· ••••

••••

•• CYll~DER •• BRANCH
••
OVERFLOW.· ••••

•

......

RESET
RCD COUNT

HZ··· ••

.. ..
.... ....

•
•

BY 1

·••.•• G3····· .••••.

•

• 1

·

•

0

• YES

MDN

:

.................

.. ..

REACHED ••
••
.-+

•• oooo

SKIPWR·· H1 ••• ••
••

• •••• F't .......... • ••

·YES

X

....
.. ..
· .
.. .. .. ..

...

• ... ·MAXIMUM·· •• NO
:
INCREASE
••
RECORDS
•••••••••• x. RECORD COUNT

..

.. AT LABel MON
..
TO A BRANCH ..
..

MODOFL

.

:.......... x:x

X

..

i

: •••• E:; .......... :

....

REACHED ••

'0

•

•

BY 1

•
..... .

-YES

•

CH4

INCREASE
HEAD NUMBER

: ............... x:
i
·····J3··········
...

•
•

RESET HEAD
CGUNT TO 0,

•

BY 1,

•

.................
INCREASE
CYL INDER

.." .

······Js·······
.••
•

1 CREND
•

X

RESt::T S~ITCH •

~b iC~~~P

X
••••RETURN
KS· .. •••••••
TG
•
LINK ADDR
•
PLUS I;)

...............

i

• 3

•

Appendix H. Detai+ed Flowcharts

689

Chart

vu.

Set Condense Limits MAINTCL; Refer to
Maintenance.. Chart 45

....
.....-

··....
......
• 1

GENPRO

:····=liN;cL····:

•

o

_

- 2

-

X

A4

•••

••

•

.Li"J~O~~lEEDs.

-...............
.
-

••

-.-. .. .....S CHARS

YES
:
•••••••••••••••••• x.

_NO

AOO~~GINN

-B3
CHECKS ARE MADE
E~~UV~E THAT
CHkRACTERS OF
THE CONOENSE
LIMIT I/PI EBIOICI
ARE PlUMBERlC.
11110000 TO 11111001.

Ie

X

••••• 81·· ••• • ••• •

..
•
'.
:

SAVE REGS
2-15 USED
BY "AtNT
PHASE

•

.................

.

....

·YES

x
·····C. ····•··•··

·····e1··········
:-*-lif-;Or.*-*-:
129 •
X

*FRSTCH

x
.'

Bit
••
•
•• ALL ••
•• CONOS liMn •• NO
x
•• CHARACTERS • _ ••••••••••••••••••
•• NUMERIC ••
•• ·03 ••

.PACK THE: CONDS •
•
LIMIT AND
•
•
CONVERT TO
:
BINARY

Te.

.................

.................

.'.x

.·····olt···.·.·····
.....::;.....

_ LINGTH III'

•

LIB 10

01
.-

-ca .•

X

w.

oo*

NO
WOO Woo OPERANDS

READ REQUIRED
SYSTEM
DIRECTORY
RECORD

Woo

_. YES
. _ .woo ....

·....

*oo e • • _ .*
'PlO

'* ....
.
.. ...... X

·-i

QPRPRS

.woo

EI

*.

*.
..
.* .*
DELIMITER WOO VESX ..
IS A BLANK •••••• X.

WOO

*.

*.

-..-

.*

.*

E4

2

.'.x

..... -..

..

....

.NO

"3
RECORD 1 FOR C I Ll &
RECORD 2 FOR RELOC LIB
RECORD 3 FOR SS LJ &

..•..Fl·····.····
:~~!2!~_._._._!::

i

ERRRTN

TF

OJ SPLAY
MESSAGE

•••• ;~~!~ .••.

··.·ES·········
ic

•
•

NEWRO
HAINT PHASE

•
•

•... S~~~~.!! .... •

i

·····F4··········

.. GeT POSITION ..
.. AND LENGTH Of ..

.................

X

·····GIt·.••x ····•·

:x .......•.. :

GI···..
PR~~~ . .G2 . . . . . . . . . .
• * LIMIT *.
.. MCVE RECORD ..
• * FOR Cl
*oo YES
.. NO.1 TO DISK ..
*oo
LIBRARY
.*oo • • • • • • • X.
ACORESS FOR Woo . . . .
*oo
.*
..
SYSTEM
..
*oo.*
..
OJ RECTORY
..
*oo .*
•••••••••••••••••
'NO

•
MOVE CONOS
.LIMIT TO OSPLT
• 51t OF SYSTEM
•
DIRECTORY

····.·HIt·.·.····.·•
X

WRITE
SYSTEM
DIRECTORY
RECORO

..... .....

.................

.. ..

'NO

::~

x

x

'NO

................. ....x
. -

:

:

1

J4 ..
.....
.. ..
•••

•••
PROCSL
J1
••
• •••• J2 ••••••••••
•• LIMIT ••
•
MOVE RECORD.
•
•• FOR SS
•• YES
• NO.3 TO DISK •
X
••
LIBRARY
•••••••••• X. ACORESS FOR •••••
••
••
•
SYSTEM
•
••
••
•
OJ RECTOR Y
•

.. ..
.....x .

•
•
•
•

:.~S2.~~.~:!~!!.:

.*oo
PROCRl
Hl
*oo
••••• HZ ••••••••••
•• LJMJT ••
•
MeVE RECORD •
•
•• FOR RELOC •• YES
• NO.2 TO 01 SK •
X
••
LIBRARY
•••••••••• X. ACORESS FOR •••••
••
••
•
SYSTEM
•
••••
•
OJ RECTORY
•

_NO

RESTORE
REGS 2-15
FOR MAINT
PHASE

-

:

X

·····K4··········
• GET POSITJON

•
• AND LENGTH OF •

:~~:!.~!~.!~!:~~:

· :

DOS System Control

...•·JS··········
...................

CRODNE

•• All ••
..
•• OPERANDS •• YES
•
•• PROCESSED •••••••••• X.
••
••
•

:~:!~!~-.-.-.-!::

690

•••.-.-.-.-.-.-.-.-.
·••05···.· ....•··

BLOPER.

•
THE CONDS
•
•
LIMIT SET
•
• WILL BE X'FFFF' •
: MAXIMUM VALUE:

: •• S2~~;.;!~!! •• :

2

•

·YES

ic

:

X

RESTORE
REGS 2-15
FOR MAINT
PHASE

••

•• CONOS ••
••
LIMIT
•• NO
••
EXCEEDS
••••••
•• X'FFFF' ••

..

···.·es···.······

•

3

:

....KS·········
X

•
•

NE~RO

MAl NT PHASE

•... ~~~~!.!~ ••••

..

Chart

w.

Print system status Report and Update
Subdirectories $MAINEOJ (Part 1 of 3); Refer to
Maintenance, Chart 45

..•.A2·········.
··...............
.
•

SMAJNEOJ

·.....

•

BEGINN
ic
: •••• 82 ••••••••• :

0

AUTO CONDENSE
WILL NOT BE
PERFORMED IN THE
CI LIBRARY IF

.-.

:

*. a • • _ .-YES

.•.x

x

• 0.

ez

oB5

ic

SUPVR WAS
84
*.
CAT AlOGED OR
.* .*C I LIB -. *. NO FOREGROUND PROGRAMS
a.BEING CHECKED.- ....... ARE PRESENTLY IN
_.
*as.*
.. OPERATION.

.................
MAINT

•

•

BRlfRL

-STORE REGISTERS• 2-15 USED BY •

:

• 1

-.

* • *. NO
• _• *
*. FETCHED BY • * ••••
*. CQRGZ ••
*. a • • * .-

.*"

VES

•••••

.....

CATALOGED .*85 ._ .-

a. a.

x

·YES

C4
-.
SUPVR WAS·- •

* ••
-NO-

*YW •

• • H~.

INCRPT

x

: •••• 02 ••••••••• :
•

eee

CHANGE

•

•*
*.

SO •

DIRECTORI ES

•

*.

-WILL BE WRITTEN-

: ••• ~~.~~~22~ ••• :

......EZ···········
REAO SYSTEM

.0.x *.

••

HUL TI*. NO
PROGRAM
.. * .......
SUPPORT ...

...

.- .. ..

a •• _
_ YES

E4

..• YES .* .*AIT

~

.VW •
• A2o 0
o

.'. * •

RlSL

-•

TASK -.
• •• X-. a.IS ATTACHED._ .-

•

DIRECTORY

04

.............. Xi

:x .••....•.. :

X

•

.*

a.

._

* ••
*
_NO

..•..F2··········
X

•

LOAD AODR OF

F4

•

.....
..

-aRCH TBl TO REG• 3 AND AD DR OF •

eNO. OF DELETED.

:.~~~~.!2.~~~.:.:

·Gl
THIS B-TRANSIENT
WILL SET A SWITCH
IN THE BACKGROUND
PIS TO ALLOW
WRITE ON SYSRES.

REFER TO CHART P5.

YES

-. *.
.* .*ATTACHED
F1 OR F2
...
*.
*85
.*
*.
.* ••
_NO

..... a.

.....
X

.vw •
•

.-.x * •

F4*

·YW •

• H2_
o

0

o

INCRPT

·.··GZ·········
X

.....x

.

·YW ..
.... A~.

RLSL

•
SYC 2
•
-FETCH $SBSYSWR •

•••••••::!:•••••••
oH3

COtMN

.-

x

EACH OF THE FIRST 3
SYSTEM DIRECTORY RECORDS

•

WltL BE CHECKED, ONE

.. eX ............... ..
H2
-.
._ANY DELETED-. NO

*.

*.

-.

BLOCKS

a.

_H3

.."

.-

AT A TIME.

RECORD 1 =
RECORD 2 =
.. * ....... RECORD 3 II
NOTE: AUTO

PERFORMED
ARE NO DEL

* ••
.YES

I LIB
LOC LIB
IB

NOT

IN THE LIB
IF THE CON

HAVE BEEN

.0.
ic

J2
*•
.. " AUTO·.
•
•• CONDENSE
•• NO X
tt.
LIMITS
.tt ••••
tt.SPEC1FIED.·
• • • H3 • *

•• • YES
o

....

• 1

•• a••

.

.VW •

••H!*

x

0

- -

INCRPT

0

Appendix H. Detailed Flowcharts

691

vw.

Chart

Print System status Report and Update
Subdirectories $MAINEOJ (Part 2 of 3); Refer to
Maintenance, Chart 45

oAl
VV-04. F<\

x

RLSL
: ....... 2 ••••••••• :

•

CLEAR PRJ NT

•

·..................
:

OUTPUT AREA

:

_B.
ADDRESSES ARE INCREMENTED
AT BLOCKS HZ AND J2 TO CHECK

x

.'.

B2
*.
... _84 *.

..•••.••.••...•. ~~.:.*. c~~2~~~E
REACHED
*.

·····Cl·······
X

BRTlB

...

... OREO IN COHM ...
:
REGNt *G3 ... '"

.....01··········
X

HOVE CONOS

CI LIB "'5G
TO PRINT
OUTPUT AREA

...

...

.................
o

··.··C3.·.....

~

·····e2·······

..............
...
...
...

.. '"

FOR ..RL

ENOTBL

Move X'28' ...

... TO ONSW TO BE-

...

-.. -

~?~gE~a~yL~~l~~D~~ l~~YSX~lEH

...

•

ENOTBL+12

...
MOVE )('Z4' ...
... TO ONSW TO BE-

..............
... OREa IN COMM

:

RECN t

..............

... DRE:G IN COHM ...
...
REGN, *G3 ... '"

...

*G3 ... '"

X

Move CONos

X

...

... RElOC 11 B ,",5G ...
...
TO PRINT
...
... OUTPUT AREA ...

.................
•

X

... MOVE X'22' ...
... TO ONSW TO Be-

··.··oz.···· ...·.

...

CHECKED IN THIS SEQUENCE I
1. CI LIB
2. RELOC LIB
3. SS LIB
'THE NUMBER OF AYAI LABLE BLOCKS
IN THE LIBRARY IS COMPARED TO
THE CONDENSE LIMITS.

.:.~~ .....•••••...•..

.... ........
03 .. CONOS
•••••• .. •
HOVE
.. SS LIB MSG
..
TO PRINT
.. OUTPUT AREA

..
..

•

0

..
•

....................

0

: ••••••••••••••••••• ~ ~ ••• X:X •••••••••••••••••••••••• :
TRNON
i
······E2···········
SVC 0
PRINT
MESSAGE
•
ON SYSLOG •

. .
o

0

• 1
.F1
YY-J2,C4,F4

.0.x

•
·····FZ··········

.. .
• Fl·

•

F4
••
•• ALL ••
•• LIB CONDS •• NO
•• LIMITS ARE ••••••
•• CHECKED ••

•
SET COf·ms
•
• REQUEST FLAGS.
• IN DSPL T 22 OF •
• COM" REGN FOR.

•. ··.YE;·

:.:!!~!~~:.:~; .. :

o •

·····Gz··.·· ..
X

• CHANGE SWI TCH
•
AT AUNOP
•
•
TO INDICATE •
• AUTO CONOS J S.

: ... ~~;~~~!~: ..

DISPLACEMENT 22 OF
THE COMMUNI CAT IONS
REGION IS USED TO
PASS AUTO CONDENSE
INFORMATION TO
MAINTCN.
X'OS' "" CONDENSE CI LIB
X'O~' : CONDENSE RELOC LIB
XIOZ' '" CONDENSE SS LIB
X' ZO' : FETCH SMAINfOJ
AFTER CONDENSE

x

AUNOP

G4

.·.·.HZ·····.····
X

•
•
•
•

INCREMENT
BRANCH ADDR
Te BE USED
AT BLOCK B2

•
•
•
•

.................
•

• Bit

•

:

.... ......:
~;~~:~

···.·K2.·•.•.•
X

• CHANGE SWI TCH
•
AT BRIFRL •
TO BYPASS
•
HPS TESTS ••

..............
.....x .
:

692

1

:

DOS System Control

••

.... .... ....
·YES

•

• ••• H4 •••••• •••
•
SYC 4
•
• LOAD MAINTCN •

.. •.••• :~!!~ ...... .

X

·····J2··········
•
INCREMENT
•
•
PCINTER TO
•
•
NEXT SYSTE" •
•
DIRECTORY
•

.'.

COLMN

•• AUTO ••
•• CONDENSE •• NO
••
NECESSARY ••••••

:..•.•.•.•.•.•.••••••.••• x:
INCRPT

•• ~ ••

·YV •
• HZ·
o •

oG3

X
•
•

• ••• J4.· •• •••••
SVC 1
•
FETCH MAINT •

· .. ~~!~;:.:::.....

0"EN TR Y TO

MA PH PHASE
IS AT LABEL AUTOEN,
CHART TA

.....
...

·YX •
• 81·

AUTONO

Print System Status Report and UtJdate
Subdirectories $l4AINEOJ (Part 3 of 3); Refer to
Naintenance, Chart 45

vx.

Chart

--

- 3

.....

• ** ••

- -

..
··***····

*vw ..

.. G4-

AurOND
ENTCOM

··*·. ·

ENDJCE :
NOWRT 1
X
....... A5· ••••
WRITE LAST
* TRANSIENT OIR *
BLOCK UNLESS
... SUPPRESSED •

:

1

:

..

NOWRT2
X
* **** ·B5* ••• * * **. **
WRITE LAST LIB
* RTN 01 RECTORY *
BLOCK UNLESS
* SUPPRESSED ..

x

·81 ...
...·* ....INITIALIZE

-..- -. ....

...

FGP

-REGS AND CLEAR ...

YES

ENTRY

... SUB-DIRECTORY"
...
BUFFERS

-e4

x

..... *
"VI *

-NO

---

* A2*

: x................... ..

X

······C1···········

BLGOON

WR ITE AND

$$ao

... VERI FY BLANK
BLOCK IN
5UB-

••

•• 2!~;~!~~! ••

·..··01*·········
UPDATE

..

0] SK

..................

.:.

ADORE S5

El

*.

BLANK

.-.*
* •• -

.* .......

.*

......
-- --

*.

1 OF SYSTEM

DIRECTORY

.<

.Oo

t::3

.'

......

* ....

•••••• G 1•••••••••••
READ BLOCK

FROM CI
DIRECTORY

- 1

-

NOWRT4
X
* ** ** .. 05* * ••• * **. *.
WRITE LAST
LIDCS OPEN
DIRECTORY
.BLOCK UNLESS ..
SUPPRESSED
****** •• *.* ...

•• YE;S
... Oo •••

.- .......x
·VY •
• A2"

.-. *.

ENTRY
*F4

* ••
*
_NO

--

-E4
LIBRARY ROUTINE

PROL IS

..*E5*··***·
*
SVC 2
•
* OPEN SYSlST *
*USING $$BOPEN, •
*~OGI CAL IOCS * *

.*

.**** •• ****

.** ...

X

F3

.-. ••

_F4

TRANSIENT

PR~TRA

SYSDIR
X
..****F5"***"*··***
READ ENTIRE
SYSTEM
01 RECTORY

END ••
OF CI
•• YES
DIRECTORY
.* ••••
*. SCAN
.*

-.

* ••
*
_NO

INCRTR

.- --

3

.*.

G3
*•
.. * END ••
YESOo*
OF CI
*.
....................... *.
DIRECTORY
.*
••
BLOCK
••

..

* •••

X

···**H2* .. ** .. **· .. •
.. UPDATE 01 SK ..
•
ADDRESS TO
•
•
READ NEXT
BLOCK

..

-

X

_G4

REFER TO FIGURE 7b
FOR AN EXAMPLE OF
THE SYSTEM STATUS
REPOR T. PRI NTI NG
I S DONE WITH A PUT
MACRO .. REFER TO
CHAR T5 TG AND TH
FOR THE PUT MACRO

* .. **.·G5* ....·***·**
PRINT SYSTEM
• STATUS REPORT ..
ON SYSLST
-G4

EXPANSION.

EOJROU
X
* ••• *H5******·
* RESET
SVC 12
BIT 7 *
* I N 2ND JOB
..
* CONTROL SW, •

INCRTT
X
"·***H3****"·*··*
•
INCREMENT
•
•
POINTER TO
•
.NEXT DIRECTORY.
ENTRY
•

-

:*~~~~.~~~~::~l

* ..................

....x

x

-•• *..
- - 2

-K1

THIS SWITCH IS
SET ON INITIAL
ENTRY TO MAINT TO
INDICATE TO
JOB CONTROL TO FElCH

5HAINEOJ WHEN A
1,& CONTROL CARD I S READ

--

-

X

DSERV

YES

-NO

-- --

LIoes OPEN

••

: ...........•.•.......... x:x

X

_D4

·VY •
.. A4*

...

-....- ..
- -

........
*VZ ..
.. A4*

$S

*.

NOWRT3
X
* •••• *C5*.* *.** * .. * ...
WRITE LAST FGP
•
01 RECTORY
BLOCK UNLESS
.. SUPPRESSED •

*
PRODP

ENfRY
*E4

• EZ"

......Fl·**.·······
READ RECORD

.-.x

* ••
*
 :
ANC REG9
•

X

• 3

·····E3··········
•
SET THE DIR •
.ANO LIB CURRENT.
• DISK ADDRESS •
·C2
•
•

:WRITIT
i:
······C5··········.

.~~!!~.-.-.-.-~~.
FORMAT, WRITE.
.1 CIR RECORD •

..2~.~!~22~ ••

•

it

······05···········
UPRITE
WN

·-·INcR-SEEKi-·-·
• SEARCH CNT

:22:~~~.~!.;_

...x

•• ES HAS •• _.
• NO •• LAST OIR ••
• ••••• BLOCK BEEN
••
WRI lTEN ••

.0 ..

......
·VES

X

•

• ••• FS·········
RETURN TO
•
CALLING

-••• ~~~~~~S~ •••••

..:

.-.
....

-H4

1.

• ••••H2..........
H3
••
.MOVE BLANK INTO.
•• HAS ••
•
1ST BYTE OF.
NO •• nus LIB ••
_olR STORE ACDR .X •••••••••• BEEN ALLoe ••
•
TO INC NO
•
••
.E2
••
•
ALLOCATION
•
••••

.................

• oiR STARTING •
• AooR CC PLUS •
• oIR CYL REQo EQ.
• LIB STARTING •

:~~!;~.-.-.-.-~~:

:x .......... :

:.!~~~.~~~~~~:

: •••••• :2~ •••••• :
X

··.·.C3··
.. •••••••
• OECR OIR
END •
.CC BY 1 AND SET.
•
REG6 EQ 9
•

X

..

X

.................

·····C3·····.····
•
COMPUTE ANO •
• STORE FIELDS •
• 8 AND 9 -L lB •
.TOTAL AND AVAIL.

:.:22!~!;~!!~~ ••:

_COMPUTE NUMBER ..

X

.-................-

X

••••• HI ••••••••••

X
·····85······ •• ••
•
INIT FOR
•
.FORMATTING THE.
• CIR FOR THIS •
Ll BRARY
•
•
•
.H4
•

X

.. STORE aIR END ..
.. AND LIB START ..
.. AOOR IN OPEA

SAVE LINK
REG,REG12

·····C4··········

••••• F3··········
•
ZERO FIELDS •
7-11 OF SYS •
•
OIR RECORD
•
•
.-BLOCK COUNTS- •

..

..
..
..

·····Gl···.······
.. AND lPSA FOR

- 3

••••••••••• X:
X

.................-

..

.....Fl·······.··
...................

x

: •••• 84 ••••••••• :
•
•

--

:

:.~!~.2~.~:~~~~.:

: ••.• ~!~!~:!..•. :
x

.-.x

2

_NO

-TION CONSTANTS ..
..
FOR THIS
..

LIBRARY

83

- -

:

••
OIR ••
•• YES
•• END HH
•• EQ TO DR GT ••••••
••
0
••
••

....

....

•
•
:

........

..
..
:

X

COMPUTE OIR
ENDING AOOR
HH IN REG 6

.................

:

X

:

x

-•••• A1·········:

I

X

•

·.·.K2·········
RETURN TO
•
CALLING
•
..
SEQUENCE

...............

2•
3.
4.

·YES

5.
6.

.-.x

MOTEST

·J3
••
•• HAS ••
•• aiR ALLoe •• NO
_.
8EEN MACE ••••••
_.FOR THIS ••
+. LIB ••

... ·YES

K3

.-.x

~gDA SE~K/t~~R5~R~g~~~~s! T2lt~~8' AA5R~~!

HI NU
RECORD •
THE
FIELD CCHHR FOR WRITE CKO IS
SET
TO THE CCHHR OF THE DIRECTORY
STAR
ADDRESS.
KEY
EQUAL ZERO.
DATA
TH EQUAL
•
360
el UB DIRECTORY.
•
322 IF RL LIB DIRECTORY.
•
150 IF SS LIB DIRECTORY.
l'OA~~~~fs~Er~I~HEIfstEJYt~. ZEROS WllH
THE WRITE CKC CCW IS HOVED TO THE WRITE
CCW FOR THE SUBROUTINE WRITE.

.....x

·WU •
• 53·

--

ERROR3
••

•• LIB ••
•• ST ART AD DR •• YES

.... ....

.E~~EE2Db~8 E~2·····:
-NO

.~

..

.+~

••
.WU •
• • S:.ERROR4

-....-

: 2

:

Appendix H. Detailed Flowcharts

707

Chart WN.

UPDISK, BLKLUP, UPRITE, and TSTNUM Subroutines
CORGZi Refer to Organization, Charts 46 and 47

.-.--AI---------.

·. ···A3·········.

·····A2·········.
..

UPDI SK

BLKLUP

..

•

UPRITE

·

• .... A5· .. •••••••

...

UPDATE

.

:x •...•......

.·..·82··········
.·.....................

X

UPDISK

****.B1···*·**···
..
INIT REG 3 AS ..
• POINTER TO THE ..

.. DISK ADDRESS
..
_RECORD NUMBER- ..
.. -R OF CCHHR..

.*

*.

...

Cl·-· *.
END
OF
TRACK

*.

*. * ••• .-

C2

...x

......

TA~s

••

(3

.*

•••• YES:
...... .o

COL BLANK

.*

·YES

.. seT R EQ 01.

02

..

:R~~c~,Pg~NIE~o

.•.

..................
...
..

*.

•

C5

••

END
OF

••

TRACK

• ...

.* ••••
••

•••••

"'YES

X

•

..
..
..... .. ......
.. :x •....•...• :
·
•••• STMNT SPECIFIED.

x

·WU •

ERRORI

.*.*

*.

*.

*. *.

END

OF

*.

TRACK

.*

.*

NO

X

••••••

* ••
.YES

•
...
•

·•. ·E2······. •.
.................
RETURtli TO
CALLING
SEQUENCE

E3
•

.....
••

...

••

...

•••• NO

...... ..
OF

TRACK

••

... 81·

X

X
•••••
.. SET F3·
HI-I .. ••••••••
EQ 00 • •
• LOAD REG 3 AS •
.POINTER TO eVL •
..
NUMBER
•

.. LOAD REG 3 AS ..

..
..
..

X

:

..................
..
..

REG:3 AS
POINTER

..

····Hl·········
RETURN TO

CALLING

·····G3··········
:I~~RB~·lHtlh2a
..

:

REG 3 AS
POINTER

..

•

X

X

..

•

.. ••• ~;2~;~~; •••• "

·F5
THE ADDRESS IN REG 2
IS COMPARED TO THE
ADDR OF THE STMNT
110 AREA, CARD. + 71

•• . ··1-13··········
• SET SEEK/SRCH •
• AOQR EQUAL TO •

.COUNT FLO DISK.

• ADOR MINUS 1

·····G4·········
TSTNUM

...

••

•

: •••• ~~~2~2 •••••:

*

.. ..
.. .. .. ......

TSTNUM

H4

•••

••

COMPARE •• BL
CHAR TO 0
••••••
·aNL

.. .•. .. .
............ x
.....
...
x

·. ··J3·········
X

·...
•

•

.....

RETURN TO

CALLING

~~~~~~~;

J4

•

••

•• COMPARE •• BH X
•• CHAR TO 9 ••••••
·SNH

·WU •
• FS·

ERRDR6

···.K4·········
X

•
•

RETURN TO
CALLI NG

•

*

••• *;~~~~~S~ •••••

708

RETURN TO
CALLING

;;~~~~~;

:x •••••..••• :
X

UPRI

•• ••• Gl··· •• •• •• •

:I~~RB~'lHtl!I2a

X

·.................

:x .......... :
UPIT

····E5·········
·... ......
•

••••••

... seT HH EQ 00 . . .

POINTER TO
ell
NUMBER

ERRORl

X

·YES

.····Fl··········
.................
..
..
..

·NO

·WU •

••

END

••••• oo

.•.x

•
:R~~C~, Pg9NIE~b :
.POINT TO TRACK •
•
NUMBER
•

X

••

05
....
•• IS A ••
• YES. CaNT INUATION ••

• SET R EQ 01.

.. Bl·

El··· *.

*F5

·BE

........ .....x ....................
...
x

• POINT TO TRACK ..
..
NUMBER
..

AREA

• ... *

X
····.03········.·

• .o

•• VALID ••
STARTING POINT. NO
••
FOR AN
..... oo.o
• .. OPERAND ••

••

•• ENO OF ••
BH ... STMNT I/O ... BL

•• NO

·YES

·NO

X
•·· ••01**········
:
..................

• INCR CARD COL •
.POINTER, REG 2,.
•
BY 1
:

...................
...x
.- ..
....
• -R' OF CCHHR-

X

·•·. ·B5········.·

UPDATE

• INIT REG 3 AS •
.POINT ER TO THE •
-COUNT FLO DISK.
.. ADDR RCD NO.
•

.. .. ...........

*. NO
.* ••.•

X

UPRITE

• INCR POINTER, •
• REG 2, TO NEXT •
•
CARD COL
:

.................
•*

. ··•• B3··········

X

BLKLUP

DOS System Control

•

Chart WP.

WRITE, NEWRO, IOSYSRS, and READDR Subroutines
CORGZi Refer to organization, Charts 46 and 47

-

• ••• AI __ ....... .

* •• ·A2*·*··*·*·

WRI TE

RDS Y02

····A3-··*·*···

.

·* ...... A4··***.·.·

NEWRD

IOSVRS

•• ... AS .......... .

-

REAOOK

-

:x .•...................... :

x

.·... 61··········

WRl TE

·····a3·X..·.•..·.

NEWRD

.. LOAD THE ADDR ...

.. WRITE eea IN
... REGISTER 1

** •••
*B5**.*·.· ***
INIT THE CCW, •
*VARCCW, TO READ*
*
A SVS 01 R
•
•
RECORD FROH *
•
SVSRES
•
****.** ••• *** ••••

:g€~~~gD ~~~o6~E:

..
...

X

REAOQK

-INIT SEEK AODRt*

.. OF THE SVS002 ..

.................
*SYS QIR RECORD.
...
FROM NEWOSK
..

:...•.•................•. x:

····**(1···········

X

·····C3··········
..................

X
- svc 0-

... seT THE (ew,

.. WRI TE A BLOCK ..

:VA~~~~b2 T~EX~E

ON

.. SYS aIR (erlt
..
NEW (en'

SYS002

01

.'.x *.

•

.*

*.

* ••
-NO

····El••·•• *.·.
SVC 7

-PLACE SYSTEM IN•
..,AIT STATE
...

***** ••• *.**.*.

•••••• E3· ••• ***.* ••

• •• ·EZ· •••• ••••

..

RECORD FROM
SYSRES

•

x

X

X

...

IN REG!

•• •• ·.OS.· •• • •• ••••
-SVC 0... READ DES IRED •

LOAD THE AODR •
OF THE SYS002 •

CCB IN REGl

:

X

X

*

•

X

* •••••••••• * •••• *

·····03····*·····
-

110 *.
.* COMPLETE *. YES
*. -TEST CCB- .* .•................

•*

IOSYRS

••••• C5····**·*·*
• LOAD THE AODR •
*
OF THE
•
* SYSRES ceB

..
:
...
..

RETURN TO

•

CALLING

.. * •• ;;~~;~~~*.* ...

-SVC 0READ SYS DIR
RECORD FROM

••

E5

.-. ••
110

••

.. .....- ..

YES •• COMPLETE
••
•••••••••••••••••••• -TEST CCB••

•

SYS002

-NO

F3 ••• *.

•• 110 *.
YES •• COMPLETE ....
••••••••••••••••• ..... -TEST CCB....

-. .. ..

X

••• RETURN
*F4·····*··*
TO
•
CALLING
•*•• ;~~~~~~~* •• *
•

.···F5·· ..·.···
X

...
svc 7
•
.PLACE SYSTEM IN.
... WAIT STATE
•

...............

'NO

····G2·· . *... •• ......
X

•

...

RETURN TO
CALLING

SEQUENCE

• * ................ .

X

...

...

····G3·········
.................

•
SVC 7
•
...PLACE SYSTEM IN.
•
WAIT STATE
•

Appendix H. Detailed Flowcharts

709

Chart WQ.

......
:

1

MOVE2, MOVECC, CP¥ALL, and WRTSD Subroutines
CORGZ; Refer to Organization, Charts 46 and 47

:

...... A2 ••••••••••
:

• •••• A3 ••••••••••

.8.............
CPYAlL

•

:

MRTSO

•

-••••'4••••••••• -

..

:.•...•.......•.......... x:x
CPYAlL
e*

*.

._.

,- B2

-.
END

MOVE2

*,

*.

X

.LOAD EXIT REG, •

OF DIR FOR ••••••• , ••••••••••••
*e THIS LIB e*
..

*.

*e ...

~~~1~6D~I ~~ :
: ••••• ~~2! •••••• :
:

...

oNO

*,

*, ,-

....
- ·OZ··········X

SAVE THE

•

•

CURRE"fT DIR

•

.................
• AOOR, DISKAO, •
•
HI SAVE
•

·····EZ··.······.
X

wr-

-MOVE

.INIT SEEK/SRCH
• AoDR AND CCW
• TO WRITE SYS
• 01 R RECORD ON

•
•
•
•

: •••• ;~;22~ ••••• :

.-

-NO

•

·····C3··········
X

WRTSo

THI S A
*.
DELETED
ENTRY
,_ ,-

"" e.. *,

• -o-e-o-.-o-o_e_.

····.·03···········
·-:RiTE-SYS-OIR-·
.............
X

WRITE

WP

RECO~D

•

SYS002

ON

•

X

·····E3··········

•
RESTORE DIR
•
• STAKTING DISK.
•
AOOR RECORD •
NO., OP5A+6 •
•
TO 01
•
•

_MOVE THIS ENTRY.
.. TO SVS002 OIR ..
•
OUTPUT AREA
•

.................

.................

.....
- FZ··········-

..... F3··········
..................

X

•

RESTORE THE

:

AD~~OMD§ie~D,

..

-····BS·········
•

MOVfCC

: •••••••••••••••••••••••• X:

.-.x

e2
*,
... IS
.,

VES e*

X

: •••• B4 ••••••••• :

•

YES

HOVE 2

CURRENT VIR

•

..

:

tI • • • • • • • • • • • • • • • •

X

X

·····C5··········
..................

MOVECC

:
SHI FT CHAR
•
IN BUCKET 1 •
•
.POSITION TO THE.
•
LEFT
•

X

•• tI··D~ .. • .. ••• .. •••

•

MOVE NEW

•

.CHARACTER INTO.
•
BUCKET + 3
•

X

...... F 5 .......... ..
..

•
..
•

DEeR BUCKE:T
POINTi;:R dY i

•
..

...................... .
TO INIT FOR
NEXT SHIFT

•
..

• ... ·.F:;· X
............ ..

.-.-

WN.
.• - TES T.-.-.. -.-.
CHAR FOR.

•
•
•
•
•

RlS TOI:tE LIB
ENDING DISK
AODR HEAD
NO., LPEA+5
TO 09

•

.TSTNU/"

•
•
•

..................

•

X
····G3·········

•

G:;.·
.. •••••••
• •• ....RE
rU><1Ij
ru

•
•

NUM!:RIC VALUE ..
0-9
..

: ................ X:

·····CZ·········.
X

GENTRY

.. INCR POINTER

•

..

•

... REG6, TO NEXT.

.................
.-.
OIR ENTRY

H2

••

·...

RETURN TO
CAlliNG

~;~~~~~;

....

X

• •••• H3 ••••••••••

•• ··END OF •••• YES
:~~~!~~-.-.-.-~~:
••
BLOCK
•••••••••• X. UPDATE OISK
•
••
...
• ADOR FOR NEXT.
•
aIR tlLOCK
•

-. .. ..
-NO

.................

······J3···········
.-.-.-.-.-.-.-.-.
... ....
X

REAOOK

WP

READ A DIR
• BLOCt< FROM

;~~~~;

•

X

·····K3. •··•··•••

• INIT POINTER, •
• REG6, TO POINT.
•
TO 1ST DIR
•

..

PHRY

:....•................... x:x

....

_ 1

710

DOS System Control

•
•

................
C.... LLlNG
SElJUf:IIILE

•

Chart WR.

SINGLE, EXeMP, LKDOT and NXTONE Subroutines
CORGZ; Refer to Organization, Charts 46 and 47

...... A2 . . . . . . . . . ..

.. •••• Al ••••••••••

:

...............
SINGLE

..

..

.. •••• A3 . . . . . . . . . ..

EXCMP

.. •••• A4 . . . . . . . . . ..

NXYONE

lKDOT

..

··.....
• 1

·····Bl··········

S INGLE
..

..

···.·63········..:

X

INIT REG 4

WI TH A 7 TO

..
CTRl THE
.. COMPARE INST

lKDOT

X

.. IN IT REG 5 TO ..

..

..

:E~lIT TSHS~aJF!

..
..

..

: •.•• ;;~~!~...•. :

NOT FOUND

..

: ••• ~~~2!!!~~ ••• :

.

.x ••••••••••••••••••••••• "

X

NXTONE

.. INCR POINTER, •

.. INli REG 5 TO ..

:N~~~ ~IRJgT~~~

-eXIT TO ERRORS,-CHAR T WU FOR A ..
NOT FOUND
CONDITION

.

..···C4··.·.·.·.·

·····Cl··········
.................
X

..
..

•

..

..

.....
• 2

ENTRY

•

•

NO..

••

• x•••••••••••••••••• OF
*.

: •••••••••••••••••••••••• X:x........................... :
EXCMP

E2

.. .. .....

.....
..x .
.

*oo

...
••

oo·

'NO

RETURN TO
CALLING

;;~~;~~~

BLOCK

.* ••
aYE- S

...

•
•
•
•

·
.
.................

i
.·.·F3·········

...

*.

X

• NO

•

.'. *. *.

•
SAVE THE
• COMPARE IN5T
.LeNGTH, REG 4,
I N REG 0
•

••

F2
••
••
IS·.
YES •• THI S THE
• • oo • •
END OF THE
••
·.DIRECTORY ••

04

ENO
*•
DIRECTORY .-

·····E4...•..•.. ·

••

IS
••
••
THIS
•• YES
•• ENTRY TO BE . . . . . . . . . . . . . . . . . . . . .

•• COPIED

:..

X

••••• F4 ••••••••••
•

.....

:~~~!~~-.-.-.-~~:

.................
UPOA TE THE
SYSRES DIR
DISK ADOR

•
•

•

• Gl·

.Gl
• 1
TAKE THE CORRECT
•
NOT FOUND EXIT.
IF ENTERED AT
SINGLE, GO TO ERRORS-CHART WU-02
EXCMP, GO TO STEXlT-CHART WL-D4
LKOOT, GO TO SEEIF-CHART WH-J5

•
•

X

·····G4 ••••••••••
•
RESTORE THE
•
•
• COMPARE INST
.LENGTH, REG 4, •
FROM REG 0
•
•

······H4.·.····.···
X

REAOOK

WP

·-~E:D·THE·NEXr·
•

.............

OIR BLOCK •
FROM SYSRE S

·····J4..X···.·•··

• INIT THE DIR
• ENTR Y POI NTER
• REG 6, FOR THE
• 1ST ENTRY OF

•
•
•
•

:••• ~;~.~~~S~ ••• :

....x
··
•

2

Appendix H. Detailed Flowcharts

711

Chart WS.

CONVRT and DIRGET Subroutines CORGZ; Refer to
Organization, Charts 46 and 47

, ..... ** A1" _ .... * •• * ,

• *-*A5* *- *-** **

CONVRT

'If

CONVR'T

•*

~*

61

DIRGET

IS

....

WORK AREA
EMPTY

....

'82
IF A WORK AREA IS EMPTY,

*.

ALLOCATI ON HAS

SPECIFIED •

YES

NOT

DIRGET
X
** ***B5**· ** - *.**
•
I NIT REG 6
•
..AS A POINTER TO.
.. THE SYSRES DIR .,.
* INPUT AREA
-

AN

BEeN

.iI- . . . . .

*82

'.

ERROR6

x

I.

,.*.* *C5 * ** ** * * * * ,*

*****C 1********* •

... PACK DECIMAL
..
_ALLOCATION AND -II.. CUNVERT IT TO ...
-BINARY IN REG 4.

*.

01

*

-

" •• **02**********

.'

E1

HAS

*.

ALLOC
*. YES ..
•• ALREADY BEEN .iI- • • • • • •
•• PROCESSED.*
-11-.

* ..

.o. .*

'NO

E2

x

*.

E3

IS
HAS
.-THIS ALlGC i t . YES
.. *
ALLOC
*. YES
*. FOR THE RL .* ...•..•. X*.ALREAOY BEEN ...................... .
*.
LI8
....
..PRUCESSED.-

* ... "

*...
* •• *

.. -II-

*1\0

*NO

SLI B

X

*****F4**********

*INCR REG5 BY 4 *
*BYTES TO POINT.
•
TO SS LI B
•
•
AlLOC FIELD
•

.

x

.

. . . . . . . . . . .o . . . . . . . . .o . . . . . .o . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

x.x ................

~1VALCC
X
.* ** *G 3* * ** * *****

*STORf ALLOC IN *
* CIAL, FROM
-II.. REG4, USING ..
*
REG5 AS A
•
lIPOINTER
•

............... * •••• * •••

x

,.* -*.H3·*******·*,
*
•

*

RESET WORK
*
AREA, BUCKET, TO ZEROS
*

,

** * *** *** ********

x

-II-

*

712

DOS System Control

REG 7

.,.. * **05 ** * *. ** •• *
• SET SEEK/SRCH *
.. ADDR EQUAL TO ..
.. THE DIRECTORY *
• STARTING ADDR •
*
• FOR THIS LIB
*. **_.* •• _ ** ** --11* II-

* ••
*
*YES

.iI-

SAVE THIS
ADDRESS IN

x

NXTl

IS
*INCR REG 5 BY 4*
.o-THIS AlLOC *. NO
*BYTES TO POINT *
*. F-OR THE CI .* •... H • • X*
TO Rl LIB
-IILIE.*
X
AlLflC FIELD

.*

.

* -**J 3********.
RETURN TO
*
CALL ING

*--;~~~~~~~.***

.
.o . . . . . . . . . . . . . . . . . ..

•• * ••• E5 •• *.* •• *.**

*~;~~~~-*-.-.-~~*
READ A DIREC* TORY BLOCK
*~~~~.;~;~~; •

X

****F 5 •• * **** **
RETURN TO
CALLI NG
SEQUENCE
•• * ••••• ***.***

Chart WT.

MOVE Subroutine CORGZ; Refer to Organization,
Charts 46 and 47

....... Al . . . . . . . . . ...

:

...............
HOVE

- -

_ 2

MOVE
X
: •••• B1 ••••••••• :
-SAVE REGS

...

SAVE

- 3

...

•

x-oooo-

_

X

••••• B 5 · · · · · · · · · ·
• UPDATE NUMBER •
•
OF ACT IVE
•
BLOCKS IN
•
SYS002 SVS
•
DIR RECORD
•

•
MODIFY THE.
• SS LI B CONTROL.
• CHARACTER TO
•

............. ...

... DIR 01 SK AODR ...

• 4

X

•• ·.*B2··········
• SET ASTERISK IN.
• NEXT ENTRY OF •
• SYS002 OIR TO •
•
INDICATE
•
LCGICAL END
•
•

.................
-

-- --

•

··.··B4·······

X

ENOl NO

4-13.-

SYSRES

- -

•

•

"

• • • fI • • • • • • • • • • • • •

•.............................................. X:
X

·····el····.·····
... INIT TO READ
...
SVS002
... DIRECTORY FOR
: THIS LIBRARY

.................

•• SS

T~E •• NO •
LIB aIR ...... .
•x

THIS

X

•
•

.. ...X

X

····.02·······

-

SAVE NAHE
OF ENTRY

MODIFY C[W,
VARCCW, TO
WRITE

•
•
•

-

SET SS Ll B •
CONTROL CHAR
•
•
TC X-OOFF-

....x

FROM
$V5002

....

...

.YES

--....--

·····FI··········
.................
X

...

-- --

••
HAS
*.
•• LAST ENTRY •• NO •
•• OF OIR BLOCK ••••••
••
BEEN
••
·FILLED.·

WP

*-.-...
-.-.-... -*-*-+
READ OIR BLOCK

COMPUTE END

...

... 01 R IN REG 9

...

... ADDR OF THIS

- 3

...

-

+

UPDATE NUMBER
OF AVAILABLE
BLOCKS IN
5YS002 svs
DIR RECORD

..................

_

1

ES" ••
YES •• "AVAILABLE· ••
• •••• BLOCK CDUNr ••
•• NEGATIVE ••

.....-NO

••• it.

·',w •

-

ERRORA

NOF INC
X
••••• F 3.......... .
• MOVE ENTRY FROM.
.SYSRES DIR 110 •
• AREA TO SYS002 •
•
• DIR 110 AREA

X

·.···G3··········

X

•
•
•

-THIS DIR Cl OR ...
...
RL EQUAL 7
...

..............

a ...

SET NEW OIR
CURRENT AODR
IN OLSA TO
UPDATE SO

•
•
•

X

••••• F S · · · · · · · · · ·
• UPDATE ENTRV
•
• NUM~ER IN THE.
•
DIR CURRENT
•
: ADDRESS, OLSA :

.-................-

...
MODIFY CMP ...
... INST LNG FOR ...
5S EQUAL

•
•
•
•
•

• 04 •

·····Gl·······
..

X

WP

WRITE OIR BLOCK
•
BACK ON
•
SYS002

EZ··· ••

••••• *E 1 •••••••••••

··.··05····11-··.·.

X

RDSY02

_ 4

X

.............

: •• 2;~ .~;~~~~ ••• :

······04···········
.-.-.-.-.-.-.-.-.
.............

....
- ..........-

JUST FOUND

...

·····C5··········
• UPDATE NUMBER •
•
OF ACT IVE
•
ENTRIES IN
•
5YS002 SY5

·YES

·····01··········
RDSY02

X

·····C4··········
-

WRTBLK

.• is

...
...
..
:

C2

.................
••••• G4..........

GS···

-. .-

<.
:
RESET ENTRY:
yES •• ••
END
•
COUNT TO 0
.X..........
OF 01 R
:FOR NEXT BLOCK:
•••• BLOCK ••

....


.>

:x .......... :
-J2
DSPBYT INITIALLY AT X'QQ'
BIT 4 X'OS' = TRANSIENT DIR SW
BIT S X'04'
SS DIR SW
BIT 6 X'02 1 = RL OIR SW
BIT 7 X'OI' = CI OIR SW

.*****
* 81·

GETSO

X

I

*.* ..

***.;~!!~****

*XE

EOJ

-

.

.* 55
*.
.* DIRECTORY ... YES
... TO BE 01 S...... .
*. PLAYED
.*
... "J2 • *

DTFCPPUT

-.

-- --

"G3
ThESE DECISIONS ARE
MADE IN THE L IOCS
REFER TO
MOCULE.
CHARTS TG AND TH

*****
*XD *
* A2*
GETRD

.. ** .. ES*··** .... **
..

x

"*****G2*"* *. ** .. ***
ERRRTN
TF

GETCD

.... DIRECTORY
TO BE 01
PLAYED

X
• .. • .. **E4* .. *···* .. ** ..
XB
PRTBLK
"-*-*PRINT*'A*-*-*
BLANK
LINE
*E3
..* •• ***** .. * ...

* .. **

X

*****
*XC *
* C2·

• xC

if.

-E3
REFER TO FIG. 11 FOR
AN EXAMPL E OF THE
SYS DIRECTORY PRINTOUT.
PRINTING IS DONE IN THE
SUBROUTINE LABELED
DTFCPPUT ON THIS
CHART ..

El*

.* .•.•

* ••
-NO

.***

... 85-

TRYRD

*.

--

Gl

*. TO BE OI s-

*.

.

* * **. *F2 * ...... **. * **
PRTBLK
XB
.-il-*-*_*_*_*_*_"
PRINT A
BLANK
LINE
*E3
*************

GEnO

CI
••
DIRECTORY i f . YES

.if

*.** •• ******.* ..

* .. ··*04** .. *·**
-IITURN OFF
*
DISPLAY RL *
*
* DIR SWITCH IN -II*
DSPBYT
*
*
*J2
*
**************

.. xc *

-xc ..........
.*

YES

.* ••••

-NO

·-

-

x

*.

.SIENT OIRECT-.
DRY

X

x

* *·*03* *** .****
*
RETURN TO
..
.. LINK ADDRESS it

"YES

X

PRINT SYSTEM

..

02· ••

if

*****El * •• *. :a-**l!

-

..

•*
DISPLAY
•• NO
".50 REQUESTED .. * ••••
...
..J2
••

I

-K2

RET IS THE RETURN LABEL FROM
THE ERROR ROUTINE AFTER
OJ SPLAY OF MESSAGE 30471.
I T SO HAPPENS THAT THE LAST
CONDITION CODE SET IN THE
ERROR ROUTINE IS 8 AND THE
INSTRUCTION WILL BRANCH TO RG3.

DOS System Control

EOVLST

X

* .... *J4·* .. ******
*
SVC 2
..
* FETCH $$BEOV •

-

... ** .. *** ... *****

-

x
... ***JS* ** -*** .. *

*
RETURN TO
* LINK ADDRESS

*

Chart XC.

Print Transient and/or Core Image Directories
DSERVi Refer to Service, Chart 48

....

*
* 1

..

xxx
••

A3

•••

**

*

*•

*

*.

*

2

X

..

A5· ••
'{ES ••
•••••

1ST
NO-BRANCH
TIME
••••••
•• THROUGH ••

.*

*.

•• • *

••• *

*Y ES-NOP

•* 3

THIS
ENTRY
.*
DELETED ••

*.

....

.*

*NO

*

*

x

*. **"* B3*. * .*. ****
*
ALTER DTF
*
*" TABLE TO READ.
... TRANSIENT DIR ..
* FROM SYSRES ..

• * •••

*XB ..

*B4
TEST FOR ASTERISK IN
B5
*.
1ST BYTE OF ENTRY.
.* LAST
*.
LAST ENTRY [N TRANSI ENT YES. * ENTRY IN
DIRECTORY IS NOT
DIRECTORY
.*
[NDI CA TED IN THI S
·B4
••
MANNER •
.*

.. G1·

* •••

*.***
*XB *
* HI*

• *

*NO

* *

X

GETeD

***·*C2·*·**·····
GET ADDRESS
..

..

*
TRYRD

X

C5· *.

• ...... *GET
... C3*·*
... * ... • ... ••
ADDRESS *

*
*
•

OF (1 OIR

TITLE FOR
HEADING

OF TRAN OIR
TITLE FOR
HEADING

•
*

*.

.* • *B[T IS7

YES

••••••••.•••••••.• *.

OF ••
HDRSW ON
.*
*.TO PRINT .*
*. HDR .*

* ••
*
*NO

.. 'II • •

..

x

ALTER OTF

it_ ....

..

*··*·03······ ...

..

*

*

SYSRES

x

X

*02* •••• _'II •••

.. TABLE TO READ ..
* CI OIR FROM ..

CHANGE SW
AT XXX TO
BRANCH

**

•

* ••• * •• * ...... *. *

*XB ..
.. Fl·

*** .. * *04***** ....... * **
TURNOFF
XJ
*-*-sKip*ro-i-·-*
AND PRINT *
DIR TITLE
*** ... *** .... ****

..

DISPLAYED

X

...

.*

CHANGE SW ....
AT XXX
..
ie A BRANCH ..

[S

* ... * ** *E5*** ** •• ** **
HORTO
XJ
*-*-*-*-*-*-*-*-*
SKIP TO 1
AND PRINT

••

NO .... TRAN OIR *.
BEING
.*
·.DISPLAYED.·

*.

*

.. ..

••

**~!~*!!!;;**

*YES

:x .....

.o . . . . . . . . . . . . . . . . . . . . . . . . . . . . :

·--·*Ft····. ··
X

GElID 1
..

•

.COUNTING

:........................ x:

X

F3

.*.

*.

.* MAX ...
.* TRANSIENT *. YES
*. DIRECTORY ENT .* ••••••••••••••••••
*. REACHED .*

TURN ON BIT_
7 OF HOR5W ..
TO PRINT
..

HOR

*.

* •• *

.*

*NO

•
..
•

'II • • •

3

WRHOR
X
• ·*·**FS •• * ********
PUT
TG
*-·-*PRINT*t;*-*-*
*HEADING LINES*
ON SYSLST
****..-*******..-

* .
'II .....
*

GETNXTO·
x
**G 1 _ •••••••••
'II • •

.. LOAD ADORE SS

...

OF OTF
INTO REG 1

*. NO
.* ••••
.*

x

E3·· •

*****E2*******
..

*.

*YES

x

YVY

END
OF
PAGE

* •• *

:x .......... :

GETiD
X
...... E 1" ....... * ••
...
INDICATE
..
..
TRANSIENT
..
-DIRECTORY BEING.

*.

05

.*
*.
*.

:X •.•••••••• :
X

*G2

REFER TO NOTE *J2

*****G3*****·****
•
INCREMENT
...
•
COUNT OF
*
*TRAN DIRECTORY *
*
ENTRIES
*

ON CHART TG.

*G2

ENOTD
X
...****G4-***"**
* RESET DIR- *
..- ECTORY BEING *
*
DISPLAYED
*
* INDICATOR TO ..*
ZERO
*
******.***..-***

TOCONV
X
*..-*..-..-G5**********
*PREPARE I NFOR- *
* MAT ION FROM *
*THIS ENTRY FOR *
..PRINTING
•

: ............. X:

-·-*-HI-"."-•• "'.·
X

* LOAD ADORE SS
..
..
OF TOWORK
INTO REG a

lIZ

X

X

*** .. ·H3* •••• *****
LOAD REG 14 *
* WITH RETURN *
... ADDRESS FOR ...
... LIOCS MODULE *
...
-G2
.* .* ......... ****.***

*****H4**********
* INDICATE FILE *
..- IS CLOSED IN ....
OTF FOR
*
TDGET

x
* •• * •• J 3.** .*.** ... **

.XB •

*

*
..
..

X

***.*HS*** .*..-****
.... MOVE SPACE 1 *
* AS A CODE TO *

:

Ng~~~I ~~~~~

:

*
*
*..-.******..-*******

it

X

*****Jl******·*·*
.. LOAD ADDRESS
..
..
OF L1DeS
..
.. MODULE INTO ..
.. REG 15
*G2-

*_••••••• * ••• _••••*

*J2
THE LIDes MODULE WILL
LOAD THE NEXT DIRECTORY
ENTRY INTO TDWORK, THE
INPUT BUFFER AREA (20
BYTES) SPE:CIFIEo BY THE
ADDRESS IN REG O.

GETSUT
XF
.-.-*-*-*-*-*-.-*
GET 1 DIR
ENTRY
*J2
*************

**..-..-..-

.

• Gl*

* *
TRYCO

it

*·****JS"-*****"-·***
PUT
TG
..--..--*-*-*-*-*-.-*
PRINT DIRECTORY
* ENTRY ON
... . . ~r;~~!***..-

x

**
*

1

*

•

****
2

•
*

X

*****K5****..-*** ••

*
** SUBTRACT 1
..*FROM LINE COUNT*
*

•

.x

• ..-**

• 3

Appendix H. Detailed Flowcharts

721

Print Relocatable Directory DSERV; Refer to
service, Chart 48

Chart XD.
o

....
....

• 1

o

.....

o

-xe •

,<

•.H!*
o

0
0

·•••·A2··.····
X

GETRD

..

Aolt

TURN ON BIT-

..............
HEADING

o

'NO

:••.••••••.•••••••••••••• x:

·XB •
• Jl·
-

·····82··········
X

.. LOAD ADDRESS
.. Of OlF INTO
..
REG 1
:
*83

-83
REFER TO NOTE .J2

..
..
..
:

0

TRVSD

e•

••
IS
••
•• YES
HORSW ON TO ••••••••••••••••••••
••
PRINT ••
•• HDR ••

....

• ND

X

-C3
REFER TO NOTE .B4
ON CHART XC

..
..

.................
INTO REG 0
·C3

.'.

•• BIT 7 OF

*.

·····e2.···.·····
• LOAD ADDRESS
OF DWORf(

B4

ON CHART TG

.................
..

••

..... -.. .....x

..

0

GETNXRD

.0.x

_

:

••• - LAST •••• YES
•• DIRECTORy.· ••••
_.
ENTRY.·

~R?~THR~S~I~O."

:
..

....

: 2

..
:

••

C4

.'.x

OFF

••

END ••
NO •• OF PAGE,
e.
•••••• LINE COUNT ••
." EQUAL 0 ••

........

·····C5·······
X

•

•

:

TURN OFF

BIT 7 OF

• YES

:X .......................... :

....·oz··········

·····04··········

X

.. LOAD ADDRESS
..
OF L10es
.. MODULE INTO
..
REG 15
..
*83

X

: HORRO

..
..
..
..
•

•
GET ADORE SS
•
OF RL OIR
.TITLE

•
•
AND CLEAR.
PRINT AREA
•

.................

.................

.0.x *.

······E4·
...·.·.· ..
•

AAA

EZ

* ....

NO-BRANCH
••••••

~2~!£.-.-.-.-~~.

SKI P TO I,
• PRINT TiTlE.

.............

• ..

LINE

-veS-NOP

.....FZ.·.······.

....
·.F4···········.
.-.-.-.-.-.-.-.X

X

..

ALTER. OTF

..................
SYSRES

PR INT 4
HEADI NG

..

.. •• ~!~;~ ....
: .......... '(:

x

X

RDCONV

··.··G . ·•·•·•··•·

: •••• G2 ••••••••

CHANGE SW

ft

TG

PUT

..

.. TABLE TO READ ..
.. RL aIR fROM ..

..

•

X

THROUGH ...

*.

o

*. *.

...... 1 S1
...
TI HE

*.

..

•

AT AAA TO

•
•

PREPARE
•
INFORMATION •
.FROM THIS ENTRV.
: FOR PRINTING :

.................

..

A BRANCH

: x............ :

x

BBB

..... H4·.········
X

•••••
H2 •••
•••••••
.. LOAD
RETURN
..
.. ADDRESS FROM ..

.. llCCS MODULE
INTO REG 14
•

•
MOVE SPACE
1 ASA CODE
•
.TO PRINT AREA,
• NORMAL SPACe

•

....... ......:
:~~

o

x
······JZ···········
•

X

•••••• J4 •••••••••••

•~~!.-.-.-.-.-!~
.
PRPH PIR

~;!;~!-.-.-.-=~.
•

GET 1 RL
DIRECTORY

ENTI<.V ON

... ~!;;;! •.•.

.... ~~!~! •••.

..
..

••

KZ··· ••
THIS

..

..... K4·········.
X

.-

_. YES

-.ENTRY DELETED ••••••

•.•.. -..
·NO

··

:

SUBTRACT 1

•

FROM LI NE
COUNT

i
o

:

••••
1

•

:

• 2

722

•
•
•
•

.................

•

DOS System Control

.....x .
o

o

1

•

•

•

•

•

HOR~~R ~~INT •

It

Chart XE.

Print Source Statement Directory DSERV; Refer to
Service, Chart 48

012

REFER TO NOTE *J2
ON CHART TG

.....
-lB·

•

•• J!*

....

: 1

....

0

•

:

: 2

X

··......

0

• 3

:

X

·····81·······

······83···········

..............

•••• ~~!~! ••••

GETse

GETSUT

•

TURN ON •
*e IT 1 OF HDRSW*

•
:

:x ...........•.......•.... :

·.··.C1··········
ic

GETNXSe

• LOAD ADDRESS
•
OF OlF (NTO

•
•

•

REG 1

•

•

*A2

..................

._

X

,C2

REFER TO NOTE -B4

ON CHART XC

.-

.*

*. *.

..

...·.01··········
• LOAD ADDRESS
OF TDWORK
•
•
INTO REG a
'C2

•
•

•

•

0

.~ ••

·· ..

••

•
..
..
•

.!.

••

TIME

••• !HROUG~...

••••••

X

•

PREPARE
INFORMATION
FROM TH[S
ENTRV FOR

X

x

•••• ~~!~!!~~ •••••

·.··E4·········

X

SVC 14
EOJ

•

·····ES··········
•
MOVE SPACE
•
•
1 ASA CODE
•
.TO PRINT AREA, •
• NORMAL SPACE •

.................

CHANGE SW •
AT CCC TO A •
•

•

.···.·FS···········
·-·-·-PRi'NT-·-·-·
X

PUT

• PRINT SS OIR •
HEADING SW ...

TG

.01 R ENTRY ON •

:

·····G3··········
X

HORSD
•

••• !!!~~! ••••

· .

GET ADDRESS

•

•
OF SL aiR
•
.TITLE AND CLEAR.
•
PRINT AREA
•

.................
·
•.•••.
. H3···········
X

: •••• H1 ••••••••

•
•
•

o

'NO

••••••••••••••

•
ALTER OTF
•
• TABLE TO READ.
• SL DIRECTORY •
:
FROM SVSRES :

BRANCH

CONTIN

:

·····Gl··········
.................
•

·····05··········

X

•
•

.. ..

: .•...••.•.•.••..••.••.•• x:

·..............

X

·····ts··········

:HOYE -ASSEHBLV-:
•
TO PRINl
•
AREA

:....•.......•...••.•.... x:

EOJ

••••
•
TURN OFF
•
l5T
•• ND-BRANCH.BIT 7 OF HORSW.

•• • ;':S-NOP

•
•

•

OFFSD
X
• •••• F2 •••••••

Fl..

••

.................

.*

E3
••
•• IS
••
YES •• BIT 7 OF ••
••••••••••••• ••• •••• HDRSW ON TO ••
••
PRINT ••
·HEACER.·

...... ......:

CCC

....
.0.x

X

::~

..

e.

'NO

·····El•.•·•..··.

:

••

0

•
•
:

••
LAST
•• YES
••
DIRECTDRY ••••••••••••••••••••
••
ENTRY.·

.................
• LOAD ADDRESS
OF LIDCS
•
•
MODULE INTO
•
REG 15

D3

.0.ic

ic

o
• HOVE -CDBDL•
TO PRINT
:
AREA

w.

THIS
w. yeS
ENTRY
• * ••••
DELETED ._

• 1

X

•...·e4··········

COBL

C3··· ••

a. w. aNo·*

B5 .-. _.

NO •• ASSEMBLER *.
•••••••••••••••••••• a.SUB LIBRARY._ .*
a.
._
a •• _
-YES

.-e_a_a_._a_a_e_a
GET 1 SL
•
01 RECTORY •

TO PRINT SS •
DIR HEADING••

X

SDCONV

XF

•

~~~!~.-.-.-.-~~.

3

:

x

: •••• Gs ••••••••• :

•
•
•

SUBTRACT 1
FROM LINE
COUNT

.·................
...:....
o 1

0

SKIP TO 1
• PRINT TITLE.

•••• ~!~~ •••••

:x ...•...... :

ODD

x

·.···J1··········

•
LOAD RETURN
• ADDRESS FROM
• L IOC S MODULE
• INTO REG 14,
•
·A2

•
•
•
•
•

.................
....x
•

:

2

i

······J3···········
·-·-·PRINT·;·-·-·
PUT

TG

HEADING

•••• ~!~~! ••••

0

o

:

:

....x
3

•

:

Appendix H. Detailed Flowcharts

723

Chart XF.

Get Next Directory Entry DSERV (Part 1 of 2);
Refer to Service, Chart 48

......
:

1

:

oA5
THE
eXH INSTRUCTION
WI Ll ADD THE RECORD
SiZE TO THE BLOCK I/O
AREA POINTER (INlT IAL
POINTER) AND COMPARE
TO THE BLOCK LENGTH
(LIMIT) TO DETERMINE
IF THE END OF THE
BLOCK HAS BEEN
REACHED.

X

·····A4··········
-GET DEBLOCKING.

• •••• A2 ••••••••••

·· ..
• 2

-CONSTANTS FROM.

GETSUT

•

.··.·B4·•• ·•·••••

······82··········.
·..................

X

j(

•
INCREMENT
•
•
ADDRESS TO
•
-NEXT DIRECTORY.
-ENTRY IN BLOCK.

-SAVE REGISTERS.
:
10 TO lit
:

....
*XG

•

• EIt-

TEST

••••

•••

-. w.

2 I/O

AREAS

*.

·.................

X

.o_ el

*..oW
*.

•
•

•

GETSUT

•

OlF
*A5

*..o_ NO
........

.o- .o* •• -C3

.•.x w.
C2
.o*. w. NO
.o. GET 1ST
FROM
_THIS DIRECTORy ••••••
-.
*C3
.ow. w ••

.YES

.C3

FOR THIS FILE.

:•..••••.•.•. x:

w.

...

.~

: 1

.oW

.....

. ••.

YE~·

.o_ Cit

REFERENCE TO OTF

*XG •
• FS*

:

••

2

:

•
•

STORE ADDRESS.
OF NE XT
•

.DIREC TORY ENTRY.
IN OTF

•

:•.••.••••••..•..••...••• x:

: ........................... .oX:
•

.oW .......

BLOCK

.··.·04·..X ·.··. ··

X

BLOCK FROM
$VSRES

•

YES

w.

........ ....
.x .
:

SVC 0
-READ DIRECTORY.

RElSEA

w. w •

END
OF

.NO

.....·oz···········

READl

*.

...x

····EZ·········
SVC 7

•

GETXIT

•••
E4
••
•• ~ORK
••
NO ••
AREA
••
••••••
SPECIFIED
••

X

•

WAIT

••

*.

.. ..
·C3

• ..

••

·YES

F2

...x

x

• •••• F 4 •••••••••• NNN NNNNNNNN NNNN NNNNNNN NNNN

••

.HOVE D IREl. TORY • •
•
E;NTRY TO 20
•
•
•
BYTES AREA,
•
•
•
TeWORK.

••
EOF
••
•• POSTED IN •• YES
•• eCB IN DT F
••••••••••••••••••••

••

.. .. ....
.A2

••

·NO

: •.•....••. x:

X

.. ..
.. .. .. ......

NO ••

••••••

•

••

WLR

•

••

·YES

••

••

..

••

H2

...

••

VALID

..

EOF ACDRESS
IN OTF

X

······G4·.•••··•··.

IORUT
•
•

..................
•
•

RESTORE
•
REGS 10 TO 14 •

.....HIt·······.··
X

... NO

.. .... .....x
...
x
SHORT
BLOCK

·.·.G3·········
i

GZ··· ••

••

••••••

• YES

•

LOADS USER

•
•
•
THI S.

•
•

110 REG SPEC
IN OlF ~ITH

•

dLOCK

.................
.ADDRESS OF

•

·XG •

• B2·

:OECRT
: ..... J2 ••••••••
•
•
:

TURN ON
•
SHORT BLOCK
•
SWITCH X'ltO· ••

..............

.....
••8! •

: •••••••••• X:x

• XG •

.

DATACHEK

724

DOS System Control

WLRERR

····J4·········
X

.RE TURN TO LINK.
•

ADDRESS

IN

· •••. ~;~.!~ ..•.•

•

ADekE~S

..

OF

rOWORp<. IS
IN ReG a

Chart XG.

Get Next Directory Entry DSERV (Part 2 of 2);
Refer to service, Chart 48

.: z .:
oAl

AS

REFERENCES TO THE OlF

TABLE FOR THE FILE FOR

WHICH THE GET MACRO
WA S I ssueo.
SEe NOTE

.....

AT -HI.

.....
...

*XF •
• HZ-

WlRE RR

o.

B2

.* ..
WLR

VES 0* RTN SPEC

*..

. . . . . . . . . . . . . . . . . . . . . . . . . O' . . . . . . . .

*.

IN OTF
*Al

*.

*0

••
.NO

i

x

••••• C 1••••••••••
•

LOAD ADDRESS

•

•
•
•

OF WLR
ROUTINE IN
LINK REG 14

•
•

0- ...

eo

0-

...

...

*0

0*

0-

._.
B3

CHECK
*Al

*.
*0

X............................... o

*.

DATA

•••·.85,.· ••••••••
X

*. *0
...

:
•
•

NO

......... ..

.-YES

........ :

······CS·· •••••••••
SVC a

READ DIR
8LOCK FROM

Ne
.e o ............................ ..

*Al

._ ...

eo

:
•

X

*.

ERR.OPT
EO NAME

*. *0

CHANGE 110
AREAS IN CCW
.Al

*0 .-

czo- •

OATERR

..................

e.

·YES

X

DATACHEK

-.

••

.. ......

*XF •
• JZ*

*.

.'.

•••• Z 110 •••• NO
••
AREAS
••••••
••
.Al
...

SYSRES

.-

-YES

i

.····02··········
X

•

LOAD ADDRESS

•

• OF READ ERROR.
• ROUTINE t~TO •

.................
•
•

LINK R.EG 14
*Al

•
•
•

ERROPT
•• NO X
EQ SKIP
••••••
·Al
••

•
•
•

•

X

•
•

STORE BASE
•
REGS FOR THIS.

X

SE:T SKIP

SW~Ir~.ON

•

REGS 1 AND 15 •

·....................
•

MODULE,

•

X
···.·G2··········

•
•
•
•

LOAD ADDRESS
OF 110 AREA
I NTO REG 1
.Al

•
•
•

······E4·······.
X

•
••

•

•

oo . . . . . . :

LOAD 110 AREA
ADDRESS I~TO
CURRENT 110
AREA ADDRESS

SwITCH
X110'

•

•

.'

... r:TADA
X
·····ES·······
•
TURN GN
•
• SWITCH XIBGI •
•
IN DTF TO
•
• INDICATE 1ST.

:. ~~!. ~2~~~;! ~.

.

•
•
•
•

·

X

.

·.··.FS··········

.GET DEBLO(.KING •

TEST

·
.
.................
G3

RESU SKIP

.XF •
• Cl·

X
·····F3··········

ADDO 1
•
•
•
•

.....

'NO

······E3·······.
:X .••.

.....FZ··········

YES ••
••••••••••••••••••••

X ........... :

D~ . . . . ..
IS
••
SKIP SW
••
ON
••
X'lO'
••

••••

SKIPA"·

RESTORE REGS
10-13
(NOT 14)

••

• YES

·1

X

: •••• E2 ••••••••• :

GET AD

.. ......

• • oo.

••

•
•

:..••.••.......•..•••.... x:
RDERU

03 •••

USERSK

•

CONSTANTS

FROM DTF

•

.....

.'.

·XF •
•

'. ••

••
IS
YES
•• SHORT BLOCK ....................... .
...
SW ON
••

.. .. ....

E4 •

GETX IT

• NO

.Hl
USER ERROR
ROUTINES ARE
NOT SPECIFIED
IN ANy'OTF
IN THIS PROG.

·..·.HZ··········
.-.-.-.-.-.-.-.-.
X

.REG 14

.Hl.

.................
.EXECUTE EXTER- •
.NAl WlR OF READ.
• ERROR ROUT INE •

·.....H3··········.
X

COMPUTE
END OF
BLOCK

.
.·................

ADD02
X
••• •• H4 ••••••••••

•
•

COMPUTE
END OF
SHORT BLOCK

:x ......................... :

·····JZ··········
X

•
•
•
•

RESTORE BASE
REGS 1 AND 15
FOR THISI
MODULE)

.....x .

:

1

:

'

•
•
•
•

X

··.···J3······ . ··..
..................
x
··......

ADD03

UPDATE
DISK
ADDRESS

• 2

•

( (i

i

Appendix H. Detailed IFlowcharts

725

Chart XH.

Scan Control Statements DSERV; Refer to service,
Chart 48

.....
: 1

•••••C2 ••••••••••

.. •••• C3 . . . . . . . . . ..

...............

...............

:

INITSHl

FRSTCH

..

GET ENTRY

..

:

1ST OPERAND

:

SCANR2

04

..

·NO

••••••••••• x:x •••••••••••••••••••••••• :
x
E2

...

••

*. *. NO
•• • - IS
w. CHARACTER .a ••••
a. A BLANK .. "

..~...

*. a • • _ .·YES

....

: 1

x
: •••• F2 ••••••••• :

.e.x * •

•IS
*.
.- CHARACTER *. YES
a.A COMHA,BlANK ••••••••••••••••••••
w. OR EQUAL .*
..
-.SIGN
.a •• _

.................
POINT FOR

: StANRl

NXTOPR

:x .......................... :

x

: •••• 02 ••••••••• :
..

.. •••• CIt . . . . . . . . . ..

:

·····EIt··········

·····ES··········

X

NOFDND

•
INCREASE
•
.CHARAC. TER COUNT.
• UPDATE ADDRESS.
•
TO NE XT
•

:

.,
:

..................

..

Fit

...x

••

..

••••••

••

G2

-. w•

MAXIMUM

•••• ••••

··

.YES

LENGTH

.-

w• • _

-YES

·.··H2·········
X

..

RETURN TO

...............

: LINK ADORESS

726

•

:

DOS System Control

•

····G4·········

:

RETURN TC

...............
LINK ADDRESS

X

••••

X

_.

a. a.
eXCEEDED
._ ._

•
•

.... FS·········
X

•• MAXIMUM •• NO
••
LENGTH
••••••
•• EXCEEDED ••

•

• NO.w

OF NEXT
OPERAND

.................

: ••• ~~~~~~!~~ ••• :

:

-UPDATE ADDRESS ..
..
TO NEXT
..
CHARACTER

...x

X

SAVE POSITIGN :

•
:

1

•
:

RETURN TlJ
LI NK ADDRESS

...............

•
:

Chart XJ.

Print Title Lines DSERV; Refer to Service, Chart
48

....... B3 . . . . . . . . . ...
TURNOFF

.···e2········· .
HDRTO

1 URNOFF

X

: •••• (.3 . . . . . . . ...
... TURN OFF BIT ...

................
...

7

OF HORSW,

... PRINT HDR SW ...

.

...

.

............................................ x.
HDRTO
X

·····03··········
:..... ...... :
... RESTORE LINE

...

-COUNT FROM COMM-

...

REGION AND

-SUBTRACT

~~:;

a

...

FOR ...

·····E3··········
X

CLEAR
...

...

CLEAR PRINT

...

AREA AND Hove ...

... SKIP 10 1 ASA ...
... CODE TO PR INT ...

: •••• *!~;~ ...... :

...·•. F3···········
X

PUT

TG

·-·-PRiN~;-DIR-·-·

.............

... TITLE LINE
ANC DATE

...

X

·····G3··········
.................
...
...

HOVE SPACE
2 ASA CODe

...
...

... TO PR INT AREA ...
:FOR EXTRA SPACE:

x

....... H) . . . . . . . . . ...

RETURN

Appendix H. Detailed Flowcharts

727

Analyze Control Statements RSERV; Refer to
service, Chart 49

Chart YA.

•

••• .. Al ... ••• ... • ... ••
RSERV

*

*

:

····A4·········

...............
GETeTl

•

·......
·
• 3

•••.-.-.-.-.-.-.-.-+
··.84·•••••••••·

X

..

SSBOPEN

svc 2

GET

..

.
..
.•••••••••••••••••.
.. TEST FOR EOF ..
..
IS HADE I N "
.. LlOCS MODULE-

x

.. "

• *. *.

HAS
RL 01 R

BEEN

3~~~1

.... ••
*YES

••

*.

EI

•*

...

••

...** ... ***** ....... *

it.

it. ••• YES

.*

••

ic

·*"'**04·*·"''''··

. . ~!~~~; ..........

1~+T~~~li~D

SWITCH
••• ** •••• _** ••

.

ic

•••

••

...

*. *. .... • *

.

...* ........ * .......... * ...

·NO

.

TURN ON
PUNCH
SW

••

*

X

* ••••

..

·"''''*F4··*·'''**-'''
RETURN TO
1I NK AOOR

as

.....

••

ANY..

•• PUNCHING
DURING
••

*.

.. ....
JOB

••

•

•• NO X

••

.* ••••

·YES

ic

PCHSWT
** ••• F3 ....... *.

IS
*. YES
*
••
OPERATION .* •.•••••• X.
*.
PUNCH .*
*

•*

*.

.•

E5

...x

....

YES ... SYSROR
•••••
EQUAL
•• SYSPCH

:**S!~~.~!~~!~·

....

X

ENDRTN

......
••

: 2

F2

YES

**···E4*·***·.
•
INITIALIZE·
•
SWITCHES TO ...
* EXTRACT OPER- ..
•
ANDS FROM •

·

••• * •••••••• **
••• *

•

·

.* ••••

X

....

it.

'NO

*E3
YB-Gl, F4
YC-Fl,F2

.**.*F 1 ••••• *.
*
SET·
•
CROSWT
*
FOR A
*
•
2540
•*

*

............ !~

I S " ' . NO

SYSPCH
.... A 2540

..

• ••••• 02...........
CANCEL
ERRRTN
TF
••• *03 •••••••••
*.••••••••••
NO
*-*-*-*-*-*-*-*-*
..
SVC 6
..
X
DSPlY
•••••••• x. fETCH $$BCNCl ...

"'.~~LOCAT~2·'"

-.

EOF
ON SYSRDR,
*./* STMNT

NOLIS

*.

.•.ic

.it_.
.*
*.
.* ••••••••••••••••••
.*
*..* •• -

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNC4

READ
SYS OIR

*.

TG

STACKER

SELECT

.**.~!~~~ •• *.

.~2~!~~-.-.-.-!~.

Dl

GET

SVSRQR,

······Cl···········
.*

SS2

TG

READ FROM

X

ROSO

X

··.···85···········
.-.-.-.-.-.-.-.-.

X

GETcn

**81****·*·

.. OPEN ALL •
... FILES USING.

.~..

*.

*.

••

.*

* •••• NO··

•

0

: 3

:

X

..*··.FS.·.·.·*··.*

.~~~~~.-.-.-.-~~.
PUNCH , .

...................
CARD,
SYSPCH

:*E3. ···:X •••••••••• :

·•••it·Gl*·····.···.
~

ROCO

PRTSWT
* • *.
: •• **G3*** •• ** *
IS
•• YES
*
TURN ON
PRINT
*. C;PERATION .* •.•••••• X*
SW
*. DSPLY .*
*
••

*.

·....
..
.......... .
*

•

1

••••
•
.X •••••••••••

.-.-.-.-.-.-.-.-.
••• ;~~~2~ .......

EXTRACT
...
•
OPERATION
•
• FRCM CTRl STMNT •

....

*.

* •••

..

••

·NO

.~.* •

. .
*

*

728

2

•

.

.* ••••

··**·

ic
. .. .•~~~~!~-.-.-*-!~.
. . . ·K2····
. ••••••
OSPLY
HSG

•••• ;~!~2 ••••

·· ..
ic

.***

• 1

** ...

DOS System Control

..

.

.
••• *

•• NO •
•••• X.

••

...

······HS···X . ······•
PSUB2
YK
.-it-._._._._._._.
PUNCH BLANK
•

EXTRCT

CO TO STACK.

..*~:.~!~~

·YB *
* B2*

•••• ~!~~! ••••

..... YES.

.*

x

••• *.

PRINT
CTRL

••••• * •••••••••••

BLANK
STHNT

X

••
IS
••
SYSPCH
•• A 1402

·YES

* ... ·*
... ·J2*···· ... YK
PRTSSK
• _._._it-._*_._*_.

:~~!~~~-.-.-.-r~:

••
••

~.

X

ERILOP

••• ·.Jl· •• • ••••••

.0.x ••

•*

* ••
*
·NO

ic

Kl

* ••
*
·NO

..

.. ..

READ C TRL
STMNT,

..

..
..

GS·"'· ••

... x

H2···..
PPS~! ••• H3 . . . . . . .
••••
•
TURN ON.
•
.*
IS
*. YES
•
PRINT AND.
X
••
OPERATION .* ...•.•.• X.
PUNCH
•••••
*. OS PCH • *
*
SW ITCHES
*

AINITS
X
• ....... ··Hl· ..................... .
GETCn
YA

CPSLSH

..

G2·

CLEAR
PRINT
AREA

...

:x .•....•... :
ENORTl

i

*··*··

JS •••
... "'· •• SVC
14
EOJ

•
•

Chart YE.

..
it

Analyze Control Statement Operands RSERVi Refer
to Service, Chart 49

it...

...

it.

.YA it
it H3*

i

it

*. -1182*"X

EXTRCT
it ..

B4

it • • i t . _ . . .

INITIALIZE
AOOR OF

.it

2

.-.

it.

ALL

• * OPERANDS

OPERAND
SAVE AREA

it •

MOVED TO

it.

....

SAVE

".AREA

NO

it.

..

it . . . . .

.. "
.it

it • • •

.. YES

.
**

:.............................. x:
*GETFLD

**·**C4* ... • .. *****
..

Yl*

STORE"
MARKER AT

i t - i t - i t - it_+_it_it_it_*

..

.. OPERAND FROM

02
.. it

. *.
it.

MAX

....... ............

it.

.it

it.

... CTRl STMNT
.. *.
LENGTH

..

END OF

SAVE AREA

..

:* . ~!~~*;!~~!*.*:

YES

1

X

EXTRTl
X
*it .... *C?* *.;0 ** it ... _._
.. EXTRACT NEXT

x

****

.it

It.

it.

EXCE ED ED .. '"

04·*·
IS
_•
OPERAND
it.
NO
SUFFIX
••••••
.ALl

it.

.*

it.

*NO

it

.it
it • • _

.-

*- F3*-

-II . . . "

.. YES

*

E2"

..

YES.it

.. x...................

•*

X

it.

FIRST

BYTE

.-

···**E4*******
*
TURN ON *
.ALL

BLANK

OR..

..... "
_NO

SWITCH

.."

•

..

: •••••••••••••••••••••••• x:x •••••••••• :
lLOPRD
X
******F 1**** ..
PR TSSK

F2. -It.

*.*.*.
YK

*-*-*-*-*-*-*-*-*
PRINT
CTRL
STMNT

NO.*

•.•• *.

* •• *

******-It******

.*

YD-J4

*.

*.

.*

*.

F4

.*.x

ALL

YES

OPERANDS
PROC

* ••
*
-NO

.*

.*

.* ....

x

*****
*YA •
it G1*

-.

*
ROCD
GZ·

*** ***G 1* **********

. *• *

*~~~~~~-*-*-*-!~*
DSPL Y

*.

IS
OPERAND

ALL

MSG

3RZ1I
*************

ROCD

CPLSOP

YC-K2

*YES

x

*****
*YA *
* G1*

-.
.-

FIRST
OPERAND

*F3

* • *. YES
.* ............................ ..

* ...
*
*NO

:.......... x:

x

**** *H2* **** *****

*

*

MOVE

...

OPERAND

TO SAVE

*

AREA

X

*****H3******-

*

TURN ON

ALL

SW ITCH

•
**

*
****
*************

:x .......................................... :

x

x

.****

****

*
*

2

*
•

-VC -

*

63*

* *

RORDl

Appendix H. Detailed Flowcharts

729

Chart YC.

Read Directory Block and Scan for Module Name
RSERV; Refer to Service, Chart 49

.....
...

- ****

_YB ..

·

.. H3*

- 1

X
·····83··········
·
.................

ROROi
..

GET ACOR

..

..

Of RL DIR

..

..

FROM SYSTEM

..

..

OIR

..

:.......... x:
X
·····C3··········

ROR02
..

INITIALIZE

..

· : 2

..

REGISTER
TO FIRST
ENTRY IN

..
..

: •• ~~.2!~.2~~ ••••

:

:.........• x:

······03···········
tt-.-.-.-.-.-.-+-.
i

RDR04

ROOiSK

ALLSw2
NO.*

••••••••••••••••••••

..

•*

*.

E2

DIR BLOCK

*.

*.

ACTIVE
ENTRIES
tt • •

EOOl

*. *.

* .."

.*

YES.*

•• X..........

.*

*.

.YES

......
Fl···········
•-.-.-.-.-.-tt-.-.
X

ERRR TN

TF

DSPLY

MSG

SOME

F2

•••• ~~~!!* •••

*.

.

ROCO

••••
••
••

G2

.x'.

••

SW

* ...
"
'NO

.' .••
END
OF

•••• NO
..................... .
••

.... ....
BLK

.YES

-NO

• * IS
*..* .ALl
*. tt. ON

.*

x

IS

~

•• -.

**.••
.+
_

F3

ON

-YA ..

.tt. * •

END

OF
OIR

-•

ALL SW

:x ............ :

...... G!*..

.'.x

E3

_NO

*. + •
..*
*. tt • • _ .-

YES .......
•• ••••

..

:..............••.....•.. x:x

ANY

+.

YK

READ Rl

..

x

.."

YES
••••••

.-

•

UPDATE

•
:

Git

•
:

...................

*.

......
H2···········
·-·-OSPLY-MSG-·-·
ERRRTN

:

TF

1

•• YES
..................... .

••

••

'NO

......

X

••

* •••

x

NOTHRi

•••

••
IS
••
ALL SW
••
ON

•

DISK
AODR

ic

.. ..

CHP2

: •••• G3 ••••••••• :

*. *.

TSTDAl

:

x

x

.. .'. -.
.... ....
Hit

H5

••

NO .*
IS
...
••••••••••••••••••••
.ALL SW
••
••
ON
••

3RZ7I

YES

•••••

......
ic

·YES

: 3

:x ..•..•..•. :

··.·.·J2··.···..

iGNORE
•

X

TURN OFF
.ALL

·..............
SWITCH

..

CHPDIR
•

••

x
:*••• K2 •••••••••
:
..
LOOK AT
• NE XT a PERANO

•
•
•

·..................
.....x
...
•

IN SAVE AREA

CPLSOP

• YB •

• F4·

730

DOS System Control

••

••

..

X

J3

•••

••

OPERAND

-.

.. • ••YES..
..••~A!...
.

•• NO

• YO •

PRTHOR

Jit
••
• ·OPERANO-.
•
•• PREFIX SAME •• YES.
••
AS 01 R
••••••

........
. -.....
..... .... .... x.. •
••

ENTRY

••

'NO

•

••• *

3

•

·.····K4···.·.····.
·.................

UPOT3
•

•
•

X

LOOK AT

NEXT OIR
ENTRY

··....x ..
• 2

.. ..........
OELETED

••

'NO

:

.• ::::
•.••.•. x:x
CHP3

.'.x

SAME AS
••••••
..OIR ENTRY ••

.' .••

.* IS ••
•• THI SENTRY ••

•

..

: •••• J5 ••••••••• :
•

SAVE

.-................
.••....xA!•
.
DIRECTORY
ADOR

·YO •

PRTHOR

Chart YD.

Read Blocks from Relocatable Library and
Determine Type RSERV; Refer to Service, Chart 49

*
*

*A2

,

TSTPe!

A1

*.

IS
*_ NO
it.PRINT SWITCH .* .....
ON
.-11-

.. "

.*

A3

A5
.<

IS

YES

.... NO

.*

x

••• *

*YFS

**
*

2

ESC

... COUNT

TO

HEX

YES

BLK

..

-

*
.... *
:*C2

x

-II- it .-II-C 1 it ... * ** **._ ... IIPR TSSK
YK

USE

*, -

.*

TXT

: x................. :
Yt-K,+
YG-J2

. . . . . . . PUNCH SWITCh ."
ON
.-It

* •• -11

03

*02

••
*..

YH-Kl
IN ESD RCO.

•*

*.*it*
*YJ *
* G5it

* *

.YG •
• Al·
TXTPCH

.'. ••
R.LD
BlK

•• YES
... .o.o.o.o

**

***"**E2** .. ********

-It.

CARD *C2

*NO

it***

*

-It*.* i t .

x
F 1.****

• 02.
TSTPRT it

lHl.-It . . .

PCHSUB

YK

*

****
6
*_

•

*

PRTHCN
X
** * **G 1. **** *****

PRTI-1GS

-

F3

••

YES .. *

.'

GZ.*.
IS
BUFFER
EMPTY

•*

.*

.o.

.. *

..

G3

.* .

it.

IS 1ST
BYTE

••

eLANK

••

.... *

PRTHG2
X
*·***H2***····***
..
MOVE 2ND
*
*LOGICAl REC TO *
*BLK, 160 BYTES *

-

H3

.-

*.

*

UPDATE
01 SK
ADOR

•-

.. *

*.***K 1**********

*

MOVE 1ST
*
*LOGICAL REC TO *
:BLK, 160 BYTES:

* .*** •
* 4 •
*
*

x
.*.
*.

SET END
OF MODULE
INDICATION

.*

*NO

·*· .. ·K2**·* .... ** .. *
••

....

-NO

: x................ :
x

- 1

-**.
3

*.
.*

••• *

IS
.AlL SW
ON

EOMTS 1

YES:

• * .....

X

- * ***H5*"* *- * * ***
*
POINT TO
NEXT RL
DIR ENTRY

-

X
*****J4··*····*·*
*
LOOK AT
..
• NEXT OPERAND
..
* IN SAVE AREA *

x

*
*
*.***_.**-*******

TXTPR T

.YB *
* F4*

YES

* •• **
.YC •

* '03-

RDRD4

x

** .. * ..

..

C PlSOP

.o • • • • •

x

it****
*YJ •
* Al- RLOPRT

x

*
*
*

.... it.
.*

.... *

.** ••••• ** ••• ****

*
*

............. x:

.*. ••

*..

.*-**
*YG *
* A4*

RLD
BLK

<

6

* ...
*
*NO

** •• *

*YF ..
* A2*

.<. it.
K3

*.

*YES

*•

....

END OF
MODULE

***.

*
*
***.*
•••••• ***.**

.*

YES

'.

••

*

H4

NO

*.o

*

RESTORE..
NO..
IS
OPERAND FIELD *X •••••••• *. ALL SWiTCH
POI NTER
ON

*

* *

X

*.**

*

•*

YES

.o •

*NO

"YES

X

*

BLK

........

.

x

*
*

*-

*
ESDPRT

.*

'

NO ..

••

* •• *

* .... *

-

*"*·*G4··****·**"
.o

X

END
REC

•

PR THUD

•

................ .oX:
:TSTPCH

* ....

• ... *..

ESO

,*** ***** *** ... * * .. *

*
*

• 5
* •• .o
****.*
X
EOMTS T F5 .......

*.

..

*.

*

·04.
PRTi·**
X
**it •• *E5*** *it *. it •• it
PRTSUB
YK
._*_._*_._it_*_*_*
PRINT BLK
IMAGE

****

: x•• .............. ~

x
••• *. J 1 *** ** ** ***

**
*

.

lAlNTR2

IJBLBE

IJBLBE

MAINTS2

IJBLBF

IJBLBF

RSERV

IJBSL3

IJBSL3

SSERV

IJBSL4

IJBSL4

Autotest Program

ATLEFC7

IJVTC7

IJVTC710

ATLEFDl

IJVTDl

IJVTDllO

ATLEFD2

IJVTD2

IJVTD210

ATLEFEl

IJVTEl

IJVTEllO

ATLEFE2

IJVTE2

IJVTE210

ATLEFFl

IJVTFl

IJVTFllO

ATLEFGl

IJVTGl

IJVTGllO

ATLEFH2

IJVTH2

IJVTH210

ATLEFH3

IJVTH3

IJVTH310

ATLEGOl

IJVTIl

IJVTI110

ATLEJCTV

IJVTJl

IJVTJllO

Program Number 360N-PT-459
BTAM
Core Image
Phase Name

Microfiche
Label

Relocatable
l<1odule Name

$$BATSTl

IJVSSl

IJVSSllO

$$BATST3

IJVSS3

IJVSS310

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

ATLECONT

IJVTAO

IJVTA010

$$ANERR2

$$ANERR2

None

ATLEDT

IJVLE

IJVLE

$$BCTCOl

$$BCTCOl

None

ATLEDT1A

IJVLE

IJVLE

$$BETPRT

$$BETPRT

None

ATLEDT1B

IJVLE

IJVLE

$$BHDRCK

$$BHDRCK

None

ATLEDT1C

IJVLE

IJVLE

$$BLEPRT

$$BLEPRT

None

ATLEDT10

IJVLE

IJVLE

$$BLOPEN

$$BLOPEN

None

ATLEDT12

IJVLE

IJVLE

$$BOTCOl

$$BOTCOl

None

ATLEDT14

IJVLE

IJVLE

$$BTCNCL

$$BTCNCL

None

ATLEDT16

IJVLE

IJVLE

$$BTMEBG

$$BTMEBG

None

ATLEDT18

IJVLE

IJVLE

$$BT1030

$$BT1030

None

* 103A

IJQ03A20

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

ASSEM04

ASSEM04

IJQ04$20

$$BCBLOP

$$BCBLOP

None

ASSEM04A

ASSEM04A

IJQ04A20

$$BCBODA

$$BCBODA

None

ASSEM04B

ASSEM04B

IJQ04B20

$$BCBUSR

$$BCBUSR

None

ASSLMOS

ASSEl.V!OS

IJQ05$20

$$BCBUSW

$$BCBUSW

None

ASSEMOSA

ASSEMOSA

IJQ05A20

None

IHDOOOOO

IHDOOOOO

ASSE:I"i05B

ASSEMOSB

IJQ05B20

None

IHDOOIOO

IHDOO100

ASSEr'106

ASSEM06

IJQ06X20

None

IHDOO200

IHDOO200

ASSEN07

ASSEN07

IJQ07020

None

IHDOO300

IHDOO300

ASSI::N07A

ASSEN07

IJQ07020

None

IHDOO400

IHDOO400

ASSEN07B

ASSEN07

IJQ07020

None

IHDOOSOO

IHDOOSOO

ASSEN07C

ASSEN07

IJQ07020

None

IHDOO600

IHDOO600

ASSEN071

ASSEN07

IJQ07120

None

IHDOO700

IHDOO700

ASSEN08

ASSEN08

IJQ08020

None

IHDOO800

IHDOO800

ASSEN08A

ASSEN08

IJQ08020

None

IHDOO900

IHDOO900

ASSEN08B

ASSEN08

IJQ08020

None

IHDOIOOO

IHDOIOOO

ASSEN08C

ASSEN08

IJQ08020

None

IHD01100

IHDOll00

ASSEN088

ASSEN088

IJQ08X20

None

IHD01200

IHD01200

ASSEN09

ASSEN09

IJQ09020

None

IHD01300

IHD01300

COBOL

758

DOS System Control

Program Number 360N-CB-452

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

None

IHD01400

IHD01400

None

IHD01500

IHD01500

None

IHD01600

IHD01600

None

IHD01700

lriD01700

None

IHD01800

IHD01800

None

IHD01900

IHD01900

None

IHD02000

IHD02000

None

IHD02100

IHD02100

None

IHD02200

IHD02200

None

IHD02300

IHD02300

None

IHD02400

IHD02400

None

IHD02500

IHD02500

None

IHD02600

IHD02600

None

IHD02700

IHD02700

Non€

IHD02800

IHD02800

None

IHD02900

IHD02900

None

IHD03000

IHD03000

None

IHD03100

IHD03100

None

IHD03200

IHD03200

None

IHD03300

IHD03300

None

IHD03400

IHD03400

None

IHD03500

IHD03500

None

IHD03600

IHD03600

None

IHD03700

IHD03700

COBOL

IJSCBLOl

IJSCBLOl

COBOLOOO

IJSCBL02

IJSCBL02

COBOLOOO

IJSCBL03

IJSCBL03

COBOLOOl

I JSCBLO4

IJSCBL04

COBOLOOl

I JSCBLO5

IJSCBL05

COBOLOO2

I JSCBLO6

IJSCBL06

COBOLOO3

I JSCBLO 7

IJSCBL07

COBOLOO4

IJSCBL08

IJSCBL08

COBOLOO5

IJSCBL09

IJSCBL09

COBOLOO6

IJSCBL10

IJSCBL10

COBOLOO7

IJSCBLll

IJSCBLll

COBOLOO8

IJSCBL12

IJSCBL12

COBOLOO9

IJSCBL13

IJSCBL13

COBOL010

IJSCBL14

IJSCBL14

COBOL011

IJSCBL15

IJSCBL15

COBOL012

IJSCBL16

IJSCBL16

COBOL013

IJSCBL17

IJSCLB17

COBOL014

IJSCBL18

IJSCBL18

COBOL015

IJSCBL19

IJSCBL19

COBOL016

IJSCBL20

IJSCBL20

COBOL017

IJSCBL21

IJSCBL21

COBOL018

IJSCBL22

IJSCBL22

COBOL019

IJSCBL23

IJSCBL23

COBOL020

IJSCBL24

IJSCBL24

COBOL021

IJSCBL25

IJSCBL25

COBOL022

IJSCBL26

IJSCBL26

COBOL023

IJSCBL27

IJSCBL27

COBOL024

IJSCBL28

IJSCBL28

COBOL025

IJSCBL29

IJSCBL29

COBOL027

IJSCBL31

IJSCBL31

COBOL028

IJSCBL32

IJSCBL32

COBOL028

IJSCBL33

IJSCBL33

COBOL029

IJSCBL34

IJSCBL34

COBOL030

IJSCBL35

IJSCBL35

COBOL031

IJSCBL36

IJSCBL36

COBOL032

IJSCBL37

IJSCBL37

COBOL033

IJSCBL38

IJSCBL38

COBOL034

IJSCBL39

IJSCBL39

COBOL035

IJSCBL40

IJSCBL40

COBOL036

IJSCBL41

IJSCBL41

ICOBOL037

IJSCBL42

IJSCBL42

COBOL038

IJSCBL43

IJSCBL43

Appendix I:

Microfiche Index

759

Core Image
Phase Name

Microfiche
Label

f<.elocatable
Module Name

COBOL039

IJSCBL44

IJSCBL44

COBOL040

IJSCBL45

IJSCBL45

COBOL041

IJSCBL46

IJSCBL46

COBOL042

IJSCBL47

IJSCBL47

COBOL043

IJSCBL48

IJSCBL48

COBOL044

IJSCBL49

IJSCBL49

COBOL050

IJSCBL50

IJSCBL50

DEBUG

IJSCBL60

IJSCBL60

FORTRAN IV

None

IJTFXIT

IJRFXIT

None

IJTHEXC

IJTHEXC

None

IJTIFIX

IJTIFIX

None

IJTLEXP

IJTLEXP

None

IJTLLOG

IJTLLOG

None

IJTLSCN

IJTLSCN

None

IJTLSQT

IJTLSQT

None

IJTLTAN

IJTLTAN

None

IJTLTNH

IJTLTNH

None

IJTMAXD

IJTMAXD

None

IJTMODI

IJTMODI

None

IJTMODR

IJTMODR

None

IJTOVRF

IJTOVRF

None

IJTSINT

IJTSINT

None

IJTSLIT

IJTSLIT

None

IJTSLOG

IJTSLOG

None

IJTSMXO

IJTSMXO

None

IJTSMX1

IJTSMX1

None

IJTSSCN

IJTSSCN

None

IJTSSQT

IJTSSQT

None

IJTSTAN

IJTSTAN

None

IJTSTNH

IJTSTNH

Program Number 36 ON- FO-4 51
Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

None

IJTAAFR

IJTAAFR

None

IJTACOM

IJTACOl"l

None

I JTAC ON

IJTACON

None

IJTADIR

IJTADIR

None

IJTADXD

IJTADXD

None

IJTADXI

IJTADXI

None

IJTAIXI

IJTAIXI

None

IJTAPST

IJTAPST

None

IJTARBE

IJTARBE

None

IJTARXI

IJTARXI

None

IJTARXR

IJTARXR

None

IJTDVCK

IJTDVCK

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

None

IJTEXPN

IJTEXPN

None

IJNVBL

IJNVBL

None

IJTFDMP

IJTFDMP

None

IJNVCT

IJNVCT

None

IJTFIOS

IJTFIOS

None

IJNVER

IJNVER

FORTRAN

IJTF01

IJTF01

None

IJNVIO

IJNVIO

FORTREL

IJTF02

IJTF02

None

IJNVLI

IJNVLI

FORTRGE

IJTF03

IJTF03

None

IJNVLO

IJNVLO

FORTRPU

IJTF04

IJTF04

None

IJNVUP

IJNVUP

Vocabulary File Utility

760

DOS System Control

Program Number 360N-UT-472

Utilities Group 1 (Unit Record and Disk)

Utilities Group 2 (Tape)

Program Number 360N-UT-461

Program Number 360N-UT-462

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

CDDK

IJwCD1

IJWCD1

CDTP

IJWCT1

IJWCT1

CDDK2

I JWGEN

I JWGEN

CDTP2

IJWGEN

IJWGEN

CDDK3

I JWCD 3

IJWCD3

CDTP3

IJWCT3

IJWCT3

CDDK4

IJWCD4

IJWCD4

CDTP4

IJWCT4

IJWCT4

CDDKS

I JWLAB

IJWLAB

CDTPS

IJWLAB

IJWLAB

CDPP

IJWCP1

IJWCP1

DCTP

IJWMT1

IJWMT1

CDPP2

IJWGEN

IJWGEN

DCTP2

IJWGEN

IJWGEN

CDPP3

IJWCP3

IJWCP3

DKTP

IJWDT1

IJWDT1

CDPP4

IJWCP4

IJWCP4

DKTP2

IJWGEN

IJWGEN

CDPPS

IJWLAB

IJwLAB

DKTP3

IJWDT3

IJWDT3

CLRDSK

IJWCLD

IJWCLD

DKTP4

IJWDT4

IJWDT4

CLRD2

IJWCLD2

IJWCLD1

DKTPS

IJWLAB

IJWLAB

CLRD3

I JWCLD3

IJWCLD2

TPCD

IJWTC1

IJWTC1

DKCD

I JWDC 1

IJWDC1

TPCD2

IJWGEN

IJWGEN

DKCD2

IJWGEN

IJWGEN

TPCD3

IJWTC3

IJwTC3

DKCD3

IJwDC3

IJWDC3

TPCD4

IJWTC4

IJwTC4

DKCD4

IJwDC4

IJWDC4

TPCDS

IJWLAB

IJwLAB

DKCD5

IJwLAB

IJWLAB

TPCP

IJWTCP

IJwTCP

DKDK

IJWDD1

IJWDD1

TPCP2

IJWTCP2

IJwTCP2

DKDK2

IJwGEN

IJWGEN

TPCP3

IJWTCP3

IJWTCP3

DKDK3

IJWDD3

IJWDD3

TPDC

IJWTM1

IJWTMl

DKDK4

IJWDD4

IJWDD4

TPDC2

IJWGEN

IJWGEN

DKDK5

I JWLAB

IJWLAB

TPDK

IJWTD1

IJWTD1

DKPR

IJWDP1

IJWDPl

TPDK2

IJWGEN

IJWGEN

DKPR2

IJWGEN

IJWGEN

TPDK3

IJwTD3

IJwTD3

DKPR3

IJwDP3

IJWDP3

TPDK4

IJWTD4

IJwTD4

DKPR4

IJWDP4

IJWDP4

TPDK5

IJWLAB

IJwLAB

DKPR5

IJWLAB

IJWLAB

TPPR

IJwTP1

IJwTP1

Appendix I:

Microfiche Index

761

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

DCDC

IJWMMl

IJWMMl

TPPR2

IJWGEN

IJWGEN

DCDC2

IJWGEN

IJWGEN

TPPR3

I JWTP 3

IJWTP3
DCDC3

IJWDD3

IJWDD3

TPPR4

I JWTP 4

IJWTP4
DCDC4

IJWDD4

IJWDD4

TPPRS

I JWLAB

IJWLAB
DCDCS

IJWLAB

IJWLAB

TPTP

I JWTTl

IJWTTl
DCDK

IJWMDl

IJWMDl

TPTP2

I JWGEN

IJWGEN
DCDK2

IJWGEN

IJWGEN

TPTP3

IJWTT3

IJWTT3
DCDK3

IJWDD3

IJWDD3

TPTP4

IJWTT4

IJWTT4
DCDK4

IJWDD4

IJWDD4

TPTPS

IJWLAB

IJWLAB
DCDKS

IJWLAB

IJWLAB

DCPR

IJWMPl

IJWMPl

DCPR2

IJWGEN

IJWGEN

DCPR3

IJWDD3

IJWDD3

Utilities GrouE 3 (Data Cell)
Program Number 360N-UT-463

DCPR4

IJWDD4

IJWDD4

Core Image
Phase Name

Microfiche
Label

Relocatable
Module Name

DCPRS

IJWLAB

IJWLAB

CLDC

I JWCLMl

IJWCLMl

DKDC

IJWDMl

IJWDMl

CLDC2

IJWGEN

IJWGEN

DKDC2

IJWGEN

IJWGEN

CLDC3

IJWDD3

IJWDD3

DKDC3

IJWDD3

IJWDD3

CLDC4

IJWDD4

IJWDD4

DKDC4

IJWDD4

IJWDD4

CLDCS

IJWLAB

IJWLAB

DKDCS

IJWLAB

IJWLAB

762

DOS System Control

GLOSSARY

active: Any loaded program ready for
execution.

controls more than one program
simultaneously by interleaving their
execution.

attention routine: System routine activated
by pressing the SYSLOG request key.
background program: In multiprogramming,
the program with lowest priority.
Background programs execute from a stacked
job input.
BG: Background program.
F1: Foreground Program One.
Highest priority' user program.
F2: Foreground Program Two.
Second highest priority user program.
foreground initiation: A set of system
routines to process operator commands for
initiating a foreground program.
foreground program: In multiprogramming,
the program with the highest priority.
Foreground programs do not execute from a
job stack.
inactive 1.
2.

A program not loaded in the
system is inactive.
A loaded program not ready
for execution.

MPS: Multiprogramming System.
multiprogramming system: A system that

problem program: Any program invoked by an
EXEC statement.
(This is a general
definition. The specific definition for
use with this manual is found in Section
1.)

self-relocating program: A program able to
run in any area of storage by having an
initialization routine to modify all
address constants at object time.
SYSIN: Name used when SYSRDR and SYSIPT are
assigned to the same input device by one
control statement. The assignment can be
either standard or temporary.
SYSOUT: Name used when SYSLST and SYSPCH
are assigned to the same tape file.
This
can only be a standard assignment.
Separate file operation is re-established
by submitting a standard ASSGN for either
SYSLST or SYSPCH to a unit not currently in
use by the combined file. A CLOSE command
may be used to perform this fUnction.
system inquiry: The function of
operator-initiated communication to a
problem program.
task selection: The supervisor mechanism
for determining which program should gain
control of CPU processing.

Glossary

763

INDEX

Abbreviations, Flowch~\rt
257
Add Routine
77
Additional Features
24
A-Transient Programs
90, 106
Attention Routines
Nonresident ' 12~, 127
Physical
107
Auto link
148
Background vs. Foreground Programs
Batch Job Support (BJS)
90
Book Header Card Format
169
B-Transient Grouping
Initiation
125
Termination
126
B-Transient Programs
90, 125

23

Cancel Code Messages
131
Cancel Codes
97
Calculation of ESID.Numbers in
MAINTR2
167
Card Format, Book Header
169
Catalog Core Image Library Phase
143
CAW (Channel Address Word)
97, 103, 119
CCB (Command Control Block)
52, 97,
98, 119

CCW (Channel Command Word)

71, 73,

97, 100

Channel Status Word (CSW)
97, 104
CHANQ (Channel Queue)
52, 59, 60, 64,
92, 106

CHANQ Table Operation, Example of
97
Codes
Device Type
70
Supervisor Cancel
97
97, 98
Command Control Block
Common Library Maintenance Program
29, 157
Communication Area, Interphase
108
Communication Region, Supervisor
55-59
Components
26
Condense Control Statements
175
Configuration
24
Control Center, System
59
Control Dictionary
146
Control Dictionary/Linkage Table
147
Control Statements
Condense
175
Core Image Library Maintenance
160
DSERV
184
Reallocation
171
Relocatable Library Maintenance
162
RSERV
187
Source Statement Library
Maintenance
169
Control System, Physical Input/Output
97
181
Copy Statement Formats
Copy System Program
179
Control Statements Acceptable
180
I/O Assignments
179
Job Control Statements Required
180
Core Image Library Directory
27, 32,
37, 181, 184
764

DOS System Control

Core Image Directory Format
39
Core Image Library
27, 32, 40, 181, 184
Core Image Library Format
40
Core Image Library Maintenance Control
Statements
160
Core Image Maintenance Program
29, 160
CORGZ I/O Flow
180
CORGZ Storage Map
179
CSW (Channel Status Word)
97, 104
CSW Testing in the I/O Interrupt
Processor
105
Data File Block Format
194
Definitions of Program Keys
PIK, LTK, RIK, and FIK
269
Delete Routine
77
Density Data
70
Description of ESD Processing
263
Description of Flowchart Symbols
260
Detail Flowcharts
271
Devices
I/O
25
System I/O
25
Device Error Recovery, Unit Record Devices
Supported by
108
Device Type Codes
70
DFB Format
194
DIB (Disk Information Block)
52, 59, 67,
224, 229
DIB Table
67
Dictionary, Control
146
Directory
Core Image Library
27, 32, 37
Foreground Program
27, 32, 36
Library Routine
27, 32, 35
27, 32, 35
Open
Phase
27, 32, 37
Relocatable Library
27, 32, 40
Source Statement Library
27, 32, 43
System
27, 32, 35
Transient
27, 32, 35
Directory Format
Core Image
39
Relocatable Library
41
Source Statement Library
44
Directory Service Program
31, 184
Disk Information Block
52, 59, 67, 224,
229
DOS Supervisor Calls
95
DSERV Control Statements
184
ERBLOC (See Error Recovery Block)
ERP (See Error Recovery Procedures)
Error Block, Tape (TEB)
52, 53, 55, 59,
60,61,63,223
Error Message Cross Reference
266
Error Recovery
1052
109
1285
115
1403-1443
109
1442
110
2311
112

2321
113
2400
108
2501, 2520, 2540
110
2671
111
Error Recovery Block
106
Error Recovery Procedures
97, 107, 108
ESD Processing, Description of
263
ESD Records, Relocatable Format of
164
ESD Types
142, 147, 263
ESID Numbers in MAINTR2, Calculation
of
167
Example of Autolink with LIOCS
148
Example of CHANQ Table Operation
97
Examples for Nonresident Attention
Request, LISTIO
128
Example of PLM Usage
4
External Interrupt
96
FAVP (First Available Pointer)
55,
60, 222
Features, Additional
24
55, 60
FICL (First in Class List)
FIK (Fetch I/O Key)
269
Flowcharts, Detail
271
Flowchart Abbreviations
252
Flowchart Symbols, Description of
260
FLPTR (Free-List Pointer)
60, 64, 92, 97
FOCL (First on Channel List)
60, 72,
75, 191, 192, 193
Foreground Initiator
125
Foreground Program Directory
27, 32,
36, 177
Formats
Book Header Card
169
Copy Statement
181
DFB (Data File Block)
194
Directory (See Directory Format)
Library (See Library Format)
Phase Vector Table Entry
197
Record (See Record Formats)
Generation, Supervisor
Global Settings
51
Glossary
763
Header Card Format, Book

46

169

Information Blocks and Other Tables
52
Initial Program Load Program (See IPL)
Initiation (B-Transient Grouping)
125
Initiator Phase Map
129
Interphase Communication Area
108
Interrelation, I/O Table
60
Interrupt
External
96
I/O
96
Machine Check
96
Program Check
96
Supervisor Call
90, 95
I/O Devices
25
I/O Error Recovery Procedures and Sense
Data
108
I/O Flow
CORGZ Program
180
Linkage Editor Program
146
System Programs
26
I/O Interrupt
96

I/O Interrupt Processor, CSW Testing
in the
105
I/O Tables
52
I/O Table for One-Device System
72
I/O Table for Two-Device System
72
I/O Table Interrelation
60
IPL (Initial Program Load)
27, 32, 35, 71
IT Option Table
69, 92
JIB (Job Information Block)
53, 55, 59,
60, 195, 199, 201, 204, 214, 217, 218,
219, 222
JIB Table
68, 218
Job Control Programs
72, 79
Job Control Storage Allocation
79
Job Control Switches
195
Label List
191
Label Storage Area (Volume Area)
27
Language Translator Modules
142
Last-In-First-Out List (LIFO)
232
Librarian Area
27, 32, 37
Librarian Maintenance Programs
29, 157
Librarian Organization Program
30, 179
Librarian Programs
28
Librarian Service Proqrams
31, 184
Library
Core Image
27, 40
Re1ocatab1e
27, 42
Source Statement
27, 43
Library Condense Program
30, 175
Library Format
Core Image
40
Re1ocatab1e
42
Source Statement
45
Library Routine Directory
27, 32, 35, 177
LIFO (Last-In-First-Out)
232
Linkage Editor ESD Processing
263
Linkage Editor Fundamental
Calculations
148
Linkage Editor I/O Flow
146
Linkage Editor Key Concepts
Control Dictionary
146
Example of Auto1ink with LIOCS
148
Linkage Editor Fundamental
Calculations
148
Linkage Table
146
Overhead Processor
146
Use of Auto1ink Feature
148
Use of Linkage Table and Control
Dictionary
147
Linkage Editor Map
241
Linkage Editor Program
28, 142
Linkage Editor Program Flow
143
Linkage Editor Storage Map
For 14K or less than 14K available
main storage
144
For 14K or more than 14K available
main storage
145
LISTIO Examples for Nonresident
Attention Request
128
LISTIO Printout, Sample
261, 262
Low Core
51
LUB (Logical Unit Block)
52, 53, 59, 60,
75, 97, 133, 199, 200, 201, 202, 217,
218, 219, 223
LUB Table
62, 72, 193, 204, 218

Index

765

LUBID Table
59, 60, 64, 97
LTK (Logical Transient Key)

59, 230, 269

Machine Check Interrupt
96
Macro Functions
50
Macro Relationships
50
Macros, Supervisor Generation
47
Main Storage Organization,
Multiprogram
131
MAINTA Reallocation Table
172
Maintenance Programs, Library
28, 157
Common
29, 157
Core Image
29, 160
Relocatable
29, 162
Source
29, 169
Maintenance Storage Map 158
Map
Initiator Phase
129
Linkage Editor
241
Phase (See Phase Map)
Storage (See Storage Map)
Terminator Phase
130
Ma~, IPL Main Storage
73
MAP output
127
Messages, Cancel Code
131
Message Cross Reference, Error
266
Message Writer
107
Method Used by MAINTA to Reallocate
SYSRES
173
Microfiche Index Cross-Reference List
750
Assembler
758
Autotest
753
BTAM
753
COBOL
758
Compiler I/O Modules
755
FORTRAN IV
760
MPS Utilities
754
Report Program Generator (RPG)
757
Sort/Merge (Disk)
754
Sort/Merge (Tape)
755
System Control/IOCS
750
Utilities
Data Cell
762
Tape
761
Unit Record and Disk
761
Vocabulary File
760
Minimum Requirements
24
Module in the Relocatable Library
163
Module Phase Relationship
142
Multiprogramming
23
Multiprogram Main storage Organization
131
Multiprogramming Support (MPS)
90
MVCOM Macro
91
NICL (Number-in-Class List)
55, 60, 224
Nonresident Attention Request, LISTIO
Examples for
128
Nonresident Attention Routines
125, 127
Nucleus Code
52
OC Option Table
69, 93, 135, 222
One-Device System, I/O Table for
72
Open Directory
27, 32, 35, 177
Operating System, Purpose of
24
Option Tables
69
Organization (of Supervisor)
51
Organization Programs
30
766

DOS System Control

Organization, System Residence
Output, MAP
127
Overhead Processor
146

32, 33

PC Option Table
69, 92, 222
PERIDA Layout
232
Phase Directory
27, 30, 37
Phase Map
Initiator
129
Terminator
130
Phase Vector Table Entry Format
197
Phases
Program
Detail
Label
Chart(s)
Chart(s)
Name
Text
List
74
270
$$A$IPLA
71
19l
270
$$A$IPLI
191
74
71
$$A$IPL2
74
271-277
191
71
$$A$SUPI
28,90 116-121
386-431
206
$$ANERRA
107
122
432,433
208
122
$$ANERRB
107
434,435
209
122
$$ANERRD
107
436,437
209
122
$$ANERRE
107
438-440
209
122
441-443
209
$$ANERRF
107
122
$$ANERRG
444-446
107
210
$$ANERRH
122
447
107
210
448
$$ANERRI
122
107
210
122
449,450
210
107
$$ANERRJ
210
107
122
451
$$ANERRK
439
209
$$ANERRL
107
122
107
123
$$ANERRM
452
211
107
123
$$ANERRN
453,454
211
107
$$ANERRO
123
455
211
107
$$ANERRP
211
123
456
107
$$ANERRQ
457,458
211
123
$$ANERRR
459
107
211
123
123
460
$$ANERRS
212
107
122
461,462
$$ANERRU
212
107
212
$$ANERRV
107
122
463,464
212
107
$$ANERRX
122
465,466
470,471
124
$$ANERRY 91,107
213
$$ANERRZ 91,107
124
472,473
213
124
$$ANERRO 91,107
474,475
213
$$ANERRI 91,107
None
476
213
$$ANERR9
107
122
467-469
212
$$BATTNA
215
125
132
477-480
481,482
$$BATTNB
215
125
135
$$BATTNC
125
135
483,484
215
125
135
$$BATTND
485-487
216
125
136
$$BATTNE
488,489
216
$$BATTNF
136
490,491
125
216
125
136
$$BATTNG
492
217
125
136
493,494
$$BATTNH
217
125
133
$$BATTNI
495-506
217
532-534
125
507-512
134
$ $ BAT TNJ
219
$$BATTNK
125
134
513-520
219
134
521-525
220
$$BATTNL
125
134
$$BATTNM
526-530
125
221
136
125
$$BATTNN
531
221
138
$$BDUMP
125
554,555
226
125
140
$$BDUMPB
560-564
228
$$BDUMPD
125
140
565-568
229
$$BDUMPF
140
226
125
556-559
92,125
137
535-537
221
$$BEOJ
$$BEOJI
125
138
543,544
224
139
$$BEOJ2
125
545,54'6
224
$$BEOJ3
77,91,
137
538
222
92,125

Program
Detail
Label
Text
Chart(s) Chart(s) List
Name
125
139
547-549
$$BILSVC
80
83
381-385
206
$$BLSTIO
$$BOPNLB
None
None
185
None
$$BPCHK
552,553
225
125
139
$$BPDUMP
141
569
230
125
$$BPDUMI
125
570-573
141
230
550,551,574 225
125
$$BPSW
138
569
$$BSYSWR
125
None
None
$$BTERM
125
137
539-541
222
$IPLRT2
278-292
75
78
192
$JOBCTLA 27,79
81
293-303
193
$JOBCTLD 27,79
82,83
304-339
197
$JOBCTLG 27,80
84-86
340-362
242
$JOBCTLJ 27,80
204
87-89
363-380
233
$LNKEDT
149
143
575-592
236
$LNKEDTO
143
150
593-601
237
$LNKEDT2
602-609
143
151
238
$LNKEDT4
143
152
610-616
$LNKEDT6
239
153
143
617-623
239
$LNKEDT8
154
143
624-627
242
628-633
$LNKEDTA
143
155
$LNKEDTC
634-636
143
156
243
$MAINEOJ 30,177
251
691-695
178
CORGZ
177,179 182,183
251
696-715
179,181
182
252
CORGZ2
716-718
31,184
DSERV
252
719-727
186
MAINT
29,157
244
637-644
159
MAINTA
30,157,
174
248
672-683
171
MAINTCL
30,157,
178
690
250
177
MAINTCN
30,157,
684-689
250
176
175
MAINTC2
30,157,
161
645,646
245
160
MAINTR2
29,157,
168
647-658
245
162
MAINTS2
30,157,
170
659-671
247
169
RSERV
31,187
188
728-738
254
SSERV
31,189
190
739-749
255
Physical Attention Routines
107
Physical Input/Output Control System
(PIOCS)
97
Physical Transient Programs ($$A)
106
PIB (program Information Block)
52, 55,
58,116,132,205,213,223
PIB Table
65, 66, 96, 216
PIK (Program InterrUpt Key)
46, 59,
116, 269
PIOCS (Physical Input/Output Control
System)
93
PLM Usage, Example of
4
Printout, Sample LISTIO
261, 262
Procedure, Task Selection
96
Processing, Description of ESD
263
Processing Programs
31
Program
A-Transient
90
B-Transient
90
Background vs. Foreground
23
Common Library Maintenance
29, 158
Copy System
179
Core Image Maintenance
29, 160
Directory Service
31, 184
Initial Program Load
27, 32, 35, 71

-us

Job Control
27
Librarian
28
Librarian Maintenance
29, 157
Librarian Organization
30, 179
Librarian Service
31, 184
Library Condense
30, 175
Linkage Editor
28, 142
Maintenance
29
Organization
30
Physical Transient
106
Processing
31
Relocatable Library, Maintenance
29,
162
Relocatable Library Service
31, 187
Service
31
Set Condense Limits
30, 177
Source Statement Library
Maintenance
30, 169
Source Statement Library Service
31, 189
Store Condense Limits
30
Supervisor Control
28, 90
System Control
27, 71
System Reallocation
30, 171
Terminator
125, 126
Update Transient, Foreground Program,
Open and Library-Routine
Directories
30, 177
Program Check Interrupt
96
Program Flow, Job Control
79
Program FloW, Linkage Editor
142
Program Keys (PIK, LTK, RIK, and FIK)
269
PSW (Program Status Word)
71, 73, 90,
97, 102
PUB (Physical unit Block)
52, 53, 59,
60, 75, 97, 119, 133, 192, 193, 200, 201,
205, 214, 217, 219
PUB Table
61, 72, 76, 192, 193, 223
Reallocation Control Statements
171
Reallocate SYSRES, Method Used by
MAINTA to
173
Record Formats
System Directory
36
System Work Area
38
Relationship, Module Phase
142
Relocatable Format of
ESD Records
164
RLD Records
166
TXT Records
165
27, 32, 42, 187
Relocatable Library
27, 32, 40
Relocatable Library Directory
41
Relocatable Library Directory Format
42
Relocatable Library Format
Relocatable Library Maintenance Control
Statements
162
Relocatable Library Maintenance
Program
29, 162
Relocatable Library, Module in the
163
Relocatable Library Service Program
187
REQID Table
58, 60, 64, 97
Requirements, Minimum
24
Residence, System
27
Resident Supervisor
28, 90
RID (Requestor Identification)
64, 97
RIK (Requestor I/O Key)
106, 269
RLD Records, Relocatable Format
166
Routine
Index

767

Add
77
Delete
77
Nonresident Attention
127
Physical Attention
107
Set
77
RSERV Control Statements
187
Sample LISTIO Printout
261, 262
Sense Data, I/O Error Recovery
Procedures and
108
Service Programs
31, 184
Set Condense Limits Program
30, 177
Set Routine
77
Settings, Global
51
Source Statement Library
27, 33, 43
Source Statement Library Directory
27,
33, 43
Source Statement Library Directory
Format
44
Source Statement Library Format
45
Source Statement Library Maintenance
Control Statements
169
Source Statement Library Maintenance
Program
30, 169
Source Statement Library Service Program
(SSERV)
31, 189 .
Status Report, System
185
Store Condense Limits Program
30
Stor~ge Allocation
Job Control
79
Supervisor
54
Storage Map
CORGZ
179
IPL Main
73
Linkage Editor (Less than 14K available
main storage)
144
Linkage Editor (More than 14K available
main storage)
145
Maintenance
158
structure (Description of Manual)
5
Supervisor
27, 71
B-Type Transient Programs
125
Call Interrupt (SVC)
90
Calls, DOS
95
Cancel Codes
97
Communication Region
55-59
Control Programs
27, 90
Generation
46
Generation Macros
47
Interrupt Processors
90
Nucleus (Resident)
28
Organization
51
Storage Allocation
54
Transient (Non-Resident)
28
Support
Batch Job
90
Multiprogramming
90
SVC 0
90
SVC 1
90
SVC 2
90
SVC 3
91
SVC 4
91
SVC 5
91
SVC 6
91
SVC 7
91
SVC 8
92
SVC 9
92
SVC 10
92
768

DOS System Control

SVC 11
92
SVC 12
92
92
SVC 13
SVC 14
92
SVC 15
92
SVC 16-21
92
SVC 22
93
SVC 23
93
SVC 24
93
SVC 25
93
94
SVC 26
SVC 27
94
System Control Center
52, 59
System Control Programs
27, 71
Symbols, Description of Flowchart
260
System Directory
27, 32, 35
System Directory Record Formats
36
System I/O Devices
25
System I/O Flow
26
System Reallocation Program
30, 171
System Residence
27
System Residence Organization
32, 33
System Status Report
185
System Work Area (Librarian Area)
27,
32, 37
System Work Area Record Formats
38
Tables
CHANQ
64
Control Dictionary/Linkage
147
DIB
67
Information Blocks
52
Interval Timer ·69, 92
I/O
52
JIB
68, 218
LUB
62, 72, 193, 204, 218
LUBID
59, 60, 64, 97
MAINTA Reallocation
172
69, 93,
Operator Communications
135, 222
Option
69
Phase Vector
196, 197
PIB
65,66,96,216
Program Check
69, 92, 222
PUB
61, 72, 76, 192, 196, 223
REQID
58,60,64,97
197
Table Entry Format, Phase Vector
60
Table Interrelation, I/O
96
Task Selection Procedure
52, 53, 55, 59,
TEB (Tape Error Block)
60, 61, 63, 223
TECB (Timer Event Control Block)
93
Telecommunications
24, 93
Termination (B-Transient Grouping)
126
Terminator Phase Map
130
Testing in the I/O Interrupt Processor,
CSW
105
Transient Areas
53
27, 32, 35, 71, 177
Transient Directory
Transient Programs
Physical ($$A)
28, 90, 106
Supervisor B-Type
28, 90, 125
Translator Modules, Language
142
72
Two-Device System, I/O Table for
TXT Records, Relocatable Format of
165
Unit Record Devices Supported by Device
Error Recovery
108

Usage, Example of PLM
4
Use of Autolink Feature
148
Use of Linkage Table and Control
Dictionary
14 7
Update Sub-Directories Program
30, 177
Update Transient, Foreground Program,
Open and Library-Routine Directories
Program (See preceding entry)

Volume Area (Label Storage Area)
WAIT Macro
Work Area,
Word
Channel
Channel
Channel
Program

87
System

27

27, 32, 37

Address, CAW
Command, CCW
Status, CSW
Status, PSW

97, 103
97, 100
97, 104
97, 102

Index

769

Y24·5017·2

International Business Machines Corporation
Data Processing Division
112 East Post Road, White Plains, N.Y. 10601
[USA Only]
IBM World Trade Corporation
821 United Nations Plaza, New York, New York 10017
[International]

READER'S COMMENT FORM

IBM System/360
Disk Operating System
System Control

Y24-50l7-2

•

Your comments, accompanied by answers to the following questions, help us produce better
publications for your use. If your answer to a question is "No" or requires qualification,
please explain in the space provided below. All comments will be handled on a non-confidential basis. Copies of this and other IBM publications can be obtained through IBM
Branch Offices.

•
•

Does this publication meet your needs?
Did you find the material:
Easy to read and understand?
Organized for convenient use?
Complete?
Well illustrated?
Written for your technical level?

.,
•
•

Yes

No

c::J

c::J

c::J
c::J
c::::J
c::J
c::J

c::J
c:::J
c:::J
c:J
c:J

What is your occupation? _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __
How do you use this publication?
As an introduction to the subject?
c::J
As an instructor in a class? c::J
For advanced knowledge of the subject?
c::::J
As a student in a class?
c::J
For information about operating procedures? c::::J
As a reference manual?
c::J
Other _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __

•

Please give specific page and line references with your comments when appropriate.

COMMENTS:

•

Thank you for your cooperation.

No postage necessary if mailed in the U. S. A.

Y24·5017·2

YOUR COMMENTS, PLEASE
This publication is one of 'a series that serves as a reference source for systems
analysts, programmers, and operators of IBM systems. Your answers to the questions on the back of this form, together with your comments, help us produce
better publications for your use. Each reply is carefully reviewed by the persons
responsible for writing and publishing this material. All comments and suggestions become the property of IBM.
Please note: Requests for copies of publications and for assistance in using your
IBM system should be directed to your IBM representative or to the IBM sales
office serving your locality.

Fold

Fold

-----------------------------------------------------------FIRST CLASS
PERMIT NO. 170
ENDlcon, N. Y.

BUSINESS

.

REPLY MAIL

c:

NO POSTAGE NECESSARY IF MAILED IN THE UNITED STATES

~

CI

c:
o

..

<
POSTAGE WILL BE PAID BY •••

:>

U

IBM Corporation
P. O. Box 6
Endicott, N. Y. 13760
Attention:

Programming Publications, Dept. 157

-------- .... --------------------------------------------------Fold

Fold

International Business Machines Corporation
Data Processing Division
112 East Post Road, White Plains, N.Y.10S01
[USA Only)
IBM World Trade Corporation
'21 United Nations Plaza, New York, New York 10017
'terna tional)

: sluaUIllio:) pmomppv



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 2013:07:17 18:44:37-08:00
Modify Date                     : 2013:07:17 19:49:53-07:00
Metadata Date                   : 2013:07:17 19:49:53-07:00
Producer                        : Adobe Acrobat 9.55 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:b1f347bf-ca1e-f044-a3d9-480d63720c50
Instance ID                     : uuid:fbcd762c-fd39-b24d-b894-cbf42e8c400e
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 772