R20 4067 0_System_360_Operating_System_Workshop_Education_Guide_1967 0 System 360 Operating Workshop Education Guide 1967
R20-4067-0_System_360_Operating_System_Workshop_Education_Guide_1967 R20-4067-0_System_360_Operating_System_Workshop_Education_Guide_1967
User Manual: R20-4067-0_System_360_Operating_System_Workshop_Education_Guide_1967
Open the PDF directly: View PDF 
.
Page Count: 586
| Download | |
| Open PDF In Browser | View PDF |
IBM
System/360
Operating System Workshop
Educati on Guide
Education Development - Poughkeepsie, New York
Copies of this publication can be obtained through IBM Branch Offices.
Address comments concerning the contents of this publication to:
IBM DPD Education Development, Education Center, Poughkeepsie, New York
@ 1966, International Business Machines Corporation
.........oc:
u
::t
"'CI
o
.....'-t
.....c:
Section 1
I NTR ODUCT ION
The System/360 Operating System Workshop is designed to be used for teaching systems
programmers how to extend the facilities of the operating system by including several types of
user routines.
This education guide is written to be used by an instructor experienced in teaching operating
systems coding. It is important that the students have an opportunity to do the class problems
and run these problems on the System/360.
This guide is organized into 9 topics. Each topic except Topic I is designed to be approximately
one half of a customer student day,. Topic I {Internal Logic Flow} is designed to be a full
customer student day in length.
1•1
Section 2
Course Description
SYSTEM/360 os WORKSHOP
Course Code
H3660 63*
(P-3684)
Provided for Systems or lead programmers who need to know the requirements for extending the capabilities of the 360
Operating System.
Objectives Upon successful completion of each of the topics
listed below the student will be able to:
1.
2.
3.
*
Internal Logic Flow of
as:
a.
Explain the general logic flow of the
Operating System.
b.
Define and explain the internal logic of
the major components and their subprograms
in the system.
c.
Identify and define the prime system control blocks.
Execute Channel Program (EXCP Macro):
a.
Write programs utilizing the EXCP macro
instruction.
b.
Provide the required control block information needed by the EXCP macro instruction.
Debugging Concepts:
a.
Locate the trace table and trace a program's
execution flow using this table.
b.
Effectively use dumps as a debugging aid.
c.
Read and analyze storage dumps.
Courses completing after 12/31/66.
Copies of this publication can be obtained through IBM Branch Offices.
Address comments concerning the contents of this publication to:
IBM DPD Education Development, Education Center, Poughkeepsie, New York
4.
5.
6.
7.
Supervisor Call Routines (SVC):
a.
Write an SVC routine.
h.
Include user SVC routines in the
Operating System.
Accounting Routines:
a.
Write accounting routines.
h.
Include user accounting routines in
the Operating System.
Non-Standard Labels:
a.
Write a routine to interpret a nonstandard label.
h.
Include this routine in the Operating
System.
Error Routines:
Explain how the Operating System invokes
and uses error routines.
8.
9.
Access Methods/XDAP:
a.
Explain some of the techniques of
writing access methods.
h.
Define and apply XDAP.
Device Support:
Outline and define requirements (e.g.
the contents of Unit Control Blocks)
needed to support devices.
Prerequisites Students enrolled should have successfully completed
the following courses:
5/360
5/360
5/360
5/360
Duration -
Assembler Language Coding
05 Facilities
05 Coding
05 Generation
Approximately five days.
* Courses completing after 12/31/66.
2.2
K3600
F3600
53600
13660
65*
63*
65*
63*
(P-363l)
(5-3682)
(P-3638)
(5-3683)
Material Requirements Student Materials Form No.
Title
Abstract Ref.
Operating System/360:
Assembler Language
Job Control Language
Operator's Guide
Control Program Services
Systems Programmer's Guide
User Libraries
Utility Programs
Control Program Messages & Completion Codes
Sequential Access Methods
Introduction to Control Program Logic
Direct Access Device Space Management
Input/Output Support (OPEN/CLOSE/EOV)
Fixed-Task Supervisor
Job Management
Input/Output Supervisor
Basic Direct Access Method
Catalog Management
C28-65l4
C28-6539
C28-6540
C28-654l
C28-6550
C20-l663
C28-6586
C28-6608
Y28-6604
Y28-6605
Y28-6607
Y28-6609
Y28-66l2
Y28-6613
Y28-66l6
Y28-66l7
Y28-6606
SRL-360
SRL-360
SRL-360
SRL-360
SRL-360
SRL-360
SRL-360
SRL-360
PLM-360
PLM-360
PLM-360
PLM-360
PLM-360
PLM-360
PLM- 360
PLM-360
PLM- 360
Y28-6610
Y28-661l
Y28-66l4
PLM- 360
PLM-360
PLM-360
Instructor Materials (In addition to the above)
Linkage Editor
TESTRAN
Utilities
Abstracts R20-4067
Education Guide
8 l/Z"X 11" looseleaf instructor outline, with
teaching notes, to be used by a qualified 360
instructor. Included in the guide are: references
to supporting information, practice problems and
solutions for both classroom and machine exercises,
and paper master copies of overhead projector foils
used in the class presentations.
2.3
m
c:
.....
...
-pot
::3
C
m
En
'-e
::3
c
t.J
Section 3
GENERAL COURSE OUTLINE
I.
Internal Logic Flow
A.
Publications, Handouts, Macro Fische Descriptions.
B.
Overview of the Operating System
C.
Explain Three Control Charts
D.
Philosophy of Operating Systems
1.
Why do we have Operating Systems?
2.
Job Management, Test Management, and
Data Management Relationship to Operating Systes
3.
Phases of Control
E.
Control Blocks
F.
Generating a System
G.
Internal Logic Flow of 5/360 Operating System
H.
Review
1.
2.
II.
& Summary
System Description
a.
Sizes of System Data Sets
b.
Proximity of Data Sets
c.
Catalog Structure
d.
Library Structure
Initialization and Execution
a.
IPL Procedure
b.
Job Scheduler
c.
Problem Program
d.
Job Step Termination
Execute Channel Program
A.
Role of EXCP in Operating System/360
1.
What Is EXCP?
3.1
General Course Outline (Cont'd.)
2.
3.
B.
Who Uses EXCP?
a.
Standard Access Methods
b.
Problem Programmer's Use of EXCP
Considerations In Using EXCP
Routines Into lOS
Introduction to lOS
1.
2.
& The
& Incorporating
User
Use of EXCP
Control Program Logic - Tables Constructed
At Systems Generation Time
a.
Unit Control Blocks
b.
Request Element Tables
c.
Logical Channel Word Table
Control Program Flow - Problem Program
Initiation
a.
Reader/Interpreter
b.
Initiator
c.
TIOT
d.
Initiator Transfers to Problem Program
e.
Organization of Main Storage
3.
Control Program Flow - OPEN
4.
Problem Program Use of EXCP - General Approach
a.
User Must Construct Control Blocks and
Channel Program
b.
Data Control Block for EXCP
c.
OPEN Macro
d ••
Coding EXCP
e.
Input/Output Block
f.
WAITing
g.
CLOSE
h.
Sample EXCP Program
3.2
General Course Outline (Cont'd.)
s.
6.
Control Program Logic - I/O Supervisor
a.
General Logic Flow
b.
Detail Analysis of EXCP Supervisor
User Programming Responsioilities
a.
Construction of Channel Commands
b.
Error Testing Following Execution of
WAIT macro
c.
End of Data Checking
d.
Preparation for Issuing EOV or CLOSE for
a tape
C.
Student Problem
D.
Controlling DASD by EXCP
1.
Ease of Control by User
2.
lOS Handling of Disk I/O Requests
3.
Programming For Disk
III. Debugging Concepts
A.
Introduction
B.
Requirements for Obtaining an ABDUMP
C.
Device Allocation
D.
Contents Supervision
E.
SAVE Area Trace
F.
Control of Program Interrupts
G.
Trace Table
H.
Locate and Identify Control Blocks Associated
With DCB's.
I.
Comparison of ABDUMP with Indicative Dump
3.3
General Course Outline (Cont'd.)
IV.
SVC Routines
A.
Introduction
B.
Fundamental Concepts
& Terminology
1.
Writing the SVC
2.
IBM Reserved SVC Code Numbers
3.
User Reserved SVC Code Numbers
4.
The Prefix Table
5.
The SVC Table
6.
Residence for SVC Routines
7.
Types of SVC Routines
8.
Review and/or Redefinition of Serially-Reusable
and Re-Entrant
9.
Naming Conventions for SVC Routines
10.
Routines to Support SVC and SYSl.SVCLIB
C.
Why Have SVC Routines?
D.
How the SVC System Functions
E.
Writing the SVC Routine
1.
Type 1
2•
Type 2
3.
Type 3
4.
Type 4
F.
Representative Problems and Examples
G.
SVC Writing Checklist
H.
Placing an SVC Routine in SVC Library
1.
Di rectly
2.
Copying and Inserting a Tested Module From
Another Data Set
3.
SVCLIB Macro Instruction
I.
Considerations
J.
Practice Problem
3.4
General Course Outline (Cont'd.)
v.
VI.
Accounting Routines
A.
Introduction
B.
How to Write an Accounting Routine
1.
Entry Linkage
2.
Parameters Passed to the Accounting Routine
3.
Output From the Accounting Routine
4.
Exit Linkage
s.
Programming Considerations
C.
How to Incorporate Into the System
D.
Student Problem
Non-Standard Labels
A.
B.
c.
D.
Definition of Non-Standard Label Processing Routines
1.
Existence of Non-Standard Labels
2.
Non-Standard Labels Characteristic
3.
Review When NSL Routines Are Needed
OPEN Routines
1.
General
2.
Functions Accomplished
3.
OPEN Macro
General Discussion of OPEN
1.
Passage of Control to the Non-Standard Label
Routines
2.
Return From the NSL Routine
Detail Discussion of Non-Standard Header Label Processing
During OPEN
1.
Information Supplied to NSLOHDRI by OPEN
a.
DCB Addresses
h.
Control Blocks Usable by EXCP in NSL Routines
3.5
General Course Outline (Cont'd.)
2.
E.
F.
G.
NSLOHDRI
a.
Entry into NSLOHDRI From OPEN
b.
NSLOHDRI Considerations
c.
General Logic Flow of NSL Processing Routine
3.
Example
4.
Inserting NSLOHDRI Into the Control Program
S.
Testing Non-Standard Label Processing Routine
6.
EXCP Level of Code
Discussion of NSL Routines During CLOSE and EOV
1.
Review NSL Module Names
2.
Tape Mark Consideration
3.
EOV Termination - Register Content
4.
Multi-Volume Data Sets
Generalized Handling of Non-Standard Labels:
Conversion Utility II Package
1.
General Description
2.
Data Conversion Non-Standard Label Modules (DCNSL)
3.
Comments on the Techniques of DCNSL
Concluding Remarks
1.
Material References
2.
Student Problem
VII. Error Routines
A.
The Data
Error Occurrences in OS/360
1.
Error Occurrence at an I/O Device
2.
Catastrophic Errors in the Channel or CPU
3.6
General Course Outline (Cont'd.)
B.
General Logic of Error Handling Within lOS
1.
General Summary
2.
Tape Read Error Logic Flow
3.
C.
a.
User Flag Bits
b.
Error Routine Scheduling
c.
Error Routine Execution
Summary
Appendages to lOS
1.
Definition
2.
Appendage Routines - SYSl.SVCLIB
3.
Using Appendages
4.
Types of Appendages
s.
Coding for Appenddages
a.
DCB In User Program
b.
Appendage Routine
c.
Student Problem
VIII. Access Methods
A.
Introduction
B.
Basic Rules For Use With Operating System/360
1.
The Data Management Routines
2.
Data Management Routines Should Not Be
Modified
3.
Data Management Routines Can Be Combined
or Expanded
3.7
General Course Outline (Cont'd.)
C.
Execute Direct Access Program (XDAP)
1.
a.
Need for XDAP
h.
Description
c.
XDAP Limitations
2.
Requirements fox Execution
3.
Programming Specifications
4.
IX.
General Information
a.
DCB
h.
OPEN
c.
XDAP
XDAP Options
Device Support
A.
Introduction
B.
Operating System Requirements
1.
2.
The Operating System
a.
Allocation
h.
Access of the Device
Control Blocks
a.
UCB
h.
DEB
c.
DCB
d.
lOB
e.
ECB
3.8
General Course Outline (Cont'd.)
C.
Supporting the Device
1.
2.
Defining the Unit Control Block
a.
System Generation
b.
Supported UCB Types
c.
Device Types
Naming the Device
a.
The Device Name
h.
The Device Table
c.
The Device Mask Table
d.
Effect of Changing Device Type Code
3.9
m
r::
.....
..,
---::I
C
m
en
~
::I
c
t.J
-,:i
m
---.......,Cd
m
C
Section 4
INTERNAL LOGIC FLOW
Reference
Suggested Sequence:
A.
Explain publications, handouts, macro fische and PLM
references to be used during the course. (These are
listed in the Course Description.)
B.
Overview of the Operating System
1.
C.
Go through large 360 Wall Chart (V2S-6lSS) .
a.
Define 3 systems and major differences.
b.
Define major parts.
c.
Tell the basic function of each part.
1
OPF I-I,
1-2, 1-3
Explain the three control charts.
Appendix I
1.
Go through the routines and their functions.
2.
Comment on the access methods and how they fit
into this structure.
3.
Comment on the Linkage Editor and how it fits
into this structure.
INSTRUCTORS' NOTE:
There are various descriptions of the detail of the components of the system in the PLM's. It is recommended
that at least the introduction section of each of the
following PLM's be read before teaching this topic:
Y28-660S, Y28-66l3, Y28-66l2, Y28-66l6, Y28-6606,
Y28-6609, Y28-6607, Y28-6604, Y28-66l7
D.
Topic I
Philosophy of Operating Systems
INSTRUCTORS' NOTE:
Briefly go through the philosophy of "why an operating
system" and what it provides.
1.
2.
Why do we have operating systems?
a.
To do more work for the programmer and
operator.
b.
To provide management information.
c.
To utilize resources.
a, b, and c above are accomplished within the
3 managements we described.
4.1.1
Topic I (Cont'd.)
Suggested Sequence:
3.
Reference
What then are the phases of this control?
The phases are:
E.
a.
Introducing a job to the system
b.
Initiating the job
c.
Initiating a task
d.
Executing the task
1)
Opening the DCB
2)
Performing I/O operations
3)
Closing DCB
e.
Terminating a task
f.
Terminating a job step
g.
Terminating a job
Control Blocks (Board Display)
Appendix II
~------------------------------------------------------------~
INSTRUCTORS' NOTE:
Cardboard squares (8 1/2 X 11) can be used to make each
control block illustrated in Appendix II. A very effective way of presenting an introduction to control blocks
is to use a magnetic display of these cardboard squares.
Step-by-step and block-by-block, tell from what source
these control blocks are built; also their functions,
and how they relate to Job, Task, and Data Management.
1. Go through the control block buildup using the
8 1/2" X 11" blocks with their names only.
2. Hand out large chart of control blocks and
explain the logic.
F.
Generating a System - What Happens?
1.
Flow through System Generation
2•
Define libraries on board.
3.
Construction of SYSRES and its VTOC's/DSCB's
OPF I-5
4.
System Data Sets
OPF 1-6
5•
Organization of core storage
OPF 1-7
4.1.2
OPF I-4
Appendix III
TopiC I (Cont'd.)
Reference
Suggested Sequence:
G.
The Internal Logic Flow of the 360 Operating System
INSTRUCTORS' NOTE:
This interpretation of the logic flow of the System/360
Operating System is intended as a learning tool for a
better understanding of the mechanics of the system. It
defines the steps through which a processing program may
pass from the time it is introduced to the system until
it terminates. In this description, emphasis is placed
on one job's flow through the system, asynchrous and
simultaneous processing are assumed.
The routines of the Operating System that maintain control
are "indicated in the control column of each sheet. The
three functional control charts may be used as a reference Appendix I
for the function of the routines in control. The control
block chart is referred to during the explanation of the
Appendix II
logic flow. This chart is provided to give the function
of the control blocks that are referenced and to show how
the information flow and linkage takes place. From time
to time it may be necessary to reference the actual format
of some of the control blocks. Most of these formats can
be found in PLM Y28-660S.
4.1.3
TOPIC I (Cont'd.)
Reference
SYSTEMS INITIALIZATION
CONTROL
Operator
1.
Operator loads nucleus into storage by dialing the
system resident device and pressing the LOAD
button.
computer
2.
An Initial Program Load record is brought in from
SYSRES and given control.
IPL Proqr.
3.
This IPL record reads another IPL record that
brings in the remaining portion of the IPL program.
IPL Progr.
4.
The IPL program takes control, clears main storage
and searches the volume label to locate the VTOC
of the system resident volume.
IPL Progr.
5.
When the VTOC is found, it is searched for the
SYSl.NUCLEUS data set.
IPL Progr.
6.
When the nucleus is located, it is brought into
the fixed area of storage.
IPL Progr.
7.
From SYSl.NUCLEUS, the Nucleus Initialization
Program (NIP) is brought into the dynamic area.
NIP
8.
NIP takes CPU control and initializes the nucleus
and the system data sets.
NIP
9.
NIP initializes the Communication·Vector Table
(Ref: Control Block Chart - Block 16). The CVT
will provide a means by which nonresident routines
may reference routines in the nucleus. It contains pointers to all of the key routines in the
nucleus and the location of system data sets.
Appendix
NIP then initializes the UCB table (Ref: Control
Block Chart - Block 23).
Appendix
2
NIP
10.
NIP
11.
Locates the SVCLIB, LINKLIB, and LOGREC and opens
these data sets.
NIP
12.
Builds a resident SVC table.
NOTE:
NIP
13.
This is why a re-IPL is necessary when
SVCLIB is moved.
After completing initialization, NIP replaces itself with the Reader/Interpreter and Master
Scheduler. This is accomplished by NIP locating
both these routines on the LINKLIB and loading
them into storage.
4.1.4
OPF I-6
II
1
II
TOPIC I (Cont'd.)
Reference
SCHEDULING THE JOB
INTRODUCING JOB TO SYSTEM
CONTROL·
IAl
IIIA2
1.
When the operator receives messages instructing him
to enter commands, he issues START RDR (Start
Reader), START WTR (Start Writer) and SET (Set
Date) commands causing an attention interrupt to
occur.
IAI
2.
This interruption causes CPU control to be given to
the Master Scheduler's Master Command EXCP Routine.
IA3
l.
Control is passed to the Master Command Routine to
process these commands.
IBI
4.
The Reader/Interpreter takes control and begins to
read the input job stream.
IB1
5.
As statements are read, either from the input
device or procedure library, they are identified
and if they are control statements the length and
the starting address of the name, operation, and
operand are determined.
IB1
6.
This information is then passed to the respective
routines, either JOB, EXEC, or DO Routine for
processing.
a.
IB2
OPF 1-8
When a JOB card is encountered, control is
passed to the Job Routine which allocates
table space and uses the statement contents to
form the JCT (Ref: Control Block Chart - Block
1) and the ACT (Ref: Control Block Chart Block 3) in the job queue.
Appendix
II
3
IB3
b.
When an EXEC card is encountered, control is
passed to the EXEC Routine which allocates
table space and uses the statement to form
the SCT (Ref: Control Block Chart - Block 2)
in the job queue.
Appendix
II
IB4
c.
When a DO card is encountered, control is
passed to the DO Routine which allocates table
space and uses the DO statement contents to
form the JFCB (Ref: Control Block Chart Block 8) and the SlOT (Ref: Control Block
Chart - Block 4) in the job queue.
Appendix
II
IB1
7.
Linking pointers are established between the JCT,
SCT, JFCB, SlOT, and ACT.
IBI
IA4
8.
In cases where errors occur in matching and checking the contents of the control statements in steps
6 a,b, and c the appropriate error messages are
written and associated job steps are not executed.
*
NOTE:
Refe~
cont~ol cha~ts at the back of this pape~ fo~
names and functions.
Example:
the key IA3
stands fo~ - Job Management (I); Maste~ Schedule~ (A);
Maste~ Command Routine (3).
to
~outine
I
4.1.5
4
TOPIC I (Cont'd.)
Reference
SCHEDULING THE JOB
CONTROL
JOB INITIATION
ICI
1.
The System Control Routine of the Initiator/Terminator receives control and performs housekeeping
functions such as recording the step number.
ICI
2.
If the job step is the first step of this job, its
name is placed in the selected job queue.
IC2
3.
The Execute Statement Condition Code Routine takes
control and processes any step condition codes that
are specified in the EXEC statement.
•
IC2
IC13
a.
If condition codes are specified, they are
compared with the corresponding return code
and where they agree, the job is cancelled,
Control goes to the Step Termination Routine.
IC3
b.
If this job step is the first step or no condition codes are specified, control is turned
over to the JFCB Housekeeping Routines.
IC3
4.
The JFCB Housekeeping Routines take control and
complete those portions of the JFCB's and SlOT's
that describe the volumes to be used during step
execution.
a.
11101
5.
The volume serial numbers are obtained from
either the DO statement information, the pass
data set information or the catalog.
If a catalog search is required, the Catalog
Routine is given control and locates the data set
by looking through the index levels of the catalog.
This information is then saved in a work area.
IC3
6.
When data sets are passed, information is recorded
to keep track of these data sets so they may be
used later.
IC4
7.
The Allocation Control Routine takes control and
begins by calculating the storage requirements for
the following tables: DO Number Table, Allocate
Control Block, Channel Load Table, Allocate Work
Table, Potential User On Device Table, Separation
Strikeout Pattern, Volume Table and Device Mask
Table. These implicit tables are constructed for
later use by the allocation routines.
IC4
8.
The Allocation Control Routine then reads all the
SlOT's into the storage assigned to them.
IC4
9.
The number of volumes each data set requires is
gotten from the SlOT's and recorded.
4.1.6
OPF 1-9
and
OPF 1-10
TOPIC I (Cont'd.)
Reference
SCHEDULING THE JOB
CONTROL
JOB INITIATION
IC4
10.
The·storage for the TIOT is determined and reserved.
ICS
11.
The Demand Allocation Routine takes control and
first records information that describes data sets
and device allocation.
ICS
12.
The volume affinity is resolved at this point for
volumes requested by more than one data set.
ICS
13.
The number of devices required by each data set is
now determined.
ICS
14.
Information concerning the number of data sets
allocated on each channel is gathered to optimize
channel usage. This information is obtained from
the UCB (Ref: Control Block Chart - Block 22).
ICS
15.
Allocation is made of all requested resident
devices.
ICS
16.
Due to the fact that some of the devices specified
that could be used may be ineligible, a check is
made to assure the available device range.
ICS
ICll
17.
Control is passed to the Allocation Error Routine
if during the device range check the eligible device count becomes less than the number of devices
required.
In this case a message is written to
the operator to this effect.
ICS
18.
Specific device allocation is performed next.
ICS
IC6
19.
A check is made to see if all allocation requirements have been met. If they have, go to step 22.
IC6
20.
If they have not, control is passed to the Automatic Volume Recognition Routine (if included in
the system). Volumes are allocated by this routine
by checking all available mounted volumes.
IC'
21.
If allocation request still remains, control is
passed to the Decision Allocation Routine that completes the allocation process by assigning these
requests.
IC8
IICI
22.
The TIOT Construction Routine takes control and
main storage space is calculated and requested for
the TIOT.
4.1.7
Appendix
II
TOPIC I (Cont'd.)
Referenc
SCHEDULING THE JOB
CONTROL
JOB INITIATION
Ica
23.
The TlOT is constructed primarily of information
Appendix
from the JCT, SCT and SlOT plus calculated informaII
tion (Ref: Control Block Chart - Block 5). Linking
pointers are established between the TIOT, UCB and
5
JFCB.
IC9
24.
Control is received by the External Action Routine
that checks all devices allocated to each data set
and any required dismounting is called to the
attention of the operator by messages.
IC9
25.
The operator then receives messages telling him the
volumes to be mounted.
IC9
26.
A check is made to varify correct mounting.
IClO
27.
Control is turned over to the Space Request Routine
that scans the 00 entries in the TIOT for O/A
device users.
IClO
IIICI
28.
When a data set is found that requires O/A device
space, a request is made to the OAOSM Routine to
allocate the space. In cases where the space can
not be allocated the first time, requests are made
until all possible ones are exausted.
IClO
IC9
29.
When no allocation can be made on currently mounted
volumes but mounting another volume will enable
allocation to be made, control goes to the External
Action Routine for mounting verification.
lCIO
ICII
30.
When no allocation can be made control is given to
the Allocation Error Routine that cancels the job
step.
lCl2
31.
The Step Initiation Routine receives control when
all allocation requests have been satisfied.
ICl2
32.
Into each TIOT indicating a SYSOUT disposition is
placed the address of the UCB for the device containing the system output data set.
lC12
33.
The Logical Channel Table and the Job Control Table
are written onto auxiliary storage and their
storage space is made available for processing.
IC12
lClO
IICI
34.
Storage space for the processing program is
obtained.
lC12
35.
DCB's for job library data sets and Fetch where
required are created and opened.
4.1.8
TOPIC I (Cont'd.
Referenc
SCHEDULING THE JOB
JOB INITIATION
CONTROL
IC12
IIC2
36.
A copy of the TIOT is placed into the work area of
processing program and on auxiliary storage.
IC12
37.
The SCT is also written onto auxiliary storage.
IC12
IIC2
38.
Storage space occupied by both the SCT and TIOT is
released and this space is made available for
processing.
IC12
39.
A cancel ECB is set up for the processing program.
This will cause an ABEND or ABTERM to occur if a
CANCEL command is issued.
IC12
40.
In the case of the Sequential Scheduling System, if
the operator does not issue a CANCEL command, the
Step Initiation Routine uses an XCTL to pass control to the processing program.
4.1.9
TOPIC I (Cont'd.)
ReferenCE
SCHEDULING THE JOB
CONTROL
IIBI
ATTACHING A JOB STEP AS A TASK
(Applies to the multi-task systems)
1.
A TeB is constructed from information in the JCT,
SCT and the ATTACH Macro op~rand field (Ref:
Control Block Chart - Blocks 1,2, and 11).*
Appendix
II
Appendix
II
IIBI
2.
An ECB (Ref: Control Block Chart - Block 12) is
constructed for each TCB where it is requested.
IIA2
(sss)
or
1101,2,3
3.
The required Request Blocks (Ref: Control Block
Chart - Block 10) are constructed: Supervisor
Request Block (SVRB), Program Request Block (PRB),
Interruption Request Block (IRB), Loaded Program
Request Block (LPRB), and Supervisor Interruption
Request Block (SIRB), and/or Loaded Request Block.*
IIBI
4.
Linking pointers are established between the TCB,
ECB, TIOT, and RB's.
IIBI
5.
The associated TCB is added to the chain of TeB's
in the system according to priority. The TCB at
the front of the chain has the highest priority.
lIAS
6.
If the tasks are queued, the task to be ATTACHed
is put in a "ready" state.
NOTE:
A task may be in three
or active.
states: ready, wait
IIBI
1107
7.
The ATTACH Routine takes control and determines if
the required module is in storage. If it is not,
control is given to the FINCH Routine that brings
it into storage.
lIAS
8.
The Dispatcher Routine gives control to this task.
If a task switch occurs, the "old task's" registers
are saved in the TCB and linkages for the "new
tasks" are constructed. The "new task" is now in
the "active state".
*NOTE:
In the Sequential and Fized Tasked systems the TeB's
and the initial RB's a~e eonst~ueted at System
Genel'ation time.
4.1.10
6
7
OPF 1-11
and
OPF 1-12
OPF 1-13
and
OPF 1-14
TOPIC I (Cont'd.)
Reference
PROCESSING PROGRAM
OPENING THE DCB
CONTROL
IIA6
IIIBI
1.
The Open Routine receives control from an interruption handler when the OPEN Macro is issued and
checks the status of each DCB to be opened to determine size and "busy" indications.
IIIBl
IICI
2.
The Open Routine then obtains main storage via the
GETMAIN macro instruction for each DCB to be
opened.
IIIBI
IICI
3.
All required work space is obtained for processing
the DCB's, JFCB's, labels and building implicit
tables.
IIIBI
4.
The Open Routine now constructs a DCB, DEB, ECB,
lOB and a channel program that will be required to
read the JFCB's from the job queue to the work
area. The EXCP macro is then used to read the JFCB
into storage.
IIIBI
5.
The TIOT's are located via the TCB. The addresses
of the JFCB's are obtained from the TIOT so that
the JFCB's can be located and brought into storage.
(Ref: Control Block Chart - Blocks 5 and 8)
IIIBI
6.
The Open Routine next verifies volume mounting by
checking for all required volume serial numbers in
the JFCB's and the UCB's of all the devices allocated to the data sets.
IIIBI
7.
If the volume serial number is found in ·the UCB,
(Ref: Control Block Chart - Block 22), the volume
is already mounted and no mounting instruction to
the operator is required.
IIIBI
8.
When no volume serial number is required, a message
is written to the operator to mount a scratch
volume.
IIIBI
9.
When the Open Routine finds that a volume is mounted, the volume label is read and verified. A message is issued if the wrong volume is mounted and
a recheck is made when another volume is mounted.
IIIB1
10.
When tape is checked, a file sequence number is inserted in the UCB from the JFCB along with the
volume number. Unlabeled tape is checked to assure
no labels and for standard labeled tape the input
header label is verified.
IIIBI
User
11.
When non-standard input labels are used, the Open
Routine verifies that no standard volume label is
on the tape and transfers control to the user's
non-standard label routine.
4.1.11
Appendix
II
Appendix
II
TOPIC I (Cont'd.)
Reference
PROCESSING PROGRAM
CONTROL
OPENING THE DCB
IIIBI
12.
When all required volumes have been mounted and
verified, tapes are positioned using the sequence
number that designates the logical and physical
portions of data sets.
IIIBI
1 ~.
Appendix
In the case of input standard labels the DSL or
II
DSCB is read and used to fill in some of the fields
in the JFCB. For output the Open Routine con8
structs and writes the header labels. (Ref: Control
Block Chart - Blocks 7 and 8).
IIIBI
14.
The Open Routine now completes the JFCB and the
DCB. This is accomplished for input data sets by
filling in all zeroed JFCB fields with corresponding OSCB or DSL fields containing information.
Then all zeroed DCB fields are filled from corresponding JFCB fields containing information. A
mask of the DCB merged fields is kept to enable
re-initialization of the DCB (Ref: Control Block
Chart - Blocks 8 and 14).
~
9
Appendix
II
IIIBI
User
15.
If there is a user DCB modification routine, it
receives control at this time and when it completes
its work turns control back over to the Open
Routine.
IIIBI
16.
Next all zero fields in the JFCB are filled with
the corresponding DCB fields containing information
(Ref: Control Block Chart - Blocks 8 and 14).
OPF I-IS
IIIBI
17.
The Open Routine constructs the DEB from information in the JFCB and DCB. Included in the DEB is
also the DCB merge mask. (Ref: Control Block Chart
Blocks 8,14, and 15)
Appendix
IIIBI
18.
A linking pointer is put into the TCB to the first
DEB and a pointer is put into the DEB being constructed to the previous DEB for this TCB. (Ref:
Control Block Chart - Blocks 11 and 15).
IIIBI
19.
The type of access method is determined from the
DCB and the proper access method execu~or is given
control.
Access
Method
Executor
20.
The selected access method executor determines the
version accpss method required and brings it into
storage if it is not already there.
Access
Method
Executor
21.
The required appendages are selected using the AVT
(Ref: Control Block Chart - Block 13) and brought
into storage.
4.1.12
II
10
Appendix
II
11
TOPIC 1 (Cont'd.)
Reference
PROCESSING PROGRAM
CONTROL
OPENING THE DCB
IIIBI
22.
The Open Routine takes control again and for all
QSAM accessing, primes the buffers.
IIIBI
23.
The DCB's are flagged "not busy" and "opened".
Control is returned to the processing program.
4.1.13
OPF 1-16
TOPIC I (Cant'd.)
Reference
PROCESSING PROGRAM
PERFORMING INPUT/OUTPUT OPERATIONS
CONTROL
Access
Method
1.
The user has selected accessing methods according
to his requirements and indicated these in the DCB
Macro that in turn became part of the DCB.
(Ref:
Control Block chart - Block 14). When an I/O request is made in the processing program, the request combinations may be:
I/O LANGUAGE
ACCESS METHOD
GET/PUT
READ/WRITE
EXCP
QSAM, QISAM, QTAM
BSAM, BDAM, BISAM, BPAM, BTAM
IICI
2.
Space is obtained to build I/O control blocks and
channel program.
Access
Method
3.
The access method constructs the lOB, DECB, and
channel program required for this I/O request.
(Ref: Control Block Chart - Blocks 17 and 18).
When the EXCP Macro is used the user must write
the lOB, ECB, and channel program.
Appendix
II
OPF 1-17
1-18
1-19
Appendix
II
12
NOTE: The DECB serves effectively the same function
for an I/O request as the ECB serves for task
stat.us.
Access
Method
4.
When all information needed by the I/O Supervisor
has been calculated, the address of the lOB is
passed to the I/O Supervisor.
IIIAI
5.
The I/O Supervisor takes control and verifies the
presence and validity of the required control
blocks.
IIIAI
6.
A check is made in the UCB (Ref: Control Block
Chart - Block 22) to see if the device for this
I/O request is available.
IIIAI
7.
The required channel is tested for its availibility.
IIIAI
8.
A SIO is issued to start the request and the result
is verified as acceptable. If an error occured an
error routine is given control.
NOTE: SIO enqueue, and trapcode modules for a particular device are located via the Device
Table (Ref: Control Block Chart - Block 9).
4.1.14
Appendix
II
Appendix
II
TOPIC I (Cont'd.)
R.eference
PROCESSING PROGRAM
CONTROL
IIIAl
PERFORMING INPUT/OUTPUT OPERATIONS
9.
tfl th"e UCB indicates that the associated control
unit is busy the request is ,queued (go to step 10),
otherwise the request is entered into the RET
~ppendix
(Ref: Control Block Chart - Block 21), and is
flagged as "active". This is done by the I/O
II
Supervisor placing the address of the request
element in the UCB that represents the device being
used for the I/O request.
NOTE: A request element may be active - started but
not completed:available - not in current use:
queued - requests ready to be started.
IIA4
10.
Control is returned to the Exit Routine.
IIIAl
11.
Request elements that are not started immediately
are queued into the RET and the requests associated with each logical channel are chained together.
The beginning and end of this chain is kept in the
LCHTAB (Ref: Control Block Chart - Block 20)
IIIAl
IIIA2
12.
Pending I/O requests are honored when an I/O interruption occurs during which time the I/O Supervisor
gains control and determines from the UCB which I/O
request terminated. A message is written to the
user telling how the request completed.
IIIA2
13.
When all pending interruptions on the associated
channel have been processed, the next I/O request
for this channel is found and a SIO is issued.
IIA4
14.
Control returns to the Exit Routine.
IS.
Brief summary of key points.
4.1.15
Appendix
II
13
OPF 1-20
1-21
1-22
1-23
TOPIC I (Cant'd.)
r-----------------------------------------------------------------------~
Referenc~
PROCESSING PROGRAM
CONTROL
CLOSING THE DCB
IIIB3
1.
The Close Routine receives control from an interruption handler when the CLOSE Macro is issued
in the processing program.
IIIB3
IICI
2.
Work space is obtained using the GETMAIN Macro.
IIIB3
3.
The TIOT's are located via the TCB's and the
JFCB's addresses gotten from the TIOT's.
IIIB3
4.
The DCB's that are to be closed are flagged "busy"
and checked; they must currently be flagged
opened.
IIIB3
5.
A task-data set relationship is established for
family data sets.
IIIB3.
6.
The Close Routine purges all pending input/output
requests on data sets to be closed.
IIIB3
7.
All trailer label construction and label updates
are performed.
IIIB3
8.
Parame~rs in the CLOSE Macro are used to perform
all required volume disposition.
IIIB3
9.
Access dependent routines are released.
IIIB3
10.
Using the DCB mask from the DEB the DCB is restored to its original form.
IIIB3
IIC2
11.
Main storage used for subroutines, appendages, the
DEB, and the work area is released.
IIIB3
12.
The DEB is removed from the DEB chain and the remaining DEB's are rechained.
IIIB3
IIIBI
IIA4
13.
The data set is c~ecked to see if it is concatenated in which case control is given to the Open
Routine otherwise it is returned to the Exit
Routine.
14.
Brief summary.
OPF 1-24
~.----------------------------------------------------------------------~
4.1.16
TOPIC I (Cont'd.)
Reference
JOB TERMINATION PROCEDURES
TERMINATION OF A TASK
CONTROL
ICl3
1.
If an ECB is specified a completion flag is posted
in it.
IC13
IIC2
2.
The TCB (except when ECB or ETXR are specified) RB,
and ECB associated with this task are removed.
ICl3
3.
If ETXR parameter is specified, an entry is set up
to the controlling task's EOT asynchronous exit
routine.
ICl3
IICi
4.
All associated available main storage is released.
ICl3
5.
All routines loaded by this task and not used by
others are released.
Processing
Program
6.
Control is ~eturned to next highest level task
if this task is not the highest level task.
The terminating task places a return
code in its TCB.
Processing
Program
7.
The controlling task issues a DETACH, terminating
the task.
IIA4
8.
Control is given to the Exit Routine.
Processing
Program
ICI
ICl3
9.
If this is the highest level task control goes to
the Initiator/Terminator which issues the DETACH
terminating the task.
4.1.17
TOPIC I (Cont'd.)
Reference
JOB TERMINATION PROCEDURES
JOB STEP TERMINATION
CONTROL
ICll
IICI
1.
The Step Termination Routine receives control when
a job step has terminated (normally or abnormally)
and proceeds by reading into main storage the TIOT
and LCT.
ICll
2.
The cancel ECB in the selected job queue is set to
zero.
ICll
IICI
3.
The JCT and SCT are read into storage and the step
status code is inserted in the SCT.
ICll
IICI
4.
Each SlOT for each data set is then read into
storage.
ICll
5.
Data set disposition is performed on all associated data sets and a message indicating data set
name, disposition, and serial number is written to
the operator.
ICll
6.
Devices that are now available for use are unallocated and those volumes that can be dismounted
are dismounted. Messages are written to the operator giving volume status.
ICll
7.
The SCT is updated with return code information.
ICll
8.
If there are job statement condition codes, they
are processed at this time.
ICll
IIC2
9.
Any main storage associated with this job step is
released.
ICll
10.
All loaded routines associated with this job step
(except reenterable routines from the LINKLIB) are
released.
IIIBl
11.
Control is given to the Close Routine to close
associated DCS's.
ICll
12.
The Job Step Termination Routine issues a DETACH
for the last task of the job step and puts a
completion code in the seT.
4.1.18
TOPIC I (Cont'd.)
Reference
JOB TERMINATION PROCEDURES
CONTROL
JOB TERMINATION
ICl4
1.
The Job Termination Routine receives control when
the last job step of a job has terminated.
ICl4
2.
If a passed data set queue exists, a check is made
to see if there are any data sets to which no
reference was made. If one is found its disposition is determined and unallocation procedures take
place.
IC14
User
Routine
3.
Control is passed to the user accounting routine.
IC14
IIC2
4.
When control returns the control tables associated
with this job (JCT, SCT's, SlOT's, and JFCB's) are
removed from storage and the storage is freed.
IC14
IIC2
5.
Auxiliary storage space used by this job is released.
IC14
6.
Appropriate entries are made in the output job
queue for data sets with SYSOUT disposition. These
data sets are now written by the SYSOUT Routine.
IC14
7.
A message of the termination of this job is
written to the operator.
IIA4
8.
Control is given to the Exit Routine.
4.1.19
Topic I (Cont'd.)
Suggested Sequence:
H.
Reference
Review and Summary
INSTRUCTORS' NOTE:
This section is intended to summarize major points in the
logic flow with emphasis on system generation, libraries,
and cataloging. These diagrams could be made up as a
Appendix III
board display or as flipcharts to be used in the following discussion. The discussion and review should be
lead by the instructor and questions should be asked of
the students to encourage them to participate in the
discussion. (At the points where the number has an
asterisk beside it, ask the class what library is involved
and how it is used.) This review may be either at the
end of this topic or at the end of the course.
1.
System Description
a.
Sizes of system data sets
b.
Proximity of data sets
c.
d.
2•
1)
Interaction
2)
Frequency of access
Catalog Structure
1)
SYS1 catalog
2)
LIBR catalog
3)
Data Set catalog
a)
Normal Index
b)
Generation Data Group
c)
Volume Control Block
Library Structure
1)
Library Vo 1ume
2)
Application Libraries
3)
Testing Library
Initialization and Execution
4.1.20
Topic I (Cont'd.)
Suggested Sequence:
Reference
INSTRUCTORS' NOTE:
Using the generated system, the sample input stream, and
the console sheet, take the students through the steps of
IPL, NIP, and execution of the first job step. The point
that is to be made at this time, is the system library
usage, interaction, and frequency of access. Take the
students through a catalog search at initiator time and
the cataloging of a data set at terminator time. A console sheet is included to indicate the messages that the
master scheduler will issue and the commands that the
operator must enter at IPL time.
a.
IPL Procedure
*
1)
Operator IPL's from SYSRES
2)
IPL performs the following function:
*
*
3)
a)
Clears Main Storage
b)
Sets Storage Key for Supervisor
c)
Locates SYS1.NUCLEUS on SYSRES
d)
Loads Nucleus including NIP
e)
Gives control to the nucleus
initialization program.
NIP - Nucleus Initialization Program
The NIP program, the first thing
executed in the operating system initializes the nucleus and the system
data sets. Some of the major functions it performs are:
a)
Initializes the communication
vector table. The CVT provides
the means by which nonresident
routines may reference routines
in the nucleus. It contains
pointers to all of the key routines in the nucleus and the
location of system data sets.
It contains such information as:
Address of the TCB next to
be dispatched
4.1.21
Appendix
III
Topic I (Cont'd.)
Reference
Suggested Sequence:
Address of entry point to
the task supervisor
Address of validity checking routine
Address of the UCB for SYSRES
Address of program fetch
Date
Machine Size
Address of DCB for LINKLIB
Address of DCB for SVCLIB
Address of DCB for SYSJOBQE
Address of DCB for LOGREC
b)
Initializes the UCB table.
c)
Locates SVCLIB - simulates opening of this data set - builds a
DEB.
* d)
Locates LINKLIB - opens LINKLIB.
*
e)
Locates LOGREC - opens LOGREC.
£)
Builds resident transient SVC
table - this is why you must
re-IPL any time you move SVCLIB.
g)
Sets Timer.
*
b.
Job Scheduler
* 1)
NIP XCTLts to the Master Scheduler.
• a)
A DCB for LINKLIB is already
open.
• b)
LINKLIB directory is searched
for the Master Scheduler.
• c)
The Master Scheduler is loaded
and begins to execute.
4.1.22
Topic I (Cont'd.)
Suggested Sequence:
2)
Master Scheduler
*
*
Reference
3)
a)
Master Scheduler types out READY.
b)
Operator enters SET command for
date and optionally for SYSJOBQE
and PROCLIB.
c)
SYSl.PROCLIB and SYSl.SYSJOBQE
are opened.
d)
START RDR and START WTR commands
are processed.
e)
Operator enters START.
Reader/Interpreter
The Master Scheduler gives control to
the Reader/Interpreter. It is located
on LINKLIB and loaded into core.
"a)
Reader/Interpreter reads job
stream until it reaches next JOB
card or data in the input stream.
"b)
Information is placed on SYSJOBQE
to be processed by the INITIATOR.
"4)
Initiator
The Reader/Interpreter turns control
over to the Initiator which is loaded
in from LINKLIB.
"a)
"
The Initiator searches the catalog to locate the library specified in JOBLIB.
b)
Issues a mounting message for
JOBLIB and allocates a device
~)
It OPENS the JOBLIB and concatenates it with LINKLIB.
"d)
e)
Searches the catalog for input
data sets that have no volume
serial number specified.
Allocates devices for these data
sets and issues mounting messages.
It then verifies the mounted
volumes.
4.1.23
Topic I (Cont'd.)
Suggested Sequence:
c.
Reference
f)
Allocates devices and/or space
for output data sets, issuing
messages as required.
g)
After allocating all devices,
checking that the proper volumes
are mounted, it gives control to
the problem program.
Problem Program
The Initiator XCTL's to the load module
named in the EXEC card. The JOBLIB is
searched first and then the LINKLIB. Space
is allocated for the load module, it is
loaded in, and execution begins.
* 1)
OPEN data sets
Access Methods are loaded into the
dynamic area from SVCLIB. OPEN operates from transient area.
2)
System Macros
The Problem Program constantly issues
system macros that are loaded into
the transient area from SVCLIB.
*
3)
LINK, XCTL, LOAD, ATTACH
The Problem Program can request additional load modules that can be called
in from JOBLIB and LINKLIB.
4)
EOV
a)
Cataloged Input Data Sets
The system obtains the next
volume serial number from SYSJOBQE
and issues the proper mounting
messages.
b)
Output Data Sets to be Cataloged
The system records the volume
serial number on SYSJOBQE and
allocates a new volume.
d.
Job Step Termination
*
1)
The terminator is loaded in from LINKLIB.
4.1.24
Topic I (Cont'd.)
Suggested Sequence:
*
e.
Reference
2)
The catalog is updated from the volume
serial numbers retained on SYSJOBQE.
3)
Disposition messages are printed.
4)
The Initiator or Reader/Interpreter
is XCTL'ed to as required.
Repeat - The cycle begins again.
4.1.25
TOPIC I
REFERENCES
REFERENCE
CODE
1
2
3
27
100
11
4
7S
5
6
7
8
98
9S
69
S3
9
10
11
12
13
31
49
40
70
29
4.1.26
OPERATING SYSTEM/360
CONTROL PROGRAM
PROCESSING PROGRAMS
JOB MANAGEMENT
LANGUAGE TRANSLATOR'S
-ANALYZE OPERATOR COMMANDS
-PROCESS INPUT STREAM
-ISSUE MESSAGES FROM THE
CONTROL PROGRAM
-PL/I
-FORTRAN
-COBOL
-ASSEMBLER
-REPORT PROGRAM GENERATOR
-SYSTEM GENERATOR
-TEST TRANSLATOR
LPSW
TASK MANAGEMENT
-ANALYZE INTERRUPTIONS
-MONITOR OPERATION OF SYSTEM
-DETERMINE WHERE'CPU CONTROL
IS TO BE PASSED
DATA MANAGEMENT
-ALLOCATE SECONDARY STORAGE SPACE
-SCHEDULE CHANNELS
-READ AND WRITE DATA
-CATALOG AND LOCATE DATA SETS
o
-"
""C
I
......
A INTERRUPTIONS
-._~
MESSAGES w---...c
-<'
;;w)
(
UJ/
SYSTEM
~~~~~TION
CONTROLL
STATEMENTS
STAGE I
-
INSTRUCTIONS
SYSTEM
GENERATION
JOB STREAM
SYSTEM
GENERATION
JOB STREAM
IBM SUPPLIED
AND USERWRITTEN
MODULES
-,
~sse"1D8I1c:~Unkage ,
Editor
L,...
--'.111
~~
-- -- -- ._--STAGE 2
I
I
SYSTEM
RESIDENCE ({ttm. .~
OPF 1-4
SYSTEMS RESIDENCE VOLUME
CYLINDER 00
TRACK 00
VTOC
SYSCTLG
SYS I
SYS I. NUCLEUS
SYS I. SVCLIB
SYS I. LOGREC
OPF 1···5
SYSTEM DATA SETS
CYLINDER 00
TRACK 00
SYSTEM
RESIDENCE
SYS I. . VOLUME
VTOC
SYSCTLG
SYSI
SYS I. NUCLEUS
SYS I.SVCLI B
SYSI.LOGREC
SYS I.SYSdOBQE
CYLINDER 00
TRACK 00
VTOC
OTHER
VOLUME
SYS I,
SYS I.LINKLIB
SYS I.PROCLIB
SYS I.COBL IB
SYS I.,MACLIB
OPF J-6
CORE STORAGE ORGANIZATION
DYNAMIC
AREA
TIOT
SCHEDULER REGISTER SAVEAREA
- ACCESS METHODS AND
ROUTINES BROUGHT IN
VIA LOAD
- SPACE ALLOCATED BY GETMAIN
FREE CORE
1
ROUTINES BROUGHT IN VIA
LINK,XCTL, ATTACH. (PROBLEM
PROGRAM, JOB MGMT. ROUTINES)
ISVC TRANSIENT AREA I
IlOS TRANSIENT AREA I
FIXED
AREA
NUCLEUS
o-c
.."
I
""-.I
o
OPERATION OF THE INTERRUPTION HANDLERS
INTERRUPTION HANDLERS
SVC Handler
SVC
\
/
~
-
DETERMINE
TYPE OF
SVC
ROUTINE TO
PROCESS THIS
f-+
PARTICULAR
SVC
-
Timer Int. Handler
-f"
TlMER/EXTERNAL~
~~
~
~~
~'\~6~cv
'\q~
~;.:
PROGRAM
\'
/
DETERMINE
CAUSE OF
INTERRUPTION
AND PROCESS
...
,
POST THE
MASTER
SCHEDULAR
PERFORM
USER'S
PROCESSING
•
ANY
INTERRUPTIONS
PENDING
?
YES
!1ETURN TO
INTERRUPTED
PROGRAM
~
NO
GIVE CPU·
CONTROL
TO A PROCESSING
PROGRAM
c;-~ ~/'
(t'-rA).
~~
.
TERMINATE
THE TASK
.~
I/O Int. Handler I/O Supervisor
INPUT/OUTPUT \
/
\~
--
SAVE
REGISTERS
AND OLD
PSW
-.
DETERMINE
CAUSE OF
INTERRUPTION
AND PROCESS
~
Machine - Check
Interruption Handler
MACHI NE - CHECK )
..
\' -
POST
TCa OF
MACHINE
CHECK INTERRUPTION TASK
I ~
OPF 1-8
CATALOG STRUCTURE
SYSTEM RESIDENCE VOLUME
~-----VOLUME
TABLE OF CONTENTS
--------t
VOLUME INDEX
DseB
VOLUME
B
INDEX
INDEX
B
F
I
VOLUME
NUMBER OF F
DATA
SET
B.F.
o
-0
."
I
-.0
DATA
SET
IPOINTER TO
INDEX B
E
INDEX E
VOLUME
G INUMBER OF G
INDEX
A
I POINTER TO
INDEX
E
A I POINTER TO
I
INDEX A
VOLUME
P INUMBER OF P
B.G.
DATA
SET
E.A.P.
DATA
SET
E.A.L.
L
F
VOLUME
I NUMBER OF L
I
POINTER TO
NUMBER OF F
DATA
SET
E.F.
CATALOG STRUCTURE ON TWO VOLUMES
SYSTEM RESIDENCE
VOLUME
CONTROL
VOLUME TABLE OF CONTENTS
VOLUME
INDEX
DSCB
VOLUME
VOLUME
TABLE OF CONTENTS
~: ~: ~:~: ~: ~: ~: ~: ~: ~: ~: ~: ~: ~: ~: ~ ..
.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.'
:':':':':':':':':':':':':':':'.
...................................
..................................
:::::::::::::::::::::::::::::::::::..
INDEX
VOLUME INDEX
B : Pointer to
Index B
E I Poi nter to
I Index E
Volume Serial
E:
Number of
I
INDEX
B
F I
I
Volume
Number
of F
Volume
Number
of G
INDEX
A I Pointer to
E
I Index A
INDEX
A
o
"
."
I
o
Data
Data
Set
B. F.
Set
B.G.
Data
Set
E.A.P.
Data
Set
E.A.L.
STATES OF A TASK ·
o
'"t:I
."
I
--0
--0
STATES OF A TASK
LEGEND
1.
The job step is attached as a task and its task control
block is entered into the ready queue.
2.
If this ready task has a higher priority than any other
ready task, it is dispatched (receives control of the
CPU).
o
"-n
I
---
'"
3.
The task is placed in the wait state to await the
completion of some event.
4.
The event being waited for is completed so the task is
placed in ready state.
5.
The active task relinguishes CPU control to a higher
priority task that has become ready.
6.
A task is completed. Its task control block is deleted
from the ready queue and its resources are made
available to the system.
JOB STEP-TASK RELATIONSHIP
,--I
I
I
TASK
L--.i----------i
I
I
I
I
PROGRAM
I
I
"SIMPLE II
:
I
(LOAD
I
:
MODULE)
:
I
JOB STEP
,------------------
II
I
I
IISTEPl EXEC PGM=SIMPLE
I
I
I
I
II DDNAME 1 DO DSNAME =A
I
I
I
I
I
I II DDNAME 2 DO DSNAME =B - 1
I
I
: IIDDNAME3 DO DSNAME=C
L ____________________
IL __________ JI
DATA SETS
I
~
1.
o
."
-n
--
1--1
A --1
L __
MULTIJOB INITIATION
JOB SELECTION
JOB
HIGH
PRIORITY
I
JOB
I
I
JOB
INPUT JOB
STREAM
JOB
JOB
JOB
I
I
I
I
JOB 1
(PRIORITY 14)
JOB 2
(PRIORITY 12)
JOB :3
(PRIORITY 8)
STEP A
STEP A
STEP B
STEP A
STEP B
STEP C
I
I
,
I
LOW
PRIORITY
INITIATOR
INPUT
WORK
QUEUE
o
"
-"
I
--'
~
JOB 1
STEP A
JOB 2
STEP A
JOB 3
STEP A
FLOW OF INFORMATION
TO AND FROM DATA CONTROL BLOCK
JOB FILE
CONTROL
BLOCK
DATA
. . - - . -.. CONTROL
BLOCK
NEW
o
"
-"
-I
<.rJ
DATA
LABEL
EXISTING
~--4I
DATA SET
LABEL
__ -14\- --'::!.r
PROGRAMMER'S
MODIFICATION
ROUTINES
PROCESSING
PROGRAM
eDAM ROUTINES
(OPEN TIME)
OPEN DCB -
-
-
-,
-
-
-
1
I
t
---..
GET STORAGE FOR DEB
DATA
MANAGEMENT
OPEN
ROUTINE
-
-.....
BUILD DCB EXTENTS
---.~----
=~-
-l
I
I
I
o
-a
"I
-"
0.
I
I
I
L ___ ..J
,
--,
BDAM
OPEN
EXECUTORS
I
I
IL ___ --lI
-.....
---..
-
INITIALIZE
IRB AND DeB
LOAD PROCESSING MODULES
AND STORE ADDRESSING
ACCESS METHODS
DATA SET ORGANIZATION
LANGUAGE CATEGORY
QUEUED
BASIC
SEQUENTIAL
QSAM
BSAM
INDEXED SEQUENTIAL
QISAM
BISAM
DIRECT
BDAM
PARTITIONED
BPAM
TELECOMMUNICATION
QTAM
STAM
CHAIN OF SYMBOLIC REFERENCES
COMILED WITH
CREATED WITH DATA SET
OBJEC1 MODULE
DATA SET LABEL
DeB
~
DCBNAME
GET
o
-c
'"T1
I
--'
00
COMPILED WITH OBJECT MODULE
DSNAME
DDNAME
DO
CONTROL STATEMENT AS
tNTERPRETED AT JOB TIME
EXCP
MACRO -INSTRUCTION
EXCP
lOS ADDRESS
OR
G.R.-COOS ADDRJ
INPUT/OUTPUT PROGRAM FLOW
PROBLEM PROGRAM
,
I
CD
®
®
/
DATA CONTROL BLOCK
, 1
/
\ I
\I
DCB / - -
-I
I'V
o
I
~.
-- - -
I
~--+
ccw
LIST
I
SVC (OPEN)
\
1
GET
~
ROUTINES
BUFFER CONTROLS
BLOCK-DEBLOCK
ETC.
.
I
I
\
I
."
."
/-"
~7
1
\
OPEN
ACCESS
o
I
~/
BUFFER
POOL
I
I
I
..
OPEN
ROUTINES
:>
i
®
I
I
0
I
I
SVC ( EXCP)
1
I
I
...
..>
I/O
SUPERVISOR
®
..
START ....
I/O
GENERAL FLOW-I/O SUPERVISOR
PROGRAM
CHECK
REASON FOR
INTERRUPTION ....._ _ _...
a
SERVICE
HANDLE
~---t. . OUTSTANDING
INTERRUPTS
CHANNEL
FREE
HANDLE
START 1/0
PROCEDURES
FIND REQUEST
TO START
ON CHANNEL
ANALYZE
ERROR a
HANDLE
ENQUEUE
THE
REQUEST
OPF 1-21
BDAM
PROCESSING
PROGRAM
(PROC ESSING REQUEST)
READ/WRITE- -
-
-
--
.-----,
---,
~
I
I
I
I
I--
I
BDAM
FOUNDATION
I
(BASE
COMPONENT)
I
I
I
-
CHECK
REQUEST
VALIDITY
--
CONVERT
ADDRESS
-- I
BUILD 108
--
PROCESS
REQUEST
ERRORS
I
I
L_ __ .J
I
""'tJ
RELATIVE
BLOCK
~
r-Ir
I I
.-
=J
~-
J
___ J
_...1
I
I
-
GENERATE
CHANNEL
PROGRAM
~-
I
I
..
-
SCHEDULE I/O
REQUEST
L _____________ ...JI
J
~~~-
I
."
I-
READ/WRITE
BY
BLOCK I/O
I
I
I
I
o
I
I
l"-
I
INPUT/OUTPUT '~
SUPERVISOR
r-
RELATIVE
TRACK
-=-~l
I I
I I
I L_
I
I
I
L __
READ/WRITE
BY
BLOCK KEY
WRITE-ADD,
FORMAT F
WRITE-ADD,
FORMAT
U or V
WRITEVERIFY
Flow of control in QSAM, BSAM, and BPAM for Members
PROCESSING PROGRAM
(UsiOg QSAM or BPAM)
PROCESSING PROGRAM
(Using QSAM)
GET, PUT, PUTX
READ/WRITE
"
I
GET/PUT
ROUTINES
- - -.....-;j
...
READ/WRITE
ROUTINES
End-ot-Block
Condition
'H
SYNCHRONIZING
ROUTINES
1\
END OF BLOCK
ROUTINES
EXCP
User's SYNAD
Routines
I/O Supervisor
Appendages
t ~p~~/
r-
~----------~~
""0
"
I
~
w
I
I
lOB
QSAM
ECB
---
CHECK
ROUTINES
"
~---
..
....
(ACCEPT)
User's SYNAD
Routines
.
....
Interruption
I/O Supervisor
ECB
~,
1\
~~----+-~~----~
I/O
o
BALR
"
EROPT
- ....
'\
,~-----~
Need New Buffer
r: - -..
.. ,
CHECK
Appendages
I/O Interruption
Supervisor
EXCP
(a)
Channel
Program
~-------P----~
1- ___ -
LPSW
- - ----
BSAM
DECB
-- --ECB
1
PROCESSING
PROGRAM
BDAM ROUTINES
(CLOSE TIME)
CLOSE DCB -
-
-'-1
I
I
----,
t
I
DATA
MANAGEMENT
I
CLOSE
ROUTINE
I
-
....JIIIo...
-
PURGE
SCHEDULED
lOB's
---
RELEASE
lOB STORAGE
AREAS
I
I
I
I
I
I
I
I
I
----- ---'-_°'--1
I
I
I
I
I
I
I
I
o
"
-0
I
L I_ _. - - - -_ _
I
I
L ___ .J
I
-.
BDAM
CLOSE
EXECUTORS
I
I
I
I
I
L __ _ --.l
I
J
r-
-
..lIIIo...
CLEAR DCB
BDAM
FIELDS
I
EXECUTE CHANNEL PROGRAM
Reference
Suggested Sequence:
A.
Topic II
Role of EXCP in OS/360.
1.
What is EXCP?
1
EXCP is the interface between any user or system
program requiring input/output operations and
the I/O Supervisor of OS/360. The EXCP macroinstruction causes a supervisor call interruption (SVC 0) to pass control to what is essentially a device-dependent accessing method that
allows the user to control I/O device hardware
by channel commands he constructs. In no way
in OS/360 is the user permitted to perform I/O
operations outside the supervisory control of
lOS.
The I/O Supervisor consists of two parts:
EXCP Supervisor
I/O Interruption Supervisor
The services provided to all users requesting
any type of I/O are:
Scheduling the I/O request on the device
and a channel.
Issuing SIO for the channel commands the
user provides.
Processing I/O interruptions and performing error recovery procedures.
Notifying the user about the status of the
computer request.
2.
Who uses EXCP?
a.
Standard Accessing Methods
In most cases the system supplied accessing
methods, such as SAM and DAM, will satisfy
the customer and application requirements.
They provide the programmer with relatively simple macros (GET, READ, etc.) and relieve him of responsibility for coding
device dependent and tedious housekeeping
routines in his application programs.
The standard accessing method routines are
entered via a branch when the user issues
GET or READ, and they ultimately issue EXCP
4.2.1
Topic II (Cont'd.)
Suggested Sequence:
Reference
macros.
For the problem program they:
Construct all required system control
blocks except the Data Control Block
by which the user specifies in his
program which accessing method he
needs.
Create channel programs peculiar to
the device type assigned to the user's
data set.
Link to appendages providing end of
data and end of extent recognition.
Perform volume switching when necessary.
b.
Problem programmers use EXCP directly when:
1)
Designing their own accessing methods.
2)
Writing non-standard label processing
routines.
3)
Processing data recorded in a fashion
not supported by the standard accessing methods, e.g. tapes where tape
marks occur after every record.
4)
Handling I/O devices not supported
by OS/360:
Unsupported in current systems
(2302, hypertapes, etc.)
No support announced (7770 audio
response)
Non-IBM devices
The user must in these cases build
the control blocks and perform the
housekeeping that the standard routines normally provide.
3.
Considerations in using EXCP and incorporating
user routines into lOS.
a.
I/O programming is considerably more difficult because:
1)
User manipulates system control information (ECB's, lOB's, channel
4.2.2
Topic II (Cont'd.)
Reference
Suggested Sequence:
programs, seek addresses).
2)
User must be aware of logic of lOS,
how it manipulates control blocks, and
how it flags error conditions.
3)
User must know in detail the operating
characteristics of the devices he is
controlling.
How EOF is signalled.
What device and channel end
errors mean and how they are
indicated.
How the device responds or fails
to respond to S/360 channel commands, such as SENSE.
b.
B.
However, in situations where standard
accessing methods impose restrictions (no
command and data chaining in a single tape
channel program, inability to handle interspersed tape marks easily), the user can
take full advantage of the flexibility of
S/360 hardware by using EXCP.
Introduction to lOS and the use of EXCP
INSTRUCTORS' NOTE:
The following sections are intended to give the students
a basic understanding of:
How channel scheduling is performed.
Queue and control block manipulation by lOS.
Error recovery in
as.
Excellent reference material is available on this subject
It is recommended that EXCP users become familiar with:
Introduction to Control Program Logic, Part I - Y28-6605
OS/360 Input/Output Supervisor - Y28-6616
System Programmer's Guide - C28-6550
All discussions of logic and control blocks apply only to
single task and sequential scheduler systems.
4.2.3
Topic II (Cont'd.)
Reference
Suggested Sequence:
1.
Control Program Logic - Tables constructed
at System Generation time.
a.
2
OPF 11-1
Unit Control Blocks
3
1)
One block for each device on system.
2)
Part of nucleus of
3)
Used by lOS and job scheduler.
4)
Contents
as.
a)
Device address (channel part of
address will vary if there are
alternate paths to the device.)
b)
Unit name - 183,000, etc.
c)
Device status bits - UCB busy,
not ready, etc.
d)
Volume
e)
Pointers to: Device table
containing pointers to queuing,
SIO, interrupt analysis routines
for this device type.
#
currently mounted.
Beginning of logical
channel table.
SVC error routine.
Statistical counters for
this device.
f)
5)
b.
Seek queue control information
if this is DASD.
UCB's are arranged in core by device
address within channel.
Request Element Table
1)
These blocks are queued onto logical
channels or seek queues as I/O requests are made during system execution.
2)
Any element in the table can be
active, queued, or available.
4.2.4
4
Topic II (Cont'd.)
Suggested Sequence:
c.
Reference
3)
There are as many RQE's as you specified simultaneous I/O options in the
CTRLPROG macro at System Generation.
4)
If at execution time an I/O request
is made and th~re are no RQE's available, lOS sits in a pseudo disabled
loop waiting till an I/O interrupt
occurs during an RQE.
5)
Contains pointers to UCB, lOB, DEB
(discussed later), and next element
in queue.
Logical Channel Word Table
1)
Concept of a logical channel
5
Definition: All devices that can be
reached thru the same set of physical
channel paths are said to be in the
same logical channel.
Example:
2260
A
Disk Drives
ChI
!}
o
Ch2
Tape Drives
DASD's on the 2841 and 2260's on their
control unit are in the same logical
channel. (They can be accessed only
thru physical channell.)
Tapes on the 2804 (or switching unit)
are in a different logical channel
because they can be reached either
thru channell or, if it is busy,
thru channel 2.
INSTRUCTORS' NOTE:
The multiplexor channel constitutes only 1 logical channel.
4.2.5
Topic II (Cont'd.)
Suggested Sequence:
2)
3)
2.
Reference
An LCWT entry is constructed for each
logical channel and contains:
a)
Pointers to 1st and last entries
in RQE table that are currently
in this logical channel.
b)
Pointer to the TCH (test channel)
module entered when I/O request
is made. This module tests to
see if physical channels within
the logical channel are available.
Relationship of LCWT and request
element table.
a)
All entries in RQE table are
queued onto something: free
list, logical channel queue.
b)
All those currently waiting to
be handled on logical channel X
are linked together and are
pointed to by LCWT entry. Last
one is pointed to so that it can
be easily found when new request
has to be added to the queue.
c)
Last element in any queue always
has link field containing all 1
bits.
Control Program Flow - Problem Program Initiation
Refer to chart.
a.
Reader/Interpreter constructs tables for
1 job and stores them in SYSJOBQE. (R/I
reads control cards and builds tables until
it hits a DD* card or another JOB card.)
b.
Initiator overlays R/I in dynamic core,
builds Task I/O Table in high core, and
prepares for fetching of problem program
(besides device allocation, etc.).
c.
TIOT contains each DDNAME for this job
step and pointers to UCB's assigned to
the associated data set.
d.
Initiator XCTL's to problem program.
4.2.6
OPF 11-2
6
Appendix V
Topic II (Cont'd.)
Reference
Suggested Sequence:
e.
OPF 11-3
Organization of main storage.
7
1"""-
TIOT
Scheduler register save area
Access methods & routines
brought in via LOAD
H
Dynamic
Area
j~
)
Free core
"
H
Routines brought in via LINK,
XCTL, ATTACH (Problem program,
job management routines)
.J
SVC transient area
NUCLEUS
lOS transient area
3.
}
Fixed
Area
1)
Any storage allocated from free core
by GETMAIN or LOAD will come from
th~ highest part of free core.
2)
Any area allocated for LINK, etc.,
will be immediately above the last
currently active module in dynamic
core.
Control Program Flow - OPEN
8
Appendix VI
Refer to chart.
a.
OPEN, specifying any series of Data Control Blocks the programmer has built in
his program, generates an in-line SVC 19.
b.
The system locates the secondary OPEN routines in SVCLIB by issuing a BLDL macro
and LOADing them into main storage.
c.
OPEN (routines run enabled for I/O interruption).
1)
Completes the DCB and output DSCB.
4.2.7
Topic II (Cont'd.)
Suggested Sequence:
Reference
2)
Causes non-standard labels to be
checked.
3)
Exits to any user label processing
routines specified in an EXLST.
4)
LOADS any 105 appendage routines
specified in the Data Control Block.
5)
Exits to accessing method routines
which build Data Extent Block for
each DCB opened.
6)
DEB - built in high core
(is not protected in current
system).
9
10
- contains system control information about subroutines loaded,
other tables, etc.
- linkages built:
Next DEB
of step
- contains extents on this DASD
volume.
The disk address for every DASD seek
request is checked against extent
boundaries by 105.
4.
Problem program use of EXCP - general approach.
a.
User must construct and do the following:
1)
Data Control Block
2)
Input/Output Block
3)
Channel Program
4)
Event Control Block
4.2.8
11
OPF 11-4
Topic II (Cont'd.)
Suggested Sequence:
b.
Reference
5)
Code EXCP and OPEN and CLOSE.
6)
Wait for event completion.
7)
Test status of completed request.
8)
Perform certain housekeeping operations on DCB, lOB, & ECB.
Data Control Block for EXCP
11
INSTRUCTORS' NOTE:
Students should follow the description in the System
Programmer's Guide.
c.
1)
MACRF & DDNAME parameters are required,
although DDNAME could be inserted into
the DCB prior to OPEN.
2)
If user has placed 105 appendages
into SVCLIB and wants to use them, he
must indicate their identification
numbers in the DCB. (Note: Appendages
are discussed later.) Ex. A SAM
appendage checks for /*EOData when
data is input job stream.
3)
EODAD is required only when EOV macro
is being used and is issued when data
set is currently positioned on last
volume. (Last volume is determined by
volume count or list of volume serial
numbers maintained by job control.)
4)
Note common interface and foundation
block extension information. The
information is primarily useful for
building data set labels.
5)
Note device-dependent parameters.
If you specify no device type, 20 bytes
will be reserved.
OPEN macro is coded just as it is for
other accessing methods.
OPEN (deb-name,
12
fJ(A~~X~K}
,{~~~~~D\)
J[, dcbname])
U
lOUTPUT
DISP j
OPEN (INFILE"OUTFILE,(OUTPUT))
4.2.9
Topic II (Cont'd.)
Reference
Suggested Sequence:
d.
Coding EXCP - EXCP 10B-ADDR
e.
Input/Output Block - lOB
1)
13
User must build the block containing
primarily points to his:
Data Control Block
Channel Program (discussed later)
Event Control Block
f.
g.
2)
User's I/O request is entered into
logical channel queue by having
address of lOB put into RQE.
3)
Summary of control block linkages.
4)
The SIO routines of lOS locate the
channel program that is to be executed
via RQE ~ lOB ~ CCW.
5)
Completion of the event is signalled
by a post code in the ECB indicated
by the lOB, and by channel status
information stored in the lOB.
OPF 11-5
WAITing on event completion WAIT ECB=ecbname
1)
User must construct the full word
Event Control Block and be sure the
complete bit is set to zero before
issuing EXCP.
2)
When event is completed, the user
must check the completion code (1st
byte of ECB) to determine success of
request. (Specific codes will be
covered 1 a ter.)
User issues normal CLOSE when he determines
he is at end of data set.
CLOSE
(dcbnameGLEAVE
I REREAD I DISP]
)
CLOSE performs these functions:
Release of DEB.
Restoration of DCB to its status
prior to OPEN.
Verification or creation of standard
labels.
4.2.10
14
15
Topic II (Cont'd.)
Suggested Sequence:
Reference
Volume disposition.
Release of programmer - written appendages routines.
h.
s.
Sample EXCP program
OPF 11-6
Control Program Logic - I/O Supervisor
a.
Very general flow chart - lOS in this
system is not in general concept different
from other channel schedulers and interrupt
supervisors.
Develop on board:
I/O INTERRUPT
EXCP
YES
Post Status
of Request
in ECB
Start I/O
Operation
Enqueue Request
in
Logi cal Channel
Schedule
Error
Correction
t----~
In implementation detail, however, it is
quite different.
h.
Detailed analysis of EXCP Supervisor
handling of I/O requests.
4.2.11
16
Topic II (Cont'd.)
Reference
Suggested Sequence:
Review logic of flow chart.
Appendix
VIII
Develop example of request for a tape operation on Selector Channel. (Note: There
are few differences in the handling of unit
record devices on multiplexor channel and
several in handling DASD on any channel.
Techniques in handling DASD are covered in
the second part of the EXCP outline.)
1)
EXCP for tape I/O issued - assumed device and channel free. Follow IDS logic.
a)
b)
After validity of request is
checked, a request element RQE
is issued for the I/O operation
and pointers to it will be
placed in a queue or in UCB.
Test channel modules - 2 types
17
18
Selector channel - TCH is
sufficient.
Multiplexor - TCH would
always reply available, so
only way to test is to
issue SID.
c)
A TCH module exists for each
logical channel so that the unique
set of physical channels in the
logical channel can be tested for
availability.
d)
SID routine for specific device
type entered. UCB busy set if
SID is given.
NOTE: If request is for a burst
device on MPX channel, the request is held up until all overrunable devices have stopped operating.
e)
Tape SID - Channel program consists of 2 CCW's in addition to
user's CCW's:
1st - Sets mode for 7 track tape
operation - IDS finds the
information in DEB (mode
is NOP for 9 track tape).
4.2.12
19
Topic II (Cont'd.)
Reference
Suggested Sequence:
2nd - TIC to user CCW's.
f)
Unit record 510 - no preliminary
commands are required.
g)
Result of 510
If MPX channel is operating
there may be a busy result
indicating that the subchannel is busy.
If control unit is shared
between 2 channels and is
currently in use, control
unit busy signal will be
indica ted.
h)
2)
SIO accepted - return to task
supervisor.
User program issues second request
for tape drive, requiring queuing
of the request.
a)
Device is already busy:
busy bit on.
UCB
b)
Queuing a request in a logical
channel.
Next available RQE is filled
in with information for
this request (top of freelist) .
UCB ~ LCWT entry for proper
logical channel.
Queuing techniques for
non-DASD.
FIFO - RQE added at end
of current logical
channel queue.
Priority - applies to
mu1titask system
only. Within a
given priority
entries are queued
in a FIFO arrangement.
4.2.13
18
Topic II (Cont'd.)
Reference
Suggested Sequence:
3)
I/O interruption occurs
20
a)
UCB for device causing interrupt
is found via a UCB look-up table
in Nucleus.
b)
UCB
c)
Trapcode modules exist for each
device class and analyze the
CSW bits as they apply to a
specific device type.
d)
In case of errors:
+
active RQE
+
lOB
& DEB
21
DASD routines are mostly
resident and are entered
directly.
Other error routines are
transient and must be pulled
in by an input operation
from SYSRES. If SYSRES or
its channel is currently
busy, then the I/O request
must be queued. Error
correction then does not
take place immediately.
e)
Channel restart procedure
22
Any pending interruptions
are taken (e.g. seeking or
rewinding complete) until
channel is free.
Channel search modules - I
per physical channel. Routines search the queues of
the logical channels to which
it belongs for a waiting RQE.
NOTE: All seeks waiting
for the channel are started
before any data transfer
operations.
4 types of channel search
routines:
MPX - no burst devices
MPX - burst devices
4.2.14
22
Topic II (Cont'd.)
Reference
Suggested Sequence:
Selector channel in
only one logical channel
Selector channel in more
than one logical channel
f)
6.
After channel has been serviced,
lOS returns to task supervisor.
User Programming Responsibilities - Detail
a.
Construction of channel commands.
1)
OPF 11-7
OPF 11-8
CCW instruction
OP
~
Operands
cmd, data address, flags, count
Command code, flags, and count must
be absolute expressions.
2)
Channel Program examples
a)
OPF 11-9
SILl flag - channel returns an
error if data length specified
in count is not the same as
physical block or buffer length.
To suppress error indication,
turn the flag on.
SILl is required for all tape
writing operations.
b)
Count should never be equal to
zero in a control command.
c)
Control commands that may not
appear in user chanel programs
are:
Rewind, Rewind and Unload,
set file mask for 7 track
tape, set file mask for
disk, and seek on disk.
lOS always sets file masks for
disk and tape, and the hardware
does not permit two such commands
in the same channel program.
The DASD set file mask inhibits
further seeks outside current
cylinder.
OPF 11-10
4.2.15
Topic II (Cont'd.)
Reference
Suggested Sequence:
d)
On data and command chaining for
tape and UR, lOS does not have
the ability to determine where
to restart a channel program if
there is any mixture of DC and
CC in a CCW series. lOS will
signal permanent error, and user
can figure out how to handle the
error.
e)
The user must set bits 0 and 1
of the first lOB byte to indicate
data or command chaining.
INSTRUCTORS' NOTE:
Disk examples will be covered in the second section of
EXCP. For further information on channel commands, see
pp. 11 and 12 of 5/360 Reference Card, X20-l703, or the
control unit hardware manuals.
h.
Error testing following execution of WAIT
Macro
In case of unrecoverable error the first
2 bits of I FLAGS in DCB are set on, and
the first byte of the ECB is set. User
must test the ECB.
1)
Channel program terminated. When
channel end, with or without device
end, occurs:
the ECB is posted complete,
indicating whether or not there
were data transfer errors, and
the associated RQE is freed.
If device end occurs simultaneously
(as in tape and disk data transfers),
then unit exception and unit check
conditions are also noted.
2)
Channel program intercepted~ If
device end occurs after channel end
(as in typewriter and printer operations where the device continues to
operate after data transfer has
terminated), and if there were unit
errors (carriage return or forms
failures), the UCB is marked intercepted.
4.2.16
10
OPF II-II
Topic II (Cont'd.)
Reference
Suggested Sequence:
If error correction procedures initiated on next request for the device
fail to correct the situation, the
ECB is marked intercepted, the DCB
exception bits 0, 1 of IFLAGS are set
to l's, and the current request is
not executed.
User may reissue the intercepted
request after resetting the DCB bits.
c.
End of data checking
1)
If input data is from system input
stream, user must check for /*.
2)
On reading tape mark, EOD record on
disk, or trying to read past EOF on
card reader, user gets:
3)
a)
ECB - Channel end error.
b)
Unit exception flagged in CSW.
Testing for unit exception in lOB.
lOB
IOB+12
~_~_____--------.I""
_
CSW low7 bytes
order
st·ored
TM IOB+12, X'Ol' unit exception is
the seventh bit of this byte.
d.
Preparation for issuing EOV or CLOSE for
a tape.
1)
The action taken and label processing will depend on the setting of
OFLGS field in the DCB. User must
set bits 0, 1, 4, 5 as follows:
Bit 0 - indicates that a tape mark
is to be written.
Bit 1 - indicates that a backwards
read was the last I/O operation.
Bit 4 - indicates that data sets of
unlike attributes are to be
concatenated.
4.2.17
15
Topic II (Cont'd.)
Reference
Suggested Sequence:
Bit 5 - indicates that a tape mark
has been read.
If Bits 0 and 5 of OFLGS are both off
when EOV is executed, the tape is
spaced past a tape mark, and standard
labels, if present, are verified on
both the old and new volumes. The
direction of spacing depends on Bit 1.
If Bit 1 is off, the tape is spaced
forward; if Bit 1 is on, the tape is
back-spaced.
If Bit 0 is on when EOV is executed,
a tape mark is written immediately
following the last data record of the
data set, and standard labels, if
specified, are created on the new
volume.
To in~icate that a tape mark is to be
written:
01 DCBNAME + 4S,X'SO'
c.
Student Problem to be Tested in Machine Lab
(For alternate problem, see Appendix XVIII.)
1.
Write a program using EXCP to load a tape from
an input data set containing SO character
blocks. The data set may be on cards or on
tape. End of data set is to be determined by
checking the unit exception bit in the channel
status word stored in the lOB.
Before writing each output record, insert your
name in positions 10-25 for identification on
the tape dump.
In the following job step, dump the tape to the
printer using the IEBPTPCH Utility program.
Job control cards will be provided.
2.
Write and insert into SVCLIB a channel end
appendage routine that you will use on every
input data set you process using EXCP. The
appendage is to determine whether or not your
input data set is the SYSIN data set (indicated
by data set status flags in the DEB).
If it is, and the record just read contains /*
in the first 2 positions, the appendage is to
set the unit exception bit in the CSW storage
4.2.lS
Appendix
XVIII
Topic II (Cont'd.)
Reference
Suggested Sequence:
of the lOB to indicate the standard end of data
set condition. In all cases, provide for a
normal return to lOS.
Modify the DCB of part one of the problem so
that it uses the appendage.
The problem solutions are contained in Appendix IX.
D.
Appendix IX
Controlling DASD by EXCP
1.
Ease of Control by User
a.
DASD are not as difficult to control on
S/360 as on some past systems, but the
user housekeeping requirements when using
EXCP are considerable when compared to
handling tape or unit record.
b.
Programmer responsibilities in addition
to usual control block construction and
error testing:
1)
OPF 11-12
Building and maintenance of the seek
address in the lOB.
Incrementing record ,
Incrementing head , when track
exhausted
Incrementing cylinder I when
cylinder is exhausted
2•
2)
Recognition of end of extent and
initializing seek address to beginning
of next extent if there is one.
3)
Construction of channel commands and
construction of count field in core
if loading a sequential data set.
4)
Giving CLOSE information about where
to record EOD marker at end of PS or
PO data set.
lOS handling of disk I/O requests.
lOS logic chart.
a.
Refer to
All DASD requests are broken into two
separate requests:
4.2.19
Appendix
VIII
Topic II (Cont'd.)
Reference
Suggested Sequence:
Stand alone seek which overlaps other
operations on the channel, such as
other seeks or data transfers.
Seek and data transfer chain of commands.
b.
Seek Queuing - (Assume device is busy seeking, transferring data, or waiting to
begin a data transfer - when request is
made.)
1)
DASD I/O
onto the
the UCB.
freelist
one of 3
options:
requests are first queued
seek queue which begins in
An RQE is taken from the
and queued onto the UCB in
ways, depending on SYSGEN
23
FIFO
Priority (multitask system)
Ordered queuing
c.
2)
Assuming seek address is valid, the
SIO for stand alone seek is issued
and lOS waits for channel end indicating that the seek address has been
received. Disk arm seeking and UCB
busy bits are set.
3)
If entry to SIO module came from
Interruption Supervisor, then lOS
loops back to see if there were other
seek requests in seek queues or data
transfer requests in a logical channel
queue for this physical channel.
Device end for the stand alone seek. RQE
placed in logical channel queue to await
its turn on the channel.
22
NOTE: The UCB is still busy, so, prior
to starting the data transfer, all other
problem program seek requests would be
queued onto the UCB.
ARM STEALING CAN NEVER TAKE PLACE IN ANY
VERSION OF lOS.
d.
Data transfer operation begins. The SIO
module for DASD always issues 2 channel
4.2.20
24
Topic II (Cont'd.)
Reference
Suggested Sequence:
commands before transferring in channel
(TIC) to the user's commands:
1st - reissue SEEK - to reset head
register in the control unit.
2nd - set file mask as indicated in
DEB to inhibit certain types of seeks
and writes.
25
The disk data transfer flag is turned on.
3.
e.
When channel and device end interrupt
occur, if there are errors, the core resident 2311 error routine is immediately
entered. If the non-resident portion is
required, it is scheduled in the normal
manner.
f.
The channel is restarted, and CPU control
eventually goes to the task supervisor.
Programming for disk.
program.
a.
b.
Refer to sample disk
lOB
Appendix
VII
26
1)
Indicate command chaining in the
Flags 1 byte.
2)
Build space for the seek address.
Maintaining seek address
1)
Set M - the extent number (the 1st
is zero) and extract the extent
beginning CCHH address beginning at
the 38th byte of the DEB.
2)
Prior to each new disk operation,
user must be sure that the lOB seek
address field is set properly.
3)
User is responsible for incrementing
record, track, and cylinder numbers
as required.
4)
At end of extent, the user is notified and must check to see if there
are additional extents - (extent
count field in DEB).
4.2.21
27
Topic II (Cont'd.)
Suggested Sequence:
5)
Reference
To get volume switching or, for output files, secondary allocation, use
the EOV macro.
When issuing EOV for sequentially
organized output data sets on directaccess volumes, you can determine
whether additional space has been
obtained on the same or different
volume by checking the volume serial
number in the unit control block (UCB)
both before and after issuing EOV.
c.
15
End of file handling
1)
Input or update files - sequential.
2)
FIFO - request is added at end of
current queue.
3)
Priority - request is inserted into
queue following requests of other
tasks with the same priority.
4)
Ordered Seek Queuing - Minimizes
irregular arm movement.
Stand alone seeks are executed
in order of seek address as the
arm moves from lower to higher
cylinder addresses.
Technique: If current request
is for a cylinder higher than
current position of arm, then
RQE is entered in its place in
a primary queue; otherwise, it
is entered in the secondary queue
which begins at cylinder o.
When the primary queue is
exhausted, the secondary queue
becomes primary.
d.
Eventually the device and channel become
available and an SIO module is entered
from I/O Interruption Supervisor.
1)
Prior to stand alone seek, the DASD
SIO module checks seek address against
extent boundaries. If request is not
4.2.22
24
Topic II (Cont'd.)
Reference
Suggested Sequence:
within extents, then:
End of extent appendage is
entered where user may fix up
the extent problem and request
that lOS try again.
Or if no fix up, permanent error
posted and abnormal end appendage
is entered.
Without either appendage, the
request is posted complete with
end of extent violation in ECB.
Unit exception bit is turned on when
EOD record is read.
User must check for this.
2)
Sequential or partitioned output
files being loaded. CLOSE will write
an EOD record following last record
written. User must set DCB fields:
28
DCBADDR + 5 - MBBCCHHR
CLOSE will write the file mark
in R + 1 record position.
TRBAL CDCBADDR + 18) indicates
the balance of space left on the
track. File mark is written
only if there is enough space.
e.
Writing the channel program - See the
2841 hardware manual.
1)
Reading records
a)
User provides address for seeking in lOB.
b)
Channel commands specify the
record to be located and what
part of the data to be read.
c)
Search must be executed; a read
alone would read whatever
followed the next address marker.
4.2.23
OPF 11-13
Topic II (Cont'd.)
Reference
Suggested Sequence:
d)
If search argument is not equal
to ID or Key on disk, the channel
falls through to the next command, which must force re-execution of the Search command.
NOTE: Flags are ignored in a
TIC command.
e)
When search argument and disk
agree, the channel will jump one
command to reach the Read.
f)
I/O area must be large enough to
hold (Key and) Data, and count
must specify the combined lengths
to avoid incorrect length indication.
2)
Updating - change the command from
Read to Write.
3)
File Loading. Programmer formats
the track as he loads records.
a)
Programmer builds 8 byte count
area in core and supplies actual
key and data lengths. CCHHRK
DD Data. When he writes the
new record, he specifies the
beginning of the count area, and
the length of information to be
written is count (8) + Key - Data
Lengths.
b)
Channel Program
OPF 11-14
Search ID - for record preceding
one you are writing.
TIC * - 8
Write Count
=
Key and Data
NOTE: The ID on which you
search and the ID you write are
different. To write the first
record on the track, search on
record O.
c)
Never include in your channel
program:
Set file mask:
4.2.24
hardware
29
Topic II (Cont'd.)
Suggested Sequence:
Reference
will reject it.
Seek for more than a head
switch within the current
cylinder, and that only if
your extents begin on cylinder boundaries.
4.2.25
TOPIC I I
REFERENCES
REFERENCE
CODE
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
14
71
67
86
11
9
20
59
94
82
89
91
93
90
18
20
21
23 & 24
28
31
32
22
25
97
92
96
86
76,97
4.2.26
TABLES USED BY I/O SUPERVISOR
&
EVICE
UCB·~
LOOKUP
TABLE
UCB
~~~----------------------------------------.--
DEVICE
TABLE
~ STATISTICS
TABLE
~sTART,ioi
L .!'f~DUL~ ~
_ ...i-ENQUEUE-l
-,L ______
MODULES ..J,
r-----..,
TRAPCODE
I
"'L. !ODULES _ J
~___
J
o
"
-
It
I
CHANNEL
CHANNEL - t
TABLE
r
-CHANNEL-1
SEARCH
I
-.L_~~LE!. ~
..I
~ ATTENTION
o
rATTEN~ION-:
I ROUTINES
LOGICAL
CHANNEL
WORD
TABLE
~
TABLE
I
L ____ J
...
.....
...
l -.,
r--
I
TEST
I CHANNEL
I
I
LMODULE~J
REQUEST
ELEMENT
TABLE
USAGE OF REQUEST ELEMENT TABLE
DASD UNIT
CONTROL BLOCKS
\
COMMUNICATION
VECTOR TABLE
DASD 1
t
SEEK QUEUE
t
--FREELIST
--LCWT
---
RQE TABLE
••
•
LOGICAL CHANNEL WORD TABLE
••
•
tLOGICAL CHANNEL Q
0
~
'"T1
-I
tv
••
•
LAST SEEK
NEXT AVAIL
NEXT SEEK
NEXT DATATRF
LAST AVAIL
AVAIL
DATA TRF
AST DATA TRF
ACTIVE
UCB
CORE STORAGE ORGANiZATION
(
TIOT
SCHEDULER REGISTER SAVEAREA
- ACCESS METHODS AND
ROUTINES BROUGHT IN
VIA LOAD
- SPACE ALLOCATED BY GETMAIN
DYNAMIC
AREA
FREE CORE
.
1
0
"
."
--I
W
ROUTINES BROUGHT IN VIA
LINK,XCTL, ATTACH. (PROBLEM
PROGRAM, JOB MGMT. ROUTINES)
ISVC. TRANSIENT AREA I
IlOS TRANSIE~T AREA I
FIXED
AREA
l
0
NUCLEUS
USER OF EXCP MUST
CONSTRUCT:
-
DATA CONTROL BLOCK
INPUT / OUTPUT BLOCK
CHANNEL PROGRAM
EVENT CONTROL BLOCK
SEEK ADDRESSES FOR DASD
CODE:
o
"-"
I
~
-
OPEN AND CLOSE MACROS
EXCP
WAIT FOR EVENT COMPLETION
TEST OF STATUS OF COMPLETED REQUEST
HOUSEKEEPING ON DCB,IOB,AND ECB
EXCP-MACRO
1/0 SUPERVISOR
LeWT
lOB
DCB
DEB
UCB
REQUEST
ELEMENT
CCW LIST
1/0 SUPERVISOR
o
""'tJ
-n
I
01
ECB
SAMPLE EXCP PROGRAM
~
(DCBIN)
OPEN
READ
~
ECBIN XIQQI
IOBIN
EC B=EC BIN
EC BIN, X' 7F '
PROCESS
IOBC SW+4, X'OII
EOF
NI
EXCP
WAIT
TM
BO
TM
BO
Reset complete bit
--'
Successful completion test
Unit exception test
-ERROREOF
01
CLOSE
DCBINt48,X ' 04 1
(DC BIN)
Tape mark has been read
DCBIN
DCB
~AACRF=(E), DSORG=PS, DDNAME=INPUT
ECBIN
DC
FIO'
__C.!:!ANPR~ _ CCW ___ XI02 1!-INAREA,OJOO ___yea~intoJNARE~a1OQ. byt~ blo~ __
IOBIN
o
-"
""'C
I
0-
IOBCSW
FLAGS
00 I
SENSE BYTES
A(EC BIN)
CHANNEL STATUS
A(CHANPRG)
A(DCB IN)
Set by lOS on unit check
-
Stored by lOS on channel end
CHANNEL COMMAND WORD
:•
I
o
II
I
I
I
I
•
~4!
31
78
37 39 40
48
63
ICOUNT
IGNORED
ZEROS
PROGRAM CONTROLLED INTERRUPT
DATA ADDRESS
COMMAND CODE
INFORMATION BIT
o
-
""tJ
-n
I
'.J
SKIP FLAG
SUPPRESS INCORRECT LENGTH INDICATION
CHAIN COMMAND FLAG
CHAIN DATA ADDRESS FLAG
SUMMARY OF COMMAND CODES
READ
WRITE
READ BACKWARD
SENSE
TRANSFER IN CHANNEL
CONTROL
• REW
• RUN
ERG
WTAf
BSR
BSF
FSR
FSF
RELEASE
RESTORE
• SEEK
• SET FILE "ASK
SEARCH
H.A.- EQ
10 - EO
10 -HI
10- EO/HI
KEY-EO
KEY-HI
KEY-EO/HI
• MUST NOT APPEAR IN USER CHANNEL PROGRAM
OPF 11-8
CHANNEL PROGRAM EXAMPLES
Ilk
READING BLOCKS WHERE COUNT AGREES WITH PHYSICAL BLOCKSIZE.
CCW
CCW
Ilk
o
-n
-,
""C
-.0
SILl Flag
SILl Flag, read part of buffer
AL~/AYS
X'OI', TAPEAREA, X'20', 100
PRINTING - SILl MUST BE USED IF BUFFER IS NOT FULLY LOADED
CCW
CCW
Ilk
X'02', TAPEAREA, X'20', 90
X'02'. CARDAREA, X'20 ' , 50
WRITING TAPE BLOCKS - INCORRECT LENGTH INDICATION MUST
CCW
Ilk
Read 100 byte tape block
Read card and stack in Pocked 1
READING BLOCKS WHERE COUNT DIFFERS FROM PHYSICAL BLOCKSIZE
CCW
CCW
Ilk
X'021, TAPEAREA, 0,100
X'021, CARDAREA, 0, 80
X'III, PRTAREA, X'20', 95
X'S9 1, PRTAREA, 0,132
Double space after printing
Skip to 1 after pri nti ng
CONTROL COMMANDS - COUNT MUST NEVER BE EOUAL TO ZERO
CCW
CCW
X'SB', 0, 0, 1
X'IF', 0, 0, 1
Skip to 1 immediately
Write tape mark
BE SUPPRESSED.
CHANNEL PROGRAM EXAMPLES
COMMAND AND DATA CHAINING
• READING 3 PHYSICAL BLOCKS FROM TAPE
CCW
CCW
CCW
X'02', AREA, )<'40',100
X'02', AREA+loo, X'4O', 100
X'02', AREA+200, 0, 100
Each block is exactly 100 bytes long.
• SCATTERING ONE BLOCK INTO MULTIPLE AREAS
CCW
CCW
CCW
o
-"
""0
.....I
o
X'02', A, X'80', 50
0, B, X'80', 20
0, C, X'20', 25
Read 1st 95 bytes of a tape record and
suppress incorrect length.
EVENT CONTROL BLOCK (ECB)
WAIT
. COMPLETE
o
1
REMAINDER OF
COMPLETION CODE
2
7FOOOOOO
"'"
41 000000 ...-....._"'-+---+-----+-_
--6----....---I-~
~2000000 -..-_"'-+----+-----.._
o
""'C
-n
I
--'
--'
44000000 -..--.-..._""'--+-----.._
48000000 -..--.-..._.-...-"'.....4FOOOOOO --......______~______"'--..-
31
PROGRAMMING FOR DASD
PROGRAMMER RESPONSIBILITIES:
• ISSUING OPEN, EXCP, AND CLOSE MACROS
• CONSTRUCTING lOB, INCLUDING SEEK ADDRESS
• CONSTRUCTING CHANNEL COMMANDS AND COUNT OR
SEARCH FIELDS IN CORE
• EXTRACTING EXTENT BOUNDARIES FROM DEB
• UPDATING CYLINDER, HEAD,AND RECORD NUMBERS
I N SEEK ADDRESS
• ON END-OF-EXTENT, RE-INITIALIZING SEEK ADDRESS
TO BEGINNING OF NEXT EXTENT
• RECOGNIZING EOF ON INPUT FILES
• BUILDING DCB FILE MARK ADDRESS FOR AN OUTPUT
FILE PRIOR TO CLOSE
o
-n
"
-.....
I
"->
DASD PROGRAMMING EXAMPLES
- READING
1f60
BYTE DATA RECORDS WITHOUT KEYS
~
lOB
A (CHANPROG)
M BB CC HH R
SEEKADDR ClJ 00 25 flJ2 1
ICAREA
OS
CHANPROG
CCW X ' 311 ,SEEKADDR+ 3,X '40' ,5
25F
Search 10
=and
chain commands
CCW
CCW
x 'gja ',*-a,0,0
x'0S', IOAREA, flj, 1910
EXCP lOB
o
"
."
I
-.I
W
Transfer in channel
Read 100 Byte data
area
DASD PROGRAMMING EXAMPLES
-I- LOADING 1"0 BYTE DATA RECORDS WITHOUT KEYS
~
lOB
A(CHANPROG)
M BB CC HH R
SEEKADDR flJ 00 25 02 ((J
- RECORD ~ IN SEEKADDR IS 1
LOWER THAN RECORD I 0 TO BE
WRITTEN
CC HH R KL OL
125 02 1 0 100,
DISKAREA
OS
0
DATAAREA
OS
CL10~
CHANPROG
CCW X' 31',SEEKAOOR +3,XI4~f,5
CCW
x (68', IE -8,flJ.(lJ
l
1
CCW Xl 10 , 0ISKAREA,X'2{lJ',1{68
EXCP lOB
I
.~
Search I D =, Immediately
precedinQ record
transfer in channel
Write count and data
foliowinQ next address
marker
DEBUGGING CONCEPTS
Reference
Suggested Sequence:
A.
Topic III
Introduction
This topic concerns the study of a ABEND Dump
consisting of three load modules ABLE, BAKER, and
CHARLIE. Their relationship to one another is
Appendix 15
interpreted in figure 1 of Appendix 15. The "ABDUMP
DEBUGGING PROCEDURES" should be used as the primary
text for discussion of System Control Flow, RB
Queues and Trace AREAS.
The Student Project on Systems Debugging contains
32 questions which will give the student a fairly
comprehensive study of the information contained
in an ABDUMP. These questions are designed to be
used in the classroom or as an outside project.
When used in the classroom the instructor should
give a brief introduction to each section and then
allow student time to develope his answers.
At the completion of a section the
instructor should summarize the important points
that should have been discovered by the student.
It is important that the students be given a chance
to study the dump without expensive instructor
guidance. This will aid him in learning the
fundamentals of the structure of the dump.
INSTRUCTORS' NOTE:
This section should serve as a review of OS/360 LOGIC
FLOW topic.
B.
C.
Requirements for obtaining an ABDUMP.
1.
Assign questions 1 and 2.
2.
Discuss under what conditions SYSABEND DD
statement would be included.
Device allocation.
1.
Assign questions 3 thru 8.
2.
Discuss the following control blocks,
their function, and describe when they
were created.
4.3. 1
Topic
III (Cont,d.)
Suggested Sequence:
D.
E.
F.
Reference
a)
TIOT
b)
DEB
c)
DCB
Contents supervision.
1.
Assign questions 9 thru 24.
2.
These questions concentrate on the size
of the nucleus, size of partions, and the
two RB Queues that make up the Contents
Directory for Option 1 of 05/360 (PCP).
Save Area Trace.
1.
Assign questions 25 thru 27.
2.
Discuss the value of forward chaining of the
Save Area.
3.
Discuss the advantages and disadvantages of
using the DD field of the LINK and SAVE
macros.
4.
Frequently word 00 (word where Register
normally stored) of the SAVE AREA pointed
to by register 13 will have a valid address.
Because Register 0 is a parmeter passing
register it seldom contains a valid' address,
therefore when word 00 of SAVE AREA has a
valid address it usually means that a branch
was taken to an access routine. In these
routines they issue a STM 14, instruction
for the registers they are going to
use. They store them in the 00 location
of the current Save Area. Therefore, word
00 contains the contents of register 14
which is the return to the program that
called the access routine. This address
can be used as a checkpoint in identifying
how far the program had proceeded if the
Resume PSW did not have a valid address
with which to work.
Control of Program Interrupts.
1. Assign question 28.
4.3.2
Topic
III (Cont,d.)
Suggested Sequence:
2.
G.
H.
An important area to stress is testing
to see if a previous SPIE macro has been
issued, if it has the pointer to the
PICA must be saved and PIE must be reset
to point to this PICA upon exiting the
current routine.
Trace Table.
1.
Assign questions 29 and 30.
2.
Discuss the value of the Trace Table.
Emphasize the amount of care it requires and
the benifits derived from it.
Locate and identify the Control Blocks associated
with Data Control Blocks.
1.
I.
Reference
Assign questions 31 and 32.
CompartABDUMP with Indicative Dump.
1.
When is an Indicative Dump provided?
2.
What is its value compared to a ABDUMP?
INSTRUCTORS' NOTE:
Refer to OS Messages, Completion Codes and Storage Dumps
(C28-663l) page 287, to discuss the answers to the above
two questions.
4.3.3
SVC ROUTINES
Reference
Suggested Sequence:
A.
Topic IV
Introduction
1.
Incorporated into the hardware of the System/360 OPF IV-l
is a Supervisor Call (SVC) instruction. This
instruction causes an interrupt with the OLD
SVC PSW stored. The SVC code number, in the
range from 0 to 2SS, and writtin in the operand
field of the SVC instruction is placed in the
fourth byte of the OLD SVC PSW for subsequent
retrieval and use.
2.
The software implementation of this hardware
feature (SVC) is arbitrary and can be designed
in many imaginative and creative ways. In our
discussion, however, we shall consider ONly
how the SVC software is implemented in t e
360 Operating System (OS).
3.
Because of the fact that SVC routines (routines called by a given SVC number) can be an
integral part of the resident control program,
one is not as free in writing routines of this
type as in writing a separate programming routine to be executed separately from its location in LINKLIB.
4.
The SVC routine and the SVC library concept
allow the resident control program to be much
shorter than would otherwise be possible with
a completely resident system, allow standardized and generalized routines to be always
available but not included in every program
which needs them; and further, allow the program to be executed in supervisory mode, thus
reducing the restrictions normally associated
with the problem state of the machine.
S.
In this section we shall consider:
a.
The fundamental concepts.
b.
The placing of a routine in SYSl.SVCLIB
library.
c.
The options which may be exercised at
SYSGEN time.
d.
The writing of an SVC routine of the
various types.
4.4.1
Topic IV (Cont'd.)
Reference
Suggested Sequence:
e.
B.
Limitations, restrictions and over-all
concept and understanding shall be
stressed.
Fundamental Concepts and Terminology
1.
Writing the SVC
Routines are called from the SVC library
(actually the SYSl.SVCLIB cataloged and partitioned data set) by giving the following
instruction:
iSVC
n
1
where: n is the decimal SVC code number
from 0 to 255.
2.
IBM Reserved SVC Code Numbers
The numbers (n) from 0 to 199 have been reserved for IBM generated SVC routines. The
numbers 0-69 are in current use.
3.
User Reserved SVC Code
1
Numbe~~
The numbers (n) from 200-255 (56 in total)
are reserved for user SVC routines and are
to be allocated backward, starting with 255
and allocating toward 200.
4.
1
OPF IV- 2
and IV-3
Appendix XX
The Prefix Table
a.
A single byte (8 bit) index pointer entry
table is used to convert SVC code numbers
to SVC table entries at SVC execution
time.
b.
A maximum of 256 possible table entries
is possible (one for each SVC code number
in current use).
c.
These entries are generated at SYSGEN time
based on the SVCTABLE parameter specifications.
4.4.2
Topic IV (Cont'd.)
Reference
Suggested Sequence:
s.
The SVC Table
a.
Format of Section 1 of SVC Table
1)
2)
b.
Twenty-one (21) high order bits of
a twenty-four (24) address pointer.
2
A three (3) bit field designating
1 to 6 double-word extended storage
areas in the Supervisor Call Request
Block (SVRB). The pointer in register S indicates where the SVRB is
located. This area of a maximum of
48 bytes of additional storage area
for routine use is displaced by 96
from the starting of the SVRB Block.
Thus, if one desires access to the
first word, an L n, 96 (S) instruction would be appropriate.
Format of Section 2 of SVC Table
1)
Normally, a three (3) bit field
designating 1 to 6 double word
extended storage areas in the request
block (SVRB). These 3 bits are in
the low order part of a byte, the
high order S bits being zero. The
number in the byte is actually one
greater than the number of double
words requested, therefore, when no
reservation is made a one (1) is
present and when 6 double words are
requested (48 bytes), a 7 in hexadecimal (or 00000111) appears in the
byte.
2)
Or, if the TRSVCTBL option is
Appendix XXV
selected in the SUPRVSOR macro at
SYSGEN time, a four (4) bytes field
containing a ten (10) bit track
address (TT), an eight (8) bit
record number (R), an eleven (11)
bit length (1), and a three (3) bit
extended storage area (ESA) field.
This section of the SVC Table resides in core and is created during
the Nucleus Initiation Program (NIP)
after each IPL.
4.4.3
Topic IV (Cont'd.)
Reference
Suggested Sequence:
6.
7•
8.
Residence for SVC Routines
a.
As a member of a cataloged, partitioned
data set on the systems residence device
(SYSl.SVCLIB).
b.
Or, as a resident SVC routine in the primary control program (PCP) area.
Types of SVC Routines
OPF IV-4
a.
Type I
-
resident, serially-reusable,
non-interruptable.
b.
Type 2
-
resident, re-entrant, interruptable.
c.
Type 3
-
non-resident, re-entrant, single
module, interruptable.
d.
Type 4
-
non-resident, re-entrant, multiple modules, interruptable.
Review and/or redefinition of serially-reusable and re-entrant.
a.
Serially-reusable
A routine designed and written in such a
manner so that the routine normally resets all modified areas before it exists.
b.
Re-entrant
A routine designed so that the routine
can be interrupted and continued at any
point without catastrophic results.
9.
Naming Conventions for SVC Routines
a.
Type I
-
b.
Type 2
- IGCnnn
c.
Type 3
d.
Type 4
-
NOTE:
3
OPF IV-S
IGCnnn
+
IGCOOnnn
+
IGCssnnn
The above names are the member names
4.4.4
Topic IV (Cont'd.)
Reference
Suggested Sequence:
which are used in cataloging the SVC into
the SYSl.SVCLIB data set. nnn is the SVC
code number and ss is the module order
number (01 for the second module). Since
the system constructs these names from
the SVC in instruction, it is absolutely
necessary that the SVC programmer place
into the SVCLIB a routine which is named
properly so that it can be retrieved when
desired.
10.
Routines specifically included in system to
support SVC instruction and SYSl.SVCLIB data
set.
a.
b.
4
Appendix XXI
Resident (in PCP)
1)
SVC First Level Interrupt Handler
(FLIH).
2)
SVC Second Level Interrupt Handler
(SLIH) .
3)
Type 1 Exi t
4)
EXIT (SVC 3)
Part of NIP (optional)
The TTR SVC Table Initiation routine for
transient (non-resident) SVC types.
INSTRUCTORS' NOTE:
At this point the functions and logical flow of the routines to support the SVC system can be undertaken. However, the routines are somewhat sophisticated and any
effort to cover them should be done with full knowledge
of the interest and capabilities of the student body as
well as their probable use of the information.
~----------.-------------------------.-------------------------~
C.
Why have SVC Routines?
1.
Allow a smaller primary control program (PCP)
than otherwise possible.
2.
Allow execution of routines in "supervisory"
state avoiding "problem" state limitations.
3.
Allow a generalization, standardization and
availability of often-used routines and/or
programming procedures.
4.4.5
Topic IV (Cont'd.)
Re£erence
Suggested Sequence:
D.
4
Understanding How the SVC System Functions
1.
An interrupt takes place.
2.
SVC interrupts transfers to the SVCFLIH rouAppendices
tine with all interrupts texcept machine check) XXII,X~III,
disabled.
XXIV
3.
A check is made for Type l.or other routine
requested.
4.
On Type 1, the registers are stored, the transfer address is retrieved for the SVC Table,
OPF IV-56
Section 1 by use of the index pointer of the
Prefix Table. Return is made from Type 1 rou- and IV-7
tines by a BR 14 instruction. Therefore,
Type 1 routines must Save and Restore Register
14 if used by the routine itself.
s.
On Types 2, 3 and 4 SVC routines, Saved registers are moved to the TCB. An SVRB is constructed using ESA definitions from the SVC
table.
6.
On Type 2 SVC routines, the SLIH routine stores
requestor's PSW in the currentRB, develops
the transfer address and initializes it in the
SVRB and queues the SVRB into the active RB
queue. Return is made by either a BR 14 or
SVC 3 (EXIT).
7.
On Type 3 and Type 4 SVC routines, the SLIH
Type 3 section stores requestor's PSW in current RB, examines SVC Table, extracts ESA
field and creates and initializes SVRB. If
routine is not already in transient area,
FINCH routine (combination of BLDL and FETCH)
is called to retrieve it and place it in the
transient area.
8.
Normal return for Type 3 routines is BR 14 or
SVC 3 (EXIT). Generally speaking, the SVC 3
is safer.
+
9.
Normal exit for Type 4 modules is XCTL IGCSSnnn
for all modules except the last. On the last
module SVC 3 (EXIT) is the best way to leave
routine and terminate entire SVC procedure and
return to the calling program just beyond the
SVC which started the procedure.
4.4.6
Topic IV (Cont'd.)
Reference
Suggested Sequence:
E.
Writing the SVC Routine
1.
Writing Type I Routines
a.
This type of routine must be incorporated
at systems generation (SYSGEN) time using
the RESMODS macro.
b.
Its control section must be properly
named. For example, a user Type 1, resident, non-interruptable routine for SVC
code number 255 would be IGC255.
c.
An entry must be placed into the SVC Table
using the SVCTABLE SYSGEN macro. For
example, to include a user SVC entry for
code 255, Type 1 and no ESA areas would
be accomplished by the following macro:
SVCTABLE SVC-255-Tl-SO
2.
d.
Program should either be re-entrant or
serially reusable.
e.
Program should be terminated with a BR 14.
5
Writing Type 2 Routines
a.
Must be incorporated at SYSGEN time using
the RESMODS macro.
b.
Debugged, cataloged, partitioned data
set must be on a library.
c.
An SVCTABLE card such as the following
must be used:
SVCTABLE SVC-255-T2-S6
3.
5
d.
Program must be re-entrant.
e.
EXIT from routine must be through a BR 14
or SVC 3 (EXIT).
Writing Type 3 Routines
a.
Entries in SVC Table must be made at
SYSGEN time.
b.
After debugging: assembled and link
edited partitioned data set may be placed
4.4.7
5
Topic IV (Cont'd.)
Suggested Sequence:
Reference
on SYSl.SVCLIB data set by
DDNAME=SYSl.SVCLIB (IGC0025E) in the
SYSLMOD DD card.
4.
F.
G.
c.
Program must be written re-entrant.
d.
Exit from routine must be by an SVC 3
(EXIT).
Writing Type 4 Routines
a.
Entries must be made in SVC Table at
SYSGEN time.
b.
Routines should be assembled, link
edited and run as an entity if at all
possible.
c.
Then, routines should be assembled, link
edited and placed on the SYSl.SVCLIB data
set under their proper names.
d.
Normal return for each module is by an
XCTL IGC0125E (next module). Last module
should return by an SVC 3 (EXIT).
Representative Problems and Examples
1.
WTO/WTOR (SVC 35 Type 3 Routine) Example
Appendix XXVI
2•
FIND/BLDL (SVC 18 Type 2 Routine) Example
Appendix XXVII
3.
STOW (SVC 21 Type 3 Routine) Example
Appendix XXVIII
SVC Writing Checklist
1.
Is the control section properly named? IGC255
or IGC0025E for Type 1 and 2 or Types 3 and 4
respectively.
2.
Does program start with first byte?
stants or control blocks up front.)
3.
Types 2, 3 and 4 must be re-entrant. All
locations which must be modified must be built
in a GETMAIN dynamIC storage area:-lModules
may be tested for being re-entrant by using
TESTRAN and the dump CHANGES macro or RENT
parameter of F ASSEMBLER.
4.
Do Type 1 routines terminate with a BR l4?
Do Type 2, 3 and last module of Type 4 routines
4.4.8
(No con-
Topic IV (Cont'd.)
Reference
Suggested Sequence:
terminate with an SVC 3 (EXIT)? Do other
+
Type 4 modules terminated with an XCTL IGCssnnn
where ss is module name and nnn+ is SVC code
number?
H.
Placing an SVC Routine in SVC Library
1.
Directly
By specifying DDNAME=SYSl.SVCLIB (member name)
in SYSLMOD card. Thus, a Type 3 routine would
be written as follows:
//SYSLMOD DD DSNAME=SYSI.SVCLIB(IGC0025E)
for SVC 255 Type 3 routine.
2•
By copying and inserting a tested module from
another data set.
7
Considerations in copying the SVCLIB. The
moving or copying of this library should be
done with caution due to the fact that the
system is using this library concurrently while
it is making a fresh copy. After building a
new SVCLIB, it is not usable until a program
call IEHIOSUP is run.
The function of this program is to update TTR's
in the Transfer Control Tables in some of the
Data Management modules. Because there are
absolute track addresses in these m~dules,
the SVCLIB is marked unmovable. When using
the MOVE function of IEHMOVE, the source data
(or old SVCLIB) is scratched. For this reason
and because IEHIOSUP must be run before you
IPL and use the new SVCLIB, it is not a good
idea to use this method.
The following discussion describes how this
can be accomplished using the "COPY" function
of IEHMOVE. (Only cards that are not selfexplanatory and are unique to this'operation
will be explained.)
Card
3
Space is allocated for the new copy of
SVCLIB temporarily named SVCLIB2.
VOLUME=SER=SYSRES is important because
the SVC library must be on the system
residence pack.
4.4.9
OPF IV-8
Topic IV (Cont'd.)
Suggested Sequence:
Card
5
9
3.
Reference
A DD card is required for the Data Set
from which you are going to merge the
new module.
Control card for IEHMOVE instructing it
to copy the current SVCLIB to SVCLIB2.
11
Control card instructing IEHMOVE to merge
module "NEWSVC" into SVCLIB2.
13
IEHIOSUP is executed to update the absolute track address in the transfer control
tables in the data management modules in
SVCLIB2.
16
IEHPROGM is run to scratch the old
SYSl.SVCLIB and to rename SVCLIB2 to
SYSl.SVCLIB.
23
Now that the new SVCLIB is ready to use,
the user must IPL so that NIP will open
the new library and the system will use
it for all of its future loading of SVC
routines.
SVCLIB Macro Instruction
7
a.
Names the members of a PDS to be added
to SYSl.SVCLIB during the system generation process.
b.
Applies to Types 3 and 4 only.
c.
The user may add his module to SVCLIB
later - through LINKEDIT:
//SYSLMOD DD DSNAME=SYSl.SVCLIB
OR THRU UTILITIES:
MOVE (or COPY) PDS
INCLUDE
(New member)
d.
Format of operands is the same as in
RESMODS, though here the member names
must be strictly defined.
e.
Example:
SVCLIB
To insert a Type 3 SVC routine
with code number 254,
PDS=SYSl.SET,MEMBERS=(IGC0025D)
4.4.10
Topic IV (Cont'd.)
Reference
Suggested Sequence:
I.
J.
Considerations
1.
Resident or Non-resident
2.
Re-entrant construction
OPF IV-9
3.
Routine naming
OPF IV-10
and IV-I!
4.
Entry point positioning
s.
Terminating methods
6.
Use of SVCTABLE, RESMODS and SVCLIB macros
at SYSGEN time.
7.
Writing and debugging
8.
Cataloging into SYSI.SVCLIB
9.
'Moving or Copying into SYSI.SVCLIB.
Practice Problem
INSTRUCTORS' NOTE:
During the OS/360 Work Shop the student writes an SVC
Type II for the accounting routine and also writes a
non-standard label routine which goes into the SVCLIB
and has the same restrictions as a Type 3 or 4 SVC.
Because of this, no additional practice is required for
SVC's.
4.4.11
TOPIC IV
REFERENCES
::FERENCE
CODE
1
2
3
4
5
6
7
13
13-14
40
12-16
47
46
15-26
4.4. 13
SVC ROUTINES IN DISTRIBUTED SYSTEM
TYPE 1
TYPE 2
TYPE 3
TYPE 4
EXCP (00)
WAIT (01)
POST (02)
EX IT (03)
GETMA I N (04)
FREEMAIN (05)
DELETE (09)
GETMAINI
FREEMAIN (10)
TIME (11)
TTIMER (46)
LINK (06)
XCTL (07)
LOAD (08)
SYNCH (12)
BLDL (18)
OVERLAY
SUPERV I SOR (37)
RES I DENT SVC (38)
SP IE (14)·
EXTRACT (40)·
I DENT ITY (41)·
ATIACH (42)·
ERREXCP (15)
PURGE (16)
RESTORE (17)
STOW (21)
TRACK
BALANCE (25)
OBTAIN (27)
RENAME (30)
WTO (35)
CI RB (43)
TTOPENI (49)
SAVE (61)
RDJFCB (64)
BACKSPACE (69)
ABEND (13)
OPEN (19)
CLOSE (20)
OPENJ (22)
TCLOSE (23)
CATALOG (26)
CVOL (28)
SCRATCH (29)
EOV (31)
ALLOCATE (32)
EXCP-MASTER (34)
ABDUMP (51)
EOV (55)
o
""0
.."
XDAP PROGRAMMING
PROGRAMMER
AB
DCB
· · ., MAC RF =(E),· · •
OPEN
AB
1
XDAP
XECB , · • •
WAIT
ECB=XECB
?
o
-0
.."
<
I
W
EOV
AB
1
CLOSE
AB
XDAP
10S*
_.
ECS*
CCW's*
~,
DCS**
CORE
- UNPROTECTED
PROTECTED CORE
*CREATED WITH EXPANSION OF XDAP
(Compile Time)
o
\:J
."
<
I
~
** PROGRAMMER - DEFINED
*** CREATED BY OPEN
UCS
XDAP
o
'"'C
'"TI
<
0,
1
EC B1, RI , DC B1, I NA REA 1, 58, , BL KID
BlKID
DS
OCl8
M
DC
C'O'
BB
DC
C'OO'
CC
DC
C'OO'
HH
DC
C'OO'
R
DC
C'O'
0
""0
"T1
<
-I
~
XDAP
ECB1, RI ,DC B1, I NA REA 1, 58, , BLKID
+ECBl
DC
FIOI
+
DC
+
DC
CIOO I
CIOO I
+
DC
A(ECBl)
+
DC
0(0)
+
DC
POI
+
DC
+
DC
A(DCBl)
HI58 1
+
DC
HIOI
+
DC
2F(0)
+
CCW
+
CCW
+
CCW
Sense Bytes
Channel Status Word
lOB
MBBCCHHR
CHANNEL
PROGRAM
XDAP CHANNEL PROGRAMS
TYPE
READ BY 10
CCW
* (VERIFY)
I
2
3
SEARCH 10 EQUAL
TIC
READ KEY a DATA
READ BY KEY
* (VERIFY)
I
2
3
SEARCH KEY EQUAL
TIC
READ DATA
WRITE BY 10
I
2
3
SEARCH 10 EQUAL
TIC
WRITE KEY a DATA
I
2
SEARCH KEY EQUAL
TIC
WRITE DATA
WRITE BY KEY
3
o-c
."
<
I
""'-l
COMMANDS
* THIRD CCW IS FLAGGED FOR SKIP
DEVICE SUPPORT
Reference
Suggested Sequence:
A.
Introduction
1.
This topic is designed to give an approach
to use to cause the control program to recognize a device for which there is no available
Type I programming support. This method will
be used for implementing the device for storage
of non-system data sets (not SYSRES, SYSIN~
SYSOUT, Cataloged Control-vQlume).
INSTRUCTORS' NOTE:
The prerequisite for understanding this topic is reading
the introductory pages of Input/Output Supervisor PLM
(Y28-66l6)
2.
B.
The outline will be concerned primarily with
using as many features of the control program
as possible with a minimum of modification.
Operating System Requirements
1.
The Operating System must be able to handle
all devices within the system in the following
ways:
a.
b.
Topic IX
Allocation
1)
The Job Management routines must be
able to recognize the device by a
UNIT name and handle mounting and
disposition of data sets.
2)
If this is a direct access device,
it should be possible to use the
Direct Access Device Space Management routines.
Access of the Device
1)
The I/O supervisor must be able to
start an I/O request, enqueue requests, interrupt processing, etc.
2)
The I/O interrupt handler must be
able to recognize channel interrupts
and pass control to the appropriate
routine in case of error.
3)
The lowest level of coding for the
user will be EXCP. (In some cases
it may be possible to use BSAM, QSAM,
XDAP, etc.)
4.9.1
Topic IX (Cont'd.)
Reference
Suggested Sequence:
2.
These control blocks are required by the system
to perform its functions.
a.
Unit Control Block (UCB)
OPF IX-l
1)
This control block must be created
at System Generation time and must be
contained in the nucleus •. ~
2)
It will ·be 24, 40, "or 1·0~ bytes long
depending on the device type (unit
record, tape, or direct access).
3)
It will contain such information as:
..... ~
\ ~~. l ~
Actual channel and unit
address.
EBCDIC unit name.
An indexing value into the
device class table (for
device dependent start I/O,
enqueue, etc.).
An indexing value into the
attention interrupt table.
A numeric constant to be
appended to the constant
IGEOOOO to form the name
of an error routine located
in SYSl.SVCLIB.
b.
Data Extent Block (DEB)
1)
This control block is built in protected core by the Access Method
Executor at OPEN time. (Ref. p.20,
PLM, Y28-6605)
2)
This block contains such information
as:
Number of extents specified
in DSCB's.
Address of DCB.
A device modifier (such
as a Set Mode code or file
mask).
4.9.2
OPF IX-2
Topic IX (Cont'd.)
Reference
Suggested Sequence:
Address of UCB associated
with this extent.
Cylinder, track addresses
for start of an extent limit.
Cylinder, track addresses
for end of an extent limit.
Access method dependent fields.
c.
d.
e.
C.
Data Control Block (DCB)
1)
This control block is built in the
user's program area.
2)
OPEN establishes a pointer to the
DEB and lOB.
OPF IX-3
Input/Output Block (lOB)
1)
This control block is built in the
user's program at the EXCP level.
2)
It contains a pointer to the DCB, to
the CCW list, and to the ECB that will
be posted at completion of the I/O
request.
Event Control Block (ECB)
1)
This control block is built in the
user's program.
2)
It is posted with a completion code
by the r/o supervisor at the end of
a channel program.
Supporting the Device
1.
Defining the Unit Control Block.
a.
System Generation
1)
The CHANNEL, rOCONTROL, and rODEVICE
macros supplied as input to Stage 1
of the System Generation process
determine the device types to be
included in the new system. Only
those devices listed as supported in
the Systems Generation SRL will
generate properly.
4.9.3
OPF IX-4
Topic IX (Cont'd.)
Reference
Suggested Sequence:
INSTRUCTORS' NOTE:
It is possible to specify unit number for certain unsupported (as yet) devices and perform the SYSGEN process;
but to determine which are included, it is necessary to
study the global switch settings in the SGGENlOO macro
in SYSl.GENLIB.
2)
3)
Output from Stage 1 consists of a
OPF IX-S
series of macros to be assembled.
The IECIUCB macro will be generated
for each device defined by an IODEVICE
macro. The operands of the macro
are as follows:
a)
UCB sequential number.
b)
Actual device address.
c)
Class of device (UR, TP, TA, DA).
d)
Device table index value.
e)
Error routine hexadecimal suffix.
f)
Statistical table index value.
g)
Logical channel index value.
h)
Assigned UNIT NAME (EBCDIC).
i)
UCB type (over-runnable,burst
or byte mode, data chaining,
device class, unit type, model,
features).
j)
Allocation channel mask.
k)
Status bits A (4-7) - (permanently resident).
1)
Seek queue option (FIFO, ordered
seek).
Explanation of foil
a)
This is the eighth UCB defined.
b)
It is located on Channel 1,
control unit 4, device O.
c)
It is a magnetic tape unit.
4.9.4
OPF IX-6
Topic IX (Cont'd.)
Reference
Suggested Sequence:
d)
The device table index value is
18.
e)
The error routine used will be
IGEOOOOI from SYSl.SVCLIB.
f)
The statistics table index value
is 7.
g)
The logical channel index value
is 1.
h)
The UNIT NAME 140 has been
assigned.
i)
This is a burst mode device (3).
It will permit data chaining,
has no model code (0), has no
optional features (00), is a
magnetic tape device (80), and
is a 2400 series magnetic tape
(01).
4)
b.
j)
64 is the allocation channel
mask.
k)
The volume will not be permanently resident.
1)
There is no seek queue option.
The way to support the unsupported
device is to generate an IECIUCB
macro for a supported device and then
change the operands in the macro
before executing Stage 2 of the
Systems Generation process.
Supported UCB Types
1)
Direct Access
a)
100 bytes long (See I/O Supervisor).
b)
Contains an index into an I/O
supervisor device table which
points to queuing modules, start
I/O modules, and trap modules.
The direct access start I/O
module will always perform a
stand alone seek and prohibit
any seeks in the problem program
4.9.5
OPF IX-7
Topic IX (Cont'd.)
Reference
Suggested Sequence:
list of CCW's.
2)
3)
4)
OPF IX-8
Tape
a)
40 bytes long.
b)
Contains an index into a device
table, containing a pointer to
queuing modules, start I/O
modules, and trap modules. The
tape start I/O module will issue
a set mode command.
Unit record or teleprocessing
a)
24 bytes long.
b)
Contains an index into the device table, which holds a pointer to queuing modules, start
I/O modules, and trap modules.
The unit record start I/O module
issues no control commands.
If a user should need a UCB of larger
than 24 bytes (UR size), but does not
want control commands to be issued
before his channel program, he may
specify a unit record device in the
IODEVICE macro as input to Stage 1
of SYSGEN to obtain an index value
point to the unit record start I/O
module. He would then have to change
the IECIUCB macro device type to TA
or DA, depending on the number of
bytes needed.
EX: Stage I Output IECIUCB •. , •• ,UR, .•
Change to
IECIUCB .. , .• ,DA, ••
c.
Device Types
1)
Teleprocessing
a)
All reference must be at EXCP
level. A thorough knowledge of
types and time of interrupt is
required.
b)
Implementation
4.9.6
OPF IX-9
Topic IX (Cont'd.)
Suggested Sequence:
Reference
The SYSGEN process will accept:
IOCONTROL UNIT-2702,
IODEVICE
UNIT=l050,ADAPTER=IBM l,SETADDR=l
INSTRUCTORS' NOTE:
This information was found in SYSl.GENLIB.
The generated macro will contain:
IECIUCB
,TP,
00,
The user must change the error suffix value
(00) and incorporate his error routine into
SYS1.SVCLIB.
c)
2)
Attention interrupts (request
key or graphics light pen) are
not recognizable to the system
except from the console. Attention interrupt routines can only
be included by modifying the lOS
attention table. This means
modification of the IECIOS macro
on SYS1.GENLIB. The attention
index value in the UCB must also
be changed, but since there is
no parameter in the IECIUCB
macro, this means modification
of the IECIUCB macro in
SYS1.GENLIB or a user SVC routine at IPL time to write in
the correct value.
Unit record
a)
The SYSGEN process will allow
1403, 1443, 2671, 2540R, 2540P,
1442, 2501*, 2520* at initial
release. (*No error routines)
INSTRUCTORS' NOTE:
Check current release to find out what is currently supported.
b)
3)
The IECIUCB macro can then be
changed for the unsupported
device. (Error suffix, device
type for longer than 24 bytes~)
Magnetic Tape
a)
Must determine whether standard
error routines are to be used.
4.9.7
Topic IX (Cont'd.)
Reference
Suggested Sequence:
b)
4)
Start I/O module will issue a
set mode command. If user wants
to write his own (EXCP level),
he can define IODEVICE as unit
record for Stage 1 and change
device type for Stage 2.
Direct Access
a)
May require modification of device characteristics table and
error routines.
b)
Some kind of DASDI program must
be run to write:
Appendix
XII
HA
Ro
Track descriptor records
Volume label
VTOC
2•
Naming the Device
a.
The device name table and device mask
table are built from the macros SGIEF010,
SGIEFOll, and SGIEF015 (output of Stage 1).
These tables are used by Job Management
in allocating devices from the UNIT=xxx
parameter in the DD card.
b.
The device name table (DEVNAMET) contains
an entry for every:
1)
UNIT (2311, 2400, etc.)
2)
ADDRESS (OOC, 180, 290, etc.)
3)
User name
macro.
specified in UNITNAME
c.
The device mask table (DEVMASKT) contains
a count of the number of devices assigned
to a name and the relative position of
each device in the UCB lookup table.
d.
Effect of changing device type code in
UCB on allocation procedures.
4.9.8
Appendix
XIII
Appendix
XIV
Topic IX (Cont'd.)
Suggested Sequence:
Reference
EX:
SYSGEN five 2311's, change one to 2302.
1)
Allocation by device assigned (DOC,
180, etc.) is not affected.
2)
Allocation by device name (2540, 2311,
etc.) will reference only UCB's not
altered, but may at certain times
be a problem, since the DEVMASKT has
not been updated to show four rather
than five 2311's.
3)
Allocation by user-defined name (at
SYSGEN) should always work.
INSTRUCTORS' NOTE:
Appendices XII, XIII, XIV, and XVIII are examples of device support.
When these devices are supported by a released version of the
360 Operating System, you may find it necessary to use additional
examples.
4.9.9
UN IT CONTROL BLOCK
+
4 BYTES
0
UCB
+ 4
10
X
1
1
ALL
DEVICES
+24 ~------------------------------------------------------------~
+ 28
+32
+36
+40 ~------------------------------------------------------------~
SEEK QUEUE
+44
~-------------------------------------------------------------;
+48
~------------------------------------------------------------~
+52
+56
~------------------------------------------------------------~
CONTROL WORD
LAST
-n
r
+60r~------------------------------------------------------------~X
X
The X areas are loaded at system generation time; all except AT NT AB, which is changed by
system routines, remain constant.
I
--'
DIRECT
ACCESS
+
i
DIRECT
ACCESS
ONLY
CURRENT USERS
WORK AREA
o
'"0
f
TAPE OR
~
The IIO supervisor does not use the shaded fields.
1
DATA EXTENT BLOCK
-16
4
4 BYTES
•
~~\\§\§§\_%~~\=&¥%%§§§§%%\\A'1¥~$~%§{'%$&$+''§I
-4-"\~~
PREFIX
-~
0
+4
+ 8
+12
+16
+20
+24
+28
TCB ADDRESS
NEXT DEB ADDRESS
IRB ADDRESS
SYSTEM
OPEN FILE TYPES
BASIC
USER PURGE CHAIN
NMEXT
PRIORITY
PURGE
LIST ADDRESS
DCB ADDRESS
DEB 10
PROT TAG
PURGE CHAIN
APPENDAGE VECTOR TABLE ADDRESS
EXTENT SCALE
+32~------------~--------------------------------------~1 TAPE OR
I MODE
+32
+36
SET BYTE
UCB ADDRESS
UNIT RECORD
i
DEVICE
I
FILE MASK
B
+40 .
+44
UCB ADDRESS
i
DEPENDENT
B
C
(START)
C
DIRECT
c
( END)
C
ACCESS
H
(START)
H
H
(END)
H
o
NMTRK
~
ACCESS METHOD
DEPENDENT AND
SUBROUTINE
""C
"
X
I
t-.)
SECTION
~ Th~
I /0
sUD~rvisor
does not use the shaded fields.
CONTROL BLOCKS FOR I /0
.....
lOB
ECB
-
CCW's
DCB
UNPROTECTED CORE
PROTECTED CORE
DEB
o
-0
"T1
X
I
W
UCB
SYSTEM GENERATION INPUT
l
ADDRESS = 1)
TYPE = SELECTOR
CHAN 1
CHANNEL
TAPECNTL
10 CONTROL UNIT =2804) ADDRESS = 14,
MODEL= 2
TAPE 1
10 DEVICE
UNIT=2402,ADDRESS=140,
MODEL = 2,FEATURE = 9 TRACK
o
""'0
'"T1
X
I
~
IECIUCB MACRO
IECIUCB
~
(UCB seq. no. »
(actual device address),
(class of device),
(device table index value),
(error routine suffix),
(statistical table index value),
(logical channet index value),
(assigned unit name - EBCDIC),
( UCB type),
(allocation channel mask),
(status bits),
(seek queue option)
X
X
X
X
X
X
X
X
X
X
X
rEClueB MACRO
IECIUCB 8,14(1, TA J 18,09, 7, 1, 14(1. 30(1918""1 J 64,C],0
(2400 SERIES-9- TRACK MAGNETIC TAPE
WITH A DEVICE ADDRESS OF 140)
o
-0
.."
X
I
~
DIRECT ACCESS START I/O
SIO MODULE
SIO
SEEK
SET MODE
TIC --o-c
"'T1
X
I
'-I
USER CCW·S
TAPE START I/O
SIO MODULE
SIO
SET MODE
TIC o
-0
-n
X
I
00
USER CCW'S
UNIT RECORD 1/0
SIO MODULE
SIO
o
-0
."
X
I
'-0
USER CCW·S
.....
)(
~
£:::
m
C1
C1
c(
Section 5
Appendix 1
JOB MANAGEMENT
B
FUNCTION:
C
Master Scheduler
Reader/Interpreter
CONSOLE INTERRUPT ROUTINE
CONTROL ROUTINE
Provides the supervisor with the information
necessary to give control to the routine that
is to receive it when an attention interruption
is processed.
FUNCTION:
Initiator/Terminator
SYSTEM CONTROL ROUTINE
FUNCTION:
Reads and interprets control statements passing
control to the proper statement processing
routine.
2
JOB ROUTINE
2
2
FUNCTION:
FUNCTION:
Processes the CANCEL, DISPLAY, MOUNT,
REQ, START, STOP, UNLOAD and LOAD
commands.
Performs JOB statement analysis and constructs the Job Control Table from its contents.
3
3
3
MASTER COMMAND ROUTINE
FUNCTION:
FUNCTION:
Analyzes command verbs and gives control to
the proper command executi on routines.
~.------------------------------------------~
WRITE-TO-OPERATOR ROUTINE
FUNCTION:
DATA DEFI NITION ROUTINE
FUNCTION:
Processes messages to operator and operator
replies.
Performs DO statement analysis and constructs
the Job File Control Block and the Step I/O
Table from its contents.
5
EXTERNAL INTERRUPT ROUTINE
FUNCTION:
Determines and directs control to proper
JFCB processing routine.
Performs Initiator/Terminator housekeeping
for allocation and setup.
DEMAND ALLOCATION ROUTI NE
FUNCTION:
5
10
SPACE REQUEST ROUTINE
FUNCTION:
Constructs the allocate work and volume
tables and begins devices assignment to data
sets that are assigned specific devices.
11
ALLOCATION ERROR ROUTINE
FUNCTION:
-_.-
Processes error conditions occurino during
allocation and setup.
~.----------~----------------------------------~
12
tsTEP INITIATION ROUTINE
FUNCTION:
Performs all initiation operations required
before control is passed to the processing
program.
AUTOMATIC VOLUME RECOGNITION ROUTI NE
FUNCTION:
7
Processes request for sp<.ce on direct access
device volumes.
~----------------------------"
Handles switch to alternate console when
external interruptions occur.
6
Issues mounting instructions, verifies
correctly mounted volumes, and unloads
incorrectly mounted ones.
ALLOCATION CONTROL ROUTINE
FUNCTION:
4
FUNCTION:
Performs EXEC statement analysis and constructs the Step Control Tabl e from its
contents.
4
4
EXTERNAL ACTIO N ROUTI NE
9
Processes condition codes specified in EXEC
statement.
Obtains space for and builds the TlOT for
the processing program.
JFCB HOUSEKEEPING CONTROL ROUTINE
FUNCTION:
EXECUTE ROUTINE
TlOT CONSTRUCTION ROUTINE
FUNCTION:
Performs housekeeping requirements as first
step in initiating a job.
EXECUTE STATEMENT CONDITION CODE ROUTINE
FUNCTION:
MASTER COMMAND EXCP ROUTINE
8
Performs allocation of devices on which
vol umes are mounted.
13
STEP TERMINATION ROUTINE
FUNCTION:
Performs general" task termination procedures
"in addition to passing control to appropriate
routines for disposition and unallocation of
data and processing condition codes.
DECISION ALLOCATION ROUTINE
FUNCTION:
Allocates remaining devices not already allocated by other allocation routines.
14
JOB TERMINATION ROUTIN~
-.------------------------------~------------~
FUNCTION:
Al-l
Performs general job termination procedures in
addition to passing control to the appropriate
routine to release job queue, performing
disposition ~nd unallocation, and user
accounting.
III
A
D
C
Interruption Supervision
Task Supervision
The supervisor coli first level interruption
hondler does the introductory work following
an SVC interruption, and prepares for the
executi on of type 1 SVC's.
Locates requested routine, controls required
RB queueing and post event control block
when necessary.
FUNCTION:
Contents Supervision
Main Storage Supervision
GETMAIN ROUTINE
ATTACH ROUTINE
SVC FLiH ROUTINE
FUNCTION:
TASK MANAGEMENT
FUNCTION:
Overlay Supervision
OVERAL Y SUPERVISOR 1
LI NK ROUT! NE
Allocates storage to tasks according to re-
FUNCTION:
qu irements.
Passes control from the issuing routine to
another routine in such a way that the issuing
routine regains control at completion of the
second routine.
FUNCTION:
A resident routine that performs initialization
procedures, links to Overlay Supervisor 2
and after regaining control, performs the remaining termination procedures and issues
an SVC EXIT instruction.
FUNCTION:
FREEMAIN ROUTINE
EXTRACT ROUTI"'!E
SVC SLIH ROUTINE
FUNCTION:
The supervisor cali second level interruption
handler monitors the SVC transient area and
prepares for the executi on of types 2,3, and
4 SVC's.
FUNCTION:
FUNCTION:
Rei eases spec ifi ed storage space on request.
LOAD ROUTINE
Performs ali operations required in changing
fields of the users' list.
FUNCTION:
Searches the loaded program list for requestec
routine and passes control to FINCH when the
routine requires loading.
SPIE ROUTINE
FUNCTION:
TYPE 1 EXIT ROUTINE
FUNCTION:
XCTL ROUTINE
Sets flags that indicate the user has program
interruption control.
FUNCTION:
FUNCTION:
Posses control from issuing routine to a
Performs SVC type 1 existing procedures goin9
to the dispatcher for task switching or to the
interrupted program.
WAIT (Single Event) ROUTINE
IDENTIFY ROUTI NE
Performs status checking of wait by bit test a
ECB passing control to proper rau~ines.
FUNCTION:
Builds, initializes, and chains to the load list
a minor RB for the routine specified by the
issuer of the macro.
FUNCTION:
Reduces the RB use count of the loaded routine
by one and when it becomes zero frees
storage occupied by associated routine.
EXIT ROUTINE
FUNCTION:
Performs the dequeuing of the SVRB from the
TCB's active RB and passes control to the
dispatcher.
WAIT (Multiple Event) ROUTINE
FUNCTION:
5
Performs status checking of wait count and
ECB indic ators plus enabling coller for input/
output and external interruptions.
DELETE ROUTINE
DISPATCHER ROUTINE
FUNCTION:
Posses control among routines, handles
asynchronous exits and monitors the I/O
Supervisor transient area.
POST ROUTINE
FUNCTION:
6
Checks status of ECB bits and performs proper
control transfer.
SY NCH ROUTI NE
6
FUNCTION:
Creates, initializes and queues program
request blocks.
FUNCTION:
Retrieves specified routines from auxi liary
storage.
I/O FLiH ROUTINE
FUNCTION:
7
The input/output first level interruption
handler performs machine interruption supervision and insulates the input/output interruption from other types of interruption.
ABTERM ROUTINE
FUNCTION:
T/E FLIH ROUTINE
The timer/external first level interruption
handler performs operations for interruptions
caused by the hardware timer and the console key and passes contral to appropriate
handling routines.
FUNCTION:
The program first level interruption handler
performs operations and passes control for
ali program interruptions.
FUNCTION:
The machine check first'level interruption
handler places machine in a wait state or
posses control to Systems Envi ronment
Recording.
P-FLIH ROUTI NE
MK-FLIH ROUTINE
9
VALIDITY CHECK ROUTINE
10
FUNCTION:
Schedu Ies the abnorma I term i nat i on of task
for systems routines.
ABEND ROUTI NE
FUNCTION:
Performs a common function for the system
routines preventing program interruption
caused by invalid addressing.
A 1-3
FUNCTION:
This routine is envoked when a requested program is an overlay program performing the
remaining initialization procedures, loading
the requested segments, updating the segment
table and entry tables, and performing some
term inati on procedures.
requesting routine.
FUNCTION:
4
OVERLAY SUPERVISOR 2
FUNCTION:
FUNCTION:
Terminates ali internal activities both for
normal and abnormal termination of the
current task .
FINCH ROUTINE
Sel
SpE
de,
int
4
FUNCTION:
IIT
]
C
TASK MANAGEMENT
D
Main Storage Supervision
Contents Supervision
GETMAIN ROUTINE
quired
ock
FUNCTION:
Allocates storage to tasks according to requ i rements .
FUNCTION:
Releases specified storage space on request.
Overlay Supervision
LI NK ROUTI NE
FUNCTION:
Passes control from the issuing routine to
another routine in such a way that the issuing
routine regains control at completion of the
second routine.
FUNCTION:
Searches the loaded program list for requested
routine and posses control to FINCH when the
routine requires loading.
I~F______
T_i_m_e_s_u_p_e_r_Vi_si_o_n______
STIMER ROUTINE
OVERAL Y SUPERVISOR I
FUNCTION:
A resident routine that performs initialization
procedures, links to Overlay Supervisor 2
and after regaining control, performs the remaining termination procedures and issues
an SVC EXIT instruction.
~1 I~G_______
FUNCTION,
Sets an interval into a software interval timer,
specifies when that interval timer is to be
decremented and what action is taken when
interruptions signal completion of the interval.
p_r_og_r_a_m__F_E_T_C_H______
~
I NITIALIZATIO N/TERMINA TlON ROUTI NE
FUNCTION
Performs the job of a relocation loader which
brings a program module processed by the
linkage editor from secondary storage into a
single area of slorage and computes the
modules entry point.
FUNCTION:
Reads text and RLD records of a load module
FREEMAIN ROUTINE
LOAD ROUTI NE
XCTL ROUTINE
TIME ROUT! NE
OVERLAY SUPERVISOR 2
FUNCTION:
LOADING ROUTINE
FUNCTION:
This routine is envoked when a requested program is an overlay program performing the
remaining initialization procedures, loading
the requested segmenls, updating the segment
table and entry lables, and performing ,orne
termination procedures.
into main storage.
TTlMER ROUTINE
FUNCTION:
FUNCTION:
Posses control from issuing routine to a
requesting routine.
Builds, initializes, and chains to the load list
a minor RB for the routine specified by the
issuer of the macro.
and
. input/
DELETE ROUTINE
FUNCTION:
Reduces the RB use count of the loaded routine
by one and when it becomes zero frees
storage occupied by associated routine.
SYNCH ROUTINE
6
FUNCTION:
Creates, initializes and queues program
request blocks.
FUNCTION:
Retrieves specified routines from auxiliary
storage.
FINCH ROUTINE
~
::J
Records remaining time interval in register 0
or cancels previously specified intervals.
TIMER SLiH
IDENTIFY ROUTI NE
FUNCTION:
Places the time of day in register 0 and the
current day in register 1.
FUNCTlO'-l:
Monitors all types of interval expirations and
maintains the queue of time interval requests.
RELOCATING ROUTINE
FUNCTION:
Adjust values of address contents to reflect the
relocation of a module that has been loaded
into main storage.
m.
DATA MANAGEMENT
B
A
C
Input/Output Supervisor
EXCP SUPERVISOR
FUNCTION:
FUNCTION:
The EXCP Supervisor tests channels for activity I handles enqueuing and dequeuing I
handles SIO I and performs EXCP val idity
checking.
OPEN/CLOSE/EOV
DADSM
OPEN ROUTINE
ALLOCATE ROUTINE
FUNCTION:
Performs volume verifi cation, label checking I
control block information, and determining
access method routines.
2
2
2
EXTEND ROUTI NE
FUNCTION:
RDJFCB ROUTINE
I/O INTERRUPT SUPERVISOR
FUNCTION:
FUNCTION:
Performs UCB lookup, I/O interruption
analysis, channel search and restart, 1/0
purge and hand Ies trapcodes.
SCRATCH ROUTINE
FUNCTION:
CLOSE ROUTINE
FUNCTION:
4
Performs labeling operations, purges queued
and active I/O requests associated with data
sets that are being operated on at the EXCP
level, and keeps track of the access method
executors and close modules necessary for
closing each DCB.
EOV ROUTINE
FUNCTION:
4
F'I"lCTION:
5
Returns unused data set space to ava iI ab Ie
storage when a data set is closed.
RENAME ROUTINE
FUNCTION:
Processes end-of-volume and end-of-data set
conditions for data sets having sequential
organization.
Deletes data sets by deleting their respective
data set control blocks.
RELEASE ROUTI NE
Changes the name of a referenced data set.
OBTAI N ROUTI NE
6
FUNCTION:
Al-5
Allocates additional space to a data set at
end-of-volume.
Reads into the dynami c area the JFCB IS
associated with the DCBls in. the parameter
list.
3
3
Allocates initial space to data sets.
Obtains direct access to any block in the
VTOC.
m.
DATA MANAGEMENT
B
i-
C
FUNCTION:
D
OPEN/CLOSE/EOV
DADSM
OPEN ROUTINE
ALLOCATE ROUTINE
FUNCTION:
Performs volume verification, label checking,
control block information, and determining
access method routines.
2
2
FUNCTION:
2
CLOSE ROUTI NE
4
Performs labeling operations, purges queued
and active I/O requests associated with data
sets that are being operated on at the EXCP
level, and keeps track of the access method
executors and close modules necessary for
closing each DCB.
EOV ROUTINE
FUNCTION:
4
Deletes data sets by deleting their respective
data set control blocks.
RELEASE ROUTINE
F11"lCTION:
5
Returns unused data set space to available
storage when a data set is closed.
RENAME ROUTINE
FUNCTION:
Processes end-of-volume and end-of-data set
conditions for data sets having sequential
organization.
Finds entries in the catalog; inserts, deletes,
or replaces data set pointer entries, volume
control block pointer entries, and volume
control blocks; and enters into and deletes
from the catalog the indexes, generation index
pointer entries, index pointer entries, control
volume pointer entries and 01 ias entri es.
CVOL ROUTI NE
SCRATCH ROUTINE
FUNCTION:
FUNCTION:
FUNCTION:
Allocates additional space to a data set at
end-of-volume.
Reads into the dynami c area the JFCB IS
associated with the DCB's in the parameter
list.
3
3
CATALOG ROUTINE
EXTEND ROUTI NE
FUNCTION:
RDJFCB ROUTINE
All ocates initial space to data sets.
Catalog Management
Changes the name of a referenced data set.
OBTAIN ROUTINE
6
FUNCTION:
Obtains direct access to any block in the
VTOC.
FUNCTION:
Provides services to the catalog routine by
opening catalog data sets for processing and
by writing format blocks in new catalog
data sets.
Appendix 2
I H H
LRB
PRB
PRB
PRB
no
-I
L----------,
-REQUEiTSLOCK -
14
INACTIVE
IEIUJ.ruUj: ~~~~:gtSAM~~~E~;RlgSS '114-------.
I
PIECES OF CODING EX-
I
~~~T~~S~~ PART OF
I~: I OR MORE/TASK BUilT
I
LPRB
LRB
H
•
-I14 LOADED :mLBmI~r~~~~mlVi~'L::E!
B
HL.._L_P_R_
...._ _--'.
.
.
\INFO TO:
I
11...TIl:
IRB
SIRB
SVRB
PRB
ACTIVE
INOTE:
I
,
L-
1
~ C-R-E,,-:n-QN-: ~~tO~~~'2~ F~~~I:~Y
~
I
i~
r-
OF THE JOB
II
II,
II,
I ,:'t- I
II
-
- -
-
t- -
-
VOLUME LABEL
.
'I
fJ J
,.------, j ,
CREATION: 1/EXEC CARD, BUILT BY
, - - - R/I ON D/A FOR LIFE
OF THE JOB
-:- INFO FROM: EXEC CARD
, INFO TO: I!QI, TCB, ill!
t TO:
~ (CONTIGUOUS WITH
CT CT
,;A
I
_______ ~-
I
I
I
I
I
(VTOe)
~
Dsce
~ ACTS AS A LABEL FOR OUTPUT DATA SETS TO BE
CREATED BY ONE JOB
STEP ON D/A
CREATION' ,/ D/A OUTPUT DATA SET
BUILT BY ~ AT IN!IL~
AIQB TIME(folAME AND
EXTENT OF DATA SETe;))
AND COMPLETED AT .Qf.W
TIME i EACH DSCB. IS PART
OF THE YIlL~D EXISTS
g~TrAsl~R LIFE OF THE
TO:
NOTE.
--
ASSOCIATED DATA SET
FOR NON D/A, STANDARD
HEADER LABEL SUFFICES
'
i
I
I
'- -
-
-
-
---lI
I
I
I
I
I
I
5
FUNCTION.
L --r------ - - -
.•
ACT
FUNCTION: CONTAINS ACCOUNTING
INFORMATION FROM JOB
AND EXEC STATEMENTS
~EATION: lOR MORE/JOB DURING
- - - INITIATION
NFO FROM:JOB a EXEC STATEMENTS
I!!!EQ. lQ' ~~~~I~~~OUNTING
CREATION:
HOLDING AREA DATA SET
ATTRIBUTES BEFORE
~
THEY ARE PLACED INTIOT
TO DCB AND DSCB
CREATION: l/Jl.IL CARD CONSTRUCTED
PROVIDES I/O SUPPORT
ON D/A BY R/I AND COM
ROUTINES (OPEN, CLOSE.!.
PLETED AT ~ TIME
EOV), WITH POINTERS T\of--o
FOR LIFE OFJOB
~~~~CSE:.ND ALLOCATED
INFO FROM; .0.0. CARD, ~, DCB
f4-- INFO TO TIOT, DSCB, DCB, DEB
l/EXEC CARD. BUILT BY
-.l..!Q.:
~~2TI~6~RLlI~E ~~N A
EXTENSION BLOCKS IF ANY
-
-
-
-
--,
r
I
r...,I I
-.J
fl
II
II
~, .!.1£B.
I
I
12
I
I
ECB
FlWCTION: RECORDS STATUS OF AN
~ 1
1
~
LOGICAL EXTENSION OF
15
DEB
~-~~C~~Dcobrr8:A~~~ ~y~~A..IiYS O:E~~TA
I
I
CREATION:
I
~~~PN~~1~~1V~JBLEM
I
PROGRAM FOR LIFE OF TASK
INFO FROM: WAIT /POST ROUTII\ES
INFO TO: WAIT/ POST ROUTINES
I
I I I J.l.Q.:. R6.
III '--------~
~--====--=--=- -=--_-
1
~
I
I
~6l~~ g5~~lc1?NTAINING
~~~~6~E
II
co~:;::t~~!Ck;~teF~OW I
,;:.
----; f~~~:~ri~;NP~~~~ERS Ii
6
ATTENTION TABLE
~=====;iiJ:.i:~:;:'!~~·::'!~:<.(i,,=::':~j~~:~·;~,~,;·:~;?;,:,,:,,>:,,:'·~:!~i~~:~
A2-1
9
DEVICE TABLE
FUNCTION: USED BY lOS TO LOCATE
- - - DEVICE DEPENDANT SI0J.
ENQUEUE, OR TRAP COOt.
MODULES FOR DEVICE IN
USE.
CREATION: AT SYSGEN TIME
INFO FROM:SYSGEN CONTROL INPUT
INFO TO: I/O SUPERVISOR
'TO:
ENQUEUE MODULE, SIO
MODULE, AND TRAP CODE
MODULE OF DEVICE IN
USE.
L.-l~ ___
II
+CVT
I
I
CHANNEL PROGRAM
FUNCTION:
GROUP OF .GC.\!l$. {ONE OR
MOREl THAiPrntORM A
SPECIFIC I/O OPERATION.
EACH ENTRY INDICATES
THE I/O OPERATION TO
BE PERFORMED AND POINTS
ING TO THE MAIN STORAGE
AREA INVOLVED
CREATION: AT OPEN TIME IN MAIN
STORAGE AS LONG AS
THE DATA SET IS QElli
INFO FROM: ACCESS METHOD
~2~1~~_R_ET
______~
NOTE:
AT .Em. LEVEL. USER
MUST WRITE HIS OWN
CHANNEL PROGRAM
FUNCTION:
ED IN BY.LI.CB.- 1
ENTRY /REQUEST
J
I
I
CREATION:
:~~:AGIEN R~:~NRVED
AT SYSGEN AND
~:~~ED IN AT I/O
hlL.......I-------t;,----;::========If.IN~F*O"iFRO~M: DEB, TCB
I
INFO TO: Va SUPERVISOR
I
_.. t TO: UCB, ~,~
I 118
lOB
TCB 10
A PARTICULAR
I
I FUNCTION: CONTROLS
I/O OPERATION ON A
L-.
~~~ ~~~O~~:ii~~GA~Og I
J
i
POINTER TO ~ AND
OTHER CONTROL BLocKs;
STORED HERE WHEN
~
I/O COMPLETE
CREATION; FOR BASIC ACCESS
METHOD I IOB/ I/O REQUEST
FOR QUEUED
ACCESS METHOD - 1 IOB/
BUFFER IN MAIN STORAGE
WHILE DA~ SET IS
OPEN; CONSTRUCTED AT
QfE!i TIME FOR ALL
ACCESS METHOD EXCEPT
QfllASM AND BDAM WHICH
A
CONSTRUCTED AT
I/O TIME
INFO FROM: ACCESS METHOD
INFO TO:
I/O SUPERVISOR
TO:
~, CHANNEL PROGRAM.
(ECB OR TCB)
AT lliI! LEVEL, USER
MUST BUILD HIS OWN.IQ!l.
caw
t
122
UCB
FUNcrlON:
I
I
I
I
I
I
~C~:R~~tTL'i~
I/O DEVICE UNIT
TYPE, VOLUME 112
USE 0 BY JaS... TO
CHECK IltAl>EVICE
IS BUSY
CREATION: 1/~VICE-IN MAIN ~
ST AGE CREATED
AT ~(EXISTS
wrnrS!ll'·
INFO FROM; AT SYSGEN TIME
INFO TO:
I/O SUPERVISOR
i.I2.:... DT, AT, RET
II
~ASR:~rff~SI:~~~ ~ I
I
I
~~~~ls~s~~gM.~
1
1
l __ _ -I t - - - - - - - - - - - __ ...II
-= -= =-_ .= ~
STORAGE LOCATION 16
~~~~~
I
II
I'
I
I
f---
... ·~·;:-:.·;..·::-: ..... ·.o(i:--':·~~i'..:.:~·;:-E";;':O(;h:,:"!,:-:::::,;;-:,:~,;:s,;!;"';:'.ot':--·i~'
FUNCTION: CONTAINS ADDRESSES OF
~ ATTENTION ROUTINES
REQUIRED TO SERVICE
I/o DEVICES
REATION: AT SYSGEN TIME
INFO FROM: SYSGEN CONTROL INPUT
INFO TO: I/O SUPERVISOR
t TO:
ATTENTION ROUTINES
fI!J!f
IS TO
IN CORE
CREATION: AT .OPEN TIME, ITS ADDRESSPLUGGED INTO~.
AND .DEB. ARE CHAINED;
SIZE lSI'"UNCTION OF
DEVICEij' ACCESS METHOD\..
THE N MBER OF EXTENT:.
USED · IN PROTECTED MAIN
STOR A
GE. USED ONLY BY
CONTROL PROGRAM. AS
LONG AS DATA SET IS OPEN
~~~,~
INFO TO: RET
t TO:
DCB, Tca, UCB
NOTE:
MAY CHANGE.Qfft. WITH
I/O APPENDAGE ROUTINE
I ________________ _
L
oI':··..;:.;;,·:,;)'O... ·:oo!i~'!·::·i
,I
r-
.-_---' I
THE DATA SET BESIDES;
USED BY
TO DE-
1I
I
I
~
OPENED. USED TO ASSOCIATE
THE PROBLEM PROGRAM
I
I
I
I
~
________
I
I
III
II
II
II
I
I
17
LCHTAB
FUNCTION: PROVIDES INFORMATION
- - - THAT CONTROLS THE
LOGICAL CHANNEL QUEuEs
CREATI%t AT SYSGEN TIME
lNf2...fRQ!I:SYSGEN CONTROL INPUT
UtEQ...lQ: VO SUPERVISOR, I/O
PURGE AND SVC
ROUTINES
U2:. 1st a LAST REQUEST
IN RET
I
I
i---lLI--l
I I
I
I
I
I
-1-'
II
I
II
\4-~
I
1
II
1
I
I
L..-_~I~
I
I
t--,I'I
t - - ,
JOB STEP
INFO FROM SCT, SlOT, JFCB
INFO TO,
OPEN, CLOSE, EOV RTNS
...1.lQ.;
-
8 Ch<----)+-C-B--+-;I- - H
FUNCTION:
I
I
~
r·-
I
20
_ _ -.-J
I
ATION
CREATION: CONSTRUCTED AT ASSEMBLY
TIME BY DCB MACRO.;
COMPLETED AT QEftL TIME;
IN MAIN STORAGE FOR
LIFE OF JOB STEP
INFO FROM: ~, ~ MACRO. USER
MODIFICATION ROUTINE
INFO TO: .!EQi, llrn,DSCB (OUTPUT)
~ TO: DEB, lOB, ACCESS METHOD
\4-...,
i,
r---+
RET
TIOT.bRB (ACTlVEI.INACTIVE, LOA ED) DEB, t.eB
II
~
g~i~BhRT~TI~~C~~a
TO INITIATE THE I/O OPER-
-
ru,
INFO TO:
INFO FROM: .JE.6., QQl
INFO TO:
JFCB, DEB
t
g:~~ATlONi I~S~gRlo~N
I" f-to
,
I
ED TO PERFORM AN I/O
~
ACCESS
ROUTINES
,
~~C~~~S D~~:RtnE~J~~II~~
FUNCTION:
DENCIES, STATE.'}I POINTERS TO PROGRAMS AND
TABLES USED BY THE
TASK
CREATION· lIIASK., BUILT BY THE
~-SUPERVISOR IN
MAIN STORAGE FOR LIFE t - - - - - - - - - ,
OF TASK/JOB STEP
INFO FROM:
.Kr
.
DCB MACRO
~l!~·----D~C~e~-----~~
~~~~I~~I~~I~yUSD~~E~~E
7
II
1
FUNCTION: RECORDS INFORMATION
ABOUT A TASK AND ITS
RELATIONSHIP TO OTHER
TASK(S) IN THIS JOB STEP;
I
I
I
- I
I
I
I
I
,.....---,
CREATION: AT SYSGEN ·TIME
INFO FROM:SYSGEN CONTROL INPUT
INFO TO: I/O SUPERVISOR
t TO: APPENDAGE ROijTlNES
I
-
USER MODIFICATION
ROUTINE FOR DCB
FUNCTION:
J
I
~~~~I~gKGfO~~~I~~g
I
,.....,...,II-..L-........:L....,T""C~B~-'-..L-..I---.
VOLUME TABLE OF CONTENTS
1...11Q.:.
~~===-=-=t_=:=J
I
I
I
I
r- ---:
I
I
I
I
I
RECORDS [/0 DEVICE REQUIREMENTS OF ONE JOB
STEP FOR ASSOCIATED
DATA SETS
CREATION: I/~ CARD, ONE
ENTRY 1M CARD BUILT
ON D/A BY R/I FOR LIFE
OF JOB
INFO FROM: JOB, ]Q CARDS
INFO TO: I!QI
~,NEXT SlOT
' I
I
I
I
j
I
I
I
FUNCTION
I
I
____
SlOT
1.4
L""1
-l
,
----4
J
-
I , t::2~=~===S~C=-T'"====:_:_:~ rI , FUNCTION: ~~i~g~ ~~~IBUTES OF
I
Dll:
VOLUMEjl1
LABEL
LABEL
II
U
-11 - - - - - l
I
'--------, I I
II
I
-
AVT
1=
=====-=--=---=---=--=--=--=--=-==~-~ ~~ ---~ I +
I
II
I
l
I
I
I,l
J
-,
I ITAPE·
I I
I ,,
I,
L-
r--
(oiSK:-------------------f-J
~: ~ EXEC CARDS
ill:
~ (tst), ACT
,
r1 ,
~~~GiY~~ ~~ ~~ci~~~~
BLOCK. LRB, LPRB, PRB
IRB, SIRB AND SVRB
_ _ _ _ _ ~I
.JCT
FUNCTION: RECORDS ATTRIBUTES OF
13
DISPATCHER a INTERRUPT 1
HANDLERS
I
TCB, NEXT RB
16
r-- FUNCTION:
--
J
CVT
INFORMATION LINK
BETWEEN NONRESIDENT
~~gIIN~~o~~fM TNHU~L~OUNS r-~ AT SYSGEN
TIME
INFO FROM:SYSGEN CONTROL INPUT
~ I/O SUPERVISOR
~ DEVICES, ACTIVE TASK
19
ANY DEVICE
23
UCBLT
FUNCTION:CONTAINS ADDRESS OF
EACH UCB IN SYSTEM
SYSGEN TIME
INFO FROM: SYSGEN CONTROL INFO.
INFO
riO SUPERVISOR
~ UCB
r-~:AT
to:
APPENDIX II (Cont'd.)
CONTROL BLOCK ABBREVIATION LIST
JCT
SCT
SlOT
Job Control Table
Step Control Table
Step I/O Table
TIOT
DSCB
JFCB
Task I/O Table
Data Set Control Block
Job File Control Block
TCB
ECB
DCB
Task Control Block
Event Control Block
Data Control Block
DEB
lOB
UCB
Data Extent Block
Input/Output Block
Unit Control Block
ACT
LCHTAB
RET
Accounting Control Table
Logical Channel Table
Request Element Table
UCBLT
CVT
Unit Control Block Lookup Table
Communication Vector Table
RB
Request Blocks:
PRB
LRB
LPRB
SVRB
IRB
SIRB
AVT
DT
AT
VTOC
Program Request Block
Loaded Request Block
Loaded Program Request Block
Supervisor Request Block
Interrupt Request Block
Supervisor Interrupt Request Block
~
Appendage Vector Table
Device Table
Attention Table
Volume Table of Contents
A2-2
Appendix 3
LIBRARY DEFINITIONS
APPENDIX III
The following system data sets are required and must have space
allocated on the system residence volume. These data sets need
not be cataloged.
SYSCTLG (System Catalog) - The system catalog contains
pointers to all cataloged data sets. Only the volume index of the system catalog need reside on the system residence volume.
SYSI.NUCLEUS (Nucleus Library) - This library usually
contains only one member, the resident portion (nucleus)
of the control program.
SYSI.SVCLIB (SVC Library) - The members of the SVC library are the nonresident SVC routines, the data management access methods, and the system's standard error recovery routines.
SYSI.LOGREC - This data set is used for the recording of
statistical data about machine errors. Space must not be
allocated for this data set by the user.
The following system data sets are required, and must have space
allocated on direct access volume. They need not reside on the
system residence volume.
.
SYSI.LINKLIB (Link Library) - The members of the link library are program and routines that can be referred to by
XCTL, ATTACH, LINK, or LOAD macro instructions, or by
EXEC statements. Nonresident operating system programs,
e.g., the COBOL compiler, are contained in this library.
This data set must be cataloged.
SYSI.PROCLIB (Procedure Library) - The members of the procedure library include those cataloged procedures used to
perform certain system functions, e.g., compile-linkage
edit-go. It is recommended that this data set be cataloged.
SYSI.SYSJOBQE - This data set is used as a work area by
the job scheduler. This data set does not have to be
cataloged.
An IBM System/360 Operating System can function without the following optional system data sets. If the user wishes to make use of
the facilities they provide, they can be included in the operating
system to be generated. Space must be allocated on a direct-access
volume for the optional data sets desired. They need not reside on
the system residence volume. It is recommended that the data sets
to be included be cataloged.
SYSI.MACLIB (Macro Library) - The members of the macro
library include the macro definitions for the system
macro instructions.
A3-1
APPENDIX III (Cont'd.)
SYSI.SORTLIB (Sort Library) - The members of the sort library are the load modules from which a sort/merge program is produced at execution time.
SYSI.COBLIB (COBOL Library) - The members of the COBOL
library are load modules (COBOL subroutines).
SYSI.FORTLIB (FORTRAN Library) - The members of the
FORTRAN library are load modules (FORTRAN subprograms).
A3-2
APPENDIX III (Cont'd.)
SYSRES
A3-3
APPENDIX III (Cont'd.)
SYSCT LG
CONCR DEMAND
S
Y
S
1
COBLIB
FINANCE
FORTLIB
L
I
CONSUMER
B
R
LlNKLIB
DEMOP
SAVINGS SYSl
LlBR
MISC
MACLIB
PAYROLL
PROCLIB
SAVING
C
0
N
C
R
BALANCE
B
A
L G
A D
N G
C
E
LATEST
DELI NQ
DLRMAST
LATEST - 1
NAMEADER
LA TEST - 2
I VOLUME CONTROL BLOCK
D
E
M
A
N
D
BUSI NESS
PERSONAL
SPECIAL
.
B
U
S
I
N
E
S
S
A3-4
LA TEST - 3
TRUST
SORTLIB
TEST
XMASCLUB
SYSJOBQE
TRUST
APPENDIX III (Cont'd.)
P
E
R
S
o
N
A
L
s
P
E
C
I
A
L
A3-5
APPENDIX III (Cont'd.)
CONTROL
VOLUME
XMAS CLUB
DATA SETS
A3-6
APPENDIX III (Cont'd.)
CONCR. NAMEADR
CONCR. BALANCE
NOTE:
These data sets are not involved in those
being used in the job stream exampl~. Th:y
may be used in other examples and dIScussIons.
A3-7
APPENDIX III (Cont'd.)
INPUT STREAM
II
II
II
II
II
JOBl
JOBUB
STEP
IN
OUT
JOB
DD
EXEC
DD
DD
II
SYSIN
DD
DSNAME=L1 BR. CONSUMER, DISP=OLD
PGM=UPDATE
DSNAME=CONCR. BALANCE(O), DISP=OLD
DS NAME=CO NCR. BALA NCE (+ 1),
DISP=(NEW, CATLG), UNI T=2400
*
{ DATA CARDS}
1*
A3-8
APPENDIX III (Cant'do)
CONSOLE SHEET
IEE007A READY
SET DATE=66.067
START RDR,OOC
START WTR,OOE
START
IEF2371
IE F2371
IEF2371
IEF2361
IEF2371
IEF2801
I EF2371
IEF2801
IEF2371
M
191, 14732,JOB 1
M
140, 12793,JOB1
M
141, SCRTCH, JOBl
Allocation For JOBl STEP
SYSIN ON OOC
K
140, 12793,J OB 1
M
140, 12413,JOB1
14 1, 12741 ,J 0 B1
K
M
141, SCRTCH, JOB1
A3-9
Appendix 4
GEN~RAL LOGIC OF ERROR HANDLING
--------_.
--------------------------DEVICE-DEPENDENT
~SER
PROGRAM
ERROR ROUTINE
IN TRANSIENT AREA
I/O INTERRUPT SUPERVISOR
( ASSUME TAPE READ ERROR)
•
EXCP TAPE lOB
WAIT TAPE CB
~-----r------r--------'-.-----'
1---
LOOK UP
UCB AND
FIND RQE
( ALL ERROR CORRECTION
AND STATISTICAL
RECORDING HAVE
BEEN PERFORMED)
I
I
I
CHANNEL
AND DEVICE
END
I
I
t
RETURN POI NT FOR
lOS COMPLETION
RESTART
CHANNEL
NO
I
I
I
READ SENSE
DATA INTO
UCBFOR
DEVICE
I
I
CATASTROPHY OR
ABTERtV: ROUT INES
TO I/O REQUESTOR
ERROR RTN
INTERFACE
I
ARE RECOVERY
PROCEDURES
TO BE USED
( DCB BITS)
SCHEDULE ERROR ROUTINE
DASD: ENTER DIRECTLY
OTHER:
- PUT RQE IN ASYNCH
EXIT Q TO WAIT FOR
HANDLING
- GET ERRTAB ENTRY
FROM UCB
A4-1
I
I
I
TAPE: - CHECK FOR NOISE RECORD
- ALLOW FOR 10 LOOPS OF
10 READS AND BACKSPACES
PAST TAPE CLEANER
EXAMINE
CHANNEL
STATUS &
SENSE BITS
CLEAR ALL
DCB & lOB
BITS INDICATING
ERROR
OUTBOARD
RECORDING
PUT STAT. RECD.
ON SYS 1.LOGREC
EXCP REQUEST FOR SYSRES
TO GET ERROR RTN
INTO I/O TRANSIENT
AREA
EXCP SPVR.
ENQUEUE
& SIO
I/O
INT
SPVR.
( NORMAL
RETURN
TO lOS)
NORMAL
RETURN TO lOS
ERREXCP
( RESCHEDULE
CHANNEL
PROGRAM)
~ EXCP SPVR
FOR REQUEST
SCHEDULING
INDICATE
PERMANENT
ERROR
( PERMANENT
ERROR RETURN)
YES
I
CONTENTS SUPERVISOR
._._---
ERREXCP
& RETURN
ERREXCP ROUTINE (SVC 15 )
LEAVE lOB
EXCEPTION SET
RESET ERROR
RTN. IN CTL.
UPDATE
STATISTICS
COUNTERS
UPDATE
STATISTICS
COUNTERS
I/O INTERRUPTION
FOR RE-EXECUTED
CHANNEL PROGRAM
PURGE ALL
OTHER REQ.
RELATED TO
THIS ONE
(USE NORMAL
EXIT PROCEDURE
FROM ERROR
CORRECTION)
Appendix 5
5/360 0.5. EXCP
ASSEMBLY a PROGRAM FLOW
ASSEMBLY ------ PROGRAM
FLOW
SOURCE
PROGRAM
DeB MACRO
OPEN DeB
EXCP lOB (SVC)
WAIT ECB
"
DCB
Partially
Built
OR
SOURCE
PROGRAM
DCB MACRO
OPEN DCB
CONTROL
CARDS
SUPERVISOR
Brings in Part
Of Master I
Scheduler f
Readerl
Interpretor
MASTER
SCHEDULER
Readerl
Interpretor
Reads Control
Statements
---I
f
Builds Job
Step Control
Tables I
Blocks
JeT
SUPERVISOR
Brings in
Initiator I
Terminato
INITIATOR/
TERMINATOR
Locates Data
Sets
---
Assigns 1/0
Devices
Allocates Aux.
Storage
Writes JFCB
On Aux.
Storage
Builds TIOT in
Core
GET DCB
SCT
DCB
Partially
Built
SlOT
TIOT
JFCB
SUPERVISOR
PROCESSING
PROGRAM
~
Brings Proc.
Prog. Into
Storage
Appendix 6
5/360 O.S. EXCP OPEN FLOW
SYS 1
SVCLIB
...--\........
,-~
PROCESSING
PROGRAM
OPEN DCB
SUPERVISO
~~~
OPEN
READ DSCB I
READ JF~B '
SVC
INTERRUPT
HANOl.,ER
l
BLDL
{u-;~
--1I
I NON ST'D
I LABEL
OPEN SVC
RTN
ACCESS
METHOD
EXECUTOR
DEB BUILT
ETC
I
~. ~~~_J
COMPLrrE
DCB,
""
IEXIT ROUTINES!
tySER LABEL~
PROGRAM
FETCH
DSCB
SVC
INTERRUPT
HANDLER
(Input
Only)
12
*
TIOT
tUCB
OPEN DeB
ACCESS
METHOD
LOADED
-
--
-
DEB
BUILT
* EXCP
NOT APPLI€ABLE TO
USERS
JFCB
r---.. . . . . .-;~~~(Filled in)
.
~
.
DSCB
(Created)
A6-1
PROGRAM
SVC
1
(Filled in)
..---._....
PROCESSING
+
JFCB
DCB
SUPERVISOR
OUTPUT
DATA
SET
Appendix
7
•
THis PROGRAM LOADS 25 aO-CHARACTER RECORDS ON EACH TRACK OF 2311.
*CONTENTS Cf REGISTERS
R3 - CYLINDER NUMBER
* R4 - HEAD NUMBER
•
R5 - CURRENT RECORD NUMBER
•
R6 - LOOPINOEXING VALUE
R7 - LOOP LIMIT VALUE
•
RS - SUBROUTINE LINKAGE REGISTER
* RIO - ADDRESS Uf EXTENT fIELD l~ DEB
•
R11 - ADDRESS Of DEB
*
*
LA
6,1
INITIALIZE LOOP INC~EMENT VALUE
LA
7,25
INITIALIZE LOOP LIMIT VALUE
L
11,DISKDCB+44
GET DATA EVE~T BLOCK ADDRESS
LA
10,38(11)
PUT EXTENT ADDRESS IN REG 10
BAL
9,OISKINIT
INiTIALIZE SEEKADORESS fIRST EXTENT
*** EXCP CARD REAO ****
DISKIO
STC
5,SEEKADDR+7 ESTABLISH SEARCH 10 feR FILE LOAD
BXH
5,6,UUT
INCREMENT RECORD COUNT AND TEST FOR 25
MVC
SRCHIU(5),SEEKAUUR+3
SET UP SEARCH IU fIELD
STC 5,SKCHIO+4
EXTABLISH WKITE CR READ Ie fIElO
NI
OISKECB,x'OO'
EXCP DISKIOB
PERfURM DISK INPUT OR OUTPUT
WAIT ECB=DISKECH
CLI
DISKECB,X'lF'
ANY DISK ERRORS
HE
URIO
CLI
OISKEC8,X'42'
hAS THERK EXTE~T VIGLATICN
BE
NEXTENT
ABEND
2~5,OLJt-IP
OUT
HAL
9,ENOTRK
bENERALIZED LINKAGE
8
DISKIU
SR
S,S
CLEAk
RECORD = TO ZERO
lNDTkK
CH
4,=H'Q'
TEST ENO Of CYLINDER
tlE
NEXTCYl
LA
4,1(4)
INCKEMENT HEAD ~UMBER
NEXTTRK STC
4,SE~KADOR+6
OR
9
kETUR~ TO ROUTINE
NEXTCYL LA
3,1(3)
INCkEM~NT LYLI~OER NUMBER
LA
4,0
R~SlT HEAD = TO TOP Of CYLINDER
8
NEXTTRK
*
NEXTENT
3,16(11)
G~T = CF EXTENTS FROM DEB
4,SEEKADOR
GtT CUkRENT EXTENT =
LA
4,1(4)
INCkEMENT EXTENT = BY 1
CR
3,4
ARE ALL EXTlNTS EXHAUSTED
fil
JOBENO
STC
4,SEEKADDR
STOR~ ~EXT EXTENT:
LA
10,16(10)
EXTRACT NEXT EXTENT FRUM DEB
SAL
g,OISKINIT
RESEl CYL, TRK, ANU RECORD REGISTERS
e
DISKIO
REPEAl DISK CPE~ATIUN
* INITIALIZE SEEK AODRESS IN lOB AT BEGINNING Of EACH EXTENT.
o I SKI NIT ~1 VC
SEEKAuOR+3(S),O{lO)
EXTENT ADOR fO lOB SEEKAOOR
LA
3,0
IC
3,SfEKAODR+4
LUAU CYLINDER REGISTER
LA
4,0
Ie
4,SEEKADUR+6
LLAO hEAO REGISTER
Sf{
5,5
REStT RECGRO REGISTER
IC
Ie
A7-1
BR
*
ENDDATA
9
IS LAST RECCRD AT END OF TRACK
5,=H'2S'
EODMARK
IF NUT,
LET lOS WRITE EnD MARK
9,£NOTRK
GO TO TRACK INCREMENTING ROUTINE
5,SEEKADDR+7
t:UDMARK
SET RECORU = TO 0 OR TO 10 OF LAST
RECORO wRITTEN
*
MVC
DISKOCH+5(d),S~EKAUUR
SET UP DCB SO THAT EOO MARK
CAN HE wRITTEN
*
LA
3,800
SET UP TRB~L FIELD WITH PHONY NUMBER
STH
3,VISKDC8+1ti
CLOSE (DISKDCR)
os OF
D"lSKIGB DC X'42COCCCC'
lOB FLAGS= CMO CHAI~, UNRELATED
DC
A(OISK£:CB)
DISKCSw DC
CSh STORAGl:
2F'O'
A(OISKOUTJ
DISKCCW DC
POINTER TC CHANNEL PROGRAM
A(OISKDCBj
DC
DC
2F'O'
SEEKACOR DC
2F'O'
SkCHIC
DC
KtY LENGTH DAIA lENGTH
cc HH k
0' 80'
INAREA
OS
CLSO
OISKECB DC
F ' C•
DlSKOUT
X'31',SEEKAODk+3,X'40',5
SEARCH 10 EQUAL ON
CCw
RECCRO PREVIUUSLY WRITTEN
*
CCh
X'Od',OISKuUT,O,G
lkA~SFt:R IN CHANNEL
(Cw
X'lD' ,SRCHIU,X'20' ,88
WRITl: COUNT AND DATA
DISKDCB DCB
UUNAME=DISK,MACRf=(E),OSCRG=PS,DEVO=DA
CH
8NE
BAL
STC
A7-2
Appendix B
FUNCTIONAL FLOW OF I/O SUPERVISOR
1/0 INTERRUPT SUPERVISOR
EXCP SUPERVISOR
TRAPCODE MODULE
FOR EACH DEVICE CLASS
PROGRAM CHECK
OR AB. TERM.
APPENDAGE:
PCl
DETERMINE REASON FOR a SERVICE
I /0 INTERRUPTION
ENQUEUE
DATA TRF
REQUEST
ON LOGICAL
CHANNEL
APPENDAGES:
CHANNEL END
ABNORMAL END
TEST CHANNEL MODULE
1 MODULE / LOGICAL
CHANNEL
(TCH FOR
SELECTOR
CHANNELS)
NO
PSEUDO
ENABLEDISABLE
LOOP
TURN OFF
UCB BUSya
OTHER
INDICATORS
YES
~--
BUSY
ENQUEUE MODULE
APPENDAGES:
SIO
END-OF-EXTENT
FIFO
PRIORITY
ORDERED SEEKING
START I/O MODULE
FOR DEVICE CLASS
ENTER IN
DEVICE'S
STAND ALONE
SEEK QUEUE
CTRL
UNIT
BUSY
YES
NO
ENABLE
>------------4 FOR
CHANNEL SEARCH MODULE
ON DA,SD STAND
ALONE SEEK,
WAIT FOR
CHANNEL END
AS-l
INTERRUPTION
PENDING
FIND REQUEST TO START ON
PHYSICAL CHANNEL:
SEEK QUEUE SEARCHED AND
EXHAUSTED,THEN
LOGICAL CHANNEL QUEUE
SEARCHED
ISSUE SIO
SET UCB BUSY
OASD:
SEEK - SET ARM SEEKING
DATA TRF - SET DATA TRF
ENTER RQE
IN LOGICAL
CHANNEL QUEUE
__""'----------------4
I/O
INTERRUPTS
INDICATE TO USER
HOW REQUEST
COMPLETED
I
I
I
I
I
I
I
I
I
----~
Appendix 9
IIRHl
JOB
Ol,'ASSEMBLE APPENUAGt',MSGlEVEl=l
EXEC PGM=IETASM
115VSPRINT
00
SVSOUT=A
II~VSllB
DC DSNAME=SYS1.MACLIB,DISP=CLO
IISVSUTl DO UNIT=240Q,LAtlEL=(,NL)
IISVSUT2 DO UNIT=2400,lA8El=(,NL)
IISVSUT3 DO UNIT=231l,SPACE=(TRK,(lO,lO)
IISVSPUNCH 00 UNIT=2540-2
IISVSIN DO *
IGGOl9WA START 0
• C~ANNEL END APPENDAGE ROUTINE.
• ON ENTRY TO THt RUUTINE THE REGISTERS CCNTAI~ THE FOLLOWING INFO.
*
Rl - ADDR OF ROE
*
~2 ADUR OF lOB
*
R3 - ADDR CF DE~
•
R4 - AODR O~ DCB
•
R7 - ADUR OF UCB
*
R14 - RETUkN ADDRESS
•
R15 - ADDRtSS OF APPENDAGE RoUTI~E ITSELF
*
REGISTERS 10-13 MAY BE uStO FREELY.
II
USING *,15
TM
12(7),X'80'
TEST UCB TO SEE IF DATA SET IS SVSIN
BI
RETURN
IF NUT, RETURN
* fIND lID AREA AOURESS
L
13,lt(2) LOAD ADDRESS UF CHA~NEl PRCGRAM
L
12,0(13)
LOAD DATA ADDRESS PGRTIG~ OF CCW
CLC
0(2,12),=C'I*'
TEST FIRST 2 BYlES OF LATA ARtA FOR 1*
BNE
RETURN
01
12(Z),X'01'
SET UNIT EXCEPTION bIT IN lOB
Ul
0(Z),X'04'
StT IUB EXCfPTIO~ BIT
01
44(4),X'CO'
SET DeB IFLGS PERfI;ANENT ERROR HITS
KEIUkN
~R
14
ENe
IIRH2 JOB Gl,'lNSEKT APPlNOAGE',MSGLEVEl=1
IISTEP1 EXEC PGM=IE~l,PARM='lET,NCAl,LIST'
/ISYSPRINT DO SVSClT=A
IISYSUTl DO U~IT=2311,SPACE=(lRK,(lO,10))
IISVSlMOO UO USNA~F=SYS1.SVCLI~,DISP=OlD
IISVSlIN DO *
~AMt
IGGC1YWA(K)
A9-1
JOB
Cl,'TlST tXCP',MSGlEVEL=1,COND=(08,lT)
PGM=IEfASM
IISYSPRINT DO SYSCGT=A
IISYSLIB CO OSNAME=SYSl.MAClIB,OISP=JlO
/ISYSLTI 00 UNIT=2400,lAHEl=(,NL)
IISYSUT2 DO UNIT=2400,lABEL=(,NL)
/ISYSLT3 00 uNIT=2311,SPACt:=(400,4CO)
II~YSPUNCH
DC
uNIT=2540-2
I/SYSIN 00 *
TESTPt{OG START X'453U'
SAVE (14,12)
BAlR 12,0
LSING *, 12
1 3 , SA V t: {\ Rl: A + 4
5T
LA
13,SAVlARE:A
( I NF I LE , , UUTt- I LE , ( 0 UTpUT) )
OPt::t~
WTG
'FILE LOAU BEGINNING'
LOUP
Mvl
IN~CB,X'OO'
TURN O~f CC~PlETE EIT
EXCP INIOB
REAU INPUT RECORO
hALT ECB=II'lECB
ANY fRRCRS
ClI
INECB,X f 7f'
BE:
LOADTAPl:
TM
TEST UNIT fXCEPTION bIT FeR EOD
INCS~"'4,X'Jl'
t:NUUATA
HC
AbEND 2S5,DUfv'P
LOACTAPE MVI
UUTECP,X'OO'
RtSt::T (C~PLl:TE BIT
EXCP CLTIOR
~KIT[ TAPt
WAIT ECb=ULT!:-cn
CLI
lJUlfCB,X'7F'
ANY ERRLRS
BE
LUCP
IIR~3
IISTEyl
~XEC
ABEND
aUl
fNUDATA
Abf::NU
UI
15,DLI'I;P
25~,[)UI'v1P
OLTFILE+48,X'4[,'
TAPE
i"AHK IS TU bE 'tJR.lTTEN
CLUSt (Ii\JfILL"DCTf-ILf)
kTD
'JOB ~NnI~G'
l
13,SAVEAktA+4
RETURN
SAVEAREA OS
INECB
DC
INCCW
CC W
INI08
DC
DC
INCSw
DC
INAREA
*
OUTEee
OUTCCVi
DUTfoe
(14,12)
1 dF
F'O'
x •0 2 • ,
0(,
{) C
A ( INC C v"l )
A ( II\) ~ r l t- )
OC
DS
2f-'O'
2CF
DC
F•0 •
CC ~'i
CC
UC
DC
x• 0 1 •
, I N i\ f< L I~
A([JUTl..Ch)
I\{OUlfIlEl
UC
2F '0'
L S UI{ G = P S ,
D SUi{ G = jJ S ,
UUJFIlE
UCH
END
X•2u ' , b
(j
wRITE TAPE, SILl FLAG
A(UL1!::CD)
2F'O·
DC
oed
t
F•0•
i.JC
lNf-Itf::
R FAG t: I THt: R TAt) E- URCA R 0
I NAK[t\ , LJ , !:3 0
F'C'
A(INCCb)
2F • o·
1'-1/4 C.
kt
M;~ C k
~ ( L ) ,0 [) t\ A tv- E = S YS I f\ , C ENe A= WA
F = ( t J , iJ 0 f\ A ~ l::.. =S Y S CU T , (J E V 0= T A
A9-2
Appendix 10
ACCOUNTING ROUTINE PROGRAMMING
A.
APPENDIX X
Passing parameters between accounting routines using
SYSl.SYSJOBQE as temporary storage. To pass data:
1.
Accounting Routine
a.
Must build a list of parameters and load the address
of the list into register 1.
DS
DS
QMPOP DC
DS
DS
QMPCM DC
QMPNC DC
QMPCL DC
LISTA DC
RCADDR DS
LIST
AREA
2.
DS
F
F
X'OO'
XL3
SF
No. of l76-BYTE RECORDS
X'Ol'
X'Ol'
AL3(LISTA)
A(AREA)
F
CL176
b.
Must issue an SVC to determine whether or not this
is the first time through the routine and locate
areas in the SVC routine.
c.
On return from the SVC routine, check "QMPOP" to see
if it has been changed. If not, this is the first
time through the routine. The address of the Table
Store Subroutine should be loaded into Register 15,
and a branch issued to Register 15. Record addresses will then be assigned. The accounting routine should move these into the SVC area. If this
is not the first time through the routine, the
record address can be picked up from the SVC area
and used in Read or Write functions.
d.
At Job End the SVC area and any switches should be
reset.
Resident SVC Routine
a.
Must set and test a switch to determine first time
through the routine.
b.
Must provide and point to an area to be used as a
work area. (Use Reg. 0, 1)
c.
May do other functions as user desires.
A 10-1
APPENDIX X (Cont'd.)
3.
Programming Considerations
SYSl.SYSJOBQE is reset as part of the job termination
routine in the sequential scheduler system.
A10-2
PASSING DATA-RESIDENT SVC
SVC ROUTINE
CONTROL
PROGRAM
IEFACTRT
~
~
INTERRUPT .~
,
'>
\
~t
SVC 225
t.
~t
~
~~
4~
~~
~'
~~
•
\'.
~
\
t
IGC nnn
'
.
BR
t
~
~
.oIIIIIIIIl
......
B xxx
BR 14
14
DATA
PASS DATA
rHRU REG. 180
A10-3
IBM System/360 Assembler Coding Form
IBM
-
ACCOUNTING ROUTINE
PROGRAM
PUNCHING INSTRUCTIONS
PAGE
OF
PUNCH
IDATE
STATEMENT
Name
1
8
Operation
10
14
20
IdentificationSequence
Comments
Operand
16
25
30
35
40
45
50
55
60
65
71
IEFACTRT START 0
~
)
LA
SVC
ST
LA
TM
BC
MVI
»
o
I
~
L
BALR
L
MVC
MVI
MVC
B
READ
MVI
L
BALR
I,LIST
255
I.SAVESVC
I.LIST
QMPOP~X'FF'
Z.READ
OMPOP.X'Ol'
15,_ VCONST
14,15
2,SAVESVC
O,(4,2),RCADDR
AREA,X'O'
AREA+I(175),AREA
STEPEND
QMPOP-,-X'04'
15.VCONST
14 I 15
BRANCH TO SVC ROUTINE
ALL ZEROS
-
SAME AS BEFORE - IS1
LOAD ADDRESS OF TABLE STORE SUBR.
POINTER TO AREA IN SVC ROUTINE
MOVE RECORD ADDRESS INTO RES. STOR~
CLEAR AREA
SET UP AND READ RECORD
INTO AREA
(
)
)
DETERMINE IF JOB OR STEP TERMINATION
J
J
BE
JOBEND
4
CARD ELECTRO NUMBER
GRAPHIC
PROGRAMMER
I
73
80
IBM
IBM System/360 Assembler Coding Form
PROGRAM
PUNCHING INSTRUCTIONS
ACCOUNTING ROUTINE
PROGRAMMER
IDATE
PAGE
GRAPHIC
I
PUNCH
!
2
1
STEPEND
8
10
14
16
<:
(
(
20
25
30
35
40
45
50
UPDATE RECORD
(
MVI
LA
»
o
6,
EXIT
QMPOP L X'03'
I.LIST
15,VCONST
L
BALR 14, 15
L
131 SAV 13
RETURN (14.12)
JOBEND
PROCESS ACCUMULATED DATA
B
I,SAVSVC
O(4,1),ZEROS
4(1 1 1)IZEROS
EXIT
DC
DC
V(IEFQMSSS)
L
MVC
MVC
ZEROS
VCONST
ldentificationSequence
Comments
Operand
F' 0 '
RESET RECORD ADDRESS
RESET SWITCH
55
4
CARD ELECTRO lUMBER
STATEMENT
Operation
Nome
OF
60
65
71
73
80
IBM
IBM System/360 Assembler Coding Form
ACCOUNTING ROUTINE
PROGRAM
PUNCHING INSTRUCTIONS
'AGE
PUNCH
JOATE
STA TEMENT
Operation
Nome
1
o
10
14
16
20
25
lQMPCM
IQMPNC
lQMPCL
LISTA
RCADDR
IAREA
SAVESVC
OS
OS
CLl76
F
I
0-
Sequence
Comments
2F
X'OO'
CL23
X'OI'
X'OI'
AL3CLISTA)
A(AREA)
F' 0 '
END
ldenti fi cot ion-
Operand
DS
DC
DS
DC
DC
DC
DC
DC
LIST
[QMPOP
»
8
30
4
CAID ELECTIO MUNIER
GRAPHIC
PROGRAMMER
3 OF
35
40
45
50
55
60
65
NO.OF 176-BYTE RECORDS TO BE ASSIGNED
NO. OF 176-BYTE RECORDS TO BE USED
71
73
80
IBM
IBM System/360 Assembler Goding Form
SVC ROUTINE
PROGRAM
PUNCHING INSTRUCTIONS
PAGE
STA TEMENT
Operation
1
8
IGC255
10
16
20
25
30
35
40
45
50
START 0
(
\
\
j
»
o
I
'-l
TM
BC
MVI
BACK
LA
BR
NOTFIRST MVI
MYC
.
IRCRD
SWITCH
L
MVC
BLDC
DC
END
SWITCH .. X'FF'
7 .. NOTFIRST
CHECK FOR FIRST TIME
SWITCH~X'FF'
1~
RCRD
14
8Cl).X'Ol'
SAVEAD+l(2)~23(1)
2"SAVEAD
4l4,2),RCRD
BACK
F'O'
X'O'
IdentificationSequence
Comments
Operand
14
4
PUNCH
lOATE
Nome
OF
CARD ELECTRO NUMBER
GRAPHIC
PROGRAMMER
4
NOT FIRST TIME
55
60
65
71
73
80
Appendix 11
ACCOUNTING ROUTINE STUDENT PROBLEM
Write a JOB termination accounting routine to perform the following:
1.
Calculate the elapsed time for execution of the previous JOB. This will be terminator
to terminator time.
2.
Type a message on the console that this is JOB time, the name of the JOB, and the
time in hours, minutes and seconds. Also include your name in the massage for
identification. (The JOB name and your name are to be retrieved via the pointer in
Register 1.)
3.
Store the previous JOB time in the CVT, as a decimal (packed) number representing
HHMMSSTH. This field is in CVT+ 156.
Additional information for accounting routine problem.
1.
The location of the CVT is contained in a full word starting at location 16, decimal.
2.
The accounting routine uses one field in the CVT which is not used in the current
release of the system. This is not a recommended procedure. A better approach would
be to provide a field for this in a user written resident SVC routine.
A 11-1
*
THE BASIC LO~IC OF THE ACCOUNTING ROUTINE IS SIMPLE.
*lNG LISTS THE SEQUENCE OF OPERATIONS REQUIRED •••
..
..
.*
*
*
*
......
..
*..
1.
INITIALIZE FOR ASSEMBLY
2.
SAVE REGISTERS
3.
STORt POINTEK
4.
I SSUf- THE T I ME
MACRO
5.STORE fHE TIME
6.
GET fHF CVT WORD ADDRESS
..
....
..
7.
SETUP THf CVT CONTENTS OF DECIMAL ARITHMETIC
8.
LAP fHf CURRENT READING
9.
SUOTRACT THE AMOUNT IN SfTUP
..
..
10.
ADJUST THE
......
11.
UPOAfE THE CVT WORD
..
12.
EDIT THE ELAPSED TIMf
..
..
13.
~~OVE
..
14.
MOVE THF PRCGRAMt-1ERS NAME
.*
...
....
1 ~.
(\\!l V f
16.
w~ITl
17.
RE TUf<.N
*
THE
AND
S~CONOS
JOB
MI~UT[S
NAMf
THE J 0 RAe C OU NT I NGOA TA FIE lOS
Tn OPFRATOR
A 11-2
THE FOLLOW- .
*
...*
...
...
THE ACCOUNTING RUUTINE USES THE FOLLUWING ARlAS ••••
POINTER 1--1--1--1--1
*
*
*...
...
...
...
THE TERMINATO~ PROVIDES A POINTER (IN
REGISTER 0) TO AODR~SSES OF ACCOUNTING
INFORMATION. THIS POINTER IS SAVED HERE.
11111
1--1--1--1--1-
TMPCLKST
1--1--1--1--1--l
1 1 1 1 10Cl
1--1--1--1--1--1
THE TIME, TAKEN AT THE END OF EACH
JOB, IS STORED HERE. (THIS SHOULD BE
ALIGNED UN AN FWB)
...
.....
C:VT+148
1
...
...
...
1
1
1
HERE IS SAVED THE REAOI~G TAKE~ AT
THE END OF THE PREVIOUS JOB.
(INITIALLY IT SHOULD BE ZERO)
WKAREAST
1--1--1--1--1--1
1 1 1 1 lOCI
1--1--1--1--1--1
WORK AREA WHERE THE DIFFERENCE OF
JOB TIME READINGS IS CALCULATED.
SE TUP
1--1--1--1--1--l
THIS AREA IS USED TO GIVE THE VALUE
FROM THE CVT A SIGN (SIGNS ARE
REQUIRED FOR OECINAL ARITHMETIC)
...
...
...
...
...
...
...
1
1--1--1--1--1
~
...
1--1--1--1--1
lOCI
1--1--1--1--1--1
1
1
1
1
...
A 11-3
JOB CONTROL STATEMENT SETUP
//ASMJACT
//ASMJ30
//SYSLIB
//SYSUTI
//SYSUT2
//SYSUT3
//SYSPUNCH
//SYSPRINT
//SYSIN
~
JOB
EXEC
DO
DO
DO
DO
DO
DO
DO::
l01466,HCAOOW,MSGLEVEL=1
?GM=IEUASM,PARM=OECK
DSNAME=SYSl.MACLIB,OISP=OLO
UNIT=2311,SPACE=(200,(lOO,50))
UNIT=2311,SPACE=(200,(lOO,50))
UNIT=2311,SPACE=(200,(lOO,50))
UNIT=OOO
SYSOUT=A
YOUR SOURCE DECK HERE
A 11-4
IILINKACT
II
IISYSABENO
IISYSPRINT
IISYSUTI
IISYSLMOO
IISYSLIN
JOB
EXEC
DO
DO
DO
DO
DO::
l00766,HWC,MSGLEVEL=1
PGM=LINKEDIT,PARM='NCAL,XREF'
SYSOUT=A
SYSOUT=A
DSNAME=&TEMP,UNIT=2311,SPACE=(TRK,(20,lO))
DSNAME=SYSl.LINKLIB,DISP=(OLD,KEEP)
YOUR OBJECT DECK GOES HERE
INCLUDE
ENTRY
NAME
SYSLMOD(IEFZA)
IEFZA
IEFZA(R)
A 11-5
PROBLEM SOLUTION
IEFAeTRT eSEeT
SAVE
111t,12)
10,0
BALR
USING
·,10
ST
13, S AVACCT +It
9,13
LR
LA
PUT SV AR AODR OF AceT RTN IN R13
13 ,S A"VACCT
13,4(,9)
Sf
Sf
GENESI S
1,POINTER
SAVE STARTiNG ADDRESS OF 1 POINTERS
TIME
ST
O,T"pelKST
SAVE HHMMSSTH
L
11,16
GET ADDR OF CVT'S BEGINNING
Mve
SETUP(4',156(11)
SIGNING TIME QTY OF DEC ARITH
ZAP
WKAREAST(5),TMPClKST(5) CURR RDNG TO ACCUMULATOR
SP
WKAREAST(5),SETUP(5)
SUBT PREVIOUS VALUE
elC
TMPCLKST+2(ll,SETUP+2
THE NECESSITY OF ADJUSTING SECS
BNL
TESTMINS
~ MINS IS DETERMINED AS FOLLOWS:
SP
WKAREAST(5),SUB40S
I) IF MINUEND> OR = TO THE
TE STMINS CtC
TMPClKST+I(l)~SETUP+l
SUBTRAHEND, NO ADJ NECESSARY
ClOI 00000000
T~f\I f')00000f)('
JSF f),)f)00000
C'1P 0001 BC
JL~ 01FEI)0
01 00000000
00 f)OOOOOOO
OJ 0000001)0
ACTIVE RRS
»
01
I
'.J
0" 6 71 OC 0
t1SE/rp OOO()4CFO
PC:;W FF050006 700'14EI5?
0 OlFE60
WT/LNK oOOaOIA()
UB OOC;OOR
Sl/STAQ 0"79004')
USf/FJ> 00()f')502A
PSW FFf)50(,06 bQOOC;OA6
()
O()Ooon
WT/lNI( f)On04COO
UF\ 0015111)0
SZ/STA~
USE/F:P rnOt F')')'"
PC:;W FFOt;OOOr) 4QOlFC;F\E
Q
0')0000
WT/LNK 0OO0500A
UR OIFSEO
AOOl 004(00
NM ABl E
A002 00'5008
"1M
A003 (HF510
NM CHAR.L IF
A004 OiFBBO
REGS 0-1
REGS 8-15
"1M S VC-4J lC
SI/STA~ on()c 007 2
USF/FP nOO(')2n70
8,)f),)OlAC
OOOOOO()7
,)OOIF~ 30
0000,)04A
400,)Ar7A
O,)OlF'5EO
(')0000000
0000OO3C
PSW FF040033 40002F14 Q AI03Al WT/l~1( OOOIF'\3()
('OoaOOA')
000023AQ
00000')02
0')000008
00000000
00002408
0001F060
691)1F516
AOOI5 01 F4C 8
REGS 0-1
REGS 8-15
NM S VC-l 0') A Sl/STAB 000C0072 USF/EP 0000;>070
400f)~f)7?
oononA78
00000,)E 0
000051A8
ononOlQO
')0020000
000()521F
00003170
PSW FF04000E OOfJIFl6C Q OFOlnF WT/LNI( aOOIF~~n
80002EFO
0000C;150
OOOlF098
aoooooOO
50002FQA
OOOlFl48
0000'51B8
OOOOOlAO
RAI(F:R
Sl/STJ\f\
nt)16~()40
LOAD LIST
o
Sl/STAB ')f)()4FOOO
lJSf/EP oooor;ooo
N'-1 IGG019AR
Sl/STAA OO()OFOIO
USE/EP
fJ2nlF~58
UR OIFABO
L003 01F9FO
NM IGG019BA
57/STAB 0(')2AFOIO
USE/EP O?OlFAOO
U8 01FB40
LOl)4 01F9Q8
NM IGGOlqCL
Sl/STAB OOOAFOIO
USE/FP 0IOlF9A8
UB O1F9FQ
L005 01F910
NM
IGG019CE
Sl/STAB OOlOFOIO
USE/EP 01OlF920
UB OlFQ90
lO06 OlF'800
NM IGGOI9CB
SllSTAB ,)015FOIIJ
USE/EP 010IFR7n
US OlF90A
LOO7 OlF818
NM I GGOlqrK
SI/STAB O,)08FOI0
USE/EP OlO1F82Q
UB OlFSSS
lOOS 01 F 7E 0
NM IGG019CC
Sl/STAB onObFOI0
USE/ED OlO1F7FO
UR 01F810
L009 01F530
NM CHARL IE
Sl/STAA 00162040
USE /E P 0301F550
LOOI OlFF68
NM
L002 01F848
XRAY
PSW 00000000 00000000
PSW FFO'iOOOO 4901F58E
000000
0 000000
WT/lNK 00000(')00
WT/lNK 00001)008
UB OIFSEO
PAGE 0002
-"
a..,
SAVF AR fA TRACE
ABLE
SA OOOIFFRR
00 !)OOOOO~()
07 OOOOOOR ,')
RAKER
~A<;
SA OOOlFEAR
00 FFFFFFFF
07 OOOOOaRO
CHARL IE
»
tl1
I
1 01)00')181
01 O,)OIFFIC
OR OOf)t)OO3C
\.. f)
ENTF~ED,
HSA 00')00')'11)
02 f)OI)0.'l0flC
09 4"10A(; 7A
VIA LINK 0'1111,
WD 1 FF:) 5400(
01 OOOa4F 5 R
08 O,)O,)CO~C
WOl 0)105150
01 0,)!)IF630
08 ~,),)00()03C
~r
H<;A Qn()lI=Fl3q
02 OO'HFFIC
09 4010A(7A
WAS ENTERED, VIA LINK f)022?
SA 0OO1F5EO
00 00OIF5C)0
rn 00000080
ABL F
AT FP
WAS ENTFRr: ')
LSA '1001FFRQ
01 I)()Of),)lRl
1'"'1 0f')OIFFf')(
OFT ,)f'l'102408
'14 000'14C40
1 I 00OlFF4C
FP 40004CFO
OC) f')COIFF4C
12 0000018f')
06 O()0071R8
RET 0OO0240A
04 0OOO4C40
1 1 O(\"lFF4C
EP 70005028
O'l OOOlFF4C
12 40004000
06
Rr:T 00O'1240A
()4 'nrOf)4C40
1 1 01)0"0000
FP 6901F5'50
"'5 0"OIFF4C
17 700()50'8
06 00()023R8
0') 00OOOO3C
I=D RAI(FR
lSA 0001f'lFO
03 O()()O1001
10 OOOIFFe(
AT EP
HSA 0f)J1FF8~
02 onOI14Fc)A
09 40,)OAC7A
A~LF
,)OOO23B~
INFOFRO~IOFrFLDnFSAVr:MACRO
LSA ~()I)I F D60
03 '"'Iorr)0002
10 0001FFOC
WAS FNTERFf1, VIA (AI.L
SA Ol)01F060
00 00000002
07 0OO1FFOC
wnl
F~05691C
01 01004C40
OR 0')000001
OOJIF5'l0
EP 000!)4F58
HSA " rHH F '5 E ')
02 OO()IFF4C
()9 70,)0,)'1~R
l<;t\
10 !)f)OIF5FO
0001F628
04 0(\()()O080
11 01)1)')2408
HSA lACQD5Cf,
02 C 309n600
OQ 0008113r)1
LSA DhChn906
03 90FCf)0f)C
10 ')8'521)000
RET D4CQC4C6
04 05(01821
11 'lC 42(')')"4
EP CQC5D3C4
05 41000048
12 50'520008
06 4'510C004
LSA OOOlF5'50
RET ,)OOIF628
04 OOOn0080
II 00002408
EP 00004F58
01) 00OOO03C
12 6901F550
06 4000AC7A
FP 6901F51)0
05 OOOIFF4C
12 70005038
06 00002388
03 00"OJ313g
~~T
06 4000AC 7A
12 6901F550
ex>
INCORRECT BACK CHA IN
SA 0001F5'50
00 06C6 E2C 1
07 OA OA '5001
VoIDl 47FOF020
01 F5C 5D4C 1
Oq 000450lf>
INTERRUPT AT 0IF'5BE
PROCEEOING BACK VIA REG 13
ABLE
wAS ENTfREf), VIA CALL
SA 0001Ff)60
00 00000002
07 0001FFOC
CHARLIE
W01 FFnS6Q1C
01 00004C40
08 ')0000000
HSA aO'JIF'iEO
02 000 IFF 4C
09 7000503R
03
OOOO~3R8
10 0001FSFO
WAS ENTERED, VIA LINK 00222, AT EP INFOFROMIOFlfLOOFSAVFMACRO
SA 0001FSEO
00 OOOIF550
01 00000080
wnl
0,)OO'51S0
01 ()()OlF630
08 OOOOa03C
HSA 0001FrQ8
02 00034F'58
09 40')OAC7A
LSA f)OOIF06()
03 ')onOOOOJ
10 I)ODIFFOC
RFT 00002408
04 O''')04C40
11 00000000
REGS
FNTRY TO AREND
REG 0-7
00000048
REG R-15
0000003C
."
c..,
»
01
I
'"
800001BC
4000AC7A
000000
00000000
DOOD05IC
000020
Ff04000l
400lf36C
000040
0001f438
08000000
000060
00040000
00000346
000080
01000007
00000000
OOOOAO
ooooonoo
00000000
LINES 0000Co-OOOl20 SAMf AS ABOV~
000140
00000000
00000000
000160
00000000
00000000
000180
0001FDAS
0001F4CR
OOellAO
00000000
0001F528
OOOlCO
50002!)02
5000'i26E
OOOlfO
001)0533C
OOOOCi33C
000200
0001FF24
60005706
0()0220
00002A40
0OOO3l8E
000240
000020lA
00002138
000260
02'iF9029
028096FO
05R958c;O
000280
58900254
0002AO
98290100
91F0026~
()2070440
OOJ~C 0
90AI021C
Q180001R
0002EO
94F09011
00030(1
002858BO
OlFC98Cn
000320
100012AA
01CB9280
00284700
000140
01FC8200
03EA9S8C; . ~23C43A9
000360
47A0030E
000380
49A0025C
0003AO
05E60400
03470022
474003B8
90AI0180
0003CO
0003EO
40300400
58C00244
00000001
00005200
000400
00000000
00000008
000420
0001f36C
Ff04000E
000440
10004790
01F89181
000460
Q1881000
000480
581001F8
82000440
048204R6
0004AO
FfOOO4CO
ffOO04CO
0004CO
92F00449
D70204B 1
0004EO
90290400
41f004fO
000500
04C 01000
000520
04C40203
06144910
04BE4180
000540
056E94FE
100347BO
000'i60
18'5647FO
47800'5RA
000580
400R4150
1008960C
0005AO
01Q04710
10009101
0005CO
400B0202
01B09640
0005EO
068658FO
401041EO
000600
fOfOfOC 1
C9(1C5fO
000620
0001FB38
00000001
000640
OOOlFAOO
0001FA4A
000660
41400620
00002656
000680
06244780
062450f 0
0006AO
00('00')80
f)OOOOr)no
0001F630
On01F5EO
00000002
00000000
00000008
6qf)IFCi16
00000002
0001F060
FOfOF5Cl
Ff050006
OOOlF42R
00040000
00050000
00000000
OCOOO£= 11
40000001
0OO023B8
00OO02FE
00000000
00000000
00002388
OOOOFFOO
6309109f
00020000
00000000
00000000
nOO03AOB
00000000
00000')00
000000E2
00000000
00000000
00000001')
FF06r)OOf
n0040000
0004000')
00000000
00000"00
onnlf'6C
000002A4
000()025E
0')000000
OOt)OOOOQ
00000000
00000000
00000000
00000000
000lF4SC
0001Ff4C
0001FEOn
00000000
00000001
On005200
OOOOt)O()O
00000008
6001FAOA
OOOO'iOF8
00000001
4000284C
00002000
00001000
(,78E5840
01004100
024C41FO
OBC"90Al
QAAI021C
41800448
02E458QO
001R47FO
582002F8
478002F2
02509101
0029018R
100098FO
AOO08900
Ol06900F
04005890
AOO041B,\
AOO01ABA
0249BOOO
lEB8fl202
411003B8
982f0408
0201A010
58AOO180
01fC4fHO
00224110
0001F408
00005150
·00001jlA8
00003170
47000504
58COO180
049A9029
01005830
4770049A
90290100
00001084
00001tl0
12114140 . 04EC48AO
048101FE
131158AO
91400628
4110044C
020304C4
41100532
04BAI000
04BC0201
100341FO
06844190
0l)7A4010
50004060
50001266
40185860
58101004
0'i3A1801
50400180
40100181
40009001
400CS8DO
00002BEO
00048000
0001fC68
0001FR84
OOOlfE28
0001FE28
45900500
50104018
068041AO
044C58BO
00003134
00000000
800001RC
00003170
00005150
0401fFBA
00000001
00003592
00001 QC 8
01800201
021C0201
82000440
04B490Al
052241FO
58AOOIA4
COOO1200
025801589
418003EA
9107B002.
95000482
002047FO
1F008910
00005200
50002072
02010440
04A80523
583004AC
00000180
048C0201
04C40201
90290100
10004590
4170055A
053A-;840
10009101
4180058A
9140400B
02024015
01BCOlf9
FF040190
0000000"
00000000
00000000
OOOOS1A8
0OO1F408
00000000
00002410
00000180
00003A 86
40100038
04400038
90290100
9010'i899
029COOOO
124A01C8
01A850FO
1 8AA43 AO
58300010
4110010E
478003BC
044892FF
000C9888
0001F348
000051B8
C0109500
982901DO
05239829
00000180
1000AOOO
1000AOOO
581004CO
059E41FO
0201048C
20084150
01904110
185647fO
077Q0227
40009101
920004'\9
0000J382
0OOIF9]0
0001FAEC
18004300
000AOA03
00000001')
0000000r)
00003110
50002012
(0001)200
00003184
00005078
0(00001)0
00003A10
94f04011
41F00280
91FOO268
00000201
00001CI)8
90C2A004
002C41EO
00239546
S8400484
96F00347
82000020
002241FO
04200AOO
00001j33C
5000526E
(01C4110
41F0049A
010098Al
0000048A
40104000
'iOl0AOOO
12114740
05144810
10005820
401A4860
0'i3A41fO
05AA5010
402001C8
40114710
98290400
00001520
00000050
50008480
600845FO
4EOOOOOO
00000000
00000000
00910400
00005188
0001FB~8
00000180
48610002
06200588
00()C21R~
0OOO7.4,)R
noo()oooO
0001F~48
OOOlFff4
0OO1FOAO
00002010
00114100
90AI0180
940F02'5F
418002CE
90100018
OA0390A9
181A58AO
02fC98AO
002341AO
158504000
58600248
9'5fF0020
034E023F
00000000
0OO0533C
0001F348
047C5810
96020441
01A00201
04AA048A
4010048C
501004C4
053Alj510
048A4910
10089101
50001266
05005840
50005060
02174048
06029200
47F0044C
00004COO
0OO1fAOO
50002002
068855EO
fJ320n08
,
""'0
..,
0
»
01
I
0
VV'Jl)l,U
UUJ"~8t-O
0006E0
000700
000720
000740
()00760
000780
0007AO
0007CO
ooon:O
OOOAOO
OOOH20
000A40
000860
000880
0008AO
OO,).'3CO
OOOBFO
000900
000920
000940
000960
000980
C009AO
0009CO
0009EO
OOOAOO
000A20
000A40
0001460
5A340f)2C
47800714
IBAA431\7
927F2004
40109101
91C87006
'lAAO,)070
9Z8050EA
41AA000C
(HO? ,_ .ivO
07FI\9110
02()120()?
9129?01)0
511407FA
O()O4')890
080C913,)
':'C6F94Ff)
700A91A4
2 (')0(4 7FO
4 7 '31) 094A
92185080
OAOF401\0
10209108
1033A00A
4 7C 009EA
09FA9602
4240 5 Of) I)
41C008RC
09Q4Q130
OA929242
003C47FO
'JA544397
91010001
47FOOAEC
ROOOIOOO
43910004
OB664110
4060003A
50E9AOOO
AOOO,)OE9
004450F6
lA6fllAAA
00149180
47800038
41800C61:
41800C88
95500044
002241FO
OCEA9171
91042000
100407F 8
200441C 8
91040044
100647FI')
OOO~RO
OOOAAO
OOOAC 0
OOOAEO
OOO~OO
000870
000'340
OOOQ60
000~80
OOOBAO
OOOBCO
OOOBEO
OOOC 00
OOOC 20
000C40
000C60
000C80
OOOCAO
OOOCCO
OOOCEO
000000
000020
001')040
0001)60
OOODAO
,,)OOA07FF
910F3,)IA
I t 393 00 lC
000AR91\0
C:;OIROOOO
1()'H471')
41(0079r:
lAI ?07FI\
4 7F 00148
95()lAOOl
4710,)81Q
70064710
701647FO
!,710nAR4
920')0048
506C05R9
20114710
700694C:;~
0,.., /,44 1~8
f)fECQ4c;9
')2025089
170040')0
')('lC ?9 1'11
2001471')
4 7? Y)A4C
020170J5
700h4lfO
41A050CA
96067006
201041 E 0
2n0494F~
OA3C9110
00074AAQ
47~00AFg
91207012
91011001
')8(0')054
004041 EO
920FO'13
4390,)Of:9
01FPHO'=
4780nf)RC
lAA64A7A
004'i47AO
439,)004C:;
04010044
94 7J: 7006
47800EFE
OOOC 9498
20f)f)4780
41100FOA
41000000
00049180
47800C88
0(840606
419AOOO()
I) 0 7947,30
928'1C:;0EA
91FE101t1
587AV)20
4012'H'l F
07AR4071
9102."000
')0 "61"l7F ~
9?F()1\000
07f,a.41 1\')
41BOO~20
41F,)0~I)2
47800Al~
C)120?0')')
200C7"14
41A"509()
05FF47J:O
4120f)9'6
700696dO
on9A9111"'1
I)OO4960R
Ol)0441 F I)
?0004710
50~04 7AO
20014110
10102020
4150080'1
41EOl) '-'62
43A20020
0001410A
ItA 10 C:;0C:;11
07C80201
177C41Af)
')AAOC:;O')C
f)507?('I1C:;
477007D6
91C0402C
OA?E47f0
lA551821
lR9918Aq
891\1)900')
'SlF207F(
12114740
'105010r)C
~rl?,)200
')RF3"OIC
41h70l)1,)
P~9940 1 7
()916913E
70069120
O"0A9471
700647Fd
2,)1<}9109
302047FO
2 Of) r, I. 710
OQEAf)'5('l1
91f)4100R
A01"'1A411\0
080F47FO
02025009
47F00A84
091A4710
7006940F
20004710
')lC407FA
'to 1000f)0
47100A92
078E40RO
C:;,)90201R
'5QFF0004
9C f)060 ')0
001494B7
004'54770
O'144471A
7')0641RR
f'OI"lA9110
7000411\0
'1P,c;4Qll0
09Q41)7'17
7031d004
41PC('9FA
C:;1"l(t1Q202
OAQ240AO
70119101
SBF100IC
OA929110
200041EO
o ~4 AIl8A 2
41070078
401nOO02
18AOIABA
000207FE
,)AC9COOO
07FF41'~0
00304Al,)
~20000 70
46900BRA
00454170
lAAflACf,O
52064860
OC'5458F3
90006()00
,)OEB9420
91ROO044
910C0044
10069120
OCFf9604
4')FOOA30
9FOO6000
'50 f .h4 110
91A01006
1')0412009
r;OF45RFO
41':OOD14
41A'1007F
OR8441-'30
0()ORAA70
003A9120
001C58FF
4720()O18
70069108
47100Fl.'3
4 7800C SA
20004710
200005 F F
Q1202001
47(00D.\8
00l)418EC
47ROOF28
94Af2001
,)7944A~f)
0~n"n?01
47700~4C
f)5017015
5"'8045(0
50(AIBAA
200047BO
58fFOOOO
00444710
OF3F43Q1
001R9101
47FOOAEO
02nll001"l
48ABOOOO
,)8R2f)004
001045FO
00105AFF
58R3"014
89AOOO18
002492')0
001C4366
700f,47RO
00080r;EF
40900044
00444180
91020044
43910007
Of1658A3
47FOOOOO
4710088C
918050EA
41C004C2
91030044
941F7006
41C')1)130
41700704
91fF7002
n7t18200A
1)0029')23
4710'178'"
47FO,)7A'J
A0005,)B8
54Fnf)Cl'1 1
41 Af),)794
478AOf)OB
94fF1f)OA
4IC()!)R~C
OAR441EO
O,)A,)RAA1
7f)06911f)
004447}(')
1')06914')
0f:2fJ45Ef'
084Ar)2"2
09h441AO
OA9E41A7
lRAA43A7
0C:;,)31f)11
"1"'1084740
'1A'iC4170
41.h7003,)
OA3C0202
05ff47FO
08E247Ff)
00014~A9
2000411"
47FOOA08
50&;201fF
12AA074E
43a20004
OB409200
00348910
5ACB,)OOf)
5~F050"0
'50EAIA99
51fAIA61
OC5C4811
91FF0044
91402001
')0580201)
41100FE8
48A9r;IC8
OOlC58Ff
41FOOl)OC
02011000
471007AO
47FOO720
41800CA4
47FOOC76
1~11181)4
4A130022
47FOO~~2
20'1Afl403
100418AO
91C040?C
47F001F4
A'100007~
A00210"'~
91111006
43970007
45FOO8,)4
9200')090
,)OO(419f)
,)01842A2
:?OlOO5CC
08F645EO
0044411'3
080C9240
')0892011
'50AA0200
00319102
0030A9AO
A0064140
09E40S01
OA629000
89AOOO04
50092019
OA8241FO
040241EO
51C441FA
OABE58A2
4107007.8
48AOOO02
19A14170
a9AOOO18
70061AOC
001001FF
41RROOO4
01fF4290
lfH 14860
4l6651FA
00149823
41100C54
41100086
20090041
91310045
05fA9120
AOOO9101
47FOO03E
50'504010
58A05014
91207006
02011014
910EOO45
,.......\ .• L,
v
...-.I""'
........
58420014
91707012
&;81320004
200'l500C
02001004
41100FE2
4'5E004C2
429AOOOO
4110076A
41700822
48A(1)tC6
921f2004
50AOf)048
508048A9
')'''11)4061
18FA4180
OBOC47FO
0,)OR9680
20029202
91012000
50R'i7018
70064710
000441AA
OA4C0503
7015AOOC
600047BO
43AA3020
5"AOO048
OA7A47FO
000847FO
000841A7
001047FO
47F0080C
401AOOOO
OBOE020l
1j8F05060
t81R47FO
50100118
lR990100
50EQOlOO
001401)00
54A050BC
10045842
Ql110045
91807004
91040044
47700EFC
70064780
200(4770
47FOOD22
505092FF
01FA927F
47100090
00449610
4770087C
-"
c
~
l>
OJ
I
OOoJDAO
OOOI)CO
OOI)f)EO
OOOE 00
OOOE20
OOOE40
() 001= 60
OOOE80
OOO[AO
OOOFCO
OOOEEO
OOOJ:OO
00,)F20
000F40
OOOF 00
OOOF 80
OOOFAO
OOOFCO
OOOFf 0
001000
(011)70
001040
001060
001080
0010AO
001 OC 0
01')10EO
001100
001120
OOll'tO
001160
001180
OOllAO
0011C'"
0011EO
001200
001220
001240
001260
001280
0012AO
0012CO
OJ12EO
001300
001320
001340
001360
001 3 AO
OO13AO
on13CO
0011EO
001400
001420
001440
nl"\lt..J..(\
41BOO080
4'5FOOf14
91C47006
41COOE1,)
89901J0,)2
,)C9007FE
071F9106
f)OBC48A7
50AOO048
91020044
02012002
70064740
20004770
OFOA9102
OF66<:)640
41FOOf 7E
SOFA,)A21
10064 7J: 0
OC029248
0010,)8C'3
9f)OOAOf)O
01,)6()000
00()O2472
O,)OOOOOE
04001342
0100135f)
0000117A
OOOOOEFC
01009Ff')O
48110000
4'5EOOOCA
51EE41EO
50EO-;OEO
4 7F OODC F
2000FFFF
00000Fl~
126C1284
000900')0
80FOFI')C "3
14FOOOOO
01AOOO06
OOOOfJOOO
15140844
01830006
000')0000
lS2e 0008
11000501
OOOEOOOO
00FIFQF1
FFFFOI\EO
00000')00
0192000C
00')1010')
0801F670
110JOFFAO
478008'52
48EAOOOO
077E180E
47FOf)78'=?
lAA907FE
91207006
700607f3E
002E07FA
9C 006f){)0
47800Ff)O
701607Ff
')0389409
OQQQ9120
200f)071E
402CQ120
,RAO,01C
00044c)C 0
1)7849104
2004418')
0064<:)180
47705020
00000000
1)00047A8
00003FFF
JOOOOO06
200()0f)06
80002000
OOOOOEFC
60004190
45EOOD06
41FOC)1RC
'517A47FO
45FOOD06
OAJ:00AA6
l1E20000
I'5FOOOOO
129(0,)01)
04000004
1 OfJ0080 1
f)080FF88
09040100
00000000
03400000
09060100
00000000
00C80000
C50000no
')0000000
30002001
000000')0
00000001')
01090100
FFFF1424
20000004
~7810006
4SEC,)E14
'17FE4A17
98231004
47FOO!124
94AE7006
47800022
91040044
91807006
47400EBQ
92101016
45EOl)E88
7()06'H 20
20044780
9640402C
70124180
9601100~
060A4~67
700041FO
!)7<:)447FO
C004'58RC
41~0,)048
08000000
0OOOO4BO
FEAOOO44
Of)OO')OO()
07001"350
00000004
000011\28
07FA07FC
47fO';140
48105230
51AOD201
47F051BO
OF420AEO
1118FFFF
0000"'000
12CC12FC
00FOFOF9
152C4000
OOOEAOOO
00FIF8FO
0000"01')0
D3C103FO
OOFIF8F3
I)OOOOf)OO
E2E8E209
13001378
OOOO')()OO
14FOOf)04
"3f)OO0200
000000')0
00FIF9F2
FF~FOAEO
0002FFFE
090A()200
Q180'lOEA
002891(6
58420014
41FOOnQC
43c)700f)8
58A4000C
07AAQIA'1
47100EF4
41300~4E
92FF1017
41FOO010
2004418r)
OF3EQ,7E
4')130012
OfA45AFO
41r:00027
0·1045460
(,H)OC47AO
('Ff)A960 1
00')44110
50QOO048
00000001
Of)f)03A9'l
47100F?8
6()000001
6'10001'16
000005EF
O()Ol')OOf)O
41600200
47FOt)f)30
4,)EOODCA
51F6,lF2
41F10030
0<:)2E0F44
I1FAFFFF
0')000000
1 32C 1 ~94
If)000820
0080FF80
070300fJO
1 OC fl801) 1
0040FI=AO
FOF 10AOO
30008001
0040FF8F
C,)F20AOO
2 OflOOI')O 1
OO()OOOOO
0()C8,.,00O
00('1()0000
ooooonoo
30002001
0000000()
OBOOOOOO
0')F?F8Fl
471000C4
7OO6411E
41800E08
18EO,)7FF
58F951'14
4At\2001C
50EA414~
41A70016
9[)OO600f)
911')0044
41FOOCC6
00t)8943F
21')049244
f)2,)II002
'; 064 051= F
07FAOO14
508441QO
OC02QICf)
700641EO
51')1658RC
9CI')OAOOO
l'2CFF~F
000003A2
11000000
0~0010135
IFO"1005
OOOOOfFC
f)OOO4AF8
9F006000
4810')22C
41FOC; 1 ~C
41f)1')')lF2
07010004
~ACCf)Q6F
I1tEFFFF
00000000
13~C 1460
1-;2COOOO
00000000
40FOFOC5
00000000
018200('16
OOOOf)OOO
14FC40l5
019000"C
00010100
16001380
01000700
E606f)902
lAOOOOOO
00000000
1 '52C 0004
06000306
00000000
10COAOOI
AOOOAO'l2
')t)04121,1
9120'50EA
41 A051 06
'58AO'i01C
'50A4,)OOC
0OO4940F
'lOA050A,)
47ROOEB'1
47JOOEA4
9640~,)01
4')2C 91 "C
2f')()4418,)
CiZ3A41Ff)
47FOI')Ff~
,)8C~'lOOO
008C9120
407C471:0
00BC41f)7
OfJ')C48AQ
5000';044
0OOO04RI)
I')OOO02QC
60000006
60I')O,)OCl
6'lCOO,)OI
00f)01FFC
OBOCOA97
418001F8
45EOOOCA
020151EF
481051FI,
lOO05A~O
OE5Cl13A
I1F2FFFF
OOOonOOf)
149014CO
00AOFF88
On02()t)OO
10000808
OOOOOOOf)
OQ050100
00000000
()300000,)
01010100
FfFF1354
20000')04
0040FfAO
FOfll'JOO
10000005
00000000
00C80000
OlOOOOOO
')0000800
OOOOO()OO
Dt\GE 0005
47t)00000
48710002
45C00720
43905082
'506050~0
001447FO
05EF4811
91047006
47FOOCC2
012041EO
700645CO
92f)450AO
4JA050AO
910FOQ4,)
47100884
4180002.?
91201006
01FE9106
47FOOO22
402C418t)
Of5AQ130
OF3E9241
200441fO
OFR49102
20004110
41FOOfC6
47fOOf84
41500Af)0
lA5592AO
20004180
OFC691C6
,)Flf41FO
001041FO
002841FO
0~C25880
01FF 14A8
t)OO44180
(1310041)
8200')040
000011C4
00000268
onOO297C
000004C8
03000000
20000006
Of)OOOOOF
0800Q600
')~VHEEOA
C2010000
OOOOOEFC
OOOOOEFC
IB6641FO
01F84160
01FC41f)0
51f21810
41F0518C
487052ZE
51EA4810
51EA4100
41EOSIQO
47FO~IAO
C;OEf)07fE
48110000
800011C;O
4000118A
02000000
112C0100
00001254
121COOOO
FFFF12JO
00eOFF82
00010000
OOOCOOOO
00FOFOC4
10000802
0040fF80
152C4000
00000000
00000000
00FIF8F2
30008001
0040FF80
00000000
r)3C103FO
fOFI0800
OOFIF9FO
30002001
FffFOAEO
00000000
00000000
OOOOOfOO
0191000C
01080100
FFFF138C
00010100
00000000
0801F9A8
0040fFA8
01000100
FOF21001
C403C9C2
10000005
lAOO1448
01f9280E
40000500
00000000
00000000
BOf)00078
414EOO'14
478Cf)7F8
orn 4RO
.,0"
-
0014AO
0014(0
OO14fO
0'1150('
0011)20
001')40
001560
0011)80
0015AO
001'5CO
OOl')EC
001600
001620
001640
001660
OO16QO
0!11flAO
0016(0
0016~C
»
U1
I
'"
001 700
001720
001740
001760
001780
0017AI)
001 7C 0
ocn 7fO
O:'11AOO
001820
001840
001860
001880
0018AO
001 FiC 0
OO18EO
001900
001920
001940
01196f"1
001980
0019AO
00 19C 0
a 019E 0
OOlAOO
001420
001A40
OOlA60
001A80
001AAO
OOlACO
OOlAEO
OOlHOO
001 B2 0
001fl....40
')0000000
10008001
0020FFR0
FOFI0S00
FF009598
1')14132C
()000f)OOf)
FFOOOOOO
1')8(00')0
OOOOOO')()
FfOOOOOO
')0010000
004000(),)
00000000
O')OOO')~O
20000000
10114,)lC
~FOS(),)O()
'50204004
80FF61)l7
41FFO,)04
()17«~'5EO
A9000003
071C'5819
FFFFFFFF
92FOB,)Ff)
91COI008
477013 OC 4
1 F921 841
47EOBOA4
47F(lBOC4
185R583,)
fHI05861
8206411=0
R2044780
1621)177';
0l)R04140
~2084144
')8330000
1554478')
Rl1)6585l
B 1184iE(')
07F(I)000
00OOf)2()7
581)OFO';6
0OOO1A68
C089071E
o 104400C
0001FFlO
O()OOf)0f)4
00001A';8
5E09000Q
18B0888,)
1 AAA 5 DAf)
F09947FO
00000000
26004')2'>
1);>830006
000')0000
0OO09')BC
F F () 05 12 ()
l55000(,O
00000000
I=F000000
1 fiR '1'1000
00000000
')OO()OOO')
OOOOI)()OI)
00010')00
0002(1)()0
0000')000
I) 8F '5,)0,) (
"()()OO('l"1
f)71F7000
')A (,':\()OO:'1
"7F(f)507
101?078C
~707E08A
102,)1~11
0OOO16EA
471= ')R ,)3F
47108044
1 R9F,)837
lq821F2A
')086()t104
1 '>A 7471)1)
00001865
00001)866
0c)0447FO
R140'>824
41220')00
O1781FB4
00001883
12134710
91F85034
1)0041E25
03A25800
000')0')00
80100028
07F(,)4110
800COOOO
Q 14,)F 0313
OOOOlAAC
000:')')3100
f)000'52F 8
00000180
4 730F 02 6
00OlSCAI)
F09618CA
F056R800
00000000
03001000
090C0200
00000000
14FC1",FC
0000')144
FFOO,)OOO
1')740000
')noooooo
Ff"OOOOOO
1')040000
0t)t)Ot)OOO
0,)00C'OOa
0::>00')002
ol1nooooo
9801flOl4
51)F10014
')SAOSA.?"
701"'''58AO
O'5E01AFF
~0()(,1f)OA
91401013
1)070')011')
()78C47FO
05A01820
0')804140
129947AO
000047FO
U'l225833
47F080A4
AOC4187A
581\30004
00001'516
03A?5821
00049101
'iA7004R4
584100(')4
41624000
en A61 ~5S
0000')024
50230004
04B41RIC
05F058CO
f)21FC010
OOF241EO
58(0')010
071F.96QO
O()040022
00000010
6000509F.
O'5F05890
,)SOOF086
FI)8E'>OAO
8CCOOO04
10001800
00"00000
E2C3D9F3
O,)F2F8F3
000011000
FF0(91)98
15701284
00000000
FFO,)OOOO
159~OO:)0
0(),)OO'100
FFr)OO,)00
o:)qrq ')on
()')(,C'OI)()O
00000000
. f)O'1()OOO()
OAOAf)201
';O~500')8
4,)04S8Q0
?()')01)010
9AC Of .~q?
4770FOf)(
071C9AAB
E08f10AOA
F0444111
41COO8,)Q
0r"l201FB4
Bt14C9?OO
R0865AA3
OOO()lS16
lA19,)017
18561863
41423(),)0
4740Rl10
000(')')891
002147EO
58",70018
4'>6 OB 120
47FOBIA4
15784780
00045047
07FA06CO
89100008
04R491FO
01F(4S10
03A247FO
5areOOle
C0894110
41)001ARE
00005418
OI)t11FFR8
305A'5R09
4740F02A
F')92180R
4BIOF060
47FOF030
n070FF81
(3C8,)8'1O
"'00080')1
1'5r)813F(
nOO09'l8C
FFOlf408
1 ') 5C "0 f)"
00000000
FFf)O"O,)O
15RCO,)00
0000000"
OOOI1f)OOO
o()nOOOOI)
0000000')
042110')00
101C'>01C
98015070
51)1C1222
2()O,)94F 0
18~f)4114
lRR~4'3~1
lOf)05("1AI3
05fa9~9r
0001F500
1~Q04,)f>()
Q2"rR087
130 114 7F 0
(lI)04419A
41(iI)BOA2
OOC'OIA')~
,)83300no
189347Fn
122747'10
(')f"I08A9QO
~H ')01299
413300"0
,)R44')0f)1)
58510004
Rlf)Z1567
000OO7FA
()6C 006C 0
43100023
025F4770
tJ02~41EtJ
F02C41EO
9108C080
F,)90131l
00000000
0OOlF3A4
00(01)282
00005E09
'5Ef)0J:f)8A
AAIOOOOI
12B84780
C61??13B
f)2874006
(H)OOO000
14FC0844
FFOIJ8B48
14F 01 ~2C
lOf)lF4'>C
FF ",)00 0 I')
1,)800()I')O
0"00'H)()O
FFOOO000
FF~F000,)
')OOOO()()t)
01100000
')0')1 COOr)
00404000
501'5!)OIC
"All V) 10f)
4770F,02')
9014D600
0024'5811
,)()1487BO
OOOO')OBA
EnlF1RFF
FF1)4,)009
131401241
920080EI)
~05092J:'1
52 A
58610004
41A081tC
12334760
807A470"
Ql)5047FI)
,)00A41Cf)
4740R20C
cP~E 30n04
41"OR.IIC
lE531554
4730R201\
5038000')
06CO,)870
89100()OC
F048QlFO
044Al80C
029C4111
4780 F 016
07FA<)?60
00004(00
ooooonOl
50002002
000458AO
~O()r:H
1~114760
47S0F010
F07C4910
39EIJOEf.'l
tlA(;E 0006
00F2f8F?
f)OOOOOOO
03C103fO
153813fC
00002Q80
FFOOOOOO
1S680000
00000000
FFOOOOOO
1St-80000
~FOf)noOO
00000000
1)(,)0,)0000
"0000000
01000000
01)"00010
00000000
25000000
40000300
00000220
f)2091008
60300600
1004n040
00000020
92()C'5009
4120S060
Q0141000
181A18FF
00001211
4770EOIC
f03842Ql
00141288
00("141000
4AOI0010
91F09012
90AAOOZf)
40002fOO
0·00003A2
C}ZF08087
47A"FH 8A
58411)01')0
45608120
A0731R88
18771222
47?080BA
47008084
50960000
91(01008
18FF47FO
B1021886
B064128~
47AOBOEC
A20691CO
100847EO
130089120
100847EO
1')084740
080B91CO
119(4150
00071A25
1 (l08 58fO
07F658Eo
41')00007
14544770
18871813
47C081C2
4180131FA
1222018A
5E270004
187841FO
04B4Ql A0
101041'50
58C(0034
58COOOI0
03474770
FO'3C58BC
891000,)(
5610FO'5A
OOF147fO
F02COOOO
94F7C080
07FE9180
C9C5(5C 1
~305E7E7
00000001
00OO4BBC
1000A3AA
0OO04AIA
OA220A03
00000000
0050AAAO
OOOIIFOA
303807FE
F036S810
920Af099
41100020
F056910C
F09A47BO
I)003004f"1
024AE062
I')c}OR(,20t)
00000000
012AOOOO
00008P6C
FFOIF44C
1')440000
00000000
FI="OOOO,)O
1,)"400f)0
f)OOOOOI"'O
O()~
;)()I.O
'\
Q
...,
-t
001R!\()
0,)13(,)
011RCJ
001(J['
0'HCZn
O,)lC 4(
O()lC6C
aOlCR"
,)01CA('
001Cr')
001CFO
001fJon
001)20
(),,'l;) 40
')81060
001')80
0011AO
':)O)()()I')')A
'1() 18 ()f)() 0
(OlF47RO
It 770F 06A
0024820?
9Z{)ORt)lC
F02A5qf10
')()leOOlO
,)O?,)F 09R
f)201Df)()r.
0OOO1COR
I=lD61366
O')aOl~~g
13AA'5FA()
o OOR qA 80
07A?58,),)
F03C1861
F0780201
1~n"5'5C)O
FIU-IR~1
0Ol0'jRl'l
411 'l10hl')
100~F 126
411100hf)
lr=A6,)1=60
5R8sn,)()4
Flq21~77
47~!)FOf)4
~0181R71
5r 6 '"IF 1 8~
onC)OR~Oa
,)5f)09P~(,\
»
001 F 00
0811: 20
C'01E4,)
OJ1':60
OOlfao
0()lFA0
1:1CF40GC
')F40006?
511'lf'')l)q
)o')r47F0
1400()0,)n
OOOC'lFlr)
·F '1)A 5W~0
121147RO
05':09111)
20'1 n 4Ff)5
lJl
0Ol~CO
47f)n~046
I
OOlEfO
00 IF 00
f"IOIF20
001F40
001F6r
011': 80
001 F AO
001FCO
OOlFFf"J
002000
002020
002040
002060
00?080
Of')20AO
0020CO
Q020FO
'')02100
002120
002140
002160
0021 Be
0021AO
0021CO
))21EO
002200
002220
aO')I)AhOI)
lC)I)A4140
g180?00J
Foooglin
It 7 A(' F 0 F 2
41000000
5 50()2 064
AOOr.4 7C F
00Sll15 F F
05F01200
42210000
OAI)Qf)A08
1300297A
')0') 6( 801)
E81)017RR
1E85000,)
09C06001
02419909
OAC15CFQ
i) 2 015010
110fJOAOA
')OhOlf)'1C
07F ?4RAO
06R81806
90!)flOOO
') 8605 OOC
5Acn0244
w
0~1?19!=7
30'5Q,)~'1n
lA2~47F')
F11Ar1?()3
OOUlFI)
1~7FIROO
504100,)(
C)01h,),)04
f)OlF,)2Q4
OO()11f11
CC:FFC:FFF
45?rJFIZtJ.
I)OI~rr
qI')14f)?,)2
0Anon()oo
5FA1,),),)C
F0420162
F19Aq8h7
92()()f)02?
120?10Ol
1311')'3')0
J0')O'5"hO
9C)':FQa0(
10,7747FO
F0 7 (;)?"3
11")0CF122
1",)C':)7A2
41,>on06l\
g47F10()f)
llq4q84F
O()00lf)FO
")S':O')RA4
nZ03'J~A
F04Cq2A'3
1)')2)47(0
806,)5C(9
c)AI0FI5E
')0011300
F1")1361Ff)A
471')F()C"l
200()47C"l
l\OOOIRl!\
~()121A21
1=1621EIO
t;COOFl1)6
';F 09,'0 nn
IFID4711)
qnF55nhO
F"f)ng14')
411tl!=O~E
'l6~6Joon
1?Of)47Rn
4140F 112
!),)OO411c)
C612213P07Af92FF
F132')Of)?
11101RA':
AO 60 f) 703
00057F40
00205ABO
IB66C)OAR
OFIOIAlq
15160?20
Of')()02469
16A90016
')lC4')FRl
C>41150R2
OlO21f1f
0(Clf1401
',)()07C;QAC'
cn4AC)QFo
<1?(0100"
lEAA5F.A0
9AnOO()01
15F847RO
()t)OOODOC
04')0940F
96R'11f)0~
OCOOOE17
2B2CO?14
20"3800?()
0OlACAOO
OB41,)A61
()6414AF9
01OllRA6
()6AOAOO7
(\()20'+180
12FF47A(I
40~(HO')R
125CIFAA
qS!:J9C Of) R
,)OQOl,),)(
O')E6nt\1)3
1)2'3F4010
rt
F no I\on
OF"l107F
C)Rf1(OOIR
9POI04()t)
pnl,)FI)QR
()f)OOOO()()
47 ."or rpo
41F')F04A
1 ,'1()45 06 7
]';F047F"l
f"1)2641no
'lh21(Olf1
1'"1f..5n?J~
')\)04(')')1=,)
') ''1') ()C)I) 7"
47'~n~OC4
F0nAI':74
FIIA50~A
47F'')Ff)fO
5R41f)I"''lr
C)g')S"':',)4
07~?12,)C)
'11") I")l')n I") 0
11q4A84F
C'tl7RI2A,\
"")"1131)')
5R;?()F1CF
lo,qQlfql
41?20()O2
5')'10 c 15h
5 Fnq() 1')1")4
(I
~C'i1EIFIA
1R~')lAl?
21)f")R4710
47FOFO':A
OOlC58AO
OA0A1~FA
A1)6 nA06e
0n'" 0 1 7 TO
F(1?FQ140
nf"):,)007FE
111A1RIC
()2~FO?f)O
O~2?20f')0
Af)0()OF9A
C2 () (lC 1 71
04RI)5261
()RC24?Al
()980Ff"n7
~?4R14P.A
40189602
9?A21()f)B
COO4')R61")
41~1)07FF
000011\5A
,)0000FFf
18665061
4 7F()F 01C
0004'5076
UH647FO
1()OCI01C
91ROCOln
91 F 01)'341
01FF58RC
00')00000
l1')nf)07fP
I')OOCQA45
()OI)OlOFO
()008'5A71
F0784740
5071006C
lAC041CC
477()F01F
4180F06C
,)()OO!)20f)
,)0004Cf)0
'58" 00 "'5 I)
1'104'504'5
()'5F0586n
0(1)09106
F"9C91,10
501100f)R
18179n~1
10f)O,)~10
FlqA,)~11
F 1 A1:4 7F ()
'iR7R)Of)C
50 7 f)FIQ7
4F60F116
Clnnnf)()()0
1864,850
')C)4501')0C
4740f)OlA
ooonl")()10
4')00')000
4160FOIO
')F0900()0
5AFOF1'12
FOO09101
It=74507A
113715010
41660()01
()OOO()OO()
f)(),)08A'50
412000.26
'5E40fH'l6?
00001EOO
000OlF18
1130047t=0
11005EI)~
If')OO471r)
onOC47Fn
F181:1SQ2
4F6()Fll'>
'184884F
OOOllF45
5865f)OO8
50400062
OOOOlnF4
0OO01E"lO
F04CqlA3
0(1)(4130
05='21~1:)
07FE20~1)
41~OOOO4
41BOOOIO
5AII0000
51')2041AO
c)AAOFI6?
4140F()QA
58FOF17A
2000r)40()
Q6802000
8~9~F01A
9~)()0f)76B
9SAf)FOAA
47F()F066
f)'5F09U~1)
47FOFn16
IF119140
'lE09()on8
'551nF16?
58?or176
FIC)49?4')
9h882000
501C0201
'50107064
41000001
0')1')00064
1000017F
Ooon04RI)
1r)IE001F
002F02('O
11AA0019
003~6900
OA016001
0400')t=C 1
ORC34AIQ
064101Q9
l1AA41RO
4010r;~10
023FI02'J
A0004?60
14BD17f)p,
0586000f
CORCIRAI)
OOO()?OC4
0OOO2~5f,
0347050?
(,()2500b!)
90Af)FO~A
2010~010
18121AA2
()AOI07FE
00"000f)1
Q601501C
OOf)OOOOO
20212223
00000730
Of)OO24A9
3QCFOO3A
090aE007
02COOCC 7
IJBC45136
f')onoOOOo
J:\00~111R
FOO44110
4030'5(51)
024R4ADO
QRI1t:'OOO"3
Q610S00A
0()2D0100
4 710C 118
41AOFO')O
F08E5AQO
41COF07E
5810F162
05??9SF5
2()OOr;020
S012000C
Q61020nf)
58203068
1?9F031B
00001C36
43210000
07FF0103
242')2600
02003100
0024A900
4900".\9E7
03C15EEt
0301,)8C1
rt!3C14491
41AOC 06A
lEI11Ell
10201BOO
101C5010
00274'520
40BOI018
98015020
F1FOF5Cl
C)8E04004
~qf)fJ"f
1 tH)
121')COI0
f)l03000C
nOll)f301C
OaOO01AO
AA600001
00045054
n0501266
1 ('IfV)41CO
10n041AO
1~17c)071
000C1867
FOF05840
~OAAS870
q68010(,O
96rFFII0
r:bl?213~
41400048
90'\61004
tF66~060
Of)OOOOOO
(612213B
~OOO4110
J:OlnlBOO
<}240EOOI
F211C;060
5QIOF1,)E
'305SC;800
41FOF084
')8240018
,\06047FO
q 103C;0 20
'5 Af'll:i0020
41000048
052?QI06
OOQ8Q680
00001C12
')0'510000
04050601
21280212
00000032
24A90016
OOlE?ROO
09R16001
0640E001
01415~Ol
4120(OCO
~lnl10t)0
5000FOOO
40001851
COO845FO
4f')~0101A
980t=5054
00002010
Q200EQOO
0(12240
002260
'"U
-
Q
...,
»
---
01
I
~
0022~O
0022AO
0022CO
0022FI1
002300
002320
002340
9802EOOS3
C1549510
12B84170
50004000
5028481)')
50f)')n024
4001\4110
CIJAD203
91EOI\f)OA
F05~9(l01
F04A41FO
05813()!)OE
100458'iO
5 OF')On 24
5 8 8 "I AI) 18
1)81011)04
'112Alg11
0000159"1
1')001)0694
f)"",)J6'56
') 00') If. 16
000011E7
OOOOOOO('l
918('l'WOO
')f') ot')·:),)on
201,)1)200
744E9141)
501AI)207
418010RB
0203501)4
20109180
00088900
00080A09
hOOB4110
1151Q502
002458QC
"1(1 ,)C 1)202
1)')081)501
000,)C;844
71FA920()
7'i330?00
98015000
71AA5016
1\00'10203
12FJ:4770
'i8~OCOD8
~') 189823
58F O~ On(
00?3~O
47~"C2r;4
002380
1)023hO
')02"3CO
0')23[0
0024()0
0'12420
002440
0l)J460
002480
0024h0
0024C I)
0024E 0
012'51)0
002520
002'540
002C;60
002580
002'5AO
0025CO
0025FO
002 f>00
a02620
012640
00601201
55708016
l)f)nf"2940
00001206
,)OOOC)FFE
010nlf)84
00t')0044Q
c)1'HP3 AI)
411('1F032
1139901 c F
OO~6~O
0026AO
0026AO
0026C 0
002 6E 0
O('l27f)O
002720
002140
002160
002780
0021AO
0021cn
0021EO
007.800
002820
002840
002 R60
002ijRO
002'3AO
OO? qCO
002 8E 0
002900
~211'5,)lR
AOOA41l0
02JOAJ14
9L80500R
4 7C 010130
~21')7'501f)
711)448"2
71044l('lB
144f9141
11 72Q7,)4
72Q441C4
OOO142QA
aOO441AR
OJI05841
1l':28199
120C4161)
137QQ724C
6020Rn00
1)2016f)IC
011C 1 ~ Ef
1)01091f"Q
8800f)')1)1
748004,)h
50C6001,)
601C9L02
73AB41FO
131991'36')
f)200AOO3
')aOf)4136
59'507484
AOOD6015
60324110
nl)321816
111805EF
·')101411'=
A008~9f)0
~032471()
Q9f'OOOO3
lAAI011F
92FF601()
60284180
7392Q700
41B1)113~
6"27D703
,,04058 F ')
478,)13(8
91C,)6132
744A41Ff)
'580074R(
f)"0141FE
1)106Rql~
9830403C
C 14ECJ4EF
40680014
4710C118
0003UHA
044805"J
980F5020
024C5880
41 FOCOCf=
5~101300~
4710C708
07FAOOOO
I)O()O~OOO
ol')oonol)o
nIVHn1F!:
')OOOI'5E?
00 1)(\ ~41:'A
0'5FOI8M'
4780F('I2A
1S3161863
,)')IA2014
40('lB417('1
AO 1 f'C;')l 0
968(41)08
30'544580
70084180
"0034112
41F010FO
71()C41FO
3055501')5
300(l90QC
5f)21A')Of)
I\OOOCOOO
0,1041 AEE
1 O"lqo A04
6:JOO026B
q19q122A
00001200
601814AC
741EA19q
724641CO
lAOCIAf)O
Aooot\oon
4AOO 12 94
1~281)202
6(211)7.nJ
50'360(11)
AOIR6035
14801)5fF
8RQOl)0 rq
418073E8
742f"QllO
"AO 44180
010C4LFE
Or)O(')t,10
82000020
400458BO
94BFAOOB
18A55804
40184100
15044170
960lAOO~
91~2A008
n404911'l0
C()I)COOOO
OA,,))910C
(01)0186A
581)0AOOO
'50104018
D23F4030
0001FFFF
1)0Or)10FO
0004471f)
4780C19F
AOt:'8 41~ ()
058R 1 8C4
91010021
95()C40()9
AO?041F 0
OA21301Ff
00007396
0066179F
OOf)CIR~8
0')f)0291C
000C'36?(
ooonoo')()
lRBI47F(l
'580AOOOO
'5A7'5C'0IC
41R01rl92
10304183
414f\')00n
947F5019
11(""00('18
1 ('I ( A96BO
OO')OOAOA
4580118C
000()1f)~9
0OOO14~0
1)0002412
F(12471)~
9400rH)lC
lRfE9'i07
4'5R1)118C
0051"1'50RC;
'50A'51)01C
9801'5020
9600AOOA
'50"~94JF
(H 1 ,,)200A
41F07112
704~II)FO
54'l014~O
417,)114C
AOOO'500\8
97."0'5021")
92101151
0(041)0lC
41F070Q8
00n041f= "
1)0004A99
01ij9C;813~
18A3489a
928010')9
92F007t,S
9R')1'50~0
41f\01J5F
4106001A
1354911)2
I)f) 7'H Af)D
1 AOBIRAA
4 9( 1)12C)ij
060088')0
A,)014329
602AAOOO
02()26001
C)'l5014Q4
Q82A61nc
41F')13Q4
W>l OA.,)18
61')324180
742E4101)
010041EF
14~OI9"3
'5~6a14AR
47F01210
1 A~OO221
41F07287
902A611)C
001C91CO
ROOS922,)
C 1689640
4180C196
CIB218F4
9201024Q
C2285810
58C00244
4170C224
47C(\(:244
Cl'541299
O()OOOI)OO
00OO19?C
nnOO4918
O"lOO':\6CQ
000010'50
')0000000
FI)044190
'50AROaO'l
"21)134170
4 7FO 10 36
aO'58964()
f)202401'5
'58F500'5C
47F0706C
20('1 84 liP
41807104
4'58,)11C6
160F90"1
45~071C6
00004144
58C50000
71 C)40'5 10
7496899')
12FF819Q
92('10600C
601CF\00t')
80001148
5~830n5C
603~4180
1442'5R~6
91206032
5810748'"
411077FO
01')03 q 7q9
91016028
4180128C
A19(121)A
96F0400A
13100600
41801116
744AI)203
7368'H99
D209~032
10'55AOI"IO
5AB0141C
lREE12FF
9610l\(lOA
91FF600C
14164116
74881811
010041EE
4780147A
D101~OO,)
47101454
'58B0741C
41807402
01)001)201
Ol088799
010041EE
91FF600C
PAGE 0008
CI064110
')8808020
0"100400
02334038
f)211f030
COOE18AO
10005010
4180C254
?2000()~()
81000010
4060508_
0203F\OaO
4110QOO4
58900484
000004C8
00000480
000011fA
00OO38EO
(1)004C('O
00004C18
00004C40
00004C50
00003208
00004COl)
OOOlffFF
nf)00018~
1"I0081BFQ
Q1408000
'9640~OOO
941F8000
50nOfOOO
11260201
458011C6
000291EO
AOOR02,)1
40105018
505CA014
40000203
0~0318A2
9100200A
91C02nOA
47101456
OOOOQ120
200A4710
12884180
'581380018
000691EO
400A4110
50004580
718C41fO
400448AO
001('19620
000843F\4
000C4188
58840024
12B84188
41800180
181"5830
748(8799
nOln4110
11F64110
14464780
41B6001C
50860008
81991214
0203A004
8199131E
C;8130054
411)60040
05f:8981A
003488BO
000841CO
43060011
41000003
41400008
14045600
14C450C6
00041ACO
0201AOOO
400AOOO8
J(,098000
02026001
418018C8
603'54018
1391020J
AOO0602A
130009024
610C4116
819Q7306
AOO01381
0201BOOf)
40000202
1)200026'3
60009130
A0044140
1\0120409
40101Rl1
4140C184
9a09F030
1851)4520
A01A4A70
18461211
600E154~
04~f)9120
80025814
001841FO
010141EE
Fl2000268
OOFE41~E
4780141l
-0
0
~
»
01
I
01
002920
01).?94"
002<)60
002980
001940
002 9C 0
0,)29EO
002AOO
002A20
002440
,)02A 60
002AAO
C02AAO
002ACO
0024EO
60000AOl)
00002214
4f)FF061F
40FF6R3F
fC)o6E ')09
C9C'5E6E2
01)0000')')
')101')0000
00('H)8000
0OO9f)258
01000000
oooooaoo
')OOtFO~O
0000297C
F 1 F9C 3r: 6
00000000
6001)00(')'5
3100?A7F
0601Foqn
onoo')ooo
7F002f1.'5g
f)0002~4R
000')1)100
I)FOOOI0R
(1)0(')"')00
O(,)OI F OAI)
400001)80
OSOO')400
')OOOOf)O')
0000000')
LINES 002BC'I)-002RAO <;AMF AC; ABOVE
00000(1)0
10000000
002BAO
001')')0180
')OOO?"QA
002'3CC
';8AI0014
4871",)0?
002"EO
4R41)F 14R
5Q41\"('\')R
002C 00
9tr)ZAOOC
41A'JF"F?
002C 20
2')OAQ10A
70114710
002C 40
!,,)OB62FRO
021(0742
002C~0
911f)A00R
4710F136
002C 80
47F()FnOA
5~0~0014
002CAO
'5 8F 81044
OA031A9F
002CCO
Q61000lC
47FOFOCC
0,)2CEO
4 710F 12C
9110A008
002DOO
f)02C')1FF
OOFO,) Af 8
Ot)2D20
9604A008
002'14n
9601A008
')70907FF
A008411)0
0t)21) 60
4550(')061
021'50171
002080
47trK036
5844001C
0020AO
455f)1)060
4550C346
OOlDCO
92f 01) 1 70
45'500060
0020EO
<)10280')1)
4110C 112
002EOO
58220000
C13E1832
00 2F 20
I)A3AOOOO
017()IA23
002E40
I)A8ROOO4
18931'39R
002F 60
IBR841)'5f)
0021:: 80
'.550C 162
410001FO
18150AOA
002EAO
0004'589A
C1145A8~
002 F ce
a14RU~I)~
1)1030148
002J:EO
5040C3AI:
1)14AIB44
002FOO
07F'5 887 e
'585f)01~4
01)2F20
0~104070
4R7n0144
002F4C
4720C28C
002F60
'> 14412 77
014C 9240
014C412fl
002F80
n 1 7t: 2(01)
C3H6F31,4
002FAO
'iA70nl':\C
'i071)01lC
002FCO
'in (1)014C
412f)014C
002FEO
0005'5A(1)
')14A8960
003000
C2RC'.54Q
0031)?0
12884170
487f)014A
47FOC~8C
003040
C2F441)'50
CH4A47FO
aO'3060
')800~4?()
OO(HF340
7CFF2C7F
00002974
OFOO?940
12000000
04nov:;C)0
FFnOOOOI
OR 000000
00'100000
9 F f'102A87
f')C ')0 ClO 00
40002A7n
001')0~91(
OFOOOI0~
OOOo~a()o
000000')0
000f)02f'0
oonlOO24
00000000
COOO132C
()OOOOf'OO
00001)001)
1)00U:!)Bf)
00000000
6I)n000,,'5
2000010(')
')0000000
o,)n()t)OOO
0OO031F8
75RF167F
O,)OOAOOO
0000f)000
00002980
f)FOO~97C
000O:?9FC
00000011)
~00nOO0~
0001EE9~
0700e 35f)
12000()00
040Q1550
000000f'0
C:00013:7C
FFOIFO~O
0000t:B1A
OA001440
(61)0nOf)"l
~0f)032FO
O"OO(V)') 1
4000?~4(
000031F~
JOO300A(,)
(')00 ("l() 000
00000000
00"OOO()0
00000000
(')nOOOOOI)
')f)OOOO01
0"00000')
1)01)00000
0"OIF1AO
5SROf)010
q 140 ~OOO
5A2A"l1)70
F07291CC
951Fh004
4 7 10F136
Q620f)02C
rC;CF1AOA
,)80AOO14
OAOFI")A03
00000000
OO()029EO
9624AOO::l
4 7ROF(H~
0(1)1')')000
1)')000000
000024~R
~,)002I)F8
91CO~OOO
4710F13A
96'H ~OOI)
FI4AI4?D
I)~f B0044
927FA004
91)7EA004
000AI)04A
940FAf)Of)
0()()A~OOA
410000FD
00080001
C3(94550
4144f)020
0207fl176
910A~O()O
5A~'31)0<'0
411=0COA4
19734780
47FOCOC8
01189R51
18100AO~
00081R98
54'iOC3R2
40401)146
()OO21A97
01444A70
41FOCIA4
01710276
OCO'5017C
07F4f)204
F364fH 84
013C5A50
CIFA47FI')
1?774780
C~0~4,)C;O
1~01)4,:\f)7
AO')241,),)
4770F1lF
9610AI)I)R
124447C,)
1 ~0g 11 1) f
943F002C
410000FF
9A10Aoon
5RF8002C
OOQI\OOOf1
00605A43
020l\017ft
C3F64190
471 C'C OAf
12314180
588AI)004
rOFA'5Q?3
18Q7'5A8A
Oll)'H255
tAFROA03
4C:;C;OC 167
1 Q'5A4 780
40500144
4'5I)OC30F
01481271
'5~~OOI3C
n177fl171
(,2~8020n
01 77C V\6
700nnCOC:;
013C5R50
CIA44870
C7F44'540
(lO(O)04QAO
5041l"n18
1')0094CDO
~1361B9F
94~F\000
OAOFOA03
~1)~44144
19?ClF16
9404AOOO
58E800?(
9200AOt)~
1)7~E9601
PAGE 0009
208045ff
47701456
00000000
00000052
00000000
00090064
C9C1C1fO
00ff)0018
AOOOOO08
02000000
00000000
00002qfC
~FOO,)OO(,)
00040000
00000000
00000000
00000000
f)nonooO"
I')OO029'l0
80000000
00000000
00000017
0')000000
00000016
00000000
f)006000'1
<)E0024Q7
1FOOOOOO
00000000
00000000
')0000000
7FOOOOOO
9110AOl1')
9101AOOl)
0600200R
O'5(Fn('sc
47F(')Fl'E
4170~11C
I)018927F
OAOFOAf)3
41fOF 120
A0089604
0001f4Q8
0001FOAO
4710f038
4710F136
A002Q470
038A010A
Ql0AAOO(
94FfAOOO
AOOltOAOf
'580AOO14
940FAOOO
40084100
OAOfOA03
950C~0"0
4770Fl'5C
q2~7A018
07FFOOO8
,)5C0924t)
OOf'04113
C311F41Q,)
~OO1000oS
00009244
4004960~
r)I7"1~32
5~Bf)013C
0,)18583~
f)')001843
00004160
01841816
4550C162
9239005(
91028000
01841876
41)50C346
92fOO170
19234120
C16292fO
(00(1882
00081898
00181607
001041FO
I)OCJOO140
01404AI)0
4170C184
4'5500060
C2024870
013CI)080
02030111
AQ700005
92600183
(2424860
48800144
40800144
18A84080
41900008
000841~n
,)00Q41RO
000041611
588800l'l4
C150'5823
19A3412"
000047AO
00045QR4
f)(\001222
COf')018Q3
COECI)833
00(\A471\"
CH\Q80(')~Q
47AOC1~2
1~71)4100
lAA81)A9A
47FOC112
C1881A78
171)'54710
4'51)000"0
4180C 1 FC
4R90014A
4A70014A
0182C388
F3640110
o 184C 2AS
C3AE051F
014A4117
CIFA4A80
1)14406AO
000A4550
50'500164
1875401f)
CIC64~1!)
1 AF
188840Af)
06QOA9QO
06101211
45500')60
7000n(05
0200018A
50006000
00014010
01441288
40AOO144
41~')C:
41ROCOR~
1~9845C;0
000041Ft)
Cl1?58Q&
0OO08Qf)0
C1674180
I)OROO13C
01481)8'i0
01461271
45'50C31)A
0148471=n
0(051)A90
4170(258
4870014A
017nC2AA
C38847FO
4770(2')2
01440680
4780(IA4
47~0(IEC
~
0
-s
»
<..rJ
I
()..
001080
S86001JC
48600148
0030AO
C2A80205
o 177014C
0030CO
r;81AOO08
'iAI0C3AA
0030EO
41440004
41A80001
003100
Cl'jCOOO~
16213~46
003120
fffFFFEO
00000020
003140
05E31)9F8
CIE340Cr;
003160
991Al~00
20105000
003180
OOOOO("JOO
~1000180
003140
OOO()OOOO
00000000
LINE 0031CO SM4E AS ABOVE
OOOOOO()O
0031 E 0
')0000000
003200
41F040H'
41000001
003220
r;021001C
9204101C
300~r)204
003240
30005030
929F 102 ~
02073("J18
003260
17.004780
0032AO
58008004
4780401')1.
98019010
0032AO
1~114319
00158910
0032CO
~H)OI)OO 1 ~
9801900C
0032EO
(1)1100
4 7F 04104
50701020
47804178
910t<~f)16
003320
003140
92063030
020?3015
01)3160
41«;39140
30384710
~4019120
3038071C
001380
47104297
9107109a
003'AO
3024Q2FF
109a5'H~
0033CO
D2023021:)
'l20631)20
C033EO
4Al,)309E
41100010
003400
41104144
91011098
003420
920A3()10
50603010
003440
r)2003'l5C
30649~9F
003460
00105·1J8A
la725880
00341J0
44003n91=
30A81aOl
0034AO
307094,)F
IBAA«;040
0034CO
418042F2
9102100a
0034EO
9101Rn')O
478~4214
003500
47a0432E
91209016
003520
431(5 A19
001CIA71
003540
lRCC41C1
00003'592
003560
7031COl')4
30201)205
0035ao
002')0" 01
08060000
0035AO
r0349ZF 1
C03A4130
0035CO
')0000000
800092Fl
003r;EO
lOOO112C
00O("JI0F0
003600
I")OOO')OO{)
ooooooon
003620
000010FO
I)FOO367C
00~640
OOOI)OOOJ
ooooooon
003660
13110203
47AOC058
003680
f3000D174
181R0203
1)036AO
C ()4 A1 A') 2
OA0341EO
0036C C
002R12BB
00045892
0036fO
lA81')11\~O
lE201-\4f)
003100
417cooa4
9868DOOO
00372()
430(1)166
OO()OlBOO
003740
50600154
48800148
194147AO
18674690
51r;(fOfl
03C9r)5C5
40F30640
000095AO
00000000
0010')000
41600184
88800002
C182f384
C3465040
f2f3F4f5
F240F2Cl
C lC 2C505
FOFIF97F
00000000
OOOOO("JOO
18765841)
lR'l81288
014(4000
1)11C07FC;
F6f7F8F'l
04C 54 ')C 1
C4r:>9C'iC 1
I)OOlFE4("J
OOOO("JOOO
('H)f)ooono
00000000
18r)QI")54()
41101038
30044388
30281810
41104308
0000('00')
96033("J1C
50103040
D20F3078
46104070
00071a51
430900')B
3,)1645CO
4«;C04Z1E
AAI0000R
0000000"
503C'104C
1)70130«;8
~OOOOOI0
'If)024010
4'ln9')00B
5~190020
Q71)03024
419A41CO
4176181f)
41FOOOOF
Ql01 V19a
30404117
3(,)A59203
4A10309C
91043f)9a
17FC909F
3() 7CO 7FC
1)0181899
41110~f)4
10C04341
19C741FO
471042AO
fnn17000
«;1) 750014
003041CC
41FfOO08
OOl")r0noo
80004030
00000000
""000001
00000000
0000132C
1)5cn13000
0168C234
18015aFO
05FOIB22
4720F02A
QOf)RI")II')A
4AOCOOOO
5~310R02C
92FF~09R
41820206
4610416f.
07FE91FF
471041AA
10001821
301041FO
1912078C
47104310
31)7(581«;
onn0392(
054A47'J0
91FOI00n
00008840
42f414C7
47F0479(
«;0009110
07FEOOOO
000 142e 1
020"2020
oonOOI)f)n
21140211
COOOOOOO
oooooooc
OO()C)OO')()
00000067
ClfB1820
0207016C
805445EF
50?n0164
58BOFt!:2
113004120
4780FIC4
412001«;C
4380020~
587c;n01f')
41:)C("J421F
45Cf)423F
423045C')
41B0307"
lA175010
47F0413f
30r;1)'lf)65
91 FF5 onc
30984710
41FO()OOI")
4«;C ("l4 26 4
413E4atO
41110Q"0
41B01028
()nOO«;all
18A1)464,)
428C41 F O
417042~C
00024
}J~O
5nCO~070
020("JROI)f)
901647~0
"0001564
00300500
103001F F
C14f92FO
8002R()(H
()000f)0')0
00090078
00000000
00050067
183141')0
200041f)O
00041BFF
12814120
'l2010167
01384150
182C9200
1830QO~F
013CF 3,..3
47A!)C~4F
OC07014C
OZ03014C
CIC2C1C4
E240CIC7
40f060F7
I'}("J004CO,)
("JOOOOOOO
ononoooo
100f)')n()O
'i(\70105~
30584110
11")14"'004
41110000
45C04230
411~ono~
414Z«;(' 7A
45(04234
3020920b
924n~024
920nlO1~
47104156
431045CO
')1Ff9104
44203')46
30441211
50101034
45C04234
(')02(4120
427091FF
000Ef)7Ff
«;8210nOO
30711RRA
44A0430A
20000200
432E9640
t)(1()nl«;92
1011)7030
6000000«;
AOO04830
00050500
01000001')
00n50400
')0000000
00090005
fH184510
1)16845EO
182F4100
F02A920?
18(0906B
01oRIAa8
200E4A2C
000041FO
1)14(015r;
lR224328
C2A80207
40004}40
cr;C65040
1)6E5C5r)Q
09C5C 740
000200')')
O()O ("JO("J I) 0
':lOonooOo
0C;401851
5817f)02C
lO«;F'5('lf)
4111")3067
41F04091)
47F0412 ~
50103030
0()OOO7.00
91409('17
V)20r)2n 1
41103098
4110101C
41103038
41Ebf)21")3
3')q847~"
45C04264
018C4170
45C0423(,)
47F0413F
30645~FI)
9010078C
9a7A307C
412120no
44404304
la814111
20n()~0f)0
70009120
OOOO15'l?
07CES9CO
08<)£=0000
2114483f)
C8324580
00000000
00030('11
OOOOOODO
00003628
C 0100A04
C05E12FF
017A}810
r) 16 71) 8 ? ')
nOO0980~
90080138
00024600
F26205EF
PAGE 0010
OCO'jOI4C
C3901A62
61)00014C
014C47fO
00000004
CI)C7fZ40
F860flF'j
00000000
00000000
00000000
98795000
41204344
~OO09231
50103028
58180000
91209016
92063030
AO 079008
478040FC
30269018
r;0103030
OA0080FF
41000001
~03443q9
418A9200
«;0103020
01001821
47F0413E
41803030
47600C;fF
901A307C
07FC4110
45(04264
'59C03010
00041910
If3FF060E
90114710
0000358C
/')00441CC
00.00000
Cl'l~4720
00t)035f4
OF003'j80
OFOOOOOO
00000000
()OOOOOOO
18011213
4720EOIA
OAOA18F2
FI0E5822
FIE61EOO
9202013C
F06A488C
98AF3000
0030
-0
Q
..,
')03780
0037AO
003 7C 0
0017f=O
001~OO
003820
003~4()
O()1R&O
0r-nR80
nr3~1\0
003 ~C 0
O,)3BEO
0039()~
O,)3Q20
o (Hq'tf)
0039t,0
Ol)39AC
n03QAO
0039CO
(1)1Qr::0
003~O(,
»
01
I
'-I
003A20
0()3A4 n
003A60
-)03 ~ 80
003AAO
003ACO
003AfO
0')3 ~ 00
003K20
003B40
003B 60
003B80
O('l3BAO
003HC 0
001REn
003C 00
003C 2C
003C40
() 03C 60
II
lq971RA~
I:)OB0011:)0
471 O? nc 4
06304A10
14204121.
48S( 1)01)1
4249000R
9C:;020167
4 7FOF()7~
10()0474'J
4 1 7 C)()I')r) I")
0,)OC00·1F
9200010')
1 ~'V' 1 gfH
1 f3 AA 'd ll. 2
43070007
aqe 0001')4
002E474J
f)2'1'l?f)"1
41RBC,)O,)
I")OJ04C61)
lQll=112F
n'Jf')O lR9c)
,)()5(f)A n 3
f9f)6f')f)Q
4110'11~8
O~J03A6R
Ql)7041FO
004R02,)7
90,A94FO
0OO047A')
FF,)41003
FFO')l,)OA
f')Of)4 1 1)1) A
f),)OOOO'"lc::
FF0511)')')
FFf)C;O()I)C
f)a04100A
FFJ411')OO
FF!)41001
FF0601Q?
f=F06000C
FF04100A
003C~O
')f)OOOIQ~
O()3CAO
003CCO
O')lCEO
0031)00
0031)20
OOV)40
0031)00
0031')80
003nao
0010C0
0030EO
003E00
003E20
FF060192
FF06019J
0(')0 /.. 1"03
FFO')100A
0l)04100A
00')4100A
1)0041 OI)A
0OO41,)OA
')1')041')1)1\
0OO410f)A
fF')5100h
FF0510QF
FF04100':\
lR8A9204
OI)O'Jrl?AA
400n000Q
1 ~CC4 3( 2
I:)A90FIFf
41 C)f) I") 00 1
f)OO1.41CO
F'JF4f)204
4140F112
18AF4HFO
l")')rF92()1
C)1:)()()90(')A
In 741 !)OR
,)16,)47FO
'Jl00()4RO
Aqon')(')oo
1')1')1')012((
,)0044~AO
f),)2A4CA~
'10C)I)OI2(
06,)191hO
OOlFOl)01
rn I:) FrH I) 0
R744F12R
01641?FF
01A71:)8f30
47B'1FOf4
c:;gOOf)l 74
f=1324180
(H)Q02940
41) (H)f) 01') R
47RnF01C
C",)21BRA
R90,,)DIlI)R
1 AC f)410C
F 04 8410:)
f)0?4,)78F
')AAI'I4f39B
000')01)1')1')
0') 708Df=F
4391DOOA
dQl00f)()C
f)1')0 '10!)()()
f)OOOOI)/)')
901A0201
905CO(,)40
Q04F5AAO
FF060')OF
400016E,
700') 'l f)F 4
'lOO(P2CF
f)OOlF(70
l1rF07FF
1~q94390
l')IFI~"n
QQf)Or')()04
F03741fO
0 (1)4 1 1 0
200CA112
4RI:)()FlI')R
46 AOF 11 A
076f=4140
4A9C 1')1"') 01.
!)
FIAE~2(n
41)01F~aF
f)1)!)IFRf)E
'l00O?164
6('10()171A
4nOf)31AF
"lOO'137AF
0001,1Rf
400,)27~4
000:)10(1)
ooocn 3 R:?
')OO()3182
40007')3A
7nn')1)042
'lOO'P164
700,)22(F
'ioon?164
700022CF
50012164
70n022CF
I,QOlF'5(A
hQOO,)f)E6
4r)0')t6EA
001046AI)
41 hO')OOI
(")1)219B,)
0')p, 0 122,)
70011AR3
I~AA41Fl
C:;fl107026
n') AO ~2.')0
C9('iC7E3
Q()l:)ff)0,8
')AAO()4R4
904C020F
OOOl~~6(
'100JF'lI)O
00f)nf'H F4
1'),)1')1')014A
COOO'llRd
')f')f)lFCIA
O(l"llFC4f"1
FFOOO060
01"00000-'
I) I) ,) 0 0 () 0 1
ooooono')
O,)OOI)OGO
')0001)142
O:)OIf=4h/')
')')oonf)('C)
')OOIF]AO
FfFFf=f'FF
nl")(,)OOlF4
FFOCI)OAO
1)1')f)0f)0R0
F t: (01)0 (,Q
OOOC'0060
FF('('nn6(')
()nO('OOh0
ooon0048
O)01F550
000 IJ= '5'\('
P~?F4110
O11R47RO
l()OOQOOO
47FOFOA?
18454440
01~E'l870
AIE?4144
41FOF13~
4BOOF214
O"()1IR17
111)0CH'lF
OAOOO11R
4AOf)OO?E
4~82()OOh
07Rfl:)')10
101018A9
Ih01A80f)
0OO4,)7FF
43P,P,0013
lOA942A?
p,l')nF47RO
1~6'l4RCI
0002A~CO
704hOAf)A
OhOOOOOO
AnnF41F0
F3D90hE3
4'lQ('l901C
9"001\010
flI)009'),)4
o0(,lF43R
",)01FA34
f)0f)lF5EO
(,f"1()051)(,)R
ocnr)f)()()1')
n()'HFCIQ
'18')f)()OOO
Fr'FFFFOC'
0!)()lF4A4
0OO1F4AO
04r;000oo
('4 n,)o nf) I)
05701 ~n 1
00003A3C
A"160A06
f)2019014
50609054
0778'lRAO
C:;OA('lQ04 A
OAI)OOOO()
00()4100A
FFa510"l3
FF0510"n
FFO'lOOOE
nOI)()OOOC
FFOSI006
n00410n4
000.00192
FF06QOf)E
0000019?
FF060197
FF041000
FF041001
00000192
0OO4100A
0004100A
FF05100F
FF0410()1
FFO'\lr)OQ
f)OO4100l
FFOC;1C'06
o n041 01)3
FFOl:)lOOA
FFO'510f')l
0004100A
0004100A
5R~OOO~O
41\~OD0?R
~0()OOOO()
r(()on000
040000')0
rCnOOOF4
Of)I')04F')R
P (,f)O')1)40
FFfFFFC'1
00f"11F4Af3
f'Fl=fFFrlO
a"V)} F04 8
FFFFFFf10
oonl F 048
O")f)lF06('1
ooonoo')o
OI')"lF614
f)13C()AOO
20C441FO
4780FI0a\
rJ2029008
Fl(F0201)
802C0500
0001424()
95FF 1 OfV')
41AOF01A
41FOFl QC
4000000'l
00(01)001)
41000(11)
lAA84BAO
4100f)f)fF
f)f)084202
19FF18Qh
41COOOOF
OOf)64AB!)
BOIAOA03
f)(H)2SQCI')
12lf4710
')000000')
OAOl41?O
f)020Q610
42.\09054
Qf)4R41A.\
07FP,43A1
8~A1')0002
70Q022Cf
1000240"
4001FQgA
OOOlF9SA
()OOlFC38
10004EC;2
41')00268C
000010(0
000037AE
')000 H,)(8
OOOO118E
400033'5E
400033R7
0000tO(8
40002QCA
10n122CF
7000S062
4,)OO16F6
4QOO5(,)A6
400n2,)lA
6900S()A6
4000251h
6901FS82
~90024""
50002164
700022CE
AQ V \ I l l
S8F071~A
FOFOOI
()f)f)R074E
18~21830
4720Fl~A
43710008
nf'lOR1440
'. 34f)O 166
41?nA168
f)16'518FA
1 0(H~4 141
900cnl07
2/)('40166
O16692/)()
4140FIAE
Q'50401b'l
020()90')f)
,)AOOOI0A
06000f)O('
46C I1FO 10
~02BIA0A
14r)041RO
,)OO1A810
4AOOn02F
14BC 05C ()
f)02642B~
I)OfFFFFF
00()741Cr:
70129A01
8000000')
FF040000
90169001
9430<)("154
r)010'5S~0
Oaf) 041 QO
4A8"OOOA
OOOOOOAO
FFFFFFFF
nOOlFC4A
1)001FC18
0OO1FC7A
FFFFFFFF
FFfFFFFF
nOOlFC40
OOCOOOOO
10000000
00OlF4An
00OOOO3C
O()OOOOOl
00000000
00000200
00000060
OOOOOlF4
oooornr 4
0000507A
f)nOIF550
OOOlF550
OOOlF550
00000048
'lOOlFS'iO
FfOOOO80
t)OOOOOAn
Oa;0~1001
4780f132
100~00Ol
00000000
00000100
4'5AOfOAC
8QOOOO08
F02418C9
()n084BOO
42Q20000
'iRCOC024
0OO401fE
f)Ol4Q?Fl
10081)8((
6020S8F6
C9CSE6F2
00OO~A4f
901(4190
n2039058
90504140
0(01)3800
16A84t)AO
OOd1F4AS
00004F60
0001fC48
08nooooo
08000000
0OO04F58
00002934
08000000
04000000
04(100000
0(000000
OOOlf3A4
0OO1F3AO
04000000
0001 F'32 8
OOOlf04A
OOOlF634
00000000
00000000
00000000
OOOlF618
0001F628
AQOlfl)80
00Olf630
fFffFfCO
OOOlf4A8
003F40
')'J~E60
-"
..,
0
003 E 80
003EA0
0031:CO
Ol)3EfO
003F 00
003J=20
003F40
oov: 60
003FRO
O'J1FAC
1),,)3F(0
OO~FE"
»
tTl
I
ex:>
004000
004:)20
004040
0()4060
0040R0
0,)4'J4 n
0040CO
004 OE ()
004100
004120
004140
004160
0041AO
00411\0
0041CO
,)041EO
004700
004220
004740
0042f)()
0042 '10
~042J\ 0
0047.CO
00421:0
004300
004",2r.
Of)414C
004160
004~A(,
0041AO
0043CO
')0411:0
004400
004420
004440
')1)4460
')1)4480
0044A0
0044CO
OJ44F(I
004,)00
700Q'50F4
'5nOO22CF
00OlFC70
!tf)') 1 F BOE
FF051,)OA
00,')41004
:,):,)O::'OOOF:
!=J= 051 000
J= J= ,)'lOOOC
J0,)410'')A
FFO'.I')I)O
FJ='J410Cl
FFl)h(H <)2
FF06019?
FF')41()')1\
)()',)OO192
f)OO)171A
4('10'1"37'3F:
OOO')118f
J'1Q')17AF
40007794
11'1001 OC n
Fj:0~01q7
,)0001~'32
FF:1601 cP
')0041003
,)O,)lJ=~fJJ=
'1()f)O?1~4
,)O,)O1".\~7
0004100A
I')004100h
0()(,)410111
OOJ4100A
400J2511\
1"015()42
'5f)O,)2164
7110')?2CE
5,)0021f,4
7000?2CF
()!)1)41011~
5,)0021~4
')f)041fJ()A
FF051f)0n
000410"4
,)OOO01QO
FF060190
700,)22CF.
J=FO'510('1~
F~()6()lq')
FF0410,)0
0OO001Qa
00041001
FF,)410')7
0")041004
')1)001<)"
F F 1)6 f) 1 q a
FJ:06019,)
00')41003
~F1)4100n
F F 04 1"'11
I')O')f')Olc)1J
FF0410')A
000f"10190
FF0410,)1
~~ '141 aOA
4QOIF'5~E:
40"07.ARC
000010CO
nOO()139~
Ja0133A?
7"'1(,031'5F
0':'0010CA
6"0021531\
6000?FFA
100,)2A'1C
'V) 01') 1 ,)C 0
Ol)on33'1?
,1 f) n 0 ~ 3'~ 2
400n21)3A
r;Of"l()?P1f
5"'1002FEA
000010C'3
400f)106C
0f)0r) 1 ·,)C f)
000001F4
00000148
,)1'')1 F3AO
0OO1FCIR
f)001 FC4,)
FFOOOO60
r')onOOOOfJ
O,)OOf)Ol)l
I)f)OOOOOO
at"l01F4t\0
I)()OOO142
000('11)00')
0,)00JOO,)
n,)f)IF3AO
FFFF~FFF
OI1f')()Olr4
FFOOOOAO
O()OOO0'1"
FFOf),)()60
00(01)06(')
p:nOOf)"J
,)')001)0f,0
onOO')04'1
FF"0006f)
,)OOlF1A:1
00 I) t"lO I') no
·')001 F3 90
onnOOO1')
f)O'1010C~
0n01F7F')
Of"1003124
')0"01124
0000?A4A
OOOOC'OO')
on01F641)
on001124
0,)O()1124
1)0000001
OOOC00()0
I)OO,:),)IFS3
1)000'519')
,OO02~FR
OI)OO()f)~l
000C'OIFA
FFC51000
FF0,)1001
4000306C
4')0f)?!)AA
"n01FP,07
4001 F BF 0
O~1000()C
OOOlFC~8
FF()4100~
FF051006
00a41f),)4
O,)O()OIQZ
FF,)601<)2
FFJh0197
FF04000C
f)oonOl<)2
FF,)6f)1<)2
Ot"lOOOO~A
70004F5?
FFFFFFFF
00000001
0000')378
FFFFFFFf
400f)2~AC
FJ:FF~FFF
O,)01lar:0
O')()IFC4~
"t"ln')~1AF
':l0f)n,)()oo
OOOlF7'50
O')00I)On:)
OOf),)'J000
()Of)t"lf)000
,)O,)031AF
,)00"'~2~f)
,)()1)110CC
I)O()033A~
OOOlF5EO
f')000'500R
OCOOOOE4
t"lOOlFCIA
08,)')0()r')O
FFFFFFOO
FFO'510f)3
FFt)5101)"
FF05000E
OOOOOOOC
FF0510,)6
I)n0410n4
OOf)IF4~4
0OOOOI<)~
('1)01F41\0
040t"l0000
OC ()OOOOO
8l10nrlOO r)
040000c)()
04'1r)0')1){)
OCO')OOr::4
00"04F5R
FF06000E
O,)OOOICJ7.
FFC'400!)C
FF0410"1)
FFI)41001
')0"00192
0004 1 ()t"lA
~"'OOC;040
FF0,)10nF:
FF041001
FFO'51n08
00041003
FFO,)lOOf,
FFFFFFCO
0001F4l\R
FFrFFFfl0
()f')llFl)48
FFFFFFn('l
0001FD4R
()(,04JOO~
0004100~
FF0510')l\
8')0')nl~C
OOf)410()~
(1"'11102<)34
OCOOOOF4
04000000
0(000001)
Of)I')O?A,)C
oroooooo
0'1002<)7C
AO,)02F74
00041000
FF()41001
(1)000190
0f)n410nA
onOO01CJO
FF0401CJO
000410')A
0004100A
f)f)041,)0"
FF0410nl
OOOf)f)ICJ('I
OOf)4100A
0004100A
')0000190
FF060190
FF0601CJr')
FF04100f')
000001CJO
FFOtll)lQO
FF04100A
'10041"')A
000,)7q~4
nC0')0000
f)4001)f)OO
ocnOI)OOO
Af)t"l02F74
o I) 0 0'5 1 2 0
OO,)0511C
')4,)1)001f)
o '1 () I) ') 'VH3
0C (100000
oonf)'531')4
n0"n,)IF"
01)00'53D8
OI')"'IFC4A
O()OlFC44
0A ')OtlOOO
OOf),,)4F5A
OO"'107. Q 14
0'H)OOO00
('40"()O,,)O
OC00000'1
04nO()010
')4()OOOf)"'I
C400(01)0
lOOOO('~F
FFO,)I()(),)
FFOC;OOOC
O1)04100~
FF041(01)
FF041001
f)OOOOI92
FF04100A
FF041f)on
FF041001
OOOOf)IQ2
7(H'0240A
')OOIFCJ~A
lOOlF9g~
0001FC~~
70004E52
40007.~8C
()OOOlOCO
nf)(,03 1~E
')I)O,)lOC~
0f)f)n37nA
4()OOl~'5F:
FFFFFFFF
"'O"'lFC4Q
(,)OOIFC78
aoolFC78
Ff=FFJ=FFJ=
q: J=rFFFF
1'H'l J= r. 4 (I
')00')01)"0
o nrv)" 0 f) 0
000 ')!)f)f) ')
o f) 0 ') fHH C
400033~2
0000')0')1
Jt"l11010CA
4"n028CA
70f)022CF
10nr),)06?
1 11 OOO(H)0
1100(,OlO()
40()01~f6
49nOC;OQ6
4:)0,)253A
6CJ()050A6
400"253A
6CJOIFr;A?
,)OOO:?164
700"33'iF:
4nO()~3$J~
1()f'fJIOC'1
4,)007.8'=A
OOf')010C()
30')03374
71)0022f.E
C;OOO?164
70f)0~~5E
4n0033A2
f)00010C~
40002ACA
100027CF:
ono')}OCO
10OO?FFA
1000?FEQ
'5,)002FOf
f"If')"01f)C9
10()OlFF8
40002D~6
10002~CE
,)OOIFC68
400 IF ROE
0001F80f
50002164
60003778
4000178~
000010CR
40002784
4f)OO13,)F
40013387
OOOOlOC~
()Of)Of)O~')
""f)nOIF4
OC'OO,)lF4
00"05117.4
,)OOlFc;r;o
OOf)lF550
I)001~550
aOt"l00048
FFOOOOtll"l
'100000?D
OOOf)OOOl
I)rH)f'OOOO
000002('1')
00002A4~
n('101')2A4~
I"lOf)OO060
FFooon6f)
OOOOOOl4
00000001
!)oonOOr)O
nOO0()200
00O()OO60
0OO1F640
00000000
00OO51qO
I)OOOOlEA
ooonlOCR
,)000537R
00000031l
1)0I"lOOOCJf)
001)01)378
OOOlFCIA
nOO1J:C4,)
FFI)OO060
00000000
00000001
oonooono
()OOOOI42
f)OOf)OO3C
00000001
1)001)0000
PAGE 0012
0OOO4F60
OOOlFC48
08()OOOOO
08000000
0OO04F58
00002Q34
08000000
1')40')0000
04000000
04000000
OO"lf3A4
f)OOIF3AO
f)4000000
OOOlF3Z8
OOOlF048
OOOlF634
OOO()OOOO
00000000
00000000
00OlF628
nOOlF628
AQOlF580
~FFFFFOO
OOOlF3A4
OOOtFJAO
(41)00000
0f)01f328
OCOOOOOO
OCOOOOOO
OOOlf8BO
FF~FFFOO
OOOlF654
OOOlF650
04000000
OOOlF5D8
OOOlF8BO
oeoooooo
04000000
ocnooooo
00005308
OCOOOOOO
OCOOOOOO
00001)308
OOOlFD38
08000000
OOOlFC18
08000000
FFFFFFOO
0001F754
OOOlF750
04000000
80000000
OOOlF654
OOOlF650
04000000
fTI\Gt:
'"tJ
c...,
D04')20
004')40
004560
004580
0'145AO
004')( 0
0045FO
004600
004620
C)04~40
0046F,O
004680
o (41)A r,
n046(0
Ol)46EO
Of)4100
00472(')
f)04740
»
Ul
I
--0
004160
004180
o f)4 740
004 1( ')
0041EO
(104800
004B20
004.>340
004 ~60
0048An
() 04AI\ 0
1)048(0
')04QFO
n04900
004920
004940
")04960
004990
004QAO
FF060192
f')f)n41,')01
FF0510'1A
()004100A
001410'1A
')f')041f)1A
FF04000F
00003182
40002'53A
7()Ol)'i042
,)000?164
1QOl)27Cf
5000?164
(00 )2£>1=:1,
1
00·")0')1 q2
I)Of)I)U)CO
FF06CH q2
FF1)601Q?
FF(4101)1)
FF')4)001
01')0(l019?
'10()41I')OA
00041c)OA
'1('1'1410"A
(1)14101)'\
FFi)'i 1 ')a~
FF(),)lO'1F
OOf)nC'ooo
911J'P')(lR
4710F332
200101FF
f)OOO118E
aOOO17AF
100(331)F
4!)C'1013A2
00001 OC A
9~A"f)0,)?
101')1 9
0010,)AFf)
,10BR?Fl :\
l~gFI)AOO
~Q2CJA~6
Q61120,)A
115A7002
45f)OF344
91'iC'?"lIF
4?07f)034
96042001
F3')24AAO
1)0!J?,)OlR
41FFf)Of)C
9620?'108
400,)?8C~
10a022CE
')(')0')2164
1"0022CI:
6901F5CA
I,q005f)Eft
f)OOOOOOO
4 71 ,)F 1)1) 7
94FF2001
C:;~f)()f)'110
43~
Qft04200~
47FI")F1FC
ql01~')"'n
411()FOOO
920f)701~
918nAOOO
F368f)?07
96012')Of)
910A201F
964,)200A
50R10044
7()4(47C,)
1')()4h80
41Q10054
200891()2
31084110
F1649110
94f)F21C,)
Fl12941F
RI)Of)47C()
200A9?13
(1)4A~O
4~F\1()()l)q
'tC~r)Fl6"
O()4ACO
5510F36,)
1J409205
1)810B()AC
CQCC:;CIFO
FI)FOF140
4016f)541')
40404()40
6110AI)51)
00000f)OO
020(H),),,)')
411EOOl)A
a04Qr"
0049EO
OO'+~OO
004A 20
004A40
004A~()
Of)4A~O
004~f)0
O')4R20
O1")4~40
004~60
0041180
004~AO
00413CO
004BEO
F?C~ql0A
?,)014780
941=:F2001
4()7.C940A
F16443R1
703CQ220
OO,)lF650
FFFFFFFF
()00OOlF4
FFOOOORO
000C'01)60
FFOOf)n60
Of)oonooo
OOOOf)OOO
00000000
'100052(R
OOOO()OlC
00000001
nn00()f)()0
OOOO()2I)O
()f)OOf'1060
FFOO"060
() ()I) Of') 0 60
0000004A
O'101 F r;')0
94FF?I')01
9140700A
0')01 7040
,)QnOOO10
R~Aon·)f)2
')f)440,)CF
91ROJOO?
47FOF2BI\
91102()OA
47AOF12A
4102f)01F
96047001
4110F7.4A
1044A,,)00
Q10A200A
4710Ff)f)Q
96102001
92167044
F?4AQ?08
103647(0
F78A924F
41t=OF2C2
210047FI:
'100Q42R1
1:)40Q?01
lAOR917F
41F0F29A
7,)4~01FO
0OO03~28
9140~aoo
f)71FIBAA
40C905E3
4040404')
40404041')
404(4041)
CIOQE34')
0'1f)n026A
onl)04COA
F 0F 1r 14')
41"\404'140
FOFI')C340
40414040
8101E2F3
O·1004C4~
1FOf)4C14
OCf)OOOf4
0OOO4F,)8
~OO05040
FFFFFFCO
na01~f)48
FFFFFFOO
()4000000
C4(V)()0r)O
04000000
OC 000000
I)O(l()l)lC(
0OOO51CR
040"000 f)
0"()or;150
0001Ff)48
FFFFFFOO
OOf)1F048
OO'HFf)60
f'lO'l()1)000
0OO4100A
,)OO41I)OA
FFO'il0()F.
FF0410nl
Ft=()510')A
0(')041"'1')4
Ft=041000
FFf)410f'll
OOl)OOlq2
FFC'410f)~
()()1)f)0192
FFO~0192
70334711)
FF"'n019Z
O(,)0410()3
FF"'')lO'''ft
on"410f)1
FFO,)100"
FFf'l1) 1')01
0,)041001\
910?70nc
f)2062')I')Q
F OC ~Q 1 ~ ()
q6?42000
41'3f)F2~4
4()002RCA
7I)OI')?2(F
7000'iOA)
40(1)1nEo
4q,)050Rf)
600()?6RC
6I')n"171P'
,)C"00?00
Of)'1(}f)n61)
00nOf)IF4
(01)1)01F4
1f)(V)'i07~
7 164
4110FO,)(
70r;(0?C'l
200Q4780
00(H'Ir;011\
f'lOOOf)000
1)0000001
00l'H'oono
80"'OOOR4
'100 O'i 2C q
:)0000000
')"''''''HBQ
"n"'lFr;l)a
f)f)"lFC;')0
aonIF5,)'"
')ooon048
') I) r)l F I) ') CI
~ FI) OOf)AO
9111200n
200710l)A
F2309497
4")0037~f::
nOO'H 0C q
1)()f)027Q4
oono)oc')
f)00033Q?
"1f),)33 Q ?
6,)102511\
I) 9 1')1) r; ()
~ ft
41""2r;31\
6901t=5A~
690')?41)~
')(')M)
0013
,)001F1)08
,)OOlf068
f),)OlF634
1)0000000
00000000
00002934
0"'0052CC
f)OO052C8
04000000
80000000
0CI)00000
04000000
0(('100000
00000000
OO('llf628
'1I)OlF628
~9(,lF580
0OO1F630
FFFFFFCO
411)0F27A
91042008
200SQ4EF
1~R~43~7
00OQ4(~0
~36A1V)8
48~70016
A~"00002
P,FAOO"02
01?CO(46
4AB010"'~
OOO~94RA
471')~f')1)(
91~('I2f')lE
9680?1")')~
41FOF7RA
16A84'140
02r;40462
41CO~2E A
41FOFIDC
41FOFIC0
41f)f)"!J,)1
41F o~ 1 co
r;OA10144
1)l30A0f1C'1
,)OA11('44
018F96(,)1
42D2')l)lF
C:;OB1,)03C
41rOFIR4
0036410'1
O,)34411)r)
00101)')')2
D00918A2
0028063A
4710F282
20090201
4110FOOO
47FOfiCO
41000001
4500F144
00004'500
41010"3C
F16405CO
4710FOC8
94EF7040
70t;4948F
00369104
,)0341t7FO
4160F32A
20154760
0501"17036
,)01EQ608
00701888
20181040
703C9270
5880803C
00320000
FOJ=040F4
C5091t040
40404040
4040EOEO
40000000
ROO()4090
00000000
471f)FOf)0
9690?01F
41f)f)001O
4'if),)F31)2
9,),)7AOOO
91F7AOOO
4710Fl(E
43~2001F
Q6011()06
97.207048
200141FO
Flft4921)0
20044 7F ()
(HOI20,)(
(10041R~R
001641FO
70419611"
000A41AO
,)R"?01f18
00000120
1R(C58FO
40['l9C508
404(4 111)
4041"4040
40'+04040
404n4040
(l()"OoaOO
1
O~OOOOOO
0719011F,
9~1020t1R
43f120,)IF
42f)2001F
450Ct=344
41ROF7Q8
41ROFl'~4
9110?001
41f)I)OO01
41R7004C
92"47,)4~
F16443f)1
10364307
f2Q85Ql)I)
4110F28A
43B2r.O:?O
F261\4V)2
20019601
F2BA9101
41a401"lf)O
00081"'101")4
FOIC07~F
40404QFO
C9C')C6 F 2
40404040
404041"40
4040'+040
000OO26A
40004CO"-
5~f)OOO10
89Bnf)0'l4
f')OtE4100
7,)0647FO
21084110
4!3AOF36Q
0000001')0
00002472
FOC540FO
F'3F 7C940
40404')40
4"41"'14040
4040000()
I"'InOOO181"1
,)OO04RFO
0,)88"F.'A
911n2001
020610l)C
Q1OA201J:
4l!)2001F
431)7"014
47FOFP\(')
1)20510':\1
920Q1044
200n5~f)f')
Ql0720 n 3
4501"lF3S?
f)7031033
I)OO142f)1
f)00142r)7
00552015
f)502f)055
41BB102f)
')0104207
t=IR4I)SOO
FOt=0f)2(,13
11Ff)9214
58BOO011'}
0036000f)
F040FOF2
n9C5CIC4
40404040
4040404')
OOOC',)310
00000180
')OO"'OC'')f)
VAr,t
'"U
.,0
004COO
004(20
004C40
004C60
;)04CAO
004CAO
004CCf)
004ccn
004C FO
004,00
0041')20
004"40
()04~An
,)04~ ~O
»
111
I
N
0
r)9,)04A?0
12000"'')r)
Dlf17f)140
020800')0
1 "'D1')4311C
140R47AO
0000f)')0J:
FFO"GOOh
41,)OOO4A
C02AE7D9
1')00"0')1
,)0:)1n07A
OJ,)f)nil01
20()()00Jf
00000')0'"
4040404f)
f)OO018?0
f) 0 f) ')q 11 0
FOO41~OD
'100000(1)
700f)4E'i?
4510COOA
r1EA4,)40
12000001
7R?B2A?q
00,)()400l)
"AI)04fCA
4'> 1 0C 0f) 0
4') 1 0C I)F C
()OOlJ:R'l~
004()AO
:)f)Oo,)on 1
004 DC 0
:)')(Ff)70r)
')04 DEO
lr;~F4110
'jA!=OF030
004[00
r;031C2')8
4F3('\C?4~
014F20
,.,0000100
00004E4 q
004F40
()()nf)4f V)
C?7C'>811
004[hO
4'l10CIQ(
f)04f.=AO
C?6P0700
0'iFF4110
58FOFO~0
004fAO
47fOC,)E4
')6101012
004 E( f)
0AOAt:)AEC
41:100()4A
004EEO
4')1.,·0404 {)
40404040
004FO()
LINJ: 004F20 SA~E AS AHnVE
40404040
4040404Cl
004F 40
')03A8()R~
O"000f)OO
0f)4J: 60
40404040
40404 ')4 I)
0f)4F 80
404')41)40
4040404()
004FA0
L I Nf 004FCO SAME AS AsnVE
41)404,.,40
'.0414040
004FEO
422')4014
0OO000()0
00')000
f)00()()I)OO
")O()04cno
005020
0004')010
0AOA ')001
OOr;1)4C
IB31r;A~?
1)~0r:UFH
OOr;()60
')AOA503()
cr;4,.,lRll
OO'l)~O
0A064100
f)3C9C,)40
OO,)OA0
Clf1r;4,.,Cr;
CRCIC44,)
00r;,,)C8
OAnE04CO
.)O'lor ('l
f1GIAI8I R
O()OOOO,.,0
07FFOOOC)
Of)5100
r)96 ~4f)( 1
Cr;n90Q1')6
01)')120
'lAIOCIOA
~0')aO~78
00'l140
O,)4AQ10)
')ooaOOOI
OO')lhO
Q2')IFlf=-O
0001F34A
0051AO
o 0 0 0 .) '),., 1
0,)f)()on70
o ()') 1 ~ ()
4'1404')4')
0')51(0
't "40't040
0OOl'iU=)
O()1)0,)3"A
C()') 1 F 0
40214n4,)
7FOf)000f)
005200
FOOOr)16C
0096r)27C
()0')J2G
f)16S41FF:
OO')~/tO
D2f)3EOJ0
'lA~,)1,)08
't 11 nOf)4~
005260
I),)CC1A01
lAOllAOl
o :)r;2 ~0
(10000000
0000')000
Of)OOOOOI
Of)C8aOO~
Cf)f)04710
430COOOI
Of)OOOOf)O
,)'))lFF60
O~OA'lOf)l
4')404110
9000:)00')
41()lFC40
)0"00001
0"O(10f)50
f'lFf104D24
7f=-OOOOOO
Cf)f8,)AF0
F271(2'l0
C:?C1f)2Cr;
C26AI')701
7F00(1000
C18Ar;AFr)
()7Fr:17Fr:
D()0C92FF
404f)4040
ocn04Cl~
OOOf)OO()O
!=FAOr;8D2
Of?9'i114
F03C489A
1AF91Rq9
00(001)00
O')OOOIHO
(H'H) 4 r; 0 1 I')
C1"''''OA2Q
004"00.72
OlO1F92,)
O?004FCC
2A282A2'\
~1()04f)6C
'1nQOooon
InOAC:;~J:"
(lFC4F10
n94(41)40
C?7CCIF8
"02')0010
100Ar;A F O
4510Clr"lA
f)" 0(41 ~ 0
It 0404040
O"'OOf)OO"
o')nOOf)nf)
F?F2F7F?
40404040
Ol)00001F
40404040
C2CID2C'>
47FOf=-00A
OQ,)81AOl
40404040
OQ404040
0')C2(1f)2
,)AlI')OOI)4
O'14A"I\12
O('l4AIA ID
O')f)0r;0~()
f)04(4110
:)onF18'l1
f)9r)9')609
lA 10r;AI')f)
f)900'l110
C2C'l1)5C4
I)AOOOOOO
1)000401)0
()70(),)2F~
O,)O(l'>Ir;o
40404040
Q0'10106F
000()')1,)O
4JJ:J:,.,07D
OOI')4r;0Fr)
58FO F 034
124"'1')170
~70?9h~C
40404040
4040404 r
tR991~qF
OA23f)l,)3
00')4411)0
41~?O700
4nC4f4r)4
0000(1)00
0'10"(01)1
OO"l)o,>"n
OOf)OOOOf)
C)')1"'\()52AF
O()OO'l1~C
Coo,),)3?(1
5r)FI')015C
r'.Jr;C4111')
05FF4110
02710171
OOOOf)OOO
OFOf)4REf)
8f)001J1C
14010219
nOO2111')1')
4 7FOC 000
(1(201C'i
41FOF00A
,)OOAIAI')I
41J:OCOC4
')()(H F CF C
10f)IFQ20
qr)')OOf')OO
?lOIFClf)
Ot\13411f)
()OOO40f>C
ff)1405FF
(2r;0C:;010
OA0647r)1)
O?03C?AA
1)0004024
E0340'>EF
00004024
0000f)7FF
404()404()
Of)OOOOf),)
40202n21J
40404040
404040\40
40404040
O()?90040
( '1099f)FC
~Al1'1018
00044100
4 'l F OC 06 C
4 7AOC 0QI,
20f)8r;OOO
01F40AOA
4';10CI02
f) 74f)C 6DA
OOOOOOOr)
00000001
282A2A?A
00004(00
OO"I~J4A
OOOO'l33(
OOOlF40B
411Fn01D
n0489220
nOO14801')
01704110
1FnO,)10n
O?f)OlOF,)
AOf)f)121C
JOOI)f)f)()!)
4100(")01
4QRAOOOC
404n4n40
04CIC201
r;8100004
114810()O
Q201FI\n')
oonooooo
1)00nl7.3(
Of)OO121C
C241')41FO
0OOO123C
41((0007
4110F01E
41FOFOIA
41FOJ:OO~
qRon100~
r;4f)OF04'3
00611 OC f)
cr;OOQ()FC
'lAllf'),.,IQ
')000001)1
:)f)I'H FR') A
"()()f'),)07~
I)OI)1~A1'l
1(),)4?OO0
(()24411)0
f)!)OO4FFR
00f))FC9C
()001F1FO
')0011301)
000lFCIR
r)?')7C~4A
C?F8F21~
C2')C4110
(),)6F[)?01
f.7'iA0100
CIFCI')?I)~
C2Q4C21"
0001FC48
<)14Al()ll
f')A141810
FOFOFOFI
40404041
,)1()1~7~'"
00004~7C
4110C074
AOf)041')6C
OOOO,.,')()')
4n404040
1J0f')1)f)" IF
6~il02f)2'1
404040F~
4()404040
C27CC2~4
1)0000001
6R202020
613F1FOF2
404041)40
40404040
OOOOOOf)O
()OCOC;O?~
~FO'50006
I)OOC ') r;c I)
lA?1r")2f)'5
CI)4247FI)
1)000'l09C
4r;10C094
414')00"'Q
Q8ECDOl)C
I)n2C;OOOO
1)30306E6
O()OOIJOOO
'l400000f')
4101F400
f)001AJ18
01)00?214
OOOf)OOOA
410f)01F4
()O,)4COOO
C1)4AC 3C A
OO~~00()r:
lQ1041(f)
100558Fl
00'iCQ560
003AIQOl
IJUllt
ooo')')oa·')
OOO()I)Of)f)
OO14nl)()0
lA745AAI)
Q2FfOO()C
1)71)Ql)6C1
F2000A2~
00000000
1)07C002,)
0101FORO
')000001)0
fJOOOr;20n
4')4040-40
QAEOOI'l8
OOB61RFE
IJOOSC;Sff)
f)1104140
41AOOOEA
0OOO4CFO
000(05CO
18214500
0f)t)04000
07004EC4
f)0410000
12f')lFlOO
00000004
C;AFIOO-;4
5~FIOOO8
C248CIF8
415FOClt;O
0276C270
f)EO~C294
C;AFIOOO8
41EOC lC4
580DOO04
FOFOFOfl
40404040
Of)OOOOOl
FIFIFIFl
~BFqf6f3
40404040
0001)0000
6900'50A6
4510(008
41100054
CIOQn3CQ
C 3(8CI09
04CIF.140
0004502A
41FOOOOO
OqCI0440
41FOC10C
00000000
lOf)lF45(
I)OOlFOBO
00019EfO
00nOO05C
40404040
12EE4180
40FOO168
F03005EF
f)OCE4720
400000-;C
ooG
o 7F ')4 'H r)
0'1 L) F 4 L1 I
f)l'l4QArn
,)lE,)f)?Ol
,)J'l?~('
4 IF ')r) I)'P
r17CIC7C'l
,) ,") ') (' 0 I') ') ,')
;0,),IJ"
Ff)FOF,)F()
')07f141)4,)
(11) S~ .::' C
,JOR14('4 n
4 ') It (' 4 ) 4 ')
4()40404f)
O~)S~4(,
L I N[ <; o () '5 1 f> J- ,)1 L) "3 R 0 SAME AS A~nVE
404rr 71=')
FIF9F1F2
JC"d!\O
JO
-"
Q
"'"'I
0IFJR()
'":'IF)AO
')l F,)cn
I"'IIF1~0
01Fl:10
()IF120
IIIF140
81F160
,) 1 F 1 >i (I
I:; 1 r 1 An
I"'Il1=1C0
-)ll=l~O
»
1J1
I
'"
0IF?!JO
01F22 n
OlF24("j
OlF2hO
01 F ! ~o
OlF2t\O
OlF?Cf"I
OlFzr:r,
01 F 30O
o IF 1?0
nlF340
OlF360
011=3R0
1 F 4 ') n
nlF4?C
o IF 440
OlF460
OlF4AO
I)
01F4C()
o 1 F I... ro
nlF50Cl
01F,)2('
011=,40
nlF5flO
OlF,40
01F,)AO
I"IlI'=')cr
OIF,)En
01F"OO
01FA70
01 F ~ 40
nl1=66(,
11001411'1
f)O'lcnll0
FFFF()7FF
F~FFFFF()
41)404041
FOF4F')1=4
C0'lFq2FP
47FonOh,
nOIlOOI')I)t"
or ')05 1(')0
4')404(,1=0
FI)~4F()I.0
D1701)7'13
QREl)nl'lR
nOl)noo()n
n n 0 ()() () I) 0
F OF 5F 1r 2
41)4nc M~ ()
402(41A7
C q( 7C 71= I)
')!)C)n41 /t n
474')Rf)r:r
1= 1 F 9C v: f,
4 7 RI')F I) 70
F04E874()
3('105')')0
Q?OI)?1)17
1('lR47Fn
FIR"F?Q,
'1 n r) 1F () '1 ~
?00!)4791)
1"'I(l29,I)A?
FIFgC2rl
')00141)41
q 1 7'1?n t 1
1\4~'>()4i
"~lRq4')1
I)024<}4BF
47A0AI)44
3f)()OQA4i)
43502010
Q l(l)~')24
47RO~(,hCl
lA~50?1)1
VV)h611t')O
4g63101)6
10 OAI) 7 02
44011()I)O
Q41F203n
Q60C40')()
4 1F 0 A044
(1)EAf1014
I)I)OlJAOl
I)')FFqAOI
3 () '" '1 1 f'44
q140?r)?4
47Fr)Q()R4
4nllllf))f)
96?()10,)f')
41F()An7n
02')11024
FFFF('700
1 ~'5F')R?1
47FO,)01O
nt') 't 1"411 1
'• .11)00000
131)05120
,)()"I"I,)fFC
O~ (,(v)nI)O
CJ01(V"6
7F ()()'52() 0
4,)OOOORl
onOQon()o
01"000'10
(,()OO306h
onOlF41A
()lOC'5,?Q
1')0000000
'lOOOC'OOt')
OOOO'f)39
)'1? no 1 ()I)
nl)onOOI=O
1')1)00117,)
Ol)OlF7DA
OI)()nI)OOf)
F,)(Sf)4Cl
F1FI)F,)C 1
O",)O'51AA
OOr)I"I,) 2 IF
n()nOOlh4
nt')n()5I)nR
( 3'1QnAI)t')
5A'5200,)O
C 04An 7')0
OOOCOO72
OOOOOR1'\
00021')000
(3C AC ll)q
47FOFO?"
QOFCOOf)C
'5(420004
47FOC04?
r)OOC41FO
h901FS,)()
OOOC"OO80
OOOOI)O()?
1FOOOOOO
()I')OOOOOI)
Cg(7(7F)
<11407,1124
It f) 0 0 4 7 ~ ')
1')()143I')
30?F?"l?
1')10')')41
L,(1ll"\4r:')-3
')1"'I~lFlf)A
lf~ 2,~
ql PO
4~~(\?!)3E
It\6')4'1~4
19741A41
191,)lR,),)
')')0DFOll)
4740,)Ol'i
()A371?FF
SAF,)204A
471')8')70
4 7F I) 9,17 4
'lOl10(1)C
)101F14A
1 8 1 '. 4 1 0 I)
47R()501n
Itl 01 F 4 C' 0
')O()lF43()
If)00()C:FC
04r,IFCQr.
0I)JIOOf)()
OOl)lnf')OO
')"O')1FFC
CAOI)OOOI)
(?(2C2Cl
QI()~?()24
~f,,,)24f)OO
')lFOOJFI)
('1 ') 0 51') 0
')0!)1)2F QA
FFn')()o()()
C300')7FFO
OOOlrJ4R
49nlF'1RE
D6C,1= 2C 1
0004'1)10
':1"1 '35')')0
4101,)04R
n()OlFFRR
n;'lor,4C 4(')
700nS01A
_'\ f) " J n Y) H
4')OIFld~
C)')lCFI') 11
41s')')()nR
F07CQ14R
3"104?10
F;'")A4
"->
01F840
o IF €ibO
01F890
01F8AO
"1 F 8C 0
01FBFO
OlF90'"
o IF9 20
o IF941)
OlF960
01F980
01F9A"
f') 1 F9C 0
JIF9ECl
0IFA,)O
0IFl\~O
OlF,"l4n
()lFAfJO
('IF\80
OlFA!\O
011=A(0
C'IFAFO
OIF~()r
0IF~2(,
ClIF~40
01F~60
Oho nrnC'1
110000(1)0
0001(1)''11
00000,)0·)
OlOOC'OOO
31,)lF777
OROl F 13 t1
OCo('')ooo
4122')n1)0
F()3h92AR
OOOlF06'3
C9C 1C 1FO
F01Rf)204
OOORF010
1=02~'177F
C9C7C7F~
CI)Ol19101
603F8R4'1
5017001'3
')1)1 44 74"
98F6f)014
C:;Q403029
41'.40("108
103041C:;,)
9A80V)10
00)aF11'"
n02F44hO
I)O"807FF
9·1E~OOJ '.
0')')S5')I)1
4780131?h
O)(,'OlC4 n
,)110()()1)1) 1
OnOl006C
07CO()043
000 l;PC 0
4000"')0C:;
')"('1)0001)
4C'(,lF17,)
41A')1)01)8
21"l2Q94CF
0001Fsn9
F 1 F9C 3C "3
"307B2()()R
()101FR2R
9601Z,)()C
F 1 F9C 3C 2
50V147Rn
10034144
9£,('I4Z00'')
'l'19·Vt 112
1)7FcQ10')
4951302~
91C'~2")24
3 "'31C:; OC:;Q
4ll()3,)OR
01nlF9AA
F()3C47Rn
910!)4")2C
188F5i3?1
101")';1)1"
9'1 A:)2030
OO,)O51l')
4000?A4C
OR')OOOfl
F(01371)()
0OlFI)OO1
OS01F7?0
1)1,f11F618
OOOlFFOO
lR2A9180
402(41A2
O("HFR4]
O,)3COB00
OOOCHIF8
00000000
00'180000
R8000008
000011000
00aOOlOl)
400')0008
700041AO
007850A2
FP10024f)C
('Il'1lF7F0
C'A"007FE
41)4241d'1
96 ::".20 00
OI"IFA70
0'10('114'1
1,"'4Q 1 V+4
4112"'OI')A
n,)f)1CAJI
OOC'IFB'5R
91(,)?'124
O1,'l04364
2n124780
070007JO
41A()('I008
71?R94CF
OC("l 1 1=99'1
1)'108'l~3'1
2()44')Rl~
0'1()CIC\,)5
QlCI)10,)C:;
4 340204·1
41fl)A074
f)1I"lC24A~
·)'1'16FOI0
4113')OOR
017f419')
96CO'+ ') 2C
onl'lFOI"
"'084'5All
000141FC'
4743000')
0'1'14410'1
')-')() 1 F 9 'H1
43601'110
41AOF,)36
10lR9131
().\",,,n7FE
41221)000
F~·3692Bf3
'lRI=O?"4C
4~4n204"3
lA141h4~
Ql?O?1)11
4780R")R{)
91A"II)'14
5')302044
91702011
94F041')')')
81 K9f-141)
Of}}IFFA()
00')R5831
'.) 1 2 'J 1 '" ') 'i
"'5FFQ:3FR
4 1F a R 10J
47f.C'R"H,)
4'3AIO('1(lA
f)0141)11=F
41031")')1')
5043nOl~
Q14010~')
f)IF~80
1~1?1801
01FRA"
C'IFRCG
}IFR[n
J 1 FC 1)1)
01FC20
01FC40
01FC60
01FCAO
OlFCI\"
o IFccn
01 FC F 0
alF)Of)
,)IF,)20
")')1 0 JA37
FF840033
'1')0(') 00') 8
69')lFr;7A
'1001F(41
41':'II=C40
,100(01)')0
nOO"'OFFC
1)41)1FCt:C
')00100'10
:.11 Fr160
41l1>11)~")
203 ")4 7F ()
'1001FQf'i
001.11841
4AC',)5I)OA
9AE·Rr)C'14
4001)2F 14
,)l1oO,,)'1n?
"OI11FO~'"
1R010,)0'"
7F o '1,1') '1 I"l
)0011')1)0'1
,)I)OI1=8?A
480')1)')0'1
~'l141A'51
Cqr 7( 7F'l
917F4000
QI"lOII)04"
"7FF0700
03"1031\1
OOOO?lRA
0C'110241"lA
4,)0IFC3~
100()nO"l"
A8004F 1C
0000(\::1=(
0")1),),)1)01)
5~AlI)O"C
47F OAOA4
4~402042
'i0'"l~001R
4710811R
IQ120hlQ
Fl1=9C2C7
4710,)04C
411100'10
070007JO
OO"1F530
o 00 f)1"l f') A0
00"0,)'10('1
OO'1114f)AC
7F"1')"'4F'3~
40(\0()0
1851C:;A?0
50445R22
()O"lOA,)l
12444740
94803004
41~70028
60764740
609091FE
5012000(
47F0602C
0101f920
OOlOFOIO
47AOF024
4850F022
30304050
30364260
9240302C
92002012
CCJC 1C1Ft')
F1t=9C303
F036941F
200043A2
00484122
"01850AO
O')2AFOIO
0201FAOO
002494RF
2030ltl03
41808044
91802030
30001844
30009640
47R080AO
91402024
47F08084
48630006
1)0060202
40011000
96203000
CJ401300a
947F2030
47F08010
CJ60(4000
02013024
41FOR044
FFFF0100
181)F5821
90E80(,14
47F05010
OOOlOAO\
00404111
05EF9801
00l}COO12
00002070
OOOlF630
00000002
0,.,000000
0001F5fO
1F0040f8
aoonoooo
()2004EF8
20000050
00004024
4001FC70
OOOOOEfC
OOOOI')EFC
040001AO
OCOOOOOO
33001254
t)201FC18
I)OOOOfFC
0001F9A8
')(00001"10
01)000180
93001284
0201Fcn8
"'1)0"502Q
OI)O')OC')/)
~OOO'f)10
')0('100')02
00004C40
0001FF4C
'1 n11
f')("JI"lF5f("J
10000000
l)o"nOOOt)
010')0000
OOt"lFFBA
61)OO201fl
Ph(";"F""
-0
Q
...,
(I1fn.:3,)
OlF)I\O
OlFOCO
01f="1F"
OIFcOO
OlFf2C
I
......,
W
00~G?4C)R
~91)1F5,)C
nOoon!)')!)
o I')()O I') 103
OOOOQI')f)1)
!)OOI)Rr:S0
OOOO()100
:)0001)1')')f)
lFOlf=FO,)
O,)OlI=F4(
J'll") f)f)')"
I")O""lr~4"
o,):)()o()!')n
nIF~AO
001')4FS~
F.Nr) (If=
01
nOo()r.ORI')
o 1 f= c: Il C
OIFFHO
GIFFCO
OlrEFO
01 F ~ 00
(')lFf=?O
()IFF40
01t-:f=60
OIr-F'W
1')1FFI\O
,)lFJ:CO
OlFFEO
»
()OOO21R8
~
4')001\(7A
I) () nne 1"') ')
l~:')rA~)"')
,)OO10a")
r)0000"f),)
404041')4()
C 2C 50')( 4
14f)"n10'1
0001FERH
01,)lFF4C
r)'J ~ P
'1"0'J"')oa
f)O,)lI=FIC
0nCIC""f=1(
OOC0'1·11)()
l')O·lnnO(!
') n f) 1 ') () ')()
nOf)')"'o,)n
14,)411')n
')OO-~'lhOn
,)QC')CIC4
,)OO,)240R
t)f)
0 "'P
~~8
010"003C
OO()lFA34
')1)'10,)FFC
()F()()OOn"
,)4003')')n
H')1')013FC
4000A(7A
0!')1)00()Or)
O()O,)OEF(
n0.I),)01"f)
':lW"l(H 3Fr
()'''If)('1f)f= R
'lor'll FFI)C
()ooonoon
(')()()I)i)FJ:C
'11)"0"000
o n (HV) I) I) 0
00rlF"f=74
f70Qr.lf=A
FF,)54,)0(
0') I')f'I 1")0 I) 1
0" ()l r F 4C
'1')onl)"'lOO
0('100n()o')
1):"l1)(,')f'I()1)
n () ') "'l ,1 0 C0
I)lDA(2fH
HO,)012R4
(SDQ4'J4()
4,)004(F0
()("f)('10Q,)
41404040
Oc)'11FJ:fjR
0')0f)4C40
40'1n41100
I)nOOI)OOO
')1')"lFf=14
nOf)4,='J"O
,)nOlF,)FO
0()l')lFF4C
')l)n00(,""
,)f)r')nf'l()()0
')f)('IO""':'1')
O(\()()"O'1(,
4"41"4')4(\
(' 11 " 0') 0 '1 0
DIn 70 ':\4 ')
')OOO!,)O!')J
f)"onf)')f)')
1')f)()')f)J:FC
400()I)OO()
'V)I')~I)I)? 8
1')')00"F4A
'10ClOC;~f)O
"'l')n024n"
')~O')?'3~q
Jonf'l,)Ooo
')O():')'1n00
CIC2f)1C5
'),)O"'10()()
C7n6C7,)F,
7",)1')'50 V~
"'ooonOI)()
()""rf'fFC
ooooao!')')
OOO?O190
f)I')000 1 An
I)OOOOO()()
100n502R
O"O()()(H~ 0
')0000000
,)OlA80')O
40404040
000f)OOOO
4040404"
r: qr ?4040
')1)1')~Oql')'1
R~O')11f=r:
140f)Of)Of)
14000"1)0.
'1,)n4n7"1)
f)7DQCQO')
A00012C;t.
')f)()lFFIC
4()'10l'.C7 A
F1( C;f)Q4n
')I')noooo')
f)OO()OO6C
,)()OlFI=,)C
10040400
00f)0"lRl
nOOOOlRl
r)OOlFF4C
I))OO,)O~O
n00nn"nc
(1)000000
J:t=FI=J:t=t=t=
Of)O()OO3C
00000000
OOOl~r)EC
AOt"lFF27
00000000
4f}404040
E2EBE2Cl
~OOO1284
oo~onooo
00004C40
00('00180
COMPlffIO~
..,o"
IEF2851
cnOE - SYSTFM=OOC USER=0444
SYSl.JOBlIR
VOL SER NOS= Ollg02.
SYSOUT
I EF 2 8 5 I
VOL
IEF2851
SYSOUT
VOL SER
IEF2851
IEF2~5I
IEF28~1
SF Q NI) S=
~OS=
KFPT
sYsnUf
SYSOUT
ANSWERS TO
DEBUGGING CONCEPTS QUESTIONS
1.
Requirements
Need a "SYSABEND DD" card
3 ways to initiate
2.
a.
Issuing a "CANCEL jobname, DUMP?" command.
b.
Executing an "ABEND" id, DUMP" macro.
c.
Executing an operation that cause a program
interrupt or violates OS requirements.
a. The user
b.
The 0444 is first positional parameter of the
user's ABEND macro.
3.
One should look at the TIOT
4.
JOBLIB
SYSABEND
PRINTER
READER
5.
a.
1284
b.
1254
c.
1284
d.
13FC
6.
7.
8.
a. ODE
b.
DOC
c.
ODE
d.
192
The DEB's in the DEB chain reflect opened data sets.
Each of these DEB's points to a DCB. After "OPEN,"
the DCB points to the TIOT. From the TIOT one can
determine the DD names associated with the data set.
(The address is as close as one can get to identifying the data set from the dump).
DEB
1 fiSc
1FC9C
1FCFC
lFDEC
Part"
DCB
5150(+16)
4D6C (+16)
4D24 (+16)
lFEDO
A 15-25
ddname in TIOT
SYSABEND
READER
PRINTER
JOBLIB
9.
4CDO (obtained from bytes 128-131 of CVT).
10.
IFFFF (obtained from bytes 164-167 of CVT).
11.
a.
176 bytes
b.
LPLB
c.
40 bytes
d.
A001 and A002 are PRB's. A LPRB needs two
extra words to facilitate the forward and
backward chainning of the Load List.
a.
It points to the address of an LPRB describing
an entry identified via the IDENTIFY macro.
b.
Because the IDENTIFY macro was used in CSECT
ABLE.
12.
13.
It is "b3" because there have been 3 less DELETES
for CHARLIE than there were LOADS.
14.
RB for AOOs
15.
For SVC B (ABEND).
16.
CHARLIE
17.
No (If it had a ESA the RB would have been longer
than 96 bytes).
lB.
920 bytes (it goes into the svctransient area which
is 1024 bytes in length.
19.
1024 bytes
20.
2D70 (Can determine this by looking at the Entry
Point for any SVC routine).
21.
a. The "PSW" is all zero's because no program has
either used this module of if it was used it
never was interrupted which would require storing
of the Resume PSW.
b.
22.
Part II
These can only operate under the RB of the
module which calls L002-LOOB. These modules
are branched to by a type 1 linkage.
These are all data management modules which were
loaded because of an OPEN.
A 15-26
23.
a.
The programmer who produced the module (although)
asembler For Testran can determine that the
module have this attribute, it is the programmer
who must assign it).
b.
Linkage Editor time (Parm field of the EXEX
statement).
24.
Start with the pointer to the CVT in location Hex
10. The first word in CVT points to the TCB. The
forst wprd om tje TCB points to top RB of the
list.
25.
1 FE88
26.
a.
Into the second word.
b.
The High Save Area (HSA).
c.
000 1 FE 8 8 .
a.
"They" knew INFOFROMIDFIELDOF SAVE MACRO was
the entry point because it was so specified in
the SAVE macro in CSECT CHARLIE.
b.
The "00222" cane form the LINK macro in CSECT
BAKER
a.
Six.
b.
Operation, Addressing, Specification, Data,
Fixed-point overflow significance.
c.
Hex 5110
d.
Module BAKER.
27.
28.
29.
Location Hex 14 contains address 3ADB which is
pointer to trace table description.
Hex 4190 Last Entry
Hex 3BOO Table Begin
Hex 4780 Table End
Table End - Table Begin = Hex C80 = 3200 bytes.
AT 32 bytes/entry the table can hold 100 entries.
30.
Part II
Bit 13=1
Bit 16-19= 0001
Result is that the last entry is an SVC 10. Register
1 contains and address at the top of core and not
with in the limits of any RB so that is a FREEMAIN.
A 15-27
31.
32.
Part II
a.
BASM
b.
lFC40
c.
lFC70
d.
Channel End
e.
120
a.
No. The contents of DCBBUFNO contains 00 in
the DCB for the READER (location 4DBO).
h.
FO (location 4EFB).
A15-28
* *
JO~
-
*
A R () tJ M P R E Q lJ F S T F
JPl
f)
* * *
STEP r.nGfJ
DATE 66179
""'C
o-s
COMPLETION COOF
U<;FR
= 0444
PSW UPON ENTRY TO AAENO FFOSnOOn
IH\ OlF4CA
TCI3
000180
MSS
0000317n
PK/FLGS a0910400
P)/FSA
0401FfB8
TCA 000000
PIF
PICA
()OOlF6~4
4901F~BF
PIE
Ol~nAp;
01F45(
00000000
T..,f 003184
OE~
T [rJ T !' IFF 4C
LLS OlF518
FL~S/LDP
PSW 00010000 00000000
14 f)000000 n
IS OOOOOOQO
,..,000000r
J<;F nClf)noooo
0001BC
Jl R (H F P)O
C~P
00 00000000
T( f\1
01 oonooooo
01 00000000
ACTIVE RRS
AOOl 004(00
NM ABLE
SlIST~A
on6710(()
llSE/fP 00004CFO
P<;W FF050006 70004E'i2
0 01FE60
WT/LNK oaoaOIAO
US
NM AAKfR
S!ISTA~
on?90040
USf/FD ooon502R
PSW FF050r06
6900~nA6
0 conoon
Wi/lNK onn04COO
UR 005150
A003 01F510
NM
SZISTA~
0016?G40
USE/FP ""1nlFSS()
P<;W FF05000n
4q01F~F\E
Q Ol)onoo
WT/lNK 000050QA
UR 0lF5En
A004 OIFBBO
REGS 0-7
REGS 8-15
NM S VC-4;) lC
SllSTA9 0()OC0072 USE/FP 00002070
81)(),)01AC
I)OOlF()30
0000f)Q4A
OOOOOO!'?
f)OOOnf)OO
400/)AC7A
OI)OlF'5EO
0000003C
PSw FFn40033 40002F14 Q AI03Al
WT/l~K OO()lf~10
Of)000008
00(001)02
000023R~
000000A0
6901F516
000lF060
00002408
00000000
A0 O'i 0 I F 4C 8
REGS 0-1
REGS 8-15
NM SVC-IOSA
~lIS~AB 000C0012
USF/EP 00007070
oo()onR78
4000;?f112
00000l)EO
000051A8
OOonOI~1)
00020000
0000'521F
000031 70
PSW FF04000E 00f)lFl6C
Q OF03nF
WT/lNK oon1F~F\O
1)0000000
OOOlF098
OOOO~150
80002fFO
OOOOOlAO
0000'51B8
50002F9A
000lF148
A002
00~008
CHA~LIF
OO~OOA
LOAD LIST
SIISTAB 0004FOOO
USE/EP OOOOSOOO
IGG019AA
SllSTAA OOf)OFOIO
USE/EP
l003 01F9FO
NM IGGOl9BA
SllSTAB 0f)24FOIO
USE/EP 0201FAOO
Uf3 01FB40
LOl)4 OlF998
NM IGG019Cl
SllSTAB OOOAFOIO
USE/FP 010lF9A8
UB
L005 01F910
NM IGG019CE
SIISTAB OOIOFOIO
USE/EP 010lf970
U8 0lF99n
Ol~860
NM IGGOl9CB
SllSTAB I)015FOll)
USE/EP 0101F870
UB 01F90A
L007 OlF818
NM IGG019CK
SIISTAB 0l)08FOIO
USE/EP OlOlf82Q
UB
L008 OlF7EO
NM IGG019CC
SIISTAB on06F010
USE/ED OlOlF7fO
UA OlF810
l009 OlF530
NM CHARLIE
SIISTAA 00162040
USE/EP 0301F550
lOOl OlFF68
NM XRAY
L002 01FB4A
N~
l006
PSW 00000000 00000000
0 000000
WT/lNK ooooonoo
U~
02()lF~58
PSW
fFO~OOOO
4901F58E
Q 000000
OlFRAO
OlF9F~
01F8r;~
W,/LNK 00005008
U8 01F5EO
PAGE 0002
.."
0
"""
<;AVF AR fA TRACE
WAS ENTERE!)
ABLE
S 1\ 0001 FFFq~
00 10000030
07 OaOOOOR")
RAKER
[E
ABl E
lJ1
I
w
WD 1 FF ,') 5400r
01 00,),) 4F 5 A
08 (11)')CO":\C
HSA on')! J=J=l3q
02 00'J1FFIC
09 4n10l\C71\
FP
WOl O,)!')(')5150
01 O)11F630
C8 0),)00,)03C
HSA
A~LF
LSA 1001FFRQ
01 ,)OO()01R1
If) (I()OIFF')(
r=p
PFT ,)t1!,)02408
'14 01)/)'14(40
1 1 OOfJtFF4C
FP 40004CFO
OC; r)COIFF4C
12 000001Rf)
06 Of)OO?lR8
Save Area provided
by System
RET 0OO0240A
1)4 00004C40
1 1 on01FF4C
EP 70005028
OC; OOOlFF4C
12 40004000
06 ')OO023SQ
Save Area provided
by ABLE
FP 6901F5'50
1)5 O"OIFF4C
17 70005018
06 OO'1023R8
Save Area provided
by BAKER
06 4""OAC7A
Save Area provi ded
by CHARLIE
RAK FR
n"Olr-C;I=O
03 o ()(')O ')00 1
10 OOOlFF(,(
L~A
WAS ENTFREf), VIA LINK 0022?, AT EP
SA 0001F5EO
00 00OlF5C;0
01 00000080
»
HSA 1)0')00")'10
02 I")OI)O.')f)~C
nq 4"')OAC 1A
WAS ENTEQED, VIA LINK 0'1111, t\T
SA OOOlFfAA
00 FFFFFFFF
01 00OO00RO
CHARL
1 O')()O')l R1
01 0101FFIC
OR 0') I) ,) 0 () 3 C
\11)
AT
J~FOFRO~IOFrFlDnF<;AVEMACRO
LSl\ ,)()OlFD60
'13 '1orOf)O,)2
10 1)001FFOC
RET OOnf)24I)A
')4 nrOl)4C40
1 1 000"0000
HSA ''()()IF,)E,)
02 0001F F 4C
()9 70')0C;')~R
LSt\ OOJIFSC;O
~ET
01 (')000?3138
10 ')/)OlF5FO
00OlF628
04 Of'OOOOBO
11 00002408
HSA I~CqD5Cf>
02 C 3r>Qn60a
('Q a0081131)1
LSA OhChnQD6
"3 QOFCI)OOC
IJ C;8,)200(lO
RET 04CQC4C6
04 05(')1821
1 L c;C 420')'14
0f)JIFfg~
02 onO'14FC;A
09 40,)OAC7A
WAS FNTERF:f1, VIA (tiLL
SA 0001F060
00 00000002
07 0001FFOC
Wf)l FJ=056QlC
01 01004C4 C
OR ('1,)00000,)
0
INCORRECT BACK CHA IN
SA 0001F550
00 06C6E2C 1
07 OA OA ') OOt
WOl 47FOF020
01 E,)( 504C 1
Oli 00045010
INTERRUPT AT OlF'58E
PROCEEDING BACK VIA REG 13
ABLE
wAS ENTfRE[)' VIA CALL
SA OOOlFD60
00 00000002
07 0001FFOC
CHARLIE
WOl FF()56QlC
01 00004C40
08 ')0000000
EP CQC503C4
05 41000048
12 50'520"'C"
06 4'510COOA
nile Dump assumed that ABLE was entered & used this Save area because
Word 5 (EP location of Save area) contains a valid address which falls
within the boundary limits described by the Request Block for ABLE. This
Save area was allocated from the top of core (from the free area) to satisfy
a GETMAI N request .~he allocated core storage is not cleared and therefore may contain the resi' ual information.
HSA OO'JIF'5EO
02 000 IFF 4C
09 70005038
lSA 0001F5'50
03 000O~3A8
10 OOOtF5F0
RET ,)OOlF628
04 00000080
1 1 00002408
06 4000AC1A
WAS ENTERED, VIA LINK 0')222, AT EP INFOFROMIDFIELDOFSAVfMACRO
SA 0001F5EO
00 0001F550
07 00000080
WDI 0')on')150
01 ()i)O 1 F 630
08 0OOOO03C
HSA OOOlFFQ8
02 00)J4F58
09 40,)OAC1A
LSA f)OOIF06()
03 OOOOOO();>
10 OOOlFFOC
RFT 00002408
04 O'FH'4C40
11 00000000
FP 6QOlF'550
05 000lFF4C
12 10005038
06 00OO23R8
REGDl FNTRY TO A~ENO
REG 0-7
00000048
REG A-IS
0000003C
"'tI
-
a...,
»
01
I
w
800001BC
4000AC7A
000000
OOOOOSIC
00000000
000020
FF040001
4001F36C
000040
08000000
0001F43R
000060
r)0000346
00040000
000080
OOOOIJOOO
01000007
OOOOOI'}OO
OOOOAO
00000000
LINES 0000eo-000120 SAMf AS ABOV~
000140
00000000
00000000
1)0000000
00000000
000160
0001FDA8
000180
0001 F4C A
00CIF528
OO.JIAO
00000000
1)000,26E
50002()02
OOOlCO
0000c)33C
0001fO
00f)0533C
6000570b
000200
OOOlFF24
0OOO3l8E
000OlA40
000220
00002118
000240
0000203A
02,F9029
02 8096F a
000260
05B9S8'l0
58900254
000280
9tF002b~
98290100
0002AO
£)2070440
0002(0
90AI021C
91800018
94F09011
OOO?~O
002858BO
000300
01FC98cn
01CB9280
100012AA
000320
f)02847f)0
000340
01FC8200
,)23C43A9
OJEA9889
000360
47A0030E
49A002,)C
000380
03470022
05E6D400
OOOlAO
90AI01BO
47400388
0003CO
58Cr)0244
40300400
OOOlEO
00005200
00000001
000400
00000000
00000008
000420
00Otf36C
FF04000E
000440
10004790
01f891~1
000460
91881000
581001F8
000480
82000440
04B204~6
0004AO
FF 0004CO
FFOO04CO
0004CO
D1020481
92F00449
0004EO
90290400
41F 004F. 0
000500
OitC 01000
04C4D203
000520
06144910
04BE4780
000540
056E94FE
000')60
10034780
18,)647FO
4780058A
000S80
400R4150
1008960C
0005AO
01904770
10009101
0005CO
ItOOB0202
01B09640
OOOSEO
06B658F 0
401041EO
000600
FOFOfOC 1
C9C7C5FO
000620
00OlFB38
00000001
000640
OOOlFAon
0001FA4A
000660
41400620
00002656
000680
06244180
0624S0fO
0006AO
Ol)0C23QQ
On0024')A
00('00')80
f'lOoooono
00003AOR
OOOOOOnt)
00000')00
00000nE2
00000000
00000000
00000001')
FF06000F
nOt)40000
0004000')
OOt)OOOOO
nOOI)OOOO
00000r)00
onnlF36C
00000284
00OO025E
O,)OOOOOi)
00000000
0000000r)
00000000
00000000
000051A8
0000000"
00000000
00003170
SOOQ2012
1)0001)200
00003181t
00005078
00000000
0OO03A10
94f0401t
41FOO280
91F00268
00000207
00001C58
90C2A004
002C41EO
00239546
584004BIt
96F00341
82000020
002247FO
04200Af)O
OOOO1513C
5000526E
COIC4110
41F0049A
010098Al
0OOOO48A
40104000
r;OlOAOOO
12114740
05144810
10005820
401A4860
053A47FO
05AA5010
402001C8
40114110
98290400
00001520
00000050
50008480
600845FO
ItEOOOOOO
00000000
00000000
00910400
00005188
OOOlF348
0001FfE4
OOOlFOAO
00002070
00114100
90AI0180
940F07.t;F
478002CE
90100018
OA0390A9
181A58AO
0001F5~0
00000002
oonooooo
00000008
69"lFc)16
00000002
0001F060
fOfOFSCl
fFOSOl)06
OOOlF42R
00040000
000500t)0
00000000
000023B9
OOOOFFOO
6309t09f
00020000
00000000
00000000
CVTt
Trace Tablet
OCODOF11
40000003
0()0023B8
000002FE
oooooaoo
00000000
onoooooo
00000000
0001F4,)C
OoolFEDn
aOOOOOol
00000008
OOOO,DF8
00000001
00002000
01D04100
024C41FIJ
47800448
001R41FO
418002F2
02S09101
100098FO
OlO6900F
AOO0418,\
lEB8fl202
417003B8
58AOO180
01FC4AIO
00005150
00003110
41000504
049A9029
4170049A
OOOOt 08£.
12114140
04BI01FE
91400628
41100537
04RC0201
lO0347FO
0c)1A4010
40185860
053A1801
40100181
400C,)800
0004AOOO
0OO1FB84
0001FE28
')0104018
044C58BO
00000000
01)000000
OOl)lfF4C
00000000
O()001)200
OOOOOOf)O
6001FAOA
4000?R4C
O()OOl,)OO
078E5840
OBCf.t90Al
9AAI021C
02E45890
582002F8
0029018A
AOO08900
04005890
AOOOIABA
0249BOOO
982f0408
0201AOI0
00224110
0001F408
')0003134
00000000
800001RC
00003110
00005150
0401FfBA
00000001
00003592
000019C8
01800201
021C0201
82000440
04B490Al
052241FO
58AOOIR4
COOO1200
025805B9
418003EA
91078002
95000482
002047fO
If 008910
00005200
50002012
fl20101t40
OltA80523
583004AC
00000180
04BC020 1
04C4020'l
90290100
10004590
4170055A
053A5840
10009101
478005RA
9140400B
D202lt015
018C07f9
FF040190
0OO1P838
00000180
48610002
06200588
00OlF630
000051A~
58C00180
')1005830
90290100
00001CI0
04EC48AO
Ilt15SAO
4710044C
020304C4
04BAIOOO
06844190
50004060
50001266
58101004
50400180
40009001
00002~EO
0001FC68
0001FE28
4')900500
068041AO
TCB
I
0001~40B
00000000
00002410
00000180
00003A 86
40100038
04400038
90290100
90'105899
029COOOO
12-'A07C'3
01RB50FO
1 BAA43 AO
58300010
4110030E
478003BC
044892FF
000C9888
0001F348
000051B8
COI09500
98290100
05239829
00000180
1000AOOO
10nOAOOO
581004CO
059E41FO
1)20104BC
200841')0
01904170
185647FO
07790221
40009101
920004420
001'>40
001560
OOl'5QO
001'5AO
00 I'5C 0
001,EO
00160('
001620
001640
001660
0016~0
»
,
01
w
~
on16AO
0016(0
00161:C
')01 700
001720
001740
001760
001180
0017A,)
0017CO
OJ17EO
Or'llROO
001820
001840
1)01"60
0018130
0018AO
001 AC 0
0018EO
001900
001920
001940
0,)196()
O1)19~0
001940
0019CO
0019E 0
OOlAOO
001420
OOlA40
001A60
001A80
0014AO
OOlACO
00 lA EO
001HOO
001B20
001840
1)000001)0
10(081)01
0020FFAO
FOFI0800
FF009,)98
1,14132C
()f)OO()OOI)
FFOOOOOO
I,RCOOI)O
oooooo')n
FFOOOOOO
00010(100
004000('l')
00000aOl)
0')1)00030
20000000
10114;)lC
t:'F050')oa
50204004
80FF6017
41FF0004
017C9'5EO
89000003
071C,)A19
FFFFFFFF
92FOB,)F,)
91COI008
477080C4
1 F921 Q4l
47EOBOA4
47F0BOC4
lS58583'5
fHI05861
B20641FO
R20447AO
162517?')
05~O4140
82084144
')8330000
1554478')
R1D658,)l
B 11841EO
07FC 000')
00000207
5 800F 0')6
OOOOlf368
COS9071E
o 104400C
onOlfFlO
Of'l001)0r)4
00001A5A
5E090008
18B0888')
1 BAA 5 OAf)
F09947FO
00()()OOOO
260041')2')
07.8 0006
00000000
I)OOI)9'5BC
FF 0 I)') 120
15500000
nooooooo
I=FI')OO:)OO
1 'lA rV)080
00000000
')OO()I)OO')
()OOO'1I')OI)
00010:)00
OO"21)f)()1)
aooo~')('IO
'58FI)')0,C
f'l()O,)O;)")
r)11F?000
,)A (l3('lOOr'l
n7FCf)507
1017078C
'1?07E08A
·102')1211
0OOO16EA
4 11= ')A f) 3F
47108044
lR9f,)837
lq821F2A
C;0860004
1 ,)A 7470"
()OOO1865
00005866
000441FO
R140,)824
41220000
O11AIFB4
00001A83
12334170
Q1FS5014
1')0041E25
1)3A258(')1)
0001)1)')00
BOI00028
01Ff)4110
800(0000
9140F0313
0OOO1AAC
000053AO
OOOO,)2FS
00000180
4130F026
00015CAI)
F09618CA
F0568SDO
OOOOf)I)OO
0300')000
090C0200
00000000
14F(13FC
0000'5L44
FFOO,)OOO
1')140000
'')(1000000
FFOOOOOO
15040000
r)1)00'J1100
o')"ooooa
00001')002
01')0001)00
98016014
50F10014
,)560'5A7"
20rn58AO
O'5EOIAFF
AOOOI00A
91401013
1)(' 70 50 1 f)
f)78C47FO
05R01820
0'5804140
129941AO
0OO047FO
10225833
00"00000
E2C309E3
0'JF2F8F3
OOOO()OOO
fF009'598
15201284
CH)OOOOI')O
FFOOOOOO
159~OO10
Of'),)OOr)I)O
FFooo')or
0090t000
()':)('C'Of')I')O
OO()OOOOO
1')0'100000
OAOA020l
';01:500')8
4')04')890
?1)'10I)al0
9RCI)Ea9?
4170fO'1C
071C9RAB
f01360A04
F0444111
41CO(81)R
0r)21)1FB4
B04(9200
1,)5C"Or)"
OOOOOOOr)
FF()O"O,)O
15RCO,)OO
0000()O00
Of')Or)OOOO
()'1("lOf)OI)')
0('100000")
04t.'OOOOO
101C501C
980150?0
51)1(1222
2f)OO94FO
18 RI)4114
lRR~43Bl
10005('148
OC:;Ea9~9r
00OlF5f)0
1~904'56n
OI)OOOf)OO
14FC0844
FFO,)8B48
14F I) 1 32 C
10()lF4'5C
FF",10(01)
I,)AOOf)"O
0"f'0')()()0
FF000f')00
FFt:'F000,)
'10000000
01100000
,,)O')1000f)
00404000
5015!)OIC
"An V) 10r)
41106020
90140600
00245Ali
,)()148 7 BO
0000')084
EfHFIJ:\FF
FFf)4,)009
81401241
92aO~(,EI)
A0865R~3
(1)04419~
V)f)f)157A
00001816
47(108042
OO(,OlAc;')
,83300no
189347Ff)
122147QO
f')nOAA9c)0
lA19,0~1
AOC4lS7A
581\31')004
00001,16
03A?5821
('1004C)101
,8100484
58410004
41624000
18561863
414230')0
474011110
000()5891
002147fO
5837001A
4,)flOB120
47FOB184
15784180
000415041
07FA06CO
89100008
04A491FO
01FC4810
03A247FO
58CC001C
COS94110
4f')001ABE
00005418
OOOlFFR8
3058')81)9
4140F02A
F')921ROR
4BI0F060
41FOF030
~lA61855
FFOIF40~
I() 2 8 ?14 r) ('\ 6
92"('R081
807~4 7FO
41FO~OA4
000015024
50230004
04B4181C
05F 05 SCO
r)21FC030
OOF241EO
58C00010
011E9680
00040022
00000010
6000509E
Oc;F05890
,)500FOR6
F08E,)OAO
8CCOOO04
10001800
UCB's
OO?OFF81
C3C8,A00
lOO0801)1
lC:;f)813FC
00009'l8C
~1,)012qq
413300"0
,A441')0')')
58'5l0004
Alf)21561
000001FA
06C O:)6C 0
43100023
025F4770
002441f0
F02C41EO
9108CO~0
Fr)9013l1
0000(')000
0OO1F3044
000n,2A2
OOOO'5EOe)
,)EOOFf)8A
RAIOOOOI
12B84780
C6177138
~0'5092J:')
58610004
.- .... , .. c
1)90R020t)
OO()OOOOO
a~2AOOOO
oor08R6C
FFOiF44C
1')440000
00000000
FI='"OOOO,)O
1')"40000
000000("l0
FFOOl1000
I)()O,)0000
OlOOOOO()
00000000
40()OO300
02091008
10040040
Cf)OF1'>6
')F09~onl"'l
1F104711)
9 n FC:;5n60
F"Dn914')
qh~6?OO'"
F132'l01)?
11101AAF
l\n 60 f11()3
O()057F40
0020,)8BO
1 B66'l 06 A
OF101AIQ
1')16072f1
0l')n02469
16f,9()f)16
,') 1C4'lFfH
04Jl50RZ
01021E1E
OCClr)401
0()015~A(,
C048'lQFO
!J?COIOOA
1EI\A5fAC'
QA{)OOOO,
15F84180
,')()OOOOOC
If\qQl~11
41720002
5')~O!=15A
5 Fn91')f)f)4
f:08EIFIA
000011\58
00000FFF.
92'10n'6B
98Ar)FOAA
41F()F066
05F091A()
91) AOF 0 fh\
91AOCOI0
91FOl)347
07FF58AC
00000000
l,)n,,0782
18h65061
,)OOCQ~45
4 7FOF 01C
00045076
181647FO
l()()CIOIC
18119681
F 1 AE4 7F ()
'5A78Jf)()C
507f)FIQ?
4F60Flib
O"onf)'l{)()
1 864585 ('
5,)450()OC
4 740r}01 h
ooonl')f)')O
45001')000
4160FOIO
'lOf"lOI0FO
OOOa5A11
F018414()
')011006C
10f)05~lO
Ftt)A5~71
FOOOQI0l
lF74507A
1f3115070
416601")01
OOOOI")QOI")
f)()508AI)f)
47200026
5E4t')fJ1)67
OOOOlEOO
00001F18
If')004110
OrtOC41F"
f18E18·q2
'l~OQ00f)0
1l005EI)~
1184884F
OO()11F4')
C:;865f)OO8
5041)0062
0OOOlnF4
000"IE')O
F,)4C91A3
oonC4130
5AFOFlfJ2
4lAOOOO4
41FOF rt16
1Fll<)140
5EDC)()O()8
551nF 16?
05~21~I,J
()1FE20~a
lA~C:;lA17
5~70rl'16
FI'l4<)741
9A882000
501CfJ20i
5010?064
41000001
01)1)OOf)64
1000') 17F
()OOf"l04Rf)
InlEOOlF
(H,)2F0200
11AA0019
Af)000F9R
C21')0C171
04RI)5261
nRC247A1
0980Fnf)7
024R14RA
4()1S9602
976210f)B
(004')86"
41gf)07FF
CORClf\A')
0OOO70C4
4180FO~C
0000020'l
,)OOO4Cf)O
58600,,50
1')045045
1)5f 05860
OO,)OQI06
F"9C9110
c:; 0 11 OOf) A
21)f)R4110
41FOFOFA
OOlC58AO
oaOAIAFA
A06 nl\O" C'
('\f)I"'IOI110
F()2f9140
Of)()OO7Ff
lllAlR1C
(l22FO?OO
O~2?20()C'
IRC()41CC
471f)FOlE
OOJ~~qOO
OAOl6()01
04005FC 1
0f:\C34419
0641f1l9Q
l1AR41BO
4010,)~10
023FI021)
A0004760
14B011f)8
01)86000E
00002A'l"
1~f)047FO
4~60F116
41~OO01f)
8.s9~FOl~
5Rll,)OOO
'5'12047AO
,)AAOFI67
4140F()9a
5i3 F OFI1A
2000r)401")
<)6802000
20lf'lAOI0
1812lAA2
1AOI01FF.
(,0f)000f)1
Q601501C
OOrtOOf"lOO
20212223
00000'30
I)OOO24A9
39CFOOJh
()90f')EOO1
02COOC( 7
41AOFOl)0
F08f')aQO
41(OF07E
5810F162
I)~C45136
f)1)'lOOOOO
1300811113
FOO44110
4030505')
1)24R4800
qAO~OOO3
Q610'iOOA
0f)200100
OC;~2qaF'5
2()OO5020
5012000C
961020nl')
582030hR
1?qF03~B
onOOlC3"
43210000
07FF0103
2421:)2600
02003100
t)024AQOO
4QOO~QE7
03C15EEl
0301513C7
09C14491
4 7AOe O~ A
lElllEtl
102011300
101C5010
')02241)20
40'301018
9a015020
FlFOF5Cl
1~71~O11
000Cl861
FOf05840
~OAA5a70
9b8010(,O
Q6C'FFIIO
r.61?213~
41400048
90"61004
IF66~060
00000000
(612213B
AOO04110
F0lnlBt)O
c)240EOOl
F211C;060
59JOF11)E
30581)800
41FOF084
58240018
I\06041FO
<)1035020
I) Anc;O()20
41000048
o527. c11 06
00Q8Q680
00001C12
5(1)10000
04050607
27280212
00000032
24A90016
00 If lROO
09816007
0640E007
01415~01
4120COCO
41f"l110,)0
I)OOOFOOO
40(0181)1
COO845FO
40AO I'll A
q~O~5054
00002070
0008
C1064770
C;AROB020
06100AOO
02334038
0217F030
p,~GE
"..,
-
Q
002240
002?60
002?gn
n'12?AO
tl,)22C~
0022F"
002300
002320
002~40
»
-'
tJ1
I
W
0-
98n2f:00f.3
Cl,)49510
12f~R4770
C;01)0400f'
,)02A4R,),)
F05A9"OI
'lRROCOJ8
~') lRQa.? 1
,)RF O~fH)C
.,on')0024
1\00h4770
Cl"3A0203
91[I)V),)A
AOOAR9'1O
Ff)4R47Ff)
a58Qc))OE
1004')8"0
5'JF00r')~4
O()Jlt,C
0023RO
r)')23/\O
)023CO
O')~ 1 [ 0
0(24)0
O'1242C
002440
O'1?4nO
3,)?4AO
0024A0
41>j()C~,)4
1~9907~F
)~O')))()f'
0024C,)
~ZJI5')lR
0024E 0
0') 2') 'J ()
:)02520
002'540
')02C;60
002580
002') A0
002'5CO
0025FO
002600
)02621)
012640
orp6AO
0026AO
0026AO
AOOA4710
(2)O/\J14
201,)f1200
744E9140
5011\120?
47A07QPe
r")20350f')4
2CH iYH RO
00088900
000'30A09
A0(18471f)
0026Cr)
002 6E 0
0027')()
002720
002740
002760
()O2180
002 7A 0
002 7C 0
0027EO
00?800
0')2820
002840
002 R60
002~gl)
002'3AO
00?9CO
002 8E 0
002900
on6'11211
5,)70A016
:1 ,1 n " 2 9 4 ('
,JOOO 1206
,)OO0()FF~
1)1()f)1!)~4
00')0.')44'1
))'10'1~1')
471()F032
91R0"f)O~
4 7C 070~0
') 2,)' '5() 1 f)
71044A"2
710441()R
144F914')
71 729104
,)8R"IA018
tJA101004
')72A1177
,)COr)159'1
"00',)069l\
')"""'?656
')00') lr. 16
1)1)0))1'=?
Of)OOOI')00
9180"000
71Si~502
9830403C
C14E94EF
4f'68f)014
4770C17A
1)')1)31,914
0448r)5~3
c)AI)F'5020
024C5HB0
41FOCOCF
5~1()~OO')
4770C?OA
07FAOOO0
')O()0')OO0
000000f)O
n,\')1'17Ff
'1()OO15E2
00')O,)4RA
n')FI)18A"
4780F02A
IB761R63
'i"IA2('114
4()()B477':t
A0lf'''') 1 0
4;'OR
30')445S0
1"0847A,)
f)OO34112
47F()70f')
710C47FO
305'5C;1)'1"
Q6~O
82000020
A00~58BO
94BFAOOB
Q6f)?AOOR
r)A!)1191f)O
Cf)f)CnOfH'
OA"3CHOC
COf')alH6A
,)gnOA0,)O
'i01JAOIR
f)2 3 F403 0
1~F3147F':I
5BOROOOQ
.,~p ') (' I) 1 C
47P'(l7n92
703041B3
41""1)00'"
Q41F501'3
71('f,000R
70('A96RO
OO"OI)A()/\
4'58071BC
.)nOC'90~C
A01}1),)()~R
l)')osnc;07
()OO')'i844
71FA92()()
5')21 A') I") 1)
AOOCCOOO
n t )041 REE
101')90A04
Q1"1)502'1
07BQC;A!38
18A34R9S
928010')9
7C;3~C>?00
~,)00a26B
92F0f)1~B
9801')OQIJ
71AA5016
t\00')f)203
12Ff:4770
t,0324771
B9rV)r)l)l)l
lAAlf)71F
9?FF6010
60284780
7392Q?OO
41B0773q
6 "2 7D 21') 3
R79q122A
001')01200
601B74hC
9qf)I,)O~()
:1f)40,)R~'1
41W)73C >i
91C,)6,)~7
n132181~
744A47Ffi
,)80074RC
77180,)EF
()'~,)141FE
1101411~
')1
06 qq 1 ~
47I\07?,)F
41060018
71,)4Ql(,)2
0('),'11R'10
1l\O'31R4A
4(Kf')72q~
0600098')0
7~28n202
~')r.14~29
6027f)?'1?
602AAOO'1
f12J?6001
'i"l,)114Q4
Q82A61nc
47F,)73Q4
Qf.,1nfl,)lR
6'112478()
742E4lC'l')
01,)041EF
,)0~6aOll)
A01P6~35
74R00SfF
8RQ()l')f''' 1
478073fR
142f"Qll0
"AQ A4 780
tHOO41FF
1)')0CC;"10
74~019A3
001C91(0
1=\008922,)
C1689640
4780(196
CIB21RF4
Q201()241:\
C2285~10
AOO,\4140
"0120A09
40101RIl
4740CIAA
9S0QF030
185f)452n
IVH A4~7f)
'iSCOt)244
1~A61217
t)2000f)'0
477"'C224
47COf,24A
02 03~O()0
477 oq O()£\
C154129Q
OI')OOOf)f)O I 00000460
n0001Q?r:
00003 REO
'If)004C~0
n rH'04918
"')01) ':\6CA
00004C40
Of')OOlOC:;O
00004CO,)
()I') 0 0018 ()
I)Of'00000
FI)0~419()
!')O,.,AISF9
'iOAROOO'1
964n~ooo
71260201
?,)1347?"
4';8071C6
41F070~"
005n50~r;
1)0C;~964r)
AOO~f)2,,)1
C;OA5f)OlC
98CH'l020
Q600AOOA
5 f)/'H~Q4 '3 F
(Hl,)200A
47F07112
,}202401'5
r;RF5()0';C
47F0706C
20()R41R?
47A07104
458,)71C6
16'1F90f)1
458011C6
000041£\"
5AC 50000
71 C)405 70
7496SQ9')
12FF8799
92f'0600C
601CAaOf)
800071AB
58B30n5C
74425 RA6
47AQ72RC
'H9Q72f)A
91,FOA00A
731006no
Aoon0203
S4')074~f')
C' ,)C n 202
74B':'r)A')/\
50C6001,)
6,)lC91()2
73AB47F'J
9799716')
1J200Af)03
,)JO()4116
59,)074B4
AI').')D601'i
60324170
45~')71AC
921071151
Of)04')()AC
4 7F070BR
00004 7F ()
')I)OO4A99
5A6,)748A
41F07210
lAq()!)227
47F072R?
Q()2A61f)C
0024C;R~C
774641 CO
lR'JC1.,v)O
hO')O hON)
411007294
0OOO14~0
0()O0?472
F0124(1)")
9400f)f)lC
IBfE9C;07
7n4~laFa
I')
B~OO0')f)1
CVT
000A471')
47ROC19F
AO"1347QI')
058R 1 AC 4
91010021
95')CA ()()9
AO?04 7F 0
f)A2f307FF?
f'OOO?396
006617QF
OOOf)lnF8
477,)714C
72~441r:4
0010Qlf"~
91?'?~00f3
I')Of)l~~fF
()OO')II)F()
OO!)C'lRA8
'1')')02Q7(
Q00C'36?C
ooonnJ'10
(1)0142111\
1)00441A8
()JIO"841
71':2A799
721)C4160
91QQ7?4C
6020A('(lO
n2076'11C
1) 1 qc 1 ~ Ef
74~EA7QQ
18A55804
A01A4100
15044770
61')~747AO
Q1206032
581074Bf)
47707?FO
0"03 q 7q9
91016028
02091,032
lO'55Rono
5AAI)747C
1~FEI2FF
96101\(1')1\
91FF600C
74164116
74BAIBlI
')1004iEE
478"747A
47807~l~
74AAf)203
736B'H9<1
D7071:\001
4770745A
58B0747C
47807402
0')001)201
OAOR8799
010041EE
91FF6(10C
O~O~lRA?
91C02f'0A
00009120
58f3BOOIA
OOf)691FO
,)00045AO
00109620
OOOR43~A
58A40024
41BOOIRO
nOln4110
71F64770
41f36001C
A79972~A
879q73~E
411)60040
f)034A8RO
41060011
41£\OOOOA
lACA50C6
400AOOOA
02026001
603 '5AO 18
1)Q20203
'3000Qr}2A
AOOO1381
f)207BOnt')
0200026'3
600E7541,
A0025AIA
()OFE41Ef:=
47B0747~
COOE1~AO
10005070
4780C254
82000020
406050B4
58900484
000004(8
000011FA
00004C78
00004C50
00003208
OOOIFFFF
91408000
947FAOOO
C;O('lOFOOO
000291EO
AOIOC;018
C;05CAOI4
9100200A
41707456
200A4710
12884780
400A4710
11AC41FO
AOOA48AO
000(4188
12884788
181R~830
748C8199
14464780
50860008
0203A004
'58130054
05f:B982A
Of)0841CO
41000003
1AOA5600
00041ACO
0201AOOO
~OO98000
41B018C8
AOO0602A
610C4116
879Q73D6
AOOO0202
60009130
OA~f)9120
00lB41FO
OlO141EE
1)2000268
002~O,
."
C
-s
»
--
<.J1
I
w
.........
6001)0A')1)
4[)FF061F
C9C'5F6E2
')Of)n'JO,)')
oon9f)2'58
0100000"
0OOO297C
F 1 F qc V: 6
1100?A7F
00002214
4DFF('R3F
')02960
F 90 ('E ')D 9
002980
f)10()OQOO
OOl9AO
l)()nf)800r'l
002 9C ()
0000')000
0029EO
,)nOtFORO
002AOO
JOO()OOOO
002 AlO
600,)00,)'1
002440
Of'ln01000
O~"IFOl1"
,)02A('O
7F0()2f1'1~
10002V.R
001)')')')00
002ARO
f)FonOlf)A
nI')Of)"')I)()
O')~lf=nA()
C02.\AO
OG2ACO
0'.>OC,)40()
40nOOOFJO
')0001)01)')
002AEO
000('1000')
LINES 002B('f)-OO2AAO ~AMF AI) ABnVE
onoonn,)0
002BA0
JOOJC'OOO
OOI)')n180
,)0')0? ~~ R
002f3CC
')8AI00)4
48711"')07
OO?~EO
4R4;)J= 14R
002C 00
'5 ~ 4 "" ,"V) R
47W,)I="r=?
91n2A00C
00?f. 20
;?'10RQI')f\
701~471()
002C 40
O():?C (,0
,)OB62FI1'J
021(0742
9110/\()~~
4710(:136
002C80
47FOJ=f)O/\
5PDr\OOI4
002CAO
01)2(CO
OA031AQF
'1 AF 81044
Q61(1)1)7.C
47f-OFO(C
0,)2(EO
1.71!)F12(
9110AC,)R
1)02DOO
f)02C,)7FF
OOFD'5AFA
002c)20
002'14n
96()1AOOR
9604A008
')71)907J=F
A008410()
002060
4'55n()06')
1)21'11)177
002080
'l844001C
002D1\0
41tr'C01"
455'1f)1)60
0021)(0
4550C346
92r Jf) 1 70
0(21)EO
4'5'500060
Q10280t)')
4 71'0( 112
002Eoe
')8221')0('0
C13F.1812
00 2F 20
,)~1A(")n!)
f) 1101 A23
002E40
') A8 A()!) ('/+
18Q31'39R
002J=60
IBA~4,)5f)
n02J:80
't '5 '5 ac 1 h 2
I. lO!)c) IFf)
O()7.EAO
18150AO,\
OOC'4'5S9A
002J=(0
Cl145A8~
~14Al~')q
:) 7n 30 148
0021=[0
'11 4A 1 A1... 4
5D40C lAF
J02r-OO
'5>i'51)()1~4
07r='i987C
)1)7J= 20
')('704Q7[)
4R7nl)144
002F40
472 OC 2 8C
')1441?77
002 F60
,)14Cq241)
0021=80
1)14C412~
f) l1C 2nO')
C3t1hF3f>4
002FAO
'5(1)O11(
') A7'VH ~C
002J=CG
c),)qf)014(
412)OI4(
002FEn
) 1'.A Q9f,:)
0005'5A(,1)
00301)()
0030)1)
C 2~C/t"40
17884110
4 7J= nc ?8C
4870n14A
Q03040
,)14A47FO
C2F44'5'iO
103060
0')79
0OOO31F8
75P,F7,,7F
O,)OOAOOO
00OO0f)00
f)Of)029F30
f)F00797C
00Of)?9FC
OO()OO01'i
,)B()O?A?O
91= n 02A87
"C f)O')OOO
oon 1 F 3 A01
7CFF2C7r=
00002974
Or=OO?940
12nooooo
n4no~'l"0
FF()OOOf)1
OA "'),')f)nn
oo')nO')00
aOI)f'lOOf)R
48002A1n
OFOOO10~
oooo~aoo
~')n032FO
(V"OOOI)I') 1
000000 (),~
0nr'lOo,)oo
JOO300Rf)
f)O()0"1)00
OQ0000nO
on01F1AO
5a~n!)OI0
q 140 ~OOO
5R2R1070
F072qlCC
9'51J=fI()04
4 7 10r=136
Q620f)02C
(,'lCr=lAOA
'iRf)AOO14
OAOF'1An3
f)()f'R,)OOA
410000FO
0008(')001
(3C9455r1
4144"020
02(71)176
910R~OOO
'iR3V)000
47~OCOA4
19?347RO
47FO(OC8
0118QR51
1RIDOAOA
()f)081f'98
,)4'50C3~2
404f)0146
10(l718Q7
01444870
41FOCIA4
r11710276
f)(oc;fn 7C
17F4f1204
r=1r,4nI84
O13C5850
CIFA47Ff)
177747M)
C~OA4,)'lO
OOOlEEC)Q
0100e 35f)
12000"(,)0
04f)01550
Oo!)ooono
r.('f)0137C
FFOIFOqO
OOOOCB1R
OAOO7A40
f'l61J0nOnf)
1)0f)f'?q7t:
OOO(,H)O,)()
40007R4f.
00000000
f)nOOO000
OOOf')02f'(,)
""nlOO24
00000000
C"OO132C
ooooonoo
0000')000
t)f)OIF,)Bf)
00000000
6')(')1)00""
lOOf)()100
')Of)OOOOO
o')(')nOOOI)
00('1031f=R
')000000')
on(}onoo')
"0002910
80()OOOOa
000000110
00000017
00000000
OOOOOOlfl
00000000
1)006000')
9E002A~1
~01)00008
7r=00ooao
(lOOOOOOf)
00000000
02000000
00000000
0OOO29fC
00040000
00000000
00000000
f=~On00no
0(1)00001)
,)00"000n
f)OOI)O~OO
00,)f'VlOOO
I),)('IOOf)OO
oon029EO
9(':?4AOOJ
4 7qOFOV~
0OOO24~R
~,)()02'5F8
')0000000
7FOOOOOO
QICn.\OOO
504.\""18
n()094C[)()
r=13('189F
4110F11A
9110~01n
~OO')
Ft4A1~71)
9101AOOl)
.o600200Q
'5~FSa044
OC;CFO~8C
q4~F"OO,)
927FA004
9C;'7J: AO('l4
4110~11C
()OOAC;04~
1)01B921F
1~1)f)4~1)7
AO,),?47'in
477'1FI1F
961l)AI)nR
124447CI)
1~nR17r)f
943Fr102C
41f)(,OOFJ=
Q('If'AOO,)
C:;AF$3f)02C
0011\()OOrl
0()605R41
020A rn 7~
OAOFOA03
r=I)A44144
1 97C 7.F 16
940~AO()0
58f8007C
q50C~O"0
471 ('r. OR E
12314780
589An004
rl)FA5973
01FFf)OO8
f)5CnQ24f)
O('lnn4111
(V)F41 Qf)
f)OO841RI)
C) 88BOOr'l4
C150'5823
1 QR3412"
O()0041RO
18~75t\FJA
r)on45QA~
01'5q125'5
lRFA0An3
4"'1()( 167
lQ'5R4780
40'100144
41)'5 OC 1 n r=
01481277
5AAOO13C
n177fJl11
C2A8D20n
47AOC1~?
C~F64Iqf)
n177C1~n
70()Of)C'1'1
013C5~')()
Cl1\44~7f)
C7F441540
() 0 fl 04 'HH)
1F~q8,)89A
41FOC112
C1881A7A
17'5')4110
4c;'5I)OO"O
4780CIFC
4R90014A
4A70n14A
D182C3BB
F364f)17f)
o 184C 2A8
C3AEO£)1J:
0141\4177
CIFA4880
f)14406AO
96 t H
41Fr')F1'E
q40F~f)O')
O~OFOAI1
QlOOMH)q
1)1r=E96f'1
4710FIC;r.
41f nF 12 ('I
AOOA9(',)4
C)211AOt8
0OO09?44
"~BI)(H 3C
(,001000~
r)l7f'l1R3?
01)18')831
')OOq4tRf)
000041(1)
589Bf)I1f)9
1)(\001222
COl)01893
'V)O()18~1
1)0004160
01841816
4550(162
41ROCORA
l~q84~50
5000~OOO
00004 7F f)
C 117'H~qA
OOf)OS9f)O
C1674180
')ORr1013(
0148'5850
01461271
45,)OC11A
O14841J:n
()OO,),)A9f)
4710(258
4810014A
0110C2AA
C3BB41F!)
4710C2,)2
O()014011)
0144128A
40ROO144
4180C lA4
41~OC 1 EC
CI)EC~831
on('lA41Af)
"lQ1'54100
OOOR455()
505f)0164
18154070
C1C('4R1')
47f=."'r.lAF
IBAA40Af)
06Q08QQO
061n1271
455DO'J6f)
70000C05
r)200018A
~t')45fF
. 107456
00000000
00000052
00000000
00OQ0064
C9C1C7fO
'10Ft)OO18
aI4~06Sf'
0001f498
oonlfOAO
4110F038
411(\~136
A0029470
03B40\OA
910A400C
Q4ffAOOO
A0040AOF
58040014
940FAOOO
~O084100
OAOFOA03
~OO4960~
Q23900~C
9102BOOO
01841816
4')50(346
92FOO170
19234720
C16292FO
conC18A2
000SlSQ8
00181601
fJOI041FO
,)OQOOI40
01404AC;O
4110C184
4')500060
C2024810
013C,)080
02030117
8Q700005
92600183
C2424860
48800144
40800144
1BA84080
41900008
001CdO
.."
c
~
»
01
I
w
ex>
4~hr)(l148
')860011C
J()1 '),,\ C
rJ 17 7f) 14C
C7A8rJ205
')J3JC 0
C:;A10C1AI\
')A1AOOO8
a03,)EO
41440a:)4
4lfu WOO 1
00310()
C1I)COf)I")R
16213~46
FFFFFFFf')
0,)3120
JI')OOO0?0
O'5fV19I=R
00:H40
CIE340C,)
2')105;)')1)
9q7AI~00
')03160
OfJoonr)l') 0
003180
·nOO01RO
OOf)'1');)!)1')
f)011~0
000001')1')')
LINE 0031CC SA~F A<; AB\lVf
fJO('101:)00
'1000100')
0031 E 0
47r0411('1
003?00
'.1 n0000 1
9204101C
00322C
,)O?1001C
300Q')?14
0037.40
30005030
f)201'J1') 1 A
9291= V'2 A
003260
1700478("
580()Rn04
003~RO
9R(191)1~
478040n /•
OO~2AO
1q1143lq
nOl,)8910
0032CO
ROO'l!):)1')
9801C}00C
003ZE0
4 7F ')410 ~
507()lO20
001100
47804178
9101911~
('03320
("10314('
D?0?Vnr:;
97063030
J)~16()
301A4710
41'51 Q 140
')At)! 9120
0013811
303A'"'71C
471 tV.2Q?
91a71098
OOl"AO
1098')'U')
302492FF
fJ 'l3K 0
921)631"1~t)
1)2f)2302S
0031EO
4Al11,)QE
411(1)011)
003400
4710411\4
'HOI109H
oa342n
5,)1301,,)11')
9?0'nOl0
003440
f)2003"'5C
3"649~9F
003460
fJOI0'5':J8~
lA725S80
0034'30
41\01)31')91=
V)AA1801
0034AO
307()Q4')F
IBAA50~0
'1034CO
47804?F2
910211')0.')
0034E0
9101AI')'1')
478"4214
Ot)1500
4780432E
91209016
003520
411C5819
001CIA71
001540
1~CC41C7
oa,)01592
('1;)3560
7031COf)4
302 OO? 05
003580
002 ')0'1 01
08060r)00
0035A')
0034C)2F 1
C03A41 V)
0~3,)CO
I")OOOO()()O
80009lFI
003')(0
1(,)001l2C
OOOOlOF'"
01)1600
'1f"l00f')O~0
OOOO()I")r)'1
O"3~?0
1')00:)1')FO
I)FOn36?C
00'\640
0(01)1)00J
0000:)000
0')3660
11111)201
47AOC0513
0')3680
FlOOOf)174
181Rf)70~
I)030AO
C 1')4/\ 1 R') 2
OAJ341Fr)
I)(H6CC
')"'045882
102R12"B
0016(=0
1 Aq f) 1" l\f)
lE2Dl,\4n
0017aO
9 86A 1),)0 Cl
417CO'1')'.
0f)3720
430(1)1~6
OOtll)lBI)O
003740
'Jl)hDf")1,)4
4880014A
194147AO
18h74690
51'J("FOFl
rnC9f)5C5
4('11=1064f)
n"f)09') tH)
!)f"O(V) ')00
!),)10')()OO
416r)0194
gQRO('l()f)?
C182F384
C346,)040
F2F31=4F'5
F240F2Cl
C IC?C')f)')
FnFIF97F
1')000001)0
01')000f)01)
0'')0001)00
lSf)Q154n
0000000'"
96,)33"11C
')01"'3040
'"l201=30?8
46104070
('nQ7l8,)7
41090f),)A
3'l1f>45CO
4C:;C0421E
411('~03B
10()4'.3AR
30:;7 AIR 1 f}
4110430R
An,10('lOI'1
'1')024010
4 V)Q')1)0R
5BI9I')O?,)
97101024
4191\41C('I
41701Al'1
41FOOOOF
9101~')98
~',)A04111
31')AS9?03
4AI0309C
91a4~1')98
17FCQf"lQF
31') 7CO 7FC
'JOIAlll9Q
41110')1)4
10004141
19C741FO
4710421\('
[)2('17700~
')1)750014
003041(C
47FE1008
OOI")("nI')O()
8r')004030
1)0000000
')'1000001
OOOO()OOO
()OOOI32C
15CO~OOO
f)1~8C214
IB01'i8FO
')C:;FOIR22
4720F02'"
g,)r"tRf)1r')8
4AOCI)I)0')
5QlO!:\()2C
R~10('l0I)R
Q2FI=109A
4 U~2D206
4010416r
(,,7FF91FF
471041AA
10001R?!
31) 1 ('47 F f)
lQ1207RC
471tl4310
317C5Al,)
on()0392C
C,)AR47~0
QlFOI00n
on(lOA8AO
42f41AC7
4 7F 1)47 9(.
500()Ql10
"7r:EOOOO
')O()142C7
020')2020
f)Of"l')O'')f)O
2114D?77
C')OOOOOO
OOOO(')OO(
0f)O')001f)
oonoC'o(,7
(1f81820
n207D16C
BO,)445EF
507f)Dl~4
5RBOFll=?
1~004170
4780FIC4
412001'5C
Boundary
Box
1876,)84f)
1R98128A
f114C4000
o")llr07FC:;
F6F7F81=9
04C ')41")(1
C41)9C'5C7
II')OOIf-E4n
1)0f"lOI')OOO
n()I)OI') 01'),)
(1)00000"1
,)03C'104r:
f)70130c:;R
43801)?01
5A7C;'1f"l11')
4')C04?11=
45C0423F
423045(')
41f\030?'"
lAI7r:;1)11')
4 7F0413 J:
305'110o'i
91FFc:;onc
Jf)984710
411=01"1(01)
45C04264
413E48tO
411100"10
41~O1028
00005811
18AD4hAI')
42AC411=0
477047~C
0')024 P~O
C:;I')C 03070
f)20!,,)AO')1)
Q01~47AO
00001564
01')10D501"1
7030n1F F
C14f92FO
80028'101
() 01') 01) ('I 1)0
1')0091')078
OOOf)OOOQ
f)("IO'50f'67
183141'10
200041()0
00041AFF
12B14720
9201f)167
013841r:;0
IS2C 921')0
1831)QO~F
1')13CF1h3
4780C14F
DC 07fH 4C
I)ZI')31)i4C
CIC2C1C4
F240CIC?
4('1FOflOF7
1f)f')04Cf)')
nI')OO,,)ol"lf")
NH"I') ')0 0 f')
')an"'l')t1n()
')07010'5"
3oC:;84110
1(114101)4
4177("11)00
4')C04231')
411AOOl)8
4142r:;('178
45(04234
30209206
924f"lV)24
Q20l"llOlQ
471041'56
411045CO
'l7ffQIC'4
4A203')46
3(')441211
C;OI,)1034
4C:;C04234
tlOlC412(}
4270CJIFF
OOOEI')7Ff
58210"100
301''1 AAA
44A043f)A
lOOOf)200
432EQ640
'11"11')113'592
10107030
6000000')
AOO04A30
1')00501)00
01000000
00n50400
')onI)OOOO
000900()5
01784C;1,)
fn f, 845E 0
IS2F410f)
F()lA920?
18C0906B
1)10~IA88
200f4A2C
(001)41FO
PAGE 0010
I)C05014C
1~124328
C3901A61
C2AAD107
6o")OOO14C
41)004}41)
014C41fO
C')C65(,1.f)
00000004
116F.')C')IV}
CC;C1f240
D9C ')C 741)
F8nOflf5
')00")0000
I)fJO?OI')'l1)
Ol')nf"lf')nn0
00000000
0f"l(''1OI)I)I)
00000000
!)14(n15,)
I
1)c:;41)1851
'5R17f')02C
V),)F '51"1 1 0
41103067
4 7F040Ql)
4 7J=0412 A
50103030
O()()OO200
91409('17
3,)201)2()}
41103098
411f)'\C3r.
41103038
41F.o1)213
3')9847q~
41)C04264
07AC41?0
45C04230
47F04131=
30645~FI')
901007AC
Q87A307C
412720f)0
44A04304
'18B14111
2000~01')O
7000Q120
OOOOl';Q?
o 1C EAQC 0
08QFOOOO
2114483')
C83245BO
aoooooao
OI)030r)71
00000000
("10003628
COlonAOA
COc;f1lFF
01781811)
I) 16 1C; 8 ? I)
OOOOQ80B
90080138
00024600
F?6205(1=
Q8195000
41204344
30009231
50103028
'58180000
91209016
92063030
AO 07900B
418n40FC
3026901B
'50103030
OA0080FF
41000001
303443Q9
41'3A9200
C;OI03020
OtOo1821
47F()413E
4180303t)
476005Ef
CJ07A301C
07fC4tl0
45C04264
C;8C03070
00041910
18Ff060E
90174110
0000358C
1')00441(C
OOlOOOOO
C19F4120
001')0351:=4
Of 003580
OFOOOOf)O
00000000
1')0000000
18011213
4120EOIA
OAC'A18F2
FI0f5822
FIE61EOO
Q202013C
FOn84A8C
9RRF3000
."
-
o
..,
003760
')03780
0037AO
003 7C 0
0017EO
AA 8
471020C4
OO~800
424<)000~
003820
003840
9r;020167
ornR60
003880
003~"O
0038CO
Oa38EO
00390()
003<)20
003<)'.(')
003960
003980
0039A0
0039CO
Oa3<1[0
OOlAOe'
003A20
003A4"
001A60
1)03 ~ 80
003AAO
003ACO
003AEO
OTl!3 00
003H20
003B40
003B 60
003B80
003BAO
003HC 0
001~EO
003C 00
003C 20
003C40
003C 60
003C 80
U~q71
06304A~()
14204122
48r;C I)orp
47FOFf)7~
10004740
41790f)f)1)
o,)OC 000f
92000101
18')"18n1
1f3AA43A2
43020007
89C()0004
002E474J
f12() r;2')() 1
4'.:\88C,)00
'10a04C60
181Fl12F
()'11)01R9CJ
')0 Sf: ()A ",:\
E<)f16Er;f)9
(0)03A6A
9,)2047FO
004A112'11
9rnA94FO
000041AO
FF')410f)3
FF0'1110A
00')4100A
')f)OOOO,''=
FF05100!)
F ~O'5 OI)OC
OCl04100A
FF0411')00
FFI)41001
FF0601q7
FF06000C
FF04100A
')OOOnlq~
003C~0
~FOr,0192
003CCO
O/HCEO
0031)1)0
0031)20
00V)40
FF06019?
0')041003
FFar;10nA
00041nOA
(1),)4100A
I)00410l)A
00,)4100A
"1):)411)'1"
000410,)A
FFor;100t\
FF05100F
FF04100":\
003f)~0
003080
00301\0
0030CO
C03DEO
003E00
003E20
()0044~AO
'iA<)OF1FE
410f)f)OOI
n0074100
faF4f)204
4140F 1 ':\2
18AF4HFO
OOFF<)201
Qr;00<)0()A
f)l74100A
')l6r;41FO
Cl'10004RO
AQOOt)')OO
0(1)Ollcr
O,)2h4CA'3
r;OCJOIH 20
nd019160
oOIFor;07
01r;FI11,)O
8744F12A
D16412FF
f)1f>7')8f30
478,)FOE4
r;8000174
F13241BO
('1")002940
400"OOI)R
47AnF()lC
C"()21BAA
890'101)'18
I~FF()7FE
1~q94190
1~Cf')430C
l,)lFIRt\f)
001046AO
41 A0'1001
(')021851
A9f)00004
F03741FO
r;OB0I11r;O
4110f')13A
DOO 0411 f)
2 OOC B112
4~50fl1)A
46A OF 17 A
076F4140
4A<)COI)0?
F1AE0203
188A9204
OOOOOZ6A
40000nOA
1 ~CC41C 2
F048410n
f)024178F
06AA489B
000')001)0
or;1080FF
41<)1000B
dql00,)()C
OOO')O()(l')
00000')')')
9')1811207
<)05CO')40
Q04F58AO
F~060"lOF
400016E'>
7 () 0 ') r; I)F 4
500072CF
f)001F(1("1
4001Fga~
,)n01FA')E
')0002164
600 rH 77A
400031RF
0001':\7AF
O()01"7AE
400()2184
OOOI"'lI0C"
OOOCH3A:?
10003182
400()?r;~A
70nar;042
')001)7164
700022(F
r;I)007164
100022(F
500()2164
700022CF
r,<)01Fr;(1\
6<)OQ'lI)E6
4!)0116EA
OC;~012?'')
70')1 18A3
IP.AA41F')
5AI07026
(1r; AO ~2 ')0
cq(r;C7E~
90r;EI)018
'58AO')4A4
904CI120F
0001F":\6C
')00) Fr;I)O
OOO('l()lF4
"'10"014A
OOOO')IRI3
'.)'),)IF(tA
an')lFC4"
FF 000060
0('1('10000-'
')1)11 OOf) 01
ooocaoo')
00(01)000
')0001)142
()OOI~4Af)
",)001)1)(,0
,)OOIF]AO
FFFFFFFF
n')f)OOlF4
FFOOt)080
')'11)0(')(' AO
FFOOl)060
000('0060
FF0()"06'1
1)00('0060
00000048
0101F5S0
000Ir-r;c:;n
1~?F4110
013COAOO
011A41AO
Inoo<)ono
4 7FOFOA?
4180FI0A
r)Z()2<)Or)8
1~45444n
Flr.~02(1)
01AE'18?O
AIE74144
47FOf13A
4BOOF214
001)1lA17
B02C050f)
00014240
95FFIO"1)
41AOF07A
41FOFl QC
4000000r;
oocoaooa
41000(11)
lAAB4BAO
~11)0a1r;F
0800011B
4AOf)I)02E
4~1320006
10t018A9
11\018AO()
0004')7FF
41AAonl':\
10A942A?
5AAono~0
41\R00028
('7QEr;r;u"
~n"F.41AO
1~6'14ACI
OO(l2AACa
704"OA06
OA0l10000
AI)nF41FO
F3D9116E3
051018~1
OOOO~AlC
4'1Q0901C
Q'100A01n
A()009t)1)4
00(,lF43A
f'l001FA34
0001F5EO
0I)0050f)~
OCl)oooon
"Ol"llFCIA
,)8,),)f)C('I0
Fr"FFFFOI'}
0001 F 4A4
0001F4AO
0400()O('lO
04 o I") 0 nr) I)
8 f)OOOOI)()
r,((')onoon
04000010
rcoOOOF4
00n04Fr;A
fl· ('''01)')4')
FFFFFFC1
nOl)lF41\A
f:FFFFFI10
01)1)1Fn4~
FFFFFFOO
00nl~D48
Or)01Ff)6n
000n00'10
0""1F~34
Trace Table
A"160A06
0201<)074
50609054
077B'1AAO
'lI)A('IQ048
OAooooon
001)4100A
f=F0r;10l')3
FF051000
FFor;OOOE
OOI)()OOOC
FFor;1006
000410f''14
00000192
FF06000E
00000197
FF0601<)?
FF041000
Ff=041001
00000192
0004100A
0004100A
FF05100F.
FF041(1)l
Ff:OC;Ir)OA
')0041003
Ff051006
00041003
FFO'l100A
FFO'>10"n
0004100A
0004100A
20('441~O
41nO')')~F
(),)084202
1I3FFlI3Q"
4ICOOOOF
OO()64ABO
BOIAOA03
0n028<)C"I
121F4770
')000000')
OAOl4720
1)0?OQ610
4:?A09054
<)I')4A41AA
07FA43R1
8~ A00002
7000:?2CF
700024C'11\
4001F<) SA
0001F<)8A
()nC'llFC\8
70004Er;z
4000268C
000010(0
0000318E
1)00010(8
00('10178E
40n033'>E
4000338?
000010e8
40002ACA
1')11r)22CF
1000r;067
4,)0016F6
4Q005086
40002'>3A
6900r;(,)A6
40002t;lft
6901Fr;S2
69n024""
500(')2164
100027CE
r;8F0710A
nl)f)A074E
4120FIAI\
10084141
900C0167
20040166
016(921)1)
4740flAE
Qr;04016r;
0200<)(),)O
,)800010B
06000')on
46cnFOlO
f)0281A()A
141)04780
10078810
4A00n02F
14BC()5CO
00264282
t)OFFFFFF
on()]41C(
7012<)801
AOOOOOOl')
FF04000f)
<)016<)001
<)43001A
0001F550
0001f550
OOOlf5C;O
PA(;E 0011
91FOFOOI
18 c 21A3D
43?1000B
OOOA1440
434(')0166
4720A168
f)16'>18FA
O~061001
47AOf132
100130001
OO()OOOOO
00000100
4'>AOfOAC
89000008
F02418C9
()0084BOO
4?Q20000
r;RcnCO?4
000407fE
on1492Fl
1008'>8ce
602058f6
C<)C5E6F2
OOOOlA4f
<)07(4190
n20 3905 8 ~::;-'
90504740 0 g
00003BOO I ::::!. CD
16AB40AO ~ ~
00\.llf4AB
~
00004F60 ~ CD
0001fC48
08000000
08000000
00004F58
00002934
o·
o~OOOOOO
04000000
04000000
oeoooooo
OOOlF3A4
000lf3AO
04000000
OOOlf128
OOOlF04A
000lf634
00000000
00000000
('10000000
OOOlF6?8
0001f62A
0000004~
AqOlF~80
~OOlF5C;0
0001f630
fFffFFCO
0001F4A8
Ff000080
OOOOOORn
-0
Q
"""I
003F.40
acnE 60
003E 80
003EAO
003ECO
0,)3EfO
003FOO
003F20
003~40
003 F 60
003F80
0!)3~AO
0,)3F(0
003Ffo
004000
004~20
).>
U1
I
.t::..
0
004040
004060
004080
01)4')Af)
0040CO
0040EO
004100
004120
004140
004160
0041AO
0041AO
0041CO
(1)41EO
004700
004220
004240
0042.60
004290
0042AO
0047.CO
0042EO
004300
004120
004140
004160
0043AO
0041AO
OOUCO
004lEO
004400
004420
004440
004460
004480
0044AO
0044CO
0044FO
0041)00
FF05100A
00:)4100A
O:)OCO(,)OE
FF05l000
FFI)5000C
OI")!)410!)A
FF041')00
FF041001
FFI)60192
FF060197
FFQ41()I")A
O(),)OO192
FF I)f) 0197
FFabOlq~
1")0041')0"3
FJ:Ol)lOnA
0004100A
0004100.\
00(,}4101A
0004100A
()004101)~
000410l')A
FF0511')Of)
00041004
0OOOOIQO
FF060190
FF06019')
FF0410()0
00000190
00041()03
FF0410,)7
0(,)O410()4
0000019')
FF06f)1 QO
FF0601QO
00041003
FF04100,)
FF041~1)1
onOOO190
FF04100A
000')0190
FF041001
FF04100A
FF04100l
FF051000
FF051001
OOOOOOOC
FF05100b
00041004
00000192
FFI)60192
FF060197
FF04000C
00000192
FF06IJIQ2
1000l)OF4
SOO022CF
0001FC70
41)01FAOE
()OOI~RO~
5000~164
6000371A
4000378E
00(1)31AE
,)00l)11AF
40007184
naOOI OC 0
,)OO03~82
')OOO~ 387
4000251A
7"0')5042
1)f)0,)2164
700,,)?2CE
51)0021f)4
70007 2C F
51)002164
7nOa22CE
4q01F5~E
4(1)026Q(
00001 ot: a
00003382
00013382
7'l(,031';E
000010C8
60002S3~
60002FEA
700,)2f) qC
')OO')II)C 0
000033A7
f)f)0033Q2
400n253A
5000?Fr)E
SOO02FEA
00001 OC 8
4000J06C
OOOOlOCf)
,)0002FF8
4000306C
400010AA
I)n01F802
4001F QFO
OOOlFC38
70004F5?
40002~8C
000'110eo
000037BF
aOO0378E
OOO~12EO
OOOOIOCO
f}OO0338~
0000OlF4
00000148
OOI')I~3AO
OOOlFCIR
0OOlFC41)
FFOOO060
()OOOOOOI)
01)00')001
0')000000
000lF4AO
1)()000142
0000001'),)
000(1)001')
(lonlF3AO
FFFFFFFF
Of)f)OOlf'4
FJ:OOOOAO
0001F5EO
onOO500B
OCOOOOE4
OOOlFClA
08')00000
FFFFFFOO
OOf)IF4A4
('001F4AO
040f'OOOO
OCOOOOOO
800nflOOO
04000000
04000'l()1')
OCOOOOE4
oon04F58
Trace Table
FF051003
FF05l000
FFOSOOOE
oooooonc
FF05l006
')00410()4
00000192
FF06000E
01)000197.
FF04000C
FF0410l"l1")
FF041001
f)onOO192
00041()n4
O('04100~
~I)OO"040
FFOl)lOOE
FFF~FFCO
FF04100~
Oooooo~n
0f)01F4~A
FFOOO(,)60
00000060
FFFFFFOn
()I"'),'n F048
FFFFFFon
FFOl)1008
00041003
FFOSI00f)
00041003
FF05100A
00041004
00041000
FFf)41001
OI')OnOlQO
000410n4
00000190
FF0401qO
000410"lA
0004100A
00041000
FF041001
oooon190
00f)4100A
0004100A
000(')0190
FF0601QO
FF060lQO
FF041000
000001QO
FF06(')lQO
FF04100A
,)OO4100A
1000000E
FFOSIOOO
FFO,)OOOC
00041004
FF041000
FF041001
00000192
FF04100A
FF041000
FF041001
OOOOOlQ2
F~nOOl')bl)
Of)OOO(')f)O
onOOI)(,)4Q
J:F000f)60
,)OOI~lAa
oannoooo
a001J:390
00000015
000010CQ
on01F7F()
on003124
10001124
0000?A4R
00000000
OOOlF640
00001124
0000':\ 124
')0000001
00000000
f)OO001E8
0000S190
oooonoai
000001F8
OOOOOOlS
FFFfJ:FFF
00000001
0000S318
FFFFFFFF
FFFFFFFF
0,)OIFC40
ooonoooo
0001F7S0
OOOO(')O()O
00000000
00000000
0001F04~
800()(')lBC
Ol"l')02Q34
OCOOOOF4
04000000
oeoooool)
0f)1)02A,)C
or 000000
Oa00297C
BOO02F74
00002914
OC ')00000
040001')00
or.OOOOOO
QOO02F74
o no 01) I 2 0
OOOOSllC
040'l00r)0
Of)oosona
0COOOOOO
00Of)S304
,)Ol'lnSlFn
0')001)308
00')lFC48
0001FC44
OS()OOOOO
00Ol')4F58
00OOlQ14
OJ:JOOOOOO
040(l0000
OCOOOOOO
04000000
0400000f)
04000000
Last Entry
7n00240A
SDOlF98A
lOOIF9~A
OOOlFCl~
10004Ec)2
40007.68C
nOOOl0CO
(1)0037AE
000010CA
0l')00310A
4(')OO1~I)E
400033~2
')nrHHOCA
41'10028C4
100022CF
10nr)S062
400016E6
49nOS086
4000253A
6q005046
40(1)'-53A
6901F,)A7
SOO02164
700"33')1:
4(')00':\J8l
000010C8
40007.8t:A
OOOOlOCO
30003374
71)0022CE
')0002164
100031t;E
40003382
000010C8
400028CA
100021CE
000010CO
10002FF8
10007.FE8
')0002FOE
"OOOII)C8
1000lFF8
400020_6
700022CE
OOOlFC68
4001F80E
0001F80E
50002164
60003778
4noOl78E
OOOOlOC8
40001184
41)003'3I)F
40003381
000010C8
PAGE 0012
000()4F60
"0r)l~C4~
0OO1FC48
08f)000OO
OOOl~C78
08000000
OOOlFC78
FFFFFFF~
0OO04f58
~~~FFFFF
00002934
;)OOl~C40
08nOOOOO
OOCH)oono
04000000
00(11)"000
04000000
OOO')O()OI)
04000000
Of)0f)a03C
OOOlf3A4
000(1)01)1
1)001F3AO
1')4000000
')"ooonoo
00t)IF328
"OncO?OO
OOOlF048
f)OOO()O"I)
f)"f)OOlF4
OOOlF634
0('001) IF4
00000000
OO1)05()7A
00000000
00000000
0001F5S0
0001F628
001)1F550
')0(l1~c)c)t")
OO()lF628
nonOO048
A901F580
FFFFFFOO
FFOOOOMl
')0000070
0001F'3A4
OOOtF'3AO
00000001
1')0000000
04000000
00000200
0001 f32 8
00002A4Q
o 0000 0
00002A48
oeoooooo
OOOlfBBO
00000060
FFI=FFFDO
FFOOOO~O
(01)00024
0001f654
0001F650
00000001
00000000
1)4000000
00000200
0001F5D8
0001F8BO
00000060
OOOlF640
oeoooooo
04000000
00000000
00005190
OCOOOOOO
1)0000lES
0000530e
000nlOC8
OCOOOOOO
OCOOOOOO
00005378
000011108
0000003~
()OOOOOQO
0001FD'38
0(001)378
08000000
00Olfe18
OOOlFCIR
0001l=C4')
08000000
FFFFFFOO
FI=OOO060
0001F154
00000000
000tF150
00000001
00000000
04000000
80000000
00000142
OOOOOO'3C
0001F654
00OlF650
00000001
04000000
00000000
FF~FFFF~
""'0
.,C
»
111
I
~
l)!)4'iO
on4,)4('
004560
004580
O'l45AO
004 S r. ()
0045FO
004600
004620
104-',40
00461,0
o ')I-t6 80
('\ "4 f)" r,
() 04 ~r. 0
O,)4t,E 0
n,)4700
0041Z()
f):)4740
(,,)476('1
004780
o')It 7 AO
)04 7( ')
0047EO
('04-300
004B2f)
')04.>340
Pflr;go13
r~060192
('0003V3?
(1)141101
FF0510l")A
lOf)4100A
()!)'141!)I")A
JI)0410")A
FF'J4000F
Of')r)0l)1Q2
FF060192
401)021)3A
7f)()')SrJ42
'10001164
710,)2?CF
500011(,4
~OOO'i04()
FFOOOI)~O
FFFFFFCO
f~04100l
4~n')l6Ef)
n~OlJ:!)48
FF')51!),)~
FFF~FFI10
f),,)()41 'V) 4
FF041000
FF,)410"'l1
f)f)I)OO1q?
49,)O,)OQ6
60 Of);? 6 RC
6f)I')"l77Q
4')003 7~~
"00'11 f)( q
'i'l1027Q4
O()(H)) OC,)
I')f)O,)33Q?
Of)0(,0l)60
FFoonl')60
f)f)OOI')O!)O
OQOO"'lOOI)
OOO()OOOO
000052(R
f) ') 00" I) 1 C
0:)000001
~9,)05I)Ff>
O"'lI')]~I)I)O
OOl)nnOI)C;
910Q?f)(,R
4110F332
?QOI07FF
9"'A"I")01?
f)OO()I)OOO
94FF?f)O')
9140?onR
1)')1')1 7041)
'iQI)OOO70
~,~ ~O n,)"'l2
')1)440'iCF
1~'1F'iRI10
41~70054
0049("
0049EO
Of)I+.~ 0 0
() 04A 20
,),)4A40
004A ~0
004hRO
()1)4A\O
0')40\CO
O,)4A c: C
JO'.Qf)0
O,)4R20
Z0089102
31084710
F1649110
94f)F 210')
Fl12Q41F
R')on47(1')
004~Ff)
nC004~SP
~~,)'i11)"'lF
004Qt\O
004160
004~ 80
004l1AO
Ol)4i3cn
~FFFFFFF
f)()OOt')lF4
0OO410l)A
,,)00411)1)A
FFn'510()F
F1=0410')1)
FFI)41001
O!):)IlO19?
., ',) <1 4 1 !') <) l\
0,)041JnA
'} n'141 f)~A
'),),)4100.\
F F) ') 1'1 '1 t\
~F'J6019?
()()48Rn
(104Rf\O
0048(0
J04qJ:0
OC4900
00492()
00494(')
f),)496n
0049g0
O()4~40
OC()OOOF4
') 0 I) 'H ()( 0
I)oo(n 7AE
,)OOOl7RF
700033'iF
41)OO13A2
Of')OOl OC A
400,)18CI\
70(,0Z2Cf
'il)n,)2164
7"OO2?Cf=
6qOlF,)CA
192CJAr")6
'161120,)A
7')')1\7.002
45f)OF344
91S0?01F
41(71)034
96042()01
F3,24AAO
')OtJ?f)OlR
4 7F F ') () () (
90201'')08
004~6()
OOO'~P6 ~I,
OO'H F6'50
200~9?13
4~R7()f)09
'i530F36,)
1')409205
'i810B')AC
C9CC:;CIF0
F,)FOF,)4f)
40') 6f)54 I')
40 .041')4')
'
6110A05f)
roo,)o')nn
i) 2 0 ('ll') ') 1')
471I)F')'i 7
94FF2001
SAf)Ol)l')l,)
43t\70"'l1~
O'J1 ()SAJ:f)
JOt3R1F1:\
n~oO')f)f')1)
o(01)12,)0
!)"'l0()0I)AO
~~n()"06()
f)()00f)Oh0
00f)on04R
91RO~001
f)4000000
C'40')()f)')O
04000000
OC 000000
0,)f)"r;lC(
040"0000
OI')f)OI) 150
rnQIFf)48
FFFFFfl)n
O()f)1F048
('.0')1FI)60
0Q")l')no')0
Q6142000
FJ:I')f>')l92
O()041f)'l3
FFI)'ilOf')f,
F1C~Q1OA
()")()')I+(4~
7Fn')4C14
47~OF2r2
2,)O()47FF
r)on942R7
7;)409201
1 AOR 91 7~
47F('IF2QR
00003028
1)71FIBl\t\
40C90'iE3
4040404')
40404040
40404040
C109E34,)
0}f)nn26A
O"'lOO4COA
000()""60
00"O()lF4
00,),)01F4
')1') (' I) S " 7 ~
,)OOlF068
7000S0AJ
r)~0nsC7A
0nOn"OI)Q
')oaoonnl
,)')n000no
R')",)OOR4
f) 0 0 0Cj 2 r. ~
Jo,)n000(,
f)')f)lF6~4
')0000000
flO000000
00002934
01')0052C(
0OO052C8
n4"1)0000
RO,)OOOOO
0(1)00000
04000000
or.nooooo
00000000
f)n"IF6?8
"'\001F628
1"'l"r";1~~
0"'ln410f)~
FFO'i1001\
6QCIF5A~
1)1)"1F,,0
OO"'l 1 F'5')"'\
()I)OOI')04l3
F~"51')1)3
f>QO')?40~
')1)1')1~'5,)':'
OI)f)lF6'30
')f)"!)?164
4710Fnsc
70,C01n1
7Q3l471~
(1)041001\
qIO??O"'lC
f)2062'V)Q
F OC A9 1? 0
21)(,~47l3()
J: F f) ('I) f) A0
917120()n
2f)n?7f)5A
F2l094Q7
471)0F21A
91042008
200AQ4EF
lo.~~43,",7
Of)'J94C~0
J:36Al~f)8
48~7f)016
AE~00002
~FA()0"02
4~Bf),)0I')A
f)()f)A94~"
011COC46
471,)F01)C
0119()136
91t\n2f)lF
47FOF?AA
9f>102(1)A
43n2001F
42f)20,)lF
1.50('F 344
41AOF7Q8
161\134')1\0
()254()462
OOOq18A2
002A063A
4710F282
200Q0201
4710FOOO
47FOFICO
4101)0001
4500F344
00004500
4107003C
47g()~2t\4
96801f)l~
10014780
94f=F21)01
4f)2C q4DA
F16443R,
703C9220
4CR')Fl6t\
417EOOOR
704107FO
9140'-300()
F 0F ')r 14')
4 r 4,)4,)4n
F I)F0( 340
40414040
811),)F:2F,
7r')OI')?2(~
"HH'll ~ I) '5')
4710FOf)0
9f>9n101F
41(1)0010
4,f)')F352
91),)7A n OO
91F7AOOO
4710F1CE
4382f)01F
96!)17()()6
Q?207048
200t47FO
FIA49210
2(1)447r0
9lfH200(
0OO41RO,R
OOl647FO
70419Aln
91Sf)A')on
F3f>81)?07
'1A01200,)
Q10A201F
9A41200R
,)OR70044
7 () '. C4 7C I)
IF~08
1,')')1)2'111\
I,QI)!),'"lt\h
40""21)3l\
9110~onR
4~02f)O]F
0r,~0~100
~}f'),)33Q?
47FO~28t\
9604?()O1
4710F24A
7044A,)00
910A20l)R
4710FI]nQ
Q6102001
Q2167f)44
F14A9108
703647CO
F?8A924F
n"!)I)"lQ2
F~I)f>nlq?
9604Z,)0~
q20f)703~
~J:n41a0t\
O()OO,)lC~
47F!)F1FC
91011\,)0n
471()FOOO
47A()F12R
Trace Table
4,)()02~CA
Df)0~47~()
')RI\1()')n8
on00f)7?0
1P,CC'5AFf)
40~QC508
4 () It ()4 ') 1 "
4'14"4f)40
40 /.04040
404n4040
(,')"00000
OHOOOOOO
47AOF1~4
9110?"'lOI
411)1)001)1
41R7004C
921')47,)4~
F164431)7
70364307
F2985Af)'J
47CO~2F"
47FOFIDC
47FOFIC,)
4111111")')'H
47FOJ:Icn
,OA 70')4 /•
5l3DA0"(1)
C;OA7""44
n78Fq~(H
421)2)01F
,)187,)03C
47r()F1R4
(0364101)
0,)34411)f)
a010r)'502
4710~28A
5~ooonl0
43~2(,0?O
8913"1')0"'\4
')01f4100
7,)0647F')
l"\084 710
4!3Af)F36q
OQ')')OO"O
00002472
F261\431)7
200196()1
Fl8A9!')l
41aM)I1')0
f)f)08nOI)A
F f) 1 CO 7FF
404040FO
~OC54f)F:)
C9CSC6~2
F~F7C940
4f)4,)404()
40404"40
4(41)'.040
000OO26A
4')004(01)
4f)4041)4,)
4fl4n4()40
404000f)0
n()()OO18()
,)OOO4BfO
0,)8B0F1A
91111Z0fH
D20670';C
910Al01F
421)20"lF
43n700l4
47F"~191)
f)2"570~1
920A7044
200nSAf1f)
910??O"3
4')Of)F35?
f)?037n33
1)001421')1
'11)0142'17
n'J552015
f)SO?f)05S
41'3Bl020
10104207
~IR458no
FO~OI")2")
1)7F09211\
'5ABn.OOlf)
0')160001')
F04f)f:OF2
119C5C lC4
40404040
40404('4')
,)00OC;37~
00000180
000"l"('')1)
~901F580
F~FFFFCO
F~6405CO
4110FOC8
94EF7040
7~~494BF
00369104
,)(,~441fO
4160F32A
20154760
050n1036
,)OIF.9608
00101888
20187040
103C9210
5S3B0803C
00320000
FOFI)40F4
t:S1)94040
40404040
4040EOEO
40000000
ROOIJ4090
00000000
.
"
-
Q
~
004C 00
004(20
004C40
004C60
004C80
004CAO
004CC 0
09C>04R20
12000000
D107D14f)
020800')0
1~0043nc
140R47AO
OOf')OI')OOF
200000?F
00000000
40404040
f')0001820
000')') 11 0
00000000
0000(')000
00000001
"o00000,)
004CCO
004CFO
004000
004D20
004040
f')040AO
004080
0040AO
0040C 0
0040EO
004EOO
Ol')4F20
OC4F40
004E60
0~4E 80
FF05000h
70004E'l7
4510C008
41000048
C02AE7D9
CIE84(,)40
,)0000()Ol
'20()OOOI
')(lO I") 00 18
?A782R?~
00'>()4')OO
OOOOOf')Ol
00OIFR'lA
06n04ECA
QOOOI)(')()1
4510c n no
4 c; 10C f)F C
05(F070n
,1'5EF4110
5AFOF030
'503')C 258
4F3f'C24A
00000 'J 00
000f'4E4 ~
o()n f)4E V)
C77C5811
4')10C1qC
C2680700
05FF4110
58FOF030
004E~0
4 7rOC OE4
96101012
004 EC ()
I)AOA98EC
41000048
004EEO
404Q4040
4')404040
004FQO
LINf: 004F20 SA~E AS ABOVE
40404040
4040404a
004F40
on3880Fn
O"OOOO(lO
004F60
4041)404')
40404040
004F 80
40404040
40404040
004FAO
LINE 004FCO SAME AS ABOVE
40404040
40404040
004FEO
42204034
00000000
005000
00004Cf)O
oonnOl)on
005020
n0045010
OA0A '5001
005,)4C
18315A12
O~f)f:1A~1
00'5060
I)A085f)30
C'540l!H 1
005J~0
OA064700
03CQC'540
00'50AO
( I 0'54()C 5
C8CIC44,)
00'5 f)C a
OAOE04CO
OO18181 R
0050Ff'
00000000
01FFOOOO
0')5100
f)Q6 ~40C I
C5f'90Q06
0')5120
,)810CI08
90000378
005140
')0000001
004A'3l0)
OO'HflO
QZI')lF1FO
000 IF 348
0051B0
00000001
OI')f)0007D
00'51 A0
4')404'l4,)
40404040
0,)'51CO
OOO()51EO
OOOO'53J\8
00'llE0
402 Q404')
7FOOOO,),)
005200
Fooon16C
0096021C
005220
fH6841FF:
D2f)3EOOI)
00'5240
5AfOl008
41100048
005260
IAOIIA01
I)OCC1AOI
00'5280
COf')04710
430COOOl
OI)OOOOf)()
00000000
FFflO'5802
OE795114
F03C4A'3A
lAF91R99
00000000
I')OJ1Fr60
OAOA'lOOI
4')404110
9000(')00')
41()IFC40
Q0000001
00000050
!"IF()04D24
0(')000180
""f'4'5011)
Cl()()OA2Q
004000,12
0101F920
07()04FCC
2A28282R
A')00406C
1~OOOOOO
OOqOOOO()
C0EA'5AEO
F27lC250
C:?CI02C5
C2680201
7FOOOOO()
CIA8'5REO
01FE,17FE
Df')OCq?FF
40404040
InOA58F()
rlFC4F10
OQ404040
C77CCIF8
00200()JO
0000000""
0000000')
F2F2F2F2
40404040
OOf')OOOIF
4040404f)
C2CID2C'5
47FOFOOA
OOMB AD1
40404040
DQ404040
C'5C2C ID2
5RI00004
D')4A5dl2
00481AID
tBQ0
40404040
90')0':\("I6F
OOOO'lI'50
4tFF0070
0004S0FO
'58FO'=034
Q2400110
00000000
OF004BEO
8f)0017~C
End of Nucleus
14010219
0002110r)
47FOCOOO
(1(201C'5
41FOF f)OA
f')0081Rr)1
41FOC OC4
,)001FCFC
,)001Fq20
qOOOOOOO
?101FCI0
0~134110
ABLE
10(lA58~0
4510Clf)R
0()OC41FO
40404040
0OOO40AC
Enl40S'=F
C2S0,)030
OAOfl4100
1)203C78A
00004024
E0340'5EF
00004D24
0OOO01FF
404()4040
OOOOOOf)()
40202020
40404040
40404040
3702Qfl3C
40404040
40404040
BAKER
I
ABDUMP
40404040
00790040
C150QQnFC
'lAll')018
00044100
45FOC 06C
4780C nqt,
2008'5000
01F40AOA
4'510C102
0140C60fl
00000000
onoooOO!
28282878
0OO04CnO
OO"I~34A
0000'533C
0OO1F408
411F007D
0048Q220
00014800
01704110
7FnO,)C)()0
O?f)010F,)
80n0121C
0000000')
41f)onOO1
48RAOOOC
000')000·')
000n123C
Ot)00121C
47FOFOOq
'H~ no')oOF
'5400F04'3
PAGE 0014
00000000
C 24r)41FO
OOOO123C
41CCOO07
4710F02E
41FOFOIA
4f')4f'4n4r)
04CIC201
'5AID0004
11481()OO
00671 OC ')
C 500qO'=C
00004CFO
000C05CO
5Al!,)OU~
1~214500
1)00000'1.
[l0'HFR'lA
I)OOlt":A71)
OO"tFCqC
()OI)IF7FO
1)0011300
0f)'J04000
07004ECl
"0410000
12()lFlOO
00000004
()OIJIFCIR
58FIOOO8
C?F8F271
C75A0700
C27CC2 F 4
C2Q4r:211)
OOf'IFC48
Q14810t1
')1\141810
FOFOFOF 1
40404041')
C248CIF8
415FOC1'iO
0276C210
r')E08C294
'5SFIOOO8
4 7EOC IC4
58000004
FOFOFOfl
40404040
6~202f)2')
00000001
6R20202f)
404040F3
4()40404("1
40404040
00000001
F1FIFIFl
6BFqF6f3
40404040
q201F~OI)
f'lO()OI')07A
,)0'54?OOO
')l()IF7Ff')
CO?44101)
'JOOO4FFA
1)707C248
C2')C4110
OOhFfP03
CIFcn70R
0OO04F7C
4110C024
RO(l0't06C
OOOO()00,)
4n404040
OOOOI)f'lF
40404040
Or'lCO'50?13
f)OOCf)'5Cf)
lA21,)205
CI)4247FO
onOO'lOQC
4'510(OQ4
41400008
QI3ECDOf)C
002'50000
030306E6
00000000
,)4()0000n
4101F400
f)("IOIA378
00OO?214
OOOf)OOOA
00~30()()E
1Q1 041CI)
100558Fl
00I)CQ56()
003AIQ01
6~F7fOF2
00000000
FFO'50006
41000lF4
DO'54CODO
C,)4AC 3C A
oooooono
OO14()OOO
IA7458AI)
Q2FFOOOC
010906C1
F2000A2~
00000000
007C0020
0101FORO
1)000001)0
1)000'5200
41')404040
9REOO158
OOB618FE
0008c)8fO
01104740
47AOOOEA
5~FIOOr;4
00000000
6900150A6
4510C008
411000'54
CIOQn3C9
C3(8CI09
04CIE140
0004502A
41fOOOOO
nQCI0440
47FOCIOC
00000000
lOOlf45C
1)001FOBO
OOO19EEO
00OOO05C
40404040
12EE4180
40FOO168
F03005EF
f)OCE4720
4000005C
p
-u
..,o
»
til
I
~
w
GO~lA0
a1F~4~ln
00~F4111
005?(0
nl~4qArn
JIE~~?OI
JJ5?~0
47F1nO~?
n7CIC7C~
1')014111)
oo')cnl11)
FFFF(')7FE
FFFFFFF()
4')40404')
F0FOF0Fn
005J20
JORL4040
107n4040
005140
414(4)40
4 n 404040
LINES 0051hJ-JJ53RO SA~E AS A~nVE
JC~lhO
404r(7~1
FIF1F1F2
FOF4F1~4
0IFJR,')
,)lFlAO
')1F,)C':'
"lF1F-O
01FIJ0
()11=120
01 F 141)
81F160
~) 1 F 1 8 (J
('If-IAn
('1 F ICO
11Fl1=0
01FlOO
01F22 0
o IF ?41)
01F260
J')lCF,)ll
41,)'5,)10R
FO?(Q14Q
31')104710
Qt,A01001
F1A4<}A4Q
r-3QRF4A,
r:9(7C7Fn
FJ1A947F
1)'118C;OA0
1)02AI=010
002494BF
47Rf'R044
3'100gA4'1
~O~~0n
OlFU~O
OlF2AO
01FlCn
0100001~
C9C7r:7FJ
<)14')7'124
1+00047Q,)
""\)01431 '1
,n7F2f'l17
~04E874"
lJ~O'),)41
3(,105J')0
O?nl')7117
101R471=()
,'11
FIR~F?93
~4r:13
4110Fnr~
~()4F414n
04~F3()V'"
n6n01('1()
'lAonn7FE
1"284001
F7RP-F g( 1
~"I\RF6~3
411"lf"1"A
r: 'ORC 1~ 'l
4Qf'l0'iI')Oq
QAI=R')')14
OArOI)()Of)
4001F42~
')f)"OOf'7~
onnCOFFC
OC oooooa
0201F43A
00005150
0OO1F1Qa
040001AO
A3001?84
FFf'l4COOf
O"nOOO')O
"'1('l()()! Rn
OO16Z040
06C6DQ06
4100('n4A
41400008
'iAIOCOlf
00000007
n001F630
400"AC7A
41A2507A
7FOIF6C;O
06000301,
OOOlF36C
")onlFOQA
OOOOlliRS
n3'Hf5S0
04(QC4C6
4510COOA
lA2458AO
OAOO1810
noooc;n78
00OO4fS8
onOlFFOC
40CI0122
nOO1F6'iO
00000000
Q4F04f)(,)0
A11(9640
OO')I)OOl')f"I
I)00A,)831
71=0001R 1
1+1')00000
7Fnl)~2()O
oC)') l()00('l
400000Rl
on100nnr'\
01 n oon10
(,'100306A
'lOOOC'O~f)
On"02Rf,)
OFOOSt'),)
C?C2C2Cl
L300'5320
')f)"")fF(
OF00f)"I)O
C. 301CU' 6
00001')39
6')1)1)207"
Y)7nOl0')
,)3FOO~FI)
:)nOlF~~O
nl)oooo~O
,"1;)051'50
300,)JFFO
OOl)lr148
1),)00111n
01)01F70A
Q0f)O,)00f)
PiC'5f)4Cl
on(,ALR!)l
(0624770
1
on'"'()C;lAA
nO'"'''')21F
(V) nno 1 "4
nnO()5,)"R
C3,,)gf)hnn
')A')2f'l01)('
C ')4An 710
rv)')C97FF
I) n OO?40A
O(),)02198
OI)OI)OOI)Z
2"00n 1 'JI)
0V)00f)n0
OOOC001?
OOOO'JR1R
OOn2n('ll)r.
C 3C 8C 1 nq
47FOF0?0
90Ecn('l'1C
5(470004
47Focn4?
000C41FO
690IF5')f)
OOf)000BO
00(01)00?
7FOOOOOO
0')000000
'1 n OI1FFC
')OI)OZF OA
FFO,)()O()[)
CqC')f))C4
OA0A')OOl
1)')1)45071\
,)A[)i)0"')4
'JJ0051'50
f)f)')nn,)0?
o:)o(,nf)O()
'1fO 1 F 67F
f)r nnf)"1= I...
4q()IF5~E
2C 1
8(045)10
()n13'5,)C;0
41011)04A
nn01FFRR
f);"I004C4f)
700r),)03R
.H)n1!)lDR
4"101 ~.'.1 A
n6C"~
O~()"~8FC
0001Ff1hQ
()'"'~1I=r4C
1)'1"000(')1
OAf)lFI)~O
00111=ff)n
ql~1?110
30'"'f'l1~44
FF~Fr100
lR~F')R?l
1~171R01
47F0'5010
nn It n4111
')()I')f)"A31
onOlF41A
'HOC''51?9
0()OOO()00
Fl~f)F,)C
~
I
CHARL I E
OOOOOlA4
41ROF070
1)5001lt'OO
FOAC4155
F01C0700
40014140
41)OBF013
E501E641
41AOOOOR
20?SQ4CF
0001F180
20445833
QlCOlOO5
43402040
47FOA014
,)8fll000C
41f08084
4340204?
S()O 300 1 R
41108118
IB120A19
FIF9C2C2
4710C;04C
41110000
07000100
4122nn'l'l
F03692'3A
0001F3'30
'lonA'58V)
000Ct8')')
'iAF0204C
Qt702011
41FOBOAf')
4A61n(,,)6
')"1401Ff
41f"13f1030
914010f)')
A()7418'51
(QC 7( 7 F O
911F4000
gOO\0040
o 7F F0 71)"
41rnA07n
02']11024
2(11)41A?
nn4341?7
01QIFIF0
20104L,)3
E 0015
1=33301E2
lql F 07AC;
()f1160008
AOOO2E3E
FOFOFAF 1
40f6fOC6
')1'JIFI9~
947F2Q30
Q6OC40nn
4 7F 0 !3044
q,)ERf)OI4
I')OOlOAf)1
1)51=r-qAOl
FIr- C)( 3n 3
?01;:>41~f'l
~:,
~9CRCI01
gl~()2"11
C~Of)OOO0
JOOIFIAO
Ql(O')O?4
't InOna02
FOCt:47FJ
,0161:) 1 11)
96701('')f)
6')4'1~4
(~F44('4')
41 /.f)F 0 d(
40f'l11r))[)
11\
40404040
F n 4A414J
F0'5'14'"'lJO
471 n FnqA
9401 VV)O
91[-12')24
3f'l')66'1'1O
1~'11nAnA
O(H)O~214
2f;11471 n
1°104 Q AO
Q14Q,?011
1'"'?Cf)21r)
,)RF,)204A
47118'170
4 7F ()R()74
')01300,)C
Jlr.1F148
181'.. 411)1)
47Rf'l'511n
1~741A43
nr;u~g411
41=1;)1"'11')1"'1
411 F I"1004
4q6n~nlf\
47F')~nR4
1nr) 1F (1) R
?f"I(1)479n
n(l29')0A2
FIFQC2(l
')00141')43
q 1 2'1 ')'11 1
o IF 4CO
nlCL.L.n
4A6()"l()7~
4A63101J6
100f.,n202
I.. IOIF40n
,)0!J1F431
lQo("n C F(
04 0 1 FCQr:
:)1)010')00
OIFA?O
01 F ~4()
'5R,)OlO?~
QI4');:>')?4
01F41()
OlF4?C
o IF 440
o IF 460
01F4AO
0,IF~OO
11'11FOi)('\
q~EOf)l,)R
47~OR0hCl
182:\91 PO
402C4lA?
C q( 7C 1~ I')
')1)'Jn414n
474')Aor:r
1 \ 4 ~ '5 04-i
43502010
IA.,'5!)?OI
4'3t,0?J3F:
g10?2024
:)f.,'J24noo
191')lR')')
,)f) n OF010
4740,)OZ3
I)d3717FF
01F4EO
OlF500
OlF,)20
01FC;40
':'IF560
OlFC;QO
01F,)AO
"1 F ,)C(;
01F')E0
r)OI)"OO()()
f)()OfH)OI)f)
FOF5F3F2
4040C AF 0
1)1r);)f)1')C
12fF17R5
I)a "I)') 2 I=f)
'1l)l)lF4(8
F04')4041J
C6F4C6F1
O170~?')3
I')Of)AFf))')
'102F44AO
OOf) R') 7FE
QI)El3n"14
')f'l08 ')0') 1
47ROA12A
43407043
47ROR0A'J
9IRr'ln')4
,)0302n44
Jf"I::'l~lf)R
OlF300
o IF 120
OlF340
01 F3 60
Ql'::)8n
01F2~r
1= IF9C 3(6
4 7R,)~ 0 ')0
C('l,)Fq2Fl
47FOOOAr)
"")'"'OOOl)n
or10,)300
41)4040FO
F OF 4F n/+ 0
1=1)1(47R')
91 n '140?C
188F'i821
onto,)nl1
06A02031
lR741A41
Q120100S
4710ROR'1
()5FFQR~13
47F')RI0')
')043)nll3
2'13047FO
1)0nl~1f)9
1)()101~41
00002070
401J()'07~
00n""lR"
f)'3(QC,)4~
1 hC Qn,)(6
0')('11871
')0');?a('~~
qOOO'1lRC
')oonf)7Ff
OO~lFS:;C:;')
·OOr.OOO~(
r)Q01)5110
(PO 1 ()f"IOI)
"oooonno
~
!.;'rJ~JI1')
-0
0
""'t
»
OJ
I
~
~
~~II
OlF6\O
elF 6C G
OlFI)FC
OP=70f',
,,)lF120
"1F740
11 F 7 ~o
01(:780
')It:7AO
01 F 7C 0
01F7r=O
:)lFROO
01f=R20
,'1000,)()')O
000101')')1
oonno')o'")
0100('000
ll'11F777
o R01 F 73 ()
OCOC,)OOO
4122,)(')!)O
o IF~'tO
I=02~1')77F
o IF HbO
:)lFdRO
CQ(7C7F,)
0000C}I()t
01F8~0
603F8~41')
"1 F 8e a
') I') J 7 '}O 1 '3
')1)1 44 741)
QRF6()014
01FBFO
OlF90"
0IFQ?O
o 1f:940
OlFQ60
OlFQSO
OlF91\n
01F9CO
J1F9EO
F:)~h92RR
000IF[)6~
(9C7C7FO
Fl')l qr)204
OOORFC'l'J
,g40~02q
411+40 no q
103041'lO
'1
J!. 'J 1 i~ 't r'
)'1OO()001
000 1 (V)fJ(
O?C()()043
O('lOl,,")?C ')
4000'),)O'l
f)"r 1),f')O 01")
4r(,lF7?,)
1+1A0,)O,)R
l1')2 R 9ft.(F
f')001F5nQ
J:" 1 F9C 3r "3
~O?f32()OR
,)lOIF~2,9
96nI21)")C
F 1 Fq( 3C 2
5GV14781)
,),)()34144
9hn4zno,)
') "QVt 1 1 2
'J 7F C a71)'1
4R'l''302 c
q10~2124
( )CJ ') 0.,
l 1 '1
4000? B/tC
()W)O')O F 1
FCOl".\?00
O:)lFf)OOl
0801 F7?0
')A'1IF618
OC01FFI)O
1R2AC}180
402r.41A~
1):)"C24AR
·:)'1"6f=OIO
4113')oOR
07 7f 4391)
4"4?41,V)
96CO/+')/C
q6~/..
O'11Ci F 01'1
A()84,)Rl:?
000147FC'
4J430():),)
(I ,') '1 4 It 1 0 1
') '1')1 F q 9 ')
436031')11)
47Rf)I=036
1')1R9131
(H"("\f"7F!=
41/21)0r()
F .... 369/>33
,,)n I') 1 F R4)
Oll"l1FR70
n')0(0141')
A"4R 1 V+4
4112 n 'J,)R
f",)l')lrAJI
00C'lF9t)R
Ql(,)71')/4
CA')04364
')"OA'l~31')
2,')445R3~
0IF~,)O
')('»AFll "
"02F441\0
,)O"807FI=
Q 1E RDO 1 It
OlFA?O
C1,)8'1()'11
3 n l')'l(),')
411n3')()Q
(11)1FQAR
F()3(478'1
QlO')4'1?C
1881=5i371
')01')')')1 ~
01F;\41')
01FAf)O
r1F\80
()IFAI'O
011=A(O
r1FAFO
01 F ~ JI"
47RI)~17h
q"'R,)2r)3~
,~f:07"4r:
4~4n2043
1~741!\4"'\
Ql?O?,)11
4 780R')~,)
91R"11)("j4
'J
')0302"44
115~FqjFQ
91?!)2011
94J:"(l4')')')
47~1RI00
()11=~2(,
81~CQh40
o 1 F~ 40
01 F 160
OI'}J1FF,n
aO,)R5831
("jOl)lFqc~
001')1>341
(HF~>10
1~1?1'3()~
4~('')5'')QR
OlFRA"
nlFRCC
JIF4[n
O1Fr:n0
')lFCZO
n 1FC 40
01 FC 60
01FCRO
OlFc"n
9nEQf)"14
4,)002F14
')0or')("j()?
,11I="CFO
C!lFJ00
,)IF,)20
') ') 1 n 'J A'3 7
FI=04C'Cl33
'1')Of")I')nt')8
6911!=,)7h
(')001 FC41
41':'11=(40
,JOOOO,))!)
,)'1,}10FFC
J41)1I="CcC
')00100')1)
',")l()f"),)FF(
')4')1 Ff)F:C
00JIO')OI
(qr 7( 7FI)
917F4COCl
Q"01'ln4 1
"7FF,)7Q,j
01.\103"1
~IF')bi)
FFI'),!:>91C
()(1'')
011=CC0
qhA0~'010
?aJO
2()1247~O
r70007,],)
41 AO"O I) 8
71?q94CF
::v~n1cQ90
Q1(,)10')5
43402041
47[r)RI)74
5RAl')nnc
4 7F '1RO~4
4 Vt02042
47F(H~nR,)
471,)~!")~'1
,041n(11~
41361 ()01')A
lO14n71=F
4103"')1'1
Q1401,),)'5
201 ')4 71= ()
~,)741A'l1
)R(,JO,)f'(1
7F () 0')')') I') I')
)onl')1)00
')')() It: 8?R
48",)0,)('\')
(2(2(7(1
r~I')OO7Ff
I)t')Orl~'l')
1 2 ') til 1 C;
I')O')lFI)~1')
003C0B10
000C'l31F8
000000',)0
O,)')A0000
PROOOO'J8
OOOOI')O()O
1')1)000100
400')0008
7f)0047RO
007850A2
11"1')02411(
"11')1F7r=0
onI)O)3~A
OO·1024()R
4,}OlFC3R
,)()0000')"
R80C'4F 7C
,)Ol~O()U~
4710811~
l R 120A19
FlcQC2C7
4710'504C
411 FI00('
07(10n7)O
(,'Ol"lF530
CHJf)I')"f) ~ 0
00nn:)')00
on"'040AC
7rr')1')4F89
40 1l 0JOq .,
0000"H)'1')
OF()('OOO0
C5E=2C6f)6
OOOOC 7C '5
OOOOI)OOf)
9201F71~
7F'10,)OOO
f)'1""'1f)""
FI')3A947F
OOlR')OAO
n=o"oOJ')
912"7"11
OOClr=A')P
I)')1)81'39A
07Ff61';C
QOff-I)()! 4
10004710
AR40"O')3
0A0"Qt4R
4 7F OftOQO
(Q(7C1FO
47B(,FO?4
00004144
f=,)64f)?00
') " " 1 F 9f: q
1A7A9lQO
402C41A2
CQC7r::7f=1')
0')004140
4740ROC(
1 h 43') 04 ~
43')()2010
11\650711
4A6C2()3F
1~741A43
91nA?024
9M"l24f)O(,
1815tR5,)
O()ODF010
4740'5('7.8
')A3112FF
002FORa')
O()')f)OI')4B
()n1')000lC
2101FC1,)
000000')0
OOOO')I')?A
1100f)OOOC
119E34n.4a
11609(7(')
0')00000')
400"(1),)R
1)20l)OOf)O
OO()OOOOO
20('O43~2
I) I) M) 4C 1")"
,)f10"')f)Oq
4 7F=OF 01 A
')0'')1 ~ 70a
41 AQ;)f'O'"
·1100070 I)
lA6F1840
607(410')
41440,)8l
5044C;~2Z
1~144100
OOOlOAOl
05EF9S,)1
001)(1)072
OOOlF630
00OIF5Ef)
00000000
02004EF8
4001 Fe 71)
')f')OO,)EFC
OC 000000
1)20lFC78
1)0f')00FFC
"'1(0000')0
0201fcns
0OOO4C40
00()IFF4C
O~OI')()40
307F2(H7
"!)01f=9(,R
?,)C'047A"'I
102~,)OA?
FIF9C2C1
00014043
cH202011
')1189401
91C02024
30"66nOI)
lAft5't')64
'58F0204Q
4710Q07"
47FOR014
S013000C
1)201F135A
4()OO~(7A
7FOOOOOO
')0011)001)
')~f')OOOOO
11OO4f"7C
')oon00()1')
00000000
3FO"OO0r)
200000113
!)()002AFI)
'1Ff)0406C
()QOIF038
O()Of)2ACO
O()')O('~(:(
~()f")!')OOO'"
r: 8 0 I) '1 ') n I)
c?r2C?Cl
"'1"')0')1'),)
R )')"'2'54E
1')1')/jl')nQI)f')
01"'OO,)}O
C3C2306A
onOO3039
~000?f)70
1 F,F ()
01011="5'l>1
00nlFf:,?H
00004F5S3
')0('00002
onaooooo
OOl10428
4')400C20
')"OO()()Q3
6901F51=4
7 F OIF7S0
00001}300
,)02F44AO
OOOO?3A8
OI)I')IFRIO
0'507704';
(9C 1C 1F0
,)RAAOOO')
(1)Ol-=908
18'51,)A?O
()0"10.A,)1
0001F5F4
00000000
00320100
042ROO?E'
01080100
40000008
0OO1F750
00000002
F03C4180
00000180
0001F5ZR
30014770
Flt=9C30Z
0501AOOO
0f)OIF81t)
47Q05010
F4FOFIC3
R()OOOlBC
5()?~478()
4112nl)04
FlI=9(3C,)
914rl2024
')O()IFC7~
r)'1000f)f)O
O,)00",C')1)
12444740
Q4B03004
60Q091FE
47F0602C
0101F920
4B50F022
30364260
92002012
FIFQC303
200043A2
00484122
0201FAOO
20304103
91802030
30001844
91402024
47F080B4
4001100D
96203000
47F08010
02013024
FFFF0100
lSr;F58?1
47F05010
00404111
00002070
00000002
00000000
7F004DE8
20000050
000040Z4
OOOOOEfC
040001AO
33001254
OOOlF9A8
Or;OOOlAO
93001284
,)'1')01')1')'10
C3f12C 1C1
('('l()a 1FFC
11="'1'11'):")0')
C V) 3( 3C c:;
Qnc("jI')C~C
1')')(\1')502Q
O~OO40?4
41~?OO2B
6()164740
f) 1 200Ce
OOlOFOI0
47AOFf)74
3030405i)
I)
9740~02(
7C 1Ff)
F016947F
I')OI8'50AO
Ol)2AI=Ola
002494RF
47808044
3000964')
47R080AO
48(31)006
,)006f)202
9401100a
Q47F20l0
960(4000
47F08044
90ESf)C14
(Qc
-0
c'""I
Olfn3,)
OlFf)!\O
01 FDC 0
OlFnFC'
OlFtOO
01 FE 20
0OOO21R8
OOI)C?4QR
oooono')!)
OlFJ:/,O
0')(1'11")1")'")'1
o')')nno()n
OlFF80
nlFJ:L\O
'JIFFCO
OlrEFO
01 F J: 00
n IFF 1(\
()lFF40
OlfF60
OlFF90
r'lFF\1'"
,)lFFCO
OlFFEO
0(1)00103
OOOOl)nol')
f)OOf)Rr8'1
O()Jf')4F'5.~
f)OOOnOHI')
A901FSI)0
oooonlf')O
,10000(1)0
,)FOlI=Ef)')
0')QIFF4C
O'10"'OO3C
OOOlF634
I)O')O,)FFC
f)FonOOf)'"
')4003'5')0
ROf'H'13FC
40l"'OAC7A
01)')00000
000,)OEFC
OOI}OOl'\O
l),9nll13Fr
00"1r-P.40
'.1 ""I ~}) " I) 0 Q
l)O,)lFFIC
E7D9r.lFR
FFf')5400C
4,)4n4040
nO()4fCl"O
aOOlF'5FO
')000'5000
"OO024f)Q
flOOOOOnf)
100nc)02A
0f')~"0Q,)1
()()~lFF4C
"'I:"'IO"'l;?3~q
000"OO~0
00 () 1 r F 4C
')I)"'I()()()('\~
oonf"l')ono
1)00000('0
"'IonO"'lnno
f)OlA80"'l0
40404040
C 1 C 21)~C '5
OOr)nooOO
"'1')0"0001)
C 7n6C 7~6
4040404"
140f)Of)OO
ROO,)13Fr:
F~(' C;f')Q4()
10040400
f)f)0t')Of)O"'l J 00t)0"lAl
f)oonO()6C
n0000181
I)no 1 FFf)C
I)OOlFF4C
O'1()(\~OF
R
OOI'HFFB~
()I)01:?
CF'OO,)()90
1001'10")
') (H)) ') () tH)
I)O'100"n"
'1
C2C50')(4
"'01')1"01)('\
14'1"':"'110')
')')oa~F4A
1"Of)'j019
l)ooonO()0
on"C'OEFC
oonooo')f)
000;'»0190
ooon01AO
')c}C'1Cl(4
,)OO,)24()R
I)()CIC':P)(
OOOlFEAR
O""l,)lFF4C
,)OOOOOOJ
O'1onO')f)t')
'lOO,)OffC
40(H"IOOOO
0')01')4(40
40 ')f)4f) ()I)
')!)on!)000
,)noo')ooo
nn00nno')
0 n "'lFF}4
'1;)nO'1no'1
o,1 " 0 ') 0 () 0
n()"'IrL1OOO I DIn 10 ~4"
I) H)6C2(B
r: 9( ?4()40
HO,)012R4
14000"'){)
'1,)04n70,)
C5DQ4140
l)i)OOOO~O
4,)004(FO
4')001\(7A
!)()()OClf')')
I;? 0" W"" '1
4040 /... n4
f')OOlFFI')C
nOO()f)OOf)
()001)i)FI=C
"')00"000
onooooao
OnrlfF14
OOC0,)·1,)()
1"0'10non
14')411c)()
100~')AO()
~P.8
()oono'1~C
1)'1l)onnf)0
')f')01)"~':'t')
00f"10"0"'l('
4('\404')40
TIOT
f')f)()~Oqf)')
1)70QCQOC;
A('lf)0121)4
,)Of"llFFIC
40"'l0~.r7 A
()O()3')f)~8
PI\C;F t)011
f)O('lFIjEO
00000000
00000000
010flOOOO
OO('IFFSA
6')002010
00"00000
I=FFFI=FFF
OOO()003C
oonooooo
OOOlFOEC
AO('llFF27
00000000
4f)404040
E2E8E2Cl
80001284
oonooooo
00004C40
00('00180
"
o
...,
COMPLETION cnOE - SYSTFM=OOO USER=0444
IEF2851
SYSl.JOBlIR
IEF2851
VOL SER NOS= OlIB02 •
IEF2851
SYSOUT
IEF285I
VOL SFQ ~OS=
I EF 285 I
SYSO UT
IEF28~t
VOL SER NOS=
K!=PT
sysnur
SYSOUT
Appendix 16
PROJECT ADMIRAL
APPENDIX XVI
DIRECT ACCESS ROUTINE (DAROUT)
A.
Abstract
1.
Program name - DAROUT (Direct Access Routine)
2.
Purpose of the program - DAROUT is a program written for
updating a data set on a DASD previously loaded with BSAM.
Updating can be done randomly.
3.
Machine configuration - System/360, working with the preliminary version BETA l-J of the Operating System.
4.
Check-out status - DAROUT was fully tested.
All questions regarding this program should be directed to the
author. The Programming Systems Information Center should be
copied on all correspondence.
B.
Program Description
1.
Purpose of the Program
DAROUT - Direct Access Routine - was written as a program
for updating a data set on a DASD. Updating can be done
randomly for one data set.
2.
Method
a.
The DAROUT program has to be placed by the user
either into LINKLIB or a private library.
b.
Before each CALL macro issued for the DAROUT program, the user has to supply the specific I/O code,
the track seek address and the updated data, if applicable, into previously defined fields.
The DAROUT program expects the relative track seek
address to be given at execution time and will OPEN,
READ, WRITE, or CLOSE according to the specified I/O
code and key.
3.
Programming Requirements
a.
The data set to be updated with DAROUT must have
been loaded previously with BSAM. It must have one
extent only.
A16-1
APPENDIX XVI (Cont'd.)
b.
The user must either use a CALL macro to include the
DAROUT load module at linkedit time or use a LOAD
macro and a CALL macro to bring in the module at object time.
c.
The user has to follow the standard linkage conventions. The entry point to DAROUT is DAENTRY.
d.
The user has to define the standard sequential order
of parameters in the parameter list, as specified
below in Figures 1 and 2, which is passed on to the
DAROUT program.
e.
The user must build one buffer (BUFAREA) of fixed
format F and of a length large enough to hold
KEY+DATA, aligned to a double word boundary. For
example, if the data area is 80 characters and includes a 5 character key, the buffer then has to be
85 characters.
f.
The DAROUT program expects the following information
to be prepared before issuing the CALL macro:
1)
Relative seek address.
2)
Operation to do (OPEN, CLOSE, READ, WRITE).
The other parameters may be given initial value
which will not be changed.
g.
There are no restrictions on the length of the buffer (BUFSIZE); the length of the key (KEYSIZE) has
to be < 256.
h.
Synonym keys are not allowed on the same track.
Track synonyms for the track seek address are
allowed.
i.
The parameters passed on to DAROUT program by the
CALL macro must be of the following form and coded
in the same manner and sequence as listed.
A16-2
APPENDIX XVI (Cont'd.)
1)
Using COBOL
WORKING-STORAGE SECTION
77BUFSIZE VALUE ... PICTURE S9(4)
COMPUTATIONAL.
77KEYSIZE VALUE ••. PICTURE S9(4)
COMPUTATIONAL.
77SEEKTRAK
PICTURE S9(3)
COMPUTATIONAL-3.
77IOCODE PICTURE A.
01 BUFAREA.
02
Pictures as on Disk
02
FIGURE 1
2)
Using ASSEMBLER Language
BUFSIZE
KEYSIZE
SEEKTRAK
IOCODE
BUFAREA
DC
DC
DC
DS
DS
DS
XL n
XL2'nn'
PL3'000'
CLI
OD
.
FIGURE 2
A 16-3
(any length)
(length<2S6)
(for CCCH)
(for Read or Write
Open or Close)
(any length for
Key+Data)
APPENDIX XVI (Cont'd.)
j.
Standard Calling Sequence
1)
COBOL
DAROUT to be included at linkedit time:
ENTER LINKAGE
CALL DAENTRY USING BUFSIZE, KEYSIZE, SEEKTRAK,
IOCODE, BUFAREA.
2)
ASSEMBLER
DAROUT to be included:
a)
At linkedit:
anyname CALL DAENTRY, (BUFSIZE,KEYSIZE,
SEEKTRAK, IOCODE,BUFAREA)
OR
b)
At execution time:
LOAD EP=DAROUT
LIS, 0
CALL (15), (BUFSIZE,KEYSIZE,SEEKTRAK,
IOCODE,BUFAREA)
k.
1.
Before issuing the CALL-macro, the following data has
to be prepared:
1)
Relative seek address to be moved into the key
area (first bytes of BUFAREA).
2)
A specific constant to be moved to the field
IOCODE.
The user must move the track seek address in packed
format into the field SEEKTRAK as if his data set
was to begin on track zero (0000).
Example:
If the data set is contained on 1000
tracks, i.e. from 0000 to 0999, then when
addressing the last track of this data set,
the user has to fill in SEEKTRAK with the
packed result of:
i.e.,
1 byte
10019919s1
1 byte
The beginning address of the data set will
be taken by DAROUT from the DSCB and added
to it.
A16-4
APPENDIX XVI (Cont'd.)
m.
The constant giving the specific I/O-operation is as
follows:
for
OPEN hex. represent. of 0 i.e.,
C
CLOSE
R
READ
WRITE
W
'D6'
'C3'
'D9'
'E6'
When calling for OPEN and CLOSE, the user need not
fill in the track seek address and the key area, but
all other parameters must be filled and passed.
D.
Operating Procedures
In order to use the DAROUT program, the following is a prerequisite:
1.
Place the DAROUT program as a member of LINKLIB or a
private library. Use the member name DAROUT.
2.
Use DDDISK as the DD-name for the data set to be updated.
The following page gives a listing of the control cards needed
to place DAROUT into a private library called TESTDA.
A16-5
APPENDIX XVI (Cont'd.)
JOB CONTROL CARDS FOR PLACING DAROUT AS A
MEMBER OF THE PRIVATE LIBRARY TESTDA
IILINKEXEC JOB 0234,HUET,MSGLEVEL=1
IILINK
PGM=LINKEDIT,PARM='NCAL,XREF'
EXEC
IISYSPRINT DD
SYSOUT=A
IISYSUTI DD
DSNAME=MYWORK,UNIT=ID,SPACE=(TRK,(10,10)),
C
II
DISP=(NEW,DELETE),LABEL=(,NL),
C
II
VOLUME=
SER=(111111))
IISYSLMOD DD DSNAME=TESTDA(DAROUT),DISP=(OLD,KEEP),UNIT=ID, C
II
VOLUME=(,,1,1,SER=(111111)),LABEL=(,NL)
IISYSLIN DD
*
IEF236I ALLOCATION FOR LINKEXEC LINK
IEF237I SYSPRINT ON ODE
IEF237I SYSUT1
ON 190
IEF237I SYSLMOD
ON 190
IEF237I SYSLIN
ON 000
****MLEA OPTIONS SPECIFIED-NCAL,XREF
****MLEB**** DAROUT NOW ADDED TO PARTITIONED DATA SET
ORGANIZATION AS A MEMBER.
A 16-6
APPENDIX XVI (Cont'd.)
E.
DAROUT ERROR MESSAGES
MESSAGE
F.
MEANING
'10 COMPLETED WITH ERROR'
Post code in EeB is not '7F'.
The routine will process the
next record unless there is an
unrecoverable error for which
lOS displays its own error message with sense and status flags.
'IOCODE INVALID.
NOT R.W.C.O'
Initialization of 10 code by the
user is invalid.
SAMPLE
The sample consists of two parts:
1.
PART 1 - Program ITLOAD. This program loads records used
as test data to a DASD. It is documented by the symbolic
cards, listing, and a listing of the control cards to
load and execute this program which is a member of the
private library TESTDA. Listing and card deck of the input records are included.
2.
PART 2 - Program TESTROUT, to call the DAROUT program for
updating the test data. This part is documented by the
symbolic cards, listing and by the listing of the control
cards to load and execute this program which is a member
of the private library, TESTDA. Listing and card deck of
the records to update are included. The TESTROUT program
will, when executed, list each record before it is updated. This listing as well as a listing of the updated
records is shown.
3.
Data Preparation for Sample
The format of the records to load to a DASD using ITLOAD
as well as updating these records using DAROUT, called by
TESTROUT is shown in Figure 3.
XXXX
Key
alue to
Update
FIGURE 3
A16-7
Track
Address
Relative
to Zero
I
APPENDIX XVI (Cont'd.)
G.
Listings
The following listings are attached:
1.
Source listing of DAROUT.
2.
Listing of control cards for linkedit DAROUT.
3.
Source listing of ITLOAD.
4.
List{ng of control cards for linkedit ITLOAD.
s.
Listing of control cards for execute ITLOAD.
6.
Listing of input records to be loaded by ITLOAD.
7.
Source listing of TESTROUT.
8.
Listing of control cards for linkedit TESTROUT.
9.
Listing of control cards for executing TESTROUT.
10.
Listing of data records to be used as input for updating.
11.
Listing' of data records before updating by DAROUT.
12.
Listing of data records after updating by DAROUT.
A16-8
APPENDIX XVI (Cont'd.)
DAROUT SYMBOLIC LISTING
1.
$JOB
MODE-ASSEMBLE
EXECUTE,ASSEMBLER
DAENTRY START
SAVE (14 , 1 2)
BALR 2,0
USING *,2,3
ST
I3,MYSAV+4
LA
13,MYSAV
PUT PASSED AD DR IN REG 4 TO 9
LM
4,9,0(1)
TEST IF OPEN
CLI
0(7),X'D6'
BE
OPENME
TEST IF CLOSE
CLI
0(7),X'C3'
BE
CLOSEME
TO READ-WRITE ROUTINE
B
RW
OPEN DISK DATA SET
OPENME
OPEN (DCBREAD,(INPUT))
OPEN (DCBWRITE,(OUTPUT))
L
10,DCBREAD+44
ADDRESS OF DEB IN REG 10
MVC
BEGINAD(6),36(10)
GET BBCCTT OF BEGINNING OF DATA
MVC
DCBREAD+16(1),I(S) INITIALIZE KEY LEN IN DCB
MVC
DCBWRITE+16(1),I(S)INITIALIZE KEY LEN IN DCB
MVC
SCHREAD+6(2),0(S) MOVE KEY LEN TO
MVC
SCHWRITE+6(2),O{S)
COUNT FIELDS OF FIRST CCW
MVC
WORD2+2(2),0(4)
L
12, WORD2
BUFSIZE IN REG 12
MVC
WORD2+2(2),O(S)
SUBTRACT KEYSIZE FROM BUFSIZE
S
12, WORD2
STH
12,WRITOUT+6
STORE DATA LENGTH IN
STH
12,READIN+6
COUNT FIELD OF LAST CCW
ST
8,WORD
MVC
SCHREAD+l(3),WORD+1 MOVE BUFAREA ADDRESS TO
MVC
SCHWRITE+1(3),WORD+1 DATA ADDR FIELD OF FIRST CCW
A
8,WORD2
ADD KEYSIZE TO BUFAREA ADDR
ST
8,WORD
MVC
READIN+l(3),WORD+1
MOVE ADDR OF DATA AREA TO
MVC
WRITOUT+l(3),WORD+1 DATA ADDR FIELD OF LAST CCW
GOBACK
L
13,MYSAV+4
RETURN (14,12)
RETURN TO CALLER
CLOSEME CLOSE (DCBREAD)
CLOSE (DCBWRITE)
B
GOBACK
*********ROUTINE TO MOVE SEEKTRAK INFORMATION TO BBCCTTR OF IOB****
RW
MVC
BIN+7(1),2(6)
CVB
11,BIN
STH
11,CYLTRK+2
MVO
PK,0(2,6)
MVC
BIN+6(2),PK
CVB
11,BIN
STH
11,CYLTRK
L
9,BEGINAD+2
L
10,CYLTRK
AR
10,9
ST
10,RESULT+2
CLI
RESULT+S,X'09'
BH
EXIT
B
GO
°
A 16-9
APPENDIX XVI (Cont'cl.)
1.
EXIT
LA
SR
ST
SRL
LA
AR
STH
GO
MVC
MVC
CLI
BNE
EXCP
WAIT
CLI
BNE
B
WRITE
CLI
BNE
EXCP
WAIT
CLI
BNE
B
CODE
WTO
B
ERROR
WTO
B
DS
DCBREAD DCB
DS
DCBWRITE DCB
DS
10BREAD DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
SKREAD DC
DC
ECBREAD DC
SCHREAD CCW
CCW
READIN CCW
IOBWRITE DC
DC
DC
DAROUT SOURCE LISTING
4,10
10,4
10,RESULT+2
10,16
4,1
10,4
10,RESULT+2
SKWRITE,RESULT
SKREAD,RESULT
TEST IF READ WANTED
0(7),X'D9'
WRITE
READ DISK
IOBREAD
1,ECB-ECBREAD
CHECK FOR READ ERROR
ECBREAD,X'7F'
ERROR
GOBACK
TEST IF WRITE WANTED
0(7) ,X'E6'
TEST FOR INVALID 10 CODE
CODE
IOBWRITE
DISK WRITE
1,ECB=ECBWRITE
CHECK FOR WRITE ERROR
ECBWRITE,X'7F'
ERROR
GOBACK
'IOCODE INVALID. NOT R W CD.'
GOBACK
'10 COMPLETED WITH ERROR'
GOBACK
4F
DSORG=DA,MACRF=(E),DDNAME=DDDISK,IOBAD=IOBREAD,
DEVD=DA,KEYLEN=10
4F
DSORG=DA,MACRF=(E),DDNAME=DDDISK,IOBAD=IOBWRITE,
DEVD=DA,KEYLEN=10
OF
X'42'
X'OO'
XL2'0'
X'OO'
AL3(ECBREAD)
X'OO'
XL7'0'
X'OO'
AL3(SCHREAD)
ADDRESS OF CCW LIST
X'OO'
AL3(DCBREAD)
X'OO'
XL3'0'
X'OOOO'
X'OOOO'
X'OO'
XL6'0'
lOB BBCCTT BIN,CYL,TRACK
X'OO'
lOB R----RECORD
XL4'0'
ECB
X'29' ,0,X'60',0
SEARCH KEY EQUAL
X'08',*-8,X'00',O
TIC
X'06' ,0,X'20',0
READ DATA
X' 42'
X'OO'
XL2'0'
A 16-10
213
C
C
APPENDIX XVI (Cont'd.)
1.
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
SKWRITE DC
DC
ECBWRITE DC
SCHWRITE CCW
CCW
WRITOUT CCW
DS
BEGINAD DC
DS
RESULT
DC
WORD
DC
BIN
DC
CYLTRK
DC
PK
DC
MYSAV
DS
WORD2
DC
END
PUNCH
DAROUT SOURCE LISTING
313
X'OO'
AL3(ECBWRITE)
X'OO'
XL7'0'
X'OO'
AL3(SCHWRITE)
ADDRESS OF CCW LIST
X'OO'
AL3(DCBWRITE)
X'OO'
XL3'0'
X'OOOO'
X'OOOO'
X'OO'
XL6'O'
lOB BBCCTT
BIN,CYL,TRACK
X'OO'
lOB R----RECORD
XL4'0'
X' 29' ,0,X'60',0
SEARCH KEY EQUAL
X'08',*-8,X'00',0
TIC
X'OS' ,0,X'20',0
WRITE DATA
H
XL6'0'
H
XL6'0'
F' 0'
D'O'
F' 0 '
X'OOOC'
18F
F' 0'
DAENTRY
A 16-11
APPENDIX XVI (Cont'd.)
CONTROL CARDS FOR LINKEDIT DAROUT
2.
IILINKEXEC JOB 0234,HUET,MSGLEVEL=1
IILINK
EXEC
PGM=LINKEDIT,PARM='NCAL,XREF'
IISYSPRINT DD DSNAME=PRTR,DISP=SYSOUT=A
IISYSUTI DD
DSNAME=MYWORK,UNIT=ID,SPACE=(TRK,(10,10)),
II
DISP=(NEW,DELETE),LABEL=(,NL),
II
VOLUME=(,,1,l,SER=(111111))
IISYSLMOD DD DSNAME=TESTDA(DAROUT),DISP=(OLD,KEEP),UNIT=ID,
II
VOLUME=("l,1,SER=(111111)),LABEL=(,NL)
IISYSLIN DD
"
C
C
C
IEF2361 ALLOCATION FOR LINKEXEC LINK
IEF2371 SYSPRINT ON OOE
IEF2371 SYSUTI
ON 190
IEF2371 SYSLMOD
ON 190
IEF2371 SYSLIN
ON OOC
***"MLEA OPTIONS SPECIFIED - NCAL,XREF
****MLEB**** bAROUT NOW ADDED TO pARTITIONED DATA SET ORGANIZATION
AS A MEMBER
NOTE:
DAROUT WILL BE A MEMBER OF THE PRIVATE LIBRARY rESTDA.
A 16-12
APPENDIX XVI (Cont'd.)
3.
ITLOAD SOURCE LISTING
EXECUTE,ASSEMBLER
START
START
0
SAVE
(14,12)
BALR
2,0
USING
*,2,3
ST
13,MYSAV+4
LA
13,MYSAV
BUILD
POOLA,2,SS
BUILD
POOLB,2,SO
OPEN
(DCBIN,(INPUT),DCBOUT,(OUTPUT))
FIRST
GET
DCBIN,WORK+S
AGAIN
MVC
WORK(S),WORK+S
PACK
ZONE+l(3),WORK+31(4)
MVC
WORK+31(4),ZONE
AP
CTR,ONE
MVC
SAVIT,WORK+Sl
GETBUF DCBOUT,(S)
MVC
O(SS,S),WORK
WRITE
DECBOUT,SF,DCBOUT,(S)
CHECK
DECBOUT
FREEBUF DCBOUT,(S)
GET
DCBIN,WORK+S
CLC
SAVIT,WORK+Sl
BE
AGAIN
FULTRK CLC
CTR,TWONE
BNE
DUMY
MVC
CTR, ZERO
CLC
CTE,ONE
BNE
AGAIN
CLOSE
(DCBIN"DCBOUT)
L
13,MYSAV+4
RETURN (14,12)
DUMY
WRITE
DECBY,SD,DCBOUT,DUMKEY
CHECK
DECBY
AP
CTR,ONE
B
FULTRK
EDC
AP
CTE,ONE
B
FULTRK
ZONE
DC
CL4'
ONE
DC
P'I'
CTE
DC
P'O'
CTR
DC
PL2'+00'
SAVIT
DS
CL4
TWONE
DC
PL2'+21'
ZERO
DC
PL2'+00'
DUMKEY DC
XL6'FFFFFFFFFFFF'
DS
4F
DCBOUT DCB
DSORG=PS,MACRF=(WL),DDNAME=DDOUT,DEVD=DA,
C
KEYLEN=S,RECFM=F,BLKSIZE=SO,BUFNO=2,BUFCB=POOLA
DS
OD
POOLA
DS
CLlS4
DS
4F
DCBIN
DCB
DSORG=PS,MACRF=(GM),DDNAME=DDIN,DEVD=RD,
C
RECFM=F,LRECL-SO,MODE=E,BLKSIZE=SO,BFTEK=S,
C
BUFNO=2,BUFCB=POOLB,EODAD=EOC
DS
OD
POOLB
DS
CL16S
DS
OD
WORK
DS
CLSS
MYSAV
DS
lSF
END
START
PUNCH
A 16-13
APPENDIX XVI (Cant'd.)
CONTROL CARDS FOR LINKEDIT ITLOAD
4.
IILINKEXEC JOB 0234,HUET,MSGLEVEL=1
IILINK
EXEC
PGM=LINKEDIT,PARM='NCAL,XREF'
IISYSPRINT DD
DSNAME=PRTR,DISP=SYSOUT=A
IISYSUTI DD
DSNAME=MYWORK,UNIT=ID,SPACE=(TRK,(10,10)),
C
II
DISP=(NEW,DELETE),LABEL=(,NL),
C
II
VOLUME=("I,I,SER=(IIIIII))
IISYSLMOD DD
DSNAME=TESTDA(ITLOAD),DISP=(NEW,KEEP),UNIT=ID,
C
II
VOLUME=("I,I,SER=(IIIIII)),LABEL=(,NL),
C
II
SPACE=(TRK.(SO.,I))
IISYSLIN DD
*
IEF236I ALLOCATION FOR LINKEXEC LINK
IEF237I SYSPRINT ON OOE
IEF2371 SYSUTI
ON 190
IEF237I SYSLMOD
ON 190
IEF237I SYSLIN
ON 000
****MLEA OPTIONS SPECIFIED - NCAL,XREF
****MLEB**** ITLOAD NOW ADDED TO PARTITIONED DATA SET ORGANIZATION
AS A MEMBER.
NOTE:
ITLOAD WILL BE A MEMBER OF THE PRIVATE LIBRARY TESTDA.
A16-14
APPENDIX XVI (Cont'd.)
s.
CONTROL CARDS FOR EXECUTING ITLOAD
IIITLOAD
JOB
1234,ABC,MSGLEVEL=1
IIJOBLIB
DD
DSNAME=TESTDA,UNIT=ID,DISP=(OLD,KEEP),
C
VOLUME=("l,l,SER=(llllll)),LABEL=(,NL)
II
IISTEPA
EXEC PGM=ITLOAD
IIDDDISK
DD
II
DSNAME=DATA,UNIT=ID,DISP=(OLD,KEEP),LABEL=(,SL),
VOLUME=(,,1,1,SER=(111111))
IIOUTPUT
DD
DSNAME=PRTR,DISP=SYSOUT=A
IIINPUT
DD
*
A 16-15
C
APPENDIX XVI (Cont'd.)
6.
LISTING OF CARD INPUT RECORDS FOR ITLOAD
00001
00002
00011
00012
00021
00022
00031
00032
00041
00042
00051
00052
00061
00062
00071
00072
00081
00082
00091
00092
00101
00102
00111
00112
00121
00122
00131
00132
00141
00142
00151
00152
00161
00162
00171
00172
00181
00182
00191
00192
00201
00202
00211
00212
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
0001
A 16-16
0000
0000
0001
0001
0002
0002
0003
0003
0004
0004
0005
0005
0006
0006
0007
0007
0008
0008
0009
0009
0010
0010
0011
0011
0012
0012
0013
0013
0014
0014
0015
0015
0016
0016
0017
0017
0018
0018
0019
0019
0020
0020
0021
0021
APPENDIX XVI (Cont'd.)
TESTROUT SOURCE LISTING
7.
EXECUTE,ASSEMBLER
ZOOM
START
0
SAVE
(14,12)
BALR
2,0
USING
*,2,3
ST
13,SAVEAREA+4
AROUND
BUILD
POOL,4,80
OPEN
(DCBCARD, (INPUT) ,DCBPRINT,(OUTPUT))
LOAD
EP=DAROUT
LOAD DAROUT INTO CORE
LR
15,0
ADDR OF ENTRY POINT TO REG 15
ST
O,EPT
STORE ENTRY POINT TO EPT
LA
13,SAVEAREA
MVI
IOCODE,X'D6'
PREPARE FOR OPEN
AA
CALL
(IS),(BUFSIZE,KEYSIZE,SEEKTRAK,IOCODE,BUFAREA) OPEN
AGAIN
GET
DCBCARD,WORK
GET RECORD
MVC
BUFAREA(S),WORK GET KEY
PACK
SEEKTRAK,WORK+76 (4) INSERT TRACK SEEK ADDRESS
MVI
IOCODE,X'D9'
PREPARE FOR READ
LA
13,SAVEAREA
L
lS,EPT
LOAD ENTRY POINT ADDR TO REG 15
BB
CALL
(IS),(BUFSIZE,KEYSIZE,SEEKTRAK,IOCODE,BUFAREA) READ
MVC
MASKC,MASKD
MVC
MASKA,BUFAREA
MVC
MASKB,BUFAREA+S PREPARE FOR PRINT
ED
MASKC,BUFAREA+32 RECORD BEFORE UPDATING
MVC
ADDRES+36(4),BUFAREA+81
PUT
DCBPRINT,OUTPUT PRINT
AP
BUFAREA+32(3),VALUE UPDATE BY ADDING
LA
13,SAVEAREA
L
lS,EPT
LOAD ENTRY POINT ADDR TO REG 15
MVI
IOCODE,XtE6 t
PREPARE FOR WRITE
CC
CALL
(IS),(BUFSIZE,KEYSIZE,SEEKTRAK,IOCODE,BUFAREA)CLOSE
CLOSE
(DCBCARD"DCBPRINT)
L
13,SAVEAREA+4
RETURN (14,12)
DS
4F
DCBCARD DCB
DSORG=PS,MACRF=(GM),DDNAME=INPUT,DEVD=RD,MODE=E, C
RECFM=F,LRECL=80,BLKSIZE=80,BFTEK=S,BUFNO=2,
C
BUFCB=POOL,EODAD=ENDC CARD
DS
OD
POOL
DS
CL328
DS
4F
DCBPRINT DCB
DSORG=PS,MACRF=(PM),DDNAME=OUTPUT,DEVD=PR,
C
RECFM=F,LRECL=80,BLKSIZE=80,BFTEK=S,BUFNO=2,
C
BUFCB=POOL
WORK
DS
CL80
SAVEAREA DS
18F
BUFSIZE DC
XL2'SS'
X FIELDS TO BE SET UP BY THE
KEYSIZE DC
XL2'S'
X USER IN THIS SEQUENCE ONLY.
SEEKTRAK DC
PL3'000'
X
10CODE
DS
CL1
X
DS
OD
A16-17
APPENDIX XVI (Cont'd.)
TESTROUT SOURCE LISTING (Cont'd.)
DS
DS
OUTPRINT DS
DS
MASKA
DC
DS
MASKB
DC
MASKC
DC
ADDRES
DC
DEPAK
DS
VALUE
DC
EPT
DS
MASKD
DC
END
PUNCH
BUFAREA
CL8S
OD
OCL80
CLS
CLS' ,
CLS
CL20' ,
X'2020202020'
CL40' ,
CL4
P'l'
F
X'2020202020'
ZOOM
X
X
A-16-18
APPENDIX XVI (Cont'd.)
CONTROL CARDS FOR LINKEDIT TESTROUT
8.
IILINKEXEC JOB
IILINK
0234~HUET,MSGLEVEL=1
EXEC
PGM=LINKEDIT,PARM='NCAL,XREF'
IISYSPRINT DD
DSNAME=PRTR,DISP=SYSOUT=A
IISYSUT1 DD
DSNAME=MYWORK,UNIT=1D,SPACE=(TRK,(10,10)),
C
II
DISP=(NEW,DELETE),LABEL=(,NL),
C
II
VOLUME=(,,1,1,SER=(111111))
IISYSLMOD DD
DSNAME=TESTDA(TESTROUT),DISP=(OLD,KEEP),UNIT=ID,
II
VOLUME=(,,1,1,SER=(111111)),LABEL=(,NL)
IISYSLIN DD
*
C
IEF236I ALLOCATION FOR LINKEXEC LINK
IEF237I SYSPRINT ON ODE
IEF237I SYSUT1
ON 190
IEF237I SYSLMOD
ON 190
IEF237I SYSLIN
ON 000
****MLEA OPTIONS SPECIFIED - NCAL,XREF
****MLEB****TESTROUT NOW ADDED To PARTITIONED DATA SET ORGANIZATION
AS A MEMBER.
NOTE:
TESTROUT WILL BE A MEMBER OF THE PRIVATE LIBRARY TESTDA.
A16-19
APPENDIX XVI (Cont'd.)
CONTROL CARDS FOR EXECUTING TESTROUT
9.
IITESTIN JOB
0234,ABC,MSGLEVEL=1
IIJOBLIB DD
DSNAME=TESTDA,UNIT=lD,DISP=(OLD,KEEP),
II
VOLUME=("l,l,SER=(llllll)),LABEL=(,NL)
IISTEPA
EXEC
PGM=TESTROUT
IIOUTPUT DD
DSNAME=PRTR,DISP=SYSOUT=A
IIDDDISK DD
DSNAME=DATA,UNIT=ID,DISP=(OLD,KEEP),LABEL=(,SL),
II
VOLUME=("l,l,SER=(llllll))
IIINPUT
DD
*
IEF236I ALLOCATION FOR TESTIN STEPA
IEF237I
JOBLIB ON 190
IEF237I
OUTPUT ON ODE
IEF237I
DDDISK ON 190
IEF237I
INPUT
NOTE:
C
ON oDe
'TESTROUT' CALLS 'DAROUT'
DD-NAME DDDISK IS REQUIRED FOR THE DATA SET
TO BE UPDATED BY 'DAROUT'.
A 16-20
c
APPENDIX XVI (Cont'd.)
LISTING OF RECORDS USED FOR
UPDATING WITH DAROUT
10.
00031
00041
00062
00072
00071
00081
00082
00091
00101
00111
00112
00121
00122
00131
00032
00011
00132
00141
00142
00102
00152
00151
00182
00161
00162
00171
00172
00181
00191
00021
00022
00192
00201
00202
00211
00212
00051
00052
00092
00061
00001
00002
00012
00042
00031
00041
00062
00072
00071
00081
00082
00091
00101
00111
00112
00121
00122
00131
00032
00011
00132
00141
00142
00102
00152
00151
00182
00161
00162
00171
00172
00181
00191
00021
00022
00192
00201
00202
00211
00212
00051
00052
00092
00061
00001
00002
00012
00042
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
A 16-21
0003
0004
0006
0007
0007
0008
0008
0009
0010
0011
0011
0012
0012
0013
0003
0001
0013
0014
0014
0010
0015
0015
0018
0016
0016
0017
0017
0018
0019
0002
0002
0019
0020
0020
0021
0021
0005
0005
0009
0006
0000
0000
0001
0004
APPENDIX XVI (Cont'd.)
11.
DATA RECORDS TO BE UPDATED WITH DAROUT
IEF236I ALLOCATION FOR TESTIN
IEF237I JOBLIB
ON 190
IEF237I OUTPUT
ON ODE
IEF237I DDDISK
ON 190
IEF2371 INPUT
00031
00041
00062
00072
00071
00081
00082
00091
00101
00111
00112
00121
00122
00131
00032
00011
00132
00141
00142
00102
00152
00151
00182
00161
00162
00171
00172
00181
00191
00021
00022
00192
00201
00202
00211
00212
00051
00052
00092
00061
00001
00002
00012
00042
STEPA
NOTE: THIS PRINTOUT IS
PRODUCED BY TESTROUT.
IT
SHOWS THE DATA RECORDS ON
DISK BEFORE THEY ARE UPDATED.
ON OOC
00031
00041
00062
00072
00071
00081
00082
00091
00101
00111
00112
00121
00122
00131
00032
00011
00132
00141
00142
00102
00152
00151
00182
00161
00162
00171
00172
00181
00191
00021
00022
00192
00201
00202
00211
00212
00051
00052
00092
00061
00001
00002
00012
00042
NORMAL END OF TASK
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
----1
A 16-22
0003
0004
0006
0007
0007
0008
0008
0009
0010
0011
0011
0012
0012
0013
0003
0001
0013
0014
0014
0010
0015
0015
0018
0016
0016
0017
0017
0018
0019
0002
0002
0019
0020
0020
0021
0021
0005
0005
0009
0006
0000
0000
0001
0004
APPENDIX XVI (Cont'd.)
12.
DATA RECORD UPDATED WITH DAROUT
IEF236I ALLOCATION FOR TESTIN
IEF237I JOBLIB
ON 190
IEF237I OUTPUT
ON OOE
IEF237I DDDISK
ON 190
IEF237I INPUT
00031
00041
00062
00072
00071
00081
00082
00091
00101
00111
00112
00121
00122
00131
00032
00011
00132
00141
00142
00102
00152
00151
00182
00161
00162
00171
00172
00181
00191
00021
00022
00192
00201
00202
00211
00212
00051
00052
00092
00061
00001
00002
00012
00042
STEPA
NOTE: THIS IS A PRINTOUT
PRODUCED BY A RERUN OF TESTROUT
AFTER UPDATING THE RECORDS.
ON OOC
00031
00041
00062
00072
00071
00081
00082
00091
00101
00111
00112
00121
00122
00131
00032
00011
00132
00141
00142
00102
00152
00151
00182
00161
00162
00171
00172
00181
00191
00021
00022
00192
00201
00202
00211
00212
00051
00052
00092
00061
00001
00002
00012
00042
NORMAL END OF TASK
0003
0004
0006
0007
0007
0008
0008
0009
0010
0011
0011
0012
0012
0013
0003
0001
0013
0014
0014
0010
0015
0015
0018
0016
0016
0017
0017
0018
0019
0002
0002
0019
0020
0020
0021
0021
0005
0005
0009
0006
0000
0000
0001
0004
----2
----2
----2
- - -- 2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
-"---2
----2
----2
----2
----2
----2
----2
----2
----2
----2
----2
TESTDA
VOL SER NOS=111111.END
KEPT
A 16-23
APPENDIX XVI (Cont'd.)
H.
Card Decks
The following card decks are included in this documentation:
1.
Source deck of DAROUT.
2•
Source deck of ITLOAD.
3.
Source deck of TESTROUT.
4.
Object deck of DAROUT.
5•
Data for ITLOAD.
6.
Data for TESTROUT.
A 16-24
Appendix 17
PROJECT ADMIRAL
APPENDIX XVII-Part 1
PRELIMINARY INDEXED SEQUENTIAL ACCESS METHOD (PISAM)
VERSION 0, MODIFICATION LEVEL 0
A.
Abstract
PISAM consists of a group of macros which are similar to the
macros of BISAM/QISAM. The use of PISAM requires no special
education for people who know BISAM/QISAM. PISAM itself uses
BSAM and EXCP macros, but the PISAM programmer does not require any knowledge of them.
1.
Authors:
2.
Facilities
Michael Faix, IBM Germany
Albert Henne, IBM Germany
Peter Daendliker, IBM Switzerland
PISAM creates and processes Indexed Sequential data sets
on the 2311 under Pre-Beta or released OS. Processing
may be sequential or random and additions can be inserted.
3.
Availability
First released version, February 1, 1966.
4.
Restrictions
When being used under Pre-Beta as, all Pre-Beta OS restrictions apply to PISAM. The use of PISAM does not involve internal changes to Pre-Beta or released os. PISAM
can only create and process single volume data sets.
s.
Record Formats
Only blocked or unblocked records of
allowed.
6.
~ixed
length are
Compatibility
Data sets created by PISAM are not compatible with BISAM/
QISAM data sets. Also, the macros used by PISAM are not
compatible with BISAM/QISAM macros.
7.
~rtl
Conversion
a.
To convert PISAM data sets to BISAM/QISAM data sets,
the user should retrieve the entire PISAM data set
sequentially and create a new data set with QISAM.
b.
To facilitate conversion of programs containing
PISAM macros to subsequent levels of PISAM or to
BISAM/QISAM, the user should put all PISAM macros in
one separate control section and branch to these
A17-1
APPENDIX XVII-l (Cont'd.)
macros using BAL-instructions. To convert, he must
only reassemble this one control section, not the
entire program.
8.
Program Distribution
Through Early Installation Centers.
B.
General Description
1.
PISAM provides the following macros:
Macro
Instruction
IDCB
Data control block, which describes the data set
to be processed. In addition, the IDCB contains all the necessary codes to perform one
specific function. (See PROCES entry in IDCB
macro description.)
IOPEN
Initializes one data control block so that its
associated data set can be processed. Only one
data set can be opened by one IOPEN macro.
IPUT
Moves one logical record from the user's work
area into an output buffer for writing (used
only in loading an indexed sequential data set.)
IGET
Gets a logical record from an indexed sequential
data set (sequential input).
IPUTX
Returns an updated logical record to an indexed
sequential data set (sequential update).
IREAD
Retrieves randomly a logical record from an indexed sequential data set (random input).
IWRITE
Returns an updated logical record to an indexed
sequential data set (random update).
IADD
Adds a new logical record to an indexed sequential data set (insertion of additions).
ICLOSE
Disconnects one data set from the user's
problem program. Only one data set can be
closed by one ICLOSE macro.
There is no overlap of I/O operations in the PISAM macros
for loading and processing. In other words, after having
issued a PISAM macro program, control is returned to the
user only when all I/O operations concerning this macro
have been terminated.
~rtr
A17-2
APPENDIX XVII-l (Cont'd.)
A write validity check is performed for all 2311 output
operations. A key containing all X'FF' must not be used.
Multiple IOPEN's may not be executed during the loading
of an indexed sequential data set even if the data set
was closed by ICLOSE prior to issuing the second IOPEN.
2.
C.
Deletions
a.
The user can flag records to be deleted. To do this,
he must insert X'FF' in the first byte after the key
in the logical record (RKP+KEYLEN+l). This byte must
never contain X'FF' as data. Also, because of the
position of the deletion code, the key of the record
must not extend to the last byte of the record.
b.
Flagging a record as deleted accomplishes the following:
1)
IGET will not supply the user with this record.
2)
IREAD with a key equal to the key of the record
will result in a branch to the NOREC address.
3)
IADD with a key equal to the key of the record
will result in the deleted record being physically replaced by the added record.
The PISAM Macros
1.
IDCB
The IDCB macro has the same function as the DCB macro.
Its operands are all keyword operands. They must be
specified in the IDCB macro; they cannot be inserted from
any other source. The operands are:
PROCES
The type of processing required:
LOAD
SEQIN
SEQUP
ADD
RANDIN
RANDUP
RANDADD
~rtl
loading a data set
sequential input processing
sequential update
insertion of additions
random input
random update
random update and additions
DDNAME
Specifies the name of the DD statement that
will be used to describe the data set to be
processed.
INTLAB
Internal label, which is one alphanumeric character. This character is the only operand of
A17-3
APPENDIX XVII-l (Cont'd.)
all loading and processing macros. It is used
by these macros to refer to the data set. Also,
all labels generated in the PISAM macro expansions for the data set will end with this character.
BLKSIZE
Equals LRECL for unblocked records. Equals a
multiple of LRECL for blocked records. It includes dummy record space in blocked records
(see DUMREC below). The maximum BLKSIZE is:
-with unblocked records:
-with blocked records:
3600 bytes-2*KEYLEN
3600 bytes-KEYLEN(BLKSIZE/LRECL)*5
With blocked records, there must be at least
two primary records per block, i.e. the difference between the blocking factor and the value
specified in DUMREC must be greater than or
equal to 2. (For example, ((BLKSIZE/LRECL)DUMREC)~2.
LRECL
Length of the logical record, in bytes, including actual key and data. It must be equal to
the length of the work area.
RKP
Relative key position of the actual key in the
logical record. For example, if the key begins
at position 0 (at beginning of record), specify
o.
The key must not extend to the last position of
the logical record. This is because the first
byte after the key is used for a deletion code
(X'FF') if the record is flagged as deleted.
Thus, the highest allowable relative key position is LRECL-KEYLEN-l.
KEY LEN
Key length in bytes.
KEYADDR
Address of the field which contains the key of
records to be retrieved randomly.
For PROCES ADD OR RANDADD, KEYADDR must be
equal to the address WORKAR+RKP.
For PROCES RANDIN or RANDUP, KEYADDR may be anywhere.
WORKAR
Part I
Address of the area in which the user presents
his logical record to PISAM and into which PISAM
brings the logical record to the user. It must
be equal in length to LRECL.
A 17-4
APPENDIX XVII-l (Cont'd.)
CYLOFL
Number of overflow tracks per cylinder, inclusive of track O. The minimum number which can
be specified for CYLOFL is 1.
DUMREC
Number of dummy records in a block. These dummy
records provide a fast means for inserting additions and retrieving them. The minimum DUMREC
is 0; it must be 0 for unblocked records.
CYLTOT
Number of cylinders for this data set. PISAM
needs this information for the formatting of the
cylinder index. The actual extent of the data
set, as specified in the DD statement, may be
lower. The data set must be on conti~uous
tracks. In calculating the value ofYLTOT for
a specific data set, the fact should be taken
into account that the EOF record occupies one
entire track.
EODAD
Address of the end of data routine. The user
must provide this with sequential processing.
SYNAD
Address of the user's synchronous error exit
routine. A branch to this is the result of an
unrecoverable (i.e., uncorrectab1e) I/O error
during the execution of a PISAM macro. PISAM
provides the address of a parameter list in
register 1 upon entry to the SYNAD routine.
This list contains 5 'full word addresses, as
follows:
DIsplacement
Register
Part I
Address is Pointing to:
o
(1)
Channel program in use when
the uncorrectable disk error
occurred.
4
(1)
Seek address in a double word
in the form MBBCCHHR.
8
(1)
First two sense bytes.
12
(1)
Channel status word (last 7
bytes).
16
(1)
Completion code:
X'4l' Permanent error
X'42' Extent error
X'44' 10 request has been
intercepted
X'48' Not started or purged
X'4F' Unable to read Home
Address and RO during
error correction
A 17-5
APPENDIX XVII-I (Cont'd.)
The user should make no attempt to continue
processing in order to avoid unpredictable results. He should terminate the task by an ABEND
macro requesting a core storage dump.
NOREC
2.
Address of user's "no record found" routine. A
branch to this is the result of an IREAD macro
being issued with a key which is not in the data
set. It is the user's responsibility to ensure
that no IWRITE macro is executed for a logical
record which was not found by a previous IREAD
macro. Any attempt to do so will result in PSAM
terminating the task by issuing an ABEND macro.
IDCB Operand Summary
LOAD
SEQIN
SEQUP
RANDIN
RANDUP
ADD
RANDADD
DDNAME
X
X
X
X
X
X
X
INTLAB
X
X
X
X
X
X
X
BLKSIZE
X
X
X
X
X
X
X
LRECL
X
X
X
X
X
X
X
RKP
X
X
X
X
X
X
X
KEY LEN
X
X
X
X
X
X
X
KEYADDR
-
-
-
X
X
X
X
WORKAR
X
X
X
X
X
X
X
CYLOFL
X
X
X
X
X
X
X
DUMREC
X
X
X
X
X
X
X
CYLTOT
X
X
X
X
X
X
X
EODAD
-
X
X
-
-
-
-
SYNAD
X
X
X
X
X
X
X
NOREC
-
-
-
X
X
-
X
[p~aCRS=
X (REQUI RED)
3.
- (NOT REQUIRED)
Loading (PROCES=LOAD)
Records are loaded into the primary area from the user's
work area by IPUT macros. Indexes are built during loading. The track index is always the first block in each
Part I
A 17-6
APPENDIX XVII-I (Cont'd.)
The user should make no attempt to continue
processing in order to avoid unpredictable results. He should terminate the task by an ABEND
macro requesting a core storage dump.
NOREC
2.
Address of user's "no record found" routine. A
branch to this is the result of an IREAD macro
being issued with a key which is not in the data
set. It is the user's responsibility to ensure
that no IWRITE macro is executed for a logical
record which was not found by a previous IREAD
macro. Any attempt to do so will result in PSAM
terminating the task by issuing an ABEND macro.
IDCB Operand Summary
PROCES=
LOAD
SEQIN
SEQUP
RANDIN
RANDUP
ADD
RANDADD
DDNAME
X
X
X
X
X
X
X
INTLAB
X
X
X
X
X
X
X
BLKSIZE
X
X
X
X
X
X
X
LRECL
X
X
X
X
X
X
X
RKP
X
X
X
X
X
X
X
KEY LEN
X
X
X
X
X
X
X
KEYADDR
-
-
-
X
X
X
X
WORKAR
X
X
X
X
X
X
X
CYLOFL
X
X
X
X
X
X
X
DUMREC
X
X
X
X
X
X
X
CYLTOT
X
X
X
X
X
X
X
EODAD
-
X
X
-
-
-
-
SYNAD
X
X
X
X
X
X
X
NOREC
-
-
-
X
X
-
X
X (REQUIRED)
3.
- (NOT REQUIRED)
Loading (PROCES=LOAD)
Records are loaded into the primary area from the user's
work area by IPUT macros. Indexes are built during loading. The track index is always the first block in each
Part I
A 17-7
APPENDIX XVII-I (Cont'd.)
cylinder. The cylinder index is the second block of the
first cylinder of the data set.
After the index(es) the remainder of track 0 is filled
with dummy records (if there is space) to be used for
future additions. Track 0 of each cylinder can never be
a primary track. If CYLOFL=n>l, then n-l additional
tracks are also filled with dummy records. The tracks
used exclusively for dummy records in this case will be
tracks I through n-l. These dummy records are always unblocked, regardless of whether or not blocking is specified for the records in the primary area.
The highest key in the data set is placed into the cylinder index. Additional records with keys higher than
this key cannot be inserted into the data set. In order
to allow these additions to be inserted, the user has to
load some dummy records with higher keys. These dummy
records should have X'FF' in the first byte after the key
to flag them as deleted records (see "Deletions").
During loading, the IOPEN macro may be used only once. In
other words, you cannot begin loading, close the data set,
and resume loading later.
The track index-and cylinder index must fit within one
track. For key lengths up to 16 bytes, this causes no
restriction. For keys longer than 16 bytes, the key
length which can be used depends on the value specified
by CYLTOT.
Part I
A 17-8
4.
Record Format
Records are loaded in the following format:
a.
NOTE:
Fixed Length Unblocked:
~~---------Logical
Original
Key
Link Original
Field
Key
A
..I
~~~\
\r.
KEYLEN
5 Bytes
~_I
7F
~-J
J
KEY LEN - / - - -.........--K-E-YLi".E-N-----~
RKP
b.
I
Record------~~
Actual
Key
When the data set
is first loaded,
the actual key in
the logical record
is the same as the
original key.
LRECL, BLKSIZE, and
length of user work area.
Fixed Length Blocked:
Highest
Key In
Block
Link
Field
KEY LEN
5 Bytes
Link
Field
)
><
length of
area.
BLKSIZE=n*LRECL
<
1-4
1-4
I
.....
--- -Link
Field
nth Record
Logical Record
Actual
Key
--.-....
.0.
APPENDIX XVII-l (Cont'd.)
s.
Cylinder Layout
This example shows the cylinder layout for a data set with
unblocked records and CYLOFL=3.
a.
Cylinders other than the first cylinder of the data
set:
I££.
I££.
FF
I~
FF
1l!:.!:J
Track 2 IFFII'"--_F_F_ _--'
FF
Il!:.!:I
Io.--F_F___
Track 3 108111.........-_0_8_ _--'
10
I~
20
Track 4 12lll,"--_2_1_ _~
22
I~
40
Track 9 18 3111..-__8_3_ _--'
90
I~
97
Track 0 IFFI [rack Indexl
Track 1
b.
I!:!:J I
FF
FF
FF
I
Highest Key
nth Primary
Track
Highest
Key In Highest Highest
Data
Key 1st Key 2nd
Set
Cylinder Cy) inder
Highest
Key Last
C linder
Track
Highest Key
Format
1st Primary
Directory
Track
'----'
~
KEYLEN
10 bytes
Cylinder Index Format
,
\.
r
.r
12 bytes
Sequential Input (PROCES=SEQIN)
IGET:
Part I
FF
Highest Key
2nd Primary
Track
Track
Index
Ke
Lowest
Cylinder Cylinder Key In
Index
Format
Data
Key
Directory Set
8.
FF
Track Index Format
7.
KEYLEN
Primary
Area
For the first cylinder of the data set, only track
zero differs from the above:
Track 0 IFFI[rack Index! !FF!ICylinder Index
6.
:} Overflow
Area
I..----~
Provides one logical record in the user's work
area. Records are provided in sequential order
by actual key. Records with deletion codes are
not provided.
A17-10
APPENDIX XVII-l (Cont'd.)
9.
Sequential Update (PROCES=SEQUP)
IGET:
Same as in Sequential Input.
IPUTX:
Moves one logical record from the user's work
area to the output buffer for eventual writing.
This record is always the record for which the
last previous IGET macro was issued.
IPUTX need only he issued if the contents of the
logical record provided by IGET is altered (updated). Thus, several IGET's may be issued
before issuing an IPUTX.
The user must not change the actual key when updating. There is no built-in check to detect
this.
10.
Random Input (PROCES=RANDIN)
IREAD:
11.
Provides a logical record in the user's work
area with an actual key equal to the key at
KEYADDR. If no record is found with this key,
a branch is taken to the NOREC address.
Random Update (PROCES=RANDUP)
IREAD:
Same as in Random Input.
IWRITE:
Moves one logical record from the user's work
area and writes the block containing it. This
record is always the record for which the last
previous IREAD macro was issued.
IWRITE need only be issued if the contents of
the logical record provided by IREAD is altered
(updated). Thus, several IREAD's may be issued
before issuing an IWRITE.
The user must not change the actual key when
updating. There is no built-in check to detect
this. The last previous IREAD must have been
successfully completed for the IWRITE to be
effective. There is a check for this and if
the IREAD was not successful, an abnormal end
of job termination will result when IWRITE is
issued.
12.
Insertion of Additions (PROCES=ADD)
IADD:
Adds one logical record to the data set.
The data set is searched randomly for an orIgInal key higher than or equal to the key of the
~rtl
A17-11
APPENDIX XVlI-1 (Cont'd.)
addition. The addition or the primary record is
then moved to the first available dummy record.
Logical records are always linked in actual key
order via the link field.
The search for a dummy record in the overflow
area to provide space for the record which must
be moved begins in that cylinder where the high
or equal condition occurs. If no space is found
there, the search proceeds to the following cylinders and wraps around to the beginning of the
data set.
The address specified by KEYADDR must be equal
to WORKAR+RKP.
13.
Random Update and Additions (PROCES=RANDADD)
IREAD:
Same as in Random Input.
IWRITE:
Same as in Random Update.
IADD:
Same as in Insertion of Additions.
The user must not issue an IADD macro between
the issuing of an IREAD macro and an IWRITE
macro for the corresponding record. There is a
check for this and if this rule is violated, an
abnormal end of job termination will result when
IWRITE is issued.
The address specified by KEYADDR must be equal
to WORKAR+RKP.
~rtl
A17-12
APPENDIX XVlI-1 (Cont;d.)
14.
Summary of Loading and Processing Macros
PROCES=
LOAD
SEQUIN
SEQUP
RANDIN
RANDUP
ADD
RANDADD
IOPEN ch
IOPEN ch
IOPEN ch
IOPEN ch
IOPEN ch
IOPEN ch
IOPEN ch
IGET ch
IGET ch
IADD ch
IADD ch
IPUT ch
IPUTX ch
IREAD ch IREAD ch
IWRITE ch
IREAD ch
IWRITE ch
ICLOSE ch ICLOSE ch ICLOSE ch ICLOSE ch ICLOSE ch ICLOSE ch ICLOSE ch
ch (Character, same as INTLAB)
Core Storage Requirements - The macro expansion of each
PISAM macro, with the exception of the InCB macro, is 12
bytes in length. The IDCB macro itself contains all the
necessary code for performing the function defined by
PROCES in the IDCB macro. The figures given in the following table represent maximum core storage requirements
for the indicated function to be performed. The core
storage requirements for BSAM are not included here. In
some cases (LRECL less than 257 bytes or DUMREC=O when
inserting additions into a data set with blockeo records)
the actual core storage requirements are less than those
given in the table.
Part I
A 17-13
-c
o
""'
D.
Core Storage Requirements In Bytes
PROCES=
BLOCKED RECORDS
UNBLOCKED RECORDS
2150+ ((17+CYLTOT-CYLOFL) *KEYLEN) +
+BLKSIZE+((BLKSIZE/LRECL)*5)
2150+((18+CYLTOT=CYLOFL) *KEYLEN) +
+LRECL
SEQIN or
SEQUP
1450+BLKSIZE+LRECL+(5*KEYLEN)+
+((BLKSIZE/LRECL)*5)
1450+BLKSIZE+LRECL+(7*KEYLEN)
RANDIN
1300+((l5+CYLTOT=CYLOFL) *KEYLEN) +
+BLKSIZE+((BLKSIZE/LRECL)*5)
1250+((16+CYLTOT-CYLOFL) *KEYLEN) +
+BLKSIZE
RANDUP
1750+((l5+CYLTOT=CYLOFL) *KEYLEN) +
+BLKSIZE+((BLKSIZE/LRECL)*5)
1650+((16+CYLTOT-CYLOFL) *KEYLEN) +
+BLKSIZE
ADD
2850+((16+CYLTOT=CYLOFL)*KEYLEN)+
+BLKSIZE+LRECL+((BLKSIZE/LRECL)*S)
2200+((16+CYLTOT-CYLOFL)*KEYLEN)+
+BLKSIZE
RANDADD
33S0+((16+CYLTOT=CYLOFL) *KEYLEN) +
+BLKSIZE+LRECL+((BLKSIZE/LRECL)*S)
2S00+((16+CYLTOT-CYLOFL) *KEYLEN) +
+BLKSIZE
LOAD
.
c:l.
APPENDIX XVII-l (Cont'd.)
E.
Calculating Auxiliary Storage Requirements for the 2311
As the number of cylinders for one data set must be defined in
the IDCB macro by the CYLTOT entry, the following formulas are
provided in order to enable the user to calculate the value of
CYLTOT for a given number of logical records to be loaded.
1.
The capacity calculations are based on the following
formulas:
Capacity per track: 3625
Bytes required by a data record
a.
Data record (except the last record)
81 +1 , 0 5 (K L+ DL )
b.
Data record (last record)
20+ (K L+D L)
Where:
KL
=
key length
DL = data length
2.
Calculation of CYLTOT
CYLTOT
=
N
R*(lO-CYLOFL)*((BLKSIZE/LRECL)-D MREC)
Where R is calculated as follows and rounded down to the
next smallest integer.
a.
Unblocked
R = 3686+(O.05*(2*KEYLEN+LRECL+5))
81+(I.05*(2*KE¥LEN+LRECL+5))
b.
Blocked
N = Total number of logical records to be loaded.
CYLTOT
BLKSIZE
LRECL
DUMREC
CYLOFL
KEY LEN
Part I
See IDCB macro description
A 17-15
APPENDIX XVII-l (Cont'd.)
F.
Messages
The following messages can occur.
the 1052 console typewriter.
1.
All messages are printed on
Error condition which can occur during execution of any
PISAM macro.
EXCP - PERM DISK ERROR
2.
Reason:
This can occur during the execution of each
macro for loading and processing. This is
the result of an uncorrectable disk error.
The standard error recovery procedures have
been executed prior to the printing of the
message.
Action:
Program control is transferred to the
user's synchronous error routine specified
in the SYNAD entry of the IDCB macro.
Note:
Extent error during loading may imply that
non-contiguous cylinders were allocated.
PROCES=LOAD
a.
b.
c.
MULTIPLE IOPEN
Reason:
An attempt was made to open a data set for
loading which was already opened once.
The message is issued even if the data set
was closed (ICLOSE) prior to issuing the
second IOPEN.
Action:
Termination of the task by an ABEND macro
requesting a core storage dump. ABEND
code is 4.
SEQCHECK KEY
AA ... A
AFTER
BB ... B
RECORD BYPASSED
Reason:
Sequence check or duplicate key check
occurred during loading.
Action:
Record AA •.. A is bypassed and processing
continues.
LAST ENTRY IN CYL INDEX FILLED
Reason:
Part I
All entries in the cylinder index (limited
by CYLTOT) are filled.
A 17-16
APPENDIX XVII-l (Cont'd.)
Action:
d.
3.
The logical record in the work area is not
loaded into the data set. After closing
the data set, message 4 is printed and the
task is terminated by an ABEND macro.
ABEND code is 16.
LAST KEY IS
AA ... A
Reason:
Data set has been closed. AA .•. A is the
key of the last logical record loaded into
the data set.
Action:
Return to caller (user program).
PROCES
= ADD
RANDIN
RANDUP
RANDADD
a.
b.
c.
RECORD WITH KEY
AA .•. A
CANNOT BE ADDED.
Reason:
This occurs during an IADD macro. The
logical record has a key higher than the
highest key in the data set.
Action:
The addition record is not inserted and
processing continued.
RECORD WITH KEY
AA ... A
EXISTS ALREADY.
ADDIT REC BYPASSED.
Reason:
This occurs during an IADD macro. An
attempt is being made to insert a logical
record into the data set when a logical
record with the same key already exists.
Action:
The addition record is not inserted and
processing continues.
DATA SET IS FILLED.
RECORD WITH KEY
AA ... A
WAS NOT INSERTED.
Reason:
Part I
ADDIT REC BYPASSED.
This occurs during an IADD macro. All
overflow areas were filled with addition
records. The logical record indicated by
the message could not be inserted into the
data set.
A 17-17
APPENDIX XVII-l (Cont'd.)
Action:
d.
G.
Termination of the task by an ABEND macro.
ABEND code is 104.
WRONG MACRO SEQUENCE
Reason:
This occurs during an IWRITE macro. An
IWRITE macro was given which was not immediately preceded by a successfully executed
I READ macro.
Action:
Termination of the task by an ABEND macro
requesting a core storage dump. ABEND code
is 108.
Maintenance
While no maintenance commitments are implied, problem reports
with full documentation should be sent to the authors c/o IBM
Germany:
IBM Germany
7032 Sindelfingen
Postfach 66
Germany
To the attention of:
Mr. Michael Faix, Dept. 427
Early Installation Group
~:~~~:
~~~~ie
insertion of additions
[
random update
& additions
Mr. Albert Henne, Dept. 429
Systems Support Group
[loading a data set
]
Mr. Peter Daendliker,Dept.427
Early Installation Group
sequential input
[ sequential update
]
Full documentation must include:
Part I
J
1.
Console status at the time the problem was encountered.
2•
Full core dump.
3.
Assembly listing of program.
4.
Listing of all data used including a disk dump of the
ISAM data set.
5•
Narrative of the expected performance of the program.
A 17-18
APPENDIX XVII-l (Cont'd.)
H.
I.
Restrictions, Version 0, Modification Level 0
1.
Programs can be assembled only in Early Installation Centers under Protios V5 L5 (Macro Library VS L4). The mlnlmum system configuration is l28K plus one 7-track and four
9-track tape units.
2.
While the PIS~~ routines have been tested for many combinations of situations, it is almost certain that some
errors remain. You should test your own special case very
carefully.
Creation of PISAM (under Protios)
1.
J.
The DTR is a 9-track
a.
A tape mark.
b.
The PISAM package 80/80 unblocked.
c.
A tape mark.
d.
A sample program 80/80 unblocked.
e.
A tape mark.
2.
Place the PISAM package (card deck) in the 2540 read
hopper.
3.
Mount a disk pack containing the Protios Macro Library
(Version 5 Level 4) on 190.
4.
Mount Protios tape (Version 5 LevelS) on 282.
5.
IPL from 282. Perform device switching. Protios will
insert all PISAM macros into the Protios macro library.
Sample Program Description
1.
Part I
Punch two card decks from the DTR.
tape containing:
The purpose of this sample is:
a.
To show the user how to use the PISAM macros.
b.
To provide a source deck for an assembly so that
the user can check if he has received a correct version of PISAM.
c.
To show how PISAM works during execution.
A 17-19
APPENDIX XVII-l (Cont'd.)
2.
The significant characteristics of the data set to be
processed are:
.Block size
BLKSIZE=700
.Logical record length
LRECL =100
.Key length
KEYLEN = 6
.Relative key position
RKP
= 9
.Total number of cylinders
CYLTOT = 10
.Number of dummy records per block
DUMREC = 4
.Number of overflow tracks per cylinder CYLOFL = 2
.The ddname of the DD control statement describing the
data set to be created and processed is DDPISAM •
. PRINT is the ddname of the DD control statement defining
output on the line printer.
3.
The sample program is divided into the following parts:
a.
Loading the indexed sequential data set (PROCES=LOAD).
This part starts at the label LOAD. The IDCB describing the data set to be created is named DCBLOAD.
As the keys of the logical records are generated by
the sample program itself the user is not concerned
with the handling of data cards. All logical records
contain the words 'LOAD REC' in the data area to
distinguish them from addition records which will be
inserted later. In order to provide space and linkage facilities for higher additions, a number of
logical records with delete codes (containing X'FF'
in the first position after the key) and with keys
higher than 003600 are also loaded. The key of the
last logical record that is not delete-coded record
is 003600; however, the highest key of the data set
is 003792. By loading these deleted logical records,
addition records with keys up to 003792 can be inserted.
b.
Random processing (PROCES=RANDADD)
This part starts at the label RANDADD. The InCB
describing the data set to be processed is named
DCBRAND. In this portion of the sample program addition records are inserted into the data set and
all logical records with an even-numbered key are
randomly updated by inserting 'UPDATED' into the
data portion. The keys are generated in alternating
sequence starting from 000001 and 003790. Each addition record and each updated record (after it has
been retrieved again) is printed. The addition
records are marked by 'ADDITION' in the data portion.
~rtl
A17-20
APPENDIX XVII-l (Cont'd.)
c.
Sequential processing (PROCES=SEQUP)
This is the last part and starts with the label SEQ.
The IDCB describing the data set to be sequentially
updated is named DCBSEQ. All logical records in the
data set are sequentially retrieved, updated (by inserting 'SEQ' into the data portion of the record)
and printed. The logical records with keys from
000001 to 000300 appear consecutively without gaps.
The highest key which appears at the end of sequential updating is 003790 (the logical record with the
key 003792 exists still in the data set but it is not
retrieved because it is a deleted record).
At the end of each type of processing, a message is
printed on the 1052 console printer. The output on
the printer will consist of approximately 70 pages.
~rtl
A17-21
APPENDIX XVII-1 (Cont'd.)
0000010
0000020
0000030
0000040
0000050
*
0000060
***EXAMPLE FOR PROGRAMMING PISAM
0000070
***
0000080
START
START
0000090
SAVE
( 1 4 , 1 2)
0000100
**LOAD BASIS REGISTER
0000110
0000120
BALR
2,0
0000130
USING *,2
0000140
USING *+4000,3
0000150
USING *+8000,4
USING *+12000,5
0000160
0000170
LA
3,4000(2)
0000180
LA
4,4000(3)
0000190
LA
5,4000(4)
0000200
*OPEN PRINTER
0000210
0000220
OPEN
(PRINT, (OUTPUT))
0000230
***
***
0000240
0000250
*LOAD PISAM DATA SET
0000260
***
LOAD
0000270
IOPEN L
OPEN FOR LOADING
11,F900
NBR OF RECORDS TO BE LOADED 0000280
L
LOAD REG FOR KEY CREATION
0000290
8,4(0)
LA
0000300
*
*LOOP FOR LOADING
0000310
0000320
LOADLP
CVD
8,CON
CONVERT TO DECIMAL
UNPK
KEY(6),CON+4(4) UNPACK KEY INTO RECORD
0000330
01
KEY+5,X'FO'
0000340
MVC
WORK+92(6),KEY KEY TWICE IN RECORD
0000350
MVC
KEY+8(8),KLOAD MARK REC AS LOADED
0000360
IPUT
L
0000370
LOAD RECORD
LA
8,4(8)
INCREASE KEY BY 4
0000380
BCT
11,LOADLP
LOOPING
0000390
0000400
*
*LOAD DELETED RECORDS TO RESERVE SPACE FOR HIGHER ADDITIONS 0000410
LOADSW
NOP
0000420
LOADEND
MVI
LOADSW+1,X'FO' SET PREVIOUS SWITCH
0000430
MYI
KEY+6,X'FF'
MARK RECORD AS DELETED
0000440
L
11,F48
LOAD LOOP COUNT
0000450
B
LOADLP
LOOP FOR LOADING DELETED
0000460
RECS
*
0000470
*END OF LOADING
0000480
LOADEND ICLOSE L
0000490
WTO
'END OF LOADING'
0000500
MVI
KEY+6,C"
CLEAR DELET CODE IN WORKAREA 0000510
***
0000520
***
0000530
*ADD AND UPDATE RECORDS RANDOMLY
0000540
*
0000550
RANDADD IOPEN R
OPEN FOR ADDING AND UPDATING 0000560
CNTRL PRINT,SK,l
0000570
&JOB
MODE-ASSEMBLE
EXECUTE ,ASSEMBLER
TITLE 'PISAM EXAMPLE'
Part I
A 17-22
APPENDIX XVII-1 (Cont'd.)
L
11,FS36
SR
8,8
LA
9,2(0)
L
10,F3795
*LOOP FOR ADDING AND UPDATING
ADDLP
LA
8,3(8)
LR
1,8
FIVE+1,X'00'
MVI
6,ADDROUT
BAL
1,9
LR
6,ADDROUT
BAL
LA
9,3(9)
MVI
FIVE+1,X'FO'
S
10,FS
BC
12,ADDLP1
LR
1,10
BAL
6,ADDROUT
ADDLP1
BCT
11,ADDLP
LA
8,1(0)
LA
9,5(0)
ADDLP2
MYI
FIVE+1,X'00'
LR
1,8
BAL
6,ADDROlJT
C
8,F300
BH
ADDEND
LA
8,3(8)
C
9,F300
BH
ADDLP2
MVI
FIVE+1,X'FO'
LR
1,9
BAL
6,ADDROlJT
LA
9,5(9)
B
ADDLP2
*SUBROUTINE FOR
ADDROUT ST
ST
CVD
UNPK
01
MVI
FIVE
NOP
CLI
BF
CLI
BNE
FIVE1
MVI
ADDROUTO C
BH
TM
BC
ADDSW
NOP
MVC
MVC
MVC
IADD
WRITE
Part I
LOAD LOOP COUNTER
PREPARE REGISTERS FOR
KEY CREATION
INCREASE KEY=N*3
ALLOW TEST FOR KEY DIV BY 5
GO TO ADD AND/OR UPDATE
GO TO ADD AND/OR UPDATE
INCREASE KEY=2+N*3
NO TEST FOR KEY DIV BY 5
REDUCE KEY=N*5 BY 5
IF KEY NOT GT O,BYPASS KEY
GO TO ADD AND/OR UPDATE
END OF ADDLOOP
CREATE KEY=l
CREATE KEY=5
ALLOW TEST FOR KEY DIV BY 5
CREATE KEY=1+N*3
GO TO ADD AND/OR UPDATE
CREATE NO KEY GT 300
IN THIS LOOP
CREATE NO KEY GT 300
IN THIS LOOP
NO TEST FOR KEY DIV BY 5
CREATE KEY=N*5
GO TO ADD AND/OR UPDATE
ADD AND/OR UPDATE RECORDS
6,SAVE6
SAVE RETURN ADDRESS
1,FWORD
STORE KEY FOR CHECKING
1,CON
CONVERT TO DECIMAL
KEY(6),CON+4(4) UNPACK KEY INTO RECORD
KEY+5,X'FO'
ADDSW+1,X'00'
ALLOW ADDING
ADDROUTO
KEY+5,X'FO'
IF KEY DIV BY 10
FIVE1
ALLOW NO ADDING
KEY+5,X'F5'
IF KEY NOT DIV BY 5
ADDROUTO
ALLOW ADDING
ADDSW+1,X'FO'
1,F3600
HIGHER ADDITION
ADDSW
YES
FWORD+3,X'03'
RECORD LOADED
8,ADDROUT1
YES, NO ADDING
ADDROUT2
IF SET NOR ADD NEITH UPDATE
WORK+92(6),KEY KEY TWICE IN RECORD
KEY+8(8),KBLANK CLEAR WORKAREA
KEY+12(8),KADD MARK REC AS ADDITION
R
ADD RECORD
DECP1,SF,PRINT,WORK
PRINT ADD REC
A 17-23
0000580
0000590
0000600
0000610
0000620
0000630
0000640
0000650
0000660
0000670
0000680
0000690
0000700
0000710
0000720
0000730
0000740
0000750
0000760
0000770
0000780
0000790
0000800
0000810
0000820
0000830
0000840
0000850
0000860
0000870
0000880
0000890
0000900
0000910
0000920
0000930
0000940
0000950
0000960
0000970
0000980
0000990
0001000
0001010
0001020
0001030
0001040
0001050
0001060
0001070
0001080
0001090
0001100
0001110
0001120
0001130
0001140
APPENDIX XVII-l (Cont'd.)
CHECK
PRTOV
ADDROUTI IREAD
TM
BC
MVC
IWRITE
I READ
WRITE
CHECK
PRTOV
MVC
ADDROUT2 L
BR
DECPl
PRINT,12
READ RECORD RANDOMLY
R
FWORD+3,X'OI'
KEY EVEN
I,ADDROUT2
NO, NO UPDATING
WORK+50(7),KUPD UPDATE RECORD RANDOMLY
R
WRITE UPDATED RECORD
R
READ UPDATED RECORD
DECP2,SF,PRINT,WORK
PRINT UPDATED REC
DECP2
PRINT,12
WORK+50(7),KBLANK
CLEAR WORKAREA
6,SAVE6
RESTORE RETURN ADDR
6
GO BACK
*
*END OF ADDING AND UPDATING
ADDEND
ICLOSE R
WTO
'END OF ADDING AND UPDATING'
***
***
*SEQUENTIAL RETRIEVING AND UPDATING
***
SEQ
SEQLP
IOPEN
CNTRL
IGET
MVC
WRITE
CHECK
PRTOV
IPUTX
B
S
OPEN FOR SEQUENTIAL
PRINT,SK,1
PROCESSING
S
READ RECORD SEQUENTIALLY
WORK+70(3),KSEQ UPDATE RECORD
DECP3,SF,PRINT,WORK
DECP3
PRINT,12
.
WRITE BACK SEQUENTIALLY
S
SEQLP
GO ON
*
*END OF SEQUENTIAL PROCESSING
SEND
WTO
'END OF SEQUENTIAL PROCESSING'
ICLOSE S
RETURN (14,12)
END OF PROGRAM
***
*HANDLING OF PERMANENT I/O ERROR
*IOERR
WTO
'I/O-ERROR'
ABEND 808,DUMP
ABNORMAL END WITH CORE DUMP
*RECORD NOT FOUND BY RANDOM PROCESSI~G
NOTFD
MVC
WTOl+8(6),KEY
MOVE KEY TO MESSAGE
WTOI
WTO'
NOT FOUND' WRITE KEY
B
ADDLP
GO BACK TO RANDOM
***
***
*RECORD AREA
*
WORK
DC
C'PISAMSET'
CL6' ,
KEY
DC
KEY FIELD WITHIN RECORD
5CL16' ,
DC
DC
END OF RECORD
CLS'
*'
**CONSTANTS
*
KLOAD
Part I
DC
C'LOAD REC'
A 17-24
0001150
0001160
0001170
0001180
0001190
0001200
0001210
0001220
0001230
0001240
0001250
0001260
0001270
0001280
0001290
0001300
0001310
0001320
0001330
0001340
0001350
0001360
0001370
0001380
0001390
0001400
0001410
0001420
0001430
0001440
0001450
0001460
0001470
0001480
0001490
0001500
0001510
0001520
0001530
0001540
0001550
0001560
0001570
0001580
0001590
0001600
0001610
0001620
0001630
0001640
0001650
0001660
0001670
0001680
0001690
0001700
0001710
APPENDIX XVII-1 (Cont'd.)
KADD
KUPD
KSFQ
KBLANK
CON
F900
F48
F3600
F3795
F536
F300
FWORD
SAVE 6
F3
F5
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
C'ADDITION'
C'UPDATED'
C'SEQ'
CL8' ,
D' 0'
F'900'
F'48'
F'3600'
F'3795'
F'536'
F'300'
F'O'
NBR OF VALID LOADED RECORDS
NBR OF DELETED LOADED RECS
HIGHEST VALID LOADED KEY
HIGHEST DELETED KEY+S
A(O)
F'3'
F'5'
***
*DATA CONTROL BLOCKS
*
DCBLOAD
IDCB
DCBRAND
IDCB
DCBSEQ
IDCB
PRINT
DCB
END
DDNAME=DDPISAM,LRECL=100,BLKSIZE=700,
KEYLEN=6,RKP-9,DUMREC=4,CYLOFL=2,
CYLTOT=10,WORKAR=WORK,SYNAD=IOERR,
INTAB=L,PROCES=LOAD
DDNAME=DDPISAM,LRECL=100,BLKSIZE=700,
KEYLEN=6,RKP=9,DUMREC=4,CYLOFL=2,
CYLTOT=10,WORKAR=WORK,SYNAD=IOERR,
NORFC=NOTFD,KEYADDR=KEY,INTLAB=R,
PROCES=RANDADD
DDNAME=DDPISAM,LRECL=100,BLKSIZE=700,
KEYLEN=6,RKP=9,DUMREC=4,CYLOFL=2,
CYLTOT=10,WORKAR=WORK,SYNAD=IOERR,
EODAD=SEND,INTLAB=S,PROCES=SEQUP
DDNAME=PRINT,DSORG=PS,MACRF=(WC),DEVD=PR,
RECFM=F,LRECL=100,BLKSIZE=100
START
PUNCH
Part I
A 17-25
C
C
C
C
C
C
C
C
C
C
C
0001720
0001730
0001740
0001750
0001760
0001770
0001780
0001790
0001800
0001810
0001820
0001830
0001840
0001850
0001860
0001870
0001880
0001890
0001900
0001910
0001920
0001930
0001940
0001950
0001960
0001970
0001980
0001990
0002000
0002010
0002020
0002030
0002040
0002050
PROJECT ADMIRAL
APPENDIX XVII-Part 2
PRELIMINARY INDEXED SEQUENTIAL ACCESS METHOD (PISAM)
VERSION 1, MODIFICATION LEVEL 0
A.
Restrictions
While the PISAM routines have been tested for many combinations
of situations, it is almost certain that some errors remain.
You should test your own special case very carefully.
B.
C.
Creation of PISAM
1.
Punch a card deck from the DTR. The DTR is a 9-track tape
containing the PISAM package and a sample program in 80/80
unblocked format.
2.
The cards punched will include sample JCL cards for placing the PISAM package in the Macro Library and for assembling, linkediting, and executing the sample program.
See the listing to determine whether you need to change
some of these cards for your system.
Sample Program Description
1.
2.
The purpose of this sample is:
a.
To show the user how to use the PISAM macros.
b.
To provide a source deck for an assembly so that the
user can check if he has received a correct version
of PISAM.
c.
To show how PISAM works during execution.
The significant- characteristics of the data set to be
processed are:
.Block size
BLKSIZE=700
.Logical record length
LRECL =100
.Key length
KEYLEN = 6
.Relative key position
RKP
= 9
.Total number of cylinders
CYLTOT = 10
.Number of dummy records per block
DUMREC = 4
.Number of overflow tracks per cylinder CYLOFL = 2
.The ddname of the DD control statement describing the
data set to be created and processed is DDPISAM .
. PRINT is the ddname of the DD control statement defining
output on the line printer.
3.
The sample program is divided into the following parts:
a.
Loading the Indexed Sequential Data Set (PROCES=LOAD) .
This part starts at the label LOAD. The IDCB describing the data set to be created is named DCBLOAD.
Part II
A 17-27
APPENDIX XVII-2(Cont'd.)
As the keys of the logical records are generated by
the sample program itself, the user is not concerned
with handling of data cards. All logical records
contain the words 'LOAD REC' in the data area to
distinguish them from addition records which will be
inserted later.. In order to provide space and linkage facilities for higher additions, a number of
logical records with delete codes (containing X'FF'
in the first position after the key) and with keys
higher than 003600 are also loaded. The key of the
last logical record that is not delete-coded record
is 003600; however, the highest key of the data set
is 003792. By loading these delet~d logical records,
addition records with keys up to 003792 can be inserted.
b.
Random Processing (PROCES=RANDADD)
This part starts at the label RANDADD. The IDCB
describing the data set to be processed is named
DCBRAND. In this portion of the sample program addition records are inserted into the data set and
all logical records with an even-numbered key are
randomly updated by inserting 'UPDATED' into the
data portion. The keys are generated in alternating
sequence starting from 000001 and 003790. Each addition record and each updated record (after it has
been retrieved again) is printed. The addition
records are marked by 'ADDITION' in the data portion.
Part II
A 17-28
Appendix 18
APPENDIX XVIII
EXCP STUDENT PRACTICE PROBLEM
Use of the scan (search key and data) special feature on the
direct access device control units. This feature is not
supported by O/S data management.
Problem Definition:
1.
Input data set named "SCANDATA" on disk volume serial
"WORK 11" (multi-extent, single volume data set).
a.
Key length is 5 bytes
"hit" records are ZBCD "99999"
"no hit" records are ZBCD "11111"
b.
Data length is 500 bytes
1
5
6 - 10
11 - 500
c.
2.
Record sequence number is ZBCD
Blank
Filler
There. is an EOD record after the last record in
the last extent on the volume.
Using the scan sequence in the 2841 control unit manual
on page 20, write an EXCP program to scan for records
with all 9's in the Key. Read in key and data on a hit.
The key and sequence number of hit records are to be
printed in print positions 1-10 (moved to the print
area without alteration).
Every 15th record is a hit.
the data set.
A 18-1
There are 350
re~ords
in
-.
".
::INITIALIZE SEEK ADDRESS IN lOB AND SRCH
:c
10
IN CCWLIST TO BEGINNING EX
DISKINIT MVC
SEEKADDR+2(4),0(10)
CCHH IN DEB TO lOB SEEKADDR
xUPDATE TO ORIENT TO RO
MVC
DISKDCB+21(S),SEEKADDR+2
CCHHR TO SRCH LAST REC ID
MVI
DISKDCB+2S,X'OO'
SET R TO BEGIN SCAN AT R
xUPDATE CCW LIST ADDRESS TO READ RO
MVC
CCWLIST+l(3),ADDRBEG
EXEC BEGINCYl CCW'S
B
DISKEXCP
DONE
WTO
'NICELY DONE'
CLOSE (DISKDCB"PRTDCB)
FREEPOOl PRTDCB
l
13,SAVEAREA+4
RETURN (14,12)
DISKECB
DC
F'O'
DISKIOB
DC
X'42000000'
COMM CHAIN AND UNRELATED
DC
A(DISKECB)
DISKCSW
DC
2F'0'
CCWlIST
DC
A(BEGINCYl)
DC
A(DISKDCB)
DCBADDR
DC
2F'O'
EXTENTM
DC
X'OO'
SEEKADDR DC
Xl7'OO'
BBCCHHR
ADDRBEG
DC
AL3(BEGINCYL)
CCW FOR E 0 EXTENT
ADDRHIT
DC
AL3(HITLIST)
CCW FOR AFTER A HIT
xORIENT TO RO ON END OF EXTENT
BEGINCYL CCW
X'16',RDRO,X'70',16
RD RO
CC,SLI,SKIP
CCW
X'08',RDCOUNT,O,0
TIC RD Rl COUNT
xORIENT TO HIT RECORD
HITLIST
CCW
X'3l',DISKDCB+21,X'40',5
SRCH 10 EQ CC
CCW
X'08',HITlIST,O,0
TIC x-8
RDCOUNT
CCW
X'92',SAVCOUNT,X'40',8 RD COUNT MT,CC
CCW
X'A9',SRCHARG,X'40',5
SCAN-SRCH KEY EQ MT,CC
CCW
X'08',RDCOUNT,O,0
TIC x-16
CCW
X'lB',SEEKBIN,X'40',6
SEEK HEAD CC
SRCHHIT
CCW
X'31',SAVCOUNT,X'40',5 SRCH 10 EQ CC
CCW
X'08',SRCHHIT,O,O
TIC x-8
CCW
X'OE',INPUTKEY,0,505
READ KEY AND DATA
RDRO
OS
Cll6
INPUT AREA FOR RD RO
SRCHARG
DC
C'99999'
SEEKBIN
DC
XL2'OO'
FOR SEEK HEAD BB
SAVCOUNT OS
Cl8
CCHHRKLDLDL TO LOCATE HIT REC
INPUTKEY OS
CL5
SEQ
OS
CL5
OS
CL5
OS
49CliO
PRINT
OS
OCL18
PKEYSEQ
DS
CLIO
BlK
DC
C"
PCCHHR
DC
CL7"
DBl
OS
0
SAVEAREA OS
18F
DISKDCB
DCB
DDNAME=INDISK,MACRF=(E),DSORG=PS,DEVC=DA,BUFNO=1
PRTDCB
DCB
DDNAME=PRINTOUT,DSORG=PS,MACRF=PM,DEVD=PR,PRTSP=2, X
RECFM=F,lRECl=18,BLKSIZE=18,BFTEK=S,EROPT=ACC
END
A18-2
EXCP SOLUTION TO SCAN PROBLEM
NOTE:
SINCE SCAN FEATURE WAS NOT AVAILABLE, A SEARCH KEY EQUAL
COMMAND WAS USED.
EXCPSCAN
START 0
SAVE (14,12)
BALR 12,0
US I NG ::, 12
ST
13,SAVEAREA+4
LA
13,SAVEAREA
OPEN (DISKDCB"PRTDCB,(OUTPUT))
L
11,DISKDCB+44
GET DEB ADDR
LA
10,38(0,11)
CCHHR ADDR FROM DEB FIRST EXTNT
B
DISKINIT
DISKEXCP MVI
DISKECB,X'OO'
INITIALIZE ECB CODE
EXCP DISKIOB
WAIT ECB=DISKECB
CLI
DISKECB,X'7F'
TEST HIT SUCCESSFUL
BNE
TESTEXT
MVC
PKEYSEQ,INPUTKEY
MOVE KEY,SEQ TO PRINT
:: CONVERT TRACK ADDRESS
SR
2,2
IC
2,SAVCOUNT+4
NOT
CVD
2,DBL
NECESSARY UNPK PCCHHR+6(1),DBL+7(1)
CONVERT REC NUM
01
PCCHHR+6,X'FO'
SET ZONE TO F
IN
STUDENT
IC
2,SAVCOUNT+3
ANSWER
CVD
2,DBL
UNPK PCCHHR+4(1),DBL+7(1)
CONVERT HEAD
01
PCCHHR+4,X'FO'
IC
2,SAVCOUNT+1
CVD
2,DBL
UNPK PCCHHR(3),DBL+6(2)
01
PCCHHR+2,X'FO'
PUT
PRTOV
MVC
MVC
MVC
TESTEXT
NEXTEXT
PRTDCB,PRINT
PRINT HIT
PRTDCB,12
DISKDCB+21(S),SAVCOUNT INIT SRCH 10 TO HIT 10
INIT CCHHR IN lOB SEEKADDR
SEEKADDR+2(S),SAVCOUNT
CCWLIST+1(3),ADDRHIT
EXEC HITLIST CCW'S
B
DISKEXCP
CLI
DISKECB,X'42'
WAS IT END OF EXTENT
NEXTEXT
BE
CLC
SAVCOUNT+S(3),=X'000000' IS IT EOD RECORD
DONE
BE
ABEND 2S6,DUMP
OTHER ERRORS
Ie
2,16(0,11)
NUM EXTENTS FROM DEB
SR
3,3
IC
3,EXTENTM
CURRENT EXTENT IN IOB&32
LA
3,1(0,3)
INCREM lOB NUM EXTENTS
CR
2,3
TEST ALL EXTENTS PROCESSED
DONE
BE
STC
3,EXTENTM
UPDATE EXTENT COUNT INIOB
LA
10,16(0,10)
GET NEXT EXTENT FROM DEB
A18-3
Appendix 19
APPENDIX 19
This appendix consists of two parts:
1.
The listings of the cards used before, during and after the NSL problem.
2.
The listings produced by actually running the cards in Part 1. (In this part job DDDD
was run twice, once with the macros IEFUCBOB and IECDSECT, and the second time
with the macros EBC1 and EBC2.) The instructor should note the difference in assembly
time and I ine items produced
Job HHHH was also run twice, the first time with NSL that checked and the second
time with HSL that did not check (User Completion Code 256).
A 19-1
IIGGGG
II
IIA
II
JOB
O,EBCGO.MSGLEVEl=l
EXEC PGM=GO
00 DSNAME=EBClIB.SPACE:CCYl.Il,l,l»,VOlUME=SER=llllll,
DISP=CNEW,CATlGJ.UNIT=2311
1*
Create a Library (EBCLlB) for the Test Program (EBC3)
Part I
A 19-3
c
IIBBB8
JOB
O,E8CU8C,MSGLEVEl=l
IISTEPNAME EXEC PGM=IEBUPOAT,PARM=NEW
IISYSPRINT DO SYSOUT=A
IISYSUT2 00
OSNAMEaSYSl.MAClIB,DISP=OlD
IISYSIN 00
DATA
.1
ADO
EBCl,QO,O,l
MACRO
EBCl
OS
elil
UNIT NAME IN EBCDIC CHARACTERS
UCBNAHE OS
el3
UCBTYP
OS
DE VICE TYPE
Xl4
OS
ellS
SRYEOMCT OS
MOUNT BIT IN HIGH ORDER BIT
XLI
OS
Cl32
MEND
ENOUP
Put EBC 1 in SYS 1 . MACLI B
Part I
A19-4
Put EBC2 in SYS 1.MACLIB
IICCCC
JOB
O,EBCWACBA,MSGlEVEl=l
IISTEPNAME EXEC PGM=IE8UPDAT,PARM=NEW
IISYSPRINT 00 SYSOUTzA
IISVSUT2 DO
DSNAMEzSYSl.MACLIB,DISP=OLD
IISYSIN 00
DATA
.1
ADO
EAC2,OO,O,1
MACRO
~EBC2
SP ACE 1
•
VOLUME LABEL
OXlBl
SPACE 1
OS
CL 80
os
Cl20
SPACE 1
•
JFCBOSNM
JFCBlTYP
J FCBVOl5
os
os
os
OS
OS
OS
JOB FILE CONTROL BLOCK
Cl44 DATA SET NAME
CL22
Cli lABEL TYPE
CL51
Cl30 VOLUME SERIAL NUMBERS
CL28
SPACE 1
•
EVENT CONTROL BLOCK
ex ECB
•
OXIOB
•
SPACE 1
OS
OCl4
DC
X'COOOOCCO'
SPACE 1
INPUT/OUTPUT BLOCK
SPACE 1
OS
Cl40
SPACE 1
DATA EXTENT BLOCK
SPACE 1
OS
DXDEBUCB OS
OS
Cl28
F
Cl12
SPACE 1
•
DATA CONTROL BLOCK
SPACE I
OS
CL4
SP ACE 1
•
CHANNEL CONTROL WORDS
CXCCW 1
OXCCW4
OXCCW5
OXCCW6
DXCCW 12
SPACE 1
eNOP 0,8
OS
o
OS
CL16
OS
o
OS
o
OS
o
OS
elltO
DS
o
SPACE 1
MEND
ENOUP
Part I
A 19-5
Put IEFUCBOB in SYS 1.MAClIB
IIJJJJ
JOB O,E8CUBC,MSGlEVEl=1
IISTEPNAME EXEC PGM=IEBUPOAT,PARH=NEW
IISYSPRINT 00 SYSOUT=A
IISYSUT2 00
OSNAME=SYS1.MAClIB,OISP=OLD
IISYSIN DO
DATA
.1
ADD
IEFUCBOB,OO,O,l
MACRO
IEFUCBOB
•
DATE OF THIS UPDATE 13 JULY 65
•
•
•
•
•
•
•
...•
•
•
•
•
•
•
•
•
•
•
•
.•
•
•
•
..•
•
•
•
•
•
•
•
•
.
.
..•
•
.
if
.•
.•
•
•
•
Part
THE INDIVIDUAL UCB S LOOK LIKE THIS.
......................................
•
JOB • AlLOC. •
• INTERNAl·CHANNEl •
• NUMBER" MASK •
UCB
10
• STATUS •
•
A
•
•
•
........................................
•
•
•
•
.........................................
.
..
•
•
•
• ERRTAB • STATAB • lCHTAB • ATNTAB ..
.
.
•
•
•.........................................
.SCH IDS·
•
.FlG
UNI T NAME
FlG·
•
•
•
•
•••••••••••••••••••••••••••••••••••••
.
•
TYPE
•
•
•
............
....................... .•
•
•
•
LAST 12.
SENSE
•
•
•
•
•
•
•••••••••••••••••••••••••••••••••••••
......................................
..
•
SENSE
•
•
•
........................
............ .•
•
•
SERIAL
VOLUME
•.
•
•
• •
•
• •••••••••••••••••••
• STATUS • DATA •
•
..
B
•
•
COUNT
•
•
•
•
•••••••••••••••••••••••••••••••••••••
• FlAG 1" UN I T .
•
AND "ADDRESS.
·CHAN.ADD·
•
FlAG2 • DEVTAS •
~
~
.~ANAGMNT
•
•
VTOC
TT
OR
• F IL E SEQ.
COUNT
• VTDC R • SPARE
•
•
•
• FilE
OR
SEQ.
NUMBER •
• ••••••••••••••••••••••••••• ~ •••• £ •••
• ••••••••••••••••••••••••••••••••••••
•
•
SEEK
QUEUE
•
•
A19-6
•
•••
•••••
•
•
•
•
•
•
•
«All DEVICES
•
•
•
•
•
•
•
•
• ••••
• ••
•
•
•
•••••
•
•
•
•
TAPE AND DA
•
•
•
•
•••••
• ••
•
•
•••
•••••
..
•
• •
•
•
•
•
• • •
•
•
CONTROL WORD
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
• M 8 8 C C H H R FOR •
•
•
•
•
• •
•
•
• • •
•
•
LAST SEEK
•
•
•
•
•••••••••••••••••••••••••••••••••••••
-CURRENT •
•
D A ECB ADDRESS
• NR. OF •
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
DA ONLY
•
•
•
•
•
•
•••••
• ••
· . . . . . . . . . . . . . . . . . . . . . . . . . • • • • •• • • • •
• USERS
•
•••••••••••••••••••••••••••••••••••••
~
UCBOR
SRTEJBNR
SRTECHAN
UCBID
SRT EST AT
SRT EONll
SRTECHGS
SRTERESV
SRT EUNL 0
SRTEAlOC
SRTEPRES
SRTESYSR
•
SRTEDADI
•
EQU •
OS
OF
OS
XL 1
OS
XL 1
OS
XLl
OS
XLI
EQU
128
f.QU
64
EQU
32
EQU
16
EOU
8
FQU
4
EQU
2
EQU
1
OS
OS
OS
OS
OS
OS
OS
XL 1
XLl
XLI
XL I
XLI
XLl
XLI
XL 1
XLI
CL3
XL4
UCBTYP
..
*
UCBCHA
UCBUA
UCBFL 2
UCBOT I
UCBEl I
UCBSTI
UCBLC I
UCBAT I
UCBWGT
UCBNAME
UCB TY P
UCBTBYTl
UCBIFEAO
UCBlfEAl
UCBIFEA2
UCBIFEA3
UCBIFEA4
UCBIFEA~
UCBIFEA6
UCBIFEAl
UCBTBYT2
UCBTBYT3
Part I
as
OS
os
OS
EQU
EQU
EQU
EQU
128
64
32
EQU
16
EQU
EQU
fQU
EOU
EQU
fQU
8
4
2
1
UCBTYP I
UCBTYP 2
UNIT CONTROL BLOCKS
JOB INTERNAL NU~BER
ALLOC.CHANNEL MASK
UtB IDENTIFICATION
STATUS BITS
ONLINE
CHANGE ONLINE/OFFLINE
RESERVED DEVICE
UNLOAD THIS DEVICE
BIT 4 t..LLOCATED
BIT 5 PERMANENTLY RESIDENT
BIT 6 SYSRES
OR PRIMARY CCNSCLE
BIT 7 DADSM INTERLCCK
OR TAPE CCNTAINS
STANDARD LABELS,OR
ALTERNATE CC~SCLE
FLAGl AND CHANNEL ADDRESS
UNIT ADDRESS
FLAG2
DE VICE TABLE
ERROR TABLE
STATUS TABLE
LOGICAL CHANNEL TABLE
ATTENTION TABLE
wE I GH T
UNIT NAME IN EBCDIC CHARACTERS
DEVICE TYPE
BYTE 1 OF UCBTYPE-~ODEL
BIT 0 OF OPTION FIELD
BIT 1 OF OPTION FIELD
BIT 2 OF OPTION FIELD
BIT 3 OF CPTION FIELD
BIT 4 OF OPTICN FIELD
~IT 5 OF OPTION FIELD
BIT 6 OF OPTION FIELD
BIT 1 OF OPTION FIELD
BYTE 2 OF UCBTVPE-CPTIONS
BYTE 3 OF UCBTVPE-ClASS
A 19-7
UCB3TAPE
UCB3COMM
UC830ACC
UCB3DISP
UCB3UREC
UCB3CHAR
UCBTBYT4
UCBLTS
UCBSNS
SRT EVOL I
SRTESTAB
SRTEBSVl
SRTEBVSC
SRTEBAlB
EQU
EQU
EeU
4
UCBTYP 3
XL2
XL6
LAST 12*
CLo
VOLUME SERIAL
STATUS B
EQU
128
64
XLi
EQU
SRTEECBA
EQU
EQU
OS
OS
DS
OS
OS
OS
OS
CAT ACEll
EQU
SENSE
BIT 3 PRIVATE
BI T 4 PUBLIC
BIT 5 VOLUME TO BE QUIESCE
2
4
BIT
2
1
XL 1
XL2
XL2
2F
2F
XL 1
Xl3
*
DCELJ BNR OS
OCELUSER OS
DCELSTAB OS
CCELSTAT OS
OCELVOL I OS
OCElVTOC OS
DCELECBA OS
MEND
.1
ENDUP
XLI
Xll
XLl
Xll
Cl6
Xl3
Xl3
TO
~OUNT
A~CTHER
BIT 6 JOSLIB VOLUME
BIT 7 CONTROL VOLUME
DATA MANAGEMENT COUNT
FILE SEQ. COUNT
FILE SEQ. NUMBER
SEEK QUEUE CONTROL wORD
MBBCCHHR FOR LAST SEEK
CURRENT NUMBER OF USERS
OA ECB ADDRESS
9 OF THE SE BLOC KS wI II BE PRE SENT
JOB INTERNAL
CURRENT NUMBER OF USERS
STA TUS B
STA TUS A
VOLUME SERIAL
VTOC ADDRESS
DA ECB ADDRESS
,*
Part I
INFORMATION
BIT 0 SHARED VOLUME
BIT 1 VOLUME SECURITY
BIT 2 ADOIT.VOL.LABEl PROC
32
16
EQU
SRTEBJlB
SRTEUSE~
16
8
OS
OS
OS
OS
EQU
EQU
EQU
SRTEBNUl
SRTEOMcr
SRTEFSCr
SRTEFSEQ
UCBSQC
UCBSK*,
32
EQU
EQU
EQU
SRTEBPRV
SRTEBPUB
SRT EBV QS
•
BIT 0 OF CLASS - TAPE
BIT 1 Of CLASS - CCMMUNIC.
BIT 2 OF CLASS - DIRECT AC
BIT 3 OF CLASS - DISPLAY
BIT 4 OF CLASS - UNIT REC.
BIT 5 OF CLASS - CHAR.READ
BYTE 4 Of UCBTYPE-DEVICE
128
64
EQU
A19-8
Put IECDSECT in SYS1.MACLIB
11II11 JOB O,ECBl,MSGlEVEl=l
IISTEPNAME EXEC PGM=IEBUPDAT,PARM~NEW
IISYSP~I~T 00
SYSOUT=A
IISYSUT2 00
OSNAMEaSYS1.MACLIB,OISP=OlO
IISYSIN 00
DATA
.1
ADO
IECDSECT,QO,O,l
MACRO
IECDSECT
SPACE 1
THIS MACRO IS USED TO DEFINE THE WORK AREA
•
FOR ALL MODULES OF OPENtCLOSEtTCLO~E
•
AND END OF VOLUME FOR OIS 360
•
SPACE 1
THIS MACRO DEFINES A WORK AREA WITH THE
•
FOLlO~ING FORMAT
*
SPACE 1
l.LABELS AND OSe8
*
LABELS
•
VOLUME LABEL
•
•
•
*
•
•
•
*
•
•
•
•
•
•
.•
•
•
•
•
•
•
FILE LASE L 1
LABEL 2
FILE
OSC8
FORMA T 1
FORMAT 3 KEY
fORMAT 3 DATA
CORE ADDRESS OF NEXT DSeB
MESSAGE AREA
100 BYT ES
2.JFCB
116 BYTES
3.ECB
4
BYT ES
40
BYT ES
4.108
5.0EB
44 BYTES
6.DCB
4
BYT ES
96
BYTES
1.ce W S
SPACE 1
*
TCTAL •• * 464 BYTES
SP ACE 2
* ***
* ***
* ***
* ***
SP ACE 1
VOLUME LABEL
*
SPACE
OS
CXLBL
VOLLABI OS
V(JLNO
OS
VOLSERNO OS
VOLS EC
OS
OS
VOLVTOC OS
OS
as
Part I
1
OCL80
Cl3
Cll
Cl6
CL 1
aCLIO
CL5
CLS
CL 10
LABEL IDENTIFIER
vOtUME LABEL NUMBER
RE
SERVED
RE SERVED
A19-9
OS
VOlOWNER OS
OS
•
RESERVED
OWNER NAME AND ADDRESS CODE
RE SERVED
CllO
CL10
Cl29
SPACE 1
FILE LABEL I
SPACE I
ORG
FLllAB I
ns
OS
FLING
fLII0
OS
-=LIF1.LSR OS
OS
Fl.fIlSQ OS
FllGNO
OS
FL 1 V~G
OS
FLICREDT OS
FlIEXPDT OS
FLlfSfC
DC
FLI BLKer OS
fL lSYSCO oS
FLI RE S
OS
OS
FLIRESI
OS
H.l\'OlSQ
DXLBL
CL3
CL 1
LABEL IDENTIFIER
FILE LABEL NU~BER
Cl17
Cl6
FILE IDENTIFIER
FILE SERIAL NUMBER
NU~BER
CLIt
VOLUME SEQUENCE
Cllt
FILE SEQUENCE NU~BER
GENERATION NUMBER
VERSiON NUMBER OF GENERATION
CREATION DATE
EXPIRATION DAfE
FILE SECURI TY I NDICATCR
BLOCK caUNT
SYSTEM CODE
RESERVED FOR FUTURE USE
Cllt
CL2
Cl6
CL6
C'O'
CL6
CLl3
OCl7
Cli
CLo
SPACE I
*
FILE LABEL 2
SPACE I
ORG
FL2RECFM
fL2BLKL
Fl2l REel
FL2DEN
fL2FIlP
fL2JSID
FL2JOBO
OS
OS
OS
OS
OS
OS
OS
DC
FL2STEPO OS
fl2TRTCH OS
fl2CNTRl OS
Fl2RES
OS
SPACE
Fl2JSSP
*
CSCCREDT
D5CEXPDT
OSCNOEXT
CS CSl DBl
CSCSVSCO
OSCFllTV
CSCRECFM
DSCOPTCD
DSCBlKL
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
CS CL REel OS
Part I
fOR~AT
DENSITY
FILE POSITION
JOBISTEP IDENTIFICATION
JOB IDENTIFICATICN
Cli
Cli
OCL17
CL8
C'I'
CL8
CL2
SLASH
STEP IDENTIFICATION
TAPE RECORDING TECHNIQUE
tLI
CARRAIGE CONTROL CHARACTER
Cllt3
I
RESERVED FOR FUTURE USE
DATA SET CONTROL BLOCK
ORG
DSCVOlSR
RECORD
BLOCK LENGTH
BLOCKING FACTOR/RECCRO LENGTH
SPACE 1
CXCSCR
OS
oSCFMTID DC
cseFIlSR
FLl 10
Cli
CL5
CL5
DXlBL
OCl <36
C• 1'
CL6
Cl2
FILE SERIAL NUMBER
CL3
CREATION DATE IN DISCONTINOUS BIN
EXPIRATION DATE IN DISCONTINOUS BIN
CL3
Cli
ell
CLI
SYSTEM CODE
Cll3
CL 7
eL2
FILE TYPE
Cll
CLI
CL2
RECORD FORMAT
OPTION CODE
BLOCK lENG TH
Cl2
RECORD LE NG TH
A19-10
DSCKEYl
DSCRKP
CSCOSINO
CSCSCAlO
OSCLSTAR
OSCTRRAl
OSCEXTVP
CSCEXTSQ
DSClOWLM
OSCUPPlM
OSCEXT 1
esc EXT 2
DSCNEXT
OSCCORE
OSCBEND
os
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
EQU
KEY LENGTH
KE Y LotA TI ON
CLl
CL2
ell
Cllt
Cl5
CL2
CLI
CLI
Cl4
CLIt
CLlO
CllC
EXTENT TYPE INDICATCR
EXTENT SEQUENCE NUMBER
Cl5
POINTER TO NEXT RECCRD
CORE ADDRESS OF ~EXT DSCB RECORD
Cllt
•
SP ACE 1
DATA SET CONTROL -FORMAT 3- KEY PCRTION
*
SPACE I
ORG
OXOSCB
OX CSCB3K
OS
OCL40
OSC8F3C
DC
X'03030303'
OS
[;SCBEXTY 0$
CS C8EXSQ OS
DSCBlLMT OS
OSCBUlMT OS
CSC8EX2 OS
OSC8EXSK
OCL40
Cli
eLl
CLIt
CLIt
CllO
CLIO
CllO
CSCBEX3
OS
CSCBEX4
OS
SPACE I
EXTENT TYPE INDICATCR
EXTENT SEQUENCE NUMBER
CCHH LOWER LIMIT
CCHH UPPER LIMIT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
DATA SET CONTROL BLOCK -FORMAT 3- RECORD PORTION
*
SPACE
ORG
DXCBFM 10 DC
CSCBEXSO OS
CSCBEX5 OS
CSCBEX6 OS
DSCBEX 7 OS
CSCBEX8 OS
CSCBEX9 OS
CSCAEXA OS
OSCBEXB OS
CSC8EXC OS
OS CBEX 0 OS
OSCBNEXT OS
SPACE
1
DXOSCB
C'3'
OCl90
CLIO
FORMAT I D
ADDITIONAL EXTENTS
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
CCHHR OF NEXT FOR~AT 3 Dsce
CllO
CLIO
CLIO
CLlO
CllO
CllO
CllO
CLIO
Cl5
I
MESSAGE AREA
*
REPLYlTH
REPl YADR
REPl YECS
MSGlSTSl
MESSAGEA
REPLY
*
SPACE
ORG
OS
OS
OS
OS
OS
OS
I
OXOSCB
Cli
Cl3
Cllt
Cllt
Cl60
CllO
ORG
MESSAGEA
DEfINITION Of LENGTH OF MESSAGE COMPONENTS
*
*
Part I
A19-11
MSERl
MINSTl
HUNL
~~VOLl
eQU
EQU
eQU
EQU
• MTXTl
• MSGlTH
•
MSGIOSUP DC
MSGSER
OS
ORG
MSGSERLO OS
ORG
MSGINSTR DC
ORG
MSGACTN OS
DC
MS GUN
DC
DC
MSGVOlSR DC
DC
MSGTEXT OS
SPACE
•
CXJ SF
3
MESSAGE SERIAL NUMBER LENGTH
MSG INSTRUCTION lTH INC MSG SER
3
MESSAGE UNIT NAME LENGTH
6
MESSAGE VOLUME SERIAL LENGTH
LENGTH MAY BE DEFINED BY EACH MODULE Te FIT REQUIREME~
LENGTH OF FULL MSG DEFINED BY EACH MODULE
MESSAGE FORMAT IS tECOOOA M 000,00000 TeXT
el3'IEC'
110 SUPPORT MESSAGE IDENTITY
OCl3
MESSAGE SERIAL NU~BER
MSGSER MSERl-l
eLl
VOLUME SERIAL lO CROER BYTE
MSGSER
Cl6'OOOA M'
MESSAGE INSTRUCTICN INCl MSGSER
MSGINSTR MINSTl-l
Cli
MESSAGE ACTION REQD BY OPERATOR
6
,
('
Cl3' COO·
UNIT NAME THAT MSG REFERS TO
( • t t•
va L UME Sf RI Al TH AT
(l6 OOCOCO'
MSG REF RS T 0
C', •
OCL38
1
QRG
JOB FILE CONTROL BLOCK
OSCBEND
OS
OCLl76
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
JFCB
•
•
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
INFMJFCB EQU
JfCBOSNM os
JFCBELNM os
JFCBTSOM OS
•
JfCBSYSC os
JFCBLTYP OS
•
JFCBFLSQ
JFC8VLSQ
JFCBMASK
JFCBCROT
J FCBX PDT
JfCBINOl
JFCBRlSE
•
FCBL OCT
•
JFCBNEWV
•
JFCBPMEM
•
JFCBIN02
J
JFCBST AT
•
OS
OS
os
OS
os
os
OS
EQU
EQU
EQU
EQU
OS
EQU
JFCBSCTY EQU
it
JFCBUFNO OS
Part I
•
CL44 DATA SET NAME
eL8 ELEMENT NAME OR VERSION
eLl TASK SCHEDULER - DATA
MANAGE ME NT
I
NFERFACE AYT E
ell3 SYSTEM CODE
eLl LABEL TYPE AND USER'S-LABEl
INDICATOR
ell NOT USED
CL2 FILE SEQUENCE NUMBER
Cl2 VOLUME SEQUENCE NUMBER
CL8 DATA MANAGEMENT MASK
CL3 DATA SET CREATION DATE
CL 3 OA TA SE T E XP IRA TI ON OA TE
Cll INDICATOR BYTE I
64 BITS 0 AND 1 - EXTERNAL
STORAGE RELEASE INDICATCR
16 BITS 2 AND 3 - DATA SET
HAS BEEN LeCATED
4 BITS 4 AND 5 - NEh VOLUME
ADDEO TO DATA SET
1 BITS t: AND 7 - DATA SET IS
A MEMBER OF A PODS OR GOG
CL lIN 0 I CAT OR BYTE 2
64 BITS C AND 1 - DATA SET
STATUS (NEW, OLD, OR MOD)
16 BIT S 2 AND 3 - DA TA SE T
SECURITY INDICATOR
OAL 1
A 19-12
J FCBU FRU OS
JFCBFTEK
J FC8FAlN
JFCBUFl
J FCEROPT
JFCTRTCH
JFCKEYlE
JFCMOOE
JFCCOOE
JFCSTACK
JFCPRTSP
J FCOEN
JFCLIMCT
J FCOSORG
JFCRECFM
JFCOPTCU
JFCBlKSI
J FCLRECL
JfCNCP
JFCNTM
JFCRKP
JFCCYLOF
JFCOBUfN
JFCINTVL
J FCCPR I
J FCSOWA
JFCBNTCS
JFCBNVOL
DS
OS
OS
OS
OS
OS
OS
OS
OS
OS
os
OS
OS
OS
os
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
All
OBLI
Bll
AL2
Bli
OBLI
OALI
OBL 1
OSll
OSll
Bll
Bli
AL3
Bl2
BLI
BLI
Al2
Al2
ALl
All
Al2
All
ALl
ALl
BLl
Al2
ell NUMBER OF OVERFlOk TRACKS
ell NUMBER OF VOLUME SERIAL
NUMBERS
*
JFCBVOlS OS
Cl30 VOLUME SERIAL NUMBERS (THE
FIRST FIVE)
*
JFC8EXTL OS
Cll LENGTH OF BLOCK OF EXTRA
VOLUME SERIAL NUMBERS
(BEYOND fIVE)
*
*
JFCBEXAO OS
CL3 TRACK ADDRESS OF BLOCK OF
EXTRA VCLUME SERIAL NUMBERS
*
J FCBPQTY OS
•
FCBCTR I
•
J
STORAGE REQUIRED
OS
*
J FCBSQTY OS
*
FeB INO) os
JFCBCNTG EQU
J
JFCBMXIG EQU
•
J FCBAlX I
CL3 PRIMARY QUANTITY OF D.A.
EQU
Cll IND ICATE S WHE THER C YLI NDERS
TRACKS, CR RE~OROS ARE
SPECIFIED IN JFCBPQTY AND
JFCB SQTY
Cl3 SECONDARY QUANTITY OF D.l.
STORAGE RECUIRED
CLl INDICATOR BYTE 3
64 BITS 0 AND I - CONTIGUOUS
STORAGE INDICATOR
16 BITS 2 AND 3 - MAXIMUM
AVAILABLE EXTENT INDICATOR
4 BITS 4 AND 5 - ALL EXTENTS
I NOICATCR
*
JFCBRNDC EQU
..
1 BIT 6 AND 7 - ROUND
JFCBDQTY OS
Cl3 QUANTITY OF D.A.
CYLINDER INDICATOR
STORAGE
REQUIRED FeR A DIRECTORY
*
JFCBSPNM OS
*
*
JFCBABsr os
Part I
el3 CORE ADDRESS OF THE JFC8
WITH WHICH CYLINDERS ARE
SPLIT
Cl2 RELATIVE ADDRESS OF FIRST
A19-13
•
JFCBS8NH
•
•
JFCBDRLA
JFCBVLCT
JFCBSPTN
os
os
os
os
TRACK TO BE ALLOCATED
CL3 CORE ADDRESS OF THE JFCB
CL3
Cli
CLI
*
•
*JFCBLGTH EeU
JFCBENO
•
OXECB
•
OX lOB
IOBFLAGl
AG2
IORSENSE
IOASENSO
*
lOR FL
EQU
116
•
EVENT CONTROL BLOCK
SPACE 1
DS
OCL4
DC
X'OOOOOCOO'
SPACE I
INPUT/OUTPUT BLOCK
SPACE 1
OS
OCL32
OC
X'OO'
DC
X'OO'
OS
OH
OS
CLI
Q Q
os
CL 1
IORf:(BPT OS
XL 1
I(l8<)E"JSl
FROM WHICH SPACE IS TO BE
S US ALL OC ATE D
AVERAGE DATA RECORD LENGTH
VOLUME COUNT
NUMBER OF TRACKS PER
CYLINDER TO BE USED BY THIS
DATA SET WHEN SPLIT
CYLINDERS IS INDICATED
LENGTH OF JFCB
SENSE BVTE T1 T
DC
Al3( DXECB)
ICBCSW
OS
00
IOBCOMAU
DC
X'CCCOCCCO'
)('CO'
X'CO'
X'CCOO'
IOBSTATO DC
IClBSTATl DC
IGBCNT
DC
ICASIOCC OS
ICBSTART DC
IOBWGHT OS
ICROCBPT DC
OS
OS
IOBINCAM DC
IOBERReT OS
CXCAAOOR OS
SPACE
*
DYYYY
OX DEB
OX DE BOES
OXOEBSYS DC
DC
CXDEBECB DC
CXCEB 10 OS
OX OEBoce DC
[aU
CX DCBAO
CXOEBAPP
ex 0 EAMon
OXDEBUCB
Part I
OXCC ~ )
Al3(
OXDCB)
XLI
XL3
X'OOOO'
XL2
D
1
DIRECT ACCESS ADDRESS MBBCCHHR
DATA EXTENT BLOCK
SPACE 1
OS
OCl44
EQU
DYYYY-4
DC
X'OCOCCCCO'
DXOEBOFL OS
CXOEBIRH DC
ex CEBUSR
Xli
Al3 (
XL 1
KEY,OOOQ,COMMANO ADDRESS
STATUS BYTE 0
STATUS BYTE 1
COUNT
os
os
os
oell
X'CCCCOCOO'
X'CCOCCCCO'
X'OCOOCOCC'
X'CCCOOCCC'
OCll
Al4(DXDCB)
OXDEBOCB
Cl4
OCL 1
F
A19-14
OXOESB IN
CXCEBSCC
OXOEBSHH
OX oEBEtC
oXOEBEHH
OXOEBNTR
OS
OS
OS
OS
OS
OS
SPACE
H
H
H
H
H
H
1
DATA CONTROL BLOCK
SPACE 1
OXXXX
OF
OS
oxxxx- 44
eXOCB
EQU
POI NTER TO RELATIVE BEGINNING OF DCB
A(OXOEB)
OXOCBOEB DC
tt
CHANNEL CONTROL ~ORDS
SPACE 1
0,8
CNOP
OCl96
OS
OXCCW 1
OS
0
DXCCW2
OS
0
OXCCW3
OS
0
OXCCW4
OS
0
DXCCW5
0
OS
OXCCW6
OS
0
DXCCWl
OS
0
OXCCW8
OS
0
OXCCW9
OS
0
exccw 10 OS
C
DXCCW 11
OS
0
DXCCW12
OS
0
SPACE 1
464
CORE AREA REQUIRED FOR THIS MACRO
CS ECTS Il EQU
tt
oxccw
,.1
Part I
MEND
ENDUP
A 19-15
IIAAAA
JOB
O,EBC,MSGlEVEl=l
IIAA
EXEC PGM=IEUASM,PARM=(DECK)
IISYSllB no
OSNAME=SYSl.MAClIB,DISP=OlO
IISYSUTI 00
UNIT=2311,SPACE=(1100,(400,50)J
IISYSUT2 00
UNIT=2311,SPACE=(1700,(400,50J)
IISYSUT3 00
UNIT=2311,SPACE=(1700,(400,50»
IISVSPRINT 00 SYSOUT=A
IISYSPUNCH DO UNIT=2311,DSNAME=~E,SPACE=(80t(200,50»,DISP=(NEW,PASS)
IISVSIN DO
•
TITLE ITO TEST NSLOHDR I •
NSlTEST START 0
SAVE (1,12),T
SAVE REGISTERS IN HIS SAVE AREA
8AlR 3,0
USING .. ,3
LA
4,SAVEAREA
MY SAVE AREA ADDR TO GR 4
ST
4.8(0,13)
MY SAVE AREA ADDR TO HIS W03
S1
13,SAVEAREA+4
HIS SAVE AREA AOOR TO WD 2
I 3, S AVEAR EA M Y SA VE ARE A ADD R TOG R I 3
LA
OPEN (DATAl, (OUTPUT) ,DATA2, ,DATA3)
BLAST
DATAl
DCB
OSORG=PS,MACRf=(PL),ODNAME=TAPEl,DEVO=TA,RECFM=FBS,
lRECL=80,BlKSllE=80,BUFNO=1,BFALN=D,BFTEK=S,EROPT=ABE
DATA2
OCB
OSORG=PS,MACRF=(Gl),ODNAME=TAPE2,DEVD=TA,RECFM=FBS,
LRECl=80,BlKSllE=80,BUFNO=1,BFAlN=O,BFTEK=S,EROPT=ABE
DATA3
DCB
OSORG=PS,MACRF=(GL),DONAME=TAPE3,OEVO=TA,RECFM=FBS,
lRECL=80,BlKSllE=80,BUFNO=1,BFAlN=D,BFTEK=S,EROPT=ABE
LAST
CLOSE (OATAl,REREAD,DATA2,REREAO,DATA3,REREAO)
l
13tSAVEAREA+4
RETURN (14, 12)
S AV EAREA OS
18F
END
NSl TEST
IIIAAA
EXEC PGM=IEWL,PARM=(XREF,lIST,lET,NCAlJ
IISYSUT I 00
UNIT=2311, SPACE=(TRI<, (20,10) ,DISP= (,DELETE)
IISvSlMOD DO OSNAME=EBClI8(EBC3),DISP=(OlD,KEEP)
IISYSPRINT 00 SYSOUT=A
IISYSlIN DO OSNAME=&E,OISP=(OlD,OElETEJ
II
00 ODNAME=SVSIN
IISVSIN 00 *
NAME
EBC3(R)
1*
Assemble Test Program (EBC3) and Link Edit into EBCLIB
Part I
A19-16
X
X
X
lHOR
lHOR
TAPEl8l
TAPEl82
80 Character Labels Used on Tapes 181 and 182
Part I
A19-17
//GENE JOB Q,GENECLARK,MSGLEVEl=l
//STEP
EXEC PGM=IEHlIST
//VOl
00 UNIT=2311,DISP=DLD,VDLUME=(,RfTAIN,SER=111111)
//VOl2
DO UNIT=2311,DIS?=JlD,VOLUME=(,RETAIN,SER=222222)
//SYSPRINT DO SYSOUTzA
//SYSIN
DO.
II S TCTl G VOlUME=2311=111111
lISTVTOC DUMP,V3lUME=2311=111111
llSTVTOC DUMP,VJlUME=2311=222222
II S TPDS
VOlUME=2311=111111,~SNAME=SYSl.MAClI8
lISTPOS
VOlUME=2311=111111,~SNAME=SYSl.SVClIR
Used for Before and After Pi ctures of:
1. Cata Iague
2. VTDC's
3. MACLI B Directory
4. SVCLlB Directory
Part I
A 19-18
Assemble NSLOHDRI and Link Edit into ~y~ 1.~VLLlI1
IICDOO
JOB
0,EBCNSl,MSGlEVEL=1
IIGENEl EXEC PGM=IEUASM,PARM=(OECK,RENT)
IISYSlIB 00
DSNAME=SYSl.MAClIB,DISP=OLO
IISYSuTl DO
UNIT=23l1,SPACE=(1100,(400,50»
IISYSUT2 00
UNIT=2311,SPACE=(l700,(400,50»
IISYSUT3 00
UNIT=2311,SPACE=(1100,(400,50»
IISYSPRINT 00 SYSOUT=A
IISYSPUNCH 00 OSNAME=&EBC,UNIT=2311,SPACE=(SO,(200,50»,DISP=(NEW,PASS)
IISYSIN 00
..
TITLE' MY ROUTINE AT OPEN TO HANDLE INPUT HOR '
NSLOHDR I ST ART 0
NOTE THAT THE GETMAIN MACRO REQUIRES BASE REGISTER
ACORESSIBIlITV FOR ITS GENf.RATICN -
***
*.*
.....
.....
BALR 15,0
USING *,15
PROVIDE ADDRESSABIlITY
GETMAIN R,lV=24C
STM
2,14,0(1)
DROP 15
STORE REGISTERS
***
.... *
REGISTERS 2 TO 14 ARE SAVED IN AN AREA CF CO~E ACQUIRED
BY WAY OF A GETMAIN MACRO
BASE REGISTER 1 HAS r~f
ADDRESS OF THE AREA ACQUIRED
......
.....
.. *.
.....
.* ..
•••
.....
* ••
'OYNAMIC' IS THE NAME wE'VE GIVEN TO THE GfTMAlr'l/
WE'VE DESCRIBED IN THE DSEeT IN THIS PRCGRAM
Ai,UA
8AL R 3,0
USING *,3
** ..
REGISTER 1 MUST BE DROPPED AS THE BASE REGISTER OF THE
CYNAMIC AREA BECAUSE WE ARE ABOUT TO 'EXCP' AND IT IISfS
REGISTER 1
... *
.. * ..
....
... *
......
•••
.....
....
. *.
.*.
.... *
... *
•••
.**
.....
•••
•• *
OlOG Ie
Part I
LR
4,1
RELEASE 1 FOR MACRO USE
USING DYNAMIC,4
USING IHADCB,10
GRIC=ADDR OF DCB
USING SYM~ACBA,ll
GRll=ADDR OF WACBA
USING SVMUCB,12
GR12=ADDR OF UCB
INITIALIZE REGISTER 7 TO ZERO - THIS REGISTER IS USED
TO PASS OVER 4 BYTE ADDRESSES - THESE ADDRESSES ARE IN A
lIST OF ADDRESSES (WHICH ARE POINTERS TO ALL THE DCB'S
IN THE PROBLEM PROGRAM AREA) - THERE IS CNE ADDRESS FOR
EACH DCB EN"fR Y IN THE OPEN OR CLOSE - wE GET THE AOOR OF
THE BEGINNING OF THIS liST IN REG 5 DURING OPEN
LA
1,0
XR7 FOR DCS'S
INITIALIZE REGISTER S TO 36 - THIS REG IS USED TO PASS
OVER 8 BYTES AT A TIME - AFTER THE 1ST 32 BYTES EAC~ 8
BYTES CONTAINS (IN THE lOW ORDER BYTES) THE ADDRESS
OF THE 'WORK AND CONTROL BLOCK AREA' - ONE 'WORK AND
CONTROL BLOCK AREA' IS BUILT FOR EACH DCB IN THE OPEN OR
CLOSE MACRO - WE GET THE STARTING ADOR OF THE TABLE THAT
CONTAINS THE AODR FOR EACH 'WORK AND CONTRCl BLOCK AREA'
IN REG 6 DURING OPEN
LA
8,36
L
10, O( 1,5)
XR 8 FOR WACBA' S
ADDR OF DCB IN GRIO
A 19-19
L
•••
•
•
•••
•••
•
•
•••
•••
•
•
•••
•••
.•••
•
•
......
•••
....
L
ll,O( 8,6)
12,OXOEBUCB
ADDR OF WAC8A IN GRll
ADDR OF UCB IN GRl2
YES IGNORES THIS DCB
IS THIS AN 'OUTPUT' DCB
AND CHECKS THE NEXT DCB
TM
80
DCBOfLGS, X' 80'
MOUNT
BIT
°= 0
IF INPUT
YES IGNORES THIS DCB
IS THIS DCB ALREADY OPENED
AND CHECKS THE NEXT DeB
TM
80
BIT 3 = 1 IF OPEN
DCBOFlGS,X'10'
MOUNT
IS TH I S, ,nCB FOR OTHER THAN TAPE
AND CHECKS THE NEXT DCB.
TM
8l
TM
5l
UCBTYP+2,X'80'
MOUNT
TEST UCB3 TAPE FOR 1
IS MOUNT MSG BIT ON
SR T EOM C T , X ' 80 '
MOUNT
YES GeES TO RD LABEL
NC IGNORES THIS DCB
IS NSl BIT IN JFCB ON
AND CHECKS THE NEXT DCB
Cl I
BE
FCBl TY~, X '
BLOG Ie
J
C4 '
CHECK NSL BIT IN JFCB
GOES TO • MY , ROUTINE
.... SET UP THE MOUNT M5G TO BE USED IN IGG01908
MOUNT
MVC
MVC
•••
••••••
•••
ALOG Ie
•••
•
MVC
LTR
8M
.•••
•
..•
•
•
ox c C W4 ( 18) , MS SG
MOVE IN SKELETON MSG
PXCCW5+6(]),UCBNAME
MOVE UNIT NA~E TO MSG
DXCCW6+2(6),JFCB~OLS
MOVE VOL SER NO FROM JFCB
10,10
ElOG IC
FIRST BYTE IN CURRENT DCB
INCREMENT GEN PURPOSE REG 7 AND 8 BY 4 AND 8 TO GET TO
NEXT 'OCS' IN THE lIST Of DCB'S AND THE
NEXT 'WORK AND CONTROL BLOCK AREA' RESPECTIVELY
LA
LA
8
MODNAME
WTO
DC
WTn
7,4(0,1)
INCREMENT XR1 BY 4
8,8(0,8)
INCREMENT XR8 BY 8
CLOG IC
GO TO CHECK NEXT DCB
CL8 'IGG01908 '
'HOR ON XXX CHECKS',MF:L
MY ROUTINE
WE SeT THE HIGH ORDER BIT IN 'STREOMCT' IN THE OCB TO ZERO
IF WE DETERMINE VIA 'OS NAME' AND 'IHORI THAT WE'VE WRONG
TAPE MOUNTED WE WILL PUT A ONE IN THIS BIT WHICH INDICATES
TO THE CONTROL PROGRAM THAT A MOUNT MSG IS IN ORDER
*.*
Part I
- SEE WTO MACRO
TEST TO SEE IF THERE ARE MORE DCB'S OR IF WE'RE FINISHED
.*
•••
YES IGNORES THIS DCB
A19-20
BLOGle
•••
•
NI
BUILD THE eew
NOTE TMAT THIS IS NOT A GENERALIZED ROUTINE TO BUILD CCWS
•
•••
ST
MVI
MVI
MYC
XC
EXCP
WAIT
CL I
BE
ASEND
CHECK
eLC
8NE
CLe
SNE
MYC
MVC
LA
WTO
HYC
XC
EXCP
WAIT
.
.....
B
ERROR2
ERRORl
01
•••
•••
11,DXCCWl
READ ADDR TO CCW
DXCCW1,X'02'
READ
FLAGS
OXCCW1+4,X'20'
DXCCW1+6(2),=H'SO'
COUNT
OXECS,DXECS
R£SET Eca
OXIOB
WAIT FOR CO~PLETION
EeB-OXECS
ERROR CHECK
OXECB,X'lF'
READ 01<
CHECK
256,DUMP
ERROR ON READ
DXl BL ( 51, =CL5 'lHOR f
ERROR 1
COMPARE TO DSNAME
DXlBt+20(lO),JFCBDSNM
ERROR2
MSG,WTO
MSG+ll(3),UCBNAHE
1,MSG
MF=(E,(l))
EXECUTABLE INSTRUCTIONS
oxeCW1+6(2),=H'l'
COUNT
CXECB,DXECB
RESET EeB
TO POSITION TAPE PAST TAPE MARK
OXIDe
WAIT FOR CO~PlETION
EC8=OXECB
ALOG IC
READ 01<
SET THE 'MOUNTING MESSAGE' BIT ON
EQU
B
•
•••
•••
•••
ELOG IC
•••
•••
•••
TURN BIT 0 TO 0
SR TEDMe T , X• IF •
TURN
SRTEDMCT,X'SO'
ERROR2
MOUNT
BI~
0 TO ONE
RETURN
LA
LA
lR
lM
lS,OXCCW12
11,MODNAME
PTR TO SUPV PARAM LIST
PTR TO XCTL MOD~AME
1,4
AREA TO BE FREED
12,14,REGSTOR+40
RESTORE REGISTERS
lM
2,lO,REGSTOR
RESTORE REGISTERS
FREEMAIN R,LV=240,A=(1)
USES REGISTERS 0 AND 1
XCTl EPlOC:(ll),SF=(E,(l5)) USES REGISTERS SPECIFIED
CONSTANTS - - MSG TO BE MOVED TO DXCCW4 AND THEN USED BY IGG0190B
MSSG
DC
DC
X'C0180CCO'
C'IECIOIA M YYY,'
lJ • •
OYNAM IC
REGSTOR
MSG
•••
•••
•••
Part I
OSEeT
DS
13F
OS
Cl2l
DeaD
OSORG=PS,DEVD=TA
A 19-21
•••
•••
•••
SYMWACBA
SYMUCB
OSECT
_____ or EBC2
I ECDSECT ..---OSECr
_ or EBCl
IEFUCBOB ...
END
NSlOHOR I
1*
II
EXEC
PGM=IEWl,PARM='NCAl'
UNIT=2311,SPACE=(TRK,(20,lO»,DISP=(,OElETE)
IISYSUTl 00
IISYSlMOO
00
OSNAME=SYSl.SVClIB(NSlOHORI),DISP=(OlO,kEEP)
IISYSPRINT
DO
SYSOUT=A
IISYSllN 00 oSNAME=&EBC,DISP=(OlD,OElETE)
II
00
DDNAME=SYSIN
IISYSJN
00
*
NAME NSlOHORI(R)
1*
Part I
A19-22
JOB
O,EBCGO,MSGLEVEL=l
IIJ08l18 DO OSNAME=EBCLIB,OISP=(OLO,PASS)
IIGE
EXEC PGM=E8C3
IITAPEI DO UNIT=180,lABEl=(,Nl),DSNAME=TAPE180
IITAPE2 00 UNIT=181,LABEL=(,NSl!,VOlUME=SER=TAPE2,DSNAME=TAPE181
IITAPE3 00 UNIT=182,lA8El=(tNSl),VOl~ME=SER=TAPE3,DSNAME=TAPE182
IISYSABENO 00 SYSOUT=A
IIH~HH
1*
Execute The Test Program
Part I
A 19-23
IISCRATCH
JOB 1,EBCl,MSGLEVEl=1
EXEC PGMslEHPROGM
IIDllBi
OD UNIT=2311,VOlUME=SER=111111,OISP=(OLO)
IIOLI82
00 UNIT=2311,VOLUME=SER=222222,OISP=(OlO)
IISYSPRINT 00 SYSOUT=A
IISY$ABENO DO SYSOUT=A
00 •
IISYSIN
SCRATCH VTOC,VOl=2311=111111,SYS,PURGE
SCRATCH VTOC,VOl=2311=222222,SYS,PURGE
SCRATCH DSNAME=EBC.OOOD,VOl=2311=222222,PURGE
II
Used to regain the space the system has used for Scratch Data Sets
-orTo avoid a duplicate .name running job DODD.
Part I
A 19-24
-0
C
"""I
O.EBCGO,MSGlEVEl=l
IIGGGG JCB
EX EC PGM=GO
II
II A DC DSNAME=EBCll Bt SPACE=( CYl t ( 1 t 1, 1) ) ,VOlUME=SER=111111 ,
DISP=(NEW,CATlG),UNIT=2311
II
II VARY 192,OFFlINF
IEF23bI AllOC. FOR GGGG
IEF2311 A
ON 190
IEF2851
EBClIA
lE:f2851
VOL S~R NOS: 111111.
C
CATALOGED
Create a Library (EBClIB) for the Test Program (EBC3)
-0
o
""'I
IIBBBS
JCB
O.tRCURC,MSGlEVEl=l
IISTEPNAME EXEC PGM=IEBUPDAT,PARM=NE~
IISVSPRINT CD SVSOUT=A
IISYSUT2 CC
OSNAME=SYS1.MAClIB,DISP=OlD
IISYSIN DO
OATA
IEF236I AllOC. FOR BBBB
STEPNAME
IEF2311 SVSUT2
ON 190
IEF2311 SVSIN
ON OOC
Put EBCl in SYS1.MACLIB
lOG
IESUPOAT
ADO
MACRO
EBCl
OS
UCBNAME OS
UCB TYP
OS
OS
SR TEDMC T OS
OS
MEND
.1
""0
..,
0
ABOVE NAMECEBCl
HIGHEST CONCODE WAS
)FOUNO IN
PAGE 0001
eeCl,OO,O,1
Cll3
CL3
Xl4
CL15
XU
Cl32
NM OIREC TOR Y, TTR I SNOW AlfEREO
.1
ENDUP
OCOCOOOO
UNIT NAME IN EBCDIC CHARACTERS
DEVICE TYPE
MOUNT BIT IN HIGH ORDER BIT
."
-
o
..,
IE:F285I
IEF2851
IEF2851
IEF2851
SYSOUT
VOL SER NOS:
SYS l.MAClI8
VOL SER NOS: 111111.
SYSOUT
KEPT
Ileeee
..,d'
-
JOB
O,tBCWACBA,~SGlEVEL=l
IISTEPNAME EXEC PGM=IEBUPOAT,PARM=NEW
IISYSPRINT DO SYSOUT=A
IISYSUT2 CC
DSNAME=SYS1.MAClIB,OISP=OLD
IISYSIN CC
DATA
IEF2361 AllOC. FOR CCCC
STEPNAME
IEF2371 SYSUT2
ON 190
IEF2171 SYSIN
ON OOC
Put EBC2 in SYS 1 .MACLIb
IEBUPDAT
."
Q
~
LOG
./
•
DXLBL
•
JFCBDSNM
JFCBLTYP
JFCB VOL S
•
DXECB
•
»
-.0
I
W
0
oXIOB
•
OXoEBUCB
•
•
oXCC ""1
OXCC ""4
DXCC ""5
OXCCW6
OXCC Wl2
PAGE 0001
ADD
EBC2,00,0,1
MACRO
EBC2
SPACE
VCLUME LABEL
SPACE 1
OS
CLBO
OS
CL20
SPACE 1
JCB FILE CONTROL BLOCK
OS
CL44 DATA SET NAME
OS
CL22
DS
CLI LABEL TYPE
CL5I
OS
OS
CLlO VCLUME SERIAL NUMBERS
OS
CL28
SPACE 1
EVENT CaNT ROL BLOCK
SPACE 1
OS
OCL4
X'OOOOOOOO'
DC
SPACE 1
INPUT/OUTPUT BLOCK
SPACE 1
OS
CL40
SPACE 1
DATA EXTENT BLOCK
SPACE 1
OS
CL28
F
OS
OS
CL12
SPACE 1
DATA CONTROL BLOCK
SPACE 1
CL4
OS
SPACE 1
CHANNEL CONTROL WORDS
SPACE
CNOP 0,8
OS
0
CL16
OS
Os
0
OS
0
OS
0
CL40
OS
OS
0
SPACE 1
.,0"
-
MEND
ABOVE NAME(EBC2
HIGHEST CONCOCE WAS
»
'-0
I
W
PAGE 0002
lOG
I E8UP CAT
)FOUNO IN
NM DIREC TOR Y, TTR I SNOW ALTERED
ENDUP
•I
OCCCCOOO
.."
Q
...,
IEF2851
IEF2851
IfF285 I
IEF2851
SVSOUT
VOL SER NOS=
SVS 1.MACl IS
VOL SER ~OS= 111111.
SVSOUT
KEPT
."
Q
"'"
IIJJJJ
JOR O,EBCUBC,MSGLEVEL:1
IISTEPNAME EXEC PGM=IEBUPOAT,PARM=NE~
IISYSPRINT CO SY~~UT=A
IISYSUT2 CC
DSN~ME=SYS1.MACLIB,OISP=OLO
IISYSIN CC
DATA
IEF236I Allec. FOR JJJJ
STEPNAME
IEF1311 SYSUT2
ON 190
IEF2371 SYSIN
U~ OOC
Put IEFUCBOB IN SYS 1.MACLIB
»
-.0
I
W
W
IEBUPDAT
"
-
PAGE 0001
LOG
Q
""'I
.1
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10t
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
ADO
IEFUCeOe.OO.O.l
MACRO
IEFUCSOS
DATE OF THIS UPDATE
13 JULY 65
THE INDIVIDUAL uce S LOOK LIKE THIS.
•••••••••••••••••••••••••••••••••••••
•
JCB • ALLOC. •
• INTERNAL·CHANNEL •
• NU~SER. MASK •
UCB
• STATUS·
•
A
•
.
•
•••••••••••••••••••••••••••••••••••••
• FLAGl. UNIT •
•
•
•
AND .ADDRESS. FLAG2 • DEVTAi •
·CHAN.ADO·
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
•
•
•
• ERRTAB • STATAS • LCHTAB • ATNTAS •
•
•
•
•
•
•••••••••••••••••••••••••••••••••••••
·SCH lOS·
•
.FLG FLG·
UN IT NAME
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
TYPE
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
•
LAST 12.
SENSE
•
•
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•••••••••••••••••• * •••• ••••••••••••
•
•
SENSE
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
VOLUME
SER lAL
•
•
•
•
•
•
• •••••••••••••••••••
• ST ATUS • DATA •
•
.MANAGMNT.
A
•
•
•* •• * ••••••••••••••••••••
•
• COUNT •
* ••••••••••••
• VTae R .. SPARE •
• VTac TT
10
*~
(;
•
•••
•••••
•
•
•
•
•
•
•
•
ALL DEVICE S
..
..
•
•
•
•
•
•
• ••••
•••
•
•
•
•••••
tt
•
•
tt
TAPE AND DA
•
•
•
•
IEBUPCAT
-
PAGE 0002
LOG
""'0
..,
C
*
•
CR
.F I lE SEQ. COUNT
•
*
•
•
•
•
•••
•••••
•
•
•
•
•
•
•
•
SEEK QUEUE
•
•
•
•
•
• •
•
• * •
•
•
•
•
CONTROL WORD
•
•
•* •••••••••••••••••••••••••••••••••••••
•
•
FOR
•
• M B B C C H H R
•
•
•
• • •
•
•
•
• •
•
•
LAST SEEK
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
* • *
•••••••••••••••••••••••••••••••••••••
.CURRENT •
•
o A ECB ADDRESS
• NR. CF •
•
• USERS •
•
•••••••••••••••••••••••••••••••••••••
• • * • • • • • • • • • • • • • • • • •
EQU •
OF
OS
SR TfJBNR OS
XLl
SR TECHA~ OS
XLI
UCBID
OS
Xll
SR TE S TA T OS
XLl
SR TEONL I EQU
128
64
SR TECHG S EQU
SR TERE SOY EQU
32
16
SR TE UNLD EQU
SR TEALOC EQU
8
4
SR TEPRE S E QlJ
SR TE SYSR EQU
2
•
SRTEDADI
•
•
•
*
* •• * •• ** ••••••• **.*.* ••••••••••••••••
•
•
UCBOB
***
•• ****** •• *.*.****.*** ••••• * •••• * ••••
•
•
•
•
• • • •
•••••
•
OR
•
• FILE SEQ.NUMBER •
EQU
UCBCHA
OS
UCBlJA
OS
UCBFL2
OS
XLl
XLl
XLi
DA ONLY
•
•
•
•
•
•
• • •
•••••
•••
•
• • •
UNIT CONTROL BLOCKS
JOB INTERNAL NUMBER
ALLOC.CHANNEl MASK
UCB IDENTIFICATION
STATUS BITS
ONLINE
CHANGE ONLINE/OFFLINE
RES ERVED DEV ICE
UNLOAD THIS DEVICE
BIT 4 AlLOCAT ED
BIT 5 PERMANENTLY RESIDENT
BIT 6 SYSRES
OR PRIMARY CONSOLE
BIT 7 DADSM I~TERLOCK
OR TAPE CONTAINS
STANDARD LABELS,OR
ALTERNATE CONSOLE
FLAGl AND CHANNEL ADDRESS
UNIT ADDRESS
fLAG2
• • *
."
a
..,
»
-0
lJ
0-
I EBUPDAT
LOG
PAGE 0003
UCBDTI
OS
UCBETI
OS
UCBSTI
OS
UCBLC I
OS
UCBA TI
OS
UCBWG T
OS
UCBNAME OS
uce TYP
OS
UCB TB YTl EQU
uce IFEAO EOU
ueB IFEA 1 EQU
UCB IFEA 2 EQU
UCB lFEA '3 EOU
UCB IFEA4 EQU
UCBIFEA5 EQU
UCBIFEA6 EOU
UCB IFEA 1 EQU
UCB TB YT2 EQU
UCB TB YT3 EQU
UCB3 TAPE EQU
UCB3COMM EQU
UCB 3DACC EQU
UCB3Dl SP EQU
UCB3UREC EOU
UCB3CHAR eQU
UCS TS YT4 H}U
UCBL TS
OS
UCB SNS
OS
SR TE VOLI OS
SRTESTAB OS
SRTEBSVL EQU
SR TEB VSC EQU
SR TEBALB EQU
SR TEBPR V EQU
SR TEBPUB EQU
SR TEB VQS EQU
-
SR TEBJLB
SR TEBNUL
SR TEDMC T
SR TEF SC T
SR TEF SEQ
UCBSQC
UCBSKA
SR TE USER
SR TEECBA
OA TACELL
EQU
EQU
OS
OS
Os
OS
OS
DS
DS
EQU •
XLI
XU
XU
XU
XLI
XU
Cl3
XL4
UCBTYP
128
64
32
16
8
4
2
I
UCB TYP+l
UCBTYP.f2
128
64
32
16
8
4
UCB TYP+-3
XL2
XL6
CL6
XU
128
64
32
16
2
4
2
1
XLI
XL2
XL2
2F
2F
XU
XL3
DEVICE TABLE
ERROR TABLE
STATUS T ABL E
LOGICAL CHANNEL TABLE
ATTENT I ON TABLE
WEIGHT
UNIT NAME IN EBCDIC CHARACT~KS
DEVICE TYPE
BYTE 1 OF UCBTYPE-MODEL
BIT 0 OF OPTION FIELD
BIT 1 OF OPT ION FIELD
Bn 2 OF OPTION FIELD
BIT 3 OF OPTION FIELD
BIT 4 OF OPT ION F I EL 0
BIT 5 a F OPT ION F I EL 0
BIT 6 OF OPT ION FIELD
BIT 7 Of OPTION FIELD
BYTE 2 OF UCBTYPE-OPTIONS
BYTE 3 OF UCBTYPE-ClASS
BIT 0 OF CLASS - TAPE
BIT 1 OF CLASS - COMMUNIC.
BIT 2 OF CLASS - DIRECT AC
BIT 3 OF CLASS - DISPLAY
BIT 4 OF CLASS - UNIT REC.
BIT 5 OF CLASS - CHAR.READ
BYTE 4 OF UCBTYPE-DEVICE
LAST 12SENSE INFORMATION
VOLUME SER I AL
STATUS B
BIT 0 SHARED VOLUME
BIT 1 VOLUME SECUR ITY
BIT 2 ADO IT. VOL .L ABEL PROC
BIT 3 PRIVATE
BIT 4 PUBLIC
BIT 5 VOLUME TO BE OUIESCE
TO MOUNT ANOTHER
BIT
BIT' 6 JOBLIB VOLUME
BIT 7 CONTROL VOLUME
OATA MANAGEMENT COUNT
FILE SEQ. COUNT
FILE SEQ. NUMBER
SEEK QUEUE CONTROL WORD
MBBCCHHR FOR LAST seEK
CURRE~T NUMBER OF USERS
OA ECB ACGRESS
9 OF THESE BLOCKS WILL BE PRESENT
I EBUPOAT
PAGE 0004
lOG
'"'C
Q
-
..,
DCElJB;'>JR
DCEl USER
DCEl STAB
DCEl STA T
DCElVOll
DCElVTOC
DCElECBA
ABOVE
~AME(
IEFUCBUR)NOT FOUND
HIGHEST CONCODE WAS
OS
OS
OS
OS
OS
OS
OS
MEND
XU
Xll
XU
Xll
Clb
Xl3
Xl}
IN NM DIREC TORY STOWED ~I TH TTR
ENDUP
• I
OOCCOOOO
JOB I NT ERNAl
CURRENT NUMBER OF USERS
STATUS B
STATUS A
VOLUME SERIAL
VTOC ADDRESS
DA EC B ADDRESS
.,d'
-
»
-.0
I
W
ex>
IEF285I
IEF285I
IEF2851
It:·F285 I
SVSOUT
VOL SER NOS=
SVS 1.MAClIB
VOL SER NOS= 1111i1.
SYSOUT
KEPT
-"
Q
~
11IIII Jce Q,ECBl,MSGlEVEl=1
IISTEPNAME EXEC PGM=IfBUPOAT,PARM=NEW
IISVSPRINT CO SVSOUT=A
IISVSUT2 CC
OSNAME=SVS1.MAClli,OISP=OlO
IISVSIN CC
OATA
[tF23bI AllOC. FOR II 1 I
STEP~AME
IEF237I $VSUT2
ON 190
IEF2371 SYSIN
UN OOC
Put IECDSECT in SYS1.MACLIB
.."
I EBUPOAT
LOG
PAGE 0001
.,C
.1
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
»
-..0
I
~
0
•
•
•
•
•
•
it
•
•
•
•
•
•
• •••
• •••
• •••
• •••
•
OXLBL
VOlLABI
ADD
IECDSECT,OO,O,l
MACRO
IECDSECT
SPACE I
THIS MACRO IS USED TO DEFINE THE WORK AREA
FOR ALL MODULES OF oPEN,CLOSE,TCLOSE
AND END OF VOLUME FOR OIS 360
SPACE
THIS MACRO DEFINES A WORK AREA WITH THE
FOLLOWING FORMAT
SPACE I
I.LABELS AND DSCB
LABELS
VOLUME LABEL
FILE LABEL 1
FILE LABEL 2
DSCB
FORMAT 1
FORMAT 3 KEY
FORMAT 3 OAT A
CORE ADDRESS OF NEXT OSCB
MESSAGE AREA
100
2.JFCB
116
3.ECB
4
4.IoB
40
5.0EB
44
6.0CB
4
1.CCW S
96
SPACE
TOTAL ••• 464
SPACE 2
SPACE
VOLUME LABEL
SPACE I
OCL80
OS
OS
CL3
LABEL IDENTIFIER
BYTES
BYTES
ByrES
BYTES
BYTES
BYTES
BYTES
BYTES
lEBUPDAf
-"
LOG
PAGE 0002
0
...,
VOLNO
OS
VOL SERt\JO OS
VOL SEC
OS
OS
VOlVTOC DS
OS
OS
OS
VOLOWNER DS
OS
SPACE
CLI
CLb
CLI
OCllO
CL5
CL5
CLIO
CllO
CLIO
CL29
I
SPACE
ORG
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
DC
OS
OS
OS
OS
OS
SPACE
I
OXLRL
CL3
CLI
C1l1
CLb
CL4
CL4
CL4
CL2
CLb
CLb
C'O'
CLb
Cll3
OCl1
CLI
Clb
•
»
'"
I
~
FLllABI
FLINO
FLlID
F L LF I L SR
FLIVOLSQ
FllF I L SQ
FllGNO
FLIVNG
FL lCREO T
FLIE XPO T
FLIF SEC
FL IBLKC T
FLI SYSCO
FLIRES
FLIRESI
•
FL2RECFM
FL2BLKl
FL2LRECL
FL20EN
FL2FILP
FL2JSIO
FL2JOBO
FL 2J SSP
FL2STEPO
FL2 TR TCH
FL2CNTRL
FL2RE S
VOLUM E LABEL NUMBER
RES ERVED
RESERVED
RESERVED
OWNER NAME AND ACDRESS CODE
RESERVED
FILE LABEL I
LABEL IDENTIFIER
FILE LABEL NUMBER
FILE IOENT IFIER
FILE SERIAL NUMBER
VOLUME SEQUENCE NUMBER
FILE SEQUENCE NUMBER
GENERATION NUMBER
VERSION NUMBER OF GENERATION
CREAT ION OAT E
EXPIRATION DATE
FILE SECURITY INDICATOR
BLOCK COUNT
SYSTEM CODE
RESERVED FOR FUTUR~ USE
1
FILE LABEL 2
SPACE
ORG
OS
OS
OS
OS
OS
OS
OS
DC
OS
OS
OS
OS
SPACE
FLlID
Cli
CL5
CL5
CLI
CLl
OCLl1
CLa
C,/,
CL8
CL2
Cli
CL43
1
RECORD FORMAT
BLOCK LENGTH
BLOCKING FACTOR/RECORD LENGTH
DENS ITY
FILE POS IT ION
JOB/STEP IDENTIFICATION
JOB IDENTIFICATION
SLASH
STEP IDENTIFICATION
TAPE RECORDING TECHNIQUE
CARRAIGE CONTROL CHARACTER
RESERVED FOR FUTURE USE
I EBUPDAT
PAGE 0003
LOG
."
Q
""I
.,
OXOSCB
o SCFM TI 0
o SCF I L SR
OSC VOL SK
o SCCREO T
o SCE XPO T
o somE x T
o SCBLORL
OSC SYSCO
»
-.0
I
"J::..
'"
o SCF IL TV
o SCRECF M
o SCOP TCO
o SCBLKl
o SCLREC L
OSCKEYL
D SCRKP
DSCDSI NO
[) SC SCALD
OSCL STAR
DSCTRBAL
oseEXTVP
oseE XTSQ
o SCLO~LM
o SCUPPLM
oseE XTl
oseE XT2
o SCNE XT
o SCCORE
oseBENO
.,
oxoseB 3K
OSCSF3C
OSCBEXSK
OSeBEXTY
OSCBEXSQ
o SCBLlM T
o SCBULMT
OSCBEX2
o SCBE X3
DATA SET CONTROL BLOCK
SPACE
ORG
OS
DC
DS
OS
OS
OS
Os
OS
OS
OS
os
os
os
os
OS
OS
OS
os
os
os
OS
OS
os
os
os
os
OS
OS
os
os
EQU
SPACE
I
OXL3L
OCL96
C•I '
CLl>
CL2
CL3
CL3
CLl
CLI
Cll
CLl3
CL7
CL2
CLI
CLI
CL2
CL2
CLI
CL2
CLI
eL4
CL5
CL2
CLI
eLl
CL4
CL4
CLIO
CliO
CL5
eL4
.,
FILE SERIAL NUMBER
CREAT ION DATE I~ OISCONTINOUS BIN
EXPIRAT ION DATE IN OISCDNTI~OUS BI~
SYSTEM CODE
FILE TYPE
RECORD FORMAT
OPTION CODE
BLOCK LENGT H
RECORD LENGTH
KEY LENGTH
KEY LOCATION
EXTENT TYPE INDICATOR
EXTENT S EQU ENCE NUM RER
POINTER TO NEXT RECORD
CORE ADDRESS Of NEXT DSCS RECORD
DATA SET CONTROL -FORMAT 3- KEY PORT ION
SPACE I
ORG
OXDSCB
OCl40
OS
X'03030303'
DC
OCL40
os
EXTENT TYPE INDICATOR
CLl
os
EXTENT SEQUENCE NUMBER
CLI
os
C CHH l OW E R LIM IT
CL4
CCHH UPPER LIM IT
os
CL4
CllO
ADDITIONAL EXTENT
OS
ADDITIONAL FXTENT
os
CliO
os
"
-
o
.,
I EAUP lJAT
PAGE CCC4
lOG
DSCBEX4
DATA SET CONTRUl BLOCK -FORMAT 3- RECORD PORTIQN
*
SPACE
ORG
DXCBFMID DC
DSCBEXSD OS
DSCBEX5 OS
o SCBE Xb f)S
DSCBEX7 OS
DSCBEX8 DS
o SCSE X9 OS
DSCBE XA OS
o SCBE XB OS
DSCBE XC OS
o SCBE XD OS
o SCBNE Xl OS
SPACE
•
REPl YL TH
REPL YADR
REPL YECS
MSGLSTSI
ME SSAGEA
REPLY
*
*
*
MSERL
MINSTL
Ml;~L
MVOLL
• MTXTL
* MSGL TH
•
ADDITIONAL EXTtNT
DS
CllO
SPACF 1
I
OXDSCS
C'3'
OCL90
CLlO
CllO
CLlO
CllO
C Ll a
CLIO
Clla
CllO
Clla
CL~
1
~ESSAGE
SPACE
ORG
OS
OS
OS
OS
OS
OS
FORMAT 10
ADDITIONAL EXTENTS
ACDITIONAl EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ACDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
ADDITIONAL EXTENT
CCHHR OF NEXT FORMAT 3 DSCB
AREA
1
DXDSCB
CLl
Cl3
CL4
Cl4
ClbO
CllO
ORG
ME S SAGE A
DEFINITION OF LENGTH Of MESSAGE COMPONENTS
EQU
EQU
EQU
EQU
MSGIOSUP DC
MSGSER
OS
ORG
MSGSERLO DS
ORG
MSG INS TR DC
ORG
MSGAC TN OS
DC
MESS AGE S ER I Al NUMBER LENGTH
MSG INSTRUCTION lTH INC MSG SE~
MESSAGE UNIT NAME LENGTH
MESSAGE VOLUME SERIAL lENGTH
LENGTH ~AY BE DEFINED BY EACH MODULE TO FIT REQUIREMENT
LENGTH CF FUll MSG DEFINED BY EACH MODULE
MESSAGE FeRMAT IS IECOOOA M 000,00000 TEXT
Cl3'IEC'
1/0 SUPPORT MESSAGt IDENTITY
OCl3
MESSAGE SERIAL NUMBER
MSGSER MSERl-l
CLl
VOLUME SERIAL LO ORDER BYTE
MSG SER
CL6'OOOA M'
MESSAGE INSTRUCTION INCl HSGSE~
MSGINSTR MINSTL-l
CLl
MESSAGE ACTION REQD BY OPERATOR
3
6
36
C'
•
I EBUPDAT
"'0
o
-s
LOG
PAGE 0005
MSGUN
DC
DC
MSGVOLSR DC
DC
M SG TE XT
0S
SPACE
•
DXJBF
C l3' 000 t
C' , •
CL6'OOOOOO'
UNIT NAME THAT MSG REFERS TO
VOLUME SERIAL THAT MSG
~EFRS
TO
C' , •
OCL38
1
JOB FILE CONTROL BLOCK
ORG
OS
OSCBE~O
OC L116
•••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
•
JFCB
•
•......................................................••..•••••.•...•••
INFMJFCB EQU
•
JFCBOSNM 0 S
JFCBElNM 0 S
JFCB TSOM OS
•
JFCB SYSC OS
JFCBLTYP OS
•
JFCBFLSQ
JFCBVLSQ
JFCBMA SK
JFCBCRD T
JFCBXPDT
JFCBINDI
JFCBRL SE
•
JFCBLOC T
•
Os
OS
OS
OS
0S
OS
OS
EQU
EQU
JFCBNE ~V EQU
•
J F CB P ME M EQ U
•
JFCBIND2 OS
JFCBSTAT EQU
•
JFCB SC TY
•
JFCBUFNO
JFCBUFRQ
JFCBFTEK
JFCBFALN
JFCBUFl
EQU
OS
OS
OS
OS
OS
CL44 DATA SET NAME
CL8 ELEMENT NAME OR VERSION
Cli TASK SCHEDULER - DATA
MANAGEMENT INFERFACE BYTE
CLl3 SYSTEM CODE
CLI LABEL TYPE AND USER'S-LABEl
INDICATOR
Cll NCT USED
CL2 FILE SEQUENCE NUM8ER
Cl2 VOLUME SEQUENCE NUMBER
Cl8 DATA MANAGEMENT MASK
CL3 DATA SET CREATION DATE
CL3 DATA SET EXPIRATION DATE
CLI INDICATOR BYTE I
64 BITS 0 AND 1 - EXTERNAL
STORAGE RELEASE INDICATOR
16 BITS 2 AND 3 - DATA SET
HAS BEEN LOCATED
4 BITS 4 AND 5 - NEW VOLUME
ADDED TO DATA SET
I BITS 6 AND 1 - DATA SET IS
A MEMBER OF A PODS OR GOG
Cli INDICATOR BYTE 2
64 BITS 0 AND I - DATA SET
STATUS (NEW, OLD, OR MOD)
16 BIT S 2 ANO 3 - 0 AT A SET
S ECUR ITY IN 0 I CA TOR
OALI
All
OBll
BLI
Al2
IEAUPDAT
-0
..,C
LOG
PAGE 0006
JfCEROPT OS
JFCTRTCH OS
JFCKEYLE OS
JFCMOOE OS
JFCCODE OS
JFCSTACK OS
JFCPRTSP OS
JFCDEN
OS
JFClI MC T OS
JFCDSORG OS
JFCRECFM DS
JFCDPTCD OS
JFCBLK SI OS
JFCLREC LOS
JFCNCP
DS
JFCNTM
OS
JFCRKP
OS
JFCCVLDf OS
JFCDBUFr..t OS
JFCINTVL OS
JfCCPRI OS
JfCSOWA OS
JFCBNTC S OS
JFCBNVOL OS
..
..JFCBVOLS OS
....JFCBE XTL OS
..JFCBE XAO OS
.JFCBP(,) TY 0 S
.JfCBCTRI
.•
..JFCB SQ TY
JFCBIND3
JFCBCNTG
..
..JfCBMXIG
..JFCBAtXI
OS
0S
OS
EQU
EQU
fQU
Bll
OBLl
OALl
OBll
OBLl
ORLl
BLl
Bll
AL3
Bl2
Bll
Bll
AL2
AL2
ALl
ALl
All
All
All
All
BLl
AL2
CLl NUMBER OF OVERFLOW TRACKS
CLl NU~BER OF VOLUME SERIAL
NUMBERS
CL30 VOLUME SERIAL NUMBERS (THE
FIRST FIVE)
CLI LENGTH OF BLOCK Of EXTRA
VOLUME SERIAL NUMBERS
( BEY ON 0 F I VE )
CL3 TRACK ADDRESS OF BLOCK Of
EXTRA VOLUME SERIAL NUMBERS
Cl3 PRIMARY QUANTITY Of D.A.
STORAGE REQUIRED
CLl INDICATES WHETHER CYLINDERS
TRACKS, OR RECORDS ARE
SPECIFIED IN JFCBPQTY AND
JFCBSQTY
CL3 SECONDARY QUANTITY OF D.A.
STORAGE REQUIRED
CLl INDICATOR BYTE 3
64 BITS 0 AND 1 - CONTIGUOUS
STORAGE INDICATOR
16 BITS 2 AND 3 - MAXIMUM
AVAILABLE EXTENT INDICATOR
4 BITS 4 AND S - ALL EXTENTS
INDICATOR
IEBUPOAT
PAGE 0007
lOG
JfCBRNOC EQU
•JFCBDQTV
1 BIT 6 AND 7 - ROUND
CYLINDER INDICATOR
0S
•
JFCB SPNM 05
•
•
JfCBAB S T 0 S
•
JFCBSBNM DS
CL3 QUANTITY OF D.A. STORAGE
REQUIRED FOR A DIRECTORY
Cl3 CORE ADDRESS OF THE JFCB
WITH WHICH CYLINDERS ARE
SPL IT
Cl2 RELATIVE ADDRESS OF FIRST
TRACK TO BE AllOCATED
Cl3 ceRE ADDRESS OF THE JFCB
FROM WHICH SPACE IS TO BE
•
•JFCBDRLA
su BALL aCAT EO
OS
JfCBVLC T OS
JfCB SPTN OS
•
•
•
JFCBlGTH EQU
JFCBEND EQU
•
DXECB
•
OX lOB
IOBFlAGl
IOBFlAG2
lOB SENSE
10BSENSO
•
SPACE
OS
DC
SPACE
Cl3 AVERAGE DATA RECORD LENGT~
CLl VClUME COUNT
Cll NU~BER OF TRACKS PER
CYLINDER TO BE USED 8Y THIS
DATA SET WHEN SPLIT
CYLINDERS IS INDICATED
176 LENGTH CF JFCB
•
EVENT CONTROL BLOCK
1
OCL4
X'OOOOOOOO'
1
I~PUT/OUTPUT
SPACE
OS
DC
DC
OS
OS
lOB SENSl 0 S
10BECBPT OS
DC
OS
10BC Sw
IOBCOMAD DC
IOBSTATO DC
10BSTATl DC
DC
10BCNT
lOB stoec OS
IOBSTART DC
10BWGHT OS
10BDCBPT DC
OS
OS
BLOCK
1
OCL32
X'OO'
X'OO'
OH
ell
Q Q
CLl
XLl
AL3 (DXECB'
SENSE BYT E T LT
00
X'OOOOOOOO'
X'OO'
x'oo'
X'oooo'
XLl
AL) (OXCCW)
XU
AL3(DXDCB)
Xll
XL3
KEY,OOOO,COMMAND ADDRESS
STATUS BYTE 0
STATUS BYT E 1
COUNT
"0
""'
IEBUPOAT
10BINCAM DC
IOBERRCT OS
OXDAAODR DS
SPACE
•
»
-..0
I
~
"""-I
PAGE CC08
LOG
DYYYY
DXDEB
DXDEBOEB
DXDESDFL
DXDEBIRB
DXDEBSVS
DXOEBUSR
OXOEBECB
o XOEB I D
OXOESDCB
OXDCBAD
o XOEBAPP
OXOEBMOO
OXOEBl.CB
OXOEBBIN
OXOE8SCC
OXOEB SHH
OXOE8ECC
OXOE8EHH
OXOE8NTR
•
X'OOOO'
XL2
D
DIRECT ACCESS ADDRESS MBBCCHHR
1
DATA EXTENT BLOCK
SPACE
OS
EQU
DC
DS
DC
DC
DC
DC
DS
DC
EQU
OS
OS
OS
OS
DS
OS
DS
OS
OS
SPACE
1
OCL44
DYYYY-4
X'OOOOOOOO'
OCLl
X'OOOOOOOO'
X'OOOOOOOO'
X'OOOOOOOO'
X'OOOOOOOO'
OCll
AL4 (OXOCB)
OXOEBOCB
CL4
OCLl
F
H
H
H
H
H
H
L
DATA CaNT ROL BLOCK
SPACE 1
OXXXX
OF
OS
OXDCB
EQU 'OXXXX-44
POI NT ER TO RELATIVE 8EGINNING Of OCR
ACOXDE8)
OXOCBOEB DC
CHANNEL CONTROL WORDS
•
SPACE 1
CNOP O,B
DXCCW
OCL9b
OS
OXCC Wl
OS
0
OXCCW2
oS
D
OXCC W3
OS
0
OXCC W4
OS
0
OXCC W5
OS
0
OXCC Wb
os
0
OXCC w7
0
OS
OXCCW8
os
0
OXCC W9
OS
D
OXCCW10 os
0
DXCC Wlt OS
0
I
EBUPDAr
lOG
DS
D
SPACE 1
DSEC TSII EQU
464
MEND
PAGE 0009
DXCC W12
ABOVE NAME( IECOSECT)NOr FOUND
HIGHEST CONCODE WAS
IN
DIRECTORY STOwED WITH TTR
•/
ENDUP
OCCCCOOO
~M
CORE AREA REQUIRED FOR THIS MACRO
'"tJ
-
Q
-t
IEF2851
IEF2851
IEF2851
IE:F2851
SYSOUT
Val SER NOS=
SYSl.MAClIB
Val SER NOS= 111111.
SYSOUT
KE PT
II~~~A
co
-s
IIAA
JCA
EXEC
O,~P.C,~SGLEVEL=l
PG~=IEU~SM,PAR~=(OECK)
IISYSLIB 00
DSN~MF=SYS1.MACL[B,DISP=OLO
IISYSUT1
IISYSUT2
U"llT=2H1,SPACE=( 11(0,(400,')0»
U"'IIT=2311,SPACt=( l1(e, (400,50»
UNIT=2311,SPACE=( 17CO,(400,50»
SVSOUT=A
CO
CD
IISYSUT3 DO
IISYSPRINT co
IISVSPUNCh CC UNIT=2311,OSNAME=~E,SPACE=(80,(200,50»
IISYSI~
CO
*
IEF2361 ALLOC. fOR AAAA
AA
IEF2371 SYSLIB
G~ 190
I E F 231 I S YS UT 1
U~ 190
IEF2371 SYSUT2
UN 190
IEF2371 SYSUT3
U~ 191
IEF2371 SYSPUNCH U"'I 190
IEF2371 SYSIN
8~ OOC
,DISP=(NEw,PASS)
Assemble Test Program (EBC3) and Link Edit Into EBCLIB
"
C
EXTERNAL SYMBOL
'""I
SYP'SCL
NSlTEST
TYPE 10
SO
ACOK
LE.NGTH LD 10
01 UOOOOO C001B4
DICTIO~ARY
PAGE
1
00.02 10/07/66
TG T ES T
-0
,Q
LOC
NSU}~DR
OBJECT COOl-
I
PAGE
ACCRI ADOR2
STMT
SOURCE
STATE~ENT
F24JUNE66 10107/66
-to
000000
2 NSLTEST
3
000000
000000
000004
000006
000006
00000 A
OOOOOE
000012
000016
000018
00001C
00001C
000020
000021
000024
000025
000028
00002A
90l::C DOOC
0530
ooeoc
4140
5040
5000
41 CO
CO 16C
00008
aOl7C
CO 16C
3166
0008
316A
3166
0700
4510 3022
OF
000030
00
000090
80
OOOOFO
OA 13
47 FO 314 A
»
4+5+
6
00e28
a015C
7
8
9
10
11
12
13+
14+
15+
16+
17+
18+
19+
20+
21+22
23 DATAL
24
-.0
START 0
SAVE
(l ,12), T
SAVE REGISTERS I"J HIS SAVE A~EA
OS
OH
ST~
14,12,12(13) SAVE RfGISTERS
3,0
BALR
US I NG *,3
4,SAVEAREA
~y SAVE AREA ADDR TU GR 4
LA
ST
4,8(0,131
~Y SAVE AREA ADDR TO HIS WD3
ST
13,SAVEAREA+4
HIS SAVE AREA AODR TO WD 2
LA
13,SAVEAREA
MY SAVE AREA AOOR TlJ GR 13
( [) ATAL, ( [U T PU T ) ,0 AT A2 , , CAT A 3 )
OPE N
0,4
CNOP
1,*+16 LOAD REGl w/LIST ADDR.
BAL
ALl(151 CPTION BYTE
uC
DC
AL3(OATA11 DCB ADDRESS
All (01 (PTION KYTE
DC
AL3(DATA2) DCB ADDRESS
DC
All (1281 OPTION BYTE
DC
DC
AL3(DATA3) DCB ADDRFSS
SVC
19 ISSUE [PEN SVC
LAST
B
DCB
DSORG=PS,~ACRF=(PLI,DCNAME=TAPEl,OEVO=TA,RECFM=fBS,
LRECL=80,BLKSIlE=80,BUFNO=I,BFALN=D,BfTEK=S,ERUPT=ABE
*,***
IHB063
DDNA~E SHORT-PADDED TO 8 CHAR
I
<.n
I'V
26+*
27+-*
28+
29+0A TA 1
30+
00002E
000030
000030
DATA CONTROL BLOCK
ORG
OS
ORG
*-0 Te ELIMINATE UNUSED SPACE
OF ORIGI~ ON WORD BOUNORY
·+0 TC CRIGIN GENERATION
~AGNET[C
32+*
000030 0000000000000000
000040 00
000041 000000
34+
35+
36+
DC
DC
DC
000044
000045
000048
00004A
00004C
01
000001
0000
4000
00000001
40+
41+
42+
43+
44+
CO~MCN
DC
DC
DC
DC
DC
42
000001
q8
000000
48+
49+
50+
'>1+
55+
~ETHOO
OSORG
FOUNDATION EXTENSION
DC
OC
DC
DC
BU'01000010'
AL3 (11 ECoAD
Bll'10011000'
Al3(0) E XLS T
BFTEK,BFAlN
RECfM
F CUNOAT I ON BLOCK
53+*
000058 E,CIC7C5F1404040
ACCFSS
All(lI BUFNO
Al3(1) BUFCA
AlZ(O) BUFl
BLZ'0100000000000000'
A (1) I[BAo
46+*
000050
000051
000054
000055
TAPE CEVICE INTERFACE
BUb'O' NERRS,NOISE,UERRS,BlKCT
Bll '00000000' TRTCH
BL3'OOOOOOOOOOOOOOOOOOOOOOOO' OEVT,OEN
38+*
DC
CL8'TAPE1
1
1
ODNAME
INTERFACE
x
TOT fS T NSL CHOR [
PAGE
2
-c
o..,
LOC
C BJ ECT CODE:
ACDR 1 ADDR2
000060 02
000061 00
000062 0048
STMT
SOURCE
56+
57+
58+
STATE"'E~T
DC
DC
DC
F24JUNE66 10107/66
All'OOOOOOlO' OFlGS
Bll' 00000000' I FlG
Sl2'OOOOOOOOOl001000'
MACR
BSAM-BPAM-QSAM
000064
000065
000068
00006C
00006E
000070
000074
000078
000079
00
000001
00000001
0000
0050
00000000
00000001
00
000001
62+
63+
64+
65+
66+
67+
68+
6(j+-
70+
DC
DC
DC
DC
DC
DC
DC
DC
DC
I~TERFACE
Bll' 00000000'
Al3 I 1) CHECK, GERR, PERR
A I l) S YNAO
H'O' CINDl, CIND2
Al21S0) BLKSIlE
F'O' IoICP[, WCPL, OFFSR, OFFSIoI
All) I[BA
All (0) NCP
Al3(1) ECRR, EORAD
QSAM INTERFACF
00007C
000080
000082
000084
0000S5
0000S8
00008C
00000001
0000
00')0
20
000001
00000000
00000001
74+
75+
76+
77+
78+
79+
80+
f:ll DATA2
DC
DC
DC
DC
DC
DC
DC
DCB
82
84+*
85+*
86+ •
87+DA TA2
88+
000090
000090
000090
All) RECAO
H'O' C;SWS
AL2IS0) lRFCL
BU'OOlOOOOO' EROPT
Al3(1) CNTRl
F 'a' PRFCl
All) ECR
DSORG=PS,MACRF=IGL) ,DDNAME=TAPE2,DEVD=TA,RECFM=FBS,
lRECL=80,BLKSIIE=80,BUFNO=1,BFALN=D,BFTEK=S,EROPT=ABE
*,***
IHB063
DDNA~E SHORT-PADDED TO B CHAR
DATA CONTROL BLOCK
ORG
OS
ORG
*-0 TC ELIMINATE UNUSEC SPACE
OF ORIGIN ON WORD BOUNDRY
*+0 T[ CRIGIN GENERATION
MAGNETIC TAPE DEVICE INTERFACE:
000090 OOOOOOOOOOUOOOOO
OOOOAO 00
OOOOAI 000000
92+
93+
94+
DC
DC
DC
SlI6'O' NERRS,NOlSE,UERRS,BlKCT
Bll'OOOOOOOO' TRTCH
Bl3'OOOOOOOOOOOOOOOOOOOOOOOO' DEVT,DEN
CGMMON ACCESS METHOD INTERFACE
0000 A4
0000 AS
OOOOAB
OOOOAA
OOOOAC
01
000001
0000
4000
00000001
98+
<79+
lCO+
101+
102+
DC
DC
DC
DC
DC
All I l) RUFNO
AL3Il) BUFCR
Al2(0) BUFL
Bl2' 0100000000000000'
All) [CRAD
FOUNDATIO~
104+*
0000 BO
0000 B I
000084
000085
42
00000 1
98
000000
CSORG
EXTENSION
IG6+
107+
10B+
DC
DC
DC
BlI'OlOOOOlO'
Al3(1) ECOAO
BFTEK,RFALN
~ll'lOOllOOO'
RECFM
1 Cq+
DC
AL3(0)
EXlST
x
Te TFST
-0
a
..,
U:C
[PJf-CT
PAGE
"lSlljHO~1
CLOt
A C OR 1 A [) GR
-to
2
S TM T
SO UR e EST A TE
~E
NT
111+*
ooooee
ooooco
OOOOCl
ooooe?
E)Cl()710
20
000001
00000000
00000001
1 78+
1 79+
DC
DC
180+
181+
182+
183+
184+
185+
186+
DC
4510 315A
10
000030
10
000090
90
OOOOFO
0414
'JUDO 316A
00160
000166 98fC COOC
00016A 07FE
00016C
000000
CCGCC
aOl7C
190+
191+
192+
193+
194+
195+
196+
len LAST
198+
199+LAST
200+
201+
202+
203+
204+
205+
2C6+
207
~ACR
BSAM-RPAM-QSA~
DC
DC
DC
DC
DC
DC
INTERFACE
B Ll 'OOOOOOUO'
AL3 11) CHECK, GERR, PERR
AllI SYf\AO
H'O' CIf\01, CIN02
AL2(80) BLKSIlE
F'O' ~CPO, WCPL, OFFSR, OFFSW
All) I(RA
ALI I U) r-..c p
AUll) ECBR, EOBAD
e,;SAM INTERFACE
188+*
00013C
000140
000142
000144
000145
000148
00014C
CLti'TAPE3' ODNAMfBLl '00000010' OFLGS
All '00000000' I FlG
Bl2'0100100000000000'
DC
DC
DC
DC
DC
DC
DC
CLOSE
CNOP
BAl
DC
DC
DC
DC
DC
DC
SVC
A(1) HCAD
H'O' QSIolS
AL2(80) lRECl
AU'OOlOOOOO' EROPT
AL3(1) Cf\TRL
F '0' PRf-CL
AIL) E(B
IDATAl,RE~EAO,OATA2,REREAO,DATA3,REREAO)
0,4
1,.+16 BRANCH AROUND LIST
AU(16) OPTION BYTE
Al3IDATAl) DeB ACORESS
All (16) (PTION BYTE
Al310ATA2) DCB ADOR~SS
All (144) CPTION BYTE
AL310ATA3) OCR AOCKfSS
20 ISSLf CLeSE SVC
L
13,SAVEAREA+4
RETURt\j 114,12)
208
2 Gq+
LM
14,12,l2(13) RE:STORE ThE REGISTERS
210+
BR
14 RE TuRN
211 SAVEAKEA OS
18F
212
END
N Sl Tf S T
RELOCATION DICTIONARY
.."
...,a
POS. Ie
REL • I D
01
01
01
01
01
01
01
01
01
01
01
01
FLAGS
08
08
08
08
08
08
ADORE SS
ceCCI0
ceCC21
CCCC25
COO155
CC015Q
CC0150
PAGE
10/01166
CROSS-REFERENCE
-
PAGE
-0
a.,
5 y ~e Ol
LEN
CAT A1
CATA2
Din A3
LAST
NSLTEST
SAVEAREA
NC
00004
00004
00004
00004
00001
00004
STATE~ENTS
205
P~INTED
VAlUF
CEF;\j
000030 0029
000090 0087
OOOOFO OL45
000['>0 01Q9
OOUOOO 0002
00(; 16C 0211
10/07/66
REFERENCES
0016
eC18
CC2C
C022
e212
COC8
C201
C2C3
C205
(CI0
FLAGGEO IN THIS ASSEMAlY
llNE5
0011
0207
""0
..,
Q
S v S 1 • MACl I B
KE P T
vel SER NOS= 111111.
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.OCOOOOOI DELETED
VOL SER ~OS= 111111.
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.00000002 DELETED
vel SER NOS= 111111.
If.F28~I
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.CCCCOOC3 DELETED
IEF2851
VOL SER NOS= 222222.
IEF285I
SYSOUT
SVSOUT
IEF285I
VOL SER ~OS=
IEF2851
f.AAAA
PASSED
IEF2851
VOL SER NOS= lll111.
IltAA
EXEC PGM=IEWl,PARM=(XREF,LIST,LET,NCAl)
IISVSUT1 CO
UNIT=2311,SPACE=(TRK,(20,lO)) ,DISP=(,DElETE)
IISVSL~Oo 00
DSNAME=EBClIB(ERC3),oISP=(Olo,KEEP)
IISVSPRINT 00 SVStIlJT=A
IISYSlIN CC OSNAME=~E,CISP=(Olo,oElETE)
II
00 ooNAME=SVSIN
IISVSIN 00"
IEF236I ALlOC. FOR AAAA
AAA
IEF237I SVSUT1
ON 191
I EF237 I SVSLMOD ON 190
I~F231I SVSlIN
ON 190
ItF231I
ON OOC
I E F285 I
IEF2851
IFF285I
IfF2851
IEF2851
IEF2851
""'tJ
a..,
F-lEVEl lINKAGf EDITOR OPTIONS SPECIFIED--XREF,lIST,LET,NCAl
ItWOOOO
NAMF
EBC3(R)
IEWOOOO
EBC3
NOW REPLACED IN DATA SET
CROSS REFERENCE TABLE
CONT ROl SEC T ION
ORIGI~
LFNGTI-i
00
1B4
NSLTEST
LOCATION
EN TR Y
REFERS TO SYMBOL
ENTRY ACCRESS
TOTAL lENGH"
00
1B4
NAME
IN CONTROL
SECTION
LOC A TI CN
LOCATION
NAME
LOCAT ION
i'4AME
LOCATION
~
0
...,
»
'-0
I
0-
o
IEF2B5I
IEF2851
IFF2851
IE:F285I
IfF2851
IfF2851
IEF2851
IEF2851
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.CCCOOOO6
vel SER NOS:: 222222.
EBellB
vel SER NOS:: 111111.
SYSOUT
VOL SER ~OS::
E.AAAA
VOL SER !\I~S:: 111111.
DELETED
KEP r
SYSOUT
DELETED
-"
a...,
IIGENE
IISTEP
IIVOL
JOB O,G~~ECLA~K,~SGLEVEL=1
EXEC PGM=IEHLIST
DO UNlT=2311,DISP=OLD,VJLU~E=(
//VOl2
DO UNli=2311,DISP=DLO,VOLUME=(
/ISYSP~INT
DU sy~nUT=A
IISYSIN
DO *
IEF23bI AlLDC. FOH GE~E
STfP
IEF2311 VOL
tJ~ 190
IEf2371 VUl2
fl"~ 191
IEf237I SYSIN
U~ QUe
,RET~IN,SER=lll11l)
,RET~IN,StR=222222)
Print
1. Catalogue
2. VTOC·s
3 . MAC LI B Di rectory
4. SVCLlB Directory
"..,
-
Q
SYSTf~S
GE~ERAL
~~ VJL 111111
TYPfOAT4 SET
DATA SET
DATA SET
DATA SET
LISTINC. OF ENTIRE CATALO~
I'\jFORMATlf:~
DS OR I f\JDEX \lAMF
EBClIB
UTI
UTl
Ur3
SYS1.CORll~
SYS 1 • DAS DU M
SYS1.FURTlIB
SYSI.JOBLIB
SYS1.LINKLIB
SYSI.MACLIB
SYS1.NUCLEUS
SYS1.PLllIB
SYS1.PROCLIB
SYS1.SORTLIB
SYS1.SVClIB
SYS1.SYSJOBQE
TEST.LOAD
TEST .OBJECT
TEST.SOURCE
SUPPD~T
PAC,t 0001
UTILITIES---IErlLIST
FOR CATALLJG
tNT~Y
VUl.ID.
!l1111
222222
222222
illlll
111111
111111
111lll
222222
222222
lllLl1
lll111
111111
222222
111111
111111
1111ll
TE S TVL
TE S T Vl
TE STVl
SE Q. NU.
000000
0(0001)
000000
000000
IJEV.TYPE
30002)01
AL I AS UF
3)~)t)JI
3)8)2301
330Dt~OI
000000
000000
3)0)/)31
OOOOOD
30031301
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
00000)
000000
30002001
3J3)2)31
3»)2001
30002)01
30002001
30032)31
3:>3)2001
30002JOl
3JJJ;,'JOl
333)2001
330)7)01
3)0)2001
300)2001
•
SYSTEMS SUPPORT UTIllfIES---IEHlIST
.,o"
PA~E
Ou02
CiJ\lfE\jTS JF VT~C ;]'4 V~l 111111
LINE 1
DS~AME
• • • • 5 • • • • 10 • • • • 15 • • • • 20 • • • • 25 • • • • 3C • • • • 35 • • • • 40 • • • •
LINE 2
45 • • • • 50 • • • • 55 • • • • 60 • • • • 65 • • • • 70 • • • • 75 • • • • BD • • • • a5 • • • • 90 • • • • ~5 • • • •
LINE 3 =100 • • • 105 • • • L10 • • • 115 • • • L20 • • • 12~ • • • 130 • • • 135 • • • 140
os~a ADD~ (::H~~)
FURMAT 4 USCB
040404U404040404040404040~04040404D~~~8~0~J4040404D40404040404040404040404Q404n404040404
F40Q5FO()r)104008000Cd0000001E:000LOOOOOO:~000AOE2952371401021Q100AOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO00
0000000llOOOOOl00005F0000005FOOOdOOOOOOOOOOOOOOOOOOOOO00000000000000000000000000000
005FOOOOOl
FORMAT 5 USCB
0~Q505050006000004001f005A0003BFOOOOOIJ7C3JDOOQCODDOOOOOOOOOOOOOOOOOOOOOOOUOOOOOOuOOOOOO
F5000000aooooooooooooooooooooooooooooooooooooooooooooo000000000000000000)00UOOOOOOOUOOOOOOOOOOOOOOOOOOOOOOOO00
OOOOOOOUOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO)OOODOOOOOOOOOOOOOO
00~FOOOUU2
SVS1.DASDJM
FLFIFIFLflFlf10U01610l6F63015E01000000000000000000000000000JOJOOOOOOOOOOJOO)400J90000E10005000000000:000000000
0701017~n0008100000100000002000qOOOOOOOOOOOOOOOOOOOOOO0000000000000000000000000000
005F000003
S V S 1.l OGR EC
F1F1fLFlf1F1F1000163016E63016E0100000000000000000000000000000000JOOOOOOODOOD40008800002b002b02000000ti800000000
010F070j()0000100000000010000000500000000000000000000000000000000DOOOJ0003000000000
00~f000004
SVSl.SVSJOB~E
FIF1F1FIFIF1FIOOOl11l111L11111010000000000000000000000OOOOOOOOOuJOODaOOooooOOOOOOOOOOOOOOOOOOOOOOOOOCOOOOOOl00
005f000005
l70FFfCl0000810000COOOOOOOC300090000000000000000000000OOOOOOOOOOJJOOOOOOOOOO~OOOOO
SVSCTLG
flFlflFlflFlFl000163016Eh3015EOlOOOOOOOOOOOOOOOOOOOOOO0000000000000000000000000000000000000000000000:000000100
005FOOG006
00FFOE2~OOOOd10000500000005E00090000000000000000000000OOOOOOOOOOODOOOOOOOOOOOOOOOO
S VS 1. S VCL I B
FIFlf1FLF1F1F1000163016Eb3015EOlOOOOOOOOOOOOOOOOOOOOOO000000000000000000J0000200COOOOE29000000000000:000000000
3AOE04840000810000600000006C000900000000000000000000000000000000000000000000000000
005f000001
SVS1.MAClIB
F1F1F1FlflFlF1000142011tl4201l801000000000000000000000000000DDDODJOOOOOODJDODJ20090000D20005000000000:000000201
20020COC00008100006000000098000900000000000000000000000000000000000000000000000000
005f000008
SVS1.COBlIB
FIFIF1FIF1F1F1000163016~63015EOIOOOOOOOOOOOOOOOOOOOOOO0000000D001DODDOOODOOOOZOOCOOOOEZ90E2~OOOOOOOO:000000200
01080AEb0000810000990000009C00090000000000000000000000OOOOOOODOOuOOOOOOOJOOOOOOOOO
005F000009
SYS1.FORTLIB
FIFIF1FIF1FIFI000163016E63015EOIOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOJDDJJOOOJ000020DCOOOOE2900000000uooocooooooz00
OBOA097C00008100009DOOOOOOA0000900000000000000000000000000000000)00000000000000000
005fOOOOOA
SYS1.SORTlIB
F1FIF1FIFIF1F1000163016E63015E0100000000000000000000000000000000000000000000020000000000000000000000:000000200
28070AF/0000810000AIOOOOOOA5000900000000000000000000000000000000000000000000000000
005FOOOOOB
S VS 1. Pll LIB
FlflFlflF1Flf1000163016Eb3015EOlOOOOOOOOOOOOOOOOOOOOOO00000000000000DOOD00000200COOOOE290~2900000000:000000000
3D080A8~0000810000A600COOOB4000900000000000000000000000000000000000000000000000000
005FOOOOOC
SYS1.NUCLEUS
FIFIFIFif1F1F1000163016r63016EOIOOOOOOOOOOOOOOOOOOOOOOOOOOOODOOOOOO~000JJD000200COOOOE290000000000008000000000
OCOA064H0000810000B5000000BA000900000000000000000000000000000000000000000000000000
005fOOOOOD
UT3
FIFIFtFlFIFIFI000142010~42010EOIOOOO(J0000000000000000000000000000000000000000000000000000000000000008000000\00
OOOOOE2Y0000810000BHOOOOOOBF00090000000000000000000000OOOOOJODOD~~OOJOOOOOOOOOOOOO
005fOOUOOE
EBCLI B
FIFlFLFlF1F1fL0001420118420118010000000000000000000000000000000000000000DOOOD200coooaE2~0000uOOOOOOO:000000l00
OOOCD5RFOOOOdlOOOOC4000000C4000QOOOOOOOOOOOOOOOOOOOOOOOOOOOOJOODJJOOOOOODOOOOOOOOO
005FOOOOOF
GOSET.FORTGO
F1404040404040000142010242010201000000000000000000000000000000000000000000000200COOOOE29000U000000004000001400
0002DCb~00000lOOOOC5000000C600060000000000000000000000OOQOOOOODDDDOODOOOOOO~DOOOOO
005fOOOOlO
THERE ARE 0090 EMPTY CYLINDERS PLUS 0017 EMPTV TRA:K5 ON THIS VOLUME
THERE ARE 0128 BLANK DSC~S I~ THE VTJC 3N THIS VOLUME
•
-"
Q
SYSTEMS SUPPORT UTIlITIES---IEHlIST
"'"
CiJ~TE~TS
PAGE 0003
Uf VTOC IN VOL 222222
1I NE 1
OSNAME
• • • • 5 • • • • 10 • • • ~15 • • • • 2~ • • • • 25 • • • • 30 • • • • 3~ • • • • 40 • • • •
LINE 2
45 •
.50
.55 • • • • 60 • • • • 65 • • • • 70 • • • • 75 • • • • 80 • • • • d5 • • • • 90 • • • • 95 • • • •
LINE 3 =100 • • • 105 • • • 110 • • • 115 • • • 120 • • • 125 • • • 13) • • • 135 • • • 140
DSCB ~DD~ (::H~~)
FORMAT 4 DSCB
04040404040404040404040404040404040404)404J4~4J40404040404040404040404040404040404040404
F4004100nOOC008bOOCtl0000001E0001000000:BOOOAOE2952371401021~1~~AO~OOJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO00
~ORMAT
000000000000010000410000004100080000000000000000000000OOOOOOO)OOJDOOO)O)JDOOOOOOOO
0041000001
5 DSCB
050505050001003009029300000107C300010}ODOOOOOOOOOODDOO0000000000000000000000000000000000
f500000UOOOOOOOOOOOOOOOOCOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOUOOOOOOOOOOOOOOO00
OOOOOOOUOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO~OOJ)OOOOOOOOOOOOOOOU
0041000002
UTI
F1FZF2F2F2f2~2000142010E42010EOIOOOOOOOOOOOOOOOOOOOOOO000000000D0000000000000000000000000000000000008000000~00
00000E2~oOOOtl10000BAOOOOOOBE00090000000000000000000000OOOOOOOOODOOOOUOOOOOOOOOOOOO
0041000003
SYS1.PROCLIB
FIF2f2FlF2fZF2000163016t63015E0100000000000000000000000000000DODOOOOOJOJ~000020080000050005000000000:000000000
OD14038f00008100003E000000400009COOOOOOOOOOOOOOOOOOOOO0000000000000000000000000000
SYS1.LINKlIB
0041000004
F1F2F2FlF2F2F2000163016E63015E010000000000000000000000000aooo~0000000000)OO~0200COOOOE29000000000000:800000002
850tl004f000081000042000000B9000900000000000000000000000000000000000000000000000000
0041000005
UT2
FIF2f}FlF2F2f2000142010~42010~0100000000000000000000000000000JOJOJaooooooOOOOOOOOOOOOOOOOOOOOOOOU0008000000~00
00000E2Q0000810000BFOOOOOOC3000900000000000000000000000000000000000000000000000000
0041000006
S y S 1 • J a BL I B
F140404040404000014201 184201 18010000000000000000000000 00000000000Joaa00000000200COOOOE290000000000004000001400
000109140000010000C4000000C5000600000000000000000000000000000000000000000000000000
0041000007
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.00000001
F1404040404040000142010242010201000000000000000000000000000000000000000000004000C00000000000000000004000001400
00000E2Q0000010000C5000700C600060000000000000000000000OOOOOOODOOOOOOOOOOOOOOOOOOOO
0041000008
THERE ARE 0062 EMPTY CYLINDE~S PLUS 0013 EMPTY TKACKS ON T~15 VOLUME
THERE ARE 0136 BLANK OSCBS l~ THE VTOC IN THIS VOLUME
SYSTEMS
.."
C
...,
»
-..0
I
0In
5UP~Q~T
UTILITIES---IEHLIST
01 RECT ORY I NFO fUR' SPECIFIED PoS D\j VClL 1111ll
SYSl.MACLIB
MEMHER5
TTKC
VARIABLE USE ~ )AT4 ---(USER DATA AND TTRC ARE I N HEX)
ABE\lO
00020102 00012025
M~Al Y l
00960302
00012037
ATT ACH
00030302 00016031
BLOl
000B0302 00014165
as p
000C0202 000llO11
Bu IL 0
000C0402 0001B006
CALL
000E0302 000L4154
CAMLST
OOOl::0502 00014163
CAT Al OG
00110302 00010034
CHAP
00110502 00016031
CHECK
00110102 00012625
CLOS~
00120302 00012025
CNTRL
00160302 00012025
OCR
00E30302 02014074
oC8o
00060~02
02014014
DEL ET E
001B0302 00014151
OEO
00180~02
GOO14164
oET ACH
00180102 00014142
oEVTfPE
01060302 00014014
OUMP
01090302 01016018
012B0300
--7 l::BC 1
ERC2
01280500
~--------- 7 t"NQ
00190302 00014168
EOV
00190502 00012625
£:x CP
00190102 00014156
f)(TkACT
00190902 00012025
FEOV
001C0302 00012625
FINO
001C0502 00012031
FREEBUF
00100302 00014090
FREEORUF
00060302 00014074
FREEMAIN 001E0302 00012031
FREEPOOL
00240302 00012031
GBFLM
00990302 00012037
GBINF
00'lR0302 00012037
GBPOS
009C0302 00012037
GBPST
00900302 00012031
GCNL
00900502 00012037
009F0302 00012031
GCNUP
GCNTRL
009F0502 00012031
GOCOS
00A60302 00012037
GOV
00A10302 00012037
GfCF
00A00302 00012031
GECP
00AEOl02 00012031
GEOS
00AE0402 00012031
GEP~1
00AF0302 00012037
GFf
00240502 00012625
GET BJF
00250202 00012031
GETMAIN
00250402 00012031
GET PllOL
002C0302 00018006
GEVM
00B00302 00012037
GI Ble
OOHI0302 0001203"1
GIN IT
00820302 00012037
P~GE
0004
-
SYSTE~S
""'C
..,0
GNOP2
GNOP4
GO
GOOEL
GREAO
GREADR
GSBLC
GS BPOS
GS ERV
GSRT
GT RU
GTXT
GUS TUR
GW RITE
IDENT Iff
---? (ECDSECI
IEFUCBOA
~ IHBEkMAC
IHBINNRA
IHBl"l~RB
»
~
I
00-
IHBOPLST
IHBROwRO
{HBROfilRI<.
IHBROwRS
IHRRO,,/RT
{HBOI
iHB02
I~OEX
I OHAL T
LCTRL
LINK
LOAD
LOCATE
NOT I::
DACB
ORT AI N
UPE:N
POINT
POST
PRTOV
PUT
PUTX
RDJ FCB
KEAD
RELSE
RENAME
RETURN
SAV E
SCRATCH
SEGLD
SEGWT
SET
SPlf
S T AE
STIMER
00H40302
00H40,:>02
002E0302
00R')030Z
00860302
00BF0302
OUC30302
00C30502
00(40302
00(50302
00C60302
00C70302
00CQ0302
00CA0302
00310302
01210200
011B0300
00F00302
00320302
00320502
01140302
01020302
00350302
003A0302
00FC0302
008C0302
00F70302
003E0302
01180302
00040302
003E0502
003F0302
00400302
00400502
00030302
00400102
00410302
00460302
00470302
00470502
00490302
00490502
00490102
004A0302
004B0302
004C0302
004C0502
004E0302
00500302
00510302
00510502
00510702
005B0302
005F0302
005F0502
00012037
00012037
00013025
00012037
00012037
00012037
00012031
00012037
00012037
00012037
00012037
00012037
00012037
00012037
00014152
02014074
00014144
00014169
01016083
01014074
00014006
00014006
01014074
01011079
01014074
00010034
00014074
00014660
000131Bl
00014140
00014147
00013781
00012031
00014146
00014029
00014029
00014029
00014029
00013781
00010091
00011106
00012625
00018040
00014148
00013005
00013005
00014141
00012625
00013005
0001302il
00013005
00014150
00013005
SUP~~RT
uTIlITIES---IE'"iLIST
P~GE
0005
-
SVSTFMS SUPPORT UTIlITIES---IEHlIST
""0
C
.....
STOW
T ES T
TIME
TRACE
T RU"JC
TrIMER
WA IT
WAIT R
WR
~T
WTl
WTD
wTOR
XCTl
XDAP
E
00600302
007A0302
00610302
00610502
006A0302
006A0502
QOb.070-2,
006B0302
006BO~02
006C0302
00'600302
OUbE03G2
00710302
00 (20302
0001404d
00010032
00014048
00013028
00010691
0001404H
0001404H
00'014'048
00012625
00013017
00013017
00013017
00014048
00015004
PAGE 0006
-u
SYSTEMS SUPPORT
.,0
DIRECTORY INFO
SVSl.SVCLIB
HI\.),
MEMHER~
"t
o()O
-:[
»
-.0
I
0OJ
(fC
11
- ----
:v
IGCOOOIL
IGCOOO HIGCOUOIG
I GCOOO 11
IGCOOOh
IGCOOO2~
IGCOu02-'
IGCOO02C
IGCOO02t
IGCOO02r
IGCOOOlfIGCOO02L
I GCOO02H
IGCOO021
I GCOOO3~
IGCOOO 3A
IGCOO03H
IGCOO03L
IGCOO031J
IGCOO03f
IGCOO03FIGCOO03I
IGCOO04C
IGCOO041
IGCOO05A
IGCOO05t:
IGCOO05~
IGCU006A
IGCOO06D
IGCOO061
IGCOI01C
IGCO 103U
IGCOI0SA
IGC0201C
IGC0205A
IGC0301C
IGC0305A
IGC0401C.
IGCOSOIC
IGEOOOOA
IGEOOOOD
IGFOOOOG
IGfOOOOI
(GEOOO H.
IGEOOIOA
IGEOOI0B
I GE0025C
IGE00250
IGE0025t:
I GEOO 25F
IGEOIOOI
IGEOIOIC
SPECIFlE:O POS
TTRC
002F0720
00090520
00090920
00210120
OU250~20
00100720
00270-,20
00280320
00200520
001140720
00110720
00130320
00110320
000C0920
000E0320
001A0520
000A1620
00200120
0005022B
000S062B
000SOA2B
000E0720
00310720
0006032B
00200B20
001B0520
00200920
003S1020
00210520
001B0320
002FOB20
00050l:2B
OU2E0320
00300520
002E0120
00300920
002F0320
00300020
00310320
00070620
00010A20
00080')20
00060120
00080920
00070E20
00011220
00081120
00081520
00081920
00090020
000601320
00080020
O~
VOL
VARIABLE
002F090000
000Q010000
00090BOOUO
0022010000
0025050000
00 1 1 0 1 0-000
0028010000
0028030000
0020050000
OOlROIOOOO
00U010000
0013030000
0011030000
0000010000
000E030000
001A050000
OOOROIOOnO
0020010000
0005040000
0005080000
OOOSOCOOOO
000EOI0000
0031090000
0006050000
002E 010000
001B050000
0021)090000
0036010000
0021050000
001B030000
0030030000
0006010000
002EOSOOOO
0030010000
002F 01 0000
00300B 0000
002F050000
0031010000
00310S0000
0007080000
00010C 0000
0008070000
0006090000
00080BOOOO
0007100000
0007140000
0008130000
0008170000
0009030000
OOOQOF 0000
0006000000
00080F 0000
PAGE 0001
UTIlITIES---IE~lIST
111111
USER DATA ---(USER DATA A~O TTRC
0000000310 0003000300 OOOOOOOOO~
0000000370 0003FE03fE OOooooooaa
0000000310 00002~OO2E OOOOOOOCDO
000000[378 0004000400 0000000000
000000:378 0004000400 OOOOOOOO~O
0000UOC378 0003):030C OOOUOODJJ::>
000000(378 OOU4000~00 0000000)00
000000C378 0004000400 0000000000
000000C31d OOOO=:OOfC 0000000000
000000[378 0001200110 OOOOO~JOOO
000000[378 0003Bb03B6 0000000000
000000C378 00024:024C OOOOOOOODJ
OOOOOr[318 0003080308 0000000000
000000[378 0003800380 000000\)0:)0
000000[378 0003180318 0000000000
000000~378 0004000400 0000000000
000000(378 0003380338 00000000:)0
000000(318 OOOO)BOOOB 00000000:)0
00000003FO 0003140314 0000000000
00000003FO 0003C303(3 0000000000
00000003FO 0000020007 0000000000
000000(378 000310030A 0000000000
0000000310 0000920092 0000000000
0000U043FO 00035A035A 0000000000
0000000370 00039F039F 0000000000
000000[378 0004000400 0000000000
000000C318 00003C003C 0000000000
0000U00370 0002800280 0000000000
000000C318 0004000400 00000000:)0
ooooooe 318 0002130213 0000000000
0000000310 0003Cll03CO OOOOOOOJOO
00000003FO 0003140314 0000000000
0000000370 0003)F030F 0000000:)::>0
0000000310 0003:lE030E 0000000000
0000000310 0003EtW3E8 0000000000
0000000370 000iA801 A4 0000000000
0000000310 0003F003FO 0000000000
0000000310 0003AI03Al 0000000000
0000000370 0002400240 0000000000
0000000370 OOOOEEOOEE 0000000000
0000000370 0001500150 0000000000
0000000310 00014C014( 0000000000
0000U003 -{O 00018E0181::: 0000000000
0000000370 0001460146 00UOOO08:)0
000000[370 0001900190 0000000000
000000C370 0001900190 0000000000
0000000310 00013::013(. 0000000000
0000000370 00014C014( 0000000000
0000000370 00OOF400F4 0000000000
0000000260 0001360136 0000000000
0000000370 00018A018A 0000000000
0000000370 OOOOC(:OO(C OOOOlJOOOOO
ARE IN HEX)
JOO~OlOI30
67
)aO:JDl~171
~9
QOOOJO:>100 11
(l00OO10140 95
~::>OJJ20
no
')OOUJOO 11::>
0000010140
OOOOOOOldO
JODJJ)Oll:J
JOOOO20160
0000000130
')300000 HJ
OJOOOI0130
0000JI0l50
0000000140
000GOOO190
DOOOOIOlS0
OOOOOOJll:)
000:>
OOOJ
000;)
0000010140
0000010130
000)
0000000131
0000010130
0000000110
4~
J~
95
33
~l
82
IS
23
J9
05
23
:)9
J6
61
90
IS
B7
l~
61
:>JOOOO01~0 06
UOOOOOOI0:) 34
0000010130 l~
0000000131 dO
DOD}
0000000131
0000000131
0000010130
0000000131
aOOODIOI3::>
0000000160
0000020100
88
81
15
Bl
15
01
44
:)~0000010~ 11
0000000100 11
0000000120 56
00000201&0 82
OOOOJO(1)) 1 1
0000000120 37
0000000120 31
0::>00:)00100 11
,)00J020160 82
0000000180 26
OOOJ:J00170 54
0000000110 35
0000000100 11
"""0
..,C
SYSTE~S
IGEOllO~~
IGf0125f
IGE02001
IGEO?2"~
IGE0425f
IGf(,'>25~
:>
-.0
I
0-.0
I GE:0625f
IGGOClC;
I GGu CL C 3
IGGOClC4
I GGOClC '.>
I GGOCl F 2
IGGOl0000
0014050000
0014070000
0014090000
00140BOOOO
0014000000
0015020000
001~040000
000000[3/0
0000000370
0000000370
0000000260
0000000370
0000000260
0000000260
00000OC37ti
000000C378
000000C378
00000O:::37ti
00000(J::31d
00000()CB78
000000CR78
000000CB78
000000:: B 7 d
000000::~78
00000OCB78
OOOOOOC R 18
0000UO::878
OOOOOJCB 18
000000CB/8
000000:B18
00000O::B78
000000CB78
OCOOOO:B78
000000::B78
00000OCB18
000000CB78
OOOOOOC B 78
dOOOOOCB78
ooooonCR 18
000000CB78
000000CB78
000000:B78
000000CB78
00000OCB78
OOOOOOCB 78
OOOOOOC B 78
00000UCB78
000OOUCB78
000000:B78
00000OCB78
000000CB78
oooooor: ~ 78
OOOOOO:R 78
00000(lCB78
OOOOOOCB 78
000000CB78
0000OOCB78
000000CR78
001">060000
0015080000
00150AOOOO
001 ,)OC oooe
00150EOOOO
0015100000
0015120000
002A030000
0015140000
0015160000
0015180000
0016010000
0016030000
0016050000
002A050000
002A070000
0016070000
0016090000
00160KOOOO
001601)0000
00160FOOOO
0016110000
0016130000
0016150000
0017010000
0017030000
0017050000
00213010000
0028030000
002K050000
0025010000
002C010000
002C030000 0000UOC~78
002C050000 OOOOOOCB 78
0034010000 ooooooe B 78
0034030000 UOOOOOCB78
0000500050 0000000003 0»)0::>0120 31
00014F014F OOOOOOOCJJJ [J00DODJI7D 16
00018fj0188 0000000000 00000201&0 82
OOOO:~OOC~ OOOOOOOOJ:> OJOJJOOl1J 11
OOOO::OOCC 0000000003 r)OJ~OOl/O 18
OOOOE:OOEC 0000000300 0000030 L7~) 61
0000F200Fl 0000000000 0000000110 13
0OO3t:203F2 0000000:'>::>::> JJ30JDDlOO 31
00040003FA 00000008JO uJOOOI0ba 132
0003A:D3AC 0000000000 "00JOO)1)0 H
0003FA03FA 0000000000 UOOOJI0160 til
0002EB02Ed OOOOOOOOJ::> ~)JOOO1015::> 06
0000680068 00000000)0 JOOOOO)HJ 3S
0000600060 00000000::>0 0000000 n::> J5
0000:)80008 0000000000 0000000190 05
OOOO:OOOCO OOOOOOOOJO ~JO:)J::>01~~ J,)
0000900090 OOOOaOJJJJ OJOOJJJlJJ J5
0000880088 0000000000 OOOO:>OOl~J J5
00008000BO 0000000000 DOOOal01Ml 83
OOOOBOOOBO 000000003) ::>JOJJOOB3 J5
0000)800013 00000000::» ()OOJOOO lJJ 3S
0000F800FB 0000000000 0000000190 0')
0000700070 00000000)0 aJJJOOOl~O )')
OOOODOOOD{j 0000000000 ,):)0:)000 no J5
000070U010 00000000)0 OOOOOOOl~O 35
0000600060 0000000000 ooooaOOl~O 05
0002:002CO OOOOOOOOJJ JOOaaOO190 ::>')
00004/i0048 OOOOOOOOClJ ooo::>ooono 05
00U1400140 OOOOOOOODO oooaOO01~O 04
0000580058 0000000000 000000OI~0 04
0000E800E8 0000000030 0000000190 04
0001200120 00000000::>0 JOOOooall:> )7
0001780178 0000000030 oOOOOOal~O 04
0001E801E8 0000000000 0000000190 04
OOOOFOOOFO 0000000003 )OOOOOOBO 34
0000880088 0000000000 OOO()ClOOl~a 34
0000980098 0000000000 0000000190 04
0000200020 0000000000 0000000190 04
0001&80168 0000000::>3) D:>O::>JOO1~0 34
0000100070 OOOOOOOOJC> ooooooono :>4
0000000000 000000000:) 0000000L90 04
0000700070 0000000000 JOOOOOOL90 04
0000800080 00000000:>:> OJOOD001bO 07
0000680068 0000000)00 ooooooono 34
0000300030 0000000000 JOOOOOO190 04
0000400040 0000000000 0000J001~0 04
0003000300 00000000:)0 )00:)000190 J~
OOOaJOOl~a ~5
OU02000200 OO(lUOOOO»
0002000200 0000000000 00000001~0 05
0003000300 0000000000 ::>000000190 J5
0003000300 0000000000 :J00OOO01~) 3S
0003000300 Ooooooooao 0000000190 05
OQOO180018 0000000000 0000000190 04
0002200220 0000000000 0)00010110 4b
0002A802AB 0000000000 OOOOJ 10 11J 46
PAvE OlJOH
SYSTE"1S
-
PAGE 0009
SUPP O~ T LJ TI LI Tl E S- - - I E H1I S T
""'0
0
-s
IGG0190C
I GCD 19K l\
IGG019KL
IGG019Kf
IGG019KI,
IGG0191<1
I GGO 19K
-0
I
"-J
0
~IGG0190P,
IGG0190C
I CGO 1 YOU
IGG0190tIGG0190(
IGG01c)OJ
I GGO 1901
IGG019010\
IGG01c)OP
IGG0190t-t
IGG01905
IGG0190'1
IGG0190"
IGG0190)(
IGG0191A
IGG0191H
IGG0111C
I GGo l!Jlll
[GG0191G
IGG019LJ
IGG0191l
I GGO 1911l
I GGO 19 11
IGG01<112
IGG0193l\
I GGO 19)C
IGG0193t:
IGG01'13Y
I GG02J 0 1
I GG020P 1
IGG020Pi:
IGG0200A
IGG020fH',
00340520
00310620
0032042D
00320620
00320ti20
00320A20
0()320(.ZO
003409iO
OU3201-2D
00321020
00321220
00321420
00350220
00350420
00350blO
00350b20
003'>0(20
00350A20
00 36D 720
00160020
00360320
00220320
00290320
00220520
00220120
00230320
00230':>20
00230720
00240320
00240':>20
00240720
002t}0':>20
00250320
00200320
002(0920
00290720
00170720
00170920
00170B20
00180320
00180720
00190320
00340720
00190'>20
00180520
002(0720
00~21b20
00 n0320
00350E20
00361120
00100520
000F0820
00100320
002'>0720
00260320
0034050000 OCOOOO:B7d 000098009L 00000000:):)
~JOOJ10110
003 i OB 0000 000000::A78 Oej04:: 80400 0000000:)00
JDOO:)10140
')000010140
00000101BO
;J300:110140
JDOOO10140
JOOJJ10140
UOOOJ10140
)OD3JI0140
:)J00.)1 0 14J
:)000J10140
DOOOOI0140
:)0000001400
JOOaJJ0140
OOOOJOO140
OOOOJaOL40
:1000000140
C)QOOJJO BJ
0000000120
0)OJOOO120
JDOOOOO 130
0000)20141
0000010141
OJOOOOOLBO
0000000160
(000)10130
0000020140
0000000 ltW
00320400()0
0032060000
0032080000
003201\0000
00320: 0080
0034090000
00320EOOOO
0032100000
003i120000
0032140000
003,)020CUO
00 3'j04 oore
0035060000
OOV'>O'lOOOO
00 3'>UC 0000
()03')01\00OO
00360~00OO
00360F 0000
0036050000
0022030000
0029030000
002il)')COOO
0023010000
0023030000
0023050000
0024010000
0024030000
0024050000
0025010000
00290':>0000
0025030000
002[)030000
0020010000
002AOI0000
0017070000
0017090000
0018010000
0018030000
0019010000
001"1030000
0034070000
0019050000
0018050000
002e 070000
003.3010000
0033030000
003':>OEOOQO
0037030000
0010050000
0010010000
0010030000
0026010000
0026030000
OOOOOOCB 78 0()00~800F8
000000:378 00010!:30108
000OOO::~18 OOOOAtWOA8
OOOOOO::B7tl 0OO08800bH
000000:378 OnOOAooOAO
000000CK78 0002400240
OOOOOO::BfO OOOOFOOOFO
OOOOOOCR78 000078007/j
OOOOOOCB 78 00OOD80008
OOOOOOC~78 0000780078
000000:'B18 OOOO!3000HO
00000(lCB78 0000B800B8
0000OOCB7tJ OOOOBOOOBO
000000::~78 0000::800C8
OOOOOOCB78 0001BB01B8
OOOOuOCB78 0000)80008
000000C270 0004580400
0000000370 000108010a
000000C370 0000EBCOE8
000000C378 0004000400
000000(:378 0004000400
000000:'378 0004000400
00000UC378 0004000400
000000::378 0004000400
000000:'378 0004000400
000000(:318 0004000400
00000OC378 0004000400
uOOOOOC378 0004000400
000000C37H 0004000400
000000C378 0004000400
000000C378 0004000400
000000C378 0004000400
000000C378 0004000400
000000C37d 0004000400
000000C378 000400040Ci
ooooooe 378 0004000400
000000:318 0004000400
000000C318 0004000400
000000C378 0004000400
0000001:378 0004000400
000000::'318 0004000400
000000C378 0004000400
000000C378 0004000400
000000:378 0004000400
00OOOO:~7d 00040004000
00000OC~7!:3 0004000400
000000CB18 00040004000
000000C370 0004000400
000000:378 0004000400
000000C378 00040004000
000000C378 0004000400
000000:'378 0004000400
000000::378 0004000400
OOUJODO]:);)
0000000000
0000000000
OOOOOOOClOQ
0000000000
0000000000
0000000000
0000:)3JOJO
0000000000
0000000000
000000:))00
00D8000JOO
0000000000
0000000000
OOOOOOJrlOJ
OOOOOOOOJJ
OOOOOJOOOO
OOOOOO)OJJ
0000000000
00000000:>0
0000000000
0000000000
OOOOOOOJOO
0000000000
0000000000
0000000000
OOOOOOOQJO
OOoaOOOQOO
0000000000
0000000)0:>
OOOOO:>JJJJ
0000000000
0000000000
OOOOOOOJOJ
000000030)
0000000000
00000000)0
OOOOOOOQ::>O
OOOOOOOJDJ
0000000000
OOOOOOOOJO
OOOOOOO')QO
0000000)00
0000000000
0000000000
0000000000
0000000000
OOOOOOO()OO
0000000000
0000000030
0000000030
0000000000
00000000)0
46
13
93
31
93
'J3
93
92
92
i2
40
92
'12
=J2
lj2
92
'12.
38
37
37
32
10
10
29
24
30
9')
2t}
~000)2014J
J5
0000030160
0000010140
JJODOIOlftO
DJOJJ2014J
0000:>:10140
0000000140
J3DJ)001BJ
ODODJ10133
0000010130
:'>0000001'-10
OOODOOOL90
::J000OO01JD
0000010130
68
95
~5
15
95
J5
29
20
20
J':>
[)'j
J'j
20
JJOIJ~)10110 46
000JOO01:)0 05
DOODOOO DO 2.b
0000000190 05
OOOOJ1017Q 44
J)OJJ1014J -} 1
00000J0140 91
0000000120 37
JQ3::lJ101ftO 39
0000)10143 89
000:)010140 8<.J
0000010140 ~3
~OO3J201!i() 31
SVSTE"1S SUP P ~~ T
-a
-
UTILITIES---IE~lIST
PAGE 0010
0
""'l
IGG0200l
IGGO?OO!=
I GG0200,;
IGG02011<
IGG0203A
I GG0213V'
I GG02 30e
IGG023UI1
I GG0290 1
IGGD/CJFb
IGG02CJOL
I GGO 300 L
IGG032AL
IGG032Al
I GG032" i
IGG03lnl
IGG03ZDL
I GG(HZ fo
IGGO~2S1
»
-.0
I
'-I
I GG0320 L
IGG03901
I GGO 39 III
I GGO 390 L
IGG0390l
I GG05'J0 A
I GGO 5 50 I',
IGG05'>OC
IGG05'J01)
IGGUS50tIGG0550t
I GG0550!;
IGGO'>'>Otl
I GG05'>0 I
IGGOS,){)J
I GGO'> '>0 I<..
IGGO'>SOL
IGG05S0M
IGG05':>O\l
IGG0550~
IGGO':>SOIi
I GGo 550X
IGGO'>SO,{
IGGO'>50l
IGG055LA
NSL()HORI
00260'>20
00260720
00270320
00190720
00330520
00370'>20
00280520
00280720
00000720
000[lO'>20
00000320
00UE0520
000AO~20
000A0720
00080920
00120720
000COS20
000(0320
000(0720
00050320
00130520
000f0620
OOOF0220
000F0420
00LB0720
001B0920
00lC0320
001(0520
001C0720
00100320
00100520
00100 f20
001E0320
001E0520
00LE072D
00lF0320
00lF0520
00iF072D
00200320
00200520
00200720
00210520
00210320
001A0320
00380b2B
00260'>0000
0027010lJOO
002-'030000
001A01OOOO
00330'>0000
0037070000
002HOSOOOO
0029010000
000EOI0000
OOODOSOOOO
000D030000
OOOt-OSOOOO
000B050000
000[<010000
OOOC 010000
0013010000
000e050000
OOOC 03 0000
oooe 070000
OOOH 030000
00130S0000
000F-060000
OOOF 02 0000
000F040000
001BOI0000
001(010000
001(030000
00 1C 050000
0010010000
OOlD030000
00W050000
OOLEOlOOOO
00 iF 0300UO
001E050000
OOlf-OlOOOO
001F030000
00 if 050000
0020010000
0020030000
00200'>0000
00210100()0
0021050000
0021030000
001A030000
00380DOOOO
OOOOOOC31d 0004000400 0000000000 0008::>1014:)
000000:'37d 0004000400 0000000000 U~DO::>10121
ooooooe 318 0004000400 OOQnOooa::>D OJO'JJlJI4J
000000~318 0004000400 00000:'>0::>::>0 OOOO::>lJl::>::>
000000:378 0004000400 0000000000 OJOO:J10150
000000::370 0004000400 0000000000 OJD»)OOl2J
000000:::378 0004000400 0000000»)0 1rJOJ)1rJ 14:)
0000OOC318 0004000400 0000000000 (J 0 0 J J 1 J 1 2 1
000000C318 0003Eti03Eti OOUOOOOOOO OOO(JOIOL40
000000C378 00U33:033C 0000000000 )::>OQ)QOL4)
00000U:378 00()3B41)3B4 0000000J30 JOOO01::>15;)
000000(378 0001A801A8 OOOOJOOOOO 0000)0014[)
000000:,78 0001AE018E OOOOOOOOJO )30)3101')0
OUOOoO(378 00039C039( OOOOOOOOJJ :1Jr):)JI0140
OOOOOOC 378 00032:032C 0000000000 C)00O)13113
ooooooe 318 00U382038? 0000000000 0000al014~
000000:378 OOOOE iiOOE 8 00000000:):) 8000:)10140
000000: 3 18 0001:001(0 00000000:)0 JOOD01014,)
ooooooe 378 0003)00300 OOOOOOOJOO 0000010143
OOOOOOC 378 00034ti034d 0000000000 ')000:)10150
000000C378 0003080308 0000000000 JOO)~10140
UOOOOGC""3 78 000l1C017C 00000000:)0 :)30:)01014)
UOOOOO(378 000390038C 0000000100 0000010140
000000C378 0003400330 0000000000 ()000~10140
ooooooe 318 0004000400 0000000000 DOO(J01014:)
000000(378 0004000400 OOOOOJO:»O 'J;)00)1)14)
0000UOC378 0004000400 0000000030 0000)10143
ooooooe 378 0004000400 0000000000 0000010140
000000(3/8 0004000400 OOOOJOO::>OO OJOO)1014)
000000(378 0004000400 OOOOOOo»J OJO::l)2313)
ooooooe 378 0004000400 0000000000 0000010140
0000OO~378 0004000400 0000000000 0000:)10140
OOOOOOC378 0004000400 OOOOOOOJ'JO JJOOO10140
ooooooe ~ 78 0004000400 OOOOOOODJO ()00::l)1014J
OOOOOO( 378 0004000400 0000000000 ()000J10110
000000::378 0004000400 000000000;) ))0;))10121
000000e318 0004000400 OOOOOOOOJO JOOOJI0140
000000C37B 0004000400 000000030J DOOO)lJ110
000000e318 01)04000400 0000000000 0000:110121
00000O:31ti 0004000400 0000000000 0)00:)10121
OOOOOOC 37 ti 0004000400 OOOOOOOc)JD JOOc)c)1012L
000000(378 0004000400 0000000000 00000 10 13~
00000nC378 0004000400 0000000000 OOOOJ10121
000000::378 0004000400 0000000000 ,):)O')() 10140
OOOOOOO)FO 0001610161 00000000:10 JOOJ
93
)9
~3
61
::>6
31
13
::>1
8CJ
23
a')
23
J6
1'>
44
90
10
JO
JO
'J6
'JO
=JO
90
90
89
d9
89
89
39
30
8'1
SCJ
B9
14
44
44
=14
44
44
44
44
61
44
'J4
ItF2851
IEF2B51
ItFlB51
II::F28~I
IEF2B51
IEF2B51
SvS 1. S V CL I A
KE P T
VOL SER ~OS= 111111.
OOCOOOODrDDDODODOf>ODDDDlJDDDDDODlJODDDJC!)f)DDDD KEPT
Val SER ~US= 222222.
SVSOUT
SVSOUT
VOL 5ER ~()S=
IICCCC
JCR
O,EHCNSl,MSGLEVEL=l
IIGENEl
EX~C
PGM=IFUASM,PARM=(OECK,RENT)
IISVSlI8 CC
DS~AME=SVSl.MACLIA,DISP=OlD
IISVSUTl
co
UNIT=2311,SPACE=(17CC,(400,50»
IISVSUT2
CD
UNIT=2311,SPACE=(17CC,(40Q,50»
IISVSUT3
CC
UNIT=23l1,SPACF=( l7CC,(400,5C»
IISVSPRINT
CC SVSQUT=A
IISVSPU~CH CO DSNAME:=f.EBC,UNIT=2311,SPACF=(80, (200,5C»
IISVSIf\
CD
•
IEF23bl Allec. FOR roce
GENEl
lEF2371 SVSLIB
ON 190
I E F 237 I S V S UTI
O~ 19 1
IEF2371 SVSUT2
(J~ 19L
IEF2371 SYSUT3
UN 191
IEF2371 SYSPUNC .... I)~ 191
IEF2371 SVSIN
UN OOC
,01
SP=(f\E~,PASS)
Assemble NSLOHDRI and Link Edit into SYS1.SVCLlB(Used IEFUCBOB and IECDSECT Macro's in this run.)
»
-0
I
"
W
..
-
PAGE
EXTERNAL SYMBOL DICTIONARY
"1J
..,a
Sy~eOl
NSLCHORI
T Y PEl CAe Of{
SD
lEN GT ~
L0
1
GC.05 10/01166
10
01 UOOOOO CC0161
•
~Y
-0
o
"""I
LOC
ROUTINt AT OPEN TO
CeJECT CODf-
~ANDLE
ACCR1 AODR2
000000
PAGE
INPUT HDR
STMT
2 NSLOHO~I
3 •••
START 0
NCTE THAT THE GET",AIN MACRC REQUIRES BASE REGISTER
ADDRESSIP-ILITY FOR ITS GENERATION -
4 •••
5 •••
f:;
000000 05FO
000002
000002
000006
OOOOOA
oooooc
•••
4100 OOFO
4510 Fooa
OAO/\
902E 1000
COCFC
cceCA
OCCCC
000010 0530
000012
000012 1841
000000
000000
000000
000000
000014 4170 0000
cocce
•••
10
11 +
12+
13+
14
15
16 •••
17 •••
18 •••
19 •••
20 •••
21 •••
22 •••
23 •••
24
25
26 •••
27 •••
28 •••
29 •••
30 •••
GET",AIN R,LV=240
LA
0,24010,0) LOAD LENGT~
BAL
1,.+4 I~DICATE GET~AIN
SVC
10 ISSLE GETMAIN SVC
ST~
2,14,0IL)
DROP 15
31
LR
USING
USING
USING
USING
32
33
34
35
36
37
38
39
40
41
42
43
'DYNA~IC' IS THE NAME WE'VF GIVEN TO THE GETMAIN AREA
wE'VE DESCRIBED IN THE DSECT IN ThiS PROGRAM
BALR 3,0
USING .,3
REGISTER 1 "'UST BE DROPPEC AS T~E BASE REGISTER OF THE
AREA BECAUSE wE ARE ABOUT TO 'EXCP' AND IT USES
REGISTER 1
DY~AMIC
•••
•••
•••
•••
•••
•••
LA
•••
4180
SRA7
58B8
58CO
0024
5000
6000
B15C
eCC24
COOOC
cocec
C015C
45
46
47
48
49
50
51
52
•••
•••
•••
•••
•••
•••
•••
~3
DLOG IC
LA
54
55
56 •••
57 •
STORE REGISTERS
REGISTERS 2 Te 14 ARE SAVEC IN AN AREA Of CORE ACQUIRED
BY WAY CF A GfTMAIN ~ACRC
BASE REGISTER 1 HAS THE
ADDRESS CF THE AREA ACQUIRED
44 •••
000018
OOOOlC
000020
000024
PROVIDE ADURESSABILITY
15,0
US I NG .,15
~ALR
7
8
9
F24JUNE66 10/01166
SO UK CE S TA TF ,.. E NT
L
L
l
4,1
RELEASE
FOR MACRO USE
DYNAMIC,4
IHADCB,10
GRIO=ADDR OF DCB
SYMhACBA,11
GRll=ADDR OF WACBA
SYMUCB,12
GR12=ACDR OF UCB
I~ITIAliZE REGISTER 7 TO ZERO - THIS REGISTER IS USED
TC PASS CVER 4 BYTE ADDRESSES - THESE ADDRESSES ARE IN A
LI ST OF ADDRESSES IWHICH ARE POINTERS TO ALL THE DCB'S
IN THE PRCBLEM PROGRAM AREA) - THERE IS UNE ADDRESS FOR
EACH DCB ENTRY IN THE OPEN OR CLOSE - WE GET THE ADDR OF
THE BEGI~~ING OF THIS LIST IN REG 5 DURING OPEN
7,0
XR1 FOR DCB'S
INITIALIZE REGISTER 8 TO 36 - THIS REG IS USED TO PASS
OVER 8 BYTES AT A TIME - AFTER THE 1ST 32 BYTES EACH 8
AYTES CO~TAINS (IN THE LOW ORDER BYTES) THE ADDRFSS
OF THE '~CRK AND CONT~OL BLOCK AREAl - O~~ ~wuRK AND
CCNTRCL BLCCK AREA' IS BUILT FOR EACH Deb iN fHE OPEN OR
CLeSE ~ACRC - wE GET THE STARTING AODR OF THE TABLE THAT
CCNTAINS THE AODR FOR EACH 'WORK AND CONTROL BLOCK ARfA'
IN REG 6 DURING OPEN
8,36
10,0(7,5)
11,018,6)
12,DXDEBUCB
IS THIS
A~
XR8 FOR WACBA'S
ADDR OF DCB IN GRlO
ADDR OF WACBA'IN GRll
ADDROFUCB IN GR12
'CUTPUT' DeB
YES IGNDRES THIS DCB
~y
LaC
ROUTINE AT OPEN TO HANDLE INPUT HDR
OeJECT COOf
000028 9180 A030
00002C 4110 303E
ACDR 1 ADOR 2
0003C
COO'>C
STM T
SO URCE STATE p.tE NT
58 •
59 •••
60
61
ll2 •••
63 •
64 •
65 •••
000030 9LI0 A030
000034 4110 303E
C0030
000038 9180 C012
00003C 4180 303E
C0012
000040 9180 C023
000044 4180 303E
00023
000048 9504 BOA6
00004C 4180 3080
OOOAll
PAGE
A~D
TM
BO
2
F24JUNE66 10/01166
CHECKS THE NEXT OCB
DCBCF LGS, X' 80'
MOUNT
BIT 0
IS THIS DCB ALREADY OPENED
CHECKS THE NEXT DCB
o
IF INPUT
YES IGNORES THIS DCB
A~D
TM
DCBOfLGS, X' 10'
BIT 3
1 IF OPEN
61
BO
MOUNT
68 •••
69 •
IS THIS DCB FOR OTHER THAN TAPE
YES IGNORES THIS DCB
AND CHECKS THE NEXT DCB.
70 •
11 •••
TM
72
UCB TVP+2 , X' 80'
TEST UCB3 TAPE FOR
13
BZ
MOUtliT
14 •••
TM
15
SRTED MC T, X' 80 '
IS MOUNT MSG BIT ON
76
BZ
MOUNT
77 •••
18 •
IS NSL BIT IN JFCB ON
YES GOES TO RO LABEL
19 •
NO IGNORES THIS DCB
80 •
AND CHECKS THE NEXT DCB
81 •••
CLI
82
CHECK NSL BIT IN JFCB
JF CBLTYP, x ' 04 '
BE
BLOGIC
83
GOES TO • MY , ROUTINE
84 •••
8S ••• SET UP THE MOUNT ~SG TO BE USED IN IGGO 190B - SEE WTO MACRO] !JFC€ S J I} K. f
hi
86 •••
:;>
I 2. a "cl,
DXCCW4(l8) ,MSSG
MOVE IN SKELETON HSG
/lELE/JS£
}
'
87 MOUNT
MVC
MVC
88
DXCCW5+6 (3) ,UCBNAME
MOVE UN IT NAME TO MSG
3.oF 0IS.
89
MVC
DXCCW6+2(6) ,JFCBVOlS
MOVE VOL SER NO FROM JFCB
90 •••
9L ~ •••••
TEST TO SEE IF THERE ARE MORE DCB'S OR If WE'RE FINISHED
92 •••
LTR
LO,10
93 ALOGIC
FIRST BYTE IN CURRENT DCB
BM
94
ELOGIC
95 •••
96 •
INCREMENT GEN PURPOSE REG 7 AND 8 BY 4 AND 8 TO GET TO
97 •
NEXT 'DCB' I~ THE LIST OF DCB'S AND THE
98 •
NEXT 'WORK AND CONTROL BLOCK AREA' RESPECTIVELY
99 •••
LA
1,4(0,7)
INCREMENT XR1 BY 4
ICC
LA
8,8(0.8)
INCREMENT XR8 BY 8
LO 1
B
DLOGIC
GO TO CHECK NEXT DCB
102
le3 MOONAME DC
CL8'IGG0190B'
104 \oITO
\01 TO
'HDR eN XXX CHECKS' ,MF=L
lC5+WTO
OS
OF
106+
DC
AL2(IHB0002-.) MESSAGE LENGTH
107+
DC
AL2 (0)
108+
DC
C'HDR C~ XXX CHECKS' MESSAGE
•
109+IHB0002 EQU
110 •••
MY ROUTI tilE
III •
66
CC05C
CC05C
ce050
00C92
r
000050 e211 B188 3130 00188 C0142
000056 0202 B196 COOO OOI~ll CCCOD
00005C 0205 B19A BODA 0019A OOODA
000062 12AA
000064 4140 3112
000068
00006C
000070
000074
4110 1004
4180 8008
47FO 300A
C9C7C7FOFlf9FOC2
00001C
00001C 00L5
00007E 0000
000080 C8C40940060540E7
000091
C0124
ceC04
eccca
0001C
112·
113·
WE SET THE HIGH ORDER BIT IN 'STREDMCT' IN THE DCB TO ZERO
MY ROUTINE AT OPEN TO HANDLE INPUT HDR
co
..,
LOC
0 eJ ECT CODE
ACDR 1 ADOR2
STM T
SOURCE STATEMENT
114 •
llS •
116 •
111 •••
000091 00
000092 947F C023
000096 50BO
00009~ 9202
00009E 9220
0000A2 C201
0000A8 CI03
BI10
OOllC
AII0
00110
B114
00114
B176 3146 OC116 0015e
B114 Hl14 00114 C0114
OOOOAE 4110 B118
000082 OAOO
C0118
0000B4
000088
0000 BC
OOOOBE
0000C2
4110
4100
OAO 1
9S1F
4780
00114
COC01
0000C6
0000C8
OOOOCC
OOOOCD
000000
000004
000006
OOOODC
OOOOEO
0000E6
OOOOEA
OOOOFO
0000F6
0100
41FO 30BE
80
000100
5810 30BA
OAOD
OS04 BOOO
4770 310A
OS09 B014
4110 310A
0214 4034
D202 403F
4110 4034
B114
30C4
00 114
COCD6
OOODC
COOCC
J14A 00000 COlSC
COllC
8064 CC014 C0064
OOllC
l06A 00034 CCOIC
COOD 0003F CCOOD
CCC34
OOOOFA OA23
OOOOFC C201 B176 314B 00176 CC15A
000102 C703 B114 Bl14 00114 CCl14
000108 4110 B llB
00010C OAOO
OOlU!
00010E
000112
000116
000118
00114
COCOl
4110 8114
4100 0001
OAO 1
47FO 3050
OOOllC 96dO C023
OOOllC
CC062
00023
3
f24JUNE66 10/07/66
IF WE OETER~INE VIA 'OS NAME' AND 'IHOR' THAT WE'VE WRONG
TAPE ~OU~TED WE WILL PUT A ONE IN THIS 81T WHICH INDICATES
TO THE CC~TRCL PROGRAM THAT A MOUNT MSG IS IN ORDER
°
CC023
B1l4
0001
PAGE
118 BLOGIC
NI
SRTED~CT,X'7f'
TURN BIT
TO a
119 •••
12C •
BUI LD THE CC W
121 •
NOTE THAT THIS IS ,..CT A GENERALIZED ROUTINE TO BUILD CCWS
122 •••
123
ST
11,DXCCkl
READ ACCH. TO CCW
124
MVI
READ
DXC C \II 1 , X' 02 •
MVI
125
FLAGS
DXCC\IIl+4, X' 20'
MVC
126
DXCCWl+6(2),=H'80'
COUNT
121
XC
DXECB ,DXECB
RES ET ECB
128
EXCP OXIOB
129+
LA
1,OXIOR LCAD PARAMETER REG 1
130+
SVC
o ISSUE SVC fOR EXCP
131
WAI T ECB=DXECB
WAIT fOR COMPLETION
132+
LA
1,OXECB LCAD PARAMETER REG 1
133+
LA
0,1 (0,0) CCUNT OMITTED, 1 USED
134+
SVC
1 LINK TO WAIT ROUTINE
135
CLI
DXECB,X'7F'
ERROR C~ECK
136
READ OK
BE
CHECK
131
ABEND 256,D~"'P
ERROR ON READ
138+
CNOP 0,4
139+
.+8 BRA~CH AROUND CONSTANT
B
140+
DC
All (128) DUMP/STEP COCE
141+
DC
AL3(256) CCMPLETION CODE
142+
1,.-4 LeAD CODES INTO REG
L
143+
SVC
13 LINK TC ABEND ROUTINE
144 CHECK
CLC
OXLBL(5),=CL5'lHOR •
145
BNE
ERRCRI
146
CLC
OXLBL+20CI0),JFCBDSNM
COMPARE TO DSNAME
141
BNE
ERROR2
148
MVC
MSG ,\liTe
MSG+II(3),UCBNAME
149
MVC
1,MSG
ISO
LA
\liTO
Mf= (E , C1 ) •
151
EXECUTABLE INSTRUCTIONS
152+
35 ISSUE SVC
SVC
153
MVC
OXCCWl+6C2. ,=H'l'
COUNT
XC
OXEC8,DXECB
lS4
RESET ECB
155
EXCP OXIOB
TO POSITION TAPE PAST TAPE MARK
156+
LA
1,DXIOB LCAD PARAMETER REG 1
151+
SVC
a ISSUE SVC fOR EXCP
\IIAIT ECB=DXECB
158
WAIT fOR COMPLETION
159+
LA
l,DXECB LeAD PARAMETER REG 1
160+
LA
O,lCO,O) CCUNT OMITTED,l USED
161+
SVC
1 LINK TC WAIT ROUTINE
162
B
AlOGIC
READ OK
163 •
164 •••
165 •••
SET THE '~OUNTING MESSAGE' BIT ON
166 •••
167 ERROR2
01
TURN BIT 0 TO O~E
SR TE D~C T, X' 8 a •
EQU
168 ERROR 1
ERROR2
MY ROUTINE AT OPEN TO HANDLE INPUT HDR
..,"
Q
lOC
CeJECT cocr
ACCRl ACOR2
000120 47FO 303E
000124
000128
00012C
00012E
000132
41 FO
4180
1814
98CE
982A
A1C8
3062
CO 1C 8
CCC 74
4028
4000
cccce
'"
I
00028
000136 4100 OOFO
00013A OAOA
OOOFC
00013C 50BO FOOO
000140 OA07
OCCCC
000142 00180000
000146 C9C5C3FIFO~lC14C
»
ccese
000000
000000
000034
'-I
00
SHU
PAGE
F24JUNE66 10107/66
SOURCE STATEMENT
16«1
B
MOUNT
170 •
171 •••
112 •••
RETURN
173 •••
114 ElOG I C
LA
15,DXCCW12
PTR TO SUPV PARAM LIST
lA
11,MOD~A~E
PTR TO XCTl MODNAME
115
176
lR
1,4
AREA TO BE FREED
12,14,REGSTOR+40
RESTORE REGISTERS
lM
117
178
2,10,REGSTCR
RESTORE REGISTERS
lM
179
FREE~AIN R,LV=240,A=(lJ
USES REGISTERS 0 AND
180+
lAO,24 0 ( 0 , 0 ) lOA D lEN GT H
181+
SVC
10 ISSUE FREEMAIN SVC
XCTL EPLOC=(ll) ,SF=(E,(15))
USES REGISTERS SPECIFIED
182
183+
ST
11,0(0,15) STORE IN SUP.PARAMlIST
184+
SVC
7 ISSUE XCTL SVC
185 •••
186 ••• CO~STANTS - - MSG TC BE MOVED TO CXCCW4 AND THEN USED BY IGG0190B
181 •••
188 MSSG
X'00180000'
DC
189
DC
C'IECI01A M YYY,'
190 •••
191 DYNAMIC DSECT
192 REGSTOR OS
13F
193 M SG
DS
CL2l
194 •••
195 •••
196 •••
191
DCBD DSORG=PS,DEVD=TA
19«1+.
2CO+·
000000
202+IHADCB
DCB SYMBOLIC DEFINITION FOR
PHYSICAL SEQUENTIAL
DSECT
DEVICE INTERFACES
204+·
2C1+.
000004
000004
000008
000008
OOOOOC
000010
000011
000012
000010
000010
000011
0000 11
900014
~AGt-;ETIC
209+
210+DCBNERRS
211+DCBNOI SE
212+DCBLERRS
213+DCBBLKC T
214+DCBTRTCH
215+
2l6+DCBOEN
211+.
ORG
OS
OS
OS
OS
OS
OS
OS
219+
220+DCBKEYLE
22l+DCBDEVT
222+DCBREL
22 3+DCBB UF ~O
ORG
DS
DS
TAPE
IHADCB+4
F
OBll
F
F
Bll
Bll
Bli
ACCESS METHOD COMMON INTERFACE
OS
OS
4
I HADCB+ 16
Bll
OBll
AL3
OBll
MY ROUT [Nt: AT OPEN TO HANDLE INPUT HOR
-
PAGE
5
""'0
0
..,
lOC
000014
000018
OOOOlA
OOOOIC
CeJECT COCt:
ACCR 1 AOOR2
S TM T
SOURCE STATE fc'ENT
224+0CBBUFCB
225+0CBBUFl
226+0CBOSURG
221+0CBIOB40
OS
OS
OS
OS
A
H
Bl2
A
229+000020
000020
000020
000024
000024
231+0CBBFTEK
232+0CBBFALN
233+0CBEOOAO
234+0CBRECFM
235+0CBE Xl S T
FCUNCATION
OS
OS
OS
OS
OS
»
240+
241+0CBOONAM
242+0CBOFlGS
243+0CBIFLG
244+0CRMACR
FCUNOAT I ON BEFORE OPEN
ORG
OS
OS
OS
OS
IHAOCB+40
Cla
Rll
Bli
Bl2
246+.
-.0
EXTE~SION
OBLI
OBll
A
OBll
A
238+·
000028
000028
000030
000031
000032
F24JUNE66 10/01166
FCUNOAT I ON AFT ER OPEN
I
""-J
-.0
000028
000028
00002A
00002C
00002C
000030
000030
000030
000030
248+
249+0CBTIUT
250+0CBMACRF
25l+0CBlflGS
252+0CROEBAO
253+0CBREAO
254+0C BhR 1 TE
255+0CBGE T
256+0CBPUT
ORG
OS
OS
OS
OS
OS
OS
OS
OS
IHAOCB+40
Bl2
Bl2
OBLI
A
04
OA
OA
OA
258+000034
000034
000034
000034
000034
000038
000038
000038
00003C
00003C
00003D
00003E
000040
000040
000041
000042
000043
000044
260+
261+0CBOPTCO
262+0CBGERR
263+0CBPERR
264+0CBCHEC K
265+
266+0CBIOBl
267+0CBSYNAO
268+
269+0CBCINOl
210+0CBClN02
271+0CBBlKSI
212+
27 3+0CB WCPO
ORG
OS
OS
OS
OS
ORG
OS
OS
ORG
OS
OS
OS
ORG
OS
214+0CB~CPl
OS
275+0CBOFFSR OS
216+0C BOfF S ~ OS
277+f)CBIOBA OS
279+.
CSAM-BSAM-flPAM COMMON lNT ERfACE
IHAOCB+52
OBll
04
OA
A
IHAOCB+56
OBll
A
IHAOCR+60
Bll
Bli
H
IHAOCB+64
Bll
Bli
Rll
Bli
A
BSAM-BPAM INTERfACE
MY ROUTINE AT OPEN TO HANDLE INPUT HDR.
lOC
000048
000048
00004C
000050
000052
000054
000054
000054
000054
CeJECT CODE:
ACOR 1 ADDR 2
STMT
PAGE
SOuRCE STATE potENT
281+0CBNCP
282+0CBEOBR
283+0CBEOB"
284+0C80 IRC T
285+0CBlRECl
286+
281+0CBC"ITRl
288+0CBNOTE
289+0CBPOINT
OS
OS
OS
OS
OS
ORG
OS
OS
OS
F24JUNE66 10/07/66
OBll
A
A
H
H
IHADCB+84
OA.
OA
A
C:SAM I NT ERFACE
291+"
»
000048
000048
000048
00004C
00004C
000050
000054
000054
00005A
00005A
00005C
-..0
I
00
o
000000
293+
294+0CBlCC \01
295+0CBEOBAD
296+0CBCCC W
291+0CBRECAO
298+0C8QS .. S
299+
300+0CBEROPT
301+
302+0CBPREC l
303+0CBEOB
305
306
301
308
309
ORG
OS
OS
OS
OS
OS
ORG
OS
ORG
OS
OS
IHA.DCB+12
OA
A
OA
A
AL2
IHAOCB+84
OBll
IHAOCB+90
AL2
A
.... ..
.... ..
.... ..
SYMWACRA OSECT
IECOSECT
311+"
312+"
313 ...
THIS MACRO IS USED TO OEFINE THE WORK AREA.
FOR All MODULES OF OPEN,CLOSE,TClOSE
AND ENO OF VOLUME FOR O/S 360
315+"
316+"
THIS MACRO DEFINES A WORK AREA WITH THE
FOLLOWING FO~MAT
318+"
319+"
320+"
321+"
322+.
323+·
324+"
325+·
326+"
321+.
328+.
329+"
330+.
331+"
332+"
333+·
334+"
335+*
336+*
6
I.LABElS AND OSCB
LABELS
VOLUME lABEL
FILE lABEL 1
FILE LABEL 2
osce
FORMAT 1
FORMAT 3 KEv
FORMAT 3 OAT A
CORE ADDRESS OF NEXT OSCB
MES S AGE AREA
100 BYTES
2.JFCB
116 BYTE S
3.ECB
4 BYTE S
4.IOB
40 BYTES
5.0EB
MY ROUTINt AT OPEN TO HANDLE INPUT HOK
'"'0
.,C
LOC
CeJECT CCOt:'
ACCR 1 ADOR2
STMT
SOURCE
PAGE
F24JUNf66 10107/66
STATE~ENT
331+*
338+*
339+*
340+*
341+*
44 BYTE S
b.OCA
4 BY TE S
1.CClt.! S
96 BYTE S
TOTAL *** 464 BY TE S
345+* ***
34b+* ***
341+* ***
348+* ***
350+*
»
--0
I
co
000000
000000
000003
000004
OOOOOA
00000 e
oooooe
000010
000015
OOOOlF
000029
000033
352+DXlBl
353+VOLLABI
354+ VOLNO
3SS+VOLSERNO
356+VOl SEC
357+
358+VOLVTOC
359+
360+
361+
362+VOLOWNER
363+
VCLU"E LABEL
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
365+*
000000
000000
000003
000004
000015
000018
00001F
000023
000027
000029
00002F
000035 Fa
00003b
00003C
000049
000049
00004A
361+
368+FLIlABI
369+FLINO
31C+FllIO
311 +F LIF I l SR
312+FLlVOLSQ
373+FLIFILSQ
314+FlIGNO
3 75+F Ll VNG
316+FLICREOT
317+FlIE XPOT
318+FLIF SEC
319+FllBLKC T
38C+FLl SYSCD
381+FlIRES
382+
383+FLIRESl
385+*
000004
000004
OOOOO~
00000 A
OOOOOF
OCl80
CL3 LABEL IDENTIFIER
CLl VCLU"E LABEL NUfo"BER
Clb
Cll
OCll a RE SE RVE 0
Cl5
ClS
CllO RESERVED
CllO RESERVED
CllO CW,",ER NAME AND ADDRESS CODE
Cl29 RESERVED
FILE LABEL
ORG
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
DC
OS
OS
OS
OS
OS
387+
ORG
388+Fl2RECF M OS
389+FL2BLKL OS
39C+FL2LRECL OS
391+FL2DEN
OS
1
OXLBL
Cl3 LABEL IDENTIFIER
CLl FILE lABEL NUMBER
Cll1 FILE IDENTIFIER
CLb FILE SERIAL NUMRER
Cl4 VCLUfo"E SECUENCE NUMBER
Cl4 FILE SECUENCE NUM8ER
Cl4 GENERATION NUMBER
Cl2 VERSIC,", NUMBER OF GENERATION
CL6 CREATICN DATE
Clb EXPIRATION DATE
C·O· FILE SECURITY INDICATOR
Clb BLCCK CCUNT
Cll3 SYSTE~ CCDE
OCl1 RESERVED FOR FUTURE USE
Cll
CLb
FILE LABEL 2
FLlID
Cll RECCRO FORMAT
CL5 BLOCK LENGTH
CL5 BlOCKI~G FACTOR/RECORD l ENGT H
CLl DEI\SITY
~Y
-
PAGE
ROUTINF AT OPEN TO HANDLE INPUT HDR
8
""0
0
-.os
lOC
OBJECT CODE
000010
000011
000011
000019 61
OOOOlA
000022
000024
000025
ACCR 1 ADDR 2
S TM T
392+Fl2FIlP
393+Fl2JSID
394+Fl2JOBD
395+Fl2JSSP
396+Fl2STEPD
397+Fl2TR TCH
398+Fl2CNTRl
399+Fl2RE S
OS
OS
DS
DC
OS
OS
OS
OS
CLl FILE P(SITION
OCl11 JCB/STfP IDENTIFICATION
CL8 JCB IDENTIFICATION
C' " SLASH
Cl8 STEP IDENTIFICATION
Cl2 TAPE RECORDING TECHNIQUE
CLl CARRAIGE CCNTROl CHARACTER
Cl43 RESERVED FOR FUTURE USE
DATA SET CONTROL HOCK
4Cl+·
l>
-0
I
00
'"
000000
000000
000000 Fl
000001
000007
000009
OOOOOC
OOOOOF
000010
000011
000012
OOOOlF
000026
00002B
000029
0OO02A
00002C
00002E
00002F
000031
000032
000036
000038
000030
00003E
00003F
000043
000047
000051
000058
000060
000064
403+
404+0 XD SCB
405+DSCFMTID
406+0 SCF I l SR
401+DSCVOlSR
408+0 SCCREDT
409+DSCEXPDT
410+0 SCNOE XT
411+DSCBlOBl
412+
413+0SCSYSCD
414+
415+0SCFIl TY
416+DSCRECFM
417+DSCOPTCo
418+0 SCBlKl
4l9+oSClRECL
420+0 SCKE YL
421+0 SCRKP
422+0 SCO SI NO
423+oSCSCALO
424+0 SCL STAR
425+0 SC TRBAL
426+0 SCE XTYP
427+oSCEXTSQ
428+DSCLO"'lM
429+0 SC lJPPLM
430+0 SCE XTl
431+0SCEXT2
432+0 SCNE XT
433+DSCCORE
434+0 SCBENo
ORG
OS
DC
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
OS
EQU
438+
43q+D XO SCB 3 K
440+oSCBF3C
441 +0 SCBE XSK
442+0 SCRE XTV
443+0 SCBE XSQ
444+0 SCBLlMT
445+0 SCB UlMT
446+0 SCRE X2
447+0 SCBE X3
DXlBl
OCl96
C• 1 '
Cl6 FILE SERIAL NUMBER
Cl2
Cl3 CREATICt\ DATE IN OISCONTINOUS BIN
Cl3 EXPIRATION DATE IN DISCONTINOUS BIN
Cll
Cll
Cll
Cll3 SVSTE'" CODE
Cl7
Cl2 FILE TYPE
Cll RF.CCRD FORMAT
Cll GPTI Ct\ CODE
Cl2 BLCCK lENGTH
CL2 RECCRo LENGTH
CLl KEY LENGTH
Cl2 KEY LCCATION
CLI
Cl4
CL5
CL2
Cll EXTEt-.T TYPE INDICATOR
Cll EXTE~T SEQUENCE NUMBER
Cl4
Cl4
CLIO
CllO
CL5 POI NTE R TO NEXT RECORe
Cl4 CORE ADDRESS OF NEXT OS CB RECORD
•
DATA SET
436+·
000000
000000
000000 03030303
000004
000004
000005
000006
OOOOOA
OOOOOE
000018
F24J UNE66 10107/66
SO URC E STATEMENT
ORG
OS
DC
OS
OS
OS
OS
OS
OS
OS
CO~TROl
-FORMAT 3- KEY PORTION
OXO SCB
OCl40
X'03030303'
OCl40
Cll EXTEt\T TYPE I NoI CAT OR
CLl EXTEt\T SfCUENCf NUMBER
CL4 CCHH lCWER LIMIT
Cl4 CCHH UPPER LIMIT
CllO ADDITICNAL EXTENT
CLIO AODITICNAl EXTENT
MY ROUTINf AT OPEN TO HANDLE INPUT HDR
Lec
C~JECT
COOl::
000022
ACCR I ADOR 2
STM T
9
SO URCE S TA TE "'ENT
448+DSCBEX4
os
F24JUNE66 10/07/66
ClIO ADDITICNAl ExTENT
DATA SET CONTROL BLOCK -fORMAT 3- RECORD PORTION
000000
000000
000001
000001
00000 e
000015
OOOOlF
000029
000033
000030
000047
000051
000058
F3
452+
ORG
453+DXCBFMID DC
454+DSCBEXSD OS
455+DSCBEX5 os
4 56 +0 SC BE X60S
45 7+0 SC BE X70S
458+DSCBEX8 os
4S9+DSCBEX9 OS
460+0SCBEXA OS
461+DSCBEXB os
462+0 SCBE XC 0 S
463+0SCBEXD OS
464+0 SCBNE XT 0 S
OXOSCB
C'3' FCR~AT 10
OCL90 ADDITIONAL EXTENTS
CLIO ADDITICNAl EXTENT
CLIO ADDITICNAl EXT~NT
CLIO ADDITICNAL EXTENT
CLIO ADDITIONAL EXTENT
CLIO ADDITIONAL EXTENT
CLIO ADDITIONAL EXTENT
CLIO AODITICNAL EXTENT
ClIO AODITIONAL EXTENT
CLIO ADOITICNAL EXTENT
CL5 CCHHR CF NEXT FOR~AT 3 DSCB
fo!ESSAGE AREA
»
-.0
I
(X)
W
000000
000000
000001
000004
000008
OOOOOC
000048
oooooe
000003
000006
000003
000006
00000 C
00000 F
OOOOOf
OOOOOF
OOOOOF
OOOOOF
00000 F
00000 f
000010
000011
000014
000015
00001B
OOOOlC
000064
000064
C9 C5C 3
fOFOfOC14004
40
FO Fa Fa
6B
FOFOFOFOFOFO
6B
468+
ORG
DXDSCB
469+REPl YL TH os
CLI
4 70+REPL YADR 0 S
CL3
471+REPLYECB OS
CL4
412+MSGLSTSl OS
CL4
413+MESSAGEA OS
CL60
414+REPLY
OS
CL10
475+416+
ORG
ME S SAGEA
411+DEFINITION OF LE~GTH Of MESSAGE COMPONENTS
418+41Q+MSERl
EQU
3 MESSAGE SERIAL NUMBER LENGTH
460+MINSTl
EQu
6 MSG I~STRUCTION LTH INC MSG SER
481+MLNL
EQU
3 MESSAGE UNIT NA"'E LENGTH
482+MVOlL
EQU
6 MESSAGE VOLUME SERIAL LENGTH
483+- MTXTL
tENGTH ~AY BE DEFINED BY EACH MODULE TO FIT REQUIREMENT
484+- MSGL TH
LENGTH Cf FULL MSG DEFINEC BY EAC~ MODULE
485+MESSAGE FeRMAT IS IfCOOOA M 000,00000 TEXT
486+MSGIOSUP DC
CL3 'I EC' 1/ C SUPPORT MESS AGE IDENT ITY
487+MSGSER
os
OCL3 ,.,ESSAGE SERIAL NUMBER
488+
ORG
MSGSER MSERL-I
489+ MSG SE RLODS
CLl VOLU~E SERIAL La ORDER BYTE
490+
ORG
MSGSER
4 91+M SG 1 N STR DC
CL6'OOOA ~, MESSAGE INSTRUCTION INCL MSGSER
492+
ORG
MSGl~STR MINSTL-I
493+MSGACTN os
CLl MESSAGE ACTION REQD BY OPERATOR
494+
DC
C' •
495+M SGUN
DC
CL3'OOO' UNIT NAME THAT MSG REFERS TO
496+
DC
C' t'
491+M SG VOL SR DC
CL6'OOOOOO' VOLUME SERIAL THAT MSG RfFRS TO
498+
DC
C't'
499+MSGTEXT os
OCL38
50 1+502+
503+DXJBF
ORG
OS
JCB FILE CONTROL BLOCK
DSCBEND
OCll 16
MY ROUTINE AT OPEN TO HANDLE INPUT HDR
"
o
LOC
"""
CeJECT CODf
A CDR
I A0 DR 2
S TM T
PAGE
SOURC E S TA TE ~E NT
F24J UNE66 10/07/66
5C4+ •• • ••••••••••••••••••••••••••••••••••••••••••••••• •••••••••••••••••••• ~
JFCB
5C8+ •• • ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
000064
000064
000090
000098
000099
0000 A6
0000A7
0000 AS
OOOOAA
OOOOAC
0000 84
0000 87
0000 BA
000040
»
000010
~
000004
I
00
~
000001
000088
000040
000010
OOOOBC
0000 BC
0000 BO
OOOOAO
OOOOBE
OOOOCO
OOOOCI
OOOOCI
OOOOCI
OOOOCI
OOOOCI
OOOOCI
0000C2
0000C3
0000C6
0000C8
0000C9
OOOOCA
OOOOCC
OOOOCE
OOOOCF
000000
000002
509+INFMJFCB EQU
510+JFCBDSNM OS
5l1+JFCBElNM OS
512+JFCBTSDM OS
513+.
5l4+JFCBSYSC OS
515+JFC8lTYP OS
516+.
517+
0S
5l8+JFCBFL SQ 0 S
5lQ+JFCBVLSQ OS
520+JfCBMASK OS
52l+JfCBCROT OS
52 2+JFCB XPO T 0 S
523+JFCBINOl OS
524+JFCBRlSE EQU
525+.
526+JFCBLOCT EQU
527+.
528+JFCBNE loI~ EQU
529+.
530+JFCBPMEM EQU
531+·
532+JFCBIN02 OS
533+JFCBSTAT EQU
534+.
535+JFCBSC TY EQU
536+·
537+JFCBUFNO OS
538+JFCB UFRQ 0 S
53Q+JFCBF TE K 0 S
540+ J FCBFA LNOS
541+JFCBUFL OS
542+JFCEROPT OS
543+JFCTRTCH OS
544+ JFCKE't'LE 0 S
545+JFCMODE 0 S
546+JFCCOOE OS
547+JFCSTACK OS
548+JFCPR TSP OS
54Q+JFCOEN
OS
550+JFCllMCT OS
551+JFCOSORG OS
55Z+JFCRECFM OS
553+JFCOPTCO OS
554+JFCBLKSI OS
555+JFClRECL OS
556+JFCNCP
OS
557+JFCNTM
OS
558+JFCRKP
OS
55Q+JFCC YlOF 0 S
10
•
Cl44 DATA SET NAME
Cl8 ElE~ENT NAME OR VERSION
Cll TASK SCHEDULER - DATA
MANAGEMENT INFER FACE BYTE
CL13 SYSTE~ CODE
CLI LABEL TYPE AND USER'S-LABEL
INDICATOR
Cll NCT USED
ClZ FILE SEQUENCE NUMBER
Cl2 VCLU~E SEQUENCE NUMeER
CL8 DATA ~ANAGEMENT MASK
el3 DATA SET CREATION tATE
Cl3 DATA SET EXPIRATION DATE
Cll INDICATCR BYTE 1
64 BITS 0 AND 1 - EXTERNAL
STORAGE RELEASE INDICATOR
16 BIT S 2 ANO 3 - 0 AT A SET
HAS BEEN LOCATED
4 BITS 4 AND 5 - NEW VClUME
ADDEO TO DATA SET
BIT S 6 ANO 7 - 0 AT A S ET I S
A MEMBER OF A PODS OR GOG
Cll INOICATCR BYTE 2
64 BITS 0 AND 1 - DATA SET
STATUS (NEW, OLD, OR MOD)
16 fH TS 2 AND 3 - OAT A SET
SECURITY INDICATOR
OAll
All
OBll
BLI
AL2
BLl
OBll
OAll
OBLl
OBLI
OBLI
BLI
BLl
AL3
BL2
BLl
BLl
AL2
AL2
ALI
All
Al2
All
MY ROUTINE AT OPEN TO HANDLE INPUT HDR
LCC
CeJECT COOl:
0000 C3
0000C4
000005
000006
000008
000009
OOOOOA
0000F8
0000F9
OOOOFC
OOOOFF
000100
»
-.0
I
00
t11
000103
000040
000010
000004
000001
000104
000107
00010 A
OOOlOC
00010F
000112
000113
000080
000114
000114
000114 00000000
ACDR 1 A0 DR 2
S TM T
PAGE
SOURCE STATEMENT
560+JFCOBUFN OS
561+JFCINTVL OS
562+JFCCPKI OS
563+JFC SOhA OS
564+JFCBNTCS OS
565+JFCBNVGL OS
566+*
C)61+JFCBYOLS OS
568+*
569+JFCBE XTL 0 S
510+*
571 +*
512+JFCBEXAD OS
513+*
514+J FCBPQ TY 0 S
515+*
516+JFCBCTRI OS
577+*
578+*
519+*
580+ J FCB SQ TY 0 S
581+*
582+JFCBIND3 OS
58 3+JFCBC NTG E QU
584+58 5+JFCBMX I G EQU
586+587+JFCBAL XI EQU
588+*
589+JFCBRNDC EQU
590+*
591+JFCBDQTY OS
592+593+JFCB SPNM 0 S
594+595+596+JFCBAB ST 0 S
597+598+JFCBSBNM OS
599+6eo+*
601+JFCBDRLA OS
602+JFCBYLCT OS
6e 3+JFCB SP TN 0 S
604+605+606+60 1+JFCBLG TH E QU
608+JFCBEND EQU
609+6ll+DXECB
612+
OS
DC
ALI
ALI
Bll
AL2
CLI
CL1
F24JUNE66 10/01/66
NU~BER
NU~BER
CF OVERFLOW TRACKS
CF VOLUME SERIAL
NUMBERS
SERIAL NUMBERS (THE
FIRST FIVE)
CLI LE~GTH CF BLOCK OF EXTRA
VOLUME SERIAL NUMBERS
(BEYOND FIVE.
CL3 TRACK ADDRESS OF fLOCK OF
EXTRA VOLUME SERIAL NUM8ERS
CL3 PRI~ARY QUANTITY OF D.A.
STORAGE REQUIRED
CLI INDICATES WHETHER CYLINDERS
TRACKS, OR RECORDS ARE
SPECIFIED IN JFCBPQTY AND
JFCBSQTY
CL3 SECCNDARY QUANTITY OF D.A.
STORAGE REQUIRED
CLl INDICATOR BYTE 3
64 BITS 0 AND 1 - CONTIGUOUS
STORAGE INDICATOR
16 BITS 2 AND 3 - MAXIMUM
AVAILABLE EXfENT INDICATOR
4 BITS 4 AND 5 - ALL EXTENTS
(NO ICATOR
BIT 6 A~D 7 - ROUND
CYLINDER INDICATOR
CL3 QUA~TITY OF D.A. STORAGE
REQUIRED FOR A DIRECTORY
CL3 CCRE ADDRESS OF THE JFCB
WITH WHICH CYLINDERS ARE
SPL IT
CL2 RELATIVE ADDRESS OF FIRST
TRACK TO BE ALLOCATED
CL3 CORE ADDRESS OF THE JFCB
FROM WHICH SPACE (S Ta 8E
SUBALLOCATED
CL3 AYERAGE DATA RECORe LENGTH
CLl VCLUME COUNT
CLl NUMBER CF TRACKS PER
CYLINDER TO BE USED BY THIS
DATA SET WHEN SPLIT
CYLINDERS IS INDICATED
116 LE~GTH CF JFCB
CL30
-
11
VCLU~E
EVE~T
CONTROL BLOCK
OCL4
X'OOOOOOOO'
INPUT/OUTPUT BLOCK
~Y
..,00
-
LCC
RCUTIN~
C eJ ECT CODE
000118
000118 00
000119 00
00011 A
00011 A
OOOlle
OOOllC
OOOllC
000120
000120
000124
000125
000126
000128
000129
00012C
00012C
000130
000131
000134
000136
000138
000114
00000000
00
00
0000
000170
000140
0000
PAGE
AT OPEN TO HANDLE INPUT HDR
ACCRIA 0 OR. 2
S TM T
F24JUNE66 10/07/66
SOURCE STATf"'ENT
616+DXIOB
617+IOBFLAGI
618+I08FLAG2
619+IOBSENSE
620+IOBSENSO
621+*
622+IOBSENSI
623+IOBECBPT
624+
625+IOBCS\o.
626+IOBCOMAO
627+IOBSTATO
628+IOBSTATl
629+108CNT
630+108SIOCC
631+IOBSTART
632+108WGHT
633+108DCBPT
634+
635+
636+I08INCAM
637+I08ERRCT
638+0 XOAAOOR
OS
DC
DC
OS
OS
OCL32
X'OO'
X'OO'
OH
CLI
OS
OS
DC
OS
DC
DC
DC
DC
OS
DC
OS
DC
CLI SE~SE BYTE TIT
XLI
AL3(DXECB)
00
X'OOOOOOOO' KEY,OOOO,CO,",MAND ADDRESS
X'OO' STATUS BYTE 0
X'OO' STATUS BYTE 1
X'OOOO' CCUI\T
XLI
AL3 (OXCCw)
,
OS
OS
DC
OS
0S
Q
XU
AL3IDXDCB)
XLI
Xl3
X'OOOO'
Xl2
o DIRECT ACCESS ADDRESS MBBCCHHR
DATA tXTENT BLOCK
000140
00013C
000140
000144
000144
000148
00014C
000150
000154
000154
000154
000158
00015C
00015C
000160
000162
000164
000166
000168
00016A
00000000
00000000
00000000
00000000
00000000
00000140
642+0YVYY
643+0XOEB
644+DXOEBOEB
645+0XOEBOFL
646+0XOEBIRB
647+0XOEBSYS
648+DXDEBt,.SR
649+DXDEBECB
650+DXOEBIO
651+0XOEBOCB
652+0XDCBAO
653+DXOEBAPP
654+0XOEBMOO
655+DXOEBLCB
656+DXOEBBIN
65 7+0XOEB SCC
658+DXDEBSHH
OS
EQU
DC
OS
DC
DC
DC
DC
OS
DC
EQU
OS
OS
OS
OS
OS
OS
6~9+0XOEBECC OS
660+DXDEBEHH OS
661+DXOEBNTR OS
12
OCL44
OYYVY-4
X'OOOOOOOO'
OCLI
X'OOOOOOOO'
X'OOOOOOOO'
X'OOOOOOOO'
X'OOOOOOOO'
OCLI
Al4IDXOCB)
OXOEBOCB
CL4
OCll
F
H
H
H
H
H
H
DATA CONTROL BLOCK
00016C
000140
00016C 00000 13C
66S+DXXXX
OS
666+DXDCB
EQU
667+0XDCBDEB DC
668+-
OF
OXXXX-44 PCINTER TO RELATIVE BEGINNING OF OCB
A(OXOEB)
CHANI\EL CONTROL WORDS
000170
'0170
67C+
611 +0 XCC \oj
CNOP
0,8
OS
O~ilIII{I
MY ROUT (Nt: AT OPEN TO HANDLE INPUT
.."
o
..,
LaC
000170
000178
000180
000188
000190
000198
0001 AO
0001A8
0001 eo
0001 B8
0001CO
0001 C8
000100
000000
CEJECT CODf
ACCR 1 AODR2
S TM
PAGE
~HJi;:
r
f24JUNE66 10/07/66
6? ;::' [. 1;'C C. '... 1
~~
b]hD)((C~2
!) ~;
()
6 74 .. ;-, XCC 1013
Ij 1 'j ~. ! l ~. Cr. ~ t+
(; "i' ~ t ;. fl, ;( C. L l't ~.•
~s
D
.:;
[)
611·UXCC~6
u~
678"0XC.Cw7
DS
679+0)((C.,13
680+0 XCC ~9
0
0
0
DS
681+DXCC~lO
682"OXCCwll
683+0 XCC wl2
1)
~)
os
os
os
os
D
0
0
0
685+DSECTSIZ fQU
464 CORE AREA REQUIRED Fn~ THIS MACRO
686 SYMUCB
DSECT
687
IEFUCBOB
688+.
DATE CF THIS UPDATE 13 JULY 65
689+*
6qO.~
6ql+·
6<:<2"'·
THE INDIVIDUAL UC8 S LOOK LIKE THIS.
693Hi
•••••••••• * •• * •••••••••••••••••••••••
694+.
•
695+·
696+*
·INTER~AL·CHANNEL
697+fA698+.
699+.
10C+·
7Cl+·
102+.
703+·
'104+.
7CS+·
706+.
107"·
108+·
109+.
110+.
111+·
712+*
713+·
714+.
115+·
116+·
717+.
118+·
119 ...
720+·
721+·
122+·
723+·
124+.
125"·
726+.
727+·
13
• ALlOC. •
•
• NUMBER. MASK •
JOB
UCB
• STATUS·
IC
•
A
it
•
•
•••••••••••••••••••••••••••••••••••••
• fLAGl • UNIT •
•
•
•
AND .ADDRESS. FLAG2 • DEVTAB •
·CHAN.ADD·
•
•
•
••••••••••• * •••••••••••••••••••••••••
•
•
•
•
•
• ERRTAB • STATAB • LCHTA8 • ATNTAB •
•
•
•
•
•
•••• * ••••••••••••••••••••••••••••••••
·SCH I (S.
•
• FLG FLG •
UNIT NAME
•
•
•
•
• ••••••••••••••••••••••••••••••••••••
•
•
TYPE
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
•
LAST 12.
SENSE
•
•
•
•
•
•
• ••••••••••••••••••••••••••••••••••••
••••••••••••••••••••
~**
•••• * •••••••••
•
•
SENSE
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
VOLUME
SERIAL
•
•
•
•
•
•
•
•
•
•••••••••••••••••••
• STATUS.
DATA.
•
• ••
•••••
•
•
•
•
•
•
•
•
ALL DEVICE S
•
•
•
•
•
•
•
•
•••••
•••
•
•
•
•••••
•
•
•
•
TAPE AND DA
PAGE
MY RCUTINE AT OPEN TO HANDLE INPUT HOR
co
...,
LOC
»
-..0
I
00
00
000000
000000
000000
000001
000002
000003
000080
000040
000020
000010
000008
000004
000002
000001
000004
000005
000006
000001
000008
000009
00000 A
~ooe
DEJECT CODE
ACCRI ADOR2
STMT
F24JUNE66 10/07/66
SOURCE S TA TE ~ENT
128+·
129+.
13C+131+·
132+133+·
134+135+.
136+131+.
138+139+140'"
141+.
142+143+·
144+·
145+146+.
141+.
148+14 cH.
15C+151+152+753+154+155+156+.
151+.
158+UCBOB
759+
160+ SR TE JB ~R
161+SR TECHAN
762+UCBIO
163+SRTESTAT
164+SRTEONLI
165+ SR TECHG S
766+ SR TERE S'V
167+ SR TE LNLO
768+SR fEALOC
769+SR TEPRES
17C+ SR TE SYSR
711+·
712+SRTEDADI
713+·
174+.
715+716+UCBCHA
117+UCBUA
118+UCRFL2
119+UCBD TI
780+UCBETI
181+UCR STI
182+UCBLC I
783+UCBA TI
•
•
•
....................
-
•
VTCC TT
•
CR
.F I LE SE Q. COUNT
B
•
.MANAGMNT.
• COUNT.
-..............
•
•
•
• ••••
•••
~.
• VTOC R • SPARE •
•
OR
•
• FILE SEQ.NUMBER •
•••••••••••••••••••••••••••••••••••••
........
........................... .
•
•
•
•
•••
_
•
•
•
•
•
SEEK QUEUE
•
•
•
•
•
•
•••••
•
•
•
• •
•
•
•
•
•
CCNT ROL WORD
•
•
•
•
•••••••••••••••••••••••••••••••••••••
•
•
FOR
•
• M B B C C H H R
•
•
• •
•
•
•
•
• • •..
•
LAST SEEK
•
•
•...................... ..............•
•
• NR. CF •
• USERS •
.CURRE~T
-
o
•
•
•
• ••••••••••••••••••••••••••••••••••••
A
ECB
ACDRESS
. - -- . . . . . .. . . . . . . . . .. . . . . .
EQU
OS
OS
OS
OS
OS
F.QU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
OS
OS
OS
OS
OS
OS
OS
OS
14
OA ONLY
•
•
•
•
•
•
• ••••
•••
•
• • • • • • • • •
..
• UNIT CC~TROL BLOCKS
OF
Xll JCB INTERNAL NUMBER
XLI ALLCC.CHANNEL MASK
XLI UCB IOE~TIFICATION
XLl STATUS BITS
128 O~lI NE
64 CHANGE GNLINE/OFFLINE
32 RESERVED DEVICE
16 UNLCAO THIS DEVICE
8 BIT 4 ALLOCATED
4 BIT 5 PERMANENTLY RESIDENT
2 BI T 6 SYSRES
OR PRIMARY CONSOLE
BIT 7 DADSM INTERLOCK
OR TAPE CONT AINS
STANDARD LABELS,OR
ALTERNATE CONSOLE
XLl FLAGI AND CHANNEL ACORESS
XLI UM T ADDRESS
XU FLAG2
XU DE'VICE TABLE
XLl ERRCR TABLE
XU S TAT U S T A BL E
XLI LCGICAl CHANNEL TABLE
XLI~JTE~TICN TABLE
MY ROUTINE AT OPEN TO HANDLE INPUT HOR
'"tJ
a
...,
»
'0
I
ex>
'0
LCC
ceJ ECT CODE
oooooc
oooooe
000010
000010
000080
000040
000020
000010
000008
000004
000002
000001
000010
000010
000080
000040
000020
000010
000008
000004
000010
000014
000016
OOOOlC
000022
000080
000040
000020
000010
000002
000004
000002
000001
000023
000024
000026
000028
000030
000038
000039
00003C
00003C
00003D
00003E
00003F
000040
000046
000049
000000
000158 0050
00015~ 0001
00015C FIC8C4C'140
fleeRI ADOR2
STMT
PAGE
SOURCE STATEMENT
784+ UC B"G T
185+UCANAME
186+UCB TYP
7 8 7 + UC B TB Y Tl
7 B8+ UC B I F E Aa
189+UCBIFEAl
7 <1 C+ UC B 1F E A 2
7<11+UCBIFEA3
1'12+UCRIFEA4
79 3 + UC B 1 FE A 5
7 <14+ UC 8 1FE A6
7 95+ UC BI FE A 1
7Q6+UCBTBYT2
7 9 7 + UC B TB Y T3
798+UCB 3 TA PE
7Q9+UCB3COMM
BCO+UCB30ACC
80 1+ UC B 30 I S P
B02+UCB 3l.JREC
803+UCB3CHAR
B04+UCBTBYT4
805+UCBL TS
8C6+UCB SNS
801+SRTEVOLI
8C8+SR TESTAB
809+ SR TEB S VL
810+SR TEB'VSC
B11+ SR TEBALB
B12+SR TEBPR\I
B13+SRTEBPUB
814+ SR TE B IJQ S
B15+.
8 16 + SR TE B J L B
Bl1+SRTEBNUL
B18+SRTEOMCT
Bl <1+ SR TE F SC T
82C+SR TEFSEQ
821+UCBSQC
B22+UCB SKA
B23+ SR TE USER
824+ SR TE EC BA
82'.)+OA TAC E LL
826+0CElJBNR
827+0CELUSER
828+0CEL STAB
829+0CELSTAT
B30+0CEL VULI
831+0CELVTOC
832+0CELECBA
833
834
835
836
os
os
OS
ECU
ECU
ECU
ECU
ECU
ECU
ECU
ECU
ECU
ECU
EQU
ECU
ECU
ECU
ECU
ECU
ECU
ECU
OS
OS
os
os
ECU
ECU
ECL;
ECU
fCU
EQU
ECU
EQU
OS
OS
OS.
OS
OS
OS
OS
EQU
OS
OS
OS
OS
OS
OS
OS
END
XU hEIGHT
CL3 U~IT ~AME IN EBCDIC CHARACTERS
XL4 OE\lICE TYPE
UCBTYP BYTE 1 CF UCPTYPE-MODEL
128 BIT 0 CF CPTION FIELD
64 BIT 1 CF OPTION fIELD
32 BIT 2 CF CPTlON FIELD
16 BIT 3 CF OPTION FIELC
8 BIT 4 CF CPTION FIELD
4 BIT'.) CF OPTION FIELD
2 BIT 6 CF CPTlON FIELD
1 BIT 7 CF CPTION FIELD
UCBTYP t1.
BYTE 2 OF UCBTYPf-OPT IONS
UCBTYP~2
BYTE 3 OF UCBTYPE-CLASS
128 BIT 0 CF CLASS - TAPE
64 BIT 1 CF CLASS - COMMUNIC.
32 BIT 2 CF CLASS - DIRECT AC
16 BIT 3 CF CLASS - DISPLAY
8 BIT 4 OF CLASS - UNIT REC.
4 BIT'.) CF CLASS - CH~R.READ
UCBTYP 3
BYTE 4 OF UCBTYPE-OEVICE
XL2 LA S T 12"
XL6 SENSE I~FORMATION
CL6 VCLU~E SERIAL
XU STATUS A
128 BIT 0 SHARED VOLUME
64 BIT 1 VCLUME SECURITY
32 BIT 2 ADDIT.VCL.LAAEl PROC
16 BIT 3 PRIVATE
2 BI T 4 PUBLIC
4 BIT 5 VCLUME TO BE QUIESCE
BIT
TO MOUNT ANOTHER
2 BIT 6 JCBlIB VOLUME
1 BIT 7 CC~TRCL VOLUME
XLl OATh ~ANAGEMENT COUNT
XL2 FILE SEC. COUNT
XL2 FILE S~C. NUMBER
2F SEEK CUEUE CONTROL WORe
2F ~BHCCHHR FOR LAST SEEK
XLI CURRE~T ~UMRER OF USERS
XL3 DA ECB ADDRESS
• 9 OF THESE BLOCKS WILL BE PRESENT
XU JOR I r.. TE RNAL
XLI CURRE~T NUMBER OF USERS
XLl STATUS A
XU STATUS A
CLb VClUME SERIAL
Xl3 VTCC ADDRESS
XL3 DA ECB ADDRESS
NSLOHDRI
=H'80'
=H'l'
=Cl5'IHOR '
15
f24JUNE66 10/07/66
CROSS-REFE:RENCE
.,0"
-
SYMBOL
ALCGIC
BlOGIC
CHECK
DATACELl
DCeeFAlN
CCBBFTEK
OCeelKCT
OCeelKSI
Dce eUFCB
cceeUFl
DceeUFNC
Dcecccw
DceCHEcK
DCSCINCI
OCBCINC2
OCBCNTRL
OCBDCNAM
CCBDEBAC
CCBDE~
»
-.0
I
-.0
0
OCBDEVT
OCBOIRCT
CCBDSORG
OCBEOB
OCBEOBAC
CCBEOBR
CCBEOBW
OCBEOCAC
OCBEROPT
OCBEXLST
CCBGERR
OCeGET
OCBIFlG
OCelFlGS
CCBIOBA
DCBIOBAD
OCflOBl
OCBKEYLE
ocelCCW
OCBlRECl
OCBMACR
OC8MACRF
cceNCP
CCBNERRS
OCBNOISE
OC8NOTE
CCBOFFSR
CCBOFFSW
OCeOFlGS
OCBOPTCC
CCBPERR
OCBPOINT
OCfPRECl
OCBPUT
DCBQSWS
CCBREAC
CC8RECAC
lEN
00002
00004
00006
00001
00001
00001
00004
00002
00004
00002
00001
00004
00004
00001
00001
00004
00008
00004
00001
00001
00002
00002
00004
00004
00004
00004
00004
00001
00004
00004
00004
00001
00001
00004
00004
00001
00001
00004
00002
00002
00002
00001
00004
00001
00004
00001
00001
00001
00001
00004
00004
00002
00004
00002
00004
00004
VALUE
000062
000092
00U006
00003C
000020
000020
OOOOOC
OOOOlE
00on14
000018
000014
00004C
000034
00003C
000010
000054
000028
00002C
000n12
0000 It
000050
00001A
00005C
000048
000048
00004C
000020
000054
000024
000034
000030
00003t
00002C
000044
OOOOtC
000038
000010
000048
000052
000032
00002A
000048
000004
000008
000054
000042
000043
000030
000034
000034
000054
OOOO'iA
000030
00u050
000010
00004C
OEFN
C093
a lie
C144
0825
0232
0231
0213
0211
0224
0225
0223
0296
0264
02Ml
0210
0281
0241
0252
0216
0221
0284
0226
03e3
0295
0282
0283
REFERENCE S
C162
C083
C136
02~3
03eo
0235
0262
0255
0243
0251
0211
0221
0266
0220
0294
0265
0244
0250
0281
0210
0211
0288
021~
0276
0242
0261
0263
0289
0302
C256
0298
0253
02 en
C06C
0066
PAGE
1
10/07/66
CRO SS-REFERE NCE
."
0
...,
SYMBOL
CCP.RECF~
DC BR El
OCBSYNAC
DCBTIOT
DCBTRTCH
DCeUERRS
DC BWCPl
CCBWCPC
DCBWRITE
DCElECBA
DCElJBNR
CCElSTM~
»
'"
'"
I
DCElST AT
DCElUS ER
DCElVCll
CCElVTOC
DlOGIC
csceENe
OSCBex A
CSCBEXB
DsceEXC
DSCBexc
OS ceEXS C
CSCBeXSK
DSCBEXSQ
OSCBEXTY
DSCBEX2
CSCBEX3
OSCBeX4
OSCBEX5
OSCBEX6
CSCBEX7
DSCBEX8
DSCBEX9
DSCBF3C
CSCBlOBl
DSCBlKl
DSCBll~T
OS CBN EXT
eSCBUUH
DSCCORE
OS CCREOT
OSCDSINC
DSCEXPDT
OSCEXTSC
DSCEXTYP
CSCEXT 1
CSCEXT2
OSCFIlSR
OSCFIlTY
OSCFMT Ie
CSCKEYl
OSClOWl~
OSCLRECl
OSClSTAR
CSCNEX"j
LEN
00001
00003
00004
00002
00001
00004
00001
00001
00004
00003
00001
00001
00001
00001
00006
00003
00004
00001
00010
00010
00010
00010
00090
00040
00001
00001
00010
00010
00010
00010
00010
00010
00010
00010
00004
00001
00002
00004
00005
00004
00004
00003
00001
00003
00001
00001
00010
00010
00006
00002
00001
00001
00004
00002
00005
00005
VALUE
DEFN
000024
000011
000038
000028
000010
000008
00U041
000040
000030
00004Q
00003C
00003E
00003F
000030
000040
000046
OOOOlC
000064
000013
000030
000047
000051
000001
000004
000005
000004
OOOOOE
000018
000022
000001
000008
000015
00001f
000029
000000
000010
00002A
000006
000058
OOOOOA
000060
000009
000031
OOOOOC
00003E
000030
000n47
000051
000001
000026
000000
00002E
00003f
000D2C
000036
000058
0234
022£
0267
024C;!
0214
0212
0274
0273
02!i4
0832
0826
0828
082c;!
0827
0830
0831
0053
0434
0460
0461
0462
0463
0454
0441
0443
0442
0446
0447
0448
04~5
0456
0457
0458
0459
0440
0411
0418
0444
0464
0445
0433
0408
0422
040<1
0427
0426
0430
0431
0406
0415
0405
0420
0428
0419
0424
0432
REFERENCES
Cle2
C5C2
PAGE
2
10/07/66
CRDSS-REFERE~CE
"
0
~
-+
»
-.0
I
-.0
"->
SY"'BOl
OSCNOEXT
OSCOPTCC
OSCRECF'"
OSCRKP
OSCSCAlC
OSCSYSCC
OSCTR8AL
OSCUPPlM
OSCVOLSR
OSECTSIl
OXC8FMIC
OXCCW
OXCCWI
OXCCWIO
OXCCWll
OXCCW12
OXCCW2
OXCCW3
DXCCW4
OXCCW5
DXCCW6
OXCCW7
OXCCW8
OXCCW9
OXOAACCR
OXOCB
OXOCBAC
oxoceCEB
OXOEB
OX DE BAPP
OXOEBBIN
OXOEBCCB
OX DE BOEE
OX OEEWFL
OXOEBECB
OXOEBECC
DXOEBEtiH
OXOEB Ie
OXOE8IRB
OXOEBMCD
OXOEBNTR
OXOEBSCC
OXOEBStiH
OXOEBSYS
OXDEBUCP.
OX DE BUSR
OX OS CB
OXOSCB3K
OX ECB
OXloe
OXJEF
DXLElL
OXXXX
OYNAMIC
DYYYY
ELeGIC
LEN
00001
00001
00001
00002
00004
00013
00002
00004
00002
00001
00001
00096
00008
00008
00008
OOOOR
00008
00008
00008
00008
00008
00008
00008
00008
00008
00004
00004
00004
00044
00004
00002
00004
00004
00001
00004
00002
00002
00001
00004
00001
00002
00002
00002
00004
00004
00004
00096
00040
00004
00032
00116
00080
00004
00001
00044
00004
VALUE
DEFN
OOOOOF
000029
000028
00002F
000032
000012
000038
000043
000001
000100
000000
000170
000110
000188
OOOlCO
0001C8
000118
000180
000188
000190
000198
OOOIAO
000 lA8
000180
000138
000140
000154
00016C
00013C
000158
000160
000154
000140
000144
000150
000166
000168
000154
000144
00015C
00016A
000162
000164
000148
00015C
00014C
000000
000000
000114
000118
000064
OOOCOO
00016C
000000
000140
000124
0410
0417
0416
0421
0423
0413
0425
0429
0407
0685
0453
0611
0612
0681
0682
0683
0613
0614
0615
0676
0611
0678
0619
0680
0638
0666
0652
0667
0643
0653
0656
0651
PAGE
REFERENCE S
C631
C123
C124
10/07/66
0125
0126
0153
G154
C174
0087
cose
C089
C633
C651
C661
0652
06~4
0645
0649
0659
0660
0650
0646
0654
0661
0657
0658
0647
0655
0648
0404
0439
0611
0616
0503
0352
0665
0191
0642
0174
CC55
C438
0452
0468
0127
012'1
C121
C156
0132
0135
C144
C666
OC32
0643
0146
0367
0403
CO<;4
3
0154
0159
0624
PAGE
CROSS-REFERENCE
.,C"
»
-.0
I
-.0
W
SYMBOL
ERRCRI
ERRCR2
FLIBLKCT
fL 1CRECT
FlIEXPCT
fllFllSC
fllFllSR
FllFSEC
FlIGNC
fL 11 D
FLILABI
FLINO
FL1RES
FLIRES1
FllSYSCC
FL1VNG
FLIVClSC
fl2BLKL
FL2CNTRL
fL2DEN
fL2FILP
fL2JOeC
Fl2JSIC
fL2JSSP
fl2lRECL
Fl2RECfM
Fl2R ES
Fl2STEPC
fL2TRTCH
IHADCB
I HBOO02
INFMJFCP.
IOBCNT
ICBCOMAC
IOBCSW
IOeOCBPT
10 BECBPT
IOBERRCT
IOBFLAGl
IOeFLAG2
IOBINCAM
IOBSENSE
IOBSENSO
IOBSENS 1
lOBS lecc
ICBSTART
IOBSTATO
IGeSTATl
IOeWGHT
JfCBAeST
JFCBAlX I
JFCBCNTG
JfCACRCT
JFCeCTRI
JfCBOQTY
JFCBORlA
LEN
00004
00004
00006
00006
00006
00004
00006
00001
00004
00011
00003
00001
00001
00006
00013
00002
00004
00005
00001
00001
00001
00008
00011
00001
00005
00001
00043
00008
00002
00001
00001
00001
00002
00004
00008
00003
00001
00002
00001
00001
00002
00002
00001
00001
00001
00003
00001
00001
00001
00002
00001
00001
00003
00001
00003
00003
VALUE
DEFN
000 I lC
OOU I Ie
00u036
000029
00002F
0000lF
000015
0000315
000023
000004
000000
000003
000049
00004A
00003C
000021
00001B
000()05
000024
OOOOOF
000010
000011
000011
000019
OOOOOA
000004
000025
OOOOlA
000022
000000
000091
00006"
000126
000120
000120
000120
00011C
000136
000118
000119
000134
00011A
00011A
000 lIB
000128
000129
000124
000125
00012C
00010A
000004
000040
00U084
OOOOFF
000104
00010F
0168
0161
0319
0316
0377
0313
0371
C318
0314
0310
0368
0369
0381
0383
0380
0315
0312
0389
0398
0391
0392
0394
0393
0395
0390
0388
03Q9
0396
0391
0202
0109
0509
0629
0626
0625
0633
0623
0631
0617
0618
0636
0619
0620
0622
0630
0631
0621
0628
0632
0596
0587
0583
0521
0516
0591
C601
REFERENCE S
C145
C141
10/01166
0168
C3€7
0033
CIC6
02C9
4
0219
0240
0248
0260
0265
0268
0272
0286
0293
0299
0301
CROSS-REFERENCE
-0
...,a
»
-.0
I
-.0
~
SY~BCL
LEN
00044
OOOOR
JFCAENC 00001
JFCeEXAC 00003
JFCAEXTL 00001
JFCBFAl~ 00001
JFCBFlSC;; 00002
JFC8FT EK 00001
JFCBINCI 00001
JFC8INC2 00001
JfCBINC3 00001
JFC8lGTH 00001
JFCBlKSI 00002
JFCBlCCT 00001
JFCBlTYP 00001
JFCBMASK 00008
JFCBMXIG 00001
JFC8NEWV 00001
JFCBNTCS 00001
JFC8NV OL 00001
JFCBPr--E~ 00001
JFC8POTY 00003
JFCBRlSE 00001
JFC8RNCC 00001
JFCBSBNM 00003
JFC8SCTY 00001
JFCBS PNfo' 00003
JFCBSPTN 00001
JFCBSOTY 00003
JFCeSTAT 00001
JFCeSYSC 0001]
JFCBTSCM 00001
JFCBUFl 00002
JFCBUFNC 00001
JFCeUFRC 00001
JFC8VlCT 00001
JFC8VlSQ 00002
JFCeVOlS 00030
JFC8XPCT 00003
JFCCOCE 00001
JFCCPRI 00001
JFCCYlCF 00001
JFCCBU Ff\ 00001
00001
JFCCEN
JFCCSORG 00002
JFCEROPT 00001
JFC I NTVl 00001
JFCK EYl E 00001
JFCLI~CT 00003
JFCLRECl 00002
00001
JFC~OCE
00001
JFCNCP
00001
JFCNT~
JFCCPTCC 00001
JFCPRTSP 00001
.uiIIiWl EC F M 00001
JFCAOSr-..~
JFCeELN~
VALUE
OEFN
000064
000090
000114
0000F9
00OOF8
OOO()AO
0000A8
OOOOBO
OOOOBA
0000B8
000103
OOOOAO
OOOOCA
000010
0000A6
OOOOAC
000010
000n04
000(lO8
000009
000001
OOOOFC
000040
000001
OOOlOC
000010
000101
000113
000100
000040
000099
000098
OOOOBE
OOOI)BC
OOOOBC
000 112
OOOOAA
ooonOA
0000B1
OOOOCI
000005
000002
OOOOl)]
0000C2
00OOC6
0510
0511
0608
0572
0569
0540
0518
0539
052]
0532
0582
0601
0554
0526
0515
0520
0585
C528
0564
0565
0530
0514
0524
0589
0598
C535
0593
0603
0580
0533
0514
0512
0541
0537
0538
0602
0519
0561
0522
0546
0562
0559
05f:0
0549
0551
0542
05t1
0544
0550
0555
0545
0556
0557
0553
0548
0552
ooonco
0000C4
OOOOCI
0000C3
OOOOCC
OOOOCI
OOOOCE
OOOOCF
0000C9
oonoc 1
00(JOC8
REFERENCE S
0146
coe2
0089
PAGE
5
10101166
CRO S S-REFERE NCE
-
PAGE
b
""C
..,0
SY~BCL
JFCRKP
JFCSOW A
JFCS TACK
JFCTRTCH
Mf:SSAGE~
MINSTL
MOCNA~E
MCUNT
MSERL
MSG
MSGACTN
MSGINSTR
MSGIOSlJP
MSGlSTSl
MSGSER
MSGSERLC
MSGTEXT
MSGUN
MSGVOlSR
MSSG
»
-.0
I
-.0
<.J1
~UNl
MVOLL
NSlOHORI
REGSTOR
REPLY
REPl Y ACR
REPlYEC8
REPlYlTH
SIHEAlOC
SRTEB,.le
SRTEBJLA
SRTEBNUl
SRTEBP~V
SRTEBPUB
SRTEBSVl
SRTEBVCS
SRTEBVSC
SRTECHAN
SRTECHGS
SRTEOACI
SRTEOMCT
SRTEEceA
SRTEFSCT
SRTEFSEC
SRTEJBNR
SRTEONLI
SRTEPRES
SRTERESV
SRTESTAA
SRTESTAT
SRTESYSR
SRTEUNlD
SRTEUSER
SRTEVOLI
SYP'lUC8
LEN
00002
00002
00001
00001
00060
00001
00008
00006
00001
00021
00001
00006
00003
00004
00003
00001
00038
00003
00006
00004
00001
00001
00001
00004
00010
00003
00004
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00003
00002
00002
00001
00001
00001
00001
00001
00001
00001
00001
00001
00006
00001
VALUE
OEFN
000000
000006
OOOOCI
ooonc 1
OOOOOC
000006
000014
000050
000003
000034
OOOOOF
OOOnOF
ooonoc
00U006
OOOOOF
OOOOOF
OOUOlC
000011
000015
000142
000003
000006
000000
000000
000048
000001
000004
0558
0563
oonooo
000008
000020
000002
000001
000010
000002
000080
000004
000040
000001
000040
000001
000023
000039
000024
000026
000000
000080
000004
000020
000022
000003
000002
000010
000038
OOOOlC
000000
REFERENCE S
10/01166
05~7
05~3
0~73
0480
0103
0081
0479
0193
0493
0~91
0416
C175
OOf:l
CC67
0013
C148
C149
0150
04'72
0~86
O~
12
O~e7
04E8
C490
0489
0~99
0495
04(17
0188
0481
0482
C002
0192
0414
0410
0411
0469
0168
0811
0816
0817
0812
0813
0809
081'.
0810
0161
0165
0112
0818
0824
0819
0820
0160
0764
0169
0166
0808
0103
0110
0167
0823
0801
0686
0081
0833
0111
C118
eC15
C1l8
C035
0167
0016
0169
CROSS-REFERENCE
..,0"
»
-.0
I
-.0
0-.
SYMBOL
UCBAT I
UCBCHA
UCBDT I
UCBET I
UCBFL2
UCBID
UCBLC I
UCBLTS
UCBNAME
UCBCB
UCBSKA
UCBSNS
UCBSQC
UCBS T I
uceT BYT 1
UCBTBYT2
UCBTBYT3
UCBT BYT4
UCBTYP
UCBUA
UCBWGT
UCBIFEAO
UCBlFEAl
UCBIFEA2
UCBIFEA3
UCBlFEA4
UCBlFEA5
UCBlFEA6
UCBlFEA1
UCB3CHAR
UCB3COMM
UC83DACC
UCB3DISP
UCB3T APE
UCB3UREC
VOLLABI
VOlNO
VCLOWNER
VClSEC
VOLSERNO
VOLVTCC
WTO
LEN
00001
00001
00001
00001
00001
00001
00001
00002
00003
00001
00004
00006
00004
00001
00004
00004
00004
00004
00004
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00001
00003
00001
00010
00001
00006
00005
00004
VAlUE
DEFN
REFERENCES
OOOOOA
000014
000000
000000
000030
000016
000028
000009
000010
000010
000010
000010
000010
000005
OOOOOC
000080
000040
000020
000010
000008
000004
000002
000001
000004
000040
000020
000010
000080
000008
000000
000003
000029
OOOOOA
000004
OOOOOA
00001C
0116
0779
0780
C778
0762
0782
0805
0785
0158
0822
0806
0821
0181
0181
0196
0797
0804
0786
0177
0184
0788
0189
0790
0191
0192
0193
0194
0795
0803
0799
0800
0801
0198
0802
0353
0354
0362
0356
0355
031)8
0105
OOEe
0149
ce12
C781
0148
NO STATEMENTS FLAGGED IN THIS ASSEMBLY
1214 PRiNTED LINES
7
10/01166
OOOOOA 0783
000004
000001
000008
000006
000002
PAGE
C196
0197
0804
"1J
C
~
I Ef2851
IEf2851
IEF285 I
IEf285I
IEF285I
IEF2851
IEF285I
IEF2851
IE F285 I
IEF2851
IEF285I
IEF2851
II
SYSL.MAClI8
vel SER NOS: tLLLLI.
KEPT
~~AAAAAA.~AAAAAAA.AAAAAAAA.AAAAAAAA.CCCCCC04
DELETED
veL SER
~OS=
222222.
AAAAAAAA.AAAA~AAA.AAAAAAAA.AAAAAAAA.CCC00005
DELETED
vel SER NOS: 222222.
AAA~AAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.OC000006 DELETED
veL SER NUS= 222222.
SYSOUT
SYSGlJT
VOL SER NOS=
EBC.COOD
PASSED
vel 5ER ~US= 222222.
EXEC
PGM=IE~L,PARM='NCAL'
UNIT=231L, SPACE=( TRK,(2G,LO» ,01 SP=( ,DELETE)
IISYSUTL CC
CO
DSNAME=SYSl.SVCLIBfNSLOHORI),DISP:(OLO,KEEPJ
/ISYSL~OD
CD
SYSOUT:A
IISYSPRINT
I/SYSLIN DO DSNAM~=&E6C,CISP=(OLD,OELETE)
DO
DONAME=SYSIN
II
co •
I/SYSIN
IEF2361 ALLOC. FOR CDDD
IEF231 I SYSUT 1
U~ L91
Iff2311 SYSLMOO UN 190
IEF2311 SYSLIN
UN L91
IEF2311
ON OOC
F-lEVEl liNKAG~ fDITOR OPTIONS SPECIFIED--~CAl
IFWOOOO
NSlCHDRI NUW RtPlACED IN DATA SET
""0
.,o
IEF2851
IEF285I
IEF2851
IEF285I
IEF285I
IEF285I
IEF285I
It:F2851
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.OCOOOC09
VOL SER NOS= 222222.
SVS1.SVCLIB
VOL SER NOS= 111111.
SVSUUT
VOL SER NOS=
EBC.CDOD
veL SER NOS: 222222.
DELETED
KEPT
SVSOUT
DELETED
"
o
'-'
IleeeD
JOB
O,~BCNSL,MSGlEVEl=l
IIGENEI
EXEC Pf.M=IEUASM,PARM=(OECK,RENT)
IISYSllR CC
OSNAME=SYS1.MAClIR,DISP=OlD
IISYSUTI CC
UNIT=2311,SPACE=( 17CC,(400,50)
IISYSUT2 CC
UNlT=2311,SPACE=(17CO,(4CO,50»
/ISYSUT3 CC
UNIT=2311,SPACE=( l1CC,(400,50»
IISYSPRINT DO SYSOUT=A
//SYSPU~CH CD DSNAME=~EBC,UNIT=2311,SPACf=(80,(200,50»
IISYSIN CC
•
IEF236I AllOC. FOR DODD
GENEI
IEF237I SYSlIB
ON 190
IEF231I SYSUTI
U~ 191
IfF2311 SYSUT2
U~ 191
[ t F231 I S YSUT ~
{IN
191
IfF231I SYSPUNCH uN 191
IEF231I SYSIN
U~ OOC
,DISP=(~E~,PASS)
Assemble NSLOHDRI and Link Edit intoSYS 1.SVCLlB (Used EBC 1 and EBC2 macros in this run.)
»
~
I
o
o
""tJ
C
..,
EXTERNAL SYMBOL DICTIONARY
SY~BCl
NSlOHCRI
»
~
I
o
TYPf ID
SO
ACOR
LENGTH lD In
01 000000 000161
PAGE
1
00.04 10/01166
MY
-0
a
"""
lOC
RQUTIN~
CAJECT COOt
AT OPEN TO HANDLE INPUT HDR
ACDR 1 ADDR 2
000000
STMT
2
3
4
S
6
7
8
000000 OSFO
000002
9
000002
000006
OOOOOA
OOOOOC
4100 OOFO
4510 F008
OAOA
902E 1000
ceOFC
CCCCA
ooooe
SOLKCE
~SlOHORI
PAGE:
F24JUNE66 10/07/66
STATE~ENT
START 0
Itltlt
Itltlt
NOTE THAT THE
1t.1t
ADDRESSI~ILITY
GETMAI~
~ACHO
REQUIRES BASE REGISTER
FOR Irs GENERATION -
Itltlt
BALR 1':> ,0
USING .,15
PRUVIDE
AOD~ESSABILITY
Itltlt
10
ll+
12+
GETMAIN R,LV=240
LA
0,240(0,01 LOAD LENGTH
BAL
1,.+4 I~DICATE GETMAIN
SVC
10 ISSUE GETMAIN SVC
STM
2,14,0(11
DROP 15
13+
14
15
STORE REGISTERS
16 •••
»
17 I t l t .
18 It • •
19 . I t .
20 •• It
21 It • •
22 I t . 23 •••
24
000010 0530
000012
25
REGISTERS 2 TO 14 ARE SAVED IN AN AREA OF CORE ACQUIRED
BY WAY CF A GETMAIN MACRO
BASE REGISTER 1 HAS THE
ADDRESS CF THE AHEA ACQUIRED
'DYNA~IC' IS THE NAME WE'VE GIVEN TO THE GETMAIN AREA
WE'VE DESCRIBED IN THE DSECT IN THIS PROGRAM
BALR 3,0
USING .,3
26 •• -
'-0
27
I
REGISTER 1 ~UST BE CROPPEC AS THE BASE REGISTER OF THE
DYNAMIC AREA RECAUSE WE ARE ABOUT TO 'EXCP' AND IT USES
REGISTER 1
.It.
28 •• It
o
29 •••
tv
30 •••
31
000012 1841
000000
000000
000000
000000
32
33
34
35
36 _ ••
37 It • •
38 1t.1t
3<1
000014 4170 0000
oceec
40
41
42
43
44
45
46
47
48
49
50
51
000018
OOOOlC
000020
000024
4180
58A7
5888
58CO
0024
5000
6000
Bl5C
COC24
OCCCC
occee
CC15C
Itltlt
-_It
It • •
.It.
It • •
It It It
It It It
Itlt.
1t.1t
1t.1t
Itltlt
LR
4,1
RELEASE
FOR MACRO USE
USING DYNA~IC,4
USING IHADCB,10
GRI0=ACDR OF DCB
USING SYM~ACBA,11
GRll=ACDR OF WACBA
USING SYMUCB,12
GRI2=ACDR Of UCB
INITIALllE REGISTER 7 TO ZERO - THIS REGISTER IS USED
Te PASS eVER 4 RYTE ACDRESSES - THESE ADDRESSES ARE IN A
LIST OF ADDRESSES (WHICH ARE POINTERS TO ALL THE DCB'S
IN THE PRCBLEM PROGRAM AREAl - THERE IS ONE ADDRESS FOR
EACH OC8 ENTRY IN THE OPEN OR CLOSE - WE GET THE ADDR OF
THE AEGI~~I~G OF THIS LIST IN REG 5 DURING OPEN
LA
7,0
XR7 FOR DCB'S
I~ITIALIIE REGISTER 8 TO 36 - THIS REG IS USED TO PASS
OVER 8 BYTES AT A TIME - AFTER THE l~T 32 BYTES EACH 8
BYTFS CO~TAINS (IN THE LGW ORDER BYTESI THE ADDRESS
(IF THE '\0/CR K Af\jD CONT ROL BL OCK AR E A' - O~ E 'WORK AND
CGNTROL BLCCK AREA' IS BUILT FOR EACH DCB IN THE uPEN OR
CLCSE ~ACRC - WE GET THE STAKTING ADDR OF THE TABLE THAT
CCNTAINS THE ADDR FOR EACH 'WORK AND CONTROL BLOCK AR~A'
IN REG 6 DURING OPEN
I t - It
52
LA
8,36
53 OLOGIC
54
55
56 •••
57 •
L
L
L
10,0(7,5)
11 ,0(8,6)
12,DXDEBUCB
XRB FOR
ADCR OF
ADDR OF
ADDR OF
I S TH I S.A~ 'OUTPUT' DCB
WACBA'S
DCB IN GRI0
WACBA IN GRII
UCB IN GRI2
YES IGNORES THIS DeB
MY ROUTINt AT OPEN TO HANDLE
""tJ
-
a
..,
LOC
CeJECT COOt
000028 9180 A030
00002C 4710 303E
000030 9110 A030
000034 4710 303E
ACCRI AODR2
00030
CCC5C
00030
0005C
000038 9180 C012
00003C 4780 303E
00012
000040 9180 C023
000044 4780 303E
ce023
GCC5C
C005C
PAGE
INPUT HOR
STMT
58
59
60
61
62
63
64
65
66
67
68
69
10
11
72
73
74
15
16
71
AND CHECKS THE NEXT OCB
TM
BO
•••
•
•
•••
»
-.0
I
oW
000048 9504 BOAb
00004C 4780 3080
OOOA6
00C<12
000050 e211 B188 3130 00188 00142
000056 02U2 B196 COOO 00196 OOCOO
00005C C205 B19A tlOOA 001gA CCODA
000062 12AA
000064 4740 3112
000068
00006C
000070
000074
4170 7004
4180 8008
47FO 300A
C9C7C7FOFIF9FOC2
00007C
00007C 0015
00007E 0000
000080 C8C40940060540E7
000091
00124
00C04
ccoee
COOlC
DCBOF LGS, X' 80'
"'OUNT
o IF
BIT 0
TM
BO
•••
•
•
•••
BIT
DCBOfLGS,X'lO'
MOUNT
3
IS THIS OCB fOR OTHER THAN TAPE
AND CHECKS THE NEXT DCB.
TM
B1
UCB TYP+2, X' 80'
MOUNT
TM
BI
SRTEOf'CT, X'80'
MOUNT
INPUT
YES IGNORES THIS DCB
I S THIS DCB ALREADY UPENED
AND CHECKS THE NEXT DCB
1 IF OPEN
YES IGNORES THIS OCB
TEST UCB3 TAPE FOR 1
•••
IS MOUNT HSG BIT ON
•••
18 ..
79
80
81
82
83
84
85
86
81
88
89
90
91
92
f24JUNE66 10107/66
SOURC EST ATE filE NT
•
•••
YES GOES TO RO LABEL
NO IGNORES THIS DCB
IS NSL BIT IN JFCe ON
•
•
•••
AND CHECKS THE NEXT OCB
CLI
BE
JF CB L TYP, X' 04 '
BLOGIC
2
CHECK NSL BIT IN JfCB
GOES TO • MY , ROUTINE
•••
••• SET UP THE MOUNT ~SG TC BE USED IN IGG0190B - SEE WTO MACRO
•••
HOVE IN SKELETON MSG
MOUNT
MVC
DXCCW4(18J .MSSG
MOVE UNIT NAME TO MSG
OXCCW5+6(3) .UCBNAME
MVC
MOVE VOL SER NO fROM JFCB
MVC
OXCCW6+2(6J ,JFCBVOLS
•••
••••••
TEST TO SEE IF THERE ARE MORE DCB'S OR IF WE'RE FINISHED
•••
FIRST BYTE IN CURRENT DCB
en ALOGIC
LTR
10,10
94
BM
ELOGIC
95 •••
96 •
INCREMENT GEN PURPOSE REG 1 AN~ 8 BY 4 AND 8 TO GET TO
91 •
NEXT 'OCB' IN THE LIST Of DCB'S ANO THE
98 •
N~XT 'WORK AND CONTROL BLOCK AREA' RESPECTIVELY
qq •••
1.4(0,7)
INCREMENT XR1 BY 4
LA
ICC
8,8(0,8)
INCRE~ENT XR8 BY 8
LA
101
GO TO CHECK NEXT oce
102
B
DLOGI C
103 M(lONAME DC
CL8'IGG0190B'
104 WTO
~HO
'HOR ON XXX CHECKS' ,MF=L
105+ WTO
OF
OS
106+
AL2(IHB0002-*) MESSAGE LENGTH
DC
AL2 (0)
101+
DC
108+
C'HDR eN XXX CHECKS' MESSAGE
DC
it
109+IHB0002 EQU
110 •••
MY ROUTINE
111 •
112 •
WE SET THE HIGH ORDER BIT IN 'STREOMCT' IN THE DCB TU ZERO
113·
MY ROUTINl AT OPEN TO HANDLE INPUT HDR
LCC
OBJ ECT eOCE
ADDR 1 ADOR2
STMT
SOURCE S TATE ~E NT
114 •
115.
116 •
111 *.*
000091 00
000092 947F C023
000096
00009A
00009E
0000A2
OOOOAS
50BO
9202
9220
C201
C103
C0023
A170
00110
B170
00170
B174
00174
B176 3146 00176 00158
B114 ill14 00114 00114
OOOOAE 4110 BI18
000082 OAOO
C0118
0000B4
000088
OOOOBC
OOOOBE
0000C2
00114
ceool
4110
4100
OAOI
951F
4180
BI14
0001
AI14
30C4
0000C6 0700
0000C8 41FO 30BE
OOOOCC 80
ooooce 000100
000000 5810 30HA
000004 DADO
000006 D504 BOOO
OOOOOC 4770 310A
OOOOEO 0509 BOl4
0000E6 4170 310A
OOOOEA 0214 4034
OOOOFO 0202 403F
0000F6 4110 4034
00114
00006
OOOOC
ccoec
314A 00000 0015C
OOllC
8064 00014 00064
OOllC
l06A 00034 CC01C
COOO 0003F COOOD
00034
OOOOFA OA23
OOOOFC 0201 8176 3148 00116 0015A
000102 C103 A114 8114 00114 00114
000108 4110 B118
00010C OAOO
00118
00010E
000112
000116
000118
00114
COCCI
4110 B114
4100 0001
OA01
41FO 3050
00011C 9680 C023
00011C
C0062
00023
PAGE
3
F24JUNE66 10/01/66
IF HE DETER~INE VIA 'OS NAME' AND 'IHDR' THAT WE'VE ~RONG
TAPE ~O~~TED WE WILL PUT A ONE IN THIS BIT WHICH INDICATES
TC THE CO~TRCL PROGRA~ THAT A MOUNT MSG IS IN ORDER
TURN BIT 0 TO 0
118 SLOGle
NI
SRTEO"'CT,X'7F'
119 ***
SUI LD THE CC W
120 •
121 •
NOTE THAT THIS IS NCT A GENERALIZED ROUTINE TO BUILD CCWS
122 *.*
1l,DXCChl
READ AOOR TO CCW
ST
123
o XC C WI, X' 02 II
124
MVI
READ
FLAGS
MVI
DXCCWl+4,X'20'
125
MVC
DXCCW1+6 (2) ,=H' 80'
COUNT
126
XC
DXECB ,OXECB
RES ET ECB
121
EXCP DXIOB'
128
129+
LA
1,OXIOB LCAD PARAMETER REG 1
130+
o ISSLE SVC FOR EXCP
SVC
WAIT FOR COMPLETION
WAIT ECB=DXECB
131
132+
LA
I,DXECB LCAD PARAMETER REG 1
133+
0,1(0,0) CCUNT OMITTED,I USED
LA
134+
SVC
1 LINK TC "AIT ROUTINE
DXECB,X'7F'
ERROR CHECK
CLI
135
136
BE
CHECK
READ OK
ERROR ON READ
137
ABEND 256,DU'-P
138+
CNOP 0,4
*+8 BRA~CH AROUND CONSTANT
139+
B
140+
ALl(12B) DUMP/STEP CODE
DC
141+
AL3(256) COMPLETION CODE
DC
1,.-4 LOAD CODES INTO REG
142+
L
13 LINK TC ABEND ROUTINE
143+
SVC
144 CHECK
DXLBL(5),=CL5'lHDR '
CLC
145
ERROR1
BNE
DXLBL+20CI0),JFCBDSNM
COMPARE TO DSNAME
CLC
146
8NE
ERRCR2
147
MSG, WTC
MVC
148
MSG+11(3),UCBNAME
MVC
149
LA
1,MSG
150
MF= (E , ( 1 ) )
WTO
EXECUTABLE INSTRUCTIONS
151
152+
35 ISSUE SVC
SVC
DXCCWl+6(2),=H'I'
MVC
153
COUNT
XC
DXECB,DXECB
RESET ECB
154
TO POSITION TAPE PAST rAPE MARK
155
EXCP DXIOB
156+
I,OXIOB LCAD PARAMETER REG 1
LA
o ISSUE SVC FOR EXCP
151+
SVC
WAIT ECB=DXECB
WAIT FOR COMPLETION
158
159+
1,DXECB LCAD PARAMETER REG 1
LA
0,110,0) COUNT OMITTED,l USED
160+
LA
161+
SVC
1 LINK TO wAIT ROUTINE
READ OK
162
B
AlOGIC
163 •
164 * ••
165 •••
SET THE '~OUNTING MESSAGE' BIT ON
166 * ••
167 ERROR2
SRTED",CT, X'SO'
TURN BIT 0 TO ONE
01
168 ERRORI
EQU
ERROR2
MY
..,a"
LaC
ROUTIN~
CeJECT COOE
AT OPEN TO HANDLE
ACORI AOOR2
000120 47fO 303£
C005e
INPUT HDR
S TMT
SOURCE STATEMENT
169
41FO B1C8
41BO 3062
1814
98CE 4028
982A 4000
00 1C e
CCC74
000136 4100 OOFO
00013A OAOA
CCOFC
00013C 50BO FOOO
000140 OA07
cecoc
000142 00180000
000146 C9C5C3FIFOFIC140
I
MOUNT
B
C0028
COOOC
171
172
173
174
•••
•••
•••
ELOGIC
115
116
171
118
119
-..0
F24JUNE66 10/01166
110 •
000124
000128
00012C
00012£
000132
»
PAGE
000000
000000
000034
~
RETURN
LA
lA
lR
lM
lM
15,DXCCW12
PTR TO SUPV PARAM LIST
PTR TO XCTL MOONAME
1,4
AREA TO BE FREED
12,14,REGSTCR+40
RESTORE REGISTERS
2,10,REGSTGR
RESTORE REGISTERS
FREE~AIN R,lV=240,A=(lt
USES REGISTERS 0 AND
LA
0,240(0,Ot lOAC LENGTH
SVC
10 ISSUE FREEMAIN SVC
XCTL EPlOC=(lU ,SF=(E,(15»
USES REGISTERS SPECIFIED
ST
11,0(0,15) STORE IN SUP.PARAMLIST
SVC
7 ISSUE XCTl SVC
II,MCDNA~E
180+
181+
182
183+
184+
185 •••
186 ••• CONSTANTS - - MSG TO BE MOVED TO OXCCW4 AND THEN USED BY IGG0190B
187 •••
188 M SSG
DC
X'00180000'
189
DC
C'IEClOlA M YYY,'
190 •••
191 DYNAMIC DSECT
192 REGSTOR OS
13f
193 MSG
OS
Cl21
194 •••
195 .•••
196 •••
197
DCBD DSORG=PS,DEVD=TA
199 ...
2eo+-
000000
202+IHADCB
DCB SYMBOLIC DEFINITION FOR
PHYSICAL SEQUENTiAl
OSEC T
204+-
DEVICE INTERFACES
207+·
000004
000004
000008
000008
OOOOOC
000010
000011
000012
000010
000010
000011
000011
000014
209+
210+0CBNERRS
211+0CRNOI SE
212+DCBUERRS
213+0CBBLKC T
214+0CB TR TCH
215+
216+DCBOEN
211+-
MAGNETIC TAPE
ORG
OS
OS
OS
OS
OS
OS
OS
21(H
ORG
220+DCBKEYlE OS
22l+0CBDEVT os
222+DCBREl
os
223+0CBBUFNO os
IHAOCB+4
F
OBLI
F
F
BLl
BLl
BLI
ACCESS METHOD COMMON INTERF1.CE
IHADCB+16
BLl
OBll
Al3
OBll
MY ROUT I Nt.: AT OP EN TO HANOL E INPUT HOR
."
0..,
LaC
000014
000018
OOOOlA
OOOOlC
OBJ ECl COOt-
AOOR 1 AOOR2
STMT
PAGE
SOURCE S TA TE ME NT
224+0CRBUFCB OS
225+0CBBUFL OS
226+0CBO SORG os
227+0CBIOBAO os
000020
000020
0000;1"
0000~~
000024
FCUNOATION EXTENSION
231+0CBBFTEK OS
232+0CBBFALN os
233+0CBEOOAO OS
234+0CBRECFM os
235+0CBE XL S T os
OBLl
oall
A
OBll
A
FOUNOAT I ON BEfORE OPEN
238+000028
000028
000030
000031
000032
»
"'0
I
0
0-
240+
ORG
241+0CBOONAM os
242+0CBOfLGS os
243+0CBIFLG os
244+0CBMACR os
IHAOCB+40
CL8
BLl
BLl
BL2
246+000028
000028
00002A
00002C
00002C
000030
000030
000030
000030
248+
249+0CB TI OT
2~0+OCBMACRF
251+0CBIFLGS
252+0CBOEBAO
253+0CBREAO
254+0CBwRl TE
255+0CBGET
256+0CBPUT
FOUNDATION AFT ER OPEN
ORG
os
os
os
OS
os
os
os
os
IHAOCB+40
BL2
BL2
OBll
A
OA
OA
OA
OA
QSAM-BSAM-BPAM COMMON INTERFACE
258+000034
000034
000034
000034
000034
000038
000038
000038
00003C
00003C
00003t
00003E
000040
000040
000041
000042
000043
000044
260+
261+0C80PTCO
262+0CBGERR
263+0CRPERR
264+0CBCHECK
265+
266+0CBIOBL
261+0CBSVNAO
268+
269+0C8CINOl
270+0CBCIN02
271+0CBBLKSI
272+
273+0CB~CPO
2 74+0CB wCPL
275+0CBOFFSR
276+0CBOFFS~
217+0CBIOBA
279+-
F24JUNE66 10/07/66
A
H
BL2
A
229+-
ORG
os
os
OS
os
ORG
os
os
ORG
os
os
os
ORG
OS
OS
os
os
os
5
IHAOCB+52
OBll
OA
OA
A
IHAOCB+56
OBll
A
IHAOCB+60
BLl
Bll
H
IHAOC8+64
Bll
Bll
BLl
BLI
A
BSAM-BPA~
INTERFACE
MY ROUT
."
-
0
"""
LOC
I~E
a eJ ECT CODt
00004ti
000048
00004C
000050
000052
000054
000054
000054
000054
PAGE
AT OP EN TO HANOL E INP Ul HDR
AOO~l
AflOR2
STH T
SO lJRC f S TA TE HENT
281+DCANCP
282+DCBEOBR
283+DC8EOB W
284+DCBDIRCT
2dS+DCBlRECL
286+
281+DCBCNTRL
288+0CBNOTE
289+0CBPOINT
DS
DS
os
DS
DS
ORG
DS
os
DS
f24JUNE66 10/01166
OBll
A
A
H
H
IHADCB+84
OA
OA
A
291+.
»
000048
000048
000048
00004C
00004C
000050
000054
000054
0OO05A
00005A
OOOOSC
-<>
I
0
""-J
000000
293+
294+0C BLCC ~
295+0CBEOBAD
2 96+0C BCCC W
291+0CBRECAD
298+0CBQSwS
299+
300+DCBEROPT
301+
302+0CBPREC l
303+0CBEOB
elSAH I NT ERf ACE
ORG
DS
OS
os
DS
DS
ORG
DS
ORG
DS
OS
IHADCB+12
OA
A
OA
A
Al2
IHADCB+84
OBll
IHADCB+90
Al2
A
305 •••
3C6 •••
307 •••
308 SYMWACBA DSECT
309
EBC2
311+.
000000
000050
313+0XlBl
314+
000064
000090
0000 A6
0000A1
OOOODA
0000F8
316+.
311+JFCBOSNH
318+
319+JFCBl TYP
320+
321+JFCBVOLS
322+
VCLUME LABEL
DS
DS
DS
DS
os
DS
os
DS
Cl80
Cl20
JCB FILE CaNT ROl BLOCK
CL44 DATA SET NAME
Cl22
Cll LABEL TYPE
CL51
CL30 VCLU~E SERIAL NUP'BERS
Cl28
324+.
000114
000114 00000000
326+0XfCB
327+
EVEf'.,IT CONTROL BLOCK
DS
DC
OCl4
X'OOOOOOOO'
329+.
000118
331 +OXI OB
I t-.PUT IOUTPUT BLOCt<.
DS
Cl40
333+.
000140
00015C
335+
DS
336+0XOEBUCB OS
DATA
CL28
F
6
EXTE~T
BLOCt<.
MY
"
-
Q
...,
LOC
ROUTIN~
C BJ ECT COOf
000160
AT OPEN TO HANDLE INPUT HDR
ACOR 1 ADOR2
STM T
PAGE
SOURCE S TA TE
331+
OS
~E
NT
00016C
341+
DATA CONTROL BLOCK
OS
CL4
CHA~~El
343+000110
000110
000118
000188
000190
000198
000 1 AO
0001C8
000000
000000
oooooe
»
"'0
I
0
00
000010
000014
000023
000024
000000
000158 0050
00015A 0001
00015C FIC8C4C940
34')+
346+DXCC w1
347+
348+0XCCW4
349+0 XCC w5
350+0XCC w6
351+
F24J UNE66 10/01166
C1l2
339+-
1
CONTROL WORDS
0,8
352+0XCC~12
CNUP
OS
OS
OS
OS
OS
OS
OS
354 SYMl;CB
35')
356+
351+ UCBNAME
358+UCB TYP
359+
360+ SR TEDMC T
361+
362
363
364
365
OSECT
EBC1
OS
Cl13
CL3 U~IT NApotE IN EBCDIC CHARACTERS
OS
OS
XL4 DEVICE TYPE
OS
Cl15
XU MOUf\T BIT IN HIGH ORDER BIT
OS
OS
Cl32
END
NSLOHORI
=H'80'
=H '1 •
=CL5' 1HOR •
0
C1l6
0
0
0
CL40
0
CROSS-REH:RENCE
"..,
0
SVfo1SCl
ALOGIC
BleGIC
CHECK
DceeFALN
CCfAFTEK
cceBlKCT
cceelKS I
DceeUFCB
cceeUFL
cceeu FNC
ocecccw
CCBCHECK
DCBCINel
ocec UIIC2
OCBC~TRl
»
-.0
I
0
-.0
DceODNAM
cceDEBAC
DceDEN
DC eCEVT
CCBDIRCT
CCBOSORG
CCBEOB
OCBEOBAC
DCBEOBR
DCBEOB\Ii
OCBEOCAC
OCBEROPT
OCBEXlST
CCBGERR
DCBGET
DCBIFlG
DCBIFlGS
DCBIOBA
DCBIOBAC
DCBIGBl
DCBKEYlE
CCBlCCW
CCBlRECl
DCBMACR
DCBMACRF
OCBNCP
DCBNERRS
DCBNOISE
OCBNOTE
CCBOFFSR
DceOFFSW
DCeCFlGS
DCBOPTCC
CCBPERR
DCBPOINT
OCBPRECl
DcepUT
DCBQSWS
DCBREAC
DCBRECAC
DceRECFfo1
LEN
V AllJ E
DEFN
00002
00004
00006
00001
00001
00004
00002
00004
00002
00001
00004
00004
00001
00001
00004
00008
00004
00001
00001
00002
00002
00004
00004
00004
00004
00004
00001
00004
00004
00004
0000 1
00001
00004
00004
00001
00001
00004
00002
00002
00002
00001
00004
00001
00004
00001
00001
00001
00001
00004
00004
00002
00004
00002
00004
00004
00001
000062
000092
00UOC6
000020
OOOOlO
OOOOOC
00U01E
00U014
000018
000014
OOUOItC
000034
OOOOlC
000030
000054
000028
00002C
000012
000011
000050
00001A
00005C
000048
aoon48
000(l4C
000020
000054
000024
000034
000030
000031
00002C
000044
0000lC
000038
000010
000048
000052
000032
00002A
000048
000004
000008
000054
000042
000043
000030
000034
000034
000054
00005A
000030
0000150
000030
OOOOItC
000024
0093
REfERENCE S
CU:2
OllM
coe3
0144
0232
0231
0213
0211
0224
0225
0223
0296
02t4
0269
0270
0281
0241
0252
0216
0221
0284
0226
0303
0295
0282
0283
C136
02~3
03eo
0235
0262
0255
0243
0251
0277
0227
0266
0220
0294
0285
0244
0250
0281
0210
0211
02S8
0275
0276
0242
0261
0263
0289
0302
0256
0298
0253
0291
0234
006e
C066
PAGE
1
10/07/66
CROSS-REFERENCE
-C
-
..,
0
»
--0
I
0
SY~BOl
DCeREl
DCBSYNAD
DceTlor
DCBTRTCH
DC flU ERRS
oceWCPl
CC ew CPO
DCeWRITE
OlCGIC
ex CCW 1
OXCCW12
DXCCW4
OXCCW5
eXCCW6
ex CEBUCB
DXECB
eXICB
OXl8L
CYNAMIC
ElOGIC
ERRORI
ERROR2
IHADCS
(HBOO02
JfCBeS~M
JfCBlTYP
JfCBVOlS
MOONAME
~OUNT
MSG
MSSG
NSlOHORI
REGSTOR
SiHEDMCT
SYMUCB
S YMWACBA
UCBNAME
UC8TYP
WTG
LEN
00003
00:)04
00002
00001
00004
00001
COOOI
GC004
oe004
00008
00008
0{)008
00008
00008
00004
00004
00040
00080
(JOOO 1
00004
00004
00004
00001
00001
OD044
00001
00030
00008
00006
00021
00004
00001
00004
00001
00001
00001
00003
00004
00004
VALUE
DEFN
0000 11
000038
000028
000010
000008
000041
000040
OOUOlO
OOOOlC
000170
00ulC8
000188
000190
000198
OOOlSC
00ul14
oou 118
000000
000000
000124
OOOllC
OOU llC
000000
000091
000064
0000A6
OOOOOA
000074
000050
000034
000142
OOUOOO
000000
000023
000000
000000
000000
000010
00OD1e
0222
0267
0249
0214
0212
0274
0213
0254
0053
0346
0352
0348
0349
0350
0336
0326
0331
0313
0191
0114
0168
0161
C202
010tj
0311
0319
0321
0103
0081
0193
0188
0002
01<12
0360
0354
030b
0357
0358
0105
PAGE
REFERENCES
01e2
G123
C114
0087
COB8
0089
005'>
0121
0129
0144
10/07/66
0124
0125
0126
0153
0127
0156
0146
0132
0135
01~4
0154
0159
e16a
0209
0219
0240
0248
0260
0265
C061
0149
0073
0150
C016
0169
0178
C1l8
0167
0032
CO'74
C145
G147
00]3
01e6
0146
0082
cce<1
0115
0061
C148
COB7
0362
0177
0015
CC35
0034
OOBa
C012
0148
0149
NC STATEfo!ENTS FL AGGED IN THIS ASSEMBLY
449 PRINTED LHU:S
2
0268
0212
0286
0293
02<19
0301
F-LEVEL LINKAGE EDITOR UPTIONS SPECIFIEO--NCAL
IfWOOOO
NSLCHORI NOW R~PLACFD IN DATA SET
"
Q
'""'I
»
-.0
I
HF285 I
If.F2851
IEF285I
IEF285I
IEF285I
IEF285I
IEF285I
IfF2851
IEf285I
If F28 5 I
If:F285I
HF2851
SYS 1 • ~ All I R
VOL SER NOS= lllltl.
I
0
0006EO
000100
000720
000740
000160
000780
0007AO
0001(0
0007EO
OOOHOO
000820
000840
000860
000880
0008AO
0008CO
0008EO
000900
000920
000940
000960
000980
0009AO
0009CO
0009EO
OOOAOO
000A20
000A40
000A60
000A80
OOOAAO
OOOAeo
OOOAEO
OOOBOO
000B20
000840
000660
000B80
000B40
OOOBCO
OOOBEO
OOOCOO
000C20
000C40
000C60
000e80
oooeAO
OOOCCO
OOOCEO
000000
000020
000040
000060
000080
OOOOAO
41500800
47EOOB7A
43A20020
0003410A
48105068
07E00201
017e4160
58A05074
05022015
477007EE
91C0402C
084647EO
OF2A02CO
58F3001C
43670005
IB994017
092E913E
1006<1120
00089417
700647F8
20199108
302047fO
20004110
OA020501
91043008
A0084lAO
08F647FO
020250fl
47F0089C
09324710
7006940F
20004110
51EOOIFA
40100000
47100AA4
018E4060
58C9COOO
00484410
82000070
46900802
00454170
18A68C60
52264860
OC6C58F3
90006000
51039420
91800044
910C0044
10069120
00069604
45E00848
9F006000
5102"710
91801006
00412009
lA551821
IBC;<118A9
89A090CO
51FE07Fe
12114140
506810CO
07AC48AO
439ACOCO
50914780
41800020
41800830
08280201
50A82018
58FF 0004
<;CC06000
0014<14B7
00454170
00444118
70064188
C0089110
20C041AO
086CCH 10
09AC0201
7031A004
47800A02
500SQ202
OAAA40AO
20119101
58F3001e
OAAA9110
200041EO
086258A2
41070028
4010C002
184018BA
000207FE
01FF4180
50FC58FO
41EC002C
"lAOOO 7F
089C4180
00088810
003A9120
001C58FF
41200050
10069108
41100E40
47800C02
20004710
20CC05EF
91202001
41COOOC 0
006C18EC
41800E40
946F2001
92805102
91FE3010
587A3020
4012001E
07(04071
91022000
000607FA
92FOAOOO
018258AO
47FOOB6A
91202-000
200e 1014
4LA050A8
05EF4 7F 0
4720093E
700696AO
00809110
00049606
00044 7F 0
2C004710
50( 64180
20014710
70302020
47700A64
05017035
509C45eo
50E21BAA
2C004780
58fFOOOO
00444110
OF564391
00189101
41FOOAf 8
02011000
48480000
58620004
001045fO
001058FF
58830014
89AOOO18
003C 9200
001e4366
70064780
000805EF
40900044
00444180
91020044
43970007
OF2E58A3
41FOOO 18
47100BA4
91805102
41C00404
91030044
941F 1006
41COO148
4770011C
91FF7002
01082008
00029023
41100198
41FOOIB8
800050A4
50980501
418001A(
47880008
94EFI006
41C00804
089C41 EO
05A088AO
70069130
00444710
70069140
OE4045EO
08620202
091(41AO
OAB641A7
1BAA43A7
05031033
A0084740
08144110
43A70030
OA540202
05EF41FO
08FA41FO
00074849
20004110
41F004FO
506AOIFE
124A074E
43A20004
OB589200
00348910
58CBOOOO
56F05078
51021699
52161461
OC 744811
91FF0044
91402001
00100206
47100fOO
484951E4
001C58FF
47FOOO24
02011000
41100188
47F00738
47800C9C
41FOOC8E
IBl11804
48730022
47EOOBIA
20080403
100418AO
91C0402C
41F0080e
80000018
A0021002
91111006
43910001
45E0081C
9200509C
00244390
001842A2
201005C(
08 FE45EO
00444718
08249240
50012011
50C00200
00319102
003089AO
A0064140
09FC0501
0&lA9000
89AOOO04
50F120 19
OA9A41FO
OA1A41EO
51E047FA
OA0658A2
41010028
48 Ao0002
19A14110
89AOOO 18
1006180C
001007FF
41880004
01FF4290
IB114860
43665216
00149823
47700C6C
4110009E
20090041
91310045
05 EA9120
AOO09103
41 FOO056
50684010
58 A0508C
91207006
02017014
910EOO45
58420011t
91701012
58820004
200050f4
02001004
41100FfA
45EOOAOA
429AOOOO
47700182
4710083A
48A951E2
921E2004
50AOO048
509C48AQ
00104061
18E84780
062441fO
00089680
20029202
91012000
50e070l8
70064110
000441AA
OA640503
1035AOOC
600041BO
43AA3020
50AOO048
OA9247fO
002047FO
000841Al
001047FO
47F00824
401AOOOO
OB260201
58F05018
181M7fO
50100118
18990100
51010100
003A0500
54405004
10045842
91310045
91801004
91040044
47100F04
10064180
200C4710
47FOO03A
506892fF
01FA921F
411000A8
00449610
41100894
5831t002e
4I80012e
lBAA43A 1
927F2004
AOI09101
91e81006
58A05088
92805102
41AAOOOC
91022000
01fA9110
02012002
91202000
513001FA
00045890
08249130
OC8694FO
70069184
200C47FO
478C0962
921650C8
OA2640AO
30209108
1033AOOA
41COOA02
OA129602
42A050Eo
41e00804
09AC9130
OAAA9242
003C47FO
086C4391
91010001
47F00804
80001000
43910004
081E4110
4060003A
51018000
80005101
004450fE
1A661AAA
00149180
41800050
4180OC86
4180OCAO
95500044
003A41FO
00029171
91042000
100401F8
200441C8
91040044
100647FO
41BOO080
PAGE 0001t
910f3018
439300le
OO0A89AO
50180000
10014110
41eOO184
181201FA
41fOO160
9501AOOl
47100830
10064710
101647FO
4110089C
92000048
50840589
20104710
100691t56
00"44188
OF 049459
02025001
0200AOOO
500A9101
20014110
41200A64
02011035
700641EO
41A050EO
96061006
201041E 0
200494FE
OA549110
00074849
41800810
91207012
91011001
58COS06C
004041EO
92OF0073
43905101
01fE910E
47800004
lAA6487A
00454780
43900045
04010044
941f7006
41800F16
000C9498
20004180
411 00F22
47000000
00049180
41800C40
OC9C0606
4180086A
-a
0
"""l
»
-.0
I
tv
OOOOCO
OOOOEO
OOOEOO
000E20
000E40
000E60
000E80
000 EAO
OOOECO
OOOEEO
OOOFOO
000F20
000 F40
000F60
000F80
000 FAO
OOOFCO
OOOFEO
001000
001020
001040
001060
001080
0010AO
0010CO
0010EO
001100
001120
001140
001160
001180
0011AO
0011CO
0011EO
001200
001120
001240
001260
001280
0012AO
0012CO
0012EO
001300
001320
001340
001360
001380
0013AO
0013CO
0013EO
001400
001420
001440
001460
001480
45EOOE2C
07FE4817
98231004
41FOO03C
94AE1006
4180003A
91040044
91801006
47400EOO
92101016
45EOOEAO
10069120
20044780
9640402C
70124780
96011003
06F24861
200041FO
07AC41FO
C00458BC
4180004A
08000000
000004C8
00003FFF
00000000
07001405
00000004
00001F30
60004180
45EOOOEE
47F05108
519647FO
45EOOOEE
OAF80A8E
llFEOOOO
00101216
12181290
0080FF88
00010000
10000808
0080FF80
00000000
0000C100
30008001
0040FF88
F2401081
30008001
0040FF80
00000000
00F1F9FO
FFFFOAF8
00000000
0191000C
028A0100
0803FA38
91805102
002891C6
58420014
41FOOO04
43(17000B
58A4COOC
01889lAO
41lCCFOC
413COB66
92FF 7011
41FOCOI0
20C44180
OF 56951E
40730012
OF9C S8FO
41EOOO 3A
C0045460
COOC4180
OFF29601
00044710
50800048
OOOCCOOI
00004040
FECOCOOO
60000001
60000006
OOCOCO()O
COCOCO()O
081007FC
41F0515C
48105256
518C0201
41F051CC
OE5AOAF8
l134FFFF
19COCOOO
12AtH2CO
OOOCOOOO
00fOFOC4
15484000
00400000
OOOOCOOO
OOCOCOOO
15484024
0181C006
OOOCCOOO
15484024
01830006
oococoao
30C02001
COOOCOOO
OOOCCOCO
010B0100
FFFF1464
OOOOCOOO
411 OOOOC
7006411E
41800E20
18E007FE
58F9511C
4AA 200 1C
51024748
4lA10016
90006000
91100044
41FOOCOE
0020943F
20049244
02011002
507C05EF
01FAOOOO
50A04180
OCEA91CO
100641E 0
o 018588C
«IC OOAOOO
1548FFFF
000003A2
00000000
280010CO
1FOOI0EO
00000F14
000050A8
41600200
47FOO048
4SE 000E2
5212520E
41FOO048
09460E 5C
1206FFFF
00000000
12E 81310
00000000
10000802
0080FF82
66040010
0080FF 80
00000000
03000000
09070100
00000000
03000000
09090100
00000000
15300020
60000801
00000000
OOF IF 'IF 1
FFFFOAF 8
OOOOOCOO
8000A002
00041211
9120S102
41A051F2
58A05094
SOA4000C
0004940F
50A050B8
41BOOEC8
411 OOEBC
96402001
402C910C
20044180
525C41FO
41F05006
00000000
00049120
402C41EO
00044107
000C48A8
50000046
000004C8
0000029C
60000006
60000001
60COOOOI
00000F14
000050C8
9F 006000
48705252
47F05108
4100520E
02010004
OAE40986
113AffFF
00000000
13401310
80FOFOC3
00000000
001FOOOO
00FOF4FO
00410000
00000000
03C103FO
00F1F8F1
00000000
E3C101C5
00F1F8F3
00000000
00C80000
F6000000
00000000
30002001
00000000
00000000
80000078
414EOO04
47800810
S060509C
05EF4811
41FOOCOA
100645CO
92045088
910F0045
91207006
41 FOO03A
402C4180
OFS69241
OF9C9102
47FOOFOE
41500800
20004180
OF3641FO
002841FO
00044180
82000042
OOOOllEO
00002E84
03000000
080059CO
0803F100
00000F14
08240AAA
41800810
45EOOOE2
0201S20A
48105212
100058EO
OE14l156
00000000
00000000
13A01304
10000801
0080fF88
04030004
10001003
660S0010
0040FF88
FOF1l801
30008001
0040FF88
F3401001
30008001
07000700
f1F1FIF1
lAOOOOOO
00000000
15300020
45000602
00000000
47000000
48110002
4SC00738
4390S09E
001441fO
91041006
013841EO
41A0S088
4110089C
4180003A
01fE9106
OF129130
200441EO
20004110
41FOOF9C
lA5592AO
OFOE91C6
001041FO
OAOA5880
01FF14A8
00000000
00000268
000004EO
20000006
OOOOOOOf
C2010000
00000Fl4
186647FO
07FC4100
41F051D8
52064100
41E051AC
50F801FE
8000116C
1148010't
00000000
143C1"A4
15540000
000E8000
00FOFIC6
00000000
OOFOF"F 1
01800006
00000000
15484024
01820006
00000000
00000000
0040FF8E
F1FI0801
10000005
00000000
00C80000
00000000
00000000
45E ODE2C
91C47006
41C00E28
89900002
OCA801fE
011E9106
000448A1
50AOO048
91020044
02012002
10064140
20004770
OFF29102
OF7E9640
41FOOE96
51025821
100641FO
OCEA9248
001058C8
9000AOOO
01060000
000029AA
00001530
040012A6
01001405
00001196
00000F14
08104160
S1FEldl0
48105254
52064810
47F0518C
't8110000
400011A6
00000000
OOOCOOOO
1508FFFF
0080FF80
01020000
10000820
000OC700
10001003
09060100
00000000
03000000
09080100
00000000
00000000
0190000C
03660100
0803F478
01000100
F2F2F2F2
lAOOOOOO
OOOCOOOO
PAGE 0005
48EAOOOO
071E 180£
47F007A6
lAA907FE
91201006
1006018E
002E01FA
9(006000
47800EE 8
101601FE
00509409
00B09120
2COO011E
402C 9120
58A05094
000't45CO
019C 9104
20044180
00649180
41100022
oeoooooo
00004038
OOOOOOOE
20000006
20000006
80002000
00000F14
01009FOO
48110000
45EOOOE2
520A4lE 0
50E 050F 8
41FOOOE6
2000FFFF
00000000
00001260
12520000
00000000
4OfOFOC5
15540000
00000000
00000000
OOF IF 8F 0
00000000
E3C101C5
OOF IF 8F2
00000000
00000000
010"0100
FFFFl1FC
00000000
004OfF84
F2F20800
10000005
00000000
."
-
Q
...,
»
-.0
I
"->
"->
0040FFCO
01000100
E3C5E2E3
E503COOO
oocoeooo
00000000
00000000
eooooooo
OOCOCOOO
0000C100
00C091Fe
FF009108
FFC3FC5e
001~60
156e1304
001580
00000000
15900000
OOCOCOOO
0015AO
FFOCOOOO
FFOCCOOO
15eeoooo
0015eo
00000000
15FCCOOO
0015EO
001600
FFOOOOOO
OOCCOOOO
FFCCCOOO
162COOOO
001620
00000000
165COOOO
001640
FFOOOOOO
001660
OOOOCOOO
FFcocoeo
168COOOO
0016HO
16BCCOOO
00000000
0016AO
FFOOOOOO
oecccoeo
0016CO
FFooooeo
16ECOOOO
0016EO
FFFFOOOO
ooooooeo
001100
00000000
00CC0020
001120
OCCCCOOO
001140
00000000
LINES 001760-001180 SAME AS ABOVE
05E01840
18514155
0017 AO
20241233
E0445830
0017CO
E0241813
000047FO
0017EO
01F091CO
1t140E064
001800
40008008
4780E08E
001820
001441FF
COC0155F
001840
4500E lIE
5880202C
001860
50501014
10llE146
001880
300A4110
00249110
0018AO
9180800B
12880780
0018eo
80CC0028
00080000
0018EO
00805540
10004140
001900
41FOE014
88400001
001920
COOOOOOO
00000000
001940
00001299
0024581f
001960
002C 12CC
E01C58C2
001980
50C2002C
4710EOAE
0019AO
5873004C
1842182B
0019CO
00140203
802650A5
0019EO
02CFA060
9640COOB
OOlAOO
4110E 154
50120070
001A20
41E3C050
A06BB010
001A40
COOB4180
E202914-0
001A60
10C00207
071FI000
001A80
IFE35830
41300156
001 AAO
91402000
58240060
001ACO
4060E208
OAOA0502
OOlAEO
40680202
02071010
001 BOO
41230050
41110060
001B20
01211000
OAOA18Fl
001B40
80COCOA8
80000048
001860
41205060
920C5009
001 B80
0014AO
0014CO
0014EO
001500
001520
001540
0192000C
00010100
oeoooooo
0020FF 80
00000000
15301290
C0002EE 8
FFOOOOOO
15B40000
OCOOOOOO
FFOOOOOO
16140000
00000000
FFOOOOOO
16140000
00000000
FFOOOOOO
1601t0000
00000000
FFOOOOOO
00000000
00000000
010COI00
FFFFFFFF
00000000
02EOOOOO
000050E8
FF 03Fe30
15780000
00000000
FFOOOOOO
15D80000
00000000
FF 000000
16380000
00000000
FFOOOOOO
16980000
00000000
FF 000000
16F80000
00000000
00000000
OOCOOOOO
00FIF9F2
FFFFOAF8
00000000
65000210
15541304
1003fC84
FFOOOOOO
159COOOO
00000000
FFOOOOOO
15 Feoooo
00000000
FFOOOOOO
165COOOO
00000000
FFOOOOOO
168COOOO
00000000
FFOOOOOO
00010000
00000000
00000000
30002001
00000000
00000000
00F2C5FO
FF03f13C
153C1304
00000000
FFOOOOOO
15COOOOO
00000000
FFOOOOOO
16200000
00000000
FFOOOOOO
16800000
00000000
FFOOOOOO
16[00000
00000000
00000000
00000000
00000000
00000000
00000000
00000000
30001002
00002EE8
Ff005598
15840000
00000000
FFOOOOOO
15E40000
00000000
FFOOOOOO
16440000
00000000
FFOOOOOO
16Alt0000
00000000
FFOCOOOO
1101t0000
00000000
00000000
00000000
PAGE 0006
00000000
00000000
OOCOOOOO
00000000
15601304
000055BC
fFOOOOOO
15A80000
00000000
FFOOOOOO
16080000
00000000
FFOOOOOO
16680000
00000000
FFOOOOOO
16C 80000
00000000
FFOOOOOO
00000000
00000000
00000000
00005820
4 720E 030
41110020
300A4780
58808000
4 780E OBO
5800E 142
58820024
Ell49610
07100507
04EOOOOO
E04A47BO
4440E 046
05E05830
4780E038
4 780E 06A
186F1BOO
05870000
50100060
F 00850C2
5CIAOO14
18FA98OC
EOAE91CO
1000eooo
00105863
4110E 1 BE
4780E lE2
10104010
90124054
1 COOO 7F 8
15400204
50204004
00105820
41FOOOOC
15574180
E01241FO
47FOE076
41FOOO14
4510EOCE
41920024
300A5013
40008000
00000000
E0364440
4780E044
00105823
4LC90008
02022020
4510E066
91FOAOOA
58A30088
00005800
0203AOI0
F020500F
COOA4780
02021009
00005866
50F20000
5800E21A
5014001C
58040020
5810E20E
E0020000
071F2000
20005822
OA034133
E0640740
00100A03
91E08012
OA0341FO
OAOA0727
90891000
00181BFF
4180E096
05E05830
E0464780
02032000
00005822
0507COOO
CO 100507
OAOA18F6
41C08010
07FA1824
E2164510
00600202
002458FO
f05E187F
E2210202
00045846
941F2000
4580E1FO
023F1020
1B110202
OAODOOOO
05605820
200058AO
0001t5830
00084500
48103008
58802024
41l0E09C
00040A03
10001000
12884180
OA030203
5880801C
00105830
E02E0203
300COA03
000458A2
10004-180
(00C1000
0207A060
5810818E
98AF5068
E:OCCOAOA
OOOOCOOO
000C8200
5800E212
1000COOO
00000502
96402000
02021009
402018FF
60714050
00030400
40045890
20005010
20005830
E0441t8 30
89700003
12884780
41FOOO08
58802000
02071008
EOFC5018
10203018
41880000
30005830
2000E04-E
91001008
0000588A
El105899
4170£05A
FOO090AF
OA0050A5
50ACOOIC
18010202
02040008
000891FO
4510E 132
18C 147FO
4061E208
4100004-8
E21E0202
50FI0024OA03181f
80406000
501C1222
200094-FO
301(4500
E13E5833
lA131551
EOB 60 507
OA 0358F 8
4500E lIE
40000202
00045012
47FOE lOC
41FOEIIE
30045820
1t122000400000002
001C5892
00OO4-7FO
9110e OOB
A068185A
00101tlAO
9200C OlC
A0502071
80100204C 00A4-110
OAOA 18F7
EOAE05EO
4780E 18E
5814-0024
10004060
58f 1000C
4510E 1F6
80000020
47106020
9011t0600
-0
..,c
»
-.0
I
f'V
w
001 BAO
001 BCO
001 BEO
001COO
001C20
001C40
001C60
001C80
001 CAO
001CCO
001CEO
001000
001020
00104Q
001060
001080
001 CAO
001OCO
0010EO
001EOO
001E20
001E40
001E60
001E80
001 EAO
001 ECO
001EEO
001FOO
001F20
001F40
001F60
001F80
001 FAO
001FCO
001Ft:0
002000
002020
002040
002060
002080
0020AO
0020CO
0020EO
002100
002120
002140
002160
002180
0021 AO
0021CO
0021 EO
002200
002220
002240
002260
90141000
02091008
00040040
00001211
E03ti4281
00041000
90AB0020
40003338
4180818A
58410000
80731B88
4720BOBA
50960000
IBFF47FO
80641288
820691CO
80089120
080891CO
119C4150
01F658EO
41500007
47C081C2
418081EA
5E210004
04CC91AO
58COOOI0
03474170
8910000C
00F141FO
94FIC080
C9C5C5Cl
00000001
000050FO
00000000
00508AAO
F0365810
41100020
F09A4780
00030040
18C041CC
4170F03E
4180F06C
00000200
00000000
58600050
10045045
05F05860
00009106
F09C9110
50110068
F19A5811
10004110
000C47FO
F18E1882
4E60F 116
18lAIBFF
603006CO
OOCC0020
4170E 0 lC
00141288
4AOICOI0
91F09012
COOCC3A2
92fOB087
4560B120
18171222
47C08084
91COI008
IH021886
4780BOEC
100841EO
100841EC
10084140
00C11A25
100BS8FO
14544770
18871873
1222018A
187847fO
10104150
58CC0034
F03C 588C
5610F05A
F02COOOO
07FE9180
E305EIE1
COO05194
1000A 902
OA220A03
00011FOA
303801FE
920AF099
F056910C
024AE062
00009180
9120C010
0203000C
0010801C
OOCOCOOO
8A 60000 1
00045054
00501266
100047CO
10C04760
18175071
000C1867
FOF05840
FOAA5810
96801000
96CFF ltD
80FF 6037
1011401C
FF050000
41FF 0004
077C 95E 0
89000003
071C5819
FFFFFFFF
92FOBOEO
91COI008
417080C4
1F921843
47E080A4
47F080C4
18585835
8 II 05 861
B20641FO
82044180
16251125
05B04140
82084144
58330000
15544780
B 1065853
B11841EO
o7FC 0000
00000207
5800F 056
OC002010
C08901lE
0104400C
0003FF30
00000004
00001F60
5E090008
18808880
IBAA50AO
F09947FO
00000006
COIE4180
4770F066
00240202
9200801C
00000000
13665E 60
00089680
07A25850
F03C1861
F 0780203
C0181811
5F60F 18E
FllE1881
F1921277
4520F 12A
02035038
OA030000
58F5005C
00000000
07FCD507
1012078C
0201E08A
00201211
00001BF2
41FOB03E
4710B044
189E5831
18821F2A
50860004
15A14100
00001865
00005866
000441FO
81405824
41220000
01181FB4
00001883
12334170
81F85034
00041E25
03A25800
00000000
B0100028
07F04110
800COOOO
9140F03B
00001FC4
00005918
00005804
00000180
4130F026
00015CAO
F09618CA
F0568800
00180000
F02A5800
501COOI0
0025F09B
0203000C
00002110
F1061366
10005550
00105810
41101060
1008F126
41110060
lE665E60
58880004
41AOF004
182841FO
F llA0203
98016034
50FI0014
05E01BFF
80001008
91401013
00205010
018C41fO
05801820
05B04140
129941AO
000041FO
10225833
47 FOBOA4
80C4181A
58A30004
00001516
03A25821
00049101
581004CC
58410004
41621t000
81 A61855
00005024
50230004
04CC181C
05F058CO
021fC030
00F241EO
58COO010
071E9680
00040022
00000010
60005616
05F05890
5500f086
F08E50AO
8CCOOO04
10001800
05fOltlFO
F0264100
9621C010
92000022
BO 140202
OAOOOOOO
5E61000C
F0420762
F19A9861
187FlBOO
02021001
13115850
00505060
95FF800C
1B7147FO
FOIC0203
100CF122
OAOA0203
50E50058
98COE092
4110EOOC
011C98A8
E0860AOA
E0444111
41C00808
00201F84
B04C9200
B086!)8A3
00001816
18195031
18561863
41423000
41408110
00005891
002141EO
58310018
45608120
41F08181t
15184180
0004501t7
01fA06CO
89100008
04CC91FO
01fC4810
03A241FO
S8CC003C
C0894110
40001FC6
000059FO
0003FF88
30585809
4140F02A
F0921808
4810F060
1t1fOF030
fOOAOOOO
OF0101FD
580COO18
98010418
8015F09B
00000000
41]OF020
41FOF048
10045061
OA0218F1
10650203
500405E5
00505010
1t180FOC4
FOD61Ellt
FI1A5038
41FOFOEO
101C501C
98015020
18B 01t114
18884381
100050A8
05E0989E
0003f588
18904560
92008081
B01341FO
0004419A
470080A2
00001B55
58330000
189341FO
12274180
00088990
81501299
1t1330000
581t40000
58530004
81021561
000001fA
PAGE 0001
5015001C
OA030100
00245811
00148180
0000508A
E OLE 18FF
FF040009
81401241
9200BOEO
B05092FO
3000152A
58610004
4lA08 lIt
12334160
801A4100
805041FO
000841t 0
4140820C
58£30001t
4lA0811C
1E531554
1t130820A
50380000
ObC006CO
ObC05810
1t3100023
025f4110
002A41EO
F02C41EO
9108C080
F0901311
00000000
0003E3A4
0000585E
00005E09
5EOOf08A
8A 100001
12881t180
C6122138
00001f60
00001016
92000268
98AOF08A
41FOF066
05F09180
18665061
It IFOFO 1t
00045016
181641FO
100C 101C
16119683
F18E41FO
5818000C
5010F192
4t=60F116
00000000
8910000C
f 04891F 0
0460180C
029t4110
4180f016
01FA 9260
000052A8
00000001
5000250A
000458AO
12114160
1t18Of030
F 01C4910
39E00EC5
90ADF08A
918OC010
91F00341
01FE588C
00000000
10000182
000C9845
000022F 8
00085811
F0184740
501l006C
10005810
FOO09101
IF145018
18115010
41660001
00000000
'""C
0
...,
»
-.0
002280
0022AO
0022CO
0022EO
002300
002320
002340
002360
002380
0023AO
0023CO
0023EO
002400
002420
002440
002460
002480
0024AO
0024CO
0024EO
002500
002520
002540
002560
002580
0025AO
I
002~CO
"->
0025EO
002600
002620
002640
002660
002680
0026AO
0026CO
0026EO
002100
002720
002140
002160
002780
0027 AO
0027CO
0027EO
002800
002820
002ti40
002860
002880
0028AO
0028CO
0028EO
002900
002920
002940
~
3184884F
00011F45
58650008
5040006(/
OOD022fC
OOOOl30a
F04C9183
000C4730
07fE20EO
869AF03A
4780F050
f08E5890
41COF07E
5810F162
052298F5
20005020
50L2000C
96102000
58203068
729F033B
0000213E
43210000
01FEOI03
2A282C20
02003600
lCBOOOlE
003BA100
00000000
OAOOEOOl
06816001
06(16007
00000007
000758AO
C04858FO
92COI00A
lEAA5EAO
880COO03
15E841BO
00000024
0418940f
9830403C
C14E94EF
40680014
4770(118
0003181A
04600503
9BOF5020
024(58BO
41E:OCOCE
58108000
4770C208
07FAOOOO
00000000
00000000
OA0301fE
C6122138
41400048
90561004
IE 665060
cooccoeo
C612213B
AOC04110
F0361BOO
9240EOOI
F2715060
5910F15E
30585800
4 7FOF 084
58240078
A06047FO
91C3502C
58050020
41CCC048
05229106
00989680
0000211A
5051COOO
04050607
2E2f0212
COOOC037
080029E 1
3F C1C03F
08C258C1
OB414761
02C059C 1
OB4241E 3
00000001
024814BA
40189602
92621008
C0045860
416C07FF
COBC18A5
OOC025E4
03410502
82cee020
AOOA 58BO
94BFAOOB
9602AOOB
OAOA9100
COOCOOOO
OA03910C
COO0186A
5800AOOO
5010A018
023F4030
0003FFFF
000011 08
eoe02070
00002EB4
OCOE400C
5E40D062
50150008
C0504- 1F 0
04-000000
00002318
FOOA5890
12114780
05F 09130
2C004F05
4 700F Olt6
C0508AOO
150A4740
91802000
FOO09110
4 780F OF2
41000000
55002064
AC004 7CE
008305FF
05F 01200
42210000
08090AOB
130014-15
lA 000000
0029EI00
810018Fl
02410FF1
06C 048E 9
0641C609
00805401
00000007
17AB41BO
40105810
023fl020
A0004260
14BO 1 70B
0586000E
0OO02B8E
00250060
18A 5580A
A0184100
15044770
9122AOOB
000A4710
4 780C 19E
A00B4 780
058B18C4
91010021
950CA009
A02041FO
OA2B07FE
aOO028CE
0066280F
000022F 0
05009180
504LOOOC
5016000400LE029400002318
FFFFFFFF
30585800
F04C9283
502041CO
00605CC9
5810F15E
00011300
F08blFOA
471 OF OCO
20004-7CO
4710FOEE
12004780
4 740F 132
00004110
C6122L36
018E92FF
96801000
OCOOOEIC
16300217
OOOOOOLB
29EI0016
0017AI00
0242C 171
048050B2
01411BA6
09C 16007
00000000
800BI11B
F0044110
40305050
024B4800
88000003
9610500A
002F0500
4710C118
001C91CO
60089220
C1689640
4 780Cl 96
CIB218f4
9201024B
C2285810
58(002444770C224
41(OC24A
C1541299
00000000
00003E64
000050FO
00003COO
10000182
lt150oo6A
947F1000
3184884f
000022fB
05f058A4
00508AOO
AOOO 181A
f0321821
f1621EI0
5COOF156
5E090000
1 F 1 Dlt 730
90 F55060
fO 009140
96862000
f1325002
111018AF
A0600703
00051E40
002058BO
1B66506B
OFI0101E
18190231
0006EOOO
FOOOIC90
194E003f
08806007
04C00261
01421E1E
06(00399
41AOC06A
1E111Ell
10201BOO
101(5010
00224520
40BOI018
98015020
f3FOf5Cl
58E04004
AOOA4740
80120A09
40101B11
4740(18A
9809f030
18504520
AO 184870
18A61217
92000020
0203BOOO
4770800A
000004C8
00003E18
00005238
00005218
5841000C
58550004
07F21255
00000000
318"ti84F
001812AA
00011300
5820flCE
IB991Bll
4-1220002
5000F15A
SE090004
f08EIEIA
18A51812
20084710
47FOFOf6
001C58AO
OAOA18FA
A060A060
00001770
F02E9140
000007fE
111Fl021
02320200
25400025
001FOOOO
If 002330
09416001
04400ECl
OC424491
00000001
4120(OCO
41011000
5000FOOO
40001851
C00845FO
40BOI01A
980f5054
000032A8
9200EOOO
CI064770
5880B020
06100AOO
02334038
0211F030
COOE18AO
10005010
4780C254
82000020
A06050BA
589004CC
000004EO
00001216
00005250
00005228
PAGE C008
00508A50
41200026
5E400062
00002308
4~000000
00002320
4760FOIO
IBOO" 1F 0
5E 090000
13005EOA
58fOFI02
05221810
41BOOOI0
41AOOO04
47fOf016
58110000
50204780
lEl19140
58AOf 162
5E09C008
4140f09A
5510f162
5820f116
58fOf 17A
f 1549240
20000400
96B82000
96802000
501C0203
2010AOI0
181218A2
5010206"
41000001
OAOI07fE
00000064
OCOOOOOI
1000077E
9601501C
000004C8
00000000
22232425
26272829
00330234
00000235
00275800
080029AO
15000fBO
IBB1001B
00238000
3FAF 0000
04405EE 1
OA006007
03405C07
03800BC 7
01815AO 1
OB805CF 9
COOOOO01
OCOOOO07
02075010
002041BO
13000AOA
12fF4780
50AOI00C
40BOI008
01f24BAO
025C1EAA
06001806
9B69(008
900EI000
5090100C
5860500C
05E60A03
58(00244
023f4030
9802E008
50000024
C1549510
AOOA4170
12B84710
C 13A0203
50004000
91EOAOOA
50284800
A0088900
F0589001
fO't841FO
5880(008
05BBOOOE
A0189823
10045850
58FOAOO(
50FOO024
4780C254
5880A018
00601201
58101004
55108016
012A1B71
00002E 78
00003AE8
00001226
000006B2
00001016
0000288E
0000228(
0OO0213E
186"5850
5545000C
4740001A
OOOCOOO{)
."
,0
»
--0
I
~
002960
00001112
OOCO 3B 64
002980
00000402
oocoeoeo
0029AO
05F018AO
18B141FO
0029CO
4780F02A
580BOOOO
0029EO
18761863
5825001C
002AOO
501A2014
41801092
002 A20
A0084170
10304163
002A40
AOID5010
41AAcoec
002A60
9680AOOB
941F500B
002A80
30544580
11C 6C008
002 AAO
20064180
10CA 9680
002ACO
00034112
OOCOOA OA
002AEO
41F010FO
45807l8C
0021300
7l0C41FO
704EI0FO
002820
30555005
411C 7l4C
002840
AOO050A6
0000906C
0021360
502lAOOO
92C05020
002R80
AOOOCOOO
078856B6
002 BAO
000416EE
18634898
002BCO
10090A04
92801009
002BEO
60000266
92F00266
002COO
87997228
98015060
002C20
41A0125E
00001200
002C40
601874AC
41060018
002C60
1354<1102
143E8199
002C80
72A641CO
00201600
002CAO
lA06lBAA
180CIAOO
002CCO
AOOOAOOO
49C 07298
002CEO
4A001294
06008800
002000
13280202
60014029
002020
60270202
602AAOOO
002040
50860010
02026001
002060
A0186035
50507484
002080
14800SEF
982A610C
002eAO
47F01384
88900001
002CCO
478013E8
9610AOOB
002CEO
742E9110
60324780
002EOO
OAOA4180
142E4100
002E20
010041EE
01C041EE
002E40
74801963
000C5610
002E60
00003730
0003FBC8
002E80
758F161F
7CFF 2C 1F
002EAO
00008000
OOC02EAC
002ECO
00000000
OF C02E 18
002EEO
00002EE8
120CCOCO
002FOO
OF002EB4
04003A88
002F20
00002F34
FFCOCOOI
002F40
00000016
1100COOO
002F60
08002F58
OOCCCOCO
002F80
9E002FBF
Aoeccooa
002FAO
OCOOOOOO
40C02F58
002FCO
00000000
62000211
002Fl:0
80003828
OOOOCOOI
003000
00000000
OOCOOOOO
LINES 003020-0030CO SAME AS A80VE
OC001530
ee0029AA
F 0124100
9400001C
18EE9501
4S80118C
00S050B5
SOA SOOlC
98015020
96DOAOOA
500B943F
9110200A
41F 01112
54001460
92101151
000450AC
41F 07088
000041FO
00004899
58607488
47F07210
18800227
47F01282
902A610C
60324180
91206032
58101460
477072FO
00038199
91016028
02096032
30558000
5880747C
18EE12FF
9610AOOA
91FF 600C
14164116
14881B 11
010041EE
4180741A
0003f6CO
0700C 350
12000000
04003A88
00000000
C 0001304
FF03F 808
OOOOCB 18
08002f 18
06000000
00002ER4
00000000
40002084
OCOOOOOO
00001068
00000000
FOOA4190
50A80000
20134720
41F01036
00S89640
0202A015
58F5005C
41F0106C
200B41B2
41801104
458011C6
160F9001
4S8011 C6
000041AA
58C50000
11940570
14968990
12FF8799
9200600C
601C8000
800013A8
5863005C
14425886
4180126C
8799120A
96FOAOOA
73100600
47801336
14AA0203
13668799
07016000
4170145A
5880141C
41807402
00000201
OA088799
010041EE
91FF600C
00000200
00010024
00000000
COOO143C
00000000
00000060
0003F808
00000000
60000005
20000100
00000000
00000000
00003130
00000000
000052A8
00000180
00081BF9
9640BOOO
11260207
458011C6
A006020 1
AOOO0203
OA0318 A2
91C0200A
00009120
58 BBOO 18
000691EO
50004580
00109620
000843BA
58B40024
41BOO IBO
00104110
71F64170
41 Bb001C
8799123A
8199133E
41060040
00348880
43060031
41AOOO08
lACA50C6
400AOO08
02026001
6035A018
73920203
BOO0902A
80007381
0207BOOO
02000268
600E7546
8002581A
00FE41EE
4180147A
00002E68
80000000
00000000
00000042
00000000
0000006C
00000000
00060010
9E002F8F
7FOOOOOO
00000000
00000000
fFOOOOOO
00000000
00003140
0003FFFF
91408000
941FBOOO
5000FOOO
000291EO
AOI05018
505CA014
9100200A
47101456
200A4710
12B84180
AOOA4110
118C41FO
AOOA48AO
000C418B
12B84188
16185830
148C8799
14464180
50860008
0203A004
58130054
05EB982A
000841CO
41000003
lAOA5600
00041ACO
0207AOOO
30098000
418078C8
AOO0602A
610C4116
87991306
AOOO0202
60009130
OA309120
001841FO
010141EE
02000268
208045FF
00000000
00000000
00000089
00000000
00090082
C9C7CIFO
00fOOO19
AOOOOO08
02000000
00000000
00002F34
00000000
00000000
00000460
000028E8
4110F032
IS9901FE
02015018
AOOA4110
0200A014
9180500B
4 7C Cl080
02025010
11044802
11 044108
144E9140
71129204
129441C4
000142BA
00041t1AB
00105843
7lE28199
720C4160
8799124C
60208000
0201601C
019CIBEE
00109108
88000001
14800AOA
50C60010
601C9102
13A847FO
81991360
0200A003
00004136
59501484
AOO06015
60324170
60321816
113805EF
0101411E
60000AOO
40FF063F
C9C5E6E2
00000000
00090480
01000000
00002E84
F IF9C 3C6
31002F81
0603f808
7F002F90
62000211
0003F8C8
00000000
00000000
PAGE 0009
OCOOIIFE
00000000
91808000
00000000
20100200
11t4E911t0
50lA0202
41801088
02035004
20109180
00088900
00080A09
A0084110
11510502
0024588C
OOOC0202
00080501
00005844
11FA9200
75380200
98015000
13A85016
AOOO0203
12FF4110
60324110
89000003
lAA 10 l1F
92FF6010
60284180
13929200
41B07138
60210203
004058F 0
418013C8
91C06032
744A47FO
5800148C
OA0341EE
01068910
OC00214C
40FF683F
E906E509
01000000
00008000
00000000
0003F 808
00000000
60000005
00000000
00002F80
00000000
00000000
00000000
00000000
-U
a
...,
»
-..0
I
~
0-
00000000
OOCCOOOO
cce02F18
0003FBC8
9624AOCO
58800010
9140AOOO
4180f 038
58280070
IBDD4301
AOC2415C
F012910C
4170F13E
951EA004
4710F136
<161 OA OC8
9620D02C
124447CO
IB 0 81 70E
05CFIAOA
003~OO
580AOO14
<143F002C
003220
OAOFOA03
410CCOFE
003240
OAC3 cH02
003260
0008000A
000<141FO
AOOC4lDO
003280
00080001
OOOACCCO
0032AO
00605843
C3C9455D
0032CO
41440020
D2C6D116
0032 EO
D2010 116
C3E64190
003300
4110C08E
91088000
003320
12334180
58330000
003340
58 8A C004
47FOCOA4
003360
COFA5923
19234780
003380
1882 5A 88
41FOCOC8
0033 AO
01189851
01581255
0033CO
18F80403
18100AOA
0033EO
4550C162
00081898
003400
19584780
5450C 382
003420
40400146
40500144
003440
4550C30E
00021897
003460
01481217
01444870
003480
47fOCIA4
588D013C
0034AO
D172D171
01710216
0034CO
C2A80200
OC050 17C
0034EO
07f40204
0177C3B6
003500
F3640184
20CCDC05
003520
o 13C 5B 50
013C585D
003540
CIA44810
CIFA47FO
001560
C2F44540
12774180
0035tW
00604880
C304455D
0035AO
416D0184
50600154
0035CO
8880(OC2
48800148
0035EO
C382F384
1Q4147AO
003600
C3465040
18674690
003620
F2F3F4F5
515CFOF 1
003640
E240E2C 1
D3C905C5
003660
CIC2C505
40E30640
003680
FOFIF91F
000092F4
0036AO
OOCCOOCC
00000000
0036CO
LINES 0036fO-003700 SAME AS ABOVE
ooooeooo OOCCOOOO
003720
<16C3303C
18090540
003740
50103040
41103038
003760
020F3028
30044388
003780
46104070
0037AO
30281810
C0071857
43104308
0031 CO
0030 EO
003100
003120
003140
003160
003180
0031 AO
0031 CO
0031EO
00000000
ce002 9E a
91C OAOOO
504AOO18
00094COO
F136189F
94FEAOOO
CA OF OA03
FOB44144
192C2F16
94OAAOOO
58E 8002C
A00C4 71 a
F 1 7E 9601
05C 09240
00004133
C 3DF4190
C0084180
588BOO04
C 1505823
19834120
00004780
0004598A
4 780C 132
1B 88589A
4 7FOC 112
C1881878
12554170
455D0060
4180C 1EC
489D014A
4810014A
0182C38B
F 364D1 7D
D184C2A8
C 3AEO 51F
01444171
C 1FA4880
01440680
18765840
18981288
D14C4000
013C 07F 5
F6F1F 8f9
04C 540C 1
C 4D9C 5C 7
0003FCCO
00000000
00000000
80002B30
4 71 OF 13A
9601AOOO
FL4A1A20
58F80044
921FA004
957EA004
0008504A
940FAOOO
<1200A008
01FE9601
F 1 7294F 1
A0089604
D1701832
00185833
00084180
0000416D
589BOO08
00001222
COOO1893
COEC5833
00084140
1 B 7541 00
00084550
50500164
IB 754070
C1C64870
4 7F OC 1 AE
1B884080
06908990
06101271
45500060
20000C05
D2000184
50006000
00014010
01441288
40800144
013CF363
4760C34E
OC07014C
0203D14C
C1C2C3C4
E240C1C2
40F060F7
000052A8
00000000
00000000
1FOOOOOO
9110AO 10
9101AOOD
06002008
05CF068C
41FOF13E
4770F11C
0018927F
o AOFOA03
41 FOF120
A0089604
A0089517
A0084100
58BOO13C
000018 A3
0000416D
01841816
4550C162
4180CO BA
18984550
000047FO
C112589A
00008900
C1621t180
508D013C
01485850
01461217
4550C30A
014847FO
00055A9D
4170C258
48100 14A
DI10C2A8
C3BB47FO
4170C202
o 14A0680
4780C144
47 FOC1EC
D14C0155
1B224328
C2 A80201
40004140
C5C65040
06E5C509
09C5C740
00040000
00000000
0003FCCO
0003F8C8
4110F038
4710F136
A0029410
038A010A
9108AOOC
94FEAOOO
A0040AOF
58DAOO14
940FAOOO
A0084100
A0184710
00FD58E8
9239005C
91028000
01841816
4550C346
92FOOI10
19234720
C 16292FO
COOC1882
00081898
00181601
001041FO
50900140
01404A50
4770C184
455D0060
C202481D
013C5080
D2030111
89100005
92600183
C2424860
48800144
40800141t
18884080
41900008
DC05D14C
C3901A62
6000014C
014C41FO
00000004
C5C7E240
F860F1F5
00000000
00000000
00000000
5030304e
07013058
438D0203
58750010
45C 042 3E
00000000
50703050
30584110
30143004
41770000
45C04230
05401851
5817002C
305F5010
41103061
47 F04090
41F04128
98795000
41204344
30009231
50103028
58180000
91209016
PAGE 0010
000028FO
00000180
58A 10004
4811 C002
4840F 148
584AOO08
4180F OE 2
9102AOOC
2008910A
10134110
00B62FBO
021C0142
41l0F 136
9110A008
4 7F OFOOA
580AOO14
OA03189F
58F80044
9610002C
41F OF OCC
9110A008
411OF12C
00FD58E8
002C01FE
AOO194FE
F 16A9608
00080006
002C07FE
455D0060
02150177
5844001C
4710C036
4550C346
45500060
45500060
92FOD170
411OC112
91028000
C13E1832
58220000
~83A OCOO
D1701823
5A880004
18931898
4550C162
18884550
18150A OA
410001FO
C 114588A
0004589A
07030148
01481858
01481844
5040C 3AE
58500164
01F58870
48100144
0610401D
01441277
472OC28C
014C4120
014C 9240
C386F364
011C2000
5470013C
5010013C
5090014C
4120014C
00055A60
014A8960
12884720
C28C4540
487D014A
47FOC28C
014441fO
C2F44550
5860013C
48600148
C2A80205
0177014C
581AOO08
5810CJAA
41440004
41880001
C35COO08
16213846
FFFFFFEO
00000020
C1E340C5
05E309E8
C02E1000
41110002
00000000
83000180
oooeoooo
oeoooooo
41000001
5021001C
30005030
929E3028
58008004
41804004
4 7F0401 0
9204101C
30080204
02013018
12004780
98019010
""0
.,0
»
-.0
I
'"
'-I
0037 EO
003tJOO
003820
0031340
003860
003880
0038AO
0038CO
0038EO
003900
003920
003940
003960
003980
0039AO
0039CO
0039 EO
003 AOO
003A20
003A40
003A60
003A80
003AAO
003ACO
003AEO
003BOO
003B20
003B40
003860
003880
003BAO
0036CO
0038EO
003COO
003C20
003C40
003C60
003CHO
003CAO
003CCO
003CEO
003000
003C20
003040
003060
003080
003 CAO
0030CO
0030EO
003EOO
003f20
003E40
003E60
0031::UO
003EAO
80000010
00024010
4309000B
58190020
92003024
439A41CO
41761810
41fOOOOF
91013098
30A04117
30A59203
4AI0309C
91043098
07FC909F
30 7CO IFC
00181B99
41110004
10004 3A 1
IBC747FO
471042AO
02071000
50750014
003041CC
47FEOO08
00000000
80004030
00000000
OOOOOOCO
00000000
00001304
05C08000
0168C234
180158FO
05F01B22
4720F02A
900B0108
4AOCOOOO
5810B02C
5A90FIFE
41000001
00024100
FOE40204
4740F132
IBAF48FO
00FF9201
9500900A
01741008
016547FO
000004C8
69000000
000012CC
00264CAB
1BFF07fE
101F18AO
001046AO
430<]COOB
30 3645C 0
45C 042 3E
8810000H
92FF 309S
41820206
4610416C
01FE91FF
411C4lAA
10C01821
301047FC
1912018C
41104310
301C5815
coe03E64
05A84780
91EOI000
ceC088AO
42E41AC7
47F0429C
50C09110
07FECOOO
000142C7
02C02020
cocceooo
21140277
ooooooeo
eocceOC3
00000000
ooeccoco
CIEB1820
0207016C
B05445EF
50200164
58BOF1E2
18C04120
4780FIC4
4120015C
50'100120
OA01<;160
001F0507
015FOIOO
8744F128
016412FF
016758BC
4180FOE4
58C00174
F1324180
COC02E78
400COO08
4180FOIC
COC21BBB
IB994390
8'1OCe004
F03241FO
45C 04.c'3E
423045CO
41803020
lA175010
41F0413E
30503065
91FF 500C
30984710
41F 00000
45C 04264
413E4810
41110000
41B03028
COO05811
18A046A 0
428C41F 0
417042EC
00024180
50C 03010
0200B 000
90164180
COO03A9C
00300500
703007FE
C 14E92FO
80028001
00000000
00090028
00000000
COOI0000
18314100
20004100
00041BFF
12B 14720
92010161
01384150
182C9200
183090BF
182F4110
013847BO
1COOCJOOO
41F OF OA2
18454440
o 78E 5820
AIE24144
41F OF 13A
4BOOF214
COO11817
3100015F
08000118
4AOOO02E
43B20006
101018A9
lA018800
000407FE
41180008
41425018
45C04234
30209206
92403024
92003038
41104156
431045CO
07FE9104
4A2030A6
304A1211
50103034
45C04234
002C4120
427091FF
OOOEOIFE
58210000
30731BBA
44A0430A
20000200
432E9640
00003ACA
30101030
60000005
80004830
00050700
01000000
00050600
00000000
00050005
01784510
016845EO
182F4100
F02A9202
18C0906B
01081688
200E4A2C
000041FO
013COAOO
20C441FO
4780FI0A
02029008
FICE0200
802C0500
00014240
95FF1000
47AOF07A
47FOF19C
40000005
00000000
41000010
lAAB4BAO
410000FF
00084202
IBFFIB9A
50103030
00000200
91409017
30200201
41103098
4110303C
41103038
41E60203
30984780
45C04264
018C4120
45C04230
41 F04l3E
306458FO
9010078C
987A301C
41212000
44A04304
18 B14111
20008000
10009120
00003ACA
07CE89CO
089EOOOO
21144B30
C8324580
00000000
00030027
00000000
00003B60
CO 100AOA
C05E12FF
01781810
01675820
0000980B
90080138
00024600
F26205EF
58 F021 OA
0008014E
4120F18A
10084341
900C0167
20040166
01669200
4740FIAE
95040165
02009000
08000108
06000000
46COFOI0
00281AOA
14004180
00078800
4AOOO01E
92063030
80019008
418040FC
30269018
50103030
OA0080FF
41000001
30344399
41BA9200
50103020
01001821
41F0413E
41803030
426005EF
907A301C
o 7FC4110
45C04264
58C03070
00041910
18FF060E
90174110
00003AC4
000441CC
OOAOOOOO
C19E4120
0000381C
OF003AE8
OFOOOOOO
00000000
00000000
18011213
4120E01A
OAOA18F2
F10E5822
F1E61EOO
9202013C
F068488C
988F3000
91FOFOOl
1BF21..830
4321000B
00081440
43400166
4120A168
016518FA
05061001
4780F132
100BOO01
00000000
00000100
45AOFOAC
89000008
F02418C9
00084BOO
42920000
1B114319
9801900C
50703020
91019016
92063030
41539140
OA019120
91023098
302492FF
92063020
41100010
91013098
50B03010
0200305C
18125880
30A81801
IBAA50AO
91021000
41804214
91209016
433C5819
00003ACA
30200205
08060000
C03A4130
800092Fl
00001108
00000000
OF003B64
00000000
47AOC058
18180203
OA0341EO
000458B2
1E201A40
986BOOOO
0000 IB 00
189118A8
471020C4
06304A30
14204122
485COO02
42490008
95020167
41FOF018
10004740
41790000
OOOCCOOE
92000100
IB00180 1
1BAA43A2
43020007
89COOO04
002E4740
02052001
PAGE 0011
00158910
80000010
41F0410A
41804128
02023035
3038411 0
3038011C
47104292
30985810
02023025
4A10309E
411041AA
92083010
3064989F
00105888
4A00309E
3010940F
478042E2
9101BOOO
4780432E
001C lA 71
1BCC43C 7
1031C004
00200001
003492F1
00000000
10001304
00000000
00001108
OCOOOOOO
13110203
80000114
C 04A 1802
0028128B
lA801AAO
417C 0004
43000166
50BOO150
41100138
OC00411 0
200C 8112
4850FI08
46AOF 17A
016E4140
4A9COO02
F lAEO 203
188A 9204
OCOO026A
4COOOOOH
IBCC43:2
000448AO
8'1CCOO08
lAC0430C
F0484100
0024018E
.,0"
-
»
....a
I
'"
CO
003Eeo
003 EEO
003 FOO
003F20
003F40
003F60
003F80
003FAO
003Feo
003FEO
004000
004020
004040
004060
004080
0040AO
0040(.0
0040EO
004100
004120
004140
004160
004180
004LAO
004Leo
0041EO
004200
004220
004240
004260
004280
0042 AO
0042eo
0042EO
004300
004320
004340
004360
004380
0043AO
0043eo
0043EO
004400
004420
004440
004460
004480
0044AO
0044eo
0044EO
004500
004520
004540
004560
004580
41AOOOOl
e002181j0
05B01220
70011883
1BAA41FO
5AI01026
05A08200
egese1E3
1e435865
OA009110
00184130
02019014
50609054
017B58AO
50A09048
oaooocoo
Ff041001
00000190
0004100A
FF041000
FF04100A
FF04100A
FF04LOOA
FF060190
FF060190
00000190
FF060190
00000190
FF060190
0004100A
00041000
FF041001
00000190
0004100A
0004100A
00000180
40040180
FF041000
FF041001
00041004
00000190
FF060190
FFOb0190
00000190
FF041001
0004100A
FF041000
00000190
FF060190
00000190
FF041001
0004100A
00041003
00000180
FF041001
58BOO020
4ABOO028
018E5510
la6548e 1
704AOA 06
OA OOCCCO
AOOE41FO
E30906E3
602091FF
60124110
OC031413
00209610
42A09054
904841AA
01F8COOO
COCOCOOO
40C0388A
COCO 10E 0
40e02E02
500033FO
50003346
50003346
60003404
30C0344E
3000344E
coe010EO
3000344E
00eOl0EO
3000344E
5000269(.
10003896
40C038BA
0OOO10EO
40e02E 02
70002806
0000 10C 8
OOCOODoO
10003482
100034Be
40002B(.4
000010D8
00003ee 6
00003ee6
00001008
40003884
40C02E02
60003eBO
coe010EO
00003ee 6
OOCO 100 8
40C038BA
40e02E 02
50C03216
OOCO 10e 8
400035E8
4 3BB 0013
10A942A2
B 00E4 7BO
OC02 88e 0
05701831
00003F 74
A0160A06
05205860
60024710
20544110
413000FF
90169C01
94309054
001055AO
eOO04020
00000000
OCOOOOOI
00000000
00000200
COOOO IE 8
ceOOOlE 8
000001E8
00000040
00000000
00005608
00001 OE 0
000051FO
000010EO
00005908
fFOOO060
00000022
00000001
00000000
00000200
00000060
0003FBB8
00000000
00000001
00000001
00000001
000055F 8
COOOOOOO
0003FD28
0003F028
COOOOOOI
COOO0200
00000000
00001 OE 0
C003F028
0003FD28
00000001
00000200
00000180
0003FC 18
00000001
41eOOOOF
00064A80
AOIAOA03
00028geo
121F4770
00000000
OA034120
10001836
20384110
00518910
11135830
901e4190
02039058
9050°.740
000040BO
00000000
0003Fe28
04000000
0003FBBO
00005598
90003344
90003344
AOO03402
04000000
oe 000000
oeoooooo
oeoooooo
oeoooooo
oeoooooo
FFFFFFOO
0003FBee
0003FBe8
04000000
0003FB50
0003FD50
0(,000000
04000000
00005598
00005594
00002E6C
00400050
04000000
oeoooooo
oeoooooo
0003Fe28
0003FBBO
0003FD2e
oeoooooo
oe 000000
oe 000000
0003Fe28
0003FBBO
04005598
oeoooooo
00005594
14Be05eo
002642B2
OOFFFFFF
000241CC
70129801
80000000
FF040000
88300018
00568910
000e4100
60181413
902047FO
004a0207
903A94FO
00004030
00000190
FF060190
ff060190
ff04100A
00000190
FF041000
FF041000
FF041001
00000190
00000190
FF041001
00000190
FF041001
FF041001
00041004
00000190
FF060190
Ff060190
00041003
FF041000
FF040180
FF041001
00000180
FF060180
FF041000
FF04100 1
00000190
00041000
00000190
FF060190
00041004
00000190
FF041001
00041000
00000190
FF060190
0004100F
fF041000
fF040180
FF041000
58eoe024
000401FE
003492Fl
100858CC
602058F6
ege5t:6E2
00003F86
5860602C
000C4100
00808900
4210601B
90180201
905(.0040
904F58AO
fF06000E
00001008
0000388A
000038BA
50003346
00001008
500033FO
500033FO
7000344E
OOOOlOEO
00001008
1000344E
00001008
1000344E
5000362E
10002B(.4
00001008
000038BA
0000388A
40002A12
4000350E
0000350E
400035E8
000010(,8
300034BC
60003(,80
40003eC6
000010EO
10003896
OOOOlOEO
000038BA
40002BC4
00001008
40003ee6
70003896
000010EO
000038BA
50003214
4000350E
0000350E
4000350E
438Beooo
00005238
181F 112F
00001899
005('OA03
E906E5D9
00003FAO
41400000
00808900
00181610
41100000
905E0038
58A004(.e
904e020F
0003FB94
0003F('28
00000000
0003Fe 18
00eeOlE8
0003FC18
000001E8
00000lE8
00000001
00000000
00005608
oooeOOOl
000051FO
00000001
00000001
oooeOOOl
00005908
00000000
0003FBB8
00000001
0003FF 14
000055F8
00000001
00000000
000055F 8
00000000
00000001
00000000
00000006
000010EO
0003Fe18
00000200
0003Fe 1 a
00000001
cooeOO01
000010EO
0003Fe18
00000100
OOCOOOOI
000055F8
0003FF 88
PAGE 0012
06AA4898
00000000
057080FF
43910008
8910000e
00000000
00000000
41500004
00181610
OA008810
lBEE OA 03
4590901e
9500A010
A0009054
0003Fe60
0(,000004
04000000
oe 000000
90003344
oeoooooo
00005780
00005968
00005594
04000000
OCOOOOOO
0000511e
OC 000000
00005964
00005964
0OO02E6e
oeoooooo
04000000
OCOOOOOO
0OO05961t
00005598
08000001
00005594
04000000
00400050
0003F02C
0003F028
04000000
0003FC2e
OCOOOOOO
oe 000000
OC002E6C
OC 000000
0003F028
0003fC2e
OC OCOOOO
oe 000000
00001548
OC005598
08000001
00005180
-0
..,
0
»
-.0
I
tv
-.0
0045AO
0045CO
0045EO
004600
004620
004640
004660
004680
0046AO
0046CO
0046EO
004100
004120
004740
004160
004780
0041AO
0041CO
0041EO
004800
004Ci20
004840
004860
004880
004Ci AO
0048CO
0048EO
004900
004920
004940
004960
004980
0049AO
0049CO
0049EO
004AOO
004A20
004A40
004 A60
004 ABO
004AAO
004ACO
004AEO
004BOO
004B20
004840
004B60
004BCiO
004BAO
004BCO
004BEO
004COO
004C20
004C40
004C60
10000181
FF060180
40040181
FF041000
FF041001
FF04l000
FF040181
fF041000
FF041001
00000182
40040182
FF041000
FF041001
40040181
FF041000
00000190
FF060190
00000190
FF041001
0004100A
FF041000
00000190
FF060190
00000190
FF041001
0004100A
00041003
00000182
Ff041001
0004100A
FF041000
00000190
FF060190
00000190
FF060190
Ff060190
0004100A
0004100A
FF041000
FF041001
FF041000
FF041001
00041004
00000190
FF060190
FF0601QO
00000190
fF041001
0004100A
FF041000
000001QC
FF060190
00000190
FF041001
0004100A
OOCO 10C 8
000035E8
OOCCOOOO
70C034B2
100034BC
4000350E
0000350E
40C0350E
400035E8
0000 lOC8
OOCOOOOO
100034B2
700034BC
00000000
60C03CBO
oeeOl0EO
00003CC6
COCOI008
400038BA
40C02E 02
60003CBO
00COI0EO
00003CC6
00CCI008
400038BA
40002E02
50003216
OOCO 10C 8
40C035E8
5000269C
60C03CBO
oeC010EO
00003CC6
00001008
00C0388A
0000188A
40C02E 02
10002806
40C0335C
40003366
40C0335C
40003366
40e02B(4
00001008
COC03CC6
00003CC6
00COI008
400036SA
40C02E 02
6eC03CS a
00C010EO
00e03CC6
00COI008
400038BA
40002E02
OC0055F 8
00000000
000051E 0
00000001
CCOOOOOl
00000001
000051E 0
C003FF 9C
CCOOOOOI
00000000
00000000
OCOOOOOI
00000001
00000000
00000000
000010EO
0003FD28
C003F028
00000001
00000200
00000000
000010EO
0003F028
C003F028
00000001
00000200
COOOO180
0003FC18
00000001
FFOOO060
oeoooooo
000010EO
0003FCC 8
0003FCC8
00000000
0003FBB8
00000200
00000060
OOOOOOFO
00000001
00000001
OCOOOOOI
00000001
000059C 8
00000000
0003FD28
C003FD28
00000001
00000200
OCOOOOOO
00001 DE 0
0003fD28
0003FD28
ocoeOOOl
00000200
50000001
20000000
08000001
00005780
oe00511C
00005180
08000001
00005968
00005964
20000000
04000000
00005968
00005964
04000000
0003F02C
OCOOOOOO
OCOOOOOO
OC 000000
0003FC28
0003FBBO
0003F02C
OC 000000
OCOOOOOO
OCOOOOOO
0003FC28
0003FBBO
04005968
OC 000000
00005964
FFFFFFDO
0003FCCC
OCOOOOOO
OCOOOOOO
OCOOOOOO
04000000
OCOOOOOO
0003FB50
0003F050
00005780
0000571C
00005968
00005964
00002E6C
00000050
04000000
OCOOOOOO
OCOOOOOO
0003FC28
0003F8S0
0003FD2C
OCOOOOOO
OCOOOOOO
OCOOOOOO
0003FC28
0003FBBO
FF041001
00000181
40040181
00000181
FF060181
00000181
FF04100 1
10000182
FF060181
40040182
40040180
00000182
FF060182
00041004
00000190
FF04100 1
00041000
00000190
FF060 190
00041004
00000190
FF041001
00041000
00000190
FF060190
0004100f
FF041000
FF040182
FF041001
00041004
00000190
FF041001
00041000
FF041001
00000190
40040182
00041003
fF04100A
00000181
FF060181
00000182
FF060182
FF041000
FF041001
00000190
0004LOOO
00000190
FF060190
00041004
00000190
FF04100 1
00041000
00000190
FF060190
0004100F
400035E8
000010C8
00000000
000010C8
300034BC
000010C8
400035E8
000010C8
000035E8
00000000
00000000
000010C8
300034BC
40002BC4
00001008
40003CC6
70003896
000010EO
000038BA
40002BC4
00001008
40003CC6
70003896
000010EO
000038BA
50003214
4000350E
0000350E
100032E4
70002BC4
00001008
40003CC6
10003896
400038BA
000010EO
00000000
40002A12
100032B4
000010C8
00003366
000010C8
00003366
60003CBO
40003C(6
000010EO
10003896
000010EO
000038BA
40002BC4
00001008
40003C(6
10003896
000010EO
000036BA
')0003214
PAGE 0013
00000001
oe00511C
00000000
2COOOOOO
04000000
00000000
04000000
00000000
000051EO
OC 000000
000051EO
OC 000000
0000511C
00000001
00005H:0
50000001
00000000
2COOOOOO
08000001
000059C 8
00000000
04000000
ooooeooo
04000000
00400050
000059C8
00000001
00002E bC
00000000
04000000
oeCOOOOl
0003F028
00000006
0003FC2C
000010E 0
OC 000000
0003FC18
OCOOOOOO
00000200
00002E6C
OCOOOOOO
0003FC 18
00000001
0003F028
00000007
0003FC2C
000010EO
OCOOOOOO
0003FC 1 B
OCOOOOOO
00000100
00001548
00000001
00005968
000059C 8
08000001
00000000
00000513
oooeoooo
00002E6C
000059C 8
080eOOOl
00000001
0001FCC8
00000038
0003F8CC
00000001
0003F8C8
00000000
04000000
00000000
04000000
00000000
00000513
OOOOOOFO
BOO03262
00000000
04000000
000051EO
OCOOOOOO
000057EO
OCOOOOOO
000059C 8
00000050
00000000
0003F02C
00000001
0003f028
00000000
04000000
00000006
0003FC2C
000010EO
Ot 000000
0003FC18
OC 000000
00000200
00002E 6C
0003FC 18
OC 000000
00000001
0003FD28
00000001
0003FC2C
0000 10E a
OCOOOOOO
0003FC 18
OCOOOOOO
00000100
00001548
."
..,C
»
-.0
I
W
0
00041003
50003216
004C80
004CAO
0004100A
5CC0269C
70003896
004CCO
00041000
004CEO
FF041001
40C038BA
004000
00000190
OOCOIOEO
004020
0004100A
40C02E02
004040
94F12001
9102200C
004060
4180F2A8
02062009
004080
10334770
FOCC9120
0040AO
IBBB43B 7
COC94C80
004CCO
48BOC008
8FAOOO02
032COC46
07180136
0040EO
004EOO
4110FOEO
9114C201E
004E20
96802008
47FOF28E
004E40
4110F004
96102008
004E60
968020lf
4302001E
41000010
4202001F
004 E80
004 EAO
4500F356
4500F348
4780F29C
950714000
004ECO
4180FIB8
004EEO
91FI14OOO
004FOO
4110FI02
91102001
004F20
1t302001F
41000001
41B7004C
004F40
96017006
004F60
92201048
9204104B
004F80
200147FO
F1684301
004FAO
F1689200
10364307
200441FO
F29C5800
004FCO
004FEO
4110F28E
9101200C
005000
00041888
43B2C020
003641FO
F26E4302
005020
70439610
200141601
005040
00084180
F2BE9101
005060
58A20008
41AAOOCO
005080
0050AO
00000738
0008COOA
FOIC01FF
000029AA
0050CO
OOOOCOOO
0050EO
01FEOOOO
005100
40C905E3
4009(508
40404040
40404040
005120
LINE 005140 SAME AS A80VE
40404040
40404040
005160
40404040
005180
CID9E340
0051 AO
000002614
OOCOOOOO
08000000
000051EO
0051CO
OCC051FO
0051EO
00000000
00000000
OOCCCOOO
005200
00000001
FF605802
005220
OE295114
005240
OOCBOOOA
F03C48BA
005260
COO04110
18F91B41q
005280
430COOOI
0052140
00000000
OCCOOOOO
00000180
FFOOO060
0000002F
00000001
CCOOOOOO
COOO0200
4110F 060
705C0201
20084180
F36E 1AOB
16AB40AO
02540462
41C OF 2EE
47FOF lEO
4 7F OF lC4
41000001
41FOFIC4
50A 10044
580140000
50A 10044
018E9601
4202001F
SOB 1003C
41FOFIB8
00364100
00344100
00100502
58000010
89BOOO04
001E4100
700641FO
20084710
4BAOF 36C
58B 00010
91800044
00012000
40404OFO
40404040
04005968
FFFFFFOO
0003FBCC
0003FBC8
04000000
0003FB50
91112000
200210SA
F2349491
48A700l6
000894BA
05880E3A
91102001
0206705C
910A201E
4202001E
43010034
41FOFIB4
02051031
920810Jt4
20005800
91022003
4500F356
02031033
00014201
00014201
00552015
05020055
41BB3020
00104202
FIB85800
F OF40203
01F0921A
58BOB03C
018E9102
EOOOOOOO
F OC540FO
40404040
FF041000
00041004
00000190
FF060 190
FF060190
00000000
4750F21E
91042008
200894EF
8EAOOO02
000918142
0028063A
4110F286
20090201
4110F004
41FOF1C4
41000001
4500F348
00004500
4101003C
F36805CO
4110FOCC
94EFI040
105494BF
00369104
003441FO
4160 F32E
20154160
05001036
001E9608
00101888
20181040
103C9210
588080AC
00444110
00360000
F040FOF2
40404040
5000331E
400028C4
00001008
000038BA
000038BA
00000000
91082008
4110f336
200101FE
8BAOOO02
189F5800
092COA96
96012008
705A2002
4500F348
9150201F
42010034
96041001
F3564AAO
50020018
41FEOOOC
96202008
41B10054
20089102
30084110
F1689110
940F2000
F316943F
BOO041CO
20089213
43BI0009
5530F364
10409205
91408000
F0149601
00320000
FOF040F4
40404040
00000001
FFOOO060
0003FC 18
00000000
0003FBB8
94FE2000
4110F056
94EF2001
58000010
43A10018
001058FO
00B82F lA
96042008
ItlfOf200
910114000
4110F004
92001036
918014000
F36C0201
96012000
910A201F
96402008
50BI0044
104C41CO
F2CA910A
20014180
94EF2001
402C 94014
F1684383
103C9220
4CBOF36E
411EOO08
104301FO
011E18AA
101801FE
C9C5CIFO
FOFOF040
404040#t0
PAGE 0014
80000100
00002E6C
OCOOOOOO
04000000
OCOOOOOO
96242000
91402008
05011040
58000010
8AAOOO02
004405CF
91802002
41FOF28E
91102008
4180F 12C
4302001F
96042001
4110F 24E
1044AOOO
91082008
411OFOOC
96142001
92161044
F24E 9208
103641CO
F28E924F
41FOF2C6
2CC041FE
00094281
70409201
1AOB911F
41FOF29C
00003860
18CC 58F 0
9602101B
F OFOC 140
40404040
40404040
40404040
40404040
000002614
40005108
OCOOOOOO
OF0051B8
800012A8
14010219
00021100
41FOC 000
40404040
40400000
00000180
000051B8
IFOOOOOO
02001108
800012 A8
00000000
41000001
48BAOOOC
40404040
0000594C
00000180
00000000
00000000
000012A8
000012A8
41FOF008
8 BOOOOOF
5400F048
4040EOEO
40000000
80004090
00000000
00000000
C24041FO
000012A8
41CCOO02
4110F02E
41FOFOIA
63008051
00000000
02000000
090050F8
12000000
C8C8C8C8
02080000
1B00430C
14084180
OOOOOOOF
8100E2E3
00005220
7F0051EC
2COOO02E
00000000
40404040
00000000
00009110
F0041BOO
00000000
0052AO
0052CO
0052EO
005300
C5C2C 3F3
90ECOOOC
COO05358
00000000
40404040
05304140
800053B8
01000001
003800CO
31665040
OA1341FO
00004000
000052C8
00085000
314AOOOO
00000001
FF050013
316A4100
00000000
42000001
400052F2
31660100
00000000
98000000
00000000
45103022
00000000
00000180
OF C052F 8
OOCOCOOO
'"'0
a...,
l>
-..0
I
W
005320
002C0048
000C5480
00S340
00000001
OOCCOOOI
00S360
00000000
00000000
005380
00404800
COC05668
00S3AO
00000001
OOCOCOOI
00S3CO
00000000
oocccoeo
00S3EO
00544800
00(05850
00S400
00000001
oooooeOl
005420
10005358
90C053B8
005440
00000000
OOOCCOOO
005460
00000000
oocooooo
00000000
005480
00000000
LINES 00S4AO-00S4CO SAME AS ABOVE
00S4EO
E3C 107C5
00000000
40404040
40404040
005500
005520
00000000
00000100
005540
00000000
OOCCCOOO
40404040
40404040
005560
005580
00000000
OOCOOOOO
0055AO
000055F8
0800C001
OOCOOOOO
0055CO
00000000
0055EO
00000000
COCOOOCA
005600
060054E4
OOOOOOBO
005620
00000030
OOOOCOOl
005640
00000000
OOCOOOOO
005660
00000000
COCOCOOO
005680
CI034040
40404040
40404040
0056AO
40404040
0056CO
00000000
OOOOOOCO
40404040
0056EO
40404040
00000000
OOCOOOOO
005100
005720
a 11800CO
OOCCOOOO
005140
000 lE 3C 1
01C5F240
00000000
OOOOCOOO
005160
005180
02000000
1F00577C
0057AO
00000000
COC00402
2BC01340
0057CO
00001108
0051EO
08005708
OOCOCOOO
005800
F16BE3Cl
01C5F240
005820
00000000
00000000
005840
00000000
OOCOOOOO
LINES 005860-005880 SAME AS ABOVE
0058 AO
00000000
oococooo
40404040
40404040
0058CO
0058EO
40404040
40404040
005900
OOOOOCOO
42011842
005920
00000000
ooccoooo
40404040
005940
40404040
00S960
00000100
41coeooo
00000000
00000000
005980
0059AO
00000000
OfC05990
0059CO
02005850
20COO050
D440F1f8
0059EO
FOF lC 140
00000000
005AOO
00000000
005A20
E3C 10 7C5
F34000CO
03000048
00000050
00000000
03004800
00000050
00000000
03004800
00000050
OA 145800
00000000
00000000
00000000
00000001
20000001
01000001
00000001
20000001
01000001
00000001
20000001
316A98EC
00000000
00000000
00000000
00000001
00000000
00004000
00000001
00000000
00004000
00000001
00000000
000C07FE
00000000
00000000
00000000
00000050
00000001
00000001
00000050
00000001
00000001
00000050
00000001
00000000
00000000
00000000
00000000
00000000
00000000
420COOOI
00000000
00000000
420COOOl
ooooeooo
4510315A
0003FFB4
00000000
00000000
00000000
PAGE 0015
00000001
00000000
98000000
00000001
00000000
98000000
00000001
100052F8
00000000
00000000
50201008
00000000
FIF8F040
40404040
00010000
00000000
1t0404040
00000000
400055F 0
00000000
00097FFF
00180000
0003FF60
00000000
F2F1F5F6
F 8F IF 3F3
40F IF 3F 3
OOOOOCOO
40404040
00000000
OCOOOOOO
40404040
COOOOOOO
000051EO
00000000
00000000
060056CC
00000038
00000000
00000000
40404040
40404040
00000000
00000000
40404040
00000000
000055CO
01000000
000055BC
C9C5C3Fl
000055FO
00000000
FOfOF3F6
F2FOF1F2
4040F 1FIt
E3C107C5
401t04040
00000400
00000000
40404040
00000000
OCOOOOOO
00000000
OOOOOOCA
OOOOOOBO
00000001
00000000
00000000
40404040
401t04040
80000000
00000000
40404040
00000100
00000000
00000000
01000000
FOFIC140
00000000
E2C3D9E3
F640FOF 1
F9F1F140
F3 F4F504
FIF8F140
401t04040
00010000
00000000
40404040
00000000
40005108
00000000
00091FFF
00180000
0003FF14
00000000
00000000
40404040
40404040
420 11842
00000000
40404040
1FOOOOOO
00000000
OF0055CO
20000001
D440FIF8
00000000
C3C80000
E2C8C503
0906C2E2
C6F3F6F3
40404040
40404040
00000000
00000000
40404040
00000000
000051A8
01000000
000057A4
C9C5C3F 1
00005108
00000000
00000000
40404040
00000000
01l80OCO
000103C7
00000000
02000000
00000000
00001108
080055FO
F06B03C 7
00000000
00000000
0340C 3C 8
06054001
00000000
40404040
·40404040
00000000
00000000
40404040
00000100
00000000
00000000
02005668
FOF lC 140
00000000
E3CI01C5
00000000
40404040
00000000
00000000
o3FOFOF 1
00000000
1F005594
COOO030A
2B001310
00000000
o3FOF OF 1
00000000
00000000
C504C9C3
40E34040
00000000
40404040
40404040
42011842
00000000
40404040
1FOOOOOO
00000000
OF0057A8
20000050
o440F 1F 8
00000000
F2400000
00000000
00000000
40404040
ccoooeoo
o 11800C a
0001E 3C 1
00000000
06000000
00000000
COOOI108
080059CO
F26BE3Cl
00000000
00000000
00000000
40404040
00000000
00000000
07C5F340
00000000
41005964
COOO0405
2BOO1370
00000000
D1C5F240
00000000
00000000
00000000
40404040
00000000
00000000
40404040
00000000
000059C8
00000000
00000000
06005884
00000040
00000000
00000000
E3C1D1C5
40404040
00000400
00000000
40404040
00000000
00000050
00000000
OOOOOOCA
00000080
00000001
00000000
00000000
F IF8F240
40404040
00010000
00000000
40404040
00000000
400059CO
00000000
00091fFF
00180000
0003Ff88
00005A38
05E2D3D6
40404040
40404040
00000000
00000000
40404040
00000000
00005990
01000000
0000598C
C9C5C 3f 1
0OO059CO
00000000
C8C409C9
"0
~
»
-.0
I
005A40
OOOOOCOO
CCCC0022
005 A60
00000000
OOCC5668
00005850
005A80
t30C052E4
0003FF98
(CC05A2C
005AAO
5570934A
47AO~OEC
005ACO
93964144
OOSAEO
C0045040
005BOO
934E4A60
933E4B60
96FF93B6
02C393CA
005B20
914A45AO
908491CO
005840
47809192
005860
02C3C02C
00004000
005880
OOCOOOOI
07005002
005BAO
00000660
005BCO
00005B68
OOOOOOCO
40404040
0058EO
50CC 5C86
900035A6
COC05054
005COO
00005B68
00005038
005C20
41FF0010
005C40
50FOO15C
005C60
000450FO
o 15C411O
005C80
5BFOE034
05EF4110
9240017C
005CAO
02170111
005C(0
00014010
005E92Fl
005(0130
47FOO060
005CEO
FFFF07FE
cceceoco
005000
FFFFFFFO
00005020
005020
40404040
404040FO
005040
LINES 005060-005080 SAME AS ABOVE
40404040
40404040
0050AO
50409396
464090AE
933A4A60
C0044866
45A09220
93AE0203
00000000
00680020
0103F8D8
00000000
00005C18
40404040
9BEOO15B
00B61BFE
000858 FO
01104740
41 AOoOEA
4EI00150
411 EOO04
00000B18
0000274C
40404040
0008COOO
C02C9306
0003FF34
4BB0933C
462090CC
933E4060
00005460
0203C02C
C02C930A
00000000
1003FC84
0003F80B
00039CFO
0000005C
40404040
12EE4180
40FOO168
F03005EF
00CE4720
400000SC
F33301E2
191F0185
00060000
AOO03316
F4fOF4FO
00000000
80005388
80001370
416COOOl
58809206
933E47FO
937E50AO
93CA47FO
47F09066
004BOOOO
9203FA 18
00000010
40404040
000050CO
1FOOOOOO
0096021C
o203EOOO
41100048
00CC1AOl
01F5481o
01S496FO
47FOOOB2
00000000
00814040
F4FOF4FO
PAGE 0016
00005480
500032AA
00003481
41400020
07fS5840
90A6900B
939A07FA
906E4150
95009386
00000001
0003F870
00000001
40404040
0000S8E 0
40204040
f 0000 16C
016841FE
58E01008
lAOllAOl
005E4lll
01E50201
olC1C 7C5
FOFOfOfO
00704040
404040F4
40404040
40404040
40404040
4040C7FO
F 1F9FOE2
C 9C 7C 7F 0
91402024
40004780
00014310
302F2012
30305040
601B4E03
0003F A00
IB2A9180
402C41A2
C 9C 7C 1FO
00004140
414080CC
LA435043
43502010
LA65D201
4860203E
18141A43
91082024
96024000
18151B55
OOOOF 01 0
47405028
OA3712FF
FIF9C3C6
4780F020
F04EB740
30305050
92002012
301847FO
F 18BF293
0003FHCO
20004780
002850A2
FIF9C2Cl
00014043
91202011
00189401
91C02024
30066000
lA654064
58F02048
47108070
47F08074
5013000C
0103FB70
18144100
47805010
00 lCFO 10
41550008
F02C9148
30304210
96803000
FOA49640
F39BF4A3
C9C1C7FO
F036947F
no 18S0AO
002AF010
002494BF
4780B044
30009640
41B080AO
48630006
00060202
94013000
941F2030
960C4000
41 F08044
90 E8DO 14
00010A01
05 EF980 1
0103F8oB
4B60F01A
20114710
30304B60
91482011
302C0200
F5ABF6B3
FIF9C303
200043A2
004B4122
0103FAIB
20304103
91802030
30001844
91402024
41FOe084
40011000
96203000
47F08070
02013024
FFFF0100
185F5B21
47FOSOI0
D0404111
5850302B
4140FOAC
F04A4140
F0504060
4110F09A
30284001
FIBBF8C3
OOOAFO 10
002F44AO
000801FE
90E800l4
00085001
41808l2A
43402043
47808080
91801004
50302044
91202011
94F04000
813C9640
00000000
00085831
18121803
00000A31
4860302E
4110F OCE
FOCC41FO
30369130
94BF3030
41103008
F9CBCI03
0103F 9CO
F03C47BO
9100402C
188F 5821
0010S013
96802030
18141A43
91201005
4710B080
OSEF98E 8
47E08100
5043001B
203047FO
0003FAOO
00101841
4800S008
98EBOO14
4103FC28
7FOOOOBl
40000000
7FOOSC 18
0003FC60
08000000
03000000
COOOOOOO
OC005A38
C003FF88
89700001
93965B 74
933AB960
C02C0203
60034740
COOOOOCO
00000001
28282828
0003FB70
COO05054
0003FC 30
411F 0070
00489220
00014800
01104110
017002 03
98E 00158
COOOOOOO
00000000
FOF 5C4F4
0000C318
00005850
000052FO
4140B018
41660001
00004B60
00015A60
C 02C 9302
901858EO
00000000
54000000
4103FC28
0003A188
0000274C
00000008
00100010
191047CO
1 00558F 1·
005C9S60
00381901
0100012C
12EE0785
00005000
0003FCFO
F0404040
40404040
0000~2A8
00040004
93 B60203
00005~68
--'
W
r-v
03F8CO
03FBEO
03F900
03F920
03F940
03F960
03F980
03F9AO
03F9CO
03F9EO
03FAOO
03fA20
03FA40
03FA60
03FA80
03FAAO
03FACO
03FAEO
03 F BOO
03FB20
03F840
03FB60
03FB80
03FBAO
03F8CO
03FC20
0003F9A8
91C02024
41000002
F04E414C
20124780
06003030
OAOO07FE
C20BC3E3
41220000
F036928B
0003FB58
00085830
000C1855
58F0204C
91202011
47E080BO
48610006
001407FE
41030030
91401005
A0741851
C9C7C7FO
917F4000
90010040
07FE0700
00000U4
47BOF020
05C05000
FOAC4155
FO 1C0200
40C14140
40CBF013
E5C1E641
41ACC008
202894CF
COC3F9A8
20445833
91COI005
43402040
47E08074
5861000C
41F080B4
434C2042
50C30018
47108118
18120A 1 q
F IF 9C2C2
471C504C
411100CO
01C00700
"
a..,
l>
~
I
W
W
03FC40
03FC60
03FC80
o 3FCAO
4003FC50
00000F14
OCOOOOOO
0203FC60
ooee 58 68
COC3F9CO
C4CC0180
33001290
0003FC 58
00000F14
0403F004
00010000
00010000
00000F14
C8COOOOO
C2C2C2C1
88005038
00000F14
OFOOOOOO
C303C3C6
40000081
00000000
01000000
000035A2
01005041
00000000
oooeoooo
00003511
PAGE 0011
20000018
OC002BE 0
OF005868
600032A8
03FCEO
03FDOO
03fD20
03f040
03FD60
03FD80
03FCAO
03FCCO
03FDEO
03FEOO
03FE20
03FE40
o 3FE60
03FE80
03FEAO
03FECO
03FEEO
03FFOO
03FF20
03FF40
03FF60
03FF80
03FFAO
03FFCO
03FFEO
FF04000E
00000000
00000180
fF040033
00005A78
2BOO1370
00000F14
00000000
0009000A
00000180
01610161
000028FO
00002940
0003FEf4
OOOCOOOO
00188000
40404040
00000000
40404040
14010100
000402CO
E2E8E2C 1
00002940
000028fO
00C3FB94
00C3F8CO
00C05800
40eC344C
80e052E4
COC05A 2C
oocoeooo
01CCOOOO
COC3FF84
6CC032A 8
00C052A 8
00COO080
40CO 52C e
COC3FF34
03F 003F 0
00005R68
50003402
03AI03Al
oe005A38
0003FF 88
5F OOOOOF
00000000
ceooc 630
00380100
OCOOO030
0000003C
COO05218
00000180
00000000
12008000
00000000
00000000
40404040
F1404040
14010100
00040800
00000030
0000003C
0003F050
8C003428
0003FB10
0003FE28
00000008
5000250A
00000000
OF03FE88
0003FF34
C8C4D9C9
800052E4
40008302
0003FF34
0003FF 84
00000000
00000000
00000000
00000000
14040100
00030AOO
E3CI07C5
80001290
0003FF04
40008302
002F0500
OOOOOOEO
000036A8
00310100
00000001
00000034
00000F14
OFOOOOOO
04003A88
80001304
00120012
00000080
0003FEF4
000028FO
00002940
00000000
00000000
00000000
00000000
01D6C2D3
80001310
F3404040
00000000
00000080
0003FEF4
f3fOF5Cl
000058CO
00005C36
f4fOFIC3
80000100
0003FF34
00000F14
00000180
50001304
00003630
000032A8
400052CE
0003FF34
00000080
400052C8
00000000
0003FEFC
00000000
C8C8C8C8
C9(24040
14010100
00040500
00000181
00000181
0003FF34
000(0012
00000818
00040000
000(0012
80005388
80005388
00000F14
00000000
0000eOC4
0003FF5C
FF040000
00005434
00000180
0000003C
00000000
00000000
00000000
OOOCOOOO
40404040
00030900
E3C 107C5
80001370
00000000
00005218
00000180
000032A8
400032AA
00000180
000032A8
700032BA
00005850
00000F14
40000000
000000C4
OOOOC 5F 8
5000337E
0003FF34
00005434
4C008302
00000000
00000000
C 5C2C3F3
00000000
C1(54040
80001304
F2404040
14000000
00005434
0003FF34
00000000
END OF UUMP
ooccaoco
00C3F004
80C3FFOA
oocoooeo
40404040
E3C ID1C 5
80CO 1340
C2C505C4
40C052C8
cocce080
-0
..,0
COMPLETION CODE - SVSTEM=OOO USER =0256
IEF285I
EBCL I B
IEF285I
VOL SER NOS: 111111.
TAPE 180
IEF2851
IEF2851
VOL SER NOS=
IEF2851
TAPE181
IEF2851
VOL SER NOS= lAPE2
IEF2851
TAPEI82
IEF2851
VOL SER ~OS= TAPE3
SV$OUT
IE F2851
IEF285I
VOL SER NOS=
(EF2801 K 181,TAPE2 , ...... HH
IEF2801 K 182,TAPt:3 ,.,H"·H
IEF285I
EBCL I B
I£:F285I
VOL SER NOS= 111111.
.
.
PASSED
DELETED
DELETED
DELETED
SVSOUT
KE PT
IISCRATCH
II
IIOlIB1
JOB 1,EBC1,MSGlEVEl=1
EXEC PGM=IEHPROGM
00
UNIT=l311,VOlUME=S~R=111111,DISP=(OlD)
DO UNIT=l311,VOlUME=SER=222222,OISP=(OlOl
IISYSPKINT CO SYSOUT=A
IISYSABEND DO SYSOUT=A
DO •
IISYSIN
IEF2361 ALLOC. fOR SCRATCH
ON 190
IEF2311 DLIB1
ON 191
IEF2311 OLIBl
O~ OOC
IfF2371 SYSIN
IIDlIB2
Used to regain space the system has used for Scratch Data Sets
-orTo avoid a duplicate name running of job DODD.
-"
Q
"""I
SYSTEM SUPPORT UTILITIES ---- IEHPROGM
SCRATCH VTOC,VUL=23l1=111111,SYS,PURGE
STATUS OF USERS REQUEST TO SCRATCH THE VOLUME TABLE CF CONTENTS
DATA SET NAME
ACTION TAKEN
REASON FOR TAKING THIS ACTION
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.OOCOOOOI
SCRATCH
USERS REQUEST
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.CCC00003
SCRATCH
USERS REQUEST
END OF SCRATC~ VTOC
PAGE 0001
IEH2071
ERROR
SCRATCH VTOC,VQl=2311=222222,SYS,PURGE
IEH2071
STATUS UF USERS REQUEST TO SCRATCH THE VOLUME TABLE OF CONTENTS
UATA SET NAME
AC TI ON TAKEN
REASON FOR TAKING THIS ACTION
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.OOCOOOC5
SCRATCH
USERS REQUEST
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.OC000006
SCRATCH
USERS REQUEST
AAAAAAAA.AAAAAAAA.AAAAAAAA.AAAAAAAA.CCC00007
SCRATCH
USERS REQUEST
END OF SCRATCH VTOC
SCRATCH OSNAME=EBC.DDDO,VOL=2311=222222,PURGE
NORMAL END OF TASK RETURNED FROM SCRATCH
UT I LilY END
ERROR
-0
Q
"""I
I EF285 I
IEF2851
IEF2851
IEF2851
IEf285 I
I EF285 I
IEf2851
IEF2851
COOOOOOODDODCCCDDOOOODDODDDDDDDDDDDDDDDDDDDD
VOL SER NOS= 111111.
CCCCCCODCODCCCCDDDDDDDDDDDDDODDODDDDDDDDODDD
VOL SER NOS= 222222.
SYSOUT
VOL SER NOS=
SYSOUT
VOL SER NOS=
KEPT
KEPT
SVSOUT
$VSOUT
Appendix 20
INPUT TO STAGE 2 (PREFIX AND SVC TABLE)
IISG15
EX~C
IISYSLIB 00
PGH=IETASM
DSNAME=S¥Sl.~tNlI6,OI~P=(UlU,PASSt
II
ou USNAME=SYS1.MACl(6,OIS~=UlD,VUlUME=(,K~fAI~l
IISW$U'l uo D1SP=OlO.~OLUHE=(,RtTAIN.,LA~El=(,Sl.,OSHAHt=S¥S~.UTl
IISYSU12 00 DISP a OlD,VOlUME-C.RETA1N),lABEl=(,Sl),OSNAHt=SYS1.UT2
IISYSUTj 00 OlSP=UlO,VUlUME-(,RETAIN),USNAHE=SYSl.UT3
IISYSPRINT 00 SYSOUT=A
IISYSPUNCfl 00 DISP=OlO,VOlUME=(,KlrAIN),USNAME=SYSl.UBJMUOCIEASVCOO)
I1"SYStNDO •
I'tllNT ON,NOUA1A
IHASvtOO CSECT
ENTRY ~VPkfX,SVCI8l,SVlHT
NOPEXIT BR
14
SVPRFX
OS
OC
Ul.
»
o'"
I
SVCT8t.X
SVCTBt
All(1.3,4~5i6,1,8~9,LO,11,12,lj,14,22)
Uc.
At.l(1~,1(),2],24t,11,2~.2b.il,28,2'1,O,30,31,32)
DC
All «3 3, 34 , 35, 36 • 31',
DC
DC
All('1,42,2.21.2~l,2,O,2,41,t,O,O,44.
OS
EQU
DC
°,lB'. 39, 2, 18 , °,4 0, 19 , 20 )
All(2,O,O,O,2,O,2,O,45,O,Q,O,O,46)
oc
SVCTtilX-j
At.3(1~UOO+U.NOPtXIT,'GCU01+O.lbC002+0)
EXTaN IGCOOO,I~COOl,IG('002
DC
AL3(lGCUUJ+O,IGC004+0,lGC005+0,IGCOOb+l)
EXIRN IGC003,IGC004,IGC005,IGC006
oc
5V ... 14.
DC
DC
DC
~f\lU
I·
Al3(IGL001+1,IGCOOH+l,IGC009+0,IGCOIO+O)
tXfkN IGCOOI,lGC008,IGCOU9,IGCOIO
DC
Al3(IGCOll+O,IGC012+1,'GC014+~,IGCOl~+O)
tXfRN lGC.Oll,lGC012,IGC014,lGC015
DC
All(IGCOlH+l,IGC031+7,lGC040+1.1GC041+11
EXTRN IGCOIH,(GC031,IGC040,IGC041
()C
AL3 ( I Gl U4 ~ + 1 )
EXtRN IGC04~
OS
OC
All'1,1,1,1,1.1,1,1,1,2)
All'1,l,l,1,l,l,b,6,1,6)
All ( 1,1,1,7,1)
Appendix 21
IEAAIH, FIKST
LGC
OBJECT ('ODE
LEVFI
A/)D~l
INTERRUPT
A[)f)R2
HA~DLEkS
5T-"1T
SflURCF STATEMENT
275+*'::'*
000346
000346
00034A
00034E
00034E
000352
000354
000356
00035A
00035E
000362
000366
000364
00036E
000370
000374
4700 0306
900F C400
51190
05B9
lRAA
43AO
9546
4740
968Y
43A9
41~A
0031)6
004')0
0258
0023
0023
03f:A
023C
AOOO
AOOO
002'.>8
00023
OOO?3
OH
? R1 +-
9,TRACFSVC TRACF SVC.
7En+
S~
?c3/t+
Cr."-J+-SI/V
IC
lO.SVCf)PSW+3
CLl
~VCOP5A+3,10
10,SVA
I)C23C
2R7+SV'-i
HC
L'1
0001)0
00000
2 8 ~+
IC
:::' Kg+
LA
?9()+
1\1{
l01EA
/'il+
MC
:)00 1 (0
29?+
L
.....I
00037C
000380
000384
000388
00038A
000390
000394
000398
00039C
0003AO
~8~O 4000
49AO 025C
47AO 03DE
Q. SVC cnOF NOT
GET svc T"~LF AI)ilQrS5
10,0(Q,10) GET SVC INDEX FACTOR.
11,0(10,10) OERIV~ ADORFSS OF SVC
11,10 FOR PROGRA~ BFING CAlLFI1.
>3,SVtJ. 'J. NO TABLE F~TRY FXISTS F'l 0
1,16 CVT T~BLEAonRFSS.
4,IEATCBP+4
CURRFNT rCR
llC
AL4( IEATCBP+4)
2
~
I
W
000001
OOOOOE
000004
000006
OOOOOC
000008
000008
000008
ST.f!. T r: ME ~l T
DS
FNTRY
ns
USING
FNTRY
ENTRY
ENT~Y
FNTRY
fNTRY
f"JTRY
F XTK 0J
00
IFAODS
00
IEAAPC;,O
IFATCBP
IFCXTlER
SIRB
IfAOEFOO
SVCNV
[ECIFRLC
IEAOF"JOO
rQU
I:QU
1 IQF RfGI STER
372+GL
3 n+Gh
f-~
QLJ
It
F()IJ
6
371+(~X
374+GH
37')+GC
37t>+[Rf3l1F
-,77+FRRTAt,
') 7 1i+1)1: 130F
lit
~:fJU
12
F()U
g
FQU
EQtl
R
R
WO~K I{(GlSTER
()FFSET OF IRR ArJOR.
IN DEB.
Appendix 22
IEAAlr1,
ltC
FIRST LEVEL
PHERRUpr HANDLERS
UBJECT CJDf
STATFMfNT
snURCf-
TYPE I SVC EXIT ~flUT[NE
312+*
313+IEAOXEOC DS
OH TYPE I SVC EX IT ROUTINE.
3L4+SVCXT
NC
SVF+L( 1) ,SVCOPSW+2 Q. RFTURN [ S "JnT Tn f)~IGI~AL LFVFL.
31':>+
7,SVL
RC
316+
LM
Z,14,SVCSAV+A
IFATCfjp+2,0
317+-**
eLI
(,). D[SPhTCHF~ ( S 1'1 !i~ r-\lT~RFf).
~tl+***
0003A2
0003A2 0400 0347 0022 00347 00022
:)C3tH~
0003A8 4770 03B8
0003AC Sd2t 0401j
0040b
»
'"'"
I
:qg+
170+
0003BO 0000C472
0003BO
OC03BO 9500
000384
0003B4
0003B8
0003BC
0003CO
0003C4
0003C8
0003CC
47dO
820G
95FF
4740
90Al
58AC
0207
03t3C
OO~bC
1)020
00020
0020
OC070
0388
003f3tl
.J It30
OOlRe
0180
OOIRe
AOlO 0020 DeCLO OC020
000302 000(;0448
000302
000302 47FC
000306
~?I+
nc
C'KG
324+
3Z5+SVL
32':.+SVI
j27+
37B+
379+
330+
eLI
BC
SVC[lPSW,255 Q. CALLER IS f)ISABLE'1.
4,SVL
s T ~1
IG, 1 ,~i<'G
:iC
nRG
~4+
AL4( IEHCBP+Z)
*-4
X'q,)OO'
*+2
~
~33+
j~5+
0034E
BC
L PSrI
:;
3~6+
aOOl?
DC
flRG
3l2+
3~1+**
000306 92FF 0022
0OO30A 47FO 034E
***
~1V
f\
I
XRRPSW(R.IO),SVCOP5W
[EAOOS
.AL4( IF:AOf)S)
*-4
X'47FO'
*+2
SVCL1PSA+-Z,X'FFt
SVG
Appendix 23
IEAATA, FXIT AND TRANSltNT AREA
Loe
OBJtLT
coor
AOORI ADDR2
HA~OLER
ST"lT
')OURCF STt\TFMFIIJT
75+*~*
000000
000000 47AO
000004 4120
0006A
C06A
oooeo
cOCO
77+
7B+SVE
79+
81+***
000008
000008 0207 5010 0020 00010 0002C
OOOOOE 4180 0007
00C07
R2+SV~
R3+
84+$VH
A5+
b7+
88+
000012 00002004
000012
000012 58AO
000016
000016
000018
00001A
00001E
000020
000022
000024
000028
00002A
00002C
00002E
000032
000036
00003A
00003E
000042
000044
000048
000048
00004C
000050
000054
000058
00005E
000062
000066
000068
148A
17A8
4180
111B
lEll
JOOOd
dOO~
50AO
40BO
92CO
9262
023F
5050
5010
1851
07F2
OOOOC
1000
C048
4018
4010
F004
1020
00048
00018
00010
00004
00020
FOOO
'JOOOO
looe
L008
100A
OOOOC
00008
OOO,)A
OOOOB
1020 4030 00020 00030
0001C
101C
00000
4JOO
100~
USING SVF,12
BC
10,SVI Q. SVC IS NON-RFsrnFNT.
LA
2,SVT SET EXIT FROM SVRB CREATE.
SVRB CREATION AND GENERAL INITIALIZATION ROUTINf ***
OS
OH
~VC
XRRPSW(8,5),SVCOP5~ STORE 5VC OPSW IN CU~RENT RB.
LA
11,7 PLACE ~ASK IN ~FGISTER.
L
10 , S VCPS IN + 4
GF T S VC E • P. AN D R B 5 I Z F
DC
AL4(SVCPSW+4t
ORG
*-4
X'58AO'
*+2
p,q+
DC
90+
ORG
92+
93+
NR
XR
LA
LNt;>
q4+
q5+
96+
97+
lEll
4101
1300
OAOA
12FF
4780
58FO
9602
5810
4110
1800
5000
**
2ND LEVEL SVC HANDLER ***
q8+
99+
100+
101+
102+
103+
104+
105+
106+
107+
10B+
109+SVK
110+
111+
112+
113+
114+115+
116+
117+
118+
AlR
ALR
LA
LCR
S VC
L fR
BC
L
01
l
LA
SR
ST
OS
Sf
5TH
MVI
MVI
~VC
ST
5T
LR
BCP
11,10 [SOLATE EXTENOFO'SAVE AREA
10,11 SIZE FROM ENTRY POINT ADDRESS ANn
11,11(0,11) COMPUTF TOTAL SVR~ SIZF.
I,ll SET REG 1 NEGATIVE TO INDICATE
1,1 GETMAIN AND PLACE su~pnOL 255 INTO
1,1 REG 0 WHILE CONVERTING SVRR SIZE
0,0(1,1) FROM DOUBLE WORDS INTO BYTFS.
0,0
10
15,15 Q. SVRB CORE IS AVAILABLF.
Fl,SVK
15,TCBMSS(0,4t STEAL CORE FROM PARTITION AT l2
TCBFLG5+1(4),2 BYTES FROM ORIGIN.
1,4(0,15)
1,32(0,1) TREAT 'STOLEN' CORE AS SVRR.
(1,0
0,0(0,15) CLEAR MSS FQE POINTER.
OH
lO,XRBfP(O,l) INIT. F.P. ADDRESS IN SVRB.
11,XR9SZ(O,1) INIT. SIZE FIELD IN SVRB.
XSTABll),XSVRB FLAG RB AS SVRB ALSO ACTIVE,
XSTAB+l(l),XACTV+XDYN+XREG l6REGSAVE, ANn DYNAMIC.
XRHREG(64,1),TCBGRS(4t ~OVE REGS TO SVRB.
5,XRBLNK(0,1) ENQUEUE SVRB ON RB QUEUE.
1,TCRRBP(O,4)
5,1 SVRB IS NOW CURRENT RB.
15,2
I~AAIA,
lOC
O~JEC
tXIJ
T CODE
AND TRANSIENT AREA HANDLER
ADOPt ADOR2
00006A 00000000
00006A
00006A 48AO
00006E
176+
127+
128+
129+
00006E
000070
000072
000016
131 +
132+
133+
134+
135+**
lEAA
lEAA
5EAO C004
5860 AOOO
00004
ooooe
1 ~ 7+
00001A 00000001
00001A
00001A 4260
00007E
138+
l:~9+
140+
00022
00008
00001E 48DO 0022
000082 4520 C008
W
I
tv
1806
9869
8800
41BO
14BO
1108
8800
40BO
40BO
900E
5090
15E8
4780
18A5
0586
OOOE
9610
9801
980F
5860
05E6
OA03
COD8
0003
07FF
OOODA
00003
007FF
0003
1018
lOLA
100C
00003
00018
OGOIA
00000
OOOOC
COBC
OOOBC
1000
500A
5020
5054
500C
142+
143+
144+**
140+
147+
148+
149+
000086 00000000
000086
000086 45FC
00008A
00008A
00008C
000090
000094
000098
00009A
00009C
OOOOAO
0000A4
0000A8
OOOOAC
000080
000082
0000B6
0000B8
OOOOBA
OOOOBA
OOOOBC
OOOOBC
OOOOCO
0000C4
0000C8
OOOOCC
OOOOCE
snU~CE
STATEMENT
120+*** TYPE III SVC HANQlER
121+*
122+If4ATROO OS
OH
17~+SVl
OS
OH
124+**
Sri
10,SL~T
00006A
00006A
»tv
STMT
OOOOA
00020
00054
OOOOC
151+
152+
lS3+
lS4+
155+
156+
151+
158+
1,9+
160+
161+
162+
163+
164+
16S+
166+SVN
161+
168+SVU
169+
170+SVT
171+
172+
173+
174+0EXIT
17S+
DC
ORG
DC
ORG
·ALQ
AL R
Al
L
STC
DC
ORG
DC
ORG
Lri
BAL
BAl
DC
ORG
DC
ORG
**.
COR~FCT
SVC TABLF
I~~EX
AL4(SLMT)
X'4RAO'
*+2
10,10 QUADRUPLE RELATIVE INDEX FACTOR
10,10 FOR SVC-TTR TABLF.
10,ASVLMT
h,Q(0,10) GET TRANSIENT TABLE ENTRY.
6,SVCPS~+7
PRFPARF FOR 5VRR CRr-AF ANt) INIT.
AL4(SVCPSW+l)
X'4260'
*+2
13,SVCOPSW+2 SVRB CRFATE A~O INITIALIZE ROUTINF.
2,SVM
lS,SVCNV
CONVERT SVC CODE TO DECIMAL.
AL4(SVCNV)
*-4
X'4SFO'
*+2
13,6
6,9,QXFINCHO LOAO CONSTA~TS
13,~ ISOLATE TTR~SIlF
11,2047
11,13
13,11
13,3
1l,XRBQ(0,l)
11,XRBQ+2(0,1)
13,14,XRBNM(1) STORE NAMf IN SVR~
9,XRAEP(0,1) STORE ENTRY POINT IN SVRB
ST
14,8 Q. CURRENT SVC RESIOES IN XSNT.
CLR
8,SVU
BC
LR
10,S
g,6
Bt\lR
DC
X'OOOE' FINCH PAR~METER.
USING SVN,8
OH
OS
or
XSTAB(5),X'10' FLAG SVRB AS TRANSIENT.
O,l,XRBREG(5) LOAO PARAMFTFR REGISTERS.
U1
1~,lS,XRBPEG+52(S) LOAD SVC PARAMETER REG.
lM
6,XRREP(O,'»
l
HALR
14,6
~
SVC
DROP R
lR
lM
SRL
l/\
NR
XR
SRL
STH
STH
STM
FACTOR.
IEAAfA, EXIT AND TRANSIENT AREA
lOC
000000
000004
000008
OOOODC
OOOOE4
»
I'V
W
I
W
OBJEC T CODE
AOORI AOOR2
0000001)0
00000000
00000000
0000000000000000
OOOOCOOO
STMT
HA~DlfR
SOURCI: STATEMENT
111+TSRFT
178+ASVlMT
179+0XFINCHO
180+XSNTCC
lRl+XSNTlDFP
DC
DC
DC
DC
DC
V( INTOZ5) lOS lZ*-RETURN ROUTINE ADDR.
A(SVlMTt
A(IEAOFNoOt
Xl8'OO' NAME ASSOCIATED WITH CURRFNT XSNT.
A(IFAAXSNTt TRANSIENT AREA fNTRY POINT.
Appendix 24
IEAATA, EXIT ANO TRANSIENT AREA rlANOlFR
Lec
OdJECT CODE
AODRl AODR2
STMT
183+***
EXIT PRQGRAM
IB')+IEAAXT
186+IG(003
187+**
0000E8
OOOOE8
0000E8 ooooccao
0000E8
0000E8 58CO
OOOOEC
STATF~E~T
SOlJRCF
lR9+
1 -10+
191+
192+
ns
DS
l
DC
(1RG
nc
()RG
"1VC
OOOOEt 023F
OOOOEf OOOOGOOO
OOOOEE
OOOOEE 4030
0000F2
196+
197+
1(jM+
199+
200+
202+**
104+
205+
206+
207+
0000F2 00000001
OOOOF2
0000F2 940F
0000F6
OOOOFb
OOOOFC
000100
000104
000108
00010C
000110
000114
000118
000118
00011 A
000 LIE
000122
000126
00012A
0001lE
000132
000136
000 l~A
00013E
000142
000144
000148
00014A
00014E
00014E
000154
000158
00015A
0502
4770
58Ea
9200
9802
5000
983lJ
)025 006n 00025 00060
Cllt!
OOlLB
4004
EOOO
1:008
0024
403C
00004
00000
00008
00024
0003C
C0020
8200 a020
18A5
580A
91CO
4740
4770
9510
4170
94EF
58HO
4100
9220
OA09
58bO
12BB
4770
0001C
001C
AOOA
CI0b
C154
AOOA
C14E
AOOA
A018
OOOOA
001D6
00154
OO(,OA
0014f:
OOOOA
JOOIR
aOOOR
~008
3012
00012
3020
00C20
(13A
00 13A
0203 4068
94AF AOOB
151J4
4770 (lb8
~014
00068 00014
00008
J0168
20<)+
2IG+
711+
212+
213+
214+
71'5+
216+
217+f1XA
218+
219+
220+
721+
222+
223+
274+
225+
'126+
2Z7+i)l(P
228+
229+
230+
231+
232+
233+DXO
234+
235+DXC
? 36+
237+
***
aD
OH
lZ,SVEX
AL4(SVFX)
*-4
X''58CO'
*+2
TCRGRSCb4,4),SVCSAV
OC
X'D23F'
DC
DRG
DC
*-4
ClRG
*+2
NI
DC
ORG
DC
ORG
CLC
BC
L
~VI
lM
Sf
lM
lPSw
OS
LR
L
TM
BC
HC
CLI
AC
NI
L
LA
MV I
SVC
L
L TR
tiC
ns
,,,we
NI
CLR
RC
SET BASE ADDRESS.
,OVE REGISTERS Tn TCH.
AL4(SVCS~V)
~L?(X'4000'+TCBGRS)
~VF+l,)(lDF'
RESFT SVC TYPE 1
S~ITCH
AL4(SVF+l)
*-4
X'940F'
*+2
SVCOPSW+~(3),PINPSW+5
1,nXA
14,TCAPIE(O,4) GET P.I.F. AOnRESS.
0(14),0 FLAG P.I.E. IRE-ENTRANT'.
13,2,8(14) RESTORE P.I.E. REGISTFRS.
11,5VCOPSW+4 INITIALIZE RESUME AODRESS.
3,13,TCBGRS+IZ(4) RESTORF REMAINING REGISTERS.
SVCOPSW
OH
10,5
13,XRBlNKCI0) GET NFXT RA A~DRESS.
XSTAB(lO),XIRA Q. Rn IS IRI3 OR SIRA.
4,DXR
1,DXC Q. RETURNOR IS NOT PRB.
XSTAIH 10) ,XNSVRB Q. RB IS NON-LOADED ''1AJOP'.
1,nxO
XSTAHCIO),7'55-XNSVRB TURN OFF 'MAJOR' IN~ICATOR.
11,XRBQ(0,10) GET FIRST '~INOR' RB.
0,8CO,11) POINT TO NAMF Tn BF DELETED.
XSTAR+RCll),X'20' RFMOVE MINOR FLAG FOR DELETE.
9 DFlETE 'MINOR'.
11,XRAQ+8CO,11) GET NEXT '~INOR'.
11,11 Q. 'MINORS' RE~AIN TO nELETF.
7,nxp
OH
TCRGR5+56(4,4),XRBPSW+4(13) SET R14 FRnM RESUM~ AnDR.
XSTAB+l(10),25~-XACTV OEACTIVATE RFTURNING RR
11,4 Q. RETUR~ NOT FRO~ HIGHEST lFV~L.
7,OXF
IEAATA, EXIT AND TRANSIENT ARFA HANDLER
LOC
00015E
000162
000164
000166
000168
000168
00016C
000170
000174
000118
0001lC
000180
000184
00018A
00018E
000192
000194
000196
000196
000196
00019A
00019E
OOOlAO
000lA4
OOOlAA
OBJECT CODE
ADDRI ADDR2
9640 4010
1811
0610
OAOD
00010
5000
91ED
4710
9602
4000
AOOA
C118
AODB
9122 ADOS
9100
4110
18F4
9809
0217
9001
01
SR
BCTR
SVC
OS
ST
TM
BC
240+
241+
00000
OOOOA
00178
00008
00008
C196
C1BA
aOOA
SOURCE STATEMENT
238+
239+
00196
0018A
4038 5028 00038 00028
00008
ADOB
00003
B900 0003
ISlA
OAOA
4780
4140
0233
4800
STMT
00182
F030
00030
F030 F058 00030 00058
F048
244+
245+
246+
247+0XI>1
01
TM
Be
248+
249+
250+
251+0XN
BC
MVC
LH
Sll
lR
sve
252+
253+
254+
os
255+0XE
256+DXG
257+
OOOOA
CIB2
242+0XF
243+
00048
258+
2'l9+DXQ
260+
OS
TM
Be
lR
lM
261+
262+
STM
263+**
000 lAE 00000000
OOOlAE
OOOLAE 47fO
000182
MVC
B
TeBFLGS+l(4),X'40' fLAG TeB NORMAL RETURN.
1,1 SET UNIQUE ABEND CODE IN REGISTER 1.
1,0
13
OH
13,TCB~BP(0,4) OEQUEUF CURRENT RB.
XSTABCIO),XLODP RETURNOR IS NOT NORMAL PRR.
7,DXM
XSTAB+l(lO),XDYN CAUSE RB CORE TO BE FRfEO.
XSTAB+l{lO),XREG+XDYN Q. ABNORMAL ACTION REQUIRED
~,OXF Q. R8 CORE IS NOT TO RE FREED
4,DXN Q. RB DOES NOT HAVF 16 REG SAVE AREA
TCBGRS+8{S2,4),XRBREG+8C5) MOVE RB REGS TO TCB.
O,XRBSZ{O,10) REGO=NUMBER OF BYTES TO BE FREFO
0,3
1,10 LOAD AREA AODRESS
10 ISSUE
FREEM~IN
265+
DC
Al4(IEAOf)S)
266+
267+
268+
ORC,
*-4
270+***
SVC
OH
OH
XSTAB(13),XSVRB+XNSVR8 NEXT ~B IS TRANSIENT SVRB.
1, DXD
15,4
O,q,TCBGRS{ 15)
TCBGRS(24,lS),TCBGRS+40( 15) PLACE TCB REGISTERS ~ACK
O,1,TCBGRS+24(15) IN 10-q SEQUENCE.
I EAOOS
DC
X'47FO'
ORG
*+2
TRANSIENT RFFRFSH INTERFACE ROUTINE
***
0001B2
0001B2 0503 COOC 0000 OOOOC 00000
000188 4180 Ci9E
0019E
272+IEAARFOO OS
273+0XD
CLC
274+
Be
275+**
MVI
OH sve TRANSIENT AREA REFRFSH ROUTINE.
XSNTCC(4),XRBNM(13) Q. SVC CURRENTLY RESIDES IN XSNT.
R,OXQ
SVCPSW+7,1
PASS SIZE TO SVRB REATE ROUTINE
0001BC 00000001
0001Be
0001BC 9201
0001CO
217+
278+
279+
DC
ORG
DC
ORG
Al4 ( SVCP SW+ 7)
*-4
X'9201'
*+?
5,11
284+
LR
SAL
LR
265+
l
11,DXFINCHQ GO TO FINCH.
286+
287+
BALR
8,11
DC
X'OOOE'
O,15,XRBREG(5) RECOVER REGS O,I,IS.
OOOleo
0001e2
0001C6
0001C8
0001ce
OOOlCE
000100
000104
000106
000106
000 IDA
OOOlOE
280+
1850
4520 CODE
l8AD
5880 C008
058B
OOOE
980F 5020
OA03
910C AOOB
41BO C228
5810 A018
OOOOE
00008
282+
283+
00020
?88+
00228
00018
289+
Z90+DXB
291+
292+
293+
00008
LM
SVC
OS
TM
BC
L
2,SVH TO SVRB CREATE ROUTINE.
10,13
3
OH
XSTAB+l(lO),XIQEN12+XIQE12 Q. IRB'S IQE IS NOT 12*.
11,DXJ Q. IQE IS NOT 12*.
I,XRBQ(O,lO) OEQUEUE 12* FROM IRS.
IEAATA, EXIT ANn
lGe
UtiJEC T cout:
TnANSI~NT
A[)Ukl
0001E2 437C 1000
0001E6 5070 A01S
OOOlEA 9ti~' 1004
A~D\.(?
00000
00018
0:)004
000lEF OOOO(';DOO
0001EE
0001EE ~85C
0001F2
~REA
HA~Ol~~
STMT
snURCf:
794+
295+
{'90+
297+**
GOODO
A200 0020
,)0024
('IOnCE
00000
00021
00224
CCO?O
00020
D23F 4030 A020 00030 OOCle
47FO (,154
00154
*
0 F QU F U F •
At)D~ESSES.
LOAn IJS BASE ADnR.
X',)1350'
*+?
L
11,TSRFT GI=T lOS 12*-RETlJR~ ROUTINF AnDR.
6,10 SAVE ~tG. 10.
~,11 FNTER IDS 12*-RETURN ~OUTI~F.
17,4 RESTORE AnDRESSABILITY.
304+
305+
300+*,):
ooooc
lOR AND m-B
DC
(lRG
31C+
311+
312+
31,+
S8FO Aooe
50f-O 0024
41fC eOCE
580l) AOOO
9101 0021
4770 C224
S20e 0070
5,Alns
L
C O~ PL F T F 1 2
301+
0001FC OOOaCL\ 00
OOOlfC
OOOlFC 58CO
000200
00226
7 , X R B Q ( a , 1 0)
?,'":\,/t ( l ) GET
ORG
307+
4180 C22H
.~
()C
306+
18A6
1217
l
7,0(0,1)
~oo+
000lF8 05tiH
OOOlFA ltiC4
000200
000202
000204
000208
000208
00020C
000210
000214
000218
0002lC
000220
000224
000228
000228
000228
000020
00022E
LH
ST
?qq+
302+
000lF2 SARO eau]
OOOlF6 lS6A
STATE~[NT
315+316+f)XL
317+
31H+f)XI
319+
3.?()+
321+
3:?2+
32}+
3?4+
325+
326+
327+f)XJ
32d+f)XH
329+
3'30+TCBFSIRB
331+
332+
LR
BAlR
LR
L
nc
CKG
or
ORG
lIl4(AIOS)
l?,SVFl(
AL/i(SVFX)
*-4
X·S8CO'
*+2
RE-ESTABLISH AnORE5SABIL ITY.
LI{
10,f-
LTR
1,7 Q. LAST 12* FOR THIS IRR.
MC
1,QXH
OH
15,XRHFP(0,lO) GET IRR ROUTI~E F~TRY POI~T ADORE~S
1S,SVCOPSw+4 AND ASSEMBLF Rf-FNTRY PSW.
14,OEXIT PLACE RETURN ADDRESS I~ RETURN RFG.
13,XRBNM(0.10) REINIT. SAVE AREA AD~RFSS.
SVCOPSW+l,l Q. IRB IS PRQRLEM PRQGRA~.
7,*+8
SVCOPSW,o DISAALE PSW IF IRB PRIVILFGED.
SVCOPSw RE-ENTER ROUTINE.
OH
OC
rCf%PS( 64,4) ,XRBREG( 10) "'lOVF IRB REGS TO TCq.
X'20' rCB, SIR8-1N-PROCE5S INDIC~TOR.
OXC
12
OS
l
ST
LA
L
TM
BC
MVI
LP SIoI
DS
flS
~VC
ErJU
8
DR(1P
lEAATA, EXIT AND TRANSIENT ARFA HANDLER
LOC
OBJECT COOF
AODRI AnDRZ
SIMT
SOURCE 5TATfMHJT
334+***
ADDRESS VALIDITY CHECK ROUTINE
***
~16+*UPON FNTRY T1 THIS ROUTINF RFGISTER 7 MUST CONTAIN THF AO~RE~S TO
337+*6E CHECKF9 FnR VALIOITY. REGISTER 8 ~UST CONTAIN THE RnUTINE ENTqy
118+>l'I>JINT, ANO 10 THF RETURN ADORESS. PEGISTER 9'-1UST COI\lTAIN EITHER THE
339+*TCH AUORfSS OR lfRO. IF ZERO IS fOUND IN REGISTER 9 THE CURRENT TC~
340+*AODRE5S WILL BE RETURNFD TO THE CALFR IN REGISTER 9. UPON RFTURN TO
341+*THE CALLFR R~GISTER 7 WILL CONTAII\l THE STORAGE KFY IN THE lOW ORnFR
14?+*HYTF,lEFT ADJUSTFO,ANO THE CONDITION COD[ WILL HAVE ~FFI\l SET TO 8
343+*(45 IN BC 8,***) FOR A VALID ADORFSS.
IF THE CONOITION cnOE IS OTHER
~44+*THAN A THF AnDRESS REING CrlEC~~f) HAS Bf~N FOUI\j1 Tn BE INVALID nUE TO
34S+0AOQRESSING O~ PROTECTION. REGISTERS R AI\jO 10 WILL REMAIN TR4NSPARE~T.
346+*CALLFRS TO THiS ROUTINE MUST RF PRIVILEGED. THE SYSTEM MASK IS
347+*U~IMPURTANT.
»IV
~
I
~
34()+Pl
3')(J+P '2
3')I+R3
~ S2+Q It
000007
COOO08
000009
OOOOOA
FQU
f(.,)U
7
!3
f:QU
9
I:Qu
10
lJSI~G
*,'<2
0H
3" 7+
LT?
BC
35fH*
l
359+
3fO+
36]+
367+
363+VLA
DC
ORG
DC
~53+*
000237
000232
000232 12<;9
000234 4170
000238
000238
000238
00023C
00023C
00023C
000240
000242
000244
000248
354+
355+IEAGVlon
3h 1+
BCR
~3,R~ Q. CALLER HAS SUDolIFO TCB AOOQFSS.
7,VLA
L 3 , I fAT C RP +4
GET CUR REN T TCBAD DR E SS •
AL4(IEATCAP+4J
*-4
X'5890'
·+Z
OH
Rl,VMCSZ AODRESS NOT WITHIN MACHINF RANGE.
2,R4 RFTURN TO CALLFR WITH CC SET.
Rl,Pl
15,P4 ~ETURN TO CALLER W[TH CC SET.
3 68+ V'-1( S Z
369 ..
OS
DROP
R2
1'56+
~O(jA
0023C
0000e004
5840
5570 8016
072A
1877
07FA
00~4H
ORr,
OS
CL
RCR
·~f..4+
365+
3t>6+
371+***
00024C OA28
00024E 07F!::
os
SR
TEMPORAqy LINKAGE TO IRB CRFATION ROUTINE
SVC
43
BR
14
f NO
172+I~AIFF00
373+
~H4
1F
***
Appendix 25
NIP
Lec
SVC
TRR
Ut3Jtl T
CL1UE
TABLE
Al)l)Rl
AfiORl
SP1T
SLURLf.: STATtMENT
38')+*
386+*
,R7+*
,8R+RO
aeoooo
38:j+P 1
COOOOI
C00002
000003
C00006
C00007
GC0008
C00009
COOOOF
'390+ P, '2
391+R1
392+P'6
393+R7
3<:f4+Rd
'3 S5+ R 9
'396+Q,15
TT~ ANO LENGTHS OF Cll NON ~FSIOE~T SYC'S
AND SAVE IN SYCEXTNT TABLE
*************************************************************
F')U
0
FQU
1
EQU
2
FQU
'3
FQU
f)
FQU
7
OBTAI~
FQU
8
t.QU
9
f()U
15
FQU
SR
*
A,B
397+*
»
~
I
OOOOSO
000080
000082
000086
000088
OOOOBC
OOOOCO
0000C4
0000C6
0000C8
OOOOCC
OOOOCE
000002
000006
000008
OOOODC
OOOOEO
OOOOEZ
1888
4190
187"7
5H60
5840
4866
IB22
1832
4331
1836
474C
893C
1883
5830
4120
1972
41AO
398+IEAOUT2
399+
0046
00C46
00 +
LA
~9,SVPRXLN
401+
S~
K7,R7
't
:~AA
'lrF he
4()2+
L
1<6, SUHAD
C?A2
0000
OOE64
40~+
L
404+
405+SVXINIT
LH
4,SVXPKFX LOAD AD~R OF SVC P~EFIX TARLE
~6,O(R6) LOAD HIGHEST TYPE II.? I/\,JDEX VALUE
SR
Lq
R~,K2
IC
SR
R~,R6
ooooe
406+
4000
OCt 3C
487+
40tH
4C9+
00002
410+
5LL
411+
tR
LA
00')00
C57A
0002
00Eb8
C5A6
0046
0(046
412+
ttl 3+
414+
C592
OOF~4
415+
0000E6 1817
OOOOEti 4EIO C5D6
nOOOEC f332 C5d6
416+*
417+*
418+
OOEq~
C5U~
OOE7g 00[90
419+SVX(ONV
420+
Ke
L
Cp
HC
OOOE06
OOOEOA
OOOEOE
oaOE12
0()'OE14
000E18
000E1C
000E1E
000E24
4100
5810
?811
OA12
12fF
4770
C5AE
0010
0054
C588
00E7e
OCOI0
00054
}OE4A
4110 C582
00E74
48tH OOOE
0016
OOOOE
00016
0010
OOOt
00010
OOOGE
8B80
1855
4351
8d50
16135
D201
4850
C5DE 101B OOEAO OOOlh
C5DE
OOEAO
427+*
423+*
424+
425+
426+
R?,R2
R3,O(R7,4) lOAD VALur FROM PREFIX TARLE
SUB LOWEST TYPE TYPE 3 OR 4 VALUE
4,SVXLOOP ~RANCH IF NOT A TRANSIENT fNTRY(NFG)
~3,2 ~ULTIPLY RY 4
8,R3 SAVE FOR STORING TTR
P1,SVCXTA8 REG3=ADOR OF SVCfXTNT TARLE
R2,SVHI LOAD NUM~fR OF HIGHEST IRM SVC + 1
R7,R7
10,SVXUSER BRANCH IF USER PRnVID~n
THE NUMBFR Of THF ENTRY IN THF PREFIX TABLE
IS THE SVC NUMBER IF NOT A USER PROVIDED SVC
LK
R 1, P 7
CVD
Rl,SVWAl CONVFRT SVC NUMRER TO nECI~AL
SVNAM+4(4),SVWA1+5(3) UNPACK TO 4 ~tGIT VAlUF ANn
PLACE IN STANOAR~ SVC NA~F
U~PK
421+*
OOOOF2
0000F6
OOOOFA
OOOOFE:
OOOEOO
000E02
lOAD LENGTH OF SVC PREFIX TARLE
LA
L
L
4;? 7+
svr
428+
L TR
429+
~C
430+*
4 ~ 1 +*
432+SV)(F(1UNll LA
413+
lH
434+435+
436+
437+
SLA
438+
GR
439+
440+
LH
SR
lC
SLA
A.1VC
GET DE ENTRY FOR SVC ROUTINE
RO,SVlST
Rl,16 GET CVT AD~R
Ql,A4(Rl) GET SVC DCB ADDR
18 LIN~ TO RLOt RQUTINE
Rl'),R1'5
7,SVXERR BRANCH IF NOT FOUND
R1,SVLST+4
11,~(TTR(Rl) REGll=TT RIGHT ALIGNFD
11,22 RfGl1=10 BITS OF TT LEFT ALIGND
5,5
5,DETTR+2(R1) R5= R RT ALIGNED
5,14 R'5= R ALIGNED TO TT
11,5 Rl1=TTR LEFT ALIGNED
HWD(?) ,DELNTH(Rl) MOVE LENGTH FIElO
5,HWD
lOC
000E28
OOOE2C
OOOE2E
000E32
000E36
OCOE38
UBJECT CODE
8650
1685
4150
5458
1685
50B8
AD0Rl AOOR2
0003
0007
3000
3000
STMT
SOURCE STATEMENT
00003
441+
SlA
OR
11,5 Rl1=TTR + LNGTH LEFT
00007
00000
442+
443+
444+
LA
5,7
00000
t),~
ALIG~FD
5,0(S,3)
445+
rR
446+
ST
11,O(S,R3) REGll=TTR+LfNGTH+ESA
11,5
[N
TABLE
447+*
OOOE3C
OOOE40
000E42
000E46
000E4A
000E4C
41-'7
1 en"!
474C
47FO
1600
4207
0001
00001
C502
C5EO
000C4
00EA2
4000
00000
448+SVXlOOP
LA
44q+
CR
R7,1(R7)
R7,RQ
450+
hC
4,SVX[NIT BRANCH IF MORE TO CHECK
451+
452+SVX[RR
8C
SR
STC
15,IFAEXIT
0,0
4~3+
454+*
455+
456+*
OOOE50 47FO C57A
B
INCREMENT INDEX TO SVC PREFIX TARLF
Q,0(R7,4) CLEAR PREFIX VALUE SO THAT REQUESTS
FOR THE ~nUTI~E WILL CAUSE AN ERR
SVXLOOP CHECK FOR MORE ENTRI~S
PRINT MESSAGE-~OUTINE ~OT FOU~O
457+'1,'
4 ')H+*
000E54
000ES6
000E5S
OOOESC
OOOESE
1817
1B12
4120 OOFF
1712
47FO CS26
4 59+ S V (lJ S F R
l R
460+
SP
OOOFF
461+
LA
OOOES
462+
463+
XR
Be
GET SVC NU~BER FOq USFR ROUTINE
Pl,D7 LOAD INDEX TO PRfFIX TABLE
Rl,R? SUB HIGHEST IB~ SVC + 1
R2,255 COMPLEMENT VhLUE TO GFT SVC NUMBER
Pl,R2 OF USER PROVIDED SVC
15,SVXCONV BRANCH TO GET ~F ENTRY
46 /++*
465+I)VPRXLN
000046
OOOOOE
00001B
466+DETTR
467+D~LNTH
fQU
EQU
FQU
70+255-255 TOTAL NUMBER OF SVC'S
OC
DC
DC
DC
A(SVPRFXI ADDR OF PREFIX TABLE
A(SVLMT)
A(SLMT) AODR OF SVC LIMIT VALUE
X'Q0010024' INPUT PARAMETER TO BLDL
C'IGCOOOOO' STANDARD NAME FOR SVC ROUTINES-1ST 4 CHAR
IF'O' AREA FOR RETURN OF DF ENTRY FROM BLDL
14 OISP OF TTR FOR TEXT RECORD I~ OF ENTRY
21 DISP OF LENGTH OF ROUTINE IN DE ENTRY
46R+*
000E62
000E64
000E68
000E6C
000E70
000E74
000E7C
000E98
000E98
OOOEAO
OOOEAO
0000
OOOOCOOO
0000(000
OOOOCOOO
00010024
(9C7C3FOFOFOFOFO
0000000000000000
464+SVXPRFX
470+SVCXTAB
471+SUHAO
472+SVLST
473+SVNAM
474+
475+
OOCOOOOOOOOOOOOO
476i'"SVWAl
477+
47R+HWI)
DC
DC
DS
I)C
00
DS
XL8'OO' WORK AREA TO CONVERT SVC NUMBER
OH
DS
H
LOC
OBJECT CODE
AODRI AODR2
000EA2
000EA2
»
~
I
W
OOOEA2
OOOEA4
OOOEA6
OOOEAC
000E80
000E82
000E86
OOOEBA
000E8E
000EC2
000EC4
000EC8
OOOECA
OOOECE
000E02
OOOEOd
OOOEoC
000EE2
000EE6
OOOEEA
ST~T
SOURCE STATEMENT
480+
OS
OH
481+1EAEXIT EQU
482+*THIS ROUTINE OPENS LINK LIB nES
483+
SR
15,15
484+
SR
11,11
485+
MVC
IEAOSTNM(44),IEALNKNM MODIFY OS ~M TO LINKll8
486+
BAL
9,IFAlOCAT BRANCH TO VOlI~ LOCATION ROUTN
487+
CR
15,11
488+
RH
IEANIP7
489+
~Al
d,IEAROVOL BRANCH TO RF.AO OA VOL ROUTINF
4<)0+
CH
10,IFAIPl IS LINKll13 nN IPL-EO OEVICF
491+
Sf
I~ASAMED YES- PERM RES BIT 15 S~T
SR
492+
6,6 CLEAR ~EG 6 ~OR MULTIPLY
493+
lH
7,IFAVTOC ~EG 7 = CC OF VTDC
494+
MR
t,,4 CUNVERT CC INTO TRACKS
495+
AH
7,IEAVTOC+2 ~EG 7 = TT OF VTnc
496+
7,36(3) STORE VTOC TT IN LINKllB UCB
STH
497+
MVC
3R(I,3),IEAVTOC+4 ~OVE R OF VTQC INTO LINKllB UCR
498+
n[
3 ( 3) , X' 84' STATUS A = ONLINE AND PFRM RES.
499+
MVC
2R(6,3t,IEAVOLAB PUT VOLUME LABEL INTO UCB
500+1E4SAME:-O l
1.16 REG 1 = CVT A!1DR
501+
1,CVTLINK( 1)
l
BAl
502+
14,IfACOMON
*
1BFF
lBBB
022B
4590
19F8
4120
4580
49AO
4780
1B66
4870
1C64
4A70
4073
0200
968 ..
0205
5810
5811
45EO
CDIE C!J06 01640 016'H1
C7FE
010CO
C62C
C 74A
CBF8
(620
OOEEF.
o lOOC
0148A
00EE2
CCA2
01564
CLA4
0024
01566
00024
3020 CCA6 00026
0156~
00003
3003
301C CCA7 OOCle 01569
OOOIC
0010
0008
00008
C 786
01078
Appendix 25
MI:MBE~
GSChDlR
£.IEEPG
GIEEPP
MSCEC
*•
*
•
•
•IGC03E
NAME
lEfl'4lCOl
l1t3lC
~Sehl)lK
GBlC
GBlC
SEle
GIEEPG
GIEEPP
'sss'
'OMC'
SEIC 'OMC'
lE[GMSLT OSEC1,~M~l=YES
lE:lMIOlS
TITLE 'wRIT!: TO UPI:RATG~/~RITE TO UPtRATOR WITH RfPlY'
Sl:l~
***
~TC/~J(R
***
Thl~ MACRO I:~A~llS ThE LS~R TO ~~ITf A MESSAGE TO THE
OPERATOR AND, if hI: SU DESIKtS,KEQUI:ST A REPLY.
CStCT
LSIN~
uASfRlG,C
*,BASLREG
B~Ll~
PS~UDC-OlSAHlE
l
lr-.SThuCTIUN ADDRESS
tiASERElJ2,MSUe~PK
RETURN wiTH I:nfF AI1R (BC MASK» SAVED
MSlJCI1AL( 1) ,l(BASEREG2)
SAVE CURRENT MASK
1(~ASEKEG2),X'FO'
INSERT DISAHLING MASK
~ALR
~SlAHllSH
wTU/~rUR
IjA5t ~t::GISTfR
bAStRE:lil,TVTAOI-'
L
eVT AOR TU RB
~ASERE:lil,lEEMSlTV(eASfREGlJ
RES CCRE ADR TO Rd
l
uSING llEMSlT,BASEKEGl
ESTAbLISH RESIDENT AODRtSSABlllry
*
..*
OC4dOOOO
Sf
••
*
*
00020000
00040000
00060000
00080000
00100000
OC120000
00140000
OOlflOOOO
00lAOOOO
00200000
00220000
00240JOO
J8260000
00280000
00100,)00
00320000
00340000
00360JO)
00380000
00400000
00420000
00440000
00460000
MVC
MVI
tlASl:KflJ2,~SAtiL
SUPE:.RVI~OR
00500'JOO
00520000
00540000
00560000
00580aoo
ENL PStuDU DISAUll:
ss~
lR
1M
BO
(1
LA
ST
B
WICKETRY BAl
SS~
B
Nap
CONTINUE LR
TM
Bl
LA
SR
WTOAOR
IC
ClI
BNr
lI'-4GrH~AD LA
t3
It\GThLE4 Cli
BNtIt\GTHUK xc
Myr
00600000
00620000
MSENABlE
foIACHINE ENA8LE
00640000
00660000
S~ANREG,PASSREG1
SAVE LIST PCINTER AODRESS
00680000
MstCBfl,~SwTO
flRSl TIME IN SVC34 OK SVC3?
OC700000
0(17200')0
~TGKETRY
N(,wAIT ANU CHECK FOR POSSIBLE RET~Y
MSEC~fl,~SATTN+MS~lG
YES,SVL34 AND SVC3~ SwITCHES TO UN 00740008
00760000
VKSTbl,MSCMD
RESIDENT BUfF[R
00780000
VRtlTBl,CL~RDR
ADDRESS TO CLW
00800000
LONTINUE
0()820000
TK~ASAOR,EkENTkYl
WAIT AND ChELK FUR ~OSSlBlE RETRY
00840:)00
MSENAtill:
PER~ANENT ERROR. ENAbLE MACHINE,RETRY
00860000
RETRY~TU
RETRY
00880000
*+4
IGNURE OR ERROR FREE
PASSREGl,SCANREG
RESTORE wTC/wTOR LIST POINTER ADDRESS 00900000
0('1920000
O(PASSREGla,ONES
wTO OR WTOR
wTOADR
~TO
SCANREG.8(SCANkEG) WTOK,PUI~T TC wrD LIST
WURKRtG,WORKREG
CLEAR R6
~URKREG,l(SCANREG) ~ESSAGE LFNGTh+4 TU R6
1(SCANRE~a,BITO+BI16
MSG LNGTH+4 .Gr. 130
lNGTHLE4
NO,TEST FOR lN~TH .LE.
wORKKE:G. 130(0,OJ
YES,~AX MSG lNGTH( 130)
lNGTHUK
1(SeA~RE~),tiIT5
MSG LNGTH+BFR HDR LNbTH
LNGTHBAD
MSBCTlt-'S),MSBCTLh
lERO OuT BUFFER HEADERS
MSHFH(4t,Q(SCANREGt
USER MSG BFR HDR 1U RES
Ob94COOO
4
TO R6
.lE. 4
BFR HDR
0096COOO
00980000
01000000
01020000
01040000
01060000
01080000
01100000
01120000
01140000
OJ160000
t(LI":UL'"
' .. Mt·iL
SH
EX
TM
bC
e
*MSGMCVi:
*WTORMUVE
MVC
MVl
MVC
LA
CLtANlJP LA
LK
MSGAGA!N STC
LA
STC
lH
SH
SH-
"fHRETKY LA
Sf
MVI
XC
l>
I'V
~
I
I'V
*
*
*
*
*
SSt-'
BAL
EXCP
!>S'"
TM
Bl
TM
III
*
*
*ERRORIN
WlJRKi{lG,~SSSf-IVt
1'1SG U\GIH-l UF MSG FUR MOVE
MOVt: USEKS MESSA Gf TO Rt:SlDFNT BUFFER
.. fO OK wTOk
wTCR
wTO
01180000
01200000
01220000
01240000
l.LfANI.J~
01260000
01280000
"'::'U1IJ( 1) ,4( S(.ANRfti)
01300000
01320000
MSCMlJt-3( 123) ,4(SC.~~REG)
wTllR ,t-1Sv OFfSET 3 CHAR TO RIGrlT 01340000
,." SCM U( 3 • ,l.l B
Kf:PLY 10 (00 ) PRI:CFEDING MSG
01360000
~ORKR(G,3(~OKKREG)
1Iii ( k EM E[\ T MSG TENGTH fW 3
:J138000()
~dKKIU.':(;, S (v-OKKkEG )
')1400000
')AVE r.rr/wTUk Ll S T PCINlfR
S CAr..lG LI';GTtl+4 Tt) ~l
01500000
~ASS~~G1,MSSSFUUK
CECRi:MlI'.T k 1 TLl ACTuAL MS(' LNGTH
01520000
PASSRI:Gl,ClwRDK+6 MSG U'JGTH TLJ CCWRDK
015401)00
PASSR[(,jO, CCWRlJR
(CW AIJOKESS
01560000
PASSHlGO,C(WAI
TO luts
01580000
CCwRDR,X'OS'
1052 wRITE l..Ct-'MAND TO ccw
01600000
tCoKOk(4),ECbKlJk
CL bW, I:Ct)
01620000
01640000
MACHINE lJISAoLf
*+1
01660000
01680000
CHf-CK FUI{ EXT INT (ALI Cor-..SOLE a
kETUKN,CUNSWICh
01700000
o L 120000
01740000
ICI:~RC'"
J17&'JOOO
jIIACHINL f I\At~L I::
01780000
MSENAUlE
01800000
C ( SCAt\REG a ,OI'tE S
hTO CK WTCK
01820000
wTC
01840000
EKROKTN
tCtjj{DR,BiTl
~TOk,tiAS CH tNt) BLFN PuSTEO FOR WTO
01860000
NC,LUOP l.J~n 1 L POSTED
01880000
*-4
wJKKREG,MSGMUVf
o (PASSRf:G 1), m~ES
S,wTGRMOVE
01900000
***
bAL
SS,..
B
""OF
EQL
QUOTE
TM
BZ
WTCKLOOP Ll
TM
BU
XC
MV i
MVC
MVC
LA
ST
MVI
xc
*
tLLV1t\..v.l.
fULL ERROR TESTS MADE
***
TRBASALR,fRENTKY2 CHECK FOR PCSSIBLE KETRY
PERMAi'JENT EKROR,tNAt3Lt MACHINE,KETRY
MSENAULE
R.ETIfN1KY,RPlYMUVt: MLV[ K!:PLY Te UStr.-) AREA
IJ ASS R l:G 1 , 4 ( SeA NIH:: l; )
US t R S H. t Ai) DR E SST [) k 1
*
POST
(11
...*
BEll~
PS~~OL-tNA~LE
~T(;t-X1T
S~'"
L
EX
..
O'~700()O()
03
L
..
*
*
*RPL YI-1CV[
*
CL~)~lCH
SVl
MVl
un
P R f V 1CJ U S t.At\ S K
03840Jon
PS[UCL-E~AbLt
EXIT
***
WvTu/\-TUR
TFKft.'Jt\A1ED
0,860(1),)
***
03880000
C(l,WC~KNEL),OCI~CEX~R)
klPLY Te USER'S REPLY AREA
MCV~
l
11,OEXb<,T\lTAC;{
LvT AIJDI{tSS Te K7
!,TRY)ILE,2U(lNlJlXUd /-iPPHIJI)I\CE TAbLt AUDK~~S TJ ~4
iNDEXER, lEE('LJCtH( II\Cf:XER I '1 i'lLRC UCU fAdlE AUf{ TLJ !{ 7
1M
0(lND~XEK),BITO
L
LA
039?OOI)O
039H180C
0,980,JOO
b
04:)00000
04020000
04040000
~*e
PR1~LIP4l
04060000
INDEXE~,d( I~C~XER)
ALllkNATL,PCINT TJ PkINCIPAL
0408G'Jon
LJ (.. jj P T K I ( 3) , 1 ( 11'40 E: X E P )
P rd i'>J C I PAL U C H A 0 R f 0 i) I- B
04100000
Af>NOGACl(3),l(I\tTRY~!lLI #-\PPf~UJ\l;L TAnLt. Al):)>{ESS TO IJEI1
04120000
KETLJRN
04140000
04160000
1052 ~NRlR ROUTINES FOk SVL'S 34 A~l) 35 .
04180000
04200:)00
HAS C.hANI\EL ([\[ LFf:N PC!>TtD f-llR
ECP.ROR,l3111
4
P H t Ii 10 U S S IIJ l. C ~ MAN U. NO, L0 () P TILL P!l S T ElJ 04220000
04240000
ECBROR,X'7F'
PUST CCUE = 7F Ck CO fCN PREVIOUS SID
04260000
EKENTRY4
NU,ERROk CHECKING REQlJIR.E))
042HOOOO
LCwRDRi5,l
ZERC EXCP ERKeR CCLJNTER
04100000
HIT4(TKH~SAOR)
RtTURN TO ERRGR fRfE ~.P.
~l
C C K 0 R .. 4 4 , X '
TM
L
L
ELtlKDR,X'44'
h#-\~ i/U Rf(JUtST tiFlN LNTF-RCtPTfll (I)l:/UK)
dIT5(TRBASADR) YES,RETRY PRtvlCLS EXCP
ECHROR,X'48'
HAS I/O REQUEST BEfN PURGED UR NOT STARTED
Hl15(TKdASAOR) YES,RETKY PkEVIOUS lXCP
~UKKKt:G,TVTAOK
FINO EXTt~DfC S~VL AktA - ~6=CVT ADR
~fJK"RF.G, 0 (hOKKKEG) OHL wRO
nuR"KtG,4(~URKREG) TC8
L
wURKREG,O(~ORKRt:~)
LA
MVC
MVl
MVC
wORKK.EG,~b(WGRKREG)
51'
W'/URKKU;,CCkAi
MSEKM+l,Z
ECeRDR(4J,fCBROR
B~
TM
t3Z
1M
BM
ERE:N1KY3 MVl
ERE:NT~Y2
et:
TM
tjE:
l
*
I'n: .:i I
0394CUOO
*
*
GONGTkC
kESICkl Rll
K E li.2 ) , M ~ U C f: A L
01900001)
MVL
EHEt~TKY4
~ASt:HEG?,~SUCdPK
03d20')01)
~fI.[
flV l
*ERE:I"TRYI
720\~O()
740)0 1)
03760000
03780000
03800000
O~
{II v e l ( 1, U A :> l
BG
LA
8R14
03500000
03520000
03540000
O'j560000
03580000
0360000('1
03620000
03640000
03660000
036130000
MVl
xc
Pkl~CIPAL
eM
ALTf!{N~TE
C l E Af~
f LAC S
UCH
*-
e
ce •
D C t1
RB-ACTIV~
RH(32)+RfGS(64)=Q6
G(d,WUR~REG),GONGCCw
8(2,wURKKEG),lOBRCR+2
H;(2,~CRKRI:G),CS~HC({+4
CrANNEL CO~MANn SAVED
GYTl:S ANl) CSW STATUS
oYTES T0 I:XIENI)ED SAVE AREA
GUI'IG cew AI)URESS TO CCWAI
CLEAR GUNG ERkOR COUNTtR
CLEAR ECU
ALAR~
lUK
S~~SL
043200no
04340000
04360000
043tiOOOO
04400000
04420000
04440000
04460000
04480000
04500000
04520000
04540000
045hOOOO
04580000
04600000
04620000
04640000
MlMbl~
t~A~t
*
*
*
..
t-l A L H I N f
BAL
KEIUKt\,CCr-..SwICH
CHI::Ct< FGR CCt\SOLt SwITCH
EXLP
!Cl!RIJK
sst-
~SlI\ALLI:
1M
td~RlJR,tj111
Of
:;-4
1M
~LHKCk,X'7Ft
uCl\uCtd
Ttv'
btl
L \., ~ t\ 0 K ... ~ ,
*
fj
I: Ef\j G1 Vt N
((LI\T TG R15
[1
t.l..l"IR.DF.... '),t:llTl
INl.i{LNltl...T lRRLk
E
tl 1 T,) ( 11< bAS AD R IRE 1 L f< 1\
1 [31 T
T.J STC";A(,[
11 /.(1<
uY 1
l.lJ01H
047l:iOOOO
04800000
048?OiJOO
04840000
C4d60JOO
048IiOI 1')()
0 4 YCOi :J (1
04'12()OJO
04940roo
O't9(01)OU
0't9(-'0(00
050GOI~0)
fOR R t:: T \.( Y O ' ) r)? 0 l " ) n
MS I:- R M• 1 , X' G 3' HAS GL t'l G H E l '" F [- TRY r I) I.., C\ X r'w m- TIM F S
0 5 \) 4 00 () G
dl fIJ( TRbASAUR) YE:S,kflUf340000
o 5360UOlJ
O,)lHOi)OO
~URKREG
05400000
(54201)00
05440000
05460000
05480000
05500000
01)520000
05540000
~ESSAG!:
S1
l05~
rc
L[~GTH+4
LA
MVJ
*PI: RMUU,
tiT?
tkFNli-l.Y5
ST<..
*
RtALLVEk
fo/.Vl
LA
*
*
'*
*
*
CK
KI~G
SH If- T LEt" f
lkHY CLLJfd
TM
(peSTED)
1\L,i"\,t: rl~Y LLNG
f- AS i" I~ X 1\ ( (F t:: XCp ~ f 1 k YS
YES,GC1C PE~!"1A1\[Nl t~\:~J~
I\C,l~~(R
B
Rt:.TRYwTO
CL~l>
~ASt,CC~RDR+5
S Tl
..
0't660000
04680,')00
C41COOOO
04120000
04140000
LNTll PUSTi:U
dASE,l
t:ASE,Cl.. l'Oi"Ck+5
[ !
PSWCul
HAS lJCNli ftr-I\ RUNl>
NLJ,l!lUP
bf-
eE
ERE~lRY5
D 1 SA tH L
04760000
IL
SLl
GeN I.J C t'l T
lLbHCOl
1
*.
~),..
t.CMMAI\D lU CCW
DlSMJLE
O~560000
I N r (l\ LTC 0 NSOL E )
tlAL
R.L lURf'",t.CNSrdLH
l:XlP
ILtkLJk
S::,f{
tl\ABLF
Ef! I":U k
-
kf-fUkl\
FeR. MCf72(,OOn
05740(01)
05160000
AND
PRCCEfD
05180000
058COOOO
MEMnEk NAf-!t:
CS
Rl::A(JP~'"
C(
CC
CC
wf
)l ?i3
l; 13Cl
Jl 37
:)lh
,.I 1 )6
Ill:3':!
',} 14:)
)l4Z
;)144
0146
014d
0150
»
'"
'-J
I
'"
,) 152
Ul54
!JISt>
(lIS8
0160
0162
iJl64
01&6
0168
:H70
0172
0174
0176
tH78
JlaO
0182
,)184
J186
:J188
0190
0192
0194
0196
J198
0200
.J202
)204
1)206
0208
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
:0:
*
**
*
*
*
*
*
**
If::-CPF-IND-S
IECPC~VT
HJN -
o
I (~f\j! i;<.t U
1
2
OEj ,AUDRESS
3-8
9-13
14
15
05667
ADDRESS or
MFH3CC HHP I N COR E
IGNORED
IGNORfD
PETURN ADDRESS
fNTRY AODRESS
TTRO RESULT 0106
TRANSPARFNT 0108
TRANSPARENT 0110
TRANSPARENT
DESTROYEO
TRANSPARENT
ZERO
TO ROUTIN~ VIA A ?ALR THAT CONVERTS A
kELATIVE OIRECT ACCESS AOORESS AND
CONCATENATIUN NUMRER, TT~N, INTO ITS ABSOLUTE
FQUIVALENT, M~~rCHHR. REGISTER CONVENTIUNS
UPON ENT'1 IGC018 ARE AS OESCPI!~f:D UNDFI\ 'FINO' AND 'BLOl'
MACROS IN C~NTROL PROGRA~ SERVICES ~ANUAl.
0110
0172
0174
0176
0178
0180
0182
0184
0186
0188
0190
0192
0194
0196
-OUTPUT FRUM IECPBlDl IS THE SAMt AS FOR IGC018 FNTERED VIA
BLOL MACRO, WITH THE ADDITION THAT THE LAST DIRECTORY OR
CATALOG f'l,lOCK READ 8Y BLOL, ITS C(HHI{, J\NO THE lOB AND CHANNEL 0198
0200
PROGRAM USEf) TO REAO IT APPEAR IN TH[ 4no AYTE WORKAREA
DESCRIBED l~TER IN THIS LrSTING ~Y THE nSFCT LABELED WORKAREA. 0202
-OUTPUTS Fk()M JECPRLTV AND IECPCNVT ARE AS DESCRIBED ABOVE
UNQER ENTkY POINTS.
0204
0206
0208
(6105
ATPLISIPCH LISTING lit')210
0212.
(J214
0216
1l2I8
'.12('0
']222
Jl24
.)226
d?2R
)230
:) 2 j2
02j4
1)236
Ol3R
)?40
')2.42
)744
')24~
')248
.)250
)25Z
i)254
i12~b
02':>8
'J 2 60
:J26?
0264
,J26h
)268
u270
OZ7?
J274
)216
-)278
1]280
')282
0284
0286
0288
0290
0292
.)294
0296
029H
\)300
0302
0304
:)306
')308
')310
0312
IECPFINO-S
HJN -
05667
*
ROUTINES -GETMAIN
-USED TO GFT WOPKAREA.
-USED Tr) FI{f-F WI)RKAREA.
*
r~EEMAIN
*
r(cp
-USED TO <;TART CHANNEL PROGRAM FOR
DIRECTORY SEARCH.
*
WAIT
-USED Tn \-141 T FOR CHANNEL
Tn
*
COMPLl-_ H·.
**EXITS -EXITING CD"Il.llTIONS AR~ DESCRIBED UNDER 'FINO' AND 'BlDL'
MACROS IN CUNTROL PRC~RAM SERVICF~ ~ANUAL.
*
*
*TABLES
AND WORKAKl-:",\ J\RE DfSCkIBfO BY ')SrrTS ll\TER IN LISTING.
**ATTkIGUTt:SPRIVILEGED, l::NAi'LFn
*EXT~kNAL
PROG~A"1
REE:l\:T'-;~:'H,
0214
0216
021H
0220
0222
0724
0226
01>28
0230
0232
0234
0236
*
0?3R
0240
0742
0244
0246
**
*
AREA DEFINIT1,:r~
oSECT
FIRST
OS
00
koAREA
OS
64F
NEWCNT
OS
2F
OS
CCW
00
OS
CCW1
0
CCW2
OS
0
0
OS
CCW3
OS
CCW4
0
C(W5
OS
D
(CW6
0
OS
F
OS
feB
SF
lOB
OS
(. M2o"','
MBB
OS
CCHHR
OS
C'CCHHK'
ERCOI)~
F
OS
t-NDL S Tl OS
F
CUi
FNDlST2 OS
F
FNOLST3 OS
DS
00
LAST
*
*EQUATE STATEMENTS
******
EQU
EXIT
3
*CONTROL BLOCK E:QUA Tf ')
EQU
40
TCBJlS
19
UCBDVTYP EQU
EQU
OVTHH
2
******
REGISTERS-*
EQU
RGAODR
0
EQU
RGOCB
1
EQU
RGA
2
EQU
RGB
3
0210
0212
*~ORK
WORKAk~A
0248
? ');.1
~YTF
RfAOIN AREA
0750
0252
0754
0256
0258
0260
0262
0264
0266
0268
0270
0272
0274
0276
0278
0280
02R2
0284
0286
0288
0290
0292
0294
l()~
ORDER BYTf OF DEVICE TYPE
0296
0298
0300
0302
0304
0306
0308
0310
0312
ATPlISTPCH LISTING OF
C6105
0314
0316
031b
0320
0322
1)]24
0326
0328
0330
0332
0334
0336
<)338
0340
0342
1)344
0346
0348
J35()
Oj52
(J354
0356
RGC
RGD
RGE
RGf
RGG
RGH
RGI
RGJ
RGK
RGAREA
RGRET
RGBASE
J3~8
**THE
»
"-.)
0360
"""-J
0362
I
~
0364
0366
0368
0370
0372
0314
0376
0318
0380
0382
Oj84
'3386
0388
0390
0392
0394
0396
0398
0400
0402
<)404
1406
0408
0410
0412
0414
0416
*
*CONVERT
RGTTR
RGOEB
RGMBB
RGV
RGW
RGX
RGY
RGI
EQU
EQU
EQU
EOU
EOU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
IECPFIND-S
HJN - 05661
4
5
6
1
8
9
10
11
12
13
14
15
ROUTINES RFGISTERS-EQU
0
EQU
1
EQU
2
EQU
9
EQU
10
EQU
11
EQU
12
EQU
13
FOllO~ING EQUATFS AKE FOR REGISTf-R<) I\ITH WEll OEFINED ABSOLUTE
*USAGE, AND FOR TEMPiJRARY WORK REGISTfRS-EQU
RO
0
EQU
Rl
1
EQU
R2
2
EQU
3
R3
R4
EQU
4
EQU
R5
5
6
R6
EQU
EQU
7
R1
EQU
R8
8
EQU
9
R9
EQU
RIO
10
EQU
11
Rll
EQU
12
R12
EQU
13
R13
EQU
14
R14
EQU
15
R15
*
*OCB OEFINITION-IHADCB
OSECT
44X
OS
F
DC8DEBAD OS
36X
OS
f
DCBPOINT OS
**DEB
DEfINITION-IHADEB
OSECT
f
OS
0314
0316
0318
0320
037.7.
0324
0326
0328
o:no
0332
0334
0336
0338
0340
0342
()344
0346
034R
0350
0352
0354
0356
0358
0360
036?
0364
0366
0368
0370
0312
0374
0316
0378
0380
0382
0384
0386
0389
0390
0392
0394
0396
0398
0400
0402
0404
0406
0408
0410
0412
0414
0416
ATPllSTPCH liSTING OF
C610~
043~
DE6AMIND OS
OS
OEBNMEXT OS
OS
DEBOVMOD OS
OEtltll NUM OS
OEBSTRee OS
DEBSTRHH OS
DESENDee OS
OEBENOHH OS
DEBNMTRK OS
0440
':)447
*****
IGeOlS
04113
0420
0422
0424
,,)426
,)428
0430
0437
:)434
t)436
r)444
1)446
!)448
SVCOIH
U4~(1
1)452
BASEl
!)454
1)456
~)45H
»
I'.)
.........
I
Ul
;)460
')462
1)464
1)466
0468
0470
0412
0474
0476
U478
D480
0482
0484
0486
0488
D4(W
0492
0494
0496
,)498
BASE2
O~OO
0502
0504
0506
Al
~508
0510
0512
0514
0516
0518
0520
..
A2
IE('PFIND-S
X
llX
X
15X
F
H
H
H
H
H
H
CSECT
ENTRY S veOl r::
EQU ..
BAlR RGK,O
USING BASfl,KGK
G+l
SSM
RGA ,RG,\UJR
lH
RGe,Hr;nCe
lR
RO,lAST-FIRST
lA
GETMAIN R,LV=(O)
RGARFA,Rl
LR
USING WORKAR~A,RGAREA
·RGDCH ,RGB
lTR
10,A2
BC
RGOC3,I{GDCP.
lCR
FNDlSTl,OCl
MVC
F NOL S T? ,0 ( RG A)
MVC
RGADf)H,FNOlSTl
LA
RGRE:T,lECPBLOL
tlAL
DROP RGK
USING BASfl,KGRET
R15,R15
LTR
BP
Al
Rl,f('JJ
LR
USING I HADC Ii ,RGJ
IHADCB(4),FNDLST3
MVC
RO,Rl
lR
R15,OCBPOINT
L
R14,4(Q,15)
BAl
RI5,Kl'>
SR
RGA,RI5
lR
RO,lhST-FIRST
lA
FREEMAIN R,LV=(Ol,A=(RGAREA)
R15,RGA
lR
EXIT
SVC
DROP
USING
LA
LR
HJN - 05667
RGRET
BASEl,RGK
RGRET,Al
RGAOOR,RGA
0418
0420
0422
0424
0426
0428
0430
0432
0434
0436
043A
0440
0442
0444
0446
H\A i~L E
INTFRRUPTS
n-"1P STOR.E
SI'=O, NO.I1F BYTES
Q. >3LOL
INIT eLOL LIST FOR FINO
MOVF
NA~f
I::XcC nLOL
04484/29
04504/79
04'524/7.q
04544/29
0456
0458
0460/2
0462/2
0464
0466
0468
0470
0412
0414
0416
0418
04804/29
srT NO EPROR
SAVE ERRUR CODE
FPE~MAIN [22
0514
0526
052B
0530
01)32
0534
0536
*
ENTRY
I ECPtllDl 8ALR
USING
SR
~ASE3
Sf
LTR
BP
O~38
MVI
0540
0542
l
l
l
0544
0546
0548
0550
0':>':>2
{)554
(1556
BBBSl
B8tH
lA
LR
STM
LA
8ALR
LM
LR
LR
ERCOO[, C.N., I TO ZERO
RGJ HAS DC8 ADDR
Q. NOT LINl<.lIB OPTION
JOBlIB
OF TCR POINTER
TeE ArJDK
J LJ nlId f)C B ADOR
J~DICATES
l=?
An~~
0522
0524
0576
052A
0530
0532
0534
0536
0538
0540
0542/5
0544
0546
RGK, R{, "'.10R
~CVF
882
0574
05·76
TO BYPASS 5VC
6,11,r AND TOP TO WORKAREA
srT NON-Rl=lATED FLAG
FfSTOf.'f REGS
SET Tn FIRST ENTRY
PICKUP NO. OF FIELOS
0. TfR START SUPPLIED
INIT USERS LIST
l F K 0 R F IF L f)
GG TO NEXT FIELD IN LIST
c.
~NOTHFR
FPR RESUL T MBBCCHHR
11,15,i{OAREA
SAVE
15, (f:CPCNVT
USf-
14,15
11,15,R.DAREA-FIRST(3)
R~STURE
RGH t R,(;F
RGI,RGG
FIELD
GfT NO. OF ENTRIES
SET TTR START TO 000
INSFRT G.N.
VOLATILE RfGISTERS
TTR CONVERT ROUTINE
VOLATILE REGISTERS
POINT TO FIRST EMPTY ENTRY
NO. OF ENTRIES REMAINING
0'556
0553
0560
0562
0564
01)66
0568
0570
0572
0574
0576
0578
01)80
0582
0584
0586
0588
0590
0592
0594
0596
0598
0600
0602
0604/5
0606
0608
0610
0612
0614
0616
0618
0620
0622
0624
(0105
ATPLISTPCH LISTING Or
002b
0628
0630
0632
0'>34
Ot>36
0638
U640
Ob42
')644
0646
0643
0650
06~2
0654
0656
0658
0660
0662
0664
1)666
»tv
"'-J
I
"'-J
0668
0670
0612
0614
0676
0678
0680
0682
06H4
OoA6
0688
06YO
06Q2
0694
0728
HJN - 05667
ST
RGJ,IOB+20
OCR l\ODR If\JTO lOB
RGH,SKEH
Sf ARCH cr.W OP
• ST
81
RGH,CCIoI4
INIT SEARCH
lR
2,15
SAVE eASE
EXCP lOB
DROP RGBASF
USING BASE3,2
L
15,PDVCON
TM
U15),X'FO'
Tf5T PSEUDO-DISABLE BYTE
BO
WAITLiJOP
Q. p-o MODE, BYPASS WAIT
WAIT 1,EC~=l:CB
WAITLOOP TM
ECR,X·60·
(HrCK (OMPU~ TE: AND ERROR AI T S
BI
WAITlOOP
Q. N,')T YFT COMPLETE
R15,8
LA
fP~OR CODE IN CASF I/O ERROR
BCR
4,RGRET
Q. PE~M. 1/0 ERROR
RI5,l<, I~EWCNT
SF-T NEW START
B
Bl
A
*
0
0696
0698
0700
0702
0704
0706
0708
0710
0112
0114
0716
0718
:)720
072.2
0724
r)726
IECPFINO-S
E
El
F
Fl
8 (3, RGH) ,8 ( 1)
4,11(1)
R4,RO
R5,2(RGK)
R5,C14
BM
E1
aXLE R4,R4,E
R4,R.')
LR
R4,MOVE
EX
MVC
12(I,RGH1,ERCOOE+3
R4,ERCOOE:+2
IC
R4,Il(RGH)
STC
BCT
RGI,F2
RGt,R.l5
LR
DROP RGBASE
USING BASE1,RGI
R15,F.RCOOE
LH
R15,R15
lTR
MVC
IC
NR
LH
SH
MOVE TTR.
GET C FROM DIRFCTORY
~ASK 3 H.ll. BITS
GET USERS lL
IJ.
lL lESS THAN 14
USE REG 4
INTO USERS LIST
GFT Z
GET C.N.
C.N. I NTO USERS LIST
w. ANOTHER LIST ENTRY
SAVF BASE
MOVE
0626
0628
0630
0632/2
0634/7
0636
0638
0640
0642
0644
0646
0648
06')0
0652
0654
0656
0658
0660
0662
0664
0666
0668
0610
0672
0674
0616
0678
0680
0682
0684
0686
0688
0690
0692
0694
0696
0698
0100
0702
0104
0706
0108
0710
0112
0114
0116
0718
0720
0722
0724
0126
012R
ATPlISTPCH liSTING
C&105
0730
0732
0734
() 1.16
0738
0740
IJ742
0144
iJ746
0748
(J750
J7,;)2
u154
FFl
.1/56
()758
J760
0762
0764
'J 7b6
')76b
»"->
"
I
00
J710
()772
0774
0776
0778
0780
:)782
iJ7d4
J7d6
018R
\)790
0792
F2
'*
G
GGI
Gl
01'14
0196
079H
0800
0802
0804
0806
0808
0810
0812
01314
1)816
')81B
0820
\)822
0824
i)826
O~28
0830
0832
*
H
BCR
l
USING
ClC
DROP
BH
ClI
8CR
lA
MVI
l
LA
STC
MVI
LR
U~
IECPFINO-S
o.
8 ,RGR ET
RGA,I1C3DEBAD
IF NO ERROR, RETURN
IHAD(~,RGA
OEBAMINO,fRCODE+2
RGA
FFI
CHECK C.N.
MORE DATA SETS IN CNCTNTN
Tf:ST WHICH DCB
Q. NOT JOBL I B, RETURN
FORCE C.N. TO ZERO WHEN INCR
l= 1 INDICATES llNKllB
L INKl P3 DeB ADDR
!NCRE-MfNT (.N.
().
ERCODf-+3,2
6,RGKET
R4,?51)
ERCODE+3,1
RGJ,FINDlIP.JK
R4,}(R4)
R.4,fkCOOE+2
ERCODf+1,O
R15,RGI
DROP
RGI
USING BASf:j,RGHASE1381
8
RGH,~(kGK)
AH
lO ( kt;H ) ,0
CLI
BE
C
F
GO St: E IF ANUTHEP
R
Cll
8L
CLC
BL
MVC
L
SH
BC
CLI
BE
LA
LR
MVI
B
HJN - 05661
O(Rll,X'FF'
G1
1 ( 1 , ;~ 1 ) , a ( R1 )
Gl
FNDLST~,8(1{1)
ZERO
G(;
t:RROR CODE
TO NEXT ENTRY
t-11'Jl) N[XT ZERO R
c. [Io1PTY ENTRY
f
~PTY
ENTPY
CHt=CK FOR UJNTINUATION POINTER
D. NUT H J(;H NAME
"'1AK E SURE
(,1. kFALLY NOT HIGH NAME
(~f- T TTRO ON WORD BOUNDARY
RO,f-·~uLST3
RO,H256
10,Hf'lA
ERCOf)[+1,4
El
RGF,')(1{GH)
RGG,i~SJ
EP.C (lnr~ + 1,4
El
LA
LR
RGG,.{]
Rl,R{;F
B
GGl
*
*MOVE
Lli •
w. PRFVIOUS ERROR
POINT TO FIRST F:MPTY ENTRY, ZERO H.O. BYTE
r~p •
OF E~TRJfS REMAINING
S f~ T r=~Rf)R CODE 4
CONSTANTS
13 ( 1 , RGH ) , 11 ( R1 )
MVC
DC
DCl
H' 1 •
DC
H'12'
H'14'
DC
C14
V(IFAOIU02)
DC
PDVCON
VB fA TeBP»
FINOTCBP DC
V(IEFLINK)
FINDLINK DC
*
PROGRAM--'*CHANNEL
R BY 1
f.'JNTINUATION POINTER
f)fC~fMENT
SfT FOR ONE ENTRY
MAKE MOVE AT GGI WORK
8LDL MOVE
MUST IMMEDIATELY FOLLOW DCl
0130
0132
0134
0736
0738
0740
0142
0744
074(,
0748
0750
0752
0754
0756
07'58
0760
0162
0764
0766
0768
0710
0772
0774
0776
0718
0780
0782
0784
0186/2
0788
0790
0192
0794
0196
0798
0800
0802
0804
0806
0808
0810
0812
0814
0816
0818
0820
0822
0824
0826
0828
0830
0832/2
C6105
ATPLISTPCH LISTING OF
OH34
0836
0838
OH40
0842
0844
0846
0848
OB50
0852
0854
0856
;JH58
0860
0862
0864
ll~b()
()t368
Od70
0872
0874
OH76
0878
01380
0887
0884
0886
0888
0890
0892
0894
0896
0898
0900
0902
0904
0906
0908
0910
0912
0914
0916
0918
0920
0922
0924
0926
0928
0930
0932
0934
39'36
*
CHANPROG OS
*CCWl
DC
DC
DC
DC
·CCW2
DC
DC
DC
*CCW3
DC
DC
DC
DC
*CCW4
SKEH
DC
DC
DC
DC
.CCW5
DC
DC
DC
*CCW6
DC
DC
DC
H256
DC
•
IECPFIND-S
HJN - 05667
OF
X' 31'
AL3(0+CCHHR-FIRST)
X'4000'
HIS'
SEARCH 10 EQUAL
COMMAND CHAIN
COUNT
X'08'
AL3(0+CCW1-FIRST)
F'O'
TIC
I)A~2
0854
0856
COUNT, MIT
X'92'
AL3(N[WCNT-fIRST)
X' 40t)() I
H'S'
RO
X'6ql
AL3(0)
X'40 f )O'
H1 8'
S~AKCH
FQ
COMMANU
HI KFY
CHAIN
COUNT
TIC
X'08'
AL3(O+CCW]-FIRST)
FlO'
READ DATA
X'06'
AL'3(O+KDA~EA-FIKST
)
H'O'
H'256'
*
**•••••••• ****.* ••• **** ••••••••••••••••• *.**** ••• ***.*.* •••••••• *•••••••
•*IECPRLTV--
HBBCCHHR TO TTRO CONVERT ROUTINF
.REGISTER CONVENTION-*
0
CONTAINS RESULT TTRO
*
1
ADDRESS OF DEe
•
2
ADDRESS OF MBBCCHHR INPUT
•
3-8
TRANSPARENT
9-13 VOLATILE
*
14
RETURN ADDRESS
*
15
ENTRY ADDRESS-- USED FOR PASE
*
*
ENTRY
USING
IECPRLTV SR
LR
USING
SR
IC
IECPRLTV
IECPRlTV.R15
RGTT~,I{GTTR
RGl,~GDEB
IHADEf3,RGI
RGY,RGY
RGY,OCRGMBB)
0834
0836
0838
0840
084l
0844
0846
0848
0850
PICKUP '1
0858
0860
0862
0864
0866
0868
0870
0872
0874
0876
0818
0880
0882
0884
0886
0888
0890
0892
0894
0896
0898
0900
0902
0904
0906
0908
0910
0912
0914
0916
0918
0920
0922
0924
0926
0928
0930
0932
0934
0936
ATPLISTPCH LISTING OF
C6105
0938
0940
0942
0944
0946
0948
0950
0952
0954
0956
0958
0960
0962
»
~
'"
I
o
0964
0966
0968
0910
0912
;)914
0'916
0918
0980
0982
0984
0986
09d8
U~90
0992
0994
0996
0998
1000
1002
1004
1006
100A
1010
1012
1014
1016
1018
1020
1022
1024
1026
1028
1030
1032
1034
1036
10~8
1040
IECPFINO-S
HJN - 05661-
RGY,RGY
LTR
8Z
RLTV8
Q. IS M ZERO
RLTVA
AH
RGTTR,DE8NMTR~
NO. OF TRKS IN EXT
LA
RGZ,16(RGZ)
GO TO NEXT EXTENT
RGY,RLTVA
BCT
o. A~Y MORE EXTENTS
RLTVB
BAl
RGW,CNVTDVC
PICKUP OEVICE CONSTANT
SR
RGW,RGW
RGW,4(RGMBB)
IC
GET ACTUAL C
RGW,DEBSTRCC
SH
MINUS START CC
MH
RGW,DVTHH(RGX,RGY)
TItotES TRKS/CYL
RGX,R.GX
SR
RGX,6(RGMBB)
IC
GET ACTUAL H
RGW,RGX
AR
PLUS TRKS IN CC
RGW,DEBSTRHH
SH
MINUS START HH
AR
RGTTR,RGW
DEVELOP TOTAL TT
RGTTR,8
SlL
RGTTR,7(RGM88t
PICKUP R
IC
RGTTR,A
SLL
RI5,'{l5
SR
BR
RETURN
R14
***************************************************************.***
0938
0940
0942
0944
0946
0948
0950
0952
0954
0956
0958
0960
0<162
0964
0966
0968
0970
0912
0974
0976
0918
0980
*IECPCNVT--- TTRN TO ~BBCCHHR CONVERT ROUTINE
0982
0984
*THIS ROUTINE WILL CONVERT RELATIVE TRACK TT TO ABSOLUTE TRACK MBBCCHH 0986
*REGISTER CONVENTtUN-0988
*
0
CONTAINS TTRN, WHERE N IS CONCATENATION NO.
0990
*
1
ADDRESS Of DEB
0992
2
ADDRESS OF 8 BYTE FIELD FOR RESULT MBBCCHHR
0994
3-8
TRANSPARENT
0996
0998
*
9-13 VOLATILE
•
14
RETURN ADDRESS
1000
*
15
ENTRY ADDRESS-- USED FOR BASE
1002
*
*
*
*
*
ENTRY
USING
USING
IECPCNVT SR
DROP
IC
LR
LA
NR
8Z
LR
Sll
AR
IC
SR
SLl
AR
CNVTA
DROP
1004
IECPCNVT
IHADEB,RGOfB
IECPCNVT ,R15
RGV,RGv
RGZ
RGV,DEBNMEXT
RGW,RGV
RGZ,X'FF'
RGl,RGTTR
CNVTA
RGY,RGV
RGY,4
RGY,RGl
RGZ,OEBDVMOO-1(RGY)
RGW,RGl
RGZ,4
RGZ,RGOEB
RGDEB
1006
1008
1010
1012
1014
NUMBER OF EXTENTS
USf FOR LIMIT
MASK
CO~CATENATION
NUMBER (N)
Q. N IS ZERO
NUMBER OF EXTENTS
TIMES 16
ADO N
FIRST M OF DATA SET N
ADJUST LIMIT
TIMES 16
AOJUST DEB PTR
1016
1018
1020
1022
1024
1026
102,8
1030
1032
1034_
1036
1038
1040
C610~
ATPLISTPCH LISTING OF
1042
1044
1046
1048
1050
1052
1054
1056
1058
1060
10b7
1064
1066
»I'V
'"
I
1068
1010
1012
1014
1016
1078
1080
1082
1084
11)ti6
1088
1090
1092
1094
1096
1098
1100
1102
1104
1106
1108
1110
1112
1114
1116
1116
$LIST,lbCOO02A-S
IECPFIND-S
HJN - 05661
USING IHADEB,RGZ
RGTT~,8
SRL
STC
RGTTK,1(RGHBB)
SAVE R
SRl
RGTTR,d
DfVfLOP TT
CNVTB
SH
RGTTR,OEBNMTRK
JjECREASE RY TRKS IN EXTENT
BM
CNVTC
Q. PROPER EXTENT
RGI,lb(RGZ)
LA
~O TO NEXT EXTENT
BCT
RGW,CNVTB
STILL WITHIN DES
LA
R15,4
SET ERROR CODE
BR
R14
RETURN
CNVTC
SR
R15,R15
INOICATE NO ERROR
DROP R15
SR
RGV,RGW
DEVELOP M
AH
RGTTK,{)EBNMTRK
AOU BACK OVERDRAW
STC
RGV,O(RGMBA)
STORE M
HVC
1(6,Rr,MBB),DEARINUM
MUVf BBCCHH FROM OEB
BCR
8,R14
Q. UIVIOE UNNECESSARY
RGW,l
LA
FORCE RGW TO ZERO ON BCTR
.PICKUP LOCATION OF APPROPRIATE OEVICE CONSTANTS
CNVTDVC L
RGX,Uf~SDVMOD
UCH AOOR
IC
RGX,UCBDVTYP(RGX)
GET DEVICE TYPE CODE
LA
RGY,15
MASK
RGX,RGY
NR
lfAVF ONLY 4 L.O. BITS
BALR RGY,O
ESTABLISH ~ASE
USING *,RGY
RGY,CNVTDTAB
L
DEV ICE TBLE AOOR
RGX,O(RGX,RGY)
IC
OISPLACEMfNT FOR DEVICE
(,). ReTURN TO RLTV ROUTINE
BCTR RGW,RGW
LH
RGV,nVTHH(RGX,RGY)
TRKS/CYL
RGX,RGTTR
LR
DIVIDE REG
AH
RGX,OEi\STRHH
SlARTJNG HH
DR
RGW,RGV
QUO=CYLS, REM=TRKS
RGW,6(RGHBSt
STC
STORE H
AH
RGX,OF:BSTRCC
PLUS CC START
RGX,4(I{GMBB)
S TfJRE C
STC
BR
~14
RETURN
o.
•CNVTDTAB
DC
END
V(IEClOTAB)
DEVICE ATTRIBUTES 'TABLE
1042
1044
1046
1048
1050
1052
1054
1056
1058
1060
1062
1064
1066
1068
1010
1072
1074
1016
1078
1080
1082
1084
10B6
1088
1090
1092
1094
1096
1098
1100
1102
1104
1106
1106
1110
1112
1114
1116
1118
Appendix 28
ATPLISTPCH LISTING Of
(6105
J~().~
0004
0006
i)DOq
1 ()
;)012
d014
0016
,)'J 18
Jl) .20
11')
,lOLL'
0:)24
)026
JOZd
JOjll
d()3?
)1)14
JJ36
(jJ38
d ;J/t f)
;)042
J044
»
i'.)
ex>
I
')04h
J04H
'1050
h15J
J054
,)050
.JOSH
)060
,)062
)064
8066
,J()6B
:)OJO
:)J 72
U014
d076
0018
)iJtlO
0082
fhJ84
UOd6
1)088
0090
OI)
J14R
»I'V
00
I
I'V
'llSC
')1':12
J154
·')156
) 158
I) 160
') 162
')164
Jlbb
'H68
)170
J172
J174
1176
II 7R
,)l80
'J 182
,1184
)l8b
:Jl'3ti
H"Ju
)192
)194
l11
~b
0198
;)200
0207
')lO4
.1206
']208
o~
IGC0002A-S
HJN - 05667
*
*TABLES/WORK AREAS- ~ WORK ARFA OF 1056 PYTFS IS USED BY STOW. THIS
*
AREA IS DYNAMICALLY OeT~INFn USING G~TMhTN, hNO WILL CONTAIN
*
THREE 272 BYTF BUFFERS FOR I/O USF.
*ATTRIPUTES- READ ONLY, REENTRANT, SUPERVISUR fUNCTION
*
*wORKARfA
DEF(NITION-OSECT
OS
50
OS
30
OS
F
103
OS
8F
MBB
OS
C' MRr~'
C • (CHtL{ ,
CCHHR
OS
BUFFI
DS
136H
BUFF2
OS
136H
136H
BUFF3
DS
TEMPSAVt DS
12F
F
PARAM
OS
NEWNAME OS
37H
H
FUNCT
OS
AREAENO DS
00
*
*KEGISTER EQUATFS-WORKl
EQU
1
EQlJ
wORK2
2
EQU
COUNT
3
EXIT
EQU
3
POINT
EQU
4
EQU
LENGTH
5
6
LAST
EQU
NEXT
EQU
7
fQU
OUT
8
EQU
STOWED
9
fQU
DCB
10
ENTRY
EOU
11
EQU
RGBASE
12
RGAREA
EOU
13
RGRET
EQU
14
RGERCO
15
EOU
AREA
CCWI
CCW2
ECB
*
*THE
FOLLOWING EQUATFS ARE FOR REGISTtRS ~ITH wtLL
*USAGf, AND FOR TE~PORARY WORK REGISTERS-RO
EQU
0
Rl
EQU
1
R2
EQU
2
R3
EQU
3
R4
EQU
4
R5
EOU
5
R6
ECU
6
R7
EQU
7
R8
EQU
8
*
*
*
*
*
0106
0108
OliO
0112
0114
0116
0118
0120
0122
0124
0126
0128
Ol~O
0132
0134
0136
0138
0140
0142
0144
01464/29
0148
0150
0157
0154
0156
015R
0160
0.162
0164
0166
OlbR
0170
0112
0174
0176
017A
0180
0182
0184
0186
~EFINED
ABSOLUTE
0188
0190
0192
0194
0196
0198
0100
0202
0204
0206
0208
C6105
»
IV
ex>
I
W
ATPlISTPCH LISTING OF
0210
0212
0214
0216
0218
0220
0222
0224
0226
0228
0230
d232
0234
0236
0238
0240
0242
0244
0246
0248
0250
0252
0254
0256
0258
0260
0262
0264
0266
0268
0210
0212
0214
0716
0218
0280
0282
0284
021:i6
0288
i)290
0292
0294
0296
0298
0300
0302
030~
0306
0308
()310
0312
R9
RlO
R 11
R12
R13
R14
R15
EQU
EQU
EQU
EQU
EQU
EQU
EQU
9
10
IGC0002A-S
HJN -
05661
0210
0212
11
0214
12
0216
13
0218
14
0220
15
0222
0224
*
*OTHER EQUATES-0226
DEBDISP EQU
36
0228
0230
*
*DCB DEFINITION-0232
DCBD DSORG=(PO,PS),OEVD=OA
0234
*COMMUNICATION VECTOR TABLE OEFINITION-0236
C VT
DSECT
023R
CVT
SYS=MIN
0240
***.*.*** •• *.*.*****************.***********************.*************. 0242
I GC 0 21
CSEC T
0244
BALR RGBASr,O
0246
USING *,RGrlASE
0248
SSM
HIBI~ARY
bN4BLF INTERRUPTS
02504/29
lA
WORK2,4
fUNCTION CODE, A=4
0252
LTR
ENTRY,kO
PICKUP ADOR Of NAME ENTRY
0254
BP
AROPT
Q. A OR R OPTION
0256
lCR
ENTRY,ENTRY
0258
LA
WORK2,12
fUNCTION CODE, 0=12
0260
AROPT
LTR
DCS,Rl
Pl~KUP DCB AOOR
0262
BP
GETMAIN
(J. It OR 0 OPTION
0264
LCR
OCB,DCB
0266
LA
WORK2,4(WORK2)
fUNCTION CODE, R=8, (=16
0768
*GET WORKAREA FOR STOW AND BSAM/QSAM EOR ROUTINE
0210
GETMAIN LA
RO,AREAEND-AREA
0212
GETMAIN R,LV=(O)
0274
LR
RGAREA,Rl
0216
USING AREA,KGAREA
0218
STH
WORK2,fUNCT
SAVE FUNCTION CODE
0280
Cll
FUNCT+l,8
0282
BH
RELOC
Q. 0 OR C OPTION, DON'T WR EOO
0284
TM
lICENTRY),X'80'
ALIAS BIT
0286
BO
RElOC
Q. ALIAS BIT ON, DON'T WR EOD
0288
0290
***THE FOLLOWING CODE INTERFACES WITH THE BSAM/QSAM EOB ROUTINE IN
ORDER TO wRITE AN EOD MARK
0292
USING IHADCB,OCB
0294
MVC
8(3,ENTRY),OCBRELAO
GET TTR FROM DCB
0296
GFT AN lOB
L
R3,DCBIOBA
0298
LA
R9,4(R3)
DEVFLOP EC8 ADDRESS
0300
ST
R9,12(R3)
0302
SET WRITE fLAG
0304
01
DCBCIND1,X'10'
SfT LAST WR BIT
01
OCaOfLGS,X'80'
0306
0308
SR
R2,R2
0310
IC
R2,OCBOFFSW
OFFSW FOR EOB ROUTINE
0312
lR
R1,R2
*••
ATPLISTPCH LISTING OF
C6105
AR
SH
NI
SR
IC
STH
R2,R3
R2,N8
4(R2),X'7F'
R4,R4
R4, OC~KEYL E
R4,14(R2)
:)326
J328
L
R15,l)C13EOBW
TM
03:W
)332
B1
L
DCBCIND2,X'01'
NOTQSA'4
U314
0:316
)318
1)320
1)322
'>3/4
·)334
l)3jA
i)3:H3
)340
J342
0344
)346
0348
(U50
J352
\H~4
»t-V
ex>
I
~
IGC0002A-S
J'356
cH5H
(H60
.)362
1)364
J366
.)368
J'370
1377
\)374
()376
r)378
0380
0382
0:384
0386
J388
lH90
0392
0394
0396
0398
0400
0402
0404
3406
0408
0410
0412
0414
0416
NOTQSAM
LR
STH
BALR
RI5,DCBElll.3
R2,OCi)
R9,R12, H:MPSAVF
05661
HJN -
POINT 2 Til ccw
BACKUP 8
TURN OFF OATA CHA[N B[T
FURCE UATA LENGTH=O
GET fOB I
R9,PIZ,TEMPSAVf
Rt-STtJRF VOLATILE REGS
*WAIT FDR CDMPLETION :Jf EDD WRITF-WAIT I,ECI\=(R9)
AR
R7,K9
7 prJINTS TIl CCW+4
*RESTORE BSAM/QSAM CHAN PROG ANn CHECK F(!R 1/11 ERROR-Gil Tn PKFVI()US CCW
SH
R7,N'-l
0.1
0(R7l,X'!30'
TURN DATA CHAIN BIT BACK ON
TM
0(R~),X'20'
CHrCK lOS COMPLETION CODE
W. PERM 1/0 ERR ON EOD WRITE
BI
IUEkR
*RELOCATE CHANNEL Pi{Ilr,KAM TO SEARCH i)JIH-CHIRY FIJi< NAMf-RELOC
LM
RO,R9,SfARCH
srA~CH CHAN PROG
AR
RO, RGAIU A
AR
R2,kGfIIH:A
AR
R4,FNTKY
AR
R6,RbAl-U-A
AR
R8,KGMU:A
5TH
RO,1<9,CCWl
?Nu HALF LlF CHAN PROG
LM
RO,Rl,SCCW6
AR
RO,RGARE:A
5TH
RO,Rl,CCW2
*BUILO AND MOVE ECH ANU lor-SK
RO,I<()
1 t: ,·\11 E C P AN 0 'M'
KUILn In~
LA
R2,t:Cr1
LA
R5,CCWl
lM
AODRFSS
Ut
R6, DC f-1
nc~
Sk
STM
MVI
STC
R8,R~
lf~U
RO,R,'1,I:.CB
108,?
HLK INCR FLO
STORI- fCB-AND lOB
SfT NON-RFLATfO FLAG
RO,,.,~~
LOAf)
L
R 1, DC f~ iJ[tiA 0
MVC
HBB+l(6),DfBOISP(Rl)
CCHHK+4,1
MVI
EXCP lOB
SAL
WDRK2,CHECK
LAC O.U NT, q UF F 3+ 1 8
LA
POINT,lUFFl+lR
LA
LAST,~UFFl+16
AH
LAST,1UFF1+16
LA
NEXT,~UFF2
ILIAD
'1-01'
, Br1CCHH'
lCiAU
'R'
SEARCH DIRECTDRY
WAIT
ANI) CHECK
0314
0316
031R
0320
0327
0324
037.6
032A
0330
03-i2
O.H4
0336
0338
0340
0'342
0344
0346
0348
0350
0352
0354
0356
0158
0360
0362
0364
0366
0'368
0.370
0312
0314
0376
0378
0180
OlA2
0384
0386
CHaR
0390
0392
0394
0396
0398
0400
0402
0404/2
0406
0408
0410
0412
0414
0416
C6105
ATPLISTPCH LISTING OF
0418
0420
0422
ST1E1
0424
B~
0426
0428
J430
STIGI
0432
0434
0436
0438
0440
')442
,)444
0446
0448
0450
ST1J1
0452
0454
0456
0458
0460
TSTLST
()462
)4b4
,)466
0468
0470
13412
0474
0476
0418
0480
0482
0484
NOTEOD
u4H6
,)48R
J490
0492
0494
0496
0498
RETURN
0500
0502
0504
0506
0508
0510
0512
J514
0516
0518
J520
LA
LA
CLC
LH
*STIC3
IGC0002A-S
OUT,liUFF3
STOWED,ST1E1
0(8,POINT),OCENTRY)
WORK1,FUNCT
BRANCHl-4(WORKl)
BRANCH2-4(WORKl)
WORKl,LENGTH
RGRET,LNTHCALC
WORK2,271(OUT)
WORK2,COUNT
WORKZ,LENGTH
10,STIJi
RGRfT,ROTATE
lOB
COUNT,18(OUT)
BH
LR
BAL
LA
SR
CR
BC
BAL
EXCP
LA
LR
WORK7,LENGT~
BC TR WORK2, ()
EX
WORK!,~UVfl
AR
POINT,LFNGTH
AR
COUNT,LENGTH
CLR
POINT,LAST
BCR
4,STUwfO
SR
POINT,LENGTH
CLC
HIBI~Aky,O(POINT)
BNE
STICi
LR
WORKl,LENGTH
BAL
RGRET,ROTATE
NI
CCWl+44,X'BF'
XC
DCBOI~CT(2),DCBDIRCr
TM
IOB+12,X'01'
BC
8,NOTfOD
L
NEXT,CCw2+16
MVC
OCBDIR(T(2),16(NEXT)
EXCP lOB
BAL
WORK2,CHECK
CLI
F UNC T+ 1 ,0
BC
8,CHG~~M3
SR
R2,R2
IC
R2,FU~CT
LA
RO,ARFAEND-AREA
FREEMAIN R,LV=(O),A=(RGAREA)
LR
R15,~2
SVC
EXIT
BAL
LA
LA
AH
LA
CLR
LA
BCR
WORK2,CHECK
POINT,18(NEXT)
LAST,16(NFXT)
LAST,16(NFXT)
WORK2,aUFF3
HJN - 05667
GET FUNCTION CODE
Q. IS NAME IN BLOCK
Q. IS HIGHER NAME IN BLOCK
CALCULATE ENTRY LENGTH
IS THERE ROOM IN BLOCK
YES, D0~T WRITE RECORD
0430
0432
0434
041A
043R
044012
0442
0444/2
pr'T ,~T TO LlliTPUT AREA
0446/2
0448/2
0450
0452
lJPI1,\TF POINT AND COUNT.
TO I~OICATE NEXT VALUES
Q. LAST I~PUT ITEM
(\".
Tt-ST NEXT ITEM
YF-'),
~.
~nT
TUR~
lEU]
TEST FOR LAST INPUT RFC
LAST INPUT RECORD
OfF COMMAND CHAIN AIT
DIRECTORY CNT
UPDATF DIRECTORY CNT
~PITF LAST RECORD
wtlT ANn CHECK FOR I/O ERROR
T[ST FOR CHANGE NAME OPTIO~
GF:T ERROR CODE
FRFEMAIN NO. OF BYTES
SET tRROR CODE
R~TU~N
WAIT AND CHECK FOR I/O ERROR
SET UP NFXT INPUT BUFFER
0454
0456
0458
0460
0462
0464
0466
0468
0470
0472
0474
0476
0478
0480
0482
0484/2
0486
04884/29
0490
0492
0494
04964/29
0498
05004/29
05024/29
05044/29
0506
0508
0510
SfT UP NEw END
0512
C. OK TO Gn NEXT BUFFER
0514
0516
0518/2
0520
WORK2,~EXT
NEXT,212(NEXT)
2,STOWED
0418
0420
0422
04244/29
04264/29
04284/29
C6105
»
t-..)
ex>
I
~
ATPLISTPCH LISTING OF
0522
0524
0526
0528
0530
0532
0534
0536
0538
0540
0542
0544
()546
0548
0550
0552
0554
0556
0558
0560
0562
0564
0566
0568
*NOSPACE
••
CHGNAMI
CHGNAM3
DELETE
REPLACE
0~10
0572
0514
0576
ADD
0516_
0560
0582
0584
0586
0588
0590
05_9_2
0594
0596
0598
0600
0602
0604
0~06
0608
0610
0612
06J_4
o~_lQ
0618
0620
0622
06.24
BYPASS
HJN -
05661
LA
8R
NEXT,BUFFI
STOWED
RESET TO FIRST BUFFER
LA
R2,12
RETURN
R_2,8
RETURN
SET ERROR CODE 12
B
DEL ERR
IGCOO02A-S
LA
B
BAl
SH
EX
MVC
MVI
ST
lA
B
L
MVI
B
EQU
LR
BAl
AR
LR
eLI
BE
TM
SET ERROR CODE 8
RGRET,LNTHCAlC
LENGTH,N9
lENGTH,MOV~2
NEWNAM[(8)t8(E~TRY)
FUNCT+l,20
ENTRY,PARAM
ENTRY,NEWNAME
RELOC
ENTRY,PARAM
FUNCT+ 1,12
RElOC
*
SAVE INPUT PARAMETER
PERFORM SEARCH
WORKl,lENGTH
RGRET,lNTHCALC
DELETE OLD ENTRY
POINT,lENGTH
LENGTH,WORKI
FUNCT+l,12
CHECK FUNCTION
Q. DElFT.F OPTION
SHIFT
Q. IS ENTRY AN ALIAS
lUENTRY) ,X'80'
BYPASS
YES. DONT FOOL WITH TTR
60
SFT STOW RIT
ocaCIND2,X'80'
OJ
R3,R14,TEMPSAVE
STH
R3,RGo\REA
LR
Rl,DCBOEBAD
L
INPUT TO CONVERT ROUTINE
R2, OCBFDAD
LA
R15,CVTPTR
CVT ADDR
l
USING CVT,R15
CONV~KT RTN AODR
R15,CVTPRlTV
l
CONVERT TTR TO MBBCCHHR
BALR R14,R15
R3,R14,TEMPSAVE-AREA(R3) Rf:STflRE RFGS
LM
INCREMENT R BY 1
AH
RO,N256
RO,DCBRElAD
SAVE IN DCB FOR NEXT STOW
ST
ANY ROOM IN DIRECTORY'
DCQOIRCT+l,181
CLI
NO, BRANCH TO ERROR ROUTINE
2,NOSPACE
BC
YES. CONTINUE
WORK1,LENGTH
LR
SAVE POINT ADDRESS IN STOWED
STOWED,POINT
lR
_LR
POI NJ ,ENTRY
R~R~TJLNTHCALC
BAL
W.PR~2-, 21.1 (OUI )
LA
WORK2.COUNT
S,R
WORK2,LENGTH
SR
Q. DONT WRITE BLOCK
10,PUT
BC
RGRET,ROTATE
BAl
0522/2
0524/2
05264/29
05284/29
05304/29
05324/29
05344/29
0516
0538
0540
0542
0544
0546
05484/29
0550
0552
0554
0556
05584/29
0560
056212
0564
0566
0568
0570
0572
0514/2
0516
0518
0580
0582
0584
0586
0588
0590
0592
0594
0596
0598
0600
0602
0604/2
0606/2
0608/2
061012
0612/2
06lit
0616/2
0618/2
0620/2
0622
0624
ATPLISTPCH LISTING OF
,cbl05
0626
Ob28
0630
0632
i)634
1)636
0638
0640
1)642
0644
0646
PUT
SHIFT
B
BRANCHl
0654
r)6':>6
0658
8
M
B
B
')648
,)650
')652
EXCP
LA
LR
8CTR
EX
AR
LR
LA
ADDERR
LA
B
RPLCAOD
BRANCH2
MVI
R
(lbbO
B
()662
B
0664
06b6
0668
0670
0612
B
,..VI
B
ROTATE:
0614
0616
1J678
.)680
0682
0684
0686
0688
0690
0692
0694
0696
0698
0700
1)702
0104
0106
0108
0110
0112
0114
0116
0118
0720
0722
i)724
0726
0128
GO
LA
SR
LCR
STH
SR
M"C
LA
CLR
LR
LA
BNE
LA
STH
LR
LA
SAL
MVC
LM
AlR
AlR
AR
AR
AlR
STH
LM
SH
AlR
STH
LM
BR
IGC0002A-S
lOB
CQUNT,18(OUT)
WORK2,LENGTH
WORK2,0
WORK2,MO"EI
COUNT,lENGTH
POINT,STOWEO
STOWEO,STIGI
TSTLST
AOOERR
REPLACE
OELfT!:
CHGNAMI
R2,4
RETUK"J
FUNCT, '.i
AOD
RPLCAOoJ
DELfRR
OElfRk
FUNC T.. 1,0
BYPASS
WORK?,16(OUT)
WORK?',COUNT
WORK2,wORK2
WOR K2 , 16 ( OUT)
COUNT,wORKl
8(8,UUT),0(COUNT)
WORK1,?>UFf3
WORK1,QUT
WGRKl,OUT
OUT,27?(OUT)
GO
OUT,BUFFI
RO,f( 11, TE-MPSAVf
Rl1,OUT
RIO,A(WURKU
WORK2,CHECK
CCHHR,O(Rll)
RO,R9,WRANOf{O
RO,Rll
R6,Rll
R2,RGAREA
R8,RGAREA
R4,RIO
RO,R9,CCWl
RO,R5,WRCCW6
RI0,\18
R4,RIO
RO,R'5,CCW2
RO,Rll, TEMPSAVF
RGRfT
HJN - 05667
YFS, STORE ENTRY
SHIFT REST OF DIRECTORY
BR A~CH TO TH E
PRrJPFR ROUTINE
SFT
ERROR CODE 4
HWICATE ERROR 8
0626/2
0628/2
0630/2
0632/2
0634/2
0636/2
0638/2
0640/2
0642
0644
0646
064R
0650
06'5212
0654/2
0656
06'58
0660
IN FLJNCT REGISTER
SbT UP TO Af)D NEW NAME
CALCULATE ACTIVF BYTES
0662
0664
0666/2
0668/2
STOKE COU~T IN OUTPUT RECORD
SUR LNTH Of LAST ENTRY
STORE: KEY
0670
0612
0674
8616
0678
0680
0682
0684
0686
Q. USE NEXT B4FFER
-0690
06884/29
069212
0694
0696
069R
WAIT AND CHECK FOR [/0 ERROR
srT SEEK ADDR
RELOCATE CHAN PROG
S(A~CH EQUAL 10
SEARCH EQUAL 10
0706
0708
1 Ie
0110
TIC
WRITE KEY AND DATA
0712
0714
0100
0702
0104
0116
0718
0720
RfAD CKD
0122
RfSTORE MAINLINE REGISTERS
0126
0724
0128
C6105
»
'"
(X)
I
(X)
ATPLIST?CH LISTING OF
0730
0732
0134
0136
0738
0140
0142
0144
0146
0748
U1S0
0152
0754
0156
0758
0760
0762
0164
0166
0168
0110
0172
0774
0716
0778
0180
0182
0184
0786
••
*
IOERR
MASK
SEARCH
SCCWl
SCCW2
01~8
0790
0192
0194
0196
0798
0800
0802
0804
0806
0808
0810
0812
0814
0816
0818
0610
SCCW3
SCCW4
ZERO
SCCW5
N256
SCCW6
WRANORD
WRCCWI
lENGTH,10(POINT)
lENGTH,MASK
LA
BR
lE~GTH,12(LENGTH,LENGTHJ
01384/29
RGRET
WAIT
TM
BCR
TM
BCR
lA
MVC
MVC
DC
DC
DC
OS
DC
OS
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
DC
OS
DC
DC
06ll
0824
0826
0828
0830
0832
N
B
MOVEl
MOVE2
HIBINARY
N8
N9
DC
WRCCW2
HJN - 05667
0130
0132
0134
0136
lNTHCALC LH
CHECK
IGCOO02A-S
DC
DC
DC
DC
1, ECB=ECB
ECB,X'20'
l,WORK2
IOB+l2,X'Ol'
1,WORK2
R2,X'10'
RETURN
OCl,CQUNT),O(POINT)
I
NEWNAME+8(1~,8(POINT)
X'ffFFFFfFffFffffF'
H'8'
H'9'
OF
X'OOOOOOlF'
OF
X'16'
Al3(O+BUFFl-AREAJ
X'6000'
H'l6'
X'92'
Al3(0+BUFFI-ARfA)
X'4000'
H'8'
X'E9'
AL3(0)
X'4000'
H'8'
X'08'
Al3(0+$CCW2-SEARCH)
F'O'
X'S6'
Al3(16+BUfF1-AREA)
X'4000'
H'Z5(:)'
X' 9E',
AL3(0+BUfF2-AREA)
F'212'
OF
X'll'
AL3eO)
X''tOOO'
HI 5'
X'08'
AL3eO)
F'O'
0140
0142
0144
CHECK FOR 1/0 ERROR
0146
Q. NO ERROR
0148
0150
Q. EOD INSTEAD OF ERROR
0152
SFT ERRO~ CODE
0754
0156
0158
0160
0162
0764
0766
0168
0170
CH PROG TO SEARCH DIRECTORY
0772
RFAO RO
0174
0176
0178
0180
~fAO COUNT
0782
0784
0786
0788
SEARCH HI/EQUAL KEY
0190
0192
0794
0196
TIC TO SCCW2
0198
0800
0802
READ DATA
0804
0806
080S
OSLO
READ COUNT,KEY AND DATA
0812
0814
0816
CH PROG TO WRITE AND READ A BLK 0818
SEARCH EQUAL 10 (NOT MIT)
0820
BUFFl
0822
0624
0826
0828
TTC TO WRCCWI
0830
0832
R20-4067~
:l
c
··
»
·
(n
Intanatllnaa18uliD••• M.ahID•• Cal"1lantIDn
Data ' ......81•• DlvlalDll
111 ••t
Roa., Whlta PlaID., N.Y. IDIOt
(UIAODly]
'oat
IBM ".,11 'Iii" Cal"1la,aBOi '
811 UDltM NaUaD. ,Ia•• ,Ma.Yuk, Naw:fa,k lD017
11atinatllnlal) '.
' .
Source Exif Data:
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:01:22 06:50:18-08:00 Modify Date : 2013:01:22 09:26:35-08:00 Metadata Date : 2013:01:22 09:26:35-08:00 Producer : Adobe Acrobat 9.52 Paper Capture Plug-in Format : application/pdf Document ID : uuid:47d81beb-ba5b-4194-87fe-de37b31e3aa9 Instance ID : uuid:36945e0f-ae71-4996-b783-4487429ad794 Page Layout : SinglePage Page Mode : UseOutlines Page Count : 586EXIF Metadata provided by EXIF.tools