Digital PDFs

AH-T399B-MC

2000

Number of pages unknown

Original

206MB

view download

OCR Version

283MB

view download

Document:	CZRQAB0 RQDX1, RD51, RX50 Exerciser Diagnostics
Order Number:	AH-T399B-MC
Revision:	000
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_gray.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]

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

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

environment (noeis)

begin

IDENTIFICATION

PRQDUCT CODE:

AC-T3988-MC

PROPUCT NAME:

CZRQABO RGDX1 EXERCISER

PRODUCT DATE:

22 JUL 1983

MAINYAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

RAVINDER K. KARWAN

DIGITAL FGQUIPMENT CORPOTRATION, MAYNARD, MASSACHUSETTS
THIS SOFYWARE IS FURNISHED

01754

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 AGREES TO THESE LICENSE
;E:fl?fi l;lgtg TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES
THE INFORMATJON IN THIS DOCUMENT IS SUBJECT 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
1
Pase

VAX-11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEAS EJZRQABO.BL1;10

module ZRQAM1 (

fififififlflflfiflfifififlfifififlfififlflfiflfifififlflflflfififififififlfifi

AT R

R TR TR A PR PR PR TR D

R T L 1 TR

TR IR R R

e e TR PR L LR LR L L L L L L [ TR TETE T

ZRQAM1

TR IR TR A

(1)

H
:
:
H
H
:
H

C 0051
¢ 005
¢ 005
C 0054
C 0055
¢ 0056
€ 0057

H
H
:

C 0059
C 0060
C 0061

H
H
:
:
:

:
:
H
H

%1-Jul°1 5:25:58
1=Jul=1983 15:19:20

RD/RX EXERCISER

ZROAMT
v01.2

TABLE OF CONTENTS

C 0058

€ 0062
C 0063
C 0064
C 0065
C 0066

1.0
1.1
1.2
1.2.1
1.2.2

GENERAL INFORMATION
PROGRAM ABSTRACT
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOFTWARE REQUIREMENTS

€ 0069
E 88;?

1.5
1.6

ASSUMPT IONS
MEMORY MAP

C 0067
C 0068

1.3
1.4

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

:
H
H

€ 0072
C 0073
E 88;2

2.0
2.1
2.2

OPERATING INSTRUCTIONS
HARDWARE QUESTIONS
SOF TWARE QUESTIONS

H
H
:
H

€ 0076
¢ 0077
C 0078
€ 0079

3.0
3.1
3.2
3.3

ERROR TYPES
ERROR INFORMATION
INITIALIZATION ERRORS
EXERCISER ERRORS

H
H
:
H
H
:

¢ 0080
C 0081
C 0082
C 0083
C 0084
E 8832

3.4
3.5
3.6
- 19 4
3.8
4.0

ERROR LOG MESSAGES
MSCP ERRORS
SAMPLE MSCP ERROR STATEMENT
DUP ERRORS
SAMPLE DU® ERROR STATEMENT

PERFORMANCE AND PROGRESS REPORTS

:
:
:
:

C 0087
C 0088
€ 0089
¢ 0090

5.0
5.1
5.2
5.3

TEST SUMMARY
INITIALIZATION SUBTEST
EXERCISER
DROP UNIT SUMMAicY

E 0092

6.0

ERROR LIST

7.0

DATA PATTERNS

€ 0091

SEO 2

089 2
VAX=11 Bliss=16 V3=555
(2)
O.BL1;10
EASEJZROAB
DISKSUSER2: [DIETZ.REL

51-Jul°1983 15: 25:58
1=Jul=1983 15:19:2

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

GENERAL INFORMATION

PROGRAM ABSTRACT

This program will functionally verifg and exercise RADX1
Controller/Disk Drive subsystems. It is designed to verify

that the subsystem

is functioning correctly and operating

within design specifications.

SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS

LSI - 11723 erocess;r with 28K or more of memory, console
device (eg. VT100) and RADX1 CONTROLLER board and attached
RD=51 WINCHESTER drive(s) and RX=50 FLOPPY drive(s)
SOF TWARE REQUIREMENTS

This diagnostic is designed to run with the Diagnostic
Supervisor as described in paragraph 2.0.
RELATED DOCUMENTS AND STANDARDS

XXDP+ SUPERVISOR/USERS MANUAL _ CHQUS
UQSSP UNIBUS/Q-BUS STORAGE SYSTEMS PORT

MSCP
DUP

b
d

d wd

—

Paae

DISKSUSER2: [DIETZ.RELEASEIZROABO.BL1;10 (3)

MASS STORAGE SYSTEM PROTOCOL
DIAGNOSTIC/UTILITIES PROTOCOL

DIAGNOSTIC HIERARCY PREREQUISITES
NONE

UNWNWWNW

WWWNNNI
NN NI NINI NN NIN) = b b b b b =

b b =

o000

WA
=
~
NOV’J\WN—.OOONO‘\”%WN-‘OOONOW&WN-‘OOGNOU"&WN—'O SEIRER

00
[el=l=l=l=l=l=l=llololoTo
Tttt
T T Tt T T T Tcd To Td Tcd Lnd Le ee cd 0000000000000
b e o e e e o o o
D e D o o o
b o d e D d e o
D e D md D e e e

fififififlfifififlfifififififlflflflfiflflflflfiflfiflflfifififififlfiflfififlfiflflflfiflfiflflfififlflfl

335333

e
o

ASSUMPTIONS

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

S1-Jut1983 13:43:38

RD/RX EXERCISER

1ZROABO BL1; ?8.(6)
RZ:
RELEASE
SUSE
DISKLDIETZ.

-1 & 3

o g

e >

1.6

VAX-11 BLiss=16 V3=555

~ e S

b
4o

EQ®

El 2 1812181 B

o (%] 3

SEQ 4 P

v01.2
3
3

¢ 0190
C 0191

3
:
5

c 019
C 0194
C 0195

3
:
3

C 0198
C 0199
¢ 0200

C 019§

2.0

C 0203

3
:

C 0205
C 0206

C 0204

€ 0513

DISKSUSERZ: DlEtl.lELEASEJZIOABo.lll:?8.(5)

OPERATING INSTRUCTIONS

HARDWARE QUESTIONS

The

following series of ?uestions comprise the para=-

meters necessary to identify each disk subsystem.

E 8%83
C 0210

2.1

C 0207

Hardware Configuration Questions

C 0211

The program will ask

C 0214

the following

response to a START command (non=-script).

E 8%}2

questions

CHANGE HW (L) Y ?

E 8%};

C 0219

Answer' NO to use the pre-built answers for all

hardware

:
:

C 0223
E 8%%2

setup utility. Answer YES if you want all
questions to be asked.

the

hardware

3
3
3

E 8559

:
H

C 0228
€ 0229

3
:

E 85;2
C 0237

2
3

C 0239
C 0240

:
3
:
3

This program will be released pre-built_to
questions.
The
with default answers shown below.
unit
test three
the
with
time
any
at
changed
be
may
answers
pre-built

C 0220
C 0221
C 0222

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.
r
rqn?e of 1 to 4 units may be specified. A unit
will be assigned sequentially from 0 by the Diagnostic
supervisor for each unit.

¢ 0230
€ 0231
C 0232
E 85;2

€ 0238

SEQ S

nostics.

C 0201
C 0202

3
3

This is a Rev C Supervisor Diagnostic: for operating
instructions, please see chapter 5 of XXDP+ operator's
r included in the diagnostic
manual. thc¥ are no L
because it is desired that a change in those instruc=tions not require a re-assembly of all Supervisor Diag-

C 0196
C 0197

3
3

VAX=11 Bliss=16 V3-555

1=Jul=1983 15:25:5
83 15:19:23
51-401-19

RD/RX EXERCISER

ZRQAM1

IP ADDRESS (0) 172150 ?
Enter the address of the IP recister of one RMX1 as addressed by the processor with uenor‘ manage~ent turned
off. The program exgects an even 16-bit address in the
range of 160000 to 177774. 172150 is the default.

-Jul=1983

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 in;crrupt level used
;22v0l200x1. Levels & through 7 are acceptable. &
ault.

the
is the

RQDX1 DRIVE NUMBER (D) 0 ?

WN =

R2E

Enter the Llogical unit number for one drive associated
with the IP address above. Drive numbers are in the

o [el=l=lelelelelelelelel=l=1=]

VAX=11 Bliss=16 V3555
DISKSUSER2: [(DIETZ .RELEASE

1;E§3538

VECTOR ADDRESS (0) 154 ?
Answer with the
above question.,

N
NN N
NN

e lalslzlalzlzslslalslslalsalzlalalalzslalalalalalalalalalalalalalalalalalalalelelelele
Ly

TETAIEATETETALATE LA PR PRDA LA DA LA LR 1)
e e L T TR T TR TR LA L L LR LRLA L L I
e
e e
e
e
T
R R R T
R IR
MR

5}°Jul-190

RD/RX EXERCISER

ZRQAM1
v01.2

0264
0265

range

of 0

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:

RDS1 - YES

RX50 = NO ?

of disk
Question will be asked to determine the t
that this particular unit is; either RD51, or RX50. The
software will not check for the correctness of the configu:gtion 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 Ex-

erciser will read the DBNs (Diafnostfc 2locks) in a
sequential order from 0 to octal (217). DBNs can only
be accessed throw DUP protocol making the blocks unreachable throw normal customer use. The DUP Exerciser is
Control
contained in the middle of the MSCP (Mass Storage
Protocol) Exerciser which reads LBNs (Logical blocks).
So physically a 18680 amount of LBNs will be READ and/or
WRITTEN then the
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 Ex~

and compare the DBNs (Diagnostic
erciser to WRITE/READ

Blocks).

Where a

READ only the DBNs.

‘NO'* answer will allow the program to

S0 6

(&)
10 1:
2R0AB0.8L

RD/RX EXERCISER

IROAM1

v01.2
:

Jul=198

C 0294

C 0295

NOTE

-Jul-l”g Ig fi 33
+«+

SEQ 7

DISKSUSER2: (DIETZ. mwnzmoo.m:fi'm

VAX=11 Bliss=16 v3-555

[F yes ANSWER, DATA ON DBNs WILL BE DESTROYED.
1

e e

SSE838%E
SESEOR=
OV~ OIS WWN=O
[y

W WWWWWWW WWWW
~N N = b d b b b b b D)

OCO0O00000O0 [elelelelelelelelelelelelelelelelel]

lslzlzslzlalzslzslszlalclalalalalalalalalalalalalalalalalalalelelelelelely)

SN
TRI T 0 T
TATE TR A
TR
AT A A
TR TR IR
PR TRLR LA L L
LA PRTR
A
A TR
TR TR TR I
N
P

MR B IRLEI

—

SEQ 8

T ®
R cmoo.n

L)
.

10.

STARTING LBN (D) 0 ?

.
.

s:::r.tho :torting zggiu% blocttm-bor”t
of tM

to
to 215“ (RDS‘“ ’8
r

default.

11.

cm::tro

as the

(RX
s

‘
1|

‘
1

ENDING LBN (MAX = RXS0: 799, RDS1: 21599) (D) 21599 ?
quntion for tho L s;ustomer LBN

Answer this

to test. eu; rasgo r%’ to
(Rx50), with

21599

(or

NOTE: The two previous

(RDS!).

) as the default.

questions are

‘
1|

‘

wish

to 799

1
|

1
{

ally Software

Parameter ?untions. but since ditfcrent disk

devices ox t on thc RQDX1 subsystu

an
with different aoviccs. ! g:ogru will check for
block number bounds and
are exceeded, will
assign the maximum bound for that device.

EXERCISE ON CUSTOMER DATA AREA ON THIS DISK UNIT (L) ?

Msnrinz YES will dcstroy an{ customer dota that is on
the di
thereforo.
Llowing warning message will
appear, followed by
a confimtion prompt:

«+ WARNING = CUSTOMER DATA AREA WILL BE OVERWRITTEN! ...
CONFIRM (L) ?

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

cided

bypass

the

there is no default.

hardware

questions.

s becomes

to specify
msifilc
It issince
by unit 1s stion.
a unit
dealing
are
we
too lar
LBN which

12.

Otherwise,

1
|

1
{
|
|
{

v01.2

VAX=11 Bliss=16

C 0333

¢ 03

E gg S

2.2

£ 0340
¢ 0341
E 8§§

:
3

583322

3
3

C 0348
C 0349
C 0350
C 0351
€ 0352

The

tot

ram will ask the following

questions in response

TART, RESTART, and Cmnm commands.

?
SW (L) V¥E
CHANG

in this sec~
Answer NO to bypass the followi
NO when
answered
betions
should maml!y
This quz::ion
tion.Exerciser
is first run. A NO answer will cause the
the
Exerciser to select the default parameters shown with

C ofi?

to alter the test parameters

problem.

E 8;;{3.

and

further

isolate

:’
3

C 0357
C 0358

2. HARD ERROR LIMIT (D) 32 ?
Enter the number of hard errors allowed before a unit is
from tcsti:s. A number in the range of 1 to
dr

E 8332%

:
3
3

¢ 0363
C 0364
C 0365

When the specified number of b{m 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 indi-

E 8332;

the Exerciser is to run.

C 0369
C 0370

The only other way the Exerciser will declare end-ofpass is if all units are dropped because the error limit

‘C: 8;;

;

¢ 0376

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

:
3
3

:
2

C 0366
c 0371

E 8%;15

C 0377

C 0378

C 0379
¢ 0380
C 0381

C 0382

C 0353
C 0384
C 0385

‘8

the

: 8.;32

E 8;28

Then, depending on the errors.- deuch'a\nstion below.
tected, it may be desirable to chmr this answer to YES

Software Parameter Questions

C 0333

SEQ 9

’

SOF TWARE QUESTIONS

¢ 033

;

555

DISKSUSER2:(DIET .numuw.m:fl'm

15:25:5
1-&(-233 1;:‘3:28

1=du!=1

RD/RX EXERCISER

ZROAMY

65555 will be accepted.

TRANSFER LIMIT IN MEGABYTES (0 FOR QUICK PASS) (D) 0 ?

cated.

This is the method used to determine how long

on each is

exceeded.

However,

the operator can always

abort the program at any time by typing CONTROL=C.

devices of
typical usage for therations
In order to maintain
must
of
R:rcentage
certain
a

this

exercise,

be directed to the RDS51s (the

rest go to the

RX50s).

turns out that this percentage is very M?h (as indicated by the 99% figure given as the default). It may be
desirable in some cases to direct more activit{ to the
RX50s. This is easily done by dircctin? a smaller perrs
centa?e of the operations to the RD51s. The
the
by
internally
adjusted
are
usaae
with
associated
program according to

device type and percentage.

I
I

‘

[=1l=lelelel]

QOOO&OO
WWWW
RRRRRR PRERESS
RVIS RWN=O0
R RRCRRRRRRRRN
SSS2ESE
ONOWVBWN=O IRIKGR S9288 SIRER wnN

RD/RX EXERCISER
ez lzlzslalzslzlzslslaslzslzalzslalalaslalalalalalalalalalalalalalalalalalelelelelely)

8o 8 BeBe e 800000 8s008c%000 0000900090 000000009000 %0 000000900000 0000080080000, LA L T §

Yedul=1983 15:

1083 12133130
QI

VAX=11 Bliss=16

OF DBNs READ AT ONE TIME (18) ?
NUMBER
This variable adjusts the amount of DBNs read in one pass

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
am does and
the Lless time to run. The lower this
r the more
reinitializations the longer amount of time to tranfer the
s27e amount LBNs and DBNs.

CLEAR STATISTICAL TABLES AFTER PRINTING (L) N ?
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

tota(s are maintained.

RANDOM SEEK MODE (L) Y ?

Answer YES to cause block numbers to be chosen randomly.
:?srfr NO to cause block numbers to be selected sequenally.

UNITS TO BE SELCTED AT RANDOM (NO, IMPLIES SEQUENTIAL) (L) N ?
This question is optionally asked if the answer to the
previous question is N[o]l. 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
device. If the alternate answer is chosen (Y[esl]), then
the units will be chosen at random in accordance with
the percentages specified in Software question 4.

s€0 10

Page

1D (9):
Dl SUSERZ IDIETY RELEASEIZROABO.BLY

of the DUP Exerciser. The DUP Exerciser has to reinit
the controller every time it go’s back into the MSCP Exerciser. This Hard reinitialization takes a few gcconds.

V3555

352

alalalaleleld Tz lslslzslzslzlzslzslalzslslzslzlalzalalalslalalalalalalalalalalalalalalalalalelelel; Ly
R AR R RRRRRRRRRRRRRRRRRRR]R RRRRRRRR|I|RR
WW
o
AP A
AT S NS N R Y B G wn LTSNS

IR R

R A R TR R

TRT R

A T A PRPR TR D LA L 1 TR IR

IR R

T A R TR SR TR A TR TR

A TR PR TR TR L T L L T

RD/RX EXERCISER
9.

‘w-' -

S1utoIo8s 1 B3i30

sea 11

DicsusERl EDIerY ReLEASEIZROABO.BLY:
1D (10'

READ-COMPARES PERFORMED AT THE CONTROLLER (L) N ?
Answering YES causes all read commands to include the
This essentially forces the conmodifier.
'toafare
operations on the same disk
read
troller to perform two
results.
the
compare
address, and to
The following mess
will appear after the operator has
——
answered this question:

THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED DISK UNITS.
10.

WRITE-COMPARES PERFORMED AT THE CONTROLLER (L) N ?

Answering YES causes all write 1/0 requcsts to be
After each write, the conto write-compare.
chan
troller will read the data and compare it to data
re-obtained from the host.

11.

CHECK ALL WRITES AT HOST BY READING (L) N ?

This question will only be asked if the previous question was answered NO. Ansuerin? YES causes all writes
to be checked 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 rec
d

when device write-compare operat?ons are suspect.

12. USER-DEFINED 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
pre-defined data pattern in the next question.

13. SELECT PRE-DEFINED DATA PATTERN (0 FOR SEQUENTIAL SELEC~
TION)

(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).

RD/RX EXERCISER

g
V3555
Bliss=16
VAX=11
S8
o
18" (11
001"
n00.
asezna
e
Y
e
B 13033 Il

51-Jul°1

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

(D)

Iheseeauestions will only be asked if the operator has
to define his/her own data pattern. The actual
decid
bit patterns will be entered as octal (PDP=11).

ZROAM1
v01.2

0484

0485

3.0

ERROR TYPES

ceemeeemee-

0487
0488

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

0490

SYSTEM FATAL ERRORS

0493
0494

System fatal errors are used to indicate that an error
was detected by the Diagnostic Supervisor in relation

0497
0498
0499

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

0503

DEVICE FATAL ERRORS

0495

o
o

0500

0508

0509
V00N
VIS W

D
b

require some getting use to.

Device fatal errors are a result of:

an error that is

considered fatal to the device,

testing will continue.

but

HARD ERRORS

b
D
b e
d
—

(=lelelelelelele]

0511

to loading/controlling the diagnostic process.

0520

0521

Hard errors are a result of:

retries of a soft error or *

2.
3.

a non-recoverable error
a soft error if retrys are not set.

Note: Retries are executed in the controller

0523

SOFT ERRORS

0526

Soft errors

0529

Note: Soft errors are retrieved from the controller via

0527

0530

are media related errors.

will be retried by the controller.

the error log

capabilities of - MSCP.

ALl soft errors

Bliss=16_V3-555

VAX=11
DISKSUSER2:[DIETZ.RELEASEJZROABO.BL1;10 (12)

21=Jul=1983 15:19:20

B BaBaBaBaBa0a0s%0%009:%90%%8 %%
% %% %N ...l....‘..l.l.l.l.l.....l..Ql.l.....‘.l.........'....

fififlflfififififlfiflflfififififlfififi!fifififlfififlflfiflflflfifififlfiflflfififlfififlfiflfifi

AT E TR T

R PRT TRDRL D D T 1 TRIR R

R TR TRTR T A T PRPR

R L L L L 1 LR TR TRT

vo1.2

TRIR IRIA R

21=Jut=1983 15:25:58

RD/RX EXERCISEK

ZRQAM1

SEQ 13

Paae 13

- . E. m B

VAX-11 Bliss=16 V3-555

oW
oo

wviwn

——

21=Jul=1

00
Co oo

h
NN

=
VS WA

21=Jul-1

RD/RX EXERCISER

3.1

ERROR INFORMATION

All general error messages will include the type of error
(system=-fatal, device-fatal, hard, soft) and a unit number.

unit number of the contro’ler will be given. (The user will
know the other unit numiers 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 address will be printed.
be used to print

the

codes, SA register contents, and error log messages.

ALl

Extended

error

messages will

relevant fields 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.

ViV

3°°OOOOOOOO
N
NIV
o
go«
W

3.2

INITIALIZATION ERRORS

_ Two kinds of errors

will be

SEQ 14
Paae 14

DISKSUSER2: [DIETZ.RELEASEIZROABO.BL1;10 (13)

1f the error applies to a ;ontrolier. then onl; the first

el=l=lelalalalel

sz sz ccsalalalalalalalalalalalalalalalalalalalalalalalalalninlele)
elz ez
e e
e

R I E I T TRS T E T s s s e

e e e

e T L T T TR DR L L L L L TR IR IR R R

AT AT O PRTR LA DR LA L L T

S
23
N‘

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 wunit(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 failule

Initialization sequence failure

Online failed

Access failed

v01.2
:
:

c 05
C 058

:
:

C 0585
C 0586

C 0584

1=Jul=1983 15:25:58

RD/RX EXERCISER

ZRQAM1

:
:
:

C 0587
C 0588
C 0589

3.3

%1-Jul-1983 15:19:20

15
(16)
.BL1:18e
EJZROABO
DlSKiUSERZ:tDlETZ.RELEAS
VAX=11 Bliss=16 V3-555

EXERCISER ERRORS

Most errors reported during this test will originate
from MSCP end nessage packets. The status code field will
be converted to text and printed as fart of a basic error

Any subcode value will follow if extended error

C 0590

E 8;3;

message.

C 0593

The following list represents some of the error conditions

:
:

C 0595
C 0596

3
:

C 0597
C 0598

0600

:
:

messages are enabled.
reported via MSCP:

C 0594

1.
s

E 0599
C 0601

Disk unit went offline
detailing the reason)
o

(a sub-code may

E 828%

E 8282

Data error (a sub-code may follow)
Drive error (a sub-code may follow)

E 8239

Host buffer access error

C 0608

Media format error (a sub-code may follow)

C 0614

:
S
:
H
3

:
:

3
3
2
:

:
:
:

3
3

C 0609
C 0610
C 0611
C 0612
C 0613

C 0615
C 0616

3.4

C 0625

C 0626

C 0627
C 0628
C 0629

C 0630

using the MSCP specs.

C 0619
C 0620

C 0624

ERROR LOG MESSAGES

of the error:log messages received from the
The contents
controller are printed as received, and should be deciphered

C 0617
C 0618

€ 0621
C 0622

Compare error

3.5

[

MSCP ERRORS

An MSCP error occurs when the host receives an Invalid

Command End Message from the RGDX1. 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 15

1=Jul=1983 15:25:58

51-J31°1983 15:19:20

VAX=11 Bliss=16 _V3-555

3.6

SAMPLE MSCP ERROR STATEMENT

The errors Listed by the exerciser are ussually very des-

criptive and are self explanatory. The following is an example
error statement. This error statement 1is the extented error

WO NOWVSWN=O00NON

message.

(example)

(comments)

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

'DISK UNIT NUMBER
TCONTROLLER 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 BY SWITCH ! SUB CODE
'NUMBER OF BYTES WANTED TO READ
BYTE COUNT IN COMMAND XXXXX
ACTUAL # OF BYTES TRANSFERED XXXXX !NUMBER OF BYTES ACTUALLY READ
1/0 BUFFER ADDRESS (32 BITS)
LBN: XXX

END MESSAGE FLAGS:
The

status

code in

XXXXXX XXXXXX
! LBN WANTED TO READ

! THERE ARE NO END FLAGS FOR THIS ERROR

an end

messages is

broken into two

gieces. The first 5 bits represent the major status which is given
K the '‘invalid command'’ message. The 11 remaining bits reg:esent
conthe sub-code, which tells in greater detail the error in the
controller
the
disk
the
on
block
logical
the
is
LBN
troller. The
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 toc 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 erros occurs when the host receives an Invalid
Command End Message from the RGDX1. In such cases the host

will print out the erroneous commana 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 rotocol

(using Receive/Send commands to communicate with controller local

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

SEQ 16

DISKSUSERZ:(DISTZ.RELEASEJZROABO.Bli:?Be(15)

SEIXIILLER
W
BEISFHRRUR

fifififlflfififlfifififlfifififififlfififlflflflflfiflfiflflflflflflfiflflflflfififlflflfififlflflflflflfi

TR O

A TR TR TR L

T A TR LA LRLR
L L SR
IR AR AAR TE
A TRTRLALA DADR
LA LN T

RD/RX EXERCISER

YRTRA R R RS R R
R R T R R

RD/RX EXERCISER

ZROAM1
v01.2

C 0684

21=Jul=1983 15:25:5

21=Jul=1983 15:19:2

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

VAX=11 Bliss=16 V3=555
DISKSUSER2: [(DIETZ.RELEA

SEQ 17
17
Pa

SEJZROABO.BLl:lsetts)

Vol
3
3

C 0685
C 0609

C 82%3

|
3

C 0689
C 0690

s
3

C 069§
C 069

1=Jul=1983 15:25:58

RD/RX EXERCISER

ZRQAM

C 0691

3.8

Z1Ju=1083 13:43:30

VAX=11 Bliss=16 V3-555

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.

E 823;

(example)

3
3
3

C 0699
C 0700
C 0701

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

3
3

C 0703
C 0704

'DISK UNIT NUMBER
'CONTROLLER PACKET NUMBER
'THIS IS THE PORT MESSAGE TYPE
'CONNECTION ID AND COMMAND GIVEN TO DRIVE
COMMAND :=DUP=-RECEIVE DATA
! STATUS CODE OF COMMAND
STATUS CODE: -SUCCESS
ACTUAL # OF BYTES TRANSFERED XXXXX 'NUMBER OF BYTES ACTUALLY READ

C 0706

MESSAGE TYPE:

C 0708

MESSAGE NUMBER:

! MESSAGE TOBE GIVEN OR RESULT EXPECTED

c 0710

MESSAGE ERROR CODE:

! ERROR LISTING

3
3
3
2

C 0714
C 0715
C 0719
(4

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 CODE. These are part
of a DUP sub-protocal for communicating
with a controller local

3
3

€ 0722
C 0723

message or something on the host side caused the controller to error
the controller local program. This error was produced
while running

:
H

3
3
3
3
3

¢ 0702

C 0705

¢ 0707

¢ 0709

c o711

C 0718
c 0719
C 0720
c 0721
E 8;%2

(comments)

170 BUFFER ADDRESS (32 BITS)
«+ FATAL ERROR

-« SUCCESS/FAILURE CODE

= ILLEGAL UNIT NUMBER

XXXXXX XXXXXX

' TYPE OF COMMUNICATION

program. The 1/0 buffer address contains the address of the DUP
170 Buffer which contains the MESSAGE information.
The status code in this end message is succesful which
erstand the host
means the controller was OK but it did not
by an ILLE

UNIT NUMBER.

The disk

went off Lline.

10 (16):
DISKSUSER2:EDIETY.RELEASEJZROABO.BL1

C 0694
C 0695
C 0696

:
3
:

SEQ 18

0735

:
3

C
C

4.0

51
PERFORMANCE AND PROGRESS REPORTS

cleared statistics.

There are two basic Listings one for L?n and one for
DBNs. The DBN listing will only contain RD51s for the simple
reason that th contain DBNs and RX50s do not. The DBNs
are READ and WRITTEN by blocks instead of by bytes. ALl units

C
¢
¢

C 0744

;

(c: 8;‘

;

C 0748

The sub cat

E 8;2?

1. disk related errors

| ;

E 8;§§

2. seek (or format) related errors

g 8;2;

;

E 8;%?
¢ 8;33

3. controller or drive related errors
4. host (the CPU) related errors.

3
;
3

:
E

;

0740
C 0741
E 8;2

:.o'n'ttg\“m: The errors for each unit will be Listed next to
soft.

C 0745

C 0749

C 0760
E 8;2‘1?

¢ 0763

UNT

XXXXXX

R‘so

LR J

LR R J

LE B N J

axso

LR ]

LR J

LR ]

C 0768

UNIT

DISK
”

TYPE

c o771

DBNRDST

c 0772

== SFT ERS ==

XXXXX

ALl numeric values are in decimal radix.
# OF BYTS # OF BYTES == HRD ERS ==
XXXX XXXX

c 07“
C 0767

(c: 8;673

are:

RDST

:
s

ies
.

"Pf READS READ WRITES WRITTEN DAT SEK DRV HST DAT SEK DRV HST

Each is sub divided into four more catagories,

C 0764

c 0765

ies: hard and

Errors are grouped into two basic cat

ing on the most probable classification for that error.

pass of

the Exerciser or upon demand by the operator. The fields may
be cleared to zero after the report is printed depending on
the operator's response to this option in the software questions. Any units added to the test cycle will also begin with

:
3
S

LR R J

LE RN J

READ

# OF

WRITES

# BLKS

XXXXX

# OF

# BLKS

XXXXX

READS

SEQ 19

19
:?r(V)
JZM.I'
flEASE
lEYl.R
ggg 12:19:20 DISKSUSER2:
15:25:58

A summary report is printed at the end of each

3
:

1=Jul=1

RD/RX EXERCISER

RQAMY

VAX=11 Bliss=16 V3-555

WRITTEN

RS
SFEFERERE CECE LT R EE BRRAS

i=l=l=1-]

fififififlflflflfiflflfiflflflflflflflflflflflfifififlflfiflflflfififlflflflflflflflflflflfiflflflflflfl

e P TR LA L DR L L T
e
e
o
e
o
O
T T
LI Il
ME
T T T PRL TR DRL L L
e
L L R RT E

0790

"
-

v01.2

:5
1
3328
i-nl-l’.; 1;

1=Jul=1983

RD/RX EXERCISER

IRQAMT

V3-555

The RODX1 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 verify the hardware

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

First,

rified,

operator.

the presence of each device

along with a check on
an

ister will be ve-

the BR Level specified by the

initialization

controller configured for testing.

will be is

each

When the initialization

sequence has been completed, an attempt will be made to bri
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.

8388

the program

0812

0813
0814

0815
0816

Upon succesful completion of the Initialization Subtest,

5.2

will

begin executing the Exerciser.

EXERCISER

The purpose of this subtest is to exercise the

disk

drives

in a manner similar to the typical usage under standard oper=-

0818

0820
0821
0822
0823

be subject to read-only operations, while unprotected disks
may be read or written, depending on the answers given to the
software parameter questions.
nd-of-pass will be declared
when the specified number of bytes have been transferred for

0819

0824

Any device-tatal or hard errors encountered duri
test will cause the appropriate unit(s) to be d

give an indica~
drive subunits.
This test will utilitize random disk addresses, random word
counts,
and data patterns, all subject to the Limits and

0817

TEST SUMMARY

5.0

0801
0802
0803
0804
0805

0810

SEQ 20

VAX=11 Bliss=16
DIEYI.REIJASEJIW..J:?B'H‘?
NS“US%RZ:

th}:
o
led, then the program will print
basic error messages are
out the specific reason for drog:ing the unit(s). Henceforth,
the failed unit(s) will not
ested unless the operator
intervenes (adds unit(s) or restarts Exerciser).

0809

ating systems. Execution of this test should
performance of the disk
rating
tion of the

specifications made b{ the operator.
all the disks taken as a whole.

ALl protected disks will

2228
W

l'\'lfiflflfl-fiflfifififlfiflflfififlfiflflflflflflfiflflflflflflflflflflflflflfiflfiflflflflfl

rcm during tMs test, then the
init ato an appropriate w of re-

t
tries. If all retries fail,
ted to the mt. an ormm

Mr‘ orm will be repordi lomcntln

sum~
iodfor thecount
w l tol
and M ror
terminal unit
console
f the hard error
will be
report. The

mary
has exceeded the soccfl ed Llimit,

The Exerciser is actually two exercisers combined together.
ser writes and reads LBNs while the less
The main MSCP ’:m

The DUP exerciser is
transfers or alot less than the MSCP

used DUP exerc
used once per

ites and reads DBNs.

"unnt
what
some
uu
m
Eurci
two
.to The
exerciser
nSCP
go
to
sible
tranfer 1/0. It is
protocol

it 3

T R T L R T T T T T T TR L DRLA LA LA LA L L Ll L LTATETETATE TR TRTR LR LA 1
S
[

1fa read/writ
RODX1 conmu.:n will

SEQ 21

1
?-Ju(-‘l ; g g DISKSUSER2: [DIETZ .RELEASEIZROABO.BLT;'8'«13}

RD/RX EXERCISER

IRQAMY

VAX=11 Bliss=16 V3-555

1.2

o'-3%63 1

832;

scutrollcr
w thoutroinituu:in the
g;otocol to DUPtoprotocol
after
Therfore
go from DUP to MSCP protocol.

sible
iniz'fliu and control
Exercise pass the controllor is
2ation process
nit
n
im back to the MSCP Exerciser.
is placed in
able
akes a few seconds. For tMsruun
1 DBN per ms.
than
m
or
tr
the DUP Eurci':,r to allou it to

The variabl 0.

transfers before the DUP Exerciser can
The higher the variable the less reinits the controller must do.

5.3 DROP UNIT SUMMARY

0859

be dr

t online or the operator specified device does not match

0860
0861
oee;
086

During the Exercise, the program will drop a unit for one
of three reasons. The normal path is for each unit to complete
the oper{tn. where N is specified
the tnnmr of N
a
Otherwise,
.
soft-d
be
ond
ng
question
ng.SU
ator dur

086
0868

{clc. However,
eared to zero;

0864
0865
0369

0869
82;(1)

from the test som’

885

oagg

individual units will
the Initialization Subtest,if the
y are unable to be

During

8355

give the amount ofofMSCP
is multiplied by 25 totranfer
DBNs.
‘X' amount

hardware.

the

the number of hard errors encoun=
hard-dropped
unit will
Limit, or if a fatal error
cfliod
tor-spo
n
the
exceeds
tered
is detected. Units hard-dropped may later be added to the test

statistics for the hard-nddo? unit will be
if a transfer Limit was specified, in which

case the unit was soft-dropped, the statistics may or may not
depending on the operators answer to Software
:«‘n : %::r'
s

& =Jul+1

RD/RX EXERCISER

ERT5 I e

ERROR CODES GENERATED BY ZROA EXERCISER

6.0

SYSTEM FATAL ERRORS

More than & units specified
DEVICE FATAL ERRORS
10

Controller couldn't be addressed
s given,
at the

Wrong IP address selected

Controller didn't interrupt at
the interrupt vector given.

vraa vector address sel-

didn't interrupt at
Controller
the BR lelvel given.

wrong BR level selected.

Init sequence failed.

sitm

ected.

one of the four
nitialization steps did
not receive the correct
response from the C(Conor one of the
troller,

Fatal Controller error.

The error ?it (bit 15) in

Failed to bring unit on-line.

On=-Lline

Write protect conflict.

Access to inner track failed.

steps ti

Unit went off=Line.

-3

Failed

o
o
2
e

NS - OOVONOWVEWN=O

2333383333333

e lalalalalalalalalalalalalalalalalalalalalalely) P las sz slalalaalalalalalalalalalalalalalalalelely)

8
s e e e e e e TR R T DRLR DA DLAL DL b LLA DADR LR DRDR LA LR DR LA LA T
sy
T
e I L I R

to send

‘Set Contrcller

Characteristics'' command.

the SA register was set.

’.:ad l:
rosponu(

¥s 22 -8‘33.)
error

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

Innermost

track's

may be corrupted.

header

Either the unit is offLline or the Diagnostic is
corrupted because of any
problems with its RAM,

1ET2 .RELEASE JZROABO.

- N

‘end

Probl

vAX-11 Bl
DISKSUSER2

ontrol=port/

with the

nturm‘
crocode or t
‘Set Con!nll" DMA intterface
code’ 5
.
rist u' command.

tontrol er
Characte

failed to send 'On=Line’ command

ither the th is off‘w“m di w;ic is

problems with its RAM. -

2323233%SR

throltn returned wrong ‘end
code' for the *In-lLine' command.

24 Device went to available state

rrogl- th the
srocoa

nrtllfl

Controlthe
or

nterface.

Fault switch or door mechanism

S WN—-OO

MSCP ERRORS

Controller received
command

invalid

§s

fififififlflflfiflflfiflflflflflflflflflflflflflflflfiflflflflflflflflflflflflflflflflflflflflflflflflfl

s
eT T LLT
e
o
MR L L L a E T T L O T T s
A T PRTR TR TR PRTR TR D D L
O
T O O R
MR

'?5}21%31\:11”.;1:#«3}

8 SLCISE 1580

RD/RX EXERCISER

s a problu uith
microde
Controller
is
(RAM or ROM) or there
A
port/DM
oblu with the

intcruco.

C(ontrol-

EM aborted by the
.r.

Command timed-out in
Controller.

the

Mecaia format error.

Devica write protected.
37

Contrcller

pare error.

read

write com=

Data error.

Host buffer access error

Controller error.

data
CRC error in the
field of a disk block.

catagorize
Difficult to
the
without Llooking at

any
sub-code or
error
. associated error-Log message.

C
E
C

42 MWHost write compare error.

detected

Duplicate wunit number
by the Controller.

Unknown end code received.

See #40.

T TE

43 Message from internal diagnostics

===

Problem with the

C(ontrol=-

ler microcode or the port/

DMA interface.

DUP ERRORS

Host found error
46 DBN compare error.

Message errors

47 No local media

Controller local program on

RAM may be corrupt

Unit went offline

E }889

50 Device Error

Possible write protected

(c: }%

51 Zero lenght message

see # 31

E }8}1

52 Invalid Command

see # 31

tc: }8}5

54 No region suitable

see # 31

c 1019

56 Load failure

——-

E ;85}

57 Stand alone type program

see # 31

C 1023

58 DUP unkown status code

see # 31

MR I I I I I IR T S T

49 Illegal relative or physical BLK #

€ 1010 Status errors

53 No region available
55 Program not known

see # 42

E }88%

¢ 1020

TETR

be
or Controller RAN.

48 Illegal Unit #

E }8}2

Most
Error detected when
data
the
C
compared
May
and withback.
u:?ttm
Host
the
a problem

(c: ‘%88

E }8}%

[

See #40.

E }001

555

TRTR TR TR TR LA 2R 1

Drive error.

SRR ERER

VAX=11 Bliss=16

s
TR R DR L TR DR DRLR L LA L LIRTATATATA TR A TR LA L0 1Y

=
;8

e e

C
C
C
€
C
C
C
C
C
C
C
C
C
C
C
C
C

SEQ 24

T=Jul=1
13:33:30 Disasusenz:Coier e EASEIZROAB0.BLT 18" (23)
Z1oJu1983

RD/RX EXERCISER

see # 31

see # 31
see # 47

[

1.2

IRQAM

L4
-

.
-

.
.

v
.

L4
.

@
.

k
-

Host memory access error.

See #50.

Disk transfer error.

See #50.

‘Standard

e e e JE I

PSSR

W
w

§333

VAX-11 Bliss=16 V3-555

DISKSUSER2: [DIETZ.RELE

SOFT ERRORS

See

Controller error.

error-l

ket for

details as tgg .Q:Sz cause

= l=lelelelelel=l=

B
—b
2

alalalalalalalalalalalalalalslely]

ittt
RER 3

RD/RX EXERCISER

IROAMT
v01.2

may not be evident.

error.

Disk

‘'Small Disk' error.

Inteconnect’

See #50.
See #50.

'."

SEQ 25

AS!JIIOAlo.lliggs'(Zs?

—

ZROAM
v01.2
3

C 1041

€ 1042
C 1043
C 1044

:
:

C 1046
C 1047

7.0

DATA PATTERNS

C 1045

C 1049

HEX

OCTAL
RANDOM

BINARY
NUMBERS

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

RD/RX EXERCISER

3
:
5

SEQ 26
26
e
g
a
P
V3-555
VAX=11 Bliss=16
Z:[DIEVZ.RELEASE]ZROABO.BL1:?8‘(26)

|2v

:
:
:
:
:
:

DISKSUSER

’

E }8;?

Pattern 1

E }82%

Pattern 2

0000

000000

0 000 000 000 000 000

E }82?

Pattern 3

FFFF

177777

T1MMMTIMMT 1M M

E }829

Pattern &

8888

105613

1 000 101 110 001 011

E }823

Pattern 5

3333

031463

0 011 001 100 110 OM

E }82?

Pattern 6

3091

030221

0 011 000 010 010 001

:
:
:
3

C 1062
C 1063
C 1064
C 1065

Pattern 7

0001
0003
0007
000F

000001
000003
000007
000017

0 000 000 000 000 001
0 000 000 000 000 011
0 000 000 000 000 111
0 000 000 000 001 111

C 1069

O0FF

000377

0 600 000 011 111 111

3
3
3

c 1071

:
2
3
2

C 1074
c 1075
C 1076
c 1077

:
$
]
3
3
:
3
3
3
:
4
3
3
:

O1FF

¢ 1070

3
3

001F
003F
007F

C 1066
C 1067
C 1068

03FF

O7FF
OFFF

Cc 1072
c 1073

C 1078

c 1079

C 1080
C 1081
C 1082
C 1083
C 1084
C 1085
C 1086
C 1087
C 1088
C 1089
¢ 1090
c 1091
C 1092
C 1093

Pattern 8

000037
000077
600177

000777

001777

003777
007777

1FFF
3FFF
7FFF
FFFF

017777
037777
077777
177777

FFFE
FFFC
FFF8
FFFO
FFEO
FFCO
FF80
FFOO
FEOO
FCOO0
F800
F000
E000
c000

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170900
160000
140000

0 000 000 000 011 111
0 000 000 000 111 111
0 000 000 001 1171 1M

0 000 000 111 111 1M
0 000 001 1171 111 1M

0 000 017 117 111 MM
0 000 117 1171 111 MM

0001 11T 11T 11T MM
8 011 111 111 111 1
MMMt mMm
T1MM MMM 1M mM

7111 111 111 111 110
7111 111 111 111 100
7111 111 111 111 000
7111 111 111 110 000
1111 111 111 100 000
7111 111 111 000 000
7 111 111 110 000 000
1111 111 100 000 000
17 111 111 000 000 000
17 111 110 000 000 000
17 111 100 000 000 O
i 111 000 000 000 O
1 110 000 000 000 000
1 100 000 000 000 000

s
:

t
:
:
:
:

:
:
:
:

.4
;

;
;
:
:
:
:
‘

RD/RY EYERCISER

ZROAM1
v01.2
:
:

SEQ 27

PGBO 27
VAX=11 Bliss=16 V3-555
21=Jul=1983 15:25:58
0 (24)
ABO.BL1;1
LEASEIZRQ
21=Jul=1983 15:19:20 DISKSUSER2: [DIETZ.RE

C 1096
€ 1095

8000
0000

100000
000000

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

Qes )

<¥~

SEQ 28

M)
=

W- 1o g -— >N |

>ao«->

ao o a s

— — Or O ~ © O0O0r rO r OrOrOr rrerO0 r~O0-r—O—O

=G o g g g g g g g g g g - g g g g g g

AR 888--=88-r8r8r8- ¢ S5552225522525252 S22555225525558

2
¢

Bei

21=Jul=19
21=Jul=19

e ao

RD/RX EXERCISER

ZROAMT
v01.2

WO
woey
@wo

MM sl["a -

SEQ 29
29
VAX=11 Bliss=16 V3-555
25)
1;1
DISKSUSER2: [(DIETZ.RELEASE JZROABO.BL
Pa 8e

E
ZROAMT

RD/RX EXERCISER

SEQ 30
Pa
89 30
V3-555
iss=16
Bl
VAX=11
(26)
L1:1
ZRQABO.B
RELEASE]
TZ.
DISKSUSER 2:[DIE

51-Jul1=Jul=

0 110 110 110 110 110

—e

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

RD/RX EXERCISER

€ 1207

0B6(C

1555564

1 101 101 101 101 100

SEQ 31
k1)
Pase
VAX=11 Bliss=16 V3-555
(26)
DISKSUSER2: [(DIETZ.RELEASEJZROABO.BL1;10

sEQ 32

P,
32
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ .RELEASEJZROABO.BL1; 7 7)

¢¢
.-

Jum OO r OO0 rrrer-OO0O0000 O —O00rrererO000e0

& ~a

(-]

T-ONiRT

2 ot}

LA
SRS AA
SEER

= == OO OO r= v= = v= = O OO 0 OO

RSLRRRERRaBRIAR SR s

e o

o o OO 00000 rrrmrre - OrreO000rr 000000

3z = ==e-8r8 r8rCor0 r8-8 8~3=8- 8--8 -88-8-8--8r3-8=3c=8 &

P
VAX=11 Olist=16 v3-555
DISKSUSER2:[DIETZ.RELEASE JZROAB0.BL1;

134631

Pattern 20

LBN

Pattern 21

Pattern 19

B
5

5”
RD/RX EXERCISER

PROCAAR HEADER

AR TR R A TRTR TR T T O D O L L Y

o
1302

Nsbtel *PROGRAN WEADER"

1306

require *BLSMAC.REQ':

}g Library *ZROABO.L16":

S tnon_oF_tesTs = 1
fi e
1

ey 10

S e T

' RDRX EXERCISER GLOBAL LIBRARY

' DIAGNOSTIC SUPERVISOR LIBRARY

' NUMBER OF TESTS IN THIS DIAGNOSTIC

EQUALS;

POINTER (ALL):

‘ N( PROGRAM HEADER IS flf INTERFACE BETWEEN

i "C DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

MEADER (Zascii'ZROA®, Zascii’'B', Zascii'0’, 32767, 1, PRIOD);

SEQ 34

ac L Ase 1200400, 001: 38" (29)

‘e

00 NO V8NN
=2

Tsbtel *DISPATCH TABLE®

iatt RERER

! THE DISPATCH TABLE CONTAINS THE STARIING ADDRESS OF EACH TEST.
! IT IS USED BY THE SUPERVISOR TO DISPATCHM TO EACH TEST.
DISPATCH (DSSNBR_OF TESTS);

-y
"

v3-555

'SIO 3,

Diskdusehz: Doier2 .RELEASE uw.a:;?fl'c )

TR TR LALA T T

DISPATCH TABLE

THE GLOBAL- DATA S!C}ON CONTAINS DATA THAT ARE USED

‘um THAN ONE T
t

glebal_ = $SFFF$ (read, nowrite, execute, local, concatenate);
obal

33333332SEIER

CST: blockvector uwx
cm “Ig}.?"

NN A00 0o i
0o Co Co Co Co OO
W FURZS
A
)

e e T T T T T T TRTR T TR TR TR DR DATR LA LALR LRLl L ITR IR R A R A T R L TR T T TRL L D T
e

'lhm,'au DATA SECTION'

vg;dg'"fl‘(tszsnum.

DS)
wc.-ou:l 0 Ld (CST_FIEL
CST_ADDR: ref block ! (csv
ADDRESS OF "‘CURRENT'* CONTROLLER
CONTROLL
DCT : blockvector m’gyg‘ Dfl*!l.
m! 510“
(DCT_FIELDS),
DCT_ADDR: ref block' CDCT
wc.
m DRIVER
(m FIELDS)
ADDRESS
OF °'°Ct’
CONTROLLER TABLE
"

_ RDRX_ADDR :.ref rm mu (RC m)

VICE ADDRESS OF *‘CURRENT'’ CONTROLLER

lmz ADO! < ret’ r¢rl cld (RC_REG),

‘a ADDRESS OF m;mmns CONTROLLER

DUPPKT : BLOCK [257, m

field (DP_FIELD

DUP INFORMATION FROM RECEIVE AND SEND COMMANDS
' BUFFERCONTAINING

I.EN m: field (T_FIELDS),
TALLY : vector [MAX""sw;s;fi?
T_ADDR
: ref block UALU LEN, uord] old (T_FIELDS),

' ADDRESS OF mnsncs TABLE 5"‘{“) FOR CURRENT UNIT
word)

: bloctmtor CMAX_CTLR
C_ERR_TBL

field (c _ERR_FIELDS),

! STATISTICS antemcénmn.

MSCP_PKT : blockmtor.ggr'curPKT_LEN, word) mu cmmus).
: ref bloclx tmLE
IPKT_ADDR
PKT_USE : vector trn Cut

uord

field (PKT_FIELDS)

S OF AN MSCP PACKET TINTERUPT PROCESSING)

MSCP

PACKET

RETPKT : bloclwoctor tv CNT, RP_LEN,

RETURN PA c!t

ABLE
ALLOCATIONTASL

word)

tield (RP_FIELDS),

! RETURN
PAC! 'm‘
Auocmon TABLE
RP_INDX
:
CURRENT m
PACKET INDEX
RPTADDR: e’Gtocu tv Lsu mc field (P _FIELDS),

RP_USE : mtor(lflcm

byte

?a T RETURN PACKET RDDRESS
P_CNT, EP_LEN, word)E"“ (EP_FIELDS),
: blockmtor
ELOG_PKT

OGPATKET SAVE AR

‘ 170 BUFFER OWNERSHIP (CONTROLLER NUMBER)
sicned],
tNT
[LEN
vector
M
BUFF
1000”:
vector
Ciopa_
bytel, syto. 170 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES
BUFF_ADDR
: \m:tor (MX BUF_C

00i
l
B RlEaseazm0n
R NS

SOl

GLOBAL DATA SECTION

100Q_ xn uord.
1000

eummsonGm.

TABLE OF 1/0 BUFFER DESCRIPTORS

170 DONE QUEUE IN POINTER
1/0 DONE QUEUE OUT POINTER

CURRENT OPERATOR COMMAND

(
(

{
(
(
(
(
(
(
{

[
1
l
1
(
|
l
1
[

[
1
[
1
<
1
1
|
|
|

SEQ 37

nmaz:f;mz.ummm.m 1 )

~
»

s 3E , g

LIPSP P P e N N

VAX=11 Bliss=16 Vv3-555

GLOBAL TEXT SECTION

:
~N

S8
:20
1=Jul=198 ‘lg g
=Jul=-198

RD/RX EXERCISER

3‘)
P,
v3-555
Bliss=16_
VAX-11
?rc
m.m..mtmu
nmaz:bltrz

Tsbttl °"GLOBAL TEXT SECTION®
‘ flf GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
MORE THAN ONE TEST.

3
|

'lobol bind
: HARDWARE DIALOG

3
:
:
:

10
n
1;

HWO1 = uplit (Rasciz2'IP ADDRESS')
Mg = uplit (Zasciz"VECTOR') :
HWQ3 = uplit (Zasciz'BR LEVEL')

HWQS = uplit (Zasciz'lS DISK AN RD51 WINCHESTER (NO, IMPLIES AN RXS50 FLOPPY)*),

23
3

HWO4 = uplit (Zasciz'RD/RX DRIVE

R*),

M? = yplit (Zasci2"STARTING LBN'),

HWQ7

= uplit (Zasciz"ENDING LBN (MAXIMUM =

RXS0: 799, RDS1:giS”)').

ses CWIM')
BE OVEM"TENAREA)‘)
MAY
DATA AREA
= CUSTOMER
WARNING
(Zasciz'+*+
= =uplit
HWQ9
(=NON-CUSTOMER
HWO10 uplit (Zasci2'ALSO EXERCISE ON DIAGNOSTIC AREA

18
2919
1

HWO8 = uplit (luciz'mlft ON CUSTOMER DATA AREA ON THIS DISK

HWQ11 = uplit (Zasciz2'WRITE ON DIAGNOSTIC AREA')

223“2,(1)

3
3

2922
223%4

2925

SWal

:33

2927
2928
2929

SWa4 = uplit (Xasciz'RANDOM SEEK MODE'
CONTROLLER')
ATAT THE
PERF&RHED
-COMPARES
(Xasciz'READ
uplit
=
SWQ7
CWTR(I.LER"
THE
PERFORMED
SWa9 = uplit (hsciz'lfilTE-CWMES

:
3

2942

2938 !
2939 !
940
2941

294

2945

2946

g%g

949

(Sasciz SELECT PRE-DEFINED DATA PATfERN (0 FOR SEOUENTIAI. SELECTION)*),
uplit
=
SWa12
SWO13 = uplit (Zasciz'NUMBER OF UORDS IN DATA PATTERN (16 MAXIMUM)®

3
93

SWQ10 = uplit (Xasciz'CHECK ALL WRITES AT HOST BV READING'),
SWa11 = uplit (!asciz'USER-DEFlNED DATA PATTERN'

2930
2931
2934
2935
2936
2937

950

= uplit (!asciz'mo ERROR LIMIT®),

SWa2 = uplit (Xasciz'TRANSFER LIMIT m MEGABYTES (0 FOR "QUICK PASS'*),

2926

3
3
2
3

3
3
:
3

!
: SOF TWARE DIALOG

lev

SWa14 = uplit (!asciz'PAnERN VALUE'),
SWA15 = uplit (Zasciz'CLEAR STATISTICAL TABLES AFTER PRINTING'),
SW017 = uplit (Xasciz"PERCENTAGE OF RD51 OPERATIONS OUT OF TOTAI. OPERAHMS')‘
SWQA19 = uplit (Xasci2"UNITS TO BE SELECTED AT RANDOM (NO Ll§$ SEQUENTIAL) '),

SW020 = uplit (!asciz'UANT TO REWRITE B.L.OCKS WHEN "FORC56 ERROR *DETECTED ON READS ).ALSO')
SWa21 = uplit (Zasciz'IF "HALT ON ERROR'' FLAG SET, WANT TO HALT ON HARD/SOFT ERRORS
SWa22 = uplit (lasciz'MER OF DBNs READ AT ONE TIME (effects RDS1s onl ‘
SWM1 = uplit (Zasci2’' THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED ISKS').

NULL

= uplit (Zasciz2'’'

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 (%asciz'XNXA++ DROP UNIT %02°),

RD/RX EXERCISER
GLOBAL TEXT SECTION

’SEO 399

VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO .BLT:?B'(Bz)

51-J0l°l983 15:25:58
«Jul=1983 15:19:20

DBHTZ = uplit (Xasciz"INXA+x PROC RETPKT: CONN ID = IDSXA RECEIVED'),
= qu t (lasciz'!N!A" MULTI-DRIVE TEST'

DBHTB
DBM19
DBM20
DBM21

= uplit (Rasciz2'INXA+~ FATAL ERROR: RETPKT NOT AVAILABLE'), CST w1,
= uplit (Zasciz'INZA«+ FSET_OPAR: CAN''T FIND DISK XZD3ZA IN
= uplit (Zasciz'INIA++ BAD TONN ID = XD5XA RECEIVED FROM 206°),
= uplit (%asciz'INIA++ MESSAGE TYPE XD2XA RECEIVED IN MSCP PACKET'),

DBM22 = uplit (Zasciz2'INZA++ SEQUEN: RETPKT NOT AVAILABLE 3o
= uplit (Xasciz'INXA++ ERROR IN SET_CTLR_CHAR'),
DBM23

= uplit (Zasciz'INXA++ CTLR TIMEOUT= !D3!A SECONDS*),
DBM25
DBM26 = uplit (Zasciz'INXA++ ERROR IN UNIT_INIT'),

DBM27 = uplit (Xasciz®INXA«+ UNIT_INIT: RETPKT HAS BAD ENDCODE'),
DBM28A = uplit (Zasciz'INIA++ UNIT"SIZE (LO) = %D5'),

'
!
!

DBM28B = uflit (Zasciz'INZA*+ UNIT SIZE (HI)= XD5'),
DBM29 = uplit (Xasciz'INXA++ ACCESS: RETPKT HAS BAD ENDCODE')

DBM32 = uplit (Xasciz'XINXA++ QIO UNIT: CST 101!A NO UNIT SELECTED®),

# IS: 206°) t
DBM101 = uplit (Zasciz"INXA++ UNIT

DBM104 = uplit (Zasciz*INZA++ RXS50 IS SELECTED®)
%06°),
DBM107 = uplit (Yasciz'INIA++ ILLEGAL FUNCTION:
REF # ZID5ZA. NOT SENT BY HOST'),
DBM105 = uplit (Zasciz'INXA++* RD51 IS SELECTED').

DBM108 = uplit (Xasciz'XINIA+«+~ COMMAND

DBM109 = uplit (Zasciz'INTA++ UNKNOWN ERROR LOG FORMAT ZD3XA. RECEIVED')

DBM110= uplit (Xasciz'INXA++ ERROR-LOG SAVE AREA FULL'),
' DBM111 = uplit (Zasciz'INXA++ REINIT MSCP EXERCISER'),
DBM112 = uplit (Xasciz"INXZA«+ DUP_RSP: RETPKT NOT AVAILABLE

| DROP UNIT MESSAGES

DU_MSG = uplit (%asc iz INFAUNITED2ZA DROPPED - *),
DU_RSN = up
uplit (Xasciz'ZAUSER COMMANDZN®),

uplit (!asciz'!ACONFIGURATION ERRORIN'),

uplit (XZasciz'XAINIT ERRORZN')

uplit (Zasciz"XATRANSFER LIMIT REACHEDZN'
uplit (Xasciz'XAERROR LIMIT REACHEDAN'),
uplit (Xasciz'XAUNRECOVERABLE DEVICE ERRORIN')
uplit (Zasciz'XAUNRECOVERABLE CONTROLLER ERROREN'),
uplit (Xasciz'XAFAILED TO COME ONLINEZN'),

uplit (Xasciz'ZAFAILED TO ACCESS LAST TRACK DURING INIT2N'),
uplit (Xasciz'ZADISK WRITE PROTECTEDXN
uplit (Xasciz'XACOMMAND TIME OUTIN')

‘

uplit (Xasci2'XAUNIT WENT TO AVAILABLE STATEIN')) : vector [11],

g SYSTEM MESSAGES (PRINTF)
MSG_01 = uplit (Xasciz'INXAPOWER DELAY - UAITING')

MSG_02 = uplit (Xasciz"XNXAFUNCTIONAL TEST STARTED }a

]

MSG_03 = uplit (Xasciz'INXNZAEXERCISER STARTEDZN')

g REPORT MESSAGES (PRINTS)
RPT1
RPT2
RPT3

= uplit (lasc1z'2NZN!AUNT DSKXS8XA# OF
# BYTES
# OF
= uplit (Zasci2'%A =-HARD ERRORS== ==SOFT ERRORS=="),
= uplit (%asciz'NXA #
# TYPE READS
READ
WRITES

# BYTES'),
WRITTEN'),

~Jul=1983 15:19:20

gggg §

3028

:
:
:
3
:

3030
3031
3032
3033
3034

3038

:
:

3029

i GENERAL ERROR MESSAGES

:
.

SYSTEM FATAL (ERRSF)
EGS_01 = uplit (Zasciz'TOO MANY UNITS')

EGSZ02 = uplit (Xasciz'NOT ENOUGH raes MEMORY FOR ALLOCATING READ/WRITE BUFFERS'),

DEVICE FATAL (ERRDF)
EGD_10 = uplit (Zasciz'REGISTER EXISTENCE TEST FAILED'),
EGD"11 = uplit (¥asciz'VECTOR TEST FAILED')

EGD-12 = uplit (¥asciz'BR LEVEL TEST FAILED®),
EGD_13 = uplit (Xasciz'INIT SEQUENCE FAILED').
EGD 14 = uplit (Zasciz'FATAL CONTROLLER ERROR®),
EGD-15 = uplit (Xasciz2'ONLINE FAILED'),
EGD-16 = uplit (Xasciz'WRITE=-PROTECT CONFLICT ),
EGD”17 = uplit (Xasciz'ACCESS FAILED')
EGD-18 = uplit (Zasciz'FATAL 1/0 ERROR

3035
3036

= uplit (Zasciz'CONTROLLER rxnsoui'>
3037 ! EGD19
EGD-20 = uplit (Zasciz'FAILED TO SEND SET-CONTROLLER=CHARACTERISTICS COMMAND'),

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

3039

EGD-22 = uplit (Zasciz'FAILED TO SEND ON-LINE COMMAND').
EGDZ23 = uplit (Xasciz'ON-LINE RESPONSE HAS BAD ENDCODE®),

3040
ggz;

;

3822

ggzg

;

:
:
;
;

ggzg
gggg
ggg;
%822

| BASIC ERROR MESSAGES (PRINTB)
SYSTEM FATAL (ERRSF)
g
: EBS_01 = uplit (%asciz'SAMORE THAN XD2XA UNITS SPECIFIED'),
DEVICE FATAL (ERRDF)
§

3055

EBD_10 = uplit (Xasciz'¥Av NO RESPONSE AT ADDRESS X06')

:
:

#BLKS '),

ggg; §
3023 ~
gg%g

#OF

WRITES WRITTEN '),
READ
TYPE READS
RPT14 = UPLIT(!ASCIZ INZA
‘5,
'INIA
RPT1S = UPLIT(YASCIZ
),
SXD6XS3XD6'
XD6XS3XD6XS
DBNRDS1
2XS4ID2XA
IZ'INZS1XD
RPT16 = UPLIT(YASC

;
;

# BLKS

3056

HARD or SOFT (ERRHRD or ERRSOFT)

EGH_30 = uplit (%asciz'1/0 REQUEST FAILED'),

EBDTM12 = uplit (Yasciz'%A+ INCORRECT BR LEVEL FOR DEVICE %06'),

gg;g

3014
3015
28}9
3018

# OF

:
;
:
:

RPT13 =

3013

;

zoazA

Lnumurmmumn NS

RPT12 = gglit (Yasciz'%A

3012

RPT10 = uplit

3010

SIS

;

3007
3009

').

= uplit (Xasciz'XA

3008

RPT6

aline

RXS0'),
(!ascfz'!fl!bZIDA!A
RPT? = uplit (Yasciz'INI
D2ID4ZA n
RPT8 = uplit
D4XISIDITA,173X, £23
RPT9 = uplit (Zasciz'¥
o«zo«xolzoazolzoazoi'
(zasciz'zo&z

3006

:
;

3004
3005

oxsxsuseaz CDIETZ.RELEASEJZROABO.BL1;10 (32)

RPT4 = uplit (Yasciz'3A SEK DAT DRV HST SEK DAT DRV HST'),
RPTS .= uplit (hsciz INZA

;
3
3

SEQ 40

Paae 40

GLOBAL TEXT SECTION

VAX=11 Bliss=16 V3=555

51-Jul-1983 15-25:58

RD/RX EXERCISER

ZRQAMI
v01.2

206),
fszs':ze
'm*asaa.
Bap
(Fasci
asciz2' aEAe
UBLit
c
Eop-1e
ciz'XAr DISK!DZ’!A WENT OFFLINE
EBD18uu:lit(Xas
EBD_19= uplit (Xasciz'%A~ DEVICE Z06%A NOT PRDCESSiNG COMMAND PACKETS'),

0%
059
30603061

HARD or SOFT (ERRHRD or ERRSOFT)

3064

EH_0 = UPLIT (XASCIZ®' = unrecognized MESSAGE TVPE')

R
30691
3070 |
30;1

KET
|
S
CAN
Tzeg
meeoom
o
CRASETEY
TE
U
o
ENT
EM_S = UPLIT (XASCIZ'= UNRECOGNIZED OPCOD
= UPLIT (XASCIZ® = MSCP STATUS CODE ERRO&').
EH_;
EH_7 = UPLIT (!ASC]Z: - DUP STATUS CODE ERROR')é

n id' 5
EN-1 = UPLIT (3ASCIZ' = unrecognized connectio
5,
Efl_i = UPLIT (XASCIZ' b g unrecognized RETURN nssage

3065
3069

EH-10 = UPLIT (XASCIZ® = DBN uosr COMPARE moa S

3074

M
EH_1§ = UPLIT (XASCIZ®' = UNABLE TO LOAD DUP

3075

E=R1CO; QP:.“X’{":X?SCIZ' = ERROR IN DUP=PKT UHEN USING CTLR LC PRG"),

38;9

uplit (!lsciz'!AINVALID COMMAND '),
uplit (Xasciz'IACOMMAND ABORTED')
uplit (!asciz'uwn OFFLINE"),

3078
3079
3080

3083

Dt sz Rl TE-PROTECTED

3088

3’5m (Yasciz'XADRIVE ERROR')
sciz

PO
é':'%""‘)“: vector
CONPARE
AMOST
(Xascis'I
UDLIE
[14],
TIMEOUT'))
MMAND
(Zasciz'SACO
uplit

3000
g%}
gggz

"ERROR LOG MESSACE (ERRSOFT)

gggz

Etg?ar = up“: glasciz'!NmRROR LOG McSSAGE RECEIVED:2IN'),

3INg7

uplit (Xasciz'XA+* CONTROLLER ERRORXN'),

3100

upl'!t (Zasciz'XA+ HOST MEMORY ACCESS ERROR!N')
uplit (Yasciz"¥A* DISKXD2XA = DISK TRANSFER ERROR!N ),

8
3099

ERRORIN'),
uplit (Xasciz'¥A+ DISKXD2XA - '‘STANDARD DISK INI’ERCOME: CT"
vector [5].
uplit (Zasciz'%A+ DISKID2XA= '‘SMALL DISK'* ERROREIN'))

g:g}

g}gz

: EXTENDED ERROR MESSAGES (PRINTX)

3105
3106
3107

3108

3109

EX_BDR = uplit (Zasciz"INXAI/0 BUFFER ADDRESS FOR READ (32 BITS): X06%A Z06ZIN‘),
EXBDOW = uplit (Xasciz'INTAI/O BUFFER ADDRESS FOR WRITE (32 BITS): X06%A X06'),
EX LBR = uplit (Zasciz'INXALBN: (READ) XD5ZA. ( T 206%A)°)

5,
EXTLBW = uplit (¥asciz'INZALBN: (WRITE) XD5ZA.(r 106%A)

SEQ 41

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

SI-Jul-WB5:25:58
1=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL TEXT SECTION

ggg%

e
————————_
P
.

Sl-Jul°1983 15:25:58
RD/RX EXERCISER
1=Jul=1983 15:19:20
SECTION
TEXT
GLOBAL
EX_RBN = uplit (%asc iz XNXAREPLACEMENT BLOCK NO. ¥DSZA. (OCT 306%A)*),
EXCCBR = uplit (Zasci2'INTABYTE COUNT IN READ COMMAND: XD5SZA.‘)

EXCCBW = uplit (Xasciz2'INXABYTE COUNT IN WRITE COMMAND: I5%A. 'S,

XX13 = UPLIT (XASCIZ'INXA + DISK.; 2*),
XX14 = uplit
XX15 = uplit
XX16 = uplit
XX17 = uplit
XX18 = uplit

(Zasciz'INXASA: 206'),
(Xasciz'INXASTATUS CODE: '),
(Xasciz'INZASTATUS SUB=-CODE: '),
(Xasciz"INZACOMMAND: °*),
(Xasciz'XA-DUP-')

XX19 = uplit (Xasciz'IA-MSCP-'],

xXX20 = uplit (Xasciz'X¥A-COMPARE'),

XX21 = uplit (Zasciz'INXABAD BLOCK REPORTED: X05%A.°),
XX22 = 8Blit (Zasciz'INTALBN: IDSXA. (OCT X06%A)°'),
UPLIT (XASCIZ®INXADBN: ID5XA. (OCT Z063A)*)
XX23 =

XX24 = uplit (Zasciz'INTABYTE COUNT IN COMMAND: XD5°),
XX25 = uplit (Xasciz'INZAACTUAL # OF BYTES TRANSFERRED: XDS')
XX26 = uplit (Zasciz'INXAI/O BUFFER ADDRESS (32 BITS): 306%A £06°),
XX27 = sglit (Zasciz' INXACONTENTS OF RETURN PACKET:IN'),
XX29 =
UPLIT
XX30 = UPLIT
XX31 = UPLIT
XX32 = UPLIT
XX33 = UPLIT

(XASCIZ®INIAMESSAGE TYPE: '),
(XASCIZ®INIAMESSAGE NUMBERS: °),
(XASCIZ'INIAMESSAGE ERROR CODES: *),
(XASCIZ'INYABYTE NUMBER: %D3°),
(XASCIZ'INIARANDOM WRITTEN WORD :%816'),

XX3% = UPLIT (ZASCIZ®INIARANDOM READ WORD bin:¥B16%A oct:%06'),
XX35 = UPLIT (XASCIZ'INIACRN : 206')

I1XX36 = UPLIT (XASCIZ*INZATHE EXPECTED CRN : %06'),

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

XX38 = UPLIT (XASCIZ'ZA = UNKNOWN CONNECTION ID: %D3%A -*),
XX39 = UPLIT (XASCIZ'INZACONTROLLER FLAGS:'),
XX40 =
UPLIT (XASCIZ'INXAUNIT FLAGS:'),
XX41 = UPLIT (XASCIZ'INZAEND MESSAGE FLAGS:*),

) b b - - b D i
—
e
T

C 1z
S1

INIA DRIVER CONTROLLER TABLE = ADDR: ¥D6IN'),
"IN2A CMD INT, RSP INT, COMMAND RING = ADDR: X¥D6IN'),

. UPLIT (!ASE 12 ¢ INIA ALL PACKETS IN MESSAGE AREA'),

12 INIA ALL RETURN PACKETS IN AREA‘) :
EBZRAL = UPLIT (ZASCIZ'
EB_ADDR = UPLIT (%AS Cl Z'INIA ADDR: ZD6XA ' PACKET = IN'),

12
EBREX1 = UPLIT (XASCIZ'INXA
ADDR OF RESPONSE RING TO BE POLLED 2Dé6°),
Cl 2
EB_NEX2 = UPLIT (XASCIZ'INXA
ADDR OF MESSAGE PACKET RESPONSE RING SLOT POINTS TO %Dé'),
EBNEX3 = UPLIT (XASCIZ'XNXA ADDR OF MESSAGE PACKET COMMAND RING SLOT POINTS TO XD6°),

; CONF IGURATION ERROR MESSAGES (PRINTF)

CER_01 = uplit (Zasciz'¥NXADUPLICATE UNIT:XD2%A AT IP: 206°'),
CERZ02 = uplit (Zasciz'XNXAMORE THAN 2D1XA DIFFERENT IP ADDRESSES®),

i MESSAGE TYPES

SEQ 42

Paae &7
VAX=11 Bliss=16 V3-555
0 (32)
ABO.BL1;1
LEASEJZRO
[DIETZ.RE
2:
DISKSUSER

D
O
&

b b b

) —d

BB S BB
OO
O N VIS
=00

b - -

b -

b b

b b -

UWWWWWWWWW

NN NN NN NI NI NI N

b b b b ced b b e d b

N U LN U U N N L N U A N U L N N U U G U U N U U U N N N N N O N N —
N N
N N N N
N N N
NN N NN NN
N W NN
i b e e
b e o
e e e e e o e
D e o o

T T

e e

e T

T T

R PR TR R

TR TRTR

PRTR

LALR LRL L [TEIAIATEATA

A TALE

MR R

T T

3163

3164

EX_SEQ = UPLIT (XASCIZ'ZA- SEQUENTIAL"®)
).
EXCRD = UPLIT (XASCIZ'3A=- CREDIT nonricmou'
EX HTN = UPLIT (XASCIZ'XA- MAINTENANCE®)
EX DGH UPLIT (ZASCIZ'XA- DATAGRAM'),

3165

:
3
:

3169
3170
In

! commands
!nscg
X_RD = uplit (!asciz'!AREAD')

g};g

> EX_SCC = uplit (!asciz'nSET CONIRO' CHAR.'),

3177

EX_GDS = uplit (Zasciz'IAGET DUST STATUS'),

3
:

3179
3180

H
:

s
;
:

2166
g}gg

3172
3173
3174

X_WRT = uplit((Zasciz ' SAWRITE')

EX_ACC = uplit (!asciz'!MCCESS ]
EXTONL = uplit (Xasciz'SAON LINE'),

3178

3181

EX_ESP = uplit (Zasci2'YAEXECUTE SUPPLIED PRG')
EX ELP = yplit (!lsciz'uEXECUTE LOCAL PRG'),
EX_SDD = uplit (Xasciz2'IASEND DATA'),

EX_“RCD = uplit (hsciz‘WECEIVE DATA')
X_ABP = uplit (Xasciz2"ZAABORT'),

g}gg

%}gg

: ERROR/EVENT SUB CODES (PRINTX)

:
3

3186
3187

SC_SDI = uplit (Zasciz'ZASPIN-DOWN IGMJRED')
SC_CON = uplit (XYasciz"XASTILL CONNECTED'),

3189

SCCONL = uplit (Xasciz'ZAALREADY ONLINE®)

3188

3190

2
3
3

3192
3193
3194

2
2

3191

SC_DUP = uplit (!asciz'flDlPUCATE UNIT MER')
SC_SON = uplit (!ascfz'!ASTILL ONLINE®)

SC_UNK = uplit (Zasciz'ZAUNIT UNKNOWN Ofi ONLINE TO ANOTHER CONTROLLER')

SCCVOL = uplit (Xasciz'ZANO VOLUME MOUNTED OR DRIVE DISABLED BY SWITCH' 5
SC_IOP = uplit (lasciz'fllfl" INOPERATIVE (RDS1 WRITE FAULT')
SC_DIS = uplit (Rasciz2'!AQNI DISABLED. B8Y FIELD SERVICE OR leERNAL DIAGNOSTICS®),

3195
3196

SCCFER = uplit (Zasciz'ZA’FORCED ERROR ' DETtC]ED WHILE ACC;SSING FCT OR RCT*),
SC_FE2 = uplit (Zasci2"ZASECTOR WRITTEN WITH ‘FORCED ERROR'® MODIF IER' )

3198
3199
3200

3201

SC_IS2 = uplit (Xasciz'XAHEADER COMPARE ERROR (VALID HEADER NOT FOtM) ).
SCTDST = uplit (Zasciz'XAFCT OR RCT UNREADABLE - DATA SYNC TI!EWT ).
SC_DS2 = uplit (Zasciz'ZADATA SYNC NOT FOUND (DATA SYNC TIMEOUT)
SCCECC = uplit (Zasciz'ZAFCT OR RCT UNREADABLE - UNCORRECTABLE ECC ERROR ,

3203

SCCRCT = uplit (Xasciz"ZARCT CORRUPTED'),

3
2

3205
3206

SC2576 = uplit (Xasciz"ZADISK NOT FORMATTED WITH 512 BYTE SECTORS'),
SCCFCT = uplit (Zasciz'XADISK NOT FORMATTED OR FCT CORRUPTED'),

2
2
2
[

3197
3202

3204
3207

SC_ECT1 = uplit (Zasciz'XAONE SYMBOL ECC ERROR')

SC_EC4 = uplit (Zasciz'ZAFOUR SYMBOL
SC_ECS = uplit (RZasciz2"ZAFIVE SYMBOL ECC ERROR

3213

2
2

SCCFUL = uplit (Xasciz'XANO REPLACEMENT BLOCK AVAILABLE (RCT FULL)"),

3210
3211

3209

SCCECD = uplit (Zasciz'XAUNCORRECTABLE ECC ERROR'),

SCCEC2 = uplit (Zasciz'ZATWO SYMBOL ECC ERROR' )

:
2

SCCISH = uplit (Xasciz'ZAFCT OR RCT UNREADABLE - INVALID SECTOR HEADER

3208

3212
3214
3215

ECC ERROR ),
SCCEC3 = uplit (Zasciz"XATHREE SYMBOL ECC
ERROR')
SC_EC6 = uplit (Zasci2'YASIX SYMBOL ECC ERROR' )

SCCEC7 = uplit (XZasciz2'2ASEVEN SYMBOL ECC ERROR

SCCEC8 = uplit (Xasciz"ZAEIGHT SYMBOL ECC ERROR'),
SCCECY = uplit (Zasciz'ZACORRECTABLE ERROR IN ECC HELD

SEQ 43

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

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

RD/RX EXERCISER
GLOBAL TEXT SECTION

ZRQAM1
v01.2

e
———————
e
Y To T T T T T T
Y

5%2 :

SCCPSP = uplit (Zasciz2'ZACONTROLLER DETECTED PULSE OR STATE PARITY ERROR'),

2;2! MSCP END MESSAGE FLAGS

3237

iF_0 = uplit (!asciz'!NIA: Bad Block Reported®),

239

F_2 = uplit (Zasciz"INXA | Error Log Generated

241

!"MSCP Controller Flags

238 F_Y = uplit (Zasciz"INZA ! Bad Block Unreported )

240 F_3 = uplit (Zasci2"INZA ! Serious Exception’ - Py

3242
3243
3244
3245

F_& = uplit (Zasciz*INXIA! Enable Attention Messages'),
F_S = uplit (Zasciz"INZA! Enable Miscellaneous Error Lolbflossages')
ssagos
f_g = uyplit (Zasciz"INIA! Enable Other Hosts Error Log
F_7 = uplit (Zasciz"INZA! Enable This Hosts Error Lo? flessafe

3247

F_9 = uplit (Zasciz"INXA! Shadowing'),

g%g?

: MSCP UNIT FLAGS

3252
3253

F_11 = uplit (Zasciz"INZA! Compare Reads')
F_12 = uplit (Zasciz'INZA! Compare Writes'

3255
3256

F_14 = uplit (Zasciz'INXIA! Inactive Shadow Set Unit')
F_15 = uplit (Xasciz'INZA! Removable Media'),

3258
3259
3260

F_17 = uplit (Zasciz'INZA! Suppress Caching (low speed) 2
F_18 = uplit (Zasciz'INZA! Write-back (non-volatile)'),
F-19 = uplit (Zasciz'INXIA! Write Protect (hardware)'),

gggg

f_Zl = uplit (Zasciz2"INZA! 576 Byte Sectors'),

3264

| DUP RETURN PACKET MESSAGES

3246 F_8 = uplit (Zasciz'INZA! Controller Initiated Bad Block Rplcmnt %y,

g%zg 5_10 = uplit (Zasciz'INZA! 576 Byte Sectors'),

32564 F_13 = uplit (Zasciz"INXA! Controller Initiated Bad Block Rplcmnt®),

YOO

ENNYNYE

RPN

N SN

SCCCLK = uplit (Zasciz'TADRIVE CLOCK DROPOUT®
BETUEEN SECTORS®),
READY
RECEIVER
SY
yplit (!lsciz'lALO
== uplit
SC_RSP
ERROR'),
DETECTED
(Zasciz2'ZADRIVE
SCCSUR

Zgi

SC_RDY = uplit (lasciz ZALOST READ/WRITE READV DURING/BETWEEN TRANSFERS®),

SCTPOE = uplit (Zasciz'ZAPOSITION ERROR (MIS-SEEK)°®),

SC_SRI = uplit (!osciz'!ACONTROLLER DETECTED IIANSHISSION

SEEK lNCOHPtEtE)')
SCCSRT = uplit (Zasci2'TADRIVE COMMAND TIMEOUT (NO RESPONSEORORPROTOCOL
ERROR')

SC_IDS = wplit (lasciz'!AlNCONSlStEnf INTERNAL DATA STRUCTURE®)

SCTNXM = uplit(Zasciz'ZANON-EXISTENT host MERORY'),
(Zasciz"ZACOMMAND TIMOLT OR RETRY uim EXCEEDED*)
== uplit
SCCCTO
SC_SDS
uplit
(!asciz'!ASERIAL!ZER/DES;RIALllEl OVERRUN OR UNDERRUN'),
SCCEDC = uplit (Zasciz2"ZAEDC ERROR')

SC_PAR = uplit (!asciz ZAHOST HEHDRV PARITY ERROR

20
2224;

. S S

221

SC_SWP = uplit (!asciz'!!dll! SOF TWARE WRITE PROTECTED'),
SCCHWP = uplit (Zasciz2'JAUNIT hAPDWARE WRITE PflOtEC!ED'
SC_ODA = uplit(Zasciz'LAODD TRANSFER ADDRESS'
SC_ODB = uplit (!asciz'liooo BYTE COUN:'

DISKSUSER2:[DIETZ .RELEASEIZROABO.BLT;1.8'(32)

19
1
18
19

— — — — — — ——

1=Jul-198
51=Jul=198

SEG 64

RD/RX EXERCISER
TEXT SECTION
GLOBAL

VAX=11 Bliss=16 V3-555

3257 F_16 = uplit (Zasciz'INXA! Suppress Caching (h{gh spoed)')

3261 F_20 = uplit (Zasciz'INIA! Write Protect (software or “volume)*),
3265

3266

3267

3268

! STATUS CODE

EBH_30=

EBH_44=

uplit (Zasci2"%A - SUCCESS®),

ZA = INVALID COHHAND(SERVER nonIDLE or no media if EX-LC-PRG cmd)*),
UPLIT (RASCIZ

EBH_4S5= UPLIT (ZASCIZ'ZA= NO REGION AVAILABLE'),

3 -]
AT A A A TATE T
B 0e N0 0. 000000890 %:%; % %8, e 00 00080000000 00008000 %0000 00%: % % %St L TR TR

AM1

:
:

7n
;g

:
:
|

81
8;
8

232

zg;

;

3289

| DUP

df-1 = uplit (Zasciz2*INZA! Contains Local Media‘')

Prg ced is UNSUPPORTED®),
dfZg = uplit (TascizlINIAI Execute Local
in Active State’),
df_3

dfZ6 = uplit (Zasciz'INIA! Needs Writeable/Readable o\m-l;z')

df~7 = uplit (Zasciz'INZA! Uses Std Dup Dialog: REC/SEND/REC'S

' DUP LOCAL PROGRAM PACKET MESSAGES

T_QUE = uplit (Zasciz’INZA + QUESTION')

§§3°

TTMDEF = uplit (Zasciz'INZIA e+ DEFAULT QUESTION'),
TTINF = uplit (Zasciz®INIA

3295

329
3294
3295 !
3296

ssog

;
:
:

:
;
:
;
;
:

3297

299
3300
3301

330
3304
gsos
306
3307
g& ,

g;g

;

331

331;

= uplit (Zasciz'INZA! Currently

DU EXECUTE LOCAL PRG END FLAGS
& = uplit (Zasciz'INIA! Standalone Pr").
df
df’S = uplit (Zasciz'INIA! Needs overlay'),

;
:
;
:

GET DUST STATUS FLAGS

df_0 = uplit (Zasciz'INZA! One Server at a Time'),

m_‘g = UPLIT mscxs'u « LOAD
EBH-49 = UPLIT (SASCIZ'SA = STANDALONE (STANDALONE MODIFIER NOT SPECIFIED FOR STAND ALONE PRG.)®),

++ INFORMATION'),

T"TER = uplit (Zasciz®INIA =+ TERMINATION'),

TTFAT = uplit (Zasciz®INIA w#+ FATAL ERROR'),
T°SPL = uplit (Zasciz'INTA ++ SPECIAL'),
E_SUC = UPLIT (SASCIZ'INZA = SUCCESS'),
E_ONT = UPLIT (SASCIZ*INZA = ILLEGAL UNIT NUMBER®)

E"BLK = UPLIT (SASCIZ'INTA = ILLEGAL PHYSICAL OR RELATIVY BLOCK NUMBER'),

E"DEV = UPLIT (ZASCIZ'INZA = DEVICE ERROR')

E"ZER = UPLIT (SASCIZ'INZA = ZERO LENGHT MESSAGE'),
MCASC = UPLIT (ZASCIZ'INZA == ASCII INFORMATION °),
ON®)
MBIN = UPLIT (ZASCIZ*INIA == NON-ACSII INFORMATI
MESSAGE')
MTER = UPLIT (ZASCIZ'INIA == TERMINATION

SUCCESS/FAILURE CODE*}
WZCOD = UPLIT (SASCIZ®INTA ==
MTDAT = UPLIT (ZASCIZ'INIA == SEND BINARY DATA')
RELATIVE DBN'),
MTUR = UPLIT (ZASCIZ'INZA == SEND UNIT NUMBER,
DBN, WRITE PATTERN'),
SEND UNIT NUMBER, RELATIVEBLOCK
MTURP = UPLIT (SASCIZ'INZA==== SEND
NUMBER®)
PHYSICAL
NUMBER,
UNIT
MTUP = UPLIT (ZASCIZ*INIA
MUL = UPLIT (NASCIZ'NEA == SEND UNIT NUMBER, LOGICAL BLOCK NUMBER 5.

! CONTROLLER GENERIC ERROR CODES

CNTR_ERR = uplit (

uplit (Zasciz'TACONTROLLER TIMEOUT®),

3314

uplit (Zasciz'ZAENVELOPE/PACKET READ ERROR (PARITY OR TIMEOUT)®)

:
8
;

3316
3317
3318

uplit (Zasciz'TACONTROLLER ROM AND RAM PARITY ERROR'),
uplit (Zasciz'ZACONTROLLER RAM PARITY ERROR'),
uplit (Zasciz®TACONTROLLER ROM PARITY ERROR'),

3321

;

3315

3319

3320

‘)
NOT KNOWN (NO SUCH PROGRAM ON MEDIA)
EBM-47 = UPLIT (ZASCIZ'3A = PROGRAM
FAILURE (INPUT ERROR WHILE LOADING PROGRAM)®)

OOOO0D

EBN 46 = UPLIT (SASCIZ'ZA = NO REGION SUITABLE®)

YOOI OO0

GLOBAL TEXT SECTION

VAX=11 Bliss=16 V3555

uplit (Zasciz'SAENVELOPE/PACKET WRITE ERROR (PARITY OR TIMEOUT)'S,
uplit (Zasciz'TARING READ ERROR (PARITY OR TIMEOUT)®)

uplit (Zasciz*SARING WRITE ERROR (PARITY OR TIMEOUT)'S,
uplit (Zasciz'INTERRUPT MASTER FAILURE®),

o — — — L~ ——— o~~~ S~ S~ S S S S S, S, S, S, R, R, R, . s R

| v01.2

SEQ 45

45
(32)
10
L1;
JZROABG.B
LEASE
DIETE.RE
R?:
DISKSUSE
Swut-m 1s=19=23
1=Jul=1983 15:25:5

RD/RX EXERCISER

ZRQAM
:

G &

e eeeee e o

;

:
:

wlit (hsciz'flwfl ACCESS "&OUT (ul“l LEVEL PROTOCOL DEPENDENT)®),

wlit (usci:'
wlit (Zasc

wlit (huiz'flll.l.t“l. VIRTUAL CIRCUI

wlit (Zasciz'SAINTERRUPT VECTOR ILLEGAL
ER®)
IDENTIFI
REGION
IW‘LID
ITE
READ/WR
NANCE
SAMAINTE
(Zasciz*
wlit
l"
Ntl&t!
C
ABLE
wplit (hsciz'lfll'fl!fl(f WRITE LOAD TO NON-LOAD

3
3
3

g‘

:
3

339
340

3
3

:3
2

3
3
:
:
:
3
:

uplit (Zasciz'SAINIT SEQUENCE ERROR®)
llC”Afl.ltl" ERROR"*)
wplit (hsciz'?'uflfl LEVEL PROTOCOLFAILURE')
,
uwplit msm'mce /POLL HARDWARE

wlit (Zasciz*SAMAPPING REGISTER READ FAII.W (PARITY OR NRWU'” : vector [23],

§§

:
3

wlit (Zasciz2"ZACONTROLLER RAM enoa (NON=PARITY)*),

RD/RX CONTROLLER DEPENDENT ERRORS CODES

RDRX_ERR = wplit (
uplit (uuwum CFU mune

RAM ERROR®),
uplit (Zasciz'SANON-PARITY
uplit (Zasciz2"IASTATE MCNI'& FAILWE - T11 ADDRESS IEGISTER')‘

341
gl‘-i

345
;4‘9 :

344

348

339
3350
iSSl

35;
335
3354
3355

Dlt l.ln" EXCEE DE
R ERROR')

gn(n')
wlit umu CONTROL El FATAL
wplit (Zasciz*SAINSTRUCTION LOOP u{l : ).
!D

3
DISKSUSER2: [DIETZ.RELEASE JZROABO8138

uplit (Zasciz'ZASTATE MACHINE FAILURE - Q-BUS ADDRESS REGISTER'),
uplit (Zasciz'SASTATE MACHINE FAILURE = CRC REGIST

R REGISTER'),
DES‘RIAUIE
SER!AUZEII
=
FAILURE
MACHINE
TATE
(Zasciz'ZAS
uplit
: vector [7],
VERSION®))
HARDWARE
uplit (Zasciz'SASTATE MACHINE FAILURE = WRONG

! MISCELLANEOUS

EX_WRD = uplit (lasciz'u !06‘)
EXOP = uplit (Zasciz'ZAoct
SPACE4
= uplit (Zasciz'%S4°),
CRLF
= yplit (Rasci2
o
= uplit (Zasciz'2A - '),
DASH
ASTERISK = uplit (Zasciz"%A+ *);

—

GLOBAL TEXT SECTION

SEQ 46

—

v01.2

3
:

1=Jul=1
l;gg
ai 15:25:5
ii-Jub‘l

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

DEFAULT MARDWARE P-TABLE

RD/RX EXERCISER
283=<

T TR TRTR PR TR L L D T §

AL s

;;

14,
575

SEO 67

T
fi-.m-mg 15:19:20 DISKSUSER2: [DIETZ.RELEASEIZRCABO.BLY;.r(”)
~Jul=1983 15:25:58

VAX=-11 Bliss=16 V3-555

4
V!

Zsbttl "DEFAULT HARDWARE P-TABLE®
‘e

i THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES
OF

i TME TEST-DEVICE PARAMETERS. THE STMTW OF flflS TABLE
THE WARDWARE P-TABLES,
i IS IDENTICAL TO THE STRUCTURE OF
i AND IS USED AS A “TEMPLATETM FOR Im..lfi THE P=TABLES.
BGNMW (DFPTBL);
global

HWPT_IP_ADDR: word 1Mtul CINIT _I® ADDR),

! IP ADDRESS

WWPT-VETTOR : word initial CINIT INTR_VECTS i VECTOR ADDRESS
HWPT-BR_LEVEL : word mmt (NIT BRmsd,'u LEVEL
DISK NUMBER, TYPE, PROTECTON BIT
3%°)
(
HWWPTZDISK : word initial
HWPTS_TRK: word mml (0)
i STARTING TRACK
i ENDING TRACK
WWPTETRK : word initial (RD_MAX_LBN);

ENDWW;

o
o

0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
q
¢
¢
¢
"
¢
¢
¢
¢
¢
¢
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(
(

Zsbttl "SOFTWARE P-TABLE'

«¥4=x

USED BY

HE SOF

PROGRAM
T UP

RUN

1
OPE
AS
ME.

BGNSW (SFPTBL);

;389 ENDSW;

e&.

DROPP]
ING
g)

SwP_UDPAT

3%
39

395

390
9N

- )

394

L
SWP_E
SWPTXFER :
SWP_F
SWP_DPAT
SWP~UC NT
: word
SWP_RAT
dupround : word in

v The

WSy <

= © K—

-eyeigTMgeg¥m

Eo 8 1Y At EASE12R0AB0.BL1 sl

o SESz S <

i x

SER

DBN'S WRITTEN AT ONE TIME

MVEC

ASE1ZR0AB0.BLY18" (38)

16 _v3-555
IETZ.RELE

THIS TABLE {S USED BY THE RUNTIME SERVICES
PROTECT

THE LOAD MEDIA.

OFFSET INTO P-TABLE FOR CSR ADDRESS

11ST ARG =
3

!
e

end

OFFSET INTO P=-TABLE FOR MASSBUS ADDRESS
OFFSET INTO P-TABLE FOR DRIVE NUMBER

ARG =
ARG =

1? ENDPROT;
1
14

eludom

IZROAM1 RD/RX EXERCISER
/Nv01.2/

/IRQ/
/N

LSUNIT::,
LSTIML::.
m : ..
I.SSPCP .
LSHPTP::,
LSSPTP::,
ADP: :

77
#;mv
7

LSHARD
LSSOFT
LSHW
LSSW
gfl.AS!

o0oOro

122

$CODES,

SDISPATCH

O W

VAX-11 Blis
DISKSUSER2:

“. “

Ssbttl *PROTECTION TABLE'
o
o e s=

e 00 80 %0 Be 06 00 06 B8 80 S0 e B, S0 S0 S ue

it 15538

t
SER
glfifl

g
0
0
0
0
0
0
0
0
0
0
0
0
¢
0
¢
(
¢
(
(
C
(
¢
¢
¢
¢
(

{
{
(

&
L

EXERCISER
RD/RX
10N TABLE
PROTECT

IROAMT
vo1.2

.WORD

LSSPC:: .WORD

:
: .WORD
LSDEVP

,WORD
LSRE:PP:
: .WORD
LSEXPL:

LSEXPS:

th +WORD
:2.WORD

LSICP:: ,WORD

LSCCP:: .WORD
LSACP:: .WORD
LSPRT:: .WORD

E}, )5
00000C

LSTEST::.WORD

tw’w

o«

LSAU
biw

LSINIT

LSDISPATCH::
MORD

ERRNBR:: .BLkW

ERRTYP:: .BLkW

0001

114
105
1%
1
104
126
1"
10
000
m
104
113
116
104
040
1"
10

g
o
a
o

DSPCNT : : .WORD

m
101
1 ;
1
1
124

LSCLEAN
LSAUTO
$PROT

: : .WORD
LSHIME

W'gg

000237
00024
00024
000250

LSDLY:: .WORD

00000C

0001
0001
0001
000141
000144
000147
oomsi
00015
0001
0001
0001
0001
0001
000174
000177
00020;
000.
000 1g
00021
000%1()
000 Zg
00022
000226
000231
000234

SEQ

-gsfi
D: LSERRTBL
: .WORD
LSLOA
LSETP:: .WORD

g
00011
%fl
114
000116
1
1

: ,WORD

LSAUT:: .WORD
LSDUT:: .WORD

bWi

:go
P.
555
Bliss~)
VAX=11
:25:
1=Jul=1
(35)
1D
LY:
ZROABD.B
RELEASEI
EDICTY
exaUsERs:
i
QU8 13:33:38

120
104
105
000
105
117

040
104

040

10
114
104
130
122
105
125
105
oog
12
m
040
040
065
127
103
123

122

10
12

057
040
m
062
1
122
040
123
101
122
061
m
110
124

040

ERRMSG::.BLkW
K
: : .BLKW
ERRBL
LAAM: LASCII
LASCI1
LASCII
LASCII
P.AAB: .ASCII
LASCI1
LASCII
P.AAC: .ASCII
LASCII1
LASCII
LASCI]
P.AAD: .ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCI1
LASCII
P.AAE: L.ASCII
LASCII
LASCII
LASCII
LASCII

LASCI1
LASCII
LASCI1
LASCI1

1
/1P /
/ADD/
/RES/
75/<00><00>
/VEC/
/TOR/
<00><
/BR /
/LEV/
I%Kom
>
/RD/<S57>
/RX /
/DR1/
/VE /
/NUN/
/BER/
<00><00>
/1S /
/D1S/
/K A/
/N R/
/D517

7 Wi/
/NCHW/
/EST/
/ER /

a
0
g
0
0
0
8
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

0
)
¢
¢

DR D B Y AELEASE 12R0AB0.BL1 .3

- AL %

s€a 51
:

S
%

[P E—————————

I e D AT I S S T D I IR ARSI SIS PP

.O............ ® % 5 5 5 8 " 8 " " " e ® % & 5 8 5 % " 8 " 8 8 8" e N

1=Jul=1983 15:25:58

RD/RX EXERCISER

%1-Jul-19‘g 15:19:20

e
o
o
i
i
—

S
S
S
e P R
ey

SNONO

e ed e e d d b
O
— e b d e d o e e d e e d wd ) b
O=NNOOONO =WNO
— el = O =2 NIN) =2 NN
NS WNOVIOSON
0 VWO N =
SLa SV
B =N OONWWN
S NEN==

?m-aaoogdogdam

D = O

O=N=O0000N
OO W =N NN = b b N

PROTECTION TABLE
101
122
040
137
105
126
127
124
116
056
040
116

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

114

123

105

122

LASCII /XER/

040
040

117
104

LASCII
LASCII

122

040
m

101
117
M
101
101
055
116
125
117
122
122
051
122
105
116
1
116
124
040
105

000
101
040
122
040
115
000
122
123
122
11
124
116

LASCII
LASCI]
ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
LASCII

115

105

P.AAJ:

123

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

122

105

P.AAK:

P.AAL:

117

114
11
000
101
106
040
115
040
040

P.AAM:

LASCII
LASCII
.ASCII

LASCII

/TA /
/ARE/
7A W/
/AY /7
/BE /
/OVE/
/RWR/
7ITT/
/EN!/
o
/7. €/
/ONF/
/IRM/
<00>
/ALS/

/70 E/

LASCII

/CIS/

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/IAG/
/NOS/
/TIC/
7 AR/
/EA
/
/7(=N/
/ON=/
/CUS/
/TOM/
/ER /
/ARE/
7A)7<00>
/WRI/
/TE /
/ON
/
/DIA/
/GNO/
/ST1/
/C A7
/REA/

JASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
JASCII
.ASCII
LASCII
LASCII
LASCII
LASCIT
LASCII

/E 0/
/N D/

<00><00>
/HAR/
/D E/
/RRO/
/R L/
/IMI/
/7/<00><00>
/TRA/
/NSF/
/ER /
/ZLIM/
7
/ZIT
ZIN7

VAX-11 Bliss=16 Vv3-555

5
SEQ

oxsxsusm:(oxttz.aeunsmnom.m:?s'as»

IR
VO
00
00
88
00
00
00
00
00
00
0C
0C
0C
¢
¢

0oC

| oc

oC
0o(
o(
0(
0
o
o
o
o(
0(
0
0(
0
0
hl
0l
0l
0l
0l
0l
O
]
]
0l

0
0
0
0
0
0
0
0
0
0

@000

el
woey
l=] [

- et" - Lala )

RD/RX EXERCISER
PROTECTION TABLE

llllllllllllll

g o

Illllllllllllllllllllllllxlll-‘lllllllll
CI(LCLCCCI
LLCLCLLCIL
LLLCLCLCLC
CCLCCLCLLC
LLLLLLCLCL
LLLLLLCLLL
CLLCLCLCLC

e .

SEQ 5 3

Paae 53
VAX=11 Bliss=16 V3-555
(35)
1;10
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL

040
130
125
000
124
122

+AS

.AS

P P P FN N ENENCVNOAOYOYO O OO OO OO

/SEL/
/ECT/
/ PR/
/E=D/
/EF1/
/NED/
/ DA/
/TA /
/PAT/
/TER/
/N (/
/0 F/
/OR /
/SEQ/
/UEN/
/TIA/
/L S/
/ELE/
/CT1/
/0N)/
<00><00>
/NUM/

ASEJZIOABO.BLi:?s.(SS)

/TER/

/N/<00>

SEQ 54

— — — — — — — — — S~ S~ S~ S

/PAT/

g b
gy b
s

e
e e e
e
eL

ASC

iy Wy iy SOy Sy Sy Sy Sy SN

115
122
106
117
123
116
101
040
124
122
050

e L Ll L] o (g B S S (g g By g By e

]

e R e Re
e
e
R el

051

[

101
105

123
105
11

(]
alalalalalslalislalelels
Ly
T
L
L
o
e e e e el e e

000
125
105
117
127
104
1
104
101
101
105
040
066
101
115
051

050
106
040
121

116

104

040
114
124

114
124
122

e e

116
101

105
105
111

040
040
122

1
104
101
040
124
122

106
105
104
101
101
105

055

1%4
131
105
11
000
105
104
1M
104
101
040
124
122

S OOWNI=N-On S OSHOONOONO

A
md

— o

— b
b

—

233523R%
2—'°° ON =N VNV
=
&= nnon RRVRRSS g =OO=NNN)
~=OO~N
SO SO
[« ¥ =
=]COVIVIOWVIWO
NWWES
S VNN §-'NNN
i e ()t
md =2
NONLO
= b =

&
I8I8AN ~ FEXTEE
el AL LY NP

M
WA
==

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

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

RD/RX EXERCISER
PROTECTION TABLE

15:25:5
5:19:

21=Jul-1
21=Jul=1

RD/RX EXERCISER
PROTECTION TABLE

Lal.al e -" ."-

SEQ 55
P
v3=555
6
Bliss=1
VAX=11
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1; 10 (35)

E 3

lllllllllllllllllllllllll‘-‘l'o-l.ll'cIlllllllllll"lllllllll
VN
VNNNNOVN
VVVVVNVN
DDDDDNNNDNNNNVBNNVNNNNNV
ty
tt
it iiiiii
ettt NVNNNVNN
L i VVVNVNNN
L
AL

P.AAV

P.AAW:

040

[Talel)
woy
J=][

P.AAX

18l

~e —

000
000
116
052

045
052
122
040
m
045

000

116
052
120
103

045
052
122
137

113

124

b
—

062

104
120
116
040

105

124

P.AAZ:

P.ABA:
P.ABB:

7)7<00><00>

L.ASCII
LASCII
LASCII
LASCII
LASCII
LASCI]
LASCII
LASCII
.ASCII
LASCII
LASCI1
LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII

LASCII
.ASCII
.ASCII
LASCII

.ASCII
LASCII
LASCII
LASCII

LASCII

P.ABC:

LASCII
.ASCII
LASCII
.ASCII
LASCII

LASCII

/NUM/
/BER/
7/ OF/
7/ 0B/
/Ns /
/REA/
/D N/
/T o/
/NE /
/TIN
/E (/
/Zeft/
/ect/
/s R/
/D5V/
/s o/
/nly/

/THE/
/ RE/
/MAl/
/NIN/
/6 o/
/UES//TI10/ &
/NS /
/ONL/
/Y A/
/PPL/
/Y T/
/0 U/
/NPR/
/OTE/
/CTE/
/D D/
/1ISK/

/5/<00>
<00><00>
/INX/
/Axv/
/ DR/
/0P /
/UNI/

/T %/

/D2/<00>
<00>
/2INX/

/Axn/
/ PR/
/0C /

/REY/
/PKT/

O OO OO OO O OO0

105
105
m
116
121
123
117
040
114
101
114
124
125
122
105
105
104
113

LASCII

L_ASCII
.ASCI1
LASCII
LASCII
LASCII
ASCI1
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCII
ASCII
LASCII
LASCI1
ASCI1

110
122
101
M1
040
105
m
123
116
040
120
040
040
120
124
124
040
123

000

P.AAY:

/7)/<00>

DlSKtUSERZ:(DIEtl.RELEASEJIROABO.!L!:18‘(35)

000

115
122
106
102
040
101
101
117
040
115
050
146
164
122
061
157
17

LASCII

SEQ

OO ES NS E S

NMWO?O&‘“ON—'N?N—'
NOOONON—

VIS N=—O=NON
S VIO OH =O WS WSO

125
105
117
104
163
105
040
040
105
m
040
146
143
040
065
040
154

P lele

SNSRSREINNIREREN=

N =2

— ) b

) )

b =d =

) b

b -

b —d b

O = b
- S PNIN)

i g—y

S=3

PROTECTION TABLE

VAX=11 Bliss=16 V3-555

EN N

SI-Jul-19 g 15:19:20

RD/RX EXERCISER
000

15:25:58

1=Jul=1983

——

NN
O =W

R b

e mmd e

—t

— h

L@
e

SAETSEIRESTSR REERE=33RSRR383R32385083RTRES 3 SonRRRR

——

-3

VIVIND VWO O NN

040
16

103
116

075
06
101

04
06
040

05
111
106

040
126

122
120

126
197
101
11
102

000
116
052
106
124

120

ASCI]
"ASCI1
"ASCI1

103
126
000

06
101
105

"ASCIl
"ASCI1

104

045
052
101
114
122

116
052

€/
ASCIT /73
7

P.ABD:

"ASCI1

192

040
12
126
114
114

000
045
052
123
137

"ASCI]
"ASCI1
"ASCI1
LASCII
.ASCII
TASCI]
"ASCI1
"ASCI1
"ASCII

101

7=/
7305/
/%A /
/REC/

/TAL/
7 ER/

/ROR/

LASCII

/7E/<00><00>

"ASCI1

/KT /7
/NOT/
7 AV/
ZAIL/
/ABL/

/INZ/
/Aes/
/7 FS/
/ET 7

/UPR/

072
101
126
111
040
123
045

040
116
040
116
104
113
104

"ASCI]
ASCI1
"ASCII
"ASCI1
"ASCII
"ASCI1
"ASCI1

/R: /
/CAN/
7°T 7
/JFIN/
/D D/
71SK/
7 %0/

11
103

116
123

"ASCI1
"ASCI]

7 IN/
7 €S/

045

"ASCI]

101

040
061

045
000

116
052
102
040
16
11
075
106
101
105
111

045
052
101
103
116
104
040
065
040
103
126

"ASCI]
"ASCII

P.ABF:

"ASCI]
.ASCII
"ASCI]
"ASCI1
"ASCI1
"ASCI1
"ASCI1
ASCI]
"ASCI1
"ASCI]
"ASCI1
"ASCI1

F
L

ZEIV/
/ED/<00>
<00>
/INY/
/Aee/
7 FA/

7: R/
/ETP/

.ASCII
"ASCI]
"ASCI1
"ASCI1

Dlsksusens: oxtrz.aEL:Asthaoaao.att;?8'«32)

7 10/

"ASCI1
"ASCI1

"ASCI1
"ASCI1
ASCII
ASCI1
ASCI1

P.ABE:

g1odutsd 3 13:33:38

SEQ 577

PROTECTION TABLE

VAX=11 Bliss=16 V3=555

/3%IA/
/T %/
/D1/<00>
<00>
/IN3/
/Awe/
/7 BA/
/D 7
/ONN/
7 10/
7 =/
/%057
/%A 7
/REC/
/EIV/

OO0 0000000000000

RD/RX EXERCISER

15:25:58

NSNS OO OO OO OO

1=Jul=1983

1-Jul-198§ 15:19:28

PROTECTION TABLE

105

1g‘

101"

0
826

a8
830

101
040
123
107
126
105
104

116
05;
11
123
1g5
131
040
062

045
osg
10
101
040
120
045
045

101
105

040
040
124

120
113
000
116
052
105
117
m
123
137

137

103

822

101
105
m
104
llg
12

040
103
126
045

101
040
122

124

040
103
126
0490
040
103

114

110

LASCII

/7 _CW/

.ASCII

/INX/

101
040
114
124
105
124

063

045

101

045

101
040
122
040
040
m

124

045

105
116
000

052
105
117
m
125
124

052
122
122
116
116
137

116

000

LASCII

P.ABI:

045

LASCII

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

LASCII

104

123
117
123

116

P.ABH:

122

052
124
040
115
125
075

040
103
104

<00>
/INV/
/Ase/
7 ME/
/SSA/
/GE /
/TYP/
/E
/D2%/
/A R/
/ECE/
/1VE/
/0 1/
/N W
/SCP/
/7 PN/
/CKE/
/1/<00>
/
/Are/
/ ER/

LASCII
+LASCI1
LASCII
LASCII
LASCII
LASCII

122

05
103
122
11
117
040

045

LASCII
.ASCII
JASCII
LASCII
LASCI1
+ASCI1
LASCI1
LASCII
LASCII

116
105
103

045
052
122

000

040

P.ABG:

LASCII
+LASCII
LASCII
LASCII
JASCII
+LASCII
+ASCII
LASCII
LASCII1
LASCII

122

112

/ED /

DISKSUSER2: DIETI.IELEA$£JZIOA.0.Il1:ga.(SS)

ASCH
/m %
LASCII /706/<00>

122
105
105
11
115.
120

101

045

LASCII

SEQ 58

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

/ROR/

/7 IN
/ SE/
/1 C/

/TCR/

/AR/<00>
/Are/
/7 CT/
/LR /
/1IN
/EOUW/
/T =

7 %D/

LASCII /3%A/

P.ABJ:

LASCII
LASCII
.ASCII

/ SE/
/CON/
/DS/<00>

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/Ar+/
7/ ER/
/ROR/
/7 IN/
/7 UN/
/1T /

LASCII

/INY/

/INI/

/7/<00>

OO0V

1=Jul=1983 15:25:5

v01.2
1

045

1?
00
4
7
0026
%63
b‘g
00264
002646

002651
0026

04
10
1
1
1
040
153
101
105

002656
002661
002667
00267,
oosgoo
00
002703
002706
002711
002714
002717
00272
00272
002
002733
0027

103
105

045
101
040
114
101
102
10
117
040
066
045
101
040
115
116
122
040

002741
002744
002747
002
00275
002760
002763
002766
002771
00277,
oogn
00
003003
003006
003011
003014
003017
00302
00302
003030
003033
003036
003041

1=Jul=1983 15:25:5

RD/RX EXERCISER

RQAM1

045
045
040
124
105
040
040
123
000
045
101
040
113
127
105
117
114
040
122
124
104
101
122

PROTECTION TABLE
1"

os?

045

10
105
or;
10
113
110
040
104
119

1
000

1g
1
040
124
124
101
10
04
104

104

116
052
m
105
114
155
124
112
04
000
116
052
103
115
104
105
043

104
101
116
040
116
102
110
124
116
052
125
116
116
122
12;
1
106
115
040
063
056
105

045
052
114
107
040
116
111
or;
1"
000
045
05;
1"
101
040
106
040

065
056
117
123
124
131
117
000
045
052
119
1n
040
122
040
107
117
101
045
045
040
103

P.ABK:

LASCIl /3INX/

DISKSUSERZ2: olm.mmnmuo.m;?rus:

v(i
o

ASCII /Ase/

LASCI1 /COD/
LASCI1 /E/<00>

o(
o(

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

P.ABL: .ASCII
LASCII
LASCII
LASCI1
LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCII
P.ABM: .ASCII
LASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII

P.ABN:

51-.:0(-190 12:19:28

VAX=11 Bliss=16 V3-555

SEQ 59

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

7 AC/
/CES/
/S: /
/REV/
/PxT/
/7 WA/
/S B/
/AD /
/END/

0C
0C
0C
oC
o
oC
)
o«
o(

/INX/
/Arn/
7 1L/
/LEG/
/AL /
/F
/CT1/
/ON:/
/7 %0/
76/<00><00>
/3INX/
/Axn/
7 Co/

o
(
o
o
O
o
O
| Of
ol
O
O
Ol
0l

/REF/
/7 %/
/%D5/
/%A./
7/ NO/
/T S/
/ENT/
7/ BY/
/7 WO/
/5T/<00>
<00>
/3INX/
/Ave/
7 UN/
/KNO/
/WN /
/ERR/
/OR /
/L0G/
7/ FO/
/RMA/
/T %/
/D3%/
/A, /
/REC/

0
0l
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0

/MmA/
/ND /

0l
0l

SNAR NILSOTNINRITRST2RNIRSOOISR

=
003275

R AR R s S S S B S B E G S B S B a S SRS A B SRS GS SR GRS BRSSSS

-e

wwwwwwwwwwww
wwwmwwwwwwwwwwwwww wwwwwwwwwwwww SSSS8E88
N

Q.*»3t St
3
-

aX'"]L

O- e — Ty i m~

r= @

>0==%
.e ”’
— -" sn

33 -

e -~

['%)
IROAM
vo1.2

M TNNNNOT e~ NANOITWNO TM
- O =NOWNO=INOTMNINNNY = ONNO=NINN

llll‘llllll‘ll
lllllllllll
lllxllllllll'l
lllllllllllllll,lllll
lllllllllllll!
‘lll’ll‘llllll
lll!lll
o
4
i B
R
e oe R DoD D D De DeR R De Be B
e 5 5 8 8 " 8 0 " ee
"R

13
Si-sulioes

R 838888
mmmmmmmmmsnnmmmmmwmmuuunuuuu R 333833
: mmmmmm
333333
888888
338888
333333
338333
S23333333333

—T—

‘%

|wnx§nmnua
PROTECTION TABLE

SOUULUL LL L L L L L L L L L A A A 3 U3 2 0 U3 0 1 3 A A 3 1 3 L 01 3 U2 1 4 1 24 2 P 10 P

1
116

18 )

VAX=11 llisz-ib v3-555
DISKSUSER2: [DIETZ .RELEASEJZROABO.BLY;

SEQ 61
— O

1ZR0ABO BLY; ol
Rs.
ToIE 11 RELEASE
TScbUse
—LAlal ® %
:

“ §3

PROTEC
10N TABLE

g 8

N NSNS SN VS SSASSSNVSSASSSSSSSSSN“vaasaaaaaaaa
NMANNNNNNNNNNN S NN
S S g S By S S S G S S - S S S S S S ) S S S S ) S G B S S B B B B P S e Bt g By S e E D D D D O ao

R2
:

flfi&fl&i% ®

=11

RD/RX

unnfflgffifl&

& < S £ =

23338883333333333RRII3

llll“‘lll‘lllll“‘llllll‘llllllllllxlll!llllllllll
e e I I I DR D DR DR D D D I I
...'..........‘......... "
.
e
Z
s
g

ST IE 1y RELEASE JZROABO.BL1 sl )

Blis

SEQ 63
5
—d

.,‘
‘.
~
T

ANINA

ISIIN

ERERREES mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

AA s
B Y SSSo L A

ISIDA

IRISI
NBIII

INIT

- g .l.lo cl.lql g —O0 O0 0O0O00O0O0O0 O

g Sy S g B o) S S S ) B S B ) B S S S B S ) S S S ) S S S S B B B ) B B g B S B B S B B g B B g B B B B g g

o S =

S10uto%83 13 ®
RD/RX glElClSEl
PROTECTION TABLE

vol.2

PE-IN

177

umumxtnxuasumm.m ALY 3%

SEQ 64

V3-555
VAX=11 Bliss=16

OoVIVIVIO WAV

AR ARAAARARAA
NS RENS22RARIA
RRIRVVRRS 222222207
) —d —

VESN8
o000 N WO~ O =2

OO =D
j=l=l=le] -

— —d b b

—

e
v

055

055
055
055
040
055
055

000
116
062
064
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

P.ACM:

040
055
055
055
040
055

000
045
045
045
040
065
000
045
045
045
040
065
000
064
063
063

P.ACN:

P.ACO:

P.ACP:

Jo==/
7=/<00><00>

.ASCII /%A /
JASCIT /===’
ASCIT 7 ==/
JASCIT /= </
JASCIT /== /
JASCII /===’
JASCIT /7 ==/
JASCIT /= =/
JASCI1 /== 7
JASCI] /===’

LASCII

.ASCII
JASCI1
CASCII
JASCIT
JASCII
LASCII
.ASCII
CASCI1
JASCII
JASCIT
LASCII
LASCII
.ASCII
JASCII
JASCII

JASCII

ASCIT
JASCII
ASCI1

063
054

063

064
064
045
056
040
040
124
040
040
040
056
056

ASCIL
CASCII

VAX=11 Bliss=16 V3=555

JASCII 7 ==/

054

064
064
064
064
064
064

SEQ 65

5
P
(3?)
o.ltl:?8'
ensthaoaa
olstz.aft
2:
51-Jul-198§ 15:19:20 DISKSUSER

PROTECTION TABLE
055
000
040
055
055
055

1=Jul=1983 15:25:58

RD/RX EXERCISER
055
000
101
055
055
040

P.ACQ:

JASCIT
.ASCII
LASCII
ASCII
CASCII
CASCII
JASCII

/7=/7<00><00>
/INY/
/D2%/
/D4%/

/A 7
/RXS/

70/7<00><00>
/INY/

7/D2%/
/D437

/A 7
/RDS/
71/7<00><00>
/%D4/
7323/
/%D3/
/%A./

/%2%/
/2A./
/%1%/

<00>
/%D&/
/7%D4/
/%D4/

/7%D4/
/%D4/
/%047

CASCII /%D4/
ASCII /%D4/
JASCIT <00><00>
P.ACR: .ASCII /IN%/
CASCII /A ./
JASCII 7 7
TASCII 7. 7
"ASCII /CNT/
CASCII /R /
ASCIT 7 7
LAY & .8
JASCIT 7 ../
CASCII /...7

0
0
0
0
0
0
0
0
0
0
0
0
0

—_

045

WOOWOONOOOOW

101
040
040
045
045
040
040
056
040
104
101
040
000
116
045 116
040
111
040 060
040
040
043

106

040

043

040
040
040
040
040

040
040
117
040
043

102
123

116
040

040
040
040
040
131
040
122
104

101
111
040
123
040
040
040
040
040

040
040
040
040
120
040
105
123
045
0490
+AS

040

114
040

P.ACU:

+AS

x
(71}

o
e

RO =

0>< 00>

/ENX/

VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.REL EASEJZROABO.BL1;10

SEQ 66

(35)

TMM

NN O EN

21=Jul=1983 1 S: 2 5: 58
21=Jul=1983 1 5: 1 9::20
Paae

NN OA YOO OO OO OO OO OO0

<00><00>

288

NN NN NN N NNNNNNNNSSS
F
X
\\"
5T .
PNt
o
;N
NNONNNNNNSNS
\b.
NMNNNNNSNSNSSNSSNS

RD/RX EXERCISER
PROTECTION TABLE

— . — — — — — — L~ — L~ L~ — S~ S~ L~ . S S S S S S, S S S

NN
':.
R
NN o
NNNNNNNNNENSNSSNSS

NMNNNNNNNNSNSSNS NNNNSN

w
w wvmununununmnununmnm wv
‘N
w
iyl alalalslalnlalslalalalely]
alalzlzlalalslzlzslislislisalslslslslslslsalslslialalislelsly] alalalalalalalaslalalele
ot Gt Bt G
s D Sy By Doy et B
e R
e
et G by Doy B oy bt Gt B B
g B
s S S
g B St By B B, By B b B By b Bt Bt (g St B e e
g e g S b By (g B (et Do) Pt g St D
L
S S
e
L e
e e e e e Ne
e
N
e el L
Ee R

114
040

3222
2 2. 2.3 4

P.ACT:
o

045
e

040
056
040
104
101
040
040
040
056
064
040
056

P.ACS:

056
040
040
040
056
056
056
000

056
040
040
056
056
056
056
000

R33RBRREREIRESRERZRR-RRRR SRRV GEEG

o
-Ow

oo 3 ——

woe

[ol=]

VAX=11 Blisz =16_V3-555
DISKSUSER2:[DIETZ.RELEA SEJZROABO.BL1;

51-Jul-1
T1=Jul=1
RD/RX EXERCISER
PROTECTION TABLE

8 g 3

cccccccccccc
i el
L CICI
e e e A ccccc
e e<CCCCCCC
e e e e cccccc
e eCCCLCCCC
e e e L L cccccc
e CLLCCCCC
L U e cccccc
ULLLLLLLIcccccc
e
LLCLCLCL
LLLLLCLCcccccc
LCLLLLLLcccccc
CLCLCCLC

7
)

SEQ 67
¢

/7T7S/7¢<00>
<00>

ASCII
LASCII

/RS/<00>
<00>
/REG/
/1ST/
/ER /
/EX1/
/STE/
/NCE/
/7 TE/
/ST /
/FAl/
/LED/
<00><00>
/VEC/
/TOR/
/7 TE/
/ST /
/FAl/
/LED/

LASCII
.ASCI1
LASCI1
LASCII
LASCII
LASCII

JASCII
LASCII

LASCII
LASCII
LASCII
LASCII
LASCII

LASCII1
LASCII

L.ASCII
LASCII
LASCII

LASCII

<00><00>
/BR /

/LEV/
/EL /
/TES/
/T F/
/ZAIL/

/ED/<00>
<00>
ZINI/
/T S/
/EQU/
/ENC/

OO OO0

Y Y

S SN S S S A A AN R

LASCII

/NOT/
7 EN/
/0UG/
/H F/
/REE/
/7 ME/
/MOR/
/Y F/
/OR /
/ALL/
/0CA/
/TIN/
/G R/
/EAD/
<57>/WR/
/ZITE/
7 BU/
/FFE/

S~ S S S S S S S S S

.ASCIl
LASCII
LASCI1
LASCII
LASCI1
LASCII
LASCI1
LASCII
LASCII1
LASCII

OO0 OO0 OO OO OOOOOO

&3
p—

=
R333=R
S2SRR R g—l S ONO 2—'
- OV
- o8N
- OwnhoWw
O S OWOOO
onn—
WVl
=—=

—

2-.-.-.-.-.-.-.—.
=O —
8~°
vRN
NON=
S
OoNNW SRIN
g oNON
e

P.ADB:

3 e

Y e

P.ADA:

/UN1/

LASCII
LASCII

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

12:25:58
15:19:20

——— o~

TMm

(el
= b

o
gm

e e

P.ADC:

(L LT

RoZans

Eh-F NN

SR -

b
—

ed
o

P.ACZ:

—d oD

REIREVUS N
TR
§O°NN°NWNNO
IV SN

WO RO

P.ACY:

o Tl

MXx

N
wWo

oGO

N=O =W HMNNONVVIOWWNN

=
R ..Q..~2.....° ® nNO

wbad
cdabad
=D =
2 D) =
d
e
—

e e
B I
e )
e B
T

gY
IV Pl V]
WO[« VIV

=&
=& ;a§*~;

§°°

LASCI1

~
of Pt

g3
—

N
s

Odddddflddg e

N
O N =2 O =N
O=NWV~N S N=N=-=WNO nNO~NOO

=
—

e
e e

2 SO0 =N
—

R
N

Y
e I
R

NNNO=O
)= sV

R
P

—_—a

con
VIV
ES =

28 voN-aw

— -

W
RUARTS WO

8888888888388 888838888
vV
Vi vaivaiaaiaaw
gmmmmmummummummmmmmw
IR v r9y

s1-Jul-198
1=Jul=1983

SEQ 68

Poao g&
VAX=11 Bliss=16 V3-555
10 (35)
2:
ROABO.BL1;
SER
[DIETZ .RELEASEJZ
DISKSU

VIO =2 =2 S NWWVINO VWO OO &

104

106

000
124
040
119
"
105
105
117

P.ADD:

114
105
101
105

P.ADE:

122
105
122
105
040
116
1M

m
055
117
103
103
106
103

P.ADF:

103
123
106
114

103
123
101
105

P.ADG:

101
114

124
040

P.ADH:

105
117

122
122

101
114
117
122
114
040
122

000

116
116
106
114

000

000
057

101
105
124
123
104
105
105
124
114
122
110
101
105
123
103
103
115

000

117

1M1
104
117
105
040
124
117
122
114
055
101
103
122
124
123
117
101

LASCI1

V/E F/

LASCI11

/88/(00)

LASCII
LASCII
LASCII
LASCI1
LASCII
.ASCII
ASCI1

/FAT/
/AL /
/CON/
/TRO/
/LLE/
/R E/
/RRO/

LASCII

114

LASCII

.ASCII
LASCI1
LASCII
LASCI1

LASCII

/R/<00><00>
/ONL/
/INE/
7 FA/
/ILE/

/D/<00>

/WRl/
/TE~/
/PRO/
/TEC/
/T ¢/
/ONF/
/7LIC/

.ASCII
LASCII
LASCII
LASCI1

/ACC/
/ESS/
/7 FA/
/ILE/

LASCII

LASCII
.ASCII
LASCII

LASCII
.ASCII
LASCII
.ASCII
-oASCII
LASCII
LASCI1
LASCII
ASCII
LASCII
LASCII
LASCII
.ASCII1
LASCI1
.ASCII
LASCII
LASCII
LASCII

LASCII
LASCII

<00>

LASCI1
LASCI1
.ASCI1
LASCII
LASCII
.ASCil
LASCII

ASCII

P.ADI:

/ZAIL/

/77/7<00><00>

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

717<57>/0/

7/ ER/
/ROR/
<00>
/FAl/
/LED/
/7 TO/
7/ SE/
/ND /
/SET/
/7-C0/
/NTR/
/0LL/
/ER=/
/CHA/
/RAC/
/TER/
/IST/
/Z1CS/
7 Co/
/MMA/

OO OO OO OO OO0 OO0 0000000000000
OOO0O0

—

)

g-n-n-od-l-.-.-.dd
3238323
g—i
Bt
A A A S SN
= NN
=
8RR23332R3Su
I nRERNES
N
~

B e e e} d nd

—

® d-NNOO--baw-gg-b
—

—

040

1-Jul-19li 15:19:28

PROTECTION TABLE

SEQ 69

9
:?8‘(32)
DISKSUSERZ: DlEtl.RELEASEJZROABO.!ti
P

ED S ES

1=Jul=1983 15:25:5

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

t 6

006037

106

000

Te3
108
12
120
123
190
040

1%
123
103
117
105
101
102

Q06062
00604
006050
006053
006056
006061
00s0s¢
Q06067

11§
11
1
108
122
1g¢

108
108
Te¢
16
122
110
o1
103

006117
ooeizz
Q06128
006150
006133
| 006136
006141
006146
006147
006152
006156
006157
Q06162
006165
006170
| 006173
006176
006201
006204
006207

101
105
03
105
122
116
123
116
122
122
106
116
00
040
116
117
116
105
117
101

104
116
117
040
040
101
040
040
122
000
101
105
124
125
104
116
111
040
115
116

gosore
0060
006100
os10s
006106
oért
006114

006212
1%
17

00c522

006225
006230
006933
006236
006241
Q62s
006247
006252
006255
00c%e
006261
006364
006267

1Jul=1983 15:25:58

1-3Ub1983 13:93:30

RD/RX EXERCISER
TABLE
PROTECTION

ZROAMY
v01.2
1

141
1M
00
125
116
o0
123

000
117
114

105

105
117
105
101
102
0a0
104
104
000
11
040
121
123

000
116
m

040

/ND/<00>

TASCIT
TASCIT
TASCII
TASCIT
TASCI]
TASCIT
TASCII

71ST/
71CS/
7 RE/
/SPO/
/NSE/
7 WA/
75 B8/

.ASCII
TASCIT
CASCIT
TASCIT
TASCIT
TASCIT
TASCII
TASCII

P.ADJ:

040
10¢
104
117
106
107
111
105
117
11
104
117
105
040
055
116
103
115
104

"ASCIT
"ASCIT
TASCIT
TASCII
TASCIT
TASCII
TASCIT
"ASCII
ASCII
P.ADK: .ASCII
TASCII
"ASCII
TASCIT
TASCIT
TASCII
TASCIT
TASCIT
TASCI]
TASCIT

055
116

P.ADL:

123
116
040
123
101
105
103
105

120
123
110 .
040
104
116
11
000

122
125
124

105
105
040

ASCII

12
117
122
174
055
101
103
122

123

117

TASCIT

P.ADM:

SEQ

18 (35)
DISKSUSER2: [DIETY.RELEASEJZROABO.BL1;

/SET/
/=CO/
/NTR/
/0LL/
/ER</
/CHA/
/RAC/
/TER/

7AD /
/END/
/COD/
/E 0/
/R F/
/LAG/
/S 1/
/N E/
/RRO/
/R/<00>
/FAL/
/LED/
7 10/
7 SE/
/ND /
/ON-/
/LIN/

/E ¢/
7AND/

TASCIT <00><00>
.ASCII /ON=/
LASCII /LIN/

/E R/
TASCII /ESP/

TASCII
"ASCIT
"ASCIT
"ASCII
"ASCII
"ASCIT
"ASCII
"ASCIT
TASCIT
.ASCII
"ASCIT
"ASCII
TASCIT

VAX=11 Bliss=16 V3555

/ONS/
/E W/
/AS /
/BAD/
7 EN/
/DC0/
/DE/<00>
<00>
/1/<57>/0/
/7 REZ
/QUE/
/ST 7

0
|o
0
0
0
0
0
0
0
0
0
0
0
0
0
| 00
0
0
| 0
0
0

0
0
0
0
0
0
0
0
0
0
0
0
0

006
006
006 12
006;1

006316
006321

006324
| 006327
0063
00633
006
00634
006344
006347
006352
006355
006360
006363
006366
006371
006374
006377
006402
006404
006407
006412
006415
006420
006423
006426
006431
006434
006437
006442
006445
006450
006452
006455
006460
006463
006466
006471
006474
006477

006502
006504,
006567
006512
00€315
005520

106
114

101
105

m
104

LASCII
+LASCII

115
105
110
040

LASCII
+ASCII
JASCII
LASCII

00?

000

045
045

104
101

065
04

101
116
122
120
123
101
101
122
123
117
000
101
111
117
105
040
040
126
040
122
105
103
045
000
101
123
120
104
101
105
040
122
000
101
102
040
040
104

OS;
1
105
117
105
124
104
105
040
066

P.ADO:

052
116
122
103
102
114
105
106
040
126
105
1mz

P.ADP:

052
124
040
061
040
101
105
17

P.ADQ:

052
101
123
103
105

P.ADR:

04
117
040
101
1%5
124
123
103
m
000
045
040
040
123
116
040
040
104
123
045
000
045
040
103
122
124
122
105
114
117
104
111
040
066
045
040
105
045
045
122
104
122

122
045
040
104
101
17

101
132
124
116
11?
12
120
m
105

P.ADN:

m
040
105
106
104

/FAL/
/LED/

JASCII

<00><00>

LASCII
LASCII

/%D2/
/%A /

LASCII
LASCII
LASCI1
LASCI1
LASCII
LASCII
.ASCII
LASCII
+LASCI1
LASCII
+ASCII
LASCII
LASCII
+ASCI1
LASCII
LASCII
LASCII
.ASCII
LASCII
+ASCII
+ASCI1
LASCI1
LASCII
LASCII
LASCII
+ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCI1
LASCII
LASCII
.ASCII
LASCII
.ASCI1

LASCII
.ASCII
.ASCII
LASCII
LASCII
+ASCII

7
(35)
0!3&’05!!2:(DIETZ.RELEASEJIROABO.GL’:?8.
VAX=11 Bliss=16 V3-555

/
/ORE/
/7 TW
/AN /

/UNL/
/1S /
/SPE/
/CIF/
/IED/
<00>
/ZA+/
7/ NO/
/ RE/
/SPO/
/NSE/
7/ AT/
/7 AD/
/DRE/
/SS /
/%06/
<00><00>
/ZA+/
/7 IN/
/COR/
/REC/
/T B/
/R L/
/EVE/
/L F/
/OR /
/DEV/
/ICE/
7/ %0/
/76/<00>
/XA+/
/ ST/
/EP /
/%D1/
/%A /
/REA/
/D E/
/RRO/

/R/<00>
/ZA+/
/ BA/
/D §/
/A C/
/ODE/

OO0
OO00O00000

006

51-Jul°19flg 15:19:20

PROTECTION TABLE

v01.2

72
7

1=Jul=1983 15:25:58

RD/RX EXERCISER

ZRQAMT

SEQ 71

1=Jul=1983 15:25:5

51-Jul-1983 15:19:28

RD/RX EXERCISER

RoAnrns NSO

&Og

—

b e

-.-02 SO = ONON=O=0ON
nNO
ONONS
NN
SN WO = NN WW
O =2 NWOONNWVIVNOWV
N NWO N NWVVO

pert

~NOo

NIS23NBRSISR3 RUETEE=R =R

PROTECTION TABLE
102
1"
105
103
045

122
040
‘22
10§

101
104
113
062
040
116
117

J52
111
045
045
127
124
106

105

000

101
104
m
040

052
105
103
045

040
124
122
105
11
040
115
116

116
040
117
123
116
103
115
104

000

114

066

120
113

123
055
156
143
156
145
115
123
105
131

P.ADT:

144
055

000
040

LASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCII

/ZA~/
7/ D1/
/SK%/
/D2%/
/A W/
/ENT/
/ OF/

LASCII

LASCII
LASCII
LASCI1
LASCII

LASCII
LASCII
LASCII
LASCII
.ASCI1

P.ADU:

040
120

162
157
151
144
157
145
151
040

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

LASCII

101
105

000
040

LASCII
LASCII
.ASCII
LASCI1
LASCII

LASCII

045

000
055

156
143
156
145
143
156
164
156

P.ADS:

111

000
040
162
157
151
144
105
101

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII1
LASCII
.ASCII
LASCI1

P.ADV:

LASCII
LASCII

P.ADW:

LASCII
.ASCII

LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII1
LASCII
LASCII

76/<00>

/FLY/

/NE/<00>
<00>
/ZA+/
/ DE/
/vIC/
/E %/

/06%/

/A N/
/0T /
/PRO/
/CES/
/SIN/
/6 C/
/0MM/
/AND/

/7 PA/
/CKE/

/75/<00>
/ =/
/unr/
/eco/
/gni/
/2ed/
/ ME/
/SSA/
/GE /
/TYP/

/E/<00><00>
/ =/
/unr/
/eco/
/gni/
/zed/
/ co/
/nne/
/cti/
/on /

/1d/<00>
/ =/

VAX=11 Bliss=16 V3-555

SEQ

DISKSUSER2: DlEtl.RELEASEJIROABO.BL':?8.(35)

1=Jul=1983 15:25:58

RD/RX EXERCISER

%1-Jul-1983 15:19:20

16;
15
151
144
105
12;
15
163
145

055
1sg
14
156
145
122
125
040
103
124
055
1Sg
14

040
1?2
157
151
144
105
122
120
113
000
040
162
157

000

156
145
103

000

055
116
103
116
105
117
117

000

055
123
040
101

P.ADZ:

040
103
123

P.AEA:

000

040
120
124
125
103
105
122
122

LJASCII
LASCII
ASCII
LASCI1
LASCI1
.ASCII
LASCII
LASCII
LASCII
LASCI1
LJASCII
LASCII
LASCI1

7/ =/
Zunr/
/eco/
/gni/
/2ed/
/ RE/
/TUR/
/N P/
/ACK/
/ET/<00>
7/ =/
/Zunr/
/eco/

LASCII

/N/<00>

LASCII

JASCII
LASCII
LASCII
.ASCII1
LASCI1
LASCII
LASCII

LASCII1
.ASCII
LASCI1
ASCII

LASCII

124

055
125
123
124
040
104
105
117

Zunr/
/eco/
/gni/
/zed/
/ RE/
/TUR/
/N w/
/ess/
/age/

.ASCI1
LASCI1
ASCII

040
122
117
m
104
120
104

040
104
105
117

000

P.ADY:

151
144
122

123
117
040
122

000

P.ADX:

LASCII
ASCI]l
LASCI1
ASCI1
LASCII
LASCII
LASCII
LASCI]
ASCI1

LASCII
.ASCI]
.ASCII
.ASCII

P.AEB:

LASCII

LASCII
LASCII1
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII

LASCII

VAX=11 Bliss=16 V3=555

[

SEQ 73

DISK$USER2:[DlEtZ.RELfASEJZROADO.BL1:?8‘(35)

<00><00>

/gni/
/zed/
7/ CR/

/ =/
/UNR/
/ECO/
/GN1/
/ZED/
7/ OP/
/COD/

/E/<00><00>
7/ -/
/MSC/
/P S/
/TAT/

/US /
/COD/
/E E/
/RRO/

/R/<00>
/ -/
/DUP/
7 ST/
/ATUW/
/S C/
/ODE/
7/ ER/
/ROR/

<00><00>

P
lelelelelelol=lel=lsl=l=l=l=1=]=l"]=lclelelelololTToToTo
o 1o e ]

—

— ——d D

—

SNRINSRR

O ON NWVIVIOWM =0 S ONNWVWWNIO
OIS OWVOWWN ONNVIVIO

~N &SSO
2-.
T S QY Y eY -.2
NNNOONININ)
SO RWoOMR :2:1::5-‘238:;‘,2:::;2§:::;:2
- \NON S ONINVW

PROTECTION TABLE
1
14
1
14
1%;
1
040
163
147

101

007
007

000
040

007251
007.
007257
007
00726

123
117

114
Okg
12
103
120
105
125

14
1
14
1$

124

040
104

0¢
1

103
105

040
122

105
17

‘l‘l?
1
0‘2
1"
122

007276
00
007303
007306
| 007311
007314
007317
007322
007325
007330

12
040
104
040
123
103
120
105
122
122

002
05
102
110
124
117
101
040
122
000

007351
007354
007357
00
00736
007370
007373
007376
007401

101
104
040
104
040
040
105
117
m

104
125
115
m
000
055
122
122
‘l‘lg

040
120
105
101
000
040
122
040
040

007426
007431

040
114

103
122

124
040

007437

120

122

73
00733
007340
007343
007346

007404
007407
| 00741
00741
0074
00742
7434

007442

040
125
102
040
040

104
055
124
110
040
m
114

000

055
116
114
124
114

12
120
040
105
125
116

103

000

LASCII

125

040

P.AED:

P.AEE:

040
101
105
117
117

P.AEF:

115
122
105
117

069

P.AEG:

/7 =/
Zunr/

/eco/
/gni/
/2ed/
7 ST/

/ATW/

LASCII
.ASCI1

/S C/
/ODE/

LASCII
LASCII
LASCII
+LASCII
.LASCI1

/LBN/
/7 WO/
/ST /
/COMW/
/PAR/

LASCII
.ASCII

+LASCI1
.ASCII

040
119
1
040

120
113
127
llg
12
107

LASCII
LASCII

LASCII
LASCII
JASCII
LASCII

1
151
144
124

055

102
110
124
117
101

P.AEC:

LASCII
.ASCII
LASCII
LASCI1
+LASCII
JASCII
.ASCII
+ASCII1
+ASCI1
LASCII

LASCII
LASCII
+ASCI1
LASCII
LASCII

LASCII
+LASCII
LASCII
LASCII
LASCII
.ASCII
+LASCII
+ASCII

LASCII

LASCII
+ASCII
LASCII
+LASCI1
LASCII
+ASCII

LASCII
LASCII
LASCII

LASCII

NSKWSERZ:[DIEYZ.RELEASEJZW.I‘I:?BO(”)

<00>
/ =/

/E E/
/RRO/

/R/<00>
/ -/
/DBN/
/ WO/
/ST /
/COM/
/PAR/
/E E/
/RRO/
/R/<00>
/7 =/
7/
/BLE/
/7 TO/
/7 LO/

/AD /
/DUP/
7/ ME/
/DIA/
/7 7<00><00>
/ =/
/ERR/
/OR /

/IN /

/DUP/
/=-PK/
/T W/
/HEN/
/7 US/
/ING/

/7 CT/
/LR /
/LC /

/PRG/

<00><00>

M;
14
17

SEQ 74

- 4

g?
7

062
16

VAX=11 Bliss=16_V3-555

CO00000000000000

51-.!0(-198% 15:19:20

PROTECTION TABLE

v01.2

00 1;
00721

1=Jul=1983 15:25:58

RD/RX EXERCISER

IROAMY

002

1
126
1
1"
000

P.AEK:

1 i

181

124

P.AEL:

007536

007541
007544
7547
00755;
00755
007560
007563
00
0075
0075
007576
007601
007604
007607

00761
00761
007616
007621

007624
007627
0076

00763
00764
00764
7

007651
007654
007657
007

007
0076 g
00767

—

“9

10;

101

116

124

m
040
040
101
101
105
124
105
045
105
101
117
101
10;

117
124
101
111
105
04
101
000
101
104
040
152
124
125

119
n
126
114
114
123
124
P.AEM:

115
m
102
1
040
122

000

105
045
105

1%7
124
120
124
124
000
104
111

P.AEN:

10
122
10

101
111
055
117
103
104
lgl
1 g

103
120
105
122

117
101
040
122

n
12%
10
117

1"
002
04
12;

103

12;
04
101

——ee

000
101
124

101

7ED/<00>

LASCII

/S1T/

LASCII
LASCII
LASCI1
LASCII
LASCI1
LASCII
.ASCII
LASCII

LASCII
LASCII
LASCII
ASCIL
+LASCI1
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCI1
LASCII
+ASCI1

P.AEO:

710N/
7 TO/
7 AV/
/AIL/
/ABL/
/E S/
/TAT/
/E/<00>
/
/ED1/
/A F/
/0RM/
/AT /
/ERR/

LASCII
.ASCII
LASCII
LASCII
LASCI1
LASCII
.ASCI1

/7COM/
/PAR/
/E E/
/RRO/

+LASCII

P.AEP:

/3AW/
/NIT/
7 OF/
/FLY/
/NE/<00>
<00>
/ZAT/
/RAN/

/0R/<00>
<00>
/ZAW/
/RIT/
/E-P/
/ROT/
/ECT/
/ED/<00>
/ZAD/
/EVI/

LASCII
LASCII
LASCII
LASCII

LASCII
LASCII
LASCII

042

000
104

LASCII

LASCII
.ASCII
LASCII

~
.c.o.o.a= .o= .o= ..o= _o= 3 8'

101
m
117
114
105

007477

OO0

P.AEJ:

?6
18
04
106
1"

n
101

1
1"
04

/CE /

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

10
n
1
1
126

1
1
g 16
7521
7524
7

76
7674

7662
766
76’?

LASCII /3Al/
LASCII /NVA/
.ASCI{ /LIb/
LASCII
7 Co/
.LASCII
LASCII /ND/<00>
LASCII /3AC/
LASCII 7/
LASCII /AND/
LASCI1 /7 A8/
LASCI1 /ORT/

P.AEl:

S
16
1%
?‘g

m
101
1
n
101

101
1
1
10;
n
104
101
115
116
101
122

76444
7647
74
74

1=Jul=198 1;:?3:38

DISKSUSERZ: Dl!!l.lEtEASEJZROAIO.Ill:?8.(35)

v 4

FROYE($IOU %AILE

SEQ 75

[elelelelelelelelelelele
elcococoo

v01.2

1=Jul=1983 15:25:

RD/RX EXERCISER

IRQAMY

VAX=11 Bliss=16 V3-555

IROAM
vo1.2

°Jul°190§ };

Sijutcios

PROTECT
10N TABLE

Ty
P.AEQ:

P.AER

P.AES:

P.AET:

P.AEV

P.AEH

VAX=11 Bliss=1
ko
s on o 1 1Y RELEASE12R0AB0.5L1 10 (35
D
6

V3-555

s€o

“o

8
et

“P..-.

%RSPM & —

4m—

o[l -" [

fl%&&flfiflfi&s

g
§
0

Q&O0000oooooooooooooooooooooo
oooooooooooooo

AAAAAAAAAAAANS S SN NN NN NN VNSNS S S S SS S SO S S SN S SN SI NN VNNNINNENEETMS
llllllllllllllllllllllll"lxlllllllll"llll
.................................l...................

e—

ZRQAM1

v01.2

010344
010347
810 52

;

RD/RX EXERCISER
TABLE
PROTECTION
12

/ERR/

.ASCII

/ZA~/

o:.g
12
104

104
113
062

1
045
045

0103

040

123

LASCII 7 D1/
ASCII /5K%/
LASCII /D2%/
ASCII /A =/
ASCII 7 'S/

010401

104

101

122

LASCII

105
17
105
062
122

122
116
103
040
12;

LASCI1
LASCII
ASCII
ASCII
LASCII

10354

mos;g

101

010357
010
01036

010376

124

oag
101

LASCI1

1?;
11g

osg

055

116

104
113
116

010404
010407
moug

104
m
040

040
123
m

010434
010437
010442
010445
010450
010453
010456
010461
010464
010467
010472
010475

17
116

040
115
114
m
042

122
000
101
104
113
062
040
042
101
040
123
040

122
000

045
000

045
101
117

116
11
040

045
057
102

105

122

040

040
062
111

050
040
124

01041
010420
010423
010426
010431

10500

010503
010506

010510
010512
010514
010516
010520

010522
010525
010530
010533

010536

010541
010544
010547
010552
010555

010560
010563
070566
010571

124
103
116
124
105

045

040
123
104
101

122

010216*
010246'
010306°
010354’
010442°

125

122

106

101
122
123
117
122

104
105
040
122
105

123

051

104
063
102

P.AFB:

04
000
052

m
045
045
055

P.AFC:

123
114
104
113
105

P.AEX:

106

104
123
106
040
101

072

P.AFD:

15:25:58
1=Jul=1 gtsm:zo

ASCII

/TAN/

LASCII
LASCII
LASCII

/D D/
718K/
7 IN/

LASCII
LASCII

LASCII
LASCI1
LASCII

/OR%/
/N/<00><00>
/%A+/
7 01/
/SK%/
/D2%/
/A =/
7 ''s/
/MAL/
/L D/
/71SK/
/" E/

LASCII
LASCII

/RIN/
<00><00>

.ASCII
LASCI1
LASCII

/A1/<57>

JASCII

LASCII
LASCII
LASCII
ASCII
ASCII

LASCII

116

.5
1=Jul=1

LASCII
/0R%/
ASCII /N/<00>

LASCII

117

.WORD
WORD
.WORD
.WORD
JWORD

/DAR/

/TER/
/CON/
/NEC/
7
/T
/ERR/

/RRO/

P.AEY
P.AEZ
P.AFA
P.AFB
P.AFC

/INX/
/0 B/

LASCII

/UFF/

LASCII
LASCII
LASCII
LASCII
LASCII

/ADD/
/RES/
/S F/
/0R 7
/REA/

LASCII

/BIT/

LASCII

LASCII
ASCII

JASCIT

/ER /

/D (/
732 /
/S):/

VAX=11 Bliss=16 V3-555

ka778 |

DISKSUSER2: omz.musemw.m:?a'm) |

117
101
117
116

010574
010577
01060
01060
010610
010612
010615
010620
010623

040
066
040
066
000
045
10
117
125

045
045
045
045
000
116
m
040
106

010675
010700

050
040
124
072
117
101
117
045
101
116
050
101
040
065

063
102
123
040
066
040
056
116
114
072
122
104
045
045

102
106
040
104
123
106
040
mm
040
062
m
051
045
045
045
000
045
102
040
105
051
104
101

040
066
051
045
101
116
050
11
051
104

045
045
000
116
114
072
127
124
040
065

117
101
000
045
102
040
122
105
045
045

011010

117
101
045

066
051
116

045
000
045

011027

040

102

114

10626
010631
010634
010637
010642
010645
010650
010653
010656
010661
010664
010667
010672

010703
010706
010711
010714
010717
010722
010725
010730
010733
010736
010741
010744
010747
010752
010755
010760
010763
010766
010771
010774
010777
011002
011005

011013
011016
011021
011024

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2

105
101
122
123
117
127
124

056
117

101
050
124

101
120
103
105

122
104
105
040
122
122
105

040
103

056
117
040

122
114
105
116

045
057

P.AFE:

LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
ASCII
LASCII
.ASCII

.ASCII
.ASCII
.ASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
LASCII
ASCII
LASCII
ASCII

P.AFF:

050
124

P.AFG:

040
103
045

105
101
115
124

P.AFH:

LASCII
LASCII

LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
ASCII
LASCII
LASCII
LASCII
ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

LASCII

LASCII1
LASCII
LASCII
.ASCII

LASCII

7 %0/
/763A/
7 %0/
763N/
<00><00>
/INX/
/A1/7<57>

/0 B/
/UFF/
/ER /
/ADD/
/RES/
/S F/
/OR /
/WR1/
/TE /
/(32/
7/ Bl/
/718)/
/: ¥/
/06%/
/A %/
/706/<00>
/3INX%/
/ALB/
/N: /
/(RE/
/AD)/
7 %D/
/5%A/

/. (/
/0CT/
/7 %0/
/6%A/
7)7<00><00>
/3INX/
/ALB/
/N: /
/(WR/
[/ITE/
/) X%/
/D5%/
/A, /
/(0C/
/T %X/
/06%/
/A)/<00>

/3INX%/

/ARE/
/PLA/
/CEM/
/ENT/

7/ BL/

SEQ 79

Paao 79
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEJZROABO.BL1;10 (35)

MNNOMIND

o) O o g ) S S
CCCCCC
CLCCLCLCLC
8 8 8 8 8 8 8CLCICCCCCCe
8 9 9 9 8 8 8CCCCCLCLCL
s e e ®CLCLCCCLCL
8" e LLLLCLCLCL
% 8 8 " B " "CLLLCLCLLC
® 9 ® 9 9 9 %LCLCLLLLLL

S ) S B ) S ) S S S S S S S S S B S B S S S S S S S S S S S S S g g e B B g 4 S g B B B By S

l Nl Nl Nl Nl Nl Sl - —_—————m——
Nl N Nl Nl NULL
NININT Wi NOOUU
N> OOO0OO0OCOOOOOOOOODONIDOOU
Q*»35 ~
3
o

w.J

>a x4 wm —a e Ow — >N "

—

[Talwey
]=][

-a

—

00Lal.al@D

©.w33—
RD/RX EXERCISER
PROTECTION TABLE

P.AFO:

120

P.AFP

055
-

P.AFR

P.AFS

P.AFT:

I
.
LASCII
LASCII
LASCII
+LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
ASCI1
ASCI1
LASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII
+ASCII
.ASCII1
+ASCII
LASCII
+ASCI1
+ASCII
LASCII
LASCII
LASCII
ASCI1
LASCII
LASCII

/AST/
/ATYW/
/S S/
/UB~/
/COD/
/E: /
<00>
/INX/
/ACO/
/MMA/
/ND:/
7/ _/<00>
/XA=/
/DUP/
/=/<00>
/%A=/
/MSC/
/P=/<00>
<00>
/%A=/
/CoOM/
/PAR/
/E/<00><00>
/INX/
/ABA/
/D B/
/LOC/
/K R/
/EPO/
/RTE/
/D: /
/%05/
/%A./
<00><00>
/INX/
/ALB/

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/%D5/
/%A./

LASCII

P.AFU

/N: /
/ (0/

/CT /

/%06/
/%A)/
<00>
/3INX/

78S )

Mm n — v ."- [Tal-l .-

SEQ 81

oleleloelelelellslmlsi
(o Jololololelololelelelelo

NS5ERASS

P.AFN

woy
l=] [

21=Jul=19
21=Jul=19

RD/RX EXERCISER
PROTECTION TABLE

VAX=11 Bl iss=16 V3-555
DISKSUSER2:[DIETZ. RELEASEJZROABO.BL1;

—t=h - oo

a0 @0

[LY,]

RD/RX EXERCISER
PROTECTION TABLE

lll‘ll!lllll,lllllllllll,lllllllll'&l"lllll!lllllll"ll

["aY"a) . e o .

P
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ .RELEASEJZROABO.BLY;

SEQ 82

000

1lg
n
1 g
1
13
072

045
105
101
040
120
040

P.AFZ:

112
n
123
105
125
105
072

045
105
101
040
115
122
040

P.AGA:

116
115
123
105
122
122
117
123

045
105
101
040
122
040
104
072

P.AGB:

116
102

045
13

P.AGC:

040
063

045
000

000
105
125
105

LASCII

.ASCII
ASCII
LASCI1
ASCII
LASCI1

LASCII

040
115
122

/AME/
/SSA/
/GE /
/ERR/
/OR /
/COD/
/ES:/

LASCII
.ASCII
LASCI1

LASCII
LASCII

ASCII
LASCII

116
122
104

040

101
127
104
151

045

045
101
117

122

104
117
040
156

102

P.AGE:

/TE /
/NUMN/
/BER/

/: ¥/
/D3/<00>

/2INX/
/ARA/
/NDO/

102
000

LASCII

040

/3INX/
/ABY/

.ASCII
LASCII
LASCII

LASCII
LASCII
LASCII
LASCII

104

7 /7<00>

.ASCII

040
11
105
127

127
124
116
117

045
066

/3IN¥/
/AME/
/SSA/
/GE /
/NUN/
/BER/
/S: /
<00>
/3INX/

<00>
/3INX/
/ARA/
/NDO/
/M W/
/RIT/
/TEN/
/7 WO/
/RD /

LASCII
.ASCII
LASCI1

045
101

117

/E: /

LASCI1
LASCI1
.ASCI1
.ASCI1
.ASCII1
LASCII
LASCI]1

116
122
104

/3IN¥/
/AME/
/SSA/
/GE /
/TYP/

<00><00>

LASCII
LASCII
.ASCI1

P.AGD:

/73N/<00>

<00>

LASCII

LASCII
LASCI1
LASCI1
.ASCI11
LASCII
.ASCI1
LASCII
LASCI1
.ASCII

LASCII

LASCII1
LASCII
.ASCI1
LASCII

LASCII1

/:%8/
/716/<00>
/M R/

/EAD/
7 WO/
/RD /
/bin/

/:%8/

OOOOOOCO00

116

SEQ 83

3
2)
DISKSUSERZ: olEtl.lELEASEJIROABO.Iti:?8.(3
VAX=11 Bliss=16 V3-555

OO0

P ——

b ik

W
WO

=0W
VNN
=ONMNO
WOWVNI NS

e e
e
i
e
e o
b e
e
b d e
i o
d
— e

O
20D =d b

B
e e T

OoONONO
NO=ONO
-NO gg-n-.-n-n-a-.-o
OO=0O0NO
NN?N N223R83%3253
QERRSIZSRR
ON
S = VO WVIWNWVIN
W= £ wN O NW—= 58 VIS NN - 58 NNV OVVION =N =NNO HMMNOVION
=W

I, §
I

b d e 00O000O0O0O000000O0
e D e e D D D ) D D e D D
-1 OO0
D
h d e
— e

D d

b e

LSLNTNTNTN
NN NN LN LN LN DN LS OV N S UYLV

(=lelelelelelelelelelelelelelelelelele]

31-Jul-198§ 15:19:28

PROTECTION TABLE

000

1=Jul=1983 15:25:5

RD/RX EXERCISER

8
-—

333~§
~ NPR o8
SZSIITa2

21=Jul=1983 15:25:58

RD/RX EXERCISER

21=Jul=1983 15:19:20

== ONNO
VI =

b
d
cd
o
e
—

A FUBHRIRD

WWW

LASCII
LASCII

066
040
164
17

045
157

116
103
040
045
000
101
040

045
122
072
17

P.AGF:

040
125
116
116
040
062

P.AGG:

040
125
116
116
117
105
mm
040
072
104

P.AGH:

104
000

101
040
113
127
103
116
124
116
104

045
045
055
116
103

124
114
122
114
123

072
066

101
000
045
117

P.AGI:

122
114
040
101
072

116
125
124
114
123

045
116
040
101
072

P.AGJ:

116
105
040
123
107
106
107

045
116
115
123
105
114
123

P.AGK:

116
040

045
104

P.AGL:

000

/Zct:/
/7%06/
<00>
/3INX/
/ACR/
/N :/
7 %0/

.ASCII
LASCI1

LASCII
LASCII
ASCII
LASCII
LASCII
.ASCII1
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII

/%A /
/= W/
/NKN/
/0WN/
/7 : /
/%D2/
<00><00>
/%A /
/= W/
/NKN/
/0WN/
/7 Cco/
/NNE/
/CT1/
/ON /

LASCII
LASCII
LASCII
.ASCII
LASCII

7 %D/
/3%A/
/7 =-/<00>
/3IN%/
/ACO/

LASCII

/:/<00><00>

LASCII

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

.ASCII
LASCII

SEQ 84

DISKSUSERZ:(DIEYZ.RELEASEJZROABO.BL1:18‘(35)

716%/
/A o/

LASCII
ASCII
LASCII
L.ASCII
LASCII
LASCII
ASCII

LASCII

VAX=11 Bliss=16 V3=555

76/<00>

/Z1D:/

/NTR/
/0LL/
/ER /
/FLA/
/GS:/
<00>
/3INX/
/AUN/
/1T /
/FLA/
/GS:/
<00>
/2INX/
/AEN/
/D W/
/ESS/
/AGE/
/7 FL/
/AGS/

/INX/
/A D/

OO0

— e

D e

d o

b -

d wd b

[elelelelelelelelelelelolelelelelelelelolelolololl

)

O =2 =R
S=2oRRER SRISR (=1
VN
— =
VY
SRNTRvAVE §E73%885s8
=WCNYNT-RVV SRR22GR
3333883323883
=S NONON==WnO~N & NNO S NOWO

PROTECTION TABLE

113
127
072

= NSNS

SREFERE
83 OCO=N=N=O -'g Se5z8e3
N

1. 3
VIO =WnO0rWW(=7V.

114
075
104
072
104
116

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
040
040

124

045
103
040
124
122
040
124
103
115
104
m
040
101
122
045
045

P.AGM:

045
101

P.AGN:

040

123
105
122
000

116
040

045
101
040
124
116
101
105
040
040
105

114
105
122
120
113
123
116
122
000

.ASCII
LASCII
LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
+ASCI1
LASCII
LASCII
LASCII
.ASCII
LASCII

/INX/
/A C/
/MD /
/INT/
/, R/
/SP /
/INT/
7/, C/
/0MW/
/AND/
/ RI/
/NG /
/= A/
/DDR/
/: ¥/
/D6%/
/N/<00>
/2INX/
/A A/

LASCII
LASCII

LASCII

.ASCI1
LASCII
CASCII
LASCII

103
124
m
115

123
107
101
101

/RIV/
/ER /
/CON/
/TRO/
/LLE/
/R T/
/ABL/
/E =
/7 AD/
/DR:/
/7 %D/

P.AGO:

LASCII
+LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII

/6XN/
<00><00>

/LL /

/PAC/
/KET/
/S 1/
/N W/

/ESS/
/AGE/
/ AR/

/EA/<00>
<00>
/INX/
/A A/
/LL /
/RET/
/URN/
/ PA/
/CKE/
/1S /
/IN /
/ARE/
/A/<00>

<~
-

102
040
101
122

040

+LASCII
.ASCII1
LASCII
+ASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII
.ASCII
LASCII

DISKSUSERZ:[DIEYZ.RELEASEJZROABO.Bl1:189(35)

. 4

OWV=
N & SNV

d
e
e
i
i
e
e
-

OON=NOON

b b b
) b i O

) b \) ) b ek
-

—b e

A O =
O
-

R -n-.-.—.-.-.-.-ng
—_—

— b
b

RRn—oR

OCO-=NO
—
S NWOWVINS
=W

126
040
116
117
105

SEQ 85

OOOOOOO0O0O000 coco o0

21=Jul=1983 15:19:20

PROTECTION TABLE

VAX=11 Bliss=16 V3=555

OO OO OO0 OO0

21=Jul=1983 15:25:58

RD/RX EXERCISER
m
122
117
122
114

2SRg
WO WO NW

) b wmd —

— —

-t
O

P.AGS:
8

e«

>b 2 2. 2.2 3.3 4
>
> >> b 3 >
e EEBEEBBB>B
B> wunn
(7. 37,] w wunn nmnunununnnmnm

-AS

.AS

e e

S Sy Sy e

e L L

e e

eL L

e e

Ly e

g B

Bt Do

el L

OROCOOOOOOOOOOK

e e

bt o B

ot b

bt ey

g et Bt

RD/RX EXERCISER
PROTECTION TABLE

21=Jul=1983 15: 2. .58
21=Jul=19 83 15: 1 9: '

OO0

[

o) By B Do St b

nuununnnn wvuumumumumumunmnumunnmn
alalalalalalalalalaalalalalalalalalalalal alalalalalalalalalalalalalalalalal alalalalalslalalalalelelel;ly]

>>>>>>D>

OHWOOWVWVIN
=w

S O0OOC=NNVIONN =W

§83222:333§§82 g RSSPRRR =

P.AGR:

—

—_-O=0ONO
R SRF=M=R
R3337SR
PO NO=WVNWVH
WO
=N -2WN

NW=O M NYNIWO N WV =WVWWWVIN

P.AGO:

oOoNO
VIONN =\

VINSOONO

23 3533EEREREZ

=S NOVIOWOO=HNS

R2RSVIRINERS33R8RR23R33I3SR
—

P.AGP:

VIS S NS WO

—

SSRSZRISRISSSRR
2NN-‘NN-‘
(=1=]

2-.-.-.—.-.-.-.—.-.-.-.2
Q - 8 -.n-n-n-.g-o-o-n-.-.-.-n-.-.-o-a-.-n R
O-DO-lONNNN-Dg
NWVININNVWO
NN
oo g VIV

—a

ZRQAMT
v01.2

—_——

—

012652

17
Paae 86
VAX=11 Bliss=16 V3=555
DISKSUSER2: [(DIETZ.RELEAS EJZROABO.BL1;10 (35)

SEQ 86

——
b

e
R

O VNVO NN =2 = ON N =b =

e
i
d e
b e e

= =g - NON
..~..2 S OIN)
- NN g - RREIZoSmoR
NW=O S NNNOVOWO NW
VWO =W

O -t

— O8N =

§°—‘N

§NN°

-t
—

-0
NS VOWn

d wed cd

NNV

i
i

NNNOOSWVWVWNES
SN B W

—

040
066
116
104
114
101

040

101
0490
103
124
117
101
040
11%
12

LASCII
ASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII

124
045

ASCII
LASCII

LASCII
ASCI1
LASCII

124
117
124

000
045

125
m
124

P.AGT:

125

/0 %/
/D6/<00>

LASCI1
LASCI1
LASCII

/ADU/
/PL1/
/CAT/

/E W/

LASCII
LASCII

/:%D/
/23%A/

124

LASCII

124
120
045

ASCII
LASCII

045
045
101
040
066
116

115
105
110

040
061
040
106

122
124
120
104
105
105

000
101
123
125
124

114

101
103
104
040
124

000
045

17
040
101

P.AGU:

LASCI1
.ASCI1
LASCII
LASCII
.ASCII
.ASCI1
LASCI1
P.AGV:

LASCII
L.ASCII
LASCII
.ASCII
LASCII

LASCII

000
055
122
m
116
1

LASCII
.ASCI1

LASCII
. oCI1

105
040
040
104
123
123

055
105
105
11

LASCI1
LASCII
.ASCII
LASCI1
LASCI1

045
045
104
106

P.AGW:

/3INX/

LASCII

104
101

/SSA/
/GE /
/PAC/
/KET/
7 Co/
7/
/ND /
/RIN/
/6 S/
/L01/
/7 PO/
ZINT/
/S I/

LASCII
.ASCII

LASCII
.ASCI]l
.ASCI}
LASCII1
LASCII
LASCII

SEQ 87

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

/NIT/

7/ AT/
7 1P/

/: ¥/
/706/<00>
/3INX/
/7AMO/
/RE /
/THA/

/N %/
/D1%/
/A D/
/ZIFF/

/ERE/
/NT /
/1P /
/ADD/
/RES/
/SES/

<00><00>
/%A-/
/ SE/
/QUE/
/NT1/

/AL/<00>

<00>
/%A-/
/ CR/
/EDI1/
/T N/
/0T1/

(elelelolelelelelelelelalelalolololololelo
ol e Te Te e

d cd cd

===

) k)
)
D
D
D e
) D
D
e
D D e
D e
D b o

— e

[=lelelelelelelelelelelelelelelele
]

123
105
101
105
103
115
104
m
040
17
120
116
040

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

RD/RX EXERCISER
PROTECTION TABLE

(elelelelelelelelolelelelelelelele ool 8 3
WWWWWNWWNWWWWWWWWNWWWWWN
=

v01.2

013341
1

106

101

13347
1 Sg
81 35
|01 36g
01336
013366
013371
01337
01357
013400
013403
01
013412
013413
013416
013420
01;223
013426

117
825
0
m
105
116
000
045
040
124
122
000
045
105
000
045
122
105

013436
013441
013442
013445
013450
013453
013454
013457

123
000
045
116
m
000
045
105

013430
013433

013462
013465
013470
013473

045
103

103
124
114
110

01%476
013500
013503
013506
013511
013514
013517
013522
013525
013530
013533

052
04
105
104
124
124
125
045
130
125
040

013547

107

013536
013541
013544

013552
013555
013560
013563

120
m
040

045
130
125
040

103

LASCII

/FIC/

116
101
115
116
116
103

802
5
101
1%6
101
105

101
104
101
101
000
101
101
000
101
m
000

055
101
107
115

P.AGY:

122
104

P.AGZ:

127
124

P.AHA:

LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
+LASCII
LASCII
ASCII
LASCII
LASCII

/ON/<00>
/ZA~/
/7 WA/
/INT/
/ENA/
/NCE/
<00>
/3A</
7/ DA/
/TAG/
/RAW/
<00><00>
/ZAR/
/EAD/
<00><00>
/XAW/
/RIT/
/E/<00>

126

LASCI1

P.AGX:

101
103
123

101 105

P.AHB:

000

101
040
116

117
114
105

P.AHC:

101
124
117
122
040
101
000
101
124
125
040
101
123
101
105
124
123
120
105
120

123
040
116
117
103
122

P.AHD:

107
040
123
123
124
000
105
103
105
125
114
104
122

P.AHE:

105
103
105
17

P.AHG:

000
101
105
124
114

000

SEQ 88

1=Jul=1983 15:19:20 DISKSUSERZ:(DIETZ.RELEASEJZROAB0.0L':?B.CSg?
1=Jul=1983 15:25:58

PROTECTION TABLE

RD/RX EXERCISER

IRQAMY

P.AHF:

.ASCII
+LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCI1
.ASCII
LASCII
+ASCII
LASCII
.ASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
_ASCII
LASCII
.ASCII
LASCII
+ASCI1
LASCII
LASCI1

LASCII

.ASCII
LASCII
.ASCII
LASCII

/ATL/

/CCE/
/55/<00>
<00>
/%A0/
/N L/
/INE/
<00>
/ZAS/
/ET /
/CON/
/TRO/
/L C/
/HAR/
/./<00>
/XAG/
/ET /
/DUS/
/T S/
/TAT/
/US/<00>
/ZAE/
/XEC/
/UTE/
7/ SUW/
/PPL/
/IED/
/ PR/

/6/<00><00>
/ZAE/
/XEC/
/UTE/
/7 LO/

VAX=11 Bliss=16 V3=555

13566

1
1B
13576
13601

01
013607
oiserz
01261

01
1

PROTECTION_ TABLE

101

114

116

04
10
045

060
126
045
05

106
101
101
108

126
106

7 DA/
/TA/<00>
/3AR/
/ECE/

"ASCII

7/ DA/

ASCII

/BOR/

105
101

1
01
01
giseso
01365
013656

12¢
045
1
03
17
111

000
101
m
106
116
10

013666
013666

104
045

101

123

013676
013677
| 013

114
117
05

040
116
1038

106

103
116
124

000

1256
111

120
103

114
101

013661

013671
01370

nroo122

126

105

01371

045

013721

126

01371
| 013716

117

111

101

101
040
114

106
117
111

013757
013762
013765
013770
013773

813776

174

104

105

013746
013751
013756

111
116
10
000
101

000
101

000
123

116

105

000

111
040
114

174
117
111

14001

000
045

101

125

014010
01401

040
13

125
116

1ig
11

014002

014005

116

P.AMK:

134

ASCI] ZIVE/
ASCIT
ASCII
.ASCII
"ASCII
.ASCI]
TASCIT
ASCII
TASCII
TASCII

15:25:58

VAX=11 Bliss=16 V3555

]

/TA/<00>
<00>
/3AM/
/1/<00>
/3AS/
/PIN/
7-DO/
7
/WN
/71GN/

"ASCI] /ORE/

P.AML:

ASCIT
.ASCII

/D/<00>
/IAS/

ASCII
ASCIT
ASCII

/L ¢/
/ONN/
/ECT/

ASCIT /TIL/
ASCIT

/ED/<00>

P.ANM: .ASCII /3AD/
ASCII
ASCII

/UPL/
Z1CA/

ASCII
"ASCII
ASCII
ASCII
.ASCII

/UNI/
/T N/
/uUmB/
/ER/<00>
/3AA/

"ASCI1 /TE /

P.AMN:

"ASCII /LRE/

"ASCII /ADY/
ASCII 7/ ON/
"ASCIT /7LIN/

131
116
116

105
045

126
114
116

P.AMJ:

122

116
0
115
122
101

123
11
11
040
16

040

125
1%
125
105
045

01374

122

105

013726
oi3er
0137
01373
01374

P.AMI:

101

102

/END/

ASCII
ASCI1
.ASCII
ASCI]

000

ASCII

101

/CAL/

ASCII 7 PR/
"ASCII 76/<00>
P.AMH: .ASCI] /3AS/

126
000
0

1
13631
1632

ASCII

122
123
12

SEQ 89

P
18" (35)T
OABO.BL
EASE1ZR
R
Y
e
Ul 1oas 1Sl A

RD/RX EXERCISER

ZROAM

V01,2

L 7
1Jul=1983

Q9992222222828 §%

—

P.AHO:

ASCIT
.ASCII
ASCII
"ASCII
ASCII

/E/<00><00>
/3AS/
/TIL/
/L O/
/NL1/

JASCII /NE/<00>

P.AWP:

| 0

"ASCII <00>
.ASCII

/IAU/

"ASCII
ASCIT

7 UN/
/KNO/

ASCII /NIT/

IROAMY
vo1.2

;8
135
s
Ce8
SIL

PROTECTION TABLE

P.AHS:

ll‘l'llll‘llllllllllll!llllllllllllllllllllllllllllll

ol |

VAX=11 llisz-td v3-555
DISKSUSER2: [DIETZ .RELEASE JZROABOBL1;

—

— e

e O

[

.AS
S

.AS

e e

e e e

Ot B B B Bt

g Do B

g g Bt B St Bt S B B B By B

Y e e L e

e R ] B Reg G

ey By B

g b

B Bag B

D ety Do B Bt 02 By

g By G

Sy B

g B Bt Bt g g By g B Bg g St Pt Gt g Bt g Bt S B B Doy By Gt By Bond o B

e R

g Bt

arf-

-y

2228

2ERE22>>

YLV

0 2 2 D >>
b 3. 23.2.3.
3. 2.3 P PP

ONWVI=ON
NOWNHO =N

—_NO - NN§ONN - SERNOSIRNBN

wd d wd wd

PON)
= b 2 )b
WEON=No

d e

ot
B
R
e

w
nuunununnnn vvuunununmuununununnnunnnm wn
ailnlnlnlaizlzslzslaslzslislisislislslislsalslialelsly) alalblalalalalalelsl [alalalalalalasl e lalalalalalalalalalalalalial
w

W
N O NNNO

— —d d d wd e

N NWNWW

2-.-0 -.-.-.2

Dbt
N
NSO SNINW =
n=wuifn

—I—logd NNO=H~
— b ON

OO=HhO00O =SB0
PO
= oSHOON

BN
—-00 =0
-ng-o-n-.-.—n — b b b D D O=ONHONVINVIN=

N NNNOO§N-‘OO~O

) -

ed D d ok b

-l

2-.-.—.-‘2-.-.-.-.—.-. LY)
W
NS = 3
dNOO-‘g SoRnBeR m§ oNO
fONVVINO
=N S NNV
OO ONWWWNO

HOOONONINO
O-l—lNNg
=ONOWV
=WV
=

NOONNWW O =

Y o R S
-

228=33R823R8
-\
N O

PROTECTION

/1/<00><00>

/ RC/

/3AS/
/ECT/
/WR1/
/TTE/

/OR /

tei RER TR
VAX=11 Bliss=16 Vv3-555

DISKSUSERZ: [DIETZ.RELE

NJIM..J:“'(”)

014603

14606
014611
014614
014617
014622
014625
014630
014633
014636
014641
014644
014647
014652
014655
014660
014662
014665
014670
014673
014676
014701
014704
014707
01471
014715
014720
014723
014726

014731

014734
014737
014742

104
101
131
040
124
117
104
104
101
131
040
115
125
000
106
040
040

P.AHX:

P.AHY:

P.AHZ:

.7]

P.AHW:

LASCII / SE/
LASCII /CT0/
LASCII /R W
+ASCII /EAD/
.ASCII /ER/<00>
ASCII /%AW/
LASCI1 /EAD/
LASCII /ER /
LASCII /COM/
+ASCII /PAR/
LASCII /E E/
+ASCII /RRO/
LASCII /R (/
+LASCII /VAL/
LASCII /1D /
LASCII /HEA/
+ASCI1 /DER/
+LASCII 7/ NO/
LASCII /T F/
+LASCII /OUN/
LASCII /D)/<00>
.ASCII /XAF/
LASCII /CT /
LASCII /OR /
LASCII /RCT/
LASCII /7 UN/
.ASCII /REA/
LASCI1 /DAB/
LASCII /LE /
LASCII /= D/
LASCI1 /ATA/
LASCII / SY/
LASCII /NC /
LASCII /TIM/
+LASCII /EOU/
LASCII /1/<00>
_ASCII /XAD/
LASCII /ATA/
LASCII /7 SY/
LASCII /NC /
LASCII /NOT/
LASCII 7/ FO/
+ASCII /UND/
LASCII 7 (D/
LASCII /ATA/
LASCII 7 SY/
LASCII1 /NC /
LASCII /TIMN/
LASCII /EOU/
LASCII /T7)/<00>
LASCII /%AF/
LASCII /CT /
LASCII /OR /

105
117
110
104
000
110
104
040
115
122
105
117
050
114
040
101
122
117
106
116
000
106
040
040
124
116
101
102
040
104
101
131
040
115
125

DISKSUSERZ:fDlETZ.RELEASEJZROABO.BL1:?8.(35)

123
124
040
101
122
101
101
122
117
101
040
122
040
101
104
105
105
116
040
125
051
101
124
122
103
125
105
101
105
040
124
123
103
1i1
117
000
101
124
123
103
117
106
116
050
124
123
103
111
117
051
101
124
122

SEQ 92

040
103
122
105
105
045
105
105
103
120
105
122
122
126
m
110
104
040
124
117
104
045
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
124
045
103
17

——————

PROTECTION TABLE

v01.2

014556
014561
014564
014567
014572
014575
014600

51-Jul°19lg 15:19:20

VAX=11 Bliss=16 V3=555

RD/RX EXERCISER

ZRQAM1

014507
014512
014515
014520
014523
014526
014531
014534
014537
014542
014545
014550
014553

1=Jul=1983 15:25:58

D OO

e o

b b b

b b b wd b

N22328S

b =D = —b

= NOWVN~N

D =D

b =2 O =

R=R

—
b b
O b
= O b =k =d O =
nNOOO
SO
O=HBH/NOONW=O S ONWNVI= 20N o

NNNOSOON=HSNINO
OON—'U’—'?N
N
WONWN O TNINIWONWNON
VS
SO

5=Jul=1983 15:1 9:20

=Jul=1983 15:2 5:5 8

P.AlA:

P.AlB:

P.AIC:

P.AID:

SEQ 93
-

93
©
VAX=11 Bliss=16 V3-555
(SS)
:?B‘
.Btl
2:
JZROABO
E
SER
.RELEAS
[DIETZ
DISKSU

———————

RD/RX EXERCISER
PROTECTION TABLE

R=NOON
O—'NN°°§N
O=NNNOSHOOON
WVINS 20NV
S NNW=0ONOWVS
SNWOW =W

S NWWW NN

ZROAM1
v01.2

-NOO -.2

- N ANONIN N
= b ) = =
—=NOO =N
ONWNES NI
ONWV=
NSO ==\ SO

014745

—

e o

D=2 WOWVNINSNON

d oh o

d o o

ViV

—d

[elelelelelelelelelelelelelelelelelele
lole

NOWVIN =Y OWVINNNONIWNW

—

NN
B NSO W

RI3322RIRS

101
105
13
117
105
040
122

117
040
115
114
103
105
117

P.AIF:

101
117

P.AIG:

117
105
040
122

124
040
115
114
103
105
117

122
040
115
114
103
105
117

105
123
102
040
103
122
122

131

000
101

000

101
125
123
102
040
103
122
122
101

000

000
124

106
122
13
117
105
040
122
000
106

P.AlJ:

/PTE/

/D/<00>

LASCII

/R/<00><00>

LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCII
.ASCII

L.ASCII
LASCII

LASCI1
.ASCII1
LASCII
.ASCII

P.AIl:

/T F/
/ORM/
/ATV/
/ED /
/OR /
/FCT/
7 Co/
/RRU/

LASCII

P.AIH:

/ZAD/
/Z1SK/
7 NO/

LASCII
LJASC!!

LASCI]
.ASCI1
LASCII
LASCII
LASCII
LASCII1
.ASCI1

LASCII

.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LJASCII

/%A0/
/NE /
/SYMN/
/B0L/
7/ EC/
/C E/
/RRO/

<.
7]

<00><00>

LASCII

.ASCII
LASCII
LASCII
LASCII
.ASCII
ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCI1
ASCII1

P.AIE:

/8BYV/
/E S/
/ECV/
/0ORS/

e T e

104
113
117
106
115
124
040
040
124
117
125
105

000

712 /7

101
123
116
040
122
124
104
122
103
103
122
124

000

LASCII

LASCII
LASCI1
LASCII
.ASCI1

124
1%3
124
123

000

040

Y e T

13
04
10
122

DISKSUSERZ:[DIETZ.RELEASEJZROA80.8L1:?8.(35)

dddgdfl—lddd =83 1=t
R O=WO g-n-n-n
o RO RIS
RON =~
N VIWNND
NV =Y
O RN NORO
W RENEFIGI
N

3
rU‘NNN
bbb
=P WO ORWOWVN
A
v

DARRRUIR N

WO VINNS
=N NOWVIN NS =0 WO

WWW
NN

062

SEQ 94

————

51 =Jul=1983 15:19:20

PROTECTICN TABLE

/XAT/
/W0 /

/SYM/

/BOL/
7/ EC/
/C E/
/RRO/

/R/<00><00>
/XAT/
/HRE/
/E S/
/YMB/
/0L /
/ECC/
/ ER/
/ROR/

<00><00>

/XAF/
/0UR/
7 Sv/
/MBO/
/L E/
/CC /
/ERR/
/0R/<0v>
/XAF/

[

33
ggv-mmmmum\nm
—DDbDDDdbD

(elelelelelelelelalel]

b d o

d o

d e

e o

elelelelelelelelelelelelelelele
l-)

1=Jul=-1983 15:25:58

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

BS383%S
O=O
=

000

123
105
123
102
040
103
122
122

P.AIL:

101
107
040
115
114
103
105
117

105
110
123
102
040
103
122
122

P.AIM:

101
122
103
102
040
122
040
040
103
111

103
122
124
114
105
117
1
105
040
105

P.AIN:

101
126
040
115
114
103
105
117

000

104

101
1M
123
124
122
127
124
120

P.AIO:

/R/<00><00>

LASCII

<00><00>

_ASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCI1
.ASCII

LASCII

L.ASCII
.ASCII
LASCII1
LASCII
.ASCI1
.ASCII
ASCII
LASCII
LASCII
LASCI1

LASCII
L.ASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII

/XAS/
/EVE/
/N S/
/YMB/
/0L /
/ECC/
7/ ER/
/ROR/

/XAE/
/I1GH/
/T S/
/YMB/
/0L /
/ECC/
7/ ER/
/ROR/

<00><00>
/%AC/
/0ORR/
/ZECT/
/ABL/
/E E/
/RRO/
/R 1/
/N E/
/CC /
/FIE/

/LD/<00>

<00>
/%AW
/NIT/
7 SO/
/FTW/
/ARE/
/7 WR/
/ZITE/
/ PR/

/BOL/
7 EC/

ASCII

.ASCII
LASCI1
ASCII
LASCII
LASCII
LASCII
ASCI1
.ASCII

/C E/
/RRO/

LASCII

000
125
124
117
127
105
122
105
122

.ASCII1
ASCII

.ASCI1
LASCII

114
103

105
117

/ZIVE/
7 Sv/
/mBO/
/L E/
/CC /
/ERR/
/0R/<00>
/3AS/
/Ix /
/SYwW/

040
122

117
105

P.AIK:

LASCI1
LASCI1
LASCI1
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCI1

105
130
117
105
040
122
000
123
040
115

‘

——————

122
12
102
040
103
122
122
101
130
13

NOWVIN=
SN

ok md ek o
—>

=OO=NNNOOO—=
SOOI
= NINW

B
e

—
—
—

—_

—

—— —

283 NVNO% =
L gOO
=S WOWVININSNINS

S
G
Y
e I
S
——
—d — P

v ViV
ViAW

lelele] elelelelelelelelelelelele)

—

e IS T

R8RR3ER RIS IS RONOR

ON=SP
QO
b S
S VO —
WO N W=V~ VIW
OO
NI =VWV

PROTECTION TABLE

VAX=11 Bliss=16 V3-555
:tDlErl.RELEASEJZROAGO.BL!:?8‘(35)
DISKSUSERZ

et e T

21=Jul=1983

RD/RX EXERCISER

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

-AS

116
055
11
105

115

115
131

117
000

101
123
115
117
040
122
131
122
122

110
124
105
122

14}
040
122
000

101
115
116
124
117

103
115
104
11
125

120

.AS

AAYOYOYO O OO OO0

(35)

/TRA/
/NSF/
/ER /
/ADD/
/RES/

/5/<00><00>
/%A0/
/0D /
/BYT/
/E C/

/0UN/

/1/<00><00>

/EMO/
/RY/<00>
<00>
/XAH/
/0ST1/
/ ME/

P P P PPN POV

000
117
040
124
103
116
000

040
104
123

117
040
101
106

[7d

105

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEAS EJZROABO.BL1;10

S — — — — — — — — S~ S~ S~ S~ S

p=d

.AS

SEQ 96
Pase 96

/MOR/

/Y P/
/AR1/
/1Y /
/ERR/

/0R/<00>

<00>

/XAC/

/0MM/
/AND/
/ 11/
/MOV/

040

127
105
122
105
122
105

040
123

125
124
101

alalalalalalalaslalalslalslalalalalalalalele
Ly le Ly alalalsl alalalalalalalalalsl alalalalaslalalalalalalelely]
R
e e e e
el R e R e e e e e e )
g G Gy 5y ey (o B Bt B Gy B bt Gy S o bt g B Dot By Bt ey By Bt g g B B bt g B [
[P DY Ny Wiy iy Wy Sy Wy Sy ey Sy Sy SOy S
e e e e L L
el i et en ke L Lo Lo Ko X R ] g Bt B Bt fomt B St $oas oy Gy B B 5 S0 By

VIS =2 < \NO

124
117

101
116
130
124

.AS

3Ra3RgIsRaas =88

®
3

105
105

b
e
b
—

-n-n-.-n-b-.-.-og

NON
= =NO =
NV S OO WIS NN

Ndoog

e e e S

b~ —2

—3

—3 a2

—

RENESsvRERaSE2EIRETRES

RD/RX EXERCIS
PROTECTION TABL

124
124
000
101
m
110
104
122
127
124
120
124
124
000
101
104
122
123
122
104
105
000
101
104
131
040
125
000

£V

123
125

125
000

101
11

104
126

124
105
124
116
122

103
115
104

m
117
040

117
105

/TRU/
/CTU/

/RE/<00>
P.AlY:

:
10 (35)
E1ZROABO.BL1

OO O OO0

by By By Gy Bt By fnt oy ot g
Bt Bt Bt B
b
b et B
by b
g b
ey

P.AIX:

-AS

040
124

124
105

040
115
116

-AS

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

AN A YOO
OO OO0

040
122

114
101

/ER1/
/AL1/
/ZER/
<57>/DE/
/SER/
/1AL/

117
11
105
040
124
116

/D/<00>< 00>
/3AS/

Pt by o

103
123
124
124
116
122

P.AIW:

105
040
122
000

lalalalalalalalalalalalalalsl
alalalalzslalslizslisliaslalalalsls] EYMYYYD P

101
103
122
122
101

116
122
116
122
116

/EDE/

125
117
125
105
125

117
122

m
11
122
105
122
114
105

040
105

122
114
105
104
105
101
132

P.AlIV:

000
123

000
101

>>e>» >>>> x>
>
(7 X7 X7, 17, 17, ] wnmunnn nununn

105
105

p=g

103
104

117
122
122
114
m
105

040
040
124
040
115
040

2\00&-‘-‘\’"\)5
OOWVIVIO
=2 NYVINVWVIONIW
S = N < NN

RIAm=R

WWW

FRRUNOR N = b b

NIV

ISR5ERR

PNININ)
= = NOVWO O
QONONN
= = NN =W

OWN
= NONN

PROTECTION TABLE

15:2
15:1

— — — — — — — — L~ — L~ L~ S~ S~ S~ S S S S S S S S S S

21=Jul=19
21=Jul=19

RD/RX EXERCISER

SEQ 97
97
Pa

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

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

016471
016474

122
045
117
124
116
122
122
115
055
105
000
045
117
040
101
127
124
122
104
104
111

016541

016544
016547
016552
016555
016560
016563

016566

016571
016574
016577
016602

114
122

057
124
105
124
116

120
123
117
123
113
116
115
105

V51

117
105
122
105
040
103
120
124
000

101
116
117
105
104
105
105
124
116
m
m
040
040
117
103

103
124
114
122
105
103
104
122
123
123
117
117
120
124
117

000
101

000
120

101
123
122

114
124
105

040
122

123
14}
040
122
040
11
123
113

m
117
105
117
050
123
105
051

057

102

105

127
116
122
123

m
040
101
040
122
107

105
040
101
106

P.AJA:

P.AJB:

/SPO/
/NSE/
7/ OR/
/ SE/
/EK /
/INC/
/OMP/
/LET/

/E)/<00>
<00>
/XAC/

+LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII

/ONT/
/ROL/
/LER/
/ DE/
/TEC/
/TED/
/ TR/
/ANS/
/MIS/
/S10/
/N O/
/R P/
/ROT/
/0C0/
/L E/
/RRO/
/R/<00><00>
/ZAP/
/0S1/
/T10/
/N E/
/RRO/
/R (/
/MIS/
/-SE/
/EK)/
<00>
/ZAL/
/0ST/
/ RE/
/AD/<57>
/WR1/
/TE /
/REA/
/DY /
/DUR/
/ING/

LASCII
LASCII
LASCII
LASCII

/TWE/
/EN /
/TRA/
/NSF/

LASCIJ]
.ASCI1

105
117

104

122
105
105
131
125
116

P.AIZ:

.ASCI1
+LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
+ASCII
.ASCI1
+ASCII1
+ASCII1
LASCII
+ASCI1
LASCI1
+ASCII
LASCII
LASCII
LASCII
.ASCII
+LASCII
.ASCII

LASCII
LASCII

LASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCI1
LASCII
.ASCII
.ASCII
LASCII

LASCII

<57>/BE/

SEQ 98

DISKSUSERZ:[DIETZ.RELEASEJZROABO.8L1:18e(35)

e T e e el e e e e e leleleleleleleleclel=l=l=l=lelv]lelelele
oo e Te T« ]

PROTECTION TABLE

v01.2

016477
016502
016505
016510
016513
016516
016521
016524
016527
016530
016533
016536

21=Jul=1983 15:19:20

VAX=11 Bliss=16 V3=555

RD/RX EXERCISER

ZRQAM1

016463
016466

21=Jul=1983 15:25:58

RD/RX EXERCISER

21=Jul=1983 15:19:20

—

SO =2NNIN)—

—

-o—.g-‘ RvoR=R d-‘—l—ld—.?
oSO
N
RO & & 2-.-.
RoR RN
-\ b =S OVINOVIOW
N §O
WO N g NNW
-S
-\
= NN?OOON
NN
NNV
S WA
WVIW
S W VSO
NO =00 SOHSON

PROTECTION TABLE
122

000
101

m
040
117
040
117
125
101
123
122
105
105
122
104
102
127
116
105
117

000
101

mm
040
124
124
040
122

104

P.AJC:

114
124
105
11
122
105
13
105
105
040
103
122

P.AJD:

104
126
104
105
105
105

P.AJE:

126
103
103
104
120
124

000

120
123
117
123
124
120
111
040
122

125
105
122
124
105
101
124

000

103
124
114
122
105
103
104

045

102
040

141
102

157

174

143

<00><00>
/%AD/

LASCII
L.ASCII
LASCII
.ASCII
LASCI1
LASCII
.ASCII
.ASCII1
.ASCI!
LASCII
.ASCI1
.ASCII
LASCII

<00>
/XAL/
/0ST/
/ RE/
/CEl/
/VER/
7/ RE/
/ADY/
/ BE/
/TWE/
V/EN /
/SEC/
/TOR/

LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII

LASCII
L.ASCII

LASCII
LASCII
.ASCI1
.ASCI1
.ASCII

P.AJG:

/RI1V/
/E C/
/L0C/
/K D/
/ROP/
/0UT/

/5/<00>
/%AD/
/RIV/
/E b/
/ETE/
/CTE/
/D E/
/RRO/

LASCII

/R/<00><00>

LASCII
LASCII
.ASCII1
LASCII
LASCII
LASCII
LASCI1

/7 PUW/
/LSE/
/ OR/
7 ST/
/ATE/
/7 PA/
/RIT/

LASCII
.ASCII
.ASCII
LASCII
LASCII1
LASCII
LASCII

LASCII
.ASCI1

105
117

116

040

P.AJF:

/ERS/

LASCII
.ASCII

.ASCI1

117

000

101
116
117
105
104
105
105

.ASCI1

123

/%AC/
/ONT/
/ROL/
/LER/
/ DE/
/TEC/
/TED/

/Y E/
/RRO/

LASCII

/R/<00>

LASCII

/A /<176>

.ASCII

LASCII
LASCII
LASCII

/2NX/

/ Ba/
/d B/
/loc/

VAX=11 Bliss=16 V3=555

SEQ 99

DISKSUSERZ:[DlEtZ.RELEASEJZROA80.8L1:18’(35)

017037
017042
017045
017050
017053
017054
017057
017062
017065
017070
017073
017076
017101
017104
017107
017110
017113
017116
017121

153
156
160
164
000
045
101
040
162
040
147
145
162
145
000
045
101
040
162

040
162
157
145

125
145
162
144

116
040

045
174
162
162
157
107
145
164
000

P.AJH:

116
040

045
174
145
157

P.AJI:

017127
017132
017135

105
145
151

170
160
157
000
116
174
156
154
101
145
151
040
163
147
000
116
174
156
154
115
143
154
145
163
162
162
157
115
163
145

017124

165

017140
017142
017145

000
045
101

017200
017202
017205
017210
017213
017216
017221
017224
017227
017232
017235
017240
017243
017246
017251
017254
017257
017260

163
045
101
105
142
040
163
154
156
165
105
157
114
040
163
147
000
045

017150
017153
017156
017161
017164
017167
017172
017175

017263

105
142
040
164
164
156
145
141

101

105
157
114
040
156
1461
144
123
151

163

116
174

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

7k U/
/nre/
/por/
/ted/
<00>
/INX/
/A /<176>
/ Er/
/ror/
/ Lo/
/9 G/
/ene/
/rat/
/ed/<00>
<00>
/INX/
/A /<1746>
/ Se/
/rio/

+ASCII
LASCII
LASCII

/Exc/
/ept/
/ion/
<00><00>
/INX/
/A/<174>7 /
/Ena/
/ble/
/ At/
/ten/
/tio/
/n W/
/ess/
/age/
/s7<00>
/INX/
/A/<176>7 /
/Ena/
/ble/
/7 Mi/
/sce/
/Llla/
/neo/
/us /
/Err/
/or /
/Log/
/7 Me/
/ssa/
/ges/
<00>
/INX/

LASCII

040
143
164
156

045
040

P.AJJ:

045
040
141
145
151
145
141
157
040
162
040
147
145
141
163

P.AJK:

045
040

P.AJL:

LASCII
.ASCII
LASCII

+ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

141
145
164
156
157
115
163
145

LASCII
.ASCII
LASCII
+ASCII

.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII

.ASCII
ASCII

/us /

/A/<176>7 1

SEQ 100

Page

100

DISKSUSERZ:[DIETZ.RELEASEJZROABO.BLI;18e(35)

e e oo = =l =t =

21=Jul=1983 15:19:20

PROTECTION TABLE

v01.2

VAX=11 Bliss=16 V3=555

e e e e e e el
== l=l=l=l=l=l=lelelelelelelelolelelelele

21=Jul=1983 15:25:58

RD/RX EXERCISER

ZRQAM1

151
141

156
157
145
m
164
164

144

040

102
143
122
143
164

154
153
160
155
000

116
174
150
157
156

045
040
141
167
147

116
174
067

045
040
066

141

144

]
e
e e
e
L
e R
e e
N O
e

Ko ] [
R
el el e i iendenian ien ke L K

040

157
162
154
040

045

e L L

174

e L

157
163
162
162
157
115
163
145
000
116

045
040
141
145
150
040
163
040
162
040
147
145
141
163

/s7<00>
/INX/
IA/C176>/ /
/Ena/
/ble/
/ Th/
/lis /
/Hos/
/ts /
/Err/
/Jor /
/Log/
/ Me/
/ssa/
/ges/
<00><00>
/3N% /

IA/176>/ /

/Con/
/tro/
/lle/
/r 1/
/nit/
/iat/

156
154
124
163

145
164
162
157
163
162
162
157
115
163
145

/Ena/
/ble/
/ 0t/
/her/
/ Ho/
/sts/
/ Er/
/ror/
/ Lo/
/g W/
/ess/
/age/

ey ey e A

5§\hb~°b§\n\h
S B W=SVNOOA
S ONONWV=ONS
B W=VONWO
N NV O=ON
W oavnvaomgoo
§8~0 -mog—wv
I

154
117
145
110
164
105
157
114
040
163
147
000
116
174

161

[y W Wy iy Sy Sy

156

/INX/

IA/1746>/ /
/576/

VAX=11 Bliss=16 V3-555
E .Bl1:?8.(35
JZROABO
DISKSUSER2:[DIETZ.RELEAS

OO0
O0000000

21=Jul=19
21=Jul=19

RD/RX EXERCISER
PROTECTION TABLE

PSEG ;81

040
164

817526
017541

ocg
101

8175

123

10
14

171
04

JASCI1 7 By/
CASCI1 /7te/

116
174

822
040

/3IN%/
P.AJO: po.ASCII
TASCIT ZA/<174>7 /

017544
| 017547
owssg
01755
017560
owsog
01756
017570
017573
017576
017601
017604
017607
01761
01761
017616
017621
017624
017627
017632
017635
017640
| 017643
017646

103
160
145
145
mg
04
101
103
160
145
16%
1%
000
045
101
103
164
154
162
156
151
145
102
040

157
141
040
141
000
116
174
157
141
040
151
163

omeg
01766
017666
017671
017674
017677
017702
017705
017710
017713
017716
017721
017724
017726
017731
017734
017737
017742
017745

156
000
045
101
111
143
166
123
144
040
164
156
000
045
101
122
157
142
040

164
116
174
156
164
145
150
157
123
040
151
000
116
174
145
166
154
115

017651
017654
017657

157
040
154

1§$
P
V3-555
Bliss=16
VAX=11
15:25:58
1-Jul=1983
cs)
m.-?s'
smnmo.
oxm.mu
2:
DISKSUSER
51-«(-1903 15:19:20

116
174
157
162
154
040
151
141
144
141
10

14
12%
1%

155
u%
12

144

045
040
155
1
12
164
000
045
040
156
157
145
11
164
164
040
144
154

153
160
155

000
045
040
141
151
040
141
167
145
125
164

045

040
155
141
145

145

"ASCI]

1
SEQ

/Sec/
S

JASCII
ASCI1
"ASCII
CASCI1
ASCII
P.AJR: .ASCII
TASCIT
JASCII
"ASCI1
LASCI1
TASCI1
"ASCII
JASCII
P.AJS: .ASCII
TASCII
ASCII
JASCII
JASCII
TASCII
"ASCII
ASCII
JASCII
JASCI1
"ASCI1

"ASCI1
LASCII1
JASCII

/Com/
/par/
/e R/
/ead/
/s/<00>
7/IN%/
/7A/<174>7 /
/Com/
/par/
/e W/
7Zrit/
/Zes/<00>
<00>
/INY/
ZA/<174>7 ¢
/Con/
/tro/
/lle/
/r 17
/nit/
Ziat/
/ed /
/Bad/
7 BL/
Zock/
/7 Rp/
Zlem/

TASCII /nt/<00>
TASCII <00>

P.AJT: .ASCII /IN%/
TASCI1 ZA/<174>7 /
ASCII

JASCII
TASCII
"ASCI1
"ASCII
"ASCII
CASCII
"ASCII
"ASCII

/Ina/

/Zcti/
/ve/7
/Sha/
/dow/
7 Se/
7t W/
/nit/
<00><00>

/3IN%/
P.AJU: .ASCII /A/<174>7
"ASCII
"ASCII /Rem/
"ASCII Zova/
"ASCII /ble/
"ASCI1 /7 Me/

‘

OO0 0000000000000000000000000R0CCR2222288

017517
017 g

EXERCISER
RD/RX
TABLE
mtecgmn

—

ZROAM1
v01.2

..l':;sz‘i§§
V3-555
VAX=11 Bliss=16
};:f;:;g DISKSUSER2:
;}°Jul°1gg;
[DIETZ .RELEASE JZROABO
=Jul=1

020004

7
1;
1

1
1
16
1g
1 g
14
150
128
1
144

116
174
16
1
16

141.
151
?60 r

14
051

116
174

ozoozg

045
101

02003

lbg"¢ 16%

020062
02004

159
14

gsgggk
7

8%885%
5
020056

020061

123,

16
103

154
040
145

165

16
141

151
069
15
163
145

020162

144
162
000

167
145
000

020197
0201 g
02017
020200

101
127
164
120

1
02013
02014
02014
020146
020151
020154
020157

| 20164

127
164
120
164
164
150

045

16§
14
16;
14
040
141

116

174
16%
14
162

P.AJW:

16g

LASCII
ASCI1
LASCI1

LASCII
ASCII

P.AJX:

050
159
15
164
145

045
040

151
042
15
143
050
162
141
051

045

040
151
040
157

P.AJY:

/hig/

/h s/
/pee/
/7d)/7<00>

/3INY/
/A/176>7 /

ASCI1
LASCII

/ss /
/Cac/

LASCII
LASCI1

160
144

/Cac/
/hin/
/9 (/

156
059
16

042
14

LASCII

ASCI1

040
151
055
143

051
045
101

LASCII
ASCII
LASCII

/3NY/
/A/C176>7 /
/Sup/
/pre/
/ss /

LASCII

101
127
164
16§

15
152
05
154
151

/dia/

ASCI1

162
14

ASCI1I

ASCI1
ASCI1
ASCII
ASCII
ASCI1

002

116

P.AJV:

62
14
Otg
14
156
osg

000

020122
020124
020127

020103
0201
02011
020114
020117

821

174
162
145
141
049
15
166
141
154
000
116
174

006
02007,
0200
020100

/pre/

/hin/
/9 (/

LASCII
LASCI1
LASCI1

/low/
/7 sp/
/eed/

LASCII

/3INX/

LASCII
LASCII
.ASCI11
LASCI1
LASCII
LASCI1

/Wri/
/te /
/Pro/
/tec/
/t (/
/har/
/dwa/
/re)/

LASCII
ASCII
LASCII
LASCII
ASCII1
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
ASCII

LASCII
LASCI1
LASCII

7)7<00><00>
/A/<176>7 /
/Zwri/
/te</
/bac/
7k (/
7/
/=vo/
/lat/
/Zile/
7)/7<00>
/
/A/<176>7 /

<00><00>

P.AJZ: .ASCII /INX/
ASCII
LASCII
LASCI1
.ASCII

/A/<176>/7 /
/Wri/
/te /
/Pro/

OO0 0000000000000000000000000CCCCRLRCe =

nes

EXERCISER
RD/RX
PROTECTION TABLE
144

—

IRQAMY
vo1.2
P

:5
3
zg

0
%62«7
ozoomzsg
.
ozozog
822826
271

o
%3382
020274

TAGE
PRoTecTion
mtschon %nu
o
oW5
1
16

1
1%
'3
:“g
(‘3 )
?3?
&3
:
@
16
32
055
125

1%
I
}
155
000
1
172
?37
%
“;
530
101
040

15
54
145
822
040
‘1’9?
1%
1
04
12§

/tec/
.
A8
.ASCI{ /sof/

SEQ 1
}g
Por
v3-555
-16
(35)
18
1:
E 1Ty RELEASE JZROABO.BL
Rs
DaRauso
R2:(DIETZ.
Y]
:19:
-Jul -13311300138
511o

CASCI] /twa/
/Zre /
ASCII
JASCI1 Zor /
JASCII Zvol/
ASCII 7)7<00><00>
Zume/
TASCII
P.AKA: .ASCI]
%8"" /
.ASCI} /3N3/
ASCIT
?ssg} ;tzy;
/Sec/
JASCI1
JASCII /tor/
LASCI1 7s/7<00><00>
fi“s‘
P.AKB: :gm
ASCIT /= 8/

B s
P.AKC: :gg} 53‘15
-

et/

IRo
85
8%
i
8%
g
:
3%
:

055
116

040
126

101

040

0353
2035
8583%?
20337

et
HH
}3‘3’
0

115
}83
1%

101
050
122
g;

ASCII /ND(/
"ASCII
.ASC” ;3525
I:ggn / no/

;;;
&

ASCIT /LE /
for /
:A

;
;-

020361
020364

151
151

141
146

040
040

ASCIL 713
ASCHL /it
‘4

:
;']

020372
20375

114
120

103
122

055
107

B
P.AKD: .ASEH ;u";

020307
02031

02034
02035

020367

e
85%3

85%}2
020417
85825“5’
85%%%
020436

822

114
157
105

105
162
130

KB
?3}
5215
‘1’?;
105
}5;
}35
000

%8
107
%32
Hfi
000

11
101

040
040
055

040
}53
w,
101
}8;

ASCIL /e 1
/NG
:

ASCIL /X~
ASCIT
m

/LC=/
/PRG/

5&?5
Z:gcxi
fs’fix /1
.ASCH 5?{“ .
lgcl)ffioo»
I:gfn
ASCII <

;
:

:
;

20605
020610
020613

020616
020621
020624
020627
020632

020635
020640

020643
020646
020651
020654
020657
020662
20665
020670
020673

122
040
14}

040
101
116
120
107

115
045
055
124
104
117
040
124
104
117
040

117
127
114
114
104
107
122
122

051
101

040
101
101
116
050
101
101
116
115

LASCII
+LASCII
+ASCII
.ASCII
+ASCII

P.AKH:

LASCII
.ASCII

LASCII
LASCII
+ASCII
+ASCII
LASCII
LASCII
+ASCII
.ASCII
LASCII

/7 LO/
/AD1/
/NG /
/PRO/
/GRA/

/M) /<00>
/%A /
/= S/
/TAN/
/DAL/
/ONE/
/7 _(S/
/TAN/
/DAL/
/ONE/
/7 MO/

—

SERD

/ROR/
7/ WH/
/ILE/

7/ _NO/
/T K/
/NOW/
/N (/
/NO /
/SucC/
/H P/
/ROG/
/RAW/
/7 ON/
/ ME/
/DIA/
/7)/<00>
/%A /
/= L/
/0AD/
/ FA/
/ILUW/
/RE /
/(IN/
/PUT/
/ ER/

+ASCII
LASCII
LASCII

+LASCII
LASCII
+ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCI1
LASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII
+ASCII
JASCII
LASCII
.ASCII1
LASCII
LASCII
+ASCII

P.AKG:

117
113
127
050
040
103
120
107
115
116
105
101

/%A /
/= N/
/0 R/
/EGl/
/ON /
/Sul/
/TAB/
/LE/<00>
/%A /
/= P/
/ROG/
/RAM/

040
114
104
101
125
040
116
124
122
122
110
105
117
111
040
117
101
000
040
123
116
114
105
123
116
114
105
17

P.AKF:

.ASCII
LASCII
LASCII
+LASCII
+ASCII
+LASCII
.ASCII
LASCII
LASCII
LASCII
+ASCII
+ASCII

P.AKE:

116
040
117
040
117
125
040
117
101
117
115
111
000
101
040
101
106
114
105
1m
125
105

040
113
12
111
040
11
102
000
040
120
107
115

040
124
116
116
116
123
110
122
122
040
040
104
051
045
055
117
040
11
122
050
120
040

101
040
040
107
116
125
101
105
101
040
117
101

020504
020507
020512
020515
020520
020523
020526
020531
020534
020537
020542
020545
020550
020552
020555
0205
020563
0205
020571
020574
020577
20602

045
055
117
105
117
123
124
114
045
055
122
122

SEQ 105

Pase 105
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL1; 10 (35)

020440
020443
02
020451
020454
020457
020462
020465
020470
020473
020476
020501

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2

045
040
162

gt By B St Dot

g By

e e e el

LS.

<00>
/AINX/

IN174>/ /

/Con/

/tei/
/ns /

/Loc/

S e e

g o Bt
B

et bt By

Dy Ay Wy Wy Wy Gy Sy Sy Sy

/AIN%/
IA/<176>/ /
/Exe/
/cut/
/e L/
/oca/
/L P/
/rg /
/cmd/
/ is/
/ UN/
/SUP/
/POR/
/TED/
<00><00>

/AN%/
IA/176>7 /

/Cur/

/me/<00>

/0ne/
/ Se/
/rve/
/r a/
/t a/
/ Ti/

s Bt By By Dot g (g

/ANX/
IA/<176>/ /

g By B Bt g By G By Brmmeg g Bt Bt Bt Bt o B St Bt Smg B Bg Bg
) g Gy by
d e ienien len L Lo Ko Ko Ko By brs Bt Do ot et oy B e (ot G

p=d

.AS

By e St By Gy ey b

151
125
125
117
105
000
116
174
165

[

155

120

040
144
163
116
120
122
104

040
147

045
040
145
164
114
141

116
174
170
165
040
143

143
040
164
000

157
154
145
141

040

wvmununn

045
040
156
151

-AS

045
040
145
145
145
141
141
151
000

w
w
wn
(7]
alalalalalzlzlalalalalslslalslaslalslalslialelely] alalalalalalalalalalalalalal alalalalalslizsliaslalislislslalely]

051

116
174
157
141

163

1M
040
122
124
104
114
105
122

117
123
116
101
116
120
056
000
116
174
156
123
166
040
040
124
145

12
1
123
103

>
> >

106
104

23R RPREeR8uEZRREIS88383838RRIRE=R
2
—
R
R
R
—
— b
b
— =
—
Y
e e e I

RS NNN?bbommbboogg

P
—
bk
e T (D
3 =D b md B b
(=1=]
=00
W=2WNOHOWOOWN SNV

RRFRIKSS wVinoN

=2 OO

— b bl —d b
PO
=d —d =

111

SEq 106
106

(35)
EASEJZROABO.10BL1:

RD/RX EXERCISER
PROTECTION TABLE

105
116
040
105

Page

VAX=11 Bliss=16 V3-55 5
DISKSUSER2: [DIETZ.REL

021203

021204
021207
021212
021215
021220
021223

021226

162
164
040
040
164
145
164
145
045
101
123
156
154
145
162

000

045
101
116
144
157
162

174
145

T4k
127
164
142
057
141
142
040
145
141
000
045

021311
021314
021317
021322
021325
021330

163
164
104
040
141
147

021341

021344
021347
021350
021353

154

101
116

021241
021244
021247
021252
021255
021260
021263
021266
021271
021274
021277
021300

021333
021336

116
174
145
163
166

000

045

021303
021306

145
154
151
101
151
040
161
000
116
174
164
144
157
040
147

1230

021233
021236

%1-Jul-1983 15:19:20

PROTECTION TABLE

v01.2

021127
02|1§2
021135
021140
021143
021146
021151
021154
021156
021161
021164
021167
021172
021175
021200

1=Jul=1983 15:25:58

RD/RX EXERCISER

ZRQAMT

101
125

122
057
116
122
000
045
101

156
171
1Sg
14
1
123
164

045
040

141
141
156
120

000
045
040
145
040
145
045

163
162
145
154
122
144
154
117
162
m”m

040
151
141
145
145
141
145
166
154
000

040
144
165
104
154
073

105
123

P.AKN:

040
145

045
040
145

P.AKO:

P.AKP:

104
105

116
on

045
052

.ASCII
LASCII
+ASCII
LASCI1
+ASCI1

/INX/
/A/<176>7 /
/Nee/
/ds /
/ove/

+ASCI1I

/§‘<OO>

LASCII
+ASCII

/A/<174>7 /
/Nee/
/ds /
/uWri/
/tea/
/ble/
<57>/Re/
/ada/
/ble/
7/ Ov/
/erl/
/ay/<00>
<00>
/INX/
/A/<176>7 /
/Use/
/s S/
/td /
/Dup/
7/ Di/
/alo/
/g; /
/REC/
<57>/SE/

LASCII

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

LASCII
LASCII
LASCII
LASCII
LASCII
+ASCII

123
040
160
151
157
040
103

105
057
103

/ren/
/tly/
/7 in/
7/ Ac/
/tiv/
/e S/
/tat/
/e/<00>
/INX/
/A/<176>7 /
/Sta/
/nda/
/lon/
/e P/
/rg/<00>

LASCII

116

116
174
163

P.AKM:

LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII

P.AKQ:

+ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII

<00>

/rla/

/ZNX/

/ND/<57>

/REC/
<00>
/INX/
/A/<11>/%/

VAX=11 Bliss=16 V3-555

SEQ 107

Page

107

DlSK‘USERZ:EDIEYZ.RELEASEJZROABO.BL':18.(35)

b b

b b wd O =

021602
— O -

P.AKW:

P.AKX:

=S wOO
=Oonwns

WNI=O

-k OO
O=t—d=N
OO
ONON=ON SHS Ui

VOO

—_——

N=N=NOW

=MW

OSWVS=SNOVONW-

RD/RX EXERCI
PROTECTION T

P.AKS:

N=wnsrowv

S35 -.-n-.-ncg b d b g ...-.-n-n—.-nog — b

- -0
=00
NI -

2-.-.-A-A°-a
-k OO=
= RRER2=83=R
-t et Db Nt
OOH
O=0ONW=HMOO=0O=VO
—_SOANO=ONO 8223R228281=3R228232
=W
NOHO-=0O
5 —338338

P.AKV:

—_- OO0
—_\ NS
S

OO0

N —_—

ZRQAMT
v01.2

RSN SNy

= NN =W

-a-.-n-no—n?
2RRm2292R -‘N—'OU‘O?
2022392 SN
=N = NO= NO§-‘°
NNOWVIO=WV
S =N
= VNOWVWVIN
S Vi

S ON =2 NNIN S =N =2

-Nowv

O =2

021356
021361
021

o-h\no\nvnam-nbo-m§
OO

/* O/
/UES/

/710/

P.AKR:

P.AKT:

/N/<00><00>
/3N%/
IA/<11>/+/

/NFO/
/RMA/
/T10/

INX/
IA/<11>/+/
/* 1/

/* T/

/N/<00>
/IN%/
IA/<11>/«/

P.AKU:

/N/<00>
/AN%/
IA/<11>/+/

/T10/

/x S/

IA/<11>/«/

/PEC/

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

VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEJZROABO.BL1;10

SEQ 108
Pase 108

(35)

21=Jul=1
21=Jul=1

2-‘

—

d e

-O
o
bt cd O =2\
=N N = N
b ek NN -

O =

2oR8

—_— e
O —
=S NIN) = OO
OB NON =N
=W

—

NW oNFrRNOINN

—d e

b o

=
~ Ly
) nNNON
NOWNON =N N= WO =
NSRESES O=00NON=ONNO

RD/RX EXERCISER
PROTECTION TABLE

105
114
110
Mm
114
122
105
124
105
114
113
125
105
000
116
040
104
11
040
122
000
116
040
132
117
105
110
115
123

107
040
131
103
040
040
114
1)
040
117
040
115
122

116
040
040

045
055
101

105

103
040
106
115
11
040

045
055
105
103
105
117

P.AKY:

045

P.AKZ:

055

105
040
116
124
105
101

000
P.ALA:

111

11
117
101
117

000

116

045

P.ALB:

040
116
103
m
116
122
124
116
116

116
055
123
040
106
115
1
000
045

P.ALC:

040

055

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

SEQ 109

Page

109

:
10 (35)
£1ZROABO.BL1

022036
022041
022044
022047
022052
022055
022060
022063
022064
022067
022072
022075
022100
022103

055
105
11
124
116
105
101
000
045
101
055
125
105
057

040
122
116
11
040
123
107

124
115
101
117
115
123
105

116
040

045
055

106

101

022117
022122
022125
022130
022133
022136
022141

105
045
101
055
105
040
116

000
116
040
040
116
102
101

022152
022154

000
045

000
116

022207

105

114

022106
022111
022114

022144
022147

022157
022162
022165
022170
022173
022176
022201
022204

11
122
103

131
101

101
055
105
040
11
116
102
054

040
103
123

114
105
117

040
124

116

045

022262
022265

124
105

11
040

040
040
116
125
124
125
105
040

114

P.ALE:

P.ALF:

101

126
104

ASCII
.ASCII
"ASCII
CASCII
"ASCII
"ASCII
"ASCII

/E/<00><00>
/3IN%/
/A =/
/= S/
/END/
7 Bl/
/NAR/

"ASCII
.ASCII

JASCII
CASCII
"ASCII
LASCII
CASCII
CASCII
"ASCI1
"ASCII

/1L
/RE /
/COD/

7Y D/
/ATA/

<00><00>
/INX/
/A =/
7= S/
/END/
7 UN/
71T 7
/NUM/
/BER/
7, R/

TASCII /7ELA/

101

055
123
104
116
040
115
122
122

/= T/
/ERM/
7INA/
7710/
/N W/
/ESS/
/AGE/
<00>
/3IN%/
/A =/
/= S/
7ucc/
/ESS/
<S57>/FA/

"ASCII
"ASCII

104
101

126
104
000

124
105
102
000
045
101
055
105
040
11
116
102
054

105

000
045
055
123
104
111
122

ASCII
"ASCII
"ASCII
ASCII
LASCII
"ASCII
"ASCII
JASCII
.ASCII
JASCII
ASCII
TASCII
"ASCII
CASCI1

TASCII
"ASCI1
ASCII

125
040
104

045
055
123
104
116
040
115
122
122

022212
022215
022220
022223
022224
022227
022232
022235
022240
022243
022246
022251
022254

P.ALD:

123
103
123

040
040
116
125
124
125
105
040

11
040
116

022257

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2

P.ALG:

TASCII
"ASCII
TASCI1
JASCII
.ASCII
CASCII
ASCII
"ASCII
JASCII
CASCII
JASCIT
"ASCI1
"ASCI1

/TIVZ/
/E 0/
/BN/<00>
<00>
/IN%/
/A =/
/7= S/
/END/
7 UN/
71T 7
/NUM/
/BER/
7, R/

JASCII
JASCII

/TIV/
ZE D/

CASCI1 Z7ELAZ

sEQ 110

Paae 110
VAX=11 Bliss=16 V3=555
(35)
BL1;10
ASEIZROABO.
DISKSUSER2:[DIETZ.RELE

022270
022273
022276
022301
022304
022307
022312
022315
022320
022323
022326
022331
223
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
22462
022465
022470
022473
022476
022501
022502
022505
022510

102
040
m
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
000
045
116
114

116
127
124
120
1264
116
116
040
040
116
125
124
125
105
040
131
103
040
117
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
124

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
000

P.ALK:

101
126
117

105
105
120

P.ALL:

022516
022521

101
105

103
124

113
040

022513

105

057

120

P.ALH:

P.ALI:

+ASCI1 /BN,/
LASCII 7/ WR/
LASCII /ITE/
LASCII / PA/
LASCI1 /TTE/
LASCII /RN/<00>
.ASCII /XINX/
LASCII /A </
LASCI1 /= S/
JASCII /END/
LASCII /7 UN/
JASCII /1T /
LASCII /NUN/
+ASCII /BER/
LASCII 7/, P/
LASCII /HYS/
LASCII /ICA/
LASCII /L B/
+ASCII /LOC/
LASCII /K N/
LASCII /ums/
LASCII /ER/<00>
.ASCII /IN¥/
LASCII /A =/
LASCII /= S/
LASCII /END/
LASCII /7 UN/
LASCII /1T /
LASCII /NUMN/
+ASCII /BER/
JASCII /, L/
.ASCI1 /0Gl1/
LASCII /CAL/
LASCII /7 B/
+ASCII /LOC/
LASCII /K N/
LASCII /ums/
+ASCI1 /ER /
LASCII <00><00>
LASCII /Z%AC/
LASCII /ONT/
+LASCII /ROL/
+ASCII /LER/
LASCII /7 T1/
LASCII /MEOQ/
LASCII /UT/<00>
LASCII <00>
.ASCII /ZAE/
LASCII /NVE/
LASCII /LOP/

LASCI1

LASCII
LASCII

/E/<57>/P/
/A%,
(€T /

SEQ 111

Paae m
VAX=11 Bliss=16 V3-555
(35)
1;10
SEJZROABO.BL
DISKSUSER2: [DIETZ.RELEA

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2

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
0227
022733
022736
022741
022744

022747
022752
022755

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2
122
104
122
122
120
m
040
040
115
125
000
045
116
114
105
101
105
127
124
105
117
050
122
130
122
11
117
051
045
117
122
114
040
115
116
122
040
122
13
122
122
045
117
122
114
040
115
101
124
105

117
045
117

105
040
122
040
101
124
117
124
105
124
000
101
126
117
057
103
124
122
105
122
122
120
11
040
040
115
125
000
101
116
117
105
122
040
104
101
120
mm
040
122
000
101
116
117
105
122
040
122
131
122

122
101
116

101
105
117
050
122
130
122
m
117
051

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
117

P.ALN:

103
124
114
122
101
120
111
040
122

P.ALO:

000
103
124

P.ALP:

LASCI1 /REA/
LASCII /D E/
.ASCI1 /RRO/
LASCII /R (/
.ASCII /PAR/
LASCII /Z1TV/
LASCII /7 OR/
ASCII 7 T/
LASCII /MEO/
LASCII /7uT)/
LASCII <00><00>
.ASCII /XAE/
LASCII /NVE/
LASCII /LOP/
LASCI1 /E/<57>/P/
LASCII /ACK/
LASCII V/ET /
LASCII /WR1/
LASCII /TE /
.ASCII1 /ERR/
.ASCII /OR /
LASCII /7(PA/
LASCII /RIT/
LASCII /7Y O/
ASCII /R T/
LASCI1 /IME/
LASCII /0ut/
LASCII /7)/<00>
.ASCII /ZAC/
.ASCII /ONT/
.ASCII /ROL/
LASCI1 /LER/
.ASCII1 7/ RO/
ASCII /M A/
LASCII /ND /
LASCII /RAM/
LASCII 7/ PA/
LASCII /RIT/
LASCII /Y E/
.ASCII /RRO/
LASCII /R/<00>
.ASCII /ZAC/
.ASCII /ONT/
.ASCII /ROL/
LASCII /LER/
LASCII /7 RA/
LASCII /M P/
.ASCII /ARl/
LASCII /1Y /
.ASCI1 /ERR/

LASCII
.ASCII
LASCII

/0R/<00>
/ZAC/
/ONT/

SEQ 112

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

022760
022763
022766
022771
022774
022777
023002

023005
023010
023013
023016
023021

023024
023027
023032
023035
023040
023043
023046
023051
023G54
023056
023061
023064
023067
023072
023075
0231
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

ZRQAM1
v01.2
122
114
040
115
101
124
105

117
045
m
040
101
105
117
050
122
131
122
11
117
051
045
14)

040
14}
040
122
040
101
124
117

124

105

124
000
11
105
125
040
123
122
101
125
000
045
117
040
103
123
11
117
040
m

117
105
122
040
122
131
122

122
101
116
122
104

122
122
120
m
040
040
115
125
000
101
116
127
124
105
117
050
122
131
122
111
117

051

116
122
120
115
124
040
1m
122
000
101
123
101
105
040
115
125
050
107

114
122
117
120
m
040
122
000
122
107
105
040
122
040
101
124
117
124
105
124

P.ALQ:

122
107
122
105
122
122
120
1m
040
040
115
125
000

P.ALR:

124
122
124
101
105
106
114
105

P.ALS:

110
124
103
123
124
105
124
110
110

P.ALT:

+ASCII
+ASCII1
.ASCII
LASCII
LASCII
LASCII
.ASCI1
.ASCII
LASCII
LASCII
LASCI1
LASCII
.ASCII1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
+ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCI1
LASCII
LASCII
.ASCII
LASCII
LASCII
+ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/ROL/
/LER/
/ RO/
/M P/
/ARl/
/1Y /
/ERR/
/0R/<00>
/ZAR/
/ING/
/ RE/
/AD /
/ERR/
/OR /
/(PA/
/RIT/
/Y O/
/R T/
/IME/
/0UT/
/)/<00>
/ZAR/
/ING/
/7 WR/
/ITE/
/ ER/
/ROR/
7/ (P/
/ARI/
/1Y /
/OR /
/TIMN/
/EOUW/
/7)/<00>
<00>
/INT/
/ERR/
/UPT/
/7 MA/
/STE/
/R F/
/AIL/
/URE/
<00><00>
/XAW/
/0ST/
7/ AC/
/CES/
/S T/
/IME/
/0uT/
/7 (W/
/IGH/

SEQ 113

Pase 113
VAX=11 Bliss=16 V3-555
(35)
1;10
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL

21=Jul=1983 15:25:58

21=Jul=1983 15:19:20

RD/RX EXERCISER

OOONHO
= §N-‘
-2
NNS O =)=
OOONVSOOO
===
WW=NO
NS
VOO
N0 PO
SN= VIONO
SN NVO =
NV
=Sl
-

® So2

P VAV
AV S

2Nl‘°\fll‘\fl

=NNNO =O

PP
p——

PROTECTION TABLE
12;
10
114
12;
1
114
105
116
116

040
126
040
117
103
040
120
104
124

101
105
124
m
124
130
105
104
101
102
040
123
122
122
122

103
104
040
115
040
103
104
000
121
125
115
124
040
122
000

P.ALU:

101
116
117
105
106
101
105
117

103
124
114
122
101
114
122
122

P.ALW:

101
123
125
111
040
117
12é?nzv
10 124

11
124
103
117
114
120
mm
117
000

P.ALX:

101
114

m
105
114
11
125
040
122
m

P.ALY:

000

101
126

124
114
1M
125

P.ALV:

LASCI1
LASCII
LASCII
ASCII
LASCII
LASCII
.ASCI1
LASCII
LASCII

V/ER /
/LEV/

.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII1
L.ASCII
ASCII
ASCII
LASCI1
.ASCI1
.ASCII
LASCII

/3AC/
/RED/
/1T /
/LIN/
/1T /
/EXC/
/EED/

LASCII

/EL /
/PRO/
/10C/
/0L /
/DEP/
/END/
/ENT/

7)/<00>

/ED/<00>
/3AQ/
/-BU/
/S W/
/AST/
V/ER /
/ERR/

/O0R/<00>

LASCII
.ASCII
.ASCII1
LASCII
.ASCII
LASCII
LASCI1
ASCII
.ASCII

<00>
/3AC/
/ONT/
/ROL/
/LER/
7/ FA/
/TAL/
/ ER/
/ROR/

JASCII
LASCI]1
.ASCII
LASCII
ASCII
.ASCII
ASCII
LASCII

/%Al/
/NST/
/RUC/
/T1O/
/N L/
/00P/
7 T1/
/MEO/

LASCII

.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

<00><00>

/UT/<00>

<00>

/%Al/
/LLE/

/GAL/
/7 vI/

/RTUW/

/AL /
/CIR/
/Cul/

SEQ 114

114
:?8'(35)
DXSKSUSERZ:IDIEII.RELEASEJIROABO.!LI
VAX=11 Bliss=16 V3-555

0
02371
gesere
023%77
023502

126

1
1

14
122

000
1N

12¢

040

17
M1
105
114

122
114
107
000

04
101
126
101
105

101
111
105
116
O

115
116
116
103
122

1M
040
126
111
122

126
111
101
104
105

10
116
114
040
107

111
116
106
122

104
12
111
000

101
111
105
116
040
111

115
116
116
103
127
124

101
1264
116
035
101

104
117
117
14
104

1
g0
114
lo1

000

| 02352
ga3530

105
087

02353
02353
023541
023546
023547

023552

111

023555
023560
023563
023566
023571
0235
0235
023600
023603
023606
023611
023614

060
105
111
105
000
045
01
126
101
105
122
105

02363
023641
02344
023647
023652
023655
023656
023661

101
105
117
122
114
000
045
117

023617
023622
023625
02330
023633

02
023667
023672

111

000
101

106
s

02350

023506
023511
0235164
o317
g23522

21-3ut1983 13:93:20

PROTECTION TABLE

V1.2

B%es
gelese

1=Jul=1983 15:25:58

RD/RX EXERCISER

ZROAM

117
040
040
116
11

122
114

040

105

101
17

117

040

102
040
116
11
105

105
125

P.AMA:

/NTE/
7/

ASCII

/VEC/

Page

SEQ 115

115

10 (35)
DISKUSER2:LDIETI.RELEASEIZROABO.BL1;

/PT /
/TOR/
7 IL/
/LEG/
/7AL/<00>

ASCII <00>
.ASCII
ASCIT
ASCIT
ASCII
ASCII

/3AW/
/AIN/
/TEN/
/ANC/
/€ R/

ASCII
ASCIT
ASCII
SASCII
ASCII

/1TE/
7 IN/
/VAL/
/
71D
/REG/

/EAD/
<S7>/WR/

ASCII /ION/

P.AMB:

SASCII
ASCII
ASCII
CASCII
ASCIT
.ASCII
ASCII
CASCII
CASCII
ASCIT
ASCII
CASCII

7 1D/
/ENT/
/IF1/
/ER/<00>
<00>
/ZAW/
/AIN/
/TEN/
/ANC/
/€ W/
/RIT/
/E L/

"ASCII
CASCII
"ASCII
"ASCII
.ASCII
CASCII
.ASCII
"ASCII

/ABL/
/E ¢/
/ONT/
/ROL/
/LER/
<00>
/ZAC/
/ONT/

.ASCI1
CASCII
ASCII
CASCIT
"ASC11

114
103
12
114
122

101

ASCII
ASCIT

ASCII
ASCII

114

122

/T 1/

VAX=11 Bliss=16 V3=555

/D/<00><00>
ASCII
.ASCII /3AL/
.ASCII
ASCIT
ASCII
ASCII

116

114
122

ASCIT

104
122

103
12

117
105

P.ALZ:

103

101
116

P.AMC:

"ASCII /ROL/
"ASCII /LER/
ASCII

:
:
:
:
:

/0AD/
/7 To/
7 NO/
/N-L/
/0AD/

7 RA/

:
:
.~

VAX=11 Bli sz-lb v3-555

= 37

e iiS
~ SN N v
SRR
DB BRR .O..'
GG BRR ......
S BRD....0.
B BB BBS
BB AR BB AR BBBS SRR BD.0....
BB
......
......
......
......R SR......

A S 0 e =T L R (i

s MRMIMMIM33SSSIMISITSSTLMAITIITT TT3IAN0L 2LILS

DISKSUSERZ: DIETZ.RELEASE JZROABO.BLY;

- 20

-— Lal.al -—
-4
4
-

v&8

$ §

R PeraSRR

g Smng G S G By g B G S Sg § g g Sy S g Gng g g g Bg g g By

R
AR AR
55333333339333333

R e

nlclclllql

R AN TN R S R AR SR RN KR AR AR

SYYNINNNINRRRRNNINNNNAN

RRB Y R e N R O R e RO O . R A tar
R

unuuummmmmmmmmmmmmmmmmmmmm 4 e e e e

-e

—

["als
v

e———
LA

VAX=11 ilist- 16 _v3-555
DISKSUSERZ: LD IETZ.REL EASEIZROABO.BLT;

" -—
-4

et “w o

810

Sioluc

101
101
040
103
116
106
114
105
040
122
114
105
104
105
101
132

123
124
115
110
105
101
125
040
123
1M
11
122
105
122
114
105

[7d

/INE/
/ FA/
/ILV/
/RE /
/- o/

«AS

+AS
+AS

g St by B

105
123
122

123
124
115
110
105
101
125
040
103
040
107
124
000

121
125
101
122
123
105
123
122

<AS

/STE/
/R/<00><00>
/%AS/
/TAT/
/E W
/ACH/

040
102
040
104
123
122
11
105
000
101
101
040
103
116
106
114
105
040
103

110
105
101
125
040

103
116
106
114
105

000
123
124
115

000
101
101
040

122

1M
105

107
124

040

wnn
alalalalalalalalalsl alalalalalalalalalalal
ey Bt B B S Doy Bg By b b ot o By Sy B B By b
g g by Bt g Dt Gd Bt g By g B By Bt B Bt g By Bt Gt
S S ey A
L L L
L
e e L e Ll el e ieeiendenieniendanben Ren Lo L § e By B B by b By Dy Do By o B0 o St st Bemrcg By Bg e

104
123

104
105

wn
wn
w
alalalalalaslalslslislslalalalalelel;
Ly Lyl alalalal

024564
024567

- NOWVWNO
— i N NN =2 NN =2 O = =

— b b b O
O=2NNIWVIN)
=
N SOV =NINVIN = O =2 <\ S NO HNOW

p———

NONNO
OO
-b-ng-a-.doc-._o
- g-‘-.-o-ag
S2R=335R §N°
WWVIN) =2 © = =3 N S5 VTN WNWVIHAIN) =
°2 NWVIN)

RD/RX EXERCISER
PROTECTION TABLE

/1LU/
/RE /
/= S/
/ER1/
/ALL1/
/2ER/
<57>/DE/
/SER/
/1AL/
/12E/

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

SEQ 118
118

SEJIROABO.BL1:?8.(35)

c10

101
117
000
101
164

040
066

P.AMP:
P.AMQ:

17z

157
040

064

045

123

064

P.AMR:

045

116

000

P.AMS:

045
055
045
040
000000C -

101
040
101
000

040
000
052
000

P.AMT:

045
143

045

000
000
000

024754

024756

172150

024760

000154

024762

000004

024764

100034

124
115
110
105
101
125
040
127
116
110
104
122
126
123
116

P.AMO:

124
105
101
1M
040
m
122
055
122
107
101
127
105
105
m
000
024226°
024250°
024300°
024360°
024442°
024512°
024606
045
045
000

.AS

045

+ASC
P.AMH:

L
R
s L
L
e e e
e
e R e R
By B By B
g Bod By g g St Gy St Doy b B b
e s by B

122
11
105
oog

b
wv P <
74lalalalalalalalalalalalalalalala
(7
Lz

040
107
124
000
101
101
040
103
116
106
114
105
040
117
040
122
101
040
122
117
000

122
105
153
1

02457,
82457

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

RD/RX EXERCISER
PROTECTION TABL

IRQAM1
v01.2

/R R/

P.AMU:

LSHWLEN:
HWPT.IP.ADDR::
.WOR
HWPT.VECTOR::
WORD
.WOR
HWPT.BR.LEVEL::
. WORD
HWPT.DISK::
.WORD

/%06/
<00><00>
/%Ao/
/et /
/%04/
<00>
/%S4/
<00>

/IN/<00>

<00>

/%A /
/= /<00>
/XA*/
/ /<00><00>

<<LSNDHW=L SHWLEN>/2>

-5630
154
4

=77744

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

JZROABO.BL1:18.(

19
19
3 5)

D10

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

RD/RX EXERCISER
PROTECTION TABLE

IRQAM1
v01.2

HWPT.S.TRK::
.WORD
HWPT.E.TRK::
WOR
.WORD
W:
: .BLKW
LSNDH
LSSWLEN::
.WOR

024766

000000

024770

052137

024772
024774

000000C

024776

000040

025000

000024

025002

000202

025004

000000

025006

000020

.WOR
SWP._XFER::
.WORD
SWP.FLAGS::
.WORD
SWP.DPAT::
.WORD
SWP.UCNT::

025010

000143

SWP.RAT::

000022

:
DUPROUND:
.WORD
SWP.UDPAT::

025014

145

001454

001456
003136

003140

003154

202

20
143

BLKW

LSPROT: : . WORD

$FFFS,
N
~

TALLY:: .BLKW
T.ADDR:
: .BLKW

C.ERR.TBL::

.BLK
MSCP.PKT::
.BLK

:
IPKT.ADDR:

.BLK
PKT.USE::
.BLKW
RETPKT::.BLKW

—0 2

DCT::
:
DCT.ADDR:
.B
:
RDRX.ADDR:
.BLKW
:
IRDRX.ADDR:
.BLKW
DUPPKT::.BLKW

000000
177777
000006

n
m

000106

000104

W:
: .BLKW
LSNDS

000000
000000
000056
000060
000102

<SLSNDSW=LSSWLEN>/2>

—lflbd
oo

025054
025056
025060
025062

—

025012

52137

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

Page

SEQ 120
120

SEJZROABO.BL1:?8'(SS)

E10
21=Jul=198 3 1 S: 25:5
21=Jul=-198 3 1 5: 19:2

RD/RX EXERCISER
PROTECTION TABLE
RP.USE::.BLKW
NDX::

.BLK
ST.CODE::
.BLKW
SB.CODE::

.BLK

S.PATTERN::

Py
—
—
—
—
[
- ) =2
2
—3

.B
S.DUPPKT::

—

STEP::

(LY 3

BVTS.PER.0106:

—

.BLKB
.EVEN
FREE.MEM.ADDR::
.BLKW

QI0::

et s i

BLKW
.BLKW
10DQ::
10DQ. IN::
.BLK
10DQ.0UT::
.BLKW
ENTRY .REASON: :
K8
EOP.FLAG::
.BL
DUP.FLAGS::
.BLKW
CCTLR:: .BLKW
CDISK:: .BLKW
CUOFF:: .BLKW
CTLR.CNT::
.BLKW
.BLKW
DUR::

614

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

sEQ 121
121

10 (35):
12ZROABO.BL1

F10

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2
005232

BLKW
CREDIT.BAL::

005234

NEXT.PKT.USE::

BLKW

1
1

.BLKB

.GLOBL
"GLOBL

LSSOFT, TSPTHV, LSRPT, LSINIT
LSCLEAN, LSLAST, LSHARD, LSDVTYP

"GLOBL LSDESC, LSDU, L$AU, LSAUTO, T1

100000
040000
20000
010000
00V
002000
001000
000400
000200
000100
000040
000020

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BiT10==
BIT09==
B1708==
BITO07==
BIT06==
BIT05==
BIT04==

=100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20

000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
000040
000037
000036
000035
000034
000340
000300
000240
000200
000140
000100
000040
000000
000004
000010

81700==
BIT9==
BIT8==
BIT7==
BITé==
BIT5==
BIT4==
BIT3==
BIT2==
BIT1==
BiT0==
EF .START==
EF .RESTART==
EF .CONTINUE==
EF .NEW==
EF .PWR==
PRIO7==
PRI06==
PRI05==
PRI04==
PRI03==
PRI02==
PRIO1==
PRI00==
EVL==
LOT==

4
2
1
40
37
36
35
34
340
300
240

000010
000004
000002

BI1T03==
BI1T02==
BIT01==

10
&
2
1
1000
400
200
100
40
20
10

200
140
100
40
0
4

SEQ 122

Paae 122
VAX-11 Bliss=16_V3=555
0 (35)
ABO.BL1;1
LEASEIZRO
[DIETZ.RE
2:
DISKSUSER

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

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM
v01.2
000020
0
000100
000200
00

1000
002000
000
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*

ADR==
IDY==
ISR==
UAM==
BOE==

PNT==
PR]==
IXE==
IBE==
IER==
LOE==
HOE==
LSERRTBL==

LSSW==
LSHW==
LSDEPO==
HWQ1==
HWQ2==

HWQ3==

HWQ4==

002052°

0024564°
002512°

002556°

002610*

P.AAC

P.AAD

P.AAL
P.AAM
P.AAN
P.AAO
P.AAP
P.AAQ

SWwa11==

SwQ@15==

002100°
002156
002230°
002314
002372"°

P.AAB

SWal==
SWa2==
SWQ4==
SWa7==
SWQ9==
SWwQ10==

HWQ11==

001444°

001760°*
002050°*

LSSWLEN+2
LSHWLEN+2
LSREV+1
P.AAA

P.AAE
P.AAF
P.AAG
P.AAH
P.AAl
P.AAJ

001252°
001350°*
001514"
001602"°
001672°

=100
ERRTYP

HWQ5==
HWQ6==
HWQ7==
HWQ8==
HWQ9==
HWQ10==

SwQ12==
SWwa13==

001426°

20
40
100
200
400
1000
2000
4000
10000
20000
40000

SWQl4==

SWQ17==
SWwa19==
SwWQ22==

SWM1==
NULL==
DBM5==
DBM12==
DBM18==
DBM19==
DBM20==
DBM21==
DBM23==
DBM25==
DBMZ6==

DBM29==

P.AAK

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

Paae 123
VAX=11 Bliss=16 V3=555
(35)
2:
UABO.BL1;10
SER
.RELEASEJZR
[DIETZ
DISKSU

H10

nunnn
nunmunnnnn

OOOOM.IPOOO
& & o
¢
&
W=

mmmmmm m mmmmm mmmmmmmmmmmmm m

o®m® ODODODDOOOHOHOD OO OOHD (2]
TTXTXTXITOD
=A-A A~ A~ A~ A=A w
e
DO

002656°

;

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
v01.2

1=Jul=19 831 :2 5:5 8
1=Jul=19 83 1 sl 9:2 0

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

SEQ 124
124
Page

1:
10 (35)
SEJZROABO.BL

— e

- OO0

x
=

N nnn

[

]

— N

125

:
10 (35)
DISKSUSER2: [DIETZ.RELEAS E1ZROABO.BL1
TR IR TR TR TR TR TR TR

TOMTMONADIPN<

mmmmmMmMmmo
o

YOVVVPOODOOOYO

oaD: e & o & 0
oo e o o b b < O Q0 NON N S
N
o0 noo WO
COX oonnn
N=NONNnNNn
LR

m mm mmmm
= x> ——oX TIXITIXIIIX

VAX=11 Biiss=16_V3=555
SEQ 125

[

PNX<XE<C—

oOomMmTmTMmTmTMTTTM

3 3¢ 3¢ 3€ X

X
x 2€ 3¢ XX XX >xX
—
b
b
b
b
n
N
W
W)
— o Vo~
x
>

>>>>>>>D>

> >
€ >

SRR
'

W
o
noununnn nan

>x
=
\d
~NW &H

3 3 3 XX
€ 3¢ 3¢ > >x
S
SN

Sfi nuwnn

ofrnOoONNIN

N—A\n-.mg-n RRAENE

roronunRRNI
RN NN
WO
NNONONWN
S S

RD/RX EXERCISER
PROTECTION TABLE
Pa

EX.LBW
EX.CBR
EX.CB

XX13==
XX1

J 10

EXERCISER
RD/RX
PROTECTION TABLE

ZRQAM1
v01.2
013066°
013162°
01§ 26'
013302°
01332%'
013352°
013372°
013410°
013420°
013430°
013442°
013454"
013500°
013522
013552°
013576°
013612°
013632°

013642°
013666°
013710°*
013740°
013762°
014002°
014062°
014142°
014210°

014302°

Paao 152
V3=555SER
VAX=11 Bliss=16
15:25:58 DIS
1=Jul=1983
10 (35)
2:
ROABO.BL1;
[DIETZ .RELEASEJZ
KSU
1=Jul=1983 15:19:20
EBNEX3==
CER.Q1==
CER.02==
EX.SEQ==
EX.CRD==
EX.MTN==
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.SD]==
SC.CON==
SC.DUP==
SC.ONL==
SC.SON==
SC.UNK==
SC.VOL==
SC.10P==
SC.DIS==

SC.FER==

SEQ 1

v
:
H
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:

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.AHI
P.AHJ

P.AHK
P.AHL
P.AHM
P.AHN
P.AHO
P.AHP
P.AHQ
P.AHR
P.AHS

:
:
:
:
‘

‘

P.ANHT

P.AHU
P.AHV

i
i

P.AHX
P.AHY

015016
015050°*
015070°
015144°
015220°

SC.DST==
SC.DS2==
SC.ECC==
SC.ECD==
SC.R(CT==
SC.FUL==
SC.576==
SC.FCT==

i
.

015316°
015346
015400°
015430
015460°
015510°
015542°
015574°

SC.EC2==
SC.EC3==
SC.EC4==
SC.EC5==
SC.EC6==
SC.EC7==
SC.EC8==
SC.EC9==

P.AIG
P.AIH
P.All
P.AlJ
P.AIK
P.AIL
P.AIM
P.AIN

SC.HWP==

P.AIP

014370°
014446°

014526°

014606°
014662°

014734"

015266°

015636°

015676

015736°
015766°
016010°

SC.FE2==
SC.ISH==

SC.1S52==

SC.ECl1==

SC.SWP==

SC.0DA==
SC.0DB==
SC.NXM==

P.AHW
P.AHZ

P.AIA
P.AIB
P.AIC
P.AID
P.AIE

P.AIF

P.AlID

P.AlIQ
P.AIR
P.AIS

1550 '
RELEASE JZROABO.BL1Y;'3'(3
[DIETZ.v3-555
Jul 133§ 1; %3 28 DISKSUSER2:
S1-dut1-Jut=1983
S -SksuseRs ss=16

e PROTECTION TABLE
RD/RX EXERCISER

K10

0161007
16132,

16230,

$C.(T0==
SC.SDS==
SC.EDC==

B:AIU
P.AIV
P.AIW

016530;

SC.RDY==

P.AJB

Q16gua]
Qle3ie,
016406]
Olesre!

Qleete:
016640,
g1e706]

SC.IDS==
SC.SRT==
SC.SRl==
SC.POE==

SC.CLK==
SC.RSP==
SC.SUR==

glerse!
017020,
e
Q1r16e]
017202,
Q1733
017534
g17410;
017466]
017506,
o1753¢]
g17562.
017610,
017666,
g17726,
o136
020020,

SC.PSP==
F.l==
F.gts
F.b==
F.5==
Fopes
F.7==
F.8==
F.9==
F.10==
F.11==
F.12==
F.13==
F.lb==
F.15==
F.16==
F.17==

020164
20266
-

F.20==
EBH.30==
EBH.&4b4==

017142°

0200641
0201241

020236:

0204061

020552
020640,
020752

0210‘2.

0210
02'156.
021156,
021204,
g21230,
021300:

021350:

021424"
021450"

Faee

F.18==
F.19==

F.o1==

EBH.45==

P.AIX
P.AIY
P.AIZ
P.AJA
P.AJC
P.AJD
P.AJE

P.AJF
P.AJG
P.AJN
P.AJJ
P.AJK
AR
P.AJM
P.AIN
P.AJO
P.AJP
P.AJQ
P.AJR
P.AJS
P.AJT
P.AJU
P.AJV
P.AJW

P.AJX
P.AJY

P.AJZ
P.AKB
P.AKC
P.AKA

P.AKD

EBH.4b==

P.AKE

DF .1==

P.AKI
P.AKJ

T.QUE==

P.AKQ

e
-y
EBH,49==
DF .0==
DF .2==
DF .3==
DF .4==
DF .5==
DF .6==
DF .7==

}'?SFEE
T.TER==

BIARG
T

P.AKK
P.AKL
P.AKN
P.AKN
P.AKO
P.AKP

B ARS
pLAKT

ZRQAM1
v01.2
1474°
1 28'

E.UNT==

P.AKYW

8 1 Sg'
g
51
’
021

P.AKY
P.AKZ
P.ALA

022122°
022154°

E.DEV==
E.ZER==
M.ASC==
M.BIN==
M.TER==
M.COD==
M.DAT==
M.UR==

022375’
024150°

M.UL==
CNTR.ERR==

024756"
024776°

DFPTBL==
SFPTBL==

85177 .
5030'
.
Os

’

024670°
024706"
024716°
024730°
024734"
024740°
024746°

P.ALB
P.ALC
P.ALD
P.ALE
P.ALF

P.ALI

P.ALJ
P.AMH
P.AMP
P.AMQ
P.AMR
P.AMS
P.AMT
P.ANU

RDRX.ERR==
EX.WRD==
EX.OP==
SPACEé4==
CRLF==
DASH==
ASTERISK==

LSHWLEN+2
LSSWLEN+2

.EVEN

P sect NName

$CODES

Attribut (3

words

RO,

5402

REL,

LCL,

CON

LIBRARY STATISTICS

H
:

P.AKX

E.BLK==

PSECT SUMMARY

:
3

P.AKU
P.AKV

T.FAT==
T.SPL==

1540°

1574°

L10
1=Jul=198l3 15:25:5
1;:%%:28
51-Jul-19

i
RD/RX EXERCISE
N TABLER
PROTECTIO

.....B S”bOlS - G - =

File

DISKSUSER2:[DIETZ.RELEASEJIZROABO.L16:27

Total

Loaded

Percent

455

227

COMMAND QUALIFIERS

Blocks

Read

1;3
P
V3-555
Bliss=16
VAX=11
‘(l
DISKSUSERZ2: DIETl.lfLEASEJIIOAOO.IL1:ga )
SEQ 1

MMl

I I

I I I I I IO

o nsnanoa

e ra T TR LR L Be 00 00 00 000080 00000090 00000000 000008000000 %%t

n10

S1-Juis1o8s 13:93:30

RD/RX EXERCISER
PROTECTION TABLE

VAX=11 Bliss=16 V3-555
DISKSUSERZ: [DIETZ.RELEASE JZROABO.li:?r(!b)

module ZROAM2 (

Ititle "RD/RX EKERCISER'

dent = 'v01.2°,
oddrnsing nodo (absoluto)

gnvirounnf (noeis)
4

begin

Zsbttl "DECLARATIONS'®

Library *ZROABO.L16°;

! RDRX EXERCISER GLOBAL LIBRARY

require 'BLSMAC.REQ';

! DIAGNOSTIC SUPERVISOR LIBRARY

forward routi

X_TRAP : LSISR novalue,

EHS 01 : novoluo.
EMS_DUP : novalue,
EMS BLK : novalue,

EmSTMD NOVALUE

SET_ CPAR novalue.

SET_UPAR: novalue,
EMS_DBN
: novalue.
external
CST: blockvector [HAX CTLR, CST_LEN, word] field (CST_FIELDS),

! RUN-TIME CONTROLLER STATUS rAsLeS
CST_ADDR : ref block tcst LEN, word) field (CST_FIELDS)
ONTROLLER STATUS TABLE ABDRESS OF ‘‘CURRENT'* CONTROLLER
DCT_LEN, word) field (DCT_FIELDS),
tnnxbcrtn
DCT : blockvector
RIVER CONTROLLER TABLES
DCT_ADDR: ref block I:DCT LEN, word] field (DCT_FIELDS),

ADDRESS OF ‘‘CURRENT'' DRIVER CONTROLLER TABLE

ICE AfiDRESS OF *'CURRENT'* CONTROLLER
OF INTERRUPTING CONTROLLER
! DEV! BRESS
(DP_F IELDS)

RDRX_ADDR
: ref rdrx f'leld (RC_REG),

IRDRX_ADDR : ref rdrx f‘leld (RC_REG),

DUPPKT: BLOCK [257, UORDJ ficld

1 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 UALI.V LEN, word] field (T_FIELDS),

! ADDRESS OF srArxSths TABLE (TALLY) FOR CURRENT UNIT

: blockvector [MAX_CTLR,
C_ERR_TBL
: blockvector
MSCP_PKT

C_ERR_LEN, word] field (C_ERR_FIELDS),

ATISTICS iAats FOR CONTROLLER ERRORSTM
tPKT (NT, PKT_LEN, word] field (PKT_FIELDS),
P PACKET PODL

IPKT_ADDR : ref block tPKT LEN, word] field (PKT_FIELDS)

ADDRESS OF AN HSCP PACKET UNTERR@T PROCESSING)

PKT_USE : vector [PK! CNT bxt

E1°POOL ACLOCATION TABLE

: blockvector [RP CNT RP_LEN, word] field (RP_FIELDS),
RETPKT

I0DQ_IN
: word,

10DQ~0UT : word

ENTRY REASON: byte.
EOP_FLAG: b te,

ector EHAXUNITS, bytel,
MAX"CTLR, bytel,

P_ INDEX : si
d word,
S DUPPKT
S PATTERN UORD
CREDIT BAL : uord

ug:; PKT use byte,
D

peM107,
DUTRSN: vector [12)
ERR_COD : vector[14],
ELG_FMT : vector [5],
M‘ )
HWQ2,
HWQ3,
HW04,
HWOS5,
HUG6

HWQ7,

' C
'D
'T

228
—jefrimimimiamtmieiataliaiaielialiatiatiatiaiaiaiatiatiaies-

170 DONE QUEUE IN POINTER
170 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND
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 outsrmoms QI0S PER CONTROLLER
START OF FREE MEMOR
BUFFER
AN
SIZE (BYTES) OF uo
CURRENT STATUS CODE
CURRENT SUB-CODE
CURRENT STEP 5

(0 OR 2) TO aw OR SA
OFFSET
STORAGE FOR SA REGISTER ams AND WRITES

COMMAND TIMEOUT VALUE (IN SECONDS)
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT
COMMAND REF NUMBER (HI ORDER)
nossa?eRPACKEt INDEX

TTERN HRITYEN TO DBN'S
! CREDIT BALANCE

i POINTER TO NEXT ENTRY IN PKT_USE TABLE

OO0

TABLE OF 1/0 BUFFER DESCRIPTORS
BUFF _ADDR: mtor tm BUFcur
170 BUFFER OWNERSHIP (CONTROLLER NUMBER)
'
BUFF oun mE MAX_BUF_TN . byte, signedl,
1000": vector mooLsn byto]
170 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES

OVNOANO IO OO OO0

RETURN PACKET

S),
(EP_FIELD
field
gdl
LEl.sze
Cl;eEP
ELOGPKT : blockvoctorER:
PATKE

: Stocu tv LEN.word mtc (RP_FIELDS),
S

;sg

LN T
DRTR DR LRL L L L

f"'EgztA%LOCATIGN TABLE

cutnem m

RP_ m :

v
Iy
mImmmM
I IIImmmM
T T E N I I I
T

6 V3-555

RP_USE : vector [RP_ CNT
U‘N.

e e T T TRTR TR L

lETUll

VAX=11 Bliss=1
1 )
.8'(36
ER2: [DIETZ .RELEASEJZROABO.BLY;
DISKSUS

e . — — — — — — — — — L~ L~~~

%3538
R
it

RD/RX EXERCISER
CLARATIONS

N10

(2]

YL
T
L T B
N )

=S OONOWVESWNI=ON=

NN—I—.—.-.—D.—.—ld—boo

W= OO0~

& &

OOOOOOO??
VIV
SKEKR v
OV
NN =O 000

ViAW VIV

e i

. S

SN S

b d =D

RPNV

53
%

RD/RX EXERCISER

DECLARATIONS

1=Jul=-198 2 :58
3 15:19:20
51=Jul=198
VNNNVNCNY

- OO 00 NO VIS NN -

PON)
= b ed e ed

[=l=l=l-lolalololelaT0

[V IV, IV IV IV, IV, IV IV, IV IV IV )

B Be Do ®eBe 000800800090 %909: 9099009090990 9:90%0%0 %99 %% %8, %080 e 000090 %0 909090909090 % %% %% %000

e N

132
P
VAX=11 Bliss=16 V3-555
2: [DIETZ. RELEASEJZROABO.BL1:?8.(36)
DISKSUSER

SEQ 131

e e e

T
e B

R E T R R T E TR RS

DR TR PRTR T DA

=4
k-

) oo~

o
~

xzz.x::

m
mmmmmmmmmm m
®
XIXITIIXITX
A own
|
[« XV, PAV,
V]
U
1
—
b b b©
WO & & & & & &

@®m

m mm

§\”
a8 o

5068

o
o
0

DRL L Be e 00 0000 00900000 %0090 909090909 %%: %% s

5066
5067

—

x
=

>
e

5064

5065

<
>
N
~

RER=8

RE s

Sk ed b b 2 2 OO OO0
OOWVS W =0V
NONW

R R

VIV

SR
b

RD/RX EXERCISER
DECLARATIONS
EGD g

EGD 22.

EGH"30,
EH_0,

EH1

21=Jul-198 3 15:2 5:58
21=Jul-198 3151 9:20

Pase 133
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ .RELEASEIZROABO.BL1;10 (36)

SEQ 132

e wd

b w—d

b —d

b wd

T T AT AT A T A T

T AT
T
— b e e

b —d

VNN

T T
W

WN-=OV~N

VAT
T TA T AT WA
D e e D e i o D e o

=O VRNV

T iT eTi iT oAT
TV
o e e

d e o o

WN=O VNS WN=OVONOWVNSWN=O
V0N

OONONONONONONONO
O IV
SN N S

— e

WVIVI T Y A W T T W W

S -1

RD/RX EXERCISER
DECLARATIONS
21=Jul=19 83 15:15:25:5 8
21=Jul=1983 15:19:20

Paae 134
VAX=11 Bliss=16 V3-555
(36)
1;10
ROABO.BL
ELEASEIZ
DISKSUSER2: [DIETZ.R

SEQ 133

MM g

51-Jul-1
1=Jdul=1

won
wey
wmo

RD/RX EXERCISER
DECLARATIONS

0o @0

SEQ 134
qr!fi
P
V3-555
16
VAX=11 Bliss=
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BLT; 10 (36)

i
et
Y L N N L L L L L L L L L L L Y Ly L L Ly L L Iy

=O VNS
W

CRTR ERR : vector [23],

RDRX_ERR : vector [7],

EX_WRD,

EXCOP,

SPACES,

CRLF,
DASH,
ASTERISK,

SWP_FLAGS : word,

LSHIMEM,
LSLUN,
LSUNIT;

TBL_SUC :

vector [17] initial (NULL, SC_SDI, SC_CON, NULL, SC_DUP, NULL, NULL,

TBL_WPT :
TBL_DAT :

vector [3) initial (NULL, SC_SWP, SC_HWP),
vector [16] initial (SC_FE2,"NULL, ST 152, SC DS2, SC_EC9, NULL, NULL

NULL, SC_ONL., NULL, NULL, NULL, NULL,”NULL, NULL, NOLL, SC_SON),
TBL_OFL : xattorsgvg initial (SC_UNK, SC_VOL, SC_IOP, NULL, SC_DUP, RULL, NULL,
18),
TBL_MFE : vector [T1] initial (SC_FER, NULL, SC_ISH, SC_DST, SC_EC9, SC_576,
SC_FCT, SC_ECC, SC_RCT, SC_FUL, SC ECT),

SC_ECD, SC_EC1, SC_EC2, SC_EC3, SC_ECZ, SC_ECS, SC_ECE, SC_EC?7, SC_EC‘).

136

rnown
[=1.
]

v AN

D TITIMs
& & % & & &

-a-a-a-a.-o-a*

R
R TR
R
A TR T PRTR T TRTR PR LR LALR LA LR LALA LA L L TR IR IR IR R
T TR TR IR

M_UL

own

SEQ 135

Page

:
10 (38)
DISKSUSER2:[DIETZ.RELEASE 12ZROABO.BL1

SN NN =
>PMEMC~N ONNV

WWNWWNI
NN NN NN

21=Jul=1

VAX=11 Bliss=16 V3-555

A TR PRTR PRPR TR TR LR LAL L L L LN

DECLARATIONS

21=Jul-1

RD/RX EXERCISER

ZRQAM2
v01.2

VO
CoCo
W

. BN S, SN

[9] initial (NU[L, SC_ SfiT SC Sfll Sc PUE. SC_RDY, SC_CLK, SC_RSP,
TBLCDRV: vector
SC_SUR, SC_PSP);

Sc_eoc, Sc¢_IDS),”

. SN

5278
5279

TBL_CNT : vector [4) initial (SC_CTO, SCS

. A

5277

TBL_HST: vector [5] initial (NULL, SC ODA SC ODB. SC NXH. SC_PAR),

——

5276

—

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

——

RD/RX EXERCISER
DECLARATIONS

ZRQAM2
v01.2

SEO 136

137
VAX=11 Bliss=16 V3=555
(36)
1
BO.BL1;
DISKSUSER2: [DIETZ .RELEASEJZROA

Ysbttl 'TYPE AND DESCRIPTION'

;

gggg

;

g%g% EQUALS;
5084 DEVIYP (Zasciz'RODX1');

;

5285

DESCRIPT (%asciz'RD/RX EXERCISER');

! NAME OF DEVICE SUPPORTED BY PROGRAM
i TEST DESCRIPTION

SEQ 137

Paae 138
VAX=11 Bliss=16 V3=555
DISKSUSER2:CDIETZ.RELEASEIZROABO.BL1;10 (37)

RD/RX EXERCISER
TYPE AND DESCRIPTION

ZRQAM2
v01.2

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

e
————————
e
T T T Tt
Tt T T

H1N

RD/RX EXERCISER

IRQAM2

HARDWARE PARAMETER CODING SECTION

%sbttl "HARDWARE PARAMETER CODING SECTION'

5304

XFERF (HW1):

VIV TV
WY
NN
N
0
W)
=

$I832F
$33
SR ) SRS

v01.2

1=Jul=1983 15:25:5

51-Jul-198§ 15:19:23

VAX=11 Bliss=16_V3-555

! THE HARDWARE 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.

BGNHRD
;

GPRMA (HWWQ1, 0, 0. %0°'160000°,

%0'177777*,

YES, 1);

GPRMA (HW02. 2. 0. %0'4‘, %0'?74°, YES, 1);
GPRMD (HWQ3. 4. 0. %0°'377', %0'0'; %o0'7', VES, 1):
GPRMD (HWQ4. 6. D. %0°'3', Zdecimal'0’, Xdecimal'3®, YES, 1);
GPRML (HWQS. 6. %0°4', YES, 1);

5308

SL (NODU);

GPRMD (HW06, 8,

5311
5312

XFER (HW2):
SL (WW1);

D, %0'177777°'. %decimal'0’, RD_MAX_LBN, YES, 1);

5310 GPRMD (HWQ7. 10, D, X%0'177777%, GPSATLO (8), RD_MAX_LBN, YES, 1);
5313 GPRMD (HWQ6, 8, D, %0°'177777°', Xdecimal®0®, RX_MAX_LBN, YES, 1):

gg}g 2{"73u§?"°7' 10, D, %0'177777%, GPSATLO (8), RK_MAX_LBN, YES, 1);
5316

GPRML (HWQ8, 6, %0'100000°*, NO, 1);

5319

$L (HWDONE):

5317
5318

5320
5321

XFERF (HWDONE):
GPRML (HWQ9, 6, %0°100000°*, NO, 1);
ENDHRD;

IP ADDRESS

VECTOR

BR LEVEL
RDRX DRIVE NUMBER

" UNIT TYPE

! run dup exerciser
! WRITE TO DBN'S

5305 GPRML (HWa1D, 6. %0'000010°, YES, 1);
5306 XFERF (NODU):
5307 GPRML (HWQ11, 6, %0'000020°, YES, 1);
5309

' EXER ON CUST DATA AREA
i NO = DONE
i «* WARNING / CONFIRM

139

DISKSUSER2: DIETZ.RELEASEJZROAB0.0U:18.(38)

SEQ 138

Page

! STARTING LBN

i 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;

IGPRML (SWQ16,

&4, SWF_TRC,

YES, 1);

GPRMD (Swal, 0, D, %o%177777°,°0, 65535, YES, 1);
GPRMD (SWQ2, 2. D. %0'177777°. 0. 99, YES, 1);
GPRMD (SWa1?, 10,°D, %o'177777*,°0, 100, YES. 1);

GPRMD (SWQ22. 12. D. %0'177777*. 0. 144, YES, 1);

GPRML (SWQ15,

&, SWF_(ST, YES, 1):

IGPRML (SWG20, 4, SWF_FER, YES, 13;
'GPRML (SWQ21, &, SWF_HOE, YES, 1);
GPRML (SWQ4, &, SWF_RDM, YES, ;
XFERF (SW1);

XFER (SW2);
SL (SW1);

! ENABLE DIAGNOSTIC TRACE

i ERROR LIMIT
i TRANSFER LIMIT
i PERCENT UF RD OPERATIONS

i NUMBER OF DBN'S WRITTEN AT ONE TIME

! IF NO, DO NEXT QUESTION

GPRML (SWQ7, &, SWF_CRC, YES, 1);
DISPLAY (SWM1);
GPRML (SWQ9, &, SWF_(CWC, YES, 1);

! READ=COMPARES AT CCHTROLLER ?
! REMAINING QUESTIONS ONLY APPLY ...
! WRITE-COMPARES AT CONTROLLER ?
! IF NO, DO NEXT QUESTION

GPRML (SWQ11, &, SWF_UDP, YES, 1);
XFERF (SW5);

! USER=-DEFINED DATA PATTERN ?
! IF NO, DO NEXT QUESTION

GPRMD (SWQ12, 6, D, %0°'177777', 0, DP_CNT, YES, 1);

! CHECK WRITES AT HOST BY READING ?

VIV ATV

(‘SLPR%W(.!’SUMO. &, SWF_HWC, YES, 1);

SL_(SwW3);

:{E?sga)m;

! SELECT PRE-DEFINED DATA PATTERN
! DONE

GPRMD (SWa13, 8, D, %0'177777°. 1, MAX_UDP_(NT, YES, 1);! NO. OF WORDS IN USER DATA PATTERN
(’ifR(ngugUOM. 14, 0, %0'177777%, 0, %0"177777*, NO, 8); ! PATTERN VALUES
ENDSFT;

! CLEAR STATISTICAL TABLES ?

! FIXED OR RANDOM SEQUENTAIL STEPPING ?

XFERF (SW3);

140

! REWRITE BLOCKS WHEN ‘FORCED ERROR'' BIT SET?
! HALT ON HARD/SOFT ERRORS WITH "HOE' FLAG SET?
! RANDOM SEEK MODE ?

(iPl!H.‘L
(5039019. 4, SWF_SEQ, YES, 1);

XFER (SW4);

SEC 139

DISKSUSER2: DIEYZ.RELEASEJZROABO.IJ:W(”)

%sbttl °*SOFTWARE PARAMETER CODING SECTION'
‘s

%‘l-Jul-‘ng 15:19:28

WA VT

AT T A T

A A

FE YRR RRERRRRRRR

FURZSomNoOwnw
s wn=0

VIV
AW VIV WAV
WWWW WNWWWNW

VIS
NN = SRR
&I u*www

AR RTR T ETRTR DR TR PRL L T
TS IL IR

SN
3

SOF TWARE PARAMETER CODING SECTION

VAX=11 Bliss=16 V3-555

RD/RX EXERCISER

1=Jul=1983 15:25:5

felolelelelel=llelelelel=leolelelelelel- T

S1-Jul-19lg 15:%3:28

0 OO

TRTN T T

BGNRPT;

TRTR

2 "PRINTS'® CALLS THAT GENERATE STATISTICAL REPORTS.
! PRINTS MSCP DATA

(RPT1);
(RPT;):
(RPT3);
(RPT&);
(RPTS);

PRINTS (RPT6);

incr CTLR from 0 to MAX_CTLR = 1 do
be?in
SET_CPAR (.CTLR);

incrb21§x from (0 + OF_UN) to (3 « UNIT_SIZE + OF _UN) by UNIT_SIZE do
n

SE?.UPAR (.DISK);
if (.CST_ADDR

(.CSTCADDR

then

[.DISK, D_TYPE] eql RX_50) and

[.DISK, D_PRES] eql PRESENT)

PRINTS (RPT7, .LSLUN, .CST_ADDR [.DISK, D_DISK_NUMI);

if (.CST_ADDR C.DISK, D_TYPE] eql RD_51) and

(.CSTZADDR [.DISK, D_PRES] eql PRESENT)

then

PRINTS (RPT8, .LSLUN, .CST_ADDR [.DISK, D_DISK_NUM]);

e
e

:; .CST_ADDR [.DISK, D_PRES] eql PRESENT
en

.T_ADDR Eror_READS H!), .T_ADDR LTOT_READS LOJ,

PRlni;_?gg¥9(HTOT_BVT_REDJ. .T_ADDR

R R T

CTOT_BYT_RED_HIJ, .T_ADDR L[TOT_BYT_RED_LOJ);

.T_ADDR Eror WwRITES HIJ, .T_ADDR CTOT WRITES_LO].,

Pnlui;_?gg¥15HIOT_8Y!_URTJ. .T_ADDR CTOT_BYT_WRT_HIJ, .T_ADDR CTOT_BYT_WRT_LOD);

T T R

beyin
PRINTS (RPT9

.T_ADDR (éRR_HRD_SEKJ. .T_ADDR CERR_HRD_DAT], .T_ADDR CERR_HRD_DRV], .T_ADDR EERR_HRD_HST;

p .T_ADDR [ERR_SFT_SEK], .T_ADDR [ERR_SFT_DAT], .T_ADDR CERR_SFT_DRV], .T_ADDR LERR_SFT_HST 5:

end;

if .CST [.CTLR, STATE] eql PRESENT

0%80808000%00% %00, ITR TETE

A T

VIV
AWVIV
WWWW

! THE REPORT CODING SECTION CONTAINS THE

8080000000800

S88RIER R WA = SEEEEERERBEIINIIIINTSE

WAA VA VAW
A T

PRLR TR LN
LALR 1 AR TR TR
PR TR TRTR LR

TR TRTR

DISKSUSER2: Dl!!l.IELEASEJZIOADO.IL1:?8.(60)

Xsbttl "REPORT CODING SECTION'

PRINTS
PRINTS
PRINTS
PRINTS
PRINTS

SEQ 140
141

Be 8e 8eBeBeBeBe0e8ae8e0e8e8e808:% 8000809080800 %

REPORT CODING SECTION

e B

RD/RX EXERCISER

IRQAM2
v01.2

VAX=11 Bliss=16 V3-555

.
1=Jul=1983 15:25:5

DISKSUSER2: [DIETZ .RELEASE JZROABO .!ll:?a.(GO)

VAX=11 Bliss=16 V3-555

PRINTS (RPT11);

PRINTS (RPT12, .C_ERR_TBL [.CTLR, C_ERR_WRD], .C_ERR_TBL [.CTLR, C_ERR_SFT1);
PRINTS (CRLF ):

! PRINTS DUP DATA

be‘in

rints(crlf);

INTS(RPT13); 1

PRINTS(RPT14):

PRINTS(RPT1S5)

INCR C!t:fiflgfl 0 TO MAX_CTLR=-1 DO
Gl
SET_CPAR (.CTLR);
):

_UN) BY UNIT_SIZE DO
INCR Dls:tz?g" (0+OF _UN) TO (3+UNIT_SIZE+OF
SET_UPAR(.DISK);
THEN
PRIN TS (RPT16,

«LSLUN, .CST ADDR [.DISK, D_DISK_NUM]

=~
&»

IF .CST_ADDR[.DiSK. D_TYPE] EQLU RD_S51 and .CST_ADDR [.DISK, D_PRES] eql PRESENT

ELBADDR CT_DBN_RD], .T_ADDR [T_BtK-RDj. .T_ADDR [T_DBN_WT], .T_ADDR [T_BLK_WT]);
end;

END;

PRINTS (CRLF);

ENDRPT;

.TITLE
.IDENT

ZRQAM2 RD/RX EXERCISER
/Vv01.2/

.PSECT

SCODES,

.ENABL

104

LSDVTYP:

061

000

104
130
130
103
105

057
040
105
11
122

TASCI1
.BLKB
LSDESC::.ASCI1

/X17<00>
2
/RD/<57>

LASCII
BLKB
LSHRDLN::

<00>
2

121

000034
000036

000031
0000006

JASCII

LASCII
LASCI1
LASCII
.ASCI1

GP$1::

/RQD/

/RX /
/EXE/
/RCl/
/SER/

WORD

§;<L8NDHRD-LSHRDLN>/2>-1>

.WORD

HWQ1

.WORD

CTION

15:25:5

R T TNPOLN
T

51-J31-198 12:19:23
1-Jul=1983

e BaBeBaeBeBeBe e8P 8s800:9 0800808090808, 8008:0%:%:%:%:8%:8%:0, YEIRTIETR IR TR TRTR D T
1 TERIETERIE

RD/RX EXERCISER
REPORT CODING SE

S1-Jut=1o8s 13:%3:30

RD/RX _EXERCISER
REPORT CGPING SECTION

179709
1

1031
HWQ2

774
203;

HWQ

377
3052

HWQ4

GPS$5::

2005

$SHW1:

6>+40>
SLHW
T =SHWT1>+400>+4
<<<<
3130
?8010

$NODU:

;:;gSLNODU-SNODU>t400>+4>060>

GP$7::
$LNODU:
GP$8::

HWa11
20
1004
4052
HWQ6
-1
0
52137
5452
HWQ7
-1
3

?213?

$HW2:
SLHW1:
GP$10::

GP$11::

<<<SLHW2=SHW2>+400>+4>
1004
4052

0
1437
5452
HWQ7
-1

[ R

N
N e e e
Y
S
e

SRSN NNIBTRBR
RN SRR SHRRERRRBZFRSR

8 §88888838338888888 gggggssss888

881 031

}437

$LHW2:

1004

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

SEQ 14

§~

§§§§§sS 8

RD/RX EXERCISER

IRQAM2

REPORT CODING SECTION

v01.2

1
16

0002

GP$12:: .WORD

GP$13:: .WORD

WORD
.WORD
: .WORD

100000

001004

.WORD

$SLHWDONE :
WORD

LSNDHRD: :

000000C

000236 000052
000240
000242 177777
000244 000009
000246 17777
000250 001052
000252 0000006
254

-Jul-198 g fg 28

000232
000234

Jul=1983 1

177777

BLkw

LSSFTLN::
WORD

WORD
.WORD
WORD
MWORD
WORD
GP$15:: .WORD
.WORD

GP$14::

WORD

3128

1004
1

<<<LSNDSFT=LSSFTLN>/2>=1>

52
SwO1
=1
O
=1
1052
SWQ2
=1

000256
260
262
000264
000266
000270
000272
000274
000276

000000
000143
005052
0000C0G
177777
000000
000144
006052
000000G

000304
000306
000310
000312
000314
000316
000320

000220
002130
000000G
000200
002130
000000G
000002

.WORD
GP$18:: .WORD
.WORD
.WORD
GP$19:: .WORD
.WORD
.WORD

220
2130
SWQ15
200
2130
SWQ4
2

000326
000330
000332
000334
000336
000340
000342
000344
000346

001004
002130
0000006
001000
001004
002130
000000G
000004
000003

$LSW1: L.WORD
GP$20:: .WORD
.WORD
.WORD
$LSW2: .WORD
GP$21:: .WORD
.WORD
.WORD
GPSDISP::MORD

1004
2130
SWQ19
1000
1004
2130
SWQ7
&
.

000322
000324

000350
000352

177777

000000C
000000C

000000G
002130

.WORD
.WORD

$SW1:
$SW2:

.WORD
.WORD

.WORD
GP$22:: .WORD

HWDONE =SHWDONE>*400>+4>+40>

=100000

O
143
5052
SWQ17
=1
O
144
6052
SWQ22
=~

<<<<SLSW1=-$SW1>*400>+4>+40>
<<<SLSW2-$5W2>*400>+4>

SwWM1
2130

SEQ 143

144

DISKSUSER2:L[DIETZ. KLEASGJZW.IJ:W(&O)

HWO

.WORD
WORD
GP$16:: .WORD
.WORD
.WORD
.WORD
LWORD
GP$17:: .WORD
.WORD

000300
000302

VAX=11 Bliss=16 v3-555

8 12
21=Jul=198
21=Jul=198

RD/RX EXERCISER
REPORT CODING SECTION

$SW3:

$SW6:

$LSW3:
GP$23::

SWa9
20
<<<<SL SWI=$SW3>*400>+4>+40>
<<<SLSWL=-8SWe>*400>+4>
1004
2130
2U010

SLSWG:
GP$24::

$SWS:
$SW6:
$LSWS:
GP$25::

$SW7:
$LSW6:
GP$26::

GP$27:: .

SLSW7:
LSNDSFT::

TBL.SUC:

<<<<SLSWS=8SW5>*400>+4>+40>
<<<SLSWO=-8SWE>*400>+4>

SEQ 144

Paae 145
VAX=11 Bliss=1 6 _V3-555
(DI ETZ.RELEASEIZRQAB0.BL1:10 (40)
DISKSUSER2:

nown
[=1.]

—r

21=Jul21=Jul~-

RD/RX EXERCISER
REPORT CODING SECTION

€1

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

sE0 145

146

10 :¢ 40)
EASEIZROABO.BLY

TBL.MFE:.

SRRSHEKERIN Sarno&RRS SR

000070

TBL.WPT:.
TBL.DAT:

TBL.HST:.

TBL.CNT:.
TBL.DRV:

TBL.OFL:

e T e T e e e el e e v e lelelele == lelelwle > elel= e lelele]le o]« ]

NULL

D12

VAX=11 Bliss=16 V3-555

%1-Jul-1983 1 :2 5:58
1 =Jul=1983 83 15:1 9:20

RD/RX EXERCISER
REPORT CODING SECTION

CST,

DISKSUSER2:[DIETZ.RELEA

CST.ADDR, DCT, DCT.ADDR, RDRX.ADDR

IRDRX.ADDR, DUPPKT. TALLY, T.ADDR
C.ERR.TBL, MSCP.PKT, IPKT.ADDR
PKT.USE, RETPKT, RP.USE, RF.INDX
RP.ADDR, ELOG.PKT, BUFF.ADDR,

BUFF.OWN

10Da, 100Q.IN. 10DQ.0UT, ENTRY.REASON
EOP.FLAG, DUP.FLAGS, CCTLR, CDISK
CUOFF, CTLR.CNT, DUR, QI0, FREE.MEM.ADDR
BYTS.PER.QI0, 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, DBMS, DBM107, DU.MSG
DU.RSN, ERR.COD, ELG.FMT, Hwal

HW02, HWQ3, HWQ4, HWAS, HWQ6, HWQ7
HWO8. WWa9. HWa1l, Wwai1, swa1
SWa17.

SWa19,

SW22. SWM1, NULL

MsG.01, MSG.02, MSG.03, RPT1, RPT2
RPTS, RPT4, RPTS, RPT6. RPT7. RPTS
RPT9. RPT10, RPTi1, RPT12, RPT13
RPT14, RPT1S, RPT16, EGS.01, EGS.02
EGD.10, 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. EH.0., EH.1, EH.2
EH.
EH.3, ENH.4, EH.S, EH.6, EH.7,

EH.9. EN.10, EW.12, EH.13, EBS.01
E8D.10, EBD.12, EBD.13, EBD.14
EBD.18. EBD.19. ELG.00, EX.BDR
EX.8DW. EX.LBR. EX.LBW, EX.RBN
EX.CBR. EX.CBW. XX13, XX14, XX15

xx16, xx17. xxis, xxi9, xx20, xx21

XX22. XX23. XX24. XX25. XX26. XX27
XX29. XXx30. Xx31. XX32. XX33., XXx34
XX35. Xx37. Xx38, XX39, XX&0, XX&1
EB.D(T, EB.COMM, EB.PKT,

EB.RAL

EB.ADDR, EBNEX1. EB.NEX2, EBNEX3
CER.01,
EX.MTN.
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

SEQ 146
147
Page

1:
10 (40)
SE1ZROABO.BL

E 12

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

RD/RX EXERCISER
REPORT CODING SECTION

EX.ABP,
SC.ONL,
SC.10P,
SC.ISH,
SC.ECC,

SC.SDI, SC.CON, SC.DUP
SC.SON, SC.UNK, SC.VOL

SC.DIS. SC.FER, SC.FE%
SC.1S2, SC.DST, SC.DS
SC.ECD, SC.RCT, SC.FUL

$C.576, SC.FCT, SC.EC1, SC.EC2
SC.EC3, SC.EC4, SC.EC5, SC.EC6

. SC.EC8, SC.EC9, SC.SWP
SC.0DB, SC.NXM
SC.HWP, SC.ODA,

7.°F.8, F.9, F.10, F.11

15, F.13.°F.14, F.15, F.16, F.17
18 F.19. F.20. F.21. EBH.50
EBH.44, EBH.45, EBH.46, EBH.47

EBH.48. EBH.49. DF.0, DF.1, DF.2
OF.3, DF.4, DF.S, DF.6, DF.7, T.QUE

T.DEF, T.INF, T.TER, T.FAT, T.SPL

E.UNT. E.BLK. E.DEV. E. zea 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

e R e
e R

3 SSERGK N

e e
e
e
R e
e
e
e e e
e

e L

I =N
IS =
no»~ NS AN
o
2000000
(elelele]
o

e ]

= = — = — = =) — —
OO
= wd wd b b b
=2 NN SO 00O

VO =W
W

t§5§?¥SK‘ SWP.FLAGS, LSHIMEM, LSLUN

o Cb O o O €D G Cd G G G T T G Cd G G T T G (I I M

SEQ 147

148
P
VAX=11 Bliss=16 V3-555
0)
:’8‘(6
BO.BL1
LEAS
EJZROA
DISKSUSER2: [DIETZ.RE

21-Jul=1983 15:25:58

RD/RX EXERCISER

ZROAM?

21-Jut-1933 15:19:20

REPORT CODING SECTION

v01.2

000001
000040
000037
000036
000035
000034
000340
300
000240
000200
000140
000100
000040

B1T0==
EF .START==
EF .RESTART==
EF . CONT INUE==
EF .NEW==
EF .PWR==
PRI0O7==
PRI06==
PRI0S==
PRI04==
PRI03==
PRI02==
PRIOT==

1
40
gr
6
35
3%
340
300
240
200
140
100
40

000004
000010
000020
000040
000100
000200
00
001000
002000
004000
010000
020000
040000
100000
000034*
000236"

EVL==
LOT==
ADR==
1DU==
ISR==
UAM==
BOE==
PNT==
PRI==
IXE==
IBE==
1ER==
LOE==
HOE==
LSHARD==
LSSOF T==

4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
-100000
LSHRDLN+2
LSSFTLN+2

000000 004137 0000006
000004 012746 0000006
000010

000014

000016

012746

010600

000001

104416

000020 012716 0000006

LRPT:

LRPT REPORT CODING SECTION

JSR
MOV

R1,$SAVE3
#RPT1,=(SP)

:
:

MOV

SP.RO

: SP,%

MOV

TRAP

010600

MOV

SP,RO

: SP,*

SP.RO

; SP,*

TRAP

000044

#,-(5P)

104416

010600

000032

#RPT2, (SP)

000024 012746 000001

000030

SCODES,

MOV

#1,-(5P)
16

000034 012716 0000006
000040 012746 000001

MOV
MOV

#RPT3, (SP)
#1,-(5P)

104416

TRAP

000046

000050 012716 000000G

MOV

SP.RO

; SP,*

000054 012746 000001

#1,-(5P)

104416

TRAP

000062

010600

000064 012716 000000G

MOV

#RPT4, (SP)

MOV

000060

149

oxsxsusenz:toxerz.aELEAsEJzaoAao.sL1;18'(40)

.SBTTL

.PSECT

SEQ 148

Page

PRI00==

000462

VAX=11 Bliss=16 V3=555

#RPTS, (SP)

5368
5378
5379

5380
5381
5382

F12

0000006
000001

88 S350

000000V

R2828u& - g o

000000V
000003

0000006
000004
040000

177774
000000G
000000G
000003

706

000006

prur Qo Qe oy

R28S
R PNININN)
= =2
N
NNNN
~

0000006
000004

040000
177774

4
#RPT6, (SP)

#1,-(5P)

h
e
b
b
—

; SP,»

5383

SP,RO

; SP,+

R3,(SP)

;s CTLR
: CTLR,*

5385
5387

s +,DISK

5389

: DISK,*

5393

5394

5396

PC,SET.CPAR

#3,R2
R2, (SP)

PC,SET.UPAR
R2,R1
R1

R1,RO
CST.ADDR,RO
#4,(RO)
3s
#40000, (RO)
38
(RO), (SP)

77774, (SP)

H Dlgéffi

5391

: SP,e
R1,RO
CST.ADDR,RO
#6, (RO)
«%
#40000, (RO)

5398

5399

(RO) , (SP)

5401

#177974, (SP)

LSLUN,=(SP)

#RPT8,=(SP)
#3,-(5P)

SP,RO

: SP,»

R1,RO

5403

5408

16
#6,SP

CST.ADDR,RO
;:0000.(R0)

—

~
oo

XEs
N\hflflflg
R RRoIS
SR
8& 888 § &~

=0000

#1,-(SP)
?P.RO

—

Y
P
RSEREL
g o W=
NNOWOr
oo

32§28 £ NN»®

=000 =00

000001

°°°°°°8

e
B

REPORT CODING SECTION

2(R0), (SP)
(RO) ,~(SP)
36(R0O) ,~(SP)
16(R0) ,=(SP)
20(R0) ,=(SP)

= gg
ey

RERSrRoRES

§8883883883
-§l-l-.-0—.-l

21=Jul-1983 15:2
21=Jul=1983 15:1

RD/RX EXERCISER

SEQ 149

Paae 150
VAX=11 Bliss=16 V3=555
(40)
1;10
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL

e T el e e el le el
lel=leleleleleeleleclelwlelelelelelelelelele
-]

G 12

#RPT9,=(SP)
#6,=(SP)
SP.RO
16
R.RO
QO(RO) (SP)

42(R0),=(SP)
44 (R0) ,=(SP)
4 (R0),=(SP)
6(R0),=(SP)
#RPT9,=(SP)
#6,=(SP)

s SP,*

: SP,»

T.ADDR,RO
(SP)
67§R0).(SP)

5411

5414

66(29).(SP)

65(R0) (SP)
=(SP)
64(R0) (SP)

63(R0) (SP)

S S SN

=(SP)
62§R0).(SP)

61§R0).(SP)
60(R0), (SP)

#RPT10,~(SP)

#11,=-(SP)

SP,RO

: SP,¢

#52,SP

e pISK
f: DISK
,*

3309

;s CTLR,*

5419

5422

#5,R2
RZ w22
2

R3,(SP)
#56,-(SP)
PC.BLSHUL
(SP)+

CST+2(R0O)

78
#RPT11, (SP)
#1,-(SP)

: SP,»

R3.RO
RO
(SP)

: CTLR,*

SP.RO
o

0000006
000001

AOOO

SP,RO

151

DISKSUSERZ [DIETZ.RELEASEJZRQABO.BL1;10 (40)

5423

S~ £ S S S S £

0000006
000006

SEQ 150

Page

e~~~ — S~ o~ — S~

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

RD/RX EXERCISER
REPORT CODING SECTION

VAX=11 Bliss=16 V3=555

OO0 OO0O0OOO0O0CO

H 12

Cigg?.fsl01(R0).(SP)

0000006
0000006
000003

MOV
MOV

MovB

#RPT12,=(SP)
og.-tsm

TRAP

000010
0000006
000001

#10,5P
F
, (SP)
#CRL
#1,-(SP)
SP.RO
16
(SP)+

: SP,*
5421
5426

: SP,*

é CTLR

§§3§
5430

BGT

MOV
MOV
MOV

#CRLF, (SP)
#1,-(SP)
?:.RO

000000G
000001

Mov

#RPT13, (SP)

0000006
000001

MoV
MoV
MOV

#RPT14, (SP)
#1,-(SP)
SP.RO

MOV
MOV

#RPT15, (SP)
#1,-(SP)

: CTLR

5434

: *,DISK
: DISK,*

5437
5439

: DISK,*

5440

5444

NowasSSs NO=yONOOONO

000000G
000001

oo
NN

=i =8 — D - g-o-.-.
oSroNNSOW
NN ®
OO
W= =W
~N S
SNS NN
N-‘NNNSJ\
~
W=OW=O
=0
N
133 RRAS
o

—-=O00000

SRS

s
T P

SP.RO

R3
INC
+WORD CLV!CLC

000600
000000G
000001

R 008900
© r8 RSTM
N

ADD
MoV
MOV
MoV

TRAP
TST

000243

88888388888

MOV

C.ERR, TBL (RO), (SP)

000006
00005g

000000V
000003
000000V

0000006
000004

040000

000056

MOV
MOV

MoV
JSR
MOV
JSR
MOV
ASL
ADD
BIT8
BEQ

#1,-(SP)
?Z.RO

R2,(SP)
PC,SET.CPAR
3.R1
s,
R1,(SP)
PC,SET.UPAR
R1.RO
RO
CST.ADDR,RO
#4,(RO)

: SP,*

5431

: SP,*

5432

: SP,»

5433

: SP,»

: CTLR,*

5436

BIT

quOOO.(RO)

MOV
MOV
MoV
MoV
MOvB

S0(R3), (SP)
52(R3) ,=(SP)
54(R3) ,=(SP)
56(R3) ,=(SP)
(RO) ,~(SP)

OO0

Move

OO0

o-o~orONO

WO oo

SONN ~ s

SN -t O &S b &a

2§N~N §::,2s

-ooog 3922=2=
88
Vi
[,%]
wVio~

0000016

OOOO0

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)
1;10
OABO.BL
EASEIZR
DISKSUSER2:[DIETZ.REL

—

e Py

= e

e e

TRAP

SP,RO
16

& spo.

#16,5P
#5.R1
R1,#22

: *,DISK

5437

: CTLR

5434
5449

ADD
ADD
CMP

BLE

0000006

SRR,
108

tine Size:

004737
104425
000207

: Routine Size:

302 words

#CRLF, (SP)

MOV

SP,RO

: SP,»

#30,SP

5368

5449

TRAP

ADD

000030

RTS

Routine Base:

#,=(5P)
16

34 words

000462°

.SBTTL
LSRPT:: JSR
TRAP

RTS

LSRPT REPORT CODING SECTION
PC,LRPT
25

Routine Base: $CODES + 1616
2 words

; Maximum stack depth per invocation:

SCODES + 0462

depth per invocation:

4 words,

: DISK,*

MOV

000001

MOV

#7,-(SP)

QOVY

MOV

INC
R2
.WORD CLV'CLC

118:

977776, (SP)

OO0V

KERNane &KW

000016
000005
000022

D D d e

D D ek d D

soosss
00000

BIC

[=lel=]

SSEREaREE i
D b

3888888 2383888888888 S

177774

ximum stack

000000
000004
000006

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

RD/RX EXERCISER
REPORT CODING SECTION

SEQ 152

Paae 153
VAX=11 Bliss=16 V3-555
(40)
1;10
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL

S12Ilzio8s 13:95:20

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

"8'(
7ZR0AB0.BL1:1

RD/RX EXERCISER
INITIALIZE SECTION

Q1 53
1 54
BN

Xsbttl *INITIALIZE SECTION'
BGNINIT;
ocal

DELAY_MULT : word,
FLAG: byte,
TEMP : word,

HWPT NEF : rof block [HWPT_LEN, word] field (HWP_FIELDS),

CLEAITABLES : byte;

SETPRI (PR107);

! PRIORITY 7 = NO INTERRUPTS ALLOWED DURING INIT

if READEF (EF _NEW)
then

! IS THIS A NEW PASS?

gfi?RV-REASON = NEW_PASS;
:; (.SWP_FLAGS and SWF_CST) neq SWF_CST
on

CLEAR_TABLES = FALSE

CLEAR_TABLES = TRUE:

end;

if READEF (EF_START)

then

! IS THIS A START?

begin
BRESET;

[=3=1=]

e S Se Sa e Be®e®eBeBete®etoteBeotete®ete0e000000000s0000000000000000000000000s rRe eteaetetatetetotetrnine §'§
nE

K 12

= START;
ENTRY_REASON

CLEAR_TABLES = TRUE;

end;

if READEF (EF_RESTART)
then
begin

! 1S THIS A RESTART?

ENTRY_REASON = RESTART;

CLEAR_TABLES = TRUE;

end;

if READEF (EF_CONTINUE)
then

EN?RV_REASON = CONT;
:; (.SWP_FLAGS and SWF_CST) neq SWF_CST
en

else
end;

CLEAR_TABLES = FALSE
CLEAR_TABLES = TRUE:

! IS THIS A CONTINUE?

5505

5513

5516

then

begin
ENTRY_REASON = PWR_FAIL;

5510
gg};

CLEARTTABLES = TRUE;
PRINTF (MSG_01);

.
! "POVER DELAY = WAITING''

incr COUNT from 0 to 60 do

! WAIT APPROX. 60 SECONDS

befin
DELAY_MULT = 333;

5514
5515

5517

ggg%

'SETVEC (O_TVEC, O_BRK, PRIO7);

550,

5526

3
3

§527

5528

5530

5529

! SET ODT TRAP VECTOR

MAKE SURE THAT NOT MORE THAN MAX UNITS WAVE BEEN SPECIFIED.

(DIAGNOSTIC IS ABORTED).

4
3

5525

! BREAK FOR ACT

BREAK;

5518
5519

DELAY (.DELAY_MULT);

IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR.

!=-

if .LSUNIT gtru MAX_UNITS

5531
5532

then
begin

5535

5538

ggzg

5543

ggzg

5547

incr COUNT from 0 to ((MAX_CTLR * CST_LEN + 2) = 2) by 2 do

gggg

incr UNIT from O to (.LSUNIT = 1) do

§552

3
3

2
2
:

5533
5534

5539

5544

ggzg

5553
5554
gggg

5557

ERRSF (1, EGS_01, EMS_01);
DOCLN;

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.

if (.ENTRY_REASON neq NEW_PASS)

then

begin
(CST + .COUNT) = 0;

! LOOP THROUGH ALL UNITS
' IF HWP TABLE FOUND

if GPHARD (.UNIT, HWPT_REF) nega 0

then

begin
FLAG = NOT_FOUND;

incr CTLR from 0 to (MAX_CTLR - 1) do

! LOOP THROUGH ALL CSTs

(el=l-MNleleleleloelelelelelel=]

3
:

! ARE WE HERE BECAUSE OF POWER FAIL?

F
:

$507

DISKSUSER2:[DIETZ .RELEASEJZROABO.BL1;10 (41)

3
3

5508
5509

SEQ 154

Paao 155

5509 if READEF (EF_PWR)

21=Jul=1983 15:19:20

INITIALIZE SECTION

v01.2

VAX=11 Bliss=16 V3=555

b |

RD/RX EXERCISER

ZRQAM2
H

21=Jul=1983 15:25:58

TRTR L L L D TR LR L L 1)

L 12

555

:|3

sssg
2552(1)

gssgg

:
:

5564
5565

5568
5569

::
:

3
H

:
:

ggz

CST

=
D"DBN]
C.CTLR, .TEMP ¢+ 3,
= NOT(.HWPT REF [HWP ourex:l)
nboumom
X,
+
.TEMP
C.CTLR,
CST
= (.HWPT_REF THWP_DUPWT])
CST C.CTLR, .TEMP + 3, ouwanSJ
C.CTLR. .TEMP + &,

if (.CST
en

gggg

C.CTLR, .TEMP, D_TYPE) eql RX_50) and

CST C.CTLR, .TEMP + 2, D_END] = RX_MAX_LBN;

FLAG = FOUND;

5582

5583

exitloop;

5584
5585

else

5586
5587

5588

end

! DUPLICATE UNIT
be?in
PRINTF (CER_01, .HWPT REF CHWP DISK _NUM],

5589

DUR C.UNIT] = DU_CONF;

5591

FLAG= FOUND;

DODU (.UNIT);

5590
5592

5604

5602
5603

5605
5606

5607

5608
5609
5610

D_COUNT

(.CST C.CTLR, .TEMP + 2, D_END gtru RX_MAX_LBN)

gg;g

5601

! COPY DiSK ADDR AND PROT BIT

€ST

5577

! IF EMPTY SLOT FOUND

CST C.CTLR, .TEMP + 2, o“END] = u\m“REF CHWPZEND_TR

5573
5574

2233

CST C.CTLR, .TEMP, D_FATAL] = FALSE :

§572

CST C.CTLR, -TEMP, D_ALL)= .HWPTm THWP_DISK]:
CST C.CTLR. .TEMP. ouum = ,UNIT

5571

gggg

be&i’n
TEMP = WWPT_REF [HWP_DISK_NUM] * UNIT_SIZE + OF _UN;

5570

:
3

:'fm.'m C.CTLR, .HWPT_REF [HWP_DISK_NUM] * UNIT_SIZE + OF_UN, D_PRES] eql NOT_PRESENT

CST C.CTLR. .TEMP. D_PRES) = mssu’r
CST C.CTLR, .TEMP ¢ 1, D_BEG) = .HWPT_REF EuwBEG_TRK];
K];

gggz

:
2

156
VAX=11 Bliss=16 V3=555
[DIETZ.RELEASEJZROABO.BL1;1.8'(61)
olsxsusznz

fl .CST C.CTLR, IP_ADDR] eqla .HWPT_REF [HWP_IP_ADDR]

then

5569
5§56

3
M

S1=Jdul=1 a 15:19:20

INITIALIZE SECTION

v01.2

:
:

1=Jul=1983 15:25:58

RD/RX EXERCISER

ZROAM2

SEO 155

.HWPT REF [HWP_IPADDR]);

“DUPCICATE UNIT: XX AT IP: XXXRXXTM

' conncumnon ERROR

i DROP UNIT

exitloop:

end;

:f.FLAG eql NOT_FOUND
hen

' IF NO IP ADDR MATCH TO EXISTING CST

incr CTLR from 0 to (MAX_CTLR = 1) do

if .CST [.CTLR, IP_ADDR] eqla 0

then

! LOOP THROUGH EACH CST

' IF EMPTY CST FOUND

bex

G = FOUND;

CST C.CTLR, IP_ADDR] = .HWPT_REF [HWP_IP_ADDR]);
€ST C.CTLR, VET ADDR] = .HWPT REF [HWP VECTOR):

CST [.CTLR, BR_[EV] = .HWPT_REF [HWP_BR LEVEL]

+ OF _UN;
M] + UNIT_SIZE
CHWP_DISK_RU
aEr
HWPT
=
TEMP
THWP_DISK]?
.HWPT_REF
=
D_ALL]
“TEMP,
[.CTLR,
CST
CST C.CTLR, .TEMP, o“UNIT]=.UNIT;

'COPY DISK ADDR AND PROT BIT

R =

LI P

e
e

C.CTLR. _TEMP + 3. DDBN] = 0;
uboumeoui = NOT(.HWPT _REF C[HWP_DUPEXJ);
:CTLR, .TEMP +
| CHECK TO SEE IF PROGRAMMER WANTS TO ROT WRITE"TO DBNs.

d e

C.CTLR, .TEMP + 3

= (.HWPT_REF [HWP_DUPWT]);
DUPURITSJ

C.CTLR, .TEMP + &, D_COUNT]

CST

RROR

J : mse

.TEMP + 1, Dasc = Mf_REF [WWP_BEG_TRK];
TT C.CTLR,
C.CTLR, .TEMP + 2. D_END] = ,HWPT_REF [WWP_END_TRK];
C.CTLR. .TEMP. D_PRES

CST

SN OV

VIV, VIV

C
C
C
C

C.CTLR, .TEMP, D_FAT
s

NO VS W

e cd

C T
C T

if (.CST C.CTLR, .TEMP, D_TYPE] eql RX_50) and

(.CST [.CTLR, .TEMP + 2, D_ Eno

then

LRLA

exitloop;

TR PRLA TR

gtru RX_MAX_LBN)

CST C.CTLR, .TEMP + 2, D_END] = RX_MAX_LBN;

end;

i;.FLAG eql NOT_FOUND

! IF EMPTY CST FOUND

! IF NO EMPTY CST FOUND

Qfl

TRTR

IP ADDRESSES."’
PR?NTF (CER02. MAX CTLR) ! "MORE THAN XNDIFFERENT
ERROR
DUR C. uum DU_CONF ;

DODU (.UNIT);

! CONFIGURATIO
! DROP UNIT

end;

' IF NO IP ADDR MATCH IN CST

end;

' IF GPHARD RETURNS A HWP TABLE

end;

i CONF IGURATON CHECK FOR LEGAL RDRX UNIT MIX BECAUSE WE HAVE DIFFERENT

' DRIVES :

(NEEDED?)

THE RD51, AND RX50.

AR R E R R R R

R R

;

! END OF 'NON NEW_PASS'* INITIALIZATION

énd:
if .ENTRY_REASON eql NEW_PASS

then

begin

incr UNIT from 0 to (.LSUNIT = 1) do
GPHARD (.UNIT, HWPT_REF);
incr CTLR from 0 to (MAX_CTLR = 1) do

CS?C.CTLR, U_CNT]= 0;

! DUMMY GPHARDs FOR NEW PASS

! REINITIALIZE UNIT COUNT

incr OFFSET from (0 + OF_UN) to (3 UNIT SIZE + OF UN) by UNIT_SIZE do

¢ST [.CTLR, .OFFSET,”D_STAT]= OFFLINE;

end;

SEO 1

‘8.(61)
DlSK‘USERZ DIETZ.RELEASE JZROABO.BL1;1
VAX=11 Bliss=16 V3-555

23
z
DALA 1)
PR PRPR DA TE TR

1=Jul=1983 15:19:

SECT

LAL

D L ATETETE

31-Jul°198

RD/RX EXERCISER
INITIALIZE

155:25'23

! START EACH UNIT AS OFFLINE

b4|

N 12

RD/RX EXERCISER
INITIALIZE SECTION

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

end;

3
:
:
3
|

5664
5665
5666
5667
5668

;

gg;;

incr CTLR from 0 to (MAX_CTLR = 1) do

gg;z

:; .CST C.CTLR, IP_ADDR] nega 0

! IF CONTROLLER IS PRESENT

gg;g

CTLR_CNT = .CTLR_CNT + 1;

! INCREMENT CONTROLLER COUNT

gg;g

MEMORY (FREE_MEM_ADDR);

;
:

gg;g
5681

end;

5685

gggg

5682

1if .ENTRY_REASON eql START
then
beEin

CTCR_CNT = 0;

! NUMBER OF CONFIGURED CONTROLLERS

! GET START OF FREE MEMORY
' END OF "‘START'* INITIALIZATION

CLEAR STATISTICS TABLES

! CLEAR CURRENT STATISTICS
incr UNITS from 0 to MAX_UNITS = 1 do
do
1
AR
TALLY_CLE
to
O
from
COUNT
incr
5686
TALLY C.UNITS + TALLY_CEN + .COUNT] = 0;
ggg;

5689

3
:

:
:

5690
5691

5695

:
3
3

5700

5701

5704

incr UNITS from 0 to MAX_UNITS = 1 do

incr CTLR from 0 to MA'_CTLR = 1 do
begin

C_ERR_TBL [.CTLR, C_ERR_HRD] = 0:

CTERRTBL C.CILR, CCERRCSFT] = 0;

end;

5702
5703

5707

incr CTLR from 0 to (MAX_CTLR = 1) do

;

g;}g CRN_LOW = CRN_HIGH = 0;

g;}% SETPRI (PRI00);

5714

3
3

g;gg

! INITIALIZE TOTALS
i

if .CLEAR_TABLES

then

5699

' IF CLEAR TABLES ON EVERY PASS

incr COUNT from TALLY CLEAR to TALLY LEN = 1 do
TALLY C.UNITS * TALLY_LEN + .COURT] = 0;

5692
2232

5696
5697
5698

if .CLEAR_TABLES

then

! INITALIZE CONTROLLER ERRORS

MISCELLANEOUS INITIALIZATON

QI0 C.CTLR] = 0;

ENDINIT;

' INITIALIZE NO. OF OUTSTANDING QI0S

' INITIALIZE COMMAND REF NUMBER
' SET PROGRAM PRIORITY TO 0

e
——
N gp—
e
—— N L Y T

ZROAM2
v01.2

SEQ 157

Pase 158
VAX=11 Bliss=16 V3=555
(41)
.BL1;10
ASEIZR0OABO
[DIETZ.RELE
DISKSUSER2:

B 13

21=Jul=19
21=Jul=19

RD/RX EXERCISER
INITIALIZE SECTION

LINIT:

.GLOBL

LSDLY

. RTYL
JS

LINIT INITIALIZE SECTION
R1,$SAVES

000005 0000006
0000006

~Now

3502253022
BN

[«

~Nowm

2923999223398
N 1S P

3s:

00000%

0000006
4$:

000003 00G000G
0000006

5%:
6$:

000075
000575

RS
23
#1,RS

: CLEAR.TABLES

0000006
000022

SWP.FLAGS
1

5468

5470
5472

#40,R0

3
: *,CLEAR.TABLES
3

#37.R0

:
[
: =, CLEAR.TABLES
3

5480
5482
5483
5486

MOVB
MOV

#1.RS
#36.R0

H
: *,CLEAR.TABLES
|

5489
5490
5493

TST8
BMI

ggP.FLAGS

3
3

5496
5498

R5
63

: CLEAR.TABLES
3

5500
5498

#1,R5

#MSG.01,-(SP)

3
: *,CLEAR.TABLES
:

5509
5510
5511

§;.Ro

: SP,x

MOV

#75.R2

MoV

R3.R1

s *,COUNT
: *,DELAY.MULT
s DELAY.MULT,$STMP2

TRAP
BHIS
TRAP
MOVB
MOVB

MOV

TRAP
BHIS
MOVB

TRAP
BHIS
Move

Move
MoV

MOV

TRAP

9%:

5470
5474
5478

MOV

8s:

5465

CLRB
BR
MOVB

MoV

7%:

5463

A
MCVB

000004 0000006
000001
0000006
000001

#35.R0
&7
2%
#5,ENTRY.REASON

CLRB

000001
000034

5451

MOV
TRAP
BHIS
MOVB
TSTB
BMI

000000G

#20,sp
#340,R0

MOV

3006
04433

SEQ 158

Paae 159
VAX=11 Bliss=16 V3=555
(41)
BL1;10
2:
JZRQABO.
SER
.RELEASE
[DIETZ
KSU
DIS

SUB
MOV

TRAP

n00035

o Co
i

c13

MOV
BEQ

MOV
BEQ
CLR

47
38
33
#1,ENTRY.REASON
#1.RS
47
4$
#2,ENTRY.REASON
47
63
#3 ,ENTRY.REASON

#1,R5
#34 ,RO
47
12%
#4 ,ENTRY .REASON

#1,=-(SP}
#515.R3
11$

LSDLY,RO
108
22(SP)

: *,CLEAR.TABLES
3

: «,$8TMP1
: $STMP

5502
5506

5513
5515
5516

D13

123727

000000G 000005

000137

003506'

005060

020027

0000006
000002
000054

013766
005066
000137
016600

000000G 000014
000010
003462°
000010

010066

000012

000137

003456'

2746
737

000006

000056

112766

2716
2746

4737
000
5
0
2 746

7
(SP)+,(SP)+

#4
LSUNIT,
13%
54
1

138:

gN;RV.REASON.#S

5513
5508
5530

5533

5543

LSUNIT,14(SP)

16%:

10(SP)
358
10(SP) ,RO
42
RO,12(SP)

17§

17%:
18$:

348
6(SP)
R4

(SP)+, (SP)+
CST(RD) ,a12(sP)
19

19%:

:s S(COUNT)
*,COUNT

5547

5550

s UNIT,»

5552

14$:

248

#1,2(SP)
#1.6(SP)
#6.R0

12(SP) RO
RO,4(SP)

177774
000005

(RO) ,~(SP)
#77774, (SP)
#5,-(SP)

000027

#27,=(SP)

0000006

s COUNT

EGS.01
EMS.01

0000006

002716°
000001 000002
000001 000006
000006
000012
000004

4
V]

118:

0000006 000012

000137

: $STMPY

: $STMP2

108:

12%:

160

DISKSUSERZ:(DIETZ.RELEASEJZROA80.8L1:18‘(61)

felel=]w]lelelelelelelelelele

-y

: SRREERS

go SR8828288
AN
— L~
g8
-n-aoo

000000G 000004

SEQ 159

Page

PC.BLSMUL
RO,R3
(SP)+
R4, (SP)

COUNT

s COUNT ,»

s UNIT

5548

5547

: * ,HWPT.REF

; FLAG
: CTLR

: CTLR,*

5555

5557

5559

: *,HWPT.REF

5582

5562

: «,FLAG

,*
: HWPT.REF

: CTLR,*

21-Jut=1o83 13:43:20
1=Jul=1983 15:25:58

RD/RX EXERCISER
INITIALIZE SECT

VAX=11 Bliss=16 V3-555

SEQ 160

Pase 161
VAX=11 Bliss=16 V3=555
(41)
.BL1;10
DISKSUSER2: [DIEIZ RELEASEJZROABO

0000006

o
WWW

283
£33s8e3

(SP)+,(SP)+

040000

050013

PC,BLSMUL
RO.R1

0000006

2§§53§5 i
S

006
3

R3,R0
RO
s‘OOOO.CSTob(RO)

0000066

RO,
@84 (SP) , (R3)

000004
000010

10(5P),RO

RO
#170377 RO

170377
007400

(R$)

0,
(R3)
016000

010000
040000

040000 (R3)
1.R0

RO
12(SP) ,=(SP)
#10, (SP)

a(SP)+,LST+2(R0O)
R1.RO
R2.RO
RO
#CST+4,(SP)

0000046
000012
000012

RO,(S )
12(SP)

000010

R1.RO

R2.R0
RO’

#CST+6,R0
(RO
010.36(SP)

000006

o
N
o

20$:

nrRONNOW

,RO

IZ(RO).OO(SP)

000000

0000066

WS =2\

5565

5566

: UNIT,«

5567

s
s
s

5568
5569
5570

: TEMP,*

000012
000010
0000026

OO=O—

; «,TEMP

;s «,TEMP

000003

az.ao

616

: TEMP,*

,*
. REFT
: HWP
,*
: *(HWPT.REF)

5571

5572

5573

5574

: TEMP,x

(SP) ,=(SP)

100000

218
0100000 (RO)
(SP)
86(SP),

010000
000020

(SP)

ggooboo (RO)
21%:

; HWPT.REF,*

208
(SP)

100000

000006

: TEMP,»

010000 (RO)
#20, (SP)+

e
———————
e
e——
Y
YT Y

perd

N
W
-~

RD/RX EXERCISER
INITIALIZE SECTION

F13
INITIALIZE SECTION

010000

22%:

0000106
000004

000000

001437

000000
23s:

000012
000006
177774
000000G
000003
000010
000010
000001

003376"
000001 000006
000012 0000006
000012

& o=292

177000
000777 0000026
0000026

000004

0000046

28%:

R1,R0
R2,R0
RO

CST+10(RO)
#4,(R3)
258
)
, #1437
a0(SP
25%
#1437,30(SP)

MOV
MOVB

312(SP) ,=(SP)
@6(SP),=(SP)

B8R

258

BIC

77774, (SP)

#3,-(SP)

B8R

BGT
JMP

TSTB
BEQ

JMP
CLR
MOV
MOV
JSR
CMP

5575

5577

5578

s
[

5580
5564

: TEMP,»

,*
: HWPT.REF

SP,RO
17
#10,5P
10{SP) ,RO
#1,DUR(RO)
51

: SP,*

: UNIT,«

5589

3
:
: CTLR

5590
5586
5557

6(SP)
268

: FLAG

5595

R4
R4, =(SP)

: CTLR

258

25$
188

348

#56,=(SP)
PC,BLSMUL
(SP)+, (SP}+

: +,«(UNIT)

: CTLR,*

28%

MOVB

#1,6(SP)

: «~,FLAG

MOV
MOV

12(SP) ,R3
2(R3) ,R1

: *(HWPT.REF),*

#777.CST+2(RO)
R1,CST+2(RO)
R3.R1
4(R1),CST+4(R0)

: *(HWPT.REF),*

MOV

BIC

BIC
BIS
MOV
MOVB
MOV
ADD
MOV

MOVB

5599

5601

cST(RO)

BEQ

JMP

5587

#CER.01,=(SP)

R&
INC
.WORD CLV!CLC

0000006

-0

26%:
27%:

000056
000000G

Ng—bddd
e ek

i
D e
D
D
e
o o

AN
LS LS LV

b e

003456"

SbNOO SRNS
NIRSTREFKERNSF
RSN

D cd e e

D o

883838888833838888888383

25$:

22%
#10000, (RO)

CLR
BITB
BNE
CMP
BLOS
MOV

MOV
TRAP
ADD
MOV
MOVB
TRAP

0000006

002230°
000006

000004
000006

MOV
ADD
ASL

MOV

248
001074
001076

BEQ
BIS

@12(SP) ,CST(RO)

#177000,R1

#6,R0
R3.R0
RO.4(SP)

(R0),=(SP)

5604

: HWPT.REF,~
: HWPT.REF
,*

5605
5606

: HWPT .REF ,*

5607

5608

,*
: HWPT.REF

o000

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

RD/RX EXERCISER

SEQ 161

Paae 162
VAX=11 Bliss=16 V3=555
(41)
1;10
QABO.BL
EASEJZR
ETZ.REL
DISKSUSER2:[DI

VAX=11 Bliss=16 V3=555
DISKSUScR2: [DIETZ.RELEASE] ZROABO.BL1;10

RD/RX EXERCISER
O O
RO
OO
SO =
WANNS

[«
Y=0

O S VWO

NDNVNE

§89§23838§32
g3222883383R%82eK2
E
S :3§§§R R = °8§~ NE SOOI

NNV

INITIALIZE SECTION

(41)

177774

000005
0000006
000003

0000006

s UNIT,»

5610

#7400, (R3)
RO, (R$)
#10000, (R3)

#4000, (R3)
R1.RO
R2.RO
RO
14(SP), (SP)
#10, (SP)

000014
000010
€000026

TEMP,
*

,*
; HWPT.REF

8(SP)+,CST+2(R0O)
R1.RO
R2 RO
RO
#CST+4,2(SP)
RO,2(SP)
12(SP) ,RO
12(R0) ,32(SP)
R1,RO
R2,°0
RO
#CST+6,R0
(RO)
=(SP)

0000046 000002
000002
000012
000012 000002

0000066

»
; TEMP,

,*
. REFT
HWP
,*
*(HWPT.REF)
TEMP .+

5614

5615

5616

#10,36(SP)

000006

29%

29%:

(SP)
(SP)
(SP) ,=(SP)

#100000, (RO)

100000

010000

»
: TEMP,

12(SP) .RO
RO
#170377,R0

010000
040000

100000

PC,BLSMUL
RO,R1
(SP)+
R2,RO
RO
#CST,R3

5609

RO,RS

170377
007400

000006

- CfLR.'

, (R3)
36(SP)

000006
000012

000010

"3,
Ré . (SP)

#27 ,=(SP)

000027
0000C0G

; «,TEMP

(SP)+
30

308:

5619

SEQ 162
Paae 163

H13

000002

001437

000002
32%:

"
002744
000006

33s:

000001
000000G
000002

000006
000010
000010

0000006

002202°*
0000006 000005

36$:

0000006

37%:
388:

000012

39%:

000027
0000006
000003

BGT
JMP

TSTB

40$:

338
27s

&(SP)

BNE
MOV
MOV

3.8
#1,-(SP)
#CER.02,=(SP)

MOV
TRAP
MGV
MOVB

SP,RO
17
16(SP) ,RO
g}.DUR(RO)

TRAP

000014

CST+10<{R0O)
#4, (R3)
33
32(SP) ,#1437
338
#1437,32(SP)
33

R&
INC
.WORD CLV!CLC

MOV

34%:
35%:

000056
0000006
0000056

CLR
BITB
BNE
CMP
BLOS
MOV
BR

R2,RO
RO

#2,-(SP)

ADD

#6.SP

B8R

398

INC
CMP
BGE
JMP
CMPB
BNE
MOV
CLR
MOV
TRAP
MOV
INC
CMP

BLT

MoV
MOV
JSR

CLRB

10(SP)
10(SP) ,14(SP)
36$
168
ENTRY.REASON,#S
42%
LSUNIT,R1
R2

I T T

5620

5622

5623
5625
: CTLR

5599

: FLAG

5630

5633
.

SP‘.

; UNIT,
+
; =, #(UNIT)
; UNIT
: UNIT,»

: UNIT
: UNIT,»

R2.R0O
42
RO,12(SP)
R2
R2,R1

; *,HWPT.REF
: UNIT

3652

: CTLR
; CTLR,*»

5655
5657

: CTLR,*

5660

; *,0FFSET

5659

38§

R4 ,=(SP)
#56,-(SP)
PC,BL SMUL

CST+5(RO)

: UNIT,»

IRIR IR TR

ASL

0000106
000004

000016
000001

ADD

: TEMP,*

IR IR

318:

gZO.(SP)o
1%
#10009, (RO)
R1,RO

DR D T

010000

BIT
BEQ
BIS
MOV

T E PR PR TRTR

000020

032726
00

164

JZROABO.8L1:189(61)

YR IR

INITIALIZE SECTION

SEQ 163

Page

RD/RX EXERCISER

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

FmENFNCNNC
YA AN OY OO OO

21=Jul=1983 1 5:25:58
21=Jul=1983 1 5:19:20

RO,R1

5660

BIC
ADD

0000006

czoooo CST(R1)
#5.R2

: *«,0FFSET

5659

CMP
BLE
ADD

:
; CTLR

5656
5655

5666

H
: CTLR

5669
5671

H
;s *,CTLR

5675
5671

5677

;s UNITS

5685

: COUNT ,»

5687

azR1

R2.#22
418
06 SP

R&
INC
.WORD CLV'CLC

0000006 000001

42%:

43%:

000056

448

BLE
408
ENTRY.REASON,#1
CMPB
458
BNE
CTLR.CNT
CLR
R
CLR
CST(RO)
TST
448
BEQ
CTLR. CNT
INC
#56,R0
ADD
.WORD CLV'CLC

BLE
000000G

45%:

478:

000006

48%:
49%:

: UNITS,»

5686

ADD
CMP
BLE

#34,R2
R2.#124
46$

: *,UNITS

5685

#1.RS

; «,CLEAR.TABLES

5689

R2
#7.R1
R1,R0

: UNITS
s «,COUNT

5691
5692

CLR
MOV
MOV
ADD
ASL

47%

50§

R2,R0
RO

TALLY(RO)

5693

5692

#34 ,R2

: *,UNITS

5691

: CLEAR.TABLES

5695

49%

BCC

s COUNT
,»

s UNITS,»

s COUNT

BLE

ROR

2 UNITS,»

s COUNT ,»

CMP
BLE

s COUNT,+

R1,.433

INC

ADD

508:

s COUNT

5673

s COUNT

CMP

000034
000124

TALLY (RO)

: «(CTLR)

R1
R1.46

CLR

000033

R2.RO

; OFFSET,*

INC
CMP

BEQ

000000G

103011

ADD

BIT

000001

006005

ASL

BLE

000034
000124

000007

CLR
CLR
MOV

CLR

000000¢

438

31
RO,FREE .MEM.ADDR
R2
R1
R1,R0

TRAP
MOV

: OFFSET,»

ASL

R2,#124
48%
52%

: UNITS,+

e lalelal e el lwlalele T

ADD

(41)

020000
000005
000022

MOV

165

DISKSUSER2:[DIETZ.RELEASEJZROABO.BLT;10

INITIALIZE SECTION
61%:

SEQ 164

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

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

113

002244

005037

000207

: Routine Size:

CLR

CLR
TRAP
ADD

000020

595 words

RTS

Routine Base:

Haxinun stack depth per fnvocation:

000000
000004
000006

004737
104411
000207

: Routine Size:

LSINIT::JSR
TRAP
RTS
Routine Base:

Haxinun stack depth per invocation:

2 words

LSINIT INITIALIZE SECTION

PC,LINIT
1
PC

S$CODES + 4074

<=~

eTL

ST TR T o

A TS TR

5710

5712
5451

$CODES + 1626

.SBTTL

001626°
& words,

20 words

53%
CRN.HIGH
CRN.LOW
RO
41
#20,SP
PC

*(CTLR)

CTLR

005000
104441
062706

002230

BLE
CLR

000000G
000000G

CTLR

5712

002234
002236
002240

000000G

51%
BLE
RO
CLR
QIO(RO)
CLRB
RO
INC
.WORD CLV!CLC

TR TR R

003773
005037

52%:
53%:

o T PRTR TR TR TRL D L L

002222
002224

#2,R0

.WORD CLV'CLC

003770
005000
105060
005200
000243

ADD

5697
5699
5700
5697

002206
002210
002212
002216
002220

CTLR
*(CTLR)
*(CTLR)
*,CTLR

00024

RO
C.ERR.TBL(RO)
C.ERR.TBL+1(RO)

166

JIROABO.lll:?B.(41)

L I I R R T

002200 oezrog

51%:

000000G
16

CLR
CLRB
CLRB

SEQ 165

005000
105060
105060

Page

IR TR

002166
002170
002174

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

RD/RX E }SRCISE
INITIAL E SECTION

ZRQAM2
v01.2

VAX=11 Bliss=16_V3-555
DISKSUSER2: [DIETZ.RELEASE

TR TR

J 13

AUTODROP SECTION

:
3
3
3

5715
5716
S717
5712

3
|
3
3
3
3
$
3
3

720
5721
5722
§723
5724
5725
5726
§727
5728

§71'

5729

15:
1=Jul=1983
12:
%%
S"JU(°19gg

RD/RX EXERCISER

IRQAM2
v01.2

VAX=11 Bliss=16_V3-555

DISKSUSER2:[DIETZ.RELEA

SEQ 1§?
1

(4
10 Y:
SEIZROABO.BL

<~
|

K13

Xsbttl 'AUTODROP SECTION®
'

i THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
i THE "'ADR"* FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO
i SEE_IF THEY WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY
i DROPPED FROM TESTING.

BGNAUTO;

'if (.SWP_FLAGS and SWF_TRC) eql SWF_TRC
‘then
PRINTF (DBM3);
ENDAUTO;

L1:5714
: INFO#219
Empty compound expression is illegal

Error occurred expanding macro ENSAUTO. called from source

000000

LAUTO:

000207

.SBTTL

RTS

LAUTO AUTODROP SECTION
PC

5714

Routine Base: $CODES + 4104
: Routine Size: 1 word,
: Maximum stack depth per invocation: 0 words

004104"

TRAP
RTS

61
PC

Routine Base: $CODES + 4106
: Routine Size: 4 words,
: Maximum stack depth per invocation: 2 words

5724

004737
104461
000207

LSAUTO SUTODROP SECTION

PC,LAUT

OOOOOOOO
OO OO OO

000000
000004
000006

.SBTTL

LSAUTO: :JSR

23
ne

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

12R0AB0.BL1-38 (4 D)

Xsbttl *CLEANUP CODING SECTION'
te

i THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED

: Artsa THE HARDWARE TESTS 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

= .CST [.CTLR, IP_ADDR]) nega 0
:f (RDRX_ADDR
Qfl

CLavec (.CSTC.CTLR, VEC_ADDR));

ua;_noax (RCIP, RC_ALL, ALL_ONES);
ena;

51-Jul°19 g :25:58
5:19:2
1=Jul=19

RD/RX EXERCISER
CLEANUP CODING SECTION

SEQ 167

ORRVRVLILLRLIIR

L13

! IF CONTROLLER EXISTS

TRAP VECTOR TO SUPERVISOR
RETURN IPCONTROLLER'S
!! WRITE
TO STOP DFVICE

.SBTTL
LCLEAN: MOV
TRAP

0000006 0000006

1$:

ggg

SgT(R1). RDRX.ADDR
CST+2(R1) ,RO

0000026

MOV

BIC

#177000, R0

177777
0000006

MOV
MOV

RO
RO SRDRX .ADDR

177000

062701
000243

CLR

LCLEAN CLEANUP CODING SECTION
R1,-(SP)
24
R1

000056

TRAP

2%:

003757
012601
000207

ADD

056R1

BLE
MOV

1$
(SP)+,R1

.WORD CLV'CLC

RTS

:
:
: CTLR

: *(CTLR)
,*
: #(CTLR),*

5743
5745
5748

: *,RC.REG
: RC.REG,*

5749

;s *,CTLR

5743

5729

Routine Base: $CODES + 4116
; Routire Size: 22 words,
3 words
Hax1mun stack depth per invocation:

000000
000004

004737
104412

004116

LSCLEAN

.SBTTL

LSCLEAN CLEANUP CODING SECTION

"JSR

PC,LCLEAN

TRAP

5750

OO0

ENDCLN;

RTS

Routine Base: $CODES + 4172
; Routine Size: & words,
; Maximum stack depth per invocation: 2 words

wviwn

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

SEQ 168

Page

169

1:
10 (43)
SE12R0AB0.BL

ccooe =~
|

000207

b =

CLEANUP CODING SECTION

v01.2

000006

RD/RX EXERCISER

ZRQAM2

=Jul=1
=Jul=1

OO
©0 Co
W

21=Jul=1983 15:25:58

RD/RX EXERCISER

21=Jul=198315:19:20

DROP UNIT SECTION

170
(66)
DlSKtUSERZ:[DIEIZ.RELEASEJZROABO.BL!:?8.
VAX=11 Bliss=16 V3=555

%sbttl "DROP UNIT SECTION'
iy

i THE DROP=UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE

i ro NO LONGER BE TESTED.
BGNDU;
local

UNIT : word,
PRINT: byte initial (byte (FALSE));

' NUMBER OF UNIT BEING DROPPED
' NO PRINTING OF DROP UNIT MESSAGE

bel
SEARCH;

begin
register

' UNIT NUMBER APPEARS IN RO UPON ENTRY

UNIT = _INPUT;
end;

! GET UNIT NUMBER
! UNDECLARE REGISTER

INPUT= 0;

if (.SWP_FLAGS and SWF_TRC) eql SWF_TRC
PRINTF (DBMS, .UN'T);

incr CTLR from 0 to (MAX_CTLR = 1) do

! FOR EACH CONTROLLER

T
TR
R TR
R
TR

if (.CST C.CTLR, .OFFSET, D_UNIT] eql .UNIT) and

(.CST [.CTLR, .OFFSET, D_PRES] eql PRESENT)
if (.CST [.CTLR

OFFSET D_STAT] eql ONLINE) or

(.DURC.UNIT]eql DU_ONLINE) or

(.DUR [.UNIT] eql bU_“PROTECT)

then

tegin

X LART K. CTLR. .DFFSET D_ STAYJ eql ONL INE)

A A

PRINT = TRUE;

' FOR EACH UNIT ENTRY IN CST

' IF UNIT MATCHES CST ENTRY

begin

AT A

then

R E

R R

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do

! BEGIN SEARCH BLOCK

OCOOOOOOOOCOOOOOOOOOODD

begin

SEARCH :

PR TR PRTR TR L L L I A TEATETIETR

A TR TR D P

POLA

D L 1

ZRQAM2
v01.2

SEQ 169

[

b 4=

N 13

' IF UNIT IS STILL ALIVE

' 0.K. TO PRINT MESSAGE

a
if (.CST [.CTLR, U_CNT] gtru 0)
en

CST [.CTLR, U_CNT] = .CST [.CTLR, U_CNT] = 1;! DECREMENT UNIT COUNT

if (.CST [.CTLR, U_CNT] eql 0) and

nE
DD

D e b

-0V~ CNE WSO

T TV

b e
—

VIV

SEQ 170

Page

171

DlSKtUSERZ:[DIETZ.RELEASEJZROABO.BL1:189(44)
VAX-11 Bliss=16 V3-555

o (.CST C.CTLR, .OFFSET, D_STAT] eql ONLINE)

2833§SS§

T L L 1)
PR LR PR TRLA
TRPR
A
T
s
TR TR
R
T R
R
R TR A
IR
TR

21=Jul=1983 15:25: S8
21=Jul=1983 15:19:

RD/RX EXERCISER
DROP UNIT SECTION

-0

B 14

! DECLARE END OF PASS IF ALL UNITS OFFLINE

EOP_FLAG = TRUE;

CST C.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 OK TO PRINT MESSAGE

if .PRINT or

(.DUR C.UNIT] eql DU_CONF) or
)
(.DUR C.UNIT] eql DU_INITor
(.DUR C.UNIT] eql DU_ONLINE) or
(.DUR C.UNIT] eql DU_AV) or
(.DUR [.UNIT] eql DU_PROTECT)

then

be?in

! “UNIT XX DROPPED = **

PRINTF (DU_MSG, .UNIT):

PRINTF (.DU_RSN C.DUR E.UNITID);

i REASON

end;

ENDDU;

LDU:

0000006
000001

BEQ
MOV

MOV
MOV

0000006
000002

000027

0000006
000006
000003

000006

CMP
CLRB
MOV

BIT

000000G

000006

.SBTTL

JSR

MOV
TRAP

1$:

2$:

3%:

ADD
CLR

MOV

LDU DROP UNIT SECTION
=(SP) ,=(SP)
R4
RO,.R3

: PRINT
s INPUT,UNIT

1%
R3,-(SP)

; UNIT,»

#1,SWP.FLAGS

#DBMS ,-(SP)
#2,-(SP)

RS,=(SP)

#27,=(SP)

ADD

6(SP) ,RO

5786
5788

R1.R0
RO

0000006 000004
000004

MOV
ADD

#CST,4(SP)
RO,4(SP)

000004

MoV

@4(SP) ,RO

MOV

5779

#6,SP

PC,BLSMUL
RO,6(SP)
#3.R1

ASL

5774
5777

SP,.RO
17

JSR
MOV
MOV
MOV

5752

R1,$SAVES

R3.R2

; UNIT,»

C 1%

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

RD/RX EX%R Cl SER
crl
DROP UNI SECTION

020000

000004
000004

000000G 000007

¥
A

000000G 000011
5%:

000001

000056
000000G

000001

020000

000004

000001
020000

0000006
000004

000005
000022

6$:
7%:
8s:
9%:

10%:

000000G 000001

ADD
1ST8
BEQ
ROR
SEZ8
BNE
BIT
BEQ
MOVB

BIC

0000006 000007
0000006 000013

0000006 000011
11%:

5793

48
R2

DUR(R3) ,#7
58
DUR(R3) ,#11
8%
#1.R4
RS, (SP)
#56,=(SP)
PC,BLSMUL

,»
*(UNIT)

5794

,»
*(UNIT)

5795

: *,PRINT
s CTLR,*

BLE
ROR
BLO
CMPB
BEQ

BNE
MOV

5795
5800

(SP)+

#CST+4,RO
1(RO)
6%
R2
1(RO)
7
#20000,34 (SP)
78
#1,EOP.FLAG

#20000,34 (SP)

(SP)+,(SP)+
CMP
108
BR
#5.R1
ADD
CMP
R1,#22
3s
BLE
(SP)+, (SP)+
CMP
RS
INC
.WORD CLV'CLC

CMPB
BEQ
CMPB
BEQ
CMPB
BEQ
CMPB

0000006 000002

—

CMPB
BEQ
CMPB
BNE
MOVB
MOV
MOV
JSR
TST

000004G
000001

B8R

5789

040000

177760

RO
#177760,R0
RO,R2
98
#40000,34 (SP)
98
R2
#20000,34 (SP)

;
(44)
BL1
EIZROABO.10

SWAB
BIC
CMP
BNE
BIT
BEQ
CLR
BIT
BEQ
INC

VAX=11 Bliss=16 V3-555

DISKSUSER2:[DIETZ.RELEAS

SEQ 171
Page
172

2
R4
118

DUR(R3) ,#1
118
DUR(R3) ,#2
118
DUR(R3),#7
1%
DUR(R3),#13
118
DUR(R3),#11
128
R3,=(SP)

5786

5784

5818

«(UNIT)

5819

,»
*(UNIT)

5820

,»
*(UNIT)

5821

,«
*(UNIT)

5822

*(UNIT)

58<3

UNIT,*

5826

000010

; SP,*

+ «(UNIT),*

5827

O)
, (SP)
DU.RSN(R

#1,-(SP)

SP,RO
17

128:

#10,SP
RTS

(SP)+,(SP)+

: SP,»
5825
5752

Routine Base: $CODES + 4202
: Routine Size: 145 words,
: Maximum stack depth per invocation: 14 words

000000
000004
000006

004737
104453
000207

004202°

:
L$DU:

.SBTTL
JSR
TRAP
RTS

LSDU DROP UNIT SECTION
PC,1.DU

Rout1ne Base: SCODES + 4644
: Routine Size: & words,
: Maximum stack depth per invocation: 2 words

5828

e Be 9o BaBe e 8e90908:% 9000090009 000%0 %0900 0000%0%0008%:%4080% %800,

04417
062706

SP.RO
17
RG
DI%t(R3) ,RO

0000006
0000006
000001

=(SP)

000002

16
46

=000

8RN
0004

#2.~(SP)

173

————

0000006

SEO 172

DISKSUSER2: [DIETZ .RELEASEJZRQABO.BL1;18e(46)
VAX-11 Bliss=16_V3=555

2383222
83558

746

oW
o

RD/RX EXERCISER
DROP UNIT SECTION

ZRQAM2
v01.2

000432

51-Jul-19
1=Jul=1983

-nu

D 14

Bl
E 14

%sbttl *ADD UNIT SECTION'
'+

i THE ADD=UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
i TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
;

TO THE TEST CYCLE.

BGNAU;

local
STINDX : word,
ENDIDX : word;
register

! UNIT NUMBER APPEARS IN RO UPON ENTRY

UNIT = 0;

:z (.SWP_FLAGS and SWF_CST) eql SWF_CST
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 C.COUNT] = 0;

!
!

UNIT'S
STATISTICS

end;

ENDAU;

0000006G
0000006

LAU:

: Routine Size:

25 words,

MOV
DEC

RO,R1
R1

1$:

BR
MOV

28:

CLR
INC
CMP

3$:

000207

MOV
JSR
MOV

ADD

000033

Routine Base:

LAU ADD UNIT SECTION

R1,$SAVE2
SWP.FLAGS

3s
RO,=(SP)
#34,-(SP)
PC,BLSMUL
RO,R2

BPL
MOV

000034
C000006G

0000006

.SBTTL

JSR
TSTB

ASL

BLF
cMP
RTS

#35,R2
2%
R1,R0
R

TALLY(RO)
R1
R1,R?

1$
(SP)+,(SP)+
PC

$CODI$S + 465¢&

s
3

5830
5848

: UNIT,®

5851

: STINDX,ENDIDX

5852

: STINDX,COUNT
: COUNT

5854

; COUNT,*

5855

: COUNT
; COUNT,ENDIDX

5854

:
s

5850

+ * ENDIDX

[elelelelelelelele B

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

RD/RX EXERCISER
ADD UNIT SECTION

ZRQAM2
v01.2

SEa 173

174
Page
VAX=11 Bliss=16 V3=555
(45)
BL1;
10
ABO.
JZRO
LEASE
:[DIETZ.RE
DISKSUSER2

F 14

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

RD/RX EXERC!SER
ADD UNIT SECTION

ZRQAM2
v01.2

: Maximum stack depth per invocation:

6 words

004654'

LSAU::

000000
000004
000006

004737
104452
000207

.SBTTL

LSAU ADD UNIT SECTION

JSR

PC.LAU

RTS

TRAP

Routine Base: $CODES + 4736
: Routine Size: & words,
: 2 words
invocation
per
: Maximum stack depth

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

SEQ 174
175
Page

JIROABO.BL1:18e(45>

5857

RD/RX EXERCISER
NON-EXISTENT MEMORY TRAP HANDLER

LA TR T T

E TR TR

MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET A FLAG FOR_THE RDRX
REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER.

[ TETR

BGNSRV (NEX_TRAP);

! NEX TRAP OCCURRED

NEX = TRUE;

R T T

5871
5869

#1 ,NEX

RTI

NEX.TRAP NON=-EXISTENT MEMORY TRAP HANDLER

(0OC000G

.SBTTL

NEX.TRAP::
MOV

0000V1

T T

ENDSRV;

4 words,
Routine Base: $CODES + 4746
Haulmun stack depth per invocation: 0 words
: Routine Size:

AT ETR

THIS TRAP HANDLER IS VECTORED FRCH LOCATION 4 FOR ALL UNIBUS TIMEOUT
ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON'EXISTENI

000002

:
:
:
:

012737

000006

5872
5873

Xsbttl 'NON-EXISTENT MEMORY TRAP HANDLER'

N ANCYNNNY

000000

5871

J2R0AB0.8L1 15" (46)

ANY

:
:

5867
5868
5869
5870

sea 178

:
:
:
:
:

5860
5861
5862
5863
5864
5865
5866

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

ZRQAM2
v01.2

:
:
:
:
:
:
:

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

G 14

H 16

GLOBAL ROUTINES

1:
10 (47)
ZROABO.BL

5874 Xsbttl 'GLOBAL ROUTINES'
5875
587
global routine SET_CPAR (CTLR) : novalue =
587
5878 '+
THIS ROUTINE SETS UP THE COMMONLY-USED CONTROLLER-RELATED DATA ITEMS
5879
FOR THE GIVEN CONTROLLER NUMBER.
5880
5881
INPUTS:
5882
CTLR = CONTROLLER NUMBER
5883
5884
IMPLICIT OUTPUTS:
5885
CCTLR = CURRENT CONTROLLER NUMBER
5886
CST_ADDR = ADDRESS OF CONTROLLER'S STATUS TABLE
S&87
DCTTADDR = ADDRESS OF CONTROLLER'S DRIVER TABLE
5888
RDRX_ADDR - ADDRESS OF CONTROLLER'S IP REGISTER
5889
5890
5891
5892
]
5893
i CALCULATE ADDRESS OF CONTROLLER'S CST
* 2);
CST_ADDR = (ST + (.CTLR * CST_LEN
5894
i CALCULATE ADDRESS OF CONTROLLER'S DCT
2);
+
DCT"ADDR= DCT + (.CTLR « DCTLEN
5895
RoziADDR
= .CST_ADDR [IP_ADDR];
i GET CONROLLER'S DEVICE ADDRESS
5896
end,
5897

! SET CURRENT CONTROLLER NUMBER

CC?LR= .CTLR;

000000

010146

000002
000006
000012
000014
000020
000024
000030
000034
000036
000042
uv046
000052
000056

016601
010137
010146
012746
004737
062700
010037
010116
01274§
QU4737
2700
010037
017737
062706
012601

000070
000072

SEQ 176
177
Page

CmimiGImimimimimemomonms

3
3
3
3
3
:
:
:
:
5
3
:
:
3
H
3
3
:
3
:
3
3
:
3

21=Jul=198 3 15:25 :58
21=Jul=198 3 15:19:20

RD/RX EXERCISER

IRQAM?2
v01.2

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

000207

.SBTTL

000004
000056
0000006
0000006G
0000006

000022

0000006
0000006
0000006
0000006 0000006
000006

SET.CPAR GLOBAL ROUTINES

SET.CPAR::
MOV

R1,=(SP)

MOy
MOV

R1,CCTLR
R1,=(SP)

: CTLR,*

5876
5893

5894

5895

5896
5892
5876

MOV

4(SP) ,R1

MOV
JSR
ADD
MOV

#56,-(5P)
PC,BLSMUL
#CST.RO
RO,CST.ADDR

MOV

#22,=(SP)

MOV

JSR
ADD
MOV
MOV
ADD

MOV
RTS

1,(SP)

PC,BLSMUL
#DCT.RO
RO,DCT.ADDR
aCST.ADDR,RDRX.ADDR
#6,SP
(SP)+,R1

Routine Base: $CODE$S + 4756
30 wo'ds,
: 5 words
invocation
Haxtmun stack depth per

; Routine Size:

31-Jul-1 2 :58
1=Jul=1983 15:19:20

RD/RX EXERCISER
GLOBAL ROUTINES

gggg global routine SET_U'AR (OFFSET) : novalue =

5900

ggg%

THE CURRENT CONTROLLER AND GIVEN CST OFFSET.
INPUTS:

5901

5904

gggg

5905

THIS ROUTINE SETS UP THE COMMONLY=-USED UNIT-RELATED DATA ITEMS FOR

OFFSET = WORD OFFSET INTO CURRENT CONTROLLER'S CST WHICH
DESCRIBES A UNIT

5908

gggg

IMPLICIT INPUTS:

5911

IMPLICIT OUTPUTS:

gg}z

:
:
:

§912
5913
5914

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST
CUOFF = CURRENT UNIT'S CST OFFSET
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)

H
3

5917
5918

bfigin

5920

CDISK = .CST_ADDR [.OFFSET, D_DISK_NUM];

:
:

000000

5919

CUOFF = .OFFSET;

5921

LSLUN = .CSTADDR [.OFFSET, D UNIT];

5923

end;

5922

T_ADDR= TALLY + (.LSLUN * TALLY_LEN * 2);
.SBTTL
SET.UPAR::

010146

MOV

000002 016637 000004 0000006G

MOV

000010 016600 000004

000014
000016
000022

006300
063700
111037

ASL
ADD
MOvB

0000006
0000006

042737 177774 0000006
000026
000034 011001
000036

000040
000044

000301

042701

010137

000050 010146
000062
000066

062700
010037

000072 022626
000076

: Routine Size:

32 words,

Routine Base:

Haxinun stack depth per invocation:
5924

& words

5920

5921

: LSLUN,*

5922

5918

RO
CST.ADDR,RO
(RO),CDISKk
R1

R1,LSLUN

R1,=(SP)

#70,-(SP)
PC,BLSMUL

CMP

(SP)+,(SP)+

RTS

000207

,*
: CUOFF

MOV
JSR
MOV

000074 012601

4(SP) ,RO

0177760.R1

ADD
MOV

0000006
0000006

5898

MOV

000052 012746 000070
000056 004737 0000006

4(SP), CUOFF

CDISK
c177$74
(RO) ,R1

MOV

0000006

R1,=(SP)

BIC
MoV

SWAB

177760

SET.UPAR GLOBAL ROUTINES

#TALLY,RO
RO, T.ADDR

(SP)+,R1

$CODE$S + 5052

s OFFSET,*

5919

5898

felelelelelel>]=l=leleleRN-]

ZRQAM2
v01.2

szo 177

380
VAX=11 Bliss=16 V3=-555
DISKSUSER2:[DIETZ.RELEASEJIZROABO.BL1;10 (48)

114

THIS ROUTINE SEARCHES THE MSCP PACKET POOL ALLOCATION TABLE (PKT_USE)

FOR A FREE MSCP PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ORE 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:

CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION

begin

local

index : signed word initial (=1),

RING_ADDR : word,

PACKET_OWNED : byte,
NEXT_PACKET : byte;

! NEXT PACKET TO TRY

incrbcoqur from 0 to (PKT_CNT = 1) do

PA?KET_OUNED = FALSE;

! FOR EACH ENTRY IN ALLOCATION TABLE

egin

if .PKT_USE [.NEXT_PACKET] Lss 0

then

begin

RIaG_ADDR = .DCT_ADDR [RR_BEG];

! IF ENTRY INDICATES FREE PACKET

! FIRST RESPONSE PACKET'S ADDRESS

incrbl gron 1 to (RRING_LEN + CRING_LEN) do ! FOR EACH PACKET ADDRESS
egin

179

global routine GET_PKT (CTLR) =

NEXT_PACKET = .NEXT_PKT_USE;

if (..RING_ADDR eqla .MSCP_PKT [.NEXT_PACKET,

. (C(C.RING_ADDR + 2) and ED_OWN) eql ED_OWNS
en

begin
PACKET_OWNED = TRUE;
exitloop;

SEQ 178

PKT_LO]) and

' CHECK ADDRESS AND OWNERSHIP
! PACKET OWNED BY CONTROLLER

lseend

RING_ADDR = .RING_ADDR + 4; ' ADDRESS OF NEXT PACKET IN RING

end;

:; not .PACKET_OWNED
en

begin

' IF NOT ALREADY USED

PK?_USE C.NEXT_PACKET] = .CTLR; ! ALLOCATE PACKET TO CONTROLLER
index = NEXT_PACKET;

[elelolelelelelelwlw

-t

LR L

1-J3l-1983 15:19:20

GLOBAL ROUTINES

DlSK’USERZ:[DIEYZ.RELEASEJZROABO.8L1:?8.(69)

TTT

T TRT LR T L LRTR LR L TRTR TR LA

1=Jul=1983 15:25:58

RD/RX EXERCISER

VAX=11 Bliss=16 _V3-555

§~
g

J 14

S1=Jul=1983 15:19:

180
s'uo)
nowo.m:?
DISKSUSER2: tomz asn.useu
VAX=11 Bliss=16 V3=555

! ZERO OUT PACKET
incr J from 2 to (PKT_LEN = 1) do
nscpPKT [.NEXT_PACKET, .J, 0, 16, 0] = 0;

TRPR TR LA D T T

GLOBAL ROUTINES

SEQ 179

! DONE

exitloop;
end;

T L (A TETEATE

end;

! TRY NEXT PACKET IN RING

NEXT_PACKET = .NEXT_PACKET + 1;
if .NEXT_PACKET gequ PKT_CNT

! IF BEYOND ALL PACKETS, START AT THE TOP

NEXT_PACKET = 0;

TRT T L L

end;

! IF PACKET FOUND

R TR

(.index ge?
( PKT_US
indexJ geq 0)

1=Jut=1983 15:25:5

RD/RX EXERCISER

Page

thenb

R TR

| NEXT PACKET TO ALLOCATE

NEXTPKT_USE = .NEXT_PACKET + i

! PACKET SIZE = ONLY ONLINE AND SCC CHANGE IT
i CREDIT SIZE

= sz GEN;
MS P PKT [.index, MSGLEN]
MSCP_PKT [.index, CREDITS]
=

IR TR R

if next _PKT_USE gequ PKT_CNT

! CYCLE BACK TO BEGINNING IF AT END

nsxrPKT_USE = 0;
end;

0000006

return .index;
end;

000006
177777

0000006

000014 900004
000002

18:

JSR

R1,$SAVES

SUB
MOV
MOVB
MOV
CLRB

2%:

5926

: *,INDEX
: «,NEXT.PACKET
: *,COUNT
: PACKET.OWNED

5938
5946
5948
5950

(174

;ggs

%r.USE (R2)

MOV

DCT.ADDR,RO

5955

MOV

-(spx
0164 SP)

5960

CMP

ausm.nscp.pmnm

:ow,]

: RING.ADDR,*

5957

MOV

000104
0000006

#6,SP
#-1.Ré
NEXT.PKT.USE,RS
#14,4(SP)
2(SP)

CLR

MOV

000004

000004 0000006

GET.PKT GLOBAL ROUTINES

BISB

0000006
0000006

000010

.SBTTL

GET.PKT::

JSR
MOV

RS.R2

4(no> (sfi)
PC ,BLSMUL
#10.R3

: NEXT.PACKET,*

: *«,RING.ADDR

5952

5960

[elelelel=]=e

K 14

g;.o-tboooo

o}.btsr)

000004

3s:

000001

000006

4$:

000030

0000006

5968

z;.b(SP)

; *,PACKET.OWNED

5972

30(SP) ,PKT.USE(R2)
2.R4
R2,
R2.(SP)

2 CTLR,*

5975

HE
|

5978
5979

s J

5978

5974

5954

: NEXT.PACKET,»

5988

0000006

:?CP.PKY(RS)

000041

R1,441
5%
(SP)+,(SP)+
9s
(SP)+,(SP)+
RS
R5.#14
8s
RS
4(SP)

000014
000004

8s:
9%:

0000006

000104
0000006
000040 0000066
000017 0000106
000001 0000106

0000006
000014

5964
5963

: *,RING.ADDR

R3
2$

5%:

6$:
7$:

; *,PACKET.OWNED
:

#4,4(SP)

#62,-(SP)

000042
0000006
000002

s 1

s «,INDEX
:

5957

5976
5979

s Jo*

s J.*

;s NEXT.PACKET

: NEXT.PACKET

5986

5990

s COUNT

5948

s INDEX

5994

: *(INDEX)

5995

s INDEX,*

5998

#17.MSCP.PKT+10(R0)

5999

RS,RO

s NEXT.PACKET,*

6000

RO,NEXT.PKT.USE
RO 414

: NEXT.PKT.USE,*

6002

Ré4
11$
qfiT.USE(Ré)
$
R4 ,=(SP)

#104,=(SP)
PC ,BLSMUL

#40,MSCP.PKT+6(RO0)

ga.nscp.9x1+10(a0)
R

108

b 1=
T

000006

TR R

000001

5961

077777
100000

2 RING.ADDR,*

6(SP), (SP)

000002
000006

[lelelelelelelelelelolelelelelw

SISNISI
N2

2R8NSSuAgNS

=gogegeg

RD/RX EXERCISER
GLOBAL ROUTINES

TR PRTR TR DR D PR LA L L

SEQ 180

PaBo 181
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL1;10 (49)

: Routine Size:

122 words,

NEXT.PKT
. USE
(SP)+,(SP)+
R4 .RO
#6,SP

182

oxsxsussnz:[olsrz.RELsASEJznoAao.aL1:18'(49»
3

6004

:: INDEX, #

Routine Base:

: Maximum stack depth per invocation:

13 words

$CODES + 5152

6010

000006

706

000207

[
2

0000006

VAX=11 Bliss=16 V3=555

[el=lelel=lelelelelelelelelelelelelelelele

000362

105037
022626

21=Jul=1983 15:19:20
—t

000342

21=Jul=1983 15:25:58

RD/RX EXERCISER
GLOBAL ROUTINES

ZRQAM2
v01.2

SEQ 181

Page

LI L)

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

RD/RX EXERCISER
GLOBAL ROUTINES

o
—_0

N 16

SEQ 182

Pase 183
VAX=11 Bliss=16 V3=555
(50)
;10
RQABO.BL1
DISKSUSER2:[DIETZ.RELEASEIZ

global routine PUT_PKT (index) : novalue =
e

THE MSCP PACKET DESIGNATED BY ''INDEX'' IS RETURNED TO THE POOL BY THIS

ROUTINE.

begin
local
RING_ADDR : word,

OWNER : word;

RING_ADDR = .DCT_ADDR CRR_BEG];

! ADDRESS IN FIRST RESPONSE RING

incrbCOUNT from 1 to (RRING_LEN + CRING_LEN) do

' FOR EACH ADDRESS IN THE RINGS

egin

:; .MSCP_PKT [.index, PKT_LO] eqla ..RING_ADDR
en

! IF ADDRESS MATCHES

befiin

! ADDRESS OF OWNERSHIP WORD
:
OWNER = .RING_ADDR + 2;
.0=NER = ,.0WNER and (not (ED_OWN)) and (not (ED_FLAG)) ; ! GIVE OWNERSHIP TO HOST
end;

! LOOK AT NEXT PACKET ADDRESS IN RING

RISG_ADDR = .RING_ADDR + &;
end;

PKT_USE [.index] = =1;
end;

0000006G

.SBTTL
PUT.PKT::

JSR
MOV

R1,$SAVESL
DCT.ADDR,RO

3
3

6011
6024

000014
000104

MOV
MOV
MOV

14(SP) ,R1
R1,=-(SP)
#104,=(SP)

: INDEX,*

6029

000010
000000G

MOV
gng

#10,R2
ggCP.PKI(RO),(RS)

s *,COUNT
: *,RING.ADDR

6026
6029

000002

MOV

#2.R4

: *,0WNER

6032

140000
000004

BIC
ADD

#140000, (R4)
#4 ,R2

; «,0UNER
: *,RING.ADDR

6033
6036

000000G

MOV

000004

0000006

000377 0000006
000207

PUT.PKT GLOBAL ROUTINES

JSR

1%:

ADD

2%:

gfig

MOVB
CMP
RTS

4(RO) ,R3

PC,BLSMUL

: *,RING.ADDR

R3.R4

: RING.ADDR,OWNER

s COUNT

#377 ,PKT . USE(P1)
(SP)+,(SP)+
PC

3
3
:

6026

6039
6018
6011

815

ZRQAM2
v01.2

RD/RX EXERCISER
GLOBAL ROUTINES

: Routine Size:

32 words,

21=Jul=198315:25:58
21=Jul=198315:19:20
Routine Base:

Hax1mun stack depth per invocation:

8 words

$CODES + 5536

SEQ 183

Pase 184
VAX=17 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL1;10 (50)

3
3
3
3

3
S
3
S
3
3
3
3
3
3

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

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM2
v01.2

6041

6042
6043
6044
6045

6040
6047
6048
6049
6050
6051
6052
6053
6054
6055

000000

010146

000002
000004
000010
000014
000016
000024
000026
000032
000034
000036

005000
116001
020166
001003
112760
005200
020027
003764
012601
000207

routine PUTA_PKT (CTLR) : novalue =
+

THIS ROUTINE DEALLOCATES ALL MSCP PACKETS WHICH HAVE BEEN ALLOCATED
TO A PARTICULAR CONTROLLER.
INPUTS:

CTLR = CONTROLLER NUMBER

incr COUNT from 0 to (PKT_CNT = 1) do
en

.SBTTL

PUTA.PKT GLOBAL ROUTINES

MOV

R1,-(SP)

MOVB
gfi:

PKT.USE (RO) ,R1
g;.&(SP)

,+
: *(COUNT)
: *,CTLR

MovBe

#377 ,PKT .USE(RO)

: «,«(COUNT)

BLE
MOV

1
(SP)+,R1

PUTA.PKT:

000377
000013

! DEALLOCATE IT

PKT_USE [.COUNT] = =1;

1$:

0000006
000004

000000G

2%:

! FOR EACH ENTRY IN ALLOCATION TABLE

! IF PACKET IS ALLOCATED TO GIVEN CONTROLLER

:; PKT_USE [.COUNT] eql .CTLR

CLR

INC
CMP

RTS

R
RO, #13
PC

16 words,
Routine Base: $CODE$S + 5636
Hax1mun stack depth per invocation: 2 words

: Routine Size:

SEQ 184

185
Pa
VAX-11 Bliss=16 _V3-555
1)
:18e(5
80.8L1
EJZROA
DISKSUSER2: [DIETZ.RELEAS

s COUNT

; COUNT
: COUNT,»

c15

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

RD/RX EXERCISER
GLOBAL ROUTINES

SEQ 185
Paae 186

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEAS EJZROABO.BL1;10

(52)

global routine GET_RETPKT (CTLR) =
‘e

THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION TABLE (RP_USE)

'
;

FOUND, THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED TO
THE CALLER. OTHERWISE, A =1 IS RETURNED INDICATING NONE AVAILABLE.

FOR A FREE RETURN PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS

INPUTS:

CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION

begin

local

index : signed word initial (=1);

incr COUNT from O to (RP_CNT = 1) do

! FOR EACH ENTRY IN TABLE

! IF FREE RETPKT IS FOUND

:; «RP_USE [.COUNT] Lss 0
en

! ASSUME NONE AVAILABLE

begin

! ALLOCATE RETURN PACKET TO CONTROLLER

RPgUSE [.COUNT] = ,.CTLR;
index = .COUNT;

! ZERO OUT RETPKT
incr J from 0 to (RP_LEN - 1) do
RETPKT [.COUNT, .J, 0, 16, 0] = 0;
! DONE

exitloop;

end;

! RETURN PACKET INDEX (OR =1) TO CALLER

resurn .index;
end;

.SBTTL
GET.RETPKT::
JSR

0000006

177777

1$:

0000006
000014

000000G

000030

#-1,R4
R3

s *(COUNT)

6056
6068
6073
6075

MOVB

14(SP) ,RP.USE (R3)

: CTLR,*(COUNT)

6078

ggga

R1,$SAVE4

g:.USE(RS)
R3.R4
R3,-(SP)

MOV

#30,-(SP)

CMP
CLR
MOV
ADD

(SP)+,(SP)+
R2
RO,R1
R2.R1

JSR

2%:

0000006

MOV
CLR

s *,INDEX
s COUNT

MOV
MOV

0000006

GET.RETPKT GLOBAL ROUTINES

ASL

CLR

s COUNT,INDEX
s COUNT,»

6082

PC,BLSMUL

RETPKT(R1)

;3 d
3
s J.®

6081
6082

Routine Base: $CODES + 5676
: Routine Size:
35 words,
8 words
; Maximum stac k depth per invocation:

F o

6068

6056

N S

INDEX,*

SN S

,»
s COUNT

1%
R4.RO

R3,#3

6077
6073

s
s COUNT

43
R3

. #27
R2
2%

a— S

6081

— A

RTS

s d

—— A

A H

—

000003

3s:

187

DISKSUSERZ:[DIETZ.RELEASEJIROABO.BLl:18‘(52)

—

000027

INC
CMP
BLE
BR
INC

SEQ 186

Page

o o

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

RD/RX EXERCISER
GLOBAL ROUTINES

VAX=11 Bliss=16 V3=555

E 15

5
3
:
:
3
:
3

6089
6090
6091
6092
6093
6094
6095
6096

global routine PUT_RETPKT (index) : novalue =
'+

ESST?SEURN PACKET DESIGNATED BY ''INDEX' IS RETURNED TO THE POOL BY THIS

RP_USE [.index] =

000000

016600

000002

000004
000012

112760
000207

000377

.SBTTL
PUT.RETPKT::

0000006

MOV

MOVB

RTS

PUT.RETKT CLJUBAL ROUTINES

2(SP),

: INDEX,*

6096

6089

#377, RP USE (RO)

Routine Base: $CODES + 6004
6 words,
Hax1mum stack depth per invocation: 0 words
: Routine Size:

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

RD/RX EXERCISER
GLOBAL ROUTINES

IRQAM?2
v01.2

SEO 187

188
VAX=11 Bliss=16 V3=555
(53)
1
.BL1;
EIZRQABO
Z.RELEAS
R2:[DIET
DISKSUSE

e
———_ae—
Y
T T
T )

F15

global routine GET_IO_BUFF (ADDR) : novalue =

LA T

'+
ctmimmimtmoess
miImimimi

dOOQNOVGbWN-‘OgQ

CCTLR = CURRENT CONTROLLER NUMBER

OUTPUTS:

begin

! ASSUME FAILURE

.ADDR = 0;

incr COUNT from 0 to (QIO_PER_CTLR * MA'_CTLR - 1) do

—

be?in

! ALLOCATE BUFFER TO CONTROLLER
! RETURN BUFFER DESCRIPTOR

BUFF OWN [.COUNT] = ,CCTLR;
.ADDR = .BUFF_ADDR [.COUNTI];

IR IR TRIR

! DONE

exitloop;
end;

! ROUTINE GET_I10_BUFF

end;
.SBTTL

GET.IO.BUFF GLOBAL ROUTINES

MOV
CLR
CLR

R1,=-(SP)
84 (SP)
R1

:
: ADDR
s COUNT

GET.JO0.BUFF::

000004

000000G

1$:

;ggfl

ggFF.OUN(R1)

: =(COUNT)

000000G 000000G

MOvVB
:gz

26.R0

CCTLR,BUFF .OWN(R1)

: «,+«(COUNT)

000000G 000004

ggv

ggFF.ADDR(RO).ak(SP)

: *,ADDR

INC

: COUNT

BLE
MOV

19
(SP)+,R1

000007

28:
3%:

: Routine Size:

' FOR EACH ENTRY IN BUFFER TABLE

! IF BUFFER IS FREE

:; .BUFF_OWN [.COUNT] Lss 0

ST A

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 AVAILABLE.

6122

ADDR = ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR

iMPLICIT INPUTS:

)

D e

b b e o

d = oD

b e d e ek = O O

oooooororOr
O MOMONONONONMONON

INPUTS:

IET
A
TEIRIAIETRE IR
[
P T
T
IRTR D
A TR
T

6107

EJZROABO.BL1:18e(56)

;gsf ROUTINE HANDLES THE ALLOCATION OF AN 1/0 BUFFER FROM THE BUFFER

22 words,

Routine Base:

CMP

RTS

R1,.47
PC

$CODES + 6020

; COUNT,=

s COUNT,»

SEQ 188
189
Page

RD/RX EXERCISER
GLOBAL ROUTINES

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

CoCo
1V

ZRQAM2
v01.2
N T

21=Jul=19
21=Jul=19

G 15

H15

ZRQAM2
v01.2

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

RD/RX EXERCISER
GLOBAL ROUTINES

: Maximum stack depth per invocation:

2 words

SEO 189

8e
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (54)

global routine PUT_IO_BUFF (ADDR) : novalue =

’

THIS ROUTINE HANDLES THE DEALLOCATION OF AN 1/0 BUFFER, RETURNING IT

INPUTS

TO THE BUFFER POOL.

be?in

005001
010100
006300
026076
001004
112761
000404
005201
020127
003762
012,01
000207

000010

000020
000030
000032
000036
000040
000042

PUT.10.BUFF GLOBAL ROUTINES

MOV

R1,-(5P)

000000G 000004

g:z

ggFF.ADDR(RO).ik(SP)

; *,ADDR

0000006

ggva

3277.BUFF.OUN(R1)

: =, «(COUNT)

6145

: COUNT

6140

13
(SP)+ R1

6129

1$:

000377
000007

2s:
3s:

CLR
:g{

INC

Ri
:B.RO

CMP

R1,47

RTS

BLE
MOV

18 words,
Routine Base: $CODES + §074
Hax1mum stack depth per invocation: 2 words

: Routine Size:

SBTYL

PUT.I10. BUFF

s COUNT
s COUNT
,=

s COUNT,»

6129
6140
6142

000002

! DEALLOCATE BUFFER
! DONE

end;

010146

S N

BUFF_OWN [.COUNT] = =1;
exitloop;

000000

! IF THIS IS THE BUFFER'S ENTRY

;; .BUFF_ADDR [.COUNT] eqla ..ADDR

6142

' FOR EACH ENTRY IN BUFFER TABLE

N g

incr COUNT from O to (QIO_PER_CTLR * MAX_CTLR = 1) do

N PN

ADDR = ADDRESS OF THE 2°UORD BUFFER DESCRIPTOR TO BE
DEALLOCATED

—— —— — — A~ — S~ S~ S

:
E

—3

OO oo
o oo

:_n_n.o-n-n_._._..a.._.
WWWWWNWIWWNWNW

23
o

RD/RX EXERCISEI
GLOBAL ROUTINES

SEO 190

VAX=11 Blis2-16 v3-555
DISKSUSER2:[DIETZ.RELEASE JZROABO.BL1;18'(55)

NENNANOYONY

Sl-Jul-19 g 15:25:58
«Jul=1983 15:19:2

115

VAX=11 Bliss=16 V3=555

DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1;10

(56

THIS ROUTINE DEALLOCATES ALL 1/0 BUFFERS WHICH HAVE BEEN ALLOCATED TO

i
o

T
T T Tt I

21-Jul=1983 15:19:20

global routine PUTA_BUFF : novalue =

THE CURRENT CONTROLLER (CCTLR).

incr COUNT from O to (QIO_PER_CTLR * MAX_CTLR = 1) do
en

! DEALLOCATE IT

BUFF_OWN [.COUNT] = =1;

010146

000002
000004
000010
000014
000016
000024

005000
116001
020137
001003
112760
005200

000207

.SBTTL

PUTA.BUFF GLOBAL ROUTINES

MOV
CLR

R1,-(SP)
RO

gzg

g;.CCTLR

PUTA.BUFF::

000000G

000377 000000G
000007

1$:
2%:

' FOR EACH ENTRY IN BUFFER TABLE

! IF THIS BUFFER IS ALLOCATED TO THE CURRENT CONTROLLER

:; .BUFF_OWN [.COUNT] eql .CCTLR

000000

0000
000036

1 2 :58
21=Jul=-1983 5

RD/RX EXERCISER
GLOBAL ROUTINES

SEO 19

192
8'

:
: COUNT

6148
6155

,+
: *(COUNT)

6157

#377 ,BUFF .OWN(RO)

: *,+«(COUNT)

6159

(MP

RO, 47

s COUNT ,+

MOV

(SP)+,R1

MOVB
MOVB
INC

BLE

RTS

BUFF .OWN(RO) ,R1
RO

16 words,
Routine Base: $CODES + 6140
: Routine Size:
invocation:
2 words
per
depth
stack
Haxtmun

: COUNT

6155

6148

J 15

1=Jul=1983 15:25:5

;1-Jul-1983 1?:19:23

RD/RX EXERCISER

ZROAM2

GLOBAL ROUTINES

vo1.2
3

g}g?

global routine OUT_I0DQ =

;

;;

6162

g}es

QUEUE IS ALSO UPDATED.

6167

INPUTS:

g};}

6168
6169
6170

6173

TO BE
INDEX
THE NEXTTHERETPKT
CALLER (I10DQ).
THE QUEUE
TODONE
RETURNS
ROUTINE
THIS
TO THE
POINTER
'OUT'*
1/0
THE
FROM
PROCESSED

i
616§
6164 !

3
:
;

!
!
|

OUTPUTS:

THE INDEX OF THE NEXT RETPKT TO BE PROCESSED.

;
;
3
3

6174
6175
6176
g};g

begin

:
:

6179
g}gg

index = .10DQ [.10DQ_OUTI;
10DG_0UT = .10DQ_OUTTM+ 1;

' GET NEXT RETPKT INDEX
i ADVANCE *OUT** POINTER

;
H
:

g}g%
g}gg
6186

:g .10DQ_OUT gequ 10DQ_LEN
en
10DQ_0UT = 0;

! IF BEYOND END OF QUEUE
' SET POINTER TO BEGINNING OF QUEUE
! RETURN INDEX TO CALLER

:
:

6187

local
index : word;

return .index;

end;

000000

013700

000000G

000004
000010

116000
042700

0000006
177400

000014
000020
000026
000030
000034

SEQ 192

193
(57)
eo.eL1;?3'
L£AsEJzaoa
:toxerz.R£
oxsxsusenz
VAX=11 Bliss=16 V3=555

Page

005237 0000006
023727 0000006 000004
103402
005037 0000006
000207

.SBTTL
OUT.10DQ::

MOV
MOVB
BIC

18:

INC
CMP
BLO
CLR
RTS

OUT.IODQ GLOBAL ROUTINES

100Q.0UT,RO
.RO
10DQ(RO)
#177400, R0

1000.0Uf
10DQ.0UT , #4
1$
100Q.0UT
PC

; Routine Size: 15 words,
Routine Base: $CODES + 6200
: Maximum stack depth per invocation: 0 words

;
* «, INDEX
: =, INDEX

:
:
;
;

6179

6180
6182
6184
6160

K15

21=Jul=1983 15: 19:20

GLOBAL ROUTINES

DISKSUSER2: (DIETZ.RELEASE

12R0A80.8L1 38" (58

global routine IN_IODQ (index) : novalue =
s

THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE 1/0 DONE QUEUE, AND

UPDATES THE 10DQ_IN POINTER.

if (( 100Q_IN + 1) eql .10DQ_OUT) or

(.10DQ_IN = (IODQ_LEN = 17 eql 1ooo,our)

i ADVANCE "'IN* POINTER

:; .10DQ_IN gequ I0DG_LEN

' IF BEYOND END OF QUEUE

100a_IN = .JODQ_IN

! LOAD INDEX INTO QUEUE

1080 C.1000_IN] = .index;
+ 1;

else

return

! CYCLE BACK TO BEGINNING OF QUEUE

10DQ_IN = 0;

' IF 10D@ IS NOT FULL

end;

_ Y __

then

6188
6189
6190
6191
6192
6193
6194
6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208

VAX-11 Bliss=16 V3-555

000000

010146

000002
000006
000010
000012
000016
000020
000022
000026
000032
000034
000042
000046
000054
000056
000062
000064

013701
010100
005200
020037
001421
010100
162700
020037
001413
116661
5237
023727
103402
005037
012601
000207

.SBTTL

IN.IODQ GLOBAL ROUTINES

MOV

R1,=(SP)

MOV

R1,R0

(MP

RO, 10DQ.0OUT

IN.10DQ::

MOV

0000006

INC

0000006

9000006

0000006
0000006 000004
0000006

SUB
gg:

#3.R0
?2.xoon.our

MOVB

4(SP),IODQ(R1)

+ INDEX,*

CLR

100Q. IN

RTS

INC
grg

1$:

RO’

1%
R1.RO

BEQ
MOV

000003
0000096 -

100Q. IN,R1

MOV

100Q. IN
%goo.xn.ca
(SP)+,R1

Routine Base $CODES + 6236
27 words,
Hox1mun stack depth per invocation: 2 words

: Routine Size:

:
:

e
————

H
:
:
:
H
:
:
H
:
:
:
:
:
:
:
:
:
:
H
;
:

21=Jul=198315: 2 :58

RD/RX EXERCISER

IRQAM2
v01.2

SE0 193

L15

21=Jul=1983 15:19:20

GLOBAL ROUTINES

195
:18e(59)
ROABO.BLi
DISKSUSERZ:[DIETZ.RELEASEJZ
VAX=11 Bliss=16 V3=555

global routine DROP_CTLR (CTLR, REASON) : novalue =
‘4

BPr WM

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

'
'
;

;

T OATMMMOMD

21=Jul=1983 15:25:58

RD/RX EXERCISER

ZRQAM2
v01.2

SEQ 194

Page

begin

! FOR EACH UNIT IN CST

be?in

UNIT = .CST C.CTLR, .N, D_UNIT];
DUR C.UNIT] = .REASON;
DODU (.UNIT);

end;

! GET DRS UNIT NUMBER
! SET REASON FOR DROPPING UNIT

! DROP UNIT

end;

.SBTTL
DROP.CTLR::

0000006

JSR

R1,$SAVE3

000027
000000G

MOV
JSR

#27 ,-(SP)
PC,BLSMUL

000003

MOV
ADD

MOV

000014

MOV

1%:

ASL

; CTLR,*

#3.R2

: *,N

6223

R2.R0O

: N,*

14(SP) ,=(SP)

RO,R3

R3.R0
RO

000000G

MOV

CST(RO) ,R1

; *,UNIT

177760 o

BIC

#177760,R1

: *,INIT

MOV

R1.RO

ADD

#5,.R2

BLE

SWAB

MOvB

000005

000022

2%:

TRAP

CMP

CMP
RTS

022626
000207

35 words,

Routine Base:

6209

6225

ggOOOO.CST(RO)

000000G

000016 000000G

: Routine Size:

MOV

gég

040000

000104

DROP.CTLR GLOBAL ROUTINES

16(SP) ,DUR(R1)

R2,#22

(SP)+,(SP)+
PC

$CODES + 6324

s UNIT

6225

62¢8

: REASON,*(UNIT)

6229

: *,N

6223

:
3

6218
6209

s UNIT,»
s N,*

6230

——————
. B
T
B
X J

2; .CST C.CTLR, .N, D_PRES] eql PRESENT ! IF UNIT IS CONFIGURED

incr N from (0 + OF_UN) to (3 +« UNIT_SIZE + OF_UN) by UNIT_SIZE do

N MMM

local

8 words

RXCC e TOMNMMOOADZ2R

: Maximum stack depth per invocation:

2%3&5355%52

196

DISKSUSER2:CDISTZ.RELEASEIZROABO.BL1;10 (59)

AMP

$1-Jul-1983 15:19:20

sEQ 195

Page

AT AT

53??52

21=Jul=1983 15:25:58

VAX=11 Bliss=16 V3=555

—_rl

N15

B 16

RD/RX EXERCISER

21=Jul=1983 15:1 9:20

GLOBAL ROUTINES

VAX=11 Bliss=16 V3~555

SEQ 196

Paae 197

DISKSUSER2:[DIETZ .RELEASEIZRQABO.BL1;10 (60)

DALA LA LR T

global routine DRV_CTLERR (CTLR) : novalue =
e

THIS ROUTINE IS CALLED BY DRV_TIMCHK AND FATAL_ERROR WHENEVER AN

UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETECTED. ITS PURPOSE IS TO

CLEAN UP ALL CONTROLLER=RELATED DATA IN THE ‘DRIVER'' PORTION OF THE
PROGRAM. THIS INCLUDES MARKING THE CONTROLLER OFFLINE, CLEARING THE
C-RING COUNT, AND DEALLOCATING MSCP PACKETS DESCRIBED IN THE RESPONSE

TR PR R TR PR

H
!
:
o

N
F 3

]

INPUTS:

CTLR = DYING CONTROLLER NUMBER

PR PRLA

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

TRTR

begin

local

D_ADDR : ref block [DCT_LEN, word] field (DCT_FIELDS);

TR IR

D_ADDR = DCT + (.CTLR * DCT_LEN * 2):
D ADDR [WORDO] = OFFLINE;
PUTA_PKT (.CTLR);
DROP_CTLR (.CTLR, DU_CFATAL);
end;

000000

010146

000002
000006

016601
010146

.SBTTL

R1,-(SP)

MOV

R1,=(SP)

000022

; Routine Size:

23 words,

R1,(SP)

6254
6255

R1,(SP)

« 6256

(SP)+ R1

6248
6234

Routine Base:

5 words

PC,BLSMUL
#DCT,RO
(RO)
PC,PUTA.RKT

MOV
JSR
ADD

#6,-(SP)
PC,DROP.CTLR
#6,SP

RTS

MOV

s Maximum stac 3 depth per invocation:

s D.ADDR

; CTLR,*

MOV

000006
006324"
000006

6234
6253

#22,-(SP)

JSR

005636"

4(SP) ,R1

MOV

JSR
ADD
CLR

000000G
0000006

! 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

DRV.CTLERR GLOBAL ROUTINES

DRV.CTLERR::
MOV

MOV

000004

! CONTROLLER'S DCT ADDRESS

$CODE$ + 6432

21=Jul=1983
21=Jul=1983

RD/RX EXERCISER
GLOBAL ROUTINES

R R A O RTR TR R
TR IR I AR A A

3: 2 :5 8
5:19:2

VAX=11 Bliss=16 V3=555

IF THE CURRENT RDRX IS ONLINE AND ITS CRING IS NOT FULL. THEN THIS

ROUTINE ‘'SENDS'' A COMMAND TO THE RDRX BY LOADING THE PACKET

DESCRIPTOR OF AN HSCP PACKET INTO THE COMMAND RING AND READING THE
DEVICE'S IP REGISTER.

IF THE

CURRENT RDRX IN NOT ONLINE, THEN A FAILURE INDICATION IS RETURNED TO
THE CALLER, AND NO ACTION IS TAKEN.
INPUTS:

INDEX = ggbggN?F MSCP PACKET CONTAINING THE COMMAND TO

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER
DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT

begin
cal
SLOT ADDR

TEMPTM: uord
IF DEVICE IS ONLINE AND
ITS CRING IS NOT FULL
OR IT IS A SET=CTRL=-CHAR COMMAND

if ((.DCT_ADDR [STAT] eql ONLINE) and
(.DCT"ADDR [CRING_CNT] Lssu cnxucLEN)) or

((.MSCP_PKT [.index, OPCODEJ] egl oP_SCC) and

then

(.DCT_ADDR [CRING_CNT] Lssu CRING_CEN))

if (not ((.MSCP_PKT [.index, OPCODE] eql OP_ACC) or

(. MSCP_PKT [.index, OPCODE] eql OPZONL) or

(.MSCPCPKT [.index, OPCODE] eql OP_RD) or

(.MSCPCPKT [.index, OPCODE] eql OP_SCC) or
(.MSCPCPKT [.index, OPCODE] eql OP“WRT) OR
(.MSCP_PKTL.INDEX, OPCODEJ] EQL OP_SDD) OR
(.MSCP_PKTL.INDEX, OPCODE] EQL OP_RCD) OR
(.MSCP_PKTL. INDEX, OPCODE] EQL OPZGDS) OR
( MSCPTPKTL.INDEX, OPCODE] EQL OP_ELP) OR
(.MSCP_PKTL.INDEX, OPCODE] EQL OP_ABP) OR
) )
(.MSCP_PKTL. INDEX, OPCODE] EQL OPZESP)

else

PR?NTF (DBM107, .MSCP_PKT [.index, OPCODEJ]);
return FAILURE;
end

begin

BREAK

! LOOP TILL CREDIT BALANCE POSITIVE

until ((.MSCP_PKT [.index, CMD_TYPE] eql IMM_CMD) and

SEQ 197

Page 198

DISKSUSERZ [DIETZ. RELEASEJZROABO.BL1:18 61

global routine SEND (index) =

A PR PRTR PR PRPRLRLR TT

TRA A

R T TR R TR TRT P PRTRLA TR PR TR DA TR DR L L LA T

ZRQAM2
v01.2

—3 e}

C16

D16
ZRQAMZ
v01.2

21=Jul=1983 15:25 :58

RD/RX EXERCISER
GLOBAL ROUTINES

21=Jul=1983
115:19::20

(.CREDIT _BAL

SEQ 198

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

gequ 1)) or

(.CREDIT_BAL ggra 1;

MSCP_PKT [.index, CRN_LO] = (CRN_LOW = .CRN_LOW + 1);

! ASSIGN CMD REF NUM

if .CRN_LOW eql 0

then CRN_ HIG

= .CRN_HIGH + 1;

MSCP_PKT [.index, CRN_HIJ = .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);

= .MSCP_PKT [.index, PKT_LO];
.SLOT_ADDR

LOAD BUFF DESC (LO) INTO COMMAND SLOT

.SLOT_ADDR = .MSCP_PKT L. index, PKT_HI);
.SLOTZADDR = ..SLOT_ADDR and (not (ED_ FLAG))

.SLOTCADDR = ,.SLOT_ADDR or ED_OWN;
SLOT_ADDR = .SLOT_ADDR + 2;

LOAD BUFF DESC (HI) INTO COMMAND SLOT
CLEAR INTERRUPT FLAG IN CASE SET
GIVE OWNERSHIP TO CONTROLLER
ADVANCE TO NEXT COMMAND SLOT

;; .SLOT_ADDR gtra .DCT_ADDR [CR_END]

IF BEYOND END OF CRING

SLOT_ADDR = .DCT_ADDR [CR_BEGJ];

CYCLE BACK TO BEGINNING

= .SLOT ADDR + 2:
SLOT_ADDR

DCT_ADDR LCR_NEXT] = .SLOT ADDR;

RESTORE CR_NEXT POINTER IN DCT

TEMP =".RDRX_ADDR CRTIP, RC ALLJ
SETPRI (PRIOU)

DECREMENT CREDIT BALANCE
READ IP TO FORCE PORT TO POLL
LOWER PRIORITY

= .DCT ADDR CCRING_CNT] + 1;
DCTADDR CCRING_CNT)
CREDIT_BAL = .CREDITBAL
return SUCCESS
end

els &

! ROUTINE SEND

SEND::

0000006

.SBTTL

SEND GLOBAL ROUTINES
1,$SAVE?2

6258

MOV

DCT.ADDR.R1

6283

BPL

6284

s INDEX,*

6285

JSR
TST
TST

000004

000012
000104
0000006

INCR # OF COMMANDS IN CRING

IF DEVICE IS NOT ONLINE

return FAILURE;

end;

0000006

ADVANCE TO NEXT WORD

1%:

(MPB
BLO
MOV
MOV

JSR

-(SP)
(R1)

(R1) ,#4
2%
12(SP) -(SP)
#104,

PC.BLSHUL

21=Jul=19
21=Jul=19

RD/RX EXERCISER
GLOBAL ROUTINES

022626

MSCP.PKT+22(R0) ,#4
9s
(R1) .44

000004
2%:

0000226
000020

000011

000041

6286

; INDEX,*

6289

6290

6291

6292

6293

6294

6295

6296

6297

6298

6299

RO,
=

6302

SP.RO

: SP,x

fzgcp.mmna

:
:
:
:

6301
6289
6308
6310

ggson.slu.

6311

CREDIT.BAL,#
3s
CRN.LOW,RO

6312

6314

9%
12(SP) ,=(SP)
#1064 ,=(SP)
PC.BLSMUL
RO,R2
(SP)+,(SP)+
RO
MSCP.PKT+22(R2)
,RO
RO,#20
$
RO.#11
38
RO, #41
38
RO, #4

000004

3%
RO, #42
3%
RO, #4
3%
RO, 45
38
#1
RO,
3%
RO,43
3%
RO, #6
3%
RO,.#2

000042

000004

000005
000001

060003
000006
000002

38"

000000G
000002

coemo7 -(SP)
#2.-(SP)

000006

17
#6,SP
98
22

0000046

3s:

0000006

0000006 000001

48:

0000006

5%:

0000006
0000126

SEQ 199

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

(SP)+,(SP)+

0000226 000004

000012
000104
0000006

G0 Co
W

E 16

RO
RO,CRN.LOW

gg.HSCP.PKT+12(R2)

F 16

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

RD/RX EXERCISER
GLOBAL ROUTINES

0000006
000000G 0000146
0000006
000020
100000

CRN.HIGH

CRN. HIGH HSCP PKT+14(R2)

6$:

20(R0),ai
DCT.AD

7$:

000002

#340,R0
41

000340

MSCP.PKT(R2),(R1)+

(J0000G
0000026
040000

MSCP. pxr¢2<a2) (R1)
#40000, (R1)

#100000, (n1>+

100000
0000006

DCT.ADDR RO

a; 2(RO)

000012

000010
000020

8
10(R0) ,R1

R1,20(R0)
(R0)

8%:

CREDIT.BAL
gsonx.Aoon.(SP)

0000006G
0000006

.30

000001

10§

9%:

108:

: Routine Size:

144 words,

RTS

RO
(SP)+

$CODES + 6510
Routine Base:
9 words

Haxtmum stack depth per invocation:

SEQ 200

Pase 201
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL1;10 (61)

s
3
3

: *,SLOT.ADDR

6317
6319
6321

:
; *,*(SLOT.ADDR)

6323
6324

6326

; *,SLOT.ADDR
: «,SLOT.ADDR
: +,SLOT.ADDR
: *,SLOT.ADDR
:

6328
6330
6331
6332
6335

: «,SLOT.ADDR
;s SLOT.ADDR,*
|
H
: *,RC.REG
F

6337
6339
6340
6341
6342
6343

3
f

6289
6277

6258

: SLOT.ADDR,*

G 16

RD/RX EXERCISER
GLOBAL ROUTINES

ZRQAM2
v01.2

:
:
:
:
:
:
:
:
:
:
:
000000
000000
000002
000010
000012

21=Jul=1983 15:2 5:58
21=Jul=1983 15:1 9: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

2523%T§1630? RETURN PACKET INDEX BEING DEPOSITED INTO THE 1/0 DONE

! BREAK FOR ACT

BREAK

until .IODQ_IN neq .I0DQ_OUT;

WAIT::

104422

023737
001773
000207

SEQ 201

Pase 202
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1;10 (62)

000000G 000000G

1%:

.SBTTL

WAIT GLOBAL ROUTINES

TRAP

6359

RTS

6351

ggz

%gDO.IN.IOD0.0UT

Routine Base: $CODE$ + 7150
: Routine Size: 6 words,
: Maximum stack depth per invocation: 2 words

6361

21=Jul=19

RD/RX EXERCISER

- 9

21=Jul=1

ERROR MESSAGE SUBROUTINES

: 8

SEQ 202

Page 203

DlSKSUSERZ:£DIETZ.RELEASEJZROABO.BLI:18 (63)
VAX=11 Bliss=16_V3=555

%sbttl 'ERROR MESSAGE SUBROUTINES®
routine EMS_SA : novalue =
'+

THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM ‘'SA_REG'' WHICH CONTAINS

THE CONTENTS OF THE SA REGISTER.

! IF CONTROLLER TIME-OUT

i{ .SA_REG eql %0'177777'
en

beYin
PRINTX (CRLF);
PRINTX (ASTERISK):
PRINTX (.CNTR_ERR [01);
end
else

! IF GENERIC CONTROLLER ERROR

:; (.SA_REG and %0°'003777') lequ 22
en

begin
PRINTX (CRLF);
PRINTX (ASTERISK):

PR&NTX (.CNTR_ERR [.SA_REG and %0°'003777'1);

else

! IF RORX SPECIFIC CONTROLLER ERROR

:; ((.SA_REG and %0°'003777') = 400) lequ 6
en

begin
PRINTX (CRLF);
PRINTX (ASTERISK):;

PRINTX (.RDRX_ERR [(.SA_REG and %0°'003777') = 4001);

else

0000006G

177777

000000G
000001

end

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

MOV
MOV

TRAP

MOV

Mov

1.-(SP)

Ri,.#=1
1%

#CRLF ,~(SP)

#1,-(SP)
SP,RO
15

#ASTERISK, (SP}

#1,-(SP)
SP,RO
15

CNTR.ERR, (SP)

#1,-(SP)

6364

6374

6371

3 P,

6375

: SP,x

6376

U ER S D181y RELEASE1ZROABO BL1e§§g(§§%

RD/RX EXERCISER

R
g-a-.-n
OOV
perd2-._.-. 2-.-.-00 o 32
N
bbo
§N~—i
=
OONVIOONO EN88H%
» oo
N°§
v
8 88%%

o §~°
58 =&
82838

ERROR MESSAGE SUBROUTINES

O=O

1 1

SP,RO
15

174000
000026

000000G
000001
0000006
174000

020027

174000
000620
000006

6373

6383

: ¥,

#ASTERISK,
(SP)
#1,-(SP)
SP.RO
15
SA.REG,RO

(SP)
CNTR.ERR(RO),

#1,-(SP)

SP.RO

: SP,«

2%:

R1,R0

6385

6392

#174000,R0

: SP,*

000000G
000001

,
(SP)
#ASTERISK
#1,-(SP)

§§.Ro

——d
b D

6385

0000006
000001

SP.RO
15
SA.REG,RO

#174000,
R0

6393

: SP,t

639%

(SP)
, R0)
RDRX.ERR=1440(

#1,-(SP)

000001

3s:

000006

6384

s SP,¢

#620,R0
RO,#6
43
#CRLF ,=(SP)
#1,-(5P)

0000006
000002

6380

§§.ao

1763406

n?gzg N

#174000,R0

#174000,RO0

0000006
000001

0000006
174000

R1,RO

RO,#26
28
#CRLF ,=(SP)
#,-($P)

0000006
000001

101

8-l°°°§ 2 NN?
NESa 833 SENIS

1$:

: SP,*

4$:

5%:

SP.RO
15
(SP)+
5%
R1,-(SP)
#XX14,-(SP)
#2,-(SP)

: SP,»

SP,.RO

: SP,x

#6,SP
(SP)+,R1

6391

6397

J 16
ZRQAM2
v01.2

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

$CODES + 7164
99 words,
Routine B
: Routine Size:
; Maximum stack depth per invocation: 7 words

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

SEQ 204

Paae 205
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEAS EJZROABO.BL1;10 (63)

K 16

o
—0

S1-Jul-19§§
1=Jul=195

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

SEQ 205

Paae 206
VAX=11 Bliss=16 V3=555
(64)
;10
BO.BL1
EAS
EJZROA
ETZ.REL
ER2:[DI
DISKSUS

15:25: 58
15:19: 20

:
3
-

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 CODE).

6410
b
b
b
b
b
b

gg?&?fl (Xx16);

R
R I R

! SUB-CODE :

cases;tT_CODE from ST_SUC to ST_DRV of

[ST_Sucl:

! SUCCESS SUB-CODES

if .SB_CODE Lequ "
PRINTB~(.TBLQSUC;[ZSB_CODEJ):

[ST_CMD]:

PRINTB (EX_OP, .SB_CODE / 8);

[ST_ABO]:

[ST_OFL]:

:;easa_coos lequ 8

! INVALID COMMAND
!

;

- e
COMMAND ABORTED ..

S UNIT OFFLINE =

. -

=
-

PRINTB (.TBL_OFL [.SB_CODE));

[ST_AVL]:

[ST_MFE]:

:'fw;‘sa_cooe lequ 10

ury UNIT AVAILABLE

MEFIA FORMAT ERROR

PRINTB (.TBL_MFE [.SB_CODE]):

:ze;.SB-CODE / 128) lequ 2

- WRITE PROTECTED

PRINTB (.TBL_WPT [(.SB_CODE / 128)1);

[ST_CMP]:

! COMPARE ERROR

[ST_DATI:

:’;e'.‘sa_cooe lequ 15

' DATA ERROR

PRINTB (.TBL_DAT [.SB_CODE]));

R
I

: PRINT SUB=CODE ONLY ON ERROR

;

:;eg.STTCODE or .SB_CODE) neq 0

[ST_WPT]:

THE GLOBAL DATUM °'‘'SB_CODE'‘ (SUB-CODE) IF

T L TRLR TR LR TR LR R LA
e T T T
e e

THIS ROUTINE PRINTS

begin

FRRRRERRER

DAL LS L] LA TR LA LR TRTR TR DRLR LA L8

routine EMS_SBC : novalue =

[ST_HST]:

:;eaSB_CODE lequ 4

! HOST ACCESS ERROR

PRINTB (.TBL_HST [.SB_CODE]);

[ST_CNT]:

if .SB_CODE lequ 3

then

! CONTROLLER ERROR

L16

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

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASE]

SEQ 206
207
Page

ZROA80.8L1:18e(64)

PRINTB (.TBL_CNT [.SB_CODE]};
if .SB_CODE lequ 8

CST_DRvV]:

then

! DRIVE ERROR

PRINTB (.TBL_DRV [.SB_CODE]);

Coutrangel:

PRINTB (EX_OP, .SB_CODE);

! JUST PRINT SUB=-CODE IF NO MATCH

tes;

end;
end;

000000G
0000006
0000006
000001

.SBTTL

EHS.SBC:HO!
8I
BNE
RTS
MoV
1%:
Mov
Mov

TRAP

wmmm--n-ag
¥ N, VT N, N1
RSRVEREH(=T

) emd

D =D ol

88883888SS888888

6409

6414

ST.CODE,RO
RO,#13

000000°

ADD

RO
P.AAA(RO)
,PC

BHI
ASL

3s:

4%:

000000G

ASL
MoV
Mov
MoV

000000°
000001

0000006
000010
0000006
0000006
000002

000006

Mov
MoV
MOV
Mov
TRAP
CMP
BR
CMP
BHI
Mov

5%:

6412

MOV
CMP

0000006 000020

062706

ST.COD
$8.CODE RO
1$
PC
#XX16,=(SP)
#1,=-(SP)
SP,RO

000000G
000013

000002

000102

EHS.SBE SSROR MESSAGE SUBROUTINE S

SB.CODE, (SP)
#EX.OP,=(SP)
#2,=-(SP)
SP.RO
14
(SP)+,(SP)+
6%
S8.CODE, #20
148
$8.CODE,RO

; Case dispatch

6457

: SP,*

(SP)
TBL.SUC(RO),
#1,-(SP)
?:.RO

MOV
MoV
JSR
Mov
Mov
MoV
MoV

158
S8, CODE, (SP)
#10,-(SP)
PC.BLSDIV
RO, (SP)
#EX.OP,=(SP)
#2,-(SP)
?2.R0

ADD

#6,SP

6421

000042°*
000001

(SP)
TBL.OFL(RO),
=(SP)

0000006

$8.CODE,#12

6431

0000006

$8.CODE,RO
RO
(SP)
(RO) ,FE
TBL.M

6433

158

16$

000064
000001

SP.RO
14
158
8. CODE, (SP)
#200,-(SP)
PC,BLSDIV
(SP)+
RO, #2

gsS%

000120°*
000001

0000006

(SP)
TBL.DAT(R0),
#1,-(SP)
SP.RO
14
158
#4
SB.CODE,
16$
gg.CODE.RO

000160°
000001

#1,-(SP)

0000006

11%:

(SP)
TBL.HST(RO),

SP,RO

12$:

14
158

SB.CODE ,#3

16%
SB.CODE
RO
RO

16%

108:

SP.RO
14
158
. #17
$B.CODE
%g.CODE.RO

0000006 000003

6437

#1,-(SP)

0000006

6435

~§§§§§§§§§§§§ AR

16$

RO
(SP)
TBL.WPT(RO),

S P

#1,-(SP)

000112°*
000001

0000006

6427

PVNENAYYOYOYAONANOOY

0000006

000002

a2
N
NO~N

6414
6425

16$
gg.CODE.RO

0000006
000200
0000006

8238 32928233883229282082998

. #10
$8.CODE

(64)

BN PN PN

16$

VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.REL EASEJZRQABO.BL1;10

207

-— ad

2000

-‘Og
8
S
u::w8
2-55
g
3 g8 ;zmsgzd SIZNR

ERROR MESSAGE SUBROUTINES

SEQ

Paac

S~ S S S S

3}-Jul-1
=Jul=19

RD/RX EXERCISER

0000006 000010

— — — — o

6451

000450 023727 000000G 000010
000456 101012
000460 013700 000000G
000464

148:

005726

000504 022626
000506 000207

15%:

16$:

TBL.CNT(RO),(SP)
#1,-(SP)
SP.RO
14
15%

cMP
BHI
MOV

$8.CODE . #10
168
S8.CODE,RO

MOV
MOV
MOV
TRAP

TBL.DRV(RO) ,(SP)
#1,-(5P)
SP,RO
14

CMP
RTS

(SP)+,(SP)+
PC

ASL

006300

000466 016016 000202°
000472 012746 000001
000476 010600
000500 104414
000502

138:

MOV
MOV
MOV
TRAP
BR

TST

(SP)+

;s SP,»

3
F

6453
6455

R PNPNEVNEVNANENNEN

000432 016016 000172°
000436 012746 000001
000442 010600
000444 104414
000446 000415

VAX=11 Bliss=16 V3-555
:[DIEIZ.RELEASEJIROABO.BU:18'(66)
DISKSUSERZ

N G

v01.2

1=Jul=1983 15:25:58
15:19:20
S‘I-Jul-fll

: SP,»

2
3

6411
6398

: CASE Table for EMS.SBC+0044
; (48]
: [58]
: [168]
: L[78)
: [168]
s [8$)
: [9%)
: [168])
s C108]
: [118)
: [12%)

6414

SN S

: Routine Size: 164 words,
Routine Base: SCODES + 7472
: Maximum stack depth per invocation: 7 words

N G

RD/RX EXERCISER
MESSAGE SUBROUTINES
ERROR

IRQAM2

SEQ

s, R, G

000026

. S

: [13%)

24
0
434
120
434
154
210
434
254
310
344

. —— — —

000434
000120
0004
000154
000210
0004
000254
000310
000344

WORD
.WORD
WORD
LORD
.WORD
WORD
.WORD
WORD
.WORD
WORD
.WORD

000010
000012
000014
000016
000020
000022
000024

000024

RO,

000002

P.AAA:
2s:

SPLITS,

.PSECT

000000

OO OO

SUB-STATUS,

STAUTUS,

MODFIERS OR FLAGS, AND ETC.

THESE FIELDS ARE '‘TRANSLATED' INTO ENGLISH TEXT IF POSSIBLE

N FN NN ENNOAOYAAOY O

RATHER THAN PRINTED AS RAW NUMBERS.
IHPLICIT INPU S:

P_ADDR = ADDRESS OF THE CURRENT RETURN PACKET

begin

EBH_TB1: VECTOR [7) mmu. (EBH_30,EBH_44 ,EBH_45

BH_46,EBR_47,EBA_48,EBA_49);

PRINTX (XX35, .RP_Aboa [car _L01);

P S, P G P G

! TABLE OF BASIC., HARD ERROR MESSAGE ADDRESSES, INDEXED BY STATUS CODE
PRINTB (XX13, .CD!SK)
'PRINTB (XX36, .CRN

! 'DISK XXX

! EXPECTED cau XXXXXX
CRN : , XXXXXX
! RECEIVED

printX (xx29) ;
SELECTU (.RPAoonegfltsrm) OF

i ‘message type:’

[%0'0°1: PRINTX (EX_SEQ);
l:xo'1'J PRINTX (EX_DGM);

[%0'2']: PRINTX (Ex cao)

! “'SEQUENTIAL"*
i *DATAGRAM''
s “'CREDIT NOTIFICATION''
*MAINTENANCE""

[ggneauxss:l mutx ‘lxx37. .RP_ADDR msrm) ! UNKOWN MESSAGE TYPE
[%0°15%]: PRINTX
(

PACKET TYPE

'
! *"COMMAND:

PRINTB (XX17);

[=1.J

N\ll

-o

THIS ROUTINE PRINTS THE ENTIRE RETURN PACKET INCLUDING OPCODE,

(65)

SELECTU (.RP_ADDR [conidl) OF

— — — — — — S~ S S S S S

Paae 210

DISKSUSER2: [DIETZ .RELEASEIZROABO.BL1;10

BEGIN

PRINTB (XX18);
SELECTU (.RPSADDR CENDCOD]) OF

! PRINTS =DUP-

. ———

tlo'Z b |

! PRINTS A COMMAND
f!o'ZOZ J: PRINTB (EX_ESP);
[%0:203° J: PRINTB (EXZELP):
[20'204°]: PRINTB (EX_RCD):
(!o'ZOS'J PRINTB (EX_SDD);
[20°206°]: PRINTB (EX"ABP);
(g;flERUISEJ PRINTB (EX OP. .RP_ADDR [ENDCOD]); ! PRINT ENDCODE VALUE

printb (xx15

lF (.RP_ADDR tSTSCODJ GEQU 0) AND (.RPADDR [ST CODJ LEQU 7)

THEN
ELSE

PRINTB (.EBH_TB1 [.RP_ADDRTM SST
PRINTB (ex_op, .RP_ADDR [srscopl);

! "'status:’’

' IF STATUS CODE lS WITHIN RANGE

! PRINTB APPROPRIATE MESSAGE
! JUST PRINT STATUS CODE

[20'201°]: PRINTB (EX_GDS);

e e
R R T E O e e PR TR R TR TR TR TR LA LA T D T 1 TR IR L L R

VAX=11 Bliss=16 V3-555

GLOBAL routine EMSCMD : novalue =

R
MR AR R AR

%1-Jul-19 2
1=Jul=1983

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

e O

T TR PR TR DR TR R DR DA LR L L T

33
ve

IF .RP_ADDR [ENDCOD] EQL %0°204° or

! IF A SEND DATA OR RECEIVE DATA COMMAND THEN

.RP_ADDR [ENDCOD] EQL %0°205'

! prints contents of dup packet

EMS_DUP ();

begin

if BIT_TST (RP_ADDR t9 8.1,0, 1

then PRINTB (dF

if BIT TST (RP_ADDRTM t9 9.1,.0], 1
then PRINTB (df_1);
if BIT TST (RP_ADDR[9 10, 1, 01, 1
then PRINTB (df_2):

if BIT TST (RP_ADDRTML9, 11, 1, 01, 1
then PRINTB (df_3);

! IF A GET DUST STATUS OR EXEC. LOCAL PRG COMMAND TH

l;.RP_ADDR [ENDCOD] EQL %0°203°
then

begin
if BIT_TST (RP_ADDR [9 8,1,01, 1

then PRINTB (dF
if BIT_TST (RP_ADDRTM £9. 9.1,0. 1
then PRINTB (df_S):

iy then PRINTB (df_7);

Efiéfltx (xx23, .CST_ADDR [.CUOFF + 3, D_DBN], .CST_ADDR [.CUOFF + 3, D_DBN]);

! "DBN: XXXXXX.'*

[%0°0°]:

BEGIN

PRINTB (XX19);

SELECTU (.RPseDDR CENDCOD]) OF

'PRINTS =MSCP=-

*MsC

'204'] PRINTB (EX_SCC);

11°1: PRINTB (EX_ONL);

tzo°241'31 PRINTB (EX”RD);
[20°242°']: PRINTB (EXWRT):

! PRINTS THE COMMAND

tomeauxse: PRINTB (EX_OP, .RP_ADDR CENDCOD]); ! PRINT ENDCODE VALUE

if .RP_ADDR [CHDHODJ eql MD_CMP THEN PRINTB (XX20); ! PRINTS THE MODIFIER IF NECESSARY
PRINTB_(XX15);
tru 0) and
if (.ST_CODE

(.ST_CODE lequ 11)

— — — — — S~ S

if BIT TST (RP_ADDRTMT9, 10, 1, 01, 1
then PRINTB (df_6);
if BIT_TST (RP_ADDRTM 9, 11,1, 01, 1

— o~ S S S P g,

PP PREVEVEVNOYNOY AN

end;
IF .RP_ADDR CENDCOD] EQL %0°201°

then

FOR MY ACTUAL # OF BYTES TRANSFERRED: XXXXX.'*
[BCNT_LOJ);
.RP_ADDR
(Xx25,
b'YNTK
! *'1/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX**
OJ)
.RP
[BUFF
ADDR
[BUFF_1],
.RPZADDR
(XX26,
PRINTX

then

1
5
'8'(6
.BL1;1
DISKSUSER2: CDIETZ RELEASEJZROABO

VAX=11 Bliss=16 V3=55 5

OO OO

51-Jul-198
'2 :58
1=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

! STATUS:

! IF STATUS CODE IS WITHIN RANGE

—

IR L L E E s A R R A A A I E TST TR A A IR T I I T
T e o e e e TRTR TR TR TR TRDR LRLA L T (TR
I IR I LI I T R
MR

8N
g

21=Jul=1983
21=Jul=-1983

RD/RX EXERCISER

ZRQAM2
v01.2

ERROR MESSAGE SUBROUTINES
then

PRINTB (.ERR_COD [.ST_CODE - 1))

else

5::25:58
5:19:20

SEO 511

1
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL1;.8.(6
VAX=11 Bliss=16 V3=555

! PRINTB APPROPRIATE MESSAGE

if .ST_CODE eql ST_DIA

then

else

PRINTB (.ERR_COD [11))

! MESSAGE FROM INTERNAL DIAGNOSTICS

PRINTB (EX_OP, .ST_CODE);

! JUST PRINT STATUS CODE WHEN NO MATCH
! PRINTS STATUS SUB-CODE

EMS_SBC ();

! MSCP acces

IF .RP_ADDR CENDCOD] EQLU %0'220°' OR
OR
.RP_ADDR CENDCOD] EQLU %0°'241°'
“ADDR CENDCOD] EQLU Xo0'242'
.RP

THEN

i mscp read
i mscp write

(XX24, .rp_addr CCBCNT LOJ)
r?ntx
RINTX (XX25, -~~“ADDR
[BCNT_[0])

! *BYTE COUNT IN COMMAND: XXXXXXX"*
i FOR ANY "ACTUAL # OF BYTES TRANSFERRED: XXXXX.''

! ''I/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX'*
PRINTX (XX26, .RPTADDR [BUFF_
1]. " .RP_ADDR (BUFF_01);
! IF BAD"BLOCK REPORTED
if B{;TST (RP_ADDR C[FLAGS],"EF_0)
else

PR]NTB (xx21, .RP_ADDR [BBLK_LOJ)

rintX (XX22, .RP_ADDR [LBN_LO], .RP_ADDR [LBN_LOJ);

PRINTB (XXé1);

if BIT_TST (RP ADDR [FLAGSJ EF_1)
then PRINT

if BIT_TST (RP ADDR tFLAGSJ EF_2)
(F_2);
then PRINTB
t?LAGSJ EF_3)
(RP Anou
it sxtSTPRINTB
(F_3
then

-0

RN NN NN
R
dddddddddd%
PNONE WO

6606
6607

! IF ERROR LOG GENERATED
! IF SERIOUS EXCEPTION

enda;

! MSCP SET CTLR CHAR

PRINTB (XX39);
if ax;
rs;ngap A%DR[BCNT_HI, EF
&)

! IF

it BIT_TST (RP_ADDR tacurHIJ, EF_S)
then PRINTB (F 5):
if ax;'3;,§"$ A?Dltacur_HIJ, EF_6)

! IF
! IF

if BIT_TST (RP ADDR tecut_HIJ, EF_D)
then PRINT
if sxr
TST (RP Aool tecnrHIJ, EF_8)
then PRINTB (F
if axrTsT (RP Apou£6cnr_HID, EF_9)
then PRINTB (F 9);
if sxrTsT (RP Aook [BCNT_HIJ, EF_10)
then PRINTB (F_10);

IF .RP_ADDR [ENDCOD] EQLU %0'211'

! "LBN: XXXXXX'*

! IF BAD BLOCK UNREPORTED

l;E.RP_ADDR [ENDCODJ EQLU %0'204’
begin

! "BAD BLOCK REPORTED: XXXXXX.'*

! IF
! IF
! IF
! IF

ERROR MESSAGE SUBROUTINES

RD/RX EXERCISER

VONOWVSWN =0V~

SRS S
&
AR
8
FEREREREE SHRUHoERRRERRER
geasEERee

ZRQAM2
v01.2

6669
6670
6671
6672
6673
6674

VAX=11 Bliss=16 V3-555

! MSCP ONLINE comman

THEN

begin

SEO 212

21=Jul=198315:19:20 DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL1T;18.(65)

21=Jul=198315:25:58

[BCNT_HI], EF_11)
if BIT_TST (Rb ADDR 1);
then PRINT
TST (RP ADDl CNT_H1], EF_12)
if BIT

! IF
! IF

if BIT_TST (RP ADDR EBCNT_H1l, EF_14)

! IF

PRINTB (XX40):

then PRINTB (F_12);

! IF

if Bl;TSER(R$EA?DR1 ?CNTH1l, EF_13)
then PRINTB (F_14)

! IF

if BIT_TST (RP ADDR [BCNTH1), EF_15)
then PRIN

F_15);

! IF

if BIT TST (RP ADDR IBCNT_H11, EF_16)
then PRINTB (F_16):

' IF

if BIT TST (RP ADDR ;pcnrH1], EF_17)
):

! IF

then PRIN
CNT_H1], EF_18)
if Blt TST (RP ADDR
(F_18);

then PRINTB

! IF
! IF

if BIT TST (RP_ADDR [BCNTH1), EF_19)
(F_19);
then PRINTB
if BIT TST (RP ADDR EBCNTH1), EF_20)
then PRINT

! IF

20);

if BIT_TST (RP Abol tscnr_HIJ, EF21)
then PRINTB
(

);

END;

[otherwisel:

BEGIN

PRINTB (Xx38, .RP_ADDR [CONID]):
SELECTU (.RPsegbk CLENDCOD]) OF

[%0°204°1: PRINTB (EX_SCC):

[%20°211°): PRINTB (EX_ONL):;

t!o'ZZO'%
[%0°241°:

PRINTB (EXZACC);
PRINTB (EX”RD)

! PRINTS UNKNOWN CONNECTION ID

! PRINTS THE COMMAND IF RECOGNIZED

[%0°262']: PRINTB (EX"WRT);

[20°211°]: PRINTB (EX_ONL);
[20°220°]: PRINTB (EX ACC)
[X0°241'): PRINTB (ExRD):

[20°242'3: PRINTB

(EX_WRT):

[gTHERUISEJ PRINTB (ExOP. .RP_ADDR C[ENDCOD]); ! PRINT ENDCODE VALUE

ADDR [CHDNODJ eql MD_CMP THEN PRINTB (XX20); ! PRINTS MODIFIER IF NECESSARY
.
if 2?

BRINIB
fex’og «RP_ADDR [STSCOD]);

! PRINTS STATUS CODE IN OCTAL FORM

RINTB (ex_op, .RP_ADDR [SUBCOD]);

! PRINTS STATUS SUB=-CODE IN OCTAL FORM

rin

r1n

!
!

THIS ROUTINE PRINTS (EXTENDED) BOTH BYTE COUNT FIELDS OF THE CURRENT
RETURN PACKET: THE BYTE COUNT FROM THE COMMAND ENVELOPE AND THE

! UNKNOWN CO

ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THE RESPONSE ENVELOPE).

6677

begin

6682

6683
6684
6685

6688
6689
ggg?

IF .RP_ADDR CENDCOD] EQLU %0°'204°' OR

2232

msnbe .

6693

6705

! prints dup packet material

ems_dup ();

tes:;

END;

PRINTS RETURN OR MESSAGE PACKET IN A BLOCK OF OCTAL WORDS

}
6707 'EMS_BLK (.RP_ADDR, PKT_LEN);

! "“CONTENTS OF PACKET:'*

'PRINTX (XX27);

i PRINT BLOCK OF WORDS AS LONG AS A MESSAGE PACKET INCASE A PACKET IS USED
! INSTEAD OF A RETURN PACKET

2;83

6710

! dup send data

! FOR ANY "ACTUAL # OF BYTES TRANSFERRED: XXXXX.'*
PRINTX (XX25, .RP_ADDR [BCNT_LOJ):
! I/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX'*
PRINTX (XX26, .RPTADDR [BUFF-1], .RP_ADDR [BUFF_01);
! "DBN: XXXXXX.'*
PRINTX (XX23, .CST_ADDR [.CUDFF + 3,7D_DBN], .CST_ADDR [.CUOFF + 3, D_DBNJ);

2673

6706

! dup receive data

.RP_ADDR [ENDCOD] EQLU %0°'205°

6696
6697
6698
g;gz

! IF BAD"BLOCK REPORTED

! "BAD BLOCK REPORTED: XXXXXX.''
. PRINTB (XX21, .RP_ADDR [BBLK_LOJ)
eLse
! OCLBN: XXXXXX'
printX (xx22, .RP_ADDR [LBN_LO], .RP_ADDR [LBN_LOJ);

6692

6702

! *BYTE COUNT IN COMMAND: XXXXXXX''
ggintx (XX24, .rp_addr CCBCNT_LOJ);
i FOR ANY "ACTUAL # OF BYTES TRANSFERRED: XXXXX.'*
INTX (XX25, .RPZADDR [BCNT_[01);
! "'I/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX"*
PRINTX (XX26, .RPTADDR [BUFF_1), ~.RP_ADDR [BUFF_01);
if a{’r‘,tsr (RP_ADDR [FLAGS],”EF_0)

“866867

6701

! MSCP access command
! mscp read
! mscp write

IF .RP_ADDR CENDCOD] EQLU %0°'220' OR
.RP_ADDR C[ENDCOD] EQLU %0'241' OR
.RPZADDR [ENDCOD] EQLU %o'242°
THEN

6678
6679
6680
6681

SEQ 213

Pasc 214
VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL1;10 (65)

end;

0000006
0000006

000000G
0000006
000000G

0000006
000000G

! ROUTINE EMSCMD

.PSECT

EBH.TB1:.WORD
WORD

EBH.30
EBH.44

.WORD

EBH.48

.WORD
.WORD
.WORD

.WORD

EBH.45
EBH.4
EBH.47
EBH.49

.SBTTL

EMSCMD ERROR MESSAGE SUBROUTINES

MOV

cpisK,=(SP)

004137 000000G

EMSCMD: : JSR

012746 0000006

MOV

013746 0000006

$SCODES.,

R1,$SAVE4

#xx13,-(SP)

6463

6482

gg;g

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

4 7]

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM?
v01.2

e T el e e e e el e lelelelelelel=l=lel=]l=]lel=]lel=]=]leleleleleTo
=T I

RD/RX EXERCISER

—2

#xx29, (SP)
#1,-(SP)

0000006
000002

RP.ADDR, RO

0) RS
25a

177760

R2
R2
R2
#177760,R2
#-1.R1
R2
1$

177777

1$:

,~(SP)

SP.RO

2%:

15
(SP)+
R2.¥42

R1
#EX.CRD, (SP)
.~(SP)

6490

SP.RO
15

38:

(SP)+
R2,#15
4%

R1
#EX.MTN, (SP)

.~(SP}

SP.R0
15
(5P)+

;

6491

0000006
000001

,1
R2M
2s

R1
#EX.DGM, (SP)

0000006
000001

000015

15
(SP)+

=T ey el e Tl

1,-(SP)
sp‘RO

0000006
000001

6486

cex SEQ, (SP)

000000G
000001

000002

6485

§ &

0000006
000001

e
s

6484

0000006
000004
0000006
000002

000001

SEO 216

D1SKSUSERZ: [DIETZ.RELEASE]ZROABD. BL1:o8 &5
BLiss=16 V3-555

#2,-(SP)
SP

000002

O =200

g g:g-coc-occo
Szes
gP58$E8Y
SS3R8S

ERROR MESSAGE SUBROUTINES

AX=11

= == 1=l=1=l=l=lxl=]=]=TeleleloTle
e lelelel=lel=0- O o

sl-Jul-183 1 2 :
1=Jul=1983 15:1

31-Jul-1915:25:58
«Jul=1983 15:19:20

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
005701
001422
013700
116001
006201
006201
006201
006201
042701
010116
012746
8}2746

0000006
000002

0000006

011706°

013700

0000006

005002
156002

012701
020227
1010

005001
012716
8}2746

58%:

0000006
000001

000203

: SP,*

6497

3(R0) R4

6$:

26$

R3
#XX18, (SP)
1 ,-(5P)

6501

: SP,x

RP.ADDR,RO
R2
14(RO) ,R2

6502

#EX.GDS (SP)

6504

SP,RO

; SP,»

R2,#202
8s
Ea
#EX.ESP (SP)

6502

6505

SP.RO

: SP,»

R2,#203
9

#-1.R1
R2.,#201
78
R1

#1,-(SP}
7%:

;

SP,RO
1%

0000006
000001

104414

005726
020227
001C10

6495

#-1.RS
RG ,#2
6S

177777
000201

0000006
000001

nz.Aoon.ao

000014

000202

(SP)+,(SP)+

#Xx17, (SP)
#1,-(5P)
1%

104414

005726
020227
001010
005001
012716
8}27‘6

6492

: SP,*

000003
177777
000002

137
005003
012716
012746
010600
104414

6486

177760

013700
012703
020427
001402

SEQ 215

Paae 216

DISKSUSERZ [DIETZ.RELEASEIZROABO.BL1;10 (65)
:

0000006
000002

0000006
000001

005004
56004

VAX=11 Bliss=16 ¥3-555

4$:

104415
022626
012716
012746
010600
104414

14
(SP)+

#1,-(SP}
1%
(SP)+

6502

EN
#EX.ELP,(SP)

0000006
000001

#1,-(SP)

000204

SP
1%

108:

16
(SP)+

6507

118:

6502

R1
#EX.SDD, (SP)

6508

11$

1%
(SP)+

6502

R1
#EX.ABP, (SP)

6509

128

SP,RO

000014

000002

138:

SP,*

R2,#206

#1,-(SP)

128:

SP,*

R2,#205

#1,-(SP}

0000006
000001

6502

#EX.RCD, (SP)

0000006
000001

SP,*

108

#1,-(SP)

1%
(SP)+
R1
138

RP.ADDR,RO
(SP)
, (SP)
14(R0)
#EX.OP.=(SP)
#2,-(SP)
SP.RO
1%
(SP)+, (SP)+
#XXx15, (SP)
#1,-(SP)
SP,RO
14

SP,*

6502
6510

SP,*

6512
SP,*

6513

000016
177740
000007

010202°
000001

6514

(SP)
EBH.TB1(RO),

#1,-(SP)

SP.RO

SP,+

Page 317

SEJZROABO.BLl:?BG(és)

6506

0000006
000001

000206

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

VVVRVRVVVVVVNVY

gl-Jul-1933 15:25:58
1=Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

000205

OOV

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

148:

104414

b d

=d ok

N — e e emd e

D md D e

RSNIZSRNSEISRENS

b md d ed wmd cd

8828888888828888s8

RP.ADDR,RO
4(RO) ,#204

6517

RO) ,#205

6518

6521

000205
16$:

0000006
000020
0000006
000002

: SP,*

0000006
000024
000026
0000006
000003

004737
062706
013700
55?027

000000V
000012
0000006
000014 000201

H-

03%289

000400

012716
012746
010600

0000006
000001

1046415

001

000014

15%:

17%:

000022

0000006
001000 000022

18%:

0000006
000001

012716
012746
010600
104414

0000006
002000 000022

0000006
000001

19%:

6523
6520

6525

RP.ADDR,RO
14(RO) ,#201
218
#400,22(R0)
188
#DF .0, (SP)

6528

6529

SP.RO

: SP,»

RP.ADDR, RO

6530

198
#DF.1,(SP)

6531

SP.RO

: SP,»

RP.ADDR, RO

6532

6533

1%
(SP)+

#1000,
22 (RO)
,-(5P)

104414

005726
013700
03%{89

6522

: SP,*

104414

005726
013700
032760
001407
012716
8}2766

6513
6515

1%
(SP)+

#2000,22 (RO)
208
#DF .2, (SP)
#1,-(SP)
SP.RO
14

: SP,*

Yol =l=l=l= =11l=1=l=1=1=1=l=l=l=i=]=]=]elelelele
e l=d=t=0-0 - =

104415
013700
016016
016046
012746
8}2766

0000006
000014 000204

1513

005726
013700
126027
001404
126027
001032
013700
016016
012746
8}2746

SEQ 217
318
P
V3=555
Bliss=16_
VAX=11
DISKSUSERZ:(DIETZ.RELEASEJIROABO.BL1:gB.(bS)

H
:

0000006
000002

—d b e i ) o b U ag

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES
104414
000410
01g916
012746
012746
010600

:
9

0000006

004000

000022

208:

0000006
000001

;

8288882 53

51-Jul-19 25*58

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

0000006

000014

000203

000400

000022

218:

0000006
000001

1=Jul=1983

(SP)+
R
RP.ADDR,

zagoo2é(no)

6534

cor
3§(sp)

6535

SP
14
(sp)+

: SP,*

RP.ADDR, RO

6538

25$
#400,22(R0)
228

6541

aor
¢§(sp)

6542

: SP,*

(SP)+
RP.ADDR,R

#1000, zé(ao>

6543

#DF.S, (SP)
1 ,-(5P)

6544

14(R0) ,#203

0000006
001000 000022

22%:

23s

0009006
000001

0000006
002000 000022

23$:

0000006
000001

0000006
004000 000022

24$:

0000006
000001

0000006
0000006

000003

SP.RO

: SP,»

RP.ADDR, RO

6545

#DF.6, (SP)
,-(5P)
SP.RO
1%
(SP)+
RP.ADDR, RO

6546

1%
(SP)+

gzooo,22(RO)

#4000,22 (RO)

: SP,»

SP.RO

: SP,»

CUOFF ,RO
RO
csr ADDR,RO
(SP)
, (SP)
6(RO)
-(SP)
6(R0), (SP)

1%
(SP)+

6547

258
#DF.7,(SP)
#,-(5P)

25%:

15:19:20

SEO 18
519
80
V3-555
6
Bliss=1
VAX=11
(65)
.BL1;10
JZROABO
RELEASE
[DIETZ.
ER2:
DISKSUS

OXX23§-(SP)

: SP,»

6548

6550

SRS s%

27%:

#XX19, (SP)

6554

?P.RO

: SP,*

6555

6557

7%
R

0000006
000001

013700
005002
156002
012701
020227
001010
005001
012716
8}2746

0000006

gP.ADDR.Ro

000014
177777
000204

14(“0%R2

0000006
000001

#EX.SCC, (SP)

SP.RO
14
(SP)+
R2,#211

: SP,*

1046414

104414
005726

020227

001010
005001
012716
8}2766
104414
005726

020227

001010
005001
012716
8}27‘6

28$:

000211
0000006
000001

020227

001010
005001
012716
8}27%6

020227

001010
005001
012716
012746
0106
104414

6555

R1
#EX.ONL, (SP)

6558

SP,RO

: SP,»

29%:

0006220

000241

#1,-(SP)
SP.RO
308:

0000006
000001

14
(SP)+
R2, 4241

31$

R1
#EX.RD, (SP)
#1,-(SP)

0000006
000001

000242

(SP)+
R2,#220
308
R1

0EX-ACC, (SP)

0000006
000001

104414

005726

29%

,~(SP)

104414

005726

P34~
P

012716
012746
010600

PR TR TRTR LA LRLR LA LR TRLR LR 1)

005003

268:

6500
6497

- LV

013742°

005704

H
K

318:

6555

6559

: SP,x

6555

6560

SP,RO

: SP,»

R2,#242

6555

#EX.WRT (SP)

6561

SP.RO
14

: SP,0

14
(SP)+

32§

#1,-(SP)

T T T T T TT

oY *vo 8

001402
000137

1
#14,SP
R

D d
o
D e
D
e
b d o

wvivawviviwnawa

000014

555585 %

ERROR MESSAGE SUBROUTINES

104415
062706

SEQ 219

Paso 220

DISKSUSERZ [DIETZ.RELEASEJZRQABO.BL1;10 (65)

RD/RX EXERCISER

28 38388838888888 S

VAX=11 Bliss=16 V3-555

#2,-(SP)
33s:

6555

6562

: SP,»

RP.ADDR,RO
;2(&0).040000

6564

$
#xx20, (SP)
#1,-(SP)

348:

1%
(SP)+

000013

SP.RO

: SP,»

ST.CODE
RO
35%
RO,#13

6567

6568

6570

#1,-(SP)

35§

)
, (SP)
ERR.COD=2(RO

1777766
000001

#1,-(SP)

SP.RO

: SP,»

378
RO,#37
36
(SP)
ERR.COD+26,
,~(SP)

:
:

6567
6573

6575

000037

35%:

0000266
000001

0000006
000002

007472"
0000006
000014
177400
000220
000241

36%:

(SP)+

RO, #4241

: SP,»
6573
6577

378
RO, (SP)
#EX.OP,=(SP)

=(SP)

37%:

6566

#%XX15,(SP)
1%

: SP,»

©O

10 (65):
D KSUSTR: EDIETY . RELEASEIZROABO.BL1

SP.RO

1%
(SP)+,(SP)+

sEQ

OO0

338
RP.ADDR.RO
(SP)
, (SP)
14(R0)
#EX.OP,=(SP)

e e e e e e e lc e e e v v e o lwlelelevleol=w]=le]=]

(SP)+
R1

VAX=11 Bliss=16 V3=555

= Y T

ERROR MESSAGE SUBROUTINES

SIITRTHIN3 3333 &

8888888888 38888 3§

21 oout=1983 13:93:38
1=Jul=1983 15:25:5

RD/RX EXERCISER

328:

: SP,«

H
:

6579
6581

6582

ERROR MESSAGE SUBROUTINES

2O
SO

000044
0000006
000002

NN
~
&~
o
o

e e

s Gy
e

par G

0000006
000014

000040
0000006
000002

0000006
€00003

0000006
000001

&H
=]
~

—

[«]=]

2esegs

O=000

s R

=200000

000050

0000006
040000 000014

0000006
000001

0000006
020000 000014

sea 221

322
(65)
D1SKSUSER2: [DIETZ. RELEASEIZROABO.10BL1:
AX=11

BLiss=16 V3=555

Page

6583

RP.ADDR,RO
, (SP)
44 (RO)
#X%26 ,~(SP)

6586

SP.RO
15
RP.ADDR,RO
20(R0) , (SP)

: SP,»

#2,-(5P)

6587

#XX25,=(SP)

gZ.-

: SP,»

6588

0000006
000024
000026
0000006
000003

§.

e
b D

—-0000=

0000006
000020
0000006
000002

38
RO #2642

O=000000=2000

oo o

N~
S

sesccese
NS
oR NS21 NNFE < N g 3 QN g 3
SRGSE
g
i;-u~wun
3 g 2 3 g
g8
ao bb&-fi 3
52828
28~ TR

. i I

SN
RNEF oPSINIZSAEE

S= g8sssssssss = -]

S}-Jul-1983 15:2 5:58
-Jul=1983 15:1 9:20

RD/RX EXERCISER

000242

: SP,*
RP.ADDR,RO
14(RO)
398
40(R0), (SP)
#xx21,=(SP)
#2,-(SP)
SP.RO
14
408
, (SP)
SO(RO)
(SP) ,=(SP)

6589

6591

: SP,+
6589
6593

#Xx22,=(SP)
#3,-(5P)

SP.RO
15
(SP)+
#XX41, (SP)

: SP,*

SP.RO

: SP,x

RP.ADDR, RO

6595

418
#F.1,(SP)
#1,-(SP}

6596

n,-(5P)
1%

#40000,
14 (RO)

;

SP.RO

: SP,«

RP.ADDR, RO

14
(SP)+

#20000,
14 (RO)
42%

6594

6597

Pelelelelelelelel=l=l=]l=]=lelelelel N 4 V]

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

%2.R0

42%:

44S:

5
#Xx39, (SP)
#1,-(SP)

SP.RO

0000006
000100 000022

45$:

0000006
000001

46$:

6611

Pl ~=l=]=lol=]

82§;a§ga§

000001

0000006
000020 000022
000001

6610

0000006
000040 000022

14
RP.ADDR,RO
22(R0)
[
#F. 4, (SP)
n, SP)
SP,RO
14
( SP)+
O
RP.ADDR,R
+AD
& 1 0. 22(R0)
46%
#F. 5, ( SP)
n, SP)
SP.RO
i

6585
6602

43$:

0000006
000001

#10000,
14 (RO)

6599

438

0000006
000001

0000006
000022

(SP)+

RP.ADDR,RO

0000006
000014 000204

6598

47%:

6612
6613

———————_

000024

SEQ 222
2
Paae
VAX=11 Bliss=16 V3-555
(65)
0
.BL1;1
DISKSUSER2:[DIETZ.RELEASE] ZROABO

-~~~

#F.2,(SP)
#1,-(SP)

0000006
000001

—2

0000006
010000 000014

—

o000 - O=000

zzg““=g

282

8 SSoR
g NN

=000

P
pery—y 2588
§° Sg“:
IS S g St gN38 gSz

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

0000006
000001

0600

228JR22

ERROR MESSAGE SUBROUTINES
488:
3700
7;;
6000
2709077
100000
20027
1
0000006
000001

498:

0000006

60 000002 000022
0000006
000001

508:

51$:

528:

0000006
000014 000211
7 013736°
0000006

538:

%6 000001

3700 0000006
60 000001 000022
0000006
000001
0000006
60 000002 000022

0000006
000001
0000006

6000 000022

6615

TRAP

:
; SP,*

MOV
BIT
BEQ

RP.ADDR, RO
#2,22(R0)
50$

(SP)+

6616

6617

MOV

#F.9.(SP)
#1,-(SP)

SP,

;s SP,»

MOV
gg

RP.ADDR, RO
g}‘zzmb)

6618

6619

. [0]"]

SP.RO

: SP,*

MOV
MOV MOV
ST

14
(SP)+

TRAP
ST

#F.10, (SP)
#1,-(5P)
14
(SP)+

TRAP
ST

MOV
CMPB
BEQ
JMP
MOV

RP.ADDR, RO
14(R0),#211
53
658
#XX40, (SP)

(SP)+

6621

6624

MOV
BIT
BEQ
MOV
MOV

TRAP

np ADDR RO
2(R0)
s4i
#F.11,(SP)
#1,-(5P)

6625

6626

TRAP
ST

14
(SP)+

#1,-(5P)

MOV

MOV
gg

MOV

55$:

TRAP
ST

MOV

6604

SP.RO

: SP,*

RP.ADDR, RO
gg‘zzmé)

6627

6628

sp.n

: SP,%

RP.ADDR, RO

cr 12, (SP)
-($P)

MOV
MOV

VAX=11 Bliss=16 V3=555
z TDIETZ. RELEASE JZROABO. w:?fi'cos:
oxssteu

#F.8,(SP)
#1,=(SP)
SP,
14

MOV
BIC
CMP
BNE

MOV

548:

1=Jul=198 2 :58
3 15:19:20
51-Jul=198
RP.AD
fi
22(79
c
bo
496

6614

MOV
MOV

0000006
000001

223

MOV

MOV
MOV

0000006
60 000001 000022

SEQ

14
(SP)+

22(R0) RO

6629

RD/RX EXERCISER

OO0V

%1-Jul-198
ZS S8
1=Jul=1983 15:19:20

*§§§§23

077777
100000

(el

bag

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES
4

w
-

0000006
000001

0000006
040000 000022

56%:

0000006
000022

0000006
004000 000022

5
#F.13,(SP)
#,-(SP)

58$:

RP.ADDR, RO

;gooo,02(RO)

(SP)+
RP.ADDR,RO
2(R0)
13
#F.15,(SP)
21.-(5P)
‘RO
1%
(SP)+
RP.ADDR

#4000, 22(no)
598
#F.16,(SP)
#1.-(5P)

0000006
000001

1%’

0000006
002000 000022

59%:

760

000000C
000100 000022

0000006
000001

#2000,22 (RO)
608

#1,-(SP)

60$:

SP, RO
14
(SP)*
RP.ADDR,RO

61$:

DISKSUSER2: CDIETZ.RELEASEJZROABO.BL1; 1

(65)

6630

6631

6632

: SP,*

6633

6634

: SP,*

6635

6636

: SP,»

6637

6638

; SP,x

6639

18§(SP)

6640

SP-RO

: SP,x

2gooo22(ao)

6641

6642

2100.22(R0)
1$

0000006
000001

0000006
020000 000022

(SP)¢
RP.ADDR,RO

#F.17,(SP)

0000006
000001

1%
(SP)+

01 L=($P)

0000006
000001

VAX=11 Bliss=16 V3=555

RO, #-100000

57%:

seo

#77777 R0

#F.14,(5P)

0000006
000001

14
(S
RP.ADDR,R

62
19§($P)
OF

1-Jul=1983

0000006
000004 000022
000001

6643

6644

SP,

: SP,+

RP.ADDR, RO

6645

#F.21,(SP)
#1,-(SP)

6646

14
(SP)+

#4,22(R0)
64$
SP.RO
(SP)+
(SP)+

#6,SP

67%:

R3
67%
85$
RP.ADDR,RO
(SP)
3(R0), (SP)
#Xx38,=(SP)
#2,-(SP)
1%

H
|
|

6623
6553
6497

6651

: SP,»

6652

R1
#EX.SCC, (SP)

6654

SP.RO

: SP,»

a2 4304
68$

0000006
000001

#1,-(SP)
1%

68$:

0000006
000001

000220

: SP,»

: -

RP.ADDR,RO
R2
14(R0) ,R2

177777
000204

000211

1;
10 (65)
D1SKSUSERZ: [DIETZ.RELEASEJZROABO.BL
$

#10000,22 (RO)

0000006

225

396

(SP)+
RP.ADDR, RO

#F.20,(SP)
#1,-(SP)

638:

S€q

: SP,+

638

000001

VAX=11 BLiss=16 y3-555

Page

S$P,RO
14

&»

g §saes§§

ERROR MESSAGE SUBROUTINES

62%:

15:25:58

21odut=1983 13:93:30

RD/RX EXERCISER

0000006
010000 000022

6652

R1
#EX.ONL, (SP)

6655

SP,RO

: SP,x

R2,#220

69%

#1,~(SP)

698:

14
(SP)+

70§

6652

51-Jul-198§ :25:58
:19:20
-Jul=198

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

000241

VAX=11 Bliss=16 V3-555

DISKSUSER2: DIETZ.RELEASE

R
#EX.ACC, (SP)

0000006
000001
6

12R0AB0.8L118" (65)

H sPo.

1%
(SP)+

6652

R2,#241

71$

6657

#EX.RD, (SP)

0000006
000001

226

6656

.~(SP}

708:

s€a

sP)

46
6

(SP)+
R2,#242

72$

#EX.WRT, (SP)

0000006
000001

,~(SP)

000211

72%:

0000006
000001

000220

6658
H SP.'

6652

R
#EX.ONL , (SP)

6659

73$

SP.RO
14
(SP)+

H SP.'

6652

R2,4#220

74$

R1
#EX.ACC (SP)

#1,-(SP)

000001

000241

&24211
#1,-(SP}

73$:

6652

SP,RO

74%:

in
(SP)+
R2, 4241

; SP,*

6652

75$

lEx.RD.(SP)
#1,-(SP)

000001

000242
0000006
000001

SP,RO

75%:

1%
(SP)+

6652

R2,#242

76$

#EX.WRT, (SP)

#1,-(SP}
SP.RO
1%

: SP,*

[el=]lel=]eleleleleleleleleleleleleT=]

000242

718:

ERROR MESSAGE SUBROUTINES

e P )

B D PR PR PP PR e =
S PRSP RS PR S RPN RS RE TM
.L I
e

(SP)+,(SP)+

RP.ADDR,
RO

15{&0) ,#60000

7
#Xx20, (SP)
#1,-(SP)

RENvEE

o-nooo-ooog
€ b b b PN <9z2009200
bb

78$:

1%
(SP)+
#XX15, (SP)
M ,-(5P)

X .}

RP.ADDR,
RO
16(R0) , (SP)

H
3

6652
6663

: SP,¢

6665

: SP,»

6666

: SP,x

6667

9177740, (SP)
#2,~(SP)

[« ¥ X =T N

SEQ 227
528
Paac
V3-555
Bliss=16
VAX=11
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1;10 (65)

#EX.OP,=(SP)

SP.RO

: SP,*

#Xx16, (SP)
#1,-(SP)

-0

b ) i e o

o
©

(SP)+
Rl
7%
RP.ADDK,RO
(SP)
, (SP)
14(RO)
X.0P,=(SP)

#2,-(SP)

e I O
S
N
B

3
d
¥
PRSNIITERENRSER

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

RD/RX EXERCISER

76$:

6668

: SP,»

6669

006201

174000

0000006
000002

000014
177400
000220

000241

: SP,»

3
RO #220
79
RO, #2461

6678

:
£

ERROR MESSAGE SUBROUTINES
79%
RO,#242

828

RP.ADDR,RO
&4 (R0O) ,(SP)
#Xx24 ,=(SP)

St:354

SRRSH

0000006
000044
0000006
000002

#2,=-(SP)
1

6683

: SP,+

6684

RP.ADDR,
RO
, (SP)
24(R0)
26(R0) .=(SP)
#X%26,=(SP)

SP.RO

: SP,*

RP.ADDR,
RO
14 (R0)
80s
, (SP)
40(RO)
#xx21,=(SP)
lZ.-éSP)

6686

6688

#3,-(5P)

15°

000040
0000006
000002

808:

000050

0000006
000020
0000006
000002

81%
S0(R0O),(SP)
(SP) ,=(SP)

#3,-(5P)

SP.RO
15

000022
0000006
000014 000204

000014

0000006
000024
000026

: SP,»

6685

" SP,*

:
s

6686
6690

#Xx22,=(SP)

0000006
000003

6680

0000006
000024
000026
0000006
000003

i?:CNDG’
£
3
R
g5 RRag g ARSnE 53S
&H

D USRS IDIE TS, RELEASE JZROABO.BLY; 10 (65)

—

=200000

=3S ~ 1RS
)
e
e

228

RP.ADDR,RO
, (SP)
20(R0)
#Xx25,=(SP)
lg.-(SP)
SP.RO

818:

000205
83$:

83s
14(R0) ,#205
848
RP.ADDR,RO
, (SP)
20(R0)
OXXZS.'(SP)
#2,-(SP)

VAX=11 Bliss=16 V3=-555

sEq

0000006
000020
0000006
000002

0000006
000014

=200000

Bak

SR
e Ry BRSSP RRR 28
SN FE R R RN
RS RRN

1=Jul=1983 15:25:58

S1-Jul-1983 15:19:20

RD/RX EXERCISER

000242

RP.ADDR,RO
, (SP)
4 (RO)
6("0).-(SP)

: SP,»

H
|

6682
6692

6693

6696

: SP,»

6697

CUOFF ,RO

0000006

004 706

004712
004716
004722

: Routine Size:

(SP)
6(R0) (SP)

#XX23, = (SP)

#3,-(SP)
RO

PC,EMS.DUP

000000V
000020
000020

#20,5P

#20.5P

84$:

85%:

000016

RTS

#16.SP
PC

Routine Base: $CODES + 10220
2 words
invocation:

1258 words.,

Hoxinun stack depth per

6698

(SP)

000006
0000006
000003

062706
062706
000207

6(R0) (SP)

000006

004702

: SP,*

CST.ADDR,RO

0000006

b
004737

V3-555

: SP,*

s
s
s
FF.

6699
6695
6650
6474
6463

|
#Xx26,=(SP)
~(SP)

0000006
000003

AX=11 Bliss=16
ERZ’EDlETZ RELEASEJZROABO.BL1;1.8‘(65)
ngKSUS

ORRRRRRRRRRRRRRRARRRRRRIRIIIKNI]

ERROR MESSAGE SUBROUTINES

SEO 529

000000000000

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

RD/RX EXERCISER

004672
004676
004700

OO0

VAX=11 Bliss=16 V3=555

:58

S
89
(66)
seo

DlswaERZ [DIETZ.RELEASEIZROABO.BL1;1

9:20

Q;m ROUTINE EMS_DBN : NOVALUE =
:

THIS ROUTINE PRINTS THE PRESENT DBN

IMPLICIT INPUTS:

CST_ADDR = ADDRESS OF CONTROLLER STATUS TABLE

BEGIN

! *DISK XXX

720 PRINTB (XX13, .CDISK):

PRINTB (XX23. .CST_ADDR t CUOFF + 3, D_DBN], .CST_ADDR C.CUOFF + 3, D_DBNJ);

PRINTB (XXx32, .S_DUPPKT = 2);

I"PRINTS THE BYTE COURT

EMS_BLK (DUPPKT +2, 256);

i PRINTS THE WHOLE BLOCK READ IN OCTAL

! DBN: XXXXXX.'

i PRINTS tne PATTERN WRITTEN
PRINTB (XX33, .SPAtTERN)
! PRINTS THE WORD READ
PRINTB (XX34. .(BUPPKT + .S_DUPPKT), .(DUPPKT + .s DUPPKT)) ;

0000006

0000006
000002

Y
e e omd o P
dg
-~Sug
"’N“‘E
RO
NNRSIES NN
NNNNS

MOV

CDISK,=(SP)

SP.RO

: SP,*

CUOFF ,RO

EMS.DBN::

MOV
MOV

#Xx13,-(SP)
#2,-(SP)

TRAP

MOV

0000006

ADD

MOVB

6(R0O),(SP)

000003

MOV

#3,-(SP)

000002
0000006
000002

S
OTM

MOV
TRAP
MOV

#XX23.=(SP)
SP.RO
14
S.DUPPKT, (SP)

sus
MOV
MOV

#2,(SP)
#Xx32,=(SP)
#2,-(SP)

MOV

S.PATTERN, (SP)

MOV
TRAP

SP,RO
14

MOV
MOV
MOV

#Xx33,-(SP)
#2,-(SP)
SP,RO

0000006

MOV

0000006
000003

MOV
MOV

S.DUPPKT
) (SP)
ouprxttaé
(SP) ,=(SP)

0000006
000002

TRAP

MOV
MOV

6721

(SP)

000006

MOV

6720

CST.ADDR,RO

gfxs

16 0000006

2 NS

CLR

000006

16 0000006

46
%6

ASL

6(20),(SP)

OO0

EMS.DBN ERROR MESSAGE SUBROUTINES

MOV

OO0 =OOO0O=0OO0O=0O=

.SBTTL

0000006

46 0000006

i ROUTINE EMS=-DBN

END;

#Xx3%,=(SP)
#3,-(5P)

99999999999999922222222228282852888888888888888888888 a3

\fi\fl

]

[a8)

%1-Jul-1
1=Jul=1

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

2
00
o 0o

: SP,*
:

6722

: SP,*

6723

: SP,*

6724

|
7

1=Jul=1983

#DUPPKT+2, (SP)

0000026
000400

#400,=(SP)

PC,EMS.BLK

000000V

#34,5P
PC

: Routine Size:

63 words,

Routine Base: SCODES + 15144
15 words

Haxinun stack depth per invocation:

15:19:2

1 (66)
DlSK‘USERZ [DIETZ.RELEASEJZRQABO. BL1;‘Be
VAX-11 Bliss=16 V3-555

6725

6719
6712

$1-Jul-19 ZS:S

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

SEO 231

CO000002002RNRRRV0OVIVIVIVIVISSS 2222228388

ERROR MESSAGE SUBROUTINES

SEO 232

233
‘8.(67)
ABO.BL1;1
LEASEIZRQ
[DIETZ.RE
2:
DISKSUSER
S 'ng-198 5:19:20
1=Jul=-1983 2 :58

RD/RX EXERCISER

ZRQAM2
v01.2

VAX=11 Bliss=16_V3+555

ROUYINE 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.

fizgin
OWN

MESSAGETYPE : VECTOR [6] INITIAL (T_QUE, T_DEF, T_INF, T_TER, T_FAT, T SPL),

MSGNUMBERS

: VECTOR [9) INITIAL (M"TER, MBIN, n’coo. n‘oA. M"UR, ‘M_ORP, M_UP, M_UL, M_ASC),

RCD_ERRORS TABLE
: VECTOR
[5] INITIAL
(ebhlesius!
30, E UNT,
E BLK, Emoexéo
DEV, Eé)
OF BASIC,
HARD ERROR
moaeSses.
sv STATUS CODE

IPRINTB (XX13, .coxsm
PRINTB (XX29):

:;eaduppkt tduptype] lss 6
L

PRINTB (.MESSAGETYPE [.DUPPKT [DUPTYPE] - 11)

printb (ex_op, .duppkt [duptypel);

PRINTB (XX30);

i; .duppkt tdupnesg] lss 9
en

PRINTB (.MSGNUMBERS [.DUPPKT [DUPMESG] = 11);
%;E.DUPPKT CDUPMESG] EQL 3
BEGIN

PRINTB(XX31)

PRINTB (.RCD_ ERRORS C.DUPPKT [DUPBF111);

end

END;

elge printb (ex_op, .duppkt [dupmesgl);
end;

MESSAGETYPE:

015376

0000006
0000006
0000006
0000006
0000006

.WORD
.WORD
.WORD
.WORD
.WORD
RD
MSGNUMBERS
RD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.QUE
T.DEF
T.INF
T.TER
T.FAT
T.SPL
M.TER
M.BIN
M.COD

M.DAT
M.UR
M.URP
M.UP
M.UL
M.ASC

. ».

2222233333323 232333333238338323323323232323232323288 S

015402
015404
015406
015410

0000006
0000006
0000006
0000006

000020
000022
000026
000026
000030
000032

RCD.ERRORS:
.WORD
"WORD
"WORD
"WORD
.WORD

012746 0000006
012746 000001
010600
104414
013700 0000006
006200
006200
006200
006200
000300
042700

.SBTTL

EMS . DUP : MOV
MOV
MOV
TRAP
MOV

ASR
ASR
ASR
ASR
SWAB
BIC

177760

CMP

000036 020027 000006
000042

002010

000044 006300

000046
000052
000056
000060
000062
000064
000066
000072
000076

000100
000102

016016
012746
010600
104414
000410
010016
012746
012746
010600

BGE

ASL

015340°
000001
0000006
000002

104414
005726

000104 012716 0000006
000110 012746 000001
000114 010600

18:
28:

000130 020027 000011

000134

TRAP
TST

333135
5?'5’533 0000006
000160 042700 170000

#XX29,=(SP)
#1,-(SP)
SP.RO
14
DUPPKT RO
RO
RO
RO
RO
RO
#177760,R0

RO, #6
1$

, (SP)
MESSAGETYPE=2(R0)
#1,=(SP)
SP.RO
14
23
RO, (SP)
#EX.OP,=(SP)
#2,-(SP)
SP.
14
(SP)+

RO, #11

DUPPKT,RORO
#170000,
3s

MOV
MOV
MOV

, (SP)
MSGNUMBERS=2(R0)
#1,-(SP)
SP.RO

BIC

RO
#170000,

CMP
BNE
MOV
MOV
apes

gfpm RO

RO,#3
X1
#Xx31, (SP)
#,=(5P)

:
; SP,+
:

6740

6743

: SP,w
;
:

6741
6745

6741

; SP,*
;
: SP,*

6747

6751

: SP,*

6748

6752
6755

EMS.DUP ERROR MESSAGE SUBROUTINES

CMP

;399

020027 000003
001031
012716 0000006
012746 000001

E.UNT
E.BLK
E.DEV
E.ZE

#Xx30, (SP)
#1,-(5P)
SP.RO

ASL

000140 016016 015354°
000144 012746 000001
000150 010600

233

EBH.30

MOV
MOV
MOV
BGE

002037

000136 006300

000164
000170
000172
000176

MOV
MOV
MOV
TRAP
BR
MOV
MOV
MOV
MOV

v
BIC

013700 0000006
000138
000124 042700 170000

SEQ

e 0000008000000 00000000%000%0%000080%00%000% % 0000

0000006

N-]

015400

VAX=11 Bliss=16 V3-555

1D (67)
S1Jul=1083 13193130 DISKSUSER2: LDIETY.RELEASEIZROABO.BLI:

ERROR MESSAGE SUBROUTINES

VO1.2

000000
000006
000010
000012
000014

21=Jul=1983 15:25:58

RD/RX EXERCISER

ZROAM2

P lelelelelelelel=lel=lel>]=lelel=]lelelelelele

SP.RO

: SP,+

DUPPKT+2,R0

21=Jul=1983 1 :25:58

SBpvieiiteneE3te

RO
, (SP)
(RO)ORS
RCD.ERR
~(SP
SP.RO
14
(SP)+,(SP)+
4«3
RO, (SP)
#EX.OP,=(SP)

015400°*
000001

#2,-(SP)
RO

(SP) +
nea.sp

g32eseges00e gezs

21=Jul=1983 1 :19:20
14

0000026

89 words,

Routine Base:

: Maximum stack depth per invocation:

SEQ 234

Paso 235
VAX=11 Bliss=16 V3-555
(67)
.BL1;10
IZROABO
DISKSUSER2: [DIETZ.RELEASE

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

; Routine Size:

OO0
RRILVLIVLSRAVR

$SCODES + 15412

6756

: SP,t

3
s
:

6754
6748
6759

: SP,x

i
:

732
6727

1=Jul=1983 15:25:5

sl-Jul°19l 15:19:28

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

A A L T P T P PRTR P TR TR T PR TR TR T §'§
ne

SEQ

235

236
(68)
DISKSUSERZ:[DIETZ.RELEASEJZROABO.BL1;18e
VAX=11 Bliss=16 V3-555

Page

global routine EMS_BLK (ADDR, LENGTH) : novalue =
'+

j={=3=4

THIS ROUTINE WILL PRINTX A BLOCK OF MEMORY WHICH IS 'LENGTH'' WORDS
LONG STARTING AT ADDRESS ‘‘ADDRTM. PRINTING IS DONE IN OCTAL, 8 WORDS

i
i

TO A LINE.

Literal
MASK = %0°'7°;
PRINTX (CRLF);

begin

! FOR EACH WORD TO PRINT

incr bggtiui from 1 to .LENGTH do
n

! PRINTX & SPACES

PRINTX (EX_WRD, ..ADDR);

! PRINTX A WORD

ADDR = .ADDR + 2;

i ADVANCE TO NEXT ADDRESS

if (CC.COUNT and MASK) egl 0) or

! IF AT THE END OF A LINE OR

OO0

PRINTX (SPACE4);

! IF AT START OF A NEW LINE

:g ((.COUNT = 1) and MASK) eql 0

| WHEN DONE

(.COUNT eql .LENGTH))

! PRINTX <CR><LF>

PRINTX (CRLF);

end;

.SBTTL

EMS.BLK ERROR MESSAGE SUBROUTINES

MOV

R1,=(SP)

MOV

SP.RO

: SP,*

: COUNT

6774

: COUNT,*

6777

6779

EMS.BLK::

§§§§w§a§§§3§§
V= \NO OO

ER P 8 85§§§

—=0000020

MOV
MOV

0000006
000001

TRAP

CLR

18:

000007

DEC

5
R1,RO
RO

#7.R0
2s

MOV

SP.RO

: SP,

a12(SP), (SP)
#EX.WRD,=(SP)

: ADDR,*

TRAP

2s:

BIT
BNE

MOV
MOV

0000006
000001
000012
0000006

BR
MOV

#CRLF ,=(SP)
#1,-(SP)

MOV
MOV

#SPACE4, (SP)
#,-(SP}
15
(SP)+

6761

6773

6781

#2,-(SP)

000002
000007

15
#2,16(SP)
#7,.R1

SP.RO

000014

0000006
000001

3s:

38
R1,14(SP)
&%
#CRLF
, (SP)
#1,-(SP)
RO

15°

4(S:

000010

5$:

(SP)+
gm.(sm

R1,10(SP)
1
(SP)+,(SP)+
(SP)+,R1
PC

Routine Base: SCODES + 15674
: Routine Size: 53 words,
; Maximum stack depth per invocation: 8 words

000002

SEQ

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

: SP,»
: *,ADDR

s *,COUNT

6782
6784

s COUNT,LENGTH

6785

LOD

ERROR MESSAGE SUBROUTINES

15:25:5

6787
: SP,+

: COUNT
: COUNT,LENGTH

6775
6774
6769
6761

S1°J:l-19 g 15:19:28
1=Jul=1983

RD/RX EXERCISER

000016

OVVVVVY

! PRINT ** DCT TABLE CONTENTS'®

IPRINTB (EB_DCT,dct);

! PRINT BLOCK OF WORDS

VEMS_BLK (DCT, DCT_LEN);

IPRINTB (EB_COMM,

.DCT [0,

RR_BEG)):

VEMS_BLK(.DCT [0, RR_BEG]= &, COMM_LEN);

'PRINTB (EBNEX1, .DCT [0, RR_POLL));

! PRINT *‘COMMAND RING'' AND STARTING ADDR

' PRINT BLOCK OF COMMAND RING

IPRINTB (EB_PKT);

.DCT O, CR_POLL) - 8);

incr coumifm 0 to PKT_CNT = 1 do

‘end;

IPRINT ADDR OF COMMAND OF NEXT RR POLL

IPRINT ADDR OF PACKET TO BE POLLED

'PRINTB (EB_NEX2, ..DCT [0, RR_POLL] - 8);
'PRINTB (EBNEX3,

Se e

ibegin

THIS ROUTINE PRINTS ALL TABLES IN AN EFFORT TO FIND THE MISSING MESSAGE OR THE PROBLEM

IPRINT ADDR OF PACKET TO BE POLLED

! PRINTS "PACKETS IN MEMORY'
i FOR EACH MSCP ENVELOPE

%BLK ((MSCP_PKT [.COUNT, 0,0,16,01), PKT_LEN);

'PRINTS CONTENTS OF PACKETS

;Ebufiiflfijfl.:MMMuES

[=3={=={={-2

§§§§§§§§§§§§§§§§§5
e R
R

VA WN=O

ETT

237
SEQ
g
P
VAX=11 Bliss=16
RELEASEJZROABO.BL1:?8'( 9)
RZ DIETZ.V3-555
12:‘9:38 DISKSUSE
°J=l-19sg 15:25:
S1=Jul=1983

EXERCISERSUBROUTINES
RD/RX
CRROR MESSAGE

8N
L PR L L T
T A T
TR A TR
AT
TR
TA
A
A
A R
IR

EXERCISERSUBROUTINES
RD/RX
ERROR MESSAGE
;300!1:& EMS_RAL : NOVALUE =

THIS ROUTINE PRINTS ALL return packets IN AN EFFORT TO FIND THE MISSING packet OR THE PROBLEM

ibegin

'PRINTB (EB_RAL);
gincr COUNT from 0 to RP_CNT = 1 do
begin
:

E:%.BLK (C(RETPKT + .COUNT = RP_LEN) , RP_LEN);

! PRINT BLOCK OF WORDS

‘end;

QOLRIIR L

)

[« VR AV N B

EREEREREELESS

VWO~

IRQAM2
v01.2

SEQ 238
539
P
V3-555
Bliss=16
VAX=-11
15:25:58
3
21=Jul=198
?8.(70)
E]ZROABO.BU:
DIETZ.RELEAS
DISKSUSERZ:I
15:19:20
21-J::l°1983

:
3
:

6837
6838
6839

:
:

684
23",,,,

;

ggzz

IN
APPEARING
NUMBERS
BLOCK
TWO
OF
ONE
(EXTENDED)
PRINTS
ROUTINE
THIS
THIS
PRINTED;
IS
FIELD
LBN
THE CURRENT RETURN PACKET. NORMALLY, THE

THE ASSOCIATED COMMAND
FIELD WAS COPIED INTO THE RETURN PACKET FROM CURRENT
RETURN PACKET
THE
OF
PACKET. HOWEVER, IF THE 'FLAGS'* FIELD
FIELD IS
BLOCK'*
BAD
INDICATES ‘BAD BLOCK REPORTED'', THEN THE 'FIRST

|
6836
6835 |
6836 |
ggzg

6847

PRINTED.

|
!
|

IMPLICIT INPUTS:

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET

::MB‘ITJST (RP_ADDR [FLAGS), EF_BBR)

! IF BAD BLOCK REPORTED

elLse

! "LBN: XXXXXX.'*

; PRINTX (XX21, .RP_ADDR [BBLK_LO], .RP_ADDR [BBLK_LO])

000000 013700 0000006
000006 005760 000014
000010 100012
000012 016046 000040
000016 011646
000020 012746 0000006
000026 012746 000003
000030 010600
000032 104415
000034 000411
000036 016046 000050
000042 011646
000044 012746 0000006
000050 012746 000003
000054 010600
000056 104415
000060 062706 000010
000064

000207

i
“gi
eag‘ i

- 288

PRINTX (XX22, .RP_ADDR CLBN_LOJ, .RP_ADDR CLBN_LOJ);
.SBTTL

EMS . LBN:MOV
ST
BPL
MOV
MOV
MOV
- KOV
MOV
TRAP
B8R
18:
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
28:
RTS

! *BAD BLOCK REPORTED: XXXXXX.''

EMS.LBN ERROR MESSAGE SUBROUTINES

RP.ADDR, RO
1$
40(R0) ,~(SP)
(SP) ,=(SP)
#xx21,=(SP)
#3,-(5P)
SP.RO
15
;s
0(RO) ,~(SP)
(SP) ,~(SP)
#Xx22,=(SP)
#3,-(5P)
SP.RO
15
#10,5P
PC

: Routine Size: 27 words,
Routine Base: $SCODES + 16046
: Maximum stack depth per invocation: 6 words

:
: SP,*
:
:
: SP,*

QRANIRRKR B

6829

SEQ 239

Paso ;60
1;10 (71)
2:
ZROABO.BL
SER
[DIETZ .RELEASEJ
DISKSU

routine EMS_LBN : novalue =

21=Jul=1983 15: 19:20

ERROR MESSAGE SUBROUTINES

VAX-11 Bliss=16 V3-555

RD/RX EXERCISER

ZRQAM2

v01.2

;
:
:

S
21-Jul=1983 15:25:58

1R 2

gREERERER

THIS ROUTINE IS CALLED FROM *SEQUEN® AND °"DATAGM® AND PRINTS THE CONTENTS OF THE

ERROR-LOG PACKET
begin

local

: nt block CEP_LEN, word] field (EP_FIELDS),
ELOG_ADDR

REASON : uor

DISK_|NUM : b‘to.

: m.
ELOG_CODE
ELOG_SUB: word

6861

EEREREREE

6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879

ELOG_ADDR = ELOG_PKT + ( 1n¢ox * EP_LEN * 2):;
REASON =
.ELOG
ADDR
tet

DISK_NUM = .ELDOG
= .ELocADDR [CEC CUDEJ
ELOG_CODE
= 5006ADDR CEL_SUBCODEJ;

ELOG_SUB

PRINTB (ELG_

£ 383
6897
6898

ERROR LOG PACKET'S ADDRESS

FORMAT
DISK NUMBER
CODE
SUBCODE
ERROR-LOG MESSAGE RECEIVED

if (.REASON eql FORMAT_CNTR) or

(.REASON eql FORMAT_HCST)

then

PRINTB (.ELG_FMT [.REASON])

! PRINT BASIC REASON

PRINTB (.ELG_FMT [.REASON], .DISK_NUM);

! PRINT BASIC REASON WITH DISK NUMBER

else

if (.ELOG_CODE

tru 0) and

(.EL0G_CODE lequ 11)

then

(ASTERISK) ;
PR?NTX
::5urx (.ERR_COD [.ELOG_CODE - 11);

! CODE

else :

gfl.‘ELOG CODE eql ST_DIA

6887

6889
6890
6891
6892
6893

228

3
6850
6851
685
685
68
6855
68
6857
6858
6859

FAR

global routine EMS_EL (index) : novalue =

! MESSAGE FROM INTERNAL DIAGNOSTICS

pa?nrx (ASTERISK);

zggurx (.ERR_COD £121);
if (.ELOG_CODE eql ST_MFE) and

- (.ELOG_SUB lequ107
en

”?NTX (CRLF);

PRINTX (ASTERISK):
PRINTX (.TBL_MFE t. ELOG_SUBY);

! MEDIA FORMAT ERROR

QLANIVNVRS B

SEQ 240
uif‘r‘%‘;
3-555
Bliss=16_V
VAX=11
:58
2
l98
$1-Jul-‘
DISKSUSER2:[DIETZ.RELEASEIZROABO.
1=Jul=1983 15:19:20

EXERCISER
RD/RX
ERROR MESSAGE SUBROUTINES

SN
O O A TR TRTR TR PR R PR LA LALR LA TR TR DR TR LA1) Ve 00 90 9090000090080 0800008000 % %0000
MR E I I AR I I T T R T OO O

1=Jul=198

5:19

VAX=11 Bliss=
slY e EASE 12R0AB0.BLY: 1D ¢%
A
16 V3°555

end;

eql ST_DAT) and

(.ELOG_SUB l’q 157

(CRLF);
PRYNTX
PRINTX (ASTERISK):

PRINTX (.TBL_DAT [.ELOG_SUB));

DATA ERROR

(CRLF);
be?NTX
PRINTX (ASTERISK)

PRINTX (.TBL_HST . ELOG_SUBJ);

[ TETE TR 1

if (.ELOG_CODE eql ST_HST) and
(.ELOG_SUB Llequ &)

! HOST ACCESS ERROR

it (.ELOG_CODE eql ST_CNT) and

_SUB lequ 3)~
t”e'('.ELOG

PR?NYX (CRLF);
(ASTERISK):

PRINTX
PRINTX (.TBL_CNT [.ELOG_SUB));

CONTROLLER ERROR

R TR A TR R LA TR PR TR L 1 ML L
SR TN AR R A A

if (.ELOG_CODE eql ST_DRV) and

- (.ELOG_SUB lequ 8)°

PR?NTX (CRLF); );

PRINTX (ASTERISK
PRINTX (.TBL_DRV [.ELOG_SUBJ);

:; .ELOG_ADDR [EL_BLOCK_TYPE] eql TYPE_LBN

DRIVE ERROR

! IF DISK XFER INVOLVED

if .REASON eql FORMAT_XFER
then

! PRINT LBN OR RBN

PRINTX (XX22, .ELOG_ADDR [EL_BLOCK], .ELOG_ADDR [EL_BLOCKI])

PRINTX (EX_RBN, .ELOG_ADDR tEL_BLOCK]. .ELOG_ADDR [EL_BLOCK]);

PRINTX (CRLF);

EMS_BLK ((.ELOG_ADDR + 2)

=
ELOG_ADDR EEL_CONTENTS)

end;

- 888

if (.ELOG_CODE

Qfl

ZR(

Vo'

ERROR MESSAGE SUBROUTINES

:58

2
.

A T TRTR DR TR LA TR D L L 1 e 00 %0 %080 %% %00

v01.2

51 =Jul=198

RD/RX EXERCISER

8 8

IRQAM2

LOGADDR CEL_MSGLEN] + 1) / 2) + 2); ! PRINTX CONTENTS OF PACKET
! DECLARE SAVE AREA FREE

~ -

33EBEHB;E
8455gu

VAX=11 Bliss=16 V3-555
R2:
[DIETZ .RELEASE]
DISKSUSE

EMS.EL ERROR MESSAGE SUBROUTINES
R1,$SAV

e 38

ZROA80.8L1:?8e( )

6848

6864

Qe %0 % % %

INDEX,*

«,ELOG.ADDR

m 888

S1-Jul-198
1=Jul=198

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

.SBTTL
EHS.EL::#SR

Se %

REASON

+(ELOG.ADDR) ,REASON
«(ELOG.ADDR) .DISK.NUM
+(ELOG.ADDR)
,*

ELOG. CODE

ELOG. SUB

ELOG. SUB
ELOG. SUB
ELOG. SUB
746

174000

#174000,R1

000001

SP
14
R4 ,R5
RS
R4
1$
R4 .M

0000006
000001

000002

Bpaeness

ENRSE o

~
N =2
Py

=(SP)

[

(SP)

SP,*
REASON,
*

6874

REASON

6871

REASON,
*

6872
6874

SP,+

000013
000001

6(SP), (SP)
en.e.nsmm ,=(SP)

DISK.NUM,

SP.RO

SP,*

1%
(SP)+
R2
31

R2,M3

#ASTERISK, (SP)
#1,-(SP)

SP.RO
15

«,ELOG.SUB

=000=

=D
S OO0

%
ELG.FMT(RS5),(SP)
14

3 NO& g5

0000006
000001

OELG.OOS(SP)

ELOG. SUB

e 8

+,ELOG. CODE
+(ELOG.ADDR) ,EL0G.SUB

6871
6876

ELOG.CODE

6878

ELOG.CODE,*

6879

SP,*

01.;63?)

5%:

6$:

000005

—-000

000017

; ELOG.SUB,*

6895

6898

#1,-(SP)

‘

78:

: SP,*

:
: ELOG.SUB,*

6900

: SP,»

:
: ELOG.CODE,*

6897
6903

: ELOG.SUB,*

6904

6907

?g.RO

: SP,e

0000006
000001

#ASTERISK, (SP)
.
~(SP)

000120°

6899

: SP,*

0000006
000001

SP.RO
15
R1,RO
RO
)
, (SP)
TBL.DAT(RO

S B4

: SP,»

$
#CRLF, (SP)
#1,-(SP)

§§°°O
S&3 NE
;‘-.-.

OO NN

O=0ON)
= RININN)
OONONN=N

tt=te
NSO =D R
—_—

OOO=O
-3

000006
000010

6891

R1,#12
78

SP.RO
15
R1.RO
RO
)
, (SP)
TBL.MFE(RO

000001

6889
6894

#ASTERISK, (SP)
#1,-(SP)

OE N
sxes
3
g 2 5588

s SP,*

:
s ELOG.CODE,*

0000006
000001

6890

(SP)+, (SP)+
R2,45

#CRLF, (SP)
#1,-(SP)

0000006
000001

— et
e
—_

15°

6908

: SP,x

; ELOG.SUB,*

L L

(SP)
ERR.COD+30,

0000306
000001

6881
6887

75"

:
: ELOG.CODE,*

R TR DR DR DR

0000006
000001

: SP,+

TR TR TR TR PR

4$:

000037

15
58
R2,437
63
#ASTERISK, (SP)
#1,-(SP)

SP,

: ELOG.CODE,*

6883

1777766
000001

A R

R2,RO

RO
(SP)
ERR.COD=2(R0),
.~(SP)

I8 (72)
e B 1Y ReL 2ASEZR0AB0.BL1:

IR R

000012

)

O=00 O=000=

onN
WN
-

~g§~ug§

NNO

ok cds

=20=000 =000

=b =
B M)

Ret
— b
3 oVINNW
R385

222822

ERROR MESSAGE SUBROUTINES

6909

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

RD/RX EXERCISER

SEQ 243

. 228

¥3

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

gflhgz
-

-=00

000011

8s:

— e

000001

000160°*
000001

: i
NYSENISTORSS NS

8-5 2000
NN =2 © =2
NS
OO0 =000=0

000006
000013

108:

SEQ ;‘4

Paae

DISKSUSER2: [DIETZ .RELEASEJZRQABO.BL1;10

( 2)

SP,*

ELOG.CODE,*

6906
6912

ELOG.SUB,*.

6913
6916

SP,*

6917
SP,*

6918

ELOG.SUB,*

*
ELOG.CODE,

6915
6921

R1,4#3

ELOG.SUB,
*

6922

10§

000172°*
000001

VAX=11 Bliss=16 V3=555

R1,R0
RO
)
, (SP)
TBL.HST(RO
#1,-(SP)
SP.RO
15
#6,SP
R2.#12

108

B
000674
000676
000700
000704
000710

9%
R1.#
55
#CRLF, (SP)
#1,-(SP)
,
(SP)
#ASTERISK
,=(SP)

000610
000614

000622
000624
000626
000630
000634
000640
000642

R2.#11
k2N

R
§Og NN SBEHE;;E;E;
Y223
£g3>335
25358&o 2Tg

000006

000544
000550
000552
000554
000
000564
000566
000572
000574

#1,-(SP)
SP.RO
15

000001

—

| 000524
000
000532
000534
000536
000540

O=0

ERE

504
000510
000514
000516
000

s222

00047

§..

| 868470
000474

13:%:
S1-JULT1083 3:70:20
1 :25
19:
1

#CRLF, (SP)
#1,-(SP)
SP.RO
15
,
(SP)
#ASTERISK
.~(SP)
SP.RO
15
R1,RO
RO
, (SP)
TBL.CNT(RO)
#1,-(SP)
SP.RO
15
#6,SP
R2.#13

11$

000010

R1,#10

000001

#CRLF, (SP)
#1,-(5P)

000001

,
(SP)
#ASTERISK
", -(SP)

11$

g;.ao

SP,RO

SP,*

6925
SP,*

6926
SP,*

*
ELOG.SUB,

6927

SP,*

ELOG.CODE,*

6924
6930

*
ELOG.SUB,

6931
6934

SP,*

6935
SP,*

ERROR MESSAGE SUBROUTINES

15
R1
TBL.DRV(R1) ,(SP)
(SP)

000006

118:

170000

000056
O
R=VO
o

000056

ooNONVIOONON

PP
Py
.

Qe P

O=000

[=]=]

0000006
000001

000002
000002

14
1170000.60(R3)
2%
56(R3), (sp)
(SP)

03.-(59)
128:

6933
6939

; «,+(ELOG.ADDR)

6942

: *(ELOG.ADDR)
,*

6944

13s
56(R3), <sp)
)
(SP=

,*
: *(ELOG.ADDR)

14$:

15
#6,SP
#CRLF, (SP)

:
:
: SP,»

R3, (SP)
Z(RS) -(SP)

s ELOG.ADDR,*
,*
: *(ELOG.ADDR)

#2,(SP)

000002
0000006
000002
000002 000002

02:'(SP)
PC,BLSDIV

015674°

PC,EMS.BLK

6942

6946

: SP,*

SP.RO
15

6942
6948

6949

: *(ELOG.ADDR)
:

6950
6848

RO,2(SP)

#2.2(SP)
(SP)+

1(R3)

Routine Base: $CODES + 16134
296 words,
:
invocation
6 words
per
mum stack depth

6936

H
s REASON,*

: SP,»

#16,SP
ine Size:

)

: SP,*

P
S.RO

0sx RBN -(sp>
,~(SP)
SP.RO

0000006
000003
000006

R4, #2

#Xx25.-(59)

0000006
000003

) e

cococoo

—-00

33 NS, 2dd
338
£
O NE NN
-~ &
&
DRWIZ §3§ 2 %

g :
S RSRRE

000002

15
#6,SP

%
|

51-Jul-198
2 :58
1=Jul=1983
15:19:20

RD/RX EXERCISER

SEQ 245
?36
Pasc
V3-555
Bliss=16
VAX=11
DISKSUSER2:[DIETZ .RELEASEIZROABO.BL1;10 (72)

e 0000800000888 0000000090000 %000%000%0%:%0%00%0 %% %% 0000000009090 00%0%0%0 009000909090 9%09%0% %% 00

gggzo globol routine EMS_CMP (ADDR) : novalue =

:
:

6955
6956 ' ms ROUTINE IS CALLED FROM "HOST_WRT_CHK® AND PRINTS RELEVENT DATA ON A HOST

6958

3 (F3)
BL1 - BD.
e 1 R EASEIZRA

6957 ' com€ ERROR
n

:
3

6961
696§

local

:
:
:
:
:
:

6965
6966
6967
6968
6969
6970

ORIG_ADDR = .ADDR
PRINTB. (XX13. .CDISK);
PRINTB (DASH);
PRINTB (.ERR_COD [12)):
PRINTX (EX_LBW, .ORIG_ADDR tum501..ORIG_ADDR CLBN L0OJ);
P_ADDRCLBN_LO]Y;
- -RP_ABDR[
PRINTX (E

! ADDRESS OF THE WRITE RETPKT
i "DISK XXX'*
e
£
ERROR
COMPARE
HOST
<
i *
! LBN (WRITE)
i LBN (READ)

gg;g

Pngmx (EX"BDR, .RPAbon taun _13, .RP_ADDR CBUFF_01)7

i BUFFER ADDRESS (READ)

::
::
:
°

ggg‘

6971
6972
6973
6974
6975

ORIG_ADDR : ref block CRP_LEN, word) field (RP_FIELDS);

(WRITE) (WR1TE)
COUNT
ii BYTE
0;:
tcacm
ADDR
O0R1G
.
‘o
(EX
PRINTX
xnmeo
COUNT
BYTE
PRINTX (XX25,CBR,.OR.RPAm
(READ) (READ)
COUNT
ii BYTE
JS
w
cecn
ADDR
PRINTX
xnmsb
COUNT
BYTE
LoY)iJ. .ORIG_ADDR [BUFF_0J); i BUFFER ADDRESS (WRITE)
(XX25, .RP_ADDR
PRINTX (EX_BDW,
.ORIG tsurr
PRINTX
enda,

000000

010146

000002
000006
000012
000016
000022
000026
000026
000032
000036
000040
000042
000046
000052
000054
000056

016601 000004
013746 0000006
012746 0000006
012746 000002
010600
104414
012716 0000006
012746 000001
010600
104414
013716 0000306
012746 000001
010600
104414
016116 000050
011646
012746
012746 000003
010600
104415
013700 0000006
016016 000050
011645

000070
000074
000076
000100
000104
000110

.SBTTL
EMS.CMP::

MOV

MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV

EMS.CMP ERROR MESSAGE SUBROUTINES

R1,=(SP)

4(5P),R1
CDISK,=(SP)
#Xx13,=(SP)
#2,-(5P)
SP.RO
14
#DASH, (SP)
#1,-(5P)
SP.RO
14
ERR.COD+30, (SP)
#1,-(SP)
SP.RO
14
SO(R1), (SP)
(SP) ,=(SP)
#EX.LBW,=(SP)
03.- SP)
SP,RO
15
RP.ADDR, RO
socao».(sp)
(SP) ,=(SP)

: ADDR,ORIG.ADDR
:
; SP,*
:
; SP,*
:

6953

6965
6966

6967
6968

: SP,«
,*
: *(ORIG.ADDR)

6969

: SP,®
:

6970

YAl

247
PageSEQ 246

00.0000%0000000%0%0 900800008 0%:08:0800, 0009000900000 0000000000000 % %% %000

UL 1S3

ERROR MESSAGE SUBROUTINES

VAX-11 BLiss=16 V3-555

a8 0e 0000000000000

1-Jul-1983 15:25:58

RD/RX EXERCISER

ZROAM2

v01.2

e 800 e

000272
000276
000
000
000310
000312
000316

012746
010600
104415
062706
012601
000207

0000006
000020
0000006
000002
000024
000026
0000006
000003

000062

MOV
TRAP
MOV
MOV
MOV
MOV

MOV
MoV
TRAP
ADD
MOV
RTS

#2,-(SP)

15
20(R1), (SP)
#XX25,=(SP)

#2,-(5P)

SP.RO
15
RP.ADDR,
RO
44 (RO) , (SP)

#EX.CBR,=(SP)
#2,-(SP)
RO

RP.ADDR,RO
, (SP)
20(R0)
#xx25,=(SP)
#2,-(SP)

: SP,+
,*
: *(ORIG.ADDR)

: SP,¢
,*
: *(ORIG.ADDR)

6973

: SP,¢
6974

: SP,+
,*
: *(ORIG.ADDR)

SP L4

s SP,*

,*
: *(ORIG.ADDR)

SP.RO

15
#62,SP

(SPJ+,R1

Routine Base: SCODES + 17254
: Routine Size: 105 words
fnvocation:
28 words
per
; Maximum stack depth

6975

6976

RP.ADDR,
RO
, (SP)
24(R0)
26(R0) .= (SP)

ch.aofi -(SP)
#3,-(SP}

6972

: SP,»

24(R1),(SP)
26(R1) .~(SP)
#EX.BDW,~(SP)

#3,-(SP)

6971

: SP,*
6960
6953

000000090 000000908090 %0%0%09%08%08%9%000

0000006
000044
0000006
000002

P.RO
15
44(R1),(SP)
#EX.CBW,=(SP)

0000000000900

0000006
000024
000026
0000006
000003

000020
0000006
000002

0§X.LBR -(SP)

#3,-(SP}

e T T P PR PR TR PR DRTR TR L

000262

010600
104415
013700
016016
016046
012746

000044
0000006
000002

MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
TRAP
MoV
MOV
MOV
MOV
TRAP
MOV
MoV
MoV
MoV
MOV
TRAP
MOV
MoV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV

10 (73)
2ROABO.BL1:

T O O e e

0000006
000003

SE0 %3‘

000112 01%766
000112 012746
010602
00015
000126 10441
0001%3 016116
012746
0001
000136 012746
000142 010600
000144 104415
000146 016116
000152 012746
000156 012746
000162 010600
000164 104415
000166 013700
000172 016016
000176 012746
012746
010600
000210 104415
000212 013700
000216 016016
000222 012746
000226 012746
000232 010600
000234 104415
000236 016116
000242 016146
012746
000246
000252 012746

g1-Jut=1%8s 1

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

I I I IR

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

:25:58
:19:20

IRQAM2
v01.2

&
v

6978

000000

737 000000V

JSBTTL

ens 01::JSR
TRAP
RTS

000004 104423

000006

: Routine Size:

& words,

Routine Base'

: Maximum stack depth per invocation:
:

2 words

EMS.01 ERROR MESSAGE SUBROUTINES

PC,MSEMS .01
23°
PC

ENDMSG;

000000

012746

000004

000004
000010
000014
000016
000020

012746 0000006
012746 000002
010600
104414
062706 000006

SEQ S‘O

DISKSUSER2:[DIETZ.RELEA SEJZROABO.8l1:18 (74)

MOV
MOV

MOV
TRAP
ADD
RTS

11 words,

Routine Base:

: Maximum stack depth per invocation:

5 words

6978

! *MORE THAN XX UNITS SPECIFIED'

.SBTTL
"~
nssns.m':m

000207

: Routine Size:

$CODES + 17576

6979 PRINTB (EBS_01, MAX_UNITS);
6980

000024

VAX-11 Bliss=16 V3-555

BGNMSG (EMS_01);

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

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

ZRQAM2
v01.2

MSEMS.01 ERROR MESSAGE SUBROUTINES
"y

#EBso -(SP)
8.~ spi
g
#6,SP
14

SCODES + 17606

: SP,*
:

6979

6978

ERROR MESSAGE SUBROUTINES

1.2

6981

Se %

000000
000004
000006

15:25:
1=Jul=1983
95;
51-4&-1 1?:?9:38

RD/RX EXERCISER

RQAM?

004737
104423
000207

SEQ 249
;
P
V3=555
Bliss=16
VAX=11
DISKSUSER2: oxen.a&ense:zmwo.w:?r( 5)

BGNMSG (EMS_10);
+SBTTL

EMS.10::JSR
TRAP
RTS

000000V

EMS.10 ERROR MESSAGE SUBROUTINES

Pg.mns.io
2

6981

Routine Base: $CODES ¢+ 17634
Routine Size: & words,
Maximum stack depth per invocation: 2 words

000000
000004
000010
000014
000020
000022
000024
000030

6982

6983

013746
063716
012746
012746
010600
104414
062706
000207

: Routine Size:

! *NO RESPONSE AT ADDRESS XXXXXX''

PRINTB (EBD_1u, .RDRX_ADDR + .OF_RC);
ENDMSG;

.SBTTL

0000006

MSEMS.10mv

0000006
0000006
000002

ADD
MOV
MOV
MOV
TRAP
ADD
RTS

000006

13 words,

Routine Base:

: Maximum stack depth per invocation:

5 words

MSEMS.10 ERROR MESSAGE SUBROUTINES

RDRX.ADDR,=(SP)

OF .RC, (SP)

#E8D.10,-(SP)
#2,-(SP}

glz.no

: SP,*

#6,SP

$CODES + 17644

6982

6981

BGNMSG (EMS_12);
.SB"I.

. MS.12:: RTS

000005 ?82837 000000V

000000

Routine Base:

; Routine Size:

& words,

PRINTB (EBD_12, .RDRX_ADDR);

: Maximum stack depth per invocation:
6985

6986

2 words

ENDMSG;

.SBTTL

013746

000000G

000004

012766 0000006

MOV

000024

00020

! *’INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX'®

000000

012746
01 0600
104414

000002

000020 062709 000006

6984

$CODES + 17676

HSEHSJZ':”V

000010
000014
000016

§UBROU TINES ’
AGE
?*SSGE
E HS‘l ZE RR

MOV
MOV
TRAP

ADD

RTS

MSEMS.12 ERROR MESSAGE SUBROUTINES

RDRX.ADDR,=(SP)

#EBD

#2,-(SP}

=(SP)

SP.RO

M SP.'

#6,SP

Routine Base: $CODES + 17706
: Routine Size: 11 words,
5 words
invocation:
per
depth
Haxiu stack

6985

6984

b4~

ERROR MESSAGE SUBROUTINES

6984

SEO 50
080

DISKSUSERZ: DlETZRELEASEJZROABO BL1;10 (76
3-555

RD/RX EXERCISER

v01.2

0000000000000 0090900090290 %000%0 %080 %: % %000

R
EMS.13::JS
TRAP

: Routine Size:

& words,

Routine Base:

Maximum stack depth per invocation:

6988

2 words

Els 13 ERR

RTS

SCODES + 17734
! *'STEP X READ ERROR'*

SBD 13, .STEP);
PRINYB

! PRINTX SA CONTENTS

6990 'DHSG'

000000

013746

0000006

000004
000010

012746
012746

0000006
000002

004737

007164°

000014

062

: Routine Size:

3.SBTTL

Routine Base:

: Maximum stack depth per invocation:

S words

MSEMS.13 ERROR MESSAGE SUBROUTINES

MOV
MOV
MOV
MOV
TRAP
JSR

srer «(SP)
8D.13,=(SP)
-(spf
sr.ao
14
PC,EMS.SA

RTS

ADD

000006

13 words,

6987

#6,SP

6988

: SP,*
:

6989

6987

SCODES + 17744

000207

g“ MESSAGE SUBROUTINES :

.SB"L

OO0

004737 000000V
000000
000004 104423

000006

a»

BGNMSG (EMS_13);

6987

SEG 51
§7
V3-555
Bliss=16
VAX=11
:25:5
1=Jul=19
51=Jul=19 g5:1928 DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL1T;1‘8‘(

EXERCISERSUBROUTINES
RD/RX
ERROR MESSAGE

IRQAM2
v01.2
:

)

6991

BGNMSG (EMS_14);

.SBTTL

EMS.14::JSR

000000 08:87 000000V

TRAP

: Routine Size:

RTS

& words,

Routine Base:

: Maximum stack depth per invocation:

000000

6992

2 words

EMS.14 ERM MESSAGE SUBROUTINES

SHSEHS.14
2

SCODES + 17776

SA CODE FROM DEVICEXXXXXX**
! "BAD

PRINTB (EBD_14, .IRDRX_ADDR);

0000006

PR!NT SA REGISTER CONTENTS

.SBTTL
H‘EHS.‘M:MV

MSEMS.14 ERROR MESSAGE SUBROUTINES

IRDRX. ADDR -(SP)

s
: SP,»

000006 012746 0000006

MOV

14 ,~(SP)
#EBD.

000014

MOV

SP.RO

000010 012746 000002
000016

010600
104414

000020 004737 007164°
000024 062706 000006
000030

000207

6991

2& EHS SA (0);

013746

MOV

TRAP

JSR
ADD
RTS

#2.-(SP}
14

PC.ENMS.SA
#6,SP
PC

I Routine Size: 13 words,
Routine Base: SCODES + 20006
Maximum stack depth per invocation: S5 words

:
F

6992

6993
6991

SOOIV WNIVVVS 8 8 ST

RD/RX MESSAGEEXERCISER
SUBROUTINES
ERROR

ROAR
1.2

000005

SE0 252
i’
V3-555
BLiss-16
VAX-11
15:25:58
1-Jul=1983
¢
BLI:18
1ZR0ABO.
RELEASE
IErY
D
DISKSUsBR
4 -.:31-133? 330

6995

000000V

: Routine Size:

& words,

EMS.18::

000207

Routine Base:

: Maximum stack depth per invocation:

2 words

SBttL
rw
RTS

EMS.18 ERROR MESSAGE SUBROUTINES
SHSEHS.18
$
2
PC

! "DISK XXX WENT OFFLINE'’

! PRINTX RELEVANT RETPKT FIELDS

6997 EMSCMD ();

000000

013746

ENDMSG;

.SBTTL
MSEMS.18:

0000006

MSEMS.18 ERROR MESSAGE SUBROUTINES
CDISK -(SP)

8D.18,=(SP)

000004 012746
012746 000002
000010
000014 010600

MoV
MOV

SP.RO

000020 004737 010220°

JSR

PC,EMSCMD

0000006

000016

MOV

TRAP

104414

000024 062706 000006
000030

ADD

RTS

000207

: Routine Size:

13 words,

Routine Base:

mxiu stack depth per invocation:

6995

$SCODES + 20040

6996 PRINTB (EBD 18, .CDISK);
6998

VAX-11
DISK$USER2

BGNMSG (EMS_18);

000000 004737
000004 104423

000006

:1 3:
EASEIZROABO.BL1'3'

Blis =16_v3-555
DIETZ.REL

S words

(SP$
cz.
14

#6,SP
PC

$SCODES + 20050

LNINIIVIVIVIVILLILSS 3

ERROR MESSAGE SUBROUTINES

v01.2
H

15:25:5
1=Jul=1
12:?9:28
51-4u1-133§

RD/RX EXERCISER

IRQAM2

6996

: SP,»

6997
6995

OO0V

51 ~Jul=198 °2 :58
T=Jdul=1 ! 5:19

:20

RD/RX EXERCISER

IRQAM2
v01.2

ERROR MESSAGE SUBROUTINES

SEO 256

.8'(00)
DISKWSERZ [DIETZ.RELEASEJZROABO. BL1;1

VAX=11 Bliss=16 V3-555

BGNMSG (EMS_21);
004737
104423
000207

000000V

: Routine Size:

& words,

EMSCMD ();

lniu stack depth per
3
3
3

7000

7001
7002
7003

000000

004737

000004

000207

: Routine Size:

TRAP

RTS

EMS.21 ERROR MESSAGE SUBROUTINES
:
PC,MSEMS .21
23

Routine Base: $CODES + 20102
invocation: 2 words

! CONTENTS OF RETURN PACKET

| S1 Secscee’ sechots

EMSTRAL
ENDMSG;

.SBTTL
MSEMS.21:
JSR

010220°

RTS

3 words,

—

000000
000004
000006

.SBTTL
EMS.21::JSR

Routine Base:

mxiu stack depth per invocation:

1 word

MSEMS.21 ERROR MESSAGE SUBROUTINES

PC,EMSCMD
PC

$CODES + 20112

s
H

CO00222200000000000002222222LANNNNSLSIIIIIIIVILS 52

000000

000004

000006

7004
004737

104423

: Routine Size:

7005

.SBTTL
EMS.22: :JSR

000000V

004737

000004

000207

: Routine Size:

255

ASE1ZR0AB0.BL1:18" (81

TRAP

RTS

& words,

Routine Base:

2 words

EMS.22 ERROR MESSAGE SUBROUTINES
S~MSEMS .22
H
2

$CODES + 20120
! contents of dup buffer

EMS DBN ();

7006 ENDASG;

000000

€0

BGNMSG (EMS_22)

: Maximum stack depth per invocation:
:

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

015144°

3 words,

.SBTTL

MSEMS.22 ERROR MESSAGE SUBROUTINES

J SR
RTS

PC,EMS.DBN
PC

MSEMS.22:

Routine Base:

Haxiaul stack depth per invocation:

1 word

$CODES + 20130

51'Jul-198
2 :58
1-Jul=1983 15:19:20

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

4
v01.2

2222228383232 S2S222222R33323222222222232222RI2N22222232 53

LSBTTL

EMS.30::JSR

TRAP
RTS

104423
000207

: Routine Size: & words,

Routine Base:

: Maximum stack depth per invocation:

2 words

EMS.30 Elgsa MESSAGE SUBROUTINES

PC,MSEMS.
=N

$CODES + 20136
! contents of return packet

7008 EMSCMD ();

7009

004737

000004 000207

Routine Size:

ENDMSG;

.SBTTL
MSEMS.30:

010220°

3 words,

JSR

Routine Base:

Max imum ;‘tfisk depth per invocation:
7011

7012
7013

1 word

RTS

MSEMS.30 ERROR MESSAGE SUBROUTINES

7007

$CODES + 20146

end

eludom

0TS external references

$SAVES, $SAVE4, S$SAVE3, $SAVE?2

.GLOBL

BLSDIV, BLSMUL

PSECT SUMMARY

Psect Name

Words

Attributes

74
4150
12

$SOWNS
$CODES
SPLITS

LIBRARY STATISTICS

Size:

3970 code + 7027 data words

Errors:

D
1
D

03:47.6

Memory Used: 825 pages
Compilation Complete

REL,
REL,
REL,

LCL,
LCL,
LCL,

CON
CON
CON

Loaded

350

COMMAND QUALIFIERS

07:35.4

,
,
,

Blocks

455

Information:
Warnings:

RW ,
RO,
RO,

Percent

,
|

ceecccee Symbols ====c==-

Total

File

Run Time:

7008

PC,EMSCMD

.GLOBL

Elapsed Time:

7007

Read

2222288822223 2SSSS83333333388

000000 082737 000000V

000000

SEQ 59
gg
P
_V3=-555
Bliss=16
VAX=11
DISKSUSER2: DIETZ.RELEASEJZROADO.H.‘I:?B'( )

7007 BGNMSG (EMS_30);

H
000004
000006

‘Igz 9:28
Jut 333 15:25:5
511=Jul=1
=Jul=1

ERROR MESSAGES

ERROR MESSAGE SUBROUTINES

v01.2

né

z2888888geagssass
o3&
NOWVSWN=0O
SOQNO\R&V‘N‘OOONOM‘“UN-‘O
WN=OVo~N

SGR W

b D cnd b D b d d
—d ) e
e b wnd b b b b e b b b b ) b b b b b b b — d b e
Vi
Vi
WA
RNININININININI
N = =b b b b b b b b
S
NWWW

e e W Be s 0g 0000000000000 000000000: 000009 %:%:% %0 880800 TR

L A A

T O

R TR TR TR TR TR TR DALA LA LAL 1

51-Jul-1983 15:33:38
1=Jul=1983 15:23:38
module ZRQAM3 (

Ztitle "RD/RX EXERCISER'
ident = 'v01.2°,
addressing_mode (absolute),

’n!iromenf (noeis)

begin

Ysbttl *DECLARATIONS'®

Library *ZRQABO.L16°;

! RDRX EXERCISER GLOBAL LIBRARY

require "BLSMAC.REQ';

! DIAGNOSTIC SUPERVISOR LIBRARY

EQUALS:

forward routine

INIT_TEST : novalue,

DRIVER_INIT : novalue,
CTCR_INIT : novalue,
INI_CTLR DAT : novalue,
REG_EXI T.

! ROUTINES APPEAR IN THIS ORDER

VEC_BR_TEST,

INT_GER,
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,
QI0_OK,
QIo_ourt,

QIO_GEN : novalue,
GET_RANDOM : novalue,
QIO_UNIT : novalue,
QIO _FUNC : novalue,

pOP : novalue

DUPWRTDBN
: novalue,
DUPREDDBN : novalue,
DUPCOMMAND : novalue,
QIO_LBN : novalue,
QI0 SIZE : novalue,

FILL BUFF : novalue,
PROC_RETPKT : novalue

DIO_RETPKT : novalue,

UP_COMPARE : novalue,

SEQ 257

Pagc 1
VAX=11 Bliss=16 V3=555
(1)
.BL2;15
EJZRQABO
DISKSUSER2:[DIETZ.RELEAS

INDENTATION IMPLIES CALLED SUBROUTINE

21=Jul=198315:33:38

21=Jul=198315:23:38

RD/RX EXERCISER

DECLARATIONS

ZRQAM3
v01.2

1544
1545

10_|RETPK! : novaluo.
tPAR novalue,

1550
1551
1552

EEP: novalue,
SREM,
DR_KZVPKT : novalue.

1549

AZINTO : LSISRnovalue,

1554
1555

AZINT : novalue,
FATAL_ERROR
: novalue,

1556
1557
1558
1559

POLL_CRING
: “novalue,
POLL"RRING: novalue,
BUP RSP : novalue,
MSCP_RSP : novalue,

1560
1561
1564
1565

1566

1567

OUEN g novalue.
SOFTERROR : novalue.

DATAGM:novalue

SOFT_ERROR: novolue.

external

CST: blockvector [W CTLR,

CST_LEN, word] field (CST_FIELDS),

RUN-TIME CONTROLLER STATUS tAaLes

*'CURRENT'* CONTROLLER
Of
ABDRESS
TABLE
STATUS
ONTROLLER
(DCT_FIELDS),
flold
Uord]
: blockvector [MX CTLR, DCT_LEN,

1569
1570

CST_ADDR : ref block [CST LEN, word) field (CST_FIELD

1572

DC?_ADDR ref block [oCcT LEN. uord fiely (DCI’ FIELDS),

1576

IRDRX_ADDR
: ref rdrx fiold (RC_REG),

1568

1571

1573
1574
1575

1577

1578

1579
1580
1581

BRIVER coutam.l.ea

*‘CURRENT’* DRIVER CWTROLLER TABLE
! ADDRES
.
G).
RDRX_ADDR: ref rdrx field (RC R
CONTROLLER
‘'CURRENT'®
OF
DEVI ABDRESS

! DEVICE ADBRESS OF INTERRUPTING CONTROLLER

DUPPKT : BLOCK [257, UORDJ field (DP_FIELDS)

FER CONTAINING DUP iNFORHATION FROM RECEIVE AND SEND COMMANDS
word] field (T_FIELDS),
=1 STATISTICS TABLES

TALLY : vector [MAXLNITS « TALLY LEN,

1582

T_ADDR
: ref block [TALLV LEN, word] field (T_FIELDS),

1584

C_ERR_TBL : blockvector [HAX CTLR,

1583

! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT
C_ERR_LEN, word) field (C_ERR_FIELDS),

1585

}ggg

TISTICS imte FOR CONTROLLER ERRORSTM
MSCP_PKT : blockvector[PKT,CNIETPKP&LEN. word) field (PKT_FIELDS),

1588

IPKT_ADDR: ref block [PKT LEN, word) field (PKT_FIELDS)

1589
1590
1591

DRESS OF AN HSCP PACKET UNTERR@T PROCESSING)
T POOL MLOCATIM TABLE

PKT_USE: vector [PKI cm bxte 80

1592

RETPKT : blockvector [RP CNI’ RP_LEN, word] field (RP_FIELDS),

1594

RP_USE: vector [RP_ CNT3‘

1593

1595
1596

TURN PACKET POOL

RP_INDX
: word,

ned],
N
fiAcx
T°POOL ALLOCATION TABLE
' CURRENT RETURN PACKET INDEX

SEQ 258
2
Pagc

DISKSUSERZ [DIETZ.RELEASEJZROABO.BL2:13 (1)

uroIo TALLY: novalue,
ovF_CHK: novalue,
HOSTHITCOK

1553

1563

VAX=11 Bliss=16 V3=555

ERROR novalue.

154
1548
1549

1562

1597

:
:
:
:

1598
1599
1600
1601

:
:
:
:
:
:

1604
1605
1606
1607
1608
1609

:
:
:
.

1611
1612
1613
1614

::
:

:
:
:
:

:
:
:
:
:
:
:
3
:
:
:

:
:
:

160§
160
1610

1615

1616
1617
1615
1619

1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633

1634

1636

;

1635

1637

RP_ADDR: ref block [RP LEN, uordJ field (RP_FIELDS),

CORRENT RETURN PACKET XDDRESS
'
ELOG_PKT: blockvector EP cm EP_LEN, word) mtd (EP_FIELDS),
! ERROR=L AtxerVE AREA
nm. F 1/0 eurm DESCRIPTORS
BUFF_ADDR : mtor CMAX_BUFC
! 1/0 BUFFER OWNERSHIP (CONTROLLER NUMBER)

: vectorCMAX BUF tm.Sm. signed],
BUFFZOWN
10D0": vector c1ooQ_|LEN bytel,
10DQ_IN : word.
10DQ"0UT:
eum
nsAsonSm.
EOP_FLAG: ‘oa
WORD,
DUPTFLAGS:
cCTCR: word,

CDISK: word,
CUOFF : word,
CTLR_CNT: word,
BUR 3 vector[HAX_UNITS, bytel,

QI0 : vector CMAX CTLR, bytel,

FRCE_MEM_ZDDR,
BYTS_PER-QIO: word,
: word,
ST_CODE
SB_CODE : word,

STEP : word,
word,
_RC : :signed
OF
word,

SA"REG
CMB_TIME : word,
NEX": word,
CRN_LOW : word,
CRN"HIGH : word,
P_INDEX : signed word,
WORD,
S"DUPPKT:
WORD,
S"PATTERN:
CREDIT BAL : word,
NEXT_PRT_USE: byte,
DBM12,
DBM18,

DBM19,
DBM20,

DBM23,

1640

DBM26,

1644
1645
1647

DBM110,
DBM112.
EHC1,

:
:
:

1641
1642
1643

i CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
i cumut UNIT CST OFFSET
i TOTAL NUMBER OF CONFIGURED CONTROLLERS
i DROP UNIT REASON

i NUMBER OF OUTSTANDING QIOS PER CONTROLLER

i START OF FREE MEMORY
i SIZE (BYTES) OF AN 1/0 BUFFER
i CURRENT STATUS CODE
i CURRENT SUB=-CODE

i CURRENT STEP IN HARDIT
(0 OR 2) TO READ P OR SA
ii OFFSET
STORAGE FOR SA REGISTER aws AND WRITES
i COMMAND TIMEOUT VALUE (IN SECONDS)
| NON-EXISTENT MEMORY TRAP_INDICATOR
1 COMMAND REF NUMBER OF LAST COMMAND SENT
i COMMAND REF NUMBER OF LAST COMMAND SENT
! CURRENT nssa?ePACKET INDEX
i DBN BYTEC
i THEPATTERN uameu TO DBN'S
! CREDIT BALANCE
i POINTER TO NEXT ENTRY IN PKT_USE TABLE

1DBM22,

1638

1639

i NUMBER OF *‘CURRENT'* CONTROLLER

pBM21

! 1/0 DONE QUEUF = CIRCULAR QUEUE OF RETPKT INDECES
i 1/0 DONE QUEUE IN POINTER
i 170 DONE QUEUE OUT POINTER
ii euo-or-ms
CURRENT OPERATOR
COMMAND
FLAG
%
i DUP FLAGS

=Tl el e lelelel=lel=lel=l=]w]l=]e]elelelelelele~ BN - ]

sso 259

%1-Jul-1915:23:38 DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;1?'(1)

RD/RX EXERCISER
IONS
DECLARAT

VAX=11 Bliss=16 V3=555

DBM25,

DBM29
DBM108,
DBM109.

ZRQAM3
v01.2

«Jul=1983 15:33:38

1650
1651
1es§
165
1654
1655

EH_G,
ENCS.
eu.g.
EN-7.
ENS.
EN-9

1657
1658

5u-1§.
EH"1

1656

1662
1663
1664
1665

EGD-10,
EGD"11.
EGD 12,
EGD"13.

‘

EGD 14,
EGD"15.
eco_19.
EGD"17,
EGD"18.
EGD-20,
EGD-21.
EGD"22.
EGD”23.
EGH =30,
(=]

RLF,

SWP_saaoa word,
SIP XFER : vord.
SbP FLAGS : word,

D = wd b D

oo &
OO
o
NNN
PP
R288RURAF3Vo028 © SREEREREES

wr : uord.

SWP_RAT : word,

SWP_DPAT: word,
SWP_UCNT: word,
SWPUDPAT : vector [MAX_UDP_CNT, word]l,
LSLON,

b wd D
) cd nd D e wd wd d D
b
) e

oxsxsusenz:toxerz.neLEAsEJznoAao.aaz:1?'(1>

MSG_03.
EGS_02.

1666
1667
1668
1669
1670
1671
1672
1673

) md

SEQ 260

[«]elelelel]

MS8_02.

1660
1661

~ ~ NOOONON oo
o

VAX=11 Bliss=16 V3-555

En-10,

1659

—

®e e Be®eSeetoSeBote0e0e0s000s0s0s000e0e0s0s00
0000000000000 0 00000000000 s000s0s0s0s0ststststetonre
®e e

21=Jul=1983 15:23:38

DECLARAT IONS

v01.2

21=Jul=1983 15:33:38

RD/RX EXERCISER

ZRQAM3

HARD ERROR LIMIT FOR DROPPING UNIT
TRANSFER LIMIT FOR DROPPING UNIT
FLAGS (SEE DOCI!!NTAUON)
ratio constant for dup exerciser
RDS1 OPERATION RATIO
DATA PATTERN NUMBER
USER DATA PATTERN COUNT
USER DATA PATTERN

I.SWIT:
psect

own = $GGGS(read, nowrite, execute, local, concatenate);

own

: bloclwector CMAX _CTLR, COMM LEN, word) field (COM_FIELDS),
COMM_AREA

MCATIONS AREA BETWEEN HOST AND AZTEC CONTROLLERS

BST : vector [MAX ums. uord

si'q‘

SEQUENCE TABLE FOR SEQUENTIAL LBN (VS. RANDOM SEEK) MODE

DPST 3 vector [MAX WITS. byte].
X LBN: vector [MAX _UNITS, word],

! DATA PATTERN SEGUENCE TABLE
' LARGEST LBN ALLOWED

STORAGE : vector [MAXUNITS, LEN.
word],
! DUMMY STORAGE
word] field (COM FIELDS)
1CoM_ADDR: ref block ccomm’

ADDRESS OF INTERRUPTING CWTROI.I.ER S COMMUNICATION AREA
ICST_ADDR: ref block [CST_LEN, word) field (CST FIE DS)‘
' ADDRESS OF INTERRUPTING CONTROLLER'S CST

1712
1713
1714
1715

1716

};}s

1717

:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:

1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737

:
:

1739
1740

:
:

:
:
:
:

:
:

1738

1741

1742

LEN. word) field (PKT_FIELD
MAD1 : ref bLOCktm1"ADDRESS
OF MSCP PACKET FOR nkst Q10
MAD2 : ref block tmLEN,

word) field (PKT_FIELDS),

“ADDRESS OF MSCP PACKET FOR SECOND QI0

LAST_PKT: blockvector mx CTLR, LAST PKT LEN, word] field (LAST_PKT_FIELDS),
E AREA FOR INFO ABOUT LAST nespouse PACKET
! PATTERN 2
PATO2 : ;ector IZJ)initial .

PATO3: vector [2] fnitial (1,
20°177777%)
PATO4 : vector [2] fnitial (1,
20°105613°)
PATOS: vector [2] fnitial (1,
20°031463")
PATO6: vector t2] fnitial 1,
%0°030221°
PATO? : vector mJ initial (16,
20°000001°, %0°000003°, %0'000007*, %0°'000017*,
%0’ oooo37 %0° oooon'. 20°'000177°, %20°'000377°,
’ 20°001777°'. 20°'003777°'. 20°'007777°
%o0*
%o0* 017777' 20°037777". %0°077777°. %0°177777'5,
PATO8 : vecto;rgw.'l initial (16,
20°177776°, %0'177774°, wmm' 20°177760°,
20°177740°. %0°177700°. 20°177600°. %0'177400°.
0'177000°, %0°176000°, zo'w 000°. %o0'170000°
*160000° " %0°'140000° . %0°'100000°. %0°'000000°5,
PAT09: vector [17] initial (16,

rep 3 of (X0°000000°)e rep 3 of (20’ 177777')
of (20°'000000°) s rep 2 of (10'177777'
rep

', %0°177777%,

'’ 201777775,

PAT10 : vector

1745
1746

PAT11 : vector [17) initial (16,
rep 3 of (20°052525°), rep 3 of (%0'125252').

1744

1747
1748
1749
1750

1751
1752

1753

1755

1754

! PATTERN 3
! PATTERN &
! PATTERN §
! PATTERN 6
! PATTERN 7

! PATTERN 8
! PATTERN 9

%0°'000000°, Xo'17777¢°,

1743

IDCT_ADDR: ref block CDCT LEN uordJ field (DCT FIELDS)
S DCT
' ADDRESS OF INT naumnscoumou.ea AZINT2,
AZINT3)%),
AZINT1,
XC,
(AZINTO
INT_ADDR: vector tm cruu initial
TABLE
"
"ADDRESS
ROUTINE
! INTERRUPT semce
| NUMBER OF RANDOM NUMBERS \ KEEP
RDM_CNT : word initial (RDM_LEN)
/ TOGETHER
RANDOM NUMBER TABLE
i
: vector CRDM_LEN, word],”
R
NUMBER
G
CONTROLLIN
G
INTERRUPTIN
i
mm word,
i MSCP PKT INDEX FOR FIRST QIO
M1 : igmd uord.
i nscp PKT INDEX FOR SECOND QIO
wo
MX2: signed

[2) initial (1,

20°133331%),

! PATTERN 10
! PATTERN N

ep g 35 uo'oszsgs'),s o; (%0°125252')
20°'052525°, 10'15 252 " %0'052525°, ¥o'125252°,
20°'052525',

%0°125252'),

PAT12 : vector (213 inmag (20,

rep 3 of (20°026455°'), rep g of (%0°'151322'),
rep 2 of (%0°026455'), rep 2 of (%0°151322°),

rep ; 35 (30°026455°)¢

20°151322°, %0°026455%, 20°151322°', %0°'026455"

%0°'151322°0 %0'026455°. %0°'151322'. %0'026455°5,

e Ba 8. 8e9000808680908a90000c900s%0909000%0%000009000828090%0%0008000%00%00808%00000

1703
1704
1705
1706
1707
1708
1709
1710
1711

:::

DOCLARAT TONS

DECLARAT IONS

e B

:
:
:
:
:
:
:
:
:

VAX=11 Bliss=16V3-555
1=Jul=1983 15:33:38
oY Rt eAse 12R0AB0.BL2: T (1)
13 S A
Ul

EXERCISER

_—~

v01.2

SE0 26]

! PATTERN 12
3

———

/RX

:
:

:
;

:
:

:
:
:
:
:
:
:

:
:
:
:
:

:
:

PAT13 : vector [2) initial (1,
'),
%o°
PAT1S : vector 17] initial (16,
)
1', %o°
s'. %o0*
', %20°000010°,
'°'883258"
%o0°
*.
%0°'000100°,
%o'
k1.
0‘ ’oo
m.. u.&
l. zo.
’oi

! PATTERN 13
! PATTERN 14

! PATTERN 15

1767
1768

20'167777° " %0°157777°. %0°'137777°. %0°'077777°),
PAT16 : vector C[17J initial (16,

! PATTERN 16

1771
1772
1773
1774
1775
1776

%o'133331°, %0°155554%, %0'133331°, %0'155554°,
20°133331° . %0°155554"),
PAT17 : vector [22) initial (21,
%o*
o
; of (%0°106466")
rep 3 of (£0°071311°), rep 4 of (£0'106466°)
rep 5 of (%0°071311°); rep 6 of (%0'106466')),

! PATTERN 17

1765
1766

1769
1770

1777

1778

20°177757° . %0°177737°. %0°177677°. %0'177577°,
20°177377". %0°176777°. %0°175777°. %0°173777'
rep g of (20°133331°'), rep 3 of (%20°155554°),
")
gf (%0'133331°)¢ rep 2 g (%0'155554
P

PAT18 : vector [22] initial (21,

%0°'000000°*, %0'071311°

20°106466°,

! PATTERN 18

1779
1780
1781
1
1

rep 3 of (£0°106466°), rep & of (%0'071311°)
rep 5 of (20°106466°'). rep 6 of (20'071311°)J,
PAT19 : vector [22] initial (21,
20°000000°, rep 2 of (%0°134631°)
rep 3 of (%0°043146°), rep 4 of (%0'134631")

PAT20 : vector [22] initial (21,

! PATTERN 20

PAT21 : v:gtor [2.'.1 initial (1,

! PATTERN 21

rep 5 of (%0'043146'); rep 6 of (%0'134631°)5,
%o’

%0°134631°,

', %0°043146",

ren g of (fo'} 631'), rep & of (30°043146°)
r

)

! PATTERN 19

(LBN)

DPA_TBL : vector CDP_CNT] initial

(RDM_CNT, PAT02, PATO3, PAT04, PATOS,

PATO8, PATO7, PAT08, PAT09, PAT10, PATI11,
PAT12, PAT13, PAT14, PAT1S, PAT16, PAT17,
PAT18, PAT19, PAT20, PAT21),

DATA PATTERN ADDRESS TABLE

TRK_SGN : vector [MAX_UNITS, word, signed] initial (rog MAX_UNITS of (1)),
! CURRENT SE QUERTIAL BLOCK COUNT
BST_CNT : word initial (0),
BST_DEV : word initial (0),
CURRENT_VECTOR : word,
BRLEVEL : word,
COMPARE _DATA : byte:;

external routine
NEX_TRAP : LSISR novalue,
SET_CPAR : novalue,
SET_UPAR : novalue,
ouT_lioDa,

IN_TODQ : novalue,

SEQ 262

oxsxsuseaz:toxerz.aELEAsEJznoAao.aLZ:?g'(1)

',
20°'010000° . %0°020000°, 20°'040000°, %o'1
PAT1S : vector [17] initi,} (16,
", 20°177775°, %0°177773', %0°177767°,
%0°'1

1762
1763
1764

51-4u1-193§ 15:23:33

DECLARAT IONS

VAX=11 Bliss=16 V3=555

OO
O OO0

:
:
:

1756
1758
1759
1760
1761
1757

PP R PP RS PR S C R

3
$
:
::
:

v01.2

1=Jul=1983 15:33:

RD/RX EXERCISER

ZRQAM3

OO0

! CURRENT TRACK DIRECTION

CURRENT SEQUENTIAL BLOCK DEVICE
CURRENT DEVICE'S VECTOR ADDRESS
CURRENT DEVICE'S BR LEVEL
FLAGGED CLEARED TO BYPASS HOST COMPARES

RD/RX EXERCISER

IRQAM3

DECLARATIONS

PUT RE!PKT : novalue,

GET 10_BUFF : novalue,
PUTTIOOUFF : novalue,
ggtl80FF : novalue,

DROP_CTLR : novalue,

DRV_TTLERR : novalue,
EMSTMD : novalue.
EMS_EL : novalue.
EHS CIP novalue,
EMST10 : novaluo.
EMS 12
: novalue,
EMS 13
: novalue,
EMS_14 : novalue,

233

WNN=O

GET_PKT,
PU

— e

d d

R
R R RO
£38%

OWVSWN=O VRNV

e
e cd
e
e
e
b
—

d d d D md b wnd d d D d b

D d o

00 0o Co O 0o 00 0o 0O OO 00

=D D D

v01.2

: novalue,
: novalue,
: novalue;

21=Jul-1983 5 33:38

21-Jul=1983 15:23:38

VAX=11 Bliss=16 V3=555

SEQ 263

Pago

DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;15

(1)

Xsbttl *TEST SECTION'

183,
1835

|
|

1835 1o

}ggg

1838

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.

BGNTST;

}g{g

:
;
3

1841 EOP_FLAG = TRUE;
mg COMPARE DATA = TRUE;
}gl.“ INIT_TEST O);

}m incr CTLR from 0 to (MAX_CTLR = 1) do

! FOR EVERY CONTROLLER

:
:
:

1847
1848
1849

! IF CONTROLLER ONLINE

}gg

}ggg

1856

bagin

1858

exitloop;

jfl%

then

incr OFFSET from (0 + OF_UN) to (3 = UNIT_SIZE + 4) by UNIT_SIZE do
::‘m.'CST C.CTLR, .OFFSET, D_STAT] eql ONLINE ! IF AT LEAST ONE UNIT ALIVE

end;

1861

}ggz

1865 ENDTST;

if not .EOP_FLAG

then

! RUN MULTI-DRIVE TEST

MULTI_DRIVE ();

|
.TITLE
CIDENT
-ENABL

000000

000000
000050
000060
000064
000074
000104
000106

! NOT END OF PASS

EOP_FLAG = FALSE;

1859

1862

! ASSUME NO UNIT AVAILABLE
i ALLOW HOST COMPARES IF ASKED FOR
! INITIALIZE TEST ENVIRONMENT

if (.CST C.CTLR, STATE) eql ONLINE) and
(.pCT C.CTLR. STAT] eql ONLINE) and
(.CST C.CTLR. U_CNT) gequ 0)

1857
1860

oxsxsusm:men.mmmmao.uz;?r(z)

ZRQAM3 RD/RX EXERCISER
/v01.2/

PSECT $GGGS, RO

COMM. AREA :
BLKW
.BLKW
BST:
DPST: .BLKW
MAX.LBN:.BLKW
STORAGE:.BLKW
1COM.ADDR:
BLKW
1CST.ADDR:
BLKY

&
2
4
&
1

SEQ 264

OO0
RRRRRRRR 2

1831

‘

:
;

21=-Jul=1983 15:23:38

TEST SECTION

vo1.2
:

21=Jul=1983 15:33:38

RD/RX EXERCISER

ZROAM3

VAX=11 Bliss=16 V3-555

MX1:
MX2:

MAD1:
MAD2:

.BLKW
.BLKW
.BLKW
.BLKW

LAST.PKT:
PATO02:

PATO3:
PATO04:
PATOS:

PAT06:

PATO7:

PATO08:

§8885¢

INTO

AR AR 5%

-l

& SERRB&> s~

g 8383888

.WORD
RDM.CNT
: .WORD
RANDOM: .BLKW
ICTLR: .BLKW

2
2:
ZROABO.BL
SER
[DIETZ .RELEASEJ
DISKSU

SEQ 265

s
e
—

INT.ADDR:

IDCT.ADDR:

83k -

'§

S1-JLcigE 13:33:38

CISER

RD/RX EX
TEST SEC

v01.2

VAX=11 Bliss=16 V3-555

S1JLC198 133

\n E“

) -

:
v01.2

—

-l

-o.o.o.ql

..-oo-

647
5
]
]

33
52538

)
I

r
OO
rrO0

Tnn
L
NN

0000

O~O000rr==OO0~~00

mmwmmmmmmmmwmmmL
La)

—

SEQ 266

10
P
VAX=11 Bliss=16 V3-555
(2)
3
1
TZ.R
ELEASEJZROABO.BLZ2;
:(DIE
USER2
DISKS

]

FRR22

SRR
oW

TEST SECTION

S15LC1988 1338138
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2;

VAX=-11 Bliss=16 V3-555
P,

SEQ 267

RQQAIARIRRK B

9
~N
wvivwiawnwnmwawnawn

-‘g 1 1N

a&s§§§§§§§§§§333*~*3§

)

RD/RX EX

OO0V

b e o

CRRRS5

S oS cmd

b) e
~

§33333555585s48

WV
Wi

]

b D b wed o e cmmd ek (T () o e

-5

000000

.WORD
LWORD
LMORD
WORD

.WORD
WORD
JMORD

PAT17:

106466
106466
071311
071311
071311
106466

106466
106466
106466
071311
071311
071311
071311
071311
106466
106466
106466
106466
106466
106466
000025
106466

PAT18:

.WORD
«WORD

000000
071311

106466
106466
106466
071311
071311
071311
071311
106466
106466
106466
106466
106466
071311

000025

PAT19:

=71 315
=7131
71311
71311
71311
=71 315

~=7131
~71312
=71312
71311
71311
71311
71311
71311
~=71312
~71312
~71312
~71312
~71312
~71312

=71312
1311
~=71312
~71312
~71312
71311
71311
71311
71311
~71312
~71312
-7131%
~7131
=71312

WORD

71311

.WORD

071311

-336
=22224
=44447
=22224
447
=22224
=44447
=22224

WORD
WORD
WORD
WORD
.WORD
WORD
.WORD
WORD
WORD
-WORD
WORD
WORD

WORD

071311

071311
071311
071311

WORD
.WORD
-WORD
WORD
LMORD
WORD
WORD
WORD
LWORD
MORD
WORD
WORD
LWORD
WORD
WORD
WORD
WORD
LWORD
WORD
WORD
WORD
WORD
WORD
.WORD
WORD

.WORD
.WORD
.WORD

.WORD

LRSIISVINVIVSISISY §F

z?g
'SEG
V3=555
Bliss=16
VAX=11
1
1=Jul=1983
1?(2)
2;
ZROABO.BL
.RELEASEJ
[DIETZ
2:
DISKSUSER
51 -Jul-"gg 1;:3:;:

ERCISER
RD/R
TEST SE%TIMS
155554
15;556
1; 231
155554
133331
1555
133331
155554
000025

71311

71311
71311
71;11
71311

m e

e<£

—

38
"

- L=933 e U -

el —t (7]tad &

223 2332 m m m m
==

a0Mmmna0

~wuv

e
wa L=
m.t
B

—— ["al'a) .

VAX=11 Bliss=16 V3=555

SEQ 269
13

DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2; o

Vo'

VAX=11 Bliss=16 V3-555

DISKSUSER2: [DIETZ .RELEASEJZRQOABO.BL2;

TRK.SGN:

BST.CNT:.WORD
B8ST.DEV:.WORD
VECTOR:
. ENT
CURR
«BLKW
BRLEVEL: .BLKW
COMPARE .DATA:
.BLKB

DCT DCT.ADDR, RDRX.ADDR
CST, CST. ADDR.

D!
IRDRX.ADDR,

TALLY, T.ADDR

Pxi IPKT.AD
MSCP.
C.ERR.TBL,RETPKT,
RP.USE, RP. mox

PKT.USE,
RP.ADDR. ELOG.PKT, BUFF .ADDR, BUFF.OWN
looo 1ooo IN, 100Q.0UT, ENTRY.REASON
OP.FLAG, DUP.FLAGS ccfi. , CDISK

ué Q10, 'FREE.MEM.ADDR
cuorr fl.a cm
S8.CODE
alo, sf. é .nns
BYTS. fien.nc.
SA nee
STEP, o
NEX, CRN
i
S.DUPPKT,
s.fimenn.
NEXT.PKT.USE, DBM12. oama. BM19
* pBM108, owbv p8Mi10
DBM112, EH.0, EH.1, EH.2 Eu.s
EH.4, EN.S, EH.6, EH.7, EH
EN.12, EH.13, nse.oz. MSG.03
EN.10,

Ecoi E6D.11, EGD.12
Essog
D.21 SWP.ERROR
D. o. cm.r
g cn
7, eso.1
eco.zz EGD.23
SWP.XFER, SWP.FLAGS, DUPR
sw RAT, sup.om §w UCNT, SWP.UDPAT
LSLUN, LSUNIT, NEX.TRAP, SET.CPAR
ET.UPAR, OUT.IODQ, m.iooo. GET.PKT

SEusssEsEasass Ak |
N

& FRERRNSS

g g88888ssssssssssasass o3

001240

31 -Jul=-1983 °33:
1=Jul=1983 15:23:

RD/RX EXERCISER
TEST SECTION

SEO 270

PUT.PKT GET. RETPKT PUT RETPKT
PUTA.BUFF
GET 10. 8uFF, PU

um ROP cn.a. ofiv.cnm
EMS. CMP
ch 3EMS.
EMS.14
gs.

S.
g
EHS 21 EMS.30

EF .START==
EF .RESTART==
EF .CONTINUE==
EF .NEW==
EF .PWR==

=N NS T =
=l-lelelelel-]

NN NN
S =N
=N
= DO
==PNOND
[=1= OHOH S NVIONNO
coooo
(=1~ (=]lelel)
oo

i
nn ll'fi‘ll ll?l“ "

@
Ll
OOOmD
B8

0N nuunnnn N

BIT9==

°°°g

T NY
ococo

EHS 1

350 271

1 SKSUSERS EDIETY. RELEASE 1ZR0ABO. BL2;13‘(2)
V3-555

TEST SECTION

BLiss=16

2222282828223 2323332323333333333333333338283

S15tC198s 1338138

RD/RX EXERCISER

b bt bt B et

ZRQAM3
v01.2

AX=11

21=Jul-198 3 15:3 :33
21=Jul=1983 15:23:3

JSR

#1,E0P.FLAG
#1,COMPARE .DATA
:g.lNIT.TEST

MOV

R3,=(SP)

MOV

CMP
TST
MOV

8888 gs8ssssssssts

ITTT PUSETHRARNITS

MOV
CMP

2%:

0000006

3s:

000005
000023

4S:

5%:

000000V

#56,=(SP)

CTLR
CTLR,*

PC,BLSMUL
RO,.R1

(SP)+,(SP)+
gST*Z(R1)
s
R3,=(SP)

#22,-(SP)

: CTLR,*

PC,BLSMUL
(SP)+,(SP)+

pCT(RD)

: CTLR,*

000027
0000006
000003

000001

R1,$SAVE3

MOVB
MOV
JSR

JSR

020000

S$T1 TEST SECTION
SCODES, RO

0000006

MoV
#3,R2
RO.R1
MoV
R2.R1
ADD
R1
ASL
#20000,CST(R1)
BIT
3s
BEQ
EOP.FLAG
CLRB
4%
BR
ADD
#5,R2
R2, 423
CMP
2s
BLE
(SP)+,(SP)+
CMP
NC
R3
1
+WORD CLV!CLC

BLE
BITB
BNE
JSR

EIII R

.SBTTL
.PSECT

]

LOE==
HOE==

IXE==
IBE==
1ER==

PR]l==

PNT==

1$:

DISKSUSERZ:tolETZ.RELEASEJZROABO.BLZ:1!‘(2)

58888

BOE==

$T1:

SEQ 272

23338338

RD/RX EXERCISER
TEST SECTION

VAX=11 Bliss=16_V3-555

1 SN2
N)—=

ZRQAM3
v01.2

1$
#1,EOP.FLAG
63
PC,MULTI.DRIVE

; *,0FFSET

: OFFSET,*

1848

000207

: Routine Size:

63 words,

000000
000000
000004
000006
000010
000012

000000°*

Routine Base:

T1 TEST SECTION

1830

PC.$T1

1863

s S

e e

i calie. Jiin. e SIS b S

SRS

_——

$CODES + 0176

Routine Base:

it - e

6 word

naxiaun stack depth per invocation:

104466
006000
103773
000207

: Routine Size:

SE1ZR0ABO.BLZ. 135 C2)

$CODES + 0000

.SBTTL

004737

&P =D

Haxinun stack depth per invocation:

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

SEG 2/3

000174

1
21=Jul-1983
1
=1983
21=Jul

RD/RX EXERCISER
TEST SECTION

ZRQAM3
v01.2

THE INITIALIZATION TEST IS DESIGNED TO VERIFY THE EXISTENCE OF THE
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIALOG, AND TO

BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-DRIVE TEST
OR THE DM EXERCISER.

BASICALLY, THE DEVICES ARE BROUGHT ONLINE VIA ‘DRIVER_INIT*’, WHICH IS

SN PNV

INVOKED IMMEDIATELY. ANY DEVICES WHICH FAIL DURING THIS PHASE WILL BE

be?in

ODRIVER_INIT ();

' INIT DRIVER DATA AND DEVICES

incr bST%R from 0 to (MAX_CTLR = 1) do

! FOR EACH CONTROLLER

SE?_CPM (.CTLR);

! SET UP COMMONLY=USED CONTROLLER-RELATED DATA ITEMS

:'f' .CST_ADDR [STATEJ] eql ONLINE

! IF CONTROLLER IS STILL ALIVE

—— — — — — S~ — S S S S S S B S

MARKED OFFLINE IN THEIR DCT AND CST. FOR_THOSE DEVICES WHICH SURVIVE
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS T
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.

incr OFFSET from (0 + OF_UN) to (3 + UNIT_SIZE + OF_UN) by UNIT_SIZE do
if (.CST_ADDR
(.CST_ADDR

D wnd ) wd o

! FOR EACH DISK

[.OFFSET, D_PRES] eql PRESENT) and
[.OFFSET, D_STAT] eql ONLINE) and

- (not TCST_ADDR [.OFFSET, D_FATAL))
begin

! SET UP UNIT=RELATED DATA ITEMS

SE? UPAR (.OFFSET);

IF SWP_DINT NEQ (.DUP_FLAGS AND SWP_DINT)
THEN ACCESS ();

' TRY ACCESS TO INNER TRACK

! IF UNIT IS PRESENT AND ONLINE
! CONTROLLER LOOP

end;

! ROUTINE INIT_TEST

end;
0000006

000000V

0000006
0000006

.SBTTL
INIT.TEST:
JSR

JSR

]

JSR
MOV

INIT.TEST INITIALIZATION TEST ROUTINES
R1,$SAVE2

PC.DRIVER. INIT

;

PC.SET.CPAR
cST.ADDR,RO

BS.-(sP)

3 8288

end;

! IF DUP CAUSED INIT THEN SKIP THIS SECTION

¢’ ETtR. : e

comd amh

SS35238383

NVNVAOYOAOVO OO OO

SR SSTBIBRRAR EE3SEE uNdOO ~

routine INIT_TEST : novalue =

]
0
oo~

D cnd =D b cd D cd D b D b D d b b

SEQ 274

Page 18
VAX=11 Bliss=16 V3-555
(3)
2;13
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL

Xsbttl "INITIALIZATION TEST ROUTINES'

o
— cnd o ad b e

(V2]
-

21=Jul=1983 15: 3: 38
21=Jul=1983 15: 3: 38

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

004
013700

£MN

(%]

& oEmtan :g: §
g3
5%
CeE8 g
W

NN
=O N1 ONO

SR8IR

2%:

DISKSUSERZ (DIETZ. NELEASEJZRO

R1.RO
RO

CST.ADDR,RO

530000.(6o>

020000

ggoooo.(ao>

010000

§1oooo. (RO)

n1 (SP)

PC.SET.UPAR

0000006
000002 0000006

#2.DUP.FLAGS

3s:

000022

4$:

pg.Access

R1.#22
2s’
(SP)+

R2
INC
+WORD CLV!CLC
1$

47 words,

VAX=11 Bliss=16 V3-55

2(R0O)
4%
03 Rl

0000006
040000

000005v

: Routine Size:

15:33:38

21oJut=1983 13:33:38

INITIALIZATION TEST ROUTINES

000003

1=Jul=1983

RD/RX EXERCISER

000002

Routine Base: $CODES + 0212
S words

Haxiuun stack depth pe~ invocation:

; OFFSET,+

SEG 275

ABO.BL2:139‘3)

0000~
030000000
AAAR R RRRRRRRRb
NNNNNNg
ug
W
LEBBVR
R RUNS VONOWVSWN=O 3
VS WN=O VO NOWVISWN
=

b D D D b

Lellelelelellelolle
el ]

b e

) D ) b D D D b b D ) D cd d D D

—d b b b

!
!
:

begin
local

PKT_ADDR;

! ADDR (TEXT + 0) OF FIRST MSCP PACKET
! NEXT PACKET TO ALLOCATE

incrbgo?ur from 0 to (PKT_CNT = 1) do

! FOR EACH MSCP PACKET

Px? USE C.COUNT] = =1;
n

MSCP_PKT [.COUNT, PKT_LOJ = .PKT_ADDR;
MSCP_PKT

MSCPTMPKT

[.COUNT, PKTTHIJ = 0;

[.COUNT, CONRID) = CID_MSCP

! MARK PACKET FREE

! LOAD PKT ADDR INTO BUFFER DESCRIPTOR
! SET CONNECTION ID TO MSCP ID

p:;, DR = .PKT_ADDR + (PKT_LENTM * 2); | ADVANCE ADDR TO NEXT PACKET

ena;

incr CTLR from 0 to (MAX_CTLR = 1) do

:; .CST C.CTLR, IP_ADDR] neqga 0
en

! FOR EACH CONTROLLER

! IF CONTROLLER IS PRESENT

be'in
SET _CPAR (.CTLR);

! SET UP CURRENT CONTROLLER PARAMETERS
! SET CURRENT CONTROLLER'S VECTOR ADDRESS
CURRENT VECTOR = .CST_ADDR CVEC_ADDR];
!
SET
CURRENT
CONTROLLER'S BR LEVEL
BRLEVELTM= .CST_ADDR [BR_LEV] * S;
CTLR DATA
AND
DEVICE
INIT
!
CTLR_INIT ();

b b
) D b
) D D

if .DCT_ADDR [STAT] eql ONLINE
then

! 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

if (.CST_ADDR [.OFFSET, D_PRES) 'fl. PRESENT) and
(not TCST_ADDR [.OFFSET, D_FATAL))

then

begin

end;
end;

! IF UNIT EXISTS

SE? UPAR (.OFFSET);

! SET UP UNIT=-RELATED DATA ITEMS

end;

! IF UNIT EXISTS

UNIT_INIT O);

R PP

g VN

;

PKT_ADDR = MSCP_PKT + 10;
NEXT_PKT_USE = U;

€N

DISKSUSERZ? DIETZ.RELEASEIZRQABO.BL2;15 (&)

THIS ROUTINE IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY
POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE
gztysa DATA, AND TO BRING EACH RDRX CONTROLLER AND UNIT (DISK)

233332

SEQ 27

routine DRIVER_INIT : novalue =

D b e

—d e

—

w
B

[a8)

1=Jul=1983
1g:§:§g
§ 15:33:
S1-Jul-19g

VAX=11 BlLiss=16 V3=555

N ENERENOYONAONOOD

INITIALIZATION TEST ROUTINES

RD/RX EXERCISER

. — S o S S S S S, S S, G, S, N g, G g, g

! BRING UNIT ONLINE

! IF CONTROLLER IS PRESENT
! ROUTINE DRIVER_INIT

.SBTTL

DRIVER.INIT:
JSR
MOV

1$:

CLRB
CLR

DRIVER.INIT INITIALIZATION TEST ROUTINES
R1,$SAVE2

MSCP.PKT+12,R2
'£1xT.PKT.USE
R

#377 .PKT.USE(R1)
R1,~(SP)

#106,-(5P)

2$:

PC,BLSMUL
R2.MSCP.PKT(RO)
2
(RO)
MSCP.PKT+
MSCP.PKT+11(R0)
#104.R2
(SP)+,(SP)+
R1
R1,M3
1$
R2
R2.=(SP)

#56,-(SP)

: «,PKT.ADDR

s SO o)

: COUNT,+

: PKT.ADDR,*

:
:

1909
1923

1924

1958
1929
1930
1931

: «,PKT.ADDR

1932

: COUNT

1926

: COUNT,+

1927

: CTLR
: CTLR,*

1935
1937

: CTLR,*

1940

;

1941

;

1942

(SP)+, (SP)+
cST(RD)

6$
R2,=(SP)

PC,SET.CPAR

sz.npoa RO
(RO) ,CURRENT
. VECTOR
g;;;oéo.cunasnr.vecroa
4(RO), (SP)

#5,-(5P)
PC.BLSSHF
RO.BRLEVEL
PC.CTLR. INIT
aDCT.ADDR

3s:

#3.R1
R1.RO
RO

;

1943

1945

: «,OFFSET
: OFFSET,+

1948
1950

;

1951

: OFFSET,*

1954

o« OFFSET
:: OFFSET,*

}323

CST.ADDR,RO

z:oooo.céO)

VOO0

~—-

(=]

000142

8 =3
N

0001

gd
S9822283282=3R22
338
Rees S35et
S
R 2344z
LSRN
E JeS9%s

PC,BLSMUL

4S:

#10000, (RO)
13
R1,(SP)
PC.SET.UPAR
PC.UNIT.INIT
#5.R1
R1.#22
3s

INITIALIZATION TEST ROUTINES

wvwwh

51-Jul-19 31
1=Jul=1983 1

RD/RX EXERCISER

sEa 277

Par 21
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEJZROABO.BL2; 13 (4)

5%:
6%:

022626
005

000256

00024

000260
000262

003704
000207

; Routine Size:

CMP
INC

.WORD CLV!CLC

BLE

RTS

90 words,

Routine Base:

!lniu stack depth per invocation:

6 words

(SP)+,(SP)+
s

$CODES + 0350

22
(&)

:
: CTLR

1939
1935

1909

SEO 278

VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASE JZROABO. uz 13

e e 0908009000900 %00s%:90%003%090%080%8008:%:8%:8%: 0, 90 9090 %2 % % % “I. 00900090 0000000009090 9000900090000 0

000252
000254

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

g
23

—

IRQAM3
v01.2

51-Jul-1
1=Jul=198

&. PERFORM A vmou AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR
AND INTERRUPT REQUEST LEVEL,
ADDRESS

S. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE.
IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE

DEVICE ARE DROPPED.
begin

local
RESULT
: byte:

INI_CTLR_DAT ();

: INITIAUZE CWTMLER DATA

SETUEC (-CURRENT_VECTOR, .INT_ADDR [.CCTLRI, PRIO]

LSLON = .CST_ADDR [Of JUN, D_UNIT];
‘l’:‘ 'S‘P_DINT NEQ (.DUP_FLAGS AND SWP_DINT)

: mEG_EXIST () eql FAILURE
in

DROP_CTLR (.CCTLR, DU_INIT);
return;

%:E g‘*‘-“'" NEQ (.DUP_FLAGS AND SWP_DINT)

:’f‘eXEC.Bfi_tESt () eql FAILURE

DROP_CTLR (.CCTLR, DU_INIT);
return;

SET 'XME lNTERRlPT" 8IT

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
' 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 [IG_INT] = FALSE;

! CLAER ''IGNORE INTERRUPT'' BIT

if .RESULT eql SUCCESS

' IF HARD INIT WAS SUCCESSFUL

INY_RRING 0;

=
ME

DCT_ADDR [IG_INT]= TRUE;

SET DEVICE'S ASSUMED VECTOR ADDRESS

o rn TRTR TR LR LALR L L 1 0090900090 %000 00 %0 %0 %0 %0 %0000

ucwoms THE DCT,

SET UP THE DEVICE®S INTERRUPT VECTOR ADDRESS
. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE,

1. INITIALIZE DRIVER CONTROLLER DATA

TO THE HOST. SPECIFICALLY, IT IS WRITTEN T0:

THIS ‘DRIVER'' ROUTINE IS CALLED FROM DIIVER_INIT FOR EACH CONTROLLER
CONF IGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RDRX ONLINE

R L R

‘e

! INITIALIZE RESPONSE RING

routine CTLR_INIT : novalue =
tEmImImImImImImIiGI@miGIimimims

N
3223332
g8S3883838883558s$388283PSP P

d D D e
D e
) i
D

) D D

000 ©00000

— emd e and b b e cnd D e

0000000000
A TR T PRLA DA TR LA PR PR D DA T 1 e 0000000000 00000000 0000000000000
S
R
R STSO O
R R A LLA

2003

VAX=11 Bliss=16 V3-555
Z:EDIETIRELEASEJZRQABO. fl.Z.?(S)
-Jul-"fi ‘lg g gg DISKSUSER
S1=Jul=1

OO0
OO0

INITIALIZATION TEST ROUTINES

RD/RX EXERCISER

SEO 279

INITIALIZATION TEST ROUTINES

~nN

S}-Jul-19l
=Jul-198

RD/RX EXERCISER

=11

Bliss=-16

! SET "GO’ BIT (START CTLR POLLING)

if SET_CTLR_CHAR () eql SUCCESS

! SET CONTROLLER CHARACTERISTICS

= ONLI
Sf?,aoou STAT)
STATE] = ONLI
in

D1sksUsE 2:
2: [DIE TZ.RELEASEJZRQABO.BL2;15 (5)
DISKSUSER

WRT_RDRX (RCSA, RC_ALL, SA_GO);
then

SEQ 280

! MARK CONTROLLER ONLINE IN ‘'DRIVER'
! MARK CONTROLLER ONLINE IN ‘‘PROGRAM'

E'SJ’_ADDR

! HARD INIT FAILED

begin

m&.cm (.CCTLR, DU_INIT);

! DROP ALL CONTROLLER'S UNITS

CRRRRRRRARARARIARRRL =

! ROUTINE CTLR_INIT

~
~N

INT.ADDR(RO) ,=(SP)

T
REN(SP)
. VECTOR,=
CUR

#40000,30CT.ADDR
R.RO
R

000002

0000006

g.W.FLAGS
PC,REG.EXIST
RO
1$

g.W.FLAGS
PC,VEC.BR.TEST
RO

000000V

2
CCTLR, (SP)

#2,-(5P)
PC .DROP.CTLR

#12,5P
58

000000V

040000

#177760,.R1
R1,LSLUN

0000006

PC,HARD. INIT
RO R1

#40000,3DCT.ADDR

* RESULT

-5

g;.-(SP)

OO0

NWVINN
= b b

040000 0000006
0000006

: §§§§§§§§§E

d b o cmd e omd D =D D e =D o

—

§88888888383888883

NG AR R
FRES AR

—

8 282233
g R enCor8RS8
283
SodedESSNE
o
3g

3
777

Vids

£33

b e

R1,=(SP)
Pg‘lfll «CTLR.DAT
#340,~(SP)

CCTLR,RO

000112*
001234° 000003

CTLR.INIT INITIALIZATION TEST ROUTINES

—

LSBTTL

CYLR.!N!EV

000001

000000V
000001
0000006
000002
000000V
000001

3s:

000002
0000006

01260

; Routine Size:

4$:

000010
94 words,

: RESULT,*

MOV
JSR
CMP
BNE
8IS
MOV

R1,2(R0)
PC.SET.CTLR.CHAR
RO.#1
X
#100000, aDCT.ADDR
CST.ADDR RO

s RC.REG,*

BR
MOV

43
CCTLR, (SP)

BIS

0000006

%%g

R1.M
3s
PC, INI.RRING
#1.R1

MOV

100000 0000006
0000006
100000 000002

000264

(P8
BNE
JSR
MOV

5%:

RO
RDRX.ADDR,

(RO)
000020,

MOV
JSR
ST

#2,-(SP)
PC.DROP.CTLR
(SP)+

MOV

(SPS+,R1

ADD
RTS

#10,5P
C

Routine Base: $CODES + 0634
7 words

m:i” stack depth per invocation:

: *,RC.REG

2010

2013

2014

2016

3
s

2019
2020

3
:

2010
2026

2025

1979

1961

0000000000R00R0ORRRRRORVNRRRRRIIY

INITIALIZATION TEST ROUTINES

VAX=11 Bliss=16 V3-555
DISKSUSERZ CDIETZ.RELEASEIZROABO.BLZ;1 (5)

OO0

%1-Jul-198
15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER

SEO 281

%1 :Jul°19

g g TSR R R R TR TRPRTR TR TR PR TRLALA L T §~

RD/RX EXERCISER

1=Jul=1983

INITIALIZATION TEST ROUTINES

5:33:gg
5:23:

SEG 282

?(
DISKSUSERZ [DIETZ.RELEASEIZRQABO.BL2;
1 6)
VAX=11 Bliss=16 V3-555

routine INI_CTLR_DAT : novalue =
s

THIS ROUTINE 1S RESPONSIBLE FOR INITIALI 4 ING ALL CONTROLLER-RELATED
DATA IN THE "DRIVER'' PORTION OF THE EXER C ISER. THIS INCLUDES THE
CONTROLLER'S DCT AND OUTSTANDING COMMAND LIST.
lMlCchlWTS

CTLR = CURRENT CONTROLLER NUMBER
DCT_ADDR = ADDRESS OF CURENT CONTROLLER'S DCT

DCY ADDR

CTADDR

RRZEND] = .DCT_ADDR RRBEG 0 ((RR!NGLEN
CRZBEG] = .DCT_ADDR
“ADDR CRBEGJ 0 ((CRINGLEN = 1) = &4);
END] = .DCT
CR_
[
RRZPOLL] = .DCT_ADDR

CRZPOLL] = DCT_ADDR CCRkXTJ = .DCT_ADDR [CR_BEG];
«SBTTL

INI.CTLR.DAT INITIALIZATION TEST ROUTINES

SR
MoV
CLR
MOV

R1,$SAVE2
DCT.ADDR,R1
(R1)
06.R2

MOV

-(SP)
:so.
C,BLSMUL

INI.C TLRJDAT:

N b b =d
) b wmmd =b

§°°°°gs
§§R

ADD

: Routine Size:

MOV
ADD

OCWZ?EM‘IO.RO
10,
R1.R0

ADD
MOV
RTS

MOV

MOV
MOV
CMP

42 words,

ccima.-«sr>

6(R1) (RO)
%4, (RO)
(nb) 12(R1)
#14,12(R1)
(R2) ,14(R1)

MOV
ADD

000012

(R0) ,20(R1)
(RO) .16(R1)
(SP)+,(SP)+

Routine Base: $CODES + 1130
6 words

Haxiaun stack depth per invocation:

CLEAR FIRST DCT WORD
START OF RESPONSE RING
LAST SLOT IN RESPONSE RING
START OF C OMMAND RING
LAST SLOT IN COMMAND RING
FIRST RRING SLOT TO POLL
CRING POLL AND NEXT COMMAND POINTERS

=
De?"AboRR CwORDOD
RR_BEG]
SCWMEAOOO ( CCTLR*CMLEN*2);
DCT-ADD
= 1) ~ 4);

MOV

SRR =%

INITIALIZATION TEST ROUTINES

routine REG_EXIST =
-

3
3

2051
zogg

3
3
3
3

S?
5058
059

'
!
!
!

2064

THIS IS THE REGISTER EXISTENCE (OR °'PROBE’'‘) TEST DESIGNED TO VERIFY
THE PRESENCE OF AN RDRX DEVICE. THIS OBJECTIVE 1S ACCOMPLISHED BY
SETTING UP THE NON-EXISTENT MEMORY (NEX) TRAP VECYOR (LOCATION &) AND
ATTEMPTING TO READ WHAT IS ASSUMED TO BE THE DEVICE'S SA AND IP
REGISTERS. IF THE NEX TRAP HANDLER IS lNVOK;D DUE TO AN ABSENT DEVICE,
THEN THE GLOBAL DATUM °WEX'® WILL BE SET TO '‘TRUE''. THIS DAT

DETERMINES THE SUCCESS 7/ FAILURE VALUE OF THIS ROUTINE.

206%

begin

2065

local

:
3

2066
%82;

2069

if .ENTRY_REASON eql NEW_PASS

gg;‘!e

then

%8;2

OF_RC = 2;

3
$

2075
2076

:
H
H
H
3
H
3
3
3

! TEMP FOR READING SA AND IP
! AS THE NAME IMPLIES

TEMP : word,
DUMMY : word;

2070

! SKIP TEST FOR NEXT PASS
! SET UP TO READ SA FIRST

return SUCCESS;

2077
2078
2079
2080
2081
%%

NEX = FALSE;
SETVEC (4, NEX_TRAP, PRIO7);
TEMP = (. RDRXADDR + OF RC)'
DUMMY = 0.

2084
2085
2086

if .NEX
then
begi

CLRVEC (4);

2091

end

%882

:
3
:

2095
2096
2097

end
until .OF_RC Lss 0;

2099

end,

2087

2088

return FAILURE;

2090

else

2092

2098

000000 004137

+
ERR_HRD]
FAILED
TEST
EXI§TENCE
REGISTER
'' LOWER
PRIORITY

RR_TBL [. CCTLR C_ERR _HRD] = .C ERR T8L [.CCTLR

(10. EGD_ 10, EMs_10);
ERRDF
SETPRI (PRI00);

! SET TO *"‘TRAP NOT RECEIVED''
! SET LOCATION & TRAP VECTOR ADDRESS
! READ REGISTER (THEN TRAP OR CONTINUE)
! DUMMY INSTRUCTION TO COVER TRAP RETURN BUG
(TRAP RETURNS TO NEXT INSTRUCTION)
!
& TRAP VECTOR ADDRESS
LOCATION
! CLEAR
' IF NEX TRAP OCCURRED

2089

V3=555

VAX=11 Bliss=16
[DIETZ.RELEASEIZROABO.BL2;A1e
DISKSUSERZ

! SET UP FOR IP REG OR QuUIT

OF_RC = .OF_RC - 2;

return SUCCESS;

0000006

.SBTTL REG.EXIST INITIALIZATION TEST ROUTINES

REG.EXIST:

[elel=lelelalelelelell=1-20]

{ v01.2
3

1=Jul=1983 15:33:38
15:23:38
S1-Jul=1983

RD/RX EXERCISER

ZRQAM3

SEG 283

né

INITIALIZATION TEST ROUTINES

§§

000002

0000006
000340
0000006
000004
000003

RDRX.ADDR,RO
OF .RC,RO
éao>.n1

2079

#4,R0
3
o;.ufx

;

2082

2084

CCTLR,RO

2087

2088

2089

:
:
s
:

2084
2086
2093
2076
2096

2063

2051

zz.or.RC

5&0 -(SP)
TRAP,=(SP)

1$:

#NEX.
#4,-(SP)
#3.=(SP)
37’

C.ERR.TBL (RO)

210.$P

000010

000002

: Routine Size:

000010
0000006

2s:

0000006

38:

1$
#1,R0

4$:

60 words,

#2
0;.RC

0 -RC

000001

RTS

$CODES + 1254
Routine Base:
9 words

Haxinun stack depth per invocation:

VAX=11 Bliss=16 V3=555
LGY3302 AsE12R0AB0.8L2: T8(7
A

2051
2069
071
073
2077
2078

§gfav.nenson.os

0000006

SEO 286

H
:
:
H
s

R1,$SAVE2

0000006 000005

& FRERZRHRSE XXNSF SRS

> S2388889888888888S%s

S1-Jul-198
15:33:
15:23:
1=Jul=1983

RD/RX EXERCISER

ZRQAM3
iV01.2

SRS S

KRN R RN NS SR I N r v O BB IR AR NS

dddddfldddddddddddddddddd‘ddddddddddddddd-‘dddfldddd

VIS
BB BB

g1-Jul°19l3 15:33:38
1=Jul=1983 15:23:3 8

VAX=11 Bliss=16 V3=555

2;15
2:
ZRCABO.BL
SER
[DIETZ .RELEASEJ
DISKSU

routine VEC_BR_TEST =
'+

THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RORX 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
“FUNCTIONAL TEST STARTED'' IS PRINTED BEFORE THE TEST, AND
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
THIS POINT, THE EXERCISER MUST BE STARTED AGAIN.

IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY SETTING THE
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.

begin

if .ENTRY_REASON eql NEW_PASS

then

be?in

SETPRI (PRI00):;
re;urn SUCCESS:;

! LOWER PRIORITY
! SKIP TEST IF NEXT PASS

ena;

PRINTF (MSG_02);

! "FUNCTIONAL TEST STARTED''

2; INT_GEN () eql FALSE

! FORCE AN INTERRUPT

else

' IF INTERRUPT DID NOT OCCUR
J
begin
C_ERR_TBL [C.CCTLR, C ERR_HRD] = .C_ERR_TBL L[.CCTLR, C_ERR HRD] + 1;

ERRDF~(11, EGD_11, 07;

' VECTOR TEST"FAILED

be?in
PRINTF (MSG_03):
SETPRI (.BRLEVEL);

! INTERRUPT DID OCCUR
! “EXERCISER STARTED''
! SET PRIORITY TO ASSUMED BR LEVEL

:g INT_GEN () eql FALSE

! FORCE AN INTERRUPT (SHOULD NOT OCCUR)

return FAILURE;
end

be?in
SETPRI (.BRLEVEL - %0°'40');
DELAY (1);

' IF INTERRUPT DID NOT OCCUR
! LOWER PRIORITY BY 1
! WAIT

if .DCT_ADDR [SA_SAVE] neq 0

! IF INTERRUPT DID OCCUR (SA_SAVE WOULD BE NON-ZERO)

then

begin

SEQ 285

Page

(8)

INITIALIZATION TEST ROUTINES

—

L LR LR LA L) (TR IRTR IR IRIETETETE R IR P A L L T
e T e TR D TR TRLA LA L AL LR
e
O
SRR R R R R E ST N O

RD/RX EXERCISER

)

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

2153

SETPRI (PR100);

5155
156
2157
2158
2159
2160

end;

2154

VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEA SEJZRQABO.BL2;15

(8)

! ONLY SUCCESSFUL EXIT POINT

end;

! COME HERE ONLY FOR BR TEST FAILURE

SETPRI (PRI0D);

2163

ERRDF (12, EGD_12, EMS_12);

2164
2165

SEQ 286
Pago 30

! RESTORE PROCESSOR PRIORITY TO 0

return SUCCESS;

2161

2162

5
C_ERR_TBL
L.CCTLR, C_ERR_WRD] = .C_ERR_TBL [.CCTLR, C_ERR_HRD] + 1;

return FAILURE;
end;

LSDLY

012746 000001
1 0600
04417
004737 000000V
005700
001012
013700 0000006
006300
105260 0000006
104455
000013
0000006
000000
000466

§88888888

§§§§E§§§§§§

012716

012746
010600
104417
013700
104441

004737
005700
001035
013700
162700

0000006
000001

2100

Egrnv.aEAsou.ns

2123

RO
61
7
#MSG.02,~(SP)

2126

-($P)

#1,-(SP}
SP,RO
17

PC, INT.GEN
RO

2s:

2s
CCTLR,RO
RO
TBL (R0)
C.ERR.
55
13
EGD.11
0
9s
#MSG.03 (SP)

#1,-(SP)

2125

2130

2132

2135
2136

000000G 000005

R1,=(SP)

—

6
123727

MoV

VEC.BR.TEST INITIALIZATION TEST ROUTINES

.SBTTL
VEC.BR.TEST:

001236°

SP,RO
17
2§LEV£L.R0

2142

000000V

PC,INT.GEN

2144

001236°
000040

RO
8s
BRLEVEL ,RO
#40,R0

2147

&«

: $SSTMP
: $STMP1

58:

: $SSTMP2

3s
DCT.ADDR,RO
(RO)

062
012700
0004

000006
000001

2150

2153
2150
2152

7$:

2140
2161

2162

C.ERR.TBL(RO)
55

2163

EGD.12
EMS.12
(SP)+,(SP)+

2100

9%:

108:

RO
(SP)+
(SP)+,R1

: Routine Size:

88 words,

Routine Base:

: Maximum stack depth per invocation:

7 words

SCODES + 1444

£MN

)
w

6(SP)

6$:

0000006
000002

wviwn

4S:

AV ONAO OO OO

323
g

: =, $8TMP1

SN NNV A

000006

ggDLV.RO

3s:

2148

S S B S PP

005066

: «,$8TMP2

—— — — — — — — — — — S~ S~ S

0000006

41
#1.R1

013700

000001

SEQ 287

e e

000210

Bliss=16 V3=-555

g?sxsusgnzftolitl.RELEASEJZROABO.BLZ:1!’(8)
X=11

e e e e

§§§§z

8 §88388882888 =

INITIALIZATION TEST ROUTINES

01270}

51-Jul-1983 15:
1=Jul=1983 1

RD/RX EXERCISER

STREFNIELEE ~W

adlad

VAX=11 Blis3=16 _V3-555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL 2; 19’( 9)

routine INT_GEN =

THIS ROUTINE BEGINS AN RDRX INITIALIZATION SEQUENCE,

BUT ONLY

COMPLETES THROUGH THE STEP 1 WRITE. ITS PURPOSE IS 0 CREATE AN RDRX
INTERRUPT (AT THE COMPLETEION OF STEP 1) IN ORDER TO HELP VERIFY THE

THE USER-SPECIFIED VECTOR ADDRESS AND BUS REQUEST INTERRUPT LEVEL.
A VALUE OF "TRUETM 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

N
o

! STORAGE FOR STEP 1 READ AND WRITE

SA : word;

! WAIT
! STEP 1 READ

DELAY (10);
SA = .RDRX_ADDR [RCSA, RC_ALLJ;

SA = (WR_RING * 8) or (.CURREN?_VECTOR & «2) or SA_INT;

WRT_RDRX (RCSA, RC_ALL, .SA);

! STEP 1 WRITE

incrbgm%m from 1 to 1600 do

! TOTAL DELAY COUNT OF 8,000

: ’1; .DCT_ADDR [SA_SAVE] neq 0

! IF SA WAS CHANGED

BREAK;
en

end;

return TRUE;

r:‘t’um FALSE;

0000006

.SBTTL

0000006
000002

2166

CLR
MOV

2(R0)
#-1,R0

2183

: *,RC.REG

MOV

#12.R1

e, $STMP
:: RC.REG,

2184

ggx

%}DLV.RO

: «, $8TMP1

MOV

0000006

MOV

1%:

2%:
3s:

INT.GEN 5NITIALIZATION TEST ROUTINES

R1,$SAVE
=(SP) ,=(SP)

INT.GEN:JSR
CMP

000002
177777

000012

! INTERRUPT OCCURED

' IF INTERRUPT DID NOT OCCUR

end;

000000G

! STEP 1 WRITE VALUE

DEEAV (5);
n

NN OV

' ZERO OUT SA SAVE WORD IN DCT
! WRITE IP TO START INIT SEQUENCE

DCT_ADDR [SA_SAVE] = 0;
WRTCRDRX (RCIP, RC_ALL, ALL_ONES):

. . . S S~ N S P

g S8SRYREC2SBBIRIRER

local

BEQ

CLR

DEC
BNE

DEC

DCT.ADDR,RO
RO,SRDRX .ADDR
43

2(SP)

R(s)
2

: SSTMP

: $SSTMP1

: $STMP2

2185

. . =~ — —— — L~ L— i~ — L~ —

ee e e e

€N

gl-Jul-‘l%S 15:33: 8
1=Jul=1983 15:23: 8

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES
AONNININ AN AN NINININI AN NI NN N NN NN NN NN NN NN

NN OV A O OO OO OO OO

000054
000056
000062

000100

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

ZRQAM3
v01.2
000766
013700

3701
006201

052702
012702

2
0001%3

000002
003100
000005

013700

0000006

000132

005066

000002

i
2187

: SA,RC. kEG

2188

: RC.REG

R1 as

H .SA
s *,SA

#111200,R2

az R1
mo)

;

s RC.REG,*

:3100

: =, COUNT

LSDLY,RO

: +,$8TMP1

2(SP)

: SSTMP
: SSTMP

os.m

5$:
6$:

SEO 289

gc
VAX=11 Bliss=16 V3=555
1 (9)
O.BL2;
DISKSUSER2: [DIETZ .RELEASEJZRQAB

RDRX.ADDR RO
2(R0), (SP

ggRRENT+VECTOR,R1

111200

000
000112

300

4S:

0000006
000002
001234°

: *,$8TWP2

2190

2192

: $STMP2
0000006
000002

2195

01
005760

62
68

012700
000403

000001

2197

s COUNT

2190

3
3

2178
2166

108:
118:

: Routine Size:

65 words,

Routine Base:

Naxiaul stack depth per invocation:

7 words

RTS

R
(SP)+,(SP)+
PC

$SCODES + 1724

INITIALIZATION TEST ROUTINES

—

1=Jdul=1
15:33:;3
3; 15:33:
51-.)0[-13

RD/RX EXERCISER

5~
A TRTR TR TR PR PR PRTR LA LA L T
R s T T
e T TR TRPR D DR LA T L (TR IR IR R
RIIIE I R T RO T T s o s o e
MR

20;
20

s
207

VAX=11 Bliss=16 V3=-555
2: [DIETZ .RELEASEJZROABO.BL2;13 (10)
DISKSUSER

routine HARD_INIT =
-

THIS ROUTINE PERFORMS THE FOUR READ / WRITE STEPS REQUIRED TO
INITIALIZE AN RDRX DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY OF

i
H

THE FOUR STEPS,

THEN A SUCCESS VALUE IS RETURNED TO THE CALLER.

208 !
%%?3 :

OTHERWISE ADDleM ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE.
IF ALL MfEflTS FAIL, A FAILURE INDICATION IS RETURNED.

. begi
%%}‘
221%

%214

local

! 1E-BIT=AND=-VECTOR-ADDRESS/4 BYTE
(USED IN STEP 1 WRITE AND STEP 3 READ)
!

g%}g

IE_VEC = .CURRENT_VECTOR * -2;

! GFT VECTOR ADDR/& (IE = 0)

2220

incr ATTEMPTS from 1 to INI_ATT do

215
%%}9

IE_VEC : word;

begin

2221
222
222
2224
2225
222

Label
STEP_1_READ,
STEP_2_READ,
STEP_3_READ,

ggga

STEP_&_READ;

35233

WRT_RDRX (RCIP, RC_ALL, ALL_ONES);

2231

STEP 1 READ

2232
2233

STEP = 1;

incr COUNT from 1 to 100 do

2237

DEEAV (5);

! TOTAL DELAY COUNT OF S00 FOR STEP 1

SA_REG = .RDRX_ADDR [RCSA, RC_ALLJ;

! READ SA

if (.SA_REG and S1_MASK) eql SA_S1

! IF STEP 1 READ IS 0.K.

begin

2238

2239

2240

BREAK;

%%23

2243
2244

then

224
2248
2249
2250
2251

end;

%gzs

525

25
22564

! WRITE IP TO START INIT SEQUENCE

STEP_1_READ:

2234

leave STEP_1_READ;

exitloop;
end;
!

!
!

STEP 1 WRITE

SEQ 290
34

[L¥]

SA_REG = (WR_RING * 8) or .IE VEC;
WRT_RDRX (RCSA, RC_ALL. +SA_REG);

STEP 2 READ

NN NN NN

1T (103
Y e ease 1znonB0.BL2:

' STEP 1 WRITE VALUE
i STEP 1 WRITE

begin

NININININ

VIV
NNQ NYNPRRRELEIE
EY S82Soow\u
332
JaJ

QO S i a

incr COUNT from 1 to 2000 do

EEE&.""

SA_REG = .RDRX_ADDR [RCSA, RC_ALLJ;

! TOTAL DELAY COUNT OF 10,000 FOR STEP 2
! READ SA

it (.SAREG and S2_MASK) eql (SA_S2 or WR_RING) ! IF STEP 2 READ IS 0.K.
leave STEP_2_READ;
end;

::;:loop:

STEP 2 WRITE

WRT_RDRX (RCSA, RC_ALL, .DCT_ADDR [RR_BEG]):
:

! RINGBASE-LO, PI = 0

STEP 3 READ
STEP = .STEP + 1;
STEP_3_READ:

begin

incrbgogzt from 1 to 2000 do

S
SR

gsg:z:(S):

! TOTAL DELAY COUNT OF 10,000 FOR STEP 3 READ

SA_REG = .RDRX_ADDR [RCSA, RC_ALLJ;

! READ SA

:;eg.SA_REG and S3_MASK) eql (SA_S3 or .IE_VEC) ! IF STEP 3 READ IS 0.K.

2297

e e 0000000 Ve 0000000000000 8: %% % 0, I

TRITRIATA

AR L] W00 0000 %0 80000000 00900000 809%00%09%000 %000

TEST ROUTINES
NIIACIZATION

leave STEP_3_READ;
end;

exitloop;
end;

STEP 3 WRITE

SEQ 291

T (10)
Qo 1 Rid Ul to e Y e ease 1zR0AB0.8L2:
! PP, RINGBASE-HI = 0

STEP & READ

SEQ 292

VNV

begin
incr COUNT from 1 to 2000 do

St
-'g GOKKK
NO VIS W) =

m}\?_(sx:
BREAK;

! TOTAL DELAY COUNT OF 10,000 FOR STEP & READ

SA_REG = .RDRX_ADDR [RCSA, RC_ALLJ;

! READ SA

:.f'e'(‘.SA,J!EG and S4_MASK) eql SA,Sf

! IF STEP & READ IS 0.K.

leave STEP_&_READ;
end;

STEP & WRITE

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

CREDIT BAL = 1;

2334

CREDIT BAL = 0;

H! NO CREDIT BALANCE

return FAILURE;

! ROUTINE HARD_INIT

C ERR _TBL C.CCTLR, C_ERR_HRD] = .C_ERR_TBL [.CCTLR, C ERR_HRD] + 1;
! INIT SEGUENTE FAILED
ERRDF~ (13, EGD_13, EMS_13);

end;

pury

000000

e A
T

~ 0000006

.SBTTL
HARD. INIT:

JSR

HARD.INIT INITIALIZATION TEST ROUTINES

R1,$SAVES

000012
001234°

suB
MOV

#12,5P
CURRENT . VECTOR,Ré

ooooo;

ASR

#2.RS

: IE.VEC

LSDLY,RO

; +,$8TMPI

17777
000001 0000006
000144
000005

0000006

ASR

MOV
g

MOV
MOV
MOV
MOV
ggg

MOV

; «,1E.VEC

: 1E.VEC

#-1,R0
RO, 3PDRX .ADDR
#1.STEP
2144 R2
gg.ni

: *.RC.REG
: RC.REG,*
:
: =, COUNT
: «.$STMP2

Ré

: «, ATTEMPTS

2202

2218

220

229
szgs
237
2239

OO0V

WN=O

e e

WRT_RDRX (RCSA, RC_ALL, 0);

i ch e e

o e

NN NN NN NININN NN NN NNNN

.¥

TEST ROUTINES
TRITIACIZATION

§~

gggégggggggg § 4 5 e 50 5 G5 56 S5 Gs Se 560 5 60 Sy 5 05 5 5 05 S5 5 05 5» 5 05 05 56 00 $0 56 So S5 0 S0 0 3

——

8832
8288222222
3
Q&S
“rfizg”
aNNa
3Shgg3888

INITIALIZATION TEST ROUTINES

000010

38:

0000006
111000 0000006
0000006
0000006
000002
0000006
003720
0000006
000010

02
oosgzo
000005

BNE

68:

B8R
MOV
BIS

2
Ré
#111000, SA.REG

78:
8s

INC
MOV
MOV
BEQ
MOV
BEQ

BEQ

gsg

98:
118:

128:

MOV
MOV

CLR

DEC

BNE
DEC
BR

TRAP

MOV
MOV
MOV
MOV
BIC
CMP
BEQ
DEC
BNE
B8R

MOV
MOV
MOV
MOV

; SSTMP2

2
5
RDRX.ADDR, RO

5
11$
LSDLY,RO
108

10(SP)

93
R1
£
22

2241

2245

2221

: RC.REG,*
:
: *,COUNT
: *,$STMP2

2260
2264

2266

: SSTMP1

: SSTMP2

: COUNT

31‘:3

2255
2256

; ., $8TMP1
: SSTMP

:
: *,RC.REG
: RC.REG,*
: SA.REG,*

DCT.ADDR,RO
4(RO) ,R1
RO
RDRX.ADDR,
R1,2(R0)

2237

: 1E.VEC,*
: *,RC.REG

RDRX.ADDR, RO
2(R0) , 4 (SP)
4(SP) ,SA.REG
4(SP) RO
#3400.RO
RO, #10222
128
78
268

2243

: COUNT

l;;

SA.REG,R
RO
RDRX.ADDR,
1.2
TEP
#3720,R2

:
: *,RC.REG
SA.REG,*
:: RC.REG,*

:
: *,RC.REG
:

: RC.REG,*

2268
2270
.

2272
2264

2221

2282

BIS

ogbggo R3

. JE.VEC.*

235

MoV

#5.R1

: «,$STMP2

2292

T '
138:

: SSTMP1

MOV
MOV
MOV
BIC
CMP

TRAP
e
MOV

oxsxsusenz:toxetz.mmezlmmo.uz;??um
: $STMP

10(SP)

2(R0) ,6(SP)
6(SP) ,SA.REG
6(SP) -RO
#777.R0
RO, #4000

5$:

§§§
et endd

OO0O0
S
N
SS3 &»
N Su
VNN
o
OOOoOW
'y$RES
=2 NOWWNN &8
) b
—

[=1~T~1-]

0000006
000004
0000006
000002

DEC

1
Rl

108:

0000006
000002 000004
000004 0000006
003400
010222

CLR

DEC

48:

0000006
000002 000006
000006 0000006
ooo%
.
001
004000

BEQ

51-.:ut-133§ 15:33:33

SEQ 293

VAX=11 Bliss=16 V3-555

#3720,R2

: «,COUNT

2290

COOOR0ORORRRRRRRRRRRRRLRRRARRRRRINRNKR =%

RD/RX EXERCISER

15:33:

OO0

1=Jul=1983

l
INITIALIZATION TEST ROUTINES

158:

000010

168:

17%:

000005
000002
003400

78
$DLY,.RO

TM —d

148:

0000006

8(se)
i
1 $
R1
14$

22
RDRX.ADDR, RO

18$:

2296

;ai

F
s COUNT

2298
2290

268
RDRX.ADDR,RO

H
:

2221
2308

H
s =,COUNT
: *,$8TMP2

5312
316
2318

O
e

: SSTMP
: $STMP

22%:

: $STMP2

RO, #40000
25$
248:

25%:

0000006

R3
198
268

g}.CREDlt.BAL
RO
RDRX.ADDR,
2(RO)
#1,R0

0000006
000002
000001
0000006

RDRX.ADDR,RO
(SP) ,SA.REG

003777
040000

0000006

: +, $8TWP1

2(R0), (SP}

0000006

: REREGs

21%:

238:

0000006
000002
0000006

N§N 8St=

S
SSSSIVIISD 2
W
W
S
RS
288IR

000010

000001

208:

0000006

: $STMP2

: SA.REG,*

19%:

000005

: $STMP

2(SP) RO

(SP) ,SA.REG

000002
0000006
003720

: $STHP

2294

#3400.R0
RO,R3

0000006

: 58T

(RO ,2(SP)

000002
0000006

" SEQ 294
38
P
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2;:15 (10)

26%:

CREDIT.BAL
CCTLR,RO

C.ERR.TBL(RO)

2320

s SA.REG,*

2322

s
s COUNT

2324
2316

3
Fi
s RC.REG

2221
2333
2334

2221

: *,RC.REG
2 RC.REG,*

2339
2340

§1°Jul-1903 15:33:§g
1=Jul=1983 15:23:

RD/RX EXERCISER

700

OO0 OOOROOROORRROORVLLRNVNRLVVVYPVRV =

w
~n

INITIALIZATION TEST ROUTINES

000624

5
g8
1
1
1
1

27%:

CLR

ADD
RTS

55
13
EGD.13
ENS. 13
RO
”2,5P
PC

Routine Base: $SCODES + 2126
: Routine Size: 203 words
13 words
fnvocation:
per
depth
: Maximum stack

=11

Bliss=16 V3-555

g?éKSUSgRZ?EDlETZ.RELEASE

SEQ 295
39
P,
JZR0OAB0.BL2;15 (10)
2341

2212
2202

eyt
e
ol

S1oJut-1983 13:33:38

RD/RX EXERCISER

1=Jul=1983 15:33:38

[el=l=]lelelelelelelelelelel=]

INITIALIZATION TEST ROUTINES

THIS ROUTINE 1S RESPONSIBLE FOR ALLOCATING ENOUGH MSCP PACKETS TO
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
WITH THE FLAG AND OWNERSHIP BITS SET TO '"1"°, MAKING EACH SLOT

CONTROLLER-OWNED.

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER
DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT

begin
local

ndex : word,

RRING_ADDR;

! FIRST RESPONSE RING SLOT

RRING_ADDR = .DCT_ADDR [RR_BEGJ;
incr COUNT from 1 to RRING_LEN do
b:ain

index = GET_PKT (.CCTLR):

.RRING_ADDRTM= .MSCP_PKT [.index, PKT_LOJ;

RRING_ADDR = .RRING_ADDR + 2:
.RRING_ADDR = .MSCP_PKT [.index, PKT_HIJ;
PKT_USE [.index] = CCTLR;
i
.RRING_ADDR = ..RRING_ADDR or ED_OWN or ED_FLAG;!
i
RRING_ADDR = .RRING_ADDR + 2;
end;

GET AN MSCP PACKET
LOAD LO-ORDER BUFF DESC INTO SLOT
ADVANCE TO SECOND WORD

LOAD HI-ORDER BUFF DESC INTO SLOT
PACKET IN USE

GIVE OWNERSHIP TO CONTRLLER
ADVANCE TO NEXT SLOT

end;

SRR

0000006

000004

3 0000006
000004
9

0000006

.SBTTL

INI.RRING INITIALIZATION TEST ROUTINES

JSR

R1,$SAVES

MOV

4(RO) ,R&

: *,RRING.ADDR

INI.RRING:

1$:

MOV

MOV
MOV
MOV

JSR

DCT.ADDR,RO

CCTLR.R3
#4,R2
R3.=(SP)

PC.GET.PKT

2365

:
: «,COUNT
:

2369
2367
2369

: +, INDEX

MOV

RO.R1

6 000104

MOV

#104,=(SP)

0000006

MOV

MSCP.PKT(RO) , (R4)+

: *,RRING.ADDR

3 0000006

MOV

CCTLR,R3

6
7

- N

0000006

& 0000026

MOV
JSR

MOV

R1.(SP)

PC,BLSMUL

MSCP.PKT+2(RO) , (R4)

2344

: INDEX,*"

¢ *.RRING.ADDR

2370

2372

373

e e 0000000000000 %0 0000000000, %000%0 %% %0 TR TR TR R

L8 1% 3

000~

SUSANIAINSELLL
LR

DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2;15 (11)

routine INI_RRING : novalue =
'+

SEQ 296

VAX=11 Bliss=16 V3-555

R TR A TRTR DR D T TR R L ITETETETETIRA LA TRTN T

51-Jul°1983 15: S:g

RD/RX EXERCISER

§ IR LRLR LR R LRLR TR TR T T P P P PR PR TR DR TR TR §N

1=Jul=1983 15:33:

ZROAM3
v01.2

RD/RX EXERCISER
INITIALIZATION TEST ROUTINES

000062 110361

0000006

BIS
CMP

DEC
BNE
RTS

000074 005302
000076 001352
000100 000207

: Routine Size:

33 words,

%1-Jul-1915:33:38
«Jul=1983 15:23:38
MOVE

000066 052724 140000
000072 022626

Routine Base:

I: Maximum stack depth per invocation:

8 words

R3,PKT.USE(R1)

#140000, (R4)+
(SP)+, (SP)+
R2
1$
PC

SCODES + 2754

seo 297

ogo
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;1 m»
: *,«CINDEX)

: *.RRING.ADDR
:
: COUNT
:

2374
2368

2367
2344

e
e ettt e

1 NPUTS:
IHPLICITC
cTLR = CURRENT CONTROLLER NUMBER

begin
'+

MISCELLANEOUS INITIALIZATON

R
AR A A R O O R R A A T PR PR PR PR TRLA TR LA TR LR LALA 1 X R T

Q10 C.CCTLR] = 0;

' INITIALIZE NO. OF OUTSTANDING QIOS

incr COUNT from 0 to (RP_CNT = 1) do
RP_USE [.COUNT] = =17

! INITIALIZE RETURN PACKET POOL

10DQ_IN = 10DQ_OUT = 0;

' INITIALIZE 1/0 DONE QUEUE POINTERS

= GET_PKT (.CCTLR);
P_INDEX

!i GET AN MSCP PACKET

MSCPTPKT [.P_INDEX, clo TYPE)= IMM_CMD;

i IMMEDIATE COMMAND

M3CP_PKT [.P_INDEX, MSGLEN] = $Z_SCC:
MSCP-PKT [.PZINDEX, OPCODE]
= OP_SCC:
MSCPTMPKT [.PTINDEX. C FLAGS]= CF_MASK:
if SEND (.P_INDEX) eql FAILURE
then

! ATTEMPT SEND

begin

' IF SEND WAS UNSUCCESSFUL

PUT_PKT (.P_INDEX);
DROP_CTLR (TCCTLR, DU_CFATAL);

ATAL
' RETURN PACKET TO POOL
i DROP CONTROLLER

begin

! IF SEND WAS SUCCESSFUL

+
C_ERR_HRD]
ERR T8L C.CCTLR, C_ERR_HRD]= .C_ERR_ raL t CCTLR,
ERRORTM

EkRoF (20, EGD 20, 07;
else

SIZE
i
= SET CTLR CHAR
i
i CONTROLLER FLAGS

return FAILURE;
end

RP_ INDX = OUT_I

Q 0O;

' WAIT FOR RETPKT RESPONSE
! GET INDEX OF RETPK
! CALCULATE REYPKY ADDRESS

RP_ADDR = RETFKT * (. RP INDX * RP_ LEN * 2);
:; .RP_ADDR [MESTYP] neq MT_SEQ
en

be?in

WAIT ();

£MN

|
INITIALIZE D. ITS PURPOSE IS TO_FORMAT AND SEND THE "'SET CONTROLLER
CHARACTERI STICS'® COMMAND, AND TO VALIDATE THE RESPONSE (END MESSAGE).

e, P F SN PR RPN OYOYYO

THIS ROUTI NE IS CALLED BY CTLR INIT AFTER THE RDRX HAS BEEN HARD-

S S

. S S S S~ S S S

— —— — — — — —

routine SET_CTLR_CHAR =

(12)

$I8ISREERERECEE3

NININNNINNIN
NN NN NN

VAX=11 Bliss=16 V3~ 555
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BLZ2;1

PUT_RETPKT (.RP_INDX);

! RETURN ALL RETPKTS NOT SENT BY CONTROLLER

INITIALIZATION TEST ROUTINES

g
T TR TR T PR A TR PR TR PR LA LALN T

1=Jul=198315:2

51 =Jul-198
15:3%:;3

RD/RX EXERCISER

SEG 298
ge

105061

SEO 299

TZ.RELEASEJZRQABO.BL2;13.(12)

RPNRPNRPNENEN

VAX=11 Bliss=16
DISKSUSERZ2:[DIE

V3-555

end

CcID DNIVER) or
until (.RPADDR [CONIDJ Sql

and
oql OP_END));
END)
ondOP
tenocooJ
(. RP_ADDR

(C.RP_ADDR [MESTYP

SN S

R'
! "ERROR IN SET_CTLR_CHA
PACRET

PR?NTF (DBM23)

i RELEASE RETURN

PUT_RETPKT (. Rfi INDX) ;

end
else

return FAILURE;

i DROP CONTROLLER

DR_ERR ();

! IF WRONG ENDCODE

! OR FLAGS IN ERROR

—— —

if ( RP_ADDR CENDCOD) neq (OP_SCC or OP_END)) or

- (C.RP_ADDR [C_FLGS] and CFZMASK) neqCF_MASK)

! ELSE = RETPKT IS FROM DISK MSCP

begin

t CCTLR, C_ERR_HRD] + 1;
ERR tBL
[.CCTLR, C_ERR_HRD] = .c! FATAL
C RRTBL
E
ERR
(21, EGD_21, ERS_2T);
DROP_CTLR (.CCTLR, DU_CFATAL);

PUT_RETPKT (.RP_INDX)?
r:&urn FAILURE.
else

i DROP CONT no LR

— o

ERRDF~

i RELEASE RETURN PACKET

bfigin
! RETPKT HAS CORRECT ENDCODE
CMD_TIME = .RP_ADDR [C_TIME] « 2;

! IF RETPKT IS FROM 'DRIVER'

:.f. .RP_ADDR [CONID] eql CID_DRIVER

it (.SUP_FLAGS and SWF_TRC) eql SWF_TRC
en

PRINTF (DBM25, .RP_ADDR CC_TIME]);

! RETPKT HAS CORRECT ENDCODE

end; -

! IF RETPKT WAS SENT BY DISK MSCP

end;
PUT_RETPKT (.RP_INDX);

retirn SUCCESS;TM

! IF SEND WAS SUCCESSFUL

end;

! ROUTINE SET=CTLR_CHAR

end;

.SBTTL

SET.CTLR.CHAR INITIALIZATION TEST ROUTINES

MOV
MOV

R1,=(SP)
CCTLR,R1

:
:

2379
2397

Move

RO
lS??.RP.USE(RO)

: COUNT
s *,+(COUNT)

2399
2400

SET.CTLR. CHAR:

0000006
0000006

005000
112760 000377

CLR8

0000006

$1°Jul'1915: 3:gfl
1=Jul=1983 15:23: 8

RD/RX EXERCISER
INITIALI ZATION TEST ROUTINES

010146

013701

8
~u

g SetieLtten. N . -.A. S e TR L TE I L RL LT T TTRTR PR §~

1$:

0I0o(R1)

INITIALIZATION TEST ROUTINES

000003

: COUNT,*

RD/RX EXERCISER

: COUNT
H

2399
2402

2405

: P.INDEX,*

2406

s
H
H
H

2407
2408
2409
2611

2614

2415

2616

2617

PC,BLSMUL

#40,MSCP .PKT+6(R0)

§888888888888888s

SERNSRER RIS
RARSER

#6 ,MSCP.PKT+22 (RO)

#120,MSCP.PKT+30(R0)
(RO)
MSCP.PKT+4
P. INDEX, (SP)
PC, SEND

RO
2%
CCTLR,RO
RO

C.ERR.TBL(RO)
55
24
EGD.20
0
P. INDEX, (SP)
PC,PUT.PKT

CCTLR, (SP)

#6,-(SP)
PC.DROP.CTLR
SP)+

000166
72

2%:

>
W

258I

(={=1-]

0000006

000360

000002

33
RP. INDX, (SP)
3s:

PC.PUT.RETPKT

(SP)+
RP.APDR,R1
RO

3(R1) 43

4%
RO

2613
2390

:
:

3425
426

2 RP.INDX,*

2427

2429

2631
24624
2434

SEQ 300

Page 44
VAX=11 Bliss=16 V3-555
(12)
2:15
ABO.BL
DISKSUSER2: [DIETZ.RELEASEIZRO

INITIALIZATION TEST ROUTINES

000360

105761

000014

000002

4S:

5$:

013716

§§53

(=1~

BNTERRELRE
R
=
5
38
SR
SN
NS
BRI
i3

12746

000014

2435

14(R1)

2436

2438

#DBM23, (SP)

2441

SP.RO
17
RP. INDX, (SP)

: SP,*

PC.PUT.RETPKT
pg.on.ean

000204

6$:

000022
177657
000120

0000006

2443
2438
2449

2450

RO,#120
9s
csrta.ao

2453

2454

2455

2456

§§ERR.TBL(RO)

25
EGD.21
EMS.21
CCTLR, (SP)

.~($P)
PC.DROP.CTLR

RP. INDX, (SP)

PC.PUT.RETPKT

2449
2452
2461

#6.SP

128

24(R1),CMD. TIME

CMD. TIME
108

#1,SWP.FLAGS

2463

24(R1), (SP)
#DBM25 .= (SP)

2465

P.RO

: SP,»

#2,-(5P)
1

108:
11$:

12%:
13%:

2442

0000006

14(R1) ,#204
7
22(R1) RO

#177657
R0

283

255

N
SRR 28
O =o

0000006
0000006
000000V

(12)
D1 SKSUSER2 : EDIETZ. RELEASEIZROABO.13BL2;
H

1 ,-(5P)

338i3

W
~

}27‘6

0000006
000001

AX=11 Bliss=16 V3=555

#360,2(R1)

Q3R=R

132761

15:33:38

SEQ 301

(SP)+,(SP)+

RP. INDX, (SP)

FY4

(SP)+,(SP)+

3
:
3
3

2390
2379
2390
2379

PC.PUT.RETPKT
#1.R0

13$
RO
(SP)+,R1
PC

Z1oout-1983 13:33:38
1=Jul=1983

RD/RX EXERCISER

F
RQAM3

501.2

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

Routine Base: $CODES + 3056
: Routine Size: 183 words
: Maximum stack depth per fnvocation: 7 words

1=Jul=1983 15:33:38

51-33{-1983 15:23:38

SEQ 302

'?§'¢13?
VAX=11 Bliss=16 V3=555
DISKSUSER2:
[DIETZ .RELEASEJZROABO.BL2;

e e O T TR TR TR TR DRTR LR DAL AL L LA L LA LA LA L LIATE TR PRTR DALA LALN 1 §

1=Jul=1983

INITIALIZATION TEST ROUTINES

routine UNIT_INIT : novalue =
e

SEO 303

DlSK‘USERZ DIETZ.RELEASEJZRQABO. !LZ 15 (13

THIS ROUTINE IS CALLED FROM DRIVER INIT FOR EACH. CONEIGURED UNIT
2
A CONTROLLER THAT SURVIVED
(DISK) WHICH IS ATTACHED TO
INITIALIZATION, ITS PURPOSE 1S TO FORMAT AND SEND AN 'ONLINE

MESSAGE, AND TO VERIFY THE RESPONSE.

IMPLICITINPUTS:

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

GET AN MSCP PACKET
PACKET SIZE

P_INDEX = GET_PKT (.CCTLR):

MSCP_PKT E.p,rnosx. "MSGLEN] = f ONL.
-P_INDEX, DK_NUM]
=

SET DISK ADDRESS (RD/RX DISK NUMBER)
OPCODE FOR ‘ONLINE''

-P_INDEX, OPTODE) = OPugyl

C.PTINDEX, DDPAR] = BIT

MSCPTPKT

MSCP_PKT C.PCINDEX, CMD_TYPE) =

SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES
SEQUENTIAL COMMAND

SEQ_CMD;

if ssuo (.P_INDEX) eql FAILURE

! ATTEMPT TO SEND; IF CTLR IS OFFLINE

+1;
nsn .T ADDR [ERRHRD_ usn AL
"Roon CERR_HRD
ERROR
cSero C.CUOFF Amlz VE;
ERRDFC.LSLUN]
(22, EGD_2
'
' SETUP REASON TO DROP UNIT
="DUouuue:
DUR

DODU (.LSLUN);

else

DROP UNIT

m_PKT (.P_INDEX);

- RETURN PACKET TO POOL

begin

! OTHERWISE (SEND WAS SUCCESSFUL)

T LLN e e

15:33:

Sl-Jul-19g§ 12:23:;:

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

begin

WAIT O);

WAl
AIT

FOR RETPKT aespouse

RP_ INDX = OUT_I0DQ ();

i GET INDEX OF RETPK

if .RP_ADDR [MESTYP] neq MT_SEQ

RP_ADDR = RET’KT + (. RP INDX * RP_LEN * 2); ! CALCULATE RETPKT ADDRESS
en

RETURN ALL RETPKTS NOT SENT BY CONTROLLER

PUT_RETPKT (.RP_INDX);

end

cIp DR!VER) or
until (.RPADDR ICONIDJ Sal
(C.RP
MESTYP) eql MT_SEQ) and

and OP_END) eql OP_END));
(. RPADDR [ENDCODJ

:'fm.‘».m CCONID] eql CID_DRIVER
bo,in

PRINTF (DBM26);
else

:‘.arP.ADDl CENDCOD] neq (OP_ONL or OP_END) ! IF RETPKT IS FROM DISK MSCP
»flg‘

CERR_HRD DRV] = .T_ADDR CERR_MRD_DRV] + 1;
T
¢ST ADDR C.CUOFF, D _FATAL) = TRUE;
1" FATAL ERROR
ERRDF (23, EGD_25, EMS_21);
i SETUP REASON TO DROP UNIT
DUR C.LSLUN] ="DU_ONLIRE:
DODU C.LSLUN);
! DROP UNIT
end
else
! RETPKT HAS GOOD ENDCODE
begin

:
3
:
:
.
:
3
.

540
541
s:.g
54
544
;sss
546
ssn

gggg

SB_CODE = .RPCADDR

ST_CODE = .RP_ADDR lf’srscoo:l:

i GET STATUS CODE

2551

if .ST_CODE neq ST_SUC

! IF STATUS CODE IS NOT SUCCESSFUL

:
3
:

2554
2555
2556
2557

3
3

2559
g%

:
:

5562
563

:
:
3
:
:

2565
2566
2567
2568
2569

2
:

257
2572

:
:

;

548

2552
2553

2558

:
:

575
576

i GET SUB-CODE

T_ADDR CERR_MRD DRV] = .T_ADDR CERR_HRD_DRV] ¢ 1;
cST_ADDR C.CUOFF, D_FATAL) = TRUE;
ERRDF (15, EGD_15, EMS_30); ! ONLINE FAILED
DUR C.LSLUNJ ="DU_ONLIRE; ~ ! SET UP REASON FOR DROPPING UNIT
DODU (.LSLUN);

end
else

! DROP UNIT

it ((.RP_ADDR [U_FLGS) and UF_WPH)
(.CSTCADDR [.TUOFF, D_PROT] eql

then

else

574

eql UF WPH) and
TECTED)

! STATUS CODE IS O.K.

bex;n
T_ADDR CERR_MRD DRV] = .T_ADDR [ERR_HRD_DRV] + 1;
:
cST _ADDR [.CUOFF, D FATALY = TRUE;
! WRITE-PROTECT CONFLICT
ERRDF (16, EGD_16, EMS_30);
TO DROP UNIT
REASON
SET
!
;
DUR C.LSLUN] ="DU_PROTECT
DODU (.LSLUN);

2570

5573

then
bex;n

2564

[SUBCOD];

end

! DROP UNIT
_

_LBN [.LSLUN] = .RP_ADDR CUSIZ LO] = 1;

CSTCADDR [.CUOFF, D_STAT] = ONLINE;
CSTTMC.CCTLR, U_CNT)TM= .CST C.CCTLR, U_CNT] + 1;

sgg

end;

2581

PUT_RETPKT (.RP_INDX);

! WRITE PROTECT SWITCH IS 0.K.
i LARGEST LBN

! IF RETPKT HAS CORRECT ENDCODE

NN Y

»
'

539

"ERROR IN UNIT_INIT

NN NN

\fl&\fl

=553

535

! DROP CONTROLLER

DR_ERR ();

! IF RETPKT IS FROM 'DRIVER''

NCNCNA NN

INItlAElsAtlon TEST ROUTINES

g 1

S1-J=l-190 1?:33:33

v01.2

SEQ 304

DISKSUSER2: [DIETZ.RELEASEJZROABO.BL2;13 (13)

1=Jul=1983 15:33:

RD/RX EXERCISER

IRQAM3

VAX=11 Bliss=16 V3=-555

LSBTTL

UNIT.INIT INITIALIZATION TEST ROUTINES

JSR
MOV
JSR
MOV
MoV
MOV
JSR
MOV

R1,$SAVES
CCTLR,=(SP)
PC,GET.PKT
RO.P. INDEX
;
RO, (SP)
#104,-(sP)
PC ., BLSMUL
264 MSCP . PKT+6(R0)

233

UNIT.INIT:

66
0000046

JSR
IsT

BNE
MOV
INCB
MoV
ASL
ADD

o
w

MOV
MOVE
MoV
MOV
MOV

BIS

TRAP

WORD

-0

Sooks

3293

18:

2s:

2495

2496
2498
2499
2501

:
:

2504
2505

2506

2507

2508

#360.2(R0)

2520

RP. INDX, (SP)
PC.PUT.RETPKT
(SP)+

:
:

2522
2515

#10000, (RO)

LSLUN,RO
#7.DUR(RO)
51
P. INDEX, (SP)
PC,PUT.PKT
11$
PC,WAIT
PC.O0UT, 100Q
RO.RP. INDX
RO, (SP)
#60,-(5P)
PC,BLSMUL
#RETPKT
RO
RP.ADDR

BEQ

MOV

; P.INDEX,*

1$
T.ADDR,RO
63(RO)
CUOFF RO
RO
CST.ADDR,RO

PC,SEND
RO

MOV
MOVE
TRAP
MOV
JSR
JMP
JSR
JSR
MOV
MOV
MOV
JSR
ADD
MOV
MOV
JSR
ST

2476
2494

:
:
:
:
:

EGD.22

BITB

:
:

CDISK,MSCP.PKT+16(RO)
#11,MSCP.PKT+22(R0)
#1,MSCP.PKT+46(R0)
(RO)
#1.MSCP.PKT+4
P. INDEX, (SP)

"WORD
WORD

RP.ADDR,R1

:
s
:
:
: RP.INDX,*

2497

2509
1
516
517
2518

2525

13 (13):
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2

* ROUTINE UNIT_INIT

0137
004

ggecse=cogee
geee
RO
NA8
$88232
NSS
388888 845822224%IS

s 305

! IF SEND WAS SUCCESSFUL

end;

004137

§888883888888883888=1
35858
SR NIRRT *oRR8
e SINSRIPER

Page

COOVRVPCLVLVVR

INITIALIZATION TEST ROUTINES

1.2

gessssss

- SIS 135188

RD/RX EXERCISER

VAX=11 BLiss=16 V3=555

OO0

Sl 1

RD/RX EXERCISER

IRQANM3
v01.2

INITIALIZATION TEST ROUTINES

000003

VAX=11 Bliss=16 V3=555

DISKSUSER2: [DIETZ.RELE ASEJZROABO.BL2:15

(13)

000003

oo
P =

—

000360

000002

3s:

000014
4$:

#1,-(SP)
SP.RO
17

58:

0000006

CUOFF ,R3
R3

CST.ADDR,R3
LSLUN,R2

0000006
0000006
000014 000211

SP,
¢«

PC.DR.ERR

000000V

SRR

1%
14(R1)
1$
RO
58

#DBM26, (SP)

0000006
000001

000514
000516
000520

0360.2(R1)
4

14(R15 ,#211

6
T.ADDR,RO
62(R0)
#10000, (R3)
55
27
EGD.23
EMS.21
#7.DUR(R2)
RO

68:

0s
6(R1),ST.CODE

2542

2543
2544
2537

177740, ST.CODE
(R1) ,RO

2551
T.ADDR,RO

2554
2555
2556

MOVB

000022

=Bt
BIT

108
#20000,22(R1)

v
TRAP
BEQ
MOV
ASL
ADD
TST
BPL
MOV
INCB

0000006

000062
010000

000011

BIS

TRAP

WORD
.WORD
.WORD
Movs
MOV

0000006

TRAP
bR
MOV
ASL

MOV
DEC
8IS
MOV
MoV

0000006
0000056

9$:
108:

118:

; Routine Size:

(R2)

0000006

N
~

:SHo
£

85%-.

VAWV

N
-

\.flg

226 words

MOV
JSR
CMP
RTS

RaRO.
51

8%
CUOFF ,RO
RO
CST.ADDR,RO
(RO)
8s
T.ADDR,.RO
62(R0)

5557

5551

2563

558

562

2566

2567
2568

#10000, (R3)
5SS

20
EGD.16
EMS.30
#11,DUR(R2)
R2.R0

2369
2570

51
10$
R2.RO

2562
2574

66(&1).NAX.LBN(R0)
MAX.LBN(RO)
#20000, (R3)
CCTLR, (SP)
le.-(SP)

2575
2576

BLSMUL

csi+smo)
(SP)+

RP. INDX, (SP)
(SP)+,(SP)+

PC.PUT.RETPKT
PC

$CODES + 3634
Routine Base:
9 words

: Maximum stack depth per invocation:

DISKSUSERZ: [DIETZ.RELEASEJZRQABO.BL2;?g.(1§)
VAX=11 Bliss=16 V3-555

3
3

2573
2581

3
F

491
476

INITIALIZATION TEST ROUTINES

020000

15:33:

SEQ 307

983

«Jul=1
9 .23:2:
S1-Jul-1

RD/RX EXERCISER

000007

OO0

INITIALIZATION TEST ROUTINES

ggz

:
:
:

587 1+
588 |
589 |

:
:

DISKSUSER2: LDIETZ.RELEASEJZROABO. u.z 13 (14

ggg

|
i

mxsaounn; IS DESIGNED TO PROCESS RETURN PACKETS THAT ORIGINATE AT
RATHER THAN THE oeme. onxvsn-oaxsxmeo PACKETS umwe
enusa A um. DEVICE ERROR ORA COMMAND TIMEOUT. SINCE THIS ROUTIMZ IS
ONLY CALLED DURING THE mnmxwm TEST, IT TREATS A COMMAND TIMEOUT

2%
595

|
i

.
.
IMPLICIT INPUTS:
‘DRIVERTM
THE
AT
RP_ADDR = ADDRESS OF A RETPKT THAT ORIGINATED

590
591

gggg
2600

AS AN INITIALIZATION ERROR.

(1.E., CONNECTION ID = CID_DRIVER)

3
:

2601
538%

local
REASON : word initial (DU_TIME);

! ASSUME COMMAND TIMEOUT

:
H
;

gggg

1; .RP_ADDR [MESTYP] eql MT_FATAL
en
REASON = DU_DFATAL;

' IF FATAL DEVICE ERROR
! CHANGE REASON TO FATAL ERROR

2608

5239
2609

end;

.SBTTL

DR.ERR: MOV

MOV

000002 012701 000012

MOV

000006 013700 0000006

000012 116000 000002
042700 177417
000016
000022 020027 000060

000030
000034
000040
000042
000046
000050

000052

001002

012701 000005
013746 0000006
010146
004737 0000006
022626
012601

18:

22 words,

MOVB
BIC
CMP
BNE
MOV
MOV
MOV
JSR
CMP
MOV
RTS

000207

: Routine Size:

! DROP ALL UNITS ON CONTROLLER

DROP_CTLR (.CCTLR, .REASON);

010146

000026

seo 308
52

routine DR_ERR : mvaluo =

VAX=11 Bliss=16 V3=-555

Routine Base:

mxiu stack depth per invocation:

& words

DR.ERR INITIALIZATION TEST ROUTINES

2585

R1.=(SP)

2(RO) RO
ml.imo
RO,#60
#5.R1
CCTLR,=(SP)
R1,=(SP)
PC.DROP.CTLR
(SP)+, (SP)+
(SP)+.R1

2604

; *,REASON
:
: REASON,*
:
:

#5.R1

np.mu RO

S$CODES + 4540

2599

: *,REASON

2599
2585

[elelel=]lelel=]lele]lelelelelelelele]le]

v01.2
:
:

1=Jul=198
8 33 ifl
51=Jul=19

RD/RX EXERCISER

ZRQAM3

THIS ROUTINE IS CALLED BY INIT TESV TO VERIFY THAT THE ClRRENT DISK

G
AND
CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTIN

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
begin
local

A TR PR PR PRPR TR DALR LA LA DRLA L [ TE IR
e e O
RS O O
O
A
IL

EE'S‘UJ : :ord initial (FAILURE),

! GUILTY UNTIL PROVEN INNOCENT

PASS : word initial (1);

! LOOP PASS COUNT

word,

! STATUS CODE AND SUB-CODE

ST_CODE = SB_CODE
77°) = 1;
= (((.MAX_LBN L. Lium +1) %<1 and zo'm
LBR
START UITH LAST LBN ON TOP SURFACE: [(X+1)/2] -1
=

be in
NDEX = GET_PKT (.CCTLR);

HSCPPKT C.P_INDEX, DK NuM] = .cDI 3

! LOOP STARTS HERE
! GET AN MSCP PACKET

! SET DISK ADDR (RD/RX DISK NUMBER)

MSCP_PKT L.PCINDEX, OPTODE] = OP_ACC;
! ACCESS OPCODE
! BYTE COUNT (1 BLOCK)
MSCP_PKT C.P_INDEX, BC_LO] = 512
! LOGICAL BLOCK NUMBER
MSCPTPXT [.PCINDEX, LBN_L]) = .I.BN
! NON=-SEQUENTIAL COMMAND
TYPEJ NON SEQ_ Clb
INDEX. CMD_
MSCPCPKT L[.PC

: 'f‘ SEND (.P_INDEX) eql FAILURE

! ATTEMPT TO SEND; IF CTLR NOT ONLINE

be?in

! RETURN PACKET TO POOL
! NO MORE TRIES

PUT_PKT (.P_INDEX);
PASS = 2;

else

end

begin
do

! IF SEND WAS SUCCESSFUL

begin

WAIT ();
RP_ INDX = OUT_1I

Q ();

! WAIT FOR RESPONSE
i GET RETPKT (RESPONSE) INDEX

RPZADDR= REIPKT + (. RP INDX * RP_LEN * 2);

! CALCULATE RETPKT ADDRESS

: ; .RP_ADDR [MESTYP] neq MT_SEQ ! RETURN ALL RETPKTS NOT SENT BY CONTROLLER
en

PUT_RETPKT (.RP_INDX);

s
(YRIAIR IR I [ 0900090900090 90000009090 %: % % Satene

350309

;1 15)
DISKSUSERZ DIETZ.RELEASEIZRQABO.BL2?(

routine ACCESS : novalue =

R TR TR T PR TR PRTR TRTR PR TRTR LA LA LR T

INITIALIZATION TEST ROUTINES

VAX=11 Bliss=16 V3-555

[ l=l=]l-MN<lel=]lelelelelelelelelel]

%1=Jul=198 ggs

RD/RX EXERCISER

1=Jul-198

51-Jul-198 15:2% ifi

RD/RX EXERCISER

ZRQAM3

INITIALIZATION TEST ROUTINES

v01.2

664

DRIVER) or
until ( RP ADDR CCONID] 5 l

%ggg

:’f' «RP_ADDR [CONID] eql CID_DRIVER

MY SEQ) and

RP_ADDR [MESTYP
[ENDCOD] and OP_END) eql OP_END));
((RP_ADDR

665
229

else

gg;;

if .RP_ADDR [ENDCOD] neq (OP_ACC or OP_END)

2673

then

2674
2675

beYin

! "RETPKT HAS BAD ENDCODE''

PRINTF (DBM29);

2676

2677
2678
2679

2680
2681
%gg%

else

EMSCMD ();
end

! RETPKT HAS CORRECT ENDCODE
begin
GET STATUS CODE FROM PACKET
'
[STScop);
ST_CODE = .RP_ADDR
GET SUB-CODE FROM PACKET
‘
[SUBCODJ];
“ADDR
SB CODE = .RP
if .ST_CODE eql ST_SUC

2684

then

2685
2686
2687

begin
RESULT = SUCCESS:

PASS = 2;

2688

gggg

end;

2693

PUT_RETPKT (.RP_INDX);

end;

%ggg
2697
2698
3983

PASS= .PASS + 1;
end
until .PASS gequ 3;

2701
2702
2703

if .RESULT eql FAILURE
then
go

2706
2707
2708

DR CERR HRD DRVJ .T_ADDR [ERRHRD_ DRVJ +1;

TALY = TRU

DODU (.LSLUN);
end;

g;?3

ATAL ERROR

FAILED
' ACCESS
UNIT
TO DROP
SET REASON
' DROP
UNIT

2‘

' IF ACCESS FAILED

! ROUTINE ACCESS

end;

000000 004137 0000006

! IF SEND WAS SUCCESSFUL
! SECOND PASS
! END OF PASS LOOP

C.TUOFF
17
EGDDU
(17
ERRBF
ACCESS30);
DUR L. LSLUNJ

2705

! NO NEED TO TRY AGAIN

' ADVANCE TO FIRST LBN OF BOTTOM SURFACE

LBN= .LBN + 1;

! IF STATUS CODE INDICATES SUCCESS

! IF RETPKT HAS CORRECT ENDCODE

end;

%gg%

2711

! IF RETPKT CAME FROM 'DRIVER'
! NO MORE TRIES

PASS = 2

2670

2704

oxsxsussnz tDlEtZ RELEASEJZRQABO. GLZ 13 (15)

end

%663

2696

SEO 310

VAX=11 Bliss=16 V3=555

.SBTTL

ACCESS: JSR

ACCESS INITIALIZATION TEST ROUTINES

R1,$SAVES.

2610

1=Jul=1983 15:33:

INITIALIZATION TEST ROUTINES

9
¢

2624

: RESULT

R3
#1,R2
$8.CODE
ST.CODE
kgun.ao

000001
0000006
0000006
0000006

SEQ 311

Page 55
VAX=11 Bliss=16 V3-555
3 (15)
:
0.BL2;1
R2
JZROAB
SE
.RELEAS
SU
[DIETZ
DISK
: = ,PASS

2631

2632

*
000064

,RO
MAX.LBN(RO)
R2,R0

100000

:zboooo.aa

RO,R%

: *,LBN
: :.LBN

CCTLR,=(SP)

;

2637

s P.INDEX,*

2638

H
:
: LBN,*
K
s

2639
2640
2641
2642
2644

2647

: *,PASS
:
s
|

2648
2644
2655
2656

s RP.INDX,*

2657

ggeo.z«ao»

2659

RP. INDX, (SP)
PC.PUT.RETPKT
(SP)+
RP.ADDR,R1
RO
3(R1),43
4
RO
5%
#360,2(R1)
23
14(R1)

‘

18:

0000006

0000006
0000006

000104

PC,BLSMUL

cDISK,MSCP.PKT+16(R0)

0000006 0000166
000020 0000226
001000 0000266
000002

PC,GET.PKT

#20 ,MSCP.PKT+22(R0)

#1000, MSCP.PKT+26(R0)
46
R4, MSCP.PKT+(RO)
#2.MSCP.PKT+4(RO)

0000046

P. INDEX, (SP)
PC, SEND

RO
2%
P.INDEX, (SP)
PC,PUT.PKT

2s:

0000006

PC.OUT. 10DQ
RO-RP. INDX
RO, (SP

#60,-(SP)

sg3ssseees

RO.RP.ADDR

3s:

000360
000014

000002

48:

2661

2654
2664

2665

<~N

21=Jul=19
21=Jul=19

RD/RX EXERCISER

304

9
©o 0o
NN

000014

000220

0000006
000001

#,=(SP)

1
PC,EMSCMD
(SP)+

0000006

000016
177740

228
4

=00

g
gas

50
2
54
000460
000464
000470
000472
6
000502
04
000506
000510
000512
000516
000524
000526

(-2 NESNONN

ggeesnoo
3338SSRd%s

000016

3600
005703
001025
013700
105260

013700
006300
063700
052710
104455
000021

000000G
0000006

6$:

174000
0000006
0000006

000001

78:
8s:

000002
0000006
0000006

9s%:

000003

0000006
137
0000006
013700
112760 000010 0000006
104451
000207

8%
16(R1) ,ST.CODE

;mv.ao

2682

2684

;s «,RESULT
: *,PASS

2687
2688

; LBN
: PASS
s
: PASS,*

2696
2697

#177740,ST. CODE

8s
#1,R3

#2,R2
RP.INDX, (SP)

:E.PUY.RETPKT
R2
(SP)+,(SP)+
a3

21
EGD.17
EMS.30
LSLUN,RO
g}O.DUR(RO)
108:

Routine Base: $CODES + 4614
: Maximum stack depth per invocation: 10 words
: Routine Size:

172 words,

: SP,»

2677
2675
2673
2681

62(R0)
CUOFF ,RO
RO
CST.ADDR,RO
g}OOOO.(RO)

0000006
010000

2676

:
:
:
:
$

108
T.ADDR,RO

0000006
000062
0000006

2668
2670
2673

: RESULT

2693

2636
2699

)

2701

2704

2705

2706

2707
2708
2610

RO
78
14(R1) ,#220
63
#DBM29, (SP)

NNV AN AN AN O OO O O OO OO OO0

Ezsfifi:gaazzf g
S2=§8§§3338;3§§

8388238
RR2ZERS

INITIALIZATION TEST ROUTINES

SEQ 312

Page 56
VAX=-11 Bliss=16_V3=555
(15)
.BL2;15
IZRQABO
RELEASE
DISKSUSER2: [DIETZ.

T S~ S~ S~ S S

SlILTio8s 1338138

RD/RX EXERCISER

b1 ¥

e . o —— — — — — — — — — —

%;}g Isbttl *MULTI-DRIVE TEST ROUTINES®

%;}ls.

;

2716 '+

%;%?

SEQ 313

57
F
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ .RELEASEIZROABO.BL2;15 (16)

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

routine MULTI_DRIVE : novalue =

717
2718
2719

!
!
!

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

3
:
3
3

2722
272%
2724
2res

!
!
!
!

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

2rer

2729

2731

begin

%gz

MD_INIT ();.

%gg

5;33;

incr bgtli.l! from 0 to (MAX_CTLR = 1) do

3
3

:
3
S

27461
2742
2743
2744
2745

SETPRI (PRI07):
ICTLR = .CCTLR;
ICST_ADDR = .C§T.ADDR:
IDCT_ADDR = .DCT_ADDR;
IRDRR_ADDR = .ICST_ADDR CIP_ADDR];

! NO INTERRUPTS WHEN EXAMINING SA
' FAKE INTERRUPTING CONTROLLER'S NUMBER
! FAKE INTERRUPTING CONTROLLER'S CST ADDRESS
! FAKE INTERRUPTING CONTROLLER'S DCT ADDRESS
! FAKE INTERRUPTING CONTROLLER'S ADDRESS

2749

if BIT_TST C(IDCT_ADDR [SA_SAVE], SA_ERR)

! IF SA SHOWS AN ERROR

3
3
:

3
:

3
:
2

2728

2730

2732

g;zg

2746
g;z;

2750
2751

2752

2753
2754
2755

2756

2759

3
:

2761
g;g%

N OF THIS
DRV_TIMCHK WHICH IS INVOKED EVERY SECOND. NORMAL TERMINATIOOUTSTANDIN
G

2726 !

AN OPERATING SYSTEM ENVIRONMENT.

%;gg
2760

2764

LOOP OCCURS WHEN QIOS ARE NO LONGER BEING ISSUED, AND ALL

QIOS HAVE COMPLETED.

! INIT MULTI=DRIVE TEST DATA
! START OF EXECUTIVE LOOP

begin

SE?,CPAR (.CTLR);
n

! FOR EACH CONTROLLER

! SET UP CURRENT CONTROLLER PARAMETERS

IDCT_ADDR C[SA_SAVEJ = .IRDRR_ADDR [RCSA, RC_ALL);
! CONTENTS OF THE SA REGISTER

then
bevin

FATAL _ERROR ();

SETPRY (PRI00);
exitloop;
end

else

SETPRI (PRIOD);

if Q10_0K ()

then

! DECLARE FATAL ERROR

! LOWER PRIORITY
! QUIT

' IF NO ERROR, CONTINUE
' IF 0.K. TO ISSUE QIO(S) TO THIS CONTROLLER

besin
QIO_GEN ();

! THEN
! GENERATE 1 OR 2 Ql0S

if (.MX1 geq 0) and

! IF SUCCESS ON FIRST Ql0

RD/RX EXERCISER
MULTI=-DRIVE TEST ROUTINES

ZRQAM3
v01.2

OO0

hen

Z;gg

if SEND (.MX1) eql SUCCESS

then

2769

g;;?

PUT_PKT (.MX1);

! RETURN PACKET TO POOL

1t (2 g 0 o

2776
2777

th en

o775

!53

! IF SUCCESS ON SECOND QIO

if SEND (.MX2) eql SUCCESS

2778

2779

2780

! INCR OUTSTANDING QIO COUNT

PUT_PKT (.MX2);

! RETURN PACKET TO POOL

5;39

until ((not QIO_OUT ()) or .EOP_FLAG);

2798

end;

! 0.K. TO ISSUE QIO(S)

end;

! CONTROLLER LOOP

end;

! BREAK FOR SUPERVISOR TO CATCH USER REQUESTS

BREAK;

if not .EOP_FLAG
then

! PROCESS ANY RETURN PACKETS

PROC_RETPKT ();

! EXECUTIVE PROCESSING LOOP

end

004137

0000006

005746
004737
005002
010249
004737 0000006
012700 000340
104441

0000006 000156

000106°
13737 0000006
0000006 000110°

013737

13737

17737
13701
13700
16066

000106° 0000006
000110°
0000006
000002 000002

.SBTTL
MULTI.DRIVE:
JSR

ST
JSR
CLR
MOV
JSR
MOV

TRAP

MOV

MOV
MOV
MOV
MOV

MULTI.DRIVE MULTI-DRIVE TEST ROUTINES
R1,$SAVE2

-($P)
R
R2,=(S
PC.SET.CPAR
#340,R0

PC,MD. INIT

: CTLR

2 CTLR,*

CCTLR,ICTLR
6oa ICST.ADDR
CST.A
IDCT.ADDR

DCT.ADDR,

aICST.ADDR, IRDRX.ADDR
IDCT.ADDR, R
IRDRX.ADDR RO
2(R0) .2(SP}

: *,RC.REG

! EXERCISER

CNCNC"NFNCNPNCVOVNCVNCNCNCNCNCY

R E

T E O

T
R R

2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
279
2795

MENE

2782

! ATTEMPT TO SEND IT. IF SUCCESS

Q10 C.CTLR) = .QI0 C.CTLR] + 1

else

2781

! ATTEMPT TO SEND IT. IF SUCCESS

! INCR OUTSTANDING QIO COUNT

‘g'(lb)

DISKSUSER2: [DIETZ .RELEASEIZROABO.BL2;1

010 C.CTLR] = .QI0 C.CTLR] + 1

eLse

SEO 314

0900000900000 %0%000% %000

DAL L LR TR TN T
TR LA
DRTR

PRLA

2772

VAX=11 Bliss=16 V3=555

(not .EOP_FLAG)

2765

grsa

R TR PRLA

21-Jul=1983 15:33:38
115:23:38
21=Jul=1983

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

000 000090900, 900090 %

BIC
CMP

100000

BNE
JSR
CLR

000000V

TRAP
ST

3s:
000000V

B8R

CLR
TRAP
JSR
ROR
BCC
JSR

S(SP).Z(RI)

7R1

&1
(SP)+

RO
41
PC,010.0K
RO
78
PC,010.GEN

000000V
000160°*

MOV

000001

BITB
BNE
MoV
JSR

$
#1,EOP.FLAG
5%
RO, (SP)
PC,SEND

BNE
INCB
BR
MOV
JSR

%
QIO0(R2)
5$
Mx1,(SP)
PC,PUT.PKT

BLT

0000006

0000006
000001

CMP

4S:

000160*
0000006
000162°*

000001

5$:

0000006

0000006
000001

CMP

6$:
7$:

0000006

000000V
000000V

000001

BLT
BITB
BNE
MOV
JSR
BNE
INCB

000162°
0000006

000001

MOV

0000006

B8R

MOV

JSR
ST

DISKSUSERZ tolEtz RELEASE JZRQABO. atz 15 (16)

: RC.REG,*
RC.REG,

2749

H
s

2752
2753

VAX=11 Bliss=16 V3=555

.c-100000

3s
PC,FATAL .ERROR
RO

seo 315

Oggggs

MOV

§8388 g8
88388888sa8asts£8 S§
SRINITR&msszs&rwsazzisza

S12IL1088 13:38138

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

=1=1=-1-1-1-1-{-3

2751

2757

2759
2762
2764

mxi,RO

2765

2768

RO.#1

MX2,RO

7$
#1,EOP.FLAG
78
RO, (SP)
PC. ssno

; «(CTLR)
3

2770
2768

2774

2775

2778

: *(CTLR)
:
3

2780
2778
2782

2738

2772

RO.#1

6%
QIO(R2)

MX2, (SP)

PC,PUT.PKT
(Sfi)+

R2
INC
.WORD CLV'CLC

BLE
TRAP
BITB
BNE
JSR
JSR

28
22
#1,EOP.FLAG
98
PC,PROC.RETPKT
Rs 010.0UT

BITB

108
#1,EOP.FLAG

s CTLR

2737

786

790
5792
796

000342 001623
000344 005726
000346

108:

000207

: Routine Size:

116 words

Routine Base:

: Maximum stack depth per fnvocation: 7 words

BEQ
TST
RTS

18
(SP)+

SCODES + 5344

ALt
DISKSUSERZ [DIETZ.RELEASEIZROABO.BL2;1
2714

15:33:38
-le-wl 5:23:38
51=Jul=1983

000090900000 0000%0%00000%0%:%0%008, % %808 009000909090 900090% 9000900000800 %0%0% %0000

v01.2

SEO n

e e 0000000008080

RDIRX EXERCISER
TEST ROUTINES
MULTI=-DRIVE

ZRQAM3

VAX=11 Bliss=16 V3-555

334

805

PP P

THIS ROUTINE IS CALLED BY ROUTINE MULTI_DRIVE TO INITIALIZE DATA ITEMS

USED BY THE MULTI-DRIVE TEST.

ggg

begin

gm.‘sum_msou eql START

53}%)

INIT_IO_BUFF ();

281

incr CTLR from 0 to (MAX_CTLR = 1) do
be'in
SET_CPAR (.CTLR);

incr DISK from (0 + OF_UN) to (3 + UNIT_SIZE + OF_UN) by UNIT_SIZE do

2820
2821
2822
2823

be?in

SET_UPAR (.DISK);
BST C.LSLUN] = .CST_ADDR C(.DISK + 1), D_BEG);
o:‘s’t C.LSLUN] = DP_TNT;

Sfi%’;

! INITIALIZE BLOCK SEQUENCE TABLE

i INITIALIZE DATA PATTERN SEQUENCE TABLE

ena;

2826

2829

incr COUNT from 0 to (QIO_PER_CTLR * MAX_CTLR - 1) do

! INITIALIZE 1/0 BUFFER ALLOCATION

2832

end;

! ROUTINE MD_INIT

BUFF_OWN [.COUNT] = -T;

004137 0000006

;0755 0000006 000001

gegees S8reNSs

! PARTITION FREE MEMORY INTO 1/0 BUFFERS
! IF START, RESTART, OR PWR FAIL

(.ENTRY_REASON neq NEW_PASS)

2817
gg}g

737 000000V

gz 0000006 000003

1440
004

0446
737 0000006
703 000003

319
737

0000006

3702 0000006
0201

2s:

3s:

TABLE

MD.INIT MULTI-DRIVE TEST ROUTINES

JSR

PC,INIT.10.BUFF

Egim.nenson.os

CMP8

ENTRY.REASON,#S

MOV
JSR
MOV

pc.ssr.cm

JSR

Su"?

18:

.SBTTL

MD.INIT:JSR

727 0000006 000005

! IF THIS IS A START

if (.ENTRY_REASON neq CONT) and

2816

233?

52';9
BEQ
CLR

MOV

MOV
MOV

R1,$SAVEL

2799

2808

2810

2813

Ré,=(SP)
#3.R

: CTLR,*
: *,DISK

818
820

PC.SET.UPAR

ggiuv.aensou.n
4
Ré

R3. (SP)

LSLUN.R
R2.R1

: CTLR

: DISK,*

—amn

0%0%00% 00080080000, 090 %090 %0 9090 %2 %000 %000

aog

2812

816

822

2823

AR L T e 0008000008000 0000 0000000200009

routine MD_INIT : novalue =

1
!'u?)
mm.uz;?
eu.mnsm
oxsxsussnz:cox

799

SEQ 317

TR TR A A R TR R TS TR TR

MULTI-DRIVE TEST ROUTINES

2a1§

ikegg

31-Jut-m 12:23:
1=Jul=1983 15:33:

RD/RX EXERCISER

VAX=11 Bliss=16 V3=555

000070
000072
000074

31-Jut=1983 13:33:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

IRQAM3
v01.2

MOV

006301
010

MOV

MOVB
ADD

CMP
BLE

RS RO
RO’

S(no)asfum

ozsngfisma
R3.#22
3s

(SP)+
ST
Ré4
INC
+WORD CLV!CLC

000142
000152

005000
112760
005200
020027

000377

4$:

5%:

0000006

000007

BLE
CLR
MOVB
INC
CMP
BLE
RTS

: Routine Size:

57 words,

Routine Base:

Haxinun stack depth per invocation:

7 words

2%
RO
#377,BUFF.OWN(RO)
RO
RO, 47
5$
PC

$CODES + 5714

SEQ 318

DISKSUSERZ:tDlETl RELEASEJZRQABO. Bl2.1§'(19§
VAX=11 Bliss=16 V3=555
: DISK,*

: *,DISK

2824

2817

s DISK,*

s CTLR
s COUNT

2820
2816

: # «(COUNT)
s COUNT

2830
2829

2799

s COUNT,»

RD/RX EXERCISER

MULTI=-DRIVE TEST ROUTINES

15:33:38

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 IS 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 CONF IGURED
LSUNIT = THE NUMBER OF UNITS AVAILABLE FOR TESTING
FREE_MEM_ADDR = START OF FREE MEMORY

begin
local
DRS_START;

DRS_START = .FREE_MEM ADDR + 2 + (,.FREE_MEM_ADDR_* ;)i
BUFF_ADDR [0 = (TFREE_MEM_ADDR + 2 + 1)"and %0°'177776";

! START OF SUPERVISOR
! START OF READ/WRITE BUFFERS

while (.BUFF_ADDR [0] and %0°'37') neq 0 do
BUFF_ADDR [0] = .BUFF_ADDR [0] + 2;

! FORCE FIRST 1/0 BUFFER TO START
! ON EVEN BOUNDARY

BYTS_PER_QIO = ((.DRS_START = .BUFF_ADDR [0]) / (QIO_PER_CTLR * MAX CTLR)) and %o'177740°;
! MAX TRANSFER SIZE

i 'f‘ .BYTS_PER_QIO gtru MAX_XFER_SIZE

then

! ADJUST TRANSFER SIZE LOWER

BYTS_PER_QIO = MAX_XFER_SIZE:

ERRSF (2, EGS_02, 0);

! ERROR IF NOT ENOUGH MEMORY

DOCLN;
end;

L O

if .BYTS_PER_QIO Llssu 32
then
begin

if (QIO_PER_CTLR * MAX_CTLR) gtru 1
t ] NIT

REMAINING TABLE ENTRIES
! FIXED BUFFER ADDRESS

end;

! ROUTINE INIT_I0_BUFF

incr index from 1 to (QIO_PER_CTLR * MAX_CTLR - 1) d do
BUFF_ADDR [.index] = TBUFF_ADDR [.index = 1] + .BYTS_PER_QIO;

then

124

SEQ 319

3
Si-Jul-wg 15:23:28 DISKSUSERZ:IDIEIZ.RELEASEJZMABO.SLZ:”.(133
1=Jul=1983

R PR TRPR PRPR TR TR TR PRLA LRTR L 8000 800000000000 000000000000%0 0000000000000 %000%0800800000

004137

000012

006

.sam
INIT.10.BUFF:

0000006

JSR

MOV
MOV

013701 0000006
000004
000010 011100

ASL

000014 060100
oooo1g 062700 00000
000022 062701 00000
010137 0000006

000032 ogm 000001 0000006

1$:

032737 000037 0000006
000040
000046 001404

737 000002 0000006
000050
000056
000060 01
000062 163716 0000006
000010
012746
0000006
oooo°°”93 004
000076 010037 0000006
000102 o:.;m 000037 0000006
000110 023727 0000006 002000
000116 101403
000120 012737 002000 0000006
000126 023727 0000006 000040
000134

28:

38:

103005

000140

000144
000146

000002

BIT
BEQ

ADD
B8R
MOV
SUB
MOV
JSR
MOV
BIC
CMP
BLOS
MOV
CMP

BHIS

000000
104444

48:
5$:

000150 012702 000001
000154 010201
301
000156
000160 010200
000162 006300
000164 016003 1777766
000170 063703 0000006
000174 010361 0000006
000200 00520
000202 020227 000007
003762
000
000210 022626
70 words,

Routine Base:

: Maximum stack depth per invocation:

8 words

2833

(R1),RO
R1.RO
cg.ao
¥
m.aun ADDR

:
:
:
.

2853
2858
2859

2861

:
:
:

2867
2869
2871

rnée.nsn.noon.m
BUFF.ADDR
n
csi.wrr.m
23

#2,8UFF .ADDR
1$
RO,=(SP)
eufr.mn.tsn
p)
avrs m Ql0
c #.8YTS.PER.QIO
g;rs.PER.Q10,#2000
#2000,8YTS.PER.QIO
BYTS.PER.QIO,#40
&S

WORD
TRAP

O
44

MOV
MOV
ASL
MOV
ASL
MOV
ADD
MOV
INC
CMP
BLE
CMP
RTS

000212 000207

$SAVE3

JWORD

0000006

: Routine Size:

BIC

TRAP

000136 104454
000142

ADD
ADD
ADD
MOV

INIT.10.BUFF MULTI-DRIVE TEST ROUTINES

:
:
: DRS.START,*

2858

2
2861
2864

2874

: *,INDEX
* INDEX,*
: INDEX,*

2878
2882

: INDEX

2878

EGS.02

#1.R2
nz R1
az RO
RO
,R3)
BUFF .ADDR=2(R0
BYTS.PER.QIO.R3
R3,BUFF .ADDR(R1)
R2
R2.47
58
(SP)+,(SP)+
PC

$CODES + 6076

: INDEX,*
:
:

2853

2833

[]=]

000000

SEQ 320

51-Jul=1983 15:23:i',’ oxsxsusenz CDIETZ.RELEASEJZRQABO.BL2;??'(13‘

RD/RX EXERCISER
E TEST ROUTINES
MULTI-DRIV

ZRQAM3
v01.2

VAX=11 Bliss=16 V3=-555

1=Jul=1983 -33

1=Jul=1983 15:33:

51=Jul=1983 15:23:gg

:
3

2885
235

routine QI0_OK =
»

2890

2893

%ggg

IF ANY OF THESE TEST FAIL, THEN A VALUE OF ‘FALSE'' IS RETURNED.

2900

IMPLICIT INPUTS:

H
3
H
H
3

2
H

%gg}

GENERATED TO THE CURRENT CG‘TROLI.ER. A VALUE OF '‘TRUE'' IS RETURNED IF
THE CONTROLLER MEETS 3 REQUIREMENTS:

A. THE CONTROLLER IS ONLINE

B. THE NUMBER OF WTSTWINé QIOS IS AT LEAST 2 LESS THAN THE
CONTROLLER;
MAXIMUM ALLOWED FOR ANY ONE
C. THERE IS AT LEAST ONE DISK ONLINE TO THE CMTROLLER.

289% !
2895 !
%gg? :
2901
2238%

2904

2905
2906

2907
2908
2909

2910

2912

TO
IN ORDER
E"§HWI.
"EXECUTIV
_DRIVE
MULTI
THE
BV
CALLED
IS
ROUTINE
THIS
BE
DETERMINE WHETHER OR NOT A QIO REQUEST (OR QIO PAI

!
%888
2889 !

2911

CCTLR = CURRENT CONTROLLER NUMBER
CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST

!
:

if (.CST_ADDR [STATE]eql ONLINE) and
a
(not SEOP_FLAG)

((.Q10 [. CCTLRJ 0 2) l.eau QIO_PER_CTLR) and
th (. CSTADDR [U_CNT] neq
en

else

000000
000004
000010
000012

013700
005760
100027
132737

0000006
000002

000022

013700

0000006

001023

000001

! IF OUTSTANDING QIO COUNT IS 0.K.

! IF THERE IS VALID UNIT

! “'TRUE'* EXIT POINT

return FALSE;

! "FALSE'® EXIT POINT

.SBTTL

QI0.0K MULTI-DRIVE TEST ROUTINES

BNE

QI0.0K: MOV
TST
BPL
BITB

0000006

MOV

mov8
B8IC

000042 020027 000010
000046 101010
000050 013700 0000006
000054 105760 000005
000060 001403
000062 012700 000001

CMP
BHI
MoV
1518
BEQ
MOV

ADD

000036 062700 000002

000207
005000
000207

: Routine Size:

! IF CONTROLLER IS ONLINE

return TRUE

000026 116000 0000006
000032 042700 177400

000066
000070
000072

CLRRRRLRRLLRLASRIRL

DISKSUSER2:[DIETZ.RELEASEIZROABO.BLZ;1o

1$:

30 words,

Routine Base:

: Maximum stack depth per invocation:

0 words

RTS
CLR
RTS

CST.ADDR,RO
2(RO)
1$
#1,EOP.FLAG

CCTLR,RO

QI0(R0).RO
” 77400.!!0

#2.R0

RO.#10
1$
CST.ADDR,RO
S(RO)
1%
01 .RO
RO
PC

$CODE$ + 6312

|
3

2885

OO0

SEQ 321

RD/RX EXERCISER
TEST ROUTINES
MULTI-DRIVE

ZRQAM3
v01.2

VAX=11 Bliss=16 vs-sss

5313

;H
§§19
1

3
3

292
2924

:
:
H
:

5318
19
%?
2922

THE
DE ERHIN!NG
FOR THE
DRIVE ISEXECUTIVE
MULTI
THE ITS
IS CALLED BY
ROUTINE
THIS
VECTOR
°£P
EXAMINE
TO
PURPOSE
TEST.
MULTI=DRIVE
THE
END OF

FOR ANY OUTSTANDING QIOS ON ANY CONTROLLER. A VALUE OF '‘TRUE' IS
RETURNED IF THERE lS AT LEAST ONE QIO OUTSTANDING ON ANY CONTROLLER.
OTHERWISE, ‘FALSE'' IS RETURNED INDICATING NO OUTSTANDING QIOS.

H
!
5

begin

incr CTLR from 0 to (MAX_CTLR = 1) do

%3%3
2931

:; .CST_ADDR [STATE] eql ONLINE
return TRUE;

SE?CPAR (.CTLR);

%g%z

3
:

2932
ggz

end;

2935

return FALSE;

;
:
:

000000

2936

! EXIT = NO CONTROLLERS ONLINE
.SBTTL

Q10.0UT:MOV

000006

004737

000000G

000016

005760

000002

1$:

CLR
MOV

2(R0O)

BPL

000042
000044
000046
000050

2%:

003760
005000
012601
000207

: Routine Size:

3s:

21 words,

Routine Base:

: Maximum stack depth per invocation:

3 words

R1
R1,=-(SP)

TST

100004

000001

R1,-(SP)

JSR

MOV

000024 005726
000026 012700
000032 000405
000034 005726
000036 005201
000040 000243

QIO.OUT MULTI-DRIVE TEST ROUTINES

PC.SET.CPAR

000012 013700 0000006
000022

! SET UP CURRENT CONTROLLER PARAMETERS
! IF CONTROLLER IS ONLINE

end;

010146

000002 005001
000004 010146

CST ADDR,RO

(SP)+
TST
#1,R0
MOV
3s
BR
(SP)+
TST
INC
R1
.WORD CLV!CLC
BLE
CLR
MOV
RTS

1%
RO
(SP)+,R1
PC

$CODES + 6406

: CTLR
3 CTLR,*

2913
2927

H
B

2931

: C"LR

2926
2925

3
$

2923
2913

VAX=11 Bliss=16 V3-555
200
CDIETZ.RELEASEIZROABO.BLZ;Pa8°
DISKSUSERZ

routine QIO_OUT =

1=Jul=1983 15:23:38

OO0
RRR 2RV

v01.2
:

51-Jul-1985:33:38

RD/RX EXERCISER
TEST ROUTINES
MULTI=-DRIVE

IRQAM3

SEO 322

v01.2

Z1oyut=1983 13:33:

VAX=11 Bliss=16 V3=555

(21)
13 L2:
DT SKSUSER2: EDIETY . RELEASEJZROABO.B

routine QI0_GEN : novalue =

%gg;

;
:|

39
'
5340
29%1 !

FORITANISONLINE
DRIVE EXECUTIVE
THE MULTI
BY
IS CALLED
ROUTINE
THIS
REQUESTS.
TRANSFER
1/0
RECEIVE
TO
ELIGIBLE
CONTROLLER

:
:
:
:

2962
293
2944
2945

!
!
!
:

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 IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM

2948

ROUTINES
EACH FIELD OF THE PACKET(S) IS LOADED WITHIN INDIVIDUAL
VALUES SELECTED FOR
(QI0O_FUNC, QIO_LBN, QIO_SIZE, ETC.). MOST OF THE

2951

UNDER NORMAL CIRCUMSTANCES, ONLY ONE I/0 REQUEST IS GENERATED. HOWEVER,

ggg’so

GENERATED WITH THE SAME LBN AND BYTE COUNT.

3
3
3

29%7 i

gg‘sg :
2952
2953

!
!

2956 |

2959

:
H

3
3

3
:

H
:

2957
2958

!
!

%gg?

THOSE CONFIGURED UNDER THE CURRENT CONTROLLER.

EACH FIELD ARE BASED ON"A SET OF RANDOM NUMBER GENERATED AT THE START.
IF THIS 170 REQUEST IS A "WRITE', AND IF THE OPERATOR SELECTED THE
OPTION FOR HOST WRITE=-COMPARES, THEN A SECOND ‘READ'‘ REQUEST WILL BE

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 7/ 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.

2962
2963

|
!

Note that the DUP Exerciser is located inside the QIO_FUNC routine.
Every so often the Dup exerciser will run and return the MSCP Exerciser

%ggg

IMPLICIT INPUTS:
CCTLR = CURRENT CONTROLLER NUMBER

2964 !
!
2965
2966 !
2967 !

to it's normal state.

2970

%g;%

Mx2 = =1;

begin

! ASSUME FAILURE IN SECURING 2ND PACKET

%g;g

Z'f‘ (MX1 = GET_PKT (.CCTLR)) Lss 0

! TRY TO GET 1ST PACKET. IF FAILURE

%3;9

2978

2981

2983

2
:

2971

2979
2980

2982

gggg

:'
2
2
2

2986
2987
2988
2989

SEQ 323
67

[

return;

if (MX2 = GET_PKT (.CCTLR)) Lss 0

then

be?in
PUT_PKT (.MX1);

MX1 = =1;
return;

end;

MAD1 = MSCP_PKT + (.MX1 * PKT_LEN * 2);
MAD2 = MSCPTPKT + (.MX2 * PKT_LEN * 2);
GET_RANDOM T);
QIO_UNIT ();

! NO POINT IN CONTINUING

! TRY TO GET 2ND PACKET. IF FAILURE

i
;

! RETURN 1ST PACKET TO POOL

! INDICATE FAILURE
! DONE

! CALCULATE STARTING ADDRESSES
OF BOTH PACKETS
H
! GENERATE A SET OF RANDOM NUMBERS
! LOAD RANDOM UNIT NUMBER INTO PACKETS

OO0 OO0
RLLRRIARARARARIRIIR S

RD/RX EXERCISER
E TEST ROUTINES
MULTI-DRIV

ZRQAM3

.y
1=Jul=1983 15:33:

(21)

{ RETURN IF NO UNIT ONLINE

if .EOP_FLAG
then
return;

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

then return;

QIO_LBN ();

QI0~SIZE ()
GET_10_BUFF (MAD1 [BUF_01);
if .MX2 geq 0
then
be?in

TO ITS NORMAL MSCP MODE....~

IF IT WAS IN DUP TEST AND FAILED TO GET A ENVOLOPE RETURN

NO POINT IN CONTINUING

! LOAD LBN (RANDOM OR SEQUENTIAL)
! LOAD RANDOM BYTE COUNT
! TRY TO GET AN 1/0 BUFFER

! IF TWO QIOS ARE TO BE ISSUED

GET_IO_BUFF (MAD2 [BUF_01);

! TRY TO GET 2ND 1/0 BUFFER

if .MAD2 [BUF_0] eqla 0

! IF 2ND BUFFER ALLOCATION FAILED

begin

if .MAD1 [BUF_0J] nega 0
then

be?in

PUT_I10 _BUFF (MAD1 [BUF_0]);
MADT [BUF_0] = 0;

end;

PUT_PKT (.MX2);

Mx2 = =1;
end;

if .MAD1 [BUF_0] eqla 0

else

! RETURN 2ND PACKET TO POOL
! INDICATE FAILURE

! IF 2ND 1/0 BUFFER ALLOCATION FAILED
! 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;

! RETURN 1ST 1/0 BUFFER TO POOL
! MARK IT AS FAILED

! IF TWO QIOS ARE TO BE ISSUED

end;
then

! IF 1ST 1/0 BUFFER WAS ALLOCATED

O EN AN

then

OO A

if (.MX1 Lss 0) OR (.EOP_FLAG)

QIO_FUNC ();

FILL_BUFF ();

DISKSUSERZ:CDIE[}.RELEASEJIROABO.BLZ:1

SEQ 324

Page

OO0 OO OO

21=Jul=-1983 15::23:38

VAX=11 Bliss=16 V3=55 5

(ALL IS 0.K.)

! FILL 1ST 1/0 BUFFER WITH APPROPRIATE DATA PATTERN
! ROUTINE QI0_GEN

——— L~ L~~~ L~ . S S S~ I S S S S S

MULTI-DRIVE TEST ROUTINES

‘

21=Jul=1983 15:33::38

e e e e T T DRTR LA TRTR LA TR LR LR LRLA LRLR LA Ll ALA TRLR TR LR T
e Te T s s s s
R I I

RD/RX EXERCISER

810

177777 000162°
0000006
0000006

000160°

.SBTTL

Q10.GEN:MOV
MOV
JSR

PN N NP NR RSP ENNT SR

g8S§8888883838838

000000V
000000V

000164 *
000032
000162°
000166°
000032

000166
0000
000164*
000032

: M1

MOV
JSR
MOV

CCTLR,=(SP)
PC,GET.PKT
RO.MX2

: MX2

MOV

MX1,=(SP)

JSR

MOV
ST

1$8:

0000006

000000V
000160°
000001

TST

BGE

000160°
000104
0000006
0000006
000164 *
000162°
000104
0000006
0000006
000166°
000000V
000001

MOV

177777 000160°

000000V

BLT

000160°

0000006

CCTLR,=(SP)
PC,GET.PKT
RO.MX1

0000006
0000006
000162°

QIO.GEN MULTI-DRIVE TEST ROUTINES

#-1,Mx2

RTS

(SP)+

PC,PUT.PKT

2978

MX1,=(SP)
#104,-(SP)
PC ., BLSMUL
#MSCP.PKT,RO
RO, MAD1
MX2, (SP)
#104 ,-(SP)
PC,BLSMUL
#MSCP.PKT,RO
RO, MAD2
PC.GET.RANDOM

BITB

#1.EOP.FLAG

2978

2981

MOV
MOV
JSR
ADD
MOV
MOV
MOV
JSR
ADD
MOV
JSR

2976

=1 mxi
(SPS+

2972

2974

:
:

2982

2980

2986
2987

2988

PC.QI0.UNIT
5s
PC,010.FUNC
's"sd

:
:
:
:
:

2989
2991
2937
2995
2999

BITB

#1,EOP.FLAG

MOV
ADD
JSR
;fl
MOV
ADD

MAD1, (SP)
#32,(SP)
PC,GET.10.BUFF
!34)‘(5
MAD2, (SP)
#32,(SP)

:
:
:

2937
3002
3003

:
:

3006
3009

JSR
BNE
JSR
Efl

BNE
JSR
JSR

MOV
ST
8'65
ADD

5s
PC,010.LBN
PC.010.SIZE

ABSRD
32(R0)
RO
fim
#32,R0

3004

3011
3015

4 V]

%1-Jul°1983 15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI=DRIVE TEST ROUTINES

SEQ 325

Page 69
VAX=11 Bliss=16 V3-555
3 (21)
O.BL2;1
EJZRQAB
.RELEAS
ETZ
DISKSUSER2:[DI

felelelelelelel=]lelelel=lelelelc T

c10

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

ST
BEQ

000310

320
000330
000336
000342
000346
888350

000374

000402
000404

000410
000414

004737
013700
005060

0000006
000164°
000032

004737
012737
013700
005760

0000006
177777 000162'

013716

126027

00100
004737

062706
000207

: Routine Size:

2s:

000162°

3s:

000164°
000032

000160°*
:
0000006
177777 000160°

000164"
000022 000042

000000V

5%:
6%:

000006

135 words

4($:

Routine Base:

: Maximum stack depth per invocation:

& words

MOV
JSR
MOV
CLR
MOV
JSR
MOV
MOV
ST
BNE
MOV
JSR
MOV
B8R
MOV
P8
BNE
JSR
ADD
RTS

(RO)
28

RO, (SP)
PC.PUT.10.BUFF
1.R0
32(R0)
MX2, (SP)
PC,PUT.PKT
#=1.mx2
MAD{ RO
32(R0)
113
MX1, (SP)
PC,PUT.PKT
#=1.mx1
58
MAD1,RO
22(R0) w62
5s
PC.FILL.BUFF
v
PC

$CODES + 6460

SEQ 326

Page 70
VAX=-11 Bliss=16 V3=555
(21)
.BL2;135
EJZRQABO
DISKSUSER2:[DIETZ.RELEAS

3018

3019

3022

H
3

3023
3028

3031
32
3028
36

3038

2971
2937

010

3 15:33:38
51-.!0(-19

RD/RX EXERCISER

1=Jul=1983 1 ‘23 38

MULTI-DRIVE TEST ROUTINES

pota 327
6 e easE12R0AB0.8L2. 38" (22)

VAX=-11 Bliss-1 6 V3-555
DISKSUSER2:(DI

routine GET_RANDOM : novalue =
'+

THIS ROUTINE IS CALLED BY QIO GEN TO GENERATE A SET OF RANDOM MERS.

:
i
:

R
AND TO STORE THEM INTO THE RANDOM NUMBER TABLE (RANDOM). THE
0 REQUEST PARAMETERS FOR THE CUIRENT OIO
NUMBERS ARE USED TO SE LE

g
3

OR QIO PAIR. IN ADDITION,

RANDOM NUMBERS WILL BE USED

ATA PATTERN #1 IS BEING USED, THESE
I')‘

THE WRITE OPERATION.

begin
own

SEED: word initial (173),

NEXT_|RANDNUM: word initial (245);
incr COWT from 0 to (RDM_LEN - 1) do

RANDNUM + 1) = &;
= (,SEED=+ .NEXT
SE!DRANDNUM
XT"RANDNUM /7 &) + .SEED;
amofln C.COUNT) =.nexT_RANDNUM;
end;

end;

001241

001242
001244

SEED:

000255

Esgcr

$GGGS,

.WORD

255

NEXT.RAMM
.WORD

000365

JSBTTL

"PSECT

004137

013702

0000006

001242°

GET.RANDOM:
JSR

MOV

013703 001244°

005001

010300

060200
006300

006300
010037 001242°
062737 000004 001242°

010346
012746 000004
004737 0000006
013702 001242°
060200

1$:

365

GET.RANDOM MULTI-DRIVE TEST ROUTINES
SCODES,

3041
3059

: COUNT

R2.RO
RO’

3057
3059

R1,$SAVE3

SEED,R2

MOV

NEXT.RANDNUM,R3

MOV

ns RO

CLR

ADD
ASL

ASL
MOV
ADD

MOV
MOV
JSR
MOV
ADD

RO
RO, SEED
#4.SEED

R3,=(SP)
PC.BLSDIV
SEED,R2
R2.RO

#4.=(SP)

:
:

3059

E 10

51 =Jul=-198

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

: Routine Size:

3061

3
s +,COUNT

3058
3057

3041

HL P

000116°*
000002
000036
RTS

36 wo rds,

| 'txl"éw.'

Routine Base:

flaxiu stack depth per invocation:

7 words

1
PC

s COUNT,*

$CODES + 7076

IR!O.'EXT«RANDNUM

001244

5:33:38
5:23:38

YOO,

000064

010037
010003
010361
022626
70
062701
020127
003744
000207

1=Jul=198

SEO 328

ngo
VAX=11 Bliss=16 V3-555
(22)
2;13
RQABO.BL
ELEASEIZ
DISKSUSER2: [DIETZ.R

F10

g
= =1 EEEEESS
N
3 SIFNF
AN IS

SEQ 329

DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2;AL g%

THIS ROUTINE IS CALLED BY QI0_GEN TO RANDOMLY SELECT ONE UNIT

CONFIGURED UNDER THECURRENT TONTROLLER (CCTLR) TO BE USED FOR THE
CURRENT QIO 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).
IMPLICIT INPUTS:

CST_ADDR= ADDRESS OF CURRENT CONTROLLER'S CST

IMPLICIT OUTPUTS:

THE RD/RX DISK NUMBER (DISK ADDRESS) IS LOADED INTO THE
APPROPRIATE FIELD OF BOTH MSCP PACKETS.

RAT_COUNT : word initial (0);
MOD_COUNT : byte,

TBL_COUNT : byte,
SELECT_RD : byte;

SELECTED VIA THE SOF TWARE PARAMETERS

THIS MODE IS FOR SELECTING DEVICES ON THE FOLLOWING SCHEME:
CHOOSE A DEVICE AND KEEP IT SELECTED FOR A CONSTANT TIME, THEN

gg TO THE NEXT. THIS IS NON-RANDOM, FIXED SEQUENTIAL OPERATIONAL
if ((.SWP_FLAGS and SWF_RDM) neq SWF_RDM) and

- ((.SWP_FLAGS and SWF_SEQ) neq SWF_SEQ)
en

! NOT RANDOM MODE

! NOT RANDOM SEQUEUNTIAL MODE

if (.BST_CNT neq 0)

(.CST_ADDR
(. CSI’ADDR

[.BSTDEV. D_PRESJ eql PRESENT) and
[.BST
DEV, D“STAT] eql ONLINE) and

- (not .CSIADDR [°BST DEV D_ FAT
en

BST_CNT = _BST_CNT = 1;

)

! ALREADY WITHIN DEVICE

SET"UPAR (.BST_DEV):
MADT [DK_NUflJ
= .CDISK
= .CDISK;
MAD2 [DK_NUM]
return;

end
else

begin

! GET NEW DEVICE

OO0

THE UNITS WILL BE SELECTED ON AN ADJUSTABLE RATIO, RD51 TO RX50,

———

o 38 IRARAR2S
AR

N N A W

e T

N N N N N N N

N NN NN WA

33533EERRECE28

routine QIO_UNIT : novalue =

VAX-11 Bliss~16 V3-555

QAR =N

BRIVE.

(V]
o

°J:l°‘l9 §:23:38
51=Jul=1983

/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

15:33:38

RRROORRRRRRRRLRRIRVYRI

610

BIRVRRRUNES 000

AN WA U U U N U U L O L L N O A U L U A O AN U O N A N O N O O N N AN O N N N NN N N N NN N NN N NN NN

DlSK‘USERZ:IDIETl.RELEAS!JZNOABO.!LZ:?g.(ZS)

AN NN

1n¢r02;:557 from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do
n

it (.BST_DEV eql 0) or

(.BST_DEV eql (3 + UNIT_SIZE + OF_UN))

s.BSt-DEv = OF_UN

BST_DEV = .BST_DEV + UNIT_SIZE:

if (.CST_ADDR
(.CST_ADDR

[.BST_DEV, D_PRES] eql PRESENT) and
[.BST_DEV, D _STAT] e lJ?NllNE) and

(not SCST_ADDR [°BST_DEV, D_FAT

then

1
1 35
1 36
1 37

begin

if .CST_ADDR [.BST_DEV, D_TYPE] eql RX_50

then
BST_CNT = RX_SEQ_CNT
¢ else

138

}23

BST_CNT = RD_SEQ_CNT;

141

SET_UPAR (.BST_DEV);

14;

MADT

144
145
146
147
148
149

return;
3

end;

}gg

; RANDOM SELECTION OF DRIVES

}gg

MAD2

[DK_NUM] = .CDISK;
[DK_NUM] = .CDISK;

end;

this part selects the device by the ratio

156 rat_count = .rat_count + 1;
157 if T.rat_count ?eq 100) then rat_count = 0;

ket ol o

et md cawd o

STSISSRAR2E

}gg

if (.rat_count
en

lss .swp_rat)

SELECT_RD = true

else

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

if (100 eql .swp_rat)
then
SELECT_RD = true;

! if ratio equal 100 do rd

if (0 eql .swp_rat)
then
SELECT_RD = FALSE;

! if ratio equals 0 do rx

51-4«(-1933 15:23:38

MULTI-DRIVE TEST ROUTINES

=
I P TR PR TR DA T T L T
A TR TR TR TR T
R A
TR IR R
R TR TR TR TR LALA LRLR LR LALA 1 (TR
O O
s
S
T
eO
T
AAAR
AT

1=Jul=1983 15:33:38

RD/RX EXERCISER

SEQ 330

VAX=11 Bliss=16 V3-555

OO0V
RVR

H10

S BRIRARATLEIRIFANIN

15: 33:383
15: 23:38

]

g IF RDS1s SELECTED
g COUNT NUMBER OF RDS1s AVAILABLE

e s i o

:f +SELECT_RD

e o

hen

D o

if (.CST_ADDR

(.CST_ADDR

b e

SRR

C.OFFSET, D_PRES] eql PRESENT) and
.OFFSET, D_STAT] eql ONLINE) and

&SST.ADNI C.OFFSET, D_TYPE] eql RD_51) and
t CST_ADDR [.OFFSET, D_FATAL))

then

i
STORAGE [.MOD_COUNT]) = .OFFSET;

! COUNT THE NUMBER OF RDs IN THE SYSTEM

incr OFFSET from (0 + OF_UN) to (3 + UNIT_SIZE + OF _UN) by UNIT_SIZE do

e e

WN N U W
— o e e

3199
3

e
_COUNT = 0;

MOD_COUNT = .RoD_ COUNT + 1;
end;

]

% SELECT ON OF THE RD51s
if .MOD_COUNT neq 0

then

! IF AT LEAST ON RD51 PRESENT

IT‘EEI'C‘OWT =0;
begin

SE?-UPAR (.STORAGE [(.RANDOM [.TBL_COUNT] and %0°'077777') mod .MOD_COUNT]);

gnww

TBL_COUNT = .TBL_COUNT + 1

end

until (E.CST_ADDR .CUOFF, D_PRES] eql PRESENT) and
.CSTCADDR [.CUOFF, D_STAT] eql ONL INE) and
(not SCST_ADDR [.CUOFF, D_FAT J))) or

(.TBL_COUNT eql RDM_LENS;

MAD1 [DK_NUM] = .CDISK;
MAD2 [DK_NUM] = .(DISK;
return;

end;

i IF NO RDS1 SELECTED, SELECT AN RXS50

SEQ 331

Pago 75
VAX-11 Bliss=16 _V3-555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2;15 (23)

D i

e o

U A N O N N N N N N N N N N N N N N N W NN W

MULTI=-DRIVE TEST ROUTINES

(V)

21=Jul=198
21=Jul=198

RD/RX EXERCISER

NN
NN N NN
NN

8 8e8e 8o BeBoBe8ee8s0s0e8000000s0000000,80000s00000000000000000000000000000000%00s%0 0000000000000 s00000, §

110

SEG 332
ge
VAX=-11 Bliss=16 v3-555
DISKSUSER2: [DIET Z.RELEASEJZRQABO.BL2;1 (23)

g COUNT THE NUMBER OF RXS0s
MOD_COUNT = 0;

incr OFFSET trom (0 + OF_UN) to (3 + UNIT_SIZE ¢ OF_UN) by UNIT_SIZF do
if (.CST_ADDR

C.OFFSET, D_PRES] eql PRESENT) and

(.CST"ADDR [.OFFSET, D_STATJ eqt ONLINE) and

(.CST-ADDR [.OFFSET, DTYPE] eql RX_50) and
. (not -CST_ADDR [. orfise? D_FATALY) ST&MGE C.MOD_COUNT) = .OFFSET;
1;
Cfl

+
_COUNT = .MOD_COUNT
m

g AND CHOOSE ONE'
if .MOD_COUNT neq 0

then

begin

YBE-COWT =0;

C.TBL_COUNT] and %0'077777') mod .MOD_COUNTI]);
(. RANDM
SE?UPAR (.=S‘IORAGE
1;
+
T
.TBL_COUN

TBL_COUNT
end”
until ((. cstADDR [.CUOFF, D_PRES] eql mssnn and
(.CSTTADDR [.CUOFF, D-STAT] eql onu ) and

(not -CST_ADDRC.CUOFF, D_FAT

(.TBL_COUNT eql RDM_LENS;
MAD1 [DK_NUM] = .CDISK;
return;

end;

MAD2 [DK_NUM] = .CDISK;

g IF NO UNIT SELECTED SO FAR BY ABOVE METHOD, SELECT ANY ONE AT RANDOM
MR

g COUNT ALL UNITS AVAILABLE
MOD_COUNT = 0;

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do
if (.CST_ADDR [.OFFSET, D_PRES] eql PRESENT) and

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

S1-Jul-1985:33:38
5:23:38
1=Jul=198

e 008 0e 00000000000 0s%0000000000000000,00%000900%0%0 0000000000000 000000%00000000%08080800%00 ITR TRLE LR TRLR ¥

o e DRTR TR DR TRLR LR LRLA LA LA LALR LR LA LA LA L] LR TR LR TR TR LA TRTN T
o
s e e

J 10

3
:

84
285

%39

288

350
1
3292

3295
gzzgg

3298

S
:

-(not -CST_ADDR [. offset ATALY)
.OFFSET
= +1;
CMTJ
MOD
[
b'&MGE
MODCOW = .MD-

: SELECT ANY ONE ONE UNIT AT RANDOM

if .MOD_COUNT neq 0

then

i
TBL_COUNT = 0;
°) mod .MOD_COUNT]);
%0°'077777
and
NT]
C.TBL_COU
RMDM
[(
STORAGE
(.
UPAR
SE?
+1;
I%_COUNT = .TBL_C
until ((.CST_ADDR [.CUOFF, D_PRES] eql PRESENT) and

(.CSTADDR [.CUOFF, D“STAT] eql ONLINE) and
(not SCST_ADDR [. CUOF D_FATAL)))

3299
3300

(.TBL_COUNT eql RDM_LENS;

3303

MAD1 CDK_NUM] = .CDISK:

3
3
:
3

3305
3306
3307
3308

return
end

g?g

3
:
3
H

3311
3312
3313
3314

:
3

001246

: DECLARE END-OF=PASS IF NO UNIT ONLINE
else

end;

3316

3317

3318

08
FLAG = TRUE
E

DCTADDR (8 {9 INTJ TRUE;

3315

001246 000000

007206

MAD2 [DK_NUM] = .CDISK;

3304

%
80
1

DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2:15 (23)

:
;
H:

SEO 333
ge 77

( CST_ADDR C.OFFSEY STATJ eql ONLINE) and

-Jul-19gg 15:32:23
51=Jul=1983

RD/RX EXERCISER
TEST ROUTINES
MULTI-DRIVE

VAX=11 Bliss=16 V3=555

! ROUTINE QIO_UNIT

end;
RO

.PSECT

$GGGS,

.SBTTL

QIO.UNIT MULTI-DRIVE TEST ROUTINES

RAT . COUNT :

.PSECT

$SCODES,

OO0
O OO OO

ZRQAM3
v01.2

15:33:

K10

I
MULTI-DRIVE TEST ROUTINES
QIO0.UNIT:

g8
g88888s8ssssss

SXRFBEEERERSaNo

0000006

SEQ 334

R2: 195
. RELEASE JZROABO.BL2
SUSE
LDIETZ
DISK

000002

0000006

g%.SUP.FLAGS

3065
3100

001000

0000006

g;OOO.SUP.FLAGS

3101

R1,$SAVE3

001230°

BST.CNT

3104

700

001232°

BST.DEV,RO

3105

840000°

#40000, (RO)

001232°

BST.DEV,RO

3106

0000006
020000

CST.ADDR,RO
0%0000.(R0)
1
BST.DEV,RO
RO
CST.ADDR,RO

3107

700

RO
CST.ADDR,RO
1$

001232*
0000006
010000

#10000, (RO)
18
BST.CNT
7$
#3.R1

001230°*
700

000003
001232°

BST.DEV.RO
33
RO, #22

000022
001232°*

3s:

000005 001232*
001232°*

4$:
5$:

000003

063700
440

0000006
040000

4%
#3,8ST.DEV

5%
#5,BST.DEV

BST.DEV.RO
RO
CST.ADDR,RO

ggoooo.cfio»

020000

ggoooo.(ao)

010000

#10000, (RO)
8%
#4, (RO)
6%

000004

000120

;}20.857.("7

001230°

0041 60 001230°
001232°*
0000006
000164°
0000006
000166°*
0000006 000016

6$:
7$:

#4160,BST.CNT

B3
DEV, (oP)
MAD1,RO
CDISK,16(R0)

MAD2,RO

CDISK,16(RO)

*,OFFSET

LQAALLAFALARKRKR =%

21=Jul-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

VAX=11 Bliss=16 V3555

OO0V

%1-Jul-19 5:33:38
5:23:38
1=Jul=198

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3-555

DISKSUSERZEDIEFZ RELEASEJZRQABO.BL2;AL

(SP)+

R1.#22

2s
RAT.COUNT
RAT.COUNT,#144
108

001246°
001246° 000144
001246°
0000006
001246°

14$:

158:

0000006

020000

R1.RO

RO
CST.ADDR,RO
#40000, (RO)
168
#20000, (RO)

R1,STORAGE (RO)

000074°

16$:

R3’

81 422
15§

17%:

R3
19%
R2
RO
R2,RO
RO
RANDOM(RO) ,=(SP)

nooooo (SP)
-(SP)

b
b
o

D
. COUNT
MO
*, OFFSET
OFFSET,*

16$

#10000, (RO)
168
RO
R3.RO
RO

WWWWW

SELECT.RD
SELECT.RD

168
#4, (RO)

010000

000005
000022

#3,R1

s MOD.COUNT,*
; OFFSET,*
MOD . COUNT

: «,OFFSET

: OFFSET,*

: MOD.COUNT

: TBL.COUNT

: TBL.COUNT,*

SR I3 &% FRES

*,SELECT.RD

bbb

SELECT.RD

*,SELECT.RD

000001

000003

ofrsst.

3158

000001

000144

OFFSET

.01

8s:

3129
3133

WWW

888805

SEO 335

LAV =N

n10

1=Jul=1983 15:33:38

S1-Jut=1983 13:33:38

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
110;;;

R3,(SP)

P8.3L$H00

0000006

PC,SET.UPAR

R2
(SP)+,(SP)+
CUOFF ,RO
RO

éo»

020000

010000

188:
19%:
20$:

#10000, (RO)
218
RO
R3,R0
RO

R1,STORAGE (RO)

000074"

218:

22%:

000074°

R1.RO

; MOD.COUNT
: *,0FFSET
s OFFSET,*

21$
#20000, (RO)
21%
g? (RO)

010000

0000006

17§

24$
R3
#3.R1

; TBL.COUNT,*

l‘OOOO (RO)

020000

000116°*
100000

a
#20000, (RO)
183
#10000, (RO)
248
R2,4#20

CST.ADDR,RO

0000006
040000

000005
000022

: TBL.COUNT

csrADDR R

040000

000003

: MOD.COUNT,*

E
(RO) , (SP)
STORAG

000074"*
0000006

000020

sea 336

L2
13 (259
DISKQUSERZ [DIETZ.REL ASE12R0ABO.B

VAX=11 Bliss=16 V3=555

R3’

#5,R1

R1 022
20§
R3
25%
R2
RO
R2.RO

RO’

3233
3234
3235
MOD.COUNT
,*

OFFSET,
"
MOD. COUNT

«,OFFSET

3239
3230

: MOD.COUNT

3246

; TBL.COUNT

3249
3253

OFFSET,*

: TBL.COUNT,*

RANDOM(RO) ,~(SP)

0}00000. (SP)
R3,(SP)

PS.BLSHOD
R

E
(RO) , (SP)
STORAG

3238

; MOD.COUNT,*

N10

300
700

PC,.SET.UPAR
R2
(SP)+,(SP)+
CUOFF ,RO
RO

0000006

010000

000003

23$:
24$:
25$:
26$:

010000

000074"

8338888888888888ssss
Ty

228

308
R3
#3.R1

R1.RO
RO

278
#20000, (RO)
27$
#10000, (RO)
27$
RO
R3.R0
RO
R;.STORAGE (RO)

020000

23s
#20000, (RO)
23$
#10000, (RO)
308
R2,#20

3257

3258

: TBL.COUNT,*

3259

:
: MOD. COUNT
: %,0FFSET

3261
3272
3274

;

3277

3278

3276

: ofrsst *

CST.ADDRi

0000006
040000

000022

;

#40000, (RO)

040000

000020

3254
3252
3256

CST.ADDR,RO

0000006

020000

{

: TBL.COUNT
:
;

27%:

28$:

#5.R1

R1.#22
26$
R3
318
R2
RO
R2,RO
RO

3281

;
: MOD.COUNT,*
: OFFSET,*

3282

+ MOD.COUNT

3274

: *,OFFSET

: OFFSET,*

: MOD.COUNT

3288

; TBL.COUNT
|

3291
3295

+ TBL.COUNT,*

RANDOH(RO).'(SP)

0100000. SP)

R3 (SP)

PS.BLSHOD

: MOD.COUNT,*

_—~

, (SP)
AGE
(RO)
STOR
:g.SET.UPAR
(SP)+,(SP)+

CUOFF,RO

RO
CST.ADDR.RO

MULTI=-DRIVE TEST ROUTINES

DISKSUSER2:[DIETZ. RELEASEJZROABO 8l2.1g'(23)

: TBL.COUNT
.

]

3296

3294
3298

pee—

RD/RX EXERCISER

SEO 337

VAX=11 Bliss=16 V3-555

21=Jul=1983 15:33:3
21=Jul=1983 15:23:3

e Ba B 8eBe 8880880080 0c0090 0909090809000 %0%000%0%000000000%0%000000%00%00%00% %000

FOREERNTRRES &3

001266

MULTI-DRIVE TEST ROUTINES

)

:zn.oooo.mo)

LSS8S8

gesee
DI

000164"*
0000006 000016

000207

Routine Base:
: Routine Size: 348 words
: Maximum stack depth per fnvocation:

3299

#20000, (RO)

#10000, (RO)
308
R2,#20

3300

: TBL.COUNT,*

3301

3303

3304

3
:
:
:

3290
3314
3315
3065

259

w
N

88888888888888
-5

DlSKSUSERZ:[DIETZ.RELEASEJZROABO.BLZ:1! (Zgg
VAX=11 Bliss=16 V3-555

RD/RX EXERCISER

IRQ

SEQ 338

Page

28$

MAD1,R0
CDISK, 16(R0)
MADZ2,.RO
SDISK.16(R0)
C
#1,E0P.FLAG

ggbooo.aoct.Aooa

$CODES + 7206

RD/RX EXERCISER

W
WWNW

S OO

W N N N N W W N NN W NN W

N N AN N NN N NN NN NN N uuwuuwuwwwuwuuwwuwuwwuwu

BY THE FOLLWING ALGORITHM:

IF_THE CHOSEN UNIT IS PROTECTED

THEN

i
i

!
!

!
!
!
!

R R

;

i
)

i
]

i
i
i
i
1

i
i
!
]

FUNCTION = READ

ELSE (UNPROTECTED)
FUNCTION (WRITE OR READ) IS BASED ON A RANDOM
NUMBER

!
!

THE OPTION OF PERFORMING WRITEIN ADDITION, IF THE OPERATOR SELECTED
FUNCTION WAS CHOSEN ABOVE FOR
"WRITE''
A
IF
AND
HOST,
COMPARES AT THE
THE FIRST QI0,

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 DBN. 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
1 70
THE RATIO OF 1 TO 25 MUST BE MULTIPLIED BY X FOR A RATIO OF

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, THERFORE 1 SUGGEST THAT IF A LARGE AMOUNT OF
170 TRANFERS ARE TO BE DONE THE ‘DUPROUND'' VARIABLE BE RAISED TO SPEED UP
UP THE PROCESS.

IMPLICIT INPUTS:

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (ST
CUOFF = CURRENT UNIT CST OFFSET

IMPLICIT OUTPUTS:

THE OPCODE FIELD OF ONE OR BOTH MSCP ENVELOPES IS LOADED.

—

begin

A
AE R R
I

local

F UNC :

'PRINTX (DER9);
;ERINIF (DER9);

word;

! OPCODE (READ OR WRITE)

IF ((.CST_ADDR L[.CUOFF + 4,D_COUNT] LEQ 0) AND
(.CSTZADDR [.CUOFF,D_TYPE] EQL RD_51) AND
(.CSTCADDR [.CUOFF +73, NODUPMEDIA] NEQ 1))

SEQ 339
Page 8

DISKSUSER2:[DIETZ.RELEASEJZROABO.BL2;13

THIS ROUTINE 1S CALLED BY QIO _GEN TO SELECT THE 1/0 FWCT}M (OPCODE)
TO BE USED FOR THE CURRENT QID OR QIO PAIR. THE FUNCTION S DETERMINED

Ul\h\ll\fi&\ll\h\ll

21=Jul-1 983 15::23: 38

routine QIO_FUNC : novalue =

336

21-Jul=1983 15: 33: 38

R TR TR T T T T

P P P PR P TR TR TR TRTR TRLA LRLR LA L I TEIETEIETIEIE TR

AT ETE PRLA LA L 1

MULTI=DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3=555

! IF MSCP _FUNC CNT EQUAL TO 0
!IF WINCHESTER DISK
!IF NODUPMEDIA FLAG BIT IS CLEAR

(24)

I L0 1)

THEN

BEGIN

R T

PUT_PKT (.MX2);
Mx2"= =1;
csr ADDR C.CUOFF + 3, DUPERROR] = 0;
DUPTM();

TR TETATEATETE

oxsxsussnz:toxerz.annsemmao.uz:13‘(24)

CST_ADDR . cuorr + 3, DUPERROR] = 0;

'PRINTX (DBM111);

CST_ADDR [. CUOFF + &, D_COUNT)

! asmm 1ST ENVELOPE TO POOL
! INDICATE FAILURE
'CLEM DUP ERROR FLAG
! DO DUP

AR DUP ERROR ms

REINIT
! PRINT nscp exemsea
! REINITIALIZE MSCP FUNC COUNTER

= (25 + .dupround);

2 ENVOLOPES SO THE MSCP EXERCISER CAN
| aneaasataseaasssssssssceenesss THIS SECTION REINTIALIZES
DUP EXERCISER STARTED tetattnttnattadtes

DAL ALA T T 1 (TR

AR s PROCEED AS BEFORE THE
tt
ettt AR
| ARt

= .DUP_FLAGS OR SWP_DINT;
DUP_FLAGS

! THIS REINITIALIZES THE CONTROLLER FOR MSCP MODE

Mx2= -1;
= GET PKT (.CCTLR)) LSS O
IF (MX1

! ASSUME FAILURE IN SECURING 2ND ENVELOPE
! TRY TO GET 1ST ENVELOPE.

= .DUP_FLAGS AND (NOT SWP_DINT);
DUP_FLAGS

A TR PR PR PRTR DR PR A DR R

OR (.EOP_FLAG)
RETURN;
IF (MX2= GET_PKT (.CCTLR)) LSS 0

THEN

OR(.EOP_FLAG)

THEN

BEGIN

aewnu.

O
A

SUWN =0V

NONH W=D

FRRRRRRRRRRRRRER
PNONURININY
=2 b b b d =D —d =D —d =D

! IF FAILURE
' NO POINT IN CONTINUING
! TRY TO GET 2ND ENVELOPE.
! IF FAILURE
! DONE

= MSCP_PKT+ (.MX1 « PKT_LEN * 2);
MAD1
= MSCPTMPKT+ (.MX2 * PKT_LEN * 2);
MAD2
GET_RANDOM T);
QIO_UNIT ();

! CLEAR DUP INIT FLAG

! RETURN 1ST ENVELOPE TO POOL
! INDICATE FAILURE

PUT_PKT (.MX1);
MX1"= =1;
END;

3409

! SET DUP INIT FLAG

INIT_TEST ();

! CALCULATE STARTING ADDRESSES
OF BOTH ENVELOPES
!
! GENERATE A SET OF RANDOM NUMBERS
! LOAD RANDOM UNIT NUMBER INTO ENVELOPES

END;
' ttttttttt*tt'ttttttttttttttttttttttttttttttttltttttttt'ttttttttttttttttfi

START OF ROUTINE MSCP

't'ttttttt.ttttttttttttttttttttttttttttttt'ttttttt'tttttttttttttttltttttt

CST_ADDR [.CUOFF + &4, D_COUNT]
MAD2 COPCODE] = 0;

= .CST_ADDR [.CUOFF + 4, D_COUNT]

= 1;

! ASSUME 2ND PACKET NOT NEEDED

:'f..CST_ADDR [.CUOFF, D_PROT] eql PROTECTED ! IF UNIT IS PROTECTED
.

elLse

FUNC
= OP_RD

! SET FUNCTION TO READ

if (.RANDOM (1] and 1)

! USE 2ND RANDOM NUMBER TO SELECT

! DECREMENT MSCP FUN

21=Jul=1983 15:23:38

MULTI-DRIVE TEST ROUTINES

I
e
o
TS
TT S
R
IR
E I
MR

21=Jul=1983 15:33:38

RD/RX EXERCISER

ZRQAM3
v01.2

SEQ 340

VAX=11 Bliss=16 V3=555

Pelel=lel=l=l=l=lel=lel=]l=]]elel=l=]el=]leleleleleleleT-R

o8t 13:33:38
5 Ul

S et -1 I

PIIIIIIS

MULTI=DRIVE TEST ROUTINES
hen
else

IF CONTROLLER DOES WRITE-COMPARES

then

RN P
AT ST NP N

' IF HOST DOES WRITE-COMPARES

:'f‘ BIT_TST (SWP_FLAGS, SWF_HWC)
en

axgin

2 [OPCODE]) = OP_RD;
MAD2 [CMD_TYPE] = RON_SEQ_CMD;
end;

end
else
gxgin

1 CCMD_TYPE] = NON_SEQ_CMD;

! SET READ OPCODE INTO 2ND MSCP PACKET
! NON=-SEQUENTIAL COMMAND

! NON-SEQUENTIAL COMMAND

! IF CONTROLLER DOES READ=COMPARES = FUNCTION IS READ

i .f' BIT_TST (SWP_FLAGS, SWF_CRC)

then

! ADD COMPARE MODIFIER

MAD1 [MODIFY] = MD_CMP;

end;

! IF NO OPCODE IN 2ND PACKET

if .MAD2 [OPCODE] eql O

then

be?in

! RETURN 2ND PACKET TO POOL

PUT_PKT (.MX2);

3460

MX2

3461

end;

004137

000000G

! MARK IT UNUSED

= =1;

! ROUTINE QIO0_FUNC
.SBTTL
QIO0.FUNC:

QIO.FUNC MULTI-DRIVE TEST ROUTINES

JSR

R1,$SAVE3

MOV
MOV

CUOFF ,R1
R1.RC

060200
005760 000010

ADD
ST

R2.RO
10(RO)

010100

MOV

R1,R0

013702 0000006

013701 0000006
010100
300

003166

ADD COMPARE MODIFIER

MAD1 CMODIFY] = MD_CMP;

gzgz

SEQ 341

LOAD CHOSEN OPCODE. IF WRITE

if BIT_TST (SWP_FLAGS, SWF_CWC)

ggz

3462
3463

WRITE

NON-SEQUENTIAL COMMAND

332%5

3458
3459

FUNC = OP_WRT;

Page

(24)
13 L2:
N SkSUSER2 IDIETY.RELEASEIZROABO.B

1 [CMD_TYPEJ = NON_SEQ_CMD;
gl

gfi.

3457

READ

then

344

glzlg

FUNC = OP_RD

if (MAD1 COPCODE] = .FUNC) eql OP_WRT

g‘zz

344
344
344
344
344

15:33:38

VAX=11 Bliss=16 V3-555

MOV
ASL

BGT

3319

3369

csf.ADDR,R2

3370

Jul=1983

RD/RX EXERCISER

RRER

g T A e A P T T T P P PR PR P PR PR T §N

F1N

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

Pseo S:g

VAX=11 Bliss=16 V3-555
2
2:
ZROABO.BL
SER
[DIETZ .RELEASEJ
DISKSU

:?g.(24)

R2.RO

#4. (RO)
4
R1,RO

000004

3371

RO
R2,R0

6(R0)

==2 (SP)

000162°*
0000006
177777 000162°
0000006

3375

PC,PUT.PKT
#-1.,mx2

3376
3377

CUOFF ,RO

CST.ADDR,RO

#40000,6 (RO)

gg8sesassssss

PC,DUP

CUOFF ,RO

3378
3379

CST.ADDR,RO

#40000,6 (RO)

NIXBRER N

CUOFF ,R1

CST.ADDR,R1

3381

PC,BLSMUL

RO,10(R1)

#2,DUP.FLAGS

#2.DUP.FLAGS

#-1,mx2

CCTLR, (SP)

PC,GET.PKT

3386
3387

3591
3392

RO, MX1

28’

#1,E0P.FLAG

2
CCTLR, (SP)

Sl-Jul-198
1=Jul=198

e 000000000 %090 0000%: %0000 % % % %e 0 B0 90900090 %0 9000909099090 %0009 080 %00

0000006
177777 000160°

000160°*

18:
2$:

3s:

=1 .mxi
;srio.(sp>o
C
MX1, (SP)

#104,~(SP)

PC ,BLSMUL
#MSCP.PKT,RO

3398

3408

YCNCNEY

000160°

3396

PC,GET.PKT

RO,MX2
1$
#1,E0P.FLAG
3s
MX1, (SP)
PC,PUT.PKT

T i

SEQ 343

V3-555

(26)
13 L2;
1 SKSUSERS: EDIETY. RELEASEZROABO.B
BLiss=16

-11

4$:

gfis

PC,GET.RANDOM
PCGOIO.UNIT
#10,5P

ggofr.ao

g82

CST.ADDR,RO

s FUNC,*
: FUNC,*

#20,R2

3& £ SR

220000.24(R0)
#40,R2
108
#41,(R3)
MAD2,R1

#2,4(R1)

108

000162°*

177777

000162°
118:

24 (RO)
#40000,
(R3)

;}3 (SP)

PC,PUT.PKT
=1 ,mx2
(SPJ+
PC

108:

000024

040000

g
g%
2

#2,4(R0)
13 R2

—

3428

SWP.FLAGS,R2

R1,22(RO)
R1,#42
9s
#2,4(R0)

: «,FUNC

00 =

6%:

= ,FUNC

25t &

5%:

000041

rRp
8

000120°

TR PR

000001

100000

CST.ADDR,RO
#100000, (RO)
5%
#1 ,RANDOM+2
6
#41,R1
7s
#462,R1
MAD1,RO

A CCAOOCOOCOCOOCOOO0O0OOOOOOOODDROORRRLRRVRR

S1JuLC1983 13:38:38

ER
EST ROUTINES

ZRQAM3
v01.2

Page

209 words

Routine Base:

; Maximum stack depth per fnvocation:

9 words

SCODES + 10476

DISKSUSER2:[DIETZ.RELEASEJZROABO. BLZ 1 (26)

: Routine Size:

1=Jul=1983 15:33:38
983 15:23:38
%I-ng-l

SEO 3“

OO0V

53?3’

W?}-Sfi%'?%?r ROUTINES

VAX=11 Bliss=16 V3=555

Sl-.l:l-fl” 15:23:38

MULTI-DRIVE TEST ROUTINES

AR IRTR IRT L0 1

)

1=Jul=1983 15:33:38

RD/RX EXERCISER

VAX=-11 Bliss=16_V3-555

SEQ 345

Page

DISKSUSERZ:(DIEH.RELEASEJIROABO.BLZ:1?‘25)

T T TR PR PR TRTR LA TR PR PR LA TR TR TRTR LA DA LRLA 1 (I TETETREIRATE

ROUTINE DUP : NOVALUE =
THIS ROUTINE IS CALLED BY QIO_FUNC AFTER 25 * 'DUPROUND'® RO/WTS .
THIS EXERCISER WAS PLACED IN THE 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
TO THE DIAGONOSTIC BLOCKS OR DBN'S.
THE STATICS IN THE TALLY TABLES.

IT WILL RECORD

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
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
WILL NOT BE LISTED IN THE RCT TABLES.

AFTER THE EXERCISER HAS EXAMINE ‘DUPROUND'’ AMOUNT OF BLOCKS IT WILL
ggg'gzlflfi THE ENVOLOPES SO THAT THE MSCP EXERCISER MAY CONTINUE AS
IMPLICIT INPUTS:
CCTLR = CURRENT CONTROLLER NUMBER

CST_ADDRS

CUOFF

= CONTAINS THE CURREWT CONTROLLER STATUS TABLE

= CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

IMPLICIT OUTPUTS:

S_PATTERN = PATTERN BEING WRITTEN TO AND READ FROM DBN'S

BEGIN

OWN

TEMP : WORD;

'PRINTX (DBM110);

T T TT T T

'PRINTX (DER10);
3505

S_PATTERN = .RANDOM [1];

IF (.CST_ADDR [.CUOFF + 3, D_DBN] + .dupround) GEQ_144 THEN (CST.QEDDR

BEGIN

MSCP_PKT
=§Eg_m

CUOF ¢ o*déeg_bflfl =0);

NEXT DBN'S T
i TEST TO SEE IF
i CIRCLE ARROUND IF DBN TO LARGE

[.MX., MSGLEN] = $Z_GDS;
m %g?gs 4 ~GDS;

DUPCOMMAND () :°

’

IF .csr_:r\.o'gz t.cuorF + 3, DUPERROR] EQL 1
RETURN;

' PACKET SIZE
i OPCODE = GET DUST STATUS

i SENDS AND RECEIVES THE COMMAND
'IF DUP ERROR THEN CLR FLAG & RETURN

GET DUST STATUS

Pel=l=l=l"l"l=l=l=1"l=l=l~]l=l=l=]=l=lelelelelolwR o

%1-Jul-19=g 15:3%:?3

' "TRY TO GET AN ENVELOPE.

IF (MX1"= GET_PKT (.CCTLR)) LSS
-

OR (.EOP _FLAG)

! NO POINT IN CONTINUING

THEN RETORN;

UNTIL .CST_ADDR [.CUOFF + 3, D_ACTIVE] EQL IDLE;

TEMP = .CST_ADDR [.CUOFF + 3, D_DBNJ;

INCR oangggl;aon C.TEMP + 1) TO"(.TEMP + .dupround) DO

! IF WRITE FLAG SET IN CST TABLE THEN WRITE DBN'S

lguégst.noon C.CUOFF + 3, DUPWRITE]
BEGIN

T_ADDR [T_DBN_WT] = .T_ADDR CT_DBN_WT] + 1;

DOPWRTDBNT) ;

IF .csr_?ags C.CUOFF + 3, DUPERROR) EQL 1

! INCREMENT FROM RELATIVE DBN TO DBN + dupro

! CALL ROUTINE TO HANDLE WRITTING ROUTINES
'IF DUP ERROR THEN CLR FLAG & RETURN

RETURN;

T_ADDR [T_DBN_RD] = .T_ADDR CT_DBN_RD] ¢ 1;

DOPREDDBNT) ;

IF .cst_?ggz C.CUOFF + 3, DUPERROR] EGL 1

! CALL ROUTINE TO HANDLE READING DBN'S
'IF DUP ERROR THEN CLR FLAG & RETURN

RETURN;
END;

END;

.PSECT

$GGGS,

.SBTTL
.PSECT

DUP MULTI-DRIVE TEST ROUTINES
SCODES, RO

JSR
MOV

R1,$SAVE3
RANDOM+2,S.PATTERN

.BLKW

DUP:

0000006

:g\tf

ggorr.ao

0000006

ADD

000006
0000006
000220

6(R0),R1
BISB
ADD - DUPRCUND,R1
CMP
R1,#220

000006

CLRB

000160

000104

CLR

BLT

18:

MOV

3466
3505

:
:

3506

CST.ADDR,RO

6(R0)

MX1,=(SP)

#104,=(SP)

3511

OO0

0000006
000120° 0000006

TEMP:

SEQ

THEN RETURN
IF .CST_ADDR C.CUOFF + 3 noournsoan EQL 1 THEN RETURN; ' IF DUP LOCAL MEDIA NOT THERE
IF FAILURE

ViVh
W
w

MR R R LA L E TT O

DISKSUSER2: oxstz.RELEASEJzaonso.atz:?g'tzs)
VAX=11 Bliss=16 V3-555

15:33:

00909090 %9090 %0 % % %S00, 0000000090080 %0 90909090 %0%0 %0 9% % % LA TE TR TR 1Y

N UV (N N A U AN N (N N N N NN N N

T o R R TR A TR PRLA LA LR

NNNNN’_\:S—‘-‘

DAL A TRLR TRT T

1=Jul=1983

RD/RX EXERCISER
VE TEST ROUTINES
MULTI-DRI

MULTI-DRIVE TEST ROUTINES

D cd D D

#40000,6(R0)

C . DUPCOMMAND
cgorrRO

0000006
040000 000006

ViV

c1£.nscp PKT+6(R0)
MSCP. PKt+2 (RO)
nsép PKT+24 (RO)

AN
(rd i

BLSMUL

0000006
000014 0000066
000001 0000226
0000246
000000V

28
6(RO)
28
CCTLR, (SP)

0000006
0000006
000160°*

CST.ADDR,RO

000006

pc.sef PKT

2$:

000166

AL AT

DISKSUSER2: (DIETZ RELEASEJZRQABO.BL2;

5:33:38
15:23:38

SEO 367

D D b oD d e

FERSEESRENF
RS REN

§§§§§§§§§§§§§§§§§
—d b D

51-Jul-1
1=Jul=1983

RD/RX EXERCISER

ZRQAM3
v01.2

VAX=11 Bliss=16 V3=555

3s:

RO.MX1
28
#1,EOP.FLAG
3s
(SP)+,(SP)+
PC

(SP)+.(SP)+
CUOFF .RO
RO
csr ADDR RO

azbooo (RO)
(no) TEMP

MPH1

rsnp.az

DUPROUND,
agOFF.RO

010000

48:

0000006
040000 000006

CST.ADDR,RO
RO,R3
#6.R3
TEMP,R1
6%

3527

g;oooo.(as)

3530

T.ADDR,RO
52(R0)
PC, oupunroan
CUOFF ,RO
RO
CST.ADDR,RO

3533

520000.6(RO)

5%:

* ,DBNCNT

T.ADDR,RO
56(R0)

PC,DUPREDDBN

CUOFF ,RO

3534
3535

3537
3539
3540
3541

OOV VARLVLILIAINIAIL. =N

000354

063700

000400

000402

PO A3

6$:

003732

78:

000207
130 words

Routine Base:

Maximum stack depth per fnvocation:
3548
3549

D eKSUSER2 . LDIETY. RELEASE JZROABO.BL2: 13 (25)

#40000, (R3)

005201

Routine Size:

SEQ 348

Page

CST.ADDR,RO

0000006

G 0o
o

000374

1=Ju!=1983 15:33:;8
1-cul--1983 15:23:38

RD/RX EXERCISER
MULTI=-DRIVE TEST ROUTINES

IRQAM3
v01.2

VAX=11 Bliss=16 V3555

7 words

RTS

7
R1
R1,R2
4
PC

$CODES + 11340

: DBNCNT

: DBNCNT,*

3543
3527
3466

’-

CST_ADDRS

= CONTAINS THE CURRENT CONTROLLER STATUS TABLE

S_PATTERN

= CONTAINS PATTERN WORD!-

P-4

(1]

—

CUOFF

TR IR

= CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

e %

!PRINTX (DER11);

HSCPPKT

EXECUTE LOCAL PROGRAM WRT DB

! PACKET SIZE

! OPCODE = EXECUTE LOCAI. PROGRAM
! STANDALONE MODIFIE
! FILL IN PROGRAM NME WITH ASCII LETTERS

.Hxl. L&)= Rasci

MSCP_PKT L[.MX1, L5) = Xasc
3
MSCPTPKT L. nx1 L6] = Xascii'N’;

! SENDS AND RECEIVES THE COMMAND

'IF DUP ERROR THEN RETURN
.CST_ADDR t CUOFF + 3, DUPERRORJ EQL 1 THEN astuau
IF
IF (MX1"= GET_PKT (.CCTLR)) LSS 0
" TRY 70 GET AN ENVELOPE. IF FAILURE

DUPCOMMAND (

OR (.EOP_FLAG)
THEN

(CST_ADDR [.CUOFF + 3, DUPERROR] =
RETORN; ) ;

! NO POINT IN CONTINUING

MSCP_PKT [.MX1, MSGLEN] = SZ_REC;
MSCP_PKT L[.MX1, OPCODE]
= OP_RCD;

! PACKET SIZE
i OPCODE = RECEIVE DAT

MSCPTPKT L. nx1 MODIFY]
DUPCOMMAND

i
i SENDS AND RECEIVES THE COMMAND

MSCPTPKT [.MX1, BC_LO]
=" 2:

MSCP_PKT L.MX1, aur 0] = ouppxr
= 0;

i BYTE COUNT TO BE taAnsrsneo EQUALS 2

i LOAD DESCRIBTOR BUFFER

EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN
3, DUPERROR]
t CUOFF] +NEG
IF .CST ADDRCDUPTYPE
1
IF .DUPPKT

OR .DUPPKT [DUPMESG] NEQ 6
gg f"éap-rffiétpxr (.CCTLR)) LSS O
THEN

' IF CORRECT RESPONSE
i TRY TO GET AN ENVELOPE. IF FAILURE

(HARD_ERROR ();

CST_ADDR[.CUOFF + 3, DUPERROR]
=

RETORN;);

! NO POINT IN CONTINUING

RECIEVE DATA

TR E TR IR TRTR TR DR TR T 1) e 0000000000000 0000%0 90900000000 % % [ TE

i NRq.l.fl'f IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM
USE THE PROGRAM THE OPTIONAL DUP SUB-PROTOCAL ISUSED TO
.
ie
s CWICATE UITH THE CONTROLLER. THE PROGRAM WRITES TO A DIAGGOS"C BLOCK (DBN)
i THE WORD IN ''S_PATTERN'' IS WRITTEN TO THE 256 WORDS IN THE DBN. IF AN ERROR OCCURS
i WHILE RUNNING THE CONTROLLEk LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE
i DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK #, DEVICE ERROR, ZERO LENGHT MSG)

TS TR I TR R

IMPLICIT INPUTS:

=l=]

TR PRTR LA TR PR TRTR LA L L TR
A
S
AI RRE T R
TR IR

ROUTINE DUPWRTDBN : NOVALUE =

VONOVSWN=O

N N N U N N N NN N N N N N NN W N NN

VIVIVIVIVIVIVIVAIVALA
VIVIVIT
I
WA

8
AR PR PRTR PR DRPR LA LA L 1

AL L

O A T TR TRTR TR

3‘9
SEO
V3-555
Bliss=16
VAX=11
33:38
: :11985:
1g1=Jul=19
?(26)
?
ABO.BL2;
83 15:23:38 DISKSUSER2: [DIETZ.RELEASEIZRQ

RD/RX EXERCISER
VE TEST ROUTINES
MULTI-DRI

ASoee gegise
v

[.MX1,

MSCP-PKT

! PACKET SIZE

= SZ_SEN;

MSCP_PKT E.nxt MSGLEN]

i OPCODE = SEND DATA

= OPZSDD;

OPCODEJ]

03= DUPPKT;
MSCPTMPKT C.MX1(1)aurTdisk;

MSCEPKT

DUPPRT
DUPPKT
DUPPKT

SEND DATA

COUNT TO BE TRANSFERED EQUALS 6

= 6:
LK1, BCLOJ

i LOAD DESCRIBTOR BUFFER
ILOAD UNIT NUMBER (RDRX)
CDUPBF
! LOAD DBN NUMBER
D_DBNJ;
3,
+
[.CUOFF
.CST_ADDR
CDUPBF1] =

I.OAD PATTERN

F2) = .S PITTERN.
nx1 MODIFY]= 0;

3352 PKT

OMMAND(

' SENDS AND RECEIVES THE COMMAND

N
N
S
S UWN=O VoO~NONWNI

'IF DUP ERROR THEN RETURN
EQL 1 THEN RET\RN.
+ 3, DUPERRORJ
IF .CSTADDR t CUOFF(.CCTLR
Y TO GET AN ENVELOPE. IF FAILURE
)) LSS 0

IF (MX1"= GET_PKT
oa EOP_FLAG)
THEN

(CST_ADDR [.CUOFF + 3, DUPERROR] = |}
RETOR

! PACKET SIZE

t CUOFF + 3, DUPERROR] EQL 1 THEN
IF .CST ADDR
T COUPTYPE] NEQ 3)

' SENDS AND RECEIVES THE COMMAND
RETURN; !IF DUP ERROR THEN RETURN

i OPCODE = RECEIVE DAT

' LOAD DESCRIBTOR BUFFER

IF (.DUPPK
OR (.DUPPKT tDUPHESGJ NEQ 3)

CST_ADDR[.CUOFF + 3, DUPERROR]
);
RETORN;

(CST ADDR C.CUOFF + 3, DUPERROR]
RETORN;

! NO POINT IN CONTINUING

! TRY TO GET AN ENVELOPE. IF FAILURE

IF ((MX1 = GET_PKT (.CCTLR)) LSS 0)
Oz(.EOP_FLAG)
:
THEN

! IF CORRECT RESPONSE

(HARD_ERROR ();

T EN

(.DUPPKT CDUPBF1] NEQ 0)

RECEIVE DATA

i BYTE COUNT TO BE TRANSFERED EQUALS 4

MSCP_PKT C.MX1, BUF_ 0] = DgPPKT:
MSCPPKT . nxt MODIFY)
(
DUPCOMMAND

3625

! NO POINT IN CONTINUING

MSCP_PKT [.MX1, MSGLEN] = SZ_REC:
MSCP_PKT L[.MX1, OPCODEJ = OP_R(CD:
MSCP_PKT L[.Mx1, BC_LOJ = &;

! NO POINT IN CONTINUING

EN(A)DDR CT_BLK_WT] = .T-ADDR [T_BLK_WT] + 1;

DUPWRT

010146

013746
012746
004737
012760

000160°
000104

0000006
0000066
000022
000003 0000226

000001 0000246

DBP.JSB"L

MOV
MOV

JSR
MOV
MOVB

MOV

DUPWRTDBN MULTI-DRIVE TEST ROUTINES

R1,=(SP)

PKT+6(R0)
§é.nsc9.
#3,MSCP.PKT+22(R0)

;

mxi,=(SP)
o1ot -(sp)

#1.MSCP.PKT+24(R0)

:
:

<N~

[h¥]

MULTI-DRIVE TEST ROUTINES

e T = e = lele == l=le]l=l=]=]e]e]lelelelelw
e =T~ ]

S
R TR LR L T
R
A TR
AT TE
ST E T
R
A
R IR A
e e 8000080000000 00000090 0090 % %0 %0 (TR

21-Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

RQAM3

SEO 350

ge 94
VAX-11 Bliss=16_V3-555
(26)
.BL2;15
EJZROABO
Z.RELEAS
DISKSUSER2:[DIET

3550

3569
3570

3571

PP Y

B 12

063700
32760

0000006
040000 000006

013716
004737
010037
002404
132737
001412
Q13700

0000006
0000006
000160°

3700

0000006

042700
020027
001022
013700
042700

PC,GET.PKT

0000006

1$:

0000006
040000

000006

2s:

000160°

000104
0000006
000034 000006
000005 0000226
000002 0000266
0000326
0000246
000000V

737
010037
002404
132737
001415
004737

CST.ADDR,RO

cgoooo.e(ao>

000006

RO
DUPPKT,

#7777 .R0

2g.c1booo
:

3596

CCTLR, (SP)

3597

#1,EOP.FLAG

3598

DUPPKT ,RO

0000006
170000

#170000,
RO
RO, #6

0000006

PC,GET.PKT
RO, MX1
43

0000006
000160°

000000V

#104,=(SP)

0000006
007777
010000

000001

CST.ADDR,RO
#40000,6 (RO)
(SP)+,(SP)+
6
MX1, (SP)

(RO)
MSCP.PKT+24

001015 00008
013716

PC,BLSMUL
#34 MSCP.PKT+6(R0)
#5,MSCP.PKT+22(R0)
#2.MSCP.PKT+26(R0)
#DUPPKT .MSCP.PKT+32(R0)

;

040000

RO, MX1
18
#1,EOP.FLAG
38
CgOFF.RO

289
N

012746
737
012760
112760
012760
012760
005060
004737
013700
006300
063700
032760
001043
013700

CST.ADDR,RO

#40000,6(RO)
2s
CCTLR, (SP)

WINW

013716

CgOFF.RO

TR TR

052760
022626

000001

PC,DUPCOMMAND

000127 0000266
00C122 0000276
000124 0000306
000104 0000316
000102 0000326
000116 0000336
000000V
0000006

112760
112760
112760
112760
112760
112760
737
Q13700

0000006

4s:

78
PC,HARD.ERROR

13 (26);
D SKSUSER2 . LDIETY. RELEASEJZROABO.BL2
N

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3555
L TR TR TATATATA
Y]

51-Jul°1983 15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER

sEQ 351

Page

felelel=lelelelel=lelel=]lelelel=leleleleleTE

S1-Jul-198
1=Jul=198

RD/RX EXERCISER

MULTI=-DRIVE TEST ROUTINES
CUOFF ,RO

000006

000160°

000104
0000006
000034
000004 0000226
000006 0000266
0000006 0000326
0000006
0000006

3601

3595

CST.ADDR,RO

5%:
6$:

7$:

320000.6(R0)
10
MX1, (SP)

104, -(sn

gl.nscrPKT+6(R0)
g(RO)
P

#% ,MSCP.pxn

#6.MSCP.PKT+26(R0)
#DUPPKT ,MSCP.PKT+32(R0)

coxsx.oupKT

840000 000006

SEQ 352

Page 96
VAX=11 Bliss=16 V3-555
(26)
BL2;135
JZROABO.
.RELEASE
[DIETZ
ER2:
DISKSUS

D12

CUOFF ,R1

R1
CST.AD

oufipmz
6(R1),
PKT+3

0000006
000006 0000026
0000036
0000006 000004
0000246
000000V

DUP,

S.PATTERN,DUPPKT+4

MSCP.PKT+24 (RO)
Efia"’cm

000006

CCTLR, (SP)

0000006
0000006
000160°

PC,GET.PKT
RO, MX1

000001

#1,E0P.FLAG

000010

9$:

000160°
000104

11$:

000006
00003¢°
000005 000022G

000004 0000266
000000G 0000326
0000246
000000V
0000006
0000006
040000 000006

108:

CST.ADDR,RO
zl.oooo.mm
178
MX1, (SP)

0000006
040000 000006

nol'. -(SP)
BLSMUL

osl.nscp PKT+6(R0)

N N

0000006

11$

CUOFF ,RO

#5.,MSCP.PKT+22(R0)

#4.MSCP.PKT+26(R0)
#DUPPKT .MSCP.PKT+32(R0)

MSCP.PKT+24 (RO)
PC. DU'PCOMMAND

ggorrRO

CST.ADDR,RO

020000.6(R0)

PN NN NN N O OO

0000006

040000

CST.ADDR,RO

320000.6(R0)

RD/RX EXERCISER

77?
007
030000

3629

1?0000

3630

3631

000003

=gssssss R288R2
33233

sssssss
gesane

88888
SR

MULTI=-DRIVE TEST ROUTINES

0000026
128:

000000V

138:

148:

0000006
040000 000006

001062
001064

CCTLR, (SP)

PC,GET.PKT

148

0000006

0000006
000050
000012

3633
3634
3637

RO, MX1

000160°*
000001

I;C HARD . ERROR

#1,EOP.FLAG

3638

CUOFF ,RO
RO
CST.ADDR,RO
#40000,6(RO)

3640

3637

H
:

3564
3550

15§

158:
16$:

17%:

Routine Base: SCODES + 11744
: Routine Size: 283 words,
: Maximum stack depth per invocation: 7 words

3643

Pel=l=l=l=l=l=1=1"1"1"l=1"l=l=]=]=]=]l=lelel=llTT 4

SEQ 353

Page 97
VAX=11 Bliss=16 V3=555
(26)
2;13
RQABO.BL
ELEASEIZ
[DIETZ.R
DISKSUSER2:

1=Jul=1983

RD/RX EXERCISER

15:33:38

%1-Jul=1983 15:23:38

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3-555

SEQ 354

Page

DISKSUSER2:[DIETZ. neu.ense:zaom.uznr(zn

ROUTINE DUPREDDBN : NOVALUE =
'+

i THISnogmne IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL nocm\n
| "REDDBN''. TO USE THE PROGRAM THE omom. DUP SUB-PROTOCAL IS USED
i COMMUNICATE unu THE CONTROLLER. THE PROGRAM READS A DIAGONOSTIC BLOCK (DBN)
IF AN ERROR OCCURS um.e
‘.
i AND PLACES IT IN THE DUP BUFFER CALLED mr
REPORTED IN THE
USSUALLY
i RUNNING THE CONTROLLER LOCAL PROGRAMTHE ERROR IS
ERROR, ZERO LENGHT MSG)
DEVICE
#,
BLK
| DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL
i

IMPLICIT INPUTS:

CST ADDR

CUOFF

= CONTAINS THE CURRENT CONTROLLER STATUS TABLE

« CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

BEGIN

IPRINTX (DER12);

MSCP_PKT C.MX1, MSGLEN) = SZ_ELP;

MSCPTPKT
MSCPTPKT
MSCPPKT

[.MX1. OPCODE] = OP_ELP:
[.MX1, MODIFY] = 1;
[.MXx1, L1] = Xascii'R’;

= Xascii'E’;
MSCP_PKT L.MX1, L2]
Xascii'D’;
=
L3]
C.MX1,
MSCP_PKT
Xascii'D’;
=
L&)
[.MX1,
MSCP_PKT
Xascii'B';
=
L5)
L[.MX1,
MSCP_PKT
Zascii'N';
=
L6]
t.m
MSCPTMPKT

EXECUTE REDDBN PROGRAM

' PACKET SIZE

i OPCODE = EXECUTE LOCAL PROGRAM
i STANDALONE MODIF IER
i FILL IN PROGRAM NAME WITH ASCII LETTERS

! SENDS mo RECEIVES THE COMMAND
ouP ERROR THEN RETURN
RETURN;
THEN
1
EQL
DlPERRORJ
3
+
CUOFF
IF .CSTADDR t
G AN ENVELOPE. IF FAILURE
1 TRY io
L
IF (MX1"= GET_PKT (.CCTLR))

&
2

SEREEEEEEREINY

DUPC

?zflt‘.sop_ms

=
(CST_ADDR C.CUOFF + 3, DUPERROR]

! NO POINT IN CONTINUING

);
RETORN;

= SZ_REC:

MSCP_PKT

[.MX1, MSGLEN)

MSCPTMPKT

.m BC LOJ = 2;

MSCPTMPKT

! PACKET SIZE

= OP-RCD;

i OPCODE = RECEIVE DATA

C.Mx1, BUF_0] = oumr

i LOAD DESCRIBTOR BUFFER

[.MXx1. OPCODE]

MSCPTMPKT

noo!m 0;
MSCPTMPKT t.m
0
owcm

i BYTE COUNT TO BE TRANSFERED EQUALS 2

i SENDS AND RECEIVES THE COMMAND

+ 3,l‘)lPERRORJ EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN
.cuoES
.cwos
DUPPKT tmmss] neQ5

oa <nx1 GET_PKT (.CCTLR)) LSS 0
OR (.EOP_FLAGY
THEN

' IF CORRECT RESPONSE

i TRY TO GET AN ENVELOPE IF FAILURE

(HARD_ERROR ()

cST ADDR[.CUOFF + 3, DUPERROR] = 1;

RETORN;
);

! NO POINT IN CONTINUING

RECIEVE DATA

F 12

MSCP_PKT [.MX1, MSGLEN] = SZ_SEN;
MSCPZPKT [.MX1, OPCODE] = OPZSDD;
MSCP-PKT .m acI.O = 4;

= DUPPKT;

nscpm

i LOAD oescmroa BUFFER

(
i LOAD UNIT NUMBER
;-.CSTAboatcuofros.oom'1
DBN NUMBER
"LOAD
m .m MODIFY
nscp
' senos mo RECEIVES THE COMMAND
ERROR THEN IF RETURN
F DUP
ae
THEN
1
EQL
mnnon:l
+
CUOFF
t
.cst_ma
1r
FAILURE
ENVELOPE.
AN
ser
io
TRY
"
S0
cctui)
(
GET_PKT
IF (MX17=OR
(.EOP_FLAG)

3709

THEN

3710

(CST_ADDR C.CUOFF + 3, DUPERROR] = 1;

3711

! NO POINT IN CONTINUING

RETORN;);

g;}%

371

.m MSGLEN]

= SZ_REC;

3716

MSCP_PKT

3719
3720
3721

MSCP-PKT [.Mx1, BUF_0]
.m noo!rn = 0;
MSCPTPKT
DUPC

372

MSCPPKT

3717

C.MX1, OPCODE]

= OP-RCD:

MSCPTPKT [.Mx1, BC_LOJ ==“5147
DUPPKT;

3718

! PACKET SIZE

i OPCODE = GET DUST STATUS

i BYTE COUNT TO BE TRANSFERED souu.s 512
' LOAD DESCRIBTOR BUFFER
' SENDS AND RECEIVES THE COMMAND

3. 6DUPERROR] EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN
+NEQ
t CUOFF
Aooa
IF .CST
.DUPPKTtoupTYPE]

3724

OR .

T CDUPMESGJ NEQ 2

OR (MX1 = GET_PKT (.CCTLR)) LSS 0

3725

OR (.EOP_FLAGY

3726

THEN

3727
3728

3729
grgg

' IF CORRECT RESPONSE

i TRY TO GET AN ENVELOPE. IF FAILURE

C. cuorr + 3, DUPERROR] = 1;
ST loon
);

(HARD_E

RETORN;

! NO POINT IN CONTINUING

gng CST ADDR [.CUOFF + 3, D_DBN] = .CST_ADDR t CUOFF + 3, D_DBN] + 1;
T_ADDR CT_BLK_RD] = .T_ADDR C[T_BLK_RD]
+

3735

END;

sg‘

.SBTTL
DUPREDDBN:

010146

013746 000160°
012746 000104

0000006
000022
012760
113760 000003
004737

012760 000001

000122

! INCREMENT RELATIVE DBN COUNTER

R1,=(SP)
mxi,=(sP)

MOV

ogé.nscr.PKT+6(R0)

JSR

226

0000266

115760 000105 33%%2
112760 000104
112760 000104 0000316

DUPREDDBN MULTI-DRIVE TEST ROUTINES

MOV
MOV

MOV

MOVB

MOV

MOVB

MOVB
MOVB
MOVEB

372

112760

RECEIVE DATA

:
:

%222

#3,RSCP mos (RO)

3665

#122,MSCP.PKT+ 9(ao)

nol'..-(sp)

#1 MSCP.PKT+24 (RO)

#105.MSCP.PKT+27(R0)
#104.MSCP.PKT+30(R0)
#104.MSCP.PKT+31(R0)

:
:
:

NN OO

703
3704
3705
3709
370
3708

PN LN

702

SEND DATA
! PACKET SIZE
i OPCODE = SEND DAT
i BYTE COUNT TO BE mmsrsnso EQUALS &

N NP

VAX=11 Bliss=16 V3=555

0000090000009 9% 009090 %0%000% 008090 % % 00009000 %0 90 %0 %200 %000 %00

RD/RX EXERCISER
VE TEST ROUTINES
MULTI-DRI

99
700
701

seo sss

51-Jut-m 13:3333 oxsxsuseaz TDIETZ. RELEASE JZROABO. BL2:fl'(zn
1=Jul=1983 15:33:

G 12

15:33:38

(=]

300
700 0000006
040000 000006
02

CST.ADDR,RO

#40000,6(RO)
$
CCTLR, (SP)

PC.GE:.PKT

0000006
000160°

000001

1$
#1,EO0P.FLAG

0000006

18:

0000006
0000006
040000 000006

33
CUOFF ,RO
RO

CST.ADDR,RO

2$:

3s:

000160°
69 000104

#40000,6 (RO)
(SP)+,(SP)+

(SP)
3:(‘1
#104,=(SP)

PS‘BLSHUL
#34
,MSCP.PKT+6(R0)

ps.fiscp.mos (RO)
#2.MSCP.PKT+26(R0)

#DUPPKT .MSCP.PKT+32(R0)
(RO)
MSCP.PKT+24
:c.ourcounauo

CST.ADDR RO

#40000,6(RO)
5%

T.RO

010000

DUPPKT RO

#170000RO
,

170000

RO,#5
1
CCTLR, (SP)

PC,GET.PKT

RO, MX1
43

000160*

000001

00D

1102.85CP. PLT432(R0)
#1716 MSCP_PKT+35(RO)

VAX=11 Bliss=16_V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2

#1,E0P.FLAG

0000006

000000V
0000006

040000 000006

48:

78
PC,HARD
. ERROR

ggbrr.ao

OO OO0

§
3

NERSREEREENFroRIS

1=Jul=1983

MULTI-DRIVE TEST ROUTINES

8828888888

asaaasaaaaaaas

S1oJut=1983 13:33:38

RD/RX EXERCISER

SEQ 356

gr‘}g?

W12

NSO

sP
ADD
5$:
"
Rt
MX1, (SP)
MOV
78:
#104,-(SP)
MOV
JSR
r&usum.
#34 MSCP.PKT+6(R0)
MOV
#&,MSCP.PKT+22(R0)
MOVB
#4.MSCP.PKT+26(RO)
MOV
#DUPPKT . MSCP.PKT+32(R0)
MOV
CDISK,DUPPKT
MOV
CUOFF .R1
MOV
ASL

000001

0000006

0000006
040000 000006
706 000010
000160°
%6 000104
0000006
0000066
000005 0000226
001002 0000266
0000006 0000326
060 0000246
000000V

98:
108:
11$:

700
701
702
3703

:
:

3705
3706

:
:

3645
3708

3704

fl geop.rus

3709

Ts’{

ggorr.ao

3711

ADD
BIS
ADD
BR
MOV
MOV
JSR
MOV
MOVB
MOV
MOV
CLR
JSR

CST.ADDR,RO
#10,SP
158
MX1, (SP)
#104,-(SP)
PC,BLSMUL
#34 ,MSCP.PKT+6(R0)
#5,MSCP.PKT+22(R0)
#1002, MSCP.PKT+26 (R0)
(R0)
#DUPPKT ,MSCP.PKT+32
MSCP.PKT+24 (RO)
PC . DUPCOMMAND

ASL

MOV

0000006
60 040000 000006
0000006
00 007777

ADD
BIT
BNE
MOV

0000006

MOV

060000

:
:
:
:

gge

gg!

8s:

360
3699

ADD
BIT
BNE
MOV
JSR
a\rf

CLR
JSR

0000006

-::

CST.ADDR,R1
6(R1) og»mz
DUPPKT+
MSCP.PKT+24 (RO)
PC . DUPCOMMAND
ggon.no
CST.ADDR,RO
#40000,6(R0)
9s
CCTLR, (SP)
PC,GET.PKT
gg.m

ADD
MOVB
CLRB

0000026
00000
5060 0000246
737 000000V
0000006
700 0000006
60 040000 000006
1023
0000006
7 0000006
000160°

SEQ 357
101

Bliss=16
(27)
13 L2;
IDIETY. RELEASEIZROABO.B
AKSUSERY:
DVAX=11

1=Jul=1983 15:33:
o8s 12:33:38
Q11

MULTI-DRIVE TEST ROUTINES

000006
45
182'
716
1
746
7
3% 0000066
526
60 000004
66
326
0000006 0000006
0000006

V3=555

Page

BIC
CMP

3707

:
,

#40000,6 (RO)

CUOFF ,RO

CST.ADDR,RO
#40000,6(R0)
14$
DUPPKT,RO
#7777 .R0
licg‘cebooo

DUPPKT RO

3
3716

3711

717

718
719
720
3721

:
:
:
:
:

;

3722

3645

3723

3724

Pt
lalalalelelaleolal®
el e NEE o )

T §
g

g
§38

RD/RX EXERCISER

112

%1-Jul-1
1=Jul=198

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
7

#170000,R0
RO, #2
12
CCTLR, (SP)

170000
000002

0000006
0000006
000160°*
000001
7

006300
700
260

: Routine Size:

PC, ssf PKT
RO MX1
12

#1,E0P.FLAG

0000006

000000V
0000006

0000006
000006
0000006
000054
000012

283 words

3736

3725

3726
3728
3729

ggorfRO

CST.ADDR,RO

0000006
040000 000006

0000006

102

RELEASEJZROABO.GlZ:1ge(27)
DISKSUSER2: [DIETZ.

PC.,HARD
, ERROR

128:

14ooooL6(R0)
13s:

3723
3732

cgorrRO
cs;.Aoon.no

;
148:

158:

Routine Base:

: Maximum stack depth per invocation:
3

13§

VAX=11 Bliss=16 V3-555

SEQ 358

Page

7 words

RTS

$CODES + 13032

3733

Plel=l=l=l=1"l=]=]=l=1l"l"l=]=l=l=]elelelelelT N0 4

J 12

MULTI-DRIVE TEST ROUTINES

(V]

RD/RX EXERCISER

sso 359

%1-Jul=1983 15:23:38 DISKSUSER2: TDIETZ. RELEASE1ZROABO.BL2;1!'(23)
1=Jul=198 -33 38

VAX=-11 Bliss=16 V3=555

ROUTINE DUPCOMMAND : NOVALUE =
'0

- THIS ROUTINE IS CALLED BY DUP TO PROCESS COMMANDS.

THE COMMAND ENVOLOPES ARE FILLED IN our ROUTINES IN THE *MX1'* INDEX.

' _RESPONSES AND THEN PROCESSES THE RETURNmxef

C
' WITH THE INDEX THIS ROUTINE SENDS THE

WAITS FOR A

aesx

'PRINTX (DER13);
If .EOP_FLAG

THEN RETURN

ELSE

BEGIN

MSCP_PKT [.MX1, CREDITS) = 1;
MSCP_PKT C.MX1, MSGTYP) = 0;
MSCPTPKT [.MX1, CONNID] = 2;
MSCP_PKT C.MX1, DK_NUM] = 0;

! CREDITS EQUALS 1
i
| MAKE PACKAGE EQUAL A DUP COMMAND
! DISK NUMBER

! ATTEMPT SEND; IF CTLR IS OFFLINE

%;Easno (.MX1) EQLU FAILURE
BEGIN

PUT_PKT (.MX1);

17= -1;
CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

! RETURN ENVELOPE TO POOL

BEGIN
QIO C.CCTLR] = .0I0 C.CCTLR] + 1;

! IF SEND WAS SUCCESSFUL
! INCR OUTSTANDING QIO COUNT

WAIT O;

i WAIT FOR RETPKT RESPONSE

END

ELSE

BREAK

i PROCESS RETURN PACKET TO SEE IF OK FOR DUP

:zgc,nemm.-

END;

.SBTTL

DUPCOMMAND MULTI-DRIVE TEST ROUTINES

MOV
BITB
BNE

R1,=(SP)
#1.EOP.FLAG
3s

;
;
:

748

;

752

PC,BLSMUL
#MSCP.PKT+10,R1
RO,R1
n (R1)
1(R1)

:
:

753
754

DUPCOMMAND:

132737
001060

000001

000160°
000104
0000006

0000006

0000106
000001
000002 000001

0000166
000160*

! BREAK FOR SUPERVISOR TO CATCH USER REQUESTS

MOV
MOV

JSR
MOV
ADD
MOVB
MOVB

CLR

. MOV

MX1,=(SP)
-(SP)
nol

PKT+16(R0)
nstp
Mx1, (SP)

749

755
758

K 12

CUOFF ,RO

3762
3763

18:

RO
CST.ADDR,RO
#40000,6(RO)
28
CCTLR,RO

QI0(R0)
22

2$:
3s:

PC,WAIT
PC,PROC.RETPKT

(SP)+,(SP)+
(SP)+,R1

Routine Base: SCODES + 14120
: Routine Size : S S words,
: Maximum stack depth per invocation: 5 words

;

3774

3758
3767
3769
3770
3751
3738

0000006
040000 000006

3761

OO0

RERKRRENSR

0000006

D e

RO
18
MX1, (SP)

PC,PUT.PKT
=1 .mxi

177779 000160°*

D e
—d D D b e

000160°

0000006
000000V

Bliss=16 V3-555

PC,SEND

0000006

0000006
0000006

SEQ 360

¥ as
glgliusgflzgfolifl.RELEASEJZROABO.BLZ: W

AX=-11

MULTI=-DRIVE TEST ROUTINES

3388388Es

S}-Jul-1983 15:33:38
-Jul=1983 15:23: 38

* RD/RX EXERCISER

g
>384

§~

RD/RX EXERCISER

—

«Jul=1983 15:23:38

MULTI-DRIVE TEST ROUTINES

51-Jul~1983 :33:38

VAX-11 Bliss~-16 V3-555

AL
DISKSUSER2: IDIETZ RELEASEJZRQABO.BL2;1

TR A A

THIS ROUTINE IS CALLED BY QIO_GEN ro SELECT THE LOGICAL BLOCK NUMBER TO
BE USED FOR THE CURRENT QIO OR QIO PAIR.

IF THE OPERATOR CHOSE THE RANDOM SEEK MODE WTIW. THEN THE LBN IS

RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR THE LBN.
?Iafgfl{gishmf 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 SELECTED IN LAST PASS

LBN_SAVE : word initial (0);

local

TEMPORARY STORAGE FOR START LBN
S_TEMP: word,
TEMPORARY STORAGE FOR END LBN
E TEMP : word,
BLOCK NUMBER
LOGICAL
word,
INDICATE WINCHESTER DISK SELECTED
TO
FLAG
!
(TRUE));
(byte
RDSl DISK : byte initial

SRk

RA A R

R R A TR T PRLA

AL A TRLA TR LALA TR LR LAL (TS A A A R O

T TR ST TR A R TE TRDR LA TR TR LA L D

routine QIO_LBN : novalue =
'+

3807

S_TEMP = ,CST_ADDR [.CUOFF +

D_BEG]:

E_TEMP = .CST_ADDR [.CUOFF + 2. DTENDJ;

! STARTING LBN

! ENDING LBN

:;eac57.ADDR C.CUOFF, D_TYPE] eql RX_50
RD51_DISK = FALSE;

:;eglr-tsr (SWP_FLAGS, SWF_RDM)

! IF RANDOM SEEK MODE

begin
if ( RDS1 DISK) and
then

(.RARDOM [0] and %0°'077777') mod (99)) lequ 33)

o LBN = .LBN_SAVE

else

! REDUCE SEEKS ON RDs by 33%

LBN = .S_TEMP + ((.RANDOM [3] and %0°077777') mod (.E_TEMP - S_TEMP + 1));

end

be in
.BST [.LSLUN];
LB

SEO 361

! ELSE - SEOUENTIAL LBN MODE
FROM BST
i GET

BST [ LSLJ = .BST [.LSLUN] + .TRK_SGN t.LtLUNJ ! MODIFY LBN (INC OR DEC FOR NEXT PASS)

OO0V RVRLLLAVLIAALIAIAAIRY. =N

if .TRK_SGN C.LSLUN] Lss 0
begin
then

! IF SECTOR IS LESS THAN LOWER LIMIT

= .S_TEMP;
C.LSLUN]
os?
= 1;
[.LSLUN]
TRK_SGN

! CHANGE TRACK DIRECTION

end;

else

end

begin

if .BST [.LSLUN] gtru .E_TEMP
then

IF SECTOR IS BEYOND HIGH LIMIT

LsLund = .€_TEP;
De9'T
TRK_SGN [.LSLUN] = =1;

! CHANGE TRACK DIRECTION

[+ ]

end;

MAKE SURE LBN WITHIN LIMITS

if .LBN lssu .S_TEMP
then

LBN = .S_TEMP;

if .LBN gtru .E_TEMP
then
LBN = E_TEMP;

MAD1 [LBN_L] = .LBN;

LOAD LBN INTO 1ST PACKET

if .MX2 geq 0

IF 2 QI0S

hen

LOAD LBN INTO 2ND PACKET

MAD2 [LBN_L] = .LBN;

SAVE FOR USE NEXT CYCLE

end;

ROUTINE QIO_LBN

001252
001252

014276

000000

.PSECT
LBN.SAVE:
.WORD
.SBTTL

.PSECT

$GGGS,

QIO0.LBN MULTI-DRIVE TEST ROUTINES
$CODES, RO

p4~

OO0

LBN_SAVE = .LBN;

0000 0000000000000 000000000000 000%0 %0 2009090900000 %0 % 80000000

then

if .BST [.LSLUN] Lssu .S_TEMP

rhge08

=16_y3-555
DISKSUSERZ: DIETZ.RELEASEIZROABO.BL2;1

W
o

5 SO B

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

N 12

QI0.LBN:JSR
V8

0000006
000001
0000006
0000006

R2,RO
2(R0) ,R3
R1,RO

000004
000004

0000006

1$:

R2,R0
4(RO) ,R4
R1
R2,.R1
#4.(R1)
1$
RS
#2,SWP.FLAGS
{3
RS

28
RANDOM, = (SP)

000116

000041

001252"
2$:

#143,-($P)
PC ,BLSMOD
(SP)+, (SP)+
RO, #41
23
LBN. SAVE ,R1
5$
, = (SP)
RANDOM+6
#100000. (SP)
R4 .R

RO.R1

(SP)+,(SP)+

0000006

000050°
001220°*

3s:

: *,E.TEMP

3809
3811

RD51.DISK

3815
3816

: *,LBN

: E.TEMP,*
»
2 S.TEMP,

; S.TEMP,*
*,LBN

(R2) ,R1

#TRK. SGN,RO

: *,LBN

, (R2}
(RO)

(RO)
4%

(R2) ,R3
5%

3807

: RD51.DISK

13
LSLUN,RO

RO,R

3775
3793
3804

: *,S.TEMP

#100000, (SP)

100000

000143
0000006

000124"*
100000

csf.ADDR,R2

*,RD51.DISK

CUOFF ,R1
R1,RO

000002

R1,$SAVES
#1.RS

«,S.TEMP

-A

Yo Yo Ve )

%1-Jul-1983 15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER

MULTI=DRIVE TEST ROUTINES

SEQ 363
Page 107
VAX=11 Bliss~1 6 V3-555
DISKSUSER2:[DI ETZ.RELEASEJZROABO.BL2;15 (29)

P e Y Yy T

B 13

MULTI-DRIVE TEST ROUTINES
R3,(R2)
!1.(80)

000001

177777

(R2) R4
5%
R&, (R2)

#-1, (RO)

R1.R3
63
R3.R1
R1,Ré
7%
Ré,R1
1.RO

5$:
6$:
7$:

R1,46(R0)
Mx2
13
MAD2,R0

000

000312

R1,46(RO)

000207

RTS

g}.tau.sAve

$CODES + 14276
Routine Base:
102 words
: Routine Size:
9
words
invocation:
: Maximum stack depth per

: S.TEMP,¢

3835

3
3
s «,E.TEMP

3836
3828
3843

: E.TEMP,*

3846

: S.TEMP,LBN
; LBN,E.TEMP

3856
3858

: E.TEMP,LBN
3

3860
3862

3864

3866

:
; LBN,S.TEMP

s LBN,*

i3y

3847
3854

120
5

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

SEQ 364

Page 108
VAX=11 Bliss=16 V3=555
135 (29)
2;
OABO.BL
EASEJZR
ETZ.REL
ER2:[DI
DISKSUS

cC13

109

(30)
.BL2:
3:33:38 D1SKSUSER2:LDIETZ.RELEASEIZROABD13
5:33:38

VAX-11 Bliss=16 V3=555

SEQ 365

Page

%1-Jul-1983
1=Jul=1983

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

D13

routine QI0_SIZE : novalue =
'+

THIS ROUTINE IS CALLED BY QIO GEN TO SELECT THE 1/0 TRANSFER BYTE COUNT
TO 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

1/0 BUFFER SIZE (BYTS_PER_QIOJ.

IMPLICIT OUTPUTS:

THE BYTE COUNT IS LOADED INTO ONE OR BOTH MSCP PACKETS.

begin

local

g
g
e
—p————

! BYTE COUNT
! REMAINING BLOCKS LEFT

SIZE : word,
BLOCKS_LEFT : word;

SIZE = ((.RANDOM [4) and %0'077777') mod (.BYTS_PER_QIO + 1)) and %0'177760°;!GET BYTE COUNT FROM RANDOM NUMBER
if .SIZE eql O
then
SIZE = 16;

p——

! REMAINING BLOCK COUNT

BLOCKS_LEFT = .CST_ADDR [.CUOFF + 2, D_END] - .MAD1 CLBN_L] * 1;
:'f‘ (C.SIZE + BYTES_PER_SECT = 1) / BYTES_PER_SECT) gtru .BLOCKS_LEFT
en

! IF BLOCK COUNT NOT ENOUGH
! ADJUST BYTE COUNT DOWN

SIZE = .BLOCKS_LEFT * BYTES_PER_SECT;

MAD1 [BC_LO] = .SIZE;

! LOAD SIZE INTO 1ST MSCP PACKET

i; .MX2 geq 0

! IF 2 Ql0S

! LOAD SIZE INTO 2ND MSCP PACKET

MAD2 [BC_LO] = .SIZE;

! ROUTINE QIO_SIZE

end;

0000006

000126°
100000

0000006
000017

000020
0000006

.SBTTL

QI0.SIZE:
JSR
MOV
BIC
MOV
INC
JSR
MOV
BIC
BNE

18:

MOV
MOV

0QI0.SIZE MULTI-DRIVE TEST ROUTINES

R1,$SAVE2
RANDOM+10,=(SP)
#100000, (SP)
BYTS.PER.Q10,=(SP)
(SP)
PC,BLSMOD
RO.R?
MnR2
1$

#20,R2
gn’;ofr.m

s
; «,SIZE
: «,SIZE

: «,SIZE
:

3871

3889

000130

000134
000140
000144
000146
000152

000156
0001

2
£

:
000054
000060
000064
000070
000072
000074
000100
000104
000110
000112
000114
000116
000120
000122
000124
000126

013
016101
1
1
005201
010216
062716
012746
004737
005726
020001
101405
010100
000
105000
006
010002

013700

010260
005737
0024
013700
010260

022626

000164°
000004
000046

4(R1J ,R1
46(ROS ,R1

31 (SP)
o%?r (SP)
=(SP)

000777
001000
0000006

#1000,
PC,BLEDIV
(SP)+
RO,R1

2$:

000164°
000026
000162°

2
R1.RO
RO
RO
RO
RO,R2
1,R0

3s:
Routine Base:

: Maximum stack depth per invocation:

7 words

SIZE,*

BLOCKS.LEFT,*

«,SIZE
SIZE,*

R2,26 (RO)
'(,gfi)o.(smo

SIZE,*

$CODES + 14612

3897

*,BLOCKS.LEFT

R2,26(R0)
[T
3s
MAD2,RO

000166°
000026
57 words,

:
13 (30)
E1ZROABO.BL2

CST.ADDR,R1
1.R
MAD1,.RO

000207

: Routine Size:

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

366
110

3899

3901

3903
3905

3883
38N

21=Jul~-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

Page

NN
VNOY NN

E13

51-Jul°198 15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

SEQ 367

111
VAX=-11 Bliss=16 V3-555
)
'(31
2:18
BL
DISKSUSER2: [DIETZ.RELEASEJZRQABO.
Page

F13

routine FILL_BUFF : novalue =

THIS ROUTINE IS CALLED BY QI0_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:

%z ;NE OPERATOR DEFINED A DATA PATTERN
ELSE

SELECT IT

GET DATA PATTERN NUMBER FROM SW P-TABLE
%aEaATA PATTERN NUMBER = 0

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 OF THE WRITE REQUEST.
IMPLICIT INPUTS:

LSLUN = CURRENT (DRS) UNIT NUMBER

DP_NUM : word,
DPADDR

! DATA PATTERN NUMBER SELECTED
i ADDR OF DATA PATTERN (LENGTH)

SRC"ADDR,

i WORKING SOURCE ADDRESS

COURT : word;

: 'f' BIT_TST (SWP_FLAGS, SWF_UDP)

! IF USER DEFINED A DATA PATTERN
! SELECT IT

! IF USER SELECTED A PRE=DEFINED DATA PATTERN

:'f' .SWP_DPAT neq 0
DP_NUM = ,SWP_DPAT

! SELECT IT

DPONUM = .DPST [.LSLUND:

! GET PATTERN NUMBER FROM SEQUENCE TABLE

if .DPST [.LSLUN] gtru DP_CNT

! CHECK FOR WIGH LIMIT

elsebe in

DPST C.LSLUN] = .DPST L.LSLUN] + 1; | ADVANCE TO NEXT PATTERN NUMBER
then

end;

DPST L[.LSLUN] = 1;

begin

else

DP_ADDR = SWP_UCNT

i NO. OF WORDS IN DATA PATTERN

i 1/0 BUFFER ADDRESS (DESTINATION)

108_ADDR,

local

begin

g S

MULTI=-DRIVE TEST ROUTINES

112

VAX=11 Bliss=16 V3=555
2: [DIETZ.RELEASEJZRQABO. BLZ 13 (31)
DISKSUSER

NN
AVNC2 NN

1=Jul=1983 15:33:38
3 15:23:38
51=Jul=198

RD/RX EXERCISER

' ADDRESS OF DATA PATTERN (COUNT)

DP_ADDR = .DPA_TBL [.DP_NUM - 1];
if .DP_NUM gequ 17

then

! CHECK MACRO

:.f' DP_NUM
.

else

(.DP_ADDR ¢ 2) = .MAD1 [LBN_L]

! IF PATTERN 17, 19, OR 21

! LOAD LBN INTO FIRST WORD OF PATTERN
:

(.DP_ADDR + 4) = .MAD1 [LBN_L]; ! LOAD LBN INTO SECOND WORD OF PATTERN
! 1/0 BUFFER ADDRESS
! NO. OF WORDS IN DATA PATTERN
! START OF THE ACTUAL DATA PATTERN

= MM [(BUF_01;
108_ADDR
COURT = ..DP_ADDR;
= .BP_ADDR + 2;
SRC_ADDR

incr N :ru 1 to ((.MAD1 [BC_LO] + 1) / 2) do

;

! FOR EACH WORD IN THIS WRITE REQUEST

= ..SRC_ADDR;
.J0B_AD R
= .10B_ABDR + 2;
lmXDDR
SRCTADDR = .SRC ADDR + 2;
COURT = .COUNT = 1;

1 WORD
! MOVE
! ADVANCE DESTINATION ADDRESS
! ADVANCE SOURCE ADDRESS
! DECREMENT COUNT

if .COUNT eql O

! IF END OF DATA PATTERN

then

! REPEAT DATA PATTERN

= ..DP_ADDR;
coflm
SRC_ADDR = .DP_ADDR + 2;:

end;
end;

! WORD TRANSFER LOOP

! ROUTINE FILL_BUFF

end;
0000006

.SBTTL
FILL.BUFF:

4 000100 0000006
3

0000006
0000006

1$:

23R
8838g

0000006
000060*

2%:

FILL.BUFF MULTI-DRIVE TEST ROUTINES

JSR

R1,$SAVES

3908

{IOO.SUP.FLAGS

3942

MOV
BR

#SWP.UCNT ,R3
5$

s «,DP.ADDR
:

BEQ

TST

MOV

-(SP)

gw.ont.no

MOV

RO.R?

ADD

#DPST RO

else

(flO) R1

B8R
MOV
CLR

38’
LSLUN.RO
Rl

: *,DP.NUM

3
3

: DP.NUM

: *,DP.NUM

613

948
953

ONNO

000025
000001

3s:

001144
000021

000164°

4S:

58:

FENASD

062

000004
000002

000004

000006

INCB
CMPB
BLOS
MOVB
MOV

(RO)
(RO) ,#25
3s
#1,(RO)
R1,RO

MOV
CMP

DPA.TBL=2(R0) ,R3
R1.421

ASL

58
MAD1,RO
R1

MOV
BR

46(R0) ,2(R3)
5%

MOV
MOV
MOV
MOV
MOV
ADD
MOV
MOV
INC
MoV
JSR
CLR

000004

6$:

7$:

BLO
MOV
ROR
8CC

-2 N)

WNW

ang Rk
2222 822
ggegosgesses
Ro
shae3£33338
SIFNREg3883
2
S28fees
=

—bb

oONO

b
b LY

SN 8~

IVET EST ROUTINES
MULTI-DRIVE

88888gg
388 3888BsasEgsss
FNNERSENS ToR NS e %N
000230
000234

21=Jul=-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

ZRQAM3
v01.2

BR
MOV
ADD

46(R0) ,4 (R3)
mAD1,RO
32(R0) RS
(R3) ,R2
og.ul'.
R3.Ré
R&. (SP)
26(R0) ,=(SP)
(SP)
#2,-(SP)
:g .BLSDIV

78
34 (SP), (RS)+
#2,4(SP)
78

MOV
MOV

(R3) ,R2
:’;.4(8?)

CMP
BLE
ADD

R1,RO
63
#6,SP

INC

RTS

Routine Base:
SCODES + 14774
: Routine Size: 79 words,
n:
10
words
invocatio
per
depth
stack
: Maximum

SEQ 369

Page 113
VAX=11 Bliss=16 V3=555
DISKSUSER2: CDIETZ.RELEASEJZROABO.BL2;13 (31)

3954

3958

: DP.NUM,*
: *,DP.ADDR

3956
3962

: DP.NUM,*

3964

:
: DP.NUM

3969
3967

: #,+(DP.ADDR)

3969

: «,%(DP.ADDR)

3971

: +,108.ADDR

: DP.ADDR,COUNT
:

: DP.ADDR,*

: *,SRC.ADDR

3967
3975

3976

3977
3979

: N

: SRC.ADDR,108.ADDR

3981

3
: DP.ADDR,COUNT
: *,SRC.ADDR
s N

986
3989
gm
979

;

3908

: *,SRC.ADDR
: COUNT

: N,*

983
984

H13

RD/RX EXERCISER

VAX-11 Bliss=16V3-555

SEQ 370

Page

114

DISKSUSERZ [DIETZ.RELEASEIZRQABO.BL2;15 (32)

routine PROC_RETPKT : novalue =
'+

THIS ROUTINE IS CALLED FROM THE MULTI DRlVE “EXECUTIVE'® AND DUP_COMMAND TO CHECK FOR 2
N ‘‘SENT’' BY THE 'DRIVER'’
AND PROCESS ANY RETURN PACKETS THAT HAVE

PORTION OF THE PROGRAM. THE 1/0 OIEIE (1000) ACTS AS THE LINK
BETWEEN THE TWO PROGRAM PARTS; " HOLDS INDECES OF RETURN PACKEYS WHICH
REQUIRE PROCESSING.

UNDER THE MULTI-DRIVE TEST,
=

1. MSCP

RETURN PACKETS ORIGINATE FROM TWO SOURCES:

THE _MORE COMMON, DESCRIBING A COMPLETED 1/0

OPERATION.

- THELESS COMMON,

2. bUP

DESCRIBING A PORTION OF 1/0

_ COMMUNICATIONS WITH THE CONTROLLER PROGRAM.

3. THE PROGRAM ‘DRIVER'

= DESCRIBING A CONTROLLER ERROR OR

COMMAND TIMEOUT.

while .gooo IN neq .10DQ_OUT do
(
RP_INDX = OUT 10DQ

kP INDX * RP_LEN * 2);
RPCADDR = RETPKT + [CTLRJ)'
(.RP_ADDR
SET_CPAR
solegtttmeu -RP_ADDR CCONID] of

! DO UNTIL 1/0 DONE QUEUE IS EMPTY
! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER

! CALCULATE RETPKT ADDRESS
! SET UP CURRENT CONTROLLER PARAMETERS

! CONNECTION ID INDICATES PACKET SOURCE

:
CCID_MSCP]

10RETPKT ():

Eotheruise] :

PRINTF (DBM12, .RP_ADDR [CONID]);!'CONN ID = XXXXX RECEIVED'
! UNITL 1/0 DONE QUEUE IS EMPTY
.SB"I.

PROC.RETPK

0000006 0000006

$ 23
2288
33SRSo3

18:

3996

ggoo.IN,100Q.0UT

4014

JSR

PC,OUT. 10DQ

4016

JSR
ADD

L
mrm RO

8'5'3

oooooN
00¢ 2CE
177760

:333
BIC

0000006

R1,=(SP)

T
MOV

0000006

PROC.RETPKT MULTI-DRIVE TEST ROUTINES

nov

A
000060

0000006
0000006

! DUP (1/0 TRANSFER DONE)
! MESSAGE FROM ‘DRIVER''

DID RETPKT ();
DR_RETPKT ();

end;

0000006

! DISK MSCP (1/0 TRANSFER DONE)

CCID_DUP]:
ccIo_“DRIVER) :
es;

=11~

e R

NONNNO

ggggggggggggg § “""“"“"""""““"""u"”""""""""""“"""”"

1-Jul-1983 15:23:38

MULTI-DRIVE TEST ROUTINES

~nN

15:33:38
g‘l-.lul-‘l”

JSR

MOV

AL
#60,-(SP)

RP. INDX, *
A

017

z(fio)
(sp?
#177760, (SP)

4018

RP.ADDR, RO

4020

PC,SET.CPAR

113

000000V
2%:

000000V
3s:

000000V
4S:

D d D md

d ok D b o

SIRTSERE RN

D D d e

§888888888888838888352=

R1
3(R0) A1
R1
2%
PC,I10.RETPKT
b3
R;.'Z
PC,DI0O.RETPKT
5$
R1.#3
43
PC,DR.RETPKT
5$
R1,(SP)
‘DBH125;(SP)

SP.RO
17

5%:
6$:

e e

ine Size:

33:38

58 words,

(SP)+,(SP)+
(SP)+,(SP)+
1$
(SP)+,R1

Routine Base: SCONES + 15232
7 words

mum stack depth per invocation:

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

21=Jul=1983 15:33:38
21=Jul=1983 15:

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

SEQ 371

J 13

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

15:33:

1=Jul=1983
3 15:23:gg
%1-.!31-19

VAX=11 Bliss=16 V3=555

THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL DUP I/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)

CST
CONTROLLER'S
THE CURRENT
= ADDRESS OF
CSY ADDRCST
UNIT
OFFSET FOR THE CURRENT
CUOFF =

LSLUN = CURRENT UNIT NUMBER
CCTLR = CURRENT CONTROLLER NUMBER

IMPLICIT OUTPUTS

CST_ADDR [.CUOFF + 3, NODUPMEDIA] = IF THIS BIT SET NO DUP EXERCISER

BEGIN

LOCAL

FLAG : BYTE INITIAL(BYTE(TRUE)).
SUM2 : WOR

! 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 ();

%.F‘E«RPAgli)zl[STATUSJ NEQU ST_SuC
figbkbbgog
CUOFF + 3, DUPERROR] = 1;

! IF STATUS CODE INDICATES ERROR

! SET DUP ERROR FLAG

IS EXECUTE LOCAL PROGRAM
(OP_ELP + OP_END) OR :‘ IF ENDCODE OR
IF RPADDR [ENDCODJ EQLU
GET DUST STATUS
OP_END)
+
EQLU (OP_GDS
Aggzl[ENDCODJ
‘I’HE'.‘RP

=
(EZ'S‘;.ADDR [.CUOFF + 3, NODUPMEDIA]

! TURN OFF DUP EXERCISR

END

! ELSE = 1/0 WAS SUCCESSFUL

ELSE
BEGIN

%SE.RPAggzl(ENDCODJ EQLU (OP_GDS + OP_END)

! IF ENDCODE IS GET DUST STATUS

IF .RP_ADDR [9,11,1,0] EQL
1

THEN cSTADDR E.CUOFF + 3, D_ACTIVE] = ACTIVE

' CONTROLLER IN AN ACTIVE STAE

ELSECST_ADDR
CUOFF
+3, D_AIVE]
= TO
IDLE
! CONTROLLER
IN AN IDLE18STATE
OF DUP DOC)
PROGRAMS(PG
LOCAL
CONTROLLER
IF
SéE
TEST
!
THEN
1
NEQ
,0]
IF .RPAggzlm.9.1
HARD_ERROR ();

=
Efi;ADDR[.CUOFF + 3, NODUPMEDIA)

116

DISKSUSER2: CDIETI RELEASEJZRQABO. 81.2 15 (33)

ROUTINE DIO_RETPKT : NOVALUE =
s

SEO 372

! TURN OFF DUP EXERCISR

]

S3
nE

K13

gfll. ) AND

EQLV 1
¢
ARE DUPW!TE]
(.CSTTQEDRR.CUOFF*

'IF IT IS A RECEIVE DBN COMMAND WITH TYPE 6 AND MESSAGE 2 THEN

! IF WRITE FLAG SET IN CST TABLE THEN COMPARE BLOCKS

END;

! COMPARE THE FOLLOWING 512 BYTES

PUT_RETPKT (.RP_INDX)

! DECREMENT NO. OF OUTSTANDING QIO0S

END;

! ROUTINE DIO_RETPKT

096 QI0"C.CCTLRI= -QIO0 [. CCTLR] -1
.SBTTL

DlO.RETPg‘:’

MOVBE

000001

R1,=(SP)

#1.R0

: «,FLAG

:
:

PC.FSET.UPAR
RP.ADDR,R1

BEQ

MOV
ASL
ADD

BIS

0000006
000014 000203

JSR

#40000,6(RO)

MOV
gg:a

PC,HARD.ERROR

RP.ADDR,RO
}:cao).azos

000014 000201

gfl?

22{

000016

0000006
300
00 0000006
040000

7 000000V

000006

1$:

0000006

100000 000006

000014

000201

28:

0000006
0000006

61 004000 000022
3

DIO.RETPKT MULTI-DRIVE TEST ROUTINES

JSR
MOV

000000V
0000006

001000 000022
000000V

3$:

is:

16(R1)

4032

4051

4057
4059

4061

4062

l’i‘”’ ,#201

4064

cgormo

4066

CUOFF ,RO
RO
CSI’.ADDR no

CST.ADDR,RO

4063

BIS
B8R

#100000,6 (RO)
63

MOV
ASL
ADD

CUOFF ,RO
ST.ADDR,RO

BIS

#20000,6(RO)

;

4077

#20000, 6 (RO)

4078

020000 000006
020000 000006

ADD

BIC

S,"E
JSR

;:(m).czm

ggoooL22(R1)
4

gloooLo2(R1)
PC,HARD .ERROR

OO OO

(.DUPPKT

EQL (OP_RCD + OP_END)) AND
EQL S) AND

OO OO

IF (.RP_ADDR CENDCOD]
(.DUPPKT EDUPTVPE

117
(33)
DlSK‘USERZ [DIETZ.RELEASEJZRQABO. IZ 1

MULTI-DRIVE TEST ROUTINES

SEO 373

PN S 5N ENEVEVNCVENN OV OV

% -J3l°19 23:38

RD/RX EXERCISER

VAX=11 Bliss=16 V3-555

4059

4074

4076

4077

4076

4079

4081

1-Jul=1983 15:33:38

e e e e o ——— — — —— — — — — — L~ S~ o~

L13

4088

DUPPKT RO

4089

4090

RP. INDX,=(SP)

H
:

4091
4095

4096

H
s

4051
4032

R0,#60000
#170000,
RO
22"2

cgorr.no

CST.ADDR,RO

210000.6(R0)
PC,DUP. COMPARE

6$:

PC.PUT.RETPKT

QI0(RO)
RTS

000207
115 words,

Routine Base: $CODES + 15416
3 words

Haxinun stack depth per invocation:
4099

N
—

77 Tk"oo

A0
OO0 OO0

000205

4087

N EN NN

b1 ¥

N F S

4082

S I S

oxsxsusenz'toxerz RELEASEJZRQABO.BLZ2;?30(33)
H

SgOFF.IO

230000° 000006

SEQ 37%

S £ S S S S

13:
$i-Juli983

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3=555

e — — — L~~~ — — .~ o~

n13

1=Jul=1983 15:33:

;1-.)31-198 ‘lS:g:gg

RD/RX EXERCISER

§~

BRIVE.

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16_V3-555

Page

SEQ 375

119

DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2; 15 (34)

ROUTINE DUP_COMPARE : NOVALUE =

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

S”DUPPKT
T-ADDR

4121

_PATTERN

! THE SAVED PATTERN WRITTEN TO THE DBN'S

CST_ADDR

i THE ADDRESS OF PRESENT CONTROLLER STATUS TABLE

i THE POINTER FOR DUP BUFFER
i THE ADDRESS OF THE TALLY TABLE FOR THIS UNIT

BEGIN
OWN

COUNT : WORD;

IPRINTX (DER19);
§ DUPPKT
= 0;

—

d e wd
D

b e e e

e e
—

) =

P YTy

~NOVISWN

IMPLICIT INPUTS:

b =D

4111
b cnd

THE DBN NUMBER AND BYTE COUNT WILL BE PRINTED.

INCR couggcszon 1 T0 256 DO

'INDEX PIONTER FOR DATA STORED IN MSCP ENV PACKET

ERRHRD (46, EH_10, EMS_22);
EzgrLOOP:

END;

IEND ROUTINE DUP-COMPARE

PSECT
.BLKW

.SBTTL

"PSECT
DUP. COMPARE :

0000006
000400
000002 0000006
0000006

0000006 000000G

ILIST ERROR

1G0 THROUGH ALL DBN WORDS

COUNT:

010146

———

! INITIALLY THIS SKIPS THE FIRST WORD OF DUPPKT
S_DUPPKT = .S_DUPPKT + 2;
!'IF THE CONTENTS OF DBN DOESN'T EQUAL PATTERN
IF .(0UP:§EI; .S_DUPPKT) NEQ .S_PATTERN THEN

1$:

$GGGS,
1

DUP.COMPARE MULTI-DRIVE TEST ROUTINES

$CODES,

MOV

R1,=(SP)

gg:

ggppxrtab).s.PArrsau

CLR
MOV
ADD
MOV

TRAP

S. DUPPKT
#400. R
#2.5.DUPPKT
S.DUPPKT RO
56

4100

4129

:
: »,COUNT
:
:

4123
4124
4126
4127

2%:
3s:

: Routine Size:

23 words,

Routine Base:

3 words

RTS

56
EH.10
§H$.22
$
R1
1$
(SP)+,R1
PC

SCODES + 15764

: COUNT

4128
4124
4100

(34)

S S

v S

— — — A~ S S

—— —

4134
4135
4136

: Maximum stack depth per invocation:

.WORD
.WORD
.WORD
BR
DEC
BNE
MOV

DISKSUSER2:[DIETZ.RELEA SEJZROABO.BL2;15

PR PRI

MULTI-DRIVE TEST ROUTINES

SEQ 376

Page 120

e G

RD/RX EXERCISER

ZRQAM3

v01.2

VAX=11 Bliss=16 V3-555

S, N N G

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

B 14

DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2; 1

THIS ROUTINE 1S CALLED BY PROC_RETPKT TO HANDLE ALL 1/0 TRANSFER
RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY
HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND

PERFORMING HOST WRITE-COMPARES IF REQUIRED.
IMPLICIT INPUTS:

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST
RP_XDDR = ADDRESS OF THE CURRENT RETURN PACKET
T ADDR = ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)
CCTLR = CURRENT CONTROLLER NUMBER
LSLUN = CURRENT UNIT NUMBER

PRI

IM I IGImImimimimimt
= -

routine 10_RETPKT : novalue =

begin

local
FLAG : byte initial (byte (TRUE));

! FIND UNIT'S ENTRY IS CST AND SET UP UNIT-RELATED DATA

FSET_UPAR ();

! GET STATUS CODE FROM RETPKT
! GET SUB-CODE, IF ANY

ST_CODE = .RPADDR [STSCOD];
SB_CODE = .RP_ADDR [SUBCODJ];
:; (.ST_CODE neq ST_SUC)

! IF STATUS CODE INDICATES ERROR

HASD
DATA = FALSE;
COHPIRE

COUNT
! UPDATE ERRORDOING
HOST COMPARES ON ERROR
! NO POINT IN

! DROP UNIT IF ERROR COUNTS EXCEEDS LIMIT
if ( ST_CODE neq ST OFL) and
(.st_code neg STTAVL)
(.T_ADDR CERR_HARD] gequ .SUP ERROR)

then

= DU_HERR;
ouaC.LSLUN]
(.LSLUN);
DODU
end;

! LOAD REASON FOR DROPPING UNIT
! DROP UNIT

end;
4180

z; .ST_CODE eql ST_SUC

! IF 170 WAS SUCCESSFUL

begin

UPD_IO_TALLY ();

! UPDATE 1/0 TALLY (STATISTICS)

if .RP_ADDR CENDCOD] eal (OP_WRT or CP_ END)

then COMPARE_DATA = TR

! HOST COMPARES MAY BE ALLOWED IF NO FURTHER ERRORS

if (BIT_TST (SWP_FLAGS, SWF_HWC)) and
& (. CORPARE_DATA)

! IF HOST IS DOING WRITE-COMPARES

(35)

v3-555
V
VAX=11 Bliss=16

SEO 377

e
——————
Y Y. T T
. T T T .Y

o
.e

MULTI=-DRIVE TEST ROUTINES

Wit
o ®

1=Jul=198

ib'
y

E
N

MR IR R R R S e e TR TR T T TR T PRTR TR TRLA R TRLA LA TR L TR IR AR R R R TETE TR R TR C AT A PR PRTR DA LALA TR1 3§

%1-Jul-1

RD/RX EXERCISER

C 14

4190

MULTI-DRIVE TEST ROUTINES

FLAG = HOST_WRT_CHK ();

! SAVE 1/0 PACKET OR DO WRITE-CHECK

:
$

&N
2}8

;
:
:

4194
4195
4196

then

it FLAG
SWEEP ();

! IF FLAG IS STILL TRUE
' DEALLOCATE BUFFER(S) AND RETPKT(S)

4198

Q10 C.CCTLR] = .0I0 C.CCTLR] = 1;

! DECREMENT NO. OF OUTSTANDING QI0S

4197

4199

end;

000000

004137

0000006

000004
000010

112701
004737

000001
000000V

.SBTTL
10.RETPKT:
JSR

MOVE
JSR

MOV
MOVB
BIC
MOV

000014 013700 0000006
116037 000016 0000006
000026 042737 177740 0000006
000034 016002 000016
000020

000040
000042
000044
000046
000050
000052

006202
006202
006202
006202
006202
042702

174000

000062

005737

0000006

004737
105037

000000V
001240°

ASR
ASR
ASR
ASR
ASR
BIC

MOV

000056 010237 0000006
000070
000074

000100
000106
000110
000116
000120
000124
000132
000136

000140
000146

000150

000154
000156
000162
000166
000174
000176
000204

000212
000214
000222

001433

023727
001420
023727
001414
013700
0256037
103406
013700

112760
104451

005737

i ROUTINE 10_RETPKT

end;

BEQ

JSR
CLRB

CMP
BEQ
CMP
BEQ
MOV
CMP
BLO
MOV

0000006
0000006 000004
0000006
000014 0000006
0000006
000004

0000006

001026
004737 000000V
013700 0000006
126027 000014 000242
001003
112737 000001 001240°
032737 000040 0000006
001407
032737 000001
001403

001240°

1$:

28:

3s:

MOVEB
TRAP
ST

10.RETPKT MULTI-DRIVE TEST ROUTINES
R1,$SAVE2

#1.R1
PC.FSET.UPAR

RO
RP.ADDR,
16(R0),ST.CODE
57 .CODE
#177740,
16(R0) ,R2
R2
R2
R2
R2
R2

#174000,R2

R2,$8.CODE
ST.CODE

4162

PC,HARD.ERROR
COMPARE.DATA

4165

ST.CODE ,#3
13
#4
ST.CODE,
1s
T.ADDR,RO
. SWP.ERROR
14(R0)
1$
LSLUN,RO

#4,DUR(RO)
51
ST.CODE

4
BNE
PC,UPD.10.TALLY
JSR
RP.ADDR, RO
MOV
CMPB 14(R0) ,#242
3s
BNE
#1,COMPARE.DATA
MOV
#40,SWP. FLAGS
BIT
BEQ
BIT
BEQ

*,FLAG

4
#1,COMPARE .DATA
43

4168

4169
4170

73
4174
a9
4182
4184

4185
487

4188

v01.2

1=Jul=1983 15:33:38
§ 15:23:38
51-Jut-19

RD/RX EXERCISER

ZRQAM3

SEQ 378
122
Page
VAX=-11 Bliss=16 v3-555
(35)
BL2;15
EJZROABO.
DISKSUSER2:[DIE TZ.RELEAS
—

D 14

000224

004737

000000V
4S:

000236

004737

000246
000252

105360
000207

: Routine Size:

000000V
0000006
0000006

86 words,

5$:

Routine Base:

flaxinun stack depth per invocation:

S words

JSR
MOVB

PC,HOST.WRT.CHK
RO.R1

BCC
JSR

5$
PC, susep
CCTLR,R

ROR

DECB
RTS

MOV

oxocab)

SCODES + 16042

DISKSUSER2: [(DIETZ.RELEA SE1ZROABO.BLZ. 13 (35)

VAX=11 Bliss=16 V3=555

* FLAG
FLAG

4190
4196
4196
4198

4137

21=Jul=1983 15:33:38
21-Jul=1983 15:23:38

RD/RX EXERCISER
MULTI=DRIVE TEST ROUTINES

ZRQAM3
vo1.2

€ 379

E 1

SEQ 380

Page 124
VAX-11 Bliss=16_V3=555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL 2:13 (36)

=
b

21=Jul-1983
21=Jul=1983

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

5 :33: 38
5 :23:38

routine FSET_UPAR : novalue =

R PN

THIS ROUTINE IS CALLED BY IO_RETPKT AND OTHERS TO SEARCH THE CURRENT
CONTROLLER STATUS TABLE (CSTJ FOR THE DISK ADDRESS WHICH IS
CONTAINED IN THE CURRENT RETURN PACKET. WHEN FOUND, THE OFFSET INTO THE

N S

gigklgAUSmfl)regleT TO SET_UPAR, WHICH SETS UP CURRENT UNIT-RELATED

g, N N, g, G, G

IMPLICIT INPUTS:
RP_ADDR = ADDRESS OF CURRENT RETURN PACKET

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST

begin

! FOR EAC H UNIT IN CST

S, S

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do

PRINTF (DBM19, .RP_ADDR C[DISK], .CCTLR);
end;

| ROUTINE FSET_UPAR

FSET.UPAR MULTI-DRIVE TEST ROUTINES
R1,$SAVE4

s «,OFFSET

MOV

#3.R2

ASL

0000006
000010
177774

MOV
MOV
MOV8
BIC

RP.ADDR, RO
10(R0) , R4
(R1),.R
#177774
,R3

0000006

MOV
JSR

R2,=(SP)
PC.SET.UPAR

: OFFSET,*

ADD

#5.R2

s «,0FFSET

MOV
MOV
MOV

CCTLR,=(SP)
RO
RP.ADDR,
10(R0) ,=(SP)

ADD

0000006

000005

000022
0000006
0000006
000010

MOV

CMP
BNE

2s:

ST
RTS

gf:

R2.R1

: OFFSET,*

CST.ADDR,R1

R3.Ré
2s
(SP)+
PC

?3.322

18:

JSR

! “CAN'T FIND DISK XXX IN CST X'*

coo

LSBTTL
!
FSET.UPAR:

— — —— — A

! DONE

end;

000003

. S

! SET UP UNIT=RELATED DATA

ss?.upAn (.OFFSET);
return;

0000006

S S

begin

N~§

then

it .CST_ADDR [.OFFSET, D_DISK_NUM] eql .RP_ADDR [DISK]
! TF RETPKT UNIT NUMBER MATCHES CST ENTRY

&SHNNO

=gggggggggggggggggg g e Y

F16

:
:

: OFFSET,*

MULTI=-DRIVE TEST ROUTINES

v01.2

000102 012746 0000006

&2 words,

MOV

MOV
MOV
TRAP
ADD
RTS

012746 000003
010600
104417
062706 000010
000207

: Routine Size:

1=Jul=1983 15:23:38

Routine Base:

m:iu stack depth per invocation:

11 words

VAX=11 Bliss=16 V3=555

SEO 381

125

DISKSUSERZ CDIETZ.RELEASEIZRQABO. 8L2 13 (36)

ODMW =(SP)

3,=(SP)
SP"RO
17’
710,SP
PC

$CODES + 16316

: SP,»
:
3

4214

4200

RD/RX EXERCISER

IRQAM3

C00106
w112
000114
000116
000122

%1-Jul-1 5:33:38

6 14

RD/RX EXERCISER
RIVE TEST ROUTINES
MULTI-D

VAX=11 Bliss=16_V3=555

routine HARD_ERROR : novalue =
T4

THIS ROUTINE 1 S

CALLED BY I0 RETPKT 0I10RETPKT

AND OTHERS T0 INCREHENT THE HARD

CURRENT UNIT. IF THE HARD ERROR COUNT

ERROR STATISTI C FIELD FOR THE
HAS EXCEEDED T HE OPERATOR-SPICIFIED LIHIT "THEN THE UNIT IS DROPPED
FROM TESTING.

IMPLICIT INPUTS:
LSLUN = CURRENT UNIT NUMBER

CST_ADDR = ADDRESS OF CURRENY CONTROLLER S CST
CUOFF = CST OFFSET FOR CURRENT UNIT
T_ADDR = ADDRESS OF CURRENT UNIT S STATISTICS BLOCK (TALLY)

.T_ADDR [ERR_HARD] + 1;
R_HARD]EaL= CIB_MscP
T DDR
2
:‘EfinpADDR(COfllDJ

! INCREMENT UNIT'S HARD ERROR COUNT

selectoneu .ST_CODE of
set

[sT_sucl:

! SUCCESS WITH NON-ZERO SUB-CODE

:; .SB8_CODE neq 0
en

begin
if .SB_CODE eql &
then

Tfigbbfl CERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1

Lse

T_ADDR CERR_HRD_HST] = .T_ADDR CERR_HRD_HST] + 1;

ERRHRD (44, EGH_30, EMS_30);

{ST_CMD]:

T_ADDR CERR_MRD_HST] = . ADDR CERR_HRD_HST] + 1;
ERRHRD (31,7EGH_30, EMS_30);

! INVALID COMMAND

end;

[ST_ABO]:

T_ADDR CERR_HRD_DRV] = .T _ADDR CERR_HRD_DRV] + 1;
ERRHRD (32, EGH_30, EMSs_30);

! COMMMAND ABORTED

end;

[ST_OFL] :

x;
be

DRVJ

T_ADDR CERR_HRD_DRV] + 1;

DR [ERR_HRD
87
ERRDF (18, EGD_T8,
=DU_|DFATIL.

t.lSLUN
DUR
DODU (.LSLUN);
end;

! OFFLINE

FATAL ERROR
DEVICEUNIT
!! DROP

SEG 382

31=Jul=1983 15:23:gB DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2;1!(37)
1=Jul=-198 '33 8

H 1%

! DEVICE WENT AVAILABLE STATE

! DROP UNIT

enda;

[ST_MFE]:

beg;n
T_ADDR ISRR_HRD_SEKJ = .7 _ADDR CERR_HRD_SEK] + 1;

! MEDIA FORMAT ERROR

EI:HRD (35,7EGH_30, EMS_30);

end;

[ST_WPT]:

begin

! DEVICE WRITE PROTECTED

:;Q.SB-CODE eql 128

T_ADDR [ERR_HRD_HST] = .T_ADDR CERR_HRD_HST] + 1

- .T_ADDR CERR_HRD_DRV] = .T_ADDR CERR_HRD_DRV] + 1;
ERRHRD (36, EGH_30, EMS_30);

end;

[ST_CMP]:

bex;n
T_ADDR CERR_HRD_DAT] = .T _ADDR [ERR_HRD_DAT] + 1;

! COMPARE ERROR

ERRHRD (37,7EGH_30, EMS_30);

end;

[ST_DAT]:

begin

! DATA ERROR

:;OESB_CODE eql 2

T_ADDR [ERR_HRD_SEK] = .T_ADDR [ERR_HRD_SEK] + 1

elseT.ADDR CERR_HRD_DAT] = .T_ADDR CERR_HRD_DAT] + 1;

s e e e e o T PR TRPR LR TRTR LA PRI A TRLA L AL A TRLA LA LA T 1 L T E TR

T ADDR CERR_HRD_DRV] = .T_ADDR CERR_HRD_DRV] ¢+ 1;

o%u C.LSLUN) ;

ERRHRD (38, EGH_30, EMS_30);

end;

T TT
LI I IR

bex;n
T_ADDR [ERR_HRD_HST] = .T _ADDR CERR_HRD_HST] + 1;

! HOST ACCESS ERROR

ERRHRD (39, EGH_30, EMS_30);

end;

[ST_CNT]:

beg;n
T_ADDR [ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1;

! CONTROLLER ERROR

Ezguno (40,7EGH_30, EmMs_30);
ena;

[ST_DRV]:

begin
if .SB_CODE eql 3

! DRIVE ERROR

Page

Bliss=16 V3=555

begin

ERRDF (24, sco_‘n. EMS_187;
DUR [.LSLUN] ="DU_AV;

SEQ 383

127
(3P
1T
D ARLUsER o e 1Y RELEASEIZROABO.BL2:
VAX=11

AL T

[ST_AVL] :

15:33:38

Ui 13i33i38

MULTI=DRIVE TEST ROUTINES

[ST_HSTI:

1=Jul=1983

RD/RX EXERCISER

TR A

then

23%;

y “T_ADDR CERR_HRD_DRV] = .T_ADDR [ERR_MRD_DRV] + 1;

4339

E:gflkb (41, EGH_30, EMS_30);

2332

&34

434

(ST_DIAJ:

2332’50

&347

4348
2?5'3
2
4353

4359

4358
l.gzg

4361

4362

4363

4364

4366

4369

4371
4372

4373
4374

4376

4377
4378
4380

Page

T_ADDR CERR_HRD_SEK] = .T_ADDR CERR_HRD_SEK] + 1

T_ADDR CERR_HRD_DRV] = .T _ADDR CERR_HRD_DRV] ¢ 1;

! MESSAGE FROM INTERNAL DIAGNOSTICS

E'R‘sflflb (43,7EGH_30, EMSs_30);

ena;

[otherwisel:

! PRINT STATUS CODE IF NO MATCH

C ERR_TBL C.CCTLR, C_ERR um = .C_ERR_TBL C.CCTLR, C_ERR_HRD] + 1;
enzms (45, EGH_30, EMS_30)
enda;

tes;
;LE“RP_ADDR CCONID] £QL CID_DUP

selectoneu .RP_ADDR [STSCOD] of
SET

: begin
[%0'0']
%;E'.‘RP_ADDR CENDCOD] EQLU (OP_GDS + OP_END)

IF .RP_ADDR [9,9,1.0] NEQ 1 THEN
BEGIN
ERRHRD (47, EH_ 12, EMS_30);

! if status code succesful
IF ENDCODE IS GET DUSI’ STATUS

! TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF
! UNABLE TO LOAD LOCAL CONTROLLER DUP MEDIA(PROGRAMS

T ADDR EERRHRD_ DRV=".T_ADDR CERR_HRD_DRV] + 1;

i;.duppkt tdupnesgi eql 3

if (.DUPPKT C[DUPTYPE] eql 5)
then

Dlfl
C.LSLUN] = DU_DFATAL;
DODU (.LSLUN);
selectoneut.DUPPKT C[DUPMESG] of

! FATAL DEVICE ERROR DROP UNIT);
! SET REASON FOR DROPPING UNIT

[!o'!']errhrd
begin (48, eh 13, Sns_30); ! illegal unit number

4£382

T ADDR [ERRHRD HSY =T ADDR CERR_HRD_HST] + 1;
[%0°'2'] : bcg
ems_30); ! illeaal relative or physical block #
errhrd (49, eh_13,
T_ADDR [ERRHRDHSt = | ADDR CERR_HRD_HST] + 1;

4384

%0'3') : be

4381

4385
4386

end;

orrggd (50, eh_13, ems_30); ! device error

T_ADDR [ERR HRB_DRV] =T ADDR CERR_HRD_DRV] + 1;

4 .V

SEQ 384

128
ge(37)
OABO.BLZ:1
RELEASEJZR
[DIETZ.
DISKSUSER2:

4334

A TR TR TR PRTR PR PRLA PR LATR DA LA L S0 0000000000 000000%0 000000009 000000009000 % 00
e
SS e
R
R
R I
E I LI

15:33:

21=Jul=1983 15:23:ga

MULTI-DRIVE TEST ROUTINES

v01.2

21=Jul-1983

RD/RX EXERCISER

ZRQAM3

VAX=11 Bliss=16 V3=-555

Pr——
e T T e T
el
el T el el -

J 1%

21=Jul=1983 15:33:38

RD/RX EXERCISER

21-J3(-198315:23:38

MULTI-DRIVE TEST ROUTINES

VAX=-11 Bliss=16 V3-555

SEQ 385

Page

129

DISKSUSER2:[DIETZ. RELEASEJZROABO.BLZ:13.(37)

end;

begin
lenght
! zero
13, sns30);
eh
(51,
ergggd
CERR_HRD_HST
=".T_ADDR
T_ADDR CERR_WRB_MST]

[%0'4'] :

[%0'1']

tes;

end;

end:

?
ERRHRD 152, EN_7,

end;

EMS_30);

! INVALID COMMAND

EMS_30);

! NO REGION AVAILABLE

ERRHRD. (54, EN_7. MS_30);

! NO REGION summ.e

nT soon CERR_HRB_DRV] = .T_ADDR CERR_MRD_DRV] + 1;

[%0'2']

ERRHRD

153, EN_7,

T nsoon CERR_HRD_om = .T_ADDR CERR_HRD_DRV] + 1;

[%0'3']

begi

t_n:DDR CERR_HRDuer = .1 ADDR CERR_HRD_HST]) + 1;

[%0'4']

[20'5'
(%0°6']

ena;

: M?

ERRHRD (55, EH_7, EMS_30);

! PROGRAM ng

Tsooa CERR_HRB_NHST] = .T_ADDR CERR_MRD_HST] + 1;

o begin

ERRHRD

156,

EH_7. EMS_30);

! LOAD FAILURE

T nsooa CERR_HRD_DRV] = .T_ADDR CERR_HRD_DRV] + 1;

?
ERRHRD 157, EN_7, EMS_30);

! STANDALONE

t ADDR CERR_HRB_HST] = .T_ADDR CERR_HRD_HST] + 1;

bm
COTHERWISE] :ERRHRD
(58, EH_8, EMS_30);

DUP UNKNOWN STATUS CODE

c saa 8L E.CCTLR, C_ERR_HRD] = .c _ERR_TBL L[.CCTLR, C_ERR_HRD] ¢ 1;

TES:

end,;

! ROUTINE HARD_ERROR

end;
.SBTTL

HARD.ERROR MULTI-DRIVE TEST ROUTINES

R1,S$SAVE3

4228

TSTB
BNE
g)‘g

3(RO)
128
g;.coos.ao

;
:
:

4247

4250

0000006

. ERROR :
HARD

000003
0000006

0000006
000014
0000006
0000006

MOV
INC
MOV

MOV

BEQ

T.ADDR,R1
14(R1)
RP.ADDR,RO
$8.CODE,R2
168

4264
4245

~5
~Ul

K 14

I
s1=Jul=198

RD/RX EXERCISER

ZRQAM3
v01.2

1=Jul=198

MULTI-DRIVE TEST ROUTINES

§83888888888astatsntstss

01270§
06010
020227
00100
10521

3s:

000001

130

BLiss=16 V3-555

B 1 Y RELEASE TZROABO.BL2: 1S (37
B

000004

g83g

000567
020027
001007
105261
104456

AX=11

000062

000001
szgg
456

4257
4257
4254

4260

4262

4247
4266

000063

4267

0000006
000567
020027 000002

4247

%14

4247

4S:

=wn~

000062

000005

5$:

gS.DUR(RO)
6$:

000062

=
112760
104451
000562
020027
001007
105261

0000006
000013 0000006

000005
000060

4272

4276
277

0000006

OO0

SSRSRRG
Moy
s 37

28R

105261

SRINISRRIR SERNEYRERNSFrRER

1
1

5:33:38
5:23:38

sea 386

7$:

268
;0.04
62(R1)
95
30
EGD.18
EMS.18
LSLUN,RO
#13,PUR(RO)
51
28$
RO, #5
8s
60(R1)

4278

H
:

4279
4247

3
:

4283
4284

4285
4286
4247

NNV
NNV NN
&N

L 1%

366

429N

4247

4298

023727

0000006 000200

$8.CODE,#200

4296

105262

000001

1(R2)
108
(R2)
56
44
EGH.30
EMS.30
28%
RO 47
1
61(R1)
5

3
3

4298
4296

4247

02085;

000007

105261
56

000061

020027
0
01.:702
060102
023727
001002
000402
10526%

000470
020027
001007
105261
104456

000460

000456
02002;
00100
105261
104456

118:

4300
4302

3
s

4306
4307

4247

000060

4314

0000006 000002

4312

H
3
3
F

4314
4312
4316
4318

4247

4322

000010

000001

000011
000063

000012
000062

3
:
3

4323

)

4247
4327
4328

——————

RD/RX EXERCISER
MULTI=-DRIVE TEST ROUTINES

SEO 387

go
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ .RELEASEJZRQABO.BL2;1 (37)

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

n 16

023727
001003

ith

000013

0000006 000003
22%:
23$:

248:
25$%:

000423
020027 000037
001007
105261 000062
104456
000053
0000006

RO, #13

25é

SB8.CODE,#3
228
60(R1)
238
gz(n1)

51
EGH.30
EMS.30
288
RO,#37

4247

4333

4339

62(R1)
56
53
£GH.30
EMS.30
288
CCTLR,RO
RO
C.ERR. TBL(RO)

4335

4337

4247
6343
4344

4247

4349

4353

3
P
16(R0O)

4356

$
14§R0).0201

4359

4361

4363

4364

4366

4368

4348

VAX=-11
ERZ’EDIETZ RELEASEJZR0AB0.BLZ;?g.(37)
DISKSUS

26$:
27%:

Ben.30
Sns.go
8$

SEO 388

NN IO OO A OO OO OO OO OO0

Sioolioes 13:3:

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

Bliss=16 V3-555

N 146

28$:
116001

177740, 1

042701

177740

126027

000014

000201

032760

001000

000022

#1000,22(R0)
9%

29%:
00
013700
042700

0000006
007777

43
DUPPKT ,RO
#7777 ,RO

B 15

%1-Jul-198

RD/RX EXERCISER

1=Jul=1983

MULTI-DRIVE TEST ROUTINES
020027

050000

112760

0000006
000005 0000006

042700
020027

0000006
170000
009001

15:33:38
15:23:38

SEQ 389

Pago 133
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL2;13 (37)

ng #50000

gg.oufi(nm

4372
4374

DUPPKT RO

#170000,
RO
RO, #1

30$
56

31s:

38388888888
8
d D cd d b b d amd = d md =D

32%:
33s:

000427
020127
001005
104456
000066

000003

348:

4381

H
3

4382
4374

4385
4386
4374

4389

:
:

4390
4356

4396
4397
4356

358:

36$:

4377
4378
4374

308:

000463
020127 000001
001005
104456
000064
0000006
0000006
000437
020127 000002
001005
104456
000065

437

4400

3
3

4401
4356

4404

C15

21=Jul=1983 1 5:33:
21=Jul=1983 1 5:23:

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

b b e

88888838888888
NSSANISER

b cd wed

0000006
0000006
000433
020127 000004
001005
104456
000067

001226
001230

000423
020127
001011
104456
000070

37%:

0000006
013700 0000006
105260 000062
000207
020127 000006
001011
104456
000071

39%:
40$:

0000006
013700 0000006
105260 000063
000207
104456
000072
0000006

013700
006300
105260

000207

: Routine Size:

41$:

42%:

0000006

4405
4356

4408

4409

44612

4613

4356

;

4416

4417

H
3

4356
4420

4621

4228

4356

000000G

347 words,.

:
2

38%:

000005

SEQ 390

Page 134
VAX=11 Bliss=16 V3=555
3 (37)
0.BL2;1
EJZROAB
DISKSUSER2: [(DIETZ.RELEAS

43$:
Routine Base:

: Maximum stack depth per invocation:

6 words

C.ERR.TBL(RO)

$CODES + 16442

N
W

D15

MULTI-DRIVE TEST ROUTINES
RD/RX EXERCISER

1=Jul=-1983
15
g 15:
21°Jul-19

8
8

€0 391

Al L lsae S sE17R0AB0.8L2% 13(38
VAX=11 Bliss=16 V3-555

routine UPD_IO_TALLY : novalue =
'+

THIS ROUTINE 1S CALLED FROM 10 _RETPKT FOR ALL 1/0 TRANSFER RETURN
PACKETS 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.

)

IHPLICIT INPUTS

P_ADDR = ADDRESS OF THE CURRENT RETURN PACKET

UNIT'S STATISTICS BLOCK (TALLY)
IDDR = ADDRESS OF THE CURRENT
CURRENT CONTROLLER'S CST
CST ADDR = ADDRESS OF THE
THE CURRENT UNIT
CUOFF = CST OFFSET FOR

LSLUN = CURRENT UNIT NUMBER

begin
cal
THOUSANDS : word,

MILLIONS : word;

:;.RP_ADDR [ENDCOD] eql (OP_RD or OP_END)
en

! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT
! IF ENDCODE IS READ

RT DDR CTOT_READS_LOJ = .T_ADDR CTOT_READS_LO] + 1;

! INCREMENT NO. OF READS AND ADD BYTE COUNT

OVF_CHk (T_ADDRTMCTOT READS_LDJ);
OVF~CHK (TZADDR [BYTES_READ_LO0J);
ov: CHK (TADDR CTOT_BYT_RED_LOJS

T CHECK FORTM FIELD OVERFLOW
i
i

:g.RP_ADDR [ENDCOD] eql (OP_WRT or OP_END)

! IF ENDCODE IS WRITE

T_ADDR [BYTES READ LO] = .T_ADDR [BYTES READ LO] + .RP ADDR [BCNT LOJ.
T"ADDR CTOT_BYT_RED L0OJ = .T_ADDR CTOT_BYT_RED_LO] + RPADDR [BCAT

else

' INCREMENT NO. OF WRITES AND ADD BYTE COUNT
= .T_ADDR CTOT WRITES_LOJ + 1;
oon CTOT_WRITES_LOJ
gTT"ADDR
[BYTES WRIT J = .T"ADDR avr!s WRIT"LO] + .RP_ADDR [BCNT LOJ;
T"ADDR CTOT_BYT_
uaT = .7 ADDR CTOT_BYT_WRT_L0] + 1"CHECK
.RP ADDRFORtacflr
OVERFLOW
FIELDL0J;
OVF_CHK (T_ADDRTM ttor uaxtes_[0);
OVF~CHK (TZADDR [BYTES WRITZLOJ)

ovs CHK (TZADDR CTOT_BYT_WRTLOJS

enda;

if (.RP_ADDR CENDCOD] eql (OP_RD or OP_END)) or

= (.RPADDR LENDCOD] eql (OP_WRT or OP_END))
en

HIELIONS= ,T_ADDR [MBYTES_READ] + ADDR [MBYTES WRIT]:

THOUSANDS = .T_ADDR [BYTES_READ_HI1 +~.T_ADDR [BYTES _WRIT_HII;

! TOTAL BYTES TRANGFERRED

E15
~

33
NE
@

MULTI-DRIVE TEST ROUTINES
then

begin

MICLIONS = .MILLIONS + 1;

4483

THOUSANDS = .THOUSANDS = 1000;

4484

PSEO ?92

DISK‘USERZ:IDIETZ.RELEASEJZROABO.BLZ:1ge(38)
a

if .THOUSANDS gequ 1000

4479

4480

o~
N

} : g:gg
ANV]

51-Jul-19
1=Jdul=1

RD/RX EXERCISER

VAX=11 Bliss=16_V3=555

! COUNT THE LOWER OVERFLOW TOO!

end;

i THIS ADDED BECAUSE IT WILL TAKE FOREVER TO TRANSFER ON THE ORDER OF A MEGABYTE TO A FLOPPY
TO
| BUT IT IS A MUCH MORE REASONABLE MEASURE FOR THE RDS51 WINCHESTER. THE QUESTION NOW REFERS
GET
FLOPPIES
THE
SINCE
i THE TOTAL DATA TRANSFER TO THE CONTROLLER AND THIS IS PRETTY CLOSE
! ABOUT 171000 THE DATA THE HARD DISK(S) GET.

4493

4494
4495

then

begin

if .THOUSANDS gtru 100

4497

then
bsgin
EOP_FLAG = TRUE;

4498
4499
4500

4501

DCTCADDR CIG_INT] = TRUE;

4502

end;

4504
4505

else

begin
EOP_FLAG = TRUE;

4511

DCTADDR CIG_INT] = TRUE;

4512

end;

4514

! ROUTINE UPD_IO_TALLY

end;

.SBTTL
UPD.IO.T:%%V:

004137

0000006

013701
55?127

0000006
000014 000241

000020
000016

000000V

000032

UPD.IO.TALLY MULTI-DRIVE TEST ROUTINES

MOV
CMPB

R1,$SAVE?2
RP.ADDR,R1
}:(Rl).lel

INC

T.ADDR,RO
16( RC)

000016
=4

g
0600

004737

0000006
00020

! SET END-OF=-PASS FLAG
! IGNORE FURTHER INTERRUPTS

! IF UNIT IS STILL ALIVE

end;

4516

066160

! IF TRANSFER LIMIT IS REACHED

then

4508
4509
4510

! SET END=OF=PASS FLAG
! IGNORE FURTHER INTERRUPTS

end

if .MILLIONS gequ .SWP_XFER

4507

005260

! IF THERE IS A TRANSFER LIMIT

if .SWP_XFER eql 0

ADD

JSR

%0(R1).(R0)
0(R1) ,32(R0)
#16,-(SP)
RO, (SP)
PC,OVF .CHK

4426
4449

4452
4453
4455

F15

Z1oout-1983 13:33:38
1=Jul=1983

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

0000006
000000V

sge
gS>o&

SRR

000014

3s:

000242
A ¥

0000006
000004
000012
000002
000010
001750

T.ADDR,RO
% (RO)
0(R1) ,6(RO)
oum 40(RO)

4466

sr)
T.
bon’(

4468

4465
4466
4467

T.
ADDRfi§SP)

4469

4463
4472

5%:

6$:

000001
040000

16(R0)#261

7$:

0000006
0000006

105 words

8$:
Routine Base

Haxinun stack depth per invocation:

S words

4473

14(R0) ,#242
8s

wmoS
's"Wit5

000144

: Routine Size:

4461

001750
0000006

777

28
;g(m.mz

2$:

0000006
000014 000241

4457

PC.OVF CHK

062716
737

700

T.ADDR, (SP)

#26 -($P)
RO, (SP)
PC . OVF.CHK

-~~~

288

1$:

SE1ZROABO.BLZ. 13 (38)
4456

#32,(5P)
000242

sEa 393

T.ADDR, (SP)

PC,OVF
. CHK

000032

000014

15:33:38

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

R2
#1750,R1

SWP.XFER,RO

I
R1, 4144

13
7%
R2.RO
8s

#1 ,EOP.FLAG

gl.booo aDCT.ADDR
$CODES + 17730

«,MILLIONS
« ,MILLIONS

*, THOUSANDS

THOUSANDS
,*

MILLIONS

*,THOUSANDS
THOUSANDS
,*

MILLIONS,*

4476

THIS ROUTINE IS CALLED FROM UPD 10 _TALLY TO CHECK FOR OVERFLOW_IN

CERTAIN STATIST!CAL FIELDS OF TRE TURRENT UNIT. SPECIFICALLV THE
LOW=ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR

IF TRUE, THEN THE HIGH=-ORDER COUNT IS INCREMENTED. IF
EXCEEDING 1
THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT IN INCREMENTED.

;
i

INPUTS:

ADDR = ADDRESS OF THE BYTES_READ_LO OR BYTES WRIT LO FIELD FOR

THE CURRENT UNIT (SEE STATISTIC TABLE (TALLY) LAYOUT)

W
N

ibegin

! IF LO-ORDER OVERFLOW

uhile ..ADDR gequ 1000 do

Agon = +2)
..ADDR
= 1000;
= ,(LADDR + 2) + 1;

! SUBTRACT 1000

! INCR HI-ORDER

! IF HI-ORDER OVERFLOW

if .(.ADDR + 2) gequ 1000

then

be%o0
DDR + 2) = .(.ADDR +
&) = ,(.ADDR +

000;
H

(.ADDR +
end;

001750

OVF .CHK:

SBTTL

60
012601
000207

: Routine Size:

001750
000004

22 words,

Haxiaul stack depth per

OVF.CHK MULTI-DRIVE TEST ROUTINES
R1,=(SP)

4(5P),RO
z a1

cnd) #1750

1$:

#1750, (RO)
(R1)
1$

001750

! SUBTRACT 1000
! INCREMENT MBYTES
! ROUTINE OVF_CHK

end;

000004
000002

000044
000050
000052

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

routine OVF_CHK (ADDR) : novalue =

e 00 00 009000000000 0090%000%0 0000000000000 000000000s% 00000,

S1-Jul-19815: 3:38
1=Jul=1983 15: 3:38

RD/RX EXERCISER
MULTI=DRIVE TEST ROUTINES

G615

2$:

3s:

RTS

(R1) #1750
3s
#1750, (R1)
4(RO)
(SP)+ ,R1

Routine Base: $CODES + 20252
invocation: 2 words

ADDR,
*

SEQ 39
138
Page

:
13 (39)
E1ZROABO.BL2

H15

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

1=Jul=1983 15:33:38

S1-Jul-198§ 15:23:38

VAX=11 Bliss=16_v3-555

THIS ROUTINE 1S 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

PACKET INDEX (RP_INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE
AREA (RP_SAVE). DTHERWISE, THE PACKET IS A READ, SO ITS ASSCUIATED

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
RP_INDX = INDEX OF THE CURRENT RETURN PACKET

begin
local

BUFF1 : ref block [MAX_XFER * 2, bytel,
BUFF2 : ref block [MAX_XFER * 2, bytel,
BUFFW,
COUNT : word

FLAG : byte initial (byte (TRUE)),

!
!
'
!

1/0 BUFFER ADDRESS
1/0 BUFFER ADDRESS
1/0 BUFFER ADDRESS
BYTE COUNT

index : signed word;

if .RP_ADDR CENDCOD] eql (OP_WRT or OP_END) ! IF WRITE OPERATION

then

' DON'T CALL SWEEP FROM I0_RETPKT

lrm=mfi

elLse

if (.RP_ADDR CENDCOD] eql (OP_RD or OP_END)) and

S ((index = RPS_REM ()) geq D)
en

begin

' IF ASSOCIATED WRITE PACKET IS FOUND ELSE’ ENDCODE IS READ

BUFFW = RETPKT [.index, BUFF_0J;
BUFF1 = ..BUFFW;
"~ 0J;
BUFF2 = .RP_ADDR [BI

! ADDR OF ADDR OF WRITE 1/0 BUFFER
i ADDR OF WRITE 1/0 BUFFER
i ADDR OF READ 1/0 BUFFER

incr 1 from 1 to .COUNT do

! FOR EACH BYTE IN BUFFERS

COUNT = .RPTADDR [Bu.._LOJ;

i BYTE COUNT

:g.(.aurr1)<o. 8. 0> eql .(.BUFF2)<0, 8, 0>
en

be?in

BUFF1 = .BUFF1 + 1;
ausrz = .BUFF2 + 1;

! IF BYTES COMPARE 0.K.

' ADVANCE WRITE BUFFER ADDR
i ADVANCE READ BUFFER ADDR

else

{ ELSE - COMPARE ERROR
begin
T_ADDR [ERR_WARD] = .T_ADDR [ERR_HARD]
¢ 1;

139

DISKSUSERZ:(DIEYZ.RELEASEJZROABO.BI.Z:1?(40)

routine HOST_WRT_CHK =
'+

SEQ 395

Page

115
51-Jul-198
1=Jul=1983

RD/RX EXERCISER

MULTI=-DRIVE TEST ROUT'NES

15:33:38
15:23:38

SEO 396
140
Page

VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEJZRQABO.BL 2:13 (40)

= T ADDR tm HRD HST] + 1:
T_ADDR CERR_|uno_HST) 4
REOgEST FAILED
ERRHRD (42,

EMS_CMP (R

émt+ (.index * apLE

1‘.T_ADDR [ERR_HARD] gequ .SWP_ERROR

COUNT EXCEEDED
IF ERROR
UaL. LSLUNJ = DU_HERR; !! DROP
UNIT
NO NEED TO CONTINUE
IF COMPARE ERROR

exitloop:

! IF ASSOCIATED WRITE RETPKT WAS FOUND

end;

return (.FLAG);

+SBTTL

HOST.WR Jggx

0000006
000001
0000006

000014

000000V

88888888ES

FERRNBER/RERINS

000060

0000006

000004
0000246

0000006
000024
000020

0000006
000014

! ROUTINE HOST_WRT_CHK

HOST.WRT.CHK
R1, SSAVES

-($P)

#1,RS5

000242

000241

LTI-DRIVE TEST ROUTINES

RP.ADDR,R
16(R0) 0242
1$
RS
6s

: *,FLAG

FLAG

, #2461
14(R0O)
63
PC,RPS.REM

RO
6%
RO,=(SP)

#60,-(SP)
PC

: INDEX
*
INDEX,

«,BUFFW -

BUFFW,BUFF1

4585
4586

ZO(RO)-R&

*,BUFF2
*, COUNT
I

4587
4589

(RZ).(RS)

BUFF1,BUFF2

BUFF1
BUFF2

459%

45N
45

J 15
%1-Jul-198§
1=Jul=198

RD/RX EXERCISER

MULTI=DRIVE TEST ROUTINES

:R RceRerks
Seesdze

88888
SIIRSR

INCB
TRAP
.WORD
.WORD

LWORD
MOV
ADD
JSR

000014
000004

MOV
CMP
BLO
MOV

0000006
0000006
4S:
5$:
6$:

36
000240

000207

: Routine Size:

81 words,

O
4(SP), (SP)
#RETPKT, (SP)
PC,EMS.CHP

T.ADDR,RO
14 (RO) . SWP.ERROR
58
LSLUN,RO

#4,DUR(RO)

BR
INC
CMP
BLE
CMP

58
R1,R%
28
(SP)+,(SP)+

ST
RTS

(SP)+
PC

CLR
BISB

RO
RS.RO

Routine Base: $CODES + 20326
11 words

: Maximum stack depth per invocation:

4600
4601

63(RO)
56
52
EGH.30

MOVB

TRAP

SEQ 397

Page 141
VAX=11 Bliss=16 V3=555
(40)
BL2;15
2:
JZROABO.
SER
.RELEASE
[DIETZ
DISKSU

4602

4604
4607
4608
4598
4589
4383
4566
4547

K 15

1=Jul=1983 15:33::3

RO/RX EXERCISER

51-Jul-1933 15:23: 33

MULTI-DRIVE TEST ROUTINES

VAX=11 Bliss=16 V3=555

A TR TR LA LA LN 1Y

THIS ROUTINE IS 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

R TR DA TR TR LR TRLA LA LA LR LA LA L L L IR TETETRETE

FUNCTION, THEN THE CURRENT CONTROLLER'S RP_SAVE AREA IS SEARCHED FOR

;2§Ltggggé3750 WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO BE

IMPLICIT INPUTS:

RP_ADDR = ADDRESS OF CURRENT RETURN PACKET
RPZINDX - INDEX OF CURRENT RETURN PACKET

begin
local
index : signed word;

if (.RP_ADDR CENDCOD] and OP_MSK) eql OP_RD ! IF READ OPCODE OR ENDCODE
then

' IF HOST IS DOING WRITE=COMPARES

:; BIT_TST (SWP_FLAGS, SWF_HWC)
en

2; (index = RPS_REM ()) geq 0

S TR

! IF ASSOCIATED WRITE RETPKT IS FOUND

begin

RETURN WRITE 1/0 BUFFER TO POOL
Pu?_xo BUFF (RETPKT [.index, BUFF_0J); ! WRITE
PACKET TO POOL
'"RETURN

Pu;_nsrpxr (.index);

ena;

! RETURN CURRENT 1/0 BUFFER TO POOL
i RETURN CURRENT RETPKT TO POOL
! ROUTINE SWEEP

SWEEP:

{=l=]

177600

000041

000040

iy =

000000V

000060

.SBTTL
MOV
v

MOVB

000014

R=22
oos 25 v
&»
N
W o NN
S
OO\ =NNN o~ 8888

§ prtRE8s

PUT_10_BUFF (RP_ADDR [BUFF_01);
PUT"RETPKT (.RPZINDX);
end;

0000006

SWEEP MULTI-DRIVE TEST ROUTINES
:
R1,-(SP
RO
RP.ADDR,

14(R0),RO

BIC

#177600,R0

3%3

1go.sup.rLAss

JSR
Sf¥

PC,RPS.REM
RO.R1

:
: «, INDEX

MOV

R1,=(SP)

: INDEX,*

gzg

MOV

gg.aa1

#60,-(SP)

142

DISKSUSERZ:IDlETZ.RGLEASEJZROABO.BLZ:1!0(61)

routine SWEEP : novalue =
'+

SEQ 398

Page

L15

004
062700

0000006
0000246

ntmro'&RO

0000006

PC.PUT.10.BUFF

716
004
013719
737

: Routine Size:

m (SP)
"PUT. mm
1$:

1000006

000024
0000006
0000006
0000006

143
DIETZ. RELEASEJZROABO BLZ 15 61

s INDEX,*

(sfi)o (SP)+

ap Aoén -(SP)

4652

RP. INDX, (SP)

4653

(SP)+

4634
4618

sP§

pcfiut 10.BUFF
PC.PUT.RETPKT

(SP)+,R1

45 words,

SEO 399

RO, (SP)

0000006
00
04
10
14
20
24
26

§1-Julio8s 13:35:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

VAX=11 Blis2-16 v3-55
DISKSUSERZ:

Routine Base:

Haxim stack depth per invocation:

& words

$CODES + 20570

1-Jul=1983 15:33:38

RD/RX EXERCISER

51-Jul-1983 15:23:38

MULTI-DRIVE TEST ROUTINES

VAX-11 BLiss=16 V3-555

SEQ 400

Page

144

NSKWSERZ:(DlETl.RELEASEJZROABO.BLZ:??“Z)

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 (1.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.
IMPLICIT INPUTS:

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET

OUTPUTS:

INDEX (VALUE OF THIS ROUTINE) = INDEX OF THE RETPKT CONTAINING
A CRN WHICH IS ONE LESS THAN THE CURRENT

begin

local

! ASSUME NOT FOUND

index : signed word initial (=1);

! FOR EACH ENTRY IN RP_SAVE

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))
en

if ((.RETPKT E.CMT. CRF_LO] eql (.RP_ADDR LCRF L0J = 1)) and

(.RETPKT L.COUNT, CRF_HI] eql .RP KDDR CCRF R11)) or
((.RETPKT L.COUNT, CRF_HI] eql (.RP_ADDR CCRF _HIJ - 1)) and
(.RETPKT C.COUNT, CRF-LOJ eql %0°177777°) and
4 (.RP_ADDR [CRF_LO] eql 0))

! IF CORRECT CRN

begin

inaex = ,COUNT;

! INDEX TO BE RETURNED

exgtloop:

! DONE

end;

return .index;

! ROUTINE RPS_REM

end;

0000006
000060

CMP
MOV
MOV

RPS.REM MULTI-DRIVE TEST ROUTINES

R1,$SAVESL

#-1,R6
R3
RP.USE(R3),RO

zg.cma
R3,=(SP)
#60,-(SP)

«, INDEX
COUNT
: «(COUNT),*
-

18:

MOV
MOVB
o

177777
0000006

.SBTTL

RPS.REM: JSR
~

0000006

(m]

§ L A e N T R e A G O TT T PPR TR T PRTR DR TR R TR DRTR DALLALT §N

L H

: COUNT,*

4655

4673
4678
4680

4681

N15

$1-Ju11083 13:33:38

RD/RX EXERC!SEg
MULTI-DRIVE TEST ROUTINES

)o
(sé
aerpr+15<a0)
#2642
43

0000006

000014G 000242

R3,=(SP)

066 -(SP)

000060
0000006

0000046

ggrrxroA(RO).nz

0000066 000006

g;rpxtoeta0).6(n1)
g(nl).nz

2%:

000006
2

0000066

2§TPK106(R0).R2

000004G 177777

zgrpxroatao).a-1

000004

4(R1)
48
R3,Ré
5%
R3

3s:

000164

000207

: Routine Size:

4$:

5%:

59 words,

Haxinun stack depth per

COUNT,+

C.BLSMUL

RP.ADDR,R1
:5n1)R2

RTS

R3,#3
1$
R4 RO
PC

Routine Base: $CODES + 20722
invocation: 8 words

SEO 401

DISKSUSER2: [DIETZ.RELEASE JZROABO. OLZ 15

(sfi)o (SP)+

0000006
000004

000003

VAX=11 Bliss=16_V3-555

COUNT, INDEX
COUNT
COUNT
,=

s INDEX,*

14 5

(42)

8 16

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM3
v01.2

SEQ 402

Page 146
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;13 (43)

4697

routine DR_RETPKT : novalue =

:
:

4700
4701

|
|

THIS ROUTINE IS CALLED BY PROC_RETPKT FOR ALL PACKETS ORIGINATING AT
THE 'DRIVERTM PORTION OF THE PROGRAM. THIS INCLUDES PACKETS DESCRIBING

4706

FOR FATAL DEVICE ERRORS, THIS ROUTINE RELEASES ALL RESOURCES HELD BY

2;89

UNITS ATTACHED TO THE CONTROLLER ARE DROPPED.

:
:
:

4708 !
4709 |
4710 |}

4714
4715

begin

:
:

2;}3
2gg

PUTA_BUFF ();
incr index from 0 to RP_CNT = 1 do

2;55

:; .RP_USE [.index] eql .CCTLR

! IF VALID RETPKT INDEX

2;52

PUT_RETPKT (.index);

! RETURN RETPKT TO POOL

4726

Q10 C.CCTLR] = 0;

! CLEAR NO. OF OUTSTANDING QIOS

4728
4729

DROP_CTLR (.CCTLR, DU_CFATAL);
PUT_RETPKT (.RP_INDX):

i DROP CONTROLLER'S UNITS
i PUT BACK RETPKT

:
:

:
.

000000

2;85

FATAL DEVICE ERRORS.

THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL

4705 |

4711
2;}%

4727

4730

IMPLICIT INPUTS:
RP_INDX = INDEX OF THE CURRENT RETURN PACKET
RP"ADDR = ADDRESS OF THE CURRENT RETURN PACKET

cST ADDR = ADDRESS OF THE CURRENT CONTROLLER'S CST
CCTCR = CURRENT CONTROLLER NUMBER

i
:

.SBTTL
DR.RETPKT:

000014
000020

020037
001004

0000006

000024
000030

004737
005726

0000006

000034

020127 000003

000032 005201

003763

i ROUTINE DR_RETPKT

end:

000002 004737 0000006
000006 005001
000010 116100 0000006

000040

i MARK CST OFFLINE

CST_ADDR LSTATE) = OFFLINE;

010146

000022 010146

! RELEASE ALL I/0 BUFFERS HELD BY CONTROLLER
R'S
RP_SAVE
! FOR EACH ENTRY IN CONTROLLE

000042 013701 0000006
000046 105061 0000006
000052 013700 0000006

18:

4697

R1,=(SP)

: INDEX,*

4724

: INDEX

4720

;
:

4726
4727

MOV

R1,=(SP)

CMP
BNE

RO,CCTLR
2$

JSR
CLR
MOVB

MOV

2s:

DR.RETPKT MULTI-DRIVE TEST ROUTINES

PC.PUTA.BUFF
R1
RP.USE(R1),RO

JSR
ST

PC.PUT.RETPKT
(SP)+

(MP

R1,43

INC

BLE

MOV
CLR8
MoV

CCTLR,R1
QIO(RY)
CST.ADDR,RO

:
: INDEX
: «(INDEX),*

: INDEX,*

4718
4720
4722

000076
000102

042760
004
013716
004737

: Routine Size:

100000

000002

0000006
0000006
0000006

38 words,

Routine Base:

: Maximum stack depth per invocation:

4 words

BIC

#100000,2(RO)

MoV
JSR
MoV
JSR
CMP
MoV

#6,=(SP)
PC,DROP.CTLR
RP. INDX, (SP)
PC,PUT.RETPKT
(SP)+,(SP)+
égP)*.R1

R1,=(SP)

$CODES + 21110

(-1
J

Ladind

N
W

wvwn

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

ZRQAM
v01.2

000056

21=Jul=1983 15:
21=Jul=1983 15:

C16

SEQ 403

147
Page
VAX=11 Bliss=16 V3-555
(43)
15
2;
ABO.BL
SEJZRO
.RELEA
[DIETZ
SER2:
DISKSU

4728

4729

H
H

4715
4697

:
:
:

'
:

:
:
:
:

:
:

000000
000002
000006
000012
000014

4731
4732
4733

4740

4741
4762

010046
005037

012600
000002

©o o

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

%sbttl 'RDRX INTERRUPT SERVICE ROUTINES®
'+

{73 3
%
{7
4737
4738
4739

§1°Jul1=Jul=19

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZROAM3
v01.2

D16

THERE EXISTS AN RDRX INTERRUPT SERVICE ROUTINE FOR EACH DEVICE
CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY S ETTING THE
APPROPRIATE CONTROLLER NUMBER INTO “‘ICTLR'’. ALL SERVICE ROUTINES THEN

BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE.

BGNSRV (AZlNYO)
ICTLR

AZINT ()

ENDSRV;

000156°

000000V

AZINTO: :

.SBTTL

CLR

JSR

MOV
RTI

AZINTO RDRX INTERRUPT SERVICE ROUTINES

RO, =(SP)

PC,AZINT

;

lchn

(SP)+,R0

Routine Base: $CODES + 21224
: Routine Size: 7 words,
2 words
invocation:
Haxlnun stack depth per

SEQ 404
Page 148

JZROABO.BLZ:1§ (44)

E 16

%1-Jul-1983 15:33: 38
1=Jul=1983 15:23::38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

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

SEQ 405

Page

149

(45)
13L2:
JZROABO.B

routine AZINT : novalue =
‘e

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

'
3
g
:
!

AND RESPONSE RINGS ARE POLLED.

;

begin

! GET DCT ADDRESS
IDET_ADDR = DCT + (.ICTLR * DCT_LEN + 2);
| GET CST ADDRESS
ICSTTMADDR = CST ¢ (.ICTLR * CSTTLEN * 2);
i GET RDRX ADDRESS
IRDRR_ADDR = .ICST_ADDR [IP_ADDRI;
! GET COMM AREA ADDR
1COM_ADDR = COMM_AREA + (. ITTLR * COMM_LEN *+ 2);

IDCTADDR [SA_SAVE] = .IRDRX_ADDR CRCSA, RC_ALL);

! IGNORE INTERRUPT?

:z .IDCT_ADDR CIG_INT]
en

! RETURN IF INTERRUPTS IGNORED

recurn;

:; BIT_TST (IDCT_ADDR C[SA_SAVE], SA_ERR)
en

else

! SAVE SA REGISTER

! IF FATAL ERROR

FATAL_ERROR ()

begin

! POLL COMMAND RING
| POLL RESPONSE RING

POLL_CRING ();
Pth_Raxns 0O;
ena;

end;

AZINT:

000156°

000022

0000006
0000006
000110°

000056
0000006
0000006
000106°
0000006
000050
0000006
000000°

.SBTTL

AZINT RORX INTERRUPT SERVICE ROUTINES

MOV
ST

R1,=(SP)
-($P)

MOV

#22,-(SP)

MOV

R1.(SP)

MOV

JSR
ADD
MOV

MOV
JSR
ADD
MOV
MOV
MOV
MOV
JSR
ADD

ICTLR,R1

R1,-(SP)

PC,BLSMUL
#0CT.RO
RO, IDCT.ADDR

#56,=(SP)
PC,BLSMUL
#CST.RO
RO,ICST.ADDR
X
. ADDR
(RO) ,IRDR
R1, (§P)
#50,-(5P)
PC, BLSMUL
#COMM. AREA, RO

4764

4756

4757

: ICST.ADDR,*

4758
4759

;

F 16

21oJut=1983 13:33:38
1=Jul=1983 15:33:3

RD/RX EXERCISER

gaoax.nooi R1
(R1),10(SP)
10(SPJ ,2(RO)

000010
077777
100000

«, IDCT.ADDR

2;2%
4766

gg.c-1boooo

000000V

18:

PC.POLL.CRING

000012

2$:

#12,SP

PC.POLL.RRING
RTS

Routine Base: SCODES + 21242
7 words

: Maximum stack depth per invocation:

—

SS.FATAL.ERROR

000000V

64 words,

REREG.o

#40000,
(RO)
28
10(SP) ,RO
#77777.R0

000000V

: Routine Size:

4760

IDCT.ADDR,RO

&»
~
~

004737

RO, 1COM.ADDR

000104
000110°*
0000006
000002 000010
000010 000002
040000

SEQ 406
150
Page

DlSK’USERZ:[DIETZ.RELEASE]ZROABO.BLZ:1ge(45)

TR IR

838 S952%

2282 gg222e2
w
23
32
328838 ~

¥ XS

RDRX INTERRUPT SERVICE ROUTINES

:
VAX=11 Bliss=16_V3=555

6 16

21=Jul=1983 15:33: 3 8

RD/RX EXERCISER

15:23: 8
21=Jul=1983 15:23:3

RDRX INTERRUPT SERVICE ROUTINES

VAX=11 Bliss=16 V3=555

DISKSUSER2:[DIETZ.RELEA

SEQ 407
151
Page

SEJZRGABO.BLZ:lge(kb)

routine FATAL_ERROR : novalue =
'+

THIS ROUTINE 1S CALLED BY THE INTERRUPT SERVICE ROUTINE (AZINT) UPON
SA REGISTER.
DETECTING AN UNRECOVERABLE ERROR THROUGH THE DEVICE'S
ITS PURPOSE IS TO CLEAN UP DEVICE DATA IN THE 'DRIVER'' PORTION OF
;ggusziggéig¥. AND TO INFORM THE 'PROGRAM'' PORTION OF THE EVENT VIA

IMPLICIT INPUTS:

ICTLR = INTERRUPTING CONTROLLER NUMBER
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT
ICSTTADDR = ADDRESS OF INTERRUPTING CONTROLLER'S CST
IRDRR_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S IP REGISTER

begin

local
index : signed word,
U_SAVE : word;

SA_REG = .IDCT_ADDR [SA_SAVEJ];

! SAVE PRE=INTERRUPT CURRENT UNIT NUMBER
U_SAVE = .LSLUR;
CCERR_TBL C.ICTLR, C_ERR HRD] = .C_ERR_TBL [.ICTLR, C_ERR_HRD] + 1;

LSLUN"= . I1CST_ADDR COF_UR, D_UNITI;

! SET CURRENT UNIT TO FIRST IN CONTROLLER

LSLUN = .U_SAVE:
DRV_CTLERR (.ICTLR);

RESTORE PRE=INTERRUPT CURRENT UNIT
! CLEAN UP DRIVER DATA FOR CONTROLLER

! FATAL CONTROLLER ERROR

ERRDF (14, EGD_14, EHS_145:

:f (index = GET_RETPKT (.ICTLR)) Lss 0
en

else

PRINTF (DBM18)

! TRY TO GET A RETPKT; IF FAILURE

! “FATAL_ERROR: RETPKT NOT AVAILABLE'
IF_RETPKT WAS ALLOCATED

be?in

SET CONNECTION ID TO "DRIVER'

RETPKT [.index, CTLR] = .ICTLR;
IN_I0DQ (.index);
end;

CONTROLLER NUMBER
LOAD RETPKT INDEX INTO IODQ
IF RETPKT WAS ALLOCATED

FATAL ERROR

RETPKT [.index, MESTYP] = MT_FATAL;

! ROUTINE FATAL_ERR

end;

000110"
000002 0000006
0000006
0000006

.SBTTL

FATAL.ERROR RDRX INTERRUPT SERVICE ROUTINES

JSR

R1,$SAVE?2

MOV

2(R0) ,SA.REG
LSLUN R1

FATAL .ERROR:

0000006

000156°

RETPKT [.index, CONID] = CID_DRIVER;

MoV

MOV

MOV
INCB

4776
4798

IDCT.ADDR,RO

xsn.niao

C.ERR.TBL(RO)

: *,U.SAVE

4799
4800

H 16

21=Jul-1983 15:33:38
21=Jul-1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

0001

SEQ 408

Page 152
VAX=-11 Bliss=16 V3-555
QABO BL2;135 (46)
R2:
.RELEASEJZR
SUSE
DISK[DIETZ
4801

ICST.ADDR,RO
6(R0) ,R2

R2
#177760,R2
R2,LSLUN

000
000204
000206

ICTLR,=(SP)

0001 56°
0000006
0001 56°
0000006

PC,GET.RETPKT

?g.a1

#DBM18, (SP)
#1,-(SP)
SP,RO
17
2%
R1,(SP)

#60,-(5P)

4808
SP,*

INDEX,*

#RETPKT+2,R0
1(R0)

000003 000001
0001 56°
177760
000060

ICTLR.R2

4806
481

4813

#177760,R2

#60, (RO}

0000006

68 words,

*, INDEX

PC,BLSMUL

: Routine Size:

4803
4804
4806

ICTLR, (SP)

1$:

C04 7
022626
0002

U.SAVE,*

PC,DRV.CTLERR

0000006
000001

gt
23398

§8838828888888

000102
06

6
004
013716
004737

4802

2%:
Routine Base:

: Maximum stac i dept h per invocation:

7 words

RTS

R2, (RO)
R1.(SP)
PC.IN.10DQ
(SP)+,(SP)+

SCODES + 21442

INDEX,*

4814
4792
4776

116

21=Jul=198315:33:38
21-Jul=198315:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

SEO 609

ge
VAX=-11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASEIZRQABO.BL2:1 (47)

routine POLL_CRING : novalue =
'+

THIS ROUTINE IS CALLED BY THE RDRX INTERRUPT SERVICE ROUTINE (AZINT)
FOR EACH DEVICE INTERRUPT EXCEPT OWING INITIALIZATION OR FATAL ERROR.
ITS 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

DSEREHENTED.R?M THE CR_POLL ADDRESS IS ADVANCED TO THE NEXT SLOT IN
IMPLICIT INPUTS

ICTLR - INTERRU’T!NG CONTROLLER NUMBER
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT

ICOM_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA

begin

! WHILE # OF COMMANDS IN CRING > O AND

a
gtru 0)
* 2) ED_OWN))) do ! CURRENT SLOT IS HOST-OWNED
POLI.J
IZ?R
((.IDCT_ADDR
not (BIT_TST

while ((.IDCT_ADDR [CRING_CNT]

! DECREMENT # CMDS IN CRING

= 1;
[CRING_CNT]
.IDCT_ADDR
CCRING CNTJ
ID?TADDR
&;
+
[CR_POLL]
_ADDR
LIDCT
=
CCR_POLL]
IDCTCADDR

! ADVANCE TO NEXT SLOT TO POLL

: :‘e'.'lDCT_ADDR CCR_POLL] gtra .IDCT_ADDR [CR_END]

! IF BEYOND END OF RING

IDCT_ADDR CCR_POLL] = .IDCT_ADDR C[CR_BEG];

! SET POINTER TO TOP OF CRING

end;

! CLEAR COMMAND INTERRUPT WORD IN RING HEADER

:gg'_l_ADDR CCMD_INT] = O0;

N=N)
= =d

S¢

ON=2\
P N Py

R g§8N-‘°

0000006

000110°
000016

000016
000002
077777
100000
000004
000012

.SBTTL

POLL.CRING RDRX INTERRUPT SERVICE ROUTINES

JSR

R1,$SAVE2

(ai)

POLL.CRING:

1$:

MOV
'RSX

IDCT.ADDR,R1
m nz

BEQ

1ST8

MOV
MOV
BIC
gg:

DECB

CMP

usmn no
2(R
mm no
go. #-100000
um

ggémmn

4818

:
:

4838
4842

4839

4838

4841

4844

J 16

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

IRQAM3
v01.2

000060 016112 000010
000064 000754
000066 013700 000104°
000072

005060

000076 000207

: Routine Size:

2$:

000004

32 words,

Sl-Jul-19 5:33:38
1=Jul=1983 15:23:38

MOV
8R
MOV
CLR

RTS
Routine Base:

Mxiu stack depth per invocation:

& words

10(R1) ,(R2)
18
I1COM.ADDR,RO

4(RO)

$CODES + 21652

SEO 610

age
VAX=11 Bliss=16 V3=555
DISKSUSER2: [DIETZ .RELEASEJZROABO.BL2;135 (47)

:
:
3
:

4846
4838
4850
4818

K 16

RDRX INTERRUPT SERVICE ROUTINES

v01.2
3

4852

routine POLL_RRING : novalue =

4855

4863

4865

:
:
:
:
:
:

4856
4857
4858
4859
4860
2325

4864

2329

4868

2393

23;}

.2g;§

4876

1=Jul=1983 15:33:3
15:23:
51-Jul-19g§

RD/RX EXERCISER

ZRQAM3

4873

SEQ 411
155
Page

VAX=11 Bliss=16 V3=555
(48)
.RELEASE JZROABO.13BL2:
SER2:
[DIETZ
DISKSU

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
{3 ?;-INIIIALIZED AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET

!
!
!
!
!
:

’

IMPLICIT INPUTS:

ICTLR = NUMBER OF INTERRUPTING CONTROLLER

IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT

:
begin

uhilgen?t (BIT_TST ((.IDCT_ADDR [RR_POLL] + 2), ED_OWN)) do ! WHILE 0 = 0

xpgr ADDR = ..IDCT_ADDR [RR_POLL] = 10; ! ADDRESS OF RESPONSE PACKET
n

CREDIT_BAL = .CREDIT_BAL + .IPKT_ADDR CCREDITSI;
selectoneu .IPKT_ADDR CCONNID] of
set

4877

4878

4879

CCID_MSCP] :

MSCP_RSP ():

4882

Cotherwise] :

PRINTF (DBM20, .IPKT_ADDR CCONNID], .IRDRX_ADDR):

tes;

:
:
:
.

4886
4887
4888
4889

:
:

4883

2%3;

2339

4898

000000

4899

004137

DUP_RSP ();

T "BAD CONN ID = XXXXX RECEIVED FROM XXXXXX'*

! RE=INIT PKT FIELDS; MESSAGE LENGTH
IPKT_ADDR [MSGLEN] = MSG_LEN * 2;
IDCT"ADDR [RR POLL) = .IDCT ADDR CRR_POLL) + 2; ! ADVANCE TO HI ORDER WORD OF RING SLOT
i RETURN SLOT TO CONTROLLER
.IDCT_ADDR CRR_POLL) = .IPKT_ADDR [PRT_HI];
"IDCT"ADDR CRRTMPOLL] = ..IDCT ADDR [RRTPOLL) or ED_OWN or ED_FLAG; ! OWNERSHIP TOO

IDCT_ADDR CRR_POLL) = .IDCT_ABDR [RR_POLL] + 2; ! ADVANCE TO NEXT RRING SLOT
:g .IDCT_ADDR CRR_POLL] gtra .IDCT_ADDR CRR_END]! IF BEYOND END CF RING

2ggg
233%

CCIDCDUP]

2ggg

end;

IDCT_ADDR [RR_POLL] = .IDCT_ADDR [RR_BEG);

ICOM_ADDR [RSP_INT] = 0;

end;

0000006

.SBTTL
POLL.RRING:
JSR

! CYCLE TO TOP OF RING

! WHILE LOOP
! CLEAR RESPONSE INTERRUPT WORD IN RING HEADER
POLL.RRING RDRX INTERRUPT SERVICE ROUTINES
R1,$SAVE2

4852

z;.cneoxt.ént

101

R1,#2
33
:g.DUP.RSP

REFNIZIR

11(R0) ,R?
R1
2$
PC.MSCP.RSP
4%

2$:

IRDRX.ADDR,=(SP)

3s:

706

000010
0000006
000074 000006
000110°*

000014
000002
000002
140000
000002

R1,=(SP)
#DBM20,~(SP)
#3,-(SP)
?P.RO

4$:

#74,6(RO)

IDCTéADDR.R1

: Routine Size:

156
(48)
Z:l
OABO.BL
DISKSUSER;?CDIETZ.RELEASEJZR
VAX-11 Bl

fes=16_V3=555

4«87

;

4873

«374

4876

4879

:
:
:

4880
4876
4882

4886

4887

R1.R

.
:
i
:

4888
4889
4890
4892

:
i
;

489%
4871
4898

4852

;

4876

#14,R2

#2.(R2)

2(R0) ,30(R2)

000000
000000

#-40000,30(R2)
#2,(R2)

ggé).o(a1)

?§n1).(az>

000004

060

15:33:38
15:23:38

SEQ 412

1$:

g8253 i332333

P
furd

S8R0O
S8R
R
W sozs

000110°*

200

NSO

51-Jul-198
1=Jul=1983

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

: :

L 16

5%:

000104°
000006
86 words,

RTS

1COM.ADDR,RO
6(RO)

Base: $CODES + 21752
Routine
:
9 words

: Maximum stack depth per invocation:
-

A T E PR R TR DRL L L
A
AR TR
IR
TR

ROUTINE DUP_RSP : NOVALUE =
THIS ROUTINE IS CALLED BY POLL_RRING FOR EACH DUP RESPONSE

17TS GENERAL 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

ENVELOPE CAN BE RETURNED TO THE CONTROLLER.
IMPLICIT INPUTS:

ICTLR = INTERRUPTING CONTROLLER NUMBER
IPKT_ADDR = ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE

begin

local
R_INDEX : signed word,

SRC_ADDR,

DST_ADDR;

R ADDR : ref block [RP_LEN, word] field (RP_FIELDS);
'PRINTX (DER34);
incr COUNT from 0 to PKT_CNT = 1 do

! IF THIS IS THE ASSOC CMD

(.MSCP"PKT [.COUNT, PKT_LO] nega .IPKT ADDR [PKT LOJ) and
((.MSCP_PKT [.COUNT, OPTODE] and OP_END) neq OP_END) and
(.MSCP_PKT [.COUNT, MSGTYP] eql MT_SEQ) and
(.MSCP"PKT [.COUNT, CONNID) eql CID_DUP) and

((.IPKT_ADDR COPCODE] and OP_END) eql OP_END)

then

be?in

P_INDEX = .COUNT;
exitloop;

! SET PKT NUMBER

end;

if .P_INDEX lss 0

thenb

PRzNIF (DBM108, .IPKT_ADDR [CRN_LO]);
egin

return;

! IF COMMAND NOT FOUND

! UNKNOWN COMMAND REF. NUMBER

end;

if (R_INDEX = GET_RETPKT (.ICTLR)) lss 0
then

else

PRINTF (DBM112)
begin

157

DISKSUSERZ:[DIETZ.RELEASEJZROABO.BLZ:12.(69)
VAX=11 Bliss=16 V3-555

i e

if (.MSCP_PKT [.COUNT, CRN_LO] eql .IPKT_ADDR [CRN_LOJ) and
(.MSCP_PKT [.COUNT, CRN_HI] eql .IPKT_ADDR CCRN_HI]) and

SEQ 413

Page

! IF RETPKT IS NOT AVAILABLE
! *DUP-RSP: RETPKT NOT AVAILABLE'

! SET UP COPY (SKIP OVER PKT DESC)
SR? ADDR = ,.IPKT_ADDR + 6.
! START OF ALLOCATED RETPKT
R_ADDR = DST_ADDR = RETPKT + (.R_INDEX * RP_LEN * 2);

WWN
Co 0o

rnw
NN

—

RDRX INTERRUPT SERVICE ROUTINES

21=Jul=1
21=Jul=1

RD/RX EXERCISER

IR R I R I T e T e S T e

e T PRT L

R L L L L L L TR IETEIATEATEA

A T IO T

ZRQAM3
v01.2

1
0O
G0 Co

incrb£0¥ut from 1 to RP_LEN do

.ogr ADDR = ..SRC_ADDR;

! COPY 1 WORD

end;

i COPY LOOP

i ADVANCE DESTINATION ADDR
| ADVANCE SOURCE ADDR

! LOAD CONTROLLER NUMBER INTO PACKET
i PUT RETPKT INDEX INTO 10DQ@
i IF RETPKT WAS ALLOCATED

R _ADDR CCTLR] = .ICTLR;
IR_10DQ (.R_INDEX);
end;

! IF ASSOC CMD PKT WAS FOUND

:.f‘ .P_INDEX geq 0

JSR

PC,BLSMUL

0000126 000012

ggcp.rxro12(no>.1z(a1>

000014G 000014

gzg

ggcp.pxr«14<ao>.14<n1>

0000006

ggz

gch.er<a0).<a1>

0000226

ga}s

ggCP.PKT*ZZ(RO)

0000106

ghza

ggco,nscp.ero1o<a0)

0000116 000002

g:ga

ggcp.pxr+11(n0).cz

TSTB

22(R1)

0000006

gi.p.xuosx

: COUNT,*

INC

* COUNT

BLE

VIVAES

8888888essess888

00006
000070

000360
000022

000013
0000006

000012

0000006
000002

BPL

28:
3$:

CMP

ST
BGE

R2.#13

: COUNT,»
:

MOV

P. INDEX
4$
12(R1) , =\ SP)

MOV

SP.RO

: SP,¢

MOV
MOV
TRAP

#DBM108, - (SP)
#2,-(SP)
17

—

(SP)+,(SP)+

g::

:. COUNT. 8 »

R8N

CMP

- J

#104,=(SP)

—

" B

MOV

NINON)
=b b =2

0000006

MOV

IPKT.ADDR,R1

——————

000104

PR 3

0000006

R1,$SAVESL

—

DUP.RSP:JSR

—

0000006

DUP.RSP RDRX INTERRUPT SERVICE ROUTINES

.SBTTL

! ROUTINE DUP_RSP

end;

LA TATE

' RETURN COMMAND PACKET TO POOL

PUT_PKT (.P_INDEX);

PRLA LR PR
TEPR
LRLIRS

DST_ADDR = .DST_ABDR + 2:
SRCCADDR = .SRCZADDR + 2;

VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.REL EASEJZROABO.BL2;13 (49)

21=Jul=1983 1 :33:38
21=Jul=1983 1 :23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

SEQ 414
Page 158

PC,GET.RETPKT

*,R.INDEX

Ré&

R. INDEX

(Sfi)o

5%
#DBM112,~(SP)

0009006
000001

#1,-(SP)

SP.RO

17
78

IPKT.ADDR,R2
#6.R2
R4 .=(SP)

5%:

#60,~(SP)
RO,.R3
#30,R1

(R2)+, (R3)+

6%:

SP,*
*,SRC.ADDR
*,SRC.ADDR

R.INDEX,*

*,DST.ADDR
*,COUNT

SRC.ADDR,DST.ADDR
COUNT

4945
4950
4951

#177760,R1

#17.2(R0)
R1,2(R0)
R4, (SP)

0000006
0000006
0000006

7$:

PC.IN.10DQ
P. INDEX,RO

8%:

RO, (SP)
PC,PUT.PKT
;%P)O.(SP)O

e Base:
:
Routin

: Maximum stac k depth per invocation:

10 words

RTS

$CODES + 22226

4953
4955
4953
4960

ICTLR,R1

000156°
177760
000017 000002
000002

109 words,

4947

PC,BLSMUL

#RETPKT,RO

000030

; Routine Size:

RO,.Ré

«,+(R.ADDR)
«,+(R.ADDR)

R.INDEX,*

4961

4965

4967
4914

4901

4970

=
0N

1CTLR,=(SP)

4$:

DVNOVNVNNANOYVY

000060
0000006
000000G

NN NNV

012746
004737

4938
4940
4945

#6,5P

000156*
0000006

(49)

SO0
o

0000006
000006

FPERNERIEE

325288928288
ogo
RIYS8

RDRX INTERRUPT SERVICE ROUTINES

VAX=11 Bliss=16 V3-555
DISKSUSER2:[DIETZ.RELEASE] ZROAB0.BL2;13

2~ T

g1-Jul-1983 13:33:38

SEQ 415
Page 159

— ——— —— — ——— — — — — L~ — T

1=Jul=1983 15:33:38

RD/RX EXERCISER

000006

%1-Jul-1983 15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

SEQ 416

Page 160
VAX-11 Bliss=16 _V3-555
DISKSUSER2: [DIETZ.RELEASEIZROABO.BL2; 15 (50)
W

ZRQAM3
v01.2

T e T
T

THIS ROUTINE IS CALLED BY POLL_RRING FOR EACH RESPONSE MESSAGE

(1.E., ALL EXCEPT DUP RESPONSES). ITS PURPOSE IS TO PASS

IMPLICIT INPUTS:

IPKT_ADDR = ADDRSE?SREE"SCP PACKET CONTAINING RESPONSE

4584

4986

4988

[MT_SEQ] :

SEQUEN ();

:
:
:

4990
4991
4992

[MT_DG] :

DATAGM ();

Eotheruise] :

PRINTF (DBM21, .IPKT_ADDR [MSGTYP]);

000000

selectoneu .IPKT_ADDR [MSGTYP] of
set

4987
4989

4993

es;

000002

013700

000012
000014
000016
000020
000022
000026
000030
000034
000036
000042
000044
000050
000052
000054
000060
000064
000066
000070
000074
000076

006201
006201
006201
201
042701
001003
004737
000417
020127
001003
004737
1
010146
012746
012746
010600
104417
062706
012601
000207

116001

MSCP.RSP RDRX INTERRUPT SERVICE ROUTINES

MOV

R1,=(SP)

MOVB

10(R0O) ,R1

MOV

000000G
000010

! "MESSAGE TYPE XX RECEIVED'

.SBTTL

MSCP.RSP:

010146

e
Y

4979
4980
4981
4982
4983

4985

CONTROL TO THE APPROPRIATE ROUTINE BASED ON THE MESSAGE TYPE

FIELD (SEQUENTIAL, DATAGRAM, OR CREDIT NOTIFICATION).

4978

e T T

WHICH HAS A CONNECTION ID INDITATING A DISK MSCP ORIGINATOR

4975
4976
4977

3
:
:
:
H

routine MSCP_RSP : novalue =

ASR
ASR
ASR
ASR

IPKT.ADDR,RO

—

:
:
H

(14

4972
4973
4974

4985

R1
R1
R1

177760

BIC

#177760,R1

000000V

JSR
BR

PC,SEQUEN
3%

2
3

4988
4985

JSR

PC,DATAGM

4990

MOV
MOV
MOV

#DBM21,-(SP)
#2,-(SP)
SP,RO

: SP,»

ADD

#6,SP

RTS

000001

BNE

1$:

000000V
0000006
000002
000006

2%:

CMP
BNE

BR
MOV

TRAP

3%:

MoV

R1.#M1
2%

3$
R1,=(SP)
17

(SP)+,R1

32 words,
Routine Base: $CODES + 22560
; Routine Size:
6 words
; Maximum stack depth per invocation:

3
:

[

4985
4992

:
:
:

AL L0 1

THIS ROUTINE IS CALLED BY MSCP_RSP FOR EACH DISK MSCP RESPONSE MESSAGE
WITH THE ‘‘SEQUENTIAL'® MESSAGE TYPE. ITS GENERAL PURPOSE IS TO COPY THE
CONTENTS CF THE MESSAGE PACKET INTO A RETURN PACKET SO THAT THE
IN ADDITION

PACKET CAN BE RETURNED TO THE CONTROLLER.

OR ACCESS), THEN SOME
IF THE COMMAND WAS AN 1/0 TRANSFER (READ, WRITE,
THE RETURN PACKET.

FIELDS OF THE COMMAND PACKET ARE COPIED INTO
IMPLICIT INPUTS:

ICTLR = INTERRUPTING CONTROLLER NUMBER

IPKT_ADDR = ADDRESS OF MSCP PACKET CONTAINING RESPONSE
begin
local

R_INDEX : signed word,

5012

SRC_ADDR,

DS1_ADDR,

% ABDR : ref block [RP_LEN, word] field (RP_FIELDS),
TEMP_UNIT,

R T A TR L R L R L A L T 1 I TATETEIAIETIATE TR

161

DISKSUSERZ:[DIETZ.RELEASEJZROABO.BLZ:1ge(51)

routine SEQUEN : novalue =

R T

SFT_ERR_PRINTED : byte initial (byte (FALSE));

R T

incr COUNT from 0 to PKT_CNT = 1 do

if (.MSCP_PKT [.COUNT, CRN_LO] eql .IPKT_ADDR L[CRN_LOJ) and

(.MSCP_PKT L[.COUNT, CRN_HI] eql .IPKT_ADDR CCRN_HI]) and

R TR TR T ATR PRLA LA TR DR LAL T L TR TR IR

(.MSCP"PKT [.COUNT, PKT_LO] neqa .IPKT_ADDR [PKT _LOJ) and
((.MSCP_PKT [.COUNT, OPTCDE] and OP_END) neq OP_END) and
(.MSCP_PKT [.COUNT, MSGTYP] egl MT_SEQ) and
((.IPKT_ADDR C[OPCODE] and OP_END) eql OP_END) and

- (.PKT_USE [.count) eql .ICTLR)

! IF THIS IS THE ASSOC CMD

! don't want old packets from other controll

begin

P_INDEX = .COUNT;
exitloop;
end;

if .P_INDEX Lss 0

thenb

]

PRZNTF (DBM108, .IPKT_ADDR [CRN_LO]);
egin

return;

! SET PKT NUMBER

' IF COMMAND NOT FOUND

! UNKNOWN COMMAND REF. NUMBER

end;

:; (R_INDEX = GET_RETPKT (.ICTLR)) lss 0

A
AR
TR TR

51-Jul-1983 15:23:38

SEQ 417

Page

else

' IF RETPKT IS NOT AVAILABLE

PRINTF (DBM22)

! "'SEQUEN: RETPKT NOT AVAILABLE''

begin

! SET UP COPY (SKIP OVER PKT DESC)

SR?_ADDR = ,IPKT_ADDR + 6;

RDRX INTERRUPT SERVICE ROUTINES

v01.2

1=-Jul=1983 15:33:38

VAX-11 Bliss=16 V3=555

RD/RX EXERCISER

ZRQAM

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
vol.o

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

382;

R_ADDR = DST_ADDR = RETPKT + (.R_INDEX * RP_LEN + 2);

gggg

incr counr from 1 to RP_LEN do

gggz

pST_ADDR = .DST_ABDR + 2:
SRC”ADDR = .SRC ADDR + 2;

5051
5052

gggg

;

5057

;
:
:

ggg%
gggg
5066

5069

5071

gggg
5072
5073

:
:

5076
5077

:
:

:
;
:

then

IN ONLINE END = MESSAGE
!
! COPY LOOP
! LOAD CONTROLLER NUMBER INTO PACKET

! IF ASSOC. CMD PKT WAS FOUND

then
beg

! IF END MESSAGE IS

!
i

READ, WRITE, OR
ACCESS

DDR CCMDMOD] = .MSCP_PKT [.P_INDEX, MODIFY); ! COPY
RELEVANT
RTADDR [CBCNT_LO] = .MSTP_PKT [-P_INDEX, BC_LOJ:!
FIELDS
BCTHIJ;!
[.PTINDEX,
.MSCPTPKT
=
J
[CBCNTTMHI
RTADDR
RTADDR CLBN_LDJ =_.MSCP_PRT [.P_INDEX, LBN_[J: "! FROM
RTADDR [LBN_HIJ =" .MSCP_PKT [.PZINDEX, LBNZH]: ! COMMAND
RCADDR [BUFF_0] = .MSCPTPKT L[.P_INDEX, eur-OJ. i PACKET
RTADDR [BUFF-1] = .MSCPCPKT [.PZINDEX, BUFZ1]; ! TO RETPKT

5075

5078

ggg;
5083
gggg

' IF THIS IS THE ONLINE END MESSAGE

! SKIP OVER RESERVED WORDS

if ( IPKT_ADDR [OPCODE] eql (OP_RD or OP_END)) or
(.IPKT"ADDR COPCODE] eql (OP_WRT or OP_END)) or
(.IPKT"ADDR COPCODE] eql (OPZACC or OPZEND))

5074

5079
5080

SRC_ADDR = .SRC_ADDR + 4;

end:
R_ADDR [CTLR] = .ICTLR;
if .P_INDEX geq 0

5070

3
3

then

5059

gggg

i ADVANCE SOURCE ADDR

if .COUNT eql 10

! START OF ALLOCATED RETPKT

COPY 1 WORD
'i ADVANCE
DESTINATION ADDR

I; .IPKT_ADDR COPCODE] eql (OP_ONL or OP_END)

5058

o?rADDR= ..SRC_ADDR;

SEQ 418

Page 162
VAX=-11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;13 (51)

end;
IN_IODQ (.R_INDEX);
end;

i IF ENDCODE WAS READ, WRITE, OR ACCESS
' PUT RETPKT INDEX INTO I0DQ
! IF RETPKT WAS ALLOCATED

:
:

5086
ggg;

if (.IPKT_ADDR [STATUS_CODE] neq ST_SUC) or
.(.IPKT_ADDP [STATUS_SUBCODE] neq 0)

gggg

=LASTPKT C.ICTLR, LAST_HRD_ERR]= HRD_OCCURED

2835

5093

LAST_PKT [.ICTLR, LAST_CRN_LO] = .IPKT_ADDR [CRN_LOJ:

' SAVE COMMAND REFERENCE NUMBER

gggg

incr index from 0 to EP_CNT = 1 do

' IF CORRESPONDING REF NUM HAD AN ERROR-LOG

5098
5099

gggg

eLse

= HRD_NOT_OCCURED;
LAST_PKT [.ICTLR, LAST_HRD_ERR]

LAST-PKT [.ICTLR. LASTZCRN_HI] = .IPKTZAPDR [CRN_HIJ;

' SAVE ERROR CONDITION
'

and
if (.ELOG_PKT [.index, EL_CNTR] eql .ICTLR)
CCRN_LO]) and
ADDR
.IPKT
eql
(.ELOG_PKT [.index, EL_CRN_LO]

5100

5101

;

5102

g}gz

;

5105

;

5108

g}gg

:
3

;
:
:

;

5109
5110

%1-Jul-1983 15:23:38

RDRX INTERRUPT SERVICE ROUTINES

(.ELOG_PKT [.index, EL_CRN_HI] eql .IPKT ADDR [CRN_HI]) anrd

then

begin

if .LAST_PKT [.ICTLR, LAST_HRD_ERR] eql HRD_NOT_OCCURED

then

5111
g}}g
g}}g

be?in

esn
! UPATE SOFT ERROR COUNT
SOFT_ERROR (.index);
DRS
TO
KNOWN
AS
i SAVE UNIT NUMBER
TEMPZUNIT = .LSLUN;
incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do

(.ICSTZADDR C.OFFSET, D_PRES] eql

5117

then

5118

begin

LSCUN = .ICST_ADDR [.OFFSET, D_UNITI;

5121

g}gg

5124

:
;
;
;

g;gg
g}%g'
g%;}
'g}gz

[0J:
[13:
[2):
[3):

ERRSOFT (60, 0, 0);
ERRSOFT (61, 0, 0);
ERRSOFT (62, 0, 0);
ERRSOFT (63, 0, 0);

5135

[4):

ERRSOFT (64, 0, 0);

;

5138

LSLUN = .TEMP_UNIT;

5140

end

:
:

5120

exitloop;

case .ELOG_PKT [.index, EL_FORMAT] from 0 to & of

tes;

SFT_ERR_PRINTED = TRUE;

5139

else

! CONTROLLER ERROR
! HOST MEMORY ACCESS ERROR
! DISK TRANSFER ERROR
' SDI ERROR
! SMALL DISK ERROR

! RESTORE UNIT NUMBER

i SOFT ERROR PRINTOUT OCCURED

PRINTF (DBM109, .ELOG_PKT [.index, EL_FORMAT]);
if not (.SFT_ERR_PRINTED)

:
;

ggzz
5145

g}zg

5146

then

;

5149

EMS_EL (.index);

5152

;

' CORECT UNIT NUMBER FOR ERROR MESSAGE

end;

g}gg

5141
5142

' IF SOFT ERROR OCCURED

.ELOG_PKT [.index, EL_DK_NUM)) and
if (.ICST_ADDR [.OFFSET, D_DISK_NUM] eql
PRESENT)

5116

PRINTB (CRLF);

if .P_INDEX geq 0

163

oxsxsuseaz:[oxerz.RELEASEJzaonao.aLZ;1?'(51)

if .ELOG_PKT [.index, EL_FORMAT] lequ &

then

5119

SEQ 419

Page

(.ELOG_PKT [.index, EL_CONTENTS] eql FULD)

VAX=11 Bliss=16 V3=555

! UNKNOWN ERROR=-LOG FORMAT

! EXTRA CARRIAGE=RETURN/LINE=FEED

' PRINT ERROR-LOG CONTENTS
! IF ASSOC CMD PKT WAS FOUND

v01.2

1=Jul=1983 15:33:38

RD/RX EXERCISER

ZRQAM3

21=Jul=1983 15:33:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES
then

21=Jul=1983 15:23:38

.SBTTL SEQUEN RDRX INTERRUPT SERVICE ROUTINES

SEQUEN: JS R

CLRB

MOV

0000006

000104
0000006
0000126 000012

0000006
0000226

o8
NIRBFR

NONIN)

= =

Sessssssssssssssssssss

0000106

000022

000012
0000006
000002

000156°

2%:

3s:

0000006

000006

R2
R2,=(SP)

MSCP.PKT+12(R0),12(R1)
28
nch.tho14(a0).14<n1)

5022

5023

5024

5025

5026

PKT.USE(R2).RO

; *(COUNT),*

5027

R2,P. INDEX

: COUNT,*

5030

R2
R2,#13

: COUNT
: COUNT,*

5019

;

5034

12(R1) ,~(SP)

5037

SP.RO

: SP,*

308

CMP
BNE

RO,ICTLR
$

INC
CMP

BLE
ST
BGE
MOV

1$
P. INDEX
4

MOV
MOV

#DBM108, - (SP)
#2,-(SP)

TRAP
ADD

17
#6,SP

MOV

ICTLR,=~(SP)

JMP
JSR

PC,GET.RETPKT

(SP)+

ST
BLT

MOV

ADD
MOV

: COUNT
: COUNT,*

MSCP.PKT(RO), (R1)
2s
MSCP.PKT+22(R0)
$
#360,MSCP.PKT+10(R0)
28
22(R1)
2

: SFT.ERR.PRINTED

PC,BLSMUL
(SP)+, (SP)+

CMP
BEQ
TSTB
BMI
BITB
BNE
TSTB
8PL

MOV

200
000202
04

IPKT.ADDR,R1

=(SP)

CMP

JSR
CMP

MOV

4$:

;;

#104,=(SP)

MOV

0000006

R1,$SAVES

MOV

MOVB

000000G
000156*

0000006

CLR
MOV

BNE
g::

0000146 000014

000013

164

:
13 (51)
.RELEASE1ZROABO.BL2
[DIETZ R2:
DISKSUSE

! ROUTINE DISK_RSP

0000006

000360

SEQ 420

Page

! RETURN COMMAND PACKET TO POOL

PUT_PKT (.P_INDEX);

end;

000064
000072

VAX=11 Bliss=16 V3=555

RO.RS

: *,R.INDEX

RS
98

: R.INDEX

5034

5041

IPKT.ADDR,Ré4

; *,SRC.ADDR

5046

R5,=(SP)

s R.INDEX,*

5047

¥6,Ré

: .SRC.ADDR

000022

000211

5%:

000012
000004

000030

6%:

000156"
177760
000017 000002
000002
0000006

7$:

060203
132713

001003
032713

000156°
000006
0000006
0000006
000024
000037
177740

: +,SRC.ADDR
s COUNT

5060
5049

ICTLR,RO

5064

#17,2(R2)
RO,2(R2)

: =, +«(R.ADDR)
: *,«(R.ADDR)

RO,#241
78
RO, #242
78
RO,#220
8s
R&, (SP)

#104,=(SP)
PC.,BLSMUL

8%:

9%:

(SP)+
RS, (SP)
PC.IN.10DQ
(SP)+. (SP)+

ICTLR,=(SP)

;

s COUNT
,«

IPKT.ADDR,R2
#24
,R3
R2,R3

5055

5066

5069

5070

5071

5074

:
: «,+«(R.,ADDR)

:
:
:
:
:
:

*,«(R.ADDR)
«,+(R.ADDR)
«,«(R.,ADDR)
«,+«(R.ADDR)
«,«(R,ADDR)
«,«(R.,ADDR)

: R.INDEX,*

5075
5076
5077
5078
5079
S080

5073
5083

5045

5086

5087

#6,-(5P)

PC,BLSMUL

5089

#37,(R3)

108
#177740, (R3)

A
T

5058

3
RO, #12
6$
#4 ,RG
RO
RO,#30
58

MSCP.PKT+24(R0) ,12(R2)
)
.44 (R2)
MSCP.PKT+26(R0
)
46 (R2)
MSCP.PKT+30(R0
MSCP.PKT+46(R0) .S0(R2)
(R2)
.52R0)
MSCP.PKT+50(
(R2)
.24R0)
MSCP.PKT+32(
(R2)
.26R0)
MSCP.PKT+34(

00005(
0000466
0000506 000052
0000326 000024
0000346 000026
0000006

; COUNT,*

2§(a1$.cz11

22(R1) RO

000220

000104
000000G
0000246 000012

5055
5049
5051

R4
P. INDEX,
8$
RO

000242

; *,DST.ADDR

: *.R.ADDR
3
s *,COUNT
: SRC.ADDR,DST.ADDR

#177760,R0

000022
000241

000000G
000001

RO,R2
IPKT.ADDR,R1
#1,R0
(R4)+,(R3)+

#60,-(SP)
PC,BLSMUL
0RET§K7.R0

000060
000000G
00C 2006

Page 165
VAX=11 Bliss=16_V3=555
(51)
2:15
DISKSUSER2: [DIETZ.RELEASEJZROABO.BL

RDRX INTERRUPT SERVICE ROUTINES

SEQ 421

——————e———_

21=Jul-1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

012746
004

108:

000170°*
000012 000172°*
000014 000174

11%:

000102
0000006

12%:

138:

b O = OY

WONWSNRO = o
NONNNW

8°°°§°-fl—‘

NN
2 800‘-‘

5089
5086
5091
5093
5094

R3, (SP)

s INDEX,*

5098

#102,=(sP)

s INDEX

5096

000000G
000156°

0000006
000006G 000012

IPKT.ADDR,RO
ELOG.PKT+6(R5),12(RO0)

5099

0000106 000014

(RO)
, 14RS)
ELOG.PKT+10(

5100

2000016 000001

41
ELOG.PKT+1(RS)

5101

5105

5108

s INDEX,*

5111

; «,TEMP.UNIT
s %, 0FFSET
; OFFSET,+

5112
5114
5116

5117

5120

3
: «,OFFSET

5119
5114

278

278
ICTLR, (SP)
#6,=(SP)
PC ,BLSMUL
(SP)+

LAST.PKT(R0)
258
,#4
ELOG.PKT+16(RS)

000170°

?16546

LAST.PKT(RO)
12(R2) ,LAST.PKT+2(R0)
;g(RZ).LAST.PKT+4(RO)

:
s
3
F
s

PC,BLSMUL
RO,R5
(SP)+
RO
RO
ELOG.PKT(RS)
RO, ICTLR

000156°
000006
0000006

104

11%
#1,LAST.PKT(RO)
1 2%

0000166 000004
000000V
0000006
000006
000106°*
0000126

248
R3, (SP)
PC,SOFT.ERROR

14$:

ELOG.PKT+12(RS) ,=(SP)
(R4) .R1

#177774
.01

177774

?; (SP)+

#40000, (R4)
15
(?4).R1

040000

177760
0000006

000012
000044

RO,
1CST.ADDR, R4

15%:

16$:

#177760,R1
R1‘L$LUN
16
#12.R0
RO, #44

14$

: OFFSET,*

s
—————
— A
— —
LN L
SN LN L
SN

000170°*

RDRX INTERRUPT SERVICE ROUTINES

SEQ 422

Page 166
VAX=11 Bliss=16 V3=555
:3 (51)
O.BL2;1
R2
SEJZROAB
.RELEAS
SU
[DIETZ
DISK

e s

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

000001

1
v

21=Jul=1983 1 :33:38
21=Jul=1983 1 :23:38

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES
0000166

SLOG.PKTO16(R5).R0

000000°*

P.AAA(RO)
,PC

18%:

VAX=11 Bliss=16 V3=555

DISKSUSERZ:[DIEIZ.RELEASEJZROABO.Btz:1! (51)
:

Case dispatch

19%:

5124
5129

20%:

:
F

5124
5131
5124
5133

bb-n-n_ng
ooconoN

OOO-Dg -

: TEMP.UNIT,*
: «,SFT.ERR.PRINTED

5138
5139

24%:

(SP)

5143

R
e
N
S
N

000013

023440"
0000006

5¢

, (SP)
ELOG.PKT+16(RS)

;

5108

#DBM109, = (SP)

#2.-(SP)
25%:

SP,RO
17
(SP)+,(SP)+
#1,4(SP)
26

: SP,x

SP.RO

;s SP,»

#CRLF, (SP)
#1,-(SP)

0000006
000001

0000006

5124
5135

2.LSLUN
1.4(SP)

000001

3
3

23%:

e I

NNEXREINFRERRS SO

e B

NN
= cd b

238888888838383833888
88888
— e b Dt oD amd D D e
cd D
b D d D e D ad b b

—

NNWNO ~8

22%:

000016G
0000006
000002

5127

21%:

000000G
000001 000004

SEQ 423

Page 167

26%:

27%:

14
(SP)+
R3, (SP)
PC,EMS.EL
R3

5145

5147

s INDEX,*

5149

s INDEX

s INDEX,*

13%
P.INDEX,RO

5152

RO, (SP)

R3,413

28$
28%:

: *,SFT.ERR.PRINTED

29%

5154

21=Jul=1983 1
21=Jul=1983 1

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES
JSR
CMP
TST
RTS

5009

(SP)+

4994

$CODES + 22660

-WORD

RO,

; CASEJTable for SEQUEN+1012
[ SN ]

.WORD

$PLITS,

M)
= =2
o
had

.PSECT
000000
000012
000024
000036
000050

(SP)+,(SP)+

Lom Low
L ]

Routine Base:
332 words,
Haximun stack depth per invocation:

: Routine Size:

PC,PUT,PKT

SeSetstanen

0000006

SEO 424

ge 168
VAX=11 Bliss=16 V3=555
(51)
BL2;135
JZRQABO.
.RELEASE
ETZ
DISKSUSER2:[DI

5124

THE RDRX

IMPLICIT INPUTS:

IPKT_ADDR = ADDRESS OF MSCP PACKET CONTAI NING ERRCR LOG
MESSAGE

ICST_ADDR = ADDRESS OF THE INTERRUPTING C ONTROLLER'S CST
begin
local

;
index : signed word initial (-1),
(EP_FI ELDS),
field
word]
[EP_LEN,
SAVE_ADDR : ref block
SRC_ADDR,

TEMP_UNIT,

“Heoeclst

SFT_ERR_PRINTED : byte initial (byte (FALSE));
|

% FIND AN EMPTY SLOT !N THE ERROR-LOG PACKET SAVE AREA
incr COUNT from 0 to EP_CNT = 1 do

if .ELOG_PKT [.COUNT, EL_CONTENTS] eql EMPTY
then

Qeg1n

index = .COUNT;

exitloop;
end;

! IF EMPTY SLOT FOUND

: SAVE INDEX INTO THE SAVE AREA

% IF AN EMPTY SLOT FOUND, SAVE THE PACKET CONTENTS
if .index geq 0
begin

SAVE_ADDR = ELOG_PKT + (.index * EP_LEN « 2);

SAVE_ADDR [EL_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
: OWNERSHI P
!: SETUP COPY ADDRESSES

incrbCOUNT from 1 to ((.IPKT_ADDR [MSGLEN] + 1) / 2) + 2 do
egin

=l
<
P

wv
-

.DST_ADDR = ..SRC_ADDR;
.SRC_ABDR + 2;
.DST_ADDR + 2;
4

then

b s

13 (52)
1ZRAABO.BL2:

: COPY A WORD
| UPDATE ADDRESS POINTERS
:

—— L~ L~ L~ L L~ B S LGN NGNS

THIS ROUTINE HANDLES ALL DATAGRAM (ERRCR LOG) MES SAGES RECEIVED FROM

DST_ADDR,

SEQ 425

Page 169

Co 0o

W
WwWW

OO
Co o

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

routine DATAGM : novalue =
+

ooV

W =0V~
ngQONNNNNNNNNNOOOOO‘g
WN =0V
NV
W =0V~
VN VS W =0V~

b ch

e e

b e

0 O 0 O YO O O OO O 00 0o 0o o 0o

b cd

\h\h\fl\h\fl\h\h\h\.fl\h\h\h\fl\h\h\h\hU’l\ll\.h\h\h\fl\fl\h\h\fl\fl\hm\fl\h\h\fl\hm\fl\.fl\h\h\fl\h\fl\fl
b
d e d e o e e cd e e d e d e o e d e e e o o e o d

T ATE TRTR LA D P L
LL T
A
R
T TR LALATR TR TR T T P TRPRLALR PRLR DA L LR L TR IR IR R R S TRT A TR R
e e
P

21=Jul21=Jul-

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

1
—

WN=O
WN=O VRNV
S UWN=O VNN

AT T

ATV

VAW

NN NN
oY RN
= =
b e b wd ab b
=
WWWWWN NONININNININININ) N =

VIV

R T T T L L PR A LA L A LR TR L L L LA LR 1
A

end

' IF EMPTY SLOT NOT FOUND, PRINT MESSAGE

begin

PRZNTF (DBM110);
return;

end;

% CHECK 1F THE CORRESPONDING RESPONSE HAS ALREADY BEEN RECEIVED
if (.SAVE_ADDR CEL_CRN_LOJ eql .LAST_PKT C.ICTLR, LAST_CRN_LOJ) and
(.SAVE_ADDR [EL_CRN_HI] eql .LAST_PKT [.ICTLR, LAST_CRN_HI1)

then

begin

i; LLAST_PKT C.ICTLR, LAST_HRD_ERR] eql HRD_NOT_OCCURED ! IF SOFT ERROR HAD OCCURED
en

if .SAVE_ADDR [EL_FORMAT] lequ 4

then

bsgin

SOFT_ERROR (.incex);
TEMP_UNIT = .LSLUN;

if (. ICST_ADDR C.OFFSET, D_DISK_NUM] eql .SAVE_ADDR [EL_DK_NUM]) and
(.ICSTZADDR [.OFFSET, D_PRES] eql PRESENT)
then

begin

LSE%T = ,ICST_ADDR [.OFFSET, D_UNIT];
exitloop;

! CORRECT UNIT NUMBER FOR ERROR MESSAGE

end;

case .iAVE_ADDR CEL_FORMAT] from 0 to & of
se

[0l :

ERRSOFT (60, 0, 0;

! CONTROLLER ERROR

1] :

ERRSOFT (61, 0, 0);

! HOST MEMORY ACCESS ERROR

(23 :

ERRSOFT (62, 0, 0);

! DISK TRANSFER ERROR

[3] :

ERRSOFT (63, 0, 0);

! SDI ERROR

EAJ 3

ERRSOFT (64, 0, 0);

! SMALL DISK ERROR

T
TR R R A R R R

! UPDATE SOFT ERROR COUNT
! SAVE UNIT NUMBER AS KNOWN TO DRS

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do

5235

es;

LSLUN = TEMP_UNIT;
SFT_ERR_PRINTED = TRUE;

! RESTORE UNIT NUMBER
! SOFT ERROR PRINTOUT OCCURED

Page 170
VAX=11 Bliss=16 V3=555
(52)
;15
DISKSUSER2:[DIETZ.RELEASEJZRQABO.BL2

end;

else

SEQ 426

S1-Jul-1983 15:33:38
1=Jul=1983 15:23:38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM3
v01.2

R TR PR P TR TR PR LA LR DR DA L DA L e TR A IR T

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES

Lse

PRINTF (DBM109, .SAVE_ADDR [EL_FORMAT]);

uu
CoCo

ZRQAM3

-Jul=198
1=Jul=198

Nu
uu

VAX-11 Bliss=16_V3-555

SEQ 427
Page 171

13 (52)
DISKSUSER2:[DIETZ.RELEASE JZRQABO. BL2:

! ERROR LOG FORMAT UNKNOWN

if not (.SFT_ERR_PRINTED)

EXTRA CARRIEGE=-RETURN/LINE-FEED

PRINTB (CRLF);

PRINT PACKET CONTENTS

EHg_EL (.index);

CORRESPONDING RESPONSE RECEIVED

2,~(SP)
PC,BLSMUL
(SP)+,(SP)+

3%:

68
RS,=(SP)

#102,-(sP)
PC,BLSMUL

lELOE.PKT.RO
RO.R
(PC),1(R4)

ICTLR, (R4)
IPKT.ADDR,RO

#6,R2

R4 ,R3
6(R0) (SP)
000002
0000006
0002

b
b

; INDEX

5196

; INDEX,*

5199

*,SAVE.ADDR
*,+(SAVE.ADDR)

*,SAVE.ADDR
*,SRC.ADDR
*,SRC. ADDR
* ,DST.ADDR

SAVE .ADDR,DST.ADDR

02 -(SP)

PC.BLSDIV
#2.R0

TMTM

COUNT
COUNT
,+

2%:

000001
000156°
0000006

COUNT, INDEX

*, INDEX
SFT.ERR.PRINTED

ggOGPKT+1(RO)

0000016

0000006
0000006

COUNT
COUNT
,+

000000G

OwW
O

1$%:

Rl SSAVES

oo
Vil

DATAGM:

0000006
177777

024110

DATAGM RDRX INTERRUPT SERVICE ROUTINES

S$CODES,

.PSECT

ViV

.SBTTL

then

; COUNT

5200
5201
5202

5203
5205

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES
4$:

5%:

6$:

000000G
000001

7%:

000156°
000006
000000G
000006

000172°

000010

000174"*

000170"

: SRC.ADDR,DST.ADDR

: COUNT

s COUNT,+

H
:
3

SP,RO
17
(s§>+.(sp)+

: SP,»

#1,-(SP}

ICTLR,=(SP)

#6,-(SP)
PC,BLSMUL
(SP)+,(SP)+

5214

5223

1g;R4).LAST.PKT+4(R0)
2
LAST.PKT(RO)
20$

,*
; *(SAVE.ADDR)

16(R4) ,R1

; *(SAVE.ADDR),*

ICST.ADDR,R2

12(R4) ,=(SP)
(R2) ,=(SP)

5205

5196

,*
: *(SAVE.ADDR)

RO,R2

5207

5198
5196
5215

6(24).LA$T.PKT*2(RO)

18§

8%:

SEQ 428

Page 172
VAX=11 Bliss=16 V3=555
15 (52}
.BL2;
DISKSUSER2: [DIETZ.RELEASEJZROABO

#6,SP
78
#DBM110 =(SP)

RS,=(SP)
Pc.sor;.eanon

5224

5228

5231

s INDEX,*

5234

;s *,TEMP.UNIT
s *,0FFSET
: OFFSET,*

5235
§237
5239

,*
; *(SAVE.ADDR)

8177774, (SP)

(SP)+,(SP)+
98
#40000, (R2)
98
(R2) ,=(SP)
(SP)
#177760, (SP)

040000

177760
0000006

000012°*

R1.RO

R1,44

177774

000012
000044

000016
000004

000106°
000012

5%
(R2)+,(R3)+

000006

0000006
000

(SP)+,LSLUN

9%:
108:
12%:

108
#12.R0
RO, #44
8s
R1
P.AAB(R1),PC
57
74

5240

5243

3
: «,0FFSET

5242
§237

5247

: OFFSET,»

: Case dispatch

5250

RD/RX EXERCISER

OQO=WN=00ONWN=00 NWN=OONWN=O

RDRX INTERRUPT SERVICE ROUTINES
VI
L ]

5247
5256

s
H

5247
5258

R3,LSLUN
#1,2(SP)

: TEMP.UNIT,
: *,SFT.ERR. PRINTED

5261
5262

R1,=-(SP)

5266

SP.RO

: SP,0

OoONN
L
o

15%:

16%:

17%:

19§

18%:

#DBM109, - (SP)
#2,-(SP)
(SP)+,(SP)+

19%:

20$:

000001

000000G
000001

000207
183 words .

5231

H
: *,SFT.ERR.PRINTED

5231
5268

5270

: SP,x

0006006

: Routine Size:

5247
5254

3
:

NNN
L ]

148:

0000006
000002

5247
5252

ON;

g
g
343

138%:

0000006
000001 000002

sea 629

DISKSUSER2:[DIETZ.RELEASEJZRQABO.BLZ;1§(52)
VAX=11 Bliss=16 V3-555

21%:

(SP)+,(SP)+
R5,=(SP)

: INDEX,*

5272

22%:

(SP)+
(SP)+

s
3

5226
5157

PC,EMS.EL
PC

Routine Base: $CODES + 24110
2 words

Haxvmun stack depth per invocation:

PSECT

000012

000012
000014

000000
000012

P.AAB:

11$:

.WORD

$PLITS,
0
12

RO,

Table for DATAGM+0374

5247

RD/RX EXERCISER
ZRQAM3
RDRX INTERRUPi SERVICE ROUTINES
v01.2
JWORD
000016 000024
000020 000036
000022 000050

WORD
.WORD

36
50

SEQ 430

Page 174
VAX=11 Biiss=16 V3=555
21-Jul=1983 15:33:38
(52)
BL2;13
ASEJZROABO.
21=Jul=1983 15:23:38 DISKSUSER2: [DIETZ.RELE
; [148)
: [158]
: [168]

21=Jul=198 3 15:33::38
21=Jul-198 3 15:23: 38

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

VAX=11 Bliss=16 V3=555

DISKSUSER2:[DIETZ.RELEAS

SEQ 431
175
Page

;
13 (53)
E1ZROABO.BL2

TR
A IATE TR LA L T

routine SOFT_ERROR (INDEX) : novalue =

THIS ROUTINE UPDATES THE SOFT ERROR COUNT IN THE TALLY TABLE FOR EACH

ERROR LOG MESSAGE RECEIVED
IMPLICIT INPUTS:

ICST_ADDR = ADDRESS OF THE INTERRUPTING CONTROLLER'S (ST

begin

e e P T TR T TR TR LR L L L

local

FOUND: byte initial (byte (FALSE)),

SOF}-OCC RED : byte initial (byte (FALSE)),

ERROR_CODE: byte,
ERROR_SUB : word
TALLYADDR : ref block CTALLY_LEN, word) field (T Fl ELDS),

ELOG_ADDR : ref block [EP_LEN, word] field (EP_FI ELD S);

! ADDRESS OF ERROR L
! ERROR CODE

ELOG_ADDR = ELOG_PKT + (.index * EP_LEN * 2);
ERROR_CODE = .ELOG_ADDR [EL_CODE];
ERROR_SUB = .ELOG_ADDR [EL_SUBCODE];

! ERROR SUBCODE

incr OFFSET from (0 + OF_UN) to (3 « UNIT_SIZE + OF_UN) by UNIT_SIZE do
if (.ICST_ADDR L[.OFFSET, D_PRES] fial PRESENT) and

- (.ICST_ADDR [.OFFSET, D_DISK_NUM] eql .ELOG_ADDR CEL_DK_NUM])
en

begin
FO

vi
W N W NN N W W
N
oo~

! MAP DISK NUMBER TO

= TRUE:;

UNIT = _ICST_ADDR [.OFFSET, D_UNIT];

vV
i
WN N N N N N N W N

DL R L L T TR IR R R R T S
R RTRRTRR T E TR TRTRLATR
T
R TR

! UNIT NUMBER OF DIS

ex;tloop:

end;

if (.ELOG_ADDR [EL_SUCCESS]) or
(.ELOG_ADDR [EL_CONTINUED)

then

! SOFT ERROR FLAG

SOFT_OCCURED = TRUE:

if .FOUND

then

begin

IF UNIT NUMBER FOU

TAELY_ADDR = TALLY + (.UNIT = TALLY_LEN * 2);

! ADDRESS OF TALLY T

if .SOFT_OCCURED
then

! FOR SOFT ERRORRS

selectoneu .ERROR_CODE of
set

[ST_MFE]:

TALLY_ADDR CERR_SFT_SEK] = .TALLY_ADDR [ERR_SFT_SEK] ¢+ 1;

! SOFT = MEDIA FORMA

A A

5329

RDR% INTERRUPT SERVICE ROUTINES
[ST_DATI:

5331

5335

[ST_HSTI:
LST_CNTI:

2338
3337

v IvIvivIvIvIviv
S S S Y&U‘
i
WN=O VN VNS WN=O VRNV
WN=O B&

ViV i
i
I

R TRTR TR R TR LA TR A L E PRLR PRL D L T B0 80 %0 00 80000090 % 000003 %

%000t LIR TR IETAIE T T

[ST_DRV]:

else

! SOFT = HOST ACCESS
TALLY_ADDR [ERR_SFT_HST] = .TALLY_ADDR CERR_SFT_HST] + 1;
C_ERR_TBL [.ICTLR, C_ERR_SFT] = .C_ERR_TBL [.ICTLR, C_ERR_SFTJ + 1 1 §OFT - CONTROLLER
! SOFT = DRIVE

:;eaeaaon_sua eql 3

set

[ST_MFE):

TALLY_ADDR [ERR_HRD_SEK] = .TALLY_ADDR CERR_HRD_SEK] + 1;

! HARD = MEDIA FORMA

[ST_DAT):

if .ERROR_SUB egl 2

! HARD = DATA

then

eLse

[ST_HST]:
[ST_CNT):

[ST_DRvV]:

.TALLY_ADDR [ERR_HRD_SEK] + 1

TALLY_ADDR [ERR_HRD_DAT]

.TALLY_ADDR [ERR_HRD_DAT] ¢ 1;

:: .ERROR_SUB eql 3
.

tes;

TALLY_ADDR [ERR_HRD_SEK]

! HARD = HOST ACCESS
TALLY_ADDR CERR_HRD_HST] = .TALLY_ADDR [ERR_HRD_HST] + 1;
C_ERR_TBL [.ICTLR, C_ERR_HRD] = .C_ERR_TBL [.ICTLR, C_ERR_WRD] + 1;
! HARD = CONTROLLER
en

else

5371

381

Lo TALLY_ADDR CERR_SFT_SEK] = .TALLY_ADOR [ERR_SFT_DAT] + 1
TALLY_ADDR CERR_SFT_DAT] = .TALLY_ADDR [ERR_SFT_DAT] + 1;

selectoneu .ERROR_CODE of

gggg

§380

if.ERROR_SUB eal 2

if (.ELOG_ADDR [EL_CRN_LOJ eql 0) and
S (.ELOG_ADDR CEL-CRN_HIJ eql 0)

g%gg

5378
5379

eo.st?;§2<§§§
81-3ut=1983 13:33:38 X??Elbsgkéffsl2:!?5232Ase:zao.
! SOFT = DATA

els'rALLv_AooR CERR_SFT_DRV] = .TALLY_ADDR CERR_SFT_DRV] ¢ 1;

tes

gggg

§§;9

TALLY_ADDR CERR_SFT_SEK] = .TALLY_ADDR CERR_SFT_SEK] ¢ 1

b
5
5
g

5372
5373
5374
5375

! HARD = DRIVE

TALLY_ADDR CERR_HRD_SEK] = .TALLY_ADDR CERR_HRD_SEK] + 1
TALLY_ADDR CERR_HRD_DRV] = .TALLY_ADDR [ERR_HRD_DRV] + 1;

end

! 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
RDRX INTERRUPT SERVICE ROUTINES

ZRQAM
v01.2
:

ggg%

5384

end;

.SBTTL
.PSECT

0000046

004137

SOF T.ERROR:

0000006

024646

012746
004737
062700
010004

000042 042700 177740
105002
050002

000056
000062
000064
000066
000070

006203
006203
006203
006203
006203
042703

174000

000102

063705

000106°

000i12

001420

000120

111546

5276

CLRB

: FOUND
: SOFT.OCCURED
: INDEX,*

5286

2(SP)

MOV
JSR
ADD
MOV

#102,-(SP)
PC,BLSMUL
#ELOG.PKT,RO
RO.R%

BIC

#177740.70

MOV

20(R4) ,R3

: «(ELOG.ADDR) ,ERROR.SUB

5299

#6.R0
RO.RS

: . OFFSET
: OFFSET,+

5301
§303

: *(ELOG.ADDR)
,*

5304

: *,FOUND

5307

CLRB
BIS

000052 016403 000020

ASR
ASR
ASR
ASR
ASR
BIC

000074 012700 000006
000100 010005

1$:

-(SP) ,=(SP)

CLRB

MOVB

000036 116400 000020
6
000050

R1,$SAVES

MOV

000102
0000006
0000006

SOFT.ERROR RDRX INTERRUPT SERVICE ROUTINES
SCODES, RO

JSR

CMP

000006 105001
000010 105066 000002
000014 016646 000022
000020
000024
000030
000034

OV
MOV
ADD

22(SP) ,=(SP)
20(R&),RO
R2
RO,R2

R3
R3
R3
R3
R3
#174000,R3
ICST.ADDR,RS

000106 032715 040000

BIT

#40000, (RS)

000114

MOV

12(R4) ,=(SP)

BEQ

016446 000012

MOVB

000122 042716 177774
000126
000130

000132

022626
001011

112701

000136 011546
000140

000142
000146

000316

042716
012666

000001

000160

020027

000166
000174

112766 000001
006001

000176

003745

000044

103154

000200 016616 000004
000204

012746

28:

000070

000006

3s:

(RS),=(SP)

#177774, (SP)

MOVB

#1,R1

SWAB

(SP)

MOV

177760
000004

BIC

CMP
BNE

000152 000405
000154 062700 000012
000164

SEQ 433

Page 177
VAX=11 Bliss=16 V3=555
DISKSUSER2:[DIETZ.RELEASEIZROABO.BL2;13 (53)

C_ERR_TBL [.ICTLR, C_ERR_WRD] = .C_ERR_TBL [.ICTLR, C_ERR_HRD] + 1;
! ROUTINE SOFT_ERROR

024666
000000

21-Jul=1983 15:33:38
21-Jul=1983 15:23:38

(SP)+,(SP)+
28

(R§) ,=(SP)

:; *,ELOG.ADDR

,*
: *(ELOG.ADDR)
: ERROR.CODE
: *,ERROR.CODE
: ERROR.SUB
: ERROR.SUB
: ERROR.SUB
: ERROR.SUB
: ERROR.SUB
: «,ERROR.SUB

BIC
MOV

#177760, (SP)
(SP)+,4(SP)

: *,UNIT

CMP

RO, #44

. OFFSET,*

BR
ADD
BLE

MOVB
ROR
BCC

MOV

3$
#12.R0

5297
5298

5308

:
s «,OFFSET

5306
5301

#1,6(SP)
R1

: *,SOFT.OCCURED
: FOUND

5315
§317

4(SP), (SP)

: UNIT,®

5320

17$

#70,-(SP)

21=Jul=198
21=Jul=198

RD/RX EXERCISER

RDRX INTERRUPT SERVICE ROUTINES

SEQ 434

Page 178
VAX=11 Bliss=16 V3=555
(53)
.BL2;13
DISKSUSER2: [DIETZ.RELEASEJZROABO

0000006
0000006
000001 000010

: *,SOFT.OCCURED

5322

000005

ERROR.CODE,*

000010

€
:: ERROR.
CODE,*

5324

000064

5331

000002

: ERROR.SUB,*

5329

5331

:
: ERROR.CODE,*

5329
5324

: =(TALLY.ADDR)
|

5335
5324

5337

5324

: ERROR.SUB,*

5340

; *(TALLY.ADDR)
3
: *(TALLY.ADDR)
F
: *(ELOG.ADDR)

5342
5340
5344
5324
5348

: *(ELOG.ADDR)

5349

: ERROR.CODE,*
s
: ERROR.CODE,*

5351
5354
5351

5358

: ERROR.SUB,*

5356

3
3
3
3

5358
5356
5360
5351

: TALLY.ADDR,*

R4
1(R1) R4
R4
R4, (R1)

000001

000011

4$:

000067
000012

5%:

000156°
0000016

000013

2
W

6%:

000003
000064

7$:

000066

8$:

000006

9%:

168

R2,#11

58
67(R0)

16$
R2,#12
33
ICTLR,R1
R1
C.ERR.TBL+1(R1)
168
R2,#13

168

R3,43
8%

64 (RO)

000010

168
66(R0)
168
6(R6)
168
10(R4>

000005

az as

000010

az 210
1

000060

: ERROR.CODE,*

: TALLY.ADDR,*

000002 .

000001

108:

000011

11$:

: ERROR.CODE,*

5327
5324

RDRX INTERRUPT SERVICE ROUTINES

v01.2

000446 105260 000063
000452 000424
000456 120227 000012

000460 001006
000462 013701 000156°
000466
000470

006301
105261

000474 000413

000534

000536

000542
000550
000552
000556
000560
000562

000566

001010
020327
001003
105260
000402
105260
005726
000415
013700

006300

062700

128:

0000006

000476 120227 000013

000502
04
000510
000512
000516
000520
000524
000526
000530

21=Jul=1983 15:33:38

RD/RX EXERCISER

ZROAM3

000003
000060
000062
000156°

138:

148:
158:
168:
178:

0000006

032766 000001 000006
001403
105260 000001
000401
105210
062706 000010
000207

188:
198:

21-Jul=1983 15:23:38

5362
5351

13§
ICTLR,R1

5364

168

5351

; ERROR.SUB,*
; *(TALLY.ADDR)
:
* «(TALLY.ADDR)
:
:
;

5367
5369
5367
5371
5319
5317
5380

: *,SOFT.0CCURED
;
:
;
:

5378
380
5378
5382
5276

: ERROR.CODE,*

R2,#12

(MPB

BNE
MOV

ASL
INCB

R1
C.ERR.TBL(R1)

(MPB

R2,#13

B8R

: ERROR.CODE,*

16§
R3, 43
15§
60(RO)
168
62(R0)
(SP)+
198
ICTLR,RO

BNE
CMP
BNE
INCB
BR
INCB
TST
B8R
MOV

ASL

ADD

#C.ERR.TBL,RO

RTS

#1.6(SP)
18§
1(RO)
198
(RO)
#10,SP

BIT
BEQ
INCB
B8R
INCB
ADD

Routine Base: $CODES + 24666
Routine Size: 188 words,
Maximum stack depth per invocation: 12 words
3

5385

5386

end

5388

eludom

5387

0TS external references

.GLOBL

$SAVES, $SAVE4, SSAVE3, SSAVE2

BLSSHF, BLSDIV, BL$HOD. BLSMUL

PSECT SUMMARY

VAX=11 Bliss=16
z [DIETZ.RELEASEJZROABO.BL2;13 (53)
oxsxsusea
; *(TALLY.ADDR)
:

63(R0)
168

INCB
B8R

V3555

uaafi

ge 179

Psect Name

Words

Attributes

$CODES
SPLITS

5527
10

RO,
RO,

I
D

,
,

LCL,
LCL,

REL,
REL,

CON
CON

1=Jul=-1983 15:33:38

RD/RX EXERCISER

ZRQAM3
v01.2

1=Jul=1983 15:23:38

RDRX IHTER§UPT SERVICE ROUTINES
LIBRARY STATISTICS

:
3

File

DISKSUSER2:[DIETZ.RELEASEJZRQABO.L16;27

........ 5ynb°ls ........

Blocks

125

Total

Loaded

Percent

455

361

COMMAND QUALIFIERS

Read

VAX=11 Bliss=16_V3=555

SEQ 436

Page 180

DISKSUSERZ:[DIETZ.RELEASEJZROABO.BLZ:1! (53)

21=Jul=1983 15:33:38
983 15:23:38
21=Jul=1

RD/RX EXERCISER

ZRQAMS

RDRX INTERRUPT SERVICE ROUTINES

g%gg

module ZRQAM& (

5391

Xtitle "RD/RX EXERCISER'

5392
5393
5394

5395
5396
5397
5398

environment (noeis)
) =

begin

gzg;

Library *ZRQABO.L16";

2382

require 'BLSMAC.REQ';

6895

LASTAD

6897

BGNSETUP (3)

&
3

Zsbttl "LASTAD AND SETUP'

6902

ENDPTAB

8
&~

BGNPTAB

6907

ENDPTAB

P 6909

BGNPTAB

6912

ENDPTAB

—2

o
0

BGNPTAB

P 6899

[

3
6914

! DIAGNOSTIC SUPERVISOR LIBRARY

INIT_IP_ADDR, INIT_INTR_VECT, INIT BR_LEVEL, %0'100034', 0, RD_MAX_LBN
' IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

INIT_IP_ADDR, INIT_INTR_VECT, INIT_BR_LEVEL, %0°100001', 0, 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
' IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

ENDSETUP

.TITLE

. IDENT
.ENABL

000000
000000

000064

000002 000000C
000004 000030°*
000006 000006
000010 172150
000012
000014
000016
000020

000154
000004
100034
000000

VAX=11 Bliss=16 V3=555
RZ:[DIETZ.RELEASEJZROABO.BLZ;lg (54)
DISKSUSE

ident = 'v01.2°,
addressing_mode (absolute),

gzgg

6905

SEQ 437

Page 181

.PSECT
BLSLAS::.WORD

P.AAA:

LWORD
.WORD

P.AAB:

.WORD
.WORD

WORD

.WORD

WORD
.WORD

ZRQAM4 RD/RX EXERCISER
/V01.2/

$XYZ%,
TSFREE

<<TSFREE=-<BLSLAS+4>>/2>
LSLAST+24

=5630
154

=77744
O

: Plit count word

SEQ 438

RD/RX EXERCISER
LASTAD AND SETUP
P.AAC:
P.AAD:

172150
000154
000004
100001

000042
000044
000046
000050
000052
000056
000060
000062
000064

000000
001437
000000
000006
172150
000154

P.AAE:
P.AAF:

000004

100002
000000
001437
000000

TS$FREE:
: .WORD

52137
LSLAST+44
6
-5630
154

: Plit count word

77777
1437
; Plit count word

=5€30
154
77776

1437

gLSLAS*k

000050°

LSLAST==
T$PTHV==
$LAS4=
SREM4=
$LAS3=
SREM3=
$SLAS1=
S$REM2=

000207

.SBTTL
SEND.LINK::

000004*

000000

- WORD
.WORD
.WORD
.WORD
.WORD
+WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD

ONO=O
I &

052137
000050°*
000006

O=O
I &

ZRQAMS
v01.2

000022
000024

Page 182
VAX=11 Bliss=16_V3=555
(54)
2;15
ABO.BL
SEJZRQ
DISKSUSER2: [DIETZ.RELEA

P.AAA
P.AAB
P.AAC
P.AAD
P.AAE
P.AAF

SEND.LINK LASTAD AND SETUP

Routine Base: $XYZ$ + 0066
Routine Size:
1 word,
0 words
Maximum stack depth per invoca tion:

Qe %e 8,8,

6915
6916
6917

end

eludom

PSECT SUMMARY
Psect Name

$XyZ$

Words

LIBRARY STATISTI cs

Attributes

RO ,

LCL,

REL,

CON

6893

RD/RX EXERCISER
LASTAD AND SETUP

IRQAMS
v01.2
:

i
:

21=Jul=1983 15:33:38
21=Jul=1983 15:23:38
eeeeeees Symbols ========

File

DISKSUSER2:[DIETZ.RELEASEIZRQABO.L16;27

Total

Loaded

Percent

:
455

COMMAND QUALIFIERS

5528 code + 380 data words
Size:
Run Time:
03:10.5
05:38.6
Elapsed Time:

Hemoq{ Used: 413 pages
Compilation Complete

Blocks

Read

SEQ 439

Page 183
VAX=11 Bliss=16 V3-555
DISKSUSER2: [DIETZ.RELEASEIZRQABO.BL2;13 (54)