Digital PDFs

AH-T399B-MC

October 1983

Number of pages unknown

Original

19MB

view download

OCR Version

17MB

view download

Document:	CZRQAB0 RQDX1, RD51, RX50 Exerciser Diagnostics
Order Number:	AH-T399B-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRQAB0__RQDX1,RD51,RX50__RQDX1_EXERCISER__AH-T399B-MC__OCT_1983_bw.pdf

OCR Text

RQDX1.RD51

RX50

RODX1

EXERCISER

- CZROABO

AH-T399B-MC

oo 193

FICHE
1 OF 3 memuse BBBD

RODX1.RD51

RODX1 EXERCISER

AH-T3998-MC

o, e

QTETIEIIE

CZROABO

;

FICHE3 0F 3 fi'??i&‘“’ E@Qfl]

:58
0

ZRQAMY

VAX=-11 Bliss-16 Vv3=555
DISKSUSER2:[DIETZ.RELEAS EJZRQAB0.8L1;10

(

Xtitle 'RD/RX EXERCISER'
ident = 'v01.2°,
addressing_mode (absolute),
gnv1ronment (noeis)
begin
fififififlfififififififififififififififififififififififififififlfiflfififififi

TETETEIEIETETE TR RN T T T TN PN P NN PN RN PN

N X Ve Be B Ve VeV Wy Ve B s u, Ve

(TETRETEYE IR FEFE TN FI FIE TR KN

module ZRQAM1

IDENTIFICATION
PRODUCT CODE:

AC-T398B-MC

PRODUCT NAME:

CZROABO RQDX1 EXERCISER

PRODUCT DATE:

22 JuL 1983

MAINVAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

RAVINDER K. KARWAN

DIGITAL FGUIPMENT CORPOTRATION, MAYNARD, MASSACHUSETTS

01754

THIS SOFTWARE |S FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE
COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREFS TO THESE LICENSE
;E:gifi ILI;%E TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES
THE INFORMATJON IN THIS DOCUMENT IS SUB.ECT TO CHANSE WITHOUT NOTICE
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
CORPORATION.

DEC ASSUMES

RESPONSIBILITY

FOR

THE USE OR

RELIABILITY OF ITS

SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

PDP
DECUS

UNIBUS
JECTAPE

MASSBUS

SEQ 1

Page

(1)

:
:

;
:

C
C
¢

C
C 0066

C 0067
€ 0068

C 0069
E 88;?

TABLE OF CONTENTS

1
1.1
1.2

GENERAL INFORMATION
PROGRAM ABSTRACT

:
:
:

C
C
C
C
C
C
C
C 0058
C
C
C

SYSTEM REQUIREMENTS

1.2.
1.2.2

HARDWARE REQUIREMENTS

1.5
1.6

ASSUMPT IONS
MEMORY MAP

1.3
1.4

-—

.
;
:
:
:
:
:
:
;
:
:

21-Jul=-1983 15:25:58
21=Jul=-1983 15:19:20

RD/RX EXERCISER

ZROAM
v01.2

SOFTWARE REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

:
:
:

€ 0072
c 0073
C 0074

2.0
2.1
2.2

OPERATING INSTRUCTIONS
HARDWARE QUESTIONS
SOF TWARE QUESTIONS

:
:
:
;
H
:

¢ 0076
c 0077
C 0078
¢ 0079
¢ 0080
¢ 0081

3.0
3.1
3.2
3.3
3.4
3.5

C 0083

;

¢ 0075

H
:

C 0084
E 8822

3.7

3.8
4.0

ERROR TYPES
ERROR INFORMATION
INITIALIZATION ERRORS
EXERCISER ERRORS
ERROR LOG MESSAGES
MSCP ERRORS
SAMPLE MSCP ERROR STATEMENT
DUP_ERRORS

:
;

C 0087
€ 0088

5.0
5.1

TEST SUMMARY
INITIALIZATION SUBTEST

¢ 0090

5.3

;

C 0082

C 0089
¢ 0091

SEQ 2

Page 2
VAX=-11 Bliss=16 V3=555
(2)
;10
RQABO.BL1
RELEASE]Z
2:[DIETZ.
DISKSUSER

3.6

SAMPLE DU® ERROR STATEMENT
PERFORMANCE AND PROGRESS REPORTS

5.2

EXERCISER

DROP UNIT SUMMAi(v

;

E 0092

6.0

ERROR LIST

;

7.0

DATA PATTERNS

:
:

¢ 0095
¢ 0096

0098

¢ 0097

¢ 0099
¢ 0100

:
:

¢ 0101

;

0102

¢ 0104
C 0105
C 0106

;
:
:

¢ 0108
¢ 0109
¢ 0110

:
:

c 0112
¢ 0113

:
:

:
:
:

SYSTEM REQUIREMENTS

1.2.2 SOFTWARE REQUIREMENTS
-

:
:
:
:
e
This diagnostic is designed to run with the Dragnostic
Supervisor as described in paragraph 2.0.

¢ 0126
¢ 0127

1.3

¢ 0129
¢ 0130

¢ 0133
E 8}%‘;
¢ 0138
¢ 0139
¢ 0140
¢ 014
€ 0142
0143
C 0144

C 0145
C 0146
C 0147

REIATED DOCUMENTS AND STANDARDS
-

CHAUS
XXDP+ SUPERVISOR/USERS MANUAL
UQSSP UNIBUS/Q=-BUS STORAGE SYSTEMS PORT
MSCP MASS STORAGE SYSTEM PROTOCOL
DIAGNOSTIC/UTILITIES PROTOCOL
DUP

C 0131
¢ 0132

:
:
:
;
:

LSI= 11/23 procesc r with 28K or more of memory, console
device (eg. VI100' and RQDX1 CONTROLLER board and attached
RD-51 WINCHESTZR drive(s) and RX-50 FLOPPY drive(s)

¢ 0122

E 8}%9

ceme==

c 0117
C 0118
E 8}58

H
:
:

within design specifications.

¢ 0115
€ 0116

¢ 0128

;
:

This program will functionally verify and exercise RQDX1
Controller/Disk Drive subsystems. It is designed to veritfy
that the subsystem is functioning correctly and operating

1.2.1 HARDWARE REQUIREMENTS

N
H

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

C 0114

C 0123
¢ 0124
€ 0125

H
M

PROGRAM ABSTRACT

1.2

:
:
:
:
:

1.1

eesscccsccccccccoce-

¢ 0111

¢ 0121

:
H

GENERAL INFORMATION

¢ 0107

1.0

¢ 0103

:
:
:

21=Jul=-1983 15:25:58
21=Jul=-1983 15:19:20

RD/RX EXERCISER

IRQAMI
v01.2

1.4

DIAGNOSTIC HIERARCY PREREQUISITES
NONE

1.5

ASSUMPTIONS

e=esceccce-

)

SEQ 3

Page 3
VAX=11 Bliss=16 V3=-555
(3)
10
2:
RQABD.BL1;
SER
.RELEASEIZ
[DIETZ
DISKSU

The hardware, other than the subsystem being tested is
assumed to work properly. False errors may be reported it
the processor, memory, etc., do not function properly.

SEQ 4

IRQAMT
v01.2

Pa
VAX=11 Bliss=16 v3-555
.8BL1;1
JZROAB0
RELEASE
C
3 Z:[DIETZ.
DISKSUSER

RD/RX EXERCISER

c«

4 Mw
o[

flfifififihflfififififififififififlfififlfifihfififififififififififififififififififififififififififl

FI TN
Y
YR YR
IRIR
IR N
[

LN KO NI X X1
R SR PETR
A
YRR I E IR E T ETE
PRYR TR N TR L L
PRYR
T
TS A
A
A
R IR
TR

21=Jul=1983 15:25:

RD/RX EXERCISER

IRQAM1
v01.2

2.0

VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEAS

983 15:1

OPERATING INSTRUCTIONS

This is a Rev ( Supervisor Diagnostic: for operating
instructions, please see chapter 5 of XXDP+ operator's
manual. They are no longer included in the diagnostic
because it is desired that a change in those instruct1og§ not require a re-assembly of all Supervisor Diag~
nostics.

HARDWARE QUESTIONS

The tollowing series of questions comprise the parameters necessary to identify each disk subsystem.

The

program

will

ask

the

following

response to a START command (non=script).

questions

CHANGE HW (L) Y ?

Answe: NO to use the pre-built answers for all hardware
This grogram will be released pre-built to
questions.
The
test three unit with default answers shown below.
pre-built answers may be changed at an{ time with the
setup utility. Answer YES it you want all the hardware
questions to be asked.
NUMBER OF UNITS (D) ?

No default. Answer with the number of disk drive units
This answer will determine
to be exercised or tested.
how many times the following questions are asked. A
rqn?e of 1 to 4 units may be Specified. A unit number
will be assigned sequentially from 0 by the Diagnostic
supervisor for each unit.

IP ADDRESS (0) 172150 ?

Enter the address of the IP recister of one RNDX1 as ad-

dressed
off.

ot turned
the processor with memor‘.mana emc

The program expects an even 16-bit addres>> in

range of 160000 to 177774,

172150 is the default.

the

SEQ S

Page

E]ZROA80.8L1:18 (5)

fififififififififlfififififififififififififlfifififififififififififififififififififififififififififififlfi

TRNI NI ¥
Y X [ T EIR IETETETE LR
YRLR LR
PRPR YR YR YR IR
I E T TR
PRYR NI NI R N X} PRI R IRIR IR E TR
TEA A
AT AT
A TE
A
AR
R
R
[P

VAX=11 Bliss=16 Vv3=~555
DISKSUSERZ: [DIETZ.RELEASE

OWn

V.1V
)

-l

21=Jul-

—

RD/RX EXERCISER

ZRQAMI
v01.2

1
V0
Qo 0o

VECTOR ADDRESS (0) 1564 ?

Answer with the
above question.

interrupt vector of same RQDX1 in the
A vector address in the range of & to

774 may be specified.

154 is the default.

BR LEVEL (D) 4 ?

Answer with the bus request interrupt level used by the
gb?vel§00x1. Levels & through 7 are acceptable. & is the
efault.,

RADX1 DRIVE NUMBER (D) 0 ?

Enter the logical unit number for one drive associated
with the [P address _above. Drive numbers are in the
range

of O through 3.

The

number

entered

here must

match the unit plug on the front panel of the device.
is the default answer.

ENTER UNIT TYPE:

RDS51 - YES

RX50 - NO ?

Question will be asked to determine the type of disk
that this particular unit is; either RD51, or RX50. The
software will not check for the correctness of the contiguration as indicated by the answers to the UNIT TYPE
question.

ALSO EXERCISE DIAGNOSTIC AREA (=NON-CUSTOMER AREA) ?
A ‘‘Yes'' answer
to this question will turn on_the DUP
(Diagnostic/Utilities Protocol) Exerciser.
The DUP Exerciser will read the DBNs (Diagnosti. Clocks) in a
sequential order from 0O to octal (217). DBNs can only
be accessed throw DUP protocol making the blocks unreachThe DUP Exerciser 1is
able throw normal customer use.
(Mass Storage Control
MSCP
the
of
contained in the middle
Protocol) Exerciser which reads LBNs (Logical blocks).
So phgsvcally 3 larae amount of LBNs will be READ and/or
WRITTEN then the DUP Exerciser will turn on and READ
and/or WRITE a few DBNs. The DUP Exerciser will then
reinitialize the controller so the MSCP Exerciser
can

continue where it left off. The processes of reinitializing takes a few seconds.

WRITE ON DIAGNOSTIC AREA?

A ‘‘yes'' answer to this statement will allow the DUP Exerciser to WRITE/READ and compare the DBNs (Diagnostic
Blocks). Where a ‘NO'‘ answer will allow the program to
READ only the DBNs.

SEQ 6

Page

JZROA80.8L1;18 6)

RD/RX EXERCISER

IROAMT

v01.2
:

21-Jul=1983 15:25:58

C 0294

€ 0295

NOTE

21=Jul=1983 15:19:20

F yes ANSWER, DATA ON DBNs WILL BE DESTROYED.

VAX-11 Bliss=-16 v3-555

7
seo

DlSK‘USfRZ:[lell.RELEASEJIIOA'O.IL1:?8.("

RD/RX EXERCISER

10.

21=Jul-

:19:20

STARTING LBN (D) O ?

Enter the starting logical block number of the

data area that ¥ou are going to test. LBNs
gof 21599
efault.

(RDS1),

"0 to 799

(RXx50),

customer

range from 0

with 0 as the

ENDING LBN (MAX = RXS50: 799, RD51: 21599) (D) 21599 ?
Answer this question for the last customer LBN you wish
to test. LBNs range from 0 to 21599 (RD51), or 0 to 799
(RXS50), with 21599 (or 799) as the default.

NOTE: The two previous

questions
are generally Software

NN NN

Parameter questions,

but since two different disk

devices exist on the RQDX1 subsystem, this becomes
a unit by unit question. It is possible to specify
an LBN which 1s too large since we are dealing
with different devices. The program will check for
block number bounds and if t eK are exceeded, will
assign the maximum bound for that device.

N W

fifififififififififififififififififififififififififififififififlflfiflfifi

YRR IR IR TR IEYTE TR

FRXN ¥ TR

R EEEYTE

YRIR

PRTR P RN PR T LN PR TR N LN X Qe 8 @,

IRQAMY
v01.2

:25:58

0319
12.

EXERCISE ON CUSTOMER DATA AREA ON THIS DISK UNIT (L) ?
Answering YES will destroy an{ customer data that is on
the disk; therefore, the following warning message will
appear, followed by a confirmation prompt:
s+ WARNING = CUSTOMER DATA AREA WILL BE OVERWRITTEN!
CONFIRM (L) ?

...

This question will default to NO if the operator has de-

cided to

bypass

the

there is no default.

hardware

questions.

Otherwise,

SEQ 8
Paae .8
VAX=11 Bliss=16 Vv3-555
DISKSUSER2: (DIETZ.RELEASEIZRQABO.BLY; 10 ()

SOF TWARE QUESTJIONS

Software Parameter Questions
The program witll ask the following questions in
to the START, RESTART, and CONTINUE commands.
CHANGE SW (L) Y ?

Answer NO to bypass the following questions in this sec~
tion. This question should normally be answered NO when
the Exerciser is first run. A NO enswer will cause the
Exerciser to select the default parameters shown with
each auestion below. Then, dep2iding on the errors detected, it may be desirable to change this arswer to YES
fturther isolate the
to g{ter the test parameters and
problem.

HARD ERROR LIMIT (D) 32 ?

Enter the number of hard errors allowed before a unit is
A number in the range of 1 to
dro ged. from test1n3.
65535

will be accepted.

TRANSFER LIMIT IN MEGABYTES (0 FOR QUICK PASS) (D) 0 ?
Wwhen the specified number of.b{tes have been transferred
to/from a unit, the unit will be dropped from testing.
when all units are dropped, an end-of-pass will be indiThis is the method used to determine how long
cated.
the Exerciser is to run.

The only other way the Exerciser will declare end-ofpass is it all units are dropped because the error Limit
on each is exceeded. However, the operator can always
abort the program at any time by typing CONTROL-C.

PERCENTAGE OF RDS1 OPERATIONS OUT OF TOTAL OPERATONS (D) 99 ?

In order to maintain
this exercise,

typical usage for the devices of

a certain gercentage of operations must

be directed to the RDS1s (the rest go to the RX50s), It
turns out that this percentage is very high (as indicated b{ the 99 figure given as the default). It may be
desirable in some cases to direct more activity to the
RX50s. This is easily done by directing a smaller percentage of the operations to the RD51s. The numbers
assoclated with usage are adjusted internally by the
program according to

‘

response

Be BaBiGaBetie00020s0000WeVs
Ve Ve Ve VeDs 00 0se 0000

’

DISKSUSER2: (DIETZ.RELEASEJZROABO.BLY; 10 (8)

2.2

21=Jul=7983 15:19:20

SEQ 9

Paae

VAX=-11 Bliss=16 V3=-555

device type and percentage.

fifififififlfififififififififififififififififififififififififlfiflfifififififififififififififififlfifififl

R R T N Ve e Ve B Ve Ve e e g,
PN
A YEYTETE TR TR PR
8o 8¢ 0g 0o 0o 0y VoW, %0000, 0;8e0, % %50, 0,0, TR R IR
B

21=Ju'=1983 15:25:58

RD/RX EXERCISER

ZRQOAMI
v01.2

Answer YES to cause block numbers to be chosen randomly.
:qsrfr NO to cause block numbers to be selected sequenially.

UNITS TO BE SELCTED AT RANDOM (NO, IMPLIES SEQUENTIAL) (L) N ?
This question is optionally asked it the answer to the
previous question
is N[o].
Th2 selection of units for

sequential operations is affected by the answer to this
question. If the default answer is chosen (N[o]), then
units shall be selected in a predetermined manner in
accordance with the typical seek time margins_for each
1f the alternate answer is chosen (Y(es]), then
device.
the units will be chosen at random in accordance with
the percentages specified in Software question &.

L4]

B0 Bam. 2. Da 0ttt 0s 000000000000 0003000000000000050000000000008008¢00%00s
0,

RANDOM SFEK MODE (L) Y ?

totals are maintained.

Answering YES causes the statistical fields to be cleared to zero after the report is printed (either at end of
pass, or at operator request). Otherwise, cumulative

CLEAR STATISTICAL TABLES AFTER PRINTING (L) N ?

the less time to run. The lower this number the more
reinitializations the longer amount of time to tranfer the
s2ve amount LBNs and DBNs.

This variable adjusts the amount of DBNs read in one pass
of the DUP Exerciser. The DUP Exerciser has to reinit
the controller every time it goes back into the MSCP ExerThis hard reinitialization takes a few seconds.
ciser.
The ratio of LBN tranfers to DBN tranfers DOESN'T change
only the amount of DBNs read on one pass. So the higher
this number the less reinitializing the grogram does and

JZROABO.BL':?B.(O)

NUMBER OF DBNs READ AT ONE TIME (18) ?

PSEO 1?

VAX=11 Bliss=16 V3-555
DISKSUSERZ:[DIETZ.RELEASE

e lelnlnlalninlainlnlainislizisiaialinialsisisinlnlaialalalfalalalalalalialalalelele]

E A LRSR LN X ®e &, %0 % 0,
RN TR
IRTSR
T PRPRTR
TR N
A P
T ETR R
TR R IR EE
0
By Bg N,
Ve ®e

21=Jul=1 983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER

IRQAM1
v01.2

CIOVIOVON N0 Yealalalnlalalnlzslniaisiainizsiaialalalaialialiainlalalalslalalalalalalelalnialalele e

PRTN YR L TN ¥
PR N
LRPR
YA IR FE YA
T E
IR
IR IR
TRIR
PRTR X LN LN X (PR
N R L TR
R TR
TR R
A TE A
AR
IR
IR
TR

Answering YES causes all read commands to include the
This essentially forces the conmodifier.
“‘compare”
operations on the same disk
read
two
perform
to
troller
results.
the
compare
to
and
address,
The following message will appear after the operator has
—

answered this gquestion:

THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED DISK UNITS.

WRITE-COMPARES PERFORMED AT THE CONTROLLER (L) N ?
Answering YES causes all write
1/0 requosts to be
After each write, the conchan?ed to write-compare.
troller will read the data and compare it to data
re-obtained from the host.

CHECK ALL WRITES AT HOST BY READING (L) N ?
This question will only be asked if the

ques-

tion was answered NO. Answering YES causes all writes
to be -hecked by the host by reading the data immediate-

ly after the write operation.
This option consumes
extra CPU time, and doubles the amount of storage required for writes.
Therefore, it is only recommended
when device write-compare operations are suspect.

12. USER-DEF INED DATA PATTERN (L) N ?

An answer of YES allows the operator to define his/her
own data pattern to be used in all write operations. A
NO answer will allow the operator
to
select
a
pre-defined data pattern in the next question.

13.

SELECT PRE-DEFINED DATA PATTERN (0 FOR SEQUENTIAL SELECTION)

(D) 0 ?

There are 21 predefined data patterns available, select-

ed as 1 to 21 (see section 4.9). A zero answer will
cause patterns 1 to 21 to be sequentially selected for
(Note that pattern 1 consists entirely of
each write.
random numbers).

DISKSUSER2:LDIETZ .RELEASEIZRQAB0.8L1;10 (10)

READ=-COMPARES PERFORMED AT THE CONTROLLER (L) N ?

10.

SEa N

Paao

<TM

21=Jul~-19 83 15:1 9:20

X=11 Bliss=16 v3-555

—

21=Jul=1983 15:25: 58

RD/RX EXERCISER

IRQAM1
v01.2

€ e 8. 82 8.008c®s0c0s9a0e000s8080060e00080000e6000000000000000000000000000000000082000000000:000000000,

0481

DISKSUSERZ:[DIETZ.RELEASE

21=-Jul =198 3 15:19:20

SEQ 12
12

]ZROABO.B&?:?B‘(11)

14. NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM)
PATTERN VALUES (0) ?

These guestions.will.only be asked if the

(D)

operator

?
has

to define his/her own data pattern. The actual
decided
bit patterns will be entered as octal (PDP-11).

900005000300 00900000 00

YOIONIHIOOYD

0474
0475
0476
0477
0478
0479
0480

:
21-Jul°}9 83 3 15:25
15:25:58

80000000000,

RD/RX EXERCISER

IROAMT
v01.2

VAX=11 Bliss=16 V3=555

3.0

ERROR TYPES

This program has four types of error classifications;
system fatal, device fatal, hard and soft.
SYSTEM FATAL ERRORS

System fatal errors are used to indicate that an error
was detected by the Diagnostic Supervisor in relation
to Lloading/controlling the diagnostic process.

The content of each error is such that it should be
self exglanatory. However, the messages utilize some
terms that are specific to the disk subsystem, and may
require some getting use to.

DEVICE FATAL ERRORS

Device fatal errors are a result of:

an error that is considered fatal to the device,
testing will continue.

wvivaiwvaivivinaw

fififififififififififihfififlfiflflfifi(\fifififififififififlflfififlfififlfififififififififlfifi

A I YETRATR PR N T KN K N ] Ve Ve Ve Ve Ve %e Ve Ve %) 85 %00, 80 00 8 0, [ IRYETYETITEIEIEIEIEYE PREN PR Y LI XN ¥
AT E R R I

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISEk

ZROAM
v01.2

but

HARD ERRORS

Hard errors are a result of:
1.
2.
3.

retries of a soft error or *
a non-recoverable error
a soft error if retrys are not set.

Note: Retries are executed in the controller

SOFT ERRORS

Soft errors are media related errors.

will be retried by the controller.

All coft errors

Note: Soft errors are retrieved from the controller via
the error log

capabilities of

MSCP.

VAX=11 Bliss=16 V3=-555

SEQ 13
Paae 13

DISKSUSERZ: [DIETZ.RELEASE JZRQAB0.BL1;10

(12)

ey
v v v 7Y YY TY TX PY P TR VR TR TR TR TR IR SR DR AL LA LA LAS N

fififififlfiflfififififififififlfifififififififlfiflflfififlfififlfifififififififlflfifififlfiflflfifl

YRTR LN XN X
T EYR IR IERIETER IR
[

LALR LB X Qe 9 09 B %0 v
YRLA
TRIR PR
PR PR C R
A
T TR
TR
E S
I
EEIEEEIE
RN

3.1

VAX-11 Bliss=16 V3=-555

NN
[=1-]

21=Jul-

hodd
Co o

21=Jul-

RD/RX EXERCISER

IRQAMI
v01.2

2
-

DISKSUSERZ:[DIETZ.RELEAS

ERROR INFORMATION

AlLL gereral error messages will include the type of error
(system-fatal, device-fatal, hard, soft) and a unit number.
If the error applies to a .ontroller, then only the first
unit number of the contro'ler will be given. (The user will
know the other unit numders when subsequent ‘'drop unit
messages are printed).

Basic

_error

nessa?es provide more details about the

error. The Exerciser will print all basic error messages,
In some
applicable.
along with the disk address, if

cases

where a device-fatal error applies to a controller,

the controller's IP sddress will be printed.

be used to print

the

codes, SA register contents, and error log messages.

All

Extended

error

messages will

relevant tields of command and end message packets, status

values will

be in octal (PDP-11).

The error messages in this section do not include
errors detected and printed by the Diagnostic Supervisor.

3.2

INITIALIZATION ERRORS

_ Two kinds of errors

will be

reported to the operator

during the Initialization Test. The System-fatal error is too many units specified. A system-fatal error will cause
the Exerciser to abort.

Device-fatal errors only affect the unit(s) involved.
Testing will continue on all other units. This class of
errors includes, but is not limited to, the following:
1.

Vector Test failure

BR Level Test failute

Initialization sequence failure

Online failed

Access failed

SEQ 14
Page 14

EJZROABO.8L1:18 (13)

flfifififififififififihflfifififififififififififlfifififlfifififififififififlfifififififififififi

NN TNPN L I
PR IR PR TN
IE Y
TR TR I TR PR XN E R YR AR LN X ) TR
EE A IR
NA A
A
T
R
R
TR

5:58
21=Jul-1983 15:25:

RD/RX EXERCISER

IRQAMT
v01.2

3.3

:19:20
21-Jul-1983 15:1

VAX=-11 Bliss=16 V3=555

DISKSUSER2:[DIETZ .RELEASE JZROAB0.8L1;10

EXERCISER ERRORS

Most errors reported during this test will originate
from MSCP end message packets. The status code field will
be converted to text and printed as part of a basic error
message. Any subcode value will follow if extended error
messages are enabled.

The following list represents some of the
reported via MSCP:

Disk_ unit

went offline

detailing the reason)

error conditions

(a sub-code

may

Compare error

3.4

Data error (a sub=-code may follow)

Drive error (a sub-code may follow)

Host buffer access error

Media format error (a sub-code may follow)

ERROR LOG MESSAGES

of the errorflog messages received from the
The contents

controller are printed as received,

using the MSCP specs.

3.5

and should be deciphered

MSCP ERRORS

An MSCP error occurs when the host receives an Invalid
Command End Message from the R@DX1. In such cases, the host
will print out the erroneous command followed b{ the reason
for the error. If extended printouts are enabled, then the
entire contents of the end message will be displayed in octal
without interpretation of the data.

SEQ 1 5

Page

(1 4)

RD/RX EXERCISER
NVNIOICICIOIOICIOIN YOI CIOIIOIOIOIOIOIOIYOIOIOY OO O CAVCIIMIIMIICIAI I OIOIIOIOICIIOIOIYOIOIOI OO OV M

IR EE YA R

AA
T ETEYETETE
TR FE TR P T PO T K

Y
PR
IR IR IR IR

TR PR TR R

TN YR N TR AN
K e ®o B

IROAMY
v01.2

21=Jul=-1983 15:25:58

3.6

1983 15:19:20

VAY=11 Bliss=16 V3=555
DISKSUSER2:(DIETZ.RELEASE

SAMPLE MSCP ERROR STATEMENT

__ The errors listed b, the exerciser are ussually very descriptive and are self expianatory. The following is an example
error statement. This error statement is the extented error

message.,

(example)

(comments)

« DISK: XXX
CRN: XXXXX
MESSAGE TYPE: = SEQUENTIAL

'‘DISK UNIT NUMBER
'CONTROLLER PACKET NUMBER
‘THIS IS THE PORT MESSAGE TYPE

COMMAND : =MSCP=READ=COMPARE
STATUS CODE:

UNIT OFFLINE

'"CONNECTION ID AND COMMAND AND MODIFIER GIVEN TO DRIVE
! STATUS CODE OF COMMAND

STATUS SUB=CODE: NO VOLUME MOUNTED OR DRIVE DISABLED B8Y SW'TCH ! SuB CODE
'NUMBER OF BYTES WANTED TO READ
BYTE COUNT IN COMMAND XXXXX
!NUMBER OF BYTES ACTUALLY READ
XXXXX
ACTUAL # OF BYTES TRANSFERED
1/0 BUFFER ADDRESS (32 BITS)
LBN: XXX

END MESSAGE FLAGS:

XXXXXX XXXXXX
! LBN WANTED TO READ

! THERE ARE NO END FLAGS FOR THIS ERROR

)
The status code in an end messages is broken into two
g1eces. The first 5 bits represent the major status which is given
the '‘invalio command’’' message. The 11 remaining bits represent
the sub-code, which tells in greater detail the error in the con-

troller. The LBN is the logical block on the disk the controller
was trying to read. The byte count refers to_the number of bytes
the controlier was going to read off the LBN. The actual number of
bytes transfered refers to the number of bytes read before the
error. The end message flags give any flags that might have been
set by the controller. It is pretty apparent that this error was
caused by something physically switching the disk offline.
3.7

DUP ERRORS

A DUP error occurs when the host receives an Invalid
Command End Message from the RQDX1. In such cases, the host
will print out the erroneous commanc followed by the reason
for the error.

]

There are two major places where errors in DUP will
occur. The first being in the status code much the same as MSCP,

and the second in the DUP 1/0 Buffer. Using the DUP sub-protocol
(using Receive/Send commands to communicate with controller local

programs (p. 25 of DUP.V05)) the controller may send an error

SEQ 16

Page

JZROA80.8L1:18 15)

RD/RX EXERCISER

IRQAMY
v01.2

C 0684

21=Jul=-1983 15:25 :58

21=-Jul=-1983 15:19 :20

message to the host by writting in the DUP [/0 Buffer.

VAX-11 Bliss=16 V3=555
DISKSUSERZ:[DIETZ.RELEASEJZROAB

SEO 17

0.8L1;18 (15)
e

e lalalalalalalslalalalalsinialalalainlalalslalalalalinlalslialalalalalalalalalalele)

A
FE IRTR T T

A R XN N LX) TR YR IR ETE IR
P E P P PN P TN PN PN PR TN
A
TR
IR E T E
RN E
PR
P

3.8

oW
o

—ro

e
-

AV 1V,]

21=Jul~-

0o
TMo
W

21=Jul-

RD/RX EXERCISER

ZRAAMY
v01.2

2
-—d and

SAMPLE DUP ERROR STATEMENT

.. The errors listed by the exerciser are ussually very descriptive and are self explanatory. The following is an example
error statement. This error statement is the extented error
message.

(example)

(comments)

* DISK: XXX
CRN: XXXXX
MESSAGE TYPE: = SEQUENTIAL

'DISK UNIT NUMBER
'CONTROLLER PACKET NUMBER
'THIS IS THE PORT MESSAGE TYPE

1/0 BUFFER ADDRESS (32 BITS)
MESSAGE TYPE:

XXXXXX XXXXXX
! TYPE OF COMMUNICATION

MESSAGE NUMBER:

! MESSAGE TOBE GIVEN OR RESULT EXPECTED

'CONNECTION ID AND COMMAND GIVEN TO DRIVE
ND DATA
: =DUP=-RECEIVE
COMMA
! STATUS CODE OF COMMAND
STATUS CODE: -SUCCESS
ACTUAL # OF BYTES TRANSFERED XXXXX !NUMBER OF BYTES ACTUALLY READ
«+ FATAL ERROR

== SUCCESS/FAILURE CODE
MESSAGE ERROR CODE:
= ILLEGAL UNIT NUMBER

SEQ 18

Paae 18
VAX=-11 Bliss-16 v3=-555
DISKSUSER2: [DIETZ.RELEASE JZROAB0.8L1;10 (16)

! ERROR LISTING

DBN: XXX

The DUP Error messages are almost Like the MSCP messages
but they contain an extra three classifications. These are the
MESSAGE TYPE, MESSAGE NUMBER, MESSAGE ERROR (ODE. These are part
of a DUP sub-protocal for communicating with a controller local
program. The 1/0 buffer address contains the address of the DUP
]
170" Butfer which contains the MESSAGE information.
The status code in this end message is succesful which
means the controller was OK but it did not understand the host
message or something on the host side caused the controller to error
while running the controller local Erograa. This error was produced
by an ILLEGAL UNIT NUMBER. The disk went off line.

v01.2
;
:

C 0726
¢ 0727

C 0728

:
:

¢ 0730
¢ 0731

:
:
:
:
:
:

c 0737
¢ 0738
C 0739
¢ 0740
¢ 0741
C 0742

;
:
:
:
:

21-Jul=-1983 15:19:20

PERFORMANCE AND PROGRESS REPORTS

4.0

¢ 0732
C 0733
C 0734
€ 0735
C 0736

A summary report is printed at the end of each pass of
the Exerciser or upon demand by the operator. The fields may
is printed depending on
be cleared to zero after the report
the operator's response to this option in the software ques=
tions. Any units added to the test cycle will also begin with

C 0743

contain LBNs. The errors for each unit will be listed next to
the LBNs.
Errors are grouped into two basic catagories: hard and

.
cleared statistics.
There are two basic Listings one for LBNs and one for
DBNs. The DBN Listing will only contain RD51s for the simple
reason that they contain DBNs and RX50s do not. The DBNs
are READ and WRITTEN by blocks instead of by bytes. All units

:
;
:

C 0744
C 0745
E 8;29

H
:
H

C 0748
€ 0749
¢ 0750

1. disk related errors

E 8;2%

2. seek (cr format) related errors

E 8;2?

3. controller or drive related errors

E 8;29

4. host (the CPU) related errors.

E 8;28

€ 0760

;
;

..
:
:

:
:

soft. Each is sub divided into four more catagories, depending on the most probable classification for that error.
The sub catagories are:

c 0751

E 8;2}
€ 0763

€ 0764

c 0765
c 0766
C 0767

ALl numeric values are in decimal radix.

UNT

# OF BYTS

# OF

BYTES

== HRD ERS ==

XXXX XXXX

XXXXX

XXXXXX

TYPTM READS READ WRITES WRITTEN DAT SEK DRV HST DAT SEK DRV HST

RDST

*
L

R‘So
Rxso

LR ]
L ]

LR ]
L

C 0768

UNIT

DISK
”

TYPE

E 0771

DBNRDST

E 8;98

== SFT ERS ==

”

L
L

]

o o
L

L]
L]

LJ
L]

L]
L]

X
.
L]

L]
Ld

X
L]
L]

# OF

# BLKS
READ

WRITES

# OF

# BLKS

XXXXX

READS

WRITTEN

ste 19

9
sgs'(i;)
E]ZIOAlo.lli
DlSK&USERZ:IDIETl.RELEAS
VAX=11 Bliss=16 V3-553

21-Jul-1983 15:25:58

RD/RX EXERCISER

TRQAMY

X
L
L]

X
L]
.

fiflfififififlfifififlfiflfihfififlfififififififlfififlfiflfifififififlfifififififififlflfififlfifififi

FN PN R
TEIETETE LR
(IR IR

AL
LAL L
TR R R
PR PRPR IR
N P PR TR
e S
T P TR
P I
Y S e
iyS

21-Jul=-1983 15:25:58

RD/RX EXERCISER

IRQAMY
v01.?

21=-Jul=1983 15:19:20

VAX=11 Bliss=-16 V3-555
DISKSUSERZ: [DIETZ.RELEASE

TEST SUMMARY

5.0

The RQDX1 functional tester and exerciser consists of
two parts, the initialization subtest and the performance
exerciser. The operator is not able to select which of these
two parts he/she wishes to run; they both must be executed.
S.1

INITIALIZATION SUBTEST

The

purpose of

this subtest

is to verity the hardware

r, to bring each
configuration as specified by the operatoand
unit online. The Initialization Subtest will always precede
the execution of any other test.

___ First,

rified,

the presence of each device register will be ve-

along with a check on

the BR level

specified by the

operator. Then, an initialization will be issued to each
When the initialization
controller configured for testing.
sequence has been completed, an attempt will be made to bring
If this succeeds, one or two MSCP reads
each unit online.
will be issued to the inner-most LBN of each selected disk to
to ensure that each disk drive can seek and be read.

Any device-tatal or hard errors encountered during this
test will cause the appropriate unit(s) to be dropped. If
basic error messages are enabled, then the program will print
out the specific reason for dropping the unit(s). Henceforth,
the failed unit(s) will not be tested unless the operator
intervenes (adds unit(s) or restarts Exerciser).

Upon succesful completion of the Initialization Subtest,

the program
5.2

will

begin executing the Exerciser.

EXERCISER

_The purpose of this subtest is to exercise the disk drives
ina manner similar to the typical usage under standard operating systems. Execution of this test should give an indica~

tion of the operating performance of the disk

This test will utilitize random disk addresses,

drive subunits.
random

word

counts, and data patterns, all subject to the Limits and
specifications made b{ the operator. ALl protected disks will
be subject to read-only operations, while unprotected disks
may be read or written, QQpendln? on the answers given to the
software parameter questions.
nd-of-pass will be declared
when the specified number of bytes have been transtferred for
all the disks taken as a whole.

SEQ 20

JZROA80.8L1;182(18)

fi’lfifififi.‘\fififififififififififlfifififififififififififlfififififififififlfiflfififlfififl

e eV 8o,
®e
e
0, B,y 00, B, %, % %,
Ve Ve

$1-ul-1983 15:19:20
1t & read/write error occurs during this test,

vAX-11 Bliss=16 V3=-555

then the

RODXY CONTROLLER will initiate an appropriate number of retries. It all retries fail, then a hard error will be reported to the host, an error message will be diplayed on the
console terminal and the error will be tallied for the summary report. The unit will be dropped if the hard error count
has exceeded the specified Limit.

The Exerciser is actually two exercisers combined together.
The main MSCP exerciser writes and reads LBNs while the less

used DUP exerciser writes and reads D8Ns. The DUP exerciser is
used once per 25 LBN transfers or alot less than the MSCP
exerciser. The two Exercisers use a some what Jifferent

protocol to tranfer 1/0. It is possible to go from MSCP
rotocol to DUP protocol without reinitializing the controller
ut 1mgossible to go from DUP to MSCP protocol. Therfore after

the DUP

Exercise pass the controller is reinitialize and cont~ol

given back to the MSCP Exerciser.

The reinitialization process

takes a few seconds. For this reason a variable is placed in
the DUP Exerciser to allow it to transfer more than 1 DBN per pass.
, is multiplied by 25 to give the amount of MSCP
X',
The variable
transfers before the DUP Exerciser can tranfer "X'' amount of DBNs.
The higher the variable the less reinits the controller must do.
DROP UNIT SUMMARY

5.3

During the Initielization Subtest, individual units will
be dropped from the test sequence if they are unable to be
brought online or the operator specified device does not match
the

hardware.

puring the Exercise, the program will drop a unit for one
reasons. The normal path is for each unit to complete
three
of
the transfer of N megabytes, where N is specified by the oper-

ator agrvng SW questioning and be soft-dropped. Otherwise, 2
unit will be hard-dropped if the number of hard errors encounoperator-specified Limit, or if a fatal error
tered exceeds the

is detected. Units hard-dropped may later be added to the test

C{cle. However, statistics for the hard-added unit will be
cleared to zero; it a transfer Limit was specified, in which
case the unit was soft-dropped, the statistics may or may not
be ggeargg depending on the operators answer to Software
question

DISKSUSER2: (DIETZ.RELEASEJZROA&O.B&1;18 (19)

Mett-2555 15:25:58

RD/RX EXERCISER

IRQAMY
v01.2

SEQ 21

Page

21=Jul=-1983 15::2 5:58
21-Jul~1983 15: 1 9:20

RD/RX EXERCISER
fififififlfiflfifififififififififlfifififlfifififififlfififififlflfifififififlfifififififififififififl

TR
R TR

I E TR A

Y ETETE
TR IRT PN
PR NI

ALRN
K

TR IE Y

C R T X NN T K

AL N

IRQAM
v01.2

SEQ 22

Page 22
VAX=11 Bliss=16 v3-555
18 (20)
L1;
JZRQABO.B
RELEASE
DISKSUSERZ:[DIETZ.

ERROR CODES GENERATED BY ZRQA EXERCISER

6.0

SYSTEM FATAL ERRORS
1

More than 4 units specified

DEVICE FATAL ERRORS
10

Controller couldn't te addressed

Wrong IP address selected

Controller didn‘t interrupt at
the interrupt vector given.

Wrong vector address sel-

Controller didn't interrupt at
the BR lelvel given.

Wrong BR level selected.

Init sequence failed.

four
the
Either one of
initialization steps did
not receive
the correct
(onfrom the
response

at the address given.

ected.

troller, or one
steps timed-out.

of the

fatal Contro!ler error.

The error bit (bit 15) in
the SA register was set.

Failed to bring unit on-line,

On-line re.ponse had an
(see also
error code.
#s 22 and 23.)

Write protect conflict.

The unit
was
hardware
write protected and write
operations were requested
on the unit.

Access to inner track failed.

Unit went off=-line.

Failed

to send

‘Set (ontrcller

Characteristics’'’' command.

Innermost

track's

may be corrupted.

header

Either the wunit is oftfLine or the Diagnostic is
corrupted because of any
problems with its RAM,

e el la o ellalalalalalalalalalalnlninlalalaialalalalalalelalalalalalalolalalalalalalalele)

0925

Controller returned wrong ‘end
for the ‘Set (ontroller
code'
Characteristics’ command.

Problem with the (ontroller microcode or the port/
DMA intterface.

0929

failed to send 'On=line’ command

Either

is oftfthe unit
the diagnostic is
line or

corrupted hecause

problems with its RAM,

0934

Controller returned wrong ‘end
code’ for the 'n-line' command.

246 Device went to available state

Problem with the

any

C(ontrolthe
ler's
port/DMA interface.

1icrocode

fFault switch or door mechanism

HARD ERRORS
MSCP ERRORS

Controller received

invalid

&»

o
O

command.,

The

diagnostic is corr

ted because of an prooor
lems with its RAM,
with
problem
a
is
there
microde
Controller
the
(RAM or ROM) or there is

problem with
intertface.

(ontrol-

Eommand aborted by the

0958

Meaia format error.

0960

Devic» write protected.

0962

Contrcller

0965

Data error.

Host buffer access error

Controller error.

0955

o
O
o

N Y
I EYR IR IR IR ELETE TE TR
I B
YA

ALT TN
e Be e e®e Be B0,y 8,000 8% 80%: 03 %080,0;%0 90, 0,8, 0, 0:0,0, [P TE IR FETI TN T

VAX=11 Bliss=16 v3-555
DISKSUSERZ:[(DIETZ.RELEASE

21=-Jul=~1983 15: 4 §: 58
21=Jul=-1983 15. 1 9: 20

RD/RX EXERCISER

IRQAM
v01.2

0968

er.

read

the port/DMA

Command timed-out in
Controller.

the

write com-

pare error.

data
in the
CRC error
field of a disk block.

Difficult to catagorize
the
without Llooking at
error

sub-code

associated

sage.

any

error-lLog mes-

SEQ 23
Page 2 3

]ZROA80.8L1;18 (21 )

:
:

¢ 0975
C 0976

See #40.

Drise error.

E 83;;

;

¢ 0979

42 Host write compare error.

C 0981

C 0980

;

E 8332

43 Message from internal diagnostics

C 0987

;
:

¢ 0990
¢ 0991

45 Unknown end code received.

:
:
:

¢ 0993
C 0994
C 0995

DUP ERRORS
Host found error

C 0997
C 0998

Message errors

¢ 0996

C 0999

:
:

Duplicate

unit number

by the Controller.

detected

E }88?

the

data

See #40.
-=--

Problem with the C(ontroller microcode or the port/
DMA interface.

C 0992

compared

or Controller RANM.

E 8832

C(PU

be a problem with the Host

Error detected when Host

writrten and read back. May

¢ 0982

E gggg

SEQ 24

Paao 56
VAA=11 Bliss=16 V3~555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BLY;10 (22)

46 DBN compare error.

47 No local media

see # 42
RAM may be corrupt

Unit went offline

¢ 1002

48 Illegal Unit #

;

E }88?

49 Illegal relative or physical BLK #

E }889

50 Device Error

Possible write protected

¢ 1908

51 7ero lenght message

see # 31

¢ 1009
¢ 1010

Status errors

see # 31

E }8}5

E }8}2

52 Invalid Command
53 No region available

cC: }812

54 No region suitable

see # 31

;

E }8};

S5 Program not known

see ¥ 47

¢ 1019

56 Load failure

E }855

57 Stand alone type program

see # 31

¢ 1023

58 DUP unkown status code

see # 31

¢ 1020

Controller local program on

H
:

<TM~

21=Jul=1983 15:25:58
21=Jul=1v83 15:19:20

RD/RX EXERCISER

IRQAMY
v01.2

see # 31

2 0202000000800 0880 00000800000 0000 0s 000000000000 &8s 0y

¢ 1030
¢ 1031
¢ 1032

Controller error.

See error-log

E }8%2

Host memory access error.

See #50.

;

E }8;2

Disk transfer error.

See #50.

C 1037

‘Standard

C 1039

c 1038

C 1040

error.

Disk

°'Small Disk' error.

packet for

details as the exact cause
may not be evident.

Inteconnect®'

See #50.

l.‘l !

-.-...-.-.-.-.-.n...-..-..-.n.n.o.......o.n.o.o.l0..o.c.l.'......“““.....o.l.....o.o.oio.-.-

:
:

€ 1029

SOFT ERRORS

cececaces -

C 1028

1027

C 1024
¢ 1025
¢ 1026

:
H
:
;

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER

IRQAMY
v01.2

SEQ 25

Paae 25
VAX=11 Bliss=16 V3=-555
10 (23)
;
EIZRQGABO.BLT
DISKSUSER2: [DIETZ.RELEAS

P T

FETR

RS AT

PRP TR TR

PRN

YR TR YR KR TNTN L] [YRETETIEIETITE IR FE TN T PN Y N PR YR TR

IRTETETETETE TR
T TIN

030221

Pattern

000001

Pattern 8

177777

177776
177774
177770
177760
177740
177700
177600
177400
177000

176000

174000

170900

160000
140000
b

b cmb

b e

b wed

wmd wmb

b b and b wmd cud b b

b cnd

b
b

b &)
b
b

b b

b CD
b cud

11 m M (ARERAR

105613
1 000 101 110 001 011

031463
0 011 001

0 011 000

010 001

0 000 000
000
000
bO

Mi M. mata®ata®atea®e0atelD

b cud wb

¥|

W
(=1,
-]

-b )
ow

(24)

b cmd wnd and nd cmd and cnd wmb

SEQ 26
26

:0
O.BL1;1
R2
SEIZRQAB
.RELEAS
SU
LDIETZ
DISK

Page

b md

VAX=-11 Bliss=16 V3=555

21=Jul~=1 983 15:
21=Jul-1 983 15:

ol amb emd cnd end wnd cad and wb wub wwd amd =d = OO
b b b and e e ad cnd wnd wd cmd wd b ad b O

b o

b end

b o wnd
b

b b b

b b wmd b
b cmd b e

b b

b ad

P 9

177777

0 000 000 000 000 000

e —a=lrlelelelalelelelelelela)

000000

Pattern

b
b

Pattern

b cnd
b ob

Pattern

b cnd

b od

b wnd wnd

RD/RX EXERCISER

OO
D =babd bk b b b
OOOOOODO
b =badmd =b

b and

Pattern

SN
=

b cod

Pattern

RANDO

b cnd

o [elelalelalelalelalelalslolelelelele]le)
NS SN IS BSENN
0
o VIVVVIWVIAVNI
(= D00 NN N ESWNN = OO0 00 NO N SN
=

Pattern

b ad and wad amb and cud wud wed cud a=b

)

061
7.0

D cd o b

ZROAM
v01.2

—d

fifififififififififififififlfififififififififififififlfiflfififififififififififififififififlfififififlfifl

L T T S S T T T

DATA PATTERNS

BINARY

NUMBERS

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

on/0v EYERCISER

IRQOAM
v01.2
C 1094

¢ 1095

8000
0000

100000
000000

1 000 000 000 000 000
0 000 000 000 000 000

SEQ 27

Pase 27
VAX=11 Bliss=16 V3-555
(26)
10
0.8L1;
JZRQAB
EASE
DISKSUSERZ:[DIETZ.REL

SEQ 28
28
5)
:1
.BL1
OABP
EAS
EJZR
ETZ.REL
ER2:[DI
DISKSUS

VAX-11 Bliss=16 V3-555

RD/RX EXERCISER

IRQAMY
v01.2

OO rrOOr rOrOrOr - rerOOrrOOmOrOrd OO0rrOOrrOQEO—
0OrO
OO0
OOrO0r=Or
rOrOrOr = OO00rrrOOreOrOrOr OO
OO rOr®r
OO
rrrO00r
rOr
OO0rrOrO
0O0OFrrr
O
CCOr rrrOOrrO

WWWWW

IRQAMY
v01.2

RD/RX EXERCISER

SEQ 29
29

Pa
VAX=-11 Bliss=16 v3=555
1
O.BL1;
DISKSUSER2:[DIETZ.RELEASE JZRQAB

8 S)

Pa 80
30
VAX=11 Bliss=16 V3-555
(26)
;1
:
O.BL1
R2
JZRQAB
SE
.RELEAS
SU
[DIETZ
SK
DI

SEQ 30
RD/RX EXERCISER

ZROAMY
v01.2

—O0O—OrO OO
—rOeO
OO0rerOOrrO
e rerereere EeerOOOr
—_—eOre rmererrrre
o Orermrrmrr
00O00O0
rO0rOr-Or
eeerOO0re
er
rmrmremerr
rrerrOrrme
0
OO
-- OO0O~O000

e e ¢ re e e e e e et e e e e e
OO0 wrererrererrrOrr

OO0 rrrrerOrrererrerrrer O00FrrerOOrrO~O—Oe
e
e
e
e
0P
=
Orr
e
rerr
vrer
OO0
r
O-- OCOOCOCOCOrE
Or
OO0
meerOO00r
mer
errmerrmer
rrrrmrreOr
0
OOOO0OO
OO0

O OO

r60 rmrrrerrrrmremrrerrOre meerQOOrerOO0rOrOr
- 00000

21-Jul=-1983 15:25: 58
21-Jul=1983 15.19: 20

RD/RX EXERCISER

IRQAM1
v01.2

c 1207

086(C

155554

1 101 101 101 101 100

SEQ 31
n
VAX=11 Bliss=16 V3-555
(26)
DISKSUSER2: [DIETZ.RELEASE JZROABO.BL1:10
Page

IRQAMY
v01.2

SEQ 32
Pa
32
VAX=11 Bliss=16 V3-555
7
DISKSUSER2: [DIETZ.RELEASE JZROAB0.8L1;1

RD/RX EXERCISER

Pattern 17

-d

9 [= -— @
a o -~ -~ Y|

O OO0rrerOO00OO0rrrrrmr

RD/RX EXERCISER

IRQAMY
v01.2

"8 Q9 '@ 29 %0 "% %G %8 "H " "B °R T TR W YR "R YR YR "W W w w =

- Oerrer O0000rererre000000
LBN

0000
rrrrOOO000000
OrrerOO0QO0 0rererer
——OO0~r OO0 - - OrereD00

e -m
OO0 - e rO0000

OOFr - 0000—r—r~0 0 0
000
rrmr
e rerrO000
- Orerer0000

- OrererOO0000rrererO00000

SEQ 33
33
Pa
VAX=11 Bliss=16 V3-555
8)
DISKSUSER2: (DIETZ.RELEASE JIROAB0.8L1;1

TRYETEIEETE TE

2sbttl °‘PROGRAM HEADER®

Library °‘ZRQABO.L16°;

' RDRX EXERCISER GLOBAL L IBRARY

require °‘BLSMAC.REQ';

' DIAGNOSTIC SUPERVISOR L IBRARY

lLiteral

DSSNBR_OF _TESTS = 1;

! NUMBER OF TESTS IN THIS DIAGNOSTIC

EQUALS;
POINTER (ALL);
‘e

! THE PROGRAM HEADER IS THE INTERFACE BETWEEN
' THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

HEADER (Xascii®ZROA®*, Xascii'B*', Xascii'0', 32767, 1., PR100);

(29)

DISKSUSERZ:[(DIETZ.RELEASE JZROABO0.8L1;10

TR ETN

PROGRAM MEADER

21=Jul=1983 15:19:20

SEQ 34

Page

E IE

RD/RX EXERCISER

VAX=-11 Bliss-16 v3-555

T E T E T EI

TR TN Y P EN PO

A PR EN N

IRQAM
v01.2

21=Jul=1983 15:25:58

RD/RX EXERCISER
DISPATCH TABLE

7ROAMY
v01.2
;
H

2811

;

5814

;

2817

;

%g}z
2818

sl-Jul-l 15:25:58
1-Jul=1983 15:19:20

Zsbttl *DISPATCH TABLE®
‘e

| THE DISPATCH TABLE CONTAINS THE STAR:IING ADDRESS OF EACH TEST.
; 1T 1S USED BY THE SUPERVISOR 10 DISPATCHM TO EACh TEST.

DISPATCH (DSSNBR_OF _TESTS);

SE0 35

Pa8e 3
VAX=11 Bliss=16 Vv3-555
10 (30)
BO.BLY;
LEASEIZROA
DISKSUSER2:(DIETZ.RE

A TE TRTR PR TR LN TR TR TRX TR

EEEEE N EE

A E T IR

E TST PRT PR IR TN

R LR LR R LN X Qs Se %0 9,

21-Jul-1983

21=Jul-1983

GLOBAL DATA SECTION

$:98
:19:20

VAX=11 Bliss=16 V3-555

DISKSUSER2:[DIETZ.RELEASE JZROABO0.BL1;10

t%ttl "GLOBAL DATA SECTION'
e

! THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
!

IN MORE THAN ONE TEST.

psect

glotal = $FFF$ (read, nowrite, execute, local, concatenate).

lobal

CST : blockvector [MAX CTLR, CST_LEN, word) field (CST _FIELDS),
' RUN-TIME CONTROLLER STATUS TABLES

CST_ADDR : ref block [CST_LEN, word] field (CST FIELDS),

' CONTROLLER STATUS TABLE ABDRESS OF °‘‘CURRENT'' CONTROLLER

DCT : blockvector [MAX CTLR, DCT _LEN, word) field (DCT_FIELDS),
¢ BRIVER CONTROLLER TABLES
DCT_ADDR : ref block [DCT_LEN, word) field (DCT FIELDS),

' ADDRESS OF '‘CURRENT'* DRIVER CONTROLLER TABLE

RDRX_ADDR : ret rdrx field (RC_REG),

' DEVICE ADDRESS OF ‘‘CURRENT’' CONTROLLER

IRDRX_ADDR : ref rdrx field (RC_REG),

! DEVICE ADDRESS OF INTERRUPTING CONTROLLER

DUPPKT : BLOCK (257, WORD) field (DP_FIELDS),

' BUFFER CONTAINING DUP INFORMATION FROM RECEIVE AND SEND COMMANDS
TALLY : vector [MAX_UNITS
TALLY_LEN, word) field (T_FIELDS),
! STATISTICS TABLES
T_ADDR : ref block [TALLY_LEN, word] field (T FIELDS),

! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT
C_ERR_TBL : blockvector [MAX_CTLR, C_ERR LEN, word] field (C_ERR_FIELDS),
! STATISTICS TABLE FOR CONTROLLER ERRORS
[PKT_CNT, PKT _LEN, word]l field (PKT_FIELDS),
blockvector
:
MSCP_PKT
' MSCP PACKET PODL
IPKT_ADDR : ret block [PKT_LEN, word) tield (PKT_FIELDS),
' ADDRESS OF AN MSCP PACKET TINTERUPT PROCESSING)

PKT_USE : vector [PKT_CNT, byte, signedl,
'V"MSCP PACKET POOL ALLOCAT'ON vasLE
KETPKT : blockvector [RP_CNT, RP_LEN, word] tield (RP_FIELDS),

! RETURN PACKET POOL

RP_USE : vector [RP_CNT, byte, signed],
! RETURN PACKET POOL ALLOCATION TABLE
RP_INDX : word,
! CURRENT RETURN PACKET INDEX
RP_ADDR : ref block [RP_LEN, word) fielu kP _FIELDS),

! CORRENT RETURN PACKET KDDRESS
ELOG_PKT : blockvecter CEP_CNT, EP_LEN, word) field (EP_FIELDS),
! ERROR-LOG PATKET SAVE AREA
' TABLE OF 1/0 BUFFER DESCRIPTORS
BUFF_ADDR : vector [MAX BUF_(NT],

BUFF_OWN : vector [MAX BUF_INT, byte, sicned],
10007 : vector [IODQ_LEN, bytel,
I0DQ_IN : word,
10DQ OUT : word,
ENTRY_REASON : byte,

'
!
!
!

! 1/0 BUFFER OWNERSHIP (CONTROLLER NUMBER)

170 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES
170 DONE QUEUE IN POINTER
1/0 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND

(31)

RD/RX EXERCISER

IRQAMY
v01.2

SEQ 36

Paae

2878
2879

DUR : vector [MAX_UNITS, byte],
QI0 : vector [MAX_CTLR, by‘el,

2881
2882
2883
2884

8YTS_PER_QIO : word,
ST_CCCE * word,
SB_CODE : word,
STEP : word,

FREE_MEM_ADDR,

! DROP UNIT REASON
! NUMBER OF OUTSTANDING Q10> PER CONTROLLER
! START OF FREE MEMORY
! SIZE (BYTES) OF AN 1/0 BUFFER
! CURRENT STATUS CODE
! CURRENT SUB-CODE

2886

OF _RC : signed word,
SA_REG : word,

! OFFSET (0 OR 2) TO READ [P OR SA

' COMMAND TIMEOUT VALUE (IN SECONDS)
! NON=-EXISTENT MEMORY TRAP INDICATOR

2876
2875
2876
2877

2880

:
:

:
:
:
M

2885

CCTIR : word,
(DISK : word,
CUOFF : word,
CTLR_CNT : word,

H
:

2887
2888

CMD_TIME : word,
NEX : word,

:
:

2891
2892

P_IRDEX : s&gned word,
RD,
S_DUPPKT :

2895

NEXT_PKT_USE : byte:

:
.
H
H
H

2889
2890
2893
2894

2896
2897

(RN_LOW : word,
CRN_HIGH : word,

S_PATTERN : WORD,
CREDIT BAL : word,

ERRTBL;

! NUMBER OF ‘‘CURRENT'' CONTROLLER
! CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
! CURRENT UNIT (ST OFFSET
! TOTAL NUMBER OF CONFIGURED CONTROLLERS

! CURRENT STEP IN HARD INIT

! STORAGE FOR SA REGISTER READS AND WRITES

! COMMAND REF NUMBER OF LAST COMMAND SENT
! COMMAND REF NUMBER (H] ORDER)

! CURRENT message PACKET INDEX
! DBN BYTE COUNTER

' THE PATTERN WRITTEN TO DBN'S
! CRED]T BALANCE

' POINTER TO NEXT ENTRY IN PKT_USE TABLE

@ V]

e ol
loleololwlolelevlolololeo B

' END-OF -PASS FLAG
! DUP FLALS

e T

EOP_FLAG : byte,
DUP_FLAGS : WORD,

872
2873

;
:
.
:

SE0 37

Page 37
VAX=-11 Bliss=16 v3=555
DISKSUSER2: (OIETZ.RELEASEIZROABO.BLT; 10 (31)

:
:

21=Jul=1983 15:25:58
21=Jul=-1983 15:19:20

RD/RX EXERCISER
GLOBAL DATA SECTION

IRQAMY
v01.2

P
R
P

RD/RX EXERCISER
GLOBAL TEXT SECTION

i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
! MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
E MORE THAN ONE TEST.

Qlobal bind

g HARDWARE DIALOG
HWQ1 = uplit (Rasciz’'IP ADDRESS'),
HWQ2 = uplit (!asciz'VECTOR')

HWQ3 = uplit (1asciz'8R LEVEL ),

HWQ4 = uplit (Xasciz’'RD/RX DRIVE NUMBER')

HWQS = upl\t (Xasciz'1S DISK AN RDST UlNCHESTER (NO, IMPLIES AN RX50 FLOPPY)*),
HWA6 = uplit (Xasciz'STARTING LBN'),

]

;

SOF TWARE DIALOG

Swal

SWa2

TR TRTR

TR YRTR

PR TR TR LN

HWQ7? = uplit (Xasciz2’ENDING LBN (HAXIHUH RXS0: 799, RDS1: 21599)*),
HWAB = uplit (Xasci2'WRITE ON CUSTOMER DATA AREA ON THIS DISK®),
HWQ9 = uplit (Xasciz®'++ WARNING - CUSTOMER DATA AREA MAY BE OVERUR]TTEN' .es CONF IRM'),
HWQ10 = upllt (Xasciz'ALSO EXERCISE ON DIAGNOSTIC AREA (=NON-CUSTOMER AREA)'),
HWQ11 = uplit (Zasci2'WRITE ON DIAGNOSTIC AREA'),

T ETR

SWa4

= uplit (Xasciz'HARD ERROR LIMIT®),

= uplit (X¥asciz'TRANSFER LIMIT IN HEGRBYTES (0 FOR '‘QUICK PASS')*"),
= uplit (Xasci2'RANDOM SEEK MODE'),

TR A

sWwa7 = uplit
SWa9 = upl!t
SWQ10 = uplit
sSwall = upl!t
SWa12 = uplit
SWo13 = upllt

A
T E T E M E R E T E T E TR N E

DISKSUSER2:(DIETZ.RELEASE

(!asc1z'READ-COHPARES PERFORMED AT THE CONTROLLER'),
(Xasci2'WRITE=COMPARES PERFORMED AT THE CONTROLLER )
(Xasciz'CHECK ALL WRITES AT HOST BY READING')
(Zasci2'USER-DEF INED DATA PATTERN'),
(Yasciz"SELECT PRE-DEFINED DATA PATTERN (0 FOR SEOUENTIAL SELECTION) '),
(Xasciz'NUMBER OF UORDS IN DATA PATTERN (16 MAXIMUM)'

sSwa14 = uplit (Zasciz'PATTERN VALUE'),

SWa15 = uplit (Xasciz'CLEAR STATISTICAL TABLES AFTER PRINTING'),

SWal7 = upllt (Xasciz'PERCENTAGE OF RD51 OPERATIONS OUT OF TOTAL OPERATIONS')

!
!

R E T EE
R
IR
IRR

21=Jul=198 31
5:58
21-Jul=-1983 1 :19:20

Tsbttl "GLOBAL TEXT SECTION’

T LR X (YR YR I

ITEIR IR
IRTE TR TR TR IR NI

Y I ¥

IRQAM
v01.2

VAX=-11 Bliss=16 V3=555

),
SWai9 = upllt (Xasci2'UNITS TO BE SELECTED AT RANDOM (NO, IMPLIES SEOUENTIAL)
ON READS ),

SWa20 = upllt
Swa2l = upllt
SWa22 = uplit
SWM1 = upllt

NULL
ier

!
!
!

(Xasci2"WANT TO REWRITE BLOCKS WHEN '?ORCED ERROR'* DETECTED
(Xasciz'IF "HALT ON ERROR'' FLAG SET, WANT TO HALT ON HARD/SOFT ERRORS ALSO ),
(Zasciz'NUMBER OF DBNs READ AT ONE TIME (effects RD51s onlg
(Zasciz’ THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED ISKS ),

= uplit (Zasci2z2'’
'0

THE FOLLOWING DBHs ARE DEBUG MESSAGES, AND SHOULD BE REMOVED BEFORE
RELEASING THE PROGRAM. THEY INCLUDE THE NAMES OF EACH ROUTINE, PLUS
FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION.
DBMS

= uplit (Xasciz'INXA«+ DROP UNIT %i2').

SEO 38

JZROABO.BL1;18 (32)

SEQ 39

Pase

VAX=-11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE JZR0AB0.8L1;10

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

DBM12 = uplit (Xasciz'INXAe+ PROC_RETPKT: CONN ID = XD5XA RECEIVED®),
DBMIS = uplit (¥asciz'INXAve MULTI-DRIVE TEST'),
DBM18 = uplit (¥asciz'INXAs+ FATAL ERROR: RETPKT NOT AVAILABLE' ),
OBM19 = uplit (Xasciz'XINXA++ FSET OPAR: CAN''T FIND DISK XD3XA IN CST %D1°),
DBM20 = uplit (Yasciz'XINXA«+ BAD TONN ID = ¥D5XA RECEIVED FROM 206°),
DBM21 = uplit (¥asciz'INYAe+ MESSAGE TYPE XD2XA RECEIVED IN MSCP PACKET'),
DBM22 = uplit (Xasciz'XINXA~+ SEQUEN: RETPKT NOT AVAILABLE'),

DBM23

= uplit (Yasciz'INXAse CTLR TIMEQUT = XD3XYA SECONDS'),

DBM27

= uplit (Yasciz'INXAee UNIT_INIT: RETPKT HAS BAD ENDCODE®),

DBM26_

!
!

'
!

!
!

= uplit (¥asciz'INXA++ ERROR IN SET_CTLR_CHAR'),

DBM25

= uplit (Xasciz'INXA«+ ERROR IN UNIT INIT'),

DBM28A = uplit (Xasciz'XINIA++ UNIT SIZE (LO) = 2D5°),
DBM288 = uplit (Xasciz'INXA*+ UNIT SIZE (HI) = XD5'),
DBM29 = uplit (Yasciz'INXAe+ ACCESS: RETPKT HAS BAD ENDCODE'),
DBM32 = uplit (Xasciz'INXA++ QIO _UNIT: (ST ID1XA NO UNIT SELECTED'),
DBM101 = uplit (Xasciz®INYAe+ UNIT # IS: %06°'),
DBM104 = uplit (Zasciz'XNXA++ RX50 IS SELECTED'),
DBM10S = uplit (Xasciz'INXA«+ RD51 IS SELECTED'),
DBM107 = uplit (Xasciz'AINXA++ ILLEGAL FUNCTION: 206'),
DBM108 = uplit (¥asciz'INTAv+ COMMAND REF # XD5IA. NOT SENT BY HOST®),
DBM109 = uplit (¥asciz'XINXAs+ UNKNOWN ERROR LOG FORMAT XD3YA. RECEIVED'),
0BM110 = uplit (Xasciz'INXA++ ERROR-LOG SAVE AREA FULL'),
DBM111 = uplit (Tasciz'XINXA+« REINIT MSCP EXERCISER'),
DBM112 = uplit (Xasciz'INXAx+ DUP_RSP: RETPKT NOT AVAILABLE®),

! DROP UNIT MESSAGES

DU_MSG = uplit (Xasciz"INXAUNITID2XA DROPPED = °),
DU_RSN - uptit (
uplit (Zasci2®TAUSER COMMANDZN'),

uplit
uplit
uplit
uplit
uplit

(Xasciz®XACONFIGURATION ERRORIN'),
(Xasci2'XAINIT ERRORIN'),
(Xasciz®XATRANSFER LIMIT REACHEDIN'),
(Xasciz'XAERROR LIMIT REACHEDIN'),
(Xasciz®YAUNRECOVERABLE DEVICE ERRORIN')

uplit (¥asciz'¥AUNRECOVERABLE CONTROLLER ERRORAN'),
uplit (Xasciz'XAFAILED TO COME ONLINEXN'),

uplit (Xasci2'XAFAILED TO ACCESS LAST TRACK DURING INITZIN'),
uplit (Xasciz2’%ADISK WRITE PROTECTEDIN'),
uplit (Xasciz'XACOMMAND TIME OUTZN'),

uplit (%asciz'XAUNIT WENT TO AVAILABLE STATEXN')) : vector [11],

: SYSTEM MESSAGES (PRINTF)
MSG_01

MSG_02
MSG_03

uplit (Xasciz'INXAPOWER DELAY - UAITING‘)‘
uplit (Xasci2®INTAFUNCTIUNAL TEST STARTED'),
uplit (Xasciz2'XNXNXYAEXERCISER STARTEDIN'),

! REPORT MESSAGES (PRINTS)
RPT1
RPT2
RPT3

uplit (Zasciz'XINXNXAUNT DSKXSBXA¥# OF

# BYTES

# OF

uplit (¥asciz'¥A =--HARD ERRORS== ==SOFT ERRORS=='),
WRITES
READ
# TYPE READS
uplit (%asci2'XNXA #

# BYTES'),

WRITTEN'),

(32)

<re

RD/RX EXERCISER
GLOBAL TEXT SECTION

ZRQAM1
v01.2
;

21-Jul=-1983 15: 2 :58
21-Jul=1983 15:19:20

3005

Rpts .- upl‘t (!asc z szA--- oo ooew

RPT4

= uplit <!asciz'zA

:
:

3007
3008

RPT7
RPT8

= uplit (!ascvz INXD2XD4XA
= uplit (Xasci2'INXD2XD4XA

3012

Lit (Xas 'xA
RPT12 = B

3015

:
:
;
:

3004

3018

RXS0'),
RDS1')

1042A

JID4XIA

.Y,

#BLKS '),
# OF
# OF # BLKS
RPT13 = U Lxr(xAscxz znznzAuuxr oxsx
'),
WRITTEN
WRITES
READ
READS
TYPE
# PO COPCODO®
NIA
RPT14 -= UPLIT(YASCIZ'I
.)'
VDOOVO® 4 BOWVVGGS 44800 GCOOWSS = Seooeae
u---UPLIT(!ASC]Z'!
RPT‘S
RPT16 = UPLIT(XASCIZ*INXIS1¥D2XS4XD2%A DBNRDST XD6XS3XD6XSSXD6XS3XD6'),

3013
3014
gg}g

OOOPVHDOS .)'

RPT9 = uplit (Zasciz'ID4IZ3I03IA,I231A, §13"),
RPT10 = uplit (Yasciz’ 104104204204104204104104 ),

3009
3010

SEK DAT DRV HSTPO
SEK DAT
DRV HST'),
POOOeO®
COVODTODS

SEQ 40

Paae 40
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL1;10 (32)

%853

| GENERAL ERROR MESSAGES

;
;
:

ggg;

]

3023
gggg

SYSTEM FATAL (ERRSF)
EGS_01 = uplit (¥asciz'TOO MANY UNITS®),
~
{1=02 = uplit (%asciz’NOT ENOUGH FREE MEMORY FOR ALLOCATING READ/WRITE BUFFERS'),

gggg

3028

3030

:
:
:

EGD_10 = uplit (Zasciz’REGISTER EXISTENCE resr FAILED'),

3029

EGD_11 = uplit (Xasciz'VECTOR TEST FAILED')

EGD_12 = uplit (Zasciz'BR LEVEL TEST FAILED')

EGD_13 = uplit (Xasciz’'INIT SEQUENCE FAILED')
EGD_14 = uplit (Xasciz'FATAL CONTROLLER ERROR'),
EGD_15 = uplit (1asc1z'0NLINE FAILED'),

3031
3032
3033

EGD_16 = uplit (¥asciz'WRITE-PROTECT CONFLICT"),

3034

3035
3036
3037

3038

DEVICE FATAL (ERRDF)

EGD_17 = uplit (Xasci2'ACCESS FAILED'),
EGD_18 = uplit (¥asciz2'FATAL 1/0 ERROR'),
EGD_19 = uplit (Xasciz'CONTROLLER TIMEOUT"),

EGD-20 = uplit (Xasciz'FAILED TO SEND SET- CONTROLLER=-CHARACTERISTICS COMMAND®),

EGD-21 = uplit (¥asciz'SET-CONTROLLER-CHARACTERISTICS RESPONSE HAS BAD ENDCODE ‘OR FLAGS IN ERROR'),

3039
3040

EGD_22 = uplit (Xasciz'FAILED TO SEND ON-LINE COMMAND'),

EGDZ23 = uplit (Xasciz'ON-LINE RESPONSE WAS BAD ENDCODE®),

ggz; .

ggzz

;

2822

;

;
;

ggzg
gggg

g BASIC ERROR MESSAGES (PRINTB)
SYSTEM FATAL (ERRSF)
f

ggg}

%822

:
:

3055
3056

HARD or SOFT (ERRHRD or ERRSOFT)

EGH_30 = uplit (¥asciz'l/0 REQUEST FAILED®),

EBS_01 = uplit (¥asciz'JAMORE THAN ¥D2XA UNITS SPECIFIED'),

DEVICE FATAL (ERRDF)
EBD_10 = uplit (X¥asciz'¥A+* NO RESPONSE AT ADDRESS %06°)
EBD_12 = uplit (%asciz'¥A+ INCORRECT BR LEVEL FOR DEVICE 206%).

:
:
:

3057
3058
3059

ggg?

%82%

3064

:
:
:

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

ZRQAM1
v01.2

EBD_13 = uplit (Xasciz'XIA+ STEP ID1XA READ ERROR'),
EBD_14 = uplit (Yasci2'X¥A+ BAD SA CODE FROM DEVICE 206°),
EBDC18 = uplit (Xasciz'¥A+ DISKID2XA WENT OFFLINE'),

EBD-19 = uplit (¥asciz'XA« DEVICE X06XA NOT PROCESSING COMMAND PACKETS®),
HARD or SOFT (ERRHRD or ERRSOFT)

EH_0 = UPLIT (XASCI2® = unrecognized MESSAGE TYPE')

EH_1 = UPLIT (XASCI2' - unrecognized connection id')
ed RETURN nessage'f.
EH_2 = UPLIT (XASCIZ' - unrecognizized
RETURN PACKET®),

3065
3066

EH_3

3067

= UPLIT (XASCI2' - unrecogn

EH_4 = UPLIT (XASCIZ® - unrecognized CRN'),

3068

3071
3072
3073

EH_S = UPLIT (XASCIZ' - UNRECOGNIZED OPCODE'),
EH_6 = UPLIT (XASCIZ' - MSCP STATUS CODE ERROR'),
EH_7 = UPLIT (XASCIZ® - DUP STATUS CODE ERROR'),
EH_8 = UPLIT (XASCIZ® - unrecognized STATUS CODE*),
EH_9 = UPLIT (XASCIZ' - LBN HOST COMPARE ERROR®),!

3075
3076

EH_12 = UPLIT (XASCI2® - UNABLE TO LNAD DUP MEDIA °),
EH-13 = UPLIT (XASCIZ® = ERROR IN D P=-PKT WHEN USING CTLR LC PRG'),

:
:
:
:
:
:
:
:

3078
3079
3080
3081
3082
3083
3084
3085

uplit (Xasciz'TAINVALID COMMAND'),
uplit (Xasciz'XACOMMAND ABORTED'),
uplit (Zasciz'XAUNIT OFFLIN.'),
uplit (Xasciz'XATRANSITION TO AVAILABLE STATE'),
uplit (Xasciz'TAMEDIA FORMAT ERROR'),
uplit (Xasciz2"XAWRITE~PROTECTED'),
uplit (Zasciz'XADEVICE COMPARE ERROR'),
,
uplit (Zasciz'XADATA ERROR'),

:
:

3087
3088

:
:
:
H

:
:

3069

3070 *

EH_10 = UPLIT (XASCIZ' - DBN HOST COMPARE enaoa'i.

3074

ERR_COD =

3077

uplit (Zasciz'TACONTROLLER ERROR®),
uplit (Xasciz'TADRIVE ERROR'),

3089
3090
%835

gggz

;

3095

3n97

:
:

3100
3101

uplit (Xasciz'XAMESSAGE FROM INTERNAL DIAGNOSTICS®),
uplit (Xasciz'XAHOST COMPARE ERROR'),
uplit (Zasciz'YACOMMAND TIMEOUT®)) : vector [14],
ERROR LOG MESSACE (ERRSOFT)

ELG_00

= uplit (Xasciz'XNXAERROR LOG M:SSAGE RECEIVED:IN®),

ELG_FMT = uplit (

uplit (Xasciz'XA* CONTROLLER ERRORIN'),

uplit (Xasciz'ZA+ HOST MEMORY ACCESS ERRORXIN'),
uplit (Xasciz'XAr DISKED2XA - DISK TRANSFER ERRORIN'),

3
3099

uplit (Xasciz'XAe DISKYD2XA - ‘‘STANDARD DISK INTERCONNECT'® ERRORIN'),
uplit (Zasciz'XA+ DISKID2XA - "'SMALL DISK'' ERRORXIN®)) : vector [51],

b wed

g EXTENDED ERROR MESSAGFES (PRINTX)

;
;

3096

—d o

:
:
;

uplit ¢

uplit (Xasciz'XAHOST BUFFER ACCESS ERROR'),

3086

07
08
05

EX_BDR
EX_BDW
EX_LBR
EX_LBW

uplit (%asciz'INZAI/O BUFFER ADDRESS FOR READ (32 BITS): X06XA X06IN'),
uplit (Yasciz'INYAI/O BUFFER ADDRESS FOR WRITE (32 BITS): X06%A 206°),
uplit (Xasciz'INIALBN: (READ) XD5XA. (OCT X06XA)°),
uplit (Zasciz'INTALBN: (WRITE) XD5XA. (OCT X06XA)°),

SEQ 41

Page 41
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1;10 (32)

RD/RX EXERCISER
GLOBAL TEXT SECTION

ZRQAMY
v01.2
3110
31
%}}%

3116

XX13 = UPLIT (XASCIZ'XNXA « DISK : %D2°),

3116
3117

XX15 = uplit (Xasciz'INXASTATUS CODE: °),
XX16 = uplit (Xasciz*INXASTATUS SUB=CODE: '),

3115

:
:

3118
3119

;
;
;
;

;
;
;

3
3
3
3

3
3
3

;
:
:

3
3
3

;
:
;
;
;

3
3
3
3
3

;
;

;

3
3
3

b
b d

XX23 = UPLIT (XASCI2®XNIADBN: XDSXA. (OCT X06XA)°)

XxX25 = uplit (Xasciz'INXAACTUAL # OF BYTES TRANSFERRED: XD5'),
xXx26 = uplit (Xasciz2®INXAI/O BUFFER ADDRESS (32 BITS): X06%A X06°),
XX27 = uplit (Xasciz'INIACONTENTS OF RETURN PACKET:IN'),
XX29 = UPLIT (XASCIZ'INXAMESSAGE TYPE: '),
XX30 = UPLIT (XASCIZ'XNXAMESSAGE NUMBERS: °),
XX31 = UPLIT (XASCIZ'XNXAMESSAGE ERROR CODES: °),
XX32 = UPLIT (XASCIZ'XNXABYTE NUMBER: XD3°),
XX33 = UPLIT (XASCIZ'XNXARANDOM WRITTEN WORD :%B16°'),
XX34 = UPLIT (YASCIZ'XNXARANDOM READ WORD bin:XB16XA oct:206°),
XX35 = UPLIT (XASCIZ'INXACRN : 206°'),

'XX36 = UPLIT (XASCIZ°®XNXATHE EXPECTED CRN : X06°),

XX37 = UPLIT (XASCIZ'XA = UNKNOWN : XD2°),

XX38 = UPLIT (XASCIZ'XA = UNXNOWN CONNECTION ID: XD3XA -°),

XX39 = UPLIT (XASCIZ'XINXACONTROLLER FLAGS:'),
XX40 = UPLIT (XASCIZ'XNXAUNIT FLAGS:'),

XX41 = UPLIT (XASCIZ'XNXAEND MESSAGE FLAGS:'),

;

b wd

md wd

b e

3
3

:
:

3126
3127
3
31
3
31
31
3
31

b d

XX24 = uplit (Xasciz'INXABYTE COUNT IN COMMAND: %D5°),

WA WAAAWAES IS BN 8 8 8 8 0 5 B
W W W N W W W
NN N
NO NS WA= OOVONAWVSWN=2O
0NV W=
N=O 000~ OB NN = OV

3125

3126

:
:
:
:
:
:
:
:
:

XxX20 = uplit (Xasciz'YA=COMPARE ),
XX21 = uplit (Xasciz'INTABAD BLOCK REPORTED: X05XA.°'),
XX22 = uplit (Xasciz*XNXALBN: XD5XA. (OCT X06%A)°),

3121
3122
3123

b md

XX17 = uplit (Xasciz'INXACOMMAND: °),
XxX18 = uplit (Zasciz'IA-DUP=*)

g UNKNOWN RETURN MESSAGES
EB_DCT = UPLIT (XASCIZ'INXA DRIVER CONTROLLER TABLE = ADDR: XD6XN'),
EBCOMM = UPLIT (YASCIZ'INXA CMD INT, RSP INT, COMMAND RING = ADDR: XD6XN°),
EB_PKT = UPLIT (XASCIZ'INXA ALL PACKETS IN MESSAGE AREA'),
EB_RAL = UPLIT (XASCIZ'INXA ALL RETURN PACKETS IN AREA'),
EB”ADDR = UPLIT (XASCIZ°INXA ADDR: ZD6ZA
PACKET = IN’),
EBREXT = UPLIT (YASCIZ'INYA ADDR OF RESPONSE RING TO BE POLLED %D6°),
EB_NEX2 = UPLIT (XASCIZ'XNXA ADDR OF MESSAGE PACKET RESPONSE RING SLOT POINTS TO XD6'),
EBREX3 = UPLIT (ZASCIZ'INXA ADDR OF MESSAGE PACKET COMMAND RING SLOT POINTS TO XD6°),
; CONF IGURATION ERROR MESSAGES (PRINTF)
CER_O1
CERTM02

uplit (Xasciz'XNXADUPLICATE UNIT:XD2%A AT IP: %06'),
uplit (%asci2'INYAMORE THAN XD1XA DIFFERENT IP ADDRESSES'),

:
:
:

XX14 = uplit (Xasciz'INXASA: %06'),

3120 XX19 = uplit (Yasciz'IA-MSCP='S,

;

OO\ VW

:
:

21=Jul=1983 15:25:58
21-Jul=1983 15:19:20

| MESSAGE TYPES

SEQ 42

Paae 42
VAX=-11 Bliss=16 V3-555
(32)
1;10
SEIZRQABO.BL
[DIETZ.RELEA
DISKSUSER2:

EX_RBN = uplit (Xasciz'XINXAREPLACEMENT BLOCK NO. XDSXA. (OCT 306%A)°),
EX_CBR = uplit (Xasci2'INIABYTE COUNT IN READ COMMAND: IDSXA.'),
EXCBW = uplit (Xasciz'XNZABYTE COUNT IN WRITE COMMAND: XD5XA.'),

:
:
:
:

! commands
!mscg
X_RD = uplit (Rasciz'TAREAD'),

3173

g};g

3172

3174

EX_WRT = uplit (Xasciz'TAWRITE’)

EX_ACC = uplit (!asc!z'!AACCESS'S.

EX_ONL = uplit (Xasci2'TAON LINE'),

EX_SCC = uplit (Xasciz*XASET CONTROL CHAR.'),

EX_GDS = uplit
EX_ESP = uplit
EXCELP = uplit
EX_SDD = uplit
EX_RCD = uplit
EX_ABP = uplit

!dup

:
:
:
:
:
:

3177
3178
3179
3180
3181
g}g%

g}gé

3186

SC_SDI = uplit (Zasciz'IASPIN-DOWN IGNORED'),

3188

SC_DUP = uplit (Zasciz'ZADUPLICATE UNIT NUMBER'),

:
:

:
H

:
:
;
:
:
:
:
H
:

:
:
:

:
:
:
:
;
:
:

:
:

3187

3189
3190

319
3192

(Xasci2'YAGET DUST STATUS'),
(Zasciz'YAEXECUTE SUPPLIED PRG'),
(Xasci2'XAEXECUTE LOCAL PRG'),
(Zasciz®IASEND DATA'),
(Zasciz'ZARECEIVE DATA'),
(Zasciz'TAABORT®),

; ERROR/EVENT SUB CODES (PRINTX)
SC_CON = uplit (Xasci2'XASTILL CONNECTED®),

SCCONL = uplit (Zasciz'XAALREADY ONLINE'),
SC_SON = uplit (Xasciz'ZASTILL ONLINE®),

3194

SCTUNK = uplit (¥asciz®XAUNIT UNKNOWN OR ONLINE TO ANOTHER CONTROLLER®),
SCTVOL = uplit (Xasciz'XIANO VOLUME MOUNTED OR DRIVE DISABLED BY SWITCH'),
SCCIOP = uplit (Xasciz'XAUNIT INOPERATIVE (RDS1 WRITE FAULT'),
SC_DIS = uplit (Xasciz'IAUNIT DISABLED BY FIELD SERVICE OR INTERNAL DIAGNOSTICS'),

3202
3203

SC_ECD = uplit (Zasciz®IAUNCORRECTABLE ECC ERROR'),
SC_RCT = uplit (Xasciz2'TARCT CORRUPTED'),

3193

3195
3196
3197
3198
3199
3200
3201

3204
3205
3206

3207
3208
3209
3210
3211
3212
3213

3214
3215

SC_FER = uplit (Xasciz'XA"FORCED ERROR'' DETECTED WHILE ACCESSING FCT OR RCT*),
SCZFE2 = uplit (Xasciz'TASECTOR WRITTEN WITH *‘FORCED ERROR’' MODIFIER'),
SC_ISH = uplit (Xasciz"XAFCT OR RCT UNREADABLE - INVALID SECTOR HEADER'),
SC_I1S2 = uplit (Zasci2'XAHEADER COMPARE ERROR (VALID HEADER NOT FOUND)*),
SC_DST = uplit (Zasciz*XAFCT OR RCT UNREADABLE - DATA SYNC TIMEOUT®),
SCZDS2 = uplit (Xasciz'XADATA SYNC NOT FOUND (DATA SYNC TIMEOUT)'),
SCTECC = uplit (%asciz'XAFCT OR RCT UNREADABLE - UNCORRECTABLE ECC ERROR®),
SCCFUL = uplit (Xasciz'¥ANO REPLACEMENT BLOCK AVAILABLE (RCT FULL)'J,
SC2576 = uplit (Xasciz'XADISK NOT FORMATTED WITH 512 BYTE SECTORS®),
SCCFCT = uplit (Xasciz'¥ADISK NOT FORMATTED OR FCT CORRUPTED'),
SC_EC1 = uplit
SC_EC2 = uplit
SC_EC3 = uplit
SC_EC4 = uplit
SC_EC5 = uplit
SC_EC6 = uplit
SCCEC7 = uplit
SC_EC8 = uplit
SCEC9 = uplit

(Xasciz2'XAONE SYMBOL ECC ERROR'),
(Xasciz'IATWO SYMBOL ECC ERROR'),
(Xasciz'XATHREE SYMBOL ECC ERROR'),
(Xasciz®XAFOUR SYMBOL ECC ERROR'),
(Xasciz®XAFIVE SYMBOL ECC ERROR'),
(Xasciz"XASIX SYMBOL ECC ERROR'),
(Xasciz®IASEVEN SYMBOL ECC ERROR®),
(Xasciz®XAEIGHT SYMBOL ECC ERROR'),
(Xasciz'¥ACORRECTABLE ERROR IN ECC FIELD®),

- Pl

R, P P G P PN Py

3169
3170
I

. S SRR SN SR, S, SN, SRR, SR, SR, SRy PR, SR g

;
:
:

. A

EX_SEQ = UPLIT (XASCIZ'IA- SEQUENTIAL'),
EX_CRD = UPLIT (XASCIZ'XIA- CREDIT NOTIFICATION®),
EXTMIN = UPLIT (XASCIZ'XA- MAINTENANCE'),
XA~ DATAGRAM'),
EX_DGM = UPLIT (XASCIZ*

:
H
:
:

3164
3165
2166
g}gg

3163

SEQ 43

Paae 43
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (32}

21-Jul=-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

ZRQAM1
v01.2

SCTPAR = uplit (Xasciz'IAMOST MEMORY PARITY ERROR®)
SCTCTO = wplit (Xasciz®SACOMMAND TIMOLT OR RETRY LIMIT EXCEEDED®)
SCZSDS = uplit (Zasciz'IASERIALIZER/DESTRIALIZER OVERRUN OR UNDERRUN'),
SCTEDC = uplit (Zasciz'IAEDC ERROR'),

(¥asciz®TAINCONSISTENT INTERNAL DATA STRUCTURE'),
(Yasciz'IADRIVE COMMAND TIMEOUT (NO RESPONSE OR SEEK INCOMPLETE)®),
(Yasciz'TACONTROLLER DETECTSD TRANSMISSION OR PROTOCOL ERROR'),
(Xasciz'IAPOSITION ERROR (MIS-SEEK)*),
(Yasciz'IALOST READ/WRITE nson OURING/BETWEEN TRANSFERS'),

SCZCLK = uplit (Xasciz'TADRIVE CLOCK DROPOUT®)

aeruesu SECTORS'),
SCTRSP = upl\t (Yasciz'TALOST RECEIVER PEADY
ERROR')
SCZSUR = uplit (Xasciz'IADRIVE DETECTED

SCTPSP = l1t (Yasciz'TACONTROLLER DETECTED PULSE OR STATE PARITY ERROR'),
0 = uplit (!asclz !N!A. B8ad Block Reported’)

[]

nNaunnonwno

-'OGNOU!J\IWN -

g MSCP END MESSAGE FLAGS

uplit (Xasciz®INXA| Bad Block Unreported‘)
uplit (Xasciz'INXA ¢ Error Lo? Generated ).
uplit (Zasciz'INXA ! Serious Exception®)
-be

3
»

[ad

> 4

-by

(g}

e~
o

—-bo

—

uplit (Xasciz"INXA: Shadowing'),

(a]

uplit (Xasciz'INXA! Controller Initiated Bad Block Rp cmnt9,

=00V

|
©

uplit (XZasciz®INIA! Enable Miscellaneous Error Loaenessages ),
Messages ‘)
uplit (Xasciz'INIA. Enable Other Hosts Error Log
uplit (Xasciz'INZA: Enable This Hosts Error Lo? Messages'

UNIT FLAGS

uplit (Zasciz*XNXA! Compare Reads’)

uplit (Xasciz®INIA: Compare Writes' ),

uplit (Zasciz'INXA! Controller Initiated Bad Block Rplemnt®),
uplit
uplit
uplit
uplit
uplit
uplit

(Zasciz*INZA!
(Xasciz®INIA!
(Zasciz'INIA!
(Zasciz'INZA:
(Zasciz'INTA!
(Zasciz'INXA!

Inactive Shadow Set Unit'),
Removable Media')
Suppress Caching (hlgh speed) '),
Suppress Caching (low speed)‘?,
Write-back (non-volatile)’'),
Write Protect (hardware)'),

uplit (Zasciz*INIA! Write Protect (software or “volume)*),

uplit (Xasciz2'INXA! 576 Byte Sectors'),

P RETURN PACKET MESSAGES

wneo

[

ANON) b b wd wnd b b b wh =B

NOWwWSNSMWN—

USUR

“Ms P Controller Flags
it (Zasciz'l !A. Enable Attention Hessages').

TATUS CODE

EBH_30

ugltt (!asctz'lA - SUCCESS*)

EBH_45

UPLIT (XASCIZ'XA - NO REGION AVAILABLE'),

EBH_44

LIT (XASCIZ'XA = INVALID COHHAND(SERVER nonIDLE or no media if EX-LC-PRG cmd)*),

e Te |

(Yasciz'IAUNIT SOFTWARE WRITE PROTECTED'),
(Tasciz'JAUNIT hAGAWARE WRITE PROTECTED'),
(Xasciz',AODD TRANSFER ADDRESS'),
(Zasciz*3A0DD BYTE COUN: ')

SCINXM = uplit(Zasciz’TANON-EXISTENT st nenonv')
SCTIDS = uplit
SCTSRT = uplit
SCZSRI = uplit
SCZPOE = uplit
SCTRDY = uplit

SEQ 44

Page 44
VAX=11 Bliss=16 V3-555
18 (32)
DISKSUSER2: [DIETZ.RELEASE J2ROABO.BL1-

SC_SWP = uplit
SCTHWP = uplit
SC_ODA = uplit
SCTODB = uplit

AN ANRNARANAicracaANTATN ", -m-flfl-

TEYEIEIAIETEIETETE TR IR
TR
R TE TR L AR LR AL [
A TR
e T P P PR PR PR TR T PR
P P P P P P T T T
P

21-Jul=1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

FREPR PR PR P YN TN TN ¥

IRQAMT
v01.2

e
S
Y e Y Y T T Tl il
ol e

3276

:
:
:
:

3276
3277
3278
%Sgg

ON MEDIA) ),
EBH_47 = UPLIT (XASCI2'XA - PROGRAM NOT KNOWN (NO SUCH PROGRAM
*),
PROGRAM)
LOADING
WHILE
ERROR
(INPUT
FAILURE
LOAD
XA
(ZASCIZ'
EBH_48 = UPLIT
STAND ALONE PRG.)'),
FOR
D
NOT SPECIFIE

EBHTM49 = UPLIT (IASCIZ'IA - STANDALONE (STANDALONE MODIFIER

%g;g

3275

:
:
:

3281
3282
3283

g%gg

328¢

! DUP GET DUST STATUS FLAGS

df_0 = uplit (Zasciz'INXIA! One Server at a Time'),
df-1 = uplit (Xasciz'INXA! Contains Local Media‘),
df-2 = uplit (Xasciz'INXA! Execute Local Pr? cmd is UNSUPPORTED®),
9f.3 = wlit (Tasciz'INZA! Currently in Active State’),

! DUP EXECUTE LOCAL PRG END FLAGS
df_4 = uplit (Tasciz'INZA! Standalone Prg'),
dt_5 = uplit (Xasciz'INIA! Needs ovgrlag ),

df-6 = uplit (Zasciz'INIA! Needs Writeable/Readable Overlay’),
REC'),
df-7 = uplit (Yasciz2"INTA! Uses Std Dup Dialog: REC/SEND/

%Sg;

! DUP LOCAL PROGRAM PACKET MESSAGES

3289

T_QUE = uplit (Zasciz®INIA

:
:
:
:
:
:

:
:

:
:
;

:
H
:
:

3290
3291
3292
3293
3294
3295

e+ QUESTION'),

TZDEF = uplit (Zasciz®INIA e+ DEFAULT QUESTION'),
TCINF = uplit (Xasciz'INXA «+ INFORMATION'),
TZTER = uplit (Zasciz'INIA e+« TERMINATION®),
T_FAT = uplit (Zasci2®INIA e«e FATAL ERROR'),
TOSPL = uplit (Xasciz'INIA e+ SPECIAL'),
E_SUC = UPLIT (XASCIZ'INXA - SUCCESS'),

3300
3301
3302

E_UNT = UPLIT (XASCIZ®INXIA = ILLEGAL UNIT NUMBER®),
ECBLK = UPLIT (XASCIZ'INXIA = JLLEGAL PHYSICAL OR RELATIV' BLOCK NUMBER®),
E_DEV = UPLIT (XASCIZ'INIA - DEVICE ERROR®),
E_ZER = UPLIT (ZASCIZ'XINIA - Z2ERO LENGHT MESSAGE'®),
M_ASC = UPLIT (ZASCIZ'INIA == ASCII INFORMATION °),
M_BIN = UPLIT (XASCIZ'INXIA == NON~-ACSII INFORMATION®®,
MTER = UPLIT (XASCIZ'INIA ~~ TERMINATION MESSAGE')

3304

M_DAT = UPLIT (XASCIZ'INXA == SEND BINARY DATA®),

3296
3297

3298
3299

UPLIT (ZASCIZ'INXIA == SEND UNIT NUMBER, RELATIVE DBN'),

3305

MCUR =
M_URP = UPLIT (IASCIZ°INXIA =- SEND UNIT NUMBER, RELATIVE DBN, WRITE PATTERN®),
M_UP = UPLIT (XASCIZ'INTA == SEND UNIT NUMBER, PHYSICAL BLOCK NUMBER®),
MU = et (XASCIZ'INYA == SEND UNIT NUMBER, LOGICAL BLOCK NUMBER '),

gg}?

! CONTROLLER GENERIC ERROR CODES

;

3312

3314

uplit (Xasciz®XAENVELOPE/PACKET READ ERROR (PARITY OR TIMEOUT)*),

3316
3317
3318
3319

uplit (Zasciz'XACONTROLLER ROM AND RAM PARITY ERROR'),
uplit (Zasciz'YACONTROLLER RAM PARITY ERROR'),
uplit (Zasciz'IACONTROLLER ROM PARITY ERROR'),
uplit (Zasciz'ZARING READ ERROR (PARITY OR TIMEOUT)®)

H
:
:
:

:
:

3313

3315

3320
3321

]

M_COD = UPLIT (XASCIZ°INXIA -= SUCCESS/FAILURE CODE'S,

3303
3306
3307
gggg

e e Te le Te loleleleleoleleleolololeolololoteo TR @

3270
3271

CNTR_ERR = uwplit (

uplit (Xasciz'XACONTROLLER TIMEOUT®),

uplit (Xasciz'XIAENVELOPE/PACKET WRITE ERROR (PARITY OR TIMEOUT)*),

uplit (Zasciz'TARING WRITE ERROR (PARITY OR TIMEOUT) 'S,
uplit (Zasciz'INTERRUPT MASTER FAILURE'),

:
:

SEQ 45

f.ge 45
VAX=11 Bliss=16 v3-555
DISKSUSER2: [DIET2.RELEASEIZRGABC.ELT;10 (32)

EBH_46 = UPLIT (ZASCIZ'XIA - NO REGION SUITABLE®),

3269

51-Jul-1983 15:25:58
1=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

ZHQAM)
v01.2

:
;
;
H
;
:

3322
3323
3326
3325
3326
3327

3333

:
:
:
:
:
:

:
:
:
;
:
:
:
:

:
:

:
:
:
H
:
:
:
:

Sl-Jul983 13: 2 :58
1=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

IRQAMY
v01.2

uplit (Xasci2*TAHOST ACCESS TIMEOUT (nIGHER LEVEL PROTOCOL DEPENDENT)'),
wlit (Yasci2 'TACREDIT LIMITY EXCEEDED
uplit (Zasciz'IAQ-BUS MASTER ERROR')
uplit (Xasci2 SACONTROLLER FATAL ERROR®)
uplit (Xasci2"TAINSTRUCTION LOOP TIHEOUT )
uplit (Zasci2 'SAILLEGAL VIRTUAL CIRCUIT 10f ),
uwplit (!asciz'!AlNTERRUPY VECTOR ILLEGAL®),
uplit (Zasci2'TAMAINTENANCE READ/WRITE INVALID REGION IDENTIFIER®)
uplit (Zasci2"SAMAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER'),
uplit (Zasci2'XACONTROLLER RAM ERROR (NON=PARITY)*)
uplit (!asciz'!AINlT SEQUENCE ERROR®)
. 4GHER LEVEL PROTOCOL INCOHPAIIBILITY ERROR'),
uplit (Zasci2*3A'
(Yasciz' APURGE/POLL HARDWARE FAJLURE')

3328
3329
3330
3331
3332

3336
3337
3338
3339
3340
3341
3342
3343

uplit

(Xasci2*TAMAPPING REGISTER READ FAILURE (PARITY OR TIMEOUT)*)) : vector [23].

!
3 RD/RX CONTROLLER DEPENDENT ERRORS CODES

(
RDRX_ERR = uplit
uplit (%asciz*XAT11 CPU FAILURE®)
uplit (Xasci2'YANON=PARITY RAM ERROR ),
T11 ADDRESS REGISTER®)
uplit (Yasci2"TIASTATE MACHINE FAJLURE
ADDRESS REGISTER'),
Q-8BUS
uplit (Zasci2'XASTATE MACHINE FAJLURE

uplit (Zasciz"XASTATE MACHINE FAILURE

3344

3347 !

3348
3349
3350
3351
3352
3353
3354
3355

Paae 46
VAX=-11 Bliss=16 v3-555
(32)
10
0.8L1;
J2R0AB
RELEASE
2:(DIETZ.
DISKSUSER

(Zasci2*XASTATE MACHINE FAILURE
1t (Zasciz"YASTATE MACHINE FAILURE

! MISCELLANEOUS
!
EX_WRD = uplit (!asc1z IA 206°)

EX"OP= uplit (Zasciz’ lect 204 ¢ ).
SPACE4

= uplit (Xasciz2'1S4"),

= uplit (Xasciz'IN®),
CRLF
= upllt (Xasci2'XA - '),
DASH
ASTERISK = uplit (%asciz2'TAr *);

CRC REGISTER®),

SERIALIZER/DESERIAL!ZER REGISTER'),
WRONG HARDWARE VERSION')) : vector (7],

370
3N

372
373
375

'
!
'
!

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE
IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,
AND IS USED AS A "TEMPLATE'® FOR BUILDING THE P-TABLES.

.
BGNHW (DFPTBL)

lobal

HWPT_IP_ADDR : word initral (INIT_I® ADDR),

! IP ADDRESS

HWPT-VETTOR : word initial (INIT INTR_VECTS,i VECTOR ADDRESS

HWPT_BR_LEVEL : word initial C(INIT BRTLEVEL),'!BR LEVEL
' DISK NUMBER, TYPE, PROTECTON BIT
HWPT_DISK : word initial (20°10003%°)
HWPT_S_TRK : word initial (0),
HWPTECTRK : word initial (RD_MAX_LBN);

ENDHW;

! STARTING TRACK
! ENDING TRACK

e e e el e el e Telelalelelolelelmlelolololololeleclolololole
e To folele ]

NO
= O 00

oo
Og
Voo~

oo
VIS

(v [V IV (V]

EEE NAWA

2 %0 83800 0: 8080 000,

Tsbttl °DEFAULT HARDWARE P-TABLE'

21=Jul=1983 15:25:58
21-Jul=1983 15:19:20

SEQ 47

Pa8e 47
VAX=11 Bliss=16 Vv3-555
10 (33)
ABO.BLY;
DISKSUSER2: [DIETZ.RELEASEIZPC

RD/RX EXERCISER
DEFAULT WARDWARE P-TABLE

1RQAMT
v01.2

J
IRQAMY
v01.2

RD/RX EXERCISER

SOF TWARE P-TABLE

21=Jul=19 83 15:25: 58
21=Jul=19 83 15:19: 20

VAX=11 Bliss=16 V3-555
DISKSUSERZ: [DIETZ.RELEASE

‘e

' THE SOF TWARE TABLE CONTAINS VARIOUS .ATA USED BY THE
' PROGRAM AS OPERATIONAL PARAMETERS. THESE PARAMETERS ARE
¢ SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR
! AT RUN TIME.
le

BGNSW (SFPTBL);
global

SWP_ERROR : word initial (32),
SWP_XFER : word initial (20),
SWP_FLAGS : word initial (X%0'202'),
SWP_DPAT : word initial (0),
SWP_UCNT : word initial (MAX_UDP_CNT),
SWP_RAT : word initial (99),
dupround : word initial (18),

SWP_UDPAT : vector [MAX_UDP_CNT, wordl;
ENDSW;

smimIrmIimimImsm

YR TR IRIR AR TR

YR PR

TN TR LRXN X

Asbttl 'SOF TWARE P-TABLE'

HARD ERROR LIMIT FOR DROPPING UNIT
TRANSFER LIMIT FOR DROPPING UNIT
FLAGS (SEE DOCUMENTATION)
DATA PATTERN NUMBER
USER DATA PATTERN COUNT
RDS1 OPERATION RATIO

NUMBER OF DBN'S WRITTEN AT ONE TIME

USER DATA PATTERN

PSEO ‘28

JIROA80.8L1:18e(34)
]

3398
3399
3400
3401
3402
3403

2sbttl ‘PROTECTION TABLE'

3405
3406
3407
3408
3409
3410
3411
3412
3413
3414

BGNPROT (0, =1, 6);

‘e

! THIS TABLE 1S USED BY THE RUNTIME SERVICES
' 70 PROTECT THE LOAD MEDIA.

11T ARG =

OFFSET INTO P-TABLE FOR CSR ADDRESS

'3RD ARG =

OFFSET INTO P-TABLE FOR DRIVE NUMBER

OFFSET INTO P=-TABLE FOR MASSBUS AUDRESS

12ND ARG =

ENDPROT;
end

eludom

.TITLE
CIDENT
LENABL

132
101

000
000
000
000
102

060
0000006

0r777?
0000006

121

.PSECT
E
: : LASCII
LSNAM
ASCIT

LSREV::

/8/
70/

LSUNIT::.WORD

LSTIML::.WORD
LSHPCP::.WORD

.BYTE
.BYTE
.WORD

LSMREV::

LS$EF::

/A/

LASCII
ASCIT

003
003
000000

0000006
000000

$CODES,
/ZRQ/
0
0
0
0

000000
000001
000000
000124°
000000
000000
000000

024756°
024776

AMA

.BYTE
.BYTE
.BYTE
.BYTE

. WORD
LSSPCP::
. WORD
LSHPTP::
. WORD
LS$SPTP::
LSLADP::.WORD
LSSTA:: WORD
.WORD
L$CO::
. WORD
LSOTYP::
LSAPT:: .WORD
L$DTP:: .WORD
LSPRIO::.WORD
LSENV]I::.WORD
LSEXP1::.WORD

0000006

000051
000052

122

ZRQAM1 RD/RX EXERCISER
/v01.2/

TSPTHV

77777
LSHARD

LSSOFT
LSHW
L3SW
LSLAST
O
O
1
O
LSDISPATC(H
O
O
O
3
3
O

)

PROTECTION TABLE

SEQ 49

49
Pa
VAX=11 Bliss=16 V3-555
(35)
10
Y;
ABO.BL
DISKSUSER2: (DIETZ.RELEASEJZRO

I NN NN N N N S OV Y Y YOOI I O O OO O O0O000000QRO0O0OORORRPPPPRILR

N X
P YR T
[T YEIERIEIEITETE TR

21=Jul~-198 3 15:25:58
21-Jul=-1983 15:19:20

RD/RX EXERCISER

IRQAM
v01.2

b
b
e
d
b
—

-..—n-no—.-n—.-a-nc-n—b-‘-n-ndod—n-ng

000250

NNNNO
—
QO=LfO=—=O=O O=NONNOO=O
NN NN — =
VIVVORO
DO WS —=ON OB NINOWVISNO

btRPt

. WORD
LSEXPS::
LS$AUT:: .WORD
LSOUT:: .WORD
LSLUN:: .WORD

0
LSAU
LSOV
0
LSDESC

=73743

LSERRTBL
LSINIT
LSCLEAN
LSAUTO
LSPROY
=2OOOO

LSDESP: :.WORD
.WORD
LSLO:AD:
LSETP:: .WORD
LSICP:: .WORD
LSCCP:: .WORD
LSACP:: .WORD
LSPRT:: .WORD
. WORD
LSTEST::
.WORD
L8DLY::
: .WORD
LSH:IME
DSPCNT: :.WORD
:
LSDISPATCH:
.WORD
ERRTYYP:: .BLKW
ERRNBR:: .BLKW
.BLKW
ERRM:SG:
.BLKW
ERRBLK::

-t

0000006

0
LSOVTYP

LSREPP:
: .WORD

.WORD
LSEX:PL:

000100

P.AAA:

_ASCII

/1P /
/ADD/
/RES/

103
122

P.AAB:

122
105
114

040
126
000

P.AAC:

.ASCII
.ASCI]
LASCII
.ASCII

/VEC/
/TOR/
<00><00>
/B8R /
/LEV/

104
130
122
105
125
105

05?7
040
1M1
040
115
122

P.AAD:

040
123

P.AAE:

127
103
123
122

1m
110
124
040

120
104
105

000

105
117

000

000
123

040
040
065

040
104
123

000

101
122
061

LASCI!I
LASCI1I
LASCILI

LASCII
.ASCI1I
.ASC11]

75/<00><00>

/EL/<00>

.ASCII

LASCII
LASCII

LASCI]
LASCI1I
LASCI]
.ASCI11
L.ASCII
LASCI1]

.ASCI11]
.ASCI1
LASCII
LASCI1
LASCI]
LASC11]
LASCII

/BER/
<00><00>
/1S /
/DIS/
/K A/
/N R/

/D51/

/ W1/
/NCH/
/EST/
/ER /

JZROABO.BLl:la (35)

SEQ S0

Page

NN
[=1.
]

b
o)

L
1V]

X
=

VAX=11 Bliss=16 V3=-555
DISKSUSERZ:[(DIETZ.RELEASE

CYOIYOIOI OO OO OO OOOOOOOOOOODOOOO COO0OQOOOPOPRRRPVRRRLYLAAILIR

.WORD
LS$SPC:: .WORD
:
: . WORD
LSDEVP

000000
000000

Db
b b=y

000054
000056
000060
000062
000064
000066
000070

21=Jul2i=Jul-

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

¢
0O
[+~
e )

050
054
115
MM
040
040

116
040
120
105
101
122

000300
000303
000306
000310
000313
000316
000321
000324
000326
000331
000334
000337
000342
000345
000350
000353
000356
000361
000364
000367

106
120
051
123
122
116
114
000
105
m
040
116
115
m
115
040
130
072
071
040

114
120
000
126
124
107
102
000
116
116
114
040
101
115
040
040
065
040
071
122

000372

000375
000400
000403
000406
000411
000414
000617
000422
000425
000430
000433
000436
000441
000444
000447
000452
000455
000460
000463
000466
000471
000474
000477
000502
000505

065

040
065
051
127
124
117
103
124
105
104
101
122
040
040
1
104
113
052
127
116
107
040
123
115
040

060

061

062
071
000
122
105
116
125
117
122
101
040
105
117
124
123
11
000
052
101
m
040
103
124
105
104

117
m
114
123
116
130

LASCLI
LASCI1
.ASCI1
LASCII
LASCI1
LASCI1

/(NO/
/, I/
/mPL/
/1ES/
/ AN/
/ RX/

117
131

LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCI]
+ASCI1
LASCII
.ASCII
LASCI1
LASCII
LASCII
LASCI1
LASCIT
LASCI1
LASCII
LASCII
LASCII
LASCIL
+ASCI1

/FLO/
/PPY/
/)/<00>
/STA/
/RT1/
/NG /
/LBN/
<00><00>
/END/
/ING/
/ LB/
/N (/
/MAX/
/1Mu/
/M <~/
7/ R/
/X50/
/: 7/
/99,/
/ RD/

LASCII
LASCII
LASCII
_ASCIl
LASCII
LASCII
LASCI1
LASCII
.ASCIl
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
JASCIT
LASCII
LASCII
LASCII
LASCII

/7 21/
/599/
/)/<00><00>
/WRl/
/TE /
/ON /
/CUS/
/TOM/
/ER /
/DAT/
/A A/
/REA/
/ ON/
/7 TH/
/1S /
/DIS/
/K/<00><00>
/=« /
/WAR/
/NIN/
/6 =/
/7 CU/
/STO/
/MER/
/7 DA/

LASCI1

040

101
1M
040
116

P.AAF:

104
107
102
050
130
125
055
122
060

P.AAG:

067
054
104
072
061
071
000
M
040
040
123
115
040
124
101
101
116
110
040
123
000
040
122
116
055
125
117
122
101

JASCII

P.AAH:

P.AAl:

/50 /

/51:/

P
-

OO0 000000000000OOORRRORORPRRVRRAVRAVYRLIILRILR

000253
000256
000261
000264
000267
000272

000275

21=Jul-1983 15:25:58
21=Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

SEQ 51

Paac 51
VAX=11 Bliss~16 v3-553
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (35)

000706

000711
000714
000717
000722
000725
000730
000733
000736
000741

126
101
101
101
102
117
122
M
105
040
056
17
1M1
000
101
117
130
103
105
116
111
116
124
0460
105
050
117
103
124
105
101
101
127
124
117
104
107
123
103
122
000
110
104

122

122
11
124
124
116
105
114
111
111

1M
122
040
13i
105
126
127
1264
116
056
040
116
122

040
105
115
040
040
105
122
124
041
056
103
106
115

114
040
105
m
040
040
101
117
1M
101
101
055
116
125
117
122
122
051
122
105
116
111
116
124
040
105
000
101
040

123
105
122
123
117
104
107
123
103
122
040
116
055
123
115
040
105
000
11
040
040
101
117
111
101
101

P.AAJ:

122
105

P.AAL:

122

040
115
000
122
123
122
1M1
124
116

P.AAK:

114
11

11§
040
040

/TA /
/ARE/
/A W/
/AY /
/BE /
/OVE/
/RWR/
/1T1H/
/EN!/
/7 ../
/. ¢/
/ONF/
/IRM/
<00>
/ALS/
/0 E/
/XER/
/CIS/
/E O/
/N D/
/1AG/
/NOS/
/T1C/
/ AR/
/EA /
/(=-N/
/ON-/
/CUS/
/TOM/
V/ER /
/ARE/
/A)/<00>
/WRI/
/TE /
/ON /
/DIA/
/GNO/
/STl/
/C A/
/REA/
<00><00>
/HAR/
/D E/

LASCII
LASCI1
JASCII
_ASCI1
LASCI1
.ASCI1
LASCII
LASCII
LASCI1

/R L/
/7IM1/

.ASCI1

11?7
000
101
106
040

LASCI1
.ASCI1
LASCII
LASCI1
.ASC]]1
LASCIl
LASCI1
LASCII
LASCI]
JASCII
LASCII
.ASCI1]
.ASCI11
LASCII
.ASCIl
.ASCI1
.ASCI]
LASCII
LASCI1
LASCI1
ASCII
LASCI1
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCI1
LASCII
.ASCII
LASCII
.ASCII
LASCI1
.ASCII
LASCII
LASCII
.ASCI1
LASCII
.ASCIl
LASCI1

P.AAM:

/RRO/

/71/<00><00>
/TRA/
/NSF/
/ER /
/LIM/
/1T /
/IN/

SEQ 52

Paac 52
VAX-11 Bliss=16 V3-555
(35)
;1D
E]ZRQABO.BL1
DIET2.RELEAS
DISKSUSER2:[

QOO ROIIRIIIII2

000510
000513
000516
000521
000524
000527
000532
000535
000540
000543
000546
000551
000554
000557
000560
00563
000566
000571
000574
000577
000602
000605
000610
000613
000616
000621
000624
000627
000632
000635
000640
000643
000646
000651
000654
000657
000662
000665
000670
000673
000676
000700
000703

21=Jul=-1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMY
v01.2

(elelelolelololalelelele)

116
115
105
040
104
000
101
103
120
105
120
106
115
040
040
105
117
122
114
ooU
1M1
055
115
122
040
122
122
104
124
110
103
124
114
122

P.AAN:

105
040
114
122
105
101
110

P.And:

P.AAO:

P.AAP:

g o ¥V ]

Yer N

e Il

/MEG/
/ABY/
/TES/
7/ (0/
/7 FO/
/R 'Y/
/Qul/
/(K /
/PAS/
/§8")/
<00><00>
/RAN/
/DOM/
/ SE/
/EK /
/MOD/
/E/<00><00>
/REA/
/D=C/
/0MP/
/ARE/
/S P/
/ERF/
/ORM/
/ED /
/AT /
/THE/
/ €O/
/NTR/
/0LL/
/ER/<00>
/WRl1/
/TE=/
/COM/
/PAR/
/ES /
/PER/
/FOR/
/MED/
/7 AT/
/ TH/
/E C/
/ONT/
/ROL/
/LER/
<00><00>
/CHE/
/(K /
/ALL/
/ WR/
/ITE/
/S A/
/T W/

LASCII
.ASCI11
ASCI1
LASCII
LASCI1
LASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII
ASCII
LASCI1
JASCII
LASCI1
LASCII
LASCII
.ASCII
JASCII
LASCII
LASCII
LASCILI
.ASCI1
.ASCI11
LASCI1
LASCII
JASCII
LASCI1
+ASCII
LASCI1
.ASCII
.ASCII
JASCII
LASCII
LASCII
JASCII
LASCI1
JASCII
JASCII
LASCIL
LASCII
LASCII
LASCII
+ASCI1
LASCI1
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
JASCID

107
131
123
060
117
042
1M
040
123
051

105
102
105
050
106
040
125
113
101
042
000
101
117
123
113
117
000
105
055
115
122
040
122
122
104
124
110
103
124
114
12¢
122
105
117
101
123
105
117
105
101
124
040
116
117
105
000
110
113
114
127
124
040
040

115
101
124
040
040
122
121
103
120
123
000
122
104
040
105
115
105
122
104
117
101
123
105
nz
105
101
124
040
116
117
105
127
124
103
120
105
120
106
115
040
040
105
17
122
114
000
103
103
101
040
m
123
124

SEQ 53

Page 53
VAX=11 Bliss=16 V3=555
(35)
2:
OAB0.BL1;10
SER
[DIETZ .RELEASEJZR
DISKSU

000744
000747
000752
000755
000760
000763
000766
000771
000774
000777
001002
001004
001007
001012
001015
001020
001023
001026
001031
1034
001037
001042
001045
001050
001053
001056
001061
001064
001067
001072
001075
001100
001103
001106
001111
001114
001117
001122
001125
001130
001133
001136
001141
001144
001147
001152
001154
001157
001162
001165
001170
001173
001176

21=Jul=-1983 15:25:58
21-Jul=-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

040
114
124
116

123
105
11
051

125
105
117
127
104
111
104
101
101
105

115
122
106
117
123
116
101
040
124
122

101
115

130
125

000

101

000

101
105

124
122

.
s
P.AAT:

LASCII
.ASCI1
LASCII
LASCII

/OR /
/SEQ/
/UEN/
/TIA/

/L S/
/ELE/
/CT1/
/0N)/

LASCII

<00><00>

LASCII
LASCI1

/N (/
/716 /

.ASCII
.ASCI1
.ASCII
JASCII
JASCII
LASCII
LASCI1
ASCI1
LASCI1
LASCI1

LASCII
LASCII

LASCLI
P.AAU:

/TER/

LASCII
.ASCI1
LASCI]

/NUM/
/BER/
/ OF/
/7 WO/
/RDS/
/7 IN/
/ DA/
[/TA /
/PAT/
/TER/

/MAX/
/7IMU/

/M) /<00>
<00>
/PAT/
/TER/

R e g gy g gy g gy S FR

/N (/
/0 F/

LASCII

050
040

051

LASCII
LASCII
LASCIll
LASCil
LASCII

LASCII

. . S S, S S S, P, P, S, SR g

040
040
122
105
105

122
050
106
040
121
116

105

P.AAS:

/0S1/
7 8Y/
/ RE/
/AD]1/
/NG/<00>
/USE/
/R-D/
/EF1/
/NED/
/ DA/
/TA /
/PAT/
/TER/
/N/<00>
/SEL/
/ECT/
/ PR/
/E-D/
/EFl/
/NED/
/ DA/
/TA /
/PAT/

. i

114
124
122
104
1M1
104
101
040
124

P.AAR:

LASCII
LASCII
.ASCI]
.ASCI1
LASCII
ASCI]
LASCII
LASCII
LASCI]
.ASCI]
LASCII
ASCI1
.ASCI1
LASCII
ASCII
.ASCII
.ASCI1
ASCI1
.ASCI1
LASCI1
.ASCII
ASCI1
ASCI1

124
1N
105
m
000
105
104
1M
104
101
040
1264
122

OONOONWWNES
B VIWIWYN OO H OO

VVNIOWVIWO N OSSO WVNWVON—-0OO~N

20NN =2OH N =
HBO=O=200=2NNN)
- =N =2OO0LON=NNNIS

b wd O b bk O b
NN
=2 O =
S OOWVI—=WN—On

040
066

oo—h-oo-n-n—.-o—n-o-‘-.ao-a—._a-no-n_._ac_a_._n_a_a_ao_a_.-n_a-n-noo_a

123
102
122
104
107
123
055
106
105
104
101
101
105
000
105
103
120
055
106
105
104
101
101

e e e e e

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

SEQ 54

Pa8e 54
VAX=11 Bliss=16 v3-555
DISKSUSER2:CDIETZ.RELEASEJZROABO.BL1;10 (35)

21-Jul=1983 15:25:58
21-Jul=1983 15:19:20

-t

b —b

b e

- ) ONNINOOOO
=
&»He b £ SN N = NN = O

RD/RX EXERCISER
PROTECTION TABLE
040

125

114
122

105
040

000

105
101
105
120
116
116

101
123
103
040
102
123
106
122
122
124
107

105
105
101
040
040

122
116
107
117
122

124
m
11
114
101

065

061

117

106

117
122
m
123
125
124

wmd wed () b i b
) b b

3383838888
o
o
o SRANARRR

VIO NS = OO
W

b wd b wmd b b

S OON) == a2 HONOOONONININ
=S NN
= NO SN =N S S

101
117
122
m

123

116
123
117
105
105
103
104

124
101
117
050
054
115
13
040
121
116
101

LASCII

126

114

LASCII
P.AAV:

P.AAW:

116
040
120

105
123
125
124
114

LASCII
LASCII
LASCID
JASCII
.ASCII
LASCI1
LASCIL
.ASCI1
+ASCI1
LASCII
LASCII
LASCI1
.ASCIl
LASCII
LASCI1
JASCI1
LASCII

/STA/
/T1S/
/TIC/
/AL /
/TAB/

LASCI1
LASCI1

114
120
101
117

M
040
040
040
114
124
040
040
116
115

/E/<00>

LASCII

117

P.AAX:

/N V/

/ALV/

LASCII

ASCII
LASCII

LASCII
LASCII
LASCI1
LASCII
LASCII

120
101
117
040
124

000

/CLE/
/AR /

/LES/
7/ AF/
/TER/
/ PR/
/INT/
/ING/
<00>
/PER/
/CEN/
/TAG/
/E O/
/F R/

/D51/

/ 0P/
/ERA/
/T10/
/NS /
/0UT/

/ OF/
/ 10/

LASCI1
LASCII
JASCII
LASCII

/TAL/
/ OP/
/ERA/
/T10/

.ASCIl
LASCII
LASCI1
LASCII
CASCII
LASCI1
LASCII
LASCIL
+ASCII1
LASCII1

/UNI1/
/1S /
/70 /
/BE /
/SEL/
/ECT/
/ED /

LASCI1

LASCI1
.ASCI1
LASCI1
LASCI1
.ASCII
LASCII
LASCIl
LASCII

/NS/<00>

/AT /
/RAN/
/DOM/
/7 (N/
/0, /
/1MP/
/LIE/
/S S/
/EQU/
/ENT/
/IAL/

SEQ 55

Page 55
VAX-11 Bliss=16 Vv3=555
DISKSUSER2: [DIETZ.RELEASE 120AB0.8L1;10 (35)

PR
e
e e lele e leleleleleleolvleoleolwleoleolololololole BN 4 V]

001670
001672
001675
001700
001703
001706
001711

051
116
102
040
040
116
122

000
125
105
117
104
163
105

001755
001760
001763
001766
001771
0017764
001777
002002
002005
002010
002013
002016
002021
0020264
002027
002032
002035
2060
002043
002046
002050
002052
002055
002060
002063
002066
002071

051
126
040
115
16
107
125
12&
116
1.7
131
12
13
117
116
11
10>
104
(11
123
000
045
101
040
117
125
126

000
110
122
101
111
040
105
111
123
116
040
120
040
040
120
126
124
040
123
000
000
116
052
104
120
116
040

002074

106
126
116
124
105
145
145
163
104
163
156

106

002077
002100
002108
002106
002111

000
045
1001
060
117

002117

120

002114

122

040
00
105
111
040
146
143
040
065
040
154

115
122
106
102
040
101
101
117
040
115
050
146
164
122
061
157
171
000
105
105
111
116
121
123
117
040
114
101
114
124
125
122
105
105
104
113

045
052
122
040
1N

062

045
000

116
052
120
103

045
052
122
137

113

124

105

P.AAY:

P.AAZ:

P.ABA:
P.ABB:

ASCIT
.ASCII
"ASCII
ASCIT
"ASCI1
"ASCII
"ASCI1

"ASCIT
"ASCII
ASCIT
"ASCIT
TASCIT
ASCIT
TASCIT
ASCII
-ASCIT
"ASCI1
SASCIT
TASCII
.ASCII
"ASCII
"ASCIT
SASCIT
ASCIT
"ASCIT
ASCIT
"ASCIT
ASCII
CASCIT
"ASCI1
SASCIT
"ASCIT
"ASCII
-ASCII
ASCIT
CASCII
"ASCIT

TASCIT
.ASCII
.ASCII

TASCI]
ASCII
ASCIT
CASCII

"ASCIT
"ASCII

P.ABC:

"ASCI]
.ASCII
ASCIT
"ASCII
CASCIT

"ASCII

CASCIT

/)/<00>
/NUM/
/BER/
/ OF/
/ 0B/
/Ns /
/REA/
/D A/
/T 0/
/NE /
/TIM/
/€ (/
/ett/
/Zect/
/s R/
/DS1/
/s of
/nly/

/7)/<00><00>
/THE/
/ RE/
/MAJ/
/NIN/
/6 0/
/UES//TIO/«
/NS /
/ONL/
/Y A/
/PPL/
/Y 1/
/70 U/
/NPR/
/0TE/
/CTE/
/D 0/
/ISK/
/5/<00>
<00><00>
/IN%/
/Axs/
/ DR/
/0P /
/UNI/
/T %/

/D2/<00>
<00>
/INX/
/Axs/
/ PR/
70C_/

/RET/
/PKT/

SEQ 56

Page 36
VAX-11 Bliss=16 V3-555
DISKSUSER2:(DIETZ.RELEASE]ZRAABO.BL1;10 (35)

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2

001714
001717
001722
001725
001730
001733
001736
001741
001744
001747
001752

21-Jul=1983 15:25:58
21-Jul-1983 15:19:20

072
117
040
040

040
116
11
075

103
116
104
040

LASCIL
LASCI]
LASCIL
LASCII

/: C/
/ONN/
/7 1D/
=/

002147
002152
002155
002156
002161
002164
002167
002172

105
105
000
045
101
040

1
104

126
000

LASCII
LASCII
LASCI]
.ASCII
JASCIL
LASCIL

/EIV/
/ED/<00>
<00>
/XINX/
/Are/
/ FA/

.ASCI1

/ROR/

002136
002141
002144

045
045
122

104
101
105

124
137

116
052
106
101
105

045
052
101
114
122

002200
002203
002206
002211
002214
002217
002222

072
105
113
116
040
101
101

040
124
124
117
101
m
102

122
120
040
124
126
114
114

002233
002236
002241

101
040
105

052
106
124

052
123
137

002175

002225
002230

002244

002247
002252
002255
002260
002263
002266
002271
002274
002277
002302
002305

002310
002313
002314
002317
002322
002325

002330
002333
002336

002341
002344
002347
002352

122

105
045

125

122
103
047
106
104
1
040
063
040
040
1264

104
000
045
101
040
104
117
040
040
045
045
122
105

117

000
116

120

P.ABD:

LASCI1
LASCI1

122

000
045

P.ABE:

040
116
040
116
104
‘13
104
101
110
123
045

116
052
102
040
116
m
075
104
101
105
m

045
052
101
103
116
104
040
065
040
103
126

P.ABF:

/TAL/
/_ER/

/: R/
/ETP/
/KT /
/NOT/
/7 AV/
/AIL/
/ABL/

LASCIL
LASCIL1
LASCII

/Aer/
/ FS/
/ET_/

LASCII
.ASCII

ASCII
LASCI1
LASCIL
LASCI1
LASCII
.ASCI1
LASCIL
LASCII
LASCIL
LASCII
LASCIT

000

/%D5/
/XA /
/REC/

LASCII
LASCII
LASCII1
LASCI1
LASCIL
LASCILI
LASCII

LASCII

101

072
101
126
m
040
123
045
045
m
103
040

061

LASCI1
LASCII
LASCI1

065
040
103

LASCIl
LASCII
_ASCII
JASCIL
LASCII
LASCII

+ASCI1
LASCIL
ASCII

LASCI1
CLASCII
LASCI1
LASCIL

/E/<00><00>
/INY/

/UPR/

/R: /
/CAN/
/°'T /
/FIN/
/D D/
/1SK/
/7 %D/
/3%A/
/ IN/
/7 (CS/
/T %/

/D1/<00>
<00>
/INX/
/Asn/
/ BA/
/D C/
/ONN/
/7 1D/
/ =

/%D5/
/XA /
/REC/
/ELIV/

<r~

el e lelelelelelalo ol lolelelololelel=lel=l=]c e lelololololoTo o o ol w

002122
002125
002130
002133

SEQ 57

Page 57
VAX=11 Bliss=16 Vv3-555
DISKSUSER2: (DIET2.RELEASEIZRQABO.BL1;10 (35)

21-Jul=1983 15:25:58
21-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

=N NOWO
HO ONO
W=
o

b () b

N =
® RowmvmR RROROR NO

- b
b
e e e dd i e e
00
W
=2 NSNS
NWO =W O NVO

104

122
040
066

045
052
105
101
040
120
045
045
122
105

049
040
103

1M
115
120

120
113

000

103

110

116
052

103

LASCII
ASCIT
LASCII
LASCI1
ASCII

P.ABH:

122

000

045
052

ASCI]
.ASCI]
LASCIL
LASCI1
LASCII
ASCI]
LASCII
.ASCI1
LASCII
ASCII
LASCII

LASCII

1M
105

045
052
122
122
116
105
103

122

P.ABG:

105

116
052
105
117
"1
123
137

114

LASCI1
ASCID
LASCII

1?7
045
000

116
052
115
123
105
13
040
062
040
103

126

LASCI]

040

LASCII

.ASCII
ASCI1
LASCI]
ASCII
ASCIL
LASCI]
ASCII

ASCII

P.ABI:

1264

116
000

111

122
116
116
137

/INX/
/Arn/

7/ ER/
/ROR/
7 IN/
/ SE/
/1.C/

/TIR/

7 CW/

/1 =/
7 %D/
/3XA/

ASCII
LASCI]

117
m
125
124

/1/<00>

LASCIL
ASCII
LASCIT

105
116

P.ABJ:

/ECE/
/IVE/
/D 1/
/N W/
/Scp/
/7 PA/
/CKE/

7 Cc1/

123
117

000
045
052
122

V/E ¥/
/D2%/
/A R/

LASCII

.ASCII
LASCII

ASCI!
ASCID
LASCII

123
116
052
105

<00>
/INY/
/Aee/
7 ME/
/SSA/
/GE /
/TYP/

/AR/<00>

040
115
125

075
104
101

/7FRO/
/m X/
706/7<00>

LASCI!

122
m
117

040
045
045

/ED /

/3INX/
/Ase/
/LR /
/TIM/
/EOU/

/7 SE/
/CON/

LASCII
.ASCII
ASCI1
LASCI]

/DS/<00>
/XINY/
/Are/
/ ER/

LASCII
LASCIL

/INY/
/7T/7<00>

ASCII
ASCIL
LASCII
LASCIL

/ROR/
7 IN/
/7 UN/
/1T /

RD/RX EXERCISER
PROTECTION TABLE

SEQ 58

Pa8e S8
VAX-11 Bliss=16 V3~555
DISKSUSER2: [DIETZ.RELEASEIZR0OAB0.8L1;10 (35)

OO0 00000000000COOO00ORORORERORRPPRRVVIRIVRY

21=Jul=1983 15:25:58
21-Jul=1983 15:19:20

VAN NN =

[ Y0 P
HOO0O0 n&ENNNO

O O NINWNO
= N

045
052
103

072
105
113

040
124
124

105

110

040

045
052

045
000

117
000

116
052
103
115
104
105
043
104
101
116
040
116
102
110
124

b
) b b bl
—b d b i v

123

000

106
11§
040

117
101

063
056
105

P.ABM:

124
131
117

045
052

125
116
116
122
122
117

P.ABL:

117

116
052

116
117
040
122
040
107

045
045
040
103

LASCI1
ASCIl
LASCI1

/S: /
/REV/
/PK1/

LASCIl

/S ®/

LASCI1
LASCII
.ASCI]

114
107
040
116
1M
072

045
052
117
101
040
106
040
065
056

/INY/
/Aee/
7 AC/

LASCI1

102

116
052

.ASCI]
LASCIL
ASCI1
.ASCI]

101

040
104
104

mm
105
114
125
124
116

NNOONINIES = DN
=
N =
B NO S NNV

123

104
116
117

000

P.ABK:

P.ABN:

/CES/

/7 WA/

/AD /
/END/
/cC0D/

LASCI1

/E/<00>

LASCI1
LASCIl
ASCI1
.ASCI]
LASCI1
LASCIl

/7 IL/
/LEG/
/AL /
/FUN/
/CT1/
/ON:/

.ASCII
LASCII

LASCII
LASCII

_ASCII
LASCI]
LASCII
LASCII
LASCI]
LASCII
ASCII
.ASC11l
LASCI1
LASCI1
LASCII
LASCI]
ASCI1
ASCI1
LASCI1
LASCII
.ASCI]
LASCII
LASCII
LASCJ1
LASCI1
LASCI1
LASCII
LASCII
LASCIL
LASCI1
LASCIT

LASCI1
LASCII

LASCII

/INX/
/Arv/

/7 %0/
/76/<00><00>
/INX/
/Axn/
/7 co/
/mn/
/ND /
/REF/
/7 4/
/%D5/
/%A./
7/ NO/
/T S/
/ENT/
/7 8Y/
7 WO/
/S81/<00>
<00>
/INX/
/Aer/
/7 UN/
/KNO/
/WN /
/ERR/
/OR /
/L0G/
7 FO/
/RMA/
/T ¥/

/D3X%/
/A, /
/REC/

PROTECTION TABLE

VAX=11 Bliss=16 v3-555

DlSKSUSERZ:[DIETI.RELEASEJZROABO.BL1;18 (35)

21=Jul=1983 15:19:20

SEQ S9

Page 59

00000000000OROOROROLRRLLLRLLLRLRALILSR

21=Jul=1983 15:25:58

RD/RX EXERCISER
116
052
101

OO0

003044

00305
003060
003063
003066
003071
003074
003077
003102
003105
003110
003112
003115
003120
003123

003126

003131
003134
003137
003142
003145
003150
003153
003156
003160
003163
003166
003171
003174
003177
003202
003205

003210
003212
003215
003220
003223
003226
003231
003234
003237
003242
003245
003250
003253
003256

003261
003264
003267
003272
003275

108

105
045

104
116

101
040
122
055
107
101
040
105
106
114
065
101
040
120

052
105
117
114
0460
126
101
101
125
000
116
052
104
137

040
124
124
11?7
101
M
102
000
045
101
"M
104
101
122
120
040

122
120
040
124
126
114
114
000
116
125
124
062
040
117
105
055

123

000
045
123
040
11§
116
116
045
117
11
122
M
040
122

045
045
116
040
122

120

000
101
105
103
115
104
000
101
116
107
101
117
105
117

116
101
m
105
117

LASCII

126

000
045

052
122
122
117
123
108
122
040
114

045
052
125
122

P.ABO:

P.ABP:

072

105
113
116
040
101
101
108

045
116
045
045
104
120
104
040

P.ABQ:

125
122
117
101
045

P.ABS:

103
106
125
124
116
122
122

P.ABT:

000

000
111
124
122
122

/ED/<00>
/INY/

LASCII

/SP:/

LASCI1I
ASCI1
.ASCI]1
LASCI1
ASCI1l
.ASCI1
.ASCI]
.ASCI]1
LASCI]
LASCI]
.ASCIl
LASCII
.ASCI1
.ASCI]1

.ASCI1
.ASCI]
LASCI1
LASCII
LASCII
LASCII
.ASCI]
LASCII
.ASCII
LASCII
LASCI1
LASCI1
.ASCI1
.ASCI1
.ASCII
MASCII

LASCII
.ASCI]
.ASCI]l
ASCI1
LASCI1
.ASCI1
LASCII
ASCII
.ASCII
LASCII
LASCI]
LASCII
LASCI1

.ASCII

P.ABU:

/ELIV/

LASC11
.ASCII

LASCII
.ASCIl
LASCII
LASCI1
.ASCI1

/Aee/
/ ER/
/ROR/
/=L0O/
/6 S/
/AVE/
/ AR/
/EA /
/FUL/
/7L/<00>
/INX/
/Aen/
7/ OU/
/P R/

/ RE/
/TPK/
/T N/
/07 /
/AVA/
/1WA/
/BLE/
<00><00>
/INX/
/AUN/
/1T%/
/D2%/
/A D/
/ROP/
/PED/
7/ =/

<00><00>
/3AW/
/SER/
/ Co/
/mmA/
/NDX/
/N/<00><00>
/XAC/
/ONF/
716U/
/RAT/
/I1ON/
/ ER/
/ROR/

/7IN/<00>
/ZAl/
/NIT/
/ ER/
/ROR/

SEQ 60

Paae 60
VAX=11 Bliss=16 v3-555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1; 10 (35)

o)
-]

RD/RX EXERCISER
PROTECTION TABLE

IRQAM
v01.2
003047
00305

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

COO000000000000R0OO0OORORRORRRRRRRRLARRRLLRLLALRARRARIALIIIAK

WNO W
=PI

VNOVNVO WIS = AW

SON=NNHCHLON=NNNSO
d ek b O

VIONOO
W
SN = O NN OONOW

R OO =i

o—.-.-.—.—.-a—u—.o—.-a-.—a-.-.?
OO==500
Bt = QONVOO Bt

000

101
101
106
040
115
040

1264
116
105
114
m
122

116

000

101
122
040
115
040
101
105
116
101
122
117

105
117
114
11
122
103
104
000
125
105
126

114
104
m

105
105
103

101
105

122

040
122
045
000
101
122
117

P.ABV:

103
104

P.ABW:

P.ABX:

101

105
117
116
P.ABY:

122
122
122

040
122
045

101
m
104
117
117
040
114
105

106
114
040
040
115
117
m
045

P.ABZ:

106

P.ACA:

000

000
101

114

000

LASCII
LASCI1

/EAC/
/HED/

<00>
/ZAT/
/RAN/
/SFE/
/R L/
/IM1/
/T R/

/7XIN/<00>

LASCII
.ASCII
.ASCI]1
LASCII
LASCI1
LASCI1
LASCI1
LASCI1
LASCI]
,ASCII
+LASCI1
LASCII

<00>
/IAE/
/RRO/
/R L/
/IM1/
/T R/
/EAC/
/HED/
/IN/<00>
/IAU/
/NRE/
/COV/

.ASCI1
.ASCI1
LASCIL

/BLE/
/ DE/
/vIC/

.ASCI1

103
124
114

/XIN/<00>

LASCI1
.ASCII
LASCI1
.ASCI1
LASCI1
LASCIL
LASCII

LASCII

125
105
126
101
105
117
122

122
114

LASCII

.ASCI1
.ASCJI
LASCI1
LASCII
_ASCI]
.ASCI1
LASCI1

/ERA/

/E E/
/RRO/
/RIN/

<00><00>

+LASCI1
.ASCI1
.ASCI1
LASCI1

/ZAU/
/NRE/
/COV/
/ERA/
/BLE/
/ €O/
/NTR/

ASCI1
ASCII
.ASCI]

/ER /
/ERR/
/ORX/

.ASCI1

LASCI1I

.ASCII
LASCI1
LASCI1
JASCII
ASCI1
LASCII
LASCII
LASCII

LASCII
.ASCI1

/0LL/

/N/<00><00>
/XAF/
/AIL/
/ED /
/710 /
/COM/
/E O/
/NL1/
/NER/

/N/<00>
/ZAF/

SEQ 61

Paae 61
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BLY; 10 (35)

21=Jul=-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE
116

OO0 00000000O000000OQROOROOORVIOPRPPRVYVLRLCLVLRRILY

116
126
105
125

P.ACC:

116

M
040
124

000

101
m
127
124
117
126
114
114
123
124
116

125
124
105
040
040
101
101
105
124
105
000

P.ACD:

e
g St S
oy Sumg Sumgp
S
g S
g S

DL Lttty
P
Ld

103
115
104

P.A(B:

116

(7. X7 LV VuLLLLLLLLLLLLLINLILLNLLILIBLINLLLLLLLLWV
e talalatlatalalalalalalalalalals) alalalinlialalalalaleTele]

045
000
101
115

104
113
122
105
122
105
105

m
123
127
126
120
126
124

PR D

000

116
045

m
124

101
040
122
107

040

/AIL/
/ED /
/10 /
/ACC/
/€SS/
/ LA/
/87T /
/TRA/
/CK /
/DUR/
/ ING/
/ IN/

/17T%/
/N/<00>
/3AD/
/15SK/
/ WR/
/1TE/
/ PR/
/0TE/
/CTE/

/DIN/
<00><00>
/XAC/
/70MM/
/AND/
/7 11/
/ME /
/0UT/
/XIN/<00>

<00>

/%AU/
/NIT/
/ WE/
/NT /
/70 /

/AVA/
/ILA/
/8LE/
/ ST/
/ATE/

/IN/<00>

P.ABR:

<00>
P.ABS

P.ABT

P.ABU
P.ABY

P.ABVY

003746

003474°
003526
003602°

P.ABX
P.ABY
P.ABZ
P.ACA
P.ACB

;18 (35)

< "~
[P
)

(=1

LX)

—-ny
O

SEQ 62
Page 62
VAX-:1 Slis ’- 16 _v3-555
DISASUSERZ: () JIET2.RELEASEIZRCABO.BLT

OO0 0000000OO0OOOOOOOOOORPLPRRRRLRLLRRARRLLERIARARILIIKILIK

ORI~ 2 80O
o V=

122
113
125
116

1264

>>» b3 3P B

WA WOV
v
H
=20
O =V
VIOWMNVO 2 NVIO S WNO

- wd el i
- et O i b b e =
—-—d
Yo le X 0 T
P
OCQ =bd b
— ) o b

SRa

114
040
040
103
123
101

ord

21=Jul-1
21=Jul=1

RO/RX EXERCISER
PROTECTION TABLE

1M
104
117
103
123
114

5
W

IRQAMY
v01.2
003750 003634°
003752 003662°
045
003754
101
003757
127
00376
040
00376
114
003770
040
003773
127
003776
126
004001
107
004004
045
004006
101
004011
116
004014
m
004017
101
004022
124
004025
126
004030
126
004033
124
036
000
004041
045
004042
116
004045
105
004050
122
004053
123
004056
040
004061
101
004064
105
004067
116
004072
045
004074
116
004077
125
004102
040
004105
113
004110
070
004113
043
004116
106
004121
040
004124
102
004127
105
004132
040
004135
040
004140
040
004143
040
004146
102
004151
105
004154
000
004157
045
004160
040
004163
110
004166
104
004171
122
0046174

21=Jul=-1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE
116
120
105
104
101
055
101
m
000
116
106
103
117
114
105
040
101
105

043
117
122
105
131
040
m
116

P.ACE:

045
125
124

P.ACF:

116
045
130
103
105
123
122
104
000
116
045
116
104
045
045
040
040
043
131
123
040
117
040
043
131

045
10
105
m
122
124
124
045

P.ACG:

045
101
124
123
123
101
117
040
040
124
040
043
106
040
040
124

P.ACH:

101
055
101
040
122

040
055
122
105
117

P.ACI:

123

116
040
123
123
122
104

000

.WORD
.WORD
.ASCII
ASCI1
LASCII
.ASCIl
LASCIL
LASCIL
LASCIL
LASCIL1
ASCII
.ASCII
LASCIL
.ASCII
LASCI1
LASCII
LASCI]
LASCIL
.ASCI1
LASCII
LASCIT
.ASCI1
LASCII
.ASCI1
.ASCI1
.ASCI1
LASCIL1
.ASCI1
LASCI1
LASCII
.ASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCI1
LASCILI
LASCIL
LASCI1
ASCI1
ASCI1
LASCI1
LASCIL
ASCIl
ASCll
LASCII
CLASCII
L.ASCII
ASCIL
LASCI1
LASCII
.ASCI1

P.ACC
P.ACP
/INYV/
/APO/
/WER/
/ DE/
/LAY/
7/ =~/
/WAl/
/TIN/
/6/<00>
/INY/
/AFU/
/NCT/
/ION/
/AL /
/TES/
/T S8/
/TAR/
/TED/
<00>
/INV/
/NXIA/
/EXE/
/RCI/
/SER/
/7 ST/
/ART/
/EDX/
/N/<00>
/INY/
/NXIA/
/UNT/
7/ DS/
/KXS/
/8%A/
/# 0/
/F /
/ &/
/BYT/
/ES /
/ #/
/ OF/
/
7/
/ & /
/8YT/
/ES/<00>
<00>
/XA /
/ ==/
/HAR/
/D E/
/RRO/

SEQ 63

Paae 63
VAX-11 Bliss=16 v3-555
DISKSUSERZ: (DIET2.RELEASEJZRQABO.BLT; 10 (35)

COOOOOO6600000000000000000000202RVRNIAIILYIRSC] S

RD/RX EXERCISER
PROTECTION TABLE

2RQAM
v01.2

123
040
123
1264
122
122
055
116
040
040
040
131
040
105
123
040
122
106
040
111
123
040
111
109

055
055
117
040
122
123
000
045
043
040
040
120
040
101
040
040
105
040
127
124
040
127
124
116

055
040
055

101
123
040
126
122
110
040
113
107
104
040
12¢
116
055
040
055
055
040
055
055
055
055

040
105
104
040
126
123
123
040
124
122
110
000
045
055
055
040
055
040
055
040
055
055

055
055
055
040
055

040
055
055
055
055

055
055
040
055
055

004177
006202
006205
004210
004213
004216
004221
006226
004227
006232
004235
006240
006263
004246
004251
004256
004257
004262
004265
004270
004273
006276
004301
004 304
004307
004310
004313
004316
004321
004324
004327
004332

122
055
055
106
105
M7
055
045
101
040
043
124
105
122
104
040
060
101
060
122
105
060
122
124
000
045
040
113
10
104
060
126

004351
004356
004357

123
045
101

004335
004340
004343
004 346

004362
004365
004370
004373
004376

004401
004406
004407

004412

004415
004420
004423
004426
004431

105
104
040
126

055
055
055
055
055

055

SEQ 64

Page 8
VAX=11 Bliss=-16 v3-555
21-Jul=1983 15:25:58
10 (35)
JZRQABO.BL1;
E
[DIETZ.RELEAS
DISKSUSER2:
15:19:20
21-Jul=1983
ASCI1
ASCIT
"ASCI]
ASCIT
"ASCI]
ASCII

P.ACJ:

P.ACK:

P.ACL:

"ASCI1
.ASCII

ASCI1
ASCIT
ASCIL
ASCI1
ASCI]
ASCII
ASCII
ASCIT
"ASCII
"ASCII
ASCII
ASCII
"ASCII
ASCIT
ASCIT
ASCI1
TASCII
.ASCII
"ASCII
ASCIT
"ASCII
"ASCI]
"ASCII
ASCII
ASCII
"ASCI]
ASCII
TASCII

/RS=/
7= </
/-S50/
/ET /
/ERR/
/ORS/
7==/<00>
/INX/
/A #/
7/
/8 7
/TYP/
/E 7
/REA/
/DS /
7/
7/ RE/
/AD /
/7 w/
/RIT/
/ES /
7w/
/RIT/
/TEN/
<00>
/%A /
7 SE/
7K D/
/AT /
/DRV/
7 HS/
/T §/
/EK /
/DAT/
7 DR/
7V W/

"ASCI]
.ASCII
ASCII

/ST/<00>
/INX/
/A==/

ASCIT
CASCIT
ASCIT

/== /
7 ==/
===/

ASCIT
ASCIT
ASCI]
ASCIT
ASCIT

TASCIT

CASCIT
TASCII
TASCII
CASCIT
ASCIT

/= </
/== /
===/
/= 7
/===’

/===’

/= =/
/===’
/== /
/7 ==/
/===’

055

004437
004442
004445

055
045
055

000
101
055

004503
004506
004511
004514

055
045
104
104

000
116
062
064

004450
004453
004456
004461
004464
004467
004472
004475
004500

004517

040
055
055
055
040
055
055
055
040

101

004522
004525
004530
004533
004536
004541
004544
004547
004552
004555
004560
004563

122
060
045
104
104
101
122
061
045
045
045
045

004577
004600
004603
004606
004611
004614
004617
004622
004625
004630
004632
004635
004640
004643
004646
004651
004654
004657
004662
004665

000
045
045
045
045
045
045
045
045
000
045
101
040
056
103
122
040
040
040
056

004566
004571
004574

045
045
045

055
040
055
055
055
040
055
055
055

040

130
000
116
062
064

040

104
000
104
132
104
101

132
101
132

104
104
104
104
104
104
104
104
000
116
040
040
040
116
040
040
056
056
056

ASCIL

055

000
040
055

000
045
045
045

P.ACM:

P.ACN:

P.ACO:

/-/<00><00>
/7INX/
/D2X/
/D4YX/

P.ACP:

/7 =~/
/= =/
/== 7
/===/
/7 ==/
/= </
/== /
/==</
/7 ==/

CASCII
"ASCII
.ASCII
CASCII
CASCII

/RXS/
/0/<00><00>
/INX/
'D2X/
/D4Y/

"ASCII
TASCII
.ASCil
LASCII
JASCIT
CASCII

/RDS/
/17<00><00>
/%D4/
/3237
/73D3/
/%A./

CASCIT
.ASCII
TASCII
CASCIT
"ASCI1
CASCI1
TASCII
CASCII
CASCIT
TASCIT
.ASCII
CASCII
JASCIT
ASCII
ASCIT
JASCII
ASCII
ASCII
JASCIT
JASCIT

<00>
/%D4/
/%D4/
/3D4/
7%D4/
/%D4/
/%D4/
/3D4/
/7%D4/
<00><00>
/IN%/
/A ./
7
7
/. /
/CNT/
/R /
7
7
7 ./
7 ../
/...7

JASCII

040

065
000
064
063
063
054

"ASCII
.ASCII
CASCII
"ASCI1

CASCIT

040

065
000
045
045
045

/-/<00><00>
/%A /
/===

CASCII
CASCII
LASCIT
CASCID
CASCII
TASCII
CASCII
CASCI1
CASCII

055
055
040
055
055
055
040
055
055

/===/

"ASCI1
.ASCII
CASCII

TASCIT /%257
CASCIT /%A./
"ASCII /%287

063
054
063
064
064
064
064
064
064
064
064

P.ACQ:

045
056
040
040
124
040
040
040
056
056

P.ACR:

OO0

004434

21=Jul=1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM?
v01.2

SEQ 65

Page 65
VAX=11 Bliss=16 V3=555
(35)
;10
ROABO.BL1
RELEASEIZ
2:[DIETZ.
DISKSUSER

21=Jul=-1983 15:25:58
21-Jul~-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE
056
040
040
056
056
056
056
000
101
040
040
045
045
040
040
056
040
104
101
040
000
116
045

116
040
m
040
040
040
040
043
106
040
102
123
040
040
040
040
040
102
123

116
040
040
040
040
040
131
040
122
104

056
040
040
040
056
056
056
000
040
056
040
104
101
040
040
040
056
064
040
056
045
101
1M1
040
123
040
040
040
040
040

P.ACS:

P.ACT:

/.../
/. /
/
/7
/7 ./
7/ ../
/.../
/.../
7./<00><00>
/%A /
/7 ./
/
/7
/.%D/
/74%A/
/
/
/. /
/ ./
/ ./
/%D4/
/XA /
/7 ./
<00><00>
/INY/
/NXA/

ASCIL
LASCIL
LASCIL

/
/7
/
7/
/ &/

.ASCII
LASCII
LASCI1
LASCII
LASCIL

LASCIL

040

043
114
040
040
040
117
040
043
114
040

045
040
040
040
040
040
120
040
105
123

LASCIL
LASCIL
ASCIL
JASCIL
JASCIL
LASCIT
JASCIL
ASCII
.ASCII
JASCIL
LASCIY
LASCIL
LASCII
LASCII
LASCIL
LASCIL
LASCIL
LASCII
LASCII
JASCII
LASCII
.ASCII
LASCI1

P.ACU:

LASCII
JASCII
LASCIL
LASCIL
LASCIL
LASCIT
LASCIL
LASCIL
LASCI1
LASCII
LASCIT
.ASCII
LASCIL
ASCII
AsCIl
LASCIL
ASCIL
LASCIL
LASCIL
LASCI1
LASCII

/UNI/
/T /
/D1S/
/K /
/7
/7

/OF /

7/ WM/
/ 8L/
/KS /
7/
/
/4
/4 O/
/
/F
/7 a4/
7/ BL/
/KS /
<00>
/INX/
/A /
/& /
/
/
/@ /
/
4/
/TYP/
/E /
/ RE/
/ADS/

SEQ 66

Page 66
VAX=-11 Bliss=16 V3=555
(35)
;10
EIZRQABO.BL1
DISKSUSER2:[DIETZ.RELEAS

005124
005127
005132
005135
005140
005143
005146
005151
005154
005157
005162
005164
005167
005172
005175
5200
005203
5206
005211
005214
005217
005222
005225
005230
005233
005236
005241
005244
005247
00525¢
005255
005260
005263
005264
005267
005272
005275
005300
005303
005306
005311
005314
005317
005322
005325
005330

005344
005346
005351
005354

21=-Jul=1983 15:25:58
21-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2
040
040
105
040
040
127
124
040
122
124
040
045
101
055
040
055
040
055
055
040
055
055
040
055
055
040
055
055
040
055
055
040
000
045
123
104
123
104
101
040
116
065
040
066
063
066

066
124
040
116

040
040
101
040
040
122
105
040
1M
105
000
116
055
055
055
055
055
055
055
055
055
040
055
055
040
040
055
055
040
055
055
040

040
122
104
040
040
M
123
127
124
116

116
061
062
064
062
040
104
122
061
045
045
045
045

045
045
045
045
045
040
102
104
040
104
123
104
123

000
117
115
131

045
055
040
055
040
055
055
040
055
0S5

P.ACV:

LASCIL
LASCII
.ASCI1
LASCIL
ASCIl
LASCIL
LASCI1
JASCsl
LASCI1
LASCI1
LASCII
ASCII
LASCIL
ASCIL
ASCI1
ASCIl
LASCIL
LASCIL
ASCII
JASCIL
ASCIl

LASCIL
ASCII
ASCIL
LASCIL
CLASCIL
JASCIL
JASCIL
ASCIl
JASCIL
ASCIYl

040
055
055
040
040
055
055
040
055
055

000
P.ACW:

LASCIT
LASCI1
.ASCII
LASCII
LASCI1
LASCI1
LASCIL
LASCI1
ASCI1
ASCII
LASCIT
ASCII
ASCII
LASCII
.ASE{%
cll
.ASCI1

P.ACX:

LASCII
.ASCIl
LASCIT
LASCI1

/1
/7 R/
/EAD/
/
/
/
/
/WR1/
/TES/
/7 W/
/RIT/
/TEN/
/7 /<00>
/XNX/
/A=</
/== /
/ ==/
/== /
/ ==/
/==~/
/== /
/ ==/
/==</
/= /
/ ==/
/===/
/= /
/
/4
/===/
/===/
/
/7
/===/
/===/
/7 /<00>
<00>
/XINX/
/S1%/
/D2%/
/S4%/
/D2%/
/A /
/ DB/
/NRD/
/51 /
7/ %D/
/6XS/
/3%0/
/6%S/

/6/<00>
/T700/
/7 MA/
/NY /

SEQ 67

Paae 67
VAX=-11 Bliss=16 V3=555
(35)
2:
QABO.BL1;10
SER
[DIET2 .RELEASEIZR
DISKSU

RSR& OSROONO WO WNN=NIONOO=NWVNS N2 N NONONOOO &

b
—

N
-

—b

wd e O b
S
NJ\NNO-‘ONJ‘—‘NOO—'NONOJ‘-‘V’OON—‘O—'W—‘J\N—‘—'g
—.—.—A—Ao—l—.d—b—bd-lo—b—l—.o—l—lo—l—b—lo—h—l—l—.—.-do—.- )b Q) wd ed i i o

—

OON=OOONIND
VIV
=2 OSSNSO
OV

116
123

M
000

11?7
105
125
040
105
115
117
040
122

124
116
107
106
105
105
122
106
040

040
101
127
124
102
106
123

000

105
123
122
130
124
103
124
124
101
105

107
124
040
m
105
105
105
040
1M1
104

P.ACZ:

105
117
124
124
101
105

103
122
105
040
mm
104

P.ADA:

122
105
114
105

040
126
040
123

P.ADB:

114

000

040

P.ACY:

.ASCI1

114
101
116
122
104
122
105
125
105

000

116
040
121
116

M
123
125
103

LASCI1
LASCI]
LASCI1
.ASCI]
LASCI1
.ASCI1
LASCI1
.ASCI]
LASCI1
ASCIl
.ASCI1
LASCII
LASCI1
LASCI1
LASCI]1
LASCI1
LASCI1
.ASC]l1
LASCI1
LASCI1
LASCI1
LASCI1
LASCI1
LASCI1

LASCII
.ASCI]
LASCI1

/7 TE&/
/ST /
/FAl/
/LED/

<00><00>

LASCII

<00><00>

ASCI]
LASCI]
LASCI]
LASCI1
LASCII
LASCI]
.ASCI]
LASCI1
LASCII
JASCII

LASCI1

P.ADC:

/UNI1/
/7T1S/<u0>
<00>
/NOT/
/7 EN/
/0UG/
/H F/
/REE/
/ ME/
/MOR/
/Y F/
/OR /
/ALL/
/0CA/
/TIN/
/G R/
/EAD/
<57>/uWR/
/ITE/
/7 8W/
/FFE/
/RS/<00>
<00>
/REG/
/1IST/
/ER /
/EXI1/
/STE/
/NCE/

LASCI1

ASCII

106

104

.ASCI]
LASCII
ASCII
.ASCIl
LASCII

LASCII
.ASCII

LASCII
LASCI1
LASCII1

/VEC/
/TOR/
7/ TE/
/ST /
/FAl/
/LED/

/BR /
/LEV/
/EL /
/TES/

/T F#/

/AIL/

/ED/<00>

<00>
/INI/

/T S/
/EQU/
/ENC/

SEQ 68

Paae 68
VAX=11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL1;10 (35)

)

21=-Jul=1983 15:25:58
21=-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

1146
103
1M

PR
e
e e e el e lelelelelelelnleleloleleololololololaleoleo IR

b b e

b b b b b e

b b (D) D =D b =

(VT TP P

000
103
123

057

105
117

101
105

m
104

123
104

105
040

1264

122

1264

105
105

114

110
101
105
123

122

103
103
115
124
040

117

055
114

101
103
122
124

123
117
101
6

101
105
2

P.ADG:

P.ADH:

117

122
122

P.ADI:

124
117
8

b3 B

DD DD P

PP P

ottt

g Sumg S

g e S

g Sung Sumg St e S Dt Bsng Gy g B B Sumg (o Sumeg Srump B

g umg By $mg S

g g Sumg Sump Bouwy Do Sy Pup g Py

v Dumeg Gt Somp Dep Sug Gumg Sy Sumg Sump By By

21=Jul=19
21-Jul-19

/E ¥/
/AIL/

<00>
/FAT/
/AL /
/CON/
/TRO/
/LLE/
/R E/
/RR0O/

/ED/<00>

/R/7<00><00>
/0NL/
/INE/
/ FA/
/ILE/

/D/7<00>
/WR1/
/TE=/
/PR0O/
/TEC/
/T C/
/0ONF/
/L1C/

/1/<00><00>
/ACC/
/ESS/
/ FA/
/ILE/

/D/<00>
/FAT/
/AL /

/ ER/
/ROR/
<00>
/FAL/
/LED/
/ 10/
/ SE/
/ND /
/SET/
/=C0/
/NTR/
/0LL/
/ER=/
/CHA/
/RAC/
/TER/

/11/<57>/0/

/IST/
/1CS/
/ Co/
/MMA/

VAX=11 Bliss=16 v3=555
DISKSUSERZ: [DIETZ.RELEASE JZROABO.BL1;10

SEQ 69
Page 69
<~

(35)
e TaTelelele o leleleleleleoleleolelelelelelelelslclolelelelolololelelalela

RD/RX EXERCISER
PROTECTION TABLE

g Py By g S

S $rung Primg g g S S Sumg By S Srmp By Seh B Gmang Bup P Sy Sy Sy Dumg Gung gy Gug i Sumg Grmg Gup Sump Sy Sumg S

g g Senag Bracg g Gumeg Sy St S

g Pumy Pracp P

S Orng Sty G D

Samg

w wnmnnm 7.7

Y X X
X
X
N Y
N
X X
X
T X X X
X
T L T X X
X
X7 X7 A7 R e R ] L ULLLLINLLLLLINBLLLLIL AUV WVKLWV
VNIV CIICICICIIICICINOICIICIONIOIONOIOIOHINOYOHID NENIOIOYOY e latalalalatalalalalalalalalalalals

103

P.ADF:

S SIS

P.ADE:

106
114
000
101
114

000
103
123

106
103

116
11

040

M
055
117
103

122
105
122
105

000

S S s S

117
000
114
105
101
105

105

122
000
116
116
106
114

040

P.ADD:

124
040
116
117
105

101
114
117
122
114

106

m
104

114
000

>>
>

VAV, LNT. 3V, [V OO MOCONO

040

S
N S B OB NSO =2~NNINN
= O =OWN==

-no-a-A—n-a—n-.—l—.o_.-noo-a—ao—aoca—n-n-n-o?
OON = =2NININININIO
= IS =2 = NININ) = n
-t O ek = NN OO b = NN = BB 200K =2000 =

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

b
i
b e

ON = VNV
SRSZ8RRS

NO =NV SN

—b

b o

D wnd o

b b b b b b b
- QONIN)
S23=2ZZRR
OOO—‘OO-‘-‘S
OO RGN WS NIV
b ) =
D) =
—t e O

"KWWNN—.-‘

b
h
e
e
b
b

NNOOAWNWNWNES
WoOwmRN SN =S MANOWVINI NN

§ §§§§§§§§§ EEEEEEE

—d el e

=N O ON WO = = B NIWWWN N

d b o ah ad O

=
RISR - =2 PO O = [«=2JVNN
IV 1. 3

RD/RX EXERCISER
PROTECTION TABLE
104
105
103

124
114
122
110
101
105
123
103
122
120
123
110
040
104
116
117
040
040
101
040
040
122

000

000
124
117

m
104
117

104
116
mm
040
11§
116

040
05S
116
103
115
104

116
11

055
116

123

000

040
123
116
040
123
101
105
103

105

057
122
125
124

P.ADJ:

P.ADK:

105

P.ADL:

.ASCI1

/R/<00>

.ASCI1
.ASCI1
LASCII

/FAl/
/LED/
/7 TO/
/ SE/

/ND /
/ON=/
/LIN/
/E C/
/0MM/
/AND/

.ASCI]l
LASCII

/ON~/
/LIN/

LASCII

LASCl1
LASCII

.ASCI1
LASCII
LASCII1

LASCI]

P.ADM:

/NTR/
/0LL/
/ER~/
/CHA/
/RAC/
/TER/
/1S81/
/ICS/
/ RE/
/5P0/
/NSE/
/7 WA/
/S 8/
/AD /
/END/
/C0D/
/E O/
/R F/
/LAG/
/S 1/
/N E/
/RRO/

.ASCI1
.ASCII
.ASCI1
LASCI1
.ASCI1
.ASCI]

.ASCIl
LASCII
LASCII

000

105
105
040

/ND/<00>
/SET/
/=C0/

.ASCI1

122
120
123
110
040
104
116
117

117

LASCI]
.ASCI]
ASCI1

ASCI]l
LASCI1
.ASC]1
.ASCI1
LASCI1
.ASCI]1
.ASCI1
.ASCI1
.ASCI1
.ASCI1l
ASCII
ASCI1
.ASCII
.ASCI]l
.ASCI1
.ASCI]
.ASCI1
.ASCII
.ASCI1
.ASCI1
.ASCI]1
.ASCI1

122
114
0SS
101
103
122
124
123
105
17
105
101
102
0460
104
104
117
106
107
m
105
17

101
105
124

<00><00>
/E R/
/ESP/
/ONS/

/E W/
/AS /

/BAD/
/ EN/
/0C0O/

/DE/<00>

LASCI1

<00>

.ASCI1
LASCIl
LASCIl

/ RE/
/QUE/
/ST /

_ASCI1

/1/<57>/0/

SEQ 70

Page 70
VAX=11 Bliss=16 v3-555
(35)
;10
DISKSUSERZ: [DIETZ.RELEASE]JZROABO.6L

OO0 000000000O0O000000O00O000000

21=Jul-1 98 31 5:25:5 8
21=Jul=1 98 3 15:19:2 0

104

105

123
103

e
g Bt
Bt S
Sumg Seus S

eL
e Ll
Tl
T
T
T
Y
Y
Y
Y
Y ey Y oY Y

P.ADQ:

105
117

052
101

ey ey ey e

052
1264
040
061
040
101

g G

2. 2. 2.23.2

J »b 2
D
P
3

040
126
105
117

102

040
040

103

122
105
103
045
000
101
123
120
104
101
105

102
114
105
106

105

040
€40
126
040

P.ADP:

052
116
122

P.ADR:

.AS
+AS

101
11
117

>>e2e>>» P2 2

000

105
117
105
126

104
105
040
066

wm (7. X7 X7, X7, 17 X7, ] LLuLLuLunumruvunnumvmm 174 wunununuvnn
w
(] EIVNCICICIINCICIIIOVNOIONND e lalalalalalatalalal
EIEVIINOIIICICICICIICICIOND
g
e
Y
L
L
g g Smmg (ouny Prumg Gy D Gumep g Prncg S
g Dt Sy Bome v ey Sump St Srmg g Gung Bumg Sumg oy Sy Gumg ey Brumg Sy G I

101
122
123
17

122
120
123
101

P.ADO:

052
117

104

22 3

106

101
116

040
122
000
101

005520

040
105

116
104
101
116
123
120
1M
105

115
105
110
040
062
040

P.ADN:

000
1M
122
124

m
104

et OO
= OO
= bt b QO = O
OO~
=
R OO = b cud cd b b b b b
VIO
—
NN S NOIWO NO VW OO WNOOWVIO = WNWS VNN = O NWVO &~

RD/RX EXERCISER
PROTECTION TABLE
101
105

/FAl/
/LED/

<00><00>
/XAM/

/0RE/
/ TH/
/AN /

/%D2/
/XA /
/UN1/

/1S /
/SPE/
/CIF/
/1ED/
<00>
/XAr/
/ NO/
/ RE/
/SP0/
/NSE/
/ AT/
/ AD/
/DRE/
/8S /

/%06/

<00><00>
/XAs/
/ IN/
/COR/
/REC/
/T 8/
/R L/
/EVE/
/L F/
/0R /
/DEV/
/1CE/

/ X0/
/6/<00>
/XAt/
/ ST/
/EP /
/XD1/
/XA /
/REA/
/D E/
/RRO/

/R/<00>
/XAr/
/ BA/
/D S/
/A C/
/0DE/

VAX=11 Bliss=16 Vv3-555
DISKSUSERZ:[DIETZ.RELEASE

SEQ 71

Page

JZROA80.8L1;18 (35)

006523
006226
006531
00653
006537

006542
006544

006547
006552
006555
006560
006563
006566
006571
006574
006577
006600
006603
006606
006611
006616
006617
006622
006625
006630
006633
006636
006641
006644
006647
006652
006655
006660
006663
006666
006671
0066764
006677
006702
006705
006710
006713
006716
006721
006724
006727
006732
006735
006740
006743
006746
006751
006754

21-Jul=1983 15:25:58
21-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZROAM
v01.2
040
17
104
1M
040

066
045

040
123
104
101
105
040
106
116
000
045
040
126
105
117
101
117
120
103
123
107
117
101
040
103
1264
040
165
145
147
172
040
123
107
1264
105
040
165
145
147
172
040
156
143
157
151
040

106
115
105
103
045

122
040
126
108
117

104
113
062
040
116
117
114
105

952
111
045
045
127
124
106
111
000

P.ADS:

101
104
111
040
066
060
124
122
105
111
040
115
116
120
113
123
055
156
143
156
145
115
123
105
131
000
055
156
143
156
145
143
156
164
156

052
105
103
045
045
116
040
117
123
118
103
115
104
101
105
000
040
162
157
151
144
105
101
040
120
000
040
162
157
151
144
157
145
159
040

P.ADT:

000
101

144
055

000
040

P.ADU:

P.ADV:

P.ADW:

ASCII
"ASCII
"ASCI1
ASCIT
CASCI1

7/ FR/
/0M /
/DEV/
/ICE/
7 %0/

-ASCII
ASCIT
.ASCI1
ASCIT
ASCIT
-ASCII
CASCII
ASCII
ASCIT
.ASCII
.ASCI1
ASCIT
ASCII
ASCII
ASCIT
-ASCII
-ASCII
.ASCII
ASCII
CASCIT
ASCIT
-ASCIT
"ASCII
ASCI1
-ASCIT
.ASCII
ASCIT
ASCI1
.ASCII
ASCIT
-ASCIT
-ASCII
.ASCII
ASCII
SASCII
.ASCII
.ASCIT
.ASCI1
CASCII
CASCII
CASCIT
-ASCII
ASCIT
.ASCII
TASCII
.ASCII

7 D1/
/SK3/
/D2%/
/A W/
/ENT/
7 OF/
/FLI/
/NE/<00>
<00>
/3As/
7 DE/
/vIC/
/E %/
7063/
/A N/
/0T /
/PRO/
/CES/
/SIN/
/G C/
/70MM/
/AND/
/ PA/
/CKE/
/T5/<00>
7/ =/
/unr/
/eco/
/gni/
/zed/

TASCI1
.ASCII

76/<00>
/3As/

7/ ME/
/SSA/
/GE /
/TYP/
/E/<00><00>
/ -/
/unr/
/eco/
/gni/
/zed/
7 co/
/nne/
/cti/
/on /

/id/<00>
/7 =/

SEQ 72

Page .72
VAX-11 Bliss=16 v3=555
(35)
BL1;10
ASEIZROABO.
DISKSUSER2:[DIETZ.RELE

165
145
147
172
040
124
116
145
141
000
040
165

156
143
156
145
122
125
040
163
147
000
055
156

040
162

007025
007030
007033
007036
007041
007044

147
172
040
1264
116
101

156
145
122
125
040
103

151
144
105
122
120
113

007052
007055
007060
007063
007066
007071
0070?4
007076
007101
007104
007107
007112
007115
007120

040
165
145
147
172
040
116
040
125
105
107
132
040
103

055
156
143
156
145
103
000
055
116
103
116
105
117
117

007047

007123

007126
007131
007134
007137
007142
007145
007150
007153

007156

007160
007163
007166
007171
007174
007177
007202
007205

007210

145

105

040
115
120
124
125
103
105
122

12¢

040
104
040
101
123
117
040
122

000

143

124

000

055
123
040
101
123
117
040
122

000

055
125
123
124
040
104
105
117

000

P.ADX:

040
162
157
19
144
122

P.ADY:

040
122
117
1M
104
120
104

P.ADZ:

040
103
123
124
040
104
105
17

P.AEA:

040
120
124
125
103
105
122
122

P.AEB:

000

/Zunr/
/eco/
/gni/
/2ed/
/ RE/
/TUR/
/N m/
/ess/
/age/
<00><00>
/ -/
/unr/

LASCI1
LASCll
.ASCI1
.ASCII1
.ASCI1
LASCII

/gni/
/2ed/
/ RE/
/TUR/
/N P/
/ACK/

.ASCII

157

000

ASCl1l
LASCII
LASCIl
ASCII
.ASCI1
ASCII
ASCII
ASCI]
.ASCI]l
LASCII
.ASCI1
.ASCI1

LASCI1

.ASCII
LASCIl
.ASCIl
ASCI1
.ASCl]l
.ASCII1
LASCII
.ASCIl
.ASCJ]
.ASCII1
.ASCI]1
.ASCI1
LASCII
.ASCI1

LASCI1

.ASCI]l
.ASCI]
LASCII
LASCII
LASCII
.ASCl]
LASCIl
LASCII1

LASCII

ASCII
.ASCI11
ASCIl
LASCII
LASCII
.ASCI1
LASCI1
LASCII

JASCII

SEQ 73

Pase 73
VAX=11 Bliss=16 V3=-555
2: (35)
OABO.BL1;10
SER
[(DIETZ .RELEASEJZR
DISKSU

/eco/

/ET/<00>
/ -/
/unr/
/eco/
/gni/
/2ed/
/ CR/
/N/<00>
/ -/
/UNR/
/ECO/
/GNl/
/ZED/
/ opP/
/C0D/

/E/<00><00>
/7 -~/
/MSC/
/P S/
/TAY/
/US /
/C0OD/
/E E/
/RRO/

/R/<00>
/ -/
/DuUP/
7/ ST/
/ATW/
/S ¢/
/ODE/
/ ER/
/ROR/

<00><00>

OO0 0COOOOOO000000000O00000O0O00

162
157
151
164
105
122
155
163
145

006757
006762
006765
006770
006773
006776
007001
007004
007007
007012
007014
007017

007022

21=-Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM
v01.2

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

040
162
157
151
164
124
125
103
105

P.AEC:

0SS

040

P.AED:

101
040
122

122
105
117

000

116
117
040
115

P.AEE:

055

040

P.AEF:

114
124
114
104
125
115
1M1

105
117
17
040
120
105
101

055
122
122
116
125
120
040
105
125
116
103
122
103
122

040
122
040
040
120
113
127
116
123
107
124
040
040
107

000
116

000

101

000

LASCII

.ASCIl

<00>

/ -/

/LBN/
/ HO/
/ST /
/COM/

LASCII

/R/<00>

.ASCII

/R/<00>

.ASCI]
.ASCI1
ASCI1
ASCl1l
ASCI1
.ASCI]
.ASCI1
.ASC]l1

LASCII
LASCII

.ASCl1]1
LASCII
LASCII
.ASCII1
.ASCII
ASCI1
ASCI1
P.AEG:

/ -/
Zunr/
/eco/
/gni/
/2ed/
7 SvW/
/ATW/
/S C/
/0DE/

.ASCI1
.ASCI1
LASCII
LASCII

.ASCI]1
.ASCI1
.ASCI1

040
116
117
040
115
122
105
117

0SS
102
110
124
117
101
040
122

.ASCIl
LASCII
ASCII
LASCI1
ASCI1
ASCII
LASCII
ASCI1
.ASCl]

LASCI1

.ASCIl
.ASCI1
.ASC]]
LASCI1
LASCII
LASCI1
LASCII
LASCI1
ASCI1
LASCIl
LASCII
LASCII
LASCII
LASCI1

LASCII

/PAR/
/E E/

/RRO/

/7 -/
/DBN/
7/ WO/
/81 /
/Ccom/
/PAR/
/E E/
/RRO/

/ -/

/UNA/

/BLE/
7 10/
7/ LO/
/AD /
/DUP/
/ ME/
/DIA/

7 /<00><00>
7 -/
/ERR/
/OR /
V/IN/
/DUP/
/-PK/
/T W/
/HEN/
7/ US/
/ING/
/7 CT/
/LR /
/LC /
/PRG/

<00><00>

O000000

055
156
143
156
145
123
124
040
104

SEQ 74

Paae 74
VAX-11 Bliss=-16 v3-555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL1;10 (35)

OO0

)

D =

b O

ON—‘-“*-“*—'NV‘?

b b ek = O
-t = O
- VOO
& OH =2 OONVONNVOWWO
OO LO—=OONrWN

e e

b wnd e (O wcd

NNONON
S = REIRNSRIRRAR
RoRSORRONRRUNONORROR
HONNWVOWW O ROBUWION NNNO

RD/RX EXERCISER
PROTECTION TABLE

102
110
124
117

007466
007471
007474
007477
007502
007505
007510
007513
007516
007521
007524
007527
007530
007533
007536
007541
007544
007547
007552

007555
007560
007563

007566

007570
007573
007576
007601
007604
007607
007612
007615
007616
007621
007624
007627
007632
007635
007640
007643
007646
007651
007654
007657
007662

007665
007670

007673

115

045
1?7
101
040
17
105
045
116
040
106
116
000
045
122
123
m
040
040
101
1
105
124

105

045
105
101
17
101
105
117
000
045
122
105
122
105
105
045
105
103
103
120
105
122

122
045
101

104

m
101
104
17

P.AEl:

103
115
104
102
126
000
125
124
106
1
000

P.AEJ:

101
10i
m
17
124
101
m
102
040
101

126
116
126
116
117
126
114
114
123
124

P.AEL:

101
104
040
122
124
122
122

15
M
106
115
040
122
000

P.AEM:

101
m
055
117
103
104
101
126
105
17
101
040
122

127
124
120
124
124

P.AEN:

101
115
116
10
122
104
101
m
17
114
105

000

000
101
124

000
104
11
040
115
122
105
117
Go0
104
101

/XAl/
/NVA/
/LID/
/7 €O/

LASCII

/ND/<00>

LASCIL

101

000

.ASCII
.ASCII
.ASCIl
LASCI1

P.AEK:

.ASCI]l
LASCI]
LASCI]
LASCI1
+ASCI1
.ASCI]
.ASCII
LASCII
LASCII
LASCIL
LASCI1
LASCII
.ASCII
ASCI1
LASCII
LASCI1
LASCIL
JASCIL
ASLIL

.ASCI1
ASCIl
LASCLIL

P.AEO:

P.AEP:

LASCI1

ASCII
LASCI1
LASCI1
+ASCI1
LASCII
.ASCI1
LASCII
LASCI]
.ASCII
ASCII
LASCIL
.ASCI1
LASCII
.ASCI]
.ASCI]
LASCII
JASCIL
LASCI1
LASC11
JASCII
.ASCI1

LASCII
.ASCII
JASCLII

/MA/

/XAC/
/0Mw/
/AND/
7/ AB/
/ORT/
/ED/<00>
/XAU/
/NIV/
7/ OF/
/FLI/
/NE/<00>
<00>
/XAI/
/RAN/
/S1T/
/ION/
/7 10/
/7 AV/
/ALY
/ABL/
/E S/
/TAT/

/E/<00>

/XAM/
/ED1/
/A F/
/ORM/
/AT /
/ERR/
/0R/<00>
<00>
/XAW/
/RI1T/
/E-P/
/ROT/
/ECT/
/ED/<00>
/XAD/
/EVI/
/CE /
/7COM/
/PAR/
/E E/
/RRO/

/R/<00><00>
/ZAD/
/ATA/

007463

116

101
126
1
103
115

045
116
114
0490

SEQ 75

Page 75
VAX=-11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BLY; 1D (35)

oY=l=t=1=T=T=T=T-1ott
YTt T o Yot Yo T )

007444
007447
007452
007455

007460

21=-Jul=1983 15:25:58
21=-Jul~1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAM
v01.2

RO/RX EXERCISER
PROTECTION TABLE

007711
007714
007717

N=BO=BO=0ON— H=BON
VIO
= YWVNO NN WO NWVIWWANN

007701
007704

e-lele]
_.?
HON)
OO =t —
=
n
-2 N-‘l‘O—'ONONO?
oNO
* o?—'\-fl-‘NO—‘\fl\hNN\.flN\flONObNNWONMWWNOON\I‘

IRQAM
v01.2
007676

VAX=11 Bliss=16 Vv3-555
E
USERS
: [DIETZ.RELEAS
DISKS

105

11?7

000
101
123
102

/ ER/
/ROR/

122

110
1264
125
105
101
105
040
122
000

P.AEQ:

101
116
117
105
105
117
000
101
1M1

103
1264
114
122
122
122

P.AER:

104
126

P.AES:

122
000
101
123

117

106

040
103
123
122
122

040

107
106
118

040

122
114
111
16
124
123
101

123
103
120
105
122
122

116
040
101
117
1M1
000
110
124
117
101
040
122
000

101
115
116
124
105
124

103
115
104
1M1
117
000

116

/XAN/
/08V/
/ BU/
/FFE/
/R A/
/CCE/
/88 /
/ERR/

/0R/<00>

<00>

/IAC/
/ONT/

/ROL/
/LER/
/ ER/
/ROR/

<00><00>
/3AD/
/RIV/

/€ E/
/RRO/

105

118
123
105
122

<00><00>

P.AET:

/R/<00>
/XAM/

P.AEU:

/7€57<00>
/XAH/

124

P.AEV:

P.AEH:

/ESS/
/AGE/
/ FR/
/0M /
/INT/
/ERN/
/AL /
/DIA/
/GNO/
/8T1/

/081/
/ CO/
/MPA/
/RE /
/ERR/
/0R/<C0>

<00>

/XAC/
/0MM/
/AND/
/ 11/
/MEQ/
/UT/<00>
P.AE!

P.AEJ

SEQ 76

Page

JIROA80.8L1:18 (35)

né

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

b
b
b
e
b cond il
d
d
b

bl
ol il o
b

(elelelelelelolelelo)

RD/RX EXERCISER
PROTECTION TABLE
007510°
007530°
007570°
007616"
007640°
007670°
007706°
007742°
0077¢6"
010004°
010050°
010076°
045

116

045

040
107
105
101
040
103

114
040
123
107

117
115
123
105

072
000
045
040

045

101
122

126

116
117
105
105
117

116
045
040

123
115
117

040
103
123
122
122

000
045
040
123
104

101
040
123
124
116
105

105
117

122
105
105

101
103
124
114
122
122
122
000
101
110
124
105
122
101
105
040
122
045
000
101
104
113
062
040
104
113
122
123
122

122
122

P.AEW:

105
1M
104

P.AEK
P.AEL
P.AEM
P.AEN
P.AED
P.AEP
P.AEQ
P.AER
P.AES
P.AETY
P.AEU
P.AEV
/XINY/

LASCID
LASCII
.ASCI1]
.ASCI1
.ASCI1
LASCII

7 LO/
/G W/
/ESS/
/AGE/

LASCI]
.ASCI11

LASCI1

116

052
117
122
114
040
122
045
000
052
117
040
115
131
103
123
105
117
116

P.AEY:

052
11
045
045

P.AFA:

055
1M
040
101
106
040

.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
-WORD
.WORD
.WORD
.ASCI]

LASCII
LASCII
L.ASCI]
LASCI1

.ASCI1
.ASCI1
LASCI]
.ASCI]
LASCI]

P.AEZ:

LASCII
.ASCIl
LASCI1

LASCII
LASCI1
.ASCI]
LASCI1
.ASCI1
LASCI1
LASCI1
.ASCI]1

LASCII
ASCII
ASCI1
LASCI1
LASCI1

LASCII
LASCI1
LASCIl
LASCI]
.ASCI1
LASCII

/AER/
/ROR/

/ RE/
/CEl/
/VED/

/:IN/
<00>
/XAe«/
7 co/
/NTR/
/0LL/
/ER /
/ERR/
/ORX/
/N/<00><00>
/ZXA~/
7/ HO/
/ST /
/MEM/
/ORY/
7/ AC/
/CES/
/S E/
/RRO/
/RIN/
<00><00>
/XAx/
/7 D1/
/SKX/
/D2%/
/A -/
7 D0l/
/SK /
/TRA/
/NSF/
/ER /

SEQ 77

Paae 77
VAX=11 Bliss=16 V3=555
(35)
;10
EIZROAB0.8L1
DISKSUSER2:[DIETZ.RELEAS

21-Jul=1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE
122
122

122
045

101
104
113
062

052
m
065
045

000

040
042
101

123
m
105
117
105

113
116
122
116
103

WO WO

NV SO

B QOO = b b ad =d
NSO

LASCII

/TAN/

ASCI1

LASCII

104

LASCIl
LASCII
LASCI1
.ASCII1
LASCII1

LASCIT

/N/<00>

/A =/
/7 °°S/
/DAR/

/D D/

/ISK/
/7 IN/
/TER/
/CON/
/NEC/

/T /

000
052

062
040
042

045
055
123

LASCII
LASCI1
LASCII

104

LASCII

/MAL/
/L D/

105

LASCI1

/' E/

116

.ASCI1

104
113

122
065

1
045

P.AFC:

113

122
045

117

.ASCI1
LASCI1

/ERR/
/ORX/

.ASCI1
LASCII

/ 01/
/SK%/

LASCII
.ASCII

ASCI1

114

123

000

b b

/IA+/
/ D1/
/SK%/
/D2%/

000
101

122
122

040

e e

.ASCII
LASCI1
LASCII
LASCII

LASCII

040

—b d ) b b wd e

/ERR/
/O0RY/

042

101

NNOCRONI=NINOON
WRIN
SN NWWN =2 WA

.ASCI]
.ASCI1

LASCIL
LASCI1

116

122

040

P.AFB:

055
123

101

LASCI1

.ASCII

LASCII

/RIN/

<00><00>

.ASCII
LASCII
LASCII

/XNX/
/AL1/<57>
/0 B/
/UFF/
/ER /
/ADD/
/RES/
/S F/
/OR /
/REA/
/BIT/
/S):/

111
051

124
072

.ASCI1
LASCII

050
040

/RRO/

P.AFD:

.WORD
.WORD
.WORD
.WORD

101

040
062

/1SK/

P.AEY

LASCII
LASCII
+ASCI1

106

/D2%/
/A =/
/7 ''S/

.WORD

045
057
102

040

/N/<00><00>
/XA+/

P.AEX:

116
1M
040
106
122
104
105
040
122
105

106
040
104
123

LASCII
LASCII
LASCII
.ASCII

LASCII
LASCI1

P.AEZ
P.AFA
P.AF8B
P.AFC

/D (/
/32 /

SEQ 78

Page /8
VAX=11 Bliss=16 v3-555
O.BL1;10 (35)
R2:
. RELEASEIZRQAB
SUSE
[DIETZ
DISK

010675
010700
010703
010706

010711
010714
010717

010722

010725
010730
010733
010736

010741
010744

010747
010752
010755
010760

010763
010766
010771
010774
010777
011002
011005
011010
011013
011016
011021
011024
011027

045
101

120
103
105
040

066
116
114
072
122
104
045

045

040
103
045
045

000
116

114
072
127
124

040
065
056
117
040
066
051
116
122
114
105
116
102

045
057
102

106
040
104
123
106
040
111
040
062
m
051
045
045
045
000
045
102
040
105
051
104
101
050
124
117
101
000
045
102
040
122
105
045
0645
040
103
045
045
000

045

105

101
115
124
114

P.AFE:

LASCI1
ASCI1
.ASCI1
LASCI1
.ASCI1
.ASCII
LASCI1
ASCII
LASCII
.ASCI1
LASCII
LASCI1
LASCIL

/ %0/
/6%A/
/ %0/
/6XN/
<00><00>
/INX/
/A1/<57>
/0 B/
/UFF/
/ER /
/ADD/
/RES/
/S F/

LASCII
LASCII
LASCII
LASCII

/06/<00>
/INX/
/ALB/
/N: /

.ASCII
ASCII
LASCIL1
LASCII
LASCI1
LASCI1
LASCII
.ASCI]
.ASCI1

P.AFF:

.ASCI1
LASCII
LASCII

LASCII

LASCIL
LASCII
LASCI1
LASCII

P.AFG:

P.AFH:

LASCII
.ASCII1

.ASCI1
LASCI1
LASCII
JASCII
ASCIL
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/OR /
/WRI/
/TE /
/(32/
/ 81/
/T1S)/
/: ¥/
/06%/
/A X/

/(RE/
/AD)/
/7 XD/

/5%A/

/. (/
/0CT/
/7 X0/
/6XA/

/)/<00><00>
/INY/
/ALB/
/N: /
/(WR/
/ITE/

/) X/
/D5%/
/A. /

/(0C/
/T %/

.ASCI1

/06%/
/A)/<00>
/XN%/

LASCII
JLASCII
LASCII
LASCII

/PLA/
/CEM/
/ENT/
/ BL/

+ASCI1

e e leoleololeleoleololw]leoleololeo BEE<4,
"]

122
122
105
063
102
123
040
066
040

117
101
117
116

117
127
124
050
040
124
072
117
101
117
045
101
116
050
101
040
065
056
117
040
066
051
045
101
116
050
11
051
104
101
050
124
117
101

045
045
045
045
000
116
m
040
106
122
104
105
040

010642
010645
010650
010653
010656
010661
010664
010667
010672

040
066
040
066
000
045
101
117
125
105
101
122
123

SEQ 79

Page 79
VAX=-11 Bliss=16 V3-555
DISKSUSER2: [DIET2.RELEASEIZRQABO.BL1;10 (35)

/ARE/

010574
010577
010602
010605
010610
010612
010615
010620
010623
010626
010631
010634
010637

21=-Jul=1983 15:25:58
21-Jul=-1983 15:19:20

RO/RX EXERCISER
PROTECTION TABLE

IRQAMT
v01.2

SEQ 80
80
VAX=11 Bliss=16 V3~555
)
(35
1
L1;
BO.8B
DISKSUSERZ:[DIETZ.RELEASE JZRQA
RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

Mad e e Ie e e e N e
WL Wl WlIIIIN
OCOOCCOCOOOOOOOOOOOQOOOOODOLOOLOLIL

AN A A
A A AU A A p——
ol it ittt A A p—p—
ad ol ad ol ol ol ol tpaa
el adndat ek etppua
pppdedpuapui

N OOIT OO MO NI =L = O MO =N MNP NN ON - OMNIT N = U

N
T ONOWNOO
VTM VN
MOOWNONO

I PO TOTOITNIN
TN delelelel
CMIONIT I~
TOO~OIIO OrOrQOrO
TMINITIIererrO00
I ITOITIIO
I
Jdelelel o g OOg od
re—0O00ON [elel
000 Or-OrO0r
OO0~

ql.looo.looo

}Y—-xU4
065
056

Pa 89

21=Jul21=Jul-

RD/RX EXERCISER
PROTECTION TABLE

) -

—MW

V LCLCCCLCCCNVINNVIVN
DN
ECCLCLLLCLNWDC
LEEALLLALA
CCECLLELEL

LASCI]

/E:

<00>

[=] (=] A

woN

st
ielsisi esfieieed
et St
lalele
4 o dadd
lalala
sl 4l
[ofelelelolololalolalolelalala

a L w4

-— alal -

[ale,)
l=1[

IRQAMT
v01.2

SEQ 81

81
Pa 89
VAX=11 Bliss=16 v3=555
)
(35
1
O.BL1;
JZROAB
EASE
[DIETZ.REL
:
DISKSUSERZ

N RRWOWVNINSN
NS =200MO WV

N
oo
NN
Y YNNI AXLE
R R oo
R AR
R
~N &

WO WV~

i i

33388
E =N
O =2NONES
V- NN

=t wd wd md o

» SO HFOHLO

Oadead b QO

s ONNOONMANO VNN

2233 wgo O\fl\fl\flbbwr

=S OWNO NS~

WINININ)
=b b b

— b o aud e b b
b e b wd d i
b d b
D e =
- e amd ond cnd b el ol b b oD wd b D ) i e ) b wd b b - sk
N NN VIWAVIWVIWV wn
VIV NN

lolelolelelelelelelelelelalalelalelelaolalole) Qo
b b

b ——h = b
b cud b oub
- and amd d b wd ad b end
and aad wd and cnd cud and end cubd

b ad wad b
b cod nd cod

b wnd b
b wd wnd

)
b

0000000 0000000000O000

066
05

116
102
105

045
153
040

104
000
116

065

117
124
116
117
101
072

101
125
040
117
102
105
124
116
105
105

040
065

045

103
101
043
106
131
123
122
123
122
104

062

040

051
045
045
045
000
116
103

124
124
117
122
125
040
103
124

P.AFW:

P.AFX:

072

ASCII
LASCII
LASCII
.ASCIIl
LASCI]
.ASCII
.ASCIl
.ASCII
.ASCII
.ASCI]

/7AAC/
/Tua/
/L &/
/ OF/
/7 8v/
/TES/
/ TR/
/ANS/
/FER/
/RED/

.ASCI1
LASCII
ASCII

LASCII

LASCIl
LASCI1
.ASCl11

LASCl1l

072
117
101
117
P.AFY:

<00>

LASCII
ASCI]1
LASCII
ASCI1
LASCII
LASCII

LASCI1

124

/%06/
/7%A)/
/INX/
/ABY/
/TE /
/7C0u/
/NT /
ZIN/
/COM/
/MAN/
/D: /

.ASCII1
.ASCI1]
.ASCI1
.ASC]]
LASCI1

106
040
104
123
050

045
117
105
123
106
105
122
120
113

LASCII

_ASCI]
LASCII
LASCI1

LASCII
LASCI1

045
000
045
057
102

P.AFV:

125
040
040
115
116
040

116
M1
040

106
122
104
105
040

LASCI1
LASCII

LASCI1
LASCI1
LASCII
LASCII
LASCI1
_ASCI]1
LASCII

LASCII
LASCI]
.ASCI1
ASCI1
LASCI1
ASCI1
LASCII
JASCII

/%DS/
<00><00>
/INX/

/: %/
/D5/<00>
<00

/INX/
/A1/<57>
/0 B/
/UFF/
V/ER /
/ADD/
/RES/
/S (/
/32 /
/BlV/
/S):/
/ X0/
/763A/
/7 X0/
/76/7<00>
/INX/
/ACO/
/NTE/
/NTS/
/ OF/
/ RE/
/TUR/
/N P/
/ACK/
/ET:/

SEQ 82

Pa8e 82
VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL1;10 (35)

e Ve Te fe e e e e lo e le e lolelelololelelelelelelelolelololelelolololelolel
o]

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE
117
101

b o

d cah

mh o

e wnd

d e

b o

£8

b d d O b bt

) b b ed e

B OO

B O =

b —d b b

g Srumg g Srmeg Sy S

P.AGD:

P.AGE:

.AS
JO

oy e e

b b

b b b

3.8, 83
U > 0 2. 2. 2.2.20.3.

NWVWVWVMIWWO
ON = NWWANhO

lalalalalalalalalslaliaslalalalel alalalalalalalalalelatsl

wuununununuvmunununn w wvwununmunnmnnunnunumm

b3 P2

(=]

i e ban et endendendendan h o Lo Lo ]

g Suep G B

Y e Lo L L

Sy g Gumep Dunegp D

2 alalalalatalalalalalalisialalalislialale] «

P.AGC:

g Srimg Sungp P

e e

.AS

g Sumg Sumg Sumg Sumg Sug

[«

WO NN
=

P.AGB:

P.AGA:

i =D

000

OO R==NN=
o VIS =ON=O
NO
NN
NNOONNTNIN=WNO NO

WOWVMWVMWINOOWNNNWVWWGT

= =
NONON -2 S NWON)

b b d b Q) = b b b b b b b

~
Wow

§883

P.AFZ:

OEONOO—ON=NNON
==

b b

NO -2ONO

—

NININ)
=

(olela] (elolelelelelalola)

116

—d e

S NONOHION
= R ONOAELON~=
V= B NY= O NNV S NNM=ORMNON

O ed ot e e D ed = b OO

O — b O b ad b =R O OO =) =d = b b
QHEQONO=NO
NS OO=-0O0NO
-~ & N
S -3 AN O NN NV NN = N
NN OO
=N =N oMV S \NOHNONON

S O=2=20OH0 NN?NN-‘-‘ ..oc..o...._._.go

OOO\A\I’J\‘\&&WWNN-‘-'-'OO
WOWNINN =0
OMANOWVINI
NS =

LSLSTNTNTNT
NN NN ST NN NN VTN S T8 )

b i o

b oh e

[elelelelelelelelelelalelelelelole
e

RD/RX EXERCISER
PROTECTION TABLE

21=Jul=1
21=Jul-

<00>

/IN/<00>

/AME/
/SSA/
/GE /
/TYP/
/E: /
<00><00>

/INY/

/AME/
/SSA/
/GE /
/NUM/
/BER/
/8: /
<00>

/XNX/

/XN%/
/AME/
/SSA/
/GE /
/ERR/
/0R /
/C0D/
/ES:/

/7 /7<00>
/XANX/
/ABY/
/TE /
/NUM/
/BER/
/: X/

/D3/<00>

<00>

/XNX/

/ARA/
/NDO/
/M W/
/RIT/
/TEN/
/ WO/
/RD /

/:%8/
/16/<00>

/ANX/
/ARA/
/NDO/
/M R/
/EAD/
/ W0/
/RD /
/bin/
/:%8/

VAX=-11 Bliss~16 V3-555
R2:
[DIETZ .RELEASE
DISKSUSE

10 (35)
JZROABO.BL1-

Page

SEq 83
83

d md o

D o

md e

W OWVNI
= O N NO W) =

bt
X Xotvivivy RRROW
~

[aSLASTASTAN
LS LN NN S TN AN LAt ]

116

045

040
123
107

115
123
105

000
116
040
106
107
¢

045

123
072

116

000
045
104
0

116
040
101
114
0

P.AGI:

P.AGJ:

P.AGK:

114
123

P.AGL:
g G Sumep Bung g B Guneeg B

[

[]

>
4 >3

[]

E2EB>>B>»

[]

g ut G $g S

g Duvmg $umg S

omg P

Sy Bt Sug Bumg Sy Bug Some
Y
g g S Soung S By Se L

Sumg

wwm wmwwmwnmunmnunnunuwny
w
wnunurunnunnnnnom
CIICICIIOIICIIICIOICICIOINOINOIOOIYOYOIO
D

g ey By g Bung (g Gung g S

g g Bumeg Srumg Srug $rnng Sumg g g Sug St Gt o Dumeg $umg S Sumg $unt Pmct S Sy Gt S B

Oumup Gumg Dutegy S Suamg Gty Gumng S Bomug Py Gug g v $umg S Bug Srmp S

CNEVNIICIIIICIOIOIOICICICIOIIOIOIOIIOIOHYOIO

P.AGH:

g Gummg Gung B By Peme S

040

P.AGG:

116
O

040
101
072
6

122
114
123

040
125
116
116
040
062

wununm

105

P.AGF:

I IISSFIFFSSDDD
D DD DD D PP PP P2 P2 B2 P22 2

125
124
114

066

114

101
000
045
117
122

040
072

045
045
055
116
103
124
116
104

124

116

116
116
117
105

113
127
103

045
122
072
117

125

040

055
104
000
101

072

113
127

116
103
040
045
000
101
040

045
157
072

066
040
164

» > PP

RD/RX EXERCISER
PROTECTION TABLE

/76/<00>
/%A /
/= U/
/NKN/
/0WN
/ :/
/%D2/
<00><00>
/%A /
/= U/
/NKN/
/0WN/
/ €0/
/NNE/

/0N /
/1D:/
/ XD/

/CT1/

/3%A/
/ =/<00>

/INX/
/AC0/
/NTR/
/0LL/
/ER /
/FLA/
/GS:/

<00>

/AUN/
/1T /
/FLA/
/GS:/
<00>
/INY/
/AEN/
/D M/
/ESS/
/AGE/
/ FL/
/AGS/

/XIN2/

/:/<00><00>

/IN%/
/A D/

COCOOOOOENOOOOOO000000000000000000O0000000

IRQAM
v01.2

J\OOO—‘ObOOOO-‘—‘Og

[

0121
012174
012177
012202
012205
012206
012211
012214
012217
012222
012224
012227
012232
012235
012240
012243
012246
012250
012253
012256
012261
012264
012267
012272
012275
012300
012303

(=]
— b b d ) bk
SO0 =IO
= =t OO b ed d = d OO = =b o —b b =D
O NOSHOOOO
=2 =2 NONOWVIN O = NO WO = NWO DO NO
- ANAN)
=2 O =2 N B2 NONON

([elelelelelalalelelelelalelelelelele
o)

SEQ 84

Page 84
VAX=-11 Bliss=16 V3-555
(35)
DISKSUSER2: [DIETZ.RELEASE JZR0AB0.BL1;10

/16%/
/A o/
/ct:/

<00>

/%06/
/XN%/
/ACR/
/N :/
/ X0/

m
122
117
122
114
040
102
040
101
122
045
045
000
116
040
104
116
040
120
116
040
115
116
122
107
040
104
040
066
000
116
040
114
101
105

126
040
116
117
105
126
114
075
104
072
104
116

012606
012611
012612
012615

105
000
045
101

101

000

114

116
040
114

125
040
103
124
m
101

122
120
113
123
116
122

045
101
040
1264
116
101
105
040
040
105

012620

012623

012626
012631
012634
012637
012642
012645

012650

123
116
105
101
040

122

101

040
040
123
107
101

105

000

045
103
040

P.AGM:

124
122
040
124
103
115
104
m
040
101
122

045
045

045
101
040
103
124

P.AGN:

LASCI1
LASCII
.ASCI1
LASCII
LASCI1
LASCII
LASCI1
LASCIl
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCIl
LASCII
.ASCI1
LASCI1
LASCII
LASCII
LASCI1
LASCIDI
LASCII
.ASCI1
LASCI1
LASCII
LASCI1
.ASCII1
LASCII
.ASCI1
LASCII
.ASCII
LASCII
LASCII
LASCI1
LASCI1

/RI1V/
/ER /
/CON/
/TRO/
/LLE/
/R T/
/ABL/
/E =
7/ AD/
/DR:/
/7 %D/
/6XN/
<00><00> /INY/
/A C/
/MD /
/INV/
/, R/
/SP_/
/INT/
7/, C/
/0MM/
/AND/
/ Rl/
/NG /
/= A/
/DDR/
/: ¥/
/D6%/
/N/<00>
/INX/
/A A/
/LL /
/PAC/
/KET/

LASCII
LASCII
.ASCII
LASCII

/EA/<00>
<00>
/XNX/
/A A/
/LL /
/RET/
/URN/
/ PA/
/CKE/
/1S /
/IN /
/ARE/

LASCII
LASCII
JASCII
LASCI1
LASCII

m
115
123
105
122

P.AGO:

LASCII

.ASCI1

+ASCII
LASCII
LASCII
LASCIL
LASCII
ASCI1

LASCIT

/S 1/
/N W/
/ESS/
/AGE/
/ AR/

/A/<00>

e lelelolelelelo ool e l=lel=lolslelelelelelelelelolclelololol-Tolalolo
Lo oo

122
105
103
124
114
122
101
105
040
104
040
066
000
045
101
115
11
054
123
11
054
17
101
040
116
075
104
072
104
116
045
101
114
120
113

012420
012423
012426
0126431
012634
012437
012442
012445
012450
012453
012456
012461
012464
012466
01247
012474
012477
012502
012505
012510
012513
012516
012521
012524
012527
012532
012535
012540
012543
012546
012550
012553
012556
012561
012564

012567
012572
012575
012600
012603

21=Jul~-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

SEQ 85

Page 85
VAX=11 Bliss~16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1;10 (35)

065
101
104
072
104
101

116
040
104
040
066
040

045
101
122
045
045
040

012710
012713
012714

045
000
045

116

000

012717
012722
012725
012730
012733
012736
012741
012744
012747
012752
012755
012760
012763
012766
012770
012773
012776
013001
013004
013007
013012
013015
013020
013023
013026
013031
013034
013037
013042
013045
013050
013053
013056
013061

013064
013066
013071
013074
013077
013102

040
120
113
040

101
104
040
040
123
116
040
116
124
102
120
114
040
066
045
101
104
040
040
123
107
120
113
040
123
116
040
116
123
124
117
124
124
045

000
045

101
104
040
040

040
101
105
075

116

040
104
117
122
120
123
122
107
17
105
117
105
045
000
116
040
104
117
1i%
123
105
101
105
122
120
123
122
107
114
040
m
123
117
104

000
116

040
104
117
115

P.AGP:

0645

P.AGQ:

045
101
122
106
105
101
040
103
124
105

P.AGR:

045
101
122
106
105

P.AGS:

117
105
m
040
17
120
114
040
040
066

/XNX/
/A A/
/DDR/
/: X/
/D6%X/
/A /

LASCII
.ASCI1
LASCII
.ASCI1
.ASCI1
.ASCII
LASCII
LASCII
LASCII
.ASCIl
LASCI1
.ASCII
LASCII
LASCII
.ASCIl
LASCII
.ASCI1
ASCI1
LASCI1
JASCII
LASCI1
.ASCII
LASCI1
+ASCII
.ASCI1
+ASCII
LASCI1
LASCII
.ASCI1
LASCILI
LASCII
LASCII
LASCII
LASCII

/
7/
/PAC/
/KETV/
=/
/IN/<00>
<00>
/INX/
/A AN/
/DDR/
/ OF/
/ RE/
/SPO/
/NSE/
/ RI/
/NG /
/70 /
/BE /
/POL/
/LED/
7 %D/
/76/<00>
/IN¥/
/A AN/
/DDR/
/ OF/
/ ME/
/SSA/
/GE /
/PAC/
/KET/
/ RE/
/SPO/
/NSE/
/ RI/
/NG /
/SLO/
/T P/
/0IN/
/1S /
/10 /
/%XD6/

LASCII
+ASCII
LASCII
LASCII

/A AN/
/DDR/
/ OF/
/ ME/

LASCII
LASCI1
LASC11l
.ASCII

040
103
124
040

101
122
106
105
117
105
11
040
040
040
114
104
104

.ASCII
LASCII
.ASCII
LASCID
LASCI1
LASCII

.ASCII
.ASCI1
.ASCII

LASCI]
.ASCII

SEQ 86

Page 86
VAX=-11 Bliss=16 V3-555
(35)
8L1.10
DISKSUSER2:[DIETZ.RELEASEIZRQAB0.

<00><00>
/INXZ/

OO0 0O0000000OONOO0OO0O0OOO0O0

012652
012655
012660
012663
012666
012671

012674
012677
012702
012705

21-Jul=1983 15:25.58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

21=Jul=-1983 15:25:58
21-Jul=1983 15:19:20

104
114
101
040
mm
045

125
1M
124
125
124
104

0NN

106
122
1264
120
104
105
105

-l e el ) b b i o wd O el
)= B
ON = = B =
b md
—b

2-‘°OO°O
=N
SONN =00NO

NEVONO =N = OVIOWN =S

b b b

ced b wd b =

b wd md wd

BONNO = =000 =NNO

b = OO

OO =

=SNON

-t b e

Gourd
P
o Qrar Guar G

040
066
116

045
101
mm

045
000
045

061
040

045
104

000

117
040
101
045

/SSA/
/GE /
/PAC/
/KET/
7 CoO/
/MMA/
/ND /
/RIN/
/G S/
/L0V/
/7 PO/
/INT/
/S 1/

LASCI1
LASCI1
.ASCII1
ASCI11
LASCII
LASCII1

/ADY/
/PLY/
/CAT/
/E W/
/NIT/
/:XD/

LASCI1
LASCII
LASCII

LASCII

ASCII
ASCI1

124
120

040
066
116

115
105
110
040

P.AGT:

LASCI1
LASCI1
.ASCI1
LASCI]
LASCI1
LASCII
LASCII
LASCII
LASCIl1
ASCI1
.ASC11
LASCI1
LASCII

P.AGU:

LASCI1
LASCII
.ASCI1

106
105
040
040
104
123
123

101
123
125
124

P.AGYV:

114

055
105
105
1M1
000

101
103
104
040
124

055
122
m
116
11

P.AGW:

/0 X/
/D6/<00>
/INX/

/72%A/

/7 AV/
/ 1P/

/: X/
/06/<00>

LASCI1
.ASCIl
ASCI]
LASCI1

/INX/
/AMO/
/RE /
/THA/
/N ¥/

LASCI1
.ASCI]
LASCII
LASCI1
.ASCI1
.ASCI1
.ASCJ1

/IFF/
/ERE/
/NT /
/1P /
/ADD/
/RES/
/SES/

LASCII
.11

LASCII
.ASCII
LASCI1
LASCII
ASCI11

LASCII

LASCI1
.ASCI]
LASCI1
LASCII
ASCII
LASCI]1

SEQ 87

Paae 87
VAX=11 Bliss=16 v3=555
0 (35)
0OABO.BL1;1
.RELEASEJZR
[DIETZ
DISKSUSER2:

/D1%X/
/A D/

<00><00>
/XA-/
/7 SE/
/QUE/
/NT}1/

/AL/<00>

<00>

/XA-/
/ CR/
/EDI1/
/T N/
/0T1/

CO00000000000O0O0O000O00000

101
049
103
124
117
101
040
116
123
124
117
124
124

e
ON

8O VNN OONN OMWO—‘W?VU‘—‘OI‘NNO‘WOWONW

RD/RX EXERCISER
PROTECTION TABLE
123
105
101
105
103
115
104
M
040
117
120
116
040

P.AGY:

P.AHA:

P.AHF:

P.AHG:

[

el
lalalalalalalalalatlatalalalalalslialalalalalalalalal

nnnunnm
wnunuruvnunnunununm VoLt

—b e e b el b cad

WOOWNSONS—

OS=a0N-=

WV =0OWN~N—=0O

[ P SN

iy3 £ =00

P.AGX:

>
P>
>> >l

- b b
=200
NN

Le e
NN O
&N
AN

Q)
b b
O00
Own=

WW=O==O==O ===

—d e d O b wd O wd wed Q) b = b D

- b b
O—==
WMWY

P.AKE:

b aud wd

P.AHD:

—h

d b b BO =
NO==EN
NWNOOW

F.AHC:

b i o e € b b wad b e wd b ) b b e O b
—2O00O0ONO=NOO =l=0L3% N NSO
NWWAWNON
&S SN W W OHPWWON

b and ad

NOOO—-000000O000

) =t
=H£0

P.ANB:

OO—=

b ed

—d b b aud e b b b b ) b b b O) wed O) b b b b

b wd

P.AGZ:

—=2AOO0ONIONININLOONIO
NN NOOO BNN=NNO
=
S B N=2L2OO0OVIOWH N=W=0W S mO=ONNE

—h emd cnd cmd

RD/RX EXERCISER
PROTECTION TABLE

VAX=11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ.RELEASE

/TAG/
/RAM/
<00><00>
/XAR/
/EAD/
<00><00>
/XAW/
/RIT/

/E/<00>
/YAA/
/CCE/
<00>

/7857<00>

/YA0/
/N L/
/INE/
<00>
/XAS/
/ET /
/CON/
/TRO/
/L C/
/HAR/

/./7<00>

/XAG/

/ET /
/DUS/
/T S/
/TAT/
/US/7<00>
/XAE/
/XEC/
/UTE/
/ SU/
/PPL/
/1ED/
/ PR/

/G/<00><00>

/3AE/
/XEC/
/UTE/
/ L0/

18 (35)
1ZROABO.BL1-

SEQ 88
Page 88

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

101
116
104
101
101

123
104
101
000
122

101

000

103
126
104

—b b b b O

b b O b b O = b b
e d O b b wd b D
- b NIV
O—“*O—'l‘ONNNN—'Nl‘OO-—O—'Ng
VNWNSS U\b—l\h\.fl\fl\hflbb\hg NNy

P.AHI:

P.ANJ:

101
M
104
116
107
122

123
116
117
040
116
105

P.AHK:

101
1M

P.AHL:

117
11

123
114
103
116
124
000
104
114
101
040
111
116
102
000
101
105
13
116
116

101

123

P.AHO:

000
040
116
103

104

101
120
103
105
116

040
115

122
101
122
104

000
1M1

000
114

040
114
105

117
11
000

101
1M1
125
116

125
124
116
117

7G/<00>

LASCI]
LASCI1
LASCI1

/ECE/
/IVE/
7 DA/

.ASCI1

/80R/

JASCI]

/XAA/

JASCI1

/T1/7<00>

LASCII

/D/<00>

LASCI]
.ASCI1
LASCII
LASCJ1
LASCI]
LASCI1

.ASCI]
LASCII

/IAS/
/PIN/
/-DO/
/WN /
/IGN/
/ORE/

/IAS/
/TIL/

/L ¢/
/ONN/
/ECT/

LASCI1

/ED/<00>

LASCII

/T N/

_ASCII
LASCI1
LASCI1
JASCI1
.ASCI1
LASCI1

/ZAD/
/UPL/
/ICA/
/TE /
/UNI1/
/umB/

LASCI]
ASCI]
LASCI]

/ER/<00>
/XAA/
/LRE/

LASCII
LASCII

/UIN/

LASCI1

P.AHP:

/TA/<00>

<00>

LASCII

P.AHN:

/%AS/
/END/
/ DA/
/7TA/<00>
/XAR/

LASCII

.ASCI]1
LASCII

P.AHM:

/CAL/
/ PR/

ASCI]

.ASCII
.ASCI]
LASCI1
LASCI1
.ASCI1

LASCII

122

000

Y
Y O
P
P
Y
WOONWVOONONS
NN SO

P.AHH:

117

101

Ot OO =t b b b O

105
105
101

LASCI1
.ASCI1

LASCII
.ASCII
LASCII

LASCI1
LASCI!l
LASCI]
LASCI]
.ASCI1
LASCI1
LASCII
LASCI]

/ADY/

/7 ON/

/7E/<00><00>
/XAS/

/TIL/

/L 0O/
/NLI1/
/NE/<00>
<00>
/ZAW/
/NIT/
/7 UN/
/KNO/

114
122

SEQ 89

Page 89
VAX=11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ .RELEASEIZROABO.BL1;10 (35)

00000000000

101
120

014016
V164021
014024
014027
014032
014935
014040
0146043
014046
014051
014054
014057
014062
0146065
014070
014073
014076
014101
014104
014107
016112
014115
014120
014123
014126
014131

127
117
117
m
040
040
117
105
103
124
114
122
045
117
117
115
115
116
104
122
122
105
1
10¢
106
131

1%
122
116
116
1264
101
124
122
117
122
114
000
101
040
114
105
117
124
040
040
1M1
040
123
114
040
040

060
040
114
105
117
116
110
040
116
117
105
000
116
126
125
040
125
105
117
104
126
104
101
105
102
123

014137
014142

103
045

110
101

000
125

065

061

014134

014145
014150
014153
014156
014161
014164

014167

014172
014175
014200
014203
014206
014210
014213
014216
014221
0146224
014227
014232
014235
014240
014243
014246
014251

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

127

116
040
117
122
11
040

m
m
120
101
126
050

040
M
040
125
000
045
116
040
123
114
040
040
105
040
122
103
117

127
124
106
114
000
101
m
104
101
105
102
106
114
123
126
105
122

104

P.AHQ:

P.AHR:

LASCII
_ASCII

/CH/<00>
/XAU/

LASCIL
LASCII
.ASCI1
LASCI1
LASCI1
LASCI1

LASCII

122
105¢
101
124

125
124
11
102
104
131
11
104
105
11
040
040

/WN /
/OR /
/ONL/
/INE/
/ 10/
/ AN/
/0TH/
/ER /
/CON/
/TRO/
/LLE/
/R/<00><00>
/XIAN/
/0 v/
/0LU/
/ME /
/MOU/
/NTE/
/D 0O/
/R D/
/RIV/
/E D/
/1SA/
/BLE/
/D B/
/Y S/

LASCII

124

124
116
105
124
105
122

LASCII
LASCI]
.ASCI1
LASCI]1
LASCIL1
LASCIL
.ASCI1
ASCII
.ASCII
.ASCI1
LASCII
ASCI1
.ASCII
LASCII
.ASCIl1
LASCI1
LASCII
.ASCI1
+ASCII
.ASCI1
LASCIL1
LASCIL1
LASCI1
.ASCII1
.ASCII
JASCII

P.AHS:

LASCII
LASCII
LASCII
JASCII
LASCII
ASCII
LASCII
.ASCI1
.ASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/uwWlTl/

/NIT/
/7 IN/
/OPE/
/RAT/
/IVE/
/ (R/

/D51/

/7 WR/
/1TE/
/ FA/
/ULT/

<00><00>,
/3AU/ /NIT/
/ D1/
/SAB/
/LED/
/ 8Y/
7/ F1/
/ELD/
/ SE/
/RV1/
/CE /
/OR /

SEQ 90

Pase 90
VAX=11 Bliss=16 V3-555
(35) ]
BLY;10
DISKSUSER2: [DIETZ.RELEASEIZRQABO.

RD/RX EXERC]SER
PROTECTION TABLE

ZROAM
v01.2
01425
014257
014262
014265
014270
014273
014276
014301
014302
014305
014310
014313
014316
014321
014326
014327
014332
014335
014320
014343
014366
014351
01435%¢
014357
014362
014365
014370
014373
014376
014401
014404
014407
014412
014415
014620
014423
014426
014631
014434
014437
014442
014445
014446
014451
014454
014457
014462
014465
014470
014473
014476

014501

014506

21-Jul=1983 15:25:58
21-Jul=1983 15:19:20

111
105
101
104
107
123
103
000
045
106
103
040
122
042
105
103
106
110
105
103
123
116
106
040
040
124
045
105
117
127
126
116
111
040
117
105
105
117
040
106
111
000
045
103
117
122
040
122
104
114
055

116
114

116
122
116
111
116
126
123

12
116
040
101
117
1M
000

101
117
105
105
117
040
126
126
040
111
040
103

042
122
104
122
122
104
105
105
127
114
101
105

000
101
103
122

000
123
12
040

123
107
193
117
122

122
124
040
124
042
122
104
122

122

115
111
105

101
126

122
103
125
105

101
105
040
126
111

P.ANT:

11d
040
124
122
103

P.AMU:

11
105
127
110
106
103
040
122
042
117
106
122

106
040
040
12
116
101
102
040
111
101
104

P.AHV:

ASCII /INT/
CASCI1 /ERN/
TASCIT /AL /
CASCIT /DIA/
CASCII /GNO/
CASCIT /STI/
CASCIT /C5/<00>
JASCIT <00>
ASCII /I
.ASCII /FOR/
CASCIT /CED/
CASCIT /7 ER/
JASCII /ROR/
TASCIT /" D/
CASCII /ETE/
CASCII /CTE/
CASCIT /D W/
CASCIT /7HIL/
CASCII /€ A/
CASCIT /CCE/
CASCII 7SS/
CASCII /NG /
JASCII /FCT/
CASCII 7 OR/
"ASCII / RC/
CASCII /1/<00><00>
.ASCII /%AS/
CASCIT /ECT/
.ASEIT /OR /
CASCIT /WR1/
CASCI1 /TTE/
TASCIT /N W/
JASCIT /1TH/
CASCIT 7 'F/
-ASCII /ORC/
CASCII /ED /
"ASCII /ERR/
.ASCII /OR"”/
CASCIT /7 MO/
-ASCII /DIF/
'ASCII /IER/
"ASCIT <00>
.ASCIT /XAF/
/
/CT
CASCII
"ASCII /0R /
"ASCII /RCT/
JASCII /7 UN/
"ASCIT /REA/
"ASCII /DAB/
JASCIT /LE /
CASCIT /=17

LASCIT
JASCIT

/NVA/
/LID/

sEa 91

Page 91
vAX=11 Bliss=16 V3555
DISKSUSER2:[DIETZ.RELEASE]ZR0ABO.BLY;10 (35)

040
103
122
105
105
045
105
105
103
120
105
122
122
126
M
110
104
040
124
117
104
J45
103
117
122
040
122
104
114
055
101
040
116
124
105
124
045
101
040
116
116
040
125
040
101
040
116
124
105

123
124
040
101
122
101
101
122
117
101
040
122
040
101
106
105
105
116
040
125
051
101
124
122
103
125
105
101
105
040
124
123
103
11
117
000
101
124
123
103
117
106
116
050
124
123
103
m
117

045
103
117

101
124
122

124

051

105
117
110
104
000
110
104
040
115
122
105
117
0590
114
040
101
122
117
106
116
000
106
040
040
124
116
101
102
040
104
101
13
040
115
125

104
101
13
040
124
117
104
104
101
131
040
115
125
000
106
040
040

P.AHW:

P.AHX:

P.AHY:

P.AHZ:

LASCI1
LASCII
ASCII
LASCI1
LASCI1
.ASCI]
.ASCI1
.ASCI1
LASCII
.ASCI1
.ASCI1
.ASCI1
LASCIl
.ASCII
.ASCI1
.ASCI]1
.ASCI]l
LASCI1
ASCI1
.ASCI1
LASCII
.ASCI]
LASCI1
LASCII
LASCII
LASCII
LASCI1
.ASCII
LASCII
LASCI1
ASCI1
LASCI11
LASCII
LASCII
.ASCI1
LASCII
.ASCI]
ASCI1
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCI]
LASCI1
JASCII
LASCII
LASCII

7 SE/
/CT0/
/R W/
/EAD/
/ER/<00>
/%AW/
/EAD/
V/ER /
/COM/
/PAR/
V/E E/
/RRO/
/R (/
/VAL/
/1D /
/HEA/
/DER/
/ NO/
/T F/
/OUN/
/D)/<00>
/XAF/
/€T /
/OR /
/RCT/
/7 UN/
/REA/
/DAB/
/LE /
/- D/
/ATA/
/ Sv/
/NC /
/TIM/
/EOW/
/71/<00>
/XAD/
/ATA/
7 SY/
/NC /
/NOT/
/ FO/
/UND/
/7 (D/
/ATA/
7 SvY/
/NC /
/TIM/
/EOQU/

.ASCI1
LASCII
LASCII

/XAF/
/CT /
J/OR /

LASCII

/T1)/<00>

SEQ 92

Paae 92
VAX=11 Bliss=16 Vv3=-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1;10 (35)

e
e
e
Y e Y = T T T T T T
o e o Y aw |

RD/RX EXERCISER
PROTECTION TABLE

IRQAM1
v01.2
014507
014512
014515
014520
014523
014526
014531
014534
014537
014542
014545
014550
014553
014556
014561
014564
014567
014572
014575
014600
014603
014606
0164611
014614
0164617
014622
014625
014630
014633
014636
014641
014644
014647
014652
014655
014660
0146662
014665
014670
014673
014676
014701
014704
014707
014712
014715
014720
014723
014726
014731
014734
014737
014742

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

015024
015027
015032
015035
015040
015043
015046

015050
015053
015056
015061
015064
015067
015070

015073
015076
015101
015104
015107
015112
015115
015120
015123
015126
015131
015134
015137
015142
015144
015147
015152
015155
015160

015163
015166
015171
015174

122
103
102
040
103
122
122

045
103
103
122
124
000
045

117
105
101
115
124
114
113
126
114
114
050
124
125
051
045
m
040
124
117
101
105
127
110

101
040
120
103
105
040
117
040
101
101
105
122
040
114
000
101
123
116
040
122
124
104
11
040

LASCI1
LASCIL
.ASCI1
.ASCI1
LASCII
LASCII
LASCII
.ASCIl
LASCI1
LASCII

LASCI1
LASCIL
.ASCII

103
105
117

125
117
105
101
105
103
105
117

P.AIA:

122
040
122
120
104

P.AIB:

116
122
114
105
116
102
103
101
15X
102
040
103
106
114

P.AIC:

104
113
117
106
115
124
040
124
065

P.AID:

LASCI1
.ASCI1
LASCII
+LASCI1
LASCI1
LASCI1
LASCI1
LASCII
.ASCII
.ASCI1
.ASCII
LASCIL
LASCII
JASCI1
LASCII
LASCII
.ASCII
+LASCII
+ASCI1
LASCI1
LASCII
LASCII
LASCII
LASCII
.ASCI]
+ASCI1
LASCII
+LASCII
LASCIL1
CASCII
LASCII
ASCIl
LASCII
LASCII
JASCII
LASCI1
LASCII
LASCII
LASCIT
LASCII

/RCT/
/7 UN/
/REA/
/DAB/
/LE /
/= U/
/NCO/
/RRE/
/CTA/
/BLE/

7 EC/
/C E/
/RRO/
/R/<00>
/%AU/
/NCO/
/RRE/
/CTA/
/BLE/
/7 EC/
/C B/
/RRO/
/R/<00>
/XAR/
/CT /
/COR/
/RUP/
/TED/
<00>
/XAN/
/0 R/
/EPL/
/ACE/
/MEN/
/T B/
/LOC/
/K A/
/VAl/
/LAB/
/LE /
/(RC/
/T F/
/ULL/
/)/<00>
/%AD/
/ISK/
/ NO/
/T F/
/ORM/
/ATT/
/ED /
/WIT/
/H 5/

P d

Y o Ve Y e Y an Y e Y e

122
045
116

1264
116
101
102
040
125
117
105
101
105

015014
015016
015021

040
103
122

103
125
105
101
105
040
103
122
124
114
105
040
122
000
101
103
122
124
114
105
040
122
000
101
124
117
125
105

122
040
122
104
114
055
116
122
103
102

014745
014750
014753
014756
014761
014764
014767
014772
014775
015000

015003
015006
015011

21-Jul=1983 15:25:58
21-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IROAMY
v01.2

SEQ 93

Paae 93
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1; 10 (35)

015223
015226
015231
01523
015237
015242
015245
015250
015253
015256
015261
015264
015266
015271
015274
015277
015302
015305
015310
015313
015316
015321
015324
015327
015332
015335
01530
01533
015348
015351
015356
015357
015362
01535
015370
015373

015376
015400
015403
015406

015411
015414
015417
015¢22

015425
015430

111
040
12
117
101
105
117
106
040
122
120
104
045
116
123
102
040
103
122
122
045
127
123
102
040
102
122
122
045
10
105
131
117
105
040
122
000
045
117
040
115
116
103
105
117
045

123
116
040
122
124
104
122
103
103
122
126
000
101
105
131
117
105
040
122
000
101
117
131
117
105
040
122
000
101
122
040
115
114
103
105
117

000
101
125
123

102
040
103
122

122
101

104
113
117
106
115
124
040
040
124
117
125
105

P.AIE:

117
040
115
114
103
105
117
000
124
040
115
114
103
105
117
000
124
105
123
102
040
103
122
122

P.AIF:

106
122
131
117
105
040
122
000
106

P.AIL:

P.AIG:

P.AIH:

P.AIJ:

TASCII
.ASCII

SASCIT
.ASCII
ASCIT
ASCII
-ASCIT
CASCII
.ASCII
"ASCIT
SASCII
"ASCII
.ASCII
-ASCIT
.ASCII
ASCIT
-ASCIT
ASCII
CASCIT
ASCIT
-ASCII
"ASCIT
.ASCII
LASCIT
CASCIT
.ASCII
.ASCIT
CASCIT
-ASCII
"ASCII
.ASC!!
ASCII
CASCII
SASCIT
CASCII
CASCII
ASCII
.ASCI1
"ASCI]
.ASCII
SASCIT
SASCIT
CASCI1
CASCII
CASCII
"ASCII
"ASCIT
.ASCII

/BYT/
/E S/
/ECT/
/0RS/

<00><00>
/%AD/

/71ISK/
/7 NO/
/T F/
/ORM/
/ATT/
/ED /
/0R /
/FCT/
7/ co/
/RRU/
/PTE/
/D/<00>
/3A0/
/NE /
/SYM/
/BOL/
7 EC/
/C E/
/RRO/
/R/<00><00>
/3AT/
/W0 /
/SYM/
/BOL/
7 EC/
/C E/
/RRO/
/R/<00><00>
/3AT/
/HRE/
/E S/
/YMB/
/0L /
/ECC/
7 ER/
/ROR/

<00><00>
/%AF/
/0UR/
/7 SY/
/MBO/
/L E/
/CC /
/ERR/

/OR/<0u>
/%AF/

712/

N FNCNCYC

000
101

CASCII
CASCII
CASCIT
.ASCII

124
123
124
123

000
045

ASCIT

040

015216
015220

131
040
103
122

062

102
105
105
117

S, SRR, SRR SR, SR, SEN, SR, SN, SR, gEU, pRu SRR g

061

SEQ 94

Page %
VAX-11 Bliss=16 v3=555
DISKSUSER2: [DIETZ.RELEASEJZROABO.BL1; D (35)

. S

015177

015202
015205
015210
015213

21-Jul=1983 15:25:58
21-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTICN TABLE

ZROAMY
v01.2

e . . .

015577
015602
015605
015610
015613
015616
015621
015624
015627

015632
015635
015636
015641
015644
015647
015652
015655
015660
015663

17
105
101
105
122
122
116
103
106

114
000
045
116
040
106
101
040
11
040

107
040
115
114
103
105
117

P.AIM:

103
122
124
114
105

P.AIN:

122
103
102
040
122
040
040
103
1

117
1M1
105
040
105

101
m
123
124
122
127
124
120

125
124
117
127
105
122
105
122

104

000
P.AI0:

Y e T e T an Y e Ve

000
101

015572
015574

m
124
131
117
105
040
122

105
110
123
102
040
103
122
122

/N S/
/YMB/
/0L /
/ECC/
/ ER/
/ROR/
<00><00>
/XAE/
/IGH/
/T S/
/YMB/
/0L /
/ECC/
/ ER/
/ROR/
<00><00>
/XAC/
/ORR/
/ECT/
/ABL/
/E E/
/RRO/
/R 1/
/N E/
/CC /
/FIE/
/LD/<00>
<00>
/%AU/
/NIT/
/ S0/
/FTW/
/ARE/
/7 WR/
/ITE/
/ PR/

000
045

015565
015550
015553
015556
015561
015564
015567

102
040
103
122
122

LASCII
LASCII
LASCI1
.ASCI1
LASCII1
+ASCII
LASCII
_ASCII
.ASCI1
JASCII
LASCIL1
LASCII
LASCII
LASCI1
.ASCI11
LASCII
.ASCII
+ASCI1
LASCII
LASCII
.ASCI1
.ASCI1
LASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII
.ASCII
LASCI1
LASCII
LASCIL1
LASCII
LASCII
LASCII
LASC11

LASCII
L.ASCII
LASCI1

000
101

P.AIL:

/IVE/
/7 SY/
/MBO/
/L B/
/CC /
/ERR/
/0R/<00>
/ZAS/
/1IX /
/SYM/
/BOL/
7 EC/
/C E/
/RRO/

000
045

115
114
103
105
117

P.AIK:

LASCI1
LASCIL
.ASCI1
LASCII
CLASCII
.ASCI1
.ASCII
.ASCII
LASCII
LASCII
LASCI1
LASCII
.ASCI1
+ASCI1

015540
015542

13
117
105
040
122

105
131
117
105
040
122
000
123
040
115
114
103
105
117
000
123
105
123

126
123
102
040
103
122
122
101
130
131
117
105
040
122
000
101
126
040

111
040
115
114
103
105
117
045
m
123
102
040
103
122
122
045
105
116

/R/<00><00>
/XAS/
/EVE/

015433
015436
0154641
015444
015447
015452
015455
015460
015463
015466
01547
015474
015477
015502
015505
015510
015513
015516

015521
015524
015527
015532
015535

21-Jul=-1983 15:25:58
21=-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

SEQ 95

Paae 95
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL1;10 (35)

WO
=2 W

110
124
105
122
120
111
040
122
000
P.AIT:

101
115
116

103
115
104
P.AlU:

117
125
m
T

[]

[] []

[]

[}

g Suneeg Gumg Brung Bt Dp Semg Beg

g Sucg

g et e P

$ump Pung Sung Srmg Sonng Srng G

Dueg Sumg $veg St G

g B B Sy Dt g Sy Bup Srung B S St B S D (Y

g Pueg Snug By Guvng Sumg By Sumg g Sy B

g g ot G Do

g Py Sumg Puumeg

g Bumg Sip Sumg g Gimeg Sinep Sumg g mung Guang Bumeg ey Sy (remg Gumeg et Bt Sy Srumg P Beg B

ey Gaeg ag Gmmg Bvag Gumng

Guveg

g By G

NI ICIONICNICICNICIIICICICICICICICIOIOICIOICIOIYOIOI
D EICICICIIICIOIIIOIOIOIIIOIOIOINOIOHIOHNOHIOIMD

115
117
000
O

P.AlS:

116
055
m
105
040
123

eI EEEEBI»
T
IS T
I T 3 >
X
L X
T X T X X e N T L T X T X7 N T R X T N R T R & womunmnunmnununmnunnununuwvyonunnonunmnnn

116

. N X

000

101
123
115
117
040
122
131
122
122

124

103

. Y O

040
115
131
101
116
130
124
124
117
P.AIR:

000
125

[}

040

104
123
000
117

[ ] [ ] [ ) [ ] [ ] []

040
124
P.AlIQ:

[] [ ) [ ] [ ]

104
131

. [] [] []

040
101
106
040

[} [ ] [ ] [ ]

104
105
000
10
104
122
123
122

117

[] []

101

P.AIP:

[] []

122
127
124
120
124
124
000

104

125
124
10
127
105
122
105
122
105
105

RY
17.Y7.X7.Y. Y Y

m
110

105
105

1264
1264
000
101

—

ONNON==NO _32 -.—A-A-n—so-n-._a-a_n.n-ao—n—n.ng R3TRIRSS

bt et d bk O =B OO =b b b b md b b b
N=2000HMMNMNOO=NOHOO
==
ONOW=
N =
NN WE NN
S TN =WOB VEBWNNO—=O = NNOOWVE
NS
=
NO WO NN SO

—'50-‘58-‘

RD/RX EXERCISER
PROTECTION TABLE

/D/7<00>
/3AU/
/INIT/
/ HA/
/RDW/
/ARE/
/ WR/
/1TE/
/ PR/
/0TE/
/CTE/

/0/7<00>
/%A0/
/DD /
/TRA/
/NSF/
/ER /
/ADD/
/RES/
/8/7<00><00>
/%A0/
/0D /
/8YT/
/E C/
/0UN/

/1/<00><00>
/XAN/

/0N~/
/EX1/
/STE/

/RY/<00>
<00>
/TAH/
/0ST1/
/ ME/
/MOR/
/Y P/
/AR1/
/7Y /
/ERR/
/NT /
/H0S/
/T M/
/EMO/

<00>

/0R/<00>

/%AC/

abd

[1V,

=1V,]

—

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASE JZRQAB0.BL1;10

Page

SEQ 96
96

(35)

PR
e e e e e leo e leolelelele o B 4]

/0TE/
/CTE/
—

21=Jul21=JulV0
(=1
W

21=Jul=1983 15:25:58
21=-Jul=1983 15:19:20

(=]
»
DOWVIVIO
= NNV
WVO NW

OO =

SN
-2 HO=ONSONO

b e = OO =b b b b wnd =

b b d b d aud
-0
NOOOO-‘-’N-‘-—'?
=
NN
NNV

b wd end wnd e wnd O

ONIONN) = = (NN

b b b

b cnd

s o

= NS NO S = =N

2NNN-‘-‘NWWOO? OO WNI = WNONIN)

RD/RX EXERCISER
PROTECTION TABLE
117
122
122
114

LASCIL
ASCI]
ASCI1
LASCII

040

105

ASCIl

000

123
m
M
122
105
122
114
105
117
122
116
122
116
122
116

P.AIV:

101
103
122

105
040
122

P.AIW:

101
103
123
124
124

M
117
M
105
040

P.AIX:

040
040
1264
040
115

103
104

101
122
114
105
104
105
101
132
040
105
125
117
125
105
125

122

116
122
114
101
040
122
124
105
101

040
115
116
124

105
124
116
12¢

ASCI1

ASCII
.ASCI]

105
105

000

124

116
040
124
123
125
125

000
104
126
103
115
104
11
117
040
117
109

P.AIY:

LASCI]

/T O/
/R R/
/ETR/
/vy L/
/IM1/

/71 &/

/XCE/
/EDE/

/D/<00><00>

LASCII
.ASCI1
LASCII
.ASCI1

/%AS/
/ER}1/
/ALl/
/ZER/
<57>/DE/
/SER/
1AL/
/12E/
/R 0O/
/VER/
/RUN/
/ OR/
/7 uN/
/DER/
/RUN/
<00>
/ZXAE/
/DC /
/ERR/

L.ASCI]
.ASCI1
.ASCI1
LASCI1
LASCII

/XAl/
/NCO/
/NS1/
/STE/
/NT /

.ASCI]
.ASCI1
.ASCI1I1
.ASCIl
LASCII
.ASCl1
ASCI1
LASCII
.ASCI]1
.ASCI1
.ASCI1
ASCil
LASCI1
.ASCI]
.ASCI1

LASCII

.ASCI1
.ASCJ1
.ASCII
.ASCI1
LASCI1
LASCII
LASCII
LASCI]
LASCII
LASCII
.ASCI1
LASCI1
LASCI1
LASCI!
LASCII
LASCII
LASCII
LASCIl
LASCI1

/0R/<00>

/INT/

/ERN/
/AL /
/DAT/
/A S/
/TRU/
/CTu/

/RE/<00>

<00>

/%AD/
/RI1V/
/E ¢/
/70MM/
/AND/
/7 11/
/MEO/
/Ut /
/(NO/
/ RE/

SEQ 97

Paae 97
VAX=11 Bliss=16 v3=555
(35)
QABO.BL1;10
DISKSUSER2:[DIETZ .RELEASEJZR

101
116
117
105
104
105
105
124
116
11
m
040
040
117
103
040
122
000
101
123
m
040
122
040
m
123
113

103
124
114
122
105
103
104
122
123
123
117
117
120
124
117
105
117
000
120
m
117
105
117
050
123
105
051

P.AIZ:

101
123
122

114
124
105

P.AJB:

104

057

102

105

122
105
105
131
125
116

127
116
122
123

1M
040
101
040
122
107

105
040
101
106

P.AJA:

.ASCI1
+LASCIl
LASCII
.ASCII1
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
.ASCI1
+ASCI1
LASCI1
.ASCII
+ASCI1
LASCI1
.ASCI1
LASCII
.ASCII
ASCI1
.ASCI1
LASCII
LASCII
.ASCI1
LASCII
LASCI]
+ASCI1
.ASCII
ASCI1
LASCII
LASCIL
LASCII
+ASCII
LASCII
LASCII
+LASCII
+ASCI1
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCI1
LASCII
+ASCII
LASCII
.ASCI1
LASCI1
LASCII
LASCII
LASCIl
+LASCII
LASCII

/SPO/
/NSE/
/ OR/
/ SE/
/EK /
/INC/
/0MP/
/LET/
/E)/<00>
<00>
/XAC/
/ONT/
/ROL/
/LER/
/ DE/
/TEC/
/TED/
7/ TR/
/ANS/
/M1S/
/S10/
/N 0O/
/R P/
/ROT/
/0C0/
/L E/
/RR0O/

/R/<00><00>
/XAP/
/0S1/
/T10/
/N E/
/RRO/
/R (/
/M1S/
/=SE/
/EK)/
<00>
/XAL/
/0ST/
/ Rt/

e T el el el e leleloaleleleleoleleleololeleleololeclololololeloleololeolo BNo))

117
105
122
105
040
103
120
124
000

120
123
117
123
113
116
15
105
US

/AD/<57>
/WRl/
/TE /
/REA/
/DY /
/DUR/
/ING/

<57>/BE/

/TWE/
/EN /
/TRA/
/NSF/

123
116
040
040
105
m
117
114
105
000
045
117
122
114
040
124
124
040
101
115
123
116
122
122
117
114
122
122
045
117
124
116
122
122
115
055
105
000
045
117
040
101
127
124
122
104
104
m
057
124
105
124
116

SEQ 98

Paae 98
VAX=-11 Bliss=16 V3=555
2: (35)
QABO.BL1;10
SER
[DIETZ .RELEASEJZR
D1SKSU

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMY
v01.2
016352
016355
016360
016363
016366
016371
016374
016377
016402
016405
016406
016411
016414
016417
016422
016425
016430
016433
016436
016441
016444
016447
016452
016455
016460
016463
016466
016471
016474
016477
016502
016505
016510
016513
016516
016521
016524
016527
016530
016533
016536
016541
016544
016547
016552
016555
016560
016563
016566
016571
016574
016577
016602

21-Jul=-1983 15:25:58
21-Jul=1983 15:19:20

21=Jul=-1983 15:25:58
21=Jul=1983 15:19:20

S HOHNNWNLYLYP

NN
=N =2 & HNNOOCON

—b

—b—no-n-n-co_n-n-n-n-n_n—bg RN ON g—no_n-bo—.?

=200 WO NV
VAV IV L VIV, (V) S NWNSO

OHNNO K= § _.-o_n_o-a..o?o_a

S,
SO
OQO
NAIN
S NNIVNOW

RD/RX EXERCISER
PROTECTION TABLE
122

123

10
1M
040
117
040

104
126
103
103
104

P.AJC:

101
123
122
105
105
122
104
102
127
116
105
117
000
101
1M
040

114
1264
105
11
122
105
13
105
105
040
103
122

P.AJD:

104
126
104

P.AJE:

040

105

000

117
125

124
124

122

120
124

/ERS/

.ASCI1
LASCII
LASCI1
.ASCI]1
LASCIl

/XAD/
/R1V/
/E C/
/LOC/
/K D/

LASCI]

.ASCI]1
LASCI]
LASCII
.ASCII
.ASCI1
ASCI1
LASCI11
LASCI1
LASCII
ASCI1
LASCI!
.ASCI1
ASCI]
.ASCII
.ASCII

LASCI1
.ASCIl

105
105

117

.ASCI1

LASCII

000
103

P.AJF:

000
116
040

045

P.AJG:

102
040
157

LASCI]

ASCI1
LASCII
.ASCI1
.ASCI1l

000
101

116
117
105
104
105
105
120
123
117
123
124
120
111
040
122

124
114
122
105
103
104
125
105
122
124
105
101
124
105
117

174

141
102
143

<00><00>

/ROP/
/0UT/
<00>
/XAL/
/081/
/ RE/
/CEl/
/VER/
/7 RE/
/ADY/
/ BE/
/TuWE/
V/EN/
/SEC/
/TOR/

/5/7<00>
/%AD/
/RlV/
/E D/
V/ETE/
/CTE/

/D E/
/RRO/

JASCI1
LASCIl

/R/<00><00>
/XAC/

LASCII
.ASCII
JASCII

/R/<00>
/INX/
/A /<1746>

.ASCI1
LASCII
LASCI1
LASCI]
LASCII
ASCI1
ASCII
LASCII
LASCI]
JASCI1
LASCI1
LASCII
LASCI1
LASCII
.ASCI1

LASCI]
LASCI1
LASCI1

/ONT/
/ROL/
/LER/
/ DE/
/TEC/
/TED/
7/ PY/
/LSE/
/ OR/
7 SV/
/ATE/
7 PA/
/RIV/
/Y E/
/RRO/

/ Ba/
/d 8/
/loc/

SEQ 99

Page 99
VAX=-11 Bliss=16 V3-555
DISKSUSER2:CDIETZ.RELEASE]IZRQABO.BL1;10 (35)

LASCID
LASCII
.ASCI1
ASCI]
LASCII
.ASCII

/Zk W/
/nre/
/por/
/ted/
<00>
/INX/

145
157

LASCI1
LASCI1
LASCIL
LASCII
LASCI]l
LASCIl
LASCI1
ASCII
.ASCII
ASCI1
LASCII
LASCI1

/7 Er/
/ror/
/7 Lo/
/g G/
/ene/
/rat/
/ed/<00>
<00>
/3INX/
/A /<174>
/ Se/
/rio/

143
164
156

LASCI1
LASCII
LASCI1

040
162
157
145

125
145
162
144

017062
017065
017070
017073
017076
017101
017104
017107
017110
017113
017116
017121

040
162
040
147
145
162
145
000
045
101
040
162

116
040

105
157
114
040
156
141
144

045
174
162
162
157

017127
017132
017135

105
145
151

017057

017124

101

165

107
145
164

000

116
040

045
174

163

040

123
151

170
160
157

P.AJH:

P.AJI:

LASCII

017140
017142
017145

000
045
101

000
116
174

045
040

P.AJJ:

017200
017202
017205
017210
017213
017216
017221
017224
017227
017232
017235
017240
017243
017246
017251
017254
017257
017260
017263

163
045
101
105
142
040
163
154
156
165
105
157
114
040
163
147
000
045
101

000
116
174
156
154
115
143
154
145
163
162
162
157
115
163
145

045
040
141
145
151
145
141
157
040
162
040
147
145
141
163

P.AJK:

116
174

045
040

P.AJL:

017150
017153
017156
017161
017164
017167
017172
017175

105
142
040
164
164
156
145
141

156
154
101
145
151
040
163
147

LASCII

141
145
164
156
157
115
163
145

/A /<176>

/us /

/Exc/
/ept/
Zion/

LASCII
.ASCI]
ASCII

<00><00>
/2INX/
/A/<1724>7 /

LASCII
.ASCI1
LASCI1
.ASCIl
.ASCII
LASCII
LASCIl
LASCII
LASCII
LASCI1
LASCI1
LASCI1
LASCIl
LASCI1
LASCII
LASCIl
LASCII
L.ASCII
JASCII

/s/7<00>
/3INZ/
/A/174>7 /
/Ena/
/ble/
7 Mi/
/sce/
/lla/
/neo/
/us /
/Err/
/or /
/tog/
/ Me/
/ssa/
/ges/
<00>
/XNX/
/A/<176>/7 /

LASCI1
LASCI1
LASCII
.ASCI1
LASCI1
LASCIl
LASCII
LASCI]l

SEQ 100

Paae 100
VAX-11 Bliss=16 V3=555
(35)
BO.BL1;10
R2:
.RELEASEJZROA
SUSE
[(DIETZ
DISK

/Ena/
/ble/
/7 At/
/ten/
/tio/
/n MW/
/ess/
/age/

‘.

OOOOOOOOOOCOOOOOOOOOOOOOOOOOOOOOOO00O

153
156
160
164
000
045

017037
017042
017045
017050
017053
017054

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

143
122
143
164

153
160
155
000

116
174
150
157
156

045
040
141
167
147

116
174
067

045
040
066

Bny

g Povug Pume

S
Pung Suneg Pung Bueg St $mgp Do S
Pumg Pump Sumg Prvng Sumg Dot B

g Gug Bt B By o Bump S S Smg e Onng Bumg Svmg Sneg Guvg Sung

Smg g Py o St o G
By, g P

Gy ueg P

e Bonep Gumep g Bt g sy g By Smg S B S

o
o
o
o
o
e
L]

o
o
o
8
o
e
.

3
»

et G

144

-AS
"AS

oW
oTM

Sro

b
-—d

VAX=11 Bliss=16 V3-555

SEQ 101

Page 101

BL1;10
2:
]ZROABO.
SER
[DIETZ .RELEASE
DISKSU

(35)

/Ena/
/ble/
/ 0t/
/her/
/ Ho/
/sts/
/ Er/
/ror/
/ Lo/
/g M/
/ess/
/aqge/
/$7<00>
/INY/

IA/<1746>/ /
/Ena/

/ble/
/ Th/
/is /
/Hos/
/ts /
/Err/
/or /
/Log/
/ Me/
/ssa/
/8es/
<00><00>

/IN%/
ITA/<176>/ /

/Con/
/tro/
/lle/
/r 1/
/nit/
/iat/
/ed /
/Bad/
/ Bl/
/ock/
/ Rp/
/lem/

/nt/<00>

<00>

/ANZ/

IA/<174>/ /

/Sha/
/dow/
/ing/
<00>
/XNX/

IA/<176>7 /
/576/

OO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO0O

154

g e S Gt $ug & -3 Bumg Bt g Sumug Bumg g Sy g Bt B

102

g g Sy P

040

.AS

164
164

144
141

157
145
m

Srung Suup g Sag Bng B Brme Bmg G

151
141

040
156

Puug Guumg Sumg B

162
154
040

045

g Gy Pumeg Sy $rug B

174
157

150

040
163
040
162
040
1647
145
1461
163

wvwuwmumumumunnm wnununmnunnnn w nuvvununnnnnwm wnnunwm
CAICICICICIMICICICICIOIOIOIOIOIOIOIICIOI
YOI OIOIOI OO YY) CIICICICICIICICICIICICICIOIMIICIOIOIO

000
116

141
145

163
157
163
162
182
157
115
163
145

065
040

124

115
163
145

>errr>>» ' 2

156
154

145
164
162
157
163
162
162
157

[

NWO

‘=

S NWVERO=ON

154
117
145
10
164
105
157
114
040
163
147
000
116
174

161

> 3>
2.2 0.4 > > >

PROTECTION TABLE

©o
0o
W

21=Jul21=Jul-

RD/RX EXERCISER
156

8
—-—bd wnd

017517
017522
017525
017530

017533
017536
017561

017544
017547
017552
017555
017560
017562

017565

017570
017573
017576
017601
017604

017607
017610
017613
017616
017621
017624

017627
017632
017635
017640
017643
017646
017651
017654
017657

017662
017665
017666
017671

017674
017677
017702
017705
017710
017713
017716
017721

017724
017726
017731
017734
017737
017742
017745

040
164
123
164

102
145
145
157

171
040
143
162
000
045

/ By/
/te /
/Sec/
/tor/

P.AJQ:

ASCI1
ASCI1
ASCIl
.ASCII
LASCI1
.ASCII
ASCII
ASCIl
LASCII
LASCII
LASCII
.ASCII

/Com/
/par/
/e R/
/ead/
/s/<00>
/INX/

163
045
101

000
116
174

101

174

045
040

P.AJR:

116
174
157
162
154
040
151
141
144
161
102
143
122
143
164

065
040
156
157
145
M
164
164
040
144
154
153
160
155
000

P.AJS:

116
174

045
040

P.AJT:

103
160
145
145
163
045

157
141
040
1461
000
116

103
160
145
162
145
000
045
101
103
164
154
162
156
151
145
102
040
157
040
154
156
000
045

157
141
040
151
163

m
143
166
123
144
040
164
156

156
164
145
150
157
123
040
151

101

000
045
101
122
157
142
040

000
116
174
145
166
154
115

040

155
162
122
144
155
162
127
164
000

LASCII

/A/7<174>7 /

ASCI1
LASCII
ASCII
LASCIL
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCI1
LASCII
LASCIL
LASCII
.ASCI1
LASCI]
ASCI1
LASCII
LASCII
+ASCI1
LASCII
LASCII
LASCI]
.ASCI1

LASCII

LASCI1
LASCII
LASCIL
ASCI1
LASCII
LASCII
LASCII
LASCIL

141
151
040
141
167
145
125
164

045
040
155
141
145
145

LASCII

/s/<00><00>
/INV/
/A/<176>7 /

P.AJU:

LASCII
,ASCII
LASCIL
LASCII
LASCII
LASCII
CLASCII

/Com/
/par/
/e W/
/rit/
/es/<00>
<00>
/INY/
/A/<174>/ /
/Con/
/tro/
/lle/
/e 1/
/nit/
/iat/
/ed /
/Bad/
/7 Bl/
/ock/
/ Rp/
/lem/
/nt/<00>
<00>
/XNX/

/A/<176>/ /
/Ina/
/cti/
/ve /
/Sha/
/dow/
/ Se/
U/
/t
/nit/

<00><00>
/XNZ/
/A/<174>/7 /
/Rem/
/ova/
/ble/
/ Me/

lelelolelslelisloleleloleoleoleleloleleleleleolelelola)

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

SEQ 102

Paae 102
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZROABO.BL1;10 (35)

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

1644
000
b)

017762
017765
017770
017773
17776
20001
020004
020007
020012
020015
020020

123
160
163
103
150
147
150
150
160
144
045

020026
020031
020034
020037
020042
020045
020050
020053
020056

123
160°
163
103
150
147
154
040
145

020023

020061
020064
020067
020072

020075
020100
020103
020106
020111
020114
020117

020122
020124
020127
020132
020135
020140
020143
020146
020151
020154
020157
020162
020164
020167
020172
020175
020200

101

164
142
153
156
055
154
151

051
045
101
127
164
120
164
164
150
144
162
000
045
101
127
164
120

1641

116
174
165
162
163
14.

045
040
160
145
040
143

151

101

051
045
101
127

151

050
147
163
145
000
045
040

000
116
174
162

000
045
040
151

145
141
040
157
166
141
154

000
116
174
162
145
162
145
040
141
167
145
000
116
174
162
145
162

/dia/
<00>
/INX/
/A/Z<174>7 /
/Sup/
/pre/
/ss /
/Cac/

LASCI11
ASCIl
LASCII
LASCI]1
LASCI1
.ASCII
LASCII

/g «/
/hig/
/h s/
/pee/
/7d)/<00>
/INX/
/A/<1746>7 7

LASCIl

156

040
151
040
145
051
116
174

165
162
163
161
151
040
157
163
145

P.AJV:

LASCI1
LASCII
L.ASCII
ASCIL
LASCII
.ASCI]
LASCI1
LASCI1

P.AJW:

ASCI1
ASCI]1
ASCI1
.ASCl]l
LASCI1
ASCI1
ASCI1
LASCI1
LASCI]

160
145
040
143
156
050
167
160
144

P.AJX:

055
143
050
156
157
164
145

045
040
151
040
15?
143
050
162
141
051

P.AJY:

045
040
151
040
157

P.AJZ:

LASCII
JASCI1
LASCII
LASCII

LASCII
.ASCII
ASCII
LASCI1
LASCIl
LASCII
LASCI1
LASCII
LASCI1

LASCII
JASCII

LASCII
LASCI1
LASCII
LASCII
LASCI1
LASCII1
LASCII

LASCII
L.ASCII
.ASCI1
LASCII
LASCII
LASCI1

Page 103
VAX=-11 Bliss=-16 Vv3-555
DISKSUSER2: (DIETZ.RELEASEIZR0OABO.BL1;10 (35)

/hin/

/Sup/
/pre/
/ss /
/Cac/
/hin/
79 (/
/low/
/ sp/
/eed/

7)7<00><00>
/INX/
/7A/<174>/ /
/Mri/
/te=/
/bac/
7k (/
/non/
/=-vo/
/lat/
/Zile/
/7)/<00>
/INX/

/A/<174>/7 /
/wri/
/te /
/Pro/
/tec/
/t (/
/har/
/dwa/
/re)/
<00><00>
/INX/
/A/§174>/ /
/Wri/
/te /
/Pro/

OOONOOOOOOOOOOOO0OO

017750
017753
017754

017757

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RN/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

SEQ 103

020203
020206
020211
020214
020217
020222
020225
020230

164
164
163
164
162
157
166
165

020233
020236
020241
020244

051
045
101
065

020263
020266
020271

163
045
055
125
105
000
045
055
116
114
040
115
116
123
126
040
156
114
157
156
155
151
151
105
114
120
040

020247
020252
020255
020260

020274
020277
020302
020304
020307
020312
020315
020320
020323
020326
020331
020334
020337
020342
020345
020350
020353
020356
020361
020364
020367
020372
020375
020400

020403
020406
020411

020414
020417
020422
020425
020430
020433

020436

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

040
164
123
164

144
045
055
117
105
117
101
M
102
000

145
040
157
167
165
162
157
155

000
116
174
067

102
145
145
157

000
101
040

103
123
000
101
040
126
m
103
115
104
105
105
156
m
105
162
157
145
141
146
130
103
122
143

021
101
040

040
107
116
126
114
114

000

143
050
146
141
040
040
154
145
000
045
040
066
171
040
143
162
000
040
123
103
123

040
m
101
104
117
101
050
122
122
157
104
040
040
040
144
049
040
055
055
107
155

000
040
116
122
11
040
101
101
105

P.AKA:

P.AKB:

P.AKC:

P.AKD:

LASCIL
JASCIL
.ASCI]
LASCI1l
.ASCI1
LASCILl
LASCIL
LASCIL
LASCIL
_ASCI]
ASCIL
LASCIL
LASCI1
ASCIL
LASCIL
.ASCILl
LASCII
.ASCIl
LASCI1
LASCI1
.ASCI1
LASCII
.ASCII
LASCIL
LASCIL1
LASCII
LASCII
LASCII
.ASCIIl
LASCI1
ASC11
.ASCII
LASCII
JASCII
LASCII
LASCIl
.ASCIl
LASCIL
LASCIL
LASCIL
LASCIL
.ASCI1
LASCIL
LASCII
.ASCII
LASCII
.ASCII
LASCI1
.ASCII
LASCI1
LASCII
LASCI1
LASCII

/tec/
7t (/
/sof/
/twa/
/re /
/or /
/vol/
/ume/
7)/7<00><00>
/INYV/
/A/<176>7 /
576/
/ By/
/te /
/Sec/
/tor/
/s/<00><00>
/%A /
/= S/
/UCC/
/ESS/
<00><00>
/%4 /
/- 1/
/NVA/
/L1D/
/7 €O/
/MMA/
/ND(/
/SER/
/VER/
/ no/
/nlD/
/LE /
/or /
/mo /
/med/
/ia /
/it /
/EX</
/LC=/
/PRG/
/ cm/
/d)/<00>
/XA /
/= N/
/0 R/
/EGI/
/ON /
/AVA/
/ILA/
/BLE/
<00><00>

SEQ 104

Page 104
VAX=11 Bliss=16 v3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (35)

020440

045

101

04V

105
101

000
040

020443
020446
020451
020454
020457
020462

055
117
105
117
123
124

040
040
107
116
125
101

020473
020476
020501
020504
020507
020512
020515
020520
020523
020526
020531
020534
020537
020542
020545
020550
020552
020555
020560
020563
020566
020571
020574
020577
020602
020605
020610
020613
020616
020621
020624
020627
020632
020635
020640
020643
020646
020631
020654
020657
020662
020665
020670
020673

055
122
122
040
124
116
116
116
123
110
122
122
040
040
104
051
045
055
117
040
m
122
050
120
040
122
040
m
040
101
116
120
107
115
045
055
124
104
117
040
124
104
117
040

040
117
101
116
040
117
040
117
125
040
117
101
117
115
m
000
101
040
101
106
114
105
11
125
105
117
127
114
114
104
107
122
122
051
101
040
101
101
116
050
101
101
116
115

020465
020470

21-Jul=-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMT
v01.2

114
045

116
122
M
040
1M1
102

120
107
115
117
113
127
050
040
103
120
107
115
116
105
101
040
114
104
101
125
040
116
124
122
122
110
105
117
1M
040
117
101
000
040
123
116
114
105
123
116
114
105
117

P.AKE:

.ASCII

/3A /

P.AKF:

.ASCI1
LASCII

/LE/<00>
/XA /

P.AKG:

P.AKH:

LASCII
.ASCII
LASCIl
LASCII
LASCII
LASCI1

JASCII
.ASCII
LASCI1
JASCII
LASCII
JASCII
LASCII
.ASCI1
LASCII
JASCI1
LASCII
LASCII
JASCII
JASCII
LASCI11
LASCI1
.ASCII
CLASCID
+ASCI1
JASCI1
LASCIL
LASCI1
LASCII
LASCII
LASCI1
+ASCII
JASCII
CJASCII
JASCII
LASCI1
LASCII
.ASCII
+ASCIIl
LASCIT
.ASCII
LASCII
LASCI1
+ASCI1
.ASCII
LASCIL
LASCII
.ASCII
LASCII
LASCI1

/= N/
/0 R/
/EGI/
/ON /
/SUl/
/TAB/

/= P/
/R0G/
/RAM/
/7 NO/
/T K/
/NOW/
/N (/
/NO /
/SuC/
/H P/
/ROG/
/RAM/
/7 ON/
/ ME/
/DIA/
/)/<00>
/XA /
/= L/
/0AD/
/ FA/
/ILU/
/RE /
/(IN/
/PUT/
/ ER/
/ROR/
/7 WH/
/ILE/
7/ LO/
/AD1/
/NG /
/PRO/
/GRA/
/M) /<00>
/XA /
/= §/
/TAN/
/DAL/
/ONE/
/ _(S/
/TAN/
/DAL/
/ONE/
/7 MO/

SEQ 105

Paae 105
VAX-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL1;10 (35)

21=Jul=1983 15:25:58

RD/RX EXERCISER

21=Jul=1983 15:19:20

PROTECTION TABLE

104
1M
040
124
120
1M1
105
106
040
"M
VA
117
040
107

000
045
101

117
040
162
162
164
040
155
000
045
101

M
105
116
040
105
106
104
117
123
116
101
116
120
056

000
116
174

156
123
166
040
040
124
145

106
122
117
123
103
m
040
122
1264
104
114
105
122
051

045
040
145
145
145
141
141

151
000

116
174

045
040

141

151

157

156
1164
141

163
157
154

040
143
040

116
174

045
040

151
125

163
116

115
151
000
045
101

145
161

105
143
145
157
154
162
143

170
165
040
143
040
147
155

123
120
124

125
117
105

040
040

000
045
101
103

000
116
174
165

P.AKJ:

/One/
/ Se/
/rve/
/r o/
/t a/

ASCII
LASCII
LASCII
L.ASCII
LASCI1

LASCI1
LASCII1
ASCI1

P.AKK:

145
164
114
141
120
040
164

.ASCI1]
LASCI1
LASCII
LASCII
LASCI1

P.AKL:

<00><00>
/3INX/
/A/<176>/ /

/7 Ti/
/me/<00>
<00>
/ZXINX/
70/<174>7 /
/Con/
/tei/
/ns /
/lLoc/
7al /
/Hed/
/ia/<00>
<00>
/XNX/

/A/<176>/7 /

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCI1

/Exe/
/cut/
/e L/
/oca/
/L P/
/rg /
/cmd/

LASCII
LASCII
JASCI1

/SuP/
/POR/
/TED/

ASCII
LASCI1

120
122
104

162

.ASCI]1
ASCl]l
LASCII
ASCI1
LASCII

LASCII
.ASCI]l
LASCI1

ASCII

144
000

045
040

/DIF/
/IER/
/7 TMYy
/T S/
/PEC/
V/IFl/
V/ED /
/FOR/
7 SU/
/AND/
/7 AL/
/ONE/
/ PR/
/G.)/

LASCI]

156

103

164

P.AKI:

LASCI1
LASCI]
LASCII
LASCII
.ASCII
ASCI1
.ASCI1
.ASCI1
LASClI
LASCII
ASCII
.ASCJ]
.ASCI1
ASCI1

JASCII
LASCI]
ASCII

LASCI1

7/ s/
/ UN/

<00><00>
/INX/
/A/Q176>7 /
/Cur/

VAX=11 Bliss=16 Vv3-555

SEQ 106

Page 106

DISKSUSERZ:[D!ETZ.RELEASEJZROABO.8L1:18 (35)

—
- a

021127
021132
021135
021140
021143
021146
021151
021154
021156

021161

021164
021167
021172
021175
021200
021203
021204

162
164
040
040
164
145
164
145
045

101

123
156
154
145
162
000
045

P.AKM:

LASCI1
CASCII
ASCII
LASCIL
LASCIL
LASCII
LASCIL
ASCI1
_ASCII

P.AKN:

LASCII
.ASCI1l
LASCI1
LASCI1
.ASCII
.ASC1]
.ASCII

045
040
145
040
151
141
145
145
141
145
166
154
000

P.AKO:

LASCII
.ASCI1
LASCI1
LASCI1
LASCII
.ASCII

116
174
163
040
144
165
104
154
073
105
123

045
040
145

P.AKP:

.ASCI1
LASCIL
LASCIL
LASCII
.ASCI1
.ASCI1
.ASCI1
LASCI1
LASCII
LASCI1
LASCII
LASCII
.ASCII

105

103

145
154
151
101
151
040
1461
000
116

174

164
144
157
040
147

156
171
156
143
166
123
164

045
040
141

161
156
120

000

116

045

116
144
157
162
17
045

145
163
166
154
090
116

145
040
145
161

021236
021241
021244
021247
021252
021255
021260
021263
021266
021271
021274
021277
021300

116
144
127
164
142
057
141
142
040
145
141
000
045

145
163
162
145
154
122
144
154
117
162
17

021311
021314
021317
021322
021325

163
164
104
040
141

021333
021336

122
057

021344
021347
021350

122
000
045

021207

021212
021215
021220
021223
021226
021230

021233

021303
021306

021330

021341

021353

21=Jul=-1983 15:25:58
21-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMT
v01.2

101

101
125

147

116
101

174

040

103
105

116
on

045
052

LASCID

LASCII
LASCII

.ASCl1I

040

057

LASCII

ASCIL
LASCII
LASCI1
LASCII
LASCI1

123
040
160
151
157

104

ASCIL

P.AKQ:

LASCI1
LASCI1
.ASCI1
LASCII
LASCI1
.ASCII
LASCIT

/ren/
/tly/
/7 in/
/7 Ac/
/tiv/
/e S/
/tat/
/e/<00>
/INX/
/A/<174>/ /
/Sta/
/nda/
/lon/
/e P/
/r8/<00>
<00>
/INX/
/7A/<174>/ /
/Nee/
/ds /
/ove/
/rla/
/y/<00>
/ANX/
/A/<174>7 /
/Nee/
/ds /
/¥ri/
/tea/
/ble/
<57>/Re/
/ada/
/ble/
/7 Ov/
/erl/
/ay/<00>
<00>
/INX/
/A/<174>/ /
/Use/
/s S/
/td /
/Dup/
/ Di/
/alo/
/g: /
/REC/
<57>/SE/

/ND/<57>

/REC/
<0M>
/XNX/
/A/<11>/¢/

SEQ 107

Page 107
VAX-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1;10 (35)

°—l—l—.—l—l—‘°—l°°-l-l°—h2

021356

021602
116
040

045
055

114

114
107
040
11
&

116
102
000
¢

040
115
122
¢

P.AKW:
&

045
055

116
040
&6

P.AKV:

105
101

045
052
123
103
114

m
105
114
116
o

101
105
117
&

106
.

045
052

045
052
P.AKT:

CO=O=O— CO—=O
=2 P
== OSSN F =
=
O=O0ONO
N O=OO—=0NO

12
1
1

P.AKS:

0N
04

on
040
106

045
052
m
117
101
117

115
11
000
116

121
123
117
000
045
052
104
101

114
121
123
117
000
116

040
105
11
000
116
01
040
106
P.AKR:

124
125
124
116

124

115
101
117

P.AKU:

P.AKX:
&

St Pemuap

g Gunng g ey P

Sy G

Suug Gumeg S Smg S

Bug B

g Sumg ey G

Gt Sun) Suumg B

$eg

g Bumg S

g Bomg g

g Bumg Sug gt Sumg Pt Pueg ump S

Pumg B

Smag) B

g Sumg

CICICICICICIICIOIICIICIOIOICICICICICIIOIOIIOIOIOIONOD 2 lalatlzlalalal EIICICIIICIIOIICICIIICIOND

7 NLLLVOLLLNLIVLINVLBLLLLKLLLINLLILKHLLL

Pr DL EEEEEIIIEEE®
SITIITLITSY
> > P>>>>>>>aIdEBDBDEDD» INNV
(Y X7 X7 X7 Xt N7 e X e X e X e X X7 e X 7 X 7 R 70 R 7 R 7 X 7 XV, ]
e

deded e DDt et b QDb O = b
= O =2
=0
=NV
NN =OVOH =)= OVION =N =2VNOHO=O/NOWVO
SO QOMNININIO
= & OHO=NWVO
NN
==
OB
=VIN
=V
B
NN
= NO = NO WM
=W O
Q=2 OV
V=N O=2WNO 0O
=W

ZRQAM
v01.2
RD/RX EXERCISER
PROTECTION TABLE

VAX=-11 Bliss=16 V3-555
DISKSUSERZ:[DIETZ.RELEASE

/N/<00><00>
/INX/
¢/
IA/<11>/

/110/

/~ D/
/EFA/
/ULT/
/ QU/
/EST/
/1ON/

<00><00>
/INX/
v/
IA/<11>/
/* 1/
/NFO/
/RMA/
/T10/

/N/<00>
/INY/
IA/<11>/¢/
/t 1/
/ERM/
/INA/
/T10/

/N/<00>
/INX/
IA/<11>/«/

/% S/
/PEC/
/1AL/
<00>

IA/<11>/«/

/INZ/

/A =/
/ 1L/
/LEG/
/AL /
/UNI/
/T N/
/UMB/

/ER/<00>

JZROA80.8L1:18 (35)

Page 108

SEQ 108

g Sy
By Suneg Sumg Gumg
S
S

o)Soug Gump B

P.AKZ:

it Gt

055

045

ol ol ol

P.AKY:

Y P

g B

105
040
116
124
105
101

000

105

045
055
105
103
105
117

132
117
105
110
115
123

107
040
131
103
040
040
114
M
040
117
040
115
122

S B

105
114
110
m
114
122
105
124
105
114
113
125
105
000
116
040
104
1M1
040
122
000
116
040

ey ey ey Y T

ONIORWNION
= NI N=NO =

b e
b d b d b e e wad ok
ob
=
Qo O=0O0ONON-ONNO

021605
021610
021613
021616
021621
021624
021627
021632
021635
021640
021643
021646
021631
021654

045
055
116
055
123
G40
106
115
111
000
045

040

055

B
Sy et S

116
040
040
116
103
m
116
122
124
116
116

.ASC

.ASC
P.ALB:

115
11

(]
o S

040

111
117
101
117
000

103

P.ALC:

.AS

040
106

EIOIIICICICICICICIOIONDY
e S S
g S Sy (g S
g B B
g B S

055
101

040
040

P.ALA:

[7]

045

NOON SN0 =N
AN = N =D ek b NN

022033

(D) b b b b e

b =B (D = OO —d b b

b =2 O

e O = NOH O =N = =20
o BNttt

116

/LEG/
/AL /
/PHY/
/51C/

/AL /
/0R /
/REL/
/AT1/
/VE /
/8L0/
/CK /
/NUM/
/BER/
<00><00>

/INX/

/A =/
/ DE/
/VIC/
/E E/
/RRO/

/R/7<00>

/INY/
/A =/
/ 1€/
/RO /
/LEN/

/GHT/
/ ME/

/SSA/

/GE/<00>

<00>

/IN%/

/A =/
/= A/
/SC1/
/1 1/
/NFO/
/RMA/
/110/

/N /7<00>

<00>
/XNX/
/A =/
/= N/
/ON=/
/ACS/
/11 /
/IME/
/0RM/
/AT1/

/0N/<00>
/XNX/
/A =/

roW
oTM

VAW

-—b ed

21=Jul=1
21=Jul-1

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

9
00
oo
W

VAX=-11 Bliss=16 V3=555
DISKSUSER2:(DIETZ.RELEASE

SEQ 109

Page 109

18 (35)
JZROABO.BL1:

022036
022041
022044
022047
022052
022055
022060
022063
022064
022067
022072
022075
022100
022103
022106
022111
022114
022117
022122
022125
022130
022133
022136
022141
022144
022147
022152
022154
022157

055
105
11
124
116
105
101
000
045
101
0SS
125
105
057
m
122
103
105
045
101
055
105
040
116
131
101
000
045
101

022207
022212
022215
022220
022223
022224
022227
022232
022235
022240
022243
022246
022251
022254
022257
022262
022265

105
1264
105
102
000
045
101
055
105
040
1R A
116
102
054
105
124
105

022162
022165
022170
022173
022176
022201
022204

21=Jul=1983 15:25:58
21~Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAM1
v01.2

055
105
040
m
116
102
054

040
122
116
111
040
123
107

124
115
101
117
115
123
105

116
040

045
055

106

101

040
103
123
114
105

117
000
116

040
040
116
102
101
040
124
000
116
040
040
116
125
124
125
105
040
114
AR
040

116

116
040
040
116
125

124
125
105
040
114
m
040

P.ALD:

LASCII
LASCI]
LASCII
LASCI1
LASCIl
LASCII1
LASCI]
LASCII
.ASCII
LASCII

LASCIL
LASCII

LASCII
LASCI1
.ASCI]
.ASCI1
LASCI]
LASCII
LASCII
ASCI1
L.ASCII
LASCI1
LASCI1
LASCI1
.ASCI1
LASCIT
LASCI]
LASCIl
LASCI]l
LASCI1
LASCI1
LASCI]1

/A =/
/- S/
/END/
/ 81/
/NAR/
/Y D/
/ATA/
<00><00>
/ZINX/
/A =/
/- S/
/END/
/7 UN/
/1T /
/NuM/
/BER/
/, R/
/ELA/
/T1V/
V/E D/

LASCI1

125
040

P.ALE:

123
104
1M
122
104
10

045
055
123
104
116
040
115
122
122
101
126
104

P.ALF:

045
055
123
104
116
040
11§
122
122
101
126
104

P.ALG:

000

/= 1/
/ERM/
/7INA/
/T10/
/N W/
/ESS/
/AGE/
<00>
/XNX/
/A <=/

/7= S/
/uCC/
/ESS/
<S57>/FA/
7ILW/
/RE /

LASCII
LASCII
LASCI1

123
103
123

1064
000
045
055

LASCI]
LASCI1
.ASCII

LASCII
LASCI]
.ASCI]
ASCIL
LASCIl
LASCI1
LASCI]
LASCIL
LASCII
LASCI]
ASCI1
LASCI]
LASCID
LASCI1

/C0D/
/7E/<00><00>
/XNX/

/BN/<00>
<00>
/INX/
/A =/
/= S/
/END/
/7 UN/
/1T /
/NUM/
/BER/
7/, R/
/ELA/
/T1IV/
/E D/

SEQ 110

Paae 110
VAX=11 Bliss=16 V3=555
BO.BL1:10
R2: (35)
.RELEASEJZROA
SUSE
[DIETZ
DISK

022270
022273
022276
022301
022304

022307
022312

022315
022320
022323
022326
022331
022334
022337
022342
022345
022350
022353
022356
022361
022364
022367
022372
022375
022400
022403
022406
022411
022414
022417
022422
022425
022430
022433
022436
022441
022444
022447
022452
022454
022457
022462
022465
022470
022473

022476

102
040
1M
040
124

122
045

101
055
105
040
m
116
102
054
110
m
114
114
113
125
105
045
101
055
105
040
m
116
102
054
117
103
040
114
113
125
105
000
045
117
122
114
040
115

125

022501
022502
022505
022510

000
045
116
114

022516

101

022513
022521

21=Jul=-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

116
127
124
120
124

116
116

040
040
116
125
124
125
105
040
131
103
040
17
040
115
122
116
040
040
116
125
124
125
105
040
107
101
040
117
040
115
122
000
101
116
117
105
124
105

054
122
105
101
105

000
045

055
123
104
116
040
115
122
120
123
101
102
103
116
102
000
045
055
123
104
116
040
115
122
114
m
114
102
103
116
102
040
103
124
114
122
111
117

124

000

101
126
117

105
105
120

103

113

105

057

105

1264

120

040

P.ALH:

P.ALI:

P.ALK:

+ASCI1
LASCI1
ASCII
+LASCI1
LASCII

/BN,/
/7 WR/
/ITE/
/ PA/
/TTE/

LASCIL
LASCIl
LASCII
LASCII
JASCII
JLASCII
.ASCI1
LASCIL
JASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCI1
.ASCII
ASCII
LASCII
LASCII
LASCIL
.ASCI1
LASCI1
+ASCI1
LASCI1
+ASCI1
ASCII
LASCII
LASCI1
JASCII
LASCI1
.ASCI1
.ASCI1
.ASCII
LASCII
.ASCI1
LASCI1
LASCI1
+LASCI1

/A =/
/= S/
/END/
/7 UN/
/1T /
/NUM/
/BER/
/, P/
/HYS/
/1CA/
/L 8/
/L0C/
/K N/
/umMB/
/ER/<00>
/INX/
/A =/
/= S/
/END/
/7 UN/
/1T /
/NUMN/
/BER/
7/, L/
/0Gl1/
/CAL/
/ B/
/L0C/
/K N/
/uMB/
/ER /
<00><00>
/XAC/
/ONT/
/ROL/
/LER/
/ T1/
/MEO/

ASCI1
.ASCII

LASCII

P.ALL:

LASCII
.ASCI1
LASCII
.ASCI1

ASCII
LASCI1

LASCII

/RN/<00>
/INX/

/UT/<00>
<00>
/XAE/
/NVE/
/LOP/

/E/<57>/P/
/AT

€T/

SEQ 111

Page 111
VAX=-11 Bliss-16 V3-555
(35)
1;10
SEIZRQABO.BL
[DIETZ.RELEA
DISKSUSER2:

022524
022527
022532
022535
022540
022543
022546
022551
022554
022557
022562
022564
022567
022572
022575
022600
022603
022606
022611
022614
022617
022622
022625
022630
022633
022636
022641
022644
022646
022651
022654
022657
022662
022665
022670
022673
022676
022701
022704
022707
022712
022714
022717
022722
022725
022730
022733
022736
022741
022744

122
104
122
122
120
1M
040
040
115
125
000
0645
116
114
105
101
105
127
124
105
117
050
122
13
122
m
117
051
045
117
122
114
040
115
116
122
040
122
131
122
122
045
17
122
114
040
115
101
124
105

105
040
122
040
101
124
117
124
105
124
000
101
126
117
057
103
124
122
105
122
122
120
1M1
040
040
115
125
000
101
116
117
105
122
040
104
101
120
11
040
122
000
101
116
117
105
122
040
122
131
122

101
105
117
050
122
131
122
m
117
051

022752
022755

045
117

101
116

022747

21=Jul=-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMY
v01.2

117

122

105
105
120
120
113
040
M
040
122
040
101
124
117
124
105
124

P.ALM:

103
124
114
122
117
101
040
115
101
124
105
17

P.ALN:

103
124
114
122
101
120
m
040
122

P.ALO:

103
1264

P.ALP:

000

LASCI1
LASCI1
.ASCI1
.ASCI1
.ASCII
JLASCII
LASCII
LASCILI
LASCII
LASCI1
LASCI]
.ASCII
JASCII
+LASCI1
LASCI1
LASCII
JLASCII
.ASCII
LASCII
+ASCI1
+LASCII
LASCII
LASCII
JASCILI
+ASCII
LASCI1
JASCII
LASCII
.ASCII
<ASCII
+ASCII
+LASCII
LASCII
LASCI1
+ASCI1
LASCI1
LASCII
JASCII
LASCII
+ASCI1
.ASCII
.ASCIl
LASCI1
+ASCI1
+JASCII
LASCII
LASCI1
LASCII
LASCILI
+ASCI1

/REA/
/D E/
/RRO/
/R (/
/PAR/
/1TY/
/ OR/
/7 T1/
/MEQ/
/Un)/
<00><00>
/XAE/
/NVE/
/LOP/
/E/<57>/P/
/ACK/
/ET /
/WRl/
/TE /
/ERR/
/OR /
/(PA/
/RIT/
/Y O/
/R T/
/IME/
/0UT/
/)/<00>
/XAC/
/ONT/
/ROL/
/LER/
/ RO/
/M A/
/ND /
/RAM/
/ PA/
/RIT/
/Y E/
/RRO/
/R/<00>
/XAC/
/ONT/
/ROL/
/LER/
/ RA/
/M P/
/ARl/
/1Y /
/ERR/

.ASCII
LASCII

/XAC/
/ONT/

.ASCII

/OR/<00>

SEQ 112

Paae 112
VAX=11 Bliss=16 V3-555
(35)
1;10
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL

022760
022763
022766
02277
022774
022777
023002
023005
023010
023013
023016
023021
023024
023027
023032
023035
023040
023043
023046
023051
023G:4
023056
023061
023064
023067
023072
023075
023100
023103
023106
023111
023114
023117
023122
023125
023126
023131
023134
023137
023142
023145
023150
023153
023156
023160
023163
023166
023171
023174
023177
023202
023205
023210

21-Jul=-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMT
v01.2
122
114
040
115
101
124
105
117
045
m
040
101
105
117
050
122
131
122
m
117
051
045
11
040
11
040
122
040
101
124
117
124
105
124
000
11
105
125
040
123
122
101
125
000
045
117
040
103
123
111
117
040
m

117
105
122
040
122
131
122
122
101
116
122
104
122
122
120
111
040
040
115
125
000
101
116
127
124
105
117
050
122
13
122
111
117
051

114
122
117
120
1M1
040
122
000
122
107
105
040
122
040
101
124
117
124
105
124
122
107
122
105
122
122
120
m
040
040
115
125
000

P.ALR:

116
122
120
115
124
040
11
122
000
101
123
101
105
040
115
125
050
107

124
122
124
101
105
106
114
105

P.ALS:

110
124
103
123
124
105
124
110
110

P.ALT:

P.ALQ:

LASCII
+ASCI1
.ASCI11
JASCII
.ASCI1
LASCIL
+ASCI1
.ASCII
.ASCIIl
+ASCII
LASCII
LASCII
+ASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCI1
LASCII
.ASCIl
ASCI1
JASCII
LASCII
LASCII1
+ASCI1
JASCII
.ASCI1
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCIT
.ASCII
.ASCI1
LASCII
LASCII
LASCII
.ASCI1
LASCI1
.ASCI1
.ASCII
(ASCII
ASCII
LASCII
LASCII
LASCI1
JASCII
LASCII
JLASCII
LASCII

/ROL/
/LER/
/ RO/
/M P/
/ARl/
/1Y /
/ERR/
/OR/<00>
/XAR/
/ING/
/ RE/
/AD /
/ERR/
/OR /
/(PA/
/RIT/
/Y O/
/R T/
/IME/
/0UT/
/)/<00>
/XAR/
/ING/
/ WR/
/ITE/
/ ER/
/ROR/
/7 (P/
/ARI/
/7Y /
/OR /
/TIM/
/EQU/
/T7)/<00>
<00>
/INT/
/ERR/
/UPT/
/7 MA/
/STE/
/R F/
/AlL/
/URE/
<00><00>
/XAH/
/0ST/
/ AC/
/CES/
/S 1/
/IME/
/0UT/
7/ (H/
/IGH/

SEQ 113

Page 113
VAX=11 Bliss=16 v3=555
(35)
1;10
SEJZRQABO.BL
DISKSUSER2: [DIETZ.RELEA

023213
023216
023221
023224
023227
023232
023235
023240
023243
023246
023250
023253
023256
023261

105
114
105
120
124
117
104
105
105
051
045
122
m
114

122
105
114
122
117
114
105
11¢
116
000
101
105
124
m

040
126
040
117
103
040
120
106
126

023275
023300

105
045

104
101

000
121

c 3264
023267
023272

023303
023306
023311
023314
023317
023322
023325
023326
023331
023334
023337
023342
023345
023350
023353
023356
023360
023363
023366
023371
023374
023377
023402
023405

023410
023413
023414
023417
023422
023425
023430
023433
023436
023441

21=Jul=-1983 15:25:58
21-Jul=-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMT
v01.2

m
105
105

055
123
101
105
105
117
000
045
117
122
114
040
124
040
122
000
045
116
122
124
116
117
040
115

125
000
045
114
107
040
122
101
103
103

124
130
105

102
040
123
122
122
122

103
104
040
115

P.ALU:

.ASCI]
ASCI]
LASCI1
.ASCI1
LASCII
.ASCIIl
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCI1
LASCIT
LASCIL

/ER /
/LEV/
/EL /
/PRO/
/T0C/
/0L /
/DEP/
/END/
/ENT/
7)/<00>
/ZAC/
/RED/
/1T /
/LIM/

.ASCI1
.ASCII

/ED/<00>
/XAQ/

LASCID
LASCII
LASCII

040
103
104

125
115
126
040
122
000

P.ALV:

101
116
117
105
106
101
105
117
000
101
123
125
m
040
117
1242,
105

103
124
114
122
101
114
122
122

P.ALW:

P.ALX:

124

m
124
103
117
114
120
111
117
000

101
114
101
126
124
114
11
125

m
105
114
1
125
040
122
m

P.ALY:

LASCII
LASCII
LASCI1
LASCII
.ASCI1
.ASCI1
LASCII
.ASCII
+ASCI1
LASCII
JASCI1
LASCI1
LASCII
LASCII
.ASCI1
LASCII
.ASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCII

LASCII
LASCII
(ASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
.ASCII
LASCID

SEQ 114

Page 114
VAX=11 Bliss=16 v3-555
0 (35)
ABO.BL1;1
DISKSUSER2: [DIETZ.RELEASEIZRQ

/1T /
/EXC/
/EED/

/-BU/
/S M/
/AST/
/ER /
/ERR/
/0R/<00>
<00>
/%AC/
/ONT/
/ROL/
/LER/
/ FA/
/TAL/
/ ER/
/ROR/
<00><00>
/XAl/
/NST/
/RUC/
/T10/
/N L/
/00P/
/7 T1/
/MEO/

/UT/<00>
<00>
/XAl/
/LLE/
/GAL/
/7 V1/
/RTU/
/AL /
/CIR/
/CUl/

RD/RX EXERCISER
PROTECTION TABLE

023452
023455
023460
023463
023466
023471
023474
023477
023502
023505
023506

045
116
122
120
126
124
040
114
101
000
045

023530

057

023566
023571
023572
023575

105
000
045
101
124
101
105
122
105
117
040
040
116
117
101
105
117
122
114
000
045
117
122
114
040

023511
023514
023517
023522
023525

023533
023536
023541
023544
023547
023552
023555
023560
023563

023600
023603
023606
023611
023614
023617
023622
023625
023630
023633
023636
023641
023644
023647
023652
023655
023656
023661
023664
023667

023672

040

000

101
124
122
126
105
117
m
105
114
101

000

m
105
125
040
103
122
114
107
000

P.ALZ:

115

P.AMA:

101
124
101
105
105

m
105
116
040
101

116
116
103
122
104

1M
040
126
11
122
111
040
105
m

124
11
101
104
105
117
m
116
106

105
116
114
040
107
116
104
124
11

101
"
105
116
040
11
040
101
124
116
055
101
102
040
116
17
105

115
116
116
103
127
124
114
104
117
117
114
104
114
103
124
114
122

P.AMB:

101
116
117
105
122

103
124
114
122
101

P.AMC:

127

122

000

LASCIL

/T 1/

.ASCI]
LASCII
LASCIIl
LASCI1
LASCI1
.ASCI1
LASCIL
LASCII
LASCI1
LASCII
ASCII
LASCIL
LASCII
LASCII
+LASCI1
+LASCI1
LASCII
LASCILI
LASCII
LASCII
LASCI1
LASCIIl
LASCI1
JLASCII
JASCII
LASCIL1
.ASCII
LASCII
ASCIl
LASCI1
LASCII
.ASCII
LASCIL
LASCI1
+LASCII
LASCII
LASCI1
LASCI1
LASCII
.ASC11
ASCI1
.ASCI1
+ASCI1
+ASCI1
LASCI1
LASCII
.ASC.I
LASCII
.ASCI1
LASCI1
LASCII

/XAl/
/NTE/
/RRY/
/PT /
/VEC/
/TOR/
/7 IL/
/LEG/
/AL/<00>
<00>
/3ANW/
/AIN/
/TEN/
/ANC/
/E R/
/EAD/
<57>/WR/
/ITE/
/ IN/
/VAL/
/1D /
/REG/
/ION/
/7 1D/
/ENT/
/IFl/
/ER/<00>
<00>
/XAM/
/AIN/
/TEN/
/ANC/
/E W/
/RIT/
/E L/
/0AD/
/ T0/
/ NO/
/N-L/
/0AD/
/ABL/
/E C/
/ONT/
/ROL/
/LER/
<00>
/XAC/
/ONT/
/ROL/
/LER/
/7 RA/

.ASCI1

/D/<00><00>

Qe 9 %¢ %e 0

126

104

s &,

023444

SEQ 115

Page 115
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BLY; 10 (35)

®a®aBeBaBe s

IRQAM
v01.2
023447

21-Jul-1983 15:25:58
21=-Jul=1983 15:19:20

023675

023703
023706
023711
023714
023717
023722

023744
023747
023750

024111
24114
026117
024122

024125

€ b —h e

g D@ Bt Buug g Sy Bumg g e

g Smg g Bumg Gumg Sueeg Sy D Bemg e Sy B Dng Srmg S Soneg Sy g B

g S

NNVVWNMEA=LOM=0O0N [V,]

-t
b i b i i ) = wd ek O b NNOCOON=ONO
=N— (=

g By Bump e St Gumng P G Dy B Gt Pueg G Gty S P S $reg Pup G

NP =OWOWNOCOOO

d e b d b Db O e d ) e O b o
=
NN =N o PO=INE

b e e o b e b e b o D d b ad b
e D d cad ad \h-‘N—‘l*N?
O b b =D O =
—=ON=SN—=—=aN)—=ONOO
—=0OO0ONN=C
NYNS
v NSO
= NN
= = b = O YO N O

RD/RX EXERCISER
PROTECTION TABLE

/ROR/
<00>

/%AP/
/URG/

/E/<57>/P/

/0LL/
/ HA/
/RDW/

/ FA/
/1LY/

/ARE/

/RE/<00>

o
[=1.
)

O\WN©

[V
1V

—d

(=1
W

21=Jul=19
21=Jul=19

Paac 116
VAX=11 Bliss=16 v3-555
DISKSUSER2: [DIETZ.RELEASEJZRQOABO.BLT; 10 (35)

SEQ 116

/M E/
/RR0O/
/NON/
/=PA/
/RIT/

/R (/

/Y)/7<00>

/%A1/
INIT/
/ SE/
/QUE/
/NCE/
/ ER/
/ROR/
<00>
/XAH/
/1GH/
/ER /
/LEV/
/EL /
/PRO/
/710C/
/0L /
/INC/
/0MP/
/AT]1/
/8IL/
/1Tv/

/ ER/

4
|
--.-.c.-.c.-.c.............n..a'-.....o.o.o...oM“““N“““““.&“.ounog.‘.o.c‘oo- 2005 0e0s 00000 0,

St S

NN = O WINAN N N O VIO VN == VN~ =~ S ONG

b € b b b o nd md e b =d
- —h ) b b b b ek o
NNV =8O NNVOONI=ONOONO=NON)

OHNOONIO—
—2 O
=2 NI — NOO=2WVMEONSCHRNMN=

IROAMI
v01.2

beN
b NOO=ONO
b b wd kb b b b =
b wd ONING
b b

bbb
ed ed (D e b Dk b O =t O = L Qb OO = = = b cd b b = taded ek ad OO O b = Ot O =t =d O b wcd =d b
o—'QOJ‘NOJ\—'OJ\N—ll*ONl\—'ONJ\ONb—OOO—‘—'—'NNO—‘O—‘J‘ONJ‘—'NJ‘—'J‘WNU‘-‘NN—D
OWNMPOmORNO =V —=O2RNONNNNONO =N = N= NSOV WVN=22UDMONNOO =S OO =NV
W

023700

024130
024133
024136
024141
0246146
026147
024150
024152
0241564
0246156
024160
0264162
024164
024166
0264170
024172
024174
024176
024200
024202
024206
024206
024210
026212
024216

M
040
040
115
125
000
022454°
022502°
0225664°
022646°
022714°
022752°
023010°
023056°
023126°
023160°
023250°
023300°
023326°
023360°
023414°
023452°
023506°
(23572°
023656°

0246216 023722°
024220 023750°
024222 024026°
024226 024064
045
024226
061
024231
024234
103
040
024237
024242
1M1
024245
122
045
024250
024253
117
024256
120
m
024261
040
024264
115
024267
122
024272
122
024275
045
024300
124
024303
024306
105
024311

024314
024317
024322
024325
024330
024333

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAM
v01.2

101

M
040
1M1
122
055
061

126
17
126
105
126

13
122
M
117
051
P.ALJ:

101
061
120

106
114
105
101
116
101
124
122
040
122
000
101
101
040

103

116
106
114
105
040
061

1264
040
125

101
125
000
116
055
122
131
101
105
117
000
123
124
115

110

105
101
125
040
124
040

P.AMI:

P.AMJ:

P.AMK:

LASCII
LASCI!
LASCIL
LASCI1
LASCII
LASCII
.WORD
LMWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MWCRD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD

.WORD
LWORD
LWORD
.WORD
_ASCI]
LASCII
.ASCI]
ASCIL
LASCII
LASCI]
_ASCI]l
LASCI]
LASCI1
LASCII
LASCID
LASCII
.ASCII
LASCII
.ASCII
.ASCI1
LASCII
JASCII

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

SEQ 117

Pase 117
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BLY;10 (35)

:
:
;
::
:
:
:
:
:
:
:
:
3
3
:
:
s
3
2
3
2H

/71Tv/
7/ OR/
7 T1/
/MEQ/
/UT)/
<00>
P.ALK
P.ALL
F.ALM
P.ALN
P.ALOD
P.ALP
P.ALOQ
P.ALR
P.ALS
P.ALT
P.ALU
P.ALV
P.ALW
P.ALX
P.ALY
P.ALZ
P.AMA
P.AMB
P.AM(

P.AMD
P.AME
P.AMF
P._AMG
/ZAT/
/11 7/
/CPU/
7 FA/
/1Lu/
/RE/<00>
/XAN/
/ON~/
/PAR/
/1Tv/
/7 RA/
/M E/
/RRO/
/R/<00><00>
/XAS/
/TAY/
/E MW/
/ACH/

/INE/
/7 FA/
/71LW/
/RE /
/= T/
/711 /

Ik
VS

3
K
:
:F;

:3
H
:H

e’

H
3H
H
3H
F:
]
3
3
F
3
::
H
s
H
H
H
H

8 10

RD/RX EXERCISER
PROTECTION TABLE

ZROAMY
v01.2
024336
024341
024344
024347
024352
024355
024360
024363
024366
024371
024374
024377
024402
024405
024410
024413
024416
024421
024424
024427
024432
024435
024440
024442
0246445
024450
024453
024456
024461
024464
024467
024472

101
122
123
105
123
122
045
126
105
101
m
040
1
122
055
055
123
104
105
040
107
124
000
045
124
105
101
18]
040
m
122
055

024506

105

024475
024500
024503

024511
024512
024515
024520
024523
024526
024531
024534
024537
024542
024545
024550
024553

024556
024561
024564
024567

21-Jul=-1983 15:25:58
21=Jul=1983 15:19:20

122
122
m

000
045
124
105
101
1)
040
W1
122
055
105
101
132

057
123
m
m

104
105
0490
107
124

000
01

101
040
103
116
106
114
105
040
102
040
104
123
122
11
105
000
101
101
040
103
116
106
114
105
040
103
105
123
122

101
101
040
103
116
106
114
105
040
122
114
105

104
105
101
132

104
123
122
1M1
105
000
123
124
115
110
105
101
125
040
121
125
101
122
123
105
123
122

123
124
115
110
105
101
125
040
103

P.AML:

P.AMM:

.ASCI1
LASCII
LASCI1

040
107
124

.ASCII

000
123
124
115
110
105
101
125
040
123
m
m
122

105
122
114
105

+ASCII
LASCI]
LASCII
LASCI1
LASCI1
ASCII
,ASCII
LASCIL
LASCI1
JASCII
LASCI1
LASCII
LASCII
LASCI1
LASCII
JASCI1
LASCI1
LASCII
LASCI1
LASCI1
.ASCI1
LASCI1
LASCI]
_ASCII
LASCII
LASCII
LASCI1
+ASCI1
ASCI1
LASCIL1
.ASCI1
LASCII

P.AMN:

LASCII
ASCI1
LASCI1
LASCI1
LASCI1
JLASCII
LASCI1
JASCII
LASCI1
LASCI1
.ASCI1
LASCII
JASCI1

ASCII
LASCII
.ASCIIl
LASCII

/ADD/
/RES/
/S R/
/EGI/
/STE/

/R/<00><00>
/XAS/
/TAT/
/E MW/
/ACH/
/INE/
/7 FA/
/1LU/
/RE /
/= Q/
/-BU/
/S A/
/DDR/
/ESS/
/ RE/
/GIS/
/TER/
<00><00>
/XAS/
/TAT/
/E M/
/ACH/
/INE/
/ FA/
/ILU/
/RE /
/= C/
/RC /
/REG/
/IST/
/ER/<00>
<00>
/XAS/
/TAT/
/E M/
/ACH/
/INE/
/ FA/
/ILU/
/RE /
/= S/
/ERI/
/ALI/
/IER/

<57>/DE/
/SER/
/IAL/
7128/

SEQ 118

Paae 118
VAX-11 Bliss~16 Vv3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (35)

c 10

122
105
123
122
045
124
105
101
m
040
m
122

040
107
124
000
101
101
040
103
116
106
114
105

122
M
105
000
123
124
115
110
105
101
125
040

122
107

117
040

116
110

040
122
117
000

126
123
116

045
055
045
040
000000C -

101
040
101
000

040
000
052
000

P.AMT:

000

172150

024760

000154

024764

000004
100034

-y

P.AMS:

P.AMU:

Sy oy

000

LOHWLEN::

Bemg By By

116

Gunng Sumg G

045

Sumg S

P.AMR:

064

g Sumg P

123

000

L] Duveg Gy Sy Bomeg Dung

045

Snmg Sy bmcp Gumep $uug Bung vy S

P.AMQ:

.ASCII
»

157
040
064

P.AMP:

040
066

[

101
117
000
101
164
117

000

P.AM]

P.AMH:

024442°
024512°
024606°
045
045
000
045
143
045

024756

024762

-AS

w wnuununnw w wunmnnnm wm
[an] e lalaTale) TM 2 lalala [an]

024734
024737
024740
024743
024746
024751
024754

104
122

024716
024721
024724
024727
024730
024733

127

e
@

105
105
m
000
024226
024250°
024300°
024360

122
101

/%AS/

/TAT/
/E M/
/ACH/
/INE/
/ FA/
/1Lu/
/RE

101
127

040

/R/<00><00>

P.AMO:

055

/R R/
/€GJ/
/STE/

> > > >>>> »

024572
024575
024600
024603
024606
024611

21=Jul=-1983 15:2 5: 58
21=Jul=1983 15:1 9: 20

RD/RX EXERCISER
PROTECTION TABLE

IRQAM1
v01.2

.WORD

HWPT.IP.ADDR::

.WORD
:
HWPT.VECTOR:
.WORD

HWPT.BR.LEVEL::

<00><00>
/XAo/
/%04/

<00>

/%54/

<00>

/IN/<00>

<00>

/ /<00><00>

<<LSNDHW=LSHWLEN>/2>
-5630
154

.WORD

77744

HWPT.DISK::

SEQ 1 19

Paae 1 19
VAX=11 Bliss=16 V3=555
(3 5)
.BL1;10
JZRQAB0
RELEASE
Z:[DIETZ.
DISKSUSER

D10

000024

025002

000202

025004

000000

025006

000020

025010

000143
000022

025014

025060
025062

000056
000060
000102
000104

000106
000110
001112
001452
001454

001456

003136

003140
003154

000000

177777

000006

SWP.DPAT::

)
SWP.UCNT::
.WORD
SWP.RAT::
+WORD

::
DUPROUND
. WOR
:
SWP.UDPATY:
.BLKW

24
202

20
143

W:
: .BLKW
LSNDS
WORD
: : .OT
LSPR
-WORD
.WORD

PSECT
.BLKW
CST::
CST.ADDR::
.BLKW
.BLKW
DCT::
DCT.ADDR::
.BLKW
RDRX.ADDR::
.BLKW
IRDRX.ADDR::
.BLKW
DUPPKT: :.BLKW
TALLY:: .BLKW
T.ADDR:
: .BLKW

C.ERR.TBL::

.BLKW
MSCP.PKT::
.BLKW
IPKT.ADDR::
.BLKW
PKT.USE::
.BLKW
RETPKT::.BLKW

$FFFS,
~

025900

000040

<SLSNDSW-LSSWLEN>/2>

024776

-—b

000000¢

—

024772
024774

52137

052137

024770

HWPT.S.TRK::
.WORD
HWPT.E.TRK::
.WORD
: .BLKW
LSNDHW:
LSSWLEN::
-WORD
SWP.ERROR::
.WORD
SWP _XFER::
.WORD
SWP.FLAGS::
WORD

— e S b
oo
o=

000000

024766

025012

21-Jul=-1983 1
21-Jul=1983 1

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

SEQ 120
Pa8e 120
VAX=-11 Bliss=16 V3=-555
(35)
DISKSUSERZ: [DIETZ.RELEASE JZRQABO.BL1;1

E 10

005154
005155

005156
005160
005162
005164
005166
005170

005174

005176

005200
005202

005204

005206
005210
005212
005214
005216

005220
005222
005224

Ql0::

.BLKB

.EVEN
FREE .MEM,.ADDR: :
.BLKW
BYTS.PER.OIO&:
.BLK
ST.CODE::
.BLKW
S8.CODE::
.BLKW
.BLKW
STEP::
OF .RC:: .BLKW
SA.REG::.BLKW
CMD.TIME::
.BLKW
NEX::
.BLKW
:
LOW:
CRN.
.BLKW
:
CRN.HIGH:
.BLKW
P.INDEX::

005226

.BLKW
S.DUPPKT::

005230

S.PATTERN::

.BLKW

2
1
1

1
1
1
1
1
1

2
1

-b

005152

-—

005150

-—b

005144

614

- and b b

005134

.BLKW

BUFF .OWN: :
BLKW
.BLKW
100Q::
10DQ.IN::
.BLKW
:
100Q.0UT:
.BLKW
ENTRY .REASON: :
.8L KB
EOP.FLAG::
.BLK
DUP.FLAGS::
.BLKW
CCTLR:: .BLKW
CDISK:: .BLKW
CUOFF:: .BLKW
CTLR.CNT::
.BLKW
.BLKYW
DUR::

b ad

005114

RP.ADDR::
.BLK
ELOG.PKT::
.BLKW
BUFF .ADDR::

003464

RP.USE::.BLKW
RP.INDX::
.B LKW

—

003462

PROTECTION TABLE

—-—

003454
003460

21=Jul-1 983 15:2 5:58
21=Jul-1 983 15:1 9:20

RD/RX EXERCISER

-—

IRQAMY
v01.2

SEQ 121

Paae 11

VAX=-11 Bliss=16 V3-555
DISKSUSERZ:[(DIETZ.RELEASE JZROABO.BL1;1

(35)

F 10

$1-Iu-1383 13:93:30

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2

.BLKW
CREDIT.BAE::

005232

.BLKW

NEXT.PKT,USE::
.BLKk8

005234

1
1
1

LSSOFT, TSPTHV, LSRPT, LSINIT
LSCLEAN, LSLAST, LSHARD, LSDVTYP
LSDESC, LSDU, LSAU, LSAUTO, T

g =t =t

-100000

d N S =

o
o

000010

OOOS

[elelelolelele]

n
1}

[}

- ]

w >

EF .CONTINUE==
EF .NEW==

WE =3P =N =PI =

Gumg $mg
g Sy B
g Bt
Do

Ko Ko Ko B
B
B
B
LR

TN VY e o St Sy B

e B B

g Smeg

mmmmmmwmmmmmmmmmg

f o

100000

DNO=NINS
N NOVOOOOOOOOOO
b —d—badad b
m NN
O=PNIWSNONNDOVO =NIWHSWN

.GLOBL
.GLOBL
.GLOBL

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEAS

SEQ 122

Page 122

EJZROA80.8L1:18 (35)

G610

21-Jul=-1983 15:25:58
21=-Jul-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

ZRQAMT
v01.2
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
000126°
024776°
024756°
000011°
000136°*
000152

000162

000174°*
000220°
000310°*
000326°
000406°
000460°
000560
000646
000700°
000722
001004°
001026
001100°*
001154°
001220°
001252°
001350°
001426°
001444°
001514
001602
001672°'
001760*
002050°
002052°
002100°*
002156°
002230°
002314°
002372'
002454°

002512

002556°

002610°*

ADR==
I0yY==
ISR==
UAM==
80E==
PNT==
PR]==
IXE==
IBE==
IER==
LOE==
HOE==
LSERRTBL==
LSSW==
LSHW==
LSDEPO==

20
40
100
200
400
1000
2000
4000
10000
20000
40000
=100000
ERRTYP
LSSWLEN+2
LSHWLEN+2
LSREV+1

HWQ@3==

P.AAC

HWQ1==
HWQ2==

HWQ4==
HWQ5==
HWQ6==
HWQ7==
HWQ8==
HWQ9==
HWQ10==
HWQ11==
SWQ1==
SWa2==
SWQ4==
Swa7==
SwQ9==
SWa10==
SWall==
SWa12==
SWQ13==
SWa14==
SWa15==
SWQ17==
SWQ19==
SW022==
SWM1==
NULL==
DBM5==
DBM12==
DBM18==
DBM19==
DBM20==
DBM21==
DBM23==

DBM25==

DBMZ26==

DBM29==

P.AAA
P.AAB

P.AAD
P.AAE
P.AAF
P.AAG
P.AAH
P.AAl
P.AAJ
P.AAK
P.AAL
P.AAM
P.AAN
P.AAO
P.AAP
P.AAQ
P.AAR
P.AAS
P.AAT
P.AAU
P.AAV
P.AAW
P.AAX
P.AAY
P.AAZ
P.ABA
P.ABB
P.ABC
P.ABD
P.ABE
P.ABF
P.ABG
P.ABH

P.ABI

P.ABJ

P.ABK

SEQ 123

Page 123
VAX-11 Bliss=16 V3=555
(35)
2:
UABO.BL1;10
SER
.RELEASEIZR
[DIETZ
KSU
DIS

H 10
21=Jul=1 983 1 5 2 5: 58
21=Jul=1 983 1 S: 1 9: 20

RD/RX EXERCISER
3

IRQAMY
v01.2

P.ABL

P.ABM

EGD.18==
€GD.20==
EGD.21==
€GD.22==
€GD.23==
EGH.30==
EBS.01==
€BD.10==
EBD.12==
EBD.13==
EBD.14==
€BD.18==
EB8D.19==
EH.0==
EH.2==
EH.3==

PPPIPIIPOOV

= =y =4 -4 (2121

—4 —t e
) —
g

€6S.01==
€GS.02==
EGD.10==
EGD.11==
EGD.12==
€GD.13==
EGD.14==
EGD.15==
€GD.16==
EGD.17==

TOTMOMD PPN XECC1NIDVOEZRT
R
I OTM m

005734
005754
006042°*
006154
°
006214
006256
006302°
006344
006404
006452°
006504
006544
006600°
006660°
006716
0067564
007014°

RPT16==

(v ivli-li-ieci-i-idalaslgalinlinlinl EICICICICICIOIICICICIOIICID

005666°*
005716°

RPT15==

PP
IPIISIIDSIDIDIPPPPPPID
LA >
(=)

005346
005366°
005460°
005520°
005544°
005572
005620°
005650°

RPT14==
ONMAS
NN =N =2 (1 1

005164°
005264°

— ol

004074°
004160°
004224
004310°*
004354
004442
004506
004530°
004552
004600
004632°
004720°*
004766
005066

VDVDVDDD DXDDDDDDO DX 2RO
VVVOVOOVO VOOVOVOO own wnc

002656°

-t
b and wmb «=b O OO NOM\N SN p— . . L) 0
"no
1000 w
SWN=O N I 0
HWN=ZAONO VOO~
0 B 0
0ninnnnn

PROTECT] 0 N TABLE

VAX=-11 Bliss=16 V3=555

DISKSUSER2:[DIETZ.REL

SEQ 124

Page 124

EASEJZROABO.8L1:18 (35)

012770°

EH.4==
EH.5==
EH.6==
EH.7==
EH.8==
EH.9==
EH.10=
EH.12==
EH.13==
ERR.COD==
€LG.00==
ELG.FMT==
EX.BDR==
EX.BDW==
EX.LBR==
EX.LBW==
EX.RBN==
EX.CBR==
EX.CBW==
XX13==
XX14==
XX15==
XX16==
XX17==
XX18==
XX19==
XX20==
XX21==
XX22==
XX23==
XX24==
AX25==
XX26==
XX27==
XX29==
XX30==
XX31==
XX32==
XX33==
XX34==
XX35==
XX37==
XX38==
XX39==
XX40==
XX41==
EB.DCT==
EB.COMM==
EB.PKT==
EB.RAL==
EB.ADDR==
EBNEX1==

EB.NEX?2==

P.ADY
P.ADZ
P.AEA
P.AEB
P.AEC
P.AED
P.AEE
P.AEF
P.AEG
P.AEH
P.AEY
P.AEX
P.AFD
P.AFE
P.AFF
P.AFG
P.AFH
P.AF1
P.AFJ
P.AFK
P.AFL
P.AFM
P.AFN
P.AFO
P.AFP
P.AFQ
P.AFR
P.AFS
P.AFT
P.AFU
P.AFV
P.AFW
P.AFX
P.AFY
P.AFZ
P.AGA
P.AGB
P.AGC
P.AGD
P.AGE
P.AGF
P.AGG
P.AGH
P.AG!
P.AGJ
P.AGK
P.AGL
P.AGM
P.AGN
P.AGO
P.AGP
P.AGQ

P.AGR

TRIR IR I TEYE YR KN XN X T

007052
007076°
007126
007160°'
007212°
007246
007300°
007332"
007370°
010120°*
010154
010510°
010522
010612°
010700°*
010744°
011010°*
011066
011136°
011206°
011230°'
011244
011266°'
011314°
011332°
011342°
0113564°
011370°*
011430*
011464°
011520°
011560°
011630°
011704°
011746
011772
012020°
012052°
012100°'
012136*
012206
012224
012250°
012314°
012342°
012362°
012612°
012466
012550°
012612°
012652°
012714'

[T ATR

21=-Jul-1983 15:
21-Jul-1983 15:

RD/RX EXERCISER
PROTECTION TABLE

SEQ 1

Paae 1
VAX=11 Biiss=16 Vv3=555
(3
BL1;10
ASEIZROABO.
DISKSUSER2: [DIETZ.RELE

21=Jul=-1983 15:25:58
21-Jul=-1983 15:19:20

RD/RX EXERCISER
PROTECTION TABLE

IRQAMY
v01.2
013066*
013162°
013226
013302°
013322°'
013352°
013372°
013410°
013420°
013430°
013442°

013454°
013500°
013522°
013552°'
013576°
013612°
013632°
013642°
013666
013710
013740°
013762°
014002°
014062'
0146142°
014210°
014302°
014370°
014446°
014526°
014606°
014662
014734
015016°
015050°
015070°
015144°
015220°
015266
015316
015346°
015400°
015430°
015460°
015510’
015542°
015574’
015636

015676°
015736
015766
016010°

EBNEX3==
CER.O1==
CER.02==
EX.SEQ==
EX.CRD==
EX.MIN==
EX.DGM==
EX.RD==
EX.WRT==
EX.ACC==
EX.ONL==
EX.SCC==
EX.GDS==
EX.ESP==
EX.ELP==
EX.SDD==
EX.RCD==

EX.ABP==
SC.SD1==
SC.CON==
SC.DUP==
SC.ONL==
SC.SON==
SC.UNK==
SC.VOL==
SC.J0P==
SC.DIS==

SC.FER==
SC.FE2==
SC.ISH==
SC.IS2==
SC.DST==
SC.DS2==
SC.ECC==
SC.ECD==
SC.R(T==
SC.FUL==
SC.576==
SC.FCT==
SC.EC1==
SC.EC2==
SC.EC3==
SC.EC4==
SC.EC5==
SC.EC6==
SC.EC7==
SC.EC8==

SC.EC9==
SC.SWP==

SC.HWP==
SC.0DA==
SC.0DB==
SC.NXM==

P.AGS
P.AGT
P.AGU
P.AGV
P.AGW
P.AGX
P.AGY
P.AGZ
P.AHA
P.AHB
P.AHC
P.AHD
P.AHE
P.AHF
P.AHG
P.AHH
P.AH]

P.AHJ
P.AHK
P.AHL
P.AHM
P.AHN
P.AHO
P.AHP
P.AHQ
P.AHR
P.AHS
P.AHT
P.AHU
P.AHV
P.AHW
P.AHX
P.AHY
P.AHZ
P.AlIA
P.AIB
P.AIC
P.AID
P.AlE
P.AIF
P.AIG
P.AlH
P.All
P.AlJ
P.AIK
P.AIL
P.AIM
P.AIN
P.AlOQ

P.AIP
P.AlQ
P.AIR
P.AlS

SEQ 126

Paae 126
VAX=11 Bliss=16 V3-555
1D
2: (35)
RGABO.BL1;
SER
[DIETZ .RELEASEIZ
DISKSU

YEYEITETEIE IR XN N X

J 10

021424
021450°
-

'017

P.AKS
P.AKT

Paal

»xx
0O voZ

Padal
X

PaFatalal RN
Mo
TM OPN<XXE<C

> ))))))))

-AJR
wv

)

(3N

1 OCONOAESON I I I

))))) b 3

D> P

dd wad

LG [3 e G G G Qo € G € o G G 0t Dt 9t 9t Bt Pt P
OovVoZ=XN - R TOTMONDIPNIXE<C

.
o
T NN = b b b —b b b b amb «d D QO NONN S LNN) =
=O I
it 'l
s =2OVONONW SN
w
SB NI NI
N

VNPT
AN TANARA AN w

RD/RX EXERCISER
PROTECTION TABLE

-AKJ
.AKK

Fatal

))

NIRRT

[] .I:

- -“O®

[]

4 omm

NOAWVBWNI=O

)) >>

b R

MZMC

—d b= SIS

g =t — =4

ZRQAM1
v01.2

—t

purd

K 10

=198
21=Jul
21=-Jul-198

JAKG

VAX=11 Bliss=16 v3-555
DISKSUSER2: (DIETZ.RELEASEIZRQABO.B

L1;18 (35)

Pa e 127

SEQ 127

21=Jul=1 983 15:2 5:58
21-Jul=1983 15:1 9 :20

RD/RX EXERCISER

PROTECTION TABLE

P.AKU
P.AKV

T.FAT==
T.SPL==

E.UNT==
€.BLK==
E.DEV==
E.ZER==
M.ASC==
M.BIN==
M.TER==
M.(0D==
M.DAT==
M.UR==

P.AKY
P.AKX
P.AKY
P.AKZ
P.ALA
P.ALB
P.ALC
P.ALD
P.ALE
P.ALF

M.UL==

P.ALI

P.ALG
P.ALH

M.URP==
M.UP==

@aWse

s 0o

P.ALJ
P.AMH
P.AMP
P.AMQ

CNTR.ERR==
RDRX.ERR==
EX.WRD==
EX.0P==

P.AMR

SPACE&4==

ASTERISK==

P.AMS
P.AMT

CRLF==
DASH==

P.AMU

LSHWLEN+?2
LSSWLEN+?2

DFPTBL==
SFPTBL==

@M.

024756
024776°

( 35)

GaeaWBoe

0214674
021520°

VAX=11 Bliss=16 V3=555

DISKSUSER2: [DIETZ.RELEASE JZRQAB0.8L1;10

BaBa@am

IRQAMT
v01.2

SEQ 128

Paae 128

L 10

®&

.EVEN
PSECT SUMMARY
Psect Name

[

TR PN PN TS TR TR )

$CODES
SFFF$

Words

5402
1358

File

DISKSUSER2:[DIETZ.RELEASEIZRQABO.L16;27

Attributes

RO,
RO,

1
I

.,
.,

LCL,
LCL,

REL,
REL,

CON
CON

-------- Symbols ======-Percent
Loaded
Total

Blocks

227
455
COMMAND QUALIFIERS

Read

Xtitle "RD/RX EXERCISER'

[

E R

RE T E I E

N ET
E R I EYA

A ATR PR YRYRNN TR T T X TR

R IR

AR R IR

E N R YIRSPRTR

R IR F R P

N LR

ident = 'v01.2°,
addressing_mode (absolute),
envxronment (noeis)

begin

Ysbttl 'DECLARATIONS®

Library 'ZRQABO.L16°;

! RDRX EXERCISER GLOBAL LIBRARY

require °‘BLSMAC.REQ';

' DIAGNOSTIC SUPERVISOR LIBRARY

forward routine
NEX_TRAP : L$SISR novalue,

EMS_01 : novalue,
EMS_
“DUP : novalue,
EMS"BLK : novalue,
EMSTMD : NOVALUE,

SET_CPAR : novalue,

SET_UPAR : novalue,
EMS"DBN : novalue;
external
(ST : blockvector [HAx CTLR, CST_LEN, word] field (CST_FIELDS),

' RUN-TIME CONTROLLER STATUS TABLES

CST_ADDR : ref block [CST_LEN, word) field (CST_FIELDS),

' CONTROLLER STATUS TABLE ABDRESS OF *‘CURRENT'* CONTROLLER

DCT : blockvector [MAX CTLR, DCT_LEN, word]) field (DCT_FIELDS),

' BRiVER CONTROLLER TABLES

DCT_ADDR : ref block IDCT_LEN, word) field (DCT_FIELDS),

1 ADDRESS OF ''CURRENT'* DRIVER CONTROLLER TABLE

RDRX_ADDR : ref rdrx fleld (RC_REG),

' DEVICE ABDRESS OF ‘‘CURRENT'* CONTROLLER
! DEV!ICE ADBRESS OF INTERRUPTING CONTROLLER

IRDRX_ADDR : ref rdrx field (RC_REG),

DUPPKT : BLOCK [257, WORD] field (DP_FIELDS),

! BUFFER CONTAINING DUP INFORMATION FROM RECEIVE AND SEND COMMANDS

TALLY : vector [MAX_UNITS ~ TALLY LEN, word] field (T_FIELDS),

=1 STATISTICS TABLES

T_ADDR : ref block [TALLY_LEN, word] field (T_FIELDS),

' ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT

C_ERR_TBL: blockvector [MAX_CTLR, C_ERR_LEN, word] field (C_ERR_FIELDS),

{ STATISTICS TABLE FOR CONTROLLER ERRCORSTM

MSCP_PKT : blockvector CPKT_CNT, PKT_LEN, word] field (PKT_FIELDS),

MSCP PACKET PODL

IPKT_ADDR : ret block [PKT _LEN, word) field (PKT_FIELDS),

! ADDRESS OF AN MSCP PACKET TINTERRUPT PROCESSING)

PKT_USE : vector [PKT CNT, byte, signed],
1"MSCP PACKET POOL ACLOCATION TABLE
RETPKT : blockvector CRP_CNT, RP_LEN, word] field (RP_FIELDS),

«MN

module ZRQAM? (

N NN NN YNNI VNI OYOI YOI OO OOOOOOOOOOOOOOOOOOQOOO

RD/RX EXERCISER
PROTECTION TABLE

SEO 129

89 130
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BLY; 10 (36)

AN O

IRQAM2

N LA LN

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

A~ .~~~ i~ P~ P £ P PN A

n10

4972
4973

4974
4975
4976
4977
4978
4979
4980
4983
4984
4985

I0ODQ_IN : word,
10pQ_0UT : word
ENTRY REA SON : byte.
EOP_FLAG : byte,

L
T T IO T
P TS PO I I WS

170 DONE QUEUE IN POINTER
1/0 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND

DUP FLAGS : WORD,
CCTIR : w ord
(DISK : w ord.
CUOFF : word,
CTLR CNT : uord
DUR
vec tor [HAX UNITS, bytel,
Q10 : vec tor [MAX_CTLR, bytel,
FREE_MEM_ ADDR,

BYTS PER QIC : word,
ST_ CODE *: word,
SB_CODE : word,
STEP : wo rd,
OF_RC

: s igned

word,

SAREG : word,
CMD_TIME : word,
NEXTM: wor d.
CRN_LOW : uord
CRN HIGH : word,
INDEX : sugned word,
S DUPPKT
S"PATTERN : WORD,
CREDIT BA L : word,
NEXT_PKT _USE : byte,

vector [12]

: vector [145
:

vector [5],

END=-OF =PASS FLAG
DUP FLAGS

NUMBER OF °'’CURRENT'’ CONTROLLER
CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET
TOTAL NUMBER OF CONFIGURED CONTROLLERS
DROP UNIT REASON

NUMBER OF OUTSTANDING QIOS PER CONTROLLER
START OF FREE MEMORY
SIZE (BYTES) OF AN ]J/0 BUFFER
CURRENT STATUS CODE
CURRENT SUB-CODE

CURRENT STEP IN HARD_INIT

OFFSET (0 OR 2) TO READ IP OR SA

STORAGE FOR SA REGISTER READS AND WRITES
COMMAND TIMEOUT VALUE (IN SECONDS)

NON=-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT

! COMMAND REF NUMBER (HI ORDER)

' CURRENT message PACKET INDEX

' DBN BYTE COUNTER

! THE PATTERN WRITTEN TO DBN'S
! CREDIT BALANCE

! POINTER TO NEXT ENTRY IN PKT_USE TABLE

<«~N

OO0

' ERROR=-LOG PATKET SAVE AREA
! TABLE OF ]/0 BUFFER DESCRIPTORS
BUFF _ADDR : vector [MAX BUF CNTJ
! 1/0 BUFFER OWNERSHIP (CONTROLLER NUMBER)
signed],
byte,
:
vector [MAX BUF_TNT,
BUFF OUN
el.
100Q7: ve ctor [IODO_LEN, by1/0 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES

ELOG_PKT : blockvector [EP_CNT, EP_LEN, word] field (EP_FIELDS),

OIOIOIOOIOIOOOD

4968
4969
4970
97

i CORRENT RETURN PACKET RDDRESS

ENENLCNCE VNNV

LR R Se Be B e S8 00
PRTR LN P LN PN TR LN
PRFE TR YR
PR PR FEN YR
e S S Y T TR TS
Y S
L
Y
N

4964
4965
6966

! RETURN PACKET POOL
: vector [RP_CNT, byte, signed],
=1 RETURN PACKET POOL ALLOCATION TABLE
' CURRENT RETURN PACKET INDEX
RP_INDX : word,
LEN, word) field (RP_FIELDS),
CRP
RP ADDR : ref block

RP_USE

I IO IR

4958
4959
4960
6961
6962

. . S~ P~ P~ P~ T~ P~ I\ PN

DECLARAT]IONS

RO/RX EXERCISER

v01.2

SEO 130

8e 13
VAX-11 Bliss=16 v3=555
(36)
1;10
DISKSUSER2: (DIETZ.RELEASEIZROABO.BL

e ot o

IRQAM?

21=Jul=198315:25:58
21=-Jul=198315:19:20

e e e

N 10

VAX=-11 Bliss=16 V3-555
DISKSUSERZ:[DIETZ.RELEASE

JZROABO.BL1:18 (36)

Hwa1d,
HWQ11,

SWal,
SWQe,
SWas.
SWa7.
SWu9

swa1d,

SWall,
SWa12.
Swa13.
SWals,
SWa15.
SWa17.
SWa19.
SWQa22,

b
)
)
) el ol
— wnd and

O 00NN
LS NN =

elelelelelelelals]

VIV, IV, IV, 1V, IV, [V 1V. 1V ]

FE R TR Y VI NI FR YN NI TN T
IRLI LR R [P EIR IEIEIEIEIEYETE YR

HWQS,
HWQ9

O
I
IR

SO NOAWVEWNI=2ON)
=2 v v

VRPR PR YR EE T
TR R YR PR PR TR PR
A
R
A
R
R
EE
R
TR

115:25 :5 8
21=Jul=-1983
115:19 4 0
21=-Jul-1983

VP Y e Y e Y Y an Y e Y e Y e T T o Ve

RD/RX EXERCISER
DECLARATIONS

IRQAM?2
v01.2

SEQ 131

Page 132

- Pnd

8 1

RD/RX EXERCISER
DECLARATIONS

IRQAM?2
v01.2
:
:
:

5064
5065
5066

:
:
:

5068
5069
5070

EH_T,
EH_2,
EH_3,

5072
5073
5074

EH_S,
EH_6,
EH_7,

;

5067

EGD_22,
EGD_23.
EGH_30,

EH_0,

5071

5076

EH_9

5078
5079

EH_12,
EH_13,

:
:
:

5077

:
:

5080
5081

H
:

:
:
;

:
;
:

EH_G,

EH-10,

5082
5083
5084

EBS_O1,
EBD_10,
EBD_12,
£8D_13,

5086
5087
5088

€8D_18,
EBD_19,
ELG_00,

5085

5089

EBD_14,

Ex_BDR,

:
:

5090
5091

EX_BDW,
EX_LBR,

:
:

5093
5094

EX_RBN,
EX_CBR,

5092

5095

:
:
:
:
:
:
:

5101
5102
5103
5104
5105
5106
5107

:
:
:
:
H

5096
5097
5098
5099
5100

5108

EX_LBW,
Ex_C8W,

Xxx13,
XxXx1&,
xx15,
Xxx16,
Xxx17,

xx18,
XX19,
xx20,
xx21,
xx22.
xx23,
xx24,

Xxx25,

;
:
:
:
:

5109
5110
5111
5112
5113

xXx26,.
xx27,
xx29,
xx30,
xx31,

;
:

5115
5116

xx33,
XxXx34,

21-Jul=1983 15:25:58
21=Jul=1983 15:19:20

SEQ 132

Page 133
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIET2.RELEASEIZROABO.BL1;10 (36)

e e

b b e

PR PR TR TR TR

b b amb

b und

b e cnh b cnd

D d

b e

D wd

A
b

AV ]
b ed

R TN T [P EYEIEIEIETIENEYESE IR TRYRPR N T NI NI
NI XN WY

TN WA T AW (VA IV IV IV IV IV [V [V [V [V IV [V IV, IV, IV AV IV A8 LV

PR PR

D d et nd b d o

cnd b md d

E TRT

b b e

EANCOYOYVOYWDVWDND
.

cw QUM
0O 2C O
& rova

wwm wunnm
(aln] YD

m
b9

]

-4

(]

|=4

IRQAM?
v01.2

D B
DS 85 WU N NN W W WA N N N N PO NI PO NV N b b 2
OO
ONONO OV WIWVIVIVIWWVAS
NO VSN NN = OOV N
NS WN =O 000NN
S WA = OOV NOWVS NN 2OV~
V00NN
NN — OV

ed o ok cend md b

VIR MW

TR
IEE NIRRT I E I E M E N E R AR

RD/RX EXERCISER
DECLARATIONS

21-Jul~1983 15:25:5 8
21-Jul=-1983 15:19:2 0
Paae 134
VAX=-11 Bliss=16 V3=555
0 (36)
:
O.BL1;1
R2
IZRQAB
SE
.RELEAS
SU
[DIETZ
DISK

SEQ 133

pMLNo]Se-t01234567890
SC RSP
[2¢] < 2] =] a
SC PSP,
.

T L LAt ONIMITNONOOO—
-

21=Jul=1
21=Jul-1

[ale
woN

DECLARATIONS

ooa06o ["aY"a)

RD/RX EXERCISER

IRQAM?
v01.2

J=] o [

SEQ 134
Pa
v3=-555
6
Bliss=1
VAX=11
DISKSUSERZ: [(DIETZ.RELEASE JZRGABO.BL1;1

836

N NN NN NN WA O RO NN NI N
ONO VIS WA =000 NN NN

EBH_48,
EBHZ49,
2RTEXM MmMMMag—-<~—-<-<a0oaaaaq

VAWV NNV

NINNININININNINN
NI NININININY

WAV

VAX-11 Bliss=16 V3=555

DISKSUSER2:[DIETZ.RELEAS

5239

PR TR P

EN VI T X Ve We Bo 82 %o %0 v

21=-Jul-1983 15:25: 58
21-Jul=-1983 15:1 9:20

RD/RX EXERCISER
DECLARATIONS

ZRQAM?
v01.2

MUL,

vector [7],

DASH,
ASTERISK,
SWP_FLAGS

: word,

IR R

ETETE

Y EYTE

CRTR_ERR : vector [23].

RDRXERR :

[ E

YR
X YETE

TR XA TR T
X T

LSHIMEM,
LSLUN,
LSUNIT;

own

vector [17) initial (NULL, SC_SDI, SC_CON, NULL, SC_DUP, NULL, NULL,

TBL_OFL

NULL, SC_ONL. NULL. NULL, NULL, NULL, NULL, NULL, NOLL, SC_SON),
: xfiftorsg9glg?1t1al (SC_UNK, SC_vOL, SC_IOP, NULL, SC_DUP, RuLL, NULL,

TBL_MFE

vector [T1] initial (SC_FER, NULL, SC_ISH, SC_DST, SC_EC9, SC_576,

T8L_WPT
TBLZDAT

: veitor [3) initial” (NULL, SC_SwP, §

TBL_SUC

SC_FCT, SC_ECC, SC_RCT,”SC_FuL, SC Eczafi)

vector (18] initial (SC_FE2, NULL, ST 152, SC_DS2, SC_EC9, NULL, NULL

SC_ECD, SC_ECT, SC_EC2,”SC_EC3, SC_ECE, SC_ECS, SC_ECB, SC_EC7, SC_ECB),

SEQ 135

Page 136

EJZROABO.BL110: (36)

Pl oY)

F1N

(NULL, SC sm SC_SRI, SC_ POE SC_RDY, SC_CLK, SC_RSP,
initial
[9)
vector
);
SC_PSP
SC_SUR,

SN, SR, S, ey, S, SRy, PR

S§C PAR),
vector [5) initial (NULL, SC_ODA, SC_0DB, SC_NXM,

TBL_CNT : vector [4] initial (SC_CT0, Sc_sDS. SC_EDC, SC
TBL_DRV :

TBL_HST

VAX=-11 Bliss=16 V3-555

10 (38)
DISKSUSER2:(DIETZ.RELEASE 12R0ABO.BL1:

e amme ST

5276
5277
5278
5279

21=Jul=1983 15:19:20

e S

DECLARATIONS

21=Jul=-1983 15:25:58

RD/RX EXERCISER

ZRQAM?
v01.2

SEQ 136

Page 1 37

.
e AEE

DESCRIPT (Xasciz'RD/RX EXERCISER');

! NAME OF DEVICE SUPPORTED BY PROGRAM
! TEST DESCRIPTION

Y e T e Y e Y e T e Y Y o T en T an Y o ¥ an

DEVTYP (Xasciz'RQDX1%);

EQUALS;

Xsbttl 'TYPE AND DESCRIPTION'

5280
5281
5282
5283
5284
5285

SEQ 137

Pase 138
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE JZRQABO.BL1;10 ( 37)

RD/RX EXERCISER
TYPE AND DESCRIPTION

ZRQAM?
v01.2

21=Jul=-1983 15:25:58
21-Jul=1983 15:19:20

H 1

RD/RX EXERCISER

ZRQAM?

HARDWARE PARAMETER CODING SECTION
5286

%sbttl "HARDWARE PARAMETER CODING SECTION’

5288

21-Jul=-1983 15: 9:20

SE0 138

Paae 139
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.BL1; 10 (38)

~nN)

N
H

WITH THE OPERATOR.

5267

BGNHRD;

5299
5300
5301
5302

GPRMA
GPRMA
GPRMD
GPRMD

5304

)
XFERF (HW1):;

5303

(HWQ1,
(HWQ2,
(HWQ3,
(HWQ4,

0, O, 4
2, O,
‘l g'
6,
4

160000°*,

Xo0°'177777°,

YES, 1);

4', %0°774°, YES, 13;
377, %00, %0'7°, YES, 1):

3', Xdecimal'0®, Xdecimal'3’, YES, 1);

GPRML (HWQS5, 6, Xo'4', YES, 1);

5308

5309

GPRMD (HWQ6, 8, D, X0'177777°, %decimal'0®, RD_MAX_LBN, YES, 1):

NO VSN
=

5310 GPRMD (HWQ7. 10, D, X0'177777%, GPSATLG (8), RD_MAX_LBN, YES, 1);

= OOV

XFER (HW2):
$L (HW1);

GPRMD (HWQ6, 8, D, X0'177777', Xdecimal'0', RX_MAX_LBN, YES, 1);

2{“?2u§?”°" 10, D, %0°'177777%, GPSATLO (8), RX_MAX_LBN, YES, 1);

$L (HWDONE):;

ENDHRD;

BR LEVEL

RDRX DRIVE NUMBER

UNIT TYPE

" WRITE TO DBN'S

$L (NODU);

GPRML (HWQ8. 6, %0°'100000°', NO, 1);
XFERF (HWDONE);
GPRML (HWQ9, 6. %0°100000', NO, 1);

IP ADDRESS

VECTOR

! run dup exerciser

GPRML (HWa10. 6. %0°000010°', YES, 1);
5306 XFERF (NODU):
5307 GPRML (HWQ11, 6, ¥0°'000020°', YES, 1);

5305

WVIVAAWWIWVIAA
IV
VA
N AN AN N N NN N N NN
PNON) = ad o b b wcd b =D b

IETEYEIETETE
I
.n.oQ.Q...Qo..!.io!-l.i..-s.!lt..-..-.ioiato'o

5293

| THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
! THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE
t MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT_ARE
' INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

«000O0

5289

[TE IR IRTEYEIEFEYE
PR X X NN 1

v01.2

21-Jul-1983 15: 5:58

! EXER ON CUST DATA AREA
i NO - DONE
i «* WARNING / CONFIRM

! STARTING LBN

! ENDING LBN

' STARTING LBN

i ENDING LBN

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES. THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT _ARE

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
WITH THE OPERATOR.

BGNSFT;

'GPRML (SWQ16, &, SWF_TRC,

ENABLE DIAGNOSTIC TRACE
ERROR LIMIT

YES, 1);

GPRMD (SWal, 0, D, X%o®177277°.°0. 65535, YES, 1);
GPRMD (Sw@2,

2 2, D, Xo'177777°',

0, 99, YES, 1);

TRANSFER LIMIT
PERCENT UF RD OPERATIONS

GPRMD (Swa1?, 10.°D. X0'17777%7*,°0, 100, YES, 1);

NUMBER OF DBN'S WRITTEN AT ONE TIME

NN RERRRRE

NOVIH NN =O VO NRWNEWN=O

VIWA VAW VWA

AN N AN N N AN N
WWN W WWNANANANAN AN AN N AN
[o SY IV, AV, VAV IV VTV AV 1V ]
oo [d

o~ o WSS NN

0000*3‘
= OOV

VAN WA A WA AT

e S T T I

TR PRTR

PR TR IRIR TR TR I TR

PRTR

E R PO P PN TS TR

2. 0. %0'177777°. 0. 144, YES, 1):
GPRMD (SWQ22, 12,

L P

OOOOQOOOOORO

Ysbttl *SOF TWARE PARAMETER CODING SECTION'
+

GPRML (SWQ1S, &, SWF_CST, YES, 1 )

IGPRML (SWG20, &, SWF_FER, YES,

IGPRML (SWQ21, &, SWF_HOE, YES,

GPRML (SWQ4, &, SWF_RDM, YES, 1)

1);
1);

XFERF (SW1);
XFER (SW2):

$L (SW1);

CLEAR STATISTICAL TABLES ?
REWRITE BLOCKS WHEN ‘FORCED ERROR'' BIT SET?
HALT ON HARD/SOFT ERRORS WITH 'HOE' FLAG SET?
RANDOM SEEK MODE ?

IF NO, DO NEXT QUESTION

GPRML (SWQ19, &, SWF_SEQ, YES, 1);
$L (SW2):
GPRML (SWQ7, 4, SWF_CRC, YES, 1);
DISPLAY (SWM1);
GPRML (SWQ9, &, SWF_(WC, YES, 1);
XFERF (SW3);

! FIXED OR RANDOM SEQUENTAIL STEPPING ?

GPRML (SWQ10, &, SWF_HW(C, YES, 1);

! CHECK WRITES AT HOST BY READING ?

GPRML (SWQ11, 4, SWF_UDP, YES, 1);
XFERF (SWS);

! USER-DEFINED DATA PATTERN ?
! IF NO, DO NEXT QUESTION

XFER (SW4);
$L (SW3);

$L (SWé);

XFER (SW6);
$L (SW5);

READ-COMPARES AT CCHTROLLER ?
REMAINING QUESTIONS ONLY APPLY ...
WRITE~COMPARES AT CONTROLLER ?
IF NO, DO NEXT QUESTION

GPRMD (SWQ12, 6, D, 20°'177777', 0. DP_CNT, YES, 1);
XFER (SW7);
$L (SW6);

! SELECT PRE-DEFINED DATA PATTERN
!

DONE

[4 1, MAX_UDP CgT L4 YES, 1).;! NO. OF WORDS IN USER DATA PATTERN
GPRMD (SwQ13, 8, D [ 20°177777°,
o
GPRMD (SWQ14, 1 4, 0, 20°177777°, 0, Xo"177777°, NO, 8); ! PATTERN VALUES
$L (SW7);

ENDSFT;

SEC 139

Page
VAX=11 Bliss=16 V3~555
(
R2: JZROABO.8L1:10
(DI TZ.RELEASE
DISKSUSE

OO0OOOOOD

VIS
NN = O D00 NNV
S WY

VAWM
WWA WM WAV
VWIWNA
N AN LA U NN N AN AN AN N AN AN NN
WIN NN N AN NN NN NV NN

RD/RX EXERCISER
SOF TWARE PARAMETER CODING SECTION

21=Jul=-1983 15
21=-Jul=1983 15:

«m~N

J 1"

! THE REPORT CODING SECTION CONTAINS THE
; ‘PRINTS'' CALLS THAT GENERATE STATISTICAL REPORTS.

5376

BGNRPT;

H
;
:

5278
5379
€380

PRINTS (RPT1);
PRINTS (RPT2);
PRINTS (RPT3).;

5382
5383
5384
5385
5386
gggg

PRINTS (RPTS);
PRINTS (RPT6);

:
H
:
:
:
H

5377
5381

! PRINTS MSCP DATA

PRINTS (RPT4L);

incr CTLR from 0 to MAX_CTLR - 1 do
begin
SET_CPAR (.CTLR);

incr DISK from (0 + OF _UN) to (3 « UNIT_SIZE + OF _UN) by UNIT_SIZE do

5389

ggg}

;

5393

it (.CST_ADDR [.DISK, D_TYPE) eql RX 50) and

5395

then

5390

5394

gggg

5398

2285

H
:

5403
5404

:
:
:
:

:
:

;
:

:
:

(.CST_ADDR [.DISK, D_PRES] eql PRESENT)

if (.CST_ADDR L[.DISK, D_TYPE] eql RD_51) and
en

begin
PRINTS (RPT9

.T_ADDR ETOT_READS_H!), .T_ADDR [TOT_READS_LOJ,
.T_ADDR [MTOT_BYT_RED], .T_ADDR L[TOT_BYT_RED_HIJ, .T_ADDR [TOT_BYT_RED_LOJ):

PRINTS (RPT9

.T_ADDR Eror_WwRITES HIJ, .T_ADDR [TOT WRITES_LO],

.T_ADDR [MTOT_BYT_WRT], .T_ADDR [TOT_BYT_WRT_HI], .T_ADDR [TOT_BYT_WRT_LO));

5411

P 5412

PRINTS (RPT10,

P 5613
2212

.T_ADDR [ERR_HRD_SEK), .T_ADDR [ERR_HRD_DAT], .T_ADDR [ERR_HRD_DRV], .T_ADDR CERR_HRD_HST],
) _TZADDR CERRZSFT_SEK], .T_ADDR [ERRZSFT_DAT], .T_ADDR CERR_SFT_DRV], .T_ADDR [ERRZSFT_HST]);

end;

5416

:
:

5420
5421

5419

PRINTS (RPT8, .LSLUN, .CST_ADDR [.DISK, D_DISK_NUM]);

it .CST_ADDR [.DISK, D_PRES] eql PRESENT
then

P 5407
5408
P 5409
P 5410

5417
56418

PRINTS (RPT7, .LSLUN, .CST_ADDR [.DISK, D_DISK_NUM]);

th (.CST_ADDR [.DISK, D_PRES] eql PRESENT)

5405
P 5406

:
;

SET_UPAR (.DISK);

gzgg

;
:

be?ln

end;

it .CST [.CTLR, STATE] eql PRESENT

then

begin

< N

000000000000 00000000000000000000000000000000%2
0000000800000 8¢000: 000,

5375

!¢

e 2o B0 8eBeBe0s

6372
gggz

:
:

Xsbttl 'REPORT CODING SECTION'

:
:

5369

5370
S371

SEQ 140

Page 141
VAX=11 Bliss=16 Vv3-555
2:10 (40)
QABO.BLT;
SER
[DIETZ .RELEASE]ZR
DISKSU

RD/RX EXERCISER
REPORT CODING SECTION

IRQAM2
v01.2

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

®aBs Bae®e

end;

PRINTS (CRLF);

5634
5435
5436
5437
5438
5439
5440
5441

end;
begin
gr1nts(crlf);

RINTS(RPT13)
;!4

PRINTS(RPT14);
PRINTS(RPT1S5);

INCR CTLR FROM O TO MAX_CTLR-1 DO
BEGIN

SET _CPAR(.CTLR);

_UN) BY UNIT_SIZE DO
INCR °'S§gE§3" (0+0F _UN) TO (3+UNIT_SIZE+OF
SET_UPAR(.DISK).

%thCST-ADDR[.DISK. D_TYPE] EQLU RD_51 and .CST_ADDR C.DISK, D_PRES] eql PRESENT

PRINTS (RPT16,

LLSLUN, .CST_ADDR [.DISK, D_DISK_NUM]

P 5443
54L&

5445
5446
5447
5448
5649
5450
5451

! PRINTS DUP DATA

.T_ADDR L[T_DBN_RD], .T_ADDRTMLT_BLK_ RDJ, .T_ADDR [T_DBN_WT), .T_ADDR [T_BLK_WT1);

end;

END;

PRINTS (CRLF);
ENDRPT;

LTITLE
JIDENT
.ENABL

000000

000003
000006

122

121

104

130

061

000

122
122
105
122
123
000

104

057

000010
000013
000016
000021
000024
000027
000030
000032

000000C

000034
000036

000031
0000006

130
130
103
105

040
105
m
122

.PSECT
LSDVTYP::
LASCI1

ZRQAMZ2 RD/RX EXERCISER
/v01.2/
AMA

$CODES,
/RQD/

LASCII

/X1/7<00>

LSDESC::.ASCII

/RD/<57>

.BLkB

LASCII
LASCI1
LASCII
.ASCI1

LASCII
.BLkB
LSHRDLN::

GP$1::

JWORD
.WORD
.WORD

/RX /
/EXE/
/RCl/
/SER/

<00>
2

<<<LSNDHRD=LSHRDLN>/2>=1>
3

HWQ1

% 8a®eete0s00808a®s8s000080000s00000000000000000000000000000000000000000000060800000 0090000080080 0, %00,

pnéurs (RPT12, .C_ERR_TBL C.CTLR, C_ERR_HRD], .C_ERR_TBL [.CTLR, C_ERR_SFT]);

5626

5427
5428
5429
5430
5431
5432
56433

DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1;10 (40)

PRINTS (RPT11);

5622
5423
5424
5425

SEQ 141

Page 142

€

R FE XN XN Y XN 1

NN T Y N N (I XTEIEATYTEYER IR
T EITEYER
ETE
AR IR I
TE
E
T

21-Jul-1983 15:25:
21=-Jul-1983 15:19:

RD/RX EXERCISER
REPORT CODING SECTION

IRQAM?
v01.2

VAX=-11 Bliss=16 V3-555

160000
177777

001031
0000006
000004
000774
002032
0000006
000377
000000
000007
003052
0000006

GPS$2::

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
GP$3::
.WORD
-WORD
.WORD
.WORD
.WORD
GP%4::
.WORD
.WORD
.WORD
.WORD
.WORD
GPS5::
.WORD
.WORD
.WORD
$HW1:
.WORD
GP$6::
.WORD
-WORD
-WORD
$NODU:
.WORD
GPS$7::
-WORD
.WORD
$LNODU: .WORD
.WORD
GP$8::
.WORD

GPS$9::

.WORD
-WORD
-WORD
-WORD
.WORD
-WORD

.WORD
.WORD
.WORD
$SHW?:
-WORD
SLHWT:
.WORD
GP$10:: -WORD
.WORD
.WORD
.WORD
-WORD
GP$11:: .WORD
-WORD
-WORD

-WORD

000210

001004

$SLHW?Z:

-WORD
.WORD

-WORD

=20000
;

1031

HWQ?2

774

2032

HWQ3

377

3052

HWQ4

3
0
3
3130
HWQ5
4

<<<<SLHWT1=SHWI>
400> +4>+40>
3130
?8010
<<<<SLNODU=SNODU> £40>+4>+40>
3139
HWa11
20
1004

4052

H¥Q6

0
52137
5452
HWQ7
-1
4

?213?

<C<K<SLHW2=8HW2>*400>+4>
1004
4052
HWQ6
-1

0
1437
5452
HWQ7
-1
4

}437
1004

e 143

DISKSUSER2:[DIETZ.RELEASEIZRQAVE. BL1;18 (40)
VAX=11 Bliss=16 vV3=555

< ~N

21-Jul-1983 15:25:58
21-Jul=198315:19:20

RD/RX EXERCISER
REPORT CUDING SECTION

SEO 142

0. 8a82020a0e00008:06000000 000000000003 000000000000000000005000900000000004000849000880002000 [ TR
IR PRLR
LN T AS X

003120

GP$12::

.WORD
.WORD

.WORD
SHUDONE .WORD

GP$13:: .WORD
000230

001004

000232
000234

000000¢

000236
000240
000242
000244
000246
000250
000252
000256
000256

000052
0000006

000260

000262

000264
000266
000270
000272

000274
000276
000309

000302
000304
000306
000310

.UORD
.WORD
$LHWDONE:
WORD
:
D
:
DHR
LSN
.BLKW
N::
FTL
LSS
.WORD
GP$14:: .WORD
.WORD
.WORD
WORD

177777

000000
177777
001052
0000006
177777
000000

000143
005052
0000006
177777
000000
000144

006052

00060006
177777
000000

GF$15::

GP$16::

-WORD

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

GP$17:: .WORD

.WORD
.WORD
.WORD
.WORD

GP$18:: .WORD

.WORD
.WORD

000312
000314
000316
000320
000322
000324
000326
000330
000332
000334
000336
000340
000342
000344
000346

000003

GPSDISP::

000350
000352

0000006
002130

GP$22::

GP$19::
$SW1:
$SWe:
$LSW1:

.WORD

.WORD
.WORD
.WORD

GP$20:: .WORD

.WORD
.WORD

$LSW2:
.WORD
GP$21:: .WORD

.WORD
.WORD
.WORD
.WORD

.WORD

3120

HWQ8

-100000

§§§SSLHHDONE-SHUDONE>'400>04>‘40>
HWQ9
-100000
1004
1

§§<LSNDSFT-LSSFTLN>/2>-1>

SWa1

-1

1052
S#O?

0
143
5052
57017
0

144

6052
S?Q?Z
0
220
2130
Swa15
200
2130
SWas4
2
<<<<SLSWT1=8SW1>¢4600>+4>+40>
<<<SLSW2=85W2>*400>+4>

e 82 8.8-000.0000000e000s000000000s000s000s00800005000000000000050000000080000000080%00008000000, e s 8 ®: s 0,

000212

21-Jul=1983 15:25:5
21-Jul=198315:19:2

RD/RX EXERCISER
REPORT CODING SECTION

IRQAM?
v01.2

SEQ 143

Page 144
VAX=11 Bliss=16 v3-555
DISKSUSERZ (DIETZ.RELEASEJZRQABO.BL; !

000410
000412
000414
000616

001004
003052
0000006
177777

000422
000424
000426
000430
000432

000025
000090C
001004
004052
0000006

000420

000434
000436
000440

000442
000444
700446
000450

000452
0004546
000456
000460

000000

000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000024
000026
000030

000000

177777
000001
000020

007222
0000006
177777
000000
177777
000004
001004

0000006
000000G
0000006
0000006
000000G
000000G
000000G
0000006
000000G
0000006
0000006
0000006
0000006

$SWS:
$SW6:

JMWORD
LWORD

SLSWS: .WORD
GP$25:: .WORD
.WORD
.WORD

.WORD

$SW7:

LWORD
.WORD

$LSW6: .WORD
GP$26:: .WORD
.WORD
WORD
.WORD
.WORD
GP$27:: .WORD
LWORD
.WORD
WORD
LWORD
.WORD
$LSW7: .WORD
LSNDSFT::

40
1004
2130
SWQ11
100

<<<<SLSWS=-8SW5>%400>+4>+440>
<<<SLSW6-$SW6>+400>+4>
1004
3052
Swa12
-1

25
<<<SLSW7=-$SW7>%400>+4>
1004
4052
SWQ13
=1
1
20

7222
SWQ14
-1
O
-1
&
1004

BLKW

.PSECT

SOWNS,

TBL.SUC:.WORD
.WORD
.WORD
.WORD
WORD
.WORD
JWORD
.WORD
.WORD
JWORD
.WORD
LWORD
.WORD

NULL
SC.Shl
SC.CON
NULL
SC.DUP
NULL
NULL
NULL
SC.ONL
NULL
NULL
NULL
NULL

-.......-.-.-...-...o.-.--.-...o-..tc..o...lo0.!........0..‘0..0-000-Do!o-"'-'-‘0'--

000404 000000C
000406 000000C

.WORD
$LSW4: .WORD
GP$24:: .WORD
.WORD
.WORD

000040
001004
002130
0000006
000100

WORD
$SW4:
$LSW3: .WORD
GP$23:: .WORD
LWORD

<<<<SLSW3=$SW3I>*400>+4>+40>

<<<SLSW4=-3SWe>*400>+4>
1004
2130
SWQ10

000372
000374
000376
000400
000402

000000C
001004
002130
0000006

JWORD

000362
000364
000366
000370

$SwW3:

SWQ9
20

000360 000000C

.WORD
.WORD

000000G
000020

000354
000356

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
REPORT CODING SECTION

IRQAM?
v01.2

SEO 144

8e 145
VAX=11 Bliss=16 Vv3=555
(40)
10
OABO.BL1:
DISKSUSERZ C(DIETZ.RELEASEIZR

B 12

0000006
0000006
0000006
0000006
0000006

.WORD
.WORD
.WORD
.WORD
T8L.OFL: .WORD

.WORD
+WORD
-WORD
-WORD
.WORD
.WORD
.WORD
+WORD
TBL.MFE: -WORD
.WORD
-WORD
.WORD
-WORD
.WORD
+WORD
.WORD
-WORD
-WORD
-WORD
TBL.WPT: -WORD
-WORD
-WORD
T8L.DAT: .WORD

+WORD

-WORD

-WORD
.WORD
.WORD

000172
000174
000176
000200
000202

0000006

.WORD
.WORD
-WORD
.WORD
.WORD
-WORD
.WORD
-WORD
.WORD
.WORD
TBL.HST: -WORD
-WORD
.WORD
.WORD
.WORD
TBL.CNT: .WORD
.WORD
-WORD
.WORD
TBL.DRV: -WORD

SEQ 145

Pa e 146
VAX-11 Bliss=16 Vv3-555
DISKSUSER2:[DJETZ.RELEASEJZROABC.BL1;1 (40)

AT OO OO OO0 OOOOOOODOOOOOODO0

RD/RX EXERCISER
REPORT CODING SECTION

2 :5 8
5:19:2 0

YN YOI

21=Jul=-1983
21=Jul-=1983

o s~ P S P S £\ SN PN S S SN OO AN AN LN

c 1

D12

21=Jul=1983 15:25:5 8
21=Jul=1983 15:19:2 0

RD/RX EXERCISER
REPORT CODING SECTION

0000006
000000G
0000006
0000006
0000006
0000006
0000006
0000006

SEQ 146

Page 147
VAX=11 Bliss=16 V3=555
( 40)
0
.BL1;1
JRQABO
E]
Z.RELEAS
R2:[DIET
DISKSUSE

-WORD
-WORD
.WORD
.WORD
-WORD
.WORD
+WORD
.WORD

SC.SRT
SC.SRI
SC.POE
SC.RDY

.GLO8L
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

CST, CST.ADDR, DCT, DCT.ADDR, RDRX.ADDR
IRDRX.ADDR, DUPPKT. TALLY. T.ADDR
C.ERR.TBL, MSCP.PKT, IPKT.ADDR

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

SC.CLK

SC.RSP
SC.SUR
SC.PSP

PKT.USE, RETPKT, RP.USE, RF.INDX
RP.ADDR. ELOG.PKT, BUFF.ADDR, BUFF.OWN
100Q, 10DQ.IN, 100Q.0UT, ENTRY.REASON
EOP.FLAG, DUP.FLAGS. CCTLR, CDISK
CUOFF, CTLR.CNT. DUR, QIO, FREE.MEM.ADDR
BYTS.PER.QI0, ST.CODE, $B.CODE
STEP. OF.RC, SA.REG, CMD.TIME
NEX, CRN.LOW, CRN.HIGH, P.INDEX
S.DUPPKT. S.PATTZRN, CREDIT.BAL
NEXT.PKT.USE. DBMS, DBM107, DU.MSG
DU.RSN, ERR.COD, ELG.FMT, Hwal
HW02, HWQA3, HWQ4, HWQS, HWQ6, HWA?7

HWO8. HWa9. HWa10, HWal1, Swal

SWQ2. SWQ4. SWa7, Swa9, Swa1o
Swo1i, swai2, swa13, swal4, Swals
SWa17. SWa19, SWa22. SwWM1, NULL
MSG.07, MsG.02, MSG.03, RPT1, RPT2
RPT3, RPT4, RPTS, RPT6, RPT7, RPT8

RPT9. RPT10, RPTi1. RPT12, RPT13
RPT14. RPT1S, RPT16. EGS.01, EGS.02
£GD.10, EGD.11, EGD.12, EGD.13
GD.15. EGD.16. EGD.17
GD.20. EGD.21. EGD.22

‘*

EH.5, EH.6, EH.7. ENH.8

EH.10, EM.12.

EM.13, EBS.01

€8D.70, EBD.12, EBD.13. EBD.14
EBD.18. EBD.19. ELG.00, EX.BDR

EX.80W. EX.LBR. EX.LBW, EX.RBN

EX.CBR. EX.CBW, XXi3,

XX14,

XX15

xx16. xx17. xxi8, xxi9. xx20, xx21

XX22. XX23., XX24. XX25. XX26, XX27
XX29. Xx30. xx31. XX32. XX33, XXx34
Xx35. xx37. xx38. XX39, XX40, XX41
EB.DCT, EB.COMM, EB.PKT,

EB.RAL

EB.ADDR, EBNEX1. EB.NEX2, EBNEX3
CER.01,
EX.MTIN.
EX.ACC.
EX.ESP.

CER.02,
EX.DGM,
EX.ONL.
EX.ELP,

EX.SEQ, EX.CRD
EX.RD, EX.WRT
EX.SCC. EX.GDS
EX.SDD, EX.RCD

.GLOBL
.GLOBL
.GLOBL
.6GLOBL
»GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

SC.ECD, SC.RCT, SC.FUL

SC.FCT, SC.EC1, SC.EC2
SC.EC4, SC.EC5, SC.EC6
SC.EC8, SC.ECY, SC.SwP

SC.0DA, SC.0DB, SC.NXM

SC.PSP. F.1, F.2, F.3, F.4, F.S
F.6, F.7. F.8, F.9, F.10, F.11

F.15, F.13. F.14., £.15, F.16,

Fo18. F.10. F.20. F.21. EBH.30

T.DEF, T.INF, T.TER, T.FAT, T.SPL
E.UNT. E.BLK. E.DEV. E.ZER, M.ASC
M.BIN, M. TER, M.COD, M.DAT, M.UR
M.URP, M.UP, M.UL, CNTR.ERR, RDRX.ERR
EX.WRD, EX.OP, SPACE4, CRLF, DASH
:gbfi?{SK. SWP.FLAGS, LSHIMEM, LSLUN

=100000

e B b

e,
Gy Ny
N

I XY

By==I=1=0=1=)
OO0

(NP NS

e
e

F.17

EBH.44, EBH.4S, EBH.46, EBH.47
EBH.48. EBH.49. DF.0, DF.1, DF.2

=2 PN SV
NN VO OOOOOOOOOO0
= = =b —b b b
NNt iloO=NIWSs
VAN OO=NWSWN

Gueg Dumg Druep $umeg Py Sumg Sy

SC.DIS, SC.FER, SC.FE2
SC.1S2, SC.DST, SC.DS2

e b i

g Bumg S

SC.SDI, SC.CON, SC.DUP
SC.SON, SC.UNK, SC.VOL

EX.ABP,
SC.ONL,
SC.JOP,
SC.ISH,
SC.ECC,
$C.576,
SC.EC3,
SC.EC?,
SC.HWP,

e e e
P

e e

syl g Guug Gung

D S

Puspas@eipun

G0 v 0 o 0o Co G Co G t G Gd T G T

000004
000002

100000

O T @ @ M GO b b (b (D

.GLOBL

21-Jul=1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
REPORT CODING SECTION

IRQAM?
vC1.2

SEQ 147

Paae 148
VAX-11 Bliss=16 V3-555
(40)
10
O.BL1;
JZRQAB
.RELEASE
2
DISKSUSER2:[DIET

E 12

1
21=Jul=1983
5
83
21=Jul=19

RD/RX EXERCISER
REPORT CODING SECTION

BIT0==
EF .START==
EF .RESTART==
EF .CONTINUE==
EF .NEW==
EF .PWR==
PRIO7==
PRI06==
PR10S==
PR104==
PRI03==
PR102==
PRI01==

PR100==
Evi==
LOT==

ADR==

IDU==
ISR==

UAM==

BOE==

-100000

HOE==

LSHRDLN+2
LSSFTLN+2

LSHARD==
L$SOFT==

000034
000236

000000G
0000006
000001
000000G
000001
0000006

000001

0000006
000001
000064

IXE==
1BE==
I1ER==
LOE==

100000

004137
012746
012746
010600

R A

PNT==
PR]==

0000005

LRPT:

.SBTTL
PSECT

LRPT REPORT CODING SECTION
$CODES.,
RO

JSR

R1,$SAVES

MOV
MOV
MoV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV

#RPT1,-(SP)
#1,-(SP)

?P.RO

6
#RPT2, (SP)
#1,-(SP)

SP,RO

16
#RPT3, (SP)
#1,-(SP)

SP.RO

16
#RPTL, (SP)
#1,-(SP)

SP,RO

#RPTS, (SP)

5368
5378

: SP,»
5379

: SP,x

5380

: SP,»
5381

: SP,»
5382

IRQAM?
v01.2

SEO 148
8 149
VAX=11 Blis s- 16 v3-555
(40)
194 .RELEASEJZROAB0.BL1;10
DISKSUSER?: (o IETZ

Y e e e lele e le leleleleleoleololalolelo TN 4 )

F 12

SEQ 149

Page 150
VAX=11 Bliss=16 vV3=555
(40)
BL1;10
2:
IZRQABO.
SER
[DIETZ .RELEASE
DISKSU

NEEN

MoV
MOV

000001

TRAP

Mov
MoV
MOV
TRAP

0000006
000001

?_o_.
g—.oo—n._.—n
F3S

OO0 =000=200

RD/RX EXERCISER
REPORT CODING SECTION

000000V

000003

000000V

18:

28:

000000G
000004
040000

0000006
000004

3%:

177774
0000006
0000006
000003

MOv8
8IC
MoV
MOV
MOV

0000006
000032
000034
000036
000016
000020

MOV
TRAP

; CTLR
: CTLR,*

5385
5387

: «,DISK
: DISK,»

5389
5391

; DISK,«

5393

5394

5396

PC,SET.CPAR
#3,R2
R2, (SP)

PC,SET.UPAR

R2,R1
R1
R1,.RO

CST.ADDR,RO

#40000, (RO)
3s
(RO, (SP)

ADD

77724, (SP)
LSLUN,=(SP)
#RPT7.=(SP)
#3,-(SP)

SP,RO

: SP,»

R1,RO

5398

#4, (RO)
‘s
#40000, (RO)
43
(RO), (SP)

5399

5401

CST.ADDR,RO

8177774, (SP)
= (SP)
LSLUN,

#RPT8.=(SP)
#3,-(SP)

SP.RO
16

ADD
MOV
ADD

#6,5P
R1.R0
CST.ADDR,RO
ggoooo.(RO)

MOV
MOV
MOV
MOV
MOV

T.ADPR,RO

BIT
BEQ

MOV

5383

R3
R3, (SP)

8IT
BEQ

MOV
ADD

:
: SP,»

#4, (RO)

MOV
MOV
MoV
MOV
TRAP

: SP,+

SP,RO

8IT8

040000

000000G
040000

000332

JSR
MOV
ASL
MOV
ADD

8IT8
BEQ
BIT

000006

016016
016046
016046
016046
016046

JSR

MOV
MOV

MOVB

177774
000000G
0000006
000003

000006

CLR

#1,-(SP)
?P.RO
6
#RPT6, (SP)
#1,-(SP)

32(R0), (SP)
34(RO) ,=(SP)
36(RO) ,~(SP)
16(R0) ,=(SP)
20(R0) ,~(SP)

: SP,»

5403

5408

H 12

000336

21=-Jul=1983 15:
21-Jul-1983 15:

RD/RX EXERCISER
REPORT CODING SECTION

IRQAM?
v01.2
012746
012746
010600
104416
013700
016016
016046
016046
016046
016046
012746
012746
010600

104416

0000006
000006

0000006

0000006
000006
0000006

000067

000066

000065
000054

000063
000062

000060
000000G
000011

000005

000022
000612°'
000056
0000006

0000026
0000006
000001

005016

#RPT9,-(SP)

Move
CLR
MOvB
CLR
MOv8
CLR
MOvVB
CLR

65(R0), (SP)

Mov8s
MoV
MoV
MOV
TRAP
ADD
ADD
CMP

, (SP)
60(R0)
#RPT10,~(SP)

JMP

Movs
CLR

000061

000052

MoV
MOV
Mov
TRAP
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
TRAP
MOV
CLR
Movs
CLR
Mov8e

5$:

86T

6%:

MOV
MOv

JSR

ST
IST
8PL
MOV
MOV
MOV
TRAP
MOV
ASL

CLR

#6,-(SP)

SEQ 150

Paae 151
VAX=11 Bliss=16 Vv3=555
10 (40)
1;
QABO.BL
EASEIZR
ET2.REL
ER2:[DI
DISKSUS

SP.RO

: SP,*

T.ADDR,RO
40(RO), (SP)

5411

42(R0) ,=(SP)
44(RO) ,=(SP)

24(R0O) ,=(SP)
26(R0Q) ,=(SP)
#RPT9,=(SP)
#6,-(SP)
?P.RO

6
T.ADDR,RO
(SP)

; SP,»

;

5414

67(R0), (SP)
-(SP)

, (sP)
66(R0)
-(SP)

=(SP)

64(R0) (SP)
(SP)
63(R0) (SP)
(SP)

62(R0) (sP)
(SP)

61(R0) (SP)
=(SP)

#11,-(SP)
?P.RO

: *,DISK

'A
gsgg

R3.,(SP)
#56,-(SP)
PC ,BLSMUL
(SP)+

: CTLR,®

5419

#RPT11,(SP)
#1,-(SP)

5422

: DISK,»

CST+2(R0O)
78
SP.RO

; SP,»

R3,RO
RO

s CTLR,®

(SP)

§423

]
MOV
MOV

(SP)
C.ERR,.TBL(R0O),
#RPT12,=(SP)
#3,-(SP)

TRAP

000010
0000006
000001

MOV

7%:

=(SP)

SP.RO

: SP,e

ADD
MOV

#10,5P
#CRLF,(SP)

:
:

MoV

SP.RO

: SP,*

TST
INC

(SP)+
R3

:
: CTLR

5386
5385

BGT
JMP

8s
1%

#CRLF ,(SP)

5430

SP,RO

;s SP,+

#RPT13, (SP)

MOV
TRAP

#1,-(SP)
16

.WORD CLV!CLC

000600°

0000006
000001

8$:

MOV

f,-(SP)

TRAP

MOV

000000G

MOV
Mov

000001

TRAP

MOV

0000006

8 ,=-(SP)
SP,RO
16

#RPT14, (SP)

MOV
MOV

#1,-(SP)
SP,RO

: SP,¢

0000006

MOV

#RPT15,(SP)

MoV
MOV

000001

TRAP

000000V

000003

000000V

0000006
000004

040000

0000006
000050
000052
000054
000056

9%:
108:

M ,-(SP)
oP,RO
16

5431

; SP,e

000001

TRAP

5421
5426

5432
5433

: SP,«

CLR
Mov

R2
R2,(SP)

: CTLR
: CTLR,

5434
5436

MOV

#3,.R1

: «,DISK

5437

JSR

PC,SET.UPAR

ASL

: DISK,«

5440

5444

JSR

MOV
MOV

PC,SET.CPAR

R1,(SP)
R1.RO

ADD
8IT8

CST.ADDR,RO
#4,(RO)

BIT

#40000, (RO)

MOV

T.ADDPR,R3

MOV8

(RO) ,=(SP)

BEQ

8EQ

MOV
MOV
MOV
MOV

: DISK,»

5439

118

SO(R3),(SP)
52(R3) ,=(SP)
54 (R3),=(SP)
56(R3) ,~(SP)

<~y

(ololelelelolalalele]

0000006
0000006
000003

CLR

OO0

MOVB

O VYOO OOOOOOOOOOOOODOOD

(SP)
C.ERR.TBL+1(RO),

000001G

YOV

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
REPORT CODING SECTION

SEQ 151

Paae 152
VAX=11 Bliss=16 V3=-555
(40)
;10
EIZROABO.BL1
DIETZ.RELEAS
DISKSUSER2:[

112

000016

—

WNONIN)
b= - 8
nNOSNONNNO

b and

b b

8833322

-—t e

000005
000022

000243

003717
012716
012746
010600
104416

062706
000207

0000006
000001

000030

an77774,(SP)

TRAP
ADD

16
#16,SP

118:

ADD

: SP,»

#5,R1

;s *,DISK

5437

: CTLR

5434

5449

BLE
MOV
MOV
MOV

9%
#CRLF,(SP)
#1,-(SP)
SP.RO

ADD

#30,SP

RTS

: DISK,®

; SP,»

5368

5449

Base:
Routine
$CODES + 0462
)
: Routine Size:
302 words,
34 words
: Maximum stack depth per invocation:

000000
000004
000006

004737
104425
000207

000462°'

.SBTTL

LSRPT:: JSR

TRAP

RTS

LSRPT REPORT CODING SECTION
PC.LRPT
25
PC

SCODES + 1616
4 words,
Routine Base:
: Routine Size:
words
2
invocation:
: Maximum stack depth per

<«

-t

LSLUN,=(SP)
#RPT16,-(SP)
#7,-(SP)
SP,RO

R1,422
CMP
108
BLE
INC
R2
.WORD CLV!CLC

TRAP

PRIV

062706
062701
020127
003727
005202

104416

8IC

MOV
Mov
Mov
MOV

PPOAAQY

177774
0000006
0000006
000007

SEQ 152

Paae 153
VAX=11 Bliss=16 V3=555
(40)
.BL1;10
DISKSUSER2:[DIETZ.RELEASEIZROABO

QRPRPRRY

062716
013746
012746
012746
010600

\V_ 1V, ]

21-Jul-19
21=Jul-19

RC/RX EXERCISER
REPORT CODING SECTION

oTM
bovtv

J 12

gzg%

Ysbttl *INITIALIZE SECTION'

:
:
:

5454
5455
5656

BGNINIT;

:
:
:

5457
5458
5459

gzg;

5460

Llocal

DELAY_MULT : word,
FLAG : byte,
TEMP : word,

CLEAR_TABLES : byte;

2222 SETPRI (PR107);

5465

gzgg

;

5470

:
:

5466
5467

if READEF (EF_NEW)

then

i¢ (.SWP_FLAGS and SWF_CST) neq SWF_CST

5473

else

H
:

5476
5477

end;

M
:

5472

5474
5475

5478

5479

5480

5482

:
H

5484
5485

5481

5487

5488

§L570

:
:
H

5489
5490
5491

CLEAR_TABLES = FALSE
CLEAR_TABLES = TRUE;

if READEF (EF_START)

then

begin

ENTRY_REASON = START;

CLEAR_TABLES = TRUE;

end;

1if READEF (EF_RESTART)

then

ENTRY_REASON = RESTART;
CLEAR_TABLES = TRUE;
end;

if READEF (EF_CONTINUE)
then

2289

ENTRY_REASON = CONT;

5498

5500

5502

:
:

5495

be?in

if (.SWP_FLAGS and SWF_CST) neq SWF_CST

5499

then

5501

else

5503

5504

! IS THIS A RESTART?

begin

5493
5494

:
.

' IS THIS A START?

BRESET;

5483

5486

! IS THIS A NEW PASS?

ENTRY_REASON = NEW_PASS;
then

;

' PRIORITY 7 = NO INTERRUPTS ALLOWED DURING INIT

be?in

5471

HWPT REF : ref block [HWPT_LEN, word] field (HWP_FIELDS),

end;

CLEAR_TABLES = FALSE
CLEAR_TABLES = TRUE;

' IS THIS A CONTINUE?

000000000000
D0 0008000000000 0 0 000,

21=Jul~-1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
INITIALIZE SECTION

ZRQAM?
v01.2

SEQ 153

Paae 154
VAX=-11 Bliss=16 v3-555
(41)
BL1;10
ASEIZRQABO.
[DIETZ.RELE
DISKSUSER2:

505

un.n\nmmmmmmmmmmwmmmmmmmmmmmm\nun.nu'mmmmmmmmmmmmmmwwmmmmm\.nm

i; READEF (EF_PWR)

' ARE WE HERE BECAUSE OF POWER FAIL?

then

begin

ENTRY_REASON = PWR FAIL;

CLEARTTABLES = TRUE:;
PRINTF (MSG_01);

! "POWER DELAY = WAITING''

incrbCOQNT trom 0 to 60 do

! WAIT APPROX. 60 SECGNDS

egin

oEfAv-HULT = 333;

DELAY TM (.DELAY_MULT);

BREAK;

end;

! BREAK FOR ACT

MAKE SURE THAT NOT MORE THAN MAX UNITS HAVE BEEN SPECIFIED.

(DIAGNOSTIC IS ABORTED).

! SET ODT TRAP VECTOR

IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR.

if .LSUNIT gtru MAX_ULnITo>
then
begin

ERRSF (1, EGS_01, EMS_01);
DOCLN;

end;

N I

i) V1A

T AT

'SETVEC (O_TVEC, O_BRK, PRIO?7);

end;

42
43

544

gzg

;
!

THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS EXCEPT NEW_PASS.
ALL RUN-TIME CONTROLLER STATUS TABLES (CSTs) ARE CLEARED TO O, THEN
LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P-TABLES.

;

(.ENTRY_REASON neq NEW_PASS)

then

begin

547

incr COUNT from 0 to ((MAX_CTLR « (ST_LEN = 2) - 2) by 2 do

gg?

incr UNIT from 0 to (.LSUNIT = 1) do

gzg

552

553

554
ggg

557

(CST + .COUNT) = 0.

if GPHARD (.UNIT, HWPT_REF) neqa 0

then

! LOOP THROUGH ALL UNITS
! IF HWP TABLE FOUND

begin
FLAG = NOT_FOUND;

incr CTLR from 0 to (MAX_CTLR - 1) do

' LOOP THROUGH ALL CSTs

RD/RX EXERCISER
INITIALIZE SECTION

WEA N N NV

WAV

AN AN N NN N N N NN N PO NI NI NI NI NININ) b b b b b e b b = 2 O O O
CONO NS NWA 2O VO NOWVIS W= OOVDNO NS WNI=OO

506

(VA RV IV RV LV

....I.l....!Q!...Q'...!..l..i....O..................Q

ZRQAM?
v01.2

SEQ 154

Pa8e 155
VAX=11 Bliss=-16 V3=555
DISKSUSER2:CDIETZ.RELEASEJZROABO.BLY;10 (41)

21=Jul=1983 15:25:58
21=Jul=-1983 15:19:20

0090000000003 000000050000000200 0000800000000,

n12

21=-Jul=-1983 15:25:58
21=-Jul=1983 15:19:20

RD/RX EXERCISER
INITIALIZE SECTION

it .CST [.CTLR, IP_ADDR] eqla .HWPi_REF [HWP_IP_ADDR]

then

N PR PRTR TR YR YR IR YR Y LN K I TEYR IR LN

N TY

IRQAM2
v01.2

i; .CST [.CTLR, .HWPT_REF [HWP_DISK_NUM] ¢ UNIT_SIZE ¢ OF _UN, D_PRES] eql NOT_PRESENT
then

begin
TEMP

= .HWPT_REF [HWP_DISK_NUM] * UNIT_SIZE + OF UN;

= uupr REF CHWP_DISK];
CST C.CTLR, -TEMP, D_ALL]
CST C.CTLR, .TEMP, o,uuxr]

' IF EMPTY SLOT FOUND

! COPY DiSK ADDR AND PROT BIT

CST C.CTLR. .TEMP. D_FATALJ FALSE
= PRESENT;
CST C.CTLR. .TEMP. D_PRES)

CST [.CTLR, .TEMP + 7, D BEGJ = uupr REF [HWP_BEG_TRK];

CST L.CTLR, .TEMP + 2, D_END] = uupr TREF [HWP_END_TRK];

);
EF [HWP_DUPEX]
NOT(.HWPT_R
=
5
++ X,3, NODUPMEDIA
.TEMP
C.CTLR,
CST
);
THwP_DUPWT]
DUPWRITE]= (.HWPT_REF
CST C.CTLR, .TEMP
CST C.CTLR, .TEMP + 3, D DBN] =

= 0;
CST [.CTLR, .TEMP + &, D_COUNT]

IR IR FE PRTR

it (.CST [.CTLR, .TEMP, D_TYPE) eql RX_50) and
(.CST C.CTLR, .TEMP + 2, D_END] gtru RX_MAX_LBN)
en

CST C.CTLR, .TEMP + 2, D_END] = RX_MAX_LBN;

FLAG = FOUND;

AR E R
[ TE YA
TRTIEIRIAIEIE TRTR PRXX TN1Y RN EEEEEE

sea 155

8e 156
VAX=11 Bliss=16 v3-555
DISKSUSERZ: [DIETZ.RELEASEIZROABO.BL1;10 (41)

else

exitloop;
end

be?ln

! DUPLICATE UNIT

PRINTF (CER_01, .HWPT REF CHWP_DISK_NUM], .HWPT REF [HWP_IP _ADDR]);
DUR C.UNIT) = DU_CONF;
DODU (. UNIT);

FLAG = FOUND;
exitloop.
end;

;; .FLAG eql NOT_FOUND
en

t *ODUPCICATE UNIT: xx AT IP: XxxxXxxTM

! CONFIGURATION ERROR
i DROP UNIT

' [F NO IP ADDR MATCH TO EXISTING CST

begin

incr CTLR from O to (MAX_CTLR = 1) do
i; .CST [.CTLR, IP_ADDR] eqta 0

then

! LOOP THROUGH EACH CST
!

IF EMPTY CST FOUND

begin

FLAG = FOUND;

= .HWPT _REF [HWP_IP_ADDR];
CST C.CTLR, IP ADDR]

CST C£.CTLR, VEC ADDR]= .HWPT _REF [HWP VECTOR]:
CST [.CTLR. BR_CEV] = .HWPT REF [HWP_BR_LEVEL];
TEMP = .HWPT _REF [HwP DISK _RuM] = UNIT _SIZE + OF _UN;
CST [.CTLR, -TEMP, D_ALL)= .HWPT_REF THWP_DISKJ]?
CST [.CTLR, .TEMP, o“UNIT]= .UNIT;

'COPY DISK ADDR AND PROT BIT

N 12

7 7. 7. VX%
—t
= = ——

(alnlalnliale]

R YR YR N TN ¥)
FETR SR

[HWP_DUPEX]);
PT_REF WRITETMTO
= NOT(.HW
EDIAj
NODUPH
\
DBNs.
ROT
TO
i CHECK TO SEE IF PROGRAMMER WANTS

5622
5623

it (.CST [.CTLR, .TEMP, D _TYPE] eql RX_50) and
(.CST C.CTLR, .TEMP + 2, D_END] gtru RX_MAX_LBN)

then

5625

IR N X T

T EYE YR IR TE YA

uupr“REF CHWPZEND_TRK]:

=
CST [.CTLR, .TEMP + 4, D_COUNT]

£620

R R IR

CST C.CTLR, .TEMP + 2, D_END] = RX_MAX_LBN;

exitloop:

end;

5628

it .FLAG eql NOT_FOUND

5631

then

5633

PR NTF (CER 02 MAX CTLR):

5635

pODU (.UNIT);

DUR C.UNIT)= DU CONF ;

5634

end;

(¥}
~

5636

PN DN P T TN P PN X [T E R
R
PR P PR PR TN TR T
A
A
A
EETE
A
AR

gggo%

CST C.CTLR, .TEMP + 3, DUPWRITE] = ( HWPT_REF [HWP_DUPWT]);

5630

= .HWPT_REF [HWP_BEG_TRK];
, D_BEG)

2.
TLR, JTEMP + 3
TLR, .TEMP ¢ g

5619

5627

TLR, .TEMP, D FATAL)
= FALSE;
PRESENT
=
LR, rsnp D”PRES]
1

end;

5638

! IF EMPTY (ST FOUND

! 1F NO EMPTY CST FOUND

' 'MORE THAN X DIFFERENT IP ADDRESSES.''

! CONF JGURAT]ION ERRCR

! DROP UNIT

! IF NO IP ADDR MAT(CH IN (ST

! IF GPHARD RETURNS A HWP TABLE

end;

ggz?

‘

5642

. CONF JGURATON CHECK FOR LEGAL RDRX UNIT MIX BECAUSE WE HAVE DIFFERENT

5644
5645

!
!

' DRIVES :

5643

THE RD51, AND RX50.

! END OF 'NON NEW_PASS'' INITIALIZATION

end;

5646
5648
5649
5650

(NEEDED?)

if .ENTRY_REASON eql NEW_PASS

then

begin

5652

incr UNIT from O to (.LSUNIT - 1) do

5655

incr CTLR from 0 to (MAX_CTLR - 1) do

5653

5657

GPHARD (.UNIT, HWPT_REF);

CS?C.CTLR, U_CNT]= 0;

' DUMMY GPHARDs FOR NEW PASS

' REINITIALIZE UNIT COUNT

5659

incr OFFSET from (0 + OF_UN) to (3 = UNIT_SIZE + OF _UN) by UNIT_SIZE do

5662

end.

5660

CST [.CTLR, .OFFSET,”D_STAT] = OFFLINE;

' START EACH UNIT AS OFFLINE

S e 8o %o ®e®atots®e0e8c0s8s%0000s000s0:00000080000000000000060s05000200000000000080099000000:5050000000000000.

21~-Jul=-1983 15: 2 :5 8
21-Jul~1983 15:19:2 0

RD/RX EXERCISER
INITIALIZE SECTION

IRQAM?
v01.2

SEQ 156

Paae 157
VAX=11 Bliss=16 Vv3-555
(41)
1;10
QABO.BL
EASEIZR
ETZ.REL
ER2:[DI
DISKSUS

RD/RX EXERCISER
INITIALIZE SECTION

ZRQAM2
v01.2

end;

95664

:
:
H
:

5665
5666
5667
5668

;

gg;g

;

gg;}

gg;g

;

gggg

MEMORY (FREE_MEM_ADDR);

;

5679

end;

:
:
:

begin

CTCR_CNT = 0;

gggg

incr CTLR from O to (MAX_CTLR = 1) do

i; .CST [.CTLR, IP_ADDR] nega 0
CTLR_CNT = .CYLR_CNT + 1;

then

5680
5681

5682

! NUMBER OF CONFIGURED CONTROLLERS

!¢
!

' IF CONTROLLER IS PRESENT
! INCREMENT CONTROLLER COUNT
' GET START OF FREE MEMORY

' END OF ‘'START'* INITIALIZATION

CLEAR STATISTICS TABLES

! CLEAR CURRENT STATISTICS
incr UNITS from O to MAX_UNITS = 1 do
incr COUNT from O to TALLY CLEAR - 1 do
TALLY C.UNITS « TALLY_LEN + .COUNT] = 0;
gggg

5689

5691

:
:

;

5686

5690

5695

:
:
H

5700

then

' IF CLEAR TABLES ON EVERY PASS

incr UNITS from 0 to MAX UNITS - 1 do

incr COUNT from TALLY CLEAR to TALLY LEN - 1 do
TALLY C.UNITS * TALLY_LEN + .COUNT] = 0;

5692
gggz
5696
5697
5698

if .CLEAR_TABLES

' INITIALIZE TOTALS
!

1if .CLEAR_TABLES

then

incr CTLR from 0 to MA'\_CTLR = 1 do
begin

C_ERR_TBL [.CTLR, C_ERR_HRD] = 0;

5699

CCERRCTBL [.C1.R, C_ERR_SFT] = 0;

5701

end;

5702
5703
5704

'+
!

;

5707

incr CTLR from 0 to (MAX_CTLR - 1) do

;

g;}? CRN_LOW = CRN_HIGH = 0;

g;}%

SETPRI (PR100):

;

5714

ENDINIT;

:
:
;

! INITALIZE CONTROLLER ERRORS

5685

MISCELLANEOUS INITIALIZATON

' SET PROGRAM PRIORITY TO 0

' INITIALIZE COMMAND REF NUMBER

QIO [.CTLR] = 0;

2;88

e AN AN

' INITIALIZE NO. OF OUTSTANDING QIOS

ate

amn S

;

SR, SN, PV, gy, PN

then

SEm. PRV, SR

if .ENTRY_REASON eql START

SR, S

21-Jul=1983 15:25:58

21-Jul=-1983 15:19:20

SEQ 157

Page 158
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL1;10 (41)

<<~

B 13

162736
012700
104441

LINIT:

0000006
000020
000340

5465

#5,ENTRY .REASON

:
;

5468
5470

: CLEAR.TABLES
H
: ~,CLEAR.TABLES
H

5472
5470
5474
5478

#37,R0

H
:
: «,CLEAR.TABLES
H

5480
5482
5483
5486

#36.R0

H
; «~,CLEAR.TABLES
.

5489
5490
5493

:
:

5496
5498

: CLEAR.TABLES
H

5500
5498

:
: »,CLEAR.TABLES
H

5509
5510
5511

#40,R0
47

000001
000001
000037

0000006

000002
000001
000036

0000006

3s
33

3$:

000001
000034

¥
A

5%:
6%:

000004 0000006
000001
0000006
000001

000022

pé 3

000003 00G000G
0000006

005066

5463

#1.RS

000040

000232
000234

#20,sP
#340.R0

?gP.FLAGS

000001

000226

5451

000005 0000006
0000006

0000006

41
#35.R0
47

no0035

000075
000515

LINIT INITIALIZE SECTION
R1,$SAVES

7%:

8s:
9%:

#1,ENTRY .REASON
#1 RS

47
4$
#2 ,ENTRY .REASON
#1,R5
47
63
#3,ENTRY .REASON
ggP.FLAGS

R5
6$
#1,R5
#34 RO
47
12$
#4 ,ENTRY .REASON
#1.RS
#MS$G.01,=(SP)
#1,-(SP)

SP.RO
17
#75 R2

#515 .R3
R3,Ri

11$

LSDLY,RO
1 0s
22(SP)

: ~,CLEAR.TABLES
:

5502
5506

; SP,»

s ~,COUNT
: «,DELAY.MULT
: DELAY.MULT,SSTMP2
; «,$STMP1

: $STMP

5513
5515
5516

£ N

ENCIVOIOIO OO

004137

LSOLY

N EN LN LN O

SEQ 158

Paae 159
VAX=-11 Bliss=16 V3-555
0 (41)
O.BL1;1
EJZRQAB
.RELEAS
ETZ
ER2:[DI
DISKSUS

. . . . . P S S~ — P S~ S~ o~ S

INITIALIZE SECTION

Co Qo

21=Jul=19
21=Jul=19

RD/RX EXERCISER

IRQAM2
v01.2

(VLV]

c13

005300
001374
005301
000766

101405

118:

0000006 000004

: $$TMPY

: $STMP2

10%:

104422

005302
001360
022626
023727

«m~:

INITIALIZE SECTION

s COUNT

5513

:
H

5508
5530

5533

45
ENTRY.REASCN,

5543

; COUNT

5547

;s *,COUNT

5547

(SP)+,(SP)+

, #4
LSUNIT
13%
54

12%:

104454

E£GS.01
EMS.01
000000G 000005

13%:

14%
37$

003506°'
0000006
000002
000054

000000G 000014
000010
003462
000010

158

16$:

000012
003456
000006
000056
0000006

#2,R0

TRAP

17%:

002716
000002
000001
000001
000006
000006
000012
000004

000506

000027

; FLAG

5555

R4, =(SP)
#56,~(SP)
PC.BLSMUL
+
(SP)+, (SP)

: CTLR,*

5559

198

248

#1,2(SP)

19%:

#6.R0

12(SP) RO
RO,4(SP)

5550

s UNIT,»

5552

; UNIT

: « HWPT.REF

s CTLR

«~, FLAG

#5,-(SP)
PC.BLSMUL

RO,R3

MoV

+
(SP)
R4, (SP)

#27,=(SP)

§557

: «,HWPT _REF

(RO) ,=(SP)
177774, (SP)

177774
000005
0000006

010416
012746

: COUNT,«

¢ST(RO),a12(SP)

0000006 000012

5548

RO, 454
158
LSUNIT ,14(SP)
1g(SP)
358
10(SP) ,RO
42
RO,12(SP)
17%
348
6(SP)
R4

18$:

: =(COUNT)

: CTLR,»

5582
5562

la Yo ) o)

RD/RX EXERCISER

OO0OQCOOOORQOOD

SEQ 159

Paae 160
VAX=11 Bliss=16 V3-555
(41)
.BL1;10
IZRQABO
RELEASE
[DIETZ.
ERZ:
DISKSUS

INITIALIZE SECTION

PC,BLSMUL
RO.R1
(SP)+,(SP)+
R3,R0O
RO
#40000,CST+6(R0)

0000006

0000066

238

000003

5566

R2.RO
RO
#CST+4,(SP)
RO, (SP)

0000946

12(SP) ,RO
12(R0) ,30(SP)
R1.R0
R2,RO

000000

RO
#CST+6,R0
(RO)
-(SP)
#10,36(SP)

0000066

000006

¢«
TEMP,

,*
: HWPT_REF

¢
TEMP,

,»
: HWPT.REF
; *(HWPT.REF),*

;

1
TEMP

5571

§572

5573

5574

(SP)
(SP)

100000

21%
#100000, (RO)

(SP)+

21%:

86(SP), (SP)
#10000, (RO)
#20,(SP)+

TR TE LN TR KR R X

100000

(SP) ,~(SP)

#100000, (RO)

TR T E

amm. SN

20%

20$:

T YE

L P

8(SP)+,CST+2(R0O)
R1.R0O

5568
5569
5570

g, SR, g, gy, P,

000012
000010
0000026

:
:
:

SN PR

#40000. (R3)
R1,R0
R2.R0O
RO
12(SP) ,=(SP)
710, (SP)

5567

RO, (RS)
#10000, (R3)

010000
040000

: UNIT,=

10(SP) .RO
RO
#170377.R0
#7400, (R3)

34 (SP), (R3)

RO,RS

170377
007400

042710
032726

TEMP,»

000004
000010

000006
010000
000020

~,TEMP

5565

#CST,R3

000010

;

0000006

000012
000012

; «,TEMP

040000

004737

000512

21-Jul-1983 15:
21-Jul~-1983 15:

RD/RX EXERCISER

IRQAM?
v01.2

SEQ 160

Page 161
VAX=-11 Bliss=16 V3-555
(41)
1;10
QABO.BL
DISKSUSER2:[DIETZ.RELEASEIZR

E 13

F 13

INITIALIZE SECTION

001402
052710
010100
060200

010000

22$:

000010G
000004

042716
012746
012746
010600

104417
062706
016600
112760
104451

000000

001437

000000
23$:

000012
000006

000000G

002230*
000006

NSO ONSOONOSOONSO

Pury

b md
e
b e
b e e

Qo P Gur Ghrer Gour Gour Gour i
Quar g

b e

88883338388888888

b b b b e
I\

(=]
o

ponr Qour Quer S-S

25$:

003456

268:
27%:

000056
0000006

003376
000006
000001
000012 0000006
000012
000002
17,900

000777 0000026
0000026

000004

B8R

0000046

28%-

R1.R0
R2.RO
RO

CST+10(RO)
#%4,(R3)
25$
P)
, #1437
a0(S
258
#1437,30(SP)
258
812(SP) ,~(SP)
@6(SP),=(SP)

BGT
JMP

ISTB
BEQ

JMP
CLR
MOV
MOV
JSR
CMP

#3.-(SP)

SP.RO
17
#10,5P
10:$P) RO
#1,DUR(RO)
51

5578

H
H

5580
5564

: HWPT REF ,+

5587

; SP,»

6(SP)
268

: FLAG

5595

R4
Ré&,=(SP)
~56,=(SP)

: CTLR
; CTLR,*

5599
5601

258

258
188

348

: w,x(UNIT)

PC.BLSMUL
(SP)+, (SP3+

CST(R)

312(SP),CST(RO)
12(SP), as
2(R3),R

#777.CST+2(RO)
R1, csr+2(n0)
R3RY

MOVB
MOV

4&(R1),CST+4(RO)
#6,R0°

Move

(RO),-(sP)

ADD
MOV

5577

5590
5586
5557

0177060 R1

MOV

:
H
: CTLR

MOV

BIC
BIS

5575

5589

288
328
#1,6(SP)

8IC

;

«
TEMP,

s UNIT,»

BEQ
JMP
MOVB

MOV
MOV

077774, (SP)

R
INC
LWORD CLV'CLC

TST

0000006

111046

#CER.01,~(SP)

MOV
TRAP
ADD
MOV
MOVB
TRAP

248

000004
000006

MOV

POV

000405
005204
000243

001106

22%
#10000, (RO)

8IC

177774
000000G
000003

000010
000010
000001

BEQ
BIS
MOV
ADD
ASL
(LR
BITB
8NE
CMP
BLOS
MOV
BR
MOV
MOVB

R3.RO
RO.4 (SP)

: «,FLAG

5604

,«
: HWPT.REF
: HWPT_REF
¢

5605
5606

v
: HWPT_REF

5607

5608

: *(HWPT.REF),»

PT
. REF),*
: “(HW

: HWPT REF,*

QOO

21-Jul-198315:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER

SEO 161

8e 162
VAX-11 Bliss=16 V3-555
(41)
BL1;10
IZRQABO.
.RELEASE
ETZ
ER2:(DI
DISKSUS

001232
001236
001242
001246
001250
001252
001256
001260

21=Jul=1983 15:25:

RD/RX EXERCISER

IRQAM2
v01.2

21-Jul~-1983 15:°

INITIALIZE SECTION

062715
012746
004737
005726
010002
062702
010416
012746
004737

8177774, (SP)

177774

#5,-(SP)
PC.BLSHUL

000005
000000G

: «,TEMP

000003
000027
0000C0G

RO,R1
(SP)+
R2,RO
0

12(SP) ,RO
RO
#170377.,R0

#2400, (R3)
RO, (R$)
#10000, (R3)

007400

010000
040000

#40000, (R3)
R1,R0
R2.RO
R0
14(SP), (SP)
#10, (SP)

000014
000010
€000026

3(SP)+,(ST+2(R0)

R1,R0
R?.RO

#CST+4,2(SP)
RO,2(SP)

0000046 000002
000002
000012
000012 000002

12(SP) ,RO
12(R0) ,32(SP)
R1.R0O
R2.°0

RO
#CST+6,R0
(RO)
-(SP)
#10,36(SP)

0000066

000006

«
: TEMP,

5610

5611

5612
5613

: HWPT_REF,»

: TEMP,*

5614

: HWPT _REF ,+

: *(HWPT.REF),»

5615

5616

; TEMP .«

(SP)
(SP)

(SP) ,=(SP)

100000

#100000, (RO)

100000

308
#100000, (RO)
(SP)
, P)
A6(S
#10000, (RO)

010000

: UNIT,«

29%

29%:

042710

TEMP,»

RO.R 5

@86(SP), (R3)

170377

001472

;

5609

70T R3

000012

000006

«, TEMP

PC, BL‘HUL

000006

000010

: CTLR,»

0000006

117616

SEO 162

8 163
VAX=11 Bliss=16 V3=555
(41)
1Y;1
:
ABO.BL
R2
SEIZRQ
Sc
SU.RELEA
DISK[DIETZ

(SP)+

308:

5619

G 13

318:

0000106
000004

000002

001637

001437

000002
32$:

002744
000006

33s:

000001
0000006
000002

000016

000001

000006
000010
000010

0000006

000014

:
348
:
35%

002202°*
0000006 000005

36%:

0000006

37%:
38$:

000012
39%:

105060

001734
001740

010416
012746
004737
012702

000056
0000006
000005G

000027
0000006
000003

40$:

MoV
ADD
ASL

CLR
8lT8
BNE
cMP
B8LOS
MOV
BR

R1,RO
R2.R0O
RO

{ST+10<R0O)
#6,(R3)
33s
P)
, #1437
a2(S
338
#1437 ,82(SP)
33s

R4
INC
.WORD CLV!CLC

BGT
JMP

7ST8

BNE
MOV
MoV
Mov
MOV
TRAP
MGV
MOVB
TRAP
ADD
INC
CMP

B8GE
JMP
CMPB
B8NE
MOV
CLR

BR
MOV
TRAP
MoV
INC
CMP

BLT
CLR

&ESP)

3.8
#1,-(SP)
#CER.02,~(SP)
#2,-(SP)
SP.RO
17
16(SP) ,RO
#1,DUR(ROD)
51
#6,SP
10(SP)
10(SP) ,14(SP)

36$
16%
ENTRY .REASON,#5
42$
LSUNIT,R1
R2
39%
R2.RO
42
RO,12(SP)
R2
R2,R1

5620

5622

5623

:
:
; CTLR

5625
5603
5599

; FLAG

5630

5633

: TEMP,»

: SP,»

; UNIT,»

5634

: «,*(UNIT)

5635

5632

: UNIT

: UNIT,»

5550

5648

5652

s UNIT,«

5653

: UNIT

«,HWPT REF

: UNIT

3652

: CTLR
; CTLR,«

5655
5657

PC,BL SMUL
CST+S(R0O)
R4, (SP)

: CTLR,*

5660

PC,BLEMUL
#3,R2

: v,OFFSET

5659

38$%

Mov
MOV

MOV

#27,~(SP)

JSR
MOV

338

’’s

R4
R4 ,-(SP)
#56,-(SP)

JSR
CLRB
MoV

#20,(SP)+
318
#10000, (RO)

; UNIT,»

©O

010000

BIT
BEQ
BIS

NI CYYOIYYOY

000020

NN NN CACYN

032726
001402
052710
010100
060200
006300
095060
132713

IR I

INITIALIZE SECTION

RD/RX EXERCISER

SEQ 163

Pagc 164
VAX-11 Bliss=16 V3-555
DISKSUSER2:[DIET2.RELEASE]JZROABO.BL1;10 (&1)

TR TR IR

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

H 13

003742

123727

001017
005037
005000
005760

000243

003767
104431
010037
005002
005001
010100

020000
000005
000022

428%:

0000006

438:

0000006
000056

44S:

45%:

46$:
47%:

000000C

000006
000034
000124

06 SP

RZ#22

BLE

CMPB
BNE
(LR
CLR

:
(8%
49%:

0000006

000033
000034
000124
508:

408
ENTRY.REASON,#1
45%
CTLR.CNT
RO

CST(RO)
TST
443
BEQ
CTLR.CNT
INC
#56 RO
ADD
.WORD CLV!CLC

BLE
TRAP
MOV
CLR
CLR
MOV
ADD
ASL
CLR
INC
CMP
BLE
ADD
CMP

433
3
RO,FREE .MEM.ADDR
R2
R1
R1.R0O
R2.RO
RO
TALLY(RO)
R1
R1,46
478
#34 ,R2
R2 #4124

8IT
8EQ
CLR

#1,R5
508
R2

MOV
MOV
ADD
ASL

CLR
INC
CMP
BLE
ADD
CMP
BLE
ROR

8cc

463

#7 ,R1
R1,R0
R2,RO
RO

TALLY(RO)

R1,433
493
#34 ,R2
R2,#124
488
RS

52%

5660

: «,OFFSET

5659

H
: CTLR

5656
5655

5666

.
: CTLR

5669
5671

:
; «,CTLR

5675
5671

5677

: OFFSET,«

; OFFSET,»

: s(CTLR)

; UNITS

5673

5685

: COUNT
: COUNT,=«

5686
5687

; COUNT

5686

; *«,UNITS

5685

; ~,CLEAR.TABLES

5689

; UNITS
: +,COUNT
; COUNT,«

5691
5692
5693

: COUNT

5692

; %, UNITS

S691

: CLEAR.TABLES

54695

: UNITS,»

; COUNT,«
2 UNITS,»

: UNITS,«

; COUNT,«

: UNITS,»

BLE
ADD

BLE

000001

103011

020000 CST(R1)
#5,R2

R4
INC
+WORD CLV!CLC

0000006

000007

8IC
ADD

CMP

000006

000000G

RO.R1
R2 R1

ASL

0000006

0000006 000001

MoV
ADD

ETE TE LR T

418:

(41)

R TA T

010001
060201
006301
042761
062702
020227
003765
062706
005204
000243

DISKSUSER2:[DIET2.RELEASEIZRQABO.BL1T; 10

TR
YR I

INITIALIZE SECTION

SEO 164

Se 165

[ )

RD/RX EXERCISER

VAX=11 Bliss=16 v3=555

Y e e tatealalealatala il el Yoo e )

21-Jul=-1983 15:25:58
21-Jul=198315:19:20

113

21=Jul=1983 15:25:58

21=Jul=1983 15:19:20

INITIALIZE SECTION

002166
002170
002174
002200
002204

005000
105060
105060
062700
000243

002206

003770

0000006
000001G
000002

0000006

002222
002224
002230
002234
002236
002240
002244

003773
005037
005037
005000
104441
062706
000207

000000G
000000G

000020

51%:

CLR

CLRB
CLRB
ADD

C.ERR.TBL(RO)
C.ERR.TBL+1(R0O)
#2 ,R0

BLE
CLR

51%
RO

.WORD CLV!CLC

52%:

53%:

CLRB

QI0(RO)

BLE
CLR
(LR
CLR

53
CRN.HIGH
CRN.LOW
RO

RO
INC
WORD CLV!CLC

TRAP

ADD

RTS

#20,SP
PC

: CTLR

5697

; *(CTLR)
: *(CTLR)
; «,CTLR

5699
5700
5697

; CTLR

§707

: CTLR

5707

;

5710

5712

5451

§712

; «(CTLR)

5708

595 words,
Routine Base: $CODES + 1626
: Routine Size:
20 words
: Maximum stack depth per invocation:

000000
000004
000006

004737
104411
000207

001626°

.SBTTL

LSINIT::JSR

TRAP
RTS

LSINIT INITIALIZE SECTION
?%.LINIT
PC

4 words,
Routine Base: $SCODES + 4074
: Routine Size:
2 words
invocation:
per
: Maximum stack depth

[T TERIEETETETEYER IR X
NI NN1

RD/RX EXERCISER

SEQ 165

Page 166
VAX=11 Bliss=16 V3-555
(41)
1;10
QABO.BL
EASEIZR
DISKSUSERZ:[DIETZ.REL

PN AN NI NI NINININD
= b ccd e ol
VONO
VIS WN=C NOONONWN

%sbttl *AUTODROP SECTION®
‘e

! THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
' THE ''ADR'' FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO
' SEE IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY
! DROPPED FROM TESTING.

BGNAUTO;

'ift (.SWP_FLAGS and SWF_TR(C) eql SWF_TRC
‘then
PRINTF (DBM3);
ENDAUTO;

L
L1:5714
INFO#219
Empty compound expression is illegal
Error occurred expanding macro ENDAUTO, called from source

000000

LAUTO:

000207

: Routine Size:

1 word,

Routine Base:

: Maximum stack depth per invocation:

000000
000004
000006

004737
104461
000207

: Routine Size:

.SBTTL

Routine Base:

; Maximum stack depth per invocation:

2 words

LAUTO AUTODROP SECTION

5714

$CODES + 4104

LSAUTO: : JSR
TRAP
RTS

004104°

4 words,

0 words

.SBTTL

RTS

LSAUTO AUTODROP SECTION

PC,LAUTO
61
PC

$CODES + 4106

5724

e 8e 00 00 0e e 0 0e0s 0000000000500 0000000800000900850850:000%00:000,

AUTODROP SECTION

(SLIV TV TV TV, IV IV IV [V, [V, [V 1V, 1V, LV, IV |
NINSNNNNNSNSNNNNNNNY

v01.2

VAX=11 Bliss=16 Vv3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.B L1;18 (42)

Aown

21=Jul=1983 15:25: 8
:1
15:19:
0
21-Jul-1983 315

RD/RX EXERCISER

SEQ 166
Page 167

OO OOOOOOOIOOOODD

K13

=y=d= y=d=l=l=le) OOV

! THE CLEANUP CODING SE CTl ON CONTAINS THE CODING THAT IS PERFORMED
! AFTER THE HARDWARE TE STS HAVE BEEN PERFORMED.
BGNCLN;

DORPT;

'CLRVEC (O_TVEC);

! RETURN ODT TRAP TO DIAGNOSTIC SUPERVISER

incr CTLR from G to (MAX_CTLR = 1) do

! FOR EACH CONTROLLER

it (RDRX_ADDR = .CST [.CTLR, IP_ADDR]) neqa 0

gVEC .CSTL.CTLR, VEC_ADDR]);

UR; RDRX (RCIP, RC_ALL, TALL ONES)

IF CONTROLLER EXISTS

' RETURN CONTROLLER'S TRAP VECTOR TO SUPERVISOR
! WRITE IP TO STOP DFVICE

end;

5752

ENDCLN;

.SBTTL
LCLEAN: MOV
TRAP

104424

005001
016137
001411
016100
042700
104436

012700
010077
062701
000243

0000006 0000006

1$:

ggg
MOV

0000026
177000

177777
0000006
000056

2$:

: CTLR

: *(CTLR),*

5729
5737
5743
5745

CST+2(R1) ,RO

: *(CTLR),*

5748

SET(R1).RDRX.ADDR

#177000,R0

MOV
MOV
ADD

#-1,R0
RO, aRDRX.ADDR
#56 R1

; *,RC.REG
: RC.REG,*
; «,CTLR

5749

BLE
MoV

18
(SP)+,R1

;

5729

.WORD CLV'CLC

RTS

22 words,

8IC

TRAP

003757
012601
000207

: Routire Size:

CLR

LCLEAN CLEANUP CODING SECTION
R1,-(SP)

5743

Routine_Base: $CODE$S + 4116
3 words

; Maximum stack depth per invocation:

000000

(04737

000004

104412

004116°

LSBTTL
LSCLEAN::
JSR
TRAP

LSCLEAN CLEANUP CODING SECTION
PC.LCLEAN
12

5750

OOOOOOOOOOOOOOOOOO

OO
I YA WA WE FIE TN

‘e

then

18 (43)
JZROABO.BL1:

Xsbttl 'CLEANUP CODING SECTION'

I TR IETE TETE TR T
T

VAX-11 Bliss=16 v3-555
DISKSUSER2: [DIETZ.RELEASE

VQOORD

CLEANUP CODING SECTION

010146

000046
000050
000052

21=-Jul=1983 15:25:
21=-Jul-1983 15:1

RD/RX EXERCISER

IRQAM?
v01.2

SEQ 167

Page 168

L 13

000207

RTS

$CODES + 4172
Routine Base:
4 words, .
2 words
; Maximum stack depth per invocation:

; Routt ine Size:

DISKSUSER2: [DIETZ.RELEASE JZR0AB0.8L1;10

(43)

€~

©\

oW
o®

om0

tvitvd

VAX=-11 Bliss=16 v3-555

SEQ 168

Paae 169

RLYORY

000006

©©
Q00

CLEANUP CODING SECTION

21=Jul21=Jul-

RD/RX EXERCISER

LIRE

N 13

21=Jul=1983 15:25:58

RD/RX EXERCISER

21=Jul=1983 15:19:20

DROP UNJIT SECTION

SEQ 169
170

BO.BL1; ?8e(44)
R2:
.RELEASEIZROA
SUSE
[DIETZ
DISK

‘e

' THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE
;

TO NO LONGER BE TESTED.

BGNDU;
local

.
UNIT : word,
PRINT : byte initial (byte (FALSE));

! NUMBER OF UNIT BEING DROPPED
' NO PRINTING OF DROP UNIT MESSAGE

label
SEARCH;

begin
register

! UNIT NUMBER APPEARS IN RO UPON ENTRY

UNIT = _INPUT;
end;

! GET UNIT NUMBER
! UNDECLARE REGISTER

INPUT = 0;

it (.SWP_FLAGS and SWF_TRC) eql SWF_TR(

then

PRINTF

(DBMS,

.UN'T);

! BEGIN SEARCH BLOCK

incr CTLR from 0 to (MAX_CTLR - 1) do

! FOR EACH CONTROLLER

incr OFFSET from (0 ¢ OF_UN) to (3 ~ UNIT_SIZE + OF_UN) by UNIT_SIZE do
if (.CST C.CTLR, .OFFSET, D_UNIT] eql .UNIT) and
(.CST [.CTLR, .OFFSET, D_PRES] eql PRESENT)

then

! FOR EACH UNIT ENTRY IN CST

SEARCH :

begin

' IF UNIT MATCHES CST ENTRY

OOOOOOOOOOOOOOOOOD

LRI TR
TR
R
I T T T P P
O A
AS I
O
e
P
L

Xsbttl 'DROP UNIT SECTION®

PRPR TR TR

TR TN TN

e B0 We Ve Ve Ve BBV TN, 0,
X @e

IRQAM?
v01.2

VAX=-11 Bliss=16 V3=-555

begin

if (.CST [.CTLR,

.OFFSET, D_STAT] eql ONLINE) or

(.DUR [.UNIT] eql DU_ONLINE) or

' IF UNIT IS STILL ALIVE

(.DUR [.UNIT] eql DU_PROTECT)

then

tegin

PRINT = TRUE;

! 0.K. TO PRINT MESSAGE

if (.CST [.CTLR, U_CNT] gtru 0) and

(.CST [.CTLR, .OFFSET, D_STAT] eql ONLINE)

CST [.CTLR, U_CNT] = .CST [.CTLR, U_CNT] = 1;! DEZREMENT UNIT COUNT

if (.CST [.CTLR, U_CNT] eql 0) and

B 14
DROP UNIT SE CTION

PRLN TN T

usrd
Gutr Pt Pt Gut Putr G

O OO ~NOMN SN —

putr P

VIV

0o 00 00 OO OD 0o 00 00 0O

PRLR
TRPR TR YR IR FE
A
EYTE

DISKSUSER2: [DIETZ.RELEASE JZR2ABO.B L1:18 (44)

! DECLARE END OF PASS IF ALL UNITS OFFLINE

EOP_FLAG = TRUE;

CST [.CTLR, .OFFSET, D_STAT] = OFFLINE;

end;

! MARK UNIT OFFLINE

! IF UNIT WAS STILL ALIVE
! EXIT SEARCH BLOCK
! IF UNIT FOUND IN CST

leave SEARCH;
end;
end;
if

.PRINT or

[.UNIT)
L[.UNIT)
L[.UNIT]
[.UNIT]
[.UNIT]

(.DUR
(.DUR
(.DUR
(.DUR
(.DUR

then

eql
eql
eql
eql
eql

! IF OK TO PRINT MESSAGE

DU_CONF) or
)
DU_INITor
DU_ONLINE) or
DU_AV) or
DU_PROTECT)

egin

! *UNIT XX DROPPED =~ *'

PRINTF (DU _MSG, .UNIT);

PRINTF (.DO_RSN {.DUR E.UNITID);

! REASON

end;

ENDDU;

004137
024646
105004
010003

032737
001411
010346
072746
012746
010600
1046417
062706
005005
010546
012746
004737
010066
012701
010100
066600
006300
012766
000114

SEQ 170

Page 171

h (.CST C.CTLR, .OFFSET, D_STAT] eql ONLINE)

000000

21=Jul=1983 15:25 :58
21-Jul-1983 15:19:20

RD/RX EXERCI SER

ZRQAM2
v01.2

VAX=11 Bliss=16 V3-555

017600

Lbu:

0000006
000001

0000006

000027

0000006
000006
000003

CMP
CLR8B
MOV
BIT
BEQ
MOV

MOV
MOV

0000006
000002
000006

.SBTTL

JSR

MOV
TRAP

1%:

2%:

ADD
CLR

MOV

LDU DROP UNIT SECTION

-(SP) ,=-(SP)
R4
RO,R3
#1,SWP.FLAGS
13
R3,-(SP)

#DBMS ,-(SP)
#2,-(SP)

RS5,=-(SP)

0000006 000004
000004

MOV
ADD

#CST,4(SP)
R0O,4(SP)

000004

Mov

MOV

5774
5777
5779

84
5788

#27,-(SP)
6(SP) ,RO

ASL

: UNIT,»

ADD

MOV

INPUT,UNIT

#6,SP

PC,BLSMUL
RO,6(SP)
#3.R1

3%:

: PRINT

SP,RO
1?7

JSR
MOV
MOV

000006

5752

R1,$SAVES

5786
5788

R1.R0O
RO

R3.R

94 (SP) ,RO

: UNIT,»

C 14

020000

000004

4S:

000000G 000011
5%:

000001
000056
0000006

000001

020000

000004

000001
020000

0000006
000004

000005

000022

6%:

8s:

9s%:

000243

126327

001420
126327
001414
126327
001410
126327

000370

001404
126327
001023
010346

5789

5793

CMPB

. #7
DUR(R3)

,»
: *(UNIT)

5794

,»
; *(UNIT)

5795

; * PRINT
: CTLR,*

5795
5809

5801

:
:

5805
5806

5808
5810
5791

8EQ
INC
BR

8EQ
cMPB
BNE
Move
MOV
MOV
JSR

10%:

0000006 000001

0000006 000002

0000006 000007

0000006 000013
0000006 000011
118:

48
R2
5%

5%
DUR(R3) ,#11
8s
#1,R4
R5,(SP)
#56,-(SP)
PC,BLSMUL
+
(SP)

ADD
1ST8
BEQ
ROR
SEZ8
BNE
BIT
BEQ
MOVB

#CST+4 RO
1(RO)
63
R2
1(R0O)
73
#20000,34(SP)
78
#1,EOP.FLAG

CMP

(SP)+,(SP)+

:
:
:

#5,R1

; «, OFFSET

5786

: CTLR

5784

: PRINT

5818

; *(UNIT),»

5819

,»
: *(UNIT)

5820

=
: *(UNIT)

5821

: *(UNIT),«

5822

: *(UNIT),»

583

s UNIT,®

5826

BIC

B8R
ADD
CMP

#20000,34 (SP)
108

R1,422
3s
BLE
(SP)+,(SP)+
CMP
RS
INC
+WORD CLVICLC
BLE
ROR
BLO
CMPB
BEQ
CMPB
BEQ
CMPR
BEQ
CMPB
8EQ
CMPB
BNE
MoV

Ré
11$

.M
DUR(R3)
11$
DUR(R3) ,#2
11$
DUR(R3) ,#7
11%
DUR(R3) ,#13
11$
DUR(R3) ,#M
2%
R3,~(SP)
1

I T R

#40000,34 (SP)
9
R2
#20000,34(SP)

TST

0000046
000001

003655
006004
103424

BIT
8EQ
CLR
8IT

BNE

000004

000000G 000007

#177760,R0
gg,RZ

(PR YR IR TEIEIETE X EE TN T

040000

BIC
CMP

177760

: OFFSET,»

5803

YOO OOCOO

000300
042700

Page 172
VAX=11 Bliss=16 V3=555
(44)
1;10
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL

21-Jul-1983
21-Jul=1983

RD/RX EXERC ISER
DROP UNIT SECTI ON

SEQ 171

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
DROP UNIT SECTION

uGU HSG -(SP)

0000006
000002

ne.-(S5
SP.RO

17
RG

DI“t(R3) ,RO

0000006

104417
062706
022626
000207

000010

: SP,*

)
: s(UNIT,»

5827

DU. RSV(RO) (SP)

0000006
000001

000430
000432
000436
000440

SEQ 172

Page 173
VAX=11 Bliss=16V3=555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL1;10 (44)

D 14

#1,-(SP)

12%:

TRAP
ADD

CMP
RTS

SP,RO
17

#10,SP
(SP)+,(SP)+
PC

: SP,+

H
:

5825
5752

5828

$CODES + 4202
Routine Base:
145 words,
: Routine Size:
14 words
; Maximum stack depth per invocation:

000000
000004
000006

004737
104453
000207

004202°

L$DU::

.SBTTL

JSR
TRAP
RTS

LSDU DROP UNIT SECTION
PC,I1.DU

$CODES + 4644
Routine Base:
: Maximum stack depth per invocation: 2 words

. aEm. S

SN SN SR A

AR SV S

S, S, PN,

A~y

4 words,

. A

: Routine Size:

y
Xsbtti 'ADD UNIT SECTION'
e

! THE ADD=-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
' TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BA(CK
5

TO THE TEST CYCLE.

BGNAU;

tocal
STINDX
ENDIDX

: word,
: word:;

! UNIT NUMBER APPEARS IN RO UPON ENTRY

UNIT = 0;

:; (.SWP_FLAGS and SWF_CST) eql SWF_(ST
en

begin
STINDX = .UNIT « TALLY_LEN;
ENDIDX = .STINDX ¢ TALLY_LEN - 1.

' IF CLEAR STAT. TABLES TRUE....
! ZERO OUT

ADDED

incr COUNT from .STINDX to .ENDIDX do
TALLY [.COUNT] = 0;

!
!

UNIT'S
STATISTICS

end;

ENDAU:;

004137
105737

0000006

LAU:

1ST8B

8PL
MOV

000034
000006

18:

2s:

000207

: Routine Size:

25 words,

Routine Base:

R1,$SAVE?

3s
RO,=(SP)

5830
5848

s UNIT,»

5851

: STINDX,ENDiDX

5852

: STINDX,COUNT
: COUNT

5854

;s COUNT,*

5855

TALLY(RO)
R1
R1,R?

: COUNT
s COUNT,ENDIDX

5854

(SP)+,(SP)+

5850
5830

SWP.FLAGS

#34,-(SP)
PC,BLSMUL
RO,R2

MOV
DEC
8R
MOV

RO.R1
R1
2%
R1,R0

ASL

(LR
INC
CMP

BLE

000060

LAU ADD UNIT SECTION

MOV
JSR
MOV

ADD

000033

000000G

.SBTTL

JSR

°MP

RTS

#3585 ,R2
RO

$CODIL.S + 465¢

: «, ENDIDX

4 )

21=Jul=-1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ADD UNIT SECTION

IRQAM?
v01.2

SEa 173

174
Page
VAX=11 Bliss=16 v3=-555
(45)
BL1;
10
ABO.
1ZRA
E
DIETZ.RELEAS
DISKSUSERZ:[

[oleolololelololaleT

E 14

F 14

21=Jul=19 83
21=Jul-19 83

RD/RX EXERC!ISER
ADD UNIT SECTION

: Maximum stack depth per invocation:

6 words

004654°

LSAU::

000000

000C04
000006

004737

104452
000207

; Routine Size:

& words,

Routine Base:

; Maximum stack depth per invocation:

2 words

.SBTTL

JSR

TRAP
RTS

LSAU ADD UNIT SECTION

PC,.LAV

52
PC

SEQ 174

Paae 175

DISKSUSER2:[DIETZ.RELEAS EJZROABO.BL1;10

(45)

5857

S$CODES + 4736

ZRQAM?
v01.2

VAX=11 Bliss=16 V3-555

6 14

:
;

5872
5873

000000
000006

5871

012737
000002

Asbttl "NON-EXISTENT MEMORY TRAP HANDLER'
'+

:
:
:
!

THIS TRAP HANDLER IS VECTORED FROHM LOCATION 4 FOR ALL UNIBUS TIMEOUT
ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON-EXISTENT
MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET A FLAG FOR THE RDRX
REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER.

BGNSRV (NEX_TRAP);

! NEX TRAP OCCURRED

NEX = TRUE:;
ENDSRV;

0000vu1

0IC000G

.SBTTL

NEX.TRAP NON=-EXISTENT MEMORY TRAP HANDLER

MOV

#1 NEX

NEX.TKAP::

RT1]

Routine Base:
S$CODES + 4746
: Routine Size: 4 words,
: Maximum stack depth per invocation:
0 woras

2000000000 9000000000000000000000000000000000000,0080000,0008c000,

5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870

P
lealalalalel®lalal®lalele)
- NN = ]

:
:
;
:
:
:
:
:
:
:
:
:

21=Jul=19 83 15:2 5:58
21-Jul=19 83 15:1 9:20

RD/RX EXERCISER
NON-EXISTENT MEMORY TRAP HANDLFR

IRQAM?
v01.2

SEQ 175

Page 176
VAX=-11 Bliss=16 V3-555
1;10 (46)
2:
ZROABO.BL
SER
[DIETZ .RELEASEI
DISKSU

GLOBAL ROUTINES

:
:
:
:
:
:
:

5874
5875
587¢
5877
5878
5879
5280

5883

;

INPUTS:

5885
5886
5687
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897

IMPLICIT OUTPUTS:

:
:
:
:
:
:
:
:
:
:
:
:
:

000000
000002
000006
000012
000014
000020

000024
000030
000034
000036
000042
G0u046
000052
000056
000064
000070
000072

5881
5882

5884

062700
010037
010116
012745
4737
062700
010037
017737
062706
012601
000207

VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASE

SEQ 176

Page 177

JZROA80.8L1:18 (47)

Isbttl °‘GLNBAL ROUTINES

global routine SET_CPAR (CTLR)
‘e

: novalue

THIS ROUTINE SETS UP THE COMMONLY-USED CONTROLLER-RELATED DATA ITEMS

[}

FOR THE GIVEN CONTROLLER NUMBER.

;

CTLR = CONTROLLER NUMBER

CCTLR = CURKENT CONTROLLER NUMBER
(ST_ADDR - ADDRESS OF CONTROLLER'S STATUS TABLE
DCTTADDR - ADDRESS OF CONTROLLER' S DRIVER TABLE
RDRX_ADDR - ADDRESS OF CONTROLLER'S IP REGISTER

;
]
!

E-

beqgin
CCTLR = .CTLR;

CST_ADDR = CST + (.CTLR * CST_LEN * 2);
DCT ADDR= DCT + (.FTLR * DCT_LEN v 2);

RDRX_ADDR
= .CST_ADDR [IP_ADDR];
end;
"

.SBTTL
PAR::
SET.C

010146
016601
010137
010146
012746
004737

N\n
o

21=Jul=-1983
1
1
21=-Jul- 1983

RD/RX EXERCISER

ZROAM2

—lf\)
O\.h

H 14

000004
0000006
000056
0000006
0000006
0000006

000022
0000006
0000006
0000006
0000006 0000006
000006

; Routine Size:
30 wo'ds,
Routine Base:
5 words
; Maximum stack depth per invocation:

MOV

MOV
MOy

MoV

MOV
JSR
ADD
MOV
MOV

MoV
JSR
ADD
MOV
MOV
ADD

MOV
RTS

SET CURRENT CONTROLLER NUMBER
CALCULATE ADDRESS OF (ONTROLLER'S (ST
CALCULATE ADDRESS OF CONTROLLER'S DCT
GET CONROLLER'S DEVICE ADDRESS

SET.CPAR CLOBAL ROUTINES
R1,-(SP)
4(SP) R
R1,CCTLR
R1.=(SP)
#56,-(5P)
PC.BLSMUL
#CST.RO
RO,CST.ADDR
R1.(SP)

#22,~(SP)

PC.BLSMUL
#DCT.RO
RO.DCT.ADDR
aCST.ADDR,RORX.ADDR
46, SP

(SP)+,R1

$CODES$ + 4756

: CTLR,*

5876
5893
5894

5895

5896
5892
5876

21=Jul=-198 3 15:2 5:58
21=Jul =198 3 15:1 9:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

VAX-11 BLiss=16 V3=555
DISKSUSER2:[DIET2.RELEASEIZROAB

0.8&1;18'(68)
&

THIS ROUTINE SETS UP THE COMMONLY=USED UNIT=-RELATED DATA JTEMS FOR

et ® ¢

THE CURRENT CONTROLLER AND GIVEN CST OFFSET.
INPUTS:

DESCRIBES A UNIT

IMPLICIT INPUTS:

B I

CST_ADDR =~ ADDRESS OF CURRENT CONTROLLER'S CST

B I

IMPLICIT OUTPUTS:

m i

CDISK = CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
LSLUN = CURRENT UNIT NUMBER (DRS UNIT NUMBER)
T_ADDR - ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)

tmr Tt

VeV

LSLUN = .CST_ADDR [.OFFSET, D_UNIT];
5923

T_ADDR = TALLY + (.LSLUN * TALLY_LEN * 2);

end;

.SBTTL

SET.UPAR::
MOV

010146

016637
016600
006300
063700
111037

000004
000004

MOV
MOV

0000006

ASL

ADD
MOVB

0000006
0000006

4(SP),CUOFF
4(SP) ,RO
RO

#177%74,CD1SK

177760
0000006

RIC
MOV
MOV

#177760,R1
R1,LSLUN
R1,-(SP)

JSR
ADD
MOV

PC,BLSMUL
#TALLY,RO
RO,T.ADDR

MoV
SWAB

MOV
CMP
MOV
RTS

32 words,

Routine Base:

: Maximum stack depth per invocation:

& words

: OFFSET,*
,»
: CUOFF

5898
5919
5920

5921

: LSLUN,*

5922

:
:

5918
5898

CST.ADDR,RO
(R0O),CDISK

8IC

000070

5924

R1,-(SP)

177774 0000006

0000006
0000006
000000¢

: Routine Size:

SET.UPAR GLOBAL ROUTINES

(R0) ,R1
R1

#70,-(SP)

(SP)+,(SP)+
(SP)+,R1

$CODES + 5052

OOOOOOOO0OOD

-—

e
0,
8s VeV

CUOFF - CURRENT UNIT'S CST OFFSET

€DISK = .CST_ADDR C.OFFSET, D_DISK_NLM];

9¢ 8

000002
000010
000014
000016
000022

OFFSET ~ WORD OFFSET INTO CURRENT CONTROLLER'S (ST WHICH

beqgin
CUOFF = .OFFSET;

9
e

000000

0000000000009 00 0000900008505 0090000800

mimImI

$2822

global routine SET_U°AR (OFFSET) : novalue =

116

J 14

21=Jul=1983 15:25:58

RD/RX EXERCISER

21=Jul=-1983 15:19:20

GLOBAL ROUTINES

VAX=11 Bliss=16 Vv3-555

Paje = -

DISKSUSER2: [DIETZ.RELEASEJZRQABO.BLT; TV (-

global routine GET_PKT (CTLR) =

THIS ROUTINE SEARCHES THE MSCP PACKET POOL ALLOCATION TABLE (PKT_USE)

FOR A FREE MSCP PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS
FOUND, THE PACKET 1S ZEROED OUT, AND THE PACKET INDEX IS RETURNED
TO THE CALLER. OTHERWISE, A =1 IS RETURNED INDICATING NONE AVAILABLE.
INPUTS:

CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION

index : signed word initial (=1),

RING_ADDR : word,

PACKET_OWNED : byte,
NEXT_PACKET : byte;

NEXT_PACKET = .NEXT_PKT_USE;

! NEXT PACKET TO TRY

incr COUNT from 0 to (PKT_CNT = 1) do

' FOR EACH ENTRY IN ALLOCATION TABLE

o i?r-OUNED = FALSE;

if .PKT_USE [.NEXT_PACKET] Lss 0

thengfflénADDR = .DCT_ADDR CRR_BEGJ;

! IF ENTRY INDICATES FREE PACKET

! FIRST RESPONSE PACKET'S ADDRESS

incrbgggzom 1 to (RRING_LEN + CRING_LEN) do ! FOR EACH PACKET ADDRESS

it (..RING_ADDR eqla .MSCP_PKT [.NEXT_PACKET, PKT_L0J) and
(({.RING_ADDR + 2) and ED_OWN) eql ED_OWN)

then

else

begin
PACKET_OWNED = TRUE;

' CHECK ADDRESS AND OWNERSHIP
! PACKET OWNED BY CONTROLLER

RING_ADDR = .RING_ADDR + &;

! ADDRESS OF NEXT PACKET IN RING

exitloop;
end

end;

if not .PACKET_OWNED

thenb

egin

PKT_USE C.NEXT_PACKET] = .CTLR;
index = .NEXT_PACKET;

IF NOT ALREADY USED

! ALLOCATE PACKET TO CONTROLLER

ORRO0D

local

begin

OO0

]

®s

IR I R IR IR IEET
A A IRR
PR PR TR PR PR T NN T P LN X R

R IRIR

AR E N

T E I E T TR
I A T ETE TR TR TR
ARI
X I KON

IRQAM2
v01.2

SFQ

I TN ¥

incr J from2 to (PKT_LEN - 1) do

MSCP_PKT [.NEXT_PRCKET. .J, O, 16, 0]

TETEIETER IR FN PR EN FI TN

z ESO OUT PACKET

! DONE

exitloop;

end;

NEXT_PACKET = NEXT_PACKET ¢+ 1;

TRY NEXT PACKET IK RING

if NEXT_PACKET gequ PKT_CNT

LI S B X} (I

then

! IF BEYOND ALL PACKETS, START AT THE TOP

NEXT_PACKET = 0;

end;

YRLR

. index ?eg 0)

( PKT_US

IR ETEIE TR AR IE TR

then

and

index]) geq 0)

begin

MSTP_PKT [.index, MSGLEN]
=

GEN:

MSCP PKT [. 1ndex. CREDITS] =
NEXT_PKT_USE
= NEXT_PACKET + 1

IF PACKET FOUND

! PACKET SIZE = ONLY ONLINE AND SCC CHANGE IT

CREDIT SIZE

CYCLE BACK TO BEGINNING IF AT END

! NEXT PACKET TO ALLOCATE

if.NEXT_PKT_USE gequ PKT_CNT

TR IRTR

NEXT_PKT_USE = 0;

SE12R0ABO.BLT38 (49)

end;
return ,index;
end;

6008
6009

.SBTTL

004137

0000006

000004
000010
000014
000020
000026
000032
000034
000036
000042

162706

000006
177777
0000006
000014 200004

000002

GET.PKT::
JSR

18:

0000006

BGE

MoV
MoV
MOV
MOV

0000006
000004

027660

000104
0000006
000010

000004

su8
MOV
MOVB
MOV
CLRB
CLR
BISB
1ST8

0000006

2%:

GET.PKT GLOBAL ROUTINES
R1,8SAVES

#6,SP
#-1,R4

NEXT.PKT .USE,RS
#14,4(SP)

2(SP)

R2
R5,R2
PKT.USE (R2)
7$

DCT.ADDR,RO

4(RO), (SP)

JSR

Pg BL%HUL

CMP

(RO)
34 (SP) ,MSCP.PKT

MoV

*, INDEX
« NEXT.PACKET
+, COUNT

PACKET.OWNED

NEXT.PACKET,*

*,RING.ADDR

RING.ADDR,
*

OO0

VAX=11 Bliss=16 V3=555
DISKSUSER2:[(DIETZ.RELEA

|«N

GLOBAL ROUTINES

000000

000072

21=Ju'=- 1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER

IRQAM?
v01.2

$£0 179

000000000000 000000 000000000000 000000 000080 00050290 000000

K 14

L 16

077777
100000

000001

000006

000004

000001

000006

000030

0000006

A ¥

000002

5%:

000041

6$:

000004

7%:

8$:
9%:

0000006

000104
0000006
000040 0000066
000017 0000106
000001 0000106

000344

103402

0000006
000014

BNE
8IT
BNE
Move

JSR

0000006

000014

ADD
DEC

MOV
MOV
MOV

000042
0000006

; RING.ADDR,*

5961

#1,6(SP)
4$
#4,4(SP)

: *,PACKET.OWNED
H
: *,RING.ADDR
I |

5964
5963
5968
5957

#1,6(SP)

: =, PACKET.OWNED

5972

30(SP) ,PKT.USE(R2)
R2.R4
R2. (SP)

; CTLR,*
; +~,INDEX
:

5975
5976
5979

)
:

5978
5979

: J

5978

5974

H
; NEXT.PACKET
; NEXT.PACKET,*

5954
5986
5988

s NEXT.PACKET
s COUNT

5990
5948

: INDEX

5994

: ~(INDEX)

5995

: INDEX,*

5998

5999

6000

: NEXT.PKT.USE,*

6002

MGv8

BIC
CMP
BNE

3s:

., (SP)
6(SP)
(SP)+ R1

TST
Mov
MOV
ADD
ASL
CLR
INC
CMP
BLE
CMP

CMP
INCB
CMPB
8LO
CLRB
DEC
BNE
TST
BLT

1S18

BLT

MOV
Mov

JSR
MOV

8I(C8
BISB
BIS8
INC

MOov8

CMPB
8LO

77777 R1
§1,#-100000

R3
2%

#68,=(SP)

PC,BLSMUL
(SP)*
#2.R1

RO,R3
R1,R3
R3

:?CP.PKT(RS)
R1,#41
58

(SP)+,(SP)+

9%
(SP)+,(SP)+
RS
RS, #14

83
RS

4(SP)
1%
R4
118
PKT.USE (R&)
118
R4 ,=(SP)
#104,=(SP)
PC,BLSMUL

#40,MSCP.PKT+6(R0)
#17.MSCP.PKT+10(R0)
xa,MSCP.PKT+10(R0)

RS.RO
RO
RO,NEXT.PKT.USE
RO, 414
10$

s J.t

s Jo*

: NEXT.PACKET,»

FI LR XA TN ¥ Qe Ve ®e 9

000002
000006

#2,-(SP)

IETN T YR

BNE

MOV
ADD
MOV

[T EYERIRTEIEYETYRE IR

001016
012746
066616
012601
042701
020127
001004
112766
000405
062766
005303
001351
032766
001027
116662
010204
010216
012746

lololelolelelelelelololelelelo
e RN ]

21=Jul=-198315:25:58
21=-Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

SEO 180

8e 181
VAX=11 Bliss=16 V3-555
(49)
1;10
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL

$CODES + 5152

e 0000000000000 0000000000800 90000s000s 000000,

MOV
ADD
RTS

NEXT.PKT,USE
(SP)+,(SP)+
R4 RO
#6,5P

OOODDODODD

.
Base:
Routine
122 words,.
: Maximum stack depth per invocation:
. Routine Size:

CLRB
CMP

Paae
VAX=-11 Bliss=16 V3-555
(
.8L1;10
JZRQAB0
DISKSUSER2: [DIETZ.RELEASE

OO0

0000006

000346
000352
000354
000356
000362

v01.2

21=Jul=-198315:25:58
21=-Jul=198315:19:20
-0
"o

RD/8]X EXERCISER
GLOBAL ROUTINES

-—p

ZRQAM2

< ~e
() 0

N 14

N FI FE PN FE TR T FIE ¥

global routine PUT_PKT (index) : novalue =
e

THE MSCP PACKET DESIGNATED BY ''INDEX'' IS RETURNED TO THE POOL BY THIS

;

ROUTINE.

begin

I N [ TETR EIETIE

local
RING_ADDR : word,

I PN RN

OWNER : word;

RING_ADDR = .DCT_ADDR CRR_BEG];

! ADDRESS IN FIRST RESPONSE RING

incrbCOQNT from 1 to (RRING_LEN + CRING_LEN) do

' FOR EACH ADDRESS IN THE RINGS

egin

A I YR XN

i; MSCP_PKT [.index, PKT_LOJ eqla ..RING_ADDR

then

begin

PRI I TR TE

.OgNER = ..OWNER and (not (ED_OWN)) and (not (ED_FLAG)) . ! GIVE OWNERSHIP TO HOST

end;

! LOOK AT NEXT PACKET ADDRESS IN RING

RlzG_ADDR = .RING_ADDR + &;
end;

6040

PKT_USE [.index] = -1;
end;

LSBTTL
PUT.PKT::

000000

004137

000000G

000004
000010
000014
000020
000022
000026

013700
016003
016601
010146
012746
004737
012702
026013
001005
012704
060304
042714
062703
005302
001364

0000006

MOV

000014

MOV

000032
000036
000042
000044
000050
000052
000056
000062
000064
000066
000074
000076

! IF ADDRESS MATCHES

! ADDRESS OF OWNERSHIP WORD

OWNER = .RING _ADDR + 2;

R
[P E

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

SEQ 182

Page 183
VAX=11 Bliss=16 V3=555
(50)
1;10
ZRQABO.BL
DISKSUSER2:[DIETZ .RELEASEI

112761
022626

000207

000004

JSR

R1,$SAVE4

MOV

4(RO) ,R3

MoV

MOV
JSR

000104
0000006G

PUT.PKT GLOBAL ROUTINES

DCT.ADDR,RO
14(SP) ,R1

R1,-(SP)

#1046 ,-(SP)
PC,BLSMUL

: = ,RING.ADDR

6011

6024

; INDEX,*

6029

MOV
gng

#10,R2
SECP.PKT(RO).(RS)

: *,COUNT
; *,RING.ADDR

6026
6029

000002

MOV

#2,R4

; « ,0WNER

6032

140000
000004

BIC
ADD
gfig

#140000, (R4)
#4 ,R2
?%

: «,0WNER
; «,RING.ADDR
s COUNT

6033
6036
6026

MOVB

#377.PKT.USE(TM1)

6039

000010
0000006

000377

1%:

ADD

2%:
0000006

(MP
RTS

R3.R4

(SP)+,(SP)+
PC

: RING.ADDR,OWNER

:
:

6018
6011

B 15
ZRQAM2
v01.2
: Routine Size:

115:25 :58
21=Jul-1983
-1983
15:19 :20
1
21=Jul-

RD/RX EXERCISER

GLOBAL ROUTINES
32 words,

Routine Base:

Hax1mum stack depth per invocation:

8 words

SCODES + 5536

SEO 183

£98°30

VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE]ZRQABO.BL1;1

c15

6041
6042
6043
6044

6045

6040
6047

6048
6049
6050
6051
6052
6053
6054
6055

000000

010146

000002

005000

000004
000010

routine PUTA_PKT (CTLR)
‘s

003764
012601
000207

: nova'ue =

THIS ROUTINE DEALLOCATES ALL MSCP PACKETS WHICH HAVE BEEN ALLOCATED

INPUTS:

TO A PARTICULAR CONTROLLER.

;

CTLR = CONTROLLER NUMBER

incr COUNT from 0 to (PKT_CNT = 1) do
en

.SBTTL

PUTA.PKT GLOBAL ROUTINES

Mov

R1,=(SP)

MOVB
gng

PKT.USE (RO) ,R1
g;,k(SP)

: t(COUNT)
,«
: «,CTLR

MOov8

#377 ,PKT . USE(RO)

BLE

PUTA.PKT:

000013

! DEALLOCATE IT

PKT_USE [.COUNT] = -1;

0000006G
000004

1$:

000000G

2s:

! FOR EACH ENTRY IN ALLOCATION TABLE

' IF PACKET IS ALLOCATED TO GIVEN CONTROLLER

:; PKT_USE [.COUNT] eql .CTLR

CLR

INC
CMP

MOV
RTS

RO
RO, #13

(SP)+,R1

16 words,
Routine Base: $CODES + 5636
: Routine Size:
2 words
; Maximum stack depth per invocation:

SEQ 184

Page 185

DISKSUSER2: [DIET2.RELEASE]ZRQABO.BL1;10 (51)

000377
000034
000036

21=Jul~1983 15:25: 58
21-Jul~1983 15:1 9:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

VAX=-11 Bliss=16 V3-555

: COUNT

; *,«(COUNT)
; COUNT
; COUNT,»
H

D15

15:2 5:58
21=-Jul=-1983 13
1 9:20
21-Jul=1983

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

SEQ 185

Paae 186

DISKSUSER2:[DIETZ.RELEASEIZR0ABO.B L1:10

(52)

IR LN X [YREYREIEIEIEIEFE YR PN FETE XN FE TR PR PR LR TR TN ¥

global routine GET_RETPKT (CTLR) =
e

THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION TABLE (RP_USE)
FOR A FREE RETURN PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF DNE IS

]

FOUND, THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED TO
THE CALLER. OTHERWISE, A =1 IS RETURNED INDICATING NONE AVAILABLE.

INPUTS:

;
E-

CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION

begin
local

index : signed word initial (-1)

! ASSUME NONE AVAILABLE

!] FOR EACH ENTRY IN TABLE

incr COUNT from 0 to (RP_CNT = 1) do

if .RP_USE [.COUNT] Lss 0

then

begin
RP_USE [.COUNT] = .(CTLR;

YRR IR IEAIEIETEAIE TN

IF FREE RETPKT IS FOUND

!] ALLOCATE RETURN PACKET TO CONTROLLER

index = .COUNT;

! ZERO OUT RETPKT
incr J from 0 to (RP_LEN - 1 ) do
RETPKT [.COUNT, .J, 0, 16, 0] = 0;
]

exitloop;
end;

004137

0000006

012704
005003

177777

.SBTTL
GET.RETP&;;:
MOV

0000006

000014

18:

MOV
MOV

MOV
JSR

2$:

000000G

CLR

égge

MOVB

0000006

000030
0000006

005061

DONE

RETURN PACKET INDEX (OR =1) TO CALLER

return .index;
end;

105763

000054

VAX=11 Bliss=16 v3=-555

CMP
CLR

GET.RETPKT GLOBAL ROUTINES
R1,8SAVE4

g:.USE(R3)

: =(COUNT)

14(SP) ,RP.USE (R3)
R3.R4
R3,=(SP)

: CTLR,*(COUNT)
: COUNT,INDEX
: COUNT,

#=1,R4
R3

#30,-(sP)

PC.BLSMUL
(SP)+,(SP)+

MOV

R2
RO,R1
R%,R1

(LR

RETPKT(R1)

ADD
ASL

: «, INDEX
: COUNT

HE
:
s J.y

6081
6082

000027

000003

3s:
48

B8R

INC

CMP
BLE
MOV
RTS

6081

H
¢ COUNT

6077
6073

; INDEX,*
H

6068
6056

HEA

: COUNT,«

- Pnd

Tun Yo Y o ¥ e

INC
CMP
BLE

$LODES + 5676
Routine Base:
; Routine Size:
35 words,
words
8
invocation:
per
; Maximum stack depth

000102
000104

005202
020227
003767
000404
005203
020327
003744
010400
000207

Y o Y eV Y

21-Jul~1983 15
21-Jul=1983 15

RD/RX EXERCISER
GLOBAL ROUTINES

SEQ 186

Page 187
VAX=11 Bliss=16 V3=555
(52)
.BL1;10
EJZRQABO
2.RELEAS
R2:[DIET
DISKSUSE

E 15

6089
6090
6091
6092
6093
6094
6095
6096

global routine PUT_RETPKT (index) : novalue =
e

;857?5EURN PACKET DESIGNATED BY ''INDEX' IS RETURNED TO THE POOL BY THIS

;

RP_USE [.index] = -

000000

016600

000002

000004
000012

112760
000207

000377

: Routine Size:

.SBTTL
PUT.RETPKT::

MOV

MOVB

0000006

6 words,

RTS

Routine Base:

Haxwmum stack depth per invocation:

0 words

PUT.RET>KT LJBAL ROUTINES

2(SP),

: INDEX,«

6096

6089

0377, RP USE(RO)

$CODES + 6004

P d

:
:
:
:
:
:
:
:

21=Jul=-1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

SEQ 187

Paae 188
VAX=11 Bliss=16 v3=555
(53)
1;10
RQABO.BL
ELEASEIZ
[DIETZ.R
R2:
DISKSUSE

ST, S, SV, g, S, S, g, PN, P

F 15

G 15

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?

v01.2
YRLR LA XN X

;géfi ROUTINE HANDLES THE ALLOCATION OF AN [/0 BUFFER FROM THE BUFFER

LRLR

INPUTS:

IMPLICIT INPUTS:

OUTPUTS:

AR TR TR

O V00~
N S W00

d e emd

D b b b e

b i

e e

b b )

(o Yo Yo Yo Yo Yo Yo Yo Yo To Yo To 0

ADDR = ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR
CCTLR = CURRENT CONTROLLER NUMBER

PR
YR PRTR TR YR
X
A
O
T

!
!

THE ALLOCATED BUFFER'S DESCRIPTOR IS LOADED INTO THE TWO
WORDS AT °‘'ADDR'* AND °‘'ADDR + 2''. OTHERWISE, A ZERO IS RETURNED
AT 'ADDR'' IF NO BUFFERS ARE AVA]ILABLE.

begin

' ASSUME FAILURE

.ADDR = 0;

incr COUNT from O to (QIO_PER_CTLR * MA'\_CTLR - 1) do

EEIEEEEE

be?in

' ALLOCATE BUFFER TO CONTROLLER
! RETURN BUFFER DESCRIPTOR
! DONE

BUFF OWN [.COUNT] = .CCTLR;
.ADDR = .BUFF_ADDR [.COUNTI;
exitloop;

000002
000006
000010
000014
000016
000024

005076
005001
105761
0029011
113761
010100

GET.I0.BUFF GLOBAL ROUTINES

MOV

R1,=(SP)

6097

CLR

; COUNT

6118

CLR

000004

84 (SP)

; ADDR

6116

;gge

ggFF.OUN(R1)

: *(COUNT)

6120

0000006 000000G

MOV8
gg!

CCTLR,BUFF .OWN(R1)
ga.RO

: %, *(COUNT)
,«
: COUNT

6123
61264

0000006 000004

MOV
BR
INC
CMP

BUFF .ADDR(RO) ,a4(SP)
3s
R1
R1,#7

: «,ADDR
:
: COUNT
; COUNT,»

6122
6118

MOV

(SP)+,R1

6097

0000006

18:

2%:
3%:

012601
000207

: Routine Size:

.SBTTL

GET.I0.BUFF::

000007
000050
000052

! ROUTINE GET_IO_BUFF

end;

010146

' FOR EACH ENTRY IN BUFFER TABLE

! IF BUFFER IS FREE

:; BUFF_OWN [.COUNT] Lss 0

end;

000000

SEQ 188

Page 189
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.BL1;10 (54)

global routine GET_IO_BUFF (ADDR) : novalue =

;

21=Jul=1983 15:25:58
21=-Jul=1983 15:19:20

22 words,

Routine Base:

BLF

RTS

$CODES + 6020

H 15

IRQAM?
v01.2

21=Jul=1983 15:25:58
21=Jul=-1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

: Maximum stack depth per invocation:

¢ words

SEQ 189

Page 190
VAX=11 Bliss=16 Vv3=555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL1;10 (54)

THIS ROUTINE HANDLES THE DEALLOCATION OF AN 1/0 BUFFER, RETURNING IT
TO THE BUFFER POOL.

INPUTS:

i
!

010146

000002

005001

010100
006300
026076
001004
112761
000404
005201
020127
003762
012,01
000207

; Routine Size:

ADDR = ADDRESS OF THE 2-WORD BUFFER DESCRIPTOR TO BE

then

be?in

! FOR EACH ENTRY IN BUFFER TABLE

' IF THIS IS THE BUFFER'S ENTRY
! DEALLOCATE BUFFER
! DONE

BUFF OWN [.COUNT] = =1;
exitloop;
end;

.SBTTL

PUT.I10.BUFF GLOBAL ROUTINES

MOV
CLR

R1,=(5P)
R

H
; COUNT

0000006 000004

gng

ggFF.ADDR(RO).B‘(SP)

; «,ADDR

000377 0000006

Move

#377 ,BUFF .OWN(R1)

: «,«(COUNT)

R1.47

H
; COUNT
: COUNT,+

6145

(SP)+ ,R1

6129

PUT.JO0.BUFF::

18:

000007

2%:
3s:

:g{

B8R
INC
CMP
BLE

Mov
RTS

sa.RO

3s
R1

18 woras,
Routine Base: $CODES + 5074
2 words
invocation:
; Maximum stack depth per

S ST, SN, SR gy SN, S, S

i; .BUFF_ADDR {.COUNT] eqla ..ADDR

gy PN g

incr COUNT from 0 to (QIO_PER_CTLR ~ MAX_CTLR - 1) do

N e

DEALLOCATED

;

: COUNT ,»

6129
6140

6142

ST S

o o

. S

‘e

6146
6147

000000

R P NCYNECNECVNNOICY

global routine PUT_IO_BUFF (ADDR) : novalue =

L i

d ed
e
e
b e
—d

R al 2L 2o
1Y
VIS NN = O 000

(o Yo Yo Yo Yo No Lo oo

Yy
T
T
T
TR T
R TR L
TR
T
I
T
T
e
P

6129
6130
6131
6132
€133
6134
6135
6136
6137

SEQ 190

Paae 191
VAX=11 Bliss=16 Vv3-555
DISKSUSER2: [DIETZ2.RELEASEIZROABO.BL1;10 (55)

6144
6140

. e

RD/RX EXERCISER
GLOBAL ROUTINES

ZRQAM?

000004
000006
000010
000016
000020
000026
000030
000032
000036
000040
000042

21-Jul=1983 15:25:58
21-Jul=1983 15:19:20

115

J 15

6148

;

€150

6152

6151

g}gz

g}gg

6159

000000

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?2
v01.2

global routine PUTA_BUFF : novalue =
M g

THIS ROUTINE DEALLOCATES ALL I/0 BUFFERS WHICH HAVE BEEN ALLOCATED TO

THE CURRENT CONTROLLER (CCTLR).

incr COUNT from O to (QIO_PER_CTLR « MAX_CTLR = 1) do
then

000002 005000
000004 116001 000000G

000010
000014

020137
001003

0000006

000026

020027

9000007

000016 112760 000377 000000G
000024 005200
000032

003764

000036

000207

! DEALLOCATE 1IT

BUFF_OWN [.COUNT] = =1;
.SBTTL
PUTA.BUFF::

PUTA.BUFF GLOBAL ROUTINES

MOV

R1,-(SP)

CMP
BNE

R1,CCTLR
23

RO,#7

: «,«(COUNT)
: COUNT

: COUNT,=

6159
6155

(SP)+,R1

6148

2$:

MOVB
INC

#377 ,BUFF .OWN(RO)
RO

BLE

RTS

6148

s COUNT
; *(COUNT),¢

RO
BUFF .OWN(RO) ,R1

CLR
Move

MOV

6155
6157

1$:

CMP

! FOR EACH ENTRY [N BUFFER TABLE

! IF THIS BUFFER IS ALLOCATED TO THE CURRENT CONTROLLER

i; .BUFF_OWN [.COUNT] eql .CCTLR

010146

000034 012601

SEQ 19

Paae 192
VAX=11 Bliss=16 V3=-555
10 (56)
1;
SEIZRQABO.BL
DISKSUSER2: [DIETZ.RELEA

: Routine Size: 16 words,
Routine Base: SCODES + 6140
: Maximum stack depth per invocation: 2 words

K 15

:
:
H

:
:

6160
6161
6162

global routine OUT_I0DQ =

6165

6153
6166

:
:

6166
6167

6169

21=-Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?2
v01.2

6168
6170

2};}

6173

THIS ROUTINE RETURNS TO THE CALLER THE NEXT RETPKT INDEX TO BE
PROCESSED FROM THE 1/0 DONE QUEUE (10DQ). THE 'OUT’’ POINTER TO THE

!
!

QUEUE IS ALSO UPDATED.

!
!

INPUTS:

!
!

OUTPUTS:

NONE
THE INDEX OF THE NEXT RETPKT TO BE PROCESSED.

6174

begin

6176

local

6179

index = .J0DQ [.10DQ_OUT];

! GET NEXT RETPKT INDEX

g}gg

i; .10DQ_OUT gequ IODQ_LEN

! IF BEYOND END OF QUEUE

g}gg

6186

6175

g};g

M
:

;

g}g?

6187

SEQ 192

Page 193
VAX=11 Bliss=16 v3=-555
(57)
BL1;10
ASEIZRQABO.
[DIETZ.RELE
DISKSUSER2:

index : word;

! ADVANCE ‘OUT'' POINTER

[10DQ_OUT = .10DQ_OUT + 1;
then

! SET POINTER TO BEGINNING OF QUEUE

[obe_out = 0;

! RETURN INDEX TO CALLER

return .index;

end;

000000

013700

000000G

000004
000010

116000
042700

0000006
177400

000026

103402

.SBTTL
out.lI0DG::

000030 005037 000000G
000034 000207

MOV
MOVB
8IC

100Q.0UT RO
10DQ(RO) ,RO
#177400,R0

BLO

INC
CMP

000014 005237 000000G
000020 023727 000000G 000004
1%:

0UT.I0DQ GLOBAL ROUTINES

CLR
RTS

100Q.0UT
10DQ.0UT,#4

100Q.0UT
PC

: Routine Size: 15 words,
Routine Base: $CODES + 6200
: Maximum stack depth per invocation: O words

.
; *,INDEX
: *,INDEX

6179

:
:

6180
6182

.
:

6184
6160

6188

global routine IN_IODQ (index) : novalue =

6191

8150 "!

:
:

6192
6193

6196

6195

it ((.10DQ IN ¢+ 1) eql .]ODQ_OUT) or

6197

then

:
:
:

6198
6199
6200

gggg

2589

6208

:
;

else

6201
ggg%

return

begln

10ba [.100Q_IN] = .index;
10DQ_IN = .TODO_IN + 1;

' LOAD INDEX INTO QUEUE
' ADVANCE ‘'IN'* POINTER

i; .1000_IN gequ I0DQ_LEN

! If BEYOND END OF QUEUE

then

' CYCLE BACK TO BEGINNING OF QUEUE

10DQ_IN = 0;

! IF 10DQ@ IS NOT FULL

end;

(.1000_IN - (IODQ_LEN - 17 eql .10DQ_OUT)

e, g,

6194

UPDATES THE 10DQ_IN POINTER.

!
!-

SN P, JUE

THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE [/0 DONE QUEUE, AND

21=-Jul=-1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

SEQ 193

Page 194
VAX-11 Bliss=16 V3=555
(58)
;10
EIZRQABO.BL1
DISKSUSER2:[DIETZ.RELEAS

L 15

162700
020037

000003
000003G

000054

103402

000032
000034
000042
000046

000056 005037 000000G
000062 012601
000064

1%:

000207

: Routine Size:

27 words,

Routine Base:

: Maximum stack depth per invocation:

2 words

6198
6201
6202
6204

10DQ. IN
(SP)+ ,R1

:
:

6206
6188

RTS

H
: INDEX,»
:
:

8LO

CLR
MOV

18
4(SP) ,I0DQ(RT)
10DQ. IN
JODQ. IN,#4
PC

$CODES + 6236

6196

#3,R0
RO, J0DQ.0OUT

8EQ
Mov8
INC
CMP

001413
116661 000004 J00000G
005237 0000006
023727 000000G 000004

R1.RO

suB
CMP

MoV

000022
000026

000020 010100

R1,RO
RO
RO, I0DQ.OUT
18

——

000000G

MOV
INC
CMP
BEQ

6195

010100
005200
020037
001421

10D0Q. IN,R1

000006
000010
000012
000016

6188

R1,=-(SP)

MOV

0000006

MOV

000002 013701

IN.I0ODQ GLOBAL ROUTINES

.SBTTL
IN.]ODQ::

010146

000000

global routine DROP_CTLR (CTLR, REASON) : novalue =
'+

no
n

-—

TRTR

begin
local
UNIT;

incr N from (0 + OF_UN) to (3 + UNIT_SIZE + OF_UN) by UNIT_SIZE do

000066
000070
000074
000100
000102
000104

016646
012746
004737
010003
012702
010300
060200
006300
032760
001412
016001
000301
042701
116661
010100

104451
062702
020227
003752
022626
000207

: Routine Size:

D P

R P

004137

0000006

.SBTTL
DROP.CTLR::

Smm

end;

6232
6233

! SET REASON FOR DROPPING UNIT
' DROP UNIT

PPN TP

DODU (.UNIT);

! GET DRS UNIT NUMBER

DROP.CTLR GLOBAL ROUTINES

JSR

R1,$SAVE3

000027
0000006G

MOV
JSR

#27,-(SP)
PC,BLSMUL

000003

MOV

begin

DUR [.UNIT] = .REASON;

RN
TR

000004
000010
000014
000020
000022
000026
000030
000032
000034
000042
000044
000050
000052
000056
000064

! FOR EACH UNIT IN (ST

i; .CST C.CTLR, .N, D_PRES] eql PRESENT ! IF UNIT IS CONFIGURED

then

UNIT = .CcST C.CTLR, .N, D_UNITI];

000000

T NI
NP B~ W

N TN YR

AT APR

THIS ROUTINE DROPS ALL UNITS ASSOCIATED WITH THE CONTROLLER DESIGNATED
BY “°CTLR'’. THE REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR
gEE}?SNFOR EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THE DROP UNIT

!
!
:

6209

; CTLR,«

6225

#3,R2

: *,N

6223

ADD

R2,RO

: N,*

gég

ggOOOO.CST(RO)

0000006

MOV

CST(RO) ,R1

: «,UNIT

177760 o

8IC

#177760,R1

; *UNIT

MOV

R1,R0

ADD

#5,R2

BLE

MOV

000014

040000

000016

MOV

1%:

MOV
ASL

000000G

SWAB

000000G

000005

000022

MOVB

2%:

TRAP

CMP

CMP
RTS

35 words,

Routine Base:

14(SP) ,=(SP)

RO.R3

R3,R0
RO

16 (SP) ,DUR(R1)

R2, 422

(SP)+,(SP)+
PC

$CODES + 6324

; UNIT

6225

62<8

: REASON,«(UNIT)

6229

: *,N

6223

:
:

6218
6209

s UNIT,«
;s N,*

6230

PR TR AR L TN

RD/RX EXERCISER
GLOBAL ROUTINES

)

21=-Jul=1983 15:25:58
21=Jul=1983 15:19:20

IRQAM2
v01.2

SEQ 194

Page 195
VAX=11 Bliss=16 V3-555
(59)
10
2:
RQABO.BL1;
SER
.RELEASEIZ
[DIETZ
DISKSU

o TIYMNMMO
D

M 15

F 4

Ty o

Pr~ RN

8 words

: Maximum stack depth per invocation:

e 196

oxsxsussnz (DI T2 .RELEASE JZRQARO.BL1; 1 ©(59)

21=Jul=1
21=Jul~1

RD/RX EXERCISER
GLOBAL ROUTINES

——-—rt

IRQAM?
v01.2

ssa 195

VAX=11 Bliss=16 V3=555

NMOAHAD DR

N 15

B 16

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

SEQ 196

Page 197
VAX=11 Bliss=16 V3~555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (60)

global routine DRV_CTLERR (CTLR) - novalue =
‘s

THIS ROUTINE IS CALLED BY DRV _TIMCHK AND FATAL _ERROR WHENEVER AN

UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETEFTED. IL§ PURPOSE 1S TO

CLEAN UP ALL CONTROLLER=-RELATED DATA IN THE ‘DRIVER'' PORTION OF THE
PROGRAM. THIS INCLUDES MARKING THE CONTROLLER OFFLINE, CLEARING THE
g;zéNG COUNT, AND DEALLOCATING MSCP PACKETS DESCRIBED IN ThE RESPONSE

!
'
;
]

INPUTS:

;

CTLR = DYING CONTROLLER NUMBER

begin
.

local

D_ADDR : ref block [DCT_LEN, word] field (DCT_FIELDS);

D_ADDR = DCT + (.CTLR * DCT_LEN « 2):
D _ADDR [WORDO] = OFFLINE;
PUTA_PKT (.CTLR);
DROP_CTLR (.CTLR, DU_CFATAL);
end;

000054

016601
010146
012746
004737
062700
005010
010116
004737
010116
012746
004737
062706
012601
000207

000004

000022

0000006
0000006
005636°

000006
006324'

000006

GET CONTROLLER'S DCT ADDR
MARK DCT OFFLINE AND CLEAR CRING_CNT
RELEASE ALL PACKETS ALLOCATED TO CONTROLLER
DROP ALL UNITS ON THE CONTROLLER

! ROUTINE DRV_CTLERR

.SBTTL

DRV.CTLERR GLOBAL ROUTINES

MOV

R1,-(SP)

MOV

R1,=-(SP)

DRV.CTLERR::

010146

!
!
!
!

! CONTROLLER'S DCT ADDRESS

MOV

4(SP) ,R1

6234

6254
6255

: CTLR,®

MOV

#22,~(SP)

CLR
MoV

(RO)
R1,(SP)

: D.ADDR
:

R1,(SP)

JSR
ADD

JSR

MOV

PC,BLSMUL
#DCT,RO
PC,PUTA.RKT

MOV
JSR

#6,-(SP)
PC,DROP.CTLR

MOV

(SP)+ ,R1

ADD

RTS

#6,SP
PC

Routine Base: $CODES + 6432
23 words,
; Routine Size:
5 words
: Maximum stack depth per invocation:

6253

+ 6256

6248

6234

c16

RD/RX EXERCISER
GLOBAL ROUTINES

ZRQAM?
v01.2
:

:
:

:
:
:

21=Jul=-1983 15:25:58
21=Jul=198315:19:20

6258

6259
6260

6261
6262
6263
6264

global routine SEND (index) =
'+

!
!
!

IF THE CURRENT RDRX 1S ONLINE AND ITS CRING IS NOT FULL, THEN THIS
ROUTINE ‘‘SENDS'* A COMMAND TO THE RDRX BY LOADING THE PACKET
DESCRIPTOR OF AN MSCP PACKET INTO THE COMMAND RING AND READING THE
CURRENT RDRX IN NOT ONLINE, THEN A FAILURE INDICATION IS RETURNED TO

DEVICE'S IP REGISTER.

IF THE

6265

THE CALLER, AND NO ACTION IS TAKEN.

6268

INPUTS:

:
.
.

6270
6271
6272

!
!
!

2529

6269

6273

g%;g

INDEX = INDEX OF MSCP PACKET CONTAINING THE COMMAND TO
BE SENT

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT

.
:
:
:
H

6276
6277
6278
6279
6280

.
begin

6283

if ((.DCT_ADDR [STAT] eql ONLINE) and

H
:

ggg;

6284

6285
6286

local
SLOT ADDR

TEMPTM: word

then

253;

6289

it (not ((.MSCP_PKT [.index, OPCODE] eql OP_AC(C) or

:H
H
H
.
:
H
H
H

6291
6292
6293
6294
6295
6296
62?7
£298
6299

(.MSCP_PKT [.index, OPCODE] eql OP_“RD) or
(.MSCP_PKT [.index, OPCODE] eql 0P_SCC) or
(.HSCP PKT C.index,OPCODE] eql OP_WRT) OR
(.MSCP_“PKTL.INDEX, OPCODE]) EQL oP_ $0D) OR
(.MSCP_“PKTL.INDEX, OPCODE] EQL OP_“RCD) OR
(.MSCP_PKTL.INDEX, OPCODE] EQL OP_GDS) OR
(.MSCP_“PKTC.INDEX, OPCODE] EQ. OP ELP) OR
(. HSCPPKTL.INDEX, OPCODE] EQL OP_“ABP) OR
(.MSCP_“PKTL.INDEX, OPCODE] EQL OP EsP) ) )

6290

6300

6301

:
:
:
:

6303
6304
6305
6306

6309

(. HSCP PKT [.1ndex. OPCODE] eql OP ONL) or

then

6302

6307

' ITS CRING IS NOT FULL

! OR IT IS A SET=CTRL-CHAR COMMAND
!

((HSCF PKT [.index, OPCODE] eql O0B _ScC) and
(.DCT_ADDR CCRING_CNT] Ussu CRING_CEN))

! If DEVICE IS ONLINE AND

(.DCT_ADDR [CRING CNT] Lssu CRING_LEN)) or

'“

be?1n

PRINTF (DBM107, .MSCP_PKT [.index, OPCODE]);

else

return FAJLURE;
end
begin

6308

6310

until ((.MSCP_PKT [.index, CMD_TYPE] eql IMM_CMD) and

BREAK

SEQ 197

8e 198
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.BL1;10 (61)

! LOOP TILL CREDIT BALANCE POSITIVE

D 16

RD/RX EXERCISER
GLOBAL ROUTINES

ZRQAMZ
v01.2
Y

(.CREDIT BAL gequ 1)) or

PR TR YR T Y 1] (TR IEIEIEIEITETEIETEIE YR PR TN YO T N TN

MSCP_PKT [.index, CRN_LO) = (CRN_LOW = .CRN_LOW + 1);

! ASSIGN CMD REF NUM

it .CRN_LOW eql O

then

CRN_HIGH = .CRN_HIGH + 1;

MSCP_PKT [.index, CRN_HI) = .CRN_HIGH;

! ADDR OF NEXT COMMAND SLOT

SLOT_ADDR = .DCT_ADDR [CR NEXT);
DO BREAK

UNTIL ((.(.SLOT_ADDR + 2) and ED_OWN) eql 0);
SETPRI (PRIO7);

.SLOT_ADDR = .MSCP_PKT [.index, PKT_LOJ;

SLOT_ADDR = .SLOT_ADDR + 2;
.SLOT_ADDR = .MSCP_PKT [.index, PKT_HIJ.
.SLOT_ADDR = ..SLOT_ADDR and (not (ED_FLAG)):
.SLOT_ADDR = ..SLOTZADDR or ED_OWN;

PRIR

SLOT_ADDR = .SLOT_ABDR + 2;

end;

004137
005746

0000006

013701
005711
100003
121127

0000006

016646
012746
004737

000012
000104
0000006

103416

LOAD BUFF DESC (HI) INTO COMMAND SLOT
CLEAR INTERRUPT FLAG IN CASE SET
GIVE OWNERSHIP TO CONTROLLER
ADVANCE TO NEXT COMMAND SLOT

SLOT_ADDR = .DCT_ADDR [CR_BEGI:

! CYCLE BACK TO BEGINNING

DCT_ADDR [CR_NEXT] = .SLOT_ADDR;

RESTORE CR_NEXT POINTER IN DCT

TEMP =~ .RDRX_ADDR [RTIP, RC_ALLJ;
SETPRI (PRIOD);

DECREMENT CREDIT BALANCE
READ IP TO FORCE PORT TO POLL
LOWER PRIORITY

return SUCCESS:
end

6350

ADVANCE TO NEXT WORD

! IF BEYOND END OF CRING

DCT"ADDR [CRING CNT) = .DCY_ADDR [CRING_CNT] + 1;
CREBIT_BAL = .CREDIT 3AL - T;

else

LOAD BUFF DESC (LO) INTO COMMAND SLOT

:; .SLOT_ADDR gtra .DCT_ADDR [CR_END]
en

RIS TR

000030
000034

SEQ 198

Page 199
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE]ZROABO.BL1;10 (61)

(.CREDIT_BAL gtru 1);

T A TR TR TR TR
YRR A

000000
000004
000006
000012
000014
000016
000022
000024

21=-Jul=-1983 15::2 3:58
21=-Jul=1983 15: 1 20

INCR # OF TOMMANDS IN CRING

! IF DEVICE IS NOT ONLINE

return FAILURE;
! ROUTINE SEND

SEND::

000004
1%:

.SBTTL
JSR

TST
MoV
TST
BPL

(MPB
BLO
MoV
MoV
JSR

SEND GLOBAL ROUTINES
R1,$SAVE?
-(SP)
DCT.ADDR,R1
(R1)
1%

(R1) ,#4
2%
12(SP) ,=(SP)
#104,=(SP)
PC,BLSMUL

6258

6283

6284

s INDEX,*

6285

E 16

022626
126027
001170
121127
103165
016646

012746
004737
010002

RD/RX EXERCISER
GLOBAL ROUTINES

21=Jul=19 83
21-Jul=19 83

000022G 000004

(SP)+,(SP)+
)
,#4
MSCP.PKT+22(R0
9$

000004

000012

000104
0000006

2s:

6286

: INDEX,w

6289

§g.#20

000011

RO, #11

6290

000041

RO, #41

6291

000004

#4
RO,

6292

6293

6294

6295

6296

6297

6298

6299

RO,=(SP)
#DBM107,=(SP)
#2,-(SP)

;

6302

#6,SP
9s

2§CP.PKT+4(R2)

:
:

ggEDIT.BAL

6311

3$
3s

3$
RO.#42
38
RO, #4
38
RO,#5
38
M
RO,
33
RO,A3
3%
RO, 46
38
RO, #2
3$

000042

000004
000005

000001

060003
000006
000002
0000006
000002

SP,RO
17

000006
0000046

3%:

0000006

000300

12(SP) ,=(SP)

#104,=(SP)
PC.BLSMUL
RO,R2
(SP)+,(SP)+
RO

Paae 200
VAX=11 Bliss=16 V3=555
DISKSUSER2:LDIET2.RELEASEIZRQABO.BL1;10 (61)

,RO
MSCP.PKT+22(R2)

0000226
000020

001002

(R1) 44
9s

SEQ 199

s SP,x

§30%
6370

0000006 000001

4%:

ggEDIT.BAL.#1

6312

0000006

5%:

CgN.LOW,RO

6314

0000006
0000126

RO,CRN

ggMSCP PKT+12(R2)

F 16

21=-Jul=198315:25:58
21-Jul=198315:19:20

RD/RX EXERCISER

GLOBAL ROUTINES

005237
013762
013700
016001
104422
032761
001373
012700
104441
016221
016211
042711
052721
013700
020160

101402
016001
010160

0000006
000000G 0000146
0000006
000020

6$:

CRN.HIGH,MSCP.PKT+14(R2)

MOV

DCT.ADDR.R

TRAP

MOV

20(R0) ,R1

H
:
:

6317
6319
6321

6323
6324

: *,SLOT.ADDR

BIT

#-100000,2(R1)

000340

MOV

#340,R0

6326

0900006
0000026
040000

MOV
MOV
BIC
BIS
MOV
CMP
BLOS
MOV
MOV
INCB
DEC
MOV
CLR

,
(R1)+
MSCP.PKT(R2)
,
(R1)
MSCP.PKT+2(R2)
#40000, (R1)
#100000, (R1)+
DCT.ADDR,RO
R1,12(RO)
8%
10(R0) .R1
R1,20(R0)
(RO)
CREDIT.BAL
(SP)
aRDRX.ADDR,
RO

; +«,SLOT.ADDR
: «,SLOT.ADDR
: «,SLOT.ADDR
: «,SLOT.ADDR
H

6328
6330
6331
6332
6335

: «,SLOT.ADDR
: SLOT.ADDR,*
H
H
: *,RC.REG
H

6337
6339
6340
6341
6342
6343

MOV

#1,R0

CLR

:
:

6289
6277

;

6258

100000

000002

3INE

TRAP

100000
0000006
000012

000010
000020

8s:

TRAP

000001

000436

MOV

CRN.HIGH

H
; *,*(SLOT.ADDR)

78:

0000006
0000006

005726
000207

INC

SEQ 200

Paae 201
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL1;10 (61)

9%
10%:

B8R

TST
RTS

10$

(SP)+
PC

$CODES + 6510
Routine Base:
144 words,
: Routine Size:
9 words
; Maximum stack depth per invocation:

: SLOT.ADDR,*

G 16
RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?
v01.2

.
:
:
:
:
:
:
:
:
:
:

000000
000000
000002
000010
000012

21=Jul=1983 15:25:38
21-Jul~1983 15:19:20

6351
6352
6353
6354
6355
6356
6357
6358
6359
6360
6361

global routine WAIT : novalue =
'+

!
:
!

THE PURPOSE OF THIS ROUTINE IS TO KILL TIME UNTIL AN RDRX INTERRUPT
RESULTS IN A RETURN PACKET INDEX BEING DEPOSITED INTO THE I/0 DONE
QUEUE (100Q).

: Routine Size:

! BREAK FOR ACT

BREAK

until .JODQ_IN neq .10DQ_OUT;

WAIT::

104422

023737
001773
000207

SEa 201

Paae 202
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1:10 (62)

18:

0000006 000000G
6 words,

Routine Base:

: Maximum stack depth per invocation:

2 words

.SBTTL

WAIT GLOBAL ROUTINES

TRAP

6361

RTS

6351

ggg

%gDO.IN.XOD0.0UT

$CODE$ + 7150

6359

H 16

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM2

v01.2

SEQ 202

Page 203
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1;10 (63)

LRPR FI KN Y

Lsbttl "ERROR MESSAGE SUBROUTINES®
routine EMS_SA : novalue =
e

THIS ROUTINE PRINTS (EXTENLED) THE GLOBAL DATUM °‘'SA_REG'' WHICH CONTAINS

LALA LN N L TETR TR TITERELE

;

THE CONTENTS OF THE SA REGISTER.

! IF CONTROLLER TIME-QUT

ig .SA_REG eql %0'177777°*
then

begin
PRINTX (CRLF);
PRINTX (ASTERISK):

IRTR

PRINTX (.CNTR_ERR [(01);

PRI LR

else

end

! IF GENERIC CONTROLLER ERROR

i; (.SA_REG and 20'003777°') lequ 22

P PR

then

begin
PRINTX (CRLF);
PRINTX (ASIERISK)

PPéNTx (.CNTR_ERR [.SA_REG and %0°'003777'1);

ET R T E R

else

' IF RDRX SPECIFIC CONTROLLER ERROR

;; ((.SA_REG and X20'003777') - 400) lequ 6
en

IR AR

begin
PRINTX (CRLF);

PRINTX (ASTERISK)

PRéNTx (.RDRX_ERR [(.SA_REG and %0'003777') - 4001);

010146
013701
020127

0000006
177777

0000006
000001

000000G
000001

0006050

21=-Jul=198315:25:58
21=Jul=1983 15:19:20

012746

000000G
000001

PRINTX (XX14, .SA_REG);

! JUST PRINT CONTENTS OF SA

.SBTTL

EMS.SA ERROR MESSAGE SUBROUTINES

MOV

SA. REG R1

EMS.SA: MOV

CMP
BNE

MOV

MOV
MOV

TRAP

MOV

R1,-(SP)
R ,#4-1
18

#CRLF ,=-(SP)

#1,-(SP)
SP.RO
15

#ASTERISK, (SP?

MOV
MOV

#1,-(SP)
SP,RO

MOV

CNTR.ERR, (SP)

TRAP

MOV

#1,-(SP)

6364

6371

6374

; SP,«

6375

; SP,x

6376

116

1
21=Jgul=1983
21=Jul=1983 5

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
SP,RO

010609

106415

000475
010100
042700
020027
101030

174000
000026

18:

R1,R0

#174000,R0

o Y Rt 2 asE 12R0ABO. L1, 30" (63)
s
: SP,*

;

6373

6383

RO,#26

0000006
000001

#CRLF ,-(SP)
#1,=-(SP)

?;RO

: SP,e

012716
012746
010600

0000006
000001

#ASTERISK, (SP)
#1,-(SP)

104415

SP.RO

s SP,*

SA.REG,RO

0000006
174000

#174000,R0
RO
#1,-(SP)

2$:

: SP,¢

38
R1,RO

:
:

6382
6389

6392

0000006
000001
0000006
000001

SP.RO
15
,
(SP)
#ASTERISK

: SP,»

SP.RO

: SP,*

SA.REG,RO

#1,-(SP)

0000006
174000

#174000, RO

6393

6394

(SP)
RDRX.ERR=-1440(R0),

1763406
000001

#1,-(SP)

3s:

000207

#174000,R0

#620,R0
RO,
#6
4
#CRLF ,=(SP)
#1,-(SP)

000620
000006

000006

6385

SP.RO
15

0000006
000002

6384

, (SP)
CNTR.ERR(RO)

0000006
000001

174000

6380

012746
012746
010609
104415

000304

SEQ 203

4$:

SP,RO
15

(SP)+
5$
R1,-(SP)
#XX14 =(SP)

;

6391

;

6397

SP,RO

; SP,*

#2,-(5P)
5%:

: SP,*

15
#6,SP
(SP)+,R1

6389

‘

;

)

6371

6364

J 16
IRQAM2
v01.2
; Routine Size:

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
99 words.

$CODES + 7164
Routine Base:
7 words

Hax1mum stack depth per invocation:

125
21=Jul -1983
-1983
1 5:19:20
21=Jul

VAX=-11 Bliss~16 V3=555

SEQ 204

Page 205

DISKSUSER2: [DIETZ.RELEASE JZRQABO.BL1:10

( 63)

K 16

routine EMS_SBC : novalue =

64600

6407

6409

6410

THIS ROUTINE PRINTS

THE GLOBAL DATUM ''SB_CODE'' (SUB-CODE) IF

EITHER THE STATUS CODE (ST_CODE) OR THE SOB-CODE IS NON=ZERO. (A

NON-ZERO SUB-CODE ALWAYS HAS SIGNIFICANCE, WHEREAS A ZERO SUB-CODE ONLY
HAS MEANING WITH A NON-ZERO STATUS (ODE).

o o oo o
~ Fa 5 oy
o o o0 o
(¥,]F
W) -

6398

begin

! PRINY‘SUB-CODE ONLY ON ERROR

if (.ST_CODE or .SB_CODE) neq 0

then

! SUB-CODE :

case .ST_CODE from ST_SUC to ST_CRV of

6414

begin

6412
6415

6417

PR?NTB (XX16);
set

£sT_sucl:

;;ease_coos lequ 16

6419

! SUCCESS SUB-CODES

PRINTR (.TBL_SUC [.SB_CODE]);

! INVALID COMMAWD

6421

[ST_CMD]:

PRINTB (EX_OP, .SB_CODE / 8);

6423

[ST_ABOJ:

! COMMAND ABORTED .

6425

[ST_OFL]:

if .SB_CODE lequ 8

! UNIT OFFLINE -

6429

[ST_AVLI:

! UNIT AVAILABLE

6431

[ST_MFEI:

:;easa_cooe lequ 10

! MEFIA FORMAT ERROR

2239

the"pnxnre (.TBL_OFL [.SB_CODE));

&H
W
&»

6433
o

TR
YRR TR TR XN YR PR YR YR LR LN KN 1
\.‘-Q'.o...-‘-....‘....-I.....‘l...c..‘...‘t...c‘..l.......n.o‘o...l'. PR
AIETEIEIN
YR IR FETE LN YR PR TR TR LR X LN ¥

21=Jul=1983 15:2 5:58
21-Jul=1983 15:1 9:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAM2
v01.2

SEQ 205

Paae 206
VAX=11 Bliss=16 V3=555
BL1:10 (64)
2:
IZRQABO.
SER
[DIETZ .RELEASE
DISKSU

6435

‘

PRINTB (.TBL_MFE [.SB_CODE));
[ST_WPTI:

:;e;.sa-coos / 128) lequ 2

6437

‘
! WRITE PROTECTED

PRINTB (.TBL_WPT [(.SB_CODE / 128)]);

6439

[ST_CMPI:

;

! COMPARE ERROR

6441

[ST_DATI:

i;ease,coos lequ 15

! DATA ERROR

6443
6445

PRINTB (.TBL_DAT [.SB_CODED);
[ST_HSTI:

:;ease_coos lequ 4

6447
6449

6450

! HOST ACCESS ERROR

PRINTB (.TBL_HST [.SB_CODE]);
[ST_CNT]:

if .SB_CODE lequ 3

then

! CONTROLLER ERROR

L 16

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER

LRGAM2
v01.2

ERROR MESSAGE SUBROUTINES

SEQ 206

Page 207
VAX=11 Bliss=16 V3=555
(64)
10
O.BL1;
JZRQAB
E
DISKSUSER2:[DIETZ.RELEAS

PRINTB (.TBL_CNT (.SB_CODE]};
it .SB_CODE
then

(ST_DRV]:

DRIVE ERROR

lequ 8

PRINTB (.TBL_DRV [.SB_CODE]);

PRINTB (EX_OP,

Coutrangel:

.SB_CODE);

! JUST PRINT SUB-CODE IF NO MATCH

tes.;

6461

end;

6462

end;

013700
053700
001001
000207
012746
012746
010600

0000006
0000006

0137C)
020027
101003
006300
066067
013716
012746
012746
010600

000000G
000013

104414

000000G
000001

000000°
0000006
0000006
000002

.SBTTL
EMS.SBC:MOV
8IS
BNE

1%:

ST.CODE,RO

TRAP

CMP
BR

CMP

0000006 000020

BHI
MOV
ASL
MOV
MOV
MoV

0000006
000000°
000001

0000006
000010
0000006

0000006
000002
4

062706

MOV

CMP

000006

5%:

#XX16,=(SP)
#1,=-(SP)
SP,RO

BHI
ASL
ADD
MoV
MoV
MOV
MOV

TRAP
BR

MOV
MOV
JSR

MOV

6412
SP,*

6414

RO, 413
38

RO
P.AAA(RO)
,PC
$B.CODE, (SP)
#EX.OP,=(SP)
#2,-(SP)
SP,RO
14
(SP)+,(SP)+
6$

Case dispatch

6457

SP,«

6414
6417

SB.CODE,#20

148
SB.CODE,RO

6419

(SP)
TBL.SUC(RO),

#1,-(SP)
SP,RO
14
15%

SP,*

6421

S8.CODE, (SP)
#10,-(SP)
PC,BLSDIV
RO, (SP)

MOV
MOV
MOV

#EX.OP,=(SP)
#2,-(SP)
SP,RO

ADD

#6,SP

TRAP

6409

MOV
MOV
MOV

TRAP

104414

000144
000146
000152
000156
000160
000162

RTS

EMS.SBC ERROR MESSAGE SUBROUTINES
ST.CODE,RO
$8.CODE,RO

SP,*

0000006

gg.cooe.ao

6427

000
000001

M,-(SP)

168

6425

SP.RO
14

158

(SP)
(RO) ,FL
TBL.O

: SP,x

0000006 000010

0000006 000012

8. CODE , #12

6431

0000006

Sg.cooe.no

6433

000064°
000001

#1,-(SP)

168

K4o]

6414

168

$8. CODE,#10

;

6$:
7%:

21-Jul-1983 15:1

ERROR MESSAGE SUBROUTINES

e Tl

21-Jul- 983 15: 2

RD/RX EXERCISER

SEQ 207

Paae 208
VAX-11 Bliss=16 V3=-555
0 (64)
O.BL1;1
EIZRQAB
DISKSUSER2:[DIETZ .RELEAS

e Te e

9%:

SP.RO

: SP,x

, (SP)
$8. CODE

6435

6437

14
158

#200,-(SP)

PC.BLSDIV
RO, #2

000112°
000001

RO
(SP)
TBL.WPT(RO),
#1,-(SP)

16$

SP,RO
14

0000006 000017

108:

0000006

158

SB. CODE,#17

6441

$B. CODE RO

6443

168

(SP)
TBL.DAT(,RO)

000120
000001

#1,-(SP)

SP.RO

: SP,»

SB. CODE , #4

6445

0000006

gg.cooe,no

6447

000160°
000001

)
, (SP)
TBL.HST(RO
#1,=(SP)

000000G 000004

118:

14
158

168

SP.RO
14

0000006 000003
013700
006300

: SP,»

0000006

12$:

158
SB. CODE , #3
168
SB.CODE
RO

: SP,*

6449

6651

(SP)+

000002

0000006
000200
0000006

, (SP)
TBL.MFE(RO)

6453

)

RO
S8.CODE

6455

SP,RO

: SP,¢

(SP)+,(SP)+

:
H

16$

RO
TBL.DRV(RO) ,(SP)
M ,=-(SP)

000202"
000001

164 words,

Routine Base:

; Maximum stack depth per invocation:

7 words

$CODES + 7472

PSECT

000000
P.AAA:

2$:

-WORD
-WORD
.WORD
-WORD
.WORD
-WORD
-WORD
-WORD
.WORD
.WORD
-WORD
-WORD

$PLITS,

: Routine Size:

RTS

6411
6398

RO,

15%:
16$:

005726
022626
000207

14
(SP)+

EASE Table for EMS.SBC+0044

a0
w

104414

YR¥)

0000006

YR YRYR TR

101012

0000006 000010

TRYR JN PR YR

000415
023727

: SP,+

}22:

SP,RO
14
15%
. #10
$8.CODE

104414

#1,=-(SP)

YT Yo o T e Yoo Yanl @ Tan 1o Y am |

(SP)
TBL.CNT(RO),

000172*
000001

[(TETE

016016
012746
010600

209

1ZROABO.BL1- 18° (64
Eo 1Y AL EASE
S

6414

ERROR MESSAGE SUBROUTINES

SEO 208

21=Jul-19
21=Jul=-19

RD/RX EXERCISER

VAX-11 Bliss=16 V3-555

THIS ROUTINE PRINTS THE ENTIRE RETURN PACKET INCLUDING OPCODE,

STAUTUS, SUB-STATUS,

MODFIERS OR FLAGS, AND ETC.

THESE FIELDS ARE ''TRANSLATED'® INTO ENGLISH TEXT IF POSSIBLE

6468 1

2293

RATHER THAN PRINTED AS RAW NUMBERS.

;

6471

IMPLICIT INPUTS:

6474 begin

gz;%

:
:

6475
6476

;

gz;g

;

6477

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET

OWN

EBH_TB1 : VECTOR (7] INITIAL (EBH_30 EBH 44 ,EBH_45

EBH_46,EBRA_47,EBA_48,EBA_49);

! TABLE OF BASIC. HARD ERROR MESSAGE ADDRESSES, INDEXED BY STATUS CODE
! 'DISK XXX
6482 PRINTB (XX13, .coxsx)
6483

'PRINTB (XX36, .CRN_L

:
:

gzgg

SELECTU (.RP ADDR [nssrva) OF

;
:
;

6488
6489
6490

;

:
:
;

;

223?

6491
gzg%
6494

gzgg

:
:
:

gggg

6501

;
:
:
;
:
:

6504
6505
6506
6507
6508
6509

6512

:
.

tzo 0'J: PRINTX (EX_SEQ);
(%0'1']: PRINTX (EXTDGM);
(%0'2'): PRINTX (EX"CRD):

PRINTB (XX17);

! *'SEQUENTIAL'’
i *DATAGRAM'
i *CREDIT NOTIFICATION''

i *MAINTENANCE''
[20'15°3: PRINTX (ER_MTN):
ggguERUISEJ PRINTX TXX37, .RP_ADDR [MESTYP1); ! UNKOWN MESSAGE TYPE
‘

PACKET TYPE

! *'COMMAND: °*

6497 SELECTU (.RP_ADDR [conid)) OF

6498
6499
6500

! EXPECTED CRN : XXXXXX

: XXXXXX
RECEIVED CRN
!! ‘message
type:’’

6484 PRINTX (XX35, .RP_Abon [cnr _L0Y);
6485 printX (xx29);

SET
[%0°2']
BEGIN

PRINTB (XX18);

SELECTU (.RPSADDR CENDCOD]) OF

[%0°201°'3: PRINTB (EX_GDS);
[20°'202'3: PRINTB (EXCESP);
(20’ 203'3 PRINTB (EXTELP):
[%0°204°]: PRINTB (EXZRCD):
[X0'505'7: PRINTB (EX7SDD)
[20°'206°): PRINTB (EX"ABP):

6514
6515

! PRINTS =-DUP-

! PRINTS A COMMAND

%g;HERUISEJ PRINTB (EX_OP, .RP_ADDR CENDCOD]); ! PRINT ENDCODE VALUE

gggg

6513

printb (xx15):

OF C.RP_ADDR [STSCOD] GEQU 0) AND (.RP_ADDR [STSCOD] LEQU 7)
THEN
ELSE

;

Sy, S

;

i AR, S, g, P

;

R ENCIOYYOO OO

6467

pmy gy (N (R S

6466

gy PR G

0ees

;

e ST S, SN S

GLOBAL routine EMSCMD : novalue =

6463

SEQ 209

Page 210
VAX=11 Bliss=16 V3=-555
(65)
BL1;10
ASEIZRQABO.
CDIETZ.RELE
DISKSUSER2:

PRINTB (.EBH_TB1 [.RP_ADDRTM[STSCOD]])
PRINTB (ex_op, .RP_ADDR [3TSCOD));

! “'status:’’

i IF STATUS CODE IS WITHIN RANGE

i PRINTB APPROPRIATE MESSAGE
' JUST PRINT STATUS CODE

e e o

”

21=Jul=1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM2
v01.2

. e i m S

then

PR NTX (XX25, .RP_ADDR [BCNT_L0J);

! FOR ANY *ACTUAL # OF BYTES TRANSFERRED: xxxxx::'

PRINTX (XX26, .RP_ADDR [BUFF_1], .RPADDR [BUFF_01);

EngDUP O;

! *'1/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX

i prints contents of dup packet

IF .RP ADDR CENDCOD] EQL X0°'201°

then

begin

if BIT_TST (RP_ADDR [9, 8, 1, 0, »

then PRINTB (dF 20);
if BIT_TST (RP_ADDR [9 9, 1,01, 1
then PRINTB (df_1);
if BIT_TST (RP ADDRTM [9 10, 1, 0],
then PRINTB (df_2):
(RP ADDRTM [9 11.,1,01, 1
BIT_TST
it
(df_3);
PRINTB
then

end;

' IF A GET DUST STATUS OR EXEC. LOCAL PRG COMMAND TH

{;.RP_ADDR [ENDCOD] EQL %0°'203°
en

beg

if BIT TST (RP_ADDR [9, 8,1, 0], 1)

then PRINTB (dF_4);
if BIT_TST (RP_ADDRTM [9 9,1,01, 1)
then PRINTB (df_5):

ST S

then PRINTB (df_6):
if BIT_TST (RP ADDRTM [9 11,1, 01, 1

ERINIX (xx23, .cST _ADDR [.CUOFF + 3, D_DBN], .CST_ADDR [.CUOFF + 3, D_DBN));

AR
EE

e A S L

end; then PRINTB (df_7);

! "ODBN: XXXXXX.''

(%0'0°']:

BEGIN

PRINTB (XX19);

SELECTU (.RPSADDR CENDCOD]) OF

'"PRINTS <-MSCP-

“ONL);
[X0°'211°'): PRINTB (EX_
[X0'220']: PRINTB (EX_.
“ACC);
t!o'241 J: PRINTB (EXRD).:

IMSC

! PRINTS THE COMMAND

[20°242'3: PRINTB (EX"WRT):

[OTHERUISEJ PRINTB (EX_ OP .RP_ADDR [ENDCOD]); ! PRINT ENDCODE VALUE

if .RP_ADDR ICHDHODJ eql MD_CMP THEN PRINTB (Xx20); ! PRINTS THE MODIFIER IF NECESSARY
PRINTB (Xx15);

(.ST_CODE ?tru 0) and
(.ST_CODE Tequ 11)

if BIT_TST (RP ADDRTM [9 10, 1, 01, 1V

[%0'204°]: PRINTB (EX_SCC);

TR IR RN

gy S EENOYOYOYO
OO

! IF A SEND DATA OR RECEIVE DATA COMMAND THEN

N .RPZADDR [ENDCOD]) EQL X0°'205°'

e SEn ST SN, SR, SN g, P P, g PN, P, SR R s g

IF .RP_ADDR [ENDCOD] EQL X0'204° or

R R
TS A T A PRPRPRTR PRYR TR TR LR T X TR

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

' STATUS:

! IF STATUS CODE IS WITHIN RANGE

e e e e e L e

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

PR PR PR TR YN PR TN PR

LRI PRLR LN ¥

IRQAM2
v01.2

SEQ 210

Paae 21
VAX=11 Bliss=16 V3-555
(£5)
;10
RQABO.BL1
RELEASEJZ
DISKSUSER2:[DIETZ.

IRQAM2

ERROR MESSAGE SUBROUTINES

else

PRINTB (.ERR_COD [.ST_CODE - 1))
if .ST_CODE eql ST_DIA
then

)

els

DISKSUSER2:[DIET2.RELEASEJZRQABO.BL1;10

(65)

! PRINTB APPROPRIATE MESSAGE

! MESSAGE FROM INTERNAL DIAGNOSTICS

PRINTB (EX_OP,

! JUST PRINT STATUS CODE WHEN NO MAT(H

.ST_CODE);

SEQ 2 "
12

Page

VAX=11 Bliss=16 V3=555

PRINTB (.ERR_COD [11))

! PRINTS STATUS SUB-CODE

EMS_SBC ();

! MSCP acces

IF .RP ADDR CENDCOD] EQLU X0'220° OR
P_ADDR CENDCOD] EQLU Z0'241°' OR
THEN
RP ADDR [ENDCOD] EQLU Xo0°242°

i mscp read
i mscp write

gr1ntx (Xx24, . g addr [CBCNT L0));

! "BYTE COUNT IN COMMAND: XXXXXXX'’
i FOR ANY "ACTUAL # OF BYTES TRANSFERRED: XXXXX.''

RINTX (XX25, .RP_ADDR [BCNT_[01);
! ''1/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX'®
PRINTX (XX26, .RPCADDR [BUFF 1], .RP_ADDR [BUFF_01);
' IF BAD"BLOCK REPORTED
if BIT TST (RP_ADBDR C[FLAGS],”EF_0)
else

PRINTB (xx21, .RP_ADDR [BBLK_LO])

if BIT_TST (RP ADDR [FLAGSJ EF_1)

then PRINTB
(

it BIT_TST (RP ADDR [FLAGSJ EF_2)
then PRINTB
(F 2);
if BIT_TST (RP ADDR [FLAGSJ EF_3)
(F_3
then PRINTB

begin

PRINTB (XX39);

if BIT_TST (RP ADDR [BCNT HIJ, EF_4)

then PRINTB(F 4);

if BIT_TST (RP ADDR [BCNTHIJ, EF_5S)
then PRINTB (F_5);

! IF ERROR LOG GENERATED
! IF SERIOUS EXCEPTION

' IF

if BIT_TST (RP ADDR [BCNT H1J, EF_7)

' IF

if BIT_TST (RP ADDR (BCNTH1), EF_8)
then PRINTB (F 8);

if BIT_TST (RP ADDR [BCNT _H11, EF_9)
then PRINTB
(

' IF

then PRINTB (F

ena,

! MSCP SET CTLR CHAR

if BIT_TST (RP ADDR [BCNTH1), EF_6)
then PRINTB (F 6);

it BIT_TST (RP ADDR tecurHIJ, EF_10)
then PRINTB (F_10);

IF .RP_ADDR [ENDCOD] EQLU X0°'211'

! CUBN: XXXXXX'

! IF BAD BLOCK UNREPORTED

IF _.RP_ADDR [ENDCOD] EQLU Z0'204°
THEN

! 'BAD BLOCK REPORTED: XXXXXX.''

rintX (Xx22, .RP_ADDR [LBN_LO], .RP_ADDR (LBN_LOJ);

PRINTB (XX41);

R
TR EIEEEE I E T E N E AR

21-Jul-1983 15: 2 :58
21-Jul=1983 15:19:20

RD/RX EXERCISER

N TRIR T A PRTRYR PR PRTR PRIR TR TR

PRYR 1) PRI R R

A E TR

I YR

R TR LR YN

I KN 1)

v01.2

! IF
! IF

! IF

N ¥R I
e e V3 000V B VW0 Vg0V T Vs 0, Ve Ne 0, VeI Ve 8 000 00 0030000000009 00T4s 000000990 000, [ TETREIETYETE IR TR YN YR

21=-Jul=-1983 15:25:58
21=-Jul=198315:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES
THEN

! MSCP ONLINE comman

begin

PRINTB (XX40):

if BIT_TST (RP ADDR [BCNT H1J, EF_11)

(
then PRINTB
[BCNTHI1J, EF_12)
(RP ADDR
if BIT_TST
then PRINTB (F_12);
it BIT_TST (RP ADDR [BCNTH11, EF_13)
PRINTB (F_13);
BIT_TST (RP ADDR [BCNT_HIJ, EF_14)
if___then
(F_14);

__then PRINTB
it BIT_TST (RP_ADDR [ecur HIJ, EF_15)
__then PRINTB (F_15);
if BIT_TST (RP ADDR [BCNT _H1], EF_16)
(
__then PRINTB

[BCNTHI1J, EF_17)
if BIT_TST (RP ADDR
(F_17);
B
_then PRINT
[8CN7H1), EF_18)
if. BIT_TST (RP ADDR(F_18);
PRINTB
_then
.
if BIT_TST (RP ADDR [BCNTH1), EF_19)
(
PRINTB
[BcnrHIJ, EF_20)
BIT_TST (RP ADDR(F_20).
it__then
then PRINTB
t BIT_TST (RP Aook (BCNT_HIJ, EF_21)

END;

then PRINTB (F_21);

end;

SEQ 212

Page 213
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (65)

! IF

! IF
! IF
! IFf
! IF
! IF

! IF
! IF
! IF
! IF
! IF

Cotherwisel:

BEGIN

PRINTB (Xx38, .RP_ADDR [CONID]);
SELECTU (.RPSADDR CENDCOD]) OF
[X0°'204°']: PRINTB (EX_SCC);

[X0°'211°): PRINTB (EX_ONL);

[X0°'220'): PRINTB (EX_ACC);
[X0'241°1: PRINTB (EX_RD):

! PRINTS UNKNOWN CONNECTION ID

! PRINTS THE COMMAND IF RECOGNIZED

[%0°242'3: PRINTB (EXZWRT):
[X0°211°):
[20'220 J:
[X0°'241°):
[X0°'242°]:

PRINTB
PRINTB
PRINTB
PRINTB

(EX_ONL);
(EX_ACC);
(EX_RD).
(EX_WRT):

togHERHISEJ PRINTB (EX_OP, .RP_ADDR CENDCOD]); ! PRINT ENDCODE VALUE

. g?DD?SECHDHOD] eql MD_CMP THEN PRINTB (XX20); ! PRINTS MODIFIER IF NECESSARY
if z
rin

rin

RINIE gex gg..RP_ADDR [STSCOD]);

! PRINTS STATUS CODE IN OCTAL FORM

RINTB (ex_op, .RP_ADDR [SUBCOD]);

! PRINTS STATUS SUB-CODE IN OCTAL FORM

!
!

THIS ROUTINE PRINTS (EXTENDED) BOTH BYTE COUNT FIELDS OF THE CURRENT
RETURN PACKET: THE BYTE COUNT FROM THE COMMAND ENVELOPE AND THE

! UNKNOWN (O

ZRQAM2

v01.2

6677

THEN

6681
6682

6683

begin

6684
6685

THEN

printX (xx22, .RP_ADDR [LBN_LO], .RP_ADDR [LBN_LOJ):

begin

! prints dup packet material

tes;

END;

end;

6706
6707

!PRINTX (XX27);
'EMS_BLK (.RP_ADDR, PKT_ LEN);

6710

end;

PRINTS RETURN OR MESSAGE PACKET IN A BLOCK OF OCTAL WORDS
! "'CONTENTS OF PACKET:**

! PRINT BLOCK OF WORDS AS LONG AS A MESSAGE PACKET INCASE A PACKET IS USED
! INSTEAD OF A RETURN PACKET

! ROUTINE EMSCMD

.PSECT
{BH.TB1:.WORD

010202

010216

0000006

000000
000004
000010

004137
013746
012746

! "LBN: XXXXXX'

! dup receive data
! dup send data

ems_dup ();

6699

6705

! 'BAD BLOCK REPORTED: XXXXXX.'*

' FOR ANY ''ACTUAL # OF BYTES TRANSFERRED: XXXXX.'’
PRINTX (Xx25, .RP_ADDR [BCNT_LO0J]);
! *'1/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX'
PRINTX (XX26, .RPZADDR [BUFF_1], .RP_ADDR [BUFF_0]);
! "DBN: XXXXXX.'*
.
+ 3, D_DBNJ);
[.CUOFF
.CST_ADDR
PRINTX (XXx23, .CST_ADDR [.CUDFF + 3,7D_DBN],

6696
6697
6698
6702

else

end;

6694
6695

! IF BAD BLOCK REPORTED

PRINTB (XxXx21, .RP_ADDR [BBLK_LO0])

IF .RP_ADDR [ENDCOD] EQLU X0°'204°' OR
.RP_ADDR [ENDCOD] EQLU X0°'205°

6692
6693

! FOR ANY “ACTUAL # OF BYTES TRANSFERRED: XXXXX.''
RINTX (XxX25, .RPCADDR [BCNT_[0));
! '‘I/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX'’
[BUFF_01);
PRINTX (XX26. .RPADDR CBUFF_1], ~.RP_ADDR
then

ggg?

! "BYTE COUNT IN COMMAND: XXXXXXX

Brlntx (XX24, .rp_addr [CBCNT _LOJ);

gggg

2;82

! MSCP access command
! mscp read
! mscp write

if BII_TST (RP_ADDR C[FLAGS],"EF_0)

2239

6700
6701

ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THE RESPONSE ENVELOPE).

IF .RP_ADDR [ENDCOD] EQLU X0°'220°' OR
.RP_ADDR [ENDCOD] EQLU X0°241°' OR
.RP_ADDR [ENDCOD] EQLU X0'242'

6678
6679
6680

.WORD

EBH.44

.SBTTL

EMSCMD ERROR MESSAGE SUBROUTINES

MOV

#xx13,-(SP)

.WORD
.WORD
.WORD
.WORD
.WORD

0000006
0000006
0000006

$CODES,
EBH.30

EMSCMD: : JSR
MOV

EBH.45
EBH.46
EBH.47
EBH.48
EBH.49

R1,$SAVE4
CDISK,=(SP)

H
:

6463
6482

SEQ 213

PaBe 214
VAX=11 Bliss=16 V3-555
10 (65)
2:
ROABO.BL1;
SER
[DIETZ .RELEASEIZ
DISKSU

A O OOOOOOOOOOOOOOCOOOODDOOOOD

PRTR TFR TR TN Y ¥
YR A TRA NIR TR TR X (I TETN
TRPR IR
R
PRTR
TN
T
T
AN
IR
IR

gg;z

21=Jul=1983 15:25:58
21=Jul-1983 15:19:20

L AN O AN N AN Y Y A YOOV

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAM2
v01.2

.~ . P~ P~ T~ N £ £ S S

ERROR MESSAGE SUBROUTINES

012746
010600
104414

#2,-(SP)

000002

: SP,¢

RP.ADDR,RO
, (SP)
4 (RO)

0000006
000004
0000006
000002

#2,-(SP)

0000006
000001

]
#XX29, (SP)
#,-(SP)

Sg.RO

6486

6488

#-1,R1

1$
R1
#EX.SEQ, (SP)
#1,=(SP)

18:

: SP,x

SP,RO
15
(SP)+
R2.M
2%

R1
aex.osn (SP)

,=(SP)
sp‘RO

28:

~(SP)

3s:

SP.RO
15
(5P)+

6486

6489

6486

6490

: SP,»

SP,RO
15
(SP)+
R2,#15
43

#EX.MTN, (SP)
#1,-(SP}

s SP,*

15
(SP)+
R2,#2
3$

R1
#EX.CRD, (SP)

0000006
000001

6485

: SP,x

2(R0) ,R2

0000006
000001

000015

R2
R2
R2
R2
#177760,R2

0000006
000001

000002

: SP,x

SP_RO
15
RP.ADDR,RO

177760
177777

000001

6484

#XX35,~(SP)

0000006
000002

012716
012746
010600
104415
005726

S:.RO

b =g =4

RD/RX EXERCISER

]

6486

6491

: SP,e

<~y

SEQ 214

Pa8e 215
VAX=-11 Bliss=16 V3-555
(65)
:10
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1

21=Jul=1983 15:25:58
21-Jul=-1983 15:19:20

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
4$:

0000006
000002

R1
R1
R1
R1
#177760.R1
R1, (SP)
#XX37,~(SP)
#2,-(5P)

0000006
000002

SEQ 215

Paae 216
VAX=11 Bliss=16 ¥3-555
(65)
1;10
ABO.8L
SEIZRQ
.RELEA
[DIETZ
SER2:
DISKSU
:

6486

6492

SP.RO
15
(SP)+,(SP)+
#XX17. (SP)

; SP,«

SP.RO

: SP,*

0000006

,
RP.ADDRRO

6497

000003
177777
000002

#-1.RS

6501

0000006
000001

011706°
0000006
000001

58:

6$:

RG ,#2
63
268
R3
#XX18, (SP)
#1,-(5P)
SP,RO

14
sp.Aoon.ao

s SP,»

6502

6504

14%R0).R2

#-1,R1

R2,#201

78
R1
#EX.GDS, (SP)
#1,-(SP)

0000006
000001

SP.RO

7$:

0000006
000001

000203

6495

3(RO) R4

000014
177777
000201

000202

#,-(5P)

0000006

001010

R1
5$
RP.ADDR RO

2(R0) ,R{

177760

14
(SP)+

)

R2,#202
8s
R1
#EX.ESP, (SP)

6502

6505

SP.RO

: SP,»

R2.,#203
9%

#,-(SP}

8s:

: SP,e

14
(SP)+

6502

<TM~y

ERROR MESSAGE SUBROUTINES

cex ELP (SP)

0000006
000001

,=(SP}
sp‘RO
14

000204

9%:

0000006
000001

100205

#1,-(sP}

10$:

0000006
000001

000206

11$:

6507

6502

R1
#EX.SDD, (SP)
#1,-(SP)

6508

11$

SP.RO
14
(SP)+
R2.,#206
128

: SP,»

6502

#EX.ABP (SP)

6509

SP.RO
14

M SP.*

(SP)+
R1
138
(S P)

, (SP)
14(R0)
#EX.OP,=(SP)
#2,-(SP)

000014
0000006
000002

6502

R2,#205

RP.ADDR,RO

0000006

: SP,*

14
(SP)+

#1,-(SP}

128:

: SP,t

SP.RO

0000006
000001

:
H

6502
6510

SP.RO

s SP,x

#XX15, (SP)

SP,RO

: SP,x

0000006
000016
177740
000007

RP.ADDR,RO

6513

010202°
000001

),
(SP)
EBH.TB1(RO

6514

0000006
000001

012746
010600

(SP)+
R2.#204
108
R1
#EX.RCD, (SP)

6506

138:

14
(SP)+,(SP)+

#1,-(5P)
14

16(R0) RO
#177740,R0

6512

RO, 47
14$
RO

#1,-(SP)

SP.RO

: SP,¢

21=Jul=1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER

SEO 216

e 217
VAX-11 Bliss=16 V3-555
(65)
1
.BL1T;
EJZRQABO
2.RELEAS
DISKSUSER2:[DIET

(ol=lolelelelolelalol=d=0=0"d=
00044

SEQ 217

000014

000204

000014

000205

158:

000020
0000006
000002

0000006
000024
000026
0000006
000003

b mad

~
8'\)
RSN o SSRNSENHRRINSa~aR

b b wnd

8388888888833388888

17%:

000022

0000006
000001

b
b ccd

188:

b e

0000006
000001

b
b o

002000

0000006
000001
104414

6517

14 (RO) ,#205
17%
RP.ADDR,RO
20(R0), (SP)
#X%25,=(SP)
#2,-(SP)
SP.RO
15
RP.ADDR,RO
, (SP)
24(RC)
26(R0) ,=(SP)

6518

6521

6522

PC,EMS.DUP
#12,SP

RP.ADDR,RO
14 (RO) ,#201
218
#400,22(R0)
18%
#DF .0, (SP)
#1,-(SP)

0000006
001000 000022

0000006

#XX26,=(SP)

0000006
000014 000201

001

RP.ADDR,RO
14§R0).0204

#3,-(SP)
SP.RO
15

000000V
000012

000400

: SP,+

14
(SP)+

16$:

0000006

SP.RO

000022

19$:

: SP,*

:
:
:

6523
6520
6525

6528

6529

SP.RO

s SP,¢

RP.ADDR RO

6530

198
#DF.1,(SP)
#1,-(SP)

6531

14
(SP)+

#1000,22 (RO)
SP,RO
14

: SP,e

RP.ADDR, RO

6532

208
#DF .2, (SP)

6533

SP,RO

: SP,¢

+
(SP)

#2000,22 (RO)

#1,-(SP)
14

YRIR

0000006

6513
6515

14$:

0000006
000002

14
15%
RO, (SP)
#EX.OP,~(SP)
#2,-(SP)

ERROR MESSAGE SUBROUTINES

OOO0OOOOOOOROOOOOROPROORLPRPRVVLNRR

RD/RX EXERCISER

IR IR LT YR TR
TR TR LR T LAY

Pase 218
VAX-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.8L1;10 (65)

21-Jul=1983 15:
21-Jul-1983 15:

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

0000006

004000

000022

208:

000400

218:

000022

001000

000022

228:

0000006

002000

000022

0000006
004000 000022
0000006
000001

0000006

000006

000006
0000006
000003

6538

6541

6542

SP.RO

: SP,x

14
(SP)+
RP.ADDR,RO

6543

#DF .5, (SP)

6544

SP,RO

: SP,«

RP.ADDR,RO

6545

6546

#1000,
22 (RO)

14
(SP)+

22 (RO)
#2000,
24$

24$:

SP.RO

: SP,«

RP.ADDR,RO

258
#DF.7,(SP)

;

SP.RO

; SP,w

CgOFf,RO

14
(SP)+

#4000,22 (RO)
#1,-(SP)

25$:

6535

#DF .6, (SP)
#1,-(SP)

0000006
000001

RP.ADDR,RO
14(R0) ,#203
25%
#400,22(R0O)
22%

#1,-(SP)

23$:

6534

: SP,+

14
(SP)+

23s

00017006
000V01

SP,RO

#DF .4, (SP)
#1,-(SP)

0000006
000001

0000006

#6000,22 (RO)
218
.3, (SP)
#DF
#1,-(SP)

000000G
000001

0000006
000014 000203

(SP)+
RP.ADDR, RO

SEQ 218

Pa8e 219
VAX=11 Bliss=16 v3=555
0 (65)
O.BL1;1
E]ZRQAB
.RELEAS
ETZ
ER2:(DI
DISKSUS

14
(SP)+

CST.ADDR,RO
(SP)

6(R0), (SP)
=(SP)
6(RQ), (SP)

#Xx23,=(SP)
#3,-(SP)

SP.R0

6547

6548

f
'

6550

LRAIILIL s

21-Jul-198315:% 5:58
21=Jul-198315:19:20

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
000014

013742°
0000006
000001

26$:
27%:

SP.RO
14

0000006
000014
177777
000204

14(R0) .R2
#-1,R1
R2,#204

000000G
000001

#EX.SCC

000211

28$
R1

#1,-(SP)

28$:

001,220

000001

104414

: SP,»

6555

6557

6558

SP.RO

s SP,x

R2,#220
308

6555

6559

14
+
(SP)

000241

0000006

6554

(SP)

SP,RO

318

R1
#EX.RD, (SP)
#1,-(SP)

31$:

6555

14
(SP)+
R2,#241

000242

6500
6497

0000006
000001

H
H

22.1211

R1
#EX.ACC, (SP)
#1,-(SP)

30$:

DISKSUSERZ:[DIETZ.RELEASEJZROA80.8L1:18 (65)

: SP,»

14
(SP)+

#1,-(SP)

29%:

(SP)

SEQ 219

Page 220

SP.RO

R1
#EX.ONL,

0000006
000001

001704

#XX19, (SP)
#1,-(SP)

VAX-11 Bliss=16 V3=555

: SP,»

6555

6560

SP,RO

: SP,+

R2,4242
328
R1
#EX.WRT, (SP)
#1,-(SP)
SP,RO
14

6555

6561

14
(SP)+

: SP,»

<N
o

000014
0000006
000002

0000006

000012

040000

33s:

0000006
000001

338

RP.ADDR
. RO
(SP)
14(R0), (SP)
#EX.OP,=(SP)
#2,~(SP)

0000006

:
348

000013
1777766
000001

0000266
000001

14
(SP)+
#xXx15,(SP)
#1,-(SP)

007472°
0000006
000014
177400

000220
020027

000241

37%:

: SP,x

6566

:
: SP,+

ST.CODE,RO
358
RO.#13
358
RO
(SP)
ERR.COD=2(RO),

6567

6568

6570

SP.RO

: SP,v

37%
R0£#37
36

H
:

6567
6573

,
(SP)
ERR.COD+26

6575

SP,RO

: SP,»

378

:
:

SP,RO

: SP,x

#1,-(SP)

36%:

6564

SP.RO

0000006
000002

RO, (SP)
#EX.OP,=(SP)
#2,-(SP)
14
(SP)+
PC,EMS.SBC

RP.ADDR,
RO
14 (RO) RO

:
:

«~N

6573
6577

6579
6581

#177400.R0
RO, #220
38
RO, #2641

6562

RP.ADDR,RO
12(R0) ,#40000
348
#Xx20, (SP)
#1,-(SP)
SP.RO

#1,-(SP)

35s:

: SP,+

14
(SP)+,(SP)+

000037

6555

SP,RO

0000006

OO0

32%:

(SP)+
R?

005726
005701
001414
013700

YT le e Talaleoleleolelelelvlielelw]leleololeleloleole]s]

ERROR MESSAGE SUBROUTINES

6582

RD/RX EXERCISER

SEQ 220

Pa8e 221
VAX-11 Bliss=16 V3-555
(65)
.BL1;10
EIZROABO
2.RELEAS
R2:[DIET
DISKSUSF

388
RO, #242

000242

0000006

000044
0000006
000002

388:

0000006
000020
0000006
000002

#XX25,=(SP)
#2,~(SP)

SP,RO
15
RP.ADDR,RO
, (SP)
24(R0)

0000006

6583

448

RP.ADDR,
RO
, (SP)
44 (RO)
#XX24 ,=(SP)
#2,-(SP)
SP.RO
15
RP.ADDR,RO
, (SP)
20(R0)

JZROA80.8L1:18 (65)

6586

: SP,*
6587

SP,e
6588

26(R0) ,=(SP)

#XX26,=(SP)
#3,-(SP)

SP,RO
15
RP.ADDR,RO

0000006
000014

14(R0O)
39s
(SP)
, O)
40(R
#xXx21,=(SP)
#2,-(SP)

000040
0000006
000002

SP.RO
14

000050

39s8:

40$:

0000006
040000 000014
0000006

SP.RO
15
(SP)+
#XX41, (SP)
#1,-(SP)
SP,RO
14
,
RP.ADDRRO
#40000,
14 (RO)
418
#F.1,(SP
M .-(SP

000001

001407

6591

: SP,v
6589
6593

408
, (SP)
50(RO)
(SP) ,=(SP)
#3,-(SP)

00003

0000006
020000 000014

6589

#XX22,=(SP)

0000006

0000006
000001

SP,*

41$:

SP.RO
14
(SP)+
RP.ADDR, RO

14 (RO)
#20000,
42$

SP,x

659

: SP,+
6595

6596

: SP,*
6597

ERROR MESSAGE SUBROUTINES

AAOVOOOOOOOOOOOOODO

VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASE

RD/RX EXERCISER

SEQ 221
Page 222

SEQ 222

Pa8e 223
VAX=11 Bliss=16 V3-555
(65)
1;10
QABO.BL
DISKSUSER2:CDIETZ.RELEASEIZR

SP,RO

: SP,v

RP.ADDR, RO

6599

438
#F.3,(SP)
#1,-(SP)

6600

0000006
000001

#10000,
14 (RO)
SP.RO
14

000024

0000006
000014 000204

43$:

448

0000006
060001

(SP)+
024 ,SP

RP.ADDR,RO
13;R0).l204
5
#XXx39, (SP)
#,-(SP)

0000006
000001

6606

6607

SP,RO

s SP,x

(SP)+
RP.ADDR,RO
0120.22(R0)

6608

6609

#F.5,(SP)
#1,-(SP)

SP,RO

s SP,x

RP.ADDR,RO
#40,22(R0O)
47$

6610

6611

0000006

000040

000022

46%:

0000006
000001

0000006
000020 000022

012716
012746
010600
104414
005726

0000006
000001

6605

0000006
000001

RP.ADDR,RO
22(R0)
458
#F .4, (SP)
14

45%:

6585
6602

; SP,»

#1,-(SP)

000000G
000100 000022

:
:

SP.RO
14

0000006
000022

; SP,«

428:

0000006
010000 000014

14
(SP)+

s SP,x
47%:

. SOV, SR, S, gme, SR,

#1,-(SP)

104414

6598

#F.2,(SP)

6612

6613

e AT SN SN s

0000006
000001

012716
012746
010600

. s

ERROR MESSAGE SUBROUTINES

RD/RX EXERCISER

6614

6615

RP.ADDR RO

6616

#F.9,(SP)
#1,-(SP)

6617

OO0OOOOOOOCROORORVRLP

SEQ 223

Paae 224
VAX=-11 Bliss=16 V3-555
(65)
1;10
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
48%:

0000006
000022
077777
100000

RO, #-100000
49%
#F.8,(SP)
#1,-(SP)

SP.RO

0000006
000002 000022

49%:

0000006
000001

0000006
000001 000022

508:

SP,RO

s SP,e

RP.ADDR RO

6618

6619

14
(SP)+

#1.22(R0)
SP.RO

013736°
0000006
000001

518:
52%:

53s:

14
(SP)+
(SP)+

RP.ADDR,RO
14(R0O) ,#211
533
65%
#Xx40, (SP)
#1,-(SP)

0000006
000002 000022

54%:

0000006
000001

6604

6624

6621

: SP,x

RP.ADDR, RO

6625

56
#F.11,(SP)
#1,-(SP)

6626

01§22(R6)

000022

: SP,e

SP.RO
14

0000006
000001

000022

#2.22(R0)
50§

#1,-(SP)

0000006
000014 000211

0000006

14
(SP)+

51$

000006
000001

000001

22(R0) ,RO

#77777°RO

0000006
000001

0000006

RP.ADDRRO
,

SP,RO

: SP,x

RP.ADDR RO

6627

#F.12,(SP)
#1,-(SP)

6628

6629

14
(SP)+

#2.22(R0)
55§
SP,RO

55%:

14
(SP)+

RP.ADDR,RO
22(R0) ,RO

SEQ 224

Paae 225
VAX-11 Bliss=16 V3~555
(65)
1;10
ABO.BL
SEIZRQ
.RELEA
DIETZ
DISKSUSER2:[

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
477777 RO

noin-1éoooo

100000

56
#F.13,(SP)

0000006
000001

1.-(5P)

0000006
040000 000022

56%:

SP.RO

: SP,+

RP.ADDR, RO

6631

6632

1
(SP)+

#40000,22(RO)
57

#F.14,(3P)
#1,-(SP)

0000006
000001

57%:

0000006
000022
0000006
000001

SP.RO

: SP,

RP.ADDR,RO

6633

#F.15,(SP)
#1,-(SP)

6634

14
(SP)+

22(R0)
588
SP.RO

: SP,»

(SP)+
RP.ADDR RO

6635

6636

0000006
004000 000022

58$:

0000006
002000 000022

598

59%:

0000006
000001

000000C

000100

000022

0000006
020000 000022
0000006
000001

SP,RO

: SP,+

RP.ADDR,RO

60s
#F . 17,.(SP)

SP.RO

: SP,»

RP.ADDR,
RO
#100,
22 (RO)
618
#F .18, (SP)

6639

6640

SP.RO

: SP,¢

RP.ADDR,RO

14
¢
(SP)

#2000,
22 (RO)
#1,-(SP)

60$:

0000006
000001

012746

#4000,
22 (R0)
#F.16,(SP)
#1,-(SP)

0000006
000001

14
(SP)+

#1,=-(SP)

618:

6630

;

14
(SP)+

#20000,22(RO)
62$
#F.19,(SP)

#1,-(SP)

6637

”

6638

6641

077777

SEO 225

ERROR MESSAGE SUBROUTINES
SP.RO

: SP,+

(SP)+
RP.ADDR, RO

6643

6
#F .20, (SP)

;

6644

SP,RO

: SP,+

RP.ADDR,RO

6645

6646

0000006

010000

000022

62$:

0000006
000001

0000006
000004 000022

M ,-(SP)

63$:

015136°
0000006

SP.RO

:
648

66$:
67%:

#6,SP
R3
678
85$
Rg?ooaRO

: SP,»

:
:
H

6623
6553
6497

6651

3(RO), (SP)

SP.RO
14

R2
14(R0) ,R2

000014
177777
000204

s SP,+

6652

6654

#-1,R1

R2,#204

pex scC

0000006
000001

1,-(SP}
spRO

68$:

0000006
000001

001010

14
(SP)+
(SP)+

#Xx38.~(SP)
#2,-(SP)

0000006

000220

oafizz(ab)

#F.21,(SP)
#1,-(SP)

000003
0000006
000002

000211

14
(SP)+

0000006
000001

000006

c;gooo,82(RO)

:
698

(SP)

14
(SP)+

s SP,»

R2,#211

6652

R1
#EX. ONL (SP)
#1,~(SP}

6655

69$

SP.RO

: SP,«

R2,#220
708

14
¢+
(SP)

6652

[(TEATEIEYRIERIE

RD/RX EXERCISER

R TN TN PR LR NN ¥

8
VAX=11 Bliss=16 V3-555
(65)
1;1
DISKSUSER2:[DIET2.RELEASEIZROABO.BL

R1
#EX.ACC, (SP)

0000006
000001

SP.RO

:
708

718:

728:

6658

72$

14
(SP)+

738
R
#EX.ONL, (SP)

14
(SP)+

6659

sP,e

R2,#220

6652

R1
#EX.ACC, (SP)
#1,-(SP)

6660

74$

14
(SP)+
R2, 4261
758
R1

#1,-(SP)

SP,RO
14

0000006
000001

6652

SP,

6652

6661

#EX.RD, (SP)

0000006
000001

000242

SP,

. #211
R2

SP.RO

74%:

SP,

R1
#EX.WRT, (SP)

SP,RO

000001

6657

6652

#1,-(SP)

738:

6652

R2,#242

SP.RO

0000006

000241

14
(SP)+

#1,-(SP)

0000006
000001

000220

16
(SP)+
R2 4241
718
R1
#EX.RD, (SP)
#1,-(SP)

SP.RO

0000006
000001

000211

6656

”,-(sP}

0000006
000001

000242

VAX=-11 Bliss~16 V3=-555

DISKSUSERZ:[DIETZ.RELEASEJZROABO.BLI:18 (65)

75$%:

SP,

(SP)+
R2,#242
76$
R1
#EX.WRT, (SP)

#1,-(SP}
SP.RO
14

PRTN FI VR YR TN X LN PN TR Y

ERROR MESSAGE SUBROUTINES

SEQ 226

Page 227

(TR YRIRTIERIEEIETEIE

15:2
21=Jul- 1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER

000241

6652
6662
SP,

(elelelolelolelolelelelelelelelelel-]

DISKSUSER2:[DIETZ.RELEASE

ERROR MESSAGE SUBROUTINES

B RRRRRRRERRRRaRERS

AR
SRR
SRRV
EEN SR RN o RS RO NIZRBLNREF

v01.2

76%:

0000006
000014
0000006
000002

0000006

000012

000001

-t

$
RP.ADDN,RO
(SP)
, (SP)
14(R0)
#EX.OP,~(SP)

040000

77%:

14
(SP)+,(SP)+

RP.ADDR,RO
12(R0) ,#40000
783
#Xx20, (SP)
#1,-(SP)

SP.RO

78$:

14
(SP)+
#XX15, (SP)
#,-($P)

SP.RO
16

RP.ADDR,
RO
16(R0) , (SP)

0000006
000002

#EX.OP,~(SP)
#2,-(SP)

0000006
000001
0000006
000016

6663

SP.RO

0000006
000016
177740

6652

#2,~(SP)

0000006
000001

0000006

(SP)+

Page 228

JZROABO.8L1:18 (65)

s SP,»

2177740, (sP)
SP.RO

1%
#xXx16, (SP)
#1,-(SP)

: SP,»

SP.RO
14
RP.ADDR,RO
16(R0) ,R1
R1

174000

0000006

000002

0000006
000014
177400
000220

020027

000241

SP,*

RO #220
79
RO,#241

6679

Io...0.0.o...0....““.’.‘“““.‘.‘“““““““““““““““““““““‘..0.. [TRTRTR IR YRPR TR LNEN ¥

0
[=4

VAX-11 Bliss=16 V3=-555

RD/RX EXERCISER

SEQ 227

SEQ 228

ERROR MESSAGE SUBROUTINES
798

000242

798:

0000006
000044
0000006
000002

SP.RO
15

; SP,»

#2,-(SP)

20(R0), (SP)

#XX25,=(SP)
#2,-(SP)

S;.RO

: SP,*

RP.ADDR,RO
14(R0)
80s
40(R0O), (SP)
#xXx21,=(SP)
#2,-(SP)
SP.RO

6686

6688

81
, (SP)
50(R0)
(SP) ,=(SP)

H
:

808:

000050

81s:

000022

000014

000204

000014

000205

0000006
000020
0000006
000002

0000006
000024
000026

6605

: SP,*

6686
6690

#Xx22,=(SP)

0000006
000003

0000006

6684

:
: SP,x

000040
0000006
000002

6683

SP.RO
15
RP.ADDR,RO
)
, (SP)
24(R0O
26(R0) ,=(SP)
#Xx26,=(SP)
#3,-(SP)

0000006
000014

6680

RO, #242
82%
RP.ADDR,RO
44(R0O), (SP)
#XX26 ,~(SP)

83s:

#3,-(SP)
SP.RO
15
(SP)+
#22,SP

RO
RP.ADDR.
, #204
14(RO)
83s
14(R0) ,#205
848
RP.ADDR,RO
20(R0), (SP)
#XX25,=(SP)
#2,=-(5P)

SP,RO
15
RP.ADDR,RO
24(R0), (SP)
26(R0) ,-(SP)

: SP,»

:
:

6682
6692

6693

6696

s SP,»

6697

TRR

RD/RX EXERCISER

IR YR PRPRPRPR VR R CR R VR LA LR LA A 000000000000
00050000 000000000008000008080000,

Paae 229
VAX=11 Bliss=16 v3=555
(65)
1;10
ABO.BL
SEJZRQ
.RELEA
DISKSUSER2: [DIETZ

ERROR MESSAGE SUBROUTINES
#Xx26,=(SP)
#3,-(SP)
SP.RO
15

0000006
000003
0000006

CgOFF.RO

0000006

CSTSADDRRO

000006

6(R0), (SP)
-(SP)
6(R0Q), (SP)

: SP,x

6698

#XX23,=(SP)

#3,-(SP)
SP.RO

s SP,+

PC,EMS.DUP

H
:
:
H
:

004716
004722

B84S:
000207

85%:

ADD

ADD
RTS

#20,5P

#20,SP
#16.5P
PC

$CODES + 10220
Routine_Base:
5
1258 words.
: Routine Size:
32 words
Haxtmum stack depth per invocation:

6699
6695
6650
6474
6463

ORRRRRRRRRRLRRRRRRRALRLRISIINII

DISKSUSERZ:[DlETZ.RELEASEJZROABO.BL1:18 (65)

RD/RX EXERCISER

o000

VAX=-11 Bliss=16 V3=555

SEQ 229

Page 230

;

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM2
v01.2
6711

g;}%

g;}g

0’

THIS ROUTINE PRINTS THE PRESENT DBN

;

6716

IMPLICIT INPUTS:

6719

BEGIN

;

g;}g

;

;
:

:
:
:

;

000000

000006
000010

000014

000016

000020
0000246
000026
000032
000034
000040
000042
000046
000052

;

CST_ADDR - ADDRESS OF CONTROLLER STATUS TABLE

! *DISK XXX''

6720 PRINTB (XX13, .CDISK);

[.CUOFF + 3, D_DBN]);
6721 PRINTB (XX23, .CST_ADDR [.CUOFF ¢ 3, D_DBN], .CST_ADDR
'“PRINTS THE BYTE COUN
6722 PRINTB (Xx32, .S_DUPPKT = 2);
i PRINTS THE PATTERN WRITTEN
| ROUTINE EMS-DBN

676 END;

013746

012746
012746

010600
104414

013700
006300
063700
005016
116016
005046
116016
012746
012746

0000006

0000006
000002

0000006

0000006
000006

000006
0000006
000003

104414

.SBTTL
EMS.DBN::

EMS.DBN ERROR MESSAGE SUBROUTINES
CDISK,=(SP)

SP.RO

: SP,*

MOV
ASL
ADD
CLR
MOvB
CLR
MOVB
MOV
MOV

CUOFF ,RO
RO
CST.ADDR.RO
(SP)
6(R0),(SP)
-(SP)
6(R0),(SP)
#XX23,~(SP)
#3,-(SP)

TRAP

MOV

MOV
MoV

#Xx13,=(SP)
#2,-(SP)

TRAP

MOV

SP,RO

#XX32,=(SP)
#2,-(SP)
SP,RO

; SP,*

MOV

012746 0000006
012746 000002
010600

MOV
MOV
MOV

000106 013716 0000006
000112 012746 0000006
000116 012746 000002

MOV
MOV
MOV

S.PATTERN, (SP)
#XX33,~(SP)
#2,-(SP)

104414

TRAP

162716

000002

104414

000122 010600
000124

000126

013700

000136
000140
000144

011646
012746
012746

#2,(SP)

TRAP

MOV

0000006

MOV

0000006
000003

MOV
MOV
MOV

000132 016016 0000006

000150 010600

SuB

MOV

SP,RO

; SP,«

S.DUPPKT RO

, (SP)
(RO) KT
DUPP

(SP) ,=(SP)
#XX34 ,=(SP)
#3,-(SP)

SP,RO

6720

671

; SP,*

S.DUPPKT, (SP)

000062 013716 0000006
000104

! 'DBN: XXXXXX.''

6723 PRINTB (XX33, .S_PATTERN);
! PRINTS THE WORD READ
6724 PRINTB (XX34, .(BUPPKT + .S_DUPPKT), .(DUPPKT + .S _DUPPKT));
! BRINTS THE WHOLE BLOCK READ IN OCTAL
6725 EMS_BLK (DUPPKT +2, 256);

000056 010600
000072
000076
000102

SEQ 230
Page 231
VAX=11 Bliss~16 V3-555
DISKSUSER2:[DIETZ.RELEASE JZRQABO.BL1;10 (66)

GLOBAL ROUTINE EMS_DBN : NOVALUE =

; SP,x

6722

6723

6724

COO0000000R0ROORRRRRCLRARCRRARLRRLRLLRIRSIARIRIIRAIISIIIIKI 5%

ERROR MESSAGE SUBROUTINES

000174

012716
012746
004737
062706
000207

: Routine Size:

TRAP
MOV
MOV

0000026
000400
000000V
000034

63 words,

JSR

ADD
RTS

Routine Base:

; Maximum stack depth per invocation:

15 words

#DUPPKT+2,(SP)
#400,=(SP)

PC,EMS.BLK

#34,SP
PC

$CODES + 15144

104414

6725
6719
6712

—

JZROA80.8L1:18 (66)

CO0OROROR0VRRVRRVRVVVVVQVOIVAVIVILVIVILIIVININIBIISII S

VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE

RD/RX EXERCISER

SEQ 231

Page 232

TR PRPR TR TR VN PR DN P PR TR TN

ROUTINE EMS_DUP: NOVALUE =

THIS ROUTINE PRINTS OUT THE LISTING OF THE DUP PACKETS ONLY ASSOCIATED WITH DUP RECEIVED DATA COMMAND

AND TE SEND DATA COMMAND.

;

begin
OWN

MSGNUMBERS

RCD_ERRORS

: VECTOR [9] INITIAL (n TER,

M BIN, H COD, M_DAT, M_UR, M_ORP, H UP, M_UL, M_ASC),

[5) INITIAL (eBh 30,E UNT, E BLK., E_DEV, E_ZER):
HARD ERROR RESSAGE ADDRESSES. INDEXED BY STATUS CODE
OF BASIC,
! TABLEVECTOR

!PRINTB (xx13, .CDISK);

DISK

PRINTB (XX29);

1f duppkt [duptype] lss 6
l

TR TR R I R IR IRIR

else

PRINTB ( MESSAGETYPE [.DUPPKT [DUPTYPE] - 1))
printb (ex_op, .duppkt [duptypel);

PRINTB (XX30);

if .duppkt [dupmesg] lss 9

then

PR?NTB ( .MSGNUMBERS [.DUPPKT [DUPMESG] - 11);
egin

If _.DUPPKT [DUPMESG] EQL 3

R T P P

THEN

BEGIN

PRINTB (XX31);

PRINTB (.RCD_ ERRORS C.DUPPKT [DUPBF131);

end

END;

elge printb (ex_op, .duppkt [dupmesgl):

[

end;

015342

0000006

015344
015346
015350
015352
015354
015356

0000006

015376

MESSAGETYPE : VECTOR [6) INITIAL (T_QUE, T_DEF, T_INF, T_TER, T_FAT, T _SPL),

0000006
0000006
0000006
0000006
0000006
0000006
0000006
0000005
0000006

MESSAGETYPE:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

T.QUE
T.DEF
T.INF
T.TER
T.FAT
T.SPL

.WORD
.WORD
.WORD

M.TER
M.BIN
M.COD

:
MSGNUMBERS

.WORD
.WORD
.WORD
LWORD
.WORD
.WORD

M.DAT
M.UR
M.URP
M.UP
M.UL
M.ASC

IRC

SEQ 232

Pase 233
VAX=11 Bliss=16 V3~555
DISKSUSER2:CDIETZ .RELEASE]IZRQABO.BL1;10 (67)

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAM?
v01.2

2989293838323 23328383838232323333232322332323238

012746

.SBTTL
EMS.DUP:MOV

0000006
000001

MOV
MOV
TRAP

MoV
ASR
ASR
ASR
ASR
SWAB
8I1¢C
cMP
BGE

0000006

177760
000006

ASL
MoV
MoV
MOV

015340
000001

0000006
000002

1$:

MOV

E.UNT
€.8LK
E.DEV
E.ZER

EMS.DUP ERROR MESSAGE SUBROUTINES

#Xx29,=(SP)
#1,-(SP)

S:.RO
1

; SP,*
6741

DUPPKT,RO

RO
RO
RO
RO
RO
#177760,R0
RO, #6
1$
RO

6743

(SP)
MESSAGETYPE=2(R0),
#1,-(SP)

SP,RO
14

6740

: SP,+

6741
6745

28
RO, (SP)
NEX.OP,=(SP)

SP.RO
14

000102

SNIRTRBR
B RERRFFER

EBH. 30

#2,-(SP)

S8888e8easteReaste

N X

WORD
.WORD
.WORD
.WORD
.WORD

LR RN TRL AN

0000006
0000006
0000006
0000006

0000006
000001
0000006
170000

000011

015354
000001

2%:

MOV

(SP)+
#xx30, (SP)
#1,-(5P)
SP,RO
14

012746

0000006
000001

; SP,x
6748

RO,#11
3$
RO

6751

(SP)
MSGNUMBERS=-2(R0),
#1,-(SP)
?P.RO
4

0000006
170000
000003

6747

DUPPKT RO

#170000,
R0

DUPPKT RO

#170000.
RO

6752

20.:3

$
#XX31,(SP)
#,-(SP)

T R TRTR

015402

R E AR
R T AT YR
IR R TR

0000006

:
RCD.ERRORS

015400

ERROR MESSAGE SUBROUTINES

6755

RD/RX EXERCISER

ZRQAM2

v01.2

SEQ 233

Page 234
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASE JZROAB0.BL1;10 (67)

OOOOOOOOOOOODOOODOOOOOOY

21-Jul=1983 15:
21-Jul-1983 15:

SP.RO
14

0000026

ggPPKT*Z.RO

015400°
000001

#1,-(SP)

0000006

000260

000207

SP,RO
14
(iP)#.(SP)O

6756

3s:

4s:

SP,e
6754
6748
6759

RO, (SP)

OEX.OPfi-(SP)
14
+
(SP)
2, sP
PC

Routine Base: $CODES + 15412
89 words,
Hax1mum stack depth per invocation: 9 words
: Routine Size:

; SP,+

,
(SP)
RCD.ERRORS(RO)

000002

000012

(67)

SP,e
6732
6727

<TM~

ERROR MESSAGE SUBROUTINES

VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1; 1

COCOOOO0OOORCOOOO0O0OOORRRPRRRRPRRRVYRILSRKLRLL

21=Jul=198315:25:58
21=Jul~1983 15:19:20

RD/RX EXERCISER

21-Jul=1983 15:25: 5 8
21-Jul-1983 15:1 9:2

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM?
v01.2

VAX=-11 Bliss=16 V3=555

SEQ 235

Page 236

DISKSUSER2: [DIETZ.RELEASE JZRQAB0.8L1;10

(68)

THIS ROUTINE WILL PRINTX A BLOCK OF MEMORY WHICH IS 'LENGTH'’ WORDS
LONG STARTING AT ADDRESS '‘ADDR’'. PRINTING IS DONE IN OCTAL, 8 WORDS

;

(TR IR IR FE NN FE FI TN FR TN TN PN T

global routine EMS_BLK (ADDR, LENGTH) : novalue =

TO A LINE.

begin
Literal

MASK = %0'7°;

PRINTX (CRLF);

! FOR EACH WORD TO PRINT

incr COUNT from 1 to .LENGTH do
begin

PRINTX (SPACE4);

! PRINTX & SPACES

PRINTX (EX WRD, ..ADDR);

! ADVANCE TO NEXT ADDRESS

if (((.COUNT and MASK) eql 0) or

' IF AT THE END OF A LINE OR

(.COUNT eql .LENGTH))

6
6791

! WHEN DONE

! PRINTX <CR><LF>

PRINTX (CRLF);

end;
end;

.SBTTL

EMS.BLK ERROR MESSAGE SUBROUTINES

MoV
MOV
MOV
Mov

R1,=-(SP)
#CRLF ,-(SP)
#1,-(SP)
SP,RO

H
:

CLR
B8R
MOV

R1
5%
R1.RO

: COUNT

6774

s COUNT,«

6777

BIT

#7.,R0

MOV

#SPACE4, (SP)

6779

MOV

SP.RO

: SP,e

812(SP), (SP)
#EX.WRD,=(SP)

: ADDR,*

EMS.BLK::

010146
012746
012746
010600

! PRINTX A WORD

ADDR = .ADDR ¢ 2;
h

OOV

! IF AT START OF A NEW LINE

:; ((.COUNT = 1) and MASK) eql 0

0000006
000001

TRAP

1%:

000007

BNE

0000006

MOV

000001

000012
0000006

DEC

2$:

TRAP
TST

MOV
MOV

#1,-(5SP}
15
(SP)+

6761
6773

s SP,x

6781

SEQ 236

Pa8e 237
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1;10 (68)

000146
000150

000002

#2,-(SP)

000002
000007

1
#2,16(SP)
#7 ,R1

Sg.RO

000016

000014

0000006
000001

000010
012601
000207

3$:

R1,14(SP)
43
#CRLF, (SP)
#1,=-(SP)

SP,RO

L8
5%:

15
(SP)+
(SP)+,(SP)+
R1
R1,10(SP)
18
(SP)+,(SP)+
(SP)+,R1
PC

$CODES + 15674
Routine Base:
53 words,
: Maximum stack depth per invocation: 8 words

: Routine Size:

: SP,»

; «,ADDR
s «,COUNT

6782
6784

s COUNT,LENGTH

6785

6787

: SP,e

:
: COUNT

6775
6774

H
H

6769
6761

: COUNT,LENGTH

SRERRERRSFRERENS

sasasasesananeeas

ERROR MESSAGE SUBROUTINES

QRVVIIVL

RD/RX EXERCISER

1=Jul=1983 15:25:58
198§ 15:19:20
S1-Jul

RD/RX EXERCISER

CRROR MESSAGE SUBROUTINES

IR
V0

.DCT [0,

'PRINTB (EB_COMM,

RR_BEG));

iEMS_BLK(.BCT [0, RR_BEG] - &, COMM_LEN);
'PRINTB (EBNEX1, .DCT [0, RR_POLL]):

' PRINT '‘COMMAND RING'* AND STARTING ADDR

' PRINT BLOCK OF COMMAND RING

!PRINT ADDR OF COMMAND OF NEXT RR POLL
!PRINT ADDR OF PACKET TO BE POLLED

'PRINTB (EB_NEX2, ..DCT [0, RR_POLL] - 8);

.DCT [0, CR_POLL] - 8):

!PRINTB (EB_ PKTS; "

5
!

‘end;

!PRINT ADDR OF PACKET TO BE POLLED

! PRINTS 'PACKETS IN MEMORY'
! FOR EACH MSCP ENVELOPE

_BLK ((MSCP_PKT [.COUNT, 0,0,16,0]), PKT_LEN);
Eflg

end;

'PRINTS CONTENTS OF PACKETS

Qe S

' PRINT BLOCK OF WORDS

iEMS_BLK (DTT, DCT_LEN);

[TR
1]

' PRINT ** DCT TABLE CONTENTS'’

'PRINTB (EB_DCT.dct);

'begin

828

THIS ROUTINE PRINTS ALL TABLES IN AN EFFORT TO FIND THE MISSING MESSAGE OR THE PROBLEM

'1ncr COUNT fron 0 to PKT_CNT - 1 do

R R A

DISKSUSERZ: [DIETZ RELEASE JZROABO. 8L1;18 (69)

QRYVEY

'PRINTB (EBNEX3,

(IR

VAX=-11 Bliss=16 V3=555

237

'ROb?ZN‘ EMS_MAL
: NOVALUE =

AR I ETR

TR YA

LY TR I TN I PO
L LN )

IRQAM2
v01.2

SEQ

Page 238

SEQ 238

Page 239
VAX=11 Bliss=16 V3=-555
DISKSUSER2: [DIETZ .RELEASEIZRQABO.BL1;10 (70)

‘ROUTINE EMS_RAL : NOVALUE =

888

THIS ROUTINE PRINTS ALL return packets IN AN EFFORT TO FIND THE MISSING packet OR THE PROBLEM

ibe

'PR NTB (EB_RAL);

:1ncr COUNTfrom 0 to RP_CNT = 1 do

2
!

‘end;

EngBLK ((RETPKT ¢+ .COUNT « RP_LEN), RP_LEN);
en

! PRINT BLOCK OF WORDS

G0 %0 0o

AT
TR I
TR
R

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

LOVARRKR K

IRQAM2

v01.2

000000
000004
000010
000012
000016
000020
000024
000030
000032
000034
000036
000042
000044
000050
000054
000056
000060
000064

6844

013700
005760
100012
016046
011646
012746
012746
010600
104415
000411
016046
011646
012746
012746
010600
104415
062706
000207

: Routine Size:

28K

THIS ROUTINE PRINTS (EXTENDED) ONE OF TWO BLOCK NUMBERS APPEARING IN
THE CURRENT RETURN PACKET. NORMALLY, THE LBN FIELD IS PRINTED; THIS
FIELD WAS COPIED INTO THE RETURN PACKET FROM THE ASSOCIATED COMMAND
PACKET. HOWEVER, IF THE "FLAGS'® FIELD OF THE CURRENT RETURN PACKET
INDICATES ‘BAD BLOCK REPORTED'', THEN THE '‘FIRST BAD BLOCK'' FIELD IS
PRINTED.

IMPLICIT INPUTS:
RP_ADDR ~ ADDRESS OF THE CURRENT RETURN PACKET

! IF BAD BLOCK REPORTED

2; BIT_TST (RP_ADDR [FLAGS], EF_BBR)

else

PRINTX (XX21, .RP_ADDR (BBLK_LO], .RP_ADDR [(88LK_LOJ)

! *BAD BLOCK REPORTED: XXXXXX.'*

PRINTX (XX22, .RP_ADDR CLBN_LOJ, .RP_ADDR [LBN_LOJ);

! "LBN: XXXXXX.''

.SBTTL

EMS.LBN:MOV

000000G

TST

000014

8PL

000040

1$:

#xx21,-(sP)
#3,-(SP)
SP.RO

: SP,%

27 words,

MOV
MoV

MoV

2%:

000010

Routine Base:

; Maximum stack depth per invocation:

6 words

6845

MoV
MOV
MOV

Mov

000003

6843

MoV

0000006

14(R0O)

40(RO) ,~(SP)

TRAP

000050

EMS.LBN ERROR MESSAGE SUBROUTINES

RP.ADDR,RO

MOV
MOV

0000006G
000003

TRAP

ADD

RTS

[ 7Y 7Y )

6845
6846
6847

Page 240
VAX=-11 Bliss=16 Vv3-555
DISKSUSER2:[DIETZ .RELEASEJZROABO.BL1;10 (71)

(SP) ,=(SP)

SO(RO) ,=(SP)
(SP) ,=(SP)

6843

6847

#XX22,~(SP)

#3.-(SP)
SP_RO

; SP,¢

210,SP

SCODES + 16046

6843

6829

LRRURLLRNR K

:
:
:

SEQ 239

routine EMS_LBN : novalue =
+

6829
6830
6831
6832
6833
6834
6835
6836
6837
6838
6839
6840
6841
6842
6843

ImeImeImImIimImImomsmome

:
:
:
:
:
:
:
:
:
:
:
:
:
:
:

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM?
v01.2

=ro

-t
-

THIS ROUTINE IS CALLED FROM 'SEQUEN® AND 'DATAGM®' AND PRINTS THE CONTENTS OF THE

!
!

ERROR-LOG PACKET
begin
ocal

v 838

: ref block CEP_LEN, word] field (EP_FIELDS),
ELOG_ADDR
ELOG_CODE
yte,
ELOG_SUB: word;

ELOG_ADDR = ELOG_PKT + (.index + EP_LEN * 2);
REASON
= .ELOG_ADDR [EL_FORMATI;

ERROR LOG PACKET'S ADDRESS

PRINTB (ELG_00);

ERROR-LOG MESSAGE RECEIVED

DISK_NuM= _ELDG_ADDRCEL DK NUM);
= .ELOG_ADDR CEC_CODE);
ELOG_CODE
= .ELOGKpDR [EL SUBCODEJ
ELOG_SUB

FORMA

if ( REASON eql FORMAT_CNTR) or

(.REASON eql FORMAT_HCST)

L
se

PRINTB (.ELG_FMT [.REASON])

PRINT BASIC REASON

PRINTB (.ELG_FMT [.REASON], .DISK_NUM):

PRINT BASIC REASON WITH DISK NUMBER

if (.ELOG_CODE ?tru 0) and
(.ELOG_CODE lequ 11)

then

else

Pn?urx (ASTERISK)

PRINTX (.ERR_COD [.ELOG_CODE - 11);

CODE

it .ELOG_CODE eql ST_DIA
then

MESSAGE FROM INTERNAL DIAGNOSTICS

end

pn?urx (ASTERISK) ;

PRéNTx (.ERR_cOD £121);
ena;

if (.ELOG_CODE eql ST_MFE) and

h (.ELOG_SUB lequ 107
be
PR ~rx (CRLF);

PRINTX (ASTERISK)
PRINTX (.TBL_MFE [.ELOG_SUBD);

MEDIA FORMAT ERROR

Se e

DISK_NUM
: b‘te.

QAARNIIVK &

REASON : uor

A
IR
R
R IR I E T E I E T E
Ve VeV Ve Ve Ve Vs 0TV V0 0s %0 000085 %00, %0, TR

SEO 240

age 241
VAX=11 Bliss=16 V3-555
DISKSUSER2:CDIETZ.RELEASEJZROABO.BL1T; 1 (72)

58
20

global routine EMS_EL (index) : novalue =

e VeV Vs

21=Jul21=Jul-

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

PRI YR

PRYR PR TR XN XN X LI NN TN TY

IRQAM2
v01.2

ol
(1]
Wit

Ve Ve Ve Ve Ve 0 W0 Ve Ve 0% S0, e V0, YRR PR R IR

AT E Y E

AT TR R PRYR

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

S
21=Jul=19 83 15:25:58
21-Jul=-1983 15: 1 9:20

SEQ 241

Page 242
VAX=11 Bliss=16 V3=555
(72)
Z
L1;10
DIET
ZRQABO.B
RELEASEI
DISKSUSE.R2:C

end;

begin
PRINTX (CRLF);
PRINTX (ASTERISK).

PRINTX (.TBL_DAT [.ELOG_SUB);

! DATA ERROR

end;

then

begin
PRINTX (CRLF);
PRINTX (ASTERISK):

PRINTX (.TBL_HST [.ELOG_SUBD);

if (.ELOG_CODE eql ST_HST) and
(.ELOG_SUB lequ &)

! HOST ACCESS ERROR

end;

it (.ELOG_CODE eql ST_CNT) and
(.ELOG_SUB Lequ 3)

then

begin
PRINTX (CRLF);
PRINTX (ASTER]SK):

PRINTX (.TBL_CNT L.ELOG_SUBJ);

! CONTROLLER ERROR

end;

if (.ELOG_CODE eql ST_DRV) and
h (.ELOG_SUB Lequ 8)
then

egin
PRINTX (CRLF);
PRINTX (ASTERISK):

PRINTX (.TBL_DRV [.ELOG_SUBI);

! DRIVE ERROR

end;

if .REASON eql FORMAT_XFER

! IF DISK XFER INVOLVED

then

i; .ELOG_ADDR [EL_BLOCK_TYPE] eql TYPE_LBN
L

eLse

! PRINT LBN OR RBN

PRINTX (xx22, .ELOG_ADDR [EL_BLOCK], .ELOG_ADDR [EL_BLOCK])

PRINTX (EX_RBN, .ELOG_ADDR [EL_BLOCK], .ELOG_ADDR [EL_BLOCK)):

PRINTX (CRLF);

EMS BLK ((.ELOG_ADDR + 2), ((.FLOG_ADDR LEL_MSGLEN] + 1) / 2) + 2); ! PRINTX CONTENTS OF PACKET
ELOG_ADDR [EL_CONTENTS] = EMPTY;

end;

v 838

if (.ELOG_CODE eql ST_DAT) and

o (.ELOG_SUB lequ 157

@ 8

R N NN O 2] [T E TRIR IR IRIETEYE

A YR YR PRPR P LI XN XY

IRQAM2
v01.2

! DECLARE SAVE AREA FREE

21-Jul=198315:19:20

ERROR MESSAGE SUBROUTINES
.SBTTL

ens.sL::#§¢
MOV

MOV

JSR

EMS.EL ERROR MESSAGE SUBROUTINES

R}§;§AVES
20(SP) ,=(SP)
#102,=(SP)

#ELOG.PKT,RO

000016

CLR
BISB

R4
16(R3).Ré

177740

BIC

2177740, RO

MOV

20(R3) .R1

MOV

MOV8
MOVB

000012 000004
000020

CLRB
BIS

000020

ASR
ASR
ASR
ASR
ASR

174000

BIC

MOV

0000006

000001

28:

: ELOG.CODE
: «, ELOG.CODE

R1
R1
R1
R1
R1

:
:
*
:
:

#ELG.00, (SP)

* «(ELOG.ADDR) ,ELOG.SUB
ELOG.SUB
ELOG.SUB
EL0G.SUB
ELOG.SUB
ELOG.SUB

: +,ELOG.SUB

6866
6867

6868

6869

MOV

R4 ,RS

: REASON,

6874

: REASON

6871

gnz

52"’

: REASON,*

6872

MOV

ELG.FMT(RS), (SP)

6874

MOV
MOV

#1,-(SP)
SP.RO

B8R
CLR

3s
(SP)

MOVB
TRAP

3$:

R2
RO,R2

#174000,R1

6865

: REASON
* «(ELOG.ADDR) ,REASON

: SP,*

MOV
MOV

000002

: «(ELOG.ADDR) ,DISK.NUM
,+
* +(ELOG.ADDR)

MOV

0000006

SP.RO

TRAP

000006

6848
6864

12(R3). 4<sp>
20(R3).R

TRAP

BEQ

1$:

:
: INDEX,®
: *,ELOG.ADDR

#1,-(SP}

ASL

0000006

<7z)

RO,R3

MOV

000001

VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ2.RELEASEJZROABO.BL1;1

PC,BLSMUL

ADD

0000006

seo 242

6(SP),(SP)

ELG.FMT(R5),=(SP)

#2,=(SP)
SP.RO
14

(SP)+

: SP,¢

H
:

: DISK.NUM,+

6871
6876

: SP,*

;ggs

; ELOG.CODE

6878

000013

gz?e

2;.»13

: ELOG.CODE,*

6879

0000006

MOV

#ASTERISK, (SP)

6882

000001

MOV
MoV

#1,-(SP)
SP.RO
15

: SP,»

21-Jul=198315:25:58

RD/RX EXERCISER

0000006
000020
000102
0000006

s g

(SP)
ERR.COD=2(RO),
.~ (SP

0000006
000001

6$:

O
i

ndd

pr Yurourd

°§°°°
o
3

000001

°
000064
000001

0000006
000001

000120°

(SP)
ERR.COD+30,

SP.RO
15
(SP)+,(SP)+
R2,#5
7%
R1,4#12

s SP,+

78
#CRLF, (SP)
#1,-(SP)

0000006

0000006
000001

s SP,»

#1,-(SP)

0000006
000001

000017

SP,RO

000012

000006
000010

s SP,*

#1,-(SP)

0000306
000001

000005

SP,RO
15
5%
R2,437
63
,
(SP)
#ASTERISK

é ELOG.CODE, *

6891

2332

6898

,
(SP)
#ASTERISK
#1,-(SP)

SP.RO
15
R1.RO
RO
,
(SP)
TBL.MFE(RO)

: SP,»

SP,RO
15

s SP,x

32.310
$
R1.m7
8s

6890

6895

: SP,x

#6,SP

ggg;

: ELOG.SUB,*

?g.RO

#1,-(SP)

7$:

é ELOG.CODE,*

: ELOG.SUB,*

é ELOG.CODE,*

6899
6900

PR PR PR PR

1777766
000001

000037

6883

ggg;

; ELOG.SUB,*

6904

, (SP)
#CRLF
#1,-(SP)

69507

#ASTER]ISK,
(SP)
#1,-(SP)

SP,RO
15

: SP,»

SP,RO
15
R1,RO
RO
(SP)
TBL.DAT(RO0),

: SP,»

; ELOG.SUB,

v 888

i ELOG.CODE,*

‘8
8

RO
R2,R0

ZR(

VO'

R LR A X

ERROR MESSAGE SUBROUTINES

Pgeg 522
Bliss=16 V3~555
VAX=11
DISKSUSERZ:[DIEIZ.RELEASEJZROA80.8L1:18 (72)

PR PR PR

21=Jul=19 83 15:25:58
1983 15:19:20
21=Jul=19

RD/RX EXERCISER

6908
6909

TNP

PRI IEIAIEIE

SEQ 244

6916

?g.RO

: SP,x

0000006
000001

#ASTERISK, (SP)
#1,=(SP)

R1,RO
RO
(SP)
TBL.HST(RO),

s ELOG.SUB,*

SP.RO

s SP,*

(V]

(o Yo 3V ]

6913

0000006
000001

prd

: ELOG.SUB,*

9s
#CRLF, (SP)
#1,-(SP)

000160
000001
000006
000012

SP.RO
15

#1,-(SP)

15
#6,SP
R2,#12
10 $

6917

s SP,*

£L06. CODE,+

6918

6923

R1,43
10$

s ELOG.SUB,*

6922

6925

SP,RO
15
,
(SP)
#ASTERISK

: SP,+

SP.RO
15
R1,R0
RO
(SP)
TBL.CNT(RO),

: SP,»

s SP,x

000010

SP.RO
15
#6,SP
R2.#13
11$
R1,#10

s ELOG.SUB,*

6931

0000006
000001

#CRLF, (SP)
#1,-(5P)

6934

gg.ao

: SP,»

0000006
000001

0ASTER£SK.(SP)

SP,RO

; SP,x

000003

0000006
000001
0000006
000001

[=]
eN

O=000

—d
oud b

& = NI
NN
OO
NN = ~

prd

g 2 NN
N I
KA3oo 8 S 2
833 g dd

n 8-0060
-‘°°°-‘°8
-t b =b ON)
o Ng-b—o-. g o Rorm

O=000

000004

gg?g

000172°
000001
000006
000013

#CRLF, (SP)
#1,-(5P)

#1,-(SP)

11$

#1,-(SP)

:
s ELOG.SUB,*

é ELOG.CODE, +

6926
6927

gggg

6935

I RI E R I E A

é ELOG.CODE, *

000006
000011

TR A TR A PR PR TR PR
PR TRTR
T E L 2] (YRYR R

: SP,»

E X EI ET T A

000001

ERROR MESSAGE SUBROUTINES

RD/RX EXERCISER

TR IETR IR TR IRPR
ARAR
L0 X LATRTR FI TN ¥Y

Paae 245
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.BL1;10 (72)

15
R1
,
(SP)
TBL.DRV(R1)
#1,-(SP)

000202*
000001

SP.RO
15

000006
000002
170000

000056

6942

56(R3), (SP)
(SP),=(SP)

,*
: *(ELOG.ADDR)

6944

56(R3), (SP)

12%:

(SP),=(SP)

: SP,»

,*
: «(ELOG.ADDR)

6942

6946

cex RBN, = (SP)

,=(SP)
sp“RO
15

#6,SP
#CRLF
, (SP)
#1,-(SP)

SP,RO
15

000002

Z(RS) -(SP)

000002

001116

; *,+*(ELOG.ADDR)

15
138

000006
0000006
000001

: SP,x

69%‘

: SP,x

* ELOG.ADDR,*

,*
: «(ELOG.ADDR)

#2 ‘(SP)

000002
0000006
000002
000002 000002
015674"°
000001
000016

{;70000.60(R3)

#3,-(SP)
SP.RO

0000006
000003

005726
004737
105063
062706
000207

6933
6939

#XX22,=(SP)

0000006
000003

000056

: SP,¢

R4 #2
14

000060

6936

H
; REASON,¢

#6,SP

118:

PC.BLSDIV
RO, 2(SP)

RTS

#2,2(SP)
(SP)+
PC,EMS.BLK
1(R3)
#16,SP
PC

Routine Base:
$CODES + 16134
296 words,
; Routine Size:
ion:
16
words
invocat
per
: Maximum stack depth

: *(ELOG.ADDR)

LI PNTR TRTR TR TR LA LR LRLR LA A A [T E YKIR IR IETE IR

ERROR MESSAGE SUBROUTINES

IRQ
V01

21=Jul=-1983 15:25:58
21=Jul-198315:19:20

RD/RX EXERCISER

SEQ 245

Page 246
VAX=11 Bliss=16 V3=555
:0 (72)
O.BL1;1
R2
SEIZRQAB
.RELEAS
SU
[DIETZ
DISK

000080000400 0000000000000000000500%5000000080000000 (Y TR

21-Jul-1983 15:25:58
21-Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM2
v01.2

SEO 246

e 247
VAX-11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1; 1 (73)

global routine EMS_CMP (ADDR) : novalue =
‘e

i THIS ROUTINE IS CALLED FROM °"HOST_WRT_CHK® AND PRINTS RELEVENT DATA ON A HOST
! COMPARE ERROR
begin
ocal

ORIG_ADDR : ref block CRP_LEN, word) field (RP_FIELDS);

ADDRESS OF THE WRITE RETPKT
"DISK XXX'*

ORIG_ADDR =__ADDR;
PRINTB (XX13, .CDISK);

PRINTB (DASH);

PRINTB (. ERR cop £12));

PRINTX (EX_LBW, .ORIG_ADDR [LBN_LO], .ORIG_ADDR [LBN_LOJ);

PRINTX (EX LBR -RP_ABDR [LBN LDJ, . P_ADDR CLBN_LOJT;

PRINTX (EX
.ORYG_ADDR [cecur
PRINTX (xxzs. -ORIG_ADDR [BCNT Lo)
PRINTX (EX_CBR, .RPCADDR[BCNT_LOJ);
[CBCNYLOJS

PRINTX (EX_BDW, .DRIG_ADDR CBUFF 13. .ORIG_ADDR [BUFF_01);
PRINTX (EX_BDR, .RP_ADDR [BUFF_1], .RP_ADDR [BUFF_01)7
end;

.SBTTL

010146
016601

000004
0000006

0000006

000002
000001

OO
~

N
NN
-

-—d
e
b

g_.

=S2O00=O

0000006
0000306
000001

000050
0000006

MOV
MOV

MOV

BYTE COUNT XHITTED (READ)
BUFFER ADDRESS (WRITE)
BUFFER ADDRESS (READ)

EMS.CMP ERROR MESSAGE SUBROUTINES
R1,-(SP)

4(SP) ,R1
CDISK,~(SP)

#XX13,-(SP)

MOV

#2,-(SP)

TRAP

: ADDR,ORIG.ADDR
:

SP,RO

; SP,»

#DASH, (SP)

; SP,*

ERR.COD+30, (SP)

SP.RO

: SP,x

MOV

SO(R1), (SP)

,*
: *(ORIG.ADDR)

MOV

#EX.LBW,=(SP)

Mmov

MOV

MOV
MOV

TRAP

MOV

01 -(5P)
14

MOV

#1,=(SP)

TRAP

MOV

(SP) ,~(SP)

000003

MOV

#3,=(SP}

0000006

MOV

RP.ADDR, RO

Mov

(SP),=(SP)

000050

LBN (READ)

BYTE COUNT (WRITE)
BYTE COUNT XHITTED (WRLITE)
BYTE COUNT (READ

PRINTX (XX25, .RP_ABDR

EMS.CMP::
MoV

** « HOST COMPARE ERROR''

! LBN (WRITE)

MOV
TRAP

MOV

SP,RO
15

, (SP)
50(R0)

696
6966

6967
6968

6969

; SP,»

6970

8o %e B0 eBsBe®eVeBsBe0s0s9c8e80080000e00000080000000000000000000000000000000000000059000000000050%0 008000000,

-D—l

21-Jul21=Jul-

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

012746
012746
010600
104415
016116
012746

0000006
000003

000044
0000006
000002
000020
0000006
000002
0000006

SEQ 247

Paae 248
VAX-11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (73)

SEX.LBR,=(SP)

#3,-(SP}

SP,RO
15
44 (R1), (SP)

#EX.CBW,=(SP)

#2,-(SP)
SP,RO
15
20(R1), (SP)
#XX25,=(SP)

000112
000116
000122
000126
000126
000132

s SP,e

,*
; *(ORIG.ADDR)
s SP,»

,»
; *(ORIG.ADDR)

SP.RO

s SP,+

RP.ADDR, RO
44 (RO), (SP)

6971

6972

6973

oex CBR,=(SP)

2.-(SP}
sp"RO

15
RP.ADDR,
RO

20(R0), (SP)

: SP,t

6974

#XX25,=(SP)

#2,-(SP)
SP,RO
15
24(R1), (SP)
26(R1) .=(SP)
cEx BDW,=(SP)

3,=(SP)
sp‘RO

15
RP.ADDR,
RO

s SP,x

: *(ORIG.ADDR)
,*

,*
: «(ORIG.ADDR)

: SP,x

24(RO), (SP)
26(R0) .~(SP)

osx BDR,=(SP)

3,-(sP}
sp"RO

000062

15
#62,SP

(sP§+,R1

$CODES + 17254
Routine Base:
105 words,
words
28
; Maximum stack depth per invocation:

: Routine Size:

: SP,+

0009000000600 00000000000000000080000000000500008900 000000000005 800095 000008000 0000000 e %0808 VsV Ve

004737
104423
000207

BGNMSG (EMS_01);

000000V

LSBTTL

EMS.01::JSR

TRAP

RTS

EMS.01 ERROR MESSAGE SUBROUTINES

PC ,MSEMS.01
23

6978

Routine Base: $CODES + 17576
: Routine Size: 4 words,
2 words
invocation:
per
depth
: Maximum stack
6979
6980

! *MORE THAN XX UNITS SPECIFIED'’

PRINTB (EBS_01, MAX_UNITS);
ENDMSG;

012746

000004

012746
012746

0000006

000002

000006

.SBTTL
MSEMS.01:

MSEMS.01 ERROR MESSAGE SUBROUTINES

MoV

#4,-(SP)

MOV

-(SPS

MoV

ADD

RTS

OEBS 01,-(SP)

#6,SP
PC

11 words,
Routine Base: S$CODES ¢+ 17606
: Maximum stack depth per invocation: 5 words

: Routine Size:

[ Ja

o7e

SEQ 248

Paae 249
VAX-11 Bliss=16 V3-555
DISKSUSER2: [DIET2.RELEASEIZROABO.BL1; 10 (74)

X TRTR T IRIE TR P TR TR N

6978

000000
000004
000006

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM2

v01.2

[ TE Y TX TR YR T) .o...o.o.oio.o.o.o.o.o.o.olo“.o““““.Q“..M.o.ouu.o.ooc.o.otou (X

000000
000004
000006

6981

004737
104423
000207

Soo

=l
b

WhH

oo
W

SEQ 249

P38e 250
VAX=11 Bliss=16 v3=555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL1;10 (75)

BGNMSG (EMS_10);

000000V

.SBTTL

EHS.10HERR0R MESSAGE SUBROUTINES

TRAP

EMS.10::JSR
RTS

PC,MSEMS.10

6981

Routine Base: $CODES + 17634
4 words,
2 words
: Maximum stack depth per inyocation:

: Routine Size:

:
:

000000
000004
000010
000014

6982
6983

013746
063716
012746
012746
0600

! *WO RESPONSE AT ADDRESS XXXXXX''

PRINTB (EBD_1v, .RDRX_ADDR + .OF_RC);
ENDMSG;

0000006

0000006
0000006
000002
0C0006

.SBTTL
MSEMS.10:

MoV

ADD
MoV
MOV

MOV

TRAP

ADD

RTS

MSEMS.10 ERROR MESSAGE SUBROUTINES

RDRX.ADDR,=(SP)

SP.RO

: SP,t

#6,SP

OF .RC, (SP)
#€80.10,-(SP)
#2,-(SP}
14

Routine Base: SCODES + 17644
13 words,
5 words
: Maximum stack depth per invocation:

: Routine Size:

982

6981

000000000000 000000000000000080000000000000000:0080 % 200000000005 0000050000 000000000080 89 0000008480 0s800cn,

21=Jul21=Jul-

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAM?

v01.2

&
-

:
000000
000004
000006

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAM2

v01.2

6984

004737
104423
000207

SEQ 250

Page 251
VAX=-11 Bliss=16 V3=555
DISKSUSERZ: [DIETZ .RELEASEIZRQABO.BL1;1 (76)

BGNMSG (EMS_12);

000000V

.SBTTL

EMS.12::JSR

TRAP

RTS

EMS.12 ERROR MESSAGE SUBROUTINES

PC.MSEMS.12
23

6984

4 words,
Routine Base: $CODES + 17676
: Routine Size:
2 words
Hax1nun stack depth per invocation:
:

000000
000004
000010

6985

6986

013746
012746
012746
010600

! *'INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX'®

PRINTB (EBD_12, .RDRX_ADDR);
ENDMSG;

0000006

0000006
000002
000006

.SBTTL

MSEMS.12:
MOV

MOV

MOV
MOV

TRAP
ADD
RTS

MSEMS.12 ERROR MESSAGE SUBROUTINES

RDRX. ADDR -(sp)

: SP,e

ceeo.

-<sps

14
#6.5P
PC

11 words,
Routine Base: $SCODES + 17706
: Routine Size:
5 words
: Maximum stack depth per invocation:

6985
6984

2090039600000 000000000 000000050080 000080 00,

21=Jul=1983 15:19:20

ERROR MESSAGE SUBROUTINES

6987

000000
000004
000006

21=Jul~=1983 15:25:58

RD/RX EXERCISER

IRQAM?
v01.2

004737
104423

VAX=-11 Bliss=16 V3-555

SEQ 251

P38e 252

1;10
2:
ZRQABO.BL
SER
[DIETZ .RELEASEI
DISKSU

(77)

BGNMSG (EMS_13);

LSBTTL

EMS.13::JSR

000000V

TRAP

RTS

0002C7

EMS.13 ERROR MESSAGE SUBROUTINES

6987

PC ,MSEMS.13
3’
PC

Routine Base: $CODES ¢+ 17734
4 words,
¢ words
Maximum stack depth per invocation:
Routine Size:

6988
6989
6990

ENDASG;

013746

0000006

012746
012746
0600

0000006

.SBTTL
MSEMS.13:

MoV

000002

13 words,

MSEMS.13 ERROR MESSAGE SUBROUTINES

STEP,=(SP)

MOV

0EBD 13,-(SP)

MoV

SPRO

2 SP,¢

JSR
ADD

PC,EMS.SA
#6,SP

:
:

MOV

TRAP

007164*
000006
: Routine Size:

! *STEP X READ ERROR‘’
! PRINTX SA CONTENTS

PRINTB (EBD_13, .STEP);
EMS SA ().

RTS

2.-(SP}

6988

6989
6987

Routine Base: $SCODES ¢+ 17744
S5 words

VPR

; Maximum stack depth per invocation:

000000
000004
000006

6991

004737
104423
000207

: Routine Size:

6992
6993
6994

013746

012746
012746
010600

000207

oW
o

-_f)
OwWn

b
-—b

[V 1V}

DISKSUSER2: [DIETZ.RELEASE

SEQ 252

Page 253

10 (78)
1ZR0ABO.BL1:

BONMSG (EMS_14);

.SBTTL

EMS.14: :JSR
TRAP

000000V

RTS

4 'ordSO

Routine Base:

: Maximum stack depth per invocation:

:
:
.

V0
oo
W

ERROR MESSAGE SUBROUTINES

VAX=-11 Bliss=-16 V3=555

2 words

EMS.14 ERROR MESSAGE SUBROUTINES
PC

$CODES + 17776

! 'BAD SA CODE FROM DEVICE XXXXXX'

PRINTB (EBD_14, .IRDRX_ADDR);

! PRINTX SA REGISTER CONTENTS

EMS SA ();

ENDASG;

0000006

000002

007164°
000006

6991

PC.MSEMS.14
23

SBTTL
MSEMS.14:
MOV
MoV

MOV
MOV

TRAP

JSR
ADD

RTS

MSEMS.14 ERROR MESSAGE SUBROUTINES
IRDRX.ADDR,=(SP)

#EBD.14,-(SP)

#2.-(SP)

SP.RO

: SP,«

PC,EMS.SA
#6,SP

M
H

Routine Base: $CODES + 20006
: Routine Size: 13 words,
S words
; Maximum stack depth per invocation:

6992

6993
6991

COOVRRVOPRRRRVRRVRVLLLRE LAVAIYLIRLIFALSIIISIII WIS 8 3 53

21=Jul21=Jul~-

RD/RX EXERCISER

IRQAM2
v01.2

4
—b

000000
000004
000006

6995
004737
104423
000207

: Routine Size:

000000

000004
000010

6996
6997
6998

013746

012746
012746
010600

.SBTTL

EMS.18: :JSR
TRAP
RTS

000000V

4 words,

Routine

2 words

EMS.18 ERROR MESSAGE SUBROUTINES

EJZROABO.BL118: (79)

$CODES + 20040

! "DISK XXX WENT OFFLINE'

! PRINTX RELEVANT RETPKT FIELDS

EMSCMD ();

ENDMSG;

0000006

000002

6995

PC,MSEMS.18

PRINTB (EBD_18, .(DISK);

010220
000006

SBTTL
MSEMS.18:
MoV

MoV

MSEMS.18 ERROR MESSAGE SUBROUTINES
CDISK,=(SP)

#EBD.18,-(SP)

MOV

#2.=(SP}

TRAP

mov

JSR
ADD

RTS

SP,.RO

: SP,t

PC,EMSCMD
#6,SP

M
:

13 words,
Routine Base: $CODES + 20050
: Maximum stack depth per invocation: S words

: Routine Size:

DISKSUSER2:[DIETZ.RELEAS

BGNMSG (EMS_18);

: Maximum stack depth per invocation:

H
:
:

:19:20

ERROR MESSAGE SUBROUTINES

SEQ 253

Page 254

6996

6997
6995

OO RRRRVROVRV0OVOOOORRIRLQQCRINNIZIIIZISIAIINLI

:25:58

RD/RX EXERCISER

IRQAM?

v01.2

VAX=11 Bliss=16 V3-555

r—

6999

000006

.SBTTL

EMS.21::JSR

TRAP

104423

RTS

000207

: Routine Size:

& words,

Routine Base:

: Maximum stack depth per invocation:

7000
7001
7002

7003

000000

004737

2 words

EMS.21 ERROR MESSAGE SUBROUTINES

PC,MSEMS.21
23

6999

$CODES ¢+ 20102

! CONTENTS OF RETURN PACKET
! all return packets
! all message packets

ENDMSG;

.SBTTL

MSEMS.21 ERROR MESSAGE SUBROUTINES

JSR

PC,EMSCMD

M.cMS.21:

010220°
3 words,

EMSCMD ().
'EMS _RAL ();
'EMS_MAL ();

RTS

000004 000207
: Routine Size:

SEQ 254

Paae 255
VAX-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL1;10 (80)

BGNMSG (EMS_21);

000000 004737 000000V
000004

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAMZ2
v01.2

Routine Base:

: Mdaximum stack depth per invocation:

1 word

$CODES ¢+ 20112

7000

6999

IRC
V01

Q20009 RSRRRRRRSRS2RSLININIIIIIYRIIIIISISSISSR

7004

SEQ 255

Paae 256
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1;10 (81)

BGNMSG (EMS_22)
LSBTTL

EMS.22 ERROR MESSAGE SUBROUTINES

RTS

EMS.22: :JSR
TRAP

000000 004737 000000V
000004 104423

000006

21=Jul=1983 15:25:58
21=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

IRQAM?2
v01.2

000207

PC,MSEMS .22
23

7004

Routine Base: $CODES ¢+ 20120
: Routine Size: & words,
: Maximum stack depth per invocation: 2 words

:
:
000000

7005
7006
004737

EMS DBN ();
ENDASG;

! contents of dup buffer
.SBTTL
MSEMS.22:

015144'

JSR

RTS

000004 000207
: Routine Size:

3 words.

Routine Base:

Hax1mun stack depth per invocation:

1 word

MSEMS.22 ERROR MESSAGE SUBROUTINES

PC,EMS.DBN

$CODES + 20130

7005

7004

IRC
vO1

2288882882888 822228333232333282223232322322222R222223

000000
000004

000006

BGNMSG (EMS_30);
.SBTTL

EMS.30::JSR
TRAP

004737 000000V
104423
& words,

Routine_Base:

Hax1nun stack depth per invocation:

PC, MSEMS .30
23

7009

000000

004737

000004 000207
: Routine Size:

3 words,

7011

7012
7013

H
:

.SBTTL

MSEMS.30 ERROR MESSAGE SUBROUTINES

JSR

PC,EMSCMD

MSEMS.30:
Routine Base:

: Maximum ;s?ak depth per invocation:

1 word

pL
RTS
$CODES + 20146

end

eludom

0TS external references

$SAVES, $SAVE4, SSAVE3, $SAVEZ2

.GLOBL

.GLOBL BLSDIV. BLSMUL

PSECT SUMMARY

Psect Name

H
:
H

$SCODES
$SPLITS

fFile

; Information:
: Warnings:
: Errors:

Attributes

Words

74
4150
12

LIBRARY STATISTICS

1
0
0

RW ,
RO,
RO,

1
D

REL,
REL,
REL,

LCL,
LCL,
LCL,

CON
CON
CON

wemeeees Sw'bols ........

Blocks

Total

Loaded

Percent

455

350

COMMAND QUALIFIERS

3970 code + 7027 data words
Size:
03:47.6
Run Time:
07:35.4
Elapsed Time:
Hemor{ Used: 825 pages

: Compilation Complete

7007

! contents of return packet

ENDMSG;

010220°

$CODES + 20136

7008 EMSCMD ()

:
:
:
:

2 words

EMS.30 ERROR MESSAGE SUBROUTINES

RTS

000207

: Routine Size:

257
VAX=11 Bliss~ 16 v3-555
18e (82)
12 RELEASEJZRQABO.BL1;
DISKSUSERZ: (D 1ET2

Read

7008
7007

22222 RRRANCRIISSISIIIIIISIIISIIIIISY

7007

31-Julg :25:58
5:19:20
1=Jul=1

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM?2
v01.2

AR IR LRI LN ¥

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38
module ZRQAM3 (

begin

Xsbttl 'DECLARATIONS'

Library "ZRQABO.L16';

! RDRX EXERCISER GLOBAL LIBRARY

require °'BLSMAC.REQ';

' DIAGNOSTIC SUPERVISOR LIBRARY

= OOV

NNV

WIN = OV

NO NN
=OV NS WN=O

i
i
i [V AV IV, IV, 1S
ViV AT
IV ViV
= =o b e b b b b b
8B
D NNNN
NN NN W NONINVINININININININ)

EQUALS:
dddddfl—.dddddd—l—l-ld—l—l-ldd—l-fl—l—ldddd—lddd

[

S o T e P P T TN P PR Y PRPR PR P PR PRIR TRTR IR TR IR LATR TR

LA AL A 2]

YRYEIETE IR TR IR IRTR

Xtitle *RD/RX EXERCISER®
ident = 'V01.2°,
addressing_mode (absolute),
en!ironmenf (noeis)

forward routine

INIT_TEST : novalue,

! ROUTINES APPEAR IN THIS ORDER

DRIVER INIT : novalue,
CTCR_INIT : novalue,
INI_CTLR_DAT : novalue,
REG_EXIST,
VEC_BR_TEST,

INT_GEN,
HARD INIT,
INI_RRING : novalue,
SET_CTLR_CHAR,

UNIT_INIT : novalue,
DR_ERR : novalue,

ACCESS : novalue,
MULTI DRIVE : novalue,

MD_INIT : novalue,
INIT_10_BUFF : novalue,
FATAL_ERRORTM: novalue,
Q10_0K,
Qlo_ourt,

QIO_GEN : novalue,
GET_RANDOM : novalue,
QIO_UNIT : novalue,
QI0 FUNC : novalue,

0P : novalue,

DUPWRTDBN : novalue,
DUPREDDBN : novalue,
DUPCOMMAND : novalue,
Q JIO_LBN : novalue,
10°SIZE : novalue,

;

ILC BUFF : novalue,
PROC_RETPKT : novalue

T_RETPKT : novalue,

DUP_COMPARE : novalue,

SEQ 257

Page 1
VAX-11 Bliss=-16 v3-555
(1)
.BL2;15
EIZRQABO
DISKSUSER2:[DIETZ.RELEAS

INDENTATION IMPLIES CALLED SUBROUTINE

RD/RX EXERCISER
DECLARAT JONS

IRQAM3
v01.2
:
:

1544
1545

:
:

1547
1548

1550

:
:

HOST _WRY_CHK

1551

RPS_REM,

:
:

1554
1555

1562

POLL_CRING: novalue,

POLL_RRING : novalue,

BuP RSP : novalue.
MSCP RSP : novalue.
SEQUEN : novalue,

1561

1563
1564
1565

« "PKT : novalue,

AZIN : novalue,
FATAL ERROR : novalue,

1557

DR_I

AZINTO: LSISR novalue,

1556

1558
1559
1560

:
:

*WEEP : novalue.

1553

:
:
:

HARD “ERROR : novalue.

uPD_T0 TALLY: novalue,
“ovF_CHK : novalue,

1549
1552

10_RETPKT : novalue.
FSET UPAR novalue,

1546

SOFT_ERROR: novalue,

DATAGM : novalue

SOFT ERROR : novalue;

external

1568

CST: blockvector [HAx CTLR, CST_LEN, wordl field (CST_FIELDS),
I RUN-TIME CONTROLLER STATUS TABLES
CST_ADDR : ref block CCST_LEN, word] field (CST_FIELDS),

1570

DCT : blockvector [HAX CTLR, DCT_LEN, word] field (DCT_FIELDS),

1572

DCT_ADDR: ref block CDCT_LEN, word) field (DCT_FIELDS),

1574

RDRX_ADDR
: ref rdrx field (RC_REG),

1578

DUPPKT : BLOCK [257, HORDJ field (DP_FIELDS),

1580

TALLY : vector [MAX UNITS ~ TALLY _LEN, word) field (T_FIELDS),

1566

1567

1569

1571

:
K
:

1573

1575
1576
1577

1579

:
:
:

1581
1582
1583

1585

SEQ 258

Page 2
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL2:;15 (1)

21=Jul=-198315:33:38
21=Jul=198315:23:38

CONTROLLER STATUS TABLE ADDRESS OF "'CURRENT'* CONTROLLER

' BRIVER CONTROLLER TABLES

ADDRESS OF ‘‘CURRENT'* DRIVER CONTROLLER TABLE
,

DEVICE ABDRESS OF ‘‘CURRENT'® CONTROLLER
IRDRX_ADDR : ref rdrx field (RC_REG),
! DEVICE ADBRESS OF INTERRUPTING CONTROLLER
UFFER CONTAINING DUP INFORMATION FROM RECEIVE AND SEND COMMANDS

=V STATISTICS TABLES
ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT

T_ADDR: ref block [TALLY LEN, word) field (T _FIELDS),

1584

C_ERR_TBL : blockvector [MAX_CTLR, C_ERR_LEN, word) field (C_ERR_FIELDS),

1586

MSCP_PKT : blockvector [PKT CNT, PKT_LEN, word] field (PKT_FIELDS),

1588

IPKT_ADDR: ref block [PKT LEN, word] field (PKT_FIELDS),

1590

PKT_USE : vector [PKT CNT, byte, 518

:
:
:

:
:

1587

1589

i STATISTICS TABLE FOR CONTROLLER ERRORSTM
MSCP PACKET PODL

! ADDRESS OF AN HSCP PACKET TINTERRUPT PROCESSING)

1591
1592

MSCP PACKET POOL AlLOCATION TABLE
RETPKT : blockvector CRP_CNT, RP_LEN, word]l field (RP_FIELDS),

1594

RP_USE : vector [RP_ CNT byte, signed

1593
1595
1596

RETURN® PACRET POOL

RP_INDX : word,

ETU N PACKET POOL ALLOCATION TABLE
i CURRENT RETURN PACKET INDEX

7RQ
vO1l

DECLARAT JONS

1597

RP_ADDR: ref block [RP LEN, word) field (RP_FIELDS),

1599

:blockvector CEP_CNT, EP_LEN, word] field (EP_FIELDS),
ELOG_PKT

= CIRCULAR QUEUE OF RETPKT INDECES

CCTCR : word,
CDISK : word,
CUOFF : word,

CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET

TOTAL NUMBER OF CONFIGURED CONTROLLERS

DURT vector [%AX _UNITS, bytel,
OIO vector [MAX_CTLR, bytel,

NUMBER OF OUTSTANDING QIOS PER CONTROLLER

* word,
ST_CODE

S8_ CODE : uord.
STEP: word,

SIZE (BYTES) OF AN 1/0 BUFFER
CURRENT STATUS CODE
CURRENT SUB-CODE
CURRENT STEP IN HARD_INIT

SA_REG: word,

STORAGE FOR SA REGISTER READS AND WRITES

OF _RC : svgned word,

cMb_ TIME : word,

NEX" : word.

CRN_LOW: word,

CRNHIGH : uord

P_IRDEX
: sugned word,
:
S_DUPPKT

OFFSET (0 OR 2) TO READ IP OR SA

COMMAND TIMEOUT VALUE (IN SECONDS)

NON=-EXISTENT MEMORY TRAP INDICATOR

! COMMAND REF NUMBER OF LAST COMMAND SENT

i COMMAND REF NUMBER OF LAST COMMAND SENT

! CURRENT messa e PACKET INDEX
! DBN BYTE COUNTER
! THE PATTERN WRITTEN TO DBN'S
! CREDIT BALANCE
! POINTER TO NEXT ENTRY IN PKT_USE TABLE

NN YNV YA

CArNENY

N
N

§. §

S_PATTERN: WORD,
CREDIT BAL : word
: byte.
NEXT_PKT_USE

START OF FREE MEMORY

YO O OO

FRCE “. MEMADDR.
BYTS PER“QI0: word,

DROP UNIT REASON

END-OF ~PASS FLAG
"
DUP FLAGS
NUMBER OF ‘‘CURRENT'' CONTROLLER

OOOOOODOOOOOOOOOOOY

1/0 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND

ENTRY REASON byte,
: b50
EOP_FLAG
:
DUPZFLAGS

CTLR_ CNT : word,

! 1/0 DONE QUELTM

170 DONE QUEUE IN POINTER

I0DQ_IN: word,
10DQT0UT : uord.

-b

VOOV

TRRIRXRXE

RY
. Y
] — ed

b b ol e cnd wnd ) d wud b b b v wnd b b —d ed b end b b b b b b
OO OO OO OONOFONONONONONOY
oo oo Lo
aloaloaloation ooocororOr
b cd el b cd e ed D b = O O O
WWN WWNWWN WA N NONIRNDNININON)
WR
=
O
V0N
WS
NN
—=O V0NN
WO 000~
]
NOwn
S
W00

1605

1000TM: vector [I0DQ_LEN, bytel,

—

1603
1604

Page
VAX=11 Bliss=16 Vv3-555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2:15 (1)

! ER OR-LOG PATKET SAVE AREA
! TABLE OF 1/0 BUFFER DESCRIPTORS
BUFF_ADDR: vector [MAX_BUF CNT
' 1/0 BUFFER OWNERSHIP (CONTROLLER NUMBER)
signed],
Byte.
NT
BUFF OUN vector [MAX BUF_

1600
1601
1602

SEQ 259

i CORRENT RETURN PACKET KDORESS

1598

oo
HH

AT
ENE RE R

AR R AR P E P TR P

PR PR PR PRPR PRARTR A
)A

A TRIEYE AR

IR TR PN TR PR YR AN YR IR TR IR TR XN 11

v01.2

TR
R R IR R R

21=Jul=1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER

IRQAM3

b b

b e

b rd

W
G0 Qo

o
NN

b
-

[V 1V ]

SEQ 260

Page

13 (1)
JZROABO.BL2:

[«leleloleT=]

b e

e e

i wd

b o

ooooororOrOFONONON

SRRER 232283 VAW AWVIWAIWIWD

=O VNV
NN -=O

VAX=11 Bliss=16 v3=555
DISKSUSER2: [DIETZ.RELEASE

oo oonOn
N~ NNWY
&Hwi N=O
VO ~NONWN

R TN X TN ¥
PRTR PR YR IR TR LR
TR TR A TR
R E I AT E S E I E A
IR E
PRI RIR IRIR TR PRI
TR PR TR YR ¥ YRR
A RTR IR R RTRAAT
[Y R

21=Jul=1
21=Jul=1

RD/RX EXERCISER
DECLARATIONS

ZRQAM3
v01.2

5
hodtd
00 0o
NN

HARD ERROR LIMIT FOR DROPPING UNIT
TRANSFER LIMIT FOR DROPPING UNIT
.
FLAGS (SEE DOCUMENTATION)
ratio constant for dup exerciser

SWP_ERROR : word,
SWP_XFER : word,
SWP_FLAGS : word,
dupround : word,
SWP_RAT : word,
SWPTDPAT : word,

RDS1 OPERATION RATIO

word,

LSLON,

vector [MAX_UDP_CNT, word],

DATA PATTERN NUMBER
USER DATA PATTERN COUNT
USER DATA PATTERN

LSUNIT;
psect

)

own = $GGGS(read, nowrite, execute, local, concatenate);

own

COMM_AREA :

blockvector [MAX CTLR, COMM LEN, word] field (COM_FIELDS),

! COMMUNTCATIONS AREA BETWEEN HOST AND AZTEC CONTROLLERS

BST : vector [HAX,UNiYS. word, si ned],

! BLOCK SEOUEaCE TABLE FOR SEQUENTIAL LBN (VS. RANDOM SEEK) MODE

DPST : vector [MAX _UNITS, bytel,

MAX LBN : vector [MAX_UNITS, word],
STORAGE : vector [MAX_UNITS, wordl,

! DATA PATTERN SEQUENCE TABLE
! LARGEST LBN ALLOWED

! DUMMY STORAGE

1COM_ADDR : ref block [COMM LEN, word] field (COM FIELDS),

! ADDRESS OF INTERRUPTING CONTROLLER'S COMMUNICATION AREA

ICST_ADDR : ref block [CST LEN, word]) field (CST_FIELDS),

! ADDRESS OF INTERRUPTING CORTROLLER'S CST

MAD1 : ref block [PKT_LEN, word] field (PKT_FIELDS)
! "ADDRESS OF MSCP PACKEY FOR FIRST QI0
MAD2 : ref block [PKT_LEN, word] field (PKT FIELDS),

1"ADDRESS OF MSCP PACKET FOR SECOND QIO
LAST_PKT : blockvector [MAX_CTLR, LAST PKT LEN, word] field (LAST PKT_FIELDS),

' SAVE AREA FOR INFO ABOUT LAST RESPONSE PACKET

PAT02 : vector [2] initial (1,

! PATTERN 2

PATO3 : vector [2] initial (1,

! PATTERN 3

PAT04 : vector [2] initial (1,

' PATTERN 4

PATOS : vector [2] initial (1,

! PATTERN §

PAT06 : vector [2] initial (1,

! PATTERN 6

PATO07 : vector [17]) initial (16,
20°'000001°, %0°'000003°', X0°000007°', %X0°'000017°,
20'000037°, %0°000077°, %0°000177*, %0'000377°,
%0°'000777°, %0°'001777*, %0°'003777°', %X0'007777°

! PATTERN 7

PATO8 : vector [17] initial (16,

! PATTERN 8

%0°'000000°),
X0°177777°),

20°'105613°),

20°'031463"),
20°'030221'),

20°017777°, %0°'037777°, %0°'077777°, 20'177777".
X0'177776°, X0°*177774°, %0'177770°, %X0°'177760°,
20°'177740°, X0°177700°, 20°177600°', X0'177400°,
20°'177000°, %0°'176000°', %20°'174000°, X0°'170000°*

X0°'140000°', X0'100000°, 10'000000'5.

X0°'160000°,

PATO9 : vector [17 initial (16,

rep 3 of (X0'000000°), rep 3 of (20°'1727777'),
rep 2 of (10'000000')‘ rep 2 of (%0°'177777*)

! PATTERN 9

20'000000°, X0°'177777', %0'000000°', 10'177777'.

20°'000000°, X0'177777°),

PAT12 : vect

(17

! PATTERN 10

(16,

! PATTERN 11

rep

_—

PAT11 : vector

»e

PAT10 : vectog 2] initial 1,

e 042 04 04.820.0200000002000002a000000%00s000000000090000800000000500%0000000 8900000080050,

MSCP PKT INDEX FOR FIRST QIO
! MSCP PKT INDEX FOR SECOND QI0

Mx1 : signed word,
Mx2 : signed word

1
,
%0'151322")
1
,
%0°'151322")

! PATTERN 12
.

20°026455°

5,
%0°'026455°

VIVIVIVIVIVY

bbb?\‘ P

NN N N NN N NN N NN N NN NN NN NNSNN N NN NSNS NN SN SN NN
NNNNNN NNNNYN
S &5 8 B NN WWW W IWNWWNWNWNI NN NI NN
b b b b b b b b b S OO
WN=O VW NI NN =000V
VIS W= O V00 ~NO (V¥ WN =2 O OO NO VI NN = O VNV

»e
o

706

! ADDRESS OF INTERRUPTING CORTROLLER'S DCT
INT_ADDR : vector [MAX_CTLR) initial (AZINTO X(, AZINT1, AZINT2, AZINTD)D),
" "
UINTERRUPT SERVICE ROUTINE ADDRESS TABLE
! NUMBER OF RANDOM NUMBERS \ KEEP
RDM_CNT : word initial (RDM_LEN),
/ TOGETHER
RANDOM NUMBER TABLE
!
word]l,
[RDM_LEN,
RANDOM : vector
NUMBER
CONTROLLING
INTERRUPTING
5
ICTLR : word,

704
705

IDCT_ADDR : ref block [DCT LEN, word) field (DCT FIELDS),

®
O

703

-‘—l—l—.-.-.—l—.-‘—.—ld—.—l—.d—.dddd—.dd—.-‘-‘d-.—l-‘d—ld—.ddddddddfl-‘dd—.-‘dd—.—.

XN
T
Y
TR PR YR PR TR Y
YE IR TR A
AN
IR
TR
YRR
0%
%98,
Be0s%0083%90e800¢%00:
0% e 000000
Ve
Ve
e
0By
00
WeWe8o

21=-Jul=-1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
DECLARAT JONS

ZRQAM3
v01.2

SEQ 261

Page 5
VAX-11 Bliss=16 V3-555
(1)
2:
QABO.BL2;15
SER
[DIETZ .RELEASEJZR
DISKSU

:
:
:
:

DECLARATIONS

1756

1757

1763

PAT1S : vector [175 initial (16,

! PATTERN 15

1765

:
:

1764

1766

1767

1768

1769
1770

1771

1772

:
:

1773
1774

1776

:
:
:
:
:

:
:

:
2
:

1775

20°'167777°,

X0'157777°, %20'137777', X0'077777*),

PAT16 : vector [17) initial (16,

rep 3 of (%0°133331°'), rep 3 of (10'155554
rep 2 of (%o0'133331°) ¢ rep 2 of (%0'155554')

0'133331°, %0°'155554°, %0'133331°, %0'155554 ",
20°133331°,

%0°'155554"),

PAT17 : vector [22] initial 1.
%0°'000000
9 2 of (X0°106466")

rep 3 of (fo 071311°), rep 4 of (%0°106466° ),
rep S of (%30°071311°),

rep 6 of (20°106466°)),

20°'000000°, rep 2 of (X0°134631°)
rep 3 of (%0°043146°), rep & of (!o 134631°)

! PATTERN 16
! PATTERN 17

! PATTERN 18
! PATTERN 19

1785
1786
1787

PAT20 : vector [22) initial (21,
20°134631°, %0°'000000°, 20'043166'
rep 3 of (fo 136631’), rep 4 of (!o 043146"°),

! PATTERN 20

1789

PAT21 : vector [2] initial (1,

! PATTERN 21

1791

DPA_TBL : vector [DP CNT) initial

! DATA PATTERN ADDRESS TABLE

1788

1790
1792

1800

:
:
N
:

X0'177757*, %0°*177737°', X0'177677', %o0' 177577'.

Xo'177377*, %0°176777°, Xo'175777°, 20'173777'

rep 5 of (10'043146') rep 6 of (30'134631°*)J,

1798

:
:

20°177776°, Xo' 177775' X0°'177773', %0'177767°,

1784

1782
1783

.
H

%0°'010000'. %0°020000°. %0'040000°, %o° 1000005,

PAT18 : vector [22] initial (21,
20°106466°, X0°'000000°, 10'071311'
rep 3 of (£0'106466°), rep 4 of (30°'071311")
rep 5 of (Xo* 106466') rep 6 of (%0°071311°)5.
PAT19 : vector [22) initial (21,

1793
1794
1795
1796

X0'000400°, %o '001000' 20'002000' X0'004000°

1777
1778
1779
1780
1781

;
H
:
:

%0'066666°) .

! PATTERN 14

! PATTERN 13

PAT13: vector [2] initial (1,

1758
1759
1760
1761

1797

1799

}gg}

1803
1804

1805
1806
1807
1808

rep 5 of (%0°134631°'), rep 6 of (20°043146")),

%0' 0000

(RDM_CNT, PAT02, PAT03, PATO04, PATOS,

(LBN)

PATOS, PATO? PATOB PATO9 PATIO PATI1
PAT12, PA713 PAT14, PAT1S, PAT16, PAT17
PAT18. PAT19. PAT20. PAT21],
TRK_SGN: vector [MAX_UNITS, word. s1gnedJ in1t1al (rep MAX_UNITS of (1)),

BST CNT: word initial (0),

B8ST _DEV: word 1nitlal 0,

! CURRENT SEOUENTIAL 8LOCK COUNT

! CURRENT TRACK DIRECTION

! CURRENT SEOUENTIAL BLOCK DEVICE

CURRENT VECTOR word,

' CURRENT DEVICE'S VECTOR ADDRESS

COMPARE_DATA: byte;

! FLAGGED CLEARED TO BYPASS HOST COMPARES

BRLEVEL" : word

external rout1ne
NEX_TRAP: LSISR novalue,

SET_CPAR: novalue,
SET_UPAR: novalue,
outr~lopa,
IN_T0D@: novalue,

SEQ 262

Page

DISKSUSERZ:[DIETZ.RELEASE]ZROABO.BLZ:lg (1)

PATIG ¢ vector £173 initial(
%0'000001°, Xo' 000002' 20'000004°, %0'000010°,
10'000020'. %0°000040° . 20°'000100°. %0°'000200°,

1762

21=Jul=-198315:23:38

VAX=11 Bliss~16 V3=555

' CURRENT DEVICE'S BR LEVEL

(e le Blelel=]=lelel~]erlslelelelelalelelelolelelslel]

v01.2

21=Jul=-198315:33:38

RD/RX EXERCISER

IRQAM3

RD/RX EXERCISER
DECLARAT JONS
GET_PKT,

PUT PKT : novalue,
GET RETPKT
PUT_RETPKT : novalue,
GET 10_BUFF : novalue,
PUTTIOBUFF : novalue,
PUTK_BOFF : novalue,
SEND,,

WALIT : novalue.

DROP CTLR novalue,

DRV ttLERR novalue,

(%]

EMSCMD
: novalue.
EMS 22 : novalue,
EMS _EL : novalue,
EMS_CMP : novalue,
EMS 10 : novalue,
EMS_12 : novalue,
EMS 13 : novalue,
EMS 14 : novalue,
m

b e b s wnd b b =
OV~ S NN =LOVBNONS W0
W ANIRIND AN NI NININ) = omd

b oud ad

b ad wnd wnd b

b =

(o Yo o Yo To To To To To To To To To To-To-To -To To-To-To Lo ]

IRQAMS
v01.2

EMS 21

: novalue,

EMS_30 : novalue;

21=Jul=1983 15:33:38
21=Jul=198315:23:38

SEQ 263

Page
VAX-11 Bliss=16 V3=555
O.8BL2;15
R2: (1)
.RELEASEJZROAB
SUSE
[DIETZ
DISK

e 2808 0e020000000e000a00000000000080000500000000090000500000000000080080000008008008¢0000000509000000080000,

21-Jul=-1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER

ZRQAM3
v01.2

TEST SECTION

SEQ 264

Page
8
VAX-11 Bliss=16 Vv3-555
(2)
15
0.8L2;
JZROAB
DISKSUSER2: [DIETZ.RELEASE

IR
vC

‘e

THIS SECTION CONTAINS THE TOP-LEVEL TEST CODE FOR THE RDRX EXERCISER.
THE EXERCISER CONSISTS OF ONE TEST WHICH IS SUBDIVIDED INTO A NUMBER OF
SUBTESTS. ALL SUBTESTS ARE DECLARED WITHIN THIS BLOCK.

'
!
E

555353

b b

b e

D e

b i

VAV WNVAWVVWAWIVAWIWDN PIIIIIIIIALA

WA = OO 00 ~NO W S UWN =20 0B~NOW SUWNN=OO

1838

BGNTST;

EOP_FLAG = TRUE;

COMPARE_DATA = TRUE;
INIT_TEST O);

! ASSUME NO UNIT AVAILABLE
! ALLOW HOST COMPARES IF ASKED FOR
! INITIALIZE TEST ENVIRONMENT

incr CTLR from O to (MAX_CTLR = 1) do

! FOR EVERY CONTROLLER

(.DCT [.CTLR, STAT] eql ONLINE) and
(.CST [.CTLR, U_CNT] gequ 0)

then

incr OFFSET from (0 ¢+ OF_UN) to (3 ~ UNIT_SIZE ¢+ 4) by UNIT_SIZE do

it .CST C.CTLR, .OFFSET, D_STAT] eql ONLINE ! IF AT LEAST ONE UNIT ALIVE
then

begin
EOP_FLAG = FALSE;
exitloop:;

000050
000074
000104

000106

! NOT END OF PASS

end;

if not .EOP_FLAG
then

! RUN MULTI-DRIVE TEST

MULTI_DRIVE (O);

ENDTST;
LTITLE
- IDENT
.ENABL

000000
000000

! JF CONTROLLER ONLINE

if (.CST [.CTLR, STATE] eql ONLINE) and

PSECT
AREA:
COMM.
.BLKY
.BLKW
8ST:
DPST:
.BLKW
MAX.LBN:.BLKW

GE
: .BLKW
STORA
ICOM.ADDR:

ZRQAM3 RD/RX EXERCISER

/V01.2/
AMA

$6GGS,

24
4

2
4
4

.BLKW

JICST.ADDR:

COoOOOOOOOCCOOO00O00000OROOORRPRRRRRLPPPLRRRRLRRLLL

Xsbtel °"TEST SECTION'

IDCT.ADDR:

.WORD
RDM. CNT: . WORD
RANDOM: .BLKW

ICTLR:

Mx1:

Mx2:

.BLKW

BLKW

.BLKW

LAST.PKT:
PAT02:

.WORD

PATO03:

.WORD

PATO4:

.WORD

PATOS:

.WORD

PAT06:

.WORD

PAT07:

.WORD

PATO8:

.WORD

AZINTO
b ed bbb NN
(=1 =)

000020

.BLK

INT.ADDR:

-d | Db
N

000000V

LKL

TEST SECTION

RD/RX EXERCISER

<TM~

SEQ 265

9
Page
VAX=-11 Bliss~16 v3-555
DISKSUSER2: [DIETZ.RELEASE JZROABO.BL2:15 (2)

13 83 15:33:38

21=Jul=19

RD/RX EXERCISER

21=Jul=-1983 15:23:38

TEST SECTIO&

PAT09:

PAT10:
PAT11:

PAT12:

LWORD
LWORD
.WORD
MORD
.WORD
MORD
MWORD
WORD
WORD
LWORD
D
MWORD
MORD
WORD
MWORD

~20000
=40000
=100000
O
20
O
O
O
~1
-1
-1
O
O
-1
-1

WORD
WORD
WORD
WORD
WORD
JWORD
JMORD
WORD
LWORD
LWORD
WORD
LWORD
WORD
WORD
WORD
.WORD
WORD
WORD
WORD
WORD
LWORD
LMWORD
WORD
WORD
WORD
LWORD
WORD
WORD

52525
52525
=52526
=52526
=52526
52525
52525
=52526
=52526
52525
=52526
52525
=52526
52525
=52526
24
26455
26455
26455
~26456
=26456
=26456
26455
26455
=26456
=26456
26455
26455

MWORD
LWORD
MORD
LWORD
WORD
MWORD
.WORD
LWURD
.WORD
WORD

O
-1
O
=1
O
-1
1
=44447
20
52525

VAX=-11 Bliss=16 V3=-555

SEQ 266

Page 10

DISKSUSERZ:[DIEYZ.RELEASEJZROABO.BLZ:1§ (2)

IR
vO
:
:
:
:
:
:
:
:
3
:
:
:
3

3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3
3

3
3
3
3
3
:
2
3
:
3
:
:
:
:
:
e
:
:
:
:
:
:
:

—

21=Jul=1983 15:33:38
21=Jul=-1983 15:23:38

-t

'S WY vy SvS W

n NIV
NN
W NNV
WA

RD/RX EXERCISER
TEST SECTION

PAT13:

PAT14:

26455
=26456
26455
=26456
26455
=26456
26455

:
:
:
:
:
:
:
:
:
:
:
:

WORD
LWORD
.WORD
WORD

20
40
100
200

400

.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD

1000

2000
4000
10000
20000
40000
=100000
20

WORD

-3

00
00
00
00
00
00
00
00
00

.WORD
.WORD
.WORD
WORD
WORD

LWORD

PAT16:

IR
vO

LWORD
WORD
WORD
LMORD
WORD
MORD
.WORD

WORD

PAT15:

SEQ 267

Page 11
VAX-11 Bliss=16 V3=-555
ABO.BL2; 13 (2)
R2:
.RELEASEJZRO
SUSE
[DIETZ
DISK

MORD

MWORD
MWORD
LWORD
MORD
WORD
WORD
MORD
WORD
.WORD
WORD
.WORD
.WORD
WORD
MORD
.WORD
LMORD
LWORD
MWORD
LMWORD
.WORD
LWORD
MORD
LWORD

1
66666
20
1
2

=5
-11
=21
=41
-101
=201
=401
-=1001
=2001
=4001
-10001
=20001
=40001
77777
20
=44447
=44447
=44447
=22224
=22224
=22224

=44447
=44447

oC
0d
00
00
00
00
0C
00
0C
0o
oC
oC
0oC
0oC
o
oC
o
oC
o
o(
o
0(
o

000025
106466

071311
1
106466
106466
071311
071311
071311
071311
106466
1
106466
106466
106466
071311
071311
071311
071311
071311
071311
000025

PAT17:

PAT18:

LWORD
JWORD
WORD
WORD
MORD
CWORD
MWORD
WORD
,WORD
WORD
LWORD
LWORD
WORD
LWORD
WORD
WORD
WORD
WORD
WORD
LWORD
WORD
.WORD
LWORD
LMORD
LWORD
WORD
LWORD
WORD
WORD
WORD

.WORD
LWORD

.WORD

PAT19:

LWORD
LWORD
WORD
.WORD
.WORD
LWORD
LWORD
.WORD
WORD
WORD
LWORD
LWORD
WORD
.WORD
LWORD
.WORD
WORD
.WORD
.WORD
.WORD

=222264
=222264
~44é447
=22224
=44447
=22224
=44447
=22224
25
O
=71312
=71312
71311
71311
71311
~71312
-71312
=71312
~71312
71311
71311
71311
71311
71311
-71312
-71312
~71312
~71312
-71312
-71312
=71312
71311
=71312
-71312
=71312
71311
71311
71311
71311
~71312
-71312
-71312
~71312
=71312
71311
71311
71311
7131
71311
71311
25

0
4

SEQ 268

Page 12
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2;15 (2)

21-Jul-1983 15:33:38
21-Jul=-1983 15:23:38

RD/RX EXERCISER
TEST SECTION
155554
1555564
133331
155554
133331
1555564
133331
155554
000025
000000
106466
66
071311
071311
071311
106466
106466
106466
106466
071311
07131
071311
071311
071311
106466
106466
106466
106466
106466
106466

LIIAILIIINIIIIIIINIS S

21-Jul=1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER
TEST SECTION
.WORD

=43147
~43147
43146
43146
43146
43147
=43147

134631
043146
043146
043146
043146
043146

WORD
WORD
WORD
WORD
.WORD
"WORD

~43147
43146
43146
43146
43146
43146

:
:
:
3
3
3

JWORD
WORD
WORD
JWORD

=43147
=43147
=43147
=43147

134631
134631

FRRSERAUEHERERRUSE
2N &R
OO NS SN

&HMNO

b
b
b
b
b
b

b b b b
b

b b

) cud aud

b cub cod

b and wd cud cud wd

b =d -l

b b wd wd cub b

b wd

043146

b ad

;

"WORD
"WORD
.WORD
WORD
WORD
WORD
.WORD

WORD

134631
134631
134631
134631

—ld b e

IR
VO

134631
134631
043146
043146
043146
134631
134631

134631

b and cnd and

SEQ 269

Page 13
VAX-11 Bliss=16 V3=555
(2)
2;13
DISKSUSER2: [DIETZ.RELEASE]ZROABO.BL

:
:
:
:
:
:
:

134631

8833333333333 3333333323333

PAT20:

WORD
.WORD

WORD

43146

JWORD
JWORD
WORD
WORD
WORD
.WORD

=43147
~43147
43146
43146
43146
43146

134631

"WORD

134631
043146
043146
043146
043146
043146
043146
000001
000000
000114
000176°
000202°

206°
000212°
000216
000222
000264 *

=43147

-WORD

JWORD

134631
134631
134631

~43147

JWORD

134631

134631
134631
043146
043146
043146
043146

=43147

WORD
JWORD
JWORD

JWORD
WORD
.WORD
JWORD
.WORD
WORD
.WORD
PAT21: .WORD
.WORD
DPA.TBL:.WORD
.WORD
WORD

.WORD
.WORD
WORD
.WORD
.WORD

=43147

=43147
=43147
=43147

=43147
43146
43146
43146
43146
43146
4314
0
RDM.CNT
PAT02
PATOQZ
PATO%
PATO0S
PAT06
PAT07
PATO08

:
:
:
:

00
00
00
00
00
00
00

00
00

00
00
00
00

00
00
00
00
00
00
00
0C
00
0c
;
:

.WORD
.WORD
.WORD

PAT16
PAT17
PAT18
PAT19
PAT20
PAT21

C.ERR.TBL, MSCP.PKT, IPKT.ADDR
PKT.USE, RETPKT. RP.USE., RP.INDX

RP.ADDR. ELOG.PKT, BUFF.ADDR, BUFF.OWN
1000, 10DQ.IN. I0DQ.OUT, ENTRY.REASON
EOP.FLAG, DUP.FLAGS. CCFLR, CDISK
CUOFF, CTLR.CNT. DUR, QI0, "FREE.MEM.ADDR
BYTS.PER.QIO, ST.CODE, SB.CODE
STEP. OF .RC, SA.REG, CMD.TIME
NEX, CRN.LOW, CRN.HIGH, P.INDEX
S.DUPPKT. S.PATTERN, CREDIT BAL

NEXT.PKT.USE,DBM12. DBM18, DBM19
DBM20, DBM21.

DBM23,

DBM25, DBM26

DBM29 oan1oé o8M109, D8M110
DBM112, EH. EH.1, EH.2, EH.3
EH.4 EH. EH.6, EH 7. EH.8. EH.9
EN.10, EN.12, EH.13, M§G.02, MSG.03
£GS.02, esojo. EGD.11, EGD.12
EGD.13. EGD.14. EGD.15. EGD.16
EGD.17. EGD.18. EGD.20. EGD.21
EGD.22. EGD.23. EGH.30. CRLF, SWP.ERROR

13 (2)
J2ROABO.BL2:

—Y

NN
oo

W
(P1V]

b
-

Viwn

—d

bbb

CST. CST.ADDR, DCT, DCT.ADDR, RDRX.ADDR
IRDRX.ADDR, DUPPKT. TALLY, T.ADDR

SEQ 270
14
Pa

SWP.XFER, SWP.FLAGS. DUPROUND
SWP.RAT, "SWP.DPAT, SWP.UCNT, SWP.UDPAT

LSLUN, LSUNIT, NEX.TRAP, SET.CPAR

SET.UPAR, OUT.I0DQ. IN.f0DQ, GET.PKT

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

.WORD
.WORD
.WORD
.WORD
BST.CNT:.WORD
8ST.DEV:.WORD
CURRENT.VECTOR:
.BLKW
EL
: .BLKW
BRLEV
COMPARE .DATA:
.BLKB

edemd

TRK.SGN:

PAT13
PAT14
PAT15

.WORD
-WORD
.WORD
.WORD
WORD
.WORD

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASE

[ TX T} .o.clo..“M...oMM“.0‘0““N““““N“““““N“““““N.‘“.O.o.o.-.o [(YXYXTRILIRTE Y ég

.WORD

PAT09
PAT10
PAT11
PAT12

.WORD
.WORD
.WORD

(v V)

TEST SECTION

-t

21=Jul21=Jul~

RD/RX EXERCISER

nnu
N

OO = b ad = b b
[=]
QOO0
O
N
O =2 rXvr. el VO =200

8IT

EF .START==

EF .RESTART==

EF .CONTINUE==

00!

VRIIIISI2SS

BIT

000200

=100000

—y

[
.|

—

St Py

g Pt G

g S

ODDOD®

o Jo o]

[

]

PUT.PKT, GET.RETPKT, PUT.RETPKT
GET.10.BUFF, PUT.10.BUFF, PUTA.BUFF
SEND, WAIT, DROP.CTLR, DRV.CTLERR
EMSCMD, EMS.22, EMS.EL, EMS.CMP
EMS.10, EMS.12, EMS.13, EMS.14
EMS.18, EMS.21, EMS.30

EJZROABO.BLZ:Ige(z)

TEST SECTION

SE@ 271

SSSS833332322RRRRRSR

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

ZRQAM3
v01.2

VAX=-11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ.RELEAS

00
001000
2000
004000
010000
020000

80E==
PNT==
PRI==
IXE==
1BE==
1ER==

400
1000
2000
4000
10000
20000

100000

HOE==

-100000

$T1:

1$:

0000006

004737
022626

000072
000074

100027
010346

000102
000106
000112
000114
000116
000120
000126
000130

004737
012702
010001
060201
006301
032761
001403
105037

0000006
000003

000136
000142
000146
000150
000152
000154

062702
020227
003761
022626
005203
000243

000005
000023

000156
000160
000166
000170

003723
132737
001002
004737

000134 000405

2s:

PC,BLSMUL
(SP)+,(SP)+

JSR
MOV
MOV
ADD
ASL

BIT
8EQ

0000006

CLRB

3s:

48:
5%:

000000V

JSR
CMP

MOV

0000006

000001

R1,$SAVE3
#1.EOP.FLAG
#1.COMPARE.DATA
PC.INIT.TEST
R3
R3,=(SP)
#56,-(SP)
PC.BLSMUL
RO.RT
(SP)+,(SP)+
CST+2(R1)
58
R3,=(SP)

8PL
MOV

000076 012746 000027

020000

JSR
MOVB
MOVB
JSR
CLR
MOV
MOV
JSR
MOV
CMP
TsT
BPL
MOV

000066 005760 0000006

0000006

$CODES,

MOV

000054 012746 000022

000060
000064

$T1 TEST SECTION

"PSECT

#22,-(SP)

CTLR,*

CTLR,®*

1848

CTLR

NVWN=O

000000 004137 0000006
000004 112737 000001 0000006
000012 112737 000001 001240°
000020 004737 000000V
000026 005003
000026 010346
000030 012746 000056
000034 004737 0000006
000040 010001
000042 022626
000044 005761 0000026
000050 100040
000052 010346

13 (2)
1ZROABO.BL2:

RRREEE

.SBTTL

000000

DISKSUSER2:[DIETZ.RELEASE

SEQ 272

Page

40000

LOE==

0460000

VAX=11 Bliss=16 V3~555

pCT(RD)

5$
R3,=(SP)

#27.,-(SP)

PC,BLSMUL
#3.R2
RO.R1
R2.R1
R1

CTLR,*

«, OFFSET
OFFSET,*

#20000,CST(R1)
3s
EOP.FLAG

B8R

BLE
BITB
BNE
JSR

1$
#1,EOP.FLAG
63
PC.MULTI.DRIVE

#5.R2
ADD
CMP
R2.#23
2s
BLE
(SP)+,(SP)+
CMP
R3
INC
.WORD CLV'CLC
1861
1863

21-Jul=1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER
TEST SECTION

ZRQAM3
v01.2

P
S
YR T E TR TR I TE TR IR T
N Y

63 words,

6%:
Routine Base:

: Maximum stack depth per invocation:

7 words

000000°

T1::

000000

004737

000004
000006
000010
000012

104466
006000
103773
000207

000000

: Routine Size:

6 words,

18:

Routine Base:

: Maximum stack depth per invocation:

2 words

RTS

SEQ 2/3

Page 17
VAX-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL2;13 (2)
1830
:

$CODES ¢+ 0000

LSBTTL

T1 TEST SECTION

JSR

PC.3T1

TRAP
ROR
8LO
RTS

66
RO
1%
PC

$CODES + 0176

1863

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
IRQAM3
TEST SECTION
v01.2
000174 000207
: Routine Size:

Lsbttl *INITIALIZATION TEST ROUTINES'
routine INIT_TEST : novalue =
'+

THE INITIALIZATION TEST IS DESIGNED TO VERIFY THE EXISTENCE OF THE
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIALOG, AND TO

amy T gy g

~
W

BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-DRIVE TEST
OR THE DM EXERCISER.

b ad

b e

i cd

SNISTEEE

v01.2

SEQ 274

Page 18
VAX=11 Bliss=16 V3=555
DISKSUSER2: (DIETZ.RELEASEIZRQABO.BL2;13 (3)

BASICALLY, THE DEVICES ARE BROUGHT ONLINE VIA ‘DRIVER_INIT'’, WHICH IS

INVOKED IMMEDIATELY. ANY DEVICES WHICH FAIL DURING THIS PHASE WILL BE

incrbgT%§ from 0 to (MAX_CTLR = 1) do

! FOR EACH CONTROLLER

SE?_CPAR (.CTLR);

! SET UP COMMONLY-USED CONTROLLER-RELATED DATA ITEMS

:;eaCST_ADDR [STATE] eql ONLINE

! IF CONTROLLER IS STILL ALIVE

incr OFFSET from (0 + OF_UN) to (3 + UNIT_SIZE + OF_UN) by UNIT_SIZE do

. o ST S

! INIT DRIVER DATA AND DEVICES

e SN SR S SN gEn SR SR S, S, ST S, Y G

MARKED OFFLINE IN THEIR DCT AND CST. FOR_THOSE DEVICES WHICH SURVIVE
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS TO
EACH DISK VIA ROUTINE ‘°ACCESS'’. THE INITIALIZATION TEST IS DEEMED A
SUCCESS IF A BLOCK ON THE INNER TRACK OF EACH DISK CAN BE ACCESSED.

85?32&_1~17 O

! FOR EACH DISK

e SE

if (.CST_ADDR [.OFFSET, D_PRES] eql PRESENT) and
(.CST_ADDR [.OFFSET, D_STAT] eql ONLINE) and

th (not TCST_ADDR [.OFFSET, D_FATALJ)
en

begin

! SET UP UNIT=RELATED DATA ITEMS

SE? UPAR (.OFFSET);

O ~NO
N

1fF SWP_DINT NEQ (.DUP_FLAGS AND SWP_DINT)

end;

000010
000014
000020

! IF UNIT IS PRESENT AND ONLINE
! CONTROLLER LOOP

end;

! ROUTINE INIT_TEST

end;
0000006

0000006

LSBTITL

INIT.TEST INITIALIZATION TEST ROUTINES

JSR
JSR
CLR

R1,$SAVE?2
PC,DRIVER.INIT
R?2

JSR

PC,SET.CPAR

INIT.TEST:

000000V
000000G

! IF DUP CAUSED INIT THEN SKIP THIS SECTION

! TRY ACCESS TO INNER TRACK

THEN ACCESS ()

1%:

MOV

€&IN

21=Jul~1983 15:3 3:38
3:38
21-Jul=1983 15:23:

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

ZRQAM3

YYD

H
:

R2,=-(SP)

: CTLR
s CTLR,®

CST.ADDR,RO

1868
1885
1887
1889

1891

000002

000003

2s$:

N
=D b b

0000006
040000

020000
010000
0000006
000002 000000G

000000V

000005

000022

3s:
48:

2(RO)
TST
43
8PL
#3.R1
mov
MOV
R1,RO
RO
ASL
CST.ADDR,RO
ADD
#40000, (RO)
8IT
33
8EQ
#20000, (RO)
81T
3s
8EQ
#10000, (RO)
BIT
3s
BNE
R1,(SP)
MoV
PC,SET.UPAR
JSR
#2.,DUP.FLAGS
BIT
33
BNE
PC,ACCESS
JSR
#5.R1
ADD
R1,422
CMP
23
BLE
(SP)+
TS7T
R2
INC
.WORD CLV!CLC
BLE

RIS

;s OF

SET
T,*

1894

1896

1897

1898

; OFFSET,*

1901

1902

1903

: «,0FFSET
M OFFSET,«

1894

1888

: CTLR

1887

1868

INITIALIZATION TEST ROUTINES

Page 19
VAX=11 Bliss=16 V3-555
DISKSUSER2:CDIETZ.RELEASEJZRQABO.BL2;13 (3)

e ®aBea®a®a®aea®oBalo®eWe®sBeoe0s0c0e0sWsWUsBeVeCe e 0858509

21=Jul=-1983 15:33:38
21=Jul~-1983 15:23:38

RD/RX EXERCISER

SEQ 275

ASn.

:
$TODES + 0212
47 words, ]
Routine
Base:
: Routine Size:
5 words
; Maximum stack depth pe-~ invocation:

INITIALIZATION TEST ROUTINES

THIS ROUTINE IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTR
POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INIT IALIZE
DRIVER DATA, AND TO BRING EACH RDRX CONTROLLER AND UNIT (DISK)
ONLINE.

begin
ocal

PKT_ADDR;

ADDR (TEXT ¢ 0) OF FIRST MSCP PACKET
NEXT PACKET TO ALLOCATE

PKT_ADDR = MSCP_PKT ¢+ 10;

NEXT_PKT_USE = D

incr COUNT from 0 to (PKT_CNT - 1) do

MSCP_PKT [.COUNT, PKT"HI)
MSCPTMPKT [.COUNT, CONRID]

! FOR EACH MSCP PACKET

PKT JADDR;

! MARK PACKET FREE

cxo nscp

! SET CONNECTION ID TO MSCP ID
! ADVANCE ADDR TO NEXT PACKET

PK;_XDDR = .PKT_ADDR + (PKT_LENTM * 2);

! LOAD PKT ADDR INTO BUFFER DESCRIPTOR

incr CTLR from 0 to (MAX_CTLR - 1) do

! FOR EACH CONTROLLER

IF CONTROLLER IS PRESENT

then

begin
SET_CPAR (.CTLR);

BRLEVEL = .CST_ADDR [BR_LEV]* 5;

b wd

CTLR_INIT O;

if .DCT_ADDR [STAT] eql ONLINE

then

NS WN=0O
o0 WNO

IF CONTROLLER IS STILL ALIVE

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do ! FOR EACH UNIT (DISK)

b
b
b e
b
i
b
b
e

SET UP CURRENT CONTROLLER PARAMETERS
! SET CURRENT CONTROLLER'S VECTOR ADDRESS
SET CURRENT CONTROLLER'S BR LEVEL
INIT DEVICE AND CTLR DATA

CURRENT_VECTOR = .CST ADDR LVEC ADDRJ;

00000’00002 H RRRRRLR
-3 VIAWAIVAWAIVAIWAW
00 NO VIS NN =

1940

——

if .CST [.CTLR, IP_ADDR] nega 0

if (.CST_ADDR [.OFFSET, D_PRES] eql PRESENT) and

(not .CST_ADDR [. OFFSET D_FATAL))

then

);
SE? UPAR (.OFFSET
O
in

UNIT_INIT
end;

end;

YNNI

i
i
i

. — S S SN S, S S S, S, S, S, SN S SN P AN SN

NINOINININININ)
=p b ed b b b cmd b b =D

W= O VRNOWVNSWN=0O0

nd
b o

o e

D b e cad cad ol

) e

i i o

0 00 0 V0 VOOV VOV OVOVOV OO0

‘e

HSCPPKT [.COUNT, PKT Lol

—

SEQ 276

Page 2
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIET2.RELEASEIZRQABO.BL2;15 (4)

routine DRIVER_INIT : novalue =

USE C.COUNT]) = =1;

[y b

TR A IR IR PR FRYR YR LR XA TN ¥
e B e 0e0a0 e 00 0000800000000 B0 000000005000, %0000, 0% 0,0, [TR YE I Y IRIAIE IR

21-Jul-19
21=Jul=-1983 15:23:38

RD/RX EXERCISER

ZRQAM3

v01.2

¢ 83 15:33:38

! IF UNIT EXISTS

SET UP UNIT-RELATED DATA ITEMS
BRING UNIT ONLINE
IF UNIT EXISTS
IF CONTROLLER IS PRESENT
! ROUTINE DRIVER_INIT

000377

MOV

0000006

18:

CLRB
CLR

#MSCP.PKT+12
,R2

NEXT.PKT.USE
R1
#377.PKT.USE(R1)
R1,-(SP)

#104,-(SP)
PC,BLSMUL

000104

000013

000056
0000006

ga8aSe
O =N)=2NOW 3233
°N§ 32 S8

s COUNT,«

I I

1926

1928

1929

H
: ~,PKT.ADDR
M

: COUNT

1930

1931
1932
1927
1926

: CTLR
: CTLR,*

1935
1937

s CTLR,»

1940

cST.ADDR,RO
VECTOR
2(R0O) ,CURR.ENT

1941

(SP)
4(RO), (SP)
#5,-(SP)
PC.BLSSHF
RO.BRLEVEL
PC.CTLR. INIT
ggcr.Aoon

1942

M
:

1943
1945

#3,R1
R1.RO
R0

: « UFFSET

1948

#10000, (RO)

1951

R1,(SP)

: OFFSET,»

1954

: »,OFFSET

1948

R2
R2,=(SP)

#177000, CURRENT . VECTOR

000004
000005
0000006
001236°
000000V
0000006
3s:

OFFSET,«

1950

CST.ADDR,RO

0000006
040000

#40000, (RO)
43

010000

0000006
00

s *,*(COUNT)

: COUNT,*

R1,M3

6
R2,=(SP)
PC.SET.CPAR

0000006
0000006
000002 001234°
177000 001234°

004737

: COUNT

1923

(SP)+, (SP)+
cgr(nb)

0000006

000003

1924

: *,PKT.ADDR

: PKT.ADDR,*

2$:

1909

R2.MSCP.PKT(RO)
2
(RO)
MSCP.PKT+
MSCP.PKT+11(R0)
#104.R2
(SP)+,(SP)+
R1

0000126
0000006

4$:

PC,SET.UPAR
Pg.UNlT.lNlY
#5,R1

R1,#22
3$

TETEYEXTETE YR I

012702
105037

R1,$SAVE?

0000006

DRIVER.INIT INITIALIZATION TEST ROUTINES

: OFFSET,*

1955

X IR

004137

.SBTTL

DRIVER.INIT:
JSR

0% VWGV VeVsVs8e®e0y oo v (TR

INITIALIZATION TEST ROUTINES

SEQ 277

Page 21
VAX=-11 Bliss=16 V3=555
(4)
2;15
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL

0 a ®a®a®aBaela®e®eateae®esBoatotaloeBeBoVWsBVsWeO3s

21=Jul=-1983 1
21=Jul-1 983 1

RD/RX EXERCISER

IRQAM3
v01.2

. B

21=Jul=-1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

022626
005202
000243
003704
000207

b ¥
6%:

(SP)+,(SP)¢
(MP
R2
INC
.WORD CLV!CLC

BLE

RTS

23
PC

$CODES + 0350
Routine Base:
: Routine Size: 90 words, .
:
words
invocation
6
per
depth
: Maximum stack

VAX=-11 Bliss=16 V3-555

SEQ 278

Page

DISKSUSER2:[DIETZ.RELEASE JZRQAB0.8BL2;15 (&)

: CTLR

1939
1935

1909

200000000000 000000000000000000089000000000000 08000900 90850809000 “.c 000000000000 0: 00808003 09 8000800500000

TO THE HOST. SPECIFICALLY, IT IS WRITTEN TO:

1. INITIALIZE ORJVER CONTROLLER DATA, INCLUDING THE DCT,
2. SET UP THE DEVICE'S INTERRUPT VECTOR ADDRESS,

WO
O

b el
b
b
- e

CONF IGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RDRX ONLINE

3. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE,
4. PERFORM A VECTOR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR
ADDRESS AND INTERRUPT REQUEST LEVEL,
S. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE.

DEVICE ARE DROPPED.
begin
local
RESULT : byte.

INI_CTLR_DAT ();

! INITIALIZE CONTROLLER DATA

SETVEC (TCURRENT_VECTOR, .INT_ADDR [.CCTLRI, PRI107);

DCT_ADDR CIG_INTY = TRUE;
LSLON = .CST_ADDR [OF_UN, D_UNITI;

%z SWP_DINT NEQ (.DUP_FLAGS AND SWP_DINT)
EN

b oud

888888
gesEs §mwo~mbu

1992

i; REG_EXIST () eql FAILURE

then

begin

DROP_CTLR (.CCTLR, DU_INIT);
return;

! SET DEVICE'S ASSUMED VECTOR ADDRESS
SET °‘‘IGNORE INTERRUPT'' BIT
GET FIRST UNIT NUMBER OF CONTROLLER
(USED BY DRS FOR DEVICE~FATAL CTLR ERRORS)
IF DUP CAUSED INIT THEN SKIP THIS SECTION

! REGISTER EXISTENCE TEST

! DROP ALL CONTROLLER'S UNITS

end;

%EEZUP_DINT NEQ (.DUP_FLAGS AND SWP_DINT)
i; VEC_BR_TEST () eql FAILURE
then

begin

DROP_CTLR (.CCTLR, DU_INIT);
return;

! IF DUP CAUSED INIT THEN SKIP THIS SECTION
! VECTOR ADDR AND BR LEVEL TEST
! DROP ALL CONTROLLER'S UNITS

end;

RESULT = HARD INIT ();

! ATTEMPT HARD DEVICE INIT

DCT_ADDR CIG_INT) = FALSE:

! CLAER °‘'IGNORE INTERRUPT'' BIT

:; .RESULT eql SUCCESS

! IF HARD INIT WAS SUCCESSFUL

be?in

INI_RRING ();

' INITIALIZE RESPONSE RING

gegeR F2E2REE2

THIS 'DRIVER'' ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONTROLLER

b il cnd wd

routine CTLR_INIT : novalue =

IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE

e B4 8o %0 BsBo®eVsBotsBsUetse0s®s00058,0 0080003800 0s0s00%00005000850000858:0000000000000005000¢0000000040,

21=-Jul=-1983 15:33:38
21-Jul=-1983 15:23:38

SEQ 279

Page 23
VAX=-11 Bliss=16 ¥3-555
(5)
;13
RQABO.BL2
RELEASEIZ
DISKSUSER2:[DIETZ.

OO OO0

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

ZRQAM3
v01.2

e 09000 00 09 00 0 B 9000 00 50 00 05 50 00 80 90 80 85 56 05 B0 00 S0 %0 0000 VeV B VB v ue

gg}g

2016

:
:

M
:

:
:

if SET_CTLR_CHAR () eql SUCCESS

! SET CONTROLLER CHARACTERISTICS

2022
2023

end

2025

2029

2027
2028

be?ln

else

end;

! HARD INIT FAILED

beg1n
end;

! ROUTINE CTLR_INIT

end;
JSBTTL
CTLR.INIT:

000050
000054
000056
000062

016001
000301
042701
010137

0000006

000112°
001234°
000003

R1,=-(SP)

MoV
ASL
MOV
MoV
MOV
TRAP

CCTLR,RO
RO
INT.ADDR(R0Q) ,=(SP)
CURRENT.VECTOR,=(SP)
#3,-(SP)
37

BIS
MOV

000036 052777 040000 0000006
000044 013700 0000006

MOV
SWAB
BIC
MOV

000006

177760
0000006

CTLR.INIT INITIALIZATION TEST ROUTINES

MOV

JSR
MOV

000002 004737 000000V
000006 012746 000340
013700
006300
016046
013746
012746
104437

! DROP ALL CONTROLLER'S UNITS

ODROP_CTLR (.CCTLR, DU_INIT);

010146

000012
000016
000020
000024
000030
000034

! MARK CONTROLLER ONLINE IN :bRIVER".
! MARK CONTROLLER ONLINE IN '‘PROGRAM'

DCT_ADDR [STAT] = ONLINE;
CSL_ADDR [STATE] = ONLINE;

2019
%85?

2026

000000

! SET "GO BIT (START CTLR POLLING)

2017
2018

2024

1961

PC,INI.CTLR.DAT
#340,-(SP)

H
:

1984
1985

#40000,80CT.ADDR
CST.ADDR,RO

2
:

1986
1987

#2,DUP.FLAGS

1989
1991

6(R0O) .R1
R1
#177760.R1
R1,LSLUN

JSR

PC,REG.EXIST

:
:

000104 001410
000106 032737 000002 000000G

BEQ
BIT

18
#2.DUP.FLAGS

K
:

1994
1998

000116 004737 000000V

JSR

PC,VEC.BR.TEST

2000

CCTLR,(SP)

2003

#12,5P

2000

BIT

000066 032737 000002 000000G
000074 001025
000076 004737 000000V
000102

005700

000114

001015

000122
000124

005700
001011

000132
000136

012746
004737

000126 013716 0000006

000002
000000G

BNE

TST

BNE

1%:

000154

110001

000156 042777 040000 0000006

Mov

2$:

RO
23

MOV
JSR

#2,-(SP)
PC,DROP.CTLR

BR
JSR

5$
PC,HARD. INIT

ADD

000142 062706 000012

000146 000450
000150 004737 000000V

TST
BNE

P4 ]

MOVB

8IC

RO.R1

#40000,3DCT.ADDR

H
H

: +,RESULT

2002
2007

2008

Py
o]

SEQ 280

Page 24
VAX=11 Bliss=16 v3-555
5 (5)
ZRQABO.BL2.13
DISKSUSER2:[DIETZ.RELEASEJ

WRT_RDRX (RCSA, RC_ALL, SA_GO);
then

:
:

21=Jul=1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

IRQAM3
v01.2

OO0 00O000R00RCORORORRRRRLRRRRRRRRRRRLRRLRILAKIL

120127

000001

R;M

; RESULT,+

PC,INI.RRING

#1,R1

RDRX.ADDR,RO
R1,2(RO)
PC,SET.CTLR.CHAR
RO. M
43

100000 000000G
0000006
100000 000002

0000006
000002
0000006

000010

S$:

RTS

2016
2019
2020

2010
2026

#2,-(SP)
PC.DROP.CTLR
(SP)+
#10,SP

2025

CCTLR, (SP)

48:

€6

RC.REG,*

2013

2014

#100000, ODCT.ADDR
CST.ADDR

cgoooooé(nm

3$:

: «,RC.REG

2010

<§p5+ R1

Routine_Base: $CODES + 0634
: Routine Size: 94 words,
7 words
: Maximum stack depth per invocation:

1979
1961

e
¥ )

INITIALIZATION TEST ROUTINES

SEQ 281

Page 25
VAX=11 Bliss~16 Vv3-553
13 (5)
2;
ABO.BL
DISKSUSER2: [DIETZ.RELEASEJZRO

0000000000R00OROOLRPRRRRLRLRRRLRLALRRKLI

21-Jul=-198315:33:38
21-Jul-198315:23:38

RD/RX EXERCISER

000164

OO0

routine INI_CTLR_DAT : novalue =
‘¢

i
]
;

THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING ALL CONTROLLER-RELATED
DATA IN THE 'DRIVER'* PORTION OF THE EXERCISER. THIS INCLUDES THE
CONTROLLER'S DCT AND OUTSTANDING COMMAND LIST.

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER
DCT_ADDR = ADDRESS OF CURENT CONTROLLER'S DCT

i
;

oc?ADDR [WORDOJ= 0;

DCT-ADDR [RR_BEG] = COMM_AREA + 8 + (.CCTLR + COMM_LEN * 2);
DCT-ADDR CRRCEND] = .DCT-ADDR [RR_BEG] + ((RRING LEN = 1) * 4);
DCT_ADDR [CRZBEG] = .DCT_ADDR [RRZEND] + &:
DCT-ADDR CCRCEND] = .DCTZADDR ECRTBEG] + (<ca1nc LEN = 1) * &4);
BEGJ:
[RRDDR
DCT-ADDR CRRPOLL) = .DCT_A

oc;ADDR L[CRTPOLL] = DCT_ADDR CCR_NExtJ = .DCT_ADDR [CR_BEG;
end;

004137

013701
005011

2000006

CLR

(R1)

DCT.ADDR,R1

MOV

#4 .R2

0000006
000050
0000006
000010°

MOV
MOV
JSR
ADD

CCTLR,=(SP)
#50,-(SP)
PC.BLSMUL
#COMM_ AREA+10,R0

000006
000014 000006

MOV
ADD

ROS6(R1)
c1£ 6(R1)

000020

000016
000207

R1,$SAVE2

000004

000006

000122

JSR

0000006

000004
000012
000014 000012
00001

i CRING POLL AND NEXT COMMAND POINTERS

INI.CTLR.DAT INITIALIZATION TEST ROUTINES

MOV

000010

! CLEAR FIRST DCT WORD

i START OF RESPONSE RING
i LAST SLOT IN RESPONSE RING
i START OF COMMAND RING
i LAST SLOT IN COMMAND RING
i FIRST RRING SLOT TO POLL

.SBTTL

INI.CTLR.DAT:

ADD

MOV

MOV
ADD

MOV

R1,R2

RO, (R2)

01 .RO
1.R0

24, (RO)
(RO ,12(R1)
14, 52(R1)
(R23,14(R1)

MOV

(RO .16(R1)

CMP
RTS

2030

2044

2045

2046

:
:

2047
2048

2030

2043

6(81) (RO)

ADD
MOV
ADD
MOV
MOV

(RO) . 20(R1)

(SP)+,(SP)+
PC

42 words,
Routine Base: $CODES + 1130
: Routine Size:
6 words
Hax1mum stack depth per invocation:

:
:

ey
¢

SEQ 282

Pagc 26
VAX=11 Bliss=16 V3=555
DISKSUSER2: CDIETZ.RELEASEJZROABO.BL2;13 (6)

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

ZRQAM3

v01.2

LRARLILILLRL

2049
2042

2051

routine REG_EXIST =

!
!
!
!
!
!

THIS IS THE REGISTER EXISTENCE (OR 'PROBE'') TEST DESIGNED TO VERIFY
THE PRESENCE OF AN RDRX DEVICE. THIS OBJECTIVE IS ACCOMPLISHED BY
SETTING UP THE NON<-EXISTENT MEMORY (NEX) TRAP VECTOR (LOCATION &) AND
ATTEMPTING TO READ WHAT 1S ASSUMED TO BE THE DEVICE'S SA AND IP
REGISTERS. IF THE NEX TRAP HANDLER IS INVOKED DUE TO AN ABSENT DEVICE,
THEN THE GLOBAL DATUM ‘NEX'® WILL BE SET TO '‘TRUE''. THIS DATUM

:
:
:
:
H
.

2054
2055
2056
2057
2058
2059

:
:
:
:

2062
2063
2064
2065

)
begin

H
H

2069
2070

if .ENTRY_REASON eql NEW_PASS
then

2073

OF _RC = 2;

H
M
:

:
:
H

:
:
:
H

:
:

%82?

2066
g%g
%8;}

2074
2075
2076

DETERMINES THE SUCCESS / FAILURE VALUE OF THIS ROUTINE.

local

! TEMP FOR READING SA AND [P
! AS THE NAME IMPLIES

TEMP : word,
DUMMY : word;
return SUCCESS;

! SET UP TO READ SA FIRST

.
beg1n

NEX = FALSE;
SETVEC (4, NEX_TRAP, PRI07);
TEMP = .(.RDRX_ADDR + .OF_RC);
DUMMY = 0.

2077
2078
2079
2080

2081
gggg

CLRVEC (4);
if .NEX

! IF NEX TRAP OCCURRED

2084

2086

2088

ERRDF~ (10, EGD_10, ERS_10);

2090
2091
2092

return FAILURE;
end

H
H
H

then

2085

beg1n

2087

ERR_TBL C.CCTLR, C_ERR _HRD] = .C_ERR_TBL [.CCTLR, C ERR_HRD] + 1.

SETPRI (PRI100);

2089
else

OF_RC = .OF_RC - 2;

5882

:
:

2095
2096

_end
until .OF_RC Llss O;

:
:

2098
2099

return SUCCESS;
end,

000000

2097

004137

000000G

! SET TO *‘TRAP NOT RECEIVED'’
! SET LOCATION 4 TRAP VECTOR ADDRESS
! READ REGISTER (THEN TRAP OR CONTINUE)
! DUMMY INSTRUCTION TO COVER TRAP RETURN BUG
(TRAP RETURNS TO NEXT INSTRUCTION)
!
! CLEAR LOCATION & TRAP VECTOR ADDRESS

! SKIP TEST FOR NEXT PASS

LSBTTL
REG.EXIST:

' REGISTER EXISTENCE TEST FAILED
! LOWER PRIORITY

! SET UP FOR IP REG OR QuiIT

REG.EXIST INITIALIZATION TEST ROUTINES

=lelelelelalolelelolol=] 20 -

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

<TM~
()
-]

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

IRQAM3
v01.2

SEQ 283

Page 27
VAX=11 Bliss=16 V3-555
(7)
:13
EJZRQABO.BL2
DISKSUSER2:[DIETZ.RELEAS

0 00000:000600000000000000000000000000080008008 0000000500 0600000%:000%00,

né6

21-Jul=-1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

123727
00

000002 0000006
88000

2051
2069
2071
2073
2077
2078

RDRX.ADDR,RO
OF .RC,RO
éRO).R1

2079

#4 RO
3
S1.NEX

#2,0F .RC
N EX
#340,=(SP)
#NEX.TRAP,=(SP)
#4,~(SP)
#3,-(SP)
37

18:

000003
0000006
0000006

2084

2087

2088

2089

2s:

H
H
:
H
H

2084
2086
2093
2076
2096

3s:

2063

4S:

0000006

CCTLR.RO

g.ERR.TBL(RO)

0000006

000010

0000006

000001
000

000166

000207

: Routine Size:

60 words,

RTS

SCODES + 1254
Routine Base:
9 words

Hax1mum stack depth per invocation:

«,TEMP

2080

0000006

000010
0000006

: DUMMY

000004

000002

SEQ 284

Page 28
VAX=-11 Bliss=16 V3-555
(7)
;15
BO.BL2
DISKSUSER2:[D1ET2.RELEASEIZRQA

:
:
:
:
:
:

R1,$SAVE?2
§§TRY+REASON,#5

0000006 000005

000001

2082

2051

L238388 &%

H
:
:

M
:

:
:

}gg

end;

0
;

123
124

125

126
127

if .ENTRY_REASON eql NEW_PASS

then

be?in

! LOWER PRIORITY
' SKIP TEST IF NEXT PASS

SETPRI (PR100);
return SUCCESS.

PRINTF (MSG_02);

! “FUNCTIONAL TEST STARTED''

}g%

I; INT_GEN () eql FALSE

! FORCE AN INTERRUPT

134

)

begin

2135

ERRDF~ (11, EGD_11, 07:

2138

end

2137

2139

2140
2141

%}2%

2146

:
:

2147
5}28

%}gq

2152

return FAILURE;

else

! IF INTERRUPT DID NOT OCCUR

ERR_TBL [.CCTLR, C ERR_HRD] = .C_ERR_TBL L[.CCTLR, C_ERR HRD]) + 1;

2136

g}fi%

.
begin

}g?

H
H

PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE
USER. A FORCED INTERRUPT SHOULD NOT OCCURR. THEN, BY LOWERING THE
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOULD OCCUR.

be?1n

PRINTF (MSG_03):;

SETPRI (.BRLEVEL);
ig INT_GEN () eql FALSE

then

" VECTOR TEST FAILED

MM G4sa0ie0020:.00000a00000000000000000000000e000000%¢00
%0000,

:
:

IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY SETTING THE

THIS POINT, THE EXERCISER MUST BE STARTED AGAIN.

BmAA

4
b)

"EXERCISER STARTED'' IS PRINTED AT ITS SUCCESSFUL CONCLUSION. IF
EITHER 'FUNCTIONAL TEST ...°" OR "EXERCISER ...’' DOES NOT APPEAR, THEN
PROGRAM CONTROL IS ASSUMED LOST AND A FATAL TRAP IS LIKELY TO OCCUR. AT

2
3

""FUNCTIONAL TEST STARTED'' IS PRINTED BEFORE THE TEST, AND

H
:

S
6

THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RDRX VECTOR ADDRESS GIVEN
BY THE USER DURING THE HW DIALOG IS VALID, AND (B) THAT THE
USER-SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT. THE FIRST
OBJECTIVE IS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO O AND FORCING
AN RDRX INTERRUPT. IF THE USER SPECIFIED AND INCORRECT VECTOR ADDRESS,
THEN THE RESULT MAY BE UNPREDICTABLE. FOR THIS REASON, THE MESSAGE

be?in

SETPRI (.BRLEVEL - %0'40°');
DELAY (1);

Z; .DCT_ADDR [SA_SAVE] neq 0
en

begin

! INTERRUPT DID OCCUR

! “EXERCISER STARTED'’

! SET PRIORITY TO ASSUMED BR LEVEL
' FORCE AN INTERRUPT (SHOULD NOT OCCUR)

! IF INTERRUPT DID NOT OCCUR

! LOWER PRIOR]ITY BY 1
' WAIT

! IF INTERRUPT DID OCCUR (SA_SAVE WOULD BE NON-ZERO)

‘e

2
3

SEQ 285

Page 29
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIET2.RELEASEIZROABO.BL2;15 (8)

:
:

routine VEC_BR_TEST =

AINLAIAI b
NI NN
AN NN NI NI N A NI PPN
NN D e
NN
b b cmd b wmd i b id o e D b b e
b D b e
D b

AININININIPIN)
b b d d b b b b d 2 O O O OO OO0 0O

:
:

NOAINIAL NN

21-Jul=1983 15:33:3 8
21-Jul=1983 15:23:3 8

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

ZRQAM3
v01.2

001003
000

end;

! COME HERE ONLY FOR BR TEST FAILURE

SETPRI (PR100);

C ERR_TBL [.CCTLR, C_ERR_HRD] = .C_ERR_TBL [.CCTLR, C_ERR_HRD] + 1;
ERRDF~(12, EGD_12, ERS_12);

return FAILURE;
end;

.GLOBL

LSOLY

SBTTL

VEC.BR.TEST INITIALIZATION TEST ROUTINES

VEC.BR.TEST:

MoV
TST
CMP8
BNE

000000G 000005

CLR

TRAP

0000006

000001

18:

000000V
0000006

0000006
000001

001236°
000000V

001236°
000040

MOV

MoV
MOV
TRAP
JSR
TST
BNE
MOV
ASL

INCB

000000G

162700

(8)

end;

TRAP

2$:

-WORD
-WORD
. WORD
B8R
MOV
Mov
MOV
TRAP
MOV
TRAP

R1,-(SP)

2100

ggTRY.REASON.OS

2123

RO
41
78
#MSG.02,-(SP)
#1,-(SP)

2126

=(SP)

SP,RO
17

2135
2136

.
EGD11
0
9s

#MSG.03, (SP)
#1,-(SP)

SP,RO

BRLEVEL ,RO

MOV

BRLEVEL ,RO

sus

2132

C.ERR.TBL(RO)
55

TST

BNE

: SP,«

2%
CCTLR,RO
RO

41
PC,INT.GEN
RO

JSR

2125
2130

PC,INT.GEN
RO

123727

DISKSUSER2:[DIETZ.RELEAS EJZRQABO.BL2;13

! ONLY SUCCESSFUL EXIT POINT

return SUCCESS;
end;

010146

005746

#40,R0

SP,e

VAX=-11 Bliss=16 V3=-555

SEQ 286
Page 3

! RESTORE PROCESSOR PRIORITY TO 0

SETPRI (PR100);

-t

b
b
b
b coP
)
ol
b el
) cnd ad
—

OONOO
OO N\
NN
= OO0
OSSN

INITIALIZATION TEST ROUTINES

[LSTLST, ST, N ,ST,NT,ST.NT,NT,NT.NT,NT,N1

(X TEIRIAIEIE TR PR TN YN YN F¥ ¥)

21=Jul=-1983 15:33:38
21=-Jul=-1983 15:23:38

RD/RX EXERCISER

IRQAM3
v01.2

000001

; *,$8TMP2

0000006

002066

000006

000224
000232

013700
006300
105260

2153

:
:

2150
2152

:
:

2140
2161

0000006

ggTLR.RO

2162

0000006

C.ERR.TBL(RO)
S5

2163

;

2100

9%:
108:

CMP
CLR
1ST

MoV
RTS

EGD.12
EMS.12
(SP)*.(SP)0
R
(SP)+

(SP)+ ,R1

Routine Base: SCODES + 1444
: Routine Size: 88 words,
: Maximum stack depth per invocation: 7 words

Y S, gy Sy S S

8$:

2150

. ST ome S SN S, sy S P, g, S

78:

i S

000006
000001

6$:

: $STMP2

. . P

0000006
000002

3$
DCT.ADDR,RO
2(R0)

062706
012700

43
R1

5¢:

: SSTMP
: $STMP1

000204
000210

013700
005760

4$:

: +,88TMP1

e o

000166
000172

000

6
LSDLY,RO
58
6(SP)
RO

000152

3s:

2148

e e e

€N

YOO

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

IRQAM3
v01.2

PN PR e FNE

SEQ 287

Page 31
VAX=-11 Bliss~16 v3-555
(8)
2;15
ABO.BL
SEIZRQ
.RELEA
[DIETZ
SER2:
DISKSU

N AN AN Y ANV AYOYOIOYO O OO

THE USER-SPECIFIED VECTOR ADDRESS AND BUS REQUEST INTERRUPT LEVEL.
A VALUE OF "‘TRUE'' IS RETURNED TO THE CALLER IF AN INTERRUPT OCCURS,
AND “FALSE'' OTHERWISE. THE INTERRUPT IS VERIFIED BY A NON-ZERO VALUE
IN THE "'SA SAVE'' WORD IN THE DEVICE'S DCT.
begin
local

! STORAGE FOR STEP 1 READ AND WRITE

SA : word;

! ZERO OUT SA SAVE WORD IN DCT
! WRITE IP TO START INIT SEQUENCE
! WAIT
! STEP 1 READ

DELAY (10);
SA = .RDRX_ADDR [RCSA, RC_ALLJ;

SA = (WR_RING * 8) or (.CORRENT_VECTOR * =2) or SA_INT;

! STEP 1 WRITE

WRT_RDRX (RCSA, RC_ALL, .SA);

! STEP 1 WRITE VALUE

. S S S, S, S SN, S SN S SN PN

DCT_ADDR [SA_SAVE] = 0;
WRT_RDRX (RCIP, RC_ALL, ALL_ONES):

incrbCOQNT from 1 to 1600 do
egin

DELAY (5);

! TOTAL DELAY COUNT OF 8,000

:; .DCT_ADDR [SA_SAVE] neq 0

! JF SA WAS CHANGED

end;

return TRUE;

! INTERRUPT OCCURED

' IF INTERRUPT DID NOT OCCUR

regurn FALSE;

BREAK;

end;

.SBTTL
INT.GEN:JSR
CMP

0000006
000002
177777
0000006

000012

000000G

000002

MOV
CLR
MOV
MOV
1$:

2s:
3s:

INT.GEN INITIALIZATION TEST ROUTINES
R1,8SAVE2
H
-(SP) ,=-(SP)

DCT.ADDR,RO
2(R0O)
#-1,R0

RO,8RDRX.ADDR

2183

; *,RC.REG
: RC.REG,*

2184

D e, $STMP2

MOV

#12,R1

ggg

%§DLV.RO

: +,$8TMP1

CLR

2(SP)

: $SSTMP

BNE

BEQ

DEC

2166

: $STMP1

: $STMP2

2185

o~ P o— S

COMPLETES THROUGH THE STEP 1 WRITE. ITS PURPOSE IS TO CREATE AN RDRX
INTERRUPT (AT THE COMPLETEION OF STEP 1) IN ORDER TO HELP VERIFY THE

e e e e . . o~ 2. o~

b wnd b b

0 00 00 00

000000000
NN NNNNNNNVOOOOn

NI NI NI NI NININI AL NN
AN N AL N NN NI NI NN NN AN NN NN
b md b o D e b b b b D b nd b nd e e e D D e

THIS ROUTINE BEGINS AN RDRX INITIALIZATION SEQUENCE, BUT ONLY

0000006

00
001374
005301

SEQ 288
32
Page
VAX=-11 Blis;=16 V3-555
(9)
13
O.BL2:
DISKSUSER2: [DIETZ.RELEASE JZROAB

routine INT_GEN =

b b cmd
b e b e

Ng—fl
288

AN AR

IRAL L T
TRTR TR YR TR
T TR
T
T T
T
T
R A
TR PR R R I R
R
T
T P

21=Jul-198 3 15:33:38
21-Jul=198 3 15:23:38

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

IRQAM3
v01.2

£ IN

SEQ 289

Page 33
VAX=11 Bliss=16 V3-555
3 (9)
O.BL2;1
DISKSUSER2:[DIETZ .RELEASEJZRQAB

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

48:

0000006
000002
1234"

RDRX.ADDR,RO
2(RO), (SP)
g?RRENT.VECTOR,R1
n1

o1i1zoo R2

111200

R2.R
R1, Z(RO)

000002
003100

#3100.R2

5¢:

000005

#5,R1
93

6$:

0000006

LSDLY,RO
8s
2(SP)

78:

000002

RO
78
R1
63

8$:

22
DCT.ADDR,RO
2(RO)

9s:

0000006
000002

108
#1,R0

000001

11i

108:

000200

118:

022626
000207

: Routine Size:

65 words,

Routine_Base:

Haxtmun stack depth per invocation:

7 words

SS
RO
RTS

(SP)+,(SP)+

$CODES + 1724

: RC.REG
.

: *,SA
s +,SA

: SA,RC.REG

K RC.REG.'

s «,COUNT

st SSTHPZ

2186
2187
2188
190

2192

; «, $8TMP1
: SSTMP

: $STMPI

: $STMP2

2195

2197

; COUNT

2190

2178

2166

!
!
!
!
E

NN
cooD

NN
N

b
—

begin
local

IE_VEC : word:

IE_VEC = .CURRENT_VECTOR * <2;

! JE-B]1T-AND=VECTOR=-ADDRESS/4 BYTE
!

(USED IN STEP 1 WRITE AND STEP 3 READ)

! GFT VECTOR ADDR/& (1E = 0)

incr AT[EHPTS from 1 to INI_ATT do

begin

Label
STEP_1_READ,
STE
2 READ,
P
STEP_3_READ,
STEP_4_READ;

T 1] TR
PR PRTR YR TR

THIS ROUTINE PERFORMS THE FOUR READ / WRITE STEPS REQUIRED TO
INITIALIZE AN RDRX DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY OF
THE FOUR STEPS, THEN A SUCCESS VALUE IS RETURNED TO THE CALLER.
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE.
1F ALL ATTEMPTS FAJL., A FAJLURE INDICATION IS RETURNED.

WRT_RDRX (RCIP, RC_ALL, ALL_ONES):

STEP 1 READ

)

' WRITE IP TO START INIT SEQUENCE

STEP = 1;

STEP_1_READ:

begin

incrbCOQNT from 1 to 100 do

ETETET AR I E T I

ST
S YA

egin

gsf:z (5);

! TOTAL DELAY COUNT OF S00 FOR STEP 1

SA_RE& = .RDRX_ADDR [RCSA, RC_ALLJ;

! READ SA

:; (.SA_REG and S1_MASK) eql SA_S1

! JF STEP 1 READ IS 0.K.

leave STEP_1_READ;

end;
exitloop;
end;
]

;

STEP 1 WRITE

e 0aBa®a®eBoBata®a ..-...-...-...0.oo....o..o.n.-.o.oOo000.000000000.“000000.0““o..o.aOo0.o- e 0e®e®e vo 0,

] +

TR PRPR TR TR

VAX-11 Bliss=16 v3-555

SEQ 290

Page 34

DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2;13 (10)

routine HARD_INIT =

R
TRE

21=Jul=21=-Jul-

(¥ 1V ]

INITIALIZATION TEST ROUTINES

hodod
b de
W

RD/RX EXERCISER

AR R EN R ET E EO

R I E PR PRYR YN PR TR PRIR Y TN ¥

ZRQANM3
v01.2

7
-

INITIALIZATION TEST ROUTINES
.

SA_REG = (WR RING * 8) or .IE VEC:
WRY_RDRX (RCSA, RC_ALL, .SA_REG);

STEP 2 READ

)

STEP = .STEP + 1;

$1-Jul=1983 15:23:38

VAX=11 Bliss=16 V3=-5:5

' STEP 1 WRITE VALUE
i STEP 1 WRITE

incrbCOQNT from 1 to 2000 do
egin

DELAY (5);

' TOTAL DELAY COUNT OF 10,000 FOR STEP 2

SA_REG = .RDRX_ADDR [RCSA, RC_ALL);

! READ SA

BREAK;

if (.SA_REG and S2_MASK) eql (SA_S2 or WR_RING) ! IF STEP 2 READ IS 0.K.

then

leave STEP_2_READ;

end;

exitloop:
end;

[}

;

STEP 2 WRITE

;

WRT_RDRX (RCSA, RC_ALL, .DCT_ADDR CRR_BEG));

STEP 3 READ

)

STEP = .STEP + 1;

! RINGBASE-LO, PI = 0

STEP_3 READ:

begin

incr COUNT from 1 to 2000 do

3§Efil (5);

' TOTAL DELAY COUNT OF 10,000 FOR STEP 3 READ

SA_ REG= .RDRX_ADDR [RCSA, RC_ALL);

! READ SA

;;QA.SA_REG and S3_MASK) eql (SA_S3 or .IE_VEC) ! IF STEP 3 READ IS 0.K.

T E

leave STEP_3_READ;
end;

::;Eloop:

;

STEP 3 WRITE

SEQ 291

Page 35

DISKSUSER2: (DIETZ.RELEASEJZROABO.BL2;13

STEP_2_READ:
egin

AR E I E A
R R IR I AR
[T

21-Jul=-1983 15:33:38

(10)

R TN

RD/RX EXERCISER

TR I E TR A TR I A YR T A TR IRTR XN ¥ 00 00000300000 W, 000300 00% 00020009 T B0 00000000000 %00,

ZRQAM3
v01.2

8000000060080 00000000000009000000000000080000000000000000000800000000002000000000s [ TEFYRIRTE TR YR PRTR

21-Jul-1983 15:33:38
21-Jul=-1983 15:23:38

RD/RX EXERCISER

IRQAM3
v01.2

INITIALIZATION TEST ROUTINES

SEQ 292
Page
36
V3-555
VAX=-11 Bliss=16
(10)
135
2;
B0.BL
JZRQA
R2:
[(DIETZ .RELEASE
DISKSUSE

! PP, RINGBASE=HI = 0

WRT_RDRX (RCSA, RC_ALL, 0);

N ¥

YRXN

STEP & READ

TEYRIRIERIEIE IR TR

STEP_4_READ:
egin

ince COUNT from 1 to 2000 do
begin

DE AV (5);

BREAK
SA_ REG .RDRX_ADDR [RCSA, RC_ALLI;

TRLN T [

if (.SA_REG and S4_MASK) eql SA_Sé

then

! TOTAL DELAY COUNT OF 10,000 FOR STEP & READ

! READ SA
! IF STEP & READ IS 0.K.

leave STEP_4_READ;

I R IR

end;

exitloop;

PRI

end;

STEP & WRITE

IR R

WRT_RDRX (RCSA RC_ALL, 0);
return SUCCESS;

! START WITH A CREDIT BALANCE = 1
! BURST, LF, GO = 0
! SUCCESS EXIT POINT

end;

! TRY AGAIN OR GIVE UP

RR R

A I

CREDIT BAL = 1;

! NO CREDIT BALANCE

CREDIT BAL = O;

IR T R

C_ERR_TBL [. CCTLR, C_ERR HRDJ .C_ERR_TBL [.CCTLR, C_ERR _HRD] + 1;

Ekaor (13, EGD_13, ERS_1

i INIT SEQUENTE FAILED

return FAILURE.

! ROUTINE HARD_INIT

end;

0000006

.SBTTL

HARD, INIT:

JSR

000012
001234°

0000006G
000001 000000G
000144
000005

013700

0000006

1$:

2s:

R1,$SAVES

CURRENT.VECTOR, R4
R4

:
:
+
:
:

Sus
MOV

#12,5P

MOV
MOV

02 RS
1.R0
ao SRDRX .ADDR

ASR
ASR

000002
177777

HARD.INIT INITIALIZATION TEST ROUTINES

MOV
MOV
MOV
MOV

BEQ
MOV

#1.STEP

«,IE.VEC
IE.VEC
IE.VEC
«,ATTEMPTS
*.RC.REG

: RC.REG,*
:

c144 R2

+ =, COUNT

LSDLY,RO

: +,88TMPY

ss
5,R1

T . $STMP2

OOCOOOOOOOOOOOOOOOO0OOOOCOOOROORROOROPPRRRILRSR

PRTR TR

STEP = .STEP + 1;

SEQ 293
Page 37

INITIALIZATION TEST ROUTINES

0000006
000002 000006
000006 0000006
000006
001777
004000

3s:

; $SSTMP
; $$TMP1

4$:

; $$TMP2

5$:

RDRX.ADDR,RO
2(R0) ,6(SP)
6(SP)
. SA.REG
6(SP) -RO
#M777°R0

RO, #4000

68
R2
1$

0000006
111000 0000006
0000006
0000006
000002
0000006
003720
000005

0000006

000010

0000006
000002 000004
000004 0000006
000004
003400
010222

+,RC.REG
RC.REG,*
SA.REG,*

6$:

248
R4 ,SA.REG

#111000, SA.REG
SA.REG,R1

RDRX.ADDR,RO
R1,2(RO)

c IE.VEC,*

2221
2255

2256

% ,RC.REG

: RC.REG,*

: SSTMP
: SSTMP1

108:

; $STMP2
RDRX.ADDR,RO
(SP)
, 40)
2(R
4(SP) .SA.REG
4(SP) ‘RO
#3400 R0

RO, #10222
12$

R2
7$

12%:

* ,RC.REG
RC.REG,*

*
SA.REG,

. COUNT

26%

DCT.ADDR,RO

4(RO) ,R1
RDRX.ADDR,RO
R1,2(R0)
STEP

* *,RC.REG
2 RC.REG,*

R4 R3

* IE.VEC,*

#3720,R2

: «,COUNT

#20000,R3

138:

2260
2266

; *,$$TMP1

9%:

118:

2243

: COUNT

s *,COUNT
; *,$8TMP2

7%:
8s:

2241

2245
2237

LA TR TR Y]

000010

(10)

#5.R1

: ¢, $S$TMP2

2268

2270
2272
2264
2221
2282

2286
2296
2290
2292

OO0 00000000000ROORORRRLRLRRLRRRRLALRLARNRIARVIKLIAIRX

VAX-11 Bliss=16 Vv3-555
DISKSUSER2:[DIETZ.RELEASE JZR0OABO.BL2;13

RD/RX EXERCISER

000010

14%:

178
%$DLY.R0

15%:

10(SP)
R

178:

RDRX.ADDR,RO

2(R0) ,2(SP)
2(SP) ,SA.REG
2(SP) ,RO

#3400,R0
RO,R3

18$

18%:

R2
138
268

#3720,R3
55.R1

: +,$8TMF2

22%:

; $$TMP2

: $STMPI

RDRX.ADDR, RO
(SP) ‘RO

#3777 .R0
RO,#40000

25$
R3

248:
25%:

108

26%
:}.CREDIT.BAL
RDRX.ADDR,RO
2(R0)

0000006

: «,COUNT

: $SSTMP

(SP),SA.REG

0000006
0000006

; COUNT

; *,$8TMP1

2(RO), (SP)

0000006

*,RC.REG
*
RC.REG,
SA.REG,

21$:

23$:

000001

: $8TMP

RO
RDRX.ADDR,
)
2(R0
STEP

198:
208:

: SSTMP

; $$TMP2

16$:

0000006
000002 000002
000002 0000006
000002
003400

; +,$8TMP1

26$:

27
CREDIT.BAL
CCTLR,RO

C.ERR.TBL(RO)

* ,RC.REG

RC.REG,*
SA.REG,*

s COUNT

* RC.REG

INITIALIZATION TEST ROUTINES

" SEQ 294
Page 38
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASE JZRQAB0.BL2:15 (10)

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER

0000006

OO0 OOOROORRPRROPRRRRRLRLRRRILVRRL

104455
000015
0000006
0000006

000620
000624

062706
000207

005000

: Routine Size:

27¢:

000012
203 words,

Routine Base:

: Maximum stack depth per invocation:

13 words

TRAP
JMORD
'WORD
WORD

55
15
EGD.13
EMNS.13

ADD
RTS

#12,SP
PC

(LR

$CODES + 2126

2341

2212
2202

)
]

00008090 000000000000000000000300000009s 0000908000,

000606
000610
000612
000614

SEQ 295

Page 39
VAX=-11 Bliss~16 V3-555
DISKSUSER2: [DIETZ.RELEASE JZR0AB0.BL2;13 (10)

elel=]l=lelolelelolelolelele]

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

ZRQAM3
VO1.2

000616

21-Jul=1983 15:33:38
21-Jul-1983 15:23:38

YRPR

FILL AN RDRX RESPONSE RING. THE BUFFER DESCRIPTOR OF EACH PACKET
(LOCATED IN FRONT OF THE PACKET ITSELF) IS LOADED INTO SUCCESSIVE
RRING SLOTS. NOTE THAT THE BUFFER DESCRIPTORS HAVE BEEN INITIALIZED

PR PR PRTR PR PR

WITH THE FLAG AND OWNERSHIP BITS SET TO °'1'', MAKING EACH SLOT
CONTROLLER-OWNED.
IMPLICIT INPUTS:

PRP TR PR

CCTLR = CURRENT CONTROLLER NUMBER
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT

begin

P T PR T PR
S P T

local

incr COUNT from 1 to RRING_LEN do
bealn
index = GET_PKT (.CCTLR);

index : word,
RRING_ADDR;

! FIRST RESPONSE RING SLOT

.RRING_ADDRTM= .MSCP_PKT [.index, PKT_L0J;

I T T T S

RRING_ADDR = .RRING_ADDR + 2:
.RRING_ADDR = .MSCP_PKT
[.index, PKT_HIJ);
PKT_USE [.index) = .CCTLR;
!
.RRING_ADDR = ..RRING_ADDR or ED_OWN or ED_FLAG;'!
!
RRING_ADDR = .RRING_ADDR + 2;
end;

2378

004137
013700

LOAD HI-ORDER BUFF DESC INTO SLOT
PACKET IN USE
GIVE OWNERSHIP TO CONTRLLER
ADVANCE TO NEXT SLOT

end;

0000006

.SBTTL

INI.RRING INITIALIZATION TEST ROUTINES

JSR

R1,$SAVES

MOV

4(R0) ,RG

: «,RRING.ADDR

R3,=(SP)

INI.RRING:

DCT.ADDR,RO

2365

:
: *,COUNT

2369
2367

0000006
0000006
000004

MOV
MOV

CCTLR.R3
#4,R2

JSR
MOV

PC.GET.PKT
RO.R1

MOV

#104,-(SP)

0000006

MOV

MSCP.PKT(RO), (R4)+

: *,RRING.ADDR

0000006

MOV

CCTLR,R3

000004

000104

0000006

0000026

1$:

MOV

JSR

MOV

R1, (SP)

PC.BLSMUL

MSCP.PKT+2(R0), (R®)

2344

MOV

0000006

013703

GET AN MSCP PACKET
LOAD LO-ORDER BUFF DESC INTO SLOT
ADVANCE TO SECOND WORD

: +, INDEX

: INDEX,

: *_RRING.ADDR

2369

2370

2372

2373

<N
o

-...o.-...o.............uuuunnnnuuuuuuuuunno-o-u-.o.u- e we

THIS ROUTINE 1S RESPONSIBLE FOR ALLOCATING ENOUGH MSCP PACKETS TO

AT TA A

RRING_ADDR = .DCT_ADDR [RR_BEG]:

SEQ 296

Page 40
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL2;15 (11)
VAX=-11 Bliss=-16 V3=555

routine INI_RRING : novalue =

21=Jul=1983 1 :3 3:38
21=Jul=1983 1 :2 3:38
AV, 2%,

RD/RX EXERC.SER
INITIALIZATION TEST ROUTINES

PRLR LR TN

ZRQAM3
v01.2
)

000100

110361
052726
022626
005302
001352
000207

0000006
140000

Move
81§
CMP
DEC
BNE
RTS

R3,PKT.USE(R1)
(R4) ¢+
#140000,
(SP)+,(SP)+
R2
1$
PC

Base: S$CODES ¢+ 2754
Routine
: Routine Size:
33 words,
0
invocation:
words
per
8
depth
stack
Maximum
:

VAX=11 Bliss=-16 V3=555

DISKSUSER2: [DIETZ.RELEASE
v, «(INDEX)
* ,RRING.ADDR

COUNT

SEQ 297
41

Page

13 (11)
J2R0AB0.BL2:

2374
2368
2367
2344

0000000000 0s0000 000,

000062
000066
000072
000074
000076

21=Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

IRQAM3
v01.2

000000000000 000000 000000000000 08009080 0800480 00 000000000000 05000080000000000005090

routine SET_CTLR_CHAR =
‘e

i
i
;

THIS ROUTINE IS CALLED BY CTLR_INIT AFTER THE RDRX HAS BEEN HARD=
INITIALIZED. ITS PURPOSE IS TOTFORMAT AND SEND THE ‘‘SET CONTROLLER
CHARACTERISTICS'® COMMAND, AND TO VALIDATE THE RESPONSE (END MESSAGE).

IMPLICIT INPUTS:

;

CCTLR - CURRENT CONTROLLER NUMBER

begin
‘e

;

MISCELLANEOUS INITIALIZATON

QI0 C.CCTLR] = 0;

! INITIALIZE NO. OF OUTSTANDING QIO0S

incr COUNT from 0 to (RP CNT - 1) do
=
RP_USE [.COUNT]

I0DQ_IN = I0DQ_OUT = 0;

! INITIALIZE 1/0 DONE QUEUE POINTERS

INITIALIZE RETURN PACKET POOL

YR
YRS R TR T 2] TR
R PR PR PRYR PR YR LA
TR IR
A
AR
IRIRIR IR

= GET_PKT (.CCTLR);
P_INDEX

GET AN MSCP PACKET

MSCP_PKT [.P_INDEX, OPCODE]_= OP_SCC.

OPCODE = SET CTLR CHAR
CONTROLLER FLAGS
IMMEDIATE COMMAND

M3CP_PKT C.P_INDEX, MSGLEN] = SZ_SCC:

MSCP_PKT [.P_INDEX, C_FLAGS])=cr MASK;
MSCP_PKT L.P_INDEX, cno TYPE]= IMM_CMD;
if SEND (.P_INDEX) eql FAILURE

then

! ATTEMPT SEND

' IF SEND WAS UNSUCCESSFUL

[.CCTLR, C_ERR_HRD] + 1;
ERR TBL C.CCTLR, C_ERR_HRD]= .C_ERR_TBL
I FATAL ERROR
EkRDF (20, EGD 20, 07;
i RETURN PACKET TO POOL
PUT_PKT (.P_INBEX 3;

DROP_CTLR (TCCTLR, DU_CFATAL);
return FAILURE;

else

PACKET SIZE

end

! IF SEND WAS SUCCESSFUL

begin

i DROP CONTROLLER

begin
WAIT ();
RP_INDX = OUT_I0DQ ()

! WAIT FOR RETPKTY RESPONSE
! GET INDEX OF RETPKT
RPZADDR = RETPKT + RP INDX * RP_ LEN * 2); ! CALCULATE RETPKT ADDRESS

I; .RP_ADDR [MESTYP] neq MT_SEQ
en

PUT_RETPKT (.RP_INDX);

! RETURN ALL RETPKTS NOT SENT BY CONTROLLER

«—~

VAX=-11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE JZRQAB0.BL2;13 (12)

A . ST AW S sEn se S S S, U SN SR gin, TRy SRR gem, gy ST gEN g S SR YOI

21-Jul=1983 15:33:38
21-Jul-1983 15:23:38

. . A A e A . .L L

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

R T RS

A TRTR PR TR TR IR IRIR TRLRLN PR XN X [ TRYN TR Y]

ZRQAM3
v01.2

SEQ 298
42

Page

21=Jul=1983 15:33:38

RD/RX EXERCISER

ZRQAM3
v01.2

21=Jul=1983 15:23:38

DISKSUSER2:(DIETZ.RELEAS EJZROABO.8L2;135

(12)

end

YR YRR TN PR TN VR T N L

until (.RP_ADDR C[CONID]) eql CID_DRIVER) or
((.RP_ADDR [MESTYP] eql MT_SEQ) and

be?in

PRINTF (DBMZ23);

! "ERROR IN SET_CTLR_CHAR''

DR_ERR ():

! DROP CONTRN LER

else

! RELEASE RETURR PACKET

PUT_RETPKT (.RP_INDX);
return FAJLURE;
end

! ELSE = RETPKT IS FROM DISK MSCP

begin

A T L PR YR T X (R EITERI R

it (.RP_ADDR [ENDCOD] neq (OP_SCC or OP_END)) or
h ((.RP_ADDR [C_FLGS] and CF_MASK) neq CF_MASK)
en

! JF WRONG ENDCODE
! OR FLAGS IN ERROR

then

! IF RETPKT IS FROM ‘DRIVER'

i; .RP_ADDR [CONID] eql CID_DRIVER

((.RP_ADDR [ENDCOD] and OP_END) eql OP_END));

begin

C_ERR_TBL [.CCTLR, C_ERR_HRD] = .C_ERR _TBL [.CCTLR, C_ERR_HRD] + 1;

ERRDF~ (21, EGD_21, ERS_2T);

! FATAL ERROK

PUT_RETPKT (.RP_INDX);

! RELEASE RETURN PACKET

DROP_CTLR (.CCTLR, DU_TFATAL);
return FAILURE;

AT ETR YR

else

! DROP CONTROLLLR

end

begin
! RETPKT HAS CORRECT ENDCODE
CMD_TIME = .RP_ADDR [C_TIME] « 2;
:; (.SWP_FLAGS and SWF_TRC) eql SWF_TRC

PRINTF (DBM25, .RP_ADDR [C_TIME]);

E T A

end; -

! RETPKT HAS CORRECT ENDCODE

! IF RETPKT WAS SENT BY DISK MSCP

R AT

end;
PUT_RETPKT (.RP_INDX);

regurn SUCCESS.;

! IF SEND WAS SUCCESSFUL

end;

R
[

Y en T e Y P

N ¥

INITIALIZATION TEST ROUTINES

VAX=11 Bliss=16 V3=555

SEQ 299
Page 43

o M

2475

! ROUTINE SET-CTLR_CHAR

end;

013701
0
112760

JSBTTL

SET.CTLR.CHAR INITIALIZATION TEST ROUTINES

MOV

R1,-(SP)

CLRB

QI0(RY)

#377 ,RP.USE (RO)

: *,«(COUNT)

SET.CTLR.CHAR:

010146

0000006

MoV

0000006
000377

0000006

1$:

CLR

Move

CCTLR.R1

; COUNT

2379
2397

2399

2400

: COUNT,»

0000006
0000006
PC.GET.PKT
RO.P. INDEX

0000006
000000G

RO (SP)

#0104,~(sP)

000104
0000006
000040 0000066
000004 0000226
000120 0000306
0000046
0000006
0000006

#40.MSCP .PKT+6(R0)

22
(RO)
#6 ,MSCP.PKT+

#150,MSCP.PKT+30(RO)
(RO)
MSCP.PKT+4
(SP)
P. INDEX,
PC,SEND

0000006
0000006
000000G
000006
0000006

PC,PUT.PKT

CCTLR, (SP)

2$:

000407

2405

: P.INDEX,*

2406

H
H
H
H

2407
2408
2409
2611

2614

2415

2416

2617

:
H

2413
2390
2425
2426

RO.RP. INDX
RO (SP)

; RP.INDX,*

2427

PC,BLSMUL
#RETPKT
RO
RO,RP.ADDR
c§60.2<a0)

2429

2431

:
H

2424
2434

3
RP.INDX, (SP)

3s:

000003

#6,=(SP)
PC.DROP.CTLR
(SP)+
RO
118
PC,WAIT
PC.OUT.10DQ

#60,-(SP)

000060
0000006
0000006
0000006
000360 000002

000003

0000006

2402

23
CCTLR.RO
RO
C.ERR.TBL(RO)
55
264
EGD.20
0
P. INDEX, (SP)

0000006
0000006

2399

PC,BLSMUL

0000006

0000006
0000006
0000006

’

PC,PUT.RETPKT
(SP)+

RP.APDR,R1

3(R1) .43

43
RO

000003

; COUNT

Bae@aBafafoalaealaoatoetaleoBa®o0e0atsGe®e0eto
s oso0

INITIALIZATION TEST ROUTINES

RD/RX EXERCISER

SEQ 300

Page 44
VAX-11 Bliss=16 Vv3-555
(12)
:13
BO.BL2
DISKSUSER2:[DIETZ.RELEASEIZRQA

21=-Jul-1983 15:33:38
21-Jul~1983 15:23:38

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

132761
001333
105761
100330
006000
103015
012716

012746
0600

000360

000002

4(S:

000014
5%:

0000006
000001

2s
14(R1)
2%
RO
63
#DBM23, (SP)
SP,RO
17
RP. INDX, (SP)

PC,PUT.RETPKT
Pg.DR.ERR

000204

6$:

000022

0000006

;6(R1)N204
s
22(R1) ,RO

#177657 R0

177657
000120

SEO 301

g 45
VAX=11 Bliss=16 Vv3=555
(12
.BL2;13
IZRQABO
DISKSUSER2: [DIETZ.RELEASE

2435

2436

2438

24641

: SP,r

;

2442

H
:
H

2443
2438
2449

2450

2453

24654

2455

2456

H
:
H

2449
2452
2461

2463

2465

RO,#120

7$:

gCTLR.RO

C.ERR.TBL (RO)
55
25
EGD.21
.
EMS21
CCTLR, (SP)

0000006

8s:

#6,=(SP)
PC.DROP.CTLR
RP. INDX. (SP)
PC.PUT.RETPKT
#6.SP

12§

24(R1) .CMD. TIME

000024 0000006
0000006
000001 0000006

CMD. TIME
01‘SUP.FLAGS

10
24(R1) ,(SP)
#DBM25,=(SP)

000024
0000006
000002

0000006
0000006
000001

#360,2(R1)

#1,-(SP)

000000V

000014

#2,=(SP)

10$:
11$:

12$:
138:

SP,RO
17
(SP)+,(SP)+
RP. INDX, (SP)

PC.PUT.RETPKT
#1,R0

(SP)+,(SP)+
138

(SP)+ ,R1

s SP,*

24N

:
:
:
:

2390
2379
2390
2379

< I~

IRQAM3
v01.2
: Routine Size:

21=Jul~1 983 15 33:38
21=Jul~1 983 15 23:38

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES
183 words,

Routine Base:

; Maximum stack depth per invocation:

7 words

$CODES + 3056

VAX-11 Bliss=16 V3-555

SEQ 302

Page

DISKSUSER2: [DIETZ.RELEASE JZRQABO0.BL2;13 (12)

MESSAGE, AND TO VERIFY THE RESPONSE.

IMPLICIT2INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER
CDISK = CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
LSLUN ~ CURRENT (DRS) UNIT NUMBER

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

begin

P INDEX = GET_PKT (.CCTLR);

! GET AN MSCP PACKET

MSCP_PKT C.PTINDEX, DK_NUM) = .CBISK:
MSCP_PKT [.PZINDEX, OPTODE] = OP_ONL:
MSCP_PKT C.PTINDEX, DDPAR] = BITD0;

i SET DISK ADDRESS (RD/RX DISK NUMBER)
i OPCODE FOR '‘ONLINE'’
i SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES

2; SEND (.P_INDEX) eql FAILURE

! ATTEMPT TO SEND; IF CTLR IS OFFLINE

MSCPTPKT C.PTINDEX, CMD_TYPE) = SEQ_CMD;

i PACKET SIZE

| SEQUENTIAL COMMAND

beain

T_ADDR [ERR_HRD MST] = .T_ADDR [ERR_HRD_HST] ¢ 1;
¢ST _ADDR C.TUOFF, D _FATALY = TRUE;
' FATAL ERROR

ERRDF (22, EGD_22, D);
3

VWA WVWA

PNINIAON)
b b o b b e e = b b
W
=0 VB~ NS WN—=O

WAV A WVIVAIWVIVAW wViwaw

NNLNINI NN
NN

DUR C.LSLUNJ ="DU_ONLINE;

else

i SETUP REASON TO DROP UNIT

DODU (.LSLUN);
PU;_PKt (.P_INDEX);

i DROP UNIT
i RETURN PACKET TO POOL

begin

! OTHERWISE (SEND WAS SUCCESSFUL)

beqgin

DISKSUSER2: [DIETZ.RELEASEJZROABO.BL2; 15 (13)

THIS ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONFIGURED UNIT
"
(DISK) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED
INITIALIZATION. ITS PURPOSE 1S TO FORMAT AND SEND AN '‘ONLINE

MSCP_PKT [.P_INDEX, MSGLEN] = SZ_ONL:

SEQ 303

Page

oo
o

[V
ad
sl
(1.

oo
ve

oW
W

-l

LY
LY

VAX-11 Bliss=16 V3-555

routine UNIT_INIT : novalue =

A I EYEIETATE IR TN TRPR PRPR LA L TN 13
e 0o 808 000000 08,%c 0B 000%¢ 003 0,.% 0000000000005 80 %005 %080 00 890,000, (IR IR

21=Jul-

INITIALIZATION TEST ROUTINES

21=Jul-

hodod

RD/RX EXERCISER

ZRQAM3
v01.2

8
-l

wAlT O);
RP_INDX = OUT_IODQ ();

' WAIT FOR RETPKT RESPONSE
i GET INDEX OF RETP

if RP_ADDR [MESTYP] neq MT_SEQ

' RETURN ALL RETPKTS NOT SENT BY CONTROLLER

RPTADDR = RETPKT + (.RP_INDX * RP_LEN ¢ 2); ! EACCULATE RETPKT ADDRESS
PUT_RETPKT (.RP_INDX);

unti¢.RP_ADDR [CONID] eql CID_DRIVER) or

((.RP_ADDR [MESTYP) eql MT_SEQ) and
((.RP_ADDR CENDCOD] and OP-END) eql OP_END));

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES
W =0
=S OOVBVNOWVS

i; .RP_ADDR [CONID] eql CID_DRIVER

then

be?in

PRINTF (DBM26);

DR _ERR ();

else

end

! "ERROR IN UNIT_INIT

! DROP CONTROLLER

;;.RP_ADDR CENDCOD] neq (OP_ONL or OP_END) ! IF RETPKT IS FROM DISK MSCP
en

ioon CERR_HRD DRVJ = .T_ADDR CERR_HRD_DRV] ¢ 1;

csT_ADDR C.TUOFF, D rArALJ TRUE;T FATAL ERROR

ERRBF (23, EGD_25,EmMS 21);
DUR C.LSLUN] =“ou_*ONLIRE;

DODU (.LSLUN);

else

end

! SETUP REASON TO DROP UNIT
! DROP UNIT

begin
ST_CODE = .RP_ADDR [STSCODJ;

! RETPKT HAS GOOD ENDCODE
! GET STATUS CODE

1;.ST_CODE neq ST_SUC

! IF STATUS CODE IS NOT SUCCESSFUL

SB_CODE = .RP_ADDR [Sus(OD];

553

' If RETPKT IS FROM 'DRJIVER'

t en

! GET SUB-CODE

iT ooa CERR_HRD DRV]= .T_ADDR CERR_HRD_DRV] ¢+ 1;

¢ST ADDR [.TUOFE, D FATALY= TRUE:
DUR [. LSLUNJ ="DU_ONLIRE; ~ | SET UP REASON FOR DROPPING UNIT

ERRDF (15, EGD_ 15, EMS_30): ' ONLINE FAILED
DODU (.LSLUN);

561

else

end

i DROP UNIT

it ((_RP_ADDR C[U_FLGS] and UF_WPH)
e
uflé UF WPH) and

h (.CSTTADDR[.TUOFF, D_PROT] egl
en

! STATUS CODE IS O.K.

gT oon CERR_HRD DRVJ = ADDR [ERRHRD_DRV] + 1;
¢37T_ADDR C.CUOFF, D FATALY
=
DUR [. LSLUNJ

16. Ens 30);
ERRDF (16, EGD_~DU_PROTECT;
DODU (.LSLUN);

else

ROTECTED)

end

! WRITE-PROTECT CONFLICT

! SET REASON TO DROP UNIT
! DROP UNIT

2
= .RP_ADDR CUSIZ LO] - 1;
MAX_LBN [.LSLUN]

CST_ADDR {.CUOFF, D_STAT) = ONLINE;
CSTL.CCTLR, U_CNTITM= .CST [.CCTLR, U_CNT] + 1;

! WRITE PROTECT SWITCH IS O.K.
! LARGEST LBN

end;

end;
PUT_RETPKT (.RP_INDX);

' IF RETPKT HAS CORRECT ENDCODE

P Ve telalelalalalal®=lale|®lay
o] =

ST NT NT ST ST NI ST N NN STV

VIV AWML

e 0e®e Vs 8s000,8s%0 00 800083 800000000, % V0380000000000V 0900809000%¢%0000, %00 [ YR YRIETITEIETE TR I I N TN T

ZRQAM3
v01.2

SEQ 304

Page 48
VAX=11 Bliss=16 V3=-555
13 (13)
DISKSUSER2: [DIET2.RELEASE JZROABO.BL2:

21=Jul=-1983 15:33:38
21-Jul=-1983 15:23:38

! IF SEND WAS SUCCESSFUL

end;

! ROUTINE UNIT_INIT

end;

.SBTTL

0000006

UNIT.INII;R

0000006
0000006
0000006

MOV
JSR
MoV
MoV

000104
0000006
000044 0000066
0000006 0000166
000011 0000226
000001
0000466
000001 0000046
0000006
0000006

MOV
JSR
MOV
MOV
MOVv8
MoV
MOV
MOV
JSR

0000006
000063
0000006

MOV
INCB
MOV

TST
BNE

ASL

ADD
8IS

0000006
010000

TRAP

.WORD
.WORD
.WORD

MOV
MOV8

0000006
000007 0000006
0000006
0000006
004534*
0000006
0000006
0000006

TRAP

18:

0000006
0000006
013701

0000006

2%:

;
:

2476
2494

: P.INDEX,*®

2495

:
:

26496
2497

T.ADDR.RO

2504

ggorr,ao

2505

2506

LSLUN,RO

2507

2508

2501

: RP.INDX,+

2518

R1,$SAVE3
CCTLR,=(SP)
PC,GET.PKT

RO.P. INDEX

RO, (SP)

#104,-(5P)
PC,BLSMUL

244 MSCP.PKT+6(R0)
CDISK,MSCP.PKT+16(RO)
#11.MSCP.PKT+22(R0)
#1,MSCP.PKT+46(R0)
#1.MSCP.PKT+4(RO)
P. INDEX. (SP)
PC.SEND

:
:
:

2498
2499
2501

RO
1$

63(RO)

CST.ADDR,RO

#10000, (RO)

26
560.22
#7.DUR(RO)

MOV
JSR
JMP
JSR
JSR
MOV

P. INDEX, (SP)

MOV
JSR
ADD
MOV
géga

#60,-(SP)

5260.2(R0)

;

2520

MOV
JSR
TST
MOV

RP. INDX, (SP)

2522

(SP)+
RP.ADDR,R1

:
:

2515
2525

MOV

000060
0000006
0000006
0000006
000360 000002

UNIT.INIT INITIALIZATION TEST ROUTINES

PC,PUT.PKT

11$

PC,WAIT
PC.OUT. 10DQ
RO_RP. INDX

RO (SP)

:
:

2509
2516
2517

PC,BLSMUL
#RETPKT,
RO
RO,RP.ADDR

PC.PUT.RETPKT

ORLRPPIVLRILY

INITIALIZATION TEST ROUTINES

COOOOCY

21=Jul-1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER

ZRQAM3
v01.2

SEQ 305

Page 49
VAX=11 Bliss=16 Vv3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;13 (13)

SEQ 306

Page 50
VAX=11 Bliss=16 v3=555
13 (13)
2;
BO.BLZ
EJZRQA
RELEAS
DIETZ.
DISKSUSER2:[

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

PC,DR.ERR

SP.RO
17

5¢:

0000006
0000006
0000006

000014

0000006
000062
010000

2527

2529

2532

° SP,e

H
H
:

2533
2531
2541

1:(R15.0211

H
H

2543
2537

T.ADDR,RO

2540

2541

H
H

2543
2544

H
H

2537
2548

2549

2551

2554

CUOFF ,R3

CST.ADDR.R3
LSLUN,R2

000211

(RO)
#10000, (R3)

2542

0000006

Po-]

6$:

ST.CODE
. ST.CODE
RO

#174000,R0
RO,SB.CODE
;T.CODE

0000006
000062
010000

$
T.ADDR,RO

62(R0)
#10000, (R3)
55
17
EGD.15
EMS.30

174000

0000006

N
s On

177740
000016

D
~ND
-y

000016

S.21
#7 ,DUR(R2)

0000006

—b
Jpp =b
On=2On
AN

000007

EGD.23

PR PR IR TR VR AN

000000V

4(8:

2526

0000006
000001

1%
14(R1)
1$
RO
58
#DBM26, (SP)
1 .-(SP)

000014

#360,2(R1)

PR PR P PR

3$:

2555
2556

AR AR

000002

000360

000003

020000

0000006

3%0000.22(R1)

78:

000022

0000006

2562

2566

:
.

2567
2568

#11,DUR(R2)

:
:

2569
2570

108
R2,R0
RO
44 (R1) ,MAX.LBN(RO)
MAX.LBN(RO)
#20000, (R3)
CCTLR, (SP)
#56,-(SP)
PC,BLSMUL

H
H

2562
2574

:
:

2575
2576

(SP)+
RP.INDX, (SP)
PC,PUT.RETPKT
(SP)+,(SP)+

:
:

2573
2581

:
:

2N
2476

EMS.30

0000006

g%.RO

000064 "

0000006
000056
0000006
0000056

CST+5(R0)

:
9%

108:

000000G

0000006

RTS

: Routine Size:

;

g;OOOO.(R3)

8s:

000044

2551

(RO

20
EGD.16

000011

2563

8s
T.ADDR,RO
62(R0)

0000006
000062
010000

2557
2558

CUOFF ,RO
RO
CST.ADDR,RO

0000006

H
:

226 words,

Routine Base:

; Maximum stack depth per invocation:

9 words

$CODES + 3634

000007

-2 \N0 W
Q=N

INITIALIZATION TEST ROUTINES

AOOAOOOOOOOOOOOCOOOOROOORRROOORRPPRPPRVRRR

21=Jul=-1983 15:33:38
21-Jul=-1983 15:23:38

RD/RX EXERCISER

SEQ 307

Page 51
VAX=-11 Bliss=16 Vv3-555
DISKSUSERZ: [DIETZ.RELEASEIZROABO.8L2;135 (13)

2585

routine DR_ERR : novalue =

;
H

2588
2589

i
!

:
:

ggg%

2594
2595

|
!

IMPLICIT INPUTS:
RP_ADDR - ADDRESS OF A RETPKT THAT ORIGINATED AT THE ‘DRIVER'

2597

!=-

2598
2599
2600
2601

528§

%ggg

;

2608

000000

THIS ROUTINE IS DESIGNED TO PROCESS RETURN PACKETS THAT ORIGINATE AT
THE ‘DRIVER'® RATHER THAN THE DEVICE. DRIVER-ORIGINATED PACKETS INDICATE

EITHER A FATAL DEVICE ERROR OR A COMMAND TIMEOUT. SINCE THIS ROUTIMc IS
ONLY CALLED DURING THE INITIALIZATION TEST, IT TREATS A COMMAND 7IMEOUT

2596

sgg%

2609

AS AN INITIALIZATION ERROR.

(1.E., CONNECTION ID = CID_DRIVER)

begin

local

000030

000034

000040

000042
000046
000050
000052

012701

013746

010146

004737
022626
012601

REASON = DU_DFATAL;

! CHANGE REASON TO FATAL ERROR

DROP_CTLR (.CCTLR, .REASON);

! DROP ALL UNITS ON CONTROLLER

end;

DR.ERR INITIALIZATION TEST ROUTINES

MOV
MOVB
BIC

#12.R1
RP.ADDR,RO
2(R0O).RO
#177617,R0

MOV

#5,R1

MOV

000060

CMP
BNE

000005

18:

0000006

MOV

JSR
CMP
MoV
RTS

0000006

22 words,

.SBTTL

DR.ERR: MOV

000207

;: Routine Size:

' IF FATAL DEVICE ERROR

:; .RP_ADDR [MESTYP] eql MT_FATAL

010146

020027
001002

! ASSUME COMMAND TIMEOUT

REASON : word initial (DU_TIME);

888885 012701 000012
013700 0000006
000012 116000 000002
000016 042700 177417
000022
000026

Routine Base:

: Maximum stack depth per invocation:

& words

R1,=(SP)

RO,#60
18

2585

2604

; *,REASON

: *,REASON

CCTLR,=(SP)

2606
2608

PC.DROP.CTLR
(SP)+,(SP)+
(SP)+.R1
PC

:
:

2599
2585

R1,=($P)

$CODES + 4540

* REASON,*

<TM~

SEQ 308
Page 52

DISKSUSER2:[DIETZ.RELEAS £1ZRAABO.BL215: (145

!
!

2590
2591

:
:
:
H

VAX=11 Bliss=16 Vv3-555

00 0290000090 00%0000000000000000800 000000000090 0080%03s0,

21=Jul=1983 15:23:38

INITIALIZATION TEST ROUTINES

v01.2

.
H

21=Jul=1983 15:33:38

RD/RX EXERCISER

IRQAM3

OOOOOOOOOOOODOOOOD

routine ACCESS : novalue =

THIS ROUTINE IS CALLED BY INIT_TEST TO VERIFY THAT THE CURRENT DI1SK
CAN BE ACCESSED. THIS OBJECTIVE 1S ACCOMPLISHED BY FORMATTING AND
SENDING ONE OR TWO MSCP ACCESS COMMANDS TO THE DISK, AND CHECKING
THE STATUS FIELD OF THE RESPONSE MESSAGE(S).
IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

CDISK = CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
LSLUN = CURRENT (DRS) UNIT NUMBER

local

A
A

PASS : word initial 1);

! LOOP PASS COUNT

! STATUS CODE AND SUB-CODE
ST _CODE = SB_CODE = 0;
LBN = (((.MAX_LBN C. LSLUNI + 1) ~ =1) and 10:77777') 1:
START WITH LAST LBN ON TOP SURFACE: [(X+1)/2] =1

M3CP_PKT C.P_INDEX, DK_NUM] = .

MSCPTPKT [.PTINDEX, OPTODE] = o
MSCP_PKT C.PTINDEX, BC_LOJ = 5127

MSCPTPXT [.PTINDEX, LBR_L] = .LBN

n’t

begin
= GET_PKT (.CCTLR);
P_INDEX

oan

I A X A
RR
0003 0000000030000 0,% 000300 % 0 049 e TR

! GUILTY UNTIL PROVEN INNOCENT

wor

e 00000 B8 Vs

EggULT : :ord initial (FAJLURE),

Qe B

A PR TR

begin

! LOOP STARTS HERE
! GET AN MSCP PACKET

! SET DISK ADDR (RD/RX DISK NUMBER)
! ACCESS OPCODE

i BYTE COUNT (1 BLOCK)

i LOGICAL BLOCK NUMBER

= non SEQ_CMD;
MSCP_PKT C.PTINDEX, CMD_TYPE]
if SEND (.P_INDEX) eql FAILURE

then

PU? PKT (.P_INDEX);
in

PASS = 2;

else

end

begin
do

! NON=-SEQUENTIAL COMMAND

! ATTEMPT TO SEND; IF CTLR NOT ONLINE

! RETURN PACKET TO POOL
! NO MORE TRIES

! IF SEND WAS SUCCESSFUL

]
begin

WAIT ()

! WAIT FOR RESPONSE

i GET RETPKT (RESPONSE) INDEX
RP_ INDX = OUT_IODQ ()
RP_ADDR = RETPKT + RP INDX « RP LEN * 2);
! CALCULATE RETPKT ADDRESS
if .RP_ADDR [MESTYP) neq MT_SEQ ' RETURN ALL RETPKTS NOT SENT BY CONTROLLER
en

PUT_RETPKT (.RP_INDX);

000080000080 000000000000000000000008s0s0s%00000a,

DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;13 (15)

OO0

VAX=-11 Bliss=16 V3=555

SEQ 309
Page 53

OO0

NN
-1-

NN
(v 1V]

—

wwn

b
—

21=Jul21=Jul-

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

PR PRTR TRSR TRTR XS T Qe Ss e g

IRQAM3
v01.2

hod2d
O0 0o

end

2663

2664

until (.RP_ADDR [CONID] eql CID _DRIVER) or

%ggg

2; .RP_ADDR CCONID) eql CID_DRIVER

2670

2673

2676

:
H
:

:
:

:
H

H
H
:

2677
2678
2679

EMSCMD ().
end
|
else

PASS = 2;

end;

2701
2702
2703

2704
2705

' NO NEED TO TRY AGAIN

! IF RETPKT HAS CORRECT ENDCODE

PUT_RETPKT (.RP_INDX);

2697
2698

! IF STATUS CODE INDICATES SUCCESS

)

2693

2699
2700

end;

! IF SEND WAS SUCCESSFUL

! ADVANCE TO FIRST LBN OF BOTTOM SURFACE

LBN = .LBN + 1;

! SECOND PASS
! END OF PASS LOOP

PASS = PASS + 1;
.end

until .PASS gequ 3.
.

if .RESULT eql FAILURE
then
begln

T_ADDR [ERR_HRD _DRV] = .T_ADDR [ERR_HRD_DRV] + 1;
! FATAL ERROR
¢ST _ADDR L[.TUOFF, D _FATAL] = TRUE;
! ACCESS FAILED
EMS_30);
EGD_1?.
(17,
ERRDF
! SET REASON TO DROP UNIT
DUR C.LSLUN] ="DU_ACCESS;
! DROP UNIT
00ODU (.LSLUN);

2706

:
H
:

2707
2708
g;?g

2711

end;

004137

0000006

000000

beg1n
RESULT = SUCCESS:

end;

:
;

then

%gg;

2696

:
H

if .ST_CODE eql ST_SUC

2689
2690

! *RETPKT HAS BAD ENDCODE'’

! RETPKT HAS CORRECT ENDCODE
begin
ST_CODE = .RP_ADDR [STSCOD]:! GET STATUS CODE FROM PACKET
SB_CODE = .RP_ADDR [SUBCOD];! GET SUB-CODE FROM PACKET

2688

gggg

2
:
:

be?1n

PRINTF (DBM?29);

2685
2686
2687

:
H
:

if .RP_ADDR [ENDCOD] neq (OP_ACC or OP_END)

then

2684

:
:

else

! IF RETPKT CAME FROM °DRIVER"
! NO MORE TRIES

PASS = 2

2674
2675

2671
2672

2680
2681
%gg%

H
:
H

((.RP _ADDR CMESTYP) eql MY _SEQ) and
((.RP_ADDR [ENDCOD] and OP_END) eql OP_END));

2665
5229

:
H
H

13 (15)
DISKSUSER2: [(DIETZ.RELEASE JZRAABO.BL2:

! IF ACCESS FAILED

end;

! ROUTINE ACCESS
.SBTTL

ACCESS: JSR

ACCESS INITIALIZATION TEST ROUTINES

R1,$SAVE4

2610

INITIALIZATION TEST ROUTINES

v01.2

SEQ 310

Page

21=Jul=1983 15:23:38

VAX=11 Bliss=16 V3=555

0008000 0:800300%:8505%00000000000%00000000002000000 0000000000005 8000050000050000%000000400 000000000 00g,

RD/RX EXERCISER

IRQAM3
:

21=Jul=1983 15:33:38

0000006

RO
RO,R%

#100000,R4

100000

Ré

2631

2632

0000006
0000006
000002

;s P.INDEX,*

2638

:
:
: LBN,*
:
:

2639
2640
2641
2642
2644

P.INDEX, (SP)

2647

#2 ,R2

s «,PASS
H
:
:

2648
2644
2655
2656

: RP.INDX,*

2657

’

2659

RO (SP)

#104,-(sP)
PC.BLSMUL

cDISK,MSCP.PKT+16(R0)
#20 ,MSCP.PKT+22(R0)

#1000,MSCP.PKT+26(R0)
R4 ,MSCP.PKT+46(R0)
#2.MSCP.PKT+4(R0)
P.INDEX, (SP)
PC,SEND

RO
2%

PC,.PUT.PKT

9%
PC.WAIT
PC,OUT.I0DQ

000060
0000006

0000006
0000006
0000006

;s +,LBN
2 LBN

2637

PC,GET.PKT
RO.P. INDEX

000104
0000006
0000006 0000166
000020 0000226
001000 0000266
0000466
000002 0000046
0000006
0000006

; «,LBN

CCTLR,=(SP)

0000006
0000006
0000006

000002

0000006
0000006

RO,RP.ADDR
l;bO.Z(RO)
3
RP.INDX, (SP)
PC,PUT.RETPKT

0000006

000003

000360

000002

5
#360,2(R1)

2%
14(R1)

2661

:
:

2654
2664

2665

2666

0000006

000014

H
,RO
MAX.LBN(RO)
R2,R0

°
000064

000360

2624

: «,PASS

000001

0000006

: RESULT

Ba®a m.0s0aTs0a0s0sWe0e
VsV Ve VeV Ve VeV Ve Ve Ve e T Ve Vo ws Vo0,

INITIALIZATION TEST ROUTINES

RD/RX EXERCISER

@ @i
&

SEQ 311

Page 55
VAX=11 Bliss=16 v3-555
(15)
2;15
QABO.BL
EASEIZR
DISKSUSER2:[DIETZ.REL

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES
23

5$:

000014

1g(R1).0220
)

000220

0000006
000001

#DBM29, (SP)
#1,-(SP)

0000006

PC,EMSCMD
(SP)+

000016
177740
000016

SP,RO
17

0000006
0000006

88
16(R1),ST.CODE

6$:

#177740,ST.CODE
;mn RO

#174000,R0
RO,SB8.CODE
ST.CODE
8s
#1,R3
2.R2
N,
RP.INDX, (SP)

174000
0000006
0000006

78:
8s:
9%

000002
0000006
0000006

:E.PUT.RETPKI
R2
(SP)+,(SP)+
R2.43

000003

1$
R3
108

0000006
000062
0000006

62(R0)

CUOFF ,RO

0000006
010000

0000006

000524
000526

104451
000207

000010

SP,*

TRAP

.WORD
-WORD
. WORD

0000006
108:

MoV
MOV8B
TRAP

RTS

CST.ADDR,RO
g}OOOO.(RO)

* PASS

* , RESULT

2687
2688
2693

LBN
PASS

2696
2697

PASS,
*

2699

RESULT

2701
2704

2705

2706

LSLUN,RO

2707

2708
2610

#10,DUR(RO)
51

$CODES + 4614
Routine Base:
172 words,
; Routine Size:
words
10
; Maximum stack depth per invocation:

2684

SEQ 312

Page 56
VAX=11 Bliss=16 V3-555
13 (15)
2;
BO.BL
JZRQA
EASE
DISKSUSER2: [DIETZ.REL

TRTR IR

THIS ROUTINE ACTS AS AN "EXECUTIVE'® TO THE WHOLE PROCESS. AFTER
INVOKING MD INIT TO INITIALIZE MULTI-DRIVE TEST DATA, THIS ROUTINE
ENTERS A LODP WHICH ISSUES QIOS TO ALL ACTIVE CONTROLLERS AND PROCESSES
ANY RESPONSES. IN ADDITION, ALL OUTSTANDING COMMANDS ARE TIMED IN
DRV TIMCHK WHICH 1S INVOKED EVERY SECOND. NORMAL TERMINATION OF THIS
LOOP OCCURS WHEN QIOS ARE NO LONGER BEING ISSUED, AND ALL OUTSTANDING
QI0S HAVE COMPLETED.

begin

! INIT MULTI-DRIVE TEST DATA

begin

! START OF EXECUTIVE LOOP

incr CTLR from 0 to (MAX_CTLR = 1) do

! FOR EACH CONTROLLER

begin

SE?_CPAR (.CTLR);

! SET UP CURRENT CONTROLLER PARAMETERS

NO INTERRUPTS WHEN EXAMINING SA
SETPRI (PR107);
FAKE INTERRUPTING CONTROLLER'S NUMBER
ICTLR = .CCTLR;
INTERRUPTING CONTROLLER'S CST ADDRESS
FAKE
ICST_ADDR = .CST_ADDR;
CONTROLLER'S DCT ADDRESS
INTERRUPTING
FAKE
IDCT_ADDR = .DCT_ADDR;
CONTROLLER'S ADDRESS
INTERRUPTING
FAKE
!
[IP_ADDR];
.ICST_ADDR
IRDRR_ADDR =
IDCT_ADDR [SA_SAVEJ = .IRDRR_ADDR [RCSA, RC_ALL);
! CONTENTS OF THE SA REGISTER

if BIT_TST (IDCT_ADDR [SA_SAVE], SA_ERR)

then

else

begin

! IF SA SHOWS AN ERROR

FATAL _ERROR ();
SE[PRI (PR100);
exitloop;

! DECLARE FATAL ERROR
! LOWER PRIORITY
' QuIT

SETPRI (PRICD):

! IF NO ERROR, CONTINUE

end

i; Q10_0k ()
en

' IF 0.K. TO ISSUE QI0(S) TO THIS CONTROLLER

begin

QIO_GEN ();

! THEN

if (.MX1 geq 0) and

! IF SUCCESS ON FIRST QIO

' GENERATE 1 OR 2 0Ql10S

W
(- 1 ]

o0
ae

o
VYV]

b
-

(¥ 1Y)

AN OPERATING SYSTEM ENVIRONMENT.

A TR TR
LAIR
TR R
PRFN PR
I T
TR IR
P P TR
I
R P P T T P

THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE
MULTI=-DRIVE TEST IS A HOST-CONTROLLED EXERCISER DESIGNED TO GIVE THE
USER AN INDICATION OF HOW ONE OR SEVERAL RDRX DRIVES WOULD PERFORM IN

MD_INIT ():

PaYelelelelelelelelelelelelvlelelel=]ol=lel]

SNNSNSNSNNY

routine MULTI_DRIVE : novalue =
1+

SEQ 313

Page

DISKSUSER2:CDIETZ .RELEASEIZRQABO.BL2; 13 (16)

N eN T P P

VAX-11 Bliss=16 V3-555

Isbttl *MULTI-DRIVE TEST ROUTINES®

LA AL R LRL

AR TR YR TR YN ¥

v01.2

21=Jul21=Jul-

OO
o 0o
W

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3

9
—h

(not .EOP_FLAG)

2765

then

%;29

;

%;gg

;; SEND (.MX1) eql SUCCESS

;

%;;g

;

%;;g

2774

eLse

010 [.CTLR] = .QI0 [.CTLRY + 1
PUT_PKT (.MX1);

(not .EOP_FLAG)
then

2775
g;;g

%;;g

i; SEND (.MX2) eql SUCCESS

g;g?

;

g;g%

g;gg

%;gg

;

g;gg

;

2790

else

! INCR OUTSTANDING Q10 COUNT
' RETURN PACKET TO POOL

' ATTEMPT TO SEND IT. IF SUCCESS

QIO C.CTLR] = .QI0 C.CTLR] + 1

! INCR OUTSTANDING QIO COUNT

PUT_PKT (.MX2);

! RETURN PACKET TO POOL

' 0.K. TO ISSUE QIO(S)
! CONTROLLER LOOP

end;

! BREAK FOR SUPERVISOR TO CATCH USER REQUESTS

BREAK;;

it not .EOP_FLAG

;

2791

%;3%

then

;

g;gg

end

g;gg

until ((not QI0_OUT ()) or .EOP_FLAG);

;

2798

end;

' PROCESS ANY RETURN PACKETS

PROC_RETPKT ();

! EXECUTIVE PROCESSING LOOP

' EXERCISER

000064

013700

0000

000070 016066 000002 000002

PC.MD. INIT
R?
R2.~(SP)
PC.SET.CPAR
#340,R0
41
CCTLR,ICTLR
CST.ADDR, ICST.ADDR
DCT.ADDR.IDCT.ADDR
aICST.ADDR, IRDRX.ADDR
IDCT.ADDR,R1

;
P CTLR
t CTLR,*
:

2733
2737
2739
2741

;
:
:
:
;

2742
2743
2744
2745
2746

JSR
CLR
MOV
JSR
MOV
TRAP
MOV
MOV
MOV
MOV
MOV
MoV

Mov

IRDRX.ADDR RO

2(R0) ,2(SP$

: *,RC.REG

2714

L PNCVINCNCNPNEN

1$:
2%:

-($P)

;

0000006

000340
0000006 000156°
0000006 000106"
0000006 000110°
ooo1oe' 0000006
0001o

;

)

004737
005002
010246
004737
012700
104441
013737
013737
013737
017737
013701

000004 005746 000000V

137

R1,$SAVE2

MULTI.DRIVE:
JSR

000006
000012
000014
000016
000022
000026
000030
000036
000044
000052
000060

0000006

PN 0TM

004137

MULTI.DRIVE MULTI-DRIVE TEST ROUTINES

000000

.SBTTL

! ATTEMPT TO SEND IT. IF SUCCESS

' IF SUCCESS ON SECOND Q10

if (.MX2 geq 0) and

:
:
.

SEQ 314

Page 58
VAX=-11 Bliss=16 V3-555
DISKSUSER2:LDIETZ.RELEASEJZRGABO.BL2;13 (16)

0000000090000, 0000000000008000 000000008000 0s0000

21=Jul=198315:33:38
21-Jul=198315:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

MOV
MOV

000002

BIC
CMP

100000

BNE
JSR
CLR

000000V

TRAP
ST

3s:
000000V

0000006

0000006
A H

000160°
0000006
000162°

000001

5%:

0000006

0000006
000001
0000006
6$:

000162°*
0000006

000001

006
103004
132737

7$:

0000006

000000V
000000V

000001

8s:

9%:

0000006

2749

3s
PC,FATAL .ERROR
RO

H
H

2752
2753

2751

2757

2759

H
H

2762
2764

2765

2768

: «(CTLR)
:

2770
2768

MX2,RO

2774

2775

2778

: ~(CTLR)

2780

77777 R1
R1,#-100000
41
(SP)+

RO
41
PC,010.0K

8CC
JSR
MOV
BLT
BITB
BNE
MOV

INCB

78
PC.010.GEN
mx1,R0
5
#1,EOP.FLAG
5$
RO, (SP)
PC.SEND
A1
RO,
4$
QIO(R2)

MOV
JSR

nX1,(SP)
PC,PUT.PKT

8LT
BITB
BNE
MOV
JSR
CMP
BNE
INCB
BR
MOV
JSR

78
#1,EOP.FLAG
7
RO, (SP)
PC.SEND
RO
6$
QIO0(R2)
78
MX2, (SP)
PC,PUT.PKT

JSR
P
BNE

0000006
000001

CLR
TRAP
JSR
ROR

000000V
000160

000001

B8R

2(SP),2(R1)
2(SP) °R1

B8R

MOV

(SP)+

INC
R2
.WORD CLV'CLC

BLE
TRAP
BITB
BNE
JSR
JSR
ROR
BCC
BIT8

2
22
#1,EOP.FLAG
9s
PC,PROC.RETPKT
PC.010.0UT
RO
108
#1,EOP.FLAG

2772

H
:

2778
2782

:
: CTLR

2738
2737

:
:

2786
2790

:
:

2792
2796

MULTI-DRIVE TEST ROUTINES

SEQ 315

Page 59
VAX=11 BlLiss=16 V3-555
5 (16)
O.BL2;1
DISKSUSER2:CDIETZ .RELEASEIZRQAB

£~

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

000002
000002
077777

=l=lol=T=l=l=L=]

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

001623
005726
000207

: Routine Size:

108:
116 words,

BEQ
TST

RTS

18
(SP)+

$CODES + 5344
Routine Base:
7 words

: Maximum stack depth per invocation:

2714

.oOo.oOo.o.oOo..Oa.o.o.o.o.o“.n.oioioto.o.o.o.o.oQo‘o““.o"““fl““““fl“.o.o.o'o [YX TR IR T TR LK TN TN

IRQAM3

v01.2

000342
000344
000346

SEQ 316

Page 60
VAX=11 Bliss=16 V3=-555
DISKSUSERZ:(DIETZ.RELEASE JZROAB0O.BLZ2;15 (16)

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

SEQ 317

Page 61
VAX=-11 Bliss~16 V3=555
(17)
15
RQABO.BL2;
.RELEASEIZ
DISKSUSER2: [DIETZ

routine MD_INIT : novalue =
‘e

THIS ROUTINE IS CALLED BY ROUTINE MULTI_DRIVE TO INITIALIZE DATA ITEMS

USED BY THE MULTI-DRIVE TEST.

begin

! IF THIS 1S A START

i£e6ENTRY_REASON eql START

! PARTITION FREE MEMORY INTO [/0 BUFFERS

INIT_IO_BUFF ();

! IF START, RESTART, OR PWR FAIL

it (.ENTRY_REASON neq CONT) and
the;.ENTRY_REASON neq NEW_PASS)
ince CTLR from 0 to (MAX_CTLR - 1) do

SE?CPAR (.CTLR);

incr DISK from (0 + OF_UN) to (3 « UNIT_SIZE + OF _UN) by UNIT_SIZE do

SE?UPAR (.DISK);.CST_ADDR [(.DISK + 1), D_BEG);
in

BSTTMC.LSLUN] =
= DP_TNT;
opgr £.LSLUN]

! INITIALIZE BLOCK SEQUENCE TABLE
! INITIALIZE DATA PATTERN SEQUENCE TABLE

eng.

end;

ince COUNT from 0 to (QI0 _PER_CTLR « MAX_ CTLR = 1) do
BUFF_OwWN [.COUNT]= -T;

! INITIALIZE 1/0 BUFFER ALLOCATION
TABLE
!

end;

! ROUTINE MD_INIT

0000006
0000006 000001

MD.INIT:JSR
gzze

.SBTTL

MD.INIT MULTI-DRIVE TEST Rourxues

R1,$SAVESL
ggrnvREASON, M

:
:

2799
2808

000000V
0000006 000003

JSR
gggs

PC.INIT.10.BUFF
EgrnvREASON.fis

:
:

2810
2812

ggge

zgrnv.REAson.os

2813

CLR

Ré

: CTLR

2816

; +,DISK

2820

2823

1$:

0000006 000005
0000006

000003

0000006

2s%:
3s:

MOV

R4 ,~(SP)

MOV

03 R3

JSR

PC,SET.UPAR

MoV

R2.R1

JSR

MOV

PC,SET.CPAR

R3, (SP)

LSLUN.RZ

: CTLR,*
: DISK,*

2818
2822

..-.-...-.-.-...o.-.-.-.-...-.-.I-.a...o.o.o.o.o.o.cO-OQOQO¢.oOQQoO-.o.o.o..o.o.c.o-..t- TR TET TRX YT TI PY

000072

006301

010300

ASL

ASL
ADD
MOV

RO
RO
CST.ADDR
2(R0) ,BST(R1)

MOV

000074
000076
000102

006300
063700
016061

000000G
000002 000050°

000122
000126

020:7
003752

000022

000134

000243

000136

003741

SEQ 318

Page 62
VAX=11 Bliss=16 V3=555
DISKSUSER2: (DIETZ.RELEASEJZRQABO.BL2;135 (17)

R3.R0

: DISK,«

000110 112762 000025 000060°
000116 062703 000005

MOVB
ADD

#25,DPST(R2)
#5,R3

:
: «,DISK

2824
2820

000130 005726
000132 005204

TST
INC

(SP)+
R4

:
; CTLR

2817
2816

s COUNT
: «,«(COUNT)
¢ COUNT

2829
2830
2829

2799

CMpP
BLE

.WORD CLV!CLC

4(8:
5%:

000140 005000
000142 112760 000377 0000006
000150 005200
000152

000156

020027

003771

BLE

RO
#377 ,8BUFF ,0UN(RO)
RO

BLE

RTS

57 words,

Routine_Base:

: Maximum stack depth per invocation:

7 words

CLR
MOVB
INC
cmp

000007

000160 000207
; Routine Size:

R3,#22
3$

RO, 47

$CODES + 5714

: DISK,*

s COUNT,»

IF
v(

RIS

000070

21=-Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI=-DRIVE TEST ROUTINES

ZRQAM3
v01.2

2000000800000 0000800c00009000000:00000080800000008000
0080000000880
000080%00%008,0%¢0, 0000 (YRR TR

VAX=11 Bliss=16 V3=555

routine INIT_IO_BUFF : novalue =

THIS ROUTINE IS CALLED BY MD_INIT WHEN THE MULTI-DRIVE TEST IS FIRST
STARTED. IT 1S RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A
COLLECTION OF 1/0 BUFFERS. THE SIZE OF EACH 1/0 BUFFER IS DETERMINED
BY A NUMBER OF FACTORS, INCLUDING THE NUMBER OF UNITS, THE NUMBER OF
CONTROLLERS, AND THE SIZE OF FREE MEMORY.

ONCE THE BUFFER SIZE IS DETERMINED, THE NUMBER OF 1/0 BUFFERS IS
CALCULATED. FINALLY, THE BUFFER ADDRESS (BUFF_ADDR) TABLE IS LOADED

WITH FIXED BUFFER DESCRIPTORS THAT ARE USED IR THE ALLOCATION AND
DEALLOCATION PROCESS.

IMPLICIT INPUTS:

CTLR_CNT = THE NUMBER OF CONTROLLERS CONFIGURED
LSUNTT = THE NUMBER OF UNITS AVAILABLE FOR TESTING
FREE_MEM_ADDR = START OF FREE MEMORY

begin
tocal
DRS_START;

DRS_START = .FREE_MEM ADDR + 2 + (..FREE_MEM_ADDR_* 2):
BUFF_ADDR [03 = (FREE_MEM_ADDR + 2 + 1) and"%0'177776;

while (.BUFF_ADDR [0) and %0°'37') neq 0 do
BUFF_ADDR (0] = .BUFF_ADDR [0] + 2;

START OF SUPERVISOR
START OF READ/WRITE BUFFERS

FORCE FIRST 1/0 BUFFER TO START

ON EVEN BOUNDARY

BYTS_PER_QIO = ((.DRS_START - .BUFF_ADDR [01) / (QIO_PER_CTLR * MAX CTLR)) and %0'177740°;
! MAX TRANSFER SIZE

it .BYTS_PER_QI0 gtru MAX_XFER_SIZE
en

BYTS_PER_QIO = MAX_XFER_SIZE;

it .BYTS_PER_QIO lssu 32
then
begin

ERRSF (2, €GS_02, 0);

DOCLN;
end;

Page

DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;15 (18)

! ADJUST TRANSFER SIZE LOWER

' ERROR IF NOT ENOUGH MEMORY

if (QIO_PER_CTLR ¢ MAX_CTLR) gtru 1

then

incr_index from 1 to (QIO_PER_CTLR * MAX_CTLR = 1) do
BUFF_ADDR [.index] = "BUFF_ADDR [.index - 1] ¢ .BYTS_PER_QIO;

! INIT REMAINING TABLE ENTRIES
! FIXED BUFFER ADDRESS

end;

ROUTINE INIT_IO_BUFF

MULTI-DRIVE TEST ROUTINES

21=Jul~1983 15:23:38

RD/RX EXERCISER

SEQ 319
63

e 0e00000¢00009000000000000000000000030800080009%00000 2000000000000 050000000000000000 000520000005 00000, 00,

Ve 0o 800800000038, 0,%90%0%4020,%0048%00, 00 [

YR TRIR

IR IR TR

IRI R I R YR TNX (YR TR TR TR I IRIETETETETE TR TR T NN T

IRQAM3
v01.2

' ®
21=Jul=1 983 15:33:38

JSR

R1,$SAVE3
FREE.MEM.ADDR,R1

:
:

2833
2858

R1.RO

2853

INIT.]0.BUFF:
MOV

MOV

égl).RO

#2.R0
#3.R1

000002
000003
0000006
000001 0000006
000037 0000006

R1.BUFF .ADDR
#1 BUFF .ADDR

:
;

2858
2859

1$:

ggf.surr.nooa

;

2861

ré H

#2.8UFF .ADDR
1$
RO,~(SP)

:
:
DRS.START,*

2862
2861
2864

0000006 002000

g;ts.Pea.oxo.czooo

2867

002000 0000006
0000006 000040

#2000.8YTS.PER.QIO

;

000002

0000006

000000G

BUFF .ADDR, (SP)

#10,-(SP)
PC.BLSDIV
RO.BYTS.PER.QIO

00
G
000037 000000G

#37,8YTS.PER.QIO

3s:

2869

Ezrs.Psn.oxo.cao

;

2871

2874

#1.R2

; *, INDEX

2878

gg.Ro

: INDEX,*

£GS.02
0

gg.n1

1777766
0000006
0000006

BUFF .ADDR=2(R0)
,R3
BYTS.PER.QIO,R3
R3,BUFF .ADDR(R1)

000007

§§,07

000210
000212
; Routine Size:

4S:
5%:

000001

RTS

70 words,

2882

; INDEX

2878

(SP)+,(SP)+
PC

;
:

2853
2833

$CODES + 6076
Routine Base:
8 words

: Maximum stack depth per invocation:

: INDEX,+

: INDEX,*

E R F A NN AN X

INIT.]J0.BUFF MULTI-DRIVE TEST ROUTINES

PRYR

0000006

.SBTTL

013701
011100

(18)

TR R PR TR PR

0000006

DISKSUSER2:[DIET2.RELEASEIZROABO.BL2;15

AR T E X

004137

SEQ 320

Page

YR TR IR IR A

MULTI-DRIVE TEST ROUTINES

VAX-11 Bliss=16 Vv3-555

Ve Vs We Ve B VP B Ve Ve Ve B¢ Be T 8 %0 Bs V9 e s & (TR

21=-Jul~1983 15: 33:38
:3
21=Jul=-19 83 15::23:38

RD/RX EXERCISER

ZRQAM3
v01.2

[«Y
=]

THIS ROUTINE IS CALLED BY THE MULTI DRIVE 'EXECUTIVE'* IN ORDER TO
DETERMINE WHETHER OR NOT A QIO REQUEST (OR QIO PAIR) SHOULD BE
GENERATED TO THE CURRENT CONTROLLER. A VALUE OF '‘TRUE'* IS RETURNED IF

i
i
]

THE CONTROLLER MEETS 3 REQUIREMENTS:

THE CONTROLLER IS ONLINE;

e. THE NUMBER OF OUTSTANDING QIOS IS AT LEAST 2 LESS THAN THE

MAXIMUM ALLOWED FOR ANY ONE CONTROLLER;
C. THERE IS AT LEAST ONE DISK ONLINE TO THE CONTROLLER.

[+~
0
oo

i
:

IF ANY OF THESE TEST FAIL, THEN A VALUE OF ‘'FALSE'® IS RETURNED.

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (ST

if (.CST_ADDR [STATE] eql ONLINE) and
(not SEOP _FLAG) and
((.QI0 C.TCTLR] + 2) Le u QIO_PER_CTLR) ard
h (.CST_ADDR [U_CNTJ neq

eLse

000001

! *TRUE'' EXIT POINT

return FALSE;

' CFALSE'® EXIT POINT
QI0.0K MULTI-DRIVE TEST ROUTINES
CST.ADDR,RO
:
2(R0O)

2905

q;LEOP.FLAG

2906

CCTLR,RO

2907

CST.ADDR,RO
S(RO)

2908

MOV

#1,R0

2885

CLR

.SBTTL
Q10.0K: MOV
TST
BPL

0000006

g&;e

MOV

0000006
177400

000002
000010

aIo(rd).RO
#177400.R0

BHI

MOV
IST8
BEQ

000001
1$:

mov8
BIC
ADD
CMP

0000006
000005

RTS
RTS

#2.R0
RO,#10

PC
PC

30 words,
Routine Base: $CODES + 6312
s Maximum stack depth per invocation: 0 words
: Routine Size:

! IF OUTSTANDING QIO COUNT IS 0.K.
i IF THERE IS VALID UNIT

return TRUE

0000006

000
005000
000207

! IF CONTROLLER IS ONLINE

P d o)

OO0 O0O0O0O00O00O0OROROORRRPRRPLPRRRLLRLRRLARRLSKLR

PRPR TN TR YR TR TR LA LA LN X

T YR

I R PR P

SEq 321

Page 65
VAX-11 Bliss=16 V3-555
13 (19)
DISKSUSER2:[DIETZ.RELEASE JZRAABO.BL2:

routine QI0_OK =

0000006
000002

000066
000070
000072

21=-Jul=198315:33:38
21-Jul=198315:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3

v01.2

2913

:
:
:
:
:

2916
2917
2918
2919
ggg?

:
:
H

2922
2923
2924

2926

2925

%g%g

2929

2931

:
:
H

THIS ROUTINE IS CALLED BY THE MULTI DRIVE EXECUTIVE FOR DETERMINING THE
END OF THE MULTI-DRIVE TEST. ITS PURPOSE 1S TO EXAMINE THE Q10 VECTOR
FOR ANY OUTSTANDING QI0S ON ANY CONTROLLER. A VALUE OF '‘TRUE'' IS

!
!
!
!
:

IS AT LEAST ONE QIO OUTSTANDING ON ANY CONTROLLER.
RETURNED IF THERE
OTHERWISE, "FALSE'* IS RETURNED INDICATING NO OUTSTANDING QJOS.
)
begin
.

incr CTLR from 0 to (MAX_CTLR = 1) do
begln

SET_CPAR (.CTLR);

! SET UP CURRENT CONTROLLER PARAMETERS

if .CST_ADDR [STATE] eql ONLINE

! IF CONTROLLER IS ONLINE

then

2932
2933
2934

end;

2935

2936

010146

000006

004737

005001
010146

000012
000016
000022
000024
000026
000032
000034
000036

013700
005760
100004
005726
012700
000405
005726
005201

000042
000044
000046
000050

003760
005000
012601
000207

000040

.¢

return TRUE;

! EXIT = NO CONTROLLERS ONLINE

return FALSE;

end;

.SBTTL

QJ0.0UT MULTI-DRIVE TEST ROUTINES

CLR
MOV

R1
R1,=-(SP)

MOV
TST
BPL
TST
MOV
BR
TST
INC

CST.ADDR,RO
2(R0O)
2$
(SP)+
#1,R0
3s
(SP)+

Q10.0UT:MOV
0000006

1$:

0000006
000002
000001

2$:

JSR

R1,-(SP)

PC,SET.CPAR

.WORD CLV!CLC

000243

3s:

BLE
CLR
MOV
RTS

18
RO
(SP)+,R1
PC

: Routine Size: 21 words,
Routine _Base: $CODES + 6406
: Maximum stack depth per invocation: 3 words

s CTLR
: CTLR,*
H
:
:

: C°LR

H
:

SEQ 322

Page

13 (20
DISKSUSER2:[DIETZ.RELEAS EJZROABO.BL2:

routine QIO_OUT =

2930

000000

000002
000004

21=Jul=1983 15:23:38

MULTI-DRIVE TEST ROUTINES

v01.2
:

21=Jul=-1983 15:33:38

RD/RX EXERCISER

IRQAM3

VAX=-11 Bliss=16 v3-555

OOOOOOOOCO0O0000000O0OOOOOOOORRRROORRORRPPRX
2PRRRLRLSL2

no9

15:
21-Jul=1983 15:33:38
21=Jul=1983 15: 23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE

routine QI0_GEN : novalue =
+*

e ®e®eDeBsBe00e0e%e0e0e0s8s000,%s0s%¢%0 800800 c00000s0000000:0c%0000c0sVsTeVeTr 0000000800000 085 80000000000,

ZRQAM3
v01.2

THIS ROUTINE IS CALLED BY THE MULTI DRIVE EXECUTIVE FOR AN ONLINE

CONTROLLER ELIGIBLE TO RECEIVE 170 TRANSFER REQUESTS. IT IS

RESPONSIBLE FOR SECURING ONE OR TWO MSCP PACKETS AND LOADING THEM
WITH VARIOUS PARAMETERS COMPRISING THE 1/0 REQUEST. THE 1/0 REQUEST
GENERATED HERE 1S DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM
THOSE CONFIGURED UNDER THE CURRENT CONTROLLER.

EACH FIELD OF THE PACKET(S) IS LOADED WITHIN INDIVIDUAL ROUTINES
(QIO_FUNC, QIO_LBN, QIO_SIZE, EVC.). MOST OF THE VALUES SELECTED FOR
EACH FIELD ARE"BASED ONA SET OF RANDOM NUMBER GENERATED AT THE START.
UNDER NORMAL CIRCUMSTANCES, ONLY ONE 1/0 REQUEST IS GENERATED. HOWEVER,
IF THIS 1/0 REQUEST 1S A "WRITE'’, AND IF THE OPERATOR SELECTED THE
OPTION FOR HOST WRITE-COMPARES, THEN A SECOND °‘READ'' REQUEST WILL BE
GENERATED WITH THE SAME LBN AND BYTE COUNT.

AFTER THE PACKET(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL
AND ATTEMPTS TO GET ONE OR TWO 1/0 BUFFERS FOR THE ACTUAL DATA
TRANSFERS. THE SUCCESS / FAIL STATUS OF THIS ENTIRE OPERATION IS

PASSED BACK TO THE CALLER THROUGH THE GLOBALS ‘MX1°* AND ‘MX2''; THEY
CONTAIN VALID MSCP PACKET INDECES, OR -1.

Note that the DUP Exerciser is located inside the QI0_FUNC routine.

Every so often the Dup exerciser will run and return the MSCP Exerciser
to it's normal state.

IMPLICIT INPUTS:
CCTLR = CURRENT CONTROLLER NUMBER
begin
Mx2 = -1;

ASSUME FAILURE IN SECURING 2ND PACKET

if (MX1 = GET_PKT (.CCTLR)) lss O

TRY TO GET 1ST PACKET. IF FAILURE

then

NO POINT IN CONTINUING

return;

if (MX2 = GET_PKT (.CCTLR)) lss O
then

be?in
PUT_PKT (.MX17;
MX1 = =1;

RETURN 1ST PACKET TO POOL
INDICATE FAILURE
DONE

return;

end;

MAD1 = MSCP_PKT + (.MX1
MAD2 = MSCPTPKT + (.MX2

GET_RANDOM T);
QIOTUNIT )

TRY TO GET 2ND PACKET. IF FAILURE

CALCULATE STARTING ADDRESSES
OF BOTH PACKETS
GENERATE A SET OF RANDOM NUMBERS
LOAD RANDOM UNIT NUMBER INTO PACKETS
~

SEQ 323

Page

13 (21)
1ZRAABO.BL2:

o000 000000000O0RCOOORORORRRLRRRLRLRRPLRIYRLLIAFIAIKIKIL %

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

:
21=Jul=19 83 1;: 33:38

21=Jul=19 83 15:23:38

VAX=11 Bliss=16 V3=555

SEQ 324

Page

DISKSUSERZ:tDlE[}.RELEASEJZROABO.BLZ:1

RETURN IF NO UNIT ONLINE

if .EOP_FLAG
then
return;

QIO_FUNC ();

if (.MX1 Lss 0) OR (.EOP_FLAG)

then return;

tmemoememomom

ZRQAM3
v01.2

810

LOAD RANDOM {MSCP FUNCTION CODE (OPCODE))} OR {(DUP EXERCISER TEST A
THIS IS THE POINT WHERE THE DUP EXERCISER WILL CUT IN TO THE MSCP
START WRITTING AND READING DBN'S ONCE FINISHED IT WILL RETURN THE
TO ITS NORMAL MSCP MODE....~

IF IT WAS IN DUP TEST AND FAILED TO GET A ENVOLOPE RETURN

NO POINT IN CONTINUING

QIO_LBN O);
QIO_SIZE ();

LOAD LBN (RANDOM OR SEQUENTIAL)
LOAD RANDOM BYTE COUNT

if .MX2 geq O
then
be?in

IF TWO QI0S ARE TO BE ISSUED

GET_I0_BUFF’ (MAD1 [BUF_0J);

GET_IO_BUFF (MAD2 [BUF_0]);

TRY TO GET 2ND 1/0 BUFFER

if .MAD2 [BUF_0] eqla 0

IF 2ND BUFFER ALLOCATION FAILED

then

begin

if .MAD1 [BUF_0] neqa 0

then

be?in

PUT_10 BUFF (MAD1 [BUF_01);

MADY CBUF_0] = 0;
end;

PUT_PKT (.MX2),
e =
-1;
end;

if .MAD1 [BUF_0J] eqla 0
then

else

IF 1ST 1/0 BUFFER WAS ALLOCATED
RETURN 1ST 1/0 BUFFER TO POOL
MARK IT AS FAILED
RETURN 2ND PACKET TO POOL
INDICATE FAILURE

IF 2ND 1/0 BUFFER ALLOCATION FAILED
IF TWO QJI0S ARE TO BE ISSUED

end;

IF 1ST 1/0 BUFFER ALLOCATION FAILED

be?in
PUT_PKT (.MX1);
MX1 = -1;

RETURN 1ST PACKET TO POOL
INDICATE FAILURE

if .MAD1 [OPCODE] eql OP_WRT

OTHERWISE, IF 1ST OPCODE IS A WRITE

end

then
end;

TRY TO GET AN 1/0 BUFFER

FILL_BUFF ();

(ALL IS 0.K.)

FILL 1ST 1/0 BUFFER WITH APPROPRIATE DATA PATTERN
ROUTINE QIO_GEN

MULTI-DRIVE TEST ROUTINES
012737
013746
004737
010037
005726
005700
002572

177777 000162°
0000006
0000006
000160°*

.SBTTL
Q10.GEN:MOV

MOV

JSR

MOV
ST
ST
BLT
MOV
JSR
MOV
ST
ST
BGE
MOV
JSR

0000006
0000006
000162°*

000160°*
0000006
177777 000160°*

MOV
TST

1$8:

000160°

RTS

MOV
MOV
JSR

0000006

000000V
000160°

000001
000000V
000000V

0000006
000162°
000166
000032
000000G
000166°
000032

062700

000164
000032

0000006

CCTLR,=(SP)

PC,GET.PKT

RO, MX1
+
(SP)
RO
6
CCTLR,=(SP)
PC,GET.PKT
RO,MX2
(SP)+
RO
1$
MX1,<(SP)
PC,PUT.PKT

BLT
MOV
ADD
JSR
MOV

3$
MAD2, (SP)
#32, (SP)
PC,GET.10.BUFF
MAD2 RO

BNE
MOV
ADD

mx1

2976
2978

Mx2

PC,BLSMUL
#MSCP.PKT,RO
RO,MAD2
PC.GET.RANDOM
PC.QIO.UNIT
#1.EOP.FLAG
58
PC.010.FUNC
mx
5$
#1,EOP.FLAG
ss
PC,010.LBN
PC.Q10.SIZE
MAD1, (SP)
#32,(SP)
PC,GET.10.BUFF

2972
2974

MX1,=(SP)
#104,-(SP)
PC.BLSMUL

JSR
ADD
MOV
JSR
JSR
BITB
BNE
JSR
ST
BLT
BIT8
BNE
JSR
JSR
MOV
ADD
JSR

IST

13 (21)
JZRAABO.BL2:

21, mxi
(SPJ+

#MSCP.PKT,RO
RO, MAD1

MOV
MOV

000001

g 10.GEN MULTI-DRIVE TEST ROUTINE S
-1,MX2

MOV

ADD

DISKSUSER2:[DIETZ.RELEASE

SEQ 325

Page

mx2, (SP)
#104,-(SP)

2987

MX2

32(R0)

3s
MAD1,RO
#32,R0

3011

3015

«m~N

21=-Jul=-1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

OOOOOOOOOODORODOD

c10

D10

000162°

000330
000336

012737
013700

177777 000162°
000164°

3s:

000350
000354
000360

000374

013716
004737
012737

000160°*
0000006
177777 000160°

126027

000164
000022 000042

004737

000414

0000006

000207

000000V
000006

4S:

5%:
6$:

MOV

JSR

MOV
MOV
TST

Mx2, (SP)
PC ,PUT.PKT

BNE
MOV
JSR

113
MX1,(SP)
PC,PUT.PKT

CLR

MoV
BR
MOV
CMP8

BNE
JSR
ADD
RTS

32(R0)

#-1,mx1

5¢
MAD1,RO

§§‘R6"“2

PC.FILL.BUFF

#6,5P
PC

Routine Base:
$CODES + 6460
135 words,
; Routine Size:
: Maximum stack depth per invocation: & words

3018

3019

3022
3023
3028

3031
3032
3028
3036

3038
2971
2937

Q.l.-..-l-.-.-.-‘-...n.l.l.-.l‘..'.n.-...............l.........tic.olo.o....l..o...0.........."'0.0..

013716

(RO)
2$
RO, (SP)
PC.PUT.10.8BUFF
MAD1,RO

000320

TST
8EQ
MOV
JSR
MOV

000

2s:

000346

21-Jul-1983 15:
21=Jul-1983 15:

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

SEQ 326

Page 70
VAX=11 Bliss=16 V3=-555
(21)
.BL2:15
EJZRQABO
Z.RELEAS
DISKSUSER2:[DIET

13 (22)
DISKSUSER2: [DIETZ.RELEA SEIJZROABO.BL2:

LAEN ¥

routine GET_RANDOM : novalue =
1R

PRPN PR YN YR

PRLR

THIS ROUTINE 1S CALLED BY QJO _GEN TO GENERATE A SET OF RANDOM NUMBERS,
AND TO STORE THEM INTO THE RANDOM NUMBER TABLE (RANDOM). THE RANDOM
NUMBERS ARE USED TO SELECT 1/0 REQUEST PARAMETERS FOR THE CURRENT QI0
OR QIO PAIR. IN ADDITION, IF DATA PATTERN #1 IS BEING USED, THESE
RANDOM NUMBERS WILL BE USED IN THE WRITE OPERATION.

PRTR

begi n

E IR

own

SEED : word initial (173),
NEXT_RANDNUM : word initial (245);

incr COUNT from 0 to (RDM_LEN - 1) do
R N R

SEED = (.SEED + .NEXT_RANDNUM + 1) « 4;
NEXT RANDNUM = (.NEXT_RANDNUM / 4) + .SEED;

begin

end;

RANDDM C.COUNT) = .NEXT_RANDNUM;

end;

PSECT
.EVEN
.WORD
SEED:
NEXT.RANDNUM:
.WORD

001241

001242
001244

000255
000365

.SBITL
.PSECT

004137

0000006

013702
013703

001242°
001244

GET.RANDOM:

1$:

0012¢42°
000004 001242°

060200

000004
0000006
001242°

JSR
Mov
MOV
CLR
MOV
ADD
ASL
ASL
MoV
ADD
Mov

Mov

JSR

MOV
ADD

$66GS$,

255
365

GET.RANDOM MULTI=-DRIVE TEST ROUTINES
$CODES,

R1,$SAVE3
SEED,R2
NEXT.RANDNUM,R3

H
:

3041
3059

R3.R0
R2.RO
RO

: COUNT
:

3057
3059

3058

RO,SEED

3059

R3,=-(SP)

3060

#4,SEED

#6,-(SP)
PC,BLSDIV

SEED,R2

R2,RO

21-Jul=1983 15:23:38

SEq 327

Page

& @an .-..-.........-...-...n-.o...o..-o...o.o.Ooo.o.o.to.o.o.olo.o.o‘o“n...ooo.oo.OQO-o...tot-0-..

21=Jul=-1983 15:33:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

VAX=-11 Bliss=16 V3=555

ae®

E 10

F10

001244

000116°
000002
000036

Mov
MOV
MOV

C(MP

ADD

CMP
BLE
RTS

RO,NEXT
. RANDNUM
RO,R3
R3,RANDOM(R1)
(SP)+,(SP)+
#2,R1
R1,#36
1$
PC

$CODES + 7076
Routine_Base:
36 words,
: Routine Size:
Hax1num stack depth per invocation: 7 words

; NEXT .RANDNUM, «

3051

:
;s *,COUNT

3058
3057

3041

s «,«(COUNT)
e
: COUNT

00000000020000 000000000000 020003000000000000800004%00505%000%c00c0,

MULTI-DRIVE TEST ROUTINES

000000000000

21-Jul=-1983 15:33:38
21-Jul-198315:23:38

RD/RX EXERCISER

SEQ 328

Page 72
VAX=11 Bliss=16 v3-555
15 (22)
O.BL2;:
EIZRQAB
.RELEAS
ETZ
DISKSUSER2:[DI

3065

routine QIO_UNIT : novalue =

3068

gg;%

:
M

!
!
!
:

THIS ROUTINE IS CALLED BY Qi0_GEN TO RANDOMLY SELECT ONE UNIT
CONF IGURED UNDER THE CURRENT TONTROLLER (CCTLR) TO BE USED FOR THE
CURRENT QJO OR QIO PAIR. THE UNIT SELECTED IS BASED ON THE NUMBER OF
UNITS ELIGIBLE TO RECEIVE AN 1/0 REQUEST (FROM 1 TO &) AND THE FIRST
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM).

3076

IMPLICIT INPUTS:

3077

IMPLICIT OUTPUTS:

:
:
:

3081
3082
3083

3086

:
:
H

:
:
:

:
:
:
:

‘

3069
3070
3071

gg;g
3078
gggg

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S (ST

THE RD/RX DISK NUMBER (DISK ADDRESS) IS LOADED INTO THE
APPROPRIATE FIELD OF BOTH MSCP PACKETS.

!
:

)
begin
own

.
RAT_COUNT : word initial (0);
local

3084
3085

MOD_COUNT : byte,

T8L_COUNT : byte,
SELECT_RD : byte;

3087
3088

309 !
3091

! THE UNITS WILL BE SELECTED ON AN ADJUSTABLE RATIO, RD51 TO RX50,

;83%

; SELECTED VIA THE SOF TWARE PARAMETERS

:
:
:

3094
3095
3096

! THIS MODE IS FOR SELECTING DEVICES ON THE FOLLOWING SCHEME:
! CHOOSE A DEVICE AND KEEP IT SELECTED FOR A CONSTANT TIME, THEN
! MOVE TO THE NEXT. THIS IS NON-RANDOM, FIXED SEQUENTIAL OPERATIONAL

:
:

3100
3101

:
:

3103
3104

:
:

3106
3107

3097

3102

then

3110

3115

then

! NOT RANDOM MODE
! NOT RANDOM SEQUEUNTIAL MODE

3108

3111
3112
3113

if ((.SWP_FLAGS and SWF_RDM) neq SWF_RDM) and
((.SWP_FLAGS and SWF_SEQ) neq SWF_SEQ)

3105

:
:
:
:

! MODE

.
.
if (.BST_CNT neq 0) and
(.CST_ADDR [.BST_DEV, D_PRES] eql PRESENT) and

3109

3114

3116

3117

(.CST_ADDR [.BST_DEV, D_STAT] eql ONLINE) and
(not “CST_ADDR [ BST_DEV, D_FATALJ)

begin

BST_CNT = .BST_CNT - 1;

! ALREADY WITHIN DEVICE

SET_UPAR (.BST_DEV);
MADT [DK_NUM] = .CDISK:
MAD2 [DK_NUM] = .CDISK;
return;

else

end

begin

! GET NEW DEVICE

SEQ 329

Page 73
VAX-11 Bliss~-16 v3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2: 13 (23)

OOORORERRORRPRPRRAVRRNRNILVVLSLLRI

RD/RX EACRCISER
MULTI-DRIVE TEST ROUTINES

IRQANM3
v01.2

21=Jul-1983 15:33:38
21-Jul-1983 15:23:38

OO0

G610

HBDDDDSDS
-t b
OOVBNR
N B WA = OO NANSWN=2O
VNV S WN = O uuwwwgwuuwmmwmmwwl\amw
OO NONESWN 2O 0NN
W =000

wwwuwwwuwwwuuwwuwuuwwwwwwuwwwuwwuwwwwuwwwwwuwwuwwuwww
b e d b e ed e e e o e D e D e e wh e e s i D i i el D md e e d d b e md d e =D

8eBosB8c0¢8e0s8e00000000000e000c0000000s%080009:%0000:0%:0800,000
BetoteVoBo®eBy e,y
%o %o %o Be 0o Se®e e
e
e
e

1
1
}

}

incrbOFfSET from (0 ¢+ OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do
egin

it (.BST_DEV eql 0) or
then

B8ST_DEV = OF_UN
else

BST_DEV = .BST_DEV + UNIT_SIZE;

if (.CST_ADDR L[.BST_DEV, D_PRES] eql PRESENT) and
(.CSTADDR [.BST_DEV, D_STAT) eq! ONLINE) and
(not TCST_ADDR [°BST_DEV, D_FATALY)
then

begin

:; .CST_ADDR [.BST_DEV, D_TYPE] eql RX_50
en

¢ else

MAD2 [DK_NUM]
return;

.CDISK;
.CDISK;

end;

]

% RANDOM SELECTION OF DRIVES

this part selects the device by the ratio

rat_count = .rat_count + 1;
if T.rat_count géq 100) then rat_count = 0;
it (.rat_count
en

[ss .swp_rat)

SELECT_RD = true

SELECT_RD = false;

}

SELECT_RD = true;

B8ST_CNT = RD_SEQ_CNT;

SET_UPAR (.BST_DEV).

:; (100 eql .swp_rat)

BST_CNT = RX_SEQ_CNT

MADY CDK_NUM]

}
1

(.BST_DEV eql (3 » UNIT_SIZE + OF_UN))

it (0 eql .swp_rat)
then

SELECT_RD = FALSE;

! increment counter from 0 to 100
! in case counter gets to large reinit to 0

! if counter greater than swap ratio then do a rx-50
! if counter less than ratio do a rd-51

! and reiniate the counter

! it ratio equal 100 do rd
! if ratio equals 0 do rx

21=Jul-1983 15:33:38
21-Jul=-1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

SEQ 330

Page 74
VAX=11 Bliss=16 v3=555
15 (23)
:
SEZRQABO.BL2
[DIETZ.RELEA
DISKSUSER2:

OO OOOOOOOOOOOOOOOOOOOOOOCOOORORRRRPRRPSRLRRXIRXRLR

H10

110

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

e 0e8e0e0oWs B, 80000000 Bs00800%e Vs 00

b ad

N W N AN W AN N U N AN AN N N N N AN NN N A NN

21=Jul=1983 15:33:38
21=-Jul=1983 15:23:38

IF RDS1s SELECTED

e ia i

COUNT NUMBER OF RDS1s AVAILABLE

i e

if .SELECT_RD
then
begin

i
D e

0O
8 =000~ o yo3
NOWVIS
W

i o

! COUNT THE NUMBER OF RDs IN THE SYSTEM

incr OFFSET from (0 + OF_UN) to (3 & UNIT_SIZE + OF_UN) by UNIT_SIZE do

md e

0000
00 Q0

it (.CST_ADDR L.OFFSET, D_PRES] eql PRESENT) and
(.CST_ADDR [.OFFSET, D_STAT] eql ONLINE) and
(.CST_ADDR [.OFFSET, D_TYPE) eql RD_51) and

b e

h (fiot -CST_ADDR C[.OFFSET, D_FATAL))

b o

OO0 0O

begin

STORAGE [.MOD_COUNT] = .OFFSET;
MOD_COUNT = .MOD_COUNT + 1;

b rd
bk

‘

MOD_COUNT = 0;

end;

NN U N G

VoW V0oV VeVs0s 0005000000980 0800,%¢40, %0, (TR YRR TR

TR PR TR YR TR

LN TN ¥

ZRQAM3
v01.2

[}

z SELECT ON OF THE RD51s

:; .MOD_COUNT neq 0
en

! IF AT LEAST ON RD51 PRESENT

begin
TBL_COUNT = 0;
do

begin

SE?_UPAR (.STORAGE [(.RANDOM [.TBL_COUNT] and %0°'077777°) mod .MOD_COUNT]);
TBL_COUNT = ,TBL_COUNT + 1;

end

until ((.CST_ADDR [.CUOFF, D_PRES] eql PRESENT) and
(.CSTADDR [.CUOFF, DZSTAT] eql ONLINE) and
(not -CST_ADDR [.CUOFF, D_FATAL1)) or

(.TBL_COUNT eql RDM_LENJ;

MAD1 C[DK_NUM] = ,CDISK;
MAD2 [DX_NUM] = .CDISK;
return;

end;

i IF NO RDS1 SELECTED, SELECT AN RX50

SEQ 331

Page 75
VAX=11 Bliss=16 V3-555
15 (23)
ABO.BL2;
DISKSUSER2: [DIETZ.RELEASEIZRQ

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

MOD_COUNT = 0;

incr OFFSET trom (0 + OF_UN) to (3 » UNIT_SIZE + OF_UN) by UNIT_SIZS do
if (.CST_ADDR [.OFFSET, D_PRES) eql PRESENT) and
(.CST"ADDR [.OFFSET, D_STAT] eql ONLINE) and
(.CSTZADDR C.OFFSET, D_TYPE] eql RX_50) and

AN
E N EEIE I E N E T E N E
Ve Ve VeV Ve B0 00000002V W0 808000030008 %¢% 290, % TR

enelTOt CST_ADDR [.OFFSET, D_FATAL))
en

begin

STSRAGE C.MOD _COUNT] = .OFFSET;

Hog-COUNT = .MOD_COUNT + 1;
end;

g AND CHOOSE ONE!
if .MOD_COUNT neq 0

then

begin

TBL_COUNT = 0;

begin

SE?_UPAR (.STORAGE [(.RANDOM [.T8BL_COUNT] and 20077777 mod .MOD_COUNT]);
TBL_COUNT = .TBL_COUNT + 1;

end

until ((.CST_ADDR [.CUOFF, D_PRES] eql PRESENT) and
(.CST-ADDR [.CUOFF, D_STAT] eql ONLINE) and

(not -CST_ADDR [.CUOFF,

(.TBL_COUNT eql RDM_LENJ:

D_FATAL1)) or

MAD1 CDK_NUM] = .(CDISK;
MAD2 [DK_NUM] = .(CDISK;
return;

end;

IF NO UNIT SELECTED SO FAR BY ABOVE METHOD, SELECT ANY ONE AT RANDOM
COUNT ALL UNITS AVAILABLE
MOD_COUNT = 0;

incr OFFSET from (0 + OF_UN) to (3 ¢ UNIT_SIZE + OF _UN) by UNIT_SIZE do
it (.CST_ADDR [.OFFSET, D_PRES] eql PRESENT) and

SEQ 332

Page 76
VAX=11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL2:13 (23)

: COUNT THE NUMBER OF RX50s

A T AN EE TR YAPR

N PR X

R F R LB F B XN ¥

ZRQAM3
v01.2

21=Jul=198 3 15:33:38
21=Jul-198 3 15:23:38

e 00000c0:0s000000000000000008005000000008000000000000000000000000000000002000009080 000480000000 e vepo e,

J 10

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
(.CST_ADDR [. orrssr

VAX=11 Bliss-16 v3-555

(23)
13 2:
DISKSUSERZ: [DIETZ RELEASEJZRQAB 0.8L

D _STAT] eql ONLINE) and

AR LRI X

h (not SCST_ADDR fssT D_FATALJ)
ST8RAGE C.MOD_COUNT]= .OFFSET;

AT L AL AL LA

nog COUNT= .MOD_COUNT + 1;
en

LRTR

TBL_COUNT = 0;

(.STORAGE L(. RANDOH [.TBL_COUNT] and X0'077777°) mod .MOD_COUNTI);
UPAR
_
SE?
TBL_COUNT = _TBL_COUNT

end”
untll ((.CST_ADDR [.CUOFF, D_PRES) eql PRESENT) and

and
(.CST_ADDR [.CUOFF, D_STAT] eql ONLINE)
or

W
N

P YR
PR TR

(not -CST_ADDR[.CUOFF, D_FATAL)))
(.T8L_ COUNT eql Ron LEN);

MAD?2 [DKNUM] = .CDISK;

E IR EEIEEEE

end

[+~

% DECLARE END-OF-PASS IF NO UNIT ONLINE
elseb

€0 FLAG = TRUE;

DCL ADDR [IG_ INT) = TRUE:;

end;

! ROUTINE QIO_UNIT

end;

000000

0000000000000 0080000000000080000000

AR
I

begin

PSECT

$GGCS,

WORD

.SBTTL
.PSECT

QIO.UNIT MULTI-DRIVE TEST ROUTINES
$SCODES, RO

RAT.COUNT:

OOOOOOOOOOCOOO

it .MOD_COUNT neq 0

then

return

007206

(-]

g SELECT ANY ONE ONE UNIT AT RANDOM

MADT (DK_NUM] = .(CDISK;

001246
001246

SEa 333

0002808000080 00000000000

ZRQAM3
v01.2

33:
21=Jul=198 3 15:33:38
21-Jul-198 3 15:23: 38

K 10

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
004137

032737
00

QIO0.UNIT:

0000006

3065

R1,$SAVE3

3100

000002

0000006

gg.SUP.FLAGS

001000

0000006

glOOO.SUP.FLAGS

3101

001230°

BST.CNT

3104

001232°

BST.DEV.RO

3105

3106

gST.DEV.RO
0
CST.ADDR,RO
g;OOOO.(RO)

3107

BST.CNT
78
#3.R1

:
:
: »,0FFSET

3110
31
g};g

3123

:
H
:
H

3125
3122
3127
3129

3130

3135

H
:
:
:

3137
3135
3139
3141

3142

3143

CST.ADDR,RO

0000006
040000

#40000, (RO)
1$

001232°

BST.DEV,RO

0000006
020000

#20000, (RO)

CST.ADDR,RO
1$

001232°
0000006
010000

BST.DEV,RO
3s
RO,#22

[ 1

000003
001232°'

=
Q
<

~N—

]

001230°

000022

000003

001232°

000005 001232°
001232°

48:

5$:

ADD

MOV

0000006
040000
020000

000004

000120

0000006
°
000164
0000006 000016
000166
0000006 000016

BST.DEV,RO
RO
CST.ADDR,RO
#40000, (RO)
8s
550000.(R0)

g;ZO.BST.CNT

001230°

004160 001230°
001232°*

43
#3,8ST.DEV
5%
#5,8ST.DEV

#10000, (RO)
8s
#4, (RO)
6$

010000

013760

SEQ 334

Page 78
VAX=11 Bliss=16 V3=555
13 (23)
Z
L2;
DIET
ZRQABO.B
RELEASEJ
R2:[
.
DISKSUSE

6$:

78:

MOV

#6160,8ST.CNT

BST.PEV,=(SP)
PC,SET.UPAR

MAD1,RO
CDISK,16(R0O)
MAD2,RO
CDISK,16(R0O)

CO0OO00000000O0OOORRORORORRCCROPRCLPRRARYRRRPVILLLLALARRIIR S

L 10

(SP)+

005726

000005
000022

8s:

05 R1

001246"
001246 000144

9s:

RAT.COUNY
RAT.COUNT,#144
10%
RAT.COUNT
SWP.RAT,R1
T
,R1
RAT.COUN
11$
#1,R0

001246°
0000006
001246°

108:

000001

000144
000001

118:

12$:

15$:

3129
3133
3119

3156

3158

: *,SELECT.RD
H
: SELECT.RD
:

3160
3158
3162
3164

: *,SELECT.RD

3166

: SELECT.RD
: SELECT.RD

3170
3179

: OFFSET,=

138:

148:

000003

R1.422
28’

:
:
: «,OFFSET

198
R3
#3,R1

R1.RO
RO’

: MOD.COUNT

3157

3168

3182

: ~,0FFSET

3184

: OFFSET,»

3186

CST.ADDR,RO

0000006

040000

l40000 (RO)

020000

020000 (RO
16$

3187

#g (RO)

3188

#10000, (RO)
16$
RO
R3.RO
RO

3189

3192

R3’
#5,R1

: MOD.COUNT
;s %« ,0FFSET

3193
3184

: MOD.COUNT

3200

s TBL.COUNT
:

3203
3207

000004

010000

000074°*

000005
000022

16$:

17%:

000116°
100000

: MOD.COUNT,*

R1,STORAGE (RO)

: OFFSET,«

R1.#22
15$

: OFFSET,»

R3
19%
R2
RO
R2,RO
R0
RANDOM(RO) ,=(SP)
#100000, (SP)
=(SP)

s TBL.COUNT,*

21=Jul=1983 15:
21=Jul=-1983 15:

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

SEQ 335

Page 79
VAX=11 Bliss=16 V3=555
(23)
.BL2;13
EJZRQABO
Z.RELEAS
R2:[DIET
DISKSUSE

QIEOVQRPPQY

020000

010000
18$:

19%:

20$:

21$
520000.(RO)
#4, (RO)
21%
#10000, (RO)
218
RO
R3.RO

000004

010000

R1,STORAGE (RO)

000074
218:

22$:

0000006

000742

016016

000074

: TBL.COUNT,*

3213

3215

s MOD.COUNT
;s *,0FFSET

3228
3230

3233

3234

3235

3238

; OFFSET,*

; MOD.COUNT,«
: OFFSET,”

3232

: MOD.COUNT
s =, OFFSET

3239
3230

208
R3
25%

: MOD.COUNT

3246

: TBL.COUNT
:

3249
3253

R2
RO

R2,RO
RO

; OFFSET,»

s TBL.COUNT,+

RANDOM(RO) ,=(SP)

#}ggOOO, (SP)
R3,(SP)

PS.BLSHOD
R

E
(RO) , (SP)
STORAG

@)
-]

wu
[«
-1
-]

NW
uu

R3’
#5,R1

R1,#22

R E RAN T N X)

3212

040000 (RO)

020000

000116
100000

CST.ADDR,RO

0000006
040000

000005
000022

#40000, (RO)
188
#20000, (RO)
188
#10000, (RO)
24%
R2,#20
178
24%
R3
#3,R1
R1,RO
RO

000005

3211

CST.ADDR,RO

0000006
040000

000020

3206
3210

R R R IR A IR A I E T TEYETE TR

H
:

R TR TR L) [

0000006

3208

ST TS S TR TR T R T R YO 1) TR TR TR IRXIR TR E P A TRTEA

(SP)+,(SP)+
CgOFF.RO

- TBL.COUNT

E
(RO) , (SP)
STORAG
:S.SET.UPAR

000C74"*
0000006

s MOD.COUNT,+

0000006

s MOD.COUNT,*

R3, (SP)
PC,BLSMOD
RO

SEQ 336

Page 80
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL2;15 (23)

110316

—.—l

21=Jul=19
21=Jul=19

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

moo
W

N 10

FC,SET.UPAR
R2

0000006

(SP)+,(SP)+
CgOFF,RO

0000006

010000

23$:
248:
25$:
26$%:

0000006

3258

: TBL.COUNT,*

3259

3261

s OFFSET,*

3272
3274
3276

3277

3278

;

3281

s MOD.COUNT
: *,0FFSET

s MOD.COUNT,*
s OFFSET,
s

R3
#5.R1
R1.#22

: MOD.COUNT
s %,OFFSET

3282
3274

R3
318
R2
RO
gZ.RO

: MOD.COUNT

3288

; TBL.COUNT
:

3291
3295

26$

s OFFSET,»

: TBL.COUNT,*

RANDOM(RO) ,=(SP)
#100000, (SP)
=(SP)
R3,(SP)
PC,BL$MOD
RO

(SP)
(R0O) ,GE
STORA

:S.SFT.UPAR
(SP)+,(SP)+
CgOFF.RO

CST.ADDR,RO

s MOD.COUNT,*

—

b wnd w=b
b wmh
b wd
b ad wod

—d e

cud wnd wmb amb b

b ad

b b end oud b cnd enb oud aud b cd b

SFVTRVE
RS RERNNS 2~k

b b b ad b cub w=b wub

o
888 288283333333
22383

27%:

28$:

0000006

308
R3
#3,R1
R1.RO
RO

E
(RO)
R1,STORAG

"
000074

000074*
0000006

228

27%
#20000, (RO)
27%
#10000, (RO)
27%
RO
R3,RO
RO

010000

0000006

3257

#40000, (RO)

020000

000116"
100000

238
#20000, (RO)
23$
#10000, (RO)
308
R2,#20

CST.ADDR,RO

0000006
040000

000005
000022

3252
3256

;
:

440000, (RO)

020000

000003

3254

CST.ADDR,RO

0000006
040000

000020

: TBL.COUNT

: TBL.COUNT
H
:

/
/

3296
3294
3298

MULTI-DRIVE TEST ROUTINES

RD/RX EXERCISER

SEQ 337

Page 81
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;13 (23)

21-Jul-198 3 15:33:38
21=Jul=198 3 15:23:38

e ®a beBea®a®ota®eoBa®noBeWeVoeWo®e 8s0pTeVs 0800 %004509¢%0%0900), 0,0, [(TEYREYRE IR TE TN PR IR DN ¥

8 11

cNn

21=Jul-1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
001174

032710

#40000, (RO)
29$
#20000, (RO)

040000
020000

#10000, (RO)
308
R2,#20

010000

000020

29%:

000164
0000006 000016

308:

28$

MAD1,RO
€DISK,16(RO)
MAD2,R0
gngK.16(R0)

000166°
0000006 000016

000001

040000

: Routine Size:

SEQ 338

Page 82
VAX-11 Bliss=16 V3=-555
13 (23)
2;
QABO.BL
EASEJZR
DISKSUSER2:(DIETZ.REL

318:

0000006

348 words,,

:
Base:
Routine

: Maximum stack depth per invocation:

7 words

Mov8
BIS
RTS

#1,E0P.FLAG

::6000.GDC7.ADDR

$CODES + 7206

3299

3300

s TBL.COUNT,*

3301

3303
3304
3290
3314
3315
3065

o N

T P

PR TN PR PR PR PRTSP PR PR TR TR

PRI YE YRLA IRLA LRA (TR TEIEIEIE

A TE YR YR

MULTI-DRIVE TEST ROUTINES

21-Jul=1983 1 +33:38
AV 1V, ]

RD/RX EXERCISER

21=Jul=1983 1 :23:38

routine QIO_FUNC : novalue =
*

PRI LA LN )

ZRQAM3
v01.2

SEQ 339
Page 83
DISKSUSERZ:[DIETZ.RELEASE JZROABO0.BL2;13 (24)

VAX=-11 Bliss=16 V3=555

THIS ROUTINE IS CALLED BY QJO_GEN TO SELECT THE 1/0 FUNCTION (OPCODE)
TO BE USED FOR THE CURRENT QI3 OR Q10 PAIR. THE FUNCTION IS DETERMINED

BY THE FOLLWING ALGORITHM:

IF_THE CHOSEN UNIT IS PROTECTED

THEN

FUNCTION = READ

ELSE (UNPROTECTED)
;H=SE£ON (WRITE OR READ) IS BASED ON A RANDOM

IN ADDITION, IF THE OPERATOR SELECTED THE OPTION OF PERFORMING WRITECOMPARES AT THE HOST, AND IF A ‘MWRITE'® FUNCTION WAS CHOSEN ABOVE FOR
THE FIRST QI0O, THEN A ‘READ’‘ OPCODE IS LOADED INTO THE SECOND MSCP
ENVELOPE. OTHERWISE, THE SECOND MSCP ENVELOPE IS RETURNED TO THE POOL.
THIS ROUTINE ALSO DECIDES WHEATHER IT IS TIME TO RUN THE DUP EXERCISER.
THE EXERCISER WRITES 25 LBNS FOR EVERY 1 OBN. FOR INITIALIZATION
REASONS THE MULTIPLE OF 25 LBNS CAN BE READ FOR 1 ~ MULTIPLE OF DBNS.
DUP EXERCISER WRITES X BLOCKS PER PASS THRU THE DUP ROUTINE. THERFORE
THE RATIO OF 1 TO 25 MUST BE MULTIPLIED BY X FOR A RATIO OF 1 TO
.
25 * X. SO EVERY 25¢X LBN'S READ OFF A WINCHESTER UNIT X DBN'S WILL
BE READ IF ASKED BY THE USER. X is represented by the VARIABLE 'DUPROUND'’.
DUPROUND MAY BE CHANGED IN THE SOFTWARE QUESTION GIVEN AT THE START OF
RUNNING THE EXERCISER PROGARM. THE DUP EXERCISER THEN REINITIALIZES
THE CONTROLLER AND CONTINUES AS IF THE REGULAR MSCP EXERCISER WAS
NEVER INTERRUPTED. NOTE THAT THE REINITIALIZATION PROCESSES TAKES
A COUPLE OF SECONDS WHICH ONCE ADDED UP AFTER A COUPLE MILLION READS
CAN PROVE TO BE QUITE TIMELY. TflERFORE I.SUGGEST THAT IF A LARGE AMOUNT OF
6$OTLEAg;S?ESgRE TO BE DONE THE 'DUPROUND’' VARIABLE BE RAISED TO SPEED UP
IMPLICIT INPUTS:

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST
CUOFF = CURRENT UNIT CST OFFSET

IMPLICIT OUTPUTS:

THE OPCODE FIELD OF ONE OR BOTH MSCP ENVELOPES IS LOADED.

T IR IR

begin
local

FUNC : word;

'PRINTX (DER9);

! OPCODE {READ OR WRITE)

;gRlNTF (DER9);

IF ((.CST_ADDR [.CUOFF + 4,D_COUNT] LEQ 0) AND
(.CST_ADDR
[.CUOFF.D,;YPEJ EQL RD 51 ) _AND
(.CST_ADDR [.CUOFF ’ [ 4 NODUPMEDIA] NEQ 1))

| F MSCP FUNC CNT EQUAL TO 0

'IF WINCHESTER DISK
LIF NODUPMEDIA FLAG BIT IS CLEAR

Ve Ve W 0oy

8 VaVs W V0800000000000 0¢080%¢%5 050000 %0909, 0, X TR YRIEIETEYETRIRYTE TR

PRFE NN Y TR T X ®e %e 0 00

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
BEGIN

SEQ 340

Page 84
VAX=11 Bliss=16 V3=555
15 (24)
2;
QABO.BL
EASEIZR
ETZ.REL
ER2:[DI
DISKSUS

THEN

PUT th1(MX2);

?gon C.CUOFF + 3, DUPERROR) = 0;
gar

! RETURN 1ST ENVELOPE TO POOL
! INDICATE AILURE
!CLEAR DUP ERROR FLAG
! DO DUP TEST
!CLEAR DUP ERROR FLAG
! PRINT MSCP EXERCISER REINIT

CST ADDR [.CUOFF + 3, DUPERROR) = 0;
'PRINTX (DBM111);
(25 + .dupround);
CST_ADDR [.CUOFF + &, D_COUNT]

! REINITIALIZE MSCP FUNC COUNTER

2 ENVOLOPES SO THE MSCP EXERCISER CAN
| aweesssernesevaeensrenreaeennes THIS SECTION REINTIALIZES
THE DUP EXERCISER STARTED wwettsnnenentvaten
| sesreaneranseenenacansnenenanss PROCEED AS BEFORE

DUP_FLAGS
= .DUP_FLAGS OR SWP_DINT;

INIT_TEST ()DUP_FLAGS= .DUP_FLAGS AND (NOT SWP_DINT);

! SET DUP INIT FLAG

! THIS REINITIALIZES THE CONTROLLER FOR MSCP MODE
! CLEAR DUP INIT FLAG
1

mMx2 = -1;

IF (MX1 = GET_PKT (.CCTLR)) LSS O
OR (. EOP-FLAG)

]

ASSUME FAILURE IN SECURING 2ND ENVELOPE
TRY TO GET 1ST ENVELOPE.

THEN

RETURN;

! IF FAILURE
! NO POINT IN CONTINUING

THEN

BEGIN

OR (.EOP_FLAG)

' IF FAILURE

IF (M2 = GET PKT (.CCTLR)) LSS O
PUT_ PxT ( Mx1);
MX1" =
RE TURN

! TRY TO GET 2ND ENVELOPE.

! RETURN 1ST ENVELOPE TO POOL
! INDICATE FAILURE
! DONE

END;

MAD1 = MSCP_PKT + (.MX1 « PKT_LEN « 2);
MAD2 = MSCP_PKT + (.MX2 * PKT_LEN * 2);
GET_RANDOM T);
QIOCUNIT ();

! CALCULATE STARTING ADDRESSES
OF BOTH ENVELOPES
!
! GENERATE A SET OF RANDOM NUMBERS
! LOAD RANDOM UNIT NUMBER INTO ENVELOPES

END;
'ttttttttttttttttttttttttttttttttttttttttttttittttttttttttttttttttttttttt

START OF ROUTINE MSCP

'ttttttttttttt.tttttttt'tt'tttttttttittttt'tttttttttttttttttt.tt'ttfittt.t

CST_ADDR C.CUOFF ¢ 4, D_COUNT]
MAD2 [OPCODE] = 0;

= .CST_ADDR [.CUOFF + &, D_COUNT]

= 1;

! ASSUME 2ND PACKET NOT NEEDED

lf CST _ADDR [.CUOFF, D_PROT] eql PROTECTED ! IF UNIT IS PROTECTED
else

FUNC OP_RD

! SET FUNCTION TO READ

if (.RANDOM (1] and 1)

! USE SND RANDOM NUMBER TO SELECT

! DECREMENT MSCP FUN

ZRQAM3
v01.2

115:33:38
21-Jul=1983
115:23:38
21=-Jul=1983

feYelelalelelelelelelelelelololelellololelelelele
o] (o]]

EMN

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI=-DRIVE TEST ROUTINES

IRQAM3

v01.2
R YRIEIEIEYEIETE IR TR PR DN PO XN P NN XY

then
else

FUNC = OP_RD

READ

UNC = OP_WRT;

WRITE

i; (MAD1 COPCODE] = .FUNC) eql OP_WRT
en

' LOAD CHOSEN OPCODE. IF WRITE

HA81 CCMD_TYPE)= NON_SEQ_CMD;

! NON=-SEQUENTIAL COMMAND

1; BIT_TST (SWP_FLAGS, SWF_(WC)

' IF CONTROLLER DOES WR]TE-COMPARES

then

! ADD COMPARE MODIFIER

MAD1 [MODIFY] = MD_CMP;

! IF HOST DOES WRITE-COMPARES

;; BIT_TST (SWP_FLAGS, SWF_HWC)
en

HA32 COPCODE] = OP_RD;

IR IR TRAR KN TN) [

SEQ 341

Page 85
VAX=11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ.RELEASEIZRAABO.BL2;15 (24)

HAgZ CCMD_TYPE] = NON SEQ_CMD;

! SET READ OPCODE INTO 2ND MSCP PACKET
! NON=-SEQUENTIAL COMMAND

end;

begin

MAD1 CCMD_TYPE] = NON_SEQ_CMD;

! NON-SEQUENTIAL COMMAND

if BIT_TST (SWP_FLAGS, SWF_CRC)

' IF CONTROLLER DOES READ-COMPARES = FUNCTION IS READ

else

end

! ADD COMPARE MODIFIER

MAD1 CMODIFY] = MD_CMP;

IR A

end;

:;.MAD2 [OPCODE] eql O

' IF NO OPCODE IN 2ND PACKET

PU?PKT (.MXx2);

! RETURN 2ND PACKET TO POOL

MX2 = -1;

! MARK IT UNUSED

end;

! ROUTINE QIO_FUNC

end;

004137

0000006

000010
010100

.SBTTL
QIO0.FUNC:

JSR

MOV

QIO.FUNC MULTI-DRIVE TEST ROUTINES

R1,$SAVE3
CUOFF R1

R1,RC
RO
R2,R0

8GT

A 3

TST

MOV

3319

3370

CST ADDR,R?2

MOV
ASt
ADD

3369

10(RO)

R1,R0

‘

e 8o 8 e e te e s8sVeRsve8s0s0s00s0:00000000000s0000000000000000000000000380000004 000580000600 000000080000,

F11

RO
R2 RO
#4, (RO)
‘s
R1,RO
RO
R2,RO

000004

PC PUT PKT

CgOFF.RO
CST.ADDR,RO

#40000,6(RO)
PC,DUP

0000006
040000 000006
0000006

#40000,6 (RO)
'c#orr.m

CUOFF ,RO

#31,-(SP}

PC,BLSMUL
RO.10(R1)
#2.DUP. FLAGS

A IR E

PC.INIT.TEST
#2.DUP,FLAGS
#-1,Mx2

CCTLR, (SP)

-—b

|V
W

TR}

0000006

RO, MX1
b1
g;.EOP.FLAG

PC,GET.PKT

RO,MX2

3s:

(SPS+ (SP)*

PC
Mx1,(SP)

MMSCP.PKT,RO

%
~

a1 ,mx

2$:

000160°

3s
MX1, (SP)
PC PUT PKT

Ve
Ve Be O

1$:

1$
#1,EOP.FLAG

0000006

P et
tlealelalalew
ol
o N

0000006

CST.ADDR,R?
DUPROUND | (SP)

0000006
0000006
000162°'

000160°

CST.ADDR.RO

000002 0000006
000212°
000002 0000006
177777 000162°
0000006
0000006
000160°

177777

3378
3379

0000006
0000006
000031
0000006
000010

000160°
0000006

3375
3376
3377

1,Mx2

0000006
040000 000006
000000V
0000006

000001

]

Mx2,=(SP)

000162°*
0000006
177777 000162°
0000006

6(R0)

000006

000001

3371

R PR PR PR PR L AL A R T 2 [ TEIR IR IR IEIETE YA TR PR YN PO AN V)

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

SEQ 342

Page 86
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;13 (24)

-1983 15:33:38
21=Jul~
115:23:38
21-Jul=-1983

RO, MAD1

Mx2, (SP)
#104,-(SP)

PC.BLSMUL
#MSCP.PKT,RO

RO,MAD2

PC.GET.RANDOM
PC.QI0.UNIT

48:

#10.5P

CST.ADDR,RO

#100000, (RO)
5%

000120°
S$:
6$:
78:

#1 ,RANDOM+2
63
#41,R1
78
#42,R1

000002
000020

000004

MAD1,RO
,R2
SWP.FLAGS
R1,22(R0)
R1,#42
9$
#2.4(RO)

040000
000040

000024

8s
#40000,24(R0)

=, FUNC
« FUNC

FUNC,
*
FUNC,*

#20.R2

8s:

#40,R2

000041
000166°
000002 000004

000002
000004

000004

040000

000024

9%:
10

108:

#40000,24(RO)
(R3)
11%

MX2,=(SP)
PC,PUT.PKT

000162°
0000006
177777 000162°
11%:

o1 Mx2
(sP)+
PC

000164*
000162°
000104

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3=-555
DISKSUSER2: [DIETZ.RELEASE JZROABO.BL2:13 (24)

21=Jul-19 83 1
21=-Jul-1983 1

RD/RX EXERCISER

SEQ 343
Page 87

YN IO OO AOOCOOOO0OOOO00OOR0OOORCROROPPRPPPRLRLRLLSIRLL

209 words,

Routine Base:

9 words

21-Jul=-1983 15:23:38

$SCODES + 10476

DISKSUSERZ:(DIETZ.RELEASEJZROABO.BLZ:1! (24)

: Routine Size:

: Maximum stack depth per invocation:

21=Jul-1983 15:33:38

SEQ 344

Page 88

OO OOOOOOOOOOO0OOOCOOOOOOCOOORRPRPRPRPRLRRRRPX

v01.2

RD/RX EXERCISER
TEST ROUTINES
MULTI-DRIVE

VAX=11 Bliss=16 V3=555

——

ZRQAM3

'+
ROUTINE DUP : NOVALUE =

3472

THIS ROUTINE IS CALLED BY QIO FUNC AFTER 25 + 'DUPROUND'' RO/WTS .
THIS EXERCISER WAS PLACED IN YHE MIDDLE OF THE MSCP EXERCISER SO A
COMMON INITIALIZATION AND OTHER ROUTINES COULD BE USED.
THE DUP EXCERSIZER WILL RUN A READ ONLY OR A WRITE/READ COMPARE

gz;g

THE STATICS IN THE TALLY TABLES.

3477
3478
3479
3480
3481
3482

!
!
!
!
!
!

THE PROGRAM USES CONTROLLER LOCAL PROGRAMS TO WRITE AND READ THE DBN'S.
WHEN WRITTING TO THE DBN'S A ONE WORD PATTERN WILL BE SELECTED
AND COPY TO A 256 WORD BLOCK. THE ROUTINE WILL WRITE TO 'DUPROUND’’ AMOUNT
OF DBN SEQUENTIAL BLOCKS. IF A THERE ARE CONTROLLER LOCAL PROGRAMS AND
IF THE USER SO DESIRES A WRITE AND READ OF EACH BLOCK AND A COMPARISON
TO THE DATA PATTERN WILL BE GIVEN TO TEST FOR FAULTY DBN'S. IF THE USER

gzgg

;

WILL NOT BE LISTED IN THE RCT TABLES.

3487
3488

!
!

AFTER THE EXERCISER HAS EXAMINE 'DUPROUND'' AMOUNT OF BLOCKS IT WILL
REINITIATE THE ENVOLOPES SO THAT THE MSCP EXERCISER MAY CONTINUE AS

3470
3471

3473
3476

3483
3484

!
!

—b

W
o

T
P P
e

3493
gzgg

3496

N P A

T T T T

T I

3492

TR R

!
!

3489
3490

TO THE DIAGONOSTIC BLOCKS OR DBN'S.

DOES NOT WANT TO WRITE TO THE DBN'S ONLY A READ WILL BE GIVEN AND NO
COMPARISON WILL BE DONE. THE BAD BLOCKS FOUND IN THE COMPARISON TEST

BEFORE.

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

CST ADDRS
CUOFF

!
z

S_PATTERN = PATTERN BEING WRITTEN TO AND READ FROM DBN'S

3499
3500
3501

BEGIN

3502
3503

!PRINTX (DBM110);
!PRINTX (DER10);

3505

S_PATTERN = .RANDOM [1];

3506

3507
3508

3509
3510

=~ CONTAINS THE CURREST CONTROLLER STATUS TABLE
« CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

IMPLICIT OUTPUTS:

gzgg

OWN

IT WILL RECORD

TEMP : WORD;

IF (.CST_ADDR [.CUOFF + 3, D_DBN] + .dupround) GEQ_144 THEN (CST_ADDR C.CUOFF + 3, D_DBN] = 0);

| TEST TO SEE IF NEXT DBN'S TO LARGE
i CIRCLE ARROUND IF DBN TO LARGE

BEGIN

3511
3512

MSCP_PKT [.MX., MSGLEN] = $Z_GDS:
MSCPTPKT C.MX1, OPCODE] = OPGDS;

' PACKET SIZE
i OPCODE = GET DUST STATUS

3514

DUPCOMMAND () :

i SENDS AND RECEIVES THE COMMAND

3513

;;}g

3517

MSCPTMPKT C.MX1. MODIFY] = 0;

If .csr_?agz t.cuorF + 3. DUPERROR] EQL 1

RETURN;

<N
[ TY 1]

L AL ARAL AN
PRPR TR TRIAINIR IR IR LR
PR PRTR
P

3465
3466
3467
3468
3469

21=Jul=1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

SEQ 345

Page 89
VAX=-11 Bliss=16 V3-555
ABO.BL2: 15 (25)
R2:
.RELEASEJZRO
SUSE
[DIETZ
DISK

OO0 =3=

J 1

'IF DUP ERROR THEN CLR FLAG & RETURN

GET DUST STATUS

END

I Y
PRI YR TN

OR_(.EOP_FLAG)

TRY TO GET AN ENVELOPE.

! NO POINT IN CONTINUING

THEN RETORN;

UNTIL .CST_ADDR [.CUOFF + 3, D_ACTIVE] EQL IDLE:
TEMP = .CST_ADDR [.CUOFF + 3, D ?8
N];

INCR DBNggEI;ROH (.TEMP + 1) TOTM

! INCREMENT FROM RELATIVE DBN TO DBN ¢ dupro

TEMP + .dupround) DO

¢ IF WRITE FLAG SET IN CST TABLE THEN WRITE DBN'S

T AT PR

l;HE§ST_ADDR [.CUOFF + 3, DUPWRITE]
BEGI

= .T_ADDR (T_DBN_WT] ¢ 1;
T ADDR [T DBN WT)

DOPWRTDBNT) ;

IF .CST ?D?R C.CUOFF + 3, DUPERROR] EQL 1

END:

'IF DUP ERROR THEN CLR FLAG & RETURN

RETURN;

T_ADDR [T DBN RD) = .T_ADDR [T_DBN_RD] ¢+ 1;

pUPREDDBNT) ;

IF .CST ?Dgz C.CUOFF + 3, DUPERROR] EOQL 1

TR R R R IR

! CALL ROUTINE TO HANDLE WRITTING ROUTINES

! CALL ROUTINE TO HANDLE READING DBN'S
'IF DUP ERROR THEN CLR FLAG & RETURN

RETURN;
END;

END;

001250
001250

TEMP:

.PSECT

$GGGS,
1

.SBTTL

DUP MULTI-DRIVE TEST ROUTINES

JSR
MOV
22{

R1,$SAVE3
RANDOM+2,S .PATTERN
ggOFF.RO

.PSECT

004137
013737
013700
006300

013746
012746

0000006
000120*' 0000006
0000006

DUP:

0000006

ADD

000006
0000006
000220

B8IS8
ADD
CMP

000006

CLRB

000160°*
000104

CLR

BLT

18:

BLKW

MOV

MoV

S$CODES,

H
:
:

3466
3505
3506

3511

CST.ADDR,RO

6(RO) ,R1
,R1
DUPRCUND
R1,#220
19

6(RO)

MX1,-(SP)

TR IR IRIR

IF (MX17= GET_PKT(CCTLfi)) LSS 0

#104,-(SP)

OB W= OO0

VIVIV AWV
AL
AININININININ)
= —

AN N N N N N NN

N X
I A LR LA LA TR LA TR

THEN RETURN
IF .CST_ADDR [.CUOFF + 3 NODUPHEDIAJ EQL 1 THEN RETURN; ! lF DUP LOCAL MEDIA NOT THERE
IF FAILURE

3527

SEQ 346

Page 90
VAX=-11 Bliss=16 V3-555
(25)
;15
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL2

OO0

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3

v01.2

PRIR

21=-Jul=-1983 15:33:38
21=Jul=1983 15:23:38

e 9e 000090000300
000s 0088000000 %000050, 000, %0000 YE

K 11

#14 . MSCP.PKT+6(R0)

#1,MSCP.PKT+22(R0)
(RO)
MSCP.PKT+24
PC . DUPCOMMAND
ggorr.ao

0000246
000000V
0000006

3512
3513
3514
3515

3466

3520

:
:
:
:

3466
3521
3510
3523

3526

3527

3530

s «,DBNCNT

3527

3530

3533

H
:

3534
3535

:
:

3537
3539

H
;

3540
3541

CST.ADDR,RO

0000006
040000 000006

#40000,6 (RO)
2%

6(RO)
2%
CCTLR, (SP)

000006
0000006
0000006
000160

000001

H
:
H
H

PC,GET.PKT

RO, MX1
2%

#1,EOP.FLAG

0000006
2$:

3s:

3$
(SP)+,(SP)+

(SP)+,(SP)+
CgOFF.RO

:
H
H

3518
3466
3519

CST.ADDR,RO

#6.R0

ggéooo.<ao>
(RO) ,TEMP
TEMP+1
TEMP,R2

,R2
DUPROUND
CUOFF RO
RO
CST.ADDR,RO
RO,
#6 .R3

010000

4$:

PC,DUPWRTDBN

CUOFF ,RO
RO
CST.ADDR,RO
;20000.6(R0)

G
0
040000 000006

0000006

006300

0000006

5%:
PC,DUPREDDBN

CUOFF ,RO
RO

PP
* )

"
PC,BLSMUL

0000006
000014 0000066
000001 0000226

21=Jul=19 83 15: 15:33:38
21=Jul-1 9 83 15:15:23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

SEQ 347

Page 91
VAX=11 Bliss=16 v3=-555
15 (25)
:
O.BL2;
R2
JZRQAB
SE
.RELEAS
SU
[DIETZ
SK
DI

CROORRPPPVLRVVIIVVRVIYD

21=Jul~=1983 15:
21=.ul--1983 15:

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

000006
040000

00
000402

MOV
ADD

CST.ADDR,RO
0.R3
#6.R3

CMP
BLE

78
R1
R1,R2
X

ADD

0000006

6$:

8IT
BNE
INC

78:

RTS

3548
3549

DISKSUSER2: [DIETZ.RELEASE

#40000, (R3)

$CODES + 11340
Routine Base:
130 words,
: Routine Size:
words
7
invocation:
per
depth
: Maximum stack

:
H

VAX=-11 Bliss~16 V3=555

* DBNCNT

. DBNCNT,*

SEQ 348

Page

13 (25)
JZRAABO.BL2:

3543
3527
3466

o.o.o.o.o-o...no.touo.u«nuuuuuuuuuuuuuuuuuuuuuuunuuun 0000000000000 90 %0 a,

PN PR
R P TR P
XA
R IR IR
R L A IR

! THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM
! "WRTDBN''. TO USE THE PROGRAM THE OPTIONAL DUP SUB=PROTOCAL IS USED TO

i COMMUNICATE WITH THE CONTROLLER. THE PROGRAM WRITES TO A DIAGONOSTIC BLOCK (DBN)
i THE WORD IN ''S_PATTERN'' IS WRITTEN TO THE 256 WORDS IN THE DBN. IF AN ERROR OCCURS
! WHILE RUNNING THE CONTROLLEx LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE
i DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK #, DEVICE ERROR, ZERO LENGHT MSG)
IMPLICIT INPUTS:

CST_ADDRS
CUOFF
S_PATTERN

éEGIN

= CONTAINS THE CURRENT CONTROLLER STATUS TABLE
= CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE
= CONTAINS PATTERN WORD!-

!PRINTX (DER11);

MSCP_PKT C.MX1, MSGLEN] = SZ_ELP;

MSCP_PKT [.Mx1, OPCODE] = OP_ELP;
MSCP_PKT [.MXx1, MODIFY] = 1;

! PACKET SIZE

! OPCODE = EXECUTE LOCAL PROGRAM
! STANDALONE MODIF IER

EXECUTE LOCAL PROGRAM WRT DB

MSCP_PKT LC.MXx1, L1] = Xascii'W’;

! FILL IN PROGRAM NAME WITH ASCII LETTERS

DUPCOMMAND ()

! SENDS AND RECEIVES THE COMMAND

MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP_PKT

L[.MX1,
[.MX1,
L.MX1,
L[.MX1,
C.MX1,

L2]
L3]
L&)
L5]
L6]

= Xascii'R!;
= Zascii'l’;
= Xascii‘'D’;
= Rascii'B';
= Xascii'N';

IF .CST_ADDR E.CUOFF + 3, DUPERROR] EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN
IF (Mx1 SRGETESEIFEAggrLR)) LSS 0
THEN

! TRY TO GET AN ENVELOPE. IF FAILURE

(CST_ADDR [.CUOFF + 3, DUPERROR] = 1;
RETORN;);

R T
R

MSCPZPKT [.MX1, BUF_0]_= DUPPKT;
MSCP_PKT [.Mx1, MODIFY] = 0;
DUPCOMMAND ();

MSCP_PKT [.MX1. OPCODE] = OP_RCD;

E TE ME N

MSCP_PKT [.MX1, MSGLEN] = SZ_REC:

! NO POINT IN CONTINUING

MSCPCPKT C.MX1, BC_LOJ = 2;

PACKET SIZE

OPCODE = RECEIVE DATA
i BYTE COUNT TO BE TRANSFERED EQUALS 2
LOAD DESCRIBTOR BUFFER
|

!1 SENDS AND RECEIVES THE COMMAND

IF .CST ADDR [.CUOFF + 3, DUPERROR] EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN
IF .DUPPKT [DUPTYPE] NEQ 1
OR .DUPPKT CDUPMESG] NEQ 6
OR (MX1 = GET_PKT (.CCTLR)) LSS O
?zgé'EOP'FLAG’

! IF CORRECT RESPONSE
! TRY TO GET AN ENVELOPE. I!F FAILURE

(HARD ERROR ():

CST ADDR [.CUOFF + 3, DUPERROR] = 1;
RETORN;);

<N
o®

N YR TR TN I Y Y

CONO
VS W =O

VIV
VIV
VILW

WIN NN NN N NN

TR PN PRFE PR YR PRLR LN XN X

PRTR

3559

ROUTINE DUPWRTDBN : NOVALUE =

PRPN

PR A TN PNYR TR

21=Jul-1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

SEQ 349

Page 93
VAX=-11 Bliss~16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;15 (26)

! NO POINT IN CONTINUING

RECIEVE DATA

000090 0:0000000s000800000080000000 9000000000000, 800000000 TR YEIETERINIE

B 12

;
:
:

3610
3611
3612

;
:
;
:;

3605
3606
3607
3608
3609

MSCP_PKT [.MX1, MSGLENJ = SZ_SEN;
MSCPTPKT [.MX1, OPCODEJ = OPZSDD:
MSCPZPKT [.MX1. BC_LO) = 6;
0] = DUPPKT;
aur
£.MX1
PKT
nscp
.CTdisk;
=
J
DUPPRT [OUPBFO

SEND DATA
! PACKET SIZE
i OPCODE = SEND DAT
i BYTE COUNT TO BE TRANSFERED EQUALS 6
OR BUFFER
DESCRIBT
LOADUNIT
iiLOAD
NUMBER (RDRX)

3613

DUPCOMMAND

i ssuos AND RECEIVES THE COMMAND

3619

RETURN
ERROR THEN
'IFGETDUP
] EQL 1 THEN RETURN;
DUPERROR
3,
+
CUOFF
t
ADDR
IFIF .CST
FAILURE
IF
.
ENVELOPE
AN
70
TRY
'
0
LSS
(.CCTLR))
(MX1"= GET_PKT
OR (.EOP_FLAG)

3616

3617

DUPPKT CDUPBF1] = .CST ADDR C.CUOFF + 3, D_DBNJ; ! LOAD DBN NUMBER
t"LOAD PATTERN
DUPPKT [DUPBF2] = .S_PATTERN;
0;
=
MODIFY]
nx1
C.
MSCP_PKT

3614
3615

THEN

(CST _ADDR [.CUOFF + 3, DUPERROR] = 1;

3618

! NO POINT IN CONTINUING

RETORN;) ;

365

RECEIVE DATA
! PACKET SIZE
DATA
i OPCODE= RECEIVE
i BYTE COUNT TO BE TRANSFERED EQUALS 4

:
:
:

3622
3623
3624

MSCP_PKT [.MX1, MSGLEN] = SZ_REC:
MSCPTPKT C.MX1, OPCODE] = OP_RCD:
MSCPZPKT C.MX1, BC_LOJ = 4;

3628
3629

'IF DUP ERROR THEN RETURN
RETURN:
THEN
1
EQL
J
DUPERROR
3,
+
CUOFF
t
ADDR
IFIF .CST
(.DUPPKT CDUPTYPE] NEQ 3)

:
:

gggg
3637

;

OR (.EOP_FLAG)
THEN

3639

:
:

3643
3644

000000

RETORN;) ;
IF ((MX1 = GET_PKT (.CCTLR)) LSS 0)

3638

3640

(CST ADDR [.CUOFF + 3, DUPERROR] = 1:

' NO POINT IN CONTINUING

T_ADDR [T_BLK_WT] = .T_ADDR [T_BLK_WT] ¢+ 1;
ERD;
.SBTTL
DUPWRTDBN:

010146

012746
004737
012760
112760
012760

! NO POINT IN CONTINUING
I TRY TO GET AN ENVELOPE. IF FAILURE

RETORN;):

ggz;

000002 013746 000160°

000006
000012
000016
000024
000032

(HARD_ERROR ();

¢ST _ADDRL.CUOFF + 3, DUPERROR] = 1;

3634

THEN

3632

3633

OR (.DUPPKT CDUPBF1] NEQ 0)

3631

i LOAD DESCRIBTOR BUFFER
i
i SENDS AND RECEIVES THE COMMAND
' IF CORRECT RESPONSE

OR (.DUPPKT L[DUPMESG] NEQ 3)

3630

MSCPTPKT C.MXx1. BUF_01 = DUprr:
MSCPTPKT L. nx1 MODIFY] =
DUPCOMMAND (

3625
3626
3627

:
:
:

el e el e = lelel= = ]>lele]eleloc]lelelo]lolelw e o -]

3603
3604

;
:

000104
0000006
000022 0000066
000003 0000226
000001 0000246

MOV

MOV
JSR
MOV
MOVB
MoV

DUPWRTDBN MULTI-DRIVE TEST ROUTINES

3550

R1,=(SP)

104, -(SP)
PC,BLSMU
n22, nscp eroe(no>
#3,MSCP.PKT+22(R0)
#1,MSCP.PKT+24 (RO)

3569

:
:

3570
3571

mxi,=(SP)

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

SEQ 350

Page 9%
VAX-11 Bliss=16 V3=555
21-Jul=1983 15:33:38
(26)
2;13
RQABO.BL
ELEASEJZ
LDIETZ.R
ER2:
DISKSUS
51-Jul=1983 15:23:38

¢ 12

#127 ,MSCP.PKT+26(
#122,MSCP.PKT+27(
#1264 ,MSCP.PKT+30(
#104 ,MSCP.PKT+31(
#102,MSCP.PKT+32(R0)
#116,MSCP.PKT+33(R0)

0000266
0000276
0000306
0000316
0000326
0000336

000127
00$122
000124
000104
000102
000116

PC,DUPCOMMAND

ggOFF.RO

0000006

0000006
040000 000006

CST.ADDR,RO
520000.6(R0)

0000006
0000006
000160°*

PC,GET.PKT

CCTLR, (SP)

RO, Mx1
1$

#1,EOP.FLAG

000000G

000001

18:

0000006
0000006
040000 000006

2s:

3s:

000160°

000104
000000G

38
gUOFF,RO
0
CST.ADDR,RO
#40000,6 (RO)
(gP)*.(SP)*
6
MX1, (SP)

#104,=(SP)

PC,BLSMUL
#34 ,MSCP .PKT+6(R0)
#5,MSCP.PKT+22(R0)
#2.MSCP.PKT+26(RO0)
#DUPPKT.MSCP.PKT+32(R0)
(RO)
MSCP.PKT+24

000034 0000066
000005 0000226
000002 0000266
0000006 0000326

PC ., DUPCOMMAND

CUOFF ,RO

040000

CST.ADDR,RO
g20000.6(k0)

000006

DUPPKT,RO

0000006
007777
010000

#7777 .R0
48

DUPPKT RO

#170000RO
,

3572
3573
3574
3575
3576
3577
3578
3579

H
:

3550
3580

3581

3583

:
:
:

3580
3583
3588

:
:
:
:
:
:

3589
3590
3591
3592
3593
3594

:
:

3550
3595

3596

3597

3598

3600

RO, #6

CCTLR, (SP)

0000006
0000006
000160°

000000V

H
:
:
:
:
H
:
:

RO,#10000

0000006
170000
000006

000001

MULTI-DRIVE TEST ROUTINES

OOOOOOOOOOOOOOORDOOOOD

21=Jul=-19
21=Jul-19

RD/RX EXERCISER

SEQ 351

Page 95
VAX=11 Bliss=16 V3-555
(26)
.BL2;15
DISKSUSER2:CDIETZ.RELEASEJZRQABO

0000006
48:

PC,GET.PKT
RO, MX1
4$
#1,EOP.FLAG
78
PC,HARD.ERROR

8s:

000034 0000066
000005 0000226
000004 0000266
0000006 0000326

040000

178’

MX1,(SP)

0104 =(SP)
BLSMUL

03&nscp PKT+6(R0)

#5,MSCP.PKT+22 (R0)

#4_MSCP.PKT+26(R0)
#DUPPKT .MSCP.PKT+32(R0)

MSCP.PKT+24 (RO)
CST.ADDR,RO

#40000,6 (RO)
16$

N T Y

#10.,S

9$:
108:
118:

ggorrRO

000006

W
N
4

CST.ADDR,RO

#40000 6(R0)

PC., DUPCOMMAND

0000006
0000006

000160°

118

0000006

CUOFF ,RO

-b

000001

#1,EOP.FLAG

L1]

CCTLR, (SP)

PC,GET.PKT
RO, Mx1

& &

CST.ADDR,RO
520000.6(R0)

®e O

PC ., DUPCOMMAND

ggorr.no

CST.ADDR,R1

6(R1) ,DUPPKT+2
DUPPKT+3
S.PATTERN,DUPPKT+4
MSCP.PKT+24 (RO)

0000006
0000006
000160°

0000006
040000 000006
000010

3606
3607
3608
3609
3610

YRR

#4 ,MSCP.PKT+22 (RO)
#6.MSCP.PKT+26(R0)
#DUPPKT .MSCP.PKT+32(R0)
CDISK,DUPPKT
cgorr‘R1

LR TE TR TR T

LSMUL

000006

0000006

3605

TR TN YR IR IR TR PRAN 2] LI

;

3600

0104 -(SP)

;

3595

R IR

uu
-1+
-]

NW
uu

MX1, (SP)

cslHSCP PKT+6(R0)

000000G
000006 0000026
0000036
000000G 0000046
0000246
000000V
0000006

001054

1oi

3601

e 0ee 000 0T B V00, Ve, O e IR

78:

0000006

040000

440000 6(RO)

06,S

0000006 0000326
0000006 0000006

0000006

SEQ 352

Page 96
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.BL2;15 (26)

A, Gy, vy, Py, v, P, P PN N N N

0000006
040000 000006
000006
000104
0000006
000034 0000066

\-fi\fl

CUOFF ,RO
RO
CST.ADDR RO

0000006

000160°*

21=Jul=198
21=Jul-198

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

D 12

E 12

3629

3630

ou:er+2

3631

14$

:
:

3633
3634

PC,GET.PKT
RO, MX1
14$
#1,E0P.FLAG

3638

cgorr.ao

3640

:
H

3637
3643
3564
3550

Palelel=lel=lel=]l>]=lolelelelrlolelelalelelalelals]

:
H

21=Jul=-198 3 15:33:38
21=Jul=198 3 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

DUPPKT RO

0000006
007777
030000

riddd

RO nsbooo
12§

ouppxr RO

G
170000

#170000, RO
RO, #3

128

000001

128:

13
. ERROR
PC ,HARD

138:

CCTLR, (SP)

0000006

15§

148:

000012

001064

000207

3637

CST.ADDR,RO

0000006
040000 000006
0000006
000050

SEQ 353

Page 97
VAX-11 Bliss=16 V3=-555
(26)
L2;15
RQAB(O.B
ELEASEIZ
[DIETZ.R
DISKSUSER2:

#40000,6(RO)
168
T.ADDR,RO
50(R0)
#12,SP

15$:
16$:
17$:

RTS

(gp$+LR1

Routine Base: $CODES + 11744
; Routine Size:
283 words,
7 words
; Maximum stack depth per invocation:

.
N
.
:

3645
3646
3647

ROUTINE DUPREDDBN : NOVALUE =

3649
3650
3651
3652

! 'REDDBN''. TO USE THE PROGRAM THE OPTIONAL DUP SUB=-PROTOCAL IS USED TO (DBN)
! COMMUNICATE WITH THE CONTROLLER. THE PBOGRAH gfiADS A DIAGONOSTIC BLOCK
! AND PLACES IT IN THE DUP BUFFER CALLED °'DUPPKT'’. IF AN ERROR OCCURS WHILE
! RUNNING THE CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE

3648

! THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM

gggz

; DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK #, DEVICE ERROR, ZERO LENGHT MSG)
!
!

:
.

3655
3655

3657
gggg

!
;

H
:
:

3660
3661
ggg%

BEGIN

3664 MSCP_PKT [.MX1, MSGLEN] = SZ_ELP;

3667 MSCP_PKT [.Mx1, L1] = !asc]I'R':

.
:

:
;

IMPLICIT INPUTS:

CST ADDR
CUOFF

= CONTAINS THE CURRENT CONTROLLER STATUS TABLE
= CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

'PRINTX (DER12);

3665 MSCP_PKY [.Mx1, OPCODE] = OP_ELP;
3666 MSCP_PKT [.MX1, MODIFY] = 1;
MSCP_PKT [.Mx1, L2] = Xascii'E’;
MSCP_PKT [.MX1, L3) = Xascii'D’;

! PACKET SIZE

! OPCODE = EXECUTE LOCAL PROGRAM
i STANDALONE MODIF IER

' FILL IN PROGRAM NAME WITH ASCII LETTERS

:
H

3668
3669

! SENDS AND RECEIVES THE COMMAND
3673 DUPCOMMAND ():
'IF DUP ERROR THEN RETURN
RETURN;
THEN
1
EQL
DUPERROR]
3,
3674 1F .CST_ADDR t.CUOFF +
GET AN ENVELOPE. IF FAILURE
TO
TRY
!
O
LSS
(.CCTLR))
3675 IF (MX1 = GET_PKT

3677

3679

:
:
:

3670
3671
3672

MSCP_PKT [.MX1, L&] = Xascii'D®;
MSCP_PKT [.MX1, L5) = Xascii'B';
MSCP _PKT [.MX1, L6] = Xascii'N’';

3676

OR (.EOP_FLAG)

3678

H
H
H

3682
3683
3684

3688

H
:
H

H
H
H

3685
3686
3687

3689
3690
3691

3692

:
K

3693
3694

3696

3695

THEN

EXECUTE REDDBN PROGRAM

(CST_ADDR [.CUOFF ¢+ 3, DUPERROR] = 1;

RETORN;);

MSCP_PKT [.MX1, MSGLEN] = SZ_REC.
MSCP_PKT [.MX1, OPCODE] = OP_R(D;
MSCP_PKT [.Mx1, B8C_LO] = 2;

! NO POINT IN CONTINUING

RECIEVE DATA
! PACKET SIZE
DATA
RECEIVE
=
! OPCODE
! BYTE COUNT TO BE TRANSFERED EQUALS 2

' LOAD DESCRIBTOR BUFFER
MSCP_PKT [.MX1, B8UF_0] = DUPPKT;
!
MSCPTPKT [.Mx1, MODIFY] = 0;
! SENDS AND RECEIVES THE COMMAND
DUPCOMMAND ()
IF .CST_ADDR t.CUOFF + 3, DUPERROR] EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN
IF .DUPPKT LCDUPTYPE] NEQ 1
' IF CORRECT RESPONSE
OR .DUPPKT [DUPMESG] NEQ S
! TRY TO GET AN ENVELOPE. IF FAILURE
OR (MX1 = GEY_PKT (.CCTLR)) LSS O
~
OR (.EOP_FLAGY
THEN

(HARD _ERROR ().

cST_ADDR [.CUOFF + 3, DUPERROR] = 1;

RETORN;);

! NO POINT IN CONTINUING

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

SEQ 354

Page 98
VAX=11 Bliss=16 V3=555
DISKSUSER2:LDIETZ .RELEASEJZRQABO.BL2;13 (27)

RIS TAYR IR 2 00%08s000009000000¢0000000205000000000008000080%0800000 8000489 YRS IXTETELRXNT ¥Y

F 12

MSCP_PKT [.MX1, MSGLEN] = SZ_SEN.

! PACKET SIZE

MSCP_PKT [.MX1, BC LOJ
nscp PKT C.Mx1, BUF OJ z ouppxr

i BYTE COUNT TO BE TRANSFERED EQUALS 4

i OPCODE = SEND DAT

MSCP_PKT [.MX1, OPCODE] = OP SDD;

SEND DATA

mSCP_PkT (. nx1 MODIFY]
=
DUPCBMMAND

i SENDS AND RECEIVES THE COMMAND

TS XYE

'IF DUP ERROR THEN RETURN
IF .CST ADDR t CUOFF + 3, DUPERRORJ EQL 1 THEN RETURN;
! TRY TO GET AN ENVELOPE. IF FAILURE

IF (MX1~= GET_PKT (.CCTLR)) LSS 0
orR (.EOP_ FLAG)

(CST_ADDR [.CUOFF + 3, DUPERROR] =
RETORN;);

! NO POINT IN CONTINUING

! PACKET SIZE
i OPCODE = GET DUST STATUS

MSCP_PKT [.MX1, MSGLEN] = SZ_REC:

MSCP_PKT L[.MX1, OPCODE]) = op RCD:
MSCPPKT [.MX1, BC_LOJ = 514
MSCPCPKT L.Mx1, BUF_0] = ouppxr

R I YR I R Y D )] (YRR

IR E I

THEN

RECEIVE DATA

i BYTE COUNT TO BE TRANSFERED EQUALS 512
' LOAD DESCRIBTOR BUFFER

OR (.EOP_FLAGY

(HARD_ERROR ():

=
CST_KDDRC.CUOFF + 3., DUPERROR]
RETORN;);

! NO POINT IN CONTINUING

CST_ADDR [.CUOFF + 3 D_DBN] = .CST ADDR [ CUOFF +3,0 _DBN] ¢+ 1;
T_ADDR [T_BLK_RD] = .T_KDDR [T_BLK_RD]

THEN

! ]F CORRECT RESPONSE
! TRY TO GET AN ENVELOPE. IF FAILURE

.DUPPKT [DUPMESG] NEQ 2
on (MX1 = GET_PKT (.CCTLR)) LSS 0

IF .DUPPKT COUPTYPE] NEQ

ETE TR

MSCPTPKT t nx1 oIFVJ 0;
i SENDS AND RECEIVES THE COMMAND
DUPC
'IF DUP ERROR THEN RETURN
RETURN;
THEN
1
EQL
DUPERROR]
3,
+
IF .CST ADDR t CUOFF
6

! INCREMENT RELATIVE DBN COUNTER

.SBTTL

DUPREDDBN:

Moy

000160°
000104

MOVEB
MOVB

0000306
0000316

3645

#3,MSCP.PKT+22(
#1 . MSCP.PKT+24(R0)

;
:

3665
3666

#104.MSCP.PKT+30(R0)
#104.MSCP.PKT+31(R0)

:
;

3669
3670

MOVB
MOV

JSR

000122 0000266
000105 0000276
000104
000104

R1,-(SP)

mxi,=-(SP)
0104 -(SP)

WOV

3
000001 0000246

DUPREDDBN MULTI-DRIVE TEST ROUTINES

MOV
MOV

0000066
000022 0000226

0000006

MOVB
MOVEB

N P

END;

;

3664

8LSMUL

35MSCPLPKT+6(RO)
R0)
#192,MSCP.PKT+26(RO)
#105.MSCP.PKT+27(RO)

:
:

3667
3668

By, iy, e, Fny, ey, [N gy, Py e, P g

Y EYE

' LOAD DESCRIBTOR BUFFER
LOAD UNIT NUMBER (RDRX)
!
OUPPRT [OUPBFOJ= .T
LOAD DBN NUMBER
‘
D_DBN];
3,
+
CUOFF
t
PDUPPKT [DUPBF1] = .csr ADDR

IR
BIBe W 0e 00080002 808,05 Ba0e Ty Te Ve Ve Vo N TR IR IR

21=Jul-1983 15:33:38
21-Jul=-198315:23:38

RDO/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

YR PR N PR LN X

ZRQAM3
v01.2

SEQ 355

Page 99
VAX=11 Bliss=16 V3=555
15
2: (27)
RQABO.BL2;
SER
[DIETZ .RELEASEIZ
DISKSU

X IEIEYEIETR IR TR TR PR LN ¥

G 12

MULTI-DRIVE TEST ROUTINES

CST.ADDR,RO

0000006
040000 000006

PC,GET.PKT

0000006

1$:

000104
0000006

2$:

040000

#40000,6(R0)

3675

ggP)*.(SP)*

3682

MX1,(SP)

#104,-(SP)
PC,BLSMUL

#34 ,MSCP.PKT+6(RO)
#5,MSCP.PKT+22(R0)
#2 ,MSCP.PKT+26(RO)

000034 0000066
000005 0000226
000002 0000266
0000006 0000326
0000246
000000V
0000006
0000006

3678

CUOFF ,RO

CST.ADDR,RO

3s:

000160°

3676

040000

000006

RO, MX1
1%
#1,EOP.FLAG
33

0000006
0000006

&
v

#40000,6(RO)
2
CCTLR, (SP)

0000006
0000006
000160°*

000001

(R
#102,MSCP.PKT+32(R0)
(R
#116,MSCP.PKT+33(R0)

000102 0000326
000116 0000336
000000V
0000006

112760
112760
004737
013700
006 300
063700

#DUPPKT ,MSCP.PKT+32(R0)
(RO)
MSCP.PKT+24

CST.ADDR,RO
g‘OOOO.b(RO)

000006

3645
3689

DUPPKT RO

0000006
007777
010000

#7777 .R0

0000006

DUPPKT ,RO

000005

RO, 45

2g.n1éooo
#170000,
RO

170000

43
CCTLR,(SP)

PC,GET.PKT

3691

3692

3695

Rg.nx1
4

000001

300
063700
052760

#1,EOP.FLAG

0000006

000000V
0000006
0000006
040000 000006

4s:

78
PC ,HARD.ERROR
Cuo
RO

CST.ADDR,RO

#40000,6(RO)

21=Jul=1 983 3 1 15:33:38
21=Jul=-198 3 15:23:38

RD/RX EXERCISER

SEQ 356

Page 100
VAX-11 Bliss=16 V3-555
(27)
.BL2:13
IZRQABO
RELEASE
DISKSUSER2: [DIETZ.

OO AAOAOOOOOOOOOOOOOOOOOOOOROOVOPD (=l

H 12

112

000006

gg:

#6,5P

000160°

78:

MX1,

10§

(SP)

#104,=(SP)

H
:

3689

3694
3699

PC,BLSMUL

o
LY

PR PR TR LR

(¥}
~

#4 ,MSCP.PKT+22(R0)
24 MSCP.PKT+26(R0)
#DUPPKT .MSCP.PKT+32(R0)
CDISK,DUPPKT
C?OFF.Rl

YR
TR T

#34 MSCP.PKT+6(R0)

CST.ADDR,R1
6(R1) ,DUPPKT+2
) UPPK T+3
MSCP.PKT+24(RO)
PC,DUPCOMMAND

CgOFF.RO

CST.ADDR,RO
520000.6(R0)
CCTLR, (SP)

PC,GET.PKT

gO.NX1

0000006
040000 000006

0000006

CST.ADDR,RO

#10,SP

158
Mx1, (SP)

#104,-(SP)

PC.BLSMUL
#34 ,MSCP.PKT+6(R0)

45 ,MSCP.PKT+22(R0)

#1002, MSCP.PKT+26(R0)

#DUPPKT
, MSCP.PKT+32(R0)
(RO)
MSCP.PKT+24
PC ., DUPCOMMAND

cgorr.no

CST.ADDR,RO

#40000,6 (RO)
148

DUPPKT,RO

#7777 R0

RO,#60000
12$

RO
DUPPKT

9%:
108:
118:

#40000,6 (RO)

\v]
~
N

000034 0000066
000005 0000226
001002 0000266
0000006 0000326
0000246
000000V
0000006

YAF PP AP

000006

118

CUOFF ,RO

000006
040000 000006

8s:

0000006

0000006
007777
060000

$
#1,EOP.FLAG

0000006

P tarlatalealealalalealal®
Ta] e NN = )

000160°*

000001

LR TR TR LN TR LA

MULTI-DRIVE TEST ROUTINES

PRPR PE TR

21-Jul-1983 15:
21-Jul=1983 15:

RD/RX EXERCISER

SEQ 357

Page 101
VAX-11 BLiss=16 V3=555
(27)
.BL2;13
DISKSUSER2: [DIETZ.RELEASEIZRQABO

MULTI-DRIVE TEST ROUTINES
170000

#170000,
R0
RO, #2

0000006
0000006
000160*

CCTLR, (SP)

000002

000001

12§

PC,GET.PKT

RO MX1
12

#1,EOP.FLAG

0000006

000000V

0000006

128:

3725

3726
3728
3729

PC,HARD
. ERROR

CUOFF ,RO

RO
CST.ADDR,RO

0000006
040000 000006

0000006

13§

oagooo,6(R0)

138:

3723
3732

CUOFF ,RO
CST.ADDR,RO

000012

14%:

15%:

$CODES + 13032
Base:
.
Routine
; Routine Size: 283 words,
7 words
: Maximum stack depth per invocation:

3736

3733

;
:

3660
3645

d-l

21-Jul21=Jul-

RD/RX EXERCISER

SEQ 358

Page 102
VAX=11 Bliss=16 V3=-555
(27)
.BL2:15
EJZROABO
Z.RELEAS
DISKSUSER2:[DIET

PeYel=l=]l"]=]=lelel=]=l=]l=lelolelalelolalela]u]

J 12

ROUTINE DUPCOMMAND : NOVALUE =

3740

!¢

3742

' THE COMMAND ENVOLOPES ARE FILLED IN DUP ROUTINES IN THE 'MX1'' INDEX.

3741

3743
;;22
3747

3748

3749

:
;

3750
3751

3753

;

;
;

:
;

;

3768

000000

BEGIN

MSCPTPKT C.MX1, CONNID] = 2:

MSCP_PKT [.MX1. DK_NUM] = O;
THEN

112711
112761
005060
013716

BEGIN
PUT_PKT (.MX1);

CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

ELSE

! RETURN ENVELOPE TO POOL

BEGIN
QI0 [.CCTLR] = .QIO0 [.CCTLR] + 1;

! IF SEND WAS SUCCESSFUL
! INCR OUTSTANDING QIO COUNT

WAIT O;
gzgc-asrpxr():

i WAIT FOR RETPKT RESPONSE
i PROCESS RETURN PACKET TO SEE IF OK FOR DUP

BREAK ;

END;

! BREAK FOR SUPERVISOR TO CATCH USER REQUESTS

END;
.SBTTL
DUPCOMMAND:

000016 012746 000104

000034
000040
000046
000052

! ATTEMPT SEND; IF CTLR IS OFFLINE

END

010146

004737
012701
060001

! DISK NUMBER

MX17= -1;

000002 132737 000001 0000006
000010 001060
000012 013746 000160°
000022
000026
000032

i MAKE PACKAGE EQUAL A DUP COMMAND

IF SEND (.MX1) EQLU FAILURE

3769
g;;?

3772

MSCP_PKT [.MX1, MSGTYP) = 0;

3766
3767

3773

! CREDITS EQUALS 1

MSCP_PKT [.MX1, CREDITS) = 1;

3762

3764
3765

;

THEN RETURN

ELSE

3757
3758

3763

:
;

'PRINTX (DER13);

IF .EOP_FLAG

g;gg

:
:

BEGIN

3754

;

! WITH THE INDEX THIS ROUTINE SENDS THE COMMAND, WAITS FOR A
E RESPONSES *ND THEN PROCESSES THE RETURN PACKET.

3752

3759
3760
3761

:
;

! THIS ROUTINE IS CALLED BY DUP TO PROCESS COMMANDS.

0000006
0000106

000001
000002 000001
0000166
000160°

ODUPCOMMAND MULTI-DRIVE TEST ROUTINES

MOV
BIT8
BNE
MOV

R1,=-(SP)
#1.EOP.FLAG
3s
Mx1,-(SP)

JSR
MOV
ADD

PC.BLSMUL
#MSCP.PKT+10,R1
RO,R1

MOV

MOVB
MOVB
CLR
MOV

#104,-(SP)

#1.(R1)
#2.1(R1)
MSCP.PKT+16(R0)
MX1, (SP)

;
;
;
;

3738
3748
3749
3752

:
:
:
:

3753
3754
3755
3752

RSTRY PP P P TN 1) e 0e0s B0 0e00 0000 000000000000 00000000000000000000000000000000000,

3737
%;gg

SEQ 359

Page 103
VAX=-11 Bliss~16 V3=555
2:15 (28)
QABO.BL2;
SER
[DIETZ .RELEASEIZR
DISKSU

IR RLRT

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

;

21-Jul=-1983 15:33:38
21=Jul~-1983 15:23:38

K 12

" RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

Routine Base: $CODES + 14120
55 words,
: Maximum stack depth per invocation: S words

: Routine Size:

3774

-l

w
o
g

O0O000OROROOORRRORDOORQ

RTS

PC,WAIT
PC,PROC.RETPKT
(SP)+,(SP)+
(SP) +,R1

OO0

2$:
3s:

CCTLR,RO
QI0(RO)
22

~
~
o

1$:

0000006
000000V

CST.ADDR,RO
5:0000.6(R0)

000006

Qe ¢

0000006
0000006

®s s 0 B¢

040000

CUOFF ,RO

W
~

000160°
0000006
177777 000160°
0000006

[]

RO
18
Mx1, (SP)
PC,PUT.PKT
#-1,Mx1

Se S

PC,SEND

0000006

SEQ 360

Page 104
VAX=-11 Bliss~16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRAABO.BL2;15 (28)

P}
o)

21=Jul-198 3 15:
21=Jul=198 3 15:

routine QIO_LBN : novalue =

IR I I E T

1F THE OPERATOR CHOSE THE RANDOM SEEK MODE OPTION, THEN THE LBN IS

RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR THE LBN.

?nggflzggf)THE NEXT SEQUENTIAL LBN IS DERIVED FROM THE BLOCK SEQUENCE
IMPLICIT INPUTS:

LSLUN = CURRENT (DIAGNOSTIC SUPERVIOR) UNIT NUMBER

IMPLICIT OUTPUTS:
THE LBN IS LOADED INTO ONE OR BOTH MSCP PACKETS.
begin
own

LBN_SAVE : word initial (0);

local

S_TEMP : word,
E_TEMP : word,

PRI IR IR IR

! LBN SELECTED IN LAST PASS
TEMPORARY STORAGE FOR START LBN
TEMPORARY STORAGE FOR END LBN

LOGICAL BLOCK NUMBER
)
LBN : word,
FLAG TO INDICATE WINCHESTER DISK SELECTED
!
(TRUE));
(byte
initial
byte
RD51_DISK :

S_TEMP = .CST_ADDR [.CUOFF + 1, D_BEG]:
E_TEMP = .CST_ADDR [.CUOFF + 2, D_END];

! STARTING LBN
. ENDING LBN

Z;eaCST_ADDR C.CUOFF, D_TYPE] eql RX_50
RD5ST1_DISK = FALSE;

if BIT_TST (SWP_FLAGS, SWF_RDM)

thenbegin

! IF RANDOM SEEK MODE

if (.RD51 DISK) and

(({.RARDOM [0] and %0°'077777') mod (99)) lequ 33)

then

else

LBN = .LBN_SAVE

! REDUCE SEEKS ON RDs by 33%

LBN = .S_TEMP + ((.RANDOM [3] and X0'077777') mod (.E_TEMP - .S_TEMP + );

end

begin
LBN = .BST [.LSLUN];

SEQ 361

Page 105
VAX=-11 Bliss~16 V3=355
R2: JZRQABO.BL2;13 ( 29)
[DIETZ .RELEASE
DISKSUSE

THIS ROUTINE IS CALLED BY Q10 GEN TO SELECT THE LOGICAL BLOCK NUMBER TO
BE USED FOR THE CURRENT QIO OR QIO PAIR.

PRI TR R

R YRYR PR
IRLR AN ) IR

21=Jul-1983 15: 33:38
21-Jul=1983 15 23:38

! ELSE ~ SEQUENTIAL LBN MODE
! GET LBN FROM BST

BST [.LSLUN] = .BST [.LSLUN] + .TRK_SGN L[.LSLUN];! MODIFY LBN (INC OR DEC FOR NEXT PASS)

C0OPRRVPVRRPOPRQORAQOAVORRROD

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

XR R

IRQAM3
v01.2
PR IR IR T A IRIR TR IR IR IRIR LR IR PRX0 X [T XYR YR IE IR Y YY

if .BST [.LSLUN] Llssu .S_TEMP

then

be?in

LSLUN] = .S_ TEHP

! CHANGE TRACK DIRECTION

R IR

X E TRYR I TR T A

else

end

begin

it .BST C[.LSLUN] gtru .E_TEMP
then

! IF SECTOR IS BEYOND HIGH LIMIT

be in
C.LSLUN] = .E_ TEHP
TRK _SGN [.LSLUN]
=

! CHANGE TRACK DIRECTION

W
@
&~

end;

! MAKE SURE LBN WITHIN LIMITS

if .LBN lssu .S_TEMP
then

LBN = ,S_TEMP;

if .LBN gtru .E_TEMP
then
LBN = .E_TEMP;

TR IR TR YR

YLXN

I TN 31 TR YR TR R I A I E

! IF SECTOR IS LESS THAN LOWER LIMIT

TRg SGN (. LSLUNJ

MAD1 [LBN_L] = .LBN;

! LOAD LBN INTO 1ST PACKET

if .MX2 geq 0

then

[ YR IR IERIERIA

014276

begin

000000

IF 2 QIO0S

! LOAD LBN INTO 2ND PACKET

MAD2 [LBN_L] = .LBN;

LBN_SAVE = .LBN;

! SAVE FOR USE NEXT CYCLE

end;

! ROUTINE QIO_LBN

.PSECT

$GGGS,

.WOR

.SBTTL

QIO.LBN MULTI-DRIVE TEST ROUTINES

LBN.SAVE:

.PSECT

$CODES,

[*lelelelelels]

N YR X LN 1) (YR
LR R TN TN T

it .TRK_SGN [.LSLUN] lss 0

then

SEQ 362

Page 106
VAX=11 Bliss=16 V3-555
135 (29)
LZ;
DISKSUSERZ2:[DIETZ.RELEAS EJZRQABO.B

<TM~

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

001252
001252

21=Jul-1983 15:33: 38
21-Jul=198315:23: 38

200000000000 00000508002000080800082000000080%%000000, [(YXYXEYRIRTR TRFN ¥

N 12

QI0.LBN:JSR

0000006

MOVB

000001
0000006
0000006

MoV
MoV

000002

R1,RO

BIT8

0000006

1$:

8IT

000116
100000
000143
0000006

MoV
BIC
MoV
JSR

000041

CMP

001252°*

MOV

000124
100000

2s:

0000006

MoV
8IC

JSR

0000006

000216
000220

MoV
ASL
ADD
ASL

000004

3s:

CST.ADDR,R2
CUOFF ,R1

R1,RO
RO
R2,R0

MoV

000004

#1,RS

MOV
ASL
ADD

MoV

000002

R1,$SAVES

MoV

2(R0O) ,R3
R2,R0
4(R0O) ,Ré4
R1
R2.R1
#4,(R1)
1$

R
#2,SWP.FLAGS
3s
R3
28
RANDOM., = (SP)

#100000, (SP)
#143,-(SP)
PC.BLSMOD
(SP)+,(SP)+
ag.041
2

LBN. SAVE ,R1

58
RANDOM+6 ,~(SP)
#100000. (SP)
R4.R0
R3,RO
RO,=(SP)

: *,RD51.DISK
:

: =, S.TEMP

; % ,E.TEMP

3793
3804

3805
3807

: RD51.DISK

3809

: RDS1.DISK

3815

3816

: +,LBN
:
:

3818
3815
3820

3811

; E.TEMP,*
; S.TEMP,«

: S.TEMP,«

LSLUN,RO

3775

(SP)
PC.BLSMOD
R3,RO
RO.R1
(gp)+.<sp)«

; *,LBN

’

3811

3825

000050°

MoV

#8ST R2

001220°

ADD

#TRK.SGN,RO

: +,LBN
:

3826

(RO)

3828

(R2) ,R3
5%

; *,S.TEMP

3832

RO,R2
(R3) ,R1

)
, (R2)
(RO

103011

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

SEQ 363

Page 107
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL2;:13 (29)

Pe Y Y

21=Jul~-1983 15:33:38
21=Jul=1983 15:23:38

YT Ton Yo Y o

8 13

000222
000224
000230
000232
000234

010312
012710
000405
021204
101403

R3,(R2)
g1.(R0)
b23
(R2) ,Ré
5$
Ré4, (R2)
#-1,(RO)

000001
&8

177777

R1,R3

5¢%:

68’
R3.R1

R1,R4
78
R4 R1
1.R0

6$:

78:

000164*

000046
000162*

0003
000312

000207

: Routine Size:

8s:

001252°
102 words,

Routine Base:

Hax1mun stack depth per invocation:

9 words

RTS

H
H

: E.TEMP,*

3846

: S.TEMP,LBN
: LBN,E.TEMP

3856
3858

: E.TEMP,LBN
:

3860
3862

3864

3866

: LBN,*
H

3868
3775

: ¢, E.TEMP

H
; LBN,S.TEMP

; LBN,*

R1, 6(RO)
}LBN. SAVE

; LBN,

$CODES + 14276

3835

3836
3828

R1 66(R0)
Mxo
88
HAZ RO

000166°
000046

; S.TEMP,*

3843

3847
3854

21=Jul=19 8315:33:38
21=Jul=-19 83 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

SEo 364

e 108
VAX-11 Bliss=16 V3=-555
29)
1
BLZ
O.
EIZROAB
.RELEAS
ET2
ER2:[DI
DISKSUS

c13

VAX=-11 Bliss=16 V3-355
DISKSUSER2: [DIETZ.RELEASE

13 (30)
JZROABO.BL2:

aasaa

MULTI-DRIVE TEST ROUTINES

Ve e

THIS ROUTINE IS CALLED BY QIO _GEN TO SELECT THE I/0 TRANSFER BYTE COUNT
T0 BE USED FOR THE CURRENT QID OR QIO PAIR. THE BYTE COUNT IS
DETERMINED BY A RANDOM NUMBER, AND WILL ALWAYS FALL BETWEEN 1 AND THE

@a@a®o@a

P TR X ] Se ®e 00 9,

routine QI0_SIZE : novalue =
+

IRTR TR IR YR YA NR LA TR

1/0 BUFFER SIZE (BYTS_PER_QIOS.

IMPLICIT OUTPUTS:
THE BY/E COUNT IS LOADED INTO ONE OR BOTH MSCP PACKETS.

begin
local
SI12E : word,

! BYTE COUNT
! REMAINING BLOCKS LEFT

TR I EYR

BLOCKS_LEFT : word;

SIZE = ((.RANDOM [4] and %0°'077777') mod (.BYTS_PER_QIO + 1)) and %20°'177760' :!GET BYTE COUNT FROM RANDOM NUMBER

e e 0 030900, % Qe s a, %o, (TS

it .SIZE eql O
then
SIZE = 16;

BLOCKS_LEFT = .CST_ADDR [.CUOFF + 2, D_END] - .MADT [LBN_L] * 1;

! REMAINING BLOCK COUNT

i; ((.SIZE + BYTES_PER_SECT = 1) / BYTES_PER_SECT) gtru .BLOCKS_LEFT

! IF BLOCK COUNT NOT ENOUGH

then

! ADJUST BYTE COUNT DOWN

SIZE = .BLOCKS_LEFT « BYTES_PER_SECT;

MAD1 (BC_LO] = .SIZE:

! LOAD SIZE INTO 1ST MSCP PACKET

if .MX2 geq O

! IF 2 QI0S

then

! LOAD SIZE INTO 2ND MSCP PACKET

MAD2 [BC_LO) = .SIZE;

! ROUTINE Q10_SIZE

end;

004137

0000006

013746
042716
013746
005216
004737
010002
042702
001002
012702
013701
006301

000126"
100000
0000006

.SBTTL
Q10.SIZE:
JSR

MOV
BIC

0000006

1$:

R1,$SAVE2

RANDOM+10, = (SP)
#100000, (SP)

BYTS.PER.QI0,=~(SP)

JSR
MOV

PC,BLSMOD
RO R?

BNE

BIC

000017

QI0.SIZE MULTI-DRIVE TEST ROUTINES

MOV
INC

0000006

000020

: 3:3 8
21-Jul=198 3 15:3
21-Jul-1983 15:2 3:3 8

RD/RX EXERCISER

ZRQAM3
v01.2

SEQ 365

Page 109

D13

MOV
:g{

(SP)

#17.R2
#20,R2

g?orr.n1

; «,SIZE

s «,SIZE
:

: «,SIZE
:

3871
3889

ZRQAM3
v01.2

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

000054
000060
000064

0000006
000164*
000004
000046

000074
000100
000104

013700
016101
166001
062716
012746
004737

21-Jul=1983 15:3
21=Jul=-1983 15:2

SEQ 366

Page 110
VAX-11 Bliss=16 V3-555
(30)
.BL2;15
EIZROABO
DISKSUSER2:[DIETZ.RELEAS

CST.ADDR,R1
MAD1 ,RO

4(R1J ,R?
4?(n05.a1
R

R2, (SP)

s SIZE,»

(SP)+
RO,R1

s *,BLOCKS.LEFT

2707, (SP)
#1000, - (SP)
pc.BLEDIV

000777
001000
0000006

b1
R1,RO
RO

: BLOCKS.LEFT,»

3897

3899

RO
R

000130
000134
000140

013700
010260
005737

000164
000026
000162°

000146
000152

013700
010260

000166°
000026

2$:

MAD1.RO
R2,26(R0)

mx
3s:

3s
MADZ2,RO
R2,26(R0)

é%P)’,(SP)*

Routine Base: $CODES + 14612
: Routine Size: S7 words,
: 7 words
invocation
per
depth
stack
: Maximum

: «,SIZE

3901

3903

3905

H
H

3883
3871

s SIZE,*

. SIZEo.

feolalale
lale Ye e NEE4|

E 13

3908

routine FILL_BUFF : novalue =

3910

3911

THIS ROUTINE IS CALLED BY QJ0O_GEN TO LOAD THE 1/0 BUFFER DESCRIBED IN

THE FIRST MSCP PACKET WITH THE APPROPRIATE DATA PATTERN.

THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM:
%;ELHE OPERATOR DEFINED A DATA PATTERN
ELSE

GET DATA PATTERN NUMBER FROM SW P-TABLE
IF DATA PATTERN NUMBER = 0
THEN

N
~N

SELECT IT

GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRY
IN THE DATA PATTERN SEQUENCE TABLE (DPST)

NOTE THAT PATTERN # 1 CONSISTS OF RANDOM NUMBERS, AND PATTERNS # 17 21 USE THE ACTUAL LBN GF THE WRITE REQUEST.
IMPLICIT INPUTS:

local

3936

DP_NUM : word,

3937

DP_ADDR,

3938
3939

108_ADDR,
SRC_ADDR,
COURT : word;

3940

§32§
3944

3945
3946

%gzg
3950

3951
3952

3935

begin

O
W
H»H

3933

LSLUN = CURRENT (DRS) UNIT NUMBER

IETEIETEIETRIN YRPR TR LN TN T
e 8e00800e0c0e%00e 000 8,% 9000080008008 0:0000%0%5 0800000900000 008;% 0508580300, [

21=Jul~-1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

SEQ 367

Page m
VAX=11 Bliss=16 Vv3=555
15 (31)
BL2;
ASEJZRQABO.
[DIETZ.RELE
PISKSUSER2:

GaGadi.taBan.Boe0sBeTe0200090%0000e%c
Ve W %0000 g,

F13

:; BIT_TST (SWP_FLAGS, SWF_UDP)
en

else

DP_ADDR = SWP_UCNT

DATA PATTERN NUMBER SELECTED
ADDR OF DATA PATTERN (LENGTH)
170 BUFFER ADDRESS (DESTINATION)

WORKING SOURCE ADDRESS
NO. OF WORDS IN DATA PATTERN

' IF USER DEFINED A DATA PATTERN
! SELECT IT

begin

ig .SWP_DPAT neq 0

then

else

DP_NUM = _SWP_DPAT

! IF USER SELECTED A PRE-DEFINED DATA PATTERN
! SELECT IT

begin

3953
3954

DP_NUM = .DPST [.LSLUN];
! GET PATTERN NUMBER FROM SEQUENCE TABLE
DPST [.LSLUN] = .DPST [.LSLUN] + 1; ! ADVANCE TO NEXT PATTERN NUMBER

3956

:; .DPST [.LSLUN] gtru DP_CNT

3958
3960

end;

DPST [.LSLUN] = 1;

! CHECK FOR HIGH LIMIT

008,800 0a 00000 00 B0 000000000000 030000 %0 008050, %0, 00 000 8000000, s 0,

RD/RX EXERCISER

MULTI=DRIVE TEST ROUTINES

DP_ADDR = .DPA_TBL [.DP_NUM - 1];

SEQ 368

Page 112
VAX=-11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;15 (31)

! ADDRESS OF DATA PATTERN (COUNT)

if .DP_NUM gequ 17

then

! CHECK MACRO

it .DP_NUM
then

IRQAM3

v01.2

21-Jul=-198315:33:38
21-Jul=198315:23:38

! IF PATTERN 17, 19, OR 21

(.DP_ADDR + 2) = .MAD1 (LBN_L]

! LOAD LBN INTO FIRST WORD OF PATTERN

(.DP_ADDR + &) = .MAD1 [LBN_LI:

! LOAD LBN INTO SECOND WORD OF PATTERN

end;

! 170 BUFFER ADDRESS

10B_ADDR = .MAD1 [BUF_0];
COURT = ..DP_ADDR;

! NO. OF WORDS IN DATA PATTERN
! START OF THE ACTUAL DATA PATTERN

SRC_ADDR= BPADDR + 2:

1ncrbNfrom 1 to ((.MAD1 [BC_ tol + 17 2 d o
egin

108XDOR= .]08_ABDR ¢+ 2:
SRCCADDR = ,SRC ADDR + 2;
COURT = ,COUNT

! IF END OF DATA PATTERN

if .COUNT eql O
then
begi

! REPEAT DATA PATTERN

SRC ADDR = .bP_ ADDR + 2;
end;

! WORD TRANSFER LOOP

end;

! ROUTINE FILL_BUFF

end;
.SBTTL
FILL.BUFF:
42?

0000006

000100

0000006

0000006
0000006

1$:

2%:

FILL.BUF F MULTI-DRIVE TEST ROUTINES

Rl SSAVE S

3908

BIT
B8EQ
ggv

#100 SWP, FLAGS
18
JEHP.UCN T.R3

3942

MOV
B8EQ

SWP.DPAT .RO
P4

; *,DP.ADDR
:

3944
3942

B8R
MOV

33
LSLUN,RO

; ~,DP.NUM
H
H

3950
3948
3953

R1
(RO).R1

: «,DP.NUM

MOV

0000006
000060°

! FOR EACH WORD IN THIS WRITE REQUEST

! MOVE 1 WORD
ADVANCE DESTINATION ADDRESS
ADVANCE SOURCE ADDRESS
DECREMENT COUNT

= ,.SRC_ADDR;
ADDR

ADD

CLR
B8IS8

RO.R?

#DPST,RO

: DP.NUM

e 1o lw e N ~d
o' |

G 13

3948

000052
0000564
000060
000062

000066

000070
000072
000076
000102
000104
000110
000112
000114
000122

000124
000132
000136

105210
121027
101402
112710

010100

006300
016003
020127
103413
013700
006001
103004
016063
000403

016063
013700

000142
000144
000150
000152
000154
000160
000162
000166
000172
000174

016005
011302
012704
060304
010416
016046
005216
012746
004737
005001
000412

000210
000212
000214
000216

005302
001003
011302
010466

000176
000202

000222

000224
000226
000230
000234

21-Jul~1983 15:
21-Jul-1983 15:

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

017625
062766

005201

020100
003763
062706
000207

000025

SEQ 369

Page 113
VAX=-11 Bliss=16 V3=555
L2;135
2: (31)
ZROABO.B
SER
[DIETZ . RELEASEJ
DISKSU

3954
3956

(RO)
(RO) ,#25
3s

H
H

R1,RO
RO

«
: DP.NUM,

3958

#1,(R0O)

001144’
000021

,R3
DPA.TBL-2(R0)
g}.#21

; «,DP.ADDR

: DP.NUM,*

3964

000164'

MAD1,RO

3969

gg(ao>.2(n3)

: ~,«(DP.ADDR)

3969

000001

000046

3s:

R1
X

000002

000046 000004
000164°
000032

4s:
58:

46(R0) ,4 (R3)

mAD1 RO
sz(ab)éas

000002
Ré4, (SP)

26(R0) ,-(SP)

000026

(SP)
#2,-(SP)
PC.BLSDIV
R1
78

000002
0000006

000004
000002

000004

000006

000004

68:

7$:

RTS

84(SP) ,(R5) ¢+
#2,4(SP)
R2
78
(R3) ,R2
R4 ,4(SP)
R1
R1.RO
63
#6,SP
PC

$CODES + 14774
Routine Base:
: Routine Size:
79 words,
10 words
: Maximum stack depth per invocation:

; DP.NUM
:
: ~,«(DP.ADDR)
:
: +«,108.ADDR

: DP.ADDR,COUNT
:
: DP.ADDR,*

: *,SRC.ADDR

3962

3967
3967
3971
3975

3976
3977
3979

s N

: SRC.ADDR,108.ADDR
: «,SRC.ADDR
s
H
:
:
s

COUNT

DP.ADDR,COUNT
*,SRC.ADDR
N

: N,»

3981
3983

3984
3986
3989
3990
3979

3908

H13

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3

v01.2

21=-Jul-1983 15:23:38

VAX-11 Bliss~16 V3-555

SEQ 370

Page 114

2:13 (32)
QABO.BL2;
SER
[DIETZ .RELEASEJZR
DISKSU

routine PROC_RETPKT : novalue =

0309000000000 00000s 0000000009 %0800,0,
e %0 8000 800 8e%0 000,00 03000,

21-Jul-1983 15:33:38

THIS ROUTINE IS CALLED FROM THE MULTI_DRIVE EXECUTIVE'' AND DUP_COMMAND TO CHECK FOR “
AND PROCESS ANY RETURN PACKETS THAT HAVE BEEN '‘SENT'’ BY THE ‘DRIVER''

i
!
i
i

PORTION OF THE PROGRAM. THE 1/0 DONE QUEUE (10DQ) ACTS AS THE LINK
BETWEEN THE TWO PROGRAM PARTS: IT HOLDS INDECES OF RETURN PACKETS WHICH

UNDER THE MULTI-DRIVE TEST, RETURN PACKETS ORIGINATE FROM TWO SOURCES:

REQUIRE PROCESSING.

apggir?gze COMMON, DESCRIBING A COMPLETED 1/0

1. MSCP

;

- THE LESS COMMON, DESCRIBING A PORTION OF 1/0

2. DUP

COMMUNICATIONS WITH THE CONTROLLER PROGRAM.
3. THE PROGRAM ‘DRIVER'® - DESCRIBING A CONTROLLER ERROR OR

i
i

COMMAND TIMEOUT.

' DO UNTIL 1/0 DONE QUEUE IS EMPTY

whilg .1000_IN neq .10Da_0UT do

apfxnox = OUT_ 1000 ();
egin

RP"ADDR = RETPKT + (.RP_INDX * RP_LEN ¢ 2);

! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER
i CALCULATE RETPKT ADDRESS

SET_CPAR (.RP_ADDR C[CTLRI);

i SET UP CURRENT CONTROLLER PARAMETERS

selectgneu .RP_ADDR [CONID] of

! CONNECTION ID INDICATES PACKET SOURCE

10 RETPKT ();

' DISK MSCP (I/0 TRANSFER DONE)

CCIDZDRIVER] :

DR_RETPKT ();

i MESSAGE FROM 'DRIVER''

Eotheruise] :

PRINTF (DBM12, .RP_ADDR CCONIDJ);!''CONN ID = XXXXX RECEIVED''

CCID_MSCP] :

CCIDTDUP) :
es.,

.SBTTL

PROC.RETPKT MULTI-DRIVE TEST ROUTINES

MOV

R1,~(SP)

ggoo.xn.xooo.our

4014

JSR

PC.OUT. 1000

;

4016

MOV

RO.=(SP)

: RP.INDX,*

4017

PROC.RETPKT:

010146

0000006 0000006
0000006

0000006

000060

0000006
0000006
0000006

000002

177760
0000006

0000006

i DUP (170 TRANSFER DONE)

! UNITL 170 DONE QUEUE IS EMPTY

end;

4030

023737

DID RETPKT (3;:

18:

828
MOV

RO.RP. INDX

;

3996

MOV

#60,-(SP)

MOVB

2(R0).(SP)

;

4018

RP.ADDR,RO

4020

JSR
ADD
MOV

BIC
JSR

MOV

PC,BLSMUL
ARETPKT,RO
RO,RP.ADDR

#177760, (SP)
PC,SET.CPAR

113

MULTI=-DRIVE TEST ROUTINES

000136
000142

012746
012746

000000G
000002

4$:

5%:

000160
000162

012601
000207

6$:

SCANES + 15232
Base:
Routine
: Routine Size: 58 words,
)
:
7
words
invocation
per
depth
stack
: Maximum

000000V

SP,¢

004737

3s:

§°

000126

0000L3

000000V

o
N
(=]

004737
0004
020127

000112
000116
000120

2$:

o
N
o

000002

P
o
N

020127

2%
PC,I0.RETPKT
5$
R1,.#2
3$
PC.DI0.RETPKY
58
R1,43
48
PC.DR.RETPKT
5¢
R1,(SP)
#DBM12,=(SP)
#2,-(SP)
SP,RO
17
(SP)+,(SP)+
(SP)¢+,(SP)+
1$
(SP)+,R1

000104

000110

BNE
JSR
8R
CMP
BNE
JSR
8R
CMP
BNE
JSR
8R
MOV
MOV
MOV
MOV
TRAP
CMP
CMP
BR
MOV

000000V

004737

®e %

000076

TST

LTE TR T}

000003

R1
3(R0O) ,R1

L T T

156001

CLR
81s8

Page 115
VAX=11 Bliss=16 v3=-555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL2;15 (32)

21-Jul~-1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER

SEQ 371

J 13

DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2; 13 (33)

ROUTINE DIO_RETPKT : NOVALUE =
e

i
i
;

THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL DUP 1/0 TRANSFER
RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY
HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS.

IMPLICIT INPUTS:

RP _ADDR - ADDRESS OF THE CURRENT RETURN PACKET

T ADDR = ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY)

]

C8T ADDR - ADDRESS OF THE CURRENT CONTROLLER'S CST
CUOPF = CST OFFSET FOR THE CURRENT UNIT

i
i

LSLUN - CURRENT UNIT NUMBER
CCTLR = CURRENT CONTROLLER NUMBER

i
;

;

IMPLICIT OUTPUTS

CST_ADDR [.CUOFF + 3, NODUPMEDIA] - IF THIS BIT SET NO DUP EXERCISER

BEGIN
LOCAL

FLAG : BYTE INITIAL(BYTE(TRUE)),
SUM2 : WORD,

! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT

SUM : WORD:

'PRINTX (DER18);

' FIND UNIT'S ENTRY IS CST AND SET UP UNIT-RELATED DATA

FSET_UPAR ();

! IF STATUS CODE INDICATES ERROR

};E&RP_A3221£STATUSJ NEQU ST_SUC
CST_ADDR [.CUOFF + 3, DUPERROR] = 1;
HARD ERROR ();

! SET DUP ERROR FLAG

1F .RP_ADDR [ENDCODJ EQLU (OP_ELP + OP_END) OR
THE&RP_AgggjfiEND(OD] EQLU (OP-GDS + OP_END)

' IF ENDCODE IS EXECUTE LOCAL PROGRAM
i

EST_ADDR [.CUOFF + 3, NODUPMEDIA] = 1;

END

OR GET DUST STATUS

' TURN OFF DUP EXERCISR

‘

21-Jul=-1983 15:23:38

SEQ 372

Page 116

. Bafa®e®ealoBeBaeata®e®e00e0ePe0cVeBsV0eVeVo00000s 00008000000 %00e0s9%0 %800

Q..-.olo.......‘........Q....l..‘..........'.l...l...o...l...l...........!!..........o...o...uio.o.ilc....

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

VAX=-11 Bliss=16 V3-555

! ELSE = 1/0 WAS SUCCESSFUL

ELSE
BEGIN

IF .RP_ADDR [ENDCOD] EQLU (OP_GDS + OP_END)
THEN

~ BEGIN

' IF ENDCODE IS GET DUST STATUS

IF .RP_ADDR [9,11,1,0] EaL 1

THEN CST_ADDR C.CUOFF + 3, D_ACTIVE] = ACTIVE
ELSE CST_ADDR C.CUOFF + 3, D_ACTIVE) = IDLE;

IF .RP_A322159.9.1.OJ NEQ 1 THEN
HARD ERROR ();

! CONTROLLER IN AN ACTIVE STAE
i CONTROLLER IN AN IDLE STATE

| TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF DUP DOC)

gzg_loon C.CUOFF + 3, NODUPMEDIA) = 1;

! TURN OFF DUP EXERCISR

IRQAM3

v01.2

21-Jul-1983 15:33:38

G e B Gt

K13

(.CST_ADDR [.CUOFF+3, DUPWRITE] EQLU 1)
THEN DUP_COMPARE ();

'IF IT IS A RECEIVE DBN COMMAND WITH TYPE 6 AND MESSAGE 2 THEN

' IF WRITE FLAG SET IN CST TABLE THEN COMPARE BLOCKS
! COMPARE THE FOLLOWING 512 BYTES

END;
PUT_RETPKT (.RP_INDX);
4098

QI0"C.CCTLR] = Q10 [.CCTLR] - 1;

! DECREMENT NO. OF OUTSTANDING QI0S

END;

! ROUTINE DIO_RETPKT
.SBTTL

DIO.RETPSBG

010146
112700
004

MOVB
JSR
MOV

000001
000000V
0000006

000016

4032

4061

PC,HARD. ERROR
RP.ADDR RO

:
:

4062
4063

gg(no>,czo1

4064

CUOFF RO

4066

4059

CUOFF ,RO

4077

#1.R0
PC.FSET.UPAR
RP.ADDR.R1
16(R1)

ASL

CUOFF ,RO

0000006
040000 000006

ADD
BIS

CST.ADDR,RO
#40000,6(RO)

000014

000203

ggze

}g<no).ozos

000014

000201

éfi?“

000000V
0000006

JSR
MOV

1$:

0000006
0000006
100000 000006

000014

000201

28:

MOV
ASL

ADD
8IS

CST.ADDR,RO
6 (RO)
#100000.

g:ze

;g(n1).:zo1

B8R

0000006

MOV

0000006

ADD

: *,FLAG
:
:

4051
4057
4059

4074

ASL

000022

SéE

g:ooo.zz(n1>

4076

020000 000006

8IS

#20000, 6 (RO)

4077

004000

020000 000006

001000 000022

004737

BEQ

MOV

0000006

DIO.RETPKT MULTI-DRIVE TEST ROUTINES

R1,=(SP)

000000V

3$:

4$:

CST.ADDR
RO

B8R
BIC
Sfi{

A
#20000, 6 (RO)
glooo,é2<a1)

JSR

PC,HARD . ERROR

:
:
:
:

£ N

YOI OIOINOYOYOIOOOOOD

(.DUPPKT [DUPMESG] EQL 2) AND

4076
4079

4078
4081

s s SN S S, ST S SN S SN NSNS

IF (.RP_ADDR CENDCOD]) EQL (OP_RCD + OP_END)) AND
(.DUPPKT [DUPTYPE] EQL 6) AND

—— o~ — — — S~ S~ S

END;

AR I ATEYEYRIE IR LA Y XN ¥
IR

SEQ 373

Page 117
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL2;15 (33)

e e e . .

RD/RX EXERCISER
MULTI=DRIVE TEST ROUTINES

IRQAM3
v01.2

[

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

21-Jul~-1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
013700
006300

CUOFF ,RO

0000006

4082

4087

c1ooooo6(R0)

0000006
007777
060000

r
ou;pxRO

4088

0000006

R
DUPPKT

4089

000002

c17ooob.ao

RO, #2
63

CgOFF.RO

4090

RP.ADDR,RO

1:(no),#205

govebooo

000000G

0000006
010000 000006

CST.ADDR,RO
g}OOOO.b(RO)

000000V
0000006
0000006
0000006
0000006

PC.DUP.COMPARE
RP.INDX,=(SP)
PC,PUT.RETPKT

H
:

4091
4095

4096

(SP)+

H
H

4051
4032

6$:

CCTLR,RO
QI10(R0O)

MoV
RTS

(SP)+,R1

$CODES + 15416
Routine Base:
115 words,
: Routine Si.e
words
3
Hax1mum stack depth per invocation:
4099

0000006
100000 000006
0000006
000014 000205

170000

012601
000207

SEO 374

g
VAX=11 Bliss=16 v3=-555
1 (33)
.8LZ2;
IZRQAB(O
.RELEASE
2
R2:[DIET
DISKSUSE

PR
S
R Y e Te Ta e e
leolelelolel®lolw
el loleoleleole ol BN « ]

n13

i
i
i
i
i

THIS ROUTINE IS CALLED BY DIO_RETPKT WHEN THE RECEIVE DATA COMMAND
IS BEING PROCESSED. THIS COMMAND COMPARES THE WRITTEN BUFFER WITH
THE PATERN WORD GIVEN IN SEND DATA COMMAND. FOR EVERY WORD COMPARED
THE ROUTINE INCREMENTS THE TALLY TABLE. IF THE COMPARE SHOWS AN
ERROR. THE DBN HARD ERROR COUNTER WILL BE INCREMENTED AND THE

IMPLICIT INPUTS:

S_DUPPKT

b
h =
i
wd
d e
b cod
—d oud

NN = b and od b —d b b b
=S OV
N NS W=

IV YV
VY
Y

;

4122

THE DBN NUMBER AND BYTE COUNT WILL BE PRINTED.

i
;

S_PATTERN

! THE SAVED PATTERN WRITTEN TO THE DBN'S

T"ADDR
C3T_ADDR

| THE ADDRESS OF THE TALLY TABLE FOR THIS UNIT
i THE ADDRESS OF PRESENT CONTROLLER STATUS TABLE

BEGIN
OWN

COUNT : WORD;

IPRINTX (DER19);
S DUPPKT = 0;

INCR couggcgzon 1 10 256 DO

'INDEX PIONTER FOR DATA STORED IN MSCP ENV PACKET

ERRHRD (46, EH_10, EMS_22);

TR I AR

EsgrLoop:

END;

160 THROUGH ALL DBN WORDS

’

iEND ROUTINE DUP-COMPARE

COUNT:

005037
012701
062737
013700
026037
001405
104456

0000006
000400
000002 0000006
0000006

0000006 0000006

1$:

$GGGS,
1

.SBTTL
_PSECT

DUP.COMPARE MULTI-DRIVE TEST ROUTINES
RO
$CODES,

MOV

R1,-(SP)

ggg

ggPPKT(Ré).S.PATTERN

CLR
MOV
ADD
MOV

TRAP

S.DUPPKT
#400,R1
#2.5.DUPPKT
S.DUPPKT,RO
56

.PSECT
.BLKW

:
DUP . COMPARE

010146

ILIST ERROR

! INITIALLY THIS SKIPS THE FIRST WORD OF DUPPKT
S_DUPPKT = .S_DUPPKT + 2;
'IF THE CONTENTS OF DBN DOESN'T EQUAL PATTERN
IF .(oupgézla .S_DUPPKT) ‘NEQ .S_PATTERN THEN

015764

000002
000006
000012
000020
000024
000032
000034

i THE POINTER FOR DUP BUFFER

;

4100

;

4129

;
: «,COUNT
:
;

4123
4124
4126
4127

IR TE IR

I R

R SR

N LN T

NI LI X [EEIE TR YR

N YR FE PR LR LA TR XN ¥

ROUTINE DUP_COMPARE : NOVALUE =

001254
001254

000000

21=Jul=1983 15:33:38
21-Jul=1983 15:23:38

RO/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

SEQ 375

Page 119
VAX-11 Bliss=16 v3-555
3 (34)
ABO.BL2;1
LEASEIZRQ
DISKSUSER2: [DIETZ.RE

e e Ve Te e el ollelol=lelole]e]elaleolelelelolele
lele o] o

N13

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

000056

0000006
0000006

2%:

012601
000207

3s:

.WORD
.WORD
.WORD
B8R
DEC
BNE
MOV
RTS

56
EH.10
EMS.22
3s
R1
1%
(SP)+,R1
PC

$CODES + 15764
Routine Base:
: Routine Size: 23 words,
: Maximum stack depth per invocation: 3 words

:
H
:

4134
4135
4136

VAX=-11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE]

: COUNT

SEQ 376
Page 120

ZROA80.8L2:1g (34)

4128

4124

4100

< o¥ |

27=Jul=-1983 15:33:38
21-Jul=-1983 15:23:38

PR
P e Y e T o P an Y en oo Yo oo Lo Vo B

B 14

2}22

:
:
:
:

4140
4141
6142

!
!
!

4145

4146

4148

:
:

6147

4149
2}??
4152

PERFORMING HOST WRITE-COMPARES IF REQUIRED.
IMPLICIT INPUTS:

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

!
:

CTTLR - CURRENT CONTROLLER NUMBER
LSLUN = CURRENT UNIT NUMBER

T ADDR = ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)

4153

begin

4155

local

:
:
:

4158
4159
2}2?

FSET_UPAR ();
ST_CODE = .RP_ADDR [STSCOD]:
SB_CODE = .RP_ADDR [SuUBCODJ]:

4162

it (.ST_CODE neq ST_SUC)

;
:

4164
4165

4168

4170

4172

:
:

4154

2};9

4163

FLAG : byte initial (byte (TRUE));

then

2}29

! UPDATE ERROR COUNT

it (.ST_CODE neq ST_OFL) and

! DROP UNIT IF ERROR COUNTS EXCEEDS LIMIT

4169

(.st_code neq ST_AVL) and

! NO POINT IN DOING HOST COMPARES ON ERROR

(.T_KDNPR CERR_HARD] gequ .SWP_ERROR)

4171

then

begin

:
:
:
:

4175
4176
6177
4178

end;

:
:

4180
4181

C.LSLUN] = DU_HERR;

DOPU (.LSLUN);

4174

46179

! IF STATUS CODE INDICATES ERROR

COMPARE_DATA = FALSE;

DUR

! FIND UNIT'S ENTRY IS CST AND SET UP UNIT-RELATED DATA
! GET STATUS CODE FROM RETPKT
! GET SUB-CODE, IF ANY

begin
HARD_ERROR ();

4173

THIS ROUTINE 1S CALLED BY PROC RETPKT TO HANDLE ALL I1/0 TRANSFER
RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY
HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND

. S SN SN e S S SEN, S, SR R e, SRR g, gy PU G

e ST

routine I0_RETPKT : novalue =

! DROP UNIT

end;

if .ST_CODE eql ST_SUC

then

! LOAD REASON FOR DROPPING UNIT

begln

UPD_IO0_TALLY O);

! IF 1/0 WAS SUCCESSFUL

! UPDATE 1/0 TALLY (STATISTICS)

2}%%

4184

2}32

then COMPARE_DATA = TRUE;

! HOST COMPARES MAY BE ALLOWED IF NO FURTHER ERRORS

:
:

4187
2}23

if (BIT_TST (SWP_FLAGS, SWF_HWC)) and
h (.COMPARE_DATR)

! IF HOST IS DOING WRITE~COMPARES

it .RP_ADDR CENDCOD] eql (OP_WRT or CP_END)

then

. AT SN

4137

. e e A

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

SEQ 377

Page 121
VAX-11 Bliss=16 Vv3-555
(35)
2;13
DISKSUSER2: [DIETZ.RELEASE]ZROABO.BL

- Pl

c 1%

MULTI-DRIVE TEST ROUTINES

end;

004137

0000006

112701

000001
000000V
0000006
000016 0000006
177740 0000006
000016

EJZROABO.BL2:1§ (35)

! SAVE 1/0 PACKEi OR DO WRITE-CHECK

FLAG = HOST_WRT_CHK ();

4190
419
4192
6193
6194
4195
4196
6197
4198
4199

VAX=-11 Bliss=16 V3-555

DISKSUSER2:[DIETZ.RELEAS

end;
it .FLAG
then

! IF FLAG IS STILL TRUE

QIO C.CCTLR] = .QI0 [.CCTLR] = 1;

! DECREMENT NO. OF OUTSTANDING QI0S
ROUTINE 10_RETPKT

! DEALLOCATE BUFFER(S) AND RETPKT(S)

SWEEP ();

.SBTTL
10.RETPKT:
JSR
Move
JSR
MOV
Movs
8IC
MOV
ASR
ASR
ASR

174000

0000006
0000006
000000V
001240°'
0000006 000C03
0000006 000004
0000006
000014 0000006
0000006
000004 0000006
0000006

18:

000000V
0000006
000014 000242

2%:

000001
000040

001240°*
0000006

000001

001240°

3s:

ASR
ASR
8IC
MoV
TST
8EQ
JSR
CLRB
CMP
BEQ
CMP
BEQ
MOV
CMP
8LO
MoV
MOVSB
TRAP
TST
BNE
JSR

10.RETPKT MULTI-DRIVE TEST ROUTINES
R1,$SAVE2

#1,R1
PC.FSET.UPAR

RP.ADDR,RO
16(R0) ,ST.CODE

#177740,57.
CODE
16(R0) ,R2

*,FLAG

4137
4153
4158
4159

4160

#174000,R2
R2,58.CODE
ST.CODE
2$
PC,HARD .ERROR
RE
. DATA
COMPA

4162

4165

?;.CODE.#S

4168

#4
ST.CODE,

6169

T.ADDR,RO
}g(RO).SHP.ERROR

4170

LSLUN,RO

4173

2;.CO0E

4174
6179

g?.DUR(RO)

PC,UPD.]0.TALLY

4182
4184

#1,COMPARE .DATA

4185
4187

RP.ADDR,RO
14(RO) ,#242
3s

lgé.SUP.FLAGS
4

#1,COMPARE .DATA
43

4188

21-Jul-1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER

IRQAM3
v01.2

SEQ 378
Page 122

D 14

MULTI-DRIVE TEST ROUTINES
JSR

000000V
§
A

000000V

0000006
000252

000207

0000006

58:

MoV
ROR
8CC

PC,HOST.WRT.CHK
RO,R1
R1

4190
* ,FLAG
FLAG

4194

CCTLR,RO

4137

DECB

QI0(R0)

RTS

JZROABO.BLZ:I? (35)

4196
4198

JSR

PC,SWEEP

MOV

VAX=11 Bliss=16 v3=555
R2:
[DIETZ .RELEASE
DISKSUSE

Routine Base: $CODES + 16042
: Routine Size: 86 words,
: Maximum stack depth per invocation: S words

21=Jul=1983 15:33:38
21-Jul=198315:23:38

RD/RX EXERCISER

SEQ 379

Pa e 123

E 1%

21=Jul=-1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

SEQ 380

Page 124
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;15 (36)

e T

P PR PR PR PR PREPE

e T

THIS ROUTINE IS CALLED BY I0_RETPKT AND OTHERS TO SEARCH THE CURRENT
CONTROLLER STATUS TABLE (CSTY FOR THE DISK ADDRESS WHICH IS
CONTAINED IN THE CURRENT RETURN PACKET. WHEN FOUND, THE OFFSET INTO THE
CST IS USED AS INPUT TO SET_UPAR, WHICH SETS UP CURRENT UNIT-RELATED

PRLA LR TN

routine FSET_UPAR : novalue =

Y <l oV ]

F 14

DATA PARAMETERS.

IMPLICIT INPUTS:
RP_ADDR =~ ADDRESS OF CURRENT RETURN PACKET

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S (ST

begin

! FOR EACH UNIT IN CST

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE ¢ OF _UN) by UNIT_SIZE do

" TF RETPKT UNIT NUMBER MATCHES CST ENTRY

then

be?in

! SET UP UNIT=RELATED DATA

SET_UPAR (.OFFSET);

return;

! DONE

end;

if .CST_ADDR C.OFFSET, D_DISK_NUM] eql .RP_ADDR [DISK]

PRINTF (DBM19, .RP_ADDR [DISK], .CCTLR);
end;
004137
012702
010201
006301
063701
013700
004

0000006

000003

]

R1,$SAVES

1$:

R2,R1

. OFFSET,

0000006
000010

MOV

4216

R2,=(SP)

; OFFSET,*

4222

(SP)+
PC

;
:

4218
4221

Move
BIC

(R1) RS
77774 ,R3

MOV

2s:

s «,OFFSET

#3.R2

ASL

cMP
BNE

0000006

MOV

ADD
MOV
MOV

177774

000022

FSET.UPAR MULTI-DRIVE TEST ROUTINES

FSCT.UPAR:
JSR

0000006
0000006
000010

000005

LSBTTL

1 “'CAN'T FIND DISK XXX IN CST X'’
! ROUTINE FSET_UPAR

CST.ADDR,R1
RP.ADDR,
RO
10(R0) R4
R3,R4
28

JSR

PC.SET.UPAR

ADD

#5.R?

s «,OFFSET

MOV

CCTLR,=(SP)

ST
RTS

gr:
MOV
MOV

§§.022
RP.ADDR,
RO
10(R0) ,~(SP)

s OFFSET,®

4216

4226

012746
012746
010600
1044617

MOV
MOV
MOV
TRAP

0000006
000003

ADD
RTS

000116 062706 000010
000122 000207
: Routine Size:

&2 words,

Routine Base:

: Maximum stack depth per invocation:
¢

11 words

#DBM19,=-(SP)
#3,-(SP)
SP,RO
17

#10,SP
PC

$CODES + 16316

SEQ 381

Page 125
VAX=11 Bliss=16 v3-555
DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL2; 15 (36)
: SP,¢

:
H

4214
4200

RD/RX EXERCISER
MULTI=-DRIVE TEST ROUTINES

ZRQAM3
vot.2
000102
00106
w112
000114

21=Jul=-1983 15:33:38
21=Jul=-1983 15:23:38

G 14

[P EYEIETEIRIEATE YR FRETR LR NI Y NI ¥ (TR YRR IR TEIEAIEYEIE TR TRX TR TN ¥ TR

R IR IR

vAX=11 Bliss=16_V3=555
DISKSUSER2:CDIETZ.RELEASEIZRQABO.BL2;15

(37)

routine HARD_ERROR : novalue =

THIS ROUTINE IS CALLED BY 10 RETPKT, DIO_RETPKT, AND OTHERS TO INCREMENT THE HARD
ERROR STATISTIC FIELD FOR THE CURRENT UNIT. IF THE HARD ERROR COUNT
HAS EXCEEDED THE OPERATOR-SPECIFIED LIMIT, THEN THE UNIT IS DROPPED
FROM TESTING.

IMPLICIT INPUTS:

LSLUN = CURRENT UNIT NUMBER
CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST
CUOFF = CST OFFSET FOR CURRENT UNIT

T_ADDR = ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)

begin

T goon CERR_HARD] = .T_ADDR CERR_HARD] + 1;

! INCREMENT UNIT'S HARD ERROR COUNT

;aEfiRP_ADDR CCcORID] EQL CIB_mscP
selectoneu .ST_CODE of
set

CST_Sucl:

! SUCCESS WITH NON-ZERO SUB-CODE

:; .SB_CODE neq 0
en

begin

if .SB_CODE eql &

then

begin
T_ADDR C[ERR_HRD_DRV]

else

end

.T_ADDR [ERR_HRD_DRV] + 1

T_ADDR CERR_HRD_HWST] = .T_ADDR CERR_HRD_HST] + 1;

ERRHRD (44, EGH_30, EMS_30);

end;

CST_CMDI:

begin

T_ADDR CERR_HRD_HST] = .T ADDR [ERR_HRD_HST]) + 1;
ERRHRD (31,7EGH_30, EMS_30);

! INVALID COMMAND

end;

[ST_ABOJ:

begin

T_ADDR CERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1;

! COMMMAND ABORTED

ERRHRD (32, EGH_30, EMS_30);

end;

[(ST_OFL] :

begin

T _ADDR [ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1;
ERRDF (18, EGD_T8, EMS_187;
DUR C.LSLUN] ="DU_DFATAL;
oogu (.LSLUN);
eng,

! OFFLINE
! DEVICE FATAL ERROR
DROP UNIT

:33:3 g
:23:3

SEQ 382

Page 126

21-Jul =198 31]
21-Jul =198 3

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
*

FEYE P PR PRTR YR YR PR Y T ®e ®s 00 9,

ZRQAM3
v01.2

(¥, 1V, ]

H 14

£ST_avLd :

DUR C.LSLUN] ="DU_AV;

! DROP UNIT

gT DDR CERR_HRD_SEK]= T_ADDR [ERR_HRD_SEK] + 1;

! MEDIA FORMAT ERROR

ERZHRD (35,7EGH_30, EHS30);
en

[ST_WPTI:

! DEVICE WRITE PROTECTED

begin

if .SB_CODE eql 128

then

I EIR

else

T_ADDR [ERR_HRD_HST]

T_ADDR CERR_HRD_HST] + 1

T_ADDR [ERR_HRD_DRV]

T_ADDR CERR_HRD_DRV] + 1;

ERRHRD (36, EGH_30, EMS_30);

RE R
085800500, %08, 0, 0,0, [ E
e B 000, % 06038, 0% W80V 0,%
Ve

! DEVICE UENT AVAILABLE STATE

DODU (.LSLUN);
end;

end;

[(ST_CMP]:

gDDR CERR_HRD_DAT] =

ADDR CERR_HRD_DAT] + 1.

! COMPARE ERROR

ERRHRD (37,7EGH_30, EMS_3D);

end;

[ST_DATI:

! DATA ERROR

begin

i; .SB_CODE eql 2
n

lse

T_ADDR [ERR_HRD_SEK]

.T_ADDR CERR_HRD_SEK] + 1

T_ADDR [ERR_HRD_DAT]

.T_ADDR [ERR_HRD_DAT] + 1;

ERRHRD (38, EGH_30, EMS_30);
end;

[ST_HST]:

gT oon CERR_HRD_HST3 = .TA

DDR CERR_HRD_HST]) + 1;

! HOST ACCESS ERROR

Ekzwno (39,7EGH_30, EMS30
en

[ST_CNTI:

begi

2DDR CERR_HRD_DRV] =

T_ADDR [ERR_HRD_DRV] + 1;

! CONTROLLER ERROR

Enauno (40,7EGH-30, EMS_30);
end;

[ST_DRVI:

begin
if .SB_CODE eql 3

SEQ 383

Page 127

DlSK‘USERZ:[DIETZ.RELEASE]ZROABO.BLZ:1§ (37)

2T DDR [ERR HRD DRVJ I | ADDR [ERR_HRD_DRV] ¢+ 1;
ERRDF (264, EGD 18, EMs_187;

[ST_MFE]:

VAX-11 Bliss=16 Vv3-555

! DRIVE ERROR

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

A TEZ YR

I A R FE PR YR IR PN PN TR

PRYR LR TN ¥

ZRQAM3
v01.2

21=Jul-1983 15:33:38
21=Jul=-1983 15:23:38

1 14

ERRHRD (41, EGH_30, EMS_30);

end;

(ST_DIA]:

begin

T_ADDR [ERR_HRD_DRV] = .T_ADDR CERR_HRD_DRV] + 1;

! MESSAGE FROM INTERNAL DIAGNOSTICS

ERRHRD (43,7EGH_30, EMS_3D);
end;

[otherwisel:

begin

PRINT STATUS CODE IF NO MATCH

C ERR_TBL [.CCTLR, C_ERR_HRD] = .C_ERR_TBL C.CCTLR, C_ERR_HRD] + 1;

ERRHRD (45, EGH_30, EMS_30);

end;
tes;

e o

if .RP_ADDR [CONID] £QL CID_DUP

THEN

selectonggT.RP_ADDR C[STSCOD]) of

: begin
(%o0'0' )
{EEQRP°ADDR CENDCOD] EQLU (OP_GDS + OP_END)

IF 'RP‘A5221£9'9'1'OJ NEQ 1 THEN
ERRHRD (47, EH_12, EMS_30).

! if status code succesful
! IF ENDCODE IS GET DUST STATUS

' TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF
! UNABLE TO LOAD LOCAL CONTROLLER DUP MEDIA(PROGRAMS

T_ADDR CERR_HRD_DRV] =~.T_ADDR [ERR_HRD_DRV] + 1;

ERD;

if .duppkt [dupmesgfi egl 3

then

it (.DUPPKT L[DUPTYPE] eql 5)

then

i, PN PR PLNPNPN

T_ADDR [ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1;

N P

T_ADDR CERR_HRD_SEK] = .T_ADDR [ERR_HRD_SEK] + 1

else

gy SV P

then

SN, SN N, SR, SRy S

21-Jul-1983 15 23:38

MULTI-DRIVE TEST ROUTINES

TR IRT PR PN PNPRI TN
PRIR IR R I A R
00 0e Ve V0000000098000 0 %0005 9000 859009008, %08, YR

21-Jul=1983 15 33:38

RD/RX EXERCISER

PR PRPR LRI TR LA TRLR T LN X

ZRQAM3
v01.2

SEOQ 384

Page 128
VAX-11 Bliss=16 V3=555
13 (37)
.BL2;
EIZRQABO
Z.RELEAS
DISKSUSER2:CDIET

J 16

begin

DUR C.LSLUN] = DU_DFATAL:
DODU (.LSLUN);

selectonegT.DUPPKT [(DUPMESG] of

' FATAL DEVICE ERROR DROP UNIT);
! SET REASON FOR DROPPING UNIT

[%0°'1°'] : begin

errhrd (48, eh 13, ems_30); ! illegal unit number
r,éooa CERR_HRD_HST) =~.T_ADDR CZRR_HRD_HST) + 1;
end;

[%0'2']) : begin

errhrd (49, eh_13, ems_30); ! illegal relative or physical block #
T_QDDR CERR_HRD_HST) =".T_ADDR [ERR_HRD_HST] + 1;
end;

[%0'3'] : begin _
errhrd (30, eh_13, ems_30); ! device error

T_ADDR CERR_HRB_DRV] =".T_ADDR CERR_HRD_DRV] ¢ 1;

21=Jul=198315:33:38
21=Jul-198315:23:38

RD/RX EXERCISER

ZRQAM3

MULTI-DRIVE TEST ROUTINES

v01.2

SEQ 385

Page 129
VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASE JZIRQABO.BL2:135 (37)

E R YRLR LN X

end;

(Xo0'4'] : begin

message
errhrd (51, eh 13, ems_30); ! zero lenght
_HST] +

A LR SR

T_ADDR (ERR HRD_ HSTY = .To AUDR CERR_HR

T ASEA

(%0'1°']

end:

end;

tes;

end;

! INVALID COHHAND
ERRHRD?52 EH_7, EMS_ 30ADDR CERR_HRD_DRV]
+ 1;

PRYR

sDDR [ERRHRD_ DRV] =

R TR

(X0'2']

en.

! NO REGION AVAILABLE
ERRHRD?53 EH_7, EMS_ 30
ADDR CERR_HRD_DRV] + 1;

PRPR

T_ADDR [ERR HRD_ DRV]
=

T P
PP Y

{(%0'3']

end.

gin

ERRHRD (54 EH_7, EMS_30);
GDDR [ERRHRD ner

[X0°'4'])

! NO REGION SU!TABLE
.T_ADDR [ERR HRD_HST] + 1;

;

! PROGRAM NOT KNOUN
ERRHRD?ss EH_7, Ens_sm
T_ADDR CERR_HRD_HST) + 1;

GDDR [ERRHRD HSTJ s

I EEEEEEE

[%0'5']

;

! LOAD FAILURE
snaunoDe910 en 7. s_30);T_ADDR [ERR_HRD_DRV]
+ 1;

Qm LERR_HAD. BRVY
=

L%0'6']

;

! STANDALONE
ERRIR 157, EH. 7, EMS. 30);
ADDR CERR_HRD_HST) + 1;

i goon LERR_HRD.AST]
=

[OTHERWISE]

end:

! DUP UNKNOWN STATUS CODE
30);
irbela" (58, EH.8. EMS
= .C_ERR_TBL [.CCTLR, C_ERR_HRD] ¢ 1;
C_ERR_HRD]

C_SRR 8L [.CCTLR,

TES:

endag,

! ROUTINE HARD_ERROR

end;

004137

0000006

013701

0000006

001574

0000006

.SBTTL

HARD .ERROR:
JSR

MOV
INC
MOV
TST8
BNE
MOV
BNE

MOV
BEQ

HARD.ERROR MULTI-DRIVE TEST ROUTINES
R1,$SAVE3
T.ADDR,R1
14(R1)
RP.ADDR,RO
3(RO)
128
ST.CODE,RO
3s
SB.CODE ,R2
16$

4228
4244
4245

4247
4250

K 14

MULTI-DRIVE TEST ROUTINES
l62 R3

012703 000062
060103
020227 000004
001002
105213
000402
105263 000001
104456
000054
0000006
000006

105261

000063

4257
4254

4257

Ve Yt Y

000001

13 (37)
JZRAABO.BL2:

3s:
4266
4267

4247

020027
001007
105261
104456

000002

4(8:
427
4272

000062

000040
0000006
0000006

447

5%:

020027

000003

105261

000062

4276
4277

013700
112760

000000G
000005 0000006

4278

020027

000004

105261

000062

4283
4284

0000006
000013 0000006

4285

0000006

013700
112760
104451

000562
020027
0C1007
105261

000005

000060

4279
4247

6%:

4286
4247

It B

8
60(R1)

4290

020027

VAX=-11 Bliss~16 V3=555
DISKSUSER2: (DIETZ.RELEASE

d-l

21-Jul21=Jul~

RD/RX EXERCISER

SEQ 386

Page 130

e Yen e Jaw Tap Yur Yo

L 16

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
104456

000043
0000006
0000086

020023

000006

012705

000062

023727
001003
105262

0000006 000200

000401

9$:
108:
G

020027

000007

105261

000061

020027

000010

0° 702

000060

8%3727

0000006 000002

0004
10526%

000001

56
43
EGH. 30
EMS. 30
288
RO,#6

4291

4247

#62.,R2
R1,R2

4298

SB.CODE
, #200

4296

:
:
:
H

4298
4296
4300
4302

4247

61(R1)
56
45
EGH.30
EMS. 30
288
RO,#10

:
:

4306
4307

4247

#60,R2
R1.R2

’

4314

S8.CODE
, #2

4312

:
:
H
:

4314
4312
4316
4318

4247

:
:

4322
4323

4247

:
:

4327
4328

11$

000001

118:

9
1(R2)
10$
(R2)
4

EGH. 30
EMS. 30
288
RO, A7

13$

17$

148
(R2)
158
1(R2)

830027

000011

}85261

000063

000456
020027
001007
105261
104456

000012
000062

SEQ 387

Page 131
VAX=11 Bliss=16 v3-555
DISKSUSER2:[DIETZ .RELEASEIZRQAB(O.BL2; 15 (37)

EGH.30
EMS.30
23$
RO, #11
19%

63(R1)
56
47
EGH.30
EMS.X0
28$
RO, #12
2 18
62(R1)
56

1
21-Jul-1983
21-Jul~1983 15: 23 38

2000 9600 8s 00 Ve Ve VoS00 to g,

M 14

000013

208:
218:

50
EGH.30
EMS.30
288
RO, #13

22$:

#3
SB. CODE,
22%
60(R1)
238
62(R1)

0000006 000003
000060

000062

238:

248:

25$:

000037
000062

268:

27$:

000000G

0000006
000003 000002

28%:

000014

000201

001000

000022

0000006
007777

4335
4333
4337
4339

56
51

EGH.30
EMS.30
288
RO,#37
7%
62(R1)
56
53
EGH.30
EMS.30
288
gCTLR.RO

4247
4343
4344

4247
4348

RP.ADDR,RO
, #2
3(RO)

4356

348
14 (RO) ,#201
29%
#1000,22(R0)
29%
56
57

29%:

EMS. 30
T.ADDR,RO
62(R0)
DUPPKT RO

#170000,
RO
R0§#3
43

DUPPKT,RO

#7777 ,RO

4349
4353

077746, 1

177740

4247

4333

3 38
16 (RO) ,P1

000016

0000006
000062
0000006
170000
000003

25é

(RO)
TBLR.
C.ER

0000006

4359
4361
4363

4364

4366

<<~

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

SEQ 388

Page 132
VAX=11 Bliss=16 V3-555
DISKSUSER2:CDIETZ.RELEASE]JZRQAB0.BL2;15 (37)

O OO OOOOOOOOOOD

21-Jul=1983 15:
21-Jul=1983 15:

PN SNENLNEN NN NI CYI YOOI

N 14

815
21-Jul-1983 15: 33:38
21-Jul-1983 15: 23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

020027

050000

112760

0000006
000005 0000006

013700
042700
020027

0000006
170000
002001

RO #50000

43¢

LSLUN,RO
gg.oua(RO)

;

4371

DUPPKT RO

;

4374

;

4377

4378

4381

4374

4385

;
:

4386
4374

;

4389

:
:

4390
4356

;

4396

:
:

4397
4356

;

4400

:
:

4401
4356

4404

#170000,R0

30$
56

020027
001005

EMS.30

000002

308:

104456

000061

0000006
0000006

000503
020027 000003
001005
104456
000062
0000006
0000006
000457
020027 000004
001106
504656

4372

RO, #1

60
51

SEQ 389

Page 133
VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL2;13 (37)

318:

32%:
33s:

4374

4382

0000006
0

020127
001
104456

b D cmd cud b

b cnd cnd

b and

23838888383

001076

000437

020127
001005
104456
000065

02012;
000066

000001

000002

000003

348:

35s:

36$:

c15
21=Jul=19 83 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
001134
001136
001142

001162

001200
001210
001212

0000006
000000G
0004
8%0127 000004

020127

001011
104456
000070
0000006
0000006

013700
105260
000207
020127

000005

EH.7
EMS.30
37%:

SEO 390

ge 134
VAX=11 Bliss=16 v3-555
(37)
.BL2;13
JZRQABO
RELEASE
DlSKtUSERZ COIETZ.
;
.

4405
4356

;

4408

4409
4356

38$:

44612

000000G
000062

398:

000006

40$8:

44613

4356
44616

001230

001252
001256
001260
001264

000G

013700
105260

000006

013700
006300
105260
000207

0000006
000063

41$:

4617

42$:

4356
4420

000000G

.WORD
.WORD
. WORD
MOV
ASL

43$:

INCB
RTS

4621

CCTLR.RO

C.ERR.TBL(RO)

$CODES + 16442
Routine Base:
: Routine Size: 347 words,
words
6
invocation:
per
depth
stack
Haxlmum

4228

D15
ZRQAM3

e 04 %¢ %993 83%0920,000000%; 083%0%600%¢%0 0300800, %% 0, YRR IR

A I E TRPR PR PRTR PR PR TR LA LA TR LR YA TN X LN TR TN ¥

v01.2

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

21=Jul=-1983 15:33:38
¢1=-Jul=-1983 15:23:38

SEQ 3N

Page 135
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2; 13 (38)

routine UPD_IO_TALLY : novalue =
+

THIS RCUTINE 1S CALLED FROM 10_RETPKT FOR ALL 1/0 TRANSFER RETURN
PACKE1S WITH “*SUCCESS'* STATUS TODES. ITS PURPOSE IS TO UPDATE ALL THE
APPROPRIATE STATISTICAL FIELDS FOR THE CURRENT UNIT. A CHECK IS ALSO
MADE ON THE TOTAL NUMBER OF BYTES TRANSFERRED THUS FAR; IF THE
OPERATOR=-SPECIFIED LIMIT HAS BEEN REACHED, THEN THE UNIT IS DROPPED.
IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

T_ADDR -~ ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY)
CST_ADDR = ADDRESS OF THE CURRENT CONTROLLER'S CST
CUOFF = CST OFFSET FOR THE CURRENT UNIT
LSLUN = CURRENT UNIT NUMBER

begin

local
THOUSANDS : word,

MILLIONS : word;

i; .RP_ADDR [ENDCOD] eql (OP_RD or OP_END)
then

! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT
! IF ENDCODE IS READ

r_goon CTOT _READS _LO) = .T_ADDR [TOT_READS_LO] + 1;

! INCREMENT NO. OF READS AND ADD BYTE COUNT

OVF~CHK (T_ADDR CBYTES READ_L01};
ovz_cux (T_ADDR CTOT_BYT_RED_L01);

i
i

i; .RP_ADDR CENDCOD] eql (OP_WRT or OP_END)

! IF ENDCODE IS WRITE

begin

T_ADDR [BYTES READ 0] = .T_ADDR [BYTES READ _LOJ + .RP_ADDR [BCNT LOJ;
T-ADDR CTOT_BYT_REB LOJ = .Y _ADDR CTOT_BYT_RED_LO) + .RP_ADDR [BCRT_LO];
T CHECK FORTFIELD OVERFLOW
OVF_CHK (T_ADDRTMCTOT READS_LOJ).

else

begin

t_flooa [rOT_WRITES_LO) = .T_ADDR [TOT WRITES_LO] + 1;

' INCREMENT NO. OF WRITES AND ADD BYTE COUNT

TADDR (BYTES WRITLO] = .TCADDR [BYTES WRITLO] + .RP_ADDR [BCNT LOJ;

T"ADDR CTOT_BYT_WRY L0J = .T_ADDR CTOT_BYT_WRT_iL0] + .RP_ADDR [BCRT LOJ:
1"CHECK FOR FIECD OVERFLOW
OVF_CHK (T_XDDRTMCTOT WRITES_C0J):
OVF_CHK (T_ADDR [BYTES WRIT_LOJ):

ovz_cnx (T"ADDR CTOT_BYT_WRT_L03);

enda.

if (.RP_ADDR LENDCOD] eql (OP_RD or OP_END)) or
th (.RPZADDR LENDCOD] eql (OP_WRT or OP_END))
en

begin

MICLIONS = .T_ADDR [MBYTES_READ] + .T_ADDR [MBYTES WRIT].

THOUSANDS = .T_ADDR [BYTES_READ_HI] ¢+ .T_ADDR [BYTES_WRIT_MIJ;

TOTAL BYTES TRANGFERRED

E 15

21=Jul=-1983 15:33:38
21=-Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
begln

MICLIONS = .MILLIONS + 1;

THgUSANDS = ,THOUSANDS - 1000;

! COUNT THE LOWER OVERFLOW TO0O!

end;

THIS ADDED BECAUSE IT WILL TAKE FOREVER TO TRANSFER ON THE ORDER OF A MEGABYTE TO A FLOPPY
BUT IT IS A MUCH MORE REASONABLE MEASURE FOR THE RD51 WINCHESTER. THE QUESTION NOW REFERS TO
THE TOTAL DATA TRANSFER TO THE CONTROLLER AND THIS IS PRETTY CLOSE SINCE THE FLOPPIES GET
ABOUT 1/1000 THE DATA THE HARD DISK(S) GET.

PRYN YN

PR IELA YA

LN YRLR LR LN ¥

if .THOUSANDS gequ 1000

then

' IF THERE IS A TRANSFER LIMIT

2; .SWP_XFER eql 0
begin

IRIR IR

I YR

if .THOUSANDS gtru 100

TN PN PR L) TR

then

begin

EOP_FLAG = TRUE;
DCL,ADDR CIG_INT] = TRUE;

! JET END=-OF-PASS FLAG
! IGNORE FURTHER INTERRUPTS

C RT

end;

YR
IT

else

end

! IF TRANSFER LIMIT IS REACHED

2; LMILLIONS gequ .SWP_XFER
en

begin

IR A

EOP_FLAG = TRUE;
DCS,ADDR CIG_INT] = TRUE;

! SET END=-OF-PASS FLAG
! IGNORE FURTHER INTERRUPTS

end;

IR IR R
YRR

SEQ 392

Page 136
VAX-11 Bliss=16 V3=-555
(38)
BL2;15
ASEJZRQABO.
[DIETZ.RELE
DISKSUSER2:

! IF UNIT IS STILL ALIVE

end;

! ROUTINE UPD_IO_TALLY

end;

000014

UPD.IO.TALLY MULTI-DRIVE TEST ROUTINES

JSR

R1,8SAVE?2

gzge

}:(R1).0241

UPD.IO0.TALLY:

0000006

LSBTTL

000241

MOV

4426

RP.ADDR,R1

4449

0000006

MOV

T.ADDR,RO

4452

000020
000020 000032
000016

ADD
ADD
MOV

20(R1),(RO)
20(R1),32(R0O)
#16,-(SP)

H
:
H

4453
4454
4455

000000V

JSR

PC.OVF.CHK

000016

INC

ADD

16(R()

RO, (SP)

F 15

21=Jul=-1983 15:33:3
21=Jul=-1983 15:23:3

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

013716
004737

0000006

T.ADDR, (SP)

4456

T.ADDR, (SP)

;

4457

4461

PC,OVF
. CHK

432, (SP)
000014

000242

1$:

0000006
000024
000020 000006
000020 000040
000024

SEQ 393

Page 137
VAX-11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;15 (38)

23
14(R1)
, #2462
3s
T.ADDR,RO
24 (RO)
20(R1) ,6(RO)
20(R1) ,40(RO)

4464

4465

4466
4467

#24 ,~(SP)
RO, (SP)

PC . OVF . CHK

4468

T.ADDR, (SP)

26. P}

PC.OVF
. CHK

0000006

2s:

000014

000241

000014

000242

38:

0000006

5%:

43
14(R0) ,#242
8s

4473

, #2410
14(RO)

4(RO) ,R2

SWP.XFER,RO

78:

8$:

6$:

0000006
0000006

5¢
R2
#1750 ,R?

63
R1,#144
8s
78
R2.RO
8s
#1 ,EOP.FLAG

000144

052777
000207

4463
4472

R1,#1750

001750
0000006

000312
000320

(SP)+
RP.ADDR,RO

PC,OVF
. CHK

12(R0) .R2
2(R0) ,R1
10(RO) ,R1

001750

000001
040000

4469

#40000,3DCT.ADDR

Base:
$CODES + 17730
Routine
105 words,
.
n:
words
5
invocatio
per
; Maximum stack depth

: Routine Size:

Ve Ve B By 0o B,

000
000000V

T.ADDR, (SP)
440, (SP)

* MILLIONS
+ ,MILLIONS
=, THOUSANDS
*, THOUSANDS

THOUSANDS
,*

MILL IONS

4476

4477
4479

4482

*, THOUSANDS

4483
4493

; THOUSANDS,*

4497

H
: MILLIONS,*

4500
4507

6 15

routine OVF_CHK (ADDR)

IRPR PR YN X LN YN YN Y

'
!
;

LOW-ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR
EXCEEDING 1000. IF TRUE, THEN THE HIGH-ORDER COUNT 1S INCREMENTED. If
THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT IN INCREMENTED.

INPUTS:

CERTAIN STATISTICAL FIELDS OF TRE TURRENT UNIT. SPECIFICALLY, THE

;

W
W
n

: novalue =

THIS ROUTINE IS CALLED FROM UPD IO _TALLY TO CHECK FOR OVERFLOW IN

ADDR = ADDRESS OF THE BYTES READ _LO OR BYTES WRIT LO FIELD FOR

THE CURRENT UNIT (SEE STATISTIC TABLE (TALLY) LAYOUT)

begin

whilg ..ADDR gequ 1000 do

! IF LO-ORDER OVERFLOW

egin

.ADDR = ..ADDR - 1000;

! SUBTRACT 1000

(.ADDR + 2) = .(.ADDR + 2) + 1;

! INCR HI-ORDER

end;

:; .(.ADDR + 2) gequ 1000
en

010146

! IF HI-ORDER OVERFLOW

begin

(.ADDR + 2) = .(.ADDR + 2) - 1000;
(.gooa +4) = _(LADDR + &) + 1;

4542
4543
4544

4545
4546

VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASE JZRQAB0.BL2;13 (39)

PR PR PRTR TE PN YR XA LN
YEYRIAIEIEIEIEYESEIE
[P YR

21-Jul=-1983 15:33:38
21-Jul-1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3

SEQ 394

Page 138

! SUBTRACT 1000
! INCREMENT MBYTES

ena;

end;

000004
000002

001750

! ROUTINE OVF_CHK

1$:

001750

001750
000004

.SBTTL

CVYF.CHK MULTI-DRIVE TEST ROUTINES

MOV
MOV

4(SP) ,RO
#2.R1

: ADDR,*
:

(RO) #1750

SuB

#1750, (RO)

B8R

8LO

OVF . CHK :MOV

ADD

CMP

8LO
INC

28:

3s:

CMP

R1,-

RO R?

(R1)

(R1) ,#1750

Su8
INC

#1750, (R1)
4 (RO)

RTS

MOV

(SP)+,R1

22 words,
Routine Base: $CODES ¢+ 20252
: Routine Size:
s Maximum stack depth per invozation:
2 words

:
:
:

H 15

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2
4547

;

routine HOST_WRT_CHK =

369 1

;

4550

;

4551

:
;

222%

;

4554

4555
4556
4557
4558
2?28

:
;
;
;
:

4561

4562
2222

:
;

4565

;
:

4566

:
:

4569
4570

4567
4568

:
:

;
;
:
:

4571
4572

4573
22;?

;

2;;9

zggg

;

4580

.
.

223}

4583

21-Jul=-1983 15:33:38
21-Jul=-1983 15:23:38

THIS ROUTINE IS CALLED FROM 10 RETPKT FOR ALL 1/0 TRANSFER RETURN

PACKETS WITH ‘SUCCESS'® STATUS TODES, BUT ONLY IF THE HOST WRITE=-COMPARE

OPTION WAS SELECTED BY THE OPERATOR.

IF THE CURRENT RETPKT BEING PROCESSED IS A WRITE FUNCTION, THEN THE

i
i
:

PACKET INDEX (RP _INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE
AREA (RP SAVE). OTHERWISE, THE PACKET IS A READ, SO ITS ASSCCIATED
WRITE PATKET IS REMOVED FROM THE SAVE AREA, AND A BYTE-BY-BYTE
COMPARISON IS PERFORMED ON THE TWO 1/0 BUFFERS. ANY DIFFERENCES
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR.

IMPLICIT INPUTS:

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET
RPTINDX = INDEX OF THE CURRENT RETURN PACKET

|
:

begin

local

BUFF1 : ref block [MAX_XFER *+ 2, bytel, ! 1/0 BUFFER ADDRESS
BUFF2 : ref block [MAX_XFER * 2, bytel, i 1/0 BUFFER ADDRESS

BUFFW,
COUNT : word, _ .

FLAG : byte initial (byte (TRUE)),
index : signed word;

i 1/0 BUFFER ADDRESS
i BYTE COUNT

i; .RP_ADDR CENDCOD] eql (OP_WRT or OP_END) ! IF WRITE OPERATION
' DON'T CALL SWEEP FROM I0_RETPKT
l FLAG = FALSE

then

eLse

if (.RP_ADDR CENDCOD] eql (OP_RD or OP_END)) and

o ((index = RPS_REM ()) geq D)
en

begin

' IF ASSOCIATED WRITE PACKET IS FOUND ELSE ENDCODE IS READ

4584

BUFFW = RETPKT C.index, BUFF_0J;

' ADDR OF ADDR OF WRITE I1/0 BUFFER

;

2;3;

COUNT = .RPTADDR [6u.. _LOJ;

i BYTE COUNT

2;33

4591

;

4594,

:
:

4596
4597

:
:

4585
4586

4592
4593

BUFF1 = ..BUFFW;
BUFF2 = .RP_ADDR [8'~ 03

incr 1 from 1 to .COUNT do

4599

begin

BUFF1 = .BUFF1 + 1;

BUFF2 = .BUFF2 + 1;

4595

4598

i ADDR OF WRITE 1/0 BUFFER
i ADDR OF READ I/0 BUFFER

! FOR EACH BYTE IN BUFFERS

it .(.BUFF1)<0, 8. 0> eql .(.BUFF2)<0, 8, 0>

then

else

end

begin

' IF BYTES COMPARE O0.K.

' ADVANCE WRITE BUFFER ADDR
i ADVANCE READ BUFFER ADDR
!!

ELSE = COMPARE ERROR

T_ZDDR CERR_HARD] = .T_ADDR [ERR_HARD] ¢ 1;

SEQ 395

Page 139
VAX=11 BLiss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;13 (40)

;

4604

:
:

;
;
:
:

then

end;

4609

4610

;

zg}g

:
;

4616
4617
004137

0000046

005746

! NO NEED TO CONTINUE

exitloop;

i IF COMPARE ERROR

end;

22}%

000000

begi n

DUR C.LSLUN] = DU_MERR; ! IF ERROR COUNT EXCEEDED
i DROP UNIT
DODU (.LSLUN);

4607
4608

4611

11/0 REOUESTAILED

EMS_CMP (RETPKTTM+ (.index * RP_LEN * 2));
it .T_ADDR CERR_HARD] gequ .SWP_ERROR

4605
4606

;

ERRHRD (42,EGH_30 0"

4601

228%

' IF ASSOCIATED WRITE RETPKT WAS FOUND

end;
return (.FLAG);
end;
0000006

! ROUTINE HOST_WRT_CHK
.SBTTL
HOST.URTJggK

HOST.WRT.CHK

;

4547

; *,FLAG
:

4566
4576

; FLAG
;
:
;

4578
4576
4580
4581

; INDEX,*

4584

-($P

Move
MOV

M as
RP.ADDR, RO

001002

BNE

CMPB

000016 126027 000014 000242

000026 105005
000030 000500
000032 126027 000014 000241
000040 001074
000042 004737 000000V

1$:

000050

002470

000054
000060
000064
000070
000074
000076

012746
004737
010066
062700
011002
013700

000052 010046

RS
68
14(R0),#241

BLT

MOV

000060
0000006
000004
0000246
0000006

MOV
JSR
MOV
ADD
MOV
MOV

000106 016004 000020
000112 005001
000114 000442
000116 121213
000120 001003
000122 005202
000124 0052
000126 000435
000130 013700 0000006

MOV
CLR

MOV

000102 016003 000024

000134

005260

000014

2s:
3$:

14(R0),#242

CLRB
BR
CMPB
BNE
JSR

TST

000046 005700

PC,RPS.REM

RO’

RO,=(SP)

#60.,-(SP)
PC,BLSMUL
RO.4(SP)
0RETPKT024 RO
(RO) ,R2
RP.ADDR, RO
24(R0) ,R3

20(R0) .R&
R1

INC

14 (R0)

CMPB
BNE
INC
INC
B8R
MOV

_TI-DRIVE TEST ROUTINES

R1.SSAVES

000006 112705 000001
000012 013700 0000006
000024

SEQ 396

Page 140
VAX=-11 BlLiss=16 V3=555
(40)
;13
EIZRQABO.BL2
DISKSUSER2:LDIETZ.RELEAS

= .T_ADDR CERR_HRD HSTJ +
T_ADDR [ERR_HRD_HST]

4600

;

115

21-Jul=-1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUT'NES

ZRQAM3
v01.2
;

(R2).(R3)
3$
R2
R3
43
1. ADDR.RO

* INDEX
.

: %, BUFFW
* BUFFW,BUFF1
;

4585

: «.COUNT
sl

4587
4589

; BUFF1,BUFF2
: BUFF1
* BUFF?2
:
:

4591
4594
4595
4591
4599

: «,BUFF2

4586

J 15

3
21-Jul-1981
21-Jul-1983 15: 23 38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
000140

105260

000014

0000006

000004

0000006

4(SP), (SP)
#RETPKT, (SP)
PC,EMS. CMP
T.ADDR,RO
;:(RO). SWP.ERROR

0000006

g?.DUR(RO)
5%

000234
000236
000240

022626
005000
150500
005726
000207

6$:
RTS

(SP)+, (SP)+
RO
RS,RO
(SP)+

FLAG,*

$CODES + 20326
Routine Base:
81 words., .
: Routine Size:
11 words
Hax1mum stack depth per invocation:

13 (40)
JZRAABO.BL2:

4602

R1R4

SEQ 397

Page 141

4600
4601

LSLUN,RO

4S:

000230

DISKSUSERZ: (DIETZ.RELEASE

63(RO)
56
52
EGH.30
0

000063

VAX=-11 Bliss=16 V3=555

1.,COUNT

K 15
v01.2
TRYR PR YR AR LAXN X

routine SWEEP : novalue =
'+

i
i
i
i
i

THIS ROUTINE 1S CALLED FROM IO_RETPKT AND OTHERS TO DEALLOCATE THE
RESOURCES ASSOCIATED WITH THE CURRENT RETURN PACKET. THIS INCLUDES THE
PACKET ITSELF AND THE 1/0 BUFFER. IN ADDITION, IF THE HOST IS
PERFORMING WRITE-COMPARES, AND IF THE CURRENT RETURN PACKET IS A READ
FUNCTION, THEN THE CURRENT CONTROLLER'S RP_SAVE AREA IS SEARCHED FOR

;

DEALLOCATED.

IMPLICIT INPUTS:

THE ASSOCIATED WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO BE

Y EPN

RP_ADDR = ADDRESS OF CUSRRENT RETURN PACKET
RPZINDX = INDEX OF CURRENT RETURN PACKET

AT E A

i
;

begin

R IR IR

.
local
index : signed word;

PRI L ¥} IR

i; (.RP_ADDR CENDCOD] and OP_MSK) eql OP_RD ! IF READ OPCODE OR ENDCODE
en

' IF HOST IS DOING WRITE-COMPARES

2; BIT_TST (SWP_FLAGS, SWF_HWC)

ETRIR I

i; (index = RPS_REM ()) geq 0

then

TR IR
YE PR
IR IR A

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3

SEQ 398

Page 142
VAX=-11 Bliss=16 V3-555
13 (41)
2:
O.BL
ROAB
DISKSUSER2:[DIETZ.RELEA SEJZ

! IF ASSOCIATED WRITE RETPKT IS FOUND

begin

Pu?_xo BUF" (RETPKT [.index, BUFF_0J); ' RETURN WRITE 1/0 BUFFER TO POOL
I"RETURN WRITE PACKET TO POOL

PUL_RETPKT (.index);
eng,

4654

010146

SWEEP:

0000006
000014

177600

000040
000000V

.SBTTL

0000006

R1.=(SP)

BIC

R0
#177600,

MOV
MOVB
BNE

RO
RP.ADDR,
14(R0) RO

;

4618
4639

RO, #41
1$

gég

qgo.sup.rLAGs

;

4642

JSR
MOV

PC,RPS.REM
RO.R1

;
: «, INDEX

4645

MOV

R1,-(SP)

: INDEX,*

4648

BLT

000060

SWEEP MULTI-DRIVE TEST ROUTINES

MOV

CMP

000041

012746

! RETURN CURRENT 1/0 BUFFER TO POOL
i RETURN CURRENT RETPKT TO POOL
i ROUTINE SWEEP

PUT_10_BUFF (RP_ADDR [BUFF_01);
PUTZRETPKT (.RPZINDX);
end:

MOV

#60,-(SP)

L 15

21=-Jul-1983 15:
21-Jul-1983 15:

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

PC,BLSMUL

0000006
0000246

4
#RETPKT+2RO

RO, (SP)
PC.PUT.10.BUFF
R1, (SP)
PC.PUT.RETPKT
(SP)+,(SP)+

0000006

n000006
000024

RP.ADDR, = (SP)

18:

#26, (SP}

PC,PUT.10.BUFF

0000006
0000006
0000006

000207

RP. INDX, (SP)

PC.PUT.RETPKT
(SP)+

RTS

(SP)+,R1

Base:
$CODES + 20570
Routine
45 word,,
:
4
words
invocation:
per
; Maximum stack depth

: Routine Size:

SEQ 399

Page 143
VAX-11 Bliss=16 v3-555
DISKSUSER2:[DIETZ.RELEASEIJZRQABO.BL2;15 (41)

s INDEX,®

4649

4647

4653

4634

4652

4618

21=Jul=-1983 15:33:38

RD/RX EXERCISER

ZRQAM3
v01.2

21=Jul=-1983 15:23:38

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3=-555

SEQ 400

Page 144

DISKSUSER2:CDIETZ .RELEASEIZRQABO.BL2;15 (42)

AT ETEPE T TR PR LA L DN T

routine RPS_REM =
'+

THIS ROUTINE SEARCHES THE CURRENT CONTROLLER'S RP_SAVE AREA FOR A

RETURN PACKET WHOSE COMMAND REFERENCE NUMBER (CRNY IS ONE LESS THAN THE

!
!
!
;

CRN OF THE CURRENT RETURN PACKET (I.E., SEARCHING FOR THE SAVED WRITE
OPERATION ASSOCIATED WITH THE CURRENT READ OPERATION). IF FOUND, THE
RP SAVE ENTRY IS CLEARED (TO =1) AND THE RETPKT INDEX OF THE WRITE
OPERATION IS RETURNED TO THE CALLER.

AT E

;

IMPLICIT INPUTS:

OUTPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

begin

I L] TR

IR IR IR

!
E

local

INDEX (VALUE OF THIS ROUTINE) - INDEX OF THE RETPKT CONTAINING
A CRN WHICH IS ONE LESS THAN THE CURRENT

! ASSUME NOT FOUND

index : signed word initial (-1);

! FOR EACH ENTRY IN RP_SAVE

TEYR IE YR

incr COUNT from 0 to RP_CNT = 1 do

! IF THIS IS A VALID RETPKT

if (.RP_USE [.COUNT] eql .CCTLR) and

(.RETPKT [.COUNT, ENDCOD] eql (OP_WRT or OP_END))

then

if (C.RETPKT [.COUNT, CRF_LO] eql (.RP_ADDR [CRF_LO] - 1)) and

R E N E I E A

(.RETPKT C.COUNT, CRF_HI) eql .RP_ADDR CCRF_R1])) or
((.RETPKT C.COUNT, CRF_HI] eql (.RP_ADDR CCRF_HIJ -~ 1)) and
(.RETPKT [.COUNT, CRF_LOJ eql %0°'177777°) and

then

begin

ingex = .COUNT;

! INDEX TO BE RETURNED

! DONE

end;

IR
TR

000026

(.RP_ADDR [CRF_LOJ] eql 0))

exitloop;

return .index;

! ROUTINE RPS_REM

4696

end;

004137

0000006
177777

RPS.REM:JSR
mMov

0000006

1$:

0000006
012746

000060

! IF CORRECT CRN

.SBTTL

CLR

RPS.REM MULTI-DRIVE TEST ROUTINES

R1,$SAVE4
#-1,R4
R3

MOvVB

RP.USE (R3) ,RO

BNE

CMP

MOV

RO,CCTLR

R3,=(SP)

#60,-(sP)

H
s *,INDEX
¢ COUNT
,+
s ~(COUNT)
: COUNT,«

4655
4673
4678
<680
4681

N 15

21-Jul=-1983 15:33:38
21-Jul-198315:23:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
JSR
CMP
CMPB
BNE

0000006

0000146 000242

MOV
MOV

000060
0000006

JSR
CMP

MOV
MOV

000000G
000004

0000046

000006G 000006

000006

28:

0000066

000004G 177777
000004

3s:

000160
000162
000164

000003
010400
000207

“8:
5%:

DEC
CMP
BNE
CMP
8EQ

MOV
DEC
CMP

BNE
(MP
BNE
TST
BNE
MOV

BR
INC
CMP
BLE
MOV
RTS

VAX=11 Bliss=16 V3-555
DISKSUSERZ [(DIETZ.RELEASE

SEQ 401

Page 145

13 (42)
1ZROABO.BL2:

PC, BLSHUL
(SP)+, (SP)

25TPKT¢14(R0)N242
R3,=(SP)

#60,-(SP)

COUNT,
¢

4684

PC.BLSMUL
(SP)+, (SP)+
RP.ADDR,R1

4(R1) R
R2

ggTPKT*k(RO).RZ
gETPKT*6(RO).6(R1)

4685

6(R1) ,R2

4686

,#-1
(RO) +4
RETPKT

4687

R2
25TPKT+6(RO).R2

43
4(R1)
43
R3,Ré
5%
R3
R3,43
1$
R4 RO
PC

$CODES + 20722
Routine Base:
; Routine Size:
59 words,
8 words
: Maximum stack depth per invocation:

4688

COUNT, INDEX
COUNT
=
COUNT,
INDEX,

46N
4690
4678

4673
4655

8 16

21=-Jul=1983 15:33:38

RD/RX EXERCISER

IRQAM3
v01.2

21-Jul-1983 15:23:38

MULTI-DRIVE TEST ROUTINES

VAX-11 Bliss~16 V3~555

SEQ 402

Page 146

DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;135 (43)

routine DR_RETPKT : novalue =

'+
i
i

‘
THIS ROUTINE IS CALLED BY PROC_RETPKT FOR ALL PACKETS ORIGINATING AT
THE 'DRIVER"* PORTION OF THE PROGRAM. THIS INCLUDES PACKETS DESCRIBING

FOR FATAL DEVICE ERRORS, THIS RNUTINE RELEASES ALL RESOURCES HELD BY

FATAL DEVICE ERRORS.

;

i
;

THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL
UNITS ATTACHED TO THE CONTROLLER ARE DROPPED.

IMPLICIT INPUTS:

RP_INDX = INDEX OF THE CURRENT RETURN PACKET
RPADDR - ADDRESS OF THE CURRENT RETURN PACKET
CST ADDR - ADDRESS OF THE CURRENT CONTROLLER'S CST
CCTCR = CURRENT CONTROLLER NUMBER

i
i
i
;

begin

PUTA_BUFF ();

' RELEASE ALL I/0 BUFFERS HELD BY CONTROLLER

incr index from 0 to RP_CNT - 1 do

! FOR EACH ENTRY IN CONTROLLER'S RP_SAVE
' IF VALID RETPKT INDEX

:g .RP_USE [.index] eql .CCTLR
en

PUT_RETPKT (.index);

! RETURN RETPKT TO POOL

! CLEAR NO. OF OUTSTANDING QIO0S
i MARK CST OFFLINE
i DROP CONTROLLER'S UNITS

QI0 C.CCTLR] = 0;
CST_ADDR CSTATE] = OFFLINE;
OROP_CTLR (.CCTLR, DU_CFATAL);

i PUT BACK RETPKT

PUT_RETPKT (.RP_INDX):

i ROUTINE DR_RETPKT

end;

010146

004737

DR.RETPKT MULTI-DRIVE TEST ROUTINES

MOV

R1,=(SP)

;

4697

CLR

+ INDEX

4720

JSR

0000006
0000006

0000006

18:

MOVB

PC.PUTA.BUFF
RP.USE(R1),RO

CMP

RO,CCTLR

MOV

R1,=(SP)

BNE

;

,*
: «(INDEX)

4718
4722

; INDEX,*

4724

JSR

PC.PUT .RETPKT

INC

grg

R1,#3

: INDEX

4720

0000006

MOV

CCTLR,R1

;

4726

0000006

MOV

CST.ADDR,RO

4727

0000006

000003
013700

.SBTTL

DR.RETPKT:

0000906

2s:

TST

cLR8

(SP)+

QIo(RD)

. INDEX,*

c16

IRQAM3
v01.2
000056
000064
000066
000072
000076
000102
000106
000110
000112

21=Jul=1983 15:33: 38
21=Jul=1983 15:23: 38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
100000

#100000,2(RO)

000002

R1,=(SP)

000006
000000G
0000006
0000006
RTS

#6,=-(SP)
PC.DROP.CTLR
RP.INDX, (SP)
PC,PUT.RETPKT
(SP)+,(SP)+
(SP)+,R1
PC

:
Base: $CODES + 21110
Routine
: Routine Size: 38 words, .
4
words
ion:
invocat
per
depth
stack
: Maximum

SEQ 403

Page 147
VAX=-11 Bliss=16 Vv3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;13 (43)

4728

4729

H
H

4715
4697

D 16

;

4731

:
:
:
:
:
:
:
:

4732
4733
4734
4735
4736
4737
4738
4739

:
:

4741
4742

000000
000002
000006
000012
000014

21-Jul-1983 15:33:38
21=-Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

:
!
!

ZROABO.BL2:1§ (44)

THERE EXISTS AN RDRX INTERRUPT SERVICE ROUTINE FOR EACH DEVICE
CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING THE
APPROPRIATE CONTROLLER NUMBER INTO “‘ICTLR''. ALL SERVICE ROUTINES THEN

BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE.

BGNSRV (AZINTO);
ICTLR = 0;

47463

ENDSRV;

AZINT ();

000156°
000000V

.SBTTL
AZINTO: :MOV
CLR

JSR

MoV
RTI

AZINTO RDRX INTERRUPT SERVICE ROUTINES
RO,-(SP)
ICTLR
PC,AZINT
(SP)+,RO

Routine Base: SCODES + 21224
7 words,
: Maximum stack depth per invocation: 2 words

: Routine Size:

SEQ 404

Page 148

Zsbttl 'RDRX INTERRUPT SERVICE ROUTINES'

4740

010046
005037
004737
012600
000002

VAX-11 Bliss=16 v3-555
DISKSUSERZ:thETZ.RELEASEJ

4740
4741
4742
4740

I LI LN TN ¥)

routine AZINT : novalue =

PRFE TN

THIS IS THE COMMON INTERRUPT SERVICE ROUTINE FOR ALL RDRX CONTROLLERS.
AFTER CALCULATING THE DCT ADDRESS FOR THE INTERRUPTING DEVICE, THIS
ROUTINE WILL SAVE THE CURRENT CONTENTS OF THE SA REGISTER IN THE DCT.
THEN, IF THE ''IGNORE INTERRUPT'' BIT IS SET, NO FURTHER ACTION IS TAKEN.
OTHERWISE, THE SA VALUE IS CHECKED FOR A FATAL ERROR, AND THE COMMAND

PR FRE YR YR TR RN E X ] [ YETETIEYETE

AND RESPONSE RINGS ARE POLLED.

begin

! GET DCT ADDRESS
IDET_ADDR = DCT + (.ICTLR + DCT_LEN + 2);
! GET CST ADDRESS
ICSTADDR = CST ¢ (.ICTLR ~ CST_LEN +« 2);
! GET RDRX ADDRESS
IRDRR ADDR = .ICST_ADDR [IP_ADDR]:
! GET COMM_AREA ADDR
1COM_ADDR = COMM_AREA + (.ICTLR » COMM_LEN ~ 2);

IDCT-ADDR [SA_SAVE] = .IRDRX_ADDR CRCSA, RC_ALLY;
en

! RETURN IF INTERRUPTS IGNORED

recurn;

i; BIT_TST (IDCT_ADDR [SA_SAVE], SA_ERR)
then

else

begin

! POLL COMMAND RING
! POLL RESPONSE RING

end;

AZINT:

010146

000156°

000022

000000G
000000G
000110°
000056
0000006
0000006
000106*

0000006
000050

062700

' IF FATAL ERROR

FATAL_ERROR ()

POLL_CRING ();
POLL_RRING ();

4775

| SAVE SA REGISTER

! IGNORE INTERRUPT?

:; .IDCT_ADDR [IG_INT]

A ETE IR
YR YRR YRR IE

2i=Ju {-1983 15:33:38
21=-Ju (-1983 15:23:38

RD/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

SEQ 405

Page 149
VAX-11 Bliss=16 V3=35 S
(45)
;13
DISKSUSER2:[DIETZ.REL EASEJZRQABO.BL2

0000006
000000°

.SBTTL

AZINT RDRX INTERRUPT SERVICE ROUTINES

MOV

ICTLR,RY

MOV
TST

MOV

R1,-(SP)
=-(SP)

R1,-(SP)

4744

4756

MOV

#22,-(SP)

MOV

R1,(SP)

4757

(Rb).lRDRX.ADDR
R1,(SP)
#50,-(SP)

: 1CST.ADDR,*

4758
4759

JSR
ADD
MOV
MOV
JSR
ADD
MOV

MOV
MOV
MOV
JSR
ADD

PC,.BLSMUL
#DCT,RO
RO,IDCT.ADDR
#56,-(SP)
PC ,BLSMUL
#CST,RO
RO,ICST.ADDR

PC,BLSMUL
#COMM.AREA,RO

F 16

21-Jul=-1983 15:3
21=-Jul-1983 15:2

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES

000010
077777
100000

MOV

BIT
BNE

000000V

000174
000176

000000V
000000V
000012

18:

28:

8IC
CMP
BNE
JSR
B8R
JSR
JSR
ADD

MOV
RTS

RO, ICOM.ADDR

IDCT.ADDR,RO
R1
IRDRX.ADDR,
10(SP)
2(R1),

10(SP5
.2 (RO)

#gOOOO.(RO)

2
10(SP) ,RO
77777 R0

«,IDCT.ADDR

2;2%
4766

ag.a-1boooo
1

PC,FATAL .ERROR

PC,POLL.CRING
PC.POLL.RRING

#12,5P

(SP}+,R1

Routine Base: SCODES + 21242
64 words,
7 words
invocation:
per
depth
; Maximum stack

: Routine Size:

4760
®e Go eS¢ O

MoV
Mov
Mov
MoV
MoV

Ve Ve By ®e %

000104
000110°*
0000006
000002 000010
000010 000002
040000

SEQ 406

Page 150
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;15 (45)

4768
4766
4771
4772
4744

G 16

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

IRQAM3
v01.2
:

:
:
:
:

4776

4779
4780
4781
4782

4783

4786

:
:
:

H
:

:
:
:
:

L7791
4792

4793
4794
4795
4796

4797

4798

RETURN PACKET.

4787
4788
2;88

THIS ROUTINE 1S CALLED BY THE INTERRUPT SERVICE ROUTINE (AZINT) UPON
SA REGISTER.
DETECTING AN UNRECOVERABLE ERROR THROUGH THE DEVICE'S
1TS PURPOSE IS TO CLEAN UP DEVICE DATA IN THE 'DRIVER' PORTION OF
THE EXERCISER, AND TO INFORM THE ‘‘PROGRAM'’ PORTION OF THE EVENT VIA

!
!
!

4784

4785

SEQ 407

Page 151
VAX=11 Bliss=16 V3~555
DISKSUSER2:[DIETZ.RELEASE]ZROABO.BL2:15 (46)

routine FATAL_ERROR : novalue =

21=Jul=-1983 15:33:38
21-Jul=-1983 15:23:38

IMPLICIT INPUTS:

ICTLR = INTERRUPTING CONTROLLER NUMBER

IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCTY
ICST"ADDR ~ ADDRESS OF INTERRUPTING CONTROLLER'S (ST
IRDRR_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S IP REGISTER

!
!
:
begin

local
.
index : signed word,
U_SAVE : word;

SA_REG = .IDCT_ADDR [SA_SAVE];

U_SAVE = .LSLUN;

! SAVE PRE=-INTERRUPT CURRENT UNIT NUMBER

4802
4803
2382

CTERR_TBL L.ICTLR, C_ERR HRD] = .C_ERR_TBL [.ICTLR, C_ERR_HRD] + 1;
' SET CURRENT UNIT TO FIRST IN CONTROLLER
LSLUN"= .ICST_ADDR [OF_UN, D_UNITI?
! FATAL CONTROLLER ERROR
ERRDF (14, EGD_14, EMS_14);
RESTORE PRE=-INTERRUPT CURRENT UNIT
!
LSLUN = .U_SAVE;
CLEAN UP DRIVER DATA FOR CONTROLLER
!
DRV_CTLERR (.ICTLR);

:
:
:

2389
2%83

i; (index = GET_RETPKT (.ICTLR)) Lss 0
then
X PRINTF (DBM18)

! TRY TO GET A RETPKT; IF FAILURE
! "FATAL_ERROR: RETPKT NOT AVAILABLE''

4810

4813

:
:
:

4799

4800

4801

else

! IF RETPKT WAS ALLOCATED

RETPKT [.index, CONID] = CID_DRIVER;
RETPKT [.index, MESTYP] = MT FATAL:

! SET CONNECTION ID TO 'DRIVER"
! FATAL ERROR

4814

IN_]ODQ (.index);

! LOAD RETPKT INDEX INTO IODQ

RETPKT [.index, CTLR] = .ICTLR;

4817

end;

004137

0000006

000004 013700 000110°
000010 016037 000002 0000006
000016 013701 0000006
000022 013700 000156°
006300
105260

0000006

! CONTROLLER NUMBER

! IF RETPKT WAS ALLOCATED

end;

23}2

000026
000030

4811
4812

;

000000

begin

! ROUTINE FATAL_ERR
.SBTTL
FATAL.ERROR:

JSR

MOV

MOV
MOV

ASL
INCB

FATAL.ERROR RDRX INTERRUPT SERVICE ROUTINES

R1,$SAVE?2

IDCT.ADDR,RO

2(R0) ,SA.REG

LSLUN,R1
ICTLR,RO

RO
C.ERR.TBL(R0)

: *,U.SAVE
H

4776

4798
4799
4800

H 16

21=-Jul~1983 15:33:38
21=-Jul=-1983 15:23:38

RD/RX EXERCISER

IRQAM3
v01.2

RORX INTERRUPT SERVICE ROUTINES

ICST.ADDR,RO
6(R0) ,R2

000106°
100006

gg.L$LUN
16

EGD.14
EMS.14
R1,LSLUN
ICTLR,=(SP)

PC.DRV.CTLERR

ICTLR, (SP)

PC,GET.RETPKT

18
#DBM18, (SP)
#1,-(SP)
SP,RO
17
28
R1, (SP)

0000006
000001

0000006
000207

4801

4802

s U.SAVE,«

4803

4806

R2
#177760,R2

177760
0000006

000060
0000006
0000026
000003 000001
000156°
177760
000060

SEQ 408

Page 152
VAX-11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;15 (46)

1$:

#60.-(sP)
PC.BLSMUL
0RETPKT¢2 RO
#3.1(RO)

ICTLR, nz

#177760,R

2$:

81S8
MoV
JSR
CMP
RTS

460, <no$
R 2.(RO)

R1,(SP)
PC,IN.1I0DQ
ggP)*,(SP)*

$CODES + 21442
Routine Base:
: Routine Size:
68 words,
7
words
ion:
invocat
per
depth
Hax1mum stack

4804

;s ~,INDEX

4808

; SP,x

:
: INDEX,*

4806
4811

4813

: INDEX,*

4814

H
H

4792
4776

116

RD/RX EXERCISER

ZRQAM3

21=Jul=19 83 1 S: 33:38
21=Jul=1983 1 5: 23:38

RDRX INTERRUPT SERVICE ROUTINES

v01.2

SEQ 409

Page 153
VAX-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;15 (47)

THIS ROUTINE IS CALLED BY THE RDRX INTERRUPT SERVICE ROUTINE (AZINT)
FOR EACH DEVICE INTERRUPT EXCEPT DURING INITIALIZATION OR FATAL ERROR.
1TS PURPOSE IS TO SCAN THE DEVICE®S COMMAND RING AND CHECK FOR ANY
COMMAND SLOTS THAT HAVE BEEN °‘TAKEN'' BY THE CONTROLLER. SUCH SLOTS
HAVE BEEN RETURNED TO THE HOST, INDICATED BY A ZERO OWNERSHIP BIT. FOR
EACH SLOT THAT HAS BEEN RETURNED TO THE HOST, THE CRING COUNT IS
DECREMENTED, AND THE CR_POLL ADDRESS IS ADVANCED TO THE NEXT SLOT IN

@I ImImomOmt

routine POLL_CRING : novalue =

B I

THE COMMAND RING.

ICTLR = INTERRUPTING CONTROLLER NUMBER
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT
ICOM_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA

G I

IMPLICIT INPUTS:

begin

while ((.IDCT_ADDR (CRING CNTthtru 0) and
CCR_POLL] + 2), ED_OWN))) do
not (BIT_TST ((.IDCT_ADDR
begin

! WHILE # OF COMMANDS IN CRING > O AND
! CURRENT SLOT IS HOST-OWNED

logt_ADDR CCRING_CNT] = .IDCT_ADDR CCRING_CNT] - 1;
IDCT_ADDR [CR_POLL] = .IDCT_ADDR CCR_POLLY + 4;

! DECREMENT & "MDS IN CRING
! ADVANCE TO NEXT SLOT TO POLL

i; .IDCT_ADDR [CR_PO.L] gtra .IDCT_ADDR CCR_END]

! IF BEYOND END OF RING

then

IDCT_ADDR [CR_PC.L] = .IDCT_ADDR [CR_BEG]:

! SET POINTER TO TOP OF CRING

end;

! CLEAR COMMAND INTERRUPT WORD IN RING HEADER

ICgH_ADDR CCMD_INT] = 0;

eng.,

0000006

18:
000002

077777
100000
000004
101757

000012

POLL.CRING RDRX INTERRUPT SERVICE ROUTINES

JSR

R1,$SAVE2

ADD

R1,R2

MOV
MOV

000110"
000016

000016

.SBTTL

POLL.CRING:

1st8

BEQ

MOV

4818

(R)

;

16(R1) RO

4838
4839

4841

IDCT.ADDR,R1
#16,R2
2

2(R0) ,RO

BIC
CMP

477777 RO
RO, #-100000

DECB

(R1)

;

(R2),12(R1)

BEQ

ADD

#6, (R2)

BLOS

CMP

4838
4842

;
:

4842

4844

J 16
RD/RX EXERCISER

IRQAM3

RDRX INTERRUPT SERVICE ROUTINES

v01.2

000060
000064
000066
000072
000076

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

016112

000010

000104*
000004

2s$:

MoV
BR
MOV
CLR
RTS

10(R1), (R2)
1%
1COM.ADDR,RO
4(RO)
PC

Routine Base: $CODES + 21652
32 words,
& words
invocation:
per
: Maximum stack depth
: Routine Size:

VAX=11 Bliss=16 V3=555
R2:
[DIETZ .RELEASE
DISKSUSE

SEQ 410
Page 154

JZROABO.BLZ:Ig 47)

4846
4838
4850
4818

K 16

4852

:
.

routine POLL_RRING : novalue =
1

4855
4856

4863

:
:

4865
2329

!
:

4857
4858
4859
4860
zgg}
4864

4868

THIS ROUTINE IS CALLED BY THE RDRX INTERRUPT SERVICE ROUTINE (AZINT)
FOR EACH DEVICE INTERRUPT EXCEPT DURING INITIALIZATION OR FATAL ERROR.
ITS PURPOSE IS TO SCAN THE DEVICE'S RESPONSE RING AND CHECK FOR ANY
SLOTS WHICH HAVE BEEN RETURNED TO THE HOST (OWNERSHIP BIT = 0). FOR
EACH SUCH SLOT, THE ASSOCIATED MESSAGE 1S PROCESSED BASED ON ITS
CONNECTION ID (MSCP GR DUP). AFTER PROCESSING, THE MESSAGE PACKET
%g qE-INITIALIZED AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET

!
!

:
:

:
:
:
:
:

21=Jul=-1983 15:33:38
21=Jul-1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

SEQ 411

Page 155
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;15 (48)

!
!
!
!
!

)

IMPLICIT INPUTS:

ICTLR = NUMBER OF INTERRUPTING CONTROLLER
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT

2233

begin

zggé

uhilg not (BIT_TST ((.IDCT_ADDR CRR_POLL] + 2), ED_OWN)) do ! WHILE 0 = 0

23;;

;

4876

4879

CCID_MSCP] :

MSCP RSP ();

4882

Cotherwise] :

PRINTF (DBM20, .IPKT_ADDR CCONNID], .IRDRX_ADODR):

2332

tes;

4886

IPKT_ADDR [MSGLEN] = MSG_LEN * 2;

;

223%

2gg§

:z .IDCT_ADDR? CRR_POLL] gtra .IDCT_ADDR CRR_END]! IF BEYOND END CF RING
en
IDCT_ADDR [RR_POLL] = .IDCT_ADDR [RR_BEG]; ' CYCLE TO TOP OF RING

;

2339

end:

2233

:
:

:
:
:
:
.

000000

4873

! ADDRESS OF RESPONSE PACKET
xpgr ADDR = ..IDCT_ADDR CRR_POLL] - 10;ECREDITS];
egin

CREDIT_BAL = .CREDIT_BAL + -IPKT_ADDR
selectoneu .IPKT_ADDR [CONNID] of
set

4877
4878

CCIDCDUP]

223?

4883

T *BAD CONN ID = XXXXX“RECEIVED FROM XXXXXX'®
! RE=INIT PKT FIELDS; MESSAGE LENGTH

IDCT ADDR [RR POLL) = .IBCT_ADDR [RR_POLL) + 2; ! ADVANCE TO Hl ORDER WORD OF RING SLOT
! RETURN SLOT TO CONTROLLER
.IDCY_ADDR [RR_POLL) = .IPKY_ADDR [PRT_HI1];
“IDCT”ADDR CRRTMPOLL] = ..IDCT ADDR [RRTPOLL) or ED_OWN or ED_FLAG: ' OWNERSHIP TOO
IDCT_KDDR CRR_POLL] = .IDCT_ABDR CRR_POLL] + 2; ! ADVANCE TO NEXT RRING SLOT

4887
4888
4889
2239

004137

DUP_RSP ();

! WHILE LOOP

! CLEAR RESPONSE INTERRUPT WORD IN RING HEADER

xcgn_AooR CRSP_INT] = 0;

ena,

0000006

.SBTTL

POLL.RRING RDRX INTERRUPT SERVICE ROUTINES

JSR

R1,$SAVE2

POLL.RRING:

4852

L 16

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES
013702

18:

000002
077777
100000

0000006
000010
177760
0000006
0000006

4873
374

n77760,R1

CREDIT.BAL,R1

R1,CREDIT.BAL
R1
11(RO) ,R*
R1

4876

2s:

000002
000000V

3s:

0000006

PC,MSCP.RSP

4879
%876

:g.DUP.RSP

4880
4876
4882

43
R;.IZ

I?DRX.A?DR.-(SP)

R1,-(SP

- (SP)
#DBM20,
#3,-(SP)

0000006
000003

SP,RO
17

000010
0000006
000074 000006
000110°*

48:

#10,SP

000000
000000

4886

1DCT.ADDR,R1
R1.R2

4887

2(R0) ,30(R2)

#-40000.30(R2)

4888
4889

(R2),6(R1)

4892

?§R1).(R2)

4894
4871
4898

#74,6(RO)

#2,(R2)
1$

5$:

00010¢4°*
000006

1COM.ADDR,RO
6 (RO)

:
Base: $CODES + 21752
Routine
; Routine Size: 86 words, .
9 words
: Maximum stack depth per invocation:
*

SP,*

1PKT.ADDR,RO

#14 ,R2
#2.(R2)

000004

000207

4871

, IPKT.ADDR
a0(R2)
#12, 1PKT .ADDR
1PKT.ADDR,RO
10(R0) ,R1

0000006
0000006

000000V

000252

(48)

#7777% RO
gg.o—1boooo

000011

000014
000002
000002
140000
000002
000006

VAX=-11 Bliss=16 V3=555
EASE JZROABO.BL2;15
RZ
: [DIETZ.REL
DISKSUSE

T.ADDR,R2

000110*
000014

000000
000012

SEQ 412
Page 156

4852

[
.

[4
.

4l
-

[4
.

o
-

ROUTINE DUP_RSP : NOVALUE =

4904
4905
4905
4907

!
!
!
!

4903

2308

ENVELOPE CAN BE RETURNED TO THE CONTROLLER.

4910

IMPLICIT INPUTS:

221%

;

4
.

4911

[
.

L4
.

4914

4915
4916

[4
-

4917

[

4918

4919

[
4
.

4901
4902

THIS ROUTINE IS CALLED BY POLL_RRING FOR EACH DUP RESPONSE
175 CENERAL PURPOSE IS TO ACT ON A DATAGRAM OR SEQUENTIAL MESSAGE.
IF THE MESSAGE TYPE IS SEQUENTIAL, THE ROUTINE COPIES THE
CONTENTS OF THE MESSAGE ENVELOPE INTO A RETURN PACKET SO THAT THE
ICTLR = INTERRUPTING CONTROLLER NUMBER

IPKT_AUDR - ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE

hegin

local

R_INDEX : signed word,

SRC_ADDR,

DST_ADDR,

4920
2355

R ADDR : ref block [RP_LEN, word] field (RP_FIELDS):
'PRINTX (DER34);

2852

incr COUNT trom O to PKT_CNT - 1 do

L
.

4
.

*
.

[4
.

[
.

[4
.

.
.

[4
.

[
.

.
.

k4
.

4
-

[4
.

[4
[4
.

»
.

[4
.

[
.

4925

if (.MSCP_PKT [.COUNT, CRN_LO) eql .IPKT_ADDR LCRN_LOJ) and

4927
4928

(.MSCP_PKT [.COUNT, PKT_LO] neqa .IPKT _ADDR [PKT LO)) and
((.MSCP_PKT [.COUNT, OPTODE] and OP_END) neq OP_END) and

(.MSCP_PKT [.COUNT, CRN_HI] eql .IPKT_ADDR [CRN_HI1]) and

4926

(.MSCP_PKT [.COUNT, MSGTYP] eql MT_SEQ) and
(.MSCP_PKT [.COUNT, CONNID]) eql CID_DUP) and

4929
4930

((.IPKT_ADDR [OPCODE] and OP_END) eql OP_END)

4931

4932
4933

then

4938

4939

4940

be?in

P_INDEX = .COUNT;

4934

4935
4936
4937

! IF THIS IS THE ASSOC CMD

exitloop;
end;

if .P_INDEX lss 0

then

be?in

! SET PKT NUMBER

! IF COMMAND NOT FOUND

PRINTF (DBM108, .IPKT_ADDR [CRN_LO]1).

! UNKNOWN COMMAND REF. NUMBER

i; (R_INDEX = GET_RETPKT (.ICTLR)) lss 0

! IF RETPKT IS NOT AVAILABLE

4941

4942

return;

[4
.

[
-

2322

[
.

4
4
.

[4
.

(4
4
[

4947
4948

4949

4950
4951

4952

then

else

PRINTF (DBM112)
begin

| *DUP-RSP: RETPKT NUT AVAILABLE'

! SET UP COPY (SKIP OVER PKT DES(C)
SRC_ADDR = ,IPKT_ADDR + 6.
! START OF ALLOCATED RETPKTY
R_ADDR = DST_ADDR = RETPKT + (.R_INDEX % RP_LEN * 2);

N
<

v01.2
L4

21=Jul=1983 15:33:38
21=Jul=-1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

IRQAM3

SEQ 413

Page 157
VAX=11 Bliss=16 V3-555
;15 (49)
RQABO.BL2
RELEASEIZ
DISKSUSER2:[DIETZ.

.DST_ADDR = ..SRC_ADDR;

DST_ADDR = .DST_ABDR + 2;
SRC_ADDR = .SRC_ADDR + 2;

end;

R_ADDR [CTLR] = .ICTLR;

! LOAD CONTROLLER NUMBER INTO PACKET

.P_INDEX geq 0

PUT_PKT (.P_INDEX);

' RETURN COMMAND PACKET TO POOL

005737
002013
016146

012746
012746
010609

104417

~—~

then

IF ASSOC CMD PKT WAS FOUND

! ROUTINE DUP_RSP

end;

.SBTTL

DUP.RSP:JSR
MOV

0000006
000000G

1¢:

000104
0000006

DUP.RSP RDRX INTERRUPT SERVICE ROUTINES

R1,85AVE4
1PKT.ADDR,R1

MoV

R2
R2,=(SP)

CMP

PC.BLSMUL
(SP)+,(SP)+

CLR

MOV
JSR

S S SN . . S S S PN

4962
4963

001012
126027
001006
105761
100003
010237
000406
005202
020227
003732

! PUT RETPKT INDEX INTO I10DQ
* IF RETPKT WAS ALLOCATED

IN_I10DQ (.R_INDEX);
end;

COPY 1 WORD
ADVANCE DESTINATION ADDR
ADVANCE SOURCE ADDR
COPY LOOP

#104,=(SP)

.
:

: COUNT
: COUNT,*

000012G 000012

gng

ggcp.9x7+12<no>.12(n1>

000014G 000014

CMP

ggcp.ero14(ao>.14(n1>

;

4926

CMP

ggCP.PKT(RO).(R1)

;

4927

TSTB

ggcp.pxr+22<a0)

;

4928

0000106

gége

5260."5(P.PKT+10(R0)

4929

0000116 000002

gnzs

SECP.PKT¢11(RO).#2

4930

000022

TST8B

4931

MOV

22(R1)
2

gg.p.xnoex

: COUNT,*

INC

: COUNT

4934
4933
4923

P. INDEX
48

;

4938

;

BNE

0000006

BEQ

0000226

000360

BM]

BPL

0000006

000013
0000006
000012
0000006
000002

2%:

B8R

CMP

BLE

3%:

TST

BGE

MOV
MOV
MOV

MOV
TRAP

$§,313

12(R1) ,=.SP)

#08M108,-(SP)
#2,-(SP)
17

: COUNT,*

4955
4956
4957
4958
4959
+960

100416
132760

camt
e
oms -

YR TR
XNFI N [TETRIRIEYS
I YEYERIETYEIE YN PN

beg1n

4954

4964
4965
4966
4967
4968
4969

SEQ 414

Page 158
VAX=-11 Bliss=-16 Vv3=555
(49)
2:1§
0.8L
AB
DISKSUSER2: [DIETZ.RELEASEJZRQ

incr COUNT from 1 to RP_LEN do

4953

004137
013701
005002
010246
012746
004737
022626
026061
001030
026061
001024
026011
001421
105760

000150
000152

21=Jul=1983 15:33:38
21=Jul-1983 15:23:38

RD/RX EXERCISER
RDORX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

0009006
000001

0000006
000006

000030

010416
004737
013700
002403
010016
004737
022626
000207

IPK;.ADDR.R2

4945
4950

: R.INDEX,«

4951

#RETPK! RO
RO,R3
#30,R1

(R2)+, (R3)+

5%:

000156
177760
000017 000002
000002
000000G
0000006
0000006

BLT

MOV

8%:

JSR
CMP
RTS

PC.IN.]ODQ
p. INDEX,RO

8%
RO, (SP;
PC,PUT.PKT
(SP)+,(SP)+
PC

$CODES + 22226
Routine Base:
109 words,,
; Routine Size:
10 words
: Maximum stack depth per invocation:

4970

; *=,SRC.ADDR

; «,DST.ADDR

s +~,COUNT
: SRC.ADDR,DST.ADDR
s COUNT

4953
4955
4953

4960

; *,*(R.ADDR)
; +,«(R.ADDR)
7%:

4947

.
; «,SRC.ADDR

#60,-(SP)
2C ., BLSMUL

000060

H
: SP,»

#6
Rb.=(SP)

0000006
0000006

; R.INDEX

SP,RO

17
78

5$:

; *,R.INDEX

: R.INDEX,*

4961

4965

4967

4901

4914

]

1
PC,GET.RETPKT
RO.R4
(SP)+
Ré&
5%
#DBM112,-(SP)
#1,-(SP)

PN PN NPV
NCNI AN
D

lCTLR -(SP)

43:

4938
4940
4945

s~ SN S

000156°
0000006

.
H
:

. S~ S~ S~

36 SP

000006

— ————

062706
000207
013746
004737

RD/RX EXERCISER

RORX INTERRUPT SERVICE ROUTINES

SEO 415

ge 159
VAX=11 Bliss=16 V3=555
15 (49)
,
BO.BLZ
DISKSUSER2:[DIET2.RELEASEIZROA

(I.€., ALL EXCEPT DUP RESPONSES). ITS PURPOSE IS TO PASS
CONTROL TO THE APPROPRIATE ROUTINE BASED ON THE MESSAGE TYPE
FIELD (SEQUENTIAL, DATAGRAM, OR CREDIT NOTIFICATION).
IMPLICIT INPUTS:

IPKT_ADDR - ADDRSE?SREE"SCP PACKET CONTAINING RESPONSE

selectoneu .IPKT_ADDR [MSGTYP] of
set

006201
006201
006201
006201
042701
001003
004737
000417
020127
001003
004737
000411
010146
012746
012746
010600
104417
062706
012601
000207

[MT_SEQ] :

SEQUEN ();

(MT_DG] :

DATAGM ().

[otherwise] :

PRINTF (DBM21, .IPKT_ADDR [MSGTYP));

tes;

MSCP.RSP RDRX INTERRUPT SERVICE ROUTINES

MoV

R1,-(SP)

ASR
ASR
ASR
ASR

R1
R
R1
R1

MOV
MOVB

0000006
000010

#177760,R1

2$:

JSR
BR
CMP
BNE
JSR
BR
MOV

PC,SEQUEN
3s
R1.M
pé 1
PC,DATAGM
3$
R1,-(SP)

3%:

MOV
TRAP
ADD
MOV

SP.RO
17
#6,SP
(SP)+ ,R1

BNE

000000V

000001

1$:

000000V

0000006G
000002
000006

. ADDR,RO
IPKT
10(R0) ,R1

BIC

177760

MOV
MOV

RTS

! "MESSAGE TYPE XX RECEIVED"

.SBTTL

MSCP.RSP:

010146
116001

THIS ROUTINE IS CALLED BY POLL_RRING FOR EACH RESPONSE MESSAGE

WHICH HAS A CONNECTION ID INDITATING A DISK MSCP ORIGINATOR

4989
4990
4991
4992
4993

013700

000064
000066
000070
000074
000076

4981

4982
4983
4984
4985
4986
4987
4988

497
4985

routine MSCP_RSP : novalue =

Y e

WY
N
TR NN T
TRIEIE
IR T TE T

TR PR IR TR IR

WM
4972
4973
4974
4975
4976
4977
4978
6979
4980

JZROA80.8L2:1§ (50)

e tatetalalnlatelale
il lanlnle le

RDRX INTERRUPT SERVICE ROUTINES

SEQ 416

Page 160

RD/RX EXERCISER

IRQAM3

v01.2

000000

VAX-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASE

#DBM21,-(SP)
#2,-(SP)

)
32 words, )
Routine
Base: $SCODES + 22560
: Routine Size:
6 words
; Maximum stack depth per 1invocation:

4988
4985
4990
4985
4992

497N

4994

4995

4996

4998

4997

4999

5000
5001
ggg%

:
:
:

routine SEQUEN : novalue =

THIS ROUTINE IS CALLED BY MSCP_RSP FOR EACH DISK MSCP RESPONSE MESSAGE
CONTENTS CF THE MESSAGE PACKET INTO A RETURN PACKET SO THAT THE

WITH THE '‘SEQUENTIAL'* MESSAGE TYPE. ITS GENERAL PURPOSE IS TO COPY THE

!
!
:

IN ADDITION,
PACKET CAN BE RETURNED TO THE CONTROLLER.
IF THE COMMAND WAS AN 1/0 TRANSFER (READ, WRITE, OR ACCESS), THEN SOME
FIELDS OF THE COMMAND PACKET ARE COPIED INTO THE RETURN PACKET.
IMPLICIT INPUTS:

5004

:
:
:

5008
5009
5010

5012

5014

DSt _ADDR,

gg}g

SFT_ERR_PRINTED : byte initial (byte (FALSE));

:
:

;

:
H

5005
2889

5021
5022
5023

5030

;

5036

then

exitloop;

]

then

5043
5046

be?in

! don't want old packets from other controll

! SET PKT NUMBER

' IF COMMAND NOT FOUND

PRINTF (DBM108, .IPKT_ADDR [CRN_LOJ]);

! UNKNOWN COMMAND REF. NUMBER

i; (R_INDEX = GET_RETPKT (.ICTLR)) Lss 0

! IF RETPKT IS NOT AVAILABLE

return;

5038

! IF THIS IS THE ASSOC CMD

end;

it .P_INDEX lss 0

5037
§8fi}

be?ln

P_INDEX = .COUNT;

5035

((.MSCP_PKT [.COUNT, OPTCDE] and OP_END) neq OP_END) and
(.MSCP_PKT [.COUNT, MSGTYP) eql MT_SEQ) and
((.IPKT_ADDR [OPCODE] and OP_END) eql OP_END) and
(.PKT_USE [.count) eql .ICTLR)

5032
5033

it (.MSCP_PKT [.COUNT, CRN_LO] eql .IPKT_ADDR [CRN_LOJ) and
(.MSCP_PKT [.COUNT, CRN_HI) eql .IPKT_ADDR [CRN_HIJ]) and
(.MSCP_PKT [.COUNT, PKT_LO) neqa .IPKY ADDR [PKT LOJ) and

5031

5034

incr COUNT from O to PKT_CNT = 1 do

5028
5029

% ABDR : ref block {RP_LEN, word] field (RP_FIELDS),
TEMP_UNIT,

5026

5027

:
H

SRC_ADDR,

5024
5025

:
:

R_INDEX : signed word,

5015
5016

:
:
:

local

5013

gg;g

)
begin

50N

:
:

ICTLR - INTERRUPTING CONTROLLER NUMBER
IPKT_ADDR - ADDRESS OF MSCP PACKET CONTAINING RESPONSE

!
:

then

PRINTF (DBMZ22)
begin

SRU_ADDR = .IPKT_ADDR + 6.

t **'SEQUEN: RETPKT NOT AVAILABLE''
! SET UP COPY (SKIP OVER PKT DESC)

P
-«
YTM

21=Jul=-1983 15:33:38
21=-Jul=-1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

SEQ 417

Page 161
VAX~11 Bliss=16 V3-555
DISKSUSER2: [DIET2.RELEASEIZROABO.BL2: 13 (51)

TR TR PR LR TN Y AR X LR
R IR FELR N EI
L K] PR R IR I AR I A TEA
YA TEIE TR IR FETR IRYR
E YRI
PR

115:33:38
21-Jul-1983
1
83
21-Jul=19 15:23:38

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES

R_ADDR = DST_ADDR = RETPKT + (.R_INDEX * RP_LEN * 2);

SEO 418

g 162
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2.;15 (51)

! START OF ALLOCATED RETPKT

1ncr COUNT from 1 to RP_LEN do

DgTADDR = = . +SRC_ADDR;+ 2;

! COPY 1 WORD
! ADVANCE DESTINATION ADDR
! ADVANCE SOURCE ADDR

DST ADDR

DST ABDR
SRC_ADDR = .SRC_ADDR + 2;
if .IPKT_ADDR [OPCODE] eql
then

N TR TN P

I NI N TN Y

ZRQAM3
vol.c

(OP_ONL or

! IF THIS IS THE ONLINE END MESSAGE

¢ SKIP OVER RESERVED WORDS

it .COUNT eql 10
hen

OP_END)

SRC_ADDR = .SRC_ADDR + &;

IN ONLINE END - MESSAGE

COPY LOOP

end;

R_ADDR [CTLR] = .ICTLR;

LOAD CONTROLLER NUMBER INTO PACKET

if .P_INDEX geq O

IF ASSOC. CMD PKT WAS FOUND

then

if ( IPKT_ADDR [OPCODE] eql (OP_RD or OP_END)) or

(.IPKT_ADDR COPCODEJ eql (OP_WRT or OP_END)) or
“END))
(.IPKT_ADDR [OPCODE] eql (OP ACC or OP_

then

begin

R_ADDR [CMDMOD] = .MSCP_PKT [.P_INDEX, MODIFY];

R_ADDR CCBCNT_L0] = .MSTP_PKT [TP_INDEX, BC_LOJ:

RCADDR [CBCNT HIJ = .MSCPTPKT [.PTINDEX, BC_HIJ;
R_ADDR CLBN_LD] =_.mSCP_PRT [.P_INDEX, (BN_[J;
RCADDR CLBN_HIJ =" .MSCP_PKT [.P_INDEX, LBN_H]:
RCADDR [BUFF_0J = .MSCPTPKT [.PZINDEX. BUF_01:
R_QDDR (BUFFZ1] = .MSCP_PKT [.P_INDEX, BUF_1J;

READ, WRITE, OR
ACCESS

COPY

RELEVANT
FIELDS

FROM

COMMAND

PACKET
TO RETPKT

IF ENDCODE WAS READ, WRITE, OR ACCESS

PUT RETPKT INDEX INTO lODQ

IN_I0DQ (.R_INDEX);
end;

if (.IPKT_ADDR [STATUS_CODE] neq

! IF END MESSAGE IS

IF RETPKT WAS ALLOCATED

ST_SUC) or

( IPKT_ADDP [STATUS_SUBCODE] neq 0)

= HRD_OCCURED
LAsr PKT [.ICTLR, LAST_HRD_ERR]

SAVE ERROR CONDITION

= HRD_NOT_OCCUR:D;
LAST PKT [.ICTLR, LAST_HRD_ERR]

LAST_PKT [.ICTLR, LAST_CRN_LOJ = .IPKT_ADDR [CRN_LOJ;

SAVE COMMAND REFERENCE NUMBER

incr index from 0 to EP_CNT - 1 do

IF CORRESPONDING REF NUM HAD AN ERROR-LOG

LASTCPKT [.ICTLR, LASTZCRN_HIJ = .IPKTZADDR [CRN_HIJ;

(.ELOG_PKT [.index, EL_CNTR] eql LICTLR ) a nd
(.ELOG_PKT [.index, EL_CRN_LO] eql JIPKT ADDR CCRN_LO]) and

:
:

5100
5101

g}gz

5105

5108

5102

5106
5107

:
:

H
:

:
:
:

:
H

:
:
H

21-Jul-198§ 15:33:38
15:23:
21-Jul=-1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

5109
5110

then

begin

it .LAST_PKT [.ICTLR, LAST_HRD_ERR] eql HRD_NOT_OCCURED

then

be?in

SOF T_ERROR (.index);
TEMPZUNIT = .LSLUN;

5111
g}}%

5116

if (L ICST_ADDR [.OFFSET, D_DISK_NUM] eql .ELOG_PKT [.index, EL_DK_NUM]) and

5118
5119

then

(.ICSTZADDR [.OFFSET, D_PRES] eql PRESENT)

5117

begin

exitloop;
end;

5121
5122
5123

case .ELOG_PKT [.index, EL_FORMAT] from 0 to & of

[0l:

g}gg

£13:

ERRSOFT (60, 0, 0):
ERRSOFT (61, 0, 0);

:
;

g}gg
g}gz
5135

[2J:
[3J:
[4]:

ERRSOFT (62. 0, 0);
ERRSOFT (63, 0, 0);
ERRSOFT (64, 0, 0);

;

5138

LSLUN = .TEMP UNIT;

H
H
:

5140
5141
5142

end

tes:

g}gg

SFT_ERR_PRINTED = TRUE;

5139

g}zz

5145

ggzg

5149

5152

set

5125
5126

5146

' CORECT UNIT NUMBER FOR ERROR MESSAGE

LSLUN = .ICST_ADDR [.OFFSET, D_UNITI;

5120

g}sg

;

.
! UPATE SOFT ERROR COUNT
DRS
TO
KNOWN
AS
NUMBER
I SAVE UNIT

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do

g}}g

:
;

' IF SOFT ERROR OCCURED

if .ELOG_PKT [.index, EL_FORMAT] lequ 4

then

5124

;

SEQ 419

Page 163
(51)
2;15
ROABO.BL
ELEASEIZ
[DIETZ.R
DISKSUSER2:
VAX=11 Bliss=16 V3-555

(.ELOG_PKT [.index, EL_CRN_HI] eql .IPKT _ADDR [CRN_HI]) ard
(.ELOG_PKT [.index, EL_CONTENTS] eql FULD)

:
:

else

' CONTROLLER ERROR
! HOST MEMORY ACCESS ERROR

' DISK TRANSFER ERROR
1 sDI ERROR
! SMALL DISK ERROR
' RESTORE UNIT NUMBER

! SOFT ERROR PRINTOUT OCCURED

PRINTF (DBM109, .ELOG_PKT [.index, EL_FORMAT]);

! UNKNOWN ERROR-LOG FORMAT

it not (.SFT_ERR_PRINTED)
hen

PRINTB (CRLF):

EMS_EL (.index);

if .P_INDEX geq 0

' EXTRA CARRIAGE=~RETURN/LINE-FEED
' PRINT ERROR-LOG CONTENTS

' IF ASSOC CMD PKT WAS FOUND

21=Jul=1983 15:33:38
21=-Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

' RETURN COMMAND PACKET TO POOL

PUT_PKT (.P_INDEX);

000012G 000012

gng

ggCP.PK7¢12(RO).12(R1)

000014G 000014
0000006
0000226
000360 0000106
000022
0000006

gzg
ggg
;g}B
gfige
ggla
MOVB

ggCP.PK7014(RO),14(R1)
g;CP.PKT(RO),(R1)
ggCP.PKTOZZ(RO)
5260."5(P.PK7+10(R0)
g%(R1)
PKT.USE(R2),RO

CMP

000156"

BNE

000000G
000013

0000006
000012

2%:
3%:

0000006
000002

000006
024104
000156°

0000006

000220

000006

RO,ICTLR
2%

; COUNT,«

grg

?i.IIS

; COUNT,«

TST

P. INDEX
43
12(R1) ,-(SP)

H
:

B8R
INC

8GE

MOV

3s
R2

H
s COUNT

MOV
Mov
MOV

#DBM108,-(SP)
#2,-(SP)
SP.RO

; SP,x

ADD
JMP
MOV

#6,SP
308
ICTLR,~{(SP)

:
H
:

JSR
MOV

1?7

PC,GET.RETPKT
RO.RS
(SP)+

; R.INDEX

MOV

I1PKT.ADDR,R&

; +«,SRC.ADDR

ADD
MoV

6,R4
46,

R5,-(SP)

5034
5037

5034
5036
5041

; *,R.INDEX

TST

8LT

5029
5019

: %,SRC.ADDR
¢ R.INDEX,*

5046
5047

~~n

5030

R2,P.INDEX

TST

0000006

5022
5023
5024
5025
5026
5027

5019
5021

(SP)+,(SP)+

MOV

TRAP

4%:

:
:
:
:
:
,«
: *(COUNT)

: COUNT
: COUNT,»

. . SN S SPN. SN S P S

#1064 ,-(SP)
PC,BLSMUL

4994
5009
5021

—

MOV
JSR

000104
0000006

013704
062704
010546

R2
R2,=(SP)

:
: SFT.ERR.PRINTED
:

18:

CLR
MOV

R1,$SAVES
-(SP)
IPKT.ADDR,R1

— — —

SEQUEN: JSR
CLRB
MOV

SEQUEN RDRX INTERRUPT SERVICE ROUTINES

.SBTTL

! ROUTINE DISK_RSP

end;

0000006
0000006

SEQ 420

Page 164
VAX=-11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASE]ZRQABO.BL2;15 (51)

—

then

21=-Jul=-1983 15:33:38
21=-Jul=1983 15:23:38

RD/RX EXERCISER

Page 165
VAX=-11 Bliss=16 V3=-555
51)
Z2;15
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL

142762
150062
013704
002447
005000
156100

020027
001406
020027
001403
020027
001033
010416
012746
004737
016062
016062
016062
016062
016062

000520

0002:1

5%:

5058

: %,SRC.ADDR
: COUNT

5060
5049

ICTLR,RO

5064

#17,2(R2)
RO,2(R2)

: «,«(R.ADDR)
; *,«(R.ADDR)

6$
RO, #12
68

000012
000004

000030

22(R1) #4211

6%:

000156
177760
000017 000002

#4 R4
RO

RO,#30
58

#177760,R0
, Ré
P. INDEX
8$
RO

0000006

22(R1) RO

000022
000241

; COUNT,»

5066

5069

RO, #241
7$

000242

RO, #2462

5070

000220

RO,#220
8s
R&, (SP)

5071

5074

000104
0000006
0000246 000012
0000266 000044
0000306 000046
000046G 000050
0000506 000052
0000326 000024
0000346 000026

000156°
000006
0000006
0000006
000024

000037
177740

7%:

#104,-(SP)
PC.BLSMUL

MSCP.PKT+24(R0),12(R2)
)
.44 (R2)
MSCP.PKT+26(R0
MSCP.PKT+30(R0) .46(R2)
MSCP.PKT+46(R0).50(R2)
MSCP.PKT+50(R0) .52(R2)
)
.24 (R2)
MSCP.PKT+32(R0
MSCP.PKT+34(R0) .26(R2)
8%:
9%:

(SP)+
RS, (SP)
PC.IN.10DQ
(SP)+. (SP)+

ICTLR,=(SP)

:
:
:
:
:
:
:

¢, «(R.ADDR)
«,«(R.ADDR)
«,«(R.ADDR)
+,+(R.,ADDR)
«,«(R.ADDR)
~,«(R.ADDR)
+,«(R,ADDR)

H
s R.INDEX,*

5075
5076
5077
5078
5079
5080

5073
5083

5045

5086

5089

#6,-(SP)

PC.BLSMUL
IPKT.ADDR,R2
#24 ,R3
R2,R3

#37,(R3)

108
#177740, (R3)

5087

: COUNT,«

#1,R0
(R4)+,(R3)+

5055
5049
5051
5055

H
: «,COUNT
; SRC.ADDR,DST.ADDR
H

I1PKT.ADDR,R1

000022

; «,DST.ADDR

; =,R.ADDR

RO,R3
RO,R2

0000006
000001

0000006

013702
012703
060203
132713
001003
032713

#60,~(SP)
PC,BLSMUL
#RETPKT,RO

000060
0000006
00€ 006

012746
004737
062700
010003
010002
013701
012700
012423
126127
001005
020027
001002
062704
005200
020027
003762
013700
042700

Y e Ye Ye T T

RDORX INTERRUPT SERVICE ROUTINES

SEQ 421

BEQ

Mov

000170*

CLR

000170*
000012 000172°
000014 00017¢4°*

MOV
MOV

CLR
MOV

MOV

000102
0000006

JSR
MOV
ST

CLR
BISB
(MP
BNE

0000006
000156

Mov
CMP

0000006
000006G 000012

BNE
CMP
BNE
(MPB
BNE

0000106 000014
7000016 000001

MoV
MOV

000156
000036
0000006

JSR
TST
TST
BNE
CMPB
BHI

000170°
0000166 000004

000000V
000000G
000006

000106°
0000126

MOV

JSR

14%:

177774

MOV
MOV
MOV
ADD
MOV
MovBe

CMP
BNE
BIT
BEQ

040000

MOV

SWAB
8IC

177760
0000006

000012
000044
001002

005000

MGV

15%:
16%:

ADD

CMP
BLE
CLR

1%
#1,LAST.PKT(R0O)
128

LAST.PKT(RO)
12(R2) ,LAST.PKT+2(R0)
14(R2) ,LAST.PKT+4(R0)
R3

5089

5091

s INDEX

5086

5093
5094

5096

;. INDEX,*

5098

5099

ELOG.PKT+10(R5) ,14(R0)

5100

.M
ELOC.PKT+1(R5)

5101

ICTLR.(SP)

5105

LAST.PKT(RO)
25%
,#4
ELOG.PKT+16(RS)

5108

s INDEX,*

5111

; =, TEMP.UNIT

5112

5117

5120

H
; «,0OFFSET

5119
5114

R3, (SP)

#102,=(SP)
PC.BLSMUL

RO,RS

(SP)+

ELOG.PKT(R5),RO

SOSICTLR

IPKT.ADDR,RO

E%OG.PKT+6(RS5),*2(R0)
27%

27%

278

#6,-(SP)
PC,BLSMUL
(SP)+

24%
R3,(SP)

PC.SOF;.ERROR

1CST.ADDR,R

H OFFSET
s OFFFSET,*

5114
5116

ELOG. PKT*12(RS) -(SP)
(R4) .R1

#177774 ,R1

R1,{SP)+
15§
#40000, (R4)
15%
(R4) ,R1
R1
#177760,R1
R1,L¥LUN
16%
#12,R0
RO #44
14$
RO

060001

RDRX INTERRUPT SERVICE ROUTINES

SEQ 422

Page 166
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;13 (51)

— SN ST S P SN S SN PN S P P

21=-Jul=-198315:33:38
21-Jul~1983 15:23:38

RD/RX EXERCISER

001404
012760

: OFFSET,«

—— . —

001124
001130
001132
001134
001136
001144
001146
001152
001156
001160

001162
001164
001166
0G*172
001174
001200
001202
001206
001212
001214

116516

012746
012746
010600
104417
022626
032766
001007
012716
012746
010600
104414
005726
010316

004737
005203
020327
003002
000137
013700
002403
010016

19%:

TRAP

.WORD
.WORD
WORD

20$:

TRAP

.WORD
.WORD

WORD

21%:

000000G

000001

000004

0000166
0000006

000013

(23440
0000006

5129

HNe O

5124
5131

H
H

5124
5133

23%:

MoV

MOVB

R2,LSLUN
#1,4(SP)

24%:

CLR
mMove

(SP)
ELOG.PKT+16(, RS)

: TEMP.UNIT,®
: «,SFT.ERR.PRINTED
:
N

.WORD
-WORD
.WORD

25%:

cMp
BIT
BNE

MOV
MoV
MOV
TRAP

26$:

27%:

28%:

TST
MOV
JSR
INC
CMP
86T
JMP
MOV
BLT
MOV

25%

(SP)

5127
5124

TRAP

MOV
MoV
MOV
TRAP

000004

Case dispatch

22%:

0000006
000001

0000006

.WORD
.WORD
WORD

:
:

000002

000001

TRAP

\h\la

.WORD

[

.WORD
.WORD

P.AAA(RO)
,PC

O ~NW

18$:

ASL
ADD
TRAP

000000°

,RO
ELOG.PKT+16(RS)

NNW

B1S8

0000166

156500
006300
066007
106457
000074
000000
000000
000423
104457
000075
000000
000000
000416
104457
000076
000000
000009
00C411
104¢ 57
000077
000000
000000
000404
104457
000100
000000
000000
010237
112766
000412
005016

SEQ 423

Fage 167
VAX-11 Bliss=16 v3=-555
DISKSUSER2:[DIETZ .RELEASEJZRQABO.BL?;:13 (51)

QO~NW
(=]

001120

RDRX INTERRUPT SERVICE ROUTINES
OO NWVWNIOO NWVNIOONWVMITDD
OO=2WwNOO NN

001004
001010
001012
001016
001020
001022
001024
201026
001030
001032
001034
001036
001040
001042
001044
001046
001050
001052
001054
001056
001060
001062
001064
001066
001070
001072
001074
001076
001102
001110
001112
001114

21=Jul=-1983 15:3 3:38
21-Jul=-1983 15:2 3:38

RD/RX EXERCISER

IRQAM3
v01.2

5124
5135
5138
5139
5108
5143

#DBM109,~(SP)

#2,-(SP}

SP.RO
17
(SP)+,(SP)+

#1,4(5P)

268

, (SP)
#CRLF
#1,-(SP)

SP.RO

14
(SP)+
R3, (SP)
PC.EMS.EL

R3,#13
28%
13%
P.INDEX,RO
29%
RO, (SP)

: SP,x

: «,SFT.ERR.PRINTED

§145

5147

: SP,»

: INDEX,*

5149

: INDEX

5096

5152

5154

INDEX,*

P
]

001216
001222
0031224
001226

21=Jul=19 83
21=Jul=19 83

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2
004737
022626
005726
000207

000000G

29%:
30$:

JSR
CMP
ST
RTS

PC,PUT.PKT
(SP)+,(SP)+
(SP)+

SEQ 424

Page 168
VAX=11 Bliss=16 v3-555
3 (51)
O.BL2;1
E]ZRQAB
.RELEAS
ETZ
ER2:[DI
DISKSUS

5009

4994

; EASE]Table for SEQUEN+1012

5124

Base:
$CODES + 22660
)
Routine
332 words,'
: Routine Size:
:
words
invocation
13
per
; Maximum stack depth

000
N ad ol

—p

)

-WORD
+WORD
-WORD
.WORD
.WORD

17%:

000006
000010

000000
000012
000024
000036
000050

RO,

P.AAA:

$PLITS,
VNN
= O
QO

.PSECT

000000

.
:
:

5161
5162
5163

!
!
!

5165

g}gg

IMPLICIT INPUTS:

:
.

5168

IPKT_ADDR = ADDRESS OF MSCP PACKET CONTAINING ERRCR LOG
MESSAGE
ICST_ADDR -~ ADDRESS OF THE INTERRUPTING CONTROLLER'S (ST

5169

begin

57N

local

5174

:
:
:

;
:
:

5170

:
:

5182
2182

5185

:
:

:
H

5191
5192

g}gz
5196

5198

5199

gggz

5205

;

5207

if .ELOG_PKT [.COUNT, EL_CONTENTS] eql EMPTY
then

5200
5201
5202

5206

5208

5209

begin

! IF EMPTY SLOT FOUND

! SAVE INDEX INTO THE SAVE AREA

index = .COUNT;

exitloop;
end;

5189
5190

5197

;

.
incr COUNT from O to EP_CNT - 1 do

5188

H
H

% FIND AN EMPTY SLOT N THE ERROR-LOG PACKET SAVE AREA

5186
5187

5195

.
:
:

_
TEMP_UNIT,
(byte (FALSE));
initial
byte
:
PRINTED
SFT_ERR_

]

SRC_ADDR,

5176
g};g
5179

DST_ADDR,

5175

g}gq

)
index : signed word initial (-1),
SAVE_ADDR : ref block [EP_LEN, word) field (EP_FIELDS),

5172
5173

5164

THE RDRX

THIS ROUTINE HANDLES ALL DATAGRAM (ERROR LOG) MESSAGES RECEIVED FROM

{ IF AN EMPTY 5LOT FOUND, SAVE THE PACKET CONTENTS
.

if .index geq 0

then

.
begin

)

SAVE_ADDR = £LOG_PKT + (.index * EP_LEN + 2);

SAVE_ADDR .tL_CONTENTS J = FULL;
SAVE_ADDR [EL_CNTR] = .ICTLR.
SRC_ADDR = .IPKT_ADDR + 6;

DST_ADDR = .SAVE_ADDR + 2;

! ADDRESS OF THE SAVE AREA

! MARK IT FULL
! QWNERSHIP
! SETUP COPY ADDRESSES
!

incr COUNT from 1 to ((.IPKT_ADDR [MSGLEN] + 1) / 2) + 2 do
begin

.DST_ADDR = ..SRC_ADDR;

! COPY A WORD

DST_ADDR = .DST_ADDR + 2;

SRC_ADDR = .SRC_ADLR + 2;

! UPDATE ADDRESS POINTERS

Tea Vel

5159

5160

Y e Y Y e Yt Y

routine DATAGM : novalue =

5157
5158

:
:

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

IRQAM3
v01.2

SEQ 425

Page 169
VAX=11 Bliss=16 Vv3-555
DISKSUSER2:[DIET2.RELEASE]ZRGABO.BL2;13 (52)

regurn;

end;

% CHECK 1F THE CORRESPONDING RESPONSE HAS ALREADY BEEN RECEIVED
it (.SAVE_ADDR [EL_CRN_LO] eql

(_SAVEZADDR [ELZCRN_HI] eql

then

Ped
B
o
Qs

! IF EMPTY SLOT NOT FOUND, PRINT MESSAGE

begin

PR?NTF (pBM110);

.LAST_PKT [.ICTLR, LAST_CRN_LO)) and

_LAST_PKT [.ICTLR, LAST_CRN_HID)

begin

1& .LAST_PKT [.ICTLR, LAST_HRD_ERR] eql HRD_NOT _OCCURED ! IF SOFT ERROR HAD OCCURED
then

if .SAVE_ADDR [EL_FORMAT] Llequ 4

then

inCex);
ERROR= (..LSLUN
SO?T
TEMP_UNIT

ERROR COUNT TO DRS
! UPDATE SOFTNUMBER
AS KNOWN

! SAVE UNIT

incr OFFSET from (0 ¢ OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do

if (.ICST_ADDR C.OFFSET, D_DISK_NUM] eql .SAVE _ADDR [EL_DK_NUM]) and
(.ICST_ADDR C.OFFSET, D_PRES] eql PRESENT)

then

LSE?T = ,ICST_ADDR [.OFFSET, D_UNIT];
xitloop;

! CORRECT UNIT NUMBER FOR ERROR MESSAGE

end;

case .iAVE-ADDR CEL_FORMAT] from 0 to 4 of
se

ol :

ERRSOFT (60, 0, C2;

! CONTROLLER ERROR

(1l :

ERRSOFT (61, 0, 0);

! HOST MEMORY ACCESS ERROR

£2] :

ERRSOFT (62, 0, 0);

! DISK TRANSFER ERROR

£33 :

ERRSOFT (63, 0, 0);

! SDI ERROR

Eé] :

ERRSOFT (64, 0, 0);

! SMALL DISK ERROR

es;

LSLUN = .TEMP UNIT;

SFT_ERR_ PRINTED= TRUE;

! RESTORE UNIT NUMBER

! SOFT ERROR PRINTOUT OCCURED

end

®e

b
b b e
PONIND M) =D b oed d =

else

SEQ 426

Page 170
VAX=11 Bliss=16 V3-555
(52)
;15
DISKSUSER2:CDIETZ.RELEASEJZRQABO.BL2

end;

WN
=2 OV NOWVES
WA -=O

AN NNV
AV
WAV
NSLSHSTSTSLNTNINT
NI SIS LVN ],V ],N]

e s Be 0eBs8e8s0e%ae0s8s0e0s8e000s0:0,%000
00008000 8,00%08008;00800,0%:0%c0%00,0,

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

NN
CoCo

RD/RX EXERCISER

ZRQAM3
v01.2

RDRX INTERRUPT SERVICE ROUTINES

VAX-11 Bliss=16_V3=555

DISKSUSER2:(DIETZ.RELEAS

SEQ 427
Page 171

13 (52)
E1ZROABO.BL2;

end
else

PRINTF (DBM109, .SAVE_ADDR [EL_FORMAT]);

ERROR LOG FORMAT UNKNOWN

it not (.SFT_ERR_PRINTED)

then

EXTRA CARRIEGE-RETURN/LINE-FEED

PRINTB (CRLF ).

PRINT PACKET CONTENTS

EMS_EL (.index);

CORRESPONDING RESPONSE RECEIVED

end;

.PSECT

024110
000000
000004
000010
000012

000144

000150

004137
012705

105046

005001
010146

012746
004737
022626
105760
001002
010105
000405
005201
020127
003761
005705
002446
010546
012746
004737
062700
010004
111764
113714
013700
012702
060002
012703
060403
016016
005216
012746
004737
062700
005001

000000G
177777

000102
0000006

DATAGM: JSR

MOV
rLRB

1%:

CLR

MOV
MOV

JSR
CMP

TST8
BNE

0000016

MOV

000013

2s:

3%:

000102

0000006

0000006
000001
000156
0000006
000006

000002
000006

000002
0000006
000002

B8R
INC
CMP
BLE
TST

8LT

MoV
MOV
JSR
ADD
MOV
Move
MOvVB
MOV
MOV
ADD
MOV
ADD
MoV

INC

MoV

JSR

ADD

CLR

DATAGM RDRX INTERRUPT SERVICE ROUTINES

$CODES,

R1,$SAVES
#-1,p5

*, INDEX
SFT.ERR.PRINTED
COUNT
COUNT
,«

-(SP)
R
R1,=(SP)

#102,-(SP)

PC,BLSMUL
(SP)+, (SP)+

ELOG.PKT+1(RO)
2$
R1,R5
3$

NT
, INDEX
COU

R1.M13

COUNT
COUNT,
»

INDEX

63
R5,=(SP)
#102,=(SP)
PC,BLSMUL
#ELOG.PKT,RO
RO,.Ré4
(PC),1(R4)
ICTLR, (R&)
1PKT.ADDR,RO
#6,R2
RO,R2
#2,R3
R4 ,R3
6(RO), (SP)
(SP)
#2,-(SP)
PC,BLSDIV
#2,R0
R1

INDEX ,*

e e GoBo By By e % O,

.SBTTL

*,SAVE .ADDR
*,+«(SAVE.ADDR)

*,SAVE.ADDR
*,SRC.ADDR
*,SRC.ADDR
«,DST.ADDR

SAVE .ADDR,DST.ADDR

COUNT

5200
5201
5202

5203
5205

21=Jul=-1983 15: 33:38

RD/RX EXERCISER

21=Jul-=1 983 15: 23:38

RDRX INTERRUPT SERVICE ROUTINES
X ¥

5%:

000006
6$:

0000006
000001

7%:

000156
000006
0000006
000006

000172°

000010

000174"

000106
000012

INC
CMP
BLE

R1
R1,RO
X
#6,SP
78
#DBM110 =(SP)

ADD
BR
MOV
MOV
MOV
TRAP

CMP
BR
MOV
MOV

BNE
CMP
BNE
TST
BNE
CLR
BISB
CMP
BHI
MOV

JSR

8%:

MOV
MOV
MOV
ADD
MOV
MOVB

BIC
CMP
BNE
BIT
BEQ

177774

040000

MOV

000344
000346

000352
000356
600360
000364
000370
000372
000374
000400
000402
000404

MOV

CMP

000016
000004

000000V
0060006
000006

JSR
CMP

000170°'

SWAB
BIC

177760

MOV

0000006
020027
003747
006301
066107
104457
000074
000000

000012
000044

000012°

9%:

108:
12%:

BR
ADD
CMP
BLE
ASL

ADD
TRAP
.WORD

.WORD

(R2)+, (R3) ¢+

#.,-(SP}

SEQ 428

Page 172
VAX=11 Bliss=16 V3=555
13 (52°
O.BL2;
EJZRQAB
DISKSUSER2:[DIETZ .RELEAS

; SRC.ADDR,DST.ADDR
: COUNT

5207
5205

.
H
H

5198
5196
5215

,«
: COUNT

SP,R0
17
(S:)+.(SP)+
2
ICTLR,=(SP)

; SP,*

6(R&4) ,LAST .PKT+2(R0)
22%
}g(Ré).LAST.PKT44(R0)

;

,*
; *(SAVE.ADDR)

5224

LAST.PKT(RO)
208

5228

5231

: INDEX,*

5234

#6,~(SP)
PC,BLSMUL
(SP)+,(SP)+

R1
16(R4) ,R1
R1, 46
188
RS,=(SP)
PC.SOFT.ERROR

LSLUN,R3

#6,R0
RO,R2

1CST.ADDR,R2

12(R4) ,=(SP)
(R2) ,=(SP)

5196
5214
5223

H
:
;
*(SAVE.ADDR),*

; *(SAVE.ADDR),*

s *,TEMP_UNIT
s ~,0FFSET
: OFFSET,»

5235
§237
5239

; *(SAVE.ADDR),

2177074, (SP)

(SP)+,(SP)+
9s
#40000, (R2)
9s
(RZ;.-(SP)
(SP
4177760, (SP)

(SP)+,LSLUN

108
#12.R0
RO, #44

R1
P.AAB(R1)
,PC

57
74

5240

5243

H
: =, OFFSET

5242
5237

)

5247

: OFFSET,»

: Case dispatch

5250

SEO 429

g 173
VAX-11 Bliss=16 v3=555
DISKSUSERZ: [DIETZ RELEASEJZRQABO.BL2;13 (52)

RD/RX EXERCISER

15$:

16%:

0000006
000002
000001

534

010600
104417
022626
005726
032716
001007
012746
012746
010600

000554

022626
010546
004737
005726
005726
000207

0000006
000002

000001

17%:

TRAP

-WORD
.WORD
.WORD
BR
TRAP

-WORD
-WORD
.WORD
BR
TRAP

-WORD
.WORD
. WORD

WV~
L ]

ONNY
«w

.WORD
-WORD
. WORD
B8R

NNYN
|

14%:

TRAP

ONYN
«
(=]

13%:

. WORD
BR

DVDOO=-N=OONWN=0O NWN—=OONWN=O

RDRX INTERRUPT SERVICE ROUTINES

18%:

5247
5252

:
:

5247
5254

H
H

5247
5256

:
H

5247
5258

: TEMP.UNIT,»
; *,SFT.ERR.PRINTED
H
:

5261
5262
5231
5266

; SP,»
(SP)+,(SP)+
+
(SP)

19%:
20$:

#1,(SP)

218
#CRLF ,=(SP)
#1,-(SP)

0000006
000001

104414

21s:
22%:

RTS

;
: «,SFT.ERR.PRINTED

5231
5268

5270

SP,RO

: SP,»

(SP)+,(SP)+
R5,=(SP)

: INDEX,*

0006006

:
:

PC,EMS.EL
(SP)+
(SP)
+
PC

5272
5226

5157

$CODES + 24110
Routine Base:
: Routine Size: 183 words,
12 words
Maximum stack depth per invocation:
LPSECT

000012

000000
000012

000012
000014

.AAB:
1%:

.WORD
.WORD

$PLITS,
0
12

RO,

D
CASE Table for DATAGM+0374

[128)
(13%]

5247

SEQ 430

RD/RX EXERCISER
ZRQAM3
RDRX INTERRUP: SERVICE ROUTINES
v01.2
LWORD
000016 000024

Page 174
VAX=11 Biiss~16 V3=555
15 (52)
2:
RQABO.BL2;
SER
.RELEASEJZ
[DIETZ
KSU
DIS
; [148)

"WORD

;

000020 000036
000022

000050

.WORD

21-Jul-1983 15:33:38
21=Jul=-1983 15:23:38
36

: [158)

21=Jul- 1983 15:33:38

RD/RX EXERCISER

21=Jul=1983 15:23:38

..l-i.....Q.i-..!o..........!ot. LR IETIETYEIA
LR TN PRPRTNFETN N YR¥ TR R R IR IEEEE
A IR N PR PN TR R PR PN PR TR LR TN ¥

RDRX INTERRUPT SERVICE ROUTINES

SEQ 431

Page 175

VAX-11 Bliss=16 V3-555

DISKSUSER2:CDIETZ.RELEASEJZRQABO.BL2;13 (53)

routine SOFT_ERROR (INDEX) : novalue =
+

THIS ROUTINE UPDATES THE SOFT ERROR COUNT IN THE TALLY TABLE FOR EACH

ERROR LOG MESSAGE RECEIVED
IMPLICIT INPUTS:

1CST_ADDR = ADDRESS OF THE INTERRUPTING CONTROLLER'S CST

begin
local

FOUND: byte initial (byte (FALSE)),

SOFT_OCCURED : byte initial (byte (FALSE)),

UNIT: word,
ERROR_CODE : byte,
ERROR_SUB : word,

TALLY_ADDR : ref block [TALLY_LEN, word] field ( T_F IELDS),
ELOG_ADDR : ret block [EP_LEN, word] field (EP_F 1 ELDS );

ELOG ADDR = ELOG_PKT + (.index * EP_LEN « 2);
ERROR_CODE = .ELDG_ADDR CEL_CODE];
ERROR_SUB = .ELOG_ADDR [EL_SUBCODE];

! ADDRESS OF ERROR L
! ERROR CODE
! ERROR SUBCODE

incr OFFSET from (0 + OF_UN) to (3 * UNIT_SIZE + OF_UN) by UNIT_SIZE do
if (.ICST_ADDR [.OFFSET, D_PRES] fial PRESENT) and

h (.ICST_ADDR [.OFFSET, D_DISK_NUM] eql .ELOG_ADDR CEL_DK_NUM])
en

! MAP DISK NUMBER TO

begin

FOUND = TRUE:

UNIT = _ICST_ADDR C.OFFSET, D_UNIT];

! UNIT NUMBER OF DIS

exitloop:;

end;

¢
!

if (.ELOG_ADDR [EL_SUCCESS]) or
(.ELOG_ADDR [EL_CONTINUED)

then
if

SOFT_OCCURED = TRUE:

! SOFT ERROR FLAG

.FOUND

then

begin

IF UNIT NUMBER FOU

TALLY_ADDR = TALLY + (.UNIT « TALLY_LEN * 2);

! ADDRESS OF TALLY T

if .SOFT_OCCURED
then

FOR SOFT ERRORRS

selectgneu .ERROR_CODE of
se

[ST_MFE]:

TALLY_ADDR [ERR_SFT_SEK] = .TALLY_ADDR [ERR_SFT_SEK] + 1;

! SOFT = MEDIA FORMA

Mo
® s ®e B0 8e®e Ve BsBute®etoBoteBeototyWeote®eto®s0,% 0, 0c 8% S403000008s%000000,%00:%0085%0008¢%00,000,0000000,0,

38
:38

RD/RX EXERCISER

ZRQAM3

RDRX INTERRUPT SERVICE ROUTINES

v01.2

[ST_DATI:

SEQ 432

Page 176
DISKSUSER2:LDIETZ.RELEASEIZRQABO.BL2;15 (53)
VAX=11 Bliss=16 V3=555

! SOFT = DATA

:;eaenaon_sue eql 2

TALLY_ADDR CERR_SFT_SEK] = .TALLY_ADDR [ERR_SFT_DAT] + 1

elseTALLY_ADDR CERR_SFT_DAT] = .TALLY_ADDR CERR_SFT_DAT] + 1;
! SOFT = HOST ACCESS

[ST_HSTI:

TALLY_ADDR [ERR_SFT_HST) = .TALLY_ADDR CERR_SFT_HST] ¢ 1;

[ST_CNTI:

C_ERR_TBL [.ICTLR, C_ERR_SFT) = .C_ERR_TBL [.ICTLR, C_ERR_SFTJ + 1;

(ST_DRV]:

if .ERROR_SUB eql 3

! SOFT - CONTROLLER

then

! SOFT = DRIVE

TALLY_ADDR [ERR_SFT_SEK]

.TALLY_ADDR [ERR_SFT_SEK] + 1

TALLY_ADDR [ERR_SFT_DRV]

.TALLY_ADDR [ERR_SFT_DRV] + 1;

else

tes

else

if (.ELOG_ADDR [EL_CRN_LO] eql 0) and
(.ELOG_ADDR [EL_CRN_HI] eql 0)

5348
349

then

selectoneu .ERROR_CODE of
set

HARD

MEDIA FORMA

[ST_MFE]:

TALLY_ADDR [ERR_HRD_SEK] = .TALLY_ADDR [ERR_HRD_SEK] + 1;

5356

[ST_DAT]:

i; .ERROR_SUB eql 2

! HARD

DATA

! HARD

HOST ACCESS

then

5358
3

else

5360

TALLY_ADDR [ERR_HRD_SEK]

.TALLY_ADDR [ERR_HRD_SEK] + 1

TALLY_ADDR [cRR_HRD_DAT]

.TALLY_ADDR [ERR_HRD_DAT] + 1;

5362

[ST_HST]:

TALLY_ADDR CERR_HRD_HST] = .TALLY_ADDR CERR_HRD_HST] ¢ 1;

5364

[ST_CNTI:

C_ERR_TBL [.ICTLR, C_ERR_HRD] = .C_ERR_TBL [.ICTLR, C_ERR_HRD] * e

5367

[ST_DRVI:

:; .ERROR_SUB eql 3

5369

else

5371

5372

tes;

5378

5380
5381

! HARD

TALLY_ADDR CERR_HRD_SEK]

.TALLY_ADDR [ERR_HRD_SEK] + 1

TALLY_ADDR CERR_HRD_DRV]

.TALLY_ADDR CERR_HRD_DRV] + 1;

DRIVE

end

5374

5376

CONTROLLER

! UNIT NOT FOUND

else

if .SOFT_OCCURED

then

else

C_ERR_TBL [.ICTLR, C_ERR_SFT] = .C_ERR_TBL [.ICTLR, C_ERR_SFT] + 1

RD/RX EXERCISER

ZRQAM3
v01.2

21=-Jul=-1983 15:33:38
21=Jul=-1983 15:23:38

RORX INTERRUPT SERVICE ROUTINES

SEQ 433

Page 177
VAX=11 Bliss=16 v3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2:15 (53)

C_ERR_TBL [.ICTLR, C_ERR_MRD] = .C_ERR_TBL [.ICTLR, C_ERR_HRD] ¢ 1;
! ROUTINE SOFT_ERROR

end;
LSBTTL

.PSECT

SOF T.ERROR:

0000006

R1,$SAVES

CLRB

MOV

000022

000102
0000006
0000006

127740

174000

1$:

5286

: INDEX,*

5297

,*
. «(ELOG.ADDR)

R2
RO,R2

: ERROR.CODE
: «,ERROR.CODE

RO,R4

BIC

17774070

MOV

20(R4) ,R3
R3
R3
R3
R3
R3

#1746000,R3

MOV

#6.R0

ADD

1CST.ADDR,RS

MOV

RO.RS

; *,ELOG.ADDR

* «(ELOG.ADDR) ,ERROR. SUB
*
:
:
:
:

ERROR.SUB
ERROR.SUB
ERROR.SUB
ERROR.SUB
ERROR.SUR

: +,ERROR.SUB

: *(ELOG.ADDR),*

5304

5307
5308

t OFFSET,*

000012

MOV

12(R4) ,=(SP)

177774

BIC

2177774, (SP)

MOVB
MOV

#1,R1
(RE) ,~(sP)

: *,FOUND
;

(SP)+,4(SP)

: *,UNIT

#12,R0

: « OFFSET

CMP
BNE

SWAB
BIC

000004

MOV

000012

28:

000044

000001
000004

000070

000006

3s:

B8R

ADD

(RS),=(SP)

+
(SP)+,(5P)
2

(SP)
#177760. (SP)

5299

5301

ggoooo.(a§>

MOVB

5298

: #.OFFSET

gég

177760

006001
103154
016616
012746

: FOUND

: SOFT.OCCURED

040000

000001

000160
000164
000166
000174
000176
000200
000204

22(SP) ,=(SP)

5276

20(R4) RO

BIC

000106°

2(SP)

MOVB

ASR
ASR
ASR
ASR
ASR

000006

-(SP) ,=(SP)

#102,~(SP)
PC.BLSMUL
#EL0G.PKT,RO

CLRB
BIS

000020

MOV
JSR
ADD

MOV

000020

$CODES,

JSR

CMP

000002

SOFT.ERROR RDRX INTERRUPT SERVICE ROUTINES

;

5303

5306
§301

5??

$2.044

: OFFSET,*

MOVEB

#1,6(SP)

; +,SOFT.OCCURED

5315

BCC

: UNIT,»

5320

ROR

MOV

4(SP), (SP)

#70,-(SP)

: FOUND

5317

SEQ 434

RD/RX EXERCISER

ZRQAM3
v01.2
000210

Page 178
VAX=11 Bliss=16 V3=555
(53)
.BL2;15
IZRQABO
DISKSUSER2: [DIETZ.RELEASE

RDRX INTERRUPT SERVICE ROUTINES
004737

PC,BLSMUL
#TALLY,RO
#1,10(SP)
9s
R2,#5
¢]

0000006
0000006
000010
000001

000005

R2.#10

000010

000064

R
1(R1) R4
R4

000001

000156

67(R0)
16$
R2,#12
6%
ICTLR.R1

0000016

C.ERR.TBL+1(R1)

000067
000012

000013

b ¥

6%:

000003
000064

7$:

000066

8%:

000006

9¢%:

000005

000010

5324
5327
5324

5331

16$

TALLY.ADDR,+

: ERROR.SUB,*

5329

5331

;
: ERROR.CODE,~

5329
5324

: *(TALLY.ADDR)
:

5335
5324

5337

;

5324

: ERROR.SUB,*

5340

s *(TALLY.ADDR)
:

§342
5340

H
: *(ELOG.ADDR)

5324
5348

: ERROR.CODE,*

; ERROR.CODE,»

: *(TALLY.ADDR)

8344

: *(ELOG.ADDR)

5349

: ERROR.CODE,«
:
: ERROR.CODE,

5351
5354
5351

5358

TALLY.ADDR,*

000002 .

: ERROR.SUB,*

5356

000001

108:

:
:
:

5358
5356
5360

000011

11$:

105211

105261
00043¢
120227
001003

R2,#13
16$
R3,43
8s
64 (RO)
16$
66(RO)
16$
6(R4)

118

000060

000436
000440
000444

16$

10(R4)
16$
R2 45
148
R2,#10

000010

000435

R4, (R1)
16$
R2.,411
5%

5322

; ERROR.CODE,*
:
. ERROR.CODE,+
:

000002

000011

: +%,SOFT.OCCURED

ERROR.CODE,*

5351

SEQ 435

Page 179

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASE JZROABO.BL2;13

(53)

63(RO)

; *(TALLY.ADDR)

R2 412

: ERROR.CODE,+

5362
5351

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES

105260

000424
120227
001006
013701
006301

000566

000156°

0000006

120227

000013

001010
020327
001003
105260
000402
105260
005726
000415
013700
006300
062700
032766
001403
105260
000401
105210
062706
000207

128:

000012

105261

000413

INCB

000063

13¢:

000060

148:

000062

158:
16$:

000156°

17%:

000001

000006

000091

000010

18%:
19%:

1 63

13§

fifiTLR‘R1

INCB

C.ERR.TBL(R1)

(MPB

R2.#13

,*
ERROR.CODE

CMP
BNE
INCB
BR
INCB
TST
B8R
MoV

R3,#3
15§
60(RO)
168
62(R0)
(SP)+
19$
ACYLR.RO

*
ERROR.SUB,

5367

*(TALLY.ADDR)

5369
5367

ADD
8I7
8EQ
INCB
BR

#C.ERR.TBL,RO
#1,6(SP)
18%
1(RO)
19%

RTS

BNE

ASL

INCB
ADD

16$

(RO)
#10,SP

Routine
Base: $CODES + 24666
188 words,
:
12
words
n:
invocatio
per
depth
: Maximum stack

end
eludom

0TS external references

.GLOBL
.GLOBL

W, 8,
Ve W Ve,

$SAVES, $SAVE4, $SAVE3, $SAVE2
BLSSHF, BLSDIV, BLSMOD, BLSMUL

PSECT SUMMARY
Psect Name

$GG6S
$CODES
SPLITS

Words
343
5527
10

«(TALLY.ADDR)

; Routine Size:

5385

5364

MOV
ASL

000003

0000006

B8 R
C(MPB
BNE

Attributes
RO,
I
.,
RO,
I
.
RO,
D

*,SOF T.OCCURED

5351

RD/RX IIXERCISER
RORX IMTERRUPT SERVICE ROUTINES

IRQAM3
v01.2

LIBRARY STATISTICS

;

:
:

21=Jul-1983 15:33:38
21-Jul=-1983 15:23:38

File

DISKSUSER2:[DIETZ.RELEASE]IZROABO.L16;27

ememeees Symbols ~====o=-

Blocks

125

Total

Loaded

Percent

455

361

COMMAND QUALIFIERS

Read

SEQ 436

Page 180
VAX=-11 Bliss=16 V3-555
BO.BL2;15 (53)
R2:
.RELEASE]ZRQA
SUSE
[DIETZ
DISK

21-Jul-1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAML
N ¥

module ZRQAM4 (

R PR YR YR PR FE

YR X N

Xtitle 'RD/RX EXERCISER'
ident = 'v01.2°,
addressing_mode (absolute),
environment (noeis)
begin

IR P TN P T (YR IR IR IR EEIETEIE TR

Ysbttl °"LASTAD AND SETUP'
Library *ZRQABO.L16';

! DIAGNOSTIC SUPERVISOR LIBRARY

require 'BLSMAC.REQ’;
LASTAD

BGNSETUP (3)
BGNPTAB

ENDPTAB

TR A A TETEYR IR

BGNPTAB

ENDPTAB
BGNPTAB

E YR

ENDPTAB

INIT_IP_ADDR, INIT_INTR_VECT, INIT BR_LEVEL, %0°'100034°', 0, RD_MAX_LBN
" 1P, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK
INIT_IP_ADDR, INIT_INTR_VECT, INIT_BR_LEVEL, %0°100001°, O, RX_MAX_LBN

' IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

INIT_IP_ADDR, INIT_INTR_VECT, INIT_BR_LEVEL, %0°'100002°', 0, RX_MAX_LBN
" 1P, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

ENDSE TUP

.TITLE
.IDENT
.ENABL

000000
000000
000002
000004
000006
000010
000012
000014
000016

000020

SEQ 437

Page 181
VAX=11 Bliss=16 V3=555
5 (54)
ABO.BL2;1
LEASEJZRQ
DISKSUSER2: [DIETZ.RE

000064
000000C
000030
000006
172150
000154
000004
100034
000000

.PSECT
BLSLAS:: .WORD

P.AAA:
P.AAB:

.WORD

ZRQAM4 RD/RX EXERCISER
/V01.2/

AMA

$XYZ%,
TSFREE

C<TSFREE=-<BLELAS+4>>/2>

.WORD

LSLAST+24

.WORD

=5630

WORD

LWORD

.WORD

MWORD
.WORD

154

=77744
O

; PlLit count word

21=Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
LASTAD AND SETUP

ZRQAMS
v0il.2

LWORD
.WORD

52137
LSLAST+44

.WORD
LWORD
LWORD
JWORD
MWORD
.WORD
.WORD

=5630
154
&
=77777
O
1437
O

000022
000024

052137
000050°

000030
000032
000034
000036
000040
000042
000044

172150
000154
000004
100001
000000
001437
000000

P.AAD:

000050
000052

172150
000154
000004
100002
000000
001437
000000

P.AAF:

000004°
000003
000004"*
000010°
000024°
000030°
000044°
000050°

LSLAST==
T$PTHV==
$LAS4=
$REM4=
$1.AS3=
$REM3=
$SLAS1=
$REM?=

000207

.SBTTL
SEND.LINK::

P.AAC:

000026 000006

P.AAE:

000046 000006
000054

000056
000060
000062
000064

000000

; Routine Size:

6915

6916
6917

.WORD
LMWORD
WORD

1 word,

Routine Base:

0 words

]

: Plit count word

; Plit count word

=5€30
154
&

=77776
O
1437
O
BLSLAS+4
3
P.AAA
P.AAB
P.AAC
P.AAD
P.AAE
P.AAF

RTS

SEND.LINK LASTAD AND SETUP

$XYZ$ + 0066

end
eludom

PSECT SUMMARY

.
:
:

WORD

WORD
WORD
WORD
TSFREE::.WORD

: Maximum stack depth per invocation:

:
:

.WORD

Psect Name
$XYZ$

Words
28

L IBRARY

SEQ 438

Page 182
VAX=-11 Bliss=16 V3=555
3 (54)
ABO.BL2;1
LEASEIZRQ
[DIETZ.RE
DISKSUSER2:

STATISTICS

Attributes
RO, I .,

LCL,

REL,

CON

6893

1
;

21-Jul-1983 15:23:38

LASTAD AND SETUP

v01.2
S

21-Jul=1983 15:33:38

RD/RX EXEKCISER

ZROAMG

fFile

DISKSUSER2:[DIETZ.RELEASEJIZRQABO.L16;27

emeeeaee Symbols =======-

Blocks

Total

Loaded

Percent

455

Qe e %o % s 0o

COMMAND QUALIFIERS
6918

5528 code + 380 data words
03:10.5
Time:
Run
05:38.6
Elapsed Time:
Memor{ Used:
413 pages
Size: .

Compilation Complete

Read

SEO 439

ge 183
VAX-11 Bliss=16 V3=553
(54)
.BL2;15
IZRQABO
RELEASE
[DIETZ.
DISKSUSER2: