Digital PDFs

AH-T399D-MC

July 1984

Number of pages unknown

Original

16MB

view download

OCR Version

14MB

view download

Document:	CZRQAD0 RQDX1, RUX50, RX50, RD51-52 Exerciser Diagnostics
Order Number:	AH-T399D-MC
Revision:	0
Pages:	Unknown
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/microfiche/Diagnostic_Program_Listings/Listings/CZRQAD0__RQDX1,RUX50,RX50,RD51-52__RQDX1-RUX50_EXERCISER__AH-T399D-MC__JUL_1984_bw.pdf

OCR Text

RODX1 RUX50

Rx50,RO51/52

RHOX1/RUX50 EXERCISER CorVAIGHT
Cc) 1883-6%
AH-T3880-MC
CZRUARDD

FICHE 0L OF 03

titian

RX50,RD51/52 CZREADO

mrsssng

R R

RUDXL RUXS0

RODX1/RUXS0 EXERGISER COTYAIoAT ¢o5 1855

R¥E50,R051,52 CZRUADO

sl
ozd
Eneg

0004

OOOMNOOAOOOOOOOOOOOOONDOONOOOONOOONNNONHONNON

0005
0o
o0~
Q008
0009
0019
0011
oole

o013

0014
0015
00l

o001~
0018
0019
0020

0021
0022
0023
0024
0025
0026
002~
0c28

0029

0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051

8t ek e Pt = Pt et b (b b e b $ S e b P b (b 8 b et 8 B et el Pt s b (8 B 8 S e et i et e P b et e O O OO QDO

0003

11 Apr 1984 11:56:01
11 Apr 1984 11:45:02

cRUAM}
0001
Q002

VAX 11 Bliss 16 v4,0 579
DISKSUSER2
: [POWERS JZRQADO.BL 14

module JRGAML (
etitle

RD/RX EXERCISER’
ident

‘'vOl.6
,

addressing mode (absolute),
environment (noeis)
)

'n
beg

IDENTIF ICATION
PRODUCT COOE:

PRGDUCT NAME:

CZRQADO RGADX1/RUXSO EXERCISER

PRODUCT DATE:

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHOR :

RAVINDER K,
808 POWERS

T398D MC

APR 84

KARWAN

1984

Dig 'tal Equipment Corporation, Maynard, Messachusetts
This software

is furnished

01°54

under a license for use only on a single

on of the
computer system and may be copied only with the ‘ncius
This software, or any other cop es thereof,
sbove copyright notice.
may not be provided or otherwise made svailable to any other person
except for use on such system and to one who agrees to these |l cense
Title to and ownership of the software shall at all times
terms.
reman

in DEC.

the information in th's document ‘s subject to change without notice
oand should not be construed as a comm tment by D g 'tal Eau oment

Corporation.

for the use or relisb’lity of 'ts
DEC assumes no responsibility
suppl’ed by DEC,
not
‘s
which
pment
equ
on
software

on:
The following are trademarks of Dig 'tal tquipment Corporat
DIGITAL
DEC

PDP
DECLS

UNIBUS
DECTAPE

MASSHBUS

56Q 0001

Page

‘1.,

ExtRCISER

D et P P8 P8 Ped P P P Pt b

GENERAL

INFORMATION

ABSTRACTY

SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS

SOF TWARE REQUIRFMENTS

RELATED DOCUMENTS

AND

the Diagnost'c

STANDARDS

Pt (e
P

0123
0124
0125
0126
0127
0128
0129
0130

INFORMATION

XXDP+

SUPERVISOR/USERS

UQSSP UNIBUS/Q BUS

MSCP

OIAGNOSTIC HTIFRARCHY

MASS

STORAGE

MANUAL

STORAGE

Pt Pd P

0122

GENERAL

0100
0101
0102
0103
0104
0105
0106
0107
0108
0109
o110
o111
ol1e
0113
0114
0115
Ol16
0117
0118
0119
0120
0l21

1 .0

11
11

CHQUS

SYSTEMS PORT

SYSTEM PROTOCOL

PREREQUISITES

et B

0098
0099

b Pt Pt P

0095
0096
0097

Pt Bl 1t b P

OO0O0ONOO0O0O0OOOO00NONOO0OOOO00OONOOONOOOOOONNOONONOINOOOONN

V¢

B¢

V¢

@¢

O¢

Vol .6

¢ XERCISER

NONE

ASSUMPTIONS

The hardware,

other

than

the subsystem being tested,

assumed to work properly. fFalse
the processor, memory, etc., do

errors may be reported
not function properly.

3€Q 0003

“p age

ZRQAAM]

RD/Rx EXERCISER

0183
0184
0185

o P

Memory

layout on 28k

11:45:02

b Pub Db pd

machine

XXDP environment

D IB IS

XxDP+.

160000

MONITOR

1/0

AREA

DI
B IBIB
P
B IDIB

STACKS

BB
D

VECTOR AREA

a machine

---

with

more memory,

2000

B IR IG

EXERCISER

121000

400

B IBID

BB
ID P

[

P
IV
IB G

et P
P
b P
b
b P
d oS
b Pl

B IWIB

TTYy

XXDP »

B IB IV IWID

Pkt

b P

WM IMID

b e o P

B I®
D

ADDRESS

b Pt

b P

MAP

1984

0182

MEMORY
-

o Pt

0148
0149
0150
0151
o152
0153
0154
0155
0156
0157
0158
0159
0160
0161
0162
0163
0164
0165
0166
0167
0168
0169
0170
o171
0172
0173
0174
0175
0176
0177
0178
0179
0180
o181

1.6

11 Apr

b Pt o Pt P

0146
014~

o Pt P

OOOOOOOONOOONOOODOOODONOIOOOOOOONNOONONOOD

®e

B¢

G»

voi.6

11 Apr 1984 11:56:01

free

space

between the ererciser and the DRS,

w:ll

occur

VAX-11 Bliss 16 v4,0 579

DISKSUSER2: [POWERS JZRGADO.BL1;:6

5EQ 0004

Page

(4)

[l
ZRQAM]

RD/RY EXERCISER

vol.6

;:
:
:
:

C
C
C
C

0186
0187
0188
0189

1
1
1
1

s
:
:
s
;
:
;
:
:

C 0192
C 0193
C 0194
CO0195
C 019
C 0197
C 0198
C 0199
C 0200

1
1
1
1
1
1
1
1
1

3
:

:
s
:
:
:
:
:
:
:
;
:
s
;:
:
:
:
s
:
s
;
;
:
;
:
:
;
s
;
;
;
:
:
;s

;

€019
C 0191

C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
£
C
C
C
C
C
C
C
C
C
C
C
C
C
C

0201
0202
0203
0204
0205
0206
0207
0208
0209
0210
0211
0212
0213
0214
0215
0216
0217
0218
0219
0220
0221
022
0223
0224
0225
0226
0227
0228
0229
0230
0231
0232
0233

C 0234

2.0

1
1

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

11
11

Apr

1984

Apr-1984

11:56:01

VAX

11:45:02

OPERATING INSTRUCTIONS

manual.
They are no longer
included in the diagnostic
because
it is des'red
that a chenge in those instruc
tions not require a re assembly of all Supervisor Diag
nostics.
HARDWARE QUESTIONS
LR
The
following series
of aquestions collect the para
meters necessary to identify each disk subsystem,
Hardware Configuration Questions
- e e
-- The
program
will
ask
the
follow'ng
response to a START command (non scr 'pt).

CHANGE HW (L) Y

quest ons

Answer NO to use the pre built answers for all
hardware
questions.
This
program will be released pre bu'lt to
test three units with default answers
shown below.
The
pre built
answers
may
be changed at any time w' th the
setup utility.
Answer YES if you want all the
hardware
quest ‘ons to be asked.
2.

NUMBER OF UNITS (D)

No default.
Answer with the number of
disk drive units
to be erercised or tested.
This
answer will determine
how
many
times
the
following questions are asked.
A
range
of 1 to 4 units
may be specif'ed.
A unit number
will be assigned
sequentially from O
by the Diagnostic
supervisor for each unit,
3.

IP ADDRESS 70)

16 v4.0 579

DISKSUSER2: [POWERS JZRQADO.BL L ;6

This is a Rev C
Supervisor
Diagnostic:
for operating
instructions,
please see chapter 5 of XXDP. operator's

2.1

11 Bliss

172150 ?

Enter the address of the I[P register of one RQDX1 or RUX50
as addressed by the processor w:th memory management turned
off.
The program expects an even 16 bit address n
the
range of 160000 to 177774,
172150 is the default.

SEQ 0005

Page

(S5)

Gl
ZRQAML
vo1.6

RD/RX EXERCISER

C 0235

C 0237

:
:

E 0239
0240

1
1

C 0243

: C 0236

; C 0238
:
:

:
:
:
s
s
;
s

s
;s
s
:
s
:
:
s
H

C 0241
C 0242

C
C
C
C
C
C
€

C
C
C
C
C
C
C
C
E

0248
0245
0246
024"
0248
0249
0250

0251
0252
0253
0254
0255
0256
0257
0258
8258
25

1
1

1
1
1
1
1
1
1
1
1
1

C 0261
C 0262

;:
:
:
H

C
C
C
E

0265
0266
0267
8523

1
1
1
1

;
:
:
:
;:
:

C
C
C
C
C
E

0270
0271
0272
0273
0274
gg;g

1
1
1
1

;

C 0277

E 823%

;:
;s
:
H

;
;:
s
;s
;

C 0278
C 0279
C 0280

C
C
C
C
C

0283
0284
0285
023
0287

1
1
1

1
1
1
1
1

(D) 4

11:56:01
11:45:02

VAX 11 Bliss 16 v4,0 579
DISKS$USER2: (POWERS ]ZRQADO.BL1;6

vector ofthe same RQDX1 or RUXSO

774 may be specified.

A vector address

154

is the default,

above controller.
default.
6.

1984
1984

in the above question.

Answer with the bus request

DRIVE NUMBER (D) O

interrupt

Levels 4 through

level

used by

the

7 are acceptable. 4

is the

Enter the logical unit number for one drive associated
with the IP address above. Drive numbers are in the
range of O through 15, The number entered here must
match the unit plug on the front

panel of

the dr ve,

TEST ENTIRE CUSTOMER DATA AREA OF

THIS DISK (L)

and

must be within the range implied by the 8umper (LUNC 7)
on the RQDX1 or RUXSO controller board.
is the default
answer.

This question is asked to g ve the opportunity of limiting the
addressing range over which the testing will be performed.
An affirmative answer will cause no limits to be imposed for
the unit in question. A negative answer will cause limits
to be imposed, as defined by the following four questions.

1
1

}

BR (EVEL

Apr
Apr

‘nterrupt

in the range of 4

1
1

154

controller descr
' bed

)

1
1
1
1
1
1
1

VECTOR ADDRESS (0)
Answer with the

:
:

;: C 0263
: C 0264

11
11

LOWER OCTAL WORD OF BEGINNING LBN ADDRESS (0) 0?

Enter in octal the less significant 16-b't worad of the lowest
LBN address in the test range. The value may be from 000000
to 177777,
9.

HIGHER OCTAL WORD OF BEGINNING LBN ADDRESS (0) 0?2

Enter

in octal the more significant

lowest LBN address

10.

in the test

16-bit word of the

range.

,
LOWER OCTAL WORD OF ENDING LBN ADDRESS (0)

1504772

Enter in octal the less significant 16-bit word of the
highest LBN address in the test range. 150477 s the
highest LBN address for an RDSZ2.

3EQ 0006

Page

&
(&)

HL
JRGAM1

RD/Rx EXERCISER

0298

0299
0300
0301
0302
0303
C304

S Y P U
e

0288
0289
0290
0291
0292
0293
0294
0295
0296
0297

Ll ol ol ol o

\lalalalalslalslelaleYelnlsiainln)

vol .6

11.

11
11

HIGHER OCTAL

Enter

in octal

highest

Note:

WORD OF

LBN

ENDING LBN ADDRESS

the more significant

address

Apr-1984
Apr 1984

the

test

word of

the

The four previous questions are
ususlly software
Parameter questions, but sinc
e three diifferent disk
drives exist on the subsystem,
this becomes a
unit
by unit question.
It is possible to specify an
LBN
which is too large since we
are dealing with different
drives. The program will check
for block number bounds,

and,
if they are exceeded,
bounds for that drive.

will

assign

the max mum

5EQ 0007

VAX 11 Bliss 16 v4.0 579
DISK$USER2:fPOUERS]ZROAOO.BL

(0) 0?

16 bit

range.

11:56:01
11:45:02

1:6

age

(&)

Il
ZRQAM]

RD/Rx EXERCISER

11
11

et P
Pt
P
Pt P
b et P
b Pt

0305
0306
0307
0308
0209
0310
0311
0312
0313
0314
0315
0%e

OOOOOOONOONOD

00 @¢

G¢

®e

vOl.6

1C .

EXERCISE ON CUSTOMER DATA AREA ON
Answering

YES will

destroy

any

Apr 1984
Apr-1984

11:56:01
11:45:02

THIS DISK UNIT

customer

data

that

VAX 11 Bliss 16 v4 .0 579
DISKSUSER?2:
[POWFRS )ZRQADO.BL L&

(L)

the
disk; therefore, the follow'
ng warning message will
sppear, followed by a confirmation prompt:
ee

WARNING

CONFIRM (L)
This aqiestion

cided
there

CUSTOMER

DATA

AREA

WILL

OVERWRITTEN!

to NO

i f

the

operator has

?
will

default

to
bypass
the
is no default.

hardware

quest

ons.

Otherw se,

5€Q 0008

Page

8
(7>

J1
ZRQAM]

RD/RX EXERCISER

11-Apr-1984
11 Apr 1984

SOF TWARE

VAX 11 Bliss 16 v4,0 579
DISKSUSER?:
[POWFRS JZRQADO.BL1 ;6

QUESTIONS

s e
b b it
e (b Pt P8 (8 b e (e (b et e et (e
ot b e Pt (b e P
d b D et b b P Pt Pt Pt ek P P

0345
0346
0347
0348
0349
0350
0351
0352
0353
0354
0355
0356
0357
0358
0359
0360
0361
0362

0344

1 1 Pt P

0317
0318
0319
0320
0321
0322
0323
0324
0325
0326
0327
0328
0329
0330
0331
0332
0333
0334
0335
0336
0337
0338
0339
0340
0341
0342
0343

OOOOOOONOO0OO0OOON0OOOOONOMOOO0OOONNONNOONONOOOONN

B¢

B¢ B6

8 B0

We Ws

V¢ V6 V¢ G

V¢

G0 GF

¢ G0

V) G0 G0 G0

O¢ G

G0 00 &

vol.6

11:56:01
11:45:02

Software Parameter Questions
The program will

to the START,

CHANGE SW (L)
Answer NO

ask

the

following questions

response

the

following questions

this sec-

RESTART,

and CONTINUE commands.

to bypass

tion.
This question should normally be answered NO when
the Exerciser is firgt run.
A NO answer will cause
the
Ererciser
to
select
the default parameters shown with
each question below.
Then, depending on the errors
de
tected, it may be desirable to chan
this answer to YES
to alter the test parameters
and
urther
isolate
the
problem.
ENTER

TIME

Enter

the

AS HHMM (EXAMPLE:
time of day

1305)

(in 24 hour

(D) O

format).

DRS does not

like
to see
leading ceros in
numeric
values entered.
For example,
for 14
minutes
past midnight,
you would
enter 14,
and for 30 minutes
past 3 'n the
afternoon,
enter 1530.
ERROR LIMIT

(D)

Enter the number of hard errors allowed before s un't
dropped
from
testing.
A
number in the range of |
65535 will be accepted.
TRANSHFER

LIMIT

IN MEGTBYTES

(O FOR

When the specified number of bytes
to/from
a
unit, the unit will be
When all units are dropped, an end
cated.
This
is
the method used
the Exerciser is to run.
The

only

other

way

the

Exerciser

QUICK

PASS)

(D)

‘s
to
?

have been transferred
dropped from testing.
of pass will be ind’
to determ
ne how long
will

declare end of

pass ‘s if all units are dropped because the error 1 'm't
on each is
exceeded.
Howe.er,
the operator can always
abort the program at any t me by typing CONTROL (.

5EQ 0009
Page

(8)

1]
ZRQ@AM]

RD/Rx EXERCISER

Y
Y o
Y
N
T S
Y e e ey e e R el
ey ey ey

PERCENTAGE

FIXED DISK'

OPERATIONS

QUT

1984
1984
OF

11:56:01
11:45:02
TOTAL

VAX-11 Bliss-16 v4.0 579

DISKS$USERZ2: [POWFRS)ZRQADO.BL1;6

OPERATIONS

In
order to maintain
typical usage for the devices of
this
exercise,
a certain percentage of operations must

be directed to the RDS1/52s
(the rest go to the RX50s).
It turns out that this percentage is very hi
(as indi
cated by the 99¢ figure given as the default). It may be
desirable in
some cases to
direct more activity to the
RX50s.
This is easily
done by directing a smaller percentage of the
operat'ons to the RDS1/52s.
The numbers
associated
with
usage
are
adjusted internally by the
program according to drive type and percentage,
CLEAR STATISTICAL
Answering

YES

TABLES AFTER PRINTING (L) N

causes

the

statistical

fields

to be

clear

ed to zero after the report is printed (either at end of
pass,
or at
operator
request).
Otherwise, cumulative
totals are maintained.
REWRITE BLOCKS WHEN

“FORCED ERROR"

DETECTED ON READS

(L)

On encountering 8 bad block on the RD51 or RD52 disk
(during either a read or a write operation), the RQDx1
or RUX50 controller will revector the logical block to
another physical location on the disk, This operation is
transparent to the user. However, if the revectoring was
done
subsequent to
a write
operation
(i.e
the write

operation detected the bad block),

the data

flagged

'Yes'

to the question to force a WRITE operat’on on

the same block whenever a “Forced Error” flag ‘s detect
ed on a read.
This is to avoid the same error code (the
‘Forced
Error”)
being
reported
for
the
same
block
re-write will,

T T

The

f writes are enabled for

T S

repeatedly.

HALT ON BAD BLOCK HARD ERRORS

swer

When

Apr
Apr

with a "Forced Error” code,
signifyin? that the data at
the
revectored location is suspect.
he controller re
turns an error code
whenever the block is re-read.
An

the Exerciser

switch

set

(eg.

however,

switch set,

(#s 35,

run with

38)

the DRS

START/FLAGS:HOE),

HALT

answer

ON OTHER HARD

No to

ERRORS

take place only

the particular disk

the question.
(#s

(L)
"Halt

un't.
v

the Exerc.ser

on encountering
ANY error.,
If it is
testing continue on a bad block error,
[

OOONOOOO0OONOO0OOOOOOOONOONOOOONONOODOOONOOOOOHOOOOONON

o
G
Vs Go
68 Go
G0
G
G0
G0 G5
08
N0
67
G2
OF
G2
G0
Vs
V9
G8
V0
G
VS
G
)
G0
C¢
G&
Vs
G
S
G
G
G
B0
G
Ve
Gs
Ve
We
@
WP
WL
¢
G
G5
B
G0
B
®%

[

11
11

34,

on Error
halts

des red that
the
even w th the NOE

36-37,

This
question is similar
to question
non bad block type of Hard Errors,

39 45)
but

(L)

refers

(D)

SEQ 0010
Page

; 10

ZRQAML

RD/Rx EXERCISER

Pt o

Pt Pt

SOFT ERRORS

Errors,

(#s S0 S4)

is similar

COUNT EACH RETRY

ARpr 1984
Apr-1984

(L)

question

11:56:01
11:45:02

but

refers

VAX-11 Bliss 16 v4.0 579
DISK$USERZ
: [POWERS ]ZRQADO.BL1 ;6

AS A SEPARATE SOFT ERROR (L) N ?

On encountering any error or a read/write,
the control
ler
retries the operation
a number
of times.
If
the
operat
i on is eventually successful,
this is reported as

Pt Pk

b e P

11.

a Soft Error.

The error

log packet

contains

the number

b P

of
retries performed
before the operation was success
ful.
Normally, the whole sequence of retries is classi
fied as one Soft Error. Answer Yes to the question if 't

desired

count

each

internal

retry

attempt

e P

separate Soft Error.
12.

RANDOM SEEK MODE

Answer

(L)

YES

to cause block

TO BE

SELECTED AT

AnsTir

b P

b i P

This questior

numbers

to cause block

numbers

to be chosen
to be

randomly.

selected sequen

13.

question.

b o
b

RANDOM (NO,

IMPLIES

SEQUENTIAL)

(L)

If the default

answer

is chosen (N(o)),

then

units
shall be
selected in a
predetermined manner
'n
accordance
with the typical
seek time margins for each
drive.
If the alternate answer is chosen (Y[es]),
then
the
units will be chosen
at random
in accordance with
the percentages specified in Software question 4,
14.

b et b

UNITS

This
question is
optionally asked if the answer to the
previous
question is N(o]l.
The
selection of units for
sequential
operations is affected by the answer to this

b e Pt e Pk et

b P b e P

tially.

READ

COMPARES PERFORMED

THE

CONTROLLER

(L)

Answering YES causes all read commands
to
include
the
‘compare”
modifier.
This
ecventially forces the con
troller to perform two read operations on the same
disk
address, and to compare the results.

0425
0426
0427
0428
0429
0430
0431
0432
0433
0434
0435
0436
0437
04138
0423
0440
0441
0442
0443
0444
0445
0446
0447
0448
0449
0450
0451
0452
0453
0454
0455
0456
0457
0458
0459
0460
0461
0462
0463
0464
0465
0456

HALT

Soft

h e P

0423
0424

10.

The following message will
answered this question:

b Pt

0415
0416
0417
0418
0419
0
0421
0422

el e

0414

Pt et e Pt P

(alslninlisislisislisisininlisisisinlisialslislislisinisininisinlisislnislislinlslisialslslisinlisinslislisisisinlinlislinlply]

Vol .6

11
11

THE

15.

REMAIMING

WRITE

COMPARES

QUESTIONS
PERFORMED

appear

CNL'
AT

APPLY
THE

after

the operator has

UNPROTECTED

CONTROLLER

(L)

DISK

UNITS,

Answering YES
causes
all
write
I/0
requests
to
be
changed
to
write compare,.
After each write, the con
troller w'll read
the
data
and
compare
't
to
dJdata
re

obtained

from

the

host.

5eQ 0011
Page

11
(10 )]

M
ZRQAM]

RD/RX EXERCISER

vO1l.6

: £ 0467
: C 0408

1
1

;

C 0469

C 0470

Co0471

;

C 047

C 0474

C 047

This question will only be asked

to be checked by the host by reading the data

tion

was

answered NO.

aftter

the

write

Answering

the

YES causes all

operation.

immediate

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

0484
0485
0486
0487
0488
0489
0490
0491
0492
0493
0494
0495
0496

C 0498

C 0497

quired
17.

1
1}
1

and doubles the amount

writes.

Therefore,

An answer of

YES allows the operator

data pattern to be used

NO
answer
will
allow
pre-defined data pattern

18.

storage

is only recommended

USER DEFINED DATA PATTERN (L)Y N ?
own

1
1

1
1
1
1
1
1
1
1
1

for

aques

writes

This option consumes

C 0481
E Ozgg

defire

his/her

in all write operations.

the
operator
to
select
in the next question.

SELECT PRE-DEFINED DATA PATTERN (0O FOR SEQUENTIAL
TION) (D) O ?

SELEC

There
are
21
pre-defined
data
patterns
available,
selected
as 1 to 21
(see section 4.9).
A zero
answer
will cause patterns 1 to 21 to be sequentially
selected

for each
write.
(Note that pattern
of random numbers).
19.

1 consists entirely

NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM)
PATTERN VALUES (0) ?
These questions will only be asked

decided

the

operator

(PDP

11).

to define his/her own data pattern.

bit patterns will be entered as octal

(D)

The

11 Bliss

16 v4.,0 S79

DISKS$USERZ: [POWERS ]ZRQADO.BL1;:6

€ 0480

Co04a77
C 0478

;
:
;:
:
:
:
:
:
:
;
;:
;:
:

;

CHECK ALL WRITES AT HOST BY READING (L) Y

VAX

11:45:02

when drive write-compare operations are suspect.

C 047

11 Apr-1984

11:56:01

1
1
1
1
1
1

;
:

1984

extra CPU time,

E 8275
76

Apr

:
H

:
:

16.

?
has

actual

5EQ 0012

Page

(11)

N1
ZRGAAM]

RD/RX EXERCISER

vol.6

:
:
;
s
:

€.0499
C 0500
C 0501
€ 0502
C 0503

1
1
1
1
1

C 0506

;

C 0508

:
H

E 0210
0511

1
1

s C 0504
; C 0505
:

:
;
;
;

;

C 0507

C 0509
C 0512
C 0513
C 0514
C 0515

0516
0517
0518
0519
0520
0521
0522
0523

1
1
1
1
1
1
1
1

:
;

C 0525
C 0526

1
1

;
;

:
;:
;
:
:

:
;
;
;
;
;
:
;
;
;
;
;

C 0524

C 0527
C 0528
C
C
C
C

0529
0530
0531
0532

C
C
C
C
C
C
C
C
C
C
C
C

05334
0535
0536
0537
0538
0539
0540
0541
0542
0543
0544
0545

0533

1
1

1
1
1
1
1

1
1
1
1
1
1
1
1
1
1
1
1

1984

11:45:02

TYPES

System fatal errors are used to

C
C
C
C
C
C
C
C

ERROR

Apr

SYSTEM FATAL ERRORS

1
1
1

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

1
1

;
;
;
;
:
:
;
:

;

3.0

11-Apr-1984 11:56:01

was detected by the
to

|
°

indicate

that an error

Diagnostic Supervisor

in relation

loading/controlling the diagnostic process.

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

to.

ORIVE FATAL ERRORS
=
“.- Or've fatal errors are a result of:
an error that

considered fatal

testing will continue.

the drive,

but

HARD ERRORS
-Hard errors are a result of:
1.

3.
¢

retries of a soft error or

& non-recoverable error

a soft error

Note:

if retries are not set.

Retries are executed

'n the controller

Soft errors
are media related errors.
will be retried by the controller,

All soft errors
.

SOFT ERRORS
- ---

Note: Soft errors are retrieved from the controller via
the error log
capab’l 't'es of
MSCP,

VAX-11 Bliss 16 v4,0 S79

DISKSUSER? : [POWERS ]ZRQADO.BL1 ;6

SEQ 0013

Page

(12)

b
RO/ RX EXERCISER

JRQAM1

11
11
ERROR

1984
1984

VAX 11 Bliss 16 V4,0 579
DISK$USFR2:
{POWERS ]ZRGADO.BL L ;4

11:56:01
11:45:02

INFORMATION

Ali genersl error messages
will include the type of error
(system fatal, drive fatal, hard, soft) and a unit number,
If the error appliec to a controller, then only the
first
unit
number of the
controller will be given,
(The
user
will know

b Pl Pt Pl Pl P Pt Pueb P

unit'

the other

unit numbers

messages are printed).

when

subseguent

''drop

Basic
error
messages provide more details about the
error. The Exerciser will print all basic
error messages,
along
with
the disk address,
f
applicable.
In some
cases
where a drive-fatal
error applies to a controller,
the controller's IP address will be printed.

b P

Extended
error
messages will
be used to print
the
relevant fields of command and end message packets, status
codes, SA register contents, and error log messages.
All
velues will be in octal (POP 11).

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

INITIALIZATION ERRORS

Two kinds of errors
will be
reported to the operator
during the In‘tial ‘ration Test. The System fata] error
too many units spec:ified.
the Exerciser to abort,

gystem fatal error will cause

Orive fatal
errors only affect the
unit(s) involved.
Testing
will
continue
on all other units,
This class of
errors includes, but is not 1l imited to, the followi ng:

L A

Test

BR Level

Test

fa'lure (no or ve present)

failure

Test

failure

Initializat
ion seq.ence failure
T, B

3.2

Onl 'ne

et
e Pk b b P P P P

5.1

ot Dol P

0564

0565
0566
0567
0568
€569
0570
0571
0572
057%
0574
057%
0576
057”
0578
0579
0580
0581
0582
0583
0584
0585
0586
0587
0588
0589
0590
0591
0592
0592
594

b ot P Pt et et et Pt P P P Pt P P P Pt Pt P P P P (b P

0546
054°
0548
0549
0550
0SS1
0552
0553
0554
0555
0556
055°
0558
0559
0560
0561
0562
05¢€3

Dt el P

OOOONNONOONOOONAONONOOOOOOONNNONOOOOOIOOIOONONNONONN

WO G0

B0 G5

Be W

B0 O

B0 G0 00 B¢ P2

V6 B¢ B8

V0 G0 B0 V0 G0 B0 G0 OF G0 OO G0 G0 O

85 G0 G0 B

0 W

60 B0 Ge W0 B0

vol., ¢

Apr
Apr

Access faileo

failed

5€Q 0014

Page

(13,

C'n

JRQAM]

RD RY

EXERCISER

11
11

0636

0637
0638
06539

0640
0641

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISKSUSERZ:
[ POWE RS ] ZRQAD 0.8L1;6

EXERCISER CRRORS

Most errors
from

MSCP

reported during

this test will originate

end message packets,

The

status code

field will

be
converted to text and printed as part of a basic
error
message.
Any
subcode velue
will follow i f extended error
messages are enabled.
represents some of

Compare error

D'sk
unit
went offline
detsiling the reason)

Data error

Drive error

b Pt P Pt Pt (e P

B b Pt

b Pt Pt Pt il B

The follow'ng list
reported vi:a MSCP:

Host buffer access error

el b
b Pt P Pt P P Pt P

5.%

o Pl Pt Pk e P
P pd P Pl Pd b (b P
P Pt Db gt et P

0595
0596
059”
Q598
0599
0600
0601
0602
0603
0604
0605
0606
060~
0608
0009
0610
o6ll
0612
0613
0614
0615
0616
061~
0618
0619
0620
0621
Oo22
0623
0624
0625
0626
0627
0628
0629
0630
0631
0632
0633
0634
0635

OOOOOOOOOOOOOOOONODOOONOONOONOONNONOOOONOINOOONMNNND

vOl.e

Apr
Apr

Media

error conditions

(a8 sub code

(3 sub code may

may

follow)

(a sub code may

format error

the

follow)

(a sub code may

follow)

ERROR LOG MESSAGES

The contents of the error log messages received from the
controller are printeo as received,
and should be dec 'prered

using

3.5

MSCP

the

MSCP

specs.

ERRORS

An MSCP error

occurs when

the host

Command End Message from the
will print out the erroneous
for the error.
[f
extended
entire
contents of
the end
octal w thout interpretation

receives

Invalid

controller. In such cases, the host
command followed by
the
reason
printouts are enabled, then the
message will be
oisplayed
'n
of the data.

56Q_001%

Page

(14,

[)L‘
ZRQAAM1

RD/RX EXERCISER

0655
0656
065
0658
0659

0660
0661
0662
0663
0664
0665
0666
0667
0668
0069
0670
0671
0672

b et
b Pt b Pt G
Pt Pt P
s o P

0052
0654

0652

ot P Pt

0651

0048
0649
0650

b P

0647

P Pt Pt Pt Pt P P

0642
0643
Ob44
0645
0646

Dot s Pt e

(aYslnlslnlsininlslslslalsislslnlislislnlslinlaslsialslislnlislinlnly]

G¢

B¢

V¢

B¢

vol.6

3.6

11 Apr- 1984 11:56:01
11

Apr

1984

VAX-11 Blies 16 v4,0 579

11:45:02

DISKSUSER?: [POWERS JZRQADO .BL L6

SAMPLE ERROR STATEMENT
;
.

The errors

listed by

criptive and

the exerciser are

are self explanatory.

error
statement.
message.

This

error

The

uzually

statement

very des

following
is

is an example

the extended error

(example)

(comments)

DISK XXX
INVALID COMMAND

'DISK UNIT NUMBER
'MAJOR STATUS CODE RECEIVED BACK
1SUB CODE OF GIVEN COMMAND
1COMMAND GIVEN TO DRIVE
'LOGICAL BLOCK NUMBER GIVEN
INUMBER OF BYTES WANTED TO READ

SUB CODE XXxXX

COMMAND: READ
LBN: XXXXX
BYTE COUNT IN COMMAND XxXXXXX
ACTUAL

The

& OF

BYTES

status

code

TRANSFERRED

XXXXX

messages

an end

!NUMBER

BYTES

broken

ACTUALLY

into

READ

two

pieces. The first S bits represent the major status which is given
by the "invaelid command” message.
The 11 remaining bits represent
the sub-code,
which tells in greater detail the error in the con
troller.
The LBN is the logical
block on the disk the controller
was

trying

to read.

The byte count

refers

the number of bytes

the controller was going to read off the LBN. The actual number of
bytes transferred refers
to the
number of bytes
read before the
error,

SEQ 0014

Page

(15)

Eo
ZRQAM1

RD/Rx EXERCISER

11
11

Pt
b (ot et P

AND PROGRESS REPORTS

report

is printed at

the end of

each

pass of

B8 ph
P
P
P
P
b Pt P
et

0706

0705

VAX-11 Bliss 16 v4,0 579
DISKSUSERZ: [POWFRS]ZRQADC.BLL ;6

Errors are grouped into two
bes’'c categories:
hard and
soft.
Each is sub divided into four more categories, depend
ing on the most probable classification for that error,
The sub categories are:

0704

Pt Pt et e P

0697
0698
0699
o7
0701
0702
0703

11:56:01
11:45:02

0683
0084
0685
0686
068~
0688
0689
0690
0691
0692
0693
0634
0695

1984
1984

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

0681
0682

A summary

b et Pt Pt e P

0678
067
0680

PERFORMANCE

disk

related errors

seek

(or

controller or drive related errors

host

b e

%ee

4.0

(the

All

0673
067
067

Pt 1

OONOONOOOOONOOOOONOOOONOOONOOOONOOOO00

@¢

B¢

V¢

O¢

09 Os

OG0

vOl.6

Apr
Apr

UNT
¢

TYPE

XXXX

format)

CPU)

numeric

related errors

related errors,

values

are

in dec mal

& OF B8YTS
& OF
BYTES
READS READ WRITES WRITTEN DAT

XXXX

XXXXX

XXXXXX

radix.

HRD
SEK

ERS
DRV

HST

DAT

SFT
SEK

ERS
DRV

HST

5EQ 0017
P
1
(16)

[‘\

ZRQAM]

RD/RX EXERCISER

11
11

0750
0751
0752
0753
0754
075%
0756

1984
1984

11:56:01
11:45:02

VAX 11 Bl'ss 16 v4.0 579
DISKSUSER?:
[POWERS JZRQADO.BL1: 6

SUMMARY

This 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.

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,
fied,

the presence of each drive
alon? with a
check on the

the

operator.
hen,
an
initialization
will be issued to
each
controller configured for testing.
When
the initialization
sequence has been completed, an attempt will be made to bring
each unit online.
If this succeeds,
one
or two MSCP reads

b Pk P Pt b b (b P

b Pt Ph b S b P P P (8 e P Pt (b b b P

TEST

5.0

will

issued to

the

inner-most LBN of each selected disk

to ensure that each disk

drive can seek

and be read.

Any drive-fatal or hard errors
encountered
during this
test
will
ceause the
appropriste unit(s) to be dropped.
If
basic error messages are enabled, then the program will print

b P (o ek P
d b P Pk el Pt s b Pd il et (b el P

0740
0741
0742
0743
0744
0745
0746
0747
0748
0749

h e

0707
0708
0709
0710
0711
012
0713
0714
0715
0716
o717
0718
0719
0720
0721
0722
0723
0724
0725
0726
0727
0728
0729
0730
0731
0732
0733
0734
0735
0736
0737
0738
0739

PO A

‘alnlslnlalslalslnlslalalslslnlslalsisislalnlslalsialalsininlslialnlislisllslalslislialalslislalalglalinly

voli.6

Apr
Apr

out the specific reason for dropping the unit(s).
the

failed

intervenes

Upon
test,
5.2

unit(s) will

(adds unit(s) or

not be

Henceforth,

tested unless the operator

restarts Exerciser).

successful completion
of the
Initialization Sub
the program will begin executing the Exerc ser,

EXERCISE

The purpose of

this subtest

is to exercise

the

disk

drives

in a manner similar to the typical usage under standard operating systems.
Execution of this test should give an indica
tion of the operating performance of the disk drive subunits.
This test
will utilize
random disk addresses,
random
word
counts,
and data
patterns,
all subject
to the
1limits and
specifications made by the operator.
All protected disks will
be sub ject to read-only
operations,
while unprotected disks
may be read or written, depending on the answers given to the
software parameter questions.
End of -pass
will be declared
when the specif’'ed number
of bytes have been transferred for
all the d'sks taken as a whole.

5EQ 0013
Page

18
(17)

G2
ZRQAM1L

RD/RX EXERCISER

vOl1.6
1
:
t:
:

€
C
C
C

11 Apr 1984 11:56:01

11 Apr-1984 11:45:02

VAX-11 Bliss 16 v4,0 579

DISKS$USER?2: [POWERS JZRQADO.BL1;:6

0757
0758
0759
0760

1
1
1
1

If a read/write error occurs dur'ng this test,
then the
controller will initiate an
appropriate number of re
tries.
If all retries fail, then a hard error will be repor
ted to the host,
oan error message
will
be displayed on the

s C0762
: C 0763

1
1

mary report. The unit will be dropped
has exceeded the specified limit,

1 C 0%l

:
s
:
s
s

console

terminal and

07
075
0766
0767
0768

1
1
1
1
1

s C 0770

be dropped from

1
)
1
1
1
1
1
1

the hardware.

C
C
C
C
C

C 0769

s
:
s
s
:
s
s
;

C 0772
COT8
CO0774
C0775
C 0776
C 0777
C 0778
C 0779

;1
s
:
:
:
:

C
C
C
C

0780
0781
0782
0783
CC784
C 0785

1
1
1
3
)
1

5.3

the error will be tallied for the sum

DROP UNIT SUMMARY
e
e - me--

During the Initialization Subtest,

brought

online

the test
the

sequence

operator

“f the hard error count

individual units will

if they are unable

specified drive

does

not

to be

match

During
the Exercise,
the progrem will
drop a unit for
one of
three reasons.
The normal path is for
each unit
to
complete the transfer of N megabytes, where N is specified by
the
operator
during SW questioning
and be
soft-dropped.
Otherwise,
a unit will be hard-dropped if the number of hard
errors encountered exceeds
the operator-specified limit,
or
if a fatal error is detected. Units hard-dropped may later be
added to the
test cycle,
However,
statistics for the hard
added
unit
will be
clesred to
zero;
if a transfer
limit
was specified,
in which case the unit was soft dropped,
the
statistics may
or may not be cleared
dJdepending on the oper
ators answer to Software cuestion 12.

’Eapggég 19
(18)

M.
[}

JRQAAM]

RD/Rx EXERCISER

vol.6

s
:
:
s
s
:
s
s

C
C
C
C
C
C
C
C

O7
0787
0788
0789
O7
0791
0792
0793

1
1
1
1
)S
1
1
1

:
;s
s
;

C
C
C
C

0795
07
0797
0798

1
1
1
1

C
C
C
C
C
C
C

0800
0801
0802
0803
0804
0805
0806

1}
1
1
1
1
1
1

C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C

0811
0812
o813
0814
0815
0816
0817
0818
0819
0820
0821
0822
0823
0824
0825
0826
0827
0828
0829
0830
0831

;s
s

:
:
;
;
;:
:
;:
;
;

:
:
;
;
:
;
;
:
;:
;:
;:
;
:
;s
;
:
;
;
:
:
;

;
;
:

C 0794

C 0799

C
C
C
C

0807
0808
0809
0810

C 0832
C 0833
C 0838

1
1
1
1

1
1
1
1
1
1
1
1}
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

6.0

11-Apr-1984 11:56:01
11

ERROR CODEFS GENERATED 8Y

Apr

1984

11:45:02

VAX-11 Bliss 16 v4,0 579

DISK$USERZ:
[POWERS }ZRAADO.BL L ;H

THIS EXERCISER

SYSTEM FATAL ERRORS
-

More than 4 units specified

DRIVE FATAL ERRORS
- 10

Controller couldn't be

Controller
didn't
interrupt
the interrupt vector given,

Wrong vector address sel
ected.

Controller
didn t
the BR level given,

Wrong BR

Init sequence failed.

the address given,

addressed

interrupt

Wrong IP address selected

level selected.

Either
one of
the
four
initislization
steps did
not receive
the
correct
response
from
the
Con

troller,
or
one
steps timed-out.

of the

Fatal Controller error,

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

Failed to bring unit on-line.

On-line
response had
an
error
code.
(see
also
&s 22 and 23.)

urite protect conflict.

Access
to either
the
the cuter track failed.

Unit went off

Drive

line.

type not known.

The
un't
was
hardware
write protected
and write
operations
were requested
on the unit,
inner or

Innermost
or
outermost
track s header may be cor
repeated.

--The
version of the
Exer
ciser
being run
does not
support th's aisk type.

5EQ 0020
Page

(19)

Io
ZRQAML

RD/RX EXERCISER

0835
0836
0837
0838
0839
0840
0841
0842
0843
0844
0845
0846

0847
0848
0849

0850
0851
0852
0853
0854
0855
0856
0857
0858

0859
0860
o8e1
0862
0863
0864
0865
0866
0867
0868

0869

0870
0871
0872
0873
0874
0875
0876
0877
0878
0879
0880
0881
0882
0883
0884
0885
0886
0887

Y
T
O e oy
e Ty e e Y
Y el el el el ad sl
ol o Y X X oy Y ]

OOOOOOOOO00ONOOOO0NMNOONOONONOOOONOOONONOONONOOOONOOONOHONOON

®9

B¢

G¢

vol .6

11-Apr-1984
11 Apr 1984
fa'led

send

'Set

Crharacter 'stics'

Controller

Either

the

line or

command,

the

corrupted

Controller

returned wrong

the
for
code’
Characteristics’'

'end

'Set Controller
command.

Fa'led to send

Controller
returned
wrong
end
code’' for the 'On line' command.

Dr've

went

state.

'On

line'

the

command

off

its RAM,

the

any

Control

the port/

ler microcode or

DMA

Diagnostic

because

Problem with

interface.

is off
unit
the
Either
the diagnostic is
line or
any
of
corrupted because
problems with its RAM,

Problem with the
ler's

Control

microcode

port/DMA

interface.

the

'Available’

HARD ERRORS

Controller
command.

received

invalid

The
diagnostic is corrup
ted
because
of any prob
or
RAM,
its
w'th
lems
there
is
a
problem with
the
Controller microcode
(RAM or ROM)
or
there ‘s
the port /DMA
problem with
interface.

Command aborted by
ler.

Media

Drive write protected.

format error.

Controller
pare

the

read

Control

Command
t med out
Controller.

the

write com

error.

CRC

Data error.

Host

Controller error.

but

error

field of

a disk

the

block.

data

access error

Difficult
to
categorice
without
looking
at
the
error

sub-code

associated

sage.

error

Bliss-16

v4,0-579

DISKS$USERZ:
[POWERS 1ZRGADO.BL1; 6

unit

problems with
21

VAX-11

11:56:01
11:45:02

any

log mes

SEC 0021

Page

2l
(20)

)

<RQAAM1

RD/Rx EXERCISER

vol1.6

Apr

1984

11:56:01

VAX-11 Bliss 16 V4,0 579

11 Apr-1984 11:45:02

DISK$USER2: {POWERS JZRQADO.BL 1 ;6

C 0888

Drive error,

See 440,

:
:
:
;

C
C
C
C

1
1
1
1

Host write compare error,

Error detected
when
Host
CPU
compared
the
data
written and read back. May
be a problem with the Host

;

C 089

43 Message

1
1

Duplicate
unit number
by the Controller.

Unknown end code received.

s C 0839

s
:

0890
0891
0892
0893

C 0894
C 0895

: C 0897
s
;

C 0898
C 0899

:
s

C 0902
C 0903

1
1

; C 0900
: C 0901

1
1

: C 0904
: C 0905

1
1

:
:

C 0907
C 0908

1
1

:
:
:
:
;
:

C
C
C
C
C
g

s
s
:
;

C
C
C
C

C 096

C 0909

0910
0911
0912
0913
0914
0315

0916
0917
0918
0919
0920

1
1

or Controller RAM,
from

internal diagnostics

See

#40,

detected

Problem with the
ler microcode or
DMA interface.

SOFT ERRORS

Controller error,

Host memory access error,

See #50.

Disk

See 450.

1
1
1
1
1
1

1
1
1
1

See

Disk

Interconnect’

See 950,

error,

'Small

Disk'

error.

log

packet

for

details as the exact cause
may not be evident.

transfer error.

'Standard

error

Control-

the port/

See #50,

S5EQ 0022

Page

(21)

I<,”
ZRQAM]
vOol.6

RD/RX EXERCISER

s € 0921
: C 0922
3 C 0923

C 0924

C 0925
C0%6
€ 0927
C 0928
C 0929
C 0920
C 0931
C 093§
C 093
C 0938
€ 093
E 0936

1
1
1
1
1

:
s
:
s

C
C
C
C

:
s
s
:
:
:

0938
0939
0940
0941

C 0942

C
C
C
C
C
C

0944
0945
0946
0947
098
0949

i
s
:
:
:
;s

€
C
C
C
C
C

0951
0952
0953
0954
0955
0956

:
s
:
:
s
s

C
C
C
C
C
C

0958
0959
0960
0961
0962
0963

C
C
C
C

0965
0966
0967
0968

s
:
:

1
1
1
1

C 0950

C 0957

C 0964

C 099
C 0970
C 0971

C 0972

OATA PATTERNS

HE X
-

Pattern 1

VAX-11 Bliss 16 V4.0-579
DISKSUSER?:[PONERS]ZRQADO.8L1:6

NUMBERS

000000

0 000 000 000 000 000

Pattern 3

FFFF

1777727

2111 111

111

Pattern 4

8888

105613

1 000 101

110 001 011

Pattern S

3333

031463

0 011 001

100 110 011

1
1
1
1

Pattern 6

3091

030221

0 011 000 010 010 001

Pattern

O00F

1
1
1

1
1

1
1
1
1
1
1

1
1
1

Pattern 8

000001

000003

000007

000017

111

0 000 000 000 000 001

0 000 000 000 000 011

0 000 000 000 000 111

0 000 000 000 001

111

001F
003F
007F
OOFF
OIFF
O3FF

000037
000077
000177
000377
000777
001777

0
0
0
0
0
0

000
000
000
000
000
000

000
000
000
000
000
001

000
000
001
011
111
111

011
111
111
111
111
111

111
111
111
111
111
111

OFFF
1FFF
3FFF
7FFF
FFFF

007777
017777
037777
077777
1772777

0
0
O
O
1

000
001
O11
111
111

111
111
111t
111
111

111 111
111 111
111 111
111 111
111 111

111
111
:11
111
111

FFFE

177776

111

110

Q7FF

1
13

1
1

0001

0003

0007

RANDOM

BINARY
.-

0000

1
1}
1

OCTAL
- -

Pattern 2

0937

C 0943

7.0

11:56:01
11:45:02

s
i
i
i
:
s
s
i
;
;
;s
H

:
s
:
:

1
1

11 -Apr 1984
11 Apr 1984

FFFC
FFF8
FFFO
FFEO
FFCO
FF80

FFOO

FEOO
FCoo
F800
F000

E000
000
8000

0000

003777

0 000 011

111

177774
177770
177760
177740
177700
177600

1
1
1
1
1
1

111
111
111
111
111
111

177000
176000
174000
170000

1
1
1
1

111 111
111 110
111 100
111 000

177400

160000
140000
100000

000000

111

111
111
111
111
111
111

111

111 111

111

111 111 100
111 111 00O
111 110 000
111 100 000
111 000 000
110 000 000

100 000 000

000
000
000
000

1 110 000 000 000 000
1 100 000 000 000 000
1 000 000 000 000 000

0 000 000 000 000 000

SEQ 0023

Page

23
(223

l(\

ZRQAM]

RD/Rx EXERCISER

v01.6

: C 0973
: C 0974
: C 0975

1
1
1

:
:

0978

1
1

11-Apr-1984

11:56:01

0000
0000
0000

000000
000000
000000

0 000 000 000 000 000
0 000 000 000 000 000
0 000 000 000 000 000

FFFF

177777

FFFF
FFFF

177777
177777

1
1

111
111

111

111
111
111

111
111

111

111
111

111

0000

000000

0 000 000 000 000 000

;: C 0981
: C 0982
: C 0983

1
1
1

FFFF
FFFF
0000

177777
177777
000000

1 111 111 111 111 111
1 111 111 111 111 111
0 000 0CO 000 000 000

:
:

1
1

C 0980

C 0984

C 0985
C 0986

;: C 0987

;: C 0988
: C 0989
: E 8330
:

1
1
1
1

C
C
C
C
C
C
C
C
C
C
C

0992
0993
0998
0995
099
0997
0998
0999
1000
1001
1002

1
1
1
1
1
1
1
1
1
1
1

1008

; C 1006

; C 1005
;

1007

FFFF

:
;:
:
;:
;:
:
;
;:
;
:
;:

; C 1003

0000

1
1

000000

177777

111

0 000 000 000 000 000
1 111 111 111 111 111

FFFF

177777

000000

111

000000
177777

0000

0 000 000 000 000 000

0000
FFFF

0 000 000 000 Q00 000
111 111 111

111 111

|
,

Pattern 10

8609

13333]

1 011 011 011 011 001

Pattern

5555
5555
5555
ARAA
AAAA
AAAA
5555
5555
AAAA
AAAA
5555

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252
052525

0
0
0
1
1
1
0
0
1
1
0

5555

052525

0 101 010 101 010 101

5555

052525

0 101 010 101 010 101 !

AAAA

AAAA
AAAA

125252

125252
125252

101
101
101
010
010
0i0
101
101
010
010
101

010
010
010
101
101
101
010
010
101
101
010

101
101
101
010
010
010
101
101
010
010
101

010
010
010
101
101
101
010
010
101
101
010

101
101
101
010
010
010
101
101
010
010
101

|
|

1 010 101 010 101 010

1 010 101 010 101 010
1 010 101 010

101 010
'

}

V4.0 579

DISK$USER2: [ POWERS JZRGADO.BL1:6

111
111

C 0979

VAX-11 Bliss

11:45:02

C 0976
C 0977

Pattern 9

11 -Apr-1984

SEQ 0024
Page

(23)

[

0202
2020
D202
2020

151322
026455
026455
151322
026455
151322
026455
151322
026455
151322
026455

OroOoroOorOroOorrOoOOoOrr»
000

el el el e

ad ol ol ad ad ad sl et

Pattern

11-Apr-1984
11-Apr-1984
010
010
010
101
101
101
010
010
101
101
010
010
101
010
101
010
101
010
101
010

1045
1046

EXERCISER

110

—OO0000O0O0O00O0OO0OO0O0O0

1038
1039
1040
1041
1042
1043
1044

000
000
000
000
000

2020
2020
2020
0202
0202
0202
2020

ol el ol

2020
0202
D202
2020
2020
0202
2020
0202
2020

ad e
el el el el ad ol ad ol ol ad el od ol el ol ol sl s

1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1C30
1031
1032
1033
1034
1035
1036
1037

RD/RX

(alslalgsinlalislislisisislisinlinlislislisisinlislslisliginlislislialislialslislislialslglislals’ (g}

©F

V¢

G¢

€

B¢

V¢

ZRQAM1
vol .6

026455
026455
026455
151322
151322
151322
026455
026455

151322

Pattern

6086

066666

Pattern

0001
0002
0004
0008
0010

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

0020
0040

0080
0100
0200
0400
0800
1000
2000

4000

8000

000
000

000
000
000
000
000
001
010
100
000

11: 56:01
11: 45:02

110
110
110
001
001

001
110
001
110

100
100
100
011
011
o11
100
100
011
Oll
100
100
011
100
011
100
011
100
011
100

110

000
000
000
000
000
000
000
000
000
001
010
100
000
000
000
000

000
000
000
000
000
000
001
010
100
000

000
000
000
001
010

001

110
110

001
001

110
110
001
110
001
110

000
000
000
000
000
000

101
101
101

010
010
010
101
101
010
010
101
101
010

101

101
101
101
010
010
010
101
101
010
010
101
101
010
101
010
101
010
101

010
101
010
101
010 010
101 101

110

001
010
100
000
000
100 000
000 000

000
000
000
000
000
000
000
000
000

VAX

Bliss-16

v4,0-579

ODISKS$USERZ2: [POWERS ]ZRQGADO.BL1;6

SEQ 0025
Page

(24)

N2
ZRQAM1
vol.6

RD/RX EXERCISER

:
:
:
:
:

C
C
C
C
C

1047
1048
1049
1050
1051

1
1
1
1
1

:
:

C 1056
€1057

1
1

:
;
:
:

C 1052
C 1053
C 1054
C 1055

:
;
:
:

C
C
C
C

1058
1059
1060
1061

;
:
:
:
:

C
C
C
C
C

1063
1064
1065
1066
1067

: C 1062

;

1068

: C 1069
: C 1070
: C 1071
: C 1072
s C 1073
: C 1074
: C 1075
i C 1076
: C 1077
;: C 1078
: C 1079

Pattern 15

1
1
1
1

1
1
1
1
1
1
1
1
1
1
1

1 111
1111
1 111
1 111
1111

111
111
111
111
111

FOFF
FBFF

176777
175777

1 111
1 111

110 111 111 111
101 111 111 111

FIFF
EFFF
OFFF
BFFF

177776
177775
177773
177767
177757

Pattern 16

177737
177677
177577
177377
173777
167777
157777

137777

1
1
1
1

111
111
111
111

1 111
1 110
1 101
1 011

111
111
111
111
111

11:56:01
11:45:02

FFFE
FFFD
FFFB
FFF7
FFEF
FFDF
FFBF
FFIF
FEFF

1
1
1
1

1
1
1
1
1

11 Apr-1984
11-Apr-1984

111
111
ill
110
101

111 111
111 110
111 101
111 O11

O11
111
111
111

011
111
111
111

111
111
111
111

110
101
011
111
111
111
111
111
111

111
111
111
111

T7FFF

077777

0 111 111 111 111 111

8609
8609
8609
086C

133331
133331
133331
155554

1 011 011 011 011 001
1 011 011 011 011 001
1 011 O11 011 O1l1 001
1 101 101 101 101 100

DB6C
8609
8609
086C
086C
8609
086C
8609
08eC
8609
086C

155554
133331
133331
155554
155554
133331
155554
133331
155554
133331
155554

1
1
1
1
1
1
1
1
1
1
1

086C

155554

101

101
011
011
101
101
011
101
011
101
011
101

101

101
011
011
101
101
Ol1
101
011
101
011
101

101

101
011
011
101
101
011
101
011
101
011
101

101

101
011
Ol1
101
101
011
101
O1l1
101
Ol1
101

100

100
001
001
100
100
OOl
100
001

100

001
100

VAX-11 Bliss 16 v4,0 579
DISK$USERZ: [POWERS)ZRQADO.BL1 ;6

SEQ 0026
Pa
(25)

b4
ZRQAMY
vQi.e

RD 'Rx EXERCISER

1 C 1080
: € 1081

1
1

: € 108%

C 1082

1084

;s C 10885
1 C 1086

;s C 1087

¢ C 1088
$1 C 1089
1 € 109

s C 1091
s
s
:
3
1
s
s
:
H

(LBN)
106466

72C9

071311

0 111 001 011 001 001

1
|

72C9
8036

071311
106466

0 111 001 011 001 001
1 000 110 100 110 110

8036
8036
72C9

106466
106466
071311

1 000 110 100 110 110
1 000 110 100 110 110
0 111 001 011 001 001

72C9
72C9
72C9
8036
8036
8036
8036
8036
8036

071311
071311
071311
106466
106466
106466
106466
106466
106466

0
0
0
1
1
1
1
1
1

1102
1103
1106
1105
1106
1107

1
1
1}
1}
1
1}

:
s
s
:
s
s
;
:
:
:
:

C
€
C
€
C
C
C
C
C
C
£

1109
1110
1111
1112
1113
1114
1118
1116
1117
1118
1119

1}
1
1
1
¢
1
1
1}
1}
1
1@

;s
s
:
;
;

C 1123
C 1124
C 1129
C 1126
C 117

1
1
1
1

1120
1121
1122

8D36

C
C
C
C
€

C
C
C

72C9

:
:
:
:
:
:

:
;
;:

8036

1092
1093
1094
1095
109
109"
1098
1099
{{8?

;: C 1108

11:56:01
11:45:02

(LBN)e
8036

£
€
£
€
C
C
C
C
E

Pattern 17

11 Apr-1984
11 Apr-1984

72C9

!
1
1
1}
1
%

1
1
1

Pattern

106466

071311

106466

0713811

(LBN)
1 000 110 100 110 110

1 000 110 100 110 110

0 111 001 011 001 001

1 000 110 100 110 110

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

001
001
001
110
110
110
110
000 110
000 110

011
011
011
100
100
100
100
100
100

This word position contains the number of
block to be wr tten,

8036

001
001
001
110
110
110
110
110
110

the

001
001
001
110
110
110
110
110
110

locical

106466

1 000 110 100 110 110

72C9
8036
8036
8036
72C9
72C9
72C9
72C9
8036
8036
8036

071311
106466
106466
106466
071311
071311
071311
071311
106466
106466
106466

0
1
1
1
0
0
0
0
1
1
1

111
000
000
000
111
111
111
111
000
000
000

001
110
110
110
001
001
001
001
110
110
110

011
100
100
100
O11
011l
O11
011
100
100
100

001
110
110
110
001
001
001
001
110
110
110

001
110
110
110
001}
001
001
001
110
110
110

72C9
72C9
72C9
12C9
72C9

071311
071311
0’1311
0’1%11

0
0
QO
0
0

111
111
111
111
111

001
001
001
001
001

011
011
011
011
O11

001
001
001
001
00!

001
001
001
00!
00t

(LBN)

8036
8036
72C9

(LBN)

106466
106466
071311
071311

(LBN)

1 000 110 100 110 110
1 000 110 100 110 110
0 111 001 011 001 001

VAX-11 Bliss 16 v4,0 S79
DISKSUSFR2: [POWERS JZRQADO.BL1 ;A

56Q 0027

Page

¢7
(2%,

C4
JRAAM]

RD Rx EXtRCISER

Apr 1984 11:56:01

Apr

134631
134631

b b Pt b b P P

043146
043146
043146

134631
134631
134631
134631

Pattern 21
)

1ttt g

b P Pl b Pt Pk [ P P

b P Pt P Pt

Pattern

134631
134631

134631
(LBN)
043146
134631
134631
134631
043146
043146
043146
043146
134631
134631
134631
134631
134631
043146
043146
043146
043146
043146
043146

COOOOO
Tt e e QOO
It e QO

b it P (o

b Pon P8 P

b Pt P

043146
043146
043146
043146
043146
134631
134631
134631
134631

It 1t e QO O oo

(LBN)

gt it QO OO0

(LBN)

ol oS Putb b

Pattern

o Pob P Pt P (s P

buumguzuuughh
QOB-4TNBDBUWNLFOLOD

o Pt

o Pt
Bn

Pt Pt Pt
P8 P

s Pt P
b
b Pt ot P

Pt Pt gt Pt P
P

OONOOONNOOOONNOOOOOONOOOOOOOOODOOONODNOOHOOOONNN

Pl Pt e

B¢

©F

B9 B0 B¢

V¢

G0 G0

BC G0

00 00 G2 G0

Ts OF

We W

vOl.e

1984

(LBN)
110
110
001
001
001
110

11:45:02

011
o011

100
100
100
o11
110 o11
110 o011

VAX 11 Bliss 16 V4.0 579

DISKSUSER?
: { POWE RS 1 ZRNOAD
.. BL
O | ;4

’[090.338 FY
(27,

D4
JRQAM]

RD/RX EXERCISER

vOl.6

11 Apr 1984 11:56:01

PROLRAM MHEADER

}

ssbtt]l ‘'PROGRAM HEADER'

%{z;

{

library

3
i

sé’g
>

1
1

require 'BLSMAC.REQ;

H
:
3
H
H
3
H
H
H

sg"g
T
P 0 B
2675
2676
267"
2678
P %%
2680

1
1

}{Zz

H
:

3
H
:

2671

2681
2682
2083

1
1
1
1
1
1
1
1
1

‘'ZRAADO.L16';

1l teral

DSSNBR OF

TESTS

Apr

1984

11:45:02

RDRX EXERCISER GLOBAL

! NUMBER OF

TESTS IN THIS DIAGNOSTIC

POINTER (ALL);

t.
! THE PROGRAM HEADER IS THE INTERFACE BETWEEN
! THE OIAGNOSTIC PROGRAM AND THE SUPERVISOR.
H

LIBRARY

' DIAGNOSTIC SUPERVISOR ( IBRARY

EQUALS;

HEADER (sasc:
i 'ZRQA

VAX 11 Bliss 16 v4.0 579

DISKSUSER?: [POWERS JZRQADO.BL L : 6

sasc’':

D',

sascii‘'0',

32767,

PRIOO);

’“‘9232" 29
(28)

)
ZRQAM1

po Pt

2687
2688
2689
2630
2691

1o P

2684
2085

b =0 gt P

vol.6

RO/RX EXERCISER

1984

11:56:01

DISPATCH TABLE

11 Apr-1984

11:45:02

ssbttl

‘DISPATCH

Apr

TABLE®

!t
¢t

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST,
IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST,

DISPATCH (DS$SNBR OF

TESTS);

VAX-11 Bliss 16 v4,0 579
DISKS$USERZ:
[POWFRS JZRGADO.BL L6

5€Q 0030

Page

30
(29)

I3
ZRQAML

RD/RX EXERCISER

vOl.6
:

2692

:
:
:
H
3
:

2694
2695
2696
2697

H
:
:
H
:
3

:
:

H
:
:
:
H
:
:
:
:
H
:

2709
2710
2711
2712
2713
5712
71
2716
2717
2718

2719

2720
2721
g;gg

H
H

2724
2725

H
:

2728
gggg

2731

:
:

1
1
1
1
1
1

e
! THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED
* IN MORE THAN ONE TEST,
!

2726
2727

1
1
1
1
1
1

1
1

1
1
1
1

1
1
1
1
1
1

1
1
1

1
1

global,

ref block

blockvector

RORX_ADDR
IRDRX_ADDR
:

TALLY

[DCT_LEN, word) field (DCT_FIELDS),
ADDRESS OF "CURRENT DRIVER CONTROLLER TABLE
ref rdrx field (RC_REG),
' DEVICE ADDRESS OF "CURRENT” CONTROLLER
!

ref rdrx field (RC_REG),
! DEVICE ADDRESS OF

BLOCKVECTOR
:

“CURRENT" CONTROLLER

[MAX_CTLR, DCT_LEN, word] field (DCT FIELDS),
! DRIVER CONTROLLER TABLES

ref block
:

[CST_LEN, word] field (CST_FIELDS),
! CONTROLLER STATUS TABLE ADDRESS OF

vector

INTERRUPTING CONTROLLER

[MAX_UNITS, 2, WORD],
SCONTAINS LO+ HI LBN FIELDS FOR SEQUENTIAL
1170 TRANSFER FOR EACH UNIT,

[MAX_UNITS

T_ADDR

ref block

DUPPKT

BLOCK

TALLY_LEN,

word)

field (T_FIELDS),

PKT_USE

vector

H
H

2742
2743

1
1

1222
1222
1222

' STATISTICS TABLES
[TALLY_LEN, word)] field (T_FIELDS),
! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT

(257,

blockvector

[MAX_CTLR,

C_ERR_LEN,

word)

field

RETPKT

RP_USE

RP_INDX

RP _ADDR

word,

¢!

byte,

signed],

[RP_CNT,

ref block

!
!

byte,

signed],

RETURN PACKET POOL ALLOCATION TABLE
CURRENT RETURN PACKET INDEX

[RP_LEN,

word]

field (RP_FIELDS?,

222
7222

ERR FIELDS),

MSCP PACKET POOL ALLOCATION TABLE
blockvector [RP_CNT, RP LEN, word] field (RP FIELDS),
¢t RETURN PACKET POOL
vector

[PKT_CNT,

222
222

1222
222

' STATISTICS TABLE FOR CONTROLLER ERRORS
MSCP _PKT : blockvector [PKT_CNT, PKT_LEN, word) field (PKT FIELDS),
! MSCP PACKET POOL
IPKT _ADDKk : ref block [PKT_LEN, word) field (PKT_FIELDS),
! ADDRESS OF AN MSCP PACKET (INTERUPT PROCESSING)
:

16 v4,0 579

DISKSUSERZ2 : [POWERS JZRQADO.BL1;6

concatenate);

1
1
1

2744

noexecute,

C_ERR_TBL

2738
2739
2740

;

write,

:
H
:

2741

DCT_ADDR

BST

VAX-11 Blises

: blockvector (MAX_CTLR, CST_LEN, word] field (CST_FIELDS),
! RUN-TIME CONTROLLER STATUS TABLES

CST ADDR
DCT

(read,

1
{
1
1
1
1
1

$FFF$

1
1

2732
2733
2734
2735
2736

2737

WORD] FIELD (DP_FIELDS),
'BUFFER FOR DUP
'INFO FROM RECEIVE + SEND CMDS
TRK_SGN : VECTOR [MAX_UNITS, BYTE, SIGNED] INITIAL (BYTE (REP
MAX_UNITS OF (1)),
'CURRENT TRACK DIRECTION
ROM_CNT : WORD INITIAL (RDM _LEN),
INO OF RANDOM NOS
\\KEEP
RANDOM : VECTOR [RDM_LEN, WORD],
'!RANDOM NO. TABLE
//TOGETHER

H
:
;
H
:

CST

11:56:01

'GLOBAL DATA SECTION'

psect
global

global

1984

11 Apr-1984 11:45:02

ssbtt]l

2698
2699
2700

2707
2708

Apr

:
:
H
H

GLOBAL DATA SECTION

2693

2701
2702
2703
2704
2705
2706

5@ 0031
Page

1371

(30)

BN
ZRQ@AML
vol.6

RD/RX EXERCISER
GLOBAL DATA SECTION

2745

2749

3
:
:
:

:
H

:
:

:
H
:
:
:

:
:

:
H

:
H
:
H
:
H
:
:
:
H

2746
2747
e748

2750

2751
2752
2753
2754

2755

2756

2757
2758
2759
2760

1
1
1

ELOG PKT

I0DQ

1
1

BUFF _OWN :
:

vector [MAX BUF CNT, byte,

vector

[IODQ_LEN,

IODQ_IN : word,
I0DQ_OVUT : word,

ENTRY _REASON : byte,
EOP_FLAG : byte,

CCTLR

QIO

vector

1
1

DUP _FLAGS

WORD,

COISK : word,
CUOFF : word,
CTLR_CNT : word,
DUR : vector [MAX_UNITS,

271

2763
2764

1
1

BYTS_PER_QIO : word,
ST_CODE : word,

1
1
1
1
1
1
1

OF _RC : signed word,
SA_REG : word,
CMD_TIME : word,
NEX : word,
CRN_LOW : word,
CRN_HIGH : word,
CREDIT_BAL : word,
NEXT _PKT USE : byte,
HOURS : byte,
MINUTES : byte,

2762

2765
2766

1
1

H
:

2781
2782

2783
2784
2785
2786
2787
g;gg

1
1
1
1
1
i

2790

1
1
1
1
i
1
1

byte],

(MAX CTLR,

FREE _MEM_ADDR,

byte],

bytel,

S8 CODE : word,
STEP : word,

CLK_TICKS

word,

CLK_PRESENT : byte,
HOE _FLAG : byte.
S_PATTERN : WORD,
S_DUPPKT : WORD,

P_INDEX : SIGNED WORD,
FORCED_ERROR : byte,
FER_LBN : word,
FER_BC : word,
INIT OCCURED : byte initial
ADDR VECT OK : byte in"t'al
ERRTBL;

SEQ 0032

signed],

field (EP_FIELDS),

TABLE OF

I/0 BUFFER DESCRIPTORS

170 BUFFER QWNERSHIP (CONTRO!I
LER NUMBER)

'
!

I/0 DONE QUEUE IN POINTER
I/0 DONE QUEUE OUT POINTER

170 DONE QUEUE

CIRCULAR QuUrUE

OF RETPKT

!
'

CURRENT OPERATOR COMMAND
END-OF -PASS FLAG

NUMBER OF

NUMBER OF QUTSTANDING QIOs PER CONTROLLER

'DUP FLAGS

word,

1
1
1

:
:

H
:
H
:
H
:

BUFF _ADDR

VAX-11 Bliss 16 v4,0 579
DISKS$USERZ: [POWERS 1ZRGADO.BL1;:6

! CURRENT RETURN PACKET ADDRESS

blockvector [EP CNT + 1, EP LEN, word]
! ERROR LOG PACKET SAVE AREA
: vector [MAX BUF _CNT],

1
1

2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
2777
2778
g;;g

11-Apr-1984 11:56:01
11-Apr-1984 11:45:02

!
!
!
!
'

'
!

¢
'

!
!
!
*
'
!
!
!
!
'
!
!
!

INODECES

222

"“CURRENT' CONTROLLER

CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET
TOTAL NUMBER OF CONFIGURED CONTROLLERS
DROP UNIT REASON
START

FREE

MEMORY

SIZE (BYTES) OF AN 1/0 BUFFER
CURRENT STATUS CODE
.

CURRENT SuUB-CODE
CURRENT STEP IN HARD_INIT

OFFSET (O OR 2) TO READ IP OR SA
STORAGE FOR SA REGISTER READS AND WRITES
COMMAND TIMEOQUT VALUE (IN SECONDS)
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT
COMMAND REF NUMBER (HI ORDER)
CREDIT BALANCE
POINTER TO NEXT ENTRY IN PKT USE TABLE
TIME OF DAY (HOURS)
TIME OF DAY (MINUTES)

TIME OF DAY

FLAG
FLAG

'PATTERN FOR DUP WRITES
!DBN BYTE COUNTER

(LINE CLOCK

INDICATES
INDICATES

TICKS)

IF LINE-CLOCK PRESENT
IF 'HALT ON ERROR' FLAG SET
222
222

'CURRENT MESSAGE PACKET INDEX
222
t “FORCED ERROR” DETECTED IN LAST READ
! LBN OF THE “FORCED ERROR" BLOCK
! BYTE COUNT OF THE ‘FORCED ERROR‘ BLOCK
(byte (FALSE)),
! EXERCISER INITIALIZATION COMPLETE
(byte (FALSE));
! FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED

Page

32
(30)

H 3

2819

2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2837
2838
2839
2840
2841
2842
2843

et P

]

SECTION
TEXT

Apr

1984

11:56:01

VAX-11

11:45:02

Bliss

v4.0 579

DISK$USERZ2:
[POWERS ]ZRQADO.BL1 ;6

SECTION'

global bind
]

HARDWARE DIALOG
HWQAl
HWQ2
HWQ@3
HWQ4

=
=
=
=

uplit
uplit
uplit
uplit

(sasciz’'
IP address’'),
(sasciz’'Vector'),
(sasciz'BR level'),
(vasciz'Orive number'),

1222
HWQAS = uplit (Masciz'Test entire customer area of this disk'),
1222
HWQR6A = uplit (sasciz’'Lower octal word of beginning LBN address’'),
222
HWAE6B = uplit (sasciz'Higher octal word of beginning LBN address’'), 727
HWQR7A = uplit (sasciz’'Lower octal word of ending LBN address’),
1222
HWA7B = uplit (sasciz'Higher octal word of ending LBN address'),
1227
HWQ@8 = uplit (sasciz'Write on customer data area on this disk'),
HWQRA9 = uplit (sasciz’'+e WARNING - CUSTOMER DATA AREA MAY BE OVERWRITTEN!
HWQA10 = uplit (sasciz'Also run DUP exerciser'),
1227
HWQ1l = uplit (dasciz'Write on diagnostic area ),
1222

e
et b P

TEXT

11-Apr-1984

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

i b Pt b e

b b b b Pt b b b P P

!
'
!

...

CONFIRM'
),

]

[]

SOF TWARE DIALOG

SWAl

Pt et P

2814
2815
2816
2817
2818

'GLOBAL

SWQ2

= uplit (wasciz'Hard Error limit’'),

uplit

SW@4
= uplit
SWR7
= uplit
SWQA9
= uplit
SWR10 = uplit
SWQll = uplit
SWR12 = uplit
SWQA13 = uplit
SWQA14 = uplit
SWAL1S = uplit
SWQALl7 = uplit
SWA1S = uplit
SWQR20 = uplit
SWQA21 = uplit
SWQ@22 = uplit
SWA23 = uwlit
SW@24 = uplit
SWARS = uplit
SWML
= uplit
NULL
= uplit

i P

2805
2806
2807
2808
2809
2810
2811
2812
2813

ssbttl

GLOBAL

Pt Pl i Pt b o

2804

EXERCISER

et b s b et Pt b b e Ped b Pu Pt P

2791
2792
2793
2794
2795
2796
2797
2798
2799
2800
2801
2802
2803

RD/Rx

b 8 od b b b P

ZRQAM1
vol.6

(sasciz' Transfer

limit

in megabytes

for

"Quick

pass’')

'0'

!
!

(dasciz'Random seek mode’'),
(sasciz'Read-compares performed at the Controller’'),
(sasciz’'Write-compares ,.erformed at the Controller ),
(vasciz'Check all Writes at Host by
reading’'
),
(sasciz'User-defined data pattern’'),
(¥asciz’'Select pre-defined data pattern (0 for Sequential select’'on) ),
(sasciz'Number of words in data pattern (16 maximum) ),
(sasciz'Pattern value (No leading zeros allowed)’),
(sasciz'Clear statistical tables after printing’'),
(sasciz'Percentage of "Fixed Disk” operations out of total operations ),
(sasciz'Units to be selected at random (No, implies sequential)’),
(dasciz'Want to rewrite blocks when "Forced Error'” detected on reads ),
(sasciz'Do you want to halt on other Hard Errors (¢s 31-34, 36 37, 39-45)'),
(wasciz'Do you want to halt on Soft Errors (8s 50-54)'),
(sasciz’'Do you want to halt on Bad block Hard Errors (0s 35, 38)'),
(sasciz'Enter time as HHMM (Example: 1305 No leading zeros allowd) ),
(sasciz’'Count each retry on a Read/UWrite error as a seperate Soft Error’
),
(sasciz’'The remaining quest 'ons only apply to unprotected disks ),
(Wasciz’' '),

THE FOLLOWING DBMs ARE DEBUG MESSAGES, AND SHOULD BE REMOVED BEFORE
RELEASING THE PROGRAM,
THEY INCLUDE THE NAMES OF EACH ROUTINE, PLLS

5EQ 0033
Page

33
(31)

13
RD/RXx EXERCISER

ok b b Pt Pt
P P
i Db (ot Pt Pt (b P Pt (ol P
b [
et P
b e P
[
P P
b (s i e P
(b b P

11-Apr
11 Apr

SECTION

STATEMENTS FOR

DBMS

PRINTING

(dasciz'¥NsAss
(sasciz' ¥NwAse
(vasciz' #¥NSAss
(Sasciz' SNSAs»
(sasciz’'sNsSAse
(dasciz' ¥NsAss
(dasciz'SNsSAse
(sasciz’' SNsSAse
(dasciz'dNsAss
(sasciz’'¥NsAse
(dasciz'%NSAsa
(dasciz'sNsAss
(dasciz'dNSAss
(dasciz'SNsAss
(dasciz'SNsAse
(vasciz'uNEAse
(sasciz'uNSAss
(dasciz'uNEAse
(sasciz' #NsAse
(dasciz'dNEAss
(asciz'SNdAse
(sasciz' ¥NsAse
c
iz’ SNsAss
(sas
(dasciz'dNsAse

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

uwplit
uplit
uplit
uplit
wplit
wplit
wplit
wplit
uplit
wplit
uwplit
uplit
wplit
uplit
wplit
uwplit

DBM10S
DBM107
OBM108
DBM109
OBM110
OBM111
DBM112
DBM120
OBMi2l

=
=
=
=
=
=
=
=
=

uwplit
uwplit
uwplit
uplit
uwplit
wplit
wplit
wplit (sasciz'¥NSAss
wplit (dasciz' SNuAss

08M104

OUT OTHER

1984
1984

uplit

11:56:01
11:45:02

VAX-11 Bliss 16 v4 ,0-579
DISK$SUSERZ2:
[POWERS 1ZRQADO.BL1;:6

INFORMATION.

= uplit (sasciz'%NsAee ODrop unit #D2'),

DBM12
DBM15
OBM18
OBM19
0BM20
OBM21
DBM22
pDBM23
DBM2S
0BM2E6
DBM27
DBM2BA
08BM28B
DBM29
oBM32
DBM101

PROC _RETPKT: Conn ID %06%A
Multi-drive test’'),

received

FATAL _ERROR: RETPKT not available'),
FSET_UPAR: Can''t find disk #D3sA in

CST

«D1’),

Bad conn ID #068A received from %06’ ),
Message type S02%A received in MSCP packet
SEQUEN: RETPKT not available'),
Error

in SET_CTLR CHAR' ),

Ctlr timeout = SD3%A. seconds'
),
Error in UNIT_INIT'),
UNIT_INIT: RETPKT has bad ENDCODE'
),
Unit size (Lo) = #DSSA,'),
Unit size (Hi) = #DS#A, '),
ACCESS:

RETPKT has bad ENDCODE'),

Unit

is:

QIO_UNIT:
¢

CST #D1%A no unit selected’),
806'),
is selected’),
is selected’'
),

Removable disk

Fixed disk

Illegal function: #06'),
Command ref & S06%A/#06%A (Oct) not sent by Host
Unknowr trror Log format #03%A

received’'),

Error Log save area full'),
Op-code 803%A, End-code s03%A for ref & %06%A/#06%A (8) )
Cmd-bc S068A/406%A Rsp-bc 8068A/806%8A for #068A/8068A (8)
Response already received for cmd #06%A/%06%A (8) ),
Failure to send command after 0 %06%A/%06%A (8)'),

DROP UNIT MESSAGES
DU_MSG
DU RSN

P P

2873
2874
2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896

FORMAT

it b ot b P

2872

TEXT

(d Pd o

2869
2870
2371

b Pt Pt (s B P P

2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868

GLOBAL

V¢

BE G0

V¢

G¢

G0 G0

B¢

VO OGP G7 OF

S0 G4 W0

ZRQ@AM]
vOol.6

= wplit
= uwplit
uplit
uplit
uplit
uplit
uplit
wplit
wplit
wplit
uplit
uplit
uplit

(sasciz' WNSAUNITeD24A DROPPED - '),
(
),
(sasciz’' wAUSER COMMANDSN'
(sasciz’'ACONF IGURATION ERROR®N'
),
),
(dasciz'#AINIT ERRORs®N'
(sasciz'SATRANSFER LIMIT REACHEDSN'
),

(sasciz'wAERROR LIMIT REACHEDSN'
),
(dasc 2z2°'wAUNRECOVERABLE DRIVE ERRORsN'
),
(sasciz' SAUNRECOVERABLE CONTROLLER ERRORSN'
),
(dasciz'sAFAILED TO COME ONLINESN'),
(sasciz’'wAFAILED TO ACCESS EITHER FIRST OR LAST
(sasciz'wADISK WRITE PROTECTEDSN'
),
(dasciz'wACOMMAND TIME OQUTSN'
)) : vector

SYSTEM MESSAGES (PRINTF)

MSG_01

uplit

(sasci:z'SNSAPOWER DELAY

MSG_03

uplit

(sasciz' SNSNSAEXERCISER STARTEDSN'
),

MS5G_02

uplit

(sasciz
' ¥NSAFUNCTIONAL

WAITING'
),

TEST

STARTED'),

(11],

TRACK

DURING

INITsN'),

56Q 0034

Page

34
(31)

J3
ZRQAAM]

RD/RX EXERCISER

vol.6

GLOBAL TEXT SECTION

233;

:
:
i
:

2899
<900
2901
2902

1
1
1
1

:
3

2903

2904
2905

2906

:
:
:

2907
2908
2309

2911

2910

2912

:
:

2915
2916

1
1

2918

:
H

2919

291
2922
2923
2324
2925
2926
2927

1
1
1
1
1
1
1

2920

:
:
:
H

2928
2929
2930
2931

:
H
H
H
:
H
B

:
H
:
H
H

:
H
:
-

2932
2933
2934
gggg
2937
2938
ggig

1
1
1
1

1
1
1
i
1
1
%
|
1

H
H

1
1

uplit
uplit
uplit
uplit

= uplit (sesciz'¥A
-- --- --- --= uplit (%asciz’'wNeD2s#DAESONT'
),

= uplit

(sasciz’' SNSNSAUNT DSKeS8%AH OF
& BYTES
& OF
(sasciz’'sA
HARD ERRORS
SOFT ERRORS -'),
(sasciz'sN$A &
&
TYPE
READS
READ
WRITES
(wasciz'#A
SEK DAT DRV HST SEK DAT DRV HST'),
(Wasciz'®N$A---

-._..

2947
2948

2949

1}
1
1

DISK$USER2: [POWERS 1ZRQADO.BL 1 ;6

& BYTES'
),
WKITTEN'),
-

= uplit (sasciz'wDA%Z3%D3I%N,
%Z3%A w23 ),

RPT9
= uplit (sasciz'wD4sDA%DA%D4A%DA%DA%DAND4E’
),
RPT10 = uplit (wasciz'SNSA ,
.
CNTR
e
teeieeenn
RPT11 = uplit (sasciz’'
%A
.
.%D4%A
.
.
.#D4%A

reeeeeeen

SYSTEM FATAL (ERRSF)

EGS_01 = uplit (sasciz’'TOO MANY UNITS'),
EGS_02 = uplit (sasciz’'NOT ENOUGH FREE MEMORY FOR ALLOCATING READ/WRITE BUFFERS

EGD_10 = uplit (sasciz'REGISTER EXISTENCE TEST FAILED ),
EGD_11
EGD_12
EGD_13
EGD_14
EGD_15
€EGD_16
EGD_17

H
'
!
!
!
H
'

!
H

ORIVE FATAL (ERRDF)
=
=
=
=
=
=
=

uplit
uplit
uplit
uolit
uplit
uplit
uplit

(sasciz’'VECTOR TEST FAILED'),
(sasciz’'BR LEVEL TEST FAILED'),
(wasciz’'INIT SEQUENCE FAILED'),
(sasciz'FATAL CONTROLLER ERROR'),
(vasciz'ONLINE FAILED'),
(sasciz'WRITE-PROTECT CONFLICT'),
(sasciz'ACCESS FAILED'),

EGD_18 = uplit (sasciz’'FATAL I/0 ERROR'
),
EGD_19 = uplit (sasciz'CONTROLLER TIMEOUT'),
EGD_19 = uplit (sasciz'DISK TYPE UNKNOWN TO EXERCISER'),
EGD_20 = uplit (sasciz'FAILED TO SEND SET CONTROLLER CHARACTERISTICS COMMAND

),
EGD_21 = uplit (sasciz’'SET-CONTROLLER-CHARACTERISTICS RESPONSE HAS BAD ENDCODE OR FLAGS IN ERROR
EGD_22 = uplit (sasciz'FAILED TO SEND ON LINE COMMAND'),
EGD_23 = uplit (sasciz’'ON LINE RESPONSE HAS BAD ENDCODE ),
EGD 24 = uplit (sasciz'ON-LINE RESPONSE HAS UNKNOWN DEVICE ),
HARD or SOFT (ERRHRD or ERRSOFT)
EGH_30

uplit

(sasciz’'I/0 REQUEST FAILED'),

[]

;2941
H
2942
:
2943
:
2944
:
gg:g
H

RPT6
RPT?

5€EQ 0035

11 Bliss 16 v4,0 579

' GENERAL ERROR MESSAGES

2917

=
=
=
=

RPT8

VAX

11 Apr 1984 11:45:02

RPT1
RPT2
RPT3
RPT4
RPTS

2913
2914

1
1

1
1
1

11:56:01

' REPORT MESSAGES (PRINTS)

11-Apr-1984

BASIC ERROR MESSAGES (PRINTB)
SYSTEM FATAL

EBS Ol

= uplit

DRIVE FATAL
€B8D

uplit

(ERRSF)

(wasciz’'sAMORE

THAN #D2%A UNITS SPECIFIED

(ERRDF)
(sasciz's#As NO RESPONSE

ADDRESS #06

Page

(313

1< 4

b (d (b s pb b b (e

SECTION

uplit
uplit
uplit
uplit

)
'
L)
+
]
[}
1
]

(#ASCIZ’
(®ASCIZ’
(®8ASCIZ’

"
I
I

11 Bliss

UNRECOGNIZED
UNRECOGNIZED
UNRECOGNIZED
UNRECOGMIZED
UNRECOGNIZED
UNRECOGNIZED

MSCP

MESSAGE TYPE'),
CONNECTION ID'),
RETURN MESSAGE'
),
RETURN PACKET'
),
CRN'),
OPCODE’
),

STATUS CODE ERR'),

DUP STATUS CODE ERR’ ),
UNRECOGNIZED STATUS CODE' ),
LBN HOST COMPARE ERR'),
- DBN HOST COMPARE ERR'),
- UNABLE TO LOAD DUP MEDIA'),
- ERR IN DUP PKT WHEN USING CTLR LC PROG'),

1222
1222
1222
1222
1222
1222
1222
1222
1222
1222
1222
1222
1222

ERR_00
ERR_COD

= uplit (sasciz'sAs DISKsD2'),
= uplit (

uplit (sasciz’'sSAINVALID COMMAND'
),
uplit (sasciz’'#ACOMMAND ABORTED'
),
uplit (sasciz'SAUNIT OFFLINE'),
uplit

uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit

(sasciz'sATRANSITION

TO AVAILABLE

ERROR LOG MESSAGE
ELG_00
ELG_FMT

= uplit
= uplit

uplit
uplit
wplit
uplit
uplit

STATE'),

(sasciz'$AMEDIA FORMAT ERROR'
),
(sasciz'SAWRITE -PROTECTED' ),
(sasciz'SADEVICE COMPARE ERROR’
),
(sasciz'wADATA ERROR'),
(sasciz'sAHOST BUFFER ACCESS ERROR ),
(dasciz'wACONTROLLER ERROR'
),
(sasciz'#ADRIVE ERROR'),
(sasciz’'$AMESSAGE FROM INTERNAL DIAGNOSTICS'),
(sasciz'#AHOST COMPARE ERROR'),

uplit (Wasciz'SACOMMAND TIMEOUT'))

vector [14],

(ERRSOFT)

(sasciz’'SAERROR LOG MESSAGE RECEIVED:®N'),
(
(dasciz'%As CONTROLLER ERRORSN’'
),

(dasciz'#As» HOST MEMORY ACCESS ERROR#N’
),
(dasciz’'sAs DISK®D2#A
DISK TRANSFER ERROR®N'
),
),
(sasciz'#As DISKED2®A - "GSTANDARD DISK INTERCONNECT:' ERRORSN'
(sasciz'sAs DISKSD2#A - “SMALL DISK" ERRORSN')) : vector (S],

EXTENDED ERROR MESSAGES (PRINTX)

16 v4.0 579

DISKS$USERZ:
[POWERS JZRQADO.BL1;6

SOFT (ERRHRD or ERRSOFT)

(®ASCIZ'
(®ASCIZ'
(%ASCIZ'
(%ASCIZ’
(#ASCIZ’
(#ASCIZ'
EH _9 = UPLIT (#ASCIZ’
EH 210 = UPLITY (#ASCIZ'
EH 212 = UPLITY (%ASCIZ'
EN 213 = UPLIT (#ASCIZ'
I

VAX

INCORRECT BR LEVEL FOR DRIVE #06'),
STEP %D1%A READ ERROR'),
BAD SA CODE FROM DRIVE #06'),
DISKED2sA WENT OFFLINE'),
uplit (%asciz'%As DRIVE #06%A NOT PROCESSING COMMAND PACKETS'
),
uplit (Wasciz'#As DISK#DO®A WENT TO THE "AVAILABLE" STATE'),

HARD or

UPLIT
UPLIT
UPLIT
UPLIT
UPLIT
UPLIT
UPLIT
UPLIY
UPLIT

11:56:01
11:45:02

(sasciz'wAs
(sasciz'sRe
(sasciz'wAs
(sasciz'sAs

b b (e P P P

b b et (b e P P P

et s et Pt b

€EBD_.12
€EBD_13
EBD_14
€BD_18
EBD_19
€E8D 24

b b b b P e it [k (b e b P
b (b Pt Pk P
Pt e e e P Pt P

S0 G0 &
GF S0 V0 V) OF @0 GO0 O2 O S0 G5 S5 G0 G0 05 VI 08 68 G0 B
o G0 V¢ V5 V0 GO 00 G
GO Ve
e Ve Vs W G5 Ve G
G
Ve VI Ve ST
©F @6 B9 B0 V8 B2 G

TEXT

GLOBAL

vOol.6

2950
2951
2952
2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002

11 Apr-1984
11 Apr-1984

RD/Rx EXERCISER

ZRQAM]

SEQ 0036

Page

36
(31)

|
ZRQAM1

RD/RXx EXERCISER

vO01.6

GLOBAL TEXT SECTION

3
:
:
:
:
:
:
:
:
3
:

3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013

1
1
1
1

EX_SA
EX_SC
EX_SBO
EX_SB

EX_RD

:
:
:
:
:
:

3015
3016
3017
3018
3019
3020

1
1
1
1
1
1

:
:

:
H
H
:
:
H

3014

3021

3022
3023

3024
3025

3026
3027
3028

3029

3030

gggé

:
:
:
:
:
H

3033
3034
3035
3036
3037
gggg

H
H

3040
gg:é

:
;
H

3043
ggzg
ggzg

1
1

3054

3055

uplit
uplit
uplit
uplit
uplit
uplit

(sasciz'sNsAs
(sasciz'sNsAs
(sasciz'®NsAs
(sasciz'#NwAs
(sasciz'sNwA+
(dasciz'sNsAs

EX_CBC
EX_CBR

=
=

uplit
uplit

(sasciz'sNsAs BYTE COUNT
(sasciz'#Ns¥As BYTE COUNT

EX BD
EX_BDR
EX_BDW

= uplit
= uplit
= uplit

(sasciz'sNsAs
(sasciz'sNsAs
(sasciz'sNsAs

EX_WRD

= uplit

(dasciz'sA #06'),

= uplit (#asciz'sNswAs BAD BLOCK (Host replaceasble):

uplit

1
1

%DS#A.

(OCT #06%A)’'),

(OCT #06sA)’'),

IN COMMAND: ®DSsA.'),
IN READ COMMAND: ®DSsA.’'),

!
!
!

=
=
=
=
=

I/0 BUFFER ADDRESS (32 bits): #06%A #06°'),
1/0 BUFFER ADDRESS FOR READ (32 bits): #06#A %06' ),
I/0 BUFFER ADDRESS FOR WRITE (32 bits): S06%A #06' ),

TIME:

COMMAND/RESPONSE PACKET

SAVE

AREA:sN

#Z28A:8Z72%A HOURSSN'
),
’

UPLIT (#ASCIZ'#N®A « DISK : #D2'),
UPLIT (#ASCIZ' wNwADBN: #DS%A. (OCT #06%A)'
),
UPLIT (®ASCIZ'wN®ABYTE NUMBER: %D3'),
UPLIT (#ASCIZ' wNSARANDOM WRITTEN WORD :#B816'),
UPLIT (®ASCIZ'%NSARANDOM READ WORD b'n:%B16%A oct:%06

1222
1222
1222
1222
1222

CONFIGURATION ERROR MESSAGES (PRINTF)
CER_O1
CER 02

= uplit
= uplit

(wasciz'SNSADUPLICATE UNIT:#D2%A AT IP: #06 ),
(sasciz’'SNSAMORE THAN #D1sA DIFFERENT IP ADDRESSES

ERROR/EVENT SUB CODES (PRINTX)

SC_SDI

= uplit (sasciz'sASPIN-ODOWN IGNORED'
),

SC CON
SC_OUP

=
=

uplit
yplit

(sasciz'sASTILL CONNECTED'),
(sasciz'sADUPLICATE UNIT NUMBER'),

SC_UNK

uplit

(sasciz’'SAUNIT

UNKKNOWN OR ONLINE

SC_IOP

uplit

(sasciz'SAUNIT

INOPERATIVE

SC_ONL = uplit (sasciz’'eAALREADY ONLINE‘),
SC_SON = uplit (sasciz'sSASTILL ONLINE'),
SC_VOL

TO ANOTHER CONTROLLER

= uplit (sasciz’'#ANO VOLUME MOUNTED OR DRIVE DISABLED By
(RD51/52 write

fault)

v4,0-579

DISK$USER2: [POWERS)JZRQADO.BLL;:H

1st BAD BLOCK (Host replaceable): #05%A. (OCT #06%A)’
),
BAD BLOCK REPORTED (Replaced): #DsA. (OCT #w06%A)‘
),
LBN: wDS#A. (OCT #%06%A)’
),
PBN: wDS#A, (OCT ®06%A)'
),
LBN: (READ) wDS#A. (OCT #06%A)'
),
LBN: (WRITE) #DS#A. (OCT #06%A)'
),

(dasciz'SNSACONTENTS OF

XX13
XX23
XX32
XX33
XX34

3051
3052

;

=
=
=
=
=
=

Bliss-16

'),

(wasciz'SAWRITE'),
(Wasciz'sA-COMPARE"
),
(wasciz'SAONLINE'
),
(sasciz'#AACCESS'),
(Wasciz'#03'),

1
)
1
1
1
i

:
:

3053

EX_BB1
EX_BBU
EX_LBN
EX PBN
EX_LBR
EX_LBW

(sasciz'%AREAD'),

EX TIM = uplit (dasciz'sNsSAs

EX_WRT
EX_CMP
EX_ONL
EX_ACC
EX_OF

(wasciz'sNsAs COMMAND:

3048

3049
3050

(wasciz'¥NsAs SA: #06'),
(sasciz'®#NsAs STATUS CODE: %02'),
(%asciz'#04'),
(sasciz'sNwAs SUB_CODE: '),

EX_RP

VAX-11

EX CBW = uplit (sasciz'®NsA+ BYTE COUNT IN WRITE COMMAND: «#DS#A.'),
EX_BC
= uplit (sasciz's#NsAs ACTUAL & OF BYTES TRANSFERRED: #DSs®A.'),

1
1
1

1
i

11:56:01

EX_RBN = uplit (sasciz’'#NsAs REPLACEMENT BLOCK NO. #DS#A.

1
1

1
%

1984

11 Apr-1984 11:45:02

uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit

EX_ BB

Apr

=
=
=
=
=
+
=
=
=
*
=

EX_CMD

1
1
1
1
1

:
:

SWITCH
),

1},

S5EQ 0037
Page

(31)

M3
ZRQAM]

RD/RX EXERCISER

vol.6

11-Apr-1984

GLOBAL TEXT SECTION

11:56:01

VAX-11 Bliss

11-Apr-1984 11:45:02

16 v4,0 579

DISK$USER?2: [POWERS }ZRQADO.BL1 ;6

3056

SC_DIS = uplit (wasciz'$AUNIT DISABLED BY FIELD SERVICE OR INTERNAL DIAGNOSTICS'),

3059

SC_ISH = uplit (sasciz'wAFCT OR RCT UNREADABLE

:
:

H
H
H
H
:

3057
3058
3060

3061
3062
3063
3064

3065

1
1

1
1
1
1

3066
3067

1
1

3071

:
:
:
3
:
:

:
H
:
H
:
:
:
H
:
H
:
:
H
H
H
:
H
:
:
H
H
H

3068
3069
3070
3072
3073
3074

3075
3076
3077
3078
3079
3080
3081
3082
3083
3084
3085
3086
3087
3088
3089
3090
3091
3092
3093
3094
gggz

H
H
H

3104
3105
3106

1
1
1

3103

3107

2108

= uplit

(sasciz'wAHEADER COMPARE ERROR

(sasciz'sARCT CORRUPTED'),

=
=
=
=

uplit
uplit
uplit
uplit
uplit

- INVALID SECTOR HEADER'),

(Val id header not

found)'),

(wasciz'#AFCT OR RCT UNREADABLE - DATA SYNC TIMEOUT'),
(sasciz's#ADATA SYNC NOT FOUND (Data sync timeout)'),
(sasciz'wAFCT OR RCT UNREADABLE - UNCORRECTABLE ECC ERROR'),
(sasciz'wAUNCORRECTABLE ECC ERROR'),

SC_FCT
SC_ECL
SC_EC2

= uplit
= uplit
= uplit

(sasciz'¥ADISK NOT FORMATTED OR FCT CORRUPTED'),
(sasciz’'$AONE SYMBOL ECC ERROR'),
(sasciz'SATWO SYMBOL ECC ERROR’'),

SC_EC4
SC_ECS
SC_EC6

= uplit
= uplit
= uplit

(sasciz'#AFOUR SYMBOL ECC ERROR'),
(sasciz'SAFIVE SYMBOL ECC ERROR'),
(sasciz’'®#ASIX SYMBOL €CC ERROR'),

SC_EC3 = uplit (wasciz'SATHREE SYMBOL ECC ERROR'),

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
{
1
1
1
1
1
1

SC_1S2

SC_FUL = uplit (sasciz'®%ANO REPLACEMENT BLOCK AVAILABLE (RCT full)'),
SC_576 = uplit (sasciz'#ADISK NOT FORMATTED WITH S12 BYTE SECTORS'),

1
1
1

3097
3098
3099
3100
3101
3102

(sasciz'#A"FORCED ERROR” DETECTED WHILE ACCESSING FCT OR RCT'),
(wasciz'SASECTOR HAD BEEN WRITTEN WITH “FORCED ERROR” MODIFIER'),

SC_RCT

1
1
1

H
:
H
:
:
:

= uplit
= uplit

SC_DST
SC_DS2
SC_ECC
SC_ECD

H
H

SC_FER
SC_FE2

SC_EC7
SC_EC8
SC_EC9
SC_SWP
SC_HWP
SC_ODA
SC_0DB
SC_NXM
SC_PAR
SC_CTO
SC_50S
SC_EDC
SC_IDS
SC_SRY
SC_SRI
SC_POE
SC_RDY
SC_CLK
SC.RSP
SC_.SUR
SC PSP
H

!
H

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

«plit
uplit
uplit
wlit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
yplit
uplit
uplit
uplit

(swasciz'#ASEVEN SYMBOL ECC ERROR'),
(sasciz'SAEIGHT SYMBOL ECC ERROR'),
(sasciz'wACORRECTABLE ERROR IN ECC FIELD'),
(sasciz'¥AUNIT SOFTWARE WRITE PROTECTED'),
(sasciz’'#AUNIT HARDWARE WRITE PROTECTED'),
(sasciz'®A0ODD TRANSFER ADDRESS'),
(sasciz’'s#A0DD BYTE COUNT'),
(sasciz’'SANON-EXISTENT HOST MEMORY'
),
(sasciz'#AHOST MEMORY PARITY ERROR'),
(sasciz'sACOMMAND TIMOUT OR RETRY LIMIT EXCEEDED'),
(sasciz'SASERIALIZER/DESERIALIZER OVERRUN OR UNDERRUN'),
(swasciz'#A”ERROR DETECTION CODE” ERROR'),
(wasciz'SAINCONSISTENT INTERNAL DATA STRUCTURE'),
(wasciz’'SADRIVE COMMAND TIMEOUT (No response or seek incomplete)
(sasciz'SACONTROLLER DETECTED TRANSMISSION OR PROTOCOL ERROR'),
(sasciz'SAPOSITION ERROR (Mis seek)'),
(sasciz'sALOST READ/WRITE READY DURING/BE TWEEN TRANSFERS ),
(sasciz's$ADRIVE CLOCK DROPQUT'
),
(sasciz's#ALOST RECEIVER READY BETWEEN SECTORS'),
(sasciz'sADRIVE DETECTED ERROR'),
(sasciz’'%ACONTROLLER DETECTED PULSE OR STATE PARITY ERROR'),

CONTROLLER GENERIC ERROR CODES
CNTR_ERR
»

= uplit
uplit
uplit
uplit
uplit

(
(sasciz'wACONTROLLER TIMEQUT'),
(sasciz'dAENVELOPE/PACKET READ ERROR (Parity or timeout) ),
(sasciz'SAENVELOPE/PACKET WRITE ERROR (Parity or timeout)'),
(sasciz'sACONTROLLER ROM AND RAM PARITY

ERROR'),

uplit (sasciz'wACONTROLLER RAM PARITY ERROR'
),
.
uplit (sasciz'$ACONTROLLER ROM PARITY ERROR'),
uplit (sasciz'wARING READ ERROR (Parity or timeout)’'),
uplit

(sasciz'#ARING WRITE

ERROR

(Parity

upl't (sasciz’' INTERRUPT MASTER FAILURE".

timeout)'),

SEQ 0038

Page

(31

N3
ZRQAM1

RD/RX EXERCISER

vo1.6

GLOBAL TEXT SECTION

:
:

3109
2110

1
1

3112

3111

H
H
H

3113
3114
3115

:
H
H

:
:

level protocol dependent)'),

uplit (sasciz'#¥AQ-BUS MASTER ERROR'
),
upl 't

(Wasciz'wACONTROLLER FATAL ERROR'),

uplit

(sasciz’'#AMAINTENANCE READ/WRITE

1
1
1

uplit (sasciz'SAMAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER'),
uplit (sasciz'#ACONTROLLER RAM ERROR (Non parity)’'),
uplit (sasciz'#AINIT SEQUENCE ERROR'),

;{gg

3120
3121

1
1

s
:
:

3127
2128
3129

H
H

3132
g{gi

3130
3131

gtgz

H
H
H
:

3137
3138
3139
g%:?

H
H
:
:
;

3142
3143
3144
3145
3146

3147

uplit (sasciz'wAMAPPING REGISTER READ FAILURE (Parity or timeout)

uplit (sasciz'®#AT11 CPU FAILURE'),
uplit (sasciz’'8ANON-PARITY RAM ERROR'),
uplit (sasciz’'#ASTATE MACHINE FAILURE
uplit
uplit

1
%

(%asciz'#ASTATE MACHINE FAILURE
(sasciz'#ASTATE MACHINE FAILURE

uplit (sasciz'$ASTATE MACHINE FAILURE
«plit (sasciz'SASTATE MACHINE FAILURE

1
1
1}
1
1

!
!

))

vector [23].

RDRX_ERR = uplit (

1
1

1
1
1
i

IDENTIFIER'),

! RD/RX CONTROLLER DEPENDENT ERRORS CODES

1
1
1

INVALID REGION

uplit (sasciz’'#AHIGHER LEVEL PROTOCOL INCOMPATIBILITY ERROR‘),
uplit (sasciz'®wAPURGE/POLL HARDWARE FAILURE'),

3126

DISKSUSER?2: [POWERS1ZRQADO.BL1;6

3117
3118
3119

3116

11-Apr 1984 11:45:02

VAX-11 Bliss-16 v4.0-579

uplit (sasciz'SAINSTRUCTION LOOP TIMEOUT'),
uolit (sasciz'$AILLEGAL VIRTUAL CIRCUIT ID’),
uplit (sasciz'#AINTERRUPT VECTOR ILLEGAL'),

11:56:01

1
1
1t

glgg

:
:

Apr-1984

uplit (sasciz's8AHOST ACCESS TIMEOUT (Higher
uplit (sasciz'sACREDIT LIMIT EXCEEDED'),

;

PRINTOUTS THAT FAKE
OF
_ MSG
HRD_MSG
SFT_MSG
HRD_SUB

=
=
=
=

uplit
uplit
uplit
uplit

=
=
*
=

uplit
uplit
uplit
uplit

SERIALIZER/DESERIALIZER REGISTER'),
WRONG HARDWARE VERSION')) : vector [7],

THE DRS ERROR MESSAGES

(sasciz'd¥NSAZRQA DEV FTL
#25#A ON UNIT #Z2¢A TST 001 SUB 000 PC:
(dasciz'®¥NSAZRQA HRD ERR
wZSsA ON UNIT #Z2#A TST 001 SUB 000 PC:
(sasciz'#NSAZRQA SFT ERR
#25%A ON UNTTM «#22«¢A TST 001 SUB 000 PC:
(sasciz'®NsAI/0 REQUEST FAILED®N'),

MISCELLANEQUS
SPACE4
CRLF
DASH
ASTERISK

Til ADDRESS REGISTER'),

Q-BUS ADDRESS REGISTER'),
CRC REGISTER'),

(sasciz'#S4'),
(sasciz‘'®N'),
(dasciz's#A - '),
(sasciz'®As ');

«06'),
#06'),
#06%N ),

SEQ 0039
Page

(31)

B4
ZRQAM]

RD/RX EXERCISER

DEFAWLT HARDWARE

TABLE

HARDWARE

Apr

1984

11:56:01

VAX-11 Bliss 15 v4,0 579
DISKSUSERZ:
[POWERS JZRQADO.BL 136

11:45:02

P -TABLE'

P
P
P
P

'OEFAULT

1984

THE DEFAULT MARDWARE P TABLE
THE TEST-DEVICE PARAMETERS.

CONTAINS DEFAULT
THE STRUCTURE OF

VALUES OF
THIS TABLE

IS IDENTICAL TO THE STRUCTURE OF THE HAROWARE P TABLES,
AND IS USED AS A "TEMPLATE" FOR BUILDING THE P TABLES.

s P

B P

b Pt Pt Pt P

P B P

Pt P

ssbtt]l

BGNW (DFPTBL);
global

HWPT _IP_ADDR : word initiel (INIT IP ADDR),
PT _VECTOR : word initial (INIT INTR_VECT),
HPT BR_LEVEL : word initial (INIT BR LEVEL),
HWPT _DISK : WORD INITIAL (so°100340'),

'
!
!

IP ADDRESS
VECTOR ADDRESS
BR LEVEL

MIPTISO_LBN
HWPTS1 LBN

:
:

word
word

initial
initial

(0),
(0),

'
¢

STARTING
STARTING

HWPTEL LBN

word

initial

(0),;

HMIPTEO LBN

P
P

X148
3149
3150
151
3152
3153
3154
2155
3156
315°
5158
3159
3100
Siol
1ol
3103
3104
3165
3166
316~
5168
3109
2170

b P

vol.é

11-Apr

ENDMW;

word

initial

(w0 177277
),

!PROTECT, WHOLE DISK, DUP WT, RUN DUWP
10UP WY, DX O
2272
!

ENDING

TRACK (O 222
TRACK MY /222

TRACK

TRACK TMI

222

56Q 0040

Pt P

XT FT
)
X

'SOF TWARE P

Apr

1984

VAX

11 Bliss 15 v4,0 579

DISKSUSER?
; [POWF RS ]ZRGADO.BL 1 ;6

)EQPOOCX

(33,

TABLE

THE SOF TWARE TABLE CONTAINS VARIOUS DATA USED BY THE
PROGRAM AS OPERATIONAL PARAMETERS,
THESE PARAME TERS ARE

SEYRUP ?Y ASSEMBLY

RUN

TIME,

TIME

AND MAY BE

YARIED By

THE OPERATOR

0 P

S P

TABLE

Apr

BGNSW (SFPTBL
);
global
SWP _ERROR : word initisl (32),
SWP _XFER : WORD INITIAL (0)Y,
SWP FLAGS : word initial (SW RDM or SWF

b Pt Pt et
s P

3188
3189
3190
3191
3192
3193
3194
3195
5196

SWP DPAT : word initisl (0),
SWP _RAT : word initiasl (99),
SWP _TIME : word initial (0),
DUPROUND : WORD INITIAL (11),
'

THE NEXT

CRC or 5SWF HWC or SWF

INO OF

TWO LOCATIONS SHOW
D BE

1/0s PER DBN

! HARD ERROR LIMIT FOR DROPPING UNIT
IXFER LIMIT, DEFART « QUICK PASS
2227
FER or SWF HRD or SWF _BLK),
! FLAGS (SEE J0C MEMN

TEST

*
!
¢

DATA PATTERN NMBER
RDS1/S52 CPERATION RATIQO
START TIME (rietM)
227

USER DATA PATTERN COUNT

TOGE THER

518°

e Pt

8181
3182
3183
3184
3185
ATION)
318¢

sebttl

[ XN

Peb et
B
D P P
b

4-0"a~s

1T Nbwt
e

4
4

o OB

b Pt -8 PS pod pub Pt pun

SUOF TWARE P

wm
-§

w U208 0B

Py =t

RD Rx EXERCISER

POPO

B¢

OF 00

—f P9

G4 S0

G0 09

00 S5

JRQ4AM]
vOl.6

SWP _UCNT

SWP _UDPAT
ENDSW;

word

‘nitial

vector

(MAX UDP CNT),

[MAX UDP (CNT,

word]l;

USER DATA PATTERN

D4
ZRQAM]

3205
3206

3207
3208
209
3210
3211
3212
3213

P Pr Pt o0 Pt b Pub P P P

2197
3198
3199
3200
3201
202
3203
204

Q) 10 9o 1t po gt P

©¢

00 B¢

vOl.6

RO/Rx EXERCISER

Apr

1984

11:56:01

PROTECTION

Apr

1984

11:45:02

ssbttl

TABLE

'PROTECTION

TABLE

!
*

THIS TABLE
TO PROTECT

BGNPROT

(0,

11ST ARG
12ND ARG
'3RD ARG

=
-

1S USED B8 THE RUNTIME
THE LOAD MEDIA,
1,

SERVICES

©);

OFFSET
OFFSET
CGFFSET

INTO P TABLE FOR CSR ADDRESS
INTO P TABLE FOR MASSBUS ADDRESS
INTO P TABLE FOR DRIVE NUMBER

ENDPROT;
end

eludom

LTJITLE
.IDENT
.ENABL
000000
000000
000003
000004
000005

000006
000007
000010
000010
000011
000012
000014
C00016

000020

000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
Q00050
000050
000051
000052

132

101
000
000
000
000
104
060
0000006
077717
000000G
0000006
022176
022222
0000006
000000
000000

000000

003
003
000000

122

121

ZRQAM1 RD/RX EXERCISER
/Vv01.6/
AMA

PSECT
LSNAME
: : (ASCII
JASCII
.BYTE
.BYTE
.BYTE
.BYTE

$CODES,
/ZRQ~/
/A/
0
0
0
0

LASCII
LASCII
LSUNIT:: WORD

/D/
/07
T$PTHYV

LSHPCP: : .WORD
L$SPCP: : .WORD
L$HPTP: : ,WORD
L$SPTP: : .WORD
LSLADP: : .WORD
L$STA:: .WORD
L$CO::
.WORD
L$DTYP::
JORD
LSAPT:: ,WORD
L$DTP:: .WORD
L$PRIO::.WORD
LSENVI:: . WORD

L $HARD
T
LSSOF
L$HW
L$SW
LSLAST
0
0
1
0
Lt $SOISPATCH
0
0

LSREV::

LS$TIM ::.WORD

LSEXPLl::.WORD

LSMREV:

L$EF::

.BYTE
.BrTt

.WORD

77777

(o]
3
3

VAX 11 Bliss 15 v4.,0 579
DISKSUSERZ
: [POWE RS JZRQADO.BL1;:6

F
0 004y
Pege

4¢
(34,

Fo
ZRQAML

RD/Rx EXERCISER
PROTECTION TABLE

L$SPC:: .WORD
L$DEVP:
: .WORD
LSREPP:
: .WORD
LS$EXPE:
: . WORD
LSEXPS::.WORD
L$AUT:: .WORD
L$DUT:: .WORD
LSLUN:: .WORD
L$DESP:
: .WORD
LSLOAD:
: . WORD
LSETP:: .WORD
L$ICP:: .WORD
LSCCP:: .WORD

000124

0C0126
000130
000132
000134
000136
00014
000144
000147
000152
000155
000160
000162
000165
000170
000173
000174
000177
000202
000205
000210
000212
000215
000220
000223
000226
000231
000234
000237
000242
000245
000250

111
141

162
163
126
164

000
102

145
000
104
166

156

142
000

124
164

162
143
164
145
141
141
146

150

120
144

040
144

000

145

LS$ACP:: .WORD
L$PRT:: .WORD
LSTEST::
. WORD
L$OLY:: .WORD
L$HIME
: : .WORD
O$PCNT:
: .WORD
L$DISPATCH:
;
.WORD
ERRTYP:: .BLKW
R:
: .BLKW
ERRNB
G:
: .BLKW
ERRMS
K:
: .BLKW
ERRBL
P.AAA:

163
P.AAB:

000
122
145
154

040
166
000

P.AAC:

162
145
165
145

151
040
155
162

P.AAD:

145

163

P .AAE;

000

040
104
145
165
157
162
162
040
040
151

145
151
040
163
155
040
145
157
164
163

.ASCII

LASCII

143
162

145
157

_ASCII

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

0
0
LS$OVTvP

LS$RPT
0
0
LS$AV
L$OU
0

L $DESC

73743
LSERRTBL
LSINIT
LSCLEAN
LSAUTO

L$PROT

= OOO

. WORD

000052

000056

ot popapr
g

vCl.6

11
11

/7P

/add/
/res/
/7¢/<00><00>

/Ne¢c/
/tor/
«<00><00>

/B8R

/lev/
/el/<00>
<00»

/0riv/
/ve

/num/

/ber/
<«Q00><00»

/Tess
/t

/nti/
’/re

/Cus/
/tom/
/er

/are/
/a

/7fF t/
‘nis/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11 Blisg 16 v4,0 579
DISK$USERZ:
[POWERS JZRQADO.BL 1 ;%

SEQ 00473
Page

(34,

[ 4
RD/RX EXERCISER
PROTECTION TABLE

ZRQAM1
vol.6

000253
000256
000261
000262
000%95
C

000273
000276
000301
000304
000307
000312
000315
000320
000323
000326
000331
000334
000337
000342
000345
000350

000353
000356
000361
000364
000367
000372
000375
000400
000403
000406
000410
000413
000416
000421
000424
000427
000432
000435
000440
000443
00044¢
000451
000454
000457
000460
000463
000466
000471
000474
000477
000502

040

144

163

153

114
145
157

157
162
143
154
157

167
040
164
040
162
157

167
144

146

145
156
156
114
040
144
163
110
150
040
164
040
162
157
142
151
151
040

116

144
145
000
114
145

157
141

167
144
146

156

114
040
144

163

000
110
150
040
164
040
162
157

040
040
147

156
147

102
141
162

163
151

;
P .AAF

142
151
151
040
116
144
145

P.AAG:

145
157
141
167
144

146

145
156
156
114
040
144
163
000
157
162
143
154
157
040
040

144
147
102
141
162
163

151
145
157
141

167
144
146

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCI1
.ASCI1
.ASCII
.ASCII
<ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I

.ASCII
.ASCII

P.AAN:

162

116
144
145
000

147
162
143
154
157

040
040

Apr

11 ARor

151

000

141

P.AAL:

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

/ di/
/8k /<00>
<Q0>

/Low/
/er

/oct/

/al

/wor/

/¢ b/
/eQi/
/nni/

Y
adg/

/dre/
/8s5/<00>

/Hig/
/her/

oc/

/tal/
/

wo/

/rd

/70f

/beg/

/inn/
/ing/

/ Lg/

/ddr/

/ess/
<Q0>»

00>

/Low/
/er

/o¢ct/

/al

/wor/

/7f e/
/ngi/
/

‘N

/LgN/

ad/

/dre/

/55, <00»>
<Q0»

/Hig/
/ner/
/

o¢c/

/tal’/
/

wo/

/ed

/o0f

1984

11:56:01

11:45:02

VAX

11 Bliss

v4.,0 579

DISKS$USER2: [POWERS ]ZRQADO.BL1 ;5

56Q 0044

Page

(34)

(4
ZRQAM]
vol.6

000505
000510
000513
000516
000521
000524
000527
000530
000533
000536
000541
000544
000547
000552
000555
000560
000563

000566
000571
000574
000577
000602
000605
000610
000613
000616
000621
000624
000627
000632
000635
000640
000643
000646
000651
000654
000657
000662
000665
000670
000673
000676
000701
000702
000705
000710
000713
000716
000721
000724
000727
000732
00073s

11
11

RD/RXx EXERCISER
PROTECION TABLE

145
116

156
156
114
040
144

163
162
145
156
165
157
162
141
040
145
157
164
163

151

000
052
101
111
040

103
124
105
104

101
122
040
131

163

151

163
155
040
164
141
141

156
150
040
163
000
040
122
116
055
125
117
122
101
040
105
115

040
040

127
124

122
124

116
056

040

116
122

154
040
156
125
145
162
163

000
162
145

P.AAY:

040
040

105
126

164

144
147
102
141
162

P.AAK:;

105

041

056
103
106
115

163

162
040
120
170
143
145
000
151
040

P.AAL:

P.AAM;

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

/end/

/ing/
/ LB/
/N a/
/ddr/

/ess’
<00»>

/Mri/
/te

/on

/eus/
/tom/
/er

/dat/
a/

/rea/

on/

th/

/is /

/dis/
/k/<00><00>
/ee /
/WAR/
/NIN/

/G -/
/ Cus
/8107

/MER/
/7 DA/
/TR /
/ARE/
/A M/
/AY /
/8 /

/0VE/
/RuR/
/1717

7EN?/
/

../

/7. Cr/
/0ONF
/
/7IRM/
<00»>

/Als/
/0

/DUP/

er/

/erc/
/ise/
/r/<Q0>»<00>
/Mri/
/te

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11 Bliss

v4.0 579

DISKSUSER?
: [POWERS JZRQADO.BL1;:6

SEQ 0045
Page

45
(34)

-4
ZRQAM1

RD/RX EXERCISER
PROTECTION TABLE

vOol.6

000740
000743
000746

000751
000754
000757

000762
000764
000767
000772
00077S
0010090
001003
001006
001011
001014
001017
001022
001025
001030
001033
001036
001041
001044
001047
001052
001055
00106C

001063
001066
001070
001073
001076
001101
001104
001107
001112
001115
001120
001123
001126
001131

001134
001137
001142
001145
001150
001153
001156
001161
001164
001167
001172

157

144
147

163
143

162
000
110
144
162
162
151
164
124
156
145

156
151
156
164

040

060

157

042

151

040

163
051
141

144

157
141

164

040

156
157

145
127
164
143

P.AAQ:

163

155
145
122

141

P.AAN:;

040
147
171

000

163
145
157
145

141
141

155
040

162
121
143
160
163

144
040
145

157
151

141
146
040

141
164
040
040

122

040
141

162
105
157
154
151
000

154
151
151
155

11
11

162
144
164
150
103
164
154
162
1n2
145
157

156
155

145
040
144
000
141
143
160
145
160
146

P.ARAP:

P.AAQG:

ASCII

155

040
040
145

157
162
154

000

151
055
155

.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI11
.ASCII
.ASCII
.ASCII
LASCIT
.ASCII
.ASCII
.ASCII

P.AAR:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LRSCIT

/on

/dia/
/gno/

/sti/

/rea/
<00><00»
/Har/

/d E/
/rro/
/r 1/

/imi/

/7t/<00><00»
/Tra/
/nsf/
/er

/l1im/
/it /
/in /
/meg/

/aby/

/tes/
/7
/7

(0/
fo/
/r "/
/Qui/
/ck

/pas/

/8")/
<00><Q0>

/Ran/
/dom/

se/

/ek

/modg/

/e/<Q0><00>
/Rea/
/09

¢/

/omp/

/are/
’s

/erf/
/orm/
/e8¢ /
/at

/the/

Co/

/ntr/

/0ll/
/er/<00>

/Wri/
/te

/com/

Apr
Apr

1984
1983

11:56:01
11:45:02

VAX

Blises

v4.0 579

DISKS$USERZ:
[POWERS ]ZRQGADO.BI 1;:6

SEQ 0044

Page

(34)

[4
ZRQAM1

RD/RXx EXERCISER
PROTECTION TABLE

vol.6

001175

001200

001203

001206
001211
001214
001217
001222
001225
001230
001233
001236
001240
001243
001246
001251
001254
001257
001262

001265

001270
001273
001276
001301
001304
001307
001312
001315
001320
001323
001326
001331
001334
001336
001341
001344
001347
001352
001355
001360
001363
001366
001371
001374
001377
00140&
001405
001410
001413
00141+~
001421
001424
001427

160
145
160
146

155

040
040
145

157
162
154

000

103
143
141
040
151

163
164
157

040
040
141
156

125

162
145
040

164
160
164

141

163
145

157
135S
141
164
040
156
157
145
000
150
153
154
127
164
040
040

167

162
040
162
162
144
164
150
103
164
154
162
145
040

141

110
164

171
145

147
163
055
146

000
145
144
151
144
141
040
164
162

145

143
141
141

145
000
145
143
160
055
146
145
144
141
141
145
040
040
162
185
145
151
040

154
164
156

P.AAS:

154
162
145

142
1€2

144

11
11

151

154

164
162
144

151

144
141
040
164
162
050
146
040
161

156

141

163
145
151
051

P.AAT:

P.AAU:

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

/par/

/es /
/per/

/for/
/med/
/

at/

th/

/ont/

/rol/

/ler/

/Che/
/ck

/all/

We/

/ite/
/s

/ost/
/

by/

re/

/adi/

/ng/<00>
/Use/
/r o/
/ef’/
/ned/

da/

/ta

/pat/

/ter/

/n/<00>

/Sel/
/ect/
/

pr/

/e o/
/ef’/

/ned/
/

da/

‘ta

/‘pat/

/ter/

/70

€/

/or

/Seq/
/uen/s

‘/tia/

/ele/
/cti/

/on)/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11

Bliss

v4,0

579

DISKS$USERZ: [POWFRS)ZRQADO.BL1;6

5EQ C04/
Page

(34)

J4
ZRQAM1

RD/RXx EXERCISER
PROTECTION TABLE

vol.é

0014%2
0014 34

001437
001442
001445
001450
001453
001456
001461
001464
001467
001472
001475
001500
001503
001506
001511
001512
001515
001520
001523
001526
001531
001534
001537
001542
001545
00155¢
001553
001556
001561
001564
001567
001572
001575
00160C
001603
001606
001611
001614
001617
001622
001625
001630
001633
001634
001637
001642
001645
001650
001653
001656
001661

116

142
040
040
lo2
040
040

164
160
164
156
061
155
151
155
000
120
164
156
141

145

116
154
144

147

145
163

154

167
051
103
141

163
164
164

000
165
145
157

167

144

151

155
162
146
157
141
040
164

141

164
162
166
165
050
040
141
156
172
157
141

145
040

162
050

040
170

165
000

144
000

145

P.AAX:

163
143

040
164

146
162
162
164
147

163

162
156
147
157
170
040

163

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

040
141

040
142

151
151
000
120
143
164
145
146
106
145
104

P.AAUW:

157

141
164

154

P.AAV:

163
156

144
141
141
145
040
066
141

155
051

11
11

P,.AAY

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

<00><00>

/Num/
/ber/

of/

/ wo/
/rds/

in/

da/

/te

/pat/
/ter/

/716

/max/

/imu/
/m)/<00»>
<00»>

/Pat/
/ter/

/alu/
/e

/No

/lea/

/din/
’Q

/ero/
/s

/1lo/

/wed/

7)/7<00><00>
/Cles/
/

/ar

/sta/
/tis/

/tic/
/al 7
/tab/

/les/
/

af/

/ter/
/

pr/

/int/
/ing/
<Q0>

/Per/
‘cen/
/tag/

/7€ v/
/Fin/
/ed

/Dis/

Apr-1984
Apr-1984

11:56:01
11:45:02

VAX 11 Bliss 16 V4.0 579
DISKSUSER2:[POWERS)ZRQADO.BL1
;6

SEQ_0048
Page
48

(34)

1<4
ZRQAM]

RD/RX EXERCISER
PROTECTICN TABLE

vOol.6

001664
001667
001672
001675
01700
001703
001706
001711
001714
001717
001722
001725
001730
001732
001735
001740
001743
001746
001751
001754
001757
001762
001765
001770
001773
001776
002001

002004
002007
002012
002015
002020
002022
002025
002030
002033
002036
002041
002044
002047
002052
002055
002060
002063
002066
002071
002074
002077
002102
002105
002110
002113
002116

153
157
162
151
163
165
15?7

104
141

157
162
151
163
125
164
164
142

163

145
145
141
162
144
040
157
151
154
163
145
145
151
051
127
164
157
145
151

040

157/
163
150

157

145
105

157

040

164
164
040
040
141
000

042
160
141

157

040
164
146

157
154
160
141

157

000

156
163
157
145
145
143

11
11

040
145
164

156
157

040
040
164
040
145
164

156

151

040

P.AAZ:

144
164
141

157

050
054

155
151

040

161
156

141
000
141
040
040

P.ABA:

167
164

142
143
040
145

162
144
162
162

162

144

145
145
157
162
144

000

163

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

k" /
/ope/

/rat/
/ion/
o/

/ut

/of

/
7/

/tot/
/al /
/ope/

‘rat/

/ion/

/76/<00>

/Uniy
/

/ts

/to

/be

/sel/

/ect/
/ed

/at

/ran/
/gom/

(N/

/0,

/imp/
/lie/
/s

‘equ/

/‘ent/
/ial/s

/7)/<00>
/Wan/

/ewr/

/ite/
/ bl/
/o0¢ck/

/’s w/
‘nen/

"F/

/orc/

/ed

/Err/
/or'/

de/

/tec/
/ted’/
/
/

on/
re/

/ads/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11 Bliss 16 v4.0 579
DISK$USERZ: [POWFRS]ZRQADO.BL1;6

5EQ 0049
Page
49
(34)

L 4
ZRQAM]

RO/RXx EXERCISER
PROTECTION TABLE

vol.6

157
157
167

002120

002123
002126
002131
00134
002137

002142
002145
002150
002153
002156
002161
002164
002167
002172
002175
002200
002203
002206
002211
002214
002217
002222
002225
002230
002233
002236
00224
002244
002247
002252
002255
002260
002263
002266
002271
002274
002277
002300
002303
002306
002311
002314
002317
002322
002325
002330
002333
002336
002341
002344
002347
002352

164

157

141
040
040
150
040
162

105
157

040

163

040

165

11
11
P.ABB:

141
040
040

154
157
157
145
110

144

162

162
050
040

055
054

P.ABC:

104
171
040
156
164
150
164

156

141
142
143

110

144

162
162

064

051

157
157
167
164
157

040

141
040
040
144

154
153

141
040
162

163

165

141
040
040

154
157
102
055
157

040
162
105

157

040

P.ABD:

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

/00

/you’/

/ wa/
/nt /
/

/to

/nal/
/t

/the/
/r W/
/arg/
/7 Er/
/ror/
/s (/
/0s /
/731-7/
/73%4,/

/ 36/
/7 37/
/., 3/
/9-4/

/75)7<00>
/

/00

/you/

wa/

/nt

/to

/nal/
/t

/n S/
/oft/
/ Er/
/ror/

/¢

(/7

/708

/50 v/
/54)/
<00>

/Do

/you/
/

we/

/nt

/to

/hal’/
/t

/ad

/blo/
/ck

/Har/

£/

/rro/
/rs

Apr-1984
Apr 1984

11:56:01
11:45:02

VAX

Bliss

v4,0

579

DISKS$SUSERZ:
[POWERS JZRQADO.BL1;:6

5EQ 0050
Page

S0
(34)

M4
ZRQAAML

RDO/RX EXERCISER
PROTECTION TABLE

VOl.6

002355
002360
002363
002366
002371
002372
002375
002400
002403
002406

002411
002414
002417
002422
002425
002430
002433
002436
002441
002444
002447
002452
002455
002460
002463
002466
002470
002473
002476
002501
002504
002507
002512
002515
002520
002523
002526
002531
002534
002537
002542
002545
002550
002553
002556
002561
002564
002567
002570
002573
002576
002601
002604

043
063
040
051

163
065
063
000

156

164

162
151

040
040

115

050
141

154

040
060
055
116
154
144
147
145

163
154
167

000

156
145

040
141

157

141
141
145

162
145
157
040
162
000

124

155
156

147

157
164

141
040
164
040
040
122
144
162
145
162
162
163

040

160
141
040
146
105

157

150
162
141

151
040

040

11-Apr-1984

11-Apr 1984 11:45:02

P.ABE:

155
141

110
115
105
155
145

061
065
040
157
145
151
040
162
040

154
144

165
040
143
162
162
157
141
145
057
151
040
162

P.ABF
:

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

<ASCII

040
040

163
145
164
123
164
162
162
145
145
151
156
161

11:56:01

P.ABG:

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

/(0s/
/7 35/
/, 3/

/78)7<00>
<00»>

/Ent/
/

/er

/tim/
/e a/
/8 H/
/HMM/

(E/

/»xam/

/ple/
/:

/73057
/

No/

/ le/
/adi/
/ng /
/zer/

/08 /
/all/
/owd/

/7)/<00>
/Cou/

/nt

/eac/

/etr/
/y o/

/n a/
/ Re/
/8d/<57>
/Wri/
/te

/err/
/or

/as

/epe/
/rat/

/oft/

Er/

/ror/

<00»>

/The/
/

re/

/ma’/
/n‘n/
/9

VAX

11 Bliss

16 V4,0 579

DISKS$USERZ: [POWERS]ZRQADO.BL 1;6

5eQ 0051

Page

(34)

N4
RD/RX

ZRQAM1

ACISER

PROTECTION

v01.6

002607
002612
002615
002620
002623
002626
002631
002634
002637
002642
002645
002650
002653
002656
002660
002662
002665
002670
002673
002676
002701
002704
002707
002710
002713
002716
002721
002724
002727
002732
002735
002740
002743
002746
002751
002754
002757
002762
002764
002767
002772
002775
003000
003003
003006
003011
003014
003017
003022
003025
003030
003033
003036

165
164
156
157

171
160
171
157
156
157
143
144
151
163

000

101

040

157
165
164
104

000
045
101
040

117

122

120

072

157

040
040
066
040

145
151
163
156
040
160
040
040
160
164
164

040

163
000
000
116
052
104
160

156

040
062

116
052
120

103
105
113

040

156

124

111
045
045
162
145
145
000
116
052
115
164
144
166
164
164
116
052
106
101

122
072

040

143
166
000

045

101
154
055
151

040

163
045
101

040

137

105
117

11
11

TABLE

163
157

040

154
141

154
164
165
162
145
145
144

153

045
052
162
040
151
045
000

P.ABH:
P.ABI:

045
052
122
137
124
124
103
156
104
117
101
145
151
144

P.ABJ:

045
052

P.ABK:

165
151

162
145
145
000
045
052
101
114
122
122
122

P.ABL:

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

.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII

Apr-1984
Apr-1984

11:56:01
11:45:02

VAX-11 Bliss-16 v4.0 579
DISK$USERZ:
[POWERS JZRQADO.BL1;6

/ues/

/tio/
/ns

/onl/
/y

/ppl/
/y
/0

t/
u/

/npr/
/ote/

/cte/
/d d/

/isk/

/s/<00>
<00><00>
/%N
/

/A%s/
/ Dr/
/0p /
/uni/
/t %/

/7027<00>
<00>

/%N
/

/Asa/
/ PR/
/0C_/
/RET/

/PKT/
/: C/
/onn/

/ 1D/
/7 %0/
/6%A/
re/
/cei/

/ved/

/%N
/
/Ass/

/ Mu/
/1¢./
/-dr/
/ive/
/

te/

/st/<00>
/
/%NS
/Ass/
/7 FA/
/TAL/
/_ER/
/ROR/
/: R/

widi e it o8

5EQ 0052
Page

(34)

A
ZRQAML
vol.e

RO/RXx EXERCISER
PROTECTION TABLE

11 Apr-1984
11 Rpr 1984

002041
003044
003047
003052
003055
003060
003063
003066

105
113
156
040
141
141
145
045

124
124
157
141
151
142
000
116

120
040
164
166
154
154
000
045

003074

040

106

123

003102
003105
003110
003113
003116
003121
003104
003127
003132
003135
003140
003143
003146
003151
003152
003155
00316C
003163
003166
003171
003174
003177
003202
003205
003210
003213
003216
003221
003224
003226

125
122
13
Oa/
140
144
151
040
063
040
040
124
104
000
045
101
040
144
157
040
040
066
040
143
166
040
157
045
000
045

120
072
141
164
151
040
163
045
045
151
103
040
061

101
040
156
040
156
144
153
104
101
156
123
045
000

lle
052
102
040
156
111
045
045
162
145
145
146
155
117
000
116

045
052
141
143
156
104
117
101
145
151
144
162
040
066

P.ABN:

045

P.ABO:

003234
003237
003242
003245
003250
003253

040
163
147
164
145
117

115
163
145
171
040
062

003261
003264

145
151

003071

0038077

003231

0032%.6
003%2¢ °
006% 72

101

105

101

144
19

0se2

124

052

040
143
166

040
040

052

P.ABM:

137

JSCIT
JASTIT
ASCII
LASCII
LASCIY
LASCII
ASCII
ASCII

/ETP/
/KT /
/mot/
7 av/
/eil/
/ebl/
/e/<00>¢<00>
/«uNw/

ASCII

7 FS/

LASCII

/Aees

/ET _/

LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCI1
LASCII
.ASCII
LASCII
LASCII
LASCITI
LASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCIL
LASCII
ASCII
ASCII
ASCII
ASCII
LASCII
.ASCII

/7UPA/
/R: /
/Cen/
70t v/
/fin/
/d o/
/iek/
7 wD/s
/3«A/
7/ in/
7 CS/

145
141
040
160
045
045

ASCII
ASCII
ASCII
ASCIIl
LASCIT
LASCII

/ Me/
/ssar
/Qe /
/typ”
/e @/
702w/

145
145

ASCIID
5CI!

/ece7ive’

052

162

S1
119

LASCIT

ASCII

ASCIL
LASCIT

/T @/
/D1/<00>
<00»
/wiNw/
/Ree/
/ Bes
/d ¢/

7onn/
/ 1D/
7 #0/
/6%wA/
7 re/
/cei/
/vea/
/ fr/

/om -/
/w06/
<00><00»
/sNw/

/Ree/

/A r

79 7
/e M/

11:56:01
11:45:02

VAX 11 Bliss 16 V4,0 579
DISKSUSERZ: [POWERS 1ZRQADO.BL L ;6

5EQ 0053
Pege
S3
(34,

g D=t D P4 0=4 =4 D=4 D=4 >=4 =4 =4 =4 D=t 0= Pt D= =0 =4 Pt D=t D= 0=4 = 0@ D=t Puh D=l Dt D D0 B

alal elalelalalalelalaialelolalelalalalalainiolioliolioiaioiolaleis
[

"ASCI

.ASCI
.ASCI
.ASCI
.ASCI

163
157
163

045
052
162
162
156
116
137
111

P.ABS:

045

P.RBT:

05¢
116
137
ill

»
o
0
s
o
o
&
8
s

122
110
000
045
052
164
040
155
165
075
104
101

4 Bmf Sung P

151

156
105
103

103

162

P.ABQ:

g Pueg Pt Ped Dot Pt Pued P P D=t =g B (=g D@ D

116
05¢

142
000
045
052
162
162

105
157
151
123
187
114
103
122

151

040
141
141
145
116
052

124

124
157
141

123
125
072
105
113
156

045
052
105
105
040

P.BP:

“

000
116
052

.ASC

120

141
145

ASCI
.ASCI
.ASCI
.ASCI
LACCI
.ASCl
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
LASCI

Pt P P

003460
003463
003466
003471
003474
003477
003502
003505
003510
003512
003515
003520
0035¢3
003526

108
160
158

»> »>> PEPDPIPPDOPPDPDEPIPDPIPIBPIPDIPDPIPIPPPIPIPIPDD
wn wunn A
A
T T
e Y o T
L Pl Al
[
] alalsl OOOOOOOOOHOOOHOOOONOOONOHONMNND

o0’ 7S
00830¢
Q0880
OO 2800
0038310
008818
00381e
003321
00383.24
00882"
003382
003335
003340
003343
003346
003351
003354
003857
Q03362
003365
003370
003373
0033876
003401
003404
00340~
003412
003415
003420
003423
003426
003431
003434
003437
003442
003445
003450
003453
003456

»
2
[a)

vol.e

RO Rx EXLRCISER
PROTECTION TABLE

>
wn
(2]

JRYAM}

C'
11 Apr 1984 11:%:01
/79CP/
/

pa/

/che/

7¢/7<Q0>

/76N
/
/Ase/

/7 SE/

/QUE7/
/N: /
/RET/
/s
7PKY
/7

no/

/vai/
/lad/
/7le/<00»

/78Ne
/
/Ase/
/7

Er/

/ror/

in/

Stk

77 C/

7TLR/

7 _Cw/

/
<« 00>
/AR
/78Ns/

/Ase/
/7 Ct/

/le

/tim/
/e0u’/
o/

/ @D/
/38A/
&/

/@Co/
/nags/
«Q0><00>»

/8Ne
/

/Ase/

Er/

/ror/

JIN/

71r

7INL/

/17¢00>»
/
/dN®
/ARee/
/7 UN/
7217 7
7MY/

Apr

1984

11:45:02

VAX 11 Blias 1£ v4.0 579

DISK$USER2:
[POWERS 1ZROADO.BL 16

€

H0p002" <

(34,

DY
ZRQAM]
vol.e

003531
0035354
00353~
003542
CO3545
003550
003553
003556
003561
003564
003567
003572
003575
003600
003603
003606
003611
003614
003617

003622
003624
003627
003632
003635
003640
003643
003646
00365i
003654
003657
003662
003664
003667
003672
003€75
003700
003703
003706
00371¢
003714
003717
003722
003725
003730
003732
003735
003740
003743
003746
003751
003754

00375"
003762

RD/Rx EXERCISER
PROTECTION TABLE

072

040

040
144
116

141
142
040
104

105
113
150

117

000
116
052
125
164
151
040
15
075
104
101
000
116
052

125
164

151

040

151

075
104

101

0GCO
116
052
101

105

072

105
113
150

040
144
116

124
124

104

000
045
052

040
172

050
051
040
065
056
045
052
156
040
172
050
051
040
065
056

P.ABV:

045
052
103
123
040
124
124

P.ABW:

141
142
040

117

116
052
121

045
052
111

040
124
104
101

P.ABU:

156

104
104

137
111

11
11

125
124
103

040
061
040

P.ABX:

LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCTI
.ASCII
LASCIZ
.ASCII
.ASCII
.ASCII
+ASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI!
.ASCII
.ASCI1I
.ASCII
.ASCII
LASCII
LASCII
.A5CII
.ASCII

/V: 7
/RET/
/PKT/
/

ha/

/ad

/END/
/7COD/
ZE/7<Q0» <00
/8N
/

/ARee/
/

Un/

7/
/9:2/
/e (/7

/vt

/L0)/

/790S/
/8A .,/
«00> <00

/78N%
/

/Ase/
/7

Un/

/it /
/8:i2/
/e (/
MY/
/

L v Y4
/%A .,/
<00><00»

/78Ns/

/Res/
/7 AC/
7CES/
/S:

/RET/
/PKT1/
/

na/

/¢

/80

/END/

/7C0D/

/€7¢<00>
/4NB
/

7Ase/

Ql/

70 U/

/NIT/

/7: C/
/81 7
/8Dl
/
/8A

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX

Bliss

V4,0 579

DISKSUSER?
: [POWERS JZRQADO.BL 1 ;6

:EOPOOSS

S
(34)

ES
JRQAM]

RD/Rx EXERCISER
PROTECTION TABLE

vOl.6

157
156

003765
003770
003773
00377
004001

040
154
164
000
116
052
125
164
040
072

117

116
052
122

11-Apr-1984
11 Apr-1984

040

151
163

145
145

045
052
156

LABY:

040

151

040
066

.ABZ:

157

142
040
163
151
163
145
145
045

101

116
052

LACA;

145

163

101

144

153
163
145
143

144
116
052
111
145

.ACB:

165
157

101
040

004214

155
156
162

040

164

045
000
116
052

103
155

144
145
043

LACC:

LASCIT
LASCII
.ASCII
+ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCiI
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
.ASCII
<ASCII
.ASCII
.ASCI1
JASCII
.ASCII
.ASCII
.ASCII
.ASCII
+ASCII
LASCIT
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

/no

/uni/
/t

/ele’/

/cte/

/70/<00»>
/dNs/
/ARe e/
/

Un/

/it

/9:

7406/
<00»

/74N
/

/Ase/

Re/

/mov/

/abl/
/e

/isk/
/ s/
/

se/

/lec/

/ted/
<«Q00>

/8N
/

/ARes/

Fiv/

/xed’/

di/

/ak

/is

/sel/

/ect/

/ed/<00»

/
/8Ns
/Res/
/7 117
/leg/

/al

/7 Fun/

/¢t
/
/on:/
/

/767 <00><00>

/9Ns/
/ARes/
/7 Co’/
/mma/

/nd /
/ref/
/

11:56:01
11:45:02

VAX 11 Bliss 16 v4,0 579
DISKSUSER2:
[POWERS J)ZRQADO.BL 16

2EQ 009
P
€
(34
)

FS
vol.é

PROTECTION

004217
o422
004225

117

066

117

066
040
143
040
164
145
040

101

004230
004233
004236

004241
004244
004247
004252
004255
004269
004262
004265
004270
004273
004276
004301
004304
004307
004312
004315
004320
004323
004326
004331
004334
004337
004342
004345
004350
004353
004356
004361
004364
004367
004372
004375
004400
004403
004406
004411

004414
004417
004422
004425
004430
004433
004436

004441
004442
004445
004450

11-Apr-1984 11:56:01

RD/RX EXERCISER

ZRQAML

101

117

051

157
163
164
171

11 Apr-1984

TABLE

057

157

000
116
052

P.ACD:

125
156
156
162
162
157

P.ACE:

144
157

040

055
144

063

040

162
145

043

117
101

117

101
070
000
045
101
040

146
066
057
066
040

051
116
052
103

P.ACF

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

7906/
/8A/<ST>
/798067
/S8R /

/7(0c/
t) /
/not/

se/

/nt

/by

/Hos/

/t/<00»>

/
/%N
/ARss/
/7

Un/

/kno/

/wnn

/Erer/
/or

/Log/

fo/

/rma/

/7t w/
703%/
/AR r/
/ece/

/ive/
707<00><00»>
/9Ns/
/Ass/
/7 Op/
/-¢co/
/de /
/403/
/8A,/
/ En/
/d-¢/
/00e/

/7 w0/
/734A/

fo/

/ef

/70 &/
706w/

/R/<S5T>/%/
/06%/
/R (/

’8)s<00»>

<Q0»

/48NS
/

/Rae/
7 Cm/

11:45:02

VAX-11 Bliss 16 v4.0 579

DISK$USER2:[POWERS)ZRQADO.BL1;6

3€Q_0057

>page

(3a)

G5
-

11 Apr 1984 11:56:01

RO/RX EXERCISER
PROTECTION TABLE

055
040
066
057
066
040
160
143

117

101

117
101

11 Apr

142
045

045
045
045
122
055
040
066
057
066
040
162

117
101

117

101
070
000
045
052
145
157
145
154
141
040
143
166
040
162
155
045
045
045
045
050

P.ACG:

000

P.ACH:

LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCTI
.ASCII
LASCIZ
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCIY
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

/¢

/06%/
Y- YAYL ¥4
/706%/
/A R/
’/9p

/bec /
/74067

/8A/<ST>
/9806/
/A /
/for/
/7 u0Q/
/76%A/
<57>/90/
/76%A/

(8/

7)7<00><00>

/79N
/
/Ase/
/ Re/
/8po/

/nse/

/ al/
/rea’/
/

/dy

/rec/

/eiv/
/

/ed

/for/
/

¢cm/

/d u/
/706%/

/AR/<S57>/9/
/706%/
/R (/
/78)7<00>
<Q0»>

/
/9N
/Res/
/ Fas

/i lu/
/re

/to

/sen/
/9

¢/

/omm/
/and/
/7 af/
/ter/

/74067

1984

11:45:02

VAX-11 Bliss 16 v4.0 579

DISKS$USER2:([POWERS JZRGADO.BLL ;6

3£Q 0058

page

(33)

H)
ZRQAM]

RD/RX EXERCISER
PROTECTION TABLE

vOol.6

004710
004713
004716
004721
004724
004726
004731
004734
004737
004742
004745
004750
004753
004756
004760
004763
004766
004771
004774
004777
00500.
005005
005010
005013
005016
005021
005024
005027
005032
005035
005040
005043
005046
005051

005052
005055
005060
005063
005066
005071
005074
005077
005102
005105
005106
005111
005114
005117
005122
005125
005130
005132

005126

101

117

101

070
000
116

125
124
062
040

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

107
101
117
105
117

116
101
111
105

117

000

116

122

045
045

066
040
051

045
116
045
045
104
120
104
040

LACI:

125
122
117
101
045

.ACK:

103
106
125
124

LACL:

116
122
122
000
111
124
122
122
000

.ACM;

.ACN:

105
116

101
122
040

105
117
114

.ACO:

115

040
101

115

105
110

057

000

040

101
105
116
101

111
122

103
104

000
125

Apr

1984

11:56:01

11 Apr 1984 11:45:02

124
116
105
114
111
122
103
104
000

101
101
106
040

124
105

LRACP;

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCTI
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCTI
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
+ASCII
+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/8A/<¢S5T>
/7%06/
/8RR /
/7(8)/
<00><00»>

/79N
/

/7AUN/
/1Ts/
/D2%/
/A O/
/ROP/
/PED/

/ -/
<00><00»

/8AY/

/SER/

/7 CO/
/MMA/
/NDs/
/N/<00><00>

/4AC/
/0ONF
/

7IGV/

/RAT/
/1I0N/
/

ER/

/ROR/
/98N/ <00>
/%AY/

/NIT/

/7 ER/
/ROR/
/9N/<00>
<00>

/%AT/
/RAN/

/SFE/

/R L/
/7IMI/
/T R/

/EAC/

/HED/

/79N/<00Q»
<Q0»>

/
/9AE
/RR0O/

/R L/
/7IM1/
/T R/
/EAC/

/HED/

/¥N/<00>
/8AY/

]
VAX-11 Bliss

16 v4,0 579

DISKS$USERZ: [POWERS JZRGADO.BLL ;6

5EQ 0059
Page
59

(24)

%
RD/RXx EXERCISER
PROTECTION TABLE

ZRQ@AM]
vQl.6

005141
005144
005147
005152
005155
005160
005103
005166
005171
005174
005177
005202
005205
005210
005213
005216
005221
005224
005227
005232
005235
005240
005243
005246
005251
005254
005257
005262
005265
005270
005272
005275
005300
005303
005306
005311
005314
005317
005322
005325
005330
005333
005336
005341
005344
005347
005352
005355
005360
005363
00536¢
00471
005374

116

122

105
102
040
111

122
114
104
126
105
117

103

040

122

045
116

103
105
102
1lle

117

105
105
117

116
045
101
105
124
1C3
105
116
116
116
045

101
105
124
101
105
040
124
ie2
111

124
122
101

101
040
122

107
116

045
045
111
040

117

116
101
122

117

122
114

103
124
114
122
122
122

11
11

105
126
101
105
122
105
122
122

000

125
105
126
101
105
11?7

P.ACQ:

122

000
101
111
104

P.ACR:

117
117

040
114

105
000
i01
111
104
117
103
123
105
110
040
122

P.ACS:

040
040

123
124
103
104
111

040

111
116
101
123
127

125
116

000
104

113

122

P.ACT:

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

7
/NRE

/COv/

/ERA/
/BLE/
/ DR/
7IVE/
/ ER/
/ROR/
/8N/<Q0>
/9AY/
/NRE/

/7COv/

/ERA/

/8LE/

/7 CO/
/NTR/
/0LL/
/7ER /
/ERR/
/0R%/

/N/<00><00>

/
/9%AF
/ARIL/
/€D /
/710 7/
/COM/
/€ 0O/
/NL1/
/NE%/

/N/<00>
/9AF
/
/AIL/
/€0 7/

/770 7/
/ACC/

/ESS/

/ El/
/
/THE
/R F/
/7IRS/
/T

O/
/R L/

/AST/

/7 TR/
/ACK/

/7 DU/

/RIN/

/NIT/

/%8N/ <Q0>

/%AD/
715K/
/ WR/

Rpr-1984
Apr 1984

11:56:01
11:45:02

VAX-11 Bliss

v4.0 579

DISKSUSERZ2:
[POWERS ]ZRGADO.BL1 ;6

JH
RD/RXx EXERCISER
PROTECTION TABLE

008377
005402
005405
005410
005413
005416
005420
005423
0054.6
005431
005434
00543~
005442
005445
005446
005450
005452
005454
005456
005460
005462
005464
005466

005470
005472
005474
005477
005502
005505
005510
005513
005516
005521
005524
005526
005531
005534
005537
005542

005545
005550
005553
005556
005561
005562
005565
005570
005573
005576
005601
005604
005607
005612

111
040

117
102

104
000
045

117

101

040

115
117

045
000
004760
005002
005032
005052
005106

124
120
124
124
045

105
122
105
105

101
115
116
124
105
125
116

103
115

000

116

LACU:

104
111
040
124
000

LACJ:

005136

005174
005240’
005272
005366
005420
045
101

127

040

114

040

127
124
107
045
101
116
111
101

124
124
124
124

000
045
116

105
122
123

040

101
105
116

116
120
105
104
101
055
101
111
000
116
106
103
117
114
105
040
101

105

116
045
130
103
105
123
122
104
000

045

117

LACV:

122
105
131

040
111
116

045

125
124

.ACM:

116
040

123
123
122
104

045
101

105
111
122

124
124

045

LACX:

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

/ITE/
/ PR/
/0TE/

/CTE/
/D¥N/

<00><00»>

/8AC/
/0MM/
/AND/
/7 Tl
/ME /
70Ut/

/9N/ <Q0>
<00>
h*)

vOol.é

11
11

.ACK

P.ACL
VOOVOVDOVOOLVO

ZRQ@AM]

.ACM
.ACN
.ACO
.ACP
LACQ
.ACR
.ACS
.ACT
.ACU

/798N
/
/APQ/
/WER/

/ DE/

/
/LAY
/

/WAY/
/TIN/
/7G7<Q0>

/79N
/

/RFY/

/NCT/

/ION/

/AL 7/
/TES/

/TAR/
/TED/
<00»>

/ BN/

/NsA/

/EXE/
/RCIY/

/SER/

/7 St/
/ART/
7ED%/

/N/<00»>

Apr 1984
Apr-1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 S79
DISK$USERZ:
[POWERS JZRQADO.BL ;6

5EQ 0Ce i

Page

61
34)

I<*
ZRQAML

RO/RX EXERCISER
PROTECTION TABLE

vol.6

005614
00561~
005622
005625
005630
005633
005636
005641
005644
005647
005052
005655
005660
005663
005066
005671
005674
00567
005700
005703
005706

005711
005714
005717
005722
005725
005730
005733
005736

005741

005744
005747
0057S2
005755
005760
005763
005766
005771
005774

005777

006002

006005
006010
006013
006016
006021
006024
006027
006030
006033
006036
006041
006044

045
116

125

040

113

070

043
106
040
102
105

040
040
040
040

102
105
000

045
040

110
104
122
122
055
055
105

117

055
045
101
040
043

124
105
122
104

040
040

101
122
105

040

122
124

000
045
040

113

101
104

116
045
116
104
045
045
040
040
043
131

045
101
124
123
123
101
117

040

040
040
124
040
043

117

106

123

040
043

131
123

101
055
101
040
122
123
040

123
124
122

122
055
116
040
040
040

131

040

105
123
040
122
104

124

000

040
055
122

P.ACZ:

105
117
055
055

117

040
122
123
000
045
043
040
040
120

P.ADA:

040

101

040
040

105

040

127

124
040
127
124
116

101
123

040

124
122

040
126

040

P.ACY:

040
040

i1
123
040
111

105

11-Apr-1984
11 Apr 1984

105
104

P.ADB:

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

/
/9%N%
/NsA/
/UNT/
/7 DS/
/K%S/
/88A/

/70 0O/

V4
/

/8Y1/
/€S 7/
/

OF/

/8YT/

/ES/<00>
<00»>

/s8R
/

/HAR/
/D E/
/RRO/
/RS -/
-/
// SQ/

/FY 7
/ERR/
/0RS/
/

-.<00»>

/
/8N
/A &/
/

/¢

/TYP/
7/
/€
/REA/

/0S8 s
/

RE/
/RD /

/RIT/
/ES 7
/

/RIT/
/TEN/
<Q00»

/%R

/ SE/

/AT

/DRv/

11:56:01
11:45:02

VAX-11 Bliss

v4,0-579

DISKSUSERZ2:
[POWFRS JZRQADO.BL1:6

SEQ 0062
Page

K2
(34)

L 5
ZRQAML
vOol.e

006047
006057
006055
Q06060
006063
006066
006071
006074
006077
006102
006105
006119
006113
006116
006121
006124

006127
005132
006135
006140
006143
006146
006151
006154
006157
006162
006165
006179
006173
006176
006201
006204
006207
006212
006215
006220
006223
006226
006231
006234
006237
006242
006244
006247
006252
006255
006260
006263
006266
006271
006272
006275
006300

RO/Rx EXERCISER
PROTECTION TABLE

110
040
113
101
104
040
124
116
055
040
055
055
040
055
055
055
055
055
040
055
055
055
055
055
000
101
055
NS5
040
055
055
055

040

055
055
055

11
11

123
123
040

124
122
110
000
045
055
055
040
055
040
055

P.ADC:

040

055
055
055
055
055
040

055
055
055

000
040
055
055

P.ADD:

055

040
055

055
055

040
055
055
000
045
045
045
045

P.ADE:

064
063
063
054
063
054
063

:
P.ADF

064
064
064

P.ADG:

.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
+ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCI1

HS/

/EK

/DAT/
/7 DR/
/N

/ST/7<00»>

/-/7<00><00»

/%A

/---/
/

-~/

/--

/
/

-/
--/

/--

/---/
/

/-/<00><00»>

/
/%N
/02%/
/D4s/
/752%/
/1/<00>
/%04
/
/9237
/%037

/8A,/
/nl%/
7/
/%A,
/8237
<00>

/404
/
/eDa
s
s/
/%D4

Apr-1984
Apr 1984

11:56:01
11:45:02

VAX-11 Bliss 16 v4,0-579
DISKSUSERZ: [POWERSJZRQADO.BL1;:6

5EQ 00673
Page
63
(34,

M
ZRQAM1

RO/RXx EXERCISER
PROTECTION TABLE

006533

056
056

045
040
000

000
116
040

110
122
040
115

114

040

114

P.ADI:

P.ADJ:

P.ADIK:

/7404
/
/%047
/%D4/
/%04
/
/
/%04
<00><00»

/9%Ns
/
/R ./
/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
<ASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASC1I
.ASCII
.ASCII
.ASCII

040
124
040
040
040
056
056
056
040
040
040
056
056
056
000
040
056
040
104
101
040
040
040
056
064
040
056

124
116
107
106
105
105
122
106

117

P.ADH;

040

101
040
111
000

125
124

101

045
056

117

124
040
116

131
117

064
064
064
064
064

0><00>

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

NNNNNNNNNONNNNNNNNNNNN ~ ~

006420
006423
006426
006431
006434
006437
006442
006445
006450
006453
006456
006460
006463
006466
006471
0C6474
006477
006500
006503
006506
006511
006514
006517
006522
006525
006530

104

006303
006306
006311
006314
006317
006322
006324
006327
006332
006335
006340
006343
006346
006351
006354
006357
006362
006365
006370
006373
006376
006401
006404
006407
006412
006415

NNN NN NNNNSNNNNNNNNNNNNN NN ~
.
.
o
.
o
=
D0

vol.6

11-Apr-1984
11 Apr 1984

<00><00>
7100/
/

MA/

/NY

/
/UNI/

/1S/<00>
<Q0»>

/NQT/
/7

EN/

70UG/

/M F/
/REE/
/ ME/
/MOR/
/Y

/0R /
/ALL”/

11:56:01
11:45:02

VAX-11

Bliss

v4.0

579

DISKS$SUSER?: [POWFRSJZRQADO.BL1;6

SEQ 006 4
Page

(34)

RD/RX EXERCISER

v0l.6

11 Apr 1984 11:56:01

PROTECTION TABLE

006536
006541
006544
000547
006552
006555

117
124
107
105
057
111

103
111
040
101
127
124

101
116
122
104
122
105

006571

122
000

123

000

105
123
122

107
124
040

103
124
124
101
105
000
105

105
105
040
111
104
103
122
105
040
111
104

P.ADM:

122
105

040
126

P.ADN:

105

123

006560
006563
006566

006572
006575
006600

006603
006606

006611
006614
006617
006622
006625
006630
006632
006635
006640
006643
006646
006651
006654
006656
006661
006664

006667

040
106

122
111
105
105
123
116
040
123
106
114
000
126

124
040
123
106
114
000

102
114
105

124

006677
006675
006700
006703
006704
006707
006712
006715
006720
006723
006726
006731
006732
006735

124
101
105
000
111
124
105
105
105
101
105
000
106
101

006743
006746
006751
006754

124
114
122
122

006740

006757
006762

103

122
117

102
106

130
124

117
124
124
101
105
000

114

.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII

125
105

.ASCII
LASCII
.ASCII

P.ADL:

111
105

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

.ASCII

040
111
104

106
114
000

116
040
121
116
040
111
104

111
123
125
103
106
114
000

P.ADO:

101
114
117
122
114
040
122
000
116

124
040

P.ADP:

116

117
105
105
117
114

.ASCII
LASCII
.ASCII

LASCII
.ASCII

040

000

.ASCII

P.ADQ:

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

.ASCII
.ASCII
_ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
.ASCIT
LASCII
.ASCII

Apr

1984

11:45:02

VAX-11 Bliss 16 v4,0 579

DISK$USERZ: [POWERS]ZRGADO.BL1;6

/0CA/
/TIN/
/G R/
/EARD/
<«S57>/WR/
/ITE/
s BW/
/FFE/

/RS/<00>
<00»>
/REG/
/IST/
/ER /
/EXI/
/STE/
/NCE/
/ TE/
/ST /
/FAI/
/LED/
<00><00>
/VvEC/

/TOR/
7 TE/
/ST 7/
/FAIl/
/LED/
<00><00>

/BR /
/LEV/
/EL /

/TES/

/T F/
/AIL/
/ED/<00>
<00»
/INI/
/T S/
/EQU/
/ENC/
/E F/
/AIL/

/ED/<Q0<00»>

/FAT/
/AL s/

/CON/

/TRO/
/LLE/
/R E/
/RRO/

/R/<00><00>
/ONL~/

ZRQAM]

> QPaggs 65
(34)

ey
ZRQAM]
vol.6

RD/RX EXERCISER
PROTECTION TABLE

000 T6S
006770
006778
006776
O TOW
007008

111
040
111
104
127
124

116
106
114
000
122
105

111
055

00~011
007014
007017
007022
007025

124
124
11°
114
124

105
040
116
111
000

103
103
106
103
000

11
104
106
101
111
040
122
000
104

105

007074
007077
007102
007105
007110
007113
007116
007121
007124

131
040
113
127
124
105
122
128
000

007131
007134

114
040

007142

116

00~000

00~08%0
007038
0070386

007041
007044
007046
007051
007054
00705"
007062
007065
007066

007071

007126

0071387

007145

101
105
040

| P2

103
1283
106

P.ADT:

111

123

P, ADU:

120
125
116
116
117
130
103
105
000

105
116
117
040
040
105
111
122

105
124

104
117

101

123

103
1cé
114
122
110
101
105

117
122
114
055
101
103
122
123
117

105

111
040

103
103

00721:
007214

116
13

104
10%

123

115

P.ADV:

105

040

007200
007203

11%

111

104

055
116
117
105
103
122
124

00720%,

124

/INE/
7 FA/
/ILE/
/D/<00~
/wWRl/
/TE /

.ASCII
.ASCII
LASCIT
LASCII
ASCI1

/TEC~/
/7 C/
/ONF/
/LIC/
/1/¢00><00>

.ASCII
LASCII
_ASCI1
LASCII
JASCII
LASCI1
.ASCII
.ASCII
.ASCIT

/ILE/
/7D/<00»
/FAT/
/AL /
71/¢57»/0/
7 ER/
/ROR/
<«00»
/DIS/

.ASCII
JASCII
LASCII

JASCII

/LED/
7 TO/

LASCII

/ND

JASCII

JASCII
ASCID

LASCIT

P ADW:

/¢

LASCII
LASCITI

.ASCII

LASCII
LASCII
LASCIT
LASCII
LASCII
LASCII
JASCII

101

/ACC/
/ESS/
7 FA/

/YPE~
7 UN/
/xNOQ/
/WN /
/770 /
/ExE/
/RCI1/
/SER/
«00><00»

LASCI1

124

/PRO/

LASCII
ASCII
JASCII
ASCII
LASCII
LASCII
ASCII
LASCII
LASCII

.ASCII

124

000
128

LASCII
LASCI1
JASCII
LASCII
.ASCII
LASCIYI

.ASCI1

124
040
117
122
122

106

111

117

114
000
101
114
057
105
117

007150
007153
007156
067161
007164
007167
007172

ooT1L7S

P.ADR:

P.ADS:

040

123

105
101
105

103
o3
101

113

040

11 Apr
11 Apr

LASCLI
LASCIT

/FAl/

7 S&/

/SET/
/ COv/
/NIR/
700L
/
/ER
/CrHA/
/RAC/
/TER/

ISt

/1ICS7 CO/

/Ay

/ND /<00
'SET.

1984
1984

11:56:01
11:45:02

VAX 11 Blisg 16 v4.,0 579
DISKSUSER? : [POWE RS JZRGADO.BL 1 ;6

SEQ 0064

Page

#6%
(34,

Ce,
=

007366
007371
007374

007377
007402
007405
007410
007413
007416
007421
007424

007427
007430
007433
007436
007441
007444
007447

124

114
122
110
101
105
123
108
122
120
128
110
040

117
122
114
055

.ASC

' 2.2 32 .2.32.2.2.3.3
vuouuonouunuunnanny
[(alazlalslaslalslalalslal

108

101
103
122

124
123
105
11?7
105
101
102

ASC

040
104
104

117
106
107
111
105
117

111
104
117
105

040

055
116

108
115
104

055
116
122
120
1283
110

P.ADY:

040

104

116

117

000

055

116

12¢
120
123
110

el el lelalelelalalelelalaleialaloaielelelolalelalolalaloioicisioioioioiclelolcliolialeololoicioioialiaioialais:
P P P g Pt Poog D= 0= Pug D= D= =G D=q Pug Peeg D= =g g 9@ Pt Dug Pug P =@ 0=G =) P=g =g =4 P4 +=4 P=q P=¢ P =g D= >4 = D=4 D=4 Put B0 b G D=0 Df D=l Dmd 0@ =t Pt 0 =9

007342

007345
007350
007353
007356
007361
007364

PROTECTION TABLE

BPPDPPPIPEPDPDPPPIIPIIPIPIIPIPIPIPIEIDPDIDIEDEIIPEIID
Y
a V
d a
a l a l Va a
d a
a a d a a al a a a a
OOOOOOOOOONONOOONOOOONOOONOOOOOOHOHNND

N
By
m '.6‘5.‘(‘
00235
00728
002388
00" 2%
00741
00°244
00°24°
00°252
007255
007269
007263
00266
00°2°1
00724
007277
007302
007305
00°310
007318
007316
0C¢ 821
007324
007326
007331
007534
00733

11
11

P.ADZ:

.ASC
o

vil.e

RO Rx £ZERCISER

>>>p
A AR
(alnlal

JRAMM]

"asC

7 CO/
/NTR/
/70LL
7

7€ER

/CHA/
/RAC/
/TER/
/71S%v/

71CS/

/7 RE/
7SP0/
/NSE
/

/7 WA/
’S 8B/
/AD

7END/
7C00/
7€ Q7
/R F/
/LAG/
/S 17
/N €/

/RRO/
/R7¢00»

/FATL/

/LED/
/7

10/

SE/

/ND

/0N

7L IN/

7€ C/
/70MM,
/AND/
<00><00»

/0N

7L IN/

/€ R/
7ESP/
70ONS
7

/’E

/AS

/BAD/
/

EN/

DO/

/D€ 7¢<00»
«00»

/0N

/L IN/

/€ R,
7ESP/
7
Z70ONS

k. W/

Apr 1984 11:56:01
Apr 1984 11:45:02

VAX 11 Blies 16 v4.0 579
DISKSUSERS: [POWE RS JZRQADO.
B 136

#0_00%7

(34)

Dey
ZRQAM]
vol.e

RO/Rx EXERCISER
PROTECTION TABLE

Q07482
OO T4SS
o7
007463
OV 7460
007a"]

123

116

117

040
126

105
057
122
125
124
101
105
Q00
101
122
124

0074 "4

00747
007502
007505
007510
007513
007516
007520
007523
007526
007531
007534
007537
007542
007545
007550

007553
007556
007561
007562
007565
007570
007573
007576
007601
007604
007607
007612
007615
007620
007622
007625
007630
007633
007636
007641
007644
007647
007652
007655
007660
007663
007666
007670
007673
007676
007701

116
104
101
116

11
11
/RS

040

113
127

104
111
000

117
105
105

/NOW/

/N D/

/EV]1/
P.AEA;

/87 7/
/FAY/

/LED/

<00><00>

P.REB:

/8AM/
/0RL.7

/7 Tw/
/AN /
/79027
/%R /
/UNI/

110

/1S 7
/SPE/

123
120
111
105
101
116
122
120

/CE/<00>

717¢57>/70/
/7 RE/

/QUE/

040
111
104

115
105

ZUNK
/

/CIF/

/1ED/
<Q0»

P.REC:

/8Ae/
/7

NO/

RE/

/SP0/

123

/NSE
/7
/7
/7

101

AT/
AD/

/DRE/

/58

7806/
<00>»<00»

P.AED:

/%A
/
/7 IN/

103
122
124
122
105
114

/COR/
/REC/
77 8/

104
126
045
000
045
040
105
045

/DR1/

/R L7/
ZEVE/
/L F/

117

/VE

7/
/7806
/
«00»<00>

P.AEE
:

/%Ae/
/7 S17
7€P v
/a0l

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Blies 16 v4.0 579
DISKSUSER?
: [POWF RS JZRQADO .BL 1 ;6

560 0068

Page

68
(%4,

ZRQAM]

RO/Rx EXERCISER
PROTECTION TARALE

vVol.6

007704
007707
007712
007715
Q0T 0
007722
007725
007730
007733
00°"36
007741
007744
0C?747
007752
207755
007760
007762
007765
007770
007773
007776
010001
010004

010007
010012
010015
010016
010021
010024
010027
010032
010035
010040
010043
010046
010051
010054
010057
010062
010065
010070
010073
010076
010101
010104
010107
010112
010115
010120
010123
010126
010131
010134

101

105

040
122
000
101
102
040
040
104
106

115

11 Apr 1984
11 Apr-1984

040
101

105
117

052
101
123
103
105
122

;
P .AEF

122
105

117

000
101
104

P.AEG:

113

062
040
116
117
114
105
P.REMH:

101

104
126

045
045
116
040

105

111

120

113
123

045
040

123
104
101

105

040
040

105
101
111

117
123
116

103
115
104
101
105

000

101
104
113
062

124
052
111
045

127
124
117
110
101
101

P.AEI:

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

/8A

/REA/
/0 E/
/RRO/
/R/7<00>
/%As/
/7 BA/

/D S/
/A C/

/70DE/
/7

FR/

/0M /

/DR1/
/VE 7
/794067
<00><00»>

/8As/
/7 D1/
/SKe/
702%/
/A W/
ZENT/
/7 OF7
/FLY/
E
7 <Q0»>
/N
<00>

/%Ae/
/7 DR/
/7IVE/
/ %0/
/68A/
/ NO/
/7 P/
/R0C/

/ESS/
7ING/

/7 Cov/

/MMA/
/ND /
/PAC/
/KET/

/757<00>»<00»
/8Ae/
/7 D1/

/SKe/
/D2w/
/R W/
ZENT/
/7 10/
/ TH/
/€ "/
/AVA/

/ILAY/

11:56:01
11:45:02

VAX-11 Blies

16 v4,0 579

DISKSUSER2:
[POWERS JZRQADO.BL 1 ;6

~ W

F 6
ZRQAM]
vol.6
010137
01014c°
010145

010150
C10152

010155
010160
010163
010166
010171
010174
010177
010202
010205
010210
010213
010216
010221
010224
010227
010232
010235
010240
010243
010246
010251
010254
010257
010262
010265
010270
010273
010276
010301
010304
010306
010311
010314
010317
010322
010325
010330
010333
010336
010341
010344
010347
010352
010355
010560
010363
010266
010370

RD/RXx EXERCISER
PROTECTION TABLE

102
042
124
105
040
125
105
107
132

123
107
124
105
04(
125
105
107
132

040
116

103
117
111

125
105
107
132

040

124

116
105
101
V40

125
105
10/

132

040

124
116
101
105

040

125
105
107
132
040
116

040

114
040
101
000
055
116

103
116

105
115
123
105
131

000
055
116

103
116

105
103
116

124
116
104
055
116
103
116
105
122
125
123
107
055
116
103
116
105
122
125
040
103
124
055
116
103
116
105
103
000
055

11-Apr-1984
11-Apr 1984

105
123
124
040
122

LAEJ:

117

111
104
105
101
040
120
000
040
122

.AEK:

117

111
104

117
105
111
040
000
040
122
117
111
104

LAEL
:

105

122
115

.AEM:

.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIX
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII

.AEN:

.AREOD:;

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/8BLE/

/7" S/
/TAT/

/E/<Q0>

/UNR/
/ECO/
/GNI/

/2ED/
/

ME/

/SSA/
/GE 7/

/TYP/
/E/<00><00>
/7

/UNR/
/7ECO/
/GNI1/
/2ED/
/7 CO/s
/NNE
/

/CT1/

/0N

7ID7<00>

/UNR/

/7€C0/

/GNI1/

7280/

/ RE/
/TUR/
/N

/ESS/

/AGE
/
<00><00>
/

/UNR/
7€C0/

/GNI/
/ZED/
/

RE/

/TUR/

/N P/
/ACK/

7/€T1/<00>
/

/UNR/

/ECO/
/GNI1/
/ZED/
/

CR/

/N/<00>
/

11:56:01
11:45:02

VAX-11 Bliss 16 V4.0 579
DISK$USER2:[POWERS JZRQADO.BL1;:6

56Q 0070

Page

70
(24)

G6
ZRQAM]

RO/Rx EXERCISER
PROTECTION TABLE

vol1.6

010373
010%7e
010401
010404
010407

116

103
116

105
117
117
000
055
123

010412
010415
010420
010423
010426
010431
010434

040
101

123
117

010437

010442
010445
010450
010453
010456
010461
010464
010467
010472
010475
010500
010503
010506
010511
010514
010517
010522
010525
010530
010533
010534
010537
010542
010545
010550
010553
010556
010561
010564
010567
010572
010575
010600
010603
010606
010611
010614
010617
010622
010625

040

122
055
125
123
124

040

104
105

000
055
116
103
116
105

123
124

040
104

055
102
110
124
117

101
040
122
055
102

110
124
117
101

040
040

125
102

040

122
055
116
114
124

122
117
111
104
120
104
000

040

103
123
124

040
104
105
000
040
120

11-Apr-1984
11 Apr 1984

LAEP:

LAEQ:

124
125
103
105
122

000
040

122
117

.RER:

111
104

124
125
103
105
040
116

.AES:

117

040

115
122
105

000
040
116

LAET:

117

115
122
105
000
040

101
105
117

LAEY:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCI1
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCI1
.ASCI1
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII

/UNR/

/ECO/

/GN1/

/2€0/

/7 0P/
/C0D/
/€7 <00 ><00>
/7

/MSC/
/P S/
/TAT/

/C0D/

/E E/
/RR/<00>
/

/70UP/
/7 ST/
/ATY/
/8 C/
/00€/
/ ER/
/R/<00><00>
/

/UNR/
/ECO/
/GNI/

72ED/

/7 ST/
/ATY/
/S C/

/700E/
<00»
/

/LBN/
/ HO/
/ST 7/
/COM/
/PAR/
/E E/
/RR/<00»>
/

/CBN/
/ HO/
/87T

7COM/
/PAR/
/E E/
/RR/<00>
/

/UNA/

/BLE/

10/

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISKS$USERZ:
[POWERS 1ZRQADO.BI 1;6

56Q 0071
P

(34)

H6
RD/RX EXERCISER

ZRQAM]

PROTECTION

vOl.6

010630
010633
010636

010641
010644
010647
010650
010653
010656
010661
010064
01066~
010672
010675
010700
010703
010706
010711
010714
010717
010722
010725
010730
010733
010736
010741
010744
010747
010752
010755
010760
010763
010766
010771
010774
010777
011002
011005
011010
011013
011016
011021
011022
011025
011030
011033
011036
011041
011044
011047
011052
011055
011060

040
101
104
040
104

114
104
125
115
111

040

0SS
122

105

040

120
113
127
116

123
107
124
040

117

045
040
123

045
116
114
040
115
116

117

101
040

117
105

116
040
106
116

045
122

123
111

040
040

101
101
105
124
105

111

104

040
124
110
040
111
040

114
114
120
107
101
113

062
101
126
111

103
115
104
101

115

116
101
122

101
111

117

114
105
101
101
111

117

124
101
111
102

04G

101
000

11 Apr 1984
11 Apr-1984

TABLE

117

040

120
105
101

040
122
116
125
120

P.AREV:

040

105

125
116
103
122

103
122

000
052
111
045
000
111
101
104

P.AEM:

P.AEY:

117

101
000
103
115
104
102
124
000
125
124
106
111
000

124

116

124

116

117

126
114
114
123
124

P.AEZ:

.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
<ASCII
.ASCII
.ASCII
+ASCII
.ASCII
LASCII
.ASCI1
.ASCII
.ASCII
.ASCII
LASCLI

P.AFA:

P.AFB:

.ASCII
.ASCII
.ASCII
LASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
LASCII
.ASCI1
.ASCII
LASCIT
.ASCII
.ASCII
.hSCII
LASCII
LASCII
LASCII

/7 LO/
/RD /
/DUP/
/ ME/
/DIA/
<00>
/

/ERR/
/7 IN/
/7 DU/
/P P/
/KT /
/WHE
/
/N U/
/SIN/
/G C/
/TLR/
/7 LC/
/ PR/

/70G/<00>
/%As/

/7 DI/

/SKe/

/702/<00>

/8AY/
/NVA/

7LID/

CO/

/MMA/

/ND/<00>
/%AC./
/0MM/

/AND/

/ AB/
/ORT/

/ED/<00>
/98AU/
/NIT/
/7 OF/
/FLY/

/NE /<00>
<00>

/8AT/
/RAN/

/SI1/s
/I0ON/
/7

10/

Av/

/
/AIL
/ABL
/
/E S/
/TAT/

/€/<00>

11:56:01
11:45:02

VAX-11 Bliss 16 v4,0 579
DISKSUSER?2:
[POWERS ]JZRQADO .BLL:6

5€Q 0072
72
Pag.:
(34)

Le
ZRQAML

RD/Rx EXERCISER
PROTECTION TABLE

voL.6

011062

101
104
040
122
124
122
122

011065
011070
011073
011076

011101
011104
011107
011110
011113
O1lll1leé
o11121
Oll124
o11127?
011132
011135
011140
011143
Ol1146
011151
011154
011157
011162
011165
0i1170

011173
011176
01120C
011203
011206
011211
011214
ol1217
011222
011225
011230
011233
011234
011237
0ll1242
011245
011250
011253
011256
011260
011263
011266
011271
011274
011276
011301
011304

011307

11-Apr-1984
11 Apr 1984

115
111
106
115
040
122
000

AFC:

127
124
120
124
124

LAFD:

000
104
111
040

.AFE:

115
122
105
117

000
104
101
122

;
LAFF

122

110
124
125
105

LAFG:

101
105
040
122
000

117/
122
114

040

122
000
045
122
105
122
122
045

105
101

040

117
101

103
124
114
122
122
122

JAFM:

104
126
105

LAFT:

115
123
105
122

AFJ:

117

101
106

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

/79AM/

/EDL/

/A F/
/0RM/
/AT /
7ERR/
/0R/ <Q0»>
<00»

/%AW/
/RIT/
/E-P/

/ROT/

7ECT/

/7ED/ <00>
/8AD/

/EV1/

/CE 7/
/COM/
/PAR/
/€ E/
/RRO/
/R/<00><00>
/%AD/
/ATA/
/ ER/
/ROR/
<Q0><00>

/9AH/
7QS1/
/7 BU/
/FFE/
/R A/

/7CCE~/

/58S /
/ERR/
/0R/7<00>
<Q0»>

/9AC/

/ONT/
/ROL/

/LER/

/ ERv/
/ROR/

<00><00»

/9AD/

/RIV/
/€ €/
/RRO/
/R/<00»
/9AM/

7ESS/

/AGE
/
/ FR/

11:56:01
11:45:02

VAX

11 Bliss

v4.0 579

DISKSUSER2:
[POWERS ]ZRQADO.BL 1;:%

3€Q 0073
D

(34,

\J()
RD/RX EXERCISER
PROTECTION TABLE

voli.6

011312
011315
011320
011323
011326
011331
011334
011337
011342
011345
011350
011353
011356
011361
011364
011367
011370
011373
011376

011401
011404
011407
011412
011414
0l1416
011420
011422
011424
011426
011430
011432
011434
011436
011440
011442
011444
011446
011451
011454
011457
011462
011465
011470
011473
011476
011501
011504
011506
011511
011514
011517
011522
011525

117
111
105
101
104
107
123
103
045
117

115

115
122
105

120

040

117

000
045

117

101
040

115
125
010736’
010760

011002°
011022’
011062
011110’
011132
o11162:
011200
011234
011260
011276
011342’
011370’
045
122
122

117
115
123
105
105
111
104
116

045
040
116

117
105
105

116
122

114

111
116
124
123
101
123

103

040
124
116
040

101

117

111
000
110
124

040
122
000

101
115
116
124
105
124

103
115
104

101
122

107
105

101

103

126
072
000
101

103
124
114
122
122

P.AFK:

117
101

105
122
122

11
11

P_AFL:

111

117

000

105

117

P_AEX:

P.AFM:

114

123
107
122
105
105
045
052

117

122
114

040

122

P.AFQO:

.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
+ASCII
.ASCTI
.ASCII
.ASCII
.WORD
.WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII

/0M 7/
/7INT/
/ERN/
/AL /
/0DIA/

/GNO/

/ST1/
/7CS7<Q0»
/8AH/

{4
/7

CO/

/MPA/

/RE /
/ERR/
/0R/7<0Q0>

<09~

/%AC/
/0MM/
/AND/
/ T1/
/MEQ/
2UT/7<00>

VOUUVOUVVVOLDVOVOO

ZRQAM1

.AEY
.AEZ
.AFA
.AFB

.AFC

.AFD
.AFE

.AFF

.AFG
.AFH

LAFI

.AFJ

.AFK

/
/9%AE
/RR0O/
/R L/
70G 7/
/MES/
/SAG/
/€ R/

/ECE/
7Tvk/

/D:d/

/N/<Q0»>
/
/A8
/7 COs
/NTR/

/0LLY/

/ER /
/ERR/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 V4,0 579
DISKS$USER?
: [POWFRS JZRQADO.BL 1;:6

5€Q 0074

Page

(34,

I7¢,
RD/RX EXERCISER
PROTECTION TABLE

ZRQAM]
vOl.6

011530
011533
011536
011541
011544
01154”
011552
011555
011560
011563
011560
011571
011574
011576
011601
011604
011607
011612
011615
011620
011623
011626
011631

011634
011637
011642
011644
011647
011652

011655
011660
011663
011666
011671
011674
011677
011702
011705
011710
011713
011716
011721
011724
011727
011732
011735
011740
011743
011746
011751
C11754
011757
011762

117

116
045
040

123
115
11?
103
123
122
182

122

000
101

110
124
105
122
101
105

040
122
045

045
000
052

P.AFP:

117

116

P.AFQ:

123
104
101

040

123
124
116

105
105
117
116

P.AFR:

040

123

10°
101

040

124
104
104

111

124
103
116
124
105

103

117

116

040
123
104
101

040

115
114

111

P.AFS:

123
114
104

113

1984

11:56:01

11 Apr 1984 11:45:02

117
040
115
131
103
123
105

045
040

Apr

.ASCII
LASCIL
.ASCI1
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
LASCII
.ASCII
LASCII
LASCIT
.ASCII
LASCII
LASCII
.ASCII
LASCIT
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCIT
.ASCI1
.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCIT
LASCII

/0Rw/

/N/<00»><00>

/8Re/
/ HO/
/81 7
/MEM/
/0RY/
/7 AC/

/7CES/
/S &/

/RRO/

/ReN/
<Q0><00>

/8As/

/7 01/

/SKs%/
/D2%/
/R -/
/7 D1/
/5K /
/TRA/
/
/NSF
/ER /
/ERR/
/0Re/

/N7 <Q0>
/
/8As

01/

/SKe/

702%/
/A
/
/7

"S/

/TAN/
/DAR/

/0 D/
SISK/
/7 IN/

/TeD/

/CON/

/NEC/
VA
V4
/ERR/
/0R%/

/N/<Q0><00>
/8As/

/7 D1/

/SKe/
702%/
7/
/A
/ "S/
/MAL
/

/L O/
/71ISK/

VAX

11 Bliss

16 v4,0 579

DISKSUSERZ2: [PNWERS JZRQADO.BL 1;6

5EQ 0075

Page

(34,

L #
ZRQAM]
vol.6

011765
011770
011773
011776
012000
012002
012004
012006
012010
012012
012015
0120290
012023
012026

012030
012032
012036

012041
012044
012047
012052
012055
012060
012063
012064
012067
012072

012075
012100

012103
012106
0le111
012114
012117
012122
012125
012126
012131

012134
012136
012141
012144
012146
012151
012154
012157
012162
012165
012170
012173
012174
012177
012202

11 Apr 1984 11:56:01

RO/RX EXERCISER
PROTECTION TABLE

04?2
122
122
011506

040
122
045
000

105
117
116

.AFN:

011536

011576011644
011732
045
101

123

040
066
045

101

123
124

040
104
040
062
045
000
045
101
123
137
104
040
045
101
103
115
104
1000/0)
045
105
000
045
122
105
045
103
120
105
045
116
116
000
045

103
123

116
052
101
045
000
116
052
124

04%
040
072

117

045
040

072

117

000
064

116
052

125
103
105
000

.AFU;

101
123

125
103
105

045
000

LAFT,

117
117

045
040
102

JAFYV:
LAFW:

117

116
052

072
000
045
040

101
072

116
040

101
101
000
101
111
000
101

122
104

LAF Y

127
124

LAFZ

055
115
122
000

.AGA:

117

101
000
101

114
105

101
103
123

JAF X

115

117

111
000
101

105

000

.AGB:

.AGC:

.ASCII
.ASCII
.ASCII
LASCII
.WORD
.WORD
.WORD
.WORD
.WORD
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
<ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/" E/
/RRO/
/ReN/
<«00><00>

P.AFO
P.AFP
P.AFQ
P.AFR
P.AFS
/
/9N
/ARs 7/
/SA:/
/7 w0/
76/<00>
/9N
/

/As /
/STA/
/7TYS/
/7 CO/
/DE:/
/7 %0/

727<00><00>
/%04/

<00»>

/9N
/

/As /
/S5uUB/

7 _CO/s
/DE:/

/7 /7<00><00>
/9N
/

/As /
/COM/
/MAN/
/D: 7
<Q00»>

/9%AR/
/EAD/
<00><00»>

/78AW/
/RIT/
/€7 <Q0>
/%A

/COM/
/PAR/
/BE/7<00><00>
/%A0/
/NLI/

/NE/<Q0>

<00>

/8AR/

/7CCE/

/75S/7<Q0»>

Apr

1984

11:45:02

VAX 11 Bliss 16 v4.0 579

DISK$USER2:[POWERS JZRQADO.BL 1 ;6

360 0076,

hage

(3a,

Mé>
RD/RX EXERCISER
PROTECTION TABLE

ZRQ@AM]
vo1.6

012205
012206
012211
012212
c12215
012220
012223

117
101

012226

012231
012234
012237
012242
012245
012250
012253
012256
012261
012264
012267
012272
012275
012300
012302

117

101
000
116
052
163
102
040

012305
012310
012313
012316
012321
012324

117

012327

012332
012335
012340
012343
012346
012351
012354
01237
012362
012365
012370
012373

012376
012401

012404
012407
012412
012415
012420
012423
012426
012431
012434

116
052
101
102
103
050
163
162
154
145
154
072
104
101
050
124

117

040

120
124

040

145
141

040
157
040
160
143
142
051
045
045
040
103
045
045
000
116
052
101
102

103
122
117
105

050
160
143

11 Apr
11 Apr

063

P.AGD:

045
040
104

P.AGE:

114
113
110
164
145
141
141
145

040

065
056

117

040
066
051

045

040

P.AGF:

164
101
102
103
050
163
162
154
145
154
072

117
101

113
105

122
104
122
154
145

.ASCII

.ASCII
.ASCIX
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

101
050
124

000
045
040
104
114

LASCII
.ASCI1
LASCII

P.AGG:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII

<«00»>

/79%03/
<Q0>

/98N
/
/As /

/BAD/
/ BL/
/70CK/
/7 (H/

/ost/
/

re/

/pla’/
/cea’/

/ble/

/): /
/%DS/

/%A ./
/7 (0Q/
/CT 7/
/4067

/8RA)/
<00><00>

/%N
/

/ARs

/1st/

/ BA/
/0 8/

/L0C/
/K

(/7

/Hos/
t v/
/epl/

/ace/
/abl/

/e):/

/ %D/
/S8A/
/7.

70CT/
/7

w0/

/68R/

/)/<00><00>

/%N/
/As /

/8AD/
/

BL/

/70CK/
/ RE/
/POR/
/TED/
/ (R/
/epl/
/ace/

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISK$USERZ:
[POWERS )ZRGADO.BL 1;6

SE0Q 007
Page

(34)

N6
ZRQAM|
vO0l.6

012437

012442
012445
012450
012453
012456
012461
012464
012466
012471
012474
012477
012502
012505
012510

012513

012516
012521
012524
012527
012532
012535
012540
012543
012546
012551
012554
012557
012562
012565
012570
012573
012576
012601
012604
012607
012612
012615
012620
012623
012626

012630
012633
012636
012641
012644
012647
012652
01265%
012660
0126A3
012666
012671

RD/RX EXERCISER
PROTECTION TABLE

144
040
045

040

103
045

045
000
045
101
114
072
104
101
050
124

117

101

101
120
072
104
101
050
124
117
101
045
101
114
072

122
104
045
045
040
103

045
045

000
045
101
114
072
127
124

040

051
045
101
050
124

117

101
000
116
052

102

040

065
056

117

040
066

051
116
052
102
040

065
056

117

040
066

051
116
0S2
102
040

105
051
104
101
050
124

117

101
000
116
052
102
040
122

105

065
056

045
045
040

040
066

045
045

117

103

11
11

or2
104
056

117

040
066
051

045
040
116
045
045
040
103
045
045
000
045
040
116
045
045
040

P.AGH:

P.AGI:

103

045
045
000
045
040
116
050
101
040
065
056
117
040
066
051
045

116
050
111
051
104
101
050
124
117
101

P.AGJ:

P.AGK:

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

/d):/

/7 uD/
/%A ./

/7 (0/

/CT 7/
7906/
/%8R)/
<00><00»>

/
/%N
/As /
/LBN/
FERN

/D5%/
/AR, /

/7(0C/

/T o/
/706%/
/R)/<00>
/9N
/
/As /

/PBN/
/:

/05%/
/A, /
/7(0C/
/7T &/
/706%/
/AR)/<00>
/9N
/
/Rs /
/LBN/
/7: (/7
/REA/
/D) 7/
/9DS/
/
/%A,
/7 (0/
/CY 7
/906/
/%R)/
<00><00»

/79N
/
/Rs /

/LBN/
/e

/WR1/
/TE)/
/ D/
/5%A/
/7. (7

/0CT1/
/

%0/

/68A/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11 Bliss 16 v4,0 S79
DISK$USER2:
[POWERS JZRQADO.BL1;:5

5eQ 0078
Page

(34)

c13%077
013102
013105
013110
013113
018311¢
013121
01%1c4
01217

040

125

040
040
101

103
115
104
045
045

000
116
052

131

040

125

040
040
111
040

119

045
045
000
045
040

124
103
116
111
122
104
117
101

072
104

101

000
045

040

124
108

116
111

127
124
108
1195

P.AGO:

g Bmd 0t P=q
Pmof 5= P=d D= Pt D=t (nef B0 Pt D= 50 D=t $=0 D=0 D=t D=l Pt Dt

ASCI
P.AGN:

(==d =4 D=0 P

LASCI
-ASCl

D=0 P4 =t P=4 D

116
040
065
056
116
052
131

103
118
104

g P

115

Dot Pg D=4 =4 elalalalalalal

125

040
040

P=g =t P

131

040

P.AGM:

g B=g =t 5=@ $=¢ - € D=

045
045
000
116
052

Put =G D

108

104
101
050
124
11?
101
000
045
040
124
103
116
111

) D= P

012767
012772
012775
013000
013003
013006
013011
013014
013017
013022
013025
013030
0130383
013036
013041
013044
01304
013052
01305S
013060
013068
013066
013071
013074

040

117

040
056

¢ )/<00»

/
/76NS
/ARe

/REP/

/LAC/

/
/EME
/NT 7

/8L0/
/CK

/NO./
/7 @D/
/S8A/

/7,

/0Ct/
/7 @0/
768A/

7)7<00»<00»
/6N8/
/ARe /

/Bvy1/
/€ C/
70UN/
/1 17/
/N C/
/70MM/
/
/AND
/;

705/
/A, 7¢<00»
/
/6Ne
/Ae /

/811/
/€

/0UN/
/1 17/

/N R/

7
7EAD
7 €O/
/MMA/
/wgl

@D/
7SeA/
/7.7¢00>»<00»

=0 Pl PG

012745
012750
012758
012756
012761
012764

11°
045
045

040

ASCI
JASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
LASCI
.ASCI
.ASCI
.ASCI
.ASCIL
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI
.ASCI

=0 Bmg 0t g Biug 0= § P4

012742

118

120
103
105

.ASCI

/78NS
/
‘Re 7

7€ Cv/

D=0 50 Pt 0t =0 P

124
114

0127
012728
0la e
012°8%1
012734
01278~

040

P.AGL
;

NOOOOOOOHOOOOOOONNND

012715

105
101
115

045

PG =4 Pg 0=t gy (uh 0o

000
116
052

>»
v
el

012674
012676
012701
o1e?
012707

TABLE

>»Pp> PDEPIPDPDPPD
wnuny nununununny
NOO (alalalalalslal

PROTECTION

DPPPPI2PPPPPIP2PIPIPIPPDD

vOol.e

o12"12

1 Apr 1984 11:56:01

EXERCISER

D VAN AANDNBLBODBNAVONVNOVLUVNY

RD/Rx

JRQAM]

/Bevlys
/OUN/

/N W/
/RIT

70MM/

Apr

1984

11:45:02

VAX 11 Bliss 16 v4.0 579

DISKSUSER?:
(POWERS 1ZRAADO.BL L ;6

3EQ 0079

" rege

(34,

c/
—

JRUYM|
Wil.e

PROTECTIUN

o181
Ci1R188
018140
Ol1%148
Cl8140
018151

110
040
005
056
116
052

013162
01%165%

101
043
106
151

012154
01818°

018170
018178
013170
013201
013204
01820~
013212
013215
013220
018222
018225
013230
013233
013236

013241
012244
01324~
013252
013255
013260
013263
013266
o1%271
013274
013277
013%00
013303
013306
01331
013%14
013317
013322
0133825
013330
013333
013336
01334}
Ci%344
013347
0133%2
01335%
011%0
Ol13%.7*

11 Apr 1984 11:%:01

RO Ry e x¢RCISER

103

128
122

123

122
104
045
045
000
116
052
057
102
100
040

104
123
050
040

164

072

117
101

117
116
052
057
102
106
040
104

123

100
040
101
050

040

164
072
117
101
117

TABLE

104

/7AND/

045

7058/
/A, /7<00»
/74NE/
/ARe /
/RCT/
/
/JUAL
/7 @ 7
/0F 7/
/8v1/
7ES 7/

o4%H

000
045
040

124

114
040
040
124
040
101
106
122
072
104
101

/TRA/

/NSF
/
/ERR/

7€D:/

/7 w0/
/754A/
/7./7<00»
/74N
/
/Ae 7/
717¢82>/707
/7 BY/
/FFE/
/R A/

045

040

117
125
105
101
122
123
063

700R/
7ESS/
7

/7ite’/
/) 7

163

040
066
040
066

117
125
105
101
122
123
117
122
104
063
142

163

040
066
040
066

(%7

/2 b/

142

045
040

/78067
/8A /
7806/
«Q0>»

P.AGR;

/74N
/
/Ae /
717¢87»/0/
/7 B/
/FEE/
/R A/
/DDR/
7ESS/
/7 F0Q/
/R

7EAD/

(%7

/72

®/

/its/
/):

7806/
/@A /
7806/

Apr

1964

11:45:02

VvAX 11 Bliss 156 v4.0 579

DISK$USER.:
[ POWERS 1ZRIAD0 . BL 116

,co“.uu!a 20
(%)

D7
JRQAML

RO/RAx EXERCISER
PROTECTION TABLE

vol.é

013360

O133°0
013873
013%76
013401
013404
013407
013412
013415
013420
013423
013420
013431
013434
0134%"
013442
013445
013450
C13453
013456
013460
013463
013466
013471
013474
013477
013502
013505
013510
013513
013516
013521
013524
013527
013532
013535
013540
013543
013546
013551
013554
013556
013561
013564
013567
013572
013575
013600
013603
013606
013611
013614
013416

045
101
111
040
106
122
104
105
040
122
122
105
063

000
116
052

057

045
040

11
11
P.AGS:

117

125
105

101

122
128
11’
12?7
124
050
040

164
072

142

117
101
117

040
066
040
066

045

117

101
116
116

P.AGT:

105
123
106

117

040

115

101
057
123
116

116
122

040

103
124

101
040

105
045
000
040

P.AGU:

045

P.AGV:

066

040

115

000
116

040
062
072
062
040
125
045
045

P.AGW:

LASCII
ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI!
LASCII
LASCII

<00><«00»
/98N8/

/Ae /
/717¢857~70/
/ ByY/

/FFE/

/R A/
/D0R/

7ESS/
/7

FO/

/R W/
/RIT/

/€ (7
732 /
/bit/

/8):/
/7

80/

768A/
/7 80/
/76/7<00>
/74N®/
/ACO/
/NTE/
/NIS/
/7 OF7/
/7 CO/
/MMA/

/ND/<¢S7>

/RES/

/PON/
/7S¢ /
/PAC/
/KET/
/7 SA/
/VE /
/ARE
/
/A:%/
/N7 <Q0» <00

/S8R

7906/
<00><00»

/
/dNe
/As

/TIM/
/E:

/8227
/®A:/
/922/
/8A /
7HOVYS
/RSe/

/N/<00»
/
/78N

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4,0 579
DISKSUSER? : [POWE RS JZRQADO .BL 1 ;4

58Q 0083

Page

A1
(34,

b/
RO/Rx EXERCISER

ZRQAM1
vOl.é

PROTECTION

013621
013624
013627
013632
13635
013640
013643
013646
013651
013654
013057
013662
013665
013670
013673
013674
013677
013702
013705
013710
013713

040
104
113
040
062
116
104

013716
013721
013722
013725
013730
013733
013736
013741
013744
013747
013752
013755
013760
013763
013766
o13771
013774
013777
014002
014005
014010
014013
014016
014021
014024
014027
014030
014033
014036
014041
014044
014047

0712

104

101
050
124

117

052
111
040
045
000
045

P.AGX:

102

040
065
056

117

040
066

051

116
102

045
131
040
115
122
045
000

P.AGY:

045
101
117
127
124
116

P.AGZ:

040

063

116

122
104

040
111

105

127

040

164
117

072
066

116
104
114
101
040
111

045
125
111
124
125
124

102
045
101

.ASCII
JASCII
LASCII
LASCII
.ASCII
.ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCTII

/A ¢/
/7 D1/
/9K /

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/RIT/

.ASCII

117

104
045
066
116
122
104
040
101
127
104
151
045
066
040

105
116

TABLE

101

105
125
105

101

11 -Apr-1984
11 Apr 1984

ASCII

P.ANHA:

117

122

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

117

040

156
102

157

/02/¢<00>
/79%N%
/

/RDB/

/N: /
/7980S/
/98A .,/
/7 (07
/CY v
/7906
/
/9AY)/
<00>

/%N
/
/RBY/
/TE 7/
/NUM/
/BER/
/:

703/<00»
<Q0>

/
/79Ns
/ARA/
/NDQ/
/M

/TEN/
/7 W0/
/RD 7/
/:487

/16/<00>
/8N%/
/7ARA/
/NDOQ/
/M R/
/EAD/
/7 WO/

/RD

bin/

/:%8/7
/716%/
/A o/

.ASCI1

‘ct:/
/9067

.ASCII
.ASCI1I

<00>

ASCII

P.AMB:

ASCII

.ASCI1I
.ASCII
.ASCII
LASCII

/7uNs/
/ADY/
/PLL/
/CAT/
7€ U/

/NIT/

11:56:01
11:45:02

VAX-11 Bliss 16 v4.,0-579
DISKS$USER?:
[ POWERS JZRQADO.BL1 ;6

5EQ 0082
Page

82
(34)

M7
ZRQAM]

RO/Rx EXERCISER
PROIECTION TABLE

vOl.6

014052
014055
014060
014063
014066
014071
014074
014077
014102
014105
014110
014113
014116
014121
014124
014127
014132
014135
014140
014143
014146
014150
014153
014156
014161
014164
014167
014172
014174
014177
014202
014205
014210
014213
014216
014221
014224
014227
014232
014235
014240
014243
014246
014251
014254
014257
014262
014265
014270
014273
014276
014301
014304

045
045
101
111
040
066
116

115
105

123

045

124

110
040
061
040
106
122
124
120
104
105
105
000
101
111
104
116
107
122
000
101

111

040
116

103
104

125
111
124
125
124
125
105
045
114
101
040

114
105

124
114
116
116

101
120
103
105
116
040
115
122
101
122
104

117

111
000
101
111
040
114
105

104
101
124
120
045
000
045

117

11
11

P.AMC:

040
101
045
045
104
106
105
040
040
104
123

123
123

116

P.AHD:

117

040
116

105
123
114
103
116
124

P.AHE
;

104
114
101

P.AHF
:

000

040
111

116
102
000
101
105
131
l1le
116
000
123

114
117

111
000

P.AHG:

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

/:94D7/
/2%A/
/ AT/
/7 1P/
/:

/706/<00>

/9N
/
/7AMO/
/RE 7

/THA/
/N o/
/D1%/

/A D/
/IFF/
/
/ERE
/NT 7/
/1P 7/
/RDD/
/RES/

/SES/
<00>

00>

/%AS/
/PIN/

/7-D0/
/WN /
/IGN/
/0RE/
/D7 <00>
/%AS/

/TIL/
/t C/
/ONN/

/ECT/
7€ED/<00>

/%AD/
7UPL/
7ICA/
/TE 7/
/UNY/
/T N/
/UMB/

/ER/<Q0>
/8AR/

/LRE/

/ADY/

/ ON/
7/LIN/
/7€87<00><00>

/9AS/
/TIL/
/L O/
/NLI/

/NE
7 <00>

Apr
Apr

1984
1984

11:5%6:01
11:45:02

VAX 11 Bliss 16 v4,0 579
DISK$
[POWERS
USERZ
JZRQADO.BL 1:
;6

5€Q 0083

Page

83
(34)

G/
jol
4

ZRQAM1
vOl.6

014307
014310
014313
014316
14321
014324
V14327
014332
014335
014340
014343
014346
014351
014354
014357
014362
014365
014370
014373
014376
014401

014404
014407
014412
014415
014420
014423
014420
014431
014434
014437
01444,
014445
014450
014453
014456
014461
014464
014467
014472

014475
014500
014503
014506
014511
014514
014517
014522
014525
014530
014533
01453%
014541

RO/Rx EXERCISER
PROTECTION TABLE

101
111

125
116
116
122
116
116

124
101
124
122
117
122
114
000
101
040
114
105
117
124
040
040
111
040
123
114
040
040
111
110
101
111
111
120
101
126
050
065
065
167
164
146

154
000
101
111
104
101
105
102

125
124

11
11
P.ANI:

116
117
040
040
114
105
117
116
110
040
116
11°
105
000
116

P.AHJ:

126
125

040

125
105
117
104
126
104
101

105

102
123
124
000
125
124
116
105
124
105
122
061
062
162
145

141
164
000

125
124

111
102
104
131

P.AHK

:
P.AML

.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
<ASCII
.ASCII

<00»

/
/78R

/NIT/
/7

UN/

/KNO/
/WN /
/0R 7
/ONL/
/INE/
/7 10/
/ AN/
/0TH/
/ER

7CON/
/7TRO/

/LLE/

/R/<00><00>

/98AN/

/0 v/
/0LY/

/ME /
/7MOV/
/NTE/
/D O/
/R D/

/RIV/
/€ D/
/7ISA/

/BLE/

/0 B/
/Y S/

/WIT/

/CH/ <00>
/9AY/
/NIT/

IN/

/70PE/

/RAT/

/IVE/
/7 (R/
/0517
«§7>/527

/ wr/
/ite’/
/

fa/

7ult/

7)7<00><00>

/8AY/

/NIT/

/7 01/
/SAB/
/LED/
/7 8Y/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11

Bliss

V4,0 579

DISKSUSER?Z
: [POWERS JZRUADO.BL 1 ;6

Q@ 0084

(34)

H /7
RO/RXx EXERCISER
PROTECTION TABLE

ZRQ@AML
vOl.6é

014544
01454~
014552
014555
014560
01456%
014566
014571
014574
014577
014002
014605
014610
014613
014014
014617
014622
014625
014630
014633
014636

106
114
123
126
105
122
116
122
114
111
116
124

014644
014647
014652
014655
014660
014663
014666
014671
014674
014677
014702
014705
014710
14713
014716
014721
014724
014727
014732
014735
014740
014743
014746
014751
014754
014757
014762
014765
0:4770
014772
014775

111
040
040

124

116
040
101

042

040
111
040

ASCII
.ASCII
.ASCII

117

101

124
124

014641

105

123

040

ASCIX
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

111
104

111
000

117
105
105
117

11
11

P.AMM:

122
104
122
122
104
105
105

127

103
123
107
103

117

122
000
101

103

P.AMN:

122
101
102
116
122
124
040

124

117

104
111
045

103

042
122

104
122
122
115
111
105
000
101
124

P.AHO:

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

/7 F1/

/ELD/

/7 SE/
/RV1/
/CE 7/
/0R 7/
/7INT/
7ERN/
/AL /
/DIA/

/GNO/
/ST1/

/7CS/<00>
<00>

/8A"/
/FOR/

/7CED/
/ ER/
/ROR/
/7"

/ETE/
/CTE/
/D W/
/HIL/
/E A/

/7CCE/

/78S1/

/NG /
/FCT/

/ OR/

/ RC/
/717<00><00>
/
/8RS
/ECT/
/0R 7/
/HAD/
/ BE/
/7EN /
/WRY/
/T1TE/
/N W/
/ITH/
/7

"Fv

/0RC/
/€D

/ERR/
/0R"/
/

MO/

7
/01F
/1ER/

<00><00>
/9AF
/
/CY 7

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX

11 Bliss

156

v4,0 579

DISKS$USERZ2:
[POWERS JZRGADO.BL1 ;6

56£Q 0085

Page

RS
(34,

I/
ZRQAM]

RD/RX EXERCISER

vol.e

PROTECTION

015000
0150032
015006
015011
C15014
01501~
015022
015025
015030
015033
015036
015041
015044
01504~
015052
015055
015060
015063
015066
015071
015074

01507~
015102
015105
015110
015113
015116
015121
015124
015127
015132
015135
015140
015143
015146
015151
015154
015157
015162
01516S
015170
615173
015176
015201
015204
015206
015211
015214

015217
015222
015225
015230
015273

117
122
122
104
114
055
116
114

103
122
105
105
105
105
103
120
105
122
122

126

151
150

144
040

164
157

144
045
103

117

122
040
122
104
114
055
101
116

124
105

124
045
101
040
116
116
040

125

040

122

103
125
105
101

105

040
126
111

123
124

040
101
122
101
101
122

117

101
040
122
040
141
144
145
145

156

040

165
051
101
124
122

103
125
105

101

105
040
124
123
103
111
117

000

101
124
123
103

117

106
116
050

11
11

TABLE

040

124

116
101
102
040
111
101
104
105

117
110
104

000
110
104
040

115
122
105
117
050
154
040
141
162
157
146
156
000
106
040
040
124
116
101
102
040
104
101

131

040

115
125

104
101
131
040
124

117
104
104

P.AHQ:

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

/0R 7/
/RCT/
/7 UN/
/REA/

/DAB~/

/LE 7/
/7
1z
/NVA/

/LID/
/

SE/

/CT0/

/ERD/

/7ER/<Q0>
/9AMH/

/EAD/
/ER 7/
/COM/

/PAR/
/€ E/
/RRQ/
/R (7

/Nal/
/id

/hea/
/der/
/

no/

€/

/oun/

/708)/<00>
/8AF
/7
/CT 7/
/0R /
/RCT/
/7 UN/
/REA/

/DAB/

/LE

/- D/
/ATA/
/ Sv/

/NC 7
/TIM/
/EQU”/
/717<00>

/9AD/
/ATA/
SvY/
/NC 7

/NOT/

FO/s

/UND/
s Dr

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss-16 v4.0 579
DISKS$
[POWERS
USERZ:
JZRQADO.BL 1;6

580 0086
Page

8¢
(34)

7
ZRQAM]

RD/RXx EXERCISER
PROTECTION TABLE

01523
015241
015244
015247
015252
015255
015260
015263
015266
015271
015c74
015277
015302
015305
015310
015321%
015316
015321
015324
015327
015332
015335
015340
015342
015345
015350
015353
015350
015361
015364
015367
015372
015374
01537~

015402
015405
015410
015413
015414

015417
015422
015425
015430
015433
015436
015441
015444
015447
015452
015455
015460
015463
015444

141
040
156
164
145
164
045

103
117

122
040
122
104

114
0S5
i1le
122
103
102

040

103
122
122
045

164
162
143
151

141
171
040

051
101

000
106
040
040

157

124
122
103
125
105
101
105

040

103
122
124
114
105

040

116
122
103
102

122
122

103
103
122
124

051

124
116
101
102
040

125

117
105
101
105
103
105
117

125
117
105
101
105
103

P.ANT:;

122

P.ARU:;

116
122
114

117

165

P.ANHS:

122
120
104

000
045

050
14

155
165

105
117

103

105
101
115
124
114
113
126
114
114

VOl.6

11
11

117
101

040

154

000

105
116
102
103
101
111
102

105
146
154

P.ANMV:

.ASCI
LASCI
LASCII
.ASCII
.ASCI1I
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
LASCIT
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
ASCII

LASCII
.ASCII
LASCII
LASCII
LASCII

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 14 v4,0 579
DISKSUSERS
: [POWERS JZRQADO.BL 1 ;6

/ata/
/

sy/

/nc

/tim/

/eou’

/t)/<00>
/
/%AF

/CT

/0R 7/
/RCT/
/7

UN/

/REA/

/DAB/

/LE

/NCO/

/RRE
/
/CTA/
/8LE/
/7 EC/
/C E/
/RRO/

/R/<00»
/8AY/

/NCO/
/RRE
/
/CTA/

/BLE/
s

EC/

/C &/
/RRO/
/R/<Q0>
/8AR/
/CT 7
/COR/
/RUP/
/TED/
(OO\

/8AN/
/0 R/
/EPL/
/ACE
/
/MEN/
/7T 8/

/13Cs

/NAY/

/LAB/
/LE

7(RC.
/7

€7/

7ulls

/7)/¢00>

5EQ 0087

Page

(34,

RD/Rx EXERCISER
PROTECTION TABLE

ZJRQAM]
vol.é

015470
C154°%
01547¢
015501
C15504
01550~
015512
015515
015520
0155.23
015526
015531
015534
01553~

015542
015544
01554~
015552
015555
015560
015563
015566
015571
015574
015577
01560
015605
01561C
015612
015615
015620
015623
0156.6
015631
015634
015637
015642
015645
015650
015653
015656
015661
015664
015667
015672
015675
015700
015703
015706
015711
015714
01571~
015722

045
111
124

117

101
105
12~
110
061
102
105
105
11°

045
111
040
124
117
101
105
117
106
040
122
120
104
045
116
123
102
103
122
122

045

127
123
102

103
122
122
110
105
131

117
105

122

000

101
123
116
040
122
124
104
111
040
062

131

040

103
122

000
101

123

116
040
122
124
104
122

103
103
122
124

000

101

105

131
117
105
040
122
000
101

117
131
117
105

040
122
000
101
122
040

115
114
103
105
117

000

104

113

11
11
P,.AHW:

117
106
115
124
040
124
065
040

124
123
124
123

104
113
117
106
115
124
040

P.AHX:

040

124
117
125
105
117

P, AMY

040

115
114
103
105
117
000
124

P.AMZ:

115
114
103
105
117

124
105
123
102

103
122
122

P.AIA:

.ASCII
.ASC1I
LASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCI1I
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.FSCII
.ASCII
.ASCI1
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII

/98AD/

7ISK/s
/7 NO/
/7T Fr/
/70RM/
/ATT/
/€D 7
/WIT/
/M S/
/12 7/
/8y1/
/€

/ECT/
7/0RS/
<00><00»

/8AD/
/7ISK/
/ NOs
/1 F7s
/70RM/
/ATT/
/7ED /
/0R /
/FCY/
/7 CO/
/RRY/
/PTE/

/D07<00»>
/8A0/

/NE

/SYM/

7/
/B0L

/7 EC/
/C €/
/RRO/

/R/7<Q0»<00>
/8ATY/
/W0 7
/SYM/

/80L
7/

/ EC/
/C E/
/RRO/

/R/7<00><00>
/RAT/
/HRE
/
/& S/

/YMB/
/0L

/ECC/
/7

ER/

/ROR/
<00><00>

Apr
Rpr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 15 v4.0 579
DISKSUSERZ:
[POWERS 1ZROADO . BL L ;4

56Q 0088
P
age

83
(34,

L
ZRQAM]
vOl.é

015724
C15°27
015782
015735
015°40
015743
015746
015751
015754
015757
015’62
015765
015770
015773
01577
016001

016004
016007
016012
016015
016020
016023
016026
016031
016034
016037
016042
016045
016050
016053
016056
016061
016064

016066
016071
016074
016077
016102
016105

016110
016113
016116

016120
016123
016126

016131
016134
016137
016142
016145
016150
016153
016156

11
11

RO/Rx EXERCISER
PROTECTION TABLE

045
117
040

115
114
103
105
117

045
111
040
115
114

103
105
11”

045
111

123
102

040

103
122
122

045

105
116

131
117

105

040

122
000
045
111
124
131

117
105

040
122
000

117
105
101
105
122
122
116
103
106
114

101
125
123
102
040
103
122
122
101
126
123
102
040
103
122
122
101
130
131

117
105

040
122
000
101
126
040
115
114

103
105
117

000
101

107

040
115
114

103
105
117

000
101
122

103
102

040

122

040
040

103
111
104

106
122
131
117
105

040
122
000
106

105
131
117
105

040
122
000

.AIB:

.AIC:

123
040
115
114
103
105
117

LAID:

123
105
123

.AIE:

000

102
040

103
122

122
105
110
123

LAIF

102
040

103
172
122
103

122
124
114
105

117

111

105

040

105
000

.AlIG:

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

7
Apr
Apr

/9%AF
/

/70UR/
/7 Sy/
/M80/
/L E/
/CC 7
/ERR/

/0R/<00»>
/%AF
/
/7IVE/
/7 S/
/MBO/
/L &/
/CC 7
~ERR/

/0R/7<0Q0>

/8AS/
/7IX 7
/SYM/
/80L/
/ EC/

/C E/

/RRQ/
/R/7<00><00>
/8AS/
/EVE/
/N S/
/YMB/

/0L 7/
/ECC/

/ ER/
/ROR/
<00><00»>

/%AE
/
7IGH/

/1T

/YMB/
/0L /

/ECC/
/

ER/

/ROR/
<00><00>

/%AC/
/0RR/

7ECT/

/ABL/
/E E/
/RR0O/
/R 1/
/N E/
/CC 7
/FIE/

/LD/7<00>

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISK$USERZ: [POWERS]ZRQADO.BL L ;6

56Q 0089
Page

(34)

M/
ZRQAM]

RD/RX EXERCISER
PROTECTION TABLE

vOol.6

Olnl6l
olelel
016165
ole6170
016173
ole6176
016201
016204
016207
ol16212
016215
016220
016222
016225

101
111

123

124
122
127
124
120
124
124
000
101
111
110
104
122
127
124
120

016230

016233
016236
016241
016244
016247
016252
016255
016250
016262
016265
016270
016273
016270
016301
016304
016307
016312
016315
016320
016323
016326
016331
016334
016337
016342
016345
016350
016353
0163%6
016361
016364
016367
016370
016373
016376
016401
016404
016407

124
124
000
101
104
122
123
122
104
105

117
124

11/
105
123
116
110
124
105
122
000
045

117

040

115
131
101

000
101
104
131
040
125
000
101
116
130
124

125
124
117
127
105
122
105
105

125
124
101
127
105
122
105
122
105
105

.All:

117

.AIJ:

040

101
106

040

104
123
000
117

040

000
116
055
111

LAIL:

105

101

110
124
105
122
120

040
122

JAIK:

124
103
116

040

123
115
il7

LATH:

122
105

124
117

040
115
131

11
11

123
115
117
000

111

.AIM:

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

<Q0»>

/%AY/
/NIT/

/ 50/

/FTW/
/ARE/
/ WR/
/ITE/
/ PR/

/0TE/
/CTE/

/D07/<00»>
/9RAY/
/NIT/

HA/

/RDW/
/
/ARE
/ WR/
/1TE/
/ PR/
/0TE/
/CTE/

/0/<00>

/%A0/
/00 7
/TRA/
/NSF
/
/ER /
/ADD/
/RES/

/75/<00><00>

/%A0/
/00 7/
/BYT/
/€ C/
/0UN/

/717<¢00><00>

/%AN/
/ON-/
/EXI/
/STE/
/NT 7/
/HOS/
/T M/
/EMO/
/RY/<00>
<Q00>

/9%AH/

/0ST/

/ ME/
/MOR/

/Y P/
/ARI/

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11 Bliss

V4.0 579

DISKS$USERZ2:
[POWERS ]ZRQADO.BLL; 6

S€Q 0090
Page

(34)

RD/RX EXERCISER
PROTECTION TABLE

ZRQAM]
vOl.6
016412
016415
016420
016423
016424
016427
016432
016435
016440
016443
016446
016451
016454
016457
016462
016465
016470
016473
016476
016501
016504
016507
016512
016515
016520
016523
016526
016531
016534
016537
016542
016545
016550
016553
016554
016557
016562
016565
016570
016573
016576
016601
016604
016607
016612
016614
016617
016622
016625
016630
016653
016636
016641

124
105
117
000
045
117
101

04¢,

115
124
122
105
131
111
124
130
105

045
105
101

132

057

123

111
111
122
126
122
040
040
104
122
000
045
105

117
104
105
111

040

104

040

122
000
045
116
116
123
116
111
105

101

131

122
122
101

115

116
124
117
040
040
124

040

115

040

103
104

000
101
122

114
105
104
105
101
132

040

105
125
117
125
105
125

101
122
122
105
103

117
103

105
105
117
000
101
103
123
124
124
116
122
114

P.AIN:

117

122
122

114

111

105
105
105
000
123
111
111
122
105

P.AIO:

122
114
105
117
122
116
122

116
122
116

042
122

P.AIP:

124

124
116
117
122
122

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

111

.ASCII
.ASC11
.ASCII
.ASCII
.ASCII

040
124
116
040

.ASCII
.ASCII

111
117

105

11:56:01

11 Apr 1984 11:45:02

040
122
000

103
115
104
111
125

Apr-1984

P.AIQ:

.ASCII
.ASCII
.ASCII

/7TY 7
/ERR/

/0R/<00>
<00>

/8AC/
/70MM/
/AND/
/7 11/
/MOU/
/T O/
/R R/
/ETR/
/Y L/
/7IM1/

/T &/
/XCE/
/EDE/
/D/7<00><00>

/8AS/
/7ERI/
/ALL/
/72ER/
<S7>/DE/

/SER/
/IAL/
/712€/
/R 0O/
/VER/

/RUN/
/ OR/
/7 UN/
/70ER/
/RUN/
<00>

/98R"/
7ERR/
/0R /
/DET/
7ECT/
/ION/

/7 CO/
/OE"/

ER/

/ROR/
<00><00>

/%AY/

/NCO/
/NS1/

/STE/
/NT /
/INT/
/ERN/
/AL 7/

VAX

11 Bliss-16 v4,0 S79

DISK$USERZ: [POWERS JZRQADO.BL1;:6

58Q 0091
Page

(34)

)#4
JRQAM]

RD-Rx EXERCISER

VOl .o

0100644

PROTECTION

104

101

TABLE

11
124
108
128
000
045
122
105
11°
101
040
115
125

040
122
124
108

123
125
125
000

101
111
040
115
116
124
105
124

104
126
103
115
104
111
1
040

o16°1°
016722
016725
0167
016733

040
163
156
040
040

162
160
163
157
163

145
157
145
162
145

01673%¢

016741

016744

050

145
151

15?7

116

158
156

155

124

01664~
016652
016655
C16660
016603
Vl6ood
Ol660°
ole6°2
0166 TM5
016700
016708
016 0
016711

016714

11 Apr

P.AIR:

15”7

040

LASCIL

/DAT/

LASCII

/(No/

LASCIT
LASCII
LASCII
.ASCII
LASCII
,ASCII
LASCITI
LASCIT
LASCII
LASCII
LASCII
LASCII
LASCIT

ASCII
LASCIT
.ASC11l
ASCII
ASCI1

7/ re/
/epo/
/nse/
7/ or/
/7 se/

ASCII

/inc/

ASCII
LASCII
.ASCII
.ASCII
LASCII
LASCIT

/lets
/e)/¢00»
«00»
/@A(/
/ONT/
/ROL/

ASCIL

143

160

LASCIT

01674
016752
016755
016756
016761
016764

154
145
000
045
11°
122

145
051

164
000

101
116
117

103
124
114

016772

040

104

105

LASCII

040

124

122

LASCII

017014

123

016767

016775
017000
017006
017011

017017

017022
017025
017080
017033
017036

114

124
124

101
115

116

105

105
105

122

128
123

040

117

1<
122
117
114
122

040
117
103
040
122

017044

045

101

017052
01705%
017060
017063

124
116
12¢
122

111
040
122
040

11?7
10%
117
050

05%

163

145

017041

017047

017064,
01°G72

o1°n074

122

117

11%
145

000

123

111

1583

120

168
%1

/omp/

/7LER/
7 OE/

/TEC/
/TED/

LASCIT
LASCII

7ANS/
/MIS/

LASCII

/N O

.ASCII
LASCIT
.ASCII
LASCII
LASCII
P.AIT:

/ek

LASCIT
.ASCII

.ASCII

120
124
11?
105
117

000

151

LASCII

108
104

116
111

111

P.AIS:

/A S/
/7TRU/
/CTy/
/RE/<00>
<«00»
/#AD/
/RIV/
/€& C/
/0MM/
/AND/
7 11/
/MEQ/
7uT v/

LASCII

_ASCII

TR/

/SIO/

/R P/
/ROV/
/0C0-/
L &/
/RRO/

/R/7< 00«00
/eAP/

LASCIT

/051~

LASCIL

/Mies

.ASCI1
LASCIT
LASCII
LASCII

LASCIL

JANCIL

/VI10/
/N &/
/RRO
/R (7

se/

ek )

Apr

1994
1984

11:56:01

11.45:02

VAX-11 Bliss 16 v4,0 579

DISKSUSERZ : [POWFRS JZRQADO.BL L ;6

58Q 009¢

Page

(34,

2RQam)
vOl.e

RO Ax EXERCISER
PROTECTION TABLE

01%0""
17100
017108
01 10e
o1°111
017114
017117
017122

000
04%
11°
040
101
12°
124
122

101
123
122
104
122
105
105

114
124
105
057
11
040
101

01130
017138
01°130

104
111
05

125
116
102

o0
107
105

01°14°
017152
017155
017160
017102
017165
017170
017178
0117
017201
017204
017207
017210
017213
017216

124
116
105
000
045
122
105
114
113
122
117
000
045
117
040

122
123
122
000
101
111
040
117
040
11’
125

0172:7
017282
017235

017125

017141
017144

104

124
105

131

127
116

11
11
P.ATU:

040

LASCIT
.ASCII
.ASCI1
\ASCII
.ASCII
ASCIT
ASCII
.ASCI1

«00>»
/eAL/
/0ST1/
7 RE/
/AD/<57>
/wWRl/
/T€ /
/REA/

.ASCII
.ASCII
.ASCII

/DUR/
/ING/
«S7»/3t/

.ASCII
JASCII
.ASCIT
.ASCI1
.ASCII
ASCIT
ASCII
.ASCIT
LASCIT
.ASCII
JASCII
.ASCII
.ASCII
.ASCII
_ASCI1

/TRA/
/NSF/
/ERS/
«00>¢00>
/@AD/
/RIvV/
/E C/
/L0C/
7k D/
/ROP~/
/0uT/
«00>
/eAL
/0ST/
/ RE/

.ASCII

105
040
101
106
123

LASCII
.ASCII

104
126
108
103
104
120
124

P.AIv:

101
123
122

114
124
105

P.AIW:

040
101
040

122
104
102

105
131
105

-ASCIT
.ASCII
LASCIT

017243
017246
017251
017254
017256
017261
017264

105
123
124
1¢3
045
122
105

116
105
117
000
101
111
040

040
103
122

104

aSCII
JASCIT
LASCIT
LASCII
.ASCIT
LASCIT
.ASCIT

017272
c17275
017300
017303
017306
017311
017314
017317
017322

103
104
122
122
045
117
122
114
040

124
040
122
000
101
116
117
105
104

105
105
117
000
108
124
114
122
105

LASCII
LASCIT
.ASCII
.ASCIT
.ASCII
LASCIT
.ASCII
JASCIT
.ASCI1

017221
017224

017240

017267

017325

108
126

124

105

124

105
105

127

124

105

111
122

LASCII
.ASCIT

105

104

126

LASCIT

P.AIX:

105

103

LASCII

P.ATv:

LASCIT

/Dv

/TwE/
/EN /

/Cel/
/VER/
7 RE/
/ADY/
7 BE/

/TuE/

/EN s
/SEC/
/TOR/
/5/¢00/eAD/
/RIv/
/€ D/

/FTE/

/CTE/
/D &/
/RRO/
/R/<00><00>
/®AC/
/ONT/
/ROL
/LER/
- DE/
/TEC/

Apr
Apr

1984
1984

11:56:01
11:4%:02

VAX 11 Bliss 15 v4.0 579
DISKSUSER?:
[ POWERS 1ZRIADO.BL 116

580G 009

Page

73
(34,

)4
oRUAM]
vWl.e

017330
01 "3%3%
0178%¢
017341
017344
0178%4°
017852
0173855
017360
017 %3
017366

01787
017878

017876
017401
017404
017407

017412
017415

017416

017421
017424
017427
017432
017435

017440

017443
017440
017451
017454
017457
017462
017465
017470
017473
017476
017500
017503
017506
017511
017514
017517
017522
C1752%
017530
017533
017535
017541
017544
017547
017552
017555
017960

RD-Rx EXERCISER
PROTECTION TABLE

105
120
123
117
12¢%
124
120

/7 PY/s

12%
105

/LSE/

/7 OR/
/7 Sty
/ATE/

122
124

105

122

117
105

103
124
114
122

000
101
116

/TED/

104

101
124
105
11?7

111
040

1.
11

PA/

/RIT/

/Y €7/
/RRO/
/R/<00>

P.AJUA:;

/78AC/

JONT/
7
/ROL

/LER/

111

VAR
8 ¥4
/MEQ/

000

7UT/7<00>

105
105

/NVE/

117

<00»

/8AE
7/

120

/LOP/

040
101

/7ACK/
/BT 7/
/REA/

IE/<ST>/P/

120
113

105
117
050
162
171
162
151
157

(7
/Par/
/ty/

040
111
040
122
040
141
164

157/
164
145
164

or/

ti/

/meo/

7yt )/

051

105
105
120
120
113

/RRO/

«00>» <00

AJC:

/
/78AE

/NVE
/
/LOP/
7E/<ST>»/P/
/ACK/
/€Y1 7/
/WR1/
/TE 7
7ERR/
IOR

/(Pa/
/eit/
/y I Y4
/e ¢/
/ime/
/out/
7)7¢00>

Apr
Apr

1984
1784

11:%:01
11:45:02

VAX 11 Blies 14 v4.0 579
DISKSUSER.
: [POME RS 1ZRQADO .Bi 136

FLy/] 0094
P
Qe
(34,

E 8
—

ZRQAM]

RD/Rx EXERCISER
PROTECTION TABLE

vOl.6

01752
017565
o17570
017878

C1°S7¢
017001

017604
017607
017612
017615
017020
017623
017626
017630
0176383
017636
017641
017644
017647
017652
01765S
017660

017663
017666
017671
017674
017677
017702
017708
017710
01771%
017716
017721
017724
017727
017732
017735
017740
017743
017746
017751
017754
017757
017762
017765
017770
017772
017775
020000
020003
020006
020011
020014

045
117
122
114

115

116
122
040
122
131
122
122

11?7
122
114
115
101
124
105
117
045
117
122
114
040

115
101
124
105

117

111
040
101

105
11/
050
162
171
162

151
157

051

111
040
111
122
040

101
116

117

105
122
040
104
101
120
111

108
124
114
122
117

11 -Apr
11 Apr
P.AJD:

101
040

115
101

040

124
105
117
P.AUE:

117
105

103
124
114
122
101
120

103
124
114
122
117
120
111

P.AJF;

122
000
101
116

122
040

122
131
122
122
101
116
117
105
122

040

122
131
122
122
101
116
122
104

122
122
120
151
040
040

155
165

000

101
116
127
124
105

115
050

111
040
122
000

040

122
000
122

107
105

P.AJG:

040
122
040
141
164

/98AC/
/ONT/
7/
/ROL

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

/0R /
/(Pas

ASCIL

157
164
145
164

122
107
122
105
122
122
120

LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIZ
.ASCII
.ASCII

P.AJM:

ASCII

.ASCII
.ASCII
.ASCII
LASCII
LASCIT

/LER/
7/

RO/

A/
/ND 7/
/RAM/
/ PA/
/RIT/
/Y E/
/RR0O/
/R7<00>
/8AC/
/ONT/
/
/ROL
/LER/
/7 RA/

TM P/
/ARI/
/1Y 7/
/ERR/

/0R/<00»>

/8AC/
/ONT/
/
/ROL

/LER/
/

RO/

/ARI/
/Ty 7/
7ERR/

/0R/<00»>

/9AR/
7ING/
/ RE/
/RD 7/

/ERR/

/rit/
‘y

/ime/
‘out’/

/)7 <Q0>
/AR/

7ING/
/7 WR/
Ve & { ¥J
/ ER/
/ROR/
/7 P/

1984
1984

11:56:01
11:45:02

VAX-11 Bliss 16 v4,0 S79
DISK$USERZ
: [POWERS JZRQADO .BL L ;6

5612 0095
Page

95
(%4

&
JRQAM]

RD/Rx EXERCISER
PROTECTION TABLE

vol.6

020017
020022
020025
20030
020033
020036
020041
02Coa2
020045
020050
020053
020050
020061
020064
020067
020072
020074
020077
020102
020105
020110
020113
020116
020121

020124
020127
020132
020135
020140

020143

020146
020151
020154
020157
020162
020164
020167
020172
020175
020200
020203
020206
020211
020214
020217
020222
020225
020230
020233
020236
020241
020242
020245

141
104

187
164
145
164
111

105
125
123
122
101
125

000
045

117

103
123
111

117

040
151
145

145
160
164
157
144
145
145
051

122
111
114
111
105
105
105
055
123
102
105
105

162
171
162
151

157

051

116
122
120
115
124
040
111
122
000
101
123
101
105
040

115
125

050
147
162
145
154
162
157
154
145
156
156
000
101

105
124
111
124
130
105
104

101
102

040

117

123
122
122
122

117

101
116

000
045

11
11

151

040
040

155
165
000
124
122
124
101
105
106
114
105

P.AJI:

110
124
103
123
124
105
124
110
150

P.AJY:

040

166
0490
157

143

040
160
144
164

103

P.AJK:

040

115

103
104
000
121
125
115
124

P.AJL:

122
000

103
124

P.AUM:

.ASCII
.ASCII
LASCII
.ASCII
.ASCI1
.ASCIX
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCI1I
.ASCII
.ASCII1
.ASCII
.ASCII
.ASCII

/ari/
/ty

/or

/tim/
/eo0u’/

/7t)/<00>

<00»

ZINT/
/ERR/
/UPT/
/7

MA/

/STE/

/R F/
/ARIL/
7
/URE
«<00><00»>

/8AH/
7081/
/ AC/

/7CES/
/S

/7IME/

/QUT/
/7 (H/

/';w\/
/er

/lev/

/el

/pro/

/toc/
/0l 7/
/dep/
/end/
/ent/

7)7<00>

/8AC/
/RED/
/117 7
/LIM/
717 7
/EXC/
/EED/
/ED/<QQ>
/%AQ/

/7 8y/

/S M/
/RST/
/ER /
/ERR/

/70R/<00>
<«00»

/%AC/
/ONT/

Apr 1984
Apr 1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISKSUSERZ:
[POWERS )ZRQADO.BL 1 ;6

5EQ 009
P

(34)

G
RO/RX EXERCISER
PROTECTION TABLE

ZRQAM]L
vOol.6

020250
020253
20256
020261
020264
020267
020272
020274
020277
020302
020305
020310
020313
020316
020321
020324
020327
020330
020333
020336

020341
020344
020347
020352
020355
020360
020363
020360
020371

020374

020377
020402
020405
020410
020413
020416
020421
020422
020425
020430
020433
020436
020441
020444
020447
020452
020455
020460
020463
020466
020471
020474
020477

117
105
106
101
105
117

000
101

123
125

111
040
040

115

114
122

101

103
103
124

104
045
116

122

120
126
124

114
101
045
101

124

101

105
105

057
111

126

111

122

111
040

105
111

117

124
105
124

101
114
101
126
124
114
111
125
040
000
101
124
122
124
105
117
111
105
114
101
111
105
116
101
127
124
111
101
104
105

117

111
116
106

11-Apr-1984
11 Apr 1984

114
122
101
114
122
122
111
124
103
117
114
120
111
117
000

P.AUN:

111

P.AJO:

105
114

111
125
040
122
111
111
000
111
105

P.AJP:

125

040

103
12¢
114
107
000
115

116
116

103

122
104
122
105
116
114
040
107
116
104
124
111

P.AUQ:

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

.ASCII
LASCII
LASCII
.ASCII
LASCII

/ROL/
/LER/

/7 FA/
/TAL/
/ ER/
/ROR/
<00><00>

/9%AY/

/NST/

/RUC/

/71107
L/
/7
/700P

11/

/MEO/

/UT7<¢00>
<00»

/8Al/

/LLE/

/GAL/
/ VI/
/RTU/
/AL 7/
/7CIR/

/CUL/
/17

/07<00><00>

/9Al/
/NTE/

/RRY/
/PT 7/
/VEC/
/TOR/

/7 1L/
7L EG/

/A
7 <00>
L
<00»>

/%AM/
/AIN/

/TEN/
/ANC/
/E R/

/ERD/

«<S§S7>/7uWR”/

/1T
7/

IN/

/VAL/

/710 7
/REGL/

/7 1ON/
/7 10/
ZENT/
/1F Y7/

11:56:01
11:45:02

VAX-11 Bliss-16

v4 .0 579

DISKSUSERZ2:
[POWERS JZRQADO.BL1;6

5€Q 0097
Page

(34,

-4
ZRQAM]
vOl.e

020502
020505
020506
020511
020514
02051~
020522
020525
020530
020533
020536
020541
020544
020547
020552
020555
020560
020563
020566
020571
020572
020575

020600
020603
020606
020611
020614
020617
020622
020625
020630
020633
020636
020641

020644
020647
020652
020655
020660
020663
020664
020667

020672

020675
020700
020703
020706
020711
020714
020717
020722
020725
020730

11 Apr 1984 11:56:01

RD/Rx EXERCISER
PROTECTION TABLE

105

122

000

045

101
111
105

115
116

101
124
101
105
122
105
117

040

116
11?7
101

105
117

122
114
000
045

116
040
111
040
101

124

116
055
101
102
040
116

117
105

117

117
117

114
104
114

103
124
114
122

141
164
000
111
124
105
105
105
122
122

045

116
121
116
040
122
000
045
111

110
110
040
126
040
117
103

105
114
105

120
124

117
101
102
111

114
104

P.AJS:

105
117
050
156

0S5
162
171

117

103
127
124

101

122
116

111

P.AJR:

116

103
124
114
122

122
114
040
115
122

115
124

124

103

120
111
114

131

P.AUT:

P.AJU:

.ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
-ASCII
.ASCII
ASCII
\ASCII
ASCII
.ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
JASCIT
.ASCII
.ASCII
.ASCII
.ASCII

/ER/ <0O»>
<00»>

/8AM/

/ARIN/
/TEN/

/ANC/
/E

/R1IT/
/€ L/
/0AD/
7 10/
/7 NO/
/N-L/

/70RD”/
/RABL
/7

/€ C/
/ONT/
/ROL/
/LER/
<00»>

/8RAC/

/ONT/
/R0L/

/LER/

/ RA/
/M E/
/RRO/

/R (7
/Non/
pa/
/rit/

/y)/<00>
/8AY/
/NIT/
/7 SE/
/QUE
/

/NCE/

ER/

/ROR/
<Q0»>

/%AM/

7IGH/
/ER /

/LEV/
/EL

/PRO/

/10C/
/0L 7/

7INC/

/0MP/

/R11/
/81L/
71Tvy/

Apr

1984

11:45:02

VAX 11 Bliss 16 V4.0 579

DISKSUSER?2:[POWERS ]ZROADO.BLL ;6

3EQ_0098

poage

(34,

14
RD-Rx EXERCISER
PROTECTICON TABLE

vol.é

020738
020730
020741
20742
020745

020750
020753
020756
020761
020764
020767
020772
02075
021000
021003
021006
021011
021014
021017
021022
021025
021030
021033

021036
021041
021044
021047
02105¢
021055

021060

021063
021064
021066
021070
021072
021074
021076
021100
021102
021104
021106
021110
021112
021114
021116
021120
021122
021124
021126
021130
021132
0c1134
Oclilie

122

111

101

107

105
117

122
122

101
122
057
114
110
104
122
106
114
105
101
120
116
122
111

120
107
120
114
101
127
105
101
125
000
115
120
107
105
123
122
105
040
111
122
050
162
171
162
151
157
051

105

122
104
101
125
040
141

155
165
000
017370
017416
017500’

017562
017630’
017666
017724
017772
020042
020074
020164
020214
020242
020274
020330
020366
020422
020506
020572
020636
020664
0e0742

164
157
164
145
164

11
11

P.AJY:

P.AJM:

P.A17:

LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCIT
LASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCI1
.ASCII
LASCII
LASCII
LASCII
LASCTT
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
. WORD
.WORD
.WORD
. WORD
. WORD
.WORD
. WORD
. WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. wORD

/7 ER/
/ROR/
<00»

/BAP/
/URG/
/E/<ST>/P/
7
/0LL
/

HA/

/R0OW/
/
/ARE
/7 FA/

7ILyrs

/RE/ <Q0>
/8AM/
/APP/
7 ING/
/7 RE/

/GIS/
/7TER/

/ RE/
/RD 7/
/FAL/
/LUR/

/E (7
/Par/
/ity
’
/

or/

t'/

/meo/

7ut)/
<«00»>

VOUDOVVOUTUTOUOOUOTODUUVUVDIUUUODOD

ZRQ@AM]

.AJA
.AUB
LAJC
.AJD
JAJE
LAJF
.RAJG
LAUH
AUl
LAJY
LAJK

LAJUL

JAIM

AN
JAUC
JRAYP
LAJQ
JAUR
LAUS

LAJU
. AUV

Apr-1984
Apr 1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISKS$USER?
: (POWERS ] ZRQADO.BL 1 ;4

5EQ 0099

Page

KL
(34,

l}fl
JRQAMY

RO/Rx EXERCISER
PROTECTION TABLE

vO0l.e

0:,1140
ocliag
021145
01150

Co1158
02115¢

021000
045
061

103

02llol

040
111
122

021ile”
021172
02117S

1
120
111

0clle4

021200
021203
021206
021211

021214
021217
021222
021225
021230
021233
021236
021241
0c1244
021247
021252
021255
02126¢C
021263
021266
021271
0212°4
021277
021302
021305
021310
021313
021316
021321
021324
021327
021332
021335
021340
021343
02134¢
021351
021354
021356
021361
021364
021367
0e1372

040

115
122
122
124
105
101
111

111
122
055
101
122
123
105

123

122
045
124
105
101

101
0ol
120
106
114

105

101
116
101
124
122
040
122
000
101
101
040

103
116
106

114
105
040

061
104

105

040

107
124

000

101
101
040
103
116
106
114
105
040
102
040

104
123
122
111
105
000
101
101
040

103
116

124

11
11
P.AJY:

040
125
101

125

000
116
055
122
131
101

105
117
000
123
124
115
110
105

P.AJZ:

P.AKA:

101

125

040
124
040
104

123
122
111

105

000

123
124
115

P.AKB:

110

105
101
125

040

121
125
101
122
123
105
123
122

123
124
115
110
105

P.AKC:

. WORD
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
LASCII
LASCII
.ASC1I
.ASCI1
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII

P.AJW
/8AT/
/11

/CPU/
/7 FA/

7ILV/

/RE/<00»>
/%AN/
/JON-7/
/PAR/
/ITv/s
/ RA/
/TM E/
/RRO/
/R/<Q0»><00>
/8AS/
/TAT/
/€ M/
/7ACH/
/7INE/
/7 FA/

/7ILu/
/RE

/7
/11

7/
1/

/ADD~/
/RES/
/S R/

/EGI/

/STE/
/R/7<00»><00>
/
/8RS
/TAT/
/€

/ACH/
/INE/

FA/s

7ILv/

/RE

/ -BYU/
/S

/DDR/

/ESS/
/

RE/

/G1S/

/TER/

/%AS/
/TAT/
/E M/
/ACH/
/7 INE
/

Apr
Apr

1984
1984

11:56:01
11:45:02

0 579
VAX 11 Blisg 16 v4
DISKSUSER?Z: [POWE
RS JZRGADO . BL L;£

560 0100
Page

100

‘34,

|84
JRQAM]

RC Oy EXERCISER
PRL
CTION TABLE

021%7S
021400

0214032
021406
ollall
021414
0c141”
021422
021425
021426
021431
021433
02143%"
021442
021445
021450
021453
021456
021461
021464
021467
021472
021475
0£1500

021503
021506
021511
021514
021517

021522
021525
021530

021533
021536
021541
021544
021547
021552
021555
021560
021563
021566
021571
021574
021577
021602
021604
021606
021610
021612
021614
021616
021620

040
111
122
055
122
122
111
105
000
045S
124
105
101
111

040
111

106
114
105
040

101
125
040
103

122

000

103
105
123
101
101

040
103

116
106
114
105

122
05S
105
101
132
057

040
122
114
105
104

111
111
122

040

123

105
123

122
045
124
105
101
111
040
111
122
055
12¢
107
101

127
105
105

111
000
021142
021164°
021214’
021274
021356
021426
021522’

105
101
132

107
124

000

101
101

040
103
116
106
114
105
040
117

040

122
101
040
122
117
000

040
107
124
123
124

115
110
105
101
125
040
123
111
111
122
105
122
114
105
122
111
105
000
123
124
115
110
105
101
125
040

P.AKD:

P.AKE:

127

116

110

104
122
126
123
116

P.AJX:

LASCII
.ASCII
.ASCII
LASCI1I
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCI1
LASCII
.ASCII
.ASCII
LASCII
LASCTI
LASC I
LASCT]I
A5
T
LASLIT
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
.ASCII
.ASCII
. WORD
. WORD
. WORD
. WORD
.WORD
. WORD

.WORD

FA/

7L/
/RE 7/
/7
C/
/RC 7
/REG/

/7ISt/

/ER/<Q0O>
<00>

/8AS/
/TAYT/
/E M/
/7ACH/

/7INE/

/ FA/
/ILv/
/RE /

/ERL/
/ALL/
/2ER/

<S7>/DE/
/SER/
/7IAL/
/1ZE/
/R R/

/EGI/

/STE/
/R/<00><00>
/
/8RS
/TAT/
/7E M/
/ACH/
/7INE/
/ FA/
/ILys
/RE 7/
/

/RON/
/G H/
/ARD/
/WAR/
/E V/

/ERS/
/I0ON/

<00><00>

VVOVUVVOVODO

vol.6

11
11

LAJY
AUZ
. AKKA
.AKB
LAKC

. AKD
. AKE

ARpr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4,0 579
DISKS
: [POWERS
USERZ
1ZRQADO.BLL ;6

5eQ 0101

| 8
ZRQAM1
voli.6

021622
021625
021630
021633
021636
021641
021644
021647
021652
021655
021060
021663
021666
021671
021674
021677
021702
021705
021710
021713
021716

021720
021723
021726
021731
021734
021737
021742
021745

021750
021753
021756

021761
021764
021767
021772
021775
022000
022003
022006
022011
022014
022016
022021
022024
022027
022032
022035
022040
022043
022046
022051
022054

RD/RX EXERCISER
PROTECTION TABLE

116
132
101

045
122
040
126
124
040
065
040
040
111
045
045
124
040
061

11-Apr
11 Apr
P, AKF

125
060
040
072

117

045
122

P.AKG:

040
104
122
040
065
040

040
111
045
045

124

040

061
125
060
040
072

117

045
122
040

124
122

040

065
040
040
111
045

P.AKH:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCITY
.ASC1I
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
LASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII

/%N
/

/ARZR/
/QA /

/DEV/

/7 Fl/
7/
/L
/%257
/%A /
/0N /
/UN1/
/T s/
/722%/
/A T/
/ST 7/
7001/
/7 SuU/
/8 O/
/700

/PC:/
/7 %0/
76/ <00>
/
/%N
/AZR/
/QA /
/HRD/
/ ER/
7/
/R
/%25/
/%A

/0N /
/UNI/
/T o/
/722%/
/A T/
/ST 7
7001/
/7 SU/
/8 0/
/700 7/
/PC:/
/ %0/

/76/<00»>
/%N
/
/AZR/

/QA

/SFT/

ER/
7/
/R
/%257
/%A /
/0N /
/UNI/
/T

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4 .0 S79
DISKS
{POWERS
USERZ
JZRQADO.BL1;:H
2:

SEQ 0102
Page

102

(34)

M8
ZRQAM]

RO/RX EXERCISER
PROTECT1ON TABLE

vOl.6

022057
022062
022065
022070
022073
022076
022101

062
040
124
060
123
040
060
103
045
045

022104
022107
022112
022115

022116
022121

116
111

11
11

045
124
040
061

125

060
040
072

117
116

045

057
122
125
124
101
105

P.AKI:

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

022124
022127
022132
022135
022140
022143
022146
022150
022153
022154
022157
022160
022163
022166
022171
022174

000
045
055
045
040
000000C

022176

172150

HWPT.IP.ADDR:
:

022200

000154

HWPT
. VECTOR: :

022202

000004

HWPT .BR.LEVEL ::

022204

100340

HWP
. DISK::
T

022206

000000

HWPTSO.LBN:
:

022210

000000

HWPTS1.LBN::

0c2212

177777

HWPTEO,.LBN:
:

022214

000000

HWPTEL1.LBN::

040
121

123
106
114
045
000
123

022216
022220

000000C

022222

000040

022224

000000

116

064

P.AKJ:

116

000

P.AKK:

101

040
000

P.AKL:

040
101
000

052

000

P.AKM:

_ASCII

Apr-1984
Apr 1984

/722%/
/A T/
/ST 7/
7001/
/7 S/

/8 0O/

/00 /7
/PC:/
/ %0/
/6%N/
<00>

/98Ns/
/RI/<S57>
/0 R/
7EQU/

/EST/
/7 FA/
/ILE/
/D8N/

<00><00>

/%S4/
<00>

/79%N/<00>
<00>

/%A /
/- /7<00>
/%As/

ASCII

.WORD

< <L $NDHW -L $HWLEN>
/2>

. WORD

-5630

.WORD

154

.WORD

77440

LSHWLEN::

/7<00><00>

. WORD

.WORD

. WORD

. WORD
LSNDHW:
: .BLKW

0
1

. WORD
SWP.ERROR:
;

<<L $NDSW L $SWLEN>/2>

L$SWLEN:
:

11:56:01
11:45:02

VAX-11 Bliss-16 v4.0-579
DISK$USERZ2:
[POWFRS ]ZRQADO.BL1;6

SEQ 0103
Page

107%

(34)

N8
ZRQAMY

RD/RX EXERCISER
PROTECTION TABLE

voli.é

11 Apr-1984
11-Apr 1984

022226

054046

SWP .FLAGS: :

022230

000000

SWP.DPAT:;

022232

000143

SWP.RAT::

022234

000000

SWP
. TIME: :

022236

000013

DUPROUND: :

022240

000020

SWP.UCNT::

. WORD

54046

143

022242

022306
022310

000000
177777
000006

000000
000000
000126

000154

WORD
WORD

RDRX .ADDR: :
.BLKW

000156

001542
001602

L$PROT:
: . WORD

.PSECT
.BLKW
CST::
CST.ADDR::
.BLKW
.BLKW
OCT::
DCT.ADDR:
:
.BLKW

000130
000152

000160
000200
000530
000532
001534
001534
001535
001536
001537
001540

: . BLKW
L $NDSW:

$FFFs,

53
1
11
1

IRDRX.ADDR:
:
.BLKW
.BLKW
8ST::
TALLY:: .BLKW
T.ADDR:
: .BLKW

DUPPKT:: .BLKW
001
001
001
001
000020

TRK,.SGN:
:

.BYTE
.BYTE
.BYTE
‘BYTE

RDM.CNT::

RANDOM:
: . BLKW

001604

.BLKW

003314

YP
i .ADDR:
K;

003316

PK
, USE:;
T
:

003332

RETPKT::
. .BLKW

644

.BLKW
.BLiW

260

GBL

11:56:01
11:45:02

VAX-11 Bliss 16 v4.0-579
DISKS$SUSERZ: [POWERS1ZRQADO.BL1L ;6

SEQ 0104
Page

104

(34)

£
11

072

N\ U B TNA

RP_USE:: .BLKW
RP ., INDX

M 104

RP ,ADDR:

O
10

FLOG.PKTY

NS0

BUFF ,ADDR: :

U056

. OWN
BUFF

0056 "0
005~

100Q:
:
.BL KW
100Q. IN:

N05°CL

100Q.0uT

LBLKW
ENTRY REASON: :
.BL K8
EOP.FLAG
BLK8

005782

005746
005750

.BLKB

.EVEN
FREE .MEM_ ADDR: :
BLKM
BY1S.PER.QIO::
LBLKW
ST.CODE::

005734

005736
005740
005742
005744

.BLKW
LBLKu

STEP:
;

.BLKW

.BLKW
OF .RC:: LOLKW
SA .REG:: .BLXM
CMD.TIME
.BLKW
NEX::
LBLru
CRN.LOW:

005752

Bt Ku

005754

CREDIT.BAL
::

00575,

NEXT
PrT USE::

005757

HOUR;¢
S

LBLKW
.BLKB
.8l «B

s gt oo o

DUR:
:
QIO::

o Py e

00572¢
AC5724

DUP .FLAGS: :

LBLKW
CCTLR:: .BLKW
COISK:; .BLKW
CUOFF
; : LBLKW
CTLR.CNY

005°30

(=3

0CS5710
905712
005714
005716

005726

:BLKU

TALKW

o b

BLKW

005706

.BLKW

-t puit gt

005705

:BLKH

- put

005704

BLNW

—

vil.e

RO Rx EXERCISER
PROTECTION TABLE

copm
e
pe

JRQ@AM]

Apr

1984

11:96:01

11:45:02

VAX

11 Blies

v4,0 S/9

DISKSUSER? : [ POWE RS 1ZRQADN .BL L ;»

56Q 010%
Page 105

(34,

SR
vol.e

‘e

RD Ax ExERCISER
PROTECTION

VAX 11 filies 14 v4.0 579
DISKSUSER.
: [POWE RS | ZRUADOD .BL 1 36

TABLE
MINUTES:
:

.BLKB

.BLKW
CUK.PRESENT:;:

O0S "ol

LEVEN

Clx, TICKS::

)

008 T

WS "es

005 on

NI D

005~ "4
005~ "¢
006000

006002
00600,
006003
006003

BLKW
FORCED.ERROR:
:
.BLKB
.EVEN
FER.LBN::
.BULKW
FER.BC::.BLKwW
INIY.OCCU:EQé:

ADDR.VECi.OK::

8I715-B8IT14--

BIT18sBIT12°"
BIT1le.
BIT10=8I109-817108-BIT07»BIT06-"
817105.B8ITO4-B8I108.>81102+
817101+
817100~=Bl118-.
BIT7.s
BITeBITS:.

)

005"~

1
1
0

.BYTE

.GLOBL
.GLOBL
.GLOBL

LSSOFT, TSPTHY, LSRPT, LSINIT
LSCLEAN, LSLAST, LSHARD, LSOVTYP
LSDESC, LSDU, LSAU, | SAUTO, T1

- 100000

40000

20000
10000
4000
2000
1000

400

200
100

P4
1
1000

400

200
100

580 C10e

Page

10¥

‘34,

DY
JRIAM|

RO R EXERCISER

Apr

1984

11:56:01

VAX

Wl.e

PROTECTION

Apr

1984

11:45:02

DISKSUSER? : [ POWE RS ) ZRQADO .BL 1 ;6

TABLE

Q000

0I74.-

000004
000002

BIT2eBITie-

4
l

EF .START s+

000010

000001

000040

BIT18=»

8IT10=-

00008°

€EF .RESTART ==

000035

€EF .NEW=»

000036

000034
000340
000300
000240
000200

000140

000100
000040

€F .CONTINUE = =

37
36

EF PR =
PRIO =~
PRIOG =
PRIOS=«

34
340
300
240

PRIQOR >

140

PRIO4 >

200

PRIO2~
PRIOL =

100
40

000000

PRIOO=>

000004
000010
000020

EVL »»
LOTse
ADR» »

a
10
20

000100

ISR~

000040

000200

I0y-=>»

UAMs =

100

200

000400

B0E =~

400

002000
C04000
010000

PR
IXE=IBE ==

2000
400C
10000

040000
100000
000126
022222
022176
000011
000136
000152°
000102

LOE ="
HOE = =
LSERRTBL ==
L$SWe=
LMW »
LS$DEPQs =
HWQl ="
HWQ2 = HWQ3 = s

40000
-100000
ERRTYP
LSSWMEN.?
LIMILEN..
LSREV.]
P.AAA
P.AAB
P.ARC

HWQA = =

P, AAD

SWQR2 =

P . AAQ

001000

020000

000174

000212
000262
000334
000410’
000460°
000530°
000602
000702
000732
000764"

001006
001070

001112

PNT e

IERs >~

HWQS = »
HWQ6A s »
HWQ6B = =
HWQ7A=»
HWQ7B ==
HWQ8 = =
HWQY» =
HWQ1O0 ==
HWQ1l ==
SWQl ==
SW@4 - »

SWQ@ 7

1000

20000

P . AAF
P . AR}
P .AAG
P.AAM
P.AAI
P.ARAY
P, AAK
P.AAL
P.AAM
P .AAN
P . ARP

P, AAQ

11 Bliss

16 V4.0 579

5€Q_0107
Pege 107
(34)

t )
RO/Rx EXERCISER
PROTECTION TARBLE

==
DBM1NT7

o8M1080BM109==
OBMl11==
DBM112==
08M120=»
OBM12]1»OU.MSG=
=
DU.RSN=»
MSG.01=MSG.02==
MSG.03==
RPT1s-»
RPT2:=s
RPT3sa
RPT4s=

clhclaclaclacly laciyoiacihefhclhelhe e
ol
Rl
R
R
R
R
R
AR R
R
AR R
R AR R

=
OBM2BA=
==
DBM28B8
0BM29 ==
DBM32 ==
DBM101=OB8M104=»
08M105=+

.ABM

.ABN
.ABO
.ABP
.ABQ
.ABR
.ABS
.ABY
.ABU
.ABvV
. ABW
.ABX
.ABY
.ABZ
.ACA

OBMS ==
DBM12=DBM1S:=»
OBM18+=DBM19==
- =
DBM20
==
DBM2]1
OBM22
==
OBMR2 3=
= =
DBM2S5
==
OBM26
DBM27
==

.ABA
.ABB
.ABC
.ABD
.ABE
. ABF
.ABG
. ABH
.AB1
.ABJ
. ABK
.ABL

NUALL=s

.AAY
JARZ

SWM] ==

.AAY
.AAW
.RAX

/R R

SWQ@15==
SWQRLl 7=
SWQ19=+=
SWQ20=»
SW@21=SW@22=SW@23==
==
SWQ24
SWQR2S=
=

NAT

.AAY

004034
004076
004134
004172’
004262
004342
004442
004544"
004636
004726
005446
005474
005526
005562
005614
005700
005744
006030
006074

SWQ@l4--

.AAR

. AAS

003624
003664
003732

SWQ@10+=>»
SW@lleSWQ12=SWQ@13=»

R BB R

001304
001336
001434
001512
001564
001634
001732
002022
002120
002222
002300
002372
002470
002570
002660
002662
002710
002764
003014
003066
003152
003226
003310
003354
003412
003460
003512
003564

- SWQ@9

001164
001240

11
11

AR R

ZRQAM]
vOi.6

.ACB
.ACC
.ACD
.ACE
.ACF
.ACG
.ACH
ACI
.ACY
.ACV
.ACW
.ACX
LACY

.ARCZ
.ADA
.ADB
.ADC

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
OISKSUSERZ:
[POWERS ]ZRGADO.BL1 ;&

5EQ 0108
Page

10A
(34,

S
JRQAM]

11 Apr-1984
11 Apr 1984

RO/Rx EXERCISER
PROTECTION TABLE
e
lh
ol lh iy dac el
Rl
R
R
R
R
R
R
R
R
R
R
R
AR R
R

£80. 18+
EED. 19==
€80. 24:»
EM. Os=s
EH, ==
EH. o=
EH. s-l

.AD2
.AEA
. AREB
JREC
.AED
. AEE
.REF

EBD. 14+=+

.ADY

Q==

[Ses
60
L Tss

8=
Q=2

.10==
12=EH, 13=»
ERR .00=+
ERR.COD==
ELG .00==
ELG.FMT
==
Ex. GAss
EX, SCa-s
EX, SBOex, S8

AEG

.AREH
.AET
AEJ
.AEK
.REL

.AEM
R

EGD. 10ss
EGD. 1les=
£GO. 12==
EGD. 13s=
EGD. 14s=
EGD. 15:€GD. 16
EGD. 17-:
EGD. 18-=
EGO. 19==
EGD. 20=»
EGD. 21+
EGD. 22+
EGD. 23x»
€GD. P LR
EGH. 30=+
€BS. 01«
£80D. 10==
EBD. 122+
€£80. 13==

. ADG
. ADH
.ADI
.ADJ
. ADK
. ADL
.ADM
. AUN
.ADO
.ADP
.ADQ
.ADR
.ADS
LADT
.ADV
.ADV
. ADW
. ADX

006500
006572
006632
006656
006704
006732
006762
007000
007030
007046
007066
007126
007214’
007326
007366
007430
007474007520
007562
007622
007670
007722
007762
010016’
010076°
010152’
010210’
010246°
010306
010344
010370’
010420
010450
010500
010534°
010564
010614°
010650
010722
ol1412’
011446’
012000
012012’
012030’
012060
012064’

. \DF

AR R/ R R

006412’
006460

.ADD
. RDE

006324

RPT6 =+
RPT Tas
RPT Bas
RPT Qas
RPT 10..
RPT 112
€GS. Ols==
EGS. Q2=+

/R RR R

006162
006226
006244
006272’

R:'R 'R R

vOl.6

.AEN
.AEO
.AEP
.REQ
.RER
.AES
.AET
.AEU
.REN
.AEW
.AEX
JAFM
.AFN
LAFT

AFUY
JAFYV

JAFW

11:56:01
11:45:02

VAX-11 Bliss 16 v4 ,0-579
DISK$USERZ
: [POWERS JZRQADO.BL L ;6

5€Q 0107
p
age 109
(34,

(Y9
ZRQAM1

RD/RX

vOl.6

EXERCISER

11-Apr-1984

PROTECTION TABLE

11 Apr-1984 11:45:02

012106’

EX.CMD=-

P.AFX

012136°
012146°
012162
012174
012206

EX.WRT==
EX.CMP==
EX.ONLe«
EX.ACC==
EX.0P=s

P.AFZ
P.AGA
P.AGB
P.AGC
P .AGD

012376
012466
012524
012562

EX.BBU==
EX.LBN==
EX.PBN=»
EX.LBR==

012126

012212
012302

012630’
012676

EX.RD=-~

EX.B88e=
EX.BB8l«=

EX.LBW=>=

013616°
013640°
013674
013722
013760’
014030°

014074

014150
014174
014216’
014246
014270
014310
014370°
014450
014522°
014614’
014702’
014772
015052
015132
015206
015260
015342
015374
015414
015470
015544

P.AGK

P.AGP

EX.BD==
EX.BDR==

013556°

P.AGG
P.AGH
P.AGI
P.AGJ

EX.BC==

013222
013300
013460°
013546°

P.AGE
P.AGF

P.AGL

EX.CBC=EX.CBR==
EX.CBW==

013370

P.AFY

EX.RBN==

012756°
013022
013074
013146°

11:56:01

EX.BDW=>»

EX.RP==
EX.WRD==

EX.TIMs==

XX13==
XX23==
XX32==
XX33=s
XX34==
CER.Q1==

CER.02=2+=

SC.SDI==
SC.CON==
SC.DUP=»
SC.ONL ==
SC.SON==
SC.UNKs=~
SC.vOL ==
SC.I0P==
SC.DISs=>=
SC.FER==
SC.FE2==
SC.ISH==
SC.IS2=SC.DST==
SC.DS2==
SC.ECC==
SC.ECD==
SC.RCT=:
SC.Fi ==
SC.576==
SC.FCT=

P.AGM
P .AGN
P.AGO
P.AGQ
P.AGR

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.AME
P . AHF
P.ANG
P.AHH
P.AMI
P.AHY
P. AHK
P . AHL
P.AHM
P.AHN
P.AHO
P.AHP
P.AHQ
P .AHR
P.AKMS
P.AHT
P.AHY
P.AHV
P.AHW
P . AMX

VAX-11

Bliss

v4,0-579

DISKSUSER?Z: [POWERS JZRQADO.BL L ;6

5EQ 0110
Page

110

(34)

-1
ZRQaM]

RO/Rx EXERCISER
PROTECTION TABLE

5C.ECl=»
SC.EC2=~
SC.EC3:+
SC.EC4=SC.ECS==
SC.EC6=SC.EC7=SC.EC8=5C.EC9===
SC.SWP
==
SC.HWP
SC.0DA==»
SC.008=-

015612
015642
015672

015724
015754
016004
016034
016066
016120
olélec
olez222
016262
ol1e6312
016334
016370
016424
016476
016554
016614
016664

11:56:01
11:45:02

ASTERISK

==
OFPTBL
==
SFPTBL

LSHWLEN.2
LSSWLEN..

. AHZ
.AIA
.AIB
.AIC
.AID
.AlE
AIF
.AIG
LAIM
ALl
AlY
LAIK
LAIL
LAIM
.AIN
.AI0
.AIP
.Al1Q
AIR
.AIS
LAIT
ATV
ALV
LAl
LAIX
AIY
.ARIZ
LAJX
. AKF
. AKG

SC.PAR==

SC.CT0=SC.S0S=SC.EDC=»
SC.IDS===
SC.SRT
SC.SRI=»
SC.POE=SC.ROY==
SC.CLK==
SC.RSP=»
SC.SUR==
==
SC.PSP
. ERR==
CNT

017100
017162
017210
017256
017306
021064
021604
021622
021720
022016
022116
022150
022154
022160°
22166
022176’
022222

1984
1984

. AMY

SC.NXMe=

016756
017044

Apr
ARpr

VOOV VIOV V O VV DDV OVUOVIOVIVUVUDVOVOOVIVIVIVUVUIUVVIUOD

vol.e

11
11

RDRX .ERR

OF .MSG==

HRD
. MSG =

SFT.MSG=

HRD.SUB=
SPACE4
=~

. AKH

LAK]
. AKJ

. AKK
. AKL

. AKM

PSECT SUMMARY
Psect Name

Words
4709
<38

$CODE
$

$FFF§

L brary

Statistics

Attr’ butes
RO,
I
RW

.
.,

LCL,
GBL,

REL,

CON
CON

VAX 11 Bliss 16 v4.0 579
DISKSUSER2:
[POWERS )JZRQADO.BL L ;6

580 0111

Page

111

(34,

[
-

SROAM]

RD/Rx EXERCISER

Apr

1984

11:56:01

vOl.6

PROTECTICN TABLE

Apr

1984

11:45:02

H
3

:
H

F'le

DISKSUSERZ:(POWERS1ZRAADO.L
1633

Total

404

Symbols
Loaded

181

Percent

Pages
Mapped

COMMAND QUAL IFIER,
BLISS PDPL1 JFRAADO.BLL 'LIST=ZRGADC.LS1/0BJECT
=ZRQADO,.0B1 /SOURCE -PAGE : 53

VAX 11 Bliss 16 v4.0 579
DISKSUSERZ:
[POWERS JZRQADO.BL L ;6
Processing

Time

00:00.1

£EQ 0112

Page

112

(34)

4730
av3y
4732
4733
4734
a73s
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756

et b Pt it Pt Pt P2 Pt s O DO OO OO O
e Pt o P
s (el Pt b P (b Pl [t (b P

4723
a724
4725
4726
4727
4728
4729

b [ P P

4720
4721
4722

PROTECTION TABLE

b et P Pt P et (et el D P

3214
15
Ly
U
L3
I
3218
3219
3220
3221
3222
3228
3224
322
3226
3227
3228
4”19

RD/Rx EXERCISER

Pt ot et et Pt Pt ph P

B¢

B0 GF

G0 B¢

HP G

JRQAM®

Apr

1984

11:56:01

11:45:02

VAX-11

Bliss

RD'RX EXERCISER
ident

VO0l1.6

address ng_mode (absolute),
environment (noeis)
N

beg'n
ssbttl

DECLARATIONS®

1 brary

‘' ZRQADC.L16"
;

RDRXx EXERCISER GLOBAL L IBRARY

require

‘'BLSMAC.REQ";

DIAGNOSTIC

SUPERVISOR LIBRARY

forward routine
NEX TRAP : LS$SISR novalue,
EMS_01 : novalue,
EMS_TIM : novalue,
EMS DBN : NOVALUE,
EMS _BLK : NOVALUE,
SET_CPAR : novalue,
SET_UPAR : novalue;
external

CST

blockvector

CST_ADDR

[MAX_CTLR,

1222
1222

CST_LEN,

word]

field (CST FIELDS),

RUN-TIME CONTROLLER STATUS

TABLES

[CST_LEN, word] field (CST_FIELDS),
! CONTROLLER STATUS TABLE ADDRESS OF “CURRENT" CONTROLLER
OCT : blockvector [MAX_CTLR, DCT_LEN, word] field (DOCT _FIELDS),
! DRIVER CONTROLLER TABLES
OCT_ADDR : ref block [DCT_LEN, word] field (DCT_FIELDS),
! ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE

RDRX ADDR

ref block

ref

rdrx

field (RC_REG),

! DEVICE ADDRESS OF “CURRENT” CONTROLLER
IRDRX_ADDR : ref rdrx field (RC_REG),
' DEVICE ADDRESS OF INTERRUPTING CONTROLLER
BST : BLOCKVECTOR [MAX_UNITS, 2, WORD],
1222
YCONTAINS LBNS (HI « LO FIELDS) FOR SEQUENTIAL
227
'I1/0 TRANSFER FOR EACH UNIT,
1222
TALLY : vector [MAX_UNITS & TALLY_LEN, word] field (T_FIELDS),
! STATISTICS TABLES
T_ADDR : ref block [TALLY_LEN, word] field (T FIELDS),
! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT
OUPPKT : BLOCK (257, WORD) FIELD (DF FIELDS),
'BUFFER FOR DUP
227
*INFO FROM RECEIVE AND SEND CMDS
222
TRK_SGN : VECTOR [MAX_UNITS, BYTE,
RDM_CNT : WORD,
RANDOM : VECTOR [RDM_LEN, WORD],

C ERR

TBL

MSCP PKT

v4.0

579

DISKS$USERZ2: [POWERS ]ZRGADO.BL1 ;6

module ZRQAM?2 (

stitle

SIGNED], !CURRENT TRACK DIRECTION
INO OF RANDOM NOS
\\KEEP
RANDOM NO TABLE
//TOGE THER

222
227
222

blockvector [MAX_CTLR, C ERR LEN, word) field (C ERR_FIELDS),
¢ STATISTICS TABLE FOR CONTROLLER ERRORS
blockvector [PKT CNT, PKT LEN, word] field (PKT FIELDS),

56Q 0113
Page 113

(35)

1<)
11

Apr

1984

11:56:01

VAX-11

DECLARATIONS

Apr-1984

11:45:02

DISK$USER2:[POWERS]ZRQADO.BL1:6

PKT

vector

USE

RETPKY

RP_USE

[PKT_CNT,

byte,

579

signed].

vector

BUFF _ADDR : vector [MAX_BUF _CNT],
BUFF _OWN : vector [MAX BUF CNT, byte,
I0ODQ : vector (IODQ LEN, bytel,

signed],

IODQ_IN : word,
I0DQ_OUT : word,
ENTRY _REASON : byte,
EOP_FLAG : byte,
OUP _FLAGS : WORD,
CCTLR : word,

COISK : word,
CUOFF : word,
CTLR_CNT : word,
DUR : vector [MAX_UNITS, bytel,
QIO : vector [MAX CTLR, bytel,

FREE _MEM_ADOR,

BYTS_PER_QIO : word,
ST_CODE : word,
SB_CODE : word,
STEP : word,
OF _RC : signed word,
SA REG : word,
CMD_TIME : word,
NEX : word,
CRN_LOW : word,

CRN_HIGH : word,
CREDIT_BAL : word.

NEXT _PKT_USE : byte,
HOURS. byte,
MINUTES : byte,

CLK_TICKS : word,
CLK_PRESENT : byte,

HOE _FLAG : byte,
FORCED_ERROR : byte,
FER_LBN : word,
FER_BC : word,

INIT OCCURED
Sggg_VECT OK
INDEX

v4.0

MSCP PACKET POOL ALLOCATION TABLE
blockvector [RP_CNTY, RP_LEN, word)] field (RP_FIELDS),
! RETURN PACKET POOL

[RP CNT, byte, signedl],
' RETURN PACKET POOL ALLOCATION TABLE
RP INDX : word,
! CURRENT RETURN PACKET INDEX
RP_ADDR : ref block [RP_LEN, word] field (RP FIELDS),
! CURRENT RETURN PACKET ADDRESS
ELOG_PKT : blockvector [EP_CNT + 1, EP_LEN, word] field (EP FIELDS),
! ERROR LOG PACKET SAVE AREA

' MSCP PACKET POOL
ref block (PKT LEN, word) field (PKT_FIELDS),
' ADDRESS OF AN MSCP PACKET (INTERRUPT PROCESSING)

IPKT ADDR

:
:

byte,
byte,

SIGNED

WORD,

TABLE

!CURRENT

MESSAGE

I/0 BUFFER

DESCRIPTORS

I/70 BUFFER OWNERSHIP (CONTROLLER NUMBER)
I/0 DONE QUEUE
CIRCULAR QUEUE OF RETPKT
I70 DONE QUEUE IN POINTER
170 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND
! END OF -PASS FLAG
'OUP FLAGS
222
NUMBER OF "CURRENT” CONTROLLER
D ID I® s D

P
b Pt P Pl Pt P
b b P P
b e Pk b B s (b e
et b P
b ot b P
ek o

@¢
Ge
G
G
V9
G4
G0
V¢
S8
G5
Ve
W0
S0
S
G4
B
Bs
Ve
Ve
S
Ve
G
B¢
Gt
We
@1
B
B¢
G

b P (i Pl P

4809

@0
B

4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808

d P

4769
4° 79
477
4772
477%
4774
4775
4776

b b o

4768

b b o

4764

4765
4760
476"

d b et e Pl Pt Pt e

4759
4760
4761
4762
4763

Ph et e

4757
4758

G¢

vOl.6

Bliss

SEQ 0114
Page 114

RDO/RX EXERCISER

B D B P B IB IB D ID ID IB D I O D ID B D ID DD I ID I D

ZRQAAM,

INDECES

CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET
TOTAL NUMBER OF CONFIGURED CONTROLLERS
DROP UNIT REASON
NUMBER OF OUTSTANDING QIOs PER CONTROLLER
START

FREE

MEMORY

SIZE (BYTES) OF AN I/0 BUFFER
CURRENT STATUS CODE
CURRENT SuB-CODE
CURRENT STEP IN HARD_INIT
OFFSET (O OR 2) TO READ IP OR SA

STORAGE FOR SA REGISTER READS AND WRITES
COMMAND TIMEOUT VALUE (IN SECONDS)

NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND

COMMAND REF NUMBER (HI ORDER)
CREDIT BALANCE

POINTER TO NEXT ENTRY
TIME OF DAY (HOURS)
TIME OF DAY (MINUTES)

IN PKT_USE

SENT

TABLE

TIME OF DAY (LINE-CLOCK TICKS)
FLAG INDICATES IF LINE-CLOCK PRESENT
FLAG INDICATES
"FORCED ERROR”
LBN OF THE
BYTE COUNT

IF "HALT ON ERROR' FLAG
DETECTED IN LAST READ
“FORCED ERROR" BLOCK
OF THE “FORCED ERROR" BLOCK

EXERCISER INITIALIZATION COMPLETE
FLAG INDICATES IF ADDRESS/VECTOR TEST
PACKET

INDEX

227

SET

PASSED

(35)

| 9
RD/RX EXERCISER

ZRQAM?

DECLARATIONS

b P Pt
et et Pt P
e e el P
b (el s b et Pk b P
b b Pt Pt b P P
ok P
b b (b P Pt ik b b P
e b b b b b ot b b P P

4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821
4822
4823
4824
4825
4826
4827
4828
4829
4830
4831
4832
4833
4834
4835
4836
4837
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4862

Pt et b b P

B @6

G0 B

BV Vs

Vs ST

V¢ V6 VO

GF S8 V6

G0 G5

00 G4

G0 S0 Ve

G0 G

G0 GF

G G¢

09 V0

W0 G0 G

0 &

v0l1.6

S_PATTERN : WORD,
S DUPPKT : WORD,
O8M107,
DU MSG,
vector [11],
DU_RSN

11 Apr 1984
11 Apr-1984

11:56:01
11:45:02

'PATTERN FOR DUP WRITES
'DBN BYTE COUNTER

VAX

11 Bl'ss

DISK$USERZ: [POWERS]ZRQADO.BL1 ;6
227
222

RPT1,
RPT2,
RPTS,
RPT4,
RPTS,
RPT6,
RPT?7,
RPTS8,
RPT9,
RPT10,
RPT11,
MSG_01,
EGS_ 01,

EBS_01,
EBD_ 10,
EBD 12,
EBD_13,
€BD_14,
€EBD_18,
€60_19,
€EBD_24,
ERR_0O,
ERR_COD
ELG_00,
ELG_FMT
EX_TIM,
xXX13,
xXx23,
xXx32,
XX33,
xx3a,
EX_SA,

Ex_sC,
EX_SBO,
EX_SB,
EX_RP,
EX_WRD,
EX_CMD,
EX_RD,
EX_WRT,
EX_CMP,
EX_ONL,
EX_ACC,
EX_OP,
EX_88,
Ex_B881,

Ex_B88y,
EX_LBN,

vector [14],

vector (5],

16 v4.0 579

1222
1222
1222
1222
1222

5EQ 0115
Page

115

(35)

M9
ZRQAM?
vOl.6

RD/RX EXERCISER
DECLARATIONS

:
:

4863
48064

1
1

4865

H
:
H
H
:
:
H
H
H
i
H
:
H
:
H
:
:
;
H

4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
4877
4878
4879
4880
4881
4882
4883
4884
4885

1
1
1
1

4866

EX_PBN,
EX_LBR,

EX_LBW,

EX_RBN,

Ex_8D,

1
1
1
1
1
1
1
1
1
1
1
1

EX_CBC,
EX_CBR,
Ex_CBw,
Ex_BC,

EX_BDR,
EX_BDW,
SC_SO0I,
SC_CON,
SC_DuP,
SC_ONL,
SC_SON,
SC_UNK,
SC_voL,
SC_IOP,
SC_0IS,
SC_FER,
SC_FE2,
SC_IV.

4906
4907

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

:
H
;
H
;

4909
4910
4911
4912
4913

1
1
1
1
1

SC_PAR,
sc_Cr10,
SC_SDS,
SC_EOC,
SC_IDS,

4915

SC_SRI,

:
H
:
i
:
H

4886
4887
4888
4889
4890
4891

4892

:
:
:
:
:
:
H
H
i
:
:
:
:

4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905

;

4908

H
H

4914

SC_ISe,
SC_0sT,
SC_DSe,
SC_eCC,
SC_ECD,
SC _RCT,

SC_FUL,

SC_S76,
SC_FCT,
SC_SwWP,
SC_HWP,
SC_EC1,
SC_EC2,
SC_EC3,
SC_EC4,
SC_EC5,
SC_ECe,
SC_EC7,
SC_ECs8,
SC_EC9,

SC_O0DA,
SC_008,

SC_NXM,

SC_SRT,

11 Apr-1984
11-Apr-1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISK$USERZ2: [POWERS )ZRQADO.BL1;6

SEQ 0116
Page 116

(35)

N9
ZRQAM,

RD/RX EXERCISER

v0l1.6
:

4916

DECLARATIONS
1

4917
4918
4919

1
1
1

SC_RDv,
SC_CLk,
SC_RSP,

H
H
H

4920
4921
4922

1
1
1

SC_SUR,
SC_PSP,
CER_O1,

:
i,

4924
4925

1
1

CNTR_ERR
RDORX_ERR

:
:

4923

CER_O2,

4926
4927

1
1

4929

4931

HWQ2,

4933

HWQ4
,

H
H
H
:

4928

4932

Apr-1984

11 Apr-1984

11:56:01

11:45:02

VAX-11 Bliss-16

SPACEAQ,

:
:

vector
vector

[23],
(7],

CRLF,

DASH,

ASTERISK,

HWQ3,

4934
4935
4936
4937

4938

)
1
1
1

H
:
H
:
H
H
H
:
:
:
H
H
;
H
H
H
H
:
:
:
:
H
H
H
H

4939
4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
4950
4951
4952
4953
4954
4955
4956
4957
4958
4959
4960
4961
492
4963

1
1
1
1
|
1
1
1
1\
1
|
1
1
1
1}
1
1
1
1
1
1
1
1
1
1

HWQ8,
HWQ9,
HWQ10,

SWa19,
SWQ@20,
Suw@21,
SuWQ@22,
SWQ@23,
Su@24,
SW@2s,
EM_O,
EH_1,

1222
1222

4966

EH_4,

1222

:
:

;
;

4964
4965

4967
4968

1
1

HUWQ@S,
HWQ6A,
HWQ@6B,
HWQ7A,
HWQ@78,

HWQ@ll,
Suwal,

1222

SWQ@e,
Sw@s,
sSwa7,
SWQA9,
SwWQa1o,
Swall,
SwWaie,
SWQAL3s,
SW@14,
SWa1s,
SWa17,

EH_2,
EH_3,

EH_S,
EH_6,

v4,0-579

DISKSUSERZ : [POWERS )ZRGADO.BL1 ;6

SC_POE,

:
:
:

1222
1222

V222
V222

SEQ 0117
Page 117

(35)

(510
RO/RXx EXERCISER

cRQAAM.®

Dt CLARAT IONS

4981
4982
4948
4384

498%

4986

498"
4988
4989
4990
4991
4992
4993
4994
4995
439¢

D0 Pub (o Pt ub P8 Pt b Pub
Pub P8 b b -0 r P

49°7

49°8
49°9
43890

Apr

1984

11:56:01

11:45:02

EM_9,
&n 10,
Ex_12,
EM_13,

1222
0227
0222
12227

V222

SwMl,
NAL,

Own

16 v4 .0 579

DISKSUSER?2:
[POWERS )ZRQADO.BL1;6
1222

€En_8,

VAX-11 Bliss

Em_7,

SWP _FLAGS
LSHMIMEM,
L SLUN,
LSUNIT;

word.

vector {17) initial
NUALL, SC_ONL, NULL,

0 BRK;

SUC

18L OFL

TBL TMFE

TBL _WPT
TBL DAY

:
:

TBL _MST
TBL CNT
T8L DRV

:
:
:

0 P

49°3%

4974
49°%

D -0 -8 Pt (o8 Pt P PoS o8

Be 00

G»

©¢

69 OF

V¢

VOl.e

499
4970
497}
492

vector

[9]

initial

MAL, SC_DIS),
vector [11) init

(NARL, SC SOI, SC CON, ML, SC DUP, NLL, NULL,
NLL, NULL, NULL, ML, NLL, NAL, SC_SON),

(SC UNC,

SC_VvOL,

SC_IOP,

NAL,

SC DUP,

NAL,

NULL,

el (SC_FER, NRL, SC_ISH, SC DST, 5C EC9, SC S/,
SC_FCTY, SC_ECC, SC_RCT, SC FWL, SC_EC1,
vector (3] initial (NAL, SC_SWP, SC MwP),
vector [16]) initial (SC FE2, NAL, SC_IS2, 5C D9S2, SC EC9, N L, NULL,
SC _ECD, SC_EC1, SC_EC2, SC_€ECS3, SC £Ca, SC ECS, SC _€ECe, SC €C7, SC EC8),
vector [S5) initiel (NARL, SC_ ODA, SC_0DB, SC NxM, SC PAR),
vector [4) initial (SC CTO, SC SDS, SC_€0C, sSC IDS),
vector (9] initiel (NMAL, SC SRT, SC SRI, SC POE, SC RDr, S5C Civ, ST R,P,
SC SUR, SC PSP);

5EQ 0118
Page

118
(35,

RD Rx EXERCISER

JRUAM
VWl.e

T'PE

4997

]

4390

EQUALS;

DEVIYP (sesciz RADXL or RUXSO' );
ODESCRIPT (mascic RD'RY EXERCISER

:
H

498

AND DESCRIPTION

1
S0
SN\

11
11

sebtt]

Apr
Apr

1984
1984

11:%:01
11:45:02

VAX 11 Blies 15 v4,0 579
DISKSUSER?
: [POMFRS JZROADO . B 136

‘' TYPE AND DESCRIPTION

! NAME OF DEVICE
TEST DESCRIPTION

SUPPORTED B+ PROGRAM

0119 ;})?
580Pege
(%)

D1O
SECTION

PARAMETER

CODING

Apr
Apr

1988
1984

11:56:01
11:45:02

VAX

Bliss

580 0120

v4.,0 579

DISKSUSER?Z:
[POWERS JZRQADO.BL 1;:6

SECTION'

‘'HARDWARE

CODING

11
11

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR 1O BUILD P TABLES.
THE

MACROS ARE NOT

INTERPRETED BY

EXECUTED

THE

AS MACHINE

INSTRUCTIONS BUT

SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR,

ARL

THE

TO ESTABLISH COMMUNICATIONS

=B P

00
O

P
b (e Pt P

B9
B0
B¢
B0
OF

(b Pud (rb

OF
B¢
U0
5

5034
5035
5036

b
P8 Pub Pt
P
Pt Ps P
00 =t Pt P

5024
5025
5026
5027
5028
5029
5¢ 30
5031
5032
5033

b P

00
00
G0 O
G
G
€2
G
W
V1
G¢
B0
90
G0
B

dsabttl

B0 B¢

©s

b P8 PuS Pt pus Pt Pt

RO Ax EXERCISER
HARDWARE PARAMETER

BGNMRD;
GPRMA (MWQ2,

GPRMD (MiQ3, 4,

#0o'4’',

%0' 774

YES,

0’377, 80'0',

80" 7',

GPRMD (MiQ4, 6, D, o 17, wdecimal'
'O ,
GPRML (MiQ10, 6, %o 00004C', YcS, 1)
XFERF

GPRML
sL

(NODU);

(mM4Qll,

(NODU);

GPRML

XFERY

GPRMD
GPRMD
GPRMD
GPRMD

(MWQS,

(T0Q8);

(HMWQ6A,
(MWQ6B,
(MMQT7A,
(MIQ7B,

(70Q8);

(rWOON)E
;

GPRML
XFERF
GPRML

6,
6,

#o0'000100',

%o’ 000200’, YES,

YES,

1);

sdecimal’'15',

rES,

1);

1);
1);

8, O, %0'177777', sdecimal
' O', #0" 177777, VYES, 1);
10, O, %0°'177777', sdecimal
'O’ , ®0' 177777, YES, 1)
12, O, #0°'177777', GPSATLO (8), #0°'177277', YES, 1);
14, O, #0'177777', dsdecimal
‘' O', #0’'177777', €S, 1)

(MWQ8, 6, %0'100000',
(HWOONE
);
(MWQ9, 6, so 100000°,

ENDMRD
;

YES,

1);

NO,

1);

NO,

1);

IP ADDRESS
VECTOR
BR LEVEL
RDRX

DRIVE

NUMBER

TALSO RUN DUP EXERCISER

[]

IWMRITE DIAG AREA

[]

'TEST ENTIRE CUSTOMER AREA?
R

YES

STARTING LBN LO
STARTING LBN WI
ENDING LBN LO
ENDING LBN WI
EXER ON CUST DATA AREA
NO
OONE
se

WARNING

7 CONF IRM

222
222
22
222
222
222
ZZ
222
222
222
222

Page

1¢0
(37,

RDO/RX EXERCISER

ZRQAM

SOF TWARE PARAMETER CODING SECTION
PARAMETER

CODING

Apr

1984

5EQ 0121

VAX 11 Bliss 16 v4,0 579

11:45:02

DISKSUSER? : [POWERS 1ZRQADO.BL 1 ;6

Page 121

SECTION'

et P
P P P

THE

SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS

THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT

INTERPRETED BY

THE

SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR.

THE
ARE

THE

TO ESTABLISH COMMUNICATIONS

BGNSF
T;

!GPRML (SW@16, 4, SWt _TRC, YES, 1);
GPRMD (SWQ24, 10, D, #%0°'177777*, O, 2359, YES, 1);
GPRMO (SwQ1, O, D, #0'177777', O, 65535, YES, 1);
GPRMD (SMQ@2, 2, D, %0'177777', O, 99, YES, 1);
GPRMD (SwWQ17,
D, so* 177777, 0,
100, YES, 1);
GPRML (SWQ1S,
SWF CST, YES, 1)
GPRML (SWQ20,
SWF FER, YES, 1)
GPRML (SWQ23,
SWF _BLK, YES, 1)
GPRML (SwWQ@21,
SWF _HRD, YES, 1;
GPRML (SWQ@22,
SWF _SFT, YES, 1
GPRML (5wWQ2S5,
SWF _TRY, YES, 1)
GPRML (SwWQ4, 4, SwWF _RDM, YES, 1);

ENABLE DIAGNOSTIC
START TIME
ERROR LIMIT

TRACE

CLEAR STATISTICAL

TABLES

GPRML (SWQ@19, 4, SWF SEQ, YES, 1);
sL (SW27;
GPRML (SWQ7, 4, SWF CRC, YES, 1);
DISPLAY (SwMl);
GPRML. (SWQ9, 4, SWF CWC, YES, 1);

]

P P P
b Pl P
b
b b

®s

b P P P P (s Pud P
P
el (b P P
ol b Pt Pt Pt P
b P
i Pt
el Pt P
b Pt e

5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5034
5085
5086

5069

5050
5051
5052
5053
5054
5055
5056
5057
5058
5059
506C
5061
5062
5063
Sc64
5065
5066
5067
5068

' SOF TWARE

I X ¥

G0
S0
O
Ge
G0
S8
G4
O5
G5 G»
G0
B
G
G0
S0
S0
GF
B¢
G0
V¢
G
G0
S
B9
Ve
W
Vs
GF
Vs
00
G+
GI
©F
V0
S8
s
G
B0
Bt
G
@0
B8
B0
WE
B0

ssbtt]l

o (e Pl P

vOl.6

5087
50358
S0%9
5S040

11 Apr 1984 11:56:01

XFERF (SW1);
XFER (SW2);
$L (SW1);

XFERF (SW3);
XFER (SWa);
sL (SW3);

GPRML (SWQ10,
SL (SWa);
GPRML (SWQ11,
XFERF (SWS);
XFER (SW6);
sL (SWS);
GPRMD (SwQl2,
XFER (SW7);
$L (SWe);
GPRMD (SWQ13,

Gpa?g g§U014.
$L

W7);

ENDSFT;

TRANSFER LIMIT
PERCENT OF RD OPERATIONS

REWRITE
HALT ON
MALT ON
HALT ON

BLOCKS WHEN "FORCED ERROR' BIT SET?
BAD-BLOCK TYPE ERRORS WITH 'MOE’ FLAG?
HARD ERRORS WITH ‘HOE' rLAG SET?
SOFT ERRORS WITH 'HOE® FLAG SET?

COUNT EACH RETRY

RANDOM

SEEK

IF NO,

DO NEXT

RANDOM

MODE

AS ANOTHER SOFT-ERROR?
?

QUESTION

SEQUENTIAL

SELECTION OF

READ -COMPARES AT CONTROLLER ?
REMAINING QUESTIONS ONLY APPLY
WRITE COMPARES AT CONTROLLER ?

NO,

DO NEXT

QUESTION

SwF

HWC,

YES,

1);

CHECK WRITES AT HOST BY

SWwF _UDP,

VES,

1);

USER-DEF INED DATA PATTERN
IF NO, DO NEXT QUESTION

12,
14,

D,
O,

#0'1777727',
%0°'177777',
#0°'177777',

O,
1,
O,

DP_CNT,

YES,

1);

MAX UDP_CNT, YES., 1)
®0'177777', NO, 12N

SELECT
DONE

PRE

NO.

WORDS

PATTERN

...

READING

DEFINED DATA PATTERN
IN USER DATA PATTERN

VALUES

DRIVES

(38,

F10
JRAAM.

RD/Rx EXERCISER

v©
vo
vV
Y9

5087
5038
5089
5090
5091
5092
5093
5094
5095
5090
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
S111
S112
5113
5114
5115
S116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
3127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138
5139

SOF TWARE PARAMETER CODING SECTION

SBUNVNNMNNTIVTNVTNWVNIUN D D B D BB BUWWUWWWNNNNNNRNDNDNNNRN
NN N - e e e s 00 gt ps 10 o e

B¢

V¢

vOol.6é

11-Rpr-1984

ssbttl

'REPORT

CODING

11 Apr-1984

11:56:01

VAX-11

11:45:02

Bliss

v4,0-579

DISK$USERZ2: [POWERS ]ZRQADO.BL1;:6

36G_0122
Page 122

SECTION'

!
!

’

THE REPORT CODING SECTION CONTAINS THE
“PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS.

BGNRPT;

ocal
CUR PRIORITY

word;

GETPRI

(CUR PRIORITY);

SETPRI

(PRIO4);

PRINTS

(RPT1);

PRINTS (RPT2);
PRINTS (RPT3);
PRINTS
PRINTS
PRINTS
incr

(RPT4);
(RPTS);
(RPT6);

CTLR

from O

to MAX

CTLR

OF _UN)

to ((UNITS_PER_CNTR

begin
SET
CPAR (.CTLR);

incr DISK

from (O

+«

1) & UNIT

SIZE

. OF UN) by UNIT SIZE do

begin

SET_UPAR
if

.CST

(.DISK);
ADDR

[ .DISK

OF _DATA,

D_PRES])

eql

PRESENT

then

begin

PRINTS

(RPT?7,

FRINTS

(RPT8,

LSLUN,

_CST_ADDR [.DISK

.T_ADDR
.T_ADDR

[TOT _READS _HI]},
(MTOT _BYT_RED},

PRINTS

« OF _DATA,
.T ADDR
.T_ADDR

D_DISK _NUM]),

(TOT_READS LO},
[TOT_BYT_RED_HI),

[.CTLR,

.T_ADDR

.DISK

[TOT_BYT

+ OF NAME O,

D NAME 01]);

RED LO));

(RPTS,

.T_ADDR [TOT _WRITES
MI), .T ADDR [TOT_WRITES_LO]),
.T_ADDR ([MTOT _BYT _WRT), .T ADDR [TOT BYT WRT MI]),

PRINTS (RPT9,
.T_ADDR [ERR

end;

CST

.T_ADDR [TOTY BYT WRT_LO));

HRD _SEx ],

.T_ADDR

[ERR

HRD DAT],

.7 _ADDR

[ERR_MRD

.T_ADDR [ERR_SFT SEK],

.T ADDR

[ERR SFT DAT]),

.T ADDR

(ERR SFT DRV],

DRV]),

ADDR

.T ADDR

{ERR

TMMRD

(ERR SFT

MST],

MSTY),;

(39)

G1O
SRAAM.

RO/RX EXERCISER

vol.6
3
:

5140
5141

REPORT CODING SECTION
3
3

S142
5143
Si14¢
5145
5146
514"
148

3
3
3
3
4
4
4

5150

S152

:
]
H
H
:
H
:
:

:
:

:
:
H

S$149

5151

5153
5154

5155
5156
5157

11-Apr-19684 11:56:01

11 Apr 1984 11:45:02

iF .CST [.CTLR,
then

STATE]) eal PRESENT

PRINTS (RPT10);
PRINTS (RPT11, .C ERR TBL [.CTLR, C ERR_HRD]),

end;

PRINTS (CRLF);

2
2

end;

2
2
1

ENDRPT;

000000
000000

122

121

104

.PSECT
LSOVTYP::

000003

130

061

040

JASCIT

000011
000014
000017
000020
000023
000026
000031

122
065
00C
122
122
105
122
123
000

125
060

130
000

157

162

104
130
130
103
105

040

057
040
105
111

LASCII

LASCII
ASCII
LASCII
LS$DESC::.ASCII
LASCII
LASCII
ASCII

000000C

LASCII
LASCII
.BLKB
L $HRDLN:
:

000044

000031

GPs$1::

00006
000070

0000006
160000
177777
001031
000000G
000004
000774

002032

0000006
000377

122

.ASCII

000034
000037
000040
000042

000064

.C FRR TBL [.CTLR, C_ERR SFT]);

SETPRI (.CUR_PRIORITY);

.IDENT
.ENABL

000046
000050
000052
000054
000056
000060
000062

DISKSUSER2: [POWEFRS JZRGADO.BL1 ;6

end;

L.TITLE

000006

VAX-11 Bliss-16 v4,0 579

GPs2::

GPs$3::

. WORD
. WORD

ZRQAM2 RD/RX EXERCISER
/Vv01.6/
AMA
$CODES,

/RQD/

/X1

sor /

/RuUX/
/50/<00>
<00»>
/RD/<57»>
/RX 7/
/EXE/
/RCI/
/SER/
<00»
2

<<c<L$NDHRD L $HROLN>/2>

. WORD
.WORD
. WORD
. WORD
.WORD
. WORD
. WORD

HWG@]1
20000
1
1031
HWQS
4
774

.WORD
. WORD

HWQ3
377

.WORD

2032

SEQ 0123

Page 123

(39)

H10
JRQAMD
vOl.é

o002
V00074
000076
000100
C0102
000104

000106
000110
000112
000114
000116
000129
000122
000124
000126
000130
000132
000134
000136
000140
000142
000144
000146
000150
000152
000154
000156
00016¢
000162
000164
000166
000170
000172
000174
000176
000200
000202

000204
000206
000210
000212
000214
000216
000220
000222
000224
000225
000230
000232

.WORD

GPs4::

oP$S::
$NODL
GP$6::

$LNODU:
GPS$7::

$70Q8:
GPs8::

0000006
1777277
000000

GP$9::

177777

0064352
0000006
177777

GP$10;:

000004

177777

000001
007032
000000G
177777
000000
177777
001004
003120
0000006
100000
000000C
003120
0000006
100000
001004

GPs$1l::

$LT0Q8:
GPs12::

.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
. WORD

000000C

Apr
Apr

VAX-11

17
3130

HWQ10
40

<< $LNODU

3130

$NODU>¢400>+4>+40>

HW@11

100
1004
3130

HWQS

200
<cccs$. TOQ8

4032
HWQ6A
-1

$T0Q8>4400>+4>.20>

0
-1
S032

HWQ68

1
1

6432

HWG@7A
-1

1
1
7032
HWQ78
1
o
1

1004

3120
HWQ8

1004

.BLKW

Bliss-16

V4.0 579

DISK$USERZ2:
[POMERS ]ZRGADO.BL 1 ;6

3052

WORD

L$SFTUN::

11:56:01
11:45:02

HWG@4

.WORD
.WORD

$LHWDOONE
;

1984
1984

0
7

100000
<<<< $LHWOONE
3120
HWGE9
100000

$HWDONE
: . WORD
GP$13:: .WORD

L SNDHR:D;

000234
000236

11
11

RD/Rx EXERCISER
REPORT CCDING SECTION

$HWDONE »4400>:4>+40>

5EQ 0124

110
RD-Rx EXERCISER
REPORT CCDING SECTION

JRQAM
vOl.e

000240
0002482
Q00244
0046

00050
0I5
000254
000256
000260
000062

000264
000266
000270
000272
00024

000276
000300
000302
000304
000306

000310
000312
000314
000316
000320
000322
000324
000326
000330
000332
000334
000336
000340
000342
000344
000346
000350
000352
000354
000356
000360
000362
000364
000366
000370
000372
000374
000376
000400
000402
000404
00G406

005032

11
11
GPt14::

17727

000000
004467
000052

GP$15::

177777

000000
1179~v

001052
0000006

GP$16::

1*0771

000000
000143
004052
0000006

GP$17::

177777

000000
000144
002130
000000G
000200
002130
0000006
004000
002130
0000006
040000
002130
0000006

010000
002130
000000G
020000
002130
0000006
100000
002130
0000006
000002
000000C
000000C
001004
002130
0000006
001000
001004
<130
0000006
000004
000003

GP$18::

GPs$19::
GP$20::

GPs2l::

GPs2e2::

GP$C23::
GPse4:
;

$SW1:
$SW2:
$LSWL:

GP$25::
SLSWZ:

GPs26h::

.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD
. WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD

. WORD
.WORD
. WORD
.WORD

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD
.WORD

GPSDISP:;

WORD

<ccLINDSFT

5052
SwQ24
0

Apr-1984
Apr 1984

11:56:01
11:45:02

LSSFTLN>/2>

4467

S2
SWQal
1
0
1

1052

SWQ2
1
0

143

4052

SWQ17

-1
0
144
213C
SWQ1S
200

2130

SWQR20

4000

2130
SKQ23

40000

2130

SWQ21
100G0

2130
SWQR22

20000

2130

SHQ2S
100000

2130
SwQa

e
cccc$LSW1 $SW1>e400>+4>+40>
<<<$LSWS $SW2>0400>
4>
1004

2130
SwWQ19
1000
1004
2130
SWQ7

VAX-11 Bliss 16 v4,0-579
DISKS$USERZ:
[POWERS JZRQADO.BL1 ;6

SEQ 0125
Page

125

(39)

vOl.é

000410
Q00412
000414
000416
000420
000422
000424
000426
0004 30
000432
0004 33
000436
000440
000442
000444
000446
002450
000452
000454
000456
000460
000462

000464
000466
000470

000472
000474
000476
000500
000502
000504
000506
000510
000512
000514
000516
000520

000000
000000
000002
000004
000006
000010
000012
000014
000016
000020
000022

11 Apr-1984
11-Apr-1984

RO/Rx EXERCISER
REPORT CODING SECTION

ZRQAM.

GPs27::

$SW3;
$SW4
:
$SLSW3:
GP$28::

$LSWA:

GP$29::
000100

000000C
000000C
001004
003052
000000G
177777
000000
000025
000000C

001004
006052
000000G

$SWS:;
$SW6
:
$LSWS:
GP$30::

$SW7:
$LSW6:

GP$31::

177777

000001
000020
007222
0000006

177777

000000
177777
000006
001004

000000G
00G000G
000000G
000000G
0000006
0000006
0000006
000000G
000000G
000000G

GPs32::

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD

. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

3
SWM1

2130
SWQ9
20
<cc<$LSW3 $SW3>4400>+4>.40>
<cc$ .SWA $SW4>+400>+4>
1004
2130
SWQ10

1004
2130
SWQ1l
100

<< $LSWS -$SWS5>4400>+4>+40>
0>
<3 SW6 - $SW6>440+4>
1004

3052
SWQ12
-1
0
25

<<c$L.SW7-$5W7>24400>.4>
1004
6052
SWai3
-1
1
20

7222

SY014

$LSW7:
LSNDSFT::
.BLKW

.PSECT

TBL.SUC:. WORD
.WORD

.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD

11:56:01
11:45:02

$OWNS,
NULL

SC.sDI
SC.CON
NULL

SC.0uUP

NULL
NULL

NULL
SC.ONL
NULL

VAX-11 Bliss

16 v4.0 579

DISKSUSER2:
[POWERS JZRQADO.BL 1 ;¥

5EQ 0126
Page 126
(39)

I<TO
RD/RX EXERCISER
RtPORT CODING SECTION

ZRQAM2
vOol.6

000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134
000136

000140
000142
000144
000146
000150
000152

000154
000156
000160
000162
000164
000166
000170
000172
000174

0000006
0000006
000000G
0000006
000000G
0000006
0000006
0000006
0000006
0000006
000000G
0000006
000000G
0000006
0000006
0000006
000000G
0000006
0000006
0000006
000000G
0000006
0000006
0000006
0000006
000000G
000000G
000000G
0000006
000000G
000000G
000000G
0000006
0000006
0000006
000000G
0000006
000000G
000000G
000000G
000000G
000000G
000000G
000000G
000000G
0000006
000000G
000000G
0000006
000000G
0000006
0000006
000000G

11
11

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
TBL.OFL
: .WORD
.WURD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
TBL.MFE: .WORD
.WORD
.WOPD
. WORD
WORD
WORD
.WORD
.WORD
. WORD
.WORD
. WORD
TBL.WPT: .WORD
.WORD
.WORD
TBL.DAT: .WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
WORD

TBL.HST:. WORD
.WORD
. WORD
.WORD
WORD

TBL.CNT:. WORD

.WORD

NULL
NULL
NULL
NULL
NULL
NULL

SC.SON
SC. UNK
SC.vOoL
SC.IOP

NULL

SC.0uP

NULL
NULL
NULL

SC.DIS
SC.FER

NULL

SC.ISH
SC.DST
SC.EC9
SC.576
SC.FCT
SC.ECC
SC.RCT
SC.FUL
SC.EC1

NULL

SC.SwP
SC.HWP
SC.FEC

NULL

SC.ISse
SC.D0Se
SC.EC9

NULL
NULL

SC.ECO
SC.EC1
SC.eCe
SC.EC3
SC.EC4
SC.ECS
SC.EC6
SC.EeC7
SC.EC8

NULL

SC.0DA
SC.008
SC.NXM
SC.PAR
SC.CT0
SC.SDS

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX-11

Bliss-16

v4 .0

579

DISKS$USERZ:
[POWFRS JZRNADO.BL1:%

SEQ 0127
Page

127

(39)

1 10
VOl.6&

000176
000200
000202
000204
000206
000210
000212
000214
000216
000220
000c22

11
11

RD/Rx EXERCISER
REPORT CODING SECTION

ZRQ@AM?
000000G
000000G
0000006
0000006
0000006
0000006
000000G
0000006
0000006
000000G
0000006

.WORD
.WORD

TBL.DRV:
. WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOoBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

.GLOBL
.GLOBL

Apr-1984
Apr 1984

11:56:01
11:45:02

VAX

Bliss

NULL

SC.SRT
SC.SRI
SC.POE
SC.ROY
SC.CLK
SC.RSP
SC.SUR
SC.PSP

CST.ADDR,

DCT,

DCT.ADDR,

RDRX,ADDR

IRDRX.ADDR, BST, TALLY, T.ADDR
OUPPKT, TRK,SGN, RDM.CNT, RANDOM
C.ERR.TBL, MSCP.PKT, IPKT.ADDR
PKT USE,
RP.ADDR,

RETPKT, RP,USE, RP,INDX
ELOG.PKT, BUFF _ADDR, BUFF .OWN

I0OD@, IODQ.IN, IODQ@.OUT, ENTRY.REASON
. FLAGS, CCTLR, CDISK
EOP.FLAG, DUP
CUOFF, CTLR.CNT, DUR, QIO, FREE.MEM.ADDR
BYTS.PER.QIO, ST.CODE, SB.CCRE
STEP, OF .RC, SA.REG, CMD.' ML
NEX, CRN.LOW,
NEXT.PKT. USE,

CLK.PRESENT,

CRN.HIGH, CREULIT.BAL
HOURS, MINUTES, CLK,TICKS

HOE.FLAG,

FORCED.ERROR

FER.LBN, FER.BC, INIT.OCCURED
ADDR.VECT.OK, DBMS5, P.INDEX, S.PATTERN

S.DUPPKT,

DBM107,

DU.MSG,

DU.RSN

RPT1, RPT2, RPT3, RPT4, RPTS5, RPT6
RPT7, RPT8, RPT9, RPT10, RPT11
MSG.01, EGS.01, EBS.O1, €£80.10

EB80.12,
EBD.19,
ELG.00,
xx23,

€EBD.13, EBD.14, EBD.18
EBD.24, ERR.00, ERR.COD
ELG.FMT, EX.TIM, XxX13

XX32,

XX33,

Xx34,

v4,(C

579

DISKS$USER2: [POWERS)ZRQADO.BL1;6

SC.EDC
SC.IDS

CST,

EX.SA

£X.SC, EX.SBO, EX.SB, EX.RP, EX.WRD
.RD, EX.WRT, EX.CHMP
EX.CHD,
EX.ONL,
.ACC, EX.OP, EX.BB, €X.88B1
EX.BBY,
.LBN, EX,.PBN, EX.LBR
EX.LBW,
.RBN, EX.CBC, EX.CBR
EX.CBW,
.BC, EX.BD, EX.BDR, EX.BDW
SC.ONL
SC.SOI,
.CON, SC.OwP
SC.SON,
.UNK.
.I0P
.VOL,
.FER,
SC.DIS,
.FE2,
.ISH
.ECC
SC.IS2.
.DS2,
.0ST,
.RCT,
JFUL,
.576
SC.€eCD,
.EC1
SC.FCT,
.SWP,
JHWP,
.EC3,
SC.eCe,
.ECS
.EC4,
.EC9
SC.eCé,
.EC7,
.EC8,
NXM,
.PAR
SC.0DA,
.008,
SC.CT10,
. IDS
.S0S,
.EDC,

SEQ 0128
Page

128

(39)

MLO
11 Apr 1984
11-Apr-1984

RD/RX EXERCISER
RtPORT CODING SECTION

ZRQAM2
vO0l.6

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLosL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001
000040
000037
000036
000035
000034
000340
000300
000240
000200
000140
000100

BIT15==
BIT14==
BIT13==
BIT12==
BIT1l==
BIT10==
B8IT09==
BITO8==
BIT07==
B8IT06==
BITOS==
BITO4==
BITO3=:=
BIT02==
BITO1==
BITOO==
BIT9==
BIT8==
BIT7=s=
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
BIT1==
BITO==
EF .START==
==
EF ,RESTART
EF .CONTINUE
==
EF .NEWs==
EF .PWR==
PRIO7==
PRIO6==
PRIOS==
PRIOA==
PRIO3==
PRIO2==

SC.SRT,
SC.CLK,
CER.01,
SPACE4,

11:56:01
11:45:02

VAX-11 Bliss 16 v4.0 579
DISK$USERZ2: [POWERS)ZRQADO.BL1 ;6

SC.SRI, SC.POE, SC.RDY
SC.RSP, SC,SUR, SC.PSP
CER.02, CNTR.ERR, RDORX.ERR
CRLF, DASH, ASTERISK, HWQ1

HWQ@2, HWGE3, HWQ4, HWQ5, HWQ6A
HWQ6B, HWQ7A, HW@7B, HWQ@8, HWQR9
HWQ@10, HWQA1l1l, SWQ@1, SW@2, SWQ4

SW@7, SWQR9, SWE10, SW@Ell, SWQle
SW@13, sSw@14, SWQlS, SWQl?7?, SwWQAl9
SW@E20, SWA21, SWRE22, SWQE23, SWQ24
SWQR2S, EH.0, EH.1, EH.2, EH.3
EH.4, EH.5, EH.6, EH.7, EH.8, EH.9
EH.10, EH.12, EH.13, SWM1, NULL
SWP.FLAGS, LS$HIMEM, LSLUN, LSUNIT
-100000

40000

20000
10000

4000

2000
1000

400

200
100
a0
2J
1C
4

2
1
1000

400

200
100

20
10

2
1

37
36

35
34

340
300
240
200
40

1(0

SEQ 0129
Page

129

(39)

N1O
ZRAAM?

11 Apr-1984
11 Apr-1984

RD/RX EXERCISER
REPORT CODING SECTION

vOol1.6

PRIO1==
PRIOO==
EvL==

000040
000000
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

000000
000004
000006
000010
000014
000016
000022
000026
000030
000032
000036
000042
000044
000046
000052
000056
000060
000062
000066
000072
000074
000076
000102

000106
000110

000112
000116
000122
000124
000126

004137
104440

010004
012700
104441
012746
012746
010600
104416
012716
012746
010600
104416
012716
012746
010600
104416
012716
012746
010600
104416
012716
012746
010600
104416
012716
012746
010600
104416
005003

BOE ==

400

IXE==

4000

IBE:==
IER==
LOE==

10000
20000

PNT ==
PRI==

000000G
000001

0000006
000001

000000G
000001

Page

130

(39)

100000
L $HRDLN+2
L$SFTLN.2

.SBTTL
.PSECT

LRPT REPORT CODING SECTION

JSR

R1, $SAVEAL
40
RO,R4
#200,R0
41

TRAP
MOV
MOV
TRAP
MOV

MOV

TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV

000000G
000001

DISK$USERZ: [POWERSJZRGADO.BL1;6

SEG@ 0130

40000

L$SOFT==

0000006
000001

S79

1000
2000

HOE ==
L$HARD
==

000000G
000001

v4.0

100
200

UAMs=
=

000200

ISR==

LRPT:

Bliss

10
20

IDU==

000000G

ADR==

000522

VAX

40
0

LOT=a

100000
000044
000240’

11:56:01
11:45:02

TRAP

MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOv
MOV

TRAP

CLR

$CODES,

MRPT1,

s ,CUR.PRIORITY

(SP)

5086
5103
5104

5106

SP,RO
16

4RPT2,(SP)
81, -(SP)

5107

ORPT3,(SP)
81, (SP)
SP,RO
16
ORPT4,(SP)

5108

SP,RO
16

H Spo‘
5109

SP,RO
16

#RPTS,(SP)
21, (SP)

SP.‘
5110

SP.‘

#RPT6,(SP)

5111

SP.‘

3 CTLR

5113

ZRAAM,
vOl.e

000130
000132
000136
000142
Q00144
000150
000152
000154
000160
00164
000166
000179
000174

000200
000202
000204
000210
000212

000216
000220

000224
000230
000234
000240
000242
000244
000250
000254
000260
000264
000270
000274
000300
000304
000306
000310
000314
000320
000324
000330
00C334
000340
000344

000350
000352
000354
000360
000362

000370
000374
00G37¢
0074l

11
11

RO/Rx EXERCISER
REPORT CODING SECTION

010316
004737
012702

010216
0047387
010201
006301
063701
032711
001535
010316
012746
004737
060200

006 300
062700
010016

062716
111146
042716
013746
012746
012746
010600
104416
013700
016016
016046
016046
016046
016046

000000V
000003
000000V

0000006
040000

000053

0000006

MOV

JSR

1984
1984

11:56:01
11:45:02

VAX-11 Blies

15 v4.0-579

DISKSIUSER? : [POWERS }ZRGADO.BL 1 ;6

58Q 0131

Pege

131

(39)

1 CTLR,»

S116

R2.(SP)

DISK,e

%121

R2,R1
R1

DI,
e

S1c4

1 CTLR,

$129

R3,(5P)
PC,.SET
. CPAR
#3.R2

ET
. UPAR
PC.S
CST.ADDR,R1

940000, R1)

3
R3,(SP)

053, -(SP)
PC.BLIMA
R2.RO
RO

e
s DISK,

#CST,.RO

RO,(SP)

177760

0000006
000000G
000004
000000G
000032
000034
000036

3
32(R0O),(SP)
34(RO), (S
36(RO), (
16(RO), (

5132

(

MmPT8, (5
6, (SP)

SP,RO

16
T.ADOR,RO

40(R0O),(SP
42(RO), (SP)
44(RO), (SP)

016046
016046
016046
012746
012746
010600

T.ADOR,RO

20(R0O),

104416
013700
016016
016046

00504

MOV
JSR

Apr
Apr

000012

012746
012746
010600

104416
013700
005016
116016
005046
116016
00S04¢,
116016

18:

[

,P..

519%

)
)

[]
.

000055
000054

3
0GG60S

55(R0),(SP)
(SP)
S4(RO), (P
(sP)
S53(RO)Y, HP)
(5P

,P..
g ea

Cll
2t RCINER

0l2746
010600
104416
062706
062702
02022~
003624

010316
012746
004737
005726
005760
100026
012716
012746
010600

000602
000604

000610

000€12
000614
000620
000622
000624
2004630

003002
000137
01000
104441
062706
000207

1984

$2(RO),(SP)

000051

MOVER

51(RO),(SP)

~MOve

47(RO),(SP)

CLR

CLR
Move
CLR

000050

CLR
~Ove

MOV

000012

3s:

MOV
TRAP
ADD
ADD
z

BLE

e11,

(SP)

5P RO
16
064 ,5P
012 ,.R2
R2,041

P4)

0126, (SP)
PC.BLSMMA

000002G

CST«2(RO)

MOV

o1,

MOV

R3,RO

CLR

MOve
MOV
MOV
MOV

TRAP

000010
000001

ADD
MOV
MOV
MOV

TRAP

000016

o143

Si4°

S1a8

(sP)

C.ERR.TBL«1(RO),(SP)
(SP)
C.ERR,TBL(RO),(5P)
MRPTLL, (SP)
o3, (SP)
SP,RO
16

10,5P
OCRLF ,(SP)
o1, (SP)
SP,RO
16

MOV

R4 ,RO
41
916,5P
pC

TRAP
ADD
RY,

CTLR,e

S1:8

s DI,

8G?

JHP

S1e’

(SP.
ST
INC
RS
LWORD CiviCLC
000652

‘.D!SK

(SP)

SP,RO

MOVB
CLR

ORPT10,(SP)

MOV
asL

3 9P,

(SP)e

8PL

TRAP

(39,

MRPT9, (SP)

MOV
JSR

000001

>tQ 01%¢
)
oge 13/

(sP)
,
L SP)
46(RO)

000126
000000G

MOV

11:45:02

VAX 11 Blies 16 v4.0 579
DISKS
: [POMERS
ULER.
| ZRGADO . BL L ;6

(SP)
SO(RO)Y,(SP)
(SP)

R3,(SP)

169

11:%:01

(SP)

MOV

116016

000570
000574

Apr

MOove

006300
005016

005046
116016
012746
012746
010600
104416
062706
012716
012746
010600
104416
005726
005203
000243

00005,

104416
010300

000544
000550

1984

1§)

Silaé
S158

3 SF,e
s CTLR

P "
CUR.

e
RITy,

.'n

116016
005046
116016
005046
116016
005046
116016
005046
116016
012746

CODING SECTION

Apr

REPORT

yo 9.

e pe

D11

JRQAM,

RO /Rx EXERCISER

vol.6
i

Rout 'ne Sice:

Max"mum stack

000000
000004
000000

004°3"
104425
00C20~

: Rout'ne Sice:
:

Man mum stack

s15a8

11 Apr 1984 11:56:01

REPORT CODING SECTION

205 words,

depth per

Rout ine Base:

‘nvocat
. on:

000522

4 words,

depih pe-

11 Apr 1984 11:45:02
40 words

LSRPT::

Rout ‘ne Base:

‘nvocat

on:

2 words

$CODES

’209252313;
(39)

. 0522

.SBTTL

LSRPT REPORT CODING SECTION

JSR
TRAP
RTS

$CODES

VAX 11 Bliss 16 v4,0 579

DISKSUSERZ : [POWE RS JZROADO.BL L 36

PC,LRPT
s
PC

1354

;

siss

Ll
IRQAM,

RD/Rx EXERCISER

5i86
5187
5188
5189
5190
5191
5192
5193
5194
5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
S206
5207
5208
5209
5210
S211

Y Y VR TR ooy VT 0 VY VT WY Y VY 5 VY. VY W VY. Y VY VYoo

5175
S176
S177
5178
5179
$180
5181
5182
5183
5184
5185

TN YT VL VL N VYT

5174

ssbtt]l

SECTION

' INITIALIZE

Apr

1984

11:56:01

11:45:02

VAX

Bliss

v4,0 579

DISKSUSERZ: [POWERS JZRQADO.BL1 ;6

5EQ 0134
Page 1124
(4G,

SECTION’

BGNINIT;

local
DELAY
FLAG
tE'p

HWPT

CLEAR

:
M

MLT :
byte,
'ordo

word,

TABLES

REF

ref

SMALLEST DRIVE
HWPT _ADDRESS :

SETPRI
f

block

byte,

[MWPT

LEN,

word]

: byte,
vector [(MAX UNITS,

(PRIO7);

READEF

(EF

field

(HWP

FTELDS),

word];

NEW)

then

INTERRUPTS AL_OWED D.RING

THIS

NEW

THIS

START?

THIS

RESTART?

¢t

THIS

CONTINUE?

PASGS?

begin

ENTRY _REASON
if

not

BIT

TST

NEW_PASS;
(SWP _FLAGS,

then

else

CLEAR

TABLES

FALSE

CLEAR

TABLES

TRUE;

SWF

CST)

end;

1§

READEF

(EF _START)

then

begin

BRESET;
ENTRY_REASON

CLEAR_TABLES

5159
5100
5161
5162
Sles
Si6e4
5165
5166
Sle”
5168
5169
5170
5171
5172
5173

INITIALIZE

LA R JU RV RV LV VLV VIRV RV T VL VL VL VR Y

.-Q-o.n.-.o.o-.o.ooooooo.-.o-o-.ul-.-.-.o.-.o-ln.o-.00.-.0“.0.-“.0..“.'.!...0“..u.c.o“.ou.c.-.o

vol.6

ADDR _VECT _OK
INIT _OCCURED

end;
if

READEF

then

=
=

START;

TRUE;

FALSE;
FALSE;

(EF _RESTART)

begin

ENTRY _REASON

CLEAR_TABLES

end;

i f

READEF

RESTART;

TRUE;

(&F _CONTINUE)

then
begin

ENTRY
if

not

REASON
BIT

TST

CONT;
(SWP

FLAGS,

then

CLEAR

TABLES

- FALSE

SWF

CST)

INIT

bl
RD/RX EXERCISER

ZRQAM?

INITIALIZE SECTION

5234
5235
5236
5237
5238
5239
5240
S241

5242

5243
5244
5245
5246
5247
5248
5249
5250
5251
5252
5253
5254
5255
5256
5257
5258
5259
5260
5261
5262
5263
5264

WWWWNWHNEWNDNVROLDDDPVVNWWELDNRDNVDDVRVRNNNWWD
DD DUWWWWHNWWWNININ W

B¢

V¢

B¢

V¢

S¢

G¢

vol.é

5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230
5231
5232
5233

else

CLEAR

TABLES

Apr

1984

11:56:01

11:45:02

VAX

Bliss

v4.,0 S79

DISKSUSERZ: [POWERS JZRAADO.BL1;6

5EQ 0135
Page 135

(40

TRUE;

end;
i f

READEF

then

(EF _PuWR)

begin
ENTRY _REASON
ADDR VECT _OK

INIT_OCCURED
CLEAR_TABLES
PRINTF

DELAY
DELAY

BREAK ;

HERE

'POWER DELAY

WAIT

BREAF

LARGEST

LOOP

BECAUSE

POWER

FAI_

FALSE;

= FALSE;
= TRUE;

from O

begin

ARF

= PWR _FAIL:;

(MSG_01);

incr COUNT

to 60 do

MULT = 333;
(.DELAY_MUWLT);

APPROX.

FOR

WAITING
60

SECONDS

ACTY

end;
end;

'SETVEC

(O_TVEC,

0 BRK,

PRIO7);

MAKE SURE THAT NOT MORE THAN MAX UNITS HAVE BEEN
IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO

(DIAGNOSTIC
i

_LSUNIT

then

ODT

TRAP

VECTOR

SPECIFIED.
SUPERVISOR,

ABORTED).

gtru MAX_UNITS

begin

ERRSF (1,
OOCLUN;

EGS_01,

EMS 0O1);

ena;

THE FOLLOWING CODE

ALL

RUN

TIME

IS EXECUTED FOR ALL

CONTROLLER

STATUS

TABLES

LOADED WITH CONFIGURATION DATA FROM
if

ENTRY

(CSTs)

REASONS EXCEPT NEW_PASS.
ARE

CLEARED

THE HARDWARE P

7O O,

TABLES.

THEN

_ENTRY_REASON neq NEW_PASS

then

begin
SMALLEST _DORIVE
incr COUNT

(CST
incr

UNIT

255;

from O

.COUNT)

from O

((MAX _CTLR

CS1

LEN

DISK NO.

ALLOWED B>

2 do

0;
(.LSUNIT

THROUGH

ALt

UNITS

Ms(CP

G
ZRQAMY

RD/RX EXERCISER

vol.6
H

5265

INITIALIZE SECTION

3
:
H
3
H
3
H

Sc06
5267
5268
5269
S270
52”71
S

3
3
3
3
3
3
3

Sc74

5273

5275

:
:

527
5278

4
4

5280

5276

S279

5284
5285

5288

Se89

H
H
:

5297
5298
5299

H
H
H
:
:
:

S301
5302
5303
5304
5305
5306

:
:

4
4

5290
S291
5292
5293
5294
2295

5286
5287

:
:
H
H
5
:
H

5283

H
:

3
:

5282

5281

296

5300

5307
gggg

VAX

lssu

11 Blies

16 V4,0 579

DISKSUSERZ: [POWERS JZRQADO.BL1;: K

HWPT REF)) neqa O

.SMALLEST DRIVE

5EQ 0136
Page 136

! FIND QUT

TrF SMALLESTY DISK NUMBER

_HWPT _REF (MHWP DISK NUM];

1) do

! LOCP THROUGH AL. UNITS

HWPT REF =

IF HWP TABLE FOUND

_HWPT_ADDRESS [.UNIT];

incr CTLR from O to (MAX CTLR
if

.CST [.CTLR,

then

“f

1) do

! LOOP THROUGH ALL CSTs

IP_ADDR]) eqla .HWPT REF [HWP IP ADDR)

.CST [.CTLR, (.HWPT REF [{MHWP DISK NUM]
.SMALLEST DRIVE)
¢« OF UN + OF DATA, D_PRES] eql NOT _PRESENT

then

begin

& UNIT_SIZE
!

IF EMPTY

SLOT FOUND

TEMP = ( HWPT_REF [HWP _DISK NUM] - _SMALLEST _ODRIVE) & UNIT _SIZE . OF _IN;
CST (.CTLR, .TEMP + OF DATA, D ALL] = .HWPT REF (HWP DISK];
' COPY DISK ADDR AND PRQOT BIT
CST [.CTLR, .TEMP + OF DATA, D UNIT] = _UNIT;
CST {.CTLR, .TEMP .+ OF DATA, D_FATAL]) = FALSE;
CST [.CTLR, .TEMP . OF DATA, D PRES]) = PRESGENT;

CsT

CST
CSYT

CST

[(.CTLR, .TEMP . OF BEG, D_BEGO) .HWPT _REF [HWP BEG TRK];
[.CTLR, .TEMP . OF BEG1, D BEGL) LHWPT REF

([HWP BEG

[.CTLR,

[.CTLR,
NOT

CST

.TEMP

. OF DUPFLAGS,

.TEMP . OF
(.HWPT REF

02222
0222

TRK1];

[.CTLR, .TEMP . OF END, D ENDO)
LHWPT REF [HWP END TR ];
(.CTLR, .TEMP . OF END1, D END1]
LHWPT _RE+ [HWP END TRK1];

1222

0222
2222
0222
0227

D DBN]

= 0O;

DUPFLAGS, NODUPMEDIA)
[HWP DISK DUPEX]);

[.CTLR, .TEMP . OF DUPFLAGS, DUPWRITE] =
(.HWPT REF [HWP DISK DUPWT});
CST {.CTLR, .TEMP . OF COUNT, D COUNT] = Q;
FLAG = FOUND;
ex tloop;
else

0222

0222
1222

1222
01222
2222

end

beg'n

(40,

IF HWP TABLE FOUND

beg'n
FLAG = NOT FOUND;

S
g

11:56:01

iF .HWPT ADDRESS [.UNIT]) nega O

then

CST

incr UNIT from O to (.1 SUNIT

S
S
S
S
S
S

5317

SMALLEST DRIVE

5316

= GPHARD (.UNIT,

[HWP DISK NUM]

¢St

i f .HWPT REF
then

S
S
S

S
S
S
S
S

5315

F (HWPT ADDRESS [.UNIT]
then

5310
5311
5312
5313
5314

Apr-1984

11 Apr 1984 11:45:02

S
S
S
S
S
S

:
H
H
H
:

! DUPLICATE UNIT

1
ZRAAM.

RD/RXx EXERCISER

INITIALIZE

SECTYION
PRINTF

DUR

(CER O1,

[.UNIT]

.HWPT

REF

([HWP

DISK

11:56:01

11:45:02

NUM],

3EQ 0137

VAX-11 Bliss 16 V4.0 579

DISKSUSER2:
[ POWERS JZRQADO.BL1 ;6

.HMWPT REF

= DU CONF;

DODU (. UNIT),

FLAG

FOUND;

[HWP IP_ADDR]);
!
¢
!

"DUPLICATE UNIT: X AT
CONF IGURATION ERROR

DROP UNITY

LOOP

IF EMPTY

IP:

(40)
XxAxyrs-

exitloop;
end;

FLAG eql

then

NOT

FOUND

IP MATCH

TO EXISTING CST

begin
incr

CTLR

from O

.CST

[.CTLR,

(MAX

CTLR

IP_ADDR]

eqla O

then

THROUGH EACH CST

CST FOUND

IP_ADDR] = ._HWPT REF (HWP IP ADDOR]:
VEC_AODR]) = .HWPT RiF [HWP VECTOR];
BR_LEV) = .HWPT _REF [MWP_BR_LEVEL];
TeMP = ( HWPT _REF [HWP _DISK_NUM]
.SMALLEST DRIVE) e UNIT SIZE . OF _UN;
CST [.CTLR, .TEMP . OF DATA, D ALL] = .HWPT _REF [HWP DISK];
! COPr DISK ADDR AND PROT BIT
CST [.CTLR, .TEMP . OF DATA, D_UNIT ] = JUNIT;

CST
CST
CST

[.CTLR,
[.CTLR,
[.CTLR,

CST

[.CTLR,

.HWPT _REF

CST

{.CTLR, .TEMP . OF BEG, D BEGO) =
.HWPT REF [HWP _BEG_TRK];
[.CTLR, .TEMP .+ OF BEGl, D BEG1] =
.HuPT REF [(MWP BEG_TRK1]);
(.CTLR, .TEMP . OF END, D ENDO] =

1222
1222
0222
2222
0222

CST

{.CTLR, .TeTMMP . OF END1, D_END1l])
.HWPT REF [HWP END TRK1];

1222
0222

CST
CST

[.CTLR,
[.CTLR,

CST

[.CTLR, .TEMP . OF DUPFLAGS, DUPWRITE] =
(.HWPT REF [HWP DISK DUPWT]));
[.CTLR, .TEMP . OF COUNT, D COUNT] = O;

CST

[.CTLR,

.TEMP

THEN HWPT_REF

5342
5343
5344
5345
5346
5347
5348
5349
S35¢
53¢
535¢
5353
5354
5355
5356

1984
1984

begin

5318
5219
5320
5321
5322
5323
5324
5325
5326
S327
5328
5329
5330
5331
5332
5333
5334
S335
5336
5337
5338
5339
5340
5341

VVIVIVIVINSG L LADNNITVNANWN

vol.6

Apr
Apr

11
11

CST

(.HWPT

exitloop;

end;
if

FLAG

beg'n

eql

NOT

REF

FOUND

[HWP

.
.

D FATAL)

OF DATA,

(HWP END

.TEMP
.TEMP

FLAG = FOUND;

then

OF DATA,

[HWP ENTIRF]

JHWPT

NOT

D PRES)

EQL

TRK]

END

[HWP

TRUE

TRK];

FALSE;

1222 1IF DEFAULT TFST RANGE,
1222 MAKE HI ADDR ALL ONES

ALL _ONES;

OF DUPFLAGS,
OF DUPFLAGS,

REF

= PRESENT;

1222

D_DBN] = 0;
NODUPMEDIA])
DUPEX));

1222
222
1222
1222
1222

222

IF EMPTY

CST FOUND

IF NO EMPTY

CST FOUND

[
RD/RX EXERCISER

ZRQAM?

INITIALIZE SECTION

5386
5387
53588
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5400
5401
5402
5403
5404
5405
5406
5407
5408
5409
5410
5411
5412
5413

5414

5415
5416
5417
5418
5419
5420
-P
5422
5423

AR VMMM WNNWNNENNNNNNRDUNVVNND
DD DDDUWWNWWHNHNNNRINWHNNWNDDNNGR T D

vol1.6

S371
53
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385

11 Apr 1984

11:56:01

11 Rpr 1984 11:45:02

PRINTF

(CER 02,

5EGQ 0138

VAX 11 Bliss 16 v4,0 579

DISKS$USERZ2: [POWERS JZRQADO.BL1;:6

MAX CTLR);

DUR [.UNIT] = DU CONF;
DODL ( .UNIT);

“MORE

THAN X

IF NO IP ADDR MATCH IN CST

I[F GPHARD RE

Page 138

(40)

IP ADDRESSES.”

! CONFIGURATION ERROR
! DROP UNIT

end;

end;
end;

JRNS A HWP TABLE

! CONFIGURATON CHECK FOR LEGAL RDRX UNIT MIX BECAUSE wt HAVE DIFFERENT
'
!

[}

DRIVES :
(NEEDED?)

THE RDS1,

RD52,

AND RXS0.

end;
i

! END OF “NON NEW_PASS” INIT

.ENTRY _REASON eql

tnen

NEW PASS

begin

‘ner UNIT

from O

(.LSUNIT

incr CTLR

from O

(MAX_CTLR

GPHARD ( .UNIT, HWPT REF);

1) do

be?in

CST

! DUMMY GPHARDs FOR NEw PASS

! REINITIALIZE UNIT COUNT

[ .CTLR, U CNT] = 0;

incr OFFSET from (0 + OF UN) to ((UNITS_PER CNTR
1) « UNIT_SIZE
CST [.CTLR, .OFFSET + OF DATA, D STAT] = QOFFLINE:;

+» OF UN) by UNIT_SIZE do
! START EACH UNIT AS OFFLINE

end;
end;

"fF

.ENTRY REASON eql

then

START

begin

! NUMBER OF CONFIGURED CONTRCLLERS

CTLR_CNT = 0O;
incr

CTLR

from O

(MAX_CTLR

if .CST [.CTLR, IP ADDR] neqa O

! IF CONTROLLER IS PRESENT

CTLR_CNT = _CTLR_CNY . 1;

! INCREMENT CONTROLLER CONT

then

MEMORY (FREE MEM ADOR):

' GET START QF FREE MEMORY

end;

Y END OF *START

INITIALTIZATION

CLEAR STATISTICS TABLES

‘necr NITS from O to MAX UNITS

1 do

! CLEAR CURRENT &Tarmis"IZS

ZRQAM,.

INITIALIZE

5428
5429
5430
5431
5432
5433

5434
5435
5436
5437
5438
5439
5440
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
5453

5455
5456
5457
5458
5459

000000
000004
000010
000014
000016
000022
000024
000026
000034
000040
000042

=DV
WENNDDND DV
NN

VvOl.6

5424
OB
5426

11
11

RD/RX EXERCISER

004137
162706
012700
104441
012700
104447
103014
112737
105737
100403
105066

SECTION

incr COUNT from O to TALLY CLEAR
1 do
TALLY [ .UNITS « TALLY LEN + _COUNT]
*f

.CLEAR

then

11:56:01
11:45:02

VAX-11 Bliss-16 v4.0-579
DISKSUSERZ:
{ POWERS ]ZRQADO.BL1;:6

5EQ 0139
Page

139

(40)

incr UNITS from O to MAX_UNITS
1 do
incr COUNT from TALLY_CLEAR to TALLY LEN
TALLY [.UNITS & TALLY LEN » COUNT] =

incr

1984
1984

TABLES

.CLEAR

then

Apr
Apr

CLEAR

TABLES ON EVERY

PASS

INITIALIZE

INITALIZE

INIT NO.

INITIALIZE RETURN PACKET POOL

STOP CLOCK

¢
¢
!

INIT I/0 DONE QUEUE POINTERS
INIT COMMAND REFERENCE NUMBER
SET PROGRAM PRIORITY TO O

TOTALS

TABLES

CTLR

from O

to MAX_CTLR

begin

C_ERR
C_ERR

end;

TBL
TBL

[.CTLR,
[.CTLR,

C_ERR_HRD]
C ERR SFT)

=
=

CONTROLLER ERRORS

MISCELLANEOUS

incr

CTLR

from

QIC [.CTLR]
incr

1§

COUNT
RP_USE

INITIALIZATON

(MAX_CTLR

1) do

= 0;

from O to (RP CNT
[.COUNT]) =
1;

CLK_PRESENT

then

LINE _CLOCK

QUTSTANDING GIOs

IF PRESENT

IODG@_IN = I0DQ_OUT
CRN_LOW = CRN HIGH
SETPRI (PRIOO);

=
=

O;
O;

ENDINIT;

0000006
000030
000340

000035
000005
000000G
000000G
000010

LINIT:

.GLOBL

L$DLY

.SBTTL

LINIT

JSR
SuB
MOV
TRAP

MOV

INITIALIZE

R1,$SAVES
©30,5P
#340,R0
a1

#35,R0

TRAP

BHIS
MOVB
1518
8MI
CLR8

a$
5 ,ENTRY _REASON
SWP .FLAGS
1
10(SP)

SECTION

515

5172

5174

H
H

5177
5179

CLEAR, TABLES

5181

K11
RD/RX EXERCISER
INITIALIZE SECTION

ZRQAM2
vol.6
000046
000050
000056
000062
000064
000066
000070
000076
000104
000110
000114
000120
000122
000124
000132
000140
000144
000146
000150
000156
000162
000164
000170
000172
000200
000204
000206
000210
000216
000222

000226
000234

000240
000244
000246
000250
000254
000260
000262
000264
000270
000272
000276
000300
000302
000304
000306
000310
000312
000314
000316
000324
000326

000403
112766
012700
104447
103013
104433
112737
112766
105037
105037
212700
104447
103006
112737
112766
012700
104447
103014
112737
105737
100403
105066
000403
112766
012700
104447
103043
112737
105037
105037
112766

012746
012746
010600
104417
012702
012703
010301
001411
013700

001404
005066
005300
001374
005301
000766
104422
005302
001360

022626
023727

101405
104454

000001
000040

000010

000000G
000001
000001
000010
000000G
0000006
000037

000002
000001
000036

000000G
000010

11-Apr 1984
11 Apr-1984
1¢:
2$:

3s:

000010

0000006

000022

MOV
TRAP

MOVB
MOVB
MOV
TRAP

B8MI
CLRB

Ss:

6$:

MOVB
MOV
TRAP

BHIS

MOVB

CLRB
CLRB

7%:

8%:

9s:

10s:
118:

000000G 000004

CLRB
CLRB

BHIS

000004
0000006
0000006
0000006
000001
000010
0000006
000001

000075
000515

MOV8
1578

000010

12$:

#1,10(SP)
440 ,R0O

BHIS

BHIS
43
;

TRAP
MOVB
MOvVB

000003
0000006
0000006

000001
000034

MOVB
MOV
TRAP

MOVB
MOV
MOV
MOV
TRAP
MOV
MOV
MOV

8EQ

MOV

BEQ
CLR
DEC
BNE
DEC
TRAP
OEC
BNE
cMP

cHP
8LOS
TRAP

01 ,ENTRY ,REASON
21,10(5P)
ADDR
. VECT . 0K

11:56:01
11:45:02

VAX-11

;

H
H

1,10(SP)

;

6$
43 ,ENTRY _REASON
SWP
. FLAGS

01,10(SP)
034,R0
a7

128

24 [ENTRY .REASON
ADDR. VECT . OK

INIT,OCCURED

81,10(SP)
oMSG,
01, -(SP)
01,-(SP)
SP.RO

075,R2

0515,R3

R3,R1
118
L$DLY,RO

103
22(SP)

RO
9s
R1
8s
22
R2
78

(SP)+,(SP).

24
LSUNIT,
138
54

V4.0-579

¢»,CLEAR,TABLES

INIT.GCCURED

DISKS$USER?2 : [POWERS ]ZRQADO.BL1;:5

:
:
H

#37,RO
47
44
92 ,ENTRY ,REASON

]

Bliss

5EQ 0140
Page

140

(40)

5179

5183

5187

«,CLEAR,TABLES

»,CLEAR.TABLES

5189
S191

S192

5193
5194
5197
5200
5201

5204

5207

5209

CLEAR.TABLES

5211

;:
:

«,CLEAR,TABLES

5213
5217

;

5220

5221

;

Seee

¢« ,CLEAR,TABLES
SP,e

;:
:

¢,COUNT
»,DELAY MULT

¢,88TMPL

DELAY MULT,$$TMP?2

SSTMP

$STMPIL

$STMP?2

COUNT

:
H

5223
5224

;

5209

5226
Sc28

5229

S220

5219
8243

INITIALIZE SECTION

vOol.6

000330
000332
000334
000336
00340
000346
000350
000354
000362
000364
000370
000374
000400
000402
000406
000410

000412
0CJ414
000416
000422
000424
000426
000430
000432
000434
000436
000440
000442
000446
000452
000456
000460
000462
000466
000472
000476
000502
000504
000506
000510
000516
000520
000524
000526
000530
000534
000536
000540
000542
000544
000550
000554
000556

11-Apr-1984
11-Apr 1984

RD/RX EXERCISER

ZRQAM?
000001
0000006
000000V
104444

123727
001002
000137
112766
005000
005060

062700
020027
003771
013704
005003
000435
010302
006302
012700
060600
060002
010300
104442
010001
010112
001421
005002
156602
116100
042700
020002
103010
116100
042700
105066
050066
005203
020304
002741
013766
005004
000137
010400
006300
012703
060603
060300
005710
001002
000137
105066
011001
005016

000000G 000005

13$:

003362
000377

144
:

000006

0000006
000002
000124

15$:

.WORD
.WORD
. WORD

1
£GS.01
EMS.01

cMPB
BNE
JMP

ENTRY REASON, 45

TRAP

MOvB

CLR
CLR
ADD

cMP
BLE
MOV

0000006
16$:

CLR
BR

MOV
ASL

MOV

000020

ADD

ADD
MOV
TRAP

MOV
MOV

BEQ
CLR
B8ISB

000006
000006
177760

000006
177760
000006
000006

MOVB

17¢:
18¢:

003340’

19%:
000020

20$:

144
41
9377,6(SP)
RO

CST(RO)

42 ,R0O
RO, %124

15%
R4
LSUNIT
R3

184
R3,R2
Re
420,R0
SP,RO
RO,R2
R3.RO
42
RO,R1

R1,(R2)
174

6(SP),R2
6(R1),RO

BNE
JMP
CLRB

CLR

(SP)

CLR
JMP

MOV
ASL
MOV
ADD
ADD
IST

MOV

VAX-11 Bliss-16 v4,0 579

DISKSUSER2: [POWERS JZRQADO.BL1 ;K

SEQ 0141
Page 141

(40)

€177760,RO
RO,Re
17$
6(R1),RO
#177760,R0
6(SP)
RO,6(SP)
R3
R3,R4
16¢
LS$UNIT,14(SP)
R4
394
R4 ,RO
RO
#20,R3
SP,R3
R3,RO
(RO)
20§
384
4(SP)

MOV

000000G 000014

003336
000004

8IC
cMP
BHIS
MOVB
BIC
CLRB
BIS
INC
cMP
BLT

11:56:01
11:45:02

(RO),R1

H
:

:
:
;

;

5256
&«,SMALLEST.DRIVE

5259

COUNT
s(COUNT)
s, COUMT

5261
5262
5261

s
COUNT,

;

5264

UNIT

UNIT,»

HWPT, ADDRESS, »

;

UNIT,»

;

«,HWPT _REF

;

HWPT _REF ,»

;
:

SMALLEST.DRIVE,*
¢(HWPT REF),»

;

s(HWPT REF),s

SMALLEST.DRIVE

5266

S269

5271

*,SMALLEST.DRIVE

¢ UNIT

5c64

5273

: WITa.
:

UNIT

UNIT,»

HWPT _ADDRESS,

:
:

FLAG
* HWPT REF

;

CTLR

5275

5278
5279

5281

M11
INITIALIZE SECTION

vOol1.6

000560

000562
000566
000572
000574
000600
000602
000606
000614
000622
000626
000630
000632
000636
000640
000644
000646
000652
000656
000662
000664
000666
000672
000676
000700
000702
000706
000710
000716
000720
000724
000730
000732
000734
000736
000742
000744
000746
000750
000754
000760
000762
000766
000772
000774
000776
001000
001006
001010
001012
001014
001022
001024

11-Apr 1984
11-Apr-1984

RD/RX EXERCISER

ZRQAM?2
011646
012746
004737
022626
026011
001402
000137
012766
112766
012705
060105
111546
042716
005000
156600
160016
012746
004737
010066
022626
011646
012746
004737
010003
022626
066600
006300
032760

001121
016602
062702
010300
060200
006300
062700
011510
010446
000316
042716
042710
052610
042710
052710
010300
060200
0063C0
016160
010300
060200
006300
016160
010300
060200

218

000126
0000006
0010006
002612

000001

000001
000006

000012

000004

JSR
cMP
CMP
BEQ
JMP
MOV

MOVB
MOV
ADD
MOvVB

BIC
CLR
8ISB

177760
000010

CMP

ADD
ASL

0000066

000002
000003

BIV
BNE
MOV

ADD
MOV

ADD

ASL
ADD
MOV
MOV

0000006

SWAB
BIC
8IC
BIS
8IC
8IS

170377
007400
010000
040000

000010

000012

000002G

000004G

228
274
01,12(SP)
21,4(SP)
26 ,R5
R1,RS

(RS),

MOV
ADD
ASL
MOV
MOV
ADD
ASL
MOV
MOV
ADD

16 v4,0 579

DISK$USERZ2: (POWERS]IZRQADO.BL1:6
»
CTLR,

SEQ 0142
Page

142
(40)

5283

HWPT

REF

« FLAG

HWPT .REF , »

5313
5286

(SP)

#177760,.(SP)
RO

10(SP),RO

SMALLEST.DRIVE,
»

(SP)+,(SP)»
(sP), -(sP)

CTLR,+

5287

s, TEMP

5290

453, -(SP)

JSR

000002

(SP)+,(SP).
CST(RO),(R1)

MOV
MOV
MOV

VAX-11 Bliss

PC,BLS$MUL

MOV

cMpP

000053
0000006

(SP), -(SP)

RO, (SP)
212, -(SP)
PC,BLSMUL
RO,6(SP)

MOV
JSR

000012
0000006
000006

040000

22%:

MOV
MOV

11:56:01
11:45:02

PC,BL $MUL
RO,R3

(SP)+,(SP)+
2(SP).RO

RO
#40000,CST+6(RO)

264

2(SP),R2

93,R2
R3,RO
R2,RO
RO

«, TEMP

R4, -(SP)

UNIT,»

oCST,RO
(RS),(RO)
(SP)

5291

«
TEMP,

#170377,(SP)
©7400,(RO)

(SP)+,(RC)

€10000, (RO)
940000, (RO)
R3,RO
R2,RO
RO

10(R1),CST+2(RO)

R3,RO
R2,RO
RO

12(R1),CST+4(RO)

R3,RO
R2,RO

5294
5295
529"
TEMP,
»
«(HW
REF
PT
),

s
TEMP,
REF ),
s(HWPT

«
TEMP,

5299

5301

ZRQAM.2

RD/RX EXERCISER

vOol.6

INITIALIZE

001026
001030
001036
001040
001042
001044
001052
001054
001056
001060
001064
001066
001070
001072
001100
001102
001104
001106
001110
001114
001116
001120
001124
001126
001130
001134
001140
001142
001146
001150
001152
001154
001160
001162
001164
001166
001172
001176
001202
001204
001206
001212
001220
001222
001224
001226
001230

001232
001234
001240
001244
001246

006300

016160
010300
060200

006300
016160
010300
060200
006300
062700
105010
111546
005046
032766
001401
005216
005116
011646
042710
006026
103002
052710
005726
111516
042710
032726
001402
052710
010300
060200

006300
005060
000427
011146

111546
042716
012746
012746
010600
104417
062706
112764
010400
104451
000405
005216
000243
003002
000137
105766
001402
000137

000014

000016

11-Apr-1984
11-Apr-1984

SECTION
ASL
MOV
MOV
ADD
ASL
MOV
MOV
ADD
ASL
ADD

0V0006G

000010G

0000206

CLRB

MOvVB

000040

000002

23s:

100000

MOV

8IC
ROR

100000

010000
000100
010000

25s:

000022G
26%:

177760

8CC
BIS

TSY
MOVB

8IC
BIT
8eEqQ
8IS
MOV
ADD
ASL

CLR
BR

MOV
TRAP

002144
000004

003336

28s$:

R2,RO
RO

16(R1),CST+10(RO)

R3,RO
R2,RO
RO

(RO)
(RS), (SP)
(SP)

TS718
8EQ
JMP

DISKS$USERZ: [POWERS 1ZRQADO.BL1;:6

Page

143

(40)

¢(HWPT REF),

:
:
:

TEMP,»

s(HWPT REF),»

TEMP,»

SEQ 0143

5303

5306

5308

5310

#40,2(SP)

23
(sP)
(sP)
(sP),-(3P)
4100000,(RO)
(SP)+
24
#100000,(RO)
(SP)«
(R5),(SP)
210000, (RO)
€100,(SP)
.
25
410000,(RO)
R3,RO
R2,RO
RO

5312

TEMP,»

5289

;

HWPT REF ,»

SP.RO
17

SP.»s

01,0UR(R4Y)
R4,RO

; ¢,s(UNIT)

5320

H
: CTLR

5317
5281

8320

2177760,(SP )
oCER.01, (S P)
43,-(SP)

€10,5P

51
B8R
284
TMC
(5P)
.WORD CLV!CLC

BGT
JMP

v4,.0-579

&CST+20,.RO

MOV
MOV
MOV
TRAP
ADD

27s:

14(R1),CST+6(RO)

R3,RO

MOV
MOVB

MOVB

0000006

VAX-11 Bliss-16

CST+22(RO)
28s
(R1),-(SP)
(R5), -(SP)

8IC

0000006
000003

000010
000001

CLR
BIV
BEQ
INC
CoM

11:56:01
11:45:02

28
21
4(SP)
29
384

: UNIT,»

FLAG

5318

5321

B1o
INITIALIZE SECTION

042710

052610
042710

052710
105715

100003
012761
010300
060200
006300
016160
010300
060200
006300
016160
010%00

(SP).,(SP).
CST(RO)

#177000,R3

CTLR

§
;1

HWPT _REF Lo
o(HWPT
REF ), 0

5335
5336

O(HHPY,“E‘ ).0

HWPT _REF e

SMAL . EST DRIVE,
e

CTLR,.

5330
532

(RE), -(SP)

7760

0177760,(SP)
RO

10(SP),RO

000010

RO.(SP)

02, (SP)
PC,BLSMA
(SP)

000012
0000006

RO,R2
#3,R2

000003
000014
000053

14(SP),(SP)

058,

(SP)

we L

R3,CST+2(RO)
4(R1),CST+4(RO)
#6,RS
R1,RS

0000026
000004
00000406

o, TEMP

C.YEW

CTLR,.

5339

PC,BLSMN

000000G

RO,RS
(SP).
R2,RO
RO

oCST ,RC
(RS),(RO)

0000006

5341

R4, (SP)

(SP)

170377

0170277,(5P)

007400

97400,(RO)

(SP)e,(RO)

010000
040000

177777

144
(40)

0777,CS1.2(RO)

0000026

010416

042716

35¢

016103
042703

000316

12(SP)

(R1),CST(RO)
2(R1),R3

011160

042760
050360
116160
012705
060105
111546
042716
005000
156600
160016
012746
004737
005726
010002
062702
016616
012746
00473%?
010003
005726
060200
006300
062700
011510

CLR

MOV
MOV
JSR

Page

5342
5343
5345

010000, (R0)
040000, (RO

(RS)
351

000C14
31%:

e 1,14(R1)
R, RO

e, e (HPT
RES

R, RO

o
TEMP,

10(R1),CST+2(RO)

s MWPT
REF D0

o
TEMP

o HwWPT
REF Y o

S3d6
s342

000010

000012

0000026

000004G

R3,RO
R2,RO
RO

12(R1),CT.4(R0)

001432
001434
001436
001440
001444
001450
001452
001456
001462
001464
001466
001474
001476
001500
001502
001510
001512
001514
001%1¢
0Gi5%4

294
;
30%:

360 0144

001424
001426

000012
000012
000126

VAX 11 Blises 16 v4,0 579
DISKSUSER?
: [POWERS JZRQADO.BLY ;A

‘2

001412

001416
001420
001422

0050066
016646
012746
004737
022626
005760
001174

11:°%:01
11:45:02

vol.e

00125¢
001256
001262
001266
001272
001274
001300
00130¢c
001306
001312
001316
001324
001330
001336
001342
001344
001346
001352
001354
001360
001362
001366
001372
001374
001376
001402
001406

11 Apr 1984
11 Apr-1984

RD/Rx EXERCISER

ZRQAM?

T
QTR

Cle
RO Ax ¢ xERCISER

ADD
ASL

0000206

328

100000
100000

001732

001734
001742
001744
001746
00175¢
001724

33%.

010000
000100
010000

1127¢6

000410

005266
000248

003002
000137
105766
001017
012746

012746
012746
010600
104417
112764
010400
104451
062706
005¢04
2046¢€

348
:

0009226
000001
000004
000012

002642
000004

000001
0000000
000002

000000G

000006
000014

LI X
39
:

o
TEMP

o(mi
REF
PT
),

e
TEMP

16(R1),C5T+10(RO)

oCST1.20,RO

MOVB

(RS),

(PO)

(SP)
040,2(5P)
328
(sP)
(SP)
(sP), (SP)
#100000, (RO
(SP).
33
#100000,(RO)
(SP).

8IC
BIT
8EQ

#10000,(RO)
€100,(SP).,
348

“Ov

R3 RO

MCcve

8IS

ADD

(40)

o (HP
REF T
), o

(SP»

CLR
.30
BEQ
INC
coM
MOV
8IC
ROR
8CC
81s
TSTY

S347

(RS),(SP)

S3e1

010000, (RO)

$3»3

TEMP
o

o1 ,4(S5P)

¢ FLAG

INC

12(5P)

8GT
P

364
30
s

FLAG

[

bpo‘

3
1

e, e(UN[T®
UNIT
e

IUNLT

R2.RO

ASL
CLR

RO
CST422(RO)

.WORD CLV!CLC

1878

4(SP)

BNE

589

MOV

el,

MOV
MOv

oCER. 02, (4“P)
o,, (SP)

TRAP
MOv8
MOv
TRAP
ACD
INC
cMe

1°
81,0k
R4 ,RO

MOV

000001

ADD

~m0v8
158

R2,RO
RO

RS
. RO
R2 RO
RO

CLRB

000002

;

MOV
ADD
ASL

145

000040

001650
001652
001654
001656

001700
001702
001706
oo1712
001714
001720
001724
001730

MOV

0000106

Pege

o
TEMP,

R2,.RO
RO

14(R1),C5T1.6(RO)
R3,.RO

580 _014%

AN
fom

000010

001616
001620
ocl1622
001626
001530
001632
001636
001642
OCl1644

001662
001670
00172
001676

MOV
MOV

0000006

VAX 11 Bliss 15 v4.0 579
DISKSU
: [POMERS JZRGADO
SER
.BL Y
) ;6

S364
S3%
5330

(SP)

“P,RO

51
o, 5P
R4
R4, 14

RG)

,P)

UNIT,
e

wt,

000014

001540
N1542
001544
001546
001554
001556
001560
001562
001560
0015°0
001572
0015°4
001602
001604
001606
001610
001612

11:5%6:01
11:4%:0°2

ADD
ASL

1984
1984

001526
0015%0
01582

SECTION

Apr
Apr

INITIALIJZE

11
11

JRIANM,
vil.e

D1
IR

RO Rx

vol.e

INTTIALIZE

001774

Q01776
002002
002004
002006
002010
002012
002014
002016

002020
002022
002024

002026
002032
002036
002042
002044
002050
002054
002060
002062
002064
002066
002074
00210C
002104
002106
002112
002114

002116
002120
002126
002130

002002
000187
123727
001051
013704
005003
000404

020127
C03765
CE2706

005203
000243

002144
002150
002154

003742
12372~
001017
005037
005000
005760
001402
005237
062700
000243

002156
002160
002162
002166
002170
002172
002174
002176
002200

003767
104431
010037
005001
005003
010300
060100
00¢€ %00
005060

002134
002136
0C2142

SECTION

002110
000000G 000005
000000G

40%:

414

010300

104447
010001
005203
020304
002772
005003
010346
012746
004757
105060
010316
012746
004737
012701
010002
060102
006302
042762
062701

4’4

43s
.

44
.

000126
000000G

0000056

BGE
JMP

40
198

BNE
MOV

464
R4
LSUNIT

cCMPR

R3
43¢
R3,RO

INC

45%

MOV
ADD
ASL

020000
000012
000041

BIC

0000006

ADD

000000G 000001

000000G

0000006
000126

47%:

48s:

,e
OFFSET

5337
S398

020000,CST(R?)
012,R1

454

49%;

5Cs:

51¢:

494

CLR

5395

0126 ,RO

R1
R3

R3,RO
R1.RO
RO

TALL Y(RO)

5394

5393

CILR

5407
5409

¢, CTLR

5413
5409

o(CTLR)

47
31

RO,FRFE ,MEM_ ADDR

5397

5404

REASON, 21

.WORD CLV!CLC

MOV
ADD
ASL

¢ ,OFFSET
,
OFFSET

aat

CILR.CNT
RO
CST(RO)
483
CTLR.CNT

CLR
CLR

CTLR,

CTLR

CLR
CLR
ST

MOV

UNIT
o

ENTRY

8LE
TRAP

000000G

0000006

¢ ,OFFSET

cMPB

ADD

e ,MuPT _REF

o3 ,R1

06 ,5P

8EQ
INC

5391

RO,R2
R1,R2

PC.BL$MUL

ADD

B8ME

5390

5398

R1,041

BLE

UNIT

CTLR,»

INC
R3
.WORD CLV!CLC

464
:

S384

R3,(SP)
853, (SP)

R3, (SP)
0126, (SP)

(o)

BLE

000006

145
(40,

5333

PC.BLSMUL
CST+S(RO)

JSR

Page

CTLR

JSR
CLRB

MOV

5EN 0145

5390

' ¥1]
R3

000003

11:45:02

VAX 11 Blies 15 v4.0 579
DISKS
: [POWERS
USER?
]1ZRQADO.BL 1 ;6

UNIT

sLT
CLR

MOV
MOV

11:56:01

e
UNIT

R3,R4

000053

1984

4?2
RO,R1

cHe

MOV
MOV

Apr

1964

ENTRY ,REASON, 05

CLR
BR
MOV

TRAP
MOV

Apr

e
we oo

Q1 60
001760
01 oo

EXERCISER

5411

5415
UNITS
COUNT
, o
COUNT
e
UNITS,

3403
24

54,5

F 1o
ZRQAAM.

RD/Rx

INITIALIZE

vOl.e

002204
002206
002212
002214
002220
002224
002226
002234
002236
002240
002244
002246
002250
002252
002256
002260
002264
002266
002272
002276
002300
002306
002310
002312
002316
002322
002326

005203
020327
003767
062701
020127
003761
032766
001436
005001
012703
010300
060100
006300
005060
005203
020327
003767
062701
020127
003760
032766
001411
005000
105060
105060
062700
000243

002330
002332
002334
002340
002342

003770
005000
105060
005200
000243

002344
002346
002350
002356
002360
002364
002366
002374
002376
002402
002406
002412
002416
002422
002424
002426
002432

003773
005000
112760
005200
020027
003771

;

EXERCISER

132737

001402
005037
005037
005037
005037
005037
005000
104441
062706
000207

Rout ‘ne ST ze:

11
11

SECTION

000006

000001

000010

000007

524%:
53%:

0000006

000032

000001

0000006
0000016
000002

54%:

R1,0121
508
01,10(SP)
5S¢
R1

UNITS,
»

CLR
INC
cMP

BLE

TALLY(RO)
R3
R3, 032
538

cHP
BLE

R1,0121
52

BEQ
CLR
CLRB
CLRB

55
RO
C.ERR.TBL(RO)
C.ERR.TBL+1(RO)

033,R1

MOV
MOV
ADD
ASL

55%:
568
:

0000006

57%:

¢,CLEAR, TABLE S

5427

UNITS
o ,COUNT
COUNT,
»
e
UNITS,

5429
5430
5431

COUNT
COUNT
,»

543C

033,R1

s ,UNITS
UNITS,

5429

01,10(SP)

s ,CLEAR.TABLES

5433

CTLR
«(CTLR)
o(CTLR)

5435
543~
5438
5435

CTLR

5445
5446
5445

e7.R3
R3,RO
R1,RO
RO

22,R0O

543
BLE
RO
CLR
CLR8
QIO(RO)
INC
RO
.WORD CLV!CLC
BLE
CLR

564
RO

INC

BLE

S57%

8EQ
CLR
CLR
CLR
CLR
CLR
CLR

S8
30177546
100Q.0uT
100Q. IN
CRN.HIGH
CRN.LOW
RO

MOvB

0377,RP,USE(RO)

cMP

177546

000000G
0000006
0000006
0000006

58¢:

21,CLK,PRESENT

TRAP
ADD
RTS

000030

654 words,

RO, 07

81718

0000006

Rout ine Base:

$CODES

41
030,5P
PC

5EG 0147

¢,,UNITS

¢, CTLR

.WORD CLV!CLC

000007
000001

cMe
BLE
eIt
8EQ
CLR

ADD

000000G

000377

COUNT
COUNT
,»

2341

000010

VAX-11 Bliss 16 v4.0 579
DISKSUSERZ:
[POWERS JZRQADO.BL 1L ;&

R3
R3, 06
518

ADD

000033
000121

11:56:01
11:45:02

INC
cMe
BLE

ADD

000033
000121

Apr-1984
Apr 1984

1304

o(CTLR)

CTLR

COUNT
s, s(COUNT)
COUNT
,o
COUNT

5448
5449
5448

5451
5453
5455

5456
545"

5187

Fle
JRQAM,

RD Rx EXERCISER
INITIALIZE

SECTION

depth per

invocation:

vQl.6

Mavimum stack

000000
000004
000006

004737
104411
00020~

Routine Size:

Ma\"mum stack

11 Apr-1984 11:56:01
11

4 words,

Rout ine Base:

invocat

on:

11:45:02

DISKSUSER? : [POWERS )ZRQADO.BL 1 ;6

5EQ 0143

Page 148
(40,

words

LSBYTL
LSINIT::USR
TRAP
RTS

001364°

depth per

Apr-1984

VAX-11 Bliss-16 V4,0 579

2 words

$CODES

LSINIT INITIALIZE SECTION
PC.LINIT
11
PC

4020

5457

(hl
ZRQAM?

RD/Rx EXERCISER
AUTODROP SECTION

@5
OF
G0
O
D0

S47%
547
547
5476

S‘V’

000000

:
:

ssbttl

'AUTODROP

004737
104461
000207

Rout’'ne Size:
Mar."mum stack

Apr

1984

11:56:01

11:45:02

THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE
THE UNIT(S) UNDER TEST ARE CHECKED
THE “ADR” FLAG WAS SET,
THOSE THAT DON'T ARE IMMEDIATELY
SEE IF THEY WILL RESPOND.

OROPPED FROM

VAX-11 Bliss

v4,0 579

DISNSUSERZ: (POWERS]ZRQADO.BL1 ;%6

50 0149

Page

149

(41,

SECTION

IF
TO

TESTING.

BGNAUTO;
'7f BIT

TST

then

PRINTF

(SWP FLAGS,

SWF

TRC)

(DBM3);

return;

ENDAUTO;

000207

Rout
' me S e:
Max"'mum stack

000000
000004
000006

:
:

e PO NN TUR, RINY D) s o =8 g0 o pus et ot o

5460
Sdol
S462
S463
S404
5465
5466
S4e”
5408
5469
547
5431

G¢

vOol1.6

LAUTO:
1

worg,

depth

per

Rout ine Base:
invocation:
0 words

4 words,

per

L$AUTO AUTODROP

.SBTTL

PC,LAUTO
61
PC

TRAP
RTS

Rout ine Base:

invocation:

words

SECTION

$CODEs

L$AUTO: :JSR

004030°

gepth

LéUTO AUTODROP

.S8TTL

RTS

$COOE¢

4032

SECTION

5457

-Il()

RD Rx EXERCISER

JRQAM,®

CLEANUP CODING SECTION

5490
5491
5492

5493

V0
W0
G2
G
V)
N
@0
V¢
€6
@0
S
Ve
G2
G
VI
B0
Vs
O
VI
Vs
¢
B0
B0
©s
O
Be
TE
G
G0
B8
90
©6
6

5495
5496
5497
5498
5499
5500
5501
5502
5503
5504
5505
5506
5507
5508
5509
5510
5511
5512
S513
5514
5515
5516
5517
5518
5519
5520
5521
5522
5523
5524
5525
5526
5527

HPOVUNNDEDVNNUVINNNUND
DD LD D
iGN N NN NN GGG RN AN RO R s b s o =0 g e

5481
5482
5483
S484
5485
5486
548~
5488
5489

B¢

vol.6

5478
5479
5480

11 Apr 1984 11:56:01

ssbttl

Apr

1984

11:45:02

VAX 11 Bliss 16 v4,0 579

DISKSUSERZ : [POWERS JZRQADO.BL 1 ;6

CLEANUP CODING SECTION

!
t

THE CLEANUP CODING SECTION CONTAINS THE CODING
AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

THAT

IS PERFORMED

BGNCULN;
DORPT;

'CLRVEC (O_TVEC):;
if

RETURN ODT

TRAP

TO DIAGNOSTIC SUPERVISER

!
'

STOP THE LINE CLOCK
RETURN LINE CLOCK'S VECTOR

FOR EACH CONTROLLER

CONTROLLER EXISTS

CONTROLLER ALIVE

WAIT

WRITE

RETURN CONTROLLER S

.CLK_PRESENT

then
begin

H
incr

LINE _CLOCK = O;
CLRVEC (wo'100');

end;

CTLR

from 0

(RDRX_ADDR

(MAX_CTLR

.CST

[.CTLR,

IP ADDR])) neqa O

TO SUPFRVISOR

then

begin

“f

._ADDR

then

VECT _Ox

begin

.OCT

then

incr

[.CTLR,
COUNT

beg'n

DELAY

from

10000

(1);

.DCT

then

STAT; eal ONLINE

[.CTLR,

CRING CNT] eql

TILL OUTSTANDING COMMANDS FINISHED

exitloop;

end;

WRT_RDRX
end;

CLRVEC

end;

(RCIP,

(.CST(.CTLR,

ALL,

ALL

VEC ADDR));

ONES);

ENDCLN;

.SBTTL

LCLEAN CLEANUP CODING SECTION

STOP

DEVICE

TRAP VECTOR

TO SUPERVISCOR

5EQ 0150

Pog: 150
(4az)

T1e
JRQAAMD
v0l.6

000000
000004
000006
000010
000016
000020
000024
000026
000030
000034
000040
000042
000044
000052
000054
000062
000064
000066
000072
000076
000100
000104
000106
000112
000116
000120
000124
000120
000130
000132
000134
000136
000140
000144
000146
000150
000152

RDO/RXx

11
11

CLEANUP CODING SECTION
004137
005746
104424
132737
001402
005037
005005

010546
012746
004737
010001
022626

01613~
001450
132737
001437
010546
012746

004737
022626
005760

000156
000162
000166
000172
000174
000176

100022
012704
012703
001410
013702
001403
005016
005302
001375
005303
000767
105760
001402
005304
001360
012700
010077
016100
042700
104436
005205
000243

000200
000202
000204

003712
005726
000207

:
;:

EXERCISER

LCLEAN:

0000006

JSR
TS7

0000006

177546

1$
2$:

000126
0000006

000001

023420
000001

548S

JSR

PC,.BLSMUL

MOV

2126,

0000006
5$:

6%:
0000006

177777
0000006
0000026
177000

7s:

8s:
9s:

10s:

(5P)

(SP)s ,(SP).
CST(R1),RDRX,ADDR
10
&1 ,ADDR.VECT
, 0K

MOV
MOV
JSR

RS, -(SP)
822, -(SP)
PC.BLSMUL

1ST

OCT(RO)

MOV

5494

s CTLR
; CTLR,»

5498
$500

5504

023420,R4

;

CTLR,

5508

«,COUNT

5511

¢,88TMPL

:
;

$STMP]

$STMPQ

(SP)+,(SP)»

MOV

&1 ,R3

BEQ
MOV

78
L$OLY,R2

8EQ

CLR

(sP)

DEC
BNE
OEC
BR

R2
Ss
R3
4%

TST8

DCT(RO)

BEQ
DEC
BNE
MOV

8s
R4
3
& 1,RO

MOV
MOV

RO, 3RDRX
, ADDR
CST+.2(R1),RO

8IC

4177000,R0

TRAP

INC
RS
LWORD CLV!CLC
P ]

BLE

(SP).
PC

TST
RTS

Routine Size:
67 words,
Rout ine Base:
$CODES
Max 'mum stack depth per invocation:
10 words

5491

RO,R1

B8PL
3s:

(42)

01,CLIC, PRESENT
1$
80177546
R5
RS, (SP)

cMP

000000G

DISKSUSERZ: {POWERS JZRGADO.BL1;:5H

SEQ 0151
Page 151

BIT8
BEQ
CLR
CLR
MOV

B8EQ

000022
000000G

16 v4,0.579

5477

CMP
MOV
BEQ
8ITB

000080

VAX-11 Bliss

;

MOV

000000G 000000G

11:56:01
11:45:02

R1, $SAVES
(sP)

TRAP

000001

Apr-1984
Apr 1984

4042

H
H
;:

;

S$STMP

COUNT

5515
5517
5511

*,RC.REG

5521

RC.REG,s

CTLR

5524
5498

-7Yy

Jl2
RD Rx EXERCISER

JRAAM.

CLEANUP CODING SECTION

vol.6

000000

004737

C00004
000006

104412
000207

;:
.

11 Apr 1984 11:56:01
11 Apr-1984 11:45:02

004042

4 words.
Rout ne S’ :e:
Max mum stack depth per

.SBTTL

LS$CLEAN CLEANUP CODING SECTION

JSR
TRAP

PC.LCLEAN
12

L$CLEAN:

RTS

$CODES
Rout ‘ne Base:
s
2 word
‘nvocat ‘on:

-+ 4250

VAX-11 Bliss 16 v4.0 579

BL1;6
R?
ADO.
SE
ERS JZRG
$U
: [POW
DISK

SEQ 0152
Page

15¢
(42)

5525

IKLe
RD/RX EXERCISER

ZRQAAM?

OROP UNIT SECTION
NNV NNVNNBUNDDDBDWDBWWWWWWWNNRNNDWRRDWWWWWENDRN
NN R NN F e
s e - pe

vol.6

5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576
5577
5578
5579
5580

11 Apr-1984
11 Apr 1984

ssbtt]l

'DROP UNIT

11:56:01
11:45:02

VAX-11

Bliss-16

SEQ 0153

v4.0 579

Page

DISKS$USERZ: [POWFRS1ZRAADO.BL1 ;6

153
(43)

SECTION'

'
'

THE DROP-UNIT SECTION CONTAINS
TO NO LONGER BE TESTED.

THE CODING THAT CAUSES A DEVICE

BGNDU;

loceal
UNIT

!
!

UNIT NUMBER
NO PRINTING

_[INPUT;

!
!

GET UNIT NUMBER
UNDECLARE RO

SEARCH BLOCK

FOR EACH CNTR

FOR EACH UNIT

word,
byte

initial

(byte

(FALSE));

label
SEARCH;
begin

INPUT

UNIT

end;

‘¢

BIT

then

PRINTF

SEARCH
beg’'n
incr

TST

(SWP

FLAGS,

(DBMS,

incr

from O

OFFSET
if

NO.

.UNIT);

(MAX_CTLR

from

OF _UN,

((UNITS_PER_CNTR

1)
eql

UNIT

(.CST

[.CTLR,

.OFFSET

OF DATA,

D UNIT]

(.CST

[.CTLR,

.OFFSET

(°_DATA,

D PRES] eql PRESENT)

then

UNIT

SWF_TRC)

CTLR

.UNIT)

SIZE

UN)

UNIT

SIZE

IF UNIT MATCHES

and

beg'n
if

(.CST

[.CTLR,

(.DUR
(.DUR

then

begin
PRINT
if

(.CST

then

.OFFSFf

OF _DATA,

[.UNIT] eql TU_ONLINE) or
[.UNIT) eql DU_PROTECT)

CST

(,CST

D_STAT]

eql

ONLINE)

TRUE;
(.CTLR,

[.CTLR,
[.CTLR,

[.CTLR,

U CNT]

.OFFSET

U CNT]
U CNT]

gtru O)

,CST
eql

and

OF _DATA,

TO PRINT

0.K,

DECREMENT COUNT

D_STAT] eal ONLINE)

[.CTLR,
and

IF UNIT ALIVE

U CNT])

L 12
RD/RX EXERCISER

ZRQAM?

DROP UNIT

000000
000004
000006
000010
000012
000020
000022
000024
000030
000034
000036
000040
000044
000046
000050
000054
000060
000064
000070
000072
000076
000100
000104
000106
000110
000112

SECTION

004137
005746
105046
010001
032737
001411
010146
012746
012746
010600
104417
062706
005005
010546
012746
004737
010066
012703
010300
066600
006300
012702
060002
010104
011200
000300

Apr-1984

11 Apr-1984

(.CST

BNV

5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604

HRUNWWWENWORVONDWWD

B¢

O»

vo1.6

then

CST

end;

[.CTLR,

EOP FLAG

{.CTLR,

.OFFSET

+ OF DATA,

11:56:01

11:45:02

+ OF DATA,

Page

154

(43%)

D STAT] eaql ONLINE)

TRUE;

.OFFSET

5EQ 0154

VAX-11 Bliss-16 v4,0 579
DISKS$USER2:
[ POWERS JZRQADO. BL1:6

D STAT]

= OFFLINE;

ALL UNITS OFFLINE

MARK

UNIT

OFFLINE

IF UNIT ALIVE

leave SEARCH;

end;

EXIT SEARCH BLOCK
IF UNIT

FOUND

end;
if

.PRINT

(.DUR
(.0UR
(.DUR
(.DUR

then

[.UNIT])
[.UNIT]
[.UNIT]
[.UNIT)

begin
PRINTF
PRINTF

eql
eql
eql
eql

(DU_MSG,
(.OU_RSN

end;

DU_CONF) or
DU_INIT) or
DU_ONLINE) or
DU PROTECT)

“UNIT

.UNIT);
[.DUR [.UNIT]));

' REASON

TO PRINT

XX OROPPED’

ENDDV;

0000006

LDV:

.SBTTL
JSR
TST

CLR8

000001

000000G

000006

000053
000000G
000006
000003
000006

0000006

1$:
2%:

-(sP)

RO,R1

MOV

R1,-(SP)

MOV
TRAP
ADD

SP,RO
17
26,5P

MOV
MOV

CLR
MOV

MOV
JSR
MOV
MOV
MOV
ADD
ASL
MOV
ADD
MOV
MOV
SWAB

5527

-(sP)

MOV

8IT
BtQ

0000006
000002

LDU DROP UNIT SECTION
R1, $SAVES

€1,SuWP
. FLAGS
1$

INPUT UNIT

5549
5552
5554

40BMS, -(SP)
02,-(SP)

5559
5563

RS
RS, -(SP)

453, -(SP)
PC,.BL$MUL
RO,6(SP)
#3,R3
R3,RO
6(SP),RO

#CST ,R2

RO,R2
R1,R4
(R2).RO

+«,0FFSET
OFFSET,»

5561
SSe3

MLe
DROP UNIT SECTION

vOo.l.6

000114
000120
000127
0001°4
000130
200132
000134
000140
000142
000144
000146
000154
000156
000164
000166
000174

000176
000202
000206
000210
000214
000220
000222
000224
000230
000232
000236
000240
000246
000252
000254
000256
000262
000266
000270
000272
000274
000276
000300
000304
000306
000314
000316
000324
000326
000334
000336
000344

000346
000350
000354

000360

11
11

RD/RX EXERCISER

ZRQAM?
042700

020004
001055
032712
001452
005004
032712
001402
005204
000410
126127
001404
126127
001032
112766
010516
012746
004737
005726
062700
105760
001404
006004
105660
001006
032712
001403

112737
042712
022626
000411
062703
020327
003700

8IC

177760

020000

000000G 000007

4%
:

000000G 000011

000001

000004

Ss:

000126
0000006
0000046
000001

00000
6$:

020000

000001
020000

0000006

BIT

#40000,(R2)

000012
000041

9
R4
#20000, (R2)
44
R4

CMPB
BEQ
cMPB

DUR(R1),#7
5%
DUR(R1),411

BNE
MOVB
MOV
MOV
JSR
TST
ADD
TST8
BEQ
ROR
SBC8
BNE

8IT
BEQ

8%
9¢:

8IC
CMP

B8R

8s
#1,4(SP)
RS, (SP)
#2126, (SP)
PC,BLSMUL
(SP)e.
oCST+4 ,RO
1(RO)
6$
R4
1(RO)
74

10$:

000000G 000001

104

cHpP

(SP)+,(SP).

000000G
000002

11$:

155

a3)

5568

&«(UNIT),»

5569

s(UNIT),»

5570

s ,PRINT

5573
5575

CTLR,»

5576
5578
5580
5581

5583
5585

5566

» ,0FFSET
OFFSET,
s

5561

CTLR

5559

2%
1,(SP)

+ ,PRINT

5593

CMPB

OUR(R1),
%41

s(UNIT),»

5594

CMPB

DUR(R1),42

s(UNIT),»

5595

CMPB

DUR(R1),#7

s(UNIT),»

5596

CcMPB

DUR(R1),011

4(UNIT),»

5597

UNIT,»

So00

BNE

BEQ

000000G 000011

Page

BLE
BIT

8EQ

000000G 000007

SEQ 0155

5564

920000, (R2)
(SP)+,(SP)+
#12,R3
R3,441

BEQ

000000G 000002

v4.0 579

DISK$USER2:
[POWERS 1ZRQADO.BL1;6

#1,EO0P.FLAG

INC
RS
.WORD CLV!CLC

000001

Bliss-16

€20000, (R2)
I4]

ADD
cMP

BLE

VAX-11

BEQ
CLR
BIT
8EQ
INC

MOVB
7$:

022626
005205
000243

003663
032716
001020
126127
001414
126127
001410
126127
001404
126127
001024
010146
012746
012746
010600

RO,R4

B8R

11:56:01
11:45:02

#177760,R0O

CcHMP

BNE

040000

Apr 1984
Rpr-1984

BNE
MOV
MOV
MOV
MOV

114

11$

124
R1,-(SP)
QDU .MSG, -(SP)
82,-(SP)
SP.,RO

SP,s

NL2
ZRQAM?

RDO/RX

OROP UNIT

vO0l.6

000362
000364
000370
000374
000376

000402
000406
000410
000412
000416
000420
:

104417

116101
042701
0063C1
016116
012746

010600

104417
062706
022626
000207

11
11

SECTION
TRAP
MOVB

0000006

000000G
000001

MOV
MOV
MOV
TRAP
ADD

OU.RSN(R1),(SP)

RTS

ASL

12%:

Routine Size:
Maximum stack

004260’

4 words,
depth per

L$DU:

Rout ine Base:
invocation:
2 words

o1,

(SP)

#10,SP

.SBTTL
JSR

Page

156

(43)
5601

4260

L$DU DROP
PC,.LOU
53
PC

TRAP
RTS

SEQ 0156

5599
5527

(SP)+,(SP).

VAX-11 Bliss-16 v4.0 579
DISKS$USERZ:
[POWERS ]ZRQADO .BL1:6

s
SP.,

SP,RO
17

cMpP

$CODE$

11:56:01
11:45:02

s(UNIT),»

#177400,R1
R1

000010

1984
1984

17
DUR(R1),R1

BIC

Rout ine Base:
$CODES
Size:
137 words,
14 words
Max ‘mum stack depth per invocation:

004737
104453
000207

Apr
Apr

177400

Routine

000000
000004
000006

;
s

EXERCISER

4702

UNIT

SECTION
5602

]
31
9)

RD/RX EXERCISER

VLY YT P YV YV YV RV L VRT L VN VI VY VL VE ST VY VL VY o X o X o o ot ol ol o

ADD UNIT SECTION

ssbttl

004137

000000G

105737
100023
010046
012746
004737
010002
062702

010001
005301

'ADD UNIT

005060

005201

¢
!
'

1984

VAX

11:45:0°2

Bliss

v4,0 579

DISKSUSER?2: [POWERS JZRQADO.BL1;6

5€Q 0157
Page 157

(44)

SECTION

BGNAL;

locel
STINDX
ENDIDX
regi ster

UNIT

BIT

then

:
:

word,
word;

= O3

TST

(SWP_FLAGS,

“WF

STINDX
ENDIDX

«
=

_UNIT ¢
_STINDX

incr COUNT
TALLY

from

¢t

t
H

ZERO OUT
ADDED

.ENDIDx do

TALLY_LEN;
+ TALLY_LEN

.STINDX

[.COUNT]

=«

UNIT NUMBER APPEARS

IN RO 1PON ENTRY

CST)

begin

CLEAR

UNIT

STAT,

TABLES

TRUE....

STATISTICS

end;

ENDAL;

000000G

LAU:

000033
0000006

000032

000000G

2s:

<5 woras,

LSBTTL
JSR

TST8
8PL
MOV
MOV
JSR
MOV
ADD

MOV
OEC

18:

02,626
000207

L' ze:

11:56:01

THE ADD-UNIT SEZTION CONTAINS ANY CODE THE PROGRAMMER WISHES
TO BE EXECUTEL IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
TO THE TEST CrCLE.

020102
0038771

‘ne

11 Apr

1984

000404
010100

0046300

Apr

Rout ine Rase:

B8R
5.01"

ASL

cLr

LAU ADD WUNITY
R1,8SAVE?2
SWP .FLAGS
3
RO, (SP)
#3383, (SP)
PC.BL SMA
RO, R2
32 ,Re

RO,R1
Rl

2t
R1,RO

TALL Y(RO)

SECTION

5622

INIT,e

3
3

STINDX, ENDIDX
¢,ENDIDY

3 STINDX,CO'WNT
s COUNT

%628

COUNT
o

Se29

INC

3 COUNTY

cHP
RTS

(SP)e ,(SP).
PC

3
3

e
8L E

SCOLES

R1,.R2
|§ ]

. 4712

COUNT ENDIDX

5629

o8
Seld
Sod

SRQAM,®

RD Rx EXtRCISER

wWi.e
3

ADD NIT

Max"mum stack

QONNOC
Q0004
000006

00478
104452
00020~

depth per

SECTION
invocat on:

.SBTTL

LSAU ADD UNIT SFCTION

TRAP

JSR

PC.LAV

RIS
Rout ine Base:

‘Avocat ‘on:

U018
»

r44

words

LSAU::

QOoaT1

31 Rout'ne S ce:
4 woros,
: Mav'mum stack depth per

VAX 11 Blies 156 v4,0 579
DISKSUSERS: (POMER | /RGADO,BL 1 ;6

S words

sCODEs

PC
.

4774

5631

D14
JRQAR

RD/Rx

NON EXISTENT MEMORY

vil.6

000000

012737

000001

000006

000002

5644
S04s
5646

P09

e PYNYNY D)o popt po pud prud b o gt

Sel4
5635
Se36
563°
5638
5639
5640
Se4a1l
5042

sabtt]l

EXERCISER

Rout 'ne Sice:

Max"'mum

stack

‘'NON EXISTENT

TRAP HANDL ER

Apr

1984

11:56:01

VAX-11

Blies

v4.0

579

Apr

1984

11:45:02

DISKS$USERZ : ([POWERS )ZRQADO.BL 1 ;6

5EQ 0159
Page

157

(45,

TRAP HANY FR

MEMORY

THIS

TRAP

HANDLER

VECTORED FROM LOCATION 4

ERRORS, INDICATING THAT AN ATTEMPT WAS MADE
MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET
REGISTER

(NEx

BGNSRY
NEX

EXISTENCE

TEST,

INDICHTING

THE

FOR

ALL

UNIBUS

TIMEQUT

TO REFERENCE A NON EXISTENT
A FLAG FOR THE RDRx

ABSENCE

A DEVICE

TRAP);

TRUE;

NEX

TRAP OCCURRED

ENDSRV;

000000G

.SBTTL
NEX.TRAP:
;
MOV

NEX,TRAP NON EXISTENT MEMORY
01 ., NEX

RTI

4 words,
depth per

Rout ‘ne Base:
‘nvocat
' on:
O words

$CODES

S004

TRAP MANDL ER
:

S645

5643

bl
ZRAAM.

RD/RX EXERCISER

vO0l.6

3
:

:
3
H
:
3
H
:
:
:
:
:

5648

S649
5650

5651
5652
5653
5654
5655
5656
S6s57
5658
S659
Se60
Se61

5662

TIME Qf DAY

1
1

1
1
1
2
2
2
2
2
2

3
3

S663

5666

H
:
:
:
:

S664
5665
5667

5668

5669

5670

S671
Se72
S673
5674
So7%
5676

000000
000004
000012
000014
000020
000024
000032
000034
000040
000044
000052
000054
000060

ssbtt]l

2
2
3

2
2
2
2
¢
1

005237
023727
103404
105237
005037
123727
103404
105237
105037
123727
103402
105037
000002

Routine Size:

Ma> 'mum stack

Apr

1984

Apr

1984

11:56:01

11:45:02

VAX-11 Bliss 16 v4.0 579
DISKSUSERZ2:
[POWERS ]ZRQADO.BL1 ;6

3EQ 0160
Page

160
(4¢)

' TIME OF DAY

THIS

'
' -

INTERRUPT

SERVICE

ROUTINE

KEEPS

TRACK

THE

TIME

DAv

BGNSRV (TIME);

CLK_TICKS =

CLK_TICKS

.«

INCREMENT

UPDATE MINUTE COUNT

UPDATE HOUR COUNT

RATIONALIZE

CLOCK

TICKS

if .CLK_TICKS gequ 3600
then
begin
MINUTES

:
:

_MINUTES

CLK_TICKS

= O;

end;

.MINUTES gequ 60

then

begin

HOURS

MINUTES

end;

_HOURS

“f .HOURS gequ 24
then
HOURS = O3

HOURS

ENDSRV;

0000006
000000G 007020

TIME:
:

000000G
000000G
000000G 000074

1$:

000000G
0N0000G
¢ 92000G 000030

2s:

000000G

3s:

25 words,

depth per

Rout ine Base:
‘nvocat on:

O words

.SBTTL

INC

oy
8LO
INCB
CLR
cHMP8

8LO
INCB
CLR8
cMPB
BLO
CLRB

TIME

DAY

5656
5658

MINUTES

CLK, TICKS

5661
5662
5665

HOURS
MINUTES

5668
Sé09

74
MINUTES,
23

HOURS, 230
3
HO JRS

RTI

$CODE
$

TIME

CLK, TICKS
CLK.TICKS, 47020

5014

5672

Se"4
5654

13
RO/Rx EXERCISER

ZRQAM.

GLOBAL ROUTINES

G0
G0
G0
W
©F
B0
B9
90
90
@6

5691
5692
5693
5694
5695
5696
5697
5698
5699
5700

010146

000002
000006
000012
000014
000020
000024
000030
000034
000036
000042
000046
000052

016601
010137
010146
012746
004737
062700
010037
010116
012746
00473/
062700
010037

000056
000064
000070
000072

017737
062706
012601
000207

Rout ne S’ ze:

Ma>imum stack

Apr

1984

11:56:01

11 Apr 1984 11:45:02

VAX-11 Bliss 16 v4.0 579

DISKSUSERZ:
[POWERS )ZRQADO.BL1;6

5EQ 0161
Page

1561
(a7)

‘GLOBAL ROUTINES'

global routine SET_CPAR (CTLR)

novalue

Pud Pt s Put Pt

00000C

ssbttl

THIS ROUTINE SETS UP

P
M) =0 o 0=t ot 1t Pt 1t puib P8 Jut Pt P

5679
5680
5681
5682
5683
5684
5685
5686
5687
5688
5689

=2 D) NJ N N

5677

v0l.6

5678

FOR

THE

INPUTS:

THE COMMONLY -USED CONTROLLER RELATED DATA

GIVEN CONTROLLER NUMBER.

CONTROLLER NUMBER

CTLR

IMPLICIT OUTPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
CST ADDR - ADDRESS OF CONTROLLER S STATUS
OCT _ADDR
ADDRESS OF CONTROLLER'S DRIVER
RDRX _ADDR

ADDRESS OF

CONTROLLER'S

begin

CCTLR = _CTLR;
CST_ADDR = CST
DCT_ADDR = DCT

RDRX_ADDR

¢
+

,CST ADDR

(IP_ADDR];

.SBTTL
SET.CPAR::

000004
0000005,

30 words,

MOv

R1,

(SP)

MOV

R1,

(SP)

MOV

S words

$CODES

GET

CONTROLLER'S DEVICE

R1,(SP)

822, (SP)
PC.BLSMUL
o0CT ,RO
RO,DCT.ADDR
aCST.ADDR,RDRX . ADDR
26, 5P

MOV
RTS

Rout ine Base:

CURRENT CONTROLLER NUMBER

0126, (SP)
PC,BL $MUL
oCST,.RO
RO,CST.ADDR

MOV
JSR
ADD
MOV
MOV
ADD

‘nvocat
' on:

SET

4(SP),R1
R1,CCTLR

MOV
JSR
ADD
MOV

000022
0000006
000000G
0000006
000000G 0000006
000006

IP REGISTER

ADDRESS

SET.CPAR GLOBAL ROUTINES

MOV
MOV

000126
0000000
0000006
0000006

TABLE
TABLE

CALCULATE ADDRESS OF CONTROLLER S CST
CALCULATE ADDRESS OF CONTROLLER S DCT

(.CTLR & CST _EN ¢ 2);
(.CTLR « DCT LEN s 2);

end;

depth per

ITEMS

(SP)s ,R1
PC

5076

;

CTLR,»

5679
5696

5697

5698

3
:
:

5699
5695

5679

(13

JFQAM

RDO/RXx EXERCISER

vCl.6

11 Apr 1984 11:56:01

GLOBAL RQUTINES

11 Apr 1984

11:45:02

VAX-11 Blies 16 v4
. 0 579

NISKSUSER?2: [POWERS JZRQADO.BL1: ¢

3
:
H
3
H
H
H
H
:
H
H
3
H

2783
ST0%
g'gg
h
S70e
ST0”
$708
$709
$7T10
2711
T12
5°13%

}
1
1
1
1
1
1
1
1
1
1
1

global routine SET UPAR (OFFSET) : novalue =
'.
!
THIS ROUTINE SETS UP THE COMMONLY USED UNIT RELATED DATA ITEMS FOR
H
THE CURRENT CONTROLLER AND GIVEN CST OFFSET,
'
H
INPUTS:
H
OFFSET
WORD OFFSET INTO CURRENT CONTROLLER'S CST wWHICH
H
DESCRIBES A UNIT
H
H
IMPLICIT INPUTS:
'
CST ADDR
ADDRESS OF CURRENT CONTROLLER'S CST
!
!
IMPLICIT OUTPUTS:

H
:

5716
g:{;

1
%

!
!

H
H

:
:
:
H

5714
S715
.

1
1

5719

S721
STee
5723
5724

2
2
2
1

5720 2

00000C

010146

000002

016637

000010
000014
000016
000022
000026
000034
000036
000040
000044
000050
000052
000056
000062
000066

000072

000074
00C076

;:
:

016600
006300
063700
111037
042737
011001
000301
042701
010137
010146
012746
004737
062700
010037

022626

H
H

CUOFF
COISK

014

€ Poéézlez
(48,

CURRENT UNIT'S CST OFFSET
CURRENT DISK ADDRESS (RD/RX DISK NUMBER)

LSLUN - CURRENT UNIT NUMBER (DRS UNIT NUMBER)
T _ADDR
ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLTY)
begin

CUSFF = _OFFSET;

COISK = _CST ADDR [.OFFSET
LSLUN = _CST ADDR [.OFFSET
T_ADDR = TALLY « (.LSLUN o
end;

« OF DATA, D DISK_NUM];
« OF DATA, D UNIT];
TALLY LEN & 2);

.SBTTL

000004
000004

000000G

SET.UPAR GLOBAL ROUTINES

SET.UPAR:
:
MOV

000000G
000000G
177760
0000006

177760
000000G

000066
0000006
0000006
0000006

012601
000207

Rout
' ne S'ze:
My 'mum stack

560

R1,-(SP)
a4(SP),CUOFF
4(SP),RO
RO
CST.ADDR,RO
(RC),CDISK

MOV

MOV
ASL
ADD
MOVB

8IC
MOV
SWAB
BIC
MOV
MOV
MOV
JSR
ADD
MOV

R1
©177760,R1
R1,LS$L'N
R1, -(SP)
266, -(SP)
PC,.BLSMN
O@TALL
1 ,RO
RO,
T, ADDR

MOV

(SP).,R1

2177760,C01I5«
(RO),R1

cMP

(5P)e ,(SP)e

RTS

32 words,
Routine Base:
depth per invocat
' on: 4 words

$CODES

S17¢

:
s
s

OFFSET,
e
CUOFF
,e

:
:

5702
57¢0
5721

8722

LSLUN,e

5723

5719
5701

H1
11
11

1984
1984

11:56:01
11:45:02

VAX-11 Bliss 16 v4,0 579
DISKSUSERZ: [POWFRS JZRQADO.BL L ;6

global routine GET PKT (CTLR)
THIS ROUTINE

Apr
Apr

SEARCHES

THE

MSCP PACKET

POOL

ALLOCATION

TABLE

(PKT

USE)

FOR A FREE MSCP PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS
FOUND, THE PACKET 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

RING _ADDR : word,
PACKET OWNED : byte,
NEXT _PACKET : byte;
NEXT
incr

PACKET
COUNT

beg'n

in"t'al

(

1),

_NEXT PKT_USE;

from O

(PKT_CNT

PAgKET_ONNED = FALSE;
if

.PKT_USE

then

[.NEXT

begin
RING ADDR
incr

from

PACKET]

lss O

.DCT

ADDI.

(RRING_LEN

PACKET

FOR EACH ENTRY

FIRST

FOR

TRY
IN ALLOCATION

TABLE

5725
526
5727
5728
5729
5730
5731
SR
5733
5734
5735
5736
573~
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774
5775
S7176
St177

RD/Rx EXERCISER
GLOBAL RCUTINES
MUNUNDLLLBDBUNNIUVIVIDNNDLOLDLDBWWWWWWNINTVILNAINANN
NN R - s e o e 10 =t o bt 1t s bt o

G¢

V¢

GF B0

O¢

G0 GO G0

GF G0

G0 Go G

JRQAM.
vol.6

[RR BEG]:
+

CRING LEN)

ENTRY

INDICATES FREt

RESPONSE PACKET'S

EACH PACKET

PACKET

ADDRESS

if (..RING ADDR eqla .MSCP PKT [ . NEXT PACKET, PKT_LO]l) and
((C.RING ADDR + 2) and ED _OWN) eql ED OWN)
then

begin

PACKET _OWNED
exitloop:

TRUE;

CHECK ADDRESS AND OWNERSHIP

PACKET

OWNED BY

ADDRESS

ALLOCATE

CONTROLLER

end

els e

not

then

RING

_RING

ADDR

.PACKET_OWNED

begin
PKT

ADDR

USE

inde>

[ .NEXT

PACKET])

_NEXT_PACKET;

.CTLR;

NOT

£ XT

ALREADY

PACKET

IN RING

USED

CONTROLLER

5eEQ 0163
Page 163
(49)

113
RD/RXx

incr

from 2

(PKT

LEN

MSCP PKT [ .NEXT PACKET,

Apr
Apr

1984
1984

11:56:01
11:45:02

ZERO OUT

DONE

TRY NEXT

IF BEYOND ALL PACKETS,

IF PACKET FOUND

PACKET

!
!

CREDIT SIZE
NEXT PACKET

TO ALl OCATE

CyCLE BACK

TO BEGINNING

.J, O, 16, 0] = 0;

exitloop;

VAX 11 Bliss-16 v4.0 S79
DISK$USERZ2:
[POWERS JZRGADO.BL1;:6

SEQ 0164
Page

154

(49)

PACKET

end;
end;

NEXT
if

PACKET

then

_NEXT

PACKET

gequ

PACKET

PACKET
PKT

PACKET

IN RING

CNT

START AT

THE

TQOP

end;

‘f

(.index geq 0) and
(.PKT_USE ({.index]) geq 0)

then

begin
MSCP PKT

[.index, MSGLEN] = SZ _GEN;
MSCP PKT [.index, CREDITS] = 1;
NEXT _PKT USE = _NEXT PACKET .+ 1;
iF.NEXT _PKT
then

USE

NEXT PKT USE

gequ

°KT

SIZE

ONLY

ONLINE

AND

SCC

CHANGE

CNT

= O;

AT END

end;

return

. index;

end;

162706
012704
113766
012766
105016
005001
156601
105761
002072
013700
016005

000006
177777
000000G 000004
000014
000002

1$:
000004
000000G
000000G
000004

GET.PKT GLOBAL

JSR
sSuB
MOV
MOvB
MOV
CLRB
CLR

R1,$SAVES

BIS8
16718
BGE
MOV
MOV

ROUTINES
5726

#6,5P
o

1,RA

NEXT,PKT,
USE ,4(SP)
©14,2(SP)

(SP)

R1
4(SP),R1
PKT
. USE(RL)
7%

OCTY.ADDR,RO

4(R0O),RS

000004
000010
000014
000022
000030
000032
000034
000040
000044
000046
000052

.SBTTL

GET.PKT::

000000G

004137

@¢

000000

s, INDEX
o NEXT PACKETY

¢, COUNT

PACKE
T, OWNED

5780
5781
5782
5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814

PPNV WWWNWNWNHNENRWERDVDWNDNRNWNNNNENWENANEND
DTN

5779

11
11

GLOBAL ROUTINES

vOol.e

5778

EXERCISER

®r

ZRQAAM,.

s
NEXT.PACKET,

+ ,RING. ADDR

S738
5747
5749
S$751
5753

J1'3
RD/RX

ZRQAM2

11-Apr 1984
11 Apr-1984

GLOBAL RCUTINES

VOl.6

000056
000060
000064
0000 "0
000074
000100
000102
000106
000110
000114
000120
000122
000130
000132
000136
000140
000142
000150
000152
000160
000162
000164
000170
000174
000176
000202
000204
000200
000210
000214
000216
000222
000224
000226
000230
000232
000236
000244
000246
000252
000256
000260
000262
000264
000270
000272
000274
000300
000304
000312
000320
000326
000330

EXERCISER

010146
012746
004737
012702

021560

001014
012703
060503
042703
02C327
001004
112766
000404
062705
005302
001355
032766
001027
116661
010104
010116
012746
004737
005726
012702
010003
060203
006303
005063
005202
020227
003767
022626
000414
022626
105266
126627
103402
105066
005366
001264
005704
002435
105764
0024322
010446
012746
004737
012760
142760
152760
005000
156600

MOV

000106
0000006
000010
000000G

MOV

JSR

MOV

2$:

MOV
ADD

000002

8IC
CMP
BNE

077777
100000
000001

000004
3s:

0C0004

000001

000030

000004

Ss:

000042

000004

ADD

@4 ,R5
R2

DEC
BNE
BIT
BNE

MOV
MOV
ADD
ASL

CLR
INC
CHMP
BLE
cMP

000000G

000014

000004
000002

6$:
74:

8$:
9¢:

0000006

CMP
INCB
CMPB
8Lo
CLR8
DEC
BNE
TST

BLT

7518

BLT
000106
000000G
000040
0000066
000017
000010G
000001
000010G
000010

02,.R3
RS,R3
77777 ,R3
R3,#4-100000
34

21,4(5P)
43

JSR
TST

000002

g?S)."SCP.PKT(RO)

MOVB

MOVB
MOV
MOV
MOV

000000G

000043
000000G

000004

CMP
BNE

R1, (SP)
9106, (SP)
PC,BLSMUL
#10,Re

MOV
MOV

JSR

MOV

8ICB
8158
CLR
BISB

21.4(SP)

64
30(SP),PKT USE(R1)
R1,R4
R1,(SP)

11:56:01
11:45:02

VAX 11 Bliss 16 v4.0 579
DISKSUSERZ
: ([POWERS JZRGADO.BL L ;6

5EQ 0165
Page

165

(49)

5761
o,
I

RING.ADDR,
»

« ,PACKET.OWNED

5799
5761

5762

5766
5765
5770
5759

s ,PACKET ,OWNED

5772

»
CTLR,

S776
5777
57390

+ ,RING.ADDR

&, INDEX

PC,BL $MUL

(SP)»
#2,R2

5779
5780

RO,R3
R2,R3
R3
MSCP.PKT(R3)
R2
R2, %42
5

5779

5775

(SP)+,(SP)+

(SP)+,(SP).

4(SP)
4(SP), 214
8¢
4(SP)

2(5P)
1$

11¢

PKT ,USE(R4)

11¢
R4, (SP)
4106, -(SP)
PC,BL SMUL
040 ,MSCP.PK1+6(R0O)
017 ,MSCP.PKT+10(ROD)
&1 ,MSCP .PKT .10(RO)
RO

10(SP),RO

NEXT.PACKET
»
XT
. PACKET,
NE

5756
5788
5790

NEXT .PACKET

COUNT

5793
5749

X
INDE

5797

«( INDEX)

5798

s
INDEX,

5802

S8032

NEXT PACKET , s

5304

1K1
3
ZRQAM?

RD/RX EXERCISER

GLOBAL ROUTINES

vOl1.6

000334
000336
000342
000346
000350
000354
000356
000360
000364

:
:

005200
110037
120027
103402
105037
022626
010400
062706
000207

Routine Size:
Maxvimum stack
5815

5816

1
1

11
INC
MOvVB

000000G
000014

10$:
11¢:

000006

123 words,

depth per

Rout ine Base:

invocat

on:

13 words

RO, #14

10$
NEXT.PKT,LUSE

8LO
CLRB

cMP
MOV

(SP)+,(SP)+
R4 ,RO

ADD
RTS
$CODES

Apr

RO
RO,NEXT
. PKT USE

CMPB

0000006

Apr

6,5P
PC

5272

1984

11:56:01

11:45:02

VAX-11

]

Bliss

v4.0 579

DISKSUSERZ : [POWFRS1ZRQADO.BL 1 ;5

H
:
:
H

NEXT.PKT, USE,

INDEX,s

SEQ

0166

Page

166

(49)

5806

5308
5801
5738
5726

L 13
RD/RX EXERCISER

ZRQAM.

GLOBAL ROUTINES
N R - s e s s s 2 s s e
RN
WNNND D DBWWWWWNNNMN
RPNV

B¢

G»

B¢

€0

)

B¢

OS¢

G»

vol.6

5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854

11 Apr 1984 11:56:01

11 Apr-1984 11:45:02

global routine PUT PKT

(index)

novalue

5EQ 0167

VAX-11 Bliss 16 v4,0 S79

D1ISKS$SUSER2: (POWERS JZRQADO.BL1 ;6

Page 167
(50)

!
!

THE MSCP PACKET DESIGNATED B8Y
.
ROUTINE

“INDEX"

IS RETURNED TO THE POOL B8y

THIS

[}

begin

local

RING ADDR

word,

OWNER

word;

RING_ADDR

.DCT

incr COUNT
begin

fram

.MSCP PKT

then

ADDR
1

[RR_BEG];

to (RRING_LEN
[.index,

PKT_LO]

ADDRESS

CRING LEN) do

FOR EACH ADDRESS

eqla

¢
t

ADDRESS OF OWNERSHIP WORD
GIVE OWNERSHIP TO HOST

LOOK AT NEXT PACKET

..RING ADDR

begin

OWNER = _RING_ADOR + 2;
.OWNER = . .OWNER and (not (ED OWN)) and (not (ED FLAG))
end;

RING ADDR

_RING_ADDR

. 4;

;

IN FIRST RESPONSE RING
IN THE RINGS

ADDRESS MATCHES

ADDRESS

IN RING

end;
PKT_USE

[.index]

end;

000000

004137

0000006

000004
000010
000014
000020
000022
000026
000032
000036
000042
000044

013700
016001
016602
010246
012746
004737
012704
026011
001005
012703

0000006
000004
000014
000106
000000G

000010
0000006
000002

.SBTTL

PUT
. PKT GLOBAL ROUTINES

JSR
MOV
MOV
MOV

R1, $SAVES
DCT.ADDR,RO

:
:

14(SP),R2

PUT
. PKT: :

1$:

4(RO),R1

¢,RING.ADDR

INDEX,
e

5839

£10,R4
MSCP.PKT(RO),(R1)

;3
;

+,COUNT
¢,RING.ADDR

S83¢
s819

#2,R3

+,0WNER

5843

MOV
MOV
JSR

R2, (SP)
#106, (SP)
PC,.BL $MUL

BNE

MOV
cMP
MOV

S819
S834

M13
ZRQAM,

RD/RXx

EXERCISER

vOl1l.6

GLOBAL

ROUTINES

000050
000052
000056
000062
000064
000066
000074
000076

:
;
H
H

060103
042713
062701
005304
001364
112762
022626

140000
000004
000377

11
11

2%:

000000G

000207

32 words,
Rout ine Base:
Routin e Size:
8 words
Maximum stack depth per invocation:

5855
5856

1
1

ADD

R1,R3

ADD

44 ,R1

BIC

#140000,(R3)

DEC
B8NE

MOVB

R4
1$
#377,PKT

RTS

CMP

$CODE
¢

Apr 1984
Apr-1984

USF(R2)

(SP)+,(SP).

5660

11:56:01
11:45:02

VAX-11 Blies-16 v4,0-579

DISKSUSERZ2: [POWERS )JZRQADO.BL1;:6
;
;
;:
:
H
H
H

QING.ADDR,OWNER
o,0WNER
#,RING.ADDR
COUNT

5EQ 0168
Page 168

(50)

5844
S848
5836
5852
5827
5819

vol.6

GLOBAL ROUTINES

11:56:01
11:45:02

VAX-11

Bliss-16

v4.0

579

DISK$USERZ: [POWERSJZRQADO.BL1;6

SEQ 0169

Page

169

(51)

MSCP PACKETS WHICH HMAVE BEEN ALLOCATED

b P

novalue

THIS ROUTINE DEALLOCATES ALL
TO A PARTICULAR CONTROLLER.

INPUTS:

[t Pt P
b P

010146

000002
000004
000010
000014
000016
000024
000026
000032
000034

005000
116001
020166
001003
112760
005200
020027
003764
012601

:
;

1984
1984

incr

COUNT

CONTROLLER NUMBER

CTLR
from O

(P 'T_CNT

FOR EACH ENTRY

IF PACKET

DEALLOCATE IT

IN ALLOCATION TABLE

000000

000036

(CTLR)

Apr
Apr

s et

5869
5870
5871

11
11

routine PUTA_PKT

PKT

then

G0
Ge
G4
G
00
W0
W
Be
¢
©0
@0
@
®s
B¢

5857
5858
5859
5860
S861
5862
5863
5864
5865
5866
5867
5868

RO/RX EXERCISER

ZRQAM?

PKT

USE

[.COUNT]

eaql

USE

[.COUNT]

000000G
000004

000377

000013

1$:

000000G

2$:

PUTA,PKT GLOBAL ROUTINES

MOV
CLR
MOVB
cMP
BNE

R1, -(SP)
RO
PKT ,USE(RO),R1
R1,4(SP)
24

INC

MOove

0377,
,PKT USE(RO)

CcMP

RO, #13

BLE

1¢

MOV

(SP)+,R1

RTS

16 words,
Routine Base:
depth per invocation:
2 words

IS ALLOCATED

.SBTTL

PUTA ,PKT:

000207

Routine Size:
Maximum stack

.CTLR

$CODES

5760

TO GIVEN CONTROLLER

COUNT
«(COUNT)
, s

«,CTLR

+,e(COUNT)

COUNT
,»
COUNT

5857
5867
5859

5871
5867

5857

514
ZRQAM,®

RD ‘Rx EXERCISER
GLOBAL ROUTINES

5894

5895
5896
5897
5898
5899
5900
5901
5902
5903
5904

global

(CTLR)

INPUTS

local
index

VAX 11 Bliss 16 V4,0 579
OISKSUSFRZ:
([POWERS JZRQADO.BL1;:6

G 0170
Page tl’lo
2 )

CTMR

CONTROLLER NUMBER REQUESTING ALI QCA!ION

s gned woro

initial

(

1);

ASSUME

NONE

AVAILABLEL

1) do

FOR EACH ENTRY

IN TABLE
[S FOUND

incr COUNT

from O to (RP _CNT

‘f

[.COUNT)

1ss O

(.COUNT]

ALLOCATE

ZERD QU RETP¥TY

.RP _USE

then

index
incr

,COUNT;

CTLR,;

from O to (RP LEN

RETPKT

[ . COUNT,

.U,

1) do
16,

O’

eritloop;

! DONE

. ‘nde-;

end;

return

FREE RETPKT

begin

RP _USE

RETURN PACKET

RETURN PaCxt?

INDEX

TO CONTROLLER

[OR

TO CALLER

end;

SRTTL

0000006

000004

012703

17777

005064

11:56:01
11:45:02

beg

004137

005001
105761
002025
116661
010103
010146
012746
004737
022626
005002
010004
060204
006304

1984
1984

THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION TABLE (RP USE)
FOR A FREE RETURN PACKET TO ALLOCATE TO THE GIVEN CONTROLLER., IF ONE IS
FOUND, THE PACKET IS ZEROED QUT, AND THE PACKET INDEX IS RETURNED TO
THE CALLER, OTHERWISE, A
1 IS RETURNED INODICATING NONE AVAILABLE,

000000

000010
000012
000016
000020
000026
CO0030
000032
000036
000042
000044
000046
000050
00005¢
0000S4

rout
i ne GET RETPKT

Apr
Apr

5872
S8°%
5874
5875
5876
sa°”
58°8
5879
5880
5841
5882
58832
5884
5885
5886
588"
5888
5889
5890
5891
5892
5893

(L SLVLVEY VYV XV XV VIV RV TV VR VISR VI VIVE FRVE ol ol ol ol ol ol ol ol ol ol ol o

G2 G0

G¢ B¢

00 B9

BP0

8¢

00 Or

VOLl.6

11
11

GET.RETPXT:

700014

18:

0000006

000026
0000006

0000001,

ROU°INE',

R1,$5AVES

o, INDEX

CLR

COUnTY

MOve

14(SP) RP ,LUSE(RY)

;2;8

1,R8

QP.USE(RI)
$

201"
MOV

R1.R3
R1, (SP)

CLR

MOV
JSR
cwe
A Y

GLOBAL

JSR

MOV

0000006

GET.RETPKXT

MOV
AsL

026, -(SP)
PC.BLSMA
(SP)Ye (SP).
RO, Ra

Rt 1P T R4 )

o(COUNT)

s CTLR,e(CONT)

3 COUNT, INDE x
8t COUINT
o

5872
3889
5891

S894
5890

589°

$89%¢

Cla
SR

RD R ¢ \ERCISER

wl.e

GLOBAL

00060

005202

QM6

003767

Q0006

000070

Q000”2

000074

CRLI00
CO10S
000104

020227

ROUT INE -

000005

005201

020127

003744
010300
00020~

Max"mum gtack

00000

at:

35 woros,

aepth per

INC

BLE

cMP

000404

i Rout'ne S'ce:
i

11 Apr 1964 11:%6:01

Rout ine Base:

‘nvocat
on:

words

B8R

R2,02%

1984

11:45:02

DISKSUSER? : [ POWE R, | ZROADO .BL 1 36

1 J
i

J,e

R1,87

1 CONT,
»

INC

8LE
MOV
RTS

1
R3.RO
PC

SCODES

6020

cHe

Apr

VAX-11 Bliss 15 V4.0 579

;. COUNT

3
H

INDEX,e

‘

’mwfinlxn

(%)

5897
N33

5887
$A84
5872

D14
ZR@AM,

RD/RX EXERCISER

1) BN
3

5908

SS90

]

SQ10

3
H
H
.

global

HIC

5908
SoMm

1
1}

Sa11
S912

1
1

!
H

000002

000004
000912

11276C
000207

000377

Mav'mum stack

routine PUT

RP _USE

(16600

i Routine Size:

RETPKT

(index)

movalue

THE RETURN PACKET DESIGNATED BY
ROUTINE.

000000

11 Apr 1984 11:56:01

GLOBAL ROUTINES

[.inde~]

000000G

o words,

11:45:02

VAX-11 Bliss 15 v4,0 579

NDISKIUSERZ : [POWEFRS 1ZRQADO.BL L ;K

)EQPgé:ZITZ
(53,

' INDEX”

IS RETURNED TO THE POOL

SBTTL

PUT.RETPHT GLOBAL ROUTINE
4

MOV

2(SP),.RO

MOv8
RTS

Rout ine Base:

invocat'on:

1984

THIS

INDE7Z,»

PUT .RETPKT: ;

depth per

Apr

O words

$CODES

377
,RP _USF(RO)
PC

. 6126

S91c
590%

t 14
JRQAM,

RD/Rx EXERCISER-

GLOBAL ROUTINES

5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952

WWWWNN N NITOTINI N N

5925
5926
5927
5928
5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939

5924

000000

010146

000002
000006
000010
000014
000016
000024
000026
000030

005076
005001
105761
002011
113761
010100
006300
016076

global

routine GET

IO BW¥FF

(ADDR)

novalue

ARpr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss-16 v4,0-579
DISKSUSERZ
: [POWERS JZRQAD0.8L1;:6

5EQ 0173
Pege

173

(S4)

o s 0o 10 10 1=t Pt -8 1ot J=0 3t Pt b Pt Pt P=b 9=t Pt Pub bt pob Pt bt

VvOl1.6

5913
5914
5915
5916
5917
5318
5919
5920
5921
5922
5923

11
11

THIS ROUTINE
POOL
.

INPUTS

MANDLES

ADDRESS

ADDR

IMPLICIT
OUTPLTS

THE

ALLOCATION OF

STORE

THE

I1/0 BUFFER FROM

WORD BUFFER DESCRIPTOR

THE

ALLOCATED

BUFFER'S

DESCRIPTOR

ADDR AND "ADDR +
IF NO BUFFERS ARE

LOADED

2", OTHERWISE,
AVAILABLE.

INTO

.ADDR = 0;
from O

to (QTIO PER CTLR

.BUFF _OWN [.COUNT]

o MAX _CTLR

THE

A ZERO

beg'n

BUFFER

INPUTS:
CCTLR
CURRENT CONTROLLER NUMBER

WORDS AT
AT
ADDR"

incr COUNT

THE

1) do

1ss O

TwWO

IS RETURNED

ASSIME

FOR EACH ENTRY

IFf BUFFER

!
!
!

ALLOCATE BUFFER TO CONTROLLER
RETURN BUFFER DESCRIPTOR
DONE

ROUTINE GET

FAILURE

IN BUFFER

TABLF

IS FREE

then

begin

BUFF
OWN [.COUNT] = .CCTLR;
.ADDR = .BUFF ADDR [.COUNT];

exitloop;
end;

end;

.SBTTL
GET.IO.BUFF
::
MOV

000004

0000006
0000006 0000006

000000G 000004

1%:

CLR
CLR

1518

8GE

MOV8
MOV
ASL
MOV

GEY,.IO0.BUFF GLOBAL

ROUTINES

34(sSP)

. OWN(R1)
BUFF
23
CCTLR,BUFF ,OWN(R1)

I0_BuFF

R1,RO
RO
BUFF ,ADDR(RO),a4(
SP)

COUNT
s(COUNT

S915
S937
5939
5341

s,¢(COUNT)
,o
COUNT

SQle
33"

ADDR

¢ ,ADDR

F14
RD Rx EXERCISER
GLUBAL ROUTINES

ZRQAM.
vOl.6

000036
C00040
000042
000046
000050
000052

000404
005201
020127
003760
012601
000207

;i Routine Sice:
:

;

Max"mum stack

5352

5954

1
1

000007

Apr-1984

11 Apr-1984
o8

LI
N

22 words,
Rout 'ne Base:
depth per invocat
on:
2 words

B8R

R1
R1,87
18

INC
CMP
BLE
MOV
RTS
$CODES$

(SP)+,R1

6142

11:56:01

11:45:02

VAX-11 Bliss 16 v4,0 579
DISKSUSERZ2:
[POWERS ]1ZRQADO.BL1;:6

COUNT
,»
COUNT

5EQ 0174
Page

174

(54)

5945
5919

5915

GL4
ZRQAM,

RD/RX EXERCISER

vol.6

H
H
3
:
3
:

:
:

H
:
H

:
H
:
i
3
H
:

5955

S95%6
5957
5958
5959
5960
5961

592

1
1
1
1
1
1

5963

T
598
5969
5970
5971
5972

1
1
1
2
2
2

S9%64
5965
gggé

5973

1
1
1

010146

000002
000004
000006
00001Cc
000016

005001
010100
006300
026076
001004

000026
000030
000032
000036
000040
000042

000404
005201
020127
003762
012601
000207

000020

:
:

GLOBAL

ROUTINES

global

routine PUT

te
!
'
!
!

112761

Routine Size:
Max 'mum stack

I0 BUFF

(ADDR)

novalue

Apr
Apr

1984

11:56:01

VAX

11:45:02

11 Bliss

1€ v4 .0 S79

DISKSUSER2: [POWERS 1ZRQADO.BL 1 ;6

5EQ 0175

Page

175

(%5)

THIS ROUTINE HANDLES THE OEALLOCATION OF AN I/0 BUFFER, RETURNING IT
T0O THE BUFFER POOL.
INPUTS

ADDOR

ADDRESS OF THE 2 WORD BUFFER DESCRIPTOR TO BE
DEALLOCATED

‘ner COUNT from O to (QIO_PER CTLR ¢ MAX_CTLR
if .BUFF _ADDR
then
begin
BUFF _OWN

e~itloop;

000000

[ .COUNT] eqla
[ .COUNT]

=«

1) do

..ADDR

000377

000000G

R1,-(SP)

000007
3s:

18 words,
Rout ine Base:
depth per ‘nvocat
' on:
2 words

R1
R1,RO
RO
BUFF ,ADDR(RO),34(SP)
2

0377,BUFF _.OWN(R1)

B8R
INC
cHP
BLE
MOV
RTS

3
R1
R1,07
1s
(SP)Y. ,R1
PC

S$SCODES

+« 6216

THE BUFFER'S ENTRY

DEALLOCATE BUFFER

MOV

CLR
MOV
ASL
cMP
BNE

THIS

IN BUFFER TABLE

DONE

PUT.I0.BUFF GLOBAL ROUTINES

a[0)"]:]

2$:

.SBTTL

PUT.I0O.BUFF;:

000000G 000004

end;

1$:

! FCR EACH ENTRY

;s
;

COUNT
COUNT,
e

¢,ADDR

¢,e(COUNT)

H
s
:
H

COUNT
COUNT
, e

5955

5966
59653

5971

5970
5966

5955

H 14
ZRQAM?

RD/Rx EXERCISER

Gt.OBAL ROUTINES
b et

.
Te

!
H

ne PUTA BULFF

1984
1984

11:56:01
11:45:02

VAX-11 Bliss 16 V4.0 579
DISKS$USERZ: [POWERS]ZRQADO.BL 1 ;6

incr

COUNT

from O

5EQ 0176
Page

176

novalue

THIS ROUTINE DEALLOCATES ALL I/0 BUFFERS WHICH HAVE BEEN ALLOCATED
THE CURRENT CONTROLLER (CCTLR),

it P

010146

000002
000004
000010
000014
000016
000024
000026
000032
000034
000036

005000
116001
020137
001003
112760
005200
020027
003764
0125601
000207

Routine Size:
Maximum stack

.BUFF _OWN

then

000000

:
i

rout

Apr
Apr

(QIO

PER

CTLR

[.COUNT]

eql

.CCTLR

MAX

CTLR

FOR

EACH ENTRY

IN BUFFER

TABLE

THIS BUFFER

ALLOCATED

TO CURRENT

DEALLOCATE

(it

it Pt Pt P

global

vVOl.6

5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985

11
11

BUFF OWN [.COUNT]

.SBTTL

000377

1$:
000000G

2$:

000007

R1,-(SP)

RO
BUFF ,OWN(RO),R1
R1,CCTLR
24
4377 ,BUFF ,OWN(RO)
RO

CLR
MOVB
CMP
BNE
MOvVB
INC
cMP
BLE
MOV

RO, &7
1
(SP)+,R1
PC

RTS

16 words,

depth per

Rout ine Base:

‘nvocation:

2 words

$CODES$

PUTA.BUFF GLOBAL ROUTINES

PUT
. BUFFA
::
MOV

0000006
0000006

CONTROLLER

6262

; COUNT

s(COUNT),»

5974
5981
5983

;i ¢,o(COUNT)
;s COUNT

5985
59381

;

»
COUN.,T

5974

[14
ZRAAM?

RD/RX

6003
6004
6005
6006
6007

6008
6009
6010
6011
6012
6C13

routine OUT

QUEUE

IS ALSN UPDATED.

INPUTS:

CALLER THE NEXT RETPKT INOFX TO BE
QUFUE (I0DQ). THE “OUT"” POINTER TO

THE

INDEX

THE

RETPKT

YO BE

PROCESSED.

begin

local

index

I00@ OUT
if

word;

. I0DQ

[.IODQ

. IODQ OUT

.IODG OUT

gequ

GET

OUT];

I00Q_0UT
return
end;

IODQ_LEN

SET

. ‘ndex;

000004
000010
000014
000020
000026
J00030
000034

116000
042700
005237
023727
103402
00503/
000207

0000006
177400
0000006
000000G 000010

ADVANCE

then

0000006

Routin e Size:
Marimum stack

580 0177
Page 177
(57)

NONE

QUTPUTS:

013700

VAX-11 Bliss 16 v4.0 579
DISKS
[POWERS
$USER
]ZRGADO.BL1
Z:
;6

100G

THIS ROUTINF RETURNS TO THE
PROCESSED FFOM THE I/0 DONE

000000

11:56:01
11:45:02

global

5999
6000
6001
6002

VPN RN NN PO N N =0 0t 1t 0t 10 4t =8 pot pt Pt (ot Pt Pt s

5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998

Apr-1984
Apr 1984

11
11

GLOBAL RCUTINES

B¢

vol.6

EXERCISER

POINTER

.SBTTL

0ouT.100Q G LOBAL

MOV

R0
I100Q.0UT
IODQ(RO)
,R 0

0000006

1$:
15 words,
Routine Base:
depth per invocation:
O words

MOvVB
B8IC
INC
cMP
B8LO
CLR
RTS

$CODES

4177400,R0O

100Q.0uUT
I00Q.0uUT,
& 10
1$
100Q. VT

6322

INDEX

POINTER

BEYOND END OF

RETURN

OouT.100Q::

RETPKT

“0uT"

QUEUE

TO BEGINNING OF
TO

QUEUE

CALLER

ROUTINES
:
;

;

o, INDEX
¢.INDEX

6005
0006
6C038

0019
5985

Jl4d
ZRQAM?

RD/RX EXERCISER

vo1.6
3

6014

6017

:
i

;.
;.
H
i
i
:
H
H
H

i
:

;
:
:
;.

GLOBAL RCOUTINES
1

601S
6016

1
1

6018
6019
0020
6021
6022
6023
6024

1
1
1
1
2
1
1

6027

6025
6026

6853

1
2

global

else

I100Q {.IODQ_IN]
I0ODQ_IN =
if

000002
000006
000010
000012
000016
000020

013701
010100
005200
020037
001421
010100

000000G

000026
000032
000034
000042

020037
001413
116661
005237

000000G

000054

103402

005037

012601
000207

Routine Size:

Max'mum stack

.index;

DISKSUSER2: [POWERS JZRGADO.BL1;6

5EQ 0178
Page 178

(58)

.IODQ IN +

IF BEYOND END OF QUEUE

100@ IN

CYCLE BACK

000007

000004
000000G
000000G

000000G 000010

27 words,

1$:

Routine Base:

invocation:

2 words

I0DQ IS NOT FuLL

MOV

R1,

SuUB

27,RO

(SP)

100Q. IN,R1
R1,RO
RO
RO, 100Q.0uUT
1
R1,RO

CMP
BEQ
MOVB
INC

RO, I00G.0UT
1s
4(SP),I0DQ(R1)
100Q. IN

BLO

CMP

000000G

TO BEGINNING OF QUEUE

IN.IODQ GLOBAL ROUTINES

MOV
MOV
INC
cMP
8EQ
MOV

000000G

"IN” POINTER

.SBTTL

IN.I00Q::

depth per

' LOAD INDEX INTO QUEUE
'

end;

000062
000064

VAX-11 Bliss-16 v4.0 579

.I0DQ_IN gequ IODQ_LEN

000056

novalue

ADVANCE

then

023727

11:45:02

2
g

010146

;

begin

6031
68§§
6
6034

000046

IN I0D0Q (index)

Apr 1984

11:56:01

if (C.I0DQ IN + 1) eaql .IODQ_OUT) or
(.10DQ IN
(IODG LEN - 1) eql .I0DQ OUT)
then
return

1627C0

1984

UPDATES THE IODQ IN POINTER.

000022

Apr

THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE I/0 DONE QUEUE, AND

'
'

000000

;

routine

6030

CLR

MOV
RTS

$CODES$

I0DQ. IN, #10
100Q. IN

(SP).,R1
PC

. 6360

6014

6022

;
;
:

;
;
;

6021

INDEX,
s

6024
6027
6028

6030
6032
6014

I<L4
ZRAAMS

RD/RX EXERCISER
GLOBAL RCUTINES

6042

6043

6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064

TV IO DR RN N N 9t p=t 0 o 10 ot 1o o ot (o Pt Pt pt b

6035
6036
6037
6038
6039
0040
6041

global

routine DROP CTLR

THIS ROUTINE

incr

UNITS

from

.CST

[.CTLR,

UN)

novalue

ASSOCIATED

((UNITS_PER

OF DATA,

5EQ 0179

v4.0 S79

DISKS$USER2:
[POWERS 1ZRQADO.BL 1 ;5

Page

179

(59)

WITH

THE

CONTROLLER

DESIGNATED

CNTR

UNIT

SIZE

OF _UN)

UNIT

S1ZE

D_PRES) eql PRESENT

begin

UNIT = _CST [.CTLR, .N
DUR [.UNIT] = _REASON;
O0DU (.UNIT);

OF _DATA,

!
!
!

D_UNIT];

end;

FOR

EACH UNIT

CONF IGURED

DRS UNIT NUMBER
DROP REASON
DROP UNIT

end;

0000006

000004
000010
000014
000020
000022
000026
000030
000032
000034
000042
000044
000050
000052
000056
000064
000065
000070
000074

016646
012746
004737
010003
012702
010300

000014
000053
000000G

104451

ALL

local
UNIT;

004137

062702
020227

DROPS

REASON)

VAX-11 Bliss

beg'n

000000

060200
006300
032760
001412
016001
000301
042701
116661
010100

(CTLR,

11:56:01
11:45:02

8y "CTLR . THE REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR
VECTOR FOR EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THE DROP UNIT
SECTION.

then
= NN G

B¢

G¢

B¢

vOol.6

11-Apr-1984
11 Apr-1984

.SBTTL

DROP.CTLR::
JSR
MOV
MOV
JSR
MOV

000003

040000

1$:
000000G

000000G
177760
000016

000012
000041

MOV
MOV

ADOD
ASL
BIT
BEQ

MOV
SWAB
BIC
MOV8

000000G

es:

MOV
TRAP
ADD

cMP

DROP.CTLR GLOBAL

ROUTINES
6037
0056

R1,$SAVE3

14(5P), -(SP)

453,

(SP)

PC.BL SMUL

RO,R3
3,R2
R3,R0O
R2,RO
RO
©40000,CST(RO)
2$

CST(RO),R1

2177760,R1

16(SP},DUR(R1)

R1,RO
51
#12,R2
R2,n41

6054
6056

6059

& ,UNIT
UNIT
o ,UNIT
REASON,s(UNIT)
s
UNIT,

6060
600l

0054

N,s

| 14
ZRQAAM?
voi1.6
000100
000102
000104
;

RD/RX EXERCISER
GLOBAL ROUTINES
003752
022626
000207

Routine Sice:

BLE
cMP
RTS
35 words,

Max'mum stack depth per
6065
6066

11 Apr-1984 11:56:01
11 Apr 1984 11:45:02

1
1

Rout ine Base:

invocation:

8 words

$CODES$

1
(SP)+,(SP)»
PC
+

6446

VAX-11 Bliss 16 v4.0 579
DISK$USERZ: [POWERS]IZRQADO.BL1;6

SEQ 0180
Page

180

(59)

€049
6037

M 14
ZRQAM?

RD/RX EXERCISER

GLOBAL ROUTINES

6079
6080
6081
6082

6083

6084
6085
6086
6087
6088
6089
6090

000000

010146

000002
000006
000010
000014
000020
000024
000026
000030
000034
000036
000042
000046
000052
000054

016601
010146
012746
004737
062700
005010
010116
004737
010116
012746
004737
062706
012601
000207

;

Routine Size:

Maximum

stack

Apr

1984

11:56:01

VAX-11 Bliss 16 v4,0-579
DISK$
[POWERS
USERZ
]ZRQADO.BL1:6
:

11:45:02

SEQ 0181
Page

181

(60)

novalue

Apr

CALLED BY

DRV_TIMCHK

AND FATAL _ERROR WHENEVER

D s B

THIS ROUTINE

UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETECTED. ITS PURPOSE 1S T0O
CLEAN UP ALL CONTROLLER-RELATED DATA IN THE “DRIVER” PORTION OF THE

B '

routine DRV_CTLERR (CTLR)

C-RING COUNT,

IS IR

RING.

PROGRAM.

INPUTS:

THIS

CTLR

6069
6070
6071
6072
6073
6074
6075
6076
6077
6078

global

6067
60068

=P PPN NN N PN bt 10 1t ot ot s ot ot Pt Pt Pt Pt pot Pt

B¢

S¢

€0

vVol.6

INCLUDES MARKING THE CONTROLLER OFFLINE, CLEARING THE
AND DEALLOCATING MSCP PACKETS DESCRIBED IN THE RESPONSE

DYING CONTROLLER NUMBER

begi n

local
O_ADDR
D_ADDR
D_ADOR

ref block

= DCT +
[WORDO])

PUTA PKT

[DCT LEN,

word]

field (DCT FIELDS);

(.CTLR & DCT_LEN « 2);
= OFFLINE;

(.CTLR);

OROP_CTLR (.CTLR,

GET CONTROLLER’'S DCT ADDR

MARK DCT OFFLINE AND CLEAR CRING
RELEASE ALL PACKETS ALLOCATED TC

DU_CFATAL);

DROP ALL

end;

ROUTINE

.SBTTL
DRV.CTLERR::

ORV.CTLERR GLUBAL
R1, -(SP)
4(SP),R1
R1, -(SP)

MOV

000004

MOV
MOV
MOV

000022
000000G
0000006

per

. P)

PC,PUIA
. PKT
R1,(SP)
#6, -(SP)
PC,DROP.CTLR
%6, 5P

JSR

ADD
MOV
RTS

Rout ine Base:

invocation:

S words

$CODES

ROUTINES

: CTLR,

.RO
(=

MOV
JSR
MOV
MOV

000006
006446
000006

ORV_CTLERR

6067
6086

ADD

005760’

UNITS ON THE CONTROLLER

CNT
CONTROLLER

22, -(SP)

JSR

CLR

depth

CONTROLLER’'S DCT ADDRESS

(SP)+,R1

6554

D.ADDR

6087
6088
6089
6081

606~

N14
ZRQAM,

RD/RX EXERCISER

Apr

1984

11:56:01

VAX-11 Bliss

v0l.6

GLOBAL ROUTINES

11 Apr

1984

11:45:02

DISKS$USER?Z : {POWERS JZRQADO.BL1 ;6

:
:
H
H
H
:
:
:
:
H
H
H
H
H
:
:
:
H
:
H
H
:
:
:

H
:
H
:
H
:
H
:
:
:
;
:
H
:
:

:
H
:

H
H

H
:

:
H

6091

6092

1
1

global

6093

6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
gi{g

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
2
2
2
2
2
g

H
!
'
H
H
H
'
!
!
!
!
H
H
!-

6117
6118
6119

2
3
3

6094

6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133

2
2
4
4
4
4
4
4
4
4
3
2
3
3

6135
6136

3
2

6138
6139

3
3

6134

6137

6140
6141

6142
6143

routine

3
3

(index)

THE CURRENT RDRX

SEQ 0182

IS ONLINE

AND

ITS CRING

IS NOT FULL,

THEN

THIS

ROUTINE "SENDS” A COMMAND TO THE RORX BY LOADING THE PACKET
DESCRIPTOR OF AN MSCP 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

INDEX OF MSCP PACKET CONTAINING THE COMMAND
BE SENT
*

IMPLICIT INPUTS:
CCTLR
CURRENT CONTROLLER NUMBER
OCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT
begin
local
SLOT_ADDR,
TEMP : word,
CUR_PRIORITY
¥

word;

(.DCT_ADDR [CRING_CNT] lssu CRING LEN) and
(C.DCT_ADDR ([STAT]) eql ONLINE) or
( .MSCP_PKT [.index, OPCODE; eql OP SCC))

t
H
'

then

(not

((.MSCP_PKT [.index, OPCODE) eql OP_ACC) or ( .MSCP _PKT
(.MSCP_PKT [. ndex, OPCODE) eql OP RD) or (.MSCP PKT
(.MSCP_PKT [.INDEX, OPCUDE]) EQL OP_SDD) OR
( .MSCP_PKT [.INDEX, OPCODE) EQL OP_RCD) OR
( .MSCP_PKT [ .INDEX, OPCODE) EQL OP_GDS) OR
( .MSCP_PKT [.INDEX, OPCODE]) EQL OP_ELP) OR
( .MSCP_PKT [.INDEX, OPCODE] EQL OP ABT) OR
(.MSCP_PKT [.INDEX, OPCODE] EQL OP_ESP) OR
(.MSCP_PKT [.index, OPCODE]) eql OP_WRT)))
then

begin
PRINTF (DBM107,

SEND

16 v4,0 579

return FAILURE;

else

.MSCP PKT

[.index,

CRING IS NOT FuULL AND
IF DEVICE IS ONLINE OR
IT IS A SET CTRL -CHAR COMMAND

[.index,
[.index,
1222
1222
1222
0222
2222
1222

OPCODE]
OPCODE]

eaql
eql

OP ONL) or
OP_SCC) or

OPCODE]);

end

begin

BREAIK

until

((.,MSCP

PKT

[, index,

CMD

( .CREDIT BAL gequ 1)) or
(.CREDIT BAL gtru 1);

TYPE]

eql

IMM CMD)

and

* LOOP TILL

CREDIT BALANCE POSITIVE

Page

182

(61)

B 15
ZRe

RD/Rx EXERCISER

OLOBAL

o149
o150
6151
6152

6153

6154
615%
6156
618°
¢154
6159
6160
616}
616¢

6163

6164
6165
6166
6167
6168
6169
6170
6i71
6172
617
6174
61°%
176
61

61°8
6179
61680
6181
6182
6183
6184

000000
000004
000006
000014
000016
000022
000024
000030
000034

ROUTINES

YV P RSV IV RV XV XV YV XV RV XV XV XV RV N AY XV R N7 XV RV LY AV XV AP LV LV LV RV )

ola4
614%
6l4e
ol4”
6148

(LYY VRV YT YUYV AT

W% G0 B

G0 O

00 O

B0 00 OV

00 G0 90

G0 S0 S5 $u

OV OV G0 GV

G0 G0 B0

00 OV O

OG0

00 G0 G0 G0

vOl.e

004137
005746

127727
103100
0057177
100413
016644
012744
00437

MSCP PKT

[ index,

if .CRN LOW eql
hen

CRN HIGH =

MSCP PKT

SLOT ADDR

CARN LO]

Apr 1984
Apr-1984

11:56:01
11:45:02

VAX 11 Bliss 16 v8,0 579
DISKSUSER2:
[POWERS JZRQADO.BL L ;6

CRN LOW

ASSIGN CMD REF

CMD REF

N (HIGHM ORDER)

ADDR OF

WALT

(CRN LOW

_CRN MIGH

CRN HI)

13
=

_CRN HIGH;

.DCT_ADDR [CR NEXT]);

BREAK
until ((.(.SLOT_ADDR

GETPRI
SETPRI

2EQ 0183
Page

NUM

TILL

COMMAND

MNEYT

5107

>LOT7
HOST

JWhED

2) and tED OWN) eql 0);

(CUR_PRIORITY);
(PRIO4);

INTERRUPTS WwHILE

POINTERS

#®DATEDS

.SLOT_ADDR = .MSCP _PKT [. nde~, PKT (Q];
SLOT _ADDR = ,SLOT _ADOR . 2;
.SLOT _ADDR = .MSCP _PKT (.index, PKT HI];
.SLOT_ADOR = ,.SLOT_ADDR and (not (ED_FLAG));
.SLOT_ADDR = , . .SLOT _ADDR or ED OWN;
SLOT _ADOR = _SLOT _ADDR .+ 2;

! LOAD BUFF DESC (LO) INTO COMMAND 5L7DT
' ADVANCE TO NEXT WORD
! LOAD BUFF DESC (MI) INTO COMMAND SLCT
' CLEAR INTERRUPT FLAG IN ZASE SE'
! GIVE OWNERSHIP TO CONTROLLER
' ADVANCE TO NEXT COMMAND SLOTY

IF BE‘OND END OF CRING

CYCLE BACK

SLCT_ADDR gtres

then

SLOT ADDR

.DCT ADDR

(CR END]

.DCT_ADDR (CR BtG);

DCT_ADOR {CR_NEXT) = _SLOT_ADOR;
DCT_ADDR {CRING CNT) « _DCT_ADDR (CRING CNT]
IF (.MSCP_PXT [, INDEXx, CONNID] EQL CID MSCP)
THEN (CREDIT BAL
TEMP

_RDRX

1383

(61,

[. index,

11
11

ADOR

.CREDIT _BAL

[(RCIP,

ALL);

SETPRI (.CUR _PRIORITYr);
return SUCCESS;

TO BLGINNING

! RESTORE CR _NEXT POINTER IN OCT
! INCR 0 OF COMMANDS IN CRING
$IF MSCP COMMAND
2&e
'0ECR CREDIT BALANCE
sl
! READ IP TO FORCE PORT TO PQULL
! LOWER PRIORITY

end

else

return FAILURE;

end;

0000005
000000G 000004
0000006

000014
000106
0000000

SEND::

LS58TTL
JSR

SEND GLOBAL
R1,85AVE
S

ce8
BrlsS

a0CT.ADDR,
04
pd|

8MI]

ROU
T INE

DEVICE

ROUTINE

IS NOT

OMN'NE

SEND

03]

L 38

. ADDR
aDCT1

oLl

MOV
MOV

14(SP), (H5P)
0106, (5P)

JuR

PC,.BL sM

197

TST

toP)

INDEx,
e

Clt
-

ZR@AAM,

RO 'Rx EXERCISER

vei.e

OO0
CO004>

GLOBAL

Q00050
000052
CO0056
000062
000066
000070
000072
000074
000100
000104
000106
000112
000114

022626
126027
001167
016646
012746
004737
010002
022626
005000
156200
02002~
001445
020027
001442
020027

000122
000126
000130
000134

020027
001434
020027
001431

000120

000136

000142
000144
000150
000152
000156
000160
000164
000166
000172

000174

000176
000202
000206

000210
000212
000216
000220
000222
000226
000230
C00234
000236
000244
000246
000252
000254
000260
000264
000266
000272

000300
000304

001437

020027

001426
020027
001423
020027
001420
020027
001415
020027
0014312

010046

012746
012746
010600

10441°
0€2706
000504
104422
105762
001003
005737
001004
023727
101765
013700
005200
010037
010062
001002
005237
013762

013700
016001

11 Apr 1984 11:56:01

ROUTINES

0000226 000004
000014
000106
0000006

18:

0000226
000020
000011

000041

000N05

000001

000006

000002
000042

cMe
8EQ
cHe
8EQ

RO, 44
3s
RO, 05
3%

3EQ
cMP
8€£Q
cve
8EQ
cHe
8EQ
cHP
BEQ

33
RO, 03
3
RO, 06
38
RO, 02
34
RO, 042
33

MOV

0000006
000002

MOV
MOV
MOV

000006

2%:
3%:
000004G
0000006
000000G 000001

44 :

000000G

Ss:

0000006
0000126
0000006
000000G 0000146
000000G
000020

(SP)e,(SP),
MSCP .PKT+22(RO),
04

cHpP

000003

1984

cHp
cMeB
BNE
MOV
MOV
JSR
MOV
cMe
CLR
8IsB
cMP
BEQ
e
BEQ
cHe

B8EQ

000004

Apr

10¢
14(SP), (SP)
0106, (SP)
PC,.BL ML
RO,R2
(SP)s,(SP).
RO
MSCP . PKT22(R>)
RO
RO, 220
3
RO, @11
33
RO, 041

RO, 01

RO,

(SP)

008M107,
02, -(SP)
SP,RO

(SP)

TRAP
ADD
8RrR
TRAP
1578
BNE
TSt
BNE

17
06, SP
10¢
22
MSCP . PKT.4(R2)
43
CREDIT.BAL
5%

cHe

CREDIT.BAL,01

8Los
MOV
INC
MOV
MOV
BNE
INC
MOV
MOV
MOV

11:45:02

34
CRN.LOW,RO
RO
RO,CRN,LOW
RO,MSCP
. PKTH12(R2)
68
CRN, HIGH
CRN . HIGH MSCP ,PKT.14(R,)
OCT.ADDR,RO
20(R0O),R]

VAX-11 Bliss 16 V4.0 579

DISKSUSERS : [POWFRS JZRQADO.BL 1 ;6

INOEX,e

,EQPgsz.lfll
61,

Llee

£1ed

]

6125

6126

627

6128

6129

6120

6133

SP,e

1
3
3
H

el32
6122
6139
614l

6.4

6143

o145

i
:
!
3
t

éld”
olid
el
o182

*,5L07
. ADDR

D1%

000412
000416
000420
000422
000426
000430
000432

000434

101402

016001
010160

105210
105762

001002

005337
017716
010300
104441

012700
000401
005000
005726
C00207

OV0002

7$:

TRAP
MOV
MOV
TRAP
MOV
MOV

000200

0000006
0000026
040000

8IC

100000

BIS
MOV

0000006
000012

000010
000020

TRAP

BIT
BNE

cHP

BLOS
MOV

8s%:

0000116

MOV

INC8
1518
BNE

DEC

MOV
MOV
TRAP

000001

10¢:
11¢:

MOV
B8R

CLR

TST
RTS

;: Routine Size:
$CODES
143 words,
Rout ine Base:
: Ma» 'mum stack depth per invocation:
10 words

Apr

1984

11:56:01

11:45:02

VAX-11 Blisg 16 v4.0 579
DISKSUSERZ
: [ POWERS JZRQADO.BL L ;6

22
0 100000,2(R1;
7
40
RO,R3
9200,R0O
a1
MSCP . PKT1(R2),(R1)

MSCP .PKT.2(R2),(R1)
240000, (R1)

€100000,(R1).
DCT.ADOR,RO

R1,12(R0O)
8

10(RO),R1

R1,20(R0O)
(RO)

¢,s(SLOT.ADDR)

Y
UR
. PRIORIT
¢,C
we

100000

1984

RCUTINES

Apr

104422

032761
001373
104440
010003
012700
104441
016221
016211
042711
052721
013700
020160

GLOBAL

000310
000312
000320
000%22
€00324
000326
000332
000334
000340
000344
000350
000354
000360
000364
000366
000372
000376
000400
000404
000406

EXERCISER

R
OT
. ADD
+,SL
*,S5L0T,ADDR
¢,S5LOT ADDR
¢ ,SLOT.ADDR

®¢

vol.6

RO-Rx

JRIAM,®

SLOT.ADDR,
¢

¢,5LO0T _ADDR

SLQOT.ADDR,
«

MSCP.PKT.11(R2)
9s

CREDIT, BAL
aRDRX ,ADDR, (SP)

R3,RO
41

@1,RO

118
RO
(SP)Y.

. 6632

* ,RC.REG
CUR.PRIOKRITY,
e

56Q _01A8%
)

18<
(61)

5154
6156

£158

6159
6161

6163

s164

6165
6148

6170

6172
6173
6174

6175
6176
6177

6122
6182
6091

ELS

@lobal rcutine WAIT

BRE AK
until .1I00Q IN neq

000000G 0000006

6 words,
Rout ine Sice:
Max imum stack depth per

619¢

DISKSUSER2:[POWERSJZRAADO.BL1
;6

5EQ 0186

page 186
(62)

THE P.RPOSE OF THIS ROUTINE IS TO KILL TIME UNTIL AN RDRY
RESULTS IN A RETURN PACKET INDEX BEING DEPOSITED INTO THE
QUELE (1I00Q).

104422

023737
001773
000207

: novalue

11:45:02

VAX-11 Bliss 16 V4.0 579

o Pt -0 Pt Puo Pt Pt gt
e 40

6193
6194
6195

o186
ol18°
0188
6189
6190
6191
0192

11 Apr-1984

GLOBAL ROUTINES

voi.6

6185

11 Apr 1984 11:56:01

RD/Rx EXERCISER

ZRQAM

.10DQ OUT;

WAIT::
1$:

BREAKK FOR ACT

.SBTTL

WATT

TRAP
cMp

22
100Q. IN, 10DQ. 0UT

:
:

6193
6195

613S

BEQ

RYS

Rout ne Base:
invocation:
2 words

INTERRUPT
I1/0 DONE

$CODES

7270

GLOBAL

ROUTINES

1D
ZRQAM,.
vOol1.6
H
:

6197
6198

RD/Rx EXERCISER
Gl OBAL ROUTINES
1
1

i
H
H
H
H
H
H
:
H
:
H
:
:
:

6199
6200
6201
6202
203
6204
6205
6206
6207
6208
6209
6210
6211
6212

1
1
1
1
1
2
2
¢
2
¢
2
¢
2
2

6214

'+
'
-

BEGIN
OWN
LOCAL

X : WORD;
ANSWER : UNSIGNED WORD,
SAVESZ : UNSIGNED WORD,
SIZE

SIZE =

6222
6223
6224
6225

3
3
3
3

6226

6227

:
H
:
:

6229
6230
6231
6232

628

HI_LIMITY

005746
005237
023727
002402
005037
016600
166600
010001
010016

TABLE

WINDOW

LO_LIMIT,;

ANSWER

_ANSWER

tMAKES STIZE A 15 BIT LENGTH, OR DIV By
AND #0'077777*) MOD (.SIZE + 1);
'GIVES 15 BIT RANDOM NUMBER
1BUILD UP TO REGULAR SIZE

( ,RANDOM [.X

IF ( .ANSWER GTRU SAVESZ)

RETURN
END;

THEN ANSWER
END;
. ANSWER;

_SAVESZ;

0000006

007304
007304'
007304°
000012
000014

TRANDOMLY

AND

'ITS POSSIBLE

'S0 CHECK.

1);

FILL BIT

TO BE

1 LARGER

THAN SIZE

'END MODULAS ROUTINE
X:

000004
000006
000012
000020
000022
000026
000032
000035
000040

'SIZE OF

BLKMW

.SBTTL

MOOULAS GLOBAL ROUTINES

JSR
1ST
INC

R1, $SAVF?
(5P)
X

MODUL.AS: ;

000020

1%:

cMp
BLT
CLR
MOV
suB
MOV
MOV

VAX-11 Bliss 16 v4,0 579
DISKSUSER?2 : [POWERS JZRQADO .BL 16

580 0187

Page 18’
(6%,

!555

0222

.SIZE ¢+
1;
= ( ,RANDOM [.X]

007304

004137

'KEEP ROTATING RANDOM NUMBERS USED

SIZE =
ANSWER

ANSWER

000000

LIMIT)

SAVESZ = _HI _LIMIT
LO_LIMIT,
IF (.SIZE LEQU #0°'077777)
'IF BIT 15 NOT SET
THEN ANSWER = ((.RANDOM [.X] AND #0°'077777') MOD (.SIZE . 1))
TONLY 1% BIT WD, SO TAKE RANDOM SAMPLE
ELSE
'16 BIT WD
BEGIN

3
2
2
1

'VARIABLE FOR RANDOM WD
!FINAL ANSWER
!SAVES SIZE OF WINDOW

UNSIGNED WORD;

6215

2
3
3
3
2
3

(LO LIMIT,

THE PURPOSE OF THIS ROUTINE IS TO GET A RANDOM NUMBER BETWEEN
THE LOW AND HIGH LIMITS., THIS SHOULD WORK FOR A 16 BIT WORD.
THE "MOD* FUNC ONLY WORKS ON 15 BITS.

6213

6216
6217
6218
6219
6220
6221

GLOBAL ROUTINE MODULAS

X = X ¢ 1;
iF .X GEQ RDM LEN
THEN X = O;

:
:
H
H
H
H

:
:
:
:

11 Apr 1984 11:56:01
11 Apr 1984 11:45:02

X, 220
1$
X
12(SP),RO
14(SP),RO
RO ,R1
RO, (SP)

'
12227
$222
1227
1222
0222
222
1222
1222
1222
1222
1227
1222
1222

1222

12227
1222
V222
222
0222
1222

2'222
1222
1222
1222

0222

1222

1222
2222

1222

6198

3
3

6211
e212

:
3
3
3
3

HI.LIMIT,.
LO.LIMIT,
»
¢,SIZE
*,SAVESZ

ocld
e21%

olle

GLS
ZRQAM.

RD/Rx

013700
006300
020127
101011
016046
042716
010146

005216
004737
000421
006201

016046
042716
010146
005216
004737
006300
013701
006301
116102
042702
060200
012701
060601
020001
101402
016600
062706
000207

; Routine Size:
:

11
11

GLOBAL ROUTINES

vol1.6

000042
00004~
000050
200054
000056
0000€2
000006
000070
000072
000076
000100
000102
000106
000112
000114
000116
000122
000124
000130
000132
000136
000142
000144
000150
000152
000154
000155
000102
000166

EXERCISER

007304

MOV

Q717777

cMP
BHI

000000G
100000

MOV

2$:

(SP)
PC,BL $MOD
34

R1
RANDOM(RO), (SP)
#100000,(SP)

MOV

8IC

R1,

(sP)

INC
JSR

MOV
ASL
MOVB

8IC

ADD
MOV
ADD

000004

R2,RO

CMP
BLOS

Rout ine Base:
invocat
on:
7 words

VAX

Bl'ss

579

580 0138
Page

188
(63,

6218

SIZt .,

6217
6218

SIZt ,»

SIZE

6217
6222
6223

SIZE,
ANSWER

6225
6226

s ,ANSHKER

4(SP) RO

SAVESZ,ANSKER

7306

v4.0

DISKSUSER?:
[POWERS JZRQADO.BL1 ;6

¢
ANSWER,

PC
¢

11:96:01
11:45:02

04 ,R1
SP,.R1
RO,R1

MOV
ADD
RTS

$CODESS

(SP)

PC,BL $MOD
RO
X,R1
R1
RANDOM.2(R1),R2
2177776 ,R2

ASL

0000026
177776

6C words,

INC
JSR
B8R
ASR

MOV

007304

Maximum stack depth per

RANDOM(RO), -(SP)
2100000, (SP)
R1, (SP)

8IC

0000006

000004
000006

MOV

000000G

1984
1984

X,R0
RO
R1,077°77

ASL

0000006
100000

Apr
Apr

SAVESZ,

6228

6229
6198

HLS
ZRAAM.

RD/Rx EXERCISER
ERROR MESSAGE SUBROUTINES

6247

6248
6249
625C
6251
6252

6253
6254
6255
6256
€257
6258
6259

6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271
6272
6273

000000
000002
000006
000012
000014
000020
000024
000026
000030

R R N D) e 0t 0t 00 gt gt s st e

6242
6243
6244
6245
6246

ssbttl

010146
013701
020127
001023
012746
012746
010600

104415

012716

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX

Bliss

v4,0 579

CONTROLLER

TIME QuUT

S5EQ 0189

DISKS$USERZ: [POWERS]ZRGADO.BLL ;6

Page

189
(64
)

'ERROR MESSAGE SUBROUTINES®

routine EMS SA

novalue

¢,

H
!

THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM
THE CONTENTS OF THE SA REGISTER.

]

“"SA REG" WHICH CONTAINS

begin

‘f

.SA_REG eql

%0'177777'

then

begin
PRINTX
PRINTX
PRINTX
end

6234
6235
6236
6237
6238
6239
6240
6241

(CRLF);
(ASTERISK);
(.CNTR ERR [O1);

else

N WWWO GEN NN N G888 NN TN

6233

=DM

B¢

vOol1.6

11
11

(.SA_REG

then

begin
PRINTX
PRINTX
PRINTX
end

and %0°'003777')

lequ 22

(CRLF);
(ASTERISK);
(.CNTR_ERR (.SA_REG

If GENERIC

CONTROLLER ERROR

and so 003777'));

else
if

((.SA

then

REG

and %0'003777')

400)

lequ 6

RDRX

SPECIFIC CONTROLLER ERROR

begin

PRINTX
PRINTX

PRINTX

(CRLF);
(ASTERISK);

(.RORX ERR

[(.SA REG and %0'003777:)

400));

end

else

PRINTX

(EX

SA,

JUST PRINT

.SA REG);

EMS _TIM ();

CONTENTS

TIME

end;

.SBTTL

EMS.SA ERROR MESSAGE

MOV
MOV

R1, -(SP)
SA.REG,R1

000000G
000001

BNE
MOV
MOV

1
OCRLF, -(SP)
o1, (SP)

000000G

MOV
TRAP
MOV

SP,RO
15
SASTERISK,(SP)

0000006

1772777

EMS.SA:

cMpP

SUBROUT
INE S

6235
6244

Ri,2 1

624"
SP,e

LS
ZRQAM.

RO/RX

ERROR MESSAGE

vOl.6

000034

000040
000042
000044

¢00050
000054
000056
000060
000062
000064
000070
000074
000076
000102
000106
000110
000112
000116

000122
000124

000126
000132
000136
000140
000144
000150
000152
000154
000156
000160
000164
000170
000174
000176
000202
000206
000210
000212
000216
000222
000224
000226
000232
000236
000240
000244
000250
000252
000254
000256
000260
000262
000266

EXERCISER

012746
010690

000001

013716
012746
010600

0000006
000001

104415

SUBROUTINES
MOV

MOV
TRAP
MOV
MOV
MOV
TRAP

104415

000475
010100
2700
020027

101030

012746
012746
010600
104415
012716
012746
010600

104415
013700
042700
006300
016016

012746
010600
104415
000437
010100
042700

162700

020027
101031
012746
012746
010600

104415
012716

012746
010600
104415
013700
042700
006300
016016
012746
010600
104415
005726
000407
010146
012746
012746

11
11

B8R

18:

MOV

8IC
cMP

174000

000026

BHI
MOV
MOV

000000G
000001

MOV
TRAP
MOV
MOV
MOV
TRAP
MOV

000000G
000001

000000G

174000

8IC

0000006
000001

ASL
MOV
MOV
MOV

174000

TRAP
B8R
MOV
8IC
SU8
cHP
BHI

2%:

000620
000006

000000G
000001

0000006

174000

1763406

0000006
000002

44:

1984
1984

11:56:01
11:45:02

@1, (SP)
SP,RO
15
CNTR.ERR,(SP)
o1, (SP)
SP,RO

15
3

MOV
MOV

;

v4,0 S79

5€Q 0190
P
1
(64)

SP,e
6249

;

P,
6246

6253

6257

41, (SP)
SP,RO
15
SA.REG,RO

6258

2174000,R0
RO

(SP)
CNTR.ERR(RO),
o1, (SP)
SP,RO

15
3¢

6255
6c52

R1,RO
4174000,R0

€620,R0O

RO, %6

#174000,R0
RO
RDRX ,ERR 1440(R0),(SP)

MOV

Bliss

DISKSUSERZ:
[POWERS JZRQADO.BL 1 ;6

QASTERISK ,(SP)

BIC

B8R

eCRLF, (SP)
@1, (SP)
SP,RO
15

QCRLF, -(SP)
a1, (SP)

MOV
MOV
MOV
TRAP
T1S7

VAX

R1,RO
#174000,R0
RO, 026
23

MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
ASL

000001

Apr
Apr

SP,RO
15

SP,e

SP,s

SP,e

QASTERISK,(SP)

@1, (SP)
SP,RO
15
SA.REG,RO

&1, (SP)
SP,RO

R1, (SP)
2EX.SA, (SP)

@2,

(SP)

pled
6202
270

J15
ZRAAM?

RD/RX EXERCISER

vol.6

000272
000274
000276
000302
000306

000310

ERROR MESSAGE
010600
10441S
004737
062706
012601

207

000000V
000006

11-pr-1984 11:56:01

SUBROUTINES

21 Apr
MOV
TRAP
JSR
ADD
MOV

SP,RO
15
PC,EMS.TIM
#6,5P
(SP)+,R1

RTYS

: Rout
' ne Size:
101 words,
Rout ‘ne Base:
$CODES
; Max"'mum stack depth per invocation:
7 words

7476

1984

11:45:02

VAX-11 Bliss 16 v4,0 579

DISKS$USERZ : [POWERS JZRQADO.BL L ;5
;s
s
H
:

5€Q 0191

Page 191

(64)

SP,e
6&27¢
642
6235

<1
RO/RXx EXERCISER

ZRQAM.

ERROR MESSAGE

6283
6284
6285

6286
6287
o288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324
6325
6326

NI PY D) 3o 10 0o o gt Pt po pus put

6280
6281
6282

6274
6275
6276
6277
6278
6279

(C RS JURE RV RV RV RV RO YU RV RV YU NV RV XU RV RV RV RO NO RV RO RV NV RV NV RV RV XV RV AV RV RV RV 1V 1}

B¢

€8

vVol1.6

11 Apr 1984 11:56:01

SUBROUTINES

routine EMS_SBC

novalue

Apr

1984

11:45:02

VAX 11 Bliss 16 v4
0 579

DISKSUSERZ: [POWE :S]1ZRAADO.BL1;:6

THIS ROUTINE

PRINTS

(EXTENDED)

THE

GLOBAL

DATUM

“SB_CODE'

(SuB

CODE)

EITHER THE STATUS CODE (ST_CODE) OR THE SUB CODE IS NON ZERO. (A
NON-ZERO SUB CODE ALWAYS HAS SIGNIFICANCE, WHEREAS A ZERO SUB CODF
HAS MEANING WITH A NON ZERO STATUS COOE).

ONLv

beg'n
if

(.ST_CODE

.SB

CODE)

neq O

5J8

SUB

CODE

ONLY

thenbegin

PRINTX

case

(EX

SB);

.ST_CODE

from 5T

SUC

to ST

CODE

DRV of

set

[ST_SUC]):

if .SB_CODE lequ 16

thenPRINTX (.7TBL SuC [.SB_CODE]);

[ST_CMD]:

PRINTX (EX_SBO,

(ST_ABO]:

[ST OFL]:

- 8);:

leaqu 8

thenPRINYX (.TBL_OFL [.SB_CODE
1);

(ST AVL]:

[ST MFE]):

(ST _WPT]:

.58 CODE

.SB_CODE

.S8_CODE

lequ 10

thenPRINTX (.TBL MFE (.SB CODE1);
if (.SB_CODE 7/ 128)

leau 2

! SUCCESS SuB CODES

INVALID COMMAND

COMMAND ABCRTED

UNIT OFFLINE

UNIT

MEDIA FORMAT ERROR

WRITE PROTECTED

COMPARE ERROR

thenPRINTX (.TBL WPT [(.SB CODE ~/ 128)1);

[ST_CMP]:

[ST_DAT]:

.SB CODE

lequ 15

AVAILABLE

! DATA ERROR

thenPRINYX (.TBL DAT [.SB CODE]);
[ST HST]:

[ST_CNT]:

.S58 CODE

lequ 4

HOST

“f

.SB CODE

lequ 3

CONTROLLER ERROR

thenPRIN!x (.TBL_HST [.SB CODE));
then

ACCESS ERROR

ON ERROR

580

019
Paée2192

(6S)

L 15
ZRQAM.

RO/RX EXERCISER

vO01.6

ERROR MESSAGE SUBROUTINES

;.
:
i

6327
6328
©329

3
3
3

:
:
:

6231
6332
6333

6330

6334

6335

6337

:
:

633

6338

{ST_DRV]:

3
3
1

000134
000140
000144
000146
000152

012746
004737
010016
012746
012746

000010
0000006

000160
000162

0000006
000001

0000006
000013

000000°
000000G
0000006
000002

000000G 000020
000000G

000000°
000001

000000G

0000006
000002

010600

104415
062706

16 V4.0-579

DISKS$USER2: [POWERS 1ZRQADO .BL1;:6

5EQ 0193
Page 193

(65)

[.SB CODE));

lequ 8

DRIVE ERROR

JUST PRINT SUB CODE

PRINTX (.TBL DRV [.SB_CODE));
.SB_CODE);

IF NO MATCH

end;

0000006
0000006

000156

VAX-11 Bliss

end;

013700
053700
001001
000207
012746
012746
010600
104415
013700
020027
101003
006300
066007
013716
012746
012746
010600
104415
022626
000435
023727
101165
013700
006300
016016
012746
010600
104415
000565

013716

.S58 CODE

PRINTX (EX SBO,

tes;

then

[outrange]:

11:56:01

11 Apr 1984 11:45:02

PRINTX (.TBL CNT

000000
000004
000010
000012
000014
000020
000024
000026
000030
000034
000040
000042
000044
000050
000054
000060
0000€4
000066
000070
000072
000074
000102
000104
000110
000112
000116
000122
000124
000126

000130

11-Rpr-1984

000006

.SBTTL
EMS . SBC : MOV
8IS
BNE
RTS
13:
MOV
MOV
MOV
TRAP
MOV
cMP
BHI
ASL
ADD
3
MOV
MOV
MOV
MOV
TRAP
cMP
BR
as;
cMP
BHI
MOV
ASL
MOV
MOV
MOV
TRAP
BR

5%:

MOV

EMS.SBC ERROR MESSAGE
ST.CODE RO
S8.CODE ,RO
18
PC
9EX.SB, (SP)
81, (SP)
SP,RO
15
ST.CODE ,RO
RO, 013
34
RO
P.AAA(RO),PC
S8.CODE, (SP)

9EX.SBO,

(SP)

82, -(SP)
SP,RO
15
(SP)+,(SP).
63
S8.CODE , #20
14

S8.C0DE RO
RO
TBL .SUC(R0),(SP)
81, (SP)
SP,RO

SUBROUTINES
;

5285

;

6288

;
:

6290

;
;

Case dispatch

;

SP,e

'
6333

;
:

6290
6293

6295

;

SP,e

15
15¢

MOV
JSR
MOV
MOV
MOV

SB8.CODE, (SP)

210, (SP)
PC.BLSDIV
RO,(SP)
0EX.SBO, (SP)
#2,-(SP)

;

MOV

5P ,RO

;

TRAP
ADD

SP,e

15
#6,SP

6297

SP,e

MLD
ZRQAM?

RD/RX EXERCISER

VOl1.6

ERROR MESSAGE

000166
000170
000176
000200
000204
000206
000212
000216
000220
000222
000224
000232
000234
000240
000242
000246
000252
000254
000256
000260
000264
000270
000274
000276
000302
000304
000306
000312
000316
000320
000322
000324
000332
000334
000340
000342
000346
000352
000354
000356
000360
000366
000370
000374
000376
000402
000406
000410
000412
000414
000422
000424
000430

000546
023727
101142
013700
006300
016016
012746
010600
104415
000527
023727
101124
013700
006300
016016
012746
010600
104415
000511
013716
012746
004737
005726
020027
101100
006300
016016
012746
010600
104415
000467
023727
101064
013700
006300
016016
012746
010600
104415
000451
023727
101046
013700
006300
016016
012746
010600
104415
000433
023727
101030
013700
006300

000000G 000010

SUBROUTINES
6$:

7%:

000042
000001

8s:

0000006

000064
000001

000000G
000200
0000006

9s:

000002

10$:

11¢:

0000006

000160’
000001

000000G

8R
cMP
BHI

MOV
ASL
MOV
MOV
MOV
TRAP

000120
000001

000000G 000003

CMP

BHI
MOV
ASL
MOV
MOV
MOV
TRAP
B8R
MOV
MOV
JSR
TST

ASL
MOV
MOV
MOV
TRAP

0000006

000000G 000004

B8R
cMpP
B8HI

CMP
BHI

000112’
000001

000000G 000017

MOV
ASL
MOV
MOV
MOV
TRAP

0000006

000000G 000012

12¢:

B8R
CMP

Apr

1984

11:56:01

11:45:02

VAX 11 Bliss 16 v4.0 579
DISKSUSERZ: (POWFRS]JZRQADO.BLL1: 6

16$

SEQ 0194
Page

194

(65)

SB8.CODE,
#10

62°0
6201

<8.CODE ,RO

5303

16$

RO
TBL.OFL(RO),(SP)

o1, (SP)
SP,RO
15
15
SB.CODE.#12
16%
S8.CODE ,RO

;

SP,s
6307

6309

TBL.MFE(RO),(SP)

81, -(SP)

SP,RO
15
15¢
S8.CODE, (SP)
9200, -(SP)

6311

PC.BLSDIV

(SP).

RO, %2

168

RO
TBL.WPT(RO),(SP)
01, (SP)
SP,RO

6313

SB.CODE, #17
168
S8.CODE ,RO

6317

15
15

RO
TBL.DAT(RO),(SP)

6319

@1, (SP)
SP,.RO
15

15¢
%4
SB.CODE,

8HI
MOV
ASL
MOV
MOV
MOV
TRAP

16%
S8.CO0E ,RO
RO

cMP

SB.CODE,#3

8HI
MOV
ASL

Apr

6321
6323

TBL.4ST(RO),(SP)

41,

(SP)

SP,RO
15
15¢

164
SB.CODE ,RO

6325

NLS
ZRQAM2

RD/RX

vOl1.6

ERROR MESSAGE

000432
0004 36

000442
000444
000446

000450
000456
000460
000464
000466
000472
000476
000500
000502
000504
000506
:

016016
012746
010600
104415
000415
023727
101012
013700
006300
016016
012746
010600
104415
005726
022626
000207

EXERCISER

SUBROUTINES

000172’
000001

000000G 000010

138

0000006

000202°
000001

15¢:
16$:

Size:
164 words,
Rout ine Base:
7 words
Mar.imum stack depth per invocation:

000000

000024
000060

000434
000120
000434

000154
000210
000434
000254
000310
000344
000400

P.AAA:
2$:

SP,RO
15
15
SB.CODE, #10
164
SB8.CODE ,RO

BR
cMP

BHI
MOV
ASL
MOV
MOV
MOV
TRAP
TST

11:56:01
11:45:02

VAX

11 Bliss

16 v4 .0-579

DISKSUSER2: ([POWERS)ZRQADO.BLL ;5

RO
TBL .DRV(RO),(SP)

el,

SEQ 0195
Page 195

(65)

cMP

SP,s

6329

6331

H
H

6287
6274

(SP)

SP,RO
15
(SP).
(SP)+,(SP).

RTS

$CODES

Apr-1984
Apr 1984

TBL.CNT(RO),(SP)
21, -(SP)

MOV
MOV
MOV
TRAP

Routine

000000
000002
000004
000000
000010
000012
000014
000016
000020
000022
000024
000026

11
11

10010

.PSECT

$PLITS,

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

24
60
434
120
434

154

210
434
254
310
344
400

RO,

;
;
;
:
:
:
;
;
:
;
;
:

CASE Table for EMS.SBC.0044

[43)
[5%)
(168)
(78]
(168)]
(83]
[9%)
(168)
[108]
(118)
[(123%)
[133)

6290

Bl
RD/Rx EXERCISER
ERROR MESSAGE SUBROUTINES

ZRAAM
R RT, P, A et s po bt pe g0 gt oo b0 b o

6s%9
o340

rout ine EMS CMD

~ovelue

THIS ROUTINE

Apr
Apr

1984
1984

11:%56:01
11:45:02

PRINIS

INPUTS:

p‘ (J

(/1"‘;
Page L%
6,0
0
2%

(EXTENDEO)

THE

OPCODE

AND COMMAND MODIF IER

PRESENT) OF THE CURRENT RETURN PACKET, THESE FIELDOS ARE
INTO ENGLISH TEXT RATHER THAN PRINTED AS RAW NUMBERS,
IMOLICTIT

VAX 11 Bliss 16 v4.0 479
DISMSUSERS
: [POWERY 1 ZRGADD AL L ;¥

ADDR

ADDRESS

THE

CURRENT

(IF

"TRANSLATED

RETIURN PACKET

beg'n

PRINTX

(Ex

CMD);

selectoneu (.RP ADDR
set

[ENDCOD]

COMMiND
:

ano OP MSK) of

PN NN W RN W WP

[« )

fOP_OMNL]:

PRINTX (EX ONL);

! ONL INE

{OP ACC]:

PRINTX

(EX ACC);

nCCEHS

{OP_RD}:

beY'n

PRINTX

(EX

READ

ADDR

CIMPARE

WRITE

COMPARE

.RP

RD);

(CMDMOO]

neq O

then

PRINTX

(Ex

CTMP,;

end;

6372
6373

6374
6375
6376
65"

6378
6379
6380
6381

(0P WRT]:

6370
6371

PPN

©F

Ve €0

BT G2

B¢ G0 90

U5 G2

Be G0 G0

G5 O

vOl.¢

11
11

PRINTX

(EX

WRT);

_RP ADDR

then

PRINTX

[CMDMOD] neq O
(EXx CMP);

end;

[otherwise):

tes;

PRINTX (Ex OP,

L9BTTL
.PSECT
004137
012746
012746
010600
104415

.RP ADDR {ENDCOD]):

end;

010520

000000
000004
000010.
000014
GCO0s

begin

0000006
0000006
000001

EMS.CMD: USR
MOV
MOV
MOv

TRAP

EMS.CMD ERROR MESSAGE
$CODES,
RO

R1,$SAVER
®Ex.CMD, (SP)
o1, (5P)
SP.RO
15

¢+ ENDCODE

VALUE

EM, CMO

ROUTINE

NJ MA7 7w

SUBROUTINE5

3
:

r-'lo
ez

Cle
RO Rx

EXERCISER

ERROR MESSAGE

018702
116201
042701

020127
001007
012716
012’46
010600

SUBROUTINES

0000000
%
00001

RP . ADDR,R?2

0000:1

R1,011

000000G
000001

o1,

010600

104415
013700
005760
001434
012716
012746
010600
104415
000424
000162

000170
000174
000176

000200

000204
000210
000¢c12
000216
000222
000224
000226
000230
000232
000234
000236
000242
000244
000252
000254

020127
001024
012716
012746
010600

104415
013700
005 °60
0C1407
012716
012746
010600
104415
005726
005726
000412
005016
116216

012746
012746
010600

104415

18:

VAX

Bliss

v4,.0 579

DISKSUSER.:
(POWERS JZROADO.BL 14

3£0_0197

Poge 1%/
(84
)

5753
£3%%

(SP)

SP,RO
15
Ss

R1,0820
24

4358

ot x ACC,(SP)

0000006
000001

000041

11:%:01
11:45:02

1
OEX ,ONL ,(SP)

104415

012746
010600
104415
000452
020127
001022
012716
012746

1984
1984

2177600,R1

177600

000020

Apr
Apr

14(R2)
R1

00C464

02012~
00100~
012716

11
11

o1,

(SP)

SP.RO
15

2s:

0000006
000001

000012
000000C
000001

WP,
e

6360

R1,041)

3
0EX.RD,(SP)
o1, (SP)
SP.RO
15
RP.ADDR,RO
12(RO)
S
oEx . CMP,(SP)
o1, (SP)
SP.RO

6361

6363
5365
P,

000042

3s:

000012

63697

(SP)
WRT X
OE
o1, (SP)
SP,.RO
15
RO
RP ,ADDR
12(RC)
S

000001

3170
\p.‘

oExX CMP,(SP)
@1, (SP)

000001

as;

S$;

000014
0000006
000002

4%
R1,042

68:

SP.RO
15
(5P )

(5P)s

-2
2

i
(SP)

[ LI}

14(R2),(SP)

®X. 0P, (SP)
02, (5P)
SP.RO

SP,e

D1Lf
JRQAM

RD/Rx EXERCISER

vOL.e

t RROR MESSAGF

0025
000260
00262

022620
022626
000207

Routine Sice:

Max'mum stack

7%:

990 words,

depth per

11 Apr
11 Apr

SUBROUTINES

Rout ine Base:
9 words

‘nvocation:

oHP
cme

(SP)Ys ,(SP)s
(5P)e.(SP)e

RTS

$COOLs

10520

1984
1984

11:%:01
11:45%:02

VAX 11 Bliss 16 v4.0 579

DISK$USERS : [POWERS JZRIADO . BL 1 ;6
:
:

’2092520196
(65,)

6350
£339

[
ZRAAMY

RD/Rx EXERCISER

vol.6

1
i
i
i
i
i
i
:
i
i
:

3
;.
i
1
;.
;.

ERROR MESSAGE

11 Apr 1984 11:56:01

SUBROUTINES

Apr

1984

11:45:02

DISKSUSER2:
[POWERS JZRNADO.BL 1 ;4

GLOBAL ROUTINE EMS DBN : NOVALUE ',
'
THIS ROUTINE PRINTS THE PRESENT DBN
'
'
IMPLICIT IMPUTS:
'
CST ADDR
ADDRESS OF CONTROLLER STATUS
'

2
2

BEGIN
PRINTB (Xxx13,

639%
6394
6395
6396
6397
6398

2
2
2
2
2
1

[.CUOFF . OF DBN, D DBN]);
t“DBN: XXXXXX," 222
PRINTB (XX32, .S_DUPPKT
2);
'PRINT BYTE COUNT
0222
PRINTB (XX33, .S_PATTERN);
'PRINT THE PATTERN
0222
PRINTB (XxX34, .(DUPPKT + .S DUPPKT), .(DUPPKT + .S DUPPKT));
'PRINT THE WORD READ
EMS _BLK (DUPPKT .2, 256);
'PRINT WHOLE BLOCK READ 1222
END;
*IN OCTAL
8222

1
1

PRINTB

000000

013746

000000G

000004

012786

0000006

000010
000014
000016
000020
000024
000026
000032
000034
000040
000042
000046
000052
000056
000060
000062
000066
000072
000076
000102
000104

000106

000112
000116
000122
000124
000126
000132
000136
000140

000144

012746
010609
104414
013700
006300
063700
005016
116016
005046
116016
012746
012746
010600
104414
013716
162716
012746
012746
010600
104414

013716

012746
012746
010600
104414
013700
016016
011646
012746

012746

(XxXx23,

.COISK);
.CST

000000G

000020
000020
000000G
000003

0000006
000002

000000G
000000G
000000G

000003

DBN,

1DISk

D DBN!,

Xa¥

.CST_ADDR

.SBTTL

EMS.DBN ERROR MESSAGE

MOV

COISK,

MOV
MOV
TRAP
MOV
ASL
ADD
CLR
MOVB
CLR
MOVB
MOV
MOV
MGV
TRAP
MOV
suB
MOV
MOV
MOV
TRAP

82, (SP)
Sk ,RO
14
CUOFF ,RO
RO
CST.ADDR,RO
(SP)
20(R0O),(SP)
-(SP)
20(R0),(SP)
oxx23, -(SP)
23, (SP)
SP,RO
14
S.DUPPKT,(SP)
02,(SP)
axx32, (SP)
02, -(SP)
SP,RO
14

MoV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV

oxx33, (<pP)
02, (SP)
SP,RO
14
S.DUPPKT,RO
DUPPKT(RO),
(SP)
(SP), (SP)
oxx34, (SP)

MOV

000000G

[.CUOFF

EMS.DBN:
:

000002

000000G
000002
000000G
000002

ADDR

TABLE

MOV

(SP)

axx13, -(SP)

S.PATTERN, (SP)

83, (SP)

VAX-11 Blies 15 v4 .0 579

o382
o633%
6384
6385
6386
6%87
o388
6389
6390
6391

P 6392

1
1

1+,
G179

P;:pe 17
{‘4

0222
0222
0222
0222
0222
0222
0222
0222
0222
' 222
0222

0222

SUBROUTINES
:
;

RN
GP,e

]
5393

5P,

634

SP,e

PR
3

€395

SP,e

)

I
ERROR MESSAGE

vol.6

000150
000152
000154
000160
000164

000170
000174

11 Apr 1984
11 Apr-1984

RO/Rx EXERCISER

ZRQAM.
010600
104414
012716
012746
004737
062706
000207

SUBROUTINES

€333
0400

1
1

SP,RO
14
AUPPKT2,(SP)

0000026

9400, (SP)
PC.EMS
., BLK
034 ,5P
PC

000000V

63 words,
Rout ine Base:
$CODES
: Routine Size:
15 words
; Max‘mum stack depth per invocation:

11004

11:56:01
11:45:0°2

VAX-11 Bliss 16 v4 .7 579
ODISKSUSER?
: [POWERS JZRNDADO.BL L : 6

560 0200
Page

<00

Gl
ZRQAM,

RO/Rx

vOol.é

ERROR MESSAGE

640"
6408
6409
6410
6411
6312
6413
6414
6415
6416
641~
6418
6419
6420
6421
6422
6423
6424
6425
6426
6427
6428
6429

ROUTINE EMS BLK

(AODR,

Rpr

1984

11:%6:01

VAX-11

Apr

1984

11:45:02

DISKSUSER2
: [POWERS JZRQADO.BL 1;6

010146

000002
0C0006
000012
000014
v00016
000020
000022
000024
000026
000032
000034
000040

012746
012746
010600

104415
005001
000445
010100
005300
032700
001007
012716
012746
010600
104415
005726
017616
t12746
(12746
¢10600

LENGTH)

NOVALUE

Bliss

V4,0 579

SEQ 0201

’

Page ¢N1

1222

1227

BEGIN
LITERAL
PRINTX

THIS ROUTINE WILL PRINTX A BLOCK OF MEMORY, WHICH IS 'LENGTH'
1222
WORDS LONG STARTING AT ADDRESS
ADDR'. PRINTING IS DONE IN OCTAL!Z2ZZ
8 WDS TO A LINE,
1222
1222

1222

MASK

W22
0222

;

0222

(CRLF);
INCR COUNT FROM 1 TO .LENGTH DO
BEGIN
IF (C.COUNT - 1) AND MASK) EQL
THEN
PRINTX

000000

000044
000046
000050
000052
000056
000062
000046

SUBROUTINES

e
s 0=t 02 00 0=t 1t 1ot g

6406

6405

T PO PO NI

6404

GLOBAL

8 8 B (Lt b 8

6403

0222

‘FOR EACH WD
O

(SPACEAQ);

'IF

START

tPRINT

TO PRINT

OF NEW LINE
BLANKS

2222
1222
0222
222
1222
!555
[]

PRINTX
ADDR =

(EX_WRD,
..ADDR);
_ADDR .2;

'PRINTX A WORD
*TO NEXT ADDRESS

1222
!5%5
9

6401
6402

EXERCISER

END;

((C.COUNT AND MASK) EQL O)
(.COUNT EQL .LENGTH))
THEN
PRINTX (CRLF);
END;

.SBTTL

000000G
000001

EMS.BLK::
MOV
MOV
MOV
MOV
TRAP
CLR

1$:
000007

000012

000000G
000002

2s:

'END OF . INE
' WHEN DONE
'PRINT

CR LF

EMS.BLK ERROR MESSAGE

'W222
0222
1¢e22
02222
0222
1222

SUBROUTINES

R1, -(SP)
OCRLF, (SP)
¢1, (SP)
SP,RO
15

:
:
1

SP,e

COUNT

MOV
DEC

R1,RO
RO

COUNT
e

BNE
MOV
MOV

2
O5PACEA,(SP)
a1, (SP)

MOV
TRAP
ST

SP,RO
15
(SP>.

B8R

8IT

0000006
000001

o402

64:.4

27.RO

«419

SP,e

MOV

8312(SP),(SP)

ADDR,
e

MOV

SP,RO

SP,e

MOV
MOV

0415

0EX
. WRD,
82, (SP)

(SP)

od]
]

I"L*)
ZRQAM?

RO/RX

vol.6

000070
000072
000100
000104
000106
000112
000114
000120

000124
000126
000130
000132
000134
000136
000142
wolad
000146
000150

ERROR MESSAGE

104415

062766
032701
001403
020166
001007
012716
012746
010600

022626
005201
020166
003727
022626
012601
000207

Routine

Maximum stack
6430
6431

000002
000007

Size:

1
1

11
11

SUBROUTINES
TRAP
ADD

000016

000014

0000006
000001

104415
005726

:
H

EXERCISER

Ss$:

000010

BIT
BEQ
cMP
BNE

53 words,

Rout ‘ne Base:
8 words

invocat on:

MOV
MOV
MOV
TRAP

VAX

11 Bliss

v4,0 579

DISKSUSERZ : [POWERS 1ZRGADO.BL1;:6

INC

13
(SP).,(SP).
(SP).,R1

OCRLF ,(SP)

R1
R1,10(SP)

CcMP
BLE
cHP

el, (sSP)
SP,RO
15
(SP).
(SP)s,(SP).

cMe

$CODES$

11:56:01
11:45:02

R1,14(SP)

MOV
RTS

depth per

1984
1984

380 6202
Page 202

(68,

92,16(SP)
@7,R1

Apr
Ag=

11202

¢,ADDR

£4.2

o,COUNT

6424

COUNT, LENGTH

5425
LYP

SP,e

s
H
:

644

COUNT

6415

COUNT,LENGTH
:

+#41C
65402

[
RD/RX EX ERCISER

ERROR ME SSAGE

[»
&
b
»
n

AR N G

000000
000004
000010
000012
000020
000022
000026
000030
000034
000040
000042
000044
000050
000054

0N GNP TN G

6461
6462
6463
6464
6465
6466
6467

013700
105760
100417
132760
001013
016046
011646
012746
012746
010600
104415
062706
013700
105760

novalue

Apr 1984
Apr-1984

11:56:01
11:45:02

VAX 11 Blies 16 va4
G 579
DISKSUSERZ
: [POWERS JZRGUADO .BL 16

5EQ G203
Page

<03

(6,

N N A GIR) R) N) 1o 00 =0 b 1t gt Pt b b Pud Pt b Pt

O
G¢ Gv Vo G0 O
O
O
G0 S0
G0 G) Ye
Gs GF Gv G2
S6
OS¢
B¢ O
G2
B3
W1
0
S5
Be
s
¢
@
@5
@5
@
B0
®e
@

SUBROUTINES

rout ine EMS_LBN
!

11
11

THIS ROUTINE PRINTS (EXTENDED: ONE OF TWO BLOCK NUMBERS APPEARING IN
THE CURRENT RETURN PACKET. NORMALLY, THE LBN FIELD IS PRINTED; THIS
FIELD WAS COPIED INTO THE RETURN PACKET FROM THE ASSOCIATED COMMAND

'
]

!
H

PACKET. HMOWEVER, IF THE “FLAGS' FIELD OF THE CURRENT RETURN PACKET
INDICATES "BAD BLOCK REPORTED”, THEN THE “FIRST BAD BLOCK” FIELD IS

PRINTED.

[]

'
H

IMPLICIT

[]

INPUTS:
RP ADDR

ADDRESS OF

THE CURRENT RETURN PACKET

begin

(not BIT_TST

then

PRINTX

(RP_ADDR

(RP ADDR

(EX LBN,

(FLAGS),

(FLAGS],

.RP_ADDR

£F _BBR)) and

EF_BBU))

[LBN_LO),

.RP_ADDR

PRINTX (EX_B88BU,

.RP_ADDR (BBLK_LO),

.RP_ADDR

PRINTX (EX B8,

(BIT_TST

.RP_ADDR

(RP_ADDR

(BIT_TST (RP_ADDR

then

PRINTX

(Ex_B81,

(B8BLK_LO),

[FLAGS]),

[FLAGS),
.RP

ADDR

EF _BBR))

EF BBU))

(8BLK _LO),

.RP ADDR

IF BAD BLOCKS FOIND AND REPLACETD

IF HOSTYT REPLACEABLE BAD BLOCK FOUND

[BBLK_LO]);

andg

.RP

(BBLK LO1);

if (BIT_TST (RP_ADDR [FLAGS], EF _BBR)) and
(not BIT TST (RP ADDR (FLAGS), EF 88U))

then

IF NO BAD BLOCK FOUND

[LBN_LO1);

if (not BIT_TST (RP_ADDR (FLAGS], EF _BBR)) and
(BIT_TST (RP ADDR (FLAGS]), EF BBU))
then

ADDR

"WAN

HOST

REP_ACEABLE

84AD 8L ICv

F2NC

(BBLK _LO]);

end;

.SBTTL
EMS.LBN:MOV

0000006
000015

000100

7818

8MI1

000015

gITB
B8NE

000050

MOV

0000006
000003

000010
0000006
000015

1$:

EMS.LBN ERROR MESSAGE
RP .ADDR,RO
15(RO)

9100,15(R0O)
1$

SO(RO),
(sP,,

sd4dd

~d39

~d5,

(SP)

MOV
MOV

QEX.LBN,
a3, (5P)

MOV
TRAP
ADD

SP,RO
15
#10,SP

MOV
1518

(5P)

SUBROUTINES
:

(SP)

RP,ADDR ,RO
15.R0O)

J1o
ERROR MESSAGE

vOl.6

000060
000062
000070
000072
200076
000100
000104
000110
00C112
000114
000120
000124
000130
000132
000140
000142
000146
000150
000154
000160
000162
000164
000170
000174
000200
000202
000210
000212
000216
000220
000224
000230
000232
00C234
000240

;

11
11

RD/RX EXERCISER

ZRQAM.
100417
132760
001413

000100

SUBROUTINES
8MI
BI8
8EQ

0V0015

016046

000040

MOV

012746
012746
01060C

0000006
000003

MOV

011646

104415
062706
013700
105760
100017
132760
001013
016046
0l1646
012746

012746

000100

28:
000015

000040

0000006
000003

000207

Routine Size:

Maximum

stack

000010
000000G
000015
000100

€100, 15(RO)

28
40(RO),

(SP),

3s:

000040

000010
4%

81 words,
Rout ine Base:
6 words
depth per ‘nvocation:

VAX-11 Bliss

16 v4.0 579

OISKSUSER?
: [POWFRS JZRGADO.BL 1 ;6

2EQ 0204

Page <04
(&9,

K44
6456

#10,5P
RP,ADDR,RO

5458

€100,15(RO)

6459

3¢

40(RO),

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
1518

(SP)

(SP), (SP)
otx.B88, (SP)

6461

(SP)

SP,RO

@10,5P
RP.ADOR,RO

15(RO)

9100,15(R0)
43

40(RO), (SP3
(SP), (SP)

9Ex.B881, -(SP)

03, -(SP)

SP,RO
15
210,5P
PC

RTS

$CODES

1,:56:01
11:45:02

(SP)

15(RO)
3

MOV
MOV
MOV
MOV
TRAP
ADD

0000006
000003

(SP)

1984
(984

SP,RO
15

MOV
TRAP
ADD
MOV
1ST8
B8PL

8PL
gIT8
8EQ
MOV

000015

(SP)

eEx .88V,

03,

8IT8
BNE

010600

104415
062706
013700
105760
100017
132760
001413
016046
011646
012746
012746
010600
104415
062706

MOV
MOV

000010
0000006
000015

Apr
Apr

11354

64672
6464

6466

]
e,
2RQAM

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

000000
000004
000010
000014
000020
000022
000024
000030
000034
000040
000044
000046
000050
000054

013700
016046
012746
012746
010600
104415
013700
016016
012746
012746
010600
104415
062706
000207

Rout ‘ne Size:

<«imum stack

novalue

Apr
Apr

1984
1984

11:56:01
11:45:02

vAX-11 Bliss 15 v4,0 579
DISKSUSERS
: [PNWER, ]ZRIADO.BL L ;¥

SEQ 0205
Page

(7¢,

THIS ROUTINE PRINTS (EXTENDED) BOTH BYTE COUNT FIELDS OF THE CURRENT
RETURN PACKET: THE BYTE COUNT FROM THE COMMAND PACKET AND THE
ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THF RESPONSE PACKET),

NTFT

XY FT RE

WP
Y

rout
i ne €EMS BC

IMPLICIT

L XL

64°S
6476
6477
6478
63479
6480
6481
6482

o Y PN

B¢

G¢

6468
6409
6470
6471
6472
6473
64 ~4

0t et gt gt gt =t Pt bt Pt Put ot

vVOl.6

11
11

INPUTS:

ADDR

ADDRESS

THE

CURRENT

RETURN

PACKET

begin

PRINTX
PRINTX

(Ex_CBC, .RP_ADDR (CBCNT _LO));
(EX_BC, .RP ADDR [BCNT_LO));

end;

000000G
000044
0000006
000002

EMS.BC:

0000006
000020
000000G
000002

.SBTTL
MOV
MOV
MOV
MOV

23 words,
Rout ‘'ne Base:
depth per invocation:
7 words

ROUTINE

44(R0O), -(SP)
#EX.CBC, (SP)
82, -(SP)
SP,RO
15
RP.ADDR,RO
20(RC),(SP)
QEX.BC, -(SP)
02, -(SP)
SP,RO

MOV
TRAP
MOV
MOV

MOV
MOV
MOV

ADD

812,5P

RTS

S$CODES

"BYTE COUNT IN COMMAND: XXXXX,
"
"ACTUAL & OF BYTES TRANSFERRED:

11616

XXXXX

EMS _BC

EMS.BC ERROR MESSAGE
RP.ADDR,RO

TRAP

000012

¢
'

SUBROUTINES

;

6480

SP,e

;

64381

SP,e
64°9

6408

| 1o
RD/RX EXERCISER

ZRQAM?

ERROR MESSAGE SUBROUTINES

000000
000004
000010
000014
000020
000024
000026
000030
000034

;:
:

i Pt

[}

THIS ROUTINE PRINTS (EXTENDED) THE TWO WORD 1/0 BW+FER DESCRIPTOR
APPEARING IN THE CURRENT RETURN PACKET,

IMPLICIT

[]

H
H

013700
016046
016046
012746
012746
010600
104415
062706
000207

Routine Sice:
Max mum stack

INPUTS:

PRINTX (Ex_BD,

0000006
000024
000026
000000G
000003

ADDR

5EQ 0206

Page 206
(71,

novalue

DISKSUSER? : [POWERS JZRGADO.BL 1L ;6

s Pt

11 Apr-1984 11-45:02

VAX 11 Bliss 16 v4.0 579

b Pt

6487
6488
6489
6490
6491
6492
6493

routine EMS BD

G0
G0
0

B¢

6484
6485

e P

v0l1.6

6483

i1 Apr-1984 11:56:01

ADDRESS

.RP ADDR [BUFF

EMS.BD:

000010
15 words,
Routine Base:
6 words
depth per ‘nvocat ‘'on:

THE

1],

RETURN

PACKET

.RP_ADDR [BUFF 01);

.SBTTL
MOV
MOV
MOV
MOV
MOV

EMS.BD ERROR MESSAGE
RP .ADDR,RO
24(RO), -(SP)
26(RO), -(SP)
#EX.BD, (SP)
03, -(SP)

MOV
TRAP

ADOD

“1/0 BUFFER DESCRIPTOR:

SUBROUTINES

SP.RO
15

€10,5P

RTS

$CODES

CURRENT

11674

XXXXXX XXXXXX*

6493

6483

ML6
ZRQAM.

RD/RX EXERCISER

Apr

1984

11:56:01

VAX-11 Bliss

v0l.6

ERROR MESSAGE

Apr

1984

11:45:02

DISKSUSER?Z: (POWERS 1ZRQADO .BL1:6

:
:
;
:

6494
6495
6496
6497

:
:
H
:
:
3

6498
6499
6500
6501
6502
6503

1
1
1
1
1
1

:
H
H
H

6505
6506
6507
6508

2
2
2
2

:
:
3
H
:
:
3
:
H
:
H
H
H

6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522

2
2
2
2
2
3
3
2
3
3
3
2
2

:
H

6504

6509

6523
6524

]
1
1
1

2
1

000000
000002
000006
000012
000016
000022
000026
000032

010146
004737
004737
013700
116000
042700
020027
001402

000040
000044
000050
000054
000060
000062
000066
000072
000076
000100

013700
116001
042701
020127
001407
116000
042700
020027
001004
004737

000034

004737

routine

SUBROUTINES

EMS _RP

HO)

!
H
!

novalue

16 v4,.0 S79

SEQ 0207
Page 207
(712,

THIS ROUTINE IS RESPONSIBLE FOR PRINTING (EXTENDED) THE RELEVANT FIELDS
OF THE CURRENT RETURN PACKET,

begin
EMS 5BC ();
EMS _CMD ();
if

(.RP_ADDR

then
if

[ENDCOD]

then

[ENDCOD]
[ENDCOD])

begin
EMS _BC ();
EMS_BD ();
end;

EMS.RP:

010010
010520
000000G
000014
177600
000011

000000G
000014
177600
000041}

1$:

000014
177600
000042

011616

LBN OR B8AD BLOCK NUMBER

!
t

BYTE COUNTS
1/0 BUFFER DESCRIPTOR

'
!

TIME
ROUTINE EMS RP

end OP_MSK) eql OP_RD) or
and OP_MSK) eql OP _WRT)

EMS_TIM ();
end;

011354°

SUB CODE
COMMAND (AND MODIFIER)

and OP MSK) neq OP ONL

EMS_LBN ();

(C.RP_ADDR
((.RP_ADDR

!
*

2$:

.SBTTL

EMS.RP ERROR MESSAGE

JSR
JSR
MOV
MOvB
B8IC

PC.EMS.SBC
PC.EMS.CMD
RP.ADDR,RO
14(R0O),RO
£177600,RO

cMP
BEQ

RO, 211
1$

MOV

JSR

MOV
MOvVB
BIC
cMP
BEQ
MOVB
BIC
CMP
B8NE
JSR

R1, -(SP)

PC,.EMS.LBN
RP .ADDR,RO

14(RO),R1
#177600,R1
R1,041
2$
14(R0O),RO
#177600,R0O
RO, 442

3
PC,.EMS . BC

SUBROUTINES

6496

:
:
;

;

6512

®515

2519

6514

000104
000110
000114
000116

0047387
0047387
012601
000207

Routine Size:

Mavimum

H
:

6525
652¢

steck

1
1

011674
CO00CCY

40 words,

depth per

JSR
JSR

PC.EMS.BD
PC.EMS
. TIM

RTS

(SP).,R1

MoV

Rout ‘ne Bese:

invocat on:

$CODES

11782

[oX
o]

SUBROUTINES

ERROR MESSAGE

v01.6

11
11

-’

RO/Rx EXERCISER

ZRQAMY

VAX

Blies

V4.0 579

DISKIUSER?:
[POWFRS JZRQADO.BL 16

SEQ 0208
Pege

208

(72)

6520
6523
6495

Cl
RD/Rx EXERCISER

ERROR MESSAGE
global

00CO00

012740

0000006

000004
000010
000012
000014
000020
000024
000030
000034

(12746
010600
104415
013716
012746
004737
062706
000207

0000C1

B¢

22 N PHN) s po et gt o gt ot po

vol.6

;:
i

eS527
05,08

0529
6530
6521
6582

6538
6534
6535
65%
6537
6538

Routine S re:
Mar mum steck

SUBROUT INES

routine EMS RP1
THIS

ROUTINE

RETIRN PACKET
PRINTING

L)
PRINTX

EMS BLX

1 1
1 1

WILL

novalue

1984

11:56:01

VAX-11

Blies

v4,0

579

1984

11:45:02

DISK$USERZ:
[POWFRS JZRQADO.BL 1 ;6

5€£Q 02079
Peage

<092

(73,

CALLED

ONLY

OCCUR

DESIGNATED By

THE

GLOBAL

1HE

ENTIRE

DATUM

CONTENTS

“RP ADDR",

EXTENDED ERROR PRINTING

(EX_RP);

(. RP ADDR,

:zr

RP LEN),;

“CONTENTS

THE

MOWEVER,

IS ENABLED.,

THE

RETURN PACKET:

BLOCK OF

WORDS

end;

.SBTTL

EMS
. RP]1 ERROR MESSAGE

EMS.RPL;:
MOV
MOV

X RP, (SP)
o1, (SP)

011202
000000

15 worgs,
Rout ine Base:
depth per invocation:
4 words

SP,.RO

MOV
MOV

RP . ADOR, (SP)
826, (SP)

6537

r1s

:
:

6535
6527

JSR
ADD

$CODES

PC,EMS. BLK
06 ,SP

.«

12052

6536

MOV

TRAP

0000006
000026

SUBROUTINES

SP,

D!
RO/RX EXERCISER

ZRQAMY

ERROR MESSAGE SUBROUTINES

global routine EMS EL
H

THIS ROUTINE

O0
00
€0
G0
00

€0
00
G
G0
G

(index)

novalue

W
W
NN WWUWNNN N W WWWN WAV
RN W

VAX-11 Blisgs

16 v4,0-579

5EN_0210

DISKS$USER2 : [POWERS JZRQADO.BLL ;6

IS CALLED FROM

SEQUEN'

AND

'DATAGM'

AND PRINTS

THE

CONTENTS OF

THE

begin

locel

ELOG ADDR : ref bDlock
REASON : word,

(EP LFN,

word)

field (EP FIELDS),

DISK _NUM : byte,
ELOC CODE : byte,
ELOG SUB : word;

ELOG_ADDR = ELOG PKT o+ (.index ¢ EP_LEN
REASON = _ELOG_ADOR [EL _FORMAT);
DISK _NUM =« _ELOG_ADDR ([EL DX _NuM),;
ELOG_CODE = _ELOG_ADDR (EL _CODE];
ELOG_SUB = _ELOG ADDR ([EL _SUBCODE);

2);

(ELG_00);

V6
B0
Vo V0
VI
G0
B2
V0
B
V0
G0
GF
B¢
00
GF
VO
VS
G
BT
B0
Vs
TS
G0
00
B0
©F
B¢
B0
B0
90
B9

£591

11:%6:01

1 Apr 1984 11:45:02

ERROR -LOG PACKE
T

PRINTB

6588
6589

Apr-1984

IR NN

R RIRY N po st 4o g oo oo po

6541
6542
0543
0544
0545
6546

VI G0

G0 G0

OF O

vol.6

6539
6540

ERROR LOG PACKET'S ADDRESS

!
!

FORMAT
DISK NUMBER

!
!

CODE
SUBCODE

ERROR

LOG

BASIC

REASON

BASIC

REASON WITH DISK

CODE

MESSAGE

MEDIA

MESSAGE

RECEIVED

if (.REASON eql FORMAT _CNTR) or
( REASON eql *ORMAT _MOST)

then
.
PRINTB

( .ELG FMT

[ .REASON])

( .ELG FMT

([ .REASON],

else

PRINTB

“F

(.ELOG_CODE
(.ELOG _CODE
then
.

.0ISK

NUM);

NUMBER

gtru 0) end
leaqu 11)

X al

PRINTX
PRINTX

else

(ASTERISK);
(.ERR_COD (.ELOG_COOE

end

é:‘.'.‘ELOG_COOE
in
PRINTX
PRINTX
end;

(.ELOG CODE

(.ELOG_SUB

then

beg'n
PRINTX
PRINTX

PRINTX

eql

DIA

11);

FROM

INTERNAL

(ASTERISK);
(.ERR_COD [121);

eal

leau

10)

MFE)

(CRLF);
(ASTERISK);
(.78L TMFE [.FLOG

ang

SUB));

FORMAT

ERRCR

DIAGNOSTICS

z10

09‘(5“)

b1
JRQAAM,

RD Rx EXERCISER

vol.6

ERROR MESSAGE

H
:
H
H
H
3
H
3
:
H
H

:
:

H
:
:
H

6592

6593

6594
6595
659
6597
6598
6599
6600
6601
6602
6603
6604

2
3
2
3
3
3
3
¢
2
2
3

660
6008
6609
6610

3
3
3
2

6605
6606

2
X

:
:
:
:
:
:
:
:
:
H

6611
6612
6613
6614
6615
6616
6617
6618
6019
6620

2
2
3
2
3
3
3
3
2
2

6622

6621

then

(.ELOG_CODE

(.ELOG_SUB

PRINTX
PRINTX

6628

end;

:
H
H
:

6629
6630
6631

6632
6633
6634
6635

:
H

6636
gg;;

;

6639

6643

:
H
H

6640
6641
6642

then

2
2
2

2
2
2
3

HOST ACCESS ERROR

CONTROLLER ERROR

eql

leau 8)

DRvV)

DRIVE ERROR

IF DISK

PRINT PBN OR RBN

end

in
PRINTX

(CRLF);
(ASTERISK);
(.TBL DRV {.ELOG_SUB));

1§ _REASON eql FORMAT XFER
then

i _ELOG_ADDR [EL _BLOCK TYPE] eql TYPE LBN
then
PRINTX (EXx_PBN, .ELOG ADOR [EtL BLOCK]),

2
g

else

EMS_TIM ();

end;

2
2
2

' DATA ERROR

(.ELOG_CODE eql ST _CNT) and
(.ELOG_SUB lequ 3)
then
in
PRINTX (CRLF);
PRINTX (ASTERISK);
PRINTX (.TBL _CNT (.ELOG SUB));
end;

3
3

:
:
:

DISKSUSER?2: [POWERS JZRQADO .BL 1 ;6

6625
6626

6627

11:45:02

in
PRINTX (CRLF);
PRINTX (ASTERISK);
PRINTX (,TBL_MST [.ELOG SUB));
end;

:
:

Apr-1984

VAX 11 Bliss 16 v4.0 579

if (.ELOG_CODE eql ST _MHST) and
(.ELOG_SUB lequ 4)

¢ (LELOG_CODE eql ST DAT) and
(.ELOG_SUB leau 15)
then
begin
PRINTX (CRLF);
PRINTX (ASTERISK);
PRINTX (.YBL DAT [.ELOG SUB));
end;

6623

6624

SUBROUTINES

Apr 1984 11:56:01

end;

PRINTX

(EX

RBN,

.ELOG_ADDR

{tL

EMS _BLK ((.ELOG_ADDR + 2), ((.,ELOG ADDR
ELOG_ADDR [EL CONTENTS] = EMPTY,;

BLOCK),

[EL

.ELOG ADDR

[EL BLOCK])

.ELOG

[EL BLOCK]);

MSGLEN]

ADDR

7 2)

2);

'
!

TIME

XFER

INVOLVED

PRINTX CONTENTS OF PACKET
DECLARE SAVE AREA FREE

5£Q 0211

Page ¢11

(74)

105066
116105
116100
042700
105004
050004
016103
006203
006203
006203
006203

006203

042703
012716
012746
010600
104414
016602
006302
005766
001404
026627
001007
016216
012746
010600
104414
000411
005016
110516
016246
012746
010600
104414
005726

105704
001423
120427

101020
012716
012746
010600
104415

.SBTTL

EMS.EL: : JSR
TST
MOV
MOV

0000006

000020
000102
0000006
0000006
000016
000005
000012
000020

JSR

ADD
MOV
MOve

000004

CLRB

MOvVB
MOvB

177740

EMS.EL

1984
1984

ERROR MESSAGE

R1,$SA/ES

00G001

DISK$USERZ:
[POWERS JZRQADO.BL1;6

SEQ 0212
Page

cl2

(74)

SUBROUTINES

QELOG.PKT
RO

RO,R1

16(R1),4(SP)
S(5P)
12(R1),RS
20(R1),R0
#177740,R0
R4
RO,R4

6555

¢ ,ELOG.ADDR

¢(ELOG.ADDR) ,REASON

6556

«(ELOG.ADDR),DISK
. NUM
¢(ELOG.ADDR),s

6557
6558

REASON

ELOG .CODE
¢ ,ELOG.CODE
+(ELOG.ADDR) ,ELOG. SUB
ELOG .SUB
ELOG .SUB
ELOG .SU8
ELOG .SUB
ELOG .S5UB
+,ELOG.SUB

6559

6560

SP,s

6(SP),
01
24
ELG.FMI(R2),(SP)

000001

v4,0 579

PC.BLSMA

SP,RO
14
6(SP),R2

000006

Bliss-16

, o
INDEX

#€LG.00,(SP)

000001

6539

R3S
R3
R3
R3
R3
9174000,R3

174000

VAX

(SP)
20(SP), -(SP)
0102, (SP)

20(R1),R%

000020

11:56:01
11:45:02

004137
005746
016646
012746
004737
062700
010001
116166

SUBROL TINES

Apr
Apr

®we

ERROR MESSAGE

11
11

®e

vol.6

EXERCISER

®s

RO/ Rx

ZRQAAM?

REASON,
¢

6565

REASON

6562

REASON,
«

6563
6565

o1, (sSP)
SP,RO

6562

°os:

R5,(S5P)

0000006
000002

ELG.FMT(R2),
02,

6567

(SP)

SP.RO
14

( Llp )0
R4
4
Ra,013
43
OASTERISK,(SP)
81, (SP)

3s:

000013

000001
TRAP

SP,RO
15

.CODE

6569

.CODE
, »

0570
05732

Gl
2r@AM.

RDO/Rx

000232
000234
000236
000240
000244
000250
000252
000254
000256
000262
000264
000279
000274
000276
000300
000304
000310
000312
000314
000316
000322
000324
000330
000332

000344

000352

EXERCISER

ERROR MESSAGE

v01.6

CLR
8I1s8

005000

150400
006300

016016
012746
010600

ASL
MOV

1777766

000001

104415

000417
120427
001015
012716
012746
0106C0

104415
013716

012746
010600
104415
022626

120427
001031
020327
101026

012716
012746
010600
104415
012716
012746
010600
104415
010300
006300
016016
012746
010600
104415
062706
12042/
001031
020327
101026
012716
012746
010600
104415
012716
012746
010600
104415
010300
006300
016016

11
11

SUBROUTINES

TRAP

000037

1984
1984

RO
R4 ,RO
RO

ERR.COD 2(RO),(SP)
01, (SP)
SP.RO

a4
OASTERISK,(SP)
81, (SP)
SP,RO

000001

15
ERR.COD+30,(SP)

000030G
000001

o1, (SP)
SP,RO

S$:

000005

Apr
Apr

6%:

15
(SP)+,(SP).

R4, 05
74

11:56:01
11:45:02

VAX-11 Bliss 16 v4.0 579

DISKS$USERZ: ([POWERS JZRQADO .BL 1 ;6

;

6581

6586

SP,RO

;

0000000
000001

6589

SP,e

SP,RO

SP,e

ELOG.SUB,

SP,e

T8L .MFE(RO),(SP)
a1, (SP)
SP,RO

15
96, 5P

R4,010

OCRLF ,(5P)
o1, (SP)

6590

3
s+ ELOG.CODE,
:

ELOG.SUB,

SASTERISK,(SP)
o1, (SP)

:
1

SP,

R3,RO
RO
8L .DAT(RO),(SP)

ELOG.SUB,

6591

‘9

6588
6594
6595
6598

SP RO

SP,RO
15

000120’

ELOG.SUB,

QASTERISK,(SP)
01, -(SP)

000017
000000G
000001

SP,e

gggg

@CRLF ,(SP)

7%:

6582

: ELOG.CODE , «

1, -(SP)

000010

SP,s

000000G
000001

000064
000001

SP,e

22;3

000000G
000001

5o74

: ELOG.CODE , o

R3,012

(73)

: ELOG.CODE, »

000012

SE092§i3213

SP,e

6599

LIV

I~ |
ZRQAM,

RD/Rx EXERCISER
ERROR MESSAGE SUBROUTINES

vOl.6

000462
CC0466
000470
000472
000476
000502
000504
000510
000512
000516
000522
000524
000526
000532
000536
000540
000542
000544
000546
000552
000556
000560
000562
000566
000572
000574
000600
000602
000606
000612
000614
000616
000622

000626
000630
000632

000634
000636
000642
0005646
000650
000652
000656
000662
000664
000670
000672
000676
000702
000704
000706
000712
000716

012746
010600
104415
062706
120427
001031
020327
101026
012716
012746
010600
104415
012716
012746
010600
104415
010300
006300
015016
012746
010600

104415
062706
120427
001031
020327
101026

012716
012746
010600
104415
012716
012746
010600
104415
010300
006300
016016
012746
010600
104415
062706
120427
001031
020327
101026
012716
012746
010600
104415
012716
012746
010600

¢00001

000006
000011

11
11
MOV

8%:

000004

MOV
TRAP
ADD

BNE

0000006
000001

o1,

Apr
Apr

1984
1984

VAX 11 Bliss 16 v4,0 579
DISK$USERZ:
[POWERS JZRGADO.BL1;6

SEQ 0214
Page 14

(74)

(SP)

SP,RO
15
06 ,5P

R4,011

9
R3,08
9
@CRLF ,(35P)
@1, (SP)

SP,RO
15

SP,e

;

ELOG.CODE,
s

5537
66503

ELOG.SUB,s

6604

6607

SP,e

QASTERISK,(SP)

0000006
000001

@1, (SP)
SP,.RO
15

R3,RO

6608

SP,s

ELOG.SUB,
»

Spo‘

ELOG.CODE,o

6606
6612

;

ELOG.SUB,

6613

6509

T8L .MST(RO),(SP)

000160
000001

01,

(SP)

SP,RO

000006
000012

11:56:01
11:45:02

15
26,5SP
R4,012
10¢

9s:

000003

108
QCRLF ,(SP)

0000006
000001

6616

SP,.RO
15

;

SP.RO

SP,e
6617

QASTERISK,(SP)
o1, (SP)

000000C
000001

SP,e
o618

000172
000001

000006
000013

T8L .CNT(RO),(SP)
o1, (SP)

TRAP
ADD
10¢:

SP,RO
15
96 ,5P

R4,013

SP,e

ELOG.CODE,
»

000010

0000006
000001

BHI

6621

6622
oCRLF ,(SP)

01,

TRAP
MOV
MOV
MOV

6615

(SP)

SP,RO

6625

Spl.

QASTERISK, (SP)
01, (SP)

SP,RO

oo
0

SP,»

Il
ZRQAM.

vol.é

000720
00072
000724
000726
000732
000736
000740
000742
000746
000754
000756
000764
000766
00077
000774
001000
001004
001006
001010
001012
001016
001020
001024
001030
001032
001034
001040
001044
001050
001052
001056
001060
001064
001070
001074
001102
001104
001110
001114
001120

;:
;

RO/Rx
L 4

104415
010320
006300
016016
012746
010600
104415
062706
026627
001031
032761
001012
016116
011646
012746
012746
010600

EXERCISER

ERROR MESSAGE

SUBROUTINES
TRAP
MOV
ASL
MOV
MOV

000202"
000001

000006
000010

170000

000002

TRAP
ADD

118

000060

000056

011646

012746
012746
010600
104415
062706
004737
012716
060116
016146
005216
J12746
004737
010066
062766
005726
004737

105061

062706
000207

Routine Size:
Maximum stack

cMp
BNE
8rrv
BNE

MOV
MOV
MOV

12%:

B8R

MOV
MOV
MOV

000002
000002
0000006
000002
000002
000002
011202
000001
000014

13¢:

14%:

SP,e

23,

5EQ 0215
Page 15
(74)

PC.EMS.TIM
02,(SP)
R1,(SP)

JSR

MOV
ADD
MOV

2(R1), -(SP)
(SP)

INC

MOV

;

6627

6624

REASON,

6630

;

¢,¢(ELOG.ADDR)

66133

;

¢(ELOG.ADDR),»

6635

SP,e

¢(ELOG.ADDR),

SP,e

6633

6637

(SP)

SP.RO
15
06,5P

TRAP
ADD

:
:

6633
6639

6640

;

o(ELOG.ADDR),

;

s(ELOG.ADDR)

o2, -(sSP)
PC,.BLSDIV
RO,2(SP)
02,2(SP)

JSR
MOV

ADD

ST
JSR

(SP).
PC.EMS
. BLK
1(R1)

CLRB

ADD
RTS

297 words,
$CODES
Rout ine Base:
depth per invocation:
16 words

SP,RO
15
06 ,SP
10(SP),
02

15
13
S6(R1),(SP)
(SP), -(SP)
. RBN, (SP)
OEX

MOV

000006
000000V
000002

VAX 11 Bliss 16 v4,0 579
DISKSUSERZ: [POWERS }ZRQADO.BL 1 ;6

ELOG.SUB,
¢

83, -(SP)
SP,RO

MOV

0000006
000003

11:56:01
11:45:02

;

(sP), (sP)
OEX .PBN, (SP)

MOV
TRAP

000056

1984
1984

R3.RO
RO
T8L .DRV(RO),(SP)
01, -(SP)

14¢
#170000,60(R1)
123
S6(R1),(SP)

MOV

0000006
000003

Apr
Apr

MOV

104415

000411
016116

11
11

014,SP

PC
-

12110

6641

0539

o
ZRQAM?

RO/Rx EXERCISER
ERROR MESSAGE SUBROUTINES
e 9o e gt 4t po pe
MMM N AR RN N RN N

6644
6645
6646
664~
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664
6665
6666
6667
6668
6669

= RPN

B¢

GBI

B¢

vol.6

000000

010146

000002
000006
000012

016601
013746
012746
012746
010600
104414
012716
012746
010600
104414
013716
012746
010600
104414
0l6116
011646
012746
012746
010600
104415
013700
016016

000016
000022
000024
000026
000032
000036
000040
000042
000046
000052
000054
000056
000062
000064
000070
000074
000076
000100
000104

global

routine EMS CMP

(ADDR)

11
11

novalue

Apr
Apr

1984
1984

11:56:01
11:45:02

VAX 11 Bliss 16 v4_
0 579
DISK$USERZ: [POWFRS]ZRQADO.BL 1 ;6

5EQ 0216

Page 16
75)

)

!
!

THIS ROUTINE IS CALLED FROM
COMPARE ERROR

MOST WRT

CHK

AND PRINTS RELEVENT

word]

field (RP fIELDS);

DATA ON A HOST

begin

local
ORIG _ADDR
ORIG_ADDR

PRINTB
PRINTB
PRINT8
PRINTX
PRINTX
PRINTX
PRINTX
PRINTX
PRINTX
PRINTX
PRINTX

ref block

[RP LEN,

.ADOR;

(ERR_00,
.CDISK);
(DASH);
(.ERR COD [121);
(EX_LBwW, .ORIG_ADDR (LBN_LO], .ORIG_ADDR [LBN_LO]);
(EX_LBR, .RP ADDR (LBN_LO], .RP ADDR (L8N LO));
(Ex_CBW, .ORIG_ADDR (CBCNT LO]);
(EX_BC, .ORIG_ALOR [BCNT_LO));
(EX_CBR, .RP_ADDR [CBCNT _LO1]);
(EX_BC.
.RP_ADDR (BCNT LO]);
(EXx_BDW,
.ORIG_ADDR [BUFF 1], .ORIG_ADDR [BUFF 01]);
(Ex_BDR, .RP ADDR (BuUFF 1], .RP_ADOR (BUFF _0]);

EMS_TIM ();
end;

EMS.CMP ERROR MESSAGE

R1,

(SP)

4(SP),R1

COISK, (SP)
®ERR .00, (SP)

02,

SP,RO

14
ERR.COD+30,(SP)
01, (SP)

0000306
000001

SP,.RO

XXX’

HOST

THE

WRITE

COMPARE

LBN (WRITE)

RETPKT

ERROR

LBN (READ)

BYTE
BYTE
BYTE
BfTE

COUNT
COUNT
COUNT
COUNT

(WRITE)
XMITTED (WRITE)
(READ);
XMITTED (READ)
BUFFER ADDRESS (WRITE)
?UFFER ADORESS (READ)
IME

SUBROUTINES

ADDR,ORIG.ADOR

SP,e

6644
6656

6657

6658

Spo.
6659

SP,e

s(ORIG.ADDR),

SP,e

000050

S0(R1),(SP)

(SP), -(SP)

0000006
000003

0000006
000050

“DISK

(SP)

SP.RO
14
QDASH, (SP)
o1, (SP)

0000006
000001

ADDRESS

®E X . BW,
03, (SP)
TRAP

MOV

(SP)

SP,RO
15

RP _ADDR,RO

50.R0),(SP)

ool

1
RO/RX EXERCISER

ZRQAM.?

ERROR MESSAGE

vOol.6

070110
000112
000116
000122
000124
000126
000132
000136
000142
000144
000146
000152
000156

000162
000164
000166

000172
000176
000202
000206

000210
000212
000216
000222
000226
000232
000234
000230

000242
000246

000252
000256
000260
000262
000266
000272
000276
000302
000306
000310
000312
000316
000322
000324
;:

011646

012746
012746
010600

104415

Ol6lle
012746
012746
010600
104415
013700
016016
012746
012746
010600

000020
0000006
000002

104415
013700

016016
012746
012746
010600
104415
0l6116
016146
012746
012746
010600
104415
013700
016016
016046
012746
012746
010600
104415
004737
062706
012601
00C207

Routine

Size:

Mar.imum stack

(SP), (SP)
9EX.LBR, (SP)
@3, (SP)

000003

000044
0000006
000002

SP,RO

15
44(R1),(SP)
QEX.CBW,

(SP)

SP,RO
15
20(R1),(SP)
2Ex.BC,

(SP)

@2, -(SP)
SP,RO
15

RP.ADDR,RO
44(R0),(SP)

000000G
000044
000000G
000002

oEX.CBR,
02, -(SP)
SP.RO

RP.ADDR ,RO

000024
000026
0000006
000003

24(R1),(SP)

20(RO),(SP)
ot x.8C, (SP)
02, -(SP)

SP,.RO
15

26(R1), -(SP )

ot x .B0W, -(S P)

03, -(SP)

SP,RO
15

RP.ADDR,RO

1984

11:56:01

11:45:02

VAX

)
11 Bliss

v« ,0 S79

DISKS$USERZ2: [POWERS )ZRQADO.BL1 ;6

;

SP,e

¢(ORIG.ADDR),

Spo.

¢{ORIG.ADDR),»

;

SP,e

3€Q 0217
Page 17

(75)

6662

6663

6664

;

SP,

6665

SP,e

:
;:

*(ORIG.ADDR),»
*(ORIG.ADDR),»

SP,e

;

6666

6667

24(RO),(SP )
P
26(RO),
OEX.BD“. - SP)

23, -(SP)

000003

000000V
000062

1984

(SP)

0000006
000020
00000CG
000002

000024
000026

Apr

11 Apr

SUBROUTINES

0000006

0l6116
012746
012746
010600

104415

JSR

062,5P
(SP). ,R1

PC,EMS.TIM

ADD
MOV
RTS

$CooEs
107 words,
Rout ne Base:
depth per invocation:
28 words

SP.RC
15

PC
.

13232

SP,e

6668

6651

6644

||
RO/ Rx

EXERCISER

vOol.6

ERROR MESSAGE

global

00000C

013746

000000G

000004
000010
000014
000016
000020
000024
000030
000032
000034
000040
000042
000046
000050
000052
000056
000062
000064
000066
000070
000074
000076
000102
000106
00011C

012746
012746
010600
104414
012716
012746
010600
104414
013700
001413
020027
101010
006300
016016
012746
010600
104414
000422
020027
001007
013716
012746
010600
104414

000000G
000002

B¢

SV OV VI SLVEP LV VL VL VYT L SE7 T L VIV VIS L VEVIL VY o f g

ZRQAM

6670
6671
667
6673
664
6675
0676
6677
667
6679
668C
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693

SUBROUTINES

routine EMS ERR

movalue

Apr

1984

11:56:01

Apr

1984

11:45:02

STATUS CODE

VAX

Bliss

v4.0 579

DISKS$USER?:
[POWERS 1ZRQADO.BL L6

5EQ 0218
Page <138
(7%6)

begin
!

TABLE

BASIC,

HARD

ERROR

MESSAGE

ADDRESSES,

INDEXED

[]

PRINTB
PRINB
+f

(ERR_00,
(DASH);

(.ST

CODE

(.ST_CODE

then

PRINTB

.CDISK);

gtru 0)

leaqu

(.ERR

“DISK

PRINTB

11D

MESSAGE

.ST_CODE);

JUST

PRINTX

and

11)
COD

[.ST_COODE

1))

else
if

.ST_CODE

then

else
EMS

eql

ST_DIA

PRINTB

(.ERR

COD

PRINTB

(Ex

SC,

Xxx'

H
H

();

STATUS CODE

WITHIN RANGE

APPROPRIATE

FROM

MESSAGE

INTERNAL

STATUS CODE

OTHER

RE "PKT

DIAGNOSTICS
WHEN NO MATCH

FIELDS

end;

.SBTTL
EMS .ERK::
MOV
MOV
MOV
MOV
TRAP

0000006
000001

MOV
MOV
MOV

EMS.ERR ERROR MESSAGE
COIsk, (SP)
OERR .00, (SP)
02, (SP)
SP,RO
14
QDASH, (SP)
o1, -(SP)
SP,.RO
14
ST.CODE ,RO

000000G

TRAP
MOV

000013

BEQ
ce

1
RO,213

8HI

ASL

177776G
000001

000037
0000266
000001

MOV
MOV

1%:

SP,RO
14

cMe
8NE
MOV
MOV
MOV

RO, 03"
c$
ERR.COD.26,(SP)
o1, (SP)
SP,RO

TRAP

6676

6677

SP,e
6679

6680
©682

ERR.COD 2(RO),(SP)
01, (SP)

MOV
TRAP

B8R

SUBROUTINES

SP,e
6079
0685

onR”

Ml
ERROR MESSAGE

vO1l.6

000112
000114
000116
000122
000126
000130
000132
000134
000140
000144

:
;

11
11

RD/RXx EXERCISER

ZRQAM2
000410
010016
012746
012746
010600
104414
005726
004737
062706
00C207

SUBROUTINES
P2
K

0000006

000002

011732

000012

B8R

34
RO, (SP)

MOV
MOV
MOV
MOV
TRAP
TST
JSR
ADD
RTS

$CODES
51 words,
Rout ine Base:
Routine S're:
8 words
Mas. 'mum stack depth per invocation:

Apr
Apr

9€Ex.SC,

82,

(SP)

11:56:01
11:45:02

VAX

11 Bliss

v4,0 579

DISKSUSERZ: [POWERS]ZRQADO.BL1 ;6
H
H

SEQ 0219
Page 219
(76)

6685
6683

SP,RO
14
(SP).

812,5pP

6672

6670

PC.EMS .RP
PC

1984
1984

13560

SP,s
6691

NL
ZRQAM?

RD/RXx EXERCISER
ERROR MESSAGE SUBROUTINES

6700

000000
000002
000006
000010
000014
000020
000024
000026
000030
000034

:
:

Pt
b P
Pt (e ot

6694
6695
6696
669~
6698
6699

®¢

OO0

O¢

v01.6

005046
113716
005046
113716
O01lc2740
(12746
010600
104415
062706
000207

Routine S ce:

Max mum stack

routine EMS

TIM

novalue

11
11

Apr 1984
Apr 1984

11:56:01
11:45:02

VAX-11 Bliss 16 v4 .0 579
DISKSUSER?: [POWERS JZRQADO.BL L ;6

SEQ 0220

Page 20
(17

!
]

THIS ROUTINE PRINTS

PRINTX

(EX

0000006

000000G

TIM,

THE

_HMOURS,

TIME

OF DAt

MESSAGE

_MINUTES);

LSBTTL
EMS.TIM:CLR
~OvB
CLR

0000006
000003

EMS.TIM ERROR ME " ,AGE
(SP)
MINUTES,(SP)
(SP)

MCvB

15 woras,
Rout ne Base:
depth per ‘nvocet
' on: 6 words

”®X _TIM,

MOV
MOv

3, (SP:
SP,RO

(SP)
;

ADD

#10,5P

RTYS
$CODES

6700

HOURS
, (SP)

“OvV

TRAP

000010

SUBRL JTINES
:

PC
-

13°¢6

GP,e

5694

b
RO.Rx EXERCISER
ERROR MESSAGE SUBROUTINES

JRQAM
vil.e

e°Q1

OCO000
000004
LUV

004737

104423

3
3

Max'mum gstackh

€700
"0

LSBT

4 words,

depth

per

Rout ine Base:

nocetion:

PRINTB (EBS 01,
ENDMSG;

$CODES

J words

MAX UNITS),;

.SB8TTL

MSEMS.01

000004

012746
012746
010600
104414
062706
000207

0000006
000002

#€BS .01,

0000006

06 ,SP

: Routine Sice:
i Mav'mum stacth

VAX-11 Bliss 16 V4.0 579
DISKSUSFR2:(POWERS1ZRQADO.BL
116

5£0 0221
Pege 221
()

MSEMS.01:

11 wordgs,
Rout ine Bese:
S words
gepth per invocat ion:

SUBROUTINES

6701

13764

000004

000024

11:56:01
11:45:02

RIS

012746

000010

1984
1984

EMS.01 ERROR MESSAGE
OC,MS$EMS .01
23

EMS.O1L: : JSR
TRAP

000000V

000000

000014
000016
000020

Apr
Apr

BGNMSG (EMS 01,

00020

t Routine Sice:

11
11

o4,

(SP)

®?2,

(SP)

13774

'MORE

ERROR

(SP)

THAN XX UNITS SPECIFIED

MESSAGE

SUBROUTINES

6702

6701

(

JRAAM,

RO RXx EXERCISER

BGNMSS (EMS

VQOl.e

[0 S §

QOO
QOO
G006

i
:

ERROR MESSAGE

004737
104423
000207

Routine Sice:
May"'mum stackh

o708
60

2
1

ENDMSG;

013746

000000G

000004
000010
000014

063716
012746
012746

0000006
0000006
000002

010600
104414
062706
000207

Routine S'ze:

Mex'mum stack

.SBTTL

13 woras,

1984

EMS.10 ERROR MESSAGE
PC.MSEMS .10

EMS.10::USR
TRAP
RTS

Rout ‘'ne Base:
invocat on:
2 words

.RDRx ADDR

¢«

11:45:02

DISKSUSER?: [POWERS JZRQADD.BL ;6

56Q _022¢

’ 90338222
(79)

$CODES

Rout ‘'ne Base:

-«

S words

"NO RESPONSE

MOV
ADD
MOV

RDRX ,ADDR,

$CODES

5704

14022

MSEMS.10 ERROR MESSAGE

MOV
MOV
TRAP
ADD
RTS

LSBTTL

MSEMS.10:

invocation:

SUBROUTINES

.OF RC);

000006

depth per

ARpr

VAX 11 Bliss 14 V4,0 579

10);

PRINTB (EBD_10,

000000

000020
000022
000024
000030

SUBROUTINEY

000000V

4 words,
depth per

11 Apr 1984 11:56:01

(SP)

OF .RC,(SP)
®€BD.10, (SP)
02, -(SP)

SP,.RO
14
06 ,5P
PC
14032

ADDRESS

XXXXry»'

SUBROUTINES

t
:

6705

GP,e
6704

DO
vol.6

6«07

¢00000
000004
000006

004737

104423

000000V

EMS.12 ERROR MESSAGE
PC,MSEMS. 12

EMS.12::JSR

4 words,

013746

0000006

012746
012746
010600
104414
062706
000207

0000006

Routine Size:

Maximum stack

1984

11:45:02

VAX 11 Bliss 16 V4.0 579

DISKSUSER2: [ POWERS )ZRGADO.BL1 ;6

’5092335225

(80)

SUBROUTINES

;

6707

PRINTB

Apr

BGNMSG (EMS _12),

: Max"‘mum stack depth per

000207

: Routine Sice:

000014
000014
000016
000020
000024

11 Apr 1984 11:56:01

RD/Rx EXERCISER
ERROR MESSAGE SUBROUTINES

ZRAAM,

Rout ine Base:
2 words

invocation:

(EBD_12,

$CODES

14064

.RDRX_ADDR);

'INCORRECT BR LEVEL GIVEN FOR DEVICE

MS$EMS.12 ERROR
MSEMS. 12:

RDRX
. ADDR, - (SP)
0€BD.12, -(SP)
02, (SP)
SP .RO
14

06,5P

PC
Rout ine Base:
11 words,
depth per invocation:
S words

$CODES

14074

MESSAGE

XXXXXX

SUBROUTINES
;

;

6708

SP.e

670~

Ee
ZRAAM,®
viol.e
:

6’10

000000
000004
Q0006

;:
:

3
:
3

004737
104423
000207

Routine Size:

Maximum stack

6711
6712
613

2
2
1

4 words,

depth per

000004
000010
000014
000016
000020

012746
012746
010600
104414
004737

000000G
000002

i
:

007476
000006

PC,MSEMS. 13

EMS.13::USR
TRAP
RTS

Rout ine Base:

invocation:

PRINTB (EBD_13,
EMS_SA ();
ENDMSG;

0000006

EMS.13 ERROR MESSAGE

.SBTTL

000000V

013746

062706
000207

11 Apr-1984 11:45:02

VAX-11 Bliss 16 V4.0 579

DISK$USERZ: [POWERS ]JZRQADO.BL L ;6

5€

> 09233 cca
(81)

BGNMSG (EMS _13);

000000

000024
000030

11 Apr-1984 11:56:01

RO/RX EXERCISER
ERROR MESSAGEF SUBROUTINES

2 words

$CODES

Routine Size:
13 wordgs,
Rout ine Base:
Max'mum stack depth per invocat on:
S words

$CODES

6710

14122

!
!

.SBTTL

.STEP);

MS$EMS.13:
MOV
MOV
MOV
MOV
TRAP
JSR
ADD
RTS

SUBROUTINES

*STEP x READ ERROR
PRINTX SA CONTENTS

M$EMS.13 ERROR MESSAGE

SUBROUTINES

STEP, -(SP)
#€B80.13, -(SP)

SP,RO

: SP,s

PC,EMS,.SA
06, SP

:
3

02, -(SP)

14132

6’11

6712
6710

F o
ZRQAM,

vol1.6
3

:
;

:
:
:

ERROR MESSAGE SUBROUTINES

6714

000000
000004
000006

004737
104423
000207

Routine Size:

Maximum stack

6715
6716
6717

2
2
1

4 words,

depth per

000004
000010
000014
000016
000020
000024
000030

012746
012746
010600
104414
004737
062706
000207

0000006
000002

Routine Size:

Maximum

stack

Rout ine Base:

invocation:

2 words

11:45:02

DISKS$USERZ: [POWERS JZRQADO.BL 1 ;6

5EQ 0225

Page 225
(82)

13 words,
per

$CODES

words

“BAD SA CODE FROM DEVICE xxxxxx’
PRINTX SA REGISTER CONTENTS

L.SBTTL

MS$EMS.
14 ERROR MESSAGE

MOV

IRDRX.ADDR, -(SP)
0€B8D.14, -(SP)

SP,.RO

$CODES

6714

14164

'
!

MOV
MOV
MOV
TRAP
JSR
ADD
RTS

Routine Base:

H:EHS.I#:O

invocation:

SUBROUTINES

.IRDRX_ADDR);

007476°
000006

depth

PC.MSEMS. 14

EMS.14::JSR
TRAP
RTS

PRINTB (EBD_14,
EMS_SA ();
ENDMSG;

0000006

EMS.14 ERROR MESSAGE

.SBTTL

000000V

013746

11 Apr-1984

VAX-11 Bligus-16 v4.0 S79

B8GNMSG (EMS _14);

000000

11 Apr 1984 11:56:01

RD/Rx EXERCISER

SUBROUTINES

6715

SP,e

PC.EMS.SA

06,5P
PC

14174

6716
6714

G
JRAAM.

RD/RX EXERCISER

vol.6

ERROR MESSAGE

6718

C00000
000004
000006

:
:
:

:
:

004737
104423
000207

6720
6721

2
1

EMS_RP ();
ENDMSG
;

0000006

000004
000010
000014
000016
000020
000024
000030

012746
012746
010600
104414
004737
062706
000207

000000G
000002

Routine S'ze:

Marimum stack

Routine Base:
invocation:
2 words

PRINTB (EBD_18,

013746

.SBTTL
EMS.18::USR
TRAP
RTS

000000V

000000

SUBROUTINES

11:56:01
11:45:0°2

VAX-11 Bliss 15 v4.,0 579
DISKSUSERZ: [POWERS }ZRQADO.BL1; 6

SEQ 0226
Page <26
(83)

BGNMSG (EMS 18);

Routine Size:
4 words,
Max'mum stack depth per
6719

11-Apr 1984
11 Apr-1984

13 words.

S5 words

MS$EMS .18

MOV

CDISK, -(SP)

$CODES

6718

“DISK XXX WENT OFFLINE-"
PRINTX RELEVANT RETPKT FTIELDS

.SBTTL

MOV
MOV
MOV
TRAP
JSR
ADD
RTS

Rout ine Base:

14226

'
!

HSEHS.IG:O

invocat
on:

SUBROUTINES

.CDISK);

011732
000006

depth per

$CODES

EMS.18 ERROR MESSAGE

PC,MSEMS, 18
23

ERROR

0€BD.18, -(SP)
02, -(SP)
SP.RO
14

PC.EMS.RP
26, 5P

14236

MESSAGE

SUBRIJUTINES

H
;

:
:

6719
SP,s

6720
6718

ZRQAM,

RDO/RX EXERCISER

vol.é

6722

000000
000004
000006

:
;
:

ERROR MESSAGE

004737

104423
000207

6724

000000V

EMS _RP1

ENDMSG;

000000

004737

012052

000004

000207

;

Rout:ne Size:

Max'mum stack

SUBROUTINES

Apr-1984

11:45:02

VAX 11 Bliss 15 v4,0 579

DISKSUSERZ : [POWERS JZRQADO.BL1 ;56

0227
3 £EQ ongi
ee?

(84

BGNMSG (EMS_21);
.SBTTL

EMS.21 ERROR MESSAGE

TRAP
RTS

23
PC

EMS.21::JSR

Routine Size:
4 words,
Maximum stack depth per
6723

11 Apr 1984 11:56:01

Rout ine Base:
invocation:
2 words

$CODES$

PC,MS$EMS . 21

3 words,

depth per

Routine Base:

invocation:

1 word

$CGDES

PC,EMS.RP1
PC

6722

CONTENTS OF RETURN PACKET

MSEMS.21 ERROR MESSAGE

MS$EMS.21:
JSR
RTS

;

14270

()

.SBTTL

SUBROUTINES

14300

SUBROUTINES
H
:

6723
6722

12
ZRQAAM>

RO/RXx EXERCISER

vOol.6

€TSS

000000

000004
000006

;:
:

:
H

ERROR MESSAGE

004737

104423
000207

Routine Size:

Maximum stack

6726
6727

2
1

Q00000

004737

000004

000207

;:
:

Routine Size:
Maximum stack

11 Apr 1984 11:56:01

SUBROUTINES

11-RApr-1984

BGNMSG (EMS _22)

4 words,

.SBTTL

EMS.22 ERROR MESSAGE

TRAP
RTS

23
PC

EMS.22::JSR

Rout ine Base:

invocation:

2 words

$CODES$

PC,MSEMS ., 22

3 words,
depth per

SEQPS%EBEES
(8%)

222

SUBROUTINES

6725

14306

EMS_DBN ();
ENDMSG;

011004°

VAX-11 Bliss 16 V4,0 579

DISKSUSER?2: [POWERS )ZRQADO.BL1;:6

SCONTENTS OF DUP BUFFER

000000V

depth per

11:45:02

1222
0222
LSBTYTL MSEMS .22 ERROR MESSAGE

MSEMS
. 22:
JSR
RTS

Rout ine Base:
invocation:
1 word

$CODES

PC.EMS.DBN
PC
+

14316

SUBROUTINES
H
H

6726
6725

Je
RD/RXx

ZRQAM.>

ERROR MESSAGE

v01l.6

6728

C00000
000004
000006

EXERCISER

004737
104423
000207

:
:

Routine
Maximum

:
H
:

6729
6730
6”31

Size:

words,

PRINTB

000000

013746

0000006

000004
000010
000014
000016
000020
000024
000030

012746
012746
010600
104414
004737
062706
000207

0000006
000002

Maximum stack

Rout ne Base:

invocat

(EBD_24,

EMS_RP ();
ENDMSG;

on:

$CODES

ERROR MESSAGE

PC,MS$EMS, 24

11:45:02

VAX-11 Bliss

16 v4,0 579

DISKS$USER2: [POWERS ]JZRQADO.BL 1 ;6

5EQ 0229

Page 229

(86)

!
!

.SBTTL

MSEMS.24

MS$EMS
. 24;
MOV
MOV
MOV

“DISK XXX WENT TO THE AVAILABLE
PRINTX RELEVANT RETPKT FIELDS

ERROR MESSAGE

CDISK, -(SP)
0€EBD.24, (SP)

MOV
TRAP

]
3

@6, 5P

RTS

14334

STATE"

SUBROUTINES

82, (SP)
SP,RO
14

PC,.EMS.RP

JSR
ADD

$CODES

6728

14324

.CDISK);

13 words,
Rout ine Base:
depth per invocation:
5 words

;

2 words

011732
000006

SUBROUTINES

TRAP
RTS

2
2
1

Routine Size:

EMS.24

.SBTTL
EMS.24:
: JUSR

000000V

depth per

11 Apr 1984

SUBROUTINES

11:56:01

BGNMSG (EMS _24);

stack

11-Apr-1984

6729
SP,»

6730

6728

<K&
ZRAAM.

RD/Rx EXERCISER

vOl.6
:

6732

ERROR MESSAGF
1

000000

004737

000006

000207

000004

;
:

104423

Routine Size:
Maximum stack

6733

673

000000

004737

000004

000207

:
:

:
H
:
;

Routine Size:
Maximum stack

6735
6736
6737
6738

1
1
1
0

11 Apr-1984 11:56:01

SUBROUTINES

11 Apr-1984

11:45:02

VAX-11 Bliss 16 v4,0-579

DISKSUSER?Z: [POWERS }JZRQADO.BL1:5

000000V

.SBTTL

€MS.30 ERROR MESSAGE

TRAP

EMS.30::JSR

PC.MS$EMS, 30

RTS

4 words,
depth per

Routine Base:
invocation:
2 words

EMS_ERR ();

$CODES$

(87)

013560’

M$EMS. 30:

Rout ine Base:
invocation:
1 word

6732

PRINT ALL RELEVANT DATA ON DETECTING AN ERROR

.SBTTL

MS$EMS,.30 ERROR MESSAGE

JSR

PC,.EMS.ERR

RTS

3 words,
depth per

14366

ENDMSG ;

SUBROUTINES

$CODES

6733

6732

14376

end

e ludom

PSECT

BL$DOIV,

$SAVE4Q,
BL$MOD,

$SAVE3,
BLS$MUL

$SAVE2

SUMMARY

ws
@0
e

Page 230

.GLOBL

BGNMSG (EMS _30);

0TS external references
$SAVES,
.GLOBL

SEQ 0230

Psect

Name
SOWNS
$CODE
$
$PLITS

Words
74

Attributes

3202

RuW
RO
RO

L 'brary

Fle

DISK$USERZ: [POWERS JZRQADO .L16:3

.
.,

LCL,

REL,

LCL,

REL,

CON

CON
CON

Steatistics

Total
404

Symbols
Loaded
294

- -Percent
72

Pages
Mapped
cl

Process
T 'me

00:00.0

L&
ZRQAM?

RD/Rx EXERCISER

vOol.6

ERROR MESSAGE SUBROUTINES

11-Apr-1984

11:56:01

11 Apr 1984 11:45:02

COMMAND QUAL
IF IERS

BLISS/PDP11 ZRQADO.BL1/LIST=ZRQADO.LS1/0BJECT=ZRQADO.C81/SOURCE
=PAGLE :53
Size:

Run

T me:

3032 code

02:48.°2

Elapsed T me:
05:13.5
Lines/CPU Min:
2403
Levemes/CPU-Min: 23961
Memory Used:
677 pages
Compilation Complete

¢+« 6503 data words

VAX-11 Bliss 16 v4.0 579

DISKS$USERZ: (POWERS ]ZRQADO.BL1 ;6

5EQ 0231

Page 31

(87)

ZRQAAMZ

11 Apr-1984 11:08:35
11 Apr 1984 11:08:22

:
H
:

0001
0002
0003

O
O

:
:
:

0005
0006
0007

0O
O
O

:
:

H
H
H
:
:
:
:
H
H

:
:

0008

0009

0010
8011
ole
0013
0014
Q01s
1506
1507
1508

1509
1510

:
:
H
:

1511
1512
1513
1514

H
H
H
H
:
:
:
H

1516
1517
1518
1519
1520
1521
1522
1523

:
:

H
H
:
H
H
H
H
H
:
H
H
:
:
:
H
;

H
:

0008

1515

1524
1525

1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541

1542
1543

1
1
1
1
1
1
1
1
1

1
1

1
1
1
1

1
1
1
1
1
1
1
1

1
1

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1

1
1

VAX 11 Bliss 16 v4,0 S79

DISKS$USERZ2: (POWERS)JZRQADO.BL2;6

module ZRQAM3 (

stitle 'RDO/RX EXERCISER'
ident

'V0l1.6

addressing_mode (absolute),
environment (noeis)
) =
begin

ssbttl

‘'DECLARATIONS'

1 brary

'ZRQADO.L16';

RDRX EXERCISER GLOBAL LIBRARY

require 'BLSMAC.REQ;

DIAGNOSTIC SUPERVISOR L IBRARY

EQUALS;

forward routine
INIT_TEST : novalue,

ORIVER_INIT : novalue,
CTLR_INIT : novalue,
INI_CTLR_DAT : novalue,
REG_EXIST,
VEC_BR

' ROUTINES APPEAR IN THIS ORDER
'
INDENTATION IMPLIES CALLED SUBROUTINE

TEST,

INT_GEN,
HARD _INIT,
INI_RRING : novalue,
SET_CTLR_CHAR,
UNIT_INIT : novalue,
DR_ERR : novalue,
ACCESS : novalue,
MULTI_DRIVE : novalue,
MD_INIT : novalue,
INIT_IO_BUFF :

novalue,
FATAL _ERROR : novalue,
QI0_OK,
QIO _0uT,
QIO_GEN : novalue,
GET_RANDOM : novalue,
QIO_UNIT : novealue,
QIO_FUNC : novalue,
OUP : NOVALUE,
DUPWRTDBN : NOVALUE,
OUPREDDBN : NOVALUE,
OUPCOMMAND : NOVALUE,
ODUPIDLE : NOVALUE,
QIO_LBN : novalue,
QIO_SIZE : novalue,
FILL BUFF : novalue,
PROC _RETPKT

novalue,

DIO RETPKT : NOVALUE,
DUP _COMPARE : NOVALUE,

1222
1222
1222
1222
$222

1222
1222

55092332

(1)

N2
ZRAAM2

RD/RXx EXERCISER

vOl.6

DECLARATIONS

;
:

1544
1545

1
1

:
H
:
:
:
:

1547
1548
1549
1550
1551
1552

1
1
1
1
1
1

:
:
:
:
:
:

:
:
:

3
:

1546

1558
1554
55
1556
1557
1558

1559
1560
151

1562
1563
1222
3
1564
3
1565
:
1566
:
1567
3
1568
:
1569
:
1570

3
H
3

1571
1572
1578

H
H
3
3

1576
1577
1578
1579

s
3

3
:
:
:

3
:

H
H
s
H
3
)
:
s
3
:

1574
157%

1580
1581
1582
15683

1584

1585
1586

1587
1568
1589
1990
1591
19592
1598
1594
1595
1596

11-Apr

11 Apr 1984

1
1
1

HARD ERROR

'
'

AZINTO

novalue,

ERR_HRD_RTNE : novalue,
ERR_HRD _RTNE _APT : novalue,
SWEEP : novalue,
RPS _REM,
OR_RETPKT : novalue,
LS$SISR novalue,

POLL _RRING :
OUP _RSP

novalue,
: NOVALUE,

DISK_RSP : novalue,
SEQUEN : novalue,
SCAN_ERRLOG : novalue,
ERR_SOFT_RTNE : novalue,
ERR_SOFT_RTNE_APT : novalue.
SOFT_ERROR : novalue,
DATAGM : movelue:;

!
H
'

1
1
1
1

external
CST :

ERR_SOFT_RINE : novalue,
ERR _SOFT RTNE _APT : novalue.

SOF
T _ERROR

CSYT_ADOR
:

novalue;

blockvector

1
1
1

DCY

RORX_ADDR

1
1
1
1
1
1
)
1
1
1}

[MAX CTLR, CST _LEN, word] field (CST_FIELDS),
' RUN-TIME CONTROLLER STATUS TABLES
ref block [CST_LEN, word] field (CST_FIELDS),
' CONTROLLER STATUS TABLE ADDRESS OF "CURRENT"” CONTROLLER

blochvector

DCT _ADDR

IRORX _ADDR

[MAX_CTLR, DCY_LEN, word) field (DCT_FIELDS).
* DRIVER CONTROLLER TABLES
ref block [DCT_LEN, word] fi.eld (DCT_FIELDS),
! ADDRESS OF "CURRENT' DRIVER CONTROLLER TABLE

ref rdrx field (RC_REG),

ref

! DEVICE ADDRESS OF
rdrx field (RC_REG),

“CURRENT” CONTROLLER

' DEVICE ADDRESS OF INTERRUPTING CONTROLLER
BLOCKVECTOR [MAX_UNITS, 2. WORD],
12222
*3LOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS
0222
TRANDOM SEEK) MODE
1222
TALLY : vector [MAX_UNITS o TALLY_LEN, word) field (T _FIELDS),
! STATISTICS TABLES
T_ADDR : ref block [TALLY_LEN, word) field (T _FIELDS),
! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT
DUPPKT : BLOCK (257, WORD) FIELDO (OP_FIELDS),
IBUFFER FOR DUP
222
tINFO FROM RECEIVE AND SEND COMMANDS
222

B8ST

16 v4.0 579

DISK$USERR2: [POWERS]ZRQADO.BL2;:6

AZINT : novealue,
FATAL _ERROR : novalue,
POLL _CRING : novalue,

1
1
1

1
1

11:08:22

VAX-11 Bliss

ERR_HRD _RTNE : novalue,
ERR_HRD_RTNE
_APT1 : novalue,
UPD_IO_TALLY : novelue,
OVF _CHK : novalue,
ROUND _OUTPUT : novalue,
HOST _WRT_CHK,

1
1

1
1
1
1
1
1
1

11:08:35

I0 RETPKT : novalue,
FSET UPAR : novealue,

1
1
1
1
1
1

1984

SEQ 0233

Page

(1)

b 4
ZRQAMX

RD-Rx EXERCISER
DECLARATIONS
b
P
B

C ERR_TBL

VECTOR

WORD,

b e Ped (® Pub P
Db P8 (-8
P

INQ.

IPKT ADDR

blockvector

BrTE,

SIGNED],

RANDOM NOS.

WORD],

[(MAX _CTLR,

C_ERR_LEN,

PKT _USE

vector

word)

11:08:35
11:08:22

VAX 11 Bliss 16 v4.0 579
OISKSUSERZ: [POWERS )ZRQADO.BLZ; 6

TK DIRECTION

5EQ _0c34
Pege

222

KEEP\\

227

TOGE'//MHER

222

fieid (C ERR FIELDS),

[PKXT _CNT, byte, oisnodl.
! MSCP PACKET POOL ALLOCATION TABLE
RETPKXT : blochvector [RP_CNT, RP_LEN, word] field (RP _FIELDS),
H RETURN PACKEY POOL
RP _USE : vector [RP_CNT, byte, ei
! RETURN PACK
0& ALLOCATION TABLE
RP _INDX : word,
! CURRENT REYURN PACKET INDEX
RP_ADDR

ref

block

(RP_LEN,

word]

field (RP_FIELDS),

! CURRENT RETURN PACKET ADDRESS
blockvector [EP _CNT + 1, EP_LEN, word) field (EP FIELDS),
! ERROR-LOG PACKET 3AVE AREA

1649

1984
1984

!CURRENT

*RAND NO TABLE

(b (b (D P
P
P
b P
P
Pt e P
P
b P
P
o P

1643
1644
1645
1646
1647
16438

Apr
Apr

' STATISTICS TABLE FOR CONTROLLER ERRORS
blochvector [PXT_CNT, PKT _LEN, word] field (PKT FIELDS),
! MSCP PACKET POOL
: ref block (PXT_LEN, word) field (PKT_FIELDS),
! ADDRESS OF AN MSCP PACKET (INTERRUPT PROCESSING)

(b P

MSCP PXT

(MAX_UNITS,

VECTOR [ROM_LEN,

RANDOM

BUFF _ADDR : vector (MAX_BUF CNT],
BUFF _OWN : vector [MAX_BUF CNT, byte,

s Pt s Pt o P

1641
1642

TRK_SGN

RDM_CNT

ELOG_PKT

1616
1617
1618
1619
1620
1621
1622
1623
1024
1625
1626
1627
1628
1629
163C
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640

1615

1614

s P

1604
1605
1606
1607
1008
1609
1610
1611
1612
1613

Pt P

1608

1600
1601
1602

1597

1598
1599

Q¢

V¢

B¢

V¢

V0 G0 G0 G0

G0 G0

VO V0

G0 G0

O+ G0

G0 Vo

vol.6

11
11

100Q : vector (IODQ_LEN, bytel,
IODQ_IN : word,
100Q_0UT : word,
ENTRY _REASON : byte,
EOP_FLAG : byte,
OUP _FLAGS : WORD,
CCTLR : word,
COISK : word,
CUOFF : word,
CTLR_CNT : word,
OUR : vector [MAX_UNITS, bytel,
QIO : vector [MAX CTLR, bytel,
FREE _MEM _ADOR,

signed],

TABLE OF 1/0 BUFFER DESCRIPTORS
1/0 BUFFER OWNERSHIP (CONTROLLER NUMBER)

170 DONE QUEVE - CIRCUWWAR QUEUE OF RETPKT INDECES
1/0 DONE QUEUE IN POINTER
I/0 DONE QUEUVE OUT SQINTER
CURRENT OPERATOR COMMAND
END -OF -PASS FLAG
DU FLAGS
222
NUMBER OF “CURRENT" CONTROLLER
CURRENT DISK ADORESS (RD/Rx DISK NUMBER)
CURRENT UNIT CST OFFSET
TOTAL NMMBER OF CONFIGURED CONTROLLERS
ODROP UNIT REASON
NUMBER OF OQUTSTANDING QIOs PER CONTROLLER
START

FREE

MEMORY

BYTS_PER_QIO : word,
ST_CODE : word,
S8 _CODE : word,
STEP : word,
OF _RC : signed word,
SA REG : word,
CMO_TIME : word,
NEX : word,
CRN_LOW : word,
CRN_HIGH : word,
CREDIT _BAL : word,
NEXT PKT_USE : byte,
HOURS : byte,

SIZE (BYTES) OF AN [/0 BUFFER
CURRENT STATUS CODE
CURRENT SUB -CODE
CURRENT STEP IN HMARD_INIT
OFFSET (O OR 2) TO READ IP OR SA
STORAGE FOR SA REGISTER READS AND WRITES
COMMAND TIMEOUT VALUE (IN SECONDS)
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT
COMMAND REF NUMBER (HI ORDER)
CREDIT BALANCE
POINTER TO NEXT ENTRY IN PKXT _USE TABLE
TIME OF DAY (HMOURS)
TIME

DAY

(MINUTES)

CLK_TICKS

TIME

DAY

(LINE-CLOCK

MINUTES

byte.

word,

CLK _PRESENT : byte,
HOt _FLAG : byte,
FORCED ERRNR : byte,

TICKS)

FLAG INDICATES IF LINE CLOCKX PRESENT
FLAG INDICATES IF "WALT ON ERROR
FLAG
‘PORCED ERROR' DETECTED IN LAST READ

SE°

5
(1)

JRQAMR

RO/Rx EXERCISER

DECLARATIONS
P

1652
1653

P P
P
P
b P
(o P Pt P8 P P P P P P
(i P
P
(s P
i S (s P P
e P
P Pt P P P P P
P
P
S Pl P
e Pt P
P

V¢
90
V0
O
V5
W
W
VS
G2 B¢
B0
V1
VT
B0
€0
98 B¢
G

1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702

1668
1669
1670
1671
1672
1673
1674
1675
1676
lo77
1678
1679
1680
1681
1682
1683

et P

1654
1655
1656
1657
1658
1659
1660
1661
1662
16€3
1664
1665
1666

Pt Pt Pt P

1651

1650

D¢

G0 V0

00 OF G0

Vs G0

G0 G

vOl.6

FER_LBN : word,
FER_BC : word,
INIT_OCCURED : byte.

ADDR_VECT
_OK : byte,
S _PATTERN : WORD,
S _DUPPKT : WORD,

P_INDEX

0O8Mb,
DBM18,

OBM19,
D8M20,
osMel,
o8M22,
DBM2s,

o8MeS,
o8M26,
o8M27.,

D8M29,
o8M108,
DBM109,
pBMi1l,
oML,
08M120,
O8M121,
EM_O,
EH_L,
En_2,

€EH_3,

€N A,

€En_5S,
EH_6,
EN_7,

£EH_8,
ExN_9,
€En_10,

EH_13,

MSG _02,

MSG_03,
€GS_02,
€EGD_10,
EGD_11,

€GD .12,
€EGD_13,
€GD_14,
€EGD_15,
EGD_16,
€EGD_17,
EGD_18,
EGD_19,
€GD _20,
£GD .21,
EGD 22,

SIGNED WORD,

11
11

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 16 V4.0 579
DISKSUSERZ:
(POWERS ]ZRQADO.BL2;6

LBN OF THE "FORCED ERROR” BLOCK
BYTE COUNT OF Tt “FORCED ERROR” BLOCK
EXERCISER INITIALIZATION COMPLETF
FLAG INDICATES IF ADDRESS/VECTOR TEST PASSED
'PATTERN WRITTEN TO DBNS
222
'OBN BYTE COUNTER
222
!CURRENT MESSAGE PACKET INDE
X
222
!
!
!
!

%0 0235

(1,

D3
ZRQAMS

RD/RX EXERCISER

vOol1.6
:

1703

1705

3
3
:

1706
1707
1708

1
1
1

DF _MSG,
HRD _MSG,
SFT_MSG,

H
H

1710
1711

1
1

CRLF,
SWP_ERROR

3
H

1713
1714

3
3
3
:
H
:

1718
1719
1720
1721
1722
1723

]

3
3
3

3
3

1709

1712
1715
1716
1717

{;gg

11 Apr-1984 11:08:22

€EGD 24,

EGH_30,

HRD _SUB,

SWP _XFER

SWP _FLAGS
OUPROUND

SWP TIME : word,
SWP _UDPAT : vector
LSLUN,
LSUNIT;

1
1
1
1
1

:
:

word,
word,

1
1}

1
1
1

SWP _RAT : word,
SWP _DPAT : word,
SWP UCNT : word,

psect
own

$GGGS(read,

(MAX UDP CNT,

nowrite,

wordl,

execute,

local,

1726
1727
1728
1729
730

1
1
1
1
1
1

DPST

H
H
:

1732
1733
1734

1
1
1

MAX _LBN : vector [MAX_UNITS, word],
STORAGE : vector (MAX UNITS, word],
ICOM_ADDR : ref block [COMM_LEN, word]

H
:

H
3

H
3
H
H
H
:

H
H
H

:
H
H
:

H
H
H
H

1781

1735
1736

1737
1738

1739

1
1

1740
1741
1742
1743
1744

1
1
1
1}

1748
1749
1750
1751

1
)
1
1

1745
1746
1747

1
1
1

17952
1753
1754
175%

1
1
1
1

! HMARD ERROR LIMIT FOR ODROPPING UNIT
' TRANSFER LIMIT FOR DROPPING UNIT
! FLAGS (SEE DOCUMENTATION)
10UP TESTING RATIO
' RDS1/52 OPERATION RATIOC
! DATA PATTERN NUMBER
! USER DATA PATTERN COUNT
! TIME OF DAY
¢! USER DATA PATTERN

word,
WORD,

:
3
3
:
H
:

VAX 11 Bliss-16 V4.0

DISKSUSER?: (POUERSiZRQADO 8L2;:6

€GD_ 283,

1704

11 Apr 1984 11:08:35

DECL ARAT IONS

COMM_AREA
10222

8ST
:

:
:

blockvector [MAX_CTLR, COMM LEN, word) fiela (COM_FIELDS),
! COMMUNICATIONS AREA BETWEEN HMOST AND AZTEC CONTROLLERS
vector [MAX_UNITS, word, sircd).
! BLOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VvS. RANDOM SEEXY MODE

vector

ICST_ADDR

IOCT _ADDR

INT _ADDR

concatenate);

{MAX_UNITS,

!
ref block

vector

bytel,

DATA PATTERN SEQUENCE

TABLE

!
!

LARGEST LBN ALLOWED
DUMMY STORAGE
field (COM_FIELDS),

ADDRESS OF INTERRUPTING CONTROLLER'S COMMUNICATION AREA
[CST_LEN, word) fieid (CST_FIELDS),

ADORESS OF INTERRUPTING CONTROLLER'S CST
(OCT_LEN, word] field (DCTY _FIELDS),

ADDRESS OF' INTERRUPTING CONTROLLER'S OCT

(HAX CTLR]) initial (AZINTO w(, AZINT1, AZINT2, AZINT3)s),
' INTERRUPT SERVICE ROUTINE ADDRESS TABLE
10222
RDM CNT : word initiol (ROM_LEN),
! NUMBER OF RANDOM NUMBERS
10222
RANDOM : vector (RDM_LEN, word],
! RANDOM NUMBER TABLE
ICTLR : word,
¢t INTERRUPTING CONTROLL
ING NUMBER

MX]l : signed word,
MX2 : signed word,
MAD1 : ref block [PKT_LEN,

! MSCP PKT
! MSCP PKT
field (PrT FIELDS),

INDEX FOR FIRST QIO
INDEX FOR SECOND QIO

word)
! ADDRESS OF MSCP PACKETY FOR FIRST QIO
MADZ2 : ref block [PKT _LEN, word) field (PKT FIELDS),
! ADDRESS OF
M,CP PACKET FOR SECOND QIO
LAST PKT : blockvector [MAX CTLR, LAST PKT _LEN, word) field (LAST_PKT FIELDS),

PAT02

PATO3

! SAVE AREA FOR
vector (2] in"tial (1,
0’ 000000 ),
vector [2) initial (1,

INFO ABOUT LAST RESPONSE PACKE?T
! PATTERN 2
t

PATTERN B

\ KEEP
- TOGE THER

222

SEQP%

(1)

t 3

ZRQAMS

RD/RX EXERCISER

vOl1.6

1756
i
3
:
s

1°57
1758
1759
1760

H
H

1762
1763

3
s
3
3

1761

1764
1765
17
1767

:
:
:
:
:
H
H
3

1
1
1
1

1775

1776
1777
1778
1779
1780
1781

1782
1783
1784
1785
1786
1787
1788

1789

PATOA
PATOS

PATO6 :
PATO”

1
1
1|

PAT10
PAT11

PAT.2

1793

PAT14

1795

1
1

:
:

1802
1803

1
1

:
H
3
:

1798
1799
18600
1801

1
1
1
1

#0' 007777,
#O 177777,

wo'177774°,

%0°'177770',

#0°'177760°,

PATL1S

PAT16

%0'026455°',

%0' 026455’ , #%0'151322',

vector

(2])initi.1

vector [17])

o’ 000001’ ,

#o'151322',

(1,

#o’' 026455
),

initiel (16,

#o’' 000002’ , so’'000004', so' 000010,

#o' 000040’ , #o’'000100', so’' 000200

#0°'167777', %0' 157777, #0'137777',
vector [17) initial (16,
rep

3 of

#0°' 0777277,

(22)

initial

PATTERN S

! PATTERN 7

! PATTERN 8

* PATTERN 9

(21,

PATTERN 10

PATTERN 11

PATTERN 12

PATTERN

PATTERN 14

PATTERN 1S

PATTERN

(wo'155554'),

rep 2 of (%0°'133331'), rep 2 of (%o'155554'),
#o0’' 133331, #0’'155554', wo'133331', #o' 155554,
#o’'133331', ®o’'155554'
),
vector

PATTERN 4

vector [17) initial (16,
#0°'177776°, %0°' 177775, #w0' 177773, #0 177767,
%0’ 177757, wo'177737°, #0°'177677', #0’'177577'
.,
%0'177377', #0°176777', #o'175777°, w0’ 173777,
(%0°133331'),

%o’ 026455,

#o’' 000400° , #0'001000', #o' 002000’ , so’' 004000°,
o' 010000 , o' 020000’, so’'040000', so’'100000'),

3 of

VAX-11 Bliss 16 V4.0 579

DISKSUSERZ: [POWERS JZRQADO.BL2: 6

rep 2 of (%o°177777'),

#0°' 151322’ ,

rep

PAT17

%0’ 177400,
w0’ 170000,
so’'000000'),

rep 3 of (wo’'1772777'),

o' 151322,

w0’ 000020’ ,

H
H
H
H

#0'003777*,
w0'077777*,

rep 2 of (%0°'052525'), rep 2 of (%0'125252'),
%0’ 052525’ ., #o'125252', %o’ 052525’ , wo’'125252'.
%o’ 052525’ , %o’'125252'
),
: vector [21] initial (20,
rep 3 of (#0°026455'
), rep 3 of (®o'151322'),
rep 2 of (%0°'026455'), rep 2 of (%o’'151322'),
rep 2 of (%0’'026455'),

1796
1797

initial (16,

%o’ 000007’, #o' 000017,
#0°'000177', #o' 000377,

%0' 000000’ , %0’ 177777’, #0'000000', %o'177777',
o' 000000, 0177777
),
: vector [2] initial (1,
o' 133331’
),
: vector [17) initial (16,
rep 3 of (%0'052525’'), rep 3 of (%o’'125252'
),

:
H

w0°'177776',

rep 3 of (#0°'000000°'),

PAT13

vector [17)

#0'001777',
%0°' 037777,

rep 2 of (#0'000000°'),

wo’' 000003’ ,
#0°'000077',

PATO9

1794

%o' 000001,
o' 000037’ ,

11:08:22

! PATTERN 5

%0°'177740', %0'177700', #0°'177600’',
%0°'177000', %0’'176000', #0’'174000',
#o' 160000, #o’' 140000, #o’'100000',
: vector [17] initial (16,

initiel (1,

1790
{;gé

vector [2])

o' 030221 ),
: vector ([17]) initial (16,

’

PATO8

1
1

%' 177777'),

%0°' 000777,
#0'017777',

1
¢
1
1
1
1

11 Apr-1984

vector (2] initial (1,
#o' 105613’
),
: vector [2] initial (1,
#0'031463'
),

1
1

1
1
1
1

1774

H
H
H
:
:
H

17?7
1771
1772
1773

1
1
1
1

1769

3
3
:
3

1768

11 Apr 1984 11:08:35

DECLARATIONS

> 09232

(1)

3
ZRQAME

RD/RXx EXERCISER

DECLARATIONS
#0' 000000’ ,
PAT18

PAT19

rep 3 of (%0'106466'),
rep S of (%0'106466°'),

PAT20

vector

PAT21

[22)

rep 4 of (%0'071311'),
rep 6 of (%0'071311')),

initiesl (21,

%0' 000000’ ,

rep 2 of (%o'134631'),

so0' 134631’ ,

so'000000',

rep 3 of (#0'043146'), rep 4 of
rep S of (%0'043146'), rep 6 of
vector [22] initial (21,

(%o’ 134631’ ),
(so'134631')),

rep 3 of (40'134631'),
rep S5 of (%0'134631°'),
vector [2] initial (1,

(#0°'043146'),
(%0°'043146°)),

so0'043146°,

rep 4 of
rep 6 of

so’' 000000’
),
OPA_TBL : vector (DP_CNT) initial
(RDM_CNT, PAT02, PATO3, PATO4A,
PATO6,
PAT12,
PAT18,

BST_CNT : word
BST_DEV : word
CURRENT _VECTOR

BRLEVEL : word,
DUOFF
: WORD,
ORS _START,
APT _MODE : byte

PATO7,
PAT13,

PATO8,
PAT14,

PAT09,
PAT1S,

PAT19,

PAT20,

PAT21),

initial (0),
initial (0),
: word,

initial
MAIL _BOX_TESTNUM,
MAIL _BOX_SUBTST,

COMPARE _DATA

DRS_FLAGS:

RD_MAX_SEQ_CNT
RX_MAX_SEQ_CNT
external

word,
word;

PATTERN

PATTERN 19

PATTERN 20

PATTERN

PATOS,

" DATA PATTERN ADDRESS TABLE

PATI11,
PAT17,

' CURRENT SEQUENTIAL BLOCK COUNT
' CURRENT SEQUENTIAL BLOCK DEVICE
¢ CURRENT DEVICE'S VECTOR ADDRESS
' CURRENT DEVICE'S BR LEVEL
1DUP OFFSET INTO CST
22z
' START OF THE SUPERVISOR
! FLAG SET IF EXERCISER RUNNING UNDER APT
' ADDRESS OF TEST NUMBER LOCATION IN APT MAIL -8B0X
' ADDRESS OF SUB-TEST NUMBER LOCATION IN APT MAIL BOX
' FLAG CLEARED TO BYPASS HOST COMPARES
'* FLAGS USED IN START/RESTART OF THE EXERCISER
' COUNT USED IN SEQUENTIAL ACCESS OPERATIONS
]

L$ISR novalue,

novalue,
novalue,

IN_IODQ :
GET _PXKT,

novalue,

PUT_PKT

GET _RETPKT,
PUT _RETPKT :

GET_IO_BWFF
PUT _I0_BUFF

PUTA _BUFF

:
:

novalue,

novalue,
novalue,

novalue,

SENO,
WAIT : novalue,
MODULAS,

V4.0 579

LS$ISR novalue

SET_CPAR :
SET_UPAR :
ouUT_100Q.,

DISKS$USERZ2: [POWERS)ZRQADO.BL2;: 6

routine

NEX_TRAP
TIME

:
:

122

)
VAX-11 Bliss

(LBN)

PAT10,
PAT16,

(byte (FALSE)),

byte,

word,

11:08: 35

rep 2 of (%o’'106466'),

rep 3 of (%0'071311'), rep 4 of (%o’'106466'),
rep S of (%0'071311'), rep €& of (%0'106466')),
vector [22] initial (21,
=o' 106466°' , %0’ 000000’, %0°'071311°',

b e
b P e P P
b Pt P P P P P
b (b P P P P [
b $8 b b P P P [l P
s b P e P P P Pd P
b P

1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861

0 D P

1848
1849

1838
1839
1840
1841
1842
1843
1844
1845
1846
1847

e P P P

vol.6

1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
182~
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837

11 Apr-19684
11-Apr-1984

0222

5EQ 0238
Page

(1)

ZRQAMS

RD/RX EXERCISER

v0l1.6

DECLARATIONS

H
H

1862
1863

1
1

OROP _CTLR : novalue,
DRV _CTLERR : novalue,

1865

EMS_EL

:
3
3
3
3
3
H
H
:

H
3
H

1864

1866
1867
1868
1869
1870
1871
1872
1873

1874
1875
187¢

1
1
1
1
1
1
1
1

1
1
1

EMS_RP1

11 Apr 1984 11:08:35

11 Apr-1984 11:08:22

VAX-11 Bliss 16 v4,0-579

DISKSUSERZ2: [POWERS )JZRQADO.BL2; 5

novalue,

EMS_CMP : novelue,
EMS_ERR : novalue,
EMS_10 : novalue,
EMS_12 : novalue,
EMS_13 : movalue,
EMS_14 : novealue,
EMS_18 : novalue,
EMS_21 : nmovealue,

EMC _22 : NOVALUE,
EMS 24 : novalue,
EMS_30 : novalue;

1222

)Eopggzq A
(1)

4
ZRQAMS

RD/RX EX-RCISER

vOl1.6
:
H
:
:
:
H

:
H
H
:
:
H
H
:

H
:

H
:
:

1877
1878
1879
1880
1881
188§

TEST SECTION

1
1
1
1
1
1

188
1884
1885
1886
1887
1888
1889
1890

1
1
3
3
3
3
3
3

1892

1891

1893
1894
1895

1896

1897

H
:
:

H
:
:
H
:

1917

1918

1919
1920
{ggé

1923

1924
{ggz
1927
1928
1929

local
DUMMY
0 :
OUMMY
_1 :

word,
word;

3
g

TRUE;

from O to PKT_CNT

SWP DINT);

1 do

ASSUME NO UNIT AVAILABLE
ALLOW

HOST

COMAPRES

ASKED

FOR

'CLEAR DUP INIT FLAG
222
' ASSUME "HOE' FLAG NOT SET
! INITIALIZE “FORCED ERROR' fLAG

INITIALIZE PACKET AREA

incr J from O to PKT_LEN - 1 do
MSCP _PKT (.I, .J, O, 16, 0) = O
MSCP _PKY
end;

[.I,

RSP_RECEIVED)

= FALSE;

incr

I from O to RP CNT - 1 do
incr J from O to RP_LEN - 1 do
RETPKT [.I, .J, O, 16, 0O} = O;

INITIALIZE RESPONSE

incr

I from O to EP CNT do
begin

INITIALIZE

NO SIMULTANEOUS CNTR/HOST WRIE CHECKS

NO STMULTANEOUS RANDOM /SEQUENTIAL

incr J from O to EP_LEN - 1 do
ELOG_PKT [.I, .J, G, 16, 0]
ELOG_PKT

begin

TRUE;

COMPARE _DATA

[.I,

EL_CONTENTS])

SAVE AREA

ERROR LOG SAVE

AREA

= O3

= EMPTY;

end;

if BIT_TSY (SWP_FLAGS,

then

SWP _FLAGS

if BIT_TST

.SWP_FLAGS and (not SWF HWC);

(SWP FLAGS,

3
g

then

3
3
4

i1 not .INIT_OCCURED
then
begin

SWP _FLAGS

SWF CWC)

SWF _RDM)

,SWP FLAGS and (not

SWF _SEQY;

(2)

BGNTST;

incr I

4
3
3
3
3
3
3
3
4
a
4
4
4
4

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.

1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916

1902

OISKSUSER?: [POWERS JZRQADO.BL2 ;6

'
!
!
H
!

SEQ 0240
Page

v4.0 579

SECTION

DUP _FLAGS = .DUP_FLAGS AND (NOT
HOE _FLAG = FALSE;
FORCED_ERROR = FALSE;

:
:
:
H
:
:
:
:
H
H
H
;
:
H

11:08:22

vax-11 Bliss-16

TEST

3
3
g
4
4
4
4

1984

11:08:35

sgbtt]l

EOP_FLAG =

1898
1899
1900
1901

Apr-1984

11 Apr

:
:
:
H
:

SELECZTS

13
ZRQAMR

RD/Rx EXERCISER
TEST SECTION

1930
1931
1932
1933
1934
1935
1936

1937
1938
1939

1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956

1957
1958
1959
1960

WHWHNNANDDBWWWWDEDLNINVNOARVINUVVUNUVUNSGAADABLARAMNNVINLNLLLLLLLS

B¢

©¢

Vs B¢

B¢

V¢

V0 BF

V0 O

V0 00

GO GF

G0 G0

vol.6

DRS _START

CAUTION...

!
if

11
11

_FREE MEM_ADDR

(..FREE_MEM_ADDR

APT

THE FOLLOWING CODE
SUPERVISOR,

APT

SUPERVISOR AND

THE ADDRESS OF

(..DRS_START

)
(not MANUAL
then

begin
APT _MODE

eql

AND

®%0°'167')

Apr 1984
Apr-1984

'KLUGED'

FOR

IT'S

MAIL _BOX_TESTNUM = DRS_START + #0'62'
+» %0°'6’';
MAIL _BOX_SUBTST = _DRS_START +» #0'62'
¢+ %0'4',;
end;

NEX

THE

not

THE

!
!

APT MAIL BOXx
BEGINNING OF

DRS

CHECK
SET
TRY

THE

ACTUAL

STARTS WITH A

JUMP

INSTRUCTION

IS OFFSET AT OCTAL 62 FRCOM
SUPERVISOR

IF LINE CLOCK PRESENT

TRAP CATCHER ADDRESS
TO

OUMMY

ADDRESS

THE

INSTRUCTION

RETURN LOC

THE

CLOCK
SUPERVISOR

.NEX

beg'n
CLK _PRESENT = TRUE;
CLK_TICKS = 0;
HOURS = . SWP_TIME / 100;
MINUTES = (.SWP_TIME mod 100)
while

.MINUTES geaqu 60 do

begin
MINUTES

HOURS

_HOURS

end;

HOURS

end;

_MINUTES

SET FLAG IF CLOCK PRESENT
INITIALIZE THE LINE-CLOCK
¢«

TIME
TIME

OF
OF

DAY
DAYy

(HOURS)
(MINUTES)

NORMALIZE MINUTES

NORMALIZE

¢
t*

LINE CLOCK VECTOR
START THE CLOCK

READ DRS FLAGS

TICK

COUNT

60;

_HOURS mod 24;

HOURS

end;
if CLK_PRESENT
then

begin
SETVEC (#0'100‘, TIME,
LINE_CLOCK = BIT6;

PRIO6);

end;

RFLAGS (DRS FLAGS);
if

BIT_TST

then

Page

SUPERVISOR,
APT

CLRVEC (4);
then

IS RUNNING UNDER

= FALSE;

SUPERVISOR

KNOWLEDGE

CLK_PRESENT = FALSE;
SETVEC (4, NEX_TRAP, PRIO7);
OUMMY
_O = LINE_CLOCK;

DUMMY
1 =

START OF

THE EXERCISER

SUCCESS

THE MAIL -BOX WITHIN THE

and

TRUE;

DISK$USERZ: [POWERS 1ZRQADO.BL2;6

¢ 2);

TO DETERMINE

DEPENDENT

5€Q 0241

VAX 11 Bl ss 16 v4.0 579

11:08:35
11:08:22

(DRS_FLAGS,

HOE)

eql

HOE

INTO LJC DRS FLAGS

(2)

J3
ZRQAM3

RD/Rx EXERCISER
TEST SECTION

INIT _TEST

(),

incr CTLR

from O

(.CST

[.CTLR,

incr

XU YPYV R W

‘f

(MAX_CTLR

STATE]

from

[.CTLR,

.CST

eql

ONLINE)

UN)

.OFFSET

000000V

000104
000106
000110
000112
000114
000116

000124
000126

&« UNIT

ONLINE

/v01.6/

AMA

DD N

$GGGs,

GE
: .BLKW
STORA
ICOM.ADDR:
.BLKW
ICST.ADDR:
.BLKW
IOCT.ADDR:
.BLKW
INT ,ADDR:
. WORD
.BiLKuW
ICTLR:

ZRQAM3 RD/RX EXERCISER

MADZ2:

.BLKW

PATO2:

.BLKW
.WORD
.WORD

MX1:
MX2:

.BLKW

MAD1:

.BLKW

ZINTO

LAST
. PKT:

000001
000000

eal

();

MULTI _DRIVE
ENDTST;

vaptpape
e P

000102

D STAT]

Bl 'ss

v4.0 579

DISKSUSERZ : [POWERS 1ZRQADO.BL2;: 6
!

SET

INITIALIZE

FOR EVERY

SIZE

FLAG

'HOE'

T!ST ENVIRONMENT
CONTROLLER

CONTROLLER

4) by

NOT

RUN MULTI

ONLINE

UNIT _SIZE

LEAST

END OF

SET

ONE

UNIT

PASS

.EOP FLAG

QOren

000100

OF DATA,

not

MAX.LBN: .BLKW

000076

((UNITS_PER_CNTR

VAX-11

end;

.PSECT
COMM
. AREA:
LBLKW
DPST:
.BLKMW

000050
000054
000064
000074

and

begin
EOP _FLAG = FALSE;
exitloop;

.TITLE
. IDENT
.ENABL
000000
000000

11:08:35
11:08:22

STAT] eql ONLINE) and
U_CNT) geau 0)

OFFSET

then

(.0CT [.CTLR,
(.CST [.CTLR,

then

Apr-1984
Apr 1984

TRUE;

NPTV AP A7 X7 R XV RV AV XV RV AV AV XV )

HOE _FLAG

1983
1934
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999
2000
2001
2002
2003
2004
2005

©F

B¢

€6

v0l.6

11
11

DRIVE

TEST

ALIVE

5EQ 02472
Page

(2)

I<'3
ZRQAM3

RD/Rx EXERCISER
TeST SECTION

000142
000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210
000212
000214
000210
000220
000222
000224
000226
000230
000232
000234
000236
000240
000242
000244
000246
000250
000252
000254
000256
000260
000262
000264
000266
000270
000272

000274
000276
000300

000001
177777
000001
105613
000001

031463
000001
030221
000020
00C001
000003
000007
000017
00003~
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777
000020
177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
17400C
170000
160000
140000
100000
000000
000020
000000
000000
000000
177777
177777
177777
000000
000000
177777

17771717

PATO3:

PATO4:

PATOS:

PATO06:
PATO?:

PATO8:

PATO9:

. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD

72165

000130
000132
000134
000136
000140

v0l.6

11-Rpr 1984
11 Apr-1984

177
377
177

1777
3717
1777

17777
37777
7117

20
-2

-10
-20
-40

-100
-200

-400

1000
-4000

-10000
-20000
-40000

-100000

11:08:35
11:08:22

VAX-11 Bliss

v4.0-579

DISKS$SUSERZ2: [PNWERS]ZRQADO.BL2;6

SEQ 0243

Page

12
(2)

1 3
ZRQAMS

RD/Rx EXERCISER
TEST SECTION

vol.6

000302
000304
000306
000310
000312

000314

000316
000320
000322
000324
000326
000330
000332
000334
000336
000340
000342
000344
000346
000350
000352
000354
000356
000360
000362
000364
000366
000370
000372
000374
000376
000400
000402
000404
000406
000410
000412
000414
000416
000420
000422
000424
000426
000430
000432
000434
000436
000440
000442
000444
000446
000450
000452

000000
177777
000000
177777
000000
177777
000001
133331
000020
052525
052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252
000024
026455
026455
026455
151322
151322
151322
026455
026455
151322
151322
026455

11 Apr-1984
11-Apr 1984

PAT10:

PAT11:

PAT1Z2:

026455
151322
026455

151322
026455
151322
026455
151322
026455
000001
066666
000020
000001
000002
000004
000010

PAT13:
PAT14:

.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD

.WORD
.WORD
.WORD

11:08:35
11:08:22

VAX-11 Bliss-16 v4,0 579
DISK$USER2:
[POWERS JZRQADO.BL2 ;6

5eQ 0244

M3
ZRQAM3

RD/RXx EXERCISER
TEST SECTION

vOl.6

000454
000456
000460
000462
000464
000466
000470
000472
000474
000476
000500
000502
000504
000506
000510
000512
000514
000516
000520
000522
000524
000526
000530
000532
000534
000536
000540
000542
000544
000546
000550
000552
000554
000556
000560
000562
000564
000566
000570
000572
000574
000576
000600
000602
000604
000606
000610
000612
000614
000616
000620
000622
000624

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
000020

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777
0777177

000020

1333312
133331
133331
155554

155554
155554
133331
133331
155554
155554
133331
155554
133331
155554
133331
155554
000025
000000
106466
106466
071311
071311
071311

11-Apr
11 Apr

PAT15:

PAT16:

PAT17:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

1984
1984

11:08:35
11:08:22

VAX-11 Bliss 16 v4,0 579
DISKS$USERZ:
[POWERS JZRQADO.BL2; 6

2EQ@ 0245
Page

(2)

N3
RD/RX EXERCISER
TEST SECTION

ZRQAM3
vo1l.6
000626

000630
000632
000634
000636

000640
000642
000644
000646
000650
000652
000654
000656
000660
000662
000664
000666
000670
000672
000674
000676
000700
000702
000704
000706
000710
000712
000714
000716
000720
000722
000724
000726
000720
000732
000734
000736
000740
000742
000744
000746
000750
000752
000754
000756
000760
000762
000764
000766
000770
000772
000774
000776

106466
106466
106466
106466
071311
071311
071311
071311
071311
106466
106466
106466
106466
106466
106466
000025
106466

11-Apr-1984
11-Apr-1984

PAT18:

071311
106466
106466
106466

071311

071311
071311
106466

106466
106466
106466
106466
071311
071311
071311

071311
071311
071311

000025

134631
134631

043146
043146
043146
134631

134631
134631
134631

043146
043146
043146
043146
043146

PAT19:

.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
. WORD
. WORD
. WORO
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

. WORD
. WORD
.WORD
.WORD
.WORD
.WORD

-71312
-71312
-71312
-71312
71311
71311
71311
71311
71311
-71312
-71312
-71312
-71312
-71312
-71312
-71312
0
71311
-71312
-71312
-71312
71311
71311
71311
71311
-71312
-71312
-71312
-71312
-71312
71311
71311
71311
71311
71311
71311

-43147
-43147
43146
43146
43146

43147
43147
43147
43147
43146
43146
43146
43146
43146

11:08:35
11:08:22

VAX-11 Bliss-16 v4.0-579
DISK$USERZ2:
[POWERS JZRQADO.BL2;:6

SEQ 0246
Page

15
(2)

B4
ZRQAMSR

RD/Rx EXERCISER
TEST

vol.6

001000
001002
001004
001006
001010
001012
001014
001016
001020
001022
001024
001026
001030
001032
001034
001036
001040
001042
001044
001046
001050
001052
001054

001056
001060
001062
001064
001066
001070
001072
001074
001076

001100
001102
001104
001106
001110
001112
001114
001116
001120
001122
001124
001126
001130
001132
001134
001136
001140
001142
001144
001146
001150

134631
134631
134631
134631
134631
134631

000025
134631
000000
043146
134631
134631

SECTION

43147
43147
43147
43147
43147
-43147
PAT20:

43140
43147
4314°
43147
43146
43146
43146
43146
48147
-43147
-43147

134631

043146
043146
043146
043146
134631
134631
134631

-43147

134631
134631

043146
043146
043146
043146
043146
043146
000001
000000
0000006
000124
000130
000134
000140
000144°
000150
000212

-43147
43146
43146
43146
43146
4%146
43146
PAT2L:

DPA.TBL:.

RDM. CNT

PATO?
PATOS
PATOA4
PATIS
PATO6
PATO’

PATO8

000254
000316
000322

000364
000436

000442
000504
000546
000610
000664
000740
001014
001070
000000
060000

43147

BST.CNT:.

BST.DEvV:
.,

PATO9
PAT10
PAT11
PATLO
PAT13
PAT14
PATL1S
PATl6
PATL?
PAT18
PAT19
PAT20
PAT21

Apr

1984

11:08:35

11:08:22

VAX-11 Blise 16 v4,0-579
DISKSUSER2:
(POWERS )ZRQADO.BL2;:6

SEQ 0247

001154
001156
001160

SECTION

CURRENT ,VECTOR:
.BLKW
BRLEVEL
;: .BLKW
.BLKW
OUOFt :

DRS.START:

.BLKW

.BYTE
.EVEN
.BLKW

.BLKW
COMPARE .DATA:
.BLKB
EVEN

0011lee
001162

APT MODE :

001164

MAIL .BOX.TESTNUM:

001160

MAIL .BOX.SUBTST,

001170
00117

0011°4
001176

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 15 v4.0 579
DISKSUSER?
: [POWF RS ]ZRQADO.BL2; 56

s gt pmo

LU SN

TeST

11
11

vol.é

RD/Rx EXERCISER

ZRQAMR

DRS.FLAGS:

.BLKW

RD.MAX.SEQ.CNT:

.BLKM
RX ,MAX , SEQ.CNT:
.BLKW

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
. GLOBL
.GLOBL
.GILOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLO8L
.GLOBL
.GLOBL
.LLOBL
.GLOBL

CST, CST.ADOR, OCT, DCT.ADDR, RDRx. ADOR
IRDRX ,ADDR, B8ST, TALLY, T, ADDR
DUPPKT, TRK.SGN, RDM.CNT, RANDOM
C.ERR.TBL, MSCP.PKT, IPKT, ADDR
PKT
. USE,

RETPKT,

RP USE,

RP, INDX

RP,ADDR, ELOG.PXT, BUFF ADDR, BUFF OWN
I100Q, I00Q.IN, IODG.OUT, ENTRY
. REASON
EOP.FLAG,

DUP.FLAGS,

CCTLR,

COISK

CUOFF, CTLR.CNT, DUR, QIO, FREE.MEM.ADDOR
BYTS.PER.QIO, SY.CODE, SB.COOE
STEP, OF .RC, SA.REG, CMD.TIME

NEX, CRN.LOW, CRN.MIGH, CREDIT.BAL
NEXT,PKT USE, HOURS, MINUTES, CLK.TICKS
CLK.PRESENT, HOE.FLAG, FORCED.ERROR
FER.LBN,

FER.BC,

INIT. OCCURED

ADDR.VECT
. OK, S.PATTERN,

S.DUPPKT

P.INDEX, DBM12, DBM18, DBM19, DBM20O
0B8M21, DOBM22, DBM23, DBM25, DBM26
DBM27, DBM29, 08M108, DBM109, DBMLILL
oBM112, 0B8M120, DB8M12l, EM.0, EM.
I
EM.2, EM.3, EN.4, EH.5, EH.6, EH.’
En.8, EN.9, EN.10, EM.12, EM,13
MSG.02,

MSG.03,

EGS.02,

EGD.10

EGD.11, EGD.12, EGD.13, EGD.14
EGD.15, €GD.16, EGD.17?, EGD.18
€GD.19, EGD.20, EGD.21, EGD.2?
€EGD.23, €GD.24, EGH.30, OF .MSG
HRD.MSG, SF T .MSG, MRD.SUB, CRLY
SWP
. ERROR, SWP
. XFER, SWP.FLAGS

SEQ 0248

Page

()

4
RO/Rx EXERCISER
TEST

vol.e

11
11

SECTION

.Gl 081
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
BIT1S5e.
BIT14=BIT13=.
BIT12e=BIT11=B8IT10-BITO9..
BITO8.BIT07=»
BIT06=BIT0S=»
BITO4=-.

BITO3=BIT02="
BITO1=BIT00-8I719-BITR=»

BIT7=s

BIT6=BITS5=-

BIT4es

NEX.TRAP,

PRIO7=PRIOCG"-

PRIOS~~

=+
PRIOQ

PRIO3-»
PRIOZ2=
-

PRIO-L
-

PRIOO:
-

Evl ==

TIME,

EMS. 30

100000

40000

20000
10000

4000

2000
1000

400

200
100

4
1
1000

400

200
100

20
10

EF .PWR=>-

VAX-11 Bliees 16 v4,0 579
DISKSUSERZ:
(POWF RS JZRQADO.BL2; 6

SET.CPAR,

SET.UPAR

PUTA.BUFF,

SEND,

WAIT

MODUWLAS, DROP.CTLR, ORV.CTLERR
EMS.RP1, EMS EL, EMS,CMP, EMS ERR
EMS.10, EMS.12, EMS.13, EMS. 14
EMS.18, EMS.21, EM,, 22, EMS.24

EF .START

EF .NEWe»

11:08:35
11:08:22

SWP.RAT, SWP DPAT, SWP, UCNT
SWP
. UDPAT, LSLUN, LSUNIT

PUT,.IO0.BUFF,

=«
EF .RESTART
EF .CONTINUE
= =

1984
1964

QUT.I0DQ@, IN.IODQ, GET.PKT, PUT.PKT
GEY.RETPKT, PUT RETPKT, GET,IO0.BUFF

BIT3=BIT2~-BITleBITQe»

000340
000300
000240
000200
000140
000100
000040
000000
000004

OUPROUND,
SWP, TIME,

ARpr
Apr

l
1

36
35
34

340

300
240
200
140
100
40

SEQ_0249

Pege

t4
ZRQAMS

RO/Rx EXERCISER
TEST SECTION

VOl.6

11 Apr-1984
11

000010
000020
000040
000100
000200

Lo' a3

001000
002000
004000
010000
020000
040000
100000

PNT ==

004137

112737
112737
042737
105037
105037

005002
010246
012746
004737
005001
010003
060103
006303
005063
0052C1
020127
003767
010216
012746
004737
105060
062706
005202
020227
003744
005002
005001
010200
060100
006300
005060
005201
020127
003767

IOU-=~-

B0t ==

400

PR]Is=»

2000

4009

IBE=»

10000
20000

IER==

HOE
» =

.SBTTL
PSECT

$T1 TEST SECTION
RO
$CODES,

JSR

R1,$SAVE3S
01,E0P
. FLAG
01,COMPARE .DATA
02 ,0UP FLAGS
HOE .FLAG

MOvVB

8IC
CLRB
CLRB
CLR
MOV
MOV

JSR

CLR

MOV

ADD
ASL

CLR
INC
cHP
8LE

JSR
CLRB

ADD

INC

3s:
4%

000025

(SP)
043, -(SP)

PC.BLSMAL
R1
RO,R3
R1,R3
R3
MSCP
. PKT(R3)

o
oy
8LE
CLR
CLR
MOV
ADD
ASL

CLR
INC
CcMe

BLE

1876
1891
1892
1893
1894
1895
1897
1901

1900
1901

1900

1903

MOV

000013

000000G

FORCED.ERROR

R2
R2,

MOV

000006

(e)

100000

MOvB

000106
0000006

Page

40000

LOE ==

2s:

DISKS$USERZ2:
[PCWERS JZRQADO.BL2; 6

56Q 0250

1000

IXE=s

1$:

v4.0 579

100
200

UAMs
=

$T1:

ISRs =

0000006
001170’
0000006

11:08:22

VAX-11 Bliss

10
20

ADR =«

000001
000001
000002

Apr-1984

11:08:35

06 ,SP

R2,013
14

Re
R1
R2 RO

R1,RO
RO
RETPKT(RO)
R1
R1,025
4%

1898
189~
1906
190°
1908

130"

Fq
ZRQAMX

RO/Rx EXERCISER
TEST SECTION

vol.6

000156
000162
000166
000170
000172
000174
000200
000204
000206
000210

000212
000214
000220
000222
000226
000230
000232
000236
000242

000246
000252
000254
000260
000262
000270
000272

062702
020227
003761
005002
010246
012746
004737
005001
010003
060103
006303
005063
005201
020127
003767
010216
012746
004737
105060
062706
005202
020227
003744
032737
001403
042737
032737
001403
042737
132737

001145
017700
006300

000440
000444
000450
000454
000456

063700
010037
062737
027727
001021
104450
103417
112737
013737
062737
013737
062737
005037
105037
012746
012746
012746
012746

104437

012700

11-Apr 1984
11 Apr-1984
ADD

000026
000232

CMP
BLE
S$:

000041
0000006
6$:

MOV
MOV

JSR
CLR

MOV

ADD
ASL

CLR
INC
cMP
BLE

0000006
000040

MOV
MOV

000102
0000006
000001G
000006

JSR
CLRB

ADD

000014
000020

CLR

0000006

000040
000002

0000006
0000006

001000
000001

000000G
0000006

7%:

8s%:

0000006

INC
cHp
BLE
BIT
BEQ
BIC
BIT
BEQ
B8IC
BITB
BNE
MOV
ASL
ADD
MOV
ADD

0000006
001160’
000002
001160
001160’ 000167

cHe
BNE

TRAP

000001
001160’
000070
001160’
000066
0000006
000000G
000340
0000006
000004
000003
000004

001162
001164
001164
001166°
001166°

8Cs

MOVB

9s:

MOV
ADD
MOV
ADD

CLR
CLRB

MOV
MOV
MOV
MOV

TRAP
MOV

11:08:35
11:08:22

226 ,R2
R2,0232

R2
R2, -(SP)
941, -(SP)
PC.BLSMUL
R1
RO,R3
R1,R3
R3

ELOG.PKT(R3)

VAX-11 Bliss 16 V4.0 579

DISKSUSERZ : [POWERS JZRQADO.BL2;: 6

5EQ 025

k08231 2o
(2)

3
s

o,1
I,

1906

s
3

1
I,

1910
1914

s
H
1

1913
1914

3
1

J
Joo

J,o

1913

R2,(SP)
0102, -(SP)
PC,BL $MUL
ELOG.PKT.1(RO)
06 ,5P

gZO.SHP.FLAGS

1919

H
H

1921
1923

:é.INIT.OCCUflED

H
:

1925
1927

ngEE.HEH.ADDR.RO

1930

1937

1938

1941

1943

$
040,
SWP FLAGS
92 ,SWP .FLAGS

€1000,SWP
. FLAGS
$

s
i

1
I,e

1911

1910

FREE .MEM_ADOR,RO
RO,DRS.START

92,0RS.START
80RS.START, 0167
9

S50

93
#1,APT MODE
ORS.START,MAIL
.B0X. TESTNUM
@70,MATL .BOX.TESTNUM

ORS.START
,MAIL .B0x,SUBTST
066 ,MAIL .B0X.SUBTST
X
NE
CLK . PRESENT
0340, (SP)
ONEX
. TRAP,
04, (SP)

3,
37

(SP)

1942

1946

H
H

194°
134¢

1951

(SP)

24 ,RO

000462
000464
000472
000474
000502
000506
000512
000516
000522
000526
000532
000536
000542
000544
000546
000552
000560
000562
000564
000570
000574
000600
000604
000606
000610
000614

000664
000670

000672
000700
000704
000706
000712
000716
000722
000724
000730
000732
000734
000740

000742
000750
000754
000756

11-Apr-1984 11:08:35

RD/RX EXERCISER
TEST SECTION

ZRQAMZ
vOl.6

104436
032737
001060
112737
005037
013716
012746
004737
110037
013716
012746
004737
010001
005201
110137
123727
103412
005000
153700
162700
110037
105237
000762

TRAP

000001

0000006

000001

000000G

001416
012746
012746
012746
012746
104437
012737
062706
104421
010037
042700
020027
001003
012700
000401
005000
020027
001003
112737
004737
005002
010246

BIT
BNE

MOVB

CLR

MOV
MOV
JSR
MOVB
MOV
MOV
JSR
MOV

INC

000000G 000074

MOVB

10¢:

0000006
000074
000000G
0000006

INCB

11¢:

0000006
000030
000000G
000000G

000000G

12%:
13s:

000300
000000G
000100
000003

000100
000010

CLR

MOvs
MOV

JSR

000006

000010
000001

cMPB
B8LO
CLR
81s8
MOVB

005016

113716
012746
004737
110037
062706
062706
132737

11-Apr-1984

177546
14

001172’
077777
100000

MOVB
ADD
ADD

8IT8
BEQ

MOV
MOV
MOV
MOV
TRAP
MOV
ADD
TRAP

MOV
8IC
BNE

000001

100000

15¢:
16$:

000001
000000G
000000V

17¢:

21t

(¢,

1953

41,CLK.PRESENT

H
H
:

1954
1957
1958

;

1959

1963

:
H
:

1964
1961
1967

1955

1975

:
H
H

1976
1974
1979

124

CLK, TICKS
SWP . TIME ,(SP)

2144, -(SP)
PC.BLSDIV
RO ,HOURS

SWP ., TIME,(SP)

2144, -(SP)

PC.BLSMOD
RO,R1

R1
R1,MINUTES
074
MINUTES,
11%
RO
MINUTES
RO
474 ,RO
RO,MINUTES

HOURS
10¢
(sP)
HOURS
, (SP)
030, -(SP)

PC.BL$MOD

RO, HOURS

06,5P

010,SP
01,CLK ,PRESENT
14
0300, (SP)
OTIME, -(SP)
9100, -(SP)
03, -(SP)
37
0100,80177546
010,SP
21
RO,DRS.FLAGS

:
:

1929
1972

077777 ,RO
RO, #-100000

CLR
cMP
BNE

MOV

OISKSUSERZ2: [POWERS JZRQADO.BLZ2; 6

SEQ 0252
Page

21,RO0

JSR
CLR

v4,0-579

01 ,NEX

MOV

MOVB

11:08:22

VAX-11 Blies-16

RO,
&

178

100000

1 ,HOE .FLAG
PC.INIT TEST
R2

R2,

(SP)

H
:
:

CTLR
CTLR,»

1
1987
1939

-4
RD/RX EXERCISER
TEST SECTION

003724
132737
001002
004737
000207

;
:

Routine Size:
Maximum stack

MOV
JSR

9126, -(SP)
PC.BLSMUL

0000026

TST
8PL
MOV
MOV
JSR
cve
IST
8PL

CST+2(RO)
224
R2, -(SP)
022, -(SP)
PC,.BL$MUL
(SP)+,(5P),
DCT(RO)
224

MOV
JSR
MOV
MOV
ADD
ASL
BIT
BEQ
CLRB

453, -(SP)
PC.BLSMUL
03 ,.R1
RO,R3
R1,R3
R3
€20000,CST(R3)
20t
EOP.FLAG

cHP

000022
0000006
0000006

020000

19%:

0000006

000012

2048 :

000042

2ls:
22%:

000001

000000G

000000V

23s:

000000°

Ti::

1s:

R2,

ADD

012,.R1

cHP
BLE

R1,042
19¢

cHP
(SP)e,(SP).
INC
R2
.WORD CLV!CLC
BLE
gIT8
BNE
JSR

18¢
01 ,EOP.FLAG
238
PC.MNULTI.DRIVE

RTS

PC
.

JSR

PC.sT1

TRAP
ROR

$CODES

TEST

66
RO

8LO

Rout ‘ne Base:
invocation:
2 words

SEQ 0253

Page

22
(2)

PC
.«

»
CTLR,

1990

CTLR,»

1995

s OFFSET

1993
1995

OFFSET,

s OFFSET

,e
OFFSET

CTLR

1998
1997
1993

1987

20C2
2004

1876

0000

.SBTTL

RTS
6 words,
depth per

(SP)

B8R

298 words,
Routine Base:
$CODES$
depth per invocation:
12 words

VAX-11 Bliss-16 v4.0 579
DISKS$USERZ2:
[POWERS JZRQADO.BL2; 6

(SP)+,(SP)»

MOV

000053
0000006
000003

11:08:35
11:08:22

®e

001104
001106
001114
001116
001122

001020

000126
0000006

1984
1984

®e

001022
001024
001030
001034
001040
001042
001044
001046
001054
001056
001062
001064
001070
001074
001076
001100
001102

012746
004737
022626
005760
100040
010246
012746
004737
022626
005760
100027
010246
012746
004737
012701
010003
060103
006303
032763
001403
105037
000405
062701
020127
003761
022626
005202
000243

000760
000764
000770
000772
000776
001000
001002
001006
001012
001014

Apr
Apr

vol.6

11
11

®e

ZRQ@AMS

1124

SECTION
2004

14
ZRQAAM3E

RD/Rx EXERCISER
INITIALIZATION TEST

2009
2010

2011
2012
2013
2014
2015
2016
29017
2018

2019
2020
2021
2022
2023
2024
2025
2026
2027

2028
2029
2030
2031
2032
2033
2034
2035
2036
203?
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050

ROUTINES

dsbttl

' INITIALIZATION

GLOBAL

routine

INIT

TEST

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX-11 Bliss 16 v4.0 579
DISKSUSERZ:
[POWERS JZRQADO.BL2; 6

5EQ 0254
Page

3
(3,

ROUTINES®

mnovalue

2008

NN NN N 02 o 02 00 =0 18 g0 10 Pt st 0 0 0 Pt Jod B0 (ot et

2007

THE INITIALIZATION TEST IS DESIGNED TO VERIFY THE EXISTENCE
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE MW DIALOG,

BRING EACH DEVICE ONLINE
OR THE DM EXERCISER.
BASICALLY,

IN PREPARATION FOR EITHER

THE DEVICES ARE BROUGHT ONLINE

VIA

OF THE
AND TO

THE MATI DRIVE

“DRIVER_INIT”,

TEST

WHICH IS

INVOKED IMMEDIATELY, ANY DEVICES wHICH FAIL DURING THIS PMASE WILL BE
MARKED OFFLINE IN THEIR DCY AND CST. FOR THOSE DEVICES WHICH SURVIVE
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS TO

EACH DISK VIA ROUTINE “ACCESS .
SUCCESS IF A BLOCK ON THE INNER

THE INITIAL IZATION TEST IS DEEMED A
TRACK OF EATH DISK CAN BE ACCESSED.

BE?QER_INIT ();
incr CTLR

¢ INIT DRIVER DATA AND DEVICES

from O to (MAX CTLR

1) do

gg :EPAR (.CTLR);
if

.CST_ADDR

then

D LN

2006

ROV WWD D DUIE D

B¢

)

B¢

O¢

G¢

vOl.6

11
11

incr

! SET UP COMMONLY -USED CONTROLLER-RELATED DATA ITEMS

[STATE) eql

OFFSET

FOR EACH CONTROLLER

from (O

ONLINE
«

OF _UN)

¢!
to

IF CONTROLLER

FOR EACH DISK

((UNITS_PER _CNTR

IS STILL
1)

ALIVE

UNIT_SIZE

OF UN)

UNIT _SIZE

(.CST_ADDR [.OFFSET . OF DATA, D_PRES) eal PRESENT) and
(.CST_ADDR ([ .OFFSET + OF _DATA, D_STAT) eql ONLINE) and
(not .CST ADDR [ .OFFSET « OF DATA, D_FATAL]))

then

begin

SET
IF

_UPAR ( ,OFFSET);
! SET UP UNIT RELATED DATA
SWP _DINT NEQ (.DUP FLAGS AND SWP DINT)
1222
THEN

ACCESS

();

122

ISKIP
end;
end;
end;

000000

004137

000000G

000004
000G10
000012

004737
005002
010246

000000V

INIT

1%:

LSBTTL INIT

TEST::

JSR
JSR
CLR
MOV

ITEMS

DUP CAUSED

CONTROLLER LOOP

ROUTINE

TEST

UNIT

INIT

IS PRESENT

INIT

222

AND ONL INE

TEST

INITIALIZATION TEST ROUTINES

R1,$SAVE?
PC,ORIVER, INTT
Re
R2, -(SP)

:
3
s
i

CTLR
CTLR,»

2008
2025
-~
027

2029

J4
ZRQGAMX
vol.6
000014
000020

RO/Rx

INITIALIZATION

004737
013700
005760
100035
012701

0000006
000000G
000002

063700
032710
001417
032710

0000006
040000

010100
006300

000072
000076
000104
000106
000112
000116
000122
000124
000126
000130

001414
032710
001011
010116
004737
032737
001002
004737
062701
020127
003745
005726
005202
000243

000132
000134

003727
000207

;
i

EXERCISER

Routine Size:

Marimum stack

TEST

11 Apr 1984
11-Apr-1984

ROUTINES
JSR

2s:

020000

010000

CST.ADDR,RO
2(R0O)

B8PL

BIT
BEQ
BIT
BEQ
8I1
BNE

940000,(RJ)
34
920000, (RO)
3
10000, (RO)
3

MOV
MOV
ASL
ADD

03,R1
R1,RO
RO
CST.ADDR,RO

MOV

0000006
000002
000000G

000000V
000012
000041

3%:

4%
:

R1,(SP)

JSR
BIT
BNE
JSR

PC,SET
. UPAR
92 ,0UP
. FLAGS
3%
PC,ACCESS

ADD

012,.R1

CMP
BLE

R1,041
23

INC
R2
.WORD CLv!CLC

words,

Rout ine Base:
S words

invocat on:

$CODES

Page

(%)

:
;

¢,0FFSET
OFFSET,

2034
2036

2037
2038

OFFSET,s

2041
2042

;

OFFSET,

¢,0FFSET

CTLR

2028
2027

RTS

SEQ 0255

2031

(SP).

1ST

BLE

depth per

VAX-11 Bliss 16 v4,0 579
DISK$USERZ:
[POWERS JZRQADO.BL2; 6

PC,SET.CPAR

MOV
151

000003

11:08:35
11:08:22

1140

2008

<
RD/Rx

vOl.6

INITIALIZATION TEST ROUTINES

2102

2103

NN PD R TN NI R
e WD
NNLNN N NNND
WNODDDDDDGD UL

2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2962
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
208S
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101

=2 =2 s 0t 0 = s o 2

ZRQAMS

GLOBAL

EXERCISER

routine DRIVER

INIT

11
11

novalue

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX

Bliss

SEQ_0256

v4,0-579

DISKSUSERZ: [POWERS JZRQADO.BL2; 6

(a)

THIS ROUTINE IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY
POINT OF A STANDARD DEVICE ORIVER. ITS RESPONSIBILITY IS TO INITIALIZE

DRI¥52 DATA,
ONL

AND

TO BRING EACH RDRX CONTROLLER AND UNIT

(DISK)

begin

local

PKT _ADDR;

PKT_ADDR

MSCP _PKT

NEXT _PKT USE
incr

COUNT

from O

begin

PKT_USE

MSCP _PKT

CTLR

10;

(PKT_CNT

[.COUNT,

-1;

PKT LO]

.PKT_ADDR;

[.CTLR,

(MAX_CTLR

IP_ADDR]

ADDR

(TEXT

PACKET

FOR

MARK

[.COUNT, PKT_HI] = O;
[ .COUNT, CONNID) = CID_DISK;
= _PKT_ADDR + (PKT_LEN
&
2);

from O

.CST

then

(.COUNT]

MSCP_PKT
MSCP_PKT
PKT_ADDR
end;
incr

neqa 0

EACH

MSCP

PACKET

LOAD ADDR

1ST

PrT

PACKET

FREE

INTO BUFFER DESCRIPTOR

H
'

ADVANCE

FOR EACH CONTROLLER

I+t

SET

MSCP

YO ALLOCATE

CONNECTION
ADDR

TO MSCP

PACKET

IS PRESENT

CONTROLLER

begin

SET_CPAR (.CTLR);

CURRENT _VECTCR =

BRLEVEL =
CTLR_INIT
if

.CST_ADDR
(),

.DCT_ADDR

CURRENT CONTROLLER PARAMETERS
CURRENT CONTROLLER S VECTOR
SET CURRENT CONTROLLER S BR LEVEL
INIT DEVICE AND CTLR DATA

.CST_ADDR [VEC _ADDR];

[STAT]

[BR_LEV]

eql

t S;

ONLINE

incr OFFSET

from (O

OF UN)

to ((UNITS_PER CNTR

begin
CST_ADDR ([ .OFFSET

«
«
+«
+
SET_UPAR (.OFFSET),
UNIT INIT ();

CST_ADOR
CST_ADDR
CST_ADDR
end;

[.OFFSET
([ .OFFSET
[.OFFSET

CONTROLLER

OF _UN)

UNIT

'
!
H
!
!
!

BLANK

UNIT SIZE

if (.CST_ADDR ([.OFFSET . OF DATA, D_PRES) eql PRESENT) and
(not .CST_ADDR [ .OFFSET . OF DATA, D_FATAL])

then

OF _NAME
O, D_NAME
0]
OF _NAME
O, D NAME 1]
OF NAME 2, D_NAME
2)
OF NAME
2, D NAME 3)

=
=
=
=

#0'40 ;
®o0 40';
#0'40';
%0°'40';

FOR

EACH

IS STILL

DIAK

UNIT

UNIT _SIZE

ALIVE
do

EXISTS

DEVICE

NAME

SET UP UNIT-RELATED DATA
BRING UNIT ONL INE
IF

UNIT

EXISTS

ITEMS

L 4
ZRQAMZ

RD/Rx

INITIALIZATION

v01.6

:
:
:

2104
2105
2106

000072
000074
000100
000104
000106

000112
000114
000116
000122
000126

000134
000142
000144
000150
000154
000160
000164
000170
000174

000176
000202
000206
000210
000212
000214
000220
000222
000226
000230

EXERCISER

2
4
1

ROUTINES

012702

0000126
0000006»

000377

SBTTL

DRIVER.INIT::
JSR

MOV

0000006

1¢:

000106

MOVB

MOV
MOV
JSR
MOV

CLR
CLRB

000002G
0000116
00010¢

ADD

CcHP

000013

2$:

000126
0000006

DISKSUSERZ2: [POWERS JZRQADO.BL2:6

JSR

ROUTINE

IS PRESENT

DRIVER_INIT

;

&,PKT_ADDR

COUNT

¢
PKT_ADDR,

;
:

:
:

;

¢,s(COUNT)
COUNT
e

¢,PKT_ADDR
COUNT

2051
2065

2066

2068

2070
2071

2072
2073

2074

2069

2068

COUNT
,»

CTLR

2077

;

CTIR,»

2082

CTLR,

2079

(SP)e,(SP).
CST(RO)

R3, -(SP)
PC,.SET.CPAR

2083

MOVB
MOV

4(RO),(SP)

(sP)

2084

PC,CTLR.INIT
8DCT.ADDR
St

H
H

2085
208"

R1.RO

;

MOV

JSR
TST

010000

CONTROLLER

(4)

CST.ADDR,RO
. VECTOR
2(R0O),CURRENT

JSR

040000

page

MOV
MOV

8IC
CLR

3s:

(SP)e,(SP)»

R3, (SP)
9126, -(SP)
PC,BLS$MUL

MOV

004737
005777
100051
012701

R2,.MSCP
. PKT(RO)

MSCP .PKT+2(RO)
MSCP .PKT+11(RO)
0106 ,R2

MOV
MOV

JSR
cHP

001152’
001152

€106, -(SP)
PC,.BLSMUL

INITIALIZATION TEST ROUTINES

R1,$SAVES
OMSCP.PKT+12,R2
:EXT.PKT.USE
1
9377,PKT USE(R1)

INC

cHP
BLE
CLR

ISTY
BEQ

016037
042737
005016
116016
012746
004737
010037

010100

CLRB
CLR

DRIVER.INIT

3EQ 0257

VAX 11 Bliss 16 V4.0 579

end;

0000006

013702
010100
006300
060200
032710
001432
032710
001027

11:08:35
11:08:22

end;

004137

105037
005001
112761
010146
012746
004737
010260
005060
105060
062702
022626
005201
02C127
003753
005003
010346
012746
004737
022626
005760
001503
010346
004737
013700

TEST

11 Apr-1984
11-Apr-1984

8PL
MOV
MOV
MOV
ASL
ADD

aIrv
BEQ
8IT
BNE

MOV

4177000,CURRENT ,VECTOR

85,

(SP)

PC.BLS$SHF
RO ,BRLEVEL

#3,R1
CST.ADDR,.R2

;
:

¢,,0FFSET
OFFCET,»

2090
2092

R2,RO
40000, (RO)
a1
210000, (RO)
44
R1,RO

:
:

2093
OFFSET,
e

209%

M4
ZRQAM3

INITIALIZATION TEST ROUTINES

v01.6

000232
000234
000236
000244
000252
000254
000256

000260
000266
000274
000276
000302
000306
000312
000316
000320
000322
000324

000326
000330

:
;

11 Apr-1984
11-Apr-1984

RD/RX EXERCISER

206300
060200
112760
112760
010100
006300
060200
112760
112760

010116
004737
004737
062701
020127
003731
022626
005203
000243

000040
000040

000012
000013

000040
000040

000014
000015

0000006
000000V
000012
000041

4 ;

S$:
6$:

003661
000207

Routine Size:
109 words,
Rout ine Base:
7 words
Max 'mum stack depth per invocation:

ASL
ADD
MOV8
MOVB
MOV
ASL
ADD
MOVB
MOVB
MOV

RO
R2,RO
940,127R0)
40,13(R0O)
R1,.RO
RO
R2,RO
440,14(RO)
940,15(R0O)
R1,(SP)

ADD

@12,R1

PC,SET.UPAR
PC,UNIT, INIT

JSR
JSR

CMP
R1,041
34
BLE
CMP
(SP)+,(SP)»
INC
R3
.WORD CLV!CLC
2

BLE

RTS

$CODES

1276

11:08:35
11:08:22

VAX-11 Bliss

v4,0 579

DISKS$USERZ:
(POWERS JZRQADO.BL2: 6

SEQ 025 8
P age
(4)

;

OFFSET,»

2097
2098

OFFSET,»

2099
2100

:
:

¢, 0FFSET
OFFSET,s

CTLR

2101
2090
2081
2077

2051

N4
RD/RX EXERCISER
INITIALIZATION TEST

GLOBAL

11 Apr
11-Apr

ROUTINES

routine CTLR_INIT

novalue

1984
1984

11:08:35
11:08:22

VAX-11

Bliss

v4.0 579

DISK$SUSERZ: [POWERS]ZRQADO.BL2:6

SEQ 0259
Page
28

THIS

"DRIVER"”

ROUTINE

CALLED FROM DRIVER_INIT

CONFIGURED FOR TESTING. ITS GENERAL PURPOSE IS
TO THE HOST. SPECIFICALLY, IT IS WRITTEN TO:
O Wi
re

WWWRDINRODND W WWWMRDDVNNDWRDNVVNVRDINMINIS,
» o b s (o 1 4 gt gt b (b pbd p=0 s Pt 4ot ot s

2107
2108
2109
2110
2lll
2112
2113
2114
2115
2116
2117
2118
2119
2120
212l
cl22
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
2159

NPV

B¢

®s

B+

G+

V¢

OG0

©¢

V¢

S¢

O¢

ZRQAM3
vOol.6

FOR

EACH CONTROLLER

TO BRING THE RDRX ONL INE

INITIALIZE ORIVER CONTROLLER DATA, INCLUDING THE OCT,
SET UP THE DEVICE'S INTERRUPT VECTOR ADDRESS,

PERFORM A REGISTER EXISTEMNCE TEST TO VERIFY THE DEVICE'S PRESENCE,
PERFORM A VECTOR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR
ADDRESS AND INTERRUPT REQUEST LEVEL,

DO A HARD

IF ANY
OEVICE

INITIALIZATION (FOUR

OF THESE INITIAL
ARE DROPPED.

STEPS) ON

TESTS FAIL,

THE DEVICE.

THEN ALL UNITS ASSOCIATED WITH

THE

begin

local
RESWT

byte:

INI_CTLR_DAT ();
SETVEC (.CURRENT VECTOR, .INT_ADDR (.CCTLR]),
OCT_ADDR [IG_INT] = TRUE;
LSLUN = _CST_ADDR (OF _UN + OF DATA, D UNIT];
IF

SWP _DINT NEQ (.DUP_FLAGS AND SWP_DINT)

THEN

1 ¥

REG_EXIST

then

()

begin
ODROP _CTLR
return;

eql

'CAUSED

INITIALIZE CONTROLLER DATA
SET DEVICE'S ASSUMED VECTOR ADDRESS
SET “IGNORE INTERRUPT" BIT
GET FIRST UNIT NUMBER OF CONTROLLER
(USED BY DRS FOR DEVICE-FATAL CTLR ERRORS)

PRIOAQ);

INIT,

SKIP

FAILURE

(.CCTLR,

DU_INIT);

!
'IF DUP

THIS CODE

222

DROP ALL

TEST

CONTROLLER'S UNITS

end;

SWP _DINT

THEN

NEQ (.DUP_FLAGS AND SWP _DINT)

VEC_BR_TEST

1CAUSED

INIT,

SKIP

'IF

oUW

THIS CODE

222

VECTOR ADDR AND BR LEVEL

DROP ALL

RESULT = HMARD INIT ();
OCT_ADDR [IG_INT] = FALSE;

ATTEMPT HARD DEVICE INIT
BIT
CLAER ' IGNORE INTERRUPT

()

eql

FAILURE

then

TEST

begin

DRSP CTLR (.CCTLR, DU_INIT);

return;
end;

.RESULT

then

eql

SUCCESS

HARD

CONTROLLER S UNITS

IMIT

WAS

SUCCESSFUL

(5)

B
RO/RXx EXERCISER
’
INITIALIZATION TEST ROUTINES
)
NV X7 X7 AV IV XV A

010146

000002
000006
000012
000016
000020

004737
012746
013700
006300
016046
013746
012746
104437
052777
013700
016001
000301
042701
010137
032737/
001025

000030

000030
000050
000056

000076

000102

000116
0003122

000126
000132

004737

005700
001410
032737

001015

004737
005700
001011
013716
01c746
004737
062706
000453

Blies

v4,0 579

DISKSIUSERZ:
([POWERS ]ZRQADO.BL2;: 5

56Q_0260

Page

INI_RRING ();

WRY _RORX

(RCSA,

if SET_CTLR CHAR
then

ADORESS/VECTOR

TEST

PASSED

ALL,

SA GO);

INITIALIZE RESPONSE RING
SET “GO” B8IT (START CTLR POLLING)

() eql

SUCCESS

SET

CONTROLLER CHARACTERISTICS

DCT_ADDR (STAT] = ONLINE,
CST_ADDR [STATE]) = ONLINE;

000000

1984

VAX-11

MARK
MARK

CONTROLLER
CONTROLLER

HARD

INIT

DROP

ALL

ONLINE
CN INE

IN
IN

“DRIVER®
PROGRAM

end;

end

else

begin

0989 CTLR (.CCTLR, DU INIT);

FAILED

CONTROLLER'S

UNITS

enc

ROUTINE

end;

.SBTTL
CTLR.INIT::
MOV
JSR

000000V
000200
0000006

MOV
MOV

000102

001152
040000
0000006
2000006
000006

177760
0000006
000002
0000006
000000V

000002

000000G

000000V

0000006
000002
000000G
000012

1¢:

CCTLR,RO

MOV
TRAP
8IS
MOV
MOV
SWAS
8IC
MOV
;384
BNE
JSR
TSt
BEQ
8IT
BNE
JSR
1Y
BNE
MOV
MOV
JSR

03, -(SP)

ADD

B8R

INITIAL IZATION

R1, (SP)
PC,INI.CTLR.DAT
0200, (SP)

ASL
MOV

MOV

000003

CTLR,INIT

TEST

CTLR

INIY

ROUTINES

2107
2130
2131

INT,ADDR(RO),

CURRENT
. VECTOR,
37

040000,80C
T .ADOR
CST.ADDR,RO

6(R0O),R1

2132
2133

R1
#177760,R1
R1,LSLUN
02,0UP FLAGS

2133

PC.REG.EXIST

2138

2l4]
2145

’a.

PC.VEC.BR, TEST

2148

2%
CCTILR,.(SP)

2151

PC.DROP.CTLR
012,5P

Py P
A

2175
2176
21?7
2178

Apr

11:08:35
11:08: 22

1,0,

2174

Apr-1984

gBBR_VECV_OK * TRUE;

TV IV R B

2160
clol
2162
2163
2164
2165
2166
2167
2168
2169
2170
217
217
2178

(LY LYXP XLV

00 9

B¢

G+

G0 Gv

G0 O

vol.6é

e oo

ZRQAME

Ch
ZRQAMR

RDO/RX EXERCISER

voL.6

000150
000154
000156
000164
000170

004787
110001
042777
120127
001031

000000V

000200
000204
000210
000214
000220
000224
000230
000232
000240
000244

004737
012701
013700
010160
004737
020027
001C20
052777
013700
052760

000000V
000001
0000006
000002
000000V
000001

000254
000260
000264
000270
000272
000276

013716
012746
004737
005726
062706
012601

000172

000252

000300

;

11 Apr 1984 11:08:35

INITIALIZATION TEST ROUTINES

112737

000407

040000
000001

000000G

000001

O000000G

Maximum stack

100000
0000006
0000006
100000
000002
000000G
000002
000000G

3s:

000010

LR
Ss:

97 words,

depth per

JSR
MOvVB
BIC
cMPB
BNE

PC,HARD. INIT
RO,R1
#40000,80CT.ADDR
R1,01
3

JSR
MOV
MOV
MOV
JSR
cMe
BNE
8IS
MOV
8IS

PC.INI.RRING
o1 ,R1
RDRX
., ADDR,RO
R1,2(RO)
PC,5ET . CTLR.CHAR
RO, 21
[¥]
€100000,80CT.ADDR
CST.ADDR,RO
0100000,2(R0O)

MOV
MOV
JSR
ST
ADD
MOV

CCTLR,(SP)
02, -(5P)
PC.OROP,CTLR
(SP).
€10,5P
(SP)+,R1

MOVB

00020~

Routine Sice:

11 Apr 1984

Rout ine Base:

invocation:

7 words

®1,ADDR ., VECT . 0K

B8R

RTS

$CODES

1630

11:08:22

VAX-11 Blies 145 v4.,0 579

DISKSUSERZ : [POWE RS JZRGADO.BL2;: 5
'
1
'
;

¢, RESULT
RESIAT,»

1l
3+
s
:

85092%31 30
(S)

215%
2156
2158

2161
¢.RC.REG
RC.REG,

2162
2163
2165

:
:

2168
2169

2158

:
:
H

2174
212%
2197

2175

D5H
JRQAME

RO/RXx EXERCISER

vol.6
:
:

H
:
H
3
H
3

3
H
H
H
3
:
H
:
3
H
3
:

2179
2180

2181
o182
2188

glg;
1
2186
2187
2188
2189
2190
2191
2192

2193
2194
2195
2196
2197

glgg
1

INTTIALIZATION TEST ROUTINES

1
1
1
1
1
1

GLOBAL

1
1
1
1
2
2
2
2
2
2
2
2

'
H
!

1
1

!
!

IMOLICIT

begin
OCT_ADDR
OCT_ADDR
OCT_ADDOR
OCY_ADDR
OCT_ADDR
OCT_ADDR
OCT _ADDR
end;

000000G

000004
00001
000012
000016
000020
000024
000030
000034
000040

013701
5011
012702
060102
013746
012746
004737
062700
010012

000000G

000046
000054
000060
000062
000066
000072
000076
000104
000110
000114
000120
000122

062761
012700
060100
016110
062710
011061
062761
011261
011061
011061
022626
000207

000014
000010

:
;

Rout'ne % ze:

Maximum stack

novelue

Apr

1984

Apr-1984

11:08:35

11:08:2°2

VAX-11 Bliss

v4 .0 579

DISKSUSER?: [POWERS 1ZRQADO.BL2;: 6

SEQ 026¢

Page

(%)

THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING ALL CONTROLLER RELATED
DATA IN THE “DRIVER"” PORTION OF THE EXERCISER. THIS INCLUDES THE
CONTROLLER'S DCT AND OQUTSTANDING COMMAND LIST,

004137

010061

routine IN1 CTLR DAT

‘e
'
H
H

000000

000042

INPUTS:

CCTLR
CURRENT CONTROLLER NUMBER
OCT ADDR
ADDRESS OF CURENT CONTROLLER & DCT

[WORDO]) = 0;
{RR_BEG) = COMM_AREA ¢+ 8 + (.CCTLR o COMM_LEN » 2);
(RR_END) « _OCT_ADOR [RR_BEG] + ((RRING LEN - 1) ¢ 4);
(CR_BEG) = .DCT_ADDR [(RR_END) + 4;
[CR_END) = .DCT_ADOR (CR_BEG) + ((CRING_LEN - 1) ¢ a);
[RR POLL] = .DCT_ADDR [RR_BEG];
([CR_POLL] = OCT_ADDR [CR_NEXT] = .DCT_ADDR [CR BEG):

0000006
000050
000000G
000010

000006
000004
000012
000014
000014
000020
000016

INILCTLR.DAT

JSR

R1,$SAVE?

MOV
CLR
MOV
ADD
MOV
MOV
JSR
ADD
MOV

000004

000006

LSBTTL

INI.CTLR.DAT::

MOV

000006

ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
MOV
MOV
cMP
RTS

000012

42 words,

depth per

Routine Base:

invocstion:

6 words

$CODES

014 ,6(R1)
€10,R0
R1,RO
6(R1),(RO)
€4 ,(RO)
(RO),12(R1)
214,12(R1)
(R2),14(R1)
(RO),20(R1)
(RO),16(R1)
(SP)+,(SP).
PC

. 2132

CLEAR FIRST DCT WORD
START OF RESPONSE RING
LAST SLOT IN RESPONSE RING
START OF COMMAND RING
LAST SLOT IN COMMAND RING
FIRST RRING SLOT TO POLL
CRING POLL AND NEXT COMMAND POINTERS

INITIALIZATION TEST ROUTINES

OCT.ADDR,R1
(R1)
04 R2
R1,R2
CCTLR, -(SP)
050, -(SP)
PC.BLSMUAL
oCOMM_ AREA.10,RO
RO,(R2)

RO,6(R1)

'
!
'
't
!
!
!

2179

2193

2194

2195

2196

:
3

219°
2198

3
H

2191
2179

2192

ES)
ZRQAMY
vol.6

gggo

RO/RXx EXERCISER
INITIALIZATION TEST ROUTINES

GLOBAL routine REG EXIST

1
1
1
1
1
1
1

H
H
H
H
'
H
H

3
3
H
H
3
H
3

<01l

220
2203
2204
2205
2206
2207
gggg

3
H
:
:
H
H
H
H

2210
2211
2212
2213
2214
2215
2216
2217

2
2
2
2
2
2
2
2

2220
2221
2222
2223
2224
2225
2226
2227
2228
gg%g

2
2
2
3
3
3
3
3
3
g

H
:
:

2231
2232
2233

3
3
4

:
:
H
H
:

2236
2237
2238
2239
2240

4
4
S
S
S

H
:
:
:
H
:
H
:

2242
2243
2244
2245
2246
2247
2248
2249

:
H
:
:
H
H

:
:
:

;

H
:

gg{g

gggg :

2241

2250

<251
22%2

2
2

Apr
Apr

1984
1984

11:08:35
11:08:°2°2

VAX-11 Bliss 16 v4,0 579
DISKSUSERZ: [POWERS JZRGADO.BL2 ;6

THIS IS THE REGISTER EXISTENCE (OR “PROBE"”) TEST DESIGNED TO VERIFY
THE PRESENCE OF AN RDRX DEVICE., THIS OBJECTIVE IS ACCOMPLISHED BY
SETTING UP THE NON-EYISTENT MEMORY (NEX) TRAP VECTOR (LOCATION 4) AND
ATTEMPTING TO READ WHAT IS ASSUMED TO BE THF DEVICE'S SA AND IP
REGISTERS. IF THE NEX TRAP HANDLER IS INVOKED DUE TO AN ABSENT DEVICE,
THEN THE GLOBAL DATUM “NEX” WILL BE SET TO “TRUE". THIS DATUM
ODETERMINES THE SUCCESS 7/ FAILURE VALUE OF THIS ROUTINE,
begin
local
OUMMY
O
DUMMY 1

:
:

word,
word;

i _ENTRY _REASON eql NEW PASS
then
return

OF RC

SUCCESS;

begin
NEX = FALSE;
SETVEC (4, NEX TRAP, PRIO7);
OUMMY
O = .(.RDRXx ADDR . .OF RC);
ouMMY
{ = O;

CLRVEC (4);
if UNEX
then
begin

!
!

TEMP FOR READING SA AND

SKIP

SET

'
'
'
!
'
'

GET TO
TRAP NOT RECEIVED"
SET LOCATION 4 TRAP VECTOR ADDRESS
READ REGISTER (THEN TRAP OR CONTINUE)
DUMMY INSTRUCTION TO COVER TRAP RETURN BUG
(TRAP RETURNS TO NEXT INSTRUCTION)
CLEAR LOCATION 4 TRAP VECTOR ADDRESS

IF NEX

TEST

FOR

PASS

TO READ SA FIRST

TRAP QCCURRED

o gnn TBL [.CCTLR, C ERR HRD) = .C ERR TBL [.CCTLR, C ERR HRD) + 1;
¢ JAPT MODE
then
begin
.MAIL BOX_TESTNUM = 1;
.MAIL _BOX_SUBTIST = 0;

4
4
4
4
4
3
3
3

11
11

end;

else
end

until

ERRDF (10, EGD_10,
SETPRI (PRIOO);
return FAILURE;
end
OF

.OF RC

.0F RC

1ss O;

EMS

10);

!
!

SET UP FOR

TEST FAILED

IP REG OR QUIT

5FQ 0263

Page

132
(7)

IS
RD/RX

H
H

2258
2254

INITIALIZATION

2
1

123727

000000G 000005

011001

005002
012700
104436
032737
001427
013700
006300
105260
032737
001405
012777
005077
104455

000012
000000G
0000006
005000
104441
062706
000413
162737
062706
005737
002311
012700
000207
005000
000207

;

Routine Size:

Maximum stack

REG.EXIST

.SB8TTL
REG.EXISTéé

0000006

104437
013700
063700

TEST ROUTINES

Apr 1984
Apr-1984

1 :08:35
11:08:22

VAX-11

Bligs-16

DISKSUSERZ:
[POWERS )ZRQADO.BL2; 6

INITIALIZATION

TEST

R1,$SAVE?

J
5288

1$:

0000006
0000006

Page

(7)

2200
2216
2218
2220
2224
2225

ENTRY .REASON, #5
@2,0F .RC
X
NE
4340, (SP)
ONEX
. TRAP, (SP)
04, -(SP)
83,-(SP)
37
RDRX,ADDR,RO
OF .RC,RO
(RO),R1

MOV
CLR
MOV
MOV
MOV
MOV
TRAP
MOV
ADD
MOV

CLR
MOV

000004
0000006

0000006
0000006
000001
001162
000001
001166

SEQ 0264

ROUTINES

000002
000000G
0000006
000340
0000006
000004
000003

000001

v4.0 579

SUCCESS;

004137
001472
012737
005037
012746
012746
012746
012746

;

return
end;

11
11

001164

2%:

TRAP
8IT
BEQ
MOV
ASL
INCB
BIT
BEQ
MOV
CLR
TRAP

000002
0000006
000010
000000G

000001

Ss:
69 words,
Routine Bese:
9 words
depth per invocat on:

CCTLR,RO
RO

C.ERR.TBL(RO)
91,APT

MODE

23
01,8MAIL.BOX. TESTNUM
SMAIL .BOX.SUBTST

. WORD
.WORD
.WORD
CLR

2227
2229

22%4

2236

2239

2240
2243

2244

ADD
B8R
SuUB
ADD
TS7
8GE
MOV

2245
2233
2248
2223
2251
22190

RYS

CLR

RTS

$CODES

¢ ,DUMMY
O
ouMMY
| )

<l 3l

TRAP

000010

2226

vol.6

EXERCISER

o
fy

ZRQAM3

[

G5
ZRQAMZ

RD/RX EXERCISER

vol1.6

INITIALIZATION TEST ROUTINES

H
:
H
H
:
H

2255
2256
2257
2258
2259
2260

1
1
1
1
1
1

H
:

2262
2263

1
1

:
:
:
:
:
3

H
H
:
H
H
:
H

:
:
:
H
:
H

H
H

2261

2264
2265
2266
2267
2268
2269

2270
2271
2272
2273
2274
2275
2276

1
1
1
1
1
1

1
1
1
1
1
1
2

H
:
:
:
:

2292
2293
2294
2295
2296

3
3
4
4
4

2298
2299

3
3

2301
2302
2303
2304
Sggz

3
2
3
3
g

2307

;

ggg?

2297

2300

H
:

H
:
:
:
H
:

11:08:22

Bliss

IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY SETTING THE
PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE

'
H
!

USER., A FORCED INTERRUPT SHOULD NOT OCCURR., THEN, BY LOWERING THE
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOWD OCCUR.

begin
if .ENTRY REASON eql NEW PASS
then
begin
SETPRI (PRIOO);
return SUCCESS;

!
!

LOWER PRIORITY
GKIP TEST IF NEXT PASS

(MSG 02);

“FUNCTIONAL

if INT_GEN () eaql FALSE
then
begin

FORCE

¢*

VECTOR

!
!
!

INTERRUPT DID OCCUR
"EXERCISER STARTED®
SET PRIORITY TO ASSUMED BR LEVEL

FORCE

end;

C_ERR_TBL

[.CCTLR,

C ERR_HRD]

.C ERR

TBL

TEST

STARTED

INTERRUPT

INTERRUPT DID NOT

[.CCTLR,

C ERR HRD)

OCCuUR

¥ _APT _MODE
then
begin
.MAIL _BOX_TESTNUM = 1;
.MAIL _BOX_SUBTST = 0;
end;

ERRODF

(11,

EGD 11,

return FAILURE;

else

0);

TEST FAILED

end

begin
PRINTF
SETPRI
“f

(MSG 03);
( BRLEVEL);

INT GEN () eql

FALSE

INTERRUPT

v4,0 579

DISKSUSERZ: [POWERS )ZRQADO.BL2; 6

*"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.

PRINTF

2
2
3

VAX-11

'
H

'
!
!
'
'
!

2
g

2287
2288
2289

1984

11:08:35

THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RDRX VECTOR ADDRESS GIVEN
BY THE USER DURING THE HW DIALOG IS VALID, AND (B) THAT THE
USER-SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT. THE FIRST
OBJECTIVE IS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO O AND FORCING
AN RDRX INTERRUPT., IF THE USER SPECIFIED AN INCORRECT VECTOR ADDRESS,
THEN THE RESWLT MAY BE UNPREDICTABLE, FOR THIS REASON, THE MESSAGE

2284
gggg

H
H
:

11 Apr

1984

D
H
!
'
'
H
!

2
2
2
3
3
3
2

Apr

GLOBAL routine VEC BR TEST

2277
2278
2279
2280
2281
2282
2283

(SHOULD NOT

OCCUR)

5EQ 0265
Page

(8)

RD/RX

vol.6

INITIALIZATION

2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336

=NV WWWNRRDVVNN
WD INNUNDLLLLDLW

ZRQAMZ

000000

010146

000002

005746
123727
001003
005000
104441
000504
012746
012746
010600
104417
004737
005700
001023
013700
006300
105260

000012
000014
000016
000020
000022
000026
000032
000036
000042
000046
000052
000054

EXERCISER

then

11
11

TEST ROUTINES

begin

SETPRI (.BRLEVEL
DELAY (1);
if

.OCT_ADDR

then

{SA

1984

11:08:35

Apr

1984

11:08:22

IF INTERRUPT DID NOT
LOWER PRIORITY BY 1
WAIT

%0'40');

SAVE])

Apr

neq O

VAX-11 Bliss 16 V4.0 S79
DISKSUSER?2
: [POWERS )ZRQADO.BL2;:6

SEQ 0266
P age

35
(8)

OCCUR

INTERRUPT DID OCCUR

(SA_SAVE

WOUNLD BE

NON ZERO)

begin

SETPRI

return
end;

(PRIOO);

RESTORE PROCESSOR PRIORITY
ONLv SUCCESSFUL EXIT POINT

SUCCESS;

TO O

end;

SETPRI (PRIOO);
C_ERR_TBL [.CCTLR,
iV

C_ERR HRD]

.C_ERR

T8L

COME HERE ONLY FOR BR
[.CCTLR, C ERR HRD) 01;

TEST FAILURE

.APT _MODE

then

begi n
.MAI L BOX_TESTNUM = 1;
.MA1 L BOX_SUBTST = 0;

end;

ERROF (12, EGD 12,
return FAILURE;

EMS_12);

end;

000000G 000005

.GLOBL

LsDLY

.S8TTL

VEC.BR,TEST

VEC.BR.TEST::
MOV
1S7
cMPB
BNE

000000V

0000006

1$:

TEST ROUTINES

R1, -(SP)
-(SP)

2255

CLR

2281

B8R

TRAP

0000006
000001

INITIALIZATION

MOV
MOV
MOV
TRAP

JSR
157
BNE

ENTRY REASON, 05
1

2278

oMSG. 02,

22890
2285

(SP)

@1, (SP)
SP,RO
17
PC, INT .GEN

MOV
AsL

CCTLR,RO
RO

INCB

C.ERR, TBL(RO)

Spo.

5
JRQAMS
vol.6
000060
000066
000070
000076
00102
000104
000106
000110
000112
000114
000120
000124
000126
000130
000134
000136
000142
000144
000146
000152
000156
000160
000164
000166
000172
000174
000200
000202
000204
000206
000210
000214
000220
000222
000224
000226
000232
000236
000240
000242
000244
000246
000252
000254
000260
000266
000270
000276
000302
000304
000306
000310
000312

RD/RXx

EXERCISER

INITIALIZATION TEST
032737
000001
001405
012777
000001
005077
001166°
104455
000013
0000006
000000
000477

012716
012746
010600
104417
013700
104441
004737
005700
001035
013700
162700
104441
012701

001411
013700
001404
005066
005300
001374
005301

005726
005000
104441
013700
006300
105260
032737
001405
012777
005077

104455
000014
0000006
0000006
022626

eIy
8EQ

001164°

MOV

2s:

001154

TRAP

.WORD
. WORD
. WORD
B8R

MOV
MOV
MOV
TRAP
MOV
TRAP

TST
BNE
MOV

001154°
000040

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX-11 Bliss

0000006

S$:

6%:

0000006
000002

7%:

000006
000001

8s:
9.

0000006
0000006
000001
001162

MOV

2295
229
2299

2304

SP,e
2305

PC,INT.GEN
RO
9

2307

BRLEVEL ,RO

2310

001164

10¢:

118:

DCT.ADDR,RO
2(RO)

MOV

06,5P
RO

124
(SP).

RO
41

B8EQ

108
01, ,8MAIL .BOX.TESTNUM

CLR

TRAP

.WORD
.WORD
. WORD

o,88TMP2

0,$$Tm1

:
:

$STMP
$8TMPY

$STMPQ

231

2313
2316

TRAP
MOV
ASL
INCB

MOV

;

94
RO
41

8IT

(8)

2300

TST
8EQ
CLR
TRAP
AOD

B8R
TST
CLR

age

118
oMSG,03,(SP)
e1, (SP)
SP,RO
17
BRLEVEL ,RO

MOV

000006

2292

8EQ

BEQ
CLR
DEC
BNE
OEC
B8R

5€Q 0267

01 ,APT MODE
28
01 ,3MA
.BOX. TESTNUM
TL
.BOX . SUBTST
SMAIL

TRAP
MOV
4

16 V4,0 579

DISKS$USERZ2:
[POWERS JZRQADO.BL2;: 5

040,R0O

000001

000001
001166°

CLR

JSR

000000V

000766

013700
005760
001407
005000
104441
062706
012700
000427

ROUTINES

001162

0000006
000001

11
11

CCILR,RO

C.ERR, TBL(RO)
21 ,APT
. MODE

SMATIL .BOX,SUBTST
55
14
EGD.12
EMS. 12
(SP)+ ,(SP).

2317
2315

2303
2324
2325

JS
ZRQAM3

RD/Rx EXERCISER

INITIALIZATION TEST ROUTINES

vol.6

000314

000316
000320
000322

;

11-Apr-1984
11-Apr-1984

005000
005726
012601
000207

Rout ne Size:

Maxv"'mum stack

12%:

106 words,

depth per

Rout ‘ne Base:

invocat

on:

! words

CLR

MOV
RTS

(SP).
(SP).,R1

TST

$CODES

2470

11:08:35
11:08:22

VAX

Bliss

v4,0

579

DISK$USERZ2: [POWERSJZRQADO.BL2;6

SEQ 0268
Page

(8)

2255

I<KS
RD/RX EXERCISER

ZRQAMX

INITIALIZATION TEST ROUTINES
routine

H
H
!

!
'
!
H

local
SA

024646
013700
005060
012700
010077
012701
001411
013700
001404
005066
005300

Page

(9)

word;

DCT_ADDR

[SA_SAVE])

WRT_RDRX

(RCIP,

= 0;

RC_ALL,

ALL _ONES);

DELAY (2);
SA = _RORX_ADDR [RCSA, RC_ALL];
SA = (WR_RING t 8) o~ (.CURRENT _VECTOR

D N

000004
000006
000012
000016
000022
000026
000032
000034
000040
000042
0000456

DISKSUSER?2: [POWERS )ZRQADO.BL 2;:6

begin

(RCSA,

from

ALL,

.SA);

STORAGE FOR STEP

ZERO OUT

!
!
!

WAITY
STEP
STEP

-2) or SA_INT;

WRITE

STEP

1 READ AND WRITE

SA SAVE WORD

START

INIT

IN DCT

StQUENCE

1 READ
1 WRITE VALUE
1

WRITE

to 8000 do

begin

DELAY

UG8 G GG G G

004137

11-Apr 1984 11:08:22

3EQ 0269

THIS ROUTINE BEGINS AN RORX INITIALIZATION SEQUENCE, BUT ONLY
COMPLETES THROUGH THE STEP 1 WRITE. ITS PURPOSE IS TO CREATE AN RDRX
INTERRUPT (AT THE COMPLETEION OF STEP 1) IN ORDER TO MHELP VERIFY THE
THE USER SPECIFIED +ECTOR ADDRESS AND BUS REQUEST INTERRUPT LEVEL.
A VALUE OF "TRUE"” IS RETURNED 70 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.

incr COUNT

000000

INT GEN

VAX-11 Bliss 16 v4,0 579

DD D D N N

GLOBAL

WRT _RDRX

00 P R

2369
2370
2371
2372
2373

N R U N 1m0 =0 =0 b =t Pt 10 Pt ot Pt Pt Pt

v0l1.6

2337
2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359
2360
2361
2362
2363
2364
2365
2366
2367
2368

11 Apr 1984 11:08:35

(1);

.OCT

then

ADDR

return

[SA_SAVE)

neq O

TRUE;

TOTAL DELAY

WAS

CHANGED

INTERRUPT

OCCURED

COUNT OF

8,000

BREAK;
end;

return FALSE;

INTERRUPT

DID NOT

OCCUR

end;

000000G

000002

INT.GEN INITIALIZATION TEST ROUTINES

JSR

R1,$SAVE?Z

233"

MOV
CLR
MOV
MOV
MOV

OCT.ADOR,RO
2(RO)
4 1,R0
RO, 3RDRX, ADDR
o2 .R1

2354

BEQ

cMP

0000006
000002
177777
0000006
000002

0000006

.SBTTL

INT .GEN::

1$:
28:

BEQ
MOV
CLR
DEC

-(SP), -(SP)

4
L$OLY, RO
2(sSP)
RO

;
1+
:

¢,RC.REG
RC.REG,
¢, 88TMP?

¢,88TMP]

:
:

$STMP
SSTMPL

235S
2356

1 5

000050
000052
000054
000056
000062
000066
000072
000074
000076
000100
000104
000106
000112
000116
000122
000124
000130
000132
000136
000140
000142
000144
000146
000152
000156
000160
000164
000166
000170
000172
000174
000176
000200

;
;i

11 Apr 1984
11 Apr-1984

RD/RXx EXERCISER

ZRQ@AMZ
vOol1l.6

INITIALIZATION TEST ROUTINES

001374
005301
000766
013700
016016
013701
006201
006201
010102
052702
010201
010160
012702
012701
001411
013700
001404
005066
005300
001374
005301
000766
013700
005760
001403
012700
000404
104422
005302
001351
005000
022626
000207

0000006
000002
001152

44
:

S5$:

6$:

0000006

000002

7$:
8$:

0000006
000002

1$
RDRXx.ADDR,RO

MOV
MOV
MOV

2(R0),(SP)
CURRENT ,VECTOR,R1

ASR
ASR
MOV

R1
R1
R1,R2

MOV
MOV
MOV
MOV

R2,R1
R1,2(R0O)
917500,R2
e1,R1
94

9111200,R2

8IS

111200
000002
017500
000001

BNE
DEC
BR

BEQ

L$OLY,RO
8s
2(SP)
RO

MOV

8eQ
CLR
DEC
BNE
OEC
BR

74
R1
64

BEQ

10¢:

11¢:

11$
22
R2

TRAP

OEC
BNE
CLR
cMpP

(SP)+,(SP)s

RTS

$CODES
Routine Size:
65 words,
Rout ine Base:
Max 'mum stack depth per invocation:
7 words

VAX

3014

Bliss

v4.0 579

DISKSUSERZ:
[POWERS ]ZRQADO.BL2;: 6

0270

age

(9)

$$TMP2

+,RC.REGC

2357

2358

s ,SA
+,SA

SA,RC.REG

2359

s ,COUNT

2361
2363

RC.REG,
»
e, 88TMP2

o, 88TMPL

$$TMP
$sTMP]

$STMP2

2305

DCT.ADDR,RO
2(RO)
10$
€1,RO

MOV
TST

MOV

000001

11:08:35
11:08:22

2367

COUNT

2361
2349
2337

M5
RD/RX EXERCISER

ZRQAM3S

INITIALIZATION

2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2587
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399

2400
2401
2402
2403
2404
2405
2406
2407
2408
2409
2410
2411
2412
2413
2414
2415
2416
2417
2418
2419
2420
24°1
2422
2423
2424
2425
2426

WNWWWDDLBUNNUVIVIIUIUIUIUIDS
5 5 (i (i
N8 8 08 808
e 08 GG PO DD D N RO RO P ) 00 00 s o 3=t gt Pt et =0 e

vol.6

GLOBAL

11 Apr-1984 11:08:35

TEST ROUTINES

routine HARD _INIT

11 Apr

1984

5EQ 0271

VAX-11 Bliss 16 v4,0 579

11:08:22

DISKSUSER?Z: [POWERS )ZRQADO.BL2 ;6

!
!
!
!
!

THIS ROUTINE PERFORMS THE FOUR READ 7/ WRITE STEPS REQUIRED TO
INITIALIZE AN RDRX DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY

THE FOUR STEPS, THEN A SUCCESS VALUE IS RETURNED TO THE CALLER.
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE.
IF ALL

ATTEMPTS FAIL,

A FAILURE

INDICATION

IS RETURNED.

[}

begin

local
IE _VEC
IE_VEC
incr

word;

.CURRENT_VECTOR

ATTEMPTS
begin

from

INI

ATT

RC_ALL,

ALL

ONES);

!
H

TE BIT AND-VECTOR-ADDRESS/4 BYTE
(USED IN STEP 1 WRITE AND STEP

GET

WRITE

VECTOR

ADDR’/4

(IE

START

INIT

TOTAL DELAY

COUNT

3 READ)

label
STEP_1_READ,
STEP_2_READ,
STEP_3 _READ,
STEP_4 _READ;
WRT_RDRX

(RCIP,

SEQUENCE

[]

!
[}

STEP

READ

STEP = 1;
STEP_1 _READ:
begin
incr

COUNT
begin

DELAY

SA_REG
if

;
BREAK

exitloop;
end;

WRITE

500

.RDRX ADDR

[RCSA,

and S1_MASK)

leave STEP_1 READ;

end;

STEP

(1);

(.SA REG

then

'
!

from

RC ALL];

eql

READ SA

STEP

READ

500 FOR

O.K,

STEP

Page

(10)

NS
vol.6

INITIALIZATION

2430
2431
2432
2433
2434
2435
2436
2437
2438
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464
2465

2466

2467
2468
2469
2470
24
2472
2473
2474
2475
2476
2477
2478
2479

DB BNNUNVNOAVNNVINDDLBUWUHWNWHNNWWNWD
LDV

2428
2429

WHNN

G¢
G
@0
S0
S0
G0
W0
Co
G
66
G0
G0
V8
G0
V¢
V¢
Vr
G0
G
V0
O3
OF
O¢
V¢
V0
OF
6o
Ve
G
S
G0
Vs
G0
Ve
G0
G0
G4
Ve
V6
B
G¢
We
B¢
B6
e
B¢
G*
G
B¢
8¢
©6
®%

2427

NN D DD UWUWWWWNW

RD/RX

ZRQAM3

EXERCISER

TEST ROUTINES

SN_REG =
WRT _RDRX
!

Apr

1984

Apr

1984

11:08 : 35

11:08: 22

(WR_RING t 8) or .IE VEC;
(RCSA, RC ALL, .SA REG);

SEQ 0272

VAX-11 Bliss 16 v4.,0-579
DISK$USERZ2:
[POWERS JZRQADO.BL2;:6

!
!

STEP
STEP

!
'

TOTAL DELAY
nCAD SA

RINGBASE

1
1

WRITE
WRITE

[

VALUE

STEP 2 READ
STEP = _STEP
STEP_2 _READ:

begin

incr

COUNT
begin

from

10000 do

DELAY (1);
SA_REG = .RDRX_ADDR
if

(.SA REG

then

[RCSA,

and S2_MASK)

RC_ALL];

eql

(SA_S2

WR_RING)

COUNT

STEP 2 FEAD

10,000

FOR

STEP

10,000 FOR

STEP

3 READ

IS 0.K,

leave STEP 2 READ;

BREAK ;
end;

exitloop:
end;

STEP 2 WRITE
WRT_RDRX

STEP

(RCSA,

RC_ALL,

.DCT_ADDR

[RR BEG1);

LO,

3 READ

STEP = _STEP
STEP_3_READ:

begin

incr

COUNT
begin

DELAY

SA REG

from

(1);
=

exitloop;

end;

STEP

3 WRITE

[RCSA,

and S3_MASK)

leave STEP

BREAK ;

10000

.RDRX_ADDR

if (.SA_REG
then

erd,

3 _READ;

RC_ALL];

eql

(SA

.IE

VEC)

TOTAL

READ

DELAY

STEP

COUNT

3 READ

IS 0.K,.

(10)

t
IRQAMS

RO/Rx EXERCISER

INITIALIZATION TEST ROUTINES

YV XV YV XF XV 47

2480
~481
2482
2483
2484

2491
2492
2493
2494
2495
2496

2497

LV LY VL YT YCYP Y VL VY VL VE N ST SYPYZYV RV VTV RV RV Y o

€0

B¢

V¢

2498

2499

(RCSA,

ALL,

Apr

1984
1984

11:08 :35

VAX-11 Bliss 15 V4.0 579
DISKSUSER2:
([ POWt RS 1ZRGADO.BL2;4

11:08 :22

PP,

RINGBASE

COUNT

5EQ 0273

Page

47
(10

STEP 4 READ

[]

STEP

_STEP

.«

STEP
_4 READ:

begin

incr COUNT

NV XV IV AV AV JU. LV YV V. R %

2490

2505
2506
2507
2508
2509
2510
2511
2512
2513
2514
2515
2516
2517
2518
2519
2520
2521
2522
2523

WRT _RDRX

Apr

2485
2486
2487
2488
2489

V¢

GO G0

Os G0

vol.6

2501
2502
2503

1 1
11

begin

from

10000 do

DELAY (1)
SA _REG = .RDRX_ADDR
+f

(.SA

then

REG

and

[RCSA,

S4 _MASK)

RC_ALL]

eql

TOTAL DELAY
READ SA
IF

SA_SA4

STEP &4 READ

10,000 FOR

STEP 4

READ

IS O.v,

leove STEP 4 READ;

BREAK;
end;

eritloop:

end;

STEP & WRITE

CREDIT BAL

WRT RDRX (RCSA,
return SUCCESS;

ALL,

!
!
!

0);

TRY

end;

CREDIT BAL - O;
C_ERR_TBL (.CCTLR,
¢

START wWITH A CREDIT BALANCE
BURST, LF, GO = O
SUCCESS EXIT POINT

C ERR WRD)

.C ERR

TBL

[(.CCTLR,

C _ERR

AGAIN OR GIVE

! ]NO CREDIT
e 13

HRD

BALANCE

.APT_MODE

then

LMAIL
_BOX _TESTNUM » |,
LMAIL
_BOX _SUBTST « 0

end;

ERRDF

(13,

EGD_13,

return FAILURE;
end;

000000

004137

0000006

000004
000010
000014
0000156

162706
013704
006204
006204

000012
001152

INIT

EMS_13);

SEQUENCE P AILED

ROUTINE

.SBTTL

HARD
., INIT: :
JSR
suB
MOV

ASR
ASR

HARD.INIT

INITIALIZATION

R1,$SAVES
12,5P
CURRENT
. VECTOR,R4
R4
Ra

HARD _INIT

TEST ROUTINES

:
1
s
s

Jr3
o, IE,VEC
[E.VEC
[E.VEC

AR\

Cé

000002
177777
0000006
000001
(000006
000764
000001

MOV

8EQ

0000006
3s:

S
LS$OLY, RO

e, 88TMP?

o, 88TMPL

;
;

$STMP
$STMPL

$8TMPC

¢ ,RC.REG

10(SP)

Ss:

R1
MOV

2
RDRX
. ADDR, RO
2(R0O),(SP)
(SP),SA.REG
(SP),RO
®777,R0
RO, #4000
68
22

68:

7%:

8s:

108

000002
0000006

118:

18
168¢
R4 ,SA.REG
#111000,SA.REG
SA.REG,R1
RDRX
, ADDR ,RO
R1,2(RO)
STeP
23420, ,R?

¢ ,RC.REG

RC.REG,
*

¢ ,COUNT

s RC.REG,
t SA.REG,

3€Q 0274

Pege

(10)

2392
2401

240%
2409
2411

118
LSDLY, RO
108
10(SP)

RO
9
R1
as

RORX ,ADDR ,RO
2(RO),e¢(SP)
2(SP),SA .REG
2(SP),RO

23400,R0
RO, 010222

R2
7%

2648
DCT.ADDR,RO

2412

2414
2416

COUNT

2409

2393
2427

¢.RC.REG
RC.REG,
o

¢ ,COUNT

o1,R1

128
22

0000006

¢ ,ATTEMPTS

22.RS
®-1,R0
RO, 8RDRX
, ADDR
@1,STEP
0764 ,R2
21,R1

RO
48

010222

VAX-11 Blies 16 v4.0 579
DISKSUSER?:
[POWF RS )ZRQADO .BL 26

000010

000002
000002

11:08:35
11:08:22

012705

012700
010077
012787
012702
012701
001411
013700
001404
005066
005300
001374
005301
000766
013700
016016
011637
011600
042700
020027
001404
104422
005302
001345
000532
010437
052737
013701
013700
010160
005237
012702
012701
001411
013700
001404
005066
005300
001574
005301
000766
013700
016066
016637
016600
042700
020027
001404
104422
005302
001342
000537
013700

ROUTINES

1984
1984

000020
000024
O00030
000034
V0042
000046
000052

TEST

Apr
Apr

®0

INITIALTZATION

11
11

vel.e

EXERCISER

RD-Rx

JRIAMR

o, 88TMP?

o,88TMP]

1
;

ssTMP
s$sTMP]

ssTMP2

:
3

,RC.REG
RC.REG,
SA.REG,

2428
2432
2436
24138

2439
2441

2443

COUNT

Q43¢

J3at

2454

D¢
JRIAMER

RD/Rx

INITIALIZATION

vOol.6

000276
000302
000306
000%12
000316
000320
000324
000330

EXERCISER

016001
013700

010160

005237
010403
052703
012702
012701
001411
013700
001404
005066
005300
001374
005301
000766
013700
016066
016637
016600
042700
020003

TEST

11 Apr
11 -Apr

ROUTINES

000004
0000006
000002
0000006

005060

005237
012703
012701

001411
013700
001404

000542
000550

005300
001374
005301
000766
013700
016066
016637
016600
042700
020027
001404
104422
005303
001342
000413
012737
005001

RC.REG,
*

R4 ,R3

IE.VEC,

023420,R2
e1,R1

o, 88TMP?

17
L$OLY, RO
16
10(SP)

144
:

0000006

000010

15¢%:

154

16$:
000000G
000002
000004
000004
000000G
000004

178

¢ ,RC.REG

18%:

0000006
000002
0000006
023420
000001

198

208
2ls:

0000006

000010

MOV

BEQ

228:

01,R1

243

L$DLY,RO
23
10(SP)

244
:

8EQ

TRAP

OEC
0000006

258

B8R
MOv
CtR

COUNT

2467

2462
2480

o ,COUNT

e, 88TMP2

2484
2488

2490

e, $8TMP

* ,RC.REG

RC.REG,»
SA.REG,

2491

2493
<495

25%

o1,CREDIT.BAL
R1

2465

2393

$STMP2

22
R3
208
264

2462
2464

2469

0%777,RO
RO, 940000

040000

SA .REG,

s$sTMP
$8THMP

2(RO),6(SP)
6(SP),SA.REG
6(SP).RO

2454
2467

RC.REG,

oL
RDR
. ADDR X
, RO

003777

000001

#23420,R3

224

23
0000006
000002
000006
000006
0000006
000006

13
264
RDRX
. ADDR , RO
2(RO)
STEP

(10,

$4TMP
ssTMP)

2(RO),4(SP)

193
22

SEQ 0275

e, 88TMP]

ssTMP2

4(SP),SA.REG
4(SP),RO
#3400,R0
RO,R3

003400

¢ ,COUNT

143
RORX . ADDR , RO

001404

104422
005302
001343
000462
013700

R1,2(R0)

020000 ,R3

13s:

VAX-11 Blises 16 v4.0 579
DISKSUSER?:
[POWERS JZRQADO.BL2;:6
¢ ,RC.REG

STEP

<3420
000001

11:08:35
11:08:22

4(RO),R1

RDR
. ADOR X
, RO

020000

1984
1984

CUUNT

2438

RC.REG

a393
250%
250

6
RO/RXx

ZRQAMS

INITIALIZATION

vol1.6

000552
000556
200562
000566
000570
000574

000600
000602
000606

000614
000616
000624
000630
000632
000634
000636

000640
000642
000646

EXERCISER

013700
005060
012700
000425
005037
013700
006300
105260
032737
001405
012777
005077
104455
000015
0000006
000000G
005000
062706
000207

Routine

Maximum stack

Size:

11
11

TEST ROUTINES

0000006
000002
000001

MOV
CLR

RDRx
. ADDR,RO
2(RO)

B8R
CLR

284
CREDIT.BAL

268
:

MOV
ASL

000012

278

288
:

2514

91,8MAIL
.BOX, TESTNUM

:
:
:

2517
2518
2521

RO
012,5P
PC

2384

SMAIL .B0x.SUBTST
55
15
€EGD.13
EMS, 13

. WORD
.WORD
. WORD
CLR

ADD
RTS

$COOES
212 words,
Rout ine Bese:
depth per invocation:
13 words

(10)

91 ,APT MODE

CLR

TRAP

DISKSUSER?2: [POWERS JZRQADO.BL2;: 5

5EQ 0276
Page
45

2511

274

MOV

16 v4.0 579

CCTLR,RO
RO

BEQ

001164°

VAX-11 Bliss

2393

C.ERR,TBL(RO)

BIv

11:08:35
11:08:22

INCB

0000006
000001
001162
000001
001166

1984
1984

21,RO

MOV

0000006
0000006

Apr
Apr

3216

2512

2374

[ 6
ZRQAM3

RD/RX EXERCISER
INITIALIZATION TEST

D) 90 1
AU D NN P
) T
N

routine INI_RRING

novalue

Apr-1984
Apr 1984

11:08:35
11:08:2°2

VAX-11

Bliss

v4,0-579

DISKSUSERZ2:
[POWERS JZRQADO.BL2:6

SEQ 0277
Page

446
(1)

THIS
FILL

ROUTINE
AN RDRX

IS RESPONSIBLE
RESPONSE RING.

(LOCATED IN FRONT OF

FOR
TME

ALLOCATING ENOUGH MSCP PACKETS TO
BUFFER DESCRIPTOR OF EACH PACKET

THE PACKET

ITSELF) IS LOADED INTO SUCCESSIVE

RRING SLOTS, NOTE THAT THE BWFER DESCRIPTORS HAVE BEEN INITIALIZED
WITH THE FLAG AND OWNERSHIP BITS SET TO “1”, MAKING EACH SLOT

CONTROLLER OWNED.
IMPLICIT

INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
DCY ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT

begi n

local

index

word,

RRING _ADDR;

RRING_ADDR

incr CONT
begin

from

.DCT_ADDR

(RR_BEG];

.RRING_ADDR

RRING _ADDR
end;

FIRST

RESPONSE

RING

SLOT

to RRING_LEN do

index = GET_PKT (.CCTLR);
.RRING_ADDOR = _MSCP PKT (.index,

2555
2556
2557
2558

GLOBAL

ROUTINES

RRING ADDR = _RRING_ADDR + 2;
.RRING_ADDR = .MSCP _PKT [.index,
PKT _USE [.index]) = .CCTLR;

= NN

2524
2525
2526
2527
2528
2529
2530
2531
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554

et ot s b o gt 0 Pt Pt Pt Pt Pt ot

vol.6

11
11

GET AN MSCP PACKET
LOAD LO-ORDER BUFF DESC

PKT LO];
PKT_HI];

., .RRING_ADOR or ED OWN or ED FLAG;!

.RRING_ADDR

INTO SLCT

ADVANCE TO SECONC WORD
LOAD HI-ORDER BUFF DESC INTO
PACKET IN USE
GIVE OWNERSHIP TO CONTRLLER

ADVANCE

TO NEXT

SLOT

end;

000000

00413/

0000006

000004
000010
000014
000020
000024
000026
000032
000034
000036
000042
000046
000052
000056

013700
016001
013703
012704
010346
004737
010002
010216
012746
004737
016021
016011
013703

0000006

000000G

.SBTTL

INI.RRING:
:
JSR

MOV

18:

MOV
MOV
MOV

MOV
JSR
MOV

000106
0000006
0000006
0000026
0000006

MOV

INI.RRING
R1,$SAVES

4(RO),R1
CCTLR,R3
04 R4

:
:
;i

¢,RRING.ADDR

RO,R2

¢ INDE
X

R2,(SP)

INDEX,
e

:
;1

¢,RRING.ADDR
¢,RRING.ADDR

DOCT.ADDR,RO

R3, (SP)
PC.GET PKT

0106,

¢, COUNT

2524
2545

2549
254~
2549
25590

(SP)

JSR

PC.BL ML

MOV

CCTILR,R3

MOV
MOV

INITTALIZATION TEST ROUTINES

MSCP.PKT(RO),(R1)»
MSCP.PKT+2(RO),(R1D

2852
2553

G6H
RD/RXx EXERCISER

ZRQAMX

INITIALIZATION TEST ROUTINES

vOl.6

000062
000066
000072
000074
000076
000100

:
;:

11-Apr-1984

110362

052721
022626
005304
001352
000207

Rout ‘ne Size:
Max"'mum stack

0000006
140000

11-Apr-1984
MOV

R3,PKT

8IS
cMe

DEC

$CODES$

s ,e( INDEX)

+« ,RRING.ADDR

COUNT

18
PC
+

11:08:22

VAX 11 Bliss 16 v4.0 579
DISK$USER2: [POWERS1ZRQADO.BLZ2;6

2140000,(R1)+
(SP)+,(SP)e

BNE
RTS
Rout ine Base:
33 words,
8 words
depth per invocat on:

USE(R2)

11:08:35

4066

5EQ 0278
Page

(11)
554
2548
2547

2524

RO/RXx EXERCISER

ZRQAM3

INITIALIZATION TEST ROUTINES

2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611

GLOBAL

routine SET

CTLR CHAR

11 Apr

1984

11:08:22

VAX-11 Bliss 16 V4.0 S79

DISKSUSERZ2: [POWERS JZRQADO.BLR2;: 6

N WNERWHNDDDWWWWWNNNMNN
NN NN NN RN NN NN RN NN R R =2 2 1= s 5t =0 gt o s b0 o

v0l1.6

2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589
2590
2591
2592

11 Apr 1984 11:08:35

THIS ROUTINE

CALLED BY

CTLR_INIT

AFTER

THE

RDRX HAS BEEN HARD

INITIALIZED. ITS PURPQSE IS TO FORMAT AND SEND THE "SET CONTROLLER
CHARACTERISTICS” COMMAND, AND TO VALIDATE THE RESPONSE (END MESSAGE).
IMPLICIT

INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER

begin

local
P_INDEX
!

MISCELLANEOUS

word:

INITIALIZATION

QIO (.CCTLR]) = O:
CST [.CCTLR, U_CNT] = O;
INCR COUNT FROM O TO (RP_CNT
RP USE

(.COUNT]

-1;

1222
1222
1222
1222
1222

*INIT NO OF OUTSTANDING QIOS
!CLEAR UNITS IN CST TABLE
1) DO
'INIT RETURN PACKET POOL

!ggg
.

IODG_IN

IODQ_OUT

'INIT

P_INDEX = GET_PKT (.CCTLR);
MSCP_PKT [.P_INDEX, MSGLEN])

MSCP_PKT
MSCP_PKT

[.P_INDEX,
[.P_INDEX,

MSCP_PKT
if

SEND

[ .P_INDEX,

(.P_INDEX)

I/0 DONE QUEUE POINTERS

[]

SZ_SCC;
OPCODE]}
OP_SCC;
C_FLAGS] = CF MASK;
CMO_TYPE] = IMM_CMD;

eql

1222

=
=

'
!
*
*

FAILURE

GET AN MSCP PACKET
PACKET SIZE

OPCODE = SET CTLR CHAR
CONTROLLER FLAGS
IMMEDIATE

ATTEMPT

COMMAND

SEND

then

begin
C_ERR_TBL

[.CCTLR,

C_ERR HRD)

.C ERR

TBL

[.CCTLR,

' IF SEND WAS UNSUCCESSFUL
FRR HRD] + 1;

1§ _APT _MODE
then

begin
.MAIL _BOX_TESTNUM = 1.
.MAIL _BOX_SUBTST = O;
end;

ERRDF

(20,

EGD_20,

OROP _CTLR

(.CCTLR,

PUT _PKT

else

(.P_INDEX);

return FAILURE;
end

beg'n

0);

FATAL

DU CFATAL);

DROP CONTROLLER

IF SEND WAS SUCCESSFW

ERROR

RETURN PACKET

T0O

POOL

80,92770279 45

56Q

(12)

16
RD/Rx EXERCISER

vol.6

INITIALIZATION TEST ROUTINES

2664

11:08: 35
11:08: 22

11 Apr -1984
11-Apr-1984

VAX-11 Bl'ss-16 V4.0 579

5EQ_0280

DISKS$USERZ2: [POWERS JZRQADO.BL2 ;6

begin

WAIT

(),

RP_INDX
RP_ADDR

_RP

then

=
=

QUT _I00Q
RETPKT +

ADDR

();
(.RP_INDX

(MESTYP)

PUT _RETPKT

RP LEN

WAIT FOR RETPKT RESPONSE
GET INDEX OF RETPKT
CALCULATE RETPKT ADDRESS

2);

neq MT _SEQ

RETURN

ALL

RETPKTS

NOT

SENT

(.RP_INDX);

end

until

.RP

then

(.RP ADOR [CONID) eql CID_DRIVER) or
((.RP_ADDR (MESTYP) eql MT_SEQ) and
(C.RP ADDR [ENDCOD) and OP_END) eal OP END));
ADDR

[CONID)

eql

CID DRIVER

IF RETPKT

begin

PRINTF (DBM23);
PUT _RETPKT ( .RP_INDX);

DR_ERR

ELSE

(.RP ADDR

[ENDCOD)

neaq (OP

SCC or

OP _END))

((.RP_ADDR [C_FLGS) and CF MASK) neq CF MASK)

then

begi n
C ERR
i§

TBL

CTLR

‘DRIVER
CHAR’

RETURN PACKET

DROP CONTROLLER

();

begin

IS FROM

IN SET

"ERROR

RELEASE

return FAILURE;
end

[.CCTLR,

ERR HRD)

.C ERR

TBL

RETPXT

IS FROM DISK

IF WRONG ENDCOOE
OR FLAGS IN ERROR

[.CCTLR,

ERR HRD]

.APT_MQODE

then

begin

LMAIL _BOX_TESTNUM = 1;
.MAIL BOX_SUBTST = O;

end;

ERRDF (21, EGD_21,
DROP _CTLR (.CCTLR,

else

EMS_21);
DU_CFATAL);

PUT_RETPKT (.RP_INDX);
return FAILURE
;
end

begin
CMO_TIME
1

2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624
2625
262¢
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663

VULV VNUVNINUNINDOUNDLDLLUWDDDLLLDLUUKWAUWDUWLLLLLLLLLLMWL

ZRQAMS

BIT_TST

_RP ADDR

(SWP_FLAGS,

TIME)
SW

¢ 2;

FATAL

ERROR

DROP CONTROLLER
RELEASE

RETURN PACKET

RETPKT

HAS CORRECT

ENDCODE

RETPKT

HAS

ENDCOD*

TRC)

then

PRINTF
end;

(DBM2S,

.RP ADDR

[(C_TIME
]);
CORRECT

MSCP

CONTROLLER

page

(12)

J6
ZRQAMS

RDO/RX EXERCISER

INITIALIZATION

WHWNED

2670
2671
2672

2665
2667
2668

®0

®¢

vol.6

TEST ROUTINES

Apr

1984

end;

.SBTTL
SET.CTLR.CHAR::
MOV
MOV

0000006

CLRB

MOV
MOV

000126
0000006
0000056

000377

1%:

JSR
CLRB
CLR

MOve

112760
012760
105060
010116
004737
005700
001036
013700
006300
105260
032737
001162
001405
012777
000001
001164’
005077
001166
104455
000024
000000G
000000
010116
004737
0000006

MOvVB

)
P
. USE(RO
9377,R

R1,(SP)
0106, -(SP)

INCB
8IT
BEQ

MOV

CLR

TRAP

. WORD
. WORD
. WORD

MOV

JSR

WAS

SENT Br

DISK MSCP

DISKS$USERZ:
[POWERS )ZRQADO.BL2;: 6

RETPKT

SEND WAS SUCCESSFWL

ROUTINE

SET

SEQ 028 1

Page

50
(12)

CTLR CHAR

TEST ROUTINES

2559
2578
2579

COUNT

s ,e(COUNT;
COUNT
,o
COUNT

2580
2581
2580
2583
2586

. INDEX
e,P
s
P.INDEX,

2587

P . INDEX,
o

2588
2589
2590
2592

04 MSCP PKT.22(RO)

MSCP .PKT+4(RO)
R1,(SP)
PC,SEND

ASL

v4.0 579

PC.BL ML
€40 ,MSCP .PKT+6(R0O)

CLRB

TSY
BNE
MOV

Blies-16

100Q.0uTY
100Q. IN
R1,(SP)

8120 ,MSCP .PKT +30(RO)

JSR

2s:

CST+S(RO)

MOV

INITIALIZATION

PC,.GET
. PKT
RO,R1

JSR

11:08:22

VAX

R1, (SP)
@12¢, (SP)
PC,BL $MUL

JSR

MOV

11:08:35

R1, (SP)
CCTLR,R1
QIO(RL)

RC
RO, &7
18

MOV
MOV
MOV

00000606
0000226
0000306

SET.CTLR.CHAR

INC
cMP
BLE
CLR
CLR

MOV

010116
012746

000206
000210

1984

PUT _RETPKT ( .RP_INDX);
return SUCCESS,
end;

010116
004737
010001

004737
012760

Apr

end;

010146

013701
105061
010146
012746
004737
105060
005000
112760
005200
020027
003771
005037
005037

RO
3

2595

CCTLR,RO

C.ERR,TBL (RO)

259°

€1,APT
. MODE

o8
@1, 3MAIL .BOX. TESTNUM
AMATIL .B0x,5UBTST
55
24
€GD.20
0
R1,(SP)
PC,PUT

PKT

2601
2004

s
P.INDEX,

I<6
RDO/Rx EXERCISER

ZRQAAMX
vOl.6
000214
000220
000224

000230
000232
000234

000236
000242
000246
000252
000254
000260
000264
000270
000274
000302
000304
000310
000314
000316
000322
000324
000332
000334
000336
000340
000346
000350
000354
000356
000360
000362
000366
000372
000374
000376
000402

000406
000412
000414
000422

000424
000430
000434
000440
000442
000446
000450
000454
000462
000464
000472
000475

11
11

INITIALIZATION TEST ROUTINES
013716
012746
004737
005726
005000
000571
004737
004737
010037
010016
012746
004737
062700
010037
132760
001404
013716

004737
005726
013701
005000
126127
001002
005200
000407
132761
001333
105761
100330
006000
103015

11:08:35
11:08:22

DISKSUSER? : [POWERS )ZRQADO.BL2; 6

SEQ 0282
Page
S1
(12)

(SP).

2594

:
H

26l4
2615

13¢

RP ., INDX,(SP)
PC.PUT .RETPKT

000003

000360

000002

:
3

2613
2623

2624

2625

267

oDBM23,(SP)

2630

SP.RO
17
RP. INDX,(SP)
PC.PUT RETPKT

;

01,

000204

74:

000022
177657
000120
8s:

BEQ

MOV
ASL

INCB
BIT
BEQ

000000G
000001
001162°

MOV

001164
98

CLR

TRAP

SP,s

2631

263¢

2639

CCTLR,RO
RO

2042

21 .APT _MODE
9s
o1 ,3MAIL
.BOX, TESTNUM
ggAIL.BOX.SUBTST

ondd

Jod T

14(R1),6204

MOV

000000G

(SP)

PC.DR.ERR
10

BNE

2616

2620

34
14(R1)
3s
RO

6$:

RP_INDX,o

RP .ADDR,R1
RO
3(R1),03
S
RO
63
#360,2(R1)

000014

;

2610

268

(SP)s

as:

0000006

000001
001166

v4 .0 S79

2606

0000006
000000G

000014

000054
0000006
000000G
0000006
000002
000360

0000006
0000006
000000V

Bliss

CCTLR,(SP)
06, -(SP)

PC,WAIT
PC,OUT.I0DG
RO ,RP
. INDX
RO,(SP)
254, (SP)
PC,BL $MUL
QRETPKT ,RO
RO ,RP,ADDR
4360,2(R0O)

013716
004737
004737
000447
126127
001007

VAX-11

PC,DROP.CTLR

0000006
0000006
0000006

0000006
000001

016100
042700
020027
001437
013700
006300
105260
032737
001405
012777
005077
104455

1984
1984

012716
012746
010600

104417

MOV

0000006
000006
0000006

Apr
Apr

8¢

22(R1),RO

:
:

2633
2638

0177657,R0O
RO,2120

118

C.ERR, TBL(RO)

:
:

Jnd8
Jo51

| ¢
ZRQAME
vol.6

000500
000502
000504
000506
000512
000516
000522
000526
000532
000536
000540
000546
000552
000560
000562
000566
000572
000576
000600
000602

000604
000610
000614
000620
000624
000626
000630
000632

:
:

RO/Rx

EXERCISER

INITIALIZATION
000025
0000006
000000G
013716
012746
004737
013716
004737
062706
000010
000433
016137
006337
032737
001411
016116
012746
012746
010600

104417
022626
013716
00473/
012700
062706

000401
005000
012601
000207

Routine Size:
Maximum stack

TEST

11
11

ROUTINES

. WORD
.WORD
. WORD

25
EGD.21
EMS.21
CCTLR,(SP)
96, (SP)

MOV
MOV

JSR

0000006

11$:

JSR

ADD

B8R

MOV
ASL

13¢:

MOV
ADD

144

15%:

206 words,
Rout ine Base:
depth per invocation:
8 words

@1,S5WP
. FLAGS

2660

2662

02,

15%

MOV
RTS

$CODE¢

(SP)

SP,RO
17
(SP)e,(SP).

B8R
CLR

(SP)s,R1

S¢

(12)

2654
2641
2658

RP . INDX,(SP)
PC,PUT RETPKT
¢1,RO
#6,SP

000001
000006

028%

Pege

'
H
:

Q0BM2S, -(SP)

JSR

DISKSUSERZ: [POWERS JZRQADO.BL2;: 4

3EQ

14%
24(R1),CMO.
TIME

124

CMP

MOV

16 v4,0 579

2653

24(R1),(SP)

12%:

]

VAX-11 Bliss

MOV
MOV
MOV
MOV
TRAP

000000G

11:08:35
11:08:22

2652

CMD. TIME

BIT
8EQ

V000006

1984
1984

PC,DROP.CTLR
RP ., INDX,(SP)
PC,PUT
. RETPKT
@10,SP

MOV

10$:

Apr
Apr

4170

§
$

H
H
:

Spo.

2668
2610

2592
2570

2559

M6
RO/Rx

2673
2674
2675
2676
2677
2678
2679

2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697
2698
2699
2700
2701

2702
2703

2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714

2715
2716
2717
2718
2719
2720
2721
2722
2723
2724
2725

EXERCISER

INITIALIZATION

DWNOLDLLLDDDDODWWUWN
WWWWGLIWWWLIN NN
NN NN NN R N o -0 10 b =t 4t 4t 1t gt 10 pb ot Pt 4t pot

B¢

V¢

G¢

OG0

ZRQAM3S
vOol.6

routine UNIT

11-Apr-1984

TEST ROUTINES

INIT

novelue

Apr-1984

11:08:35

VAX-11

11:08:22

Bliss-16

v4,0

DISKSUSERZ:
[POWERS JZRQADO.BL2;:6

THIS ROUTINE

IS CALLED FROM DRIVER_INIT

MESSAGE,

TO VERIFY

FOR EACH CONFIGURED UNIT

(DISK) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED
INITIALIZATION. ITS PURPOSE IS TO FORMAT AND SEND AN “ONLINE"
IMPLICIT

AND

THE RESPONSE.

INPUTS:
CCTLR
CURRENT CONTROLLER NUMBER
CDISK - CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
LSLUN

CST_ADDR

beg'n
locsal

MAXO_LBNS
MAX1 _LBNS

:
:

CURRENT

(DRS) UNIT

NUMBER

ADDRESS OF CURRENT CONTROLLER'S CST

WORD UNSIGNED,
WORD UNSIGNED;

!
!

UNIT'S
UNIT'S

’

GET AN MSCP PACKET
PACKET SIZE

P_INDEX = GET_PKT (.CCTLR);
MSCP _PKT [.P_INDEX, MSGLEN)

ONL;

MSCP _PKT

.CDISK;

[.P_INDEX,

MSCP_PKT [ .P_INDEX,
MSCP _PKY ([ .P_INDEX,
MSCP_PKT [.P_INDEX,
if

SEND

(.P_INDEX)

OK_NUM]

OPCODE] = OP_ONL;
ODPAR) = BITOO;
CMD_TYPE] = SEQ_CMD;
eql

FAILURE

MAXIMUM LO
MAXIMUM HI

WORD
WORD

LBN
LBN

SET DISK ADDRESS (RD/RX DISK NUMBER)

!
!
!

OPCODE FOR "ONLINE'
SHOW ALL ECC ERRORS
SEQUENTIAL COMMAND

IN ERROR L 0OG MESSAGES

ATTEMPT

CTLR

SEND;

OFFLINE

then

begin

T_ADDR

(ERR_HRD_HST]

CST_ADOR
ERRDF

[

(22,

.CUOFF,

EGD_22,

DUR [.LSLUN]

_T_ADDR

D FATAL]
0);

(ERR HRD HST]

TRUE;

= DU_ONLINE;

else

RETURN PACKET

(.P_INDEX);

begin
do

FATAL ERROR
SETUP REASON
DROP UNIT

DODU (.LSLUN);

PUT _PKT
end

OTHERWISE

TO DROP UNIT
TO POOL

(SEND WAS

SUCCESSFWL)

begin

WAIT ();
RP_INDX =
RP ADDR =
if

QUT_IO00Q
RETPKT +

.RP_ADDR

();
(.RP

[MESTYP)

INDX

neq MT

&
SEQ

' WAIT FOR RETPKT RESPONSE
' GET INDEX OF RETPKT
LEN e 2);
! CALCUWATE RETPKT
!

then

PUT
end

until

RETPKT

(.RP

INDX);

(.RP ADDR [CONID) eql CID DRIVER) or
((.RP ADDR [MESTYP) eql MT SEQ) and

RETURN

ALL

RETPKTS

579

NOT

ADDRESS

SENT

B8y

CONTROLLER

SEQ 0284

Page

(13)

2726

2727
2728
2729
2730
2731
2732
2733
2734
2735
2736
2737
2738
2739
2740
2741
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753

RD/RX

B¢

®0

2754
2755
2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766
2767
2768
2769
2770
c??1
2772
2773
2774
IF LBNs
L STED
2775
2776
10 LARGE FOR
2777
€
2778
6
wll error
=
@6

EXERCISER

INITIALIZATION TEST ROUTINES
O\U‘HU‘U‘U‘U‘O‘O‘O‘O‘U‘OU‘U‘UU‘U’bU‘lU‘U'U'U'U'U'bbbhbbubbhbbbbu.umbbb.mmum

B¢

V¢

ZRQAM3
vo1.6

((.RP_ADDR
if

.RP_ADDR

then

[ENDCOD)

[CONID)

eql

VAX-11

11 Apr

11:08:22

DISKSUSER?Z: [POWERS JZRQADO.BL2;6

and OP END) eql

CID DRIVER

¢t

v4.0

579

(13)

OP_END));
IF RETPKT

IS FROM

“DRIVER"

begin

PRINTF

(DBM26);

OR_ERR ();

else

11:08:35

1984

Bliss-16

SEQ 0285
Page

11-Apr-1984

end

.RP_ADDR

[ENDCOD]

neq (OP_ONL

“ERROR

DROP CONTROLLER

OP _END)

IN UNIT

INIT"

RETPKT

IS FROM DISK

MSCP

then

XDDR (ERR_HRD _DRV) = ,T_ADDR [ERR_HRD_DRV] + 1;

ST _ADDR [.CUOFF, D FATAL] =
ERRDF (23, EGD 23 EMS _21);
ODUR [. LSLUN] = DU_ONLINE
;
ODODU (.LSLUN);

else

end

begin
ST_CODE

=
=

SB CODE

_RP_ADDR
.RP_ADDR

if .ST_CODE
then
begin

IRUE
! FATAL ERROR
! SETUP REASON TO DROP UNIT
! DROP UNIT

[STSCOD};
(SuBCOD):;

!
!

RETPKT HAS GOOD ENDCODE
GET STATUS CODE

neq ST_SUC

GET

suB-CODE

STATUS

CODE

IS NOT

SUCCESSFUL

T Xooa (ERR_HRD_DRV) = .T_ADDR [ERR_HRD DRV]) + 1;

CST_ADDR [.CUOFF, D_FATAL] = TRUE;

ERRDF (15, EGD_15, EMS_30);
DUR [.LSLUN] = DU_ONLINE;
O0ODU (.LSLUN);
else

!
!
!

ONLINE FAILED
SET UP REASON FOR DROPPING UNIT
DROP UNIT

SUCCESFUL

end

beg'n
MAXO _LBNS
MAX1_LBNS
if

_RP_ADDR
_RP_ADDR

(.MAXO_LBNS eql

then

else

=
=

OPERATION

[SIZEO];
(SIZE1l]:

'
'

begin

LOAD LOWER WORD OF
LOAD UPPER WORD OF

UNIT
UNIT

SIZE
SIZE

THIS

FROM

THE

BECAUSE

MA¥O_LBNS
MAX1 _LBNS
end

=
=

#0'177777';
.MAX1 LBNS

MAXO

_MAXO

LBNS

[.CUOFF

LBNS

(.CST_ADDR

(C.CST _ADOR
(.CST ADDR

(.CUOFF
[.CUOFF

« 2,
+

D_BEG1)

gtru

D BEGl]) eqlu

.MAX1

LBNS)

SUBTRACTS

THROUGH

.MAX1 LBNS) and

D BEGO] gtru ( .MAXO LBNS

1))

note

ONE

EVERYTHING STARTS AT
(MAXIMUM

THIS

IN SOF TWARE

SECTION CHECKS

DEVICF

less

TOTAL

SEE

QUESTION- WERE

SPECIFIED

then max.

or d agnost’

2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829
2830
2831

NI~ VNVNUNGRT VWO RNNANGION

thenr

11
11

Apr-1984
Apr 1984

11:08:35
11:08:22

CST
ADDR [ .CUOFF
CST ADDR ( .CUOFF

end;

V) BEG1])

1, D.BEGO)

SEQ 0286

VAX 11 Blies 16 v4.0 579
OISKS$USERZ:
(POWERS JZRQADO.BLZ2; 6

beg'n

- O,

- 0,

operstor error

change beginning

and end.ng

lbn

to O

to mar

lbn

55
13

(.CST ADDR (.CUOFF

+ 4,

D_END1) gtru

.MAX1 LBNS) or

(C.CST ADDR [ .CUOFF . 4, D END1] eqlu .MAX1 LBNS) and
(.CST ADDR ([ .CUOFF ¢« 3, D ENDO) gtru .MAXO LBNS))

then
beg'n

CST
CST

end,;

ADDR
ADDR

[.CUOFF
[ .CUOFF

.
+

4,
3,

D_END1)
D ENDO]

*
«

.MAX] LBNS;
_MAXO LBNS;

(((.ENTRY _REASON eql RESTART) or
( .ENTRY _REASON eql START)) and
(.CRN LOw lea 8) ang
(.CRN MIGHM eql O))

THEN

bov?n

BST
BST

2801
280>
21303
2804
2805
2806
2807
2808

PRIV

...O.....o.'.'..'.“.o.!...o.l““...o.o.o.o.oz......“ll.o.-..fl“flfifl-““fl“".’----fl-“fl“.

RD/Rx EXERCISER
INITIALIZATION TEST ROUTINES

LO WRD ]
H] WRD)

[.LSLUN,
{.LSLUN,

TRK SGN [ .LSLUN])

.CST ADDR (.CUOFF
.CST ADDR [.CUOFF

.
.

H
'

!
H

ond
firet

intialize block

numbers

O BEGO);
0 _BEG1);

LOAD sequent
. al LBN

1,
2,

end;
[]

selectoneu

=TM

0OOR

[R MODEL) of

lbn

H
[]

restart

i continue

init

alization

! POSITIVE TRACKING DIRECTIO

THIS SECTION LOADS TYPE INTO
MOOEL BYTE TELLS WHAT TYPE OF
INOENTIFICATION BLOCK

(ST TABLE
'INIT IN

set

(80 6 ) :
(w0 7 ]
(w0 10°} :

CST ADDR (.CUOFF, D TYPE)
CS? ADDR (.CUOFF, D TYPE]
CHT ADDR [ .CLuOFF, D TYPE)

(otherwise)]

BEGIN
ERRDF

END;

(25

,EGD 24

.EMS

= RD_S1;
« RX_50;
= RD 52,
30);

!
!
!

RO S1
Rx 50
RD S2

ERROR UNKNOWN DEVICE

STATUS COOE

!
!

WRITE PROTECT CONFLICT
SET REASON 10O DROWP ' NIT

tes;

(C.RP ADDR
(.CST ADDR

then

(U FLGS) end UF _WPH) eaql UF WPH) and
[.CUOFF, D PROT) eal UNPROTECTED)

IS O.K.

beg'n

T gDDR (ERR _HRD DRV) » . T ADDR (ERR MRD DRV) + 1,

CST

ADDR

[ .CUOFF,

D FATAL)

ERRDOF (16, EGD 16, EMS 30),;
DUR [.1 $LUN) = DU PROTECT,;

table

TRUE;

C/
RD/RXx

=N WNRNINCOOT
N

2832
JAa3s
2834
2835
2836
2837
2838
28%9
2840
2841
2842

2843
2844
2845

000012
000016
000022
000024
000030
000034
000042
000050
000056
000064
000072
000076

000102
000104
000106
000112
000116
000122
000124
000130
000134
000136
000140
000142
000144
00010
000156
000160
000164
000170
000174
000200

EXERCISER

11
11

INITIALIZATION TEST ROUTINES

B¢

JRQAMS
vel.6

else

1984
1984

DROP UNIT

beg

!
!
!

WRITE PROTECT SWITCH I5 O.K,
SET ONLINE FLAG
ADD UNIT TO CTRL TABLE

' n

end;

(.RP

INDX);

end;
end;

.SBTTL
UNIT.INIT:
JSR
o
oy

024646
013746
004737
010037
010016
012746
004737
012760
013760
112760
012760
112760
013716

5EQ 0287
Pege
56

end;
RETPKT

VAX 11 Bliss-16 v4,0 579
DISKSUSERZ:
[POWERS JZRQADO.BL2;: %

end

end;

PUT

11:08:35
11:08:22

DODU (.LSLUN);,;

CST_ADOR ([ .CUOFF, D STAT) e ONLINE;
CST [.CCTLR, UCN1) - .CST [.CCTLR,

004137

U CNT]

RETPKT HAS CORRECT

SEND WAS SUCCESSFUL

ROUTINE

UNIT,INIT

UNIT

INIT

INITIALIZATION

TEST

ROUTINES

R1,8SAVES

-(SP),
CCTLR,

2673

(sP)
(SP)

RO, (SP)
0106, -(SP)

PC.BLIMA

#44 ,MSCP .PKT.6(RO)

0000166
0000226
00004606
0000046

COISK ,MSCP .PKT.16(RO)
011 ,MSCP.PKT.22(RO)
€1 ,MSCP .PKT+46(RO)
01,MSCP.PKT.4(RO)

P, INDEX,(SP)
PC,SEND
RO

18
T.ADDR,RO
S1(RO)

0000006
000051

CUOFF ,RO

000000G
010000

CST,.ADDR,RO
210000,(RO)

55
26
£GD.22
0000006
000007

0
LSLUN,RO
07,0UR(RO)

006330’
000000G
0000006

P.INDEX,(SP)
PC,PUT PKT
244
PC.WAIT
PC,0
. I00Q
uT

18:

ENDCODE

2693

PC.GET ,PKT
RO,P. INDE x

004737

005700
001033
013700
105260
013700
006300
063700
052710
104455
000026
000000G
000000
013700
112760
104451
013716
004737
000137
004737
004737

Apr
Apr

P.INDEX,s

2694

D/
ZRQAME
vOl.6

000204
000210
000212
000216
000222
000226
000232
000240
000242
000246
000252
000254
000260
000262
000270
000272
000274
000276
000304
000306
000312
000314
0092316
000320
000324
000330
000332
000334
000340
000344
000350
000356
000362
000366
000374
000376
000402

000406
000414

000416
000420
000422
000424
000430
000436
000440
000442
000450
000456
000462
000464
000466
000470

RD/Rx EXERCISER

11
11

INITIALIZATION TEST ROUTINES

010037
010016
012746
004737
062700
010037
132760
001404
013716
004737
005726
013702
005000
126227
001002
005200
000407
132762
001333
105762
100330
103012
012716
012746
010600
104417
004737
000137
013705
013766

060566
126227
001422
013700
105260
052776
104455
000027
013700
112760
104451
000445
116237
042737

016200
006200
006200
006200
006200

Apr
Apr

RO ,RP
. INDY

000360

000002

2%:

0000006

000003

RO, (SP)
054, (5P)
PC,.BLIMA
ORETPKT,RO
RO,RP,ADDR
0360,2(R0O)
2$
RP, INDX,(SP)
PC,PUT RETPKT
(SP)»

1984
1984

11:08:35
11:08:°22

VAX 11 Bliss 16 V4.0 579

OISKS
[POWFRS
$USER
1ZRQADO.BL2
Z:
;6
1

RP_INOX,e

(13%)

2717

2719
272l

2714

RP_ ADDR,R2
RO

000003

0288
3Ea, oge
S7

2724

3(R2),03
33

RO
41

000360

000002

0360,2(R2)

000014

2726

2728

St
o0BM26,(SP)
o1, (SP)
SP,RO
17

0000006
000001

000000V
006316
000000G
000000G 000006
000006
000006
000014
000211

14(R2)
1

PC,OR.ERR

228

CST.ADDR,RS
CUOFF ,6(SP)

Ss:

64
T.ADDR,RO

SO(RO)

TRAP

SP,e

2732
27%0
2740

0000006
000007
0000006

MOVB
TRAP

6%:

B8R

MOvB

8IC

MOV
ASR
ASR
ASR
ASR

2736

2739

410000,€E(SP)

2740

LSLUN,RO

2°42

2743

16(R2),S5T.CO0E

2"‘

.WORD

0000006
000000G

2731

6(SP)

RS,6(SP)
14(R2), 0211

0000006
000050
010000
000006

000016
177740
000016

2725

97,0UR(RO)
73

2741

2736

0177740,S7,.C0ODE

16(R2),RO

RO
RO
RO
RO

2748

B/
ZRQAMX
v01.6
000472
000474
000500
000504
000510
000512
000516
000522
000530
000532
000534
000536
000540
000544
000552
000554
000560
000564
000570
000572
000574

RD/RXx

INITIALIZATION
006200
042790
010037
005737
001423

013700
105260

052776

104455
000017
013700
112760
104451
000137
016203
016204
005703
001004
012703
005304
000401
005303
013700
006300
060500

011766
060066
027604
101012
001021
013700
006300
060500
010301
005301
026001
101410
005076
013700
006300
060500

005060

000726

EXERCISER

013700
006300
060500
026004
101010
001017
013701
006301
060501

11
11

TEST ROUTINES
ASR

174000

8IC

0000006
0000006

MOV

1ST

BEQ

MOV

0000006
000050
01000C
000006

INCB
8IS

TRAP

. WORD
.WORD
. WORD

MOV
MOVB
TRAP

0000006
000007
000000G

006320’
000044
000046

7%:
8s:

JMP

MOV
MOV
TST

BNE

177777

MOV

OEC

000000G

10$:

OEC
MOV

ASL
ADD
MOV
ADD

BHI
BNE
MOV
ASL

ADD

MOV

DEC
cHP

000002

0000006

000002
0000006

000010

0000006

118:

12%:

8LOS
CLR
MOV

VAX-11 Bliss 16 v4.0 579
DISK$USERZ:
[POWERS )ZRQADO.BL2;: 6

ST.CODE

SEQ 0289
P

ege

(13)

2750

2753

SO(RO)

910000,86(SP)
55
17
EGD.15
EMS. 30
LSLUN,RO

2754

51
23

2757
2750

2755

2756

07 ,0UR(RO)

44(R2),R3

¢ ,MAXO,LBNS
¢ ,MAX1.LBNS

R3
9
2-1,R3
R4

MAXO,LBNS

46(R2)
R4

108

¢ ,MAXO,LBNS

MAX1.LBNS
MAXO.LBNS

2762

2763
2765

2768
2763
2765
2772
2774

RS,RO

(PC),4(SP)

RO,4(SP)

84(SP),R4
118

s ,MAX1.LBNS

2776

128

CUOFF ,RO

RO
R5,RO
R3,R1
Ri

2777

MAXO.LBNS,
»

2(R0O),R1
12$
84(SP)
CUGFF ,RO

MOV
ASL
ADD

RO
RS,RO

MOV
ASL
ADD

11:08:35
11:08:2°2

8s
T.ADOR,RO

RO
RS,RO

CMP
BHI
BNE

1984
1984

RO
2174000,R0
RO,S58.C00E

ASL
ADD

CLR

Apr
Apr

2(RO)
CUOFF ,RO

10(RO) ,R4
13$
148

CUOFF ,R1

R1
RS,R1

e ,MAX1.LBNS
o o38
2789

7
RO/RX

ZRQAM3
v01.6
000730
000734
000736
000742
000746
000750
000752
000756
000764
000766
000774
000776
001004
001006
001012
001014
001020
001022
001024
001026
001032
001034
001036
001044
0010S2
001060
001062
001066
001072
001074
001100
001102
001104
001110
001112
001116
001120
001124
001126
001132

001134
001136

001142

001144
001146
001150
001152
001154
001162
001164
001170
001172
001174

EXERCISER

INITIALIZATION
026103
101410
010460
013700
006300
060500
010360
123727
001404
123727
001031
023727
003025
005737
001022
013704
010400
006300
006300
013701
006301
060501
016160
017660
112764
005001
156201
020127
001007
013700
006300
060500
152710

000421
020127
001403
020127
001007
013700
006300
060500

142710

000404

104455

138

000006
0000006 000002

060500

005710

:
14

000000G 000001

0000006 000010

15¢:

0000006

000002
000001

0000006
0000026

000032
000006

000007

cHP
B8LOS

MOV
MOV
ASL
ADD
MOV

cHPB
8EQ
CMPB

cHp
8GY
TST
BNE

16%:

000010
18%:

000020

20$:

144
R4,10(R0O)

CUOFF RO

RO
RS,.RO

R3,6(RO)
ENTRY ,REASON, &2

15%
ENTRY ,REASON, @1
16¢
CRN.LOW, 010
164
CRN.HIGH

16
LSLUN,RS
R4 ,RO

MOVE
CLR
8I1s8
CMP
BNE

84(SP),BST+2(RO)
@1, TRK,SGN(R4)
R1
32(R2),R1
R1,06
173

BIsB
BR
cHP
8EQ

BNE

MOV
ASL
ADD

8ICB

19%;

6(R1),R3

R1
R5,R1

MOV
ASL
ADD

178

Apr-1984
Apr 1984

MOV
MOV
ASL
ASL
MOV
ASL
ADD

MOV

000020

000031
0000006
0000006
032762
020000
000022
001430
013700
0000006

006300

TEST ROUTINES

000006

000010
0000006

11
11

TRAP

. WORD
.WORD
. WORD
BIT
BEQ
MOV
ASL
ADD
ST

11:08:35
11:08:2°2

VAX-11

Bliss-16

V4.0-579

DISKS$USERZ: (POWERS JZRQADO.BL2;:6
;

*,MAX0.LBNS

MAX1,LBNS,

3EQ_029

Per:

(13)

2792

2793

MAXO,.LBNS,

2798

2799

;

2801

2802

2806

RO
RO

CUOFF ,R1
2(R1),B8ST(RO)

H
:
H

2807
2808
2811

2815

2811

2817

H
H

2811
2820

2824

Q825

CUOFF RO

RO
RS,RO
920, (RO)

20%

R1,07

18$

R1,010

19¢
CUOFF ,RO

2816

RO
RS,RO
020,(RO)

208
55
31
£GD.24
EMS. 30
020000,22(R2)

G/
RO/RX EXERCISER
INITIALIZATION TEST

ZRQAM3

vol.6

001176
0012C0
001204
001210
001216
001220
001222
001224
001226
001232
001240
001242
001244
001252
001256
001262
001266
001272
001274
001300
001304
001310

;
;

100022
013790

105260

052776
104455
000020
0000006
0000006
013700
112760
104451
000414
052776
013716
012746
004737
105260
005726
013716
004737
062706
000207

ROUTINES
8PL
MOV

000000G
000050
010000
000006

0000006
000000G
000010

Apr-1984
Apr 1984

Page

(13)

2829

2831

:
H
:
:

2832
2824
2836
2837

2835

2842

2673

2126, -(SP)
PC.BLSMUL

JSR
INCB

CST+S5(RO)
(SP).

RP ., INDX,(SP)
PC,PUT RETPKT
210,SP
PC

JSR

$
$CODE
Routine Size:
357 words,
Rout ine Base:
Maximum stack depth per invocation:
13 words

SEQ 0291

910000,86(SP)

S1
23
020000, 86(SP)
CCTLR,(SP)

MOV
MOV

ADD
RTS

579

2828

011,0UR(RO)

B8R
8IS

243

v4.0

DISKSUSERZ:
[POWERS JZRQADO.BLR2: 6

MOV
MOVB
TRAP

TST
MOV

Bliss-16

.WORD
. WORD
. WORD

22$:
23$:

VAX-11

T.ADOR,RO

SO(RO)

TRAP

2ls:

11:08:35
11:08:22

INCB
8IS

000000G
000011
0000006

000006
020000
000000G
000126
0000006
0000056

11
11

5024

2830

-7
ZRQAMSZ

RO/Rx EXERCISER

INITIALIZATION

000000
000002
000006
000012
000016
000022
000026
000030
000034
000036
000042
000044
000046

;:
;:

010146
012701
013700
116000
042700
020027
001006
013746
010146
004737
022626
012601
000207

ROUTINES

routine DR_ERR

novalue

1984
1984

11:08:35
11:08:22

VAX-11 Blises 16 v4,0 579
DISK$USERZ2:
[POWERS )ZRQADO.BLZ2 ;6

56Q_0292

Page

sl
4

(14)

THIS ROUTINE
THE “DRIVER”

YNy

NT
)

GLOBAL

TEST

Apr
Apr

IS DESIGNED
RATHER THAN

TO PROCESS RETURN PACKETS THMAT ORIGINATE AT
THE DEVICE. DRIVER-ORIGINATED PACKETS INDICATE

EITHER A FATAL DEVICE ERROR OR A COMMAND TIMEOUT. SINCE THIS ROUTINE IS
ONLY CALLED DURING THE INITIALIZATION TEST, IT TREATS A COMMAND TIMEOQUT
AN

INITIALIZATION ERROR.

RT XL

IMPLICIT

INPUTS:

ADDR

ADDRESS

(I.E.,

A RETPKT

CONNECTION

THAT

ORIGINATED

THE

CID_DRIVER)

"DRIVER"

) 90 =t 1o 10 1= 1o Pt 1o b=t b o B0 =0 e

2846
o847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860
2861
2862
2863
2864
2805
2866
2867
2868
2869

=00 NN N PU NI D N

B¢

®s

vOl.6

11
11

beg'n
local

REASON

_RP_ADDR

word

‘nitial

(MESTYP)

eql

(DU_TIME);
MT

FATAL

then

DROP CTLR
end;

000012
0000006

(. CCTLR,

.REASON);:

.SBTTL
DR.ERR: MOV

DR.ERR

MOV

DROP ALL UNITS ON CONTROLLER

INITIALIZATION

CCTLR,

(SP)

JSR

R1, (SP)
PC,DROP.CTLR

MOV
RTS

cMP

$CODES

TEST

ROUTINES

: o REASON

2846
28£0

2865

0177417,R0

RO, 060
13

MOV
MOV

Routine Size:
Rout ine Base:
20 words,
Maximum stack depth per invocation:
4 words

IF FATAL DEVICE ERROR

2(RO),RO

8IC
cHP
BNE

18:

RP.ADDR,RO

MOVB

177417

ASSUME COMMAND TIMEOUT

e12,R1

MOV

000060

(SP)+ ,(SP)»
(SP)+,R1

6336

: REASON,¢

2368

2846

[/
ZRQAMSZ

RO/RX EXERCISER

vOol.6

INITIALIZATION TEST ROUTINES

3
:
H
:
:
:
:

2870
o871
2872
287y
2874
2875
gg76

1
1
1
1

:
H

2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2838
28
2891
2892

1
1
1
1
1
1
2
2
2
2
2
2
2
2
2

:
:

H
:
3
:
3
:
:
:

:
:
:
:
:
:

1
1

2893
2894
2895
2896

H
:
H

2898
2899
2900

3
3
3

gggg

2904
2905
2906

3
3
4

:
:
:

H
:
:

2
2
2
3

HE
'
'
'
!
!
!
H
!
H

IMPLICIT

2912
2913
2914

H
H

2916
gg%;

S
g

2919
2920
2921
2922

S
S
S
S

291S S

11:08:22

DISKS$USER?2: [POWERS JZRQADO.BL2 ;6

INPUTS:
CCTLR
CURRENT CONTROLLER NUMBER
CDISK
LSLUN

CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT (DRS) UNIT NUMBER

begin
local

RESULT : word initial (FAILURE),
LBN : word,
PASS : word initial (1);

ST CODE = SB CODE
LBN = (((.MAX_LBN
do

= 0;
[.LSLUN]

MSCP _PKT [ .P INOEX. LBN L)

2907
2908
2909
2910
2911

1984

THIS ROUTINE IS CALLED BY INIT_TEST TO VERIFY THAT THE CURRENT DISK
CAN BE ACCESSED. THIS OBJUECTIVE IS ACCOMPLISHED BY FORMATTING AND
SENDING ONE OR TWO MSCP ACCESS COMMANDS TO THE DISK, AND CHECKING
THE STATUS FIELD OF THE RESPONSE MESSAGE(S).

2901

Apr

SEQ 0293

VAX 11 Bliss 16 V4.0 S79

: novalue -+

a4
4
4
3
4
4
4
S

H
:
H
H

rout ine ACCESS

2897 3

:
H
:
H
H
:
H
:

11 Apr-1984 11:08:35

HSCP PKT
MSCP_PKT
MSCP_PKT

[.P_INDEX,
[ .P_INDEX,
[ .P_INDEX,

DK_NUM]) = _CDISK;
OPCODE) = OP_ACC;
BC_LO) = S12;

MSCP_PKT

[

CMD_TYPE]

HA?T ();
RP INDX
RP _ADDR

LOOP PASS COUNT

.LBN;
=

LOOP

'
!
!

SET DISK ADDR (RD/RX DISK NUMBER)
ACCESS 0PCODE
BYTE COUNT (1 BLOCK)

if _RP ADDR [MESTIP) neq MT
then
PUT RETPKT (.RP INDX);

STARTS HERE

! LOGICAL BLOCK NUMBER

NON SEQ CHD;

= OUT_I0DQ ();
= RETPKT o+ (.RP INDX

([(X+1)/2)1

! GET AN MSCP PACKET

if SEND (.P_INDEX) eql FAILURE
then
begin
PUT _PKT (.P_INDEX);
PASS = 2,
end
else
begin
do

GUILTY UNTIL PROVEN INNOCENT

! STATUS CODE AND SUB CODE
1) and io 17777)
1;
START WITH LAST LBN ON TOP SURFACE:

¢+

?NDEX » GET PKT (,.CCTLR);
.P_INDEX,

NON SEQUENTIAL

ATTEMPT

TO SEND;

!
!

RETURN PACKET
NO MORE TRIES

COMMAND

CTLR NOT

ONL INE

TO POOL

SEND WAS SUCCESSFUL

! WAIT FOR RESPONSE

' GET RETPKT
o RP LEN ¢ 2);
SEQ

(RESPONSE) INDEX
' CALCULATE RETPKT

RETURN ALL RETPKTS NOT

SENT B8t

ADDRESS

CONTROLLER

Page

(15)

7
ZRQAMS
vol.6

2928

RD/RX EXERCISER
INITIALIZATION TEST

2924

ggg

2925

2928

293%
2934
293%

S
S
&

2941
gg:g

5
g

2940

2944
2945

:
:
:
:
:
H
H

2947
2948
2949
2950
2951
2952
2953

:
:
R

2946

ggg;

2956
2957
2958

[MESTYP)

(ENDCOD)

eql MT

SrQ)

and OP END)

and

eql

[ND));

PASS

NO MORE

=+ 2

PR?NTF (L3M29);

1222
else

2
3
3
3
3
3
3
2
2
1

004137

! RETPKT HAS BAD ENDCODE

EMSCMD ()
end

beg ' n

ST CODE
SB CODE
if .ST
then

=
=

.RP ADDR
.RP ADDR

CODE eql

! RETPKT HAS CORRECT ENOCOOF

(STSCOD});!
(SUBCOD!l;:;!

GET STATUS CODE FROM PACKET
GET SuUB CODE FROM PACKET

SUC

NO NEED

If RETPKT HAS CORRECT ENDCODE

*
!
*

ADVANCE TO FIRST LBN OF
SECOND PASS
END OF PASS LOOP

STATYUS CODE

INDICATES SUCCESS

begin

RESW
T = SUCCESS;
PASS = 2;
end;

end;
PUT RETPKT
end;

3
3
3

TRIES

if .RP ADDR (ENDCOD) neaq (OP ACC or OP END)
then
beg'n

2961

000000

IF RETPKTYT CAME FROM 'DRIVER'

else

6
6
S
S
4
4
&

2962
2963
2964
2965
2966
297
298
2969
2970
2971

H
H
:
H
:
:
:
B
:
H

VAX 11 Bliss 16 v4 .0 579
DISKSUSER?
: [POWERS JZRQADO.BLZ2;: 4

.RP ADCR (CONID) eql CID DRIVER

S
S

2959

2960

then

((.RP_ADDR

S
&
S

29%7
2938
2939

:
:

((.RP ADDR

4
&
4
4

293¢ S

H
:

11:08:35
11:08:22

end

1984
1984

2929
2930
2931
2932

H
H
3

ROUTINES

Apr
Apr

until (.RP ADDR (CONID]) eql CID DRIVER) or

3
H
3
3

:
]
:

11
11

LBN = LBN +
PASS = _PASS
end
until

.PASS geuu

.RESWLT

then

eql

( .RP

INOX);

1;
+ 1;

SEND WAS

TRY

AGAIN

SUCCESSFUL

BOTTOM SURFACE

FAILURE

"
T_ADDR (ERR _HRD DRv) = .7 ADDR [tRR HRD DRV] . 1;
CST_ADDR [.CUOFF, D FATAL) =« TRUE;
! FATAL ERROR
ERRDF (17, EGD 17, EMS 30);
! ACCESS FAILED
DUR [.LSLUN] = DU_ACCESS;
t SET REASON TO DROP UNIT
000U (.LSLUN);
! DROP UNIT
end;
* [F ACCESS FAILED

end;

000000G

ACCESS:

.SB81TL
JSR

ROUTINE

ACCESS

ACCESS INITIALIZATION TEST ROUTINE

R1,$SAVEQ

36Q 0294
(15,

ZRQAMS

RD/Rx

INITIALIZATION

vol.6

000104
000112
000120
000124
000132
000136
000142
000144
000140
000152
000156
0001€2
000164
000170
000174
000200
000202
000206
000212
000216
000222
000230
000232
000236
000242
000244

000250
000252
000260
000262
000264
000266
000274
000¢ 76

EXERCISER

005003
012:92
005037
005037
013700
006300
016000
060200
006200
010004
042704
005304
013746
0047%7
010037
010016
012746
004737
013760
112760
012760
010460
112760
013716
004737
005700
001007
013716
004737
012702
000522

004737
004737
010037
010016
012746
004737
062700
01003/

132760
001404
013716
004737
005726
013701
005000
126127
001002
005200
000407
132761
001333
105761

TEST

11
11

ROUTINES

CLR

000001
0000006
0000000
0000006

MOV

CLR
CLR

MOV
ASL

MOV
ADD

000054

ASR
MOv

100000
0000006

1s:

B8IC
DEC
MOV
JSR

000106

MOV
MOV
MOV

000000G 0000166
0000226
00002606

MOV
MOVB
MOV

0000046

HOVB

JSR

000360

JSR
JSR

8IT8
BEQ

000014

JSR
157
MOV

000002

4%:

(SP)

PC,GET
. PKT

. INDE x
RO,P
RO, (SP)
0106, (SP)

v4.0 579

o ,PASS

(15)

2R84
2891
2R

¢,LBN

¢,.LBN

;

LBN

P.INDEX,e

5EQ 0295
Page
%4

287
2898

PC,BLSMA

COISK ,MSCP.PKT.16(RO)
420 ,MSCP ,PKT+22(R0O)

#1000 ,MSCP.PKT.«26(RO)
R4 ,MSCP .PKT+46(RO)
92 ,MSCP
. PKT.4(RO)

PC,PUT PKT

94
PC.WAIT
PC,0uUT, 100Q
RO ,RP
, INDX
RO, (SP)
@54, (SP)
PC.BL $MUL
ORE TPKT RO
RO ,RP _ADDR
2360,2(R0O)

:
:

;

H
H

LBN,o

2901

2902
2904

2907
o, PASS

:
H
:
;s

2899
2900

2908

2904
2915
2916
RP_INDxX,
e

2917

2919

RP INDX,(SP)
PC,PUT RETPKT

291

(SP).

2914

e A

RP . ADDR,R1

CLR
CMPB

BNE
INC
B8R
8118
BNE

1518

RESWLT

;

ADD
MOV

000003

CCTLR,

Bliss

02,.R2

MOV

000003

RO
MAX ,LBN(RO),RO
R2,RO
RO
RO, R4
4100000,R4
R4

MOV
JSR

3s:

;

SB8.C00¢
ST.CODtE
LS$LUN,RO

DISKSUSERZ: [PNWFRS 1ZRQADO.BL2 ;5

P.INDEX,(SP)

MOV

000000G

R3
el,.R2

VAX

MOV

0000006
000360
000002

11:08:35
11:08:2°2

P.INOEX,(SP)
PC,SEND
RO

JSR

2%:

1984
1984

MOV

JSR
TST
BNE

000000G

Apr
Apr

2924

3(R1),83
RO
54
2360,2(R1)

2s
14.R1)

L/
ZRQAMS

RO/Rx

INITIALIZATION

v0l.6

000302
000304
000306
000X10
000316
000320
000324
000330
000332
000334
000336
000340
000346
000354
000360
000362
000364
000366

000370
000372
000376
000402
000406
000410
000414
000420
000424
000430
000432
0004 34
000436
000442
000444
000446
000450
000454
000460
000464
000466
000472
000476
000500
000502
000504
000506
000512
000520
000522

;

EXERCISER

100330
103442
126127

001410
012716
012746
010600
104417
005726
000430

016100
006200
006200
006200
006200
006200
042700
010037
005737
001004
012703
012702
013716
004737
005204
005202
022626
020227
103602
005703
001025
013700
105260
013700
006300
063700
052710
104455
000021
0000006
0000006
013700
112760
104451
000207

000016

Marimum stack

000220

177740

6%:

000001
000002
0000006
000000G

o08M29,(SP)
o1, (SP)
SP,RO
17
(SP).

1ST
B8R

MOvV8

MOV
MOV
MOV

JSR
INC
INC

ST.COOE

2944

(SP).,(SP)»

R2,03

108

MOV

T.ADDR,RO

INCB

SO(RO)
CUOFF ,RO

MOV
ASL
ADD

€10000, (RO)
SS
21
EGD.17
EMS. 30
L $SLUN,RO

TRAP

. WORD
. WORD
. WORD

MOV
MOVB
TRAP

#10,0UR(RO)

S1
PC

RTS

$CODE
$
170 words,
Rout ine Base:
depth per ‘nvocat
on:
10 words

s ,RESULT
s ,PASS

2947
2948
2953

LBN

2956

PASS,
»

2896
2959

RESWLT

2961

PASS

295°

2964

2965

CST.ADDR,RO

B81S

10¢:

2942

22 ,R2
RP.INDX,(SP)
PC.PUT RETPKT
R4
R2

BNE

0000006
000010
000000G

16(R1),RO

8s
21,R3

TST

0000006
010000

2941

RO
RO
RO
RO
RO
€174000,R0
RO, S8.CODE

cHP
CMP
8LO

000050

2935
2933

16(R1),ST.CODE

BNE

000003

SP,e

8IC

MOV
TST

9s:

(15)

2936

BIC

7$:
8s:

5eQ 0296

2928
2930
2933

14(R1), 0220

MOV
ASR
ASR
ASR
ASR
ASR

174000

VAX-11 Bliss 16 v4.0 579
DISKSUSERZ:
[POWERS )ZRQADO.BL2;: 6

MOV

000000G

11:08:35
11:08:22

MOV
MOV

000000G

Apr 1984
Apr-1984

RO
74

TRAP

000016

Routine Size:

BPL

ROR

B8LO
cMPB
BEQ

0000006
000001

116137

042737

TEST ROUTINES
S5%:

000014

11
11

6406

2966

2967
2968
2870

2972
2973
2974

2975
2976
2977
2978

2979
2980
2981

2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3004
3005
3006
3007
3008
3009
3010
3011
3012
3013
2014
3015
3016
3017
3018
3019
3020
3021
3022
3023
3024

RD/RX

EXERCISER

MULTI DRIVE
DADUVVNANVNDOUNDDLLLDLLEDLEDWWWNINNNINNNN
N NN - o o 10 0o 10 1=t -0 pub Pt st Pt Pt Pt pud =0 Pt b bt

©F

B¢

V¢

B¢

G¢

V¢

S0 O

ZRGAMX
vOl.6

TEST

11
11

ROUTINES

dsbttl

'MATI-ORIVE

GLOBAL

routine MUWLTI DRIVE

TEST

Apr-1984
Apr 1984

11:08:35
11:08:22

VAX-11 Bliss-16

SEQ 0297
Page
66

V4.0 579

DISK$USER2: (POWERS JZRGADO.BL2;6

(16)

ROUTINES'

novalue

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 INODICATION OF MOW ONE OR SEVERAL RDRX DRIVES WOULD PERFORM IN
AN OPERATING

SYSTEM ENVIRONMENT,

THIS ROUTINE

ACTS AS AN

“EXECUTIVE"”

THE

WHOLE

PROCESS.

AFTER

INVOKING MO _INIT TO INITIALIZE MU TI-DRIVE TEST DATA, THIS ROUTINE
ENTERS A LOOP WHICH ISSUES QIOs TO ALL ACTIVE CONTROLLERS AND PROCESSES
ANY

RESPONSES.

ADDITION,

ALL

OUTSTANDING

COMMANDS

ARE

TIMED

ORV_TIMCHK WHICH IS INVOKED EVERY SECOND. NORMAL TERMINATION OF THIS
LOOP OCCURS WHEN QIOs ARE NO LONGER BEING ISSUED, AND ALL OUTSTANDING
QIOS HAVE COMPLETED.
begin

local
CUR_PRIORITY

word;

label
SEND _COMMANDS ;
MO _INIT ();
INIT_OCCURED

begin
incr

START
CTLR

from O

(MAX_CTLR

SET _CPAR (.CTLR);
GETPRI (CUR_PRIORITY);
SETPRI (PRIO4);
ICTLR = .CCTLR;
ICST_ADOR = ,CST_ADDR;
IDCT_ADDR = ,DCT_ADDR;
IRDRX _ADDR = ,ICST_ADDR (IP ADDR];
IDCT_ADDR ([(SA_SAVE]) = ,IRDRX ADDR [RCSA,
if

BIT_TST

else

(IDCT_ADDR

be?in
FATAL _ERROR

[SA

SAVE]),

EXECUTIVE

LOOP

FOR EACH CONTROLLER

begin

then

TEST DATA

INIT MUWLTI DRIVE

TRUE;

SA_ERR)

SET
NO

RC ALL];

CURRENT

INTERRUPTS

CONTROLLER PARAMETERS
WHEN EXAMINING

INTERRUPTING

CONTROLLER'S

NUMBER

FAKE
FAKE
FAKE

INTERRUPTING
INTERRUPTING
INTERRUPTING

CONTROLLER S
CONTROLLER'S
CONTROLLER'S

CST ADDR
DCT ADOR
ADDRESS

CONTENTS OF
IF

THE

SA REGISTER

SHOWS AN ERROR

SETPRI (.CUR_PRIORITY);
exitloop:

DECLARE FATAL ERROR
LOWER PRIORITY
Qulr

SETPRI

();

end

(.CUR PRIORITY);

FAKE

NO ERROR,

CONTINUE

ZRQAMS

RO/RXx EXERCISER
MULTI-ORIVE TEST

3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077

MOV WEHWENWNWWDBVNUNININNNOOOOOOOOOUVIOVVVLNO
VLIV
D DD

v0l.6

ROQUTINES

QI0_OK

then

11 Apr
11-Apr

1984
1984

11:08:35
11:08:22

()

VAX-11

.
Bliss

v4,0

SEQ

579

DISKSUSER2: [POWERS JZRQADO.BL2;: 6
0.K.

ISSUE

QIO(S)

0298
Page

TO CONTROLLER

GENERATE

SUCCESS

ATTEMPT

.QIO [.CTLR]

INCR OUTSTANDING QIO COUNT

(.MX1);

RETURN PACKET

and

WAIT

ATTEMPT

'
!

NO SENSE IN COMPARING WRITE
RETURN PACKET TO POOL

!
!

0.K. TO ISSUE QIO(S)
CONTROLLER LOOP

¢
!

LET SUPERVISOR CATCH USER REQUE-STS
PROCESS ANY RETURN PACKETS

EXECUTIVE PROCESSING LOOP

NO FURTHER

EXERCISER

SEND_CO”HANDS:
beg ' n

QIO_GEN ();
if

(.MXx1

(not
then

qQ 0)

+f SEND
then

else

and

& P_FLAG)

(.MX1)

eaql

QIO [.CTLR]

begin
PUT _PKT

leave SEND_COMMANDS;

OR 2 QIOs

SUCCESS ON FIRST QIO

TO SEND

IT.

SUCCESS

TO POOL

end;

(.MX2 geq 0)

(not

then

OP _FLAG)

SUCCESS ON SECOND QIO

begin
do

BREAK

until (.OCT_ADDR
if

SEND

then

else

[CRING_CNT]

(.MX2) eql

QI0 (.CTLR]
begin

PRINTF

SUCCESS

.QI0O [.CTLR]
.CRN HIGH,
= FALSE;

(0BM121,

COMPARE _DATA

PUT _PKT
end;

lssu CRING_LEN);

(.MX2);

.CRN t0OW);

TILL

1 MORE

TO SEND

SUCCESS,

SLOT

AVAILABLE

IN CRING

IT.

INCR OUTSTANDING QIO COUNT

CATA

end;
end;
end;

BREAK;

PROC RETPKT

();

end

until

((not QIO_OUT ()) or
((.DCT_ADOR [CRING_CNT]
( .EOP_FLAG)));

OCT_ADDR
end;

[IG_INT])

TRUE;

eal 0) and
INTERRUPTS ON

(16)

THIS CONTROLLER

B&
JRQAME

RD/Rx

MR TI

vol.e

EXERCISER

DRIVE

TEST

004137

000076
000102
000110
000116
000122
000126
000132
000134
000140
000142
000144
000146
000150
000152
000154
000160
000162
000164
000170

000174
000176
00C204
000206
000210
000214
000220
000222
000226
000230
000234
000240
00024ac
000ca%

005746
004737
112787
005001
01Cl46
00473~
104440
010003
012700
104441
013737
013737
013737
017737
013700
013702
016266
016660
016600
042700
020027
001006
00473%>
010300
104441
005726
000511
010300
104441
004737
103077
004737
013700
002422

132737

001016
010016
004737
020027
C21003

105261

000405
013716
004737
000450
005737
002445

11
11

ROUTINES

PC.MD. INIT
®1,INIT OCCURED
R1
R1,-(SP)

$
:
s
1

2999
3000
3004
3006

-(SP)

MOV

:iOO.RO

3008

MOV

CCTLR,ICTLR
CST.ADDR, ICST.ADDR

H
3

3009
3010

8ICST.ADOR, IRDRX . ADDR
IDCT.ADDR,RO
IRORX.ADOR,R2
2(R2),2(5P)
2(SP),2(RO)

:
3

3012
3013

OCTY.ADOR, IDCT.ADDR

2(SP), RO

®77777,.RO

go.o

CUR . PRIORITY,»

3023

R3,.RO

3025

PC.QIO.GEN

3029

®1,EOQP . .FLAG

]

3082

PC,SEND
RO, 01
44

b3 ]

Mx1,(SP)
PC,PUT PKT

)

MX2

3031

QIO(R1)
St

000110

3018

5S¢
RO, (SP)

301S

3019

Mx1,RO
S

000106
000000G

¢,RC.REG
RC.REG,

CUR.PRIORITyY,
e

0000006

;
t

3011

PC,QI0.0x

000000G
000001

23.R0

000000G

3007

¢,CUR.PRIORITY

000001

100000

]

000000V
000106°

$
PC,FATAL .ERROR

000000V

CTLR
CTLR,»

PC.SET.CPAR
40
RO.R3

MOV
MOV

TEST ROUTINES

TRAP
MOV

MOV

000000V

¢A8
(16

2974

MOV
MOV

017777
100000

Page

MOV
MOV

000002
000002

56Q 0299

R1,$SAVES

TRAP
MOV

000104
000076
000100

VAX-11 Blies 16 V4 .0 579
DISKSUSERZ: [POWFRS JZRQADO.BL2 ;6

JSR

MOVB
CLR
MOV
JSR

0000006

11:08:35
11:08:2°2

MATI.ORIVE MULTI-DRIVE

1St
JSR

0000006

1984
1984

.SBTTL

MA TI.ORIVE::

000000V
000001

Apr
Apr

’
3

s(Chm)

30125

308"
3038%

LN
T

3039
LV
T ]

CH
ZRAAMSR

RD/Rx EXERCISER
MR TI ORIVE TEST

vOol.6

000250

132787

000256
000260
000262
000270
000272
000276
000302
000306
000310
000314
000316
000322
000326
000332
000336
000340
000342
000346
000352
000356
000362
000364
000366

001041

000370
000372
000374
000400
000404
000406
000410
000414
000416
000424
000426
0004 32
000440
000442

003614
104422
004737
004737
006000
103011
105777
001201
132737
001002
000137

;
:

104422
127727
103373
013716
004737

020027
001003
105261
000422
013716
013746
012746
012746
010600

104417
105037
013716

004737
062706
005726
005201
000243

052777

005726
000207/

000001

0000006

0000006 000004

11
11

ROUTINES

6s:

gIrs
BNE
TRAP

0000006
000000G

0000006

#4
. ADDR,T
SDC
64
Mx2,(SP)

RO, 01

BNE
INC8

74
QIO(RY)

B8R

MOV
MOV

CRN.HIGH, (SP)
®0BM121, (SP)

MOV

MOV
MOV
TRAP

001170
000110

CLRB
MOV
JSR
8s:

000000V
000000V

PC,SEND

oy o

000003

€3, -(SP)
SP.RO
17

000000G

007152’
040000

0000006

10$:

ADD
TSt

SP,e

BLE

JSR
JSR

PC,PROC.RETPKT
PC.QI0.0UT

TRAP

104

1518

80CT,ADDR

BNE
8lTB
BNE

18
01,E0P
. FLAG
108

8IS

940000,30CT.ADDR

JMP

3055
3053
3052

3059
3060

06,SP
(SP).

R1
INC
.MWORD CLv!CLC

3 CILR

3057
3005
3004

3065
3068
3071
3072
3073

157
RTS

Routine Size:
$CODES
146 words,
Rout ine Base:
Maximum stack depth per invocation:
11 words

o(CTLR)

COMPARE ,DATA
Mx2,(SP)
PC,PUT
. PKT

8CC

000001

CRN.LOW,(SP)

ROR

0000006

VAX-11 Bliss 16 v4,0 579
DISKSUSERZ:
{POWERS ]ZRQADO.BL2;: 5

cMe8
BHIS
ISR

000000G

11:08:35
11:08:22

1 ,EOP
. FLAG
8

MOV

000110
0000006
000001

Apr 1984
Apr-1984

(SP).
PC

7132

3C7S

2974

D&
RD/RX EXERCISER
MATI ORIVE TES T ROUTINES

ZRQAAME

3094
3095

3096
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113

o pe
e
0o
NN N RN -

2078
3079
3080
3081
3082
3083
3084
3085
3C86
3087
3088
3089
3¢90
3091
3092
3093

routine MD

H
!

THIS ROUTINE IS CALLED BY ROUTINE MULTI DRIVE
USED BY THE MULTI DRIVE TEST,

rovalue

11:08:35
11:08:22

VAX

11 Bliss-16

v4.0-579

DISK$USER2: [ POWERS JZRGADO.BL2;6

SEQ 0301
Page

(17,

INITIALIZE

DATA

ITEMS

begin

10222

local

11222
10222

AVG_XFER_SIZE : word,
QUICK _PASS _CNT : worc;
hen

.INIT_OCCURED

INIT IO _BUFF

(),

(.ENTRY_REASON neq CONT)

and

( .ENTRY _REASON neq NEW _PASS)

!
!

SIZE (BYTES) OF AN AVERAGE 1/0 XFER
AVG NO. OF I/0 OPERATIONS IN A QUICK PASS

PARTITION

FREE

RESTART,

THIS

IS A START

START,

MEMORY

INTO

I/0

BUFFERS

OR PWR FAIL

then

incr

CTLR
in

from O

(MAX_CTLR

1) do

_.CPAR (.CTLR);

INCR DISK FROM (O +» OF _UN) TO (3
+ OF _UN) BY UNIT_SIZE DO
BEGIN
SET_UPAR (.DISK);
OPST [.LSLUN] = DOP_CNT;
END;

& UNIT

SIZE

1222
1222
1222

1222

ENO;

000000G

132737
001002
004737
123727
001433
123727

000001

LSBTTL
MO. INIT::
0000006

000000V
000000G 000003

000000G 000005

0000006
000003

2s:

1s:

MD,.INIT MALTI DRIVE

PINIT
TABLE

2222
1222
1222
1222

TEST ROUTINES

JSR
BIT8
BNE

R1, $SAVE2

:
H

3078
3091

cHPB
BEQ
cMe8
BEQ
CLR

PC.INIT.IO.BUFF

ENTRvY _REASON, 03

H
H

3093
3095

3096

JSR

18:

1222

*INIT DATA PTRN SEQ TABLEZZZ

INCR COUNT FROM O TO (QIO PER CTLR o MAX CTLR
1) 00
1;
BUFF _OWN [.COUNT) 'I/0 BUFF ALLOC
END;
'END MO INIT

004137

001427
005002
010246
004737
012701
010116

INITY

Apr-1984
Apr-1984

GLOBAL

if not
PRV WWSE DD WRWWWNNN WA

G¢

OG0

G¢

vOl.6

11
11

:%.INIY.OCCURED

ENTRY

REASON, 085

MOV

44
R2
R2,

JSR

PC,SET.CPAR

MOV
MOV

(SP)

43,R1
R1,(SP)

CTLR

3099

CTLR,»

3101

¢,0ISK

X102

DISK,s

Xioe

E8
ZRAAMI

RD/Rx
MULTI

vOl.6

000074
000100
000104
000106
000110
000112

0047387
013700
112760
062701
020127
003763
005726
005202
000243

000114
000116
000120
000126
000130
000134
000136

003752
005000
112760
005200
020027
003?71
000207

000056
000062
000066

EXERCISER
DRIVE TEST

11
11

ROUTINES

MOV

3114

925,DP3T(RO)

ADD

912,R1

cMP
BLE

R1,041
3¢
(SP)»

157

INC
R2
.WORD CLV!CLC

000377
000007

000000G

S$:

VAX-11

Bliss

v4.0

579

DISKSUSERZ: [POWERS JZRQADO.BL2;:6

5EQ 0302
Page

(17

2107

DISK,»

¢,0ISK

3103

]
:

CTLR

3100
3099

BLE
CLR

23
RO

COUNT

3111

INC

COUNT

3111

MOVB

0377 ,BUFF _.OWN(RO)

CMe

RO, &7

B8LE

RTS

$CODES
48 words,
Rout ine Base:
: Routine Sice:
S words
: Maximum stack depth per invocation:

LSLUN,RO

MOVB

11:08:35
11:08:22

PC,SET UPAR

JSR

000000G
0000006
000025
000050
000012
000041

Apr-1984
Apr-1984

PC
.

7576

¢,¢(COUNT)

3112

3078

[ 8
ZRQAAMS
v01.6
:
H
:
H
3
H
H
H

:
H
H
3
:
H
H
:
:

H
:
:
:
H

:
:
:
:
:
:

;
:
:

3115
3116
3117
3118
3119
3120
3121
§I2§

12
3124
3125
3126
3127
3128
3129
3130
3131
3132
3133
3134
3135
glgg

1
3138
gizg
3141
3142
3143

3144
3145
gi:g

RO/Rx EXERCISER
MATI-DRIVE TEST ROUTINES
1
1
1
1
1}
1
1
1

1
1
1
1
1
1
1
1
1
1
1
1}
2
2
2
2
g

2
2
2

GLOBAL routine INIT_
IO BUFF

v,
H
!
H

11 Apr 1984 11:08:35
11 Apr-1984 11:08:22
: novalue

VAX-11 Bliss 16 v4
0 S79
DISKSUSER?2: [POWERS JZRQADO.BL2; 6

56Q 0303

Page

72
(18)

THIS ROUTINE IS CALLED 8Y MD_INIT WHEN THE MULTI-DRIVE TEST IS FIRST
STARTED. IT IS RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A
COLLECTION OF I/0O BUFFERS. THE SIZE OF EACH I/0O BUFFER IS DETERMINED
BY A NUMBER OF FACTORS, INCLUDING THE NUMBER OF UNITS, THE NUMBER OF
CONTROLLERS, AND THE SIZE OF FREE MEMORY.

H
H
!
!
H
!
H
'
H
'
H
!
' -

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 IN THE ALLOCATION AND
DEALLOCATION PROCESS.
IMPLICIT

BUFF

INPUTS:
CTLR_CNT - THE NUMBER OF CONTROLLERS CONFIGURED
LSUNIT - THE NUMBER OF UNITS AVAILABLE FOR TESTING
FREE _MEM_ADDR - START OF FREE MEMORY

in
_ADDR (0)

= (.FREE_MEM_ADDR

while (.BUFF _ADDR
BUFF _ADDR (0]
BYTS_PER_QIO

+ 2

¢+

1) ano %0°'177776"
;

[0) and 80°'37') neq O do
= ._BUFF _ADDR (0] .+ 2;

((.DRS_START

.BUFF ADDR

2
2
g

if .BYTS_PER_QIO gtru MAX_XFER_SIZE
then
BYTS_PER_QIO = MAX XFER_SIZE;

:
:
:
H
:
:
H
:
:
H
H
H

3148
3149
3150
3151
3152
3153
3154
3155
3156
3157
3158
;%23

2
2
3
3
3
2
2
2
2
2
2
g

if .BYTS_PER_QIO lssu 32
then
begin
'’
ERRSF (2, EGS_v2, 0);
DOCLN:
end;

3161

end;

(0])

(QIO_PER CTLR

& MAX_CTLR))

START OF READ/WRITE BUFFERS

!
'

FORCE FIRSY I/0 BUFFER
ON EVEN BOUNDARY

TO START

and o 177740";
' MAX TRANSFER SIZE

ADJUST

TRANSFER SIZE LOWER

ERROR

IF NOT ENOUGH MEMORY

'
!

INIT REMAINING TABLE ENTRIES
FIXED BUFFER ADDRESS

ROUTINE

if (QIO_PER_CTLR ¢ MAX CTLR) gtru 1
then
incr

000000

004137

000000G

000004

013700

000000G

index from 1 to (QI0 PER_CTLR &« MAX CTLR
BUFF ADDR ([.index] = .BUFF ADDR (.index -

- 1) do
1) » .8YTS PER_QIO;

.SBTTL

INIT.I0.BUFF MULTI ORIVE

JOR

R1,$SAVES

INIT
. IO.BUFF ;:
MOV

FREE .MEM, ADDR,RO

INIT_IO_BWFF

TEST ROUTINES
:

3115

313

(8
RD/RX EXERCISER
MULTI DRIVE TEST

ZRQAMZ
vOl1.6

000010
000014
000020
000026
000034
000036
000044
000046
000052
000056
000062
000066
000072
000100
000106
000110
000116
000124
000126
000130
000132
000134
000136
000140
000144
000146
000150
000152
000154
000160
000164
000170
000172
000176
000200
000202

;:
:

062700
010037
042737
032737
001404
062737
000770
013746

000000G

000002

0000006

023727

001160’
0000006
000010
0000006
0000006
000037
000000G 001400

023727

001400
00000C0G
000000G 000040

163716
012746
004737
010037
042737

101403
012737
103005
104454

000002
0000006
000000
104444

012702

010200
006300
010201
006301
016103

063703

010360
005202
020227
003762
022626
000207

Routine Size:
Max'mum stack

ROUTINES

000003
0000006
000001
000000G
000037

11-Apr-1984
11 Apr-1984

8IC
8IT
BEQ

437,BUFF ,ADDR
2

SUB
MOV
JSR

PC.BLSOIV
RO,BYTS.PER.QIO
937,BYT7S.PER.QIO
gITS.PER.QI0.014OO

BIC
cHP
8L0S

MOV

Ss:

177776G
0000006
000000G

54
e
€GS.02
0

TRAP
MOV
MOV
ASL
MOV
ASL
MOV
ADD
MOV

66 words,

Rout ine Base:
invocation:
8 words

$CODES

3151

44
21 ,R2
R2,RO
RO

:
;

¢, INDEX
INDEX,s

R2,R1

INDEX,
e

3155
3159

BUFF ,ADDR-2(R1),R3
B8YTS,.PER.QIO,R3

R3,BUFF .ADDR(RO)
R2
R2,07
5%

(SP)¢,(SP).

RTS

depth per

3146
3148

BYTS.PER.QIO,
040

INC
CMP
BLE
cMP

000007

3144

€1400,BYTS.PER.
QIO

cMp
BHIS

.WORD
.WORD
. WORD

(18)

3139
3138
3141

ORS.START, -(SP)
BUFF .ADDR, (SP)

MOV

TRAP

000001

Page

3134

:i.BUFF.ADDR

MOV

3s:

5EQ 0304

RO ,BUFF ,ADDR
41,8UF+ ,ADOR

ADD

2s:

VAX 11 Bliss 16 v4.0 579
DISKS$USERZ:
[POWERS JZRQADO.BL2;: 6

03,R0

ADD
MOV
1$:

11:08:35
11:08:22

7736

:
;s

INDEX

INDEX,e

3155
3135
3115

8
ZRQAMS

RD/RX EXERCISER

MATI DRIVE

3175
3176
n?»
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193

000000
000004

000010
000012
000020
000022
000026
000032
000036

000042
000046
000050
000054
000060
000062
000066
000070
000072

GLOBAL

TEST

THIS ROUTINE

100027
132737
001023
013700
116000
042700
062700

020027
101010
013700
105760
001403
012700
000207
005000
000207

11:08:35
11:08:22

VAX-11 Bliss 16 v4,0 579
DISKS$USERZ2:
[POWERS ]ZRQADO.BL2; 5

THE

IS CALLED BY

CONTROLLER

ANY

THE

MW TI _DRIVE

IMPLICIT

MEETS

"EXECUTIVE”

IN ORDER

THE CONTROLLER IS ONLINE;
THE NUMBER OF OUTSTANDING QIOs

THERE

MAXIMUM

THESE

ALLOWED

FOR

ANY

IS AT

ONE

IS AT LEAST ONE DISK ONLINE
TEST FAI L.,

THEN A VALUE OF

LEAST

else

THE

“FALSE”

[STATE)

eal

ONLINE)

and

000001

000000G
000000G

THAN

THE

RETURNED.

CONTROLLER

IF
IF

OUTSTANDING QIO COUNT
THERE IS VALID UNIT

EXIT

'FALSE®

.SBTTL

0000006

CONTROLLER.

“TRUE*

TRUE

return FALSE;

0000006
000002

2 LESS

CONTROLLER;

(not .EOP_FLAG) and
(€.QI0 (.CCTLR]) + 2) lequ QIO_PER_CTLR) and
(.CST_ADDR [U_CNT]) neq 0)
return

(19)

INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

(.CST_ADDR

then

REQUIREMENTS:

A,
8.

5EQ 0305

DETERMINE WHETHER OR NOT A QIO REQUEST (OR QIO PAIR) SHOWD BE
GENERATED TO THE CURRENT CONTROLLER. A VALUE OF “"TRUE” IS RETURNED

s B P P P

013700
005760

ROUTINES

routine QIO OK

b (i P

3174

Pt s Pt gt et (V) \) =0 =t (= P Pt (0 S0 Pt P

3162
3103
3164
2165
3166
3167
3168
3169
3170
3171
3172
3173

b P Pad P P Pt o P

vOol1.6

11-Apr 1984
11 Apr-1984

QIO.OK:: MOV
ISt
BPL
8IT8
BNE
MOV
MOVB

177400
000002
000010

eIc

ADD

CHP

BHI

000000G
000005

MOV

000001

MOV
RTS

1518

8EQ

1¢:

CLR

RTS

@IO0.O0K MULTI ORIVE
CST.ADDR,RO
2(R0O)
13

91,E0P.FLAG

1
CCTLR,RO

QIO(RO),RO

TEST

EXIT

IS ONLINE
IS 0.k,

PQOINT

POINT

ROUTINES

3184

5185
3.8

2177400,RO
#2.RO
RO,%10

CST.ADDR,RO
S(RO)
1

#1,RO

RO
PC

518°

3192
el

18
ZRQIAMX

RD/Rx

vOl.6

MULTI DRIVE

:
:

Routine Sice:

Mavimum stackh
AT

EXERCISER

30 wordgs,

depth per

11
11

TEST ROUTINES

Rout ine Base:

invocation:

O words

$CODES

10142

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX

Blisg

v4,0 579

DISKSUSER2: [ POWERS 1ZRQADO.BL2; 6

5EQ 0306
[

(19)

Jes
JRUAME

3216
321~
3218

VYT TV RT XU R EF RV LN ST VY R ol ol ol ol ol ol ol o o
VLV

G9
B0
o
Pe
G0
G
O
B0
B0
G0
B9
G0
@0
@

3205
3206
320~
5208
3209
3210
3211
3212
3218
3214
3215

[

195
219
319°
3198
3199
3200
3201
2202
3208

V¢

OG0

vol.é

00000C

010146

000002
000004
000006
000012
000016
000022
000024
000026
000032
000034
000036
000040

005001
010146
004737
013700
005760
100004
005726
012700
000405
005726
005201
000243

000042
000044
000046
000050

003760
005000
012601
000207

;

Rout
' ne S’ ze:

Mar ‘'mum stack

RD Rx

EXERCISER

MATI

DRIVE

oLOBAL

TEST

ROUTINES

routine QI0 OUT
THIS ROUTINE

END OF

FOR

ANY

11
11

CALLED BY

DRIVE

OUTSTANOING

OTHERWISE,

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 16 v4.0 579
DISK$USERZ:
[POWERS JZRQADO.BL2; 6

0307

oge

(20)

THE MULTI

RETURNED

Apr
Apr

THERE

“FALSE"

THE

TEST.

MALTI

DRIVE

ITS PURPOSE

QIOs

LEAST

ANY

CONTROLLER.

ONE

IS RETURNED

EXECUTIVE

QIO

FOR

TO EXAMINE

VALUE

OUTSTANDING ON

DETERMINING

THE

QIO

"TRUE"

ANY

THE

vilTOR

CONTROLLER.

INDICATING NO OUTSTANDING QIOs.

beg'n
incr

CTLR

from

(MAX

CTLR

beg'n

SET

CPAR (.CTLR);

“fF

.CST

ADDR

(STATE]

eql

ONLINE

then
return

SET

UP CURRENT

EXIT

CONTROLLER

CONTROLLER PARAME TERS
IS

ONLINE

TRUE
;

end;

return FALSE;

CONTROLLERS

ONL INE

endg;

.SBTTL
QIO.OUT::

0000006
0000006
000002

1¢:

000001

2$:

21 words,
Rout ine Base:
depth per invocation:
3 words

QIO.OUT MULTI DRIVE

MOV

R1,

(SP)

CLR
MOV

R1
R1,

(SP)

JSR
MOV
ST
8PL
ST
MOV

PC,SET_.CPAR
CST.ADDR,RO
2(R0O)
2s
(SP).
e1,R0

BR
34
TS7
(SP).
INC
R1
LWORD CLV!ICLC
BLE
CLR
MOV

1
RO
(SP)e ,R1

RTS

$CODES

10236

TEST

ROUTINES

: CTLR
;

CTLR,

3195
3207

3209
3211

3213

; CTLR

3208
3207

3205
3195

1784

JRQAMS

RO/Rx EXERCISER

vOl1.6

MA T]I DRIVE

3219

GL OBAL

:
H
H
H
H

3221
8222
32283
3224
822%

1
1
1
1
1

HE
H
¢
H
'

H
3
3

3220

3226
gg{;
<

1
1

11 Apr 1984 11:08:35

TEST ROUTINES

Jstine QIO GEN

11
novalue

Apr

1984

VAX 11 Bliss 16 v4,0 579

11:08:22

DISKSUSER?Z: [POWERS JZRGADO.BL2:H

H
H

THIS ROUTINE IS CALLED BY THE MUWLTI _DRIVE EXECUTIVE FOR AN ONL INE
CONTROLLER ELIGIBLE TO RECEIVE I/O TRANSFER REQUESTS., IT IS
RESPONSIBLE FOR SECURING ONE OR TWO MSCP PACKETS AND LOADING THEM
WITH VARIOUS PARAMETERS COMPRISING THE I/0 REQUEST. THE I/0 REQUEST
GENERATED HERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM
THOSE CONF IGURED UNDER THE CURRENT CONTROLLER,

3
3
H

3229
3230
g?;l

1
1
1

'
H
H

EACH FIELD OF THE PACKET(S) IS _OADED WITHIN INDIVIDUAL ROUTINES
(QIO_FUNC, QIO_LBN, QIO SIZE, ETC.). MOST OF THE VALUES SELECTED FOR
EACH FIELD ARE BASED ON A SET OF RANDOM NUMBER GENERATED AT THE START,

H
H
3
H
3
H

32838
3234
3235
;ggb
B
3238

1
1
1
)
|
1

H
!
H
H
!
H

UNDER NORMAL CIRCUMSTANCES, ONLY ONE I/0 REQUEST IS GENERATED, HOWEVER,
IF THIS I/0 REQUEST IS A "WRITE", AND IF THE OPERATOR SELECTED THE
OPTION FOR MOST WRITE-COMPARES, THEN A SECOND "READ” REQUEST WILL BE
GENERATED WITH THE SAMC LBN AND BYTE COUNT,

:
3
H
:

2832

3239
3240
3241
gg:g
3244

:
:
H

3245
3246
3247

gggg

1
1

!
'
H
'

|
1
|

'
'

AFTER THE PACKET(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL
AND ATTEMPTS TO GET ONE OR TWO I/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 'MXx1
AND "Mx2"; THEY
CONTAIN VALID MSCP PACKET

IMPLICIT

INPUTS:

- CCTLR

CURRENT

3248

beg:n

:
:
:

3251
3252
ggg}

2
2
g

if (MX1 = GET PKT
then
return;

H
:
:
H
H
:
:
H
:

3255
3256
3257
3258
3259
3260
3261
3262
3263

2
2
3%
3
3
3
2
¢
2

“F (MX2 = GET PKT (.CCTLR))
then
begin
PUT
PKT (.MX1);
MX1 = -1
return;
end;
MAD1

H
H

3265
ggg?

2
g

GET_RANDOM ();
QIO UNIT ();

:
:
:
H

3264

3268
3269
3270
1271

2
2
2
2

MX2

MADZ2

INDECES.,

= MSCP PKT
=

MSCP _PKT

1f _EOP FLAG
then
return;

+»

(.MX1

(., MX2

1ss O

lss O

» PKT LEN &
¢

CONTROLLER NUMBER

(,CCTLR))

PKT

LEN

2);

ASSUME

TRY

NO POINT

TRY

!
'
!

RETURN 1ST PACKET
INDICATE FAILURE
DONE

CALCULATE

'
!

GENERATE A SET OF RANDOM NUMBERS
LOAD RANDOM UNIT NUMBER INT(U PACKETS

RETURN IF NO UNIT ONLINE

FAILURE

TO GET

IN SECURINC

PACKET.

IF FAILURE

IN CONTINUING

TO GET 2ND PACKET,

2ND PACKET

IF FAILURE

Y0 POOL

STARTING ADDRESSES

BOTH PACKETS

5€Q 030

Pagea

(21,

| &
vol.6

MU TI DRIVE

Be
Os
G0
e
G0
G0
G
Ge
S0
G0
G
G0
V0
B¢
G0
OG0
G0
Ve
V0
B0
GF
V0
GF
O
V6
G0
B¢
B0
Vo
Ve
Ve
O
G0
B¢
B¢
B9
@5
¢
®

3272
3273

3274

3275
3276
3277
3278
3279
3280
3281
3282
3283
3284
3285
3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
3296
3297
3298
3299
3300
3301
3302
3303
3304
3305
3306
3307
3308
3309
3310
3311

ROV WEHWENNRDONDWWDDDDNUVINOGLDLAUWUMUWWWN
NNV

RDO/RX

ZRQAMS

EXERCISER

TEST ROUTINES

QIO FUNC ();
QIO_LBN ();
QIO SIZE ();

GET_IO_BUFF (MAD1
if .Mx2
then

.MAD2

[BUF 01));

TRY

(MADZ2 [BUF _01]);

[BUF 0]

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 16 v4,0 579
DISK$USERZ2:
[ POWERS ]ZRQADO .BL2;: 6

LOAD RANDOM FUNCTION CODE (OPCOOE)
LOAD LBN (RANDOM OR SEQUENTIAL)
LOAD RANDOM BYTE COUNT

geaq O

begin
GET
IO BUFF
if

11 Apr
11 Apr

TO GET

I/0 BUFFER

TWO QIOs ARE

TRY

eqla O

GET

2ND

2ND BUFFER

1ST

TO BE

ISSUED

I/0 BUFFER

ALLOCATION FAILED

then
begin

i¥

MAD1

(BUF

neqa O

then

begin
PUT _I0 BUFF (MAD1
MAD! (BWF O) = O;
end;

01);

RETURN 1ST
MARK IT AS

PUT _PKT (.MX2);
MX2 = -1;
end;

.MAD1

else

[BUF

.MAD1

eqla O

FILL BUFF

012737

177777

000006
000012
000016
000022
000024
000026
000030
000034

013746
004737
010037
005726
005700
002563
013746
004737

000000G
000000G

000106’

000000G
0000006

TWO QIOs ARE

1ST

eql

WRT

POOL

TO POOL

FILL

();

.SBTTL
QIO.GEN::
MOV
MOV

JSR

MOV
ST
TST

TO POOL

PACKET

FAILURE

1ST

OPCOOE

IS A WRITE

I/0 BUFFER WITH APPROPRIATE
QIO GEN

TEST

ROUTINES

1,Mx2

CCTLR, -(SP)

PC.GET.PKT
RO, Mx1

(SP).

BLT

RO
6%

JSR

PC.GET.PKT

MOV

ISSUED

1ST

QIO.GEN MULTI DRIVE
&

TO BE

ALLOCATION FAILED

OTHERWISE,

ROUTINE

00011C’

170 BUFFER

INDICATE

end;

000000

RETURN

(OPCODE)

ALLOCATED

INDICATE FAILURE
IF 2ND 1/0 BUFFER ALLOCATION FAILED

begin
PUT _PKT ( .MXx1);
MX1 = -1;
end

then

I/0 BUFFER
FAILED

RETURN 2ND PACKET

end;

then

I/0 BUFFER WAS

CCTLR,

(SP )

MX1

(ALL

IS 0.K.)

DATA PATTERN

5eQ@ 030 9
P

21)

M8
ZRQAM3

RD/RXx EXERCISER

MULTI-ORIVE

vOol.6

000040
000044
000046
000050
000052
000056
000062
000070
000072
000074
000100
000104
000110
000114
000120
000124
000130
000134
000140
000144
000150

000154
000162
000164
000170
000174
000200
000204
000210

000214

000220
000222
000226
000232
000236
000242
000246
000250
000254
000260
000262
000264
000266
000272
000276
000302
000306
000312
000320
000324

000330
000332
000336

010037
005726
005700
002011
013746
004737
012737
005726
000207
013746
012746
004737
062700
010037
013716
012746
004737
062700

TEST ROUTINES
MOV
TST
TSTY
B8GE

000110

000106
0000006

177777

MOV

JSR

000106’

000106'
000106
0000006
0000006
000112’
000110
000106

1$:

ADD
MOV
MOV
MOV

JSR

ADD
MOV

000001

JSR
JSR
8ITB
BNE
JSR
JSR
JSR

000000G

004737
004737
004737
013716
062716
004737

MOV
ADD

JSR
TST
eLY
MOV

005737

002437
013716
062716
004737
013700
005760
001024
013700
062700
005710
001407
010016
004737
013700
005060
013716
004737
012737
013700
005760
001010
013716
004737

MOV
TST
RTS
MOV
MOV

JSR

010037
004737

004737
132737
001103

11-Apr
11 Apr

ADD

JSR
MOV
TST
BNE
MOV

000112
000032

000000G
000112
000032
000110
000000G
000110’
177777
000112’
000032
000106
0000006

ADOD

TST
BEQ
MOV
JSR

MOV

24:

3s:

CLR

MOV

JSR

MOV
MOV
TST
BNE
MOV

JSR

1984
1984

11:08:35
11:08:22

VAX-11 Bliss 16 v4.,0 579
DISKS$USER2:
{POWERS ]ZRQADO.BL2; 6

SEQ@ 0310
)

(21)

RO, MX2

(SP)

RO
1
MX1, -(SP)
PC,PUT PKT

(SP)»

2106, -(SP)

PC,BLSMUL
OMSCP .PKT ,RO
RO,MAD1
Mx2,(SP)

2106, -(SP)
PC.BLSMUL
OMSCP .PKT RO
RO,MAD2

MXx2

3258
3259
3260
3257
3263

3264

PC,GET
. RANDOM
PC,QIO.UNIT
©1,E0P.FLAG
S$
PC,QIO0.FUNC
PC.QIO.LBN
PC,QIO.SIZE
MAD1,(SP)
432,(SP)
PC,GET.IO.BUFF
MX2
3
MAD2, (SP)
€32,(SP)
PC,GET.IO0.BUFF
MAD2,RO

3265
3266
3268
3219
3272
3273
3274
3275

MAD1,RO
232,R0

3286

32(RO)
3s

3277
3280

3282

(RO)

28
RO, (SP)

PC,PUT, I0.BUFF

MAD1,RO
32(RO)
Mx2,(SP)
PC,PUT PKT
a-1.,MXx2
MAD1,RO

3289

3290
X293

3294

3299

32(RO)
44
Mx1,(SP)
PC,.PUT
. PICT

3202

N8
RD/RX EXERCISER
MULTI DRIVE TEST

ZRQAM3
v0l1.6

000342
000350
000352
000356
000364
000366
000372
000376

:
;

012737
000410
013700
126027
001002
004737
062706
000207

Routine Size:

Maximum stack

177777

000106’

000022

000042

11-Apr-1984
11-Apr-1984

ROUTINES

MOV

B8R

MOV

000000V

128 words,
Rout ine Base:
depth per invocation:

MAD1,RO

22(RO), 042

cMPB
BNE
JSR

5%
PC.FILL.BUFF
06 ,SP

ADD
RTS

$CODE
¢

1.,Mx1

10310

11:08:35
11:08:22

VAX-11 Bliss-16 v4.0-579
DISK$USERZ2:
[POWERS ]ZRQADO.BL2:6

5EQ 0311
p

(21)
3303
3299
3307
3309
3248
3219

£y
ZRQAMS

RD/Rx EXERCISER

MA TI-DRIVE

00120¢C
001200
001202

N NN N A AN 00 0 4ot 0t 90 g Pt 4ot Pt et

GLOBAL

TEST ROUTINES

routine GET RANOOM
THIS ROUTINE
AND TO STORE

11
:

novalue

Apr

1984

11:08:35

11:0A:2?2

VAX-11 Blies 16 v4.0 579
DISKSUSERZ:
[POMERS JZRGADO.BL ;6

56Q 031¢

IS CALLED B8Y QIO _GEN TO GENERATE A SET OF RANDOM NUMBERS,
THEM INTO THE RANDOM NUMBER TABLE (RANDOM). THE RANDOM

NUMBERS ARE USED TO SELECT I/0 REQUEST PARAMETERS FOR THE CURRENT QIO
OR QIO PAIR. IN ADDITION, IF DATA PATTERN 01 IS BEING USED, THESE
RANDOM NUMBERS WILL

USED

THE

WRITE

OPERATION,

begin

SEED : word initial (173),
NEXT _RANDNUM : word initial
incr COUNT

from O

to (RDM LEN

(245);
1) do

SEED = (.SEED + .NEXT_RANDNUM . 1)
NEXT_RANONUM = ( NEXT _RANODNUM / 4)

3812
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322
3328
3324
3325
3326
3827
3328
3329
3330
3331
3332
3333
3334
3335

0D N

®e

vol1.6

RANDOM
end;

[.COUNT]

._NEXT RANDNUM;

.PSECT

SEED:
. WORD
NE XT RANDNUM

010710

004137

000004
000010
000014
000016
000020
000022
000024
000026
000032
000040
000042
000046
000052
000056
000040

013703
013702
005001
010200
060300
006300
006300
010037
062737
010246
012746
004737
013703
060300
010037

,SERD;

end;

000255
000365

000000

001200
000004

000004
0000006
001200
001202

365

.SBTTL
.PSECY

GET,RANOOM MU TI
$CODES.,
RO

MOV

1%:

CLR

MOV
ADD
ASL
ASL

001200

. WORD

GET.RANDOM:
:
JSR

001200
001202’

$GGGs,

255

MOV

ADD

MOV
MOV
JSR
MOV
ADD

MOv

DRIVE

TEST

ROUTINES

R1,$SAVES

SEED,R3
NEXT ,RANDNUM R?

Rl
R2,RO

R3.RO
RO
RO
RO,SEED
04 ,SEED
R2, (SP)
o4, (SP)

PC,.BLSDIV
SEED, RS

R3,RO

RO, NE x T, RANDNUM

3312
3330

: COUNT

3328
3330

1331

0000006

062701
020127
003744
000207

Routine Size:
Rout ine Base:
36 words .
i1 Maximum stack depth per invocation:

RO,R2
R2,RANOOM(R1)
(SP)+,fSP)s

MOV
MOV

cMe
ADD

#2,R1
R1,036
19
PC

cMe

BLE

RTS

$CODES

10710

11:08:35
11:08:22

VAX 11 Bliss 16 v4,0 579
DISKSUSER2:
[POWFRS ]ZRQADO.BL2; S
e

010002
010261
022626

1984
1984

®0

000064
000066
000072
000074
000100
000104
000106

ROUTINES

Apr
Apr

NEXT,RANDNUM, o

¢,s(COUNT)

vOl.6

11
11

RD/Rx EXLRCISER
MU TI DRIVE TEST

ZRQAMS

¢ ,COUNT
,o
COUNT

5£Q 03183

D9
ZRQAMR

RO/RXx

VCl.6
:

GLOBAL

3338

3339

H
:
H

331
3342
3343
3344
3345
2226
7
33438
3349

:
:
H
H
H
H
H
H

3340

3353
3354

2
2

3356
3357

2
2

3355

:
:

3358
X899

H
:
:
:
H

:
:
H
H
H
H
H

H
H

:
:
;

1
1
1

3351

3350

3352

:
:

)
1
1
1
1
|}
1
1

:
H

MATI DRIVE

333

3337

3360

'
!
H
!
H
!
H
H
'
H

2
2
2
g

3366

routine QIO UNIT

THIS ROUTINE

IMPLICIT

MOD _COUNT
TBL _COUNT
RX_COUNT

!
!
¢
H

;

3386

3387
31388

¢
¢
!
'

THIS MODE

:
:

byte,
byte,

word

initial

(0);

ATIO,

RDS1/S2

T0 RXSO,

IS FOR SELECTING DEVICES ON THE FOLLOWING SCHEME:

then

3383
3384
3385

ADCRESS OF CURRENT CONTROLLER'S CST

THE UNITS WILL BE SELECTED ON AN ADJUSTABLF
SELECTED VIA THE SOF TWARE PARAMETERS

SELECT_RD : byte initial (byte (TRUE)),
RO _COUNT : word initial (0),

3380

CHOOSE A DEVICE AND KEEP IT SELECTED FOR A CONSTANT TIME, THEN
MOVE TO THE NEXT, THIS IS NON-RANDOM, FIXED SEQUENTIAL OPERAT IONAL
MODE

' (not BIT_TST
(not BIT_TST
then

(SWP FLAGS,
(SWP_FLAGS,

(.BST_CNT neq 0)

SWF RDM)) and
SWF _SEQ))

!
!

NOT RANDOM MODE
NOT RANDOM SEQUEUNTIAL TMODE

and

(.CST_ADOR [.BST_DEV + OF DATA, D PRES) eaql PRESENT) and
(.CST_ADDR [.BST_DEV » OF DATA, D STAT] eql ONLINE) and
(not .CST_ADDR [.BST DEV . OF DATA, D FATAL))

be?in

BST_CNT

_BST_CNT

!
) )

3
3
3

SET_UPAR (.8ST_DEV);
MAD1 (DK _NuUM) = _CDISK;
MAD2 (DK NUM]) = _CDISK;

3
2

end

return;

else

v4.0 579

DISKSUSER?: ([POWERS JZRQADO.BL2;:6H

IS CALLED BY QIO _GEN TO RANDOMLY SELECT ONE UNIT

INPUTS:
CST_ADDR

loceal

3381

Bliss

APPROPRIATE FIELD OF B80TH MSCP PACKETS.

2
2
3

11:08:22

VAX-11

IMPLICIT QUTPUTS:
THE RD/RX DISK NUMBER (DISK ADDRESS) IS LOADED INTO THE

3376

3377
3378
3379

novalue

1984

11:08:35

CURRENT QIO OR QIO PAIR, THE UNIT SELECTED IS BASED ON THE NUMBER OF
UNITS ELIGIBLE TO RECEIVE AN I/0 REQUEST (FROM L TO 4) AND THE FIRST
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM).

2
2
2
2
2
2
3

2
2

Apr

1984

CONF IGURED UNDER THE CURRENT CONTROLLER (CCTLR) TO BE USED FOR THE

3367
3368
3369
3370
3371
3372
3373

3374
3375

Apr

begin

3361
3362
3363
ggg;

TEST ROUTINES

2
2

3382

:
:

;

:
:
:

EXERCISER

ALREADY WITHIN DEVICE

5€Q 0314
Page

(2%)

E9
RD/RXx EXERCISER

Apr

1984

11:08:35

VAX-11

MULTI-DRIVE

Apr-1984

11:08:22

DISKSUSER?:
[POWERS )ZRQADO.BL2; 6K

TEST ROUTINES

begin
incr

!
OFFSET

from

(.CST_ADDR

UN)

[ .OFFSET

v4,0-579

GET NEW DEVICE

((UNITS_PER_CNTR

DATA,

D PRES)

Bliss-16

eql

UNIT SIZF

PRESENT)

UN)

UNIT

SIZE

UN) by

UNIT

SIZE

and

(.CST_AODR [.OFFSET + OF DATA, D _STAT] eaql ONLINE) and
(not .CST_ADDOR [.OFFSET + OF DATA, D FATAL))

then

(.CST_ADDR

{.OFFSET

DATA,

thenRD COUNT = _RD_COUNT . 1

3ncrb2:f§ET

from (O

UN)

T'PE)

eaql

FIXED)

! NUMBER OF RD51/52s UNDER TEST

el“R)(_COUNT = RX_COUNT + 1;

! NUMBER OF RX50s UNDER TEST

to ((UNITS PER_CNTR

UNIT

SIZE

JV.R W

(.BST

DEV

eql

(.B8ST DEV eaql

then

else

((UNITS_PER_CNTR

BST_DEV

OF _UN

BST _DEV

_BST_DEV

¢+

& UNLT

SIZE

OF UN))

UNIT _SIZE;

IV IV TNV R SV

if (.CST_ADDR [.BST DEV « OF DATA, D_PRES) eal PRESENT) and
(.CST_ADDR (.BST _DEV « OF DATA, D_STAT) eql ONLINE) and
(not .CST_ADDR [.BST_DEV + OF DATA, D FATAL])
then

begin

.CST_ADDR

then

[(.BST_DEV

+ OF DATA,

D TYPE] eql REMOVABLE

BST_CNT

_RX_MAX_SEQ_CNT

_RX_COUNT

BST_CNT

_RD MAX_SEQ@_CNT

,_RD COUNT;

.BST_CNT

eql

el se¢

SCITICIV IV IV IV IVIV

3391

LYLST NI SYPRV R W

3389

XV IP Y Y7 XV IV R XV XV R NV YV XV 47 X7 47 )

ZRQAMS
vol.6

then

BST_CNT

SET_UPAR (.BST_DEV);,;

MAD1
MAD2

[OK_NUM)
(DK _NUM)

return;

end;
end;

end;

' RANDOM SELECTION OF DRIVES

=
=

_CDISK;
_CDTSK;

5EQ 0315
()
84
age
(23)

F9
ZRQAM3

RD/Rx

3458
3459

Apr-1984

11:08:35

VAX-11

v4.,0

579

Apr-1984

11:08:22

DISKS$USERZ:
(POWERS )ZRQADO.BL2;6

WY
L XY

DETERMINE
if

IF RDS51/52s ARE

((.RANOOM

[RDM LEN

TO BE
1)

SELECTED

and %0'077777') mod

100)

geau

.SWP RAT

then

FALSE;

IF RD51/52s SELECTED

WY
1

SELECT_RD

DOLLBDODNNNVUVNDGLBDUUWWUMWNWWWDLLIWMDUWUWWUWUWUWWWNNNVLNNNVNRVDNIY

O
90
S0
00
G0
G0
V0
G0
We
69
G0
B0
W0
TP
G0
0
Gs V0
G0
Co
G0
G
G0
G0
WF
G0
e
G0
Vs
V¢
G0
W
)
00
Vs
VI
B¢
G
O¢
B
B0
G1
ST
B
Ve
Vs
B¢
Ve
B
B
G
B%
B¢

3457

TEST ROUTINES

Blisgs-16

SEQ 0316

MULTI-ORIVE

v0l1.6

3442
3443
3444
3445
3446
3447
3448
3449
3450
3451
3452
3453
3454
3455
3456

EXERCISER

COUNT NUMBER OF RDS1/52s AVAILABLE
*f

.SELECT RD

then

_COUNT

= 0O;

incr OFFSET

! COUNT

from (O

UN)

((UNITS_PER _CNTR

THE NUMBER OF RDs UNDER TEST

& UNIT

SIZE

UN) by

UNIT

“f (.CST_ADDR [.OFFSET « OF DATA, D_PRES] eaql PRESENT) end
(.CST ADDR (.OFFSET « OF DATA, D_STAT) eql ONLINE) and
(.CST ADOR [.OFFSEY + OF DATA, D_TYPE) eql FIXED) and
(not .CST_ADDR [ .OFFSET . OF DATA, D_FATAL])
then

beg

STSRAGE (.00 COUNT) = _OFFSET;,;

MOD COUNT

end;

! SELECT ON OF THE RDS1/52s
f

_MOD_COUNT

then

neq O

LEAST

ONE

RDS1/52 PRESENT

begin

T8L
do

COUNT

begin
SET_UPAR (.STORAGE ((.RANDOM
TBL COUNT = _TBL_COUNT . 1;
end

wntil

MAD1
MAD2

[ .TBL _COUNT)

and #0°'077777') mod

(C.CST ADDR {.CUOFF . OF DATA, D_PRES) eaql PRESENT) and
(.CST_ADDR [.CUOFF + OF DATA, D_STAT] eql ONLINE) and
(not .CST ADDR [.CUOFF + Of DATA, D FATAL))) or
(.7TBL COUNT eql RDM LEN);

(DK NUM]
(DK _NUM]

=
=

.CDISK;
. CDISK;

.MOD_COUNT]);

SIZE

Page

23)

GY
ZRQAMS

RD/RX EXERCISER

vOol.6

MATI DRIVE

:
3

3495
3496

4
3

3498

:
:
:
H
:
:
H
H
H
:

:
:

:
H
:
:

3497

3499
3500
3501
3502
3503
3504
3505
ggog
o)

MOD_COUNT

3535

3543
35344
3245
46

1547

2
3
2
3

UNIT_SIZE

11:08:22

Bliss

v4,0

579

DISKSUSER?2 : [POWERS JZRQADO.BL2;: 6

SELECT AN RXS0

from (O

(.CST_ADDR
(.CST_ADDR

OF _UN)

[ .OFFSET
[.OFFSET

to ((UNITS_PER_CNTR

+
+

OF _DATA,
OF _DATA,

D_PRES])
D_STAT]

&«

UN) by

UNIT

eql PRESENT) and
eql ONLINE) end

(.CST_ADDR [.OFFSET + OF DATA, D_TYPE) eql REMOVABLE) and
(not .CST_ADDR [.OFFSET + OF _DATA, D_FATAL])
then
begin
STORAGE [ .MOD_COUNT] = _OFFSET;
MOD_COUNT = _MOD_COUNT .+ 1;
end;
t
t
'

AND CHOOSE ONE!
if MOD_COUNT neq O
then
begin
TBL _COUNT = O;

begin
SET_UPAR ( .STORAGE [(.RANDOM [.TBL _COUNT]) and %0'077777 ) mod
TBL_COUNT = _TBL_COUNT + 1;
end
until ((.CST_ADDR (.CUOFF + OF _DATA, D_PRES) eql PRESENT. and

(.CST_ADDR [ .CUOFF

3
3
3
3
3
3
2

« OF DATA, D_STAT] eql ONLINE) and

(not .CST ADOR [.CUOFF +
(.TBL _COUNT eql ROM_LEN);

MAD1 [DK_NUM])
MAD2 (DK_NUM])
return;

=
=

OF DATA,

D FATAL))) or

_CDISK;
_CDISK;

end;

2
2
2

!
¢

IF NO UNIT SELECTED SO FAR By

COUNT ALL UNITS AVAILABLE

11 Apr-1984

VAX

= O;

3
3
2
2
2
2
2
2
2
2
3
3
3
3
4
4
4
4
4

11:08:35

THE NUMBER OF RXS0s

2
2

3536
3537
3538
3539
3540
3541
3542

COUNT

3510
3511

:
;
:
:
:
:
:

IF NO RDS51/52 SELECTED,

incr OFFSET

3
:
:
:
:
:
:
:
:
:
H
:
:
H
H
:
H
:
H

H
H
H

'
t
'
!
!

3509

1984

end;

3508

3512
3513
3514
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
3527
3528
3529
3530
3531
3532
3533
3534

TEST ROUTINES

Apr

return;
end;

2
2
2
2
2
2
2
g

ABOVE METHOD,

SELECT ANv

ONE AT RANDOM

.MOD COUNT]));

SIZE oo

5eQ 0317
Page

(2%)

-3

ZRQAMS

RO/RX EXERCISER

vOol.6é
:

3
:
3

H
3

3548

1549
ggg(l’

3555
3556
3557
3558

2
3
¢
3

]
:
3

3559
3560
3561

:
:
:
:
:
:

:
:
H
:
:
;

:
:
:
:
H
:
:
H
H

2
g
2
2

3554

3
H
:
:
3
:
H
:
3

3552
553

H
H
3
H

MA TI DRIVE

3562
3563
3564
3565
3566
3567
3568
3569
357¢
351
3572
3573
3574
5575
357¢

3577

3578
3579
3580
3581
3582
3543
3584

3585
1586
3587
1588
3589
3590
3591
3592
3593

MOD _COUNT

¢ (.CST

ADDR

+ OF UN) to ((UNITS PER_CNIR

[.OFFSET

STORAGE { .MOD COAUNT) =
MOD COUNT « _MOD COUNT
end;

!
!
H

SELECT ANY

VAX 11 Bliss 16 v4.0 579

DISKSUSER? : (POWERS JZRQADO.BLZ2;:6

"%231’

(23%)

DATA,

1) o UNIT SIZE

D PRES) eal PRESENT)

+ OF UN) by

UNIT _SIZE do

snco

OFFSET;
. 13

ONE ONE UNIT AT RANDOM

i€ .MOD_COUNT neq O
then
begin
TBL _COUNT +» 0;
do

be?in
SET_UPAR ( .STORAGE
TBL _COUNT

&
4

end
until ((.CST

((.RANDOM (.TBL

_TBL COUNT

ADDR

(.CUOFF

MAD1 (D NuM)
MAD2 (DK _NM]

end

(.CST _ADDR [.CUOFF

3
3
3
3
3

return

!
!
H

DECLARE END OF PASS

else

EOP FLAG

=
=

CODISK;
_COisn;

UNIT

COUNT)

004137

0000006

000004
000010

112704
005002

000001

.MOD COUNT]);

OF DATA,

D PRES] eql PRESENT)

and

.+ OF DATA, D STAT) eql ONLINE) and
OF DATA,

D FATAL])) or

ONL INE

TRUE;

end;

000000

and so 077777
) moa

(not .CST_ADOR [.CUOFF «
(.78L COUNT eql RDM LEN);

11:08:2°2

¢.CST ADDR [ .OFFSET + OF DATA, D_STAT) eql ONLINE) and
(not .CST ADDR [ .OFFSET » OF DATA, D FATALD)
then
beg‘;n

3
4
&

3
3
2
2

1984

= 03

incr OFFSET from (0

8§
3
2

3
3
3

11 Apr

2
2
2
2
2
2
3
3
3

11 Apr 1984 11:08:35

TEST ROUTINES

*
LSBTTL

QIO UNIT

JSR

R1.,8GAVEQ

QIO.UNIT::

MOvVB
CtR

4. ,R4
e

ROUTINE QIO UNI®

MOLTT DRIVE

TEST ROUTINES
$

$
$

¢, SELECT.RD
RD.COUNT

::32

ZRAAMS

RO-Rx

EXERCISER

vol.6é

MATI

DRIVE

000012
000014
000022
000024
000032
000034
000040
000044
000046

005003
032737
001003
032737
001402
00013~
005737
001452
013700
006300
063700
032710
001442
013700
006300
063700
032710
001432
013700
006300
063700
032710

001022
005337
013746
004737
013700
013760
013700
013760
005726
000207
012701
010100
063700
032710
001414
032710
001411
032710
001006

132710

001402
005202
000401
005203
062701
020127
003751
012701
013700
001403
0200¢7

000002
001000

011504
001146°

TEST

11
11

ROUTINES

CLR

OV00006

18:

8r7
BNE
8Iv
8EQ

A B

1ST

0000006

001150

Apr
Apr

R3
02 ,SWP FLAGS

13
#1000,
SWP . FLAGS
28

1984
1984

11:08:35
11:08:.2°2

VAX

Bliss

v4.0 579

DISK$USERC
: [POWERS JZRQADO.BLZ ;6
i

5EQ 0319
P

L
(2%)

Rx ., COUNT

3372

]

35373

158
BST.CNT
38
B8ST.DEV.RO

3376
3377

CST.ADDR,RO
94C000,(RO)

B8ST.DEV,.RO

3378

CST.ADDR,RO
;20000.(R0)
s

8ST.DEV,RO

3379

CST.ADDR,RO
#10000,{R0O)

3
BST.CNT
B8S5T.0Ev,

3382
3383

(SP)

PC,SET
. UPAR
MAD1 RO

3354

COISK,16(RO)

MADZ2,RO

3385

COISK,16(RO)
(SP).

000006

6 ,R1

3s:

/1 ,RO

4%
:

o ,OFFSET

OFFSET,
e

CST.ADDR,RO
440000, (RO)
020000
010000

#10000,(RO)
64
020,(RO)
St

000020

RD.COUN'

000024
000102

000003
001150
000041

Ss:
68:

R3
024 ,R]

RX,COUNT

R1,810°2

OFFSET
o

3 ,R1

¢, 0FFSET

14 X

8tQ

8ST.DEV,.RO
84

RO, 041

¢, OFFSET

3386
3381
3391
3393

9
vol.6

000272
000274
000302
000304
000312
000316
000320
000324
000330
000332
000336
000340
000344
000346
000352
000354
000360
000362
000364
000370

000372
000376
000402
000404
000412
000416
000422
000426
000434
000440
000446
000450
000452
000456
000462
000464

000470
000474
000500
000504
000506
000512
000514
000516
000520
000522
000524
000530
000532
000534
000540
000544
000546

11
11

RD/Rx EXERCISER
MATI DRIVE TEST ROUTINES

JRQAMS
001004
012737
000403

062737
013700
006300
063700
032710
001450
032710
001445
032710
001042
132710
001004
013746
010346
000403
013746
010246
004737
010037
001003
012737
013716
004737
013700
013760

013700
013760
022626
000207
062701
020127
003676
013746
042716
012746
004737/
022626
020037

000003

O0V1150°

8s:

98
03,857 ,DEV

000012
001150

001150

9
108:

8S7.DEV,RO

032710
001417
032710

11:08:35
11:08:22

VAX 11 Blies 16 v4.0 579
DISKS$USERZ:
[POWERS JZRGADO.BL2; 6

012,8ST,0EvV
RO

3415

€10000,(RO)

3416

3420

000020
RX .MAX,SEQ.CNT,
-(SP)
R3, (SP)

001176
001174

11%:

0000006

12%:

001146

12%
RD.MAX.SEQ.CNT,
R2, (SP)
PC,BLSDIV
RO,BST.CNT

(SP)

RX,COUNT,
o
RO.COIINT
o

13$

13¢:

85T7.0Ev,(SP)

3431

MADZ2,RO

342>

(SP)e,(SP).

3433

0000366

15¢:

012,.R1
R1,041

73
RANDOM.36, (SP)
€100000,(SP)
0144, (SP)
PC,8L $M0D

(SP)e,(SP).
RO,SWP .RAT
16$

164
:

000003

17$:
0000006
040000

020000

3424

PC,SET
. UPAR
MAD1,RO

COISK,16(RO)

144

3422

3426
3428
3430

#1,8ST CNT

COISK,16(RO)

000012

(2%)

3410
3467
3412
3414

108

144
920000, (RO?
144

010000

000001
001150

SEOPO32O

#40000,(R0O)

020000

105004
006004

010100
006300
063700

1984
1984

CST,.ADDR,RO

0000006
040000

103401

103105
105003
012701

Apr
Apr

R4
R4
Sl
R3
¢3,R1
R1,RO
RO

CST.ADDR,RO
€40000,(RO)
18
20000, (RO)

e OFFSET

e
OFFSET,

3418
3404

344"

SELECT.RD
SELECT.RO

3449
345°

MOD.COUNT

3400

e
OFFSET,

3464

s OFFSET

19
ZRQAME

RD/RXx EXERCISER

MUILTI DRIVE

vOl1.6

000552
000554
000560
000562
000566
000570
000572
000574
000576
000602
000604
000610
000614
000616
000620
000622
000624
000626
000630

001414

132710

001411
032710
001006
005000

150300
006300

B8EQ
BITB
8tQ
BIT

010000

CLR
8Ise

000064

062701
020127
003745

000012
000041

ASL
MOV

18¢:

001445
105002
005000
150200
006300
016046
042716
005046

016016
004737

105202

022626
013700
006300
063700
032710
001406
032710
001403
032710
001510
120227
001335

000504
105003
012701
010100
006300
063700
032710
001417
032710
001414
132710
001011
032710

INCB

ADD

BLE

105703

110316
004737
006300

000676
000702
000706
000710
000714
000716
000722
000724
000730
000732
000734
000736
000742
000744
000746
000752
000756
000760
000764
000766
000772
000774

TEST ROUTINES

000020

010160

105203

11
11

19%:

ASL
MOV

000064
0000006

0000006
040000

020000
010000
000020

000003

20%:

21s:
22%:

0000006
040000

020000
000020
010000

178

R2
RO
R2,RO
RO
RANOOM(RO), -(SP)
9100000, (SP)

-(SP)

R3,(SP)
PC,BL $MO0
RO

PC,SET.UPAR
R2

ASL
A0OD

BIT
BEQ
817
B8EQ
BIT
BEQ
CMPB
BNE

40000, (RO)
20
420000, (RO)
204
910000, (RO)
26%

CLRB

MOV
MOV
ASL
ADD

BIT
BEQ
8IT
BEQ
8178
BNE
8IT

DISKSUSERZ2: [POWFRS)IZRQADO . Bl 2;6

5€Q 0321

Page

90
(23)

MOD.COUNT,
»
OFFSET,
«,0FFSET

3471
3462

MOD
. COUNT

3478

TBL .COUNT

3481
3485

MOD
. COUNT
e
OFFSET

TBL,.COUNT,
»

MOD.COUNT
, ¢

(SP)
STORAGE(RO),

JSR
INCB
cMP

MOV

000000G

RO
R3,RO
RO
R1,STORAGE(RO)
R3
¢12,R1
R1,04:

214

JSR

16 v4.0 579

184
910000, (RO)
18

BEQG
CLR8
CLR
B8ISB

MOVB

VAX-11 Bliss

184

8IC
CLR

100000

11:08:35
11:08:22

920,(RO)

1518

ASL
MOV

Apr 1984
Apr-1984

TBL .COUNT

(SP)+,(SP)»
CUOFF RO

3486
34384
3488

CST7.ADDR,RO
3489
3490

R2, 420

«
TBL.COUNT,

R3
03,R1
R1,RO

MOD.COUNT

194
26%

«,0FFSET

»
OFFSET,

3491

3493
3506
3508
3510

CST.ADDR,RO

940000, (RO)

234
420000, (RO)

3511
3512

210000, (RO)

35132

1 9
ZRQAM3
vol.6
001000
001002
001004
001006
001010
00104
001016
001022
001026
001030
001032
001034
001036
001040
001042
001044
001050
001054
001056
001060
001064
001066
001072
001076
001100
001102
001106
001110
001114
001120
001122
001126
001130
001134
001136
001142
001144
001146
001150
001154
001156
001160
001164
001170
001172
001176
001200
001204
001206
001210
001212
001214
001220

RO/Rx

EXERCISER

MWL TI DRIVE

TEST

ROUTINES

001006
005000

BNE
CLR
8IsB

150300
006300

ASL
MOV

010160

105203
062701
020127

003745
105703
001445
105002
005000
150200
006300
016046
042716
005046
110316
004737
006300
016016
004737
105202
022626
013700
006300
063700
032710
001406
032710
001403
032710
001505
120227
001335
000501
105003
012701
010100
006300
063700
032710
001414

032710
001411
032710
001006
005000
159300
006300
010160

105203

11 Apr 1984
11-Apr-1984

000012
000041

23s:

INCB

ADD

cMe
BLE

TS18

8EQ
CLRB
CLR
81IS8

ASL
MOV

000000G
100000

8IC
CLR

MOVB

JSR

ASL
MOV

000064
000000G

JSR
INCB
cMP

MOV
ASL
ADD

000000G

0000006
040000
020000
010000

000020

000003

25$:
:
268
27%:
28s:

000000G
040000
020000
010000

000064

8IT
BEQ
8I7
BEQ
BIT
BEQ

224

R3
278
R2
RO
R2,.RO
RO
RANDOM(RO), (SP)
€100000,(SP)

-(SP)
R3,(SP)
PC,BL$MOD
RO

STORAGE(RO),(SP)
zC.SET.UPAR
2
(SP)e+ ,(SP).
CUOFF ,RO

Bliss

v4.0 579

DISK$USER2: [POWERS 1ZRQADO.BL2;6

5EQ 0322
Page
91
(23

;

MOD.COUNT,¢
OFFSET,»

;

MOD.COUNT

OFFSET,»

;

MOD.COUNT

;

TBL.COUNT

;

¢,0FFSEY

3516

3517

3508

3524
3527
3531

TBL.COUNT,
e

MOD.COUNT,
s

;

TBL .COUNT

3532

:
:

3530
3534

20000, (RO)
25$
€10000, (RO)
324

3535

;

3536

»
TBL.COUNT,

3537

324

:
:
;
s

MOD.COUNT
o,0FFSET
OFFSET,
e

3539
3550
3552
3554

CST.ADDR,RO
40000, (RO)

258

R2, 420
244

CLRB

MOV
MOV
ASL
ADD

R1,RO
RO

81T
BEQ
BIT
8EQ
BIT
BNE
CLR
8ISB

29
20000, {RO)
29¢
€10000,(RO)
29
RO

INCS

VAX-11

RO
R3,RO
RO
R1,STORAGE(RO)
R3
012,R1
R1,041

cMPB
BNE

ASL
MOV

11:08:35
11:08:22

CST.ADDR,RO
40000, (RO)

R3,R0O
RO
R1,STORAGE(RO)
R3

3555

3556

;s
i

3559

MOD.COUNT
,

OFFSET,

MOD.COUNT

3560

M9
ZRQAMZ

RD/RXx EXERCISER

vOol.6

MULTI

001222
001226
001232
001234
001236
0C1240
001242
001244
001246
001250
001254
001269
001262
001264
001270
001272
001276
001302
001304
001306
001312
001314
001320
001324
001326
001332
001334
001340
001342
001346
001350
001354
001362
001366
001374
001376
001404

:
:

062701
020127
003750
105703
001457
105002
005000
150200
006300
016046
042716
005046
110316
004737
006300
016016
004737
105202
022626
013700
006300
063700
032710
001406
032710
001403
032710
001403
120227
001335
013700
013760
013700
013760
000207
112737
000207

Rout ‘ne Size:
Maximum stack

DRIVE

TEST

11
11

ROUTINES

000012
000041

29¢:

ADD

VAX-11 Bliss 16 v4.0 579
DISKS
[POWERS
$USER
JZRQADO.BL2;6
R:

28¢

+« OFFSET

OFFSET,
;

CLRB
CLR
8ISB

MOV

RANDOM(RO), -(SP)
9100000, (SP)

MOVB

R3,(SP)
PC.BL$MOD
RO

81C
CLR

-(SP)

JSR

000000G

ASL
MOV

000064
000000G

PC,SET.UPAR
R2

(SP)e+,(SP)»
CUOFF ,RO

MOV
ASL
ADD

0000006
040000
020000

010000
000020

31%:

000112’
000000G 000016
000114’
000000G 000016

32%:

000001

33s:

000000G

387 words,
per

Rout ine Base:

invocation:

words

(23)
3552

3566

TBL .COUNT

3569
3573

s
MOD.COUNT,

TBL .COUNT

3574
3572
3576

CST.ADOR,RO

BIT
BEQ
81T
BEQ
BIT
8EQ
CMPB
BNE

€40000,(RO)

314

020000, (RO)

3577

314
210000, (RO)
324

R2, 020

304

MOV
MOV
MOV
MOV
RTS
MOVB
RTS

$CODES

STORAGE(RO),
(SP)

JSR
INCB
cMP

0000006

SEQ 0323

MOD.COUNT

, »
TBL .COUNT

ASL

0000006
100000

depth

11:08:35
11:08:22

412,R1
R1,041

CMP
BLE

TS18
BEQ

30%:

Apr-1984
Apr-1984

TBL.COUNT
, «

3579

MAD1,RO

3581

MADZ2,RO

3582

PC
91 ,EO0P .FLAG
PC

3568
3591
3336

COISK,16(R0O)

COISK, 16(RO)

3578

11020

N9
ZRQAM3

RD/RX EXERCISER

v0l1.6

MULTI DRIVE TEST ROUTINES

:
:

3594
3595

3596

H
:
H
H
H
:

:
H
H
H

:
:
:
H
:
H
H
H
H
H
;

H
H
B
H

H
H
:
H
:
:
H
H
:
H

H
:
:

xsa7
3598
3599
3600
3601
3602
3603
3604
3605
ggg?

3608
3609
3610
3611
612
3613
3614
3615
3616
2217
18

3619
3620
3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
gggg
3637
3638
3639

1
i

GLOBAL

i
1
1
1
1
1

H
!
'
!
H
!

1
1
1
1

3643

H
H
:

3644
3645
3646

2
3
3

11-Apr-1984 11:08:22
novalue

DISK$USER2: [POWERS 1ZRQADO.BL2; 6

THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE I/0 FUNCTION (OPCODE)
TO BE USED FOR THE CURRENT QIO OR QIO PAIR, THE FUNCTION IS DETERMINED
BY THE FOLLWING ALGORITHM:

'
'
'
'

IN ADDITION, IF THE OPERATOR SELECTED THE OPTION OF PERFORMING WRITE
COMPARES AT THE HOST, AND IF A "WRITE” FUNCTION WAS CHOSEN ABOVE FOR
THE FIRST QIO, THEN A "READ” OPCODE IS LOADED INTO THE SECOND MSCP
PACKET. OTHERWISE, THE SECOND MSCP PACKET IS RETURNED TO THE POCL.

'
H
'
'
!
!
!
H
'
'
H
'
!
!
'
H
!

ggz;

VAX-11 Bliss-16 v4.0-579

'
!
H
'

1
1
1
1
1
1
1
1
1
1
1
1
1
1
1
1}
{

1
2
2

QIO_FUNC

11:08:35

IF THE CHOSEN UNIT IS PROTECTED
THEN
FUNCTION = READ
ELSE (UNPROTECTED)
FUNCTION (WRITE OR READ) IS BASED ON A RANDOM
NUMBER

!
!
!
H
H
'

routine

1
1
1
1
1
1

3640

11-Apr-1984

PERIODIACLLY, THIS ROUTINE WILL CALL THE DUP ROUTINE BEFORE IT
BEGINS ITS OWN TASK. IF THE OPERATOR HAS SELECTED, “ALSO RUN
OUP EXERCISER,"” THEN DUP TESTING OF DBNS WILL BE INTERLEAVED
WITH THE REGULAR MSCP TESTING OF THE LBNS.

222
222z
222
222

TO AVOID LONG, CUMULATIVE INIT TIMES, THE DUP CODE IS ONLY
EXECUTED AFTER (25 TIMES '‘DUPROUND'
) MSCP I/0's HAVE BEEN DONE.
THE DUMBER OF DUP I/0's IS
DUPROUND'. THIS GIVES US A 25 TO 1
INTERLEAE.

222
222
222
22z

THE OUP TESTING IS DONE B8Y EXECUTING CONTROLLER LOCAL PROGRAMS
TO READ OR WRITE/READ DBNS. AFTER THE DUP TESTING, THE CON
TROLLER IS REINITIALIZED, AND QIO_FUNC ROUTINE CONTINUES FROM
WHERE IT LEFT OFF,

222
227
222
222

IMPLICIT

INPUTS:
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (CST
CUOFF - CURRENT UNIT CST OFFSET

IMPLICIT OQUTPUTS:
THE OPCODE FIELD OF ONE OR BOTH MSCP PACKETS

IS LOADED.

' -

begin
local

FUNC

OVUOFF

_CUOFF
;

(C.CST_ADDR
(.CST ADDR

word;

!
'SAVE

CASE

OTHER

TLEFT IN QUEUE
[.DUOFF « OF COUNT, D COUNT]) LEQ O) AND 'MSCP CNT=0
[.DUOFF, D TYPE]) NEQ RX S0) AND
'‘FIXED DISK

CMDS

OPCUDE
222

222
222
222

(READ OR WRITE)

SEQ 0324
Page

(24)

YTIZY YNV YV RV IV YV XV YV AV RV X7 NV N7 XV 7 X7 1 V%7 77 |

>X
‘n

RO/RXx EXERCISER
MATI ORIVE TEST

W
e Y W
LSS YL LSS SYV Y SN SY N VLV VST N VY SR VP YPRr A I

©F

G0 B

B¢

Vo 00

G0 00

G0 V0 B¢

B0 G¢

00 Po

V¢

GO B

G0 G0 PO G0

B10
11
11

ROUTINES

(.CST ADDR [.DUOFF

+ OF

DUPFLAGS,

Apr 1984
Apr-1984

NODUPMEDIA] NEQ 1))

11:08:35
11:08:22

VAX -11 Blies 16 V4.0-579
DISKSUSER2:
[POWERS 1ZRQADO.BL2;:6

56Q 0325
p

!MEDIA IN

222
222
THEN
222
BEGIN
222
PUT PKT ( . Mx2);
IRETURN 2ND ENVLOPE
222
MX2 = -1;
'INDICATE FAILURE
222
oDUP (),
'00 DUP TEST
222
CST_ADOR [ .DUOFF » OF COUNT, D_COUNT]) 'REINIT MSCP FUN
222
(25 ¢ .DUPROUND);
ICTION COUNTER
222
222
'
THE FOLLOWING REINITS 2 ENVELOPES, SO THMAT THE MSCP EXERCISER
222
'
CAN PROCEED AS BEFORE THE DUP EXERCISER WAS CALLED.
222
[]
222
OUP _FLAGS = .DUP _FLAGS OR SWwP _DINT,;
1SET DUP INIT FLAG
222
INIT_TEST ()
IREINIT CONTROLLER
222
DUP FLAGS = .DUP_FLEGS AND (NOT SWP DINT
;
(CLR DUP INIT DLAG
122
222
Mx2 =
1;
1ASSUME NO 2ND ENVELOPE
222
IF (MXx1 = GET_PKT (.CCTLR)) LSS O
'TRY FOR 1ST ENVELOPE
222
OR ( .EOP_FLAG)
'IF FAILURE
222
THEN
RE TURN;
'NO POINT TO GO ON
222
IF (MX2 « GET_PKT (.CCTLR)) LSS O
'TRY FOR 2ND ENVELOPE
222
OR (.EOP_FLAG)
'IF FAILURE
227
THEN
BEGIN
222
PUT _PKT ( .MX1);
'PUT 1ST BACK IN POOL
222
Mxl « -1;
'INDICATE FAILURE
222
RE TURN;
tOONE
222
END;
222
222
MAD] = MSCP PKT o (. MX]1 o PKT LEN ¢ 2); 'CALC START ADDR
227
MAD2 = MSCP PKT & ( ,MX2 e PKT LEN ¢ 2)3 !OF BO'M ENVELOPES 222
GET RANDOM ()
1GET SET OF RANDOM NOS
222
QIO UNIT ();
1PUT RAND UNIT NO IN
222
ENO;
1ENVEL
OPE 5
222
222
MSCP CODE STARTS HERE
222
222
CST_ADOR (.CUOFF « OF COUNT, D COUNT]) .CST_ADOR [.CUOFF + OF COUNT, D COUNT]
MAD2

[OPCOOE)

else

FUNC
if

ASSUME

+ OF DATA,
+ OF DATA,

D PROT] eal UNPROTECTED) and
D TPt] eaql ¢ IXED) and

2ND PACKET

FORCED ERROR
REWRITE

SAME

NOT

NEEOED

SET

IN L4ST

BLOCK

« OP_WRT

.CST

then

!
222
!'DECR MSCP FUNCTION CNTR 222

(.CST_ADDR (.CUOFF
(.CST_ADDR [.CUOFF
( .FORCED _ERROR)

then

FUNC

ADDR
-

[ .CUOFF

OP RD

DATA,

D PROT] eql

PROTECTED

I[F
SET

UNIT

IS PROTECTED

FUNCYION

TO RE QD

REAC,

ClO
RD/Rx EXERCISER

vOl.6

MALTI DRIVE

3°11
3”712
3713
3714
$715
3716
TLe

3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731

5732
3733
3734
3735
3736
3737
3738
3739
3740
37431
3742
3743
3744

000012
0009016

11
11

TEST ROUTINES

Apr
Apr

1984
1984

11:08:85
11:08:22

VAX-11 Bliss 16 V4.0 579
DISKSUSER?
: [POWERS JZRQADO.BL2; 6

5EQ 0326
Page
952
(24)

else

NN,

3700
2701
3702
3708
37
3705
37
3707
37
3709
3710

PNV WEHENNVNNWWHE R WHRNWWL BB RBWEUWWWWO WWWNNNMNMNNAR

GBS

B¢

G¢

G0 G!

V¢

GO GO G0

JRQAMS

(.RANDOM

then

else
if

(MAD1

then

beg'

and

FUNC

« OP WRT;

[OPCODE)

USE

2ND RANODOM NUMBER

SFLECT

READ

WRITE

FUNC) eql OP WRT

LOAD CHOSEN OPCODE.

NON

WRITE

MAD1
if

(1)

(CMD

TYPE)

BIT_TST

(SWP

then

else

MAD1

FLAGS,

(MODIFY]

+f BIT_TST
then

NON SEQ CMO;
SWF

CuWC)

= MD CMP

(SWP_FLAGS,

SWF HW(C)

SEQUENTIAL

CONTROLLER

ADD

COMPARE

HOST

DOES

COMMAND

DOES

WRITE

COMPARES

MODIF IER

WRITE

COMPARES

begin

MAD1

(TMMODIFY)

MAD2
MAD2

(OPCODE)
(MOODIFY]

MAD2
end;

(ZMD

= MD EXP;

=
=«

TYPE)

OP RD;
MD EXP;
=

NON

SEQ

CMD;

SET
SET
SET
NON

WRITE AS AN EXPRESS REQUEST
READ OPCODE INTO 2ND MSCP PACKET
READ AS AN EXPRESS REQUEST TOO
SEQUENTIAL COMMAND

NON

SEQUENTIAL

end

else

.
[N al

MAD1
if

[CMD

BIT

then

TYPE]

TST

MAD]1

NON_SEQ_CMD;

(SWP FLAGS,

{MODIFY)

SWF

CRC)

« MO CMP;

READ

COMMAND

COMPARES

ADD

COMPARE

NO OPCODE

!
'

RETURN 2ND PACKE”
MARK IT UNUSED

ROUTINE

FUNCTION

IS READ

MODIFIER

end;
if _MAD2 [GPCODE) eal
then
begin
pUT _PKT (.Mx2);
1;
MX2 =
end;

end;

004137

0000006

013737
013702
013701

0000006 001156
0000006
001156

LSBTTL

QIO.FUNC::
JSR
MOV
MOV
MOV

QIO.FUNC MULTI DRIVE
R1,8SAVEA
CUOFF ,DUOFF
CST.ADDR,R2
OUOFF ,R1

TEST

IN 2ND PACKET
T0O POOL

QIO FUNC

RQUTINES
:
3
:

3594
2043
2nas

D10

042737
012737

013716

TEST

ROUTINES

000022

004737
012737
022626

000207
013716
012746
004737
062700
010037
013716

BGT

44
R1,RO
RO
Re.RO
020,(RO)
41
R1,RO
RO
R2,RO

MOV
ASL
ADD

8118
BEQ

000020

MOV
ASL
ADD

TST
8MI

MOV
177777

JSR

MOV

000110

JSR

MOV
ASL
ADD

MOV

JSR

MOV

000002

177777

8IS
JSR
BIC

000000G

000110°

MOV

MOV
JSR
MOV
BLT

000001

0000006

8IT8
BNE

013716
004737
010037/
002404

132737
001411
013716

R1,.RO
RO
R2,RO

ASL
ADD
TST

004737
010037
0024:.6

132737
001022

MOV

JSR

MOV

000106
000000G
177777
000106’

000106°
000106

0000006
0000006
000112’
000110’

1%:

eLT
8IT8
8EQ

MOV

JSR
MOV
2$:

3s:

RTS
MOV
MOV

JSR

ADD
MOV
MOV

1984
1984

11:08:35
11:08:22

VAX-11 Blies 16 v4,.0 579
DISK
: [ SUSE
POWERS JZRQADO.BL2;
RZ
6

JEQP0327 o
(24)

22(RO)

36445

3647

20(RO)

44
Mx2, -(SP)
PC.PUT PKT
o 1,Mx2

3551

PC,OUP
OUOFF ,R1

3652
3653
3654

CST.ADOR,R1
DUPROUND, (SP)

3655

231, -(SP)
PC.BLSMUL
RO,22(R1)
02,0UP
. FLAGS
PC,INIT TEST
@2,0UP FLAGS
o 1,Mx2

CCTLR,(SP)

PC.GET

®e

000104
000110
000114
000116
000122
000126
000132
000136
000142
00015¢
000154
000162
000170
000174
000200
000204
000206
000214
000216
000222
000226
000232
000234
000242
000244
000250
000254
000262
000264
000266
000272
000276
000302
000306
000112

DRIVF

Apr
Apr

000034

010100
006300
060200
005760
003146
010100
006300
060200
132710
001540
010100
006300
060200
005760
100532
013746
004737
012737
004737
013701
006301
063701
013716
012746
004737
010061
052737
004737

MATI

11
11

®e

000024
000026
000030

EXERCISER

000022

RDO/Rx

JRUAMZ
vol.e

PKT

RO, MXx1

24
@1,.EO0P.FLAG
2

CCTLR,(SP)

PC,GET PKT
RO MX?2
18

. FLAG
01,E0P
3
Mx1,(SP)
PC,PUT
. PKT

o 1,Mx1
(SP)e ,(SP)»

Mxl,(SP)
0106, (SP)

PC.BLSMUL
RO
CP
. PKT
OMS

RO,MAD1
MX2,(SP)

3666
3594
3668

EL1O

ZRQAMX

RD/Rx EXERCISER

vol.6

MULTI DRIVE

000316
000322
000326
000332
000336

012746
004737
062700
010037
004737

000106
0000006
0000006
000114
010710

000346
000352
000356
000360

062706
013700
006300
063700

000010
0000006

000342

000364

000370
000374
000400

004737

005360
013701
012704
060104

000402
000404
C00410
000412
000416
000420
000422
000426
000430
000436
000440
000444
000446
000454

105014
013700
006300
063700
005710
100007
132710
001404
132737
001012
032710
001404
032737
001403

000462
000464
00047C
000474
000500
000504
000510
000512
000520
000524
000526
000532
000534
000542
000546
000554
000562
000564
000572
000576
000600
000606
000510
000612

000402
012702
013700
013703
110260
020227
001025
112760
032703
001025
032703
001425
012760
112714
012761
112761
000411
112760
032703
001403
012760
105714
001010
013746

000456

012702

TEST ROUTINES

011020’

a4 ;

000022

0000006
0000006

000020
000000G

100000

S5%:
000002G

000041

6$:

000042
000112°
000000G
000022
000042

78
8s:

000002
000020

000004

000040
100000
000041
100000
000002

000024

000002
000004

000004

9s:

040000

000024

104 :
113:

000110°

000024
000004

Apr

MOV
JSR
ADD
MOV
JSR

0106, (SP)
PC.8L $M
oMSCP
. PKT RO
RO ,MAD2

RDD
MOV
ASL
ADD

010,SP
CUOFF ,RO
RO
CST.ADDR,RO

OEC

000114
000022

000001

JSR

000000G

000001

11 Apr 1984 11:08:35

11:08:22

DISKSUSERZ2: {POWERS]ZRQADO.BL2: 6

3
> ngqsa
97

(24)

PC,.GET .RANDOM
PC,QIO0.UNIT

:
:

3650
3685

22(R0O)

3686

3690

3691

:
H
H
;
H

3692
3694
3697
3699
3702

MOV
MOV
ADD

MAD2,R1
022 ,R4
R1.R4

CLRB
MOV
ASL
ADD
1ST
8PL
8IT8
8EQ
8IT8
BNE
8IT
8EQ
8IT
8EQ

(R4)
CUOFF RO
RO
CST.ADDR,RO
(RO)
S
920,(RO)
5%
41,FORCED.ERROR
78
#100000, (RO)
64
01 ,RANDOM.2
73

B8R
MOV
MOV
MOV
MOVB
CHP
BNE
MOve
BIT
BNE
BIT
BEQ
MOV
MOVB
MOV
MOVB
BR
MOVB
BIT
B8EQ
MOV
15718
BNE
MOV

8s
042 ,R2
MAD1,RO
SWP . FLAGS ,R3
R2,22(R0O)
R2,042
93
92,4(RO)
020,R3
104
040,R3
118
¢-100000,24(R0O)
041,(R4)
0-100000,24(R1)
92,4(R1)
118
02,4(RO)
94 ,R3
118
©€40000,24(R0O)
(R4)
124
Mx2, (SP)

MOV

1984

VAX-11 Bliss 16 v4.,0 579

041,Re

3578
3679

;

:
;
;
H
:
i

3688

¢ FUNC
¢, FUNC
FUNC,»
FUNC,»

3704

3702
3706
3708
3713
3708

H
:

3711
3713

3718

;

37215

H
;
i
3
]
H

3721
370
3723
3724
3708
3729

'
H

3732
3°3”

3740

3731

F10
ZRQAM3

RD/RX EXERCISER

vol1.6

000616
000622
000630
000632

;
:

MULTI ORIVE

004737
012737
005726
000207

TEST

ROUTINES

0000006
177777

11-Apr
11 Apr

JSR

000110’

12¢$:

PC,PUT ,PKT
8-1,Mx2

MOV
TST
RTS

$CODES
206 words,
Rout ine Base:
Rout ‘ne Size:
10 words
Maxvimum stack depth per invocation:

(SP).

12426

1984
1984

11:08:35
11:08:22

VAX-11 Bliss-16 V4,0 579

DISKSUSERZ2:
[POWERS ]JZRQADO.BL2; 6

SEQ 0329
Page

(24)
3741
3739
3594

(10
ZRQAAMR
vOol.6
:

3745

747

:
3

RO/RXx EXERCISER
MULTI DRIVE TEST ROUTINES
1

;’46

GLOBAL ROUTINE DUP

3748
3749

!
!

3°52

H
3

3720
751

1
1

H
H
H

3753
3754
3755

1
1}
1

3757

375¢

3758

3761

H
3
3

H
H
H
H
3
H
H
:
:

:
H
H
H
:
:
H
H
3

H
H
:

3759
3760
3762
3763
3764
3765
3766

3767
3768
3769
3770

1
1

1
1
1
1
1

3771
3772
3773
3774
3775
3776
3777
3778

1
1
1
1
1
1
1
)
1
1
1
1

3780
3781
3782

1
1
1

3779

‘e

NOVALUE

11
11

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX-11 Bliss 16 V4,0 S79
DISKSUSERZ2:
[POWERS )ZRQADO .6

222

THIS ROUTINE IS CALLED BY QIO_FUNC AFTER 25 ¢ 'DUPROUND® RD/WTS,
THIS EXERCISER WAS PLACED IN THE MIDDLE OF THE MSCP EXERCISER,

222
222

THE

222

!
H

SO COMMON INIT AND OTHMER ROUTINES COWLD BE WUSED.

!
!
!

COMPARE OPERATIONS ON THE DIAGNOSTIC BLOCKS (DBNS).
RECORD THE STATISTICS IN THE TALLY TABLES.

OBNS.

!
!

THE ROUTINE WILL WRITE 'OUPROUND‘' NUMBER OF SEQUENTIAL D8N
222
BLOCKS. IF THE CONTROLLER LOCAL PROGRAMS EXIST, AND THE OPERATOR 222

!
!
!
!
!

PERFORMED ON THE DBNS. OTHERWISE, READS WITH NO COMPARES WILL BE 222
OONE. BAD BLOCKS FOUND IN THE COMPARISON TESTS WILL NOT BE LIST- 227
ED IN THE RCT TABLES.
222
222
AFTER 'DUPROUND' NUMBER OF DBNS HAVE BEEN TESTED, THE ENVELOPES
222

'
!

!
!
!
'
H
!
!
H
'
'
H
!
'

!
'

DUP EXERCISER WILL PERFORM EITHER READ-ONLY,

THE PROGRAM USES CONTROLLER LOCAL PROGRAMS

WHEN WRITING TO THE DBNS,

SELECTED,
SELECTS

IT wWILL

TO WRITE AND READ

A ONE WORD PATTERN WILL Bt

AND REPLICATED THROUGH A 256 WORD BLOCK FOR DATA,

'WRITE

TO ODIAGNOSTIC AREA',

WILL BE REINITIATED,
AS BEFORE.
IMPLICIT

OR WRITE READ

INPUTS:

SO THAT

WRITE-READ-COMPARES WILL BE

THE MSCP EXERCISER CAN CONTINUE

CCTLR - CURRENT CONTROLLER NUMBER
CST_ADDRS - CONTAINS THE CURRENT CONTROLLER
STATUS TABLE
CUOFF - CURRENT OQFFSET IN CST TABLE FOR
PARTICULAR DRIVE

IMPLICIT OQUTPUTS:
S PATTERN

PATTERN BEING WRITTEN

TO DBNS

55;
222
g;g
222

222

222
227

222
222
222
222
222
222
222
222
222
222
222
222
222

0222
0272

1222

5EQ@ 0330

Page

99
(25)

HL1O
ZRQAME

RD/RXx EXERCISER
MATI DRIVE TEST

3813
3814
WRITE DB
3815
3816
3817

BDWZWw

3818
3819
3820
3821
3822
3823
3824
3825
3826
3827
3828

BEGIN
OWN

TEMP

3829

001204
001204

Apr

1984

11:08:35

VAX-11

11 Apr 1984 11:08:22

ROUTINES

Bliss

v4.0 579

DISKS$USERZ: [POWERS }ZRQADO .BL2;: 6

56Q 0331
Page 100

(2%6)

WORD;

!PRINTX (D8M110);
'PRINTX (DER10);

until (.CRN_LOW eqlu
(:EOP_FLAG eql

.RP ADDR

[CRF_LO]}) or

true) do

TO ENSURE
Make sure

THAT ALL RETURN MESSAGES HAVE BEEN PROCESSED
all MSCP commands are completed

[X o]

BREAK FOR ACT

BREAK;
PROC _RETPKT();
RP INOX = _RP INDX + 1;
¢ RP_INOX
Qq RP_CNT then (RP_INDX = 0;);
RP_ADDR = RETPKT + (.RP INDX o RP LEN ¢ 2);
end;

S_PATTERN =

PROCESS

RETURN PACKET

SEE

FOR

DWP

INCREMENT RP_INDX

MAKE

SURE

THE

COUNTER DOES

CALCUWLATE RETPKT

_RANDOM (1];

'OTHER UNIT

ADDRESS

NOT

GET

TO BIG

VARIABLES

IF (.CST_ADOR [.DUOFF « OF _DBN, D_DBN]) + .dupround) GEQ
THEN (CST ADOR [ .DUOFF . OF DBN, D_DBN] = 0);

144
! TEST TO SEE IF NEXT DBN'S
! CIKCLE ARROUND IF DBN TO LARGE

OUPIDLE ();
IF .CS”TM _ADDR

TEMP

[ .DUOFF

_CST_ADOR

OF DBN,

(.DUOFF

INCR DBNCNT FROM (.TEMP

.«

NOOUPMEDIA] EQL

OF DBN,

DO A GET

THEN RETURN;

DUST

STATUS

TO (.TEMP

BEGIN
IF .CST_ADDR ([ .DUOFF

+ OF DBN,

DUPWRITE)

TO FIND

IF DUP LOCAL MEDIA NOT

D_DBN]);

.dupround) DO

TO LARGE

LOCAL

THERE

DUP MEDIA

THEN RETURN

INCREMENT FROM RELATIVE
!

WRITE

FLAG

DBN TO DBN

SET

IN CST

dupro

TABLE

THE

IDLE

STA

THEN

BEGIN
DUPIDLE ();

4%0 o o0 P

3805
3806
3807
3808
3809
3810
3811
3812

NN NWUHHEHWNWNNENNWND

3783
3784
3785
3786
3787
3788
3789
3790
3791
3792
3793
37
3795
379¢
3797
3798
3799
3800
3801
3802
3803

NN
NN e e
NNV
W
WWW RN

-oSo----c-o.-“uunuuuuflmuflu-uuuuuflfluu

v0l.6

DUPWRTDBN ();
END;
DUPIDLE ();
OUPREDDBN ();

CST_ADDR
IF

END;

[.DUOFF

.CST_ADDR

THEN RETURN;
END;

OF DBN,

[.DUOFF

TEMP

D_DBN]
DBN,

.PSECT

.BLKW

,CST

ADDR

DUPERROR] €fQL

$GGGS,
1

[.DUOFF
1

DBN,

MAKE

SURE

CALL

ROUTINE

!
!

MAKE
CALL

SURE CONTROLLER IN IDLE STATE
ROUTINE TO HANDLE READING DBN S

D DBN]
!

ERROR

THE

CONTROLLER
TO HANDLE

IN AN

WRITTING ROUTINES

INCREMENT RELATIVE 08BN COUNTER

IN DUP REINITIALIZE

AND RETURN

110
RD/Rx

EXERCISER

MA TI

DRIVE

TEST

ROUTINES

013262

105037
013703
063703
013700

006300
063700
010001
062701
013702
000427

JSR

R1,$SAVES
RP . ADDR ,RO
gRN.LOH.a(RO)

MOV

cHe
BEQ
cMPB
8EQ

0000006 000001

TRAP

000010

2%:

JSR
INC
ce
BLTy
CLR
MOV
MOV
JSR
ADD

0000026
001156

3s:

$CODES$,

VAX -11 Bliss

v4 .0 579

DISKFSUSER? : [POWERS JZRQADO.BL2 ;6

5EQ 0332
Page 101

(25)

TEST ROUTINES
H
:

3745
3792

3793

EOP.FLAG,
@1
3
22

PC.PROC.RETPKT
RP . INDX
RP.INDX,
210

RP . INDX
RP ., INDX, -(SP)
54, -(SP)

;

3794

3796

3797

3798

;

3799

PC.BLSMA

ORETPKT
RO
RO.RP
_ ADDR

(SP)s,(SP).
14

OUOFF ,RO

;

RANDOM+2
, S, PATTERN

3794

3792

3803
3805

CST.ADDR,RO

000020
0000006
000220

20(RO),R1
ODUPROUND
,R1

R1,0220
'Y}

000020
000000V
00:156

20(RO)

MOv8

CLR8
ADD

MOV
AS.
ADD
MOv
ADD

0000006
000020
001204

Q0arys?

000000v

3806

DUOFF ,RO

3309

3811

38:2

;

38:4

3808

20(RO)

000020
001204
001205
001204
0000006
001156

010000

PC.OUPIDLE

RO
CST.ADDR,RO

000020

032711

001404

DUP MULTI DRIVE

11:08:35
11:08:22

Ss:

MOV
B8R
glI7Y
8tQ
JOR

20(RO), TEMP
TEMP.
1
TEMP ,RS

,R3
OUPROUND
OUOFF ,RO

CST.ADDR,RO

RO,R1

020,R1

TEMP RO
73

@10000,(R1)
63

PC.OUPIDLE

¢ ,DBNCNT

xA1q
~

022626
000737
013737
013700
006300
063700
005001
156001
063701
020127
002402
105060
004737
013700
006300
063700
005760
100456
116037

.SBTTL
.PSECY

1984
1984

i 9

004137
013700
023760
001433
123727
001427
104422
004737
005237
023727
002402
005037
013746
012746
004737
062700
010037

Apr
Apr

Q0000
000004
000010
000016
000020
000026
000030

11
11

2
<RQAM
VOl.6

;:
i

Routine Size:
Max'mum stack

3830

DRIVE

000000V
000000V
000000V
001156

TEST

ROUTINES

JSR
JSR
JSR

PC,DUPWRTDBN

ASL

MOV

RO,R1
920,R1

8s:

110 wordgs,
Rout ine Base:
7 wordas
depth per invocat on:

INCB
8Iv
BNE
INC
o4
oy

R2
R2,R3

5EQ 0333
Page

102
(26)

3318
3821
3822
3824

RTS

(R1)

040000, (R1)

BLE

$CODES

VAX 11 Bliss 16 v4,0 579
DISKS$USERZ
: [POWFRS ]ZRAGADO.BLZ ;6

CST.ADDR,RO

ADD

040000

11:08:35
11:08:22

OUOFF RO

ADD

000020

1984
1984

PC.OUPIODLE
PC,DUPREDDBN

MOV

0000006

Apr
Apr

13262

3826

004787
004737
004737
013700
006300
063700
010001
062701
105211
032711
001003
005202
020203
003746
0V0207

MU TI

11
11

®e

000260
C00264
000270
¢ 4
30300
000302
000306
000310
000314
000316
000322
000324
000326
000330
000332

EXERCISER

vOl.6

RD/Ax

ZRQAMS

OBNCNT

DBNCNT
,o

3827
3812

2746

<10
ZRQAM3

RD/RX EXERCISER
MULTI-DRIVE TEST
s =8 gt o =0 Pt pt ps s ps po s
e 1=
TONIN NN

3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869

VDD WNDONNVNVNVNVNVVVNNVVND

3831
3832
3833
3834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849

3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
5880
3881
3882
3883

WDV WWRD WDV

@ ot B 80 ®s @ s B B3 ee 80 we @0 o g0 @t @s @s ®s @1 @1 we e ®s @0 w1 ®s @ @0 @0 8c @ @0 00 0s oo o0 80 ®e % @ @0 Or S be @ G0 00 @ ®0 00 00 @ @0

VOl.6

GLOBAL

11
11

ROUTINES

ROUTINE DUPWRTDBN

NOVALUE

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX-11

Bliss

SEQ 0334

v4.0 579

DISK$USERZ2:
{PNWERS JZRQGADO.BL2; 6

Page

103

THIS ROUTINE IS CALLED B8Y DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM
TO USE THE PROGRAM THE OPTIONAL DUP SUB-PROTOCAL IS USED TO
"WRTDBN".

COMMUNICATE WITH THE CONTROLLER.

THE PROGRAM WRITES TO A DIAGONOSTIC BLOCK (DB8N)
THE WORD IN "S_PATTERN” IS WRITTEN TO THE 256 WORDS IN THE DBN.
IF AN ERROR OCCURS
WHILE RUNNING THE CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE
DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK #, DEVICE ERROR, ZERO LENGHT MSG)

IMPLICIT

INPUTS:
CST_ADDRS
OUOFF
S_PATTERN

!
BEGIN
'PRINTX (DER11);
T_ADOR (T_DBN_WT]

- CONTAINS THE CURRENT CONTROLLER STATUS TABLE
- CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE
- CONTAINS PATTERN WORD!
-

.T_ADOR

[T _DBN_WT]

INCREMENT & GF

WRITES GIVEN

MSCP_PKT

[.Mx1,

MSGLEN]

= SZ_ELP;

PACKETY SIZE

MSCP_PKT
MSCP _PKT
MSCP_PXT
MSCP _PKT

[.Mx1,
[.MX1,
[.MX1,
[.MX1,

OPCODE] = OP_ELP;
L1) = sascii'W';
L2] = sascii‘R’';
L3) = #ascii'T';

!
!

OPCODE = EXECUTE LOCAL PROGRAM
FILL IN PROGRAM NAME WITH ASCII

!
!
!

STANDALONE MODIFIER
CALL IT IMMEDIATE
SENDS AND RECEIVES THE

MSCP _PKT
MSCP_PKT
MSCP_PKT

[.MX1,
[ .MX1,
[.MX1,

L4)
LS)
L6)

MSCP_PKT

[ .MX1,

MSGTYP]

.CST_ADDR

THEN RETURN;

00 (Mx1

UNTIL

[.DUOFF

+«

IMM_CMD;

OF DBN,

DUPERROR)

MSCP_PKT
MSCP_PKT

[.MX1,
[.MX1,

MSCP_PKT

[.Mx1,

MSCP _PKT ([ .MX1,

[.MX1,
([.MX1,

MSCP _PKT
MSCP_PKT

DUPCOMMAND ();

LETTERS

COMMAND

AND RETURN

MSGLEN)
OPCODE)

BC_LO)

=
=

TRY

TO GET

AN ENVELOPE.

!
!
!

SZ_REC;
OP_RCD;

= 80;

IF FAILURE LOOP PRG ERROR

PACKET SIZE
RECIEVE DATA
OPCODE = RECEIVE DATA
BYTE COUNT TO BE TRANSFERED EQUALS 2 ssssee pg 26 of DUP s

MODIFY)

BUF _0] = DUPPKT;
=

LOAD DESCRIBTOR BUFFER

MSGTYP])

SEQ_CMD;

CALL IT sequential
SENDS AND RECEIVES
EQL

THE COMMAND

1) OR

‘'status error
‘dup type error

THEN

(HARD _ERROR ();
CST ADDR [ .DUOFF
RETURN;
);

‘status error

(.CST_ADDR [ .DUOFF + OF DBN, DUPERROR)
(.OUPPKT [DUPTYPE] NEQU 1) OR
(.OUPPKT [DUPMESG] NEQU 6)

DO (Mx1

PROGRAM WRT

(.CCTLR))

(.MX1 GEQ 0);

EQL

= GET_PKT

LOCAL

= sascii'D';
= #ascii‘'B’;
= sascii'N';

MSCP _PKT ([.MX1, MODIFY) = 1;

DUPCOMMAND ();

EXECUTE

GET_PKT

(,CCTLR))

OF DBN,

DUPERROR)

*1;
! SET FLAG
! NO POINT IN CONTINUING

L 1O
ZRQAM3

RD/RX EXERCISER

vO0l1.6

MULTI-DRIVE

TEST ROUTINES

Apr

1984

11-Apr-1984

11:08:35

11:08:22

VAX-11 Bliss

DISKSUSERZ2: [POWERS ]JZRQADO.BL2:6

gggg

UNTIL (.Mx1 GEQ 0);

3886

MSCP_PKT

:
:
:
H
H

3888
3889
3890
3891
3892

¢
2
2
2
2

MSCP_PKT (.MX1, BC_LO) = 6;
! BYTE COUNT TO BE TRANSFERED EQUALS 6
MSCP_PKT [ .Mx1, BUF _0) = DUPPKT;
' LOAD DESCRIBTOR BUFFER
DUPPKT (DUPBFOQO) = .CST_ADDR (.DUOFF, D_DISK_NUM]; 'LOAD UNIT NUMBER (RDRX)
OUPPKT (DUPBF1]) = .CST_ADDR (.DUOFF + OF _DBN, D DBN];
! LOAD DBN NUMBER
OUPPKT [DUPBF2) = .S_PATTERN;
* LOAD PATTERN

gggz

OUPCOMMAND ();

:
:

3887

3893
3894

MSCP_PKT

2
2

MSCP _PKT
MSCP_PKT

[ .MX1, MSGLEN])
[.MX1,

OPCODE)

{ .MX1,
[ .MX1,

MODIFY])
MSGTYP)

:
:
H
3
:
:
H
:
H
:
H

3897
3898
3899
3900
3901
902
3903
3904
3905
3906
3907

2
2
2
3
2
2
2
2
2
2
2

gggg

H
H
H
:
H
:
:
H

3911
3912
3913
3914
3915
3916
3917
ggig

2
2
2
3
2
3
3
g

:
:

3920
gggé

3
S

D0 (Mx1 = GET_PKT (.CCTLR))
UNTIL (.MX1 GEQ 0);

ggg:

T_ADDR [T _BLK_WT]}

3925

END;

3908

IF .CST_ADDR [.DUOFF
THEN RETURN;
.

010146

000002
000006
000012
000016
000022
000026

013700
005260
013746
012746
004737
012760

OP_SDD;

= O;
= SEQ_CMD;

+ OF _DBN,

MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP_PKT

{.Mx1,
([ .MX1,
[.Mx1,
[ .MX1,
(.Mx1,

[.Mx1,

DUPCOMMAND ();

DUPERROR] EQL

TRY

_T_ADOR

[T BLK_WT]

PACKET SIZE

TRY

OPCODE

status error

Page

104

(27)

IF FAILURE LOOP PRG ERROR

SEND DATA

CALL

gequential

SENDS AND RECEIVES THE COMMAND

TO GET AN ENVELOPE.

IF FAILURE LOOP PRG ERROR

!
!
!
!
!

PACKET SIZE
OPCODE = RECEIVE DATA
BYTE COUNT TO BE TRANSFERED EQUALS 4
LOAD DESCRIBTOR BUFFER

SENDS AND RECEIVES

CALL

sequential

RECEIVE DATA

THE COMMAND

1) or
‘status error
'dup type error
tnon successful write code
=

1;
' SET FLAG
! NO POINT IN CONTINUING

TO GET AN ENVELOPE.

'INCREMENT COUNTER

.SBTTL

DUPWRTOBN MULTI DRIVE

MOV

R1,

MOV
INC
MOV
MOV
JSR
MOV

'
!

OUPWRTDBN:
:
000000G
000060
000106°
000106
000000G
000022
000006G

SEQ_CMD;

IF (.CST_ADDR ([ .DUOFF + OF _DBN, DUPERROR) EQL
(.OUPPKT (DUPTYPE]) NEQU 3) or
( .OUPPKT [DUPMESG] NEQU 3) or
( .DUPPKT [DUPBF1] NEQU O)
THEN
(HARD _ERROR ();
CST_ADDR ([ .DUOFF + OF _DBN, DUPERROR])
RETURN; );

TRY TO GET AN ENVELOPE.

MSGLEN] = SZ_REC;
OPCODE] = OP_RCD;
BC_LO] = 4;
BUF _0] = DUPPKT;
MODIFY]) = O;
MSGTYP]

¢t
!

DO (MX1 = GET_PKT (.CCTLR))
UNTIL (.MX1 GEQ 0);

000000

= SZ_SEN;

SEQ 0335

16 v4
0 579

T.ADDR,RO
60(RO)
MXx1l, -(SP)
2106, (SP)
PC.BL SMUL
022 ,MSCP .PKT+6(RO)

A SUCCESS

TEST ROUTINES
:

3831

3849

384"

M10O

012760

142760
004737
013700
006300
063700
032760
001402
022626
000505
013716
004737
010037
002771
010016
012746
004737
012760
112760
012760
012760
005060
142760
152760
004737
013700

sICs
JSR

MOV
ASL
ADD

000000G
040000
000020

0000006

1$:

000312
000316
000320
000324
000330
000334
000336
000342
000346

000350
000354
000362
000366
000370

MOV

JSR

MOV

eLy

MOV
MOV

000034
000005
000120
000000G

0000066
000022G
0000266
000032G

000360
000020

000010G
000010G

JSR

MOV
MOVB
MOV
MOV

CLR
8IC8

8IS8
JSR
MOV
ASL
ADD

006300

063700
032760
001016
013700
042700
020027
001007
013700
042700
020027
001415
004737
013700
006300
063700
052760
062706
000504
013716

BIT
8EQ
CMP
B8R

040000

BIT
BNE

000020

MOV

8IC
CMP
BNE
MOV

000000V
001156
000000G

040000
000006

0000006

2$:

B8IC
CMP
8EQ
JSR

MOV
ASL
ADD

000020

8IS

ADD

3s:

44:

B8R

MOV

o
e
We

43 ,MSCP.PKT+22(RO)
#127 ,MSCP .PKT+26(RO)
€122 ,MSCP .PKT+27(RO)
9124 ,MSCP .PKT+30(RO)
9104 ,MSCP .PKT+31(RO)
9102,MSCP .PKT+32(RO)
2116 ,MSCP .PKT+33(R0O)
01 ,MSCP.PKT+24(R0O)
2360,MSCP.PKT+10(RO)
PC,0UPCOMMAND
OUOFF ,RO

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOV

000022G
000026G
000027G
000030G
000031G
000032G
000033G
000024G
000010G

000003
000127
000122
000124
000104
000102
000116
000001
000360
000000V
001156

Bliss

v4,0 S79

DISK$USERZ:
[POWERS JZRQADO.BL2;6

112760
112760
112760
112760
112760
112760
112760

VAX-11

000034

TEST ROUTINES

11:08:35
11:08:22

®e

MULTI-DRIVE

vol1.6

11-Apr-1984
11-Apr-1984

®e

RD/RX EXERCISER

ZRQAM3

SEQ 0336
Page 105
(27)
3850
3851
3852
3853
3854
3855
3856
3857
3858
3859
3861

CST.ADOR,RO

940000,20(R0)
1

(SP)+,(SP).

CCTLR,(SP)

PC.GET ,PKT
RO,MX1
1$
RO,(SP)
@106, -(SP)
PC,.BLSMUL
034 ,MSCP.PKT+6(RO)

95 ,MSCP .PKT+22(RO)

9120 ,MSCP .PKT+26(RO)

QDUPPKT ,MSCP.PKT +32(R0O)

MSCP .PKT+24(RO)
0360,,MSCP.PKT+10(RO)
920,MSCP ,PKT+10(RO)
PC,DUPCOMMAND
DUOFF ,RO
RO

3831
3862
3864

3865
3867

3868
3869
3870
3871
3872
3873
3875

CST.ADDR,RO

340000.20(R0)
$
ODUPPKT ,RO
#7777 ,RO
RO, 210000
24
DUPPKT ,RO
4170000,R0
RO, 96

3876

3877

PC,HARD.ERROR
DUOFF ,RO
RO

2879
3880

CST.ADDR,RO

€40000,20(R0O)

46,5P
5%
CCTLR.(SP)

3881
3879
3883

ZRQAM3

RD/RX EXERCISER

vol.6

MULTI-ORIVE

000374
000400
000404
000406
000410
000414
000420
000426
000434
000442

000450
000454
000456

000462
000466
000474
000500
000502
000506
000514
000520
000526
000532
000540
000546
000552
000556
000560
000564
000572
000574
000600
000602
000606
000612
000616
000620
000622
000626
000632
000640
000646
000654
000662
000666
000674
000702
000706
000712
000714
000720
000726
000730

004737
010037
002771
010016
012746
004737
012760
112760
012760
012760
013701
006301
063701
111137
042737
013701
006301
063701
116137
105037
013737
005060
142760
152760
004737
013700
006300
063700
032760
001403
062706
000524
013716

004737
010037
002771
010C16
01c 746
004737
012760

112760

012760
012760
005060

ROUTINES

0000006
000106
000106
000000G
000034
000004
000006
000000G
001156°
000000G
0000006

177760
001156°

0000006
000020
0000036
000000G
000024G
000360
000020
000000V
001156

JSR

MOV

BLT

MOV
MOV

JSR

0000066
0000226
0000266
000032G

MOV

MOVB

M0V
MOV
MOV
ASL
ADD
MOVB

000000G

8IC
MOV
ASL

000002G

ADD
MOVE

0000046

MOV

0000106
000010G

S$:
6$:

0000006
000000G
000106

JSR

MOV

BLT

000106
000000G
000034
00000606
000022G
0000266
000032G
000010G
000010G
001156
0000006
040000
000020
000000G

MOV

MOV
MOV

JSR

MOV
MOV8
MOV
MOV

CLR
8ICB
8ISA
JSR

H
H

SEQ_0337

Page

106

3884
3886

3887
3888
3889
3890

SDUPPKT
,MSCP .PKT +32(R0O)

DUOFF ,R1

CST.ADDR,R1
(R1),DUPPKT

#177760,0UPPKT

DUOFF ,R1

S.PATTERN,DUPPKT
+4

DUOFF ,RO

3891

H
H
H

3892
3893
3894

3895

;

3897

H
:
H

3831
3898
3900

CST.ADDR,RO

#40000,20(RO)
63
£10,SP
10$

CCTLR,(SP)

PC.GET.PKT
RO, MX1
64
RO, (SP)
2106, -(SP)
PC.BLSMUL
034 ,MSCP .PKT+6(R0O)
05 ,MSCP.PKT+22(RO)
04 MSCP,PKT«26(R0O)

;

QDUPPKT
,MSCP .PKT +32(R0O)
#360,MSCP.PKT+10(RO)

420,MSCP .PKT+10(R0O)

PC,ODUPCOMMAND

DUOFF ,RO

MOV

DUPPKT
RO

CST.ADDR,RO

g40000.20(90)
$

3901

3903

3904
3905
3900
390~
3908

MSCP .PKT+24(R0O)

MOV
ASL
ADD

8IT
BNE

DISK$USER2: [POWERS JZRQADO.BL2;:6

06 ,MSCP.PKT+26(R0O)

MSCP.PKT+24(R0O)
9360,MSCP.PKT+10(R0O)
#20,MSCP.PKT+10(R0O)
PC ,OUPCOMMAND

VAX-11 Bliss-16 V4.0 579

PC.BLSMUL
234 ,MSCP .PKT+6(RO)
44 ,MSCP .PKT+22(R0O)

CLR
8IC8
8ISB
JSR

ADD

11:08:35
11:08:22

PC,GET.PKT
RO, MX1
44
RO, (SP)

CLRB

8IT
BEQ

000010

Apr-1984
Apr-1984

CST.ADDR,R1
20(R1),DUPPKT+2
+3
DUPPKT

MOV
ASL
ADD

000000G
040000
000020

142760
152760

004737
013700
006300
063700
032760
001021
013700

TEST

11
11

H
H

3909
3311

Bl
RD/Rx EXERCISER
MR TI ORIVE TEST

ZRQAMX
vO0l.6

00C 734
000740
000744
000746
000752
000756
000762
000764

000770
000772
000776
001002
001004
001010
001016
001020
001024
001030
001034
001036
001042
001046
001052
001054

042700
020027
001012
013700
042700
020027
001003
005737
001413
004737
013700
006300
063700
052760
000413
013716
004737
010037
002771
013700
005260
062706
012601
000207

Routine Size:

Meximum stack

ROUTINES

007777
030000
0000006

170000
000003

0000026

000000V

001156

IAX

0000006
000056
000012

8IC
cHP
BNE
MOV
8IC
CHpP
BNE
1ST
BEQ
JSPR

8s%:

VAX 11 Blies 16 v4,0 579
DISKSUSER?
: [POWFRS JZRNADO .BL2 ;5

56Q 0338
P
107
(27

DUPPKT
.2
.1)

3914

PC ,MARC
, [LRROR

OUOFF ,RO

8IS
8R

#40000,20(R0)
93

JSR

PC.GET
. PKT
RO, Mx1

3916
3917

CST.ADDR,RO

CCTLR,(SP)

MOV

BLT

T.ADOR,RO

INC

S6(RO)
e12,5P
(SP). ,R1
PC

ADD

MOV

RTS

$CODES

11:08:35
11:08:22

35913

MOV
ASL

MOV

279 words,
Rout ine Base:
depth per invocation:
7 words

1984
1984

DUPPKT
RO

€170000,R0
RO, 03
7

MOV

9s:
108

Apr
Apr

@7777.RO
RO, #30000
74

ADD

0000006
040000
000020
0000006
0000006
000106

11
11

13616

3918
3920

3921
3923

3845
3831

Cll
JRQAMS

RD/Rx EXERCISER
MU TI DRIVE TEST

3936

3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3958
3959
3960
3961
3962
3963
3965

3966
3967
5968
3969
3970
3971
3972
3973
3974
3975
3976
1977
1978

ROUTINES

0BAL ROUTINE OUPREDDBN

NOVALUE

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 16 V4,0 579
DISKSUSER2
: (POWERS JZRQADO .BL2;: 6

5EQ 0339
Page

108
128,

0 0 00 30 =t gt 10 90 10 p=o 30 =2 ps o

3930
3931
3932
3933
3934
3935

RGN RN NN RN NN N RN R NN R

3926
2927
3928
3929

NNVWWPHD WD

® B0 B @5 9 00 S8 T €0 @0 90 00 @1

) S0 B¢ Br GI B

G5 Gc B¢ Se G0 Ve GF e VP TP TP Vo Ve G0 B We G0 G0 Gs G0 B0 G0 G0 GF G0 D¢ OO G0 G» O G0 G0 W G O

vol.e

11
11

THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM
“REDODBN".
TO USE THE PROGRAM THE OPTIONAL OUP SUB-PROTOCAL IS USED TO
THE PROGRAM READS A OIAGONOSTIC BLOCK (DBN)
COMMUNICATE WITH THE CONTROLLER,
AND PLACES IT IN THE DUP BUFFER CALLED "DUPPKT",
IF AN ERROR OCCURS WHILE
RUNNING THE CONTROLLER LOCAL PROGRAM THE ERROR IS USSUALLY REPORTED IN THE

OUP BUFFER.

(EXx.

IMPLICIT

ILLEGAL UNIT NUMBER,

INPUTS:
CST _ADDR
OUOF
¢

ILLEGAL BLK o,

DEVICE ERROR,

ZERO LENGHT MSG)

CONTAINS THE CURRENT CONTROLLER STATUS TABLE
CURRENT OFFSET IN CST TABLE FOR PARTICUWAR DRIVE

BEGIN

'PRINTX (DER12);

T_ADDR

(T DBN_RD)

ADDR

MSCP_PKT

[ .MX1,

MSGLEN])

MSCP_PKT
MSCP_PKT
MSCP _PKT

[ .MX1,
[ .MXx1,
[ . MX1,

L1)
L2)
L3)

MSCP _PXT
MSCP _PKT

[ .MXx1, LS)
[ .Mx1, L6]

MSCP_PKT

[ .Mx1, MSGTYP]

MSCP _PKT

[ .Mx1,

OPCODE)
=
=
=

(T_OBN RD)

SZ _ELP;

= OP_ELP;,

dascii‘'R';
sascii'E’;
sascii'D’;

INCREMENT

& OF READS GIVEN

!
!
!

EYECUTE PEDDBN PROGRAM
PACKET SIZE
OPCODE e+« EXECUTE LOCAL PROGRAM
FILL IN PROGRAM NAME WITH ASCII (ETTERS

!
!
!

STANDALONE MOOTt IER
CALL IT IMMEDIATL
SENDOS AND RECEIVES THE

MSCP _PKT [ .Mx1, L&) « sascii‘D';
MSCP_PKXT ([ .Mx1,

= sascii‘'B’';
= sascii'N';

MODIFY)

OUPCOMMAND ();
IF

.CST_ADDR

THEN RETURN;

D0 (Mx1
UNTIL

(.DUOFF

= GET _PKT

IMM CMO;

OF DBN,

DUPERROR]

(,.CCTLR))

EQL

(.Mx1 GEQ 0);
MSCP_PKT
MSCP PKT
MSCP _PKT

[ .Mx1,
[ .Mx1,
[ .Mx1,

MSGLEN]) = SZ REC;
OPCODE]) - OP _RCO;
BC_LO) - 80,

MSCP _PKT
MSCP _PKT
MSCP _PKT

(.Mxl,
[ .Mx1,
[ .Mx1,

BUF O) = DUPPKT;
MOOIFY] = 0;
MSGTYP) =« SEQ CMD;

OUPCOMMAND ()
IF

TRY

‘status

GET

COMMAND

error

AN ENVELOPE.

!
!
!

FAILURE

LOOP PRG ERROR

PACKEY SIZE
OPCODE = RECEIVE DATA
B8YTE COUNT TO BE TRANSFERED EQUALS 2
LOAD DESCRIBTOR BUFFER

CALL IT sequent
al
SENDS AND RECEIVES

(.CST_ADDR (.DUOFF . OF DBN, DUPERROR)
(.OUPPKT (DUPTYPE]) NEQU 1) OR
(.OUPPKT [DUPMESG]) NEQU 5)

EQL

1) OR
‘'dup

TwE

‘status error
type error

THEN

(HARD ERROR

CST ADDR

RETURN;
);

();

[ .DUOFF

DBN,

DUPLRROR]

1;
! SET FLAG
! NO POINT IN CONTINUING

COMMAND

RECIEVE

DATA

sesecgee pg 2t DLP sp

D11
RD-Rx EXERCISER

Y ST VI VTV VN YT L VL VL VSTV VE SIVE VI VE,S L VL VR,V VY7 )
LYV
P LV ST TSNP VY VSRS LS

CRIVE

TEST

000012
000016
000022
000026
000034

013700
005260
013746
012746
004737
012760

112760

Apr
Apr

1984
1984

D0 (MXy = GET _PKTY 7 CCTLR
UNTIL (.Mx1 GEQ 0);
MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP _PKT

(. Mx1,
(. Mx1,
[, Mx1,
[. MXx1,

MSGLEN)

11:08:35
11:08:22

TRY

TO GET

PACKET

SEN;

VAX-11

Bliss

.CST_ADDR

THEN RETURN;

(.DUOFF

DBN,

DUPERROR]

00 (Mx1 « GEV _PKT (.CCTLR))
UNTIL (.Mx1 GEQ 0);
MSCP _PXT
MSCP _PKT
MSCP_PKT
MSCP_PXT
MSCP _PKTY
MSCP _PKT

Mx1,
.Mx1,
M1,
MxX1,
MX1,
(. MX1,
DUPCOMMAND );

MSGLEN]

EQL

DISKS$USER?2:
[POWERS JZRQADO.BL2; 6

AN ENVELOPE,

MSGTYP)

(HARD _ERROR
RETURN;
);

()

ADDR

(T BLK

RD)

ADDR

AN ENVELOPE.

PACKET

SEQ CMD;

CALL IT sequential
SENDS AND RECEIVES

[T BLK RD]

FAILURE

DUPERROR])

TRY

TO GET

5END DATA

LOOP PRG ERROR

SIZE

OPCODE = GET DUST STATUS
BYTE COUNT TO BE TRANSFERED EQUALS 512
LOAD DESCRIBTOR BUFFER

OF DBN,

DO (Mx1 = GET _PKT ( .CCTLR))
UNTIL (.MX1 GEQ 0);
T

TO GET

SZ _REC:

CST_ADDR (.DUOFF

1092
(28)

FAILURE LOOP PRG ERROR

SIZE

EQL

Page

istetus error

OPCOOE] = OP RCD;
8C_LO) = S14;
BUF 0] = DUPPKT;
MODIFY) = 0;

IF (.CSY_ADDR ( .OUOFF «+ OF DBN, DUPERROR)
(.DUPPKT [(DUPTYPE] NEQU 6) OR
( .OUPPKT [DUPMESG) NEQU 2?

THEN

TRY

5EQ 0340

v4
0 579

OPCODE) = OP SDO;
OPCOOE = SEND DATA
8C_LO) - 4;
BYTE COUNT TO BE TRANSFERED EQUAL" 4
8UF _0) = DUPPKT,
! LOAD DESCRIBTOR BUFFER
DUPPKT (DUPBFO] = .CST_ADDR [ .DUOFF, D DISK NUM]; ! LOAD UNIT NUMBER (RDRX)
DUPPKT (DUPBF1) - .CST_ADDR (.DUOFF + OF DBN, D DBN);
! LNAD DBN NUMBER
]
MSCP _PKT (. MX1, MODIFY) =« O,
MSCP_PKT (. MX1, MSGTYP) = SEQ_CMD,
§ CALL IT sequential
DUPCOMMAND ();
! SENDS AND RECEIVES THE COMMAND

1) OR

1;
!

COMMAND

‘stoetus error
type error

dup

THE

RECEIVE DATA

! SET FLAG
NO POINT IN CONTINUING

AN ENVELOPE.
tIF

FAILURE

DUP NO ERROR

THEN

LOOP PRG ERROR

INCREMENT

COUNTER

END;

.SBTTL
OUPREDOSBN:
:

010146
000002

ROUTINES

— gy P

MA TI

11
11

0000006
000064
000106
000106
0000006
000022
000006G
000003
0000226

DUPREDDBN MULTI ORIVE

MOV
MOV

R1, (SP)
T.ADDR,RO

INC

64(RO)

MOV
MOv

JSR

MOV
MOVB

Mxl, (SP)
0106, (SP)

PC.BL MU
022 ,MSCP.PKT+6(RO)
03 ,MSCP.PKT.22(R0O)

TEST ROUTINES
:
:

3926
3943

;

3945

h o

)

001402

022626
000505
013716
004737
010037
002771
010016
012746
004737
012760
112760
012760
012760
005060
142760
152760
004737
013700
006300
063700
032760
001016
013700

042700
020027
001007
013700
042700
020027
001415
004737

000370
000274

013700
006300
063700
052760
062706
000501
013716
004737

8ICB
JSR

MOV
ASL
ADD

0000006
040000
000020

BIT
8EQ

1%:

B8R

MOV

JSR

000106’

MOV

000106

MOV
MOV

000034
000.20

BLT

JSR

00000606
0000226
00002606
0000326

MOV
MOve
MOV
MOV

CLR
8ICB
8158
JSR

0000246
000360
0000106
000020
0000106
000000V
001156

ASL
ADD

0000006
040000
000020

8IT

0000006
007777
010000

170000
000005

000000V
001156

2%:

000000G
040000
000020
000006
000000G
000000G

DUOFF ,RO

e
@0
o

3EQ

0341

Page

110

(28)

3947
3948
3949
3950
3951
3352
3953
3954
3955
3957

CST.ADOR,RO

040000,20(R0O)
1

(SP)s+,(SP).

3926

CCTLR,(SP)
PC.GET ,PKT

3960

H
:

3961
3963

H
H
:

3964
39365
3966

:
:

3969
3971}

3972

RO, Mx1
1
RO, (SP)

PC.BLSMA
234 ,MSCP . PKT+6(RO)
05 ,MSCP.PKT+22(RO)

0120 ,MSCP .PKT+26(RO)
QDUPPKT ,MSCP.PKT+32(R0O)
MSCP.PKT.24(RO)
€360, ,MSCP .PKT+10(RO)
020 ,MSCP .PKT+10(RO)
PC . DUPCOMMAND
OUOFF RO
RO

H
H

3958

3967
3948

CST.ADOR,RO

940000,20(RO)

DUPPKT
RO
07777,R0
RO, 010000

MOV

OUPPKT
RO
0170000,R0O
RO, &5
44

3973

JSR

PC .HARD .ERROR

:
H

397S
3976

39°"

H
H

397S
2979

8IC
cMe
BEQ

MOV
ASL
ADD

8IS

3s:

PC,DUPCOMMAND

V4.0 579

MOV

8IC
CMP
BNE

000000G

@122,MSCP. PKT+26(RO)
€105,MSCP, PKT+27(RO)
0104 ,MSCP, PKT+30(RO)
@104 ,MSCP, PKT+31(RO)
@102 ,MSCP .PKT+32(RO)
2116 ,MSCP, PKT+33(RO)
01,MSCP .PKT+24(RO)
0360 ,MSCP .PKT+10(RO)

MOVB
MOvB
MOVB
MOVB
MOvVB
MOVB
MOV

0000266
000027G
0000306
0000316
0000320
0000336
0000246
0000106

DISKSUSER2: [ POWERS 1ZRQADO.BL2: 6

112760
112760
112760
112760
012760
142760
004737
013700
006300
063700
032760

000122
000105
000104
000104
000102
000116
000001
000360
000000V
001156

VAX-11 Bliss

®e

112760
112760

ROUTINES

11:08:35
11:08:22

vol1.6

11-Apr-1984
11-Apr-1984

®0

RD/Rx EXERCISER
MATI DRIVE TEST

JRQAME

ADD

B8R

MOV

JSR

DUOFF ,RO

CST.ADDR,RO

#40000,20(R0O)

06,5P
St
CCTLR,(SP)
PC.GET.PKT

Ll
RD/RX EXERCISER

000400
000404
000406
000410
000414
000420
000426
0004 34
000442
000450
000454
000456

000620
000624
000632
000640
000646
000654
000660
000666
000674
000700
000704
000706
000712
000720
000722
000726
000732

010037
002771
010016
012746
004737
012760
112760
012760
012760
213701
006301
063701
111137
042737
013701
006301
063701
116137
105037
005060
142760
152760
004737
013700
006300
063700
032760
001403
062706
000521
013716
004737
010037
002771

010016
012746
004737
012760
112760
012760
012760
005060
142760

152760
004737
013700

006300
063700
032760
001016
013700
042700
020027

TEST ROUTINES

000106°

11:08:35
11:08:22

VAX-11

0000066
0000226
0000266
0000326

,
Bliss

V4,0 579

DISK$USER?: [POWERS)ZRQADO.BL2;: 6

RO, Mx1
48
RO, (SP)
0106, -(SP)
PC.BLSMUL
034 ,MSCP.PKT+6(R0O)
04 ,MSCP .PKT+22(R0O)
4 ,MSCP .PKT+26(RO)

000106

000034

Apr 1984
Apr-1984

56Q 0342
Page 11

(28

MA TI-DRIVE

v01.6

11
11

O
®
b

ZRQAM3

QDUPPKT ,MSCP.PKT+32(RO)
OUOFF ,R1

CSY.ADDR,R1
(R1),0UPPKT

177760,0UPPKT

ODUOFF ,R1

CST.ADDR,R1
20(R1),DUPPKT
2
.3
DUPPKT

0000026

MSCP.PKT+24(RO)
0360 ,MSCP.PKT+10(RO)
420 ,MSCP .PKT+10(RO)

000010G
0000106

PC,OUPCOMMAND
DUOFF ,RO

398"

3988

3990

3989
3992

CST.ADDOR,.RO

000020

040000,20(R0O)

S$:

0000006

6$:

B8R
MOV
JSR
MOV

BLT

MOV
MOV

000106

000034
000005
001002
000000G
0000246
000360
000020

0000060
000022G
0000266
0000326
0000106
0000106

001156
0000006

040000

0000006
0067777
060000

000020

JSR

MOV
MOVE
MOV
MOV

CLR
8ICB
8158
JSR

CCTLR, (SP)

PC.GEY PKT
RO, MXx1
6
RO, (SP)
0106, (SP)
PC.BLSMAL
034 ,MSCP . PKT+6(RO)
05 ,MSCP . PKT+22(RO)

H
:

3996
3998

3999

QDUPPKT ,MSCP
. PKT.32(R0O)

:
:

4000
4001

MSCP.PKT+247R0)

4002

OUOFF ,RO

;

4004

0360 ,MSCP . PKT+10(R0O)
920 ,MSCP .PKT+10(RO)
PC,0DUPCOMMAND
Q0

MOV

DUPPKT
RO

8IC
cMP

3926
3993
3995

21002 ,MS5CP . PKT+26(R0O)

ASL
ADD

8IT

H
H
:

accs
3006

CST,ADDR,RO

ngOOO.?O(RO)

$
87777,RO

RO, 260000

4007

(1]
ZRQ@AME

RD/Rx
MATI

vol.6

000736
000740
000744
000750
CO0754
000756
000762
000766
000770
000774
001002
0010043
001010
001014
001920
001022
001026
001032
001036
001040

:
;i
:

001007
013700
042700
020027
001413
004737
013700
006300
063700
052760
000413
013716
004737
010037
002771
013700
005260
062706
012601
000207

Routine Sice:
Max 'mum stack
4020

EXERCISER
DRIVE TEST

ROUTINES

DUPPKT ,RO

MOV

170000

000002

7s:

001156

8s:

8IC
cMe
B8tQ

#170000,R0O
RO, 02

OUOFF ,RO

CCTLR,(SP)
PC.GET.PKT
RO, Mx1

JSP

MOV

BLT

MOV

T.ADOR,RO

INC
ADD

273 woras,
Rout ne Base:
depth per invocat on:
7 words

62(RO)
012,5P
(5P)+,R1
PC

RTS

$COOE
$

VAX-11 Bliss-16 V4.0 579

DISKSUSER2:
[ POWFRS JZRQADO.BL2; 6

5EQ 0343
> age 112
(28,

4008

4010
4011

#40000,20(RO)

MOV

11:08:35
11:08:2°2

CST.ADDR,RO

BIS
B8R

10%:

1984
1984

PC,HARD ,ERROR

JSR
MOV
ASL
ADD

94 :

Apr
Apr

14]

BNE

000000G

000000V

11
11

14674

4012

4014

495
4017

3941
3926

il
ZRQAMZ

RD/Rx EXERCISER

vO1.6

;.
7

:
i
:
;.

4021
4022

MULTI-DRIVE

ROUTINES

'e
! THIS ROUTINE IS CALLED BY DUP TO PROCESS COMMANDS.
' THE COMMAND ENVOLOPES ARE FILLED IN DUP ROUTINES IN THE

WITH

THE

INDEX

THIS

NOVALUE

ROUTINE

SENDS

THE

COMMAND,

WAITS

1
1t
2
2
2

¢ RESPONSES AND THEN PROCESSES THE RETURN PACKET.
'
BEGIN
'PRINTX (DER13);

:
:

4034
4825

2
2

MSCP_PKT
MSCP PKT

4036

4040

[ .Mx1,

[ .MX1,
[ .Mx1,

CREDITS)

CONNID)
DK NUM)

:
:
:

4037
4038
4039

:
:

4041
4042

3
3

MX1 =
1;
CST_ADDR [ .DUOFF

:
;
:
:
;.

4044
4045
4046
4047
40a8

3
3
2
2
3

ENO

:ggg

;

4043

4052

;

4054

4053

PUT

PKT

PRINTF

ELSE

beg

OF DBN,

END;

(.CRN_LOW eaqlu

000106°

000004
000010
000014
000022
000030
000034
000040
000044
000046
000050
000054
000060

012746
004737
142760
112760
005060
013716
004737
005700
001027
013716
004737
012737

000106
0000006
000017
0000106
000002
0000116
000016G
000106
000000G

000072z

006300

000106°
000000G
177777
000106

001156°

FOR

“Mx1“
A

DUP DOES NOT

ATTEMPT

!
!

15 v&4.0 579

DISKSUSER? : [ POWERS JZRGADO.BL2: 5

5EQ_0344
Page 113
(29)

INOEX.

USE

THE

CTLR

CREDIT

SYSTETMM

MAKE PACKAGE EQUAL A DUP COMMAND
DISK NUMBER (NOT APPL ICABLE)

DUPERROR)

'
1;

SEND;

RETURN ENVELOPE
‘DUP:

IS OFFLINE

eql

true);

PKT

NOT

TO POOL

AVAILABLE"

' BREAK FOR ACT

();

end

(.EOP FLAG

013746

013700

= CID OUP;
= O;

PROC RETPKT
unt'l

11:08:22

11 Bliss

( .MXx1);

(DBM112);

000000

000066

BR?AK;

IF SEND (.MX1) EQLU FAILURE
THEN
BEGIN

4049 3

2
2
3

MSCP PKT

VAX

4028
4029
4030
4031
4332

11:08:35

1984

|
1
1

4027

4033

Apr

1984

GLOBAL ROUTINE DUPCOMMAND

:
;.
:
:
;.

Apr

1
1

4023

4024
4025
4026

TEST

.RP ADDR

[CRF LO)) or

PROCESS RETURN PACKET

TO ENSIRE

THAT

IF OK FOR DUP

ALL RETURN MESSAGES HAVE BEEN PROCESSED

or end of pass caused by

error

.SBTTL

DUPCOMMAND MULTI

MOV
MOV
JSR

Mx1, -(SP)
0106, -(5P)
PC.BL ML

4033

MOVB
CLR
MOV
JSR
ST
BNE
MOV
JSR
MOV

€2 ,MSCP.PKT+11(RO)
MSCP.PKT+16(RO)
Mx1,(SP)
PC.SEND
RO
1
MX1,(SP)

:
:
:

4034
4035
403"

a0ao

4041

ASL

DUPCOMMAN:D:

8ICB

MOV

DRIVE

TO SEE

TEST ROUTINES

17 ,MSCP.PKT.10(RO)

PC,PUT
. PKT
o 1,Mx1

ODUOFF ,RO

a0a

|
RO/Rx EXERCISER

ZRQAM3S

MATI DRIVE

vOol.6

000074
000100
000106
000112
000116
000120
000122
000124
000126
000130
000134
000140
000146
000150
000156
000160
000162

063700
052760
012716
012746
010600
104417
005726
000415
104422
004737
013700
023760
001404
123727
001363
022626
000207

Routine Size:

Maximum stack

11
11

TEST ROUTINES

0000006
040000
000020
0000006
000001

000000V
0000006
0000006 000004

Apr
Apr

1984
1984

11:08:35
11:08:22

.
VAX 11 Bliss 16 v4.0 S79
DISK$USERZ : [POWERS JZRQADO.BL2 ;6

5EQ 0349
Page 114
(29)

CST.ADDR,RO

#40000,20(R0O)

18:

o0BM11.°,(SP)

SP,RO
17
(SP).
28
22
PC,PROC.RETPuT
RP ,ADDR,RO
CRN.LOW,4(RO)

;

4043

OP,e

H
H
H
:
H

4039
4037
4048
4050
a0’

4053

:
:

4030
4022

000000G 000001

EOP .FLAG, 01
1
(SP).,(SP).

24:

Rout ine Base:
58 words,
depth per invocation:
S words

$CODES

15736

JLU
ZRQAMS

RO/Rx
MA TI
e 02 9=t 0o -0 50 s po
RV RO NN RY P
D DV

4081
4082

4069
4070
4071
4072
4073
4074
4075
4076
4077
4078
4079
4080

4083
4084
4085
4086
4087
4088

0 N0 N 8 (8

B¢
G0
V¢
We
WO
G¢
B
B0
B¢
W6
W
B0
B0
Ve
€9
09
@0
B0
@9
B¢
B0
®e

4067
4068

W8 G R0 PO D D W

4055
4056
4057
4058
4059
4060
4061
4062
4063
4064
4065

B¢

vol.6

000000

010146

000002
000006
000010
000014
000022
000026
000032
000036
000044
000052
000056
000064
000070
000074

013700
006300
063700
042760
013746
012746
004737
012760
112760
005060
142760
004737
013716
004737

EXERCISER
DRIVE TEST

ROUTINES

GLOBAL ROUTINE DUPIDLE

¢
¢
¢
¢t

11
11

NOVALUE

1984
1984

11:08:35
11:08:22

VAX-11 Bliss 16 v4.0 S79
DISKS$USER2:
[POWERS ]ZRQADO.BL2;6

SEQ 0345
Page

115

(30)

THIS ROUTINE IS CALLED BY DUP ROUTINE TO INSURE THAT THE CONTROLLER
IS NOT IN A ACTIVE STATE. IF CALLED AND THE CONTROLLER IS IN AN ACTIVE
STATE THE CONTROLLER WILL GIVE AN ABORT COMMAND WHICH SHOULD KILL THE
CURRENT JU0OB OR LOCAL PROGRAM.

BEGIN

CST ADDR [.DUOFF

M3CP_PKT

« OF DBN.

[.MX1, MSGLEN]

MSCP_PKT
MSCP PKT

(.MXx1,
[.MX1.

MSCP_PKT [.MX1,
DUPCOMMAND ();

OPCODE]
MODIFY)

MSGTYP]

=
s+

DUPERROR]

= 0;

1CLEAR DUP ERROR FLAG;

SZ_GDS;

OP GDS;
O;

PACKET SIZE

CALL

'
:

IMM_CMD;

[]
]

DO (Mx1 = GET_PKT (.CCTLR))
UNTIL (.Mx1 GEQ 0);

Apr
Apr

.CST_ADDR

then

[ .OUOFF

OF DBN,

D_ACTIVE])

OPCODE

GET

DUST

GET DUST STATUS

STATUS

IMMEDIATE

SENDS AND RECEIVES THE COMMAND
GDS ONLY RETURNS SUCCESS or it don’'t
TRY

TO GET

AN ENVELOPE.

if not

'
!
!

PACKET
OPCODE

SIZE
= ABORT

neq IDLE

FAILURE

‘dle state

then

returr

LOOP PRGRAM ERROR

sbort

the program

begin

MSCP_PKT
MSCP_PKT
MSCP_PKT

[ .MX1,
([ .Mx1,
[ .Mx1,

00 (MX1

= GET PKY

MSCP _PKT [ .MXx1,
OUPCOMMAND ();
UNTIL
end;

(.Mx1

MSGLEN]
OPCODE])
MODIFY])

MSGTYP]

=
=
=

SZ _ABT;
OP AB);
O;

IMM CMD;

ABORT

PRNGRAM

CMD

' CALL IT IMMEDIATE
!] SENDS AND RECEIVES THE COMMAND
'ONLY ERROR IS already in idle state

(.CCTLR))

GEQ 0);

TRY

TO GET

AN ENVELOPE.

DRIVE

TEST ROUTINES

FAILURE

LOOP PRGRAM ERROR

end;

.SBTTL
OUPIDLE::
001156°

DUPIDLE MU TI

MOV

R1, -(SP)

ASL

MOV

OUOFF ,RO

4056

4060

400°
4008
3009
4070

]

0000006
040000
000020
000106°
000106
0000006
000014
0000066

ADD
8IC
MOV
MOV
JSR
MOV

0000246

CLR

MSCP.PKT+24(R0O)

JSR

PC,0OUPCOMMAND

JSR

PC.GET .PKT

000001

000022G

000360

000010G

015736°

0000006

000000G

MOvB
8IC8
13%:

MOV

91 ,MSCP . PKT+22(R0O)

0360, ,MSCP . PKT+10(RO)

CCTLR,(SP)

:
H

4064

40"2

KL
L

000202
000206
000212
000214
000216
000220
000222

:
;i

013700
006300
063700
032760
001432
010116
012746
004737
012760
112760
005060
142760
004737
013716
004737
010037
002771
005726
022626
012601
000207

MOV
MOV

000106°

BLT

001156°

DUOFF ,RO

MOV
ASL
ADD

000000G
020000
000020

JSR

R1,(SP)
2106, -(SP)
PC,BLS$MUL

CLR
8ICB
JSR

MSCP.PKT+24(RO)
2360 ,MSCP . PKT+10(R0O)
PC,0UPCOMMAND

JSR

PC.GET.PKT
RO, MX1

MOV
MOV

MOV
MOVB

2%:

414 ,MSCP .PKT+6(R0O)
96 ,MSCP.PKT+22(R0O)

CCTLR,(SP)

MOV

3s:

Routine Size:
74 words,
Rout ine Base:
Maximum stack depth per invocation:
S words

B8LY
TST
cHP

2
(SP).
(SP)+,(SP).
(SP)+,R1

MOV
RTS

$CODES

VAX 11 Bliss 16 v4.0 579
DISK$USERZ:
[POWERS JZRQADO.BL2;: 6

;

MX1,s

SEQ 0347
Page

116

(30)

4074

4076

4079

BIT
BEQ

000106
000000G

000014
0000066
000006
000022G
0000246
000360
000010G
015736
0000006
0000006
000106

RO, MX1
RO,R1
14

11:08:35
11:08:22

16122

000132
000134
000140
000144
000152
000160
000164
000172
000176

010037

010001
002770

ROUTINES

Apr 1984
Apr-1984

000100
000104
000106
000110
000114
000116
oo01ce
000130

11
11

vOl.6

EXERCISER
DRIVE TEST

®s

RD/Rx
MULTI

®s

ZRQAM3

4080
4081
4082
4083
4085

4086

4078
4063
4056

RD/RX

EXERCISER

8 10 00 10 10 4t =2 o8 =8 4t 10 10 58 (0 b8 b Pt bt

GLOBAL

ROUTINE

ZRQAM3

begin

Q131
4132

_4133

RN N R
N NN NN RN

4117
4118
4119
4120
4121
4122
4123
4124
4125
4126
4127
4128
4129
4130

BB UM WNN WL

4089
4090
4091
4092
4093
4094
4095
4096
4097
4098
4099
4100
4101
4102
4103
4104
4105
4106
4107
4108
4109
4110
4111
4a11°2
4113
4114
4115
4116

MULTI-DRIVE

4134

4135

;
H

4136
4137

4
4

H
:

4138

QIO LBN

1984

11-Apr-1984

NOVALUE

11:08:35

VAX-11

11:08:22

Bl 'ss

v4.0

SEQ 0348
Page 117

579

DISKS$USERZ: [POWERS JZRQADO.BL2;6

(31)

THIS ROUTINE

BE USED FOR
IF

IS CALLED BY

THE OPERATOR CHOSE

RANDOMLY

CHOSEN WITHIN

OTHERWISE,
TABLE

THE NEXT

IMPLICIT QUTPUTS:

ocal

RD_DISK

.CST_ADDR

LBN

byte;

[.CUOFF,

THE

LOGICAL

SPECIFIED LIMITS FOR

FLAG

eql

THE

IS DERIVED FROM

(DIAGNUSTIC

LOADED

D_TYPE])

THE

THE RANDOM BLOCK MODE OPTION,

INPUTS:
LSLUN - CURRENT

THE

TO SELECT

SEGUENTIAL LBN

(BST).

IMPLICIT

QIO_GEN

THE CURRENT QIO OR QIO PAIR.

SUPERVIOR)

INTO ONE

INDICATE

WINCHESTER

NUMBER

THE LBN

THE BLOCK

UNIT

BOTH MSCP

THEN

LBN,

BLOCK

SEQUENCE

NUMBER

PACKETS.

DISK

SELECTED

RX_S0O

then

el se
MAD1
MAD1

RD_DISK

FALSE

RD_DISK

TRUE;

([LBN_L)
(LBN_H])

if _MX2
then

=
=

.BST
.BST

[.LSLUN,
[.LS$LUN,

LO_WRD];
HI_WRD];

geq O

!
!

LOAD LBN
LOAD LBN

HAS? (LBN_L] = .BST [.LSLUN, LO_WRD];
MAD2

(LBN_H]

._BST

[.LSLUN,

LOAD LBN

INTO
INTO

1ST
1ST

PACKET
PACKET

QIOS

begin

HI_WRD];

! LOAD LBN INTO 2ND PACKET
INTO 2ND PACKET

end;

if BIT_TST
then

(SWP_FLAGS,

SWF_BLK)

begi¥ ,)
if
NOT ((.RD_DISK) and
(C(C.RANDOM (0] and %0'077777')

then

mod

RANDOM BLOCK

(99))

lequ

MODE

33))

begin

if .CST_ADDR
then

[.CUOFF

BST

2%22

MODULAS (.CST

4141

number

TEST ROUTINES

Apr

REDUCES

SEEKS

NOTE

NOT

TO 66%

TRANFERS

winchesters

®1 @0

) @ @e 0 60 @ B0 B¢ @F BE @ S

B B¢ B¢ Vs U Ge B B0 B¢ G5 G0 G0 B0 O

G0 G0 G0 G0 G0 6 00 G0 @0 Gr VI G0 B0 G0 96 G O O @r O

VOl1.6

WINDOW
4

d fferent

else

[.LSLUN,

D_BEG1] ealu

LO WRD)
ADDR

.CST

.CST_ADDR

[.CUOFF

ADDR

[.CUOFF
D BEGO),

[.CUOFF
+

.CST

D END1]

[.CUOFF

!
.

THE

LBN

oper word of beg trk

D BEGO]
ADDR

CALLED

select

low

lbn

REMAINS

and end'n

from random

D_ENDO))
!

upper

word of

peg

trk

andg end

M11
ZRQAMX
vol.6

RD/RX EXERCISER
MU TI DRIVE TEST

4147
4148
4149

G0
99
G0
G0
G
G0
V¢
G
V0
O
Vs
B
V0
Vs
G0
VI
Vs
B0
G
G
B0
G
B0
Vs
B
@s
Ws
B
B
B0
B
B
B9
B
B9

then

[.LSLUN,

.BST

4150
4151
4152
4153
4154

4155
4156
4157
4158
4159
4160

4161
4162
4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184

4185
4186
4187
4188
4189
4190

000000

HI_WRD])

MODULAS (.CST_ADDR

lower

mber

LOWER

8ST

[.LSLUN,

.BST

then BST
if

.BST

[.LSLUN,
[.LSLUN,

[.L$SLUN,

.CST_ADOR [ .CUOFF
«

HI _WRD) eql

(.LSLUN,

[.LSLUN,

([.CUOFF

LO_WRD])

HI_WRD]

HI_WRD)

D_BEG1],

.CST_ADDR

- #0'177777"

+ 4,

Bliss

+ 4,

! select upper
D END1));

D_END1)

i f upper word equal
1,

word

[.CUQFF
[.CUOFF

‘f neither of

.RANDOM (S5);

and

WORD DOES NOT PASS HI LIMIT

D BEG1]
D END1)

118

(31)

IF UPPER WORD EQUALS HI LIMIT BE

D ENDO1);

D_BEG1]

+ 2,
+ 4,

Page

lbn from window

- MODOULAS (,CST_ADDR ([.CUOFF

.CST_ADDR
.CST_ADDR

SEQ 0349

v4.0 579

DISK$USER2:
[POWERS JZRQADO.BL2; 6

.CST_ADDR [.CUOFF

[.CUOFF

lss

gtr

VAX-11

+ 2, D_BEG1) .CST_ADDR {.CUQFF

[.CUOFF

= MODWAS (O,

eql

LO WRD]

11:08:35
11:08:22

D_BEGO),

limit make

#0'177777');

is above

limit

the above

then any

C o

ure

4146

begin

pmubwuubuuuuubbbbuuubbmmwmbbubumuubmg (V. NV, AV, )V )

o o0 w0 o0 () o0 o

4145

pturunown

4144

ROUTINES

4142
4143

11 Apr 1984
11-Apr-1984

004137

then BST

end;

else

[.LSLUN,

end;

LO_WRD)

end

begin

if (.TRK_SGN
then

(if

then

[.L$LUN] gea 1)

8ST
BST

end

else

i€

else

if
then

.BST
.BST

[.LSLUN, LO_WRD)
[.LSLUN, HI_WRD]

BST [.LSLUN, LO_WRD]

.BST

then

[.LSLUN,

= 0O;
= .BST

i f pos'tive track direction add one

[.LSLUN,

SEQUENTIAL LBN MODE

HI_WRD]

begin

BST [.LSLUN, LO_WRD)
BST [.LSLUN, HI_WRD]

= wo0’'177777';
= ,BST [.LSLUN,

HI WRD])

BST [.LSLUN,

LO WRD)

end

[.LSLUN,
[.LSLUN,

to mult word

.BST [.LSLUN, LO WRD]) + 1)
! if negative track direction subtract one from mult word

LO_WRD)

.BST

[.LSLUN,

LO_WRD) gequ (.CST ADDR [.CUOFF
HI _WRD] geaqu (.CST ADDR [.CUOFF

TRK_SGN [.LSLUN]

-1;

.BST [.LSLUN, LO_WRD] legqu (.CST_ADDR
.BST [.LSLUN, HI _WRD] lequ (.CST ADDR
then TRK_SGN [ .L$SLUN] = 1;

[.CUOFF
[.CUQOFF

end;

0000006

LO_WRD] eqlu %o0'0’

end;

ELSE

.BST [.LSLUN, LO_WRD] eqlu %wo'177777*
be?in

else

+ 3,
+ 4,

D ENDO]) and
D END1))

+ 1,
. 2,

D BEGO] +
D_BEGLI])

.SBTTL

GIO.LBN::

QIO.LBN MULTI

ROUTINE

DRIVE

TEST

QIO LBN
ROUTINES

if hi

and

1'm't

then change direction

low

1'mt then change d'rect
on

ZRQAM3

RD/RX

v0l.6

MULTI-ORIVE

000004
000010
000014
000016
000020
000024
000026
000030
000032
000036
000042
000046
000050
000052
000054
000060
000062
000066
000072
000076
000102
000104
000110
000114
000120
000126
000130
000134
000136
000140
000144
000150
000154
000160
000162
000166
000170
000172
000176
000200
000202
000206
000212
000214
000216
000222
000224
000230
000232
000234
000240
000244

013705
013700
006300
060500

132710

001002
105004
000402

112704
013700
013701
010103
006303
006303
012702
060302
011260
062703
011360
005737
002406
013700
011260

011360
032737
001002
000137
006004

103015

013746
042716
012746
004737
022626
020027
101001
000207
013700
006300
060500
016004
013700
006300
060500

020460
001022
013701
006301
060501
016146
013700
006300

EXERCISER

TEST

ROUTINES

JSR
MOV
MOV
ASL
ADD

0000006
0000006

000020

BITB
BNE
CLRB

000001
000112’
0000006

1$:
2%:

0000006
000046
0000026
000050
000110

000114’
000046
000050
040000

017122’

000000G

38:

44
:

000010
0000006

000002
000000G

MOV
MOV
MOV

BIT
BNE
JMP
ROR
BCC
MOV

8IC

MOV

JSR
CMP
CMP
BHI

000041

000004
0000006

MOvB
MOV
MOV
MOV
ASL
ASL
MOV
ADD
MOV
ADD
MOV
TST

BLY

0000006
100000
000143
000000G

000000G

11-Apr-1984
11-Apr-1984

5%:

RTS

MOV
ASL
ADD
MOV
MOV
ASL
ADD

cMP
BNE
MOV
ASL
ADD
MOV
MOV
ASL

11:08:35
11:08:22

VAX-11

Bliss-16 v4.0 579

DISK$USERZ2:
[POWERS JZRQADO.BL2;6

R1, $SAVES

2
1,R4

MAD1,RO

Page

119

(31)
4089
4113

CST.ADDR,R5
CUOFF ,RO

RO
R5,RO
420, (RO)
1$
R4

SEQ 0350

RD.DISK

+,RD.DISK

L$SLUN,R1

4115
4113
4117
4119

R1,R3

R3,R2

(R2),46(R0O)
#8ST7+2,R3
(R3),50(R0O)

4120

MX2

4122

34
MAD2,RO

4125

(R2),46(R0O)
(R3),50(RO)

RANOOM, -(SP)
2100000, (SP)

4126
4129

RD.DISK

4132

4133

PC,BL$MOD

(SP)+,(SP)e

RO, %41

CUOFF ,RO

RO
RS,RO
4(RO),R4

4136

CUOFF ,RO

RO
RS,RO
R4,10(RO)
6%

CUOFF ,R1

4138

2(R1), -(SP)
CUOFF ,RO

4139

R1
R5,R1

vOl.6

000246
000250
000254
000260
000264
000266
000270
000272
000276
000302
000304
000306
000312
000314
000316
000322
000324
000330
000336
000340
000342
000346
000350
000354
000360
000364
000370
000372
000376
000400
000402
000406
000410
000414
000422
000424
0004 30
000432

0004 36
000442
000446
000452
000460
000464
000472
000474
000476
000502
000510
000514
000526

060500
016046
004737
066100
010012
000530
010446
0160406

004737
060400

RO/Rx

EXERCISER

MAUTI

DRIVE

1984
1964

11:08:35
11:08:2°2

VAX 11 Blise 16 v4.0 579
DISKSUSERZ:
(POWERS JZRQADO.BL 26

5¢€Q 0351
Pege 120
(31)

ADD

000006
0000000

MOV
JSR

000010
0000006

MOV
B8R
MOV
MOV
JSR

ADD

000002

64:

ADD

MOV

006301
006301
013700
006300
063700
026160

4138

R4,

(SP)

10(RO), (SP)
PC ,MODWLAS

R4 ,RO
RO,(R3)
LSLUN,R]

a13¢
4144

4143
4144

MOV
ASL

CST.ADDR,RO
B8S5T+2(R1),10(R0O)

000010

001015

005016
013700
006300
063700
016046
004737
010071
005726
013701
006301
006301
013700
006300
063700
026160
001021
013700
006300
063700
016016
012746
004737
012761}
160061
005726
013700

026061
003414
013701

r
r

TEST ROUTINES

010013
013701

006300
013701
006301
063701

ZRQAMEX

(sSP)

CUOFF RO

414"

CST.ADOR,RO

6(RO),

(SP)

PC ,MODWAS

RO,88S5T(R1)

(SP).
LSLUN,R1

R1
Rl

4149

CUOFF ,RO

CST,.ADDR,RO
BST.2(R1),4(RO)

000004

4150

CST.ADDR,RO
2(RO),(SP)
PC ,MODWLAS

0000006

® 1,B8ST(R})
RO,BST(R1)
(SP).
L $. UN,RO

8s:

CUuofF ,R1

0000026 000004
0000006

aLE

MOV

CST.ADDR,R]
B8ST+2(RO),4(R1)
94

CUOFt R

Clo
-

JRUAMS

RD ‘Rx EXERCISER
MA TI DRIVE TEST

vOl.6

000524
000526
0005382
000540
00542
000550
000552
000554
000560
000562
000564
000579
000572
0005~4
000576
000600
000602
000604
000606

000610
000614
000616
000620

;

Mar

006301
063701

026061
002003
013760
022626
000207

062701
105711
003410
021227
001003
005012
005213
000411
005212
000407
005712
001004
012712

ROUTINES

B8GE

108

17“‘1

11%:
128
177772

005313

000401
005312
013700
006300
060500
021260
103411
013700
006300
060500
021360
103402
112711
013700
006300
060500
016000
005200
021200
101011
013700
006300
060500
021360
101002
112711
000207

t ' ne Size:
‘mum stack

000000

138
14
;

cMP

(R1)
129
(R2),0-1
118
(R2)
(RS)
149
(R2)

BLE
cMP
BNE
CLR
INC
B8R
INC
B8R
18T

000377
000000G

000002

0000006

164

4170

4161

4172

4175

41756

4172

4179
4182

RO
R5,R0

4183

:
:

4184
4186

418"

3
:

4148
489

R5,R0
(R3),10(RO)

o
8LO
MOve

158

e377,(R1)

CUOFF ,RO

MOV
ASL
ADD
MOV

RO
RS5,R0

cMP
8HI

(R2),.RO
16%

2(R0O),R0O

INC

MOV
ASL
ADD

RO
RS ,RO

CUOFF ,RO
(R3),4(RO)
168

MOove
RTS

2% words,
$CODES
Rout ine Bease:
depth per ‘Aavocat ‘on;
10 words

4166

1,(R2)

(R2),6(RO)
154

4163
4167
4163

(R3)
143
(R2)
CUOFF RO

8HI

000001

138

cHP

000004

121
(31)

41561

(R2)

BNE
MOV
OEeC
B8R
OEC
MOV

MOV
ASL
ADD

158:

Page

4129

149

cMe
8LO

000010

5EQ 0352

4155
4135

PC
@TRKX ,SGN,R1

RTS
ADD
1518

ADD

0000006

VAX 11 Bliss 16 v4,0 579
DISKSUSER?
: [POWERS )ZRQADO.BL 26

RANOOM.12,B8ST(RO)
(SP)Y+,(SP).

ASL

000006

11:08:85
11:08:22

MOV
98

1984
1984

CST.ADOR,R1
251-2(R0).10(Rl)

cHp

00001
°2G 0000006

Apr
Apr

ASL
ADD

0000006
0000026 000010

0000006

11
11

e1,(R1)

16346

D1
[S

EXERCISER

vQl.6

MA TI

DRIVE

4218
4219

4220
4221
4222
4223
4224
4225
4226

4227

4228
4229
4230
4231

NN NN NN NN NN

4215

4216
4217

00 RN AR RN

G0
O
G
G0
B0
G0
G0
B
GF
V°
G0
G0
VS
B9
O
G0
V0
G0
V0
G0
B9
B¢
@9
G0
08
G0
00
B0
@
B8
OF
02
G0
B0
B
B
@4
s
@

4191
4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203
4204
4205
4206
4207
4208
4209
4210
4211
4212
4213
4214

NN NN NN N NS s ps =0 =0 =0 1o )t 00 Pt Pt Pt gt s Pt

RO/Rx

G¢ G0

ZRQAMS

TEST

ROUTINES

10222 routine QIO SIZE

GLOBAL ROUTINE QIO_SIZE

rmrovalue

Blies

5EQ_0353

Apr

1984

11:08:35

VAX-11

v4,0-579

ARpr

1984

11:08:22

DISK$USERZ: [POWFRS JZRQADO.BL2; 6

Page

122

(32)

: NOVALUE =

THIS ROUTINE IS CALLED BY QIO GEN TO SELECT
TO BE USED FOR THE CURRENT QIC OR QIO PAIR.

THE I/0 TRANSFER BYTE
THE BYTE COUNT IS

COUNT

DETERMINED BY A RANDOM NUMBER, AND WILL ALWAYS FALL BETWEEN 1 AND THE
1/0 BUFFER SIZE (BYTS_PER QIO). It is assumed that BYTS PER QIO will
never be larger than one binary word or
65000 bytes.
IMPLICIT

QUTPUTS:
THE BYTE COUNT

IS LOADED

INTO ONE

OR BOTH MSCP PACKETS,

begin

local
SIZE

: word,
BLOCKS _LEFT :

SIZF
if

((.RANDOM (4)

.SIZE

eql

BYTE COUNT
REMAINING BLOCKS LEFT

word;
and %0°'077777') mod (.BYTS PER QIO

1)) and 0177760
; '!GET BYTE COUNT FROM RANDOM NUMBER

then

SIZE

16;

.CST_ADDR

[.CUOFF

then BLOCKS _LEFT
else BLOCKS _LEFT

if ((.SIZE

then

MADL1

SIZE
(BC

+ 4,

D_END1) gtru

« #o0'177777°
= _CST_ADOR [.CUOFF

+» BYTES_PER _SECT
.BLOCKS_LEFT

LO)

.MAD1
3,

[LBN_H]

D ENDO]

.MAD1

7 BYTES PER SECT) gtru

(LBN LY

!
!

.BLOCKS LEFT

& BYTES PER SECT;

.SIZE;

MX2 geq O

then

MAD2

(BC_LO)

.SIZE;

end;

.SBTTL

QIO.SIZE MULTI DRIVE
R1,$SAVE3
RANDOM+ 10, -(SP)
9100000,(SP)
BYTIS.PER.QIO, -(SP)
(SP)
PC,BL $MOD

3
3

0000006

JSR
MOV
8IC
MOV
INC
JSR

G00017

MOV
BIC

RO,R3
o17,R3

:
3

000000

004137

0000006

000004
000010
000014
000020
000022
000026
000030

013746
042716
013746
005216
004737
010003
042703

0000106
100000
0000006

QIO.SIZE::

find
REMAINING BLOCK COUNT

IF BLOCK COUNT NOT ENOUGH

ADJUST BYTE COUNT

LOAD

LOAD SIZE

ROUTINE

>IZE

INTO

1ST

DOWN
MSCP PACKETM

2 QIGS
INTO 2NOC MSCP PACKET

QIO_SIZE

TEST ROUTINES
419c
4,1t

¢,SIZE
e,5172¢

ELlC
ML TI

DRIVE

000034
000036
000042
000046
000050
000054
000060
000066
000070
000074
000076
000102
000104
000110

000114
000120
000122
000124
000126
000132
000136
000142
000144
000146
000150
000152
000154
000156
000160
000162
000166
000172
000174
000200
000204
000206

001002
012703
013700
006300
063700
013701
026061
101403
012702
000413
013700
006300
063700
016000
166100
010002
005202
010316
062716
012746
004737
005726
020002
101405
010200
000300
105000
006300
010003
010361
005737
002404
013700
010360
022626
000207

Routine Size:

Max ‘mum stack

TEST

BNE

000020
0000006
0000006
000112’

000010

ROUTINES

1$:

17727272
0000006

000000G
000006
000046

10(R0),50(R1)
2t

CUOFF ,RO

MOV
ASL
ADD
MOV

CST.ADDR,RO
6(RO),RO
46(R1),R0
RO,R2

INC
MOV

(SsP).

SWAB
CLRB

ASL
MOV
0V

TST

Mx2

8Ly
MOV

4213
4215
4217

MADZ2,RO
R3,26(RO)

RTS

cMe

(SP)s,(SP).

¢+

17276

4218
4217
4219

4221

BLOCKS.LEFT,»

4223

*,SIZE
SIZE,»

4225

MOV

$CODE
$

123
(32)

. LEFT
¢ ,BLOCKS

RO,R2
44
R2,RO
RO
RO
RO
RO,R3
R3,26(R1)

MOV

68 words,
Rout ine Base:
depth per ‘nvocat
on:
8 words

Page

¢ ,BLOCKS, LEFT

BLOCKS.LEFT
SIZE,e

R2
R3,(SP)
0777,(5P)
21000, -(5P)
PC.BLS$DIV

TST

S$:

¢ ,BLOCKS.LEFT

9-1,R2
3¢

B8R

JSR

000114°
000026

*,SIZ¢E

3EQ_0354

CST,.ADDR,RO

ADD
MOV

4 ;

V4.0 579

MAD1,R1

o
oy,
8LOS

000026
000110’

DISKS$USERZ:
[POWERS ]ZRQADO.BL2; 6

CUOFF ,RO

SuB

VAX-11 Bliss

MOV

000777
001000
0000006

11:08:35
11:08:22

420,R3

MOV

2%:

1984
1984

MOV
MOV
ASL
ADD
MOV

cMe
BLOS

000050

Apr
Apr

vOol.6

11
11

®e

EXERCISER

®c

RD/Rx

ZRQAMS

SIZE,

4227

4229

4205
4192

Fle
ZJRQAM3Z

RD/Rx EXERCISER

4251
4252
4253
4254
4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267
4268
4269
4270

4271

4272

4273
4274
4275
4276
4277
4278
4279
4280
4281
4282
4283
4284

novalue

11:08:35
11:08:22

VAX-11 Bliss 16 v4,0 579
OISKS$USERZ:
[POWERS )ZRQADO.BL2;: %

'D ID B I D ID

I D

I ' ®

11-Apr-1984
11 Apr-1984

ROUTINES

THIS RQUTINE

IS CALLED BY

THE

FIRST

MSCP

THE

DATA PATTERN
¥F THE
HEN

PACKET

QIO_GEN
THE

TO LOAD

APPROPRIATE

SELECTED

OPERATOR

DEFINED

IS BASED
A

DATA

THE

I/0 BUFFEK

DESCRIBED

DATA

PATTERN.

THE

FOLLOWING

ALGORITHM:

PATTERN

SELECT

GET DATA PATTERN NUMBER FROM SW P
IF DATA PATTERN NUMBER = O

ID I

WITH

TO BE

ELSE

TABLE

IB B

THEN

ID IB

GET DATA PATTERN NUMBER FROM
IN THE DATA PATTERN SEQUENCE
NOTE THAT PATTERN & 1 CONSISTS OF RANDOM NUMBERS,
21 USE THE ACTUAL LBN OF THE WRITE REQUEST.

IB IB

4242
4243
4244
4245
4246
4247
4248
4249
4250

TEST

routine FILL BUFF

IB B

4241

GLOBAL

ORIVE

IMPLICIT

B IO

4232
4233
4234
4235
4236
4237
4238
4239
4240

MW TI
WD DDOBLLBLEGULWWWWNNNGN
N NN NN N R DD 0 1t s o b 4§t pus pmo P8 e pud Pt P P Pt ot puts (0 Pt (b P puid P Pt

vOl.6

INPUTS:

LSLUN

CURRENT

(DRS)

UNIT

THE UNIT'S ENTRY
TABLE (DPST)

AND PATTERNS

NUMBER

beg'n

loceal
DP_NUM : word,
DP _ADDR,
108 ADDR,
SRC _ADDR,
COUNT : word;
ifF

BIT_TST

then

else

(SWP

DP _ADDR

FLAGS,

OATA PATTERN NUMBER SELECTED
ADDR

DATA PATTERN

(LENGTH)

1/0 BUFFER ADDRESS (DESTINATION)
WORKING SOURCE ADDRESS
NO. OF WORDS IN DATA PATTERN
SWF

UDP)

SWP UCNT

USER

SELECT

DEFINED

A DATA PATTERN

beg'n
if .SWP DPAT
then

else

OP _NUM

neq O

SWP DPAT

USER

SELECTED A PRE

DEFINED DATA PATTERN

SELECT

!
!

GET PATTERN NUMBER FROM SEQUENCE
ADVANCE TO NEXT PATTERN NUMBER

CHECK

begin

DP _NUM = DPST [.LSLUN];
DPST [.LSLUN) = DPST [.LSLUN]

_DPST

thenr

end;

DPST

[.LSLUN]

gtru DP

[ .LSLUN]

(NT

FOR WIGH ( IMIT

TABLE

GLE
ZRQAME

RD/Rx

vol.6

TEST

.DP

000000

004137/

000004
000006
000014
000016
000022
000024
000030
000032
000034
00003¢
000042
000046
000050

005746
032737
001403
012701
000443
013700
001402
010002
000414
013700
062700
005002
151002

11
11

ROUTINES

[.DP NUM

.DPA TBL

OP ADDR

NUM gequ

Apr
Apr

11;

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 15 v4,0 579
DISKS$USERZ:
[ POWERS )ZRQADO .BL2: 6

ADDRESS Of

CHECK MACRO (IF PATTERN

0356
age 125
(33)

DATA PATTERN (COUNT)

then

.DP NUM

then

else

17,

19,

(.0P ADDR

.MAD1

(LBN L)

{OMD LBN

INTO FIRST

(.0P ADDR

.MAD1

(LBN L ];

LOAD LBN

INTO SECOND WORD OF

!
!
!

I/0 BUFFER ADDRESS
NO. OF WORDS IN DATA PATTERN
START OF THE ACTUAL DATA PATTERN

FOR EACH WORD

!
!
!
!

MOVE 1 WORD
ADVANCE DESTINATION ADDRESSY
ADVANCE SOURCE ADDRESS
DECREMENT COUNT

TIF

REPEAT DATA PATTERN

WORD

ROUTINE

WORD OF

OR 21)

PATTERN

end;

IOB_ADDR = ._MAD1 (BUF _0];
COUNT = | DP_ADDR;
SRC _ADDR

_DP_ADDR

incr N from 1

to ((.MAD1

(BC LO)

?ESB_RDDR * _.SRC_ADDR;
IOB_ADDR

SRC_ADDR

COUNT
if

.IOB_ADDR

.SRC_ADDR

_COUNT

.COUNT eql

then

+»

7 2) do

1;
O

ENO OF

THIS WRITE REQUEST

DATA PATTERN

begin

COUNT = _ DP ADOR;
SRC_ADDR = .DP ADDR

NV YTV RV NP NP AT LVE VL VLV

N LN VEY YT RT YO XV XV 37 XV XV N7 RV IV ]

MULTI-DRIVE

VNPT R R

4285
4286
4287
4288
4289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304
4305
4306
4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319

EXERCISER

end;

end;
end;

.SBTTL
FILL.BWFF
::
JSR

0000006

000100
0000006
0000006

0000006
000050°

18:

2%:

FILL

BUFF

TEST ROVUTINES

R1,$SAVES

4232

8ITY

0100,
SWP . FLAGS

BEQ
MOV
BR
MOV
BEQ

1
gSUP.UCNI.Rl
)$
SWP ,DPAT
RO
2s

4260

TST

0000006

FILL.BUFF MULTI-DRIVE

TRANSFER LOOP

(SP)

MOV

RO,R2

MOV
ADD

LSLUN,RO
oDPST RO

B8R

CLR

RISB

(RO),R2

¢.,0P.ADDR

4268
4266

L-2

P
. NUM
¢ ,D

4274

4272

42-.v

1 UP.NUM
:

¢, 0P .NUM

I-ll()
JRQAME

kD Rx

EXERCISER

vol.6

MA TI

DRIVE

000076
000102
000104
000110
000112
o114
000122
000124
000132
000136
000142
000144
000150
000152
000154
000160
000162
000166
000172
000176
000209
000202
000204
000206
000210
000212
000214
000216
000222
000224
000230

i
:
:

105210
121027
101402
112710
010200
006300
016001
020227
103413
013700
006002
103004

016061
000403
016061
013700
016004

011103
012705

060105
010502

016046
005216
012746
004737
010066
005000
000405
012224
005303

TEST

ROUTINES

INCB
cMeB
BLOS

000025

000001

001072°
000021

000002

000046
000112
000032

000004

4321

MOV

MAD1,RO
R2
44
46(R0O),2(R1)

B8R

000002

000026

MOV
MOV
MOV
MOV
MOV
ADD
MOV
MOV

46(R0),4(R1)
MAD1,RO

32(R0O),R4
(R1),R3

92 .R5
R1.RS
RS,R2

26(R0O),
(SP)

INC
MOV
JSR

000002
000004

6s:

000006

7%:

Bliss

v4,0 579

OISKS
[POWERS
USERZ
1ZRQADO.BL2;6
:

5EQ 0357

Page 126
(33)

DP.NUM,
s

4282
4286

;3
s

¢,0P.ADDR
DP.NUM,
»

4288

OP.NUM

4293
4291

s,+(DP_ADDR)
¢,+(DP.ADDR)

; «,10B.ADDR
:

;

(sP)

DP.ADDR,COUNT

DP.ADDR,

¢,S5RC.ADDR

4292
4291
4295
4299
4300
4301

4303

82, -(SP)

CLR
BR

RO,4(SP)
RO
7%

DEC
BNE

R3
74

INC
CMe
BLE

R5.Re
RO
RO,.4(SP)
6%

MOV

MOV
MOV

000004

VAX

PC.BLSDIV

MOV

ADD
RTS

77 words,
Routine Size:
Rout ine Base:
$CODES
Maximum stack depth per invocation:
10 words

4320

OPA.TBL 2(RO),R1

8CC

44;
5%:

11:08:35
11:08:22

4278
4230

R2, 021

MOV
ROR

000046

1984
1984

91,(RO)
R2,RO
RO

MOV
ASL
MOV

eLo

000112

Apr
Rpr

(RO)
(RO), @25
3

MOVB

001002

011103
010502
005200
020066
003767
062706
000207

11
11

(R2)+,(R4).

SRC.ADDR, I0B.ADDR
COUNT

(R1),R3

OP .ADDR,COUNT

06 ,SP

17506

¢ ,SRC.ADDR

N
N,

4305
4308
4310

4313
4314
4303

112
JRQAMS

RO/Rx

ML TI ORIVE

4349
4350
4351
4352
4353
4354
4355
4356
4357

UNDER

000002
000010
000012
000016
000022
000024
000030
000034
000040
000044
000052
000054

023737
001467
004737
010037
010046
012746
004737

062700
010037
126027
001406
116016

v4.,0

579

11 Apr-1984

11:08:22

DISK$USERZ2: (POWERS JZRQADO.BL2; 6

Page

127

(34,

B
ID
I

FOR

INDECES OF RETURN PACKETS WHICH

TEST, RETURN PACKETS ORIGINATE FROM TWO SOURCES:
- THE MORE COMMON, DESCRIBING A COMPLETED I/O
OPERATION.
bup
- THE LESS COMMON, DESCRIBING A PORTION OF I/0
COMMUNICATIONS WITH THE CONTROLLER PROGRAM,
THE PROGRAM "DRIVER” - DESCRIBING A CONTROLLER ERROR OR
COMMAND TIMEOUT,

.I0O0Q_IN neq

begin

RP_ADDR
if

IT HOLDS

TO CHECK

THE MULTI DRIVE
1. MSCP

while

TWO PROGRAM PARTS;

then (SET_CPAR

010146

VAX-11

PROCESSING.

RP_INDX

000000

NCVALUE

11:08:35

o
'
'
D
I B
'+

REQUIRE

b b
N 02 10 s 00 1t 1t o 1=t b Pt b Pt p=0 P (b Pt P

BETWEEN THE

NN N

4340
4341
4342
4343
4344
4345
43436
4347
4348

Bliss

5£0_0358

1984

THIS ROUTINE IS CALLED FROM THE MULTI ORIVE “EXECUTIVE” AND DUP_COMMAND
AND PROCESS ANY RETURN PACKETS THAT HAVE BEEN “SENT" BY THE “DRIVER"
PORTION OF THE PROGRAM, THE I/0O DONE QUEUE (IODQ) ACTS AS THE LINK

NI PO N

4332
4333
4334
4335
4336
4337
4338
4339

TEST ROUTINES

NOT

.IODQ_OUT

QUT_IODQ

RETPKT

(.RP_ADDR

selectoneu

();

(.RP_INDX

(CONID)

(.RP_ADDR

.RP_ADDR

& RP_LEN ¢ 2);

eql

GET

i f

CID_OUP)

SET

I/O DONE

INDEX

CALCWWLATE

(CTLR]);)

[CONID)

DO UNTIL

not

RETPKTI

DUP

than

UP CURRENT

CONNECTION ID

QUEUE
RETPKT

ADDRESS

EMPTY

AMD

ADVANCE

OUT

POINTER

CONTROLLER PARAMETERS

INDICATES PACKET

SOURCE

set

AU RV D VNPT

433)

11-Apr

GLOBAL ROUTINE PROC _RETPKT

(CID_MSCP)
{CID_DUW) :
{CID_DRIVER]
(otherwise]

tes:

= PO

B¢

8¢

vol.6

4322
4323
4324
4325
4326
4327
4328
4329
4330

EXERCISER

:
:

IO_RETPKT ();
DIO_RETPKT ();
DR_RETPKT ();
PRINTF (DBM12,

' DISK MSCP (I/0 TRANSFER DONE)
t DUP (I/0 TRANSFER DONE)
! MESSAGE FROM “DRIVER"
.RP ADDR [{CONID));!"CONN ID

end;

.SBTTL

000000G 000000G
000000G
0000006

000054
0000006
0000006
0000006
000003
000002
000002

PROC.RETPKT:
;
MOV

1$:

CMHP
BEQ
JSR
MOV
MOV

MOV
JSR
ADD
MOV
cHMP8
BEQ
MOvB

PROC.RETPKT MULTI DRIVE
R1,

UNITL

= xXXxX RECEIVED"

I7/0 DONE

QUEVE

EMPTY

TEST ROUTINES

(SP)

;

4322

PC,0UT.I00Q
RO,RP
. INDX
RO, (SP)
954, -(SP)
PC.BL $MUL
ORETPKT
RO
RO ,RP,ADDR

4342

I00G. IN, IODQ.0UT
7%

3(R0O), 42
23
2(RO),(SP)

4340

RP.INDX,

4343

4344

;

1345

JL2
RO/Rx EXERCISER
MULTI-DRIVE TEST

ZRQAMX
vOl.6
000060
000064
000070
000074
000076
000102
000104
000106
000112
000114
000120
000122
000126
000130
000134
000136
000142
000144
000146
000152
000156
000160
000162
000164
000166

000170
000172

;
;

042716

004737

013700
005001
156001
005701
001003
004737
000424
020127
001003
004737
000416
020127
001003
004737
000410
010116
012746
012746
010600

ROUTINES

MOV

CLR
8IsB

000003%
000000V
s

000000V

000003

44:

000000V
S5$:

0000006
000002

104417

022626
022626
000705
012601
000207

9177760,(SP)
PC,SET.CPAR
RP . ADOR,RO
R1
3(RO),R1
Rl
34
PC.IO.RETPKT
64

8IC
JSR

177760

0000006
0000006

000002

11-Apr
11 Apr

6$:
7¢:

Rout ine Base:
62 words,
Routine Size:
7 words
Maximum stack depth per invocation:

TST
BNE
JSR
B8R
CHMP
BNE
JSR
B8R

R1,02
44
PC,DIO.RETPKT
64
R1,03

cHP

5¢
PC,DR.RETPKT

BNE
JSR
B8R

R1,(SP)

MOV
MOV
MOV

11:08:35
11:08:22

VAX-11 Bliss

16 v4.0 579

DISKS$USER?2: [POWERS JZRQADO.BL2 ;5

SEQ 0359

Page

128

(34)

4347

4350

;

4347

4351

4352

3
:

4347
4354

4347

90BM12, -(SP)

MOV
TRAP
cHe

(SP)e+,(SP).
(SP)+,(SP).
1
(SP).,R1

cHe
BR
MOV

RTS

$CODES

1984
1984

+»

17740

H
:

434

4340

4322

K12
ZRQAM3

RD/RX EXERCISER

vOol.6

MULTI DRIVE TEST ROUTINES

4358

:
3
H
H

4361
43¢.

4362
4;6;

1
1
1

:
B
:
H
:
H
H

4366
4367
4368
4369
4370
4371
4;;%
4374
4;;5

:
:

4359
4360

436

1
1

te
!

11:08:35

VAX-11 Bliss

11 Apr 1984 11:08:22

!
'
H
H
'
H
'

IMPLICIT INPUTS:
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACCET
T _ADDR
ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY)
CST_ADDR - ADDRESS OF THE CURRENT CONTROLLER'S CST
DUOFF - CST OFFSET FOR THE CURRENT UNIT
LSLUN
CURRENT UNIT NUMBER
CCTLR - CURRENT CONTROLLER NUMBER

1
1

!
'

IMPLICIT OUTPUTS
CST_ADDR [ .DUOFF

1
1
2
2
2
2
2
2
2
2
2
3
3
3
3
4
4
4
3
3
2
3
3
4
3
a
4
4
4
4

:
:

4407
4408

S
S

4409

4410

SEQ 0360

Page

: NOVALUE =

1
1
1
1
1
1
1

16 v4.0 579

DISKSUSER?2: [POWERS)ZRQADO .BL2:6

THIS ROQUTINE 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.

4376
4377
4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
4401
4402
4403
4404
4405
4406

GLOBAL ROQUTTINE TIU_RETPKT

1564

H
!

:
H
:
:
:
H
H
:
H
H
H
H
H
H
H
H
:
H
:
:
:
H
H
H
:
H
H
H
:
H

11-An=

’

!
!BEGIN

+ OF _DBN, NODUPMEDIA]

FLAG : BYTE INITIAL(BYTE(TRUE)),
SUM2 : WORD,
SUM : WORD;
'PRINTX (DER18);

THIS BIT SET NO DUP EXERCISER

LOCAL

IF .RP_ADDR [STATUS) NEQU ST_SUC
THEN
BEGIN
CST_ADOR ([ .DUOFF + OF _DBN, DUPERROR] = 1;
HARD _ERROR ();
IF .RP_ADDR (ENDCOD] EQLU (OP_ELP + OP_END) OR
.RP_ADDR [ENDCOD] EQLU (OP GDS + OP END)
THEN
BEGIN
CST_ADDR [ .DUOFF « OF DBN, NODUPMEDIA])
END;
END
ELSE
! ELSE
BEGIN

!
!
=

TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT
!

IF STATUS CODE

SET DUP ERROR FLAG

IF ENDCODE

INDICATES ERROR

IS EXECUTE LOCAL PROGRAM
OR GET DUST STATUS

TURN OFF DUP EXERCISR

1/0 WAS SUCCESSFWL

IF _RP_ADOR [ENDCOD) EQLU (OP_GDS +« OP_END) ! IF ENDCODE IS GET DUST STATUS
THEN
BEGIN
IF _RP_ADDR (9,11,1,0) EQL 1
THEN CST_ADDR [ .DUOFF + OF DBN, D_ACTIVE) = ACTIVE
' CONTROLLER IN AN ACTIVE STAE
€ELSE CST_ADDR [ .DUOFF + OF DBN, D ACTIVE) = IDLE;
! CONTROLLER IN AN IDLE STATE
IF .RP ADDR [9,9.1.0) NEQ 1 THEN
t TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF DULP DOC)H
BEGIN
HARD _ERROR ();
CST_ADDR ([ .DUOFF

END;

DBN,

NODUPMEDIA]}

TURN

OFF

DUP

EXERCISR

129

(35)

| L2
RD/Rx EXERCISER
MULTI-DRIVE TEST

aaly

aay12
4413
4414
4415
4416
aa1?
4418
4419
4420
4421
4322

[V IS LV XTIV R AV YV N NV RV )

ZRQAAM3
vOl.6

000000

010146

000002
000006
000012
000016
000020
000024
000026
000032
000040
000044
000050
000056
000060
000066
000070
000074
000076
000102
000110
000112
000120
000122
000126
000130
000134
000142
000144
000152
000154
000162
000170
000172
000176
000202
000204
000210

112700
013701
005761
001435
013700
006300
063700

052760
004737
013700
126027
001404
126027
001112
013700
006300
063700
052760
000501
126127
001036
013700
006300
063700
032761
001404
052760
000403
042760
032761
001012
004737
013700
006300
063700
052760

11
11

ROUTINES

( .RP_ADDR [ENDCOD) EQL (OP RCD
( .DUPPKT [DUPTYPE] EGQL 6) AND

Apr-1984
Apr-1984

();

END;
PUT RETPKT
END;

(.RP_INDX);

.SBTTL
DIO.RETPKT:;
MOV
MOvVB
MOV

000001
0000006
000016

TST
BEQ

MOV
ASL
ADD

001156
0000006
040000
000020
000000V
0000006
000014
000203

000014

8IS
JSR
MOV

000201

001156

1¢:

0000006
100000
000020
000014

000201

2$:

001156

020000
020000
001000

000020
000020
000022

000000V
001156

000000G
000020
100000

CMPB
BEQ
cMPB
BNE
MOV
ASL
ADD

BIS
B8R
CcMPB
BNE
MOV
ASL
ADD

0000006
004000
000022

Is:
43
;

VAX-11 Bliss-16 v4.0 579
DISK$USERZ: [POWERSJZRQADO.BLZ2;6

5EQ 0361
Page 130
(35)

« OP END)) AND

'IF IT
(.DUPPKT [DUPMESG) EQL 2) AND
( .CST_ADDR (.DUOFF + OF DBN, DUPWRITE) EQLU 1)
THEN DUP COMPARE

11:08:35
11:08:22

8I7
BEQ
BIS
B8R
BIC
BIT
BNE

JSR
MOV
ASL
ADD

BIS

IS A RECEIVE OBN COMMAND WITH TYPE 6 AND MESSAGE 2 THEN
t IF WRITE FLAG SET IN CST TABLE THEN COMPARE BLOCKS

COMPARE

THE FOLLOWING S12 BYTES

ROUTINE DIO_RETPKT

OIO.RETPKT MULTI-DRIVE
R1, -(SP)
21,RO
RP_,ADDR,R1

TEST ROUTINES

: +.FLAG

4359
4378
4385

16(R1)

4388

CST.ADDR,RO

#40000,20(R0O)
PC,HARD .ERROR
RP,ADDR,RO

4389
4390

14(RO), 0203

14(R0O), 0201

64
DUOFF ,RO
RO

4391

4393

CST.ADDR,RO

24100000, 20(R0)
64

14(R1),@201
S
DUOFF ,RO

4385
4399
4403

CST.ADDR,RO

24000.22(R1)
$
220000,20(R0O)

220000,20(RO)

glOOO.ZZ(Rl)
$

PC,HARD .ERROR

DUOFF ,RO

CST.ADDR,RO

€100000,20(R0)

4402
44303
4402
4404

4405
440"
44308

RD/RXx EXERCISER

ZRQAM3

MU TI-DRIVE

vOl.6

000216
000222
000230

000232
000236

000242
000246
000250
000254
000260
000264
000266
000272
000274
000300
000306
000310
000314
000320
000324
000326
000330

;:
:

013700
126027
001031
013700

042700
020027
001022
013700
042700
020027

001013

013700
006300
063700
032760
001402
004737
013746
004737
005726
012601
000207

Routin e Size:
Maximum stack

4323

11
11

TEST ROUTINES

0000006
000205
000014

MOV

0000006
007777
060000

MOV

0000006
170000

MOV

14(RO), #205

DUPPKT ,RO

@7777,RO
RO, 60000
64
DUPPKT ,RO
€170000,R0
RO, @2
64
DUOFF ,RO

8IC
cMP
BNE
8IC
cMP
BNE
MOV
ASL
ADD

001156
0000006
000020
010000
000000V
0000006
0000006

6$:

Rout ine Base:
3 words

invocation:

11:08:35
11:08:22

VAX-11 Bliss 16 v4.0-579
DISK$USERZ:
[POWERS JZRQADO.BL2;:6

SEQ 0362
Page

131

(35)

44313

;

4414

4415

4416

;

4417

4421

CST.ADDR,RO
glOOOO.ZO(RO)

BIT
BEQ
JSR

PC,DUP
. COMPARE

MOV

PC,PUT ,RETPKT

JSR

$CODES

1984
1984

(SP).
(SP)+,R1

TST
MOV
RTS

109 words,

depth per

RP.ADDR,RO

CMPB
BNE

000002

Apr
Apr

20134

;

4378
4359

N12
ZRQAM3

RO/RX EXFRCISER

vOl1.6
;.

11-Apr-1984

MULTI-DRIVE TEST ROUTINES

4424

GLOBAL ROUTINE DUP COMPARE

11:08:35

VAX-11 Bliss-16 v4.0-579

11 Apr-1984 11:08:22
:

NOVALUE

DISK$USER2: [POWERSJZRQADO.BL2;:6

4426

;4428
;.
4429

1
1y

'
'

THIS ROUTINE IS CALLED BY DIO_RETPKT WHEN THE RECEIVE DATA COMMAND
IS BEING PROCESSED. THIS COMMAND COMPARES THE WRITTEN BUFFER WITH

;4431
;4432
:
4423
;.

4434

1
1
1

'
'
'

THE ROUTINE INCREMENTS THE TALLY TABLE.
IF THE COMPARE SHOWS AN
ERROR. THE DBN HARD ERROR COUNTER WILL BE INCREMENTED AND THE
THE DBN NUMBER AND BYTE COUNT WILL BE PRINTED.

:
:

4335
4436

1
1

'
'

IMPLICIT

;
4438
;4439

1
1

!
!

;4441
4442
i
;4443
:
4444
;i
4445
;:
4446
;4447

2
2
2
2
2
2
2

4427

4430

4437

4440

:
:
i

:243
49
4450

;

;i
;
H
:
;.
;:

2221

4453
4454
4455
4456
4857
4458

2
3
3

a
a4
4
3
2
1

THE

PATERN

WORD

GIVEN

SEND

FOR

EVERY

WORD

COMPARED

THE SAVED PATTERN WRITTEN TO THE DBN’'S

T_ADDR
CST_ADDR

!
¢

THE ADDRESS OF THE TALLY TABLE FOR THIS UNIT
THE ADDRESS OF PRESENT CONTROLLER STATUS TABLE

THE

OWN

COUNT

POINTER

FOR

DUP

BUFFER

WORD;

'PRINTX (DER19);
S_DUPPKT = 0;
INCR COUNT FROM 1 TO 256 DO
*INDEX PIONTER FOR DATA STORED IN MSCP ENV PACKET
BEGIN
S_DUPPKT = _S_DUPPKT + 2;
' INITIALLY THIS SKIPS THE FIRST WORD OF DUPPKT
IF .(DUPPKT + .S_DUPPKT) NEQ .S_PATTERN THEN
'IF THE CONTENTS OF DBN DOESN'T EQUAL PATTERN
BEGIN
CST_ADDR [ .DUOFF + OF _DBN, DUPERROR] = 1;
' SET DUP ERROR FLAG
ERRHRD (46, EH_10, ENS 22);
'LIST ERROR
EXITLOOP;
END;
END;
'GO THROUGH ALL DBN WORDS
END;
'END ROUTINE DUP COMPARE

.PSECT
.BLKW

$GGG$.,
1

.SBTTL

DUP.COMPARE MULTI DRIVE

.PSECT

005037
012701
062737
013700
026037
001415

COMMAND.

BEGIN

020466

000002
000006
000012
000020
000024
000032

DATA

S_DUPPKT

INPUTS:
S_PATTERN

COUNT:

010146

132

(36)

LIS

001206
001206

000000

Page

4425

SEQ 0363

000000G
000400
000002
000000G
000000G
000000G 000000G

DUP .COMPARE
; :
MOV
CLR
MOV
1$:
ADD
MOV
CMP
BEQG

$CODES,

R1,-(SP)
S.DUPPKT
9400 ,R1
92,5.DUPPKT
S.DUPPKT,RO
DUPPKT(RO),S.PATTERN
23

TEST ROUTINES

:
;
:
:

4424

¢,COUNT

444~
4348
4450
43451

b1
RD/RX EXERCISER
MA TI DRIVE TEST

ZRQAMX
vOl.6

000070
000072
000074

013700
001156
006300
063700
0000006
052760
040000
00CV20
104456
000056
0000006
0000006
000402
005301
001350
012601
00020~

11
11

ROUTINES
MOV
ASL
ADD

4459
4461

1
1
1

1984
1984

11:08:35
11:08:2°2

VAX-11 Blies 15 v4,0 579
DISKSUSER? : (POWERS JZRQADO.BL2: 6

5€Q 0364

Pege

133
(%)

]

4453

4454

#40000,20(RO)

TRAP

.WORD
.WORD
LHOED
BR
otl
8" E

56
EM.10
EMS, 22
3
Rl
13

MCV
RIS

Rout ine Base:
$CODFS
31 words,
: Routine Sice:
3 words
: Max"mum stack depth per invocation:

4460

DUOFF ,RO
RO
CST.ADDR,RO

BIS

Apr
Apr

(SP).,R1
PC

20466

s
:

COUNT

4452

4448

44248

Cl4
JRQAMS

RD/Rx EXERCISER
MA TI DRIVF TEST ROUTINES

S0
G0
G
S0
00
00
SF
Vo
Ve
!
Ge

4a9]

4497

4498

4499

4500

4501
4502
4503

V¢

Ve
Gs

4492
4493
4494
4495
4496

V¢
@1

4489
4490

4505
4506
4507
4508
4509
4510
4511
4512
4513
4514

routine

10 RETPKT

movalue

Apr
Apr

1984
1984

11:08:35
11:08:22

VAX 11 Bliss 16 v4.0 579
DISKSUSERZ
: [POWERS)ZRQADO.BL2;:6

THIS ROUTINE IS CALLED BY PROC_RETPKT TO MANDLE ALL I/0 TRANSFER
RETURN PACKETS, PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY
MARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND

=0 00 put o

@ pus gt

OLOBAL

PERFORMING MOST

e e pe e =t 3t gt g

G0
Po
B0
W0
G4
OF
S0
G0
U

4488

60
Ve

4376
44"
4478
449
4480
4481
4482
4483
4484
4485
4486
4487

LN WWUWN WNIN RN NN N R P

44°5

Ge
G0

4464

4465
44606
4467
4468
4469
4470
44"
447
447}
444

WD WWNWBD WM UWRNIWWUWD D DD

4462
4408

G0 O

vOol.é6

11
11

IMPLICIT

WRITE-COMPARES

INPUTS:

CST _ADDR
RP _ADDR
T _ADDR

CCTLR

LSLUN

IF REQUIRED.

ADDRESS OF CURRENT CONTROLLER'H CST

ADORESS OF THE CURRENT RETURN PACKET
ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK

(TALLY)

CURRENT CONTROLLER NUMBER
CURRENT

UNIT

NUMBER

beg'n
local
FLAG

FSET _UPAR
ST CODE =
SB CODE =
“f

(.ST

byte

nitial

()3
.RP_ADDR
.RP_ADDR

CODE

neq

(byte

(TRUE));

[STSCOD);
[SUBCOD];

SUC)

!
!
!

FIND UNIT'S ENTRY IS CST AND SET
GET STATUS CODE FROM RETPKT
GET SuB CODE, IF ANy

UPDATE

NO POINT

DROP

STATUS

CODE

INDICATES

UP UNIT

RELATED DATA

ERROR

then

beg?n
HARD ERROR

();

COMPARE DATA

neaq

(.ST_CODE

FALSE;
ST _OFL)

and

ERROR

COUNT

IN DOING HOST

UNIT

ERROR

COMPARES ON ERRORS

COUNTS

EXCEEDS

LIMIT

(.ST_CODE neq ST AVL) and
(.T_ADDR (ERR HARD] gequ .SWP ERROR)

then

begn

DUS {.LSLUN) = DU HERR;

' LOAD REASON FOR DROPPING 'NIT

OODU (.LSLUN);

DROP UNITY

UPDATE

end;
end

elseb.

1/0 WAS

SUCCESSFUL

X a)

UPD

()

_RP ADDR

[ENDCOD]

COMPARE

DATA

then

TALLY

eql

(0P WR!

SWF

()

HWC))

TALLY

(STATISTICS)

or OP END)

TRt
;

(BIT_TST (SWP FLAGS,
( .COMPARE DATA)
then
FLAG = HOST WRT CHK

1/0

and

HOST

SAVE

COMPARES MAY

HOST

ALLOWED

IS DOING WRITE

1/0 PACKET

NO FLRTHER ERROR

COMPARES

DO WRITE

CHECK

5EQ 0365
P

134

.'.(37)

D135
IRQAMS

RO/Rx EXERCISER
MA TI DRIVE TEST

4515
4516
4517
4518
4519
4520
4521
4522
4523

(XS VLV VE VI V] VY7 ]

B¢

vol.6

000070
000074
000100
000106
000110
000116
000120
000124
000132
000134
000140
000146
000150
000152
000156
000162
0C0170
000172
000200
000206
000210
000216
000220
000224

if o FLAG
then

SWEEP
QIO

end;

();

[.CCTLR]

.QIO [.CCTLR]

11:08:35
11:08:22

000001
000000V
0000006
000016
300006
177740
000016

JSR

MOV

JSR

MOV
MOVB

8IC

MOV
ASR
ASR
ASR
ASR
ASR

174000

8IC

MOV
TST

B8EQ

000000V
001170

JSR

CLRB
Cre

000003

8EQ
e

BEQ

MOV

000014

0000006

000004

000000G

000000V
000000G
000014
000242
000001
000040

001170
000000G

000001

001170’

000000V

FLAG

cHe
8Lo

MOV
MOvB
TRAP
18:

B8R
JSR

MOV

CMPB
BNE

2s:

MOvB

81V
BEQ
BIT

BEQ
JO9R

MOvVB

STILL

VAX 11 Bliss 16 v4.0 579
DISKS$USER?:
[POWERS JZRQADO.BL2;: 6

5EQ 0364
Page

175
(37,

ROUTINE

I0O.RETPKT

MULTI

R1, $SAVE?
el,R1

PC,FSET ,UPAR

TO RETPKT

DRIVE

TRtE

BUFFER(S)

OECREMENT NO.

SBTTL

112701
004737

016002
006202
006202
006202
006202
006202
042702
010237
005737
001431
004737
105037
023727
001447
023727
001443
013700
026037
103435
013700
112760
104451
000426
004737
013700
126027
001003
112737
032737
001407
032737
001403
004737
110001

1984
1984

OFALLOCATE

IO.RETPKT::

000000G

116037
042737

ROUTILINES

Apr
Rpr

end;

004137

013700

11
11

AND RETPKT(S)

OUTSTANDING QIOs

TEST ROUTINES

o FLAG

RP_,ADDR,RO

4452
4478
4483

4434

16(R0),ST.CODE

0177740,S7.C00¢E

16(RO) RS

4485

ST.CODE
18

4487

R2
R
R2
R2
R2
9174000,R2
R2,58.CODE

PC.HARD .ERROR

4490

ST.CODE,
03
38
@04
ST.CO,DE
3
T.ADDR,RO
14(RO),SWP.ERROR
3
LSLUN,RO

4493

COMPARE .DATA

4491

2494

4495

4498

04 ,DUR(RO)

S1
LY)

4499
448~
4505
450"

PC.UPD, IO.TALLY

4509
4511

01,COMPARE .DATA

a5:2

T
. WRT , CHK
PC,HOS

RO,R1

4514

¢ FLAG

F13
ZRQAMZ

RO/Rx EXERCISER
MU TI DRIVE TEST

vOl.6

000226
000230
000232

000236

000242
000246

:
;

006001

103002
004737
013700
105360
000207

ROUTINES
3s:

000000V
0000006
0000006

11
11

84 words,
Rout ine Base:
Rout ‘ne Size:
on:
S words
Max'mum stack depth per invocat

ROR

MOV

oeCB

$CODES

VAX-11 Bliss-16 v4,0-579

DISKSUSER?2: [POWERS JZRQADO.BL2;: 6

5EQ 0367
Page 136

(37)

CCTLR,RO

:
H

4520
4502

44672

QIO(RO)

RTS

11:08:35
11:08:22

44
PC,SWErP

8cC
JSR

Apr-1984
Apr 1984

20564

FLAG

4518

l
JRQAMZ

RDO/Rx

MALTI DRIVE

@0
B9
€0
B¢
G
B0
G0
B0
@r
®

4540
4541

4542
4543
4544
4545
4546
4547
4548
4549
4550

=2 e 12 10 3 10 4t (oo 30 Pt Pt b gt Pt
N N N

4539

453~

4538

GLOBAL

TEST

11
11

ROUTINE S

routine FSET

UPAR

novalue

Apr
Apr

1984
1984

11:08:35
11:08:2°2

5£Q 0368

VAX-11 Bliss 16 v4.0 579
DISKSUSER2:
[POWERS JZRQADO.BLC ;6

Page

137
(38)

THIS ROUTINE

IS CALLED BY

IO RETPKT

AND OTHERS

THE

CURRENT

CONTROLLER STATUS TABLE (CST) FOR THE DISK ADDRESS WHICH IS
CONTAINED IN THE CURRENT RETURN PACKET, WHEN FOUND, THE OFFSET INTO THE
CST IS USED AS INPUT TO SET UPAR, WHICH SETS UP CURRENT UNIT RELATED

DATA PARAMETERS.

IMPLICIT

INPUTS:

RP _ADDR

ADDRESS OF CURRENT RETURN PACKET
ADDRESS OF CURRENT CONTROLLER'S

ADDR

CST

beg'n

incr OFFSET

D O

4528
4529
4530
4531
4532
4533
4534
4535
4536

N0 PO ) QoG

4525
4526
452~

B°

B¢

V¢

G¢

vVol.e
4524

EXERCISER

.CST

then

from (0

ADDR

beg'n
SET_UPAR

UN)

[.OFFSET

to ((UNITS PER CNTR

DATA,

D DISK NUM)

eql

& UNIT

SIZE

.RP ADDR

UN) by

[DISK]

( .OFFSET);

end;

000000

004137

000000G

000004
000010
000012
000014
000020
000024
000030
000032
000036
000040
000042
000044
000050
000052
000054
000060
000064
000066
000072
000075
00010C¢

012702
010201
006301
063701
013700
016004
111103
042703
020304
001005
010246
004737
005726
000207
062702
020227
003751
013746
013700
016046
012746

000003

(DBM19,

.RP ADDR

ASL

ADD
MOV
MOV
MOvVB

177760

0000006

000012
000041
0000006
0000006
000010
0000006

[(OISK),

.CCTLRY;

.SBTTL
FSET
. UPAR: :
JSR
MOV
1$:
MOV

000000G
0000006
000010

2$:

SIZE do

RETPKT

FOR EACH UNIT
MATCHES

FSET.JUPAR

MULTI

R1,$SAVEAL
03 ,R2
R2,R1
R1

DRIVE

TEST

CST

ENTRY

RELATED DATA

“CAN T FIND DISK xxx
ROUTINE FSET_UPAR

IN CST

ROUTINES

e
OFFSET,

4524
4540
4542

OFFSET

4545

¢, OFFSET

4546
4544
4540

s OFFSET

CST.ADOR,R1

RP . ADDR,RO

10(RO),R4
(R1),R3

81C

cMP

#177760,R3
R3,R4

MOV
JSR
ST
RTS

B8NE

'3
R2,

PC,SET
. UPAR
(SP).
PC

ADD
cMP
BLE
MOV
MOV
MOV
MOV

UNIT

SET UP UNIT
DONE

return;

PRINTF

UNIT

(SP)

e12,R2
R2,04]1
13
CCTLR, (SP)

RP_ADDR,RO

10(RO),
o0BM19,

(SP)
(SP)

e
OFFSET,

4549

G113
ZRQAMS

RD/RXx

vQol.6

000106

000112
000114
000116
000122

EXERCISER

MU TI DRIVE

TEST

11
11

ROUTINES

012746

43, (SP)
SP,RO

010000

104417
062706
00020~

Routine S'ce:

Maxv"'mum stack

17
e10,SP

PC
Rout ne Base:
$CODES
42 words,
depth per invocat ‘on:
11 words

21034

Apr 1984
Apr-1984

11:08:35
11:08:22

VAX-11 Bliss 16 v4,0-579
DISKS$USERZ2:
[POWERS JZRQADO.BL2;6

5EQ

0369

H1 5
EXERCISER

vOl.6

MA TI

DRIVE

®1

4576
4577
4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
45390
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602

4603

GLOBAL

TEST

routine

11
11

ROUTINES

HARD ERROR

THIS ROUTINE

novalue

IS CALLED BY

ERROR STATISTIC FIELD FOR

H83"E¥CE$DEO
F

THE

IMPLICIT

T_ADDR

1984
1984

11:08:35
11:08:22

VAX

Bliss

v4.0 S79

DISKS$USER2: [POWERS JZRGADO.BL2;: 6

5EQ 0370
Page 139

(39)

IO RETPKT

AND

THE CURRENT

OTHERS

UNIT,

SPECIFIED LIMIT,

THEN

INCREMENT

THE

HARD

MARD ERROR COUNT
UNIT

INPUTS:
LSLUN
CURRENT UNIT NUMBER
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST
CUOFF
CST OFFSET FOR CURRENT UNIT
T_ADDR

begin

OPERATOR

Apr
Apr

DROPPED

BLOCK

(TALLTY)

ESTING.

[ERR_MARD]

selectoneu

.ST

ADDRESS

CODE

ADDR

CURRENT

[ERR HARD])

UNIT

STATISTICS

INCREMENT

UNIT

S HARD ERROR COUNT

SUCCESS

WITH NON ZERC

INVALID

COMMAND

COMMMAND ABORTED

set

{ST_SUC1:

.SB_CODE neq ©

then
begin

.S58_CODE

then

else

4 O N O

4566
4567
4568
4569
4570
4571
4572
4573
4574
4575

) D U U8 O G O OGO 0 O8N D) (O G O O

4558
4559
4560
4561
4562
4563
4564
4565

N N

S0
89
G4
G0
GF
¢
V0
G0
G0
G0
B9
G0
G¢
G0
G0
VO
G0
V6
B0
O
G0
G¢
V0
B0
Ve
G0
G0
V8
Ve
G0
GF
VP
O
GF
Ve
B0
S0
BE
B
W
S0
B
B
VI
B¢
B¢
G0
B0
B4

455~

B¢

4551
4552
4553
4554
4555
4556

G 08 0 G G NS PO PO D ) ) D I\ 00 1ot 90 4t 0 1t o =t Pt 3ot (b it ot Pt gt

RO/Rx

ZRQAMX

else

AUDDR

(ERR

HRD_DRV])

ADDR

[ERR

HRD

DRvV]

ADDR

(ERR HRD HST])

ADDR

[ERR

HRD HST]

.APT

then

eql

MODE

ERR_HRD RTNE

APT

(44)

ERR HRD RTNE

(44);

end;

(ST CMD):

'n
beg
T

ADDR
_APT

then

else

[ERR

HRD

HST]

ADDR

[ERR

MRD

HST])

ADDR

[ERR

HRD

DRvV]

MODE

ERR_HRD RTNF

APT

(31)

ERR HRD RINE

(31);

end;

{57 _ARN]:

'n
beg
T

ADDR

[ERR

HRD

DRv]

. T

SUB CODE

T13
ZRQAM3
vol1.6

4611
4612

4613
4614
4615

4616
4617

4618
4619
4620
4621
4622
4623
4624
4625

4626
4627
4628
4629
4630
4631
4632
4633

4634

463S
4636
4637
4638
4639
4640
4641
4642

4643
4644
4645

4646

4647
4648
4649
4650
4651
4652
4653
4654
4655
4656

NNWWNO N NN ENWNHWRENDNDWNNENNENND
DD WNWHWNINNWWNWED BB WU W WN TM)
W

4604
4605
4606
4607
4608
4609
4610

RD/RX EXERCISER
MULTI DRIVE TEST

Apr-1984

11 Apr-1984

ROUTINES
if .APT
then

else

11:08:35

VAX-11 Bliss-16 v4.0 579

11:08:22

DISKS$USER?2: [POWERS JZRQADO.BL2; 6

MQODE

ERR HRD RTNE

APT

(32)

ERR HRD _RTNE

(32);

end;

(ST_OfL]

begin
T

ADDR

(ERR_HRD

_APT

then

DRV]

ADDR

[ERR_HRD _DRV]

¢+

begin
LMAIL _BOX_TESTNUM = 1;
.MAIL BOX SUBTST = _CST_ADOR

{.CUOFF

DATA,

ERRDF (18, EGD_18, EMS_18);
DUR [.LSLUN] = DU DFATAL;
DODU (.LSLUN);
end;
begin

ADDR

_APT_MODE

then

(ERR_HRD _DRvV]

begin
JMAIL BOX_TESTNUM

MAIL _BOX_SUBTST

end;

ADDR

[ERR HRD DRV]

1;
_CST ADDR

[.CUOFF

DATA,

ERRDF (24, EGD_18, EMS 24);
ODUR [.LSLUN] = DU_DFATAL;
000U (.LSLUN);

D DISK

DEVICE FATAL
DROP UNIT

WENT

D DISK

begin

T_ADDR
if

[ERR HRD SEK])

. T

ADDR

(ERR HRD

SEK]

NuM];

!
!

end;

(ST MFE):

OFFLINE

MODE

end;

(ST AvVL]):

ERROR

TO AVAILABLE

STATE

NUM];

DEVICE FATAL ERROR

DROP UNIT

MEDIA FORMAT ERROR

DEVICE

.APT_MODE

then

else

ERR HRD RTNF

APT

(35)

ERR HRD RTNE

(35);

end;

(ST

WPT]:

beg’'n
if

.S8

then

CNDE

eql

128

WRITE PROTECTED

SEQ 0371
Page 140

(39)

J13
ZRQAM3
v01.6

RD/RX EXERCISER
MU TI-ODRIVE TEST ROUTINES

]

4657

H
:

4660
4661

3
3

4663

H
H

4665
4666

3
3

:
:

4658
4659

4662
4664

4667

:
:

4668
4669

11 Apr-1984
11 Apr-1984

3
3

else

then

i f

else

end;

4670 3

(ST_CMP]:

T ADDR [ERR_HRD_HST)

_T_ADDR {ERR_HRD HST]

ADDR

[ERR

HRD _DRY)

T XDDR (ERR_HRD DAT]} = T ADDR [ERR_HRD DAT] + 1;

3
3
3
3

f _APT MODE
then
ERR_HRD_RINE
_APT

H
H
:
H

4675
4676
4677
4678

3
3
3
2

else

4680

H
:
:
:
H
:
H
:
H
:

H
:
:
H
:
:
:
:
:

:
:
:
H

4681
4682
4683
4684
4685
4686
4687
4688
4689

3
3
3
3
3
3
3
3
3

4690

4691
4692
4693
4694
4695
469¢
4697
4698
4699

4700
4701
4702
4703
4704

4707

:
:

4706
4708

4709

3
3

COMPARE ERKOR

DATA ERROR

!
'
!

BLOCK

ERR_HRD RTNE (37);

begin

else
if

T_ADDR

[ERR_HRD_SEK]

.T_ADDR

[ERR_MHRD_SEK]

T_ADDR

[ERR_HRD DAT])

_T_ADDR

[ERR HRD DAT])

(.SB_CODE eql 0) and
(not .FORCED_ERROR) and
(BIT_TST

then

(SWP_FLAGS,

SWF _FER

begin
FORCED_ERROR = TRUE;
FER_LBN = _RP_ADDR (LBN LO);
FER BC = .RP_ADDR [CBCNT LO1}:
end;

if .APT MOOE
then
ERR HRD RTNF
else
ERR HRD _RTNE

(37)

if .SB_CODE eql 2
then

3
3
3
3

(ST_DAT]:

3
4
4
4
4
3
3
3
3

4705

141
(39)

end;

ORV)

begin

4672
4673
4674

[ERR_MRD

Page

ERR HRD RTNE (36);

4671

4679

ADDR

5EQ 0372

ERR_HRD_RTNE APT (36)

:
:
:

VAX-11 Bliss-16 v4_.0 S79
DISKS$USERZ2: [POWERS JZRQADO.BL2: 5

.APT_MODE

2
3

11:08:35
11:08:22

APT

WITH

FORCED ERROR

(38)

(38):

end;

[(ST_HST):

begin
T

i1f

ADDR

_APT

(ERR_HRD

MODE

HST]

. T

ADDR

[ERR

HRD

HST)

.«

! HOST ACCESS ERROR

FQO'ND

<13
ZRQAM3S

RD/RX EXERCISER

SRR NV T AT RO NT NV RV 1 VI, SRV XV X7 J7 §O

Apr

1984

11:08:35

VAX

11:08:22

11 Bliss

5€Q 0373

V4.0 579

DISK$USER2: [POWERSJZRQADO.BL2; 6

Page

142

(39)

then

else

ERR HRD RTNE

APT

(39)

ERR HRD RTNE

(39);

end;

[(ST_CNT):

begin

T_ADDR
if

[ERR_HRD DRV)

.T_ADDR

[ERR_HRD DRV]

* CONTROLLER ERROR

.APT _MODE

then

else

ERR_HRD RTNE

APT

(40)

ERR HRD RTNE

(40);

end;

(ST_DRv}:

begin
if

.SB_CODE

then

els e

RN RN

RO RNV N S

ROUTINES

eql

L SRV RV R R

else

ADDR

[ERR HRD_SEK]

_T_ADDR

[ERR_HRD

SEK]

T_ADDR

(ERR_HRD DRV}

[ERR HRD DRV)

ERR_HRD RTNE _APT
ERR_HRD_RTNE

DRIVE ERROR

MESSAGE FROM

1§ .APT_MODE
then

ADDR

(41)

(41);

(ST DIA]:

end;

begin
T ADDR

R R

else

[ERR HRD _DRvV]

ADDR

(ERR HRD

DRv]

INTERNAL DIAGNOSTIZS

,APT_MQODE

then

4733
4734
473s
4736
4737
4738
4739
4740
a7a1
4742
4743
4744
4745
4736
a7a7
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762

R RN L N

3712
4713
4714
4715
4716
4717
4718
4719
4720
4721
4722
4723
4724
a472s
4726
4727
4728
4729
4730
4731
4732

TEST

ERR_HRD _RTNE

APT

(43)

ERR HRD RTNE

(43);

end;

(otherw se):

begin
C ERR
if

TBL

LAPT

4710
4711

MULTI-DRIVE

then

(RN

®s

B¢

V¢

O¢

v01.6

11-Apr-1984

else

[.CCTLR,

C ERR_HRD]

MODE

ERR HRD_RTNE

APT

(45)

ERR HRD RTNE

(45);

.C_ERR

TBL

(.CCTLR,

! PRINT STATUS CODE
C ERR HRD]) - 1;

NO MATCH

ZRQAMS
vOol.6
4704

4765
4766
4767
4768

-V
W

4763

RD/RX EXERCISER
MULTI DRIVE TEST

11:08:35
11:08:22

VAX 11 Bliss 16 v4,0-579
DISKS$USERZ:
[POWERS JZRAADO.BL2;: 6

5EQ 0374
Page

143

(39)

tes;

end;

0000006

013701
005261
013702
001030
013703
001001
000207
012700
060100
020327
001002
105210
000402
105260
032737
001403
012746
000556
012746
000556
020227

000000G
000014
000000G

105261
032737

ROUTINES

Apr-1984
Apr-1984

end;

004137

001014
105261
032737
001403
012746
000567
012746
000567
020227
001014
105261
032737
001403
012746
000567
012746
000567
020227
001036

11
11

.SBTTL

HARD .ERROR: :
JSR
MOV

INC

MOV

BNE

MOV

000000G

BNE

HARD.ERROR MULTI
R1,$SAVE3
T.ADDR,R1

14(R1)
ST.CODE,R2
5
SB8.CODE,R3

RTS

1$:

000050
000004

000001
000001

001162’

2s:
3s:

000054

000001

Ss:

000051
000001

001162’

000037

6%:

000002

7%:

000050
000001

001162

000040

8s$:

000003

005050
000001

001162

ROUTINES
4551
4567

4569
4572

4578

CcMP
BNE
INCB
B8R
INCB
BIT
BEQ

4576

ADD

1(RO)

#1,APT
. MODE
4%

054,

(SP)

B8R

BR
cMP
BNE
INCB
BIT
BEQ

BR
MOV
BR

oyo

BNE
INCB
BIT
BEQ
MOV
B8R

MOV

B8R

cMP
BNE

INCB

8IT

4578
4576
4580
4582
4584

4586

MOV

000037

TEST

MOV

000054

DRIVE

ROUTINE HARD_ERROR

4590

S1(R1)

41,APT MODE
64
237, (SP)

20
437,
224

(SP)

4591
4593

4595
4597
4601

R2, &2
93

SO(R1)

@1,APT MODE

4602
4604

4006
€40,

(SP)

264
R2,43
11$
S50(R1)

¢1,APT MODE

4608

612

4013

dolS

ZRQAM3

RD/RX EXERCISER
MULTI-DRIVE TEST

v01.6

000216
000220
000226

000232
000234
000240
000244
000252
000254
000256
000260
000262
000266
000274
000276

000300

000304
000306
000312
000320
000322
000330
000334
000336
000342
000346
000354
000356
000360

000362
000364
000370

000376
000400
000402
000406
000410
000414
000422
000424
000430
000432
000436
000440
000444
000446
000452
000454
000462
000464
000470
000472
000474

001415
012777
013700
006300
0632700

111077

042777
104455
000022
0000006
000000G
013700
112760
104451
000207
020227
001036
105261
032737
001415
012777
013700
006300
063700
111077
042777
104455
000030
000000G
0000006
013700
112760
104451
000207
020227
001014
105261
032737
001403
012746
000562
012746
000562
020227
001025
012700
060100
023727
001003
105260
000401
105210
032737

ROUTINES

BEQ

O0v1164°’
000001
0000006
000000G
001166’

177760

001166’

MOV
MOV
ASL
ADD
MOVB

10¢:

0000006
000005
0000006

000004

000050
000001

11%:

001162’

000001
001164°
0000006

000000G
001166’

177760

12%:

000000G
000005
0000006

000046
000001

13¢:

001162

000043

14
:
15%:
16
17

000043
000006

000050

TRAP

. WORD
.WORD
. WORD

MOV
MOVB
TRAP
RTS
CMP

BNE
INCB
BIT
BEQ

B8IC

TRAP

.WORD
.WORD
.WORD

MOV
MOVB
TRAP
RTS

CMP
BNE
INCB
BIT
8EQ
MOV
B8R

MOV

B8R
CcMP
BNE
MOV

ADD

000000G 000200

BNE
INC8

000C01

000001

8IC

MOV
MOV
ASL
ADD
MOVB

001166

000005

11 Apr-1984
11-Apr-1984

001162

18$:
19$:

INCB
BIT

11:08:35
11:08:22

10¢
1 ,9MA
.BOX. TESTNUM
IL

CUOFF ,RO

VAX-11

Bliss-16

v4.0-579

DISKS$USER2:
[POWERS JZRQADO.BL2;6

SEQ _037S
Page

144

(39)
4618

4619

CST.ADDR,RO
(RO),aMAIL .BOX,SUBTST

4622

4623

R2, %4

4624
4569
4627

01,APT MODE

4628
4630

13$
50(R1)
124

01,3M
.BOX.AIL
TESTNUM

CUOFF ,RO

4633
4634

CST.ADDR,RO
(RO),3MAIL .BOX.SUBTST

@177760,3MAIL .BOX.SUBTST

55
30
€GD.18
EMS.24
LSLUN,RO

4638

4639

@5 ,0UR(RO)

PC
R2,45

17¢

4637

4569
4642

46(R1)
1 ,APT MODE

4643
4645

043, -(SP)
35%
243, -(SP)

4647

R2, %6
234

4653

15%

#50,R0
R1,RO

SB.CODE
, €200
18
1(RO)
19¢
(RO)

#1,APT MODE

1649

4457

4655
4657

1655

4659
4601l

ZRQAM3
vol.6

000502
000504
000510
000512
000516
000520
000524
000526
000532
000540
000542
000546
000550
000554
000556
000562
000564
000570
000572
000600
000602
000604
000606
000612
000616
000620
000626
000630
000636

000640

000646
000652
000660
000666
000674
000676
000702
000704
000710
000712
000716
000720
000724
000732
000734
000740
000742
000746
000750

000754
000756
000762
000770

RD/RX EXERCISER

MULTI-DRIVE

001403
012746
000577
012746
000577
020227
001014
105261
032737
001403
012746
000577
012746
000560
020227
001053
012700
060100
023727
001002
105210
000402
105260
005737
001023
132737
001017
032737
001413
112737
013700
016037
016037
032737

001403
012746
000521
012746
000523
020227
001014
105261
032737
001403
012746
000502
012746
000504
020227

001014
105261
032737
001403

TEST

ROUTINES

B8EQ

000044

MOV

20¢%:
21$:
224:
23s:

000044

000007
000047
000001

001162’

24s:
25$:
26%:
27%:

000045

000010
000046

MOV

B8R
CMP
BNE
INCB
8IT
BEQ

000001
000001

000000G

004000

0000006

000001
000000G
000050
000044
000001

0000006
0000006
0000006
001162’

30$:

000046

254

B8R
CMP
BNE

45
R2, €10
32
46 ,R0O
R1,RO
S8.CODE,
#2
28%

MOV

INCB
TST
BNE
BITB

(RO)
294
1(RO)
SB.CODE
30¢

€1,FORCED.ERROR
304
#4000,
SWP .FLAGS
30¢
#1,FORCED.ERROR
RP.ADOR,RO
SO(RO),FER.LBN
44(RO),FER.BC
01,APT MODE

31¢
@46,

31¢:

000011

32¢:

001162’

000047
000047

33s:

000012

348

001162’

VAX-11 Bliss-16 v4.0 579

DISK$USERZ2: [POWERSJZRQADO.BL2;6

SEQ 0376
Page

145

(39

4663
4665
4669

4670"'
4672

4676
4680

4684
4682
4684
4682
4686
4688

4689

4690
4693
4694
4695
4698

(SP)

4700

946, -(SP)

4702

000046

11:08:35
11:08:22

4674

47%

CMP
BNE
INCB

28$:
29%:

0000006

21$
244, -(SP)
43
044, -(SP)
454
R2, &7
274
47(R1)
&1 ,APT .MODE

B8R

MOV
ADD

000000G 000002

000050
000001

B8R

MOV

000045

000051
000001

11-Apr 1984
11-Apr-1984

49
R2,#11

34
51(R1)
#1,APT MODE
338
447, -(SP)

47$
@47, -(SP)
49
R2,#12

38¢
S0(R1)

%1 ,APT
. MODE

364

4706

4707
4709

4711

4713
4717

4718

4720

i
ZRQAMS

RD '‘Rx EXERCISER

vVOl.6

000772
000776
001000
001004
001006
001012
001014
001022
001024
001030
001032
001036
001044
001046
001952
001C54
001060
00106
001066
001070
001074
001102
001104
001110
001112
001116
001120
001124
001126
001132
001140
001142
001146
001152
001154
001160
001164
001166

;:
:

MU TI DRIVE

012746
000463
012746
000465
020227
001023
023727
001003
105261
000402
105261
032737
001403
012746
000435
012746
000437
020227
001014
105261
032737
001403
012746
000416
012746
000420
013700
006300
105260
032737
001405
012746
004737
000404
012746
004737
005726
000207

Routine Size:
Maximum stack

TEST

000050

ROUTINES
35%:
LI
K
37¢:
384
;

000050

000013

11
11
MOV

050,
479
050,
4914

MOV

000051
000051

414

000037

000050
000001

VAX-11 Bliss-156 v4,0 579
DISKSUSER?
: [POWERS )ZRQADO.BLZ ;%

5EQ 0377
Page

1445
(39,

4’22

(5P)

4724

46(R1)
408
S0(R1)
1,APT MODE

40%:

11:08:35
11:08:22

(5P)

S8.CODE,
03
394

000046

001162

1984
1984

R2,013
428

000000G 000003

000050
000001

Apr
Apr

4728
4730

4732
4730
4734
477,

41
51, -(SP)

4733

951,
- (SP)

474C

4744

SO(R1)

001162’

o1 ,APT MODE

4745
4747

448

000053

53,
a7
053,

a43s:;
44
:
45s
.
464

000053
0000006

499

(SP)

4751

CCTLR,RO
C.ERR,TBL(RO)

#1.APT MODE
484

000055
000000V

478

000055
000000V

484
;
49%:;

S0s:

316 words,

4749

000000G
000001
001162’

depth per

(SP)

Rout ine Bese:
invocation:
6 words

PC.ERR
. HRD.RTNF APT

50¢
PC,ERR_MHRD.RTNE

ST
RTS

$CODES

(SP),

eC
.

21160

4756

4758
4700
4758

4762

4755
4551

Cl4
RD/Rx EXERCISER

JRQAMR

MATI

4769
470

4°"1

4°72
47°3
474
475
4776

47°7
778

4779

4780
4781
4783
4764

4785
4786

4787

4788
4789
4790
4791
4792
4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4312
4813

4814

4815
4816
4817
4818
4819
48,0
4871

CRCYCTCOLNEV LN V) VYE YT YT YRV RV RO NEC L VL SRV YV NV RV VTV RV RV L VRV LVILVEL VIS ILVE VY SR ol o ol ol ol ol ol ol ol ol ol ol ol ol o o

vol.6

GLOBAL

DRIVE

TEST

11 Apr 1984 11:08:35

ROUTINES

routine UPD

TALLY

novelue

Apr

1984

VAX 11 Bliss 16 v4,0 579

11:08:22

DISKSUSER?; [POHFPSIZRQADO BL2;:6

"°9231°147
(40)

H
!
!
4
!

THIS ROUTINE IS CALLED FROM [0 _RETIPKT FOR ALL I/0 TRANSFER RE TURN
FACKETS WITH “SUCCESS” STATUS CODES. ITS PURPOSE IS TO UPDATE ALL THE
APPROPRIATE STATISTICAL FIELDS FOR THE CURRENT UNIT, A CHECK [S ALSO
MADE ON THE TOTAL NUMBER OF BYTES TRANSFERRED THUS FAR; IF THE
OPERATOR-SPECIFIED LIMIT MAS BEEN REACHED, THEN THE UNIT IS OROPPED.

H
!
'
H

IMPLICIT

[]

INPUTS:
RP _ADDR
ADDRESS OF TrE CURRENT RE TURN PACKET
T_ADDR - ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCH
CST _ADDR
ADDRESS OF THE CURRENT CONTROLLER'S CS!?

CUOFF

CST OFFSET FOR THE CURRENT UNIT

LSLUN

]

(TAL) v)

CURRENT UNIT NUMBER

begin

loceal
THOUSANDS : word,
MILLIONS : word;
if

.RP_ADDR

then

(ENDCOD] eal

(OP RD or OP END)

TOTAL

NO.

I¥

INCREMENT NO.

!
'

CHECK FOR FIELD OVERFLOW

ENDCODE

BrTES

XFERRED

TC/FROM N IUNIT

IS READ

.
[ ,a)

T_ADDR

T_ADOR
T_ADDR

OvF _CHX
OVF _CH
OvF

else

(TOT_READS_LO)

T _ADDR

[TOT_READS
LO)

(BYTES_READ
_LO) » .T_ADDR [BYTES_READ_LO) «
[TOT _BYT _RED_LO) = .T_ADDR (10T _B8'T _RED LO)

(T ADDR
(T _ADDR

Crx

(T _ADDR

[TOT _READS_LO));
(BYTES _READ_LO]));

.RP _ADOR [BCNT LO);
+» .RP ADDR (BCNT _LO]);

[TOT BYT _RED_LO)):

OF READS AND ADD BrTE

ZOUNT

end

.RP_ADDR

then

[ENDCOD) eql

(OP _WRT or OP END)

ENOCODE

IS WRITE

ODR
T_ADDOR

[TOTVT_WRITES_LO)
(BYTES_WRIT_LO)

T_ADOR

(TOT BYT _WRT _LO)

=
«

.7 _ADDR
.7 _ADDR

_T_ADDR

[TOT WRITES LO)
[BYTES WRIT LO)

OVF _CHx (T _ADDR [ TOT WRITES_LO));
OVF _CHx (T _ADDR [BYTES WRIT LO1));,
OVF _CHx (T ADDR (TOT BYT WRT L0));

([TOT

811

WRT

.
»

LO)

1;
.RP ADDR
+

.RP

!t INCREMENT NO.
[BCNT LO);

ADDR

[BCNT

O],

TOTAL

BYTES

OF WRITES,

CHECK FOR FIELD OVERFLOW

end;
if

(.RP_ADOR

[ENDCOO)

eql

(OP

(.RP ADDR

(ENOCOD)

eql

(OP WRT

END))

or OP END))

then

begin
MILLIONS

THOUSANDS

. T

ADDR

ADOR

[MBYTES

READ]

[BYTES READ HI)

ADDR

[MBYTES

ADOR

WRIT),

[BYTES WRIT

HI];

TRANSFERRED

ADD BYTE

COUNT

D14
RD/Rx EXERCISER

JRQAMS
vol.6

4826

4827
4828

4829

1830
4831
4832
4333
4834
4835
4836
483"
4838
4839
4840
4841
4842
4843
4844
4845
4846
4847
4848
4849
4850
4851
4852
4853
4854

000000

000004
000010
000016
000020
000024
000030
000034
000042
000046
000050
000054
000060
000064
000070
000074

PNV WUNNANNNDDDDDIEBWUNNNNNUNW
NN D DD

4822
48238
4324
4825

MU TI

004137

013701
126127
001027
013700
005260
066110
066160
012746
060016
004737
013716
004737
013716
062716
000475

DRIVE

TEST

11 Apr 1984 11:08:35

ROUTINES

11-Apr

i £ . THOUSANDS gequ
then

1984

11:08:22

VAX 11 Bliss 16 v4.0 579

DISKSUSERZ:[POWERS 1ZRAADO.BL2;:6

MILLIONS = MILLIONS +
THOUSANDS -+ , THOUSANDS

end;

COINT

THE

LOWER

OVERFLOW

THE TOTAL DATA TRANSFER TO THE CONTROLLER AND
ABOUT 171000 THE DATA THE MARD DISK(S) GET,

XFER

eql

TOO!

1000,

THIS ADDED BECAUSE IT WILL TAKE FOREVER TO TRANSFER ON THE ORDER OF A MEGABYTE TO A FLOPPY
BUT IT IS A MUCH MORE REASONABLE MEASURE FOR THE RDS1/5. WINCHESTER.,
THE QUESTICN NOw REFERS

.SWP

(40)

1000

begin

E e ase 148

THIS

IS PRETTY

SINCE

THE

FLOPPIES

THERE

GET

END

TRANSFER

SET

END OF

ROUND

GET

TRANSFER

L IMIT

then
begin

i £

. THOUSANDS

gtru

100

then

EOP FLAG

TRUE;

_MILI

geau

PASS FLAG

end

else
f

then

TONS

EOP FLAG

=«

.SWP

XFER

TRUE;

end;

ROUND QUTPUT
end;

0000006
0000006
000014
000241
0000006
000016
000020
000020
000032

000016

(),

LS8TTL
PD.I0.TALLY::
JSR
MOV
cPB
BNE
MOV
INC
ADD
ADD
MOV
ADD

000000V
0000006
000000V
0000006
0000%2

JSR
MOV
JSR
MOV
ADO
BR

UPD.IO.TALLY
R1,$SAVE?
RP.ADDR,R1
14(R1),0241
13

T.ADDR,RO
16(RO)
20(R1),(RO)
20(R1),32(RO)

&16,

(SP)

ML TI

DRIvE

TEST

:
:
:

:
3
3

®D

REACHED

PASS FLAG
STILL

TOTALS

ROUTINE

ROUTINES

RO, (SP)

PC . OVF ,CHK
T.ADDR,(SP)
PC,OVF
. CrHK
T.ADDR, (SP)
03%2,(5P)
28

UNIT

_IMIT

ALIVE

TO FIT PRINT

IO_TALLY

POSITIONS

e
4’69
4792
.
4795
.
4’9§
0‘9.

4798

.
479

4800

FLd
ZRQAME

RD/Rx

EXERCISER

vOl.6

MULTI

DRIVE

000076
000104
000106
000112

000116
000124
000132
000136
000140
000144
000150
000154
000160
000164
000170
000174
000176
000202
000210
000212
000220
000222
000226
000232
000236
000242
000246
000252
000254
000256
000262
000266
000270
000274
000276
000300
000302
000304
000312
000316

126127
001034
013700
005260
066160
066160
012746
060016
004737
013716
062716
004737
013716
062716
004737
005726
013700
126027
001404
126027
001034
013700
016002
066002
016001
066001
020127
103402
005202

162701

013700
001004
020127

101406

000014

TEST

000242

00473/
000207

Routine Size:

Ma~'mum stack

ROUTINES
1:

cMPB

2%:

0000006
C.,0014
000241

38:

001750
0000006

VAX 11 Bliss 16 V4.0 579
OISKSUSERZ:
[POWERS JZRQADO.BL2;6

5EQ 0380
Page

149

(40)
4804

4807

4308
4809
4810

024, (SP)
RO, (SP)
PC,OVF
. CHK
T.ADDR, (SP)
06, (SP)
PC,OVF
. CHK
T.ADDR, (SP)
040,(SP)

4811

481¢c

PC,OVF .CHK
(SP).

4806
4315

RP .ADDOR,RO
14(R0O), 0241
4

14(R0O), 0242

T.ADDR,RO

4(RO),R2

12(RO),R2
2(R0O),R1
10(RO),R1
R1,01750

@1750,R1
SWP . XFER,RO
64

Ss:

R1,0144

7
ne,RO

6%:

01,E0P.FLAG

7%
8%;

104 words,
Rout ine Base:
depth per invocat on:
S words

4816

000144

000001
000000G
000000V

11:08:35
11:08:22

14(R1), 0242

000242

0000006
000004
000012
000002
000010
001750

1984
1984

20(R1),6(RO)
20(R1),40(RO)

000000V

000014

Apr
Apr

34
T.ADDR,RO
24(R0O)

0000006
000024
000020
000006
000020
000040
000024

000402
020200

103403
112737

11
11

SE.ROUND.OUTPUT
$CODE
$

22350

s MILLIONS
¢ ,MILLIONS

4819

¢, THOUSANDS
s, THOUSANDS

4820

THOUSANDS,
¢

4822

MILL IONS

¢, THOUSAHNDS

4825
48c6
4836

THOUSANDS,¢

4840

MILLIONS,

4342
4847

4849
4853
4769

14
ZRQAMSR

RD/Rx

MULTI DRIVE
0 Pt ot gt Pt ot Pt et

010146

000002
000006
000012
000014
000020
000022
000026
000030
000032
000036
000040
000044
000050
000052

016600
012701
060001
021027
103404
162710
005211
000771
021127
103404
162711
005260
012601
000207

Routine S ze:
Mar mum stack

TEST

11
11

ROUTINES

routine OVF _CHK
THIS ROUTINE

(ADDR)

novalue

Apr-1984
Apr 1984

11:08:35
11:08:2°2

VAX-11 Bliss 16 v4,0 579
DISKS$
[POWERS
USER?2
JZRQADO.BL2;6
:

56Q 0381

CALLED FROM UPD_IO_TAL:
Y TO CHECK

FOR

OVERFLOW

CERTAIN STATISTICAL FIELDS OF THE CURRENT UNIT. SPECIFICALLY, THE
LOW-ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR
EXCEEDING 1000. If TRUE, THEN THE HIGH ORDER COUNT IS INCREMENTED. IF
THAT

EXCEEDS

INPUTS:

0 s gt o
N N W) R) N
N

000000

:
:

GLOBAL

1000,

ADDR

THEN

THE

MEGABYTE

COUNT

INCREMENTED.

ADDRESS OF THE BYTES _READ LO OR BYTES_WRIT LO FIELD FOR
THE CURRENT UNIT (SEE STATISTIC TABLE (TALLY) LAYQUT)

begin

while

..ADDR gequ

begin

.ASDR = . ADDR

1000;

.(.ADDR

gequ

+
+

2)
4)

=
=

end;

1000 do

(.ADDR

then

(. ADDR

1000

LO ORDER OVERFLOW

SUBTRACT 1000
INCR HI-ORDER

[]

IF HI-ORDER OVERFLOW

H!
!

SUBTRACT 1000
INCREMENT MBYTES

begin

(.ADOR
(.ADDR

4878
4879
4880
4881
4382

V¢

B¢

V¢

B¢

O¢

vol.6
4855
4856
4857
4858
4859
4800
4861
4862
4863
4864
4865
4866
4867
4868
4869
4870
4871
4872
4873
4874
4875
4876
4877

EXERCISER

end;

_(.ADDR
_(.ADDR

»
»

2)
4)

1000;
1;

ROUTINE OVF _CHK

end;

OVF .CHK:
000004
000002

001750

18:

001750

2s:

001750
000004
33:

22 words,

depth per

Rout ‘ne Base:

invocation:

2 words

.SBTTL

OVF.CHK MULTI-ORIVE

MOV
MOV
MOV
ADD

R1, -(SP)
4(SP),RO

42,R1

RO,R1

cMe
8LO

(RO), 01750
2s
#1750,(RO)

SuU8
INC
B8R
CHP
8LO
suB
INC

(R1)
13
(R1),21750
3%

@1750,(R1)
4(RO)

MOV
RTS

$CODE
¢

(SP)+,R1

22670

TEST

ROUTINES
»
ADDR,

4855

4869
4372

4869

4871
4872

4869

48°S

4878
4872

4855

GLl4d
JRAAMEX

4886
4887
4888
4889
4890
4891
4892
4893

4894
4895
4896
4897
4898
4899
4900

4901
4902
4903
4904
4905

V1
OF
G0
Ve
OF
G1
Ve
G
Ge

4916

©%

4915

4907
4908
4909
4910
4911
4912
4913
4914

4917
4918
4919
4920
4921
4922
4923
4924
4925

4926
4927
4928

4929

4930
4931
4932
4933
4934
4335

DOBUWWWANDDEDNWWWNNNNNWMWWWD
DB WWWWNMNNITIOWWWWHNED BB WWWUWAIN NN, e e e pe pe e

4883
4834
4885

G¢

vol.6

RD/Rx

EXERCISER

MULTI

DRIVE

GLOBAL

TEST

ROUTINES

routine ROUND QUTPUT

novalue

11-Apr-1984

11:08:35

11:08:22

Apr-1984

THIS

.
.

ROUTINE

ROUNDS

THE

TOTALS

TO FIT

POSITIONS.

]
.

begin
“Ff

ADDR

[TOT

READS HI]

gtru 9999

then

begin

then

ADDR

(TOT

READS_LO}

lssu 999

begin

Y_gDDR (TOT READS HI) = .T_ADDR [TOT _READS _HI]) - 1;
T_ADDR

(TOT

READS LO)

.T_ADOR

end;

T_ADDR
T_ADDR
end;

[TOT_READS_LO)
[TOT_READS_HMI]

.T_ADDR

[TOT

WRITES

=
=

MI)

.T_ADDR
.T_ADOR

[TOT_READS _LO]

(TOT_READS_LO)
(TOT_READS_MI)

1000;

999;
9999;

gtru 9999

then

begin

ADDR

[TOT_WRITES

LO]

lssu 999

then

begin

T ADDR
T ADOR
end;

([TOT
(TOT

WRITES _HI)
WRITES_LO)

T_ADOR
T ADDR
end;

(TOT _WRITES LO]
[TOT _WRITES_HI)

=
=

T_AUDr

[MTOT_BYT_RED)

gtru

=
=

.T_ADDR
.T_ADDR

[TOT_WRITES WI]
(TOT _WRITES_LO]}

[TOT_WRITES_LO)
(TOT WRITES_HI)

1:
+

1000;

999;
9999;

999

then

begin

.T_ADDR

[TOT_BYT RED_HI]

lssu

999

then
begin

T_gDDR (MTOT _BYT_RED) = .T ADDR [MTOT _BYT_RED) - 1;

T ADDR
end;

[TOTV _BYT _RED HMI)

.T_ADDR

[TOT_BYT

RED

lssu

999

(TOT _BYT

RED HI)

=«

ADDR

LO)

ADDR

[TOT

BYT

RED_MNI)

[TOT

BYT

RED MHI)

1000;

then
beg.n

ADDR

. T

VAX-11 Bliss-16 v4.0-579
DISK$USERZ:
[POWERS 1ZRQADO.BLZ2 ;6

SEQ 0382
Page

151
(42)

Hid
RO/Rx EXERCISER

vol.é

MK TI

493%¢6
493~
4938
4939
4940
4941
4942
4343

4944
4945
4946
434"
4948
4949
4950
4951
4952
4953
4954
4955

4956
4957

4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981

RN WEWWHREGUNIUNNDLDDLLBLBWWUHNWNDDLBWWWWNNNNNWWWNNNDENNNDLDLD

JRQAMZ

DRIVE

TEST

11-Apr-1984

ROUTINES

ADOR

(TOT
ADDR

11 Apr-1984

BYT
{TOT

RED LO)

BYT RED HI]

ADDR

[7OT_BYT

11:08:35

VAX-11 Bliss-16 v4.0 579

11:08:22

RED_LO]

DISKSUSERZ2: [POWERS JZRQADO.BL2;: 6

36Q_0383
Page 152

(az)

1000;

lssu 999

then

XDDR (MTOT _BYT _RED]) = .T_ADDR [MTOT _BYT_RED)

Y ADDR
end;

[TOT

BYT _RED_HI}

ADOR

(rot_svT _.RED HI)

.«

1000;

end;

T_ADOR
T_ADDR
T_ADDR

(TOT BYT_RED_LO)
[TOT _BYT_RED_MI)
(MTOT_BYT RED} =

= .T_ADDR (TOT 8YT RED_LO) - 999;
= .T_ADOR (TOT_B8YT_RED_MI)
999;
.T_ADDR (MTOT _BYT_RED) - 999;

end;
if

_T_ADDR

[MTQOT _BYT

WRT]

gtru

999

then

begin

ifF

_T_ADDR

[TOT BYT _WRT _HI]

lssu 999

then

200n (MTOT _BYT _WRT] = _T_ADDR [MTOT _BYT_WRT] - 1;

T_ADDR

(TOT_BYT

WRT_HI)

.T_ADDR

end;

_T_ADDR

[TOT

BYT_WRT_LO)

[TOT_BYT_WR
HI)
T

1000;

lssu 999

then

gDOR {(TOT_BYT_WRT
_HI] = .T_ADDR (TOT_BYT _WRT_MI) - 1;
T _ADDR
if

(TOT_BYT_WRT_L0)

ADDR

([TOT

.T_ADDR

BYT_WRT HI]

[TOT _BYT_WRT
LO) +

1000;

lssu 999

then

RDDR (MYOT _BYT_WRT) = T _ADDR [MTOT_BYT_WRT)

T “ADDR
end;

T_ADDR
T_ADDR
T_ADDR
end;

[TOT_BYT _WRT _HI]

.T_ADDR

[TOT BYT

WRT

WI]

1000;

end;

(TOT_BYT_WRT_LO]
[TOT _BYT WRT_HI]
[MTOT_BYT _weT] =

= T ADDR (TOT _BrT_WRT_LO] - 999;
= _T_ADDR (TOT_BYT_WRT HI]
999;
T ADDR {MTOT BYT _WRT]
999,

end;

000000

004137

000000G

000004
000010

013700
012702

000000G
000020

.SBTTL
ROUND.OQUTPUT::
JSR
MOV
MOV

ROUND.QUTPUT
R1, $SAVES
T.ADDR,RO
@20,R2

MULTI

DRIVE

TEST

ROUTINES
H
H

48a3
4891

114
ZRQAM3

RD/RX

vOol.6

000014
000016
000022
000024
000030
000032
000036
000040
000042
000046
000052
000056
000062
000064
000070
000072
000076
000100
000104
000106
000110
000114
000120
000124
000130
000132
000136
000140
000144
000146
000152
000154
000156
000162
000166
000170
000174
000176
000200
000204
000210
000212
000214
000220
000224
000230
000234
000240
000242
000246
000250
000254
000256

EXERCISER

MULTI-DRIVE

060002
021227

101415

012701
060001
021127
103003
005312
062711
162711
162712
012702
060002
021227
101415
012701
060001
021127

103003
005312
062711
162711
162712

012703
060003
021327

101436
012701
060001
021127
103003
005313
062711
012702
060002
021227

103011
005311
062712
021127
103003
005313
062711
162712
162711
162713
012702
060002
021227
101435
012701
060001
0el127

TEST

ROUTINES

DISKS$USERZ2: [POWERS )ZRQADO.BL2; 6

5EQ 0384
Page 153

(42)

(R2), 023417

416 ,R1
RO,R1

001747

4895

(R1),01747
18
(R2)

1¢:

2s:

@1750,(R1)
01747,(R1)
023417,(R2)

926,R2

RO,R2

4878
4899
4902

4903

4906

(R2), 023417

023417

4%
924 ,R1
RO,R1

000024

001747

L
4%:

4910

(R1),01747
3¢
(R2)
91750,(R1)

4913
4914
49}°
4918
4921

01747,(R1)
023417,(R2)
236,R3
RO,R3

(R3),01747

001747

78
434 ,R1
RO,R1

000034

(R1),81747
S
(R3)

001747
001750
000032

VAX-11 Blies-16 v4.,0-579

000C16

001750
001747
023417
000036

11:08:35
11:08:22

RO,R2

023417

001750
001747
023417
000026

1-Apr-1984
11-Apr-1984

S$:

#1750,(R1)
032,R2
RO,.R2

:
:
:

4325

’

4928
4929
4932

(R2),01747

001747

(R1)

001750
001747

001750
001747
001747
001747
000044
001747
000042
001747

01750,(R2)

(R1),01747

63
(R3)

6%:

7¢:

#1750,(R1)
01747,(R2)
01747,(R1)
01747,(R3)
944 ,R?2
RO,R2

(R2),01747
10¢
042 ,R1

RO,R1

(R1),01747

:
H

4935
4936

4938

494!

494.2

4946

4947

4348

4951

4385

JL4d
RDO/Rx EXERCISER

ZRQAM3

MULTI DRIVE

vo1l.6

000262
000264
000266
000272
000276
000302
000304
000306
000312
000316
000320
000322
000326
000332
000336
000342

103003
005312
062711
062700
021027
103011
005311
062710
oc1127?
103003
005312
062711
162710
162711
162712
000207

; Routine Size:
:

TEST

11 -Rpr-1984
11 -Rpr-1984

ROUTINES
8s

001750
000040
001747

(R2)

#1750,7R1)
#40,R0

8s$:

(R1)

01750,(RO)

Blisgs

16 v4.0 579

DISKS$SUSER?: [POWERS JZRQADO.BLZ2 ;6
:
:
;

5EQ 0385
Page 154

(4z2)

49358
4959
4962

(R2)

497}

4972

4978

10¢:
$CODES

4965
4966

;

21750,(R1)
21747,(RO)
21747 ,(R1)
€1747,(R2)

9%
:

H
H

(R1).,01747

114 words,
Rout ‘'ne Base:
5 words
Max"mum stack depth per invocation:

11:08:22

VAX-11

(RO),01747

001750
001747
001750
001747
001747
001747

11:08:35

22744

:
;

4968

497¢
4977

4883

I<14
ZRQAAME

RD/RX EXERCISER

v0l.6

MULTI-DRIVE

TEST

ROUTINES

11:08:22

4982
4933
4988
4985

GLOBAL

1
1}
1

e
!

:
H
H

4986
4987
4988

1
1
1

'
'
!

PACKETS WITH “SUCCESS" STATUS CODES,
OPTION WAS SELECTED BY THE OPERATOR.

4990

PACKET

:
H
H
:

4993
4994
4995
4996

1
1
)
1

'
!
!
!

COMPARISON IS PERFORMED ON THE TWO 1/0 BUFFERS. ANY DIFFERENCES
ENCOUNTERED RESWLTS IN THE DECLARATION OF A HARD ERROR.

H
:
H
;
:
:
:
:
H
3
H
:
H
H
:
H
:
:
H
H
:
:
:
H
H
:

4998
4999
S000
5001
5002
S003
S004
S005
5006
S007
5008
5009
5010
5011
5012
5013
5014
5015
5016
5017
5018
5019
5020
5021
5022
gggg

1
|
1
2
2
2
2
2
2
2
2
2
2
3
2
2
2
2
2
3
2
3
3
3
3
g

!
!

;

gggg

5027

:
:

:
:
:

H
:
:
H

4989
4991
4992

4997

5028
S029
5030

5031
5032
5033
S034

1
1

3
4
4

4
4
3
4

!
!

HOST _WRT_CHK

Apr-1984

11:08:35

3
:
i
:

routine

11 Apr 1984

THIS ROUTINE

THE

CURRENT

VAX 11 Bliss 16 V4,0 579

DISK$USER? : [POWERS ]ZRQADO.BL2; 6

CALLED FROM

RETPKT

IO_RETPKT

BEING

PROCESSED

FOR

ALL

I/0

BUT ONLY
IS

TRANSFER

RETURN

THE HOST WRITE COMPARE

WRITE

FUNCTION,

THEN

THE

INDEX (RP_INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE

AREA (RP_SAVE).
WRITE PACKET IS

IMPLICIT

INPUTS:

OTHERWISE, THE PACKET
REMOVED FROM THE SAVE

RP_ADDR

ADDRESS

RP_INDX

INDEX OF

THE

IS A READ, SO ITS ASSOCIATED
AREA, AND A BYTE-BY-BYTE

CURRENT

RETURN

PACKET

THE CURRENT RETURN PACKET

begin
local
BUFF1
BUFF2

:
:

BUFFW,
COUNT :

ref block
ref block

[MAX_XFER_SIZE,
[MAX_XFER_SIZE,

byte],
byte],

!
!
'
!

I/0 BUFFER ADDRESS
I/0 BUFFER ADDRESS
I/0 BUFFER ADDRES>
BYTE COUNT

(OP_WRT or OP_END)

IF WRITE OPERATION

DON'T CALL

IF ASSOCTATED WRITE PACKET

ADDR OF

word,
FLAG : byte initial (byte (TRUE)),
index : signed word;
if _.RP_ADDR [ENDCOD])
then
FLAG = FALSE
else

eql

if (.RP_ADDR [ENDCOD] eql (OP_RD or OP END))
((index = RPS_REM ()) geq 0)
then
begin
BUFFW = RETPKT [.index, BUFF 0];
BUFFLl = |, BUFFW;
BUFF2 = _RP_ADDR (BUFF _0);
COUNT = _RP_ADDR [BCNT_LO];

incr

from 1

_.(.BUFF1)<0,

then

else

begin
BUFF1

BUFF2
end

beg'n

=
=

and

.COUNT do
8,

_BUFF1
_BUFF2

eql

+
+

1;
1;

SWEEP FROM IO _RETPKT

.(.BUFF2)<0,

O»

ADDR OF

WRITE

1/0 BUFFER

¢!
!
'

ADDR OF WRITE I1/0 BUFFER
ADDR OF READ I/0 BUFFER
BYTE COUNT

FOR EACH BYTE

TF BYTES COMPARE 0.,

!
!

ADVANCE WRITE BUFFER ADDR
ADVANCE READ BLFFER ADDR

ELSE

COMPARE

IN BUFFERS

ERROR

IS FOUND

SEQ 0285

Page 155
(43)

|
ZRQAM3

RD/RX EXERCISER
MULTI ORIVE TEST

ROUTINES

T ADDR
T_ADDR

WWLE LN NNLLLLLLLDLLLLLD

5035
5036
S037?
5038
5039
5040
5041
5042
5043
5044
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
5056
5057
5058
5059

NNV

B¢

vOl.6

000000

004137

000004
000006
000012
000016
000024
000026
000030
000032
000040
000042
000046
000050
000052
000054
000060
000064
000070
000074
000076
000102
000106
000112
000114

005746
112705
013700

126027
001002
105005
000511
126027
001105
004737
005700
002501
010046
012746
004737
010066
062700
011001
013700
016002
016004
005003
000453

11
11

[ERR HARD) = .T
(ERR HRD HST]) =

.APT

L4
Apr
Apr

1984
1984

ADDR [ERR_HARD]
.7

ADDR

11:08:35
11:08:22

VAX 11 Bliss 16 V4.0 S79
DISKSUSER?Z:
[POWERS JZRQADO.BL2: 5K

0387
age 156
(43)

[ERR HRD MST]

MQODE

then

ERR_HRD RTNE _APT
else

ERR_HRD_RTNE

EMS CMP
'F

[ERR

C. index
HARD]

begin

O [.LSLUN]

DODU ¢ .LSLUND;

gequ

LEN

.SWP

DU HERR;

exitloop;

end;

(.FLAG);

000014

000000V

000054
0000006
000004
000024G

000000G
000024
000020

.SBTTL

HOST.WRT.CHIC

JSR
TST

R1, $SAVES

HOST.WR
. CHK:
T
:

000001
000000G
000014
000242

000241

MOVB
MOV

CMP8
BNE

1$:

CLRB
B8R
cMPB
BNE
JSR
TST
eLy

MOV
MOV

JSR

MOV
ADD
MOV
MOV
MOV
MOV

CLR
B8R

FAILED

!
!

IF ERROR COUNT
DROP UNIT

!
!

NO NEED TO CONTINUE
IF COMPARE ERROR

ROUTINE HOST

ERROR

end;

0000006

I/0 REQUEST

2));

end;

return
end;

(42);

(RETPKT

.T_ADOR

then

(42)

MULTI

-(SP)

21,R5
RP.ADDR,RO

DRIVE

TEST

EXCEEDED

ASSOCIATED WRITE RETPKT
WRT

CHK

ROUTINES

4982
& FLAG

5001
5011

FLAG

S013
5011
5016

14(R0O), 0242

18
RS

8s
14(R0O), 4241
8%

PC,.RPS.REM
RO
84
RO, -(SP)
054, (SP)
PC,.BL $MUL
RO,4(SP)
ORETPKT+24
,RO
(RO),R1
RP.ADDR,RO

24(RO) ,R2
20(RO),R4

R3
64

WAS FOUND

x
INDE

INDEX,
o

s BUFFUW
BUFFW,BUFF
1

* ,BUFF2
;.COUNT

5017
5020

5021
5022

5023
5025

M14
ZRQAM3
v0l1.6
000116
000120
000122
000124
000126
000130
000134
000140
000144
000152
000154
000160
000164
000166
000172
000176
000202
000206
000212
000216
000224
000226
000232
000240
000242
000244
000246
000250
000252
000254
000256
000260
000262

;:
;

RD/RX

EXERCISER

MULTI DRIVE

121112
001003
005201
005202
000446
013700
005260
105260
032737
001405
012716
004737
000404
012716
004737
016616
062716
004737
013700
026037
103412
013700

112760
104451

TEST

ROUTINES

2$:

0000006
000014
000051
000001
001162’

3s:

000052
000000V

Maximum stack

(R1),(R2)

CMPB
BNE
INC
INC
BR

34
R1
R2
63
T.ADDR,RO

MOV

INC
INCB
BIT
8EQ

000052
000000V
000004
0000006
000000G
0000006
000014
000000G

4
Ss$:

JSR
BR

MOV

JSR
MOV
ADD

JSR

cMP
BLO

7%:
8%:

90 words,

B8R
INC
CMP
BLE
CMP
CLR
BISB
TST

$CODE$
Rout ine Base:
11 words

invocation:

v4.0 579

DISK$USERZ2:
[POWERS JZRQADO.BL2;6

0388
age 157
(a3)

BUFF1,BUFF2

5027

BUFF1
BUFF2

5030
5031
5027
5035
5036
5038

5040
5038
5042
5044

5046

LSLUN,RO
@4 ,0UR(RO)
51
74
R3
R3,.R4
2%

5049

I
I,COUNT

(SP)+,(SP).

RO
R5,R0O
(SP)»

RTS

depth per

Bliss

SWP
. ERROR
14(RO),

MOV
MOVB
TRAP

6$:

VAX-11

#1,APT MODE
44
#52,(SP)
PC,.ERR.HRD.RTNE
. APT
S$
#52,(5P)
PC.ERR.HRD.RTNE
4(SP),(SP)
ORETPKT,(SP)
PC,EMS.CMP
T.ADDR,RO

MOV

000000C
000004
000000G

11:08:35
11:08:22

14(RO)
51(RO)

MOV

000403
005203
020304
003722
022626
005000
150500
005726
000207

Routine Size:

11-Apr-1984
11 Apr-1984

23310

FLAG,

S050
5034
5025

5019
5058
4982

N14

000000
000002
000006
000012
000016
000022
000024
000032
000034
000040
000042
000044
000045

EX ERCISER

GLOBAL

PO D R N N N

010146
013700
116000
042700
020027
001026
032737
001422
004737
010001
002416
010146
012746

TEST

routine

11
11

ROUTINES

SWEEP

Apr-1984
Apr-1984

11:08:35
11:08:22

VAX-11 Bliss-16 v4,0-579
OISK$USERZ2: [POWERS]IZRQADO.BL2; 6

SEQ 0389
Page

158

(44)

novalue

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 I/0 BUFFER. IN ADDITION, IF THE HOST IS
PERFORMING WRITE COMPARES, AND IF THE CURRENT RETURN PACKET IS A READ
FUNCTION, THEN THE CURRENT CONTROLLER'S RP_SAVE AREA IS SEARCHED FOR
THE ASSOCIATED WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO BE
DEALLOCA TED.

IMPLICIT

= 1t 1t 1t gt

b (b (b b e Pt ot b Pt P Pt

MULTI-DRIVE

D GNP

5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
S079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096

RD/RX

PO NN Gl 8GN D P

®0

©¢

G°

O¢

ZRQAMS
vOol1.6

INPUTS:

RP_ADDR
RP_INDX

ADDRESS OF CURRENT RETURN PACKET
INDEX OF CURRENT RETURN PACKET

beg’ n

local

index

if (.RP_ADDR
then

signed word;
[ENDCOD])

if BIT_TST
then

and OP_MSK)

(SWP_FLAGS,

if (index
then

RPS_REM

eql

OP_RD

SWF_HWC)

())

geq O

be?in

PUT _I0_BUFF (RETPKT (.index,
PUT_RETPKT (. index);
end;

BUFF _0]);

PUT_IO_BUFF (RP_ADDR [BUFF _01);
PUT _RETPKT (.RP_INDX);

READ OPCODE

HOST

AS50CIATED WRITE

!
!

RETURN WRITE

RETURN CURRENT
RETURN CURRENT
ROUTINE SWEEP

end;

SWEEP:
:

0000006
000014
177600
000041
000040
000000V

.SBTTL

R1,-(SP)
RP.ADDR,RO
14(R0O),RO

cMP
BNE

RO,#41
14

8IC

0000006

BIT
BEQ
JSR
MOV

eLT

000054

SWEEP MULTI-DRIVE

MOV
MOV
MOVB

MOV
MOV

IS DOING WRITE

RETURN WRITE

TEST

OR ENDCODE

RETPKT

I/0 BUFFER

PACKET

COMPARES

IS FOUND

TO POOL

I/0 BUFFER TO POOL
RETPKT TO POOL

ROUTINES

5060
5081

#177600,RO

#40,SWP .FLAGS
14
PC.RPS.REM
RO,R1

R1, -(SP)
#54, -(SP)

5084

*, INDEX
»
INDEX,

5087

509¢C

SRR
JRQAMS

RO/Rx EXERCISER
MATI DRIVE TEST

vol.6

004787
062700
010016
004787
010116
004737
000104
000110
000114
000129
000124
000126
000120

022626
013746
062716

004737
013716
0047%8”
005726

0000006

14:

000207

Max'mum stach

PC,BL MU

JSR

PC.PUT,10.8UFF
R1,(SP)

JSR
cMe

PC,PUT.RETPKT

(SP)e,(SP)

MOV

ADD

VAX

11 Blies

16 V4,0 579

DISKSUSERZ: ([POWERS )ZRQADO.BL2; 6

280 0390
Page 157

(44)

INDEX,e

%091
£N89
50%4

RP . INDX,(SP)
PC,PUT
. RETPKT

S09%%

(SP).
(5P)+,R1

:
:

S0 74,
S0460

PC,PUT.I10.8BUFF

JSR

MOV

JSR
L1
MOV

$CODES

11:08:35
11:08:22

H
3

RP,ADDR, -(SP)
#24,(SP)

ARTS

45 wordgs,
Rout ine Base:
depth per nvocat on:
4 words

1984
1984

ORE TPKT
.24 RO
RO, (SP)

MOV

0000006

Apr
Apr

JSR

ADD
MOV

012601

: Rout ‘ne Size:

ROUTINE
S

000000G
0000246

0000006
000024
0000006
0000006
0000006

11
11

23574

Clo
RO ‘Rx ExERCISLR

vOl.é

MU TI

5131
5132
5133
5134
5135
5136
5137
5138

R 90 4ot 40 gt Pt 0 0 P 10 Pt Pt P P

TEST

11 Apr 1984 11:08:385

ROUTINES

rout ine RPS REM

Apr

1984

11:08:22

VAX 11 Bliss 16 v4,0 579

DISKSUSER?: [(POWE RS JZRQADO.BL2;: 6

3EQP2321160
(45)

H
H
H
!
!
!

THIS ROUTINE SEARCHES THE CURRENT CONTROLLER'S RP SAVE AREA FOR A
RETURN PACKET WHOSE COMMAND REFERENCE NUMBER (CRN) IS ONE LESS THAN THE
CRN OF THE CURRENT RETURN PACKET (I.E., SEARCHING FOR THE SAVED WRITE
OPERATION ASSOCIATED WITH THE CURRENT READ OPERATION). IF FOUND, THE
RP SAVE ENTRY IS CLEARED (TO
1) AND THE RETPKT INDEX OF THE WRITE
OPERATION IS RETURNED TO THE CALLER,

H
'

IMPLICIT

OUTPUTS

[]

]

'
'

INPUTS:
RP ADDR
INDEX

ADDRESS OF

(VALUE

THE

CURRENT

THIS ROUTINE)
A CRN WHICH IS

RETURN PACKET

INDEX OF THE RETPKT CONTAINIMNG
ONE LESS THAN THE CURRENT

begin

local

index

incr COUNT

signed word

initial

from O to RP_CNT

(

1);

1 do

ASSUME

NOT

FOUND

FOR EACH ENTR*

THIS

CORRECT CRN

¢t
!

INDEX
DONE

ROUTINE

IN RP SAVE

U N N N P

GLOBAL

if (AP _USE

( .RETPKT

thenr

W) WU U U QAN

5099
5100
S0
5102
5103
5104
5105
5106
5107
5108
5109
5110
S111
S1le
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
Si2e
5125
5126
5127
5128
5129
5130

DRIVE

[.COUNT) eql
[.COUNT,

.CCTLR) and

ENDCOD)

eql

(OP _WRT

or OP END))

((.RETPKT [ .COUNT, CRF _LO) eql (.RP_ADDR (CRF LO]
1Y) and
(.RETPKT (.COUNT, CRF _HI) eql .RP _ADDR [CRF HI))) or
(C.RETPKT [ .COUNT, CRF HI) eql (.RP _ADDR [CRF HI]
1)) ano
( .RETPKT [ ,COUNT, CRF LO) eql o0 177777') anga
( .RP_ADDR (CRF _LO) eal 0))

IS5 A VALID RETP¥T

INDE>

then

begin

inder * _COUNT;
exitloop;

[

S098

PO N N

B¢

V¢

B¢

P P Pt Bt ot

JRQAMS

end;

return

, index

end;

000000

004137

0000006

000004
000010
000012
000016
000022
000024

012704
005003
116300
020037
001053
010346

177177

0000006
000000G

TO BE RETURNED

.SBTTL
RPS REM; ;

TEST

REM

ROUTINES

JSR

R1,$SAVEAS

¢, INDEX

CLR

COUNT

5120

COUNT
.

MOV

1$:

RP, REM MU TI DRIVE

RPS

MOvB
coe
BNE
MOV

1,R4

RP ,USE(R3),RO
RO,CCTLR
43
R3,

(5P)

¢(COUNT),
e

509"

5118

D1
JRQAME

RO/Rx EXERCISER

vOl.e

000026
000032
000036
000040
00046
000050
000052
000056
000062
000064
000070
000074
000076
000102
000104
coo112
000114
000120
000122
000126
000130
000136
000140
000144
000146
000150
000152
000154
000160
000162
000164

ML TI-ORIVE
012746
004787

TEST

11
11

ROUTINES

000054
0000006

054,

026002
001004
026061

001415

016102

005302
026002
001011
026027
001005
005761
001002
010304

000404
005203
020327
003714
010400
000207

Routine Size:
Max"mum

stack

1984
1984

11:08:35
11:08:2°2

VAX-11

Bliss

v4,0-579

DISKSUSERZ:
[POWERS JZRQADO.BL2: 5

S€£Q 0392
Pege

151

(45,

(SP)

(SP)s, SP).

000014G 000242

RE TPKT+14(RO),
0242
as
RS, (SP)
054, (SP)
PC,BL $MUL

000054

000000G

e
COUNT

S126

(SP)e, (3P)s

RP.ADDR,R1
4(R1),R2
R2
RE TPKT+4(RO),R2
2

000000G
000004

0000046
0CA00606 000C06

gerpxr.e(RO).s(n1)

S127

6(R1),R2

5128

000006

es:

R2
RETPKT+6(RO),R2

0000066
000004G

PC.BL sM

022626

126027
001041
010346
012746
004737
022626
013701
016102
005302

Apr
Apr

177777

RETPKT.4(RO),
@

5129

000004

S130
COUNT, INDE X

3.
a8

000007
Ss:

Rout ine Base:
S9 words,
depth per nvocation:
8 words

COUNT
COUNT , o

INC
cMP
BLE

OV
RTS

$CODE
$

;

23726

INDEX,e

5133
5132
5120
S115
5097

ELD
ZRQAMS

RD/Rx EXERCISER

TN NN N NN N 0o 10 =2 12 =2 10 10 18 =2 10 0 0 =0 P Pt Pt Pt gm0
NN

S139
5140
S141
5142
S143
S144
5145
5146
S147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
S161
S162
5163
S164
5165
5166
5167
5168
5169
5170
5171
5172

MALTI

= PO

€0

G¢

V¢

vOol.6

000000

010146

000002
000006
000010
000014
000020
000022
000024
000030
000032
000034
000040
000042
000045
000052

004737
005001
116100
020037
001004
010146
004737
005726
005201
020127
003763
013701
105061
013700

DRIVE

GLOBAL

TEST

11
11

ROUTINtS

routine DR RETPKT

novalue

Apr
Apr

1984
1984

11:08:35
11:08:2°2

VAX 11 Bliss 16 v4,0 579
DISKS$USERZ: [POWERS)ZRQADO.BL2;: 6

SEQ 0393
Page

162

(4%)

THIS ROUTINE
THE "DRIVER"

FATAL
FOR

IS CALLED BY PROC RETPKT FOR ALL PACKETS ORIGINATING AT
PORTION OF THE PROGRAM, THIS INCLUDES PACKETS DESCRIBING

DEVICE

FATAL

ERRORS.

DEVICE

ERRORS,

THIS

ROUTINE

RELEASES

ALL

THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE
UNITS ATTACHED TO THE CONTROLLER ARE DROPPED.

IMPLICIT

INPUTS:

RP _INOX
RP ADDR

RESOURCES

HELD

ITS CST,

AND

ALL

INDEX OF THE CURRENT RETURN PACKET
ADDRESS OF THE CURRENT RETURN PACKET

CST_ADDR
ADDRESS OF THE CURRENT CONTROLLER'S CST
CCTLR
CURRENT CONTROLLER NUMBER
begin

PUTA _BUFF

incr

index

from 0

.RP_USE

then

RELEASE

();

to RP_CNT

[.index)

PUT _RETPKT

eal

end;

(. RP

.CCTLR

0000006
0000006

JSR

14:

0000006
0000006
0C0000G

CLR

Move
cMP
BNE

MOV
JSR
187

CST

INC
cHP
BLE
MOV

CLRB
MOV

BACK

R1,

S RP

S UNITS

RE TPK(T

TEST

ROUTINES

(SP)

X
INDE
s(INDEX),
s

R1
RP . USE(R1),RO
RO,CCTLR

(SP)

PC,.PUT

(SP)»
R1
R1,47
18

RETPKT

CCTLR,R1
QIO(R1)
CST.ADDR,RO

SAVE

INDEX

PC,PUTA .BUFF

2
R1,

CONTROLLER

OUTSTANDING QIOs

RETPKY

DR.RETPKT MULTI-DRIVE

0O POOL

OFFL INE

HELD

IN CONTROLLER

DROP CONTROLLER

PUT

ROUTINE

MOV

0000006

000007

CLEAR NO.

MARK

INDX);

LSBTTL
DR.RETPKT:
:

BUFFERS

VALID RETPKT

RETURN RETPKT

(. index);

0000006

I/0

FOR EACH ENTRY

QIO (.CCTLR]) = O;
CST_ADDR [STATE]) = OFFLINE;
DROP CTLR (.CCTLR, DU_CFATAL);

PUT _RETPKT

ALL

INDEX,
e

INDEX

;

INDEX,
s

5139
5160

5162
S164

15
MULTI DRIVE

vOl.6

000056
000064
000066

000072
000076
000102

000106
000110
000112

11 Apr 1984
11 Apr-1984

RD/Rx EXERCISER

ZRQAME
042760
010146
012746
004737
013716
004737
022626
012601

000207

100000

TEST ROUTINES

000002

Routine Sice:

R1,-(SP)

@6, -(SP)

PC,DROP.CTLR
RP . INDX,(SP)
PC,PUT .RETPKT
(SP)s,(SP).
(SP)+ ,R1

JSR

MOV

JSR
cHP

MOV
RTS

$CODES$
28 words,
Rout ne Base:
words
4
on:
k
invocat
per
gtac
depth
mum
Maxi
:

4100000,2(RO)

8IC

MOV
MOV

24114

11:08:35
11:08:22

VAX

11 Bliss

16 v4,0 S79

DISKS$SUSER2: [POWERS )ZRQADO.BLZ2 ;6

5EQ 0394
Page 1463

(44)

$170

;

S171

:
3

5157
5139

GLOD
JRQAME

RD/Rx EXERCISER

vOl1.6

g%zz

:
:
:
H
:
H
:
:
H
:
:

INTERRUWPT

StRVICE ROUTINES

Apr-1984

Apr

1984

11:08:35

11:08:22

{

swsbtt]l

‘RORX INTERRUPT SERVICE ROUTINES’

1
1
1
1
1|
1

‘e
'
'
!
'
H

THERE EXISTS AN RDRX INTERRUPT SERVICE ROUTINE FOR EACH DEVICE
CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING THE
APPROPRIATE CONTROLLER NUMBER INTO “ICTLR”. ALL SERVICE ROUTINES
BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE.

VAX-11

Bliseg-16

v4,0-579

DISKSUSER?: (POWERS JZRQADO.BL2:H

SEQ 0395
Page 144

(47)

S175
5176
5177
5178
5179
5180
5181
5182
5183
5184
5185

000000
000002
000006
000012
000014

RORX

1
2
2
2
1

010046
005037
004737
012600
000002

Routine Size:

Maximum stack

IHEN

BGNSRV (AZINTO);
ICTLR = 0O;
AZINT ();
ENDSRV;
L.SBTTL
AZINTO: : MOV
CLR
JSR
MOV
RTI

000104
000000V

7 words,

depth per

Routine Base:

invocation:

2 words

$CODES

AZINTO RDRX
RO, (SP)
ICTLR
PC,AZINT
(SP). RO

24230

INTERRUPT

SERVICE ROUTINES
:
:
:
:

5182
5183
5184
5182

- l [)
ZRQAME

RO/RX EXERCISER

vol.6

5186

RORX

H
H
H
H
H

5187
5188
5189
S190
S191

1
1
1
1
1

H
:
:
H
:
:
H
:

5194
5195
5196
5197
5198
5199
5200
5201

1
1
2
2
¢
2
2

5203
5204
5205
5206
5207

2
2
2
2
2

:
:

:
:
H
:
H

:
H
:
:

H
;
:
:
H
:

5192
5193

5202

S208
5209
5210
5211

5212
5213
S214
5215
5216
5217

000000
000002
000004
000010
000012
000016
000022
000026
000032
000034
000040
000044
000050
000054
000060
000062
000066
000072

1
1

3
2
2
2
3
3
3
2
2
1

010146
005746
013701
010146
012746
004737
062700
010037
010116
012746
004737
062700
010037
011037
010116
012746
004737
062700

INTERRUPT

GLOBAL

SERVICE

routine AZINT

HE
'
'
'

ROUTINES

novalue

Apr

1984

11:08:35

VAX

11:08:22

11 Bliss

16 v4.0-579

DISKSUSERZ: [POWERS 1ZRQADO.BL2: %

Page

1565

(458)

THIS IS THE COMMON INTERRUPT SERVICE ROUTINE FOR ALL RDRX CONTROLLERS.
AFTER CALCUWATING THE DCT ADDRESS FOR THE INTERRUPTING DEVICE, THIS
ROUTINE WILL SAVE THE CURRENT CONTENTS OF THE SA REGISTER IN THE O°T.

'
'

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

'
!

AND RESPONSE RINGS ARE POLLED.

begin
IOCT_ADDR = DCT « (.ICTLR « DCT LEN « 2);
ICST_ADDR = CST + (.ICTLR ¢ CST_LEN » 2);
IRDRX_ADDR = ,ICST_ADDR [IP ADDR];
ICOM_ADDR

IDCT_ADDOR

COMM AREA

{SA_SAVE)

if .IDCT_ADDR
then
return;

(. ICTLR

& COMM_LEN & 2);

.IRDRX_ADDR

[RCSA,

RC_ALL];

(IG_INT]

if BIT_TST (IDCT_ADDR
then
FATAL _ERROR ()
else
begin
POLL CRING ();
POLL RRING ()
end;

[SA

SAVE]).

SA ERR)

'
!
'
!

GET
GET
GET
GET

IGNORE

INTERRUPT?

RETURN

'
'

POLL COMMAND RING
POLL RESPONSE RING

SAVE

DCT ADDRESS
CST ADDRESS
RDRX ADDRESS
COMM_AREA ADDR
SA REGISTER

FATAL

INTERRUPTS

IGNORED

ERROR

end;

AZINT::
000104°

000022
000000G
0000006
000100
000126
000000G
0000006
000076
000000G

000050
000000G
000000’

.SBT1TL

AZINT RORX
(SP)

INTERRUPT

MOV

R1,

TST
MOV

-(sP)
ICTLR,R1

MOV
MOV
JSR
ADD
MOV
MOV
MOV

R1, (SP)
022, -(SP)
PC.BL $MLL
o0CT,RO
RO, IOCT.ADDOR
R1,(SP)
0126, -(SP)

JSR
ADD
MOV
MOV
MOV
MOV
JSR
ADD

PC,.BLSMUL
oCST,RO
RO, ICST,ADDR
(RO), IRDRX , ADDR

R1,(SP)

450, (5P)
PC.BLSMUL
#COMM_ AREA,RO

SERVICE

ROUTINES
:

5186

5198

5199

ICST.ADDR,
¢

SN0

[15
ZRQAAMX

RD/Rx EXERCISER
RORX INTERRUFT SERVICE

vO0l.6

000076
000102
000106
000112
000120
000126
000132
000134
000140
000144
000150
000152
000156
000160
000164
000170
000174
000176

:
:

010037
013701
013700
016066
016661
032711
001016

016601

042701
020127
001003
004737

000404
004737
004737
062706
012601
000207

Routine Size:
Maximum stack

5218

ROUTINES

000074
000100
0000006
000002
000010
000010
000002
04000

000000V

1$:
2$:

64 words,
Rout ine Base:
depth per invocation:
7 words

11:08:35
11:08:22

VAX 11 Bliss 16 V4.0 579

DISKSUSER2: [ POWERS JZRQADO.BL2: 6

5EQ 0397

>page 156
(48)

MOV
MOV
MOV
MOV
MOV

2(RO),10(SP)
10(SP),2(R1)

;
;

MOV

24
10(SP),R1

;

5186

;

5208

RO, ICOM,ADDR
IOCT.ADDR,R1
IRDRX
. ADDR,RO

BIT
BNE

000010
0777277
100000

000000V
000000V
000012

11-Apr 1984
11-Apr-1984

940000, (R1)

B8IC
CMP
BNE
JSR
B8R
JSR
JSR

077777, ,R1

;

5202

*.RC.REG
RC.REG,

+.10CT.ADDR

5204

R1,4-100000
1

PC,FATAL.ERROR

PC,POLL.CRING
PC,POLL .RRING
012,5pP

ADD
MOV
RTS

$CODE
$

;

(SP)+,R1

24246

5210

5208

H
:

5213
5214

5186

J15
ZRQAMZ

RD/RX EXERCISER

vOol.6

RORX

INTERRUPT SERVICE ROUTINES

H
:
:

5219
5220
5221

1
1
1

'
GLOBAL ROUTINE DUP RSP

3
:
:

522}
5224
225

1
1
1

‘e
'
!

:
H

2228
229

1
1

!
!

:
H

:
:
H

;

:
:
:
:
H
:
H
H
:

5222

5226
5227
5230
5231
5232

5233

5234

5235
5236
523
5238
5239
5240
S241
S242
gg:z

1
1
1
1
1

2
2
2
2
2
2
2
2
g

11-Apr-1984

NOVALUE

IMPLICIT

begin

local
R_INDEX : s gned word,
SRC _ADDR,
OST ADDR,
R_ADDR : ref block [RP LEN,
'PRINTX (DER34);
incr COUNT

from O to PKT_CNT

H
H
:
:
H
H
H
H
:
:
H
:

5250
5251
5252
5253
5254
5255
$256
5257
5258
5259
5260
5261

3
2
3
3
3
2
2
2
2
3
3
3

((.IPKT_ADDR [OPCODE])
then
begin
P INDEX = _COUNT;
exitloop:;
end;

;

H
H

5267

5268

5269

22;0
271

2
2

2
2
2
2
3
2

3
3

THE

INPUTS:
ICTLR - INTERRUPTING CONTROLLER NUMBER
IPKT ADDR
ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE

if (.MSCP_PKT
(.MSCP_PKT
(.MSCP_PKT

8262
5263
5264
5265
5266

0222

'
'
!

2
2
2

:
;
:
H
H

16 v4,0 579

DISKSUSERZ: [POWERS JZRQADO.BL2; 6

IF THE MESSAGE TYPE IS SEQUENTIAL, THE ROUTINE COPIES THE
CONTENTS OF THE MESSAGE ENVELOPE INTO A RETURN PACKET SO THAT
ENVELOPE CAN BE RETURNED TO THE CONTROLLER,

VAX-11 Bliss

11:08:22

!
!

5245
5246
S247

5248
5249

11:08:35

THIS ROUTINE IS CALLED BY POLL RRING FOR EACH DUP RESPONSE
ITS GENERAL PURPQOSE IS TO ACT ON A DATAGRAM OR SEQUENTIAL MESSAGE.

H
H
:

H
H

Apr-1984

(.COUNT,
[.COUNT,
(.COUNT,

word)

field (RP FIELDS);

1 do

CRN_LO] eql .IPKT_ADDR [CRN_.LO)) and
CRN_HI) eql .IPKT_ADDR (CRN HI)) and
PKT_LO)] neqa .IPKT_ADDR [PKT_LO)) and

THIS

THE ASSOC CMD

((.MSCP _PKT [.COUNT, OPCODE]) and OP_END) neq OP_END) and
(.MSCP PKT [.COUNT, CONNID) eaql CID_DUP) and

f ,P_INDEX lss O
then
begin
PRINTF (DBM108,
return;
end;

and OP_END) eql OP_END)

.IPKT_ADDR [CRN_LO1Y);

if (R_INDEX = GET RETPKT (.ICTLR))
then
PRINTF (DBM112)

else

begin

SRC_ADDR

R ADDR

_IPKT _ADDR

» DST ADDR

RETPKT

lss O

(.R INDEX

SET PKT NUMBER

UNKNOWN COMMAND REF.

IF RETPKT

IS NOT

‘DUP RSP:

RETPKT NOT AVAILABLE

SEYT

COMMAND NOT FOUND

UP COPY

¢« RP LEN ¢ 2);

NUMBER

AVAILABLE

(SKIP OVER PKT DESC)

START OF

ALLOCATED RETPC(T

5FQ 0398
Page 167

(49,

KIS
RD/RX EXERCISER
RORX INTERRUPT SERVICE

ZRQAMSZ

incr COUNT

WUENWEDDDW

5272
5273
S274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286
5287

RNV

®0

vol.6

begin

COPY

.P_INDEX
then
PUT _PKT

013701
005002
010246
012746
004737

000000G

000106
0000006

IF ASSOC CMD PKT WAS FOUND

(.P

INDEX);

RETURN COMMAND PACKET

ROUTINE DUP -RSP

168

(49)

DUP.RSP RDRXx INTERRUPT SERVICE ROUTINES

JSR

R1,$SAVE3

CLR

R2
R2,

;
;

MOV

1$:

MOV
MOV

JSR
cMP
CMP
BNE
cMP
BNE
CcMP
BEQ

TST8
8MI

CMPB
BNE

000011G 000002

IPKTY, ADDR,R1
(SP)

0106, -(SP)
PC.BL$MUL

(SP)+,(SP)s
MSCP.PKT«12(R0O),12(R1)

agcp.PKTol4(R0).14(Rl)
fi;CP.PKT(RO).(RI)
fi;CP.PKT~22(R0)
S;CP.PKToll(RO).02

000000G
2$:

COUNT
COUNT,»

:
:
H
H

5246

5247
5248

5249

B8R
INC
CMP
BLE

;

COUNT,»

:
;

COUNT
COUN, T

8GE

MOV
MOV
MOV
MOV

TRAP
RAOD
RTS

5253

5257

TST

3%:

5221
5245
5243
5245

5250

15718
B8PL
MOV

000022

TQO POOL

.SBTTL

OUP .RSP::

0000226

000006

PUT RETPKT INDEX INTO IODQ
IF RETPKT WAS ALLOCATED

0000006

000012
0000006
000002

!
!

000014G 000014

0000006

Page

DESTINATION ADOR
SOURCE ADDR

geq

000012G 000012

000013

5£Q 0399

COPY LOOP

end;

000004
000010
000012
000014
000020
000024
000026
000034

VAX-11 Bliss 16 v4.0 579
DISKSUSERZ: [POWERS)ZRQADO.BL2;:6H

1 WORD

ADVANCE
ADVANCE

end;

11:08:35
11:08:22

to RP LEN do

IN IODQ (.R INDEX);

0000006

000054
000060
000062
000070
000072
000076
000100
000104
000106
000110
000114
000116
000122
000124
000130
000134
000140
000142
000144
000150

end;

004137

000036
000044
000046
000052

ROUTINES

.DST_ADDR = ..SRC ADDR;
OST_ADDR = .DST_ADDR + 2;
SRC_ADDR = .SRC ADDR + 2;

000000

022626
026061
001024
026061
001020
026011
001415
105760
100412
126027
001006
105761
100003
010237
000406
005202
020227
003736
005737
002013
016146
012746
012746
010600
104417
062706
000207

from

11 Apr 1984
11 Apr-1984

SP,RO

06 ,SP
PC

:
i

82,

(SP)

5260

SP,e

L 15
ZRQAM3

RD/RX EXERCISER
RORX INTERRUPT SERVICE

vOl.6

000152
000156
000162
000164
000166
000170
000172
000176
000202
000204
000206
000210
000214

000220
000222
000226

000232
000236
000240
000244

000246
000250
000252
000254
000260
000264
000266
000270
000274
000276

;

013746

004737
010001
005726
005701
002007
012746
012746
010600
104417
000424
013702
062702
010146
012746
004737
062700
010003
012700

012223
005300
001375

010116
004737
013700
002403
010016
004737
022626
000207

Routin e Size:

Maximum stack

5288

000104"
0000006

ROUTINES

000006

S$:

000054
0000006
0000006
000026

6$:

0000006

7%:

8¢%:

96 words,
Rout ine Base:
9 words
depth per invocat 'on:

VAX

11 Bliss

MOV

RO,R1

TSTY
TST
BGE

;

¢,R.INDEX

R.INDEX

PC,GET.RETPKT

(SP)»

S$
0DBM112, -(SP)
@1, -(SP)
SP,RO
17
74

B8R

IPKT
, ADDR,R2
o6 ,R2

MOV
ADD
MOV
MOV
JSR
ADD
MOV
MOV
MOV

854, (SP)
PC.BL MWL
ORETPKT
RO
RO,R3
926 ,RO

(R2)+,(R3).

DEC
BNE

RO
63
R1,.(SP)
PC,IN.IODQ
P.INDEX,RO
8%
RO, (SP)
PC.PUT PKT

JSR

MOV

BLT
MOV
JSR
cMP

(SP)+ ,(SP)»

RTS

$CODES

24446

v4,0-579

DISK$USER2: [POWERSJZRQADO.BL2;: 6
:

JSR

MOV

0000006
0000006

11:08:35
11:08:22

ICTLR, -(SP)

MOV

MOV
MOV
MOV
TRAP

0000006
000001

0000006

11-Apr-1984
11-Apr 1984

5266

SP,s
*,SRC.ADDR

;
:

+,S5RC.ADDR
R.INDEX,»

:
;
;s

¢,DST.ADDR
o, COUNT
SRC.ADDR,DST.ADDR

(49)

S264

;

SEQ 0400
Page 169

COUNT

5264

5269

5270

8272
5274
5272

;s R.INDEX,»

5279

5283

5285

52%4

5221

M15
ZRQAM3Z
VOl.6
:

H
:

:
:
:
:
H
H
:
H
:

H
:
:
H
:
:
H
:

:
H
H

:
:
:

5289

1
1
1
1
1
1
1
1
1

!
!
'
'
'
'
!
'
'

1
1

Se94
5295
5296
5297
5298
S299
5300
5301
5302

5303
S304
5305
5306
S307
5308
5309
5310

5311
5312
2313

5327
5328
5329

:
H
:
H

5331
5332
5333
5334

H
:

5337
5338

:
H

5292
5293

S291

;
H
:

GLOBAL routine FATAL ERROR

H
H
H

5290

14
5315
5316
5317
5318
5319
5320
5321
5322
323
324
g;gg

;
H
H
:
:

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

S330

5335
5336

1
1
2
2
2
2
2
2

2
2
4

2
2
2

3
3
3
2
2

!
!

11-Apr-1984 11:08:35
11 Apr 1934 11:08:22

novalue =

THIS ROUTINE IS CALLED BY THE INTERRUPT SERVICE ROUTINE (AZINT) UPON
DETECTING AN UNRECOVERABLE ERROR THROUGH THE DEVICE'S SA REGISTER,
ITS PURPQOSE IS TO CLEAN UP DEVICE DATA IN THE "DRIVER” PORTION OF
THE EXERCISER, AND TO INFORM THE "PROGRAM" PORTION OF THE EVENT VIA
RETURN PACKET.

IMPLICIT INPUTS:
ICTLR
INTERRUPTING CONTROLLER NUMBER
IOCT _ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT
ICST_ADDR
ADDRESS OF INTERRUPTING CONTROLLER'S CST
IRDRX ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S IP REGISTER

beg'n
local
index : signed word,
U_SAVE : word;

SA_REG = .IDCT_ADDR [SA_SAVE];
U_SAVE = _LSLUN;
C_ERR_TBL [.ICTLR, C_ERR HRD] =

LSLUN

2
2
3

if (index = GET_RETPKT (.ICTLR))
then
PRINTF (DBM18)

3
3
3
3

_ICST_ADDR

[OF UN

ERRDF (14, EGD_14, EMS_14);
LSLUN = _U_SAVE;
DRV _CTLERR (.ICTLR);

else

3
2

2
1

,C_ERR TBL

[.ICTLR,

' SAVE PRE
C ERR_HRD]

INTERRUPT CURRENT UNIT NUMBER
+ 1;

i .APT_MODE
then
begin
.MAIL _BOX_TESTNUM = 1;
.MAIL _BOX SUBTST = O;
end;

2
2
S

VAX 11 Bliss 16 v4.,0 579
DISK$USER?Z: [POWERS JZRQADO.BL2 ;6

begin
RETPKT
RETPKT
RETPKT

IN_IODQ
end;

[.index,
[.index,
[.index,

OF _DATA,

D UNIT]);

1lss O

CONID] = CID_DRIVER;
MESTYP]) = MT _FATAL;
CTLR) = ,ICTLR;

(. index);

end;

.SBTTL

!
!
'

FATAL CONTROLLER ERROR
RESTORE PRE INTERRUPT CURRENT UNIT
CLEAN UP DRIVER DATA FOR CONTROLLER

SET

CURRENT

TRY

TO GET A RETPKT;

"FATAL_ERRQOR:

'
!
!
'

IF RETPKT WAS ALLOCATED
SET CONNECTION ID TO "DRIVER'
FATAL ERROR
CONTROLLER NUMBER

ROUTINE FATAL ERR

!
¢

UNIT

TO FIRST

IN CONTROLLER

IF FAILURE

RETPKT NOT AVAILABLE"

LOAD RETPKT INDEX INTO IODQ
IF RETPKT WAS ALLOCATED

FATAL.ERROR RDRXx INTERRUPT

SERVICE ROUTINES

S€EQ 0401

Page 170
(50)

ZRQAM3

RD/RX EXERCISER
RDRX INTERRUPT SERVICE

Vol.6

000000

004137

0000006

000004
000010
000016
000022
000026
000030
000034
000042
000044
000052
000056
000062
000066
000070
000074
000100
000102
000104
000106
000110
000114
000120
000124
000130
000134
000136
000140
000144
000150
000152
000154
000156
000160
000164
000170
000174
000202
000206
000212
000216
000220
000222
000226
000230

013700
016037
013701
013700
006300
105260
032737
001405
012777
005077
013700
016002
000302
042702
010237
104455
000016
0000006
0000006
010137
013746
004737
013716
004737
010001

000100’
000002
0000006
000000G
000104

002007
012716

012746
010600
104417
000424
010116

012746
004737
062700
112760
013702
042702

112710
150210
010116
004737
022626
000207

Routine Size:

Max 'mum stack

ROUTINES
FATAL .ERROR: :

R1,$SAVE2
IDCT.ADDR,RO

JSR
MOV

2(RO),S5A .REG

MOV

MOV
MOV
ASL

0000006
000001
001162’

000001
001166'
000076
000006

11-Apr-1984
11-Apr-1984

LSLUN,R1

ICTLR,RO

INCB
8IT
8EQ

001164

#1,APT
. MODE

¢1,9MAIL .BOX.TESTNUM
MAIL .BOX.SUBTST

CLR

MOV
MoV

ICST.ADDR,RO
6(R0O),R2
R2,L$SLUN
55
16

. WORD
.WORD
.WORD

MOV
MOV

RL,LSLUN

JSR

PC,DRV.CTLERR

JSR

PC,GET.RETPKT

MOV

B8GE

000054
000000G
000002G
000003
000001
000104°
177760
000060

MOV
MOV
MOV

2$:

MOV
MOV

5312

5313

5315

;

5318

:
:

5319
5322

5323

ICTLR,(SP)

RO,R1
23
«0BM18,(SP)

U.SAVE,»

H
;

5324

5325
5327

&,INDEX

H
;

5329
SP,s
INDEX,s

5327

5332

ARETPKT+2,R0O

ICTLR,R2

#177760,R2
260, (RO)
R2,(RO)
R1,(SP)
PC,IN.IODQ

MOVB

81s8

MOV

JSR
cMP

(SP)e+,(SP)+

RTS

$CODES

#,U.SAVE

¢3,1(RO)

8IC

77 words,
Rout ine Base:
7 words
depth per invocation:

5311

PC.BL$MUL

JSR

3s:

ICTLR, -(SP)

SP,RO
17
3%
R1,(SP)
454, -(SP)

TRAP
BR

ADD
MOVB
MOV

000000G

>289

EGD.14
EMS. 14

MOV

000000G
000001

;

171

(50)

€177760,R2

MOV
TRAP

0000006
000104
000000G
000104'
000000G

Page

SWAB
BIC

177760
0000006

SEQ 0402

VAX-11 Bliss 16 v4.0 579
DISK$USERZ2: [POWERS]JZRQADO.8BL2:6

C.ERR.TBL(RO)

MOV

1$:

11:08:35
11:08:22

24746

:
H
:

5334

INDEX,

5235
5305
5289

f1 l’l
ZRQAMS

RD/Rx EXERCISER
RORX

B0
G
G0

GLOBAL
H
H
!
H
H
'
!

=P N G808 U U8 U8

novalue

Apr

1984

11:08:35

11:08:°22

VAX

11 Blies

S0 GAG%

v4.0 579

DISKSUSER. : [POMER, 1ZRNADD .BL ¢+

Page

1/~

(s1,

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 COMMAND RING AND CHECK FOR ANTY
COMMAND SLOTS THMAT HAVE BEEN "TAKEN" 8Y 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, THF CRING COUNT IS
OECREMENTED, AND THE CR_POLL ADDRESS IS ADVANCED TO THE NEXT SLOT IN

THE

COMMAND RING.

]

!
H
!
!

IMPLICIT

[}

INPUTS:
ICTLR
INTERRUPTING CONTROLLER NUMBER
IDCT ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S OCT
ICOM_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S COMM AREA

begin

while

((.IDCT_ADDR

not

(BIT_TST

begin

IOCT_ADDR

[CRING_CNT]

((.IDCT

(CRING_CNT)

ADDR
«

gtru O)

(CR POLL])

_IOCT_ADDR

end

+»

2),

ED OWN))) do

[CRING_CNT]

IDCT_ADDR {CR_POLL) = .IDCT_ADDR {CR_POLL] . 4,
if

.IDCT

then

ADDR

IOCT _ADDR

(CR_POLL) gtra

(CR POLL)

.IOCT_ADDR

[CR_END]

.IDCT ADDR (CR BEG);

WwMILE

DECREMENT

IF BEYOND END OF

¢t

SET POINTER

CLEAR COMMAND

0 OF

CURRENT

COMMANDS

SLOT

I4% HOST

@ CMDs

IN CRING

OWNED

amnD

IN CRING

! ADVANCE TO NEXT SLOT TO POLL

RING

TOP OF

CRING

end;

ICOTM_"DDR

[CMD_INT)

= O;

INTERRUPT

WCRD

IN RING ~EADER

end;

004137

0000006

000004
000010
000014
000016
000020
000022

013701
012702
060102
105711
001422
016100

000100
000016

016000
042700
020027
001411
105311
062712
021261
101757

ROUTINES

Apr

000000

000026
000032
000036
000042
000044
000046
0000%¢
0000,

SERVICE

routine POLL CRING

U8 U8R

>»

INTERRUPT

O¢

B¢

S344

Ui N\ P 00 0o 0 10 90 00 =0 pud gt oo =0 =0 =0 oo P

b it b

S3%9
S%40

VOol.6

.SBTTL POLL .CRING RDRX

POLL.CRING::
JSR
MOV
MOV
1%

000016
000002
077777
100000

000004
000017

ADD
1ST8

BEQ
MOV
MOV
8IC
cMP
BEu
DECB
ADD

cMP
8L 049

INTCRRi®T

SERVICE

ROUTINES

R1,$SAVE?
IDCT.ADDR,R1
216 ,R2

3
3
'

5333
5352
S3n
2

R1,R2
(R1)

b3l

LY.
T\

3
3

S8
et

2%
16(R1),RO
2(RQ),R0O
e?7?77,RO
RO,& 100000
2t
(R1)
o4 ,(R2)
(R2),12(R1)
1t

)

Cl#
JRQAME

RO Rx EXERCISER

vOl.6

RORY

000060
COOed
N0t
o002

OO0
e

;
:

016110
Q000754
013700
005060

000207

Rout
' ne S 'ce:

Mavimum stack

INTERRULPT

SERVICE

ROUTINES

000010

000074
000004

3¢ words,

depth per

Rout ine Base:

‘nvocation:

words

MOV
BR
MOV
CLR

11 Apr 1984 11:08:85

VAX 11 Blies 15 v4.0 579

DISKSUSERZ
: [POME RS })ZROADO .BL 25

Rpr

10(R1),(R2)
1
ICOM.ADDR,RO
4(RO)

RTS

$CODES$

.« 25200

1984

11:08:22

'
$
'

D1,
ZRQAMMS

RO/Rx EXERCISER

vOol.6
3

587

5374

587Ss

S37¢

RORX INTERRUPT SERVICE ROUTINES
3

:
H
:
H
:
:
H
$
H
H
H
H
H
:

53"
5%°8
5379
S380
5381
5382
5383
5384
5385
5386
5387
5388
5389
5330

:
:
:
:

5392
5393
5394
5395

2
2
2
2

ggg;

:
:
H
:
:
:
H

5399
5400
S401
5402
5403
5404
5405

5407

S391

S396

1
1
1
1
1
1

)
1
1
1
1
1}
1

3
4
3
3

GLOBAL
t.

!
!
!
H
H
H
H
H
!
H
H
'
'

rout ‘'ne POLL _RRING

IMPLICIT

Page 174

r%¢.

begin
whiie not (BIT_TST

begin

IPKT _ADDR

IF NOT

((,.IOCT ADDR

[RR POLL)

. .IDCT_ADOR (RR_POLL])

2),

ED OWN)) do

10;

(.IPKT_ADOR [CONNID) EGL CID_OUP)
THEN
(CREDIT BAL = .CREDIT BAL + .IPKT_ADDR

H
H
(CREDITS););

'IT WAS NOTICE THAT DUP WAS SENDIND BACK CRFDITS WHICH IT SHOW.D NOT.

3
g

H
H
:
H
:

S411
S412
5413
5414
5415

3
3
3
3
3

H
H
H
H

5417
5418
5419
;g?

3
3
3
'g

IPYT_ADDR (MSGLEN)]

g:g%

H
H

5424
€425

3
3

then

5416

DISKSUSER2: [POWERS JZRIADD .BL 2 ;4

INPUTS:
ICTLR
NUMBER OF INTERRUPTING CONTROLLER
IDCT ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S OCT

5408
g:?g

novalue

11:08:°°2

280 GACSY

ITS PURPOSE IS TO SCAN THE DEVICE'S RESPONSE RING AND CHECK FOR ANY
SLOTS WHICH MAVE BEEN RETURNED TO THE HOST (OWNERSHIP B1° « 0), FOR
€ACH SUCH SLOT, The ASSOCIATED MESSAGE IS PROCESSED BASED ON ITS
CONNECTION ID (DISK OR DUP). AFTER PROCESSING, THE MESSAGE PACKET
IS RE-INITIALIZED AND RETURNED TO THL CONTROLLER (OWNERSHIP BIT SET
10 1).

5406

:
:

11 Apr 1984

VAX 11 Bliss 15 V4.0 579

THIS ROUTINE IS CALLED BY THE RODRX INTERRUPT SERVICE ROUTINE (AZINT)
FOR EACH DEVICE INTERRUPT EXCEPT DURING INITIALIZATION OR FATAL ERROR,

3
3
3

11 Apr 1984 11:08:35

selectoneu
set

.IPKT

(CID DISK]

ADDR

[CONNID])

WHILE O

= O

ADDRESS OF RESPONSE PACWET

222
222
1222

1222

DISK RSP ();

(CID.DUP])

DUP RSP

(otherwise])

()3

0222

PRINTF (DBM2C,

.IPKT

ADDR

tes;

= MSG_LEM o 2;

[CONNID).,

.IRDRX ADDR);
'
'BAD CONN ID

xxxxx FROM w¥xxixx

INIT PKTY FIELDS; MESTAGE LENGTM=

BE'OND END O¢

CiCLE

IODCT_ADDR [RR_POLL) = .IDCT_ADDR [RR POLL]) + 2;
* ADVANCE 10 HI ORDER WORD OF RINL
.IDCT_ADDR (RR_POLL] = .IPKT_ADDR (PKT HI],;
! RETURN SLOT TO CONTROLLER
.IDCT_ADDR [RR_POLL]) = ..IDCT ADDR [RR POLL) or ED OWN or tD FLAG; ' OWNERSHIP T00
IOCT ADDR [(RR _POLL) = .IDCT ADDR [RR POLL) + 23
! ADVANCE TO NEXT RRING SLJT
.IDCTYT_ADDR
IDCY ADDR

(RR POLL) gtra
[RR POLt) =

.IDCT ADDR [RR END)

,IDCT ADUR

[RR BEG];

TOP P

RING
RING

.07

E Lo
ZRQAMZR
vOl.e
H

5426

RD/RXx EXERCISER
RDRX INTERRUPT SERVICE ROUTINES
3

:
:

5427
5428

2
2

5430

5429

end;

ICOM ADDR [RSP INT)

end;

000000

004137

0000006

000004
000010
000014
000016

013701
062701
011100
016000

000100
000014

000026
000032

020027
001504

100000

000022
000034

000042

000050
000054
000056
000062

000066
000070
000074
000100

000104
000106
000110
000114

000116
000122
000124

000130
000132

000136
000140
000144
0C0150
000152
000154

000160

000164

000172

00C176
000200
000204

000210
000216
000224
000230
000234

042700

013700

0000006

005002
156002
020227

001406
116003

042703
060337

005702
001003
004737
000421

020227
001003
004737

000413
013746

010246
012746
012746
010600
104417
062706

013700

012760

013702
010201
062701
062711

016071
052771
062711
021162

101667

= 0;

1$:

077777

000000

000012

0000006

2s:

000000V
000002

3s:

024446

000000G

43 ;

0000006
000003

000010

000100
000014
000002

000002
140000
000002
000006

JSR
MOV
ADD
MOV
MOV

R1,$SAVES
IDCT.ADDR,R1
214 R}
(R1),RO
2(R0O),RO

cHP
BEQ

RO,&
6

SUB

012, IPKT ADDR

000006

000000
000000

Ss:

{ OOP

80(R1),IPKT ADDR

5397

IPKT , ADDR,RO

5400

28
10(RO),R3

5402

R2
3
PC.DISK.RSP
St

5407

5404

Ss
IRDRX.ADDR, -(SP)

:
3

S404
S411

R2, 82
4
PC.0UP RSP

MOV
MOV
MOV
MOV
TRAP
ADD

R2, -(SP)
00BM20, -(SP)
23, (SP)
SP,RO
17
€10,5P

MOV

€74 ,6(RO)

MOV
ADD
ADD

R2,R1
214 ,R1
02,(R1)

BLOS

MOV

MOV
BIS
ADD
CMP

INTERRUPT SERVICE ROUTINE>

100000

9177.60,R3
R3,CREDIT.BAL

B8R
MOV

INTERRUPT WRD IN RING HEADER

277777,R0

8IC
ADD

cHP
BNE
JSR

Pege 175
(S¢)

5373
539%%

R2
11(RO) ,R2
R2,02

TST
B8NE
JSR
B8R

3EQ 0406

:
3

CLR
8IsB
cMP

B8EQ
~MOVB

000010

0000006

POLL.RRING RORX

MOV

000011
000002

000074

.SBTTL

MOV

000000G

WHILE

! CLR RESPONSE

B8IC

177760
000000G

VAX 11 Bliss 15 v4,0 579
DISKS$USER2: [POWERS JZRQADO.BL2 ;%
!

POLL .RRING: :

000002

017137

162737

11 Apr 1984 11:08:35
11 Apr 1984 11:08:22

5409

GP,e

IPKT ADDR,RO

€4le

IDCT ,ADDR,R2

s41°

3
3
:
:

5414
3419
?e
vT

Flo
RO/RXx EXERCISER

ZRQAAMX

RORX

vol.é

000236

000242
000244
000250
000254

016211
000664
013700
005060
000207

INIERRUPT

11 Apr
11 Apr

SERVICE ROUTINES

:gRZ).(RI)

000004

000074
000006

1COM.ADDR,RO

6$:

S431

RTS

Rout ine Base:
$COJES$
87 words,
: Routine Sice:
10 words
; Maximum stack depth per invocat ‘on:

6(RO)

25300

1984
1984

11:08:35
11:08:22

VAX-11 Blies 16 v4.0 579
DISKS$USER.: [POWERS 1 ZRQADO
. ML 2,36

G1o
ZRQAMZ

RO/Rx EXERCISER

vOl.é

:
H
H

RORX

1
1
1

5432
5433
S434

5437

S440

gaaa

:
:
:
:
H
H
H
:
:
:

43
5444
5445
5446
5447
5448
S449
$450
5451

1
|
1
|
1
1
1
1
1
1

!
!
'
!
!.

:
H

:
:
:
H
:
H
:
:
:

S436

5438
5439

1
1

5441

5452
5453
5454
5455
5456
5457
5458
S459
5460
5461

1984

11:08:c22

(I.E.,

FIELD

ALL

EXCEPT

TO THE

DUP RESPONSES).

IMPLICIT

selectoneu

ITS PURPOSE

TO PASS

APPROPRIATE ROUTINE BASED ON THE Mt SSAGE

(SEWUVENTIAL,

DATAGRAM,

INPUTS:
IPKT ADDR

.IPKT ADDR

VAX-11 Bliss

16 v4.0 579

DISKSUSERZ : [POWERS JZRAADO .BL2;: 5

5EQ 0407
Pege 177
(%%,

°*

CONTROL

CREDIT

TrYPE

NOTIFICATION).

ADDRESS OF MSCP PACKET CONTAINING RESPONSE
ME SSAGE

[MSGTYP] of

set

[MT_SEQ])
[MT_OG])

SEQUEN ();

[otherwise]
tes;

DATAGM ();
:

PRINTF

(DBM21,

.SBTTL

000002
000006
000012
000014
000016
000020
000022
000026
000030

013700
116001
006201
006201
006201
006201
042701
001003
004737

000000G
000010

000036

020127

000001

001003
004737
00041!
010146
012746
012746
010600

novalue

Apr

010146

000042
000044
000050
000052
000054
000060
000064

THIS ROUTINE IS CALLED BY POLL _RRING FOR EACH RESPONSE MESSAGE
WHICH HAS A CONNECTION ID INDICATING A DISK MSCP ORIGINATOR

1
|
1
1
1
1}
1
1
1

000417

ROUTINES

11:08:35

'
'

000000

000034

SERVICE

GLOBAL routine DISK RSP

5435

INTERRUPT

11-Apr-1984

DISK.RSP::
MOV
MOV

177760

000000V

18:

000000V

000000G
000002

2%:

.IPKT_ADDR

[MSGTYP));

DISK.RSP RDRX

INTERRUPT

“MESSAGE

SERVICE

TYPE

xx RECEIVED’

ROUTINES

R1,-(SP)
IPKT, ADDR,RO

:
3

5434
5451

MOV8
ASR
ASR
ASR
ASR
8IC
B8NE

54%¢

JSR
B8R

PC.SEQUEN
3

S4%1

cMP

R1,01

5458

e IE
JSR
8R

2
PC ,DATAGM
3

MOV
MOV
MOV

R1, (SP)
aDBM21, -(SP)
o2, (SP)

MOV

SP,RO

S45L

Sdn]
SP,e

Hl6
ZRQAM3

RD/Rx EXERCISER
RORX INTERRUPT SERVICE

vOl.6

000066
00007
0007
000076

104417
062706
012601
000207

: Routine Size:

3
:
3

Maximum gstack

S462
5463
S364

1
1
1

ROUTINES

000006
3s:

11
TRAP
ADD

32 words,

Rout ine Base:
6 words

invoca tion:

MOV

$CODES

Apr-1784

11:08:35

11:08:22

VAX-11

Bliss

v4.0 579

DISKSUSER?:[POUEPSIIRQADO.8L2;6

5EQ 0409

Pege 178
(%3,

17
#6,5P

(SP).,R 1

RTS
depth per

Apr-1984

25556

S434

T1éh
RO/RX

routine SEQUEN

THIS ROUTINE

novalue

Apr
Apr

1984
1984

B
B0
B0
B

11:08:35
11:06:22

VAX

Bliss

v4.0

2£Q 0410

579

Pege

DISKSUSERZ:
[POWERS JZRQADO.BL2;: %

179

(5S4,

WITH

SERVICE ROUTINES

THE

WY
NPT

PACKET

CALLED BY

~SEQUENTIAL“

CONTENTS OF

DISK

MESSAGE

THE MESSAGE PACKET

CAN BE

RETURNED

THE

RSP

FOR

TYPE.

EACH DISK

ITS GENERAL

CONTROLLER.

SO THAT

MESSAGE

TO COPY

IN ADDITION,

THE

OR ACCESS), THEN SOME
RETURN PACKET,

MSCP RESPONSE

PURPQSE

INTO A RETURN PACKET

IF THE COMMAND WAS AN I/0 TRANSFER (READ, WRITE,
FIELDS OF THE COMMAND PACKET ARE COPIED INTO THE

IMPLICIT

O
W0
G0
2
Vs
G2
G0
W6
C©O
GF
Go
G
G0
V0
V6
G0
G0
V¢
V0
G5
G¢
V¢
S5
V0
s
90
GF
S0
G0
V1
V0
O
G
O
¢
G0
Ve
Ve
VO
Us
B
V0
Ve
WS
Vs
Ve
VI

GLOBAL

11
11

INPUTS:
ICTLR
INTERRUPTING CONTROLLER NUMBER

IPKT _AaDDR

ADDRESS OF MSCP PACKET CONTAINING RESPONSE

begin

local

P_INDEX
R_INDEX

:
:

SRC_ADOR,
OST_ADDR,
R_ADDR

incr COUNT
if

s gned word initial
s gned word,

ref block

from O

(.MSCP_PKT

[RP_LEN,

to PKT _CNT
[.COUNT,

(-1),

word]

field

(RP

[.COUNT)

CRN_LO]

eql

ASSOCIATEC

COMMAND PrT

1 do
eql

.IPKT_ADDR

(CRN LO))

ano

( .MSCP_PKT [ .COUNT, CRN_MI]) eql .IPKT_ADDR (CRN HI)) ang
( .MSCP _PKT [.COUNT, PKT_LO] neqa .IPKT ADDR [PKT LO]) and
((.MSCP_PKT [.COUNT, OPCODE] and OP END) neq OP _END) and
( .MSCP PKT [.COUNT, MSGTYP) eql MT _SEQ) and
(C.IPKT_ADDR [OPCODE) and OP_END) eql OP END) and
( .PKT_USE

ASS ME NO

FIELDS);

THIS

THE

ASSCC CMC

.ICTLR)

then

begin

P_?NDEX = _COUNT;

! SET PKT NUMBER

exitloop:
end;

.P_INDEX

then

begin

PRINTF
return;

1lss O

(DBM108,

.IPKT ADDR

{CRN MI],

.IPKT

ADDR

[CRN LO1);

UNKNOWN COMMAND REF. N MBEFR

COMMAND NOT FOIUNC

end;
if

MSCP_PKT

then

PRINTF

(.P_INDEX,

(DBM111,

OPCODE]

neq

.MSCP PKT ([ .P

(.IPKT

INDEX,

ADDR

(OPCODE]

OPCODE],

. IPKT

INTERRUPT

PNV WNDNWWWNDNVNNNWWWND
WL
NN RN N re =2 1o 1o 1=t 1=t s =0 b o gt )0 p=s =0 po po

5514
5515
5516
S517

5508
5509
5510
5511
5512
5513

WRWN

RORX

EXERCISER

((.IPKT_ADDR

(.IPKT ADDR

{OPCODE]

eql

(OPCOCE) eql

(OP RD or

(OP WRT

OP END))

or OP END))) and

(C(.IPKT ADDR [STATUS _CODE]) eaql ST SUC) and

ang

ADDR

(not

END))

{OPCODE
),

LIPKT

ADDR

OPCODE

TMISMu~(TM

{CRN * .7,

JIPWT ADDR S IRN

J16
RD/Rx EXERCISER
RORX INTERRUPT SERVICE

ZRQAMS

5518
5519
5520
5521
3522
5523
55°4
5525
5526
5527
5528
5529
S530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540
5541
5542
5543
5544
5545
5546
5547
5548
5549
5550
5551
5552
5553
5554
5555
5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570

DUDWUWHNHWNUWWNWNDGDDLOUVLDLDLDBDWWWWWNWWNWWWNINNNNDN
WWNWWWMNHRCRDDOND W

B¢

V0 Gs

G0 V¢ G

GO Vo _Wo

G0 00

vVOl1.6

11
11

ROUTINES

Apr 1984
Apr-1984

11:08:35
11:08:22

VAX 11 Bliss 15 v4.0 579
DISKSUSERZ
: [POWERS )JZRQADO.BL2 ;6

(.IPKT_ADDR (STATUS SUBCODE
) eql 0)) and
((.MSCP PKT [.P INDEX, BC_LO) neq .IPKT ADDR (B8C LO])) or
( .MSCP_PKT {.P_INDEX, BC HI) neq .IPKT ADDR (8BC H1)))

then

PRINTF

(DB8M112,

.MSCP PKT [.P_INDEX,
.IPKT ADDR [CRN_HI),

.MSCP_PKT

then

[.P_INDEX,

BC HI), .MSCP PKT ({.P_INDEX,
.IPKT_ADDR (CRN LO1);

BC 10],

LIPKT

ADDR

(BC HI],

.IPxT

ADDR

(8C LO],

RSP RECEIVED)

begin
PRINTF (DBM120, .MSCP_PKT
PUT _PKT (.P_INDEX);

[.P_INDEX,

CRN HI]),

.MSCP PKT

[ .P

INDEX,

CRN LO));

rcturn;

els e
if

end

MSCP_PKT ([ .P

(R_INDEX

then

INDEX,

GET

RSP RECEIVED]

RETPKT

(.ICTLR))

lss

TRUE;
O

begin
PRINTF (DBM22);
PUT _PKT (.P INDEX);

MARK

"SEQUEN:

!
!

SET UP COPrv (SKIP OVER PKT DESC)
START OF ALLOCATED RETPKT

'
!
!

COPv 1 WORD
ADVANCE DESTINATION ADDR
ADVANCE SOURCE ADDR

SKIP OVER RESERVED WORDS

!
!

COPY

LOAD CONTROLLER NUMBER INT(Q Pw~

'
!
!

IF END MESSAGE IS
READ, WRITE, UR
ACCESS

RESPONSE

RETPKT

RECEIVED

IS NOT
RETPKT

AVAILABLE
NQOT

AVAILABLE"

return;
end

else

begin

SRC_ADDR

R_ADDR
incr

_IPKT ADDR

DST

COUNT

ADDR

from

+ 6;

RETPKT

(.R_TNDEX

LEN

2);

to RP_LEN do

begin

.OST_ADDR = ..SRC ADDR;
DST ADDR = .DST_ADDR + 2;
SRC _ADDR = .SRC_ADDR .+ 2;
if

.IPKT_ADDR

then

end;
R_ADDR

if .COUNT
then

[OPCODE])
eql

SRC_ADDR

[CTLR]

eql

(OP

ONL

£ND)

.SRC_ADDR

. 4;

,ICTLR;

.P_INOEX geq O

THIS

THE ONLINE ENO MESSAGE

IN ONLINE ENO
LOOP

ASSOC.

CMD PKT

MESSAGE

wWAS FOtND

then

(.IPKT

ADDR

(OPCODE])

eaql

(OP_RD or OP END))

(.IPKT _ADDR

(OPCODE

eql

(0P ACC or OP END)

(.IPKT_ADDR

then

beg'n

[OPCODE] eql

(OP WRT or OP END)) or

K16

rqans

RD/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

000000
000004
000006
000012
000016
000020
000022
000026
000032
000034
000042
000044
000052
000054
000060
000062
000066
000070
000076
000100
000104
000106

WRLRLVWNWNNDDLELLLD

5571
5572
5573
5574
5575
5576
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597
5598

R_ADDR
R_ADDR
R _ADDR
R_ADDR
R _ADDR
R ADDR
R_ADDR
end;

IN_IO0DQ (.R

end;
if

(.IPKT_ADDR

then

el se
=RV

B¢

©F

B¢

v01.6

004137
005746
012746
013701
005002
010246
012746
004737
022626
026061
001030
026061
001024
026011
001421
105760
100416
132760
001012
105761
100007
116200

(CMDMOD)

11-Apr-1984
11 Apr-1984
=

FIELDS
FROM

COMMAND

PACKET
TO RETPKT

IF ENDCODE WAS READ/WRITE/ACCESS
IF

= HRD OCCURED

LAST_PKT

[.ICTLR,

LAST_HRD_ERR]

= HRD_NOT_OCCURED;

LAST_CRN LO]
LAST_CRN_HI)

=
=

.IPKT_ADDR
.IPKT_ADDR

[CRN_LO);
[CRN_HI];

SAVE
PRINT

geq O

(.P_INDEX);

RETURN

.SBTTL

: JSR
SEQUEN:
TST
MOV
MOV

1%:

000012G 000012

000014G 000014

000000G
0000226

000022
0000006

CLR
MOV
MOV

JSR
CMP
cMP
BNE
cMP
BNE
CMP
BEQ

7578

0000106

I0DQG

COMMAND REFERENCE
ANY

8MI
8IT8B
BNE
15718
8PL
MOvB

SEQUEN RDRX

R1, $SAVES

(sP)

#-1,

INTERRUPT

SERVICE

ROUTINES

(SP)

+,P.INDEX

IPKT.ADDOR,R1

#106, (SP)
PC,BLS$MUL

COUNT

ASSOCIATED

ASSOC CMD PKT

ROUTINE

000106
000000G

INTO

SAVE ERROR CONDITION

end;

177777
0000006

INDEXx

WAS ALLOCATED

SUC) or

LAST_HRD_ERR]

LAST _PKT [.ICTLR,
LAST_PKT [.ICTLR,
SCAN_ERRLOG ();

000360

RETPKT

[STATUS_SUBCODE) neq 0)

[.ICTLR,

0000006

181
(54)

RELEVANT

PUT

neq

Page

CcoPYy

INDEX);
[STATUS_CODE)

SEQ 0412

VAX-11 Bliss 16 v4,0 579
DISK$USERZ: [POWERS JZRGADO.BLZ; 6

.MSCP PKT ([ .P_INDEX, MODIFY],
.MSCP_PKT {.P_INDEX, BC_LO);
.MSCP_PKT [ ,P_INDEX, BC_MHI];
.MSCP_PKT (.P_INDEX, LBN_L];
.MSCP_PKT (.P_INDEX, LBN_H];
.MSCP _PKT [.P_INDEX, BUF _0];
.MSCP_PKT [.P_INDEX, BUF_1];

(CBCNT LO)
[CBCNT HI)
(LBN_LO]
(LBN_HI)
(BUFF _0)
(BUFF _1)

LAST_PKT

if .P_INDEX
then
PUT PKT

11:08:35
11:08:22

COMMAND

NUMBER

CRROR

LOGS

WAS FOUND

FACKET

TO POOL

DISK _RSP

5465

5480

5491
5489
S491

(SP)+,(SP)»

MSCP.PKT+12(R0O),12(R1)
28
MSCP.PKT+14(R0O),14(R1)

5492

5493

MSCP.PKT(RO),(R1)

2
MSCP.PKT.22(R0O)
2
0360 ,MSCP.PKT+10(RO)
2

22(R1)
2

PKT USE(R2),R0

5494

5495
S49%

s(COUNT), »

5497

L 16
ZRQAM3

RD/RX EXERCISER
RORX INTERRUPT SERVICE

vol.6

000112
000116
000120
000122
000124
000126
000132
000134
000136
000140
000144
000150
000154
000160
000162
000164
000166
000170
000174
000200
000202
000204
000210
000214
000220
000222
000226
000230
000232
000236
000242
000244
000250
000252
000256
000262
000266
000270
000272
000276
000302
000310
000312
000320
000322
000326
000330
000334
000336
000342
000344
000352
000354

020037
001002
010216
000405
005202
020227
003732
005716
002013
016146
016146
012746
012746
01C600
104417
000545
011646
012746
004737
010001
022626
013700

116003

042703
005002
156102
020203
001422
016046
016046
005046
116016
005046
116116
012746
012746
010600
104417

062706

013700
126027
001404
126027
001045
012702
060002
132712
001037
032712
001034
026160
001004
026160

11-Apr
11 Apr

ROUTINES

000104

CMP
BNE

MOV

2%:

000013

3s:

000012
000014
0000006
000003

B8R
INC
CMP
BLE
TST
8GE

MOV
MOV
MOV
MOV
MOV
TRAP
44

000106
0000006

MOV
MOV

JSR

MOV

CMP

000000G
000022

MOV
MOvVB

000022G

8IC
CLR
B8ISB
CMP
8EQ

177600

000012
000014

MOV
MOV

000022

MOVB

0000226
0000006
000005

MOVe
MOV
MOV
MOV
TRAP
ADD
MOV

CLR
CLR

000014
0000006
000022
000241

000022

Ss:

000242

000024
000037

177740
000026G 000026

000030G 000030

6$:

CMPB
BEQ
CcMPB
BNE

MOV
ADD

BITB
BNE
BIT
BNE
CMP
BNE
cMP

1984
1984

11:08:35
11:08:22

RO,ICTLR
2
R2,(SP)
34

VAX-11

V4,0 579

DISK$USERZ: [POWERS JZRQADO.BL2;6

;:
:

;

Bliss

COUNT,P
. INDEX
COUNT

COUNT,

P.INDEX

12(R1), -(SP)
14(R1), -(SP)
40BM108, (SP)

SP,RO
17
9

500 0413
Page 182
S4)

5500
499

S4R9
5504
5507

03, -(SP)

(SP),-(SP)
9106, -(SP)
PC,.BLSMAL

;

SP,»
P.INDEX,

5508

5511

RO,R1
(SP)+,(SP)e
IPKT.ADDR,RO
22(R0O),R3

€177600,R3
R2
MSCP.PKT+22(R1),R2
R2,R3
5%

12(RO), -(SP)
14(RO), -(SP)
-(SP)
22(R0O),(SP)
-(SP)

5513

MSCP.PKT+22(R1),(SP)

o0BM111, (SP)
85, -(SP)
SP,RO
17
014 ,5P
IPKT .ADDR,RO
22(R0O), 0241

:
:

SP,»
5515

22(R0O), 4242
8%
#24 ,R2

RO,R2

;

551¢€

SS17

5518

SS19

¢37,(R2)

8¢
€177740,(R2)
8s

MSCP .PKT+26(R1),26(R0O)

78
MSCP . PKT+30(R1),30(R0O)

RD/RX EXERCISER
RORX INTERRUPT SERVICE

ZRQAM3
v0l.6

000362
000364
000370
000374
000400
000404
000410
000414
000420
000424
000426
000430
000434
000442
000444
000450
000454
000460
000464
000466
000470

000474
000500
000504
000510
000516
000522
000526
000532

000534
000540
000542
000546
000552

000554
000556
000560
000564
000570
000574
000600
000604
000610
000612
000616
000622
000624
000632
000634
000640
000642
000646
000650

001424
016046
016046
016046
016046
016146
016146
012746
012746
010600
104417
062706
132761
001422
016146
016146
012746
012746
010600
104417
016616
004737
062706
000137
112761
013746
004737
010066
005726
005766
002007
012746
012746
010600
104417
000563
013704
062704
016646
012746
004737
062700
010005
013702
012703
012425
126227
001005
020327
001002
062704
005203
020327

000012
000014
000026
000030
000026G
0000306
0000006
000007

000020
000400

ROUTINES

7%:

0000056

8s:

0000126
0000146
0000006

000003

000010
0000006
000010
027016’
000001
000005G
000104°
000000G
000004

11
11

9s:

10$:

8EQ

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

BIT8
BEQ

MOV
MOV
MOV
MOV
MOV
TRAP
MOV
JSR
ADD

JMP

MOVB
MOV

JSR

000002
0000006
000001

11$:

MOV
TST
TST
B8GE
MOV
MOV
MOV
TRAP
8R
MOV
ADD
MOV
MOV

JSR

000211

12¢:

000012
000004

000026

13$:

ADD
MOV
MOV
MOV
MOV

CMPB
BNE
CMP
BNE
ADD
INC

cMP

Apr-1984
Apr-1984

11:08:35
11:08:22

VAX

11 Bliss

16 V4,0 579

DISKS$USERZ: [POWERS JZRQADO.BL2; 5

SEQ 0414
Page 183

(S4)

12(RO), -(SP)
14(RO), -(SP)
26(RO), -(SP)
30(RO), -(SP)

5524

MSCP.PKT+26(R1),-(SP)
MSCP.PKT+30(R1),
-(SP)

#DBM112, -(SP)

07, -(SP)
SP,RO
17

#20,5P
0400 ,MSCP .PKT+5(R1)

10¢

MSCP .PKT+12(R1),
-(SP)
MSCP.PKT+14(R1),
-(SP)

SP,»

5524

5529

#0BM120, -(SP)

83, -(SP)

SP,RO
17
10(SP),(SP)

;

5528

ICTLR, -(SP)

5534

PC,PUT
. PKT
&10,SP

21 ,MSCP .PKT+S(R1)

PC,GET.RETPKT
RO,.4(SP)

(SP).
2(SP)
11

a0BM22,

; P.INDEX,
s
:

R.INDEX

SP,RO
1?7
19¢
IPKT ADDR,R4

06 ,.R4

2(SP),

(SP)

854, -(SP)
PC.BL $MUL
ORETPKT
RO
RO,RS
IPKT ,ADDK,R2
¢1,R3

(R4)+,(RS).
22(R2),e211
13s
R3.412
128

04 ,R4
R3

R3,026

5536

¢,R.INDEX

5539

SP,»

:
:
:

*,SRC.ADDR
¢,SRC.ADDR
R.INDEX,e

«,0ST
. ADDR

5530
5531

;

(SP)

01, -(SP)

SP,s

5540

5545
5546

5554

;
:

¢ ,COUNT
SRC.ADDR,DST.ADDR

5548
5550

COUNT
, e

5556

:
;

¢,SRC.ADOR
COUNT

5558
5548

;

COUNT
, s

5554

b1
RD/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

003762
013703
042703
142760
150560

000706
000710
000714
000720
000722
000726
000730
000734
000736
000744
000752
000760
000766
000774
001002
001010
001014
001020
001022
001026
001032
001036
001042
001046
001050
001054
001056
001062
001064
001072
001074
001100
001106
001114
001120
001124
001126
001132
001136
001140
001142

005766
002441
005003
156203
020327
001406
020327
001403
020327
001025
016160
016160
016160
016160
016160
016160
016160
016616
004737
005726
013716
012746
004737

11-Apr-1984
11-Apr-1984

000002
000004

000002

Routine

Max

Size:

mum stack

OISKS
{POWERS
USER2
JZRQADO.BL2;6
:

SEQ 0415
Page

184

(S4)
5561

017,2(RO)

R3,2(RO)
4(SP)

5563

5566

154

000022
000241

22(R2),R3

R3, 0241
144
RS, 0242
144
R3, 0220

000242

5567
5568

154
MSCP .PKT+24(R1),12(RO)
MSCP.PKT+26(R1),44(R0O)
MSCP.PKT+30(R1),46(RO)
MSCP .PKT.46(R1),50(R0)
MSCP .PKT+S0(R1),52(RO)
MSCP .PKT+32(R1),24(RO)

144;

5571
5572
5573

5574

6(SP),(SP)

5575
5576
5577
5580

ICTLR,(SP)

5544
5586

MSCP .PKT+34(R1),26(RO)

15¢:

PC,IN.I00Q
(SP).

PC.BLSMUL

013701
012703

060103
132713
001003
032713
001404
012760
000402
005060
016160
016160
004737
005766
002404
016616
004737
022626
022626
000207

VAX-11 Blies-16 vV4.0-579

124
ICTLR, R3S
#177760,R3

000104

177760
000017

11:08:3%
11:08:22

IPKT,ADDR,R1

5583

024 ,R3

R1,R3

BIT8

037,(R3)

163

0177740,(R3)

000116

168

17¢:
18%:

000120
000122

19¢:
20¢:
2ls:

306 words,

depth per

Rout ine Base:

invocation:

18 words

5584

17¢
€1 ,LAS
. PKT(RO)
T

184
LAST
. PKT(RO)
12(R1),LAST PKT.2(RO)
14(R1),LAST
. PKT+4(RO)
PC,SCAN. ERRLOG

CLR

MOV

MOV
JSR

1S7
BLY

4(SP)

208

MOV

4(SP),(SP)
PC,.PUT ,PKT

JSR
cHe
cMP

(SP)e,(SP).
(SP)e,(SP)e

RTS

$CODES

25656

;

P . INDE
X

5586
5583
5588
5590
5591
5592
5594

P.INDEX,e

5596
5480
5465

5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651

RD/Rx

EXERCISER

RORX

INTERRUPT

GLOBAL
[T X2 NT
]

WWLWWWNINRIN NN e e e s po oo
NVNUVVNINNUND DD DD DD W
ANV

5599
5000
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
S611
5612
5613
5614
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639

VRNV

B B 83 BT B3 V1 T

B S0 B0 Ve G U

V0 B0 W

V0 G0 G0 G Ve G B0 Os B0 B0 B¢ G0 Ve G0 G0 OF G0 O0 G0 O Gr G0 ¢ Ve G0 G0 WP GI G0 G0 s G0 B

o B8 64 We

ZRQAM3
vol.e

SERVICE

ROUTINES

routine SCAN ERRLOG

THIS ROUTINE

SCANS

11
11

novalue

Apr 1984
Apr-1984

11:08:35
11:08:22

SEQ 0416

VAX 11 Bliss 16 V4,0 579
DISKSU
(POWERS
SER
JZRQADO
?2:
.BL2;6

Page

185

(55)

THE ERROR LOG SAVE

AREA AND PRINTS ANY ERROR LOGS RECEIVED FOR

THE

ASSOCIATED RESPONST

begin

local

TEMP _UNIT,

SFT_ERR_PRINTED
incr

index
begin

from O

(.ELOG_PKT

(.ELOG PKT
(.ELOG_PKT
(.ELOG _PKT

then

byte

to EP

initial

{NT

[.invex,

(byte (FALSE));

EL_CNTR])

(.index,
[.index,
[.index,

eql

.ICTLR)

and

EL_CRN_LO) eql .IPKT _ADDR
EL_CRN_MI) eql .IPKT_ADDR
EL_CONTENTS]) eql FULL)

_LAST

PKT

[.ICTLR,

.ELOG_PKT

LAST

[.index,

HRD _ERR]

eql

EL_FORMAT)

then

SCAN ERROR LOG PACKET

SAVE

AREA

ERROR LOG PENDING

!
!

UPATE SOFT ERROR COUNT
SAVE UNIT NUMBER AS KNOWN TO DRS

[CRN_LO}) and
[CRN_HI]) and

begin

then

HRD NOT

OCCURED

SOFT

THIS RESPONSE

ERROR OCCURED

lequ 4

begin

SO?T_ERROR (.index);
TEMP _UNIT
incr

OFFSET

_LSLUN;

from

(.ICST_ADOR

(.ICST _ADDR

then

brgin
LSLUN

[.OFFSET

_ICST

evitloop;

OF _UN)

ADDR

((UNITS

OF DATA,

DATA,

[.OFFSET

PER_CNTR

DISK _NUM)

D PRES) eql
OF

DATA,

eql

UNIT

SIZE

.ELOG_PKT

PRESENT)

D UNITI;

OF _UN) by UNIT_SIZE do

[.index,

EL_OK _NUM])

CORECT UNIT NC.

CONTROLLER ERROR

HOST

FOR ERROR MESSAGE

end;

case

.ELOG_PKT

[,index,

set

[0}):

FORMAT!

from O

to 4

_APT MQODE

then

else

(1]:

ERR

SOFT RTNE

APT

ERR

SOFT

(50);

RINE

(50,

LAPT MODE
ERR

SOFT

RINE

APT

(51,

.index)

then

. i ndev)

MEMORY

andg

ACCESS ERROR

D1
ZRQAMX

RO/RX EXERCISER
RORX INTERRLTMT SERVICE

5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663

PRV WWLDLDWBUWWVMBAWWWSLLLLVDAALVVILTIULITLILILTLILIVIIVIAVUILNMVTATIN
U

B¢

G¢

G2 O

G¢

O OF

VOl.o

ROUTINES

else

(2):

(3):

tes;

i f not

else

(52);

ERR _SOFT RTNE

APT

ERR _SOFT RTNE

(54);

PRINTF

.ELOG PKT

(DBM109,

DISK

TRANSFER ERROR

SDI ERROR

SMALL

!
!

RESTORE UNIT NUMBER
SOFT ERROR PRINTOUT OCCURED

UNKNOWN ERROR-LOG FORMAT

EXTRA

CARRIAGE -RETURN/LINE -FEED

ERROR-LOG CONTENTS

!
!

CARRIAGE RETURN/LINE -FEED
PRINT ERROR-LOG CONTENTS

ERROR LOG SAVE

(53);

(54,

TRUE;
[.index,

DISK ERROR

. index)

_TEMP _UNIT;

end

.index)

(S3,

ERR_SOF T_RTNE

FORMAT]);

( .SFT_ERR_PRINTED)

(CRLF);

( .index);

end

(.ELOG_PKT

[.index,

EL_CNTR]

eql

.ICILR)

and

((.ELOG_PKT [.index, EL_CRN_HI) lssu .IPKT ADDR [CRN_HI])) or
(C.ELOG_PKT [. index, EL_CRN HI) eql .IPKT _ADDR (CRN_H1]) and
(.ELOG_PKT [.index, EL_CRN_LO] lssu .IPKT _ADDR (CRN LO]))) and
(.ELOG_PKT (.index, EL_CONTENTS]) eal FULL)

then

(55)

. tndex)

(52,

MODE

SFT_ERR_PRINTED

PRINTB

EMS _EL

ERR_SOF
T _RTNE

if .APT
then

else

then

APT

SOFT_RTNE

SEOpgoi 186

(S51);

ERR _SOF
T _RTNE

ERR

417

DISKS$USERZ: [POWERS )ZRQADO.BL2;: 6

.APT MODE

then

(4):

el se

11:08:22

VAX-11 Bliss 16 v4,0 579

.APT_MOOFE

el se

ERR_SOFT RTNE

11:08:35

then

else

LSLUN

1984
1944

11 Apr
11 Apr

”~

beg n

PRINTB

EMS_EL
end;

(CRLF);

(.index);

end;
end;

.SBTTL

SCAN.ERRLOG RDRX

INTERRUPT

SERVICE ROUTINES

AREA

SCAN

E1l
ZRQAM3
vO1.6

RD/Rx EXERCISER
RORX INTERRUPT SERVICE

000000

004137

000004
000006
000010

005746
105005
005002
010246
012746
004737
010001
022620
012703
060103
005004
005000
151300
020037
001016
005204
013700
026160
001007
026160
001003
126327
001402
000137

000012
000014
000020
000024
000026

000030
000034
000036
000040
000042
000044
000050

000052
000054
000060
000066
000070
000076
000100
000106
000110
000114
000120

000124
000130
000132
000136
000140
000146
000150
000152
000156
000164
000170
000172
000176
000202
000204
000210
000212
000214
000220
000c22
000224
000226
000232
Q00c %6
000240

013746
012746

004737
022626
005760
001161
126127
101142
010246
004737
013766
012703
010300
063700
016146
111004
042704
020426
001012
032710
001407
011004
000304
042704
010437
000405
062703

0000006

11-Apr 1984
11 Apr-1984

ROUTINES

SCAN.ERRLOG:
:
JSR
TST
CLR8
1¢:

000102
0000006

CLR

MOV
MOV

JSR

MOV

cMP

000000G

MOV
ADD

CLR
CLR

81Se
CHP
BNE
INC

000104

0000006
000006G 000012

MOV

000010G 000014

000001

027562
000104°
000006
9000006

2%:

000116
000016G 000004

000000V
000000G 000002
000006
000076’
0000126

177760

000024

5%:

16 v4,0-579

DISKSUSER?2: [POWERS )ZRQADO.BL2; 6

SEQ 0418
Page 187

(5S)

RS
R2

SFT.ERR.PRINTED

S605

INDEX,
s

S614

(SP)

#4102, -(SP)
PC,BLS$MUL
RO,R1

$599

INDEX

Sh11

(SP)+,(SP).
9ELOG.PKT
,R3

R1,R3
R4
RO

(R3),RO
RO, ICTLR
24
R4

IPKT ADOR,RO
ELCGG.PKT+6(R1),12(R0O)
2s
ELOG.PKT+10(R1),14(RO)
23
1(R3),01
3
254

ICTLR, -(SP)
@6, (SP)
PC,BL $MUL
(SP)+,(SP)e
LAST .PKT(RO)
233
ELOG.PKT+16(R1),04
2ls
R2, (SP)
PC,S
T ERROR
OF
LSLUN,2(SP)
06 ,R3
R3.RO
ICST.ADDR,RO
ELOG.PKT.12(R1), (SP)
(RO),R4

5%
(RO),R4

177760
000000G

VAX-11 Bliss

R1, $SAVES

9177760,R4
R4,(SP).
5
240000, (RO)

040000

11:08:35
11:08:22

R4
0177760,R4
R4 ,LSLUN
63

S615

;

5616

S617

;

5621

5624

;

INDEX,e

S627

;

¢, TEMP UNIT

5628

OFFSET,

S632

;

¢,0FFSET

S630

5633

So 36

;

&, OFFSET

5635
So 30

F1
RD/RXx EXERCISER
RORX INTERRUPT SERVICE

ZRQAM3
vOl.6

000244
000250
000252
000254
000260
000264
000270
000272
000276
000302
000304
000319
000312
000316
000320
000324
000326
000332
000334
000340
000342
000346
000350
000354
000356
000362
000364
000370
000372
00076
0V0400
000404
000406
000410
000412
000416
000420
000424
000426
000430
000434
000440
000446
000452
000454
000456
000462
000466
000472
000474
000476
000500
000502

020327
000102
003747
005000
001162
153700
00001606
116:01
042701
177400
006301
066107
000000
000001
032700
001403
000062
012716
000442
012716
000062
000446
000001
032700
001403
012716 , 000063
000431
012716
000063
000435
032700
000001
001403
012716
000064
000420
012716
000064
000424
032700
000001
001403
012716
000065
000407
012716
000065
000413
006000
103007
012716
000066
010246
004737
000000V
005726
000404
012716
000066
004737
000000V
016637
000002
000000G
000001
112705
000412
005046
116116
0000166
012746
0000006
012746
000002
010600
104417
022626
005726
032705

000001

11-Apr 1984
11 Apr-1984

ROUTINES

64:

VAX-11 Bliss

V4.0 579

DISKSUSERZ2:
[PIWERS JZRQADO.BL2:6

SEQ 0419
Page

188

(55)

OFFSET,«

R3,0102
44
RO

i
:

5643

ELOG.PKT+16(R1),R1

;

5640

APT ,MODE ,RO

0177400,R1
R1
P.AAA(R1),PC
1,RO

8s:

11:08:35
11:08:22

;

Case dispatch

5643

5645

9s:

5647

10$:

;

5649

5651

11$:

5653

12¢:

5655

5657

13%:

5659

14%:

5661

;

5663

15¢:

5665

16$:

5667

;

17s:

18s:
19¢:
20%:

21%:

22%:
23s:

PC.ERR.SOFT.RTNE.APT

MOV

MOVB

MOvB
MOV
MOV
MOV
TRAP

cMP
TST
8I1

(SP).
208
#66,(SP)

:
;

TEMP UNIT, »

2(SP),LSLUN

»,SFT_ERR.PRINTED

#1,R5

228
(SP)
ELOG.PKT+16(R1),(SP)
#0BM109, -(SP)
(SP)

SP,RO
17
(SP)Y+ ,(SP).
(SF ).
21.R5

5667

5671

PC,ERR
. SOFT . RTNE

o2,

5669

INDEX,

5674
5675
5624
S6°8

SP,s

¢,oFT

ERR,PRINTED

5624

5680

G1
ZRQAM3X
VOl.e

000506
000510
000514
000520
000522
000524
000526
000530
000534
000536
000540
000542
000544
000550
000556
000560
000562
000570
000572
000600
000602

000606
000612
000614
000616
000620
000624
000626

000 30
000634
000636
000642
000644

;:
:

001007

RD/RY

EXERCISER

RORX

INTERRUPT

013700
026160

000000G
000010G 000014

001022
026160

000006G 000012

103016
126327
001012
012746
012746
010600
104414
010216

004737
022626
005202
020227
003002
000137
005726
000207

244
0000006

25$:

000001

264
:

027034°

CMP

MOV
JSR
TST

R2,

ROR

27%:

8cC

274

CHP
8LO
8NE
CMP
BHIS
CcMP8
BNE

ELOG.PKT+10(R1),14(R0O)

P.AAA:
7s:

.WORD
.WORD
.WORD
.WORD
.WORD

V4,0 579

SEQ 0420
Page 189
(55)

5682

INDEX,
s

5684

H
H
H

5619
5614
S688

5683

H
H

5690
5691

$692

569S

;

SP,

;

INDEX,
s

$696

(SP)+,(SP)e

:
:

INDEX

S694
S611

R2,014
284
14

JMP
TS7
RTS

.
Bl'ss

SP,RO
14

R2,(SP)
PC,EMS
EL

cMP

.PSECT

000000

000000
000022
000044
000066
000110

264
27
ELOG.PKT+6(R1),12(R0O)
278
1(R3),0
274

INC

$COOES
Routine Size:
211 words,
Rout ine Base:
Maximum stack depth per invocation:
12 words

000000
000002
000004
000006
000010

IPKT
. ADOR,RO

JSR
CHMP

DISKSUSERZ: [POWFRS JZRQADO.BL2:6

278

8GT
28s$:

(SP)

(SP).

B8R

VAX

(SP)

PC,EMS
EL

MOV
MOV
MOV
TRAP
MOV

0000006

11:08:35
11:08:22

SP,.RO
14
(SP)+,(SP).

MOV

0000006
000001

000014

244
QCRLF,

MOV
MOV
MOV
TRAP

0000006
000001

103405

SERVICE ROUTINES

BNE

012746
012746
010600
104414
022626
010246
004737
005726
000433
006004

103031

11 Apr 1984
11 Apr-1984

INDEX,s

(SP).

5599

27022

$PLITS,

44
66

110

RO,

%As§
8s

{10s)
(128)
(148)
(16%)

Table for SCAN.ERRLOG+0272

5640

ZRQANS
v01.6
H

5702

S703

5705

RD/RX EXERCISER
RORX
INTERRUPT

:
H

S706
5707

1
1

S709

H
H
:
H
:
:
H
:
H
:
3
:

5710
S711
S712
5713
5714
5715
S716
5717
5718
5719
5720
5721

:
H
H
:
:

:
3
:

:
:
:
H

5708

5722
$723
S724
5725
2326
27

5728
g;gg

5731
5732
5733
5734

1
1
1
1
2
2
2
2
2
2
2
2

2
2
2
2
2
2

2
2

3
2

5738

:
H
:

5737

5739
g;zg

:
:
;
:
:
H
:
:
H
H

5742
5743
5744
5745
5746
5747
5748
5749
5750
g;gl

5754

H
:

e
$75%

11:08:22

DISKS$USER2: [POWERS ]JZRQADO.BL2;6

00e 190

IMPLICIT

H
H
!

INPUTS:

IPKT

ADDR

ADDRESS

MSCP PACKET

ME SSAGE
ADDRESS OF THE

ICST_ADDR

CONTAINING ERROR

LOG

INTERRUPTING CONTROLLER'S CST

begin

local
index : signed word initial ( 1),
SAVE _ADDR : ref block [EP_LEN, word] field (EP _FIELDS),
SRC _ADDR,
OST_ADDR,
TEMP_UNIT,
SFT_ERR_PRINTED : byte initial (Lyte (FALSE)),
PACKET _LEN : word;
!
!
!

FIND AN EMPTY SLOT

incr COUNT

IN THE ERROR-LOG PACKET SAVE AREA

from O to EP_CNT

if ELOG PKT [.COUNT,
then
begin
index - ,COUNT;

1 do

EL CONTENTS) egql EMPTY

exitloop:
end;
if

.index

then

novalue

Apr-1984

5EQ

THE RDRX

2
2

THIS ROUTINE HANDLES ALL DATAGRAM (ERROR LOG) MESSAGES RECEIVED FROM

2
2
2
2
2
2
2
2
2
2

ROUTINES

VAX-11 Bliss 16 V4.0 579

'
!

2
2
3
3

5735
S$S736

GLOBAL routine DATAGM

:
;

SERVICE

11 Apr-1984 11:08:35

!
!
H

SAVE

index

lss

IF EMPTY

SAVE

IF NO SLOT FOUND,

SLOT FOUND

INDEX

INTO

THE SAVE AREA

= EP_CNT;

SE LAST SPARE SLOT

THE PACKET CONTENTS

SAVE _ADDR

= ELOG_PKT

(.index

¢ EP LEN o 2)s

SAVE _ADDR [EL _CONTENTS ] = FULL;
SAVE _ADDR [EL _CNTR] = ,ICTLR;
SRC_ADDR = _IPKT ADDR + 6;
OST_ADDR = ,SAVE _ADDR + 2;

PACKET LEN
if

((.IPKT ADDR

_PACKET_LEN gtru EP LEN

then

[MSGLEN]
1

7 2)

ADDRESS OF

!
!
!
!

MARK IT FULL
OWNERSHIP
SETUP COPY ADDRESSES

LENGTH OF

THE

SAVE AREA

ERROR LOG

INCLUDING ENVELOPE

(56)

Il
ZRQAM3

RO/RX EXERCISER
RORX INTERRUPT SERVICE

$755

5756

5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
S774
5775
5776
5777
5778
5779
5780
5781
5782
5783
5784
5785
5786
5787
S788
5789
5790

5791
5792
5793
5794
5795

5796

5797
5798
5799
5800
5801
5802
5803
5804
5805
5806
5807

LLODLLLLLLLDLLLLLLDLOLVNUVNVNLNDLLLDLLLDUWWWWUWWWNIWNNNMDNIWNWWWDNDN

vOo1.6

PACKET _LEN

incr

COUNT

from

ROUTINES

EP LEN

begin

11-Apr-1984
11 Apr-1984

11:08:35
11:08:22

VAX-11 Bliss-16 v4,0 579
DISKSUSER?Z: [POWERS 1ZRQADO.BL2;: 6

.PACKET

ADJUST

*
!
!

COPY A WORD
UPDATE ADORESS POINTERS

LENGTH,

SEQ 0422
Page

191
(56)

T0OO LONG

LEN do

.DST_ADDR = , . SRC ADDR;
SRC_ADDR =+ ,SRC ADDR + 2;
DST ADDR = .DST ADDR + 2;

end;

! CHECK IF THE CORRESPONDING RESPONSE HAS ALREADY BEEN RECEIVED
’

(.SAVE_ADDR
( .SAVE _ADDR

then

[EL CRN_LO)
[EL _CRN HI)

eql
eql

.LAST_PKT
.LAST PKT

[.ICTLR,
[.ICTLR,

LAST_CRN_LO])
LAST_CRN_HI))

and

LOG REFERS
if LAST
then
if

PKT

.SAVE

then

[ ICTLR,

ADDR

begin
SOFT ERROR
TEMP _UNIT

HRD_NOT_OCCURED

(. index);

]

_LSLUN;

UPDATE SOFT ERROR COUNT
SAVE UNIT NUMBER AS KNOWN TO DRS

[EL _FORMAT]

eql

THE LAST RESPONSE

incr OFFSET
if

LAST_MHRD_ERR]

from (O

(.ICST_ADDR
(.ICST ADDR

then

RECEIVED

SOFT ERROR HAD OCCURED

lequ 4

UN)

[ .OFFSET
[ .OFFSET

to ((UNITS_PER_CNTR
+
.

OF DATA,
OF DATA,

& UNIT_SIZE

D_DISK_NUM] eql .SAVE _ADOR
D_PRES] eql PRESENT)

OF UN) by UNIT_SIZE do

[EL _OK_NUM])

and

begin

LSLUN = _ICST_ADDR
exitloop;

(.OFFSET

OF DATA,

D UNIT];

CORRECT

UNIT

NUMBER FOR ERROR MESSAGE

CONTROLLER ERROR

HOST

end;

case

.SAVE _ADDR
set

(0]

(EL _FORMAT)

to 4 of

.APT MODE

then

else

from O

1§

ERR

SOFT_RTNE

ERR _SOFT_RTNE

APT

(SO,

.index)

(50):

_APT _MODE

then

else

ERR_SOFT_RTNE

APT

ERR

(51);

SOFT RTNF

(S1,

. 'ndev)

MEMORY

ACCESS

ERROR

J1
ZRQAM3

RDO/RX EXERCISER
RDRX INTERRUPT SERVICE

5808
5809
5810
5811
5812
5813
5814
5815
5816
5817
5818
5819
5820
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855

027670

HUORWWENWWAEHNDNVDDEWWWEEEWRDDUWWWDLLLLLDLLDLLLLLLDLLLLDLLLLD

B¢

vV01.6

11-Apr-1984
11 Apr 1984

ROUTINES

[2]

1§

tes;

RTNE _APT

ERR SOFT _RTNE

(52,

(54,

not

PRINTF

(DBM109,

[EL

SMALL DISK ERROR

(54);

TRUE;

.SAVE _ADDR

!
.index)

end

else

SDOI ERROR

.index)

_TEMP_UNIT;

SFT_ERR_PRINTED

(53);

ERR_SOFT_RTNE
_APT

ERR_SOFT_RTINE

DISK TRANSFER ERROR

(S2);

ERR_SOFT_RT
_APT
NE (53,
ERR _SOFT _RTNE

SEQ 0423
Page 192
(56)

.index)

_APT_MODE

then

else

LSLUN

ERR SOFT

.APT_MODE

then

else

{a)

VAX-11 Blies-16 v4,0-579
DISK$USERZ2: [POWERS JZRQADO.BL2;6

.APT_MODE

then

else

(3)

11:08:35
11:08:22

FORMAT]));

RESTORE

SOFT

UNIT NUMBER

ERROR LOG FORMAT UNKNOWN

EXTRA

CARRIEGE -RETURN/L INE -FEED

PACKET

CORRESPONDING

ERRNOR

PRINTOUT

OCCURED

(.SFT_ERR_PRINTED)

then

PRINTB

EMS_EL

(CRLF);

(.index);

end

CONTENTS
RESPONSE

RECEIVED

else
if

(_SAVE _ADDR

[EL _CRN_HI)

((.SAVE _ADDR (EL _CRN _HI])
(.SAVE _ADDR ([EL _CRN_LO]
then

lssu

.LAST _PKT

[,ICTLR,

LAST_CRN_HI))

eql .LAST_PKT [,.ICTLR, LAST_CRN_HI]1) and
lssu .LAST PKT {,ICTLR, LAST CRN LOI))

begin
PRINTB (CRLF);
EMS EL (. index);

!
!
!

end;

LOG REFERS TO SOME PREVIOUS RESPONSE
CARRIAGE -RETURN/L INE -FEED
PRINT PACKET CONTENTS

end;

.SBTTL
.PSECT

DATAGM RDRX
$CODES$,
RO

INTERRUPT

SERVICE

ROUTINES

I<'|
ZRQAMZX
vOl.6
000000
000004
000010
000012
000014
000016
000022
000026
000030
000034
000036
000049
000042
000044
000050
000052
000054
000056
000062
000064
000070
000074
000100
000102
000106
000112
000116
000122
000124
000130
000132
000136
000140
000144
000150
000154
000160
000162
000166
000170
000172
000174
000176
000200
000202
000206
000212
000216
000220
000226
000230
000234
000242

RD/RX EXERCISER
RORX INTERRUPT SERVICE

004137
012704
105046
005001
010146
012746
004737
022626

105760

001002
010104
000405
005201
020127
003761
005704
002002
012704
010446
012746
004737
062700
010001
111761
113711
013700
012705
060005
012703
060103
0160:6
005216
012746
004737
062700
020027
101402
012700
005002
000401
012523
005202
020200
003774
013716
012746
004737
005726
026160
001402
000137
026160
001402

ROUTINES

: JSR
DATAGM:

0000006

1727777

MOV

1%:

000102
0000006

2%:

000013

000014

000102
0000006
0000006

MOV
MOV

TS18
BNE
MOV
BR

INC
cMP
BLE
TST
B8GE

MOV
MOV
MOV

JSR

ADD
MOV
MOVB
MOVB
MOV
MOV
ADD
MOV
ADD
MOV

000001
000104
0000006
000006
000002

000006

INC

000002
0000006
000002
000040

MOV

JSR

ADD

8LOS

000040

Ss:
6$:
7¢:

000104
000006
000000G

030532’
000010

CLRB
CLR

JSR
CHP

0000016

000006

11
11

MOV

CLR
B8R

MOV

INC

CHP
BLE

MOV
MOV

000120

000122°

8s$:

JSR
TST
cMP
BEQ
JMP
CMP
8eQ

Apr-1984
Apr 1984

11:08:35
11:08:22

R1,$SAVES
0-1,R4

-(SP)

R1
R1, -(SP)
8102, -(SP)
PC.BL$MUL

VAX-11

Bliss-16

V4,0-579

DISKSUSERZ: [POWERS JZRQADO.BL2;:6
H

SEQ 0424
Page 193

(56)

S702

;
:
s

+,INDEX
SFT.ERR,.PRINTED
COUNT

;

COUNT, INDEX

COUNT

;

INDEX

5738

;

+,INDEX

5740

:
;:

¢,SAVE.ADDR
«,%(SAVE.ADDR)

5747

:
;
:
:

*,SRC.ADDR
&,SRC.ADDR
¢,DST.ADDR
SAVE.ADDR,DST.ADDR

;

PACKET.LEN,»

COUNT,»

5714

5729
5731

(SP)+,(SP)+
ELOG.PKT+1(RO)

24
R1,R4
3
R1
R1,213
18
R4
44

014 ,R4
R4, -(SP)
9102, (SP)
PC,BL $MUL

9ELOG.PKT,RO
RO,R1

(PC),1(R1)
ICTLR,(R1)
IPKT
. ADDR,RO

26 ,RS
RO.RS
22 .,R3
R1.R3

6(RO),(SP)
(SP)
92, -(SP)

PC,BLSDIV
@2,R0
RO, 040

040,R0O
R2
74

(R5)+,(R3).

;

;
:

COUNT,»

INDEX,»

*,SAVE.ADDR

S748
5749

5750
5751

5753

»,PACKET.LEN

COUNT

5757

SRC.ADDR,DST_ADDR

5752

COUNT

;: COUNT ,PACKET.LEN

(SF).
6(R1),LAST
. PKT+2(RO)

¢(SAVE.ADDR),»

10(R1),LAST.PKT+4(RO)

¢(SAVE.ADDR),»

5746

;

8¢
30¢

5729

1ICTLR, (SP)

#6, (SP)
PC,BLSMUL

5734

5733

5755

S7S

S768

509

L1
RD/RX EXERCISER
RORX INTERRUPT SERVICE

ZRQAM3
vol.6

000244
000250
000254
000256
000260
000264
000270
000272
000274
000300
000304
000310
000312
000316
000322
000324
000330
000332
000334
000340
000342
000344
000346
000352
000356

000360
000364
000370

000372
000374
000400
000402
000406

000412
000414
000420
000422
000426
000430
000434
000436
000442
000444
000450
000452
000456
00N460
000464
000466
000472
000474
000500
000502

000137
005760
001153
005003
156103
020327
101135

010416
004737
013705
012702
010200
063700
016146
111046
042716
022626
001012
032710

001407
011046
000316
042716
012637
000405

062702
020227
003747
005000
153700
006303
066307
032700
001403
012716
00C<442
012716
000446
032700
001493
012716
000431
012716
000435
032700
001403
012716
000420
012716
000424
032700
001403
012716

030540
000116

ROUTINES

9s:

000076
000012

JMP
TST
BNE

CLR
BISB
CHP

000016
000004

000000V
000000G
000006

11-Apr-1984
11 Apr 1984

8HI
MOV
JSR

10s$:

177760
040000

MOV
MOV
MOV
ADD
MOV
MOvVB

177760

000024
000102
001162’
000012’
000001

11¢:

12%:

000062

15¢:

000001

16%:

000063
000063

17¢:

000001

18%:

000064
19%:

000001

20%:

000065

B8R

274
R4,(SP)
PC.SOFT_ERROR
LSLUN,RS
46 ,R2
R2,RO
ICST.ADDR,RO

12(R1), -(SP)
(RO), -(SP)

B8R

»
INDEX,

194

(56)

¢, TEMP

5776

5779
UNIT

« ,0FFSET
s+
OFFSET,

5780
5782
5784

«(SAVE ,ADDR), »

5785
5788

(SP)+,LSLUN

CLR

BIY
8EQ

+
«(SAVE.ADDR),

(RO), -(SP)
(SP)

10¢
RO
APT ,MODE ,RO

8IsB

Page

5773

(SP)+,(SP).
11$

124
924 ,R2
R2, 8102

CMP
BLE

DISK$USERZ:
[ POWERS JZRQADO.BL2;:6

SEQ _0425

#177760,(SP)

ADD

R3
P.AAB(R3),PC
21,RO

15%
062,(SP)

¢, 0FFSET

OFFSET,»

5787
5782

5796

Case dispatch

5792
5796

5798
5800

MOV

B8R
BIT
BEQ

5802

MOV

5804

MOV

5806

B8R

B8R
8Ir
8EQ

MOV

000064

RS, 04

2177760,(SP)

MOV

000062

16(R1),R3

SWAB
8IC

ASL
ADD

14%:

240000, (RO)
11¢

MOV

000000G

VAX-11 Bliss-16 v4,0-579

31
LAST .PKT(RO)
28

8IC
CHP
BNE
BIT
B8EQ

MOV

11:08:35
11:08:22

MOV

BR
BIT
B8EQ

MOv

5808

464 ,(SP)

23
464 ,(SP)
254

5810
5812

#1,RO

5814

21
#65,(SP)

5816

M1
RD/RX EXERCISER
RORX INTERRUPT SERVICE

ZRQAM3
vOl1.6

000506
000510
000514
000516
000520
000522
000526
000530
000534
000536
000540
000544
000550
000554
000562
000564
000566
000572
000576
000600
000602
000604
000612
000614
000620
000624
000626
000630

000632
000634
000640

000642
000650
000652
000660
000662
000670
000672
000676
000702
000704
000706
000710
000714
000716

000722

;

000407
012716
000413
006000

103007

012716
010446
004737
005726
000404

012716
004737
010537
112766
000410
010316
012746
012746
010600
104417
022626
032766
001007

012716
012746
010600
104414
005726
010416
004737
000426
026160
103410
026160
001016
026160
103012
012716
012746
010600
104414
010416
004737
005726
062706
000207

Routine Size:

Maximum stack

000012

000065

ROUTINES

21s:
22$:

000066
000000V

000066

24:

0000006
000001
000006

26%:

000000V

25¢:

27%:

0000006
000002

000001

000006

284
:

0000006
000001

29¢%:

0000006

000010

000122

000010

000122

000006

000120’

gos:

1s:

0000006
000001

32$:

0000006

000010

33¢:

234 words,

depth per

11-Apr-1984
11-Apr-1984
B8R

MOV

B8R
ROR

8CcC

MOV
MOV
JSR
TST
B8R

MOV

JSR
MOV
MOVB
B8R
MOV
MOV
MOV
MOV
TRAP

cMP
BIY
BNE

MOV
MOV
MOV
TRAP
TST
MOV
JSR

8R
CMP
8Lo
cMpP
BNE
CMP
BHIS
MOV
MOV
MOV
TRAP
MOV

JSR
TST

ADD
RTS

$CODES
Rout ine Base:
14 words

invocation:

.PSECT

11:08:35
11:08:22

23
065,(SP)
25
RO
244
#66,(SP)
R4, -(SP)
PC,ERR.SOFT
. RTNE.APT

(SP)»

264

#66,(SP)
PC.ERR.SOFT.RTNE
RS,LSLUN
21,6(SP)

28%
R3,(SP)

VAX-11 Bliss-16 v4,0-579

DISK$USERZ2: [POWERS JZRQADO.BL2;6H
H

;

5820

INDEX,
s

5824

TEMP.UNIT,s
#,SFT_ERR.PRINTED

00BM109, -(SP)
82,-(SP)

SP,s

91,6(SP)
29$
QCRLF ,(SP)

#,SFT.ERR.PRINTED

SP,.RO
14
(SP)+
R4,(SP)
PC,EMS
. EL
334
%O(Rl).LAST.PKT»4(RO)
24

SP,»

INDEX,s

e1,-(SP)

10(R1),LAST.PKT+4(RO)

334
6(R1),LAST PKT+2(RO)
33%

5768

¢(SAVE.ADDR),s

5845

#(SAVE.ADDR),
s

5846

*(SAVE.ADOR),
s

5847

SP,RO
14
R4,(SP)

SP,*

INDEX,e

(5P).

;

#10,SP
PC

27670

$PLITS,

RO,

5840

PC,.EMS
. EL

5835

5838

#CRLF ,(SP)

01, -(SP)

5828
5829
5776

5833

SP.RO
17
(SP)+,(SP).

5822

5820

;
;
:

(56)

5818

;

SEQ 0426
Page 195

5851

5852
5850
5702

N1
ZRQAM3

RD/RX EXERCISER
RORX INTERRUPT SERVICE

vVol.6

000012
000014
000016
000020
000022

H
:
H

S856
5857
5858

000000
000022
000044
000066
000110

1
1
1

11-Apr-1984
11 Apr-1984

ROUTINES

P.AAB:

13%:

.WORD
.WORD
.WORD
.WORD
.WORD

11:08:35
11:08:22

VAX-11 Bliss-16 v4,0-579
DISK$
[POWERS
USER2
1ZRQADO.BL2;:6
:

CASE Table for DATAGM+0402
22

66
110

(14%)
{16%]
(18¢]
r20.

[22%])

SEQ 0427
Page

196

(56)

5792

R
ZRQAME

RD/Rx EXERCISER

vOl.6

:
H
H
H
:
3
H

H
H
H
:

RORX

5859

SERVICE ROUTINES

GLOBAL routine SOFT _ERROR ( index)

5861
5862
S863
5864
5865
2366
67

1
1
1
|
1
1
1

e
H
!
H
H
!
'-

5869
587
5871
587

2
e
2
2

5860

S868

5873

:
:
:
:
:
:

5878
gg;9
o
5881
5882
ggg}

:
:
H
:
H

3
:
:
:

INTERRUPT

11-Apr-1984

S874
5875
5876
sS877?

INPUTS:
ICST ADDR

1984

SEQ 0428

VAX-11 Blies-16 Vv4,0-579

11:08:22

Page

DISKSUSERZ: (POWERS JZRQADO.BL2;:6

197

(57)

novalue »

THIS ROUTINE UPDATES THE SOFT ERROR COUNT
ERROR LOG MESSAGE RECEIVED
IMPLICIT

Apr

11:08:35

ADDRESS OF

THE

IN THE

TALLY

TABLE FOR EACH

INTERRUPTING CONTROLLER'S CST

begin
local
FOUND:

byte

SOFT_OCCURED

2
2
2
2

nitial (byte (FALSE)),
:

byte

UNIT: word,
ERROR_CODE : byte,
ERROR_SUB : word,
RETRIES : word,

initial

(byte (FALSE)),

2
2
2
2
2
g

ELOG_ADDR = ELOG_PKT + (,index ¢ EP _LEN & 2);
ERROR_CODE = .ELOG_ADDR [EL _COOE);
ERROR _SUB = .ELOG_ADDR (EL _SUBCODE;

!
*

ADDR OF ERROR PvT
ERROR CODE
ERROR SUBCODE

5885
5886
5887
gggg

2
3
¢
g

1F (BIT_TST (SWP_FLAGS, SWF _TRY)) and
( .ELOG_ADDR [EL _FORMAT] eql 2)
then
RETRIES = .ELOG_ADDR [EL RETRY)

COUNT EACH RETRY

gggo

IGNORE RETRIES

2
2
2
2
g

IN CASE OF

H
:

5892
5893
5894
5895
gggg

5898

if (.ICST_ADDR (.OFFSET

DISK

5900

then

:
.
:

i
H

H
:
3
:

]

5899

5901
5902

5903

5904

incr OFFSET

from (0

begin
FOUND

UNIT

« OF UN)

(.ICST_ADOR (.OFFSET

5910

if .RETRIES eql O
then
RETRIES =« 1;

3
3

2
2
2
=2

S911

RETRIES

5905
5906
$907
5908

5909

TALLY _ADDR : ref block [TALLY_LEN, word) field (T _FIELDS),
ELOG_ADDR : ref block (EP_LEN, word) field (EP _FIELDS);

to ((UNITS_PER CNTR

+ OF _DATA,

+ OF DATA,

TRUE;

_ICST_ADDR [.OFFSET

.«

UNIT SIZE

D_PRES) eql PRESENT) and

D _DISK NUM) eql

DATA,

D_UNIT]};,;

UN) by

.ELOG_ADDR (EL _DK NUM])

" .1

A B\
G

_ oo

TO UNIT NO.

! PTSK S INIT NO.

exitloop:

end;

H
!

if (_ELOG_ADDR (EL _SUCCESS])) or
(.ELOG_ADDR [EL CONTINUE
)
then
SOFT _OCCURED

TRUE;

SCr
T ERROR F .00

Ce
ZRQAM3

5954

5955
5956
5957
5958
5959
5960
5961
5962
5963

5964

Apr

1984

11:08:22

VAX-11 Bliss 16 V4,0 579

DISKS$USER?2: [POWERS )ZRQADO.BL2 ;6

FOUND

SEOPS:EQIQB
(S7)

IF UNIT

FOUND

ADDR OF

TALLY

FOR

begin

TALLY _ADDR
if

.SOFT

then

TALLY

(.UNIT

TALLY_LEN ¢

OCCURED

selectoneu

TBL

SOF
T ERRORRS

.ERROR_CODE of

set

[ST

MFE):

TALLY _ADDR ([ERR_SFT SEK)

(ST DAT]}):

_TALLY_ADDR

(ERR_SFT SEK]

.RETRIES;'

.ERROR_SUB eql 2

then
.
TALLY _ADDR

SOFT

MEDIA FORMAT

SOFT DATA

(ERR_SFT _SEK]

_TALLY_ADDR

[ERR_SFT_SEK]

.RETRIES

(ERR_SFT DAT]

_TALLY_ADDR

[ERR SFT_DAT]

.RETRIES;

else

TALLY _ADDR

e (0 (0 O

0 (o L (00 (0 (o (o (0 (M (0 (0 L U (PO

then

(b U (8 (8 (8 L (L
8 (U (N L L
O G O
N G

5935
5936
5937
5938
5939
5940
5941
5942
5943
5944
5945
5946
5947
5948
5949
5950
5951
5952
5953

O O O U

5934

OV U O O O U U G O U U

G0 O
¢
VO OF
S0
69
OF
G0
OF
G0
VI
Vo
G¢
VO G
V0
G
G2
G0
G0
G0
G0
00
G
G5
BF
V0
G0
G
OF
G0
Vs
B¢
G0
G2
B
@
B9
Ve
G5
Ve
P
VL
T
B
B9
Ve
W6
B
B
ST
BE

5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933

11 Apr 1984 11:08:35

RO/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

vol.6

{ST_HST):

TALLY _ADDR

{ST_CNT]:

CERR_TBL

[ERR_SFT _HST)

(.ICTLR,

_TALL~ _ADDR

C_ERR SFT)

[ERR _SFT_KWST)

_C ERR_TBL

[.ICTLR,

_RETRIES;!

C_ERR SFT]

SOFT-mOST

.RETRIES:
!

{ST_ORV]):

_ERROR_SUB eql 3

then
!
TALLY _ADDR

ACCESS

SOFT-CONTROLLER

* SOFT DRIVE

[ERR_SFT

SEK)])

_TALLY_ADOR

(ERR_SFT _SEK)

.RETRIES

[ERR_SFT DRV]

_TALLY_ADDR

{ERR_SFT DRV)

.RETRIES;

else

TALLY _ADDR
es

else
if

(.ELOG_ADDR

then

selectoneu
set

(EL _CRN_LO)

[EL

eal

CRN_HI] eql ©)

ondg

.ERROR_CODE of

(ST _MFE):

TALLY _ADDR

(ST_DAT]:

[ERR HRD

.ERROR_SUB eql

SEK)

_TALLY_ADDR

[ERR_MRD _SEK]

~ARD MEDIA FORMAT

HARD -DATA

MARD MOST

th.nYALLv_ADDR [ERR _HRD _SEK] » _TALLY_ADDR [ERR_HRD SEK] + 1

d“mu Y ADDR [ERR HRD _DAT] = _TALLY_ADDR (ERR_MRD DAT) . 1;
{ST_HST):

TALLY _ADDR

[ST_CNT):

C_ERR

{ST DRV]):

TBL

[ERR_HRD HST)

{.ICTLR,

_ERROR_SUB

then

TALLY

ADDR

eal

,TALLY_ADDR

C_ERR HRD)

=«

.C ERR

[ERR_MRD _MST)

TBL

[.ICTLR,

C ERR MRD]

[ERR

1
!

HRD

Sfic]

_TALLY

ADDR

[ERR

HWRD

SEK]

ACCESS

HARD CONTROLL ER
HARD

DRIMVE

Do
RDO/RX EXERCISER
RORX INTERRUPT SERVICE

ROUTINES

elsL J

TALLY

else

156104

000402
012704
005704
001002
012704

ADDR

else

[ERR_MRD DRV]

C_ERR_TBL

(.ICTLR,

C_ERR_SFT])

.C ERR_TBL

(.ICTLR,

C_ERR SFT]

C_ERR_TBL

[.ICTLR,

C_ERR_HRD]

.C ERR_TBL

(.ICTLR,

C ERR_MRD]

PC.BLSMUL

MOV

RO,R1

8IC
CLRB
8IS

#177740,RO
R3
RO,R3

MOV
ASR
ASR
ASR

174000

FOUND

SOF T.0CCURED
INDEX,o

QELO0G.PKT
RO

+,ELOG.ADDR

20(R1),R0O

20(R1),R5

RS
RS
RS
RS
RS
0174000,R5

SWP ,FLAGS,RO

¢(ELOG.ADDR),»

MOVB

0000006
077777
100000

RTNE

000002

1$
16(R1),02
13

S51(R1),R4
28
3

¢1,Ra4

SOFT

ERROR

5809

5881

5882

ERROR, CODE

. CODE
+ ,ERROR

s(ELOG.ADDR) ,ERROR.SUB
ERRO
. SUB
R
ERROR. SUB
ERRO
., SUB
R
ERRO
., SUB
R
ERROR, SUB
+ ,ERROR,
SUB

5883

5885

@77777.RO
RO, @-100000

000001

UNIT NOT FOUND

5859

-(SP)
-(SP)
-(SP)
24(SP), -(SP)

JSR

ADD

000020

R1, $SAVES

MOV
MOV

000020
177740

000001

SERVICE ROUTINES

000024
000102
0000006
0000006

INTERRUPT

SOF T .ERROR:
:
JSR
TST
CLRB
CLRB

SOF T.ERROR RDRX
$CO0Es,
RO

0000006

000051

199

(57)

end;

000016

Page

.SOFT OCCURED

then

016646
012746
004737
062700
010001
116100
042700
105003
050003
016105
006205
006205
006205
006205
006205
042705
013700
042700
020027
001010
126127
001004
005004

,TALLY

SEQ 0430

16 v4,0 579

DISK$
: [POWERS
USER?
]ZRGADO .BL2;:
Z
6

005746
105046
105046

=«

VAX-11 Bliss

000004
000006
000010
000012

DRV]

11:08:35
11:08:22

end

.SBTTL
.PSEC!
004137

(ERR_MRD

tes;

030614
000000

ADDR

Apr 1984
Apr-1984

596S
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978

Lad VIS L SISVISRV
SR X7 X7 A7 J7 ]

vol.6

11
11

ZRQAM3

¢(ELOG.ADDR),
»

5880

RETRIES

5888

s RETRIES

RETRIES

5885
5890
5892

¢ RETRIES

5834

«(ELOG.ADDR),RETRIES

E2
ZRQAM3
v0l.6
000144
000150
000152
000156
000162
000164
000170
000172
000176
000200
000202
000219
000212
000214
000220
000224
000226
000232
000236
000240
000246
000254
000256
000262
000266
000272
00276
000302

000310

000312
000316
000320
000324
000326
000332
000334
000340
000342
000344
000346
000350
000352
000354
000356
000362
000364
000370
000372
000376
000400
000402
000406
000410

RD/RX EXERCISER
RORX INTERRUPT SERVICE

012702
010200
063700
032710
001421
016146
111046
042716
022626
001012
112766
011046
000316
042716
012666
000405
062702
020227
003744
112766
032766
001002
000137
016616
012746
004737
062700
032766
001503
120327
001462
120327
001022
012702
060002
020527
001005
005001
151201
060401
110112
000543
005001
156201
060401
110162
000534
120327
001007
005001

156001
060401
110160

000006

ROUTINES

3s:
4%

000076
040000

000012

MOV
MOV
ADD

26 ,R2
R2,RO

8IT
BEQ

ngOOO.(RO)
$

MOV
MOVB

177760
000001

11
11

8IC
BNE

000006

MOVB

SWAB

177760
000010

Apr-1984
Apr-1984

ICST.ADDR,RO

12(R1), -(SP)
(RO), -(SP)

11:08:35
11:08:22

VAX

]
11 Blises

v4,0 579

DISKS$USERZ: [POWERS JZRGADN .BL2;:6

SEQ 0431
Page 00

(57)

:
;

»,0FFSET
OFFSET,»

5896
5898

*(ELOG.ADDR),*

5899

¢,FOUND

@177760,(SP)

gSP)O.(SP)o
$
@1,6(SP)

(RO), -(SP)
(SP)
2177760,(SP)
(SP).+,10(SP)
64

$902
$903

&¢,UNIT

:
s

*,0OFFSET
OFFSET,
e

5896

¢,SOFT.0CCURED

5910

¢,FOUND

$912

10(SP),(SP)

UNIT,

5915

OTALLY,RO
1,6(SP)

¢,SOFT.0CCJRED

5917

R3, 05

ERROR.CODE,
»

5922

000010

;

ERROR.CODE,

5924

000052

:
:
:

TALLY ADOR, «
ERROR.SUB,
»

000024
000102

000001
000001

S5$:

000004
000006

64:

000010
000066
000000G
0000006
000001
000006

031502’

024 ,R2
R2,#102
44
01,4(SP)
01,6(SP)
78

;

5901

224

966, -(SP)
PC,BLSMUL

14$

000005

000002

:
1

000001

8¢:

1(R2),R1

R4 ,R1
R1,1(R2)

000001

000011

2ls

9%:

R3,011

104

000055

81Is8
MOVB

RETRIES,»

5924
5928
RETRIES,

ERROR.CODE,

SS5(R0O),R1

R4 ,R1
R1,55(RO)

5924

5926

H
H
:

5926

o(TALLY.ADDR),

RETRIES,

. ADDR)
¢,s(TALLY

5919

59390

001010

020527

10$:

B8R
CMPB
BNE

2l
R3,012
11¢

CLR

R2
R1

MOVB

R4 ,R1
R1,C.ERR.TBL+1{R2)

000104

MOV
ASL

0000016

8Is8
ADD

0000016

000013

11$:

000003
000052

12¢:

13$:

000054
000006

ERROR.CODE,
«

RETRIES,»

ERROR.CODE,

;

ERROR.SUB,

14§

000010
000005
000010

C.ERR.TBL+1(R2),R1

21
R3,013
2l
RS, 03

S2(R0O),R1

«(TALLY.ADDR),
*

000002

000001

15¢:

000011

16$:

s,+(TALLY.ADDR)

S4(RO),R1

#(TALLY.ADDR)
,»

R4 ,R1
R1,54(R0O)
218

6(R1)
214
10(R1)
2ls
R3,45
194

153
(R4)
21
1(R4)
214

R3, 011

000003

5919

5935

5937

5935
5939

«(ELOG.ADDR)

5919
5943

¢(ELOG.ADCR)

5944

: ERROR.CODE,¢

5949

5951

;

ERROR.COOE,
«

5953

ERROR.SUB,¢

5951

ERROR.CODE
,»

5951
5955
5946
5957

5953

ERROR.CODE
, »

5946
5959

ERROR.CODE,

5946
5962

ERROR.SuB,
¢

17¢:

ICTLR,R2

0000006
000013

5919
5932

s, o(TALLY.ADOR)

«(TALLY.ADDR)

000104-

201

(57)

RETRIES,
»

000051
000012

Page

RETRIES,
»

R3,010
163
046 R4
RO,R4

000046

SEQ 0432

ICTLR,R2

R4 ,R1
R1,52(R0O)

000052
000054

cMPB

]

000012

DISK$USERZ:
[POWERS }ZRQADO.BL2;:6

000522
120327
001012
013702
006302
005001
156201
060401
110162
000505
120327
001102
020527
001007
005001
156001
060401
110160
000470
005001
156001
060401
110160
000461
005761
001056
005761
001053
120327
001443
120327
001013
012704
060004
020527
001002
105214
000435
105264
000432
120327
001003
105260
000424
120327
001006
013702
006302
105262
000413
120327

VAX-11 Bliss-16 v4,0-579

000414
000416
000422
000424
000430
000432
000434
000440
000442
000446
000450
000454
000456
000462
000464
000466
000472
000474
000500
000502
000504
000510
000512
000516
000520
000524
000526
000532
000534
000540
000542
000546
000550
000554
000556
000562
000564
000566
000570
000574
000576
000602
000604
000610
000612
000616
000620
000624
000626
000632
000634
000640
000642

ROUTINES

11:08:35
11:08:22

®e

v0l.6

11-Apr-1984
11-Apr-1984

®o

RD/RX EXERCISER
RDRX INTERRUPT SERVICE

ZRQAM3

C.ERR,TBL(R2)

18s$:

218

R3,013
2l
R5,03

G2
ZRQAM3
vOl.6
000646
000650
000654
000656
000662
000664
000666
000672
000674
000700
000706
000710
000714
000716
000720
000724
;:

RD/RX EXERCISER
RORX INTERRUPT SERVICE

001003
105260
000402
105260
005726
000415
013700
006300
062700
032766
001403
105260
000401
105210
062706
000207

Routine

ROUTINES

000046

19¢:

000050

204
21$:

000104°

22%:

0000006
000001
000004
000001

000012

11-Apr-1984
11 Apr-1984

23s:
248

BNE
INCB
BR
INCB
TST
B8R

20¢

46(RO)
2l

S0(RO)
(SP).
244
ICTLR,RO

MOV
ASL
ADD

RO
9C.ER
TBLR.
,RO
01,4(5P)

BIT
BEQ
INCB
B8R
INCB

234
1(RO)

244

(RO)

ADD
RTS

Size:
235 words,
Rout ine Base:
$CODES$
Maximum stack depth per invocation:
13 words

e12,SP
PC

30614

11:08:35
11:08:22

VAX-11 Bliss-16 v4,0-579
DISK$USE
[POWERS ]ZRQADO.BL2;
RZ2:
:6

¢ TALLY,ADDR)
«(TALLY.ADDR)

+,50F
T .0CCURED

SEQ 0433

Page 202

(57)
5964
5962
5966
5914
5912
5974

5972
5974
5972
5976
5859

He
ZRQAAM3

RDO/RX EXERCISER

vol.6

RORX

INTERRUPT

SERVICE ROUTINES

S979

routine ERR_HRD_RTNE

5981

:
:

5984
5985

1
1

:
:

5980

5982
5983

5986

1
1

begin

local

5987

5989

;
3

S992
5993

2
2

:
:

S99¢
S997

5998

2
2

:
H

5988

$S990
S991

5994
5995

S999

6000

:
H
H
:
:
:

;
H
H

3
:

2
2

6001
6002
6003
6004
6005
6006

2
2
3
2
2
2

6007
6008
28?3

2
2
2

gglé

1
6013

(ERRNUM)

11-Apr-1984

novalue

CUR_PRIORITY

11:08:22

DISKS$USER2: [{POWERS 1ZRQADO.BL2;6

'ERRHRD’'

MACRO CALL

TO DRS OR

TO rAKE

word;

builtin
PC;

GETPRI (CUR_PRIORITY);
SETPRI (PRIOA4);

DON'T ALLOW SOFT_ERROR MESSAGES

FOR NON BAD BLOCK

IF ERRORS

(.ERRNUM

lequ

34)

(.ERRNUM gtru 38) or

( .ERRNUM eql

then

if BIT_TST
then
case

36)

TYPE

ERRORS

37)

(SWP_FLAGS,

.ERRNUM

from

SWF_HRD)
31

TO BE

TREATED NORMALLY

to 45 of

set
(31):

ERRHRD (31,

EGH 30,

EMS_30);

INVALID COMMAND

{32):

ERRHRD (32,

EGH_30,

EMS_30);

COMMAND ABORTED

2
2
2
2
2
2

[33]):

(34):

(35):

MEDIA FORMAT ERROR

(36]:

ERRHRD (36,

EGH_30,

EMS_30);

WRITE PROTECTED

EGH 30,

EMS 30);

COMPARE ERROR

DATA ERROR

H
H
:
H
H
H

6014
6015
6016
6017
6018
ggég

gggé

(37):

ERRHRD (37,

:
H
:

6023
6024
28%2

2
2
g

(38):

[(39]:

ERRHRD (39,

EGH 30,

EMS

30);

HOST BUFFER ACCESS ERROR

gggg

(40]):

ERRHRD (40,

EGH 30,

EMS 30);

CONTROLLER ERROR

gggg

[41]:

ERRHRD (41,

EGH 30,

EMS

DRIVE ERROR

6031

{42]):

ERRHRD

EGH_30,

0);

HOST WRITE COMPARE ERROR

SEQ 0434

VAX-11 Bliss-16 v4.0-579

THIS ROUTINE DECIDES WHETHER TO ISSUE AN
THE SAME EFFECT WITHOUT ISSUING THE CALL

!
'

11 Apr 1984 11:08:35

(42,

30);

TO COME

IN NOW

Page 203
(58)

12
RD/RX EXERCISER
RDORX INTERRUPT SERVICE ROUTINES

6032
6033
6034
6035
6036
6037
6038
6039
6040

6041

6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071

6072
6073
6074
6075
6076

RNV WWWWWNDNVNNNDDNNVWRNRDWRRVWEDBWWWWWWRNDNNDNDDVN

@¢

B¢

O¢

©F

8¢

ZRQAM3
vOl.6

000000

004137

000004
000006
000010

104440

0100C2
012700

else

11-Apr-1984
11-Apr-1984

11:08:35
11:08:22

VAX

11 Bliss-16 V4.0 579

DISK$U
(POWERS
SERZ2:
1ZRQADO.BL2;6

(43}:

ERRHRD

(44):

ERRHRD (44, EGH_30, EMS_30);

OUPLICATE UNIT NUMBER

[45]);

ERRHRD (45, EGH_30, EMS 30);

INVALID END CODE

tes

(43,

EGH_30,

MESSAGE

EMS_30);

FROM

INTERNAL

SEQ 0435
Page

204

(58)

DIAGNOSTICS

begin

tessdincrement

PRINTB

error

(HRD_MSG,

INCREMENT

count

.ERRNUM,

LSLUN,

.PC);

TOTAL ERROR COUNT

ERROR MESSAGE

JUST

DRS

if ERRNUM neq 42
then

begin

PRINTB

(HRD_SUB);

NEXT LINE

EMS ERR ();

end;
if

end;

( .ERRNUM eql

then

if BIT_TST
then

35) or
38)

FOR NON HOST
OF

FOR BAD BLOCK

(SWP_FLAGS,

selectoneu

REST

SWF_BLK)

IF ERRORS

THE

TYPE

TO BE

COMPARE ERRORS

INFORMATION

ERRORS

TREATED NORMALLY

.ERRNUM of

set

else

(35]:

ERRMNRD (35,

[38]):

ERRHRD (38, EGH_30, EMS_30);

tes

EMS_30);

MEDIA

FORMAT

ERROR

DATA ERROR

begin

tssssincrement

PRINTB
PRINTB

EMS_ERR
end;

SETPRI

EGH_30,

error

count

(HRD MSG,
.ERRNUM,
(HRD_SUB);

_LSLUN,

.PC);

();

(.CUR_PRIORITY);

INCREMENT

!
!

PRINT
PRINT
PRINT

PRIORITY

TOTAL ERROR COUNT

ERROR LINE JUST LIKE DRS
NEXT LINE TOO
REST OF THE INFORMATION

BACK

TO NORMAL

end;

0000006

000200

.SBTTL

ERR.HRD.RTNE:
JSR
TRAP
MOV

MOV

ERR,HRD.RTNE RDRX
R1, $SAVE?2
40
RO,R2
#200,RO

INTERRUPT

SERVICE ROUTINES

«,CUR.PRIORITY

5979
5994

5995

Je
ZRQAM3

RD/RX EXERCISER
RORX INTERRUPT SERVICE

vol.6

000014
000016
000022
000026
000030
000034
000036
000042
000044
000050
006052
000060
000062
000064
000070
000072
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134
000136
000140
000142
000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206

104441
016601
020127
101411
020127
101006
020127
001403
020127
001131
032757
001475
010100

162700

006300
066007

104456

000037
000000G
0000006
000512
104456
000040
0000006
0000006
000505
104456
000044
000000G
000000G
000500
104456
000045
0000006
0000006
000473
104456
000047
000000G
0000006
000466
104456
000050
0000006
000000G
000461
104456
000051
0000006
000000G
000454
104456
000052

TRAP
MOV

000010
000042

CMP
BLOS
CHMP

090046

11:08:35
11:08:22

VAX-11 Bliss-16 v4,0-579

DISKS$
[POWERS
USERZ2
JZRQADO.BL2;:
:
6

10(SP),R1

R1,042

ERRNUM,
»

5993

BHI

000044
000045
010000

11-Apr-1984
11 Apr-1984

ROUTINES

0000006

14:

cMP
BEQ
CMP
BNE
8IY
BEQ

MOV

000037
000024

33:

44
;

S$:

6$:

7s:

ASL
ADD
TRAP

.WORD
.WORD
.WORD
BR
TRAP

. WORD
.WORD
. WORD
BR
TRAP
.WORD
.WORD
. WORD
8R
TRAP

.WORD
.WORD
.WORD
BR
TRAP
.WORD

5999
6000
210000,
SWP . FLAGS
14
R1,RO
437,R0
RO
P.AAC(RO),PC

56
37
EGH. 30
EMS. 30
164

6003
6006

Case dispatch
6009

6006
6011

6006
6019

6006
6021

6006
6025

.WORD
. WORD

8s:

TRAP

6006
6027

TRAP

6006
6029

10$:

. WORD
.WORD
. WORD

. WORD
.WORD
. WORD
BR
TRAP

.WORD

0000
0031

<P
v01.6

000210
000212
000214
0Qo0216
000220
000222
000224
000226
000230
000232
000234
000236
000240
000242
000244
000246
000250
000252
000254
000256
000262
000264
000270
000274
000276
000300
000304
000306
000312
000316
000320
000322
000326
000330
000334
000340
000342
000346
000350
000356
000360
000364
000366
000370
000372
000374
000376
000400
000404
000406
000410
000412
000414

11-Apr-1984

RD/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

ZRQAM3
000000G
000000
000447
104456
000053
000000G
0000006
000442
104456
000054
0000006
0000006
000435
104456
000055
0000006
0000006
000430
010746
013746
010146
012746
012746
010600
104414
020127
001411
012716
012746
010600
104414
004737
005726
062706
020127
001403
020127
001050
032737
001420
0c0127

11¢:

12%:

13$:

0000006
0000006
000004

EGH. 30
EMS. 30

.WORD
.WORD
.WORD
B8R

EGH. 30
EMS. 30

.WORD
.WORD
. WORD
B8R

EGH. 30
EMS. 30

TRAP

MOV
MOV
MOV
MOV
MOV
MOV
TRAP

000012
000043

15s:

16¢:

000046
000000CG

17%:

TST
ADD

cMP
8EQ
CcMP
BNE
BIT
BEQ
CMP
BNE

TRAP

. WORD
.WORD
. WORD

18¢:

CMP
BNE

TRAP

.WORD
.WOFD
.WORV

11:08:22

VAX-11 Bliss

v4,0-579

DISK$USER?2: [POWERS 1ZRQADO.BL2; 6

SEQ 0437
Page 206

(58)

EGH. 30

.WORD
.WORD
. WORD
B8R

JSR

0000006

Apr-1984

TRAP

MOV
MOV
MOV
TRAP

000000G
000001

000043
001005
104456
000043
0000006
0000006
000434
020127
000046
001031
104456
000046
000000G
0000006

.WORD
.WORD
B8R

cMP
BEQ

000052

040000

11:08:35

LSLUN, -(SP)
R1,-(SP)
@HRD ,MSG, -(SP)
04, (SP)
SP,RO
14

H
H

6006
6033

H
H

6006
6035

6006

6037

H
3 PC,»

6003
6042

;

SP,s

R1,052

6044

15
OHRD
. SUB, (SP)

6047

SP,RO
14

PC.EMS.ERR

(SP).

a12,5P
R1,043

R1,446

2014
240000,
SWP .FLAGS
19$
R1,043
18¢
56
43
EGH. 30
EMS. 30
20$
R1,446
204

SP,e

:
H
H
H

6048
6046
6040
6052

6053

6056

6062

:
H

6059
0064

L &

LSLUN, (SP)
R1,-(SP)
#HRD
. MSG, -(SP)

SEQ_0438_
P
age 207
(58)

6056
6069

6070

a1, -(SP)
SP,RO
14
PC,EMS.ERR
214,5SP
R2,.RO

Spo‘

s
; CUR.PRIORITY,

6071
6067
6074

5979

31542

62
74

106
120
132
144

d St Cmed

Go
Be
B
Te
B
Ve
B0
e
TF
B¢

12
236
236
236
24
36
236
50

CASE Table for ERR._HRD.RTNE+0072
ot gt 0= O OO~
NNt e WO o

O
O

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD

RO,

P -~

$PLITS,

.PSECT

P.AAC:
2$:

Spa‘

$CODES
159 words,
Rout ine Base:
depth per invocation:
11 words

20¢:

JSR
ADD
MOV
TRAP
RTS

SP,.RO
14
OHRD
. SUB, (SP)

PC,»

) Py Py Py Py Gy G

000000
000012
000236
000236
000236
000024
000036
000236
000050
000062
000074
000106
000120
000132
000144

MOV

0000006
000001

000024

000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
000054
000056
000060

20¢

MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP

0000006
000004

000000G
000014

B8R

1oV

Routine Size:
Maximum stack

0000006

194

VAX-11 Bliss-16 v4,0-579
DISK$USERZ: [POWERS JZRQADO

ey Py

:
;

000424
010746
013746
010146
012746
012746
010600
104414
012716
012746
010600
104414
004737
062706
010200
104441
000207

11:08:35
11:08:22

®0

vO0l.6

000416
000420
000422
000426
000430
0004 34
000440
000442
000444
000450
000454
000456
000460
000464
000470
000472
000474

11-Apr-1984
11-Apr-1984

RD/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

ZRQAM3

6006

M2
RD/RX EXERCISER
RDRX INTERRUPT SERVICE

ZRQAM3

6077
6078
€079
6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104
6105
6106
6107
6108
6109
6110
6111

ROWWORNDNRNDNDNVNDNNNVDRDN
VNN WR NP NN - e e s s s po

B¢

V¢

vol.6

routine ERR_SOFT_RTNE

11 Apr-1984
11-Apr-1984

ROUTINES

(ERRNUM)

novalue

!
!

000006
000010
000014
000020
000022
000026
000030
000032
000034
000036
000040

001440
016600
162700
006300
066007
104457
000062
000000
000000
000207
104457

0439
age 208
(59)

THIS ROUTINE DECIDES WHETHER TO ISSUE AN 'ERRSOFT’
THE SAME EFFECT WITHOUT ISSUING THE CALL

]

MACRO CALL

TO DRS

TO FAKE

begi n

buil tin
PC;
if BIT_TST
.

(SWP_FLAGS,

SWF_SFT)

then

case

SOFT ERRORS

TO BE

TREATED LIKE OTHER ERRORS

.ERRNUM from S0 to 54 of
set

else

[(S0]:

T (50,
ERRSOF

0);

CONTROLLER ERROR

(S51):

T (51,
ERRSOF

0);

HOST MEMORY ACCESS ERROR

[52):

T (52,
ERRSOF

0);

DISK TRANSFER ERROR

{531]:

T (53,
ERRSOF

0);

SDI ERROR

(54]:

T (54,
ERRSOF

0, 0);

SMALL DISK ERROR

!
!

INCREMENT TOTAL ERROR COUNT
PRINT ERROR LINE JUST LIKE DRS

tes

begi )

tasssincrement

error

PRINTB (SFT_MSG,
end;

count

.ERRNUM,

LSLUN,

.PC);

end;

.SBTTL
.PSECT
032737

VAX 11 Bligs-16 v4,0-579
DISK$USERZ2:
[POWERS JZRQADO.BLZ2;6

‘e

032240
000000

11:08:35
11:08:22

020000

000002
000062

000062’

0000006

ERR.SOFT
. RTNE:
BIT
BEQ
MOV
suB

2s:

ASL
ADD
TRAP

RTS
TRAP

.WORD
.WORD
.WORD

ERR.SOF
T _RTNE RDRX
$CODES$,
RO

INTERRUPT

SERVICE ROUTINES

6089

320000.SNP.FLAGS
$

2(SP),RO

#62,R0O
RO
P.AAD(RO),PC

57
62
0
0

;

»
ERRNUM,

Case dispatch

A0QD

6095

0092
0097

N2
ZRQAM3

RD/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES

vV0l.6

000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000116
000122
000126
000132
000134
000136
000142
:

000063
000000
000000
000207
104457
000064
000000
000000
000207
104457
000065
000000
000000
000207
104457
000066
000000
000000
000207
010746
013746
016646
012746
012746
010600
104414
062706
000207

11-Apr-1984
11-Apr-1984

4%
:

S$:

SEQ_0440

DISK$
[POWERS
USER2
]ZRQADO.BL2;6
:

Page 209

(59)

RTS
TRAP

6092
6099

RTS
TRAP
.WORD

6092
6101

RTS
TRAP

6092
6103

.WORD
. WORD
. WORD

. WORD
. WORD

6%:

0000006
000006
000000G
000004

74:

000012

000062

.WORD
.WORD
.WORD

RTS
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

.PSECT
000000,
000012
000024
000036
000050

VAX-11 Bliss-16 v4,0-579

. WORD
.WORD
.WORD

Routine Size:
50 words,
Routine Base:
$CODES
Maximum stack depth per invocation:
7 words

000062
000064
000066
000070
000072

11:08:35
11:08:22

P.AAD:
18:

.WORD
. WORD
.WORD
.WORD
.WORD

6089
6108

LSLUN, -(SP)
6(SP), -(SP)

ERRNUM,
&

#SFT.MSG, -(SP)
%4, -(SP)

SP,RO
14

012,SP
PC

6106
6077

32240

$PLITS,

RO,

O
Table

for ERR.SOFT.RTNE.0022

6092

B3
ZRQAM3

RD/RX EXERCISER
RORX INTERR. T SERVICE ROUTINES

elle

6113
6114

6115
6116
6117
6118
6119
6120
6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135
6136
6137
6138
6139
6140

6141
6142
6143
6144
6145
6146
6147

6148
6149

6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164

VARV WRNWWRLIDRVVNRWWWNNNNDNN
RN NN AR N e e 1o 1o s po pe po o

©F

V¢

TG0

Vs Vo

B¢

V¢

vol.6

routine

ERR_MRD _RTNE _APT

11-Apr-1984
11 Apr 1984

(ERRNUM)

novalue

11:08:35
11:08:22

VAX-11 Blises-16 v4,0-579
DISKIUSERZ : [POWERS )ZRQADO.BL2: 6

SEQ 0441
Page 210
(60)

!
!
1

THIS ROUTINE DECIDES WHETHER TO ISSUE AN
THE SAME EFFECT WITHOUT ISSUING THE CALL

'ERRHRD'

MACRO CALL

TO DRS OR

TO FAKE

begin

locel
CUR _PRIORITY;

builtin
PC;
GETPRI
SETPRI
if

(CUR_PRIORITY);
(PRIO4);

DON'T

ALLOW SOFT _ERROR MESSAGES

!
!

CHANGE
CHANGE

FOR NON BAD BLOCK

INVALID COMMAND

TO COME

IN NOW

.APT_MODE

then
in

LMAIL _BOX_TESTNUM = _RP_ADDR [LBN_LO];
.H:lL-BOx_SUBYST = _RP_ADDR [DISK];

TEST NUMBER TO SHOW LBN UNDER APT ONLY
SUB-TEST NUMBER TO SHOW DISK NUMBER UNDER APT ONL
Y

end;

( (.ERRNUM lequ 34) or
E.ERRNUH gtru 38) or
.ERRNUM ecl
( .ERRNUM eal

TYPE ERRORS

36) or
37)

then

é;.:LT_YSY
case

(SWP _FLAGS,

.ERRNUM from
set

SWF _HRD)
31

ERRORS

TO BE

TREATED NORMALLv

to 45 of

(31]:

ERRODF

(31, EGH 30, EMS 30);

(32):

ERRDF

(32,

! COMMAND ABORTED

(33]):

(34]:

(35]):

¢t MEDIA FORMAT ERROR

EGH 30, EMS 30);

L
ZRQAM3X

RD/RXx EXERCISER
RORX INTERRUPT SERVICE

182

6183

6184
6185
6186
6187
6188
6189
6190
6191
6192
6193

DBWWAWWWWWNINNNRNNLDOLNOLDVLLPLNVDAON
N DN

6165
6166
6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181

DIoK SUSERS T POUERS ) TROAD0. BL 216

ERRDF (36, EGH_30, EMS 30);

WRITE PROTECTED

{(37):

ERROF (37, EGH_30, EMS_30);

COMPARE ERROR

[(38):

DATA ERROR

(39):

ERRDF (39, EGH_30, EMS_30),

HOST BUFFER ACCESS ERROR

(401}:

ERRDF (40, EGH_30, EMS_30);

CONTROLLER ERROR

[41]:

ERRDF (41, EGH 30, EMS_30);

DRIVE ERROR

(42):

ERRDF (42, EGH_30, 0);

MOST WRITE COMPARE

(43]:

ERROF (43, EGH 30, EMS_30);

MESSAGE FROM INTERNAL

(44 ];

ERRDF (44,

DUPLICATE UNIT NUMBER

[45):

ERRDF (45, EGH 30, EMS_30);

EGH_30, EMS_30);

ERROR
DIAGNOSTICS

INVALID END CODE

else
begin
!‘OOOEflCF.Mflt

PRINTB

(DF _MSG,

begin
PRINTB

EMS_ERR

end;
if

error

count

.ERRNUM,

.LSLUN,

.PC);

INCREMENT

TOTAL ERROR COUNT

ERROR MESSAGE

JUST

DRS

_ERRNUM neq 42

then

ERDRDEWEHNNN WD

6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216
£217

ROUTINES

11:08:35
11:08:22

(36]):

tes

6194

NNV

B¢

€

8¢

G¢

V¢

G»

vVol.é

11-Apr-1984
11 Apr 1984

end;

(.ERRNUM eql

( .ERRNUM eql

35)

38)

(MRD_SUB);

LINE

FOR NON-HOST COMPARE ERRORS

();

FOR BAD BLOCK

REST

THE

TYPE

INFORMATION

ERRORS

then
+f BIT_TST
then

(SWP_FLAGS,

selectoneu

SWF

BLK)

ERRORS

TO BE

TREATED NORMALLY

.ERRNUM of

set

(35]):

ERRDF (35, €EGH 30, EMS 30);

MEDIA FORMAT

{38):

ERRDF

DATA ERROR

tes

(38,

EGH 30,

EMS

30);

ERROR

SEQ 0442

Page 21

(60

D3
ZRQAMS

RO/RX EXERCISER
RORX INTERRUPT SERVICE ROUTINES
) DN
e

1ssssincrement

PRINTB
PRINTB

EMS_ERR
end;

SETPRI

error

11:08:35
11:08:22

VAX

11 Bliss

16 v4,0 579

DISKS$US
[POWERS )ZRQADO.BL
ER2:
2;6

.LSLUN,

SEQ 04473
P

age 212

(60)

();

(.CUR_PRIORITY);

020127
101411
020127

101006
020127
001403
020127
001131
032737
001475
010100
162700
006300
066007
104455
000037
000000G
000000G
000512
104455

TOTAL

ERROR COUNT

ERROR LINE JUST LIKE DRS
NEXT LINE TOO
REST OF THE INFORMATION

PRIORITY

BACw

TO NORMAL

end;

$CODOES$,

INTERRUPT

ERR.HRD.RTNE .APT;
R1, $SAVE?
JSR
TRAP
MOV

000200

000001

MOV

TRAP

001162’

BIT
BEQ

000000G
000050
001164

0000006
000010
001166
000010
000042

1¢:

000046

000044

000045
010000

0000006

24:

MOV
MOV
MOV
MOV

MOV
cMe
8LO0S
cMP
:1a)
cHP
BEQ
CHpP
BNE
eIy
8EQ

MOV

000037

SUB

000074
4%

ASL
ADD
TRAP

. WORD
. WORD
. WORD
B8R
TRAP

40
RO,R2
0200,R0
41
o1 ,APT ,MODE
1
RP .ADDR,RO

SERVICE ROUTINES

ERR.HRD.RTNE.APT RDRX

104440
010002
012700
104441
032737
001412
013700
016077
013700
016077
016601

PRINT
PRINT
PRINT

000004
000006
000010
000014
000016
000024
000026
000032
000040
000044
000052

,PC);

¢, CUR PRIORITY

004137

INCREMENT

count

(DF _MSG,
.ERRNUM,
(HRD SUB);

.SBTTL
.PSECT

000000

000070
000072
000076
000100
000104
000106
000114
000116
000120
000124
000126
000132
000134
000136
000140
000142
000144

1984
1984

begin

032404

000056
000062
000064

Apr
Apr

else

6218
6219
6220
6221
6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232

PR RN P

®0

B¢

©s

B¢

O¢

vol.e

11
11

Ry, 042
2%
R1,046

6131
6134

6138

SO(RO),8
.BOX MAIL
. TESTNUM
RP .ADDR,RO

10(RO),8MAIL .BOX,SUBTST
10(SP),R1

6112
6130

6139
ERRNUM,

6143
6144

6145
6146

178
@10000,SWP
. FLAGS

6150

154

R1,RO
@%7,RO
RO
P.AAE(RO),PC

55
37
EGMH. 30
EMS. 30
174
55

6153
Case dispatch

o150

ol58%
o153

E3
ZRQAM3
vOl.6
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174
000176
000200
000202
000204
000206
000210
000212
000214
000216
000220
000222
000224
000226
000230
000232
000234
000236
000240
000242
000244
000246
000250
000252
000254
000256
000260
000262
000264
000266
000270
000272
000274
000276

RO/RX EXERCISER
RORX

INTERRUPT

SERVICE ROUTINES

6%:

74:

8s:

94:

10s:

11¢:

000053

12%:

000442

104455
000054
0000006
0000006
000435
104455
000055
0000006
0000006
000430
010746
013746
000000G
010146
017746
000000G

11-Apr 1984
11-Apr-1984

13s:

15¢:

.WORD
.WORD
. WORD
BR
TRAP

.WORD
.WORD
. WORD
B8R

EGH. 30
EMS, 30
17$

.30
.30

. WORD
. WORD
.WORD
BR

.30
.30

. WORD
.WORD
. WORD
B8R

.30
.30

. WORD
. WORD
. WORD
B8R

.30
. 30

TRAP

0444

Page 13

(60)

H
:

6153
6166

6153

65168

H
H

6153
6172

H
H

6153
6174

H
:

TRAP

6153
6176

:
H

6153
6178

H
H

6153
6180

6153

.30

.30
.30
:

6182

.30
.30

TRAP

MOV
MOV
MOV
MOV

DISK$USERZ2: [POWERS JZRQADO .BL2;:6

5EQ

EGH. 30
.30

. WORD
.WORD
. WORD
B8R

. WORD
. WORD
. WORD
B8R

]

VAX-11 Bliss-16 v4,0-579

TRAP

. WORD
.WORD
. WORD
B8R
TRAP
. WORD
.WORD
. WORD
B8R
TRAP
.WORD
. WORD
. WORD
B8R

11:08:35
11:08:22

55
EGH. 30
EMS. 30
17¢
PC, (SP)
LSLUN, (sSP)
R1, (SP)

@DF ,MSG,

(SP)

6153

6184

PC,e

6150

6191

F3
ZRQAM3Z

RD/RX EXERCISER
RORX INTERRUPT SERVICE

vVOol.6
000324
000330
000332
000334
000340
000342
00C 346
000352
000354
000356
00( 362
000364
000370
000374
000376
000402
000404
000412
000414
000420
000422
000424
000426
000430
000432
000434
000440
000442
000444
000446
000450
000452
000454
000456
000462
000464
000470
000474
000476
000500
000504
000510
000512
000514
000520
000524
000526
000530

;:
:

012746
010600
104414
020127
001411
012716
012746
010600
104414
004737
005726
062706
020127
001403
020127
001050
032737
001420
020127
001005

ROUTINES

000004

MOV
MOV
TRAP

SP,RO
14
R1,052
16¢

CMP
8EQ

000052

0000006
000001

MOV
MOV
MOV

0000006
000012
000043

164:

17¢:

000046
040000

11-Apr-1984
11-Apr-1984

000000G

18s:

000043

OHR
. SUB, (SP)
D
@1, (SP)

SP,RO
14

TRAP
JSR
TST
ADD
CcMP
8EQ

PC,EMS.ERR

(SP).

R1,043

18%

000004

0000006
000001

0000006
000014
2l¢:

Bliss

v4,0-579

DISK$USERZ: [POWERS JZRQADO.BL2;6

SEQ_044S

Page

(60)

Spo‘

6194

6198

SP,s

6199

6197

6189

62C2
e

R1, 946

6204

0400
SWP00,
. FLAGS

;

6208

R1,043

6214

.WORD
. WORD
. WORD
B8R
CcHP
BNE

.WORD
. WORD
. WORD
B8R

20%

19¢
55

EGH. 30
EMS, 30
21

R1, 46

214
55

TRAP

208$:

VAX-11

CMP
BNE
BIT
8EQ
cMP
BNE

TRAP

000046

11:C8:35
11:08:22

EGH. 30
EMS. 30
218
PC,-(SP)
LSLUN, (SP)

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
JSR
ADD
MOV
TRAP
RTS

Routine Size:
173 words,
$CUDES
Rout ‘'ne Base:
Maximum stack depth per invocation:
11 words

Rl,

6211

6216

s PC,o

6208

6223

(SP)

QDF . MSG,-(SP)

04, (SP)
SP,RO
14
R0 .SUB, (SP)

o1,

(SP)

SP,RO
14
PC,EMS
. ERR
o14,SP
R2,R0O
41
PC

32404

;

SP,e

;

6224

SP,s

62°5

CUR.PRIORITY,»

6221

6229
olle

:
H

6233
6234

) ) ) e e ey ey ey e ()

=t o gt gt VDR
e N DD
SUNHROLeYLseYIyweN

TN N PN P S PN

W8
W0
G
Be
GE
G
VO

000024
000036
000236
000050
000062
000074
000106
000120
000132
000144

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD

000236
000236

3s:

SEQ_0446
Page 215
(60)

000012
000236

P.RAE
;

RO,

000000

$PLITS,

000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130

.PSECT

DISK$USER2: [POWERS )ZRQADO.BL2;6

000074

VAX-11 Bliss-16 v4.0-579

ROUTINES

11:08:35
11:08:22

VOl.6

11-Apr-1984
11-Rpr-1984

RO/RX EXERCISER
RORX INTERRUPT SERVICE

ZRQAM3

Table

for ERR.HRD.
. AP+0126
RTNE

5153

RD/Rx EXERCISER

6255

6256
6257

VLV VR

6258
6259

6260

6261
6262
6263

VY VL SOV

6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
6248
6249
6250
6251
6252
6253
6254

6264
6265
6266
6267
6268
6269
6270
6271
6272
6273
6274
6275
6276
6277
6278
6279
6280
6281

INTERRUPT

RTNE_APT

11-Apr-1984

(ERRNUM,

index)

!
!

THIS ROUTINE DECIDES WHETHER TO
THE SAME EFFECT WITHOUT ISSUING

ISSUE AN
THE CALL

novalue

DISK$USER2: [POWERS JZRQADO.BL2;6

SEQP2327216

‘ERRSOFT‘

MACRO CALL

TO DRS OR

TO FAKE

begin

local
ELOG_ADDR

ref block

[EP_LEN,

word]

field (EP_FIELDS);

builtin
PC;

ELOG_ADDR

ELOG PKT

(.index

¢ EP_LEN

« 2);

ADDRESS OF

!
!

CHANGE
CHANGE

THE

SAVED ERROR-LOG

INFORMATION

if .APT_MODE
then

begin
LMAIL _BOX_TESTNUM = _ELOG_ADDR (EL _BLOCK]);
.HgIL,BOX_SUBTST = _ELOG_ADDR [EL _DK_NUM];

TEST NUMBER TO SHOW LBN UNDER APT ONLY
SUB-TEST NUMBER TO SHOW DISK NUMBER IN APT ONLY

eng;

é; BIT_TST

(SWP_FLAGS,

SWF_SFT)

case

else

.ERRNUM

set

SOFT ERRORS

TO BE

(S50):

ERRDF (50, O, 0);

¢ CONTROLLER ERROR

(S1):

ERRDF (S1,

(52]):

ERRDF (S2, O, 0);

! DISK TRANSFER ERROR

(53):

ERRDF (53, 0, 0);

(S54):

ERRDF (54, 0, 0);

! SMALL DISK ERROR

tes

TREATED LIKE OTHER ERRORS

from SO to 54 of

O);

begin
‘tsassincrement error count
PRgNTB (DF _MSG, .ERRNUM, .LSLUN,

.PC);

¢
!

HOST MEMORY ACCESS ERROR

SDI ERROR

INCREMENT TOTAL ERROR COUNT
PRINT ERROR LINE JUST LIKE DRS

end;

.SBTTL
.PSECT
016646

VAX-11 Bliss-16 v4,0-579

11:08:22

033136
000000

11-Apr-1984 11:08:35

SERVICE ROUTINES

routine ERR_SOFT

VI SET RT T

6235
6236

VL VLV VT VY S Y o o ol ol S ey

RDORX

LAV USEE RV NP LV GVVE PSS I VRS L VIV VS LV

G¢

G¥

B¢

G¢

€8

ZRQAM3
vV0l1.6

000002

ERR_SOFT.RTNE.APT RDRX
$CODES$,
RO

ERR.SOFT.RTNE,.APT:

INTERRUPT

SERVICE ROUTINES

(61)

13
ZRQAM3
v0l1.6

000004
000010
000014
000020
000026
000030
000036
000044
000052
000054
000069
000064
000066
000972
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130
000132
000134
000136
000140
000142
000144
000146
000150
000152
000154
000156
000162
000166
000172
000176
000200
000202
000206
000210
;
;

RD/RX EXERCISER
RORX INTERRUPT SERVICE

012746
004737
062700
032737
001406
016077
016077
032737
001440
016600
162700
006300
066007
104455

ROUTINES
MOV

000102
0000006
0000006
000001
001162
000056
000012
020000

001164°
001166’
000000G

1$:

000010
000062

Ss:

6$:

7%:

104414
062706

022626
000207

Routine Size:
Maximum stack

S56(RO),MAIL
.BOX. TESTNUM
12(RO),8MAIL .BOX,SUBTST

BIT
BEQ

920000,
SWP . FLAGS
8s
10(SP).RO

suB

3s:

0000006
000012
0000006
000004

2102, -(SP)
PC,BL $MUL
9€ELOG.PKT,RO
&1,APT
. MODE
1%

MOV

000132°

8s:

000010
9s:

062 ,R0O
RO
P.AAF(RO),PC

ASL
ADD
TRAP

55
62
0
0
93
55
63

.WORD
.WORD
.WORD
8R
TRAP
.WORD

. WORD
. WORD
B8R
TRAP

.WORD
.WORD
. WORD
BR

69 words,

Rout ine Base:
invocation:
8 words

]

VAX-11 Bliss-16

v4,0-579

DISK$USER2: [POWERS JZRQADO.BL2; 6
s

INDEX,

0448

Page 217

(61)
6250

6252

s
s

«(ELOG.ADDR),*
»(ELOG.ADDR),

ERRNUM,
»

;

Case dispatch

SEQ

6255
6256

6259

6262

6265

H
H

6262
6267

H
:

6262
6269

6262

TRAP

6271

B8R

H
H

6262
6273

. WORD
. WORD
. WORD

TRAP

. WORD
. WORD
. WORD
B8R

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

PC,»

12(SP), -(SP)
Q@DF .MSG, -(SP)

ERRNUM,
»

SP,s

04, -(SP)
SP,RO
14
€10,SP

cMP

$CODES

93
PC,(SP)

LSLUN, -(SP)

(SP)+,(SP).

RTS

depth per

11:08:35
11:08:22

2(SP), -(SP)

MOV
JSR
ADD
8IT
BEQ
MOV
MOV

000415
010716
013746
016646
012746
012746
010600

11-Apr 1984
11 Apr-1984

33136

H
:
3

6259

6278

6276

024.2
6235

J3
ZRQAMZ

RD/RX EXERCISER

vVOl.6

RORX INTERRUPT SERVICE ROUTINES

000132

000132
000134
000136
000140
000142

:
H
:
H

11-Apr-1984

P.AAF ;

000000
000012
000024
000036
000050

6282

2s:

11 Apr-1984 11:08:22

PSECT

$PLITS,

.WORD
.WORD
.WORD
.WORD
.WORD

0
12
24
36
SO

1
1
1
O

0TS external

PSECT

Psect Name

;

[3%])
(48]
(58]
[(63]
[78)

Table for ERR.SOFT.RTNE.A+0066

references

Attributes

324

$CODE $

7028

SPLITS

Library

$SAVE3,
BLS$MOD,

RO,

LCL,

REL,

LCL,

REL,

RO,

$SAVE?2
BLS$MUL

LCL,

REL,

CON

CON
CON

Statistics

Total

Loaded

Percent

404

333

DISKS$SUSER2: [POWERS JZRQADO.L16;3

COMMAND

BLISS/POP11

$SAVE4,
BLSDIV,

RO,

---- Symbols

File

;

CASE

SUMMARY

Words

$GGG$

;

;s
:
3
1
s

$SAVES,
BLS$SHF,

SEQ 0449
Page 218

(61)

eludom

DISK$USER2: [POWERS JZRQADO.BL2;:6

end

.GLOBL
.GLOBL

RO,

VAX-11 Blies-16 v4,0-579

6283
6284
6285
6286

;

11:08:35

Pages

Processing

00:00.1

Mapped

QUAL
IF IERS

ZRQADO.BL2/LIST=ZRQADO.LS2/0BJECT =ZRQADO.0B2/SOURCE *PAGE :53

Time

6262

I<3
ZRQAMA

VUV

VUOVO

VOOV

6289
6290
6291
6292
6293
6294
6295
6296
6297
6298
6299
6300
6301

7792
7793
7794
7795
7796
7797
7798
71799
7800
7801
7802
7803
7504
7805
7806
7807
7808
7809

7810

7811

7812

7813
7814
7815
7816
7817

11-Apr-1984

RORX INTERRUPT SERVICE ROUTINES
=PV
=, 00000000

6287
6288

RD/RX EXERCISER
module ZRQAMA
dstitle

11 Apr

11:08:22

56Q 0450

i6 V4.0 579

DISKS$SUSERZ : [POWERS JZRQADO .BLZ2:6

RO/RX EXERCISER’
ident = 'V0l1.6 ,
addressing_mode (absolute),
gnv ironment (noeis)

beg'n
ssbtt]l

'LASTAD

AND

SETUP'

library

‘'ZRQADO.L16';

require

‘'BLSMAC.REQ';

DIAGNOSTIC SUPERVISOR L IBRARY

LASTAD

’

BGNSETUP (4)

1222

BGNPTAB

INIT_IP_ADDR,
¢ 1P,

INIT_INTR_VECT, INIT BR_LEVEL, %0’'100060', O, O,
VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

RDS2 MAX_LBN,

1222

INIT_IP_ADDR,

INIT_INTR_VECT,

INIT_BR_LEVEL,

so’'100001',

RXS50 MAX_LBN,

222

INIT_INTR_VECT,

INIT BR_LEVEL,

%o'100002',

RX50_MAX_LBN,

222

INIT_IP _ADDR, INIT_INTR_VECT, INIT BR_LEVEL,
'HERE'S ONE FOR THE 4TH DRIVE

%o'100003',

RXS0_MAX_LBN,

222
1222
1222

ENDPTAB
BGNPTAB

ENOPTAB

' IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

INIT_IP_ADDR,

IP,

VECTOR,

BR,

DISK ADDR,

START BLOCK,

END BLOCK

ENDSETUP

.ENABL

000124
000000C
000034
000010

1984

VAX-11 Bliss

(

LTITLE
.JDENT

000000
000000
0000C2
000004
000006

11:08:35

LPSECT
BL$LAS: : .WORD
.WORD
P.AAA:
,WORD
.WORD

ZRQAM4 RD/RX EXERCISER
/Vv01.6/
AMA

$XvZ$,
RO
T$FREE
<<T$FREE <BLSLAS+4>>/2>
LS$LAST+30
10

Plit

count

word

Page 219

(62)

L 3
ZRQAM4
vOol1.6

11-Apr-1984
11-Apr-1984

LASTAD AND SETUP
172150

000154
000004
100060
000000
000000

P.AAB:

.WORD
.WORD
.WORD

150477

000000
000060

000010
172150
000154
000004
100001
000000
000000
001437
000000
000104°
000010

172150

000154
000004
100002
000000
000000
001437
000000
000000
000010
172150
000154

P.AAC:
P.AAD:

P.ARE:
P.AAF

P.AAG:
P.AAH:

000004

100003
000000
000000
001437
000000
000000

000004
000004
000004
000010’
000030°
000034°
000054
000060°
000100
000104

.WORD
.WORD
.WORD
.WORD

WORD

.WORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD

WORD
TSFREE::. WORD

L$LAST==

TSPTHV
==

$LASS$REMS=
=
$LASA

=
$REM4
$LAS3=
$REM3
=
$$LAS1$REM2

11:08:35
11:08:22

VAX-11 Bliss-16

v4,0-579

DISK$USERZ2:
[POWERS JZRQADO.BL2;: 6

-5630
154

-77720
0
0

27301
0
LSLAST.54
10
-5630
154

Plit count

word

Plit

word

-17777
0
0
1437
0
L$LAST«100
10
-5630

count

154

-771776

1437
0
0
10
-5630
154

; Plit count word

-77775
0
0

1437

0
0

BLS$LAS.4

VOOV OVOOLUSL

000010
000012
000014
000016
000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
200044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

RD/RX EXERCISER

.AAA
.AAB
.AAC
. AAD

.AAE
. AAF
. AAG
AARH

SEQ 0451
p

age 220
(62)

M3
ZRQAMA

RDO/RX EXERCISER

vol.6

000000
i
;

:
:
:

LASTAD

SETUP

LSBTTL
$END.LINK:
RTS

000207

Routine Size:
Max:mum stack

7818
7819
7820

AND

1
1
O

1 word,
depth per

Routine Base:
invocation:
O words

11:08:22

VAX-11 Blies-16 v4,0-579

DISKS$USERZ2: [POWERS )ZRQADO.BL2;:6

7791

0126

PSECT SUMMARY

Psect Name

Words

Librery

Attributes

Statistics

-------- Symbols -- - -

F'le

Total

Loaced

Percent

404

DISKS$USER2: [POWERS JZRQADO.L16;3

Pages

Processing

00:00.2

Mapped

Time

COMMAND

BLISS/PDP11
Size:
Run Time:

QUALIF IERS

ZRQADO.BL2/L1IST=ZRGADO.L.S2/70BJECT=ZRQAADO,0B</SOURCE
=PAGE : 53

7029 code +
03:40.4
Elapsed Time:
05:47.2
Lines/CPU Min:
2129
Lexemes /CPU-Min: 20098
Memory Used:
477 pages
Compilation Complete

417 data words

SEQ 0452
Page 221
(62)

SEND.LINK LASTAD AND SETUP

eludom

;

+«

Apr-1984

11:08:35

end

;

$XYZ$

Apr-1984