Digital PDFs

AH-T760A-MC-GREY

April 1984

427 pages

Original

154MB

view download

OCR Version

180MB

view download

Document:	CNRQAA0 RD51, RX50, RQDX1 Exersizer Diagnostics
Order Number:	AH-T760A-MC
Revision:	GREY
Pages:	427
Original Filename:	CNRQAA0__11-21,RD51,RX50__RQDX1_EXERCISER__AH-T760A-MC__APR_1984_gray.pdf

OCR Text

155

i RS0

CHNROARAD

AH-T760A-NC

FIGHE L OF 3

] ifalilt]a]

ROS1 Rx50

CHREAAD

Ct)

AH=-T7E60A-MC

FIGHE Z OF 3

el ol1]l

ROS1 s
g

RODXL EXERCISER

_CNREARAO

b1
15 Dec-1983 10:24:41
15-Dec-1983 10:21:50

NRQAM!

module NRQAM1 (

stitle

'wD/RX EXERCISER"

ident

'V01.0',

addressing _mode (absolute),
environment (noeis)

0005

ONONOOOOONOOOOOOOOONDONDONONODOOOONOOOOONONNONO

)

(

IDENTIFICATION
PRODUCT CODE:

AC-T759A-MC

PRODUCT NAME
:

CNRGAAO RQDX1 EXERCISER

PRODUCT DATE:

DECEMBER 19,

MAINTAINER:

ISS DIAGNOSTIC SERVICES

AUTHOR :

JAMES S. DOUCETTE

1983

01754

UNDER A LICENSE FOR USE ONLY ON A SINGLE

COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION OF THE
ABOVE COPYRIGHT NOTICE.
THIS SOFTWARE, OR ANY GTHER CCPIES THEREOF,

MAY NOT BE PROVIDED OR
OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

;Em" I'T‘I&LEC TO AND

OWNERSHIP OF THE

SOFTWARE

SMALL AT ALL TIMES

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE

eoo S’%g‘ NOT BE CONSTRUED

AS A COMMITMENT

BY DIGITAL

EQUIPMENT

DEC ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS
SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

SEQ

0003

» age
VAX-11 Bliss-16 V3-555
SPIDER$USERS:
[DOUCETTE . F ALCONICNRGAL B 1

N
NRGAML

RD/RX EXERCISER

vO1.¢
:

C 0051

s
:
3

C 0053
C 0054
S 0055

s
3
:
H
:
[

15-Dec-19€% 10:21:50

C 0C52

C
C
C
C
C
C

0056
0057
0058
0059
0060
0061

E %g

The following changes were made to CZRQAB in producing CNRQAA for the
FALCON-PLUS project (SBC-11/21+).
Release date December 19, 1983,

All changes are marked by "“!JSD REV A”,
1. Lowered the
to level
oDT.

ral operating priority of the program from level
6 to allow the BREAK key to interrupt and invoke

3. Due to space limitations,

g 0067

4. Changed the default IP address from 172150 to 176150.

€ 0066

3
s
3
H
;
3
3

o
C
C
C
C
C

0068
L L
0070
0071
0072
0073
0074

;
:
3
s
H
3
3
s
:

C
C
C
C
C
C
C
C
C

0076
0077
0078
0079
0080
o081
0082
0083
0084

P
3

3
3
3
3
3
:
H
:
:
3
;

:
:
3
:
:
:
3
H

C 0075

C
C
C
C

0085
0086
0087
0088

C
C
C
C
C
C
C
C

0098
0099
0100
0101
0102
0103
0104
0105

C
C
C
C
C
C
C
E

0089
0090
0091
0092
0093
0094
0095
%

Set the ODT BREAK vector (location 140) to the starting address
of FALCON's ODT ROM (170000-octal).

C 0064

i
A

removed all references to DBM's (debug

e
TABLE OF CONTENTS
1.0
3.1

GENERAL INFORMATION
PROGRAM ABSTRACT

1.2.1
1.2.2
1.3
1.4
3.5
1.6

HARDWARE REQUIREMENTS
SOFTHWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
MEMORY MAP

2.0
2.1

OPERATING INSTRUCTIONS
HARDWARE QUESTIONS

)

SYSTEM REQUIREMENTS

2.2

SOF TWARE QUESTIONS

3.0
3.1
3.2
3.3
3.4
3.5
3.6
5.7
3.8
4.0

ERROR TYPES
ERROR INFORMAYION
INITIALIZATION ERRORS
EXERCISER ERRORS
ERROR LOG MESSAGES
MSCP ERRORS
SAMPLE MSCP ERROR STATEMENT
DUP ERRORS
SAMPLE DUP ERROR STATEMENT
PERFORMANCE AND PROGRESS REPORTS

5.0
S.1
S.2
3.9

TEST SUMMARY
INITIALIZATION SUBTEST
EXERCISER
DROP UNIT SUMMARY

6.0

ERROR LIST

7.0

DATA PATTERNS

SEQ OULe

SPIDER‘USERS:(OOUCEYYE.FALCON)CNROAfi.gE: (e’

"""""""""

VAX-11 Bliss-16 v3-555

REVISION HISTORY

c 0050

1% Dec
- 1983 10:24:41

o}
NRQAM1
vo1.¢C
H
3
:

RD/RX EXERCISER
C 0106
C 0107

Co0108

C 0109

C 0110

3
:

CO0111
C o112

3
3

C 0115
g gllg

3
:

:
s
3
:

:
3
3
3
i
3

CO0119
C 0120
C o121
0122

C
C
C
C
E

0123
0124
0125
0126
8{5;

E ggz

3
3
3
3
3
:
3

E gg%

C 0135
CO138
C 0137
C 0138
C 0139
C 0140
(C: 8{:5

c 8{3

CVas%é

3
:

C 0145

1.1

PROGRAM ABSTRACT

=
=

1.2

C 0147
C o148
CO0149
C 0150

:
3

C 0152
C 0153

C 0151

ceccccccencnn-

eeecececccecece-

SYSTEM REQUIREMENTS
eecscccecsmccccccnnn-

1.2.1 HARDWARE REQUIREMENTS
seseccccccccccccccnas
SBC-11/21+ processor with 28KW memory ( jumpered for memory
map 02, CNDP+ (XXDP+) loed device (e.g.. RX02), console
device (eg. VT100), RQDX1 CONTROLLER
rd, and attached
RD-S1 W
STER drive(s) and/or RX-50 FLOPPY drive(s).

1.2.2 SOFTWARE REQUIREMENTS
secccceccccecncccccnn

Th is d isgnostic

des i gned

is
i
to run with the
Supervisor as described in paragraph 2.0.

1.3

0 Diagnostic

RELATED DOCUMENTS AND STANDARDS
cececccccccccccccccccccncnnanns
XXDP+
UQSSP
MSCP
DUP

SUPERVISOR/USERS MANUAL
CHQUS
UNIBUS/Q-BUS STORAGE SYSTEMS PORT
MASS STORAGE SYSTEM PROTOCOL
DIAGNOSTIC/UTILITIES PROTOCOL

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

eesssevcescscecsvaccsvesrasessannn

C 0146

:
3
:
3

GENERAL INFORMATION

SEQ 06072

P
VAX-11 Bliss-16 Vv3-S55
age
3
SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAL .BL1 (%)

This program will functionally verify
and exercise RQDX1
Controller/Disk Drive subsystems. It is designed to verify
that the subsystem
is functioring correctly and operating
within design specifications.

C 0118

C 0129
CO0130

1.0

C 0113
C 0114

s
3

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

NONE

1.5

ASSUMPTIONS
cecccecce--The hardware,

other than

the

subsystem

being

tested

assumed to work properly.
False errors may be reported if
che processcor, memory, etc., do not function properly.

1
NRQAML
vo1.¢

3
:

:
;
3

;

H
8
3

3
:
.
3
3

:
H

RD/RX EXERCISER

C 0154

C 0155

Co1%
C 0157

C 0158
CO1I59
C 0160

MEMORY MAP
seeeseena-

Memory layout on 28k machine - CNDP+ environment
cceiececccsccccccesscaccceccmnnnncenncnnanancan-

C o161

C 0162

ADDRESS

C 0163

@ececcccccccnaacnn . i .

C 0165

C 0164

C 0166
C 0167
C 0168

C
C
C
C
C

0169
0170
0171
0172
0173

C 0174

C 0175
C 0176

CNDP. MONITOR

:
'
$eccccccaccccccaccnaacnnn ’
'
'

!
'
D
'
H

CNDP+

TTY I/0 AREA

DRS

‘
'

!
'
.
1
¢
'
¢

C 0179

C 0178

;

C 0180

:
2

EXERCISER

C o181

AP L Wi %
NSDlRS

;

C 0183

’

;

C o182

C 0184

C 0185

;
:
:

C 0186
C 0187
C 0188

:
3
:

C 0190
C 0191
C 0192

;

C 0189

B
!
:
[

VECTOR AREA

o A

2000

STACKS
o e i

121000

;
3

160000

Cc 0177

;

1.6

15-Dec 1983 10:24:41
15-Dec-1983 10:21:50

g Ao sl e 0

:
:
'

400

In @ machine
with more memory,
free space will ocuur
between the exerciser and the DRS.

SEQ 0004

VAX-11 Bliss-16 Vv3-555
Page
4
SPIDERSUSERS:
[DOUCETTE . FALCONICNRQAL . BL1 (4

F 1
NRQAM1

RD/RX EXERCISER

vo1.C
:
H

C 0193
C 0194

CO0198

;
3
3

C 0197
C 0198
C 0199

C 0196

:
3
3

C 0200
C 0201
C 0202

C 0204

:
;

3
3

C 0206
C 0207

15-Dec-1983 10:21:50

~ecccccnmcnncccccncon--

because
it is desired that a change in those instructions not require a re-assembly of all Supervisor Diagnostics.
=

2.1

HARDWARE QUESTIONS
secccccccceccccen-

The

following series

of questions

comprise the para-

meters necessary to identify each disk subsystem.

C 0210

Hardware Configuration Questions

C 0213

3
H

C 0211
C 0212

E ggi_él

C o218

H
3
H
3
3
3

C
C
C
C
C
E

0220
0221
0222
0223
0224
822365

C
C
C
C
C
E

0227
0228
0229
0230
0231
8%3%

H
3
:
H
:
:
:

:
H

s
H
s

3
3

""""""""""""""""

The

E 85{;

will

ask

the

following questions

CHANGE MM (L) Y ?
Answer NO to use the pre-built answers for all

C 0219

E ggg;

program

response to a START command (non-scrip

questions.

This

hardware

program will be released pre-built to

test three unit with default answers
shown below.
The
pre-built
enswers
may
be changed at an
ton with the
setup utility.
Answer YES if you want al
hardware
questions to be asked.

NUMBER OF UNITS (D) ?
No default.
Answer with the number of
disk drive units
to In ourcc.od or tested.
This
answer will determine
t-m
the
following questions
are asked.
A
r
1 to 4 units
may be specified.
A unit number
will
be mcm
mto.uy from 0
by the Diagnostic
supervisor for esch unit.

IP ADDRESS (0) 176150 ?

C 0236
C 0237

Enter tho address of the IP register of one RGDX1 ss addnoood
the processor with memor -mn turned

E ggzg

renge of b

C 0238

E gg:é

3
3
;

C 0243
C 0244
C 0245

off.

4.,

m- expects an even !.6

to 177774,

s in

176150 is the default.

SEQ 0005

Fane

SPIDERSUSERS: ([DOUCETTE .FALCONICNRQARA. BLI S

OPERATING INSTRUCTIONS

E ggg

VAX-11 Bliss-16 Vv3-555

This is @ Rev C Supervisor Diagnostic:
for operating
instructions,
please see chapter S of XXDP+ operator's
menual.
They are no longer
included in the diagnostic

C 0203
CO0205

2.0

15-Dec-1983 10:24:41

the

VECTOR ADDRESS (0) 154 ?
Answer
with the
interrupt vector of same RQDX1 in
the
sbove question.
A vector
address in the range of 4 to
774 may be specified.
154 is the default.

Gl
NRQAM1

RD/RX EXERCISER

vol1.C

0246
0247
0248

H
H
H

C
C
C
C

:
:

C 0251
C 0252

H
:

3
B

0249
C 0250

C
C
C
C
C

gggé

15-Dec-1983 10:21:50

BR LEVEL (D) 4 ?

Answer with the bus request interrupt level used by
the
sbove RADX1. Levels 4 through 7 are acceptable. 4 is the

default.

E 82232

3
3
H
:
3

15-Dec-1983 10:24:41

0255
0256
0257
0258
0259

RQDX1 DRIVE NUMBER (D) 0 ?
Enter the
logical unit number for one drive essociated
with the IP address above.
Drive numbers are
in the
range of 0
through 3.
The number entered here must
match the unit plug on the front panel of the device.
0
is the default answer.

C 0260

ENTER UNIT TYPE:

YES

RXS50

- NO ?

C 0263

Question

3
H

C 0265
C 0266

software will not check for the correctness of the configuration as indicated by the answers to the UNIT TYPE

E 85_6’3

3
s
3
3
H
i

C
C
C
C
C
C

3
;
3
P
3
:
:
:
3
i

P
3
3
3
3
3
3
3

C
=
C
C
C
C
=
C
C

contained in the middle of the MSCP (Mass Stor
Control
Protoeol) Exerciser which reads LBNs (Logical blocks).

gh'g-e.uy
@ 183. amount of LBNs will

WRI

be READ and/or

Exerciser will turn on and READ

end/or WRITE & few DBNs.

0282

The DUP Exerciser will then

reinitislize the controller so the MSCP Exerciser can

0283

continue where it left off. The processes of reinitial-

0284

izing takes a few seconds.

WRITE ON DIAGNOSTIC AREA?

0288
0289

A “yes” answer to this statement will allow the DUP Exerciser to WRITE/READ and compare the DBNs (Diagnostic

0291

READ only the DBNs.

C 0290
C
& 0293
C
C 0295
C
C
C
C

ALSO EXERCISE DIAGNOSTIC AREA ( -NON-CUSTOMER AREA) ?
A "Yes"” answer to this question will turn on the DUP
(Diagnostic/Utilities Protocol) Exerciser.
The DUP Exerciser will read the DBNs (Di
tic Blocks) in a
sequential order from 0 to octel
(217). DBNs can only
be accessed throw DUP protocol meking the blocks unreachable through normal customer use.
The DUP Exerciser is

0281

0286

determine the type of disk

that this particular unit is; either RD51, or nxso The

0271
0272
0273
0274
0275
0276

C 0277
E 0278

asked to

:
3

C 0264

will

RDS1

0297
0298
0299
0300

10.

Blocks).

Where & “NO” answer will allow the program to

NOTE

IF yes ANSWER, DATA ON DBNs WILL BE DESTROYED.

STARTING LBN (D) 0 ?
Enter the starting logical block number of the customer
data area that you are going to test. LBNs range from 0
to 21599 (RDS51),
or O to 799
(RX50),
with
O as the
default.

VAX-11 Bliss-16 V3-555

SEQ 0006

SPIDERSUSERS: [DOUCETTE., FALCON]CMQAF BLl (&)

H1
RD/RX EXERCISER

NRQAM1

15-Dec-1983
15-Dec-1983

OOOOONOOOOOOOOONODOOOONOOONOANONnD

—

vo1.C

0301

0302

11.

ENDING LBN (MAX
Answer this

- RX50:

10:24:41
10:21:50

799, RDS1: 21599) (D) 21599 ?

question for the last customer LBN you wish

to test.
LBNs range from O to 21599 (RD51), or O to 799
(RX50), with 21599 (or 799) as the default.

NOTE:

12.

The two previous

questions are generally Software

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

EXERCISE ON CUSTOMER DATA AREA ON THIS DISK UNIT (L) ?
Answering YES will destroy m{ customer data that is
on
the
disk; therefore, the following warning message will
appear, followed by a confirmation prompt:
#+ WARNING

CUSTOMER DATA AREA WILL BE OVERWRITTEN!

...

CONFIRM (L) ?
This question will default to NO

cided
to bypass
the
there is no default.

hardware

if the operator has de-

questions.

Otherwise,

SEQ 0007
VAX-11 Bliss-16 V3-555
Page
7
SPIDERS$USERS
: [ DOUCETTE . FALCONICNRGAA 8L 1 (7)

11
NRQAM1

RD/RX EXERCISER

vo1.C
3
3
:
3

:
3

C 0329
C 0330

CO0331T
C 0332

(c: gggz
g Ogg?

C 0338

s
:
3
s
:

C 0339

C
C
C
C

Answer NO to bypass the following questions in this section.
This question should normally be answered NO when
the Exerciser is first run.
A NO answer will cause the
Exerciser to select the default parameters shown with

C 0347
C 0348

problem.

E gg;g

response

CHANGE SW (L) Y ?

each question below.

START, RESTART, and CONTINUE commands.

C 0344

C 0345
C 0346

3
3

ceecccccmccecccee-

to the

Then, depending on the errors

tected, it may be desirable to ch
to alter the test parameters and

C 0351
C 0352

de-

this answer to YES
further
isolate the

HARD ERROR LIMIT (D) 32 ?
Enter the number of hard errors allowed before a unit is
dropped
from testing.
A number in the range of 1 tc

g gggz

65535 will be accepted.

E 8;32

3
3
3

C 0357
C 0358
C 0359

When the specified number of
bytes have been transferred
to/from
a
wunit, the unit will
be dropped from testing.
When all units are dropped, an end-of-pess will be ind:
-

E 832

the Exerciser

C 0360

3
3
:
s

C
C
C
g

g g.;:g

:
3
;
3

C
C
C
C

C 0376

H
:

:
3
H

0363
0364
0365
g%

0370
0371
0372
0373

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

cated.

This

the method used to determine how long

is to run,

The
only other
way the
Exerciser will declare end-ofpass is if all units are dropped because the error limit
on each is
exceeded.
However,
the operator can always
sbort the program st =1y time by typing CONTROL-C.
4.

PERCENTAGE OF RDS1 OPERATIONS OUT OF TOTAL OPERATONS (D) 99 ?
In
order to maintain
typical usage for the devices of
this
exercise,
8 certain percentage of operations must
be directed to the RDSls (the rest go to the RXS50s).
It
turne
out
thet this percentege is very high
(as indi-

C 0374
C 037

cated
desirab

C 0377
C 0378
C 0379

centage of the operations to
the RD51s.
The numbers
associated with
usage are
adjusted internally by the
program according to device type and percentage.

RXS0s.

the 998 figure given as the default). It may be
in some cases to direct more activity to the

This is easily

done by directi

a smaller per-

SEQ 00O0&

Page

SPIDERSUSERS
: [DOUCETTE .FALCON]CNRQAA .BL1 (8)

SOF TWARE QUESTIONS

The program will ask the following questions in

0340
0341
0342
0343

s
:

5
3

15 -Dec-1983 10:21:50

VAX-11 Bliss-16 V3-555

Software Parameter Questions

C 0335

;

2.2

15-Dec-1983 10:24:41

Jl
NRGQAM1

RD/RX EXERCISER

vo1.C
:

C 0380

C 0381

C 0383

:
H
3
i

3
:
:
:

C 0382

C
C
C
C
C
C
C
C

C 0396

:
s

C 0399
C 0400

CLEAR STATISTICAL TABLES AFTER PRINTING (L) N ?

Answering YES causes the statistical fields to be cleear-

C 0397
C 0398

E :g“x,

NUMBER OF DBNs READ AT ONE TIME (18) ?

only the amount of DBNs read on one pass.
So the higher
this number the less reinitializing the program does and
the less time to run. The lower this number the more
reinitializations the longer amount of time to tranfer the

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

RANDOM SEEK MODE (L) Y

C 0403

Answer YES to ceuse block numbers to be chosen randomly.

E zg

tially.

C 0404

E zg;
.

3
:
3
:
:
3
:

C
C
C
C
C
C
C

E z:;

Answer

0409
0410
0411
0412
0413
0414
0415

NO to cause block numbers to be selected sequen-

UNITS TO BE SELCTED AT RANDOM (NO,

IMPLIES SEQUENTIAL) (L) N ?

This question is optionally asked if the answer to the
previous question is N[o].
The selection of units for
sequential
operetions is affected by the answer to this
question.
If the default
enswer is chosen (N[o]), then
units
shell be selected in a predetermined manner
in
eccordance
with the typical
seek time margins for each
device. If the slternate answer is chosen (Y[es]),
then

C 0416

the

units will be chosen

at rendom

in accordance with

the percentages specified in Software question 4.

;

E g:ég

;

C 0421

Answering YES causes all read commands

3
:

C 0423
E ag;

troller to perform two read operations on the same
address, and to compare the results.

C 0426
(c: ggz

The following message will asppear after the operator has
enswered this question:

C 0429

THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED DISK UNITS.

C 0422

READ-COMPARES PERFORMED AT THE CONTROLLER (L) N ?
“compare”

modifier.

This

include

SEQ 0009

Page

SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BLL (9)

of the DUP Exerciser.
The DUP Exerciser has to reinit
the controller every time it goes back into tie MSCP Exerciser.
This Hard reinitialization takes a few seconds.
The ratio of LBN tranfers to DBN trenfers DOESN'T change

0388
0389
0390
0391

;

15-Dec-1983 10:21:50

VAX-11 Bliss-16 v3-555

This variable adjusts the amount of DBNs read in one pass

0384
0385
0386
0387

E 8;:45
3
3

15-Dec-1983 10:24:41

the

essentially forces the con-

disk

1<
NRWJAM |

RD/RXx EXERCISER

v01.0

15-Dec-1983 10:24:41

15-Dec-1983 10:21:50

)

C 0430

C 0432

C 0431

10.

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

C
C
C
E

¢ oa3e

:
s
3
s

C
C
C
C
C

:
:

C 0aas
C 0450

12. USER-DEFINED DATA PATTERN (L) N ?
An answer of YES allows the operator to define

3
3

C 0455
E ggg

13. SELECT PRE-DEFINED DATA PATTERN (O FOR SEQUENTIAL SELECTION) (D) O ?

;

C 0458

C 0461

:
3
3
H

3
3

:
3
:

0440
O4a)

0442
0443
0444

C 0445
E 84“49

C 0451
C 0452
g zgz

C 0459
C 0460

C 0464

(c: 0465

C 0467

C 0468

C 0469

Answering YES causes all write
I/0 requests to be
ch
d to write-compare.
After each write, the controller will read the data
re-obtained from the host.

11.

and

compare

data

CHECK ALL WRITES AT HOST BY READING (L) N ?
This question will only be asked if the previous aquestion was answered NO.
Answering YES causes all writes
to be checked by the host by reading the data immediately after the write operation.
This option consumes
extra CPU time, and doubles the amount of storage re-

quired for writes.
Therefore, it is only recommended
when device write-compare operations are suspect.

his/her

own data pattern to be used in all write operations.
NO enswer will allow the operator
to
select
pre-defined data pattern in the next question.

A
-

There are 21 predefined data patterns available, select-

ed as
1
to 21 (see section 4.9),
A zero snswer will
cause patterns 1 to 21 to be sequentially
selected
for
each

write.

(Note that pattern 1 consists entirely of

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

PATTERN VALUES (0) ?

These questions will only be asked if the

decided

operator

to define his/her own data pattern.

but patterns will be entered as octal.

(D)

SEQ 0010
Page

SPIDERSUSERS: [DOUCETTE.FALCONICNRQAAR .BL1 (10

:
3
:
3

:
3

0433
0434
0435
ggg

VAX-11 Bliss-16 Vv3-555

has

The actual

L1
NRGAM1

RD/RX EXERCISER

vol1.C

15-Dec-1983 10:24:41

15-Dec-1983 10:21:50

)

C 0470

3
:

CO872
C 0473

3
3

C 0471

C 0474
E 04;5

COo478
C 0479

E 048283

C 0488

ecccncece--

SYSTEM FATAL ERRORS
cecccccccccccnccen-

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

C 0484
C 0485
C 0486

C 0480
C 0481

3
3
:

ERROR TYPES

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

0476

C 0477

H
3

3
3

3.0

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

C 0487

require some getting use to.

C 0489

E zgg

Device fatal errors are a result of:

3
s
3
3
5

C 0494
C 0495
C 0496
C 0497
Co0498

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

C 0500

3
3

CO0490
C 0491

C 0499

DEVICE FATAL ERRORS
eemeccceccccccecna-

HARD ERRORS
eeeeeceea-Hard errors are & result of:

C 0501

3
3

C 0502
C 0503

1.
2.

E gssgg

;
:
3

C 0508
CO0509
C 0510

E gg

3
3

but

g 0504

retries of a soft error or =
a non-recoverable error

o soft error if retrys are not set.
Note: Retries are executed in the controller

SOFT ERRORS
cecececncce--

C 0511

Soft errors

are media related errors.

C 0514
C 0515

Note: Soft errors ere retrieved from the controller via
the error log cepabilities of
MSCP.

will be retried by the controller.

All soft errors

VAX-11 Bliss-16 V3-555

SEQ 0011

Page

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BLL1 (11

M1
NRQAM1
vo1.0

KO /RX EXERCISER

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

)

[

H
:

C 0516

COS18

C 0520
C 0521
C 0522
C 0523
C 0524
C 0525

C 0527

C 0529

C 0519

H
3
:
3
3
s
3

5.1

C 0517

ERROR INFORMATION
cemccecacccccccn--

All general error messages will include the type of error
(system-fatal, device-fatal, hard, soft) and a unit number.
If the error applies to a controller, then only the first
unit number of the controller will be given, (The user will
know the other unit numbers when subsequent "drop unit”
messages are printed).

C 0526

Basic

error

mess

provide more details about the

C 0528

error. The Exerciser will

C 0530

cases

3
3
H
:

C 0533
C 0534
C 0535

tc'. 82;9

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
values will be in octal.

C 0538
E ggzg

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

s
3
3

along

E ggg%

C 0541

with

print all basic

the disk address,

error messages,

applicable.

In some

where a device-fatal error applies to a controller,

the controller's IP address will be printed.

INITIALIZATION ERRORS

C05%2
C 0543

0544
0545
0546
gz;

Two kinds of errors will be
reported to the operator
during the Initialization Test. The S;oto--f.tnl error is too many units specified.
A system-fatal error will cause
the Exerciser to sbort.

3
8
H

C 0549
C 0550
E 8333

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

g gssgz

3
$
3
:

C
C
C
C

0555
0556
0557
0558

Vector Test failure

BR Level Test failure

0559
0560

Initialization sequence failure

0561
0562

Online failed

0563

Access failed

3
’
:
3
H

C
C
C
E

C
C
C
C
C

3.2

3
H

3
s
3
3

SEQ 0012

VAX-11 Bliss-16 Vv3-555
Page
12
SPIDERSUSERS:
(DOUCETTE .FALCONICNRQAA .BLL1 (12

cccecccccccceacccccnn=

N1
NRQAM1

RD 7RX EXERCISER

v01.C

15-Dec-1983 10:24:41

15-Dec-1983 10:21:50

)

H
:
:

C 0564

3.3

C 0565
CO56
C 0567

c-crccemcecccccea-

reported during

this test will orig nate

:
3

C 0569
C 0570

from MSCP end message packets.
The status code field » |1
rror
be converted to text and printed as part of a basic

E gg;g

messages are enabled.

:
:

C 0574
C 0575

H
:

C 0578

3
:

C 0581
E 855:§

3
3

H
.

C 0580

C 0584

C 0585
(c: 8?,:?

E 82:3

C 0590

:
3
s

C 0593
C 0594
C 0595

5
H

;

$
3
3

C 0577

C 0579

C0591
C 0592

3.4

subcode value

will follow if extendec «rror

Disk

unit

went offline

detailing the reason)

error conditions

(a sub-code

may

Compare error

Data error (a sub-code may follow)

Drive error (a sub-code may follow)

Host buffer access error

Media format error (& sub-code may follow)

ERROR LOG MESSAGES
~ceccccccaccneccn--

The contents of the error-log messages received from the
controller are printed as received,
and should be deciphered
using the MSCP specs.

C 059

C 0597
C0598
C 0599

Any

The following list represents some of the
reported via MSCP:

C 0576

message.

C 0571

3.5

MSCP ERRORS
cecccccaa-a-

s
}
:

C 0600
C 0601

An MSCP error occurs when the host receives an Invalid
Command End Message from the RADX1.
In such cases,
the host

C 0603

C 0604

for the error.

C 0602
C 0605

will print out the erroneous command followed
If

entire contents of the end
without

the

extended printouts are enabled,

interpretation of the data.

SEQ 0012

Page

SPIDERSUSERS: ([DOUCETTE.FALCONICNRQAA .BL1 (13

EXERCISER ERRORS

Most errors

C 0568

VAX-11 Bliss-16 v3-555

reason

then the

will be displayed in octal

B2
NR@AM1

RD/RX EXERCISER

\‘OX.C

C 0606

CO0608

C 0607

3
:

C 0629
C 0610

3
3

C 0613
C 0614

3.6

15 Dec 1983 10:24:41
15 -Dec

1983

10:21:50

VAX-11 Bliss- 16 v3 555

C 0611
C 0612

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

C 0615

(example)

(comments)

3
:

C 0618
C 0619

CRN: XXXXX
MESSAGE TYPE:

e DISK:

'DISK UNIT NUMBER

C
C
C
C
C
C
E

0621
0622
0623
0624
0625
0626
gg;

STATUS CODE:
WUNIT OFFLINE
! STATUS CODE OF COMMAND
STATUS SUB-CODE:
NO VOLUME MOUNTED OR DRIVE DISABLED BY SWITCH ! SUB CODE
BYTE COUNT IN COMMAND XXXXX
INUMBER OF BYTES WANTED TO READ
ACTUAL @ OF BYTES TRANSFERED XXXXX !NUMBER OF BYTES ACTUALLY READ
170 BUFFER ADDRESS (32 BITS)
XXXXXX XXXXXX
LBN: XXX
! LBN WANTED TO READ
END MESSAGE FLAGS:
! THERE ARE NO END FLAGS FOR THIS ERROR

H
:
}
:

C
C
C
C

0629
0630
0631
0632

C 0637

The stetus code in
an end messages is broken into two
pieces. The first S bits represent the major status which is given
by the “invelid command” message.
The 11 remaining bits represent
the sub-code,
which tells in greater detail the error in the controller.
The LBN is the logical
block on the disk the controller
wes trying to read.
The byte count refers
to the number of bytes
the controller was going to read off the LBN. The actuasl number of
bytes
trensfered refers
to the
number of bytes
read before the

3
3

3
:

:
:
:
3
:
:
3
3

:
s
:
:
3

C 0616
C 0617

C 0620

C
C
C
C

0633
0634
0635
0636

C 0638

E 0639

B
3
3
P

0640
C 0641
Co642
C 0643

P
:
3
;
:
P

C
C
C
C
C
C

:
3

C 0644
C 0645

0646
0647
0648
0649
0650
0651

(C: 0652
0653

message.

XXX

- SEQUENTIAL

COMMAND ;: -MSCP -READ - COMPARE

error.

!CONTROLLER PACKET NUMBER
'THIS IS THE PORT MESSAGE TYPE

ICONNECTION ID AND COMMAND AND MODIFIER GIVEN T0 DRIVE

The end message flags give any flags that might have been

set by the controller.

is pretty apparent that this error was

caused by something physically switching the disk offline.
3.7
=

DUP ERRORS
ceecennea-

A DUP error occurs when the host receives
an Invalid
Commend
End Message from
the RADX1.
In such cases, the host

will print out the erronecus commend followed by the
reason
for the error.
There are two major places where errors in
DUP will
occur. The first being in the status code much the same as MSCP,
and the second in the DUP 1I/0 Buffer. Using the DUP sub-protocol
(using Receive/Send commands to communicate with controller local

programs (p. 25 of DUP.VOS)) the controller may send en error
message to the host by writting in the DUP 1/0 Buffer.

Page

SPIDERSUSERS:[DOUCETTE FALCONICNRIAA . 8B L

SAMPLE MSCP ERROR STATEMENT
cececmesccceieieaaa

SEQ 04

(14

G2
NRQAM]

RD/RXx FYERCISER

vOol.C

19 Dec -1983 10:24:41
15 Dec

)

:
H

C 0654
C 0655

C 0657

:
3
:

C 0660
C 0661
C 0662

C 0664

C 0677

3
3

:
3
:
:
:
3
:
:
:
:
3
:
3
:
s

C 065

ceeeieecscceceeiiaiannnn

(example)

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

¢ DISK: XXX
1DISK UNIT NUMBER
CRN: XXXXX
{CONTROLLER PACKET NUMBER
MESSAGE TYPE: - SEQUENTIAL
{THIS IS THE PORT MESSAGE TYPE
COMMAND
: -DUP -RECEIVE DATA
'CONNECTION ID AND COMMAND GIVEN TO DRIVE
STATUS CODE: -SUCCESS
! STATUS CODE OF COMMAND
ACTUAL # OF BYTES TRANSFERED XXXXX !NUMBER OF BYTES ACTUALLY READ
170 BUFFER ADDRESS (32 BITS)
XXXXXX XXXXXX
MESSAGE TYPE:
! TYPE OF COMMUNICATION
es FATAL ERROR
MESSAGE NUMBER:
! MESSAGE TOBE GIVEN OR RESULY EXPECTED
-- SUCCESS/FAILURE CODE
MESSAGE ERROR CODE:
! ERROR LISTING

C o678
C 0679

C 0680

C 0683

(comments
)

- ILLEGAL UNIT NUMBER

DBN:

XXX

The DUP Error messages ere almost like
the MSCP

t they contain an extra three clessificetions.

C 0682

FESSAGE TYPE, MESSAGE NUMBER, MESSAGE ERROR CODE.

C o684

program.

c 823?

by en ILLEGAL UNIT NUMBER.

3
3
3
5
:

C
C
C
C
C

SAMPLE DUP ERROR STATEMENT

C 0663
0665
0666
0667
0668
0669
0670
0671
0672
0673
0674
0675
0676

0685
0685
0687
0688
0689

of 8 DUP sub-protocel for communicati

These are the

These
asre part

with 8 controller locsal

The I/0 buffer address contains the address of the DUP

170 Buffer which contains the MESSAGE information.
The
stetus
code in
this end
is succesful which
meens the controller was OK but it did not
tend the host
message or something on the host side ceused the controller to error
while running the controller locel pro.r-.
This error was produced

The disk went off line.

SEG

Page

SPIDERSUSERS: [DOUCETTE. FALCONICNRQAL B l

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

C 0681

3.8

10:21:50

C 0658
C 0659

198%

VAX-11 Bliss-16 v3-555

’

(

D2
NRQAM1

RD/RX EXERCISER

vOo1.¢

1Y Dec-1983 10:24:41

15-Dec -198% 10:21:50

)

C 0692

CO0694

C 0693

:
3
:

C 0695
C 06%6
C 0697

3
3
H

C 0704
C 0705
C 0706

:
:
:
:
3
:

4.0

cevcmceccccccccanncccecsnnvennonnn

A summary report is printed at the end of
each pass of
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 questions. Any units added to the test cycle will alsc begin with
cleared statistics.
There are two basic listings one for LBNs and one for

0698
0699
0700
0701
0702
0703

C
C
C
E

0707
0708
0709
8;10

H
:
:
H
:

C
C
C
C
(c:

0712
0713
0714
0715
8;{?

E g;%g

controller or drive related errors

E 8;52

host (the CPU) related errors.

DBNs.
The DBN listing will only contain RDS1s for the simple
reason that tho! contain DBNs and RXS50s do not.
The DBNs
are READ and WRITTEN by blocks instead of by bytes. All units
contain LBNs. The errors for each unit will
be listed next to
the LBNs.
Errors are grouped into two besic categories:
herd and
soft.
Each is sub divided into four more catagories, depending on the most probable classification for that error.

The sub categories are:
1. disk related errors

2. seek (or format) releted errors

E g;gg

C 0724

UNT
@

TYPE READS READ MRITES WRITTEN DAT SEK DRV HST DM SEK DRV HST

:
H

C 0727
C o728

RDSI

:
3

C 0731
C 0732

UNIT

DISK

]

TYPE

READS

o OF

& BLKS

READ

WRITES

WRITTEN

E g;gz

DBNRDS1

XXXXX

:
:

E g;g

c °7a
c 07”

g 8;';‘3

All numeric values ere in decimal radix.

“m
Rm

@ OF BYTS

& OF

BYTES

-- MRD ERS
-

XOXXX XXXX

XXXXX

XXXXXX

..
LR ]

..
-»

L )
LA )

L
L

e OF

SFT ERS --

@ BLKS

SEQ O0ls

Page

SPIDERSUSERS
: [DOUCETTE . FALCON JCNRGAR B 1 (14

PERFORMANCE AND PROGRESS REPORTS

C
C
C
C
C
C

:
3
3

VAX-11 Bliss-16 v3-555

NRQAM1

RD/RX EXERCISER

v01.¢

15-Dec-1983 10:24:41

15-Dec-198% 10:21:50

)

C 0737

;

CO739

:
:

C 0741
C 0742

:
3

:
:

:
3

H
3
3
H

3
:

C 0738

C 0740

C 0746

C 0748
C 0749

VAX-11 Bliss-16 v3-555

TEST SUMMARY

5.0

eeceeeaaaa--

S.1

INITIALIZATION SUBTEST
eeeeeeeeccesseceasans

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 slways precede
the execution of any other test.

C 0750
C 0751
E 8%
C
C
C
C
C
C
C

0754
0755
0756
0757
0758
0759
0760

gg;g;

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

3
3
3
3
3
:

C
C
C
C
C
E

0763
0764
0765
0766
0767
g;gg

Any device-fatal or hard errors encountered duri
this
test
will
cause the
iate unit(s) to be
kP
basic error messages are
led, then the program will print
out the specific resson for droppi
the unit(s). Henceforth,
the
failed unit(s) will
not be
ted unless the operator
intervenes (adds unit(s) or restarts Exerciser).

C 0770

3
3
3
3
3
3
3
F
3
:

C 0773
EOIM
C 0775
C 0776
C 0777
C 0778
C 0779
C 0780
C 0781
C o782

3
3
;

C 0784
C 0785
C 0786

:
F
:
:
3
H

First,
the presence of each device rori-tor will be verified,
along with a check on the BR level specified by the

Upon succesful completion of the Initialization Subtest,

E g;‘%

C 0783

C o7a7

the program
=

S.2

will

begin executing the Exerciser.

EXERCISER
semdseese
The purpose of this subtest is to exercise the
disk
drives
in @ manner gimilar to the typical usege under standard operating systems.
Execution of this test should
give an indicetion of the
ati
performance of the disk
ive subunits.
This test will
utilitize rendom disk addresses,
random word
counts,
and detes patterns,
ell subject
to the
limits and
specificetions made
the operator.
All
tected disks will

be subject to read-only

operstions,

while unprotected disks

be read or written, Mh&:‘ the enswers given to the
softwere parameter gquestions.
-of-pass
will be declared
when the specified number of bytes have been transferred for

sll the disks teken as a whole.

SEQ 0017

SQIDEROUSERS:(DOUCE"E.FN.CON]CM%QAF.;S (17

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

C 0743
E 8;:;
C 0747

{

RD/RX EXERCISER

OOOOOOOOONOOOOOONNOOOONOOOONONDOOOOONONOOOONONON

WEORE

SRR

NRQAM1
vo1.C

o788
0789
0790
0791
0792
0793
0794
0795
0796
0797
0798
0799

0801
0803

0805
0807
0810
0811
0812
0813
0814
0815
0816

0817

0818
0819

0821
0823

0827
0828
0829
0830
0831
0832

15-Dec-1983

10:24:41

15-Dec-1983% 10:21:50

VAX-11 Bliss-16 v3-555

ted to the host,
an
error message
will
be diplayed on the
console
terminal and
the error will be tallied for the summary report. The unit will be dropped if the hard error count
has exceeded the specified limit.

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

used DUP exerciser writes and reads DBNs. The DUP exerciser is
used once per 25 LBN transfers or alot less than the MSCP
exerciser.
The two Exercisers use a some what different
protocol to tranfer 1I/0.
It is possible to go from MSCP
protocol
to DUP protocol without reinitislizing the controller
but i
ible to go from DUP to MSCP protocol.
Therfore after

Exercise nass the controller is reinitialize and control

given back to the MSCP Exerciser.
The reinitialization process
tekes a few seconds.
For this resson 8 verisble is pleced in
the DUP Exerciser to allow it to transfer more than 1 DBN per pass.
The variable,”X”, is multiplied by 25 to give the amount of MSCP
transfers before the DUP Exerciser cen tranfer "X" amount of DBNs.
The higher the veriable the less reinits the controller must do.

5.3

DROP UNIT SUMMARY

During the Initializetion Subtest,
individual units will
be dropped from the test
sequence if they are unable
to be
::;.oufit online or the operator specified device does not match

During the Exercise, the progrem will drop a unit for one
of three ressons. The normal path is for each unit to complete
the transfer of N megabytes. where N is specified by the operstor during SW guestioning and be soft-dropped.
Otherwise,
a
unit will be hard-dropped if the number of hard errors encountered exceeds the operator-epecified 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 o transfer
limit was sespecified, in which
cese
the unit wes soft-dropped,
the statistics may or may not
e :;omdlz depending on
the operators
answer
to Software
quest

Page

SPIDERSUSERS
: [DOUCETTE .FALCON]JCNRQAA .BL1

If a read/write error occurs during this test,
then the
RGDX1 CONTROLLER
will initiate an
appropriate number of retries.
If all retries fail, then a hard error will be repor-

the

SEQ 0018

18
¢ 18

Ge
RD/Rx EXERCISER

OOOOOOOOOOOOOOOOOOONONNANOOOOOOOOOOOONODOOO0OOONNNNNN

TR D

LR LI

DRT

NRGAM1
vol1.0

0833
0834
0835
0836
0837

0838
0839

0840
0841
0842
0843

0845
0846
0847
0848
0849
0850
0851
0852
0853
0854
0855
0856
0857
0858
0859
0861

15-Dec-1983
15-Dec-1983

ERROR CODES GENERATED BY NRQA EXERCISER

6.0

SYSTEM FATAL ERRORS
1

More than 4 units specified

DEVICE FATAL ERRORS
Controller couldn't be addressed
at the address given.

Wrong IP address selected

Controller
didn't
interrupt at
the interrupt vector given,

Wrong vector address selected.

Controller
didn't
interrupt at
the BR lelvel given.

Wrong BR level selected.

Init sequence failed.

Either

Fatal Controller error,

0874

0875
0876
0877
0878
0879

the

four

steps did

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

Failed to bring unit on-line.

9s 22 end 23.)

0865

0869
0870
0871
0872
0873

one of

initielization

not receive
the
correct
response
from
the
Controller,
or
one
of the
steps timed-out.

0863

0867

SEO 0(/"
VAX-11 Bliss-16 v3-555
19
SPIDERS$USERS: [DOUCETTE. FALCON]CMQAA BLI (19

10:24:41
10:21:50

Write protect conflict.

Access to

Unit went off-line.

inner track failed.

'Set Controller
to send
Failed
Characteristics” command.

The
wunit
wAS
hardware
write protected
and write
operations
were reguested
on the unit,

Innermost

track's

may be corrupted.

header

offunit is
the
Either
line or the Diagnostic is
corrupted because of any

problems with its RAM,

NRQAM1

RD/RX EXERCISER

V)OX.C

15 Dec-1983 10:24:41

15-Dec-1983 10:21:50

VAX-11 Bliss-16 V3-555

C 0681

C 0882
C 0883
EO“OBMS

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

Problem with the
Controller microcode or the port/
DMA intterface.

3
:
3
:

C
C
C
E

0886
0887
0888
8383

Failed to send 'On-line’

command

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

:
:
:

C 0891
C 0892
E 8:3‘3

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

Problem with the Controller's microccde or
the
port/DMA interface.

E g:g

24 Device went to available state

3
3
:
3
H

C 0897

co898
C 0899
C 0900
C 0901
C 0902

;

C 0903

H
H
H
3
H
3
:
3
3
s
:
3
3
s
:
3

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

H
H
3
3
3

H
3
P
P

;

C
C
C
C
C

C
C
C
C

cecccceca--

MTMMSCP ERRORS

0904
0905
0906
0907
0908

0909
0910
0911
0912
0913
0914
0915
0916
0917
0918
0919
0920
0921
0922
0923
0924

0925
0926
0927
0928

E 0929
0930

Fault switch or door mechanism

HARD ERRORS

Controller received

command .

invalid

The

ted

dswtuc is corrw

because

of “

lems with
its R
there
is
a
pnblo- -oth
the
Controller
microde
(RAM or ROM)
or
there is
problem with
the port/DMA
interface.

Command aborted by the
ler.

Medias format error.

Device write protected.

Controller
pare error.

---

Data error.

CRC
error
in
the
date
field of a disk block.

Host buffer access error

Controller error.

Difficult
to
catagorize
without
looking
at
the
error
sub-code
or
any

read

Control-

write com-

Commend
timed-out
Controller.

essociated
sage.

Page

SPIDERSUSERS: [DOUCETTE .FALCONICNRIAA .BL1

:
:
3

SEQ 00eG

the

error-log mes-

(20

12
NRQAM1

RD/RX EXERCISER

\;01.0
H

C 0931

C 0932

C 0935

C 0937

3
:

C 0933
C 0934

15-Dec-1983 10:21:50

Drive error.

See #40,

Host write compare error.

Error detected

C 0936

C 0939
E &g

3
3
:
3
:
:

C
C
C
C
C
C

0942
0943
0944
0945
0946
0947

0948
0949
0950
0951
0952
0953

:
3
3
:
:
:

C
C
C
C
C
C

C 0955

compared

when

the

Host

datea

be a problem with the Host
or Controller RAM,

43 Message from

internal diagnostics

Duplicate unit number
by the Controller.

detected

Unknown end code received.

DUP ERRORS
Host found error
46 DBN compare error.
Message errors

See #40.

--Problem with the Controller microcode or the port/
DMA interface.

see # 42

Controller local program on

C 0956
E %;

48 Illegel Unit @

Unit went offline

E 0959

49 Illegal relstive or physical BLK ¢

E m

50 Device Error

Possible write protected

:
3
s
3

C
C
C
E

0963
0964
0965
%

S1 Zero lenght message

see ¢ 31

3
3
3
3
;
3
3
3
H

C
C
C
C
C
C
C
C
(é

0968
0969
0970
0971
0972
0973
0974
0975
gg;g

C 0978

Status errors

RAM may be corrupt

see & 31

S2 Invelid Command

see ¢ 31

53 No region available

see & 31

54 No region suitable

see & 31

55 Program not known

see & 47

56 Load failure

57 Stend slone type program

see & 31

58 DUP unkown status code

see ¢ 31

SEQ 0021

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRGAA .BL1 (21

47 No local media

3
:

C 0954

CPU

VAX-1] Bliss-16 V3-555

written and read back. May

C 0938

:
:

15-Dec-1983 10:24:41

Je
NRQAM1

RD/RX EXERCISER

\)'01.0
:
H
:
3

:
3
3

C 0979
C 0980
Co0981
C 0982

=000

15-Dec-1983 10:24:41

15-Dec-1983 10:21:50

VAX-11 Bliss-16 Vv3-555

SOFT ERRORS
seeeeecee--

Controller error.

See error-log packet for
details as the exact cause
may not be evident.

E m

Host memory access error.

See 050.

E 0989

Disk transfer error.

See #50.

C 0991

C 0994

3
3

C 0986

C 0992
C 0993

‘'Standard

error.

Disk

'Small Disk' error.

Inteconnect’

See 050,
See 050,

SPIDERSUSERS: [DOUCETTE, FALCON]CMQA# BLI (22

C 0983
C 0984
C 0985

SEQ 0022

<o
(

1043
1044
1045
1046

g
g

FFCO

FF80
FFOO0

FEOO
FCO0
F800
F000
E000
€000

000000

111
111
111
111
111

110

g8 §F’8

nnnflnpuwcs

S T Sl o ol ed et et on
et P et et b it b e

o e

O
S flflhnwnnnwpnos
S S S ol el ed el ot et et ad e
8% P e e e et et et e b et bt e et e et

FFFO
FFEO

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

001
011
111
111
111
111
111
111
111
111

o
e

Pattern 8

010 001

177777

110 011

P e

037777
077777

017777

001 011

o o

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777

101

8
£28388888888888
EEE28888888888 8§ @

Pattern

030221

111 111

Pattern

031463

Pattern

105613

111

§8888gsss
§88888888
§88888888

1041
1042

Pattern

111

177777

e
oO
S S

1033
1034
1035
1036
1037
1038
1039
1040

Pattern

OO0 O0O00OOO00O0000O0

1029
1030
1031
1032

Pattern

NUMBERS

Orepepiprpipapapspijpapapapapaies

1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028

1010
1011

Pattern

BINARY

OCTAL

1009

HEX

1000
1001
1002
1003
1004
1005
1006
1007
1008

DATA PATTERNS

7.0

0995
0996
0997

(alslslslslislsisisinisislialslslslsisiaslalslialslislialslsislalislialslalslinlialalalalslialslslslalslnlalalalaly]

88
S
8
S5
S5
85
@r
Be
SF
SE
SF
S5
S5
BE
B0
B
B
S5
B4
B
S
S5
SF
ST
B
S5
S5
B8
S5
B
B8
B4
S8
S5
S5
S5
SR
BE
RE
S
B
BE
BE
RS
RE
B
EE
BE
BE
RS
MR ORE

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

NRQAM1
vo1.C

VAX-11

Bliss-16 v3-555

SPIDERSVUSERS: [DOUCETTE .FALCON]ICNRQAA ,BL1

(

NRQAM1
\;01.\3

:
:
:

RD/RX EXERCISER

C
C
C
C

:
:

C 1054
C 1055

0000

000000

0 000 000 000 000 000

C 1057

FFFF

177777

3 333 333 338 11 111

:
3
:

1048
1049
1050

Pattern 9

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

1051

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
FFFF

177777
177777

1 %38 311 331 13 131
3 131 33 121 11 11

FFFF

C 1052
C 1053

0000

C 1056

1777717

000000
177777

1 111 313 131 1113 113

0 000 000 000 000 000
1331 332 131 111 111

C 1058

0000

000000

0 000 000 000 000 000

C 1060

0000

000000

0 000 000 000 000 000

C 1062

0000

000000

0 000 000 000 000 000

g 1822

Pattern 10

B86D9

133331

1 011 011 011 011 001

5555
5555
5555
BAAA
ARAA
AARA
5555
5555
RAAA
RAAA

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252

0 101 010 101 010 101
0 101 010 101 010 101
0 101 010 101 010 101
1 010 101 010 101 010
1 010 101 010 101 010
1 010 101 010 101 010
0 101 010 101 010 101
0 101 01C 101 010 101
1 010 101 010 101 010
i 010 101 010 101 010

2020
2020
2020
D2D2

026455
026455
026455
151322

0 010 110 100 101 101
0 010 110 100 101 101
0 010 110 100 101 101
1 101 001 011 010 010

D2D2
2020
2020
D2D2
D202
2020
202D
D202

151322
026455
026455
151322
151322
026455
026455
151322

1 101 001 011 010 010
0 010 110 100 101 101
0 010 110 100 101 101
1 101 001 011 010 010
1 101 001 011 010 010
0 010 110 100 101 101
0 010 110 100 101 101

D202
2020
D202
2020
D202
202D

151322
026455
151322
026455
151322
026455

1 101 001 011 010 010
0 010 110 100 101 101
1 101 001 011 010 010
0 010 110 100 101 101
1 101 001 011 010 010
0 010 110 100 101 101

3
3

C 1059

FFFF

C 1061

FFFF

E {822

FFFF

3
3
3
3
3
3
:
3
H
H

C
C
C
C
C
C
C
C
C
C

1067
1068
1069
1070
1071
1072
1073
1074
1075
1076

Pattern 11

F
P
3
3

C
C
C
C

1084
1085
1086
1087

Pattern 12

F
3
3
F
'
:
F
3

C
C
C
C
C
C
C
C

1089
1090
1091
1092
1093
1094
1095
1096

C
C
C
C
C
C

1098
1099
1100
1101
1102
1103

3
3
3
3
3
3

5
s

C
C
C
C
C
E

1077
1078
1079
1080
1081
igg

5555
ARRA
5555
20RAR
5555
AAAA

C 1088

D202

C 1097

2020

177777

052525
125252
052525
125252
052525
125252

151322

026455

4 331 23% 151 133 i

11k 238 331 33) 1

1111 111 111 111 111

0 101 010 101 010 101
1 010 101 010 101 010
0 101 010 101 010 101
1 010 101 010 101 010
0 101 010 101 010 101
1 010 101 010 101 010

1 101 001 011 010 010

0 010 110 100 101 101

SEQG 0C24

VAX-11 Bliss-16 V3-555
Page 24
SPIDERSUSERS:
[DOUCETTE .FALCON]ICNRGAA .BL1 (24

1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140

1141
1142
1143
1144
1145
1146

1147
1148
1149
1150
1151
1152
1153
1154
1155
1156

077777
Pattern 16

=
-

001
010
100

111

ol el et ed et ot "L d et ot od-ad.an
el o ol ed ed et ot L d et ad adan
P b it ot e Pt s ) Pt P Pt Pt

133331
133331
133331
155554
155554
155554
133331
133331
155554
155554
133331
155554
133331
155554
133331
155554

1127
1128

173777
167777
157777
137777

1126

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777

1116

O OO OOCOOO0O000000

Pattern

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

000001

8388888888888
§888358888888888
8888888522888888 ¢
§888888888832388
§888888888338

1115

1117
1118
1119
1120
1121
1122
1123
1124
1125

Pattern

066666

) et et el e e i i b b e b i i i et

6DB6

Pattern

P e e i e e i (e e i e o s e S e

1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114

RERgTRmCEaRREeS

OOOOOOOOOOOOOOOOOOOOOONOOOOOOOOOOOOONOONONOONOOOONNONNO

e
8
8
S
S
B
Se
S
BE
S5
S5
B
S5
B
B
S5
B
S5
S5
B8
S5
B
S5
B
S5
B
S
S8
B
T
S
BE
S8
S5
B8
S5
BE
BE
B8
Se
RS
S
BE
BE
BE
EE
B
B
B
SR
WA
WA ORE

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

NRQAM1
v0ol1l.C

111

o011

011

011
101
101
101
o011
o011
101
101
o011
101
o011
101
011
101

VAX-11

Bliss-16

V3-555

SEQ 002%
P

SPIDERGUSERS:[DOUCEIYE.FALCON)CNROAA.gEI (24

Ne
NRGAM1
gOI.C

RD/RX EXERCISER

€ 1157

:
:
:
3
:
3
3
3
3
:
s
3
:
s
3
3
3
s

C
C
C
C
C
C
C
C
C
C
c
C
C
C
€
C
C
E

3
3
3
3
:
3
3
3
s
3

C
C
C
C
C
C
C
C
C
C

1180
1181
1182
1183
1184
1185
1186
1187
1188
1189

:
3
s
F
3
3
:
3
s
3

C
C
C
C
C
C
C
C
C
C

1191
1192
1193
119
1195
1196
1197
1198
1199
200

3
s
3

C 1158
C 1159
C 1160

Pattern 17

1161
1162

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

LBN
8D36
8D36

LBN
106466
106466

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

72C9
72C9

071311
071311

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

1164
1165
1166
1167
1168
1169

8036
8D36
8036
8D36
72C9
72C9

106466
106466
106466
106466
071311
071311

1
1
1
1
0
0

1177
ii;g

8D36
8D36

1163

72C9

1170
1171
1172
1173
1174
1175
1176

C 1190

72C9
72C9
7209
8D36
8036
8D36
8D36

Pattern 18

071311

071311
071311
071311
106466
106466
106466
106466

106466
106466

0 111 001 011 001 001

0
0
0
1
1
1
1

000
000
000
000
111
111

110
110
110
110
001
001

100
100
100
100
011
011

110
110
110
110
001
001

111 001 011 001 001
111 001 011 001 001
111 001 011 001 001
000 110 100 110 110
000 110 100 110 110
000 110 100 110 110
000 110 100 110 110

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

8D36
LBN
72C9
8D36
8036
8036
72C9
72C9
7209
72C9

106466
LBN
071311
106466
106466
106466
071311
071311
071311
0713:1

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

001
110
110
110
001
001
001
001

8D36
8D36
8D36
8036
72C9
72C9
72C9
72C9
72C9
72C9

106466
106466
106466
106466
071311
071311
071311
071311
071311
071311

1
1
1
1
0
0
0
0
0
0

110
110
110
110
001
001
001
001
001
001

8D36

1064606

110 110

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

110
110
110
110
001
001
001
001
001
001

100
100
100
100
011
011
011
011
011
011

SEQ 0026
VAX-11 Bliss-16 V3-555
Page
27
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BL1 (26

s
i

1
NRQAM
vol.¢

RD 'Rx EXERCISER

1% Dec
19 Dec

1983
1983

1217
1218
1219

134631

134631
134631
134631

1220
1221
1222

1223

1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248

LBN

134631
134631
043146
043146
043146
134631
134631
134631
134631
043146
043146
043146
043146
043146
134631

Pattern 20

Pattern 21

134631
LBN
043146
134631
134631
134631
043146
043146
043146
043146
134631
134631
134631
134631
134631
043146
043146
043146
043146
043146
043146
LBN

=000~

e rO0000H

Patterr

1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216

COOCOOOrH
It OO0
MO

OOOOOOONOOOONONOONONOOONANONOONONNNNONNONONONNONNND

BE S5

)

10: 24:41
10: 21:50

LBN
100 110 011
100 110 011
100 011 001 100
100 011 001 100
100 011 001 100
011 100 110 011
011 100 110 011
011 100 110 011
o011 100 110 o011
011 001
011 001
011 001
011 001
o011 001

011
011

100
100
100
100
100
100

110
110
110
110
110
110

100 110
LBN
o011 001
100 110
100 110
100 110
o011 001
o011 001
o011 001
011 001
100 110
100 110
100 110
100 110
100 110
100 011 001
100 o011 001
100 011 001
100 011 001
100 o11 001
100 011 001
LBN

001
001
110
110
110
001
001
001
001
110

110
110
110
110
001
001
001
001
001
001

001

110
001
001
001
110
110
110
110
001
001
001
001
001
110
110
110
110
110
110

VAX

v3 555

“age

SPIDERSUSERS: [DOUCE TTE . F ALCON]ONR
JA/L H

e &
RD/Rx EXERCISER
PROGRAM HEADER

NRQAM1
vOol1.0

)

1% -Dec 1983
15 -Dec -198%

10:c24:41
10:21:50

DR TR

THE DO

)

®F

®r

)

1249

1250
1251
1252
1253
2742
2743
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757

2759
2760
2761
2762

ssbttl

' PROGRAM HEADER’

library ‘CNRQAA.L16';

! RDRX EXERCISER GLOBAL L IBRARY

require 'BLSMAC.REQ';

! DIAGNOSTIC SUPERVISOR LIBRARY

literal

DSSNBR_OF _TESTS = 1;

! NUMBER OF

TESTS IN THIS DIAGNOSTIC

EQUALS;

POINTER (ALL);
L

!
!

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

HEADER (sascii'

CNRQA', sascii'A', dwascii'0’',

32767,

1, PRIOO);

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

DISPATCH (DSSNBR_OF _TESTS);

SEQ

OGCoA

VAX-11 Bliss-16 v3-555
Page
SPIDERSUSERS:
[DOUCETTE ,FALCONICNRIAL 811

9
-5

D4
RD/RX EXERCISER

1% Dec

GLOBAI

DATA SECTION

2763

ssbttl

‘GLOBA. DATA SECTION'

2765
2766
2767
2768
2769
2770
2771
2772
2773
2774
2775
2776
27177
2778
2779

2764

psect

global = $FFF$ (read, nowrite, execute,

10:24:41

1983 10:21:50

VAX-11 Blies-16 v3-555

local, concatenate);

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

CST_ADOR :

ref block [CST_LEN, word) field (CST_FIELDS),

* CONTROLLER STATUS TABLE ADDRESS OF "CURRENT” CONTROLLER

DCT : blockvector [MAX_CTLR, DCT_LEN, word] field (DCT_FIELDS),

! DRIVER CONTROLLER TABLES

DCT_ADDR : ref block [DCT_LEN, word) field (DCT_FIELDS),

! ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE

ref rdrx field (RC_REG)

! DEVICE ADDRESS OF “CURRENT” CONTROLLER

S0 B0

IRDRX_ADDR : ref rdrx field (RC_REG),

' DEVICE ADDRESS OF INTERRUPTING CONTROLLER

B0 B8

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

! BUFFER CONTAINING DUP INFORMATION FROM RECEIVE AND SEND COMMANDS

vector [MAX_UNITS s TALLY LEN,

T_ADDR :

ref block [TALLY_LEN, word) field (T_FIELDS).

! ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT

word) field (T_FIELDS),

! STATISTICS TABLES

TALLY

! STATISTICS TABLE FOR CONTROLLER ERRORS

C_ERR_TBL : blockvector [MAX _CTLR, C_ERR_LEN, word] field (C_ERR_FIELDS),
: bloekvoet?r

PKI"O“E'FKTHLEN. word] field (PKXT_FIELDS).

“SeP_PKT

! ADDRESS OF AN MSCP PACKET (INTERUPT PROCESSING)

IPKT_ADOR : ref block [PKT_LEN, word] field (PKT_FIELDS),
:

PKT_USE

vector (’K:.% mr.:g‘
hxlt

lm TABLE

RETPKT : blockvector [RP_CNT, RP_LEN,
RP_USE :

S8
S5
BE S5

]

! CURRENT RETURN PACKET ADDRESS

ELOG_PKT : blockvector&w EP_LEN, word] field (EP_FIELDS),

]

BE
SR
B
B8
BE
RE
EE
B
WA ORE

byte,

'! m\'h
PACKET POOL ALLOCATION TABLE
CURRENT RETURN PACKET INDEX

ref block [RP_LEN, word] field (RP_FIELDS),

RP_ADDR

word] field (RP_FIELDS),

1 RETURN PACKET POOL

tor [RP_CNT,

o
RP_INDX : word,

2810
2811
2812
2813
2814
2815
2816
2817
2818

BUFF _ADDR : vector [MAX

-LOG PACKET SAVE AREA

CNT),

BUFF _OMN : vector [MAX_BUF_CNT, byte, signed],
I0DQ : vector [IODQ_LEN, byte),

IODA_IN : word,
I00Q_OUT : word,
ENTRY_REASON : byte,
EOP_FLAG : byte,
DUP _FLAGS : WORD,
CCTLR

word,

SEQ OG-

Page

SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAR . BL 1

lobal

RORX_ADDR :

15-Dec

1983

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

Be S8

S¢

NRQAM1
vo1.0

! TABLE OF I/0 BUFFER DESCRIPTORS

! I70 BUFFER OWNERSHIP (CONTROLLER NUMBER)

I/0 DONE QUEVE - CIRCULAR QUELVE OF RETPKT INDECES
I/0 DONE QUEUE IN POINTER
I1/0 DONE QUEVE OUT POINTER
CURRENT OPERATOR COMMAND

END -OF -PASS FLAG
DUP FLAGS
NUMBER OF “CURRENT" CONTROLLER

(2%

’

=5
GLOBAL DATA SECTION

2835
2836
2837
2838
2839
2840
2841

HER

SA_REG : word,

CMD_TIME : word,
NEX : word,
CM-LW : m.

CRN_HIGH : word,
P_INDEX : si
word,
S_DUPPKT :
.
S_PATTERN : WORD,
CREDIT_BAL : word,
NEXT_PKT_USE : byte;
ERRTBL;

T
YR S
S

‘s)'[e:cg -o"‘:'nd rd

FREE _MEM_ADDR,

BYTS_PER_QIO : word,
ST_CODE : word,
SB-C“ : word,

DUR : vector [MAX_UNITS, bytel,
QIO : vector [MAX_CTLR, bytel,

2827
2828
2829
2830
2831
2832
2833
2834

CDISK : word,
CUOFF : word,
CTLR_CNT : word,

D N

2819
2820
2821
2822
2823
2824
2825
2826

98
8
B
Ss
S5
S5
We
S5
SF
BRSSP
BE
BE
BE
BE
RS
BT
S
RS
BRSNS

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

NRGQAM1
vol.¢

VAX-11 Bliss-16 V3-555

Pese

SPIDERSUSERS
: [ DOUCE T TE . FALCONCNRIAE 81

CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET
TOTAL

SEQ 0OU%

NUMBER OF CONFIGURED CONTROLLERS

DROP UNIT REASON
NUMBER OF OUT.TANDING QIOS PER CONTROLLER
START OF FREE MEMORY
SIZE (BYTES) OF AN I/0 BUFFER
CURRENT STATUS CODE
CURRENT SuB-CODE

CURRENT STEP IN HARD_INIT
OFFSET (0 OR 2) TO READ IP OR SA
STORAGE FOR SA REGISTER READS AND WRITES
COMMAND TIMEOUT VALUE (IN SECONDS)
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT
COMMAND REF NUMBER (HI ORDER)

! CURRENT
PACKET INDEX
! DBN BYTE COUNTER
! THE PATTERN WRITTEN TO DBN'S
! CREDIT BALANCE
! POINTER TO NEXT ENTRY IN PKT_USE TABLE

(29

F 3
NRQAM1
vo1.0

RD/RX EXERCISER
GLOBAL TEXT SECTION

2842
2843
2844
H

2845
2846
2847

:
:

2848
2849

2854

2856

:
:
3
:

:
3

:
:

:
:
:

3
:

2850
2851
2852
2853

wsbttl
!.

! THE GLOBAL TEXT SECTICN CONTAINS FGRMAT STATEMENTS,
! MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
! MORE THAN ONE TEST.
! -

global bind
!
! HARDWARE DIALOG
!

HWQLl = uplit (waesciz'IP ADDRESS'),

2855

HHE2 = wplit (wesciz'VECTOR'),

HWQ3 = uplit (wasciz'BR LEVEL'),

2857

HWQ4 = uplit (sasciz'RD/RX DRIVE NUMBER'),

2858

HWQS = uplit (sasciz'IS DISK AN RDS1 WINCHESTER (NO, IMPLIES AN RXSO FLOPPY)'),

2859

HWQ6 = uplit (waesciz'STARTING LBN'),

2860
2861

HUQ7 = uplit (sesciz’'ENDING LBN (MAXIMUM - RXS0: 799, RDS1: 21599)'),
HWQ8 = wplit (wasciz'WRITE ON CUSTOMER DATA AREA ON THIS DISK'),

2862

HWQ9 = wplit (vasciz’'+s WARNING - CUSTOMER DATA AREA MAY BE OVERWRITTEN!

g:g;

HWQ11l = uplit (sesciz'WRITE ON DIAGNOSTIC AREA'),

2863

3
:
3
s
3

2870
2871
2872
2873
2874

SHA2
SWO4
SWA7
SWA9
SHQ10

:
3
:
:

2876
2877
2878
2879

SWA12
SWA13
SWQ14
SWQ1S

:
:

!
!
!

SOFTWARE DIALOG

2875

2880
2881
2882
2883

!
!

2884
2885
2886

2888

‘e

2893
2894
2895

!
!

:
3
s

;
;
:

2887

2889
2890
g:gé

2896

2897

SWA1

= uplit (vesciz’'HARD ERROR LIMIT'),
=
=
=
=
=

uplit
uplit
uwplit
uplit
wplit

(Waesciz’ TRANSFER LIMIT IN MEGABYTES (0 FOR “QUICK PASS")'),
(sasciz’'RANDOM SEEX MODE'),
(sasciz'READ-COMPARES PERFORMED AT THE CONTROLLER'),
(sesciz’'WRITE-COMPARES PERFORMED AT THE CONTROLLER'),
(sesciz’'CHECK ALL WRITES AT HOST BY READING'),

=
=
=
=

wplit
uplit
wplit
wplit

(vasciz’'SELECT PRE-DEFINED DATA PATTERN (O FOR SEQUENTIAL SELECTION)'),
(sesciz’'NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM)'),
(sesciz'PATTERN VALUE'
),
(seeciz'CLEAR STATISTICAL TABLES AFTER PRINTING'),

SWA11l = uwplit (vesciz'USER-DEFINED DATA PATTERN'),

;
3
3

... CONFIRM'),

HWQ10 = uplit (sasciz’'ALSO EXERCISE ON DIAGNOSTIC AREA (-NON-CUSTOMER AREA)'),

2866
2867
2868

2869

SEQ 007

VAX-11 Bliss-16 V3-555
Page
32
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA BL1 (30

‘GLOBAL TEXT SECTION'

3
:
:

;

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

!
!
:

SHQAL17 = wplit (vesciz’'PERCENTAGE OF RDS1 OPERATIONS OUT OF TOTAL OPERATIONS'),
SWA19 = uplit (sesciz'UNITS TO BE SELECTED AT RANDOM (NO, IMPLIES SEQUENTIAL)'),

SWR20 = wplit (sesciz’'WANT TO REWRITE BLOCKS WHEN “FORCED ERROR" DETECTED ON READS'),
SWA21 = wplit (sesciz’'IF "HALT ON ERROR” FLAG SET, WANT TO HALT ON HARD/SOFT ERRORS ALSO'),

SHQ22 = wplit (vesciz’NUMBER OF DBNs READ AT ONE TIME (effects RDS1s only)'),
SWM1 = uplit (vesciz’'THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED DISKS'),
NALL = uplit (Wesciz''),
THE FOLLOWING DBMe ARE DEBUG MESSAGES, AND SHOULD BE REMOVED BEFORE
RELEASING THE PROGRAM,
THEY INCLUDE THE NAMES OF EACH ROUTINE, PLUS
FORMAT STATEMENTS FOR PRINTING OUT OTHER INFORMATION.
'JSD REV A -REMOVED DEBUG MESSAGES MARKED BY

“!a”

THE REST WERE ALREADY COMMENTED OUT,

RD/RX EXERCISER
GLOBAL TEXT SECTION

2898

2901

2899
2900

B8
S5
S5
B8
S5
B4
B
S5
B8
B8
S
B
6
S5
S5

VAX-11 Bliss-16 Vv3-555
Page
37
SPIDERSUSERS:
[DOUCETTE . .FALCONICNRQAA .BL1 (30

= uplit (vWasciz'®NsAss DROP UNIT wD2'),

DBM12
= uplit (wWasciz'wNsAse PROC_RETPKT: CONN ID = #DS#A RECEIVED'),
DBM1S
= uplit (sasciz'®NsA«s MULTI-DRIVE TEST'),

2902
2903
2904
2905
2906

‘e
te
!a
!
‘e

DBM19
= uplit (wasciz'wNwAss FSET_UPAR: CAN''T FIND DISK wD3wA IN CST wD1'),
DBM20
= uplit (wasciz'wNwAes BAD CONN ID = %DS#A RECEIVED FROM %06’ ),
DBM21
= uplit (Wasciz'®NsAss MESSAGE TYPE wD2#A RECEIVED IN MSCP PACKET'),
DBM22
= uplit (Wasciz'wNsAes SEQUEN: RETPKT NOT AVAILABLE‘),
DBM23
= uplit (wasciz'®#NsAss ERROR IN SET_CTLR_CHAR'),

2908
2909
2910
2911

‘e
!
!
!

DBM26
= uplit (wesciz'sNsAes ERROR IN UNIT_INIT'),
DBM27
= uplit (Wasciz'®NsAss UNIT_INIT: RETPKT HAS BAD ENDCODE'),
DBM2BA = uplit (sasciz'sNsAss UNIT SIZE (LO) = #DS'),
DBM288 = qu.c (sasciz'¥NsAss UNIT SIZE (HI) = #DS'),

2907

2912
2913

2914

DBM2S

D8M29

DBM32

2915
2916
2917
2918
2919
2920
2921
223523,

'
!
e
‘e
‘e
=

2924

2926

2927
2928
2929
2930
2931
2932
2933
2934
2935
2936
2937
2938

DEM18

te
1]

2939

uplit (vWesciz'®#NsAss FATAL_ERROR: RETPKT NOT AVAILABLE'),

= uplit (wesciz'wNsAes CTLR TIMEOUT = #D3®A SECONDS' ),

.11it (Wesciz'wNsAss ACCESS: RETPKT HAS BAD ENDCODE'),

= uplit (sesciz'wNsAss QIO_UNIT: CST #DisA NO UNIT SELECTED'),

DBMIOL = uplit (sesciz'sNsAse UNIT ¢ IS: w%06'),

DBM104 = uplit (weesciz'sNsAss RXS0 IS SELECTED'),
DBM10S = uplit (wesciz'wNsAss RDS1 IS SELECTED'),
DBM107 = uplit (Wesciz'®NsAss ILLEGAL FUNCTION: %06'),
DBM108
= uplit (wWasciz'sNsAss COMMAND REF & #DS®A. NOT SENT BY MOST' ),
DBM109 = uplit (seeciz'wNsAes UNKNOWN ERROR LOG FORMAT #D3%A. RECEIVED'),
DBM110 = uplit (sesciz'wNsAse ERROR-LOG SAVE AREA FULL'),
DBM111 = uwplit (wasciz'sNsAss REINIT MSCP EXERCISER'),
DBMI12 = uplit (sesciz'wNsAss DUP_RSP: RETPKT NOT AVAILABLE'),

DROP UNIT MESSAGES

DU_MSG = uplit (wesciz’SNSAUNITSD2#A DROPPED - '),

DU_RSN = wplit (
uplit (sesciz’'SAUSER COMMANDSN' ),
wlit (wesciz’SACONFIGURATION ERRORSN'),
wlit (sesciz'SAINIT ERRORSN'),
wlit (sesciz'SATRANSFER LIMIT REACHEDSN' ),
wlit (sesciz'wAERROR LIMIT REACHEDSN' ),
wlit (sesciz' SAUNRECOVERABLE DEVICE ERROR®N'),
wlit (sesciz' SAUNRECOVERABLE CONTROLLER ERRORSN' ),
uwplit (wesciz'SAFAILED TO COME ONLINESN' ),
wlit (sesciz'WAFAILED TO ACCESS LAST TRACK DURING INITSN'),
wplit (Sesciz'ADISK WRITE PROTECTEDSN' ),
wlit (sesciz'SACOMMAND TIME OUTSN'
),
wlit (Sesciz'SAUNIT WENT TO AVAILABLE STATESN'))

vector [111],

22:‘45

SYSTEM MESSAGES (PRINTF)

2943

MSG_O1 = uplit (sesciz'WNSAPOWER DELAY - WAITING').

2945

MSG O3 - uplit (Wesciz’'SNWNWAEXERCISER STARTEDSN'),

2944

MSG_02 = uplit (seeciz'SNWAFUNCTIONAL TEST STARTED' ),

WEORE

DBMS

SEQ 00%2

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

s
!

S5 S5

S5 85

NRQAM1
v01.0

zz:z

2949

2950
2951
2952
2953

REPORT MESSAGES (PRINTS)

RPTL = uplit (wesciz'SNSNSAUNT DSKeS8#A® OF

RPT2
RPTZ
RPT4
WPTS

o BYTES

@ OF

= uplit (Wesciz'®A --HARD ERRORS-- --SOFT ERRORS--‘),
= uplit (sesciz'®NWA ¢ & TYPE READS
READ WRITES
= uplit (Wasciz'®A SEK DAT DRV HST SEK DAT DRV MST*),
o plit (HENeiZ M-« <-- ccoc cceee sscmscacs seccss

@ BYTES'),

WRITTEN'),
secccsens 0,

H2
GLOBAL
2954
2955

)

2957

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

NRQAM1
vo1.0

TEXT SECTION
uplit
uplit
uplit
uplit
uwplit
uplit

(Wasciz'®A --- --- --- - -on oo -..
(sasciz'e®NsD2#D4a%A
RX50'),
(wesciz'sNsD2#D4sA
RDS1'),
(sasciz'wDAsZ3wD3s8A,
wZ3%A 823’ ),
(vasciz'wDAsDA%DA%DA%D4SD4A%DANDSE’ ),
(vasciz'®NsA .
.
CNTR
S
aalsEEa e ay

RPT6
RPT7
RPT8
RPTS
RPT10
RPT11

=
=
=
=
=
=

RPT13
RPT14
RPT1S
RPT16

@ BLKS '),
= UPLIT(#ASCIZ
' NsNsSAUNIT
DISK
¢ OF
& BLKS
& OF
WRITES
WRITTEN ‘)
= UPLIT(wASCIZ'wNsA
&
I
TYPE
READS
READ
= UPLIT(WASCIZ '®NSA-------c-cccce
ccccce scecen
cmeea= UPLIT(WASCIZ'wNeS1#D2%#S48D2sA
DBNRDS1
#D6#S3sD6%SS#D6%S3%D6 ),

RPT12 = uplit (Wasciz'®A

.#D4A%A

.#D4%A

ny ¥

e *Ve

SEQ 017

VAX-11 Bliss-16 v3-555
Page
SPIDERSUSERS : [DOUCE TTE ,FALCONICNRORAA 5| 1-

GENERAL ERROR MESSAGES

SYSTEM FATAL (ERRSF)

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

AL B
geggsaeseeIInIN R LELEE

WEORE

DEVICE FATAL (ERRDF)

EGD_10
EGD_11
EGD_12
EGD_13
EGD_14
EGD_15
EGD_16
EGD_17
EGD_18
EGD_19
EGD_20
EGD_21
EGD_22
EGD_23

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

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

(sasciz'REGISTER EXISTENCE TEST FAILED'),
(sesciz’' VECTOR TEST FAILED'),
(sesciz'BR LEVEL TEST FAILED'),
(svesciz’' INIT SEQUENCE FAILED'),
(sesciz'FATAL CONTROLLER ERROR'),
(vesciz'ONLINE FAILED'),
(vesciz'WRITE-PROTECT CONFLICT),
(sesciz'ACCESS FAILED'),
(vwesciz'FATAL I/0 ERROR'),
(wasciz’'CONTROLLER TIMEOUT'),
(desciz’'FAILED TO SEND SET-CONTROLLER-CHARACTERISTICS COMMAND' ),
(saesciz’'SET-CONTROLLER-CHARACTERISTICS RESPONSE HAS BAD ENDCODE OR FLAGS IN ERROR'),
(wesciz'FAILED TO SEND ON-LINE COMMAND'),
(sesciz’'ON-LINE RESPONSE HAS BAD ENDCODE'),

HARD or SOFT (ERRHRD or ERRSOFT)

EGH_30 = uplit (sesciz’'I/0 REQUEST FAILED')
BASIC ERROR MESSAGES (PRINTB)

SYSTEM FATAL (ERRSF)
EBS_01 = uwplit (vesciz'@AMORE THAN #D2sA UNITS SPECIFIED'),
DEVICE FATAL (ERRDF)

EBD_10
EBD_12
EBD_13
EBD_14
EBD_18
EBD_19

=
=
=
=
=
=

uplit
uwplit
wplit
uwplit
uwplit
uplit

(sasciz’'wAs
(vWesciz'wAs
(vesciz'swAs
(wesciz’'sAs«
(sasciz’'wA+
(sesciz’'sA+

NO RESPONSE AT ADDRESS #06'),
INCORRECT BR LEVEL FOR DEVICE %06'),
STEP #D1%A READ ERROR'),
BAD SA CODE FROM DEVICE %06'),
DISK#D2#8A WENT OFFLINE'
),
DEVICE #06%A NOT PROCESSING COMMAND PACKETS'),

{

T4
20

14
NRQAM1
v01.0

RD/RX EXERCISER
GLOBAL TEXT SECTION

33810
2

3012

EH_O = UPLIT (WASCIZ'

- unrecognized MESSAGE TYPE'),

EH_2 = UPLIT (#ASCIZ'

- unrecognized RETURN mess

3013

EM_1 = UPLIT (#ASCIZ'

3015

EH_3

3014

3016
3017
3018
3019
3020

EH_4
EH_S
EH_6
EH_7
EH_8

3021

=
=
=
=
=

UPLIT
UPLIT
UPLIT
UPLIT
UPLIT

unrec
ized CRN' ),
UNRECOGNIZED OPCODE'),
MSCP STATUS CODE ERROR'),
DUP STATUS CODE ERROR'),
mr.ggfizod STATUS CODE' ),

- LBN

T COMPARE ERROR'),!

- DBN HOST COMPARE ERROR'),

uplit (desciz'SAMESSAGE FROM INTERNAL DIAGNOSTICS'),

uplit (sasciz'wAHOST COMPARE ERROR'
),

uplit (sasciz'sACOMMAND TIMEOUT')) : vector [14],

3044

LOG MESSAGE (ERRSOFT)

ELG_00

= uplit (sasciz’'®NSAERROR LOG MESSAGE RECEIVED:®N‘),

ELG_FMT = gplit (

3045
3046

uwplit (sesciz’'#As CONTROLLER ERRORSN' ),
uwplit (sesciz’'sAs HOST MEMORY ACCESS ERRORSN' ),

3047

3048

S5
S5
S5
S5
B

3043

uwplit (sesciz'sRe DISKsD28A- DISK TRANSFER ERRORSN' ),

uwplit (sasciz'sAs DISKeED2#A- “STANDARD DISK INTERCONNECT

3049

;

Ssggé

: EXTENDED ERROR MESSAGES (PRINTX)

ERRORSN'
),

uplit (desciz’'sAs DISKWD2#A - "SMALL DISK” ERROR®N’')) : vector [S],

3053

3054
3055
3056

EX_BDR = wplit (sesciz'sNSAL/0 BUFFFR ADDRESS FOR READ (32 BITS): s#068A #06%N'),
EX_BDW = lit (sesciz’' NSAI/0 BUFF.. ADDRESS FOR WRITE (32 BITS): s06%wA %06'),
EX_LBR = wlit (vesciz'oNSALBN: (READ) #DS¢A. (OCT #068A)’'
),

3058
3059

EX_RBN = wlnt (seeciz’' sNSAREPLACEMENT BLOCK NO., #DS#A. (OCT #06%A)'),
EX_CBR = uplit (sesciz'oNSABYTE COUNT IN READ COMMAND: #DS#A.’'),

3057

3382(1)

EX_LBW = uplit (vesciz'sNsSALBN: (WRITE) w#DS#A.

MR
BEORE

3062
3063
3064
3065

(OCY #06%A)’'
),

EX_CBW = uplit (sesciz'®NSABYTE COUNT IN WRITE COMMAND: #DSeA.'),

3042

id’ ).

EH_12 = UPLIT (#ASCIZ' - UNABLE TO LOAD DUP MECIA '),
EH_13 = UPLIT (#ASCIZ' - ERROR IN DUP-PKT WHEN USING CTLR LC PRG'),
ERR_COD = wplit (
uplit (sasciz'SAINVALID COMMAND' ),
uplit (vasciz’'wACOMMAND ABORTED'),
uplit (sesciz'SAUNIT OFFLINE' ),
uplit (dasciz'SATRANSITION TO AVAILABLE STATE' ),
uplit (sasciz'wAMEDIA FORMAT ERROR' ),
wplit (sesciz'SAMRITE -PROTECTED' ),
uwplit (sSesciz'sADEVICE COMPARE ERROR'),
uplit (sasciz’'sADATA ERROR'
),
uplit (sasciz’'#ANOST BUFFER ACCESS ERROR'),
uwplit (sesciz'SACONTROLLER ERROR' ),
uplit (desciz’'sADRIVE ERROR' ),

3038

(#ASCIZ'
(#ASCIZ'
(®ASCIZ'
(#ASCIZ'
(®ASCIZ'

EM_10 = UPLIT (#ASCIZ'

3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
3033
3034
3035
3036

- unrecognized connection

= UPLIT (WASCIZ' - unrecognized RETURN PACKET'),

EH_9 = UPLIT (®ASCIZ'

3022

SEQ 0034
VAX-11 Bliss-16 Vv3-555
Page
3©
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BLY (%0

HARD or SOFT (ERRHRD or ERRSOFT)

)

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

XX13
XX14
XX1S
xX16

=
=
=
=

UPLIT
uplit
uplit
uplit

(wASCIZ'sNsA = DISK : #D2'),
(sesciz'®NSASA: #06'),
(wasciz’'#NSASTATUS CODE: '),
(sasciz’'WNSASTATUS SUB-CODE:

'),

“»

LJ.I
‘

RD/RX EXERCISER

NRQAM1
vo1.0

3067

3069
3070
3071

GLOBAL TEXT SECTION

3073

3074

10:24:41

15-Dec-1983 10:21:50

VAX-11 Bliss-16 v3-555

XX17 = uplit (wasciz'®NsSACOMMAND: '),
XX18 = uplit (®asciz's$A-DUP-'),
XX19 = uplit (sasciz'®#A-MSCP-'),
XX20 = uplit (sasciz'®A-COMPARE' ),
XX21 = uplit (sasciz'SNSABAD BLOCK REPORTED: ®OS®A. o
XX22 = uplit (sasciz'®NSALBN: #DS#A. (OCT #06%A)’' ),
XX23 = UPLIT (®ASCIZ'wNsADBN: sDS#A. (OCT #06%A)’
),
XX24 = uplit (dasciz'SNSABYTE COUNT IN COMMAND: «€DS'),
XX25 = uplit (sesciz'SNSAACTUAL @ OF BYTES TRANSFERRED: #D5'),
XX26 = uplit (sasciz'#NSAI/0 BUFFER ADDRESS (32 BITS): #06%A #06'),
XX27 =
lit (dasciz'¥NSACONTENTS OF RETURN PACKET:#N’
),
XX29 =
IT (SASCIZ‘'¥NSAMESSAGE TYPE: '),
XX30 = UPLIT (#ASCIZ'#NsSAMESSAGE NUMBERS: '),
XX31 = UPLIT (#ASCIZ'SNSAMESSAGE ERROR CODES: '),
XX32 = UPLIT (#ASCIZ'#NsSABYTE NUMBER: #D3'),
XX33 = UPLIT (#ASCIZ'#NsSARANDOM WRITTEN WORD :#816'),
XX34 = UPLIT (#ASCIZ'#NsSARANDOM READ WORD bin:#B16%A oct:%06' ),
XX3S = UPLIT (#ASCIZ'#NsSACRN: #06'),
1XX36
= UPLIT (#ASCIZ'SNsSATHE EIFECTED CRN: #06'),
XX37 = UPLIT (#ASCIZ'#A
- UNKNOWN
: =D2'),
XX38 = UPLIT (wASCIZ'#A
- UNKNOWN CMCTIN ID: #D3sA -'),
XX39 = UPLIT (#ASCIZ'wNSACONTROLLER FLAGS:'),
XX40 = UPLIT (wASCIZ'#NsSAUNIT FLAGS:'),
XX81 = UPLIT (wASCIZ'®NSAEND MESSAGE FLAGS:'),

¢ UNKNOWN RETURN MESSAGES

’

EB_DCT = UPLIT (#ASCIZ'wNsA DRIVER CONTROLLER TABLE = ADDR: #D6sN’),
EB_COMM
= UPLIT (SASCIZ'wNsSA CMD INT, RSP INT, COMMAND RING = ADDR: wD6sN’),
EB_PKT = UPLIT (SASCIZ'wNSA ALL PACKETS IN MESSAGE AREA’),

WEORE

EB_RAL
= UPLIT (WASCIZ'#NsA ALL RETURN PACKETS IN AREA'),

3100
3101
3102
3103
3104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121

EB_ADDR
= UPLIT (#ASCIZ'sNsA ADDR: wD6®A
PACKEY = #N'),
EBNEX1 = UPLIT (#ASCIZ's#NsSA ADDR OF RESPONSE RING TO BE POLLED =D6°),
EB_NEX2
= UPLIT (#ASCIZ'#NsSA ADDR OF MESSAGE PACKET RESPONSE RING SLOY POINTS TO #D6’),
EBNEX3 = UPLIT (wASCIZ'swNsSA ADDR OF MESSAGE PACKET COMMAND RING SLOT POINTS TO =D6' ).

5 CONFIGURATION ERROR MESSAGES (PRINTF)

CER_O1 = wplit (sesciz’' sNSADUPLICATE UNIT:#D2#A AT IP: #06'),
CER_02 = uplit (sasciz’'wNSAMORE THAN #D1sA DIFFERENT IP ADONESSES 19
o

E MESSAGE TYPES

EX_SEQ = UPLIT (#ASCIZ'sA- SEQUENTIAL'’),
EX_CRD = UPLIT (#ASCIZ'sA- CREDIT NOYIFICATION').
EX_MIN = UPLIT (wASCIZ'®A- MAINTENANCE' ),
EX_DGM = UPLIT (wASCIZ'sA- DATAGRAM'),

! commends
!mscp

EX_RD = uplit (sasciz’'#AREAD'
),
EX_WRT = uplit (sesciz'#AMRITE'),
EX_ACC = uplit (sesciz’'#AACCESS’'),
EX_ONL = uplit (sesciz'#AON LINE'),

SEQ 00

SPIDERSUSERS: [DOUCETTE. FALCON]CNROAA BLl

15-Dec-1983

3¢

(30

1<%
NRQAM1
\;'OI.C

RD/RX EXERCISER
GLOBAL TEXT SECTION

3122

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

EX_SCC = uplit (sasciz'®#ASET CONTROL CHAR.'),

3123

3
3

3125
3126

EX_ESP = uplit (wasciz'wAEXECUTE SUPPLIED PRG'),
EX_ELP = uplit (sasciz'#AEXECUTE LOCAL PRG'),

H
3

3128
31233

EX_RCD = uwplit (sasciz's#ARECEIVE DATA'),
EX_ABP = uplit (sasciz'#AABORT'),

:
.

3124

3127

glgé

3133

3135

3137

3139

‘'duwp

3134

3136

3138

EX_GDS = uplit (Wasciz'#AGET DUST STATUS'),

EX_SDD = uplit (wasciz'#ASEND DATA'),
i

' ERROR/EVENT SUB CODES (PRINTX)
H

SC_SDI = uwplit (waesciz'wASPIN-DOWN IGNORED'),

SC_CON = uplit (sesciz'SASTILL CONNECTED'),

SC_DUP = wplit (vasciz'sADUPLICATE UNIT NUMBER' ),

SC_ONL = uplit (sasciz’'SAALREADY ONLINE'
),
SC_SON = uplit (sasciz'SASTILL ONLINE'),

SC_UNK = yplit (sasciz'SAUNIT UNKNOWN OR ONLINE TO ANOTHER CONTROLLER’),

SC_VOL = uplit (sesciz'®ANO VOLUME MOUNTED OR DRIVE DISABLED BY SWITCH'),

3140

3144

SC_ISH = uplit (sasciz'sAFCT OR RCT UNREADABLE - INVALID SECTOR HEADER' ),

3146

SC_DST = uplit (sesciz'sAFCT OR RCT UNREADABLE - DATA SYNC TIMEOUT'),

:
:
:
:

:
3

:
:

3141
3142
3143
3145
3147

3148

3149

3150

3152

3
:

:
3

:
:
:
:

3151

3153

3154

3155

:
:
;
:

5
;
:
;

;

SC_ECC = wplit (vasciz'#AFCT OR RCT UNREADABLE - UNCORRECTABLE ECC ERROR'),
SC_ECD = wplit (sesciz’'sAUNCORRECTABLE ECC ERROR'),

SC_RCT = uplit (sesciz’'sARCT CORRUPTED’
),

SC_FUL = uplit (vesciz’'#AND REPLACEMENT BLOCK AVAILABLE (RCT FULL)'),

ISK NOT FORMATTED WITH S12 BYTE SECTORS'),

SC_FCT = uplit (maesciz'sADISK NOT FORMATTED OR FCT CORRUPTED'),

SC_EC1 = uplit (vaesciz'wAONE SYMBOL ECC ERROR'
),

SC_EC2 = wplit (vesciz'sATWO SYMBOL ECC ERROR'
),

SC_EC7 = uplit (sesciz’'sSASEVEN SYMBOL ECC ERROR'
),

3163

SC_DS2 = wplit (sasciz'wADATA SYNC NOT FOUND (DATA SYNC TIMEOUT)'),

3160

3157
3158
3159

SC_IS2 = wplit (vesciz'SAHEADER COMPARE ERROR (VALID HEADER NOT FOUND)'),

SC_EC3 = wplit (vesciz'SATHREE SYMBOL ECC ERROR'),

3161

SC_DIS = wplit (sasciz'#AUNIT DISABLED BY FIELD SERVICE OR INTERNAL DIAGNOSTICS’),
SC_FER = :plit (vesciz'#A"FORCED ERROR” DETECTED WHILE ACCESSING FCT OR RCT'),
SC_FE2 = uplit (vasciz'SASECTOR WRITTEN MITH “FORCED ERROR” MODIFIER’),

3156

SC_IOP = uplit (sasciz'SAUNIT INOPERATIVE (RDS1 WRITE FAULT'),

SC_S576 = wplit (sasciz’

3162

3164

3165

3166
3167

3168

3169
3170
3171
3172

3173
3174
3175
3176
3177

SC_EC4 = uplit (sesciz'SAFOUR SYMBOL ECC ERROR’ ),
SC_ECS = uplit (vesciz'sAFIVE SYMBOL ECC ERROR’ ),
SC_EC6 = uplit (sesciz'SASIX SYMBOL ECC ERROR'),

SC_EC8 = uplit (vesciz'SAEIGHT SYMBOL ECC ERROR’
).

SC_EC9 = wplit (veeciz’'sACORRECTABLE ERROR IN ECC FIELD'),
SC_SWP = uplit (sesciz’'SAUNIT SOFTWARE WRITE PRCTECTED'),

SC_HWP = plit (sesciz’'SAUNIT HARDMWARE WRITE PROTECTED' ),
SC_ODA = uplit (seeciz'sAODD TRANSFER ADDRESS').

SC_ODB = uwplit (sesciz’'sAODD BYTE COUNT'
),

SC_NXM = uplit (sesciz’'SANON-EXISTENT HOST MEMORY'
),

SC_PAR = uplit (seeciz’'#AHOST MEMORY PARITY ERROR' ),
SC_CT0
SC_SDS
SC_EDC
SC_IDS
SC_SRT

=
=
=
=

uwplit
wplit
uwplit
uwplit

(vesciz’'sACOMMAND TIMOUT OR RETRY LIMIT EXCEEDED'),
(sesciz’'SASERIALIZER/DESERIALIZER OVERRUN OR UNDERRUN' ),
(vesciz'sAEDC ERROR'
),
(vesciz’'SAINCONSISTENT INTERNAL DATA STRUCTURE').

= uplit (sesciz'sADRIVE COMMAND TIMEOUT (NO RESPONSE OR SEEK INCOMPLETE)'),
SC_SRI = uplit (sesciz’'sACONTROLLER DETECTED TRANSMISSION OR PROTOCOL ERROR'),
SC_POE = uwplit (vasciz'wAPOSITION ERROR (MIS-SEEK)'),
SC_RDY = uplit (sesciz’'sALOST READ/WRITE READY DURING/BETWEEN TRANSFERS'),
SC_CLK = uplit (sasciz’'@$ADRIVE CLOCK DROPOUT'),

SEQ 0C%

VAX-11 Bliss-16 Vv3-555
Page
SPIDERSUSERS:
[DOUCETTE ,FALCONICNRQAL
BLL1

17
(20

L%
NRQAM]
\;OI.C

RD/RX EXERCISER
GLOBAL TEXT SECTION

3178
3179
3180
181

3183

3184
3185
3186
3187

3188

3189
H

3190

3191
3192

3193
3194
gigz
3197

3199
3200

:
3
3
:

3202

3203

:
3
:

3207
3208
32320910

H
3
s

3204
3205
3206

3211

3212

3219

:
s
F
:
:
:
:
H

3213
3214
3215
3216
3217
3218
3221
3222

3223

3225

:
:

3
H
P
3

! MSCP END MESSAGE FLAGS

!F_O = uplit (vasciz'®NsA)
F_1 = uplit (sasciz'®NsSA )
F_ 2 = uplit (sesciz'sNsSA )
F_3
= uplit (sasciz'®#NsA )
! MSCP Controller F1

F_4 = yplit (wesciz'

Bad Block Reported’'),
Bad Block Unreported’),

Error Log
Serious

) Enable Attention Messages'),

F_6 = uplit (sesciz'®NsA) Enable Other Hosts Error Loo
F_7 = uplit (sasciz'#NsA) Enable This Mosts Error L

Messages' ),

8 = uplit (desciz'sNsA) Controller Initiated Bad B ock
F_9 = uplit (vesciz'sNsSA) Shadowing' ),
_10 = uplit (Wasciz'sNsSA) 576 Byte Socton' ¥

7D
o
mnt’ ),

MSCP UNIT FLAGS

F_11
F_12
13
F_14

=
=
=
=

uplit
uplit
\plot
yplit

(sesciz'sNsA) Compere Reads'),
(sesciz'®NsA) Compare Writes'),
(desciz'#NsA) Controlier Initiated Bad Block Rplcmnt’),
(vasciz'sNSA) Inactive Shadow Set Unit’),

_{2 = w%n: gu.e.z-m; Removable Media’ )ih'd\

= upli
sasciz'®NsSA) Suppress Caching
i
speed)’ ),
F_17 = uwplit (sesciz'sNsA) Suppress Caching (low speed)’),
F_18 = uplit (sesciz’'uNSA) UWrite-back (non-volatile)'),

F_19 = wplit (dasciz’'#NsEA) Write Protect (hardware)’
F_20 = uplit (desciz'sNsA) Write Protect (softwere or "volume)'),
21 = uplit (sesciz'¥NsSA) 576 Byte Sectors’'),

DUP RETURN PACKET MESSAGES
STATUS CODE

EBH_30
EBH_44
EBH_45
EBH_46
EBH_47
EBH_48

=
uplit
=
IT
= UPLIT
= UPLIT
= UPLIT
= UPLIT

(sesciz’'sA
(SASCIZ'sSA
(#ASCIZ'sA
(#ASCIZ'SA
(#ASCIZ'#A
(#ASCIZ'SA

SUCCESS’),
INVALID COMMAND(SERVER nonIDLE or no media if EX-LC-PRG cmd)’),
NO REGION AVAILABLE'),
NO REGION SUITABLE'),
PROGRAM NOT KNOWN (NO SUCH PROGRAM ON MEDIA)'),
LOAD FAILURE (INPUT ERROR WHILE LOADING PROGRAM)'),

EBH_49 = UPLIT (#ASCIZ'wA - STANDALONE (STANDALONE MODIFIER NOT SPECIFIED FOR STAND ALONE PRG.)'),
!
!

3224

DUP GET DUST STATUS FLAGS

df
_ 0 = uplit (sesciz'sNsSA) One Server ot & Time'),

df
1 = uplit (Wesciz'sNsA) Contains Locel Media'),

df
2 = uplit (sesciz’'wNsA) Execute Local Prg cmd is UNSUPPORTED' ),

332259

;

3228

! DUP EXECUTE LOCAL PRG END FLAGS

3229
3230
3231
3232

Generated'),
Exception’'),

S = uplit (vesciz'¥NsA) Enable Miscelleneous Error Log

df
3 = uplit (vasciz'®NsSA) Currently

df
4 =
df
S =
df
_6 =
df _7 =

uplit
uplit
uplit
uplit

in Active State'),

(sesciz’'sNSA) Stendalone Prg
(vesciz'®NsA) Needs overlay'’
(vesciz'®NsSA) Needs Write lclflo.dfilo Ovorlag
(sasciz'sNsSA) Uses Std Dup Dialog: REC/SEND/REC’ )

SEGQ 00727

VAX-11 Bliss-16 V3-5S55
Page
3%
SPIDERSUSERS:
[DOUCETTE .FALCONICNROAA .
BL1 (30

SC_RSP = uplit (wasciz's#ALOST RECEIVER READY BETWEEN SECTORS'),
SC_SUR = uplit (wasciz'®ADRIVE DETECTED ERROR'),
SC_PSP = uplit (sasciz'®ACONTROLLER DETECTED PULSE OR STATE PARITY ERROR'),

'.'-'-'flfl'\flflfl'\fl"l'\flw--"l'lfl‘l‘\"l‘l

3182

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

M4
NRQAM1

RD/RX EXERCISER

vo1.C

GLOBAL

3234
3235

!
!

TEXT

15-Dec-1983 10:24:41

SECTION

15-Dec-1983

3236
3237

:
:

3239
3240

T_TER = uplit (dasciz'®¥NsA
T_FAT = uplit (desciz'®#NsSA

3242 !

E_SUC = U’LIT (#ASCIZ'#NsA- SUCCESS'),

3238

3241

3
:
3
5
3
3
3
3
:
3
3
s

3243
3244
3245
3246
3247
3248
3249
3250

3256

3258

3251
3252
3253
3254
3255

3257

s
3
;
3
3
3
:
5
H
3
3
:
;
3
3

3259
3260
3261
3262
3263
3264
3265
3265
3267
3268
3269
3270
3271
3272
3273

:
;

3275
3276

3278

3280

gg:g

33%:;

3
s

3286
3287

;

+» SPECIAL'),

+&« TERMINATION'),
«& FATAL ERROR'),

E_UNT = UPLIT (WASCIZ'sNsA - ILLEGAL UNIT NUMBER'),
E_BLK = UPLIT (®ASCIZ'wNsA - ILLEGAL PHYSICAL OR RELATIVE BLOCK NUMBER'),
E_DEV = UPLIT (#ASCIZ'#N#A - DEVICE ERROR'),
E_ZER = UPLIT (#ASCIZ'#NsA - ZERO LENGHT MESSAGE'),
M_ASC = UPLIT (sSASCIZ'#iNsA -- ASCII INFORMATION '),
M_BIN = UPLIT (#ASCIZ'#NsA -- NON-ACSII INFORMATION'),
M_TER = UPLIT (#ASCIZ'#Ns#A -- TERMINATION MESSAGE'),
M_COD = UPLIT (wASCIZ's#NsA -- SUCCESS/FAILURE CODE’),
M_DAT = UPLIT (“SCIZ'M -- SEND BINARY DATA'),
M_UR= UPLIT (SASCIZ'#NsA -- SEND UNIT NUMBER, RELATIVE DBN'),
M_URP
= UPLIT (MSCIZ'M - SEND UNIT NUMBER, RELATIVE DBN, WRITE PATTERN’),
M_UP = UPLIT (#ASCIZ'sNsSA -- SE'O UNIT NUMBER, PHYSICAL BLOCK NUMBER’),
M_UL = UPLIT (#SASCIZ'sNsA -- SEND UNIT NUMBER, LOGICAL

BLOCK NUMBER '),

CNTR_ERR = uwplit (
uplit (sesciz'SACONTROLLER TIMEOUT’),
uplit (desciz’'SAENVELOPE/PACKET READ ERROR (PARITY OR TIMEOUT)'),
uplit (sesciz'SAENVELOPE/PACKET WRITE ERROR (PARITY OR TIMEOUT)'),
uwplit (sesciz’'sACONTROLLER ROM AND RAM PARITY ERROR'),
uplit (sasciz’'SACONTROLLER RAM PARITY ERROR‘),
uplit (sesciz’'SACONTROLLER ROM PARITY ERROR'),
uplit (sesciz’'sSARING READ ERROR (PARITY OR TIPEW?) b
uplit (desciz'SARING WRITE ERROR (PARITY OR TIMEOUT)'),
uwplit (sesciz’ INTERRUPT MASTER FAILURE'),
uwplit (sesciz'wAMOST ACCESS TIMEOUT (HIGER LEVEL PROTOCOL DEPENDENT)'),
uwplit (dasciz'$ACREDIT LIMIT EXCEEDED')
uplit (sesciz’'sAQ-BUS MASTER ERROR' ),
uplit (sesciz’'#ACONTROLLER FATAL m :
uplit (sesciz’'SAINSTRUCTION LOOP TIMEOUT'),

wplit (sesciz’'SAINTERRUPT VECTOR ILLEGAL'),
uwplit (sesciz’ SAMAINTENANCE READ/WRITE INVN.ID REGION IDENTIFIER'),

uplit (vesciz’'SsAMAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER' ).
uwplit (sesciz’'SACONTROLLER RAM ERROR (NON-PARITY)'),

3279

3289

T SPL = uplit (vesciz'®NsSA

«« INFORMATION'),

uwplit (sesciz'#AILLEGAL VIRTUAL CIRCUIT ID‘),

3277

3288

«+ QUESTION'),
«&« DEFAULT QUESTION'),

: CONTROLLER GENERIC ERROR CODES

3274

3281

T_.QUE = uplit (Wasciz'sNsSA
T_DEF = uplit (Wasciz'#NsA
T_INF = uplit (dasciz'sNsA

uwplit (sasciz’'#SAINIT SEQUENCE ERROR’),

uplit (sesciz'sAHIGHER LEVEL PROTOCOL INCOMPATIBILITY ERROR'),

wplit (sasciz’ SAPURGE/POLL HARDWARE FAILURE'),

uplit (sasciz'SAMAPPING REGISTER READ FAILURE (PARITY OR TIMEOUT)'))
RD/RX CONTROLLER DEPENDENT ERRORS CODES

RDRX_ERR
= uplit (
uplit (sasciz'®AT11 CPU FAILURE' ),

wlut (sasciz’'sANON-PARITY RAM ERROR'),

SEQ 00%5

Page

SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAA .BL.1 (20

DUP LOCAL PROGRAM PACKET MESSAGES

3
:

10:21:50

VAX-11 Bliss-16 v3-555

uplit (sasciz'#ASTATE MACHINE FAILURE - T11 ADDRESS REGISTER'),

vector [23].

4
NRQAM1
\{01.0

RD/RX EXERCISER
GLOBAL TEXT SECTION

3290

:
3
3
3

3293
3294
3295
3296

H
H

3
3

3
3
:

3297

3300
3301
3302

SEQ 0079

VAX-11 Bliss-16 Vv3-555
Page
40
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BLL1 (30

uplit (sasciz'#ASTATE MACHINE FAILURE - Q-BUS ADDRESS REGISTER'),

3291
3292

3298
3299

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

uplit (sasciz'#ASTATE MACHINE FAILURE - CRC REGISTER'),
uplit (wasciz'#ASTATE MACHINE FAILURE - SERIALIZER/DESERIALIZER REGISTER'),

!
! MISCELLANEOUS
!

uplit (Wasciz'#ASTATE MACHINE FAILURE

EX_WRD = uplit (sasciz'#A #06'),

EX_OP = uplit (#asciz'sAoct #04'),
SPACE4
= uplit (dasciz'#54'),
CRLF
= uplit (dasciz'®N'),

= uplit (wasciz'#A - '),
DASH
ASTERISK = uplit (sasciz'sAs* ');

- WRONG HARDWARE VERSION’'))

vector (7],

B4
RD/Rx EXERCISER

NRQAM|

DEFAUL T HARDWARE P -TABLE
ssbtt]l

3305
3306
3507
3508
5309
3310
5511
5312
3513
33514
3315
3316
3317
5318
3319
3320
3321
3322

5303

vo1.¢

1% Dec

1933

10:24:41

15 Dec 1983 10:21:50

VAX-11 Blies

VALUES OF
THIS TABLE

IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES,
AND IS USED AS A “TEMPLATE"” FOR BUILDING THE P-TABLES.

BGNHMW (DFPTBL);

’

lobel

HWPT _IP _ADDR : word initial (INIT_IP_ADDR), ! IP ADDRESS

HWPT _VECTOR : word initisl (INIT_INTR_VECT),! VECTOR ADDRESS

HWPT BR_LEVEL : word initial (INIT BR_LEVEL),!BR LEVEL
HWPT DISK : word initial (w0’ 100034 ),
t DISK NUMBER, TYPE,
MWPT
S _TRK : word initial (0),
! STARTING TRACK
HWPT E_TRK : word initial (RD_MAX_LBN);
! ENDING TRACK

ENDHW;

v3-555

SEQ

ooAac

SPIDUH'J‘SU'S:(DME”E."“LCONPCMUN-.:??. (%

'DEFAULT HARDWARE P -TABLE
"

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT
THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF

PROTECTON BIT

C4
—

1% Dec

RD/RXx EXERCISER
SOF TWARE P-TABLE

NRQ@AM1
VOol1.C

15-Dec

1933

1987

10:24:41

10:21:50

3323
3324
3325

3326
3327
3328

BE SE

@5 Ee

)

3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344

ssbtt]l

'SOFTWARE

SEQ GLA |

<]
VAX-11 Blies 16 v3-555
SPIDERSUSERS:
[DOUCE TTE ,FALCONCNRQAR
811

P-TABLE'

THE SCF TWARE TABLE CONTAINS VARIOUS DATA USED By THE
THESE PARAMETERS ARE
PROGRAM AS OPERATIONAL PARAMETERS.

SET UP AT ASSEMBLY TIME AND MAY BE

AT RUN TIME.

VARIED BY

THE OPERATOR

BGNSW (SFPTBL);
globel

SWP_ERROR : word initial (32),
SWP _XFER : word initiel (20),
SWP _FLAGS : word initisl (so'202'),
SWP _DPAT : word initial (0),
SWP_UCNT : word initial (MAX_UDP_CNY),
SWP_RAT : word initiel (99),
dupround : word initial (18),

HARD ERROR LIMIT FOR DROPPING UNIT
TRANSFER LIMIT FOR DROPPING UNIT
FLAGS (SEE DOCUMENTATION)

SWP _UDPAT :

USER DATA PATTERN

ENDSW;

vector [MAX_UDP _CNT, word);

DATA PATTERN NUMBER
USER DATA PATTERN COUNT
RDS1 OPERATION RATIO
NUMBER OF DBN'S WRITTEN AT ONE

TIME

(7%,

3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361

ssbttl
‘e

!
!

'PROTECTION TABLE'

THIS TABLE IS USED BY THE RUNTIME SERVICES
TO PROTECT THE LOAD MEDIA.

BGNPROT (O,

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

11ST ARG =
!12ND ARG !3RD ARG =
ENDPROT ;
end

eludom

LTITLE
. IDENT
.ENABL

LeTIM ::.

LSLADP::
.
L8STA:: .
L$CO::
.
L.DTV’:S.
LSAPT:: .
LSDTP:: .,
LSPRIO::.
LSENVI::,
LSEXPL::.
LSMREV:
:
LSEF:;

L$SPC::

LSDEVP: ;.
LSREPP: ;.
LSEXP4; ;.

-t =t

LOUNIT::.

3333333383888387

PSECT
LSNAME:: .ASCII
.ASCII
.BYTE
.BYTE
LSREV::
.ASCII

000010

116
101

333338

103
121

NRQAM1 RD/RX EXERCISER
c‘gl.OI

$CODEs,

7 CN/
/RQA/
0
0

A/
70/

T$PTHY
77777
L $HARD

LSOFT
Lorud

LeSH

LSLAST
O0Oromoo

3345
3346
3347
3348
3349

$DISPATCH

Q00w

e
8
B
e
e
W
we
e
WO

15-Dec 1933 10:24:41
15-Dec - 1983 10:21:50

RD ’RX EXERCISER
PROTECTION TABLE

NRGAM1
vOol1.C

LSOVTYP
LSRPT

VAX-11 Bliss-16 v3-555

SEQ 0047
P age

SPIDERSUSERS: [DOUCETTE FALCONICNROAR BL
Y

(22

E 4

LSEXPS:
: .WORD
LSAUT:: .WORD
L$DUT:: .WORD

000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

0
L$AU
L$DV
0

LS$DESC

-73743

L$ERRTBL
LS$INIT
LSCLEAN
L$AUTO
L$PROT

LSDISPATCH::

.WORD

000126

000141

15-Dec-1983 10:24:41
15-Dec -1983 10:21:50

RD/RX EXERCISER
PROTECTION TABLE

NRGAM1
vo1.0

111
101
122
123
126

040
104
125

P.AAA:

103
122

P.AAB:

/757<00><00>

/VEC/
/TOR/

<00><00>

/B8R 7/

/LEV/

/EL/<00>
<00>

057

122
122
104
126
116
102

P.AAD:

/VNE /7
/NUM/

115
122

123
101
122

113
116

061
111
110

122
116

115
111
122

114

117

111

114
123
116
040

117

/RD/<57>
/RX 7/

/DRI/

111

065
106

/RES/

P.AAC:

102
114
105

116
105
105

ERRTYP::.BLKW
:
: .BLKW
ERRNBR
ERRMSG: : .BLKW
ERRBLK: : .BLKW

/BER/

<00><00>

P.AAE:

/1S 7

/DIS/
/K A/

/N R/

/051/

/ Wl/
/NCH/
/EST/
/ER /
/(NO/
B
/MPL/

/IES/
/ AN/
/ RX/

/50 7/

/FLO/

SEQ 0ca?
VAX-11 Bliss-16 V3-555
Page
44
SPIDERSUSERS
: [DOUCETTE . F ALCONICNRQAR B 1 (727

00030%
000306
000310
000313
000316
000321
000324
000331

000337

000353

131

123
122

101
111
040
116

P .AAF
;

104
107

P.AAG:

116

114

105

111
040
116

115
111
115
040
130
072

065
065
051

127

117
103
124
105
104
101
122
040
040
111
113

130
125

105

040

.ASCII
.ASCII

ASCII
.ASCII

P.AAH

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

.ASCII
.ASCII

/PPY/
/7)7<00>

/STA/
/RT1/
/NG /
/LBN/
<00><00>

/END/
/7ING/
/ LB/
/N (7
/MAX/
/7IMU/
/M -/
R/
/
/X507
Y T
/99,7
/ RD/
/S1:/
/7 21/
7599/

/)/7<00><00>

/WR1/
/TE 7/
/0N 7/
/CUS/
/TOM/

/ER /
/DAT/

/A A/
/REA/
/7 ON/
/7 TH/
/18 /

/01S/

123

/K/<00><00>

P.AAI:

/es

/HWAR/
/NIN/
/G -/
/7 Cus
/ST0/
/MER/

/ DA/
/TA 7
/ARE/
/A M/
/RY /

124
101
101
101
102
111

.ASCII
.ASCII

040
124
101
101
116

123
115

117
122

.ASCII
.ASCII

123
115

127
116
107

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

.ASCII
.ASCII
.ASCII

102
050

055
122
060
067
054
104
072
061
071
000
111
040
040

/BE /

124
103

10:24:41

15-Dec-1983 10:21:50

120

051

071

000535

15-Dec-1983

RD/Rx EXERCISER
PROTECTION TABLE

NRQAM1
voi. 7

/0VE/
/RUWR/
/1T1/
/EN!/

¥ AR

VAX-11 Blies-16 V3-555

SEQ 0044

SPIDERSUSERS: [DOUCETTE .FALCON]ICNRQAA;, E: (33

G4
NRQAM1
vo1.0

000551
000554
000557

000563

000571
000574
000577

000602

000610
000613
000616

000700
000703

000711
000714
000717
000722
000725
000730
000733
000736
000741
000744
000747
000752
000755
000760
000763
000766
000771
000774
000777
001002
001004
001007
001012

RD/RX EXERCISER
PROTECTION TABLE

116
122

106
115

114
040
105
111

123
105
122
123
117

040
040

101
117
111
101
101
055
116
125
117
122
122
051
122
105
116
111
116
124

15-Dec-1983
15-Dec-1983

P.AAJ:

104
107
123

.ASCII

103
122
040

.ASCII
.ASCII

116
055

123
115

.ASCII

040

105

000
111
040
040

P.AAK:

101
117
111
101
101

122
105
117
114
111
000
101
106

P.AAL

040

115
040

.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

040

107
131
123
0690
117

042
111
040
123
051
116
115
105

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

P.AAN:

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

/0ONF
/
/IRM/
<00»>

/ALS/
/0 E/
/XER/

/CIS/

/E 0O/
/N D/
/IAG/
/NOS/
/TIC/
/ AR/
/ER /
/(-N/

/ON-/
/CUS/
/TOM/
/ER /
/ARE/
/AR)/<00>
/WR1/
/TE 7
/0N /7

/DIA/
/GNO/
/ST11/
/C A/

/REA/

<00><00>

/HAR/

/D E/

/RRO/

/R L/
/IMI/
/T/<00><00>
/TRA/
/NSF/

/ER 7/

/LIM/
/1T /
/IN /
/MEG/
/ABY/
/TES/
/7 (0/
/ FO/
/R "/
/QUL/
/CK /
/PAS/
/5")/

<00><00>

/RAN/
/DOM/
/ SE/

10:24:41
10:21:50

SEQ 0045
VAX-11 Bliss-16 V3-555
Page
4%
SPIDERSUSERS
: [DOUCETTE . FALCONICNRQAR 8L 1 (33

4
NRQAM1

RD/RXx EXERCISER

\;01.0

PROTECTION TABLE

001015
001020

105
115

001026
001031
001034
001037
001042

122
104
117
101
123

001053
001056
001061
001064
001067
001072
001075
001100
001103
001106
001111
001114

105
101
124
040
116
317
105
127
124
103
120
105

001125
001130
001133
001136
001141
001144

001152

001023

001045
001050

001117
001122

001147

001154
001157
001162
001165
001170
001173
001176
001201
001204
001207
001212
001215
001220

001223
001226
001231
001234
001237

001242

113
117

105

000

105
117

122
122

106
115

105
055
115
122
040

101
103
120
105
120

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

040
040
105
117
122
114
000
111
055
115
122
040

115
040
040
105
117
122

105
101
124
040
116
117

104
124
110
103
124
114

000

120
106

114

103
103
101
040
111
123
124
117
040
040
101
116
125

105
117

105

101

040

120

101

124

104
111
104
101

105
000

122

001260

040

120

122

123
105

105
103

P.AAP:

114
124

/EK /
/MOD/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/REA/
/D-C/
/0MP/
/ARE/
/S P/

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
_ASCII
.ASCII
.ASCII
.ASCII
ASCIX
.ASCII
.ASCII

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

P.AAQ:

P.AAR:

.ASCII

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

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

124

124
116

LASCII
.ASCI1

.ASCII
.ASCII

122

105
040
114
122
105
101
110
124
131
105
111
000
105

055
106
105
104

P.AAO:

122
122

110
113
114
127
124
040
040
123
102
122
104
107
123

122
105
116
040

15-Dec-1983

040
104

001245
001250

001252
001255

15-Dec-1983 10:24:41

.ASCII

P.ARS:

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII

10:21:50

VAX-11 Bliss-16 v3-555

/ERF/
/ORM/

/ED /
/AT /
/THE/
s CO/
/NTR/
/0LL/
/ER/<00>
/WRI/
/TE-/
/COM/
/PAR/
/€S /
/PER/
/FOR/

/MED/
/ AT/
7/ T/
/E C/
/ONT/
/ROL/
/LER/

<00><00>

/R-D/
/EF1/
/NED/
/ DA/

/TA /

/PAT/

/TER/
/N/<00>

/SEL/
/ECT/

/ PR/

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNROAA B 1

/E/<00><00>

/CHE/
/CK /
/ALL/
7/ WR/
/ITE/
/S A/
/T W/
/0ST/
BY/
/ RE/
/ADI/
/NG/<00>
/USE/

SEGQ olas

’

(22

L4
NRQAM1

RD/RX EXERCISER

%01.0

15-Dec-1983

PROTECTION TABLE

15-Dec-1983 10:21:50

00126*
001266
001271
001274
001277

105
105
116
040
124

055
106
105
104
101

104
111
104
101
040

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/E-D/
/EFI/
/NED/
/ DA/
/TA /

001305
001310
001313
001316
001321

124
116
060
537
123

105
040
040
122
105

122
050
106
040
121

.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII

/TER/
/N (/
/0 F/
/0R /
/SEQ/

001327

124

111

101

001335

105

001302

001324

001332

001340

120

125

101

105

114

040

103

124

114

124

001353
001356
001361
001364
001367
001372
001375
001400

102
040
040
122
049
040
124
120

105
117
127
104
111
104
101
101

122
106
117
123
116
101
040
124

001406
001411

116
061

040
066

050
040

001422
001425
001426

115
000
120

051

000

001444

103

001403

001414
001417

001431
001434
001437
001442

124

115
111

105

101
115
101

115

124
040

105
120

122
122

001510
001513

111
000

001517

103

001514

001522

111

116

106

122

124

101

107

116

P.AAW:

/CT1/

/NUM/

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

/N (7
/16 7/

/MAX/
/IMu/

/M)/<00»>
<00>
/PAT/

/TER/
/N V/
/ALYW/
/E/<00>
/CLE/

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

/AR /
/STA/
/TIS/
/TIC/
/AL /
/TAB/
/LES/

.ASCII
.ASCII

/TER/
/ PR/

.ASCII

107

105

.ASCII
LASCII
LASCII
.ASCII

.ASCII

124

120

105

.ASCII
.ASCII

_ASCII

001477
001502
001505

"ASCII
.ASCII

P.AAV:

040
101
123
103
040
102
123

101

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

105

122
124
111
111
114
101
105

040

_.ASCII

P.AAU:

101
123
124
124
101
124
114

/L S/
/ON)/
<00><00>

124

001447
001452
001455
001460
001463
001466
001471

/TIA/

.ASCII
.ASCII

LASCII
.ASCII
.ASCII

122
126
125

/UEN/
/ELE/

.ASCII

130
125

105
040
114
000

001474

P.AAT:

/PAT/

.ASCII

122

124
116
101
105

114

.ASCII

111

051

125

.ASCII

105

116
000

116

.ASCII

123

117
000

001350

.ASCII

116

001343
001346

10:24:41

LASCII
LASCII
.ASCII

.ASCII
.ASCII

7 AF/

/INT/

/ING/
<00>

/PER/

/CEN/
/TAG/

VAX-11 Bliss-16 V3-555

SEQ 0047
Page

SPIDERSUSERS: ([DOUCETTE .FALCONICNRQAA, BLI (33

Jad

001525
001530
001533
001536
001541
001544
001547
001552
001555
001560
001563
001566
001571
001574
001577
001602
001605
001610
001613
001616
001621
001624
001627
001632
001635
001640
001643
001646
001651
001654
001657
001662
001665
001670
001672
001675
001700
001703
001706
001711
001714
001717
001722
001725
001730
001733
001736
001741
001744

001747
001752

001755
001760
001763
001766
001771

15-Dec-1933
15-Dec -1983

RD/RX EXERCISER

NRQAM1
v01.0

PROTECTION

105

106
104
040
105
124
116

117

040
040
124
040

105
124
116
125
124
124
102
123
105
105
101
122
104

117

111
114
123
105
105
111
051
116
102

116
104
116

105
145
145
163
104
163
156
051
124
040
115
116

040
040
065

117
122
111
123
125
117
124
101
117
122
111
123
116
123

117
105
105
103
104
124
101
117
050
054
115
111
040

121
116
101

000

125
105
117
104
163
105

040
040

105

111
040
146
143
040
065
040

154

000
110
122
101
111

TABLE

117
122

/E
/F

117

/1107
/NS /
/0UT/
/ OF/
/7 T0/
/TAL/
/7 OP/
/ERA/
/T10/
/NS/<00>
/UNI/
/7S 7/
/70 7

/D517
/ 0P/

061
120
101

/ERA/

040

124
106
117
114
120
101

117

000
111
040
040
040
114
124
040
040
116

P.AAX:

/8E 7/

/SEL/
/ECT/
/ED /7
/AT 7/
/RAN/

/D0M/

115
116
040
120
165
123
12%
124
114

115
122
106
102

/7 (N/
/0, 7/
/7IMP/

/LIE/

/S S/

/7EQU/
/ENT/

P.AAY:

101
101
117

116

/BER/

/D A/

/T O/
/NE /
/TIM/

040

111

/IAL/
/)7 <00>
NN/

/7 OF7
/7 DB/
/Ns 7/
/REA/

040

115
050
146
164
122
061
157
171
000
105
105

O/
R/

/€ (7

/eff/
/ect/
/s R/

/0517

/s o/
/nly/

P.ARZ:

/)/<00><00>
/THE/
/ RE/
/MAY/
/NIN/

10:24:41
10:21:50

SEQ 0045
VAX-11 Bliss-16 v3-555
Page
49
SPIDERSUSERS:
[DOUCETTE .FALCON)CNRQAA BL1 (22

002002

PROTECTION

107
125
124
116

002010
002013
002016
002021
002024
002027
002032

117
131
120
131
117

002040
002043

104
111
123

002035

002055

002063
002071
002074
002077
002102
002104
002107
002112
002115
002123
002126
002131
002134
002137
002142
002145
002150

002153
002156
002161
002164
002167
002172
002175
002176
002201

002207
002212
002215
002220
002223
002226
002231
002232

116

117
103

TABLE

040
105
111
123
116
040
120
040
040
120
124

121
123
117
040
114

040

104

124

123
000

000

114

124
125

122
105
105
113

045
116
045
045

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

120
104
040

1¢°
101
106
040
115

124
116
105
114
111

110
045

101
105
116

103
104
000

045

101

105

045

123

115
116
116
045
117
111

111
122
045
045
116

122
045
045
122
123
122
111
124

105

040

/0ONL/

/Y A/
/PPL/
/Y 1/
/0 U/
/NPR/
/0TE/
/CTE/
/0 D/
/ISK/
/75/7<00>

101

116
125
124
062

045
101
111
104
101
122
120

/G Q7
/UES/
/1107
/NS /

001774

001777

15-Dec-1983
15-Dec-1983

RD/RX EXERCISER

NRQAM1
ve1.0

/D2%/

/A D/
/ROP/
/PED/

104

125

122
117
101
045
000
103
106
125
124
116
122
122
000
111
124
122
122
000

<00><00>

/9Ns/
/7AUN/
/ITs/

P.ABD

R
<00><00>
/8RAV/

/SER/
/ Co/
/MMA/
/NDss/

/N/<00><00>

P.ABE

/8AC/
/
/ONF
/71GU/
/RAT/
/ION/

P.ABF

/ ER/
/ROR/
/8N/<00>
/8AY/
/NIT/
/ ER/
/ROR/
/9N/ <00>
<00»>

P.ABG:

/8AT/
/RAN/
/SFE/
/R L/
/IMY/
/T R/
/EAC/
/HED/
/8N/<00>

P.ABH:

/%AE/

122

<00>

10:24:41
10:21:50

SEO 00&1
VAX-11 Bliss-16 v3-555
50
SPIDERS$USERS: [DOUCETTE. fALCON]CNRQAA BLI (33

L4
RD/RX EXERCISER

PROTECTION

122
122
111
124
105
110
045
045
116

103
105

102
040
126

105
122
122

045
116
103
105
102
040
116
117

105
105
117

116
045
101
105

103
105
116
116
116
045
101
105
124
101
105
040
123
124
103
104
111
111
116
045
111

122
040
115
040
101

105
116
101
122
117
122
114
104

111
040
122
045
000
101

122
117
122
114
103
124
114
122

122
122
000
101
111
104
117
117

040
114
105
000

101

111
104

117
103
123
114
124
122
113
125
116
111
124
000
101
123

15-Dec -1983
15-Dec-1983

TABLE

117
114

/RRQ/
/R L/

/IMI/
/T R/
/EAC/

111

122
103
104
000
125
105
126
101
105
105
103
105
117
116

125
105
126

P.ABI:

/BLE/
/ DE/
/VIC/
/E E/
/RRO/
/ReN/

<00><00>

P.ABJ:

101

105
117
122
114
040
122
045
000
106
114
040

/0LL/

/ER 7/
/ERR/

P.ABK

/7COM/

111
045

104
113

/0Rs/
/N/<00><00>
/
/9AF
/AIL/

/ED /
/70 7

115
117

045

/98AY/
/NRE/
/COV/
/ERA/

/BLE/
/7 CO/
/NTR/

040

106
114
040
040
103
123
101
040
101
040
122
107
116

/HED/
/8N/ <00>
/8AU/
/NRE/
/COV/
/ERA/

P.ABL
:

/E O/
/NLY/
/NES/
/N7 <00>
/8AF
/
/AIL/

/ED 7

/70 7
/ACC/

/ESS/

/ LA/
/5T 7
/TRA/
/€K 7/
/DUR/
/ING/
/7 IN/
/1Ts/
/N/<00>
/8AD/
/ISK/

10:24:41
10:21:50

SEQ 0050
VAX-11 Bliss-16 v3-555
Page
51
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL1 (33

M
RD/RX EXERCISER
PROTECTION TABLE

002557
002570

045

117

101
040

115
117
045

045
116
040
116
124
101
111
102
101
045

002657

002104°
002126
002156
002176’
002232'
002262
002322°
002366
002420
002474
002526
002554
045
101
127
040

002665
002670
002673
002676
002700
002703
002706
002711
002714
002717
002722
002725

127
124
107
045
101
116
111
101
124
124
124

002651

114

101
111

127

124
117
126
114
114
123
i24
116

/ WR/

122
105
122
105
105
116

/ITE/
/ PR/
/0TE/

/CTE/
/DEN/

<00><00>

103
115

P.ABN:

125
124
105
040
040
101
101
105
124
105
000

P.ABO:

/AND/
/7 11/
/ME /
/0UT/
/8N/<00>

104
111
040
124
000

<00»>

120
105
104
101
055
101
111

116
106
103

117

114
105
040
101

045

117

/BLE/

/7 St/
/ATE/
/8N/<00>
«<00>

P.ABP:

105
131

040
111
116

045
125
124
116

123
123
122

/%AY/

/NIT/
/ WE/
/NT 7
/70 7

/AVA/
/ILA/

P.ABC:

116

/%AC/
/0MM/

P.ABQ:

002531
002534
002537

117
103
104

127
124
120
124
124
045
000
101
115
116
124
105
125
116

BEgERERERRRE

002524

040
111
040

AAAARARAAAAN

002502
002505
002510
002513
002516

15-Dec 1983
15-Dec-1983

AA3333335838s8

NRQAM1
vol1.C

10:24:41
10:21:50

SEQ 00%1

VAX-11 Bliss-16 v3-555
Page
SPIDERS$USERS:
[DOUCETTE .FALCON]ICNRQAA . BL1

52
(33

N4
15-Dec-1983 10:24:41

RD/RX EXERCISER
PROTECTION TABLE

124

105

104

045
116

116
045

045
101

105
122
123
101

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

15-Dec-1983

P.ABR:

105

111

122
124
124
045
045
101

P.ABS:

124
123

117
124

117

040
043
131

123
P.ABT:

101
055
101

122
123
123

122
122
055
116

P.ABU:

040
040
040

101

131
040
105
123
040
122
104
040
111
123
040

101

127
124

040

127

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

/TED/
<Q0»>

/%N
/

/N$A/
/EXE/
/RCI/
/SER/
/7 ST/
/ART/
/ED®/
/N/<0Q0>
/8Ns/
/NsA/
/UNT/
/ DS/
/K8S/
/8%A/
/7@ 0/
v e
/

/BYT/
/ES /
/
&/
/7 OF/
/
/
/7 @ /
/BYT/

/ES/<00>
<00>

/8A /
/ --/

/HAR/

/0 E/
/RS-/
/-

/-S0/
/FT 7/
/7ERR/
/0RS/

/--7<00>

/98Ns/
/A &/
/
4

/
7/

/TYP/
7/
R
/REA/
/DS 7/
/ RE/
/AD /
/

/RIT/
/ES 7/

10:21:50

VAX-11 Bliss-16 V3-555

SEQ 005

Pese 58

SPIDE
: { DOUCE
RSUSE
T TE . FALCONICNRGAR
RS
BL1

(22

th
RDRx EXERCISER

1% Dec
i% Dec

PROTECTION TABLE

124

101

040

123

C40

124
122
110
040
113
101
104

116

105
104

«00»

/8A /
/ SE/
/K D7

P.ABV:

/AT
/
/DRv
HS/

/1 S/
/EK /
/DAT/
/ DR/
/N

/S7/7<¢00»

P.ABW:

/
/%N
/A-'
'
Vo
'

«.
'

5
s

BB B
b B

e
R

Ve T

040
124
116

/RI1/
/TEN/

NN NN NNNNSNNNNNNANN

111
105

/-7<00»><00»

P.ABX:

/8A

/ -/
/-7¢00><00>

P.ABY:

/BN
/

/02%/
/04%/
/
/A
/RXS/

P.ABZ:

101
122

"ASCII

ASCIT
.ASCII

/707¢<00><00>
/9Ns/
/D2v/
/D4%/

/RDS/

193%
1987

10:c04:41
10:21:50

VAX 11 Bliss 16 v3 S5%

SEQ

GOL7 T

SPIDERSUSERS
: [DOUCE T TE .F AL CONICNRIAK,
& §

“a
e

.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

/4D4/
/u23/

/8D3/

/%A,
/
/%23%/
/
/%A,

/%237

<00»>

/
/%04
/s
/%D4
/%04
/

/4D4/

/%047
/4D4/
/8D4a/
/8D4/

«<00><00»>

/9Ns/

123

040

8\\\\\\\\\\\\

Son
8

o AR P

NSNS NNNNNNNSNSNSNSNSNNNSNNSANSANNS

P.ACD:

ii . =§. W hi

<«00>»<00>

P.ACE:

101
111

P.ACC:

.ASCII
.ASCII

/717<00><00»

124

333333133
1 A3 §RRIFBERFRRE

003543

P.ACB:

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

003503
003506
003511
003514
003517
003522
003524
003527
003532
003535

P.ACA:

’

003500

15 Dec 1983

NN SANANNNSNNS

003475

3 RBPRBBBoBYBIRPRTBLRRPERE 3333333334 g22288 g8

000
104
132
104

003441
003444
003447
003452
003455
003460
003463
003466
003471
003472

15 Dec 194% 10:28:41

RD/RXx EXERCISER
PROTECTION TABLE

NRQAM1
vo1.¢

.ASCII
.ASCII

/UNL/
/T
7/

.ASCII
.ASCII

K
- S

/01S/
7/

10:21:50

VAX 11 Bliws-16 v3 555

Pege

SPIDER$USERS: [DOUCE
TTE ¢ ALCONJCNRGAR
Gl

« 27

[)rw

15-Dec 1983
15-Dec - 1983

RD/RX EXERCISER
PROTECTION TABLE

040
040
040

040
040
043

040
040

040
102

040
040
043
106
040
040

040
040
040

117
113

G40
040
040
040
043

123

040
040
040

/0F 7/
/
o/
/7 BL/
/KS /
/
/
/
/

040

040
043

106

114

117

/70 O/
V{2
e/

114

113

040

101

045
040

/7 BL/
/KS 7
<00>

P.ACF;

/
/%NS
/A
7/
7/
/0
/
70
g

/
7/

/TYP/
/E
7/
/ RE/

/ADS/

101

/EAD/

ST
T
" AT 4

/WRI/

/TES/
/

/RIY/
/TEN/
101

/7 7¢00>
/sl
R--/
==/
7 =/

P.ACG

004072
004100
004103
004106
004111
004114
004117
004122

004130
004133
004136
004141
004144
004147

.ASCII
.ASCII

,ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

leos O
/7 -=/
lemed
l-< 7
/7 =</
lenel

Faly
/ <</
leoeo=l
FER
" AR
least
l-<</
7 IR
leee/
/=<t

10:¢4:41
10:21:50

VAX-11 Bliss 16 v3-555

SEQ 005N

Page

SPIDERSUSERS
: [DOUCE 1TE . FALCONICNROGA B 1

(27

15-Dec

RD/RXx EXERCISER
PROTECTION TABLE

040

000

045
123
104
123
104
101

116
061
062
064

045
045

116
065
040

063
065
063
124
116
125
124
116

117
110

115
131
117
101
117
107
105
057
111
106
122

062
040
104
122
061
045
045
045
045
045
045
045
000

117
115
131
116
123

117
105
125
105
115
117

P.ACH:

101
040
111
000

124
116
107
106

/ wD/
/76%S/
/34D/
/76%S/
754D/

/76¥S/

/34D/

/767<00>

P.ACI:

/1007

/ MA/
/NY

/UNI/

/757<00>
<00>

P.ACJ:

/NOT/

/ EN/
/70UG/
/M F/
/REE/
/ ME/
/MOR/
/Y F/

/OR 7/

/ALL/

/70CA/

/TIN/

/G R/
/EAD/
«S7T>/uR/

/ITE/
/ BU/
/FFE/
/RS/<00>

102
106
123

124
103
124
124
101
105

/9Nw/
/S1%/
/02%/
/S4%/

/51 7/

127

123

/<00>

/Des/
/7
/A
/7 DB/
/NRD/

101

105
123

123
106
114

<Q0>

122
114
103
111

122
111
105
116

15-Dec-1983

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

117

<00>

P.ACK:

/REG/

7187/

/ER 7/

122

111

1983

/EX1/
/STE/
/NCE/
7 J¢V/
/ST 7/
/FAYL/
/LED/

<«00><00»>

10:24:41

10:21:50

SEQ 0%
VAX-11 Bliss-16 vV3-555
Page
- 14
SPIDE
: [DOUCE
RSUSE
TTE .FALCONJCNRGAR
RS
.BL 1 ¢ 13

F o
15 -Dec-1933
15-Dec-1983%

RD/RX EXERCISER

PROTECTION

126
124
040
123
106

114

102
114
105
124
124
101
105
111

124

105
105
101
105
106
101
103
124
114
122
122

105
117
124
124
101
105
000
122
105
114
105
040
111
104

116

040

121
116
040
111
104

122
106

101

111
020
111
104

127
124
120

124
117
114
101
111
104
106
101
111

103
122
105
040

P.ACL:

111

104

040
126
040

P.ACM:

123

106
114
000
111

123
125
103
106

P.ACN:

114

P.ACO:

101
114

117
122
114
040
122
000
116
116
106
114
000
122
105
122
105
040
116
111
000
103
123
106
114
000
101
114
057
105
117

117

TABLE

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

.ASCII
.ASCII

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

/VEC/

/TOR/

/ TE/
’5Y 7/
/FRAl/
/LED/
<00><00>

/BR /
/LEV/
/&L /7
/TES/
/T F/s
/AIL/

/ED/<00>
<00»>

/INI/

/T S/
/EQU/
/ENC/

/E F/

/AIL/
/ED/ <00>
<00>

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

/R/7<00><00>

7ONL/

P.ACP:;

ASCII
ASCII
P.ACQ:

103
123
101
105
124

P.ACR

/D/<00>

/WR1/

/TE-/
/PRO/
/TEC/
/T C/
/7
/ONF
/LIC/
/7/<00><00>
/ACC/
/ESS/
/7 FA/
/ILE/

P.ACS:

117
122
122
111

/INE/
/ FA/s
/ILE/

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

/1/<57>70/
/ ER/
/ROR/
<«00>

P.ACT:

/FAL/

10:24:41
10:21:50

SEQ 0057

VAX-11 Bliss-16 v3-5 55
58
Page
SPIDE
: [DOUCETTE
RSUSE
.FALCONICNRQAA
RS
. BLL ( 32

004651
004654
004657
004662
004665
004670
004673
004676
004701
004704
004707
004712
004715
004720
004723

004726
004731
004734
004737
004742
004745

15-Dec-1983

RD/RX EXERCISER

NRQAM1
%01.0

PROTECTION

114

040
040

116
116

117

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

122
000
101
105
124
123
104
116

111
040

115
116

000
116
111
040

15-Dec
- 1983

TABLE

/LED/
/7 10/
/ SE/
/ND 7/
/SET/
/-C0/
/NTR/
/0LL/
/ER-/
/CHA/
/RAC/
/TER/
/71ST/

104

117
105

040
124

117
122

114
055
101
103
122

124

123
117
101
000
124

117

P.ACU:

/0LL/

/ER-/

/CHA/
/RAC/
/TER/
/IS1/

103

122
124
123
105
117
105
101
102

/ICS/

/ RE/

/SP0/
/NSE/
/ MA/
/S B/

/AD /
/END/
/C0D/

040
104
104

117
106
107
111
105
117

040

/-C0/

/NTR/

122
114
055
101

111
104
117
105

/71CS/
/7 CO/
/MMA/
/ND/<00>
/SET/

/€ O/

/R F/

/LAG/
/S 1/

/N E/

P.ACvV:

/R/<00>
/FAY/
/LED/
/7

10/

/ SE/

055
116
103
115
104

/ON-/
/LIN/
/E C/
/0MM/
/AND/

055
116
122

/ON-/
/LIN/
/E R/

<00><00>

10:24:41

10:21:50

VAX-11 Bliss-16 V3-555

SEQ 0C%A

soxoensuseas:(ooucerrs.rnuconlcnnann?gff <§§

"l"RD/RX EXERCISER
PROTECTION TABLE

15 -Dec -1933
15-Dec-1983
.ASCI1
.ASCII
LASCII
.ASCII
.ASCII

105
117
105
101
102

123
116
040
123
101
105
103
105

120
123
110
040
104
116
117
000

111
040

057
122
125
124
101

117

P.ACX:

115
105

P.ACY:

040
104
104

121
123
106
114

045

117

040
101

045
125
124
123
103
111

045
040

123

116
040

104

123

045

103
124
122
105
114

117

104
111

045

105
045

105

000
101
122
124
116
104
101
116
123
120
111

105

101
116
122
120
123
101
101
122
123
117
000
101
111
117
105
040
040
126
040

122
105
103
045
000
101
123
120
104

105
105
040
111
104

110
040
062
040
111
040

105
106
104

052
117
105
117
105
124
104
105

P.ACZ:

052
116
122
103
102
114
105
106
040
126
105
117

P.ADA:

052
124
040
061

P.ADB:

.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

/ESP/
/ONS/
/E

/RS

/BAD/

/ EN/
/DCO/
/DE/<00>
<00>

/1/7<57>/70/
/ RE/
/QUE/
’SY /7
/FAL/
/LED/
<00><00>

/%AM/
/0RE/
/ TH/
/AN /
/%027
/8A /
/UNI1/
/78 /
/SPE/
/CIF/
/IED/
<00>

/%As/

/7 NO/
/ RE/
/SP0/
/NSE/
/7 AT/
/ AD/

/DRE/

/58S 7/
/9806/

040
066

<00><00>

/sRAs/
/7 IN/

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

/COR/
/REC/
/7 B/
/R L/

/EVE/

/L Frs
/0R /
/DEV/
/ICE/
/ w0/

/76/<00>
/%As/
/ St/
/EP /7
/8D1/

10:24:41
10:21:50

VAX-11 Bliss-16 V3-555

Pege

SPIDE
: [ DOUCE
RSUSE
TTE . F ALCONICNRQAR
RS
&1 1

RD/RX EXERCISER
PROTECTION TABLE

045
122
104
122
122
045
040
104
101

117

040

117

104
111
040

045
040

123

101
105

040

106
116

045
040
126
105

117

101
117
120
103
123
107

040
101

101
102

052
101
123
103
105
122
040
126
105
117

P.ADC:

052
111
045
045

P.ADD:

040
040

104
106
115
105
103
045

105
117

123
107
124
105

165
145
147

157
151

117

101

103
165
145
147
172

/ FR/
/0M /
/DEV/
/ICE/
/ w0/

/76/<00>

040
162

/8As/
/ DI/
/5Ks/

/D2s/

/A W/

/ENT/

124
106
111
000

117
123
116
103
115
104
101
105
000
040
162
157
151
144
105
101
040
120
000

/%A /
/RERA/
/D E/
/RRO/
/R/<00>
/%As/
/ BA/
/D S/
/A C/

/
/0DE

127

052
105
103
045
045
116
040

15-Dec-1983
15-Dec-1983

101
105
040
122

000

[

/7 OF/
/FLY/
/NE /<00>
<«00>

P.ADE

/8As/

/7 DE/
/VIC/

/E o/

/06%/
/A N/
/07 7
/PRO/

/CES/

/SIN/

/G C/

P.ADF:

/0MM/
/AND/
/7 PA/
/CKE/
775/7<00>
/ -/
/unr/
/eco/

/gni/

7200/

/ ME/
/SSA/
/GE 7/
/TYP/

/E/<00><00>

P.ADG:

/ -/
/unr/
/eco/

/gni/

10:24:41
10:21:50

SEQ 00L0
VAX-11 Bliss-16 Vv3-555
Page
61
SPIDERSUSERS:
(DOUCETTE ,FALCONICNRQAA .BL1 (3

(€Lo

«JF'
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
vo1.0

005624
005627
005635
005640
005643
005646
005651
005657

005665
005670
005673
005676
005701
005704
005706
005711
005714
005717
005722
005725
005730
005733
005736
005741
005744
005747
005752
005755
005760
005763
005766
005770
005773
005776

172
040

156
143
157
151
040
165
145
147
172
040
124
116
145
141

040
165
145
147
172

116
101
105
165

145
147
172

116

105
107
132
103
105
115

124
103
105
122

040

104
101

123

145
143
156
164
156
144
055
156
143
156
145
122
125
040

163

147
000
055

156
143
156
145
122
125
040
103
124
055
156
143

156

145
103
000
055
116
103
116
105

117
117

000
055

123

040
101

123
117
040

122
000
055
125

123

124
040

15-Dec-1983 10:24:41
15-Dec -1983 10:21:50

144

157
145
151
040
000
040
162
157
151
144
105
122
155
163
145

040
162

P.ADH:

P.ADI:

157
151

144
105
122
120

113

000
040
162
157
151
144
122
040
122

.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

/eti/
/on /

/i1d/<00>

£ s
Junr/
/eco/

/gni/

/g:d/

/ RE/
/TUR/

/N m/
/ess/
/
/

<00><00>

4
R
Junr/
/eco/

/gni/
/zed/
/ RE/
/TUR/

/N P/
/ACK/

/gni/

/zed/

/7 CR/
/N/<00>

P.ADK

7UNR/

/7ECO/
/GNY/

/7ZED/
/7 0P/
/C0OD/

Z7E/7<00><00>
/ -/

P.ADL

/MSC/
/P S/
/TAT/

/US /

/COD/

/E E/

117

124
125
103

¢co/

/nne/

/7 -/
/unr/
/eco/

111

040
120

/E1/<00>

P.ADJ:

117

104
120
104
000
040
103
123
124
040
104
105

/zed/

P.ADM:

/RRO/
/R/<00>

.ASCII
.ASCII
.ASCII
.ASCII

/0UP/

/7 ST/
/ATY/
/S C/

VAX-11

Bliss-16

V3-555

SEQ 00£1
P

age

SPIDE
: [DOUCETTE
RSUSE
,FALCONJCNRQAR
RS, 8L1

(

2
3

I( F—l
NRQAM1

RD/RX EXERCISER

\;ox.c

006071
006074
006077
006102
006104
006107
006112
006115
006120
006123
006126

15-Dec-1983 10:24:41

PRCOTECTION TABLE

006131
006134

117
040
122
000
040
165
145
147
172
040
101
123
117

104
105
117
000
055
156
143
156
145
123
124

006140
006143
006146
006151
006154
006157

15-Dec-1983 10:21:50

105
122
122

P.ADN:

040
104

040
162
157
151
144
124
125
103
105

040
114
040
123
103
120

055
102
110
124
117
101

040
116
117
040
115
122

P.ADO:

006165
006170
006172
006175
006200

122
122
040
104
040

122
000
055
102
110

117

040
116
117

006211

120

101

122

006137

006162

006203
006206

006214

000

105

123
103

040

124
117

105

040

006222
006224
006227
006232
006235
006240
006243
006246
006251
006254
006257
006262
006265
006270
006273
006276
006301
006304
006307
006312
006315

122
040
125
102
040
040
101
104
040
104
040
040
105
117
111
104
055
124
110
040
111

000
055
116
114
124
114
104
125
115
111
000
055
122
122
116
125
120
040
105
125
116

006323
006326
006331

114
114
120

122
103
122

006217

006320

122

040

122

103

.ASCII
.ASCII

105

P.ADP:

117

105
117
117
040
120
105
101

120

113
127
116
123
107
124
040
040
107

P.ADR:

/S C/
/0DE/
<00>

/ - /
/LBN/
/7 WO/
/ST 7
/COM/
/PAR/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
LASCII

/RRO/
/R/<00>
7/ - 7/
/DBN/
7/ WO/
/ST 7/
/COM/

.ASCII

/E E/

.ASCII
P.ADQ:

/ODE/
7 ER/
/ROR/
<00><00>
/7 - /
/unr/
/eco/
/gni/
/zed/
/ ST/
/ATU/

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

.ASCII

105

000
040
122
040
040

.ASCII

040
115

040
101

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1I
LASCII
.ASCII
JEREL
LASCII

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

.ASCII
.ASCII
LASCII
.ASCII

/E E/

/PAR/

/RRO/

/R/<00>
7 - /
/UNA/
/BLE/
/7 TO/
7 LO/
/AD /
/DUP/
7 ME/
/DIA/
7 7<00><00>
/ - /
/ERR/
/OR /
/IN /
/DUP/
/-PK/
/T W/
/HEN/
/ US/
/ING/

/ CV/

/LR /
/LC /
/PRG/

VAX-11 Bliss-16 v3-555

SEO 00k 2
Page

SPIDERSUSERS: ([DOUCETTE .,FALCONICNRQAA .BL1

(23

L5
15-Dec-1983%
15-Dec-1983

RD/RX EXERCISER
PROTECTION TABLE

045
116
114
040

115

116
045

117

101
040

117
105
116

116

006455

006476
006501

006510
006512
006516
006521

006527
006532
006535
006540
006543
006546
006551
006557
006562
006565
006570
006573

103
103
105
122
122
045
101
040
122

000
101
126
111

111
101
104

P.ADT:

103
115
104
101
115
116
101
122
104
101
111
117

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

105

000

101
101
111
117
124
101
111
102
040
101
000
101
104
040
122
124
122
122

124
116
124
116
117
126
114
114
123
124

P.ADM:

115
111
106
115
040
122
000

P.ADX:

101
111
055
117
103
104
101
126
105
117
101
040
122
000
101
124
105
117

127
124
120
124
124
000
104
111
040
115
122
105
117
000
104
101
122
122

P.ADY:

114

P.ADV:

111

.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

<00><00>

/8Al/
/NVA/

/LID/

/7 CO/
/MMA/
/ND/<00>

/%AC/
/70MM/
/AND/
/ AB/
/0RT/
/ED/<00>
/%AY/

/NIT/
/ OF/
/FLYI/

/NE/<00»>
<00>

/8AT/
/RAN/
/S1t/
710N/
/7 T0/
/ AV/
/RIL/
/ABL/

/€ S/

/TAY/
/E/<00>
/9AM/

/EDI/

/A F/
/0RM/
/AT 7

/ERR/

/0R/<00>
<00>

/78AW/
/RIT/

/E-P/
/ROT/

/7ECT/

/ED/<00>

P.ADZ:

P.AEA:

/8AD/

/EVY/

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

10:24:41
10:21:50

VAX-11 Bliss-16

v3-555

SEQ

SPIDERSUSERS: [DOUCETTE.FALCON JCNRQAA ;3: (33
54

M5
NRQAM1

RD/RX EXERCISER

\;01.0

PROTECTION TABLE

006576
006600
006603
006606
006611

000
045
117
040
106

006617

103

006614

006622

006625

006630
006633
006634
006637
006642
006645
006650
006653

006656
006660

006663
006666
006671
006674
006676

006701
006704
006707
006712
006715
006720
006723
006726

006731
006734
006737
006742
006745
006750
006753
006756
006761
006764
006767
006770
006773
006776
007001
007004
007007
007012
007014
007016
007020
007022
007024
007026

15 Dec-1983 10:24:41

000
101
123
102
106

110
124
125
105

103

105

15-Dec-1983 10:21:50

P.AEB:

122

040

123

040

117
000
045
117
122
114
040
122
000
045
122
105
122

122

000

101
116
117
105
105
117
000
101
111
040
122

103
124
114
122
122
122

P.AEC:

104
126
105
117

P.AED:

045

101

115

P.AEE:

105

122

105
101
040
117
111
105
101
104

107
123
103
045
117
040
115
122
105
117
000
045
117
101
040
115
125

006336°
006360’
006402°
006422
006462
006510’
006532

122

000

101

123
105
122
040
124
116
040

116
124
123
101
123
103
120
105
122
122

117
111
000
110
124
117
101
040
122
000

101
115
116
124
105
124

103
115
104
i11
117
000

111

<00><00>
/sAH/
/0ST/
/ BY/
/FFE/

.ASCII

/CCE/

.ASCII
.ASCII

122

123
107
106
115
116
122
114

LASCII
.ASCII1
LASCII
.ASCII
.ASCII

.ASCII

101

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

.ASCII
.ASCII

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

P.AEF:

P.AEG:

P.ADS:

.ASCII
.ASCII
.ASCII
_ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

/R A/
/SS /

/ERR/

/0R/<00>
<00>
/#AC/
/ONT/
/ROL/
/LER/
/ ER/
/ROR/

<00><00>
/®AD/
/RIV/
/E E/
/RRO/

/R/<00>
/«AM/

/ESS/
/AGE/

7/ FR/
/OM 7/
/INT/
/ERN/
/AL /

/DIA/

/GNO/
/ST1/
/CS/<00>
/sAW/
/0ST/
s CO/
/MPA/
/RE /
/ERR/
/OR/<00>
<00>
/sAC/
/O0MM/
/AND/
7 TI1/
/MEO/
/UT/<00>
P.ADT
P.ADV
P.ADV
P .ADMW
P.ADX
P.ADY
P.ADZ

VAX-11 Bliss-16 V3-555

SEQ 00r4

Page

SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BL1 (33

007030
007032
007034
007036
007040
007042
007044
007046
007051
007054
007057
007062
007065
007070
007073
007076
007101
007104
007107
007110
007113
007116
007121

007124
007127
007132

007135
007140
007143
007146
007151

007154
007157
007162
007165
007170
CO7173
007176
007200
007203
007206
007211
007214
007217
007222
007225
007230
007233
007236
007241
007244
007246
007251
007254
007257
007262

RD/RX EXERCISER
PROTECTION TABLE

15 Dec
15 Dec

.WORD

045
122
122
117
115
123
105
105
111
104
116

P.AEM:

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

P.AEJ:

P.AEL:

040
104

052
111
045
045
055
111

122

101

116
105
117
114
040
123
107
122
105
105
045

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

113

123

122
122
122
000
101
104

113

062
040

/9Ns
/
/RER/
/ROR/
/ LO/
/G M/
/ESS/

/AGE/
/ RE/
/CEX/
/VED/
/ 19N/

.ASCII

<00>

/%As/
/7 CO/
/NTR/
/0LL/

/ER /
/ERR/

P.AEK:

.ASCII

/0Rs/
/N/<00><00>
/8RAs/
/7 WO/
/ST 7

/0RY/
/ AC/
/CES/
/S E/
/RRO/
<00><00>

/8As/
/7 Di/
/SKs/

CASCII

/A -/
/7 D1/

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

/TRA/
/NSF/

ASCIT

040
106

040
122
045

052
111
045
045
055

.ASCII

.AEA
.AREB
.AEC
.AED
.AEE
. AEF
.AEG

VVODDODDO

NRQAM1
\;01 .C

P.AEM:

_ASCII

.ASCII
.ASCII
.ASCII
LASCII

/SK

/ERR/
/0Rs/
/N/<00>
/8As/
/ D1/
/SKs/
/D2%/
/A -/

1983
1983

10:24:41
10:21:50

VAX-11 Bliss-16

v3-555

SEQ 007
P
66

SPIDERSUSERS:[DOUCEYYE.FALCONICNNOflA.gPT (33

tie
RD ‘Rx EXERCISER

1% Dec
15 Dec

PROTECTION TABLE

vo1.¢
)

042
101
101
040

00726

00727¢

007272

007276
007%01
007304
007807
007812
007515

123

111
105
117
105
o4z
122
122
000
101
104

0073528
00752¢
007551
007554
0078587
007342
007345
007%50
007353
007556
007361
007364
007367
007372
007375
007400
007402
007404
007406
007410
007412
007414

123

116
122

104
113
116
122
116
108
040
122
045

/NEC/
TM 4
/ERR/
/0Rs/
/N/7<00><00»

/8Ae/

/7 DI/

/SKe/

062

/02%/

101
040

/
/MAL

/A -/
’ S

040
042

/L D/
7ISK/
7" B
/RRO/
/ReN/

123

040
122
045

«00><00>

P.AEOD:

007422
007425
007430
007433
007436

P.AEY
P.AEK
P.AEL
P.AEM
P.AEN
/
/BN
/AL/<ST>
/0 B/
/\FF/

/ER 7/

/ADD/
/RES/

007441
007444

/S Frs

/0R 7/
/RER/
/0 (/
/32 7

007447
007452
007455
007460
007463
007466
007471
007474
007477
007502

/8117

/8):/
/ 0/
/768A/
/ 80/
/76%N/

<00><00»

P.AEP;

007507
007312
007515
007523

715K/
/7 IN/
/TER/
/CON/

113

007417

7 TAN/
/DAR/

101

/oBN®/
/AL/<S57>
/0 B/
/FF/
/ER /

/ADD/

1933
1983

10:24:41
10:21:50

VAY 11 Bl es 16 v3 955
P age
SPIDERSU:SERS
[DOUCE TTE . F ALCON JONRGAR &

‘

Lt
-t

RD/Rx EXERCISER
PRCTECTION TABLE

NRQAM1
vol.¢

00 752¢
007531
007534
007537
007542
007545
007550
007553
007556
007561
007564
007567
007572
007575
007600
007603
007606
007611
007614

007617

007622
007625
007630
007633
007636
007641
007644
007647
007652
007655
007660
007663
007666
007671
007674
007677
007702
007705
007710
007713
007716
007721
007724
007727
007732
007735
007740
007743
007746
007751
007754
007757
007760
007763
007766
007771

122
123
117
127
124
040

124
072

117
101
117
045
101
116
101
040
065

117

040

051
045
101
116
111

105

040
122
122

105
063
102
123
040
066
040
066
116

114

072
122
104
045
045
040

103
045
045
000
116
114
072

1% Dec
1% Dec
/RES/
/S F/
/0R 7/
/WRI1/
/TE 7

123
106

040
111
040
062
111
051
045

045
045
000
045
102
040
105
051
104
101

/(327
/7 Bl/
/1S)/
/:

/706%/
/A %/

P.AEQ:

.ASCII

/06/<00>

/98NS
/

/ALB/
/N: /
/(RE/

/AD)/

/7 4D/

124

P.AER:

.ASCII

127

/S%A/
-k
/0CT/
/7 w0/
/76%A/
/)7<00><00>
/
/9N
/ALB/
/N: /
/CWR/
/ITE/
/7)) o/

705w/

104
101

124
117
101
045
101

P.AES:

.ASCII

103
105

/A, /
/(0C/
/7 &/
7068/
/A)7<00>
/9N
/
/ARE/
/PLA/
/7CEM/

/ENT/

040

117

/ BL/
/70CK/
/7 NO/

104

/05s/

/7,

101

/A, /7
/7¢(0C/
/7T &/
/706%/
/R)/<00>

124
117
101

045
101

124
103

116

117

P.AET:

.ASCII

<00»>

/
/6N

/ABY/
/TE 7/

/COV/

1933
198%

10:c4:41
10:21:50

VAYX 11 Blies 16 v3-555

SEQ

Gis,

Page

SPIDERSUSERS
: [DOUCE T TE .F ALCON)CNRIAA 5L 1

(77

DI
15-Dec
15 Dec

RD/RXx EXERCISER
PROTECTION TABLE

NRQAM]
vVO1.C
)

007774
007777

¢10002

010005
010010
010013
010016
010021
010024
010027
010030
010033
010036
010041
010044
010047
010052
010055
010060
010063
010066
010071
010074
010077
010100
010103
010106
010111
010114
010117
010122
010125
010130
010133
010136
010141
010144
010147
010152
010155
010160
010163
010166
010172
010174
010177
010202
010205
010206

010211
010214

010217
010222
010224
010227
010232

ilée
111
122
104

117
101
072
104
101
045
101

124
103

116
111

127

124
103
115
104
045
045

045
101

123

072
104

045
101
072
117
045
101
101
123
117
072
045
101
101

124
116
105
040
115
116
040
065
056
116
102
105

117

124
116
122
105
117
101

072

104
101

116
040
104

113

045
101
115
116
040
045
104
055

103
115

104
045
045
000

045
131
040
125
040
040
111
040

/05%/
/A, /7<00»
<«00»

P.AEV:

/IN 7
/WR1/

/TE 7/
/COM/

115

116
040
065
056

045
052
111
040
045
000
045
101
045
000
045
124

116

117

072

116

103
115
104
101
125

000
045
124

/0:

/8A./
<00»

P.AEV:

/
/78N
/A o/
/7 DI/
/8K 7/

/7027<00>

P.AEX:

/ASA/
/3
706/<00>

/AST/

7ATY/
/s C/
P.AEY:

/3 /7<00»
/
/N
/AST/
/ATU/
/S S

/UB-/

/C0D/

/€

040

<00»

P.AEZ:

/8N
/.

/ACO/

/ND:/

072

055
120

/78057

125
123
055
104

045
117
101

/8Ns/
/ABY/
/TE 7

/Cou/
/NT 7/

125
103
105

123
103
105

/NT /
ZIN 7/
/REA/
/D C/
/0MM/
/AND/
/: w/

040
040
101

P.AFA;

/7<00>

/8A-/
/0UP/

/-/7<00>

1983
-198%

10:24:41
10:21:50

VAX-11

Bliss-16

v3-555

SEQ GGeA
Page

SPIDERSUSERS:
(DOUCETTE .FALCONICNRQAR . BL1 (%7

6
NRGAM1
\{01.0

RD 'RX EXERCISER
PROTECTION TABLE

15-Dec-1983% 10:24:41
15-Dec -198% 10:21:50

010234

045

101

055

010242

120

055

000

045

101

0SS

P.AFC:

116
102

045
101

P.AFD:

010237

115

123

103

010245

000

010251
010254
010257

103
120
105

117
101
00

104
114

040
117

122
104

124
072

105
040

000
045
101
116

000
116
114
072

045
102
040

010344
010347

103
045

124
117

010356

045

010246

010262
010265

045
101

010276
010301

113
105

010270
010273

010304
010307

010312
010315

010320
010322
010325
010330

010333
010336
010341

010352
010355
010361

010364

045
045

04S
045
040

045
000

040
120

117
101

104
101
050
101

115
122
000
102
103

040

045

101

056

010375
010400
010403
010406
010411
010412
010415
010420
010423
010426
010431
010434
010437
010442
010445
010450
010452
010455

040
103
045
045
000
045
101
124
103
116
111
103
115
104
045
000
045
101

050
124
117
101
116
102
105
117
124
116
117
101
072
104
000
116
101

045
131
040
125
040
040
115
116
040
065

P.AFG:

045
103

P.AFH:

010463

114

040

043

010460
010466
010471

124

040
040

125
117
102

065

106
131

/sNw/
/ABA/

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
_ASCII

/COM/
/PAR/
/E/<00><00>
/D B/
/L0C/

/K R/
/EPO/

/RTE/
/D: 7/

/#05/
/#A./

<00><00>
/«Ns/
/ALB/
/N: /

/#D5/
/#A./
7 (O/

78Y 7
/#06/

/#A)/
<00>

/uNw/

.ASCII

/ADB/

LASCII

/%DS5/

ASCII

117
040
066
051

101

ASCII
.ASCII

ASCII
ASCII
ASCII

ASCII

04s

<00»

/#A-/

JASEXY
.ASCII

P.AFF:

/MSC/

ASCII

.ASCII
.ASCII
ASCII

010367

010372

104

P.AFE:

051

072

/P-/<00>

ASCII

.ASCII
LASCII

040
066

116

ASCII

.ASCII
LASCII

065
056
117

102

/wA /

ASCI1

.ASCII
.ASCII

065
056

045

104

ASCII

.ASCII
LASCII

122
117

116

101

P.AFB:

.ASCII
.ASCIX
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
_ASCII
.ASCII
.ASCII

LASCII
.ASCII
.ASCII

/N: /

/#A./

7 (O/
/CT /
/#06/
/#A)/
<00»>
/sihs/
/ABY/
/TE 7
/COU/
/NTY /
/IN s/
/COM/
/MAN/
/D: 7/
/#DS/
<00><00>
/siNs/
/AAC/
/TUA/

/L &/

7 OF/
7 BY/

SEQ 0069

VAX-11 Bliss-16 v3-555
Page
70
SPIDERSUSERS:
[DOUCETTE ,FALCON]ICNRQAA .81 (2%

F#
NRQAM1

RD/RX EXERCISER

vo1.C

PROTECTION TABLE

)

010474

124

010477
010502
010505
010510
010513
010516
010521
010522
010525
010530
010533
010536
010541
010544
010547
010552
010555
010560
010563
010566
010571
010574
010576
010601
010604
010607
010612
010615
010620
010623
010626
010631
010634
010637
010640
010643
010646
010651
010654
010657
010662
010664
010667
010672
010675
010700

040
101
106
122
072
104
000
045
101
117
125
105
101
122
123
063
102
123
040
066
040
066
045
101
116
116
040
040
124
116
101
105
045
000
045
101
123
107
124
105
000
045
101
123
107
116

010706

123

010703

102

010711
010712
010715

000
045
101

010723
010726

107
105

010720
010731

15-Dec -1983 10:24:41

123
117

105

15-Dec-198% 10:21:50

123

124
116
105
105
040
065

122
123
122
104
045
000

116
111
040
106
122
104
105
040
062
111
051
045
045
045
000
116
103
124
124
117
122
125
040
103
124
116

045
057
102
106
040
104
123
050
040
124
072
117
101
117

P.AFI:

045
117
105
123
106
105
122
120
113
072
000

P.AFJ:

116
115
123
105
131
072
000
116
115
123
105
125

045
105
101
040
120
040

P.AFK:

045
105
101
040
115

P.AFL:

072

040

116
115

045
105

105
122

040
122

105

123

122

101

040

LASCII

/TES/

.ASCII

/BER/

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

ASCII
P.AFM:

.ASCII
_ASCII
.ASCII

.ASCII
.ASCII
.ASCII
LASCII

7 TR/
/ANS/
/FER/
/RED/
/: w/
/D5/<00>
<00»
/sNs/
/AI/<57>
/0 B/
/UFF/
/ER /
/ADD/
/RES/
/S (/
/32 /
/BIT/
/S):/
7 =0/
/6%A/
/ %0/
/6/<00>
/sNs/
/ACO/
/NTE/
/NTS/
7 OF/
/ RE/
/TUR/
/N P/
/ACK/
/ET:/
/#N/<00>
<«00>
/sNs/
/AME/
/SSA/
/GE /
/TYP/
/E: /
<00><00>
/sNs/
/AME/
/SSA/
/GE /
/NUM/

/S: /

<00>
/wNs/
/AME/

/SSA/
/GE /
/ERR/

/0R /

VAX-11 Bliss-16 v3-555

SEGQ 067C

‘;‘.PIDEROUSERS:(DOUCE!TE.FALCON]CMQBA.;S (33

l)'«
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOX.C

010734
010737
010742
010744
010747
010752
010755
010760
010763
010766
010771
010772
010775
011000
011003
011006
011011
011014
011017
011022
011025
011030
011033
011036
011041
011044
011047
011052
011055
011060
011063

011066
011071
011074
011077
011100
011103
011106
011111
011114
011116
011121
011124
011127
011132
011135
011140
011142
011145
011150
011153
011156
011161
011164
011167
o11172

103
105

040
045
101

117
123

104
072
045

131
040
115
122
045
000

124

116
102
072
104

045
101
116
115
122
124

045
101

122

040
102
000
045
101

105

117

101

122

117

045
101
116
040

116
103
045

045

101

116

113
127

045
045
055
116

117

040
116
103

117

111

117
122
104
117

157

045

117

P.AFP:

040
156
102
045

142
072

101
143

P.AFO:

124
116

061

040

P.AFN:

117
127

072

101
116
115

15-Dec -1983
15 Dec -1983

072

104

101

113
127
103
116
124
116
104

072
066

045
122
072

P.AFQ:

040

P.AFR:

117
125
116

116
040
062

040
125
116
116
117
105
111
040
072

P.AFS:

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

/C0OD/
/ES:/
/ /<00>
/%N
/
/ABY/
/TE 7/
/NUM/

/BER/
/:

/D3/<00>
<00>

/9Ns/
/ARA/

/NDO/
/M W/

/RIT/
/TEN/

/ WO/
/RD 7
/:%8/

/716/<00>
/HNs
/
/ARA/
/NDO/
/M R/
/ERAD/
/ W0/

/RD 7

/bin/
/:948/

/716%/

/A o/

/et:/

/806/
<00»>

/5N
/

/ACR/
/N :/
/ w0/

/76/7<00»>

/oA /
/-

/NKN/
/0uWN/
[/

/%027

<00><00>

/oA /
/- W/
/NKN/
/70uWN/
/7 CO/
/
/NNE

/CT1/

/0N /

/ID:/

10:24:41
10:21:50

VAX-11 Bliss-16

v3-555

SEQ 007]
P

SPIDEROUSERS:(DOUCEI!E.FALCON]CNRth.:?T (31

01117%

011200
011203

011206
011211
011214
011217
011222
011225
011230

011233
011234
011237

011242
011245
011250
011253

011254
011257
011262
011265
011270
011273
011276
011301
011304
011307
011312
011315
011320

011323

011326
011331
011334
011337
011342
011345
011350
011353
011356
011360
011363
011366
011371
011374
011377
011402
011405
011410
011413
011416
011421
011424
011427
011432
011435

15 Dec 1983 10:24:41

RD/RXx EXERCISER
PROTECTION TABLE

NRQAM1
XOI.C

040
063
040
045
101
116

045
045
055
116

103
124
114

15-Dec 1983

.ASCII
.ASCII
.ASCII
.ASCII

104
101
000
045
117
122
114
040
101

117
105
106
107

123

072

045
101
111
106
107

116
125
124
114
123

045
116
040
101
072

P.AFU:;

045
116
115
123

P.AFV:

045
101
101

101

122
114

116
105
040

123
107
106
107

000
116
040
111
122

117
122
114

040
102
040
101

122
045
045
000
116
040
104
116
040

120

116
040

115

116
122
107
040
104
040
066

105
114
123

000
045
104
126
040
116
117
105
124
114
075
104
072
104
116

045
103

040

124
122
040
124
103
115
104
111

040

101
122
045
045

P.AFM:

.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

-/<00>

/%Ns/

/ACO/
/NTR/
/0LL/
/ER 7/
/FLA/
/GS:/
<00>

/9Nw/
/AUN/
/1T 7
/FLA/

/GS:/
<00>

/BN/
/REN/
/0 M/
/ESS/
/AGE
/
I FL/

/AGS/

/:/<00><00>

/
/9N
/A D/
/RIvV/

/ER /

/CON/
/TRO/
/LLE/
/R 1/
/ABL/
/E =/
/ AD/

/ wD/

/68N/

<00><00>

/
/9N
/A C/
/TMMD /
/INT/
/., R/
/5P 7/
/INT/
e ©F
/70MM/
/AND/
/ R1/
/NG /
/= A/
/DDR/
/1 »/
/D6%/

SEQ 00 7;

Pege 7

SPIDERSUSERS:
[DOUCETTE .F ALCONICNROAA.BL1

/ wD/
/3%A/

/0R;/

P.AFX:

10:21:50

VAX-11 Bliss 16 V3-555

1¢,

011440
011442
011445
011450
011453
011456
011461
011464
011467
011472
011475
011500

011503

011504
011507
011512
011515
011520
011523
011526
011531
011534
011537
011542
011544
011547
011552
011555
011560
011563
011566
011571
011574
011577
011602
011605
011606
011611
011614
011617
011622
011625
011630
011633
011636
011641
011644
011647
011652
011655
011660
011662
011665
011670
011673
011676

15-Dec-1983
15-Dec-1983

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOl.C

116
045
101

114
120
113
123
116
105
101

040

105

045
101
114
122
125
040
103
124
111
101
101
045
101
104
072

104
101
040
120
113

000

116
040
114
101
105
040
040
123
107
101
101
116
040
114
105
122
120

113
123
116
122

000

i16

040
104
040
066
040
040
101

045

105
075
116

045
101
104

116
040
104

123
116

117
122
120
123

116
124
102
120
114

117
105
117
105

045
101
104
040
040

122
107

045
000
116
040
104
117
115

045
101

P.AFY:

040

103
124

111
115
123
105
122
000

045
101
040
124
116
101

P.AFZ:

105

040
040

105

045
101
122
045
045
040
040
103
124
040
000

P.AGA

045
101
122
106
105

F.AGB

117

105
111
040
040
040
114
104
104
045
101
122

106
105

P.AGC:

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

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII

/N/<Q0>
/%N/
/AR A/
Ak 7

/PAC/
/KET/
25 5/
/N M/
/ESS/
/AGE
7
/ AR/
/EA/<00>
<00>

/9Ns/

/A A/
/LL

/RET/
/URN/
/7 PA/
/CKE/
/18 7/
/IN /7
/ARE/
/A7 <00>
/
/8N
/R A/
/DDR/

/706%/

/A
/

/PAC/
/KET/

/ =/
/8N/<00>
<00>
/EBNs/

/A A/

/DDR/

/7 OF/

/7 RE/

/SP0/
/NSE/
/ R/

/NG /
/70 7/

/BE /

/POL/
/LED/
/ wD/
/76/<00>
/9%Ns/

/A A/
/DDR/
/ OF/
/ ME/

10:24:41
10:21:50

VAX-11 Bliss-16

Vv3-555

SEO OO"

SPIDERSUSERS: [DOUCETTE, FALCON]CNRQGA BLI (-1

116
040
116

123
124
117
124
124
045

045
101
104

123
107
120
113
115

116
122
107
114
111

123

117

045
101

103
105

116
072

072

117
045
101
122
124
116
104
101
111

117

104
000
116
040
104
117
115
123
105
101
105
103
115
104
111
040

117
120

123

101
105
122
120
123
122
107
114
040
111
123

[

040

123
105

§82855GERBEERRERETRERES

123
107
120
113

011701
011704
011707
011712
011715
011720
011723
011726
011731
011734
011737
011742
011745
011750
011753
011756
011760
011763
011766
011771
011774
011777
012002
012005
012010
012013
012016
012021
012024
012027
012032
012035
012040
012043
012046
012051
012054
012057
012062
012065
012070
012073
012076
012101
012104
012107
012112
012115
012120
012123
012126
012131
012134
012137
012142
012145

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
!01.0

/SSA/
/GE 7/
/PAC/
/KET/
/ RE/
/SPQ/
/NSE/
/ R1/
/NG 7/
/SL0/
/T P/

101
040

103
124
105
117
105

111
040

117

120
116
040
040
066
045
101
122
106
105
101
040
103
124

/0IN/

/70 7

/8D6/

<«00><00>

P.AGD

/9Nw/
/A A/
/0DR/

/ OF/
/ ME/
/SSA/

/GE 7
/PAC/

/KET/
/ COs
/MMA/
/ND 7/

117

101
040
116

123
i2e
117
124
124
045
000
045
125
111
124
125
124
104
101
124
120
045
000
045
117
040
101
045
045
104
106

/G S/
/L0Y/

/7 PO/
ZINY/
/S 1/
/70 w/

/D06/<00>

P.AGE

.ASCII

P.AGF
:

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

/ADV/
/PLY/
/CAT/
/E W
/NIT/
/:98D/
/29%A/
/7 AT/
/7 IP/

/06/<00>
/9N
/
/AMO/

/THA/
/N s/
/D1%/
/A D/
/IFF/

SEQ O(J 74
VAX-11 Bliss-16 v3-555
7%
SPIDERSUSERS: [DOUCETTE, FALCON]CNROAA BLI (33

|<¢
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOl.C

012150
012153
012156
012161
012164
012167
012172
012174
012177
012202
012205
012210
012213
012214
012217
012222
012225
012230
012233
012236
012241
012244
012247
012252
012255
012260
012263
012264
012267
012272
012275
012300
012302
012305
012310
012312
012315
012320
012322
012325
012330
012333
012334
012337
012342
012345

012346
012351
012354
012357
012362
012365
012370
012372
012375
012400

105

116
111
101
122

123

045
040
121
116
101

045
040
105
124
117
106
101

117

045

111

105

116

045
124
122

045
105

045
122
105
045
103
123
045
116
111

045
105
103
124
114
110

045
105
104

122

124
120
104
105
105

000
101
123

15-Dec-1983
15-Dec-1983
/ERE/

105
040
040
104
123

/NT 7/
/IP 7/
/ADD/
/RES/
/SES/

123

<00><00>

P.AGG:

/8A-/
/ SE/

i25
124
114

055
105
105
111
000

101
103
104
040
124
111
124
116
101
115
116
116
103

055
122
111
116
111
103
111
000
055
101
124
101
105

101
104
101
101
000
101
101
000
101
111
000
101
103
123

055
101
107
115

P.AGJ:

122
104

P.AGK:

/SAR/

127
124

P.AGL:

/8AM/

101
105
000

P.AGM:

101

117
114
105

P.AGN:

/8A0/
/N L/
/INE/

123

P.AGO:

/%AS/

040

116

101
124
5
122
040
101
000
101
124
125

040
116

/QUE/
/NTI/
/AL/<00>
<00»>

P.AGI:

/ENA/
/NCE/
<00>

123

/8A-/

/7 DA/

TAG/

/RAM/

<00><00>

7ERAD/

<00><00>

/RIT/
/E/<00>
/8AR/

/CCE/
/7557<00>
<00>

<00>

/ET /
/CON/

/TRO/
/L C/
/HAR/

117
103
122
107

/8A-/
/ CR/
/EDI/
/T N/
/0T1/
/FIC/
/AT1/
/0N/<00>
/8A-/
/7 MA/
ZINT/

/./7<00>

P.AGP:

/8AG/
/ET /
/DUS/

10:24:41
10:21:50

VAX-11 Bliss-16 V3-555

SEQ 0075
Page

SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAR . BL1

(33

01240%
012406
012411
012414
012417
012422
012425
012430
012433
012436
012441
012444
012447
012452
012455
012460
012463
012466
012470
012473
012476
012501
012504
012507
012512
012515
012520
012523
012524
012527
012532
012534
012537
012542
012545
012550
012553
012556
012560
012563
012566
012571
012574
012577
012602
012605

012610
012613

012616
012621
012624
012627
012632
012635
012640
012643

15 Dec-1983
15 -Dec 1983

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOl.O

124
124
125
045
130
125
040
120
111
107
045
130
125
103
040
107
]
105

124
045
105
111
124
045
102
045

127
111

117

045

114
117
105
105
045
125
111
124

124
125
105
045
114
101

040
101

123
101
105
124
123
120
105
120
000
101

105
124
114
101
120

000

101
116
104
101
101
103
i26
104
101

101
117
000
101
111
104
116
107
122
000
101
111
040
116
103
104
101
120
103
105
116
040
115
122
101
122
104
117

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

103
105
117
114
122

123
104
101
000
122
105

71 %
/TAT/
/%AE
/
/XEC/
/UTE/
/ SU/
/PPL/
/1ED/
/7 PR/

P.AGR:

/
/%AE

/G/7<00><00>

/CAL/

P.AGS:

/7 PR/
7G/7<00>
/BAS/

P.AGT:

/ DA/
/TA/<00>
/8AR/

/END/

/ECE/

/IVE/
/7 DA/
/TA/<00>
<«00>

i01
122

P.AGU:

123
116
117
040
116
105

P.AGV:

123

P.AGW

/9AR/

/BOR/

/T/7<00>
/8AS/
/PIN/
/7-D0/
/WN /

/IGN/

/0RE/
/D/<00>
/9AS/
/TIL/

/L C/

/ONN/

/ECT/

P.AGX:

/ED/<00>

/8AD/

/UPL/

/ICA/
/TE 7
/UN1/
/T N/

116
102

000
101
105
131
11€

/XEC/

/UTE/
/ LO/

101
000

000
104
114
101
040
111

/US/7<00»>

P.AGQ:

105

114
103
116
124

P.AGY:

/UMB/
/ER/<00>
/8AA/
/LRE/
/ADY/
/ ON/

10:24:41
10:21:50

SEQ 0076
Page
VAX-11 Bliss-16 v3-555
77
SPIDERSUSERS: [DOUCETTE ,FALCONCNRQAA, BLI (33

M#,
NRQAM1
gox.c

01264¢

RD/RX EXERCISER
PROTECTION TABLE

114

111

116

012651
012654
012657
012662
012665
012670
012673
012674
012677
012702
012705
012710
012713
012716
012721
012724
012727
012732

105
045
124
114
116
116
000
045
116
040
113
127
117
117
111
040
040
117

000
101
111
040
114
105

000
123
114
117
111
000

101
111
125
116
116
122
116
116
124
101
124

125
124
116
117
040
040
114
105
117
116
110

012743
012746

124
114

122
114

117
105

012735
012740

012751

105
103

122
117

15 -Dec-1983
15-Dec-1983

P.AGZ:

P.AHA:

040
116

LASCII

/LIN/

.ASCII
.ASCII

/ER /
/CON/

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

.ASCII
.ASCII

122

000

115
115

105
117

040
125

122

040

104

105

040

104
131

040
040

013031
013034
013037

103
045
116

110
101
111

000
125
124

013045
013050

117
122

120
101

105
124

.ASCII
.ASCII

122
061
122
105
101

.ASCII
.ASCII
JASCII
.ASCII
.ASCII

012754
012757
012762

045
117
117

012773
012776

116
104

012765
012770

013001

013004

013007

12?2

013012
013015

111
102

013026

127

013020
013023

013042
013053

040
111

101
040
114

124
040
111

123
114
111

111

126

013056
013061
013064
013067
013072

040
104
040
111
040

050
065
127
124
106

013100

000

013075

013102
013105
013110

125

04s
116
040

114

101
111
104

116
126
125

P.AHB:

.ASCII
.ASCII
.ASCII

.ASCII
LASCII

105
117

.ASCII
.ASCII

.ASCII

126

104

102
123

116

.ASCII
_.ASCII
.ASCII

.ASCII

124

.ASCII

P.AHD:

/ME /
/MOU/

/NTE/
/0 0/

/R D/
/ISA/
/BLE/

ASCII

105

/#AN/
/0 v/
/0LV/

.ASCII
.ASCITI

LASCII

P.AHC:

/R/<00><00>

/RIV/

.ASCII
.ASCII

124

/TRO/
/LLE/

.ASCII

101
105

125
124
111

.ASCII

/E/<00><00>
/#AS/
/TIL/
/L 0O/
/NLI/
/NE/<00>»
<00>
/#AU/
/NIT/
7 UN/
/KNO/
/uWN /
/0R /
/ONL/
/INE/
7 TO/
7 AN/
/0TH/

.ASCII

.ASCII
.ASCII
.ASCII

/E D/

/D B/
/Y S/
/7MIT/

/CH/<00>
/sAU/
/NIT/
7 IN/

/OPE/
/RAT/
/IVE/

/7 (R/
/D51/
/ WR/
/ITE/
/ FA/
/ULT/

<00><00>

/sAU/
/NIT/
/ DI/

10:¢4:41
10:21:50

SEQ 0077

VAX-11 Bliss-16 v3-555
Page
78
SPIDERSUSERS: [DOUCETTE.FALCON IJCNRQAA . BLI (33

NF
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
\;Ol .0

O1311%
013116
013121
013124
013127

123
114

013132
013135

013140
013143
013146
013151
013154

013157
013162
013165
013170
013173
013174
013177
013202
013205
013210
013213
013216
013221
013224
013227
013232
013235
013240
013243
013246
013251
013254
013257
013262
013265
013270
013273
013276
013301
013304
013307
013312
013315
013320
013323
013326
013331
013334
013337
C13340
013343
013346
013351
013354

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

/CS/<00>

/DIA/

101
117
105
105

042
122
104
122
122
104
105
105

/8A"/

103

045
103
117
122

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

000

122
000
101

111

105

111
040
040
124
116
040
101

123

123
107
103
117

104

111
104

/GNO/
/S5T1/

040
124
124
040
111
040
103

117
105
105
117

/SAB/
/LED/
/ BY/
/ F1/
/ELD/
/ SE/

102
104
131

117
111

117

116
111

15-Dec-1983
15-Dec-1983

122
122
124
040
124
042
122
104
122
122
115
111
105
101
124
122

103
125

<00>

/FOR/
/CED/
/ ER/
/ROR/
7TM

/ETE/
/CTE/

/D W/

127

114
101
105
111
040
124
122
103
000
123
124
040
111
105
127
110
106
103
040
122
042
117
106
122
106
040
040
124
116

/HIL/

/E P/

/CCE/
/5817

P.ANF;

/NG /7
/FCT/7
/ OR/
/ RC/
/1/<00><00>
/8AS/

/ECT/
/0R /
/WR1/

/TTE/
/N W/
/ITH/
4 4
Vi
/0RC/

/€D /
/ERR/

/0R"/
/ MO/
/DIF/
/1ER/
<00»>

/8AF
/
/CT 7

/0R 7/
/RCT/
/ UN/

10:24:41
10:21:50

SEQ 0075
VAX-11 Bliss-16 V3-555
Page
79
SPIDERSUSERS
: [ DOUCE TTE .FALCONICNRQAA BL 1 (22

t
RU/Rx EXERCISER

19 Dec
15 Dec

040
101

122
101
101
122

117

101
040

122

040

101
104
105
105
116
040
125
051
101
124
122
103
125
105

ASCI

P.AMM:

ASCI

105
117
050
114

040
101

5 Dt D Do

123
124

Pt D Bt B

126
111

Bo0 alats ARAR ARARA

103

040

.ASCI
.ASCI

neBBD

116

101
102
040
111
101
104
105
117
110
104
000
110
104
040
115
122

PBB®

114

105
101
105

aan 2k

122
104

et Pt Bl e et et e b

PRCTECTION TABLE
/REA/
7
/DAB
/LE

2« R
/NVA/

/L10/

/7 SE/
/CT0/
/R W/
/EAD/
/ER/<Q0»>
/SAM/
/EAD/
/ER 7/
/COM/
/PAR/
/€ E/
/RRO/
/R (7
7
/VAL
/10 7

/HEA/
/DER/
/ NO/
/T F/s

122
117
106
116

/0UN/

P.AMI:

/0)7<00»
/BAF
/
/CT 7

/OR 7/
/RCY/

/7 UN/
/REA/
/DAB/

/LE 7/
/-

/ATA/
/ Svy/

/NC 7/
/TIM/

7EOU/

P.AMY:

101
116
124

/T/7<00>
/8AD/
/ATA/
/7 SY/
/NC 7/
/NOT/
/ FO/
/UND/
/7 (D/
/ATA/
/7 SY/

/NC 7

/TIM/
/EOQU/
/7)/7<00>

198%
198%

10:c4:41
10:21:50

VAX 11 Bliss 16 v3 5SS

“Pess

SPIDERSUSERS
: [ DOUCE T TE .F ALCON JCNRGAR
B3

(77

",fo

KD /RX EXERCISER
PROTECTION TABLE

NRQAM]
101.0
01362+
015631
013634
013637
013642
013645
013650
013653
013656
013661
013664

013667
013672
013675
013700
013703
013706

013710
015713
013716
013721
013724
013727
013782
013735
013740
013742
013745
013750
013753

013756
013761
013762
013765
013770
013773
013776
014001
014004
014007
014012

014015
014020
014023
014026
014031
014034
014036
014041
014044
014047
014052
014055
014060
014063
014066

045
103
117
122

040

122
104
114
055
116

122
103
102

103
122
122

045
116
122
103
102
040

103
122
122

103
103
122
124
045

117
105
101
115
124
114
113
126
114
114

124
125

045
111

124
117
101
105
127
110

101
124
122
103
125
105
101
105
040
103
122
124
114
105
040
122
000
101
103
122

19 Dec
19 -Dec
/8AF
/

106

/CT1 7
/OR 7
/RCT/

040
040

124

116
101
102
040
125

117
105

101

/BLE/

105
103
105
117
P.AML:

101
124
117
125
105

122
040
122
120
104

P.AMM

101
040
120
103
105
040

116
122

040
122
000

117

040

101
101
105
122
040
114
000
101
123

116
040
122
124
104
111
040

117
106
115
124

040
124
065

/7 887
/C E/
/RRO/
/R/<00>
/8RAY/
/NCO/

7
/RRE
/CTA/

/BLE/

/7 EC/

/C E/

/R/<00>
/8AR/
/CT 7
/COR/

/TED/
<«00»>

/8AN/
/0 R/

/EPL/

114
105
116
102
103
101
111
102
040
103
106
114
104
113

/NCO/
/RRE/
/CTA/

125
117
105
101
105
103
105
117

124
114
105

UN/

/REA/
/DAB/
nE 7

/ACE/

/MEN/
/T B/

/L0C/

/K R/
/VAY/
/LAB/

/LE /

/(RC/
/T F/
/ULL/

/7)/<00>

P.AMO:

/8AD/
715K/
/ NO/
/T F/
/0RM/
/ATT/
/ED /7
/MIT/
/N S/

1933
1983%

10:¢4:41
10:21:50

VAX 11 Blies 16 v3 555
.9‘
SPIDERSUSERS: [DOUCETTE,FALCON JCNRJAR Bi

)
{

1
-

¥ r

’

L/
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
vOo1.C
)

014071
014074
014077
014102
014105
014110
014112

014115
014120
014123
014126
014131
014134
014137
014142

014145
014150
014153
014156
014160
014163
014166
014171
014174
014177
014202
014205
014210
014213
014216
014221
014224
014227
014232

014235
014240
014243

014246
014251
014254
014257
014262
014265
014270
014272
014275

014300
014303
014306
014311
014314
014317
014322
014325
014330
014333

061
102

105
105
117

045
111
040
124

117

101

105
117
106

122
120

045
116
123
102

103
122
122
045
127
123
102
103
122
22
045
110

1351
117
105

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

1% Dec 1983 10:24:41
15-Dec 1983% 10:21:50
/712

040

104

113
117

<00><00>

P.ANHP:

/%AD/
/ISK/
/7 NO/
/T F/
/0RM/
/ATT/
/ED 7

106

115
124

040
040
124

/0R /
/FCY/7

117

/7 CO/

/RRU/
/PTE/

125
105

117

040

/0/<00>
/9A0/
/NE /
/SYM/

P.AMQ:

115
114
103
105
117

000

124

040
115
| R
ivs
105

/80L7/

/7 EC/
K e
/RRO/

/R/7<00><00>

JBAT/

P.AMR:

/W0 7/
/SYM/

/80L/

/7 EC/
/C E/
/RRO/
/R/<00><00>

117

000
124

105
123

/8AT/

P.ANKS:

/HRE/

/E S/

/YM8/
/0L /7

/7ECC/

/ ER/
/ROR/

122

045
117

115
114
103
105
117
045
111
040
115

/BY1/
/E S/
/ECT/
/0RS/

124
123
124
123

<00><00>

P.AMT;

/9AF
/
/0UR/
/7 SY/

/MB80/

/L E/

/CC 7

/ERR/

/0R/<00>

P.AMU:;

.ASCII

/BAF
/
/IVE/
/ SY/
/MB0O/

SEQ 00A)
VAX-11 Blies-16 V3 555
Page
A2
SPIDERSUSERS
: [DOUCE TTE ,.F ALCONICNRGAA
Bl 1 (37

£/

01433¢
014341
014344
014347
014352
014355
014360
014363
014366
014371
014374
014377
014402
014405
014410
014413
014416
014421
014424
014427
014432
014434
014437
014442
014445
014450
014453
014456
014461
014464
014466
014471
Cla474
014477
014502
014505
014510
014513
014516
014521
014524
014527
014530
014533
014536
014541
014544
014547

014552
014555
014560
014563
014566
014570
014573
014576

15-Dec -1983
15-Dec
- 1983

PD/RX EXERCISER
PROTECTION TABLE

NRQAM1
XOI.O

114
103
105

117
045
111

123
102

040

103
122
122
045
105
116
131

117
105
122

045
111
124
131

117
105

122
045

117
105
101

122
116

103

114
045
116

106
101
111

117
103
104
045
116

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

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

105
040
122
000

123

040

P.AHV:

115
114
103
105

117

000
123

105
123

P.ANM:

/N S/

/YMB/
/0L /

102
040
103
122
122

105
110
123
102

/ECC/

/ ER/
/ROR/

<00><00>

P . AMX

/8AE/
/7IGH/
/T S/
/YMB/

/0L 7/
/ECC/
/7 ER/
/ROR/

040

103
122
122
103
122
124
114

/L E/
/CC 7
/ERR/
/0R/<00>
/%AS/
/IX 7
/SYM/
/BOL/
7 BE7
/€ &7
/RRO/
/R/<00><00>
/8AS/
/EVE/

<00><00>

P.AHY:

/8AC/

/0RR/

/ECT/
/ABL/

/€ E/

105
117
111
105

/RRO/
/R 1/

/N E/
/€C 7
/FIE/
/LD/<00>

105

<«00>»

P.AMZ:

/8AU/

/NIT/
/7 SO/
/FTW/
/ARE/

/7 WR/
/ITE/
/ PR/
/0TE/
/CTE/

P.AIA:

/0/¢<00>

/8AY/
/NIT/
/ HA/

10:24:41
10:21:50

VAX-11 Bliss-16 V3-555

SEQ 0027
Page
37

SPIDERSUSERS
: [DOUCETTE ,FALCONJCNRGAA BLL (23

014601
014604
014607
Ol14612

014615
014620
014623
014626
014630
014633
014636
014641
014644
014647
014652
014655
014660
014663
014666
014671
014674
014677
014702
014705
014710
014713
014716
014721
014724
014727
014732
014735
014736
014741
014744
014747
014752
014755
014760
014763
014766
014771
014772
014775
015000
015003
015006
015011
015014
015017
015022
015025
015030

015033
015036
015041

15 -Dec-1983
15 -Dec-19683

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOl.C

122
101
040
111
040

104
122

104
045
104
124
i16
105
101
122

000
101

117
103

123

045
104
102
105

117

045

117

123
116
110
105
122
045
117

115
131
101
124
105
117
045
117
101
040
115
124
122
131
111
124
130
105
104

127

124
120
124

124

104
122
123
122
104
105
000
101
104
131
040
125
000
101
116
130
124
124

117

040
115
131

127
105
122
105
122
105
105

117

040
101
106
040
104

123
000

117

040
124

/RDW/
/ARE/
/ WR/

/ITE/

/ PR/
/0TE/
/CTE/

/D7<00>

P.AIB:

P.AIC:

/8YT/
/E C/

103

116
000
116
055
111
105
040
123

/9AN/
/ON-/

/EX1/

/STE/
/NT 7/
/H0S/
/T W/
/7EMO/
/RY/<00>

115
117

000

<00>

110
124
105
122
120
111
040
122
000

P.AIE:

101
115
116

103
115
104

P.AIF:

117

125
117

115
040
103
104

/0UN/
/T7<00><00>

P.AID:

101
123
115
117
040
122
131
122
122

124

/%A0/
/0D 7
/TRA/
/NSF/
/ER /
/ADD/
/RES/
/757<00><00>
/8A0/
/D0 7

/9AMH/
/70817
/ ME/
/MOR/
/Y P/
/ARY/
/TY /

/ERR/

/0R/<00>
<00>

/8AC/
/0MM/
/AND/
/7 11/
/Mou/
/T O/
/R R/

111

122
122

/ETR/

114

/Y L/

111

105
105
105

000

.ASCII
.ASCII

/IM1/
/T E/
/XCE/
/EDE/

/D7<00><00>

10:24:41
10:21:50

VAX-11 Bliss-16 v3-555

SEO 0083

SPIDERSUSERS: [DOUCETTE, FALCON]CNRO‘& BLI (33

G/
NRQAM1
vo1.0

015044
015047
015052
015055
015060
015063
015066
015071

015074
015077
015102
015105
015110
015113
015116
015121
015122
015125
015130
015133
015136
015141
015144
015147
015152
015155
015160
015163
015166
015171
015174
015177
015202
015205
015206
015211
015214
015217
015222
015225
015230
015233
015236
015241
015244
015247
015252
015255
015260
015263
015266
015271
015274
015277
015300
015303

RD/RX EXERCISER
PROTECTION

101
122
114
105
104

105

101
i32
040
105

125
117
125
105
125

101
103
122
122
101
103
123
124
124
116
122
114
101
- 040
122
124
105

101
111
040
115
116
124
105
124
116
122
120
123

117
123

113
116
115
105
051
101
116

15-Dec-1983
15-Dec-198%

TABLE

123
111

P.AIG:

111

122
105
122
114
105
117
122
116
122
116
122
116

/%AS/
/ERI/
/ALI/
/ZER/
«S7>/DE/
/SER/
/IAL/
/1ZE/
/R 0/
/VER/
/RUN/
/ OR/
/ UN/

/DER/
/RUN/
<00»>

105

P.AIH:

/SAE/

122
000
111

P.AII:

/%R1/
/NCO/
/NSI1/
/STE/
/NT /
/INT/
/ERN/
/AL /
/DAT/
/A S/
/TRY/
/CTu/
/RE/<00>

P.AlJ:

/8AD/
/RIV/
/E C/
/0MM/
/AND/
/7 11/
/MEQ/

040

117

/0R/<00>

111

105

040
124
116
040

124
123
125
125

000

104
126
103
115
104

<00>

111

117

/Y 7

040

117
105
117
105

/(NO/
/ RE/

/5P0/

/NSE/
/7 OR/
/7 SE/

122
105
040
103
120
124

/EK /

/INC/
/0MP/
/LET/
/E)/<00>

000

103
124

/0C 7
/ERR/

<00>

P.AIK:

/8AC/
/ONT/

10:24:41
10:21:50

SEQ OGR4
VAX-11 Bliss-16 V3-555
Page
8%
SPIDERSUSERS:(DOUCEVTE FALCONICNRQAA. BL1 (2%

l_l r'.
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
vol1.0

01530¢
015311
015314
015317
015322
015325
015330
015333
015336
015341
015344
015347

015352
015355
015360
015363
015366
015371

015374
015377
015402
015405
015410
015413
015416
015421
015422

015430
015433
015436
015441
015444
015447
015452
015455
015460
015463
015466
015471
015474
015477
015502
015504
015507
015512
015515
015520
015523
015526
015531
015532
015535
015540
015543
015546

122
114

124
124
101

115
123
116
122
122
117
114
122
122
045

117

124
116
122
122
115

117
105
104
105
105
124
116

111
111
040
040

117
103

15 -Dec -1933
15 -Dec-1983%

114
122
105
103
104
122
123
123
117

/ROL/
/LER/
/ DE/
/TEC/

117

120
124

040

122

000

P.AIL:

101
123
111
040
122

/-SE/
/EK)/

105

<00»>

P.AIM:

045

117

040
101

127
124
122

/TE 7

/DUR/

104

7ING/

111
057

<S7>/BE/

124
105

/TWE/

/EN /

124
116
105

/TRA/
/NSF
/

/ERS/

<00>»<00>

045
122

P.AIN:

105
114
113
122
117

117
103
126

/
/9AL
/0ST/
/ RE/
/AD/<S7>
/WRI/
/REA/
/DY 7/

104

045

/TED/
/ TR/
/ANS/
/MIS/
/S10/
/N 0/
/R P/
/ROT/
/0C0/
/L E/
/RRO/
/R/<00><00>
/%AP
/
7081/
/T10/
/N E/
/RRO/
/R (/
/MIS/

/8AD/

/RIV/
/€ C/
/L0C/
/K D/
/ROP/
/0UT/
<00>

114
124
105
111
122

P.AIO:

/8AL/
/70S7/
/ RE/
/CEL1/
/VER/

10:24:41
10:21:50

VAX-11 Blies-16 v3-555

SEQ 00AT

Page

SPIDERSUSERS:
(DOUCE 1 TE.FALCONICNRQAR 8L

8¢

(22

[7
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
\;01 .C

015551
015554
015557
015562
015565
015570
015573
015576
015600
015603
015606
015611
015614
015617
015622
015625
015630
015633
015636
015641
015644
015647
015652
015655
015660
015663
015666
015671
015674
015677
015702
015705
015710
015712
015715
015720
015723
015726
015731
015734
015737
015742
015745
015746
015751
015754
015757
015762
015765
015770
015773
015776
016001
016002
016005
016010

040
101
040

124
105
123
124

122

122
104
102

127
116
105
117

000
101
111
040
124

124

040

122

000
101
116

117
105
104
105
105
120
123
117
123
124
120
111
040
122
000
116
040
102
040
157
040
162
157
145

116
040
105
157
114
040
156

15-Dec-1983 10:24:41
15 Dec-1983 10:21:50
/ RE/
/ADY/
/ BE/
/TWE/
/EN /
/SEC/

105
131
105
105

040

103

/TOR/

122

104
126
104
105
105
105

/75/7¢<00>

P.AIP:

117

000
103
124
114
122
105

P.ARIQ:

/%AD/
/RIV/
/E D/
/ETE/
/CTE/
/0 E/
/RRO/
/R/<00><00>

/8AC/
/0ONT/
/ROL/

/LER/

/ DE/
/TEC/
/TED/
/7 P/

103
104

125
105
122
124
105
101
124
105
117

/LSE/
/7 OR/

/7 SV/
/ATE/
/7 PA/
/RIT/
/Y E/

045
174
141
102
143
125
145
162
144

P.AIR:

045
174
162
162

P.AIS:

/RRO/
/R/<00»>

/98N8
/

/R /<174>

/ Be/
/d B/
/loc/

& U/
/nre/
/por/
/ted/
<00>

/
/98NS
/A /7¢<174>
/ Er/

157
107
145
164

141
144

000

116
040
123

045
174
145

P.AIT:

/R /<174>
/ Se/

SEQ 00As
VAX-11 Bliss-16 v3-555
P
87
SPIDERSUSERS: [DOUCE TTE . FALCUNICNRQAA ,
(33

J/
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOl.C

016013
016016
016021
016024
016027
016032
016034
016037
016042
016045
016050
016053
016056
016061
016064
016067
016072
016074
016077
016102
016105
016110
016113
016116
016121
016124
016127
016132
016135
016140
016143
016146
016151
016152
016155
016160
016163
016166
016171
016174
016177
016202
016205
016210
016213
016216
016221
016224
016226

016231
016234
016237

016242
016245
016250
016253

162
165
105
145
151
045

101
105

142
040
164
164

156
145
141

163

045
101
105
142
040
163
154
156
165
105
157
114
040
163
147

151
163

170
160

157

000
116

174
156
154
101
145
151

040

163

147
000
116
174
156
154
115
143
154
145
163
162
162

157
115
163
116
174
156
154

150

145
110
164
105

162

147
145
141

163
045
101
105
142
151
110
164

157
040
143
164
156

/rio/
/us /
/Exc/
/ept/
Zion/
«<00><00>

045
040
141
145
164

P.AIV:

045
040
141
145
151
145

P.AIV:

156
157
115
163
145

789¢00>
/BNs/

/A/<174>/7

/1le/

141

157

/neoc/
/us /

040
162
040
147
145

/Err/

Jor /

/ Me/
/
/

P.AIM:

80>

/uNS
/
IA/<1T8>7 /

/Ena/
/ble/

/7 0t/

/her/

/ Mo/
/ete/

/7 Er/
/ror/
/ Lo/
/g W

157
114

156
154
124
163
157
163

/ Mi/
/sce/

117

040
163
147
000
116
174

/8N
/
/A/<174>/
/Ena/
/ble/
/ At/
/ten/
/tio/
/n M/
/e8s8/
/
/

/Ena/
/ble/

145

045
101
105
142

163

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

‘gee/

P.AIX:

/a0<00>

/
/8N
/A/<174>/7 /
/Ens/

/ble/

/ Th/
/ie /
/Hos/

/te /

SEO ocar
VAX-11 Bliss-16 V3-555
Page
88
SPIDERSUSERS:(DOUCETTE.FALCONICNRQAA.BL] (33

1</
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
vol1.0
)

01625¢
016261
016264
016267
016272
016275

016300
016302
016305
016310
016313
016316
016321
016324
016327
016332
016335
016340
016343

016346
016351
016354
016357
016360
016363
016366
016371
016374
016377
016400
016403
016406
016411
016414
016417
016422
016425
016430
016433
016436
016441
016444
016447
016452
016454
016457
016462
016465
016470
016473
016476
016501
016502
016505
016510
016513

105
157
114

040

163
147

045
101
103
164
154
162
156
151
145
102

157

154
156
045
101
123
144
151
045
101
065
164
123
164
163
045
101
103
160
145
145
163
045
101
103
145
162
145

045
101
103
164

162
162
157
115
163
145
000
116
174
157
162
154

040

151

141
144
141
102
143

122
143
164
116
174
150

157
156
116
174
067
102
145
145
157
000
116
174
157
161

040
141
000
116
174

157

141
040

15-Dec-1983
15-Dec-1983
/Err/
/or /
/Log/

162
040

147

7 Rer

145
141

/ssa/

163

045
040

/ges/
<
»<00>

P.AIY:

156
157

/9Ns/
/A/<174>/
/Con/

/tro/

/lle/
/r 1/
/nit/
/iat/
/ed /
/Bag/
/7 Bl/
/ock/
/ Rp/
/lem/
/nt/<00>

145
111
164
164
040
144

154
153
160
155
000

<00»>

045
040
141
167
147

P.AIZ:

S
SN
/R/7<174>7
/Sha/
/dow/
/i

045
040
066
171
040
143
162
000
045
040

P.AJA

78N/
IA/<1\T4>/ /

00y

7576/
/ By/

/te /

/Sec/

/tor/
/78/<00><00>

P.AJB

155

S/
IA/<LT4>/

162
122
144

045

040

P.AJC:

155
162
127
164

151
163

000

116
174
157
162

045
040
156
157

/A/<L74>/ /
/Com/
/par/
/e W/

/rit/
/e8/<00>
<00>

P.AJD:

/9Ns/
/A/<174>/

/Con/

/tro/

10:24:41
10:21:50

VAX-11 Bliss-16 v3-555

SEQ 0088
)

SPIDER‘USERS:(DOUCEIYE.FALCON]CNROAA.;ET 13

L /

01651¢
016521
016524
016527
016532
016535
016540
016543
016546
016551
016554
016557
016560
016563
016566
016571

016574
016577
016602
016605
016610
016613
016616
016620
016623
016626
016631
016634
016637
016642
016645
016646
016651
016654
016657
016662
016665
016670
016673
016676
016701
016704
016707
016712
016715
016720
016723
016726
016731
016734

016737
016742
016745
016750

016753
016756

15-Dec-1983

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOl.O

154

162

156
151
145
102

157

040
154
156

045
101
111
143
166
123
144
040

156
045
101
122
157
142

144
045
101
123
160
163
103
150
147
150
150
160
144
045
101
123
160
163
103

150
147
154

145
051
045

154
040
151
141
144
141
102
143
122
143
164

145
111
164
164
040
144
154

116

045
040
141
151
040
141
167

174
156
164
145
150
157
123
040
151
000
116
174
145
166
154
115
151
116
174
165
162
163
141
151
040
151
040
145
051
116
174
165

162
163
141

151
040
157
163
145
000
116

15-Dec-1983

/lle/

/r 1/
/nit/
/iat/
/ed

/ Bl/

153
160
155
000

/o0ck/

/ Rp/
/lem/
/nt/<00>
<00>

/9N
/

/A/<174>/
/Ina/
/eti/
/ve /
/Sha/
/dow/

/ Se/

145
125
164

t W

/nit/

<00><00>

045
040
155
141
145
145
141

P.AJF

045
040
160
145
040
143
156
050
147
163
145
000
045
040
160
145
040
143

P.AJG

156
050
167
160
144
000
045

/Bad/

/¥Ns/
/A/7<)74>7
/Rem/
/ove/

/ble/

/ Me/
/dia/
<00>

/
/9N
IA/<174>7 /

(/7

/h o/

/pee/

P.AJH

/d)/<00>

/
/9N
/A/<174>7 /
/Sup/
/pre/
/98 /

/Cec/
hin/

/low/

/ ep/
/eed/

P.AJI:

/7)/¢00><00>
/
/98NS

10:24:41

10:21:50

SEQ OOP’
VAX-11 Bliss-16 v3-555
90
SPIDERSUSERS: [DOUCETTE, FALCON]CNROAA BLl (33

M7
RD/RX EXERCISER
PROTECTION TABLE

016761
016764
016767
016772
016775
017000
017003
017006
017011
017014
017016
017021
017024
017027
017032
017035
017040
017043
017046
017051
017054
017056
017061
017064
017067
017072
017075
017100
017103
017106
017111
017114
017117
017122
017125
017130
017133
017136
017141
017144
017147
017152
017155
017160
017163
017166
017171
017174
017176
017201
017204
017207
017212
017215
017220
017223

101

127

164
142
153
156
055
154

151

051
045
101

127

164
120
164
164

150
144
162

045
101

127
164

164
164
163
164
162

157
165

165
051
045
101
065
164

123
164
163

045
055

105
045
055
116

114

115
116
123

174
162
145

141

040

157

166
141
154
000
116
174
162
145
162
145
040
141
167
145
000
116

174
162
145
162

145
040

157

167
145
162
157
155
000
116
174
067
102
145
145
157
000
101
040
103
123
000
101
040
126
111
103
115
104
105

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

040
151
055
143
050

/A/7<174>/
/Mri/

164
145

/let/

/bac/

156
157

045
040
151
040
157
143
050
162

/ile/

/)/7<00>

P.AJY

/9N
/

/A/<174>/
Wri/

/te /
/Pro/
/tec/

/har/
/dwa/

141

/re)/
P.AJ:

<00><00>
/BN
/

/R/7<174>/7
/Mri/
/te

/Pro/

/tec/

t (/7
/sof/

P.AJL

7)/7<00><00>
/NS
/

/A/<1T4>7

/5767

7/ By/

/te /
/Sec/
/tor/

/8/7<00><00>

P.AM

103
123

040
111
101
104
117
101
050
122

(/7

/non/
/-vo/

051

045
040
151
040
157
143
050
146
141
040
040
154
145
000
045
040
066
171
040
143
162
000
040
123

/te-/

NRGAM1
vo1.0C
)

/%A /
/- S/
/UCC/

/ESS/

<00><00>

P.AJN:

/8A /
/- 1/

/NVA/
/LID/

/ CO/
/MMA/
7/
/ND(
/SER/

SEQ_ 00790

VAX-11 Bliss-16 V3-555
Page
91
SPIDER$USERS:[DOUCETTE.FALCONICNRGAA.BLL (33

N/
RD/RX EXERCISER

NRQAM1
gOI.G

017226

017231
017234
017237
017242
017245
017250
017253
017256
017261
017264
017267
017272
017275
017300
017303
017306
017311
017314
017317
017222
017325
017330
017332
017335
017340
017343
017346
017351
017354
017357
017362
017365
017370
017373
017376
017401
017404
017407
017412
017415
017420
017423
017426
017431
017434
017437
017442
017444
017447
017452
017455
017460
017463
017466
017471

1% -Dec- 1983
15-Dec 1983

PROTECTION TABLE
126
040
156

114
157
156
155
151
151
105
114
120

144
045
055

117
105
117

101
111
102

045
055
117
105
117
123
124
114

055
122
122
116
116
116

123
110
122
122

104
051
045
055
117
111
122

120

105
156
111
105
162
157
145
141
146
130
103
122
143
051
101
040
040
107
116
126
114
114
000
101
040
040
107
116

122

157
104

040
040
040
144
040
040
055
055
107

155

000
040
116

P.AJO:

122

111
040
101
101

105
P.AJP:

117
101

116
040

117

040

117
125

040

117
101
117
115
111
000
101
040
101
106
114
105
111
125

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

ASCII

/VER/
/ no/
/nID/
/LE 7/
/or

/no /
/med/

/ia /
/if 7/
/EX-/
/LC-/

/PRG/
/ ecm/

/7d)/<00>
/8A /

/0 R/
/EGI/
/0N /7
/AVA/
/ILA/

/BLE/

<09><00>

/8A /

/0 R/
/EGIL/
/ON /7

/SUL/

125

101
105
101
040

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

/TAB/
P.AJQ

/LE/<00>
/8A /

/- P/
/R0OG/
/RAM/
/7 NO/
/T K/
/NOM/

/N (7
/NO 7/

/SUC/s
/H P/

/ROG/

/RAM/
/ ON/
/ ME/
/DIA/

/7)/<00>

/8A /
/-

/0AD/
/ FA/
7ILV/
/RE 7
/CIN/
/PUT/

10:24:41
10:21:50

VAX-11

Bliss-16

v3-555

SEO 007
Page

SPIDERSUSERS: (DOUCETTE .FALCONICNRQAA .BL1

(32

NRQAM]
vo1.¢
)

017474

017477

017%0¢2
017%0%

R e

000000000000

017%1¢C
017518
017516
017521
017524
017%27
017582

Q0 ‘Ax EXERCISER
PRCTECTION TABLE

105
117
127
114
114
104
107
12¢
122
051
101
040
101
101
116
050
101
101
116

1% Dec
15 Dec
7

ER/

/ROR
/
/7

/ILE/
/7

LO/

/ADL/
/NG /
/PRO/
/GRA/
/M)/<00>»
/8A /
/- S/

P.AJS:

/TAN/
7/
/DAL
/ONE
/
/7 (S/7

/TAN/

7/
/DAL

7/
/0NE
/ MO/
/DIF
/7
/IER/
/7 NO/
/T S/
/PEC/
/IF1/
/ED 7
/FOR/
/7 ST/
/AND/
/7 AL/
/
/0NE
/7 PR/

115

111

105
116

/7G. )/

<00><00>»

P.AJT:

/79N
/

/A/7c)174>7
/0One/
/ Se/

/rve/
/r o/
’t o/

/7 Tiv

/me/ <00»

<00>

P.A:

/9N
/
/A/<1\T74>7
/Con/
/tei/
/ne /
/Loc/

.ASCII

141

116

/el 7/
/Med/
/ie/<00>
<«00>

P.AJV:

.ASCII

/9Ns/

19843
1983

10:24:41
10:21 150

VAX

11 Bl.es

¢v3

SPIDERSUSERS: [DOUCE T TE F AL CON JONR A

C#
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
vo1.¢C

01778
017742

01774%
017750
017753
017756
017761
017764
017767
017772
01777

101
105
143
145
157

143

174

040

/A7<174>/
/Ene/

165
040
143
040

164
114

/cut/

120
040

170

147

155
151
125
125
117
105

000

116

020010

19 Dec
15 Dec

174

165

145

045

045
040
141
141
156

040
147

/SUP/
/POR/
/TED/

<00><00>

P.AJM:

/ren/

/tly/
/7 in/

/ Ac/

/tiv/

/e S/

123
164

/tat/

P.AJX:

/@/<00>
/
/9N
/AR7¢<1T4>7
/Ste/
/nda/
/lon/

/e P/

120
000

P.AJY:

P.AJZ:

141

045
040
145
040
151
141
145
145
141
145
166
154
000

045
101

116
174

045
040

P.AKA:

145

/9Ns/
/A/7<174>/7

/Cur/

045
040
145
040
145
141

141
142

is/

/ UN/

116
174
145
163
166
154
000
116
174
145
163
162
145
154
122
144
154
117
162
171

142

/emgd/

162

116
174
164
144
157

/rg

040

156
171
156
143
166

/o0ca/

144
163
116
120
122
104

145
154
151
101
151
040
141

000

141

«<00>

/48NS
/

/A/<LT4>7

/Nee/
/de /
/ove/

/rle/

/y/<00>
/o/
/A/<1 74>/
/Nee/
/de /

/Mri/
/ten/
/ble/

<$7>/Re/
/ede/

/ble/
/ Ov/
;or}loo

/9Ns/
/AR7<174>/7

1983
1983

10:04:41
10:21:50

SEQ OUY
VAX 11 Bliss-16 v3- 555
Page
74
SPIDERSUSERS: [DOUCETTE.F ALCONICNROAR 81
] (272

[)?fi

RD/RX EXERCISER
PROTECTION TABLE

125
163
164
104

040
141
147

163
040
144
165
104
154
073

103
105
057
103

045
101

116
011

045
052

125

105
111

123
117
000
045
052

116
045
101

105
125

105
111

045
101

040

000

116
011

040

106
114
121
123
117
000
116

o011

040

120
111

106
115
111
000
116
011
040
122
116
111
000
116
011
040
124
040
122
000
116
011
040
105
101

045
101

116
040

116
122
116
045
101

105
111
116
045
101
101
114

045
101

15-Dec

145
123
040
160
151
157
040

105
123
104
105

122
057
116
122

1% Dec

/Use/

/ Di/
/alo/
‘e

/REC/

«S$7>/SE/

/ND/<57>
/REC/

P.AKB:

121

<00>
/96N
/
/A/ci1>/7¢/
/¢ Q/

/UES/

/7107

/N/<00><00>

P.AKC:

104

/
/%NS
/A/7<11>/e/
/¢« D/

/EFA/
/WT/

101
124
125
124
116

045
052

/td /
/Dup/

/7 U/

/EST/

/7I0ON/

<00><00>

P.AKD:

111

/8Ns/
IA/cil>/0/
/¢ 1/

/NFO/
/RMA/
/7107
/N/<00>
/
/74N
/R/7<i1>/7e/

117
101
117
045
052
124
115
101
117

/¢ T/

/ERM/

045
052
106
101
105
117

P.AKF;

045
052
123

P.AKG:

045
055

P.AKH:

7INA/
/T10/
/N/<00»
/
/79N

JA/7<i>/e0/

/¢ F/
/ATA/

/L E/

/RRO/
/R/<00>
/uNS/

/A/<i>/e/

/% S/
/PEC/
/IAL/

103
114

<00>

/6Ns/
/A -/

1983

10:24:41

10:21:50

VAX-11 Bliss-16 v3-555

SEQ 0L
P

SPIDEROUSERS:(DOUCEYYE."LCON]CNQO“fl.;?T (33

ke
19-Dec-1983
15-Dec -198%

RD/RX EXERCISER
PROTECTION TABLE

040
114
101
125
124
125
105

045
101
040
114
101
120
123
101

117
122
101
126
102
103
116
102

045
101

126
105
122
045
101

122
114
107
123
107
020633

045
101

123

020655
020663
020664
020667
020672
020675

111
116
122
124
116
045
101

117

111

105
114

116
040

115
122

116
040
111
105
114
110
111

114

122

105
124
105

114
113
125
105
000
116
040
104
111
040
122
000
116
040
132
117
105
110
115
123
105
116
040
040
103
040
106
115
111
040
116
040
040
116

114
107

/7 IL/
/LEG/

045
055
114

/UNL/
/T N/
/UMB/

/ER/<0Q0»>
<00»

P.AKI:

107

040

131
103
040
040
114
111
040
117
040
115
122

045
055
105
103
105
117

/AL

040
111
116
102
000

/9Ns/
/A -/
/7 ILs/
/LEG/
/AL 7/
/PHY/
/SIC/
/AL /
/0R 7/
/REL/
/ATY/
/VNE /

/BLO/

/CK /
/NUM/

/BER/

<00><00>

P.AKJ:

/9Ns/
/A -/
/7 DE/
/NIC/

/€ E/

P.AKK:

/RRO/
/R7<00>
/uNs/
/A -7
/7 ZE/

/RO 7
/LEN/
/GHY/

/ ME/
/SSA/

/GE/<00>
<00>

P.AKL
:

/
/N
/A -/
/- A/

/5C1/
/1 17
/NFO/
/RMA/
/TI0/
/N /7¢00>

101

117

<00>

055
116
055

P.AKM:

/9N
/

/A -/
/-

/ON-/

10:24:41
10:21:50

SEQ

0075

VAX-11 Bliss-16 Vv3-555
Page
SPIDER$USERS
: [DOUCETTE ,FALCONICNROAA BL L

9%
(37

NRQAM]

RD/RX EXERCISER

gOI.O

PROTECTION TABLE

020700
020703

101
111

020711
020714

020706

020717

020722
020725

123
040

.ASCII
ANEL

/ACS/
711 /

117
101

122
124

115
111

LASCII
.ASCII

/ORM/
/AT1/

045
101

116
040

045
055

.ASCII
.ASCII

/sNs/
/A -/

116
111
040

101
117
115

111

117

116

0SS
105

040
122

020747
020752

105
101

123
107

111
124
116

000

020775

057

021003
021006
021011

122
103
105

105
117
000

040
104
000

101
055
105
040
116
131
101

040
040
116
102
101
040
124

055
123
104
111
122
104
101

021014

021017
021022
021025
021030
021033
021036
021041

021044
021046
021051
021054
021057
021062
021065
021070

021073

116
040
040
103
123

045
055
123
103
123

111

114

125

045

000
045
101
055
105
040
111
116

102

116

P.AKQ:

040
116

116

045

P.AKR:

040

123

105

021121

101

040

105

116

104

124

040

055

021132

040

021140

116

021127

021135

111

125
125

055

116

115

.ASCII

/INF/

/ON/<00>

/- T/
/ERM/

/INA/
/TIO/
/N MW/

/ESS/
/AGE/
<00>

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/#Ns/
/A -/
/- S/
~suCC/
/ESS/

ASCII

/ILV/

_ASCII

/#Ns/

LASCII

045
0S5
123
104
116
040
115
122
122
101
126
104
000

040
114
111

021124

P.AKO:

P.AKP:

054
105
124

105
102
000
045

.ASCII
.ASCII

101

021076
021101
021104

021107
021112
021115
021116

.ASCII
.ASCII
LASCII

045

000
116
040
040
116
125
124
125

.ASCII

LASCII
.ASCII

123
105

045
101
055
125
105

106

P.AKN:

124
115

000

021000

.ASCII

106

020755

020756
020761
220764
020767
020772

15-Dec-1983 10:21:50

103
111

020730
020733
020736
020741
020744

15-Dec 1983 10:24:41

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

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

.ASCII

LASCIXI
ASCII
LASCII

.ASCII
.ASCII
LASCII
_ASCII

.ASCII

LASCII

.ASCII

LASCII

.ASCII

LASCII

<S7>/FA/

/RE /
/COD/
/E/<00><00>
/A -/
/- S/
/END/
/ Bl/
/NAR/
/Y D/
/ATA/

<00><00>
/siNs/
/A -/
/- S/
/END/
/7 UN/
/IT 7
/NUM/

/BER/

7/, R/
/ELA/
/TIV/

/E O/
/BN/<00>
<00»>
/sNws/
/A -/

/- S/

/END/

7 UN/

/IT /

/NUM/

VAX-11 Bliss-16 V3-555

SEQ 009

Page

SPIDERSUSERS:
([DOUCETTE .FALCONICNRQAA . BLL1 (2%

“ 52

26
)

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
gOI.O
02114%
021146
021151
021154

021157

021162
021165
021170
021173
021176
021201
021204
021207
021212
021215
021220
021223

102

105
124
105

102
040
111

124

101

040
040

131
103

040

117

040
115
122
116
040
040
116

125
124
125
105

021306
021311
021314
021317
021322

021325

021370
021373
021374
021377
021402
021405

127
124
120
124
116
116

040

021272
021275
021300
021303

021354
021357
021362
021365

114

111
040
116

116
125
124
125
105

021226
021231
021234
021237
021242
021245
021250
021253
021256
021261
021264
021267

021330
021333
021336
021341
021344
021346
021351

105

040

117
122

114
040
115
125

045
116
114
105

040
107
101
040
117
040
115
122
000
101
116

117
105
124
105
124
101
126
117

057

122
122
101
126
104
054
122
105
101
105
000
045
055
123
104
116
040

15-Dec-1983
15-Dec-1983

P.AKS:

.ASCII

115

"ASCIT
.ASCII

122
120
123
101
102

103

116
102
000
045
055
123
104
116
040

P.AKT:

/ PA/
/TTE/

/RN/<00>

/%N%/
/A -/
/- S/

/END/
/ UN/
/1T 7
/NUM/

/BER/

/, P/
/HYS/
/ICA/

/L B/
/L0C/
/K N/
/UMB/
/ER/<00>
/9N
/
/A -/

/END/

/7 UN/
/IT 7
/NUM/

/BER/
/,

/70G1/
/CAL/
/
B/

111

114
102
103
116
102
040

/L0C/

/K N/
/UMB/

/ER /

<«00><00>

P.AKY:

114
122
111

/8AC/
/ONT/
/ROL/

/LER/

/7 117
/MEQ/
/UT/7<00>

117

000

105
105
120
120

/BER/
/. R/
/ELA/
/TIV/
/E D/
/BN,
/
/ WR/
/ITE/

/- S/

115
122
114

103
124

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

<00>

P.AKM:

/SAE/
/NVE/
/LOP/
/E/<ST>/P/

10:24:41
10:21:50

CFO 0697
VAX-11 Bliss-16 V3-555
98
SPIDERSUSERS: (DOUCETTE, FALCON)CNROAM BLl (33

021410
021413
021416
021421
021424

021427
021432
021435

021440
021443
021446
021451
021454

021456
021461
021464
021467
021472
021475
021500
021503
021506
021511
021514
021517
021522
021525
021530
021533
021536
021540
021543
021546
021551

021554
021557

021562
021565
021570
021573
021576
021601
021604
021606

021611

021614
021617
021622
021625
021630
021633
021636
021641
021644
021647
021652

15-Dec -1983 10:24:41
15-Dec -1983 10:21:50

RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
x01.0

101
105
122
104
122
122
120
111
040
040
115
125

103
124
105

040

122

040
101

124
117
124
105
124

045
116

000
101
126

122
131
122
111

057
103
124
122
105
122
122
120
111
040
040
115

114
105
101
105
127
124
105
117

117

045
117
122
114

115
116
122
122
131

117

125

000
101
116
117

105

122
040
104
101
120
111
040
122
000
101
116

117
105
122

040
122

131

122
122
101
116
117

/ACK/
78V 7/
/REA/

113

040

101
105
117
050
122
131
122
111
117
051

/D E/
/RRO/

/R (/
/PAR/
/ITY/
/ OR/
/ 11/
/MEOQ/
/IT)/

<00><00>

105
105
120
120
113

/9AE
/
/NVE/
/LOP/
/E/<ST>/P/

/ACK/
/ET 7/
/WR1/
/TE 7

040
111
040
122
040
101
124

/ERR/

/0R /
/(PA/
/RIT/
/Y O/
/R T/

117

124

/IME/
/QUT/

105
124

/7)/7<00>

103
124
114
122
117
101
040
115
101
124
105
117

P.AKY:

103
124
114
122
101
120

P.AKZ:

111
040
122
000

103
124
114

/9AC/
/0ONT/
/ROL/

/LER/

/7 RO/
/TM A/
/ND /7
/RAM/
/ PA/

/RIT/
/Y E/

/RRO/
/R/<00>
/8AC/
/ONY/
/ROL/

/LER/

/ RA/
/M P/

/AR1/

/7Y

/ERR/

P.ALA:

/0R/<00>
/8AC/
/ONT/
/ROL/

SEO 00L9A

VAX-11 Blies-16 V3-555
Page
99
SPIDERSUSERS:
(DOUCETTE .FALCON JCNRQAA .81 (33

[ #

02165%
021660
021663
021666
021671
021674
021677
021702
021705
021710
021713
021716
021721
021724
021727
021732

021735
021740
021743
021746
021750
021753
021756
021761
021764

021767
021772

021775
022000
022003
022006
022011
022014
022017
022020
022023
022026
022031
022034
022037
022042
022045

114

040

115
101
124
105
117
045
111

040

101
105

117

122

131
122
111

117

051
045
111
040
111
122
101

022116

105
122
040
122
131
122
122
101
116
122
104
122
122
120
111
040
040

115
125

000
101
116

127

124

105
117

050
122
131
122
111

117
051

117

022071
022074
022077
022102
022105
022110
022113

15-Dec-1983
15-Dec-1983

RD/RXx EXERCISER
PROTECTION TABLE

NRQAM1
!01.0

103
123
111

117

111
105
114
105
120

116
122
120
115
124
040
111
122
000
101

123
101
105

040

115
125

050

107
122

105

114
122

122
117
120

111
040
122
000
122

107
105

P.ALB:

/ RE/
/AD 7/
/ERR/
/0R /

040
122
040
101

124
117
124
105
124

122
107
122
105
122
122
120
111
040
040

/LER/
/ RO/
/M P/
/ARI1/
Y 7
/ERR/
/0R/ <00>
/%AR/
/ING/

P.ALC:

/(PA/
/RIT/
/Y 0/
/R T/
/7IME/
/0UT/
/)/<00>
/%AR/
/7ING/
/ WR/
/ITE/
/7 ER/
/ROR/
/7 (Ps
/ARY/
/7TY /

/0R /7

/TIM/

115
125

7EOU/

/T)/¢<00>
<00>

P.ALD:

/INT/

/ERR/
/UPT/
/ MA/

/STE/
/R F/
/AIL/

/URE/

<00><00>

P.ALE:

/9AN/
/0517
/7 AC/
/CES/
/S 1/
/7IME/
/0UT/
/ (W/
/7IGH/
/ER /
/LEV/
/EL 7/
/PRO/

10:24:41
10:21:50

SEQ 0099
VAX-11 Bliss-16 Vv3-555
P
100
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA
.BL1 (33

J&
NRQAM1
gOI.G

RD/RX EXERCISER
PROTECTION TABLE

022121
022124
022127
022132

124
117
104
105

117
114
105
116

022140

051

000

022135

022142
022145
022150
022153

022156

105

045
122
111
114

111

116

103
040
120
104
124

101
105
124
111

103
104
040
115
103

124

105

130

022167
022172

105
045

104
101

000
121

022200

123

040

115

117

122

022175

105

055

022203
022206
022211

101
105
105

022217

000

022214

022220
022223
022226
022231
022234
022237

045
117
122
114
040
124

022252
022255
022260
022263
022266
022271

045
116
122
124
116
117

022277

115

022242
022245
022250

022274

022302
022305
022306
022311
022314
022317
022322
022325
022330
022333
022336
022341
022344
022347
022352

022355
022360

105
102

123
122
122

P.ALI:

124

000

101
114
101
126
124
114
111
125
040
000
101
124
122

111
105
114
111
125
040
122
111
111
000
111
105
125

124
105

122
122

117

040
103

.ASCII

P.ALK:

/«AC/
/RED/
/IT /
/LIM/

/IT /
/EXC/

/EED/

/ED/<00>
/sAQ/

/-BU/
/S W/

/AST/
/ER /
/ERR/

.ASCII

<00>

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII

.ASCII
.ASCII
ASCII

/0R/<00>

/#AC/
/ONT/
/ROL/
/LER/
/7 FA/
/TAL/

LASCII

/7 ER/
/ROR/
<00><00>
/sAl/
/NST/
/RUC/
/TIO/
/N L/
/00P/
7 TY/

LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
L.ASCII
.ASCII
.ASCII
LASCII
.ASCII
,ASCII
.ASCII
.ASCII

/7UT/7<00>
<00»
/wAl/
/LLE/
/GAL/
/7 VI/
/RTYW/
/AL /
/CIR/
/CUl/
/7T I/
/D/<00><00>
/#Al/
/NTE/
/RRU/

.ASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII

P.ALJ:

/ENT/

.ASCII
.ASCII
.ASCII

.ASCII

101
123
125
111
040
117
105

.ASCII
.ASCII
.ASCII

P.ALM:

124

120
126

P.ALG:

103
124
114
122
101
114

040

/)/<00>

_.ASCII
.ASCII
LASCII
LASCII

.ASCII

101
116
117
105
106
101

111
124
103
117
114
120
111

.ASCII

000

105
117
000

/7T0C/
/0L /
/DEP/
/END/

LASCII

124
040
122

040
122
000

125
000
045
114
107
040
122
101
103
103
124
104
045
116
122

P.ALF:

104

125

LASCII
LASCII
.ASCII
.ASCII

.ASCII

040

022161

022164

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

LASCII
.ASCII

/MEO/

/PT /
/VEC/

SEQ 0100

VAX-11 Bliss-16 V3-555
Page 101
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BL1 (23

1<#
RD/RX EXERCISER

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

PROTECTION TABLEt

124

040

114
101

045
101
124
101
105
105
057
111
126
111
122
111

105

111

105

117

111

105
114

101
111
105

116
040
101

127

124
111
101
104
105

117

111
116
106
122

045
101
124

101
i1l
105
116

122
105

111

101

117

040
116

117
101
105
117
114

045

117
114
115

116
055
122
131
045
116

/TOR/
/7 IL/
/LEG/

122
114
107
000

115

116
116
103
122

/AL /<00>

<00»>

P.ALL:

/TEN/
/ANC/
/E R/
/EAD/

104
122
105
116
114

<S7>/UR/

/1TE/
/7 IN/
/VAL/
/710 7

040

107

/REG/
/ION/
/7 1D/

116
104
124
111
000

/ENT/

/IF1/

/ER/<00>
<00>

115
116
116
103
127
124
114
104
117
117
114
104
114
103
124
114
122

P.ALM:

103
124
114
122
101
105
117

P.ALN:

/8AM/
/RIN/
/TEN/
/ANC/

/E W/
/RIT/

/€ L/

/0AD/
/7 T0/
/7 NO/
/N-L/

/0AD/

/ABL/

050
116
101

124
000
111
124
105

/%AM/
/ARIN/

P.ALO:

SEQ 0101
age
SPIDERSUSERS:
[DOUCETTE .FALCON]ICNRQAA .BL1 (33

VAX-11 Bliss-16 V3-555

RD/RX EXERCISER
PROTECTION TABLE

121
116
040
122
045
111
105

il4
105
120
124

117

111
117
101
102
111
040
122
000
045
125
105

117

040
122

101

040
111
i22
045
101
111
040

107
124
040
101
106
114
105
120
111
040
040
115
125
000
021346’
021374’
021456°
021540’
021606'
021644
021702°

125

103
105
117
101
107
122
105
114
122

117

114
116
115
124
111
124
105

117

101
122
057
i14
110
104
122
106

114
105

101

120
116
122

111

105

122
104
101
125
040
101
124
117
124
105
124

15-Dec 1983
15-Dec-1983

105
105
122

/QUE/
/NCE/
/ ER/

/ROR/

122

110
110
040
126
040
117
103
040
103
120
111
114

<00>

P.ALP:

/IGH/
/ER 7/
/EL

/PRO/
/10C/
/0L /
ZINC/
/0MP/
/ATY/

/BIL/

/1TvY/
/ ER/
/ROR/

122
122

<00>

P.ALQ:

127
105

101
125
000
115
120

/%AH/

/LEV/

131

120
107
120
114
101

;fl

P.ALR

107
105
123
122
105

/8AP/

/URG/
/E/<ST>/P/
/0LL/
/ HA/
/RDMW/
/ARE/
/7 FA/
7ILV/
/RE/<00>
/8AM/
/APP/
/ING/
/ RE/

/GIS/

/TER/
/ RE/

/RD /

040
111
122

/FAY/

/LUR/

/€ (/
/PAR/
/ITv/
/7 OR/
/7 11/
/MEQ/

050
122
131
122
111

117

/ut)/

051

<00>

P.AKU:

P.AKY
P.AKW
P.AKX
P.AKY
P.AKZ
P.ALA
P.ALB

10:24:41
10:21:50

VAX-11 Bliss-16 v3-555

SEQ 0102
Page 103

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BLL (33

1% Dec-1983
15-Dec -1983%

RD/RX EXERCISER
PROTECTION TABLE

VOV 0PVUVDVOVOODUODD

LALC
.ALD
.ALE
.ALF
.ALG
.ALH
LALI
ALY
ALK
LALL
.ALM
.ALN
LALO
.ALP

021750
022020
022052
022142’
022172
022220
022252

022720'

P.ALQ
P.ALR
/8AT/
/11 7
/CPU/
/7 FA/
/ILV/

022306
022344
022400’
022464
022550’
022614°
022642
022756
045
061

103

040
111
122
045

117
120

111
040
115
122
122
045
124
105
101
111
040
111
122
055
061
101
122
123
105
123
122
045
124
105
101
111
040
111
122
055
055

101
061

120
106
114
105
101
116
101
124
122
122
101
101

103
116
106
114
105
061

124

040

125
101
125

116

123
124

P.ALV:

101
101

123

103
116
106
114
105

110

115

101
125

040
121

125

/RRO/
/R/<00><00>
/8AS/
/TAT/

/ FA/
/7ILV/

/RE /

/- T/
/11 7
/ADD/

124

111
105

/ON-/
/PAR/

/E W/
/ACH/
/INE/

101
125

107
124

/BAN/

/ITy/
/ RA/
/M E/

115
110

104
123

102

/RE/<00>

P.ALU:

122
131
101
105
117

105

040

P.ALT:

/RES/
/S R/
/EGY/
/STE/

/R/7<00><00>

P.ALMW:

/BAS/

/TAT/

/E M/

/ACH/

/INE/
/ FA/
/ILV/
/RE /
/- Q/
/-BU/

10:24:41
10:21:50

SEO 0103
VAX-11 Bliss-16 v3-555
Page 104
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BLL1 (33

N#&
RD/RX EXERCISER
PROTECTION TABLE

NRQAM1
XOI.O

023310
023313
023316
023321
023324
023327
023332
0c3334
023337
023342

023345
023350
023353
023356
023361
023364
023367
023372
023375
023400

023403
023404
023407
023412
023415

023420

023423
023426
023431
023434
023437

123
104
105

040

107
124

045
124
105
101
111
111
122
055
122
122
111

045
124
105
101
111
040
111
122

105
101
132
057
123
111
111
122

123
122
045
101
111
040
111
122
055
122
107
101

127
105
105

040
104

123
122
111
105
000
101
101
040
103
116
106
114

101
122

123
105
123
122

123
124
115
110
105
101
125

105

040

103
105
123
122

040

107
124
000

101
101
C40

123
124
115

116
106
114

105

040

103

105

15-Dec-1983
15-Dec-1983

P.ALX:

103

P.ALY:

110
101

125

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

/S A/
/DDR~/
/ESS/
/ RE/
/GIS/
/TER/

<00><00>

/%AS/

/TAT/
/E M/
/ACH/
/INE/
/ FA/
/7ILV/
/RE /7
/- C/
/RC 7
/REG/
/IST/

/ER/<00>
<00>

/%AS/
/TAT/
/E M/
/ACH/
/INE/
/7 FA/
/ILV/

/RE /

040

122
114
105
104
105
101
132
040
107
124
000
101
101
040
103
116
106
114
105
040
117
040
122
101
040
122

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

/ER1/
/ALY/
/ZER/

<S7>/DE/

/SER/
/IAL/
/1ZE/

/R R/
7EGI/
/STE/

/R/7<00><00>

P.ALZ:

/BAS/
/TAT/
/E M/
/ACH/
/INE/
/ FA/
/ILV/
/RE 7/
/-

/RON/
/G W/
/ARD/
/WAR/
/E v/
/ERS/

10:24:41
10:21:50

SEQ 0104
VAX-11 Bliss-16 V3-555
Page 105
SPIDERSUSERS: {DOUCETTE .FALCONICNRQAA .BL1 (23

HD Rx EXERCISER
PRCTECTION TABLE

NRQAM|
vo1.¢

“

Dec

194%

Dec

194%

10:04:4)

10:21:%0

)

025120
025142
023172

117

000

iie
PoALS:

023534

§R88 & ¢ 281 38

023562
023564
02 35%e
023570
028572
028574
0238576
02 3600
023608
023606
023610
023613
023616
023621

111

000

0255%%
023560

P.AMA:

AsSCII
LASCII
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD

. WORD

_ASCII

.ASCII
.ASCII

P .AMB

LASCII

P.AMC:

.ASCII
LASCII
.ASCII
.ASCII

LASCII

P.AMD

.ASCII

P.AME:

_ASCII

P.AW:

_ASCII

.ASCII

LASCII

LSMMLEN:
;

. WORD
HPT
IP . ADDR: :
HWPT

. WORD

154

. WORD

-77744

. WORD

HWPT
. E.TRK; ;

023674

023676
023700

023702
023704

023706

“a

. WORD

HPT
. S.TRK: ;

023672

<<l SNDHW
-L SHWLEN> /2>

-1630

HWPT
. DISK: :

023670

7¢00><00>

. WORD

VECTOR: :

HWPT BR.LEVEL :

023664
023666

. WORD
: .BLKW
LONDMHM:

52137

. WORD
SWP .ERROR::
. WORD
SWP XFER: :
. WORD
SWP FLAGS: :
. WORD
SWP .DPAT: ;
. WORD
SWP
. UCNT: :
. WORD
SWP
. RAT: ;:
.WORD
DUPROUND
; :
. WORD
SWP
. UDPAT; ;

<<LSNDSW-L $SWLEN>/2>

LSSWLEN::

202
o

143
22

VA7

11 Bl 'ws

¢3 %58

SEQ o1t
-

PIDERSUSERS
: [DOUCE TTE b AL CON IONK SR :‘9'

L9
NRQAM1
\;OX.C

023746
023750
02875¢
023754

RD ‘Rx EXERCISER
PROTECTION TABLE

000000
177777
000006

1% Dec
15 Dec

L SNDSMK: : BLKW
L$PROT: : . WORD

SFFF§,

27
11

CUPPKT:
: .BLKW
TALLY::

.BLKW

401

.BLKM
T.AD:DR:
C.ERR.TBL::

MSCP.PKT::
.BLKW
IPKT
. ADDR: :
PK
. USE::
T

RETPKT:: .BLKM

. USE::.BLKW
RP

ELOG.PKT:

BLKM
BLKW

005114

BUFF .ADDR: :

005134

BUFF .OMN: :

005144
005150

.BLKW
I0DQ::
I0DQ.IN::

005152

.BLKW

BLKW

005154

ENTRY .REASON: :

005155

EOP.FLAG: ;

005156

DUP .FLAGS: :
.BLKW
CCTLR:: .BLKW
COISK:: .BLKW
CUOFF:: .BLKW

005160
005162
005164

BLKB

.BL

papapape
pa
e
e =
D

RP . INDX: ;

198%
198%

10:74:41
10:21:50

VAzZ 11 Bliss 16 V3 455
FPage 107
GPIDERSVUSERS:
[DOUCETTE . FALCON JCNR Ak 84 1 (22

()
15-Dec 1983 10:24:41

RD/RX EXERCISER
PROTECTION TABLE

10:21:50

005224

P.INDEX::

005226

S.DUPPKT
:;

005232

005234

B
pebepape
pape
e
e
pe

005230

.BLKW

CRN.LOM::
.BLKM
CRN.HIGM:
:
.BLKW

005222

NEX: :

SA.REG:: .BLKW
CMD.TIME::

.u
NEXT.PKT
. USE::
L{:]

.GLOBL

.GLOBL
.GLOBL

BIT15=»
BIT14=BIT13e=
BIT12=~
BIT1l1e=
BIT10=BIT09-BIT08=~
BIT07=-

BIT06=~
BITOS=BIT04=BITO3=BIT02=~
BITO1=~
BITO0==

005216
005220

.BLKW
.BLKW

005214

STEP::
OF .RC::

LSSOFT, TSPTHV,

LSRPT,

LSINIT

LSCLEAN, LSLAST, LSHARD, LSDVTYP
LSDESC, LSDU, LSAU, LSAUTO,

-100000

40000

20000
10000

4000

2000
1000

400

200
100

20
10
L}

2
1

SEG 0107

Pege 108

SPIDERSUSERS:
[DOUCE T TE .F ALCONICNROAR BT

CTLR.CNT::
BLKW
.BLKW
DUR: :
QIO::
.BLKB
.EVEN
FREE .MEM.ADDR: :
.BLKW
BYTS.PER.QIO::
.BLKW

1983

15 Dec

VAX-11 Bliss-16 V3 €55

(72

E
NRQAM]
201.0

RD/RX CXERCISER
PROTECTION TABLE

19 Dec-1983 10:24:41
15-Dec-1983 10:21:50

001000
000400
000200
000100
000040
000020
000010
000004
020002
000001

BIT9=BIT8-»
BIT7=»
BIT6=BITS==
BIT4==
BIT3=»
BIT2==
BITl==
BITQ==

000036

EF .CONTINUE ==

000040
000037

EF .START ==
EF .RESTART ==

1000
400
200
100

40
20

10
4
2
1

40
37

000035
000034
000340
000300
000240

EF .NEW==
EF .PUR==
PRIO7==
PRIOG==
PRIQS==

35
34
340
300
240

000000
000004
000010
000020

PRIOO==
EVLe==

0
[

000200
000140
000100
000040

PRIO4==
PRIO3==
PRIO2e~
PRIO1==
LOT==

ADR==

200
140
100
40
10

000040
000100
000200
000400
001000
002000
004000
010000
020000
04C000

IDY==
ISRe==
UAM==
BOE==
PNT=s
PRI==
IXE==
IBE=~
IER==
LOE=»

40
100
200
400
1000
2000
4000
10000
20000
40000

000126
023670’
023650
000011°
000136°
000152°
000162’
000174’

LSERRTBL =~
L#Ske==
L=
LSDEPQ==
HWQl==
HWQ2= =
HWQ3 ==
HUQ4 = =

ERRTYP
LOSWLEN.2
LSHWLEN.2
LSREV.1
P.AAA
P.ARB
P.AAC
P.AAD

HWQT7 ==
HWQB ==
HWQ@9 ==

P.AAG
P.AAH
P.AAI

100000

000220°
000310’

000326’
000406
000460

000560°
000646 '

000700
000722’

001004

001026°

HOE==

HQS ==
Q6= =

HWQ10==
HWQl1=~
SW@li=SW@2==

SHQ4 ==

SWQ7==

-100000

P.AAE
P.AAF

P.AAJ
P.AAK

P.AAL
P.AAM

P.AAN

P.ARD

SEQ 01043

VAX-11 Bliss-16 Vv3-555
Page 109
SPIDERSUSERS:
[DOUCETTE ,FALCONICNRQAA
811 (3%

9
NRQAM1
\;OI.C

RD/RX EXERCISER
PROTECTION TABLE

15 Dec-1983 10:24:41
15-Dec -1983 10:21:50

001100
001154"
001220
001252
001350
001426°
001444°

SWQR9==
SWQ10==
SWQll==
SWQ12==
SWQ@13=»
SW@14==
SWQ1S==

P.AAP
P.ALQ
P.AAR
P.AAS
P.AAT
P.AAU
P.AAV

001672
001760
002050*
002052

SWQR22==
SWMl==
NULL="
DU.MSG==

P.AAY
P.AAZ
P.ABA
P.ABB

002734°

MSG.03==

001514°
001602

002616
002646
002700

002766

003052
003116
003202

003246°
003334°

SWQL7==
SWQ19==

OU.RSN==
MSG.O1==
MSG.02==

RPT1==

RPT2==
RPT3=s
RPT4s==

RPTSs==

RPT6==

P.AAW
P.AAX

P.ABC
P.ABP
P.ABQ
P.ABR

P.ABS

P.ABT
P.ABY
P.ABV

P.ABM
» _ABX

003400°
003422
003444
003472
003524
003612
003660°
003760
004056
004156
004240
004260°
004352
004412
004436
004464
004512
004542

RPT7ss=
RPT8==
RPT9==
RPT10==
RPT11e=
RPT12=»
RPT13es
RPT14==
RPT1S==
RPT16==
EGS.01==
EGS.02==
EGD.10==
EGD.11==
EGD.12==
EGD.13==
EGD. 14+
EGD.15=»

P.ABY
P.ABZ
P.ACA
P.ACB
P.ACC
P.ACD
P.ACE
P.ACF
P.ACG
P.ACH
P.ACI
P.ACJY
P.ACK
P.ACL
P.ACH
P.ACN
P.ACO
P.ACP

004610°
004626
004646
004734
005046
005106
005150
005174
005236
005276

EGD.17=»
EGD.18==
EGD.20==
EGD.21=~
EGD.22+=
EGD.23==
EGH.30==
EBS.01==
EBD.10==
EBD.12==

P.ACR
P.ACS
P.ACT
P.ACY
P.ACY
P.ACMW
P.ACX
P.ACY
P.ACZ
P.ADA

005376
005436
005472

EBD.14=~
EBD.18+=EBD.19==

004560’

005344

EGD.16=-

EBD.13==

P.ACQ

P.ADB

P.ADC
P.ADD
P.ADE

SEQ 0109

VAY-11 Bliss-16 v3-555
Fage 110
SPIDERSUSERS:
[DOUCETTE ,FALCON)ICNRQAA .BLL1 (33

(54
-

NRQAM1

RD/RX EXERCISER

\;01.0

15-Dec-1983 10:24:41

PROTECTION TABLE

15-Dec-1983 10:21:50

005552

EH.0==

P .ADF

005646

EH. 2==

P.ADH

005610

EM, 1=-

005706
005744
005770

EM, SeEH.4-=
EN Se=

006020

EH.6==

006052

EH, T==

006104

EH.8==

P.ADG

P.ADI
P.ADJ
P.ADK
P.ADL

P.ADM

P.ADN

006140

EH.9==

P.ADO

007012

ERR.COD=~

P.ADS

006172’
006224
006262’

EH.10==
EH.12==
EH, 13==

007046°
007402°
007414°
007504
007572
007636
007702

ELG.00==
ELG.FMT==
EX.BDR==
EX.BOW==
EX.LBR==
EX.LBW==
EX.RBN==

007760

EX.CBR==

010030

EX.CBUW==

010100
010122’

XX13==
XX14==

010136

XX1S==

010160
010206°
010224°

XX16==
XX17==
XX18==

010234
010246°

010576°
010640’
010664
010712°
010744°

XX19==
XX20==
XX21==
XX22==
XX23==
XX24+==
XX25==
X¥26==
XX27==
XX29==
XX30==
XX31e=
XX32==

011030’
011100°

XX34==
XX35==

010262°

010322
010356
010412
010452°
010522°

010772’
011116’

o11142°
011206
011234°
011254
011304’
011360’
011442’
011504°
011544°
011606

XX33==

XX37 ==

XX38==
XX39e=
XX40Q==
XX41=»
EB.DCT==
EB.COMM=~
EB.PKTe=
EB.RAL ==
EB.ADDR==
EBNEX1 ==

P.ADP
P.ADQ
P.ADR

P.AEH
P.AEI
P.AEOQ
P.RAEP
P.AEQ
P.AER
P.AES

P.AET

P.AEV
P.AEY
P.AEW

P.AEX

P.AEY
P.AEZ
P.AFA

P.AFB
P.AFC

P.AFD

P.AFE
P.AFF
P.AFG
P.AFH
P.AFI

P.AFJ
P.AFK
P.AFL
P.AFM
P.AFN
P.AFO

P.AFP
P.AFQ
P.AFR

P.AFS
P.AFT
P.AFV
P.AFV
P.AFW
P.AFX
P.AFY
P.AFZ
P.AGA
P.AGB

VAX-11 Bliss-16 V3-555

SEQ 0110

111

SPIDEROUSERS:(DQ.CE”E.FALCMIC'GDM\.m (33

H
NRQAM1

RD/RX EXERCISER

\;ox.c

15-Dec-1983 10:24:41

PROTECTION TABLE

15-Dec-1983 10:21:50

011662°
011760
012054
012120°

EB.NEX2=~
EBNEX3« =

P.AGC
P.AGD

012214°
012244°
012264°

EX.SEQ==

EX.CRD==
EX.MTN==
EX.DGM= =

P.AGG

012174'

012302°

012312
012322°
012334°
012346

012372°

012414

CER.O1=~
CER.02=~

EX.RD==

EX.WRT==
EX.ACC=»
EX.ONL==
EX.SCC==

EX.GDS=»

EX.ESP=»

P.AGE
P.AGF

P.AGH
P.AGI
P.AGJ
P.AGK

P.AGL
P.AGM
P.AGN
P.AGO

P.AGP

P.AGQ

012444
012470

EX.ELP==
EX.SDD==

P.AGR
P.AGS

012524°

EX.ABP==

P.AGU

SC.ONL ==
SC.SON==
SC.UNK==

P.AGY
P.AGZ
P.AHA

012504

EX.RCD==

012534°
012560°
012602°

SC.SDI==
SC.CON==
SC.DUP==

012754°

SC.VOL==

012632’
012654
012674°

013034°
013102°
013174

013262°

SC.IOP==
SC.DIS==
SC.FER==

SC.FE2=~

013340’
013420

SC.ISH==
SC.IS2=-

013626°

SC.ECC=~

013500°
013554°

013710’
013742°

SC.DST=»
SC.DS2==

P.AGV
P.AGMW
P.AGX

P.AHB

P .AHC
P.AHD
P.AHE

P.AWF

P .AMG
P.AMH

P.AHI
P.AK)
P.AMK

SC.FCTs=»

P.AHL
P.AHM
P.ANN
P.AHD
P.AHP

014210’
014240’

SC.EC2=~
SC.EC3e=-

. P.AMR
P.AHS

014322°

SC.ECS==

P.ARY

014402°

SC.EC7=»

013762'
014036’
014112

014160°
014272

014352’

014434’

SC.ECD==
SC.RCT=»

P.AGY

SC.FUL==
SC.576==

SC.EC1=~

SC.ECA=~

SC.EC6=~

P.AHZ

SC.HWPe==

014772¢

P. AMM

SC.SWP==

014570°

014660°
014702°
014736’

P.AHV

P . AMX

SC.EC9=~

014630

P.ANT

SC.EC8=~

014466°

014530’

P.ANQ

P.ANY

P.AIA

SC.0DA=-

¢ P.AIB

SC.CTO==

P.AIF

SC.008+==
SC.NXM==
SC.PAR==

P.AIC
P.AID
P.AIE

VAX-11 Bliss-16 V3-555

SEQ 0111

Page 112

SPIDERSUSERS:[DOUCETTE .FALCONICNRGAA B 1

19
RD/RX EXERCISER
PROTECTION TABLE

15-Dec-1983
15-Dec-1983
P.AIG
P.AIH
P.AII
P.AIJ
P.AIK
P.AIL
P.AIM
P.AIN
P.AIO
P.AIP
P.AIQ

015044
015122’

015136
015206
015300°
015366
015422’
015504
015532
015600°
015630
015712
015746°
016002*
016034
016074°
016152
016226
016302'

T.SPL==
E.UNT=»
E.BLK=»
E.DEV==

313111111144444444444444444444444444

i
L

TER==

hl
b-3

016400’
016430
016454
016502*
016560
016620
016646
016712
016756
017016°
017056
017130
O171i00¢
017176’
017300°
017332
017362
017444°
017532°
017644
017700
017734
020010’
020050
020076
020122°
020172°
020242
020264
020316
020342
020366
020412’
020432°
020466°
020550

016360

R E-ERARERARRRERERRRRRRARRRARR
ARl il i

P.AIR
P.AIS
P.ALIT
P.AIV
P.AIV
P.AIMW
P.AIX
P.AIY
P.AIZ

AR R

NRQAM1
vol.0

10:24:41
10:21:50

SEQ 0O1lc
VAX-11 Bliss-16 v3-555
Page 1 13
SPIDERSUSERS:
[DOUCETTE . FALCON]ICNRGAA B 1 ( 33

J9
NRQAM1

RD/RX EXERCISER

\;01.0

15-Dec-1983 10:24:41

PROTECTION TABLE

15-Dec-1983

020574
020630
020664
020722

E.ZER==
M.ASC==
M.BIN==
M.TER==

P.AKK
P.AKL
P.AKM
P.AKN

021014

M.DAT==

P.AKP

021116

M.URP==

P.AKR

020756

M.COD==

021046

P.AMD
P.AME
P.ANF
LEHWLEN.2
LSSWLEN.2

.EVEN
PSECT SUMMARY

Psect Name

Words

;
3

P.AKU
P.ALS
P.AMA
P.AMB
P.AMC

CRLF ==
DASHs==
ASTERISK==
DFPTBL.==
SFPTBL==

P.AKT

CNTR.ERR=»
RDRX.ERR==
EX.WRD==
EX.OP==
SPACE4==

023626
023632
023640
023650’
023670’

P.AKS

M. UL==

023042
023562°
023607
023010’
023622’

;

P.AKQ

M.UP==

021264

P.AKO

M.UR==

021204

10:21:50

Attributes

LIBRARY STATISTICS
I

File

U N

SRR R =

0 SR

SPIDERSUSERS:[DOUCETTE.FALCONICNRQAA.L16:7

...

Total

Symbols

Loaded

227

--------

Blocks

Percent

Read

COMMAND QUALIFIERS

BLISS /PDP11 CNRGAA.BL1/LIST=CNRQAA.LI1/0BJECT=CNRGAA,0B1/SOURCE
=PAGE : 56

VAX-11 Bliss-16 V3-555

SEQ 0113

Page 114

SPIDERSUSERS: [DOUCETTE ,FALCONICNRQAA. BLI

(33

1<
NRQAM?

;
:

;

3
:
:

RD/RX EXERCISER

15-Dec-1983

PROTECTION TABLE
3362

3363
3364

3365

10:24:41

15-Dec-1983 10:21:50

VAX-11 Bliss-16 v3-555

stitle 'RD/RX EXERCISER'

ident = 'V01.2',

addressing_mode (absolute),
environment (noeis)
) =

gggg begi

:
;

3371
gg;g

ssbttl 'DECLARATIONS'

;

gg;;

library ‘CNRQAA.L16';

! RDRX EXERCISER GLOBAL LIBRARY

;

gzg

require 'BLSMAC.REQ';

! DIAGNOSTIC SUPERVISOR LIBRARY

4866

forward routine

3
:

;

:
3

4867
4868

4670
4871

4872

4873

4876

:
:

4874
4875

pr-i44
4879

:
;
;

4881
4882
4883

;
:
:
;
;
:
:
:

4885
4886
4887
4888
4889
4890
4891
4892

;
:
:
:

NEX_TRAP : L$ISR novealue,
EMS_01 : novalue,

EMSBLK . movelus:
:

NOvalue,

EMSCMD : NOVALUE,
SET_CPAR :

novelue,

SET_UPAR : novelue,

EMS_DBN
external

CST

: novelue;

: blockvector (HA! CTLR, CST_LEN, word)] field (CST_FIELDS),

CST_ADDR: ref block (gs't.len
9-41 P
ey g
¢ CONTROLLER STATUS TABLE ADDRESS OF “"CURRENT” CONTROLLER
re

4880

DCT : blockvector (m CTLR, Cfl'al.fl“'“ field (DCT_FIELDS),

4884

RDRX_ADDR
: ref rdru h.l‘ (RC_REG),

4893
4894
4895

C_ERR_TBL : blockvector [MAX_C

' DRIVER
TABLES
DCT_ADDR: ref block tocr LEN, word] field (DCT_FIELDS),
! ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE

ICE ADDRESS OF “CURRENT” CONTROLLER
IRDRX_ADOR: ref u-- nou (RC
R
' oe
VICE
OF INTERRUPTING CONTROLLER
DUPPKT : BLOCK (257, WORD) field (DP_FIELDS),
! BUFFER CONTAINING
DUP INFORMATION FROM RECEIVE AND SEND COMMANDS
TALLY : vector [MAX_UNITS & TALLY
, word] field (T_FIELDS),
¢ STATISTICS TABLES
T_ADOR : ref block (TW. word) field (T_FIELD

'
55 w STATISTICS kL ALLY) FOR CURRENT UNIT
C_ERR_LEN 1 old (C_ERR_FIELDS).
! STATISTICS
inu FOR cbnm ERRORS

4896

MSCP_PXT : bl.odxvoetor [PKT_CNT, PKT_LEN, word) field (PKT_FIELDS),

:
3
:
:
;

4898
4899
4900
4901
4902

IPKT_ADOR: ref bloek [PKT_LEN, word) field (PKT_FIELDS),
! ADORESS or AN nscw PACKET (INTERRUPT PROCESSING)
PKT_USE : vector (PKT _CNT,
o’ad
! "MSCP,
r
ALLOCATION TABLE
RETPKT : blockvector [RP_CNT, RP n.:n. word) field (RP_FIELDS),

4904

RP_USE : vector [RP CNT.

;

4897

4903

4905

! MSCP PACKET POOL

‘ aefum ncxe POOL
! RET

e, i

1,
PACK POOL ALLOCATION TABLE

1 15

SPIDERSUSERS: ([DOUCETTE. FALCON JCNRQAA ;S
,
( 24

module NRQAM2 (

3366
3367
3368

SEO 0114

|
RD/RX EXERCISER

4907
4908
4909
4910
4911
4912
4913
4914

4915

4916
4917
4918
4919
4920
4921
4922
4923

4924

S5
B8
S5
S5
e
Be
S5
B8
S5
B8
B8
B5
S8
S5
S5
S8
BE
B
B8

4927

4928
4929
4930
4931
4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
49344
4945

4926

4947
4548
4949
4950
4951

4953
4954
4955
4956
4957
4959
4960
4961

RP_INDX
RP_ADDR

ELOG_PKT

:
:

16 v3-555

word,

CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET

DUR : vector [MAX_UNITS, bytel,
QIO : vector [MAX_CTLR, byte],

FREE _MEM_ADDR,

! TABLE OF I/0 BUFFER DESCRIPTORS
! I/0 BUFFER OWNERSHIP (CONTROLLER NUMBER)

170 DONE QUEUE - CIRCULAR QUEUE OF RETPKT INDECES
1/0 DONE QUEUE IN POINTER
170 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND
END-OF -PASS FLAG
DUP FLAGS
NUMBER OF “CURRENT” CONTROLLER

: word,
: word,

TOTAL NUMBER OF CONFIGURED CONTROLLERS

DROP UNIT REASON
NUMBER OF OUTSTANDING QINS PER CONTROLLER
START OF FREE MEMORY

SIZE (BYTES) OF AN I/0 BUFFER
CURRENT STATUS CODE
CURRENT SUB-CODE
CURRENT STEP IN HMARD_INIT

OFFSET (0 OR 2) TO READ IP OR SA

STORAGE FOR SA REGISTER READS AND WRITES
COMMAND TIMEOUT VALUE (IN SECONDS)
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT
COMMAND REF NUMBER (HI ORDER)

DBN BYTE

PACKET INDEX

THE PATTERN WRITTEN TO DBN'S

SEQ 0115
Page 116

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL1 (324

! CURRENT RETURN PACKET INDEX
[RP_LEN, word] field (RP_FIELDS),
! CURRENT RETURN PACKET ADDRESS
: blockvector [EP_CNT, EP_LEN, word] field (EP_FIELDS),
! ERROR-LOG PACKET SAVE AREA

Im-IN : n"dc
I0DQ_OUT : word,
ENTRY_REASON : byte,
EOP_FLAG : byte,
DUP_FLAGS : WORD,

CTLR_CNT

VAX-11 Bliss

word,
ref block

BUFF _ADDR : vector [MAX_BUF _CNT]),
BUFF _OWN : vector [MAX_BUF _CNT, byte, signed]),
I00Q : vector [IODQ_LEN, bytel],

CDISK
CUOFF

10:24:41

15-Dec-1983 10:21:50

4906

BE
EE
BE
S
RS
RS
R ORE
WEORE

15-Dec-1983

DECLARATIONS

NRQAM?
vol.e

! CREDIT BALANCE
! POINTER TO NEXT ENTRY IN PKT_USE TABLE
tJSD REV A - REMOVED
1JSD REV A - REMOVED

M
NRQAM.

RD/RX EXERCISER

vol.c

DECLARATIONS

)

4962

SWQ4,

H
B
H
:

4963
4964
4965
4966

SWQ7,
SWQ9,
SWQ10,
SWQll1,

:
:

4968
4969

SWQ13,
SWQ14,

:
:
3

4970

4971
4972
4973
4974

4975

SWA1S,

SWQ17,
SWQ@19,
SW@22,
SWM1,

4976

NULL,

:
3

4980
4981

RPT1,
RPTZ2,

3
3
:

4977
4978
4979

MSG_01,
MSG_02,
MSG_03,

;
5

4983
4934

RPT4,
RPTS,

;
H
H
H
;
:
s
H
3
:

4986
4987
4988
4989
4990
4991
4992
4993
4994
4995

RPT7,
RPTS,
RPT9,
RPT10,
RPT11,
RPT12,
RPT13,
RPT14,
RPT1S,
RPT16,

4997

EGS_02,

4996

;
s
3
H
3
3
3
H
H
H
P
3

4999
5000
5001
5002
S003
S004
S005
S006
S007
5008
5009
5010

EGD_11,
EGD_12,
EGD_13,
EGD_14,
EGD_15,
EGD_16,.
EGD_17,
EGD_18,
EGD_20,
EGD_21.,
EGD_22,
EGD_23,

s
H

5012
5013

EH_O,
EH_1,

.
:
s

5015
S016
5017

EH_3,
EH_4,
EH_S,

;

EGS_O1,

15 Dec-1983% 10:¢24:41

15-Dec-1983 10:21:50

VAX-11 Bliss-16 v3-555

SEQ 0116

Fage

SPIDERSUSERS
: [DOUCETTE .FALCON]ICNRQAA .BL 1

N
RD/RX EXERCISER
DECLARATIONS

5018
5019
5020
5021
5022
5023
5024

EH_6,
EH_7,
EH_8,
EH_S,
EHM_10,
EM_12,
EM_13,

5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039
5040

ERS 01,
EBD_10,
EBD_12.
EBD_13,
EBD_14,
EBD_18,
EBD_19,
ELG_00,
EX_BDR,
EX_BDW,
EX_LBR,
EX_LBW,
EX_RBN,
EX_CBR,
EX_CBW,

S041
5042
S043
5044

xXxi3,
Xxx14,
xx1S,
XxX16,

5046
5047

xx19,

SSSgERRERRERREy

WEORR

BE B8

ST B

BE S5

S5 me Ws

Bs S5 ms

NRQAM.
!01.2

xx17,
xx18,

15-Dec -1983
15 -Dec 1983

10:24:41
10:21:50

SEQ 0117/
VAX-11 Bliss-16 v3-555
Page 117
SPIDERSUSERS:
[DOUCETTE . F ALCONICNRQAA .BI.1 (34

tii10)
N

AN,

vOl ..

s
’
'
'

EXERCISER

DECL ARAT IONS

5079
S076
077
5078

EB_NEXZ,
EBNEXS,
CER_ 01,
CER_O2,

s
f
b
'

5079
5080
5081
5082

'
’
'
'
'
'
’
b
'
'
f

5084
5085
$086
S087
5088
5089
$090
5091
5092
5093
S09%4
$095
5096
5097
5098

EX_MRT,
Ex_ACC,
Ex_OML,
Ex_sCC,
Ex_GDS,
Ex_ESP,
Ex_ELP,
Ex_SDD,
Ex_ RCD .
EX_A
» BP,
SC_SDI,
*
SC_CON,
.
SC_DWP,
.
SC " uc
sc . Sm.

5100

SC_vOoL,

'
.
'
i

50.3

5099

Ex_SEQ,
Ex_CRD,
Ex_MTN,
Ex_DGM,

El,wc

5C UNIC,

5101

SC_I0P,

'
'

5103

5104
5105

SC_FER,

5107

SC_D0ST,

'
'
i
:
'

5112
5113
S114
5115
S116

SC.FWL,
SC_S76,
SC_FCT,
SC_EC1,
SC_EC2,

S$120

SC_ECé6,

H
:

5125
5126

SC_MP,
SC_ODA,

5129

SC_PAR,

3
3
:

3
H

$102

5108

S121
S122
5123

S127
S128

SC_DIS,

SC_FE2,
SC_ISH,

sC_DS2.

SC_EC7,
SC_ECS8,
SC_EC9,

SC_008,
SC_NXM,

Dec

19843

10:c4:4)

15 Dec 1983 10:21:50

VAX

¢3

GLIx
Fage 119

SPIDERS SERS:[DOUCETTE
. FALCON ICNRGAL M 1

10
NRQAM,®

RD/RXx EXERCISER

%0!.:

DECLARATIONS

5130

sC_Cr0,

:
s
:
:
3

5132
5133
5134
5135
5136

SC_EDC,
SC_IDS,
SC_SRT,
SC_SRI,
SC_POE,

;
[
H
3

5138
5139
5140
5141
5142

F_1,

SC_CLK,
SC_RSP,
SC_SUR,
SC_PSP,

S144

F_3,

3
3

5147
5148

F_6,
F_7,

:
:
:

5150
S151
Si132

F_9,
F_ 10,
fF_ 1),

:
H
:
3
;

5156
5157
S158
5159
5160

F_1S,
F_16,
F_17,
F_18,
F_19,

H
H

5162
5163

F_ 21,
EBH_30,

5165

EBH_4S,

;

5131

SC_SDS.

5137

S164

S5167

SC_RODv,

EBH_44,

EBMH_47,

:
$

5168
5169

EBH_48,
EBH_49,

3
H
s

S172
S173
S174

df_2.
Jafr_3,
df _4,

37T

‘

;

5170

S175

;

5178

5183

H
3
H
s
;

5179
5180
S181
S184
518S

af
0,

of_ S,

T_GUE,
T_DEF,
T_INF,
T_TER,

T_SPL,

E_UNT,
E_BLK,

1% Dec 1983 10:24:41
15 Dec

198%

10:21:50

VAX-

11 Blies 16 v3 555

SEQ G117y

Page 1.0

SPIDERSUSERS:
[DOUCETTE FALCONICNRIAR BI 1 7 %4

D10
RD/RX EXERCISER

Dec - 1983

10:24:41

VAX-11

201.2

DECLARATIONS

15-Dec-198%

10:21:50

SPIDERSUSERS:
[DOUCETTE .FALCOMICNRQGAA . BLL1 (24

:
H
:
3
H
3
H
;

5186
5187
5188
5189
5190
5191
5192
5193

E_DEvV,
E_ZER,
M_ASC,
M_BIN,
M_TER,
M_COD,
M_DAT,
M UR ,

5195

M_UP,

:
:

5197
5198

TR_ERR : vector (23],
RORX_ERR : vector (7).

SZN

EX_W.

S194

Blies-16

M_URP,

5199

EX_WRD,

;
;
;
;
;

5201
5202
5203
5204
5205

;

5208

S211

:
;
:

5213
S214
5215

TBL_OFL : vector [9) initiel (SC_UNK, SC_VOL,
SC_IOP, NMUALL, SC_DUP, ML, NALL,
NULL, SC_DIS).
TBL_MFE : vector (11) initiel (SC_FER, NMAL, SC_ISH, SC_DST, SC_EC9, SC_S76,

;
:
;

5218
5219
5220

TBL_DAT : vector [16) initiel (SC_FE2, NMAL, SC_IS2, SC_DS2, SC_EC9, NULL, NULL,
SC_ECD, SC_EC1, SC_EC2, SC_ECS,
EC4, SC_ECS, SC_ECH, SC_EC7, SC_EC8),
TBL_HST : vector [S) initial (ML, SC_ODA, SC_ODB, SC_NXM, SC_PAR),

:
:
3

:
;
:

;

SPACEA,
CRLF,
DASH,
ASTERISK,
SWP_FLAGS : word,

5206
5209
S210

5216
5217
5221

5222
5223

LSHIMEN,

LSUNIT;
own

TBL_SUC : vector [17) initial (MAL, SC_SDI, SC_CON, NULL, SC_DUP, NULL, NULL,

SC_FCT, SC_ECC, SC_RCT, SC_FW., SC_ECI)
TBL_WPT : vector E” initial (NULL, SC_SWP, SC_HWP),

TBL_CNT : vector [4) initiasl (SC_CTO, SC_SOS, SC_EDC, SC_IDS),

TBL_ DRV : vector [9) initisl (NULL, SC_SRT, SC_SRI, SC_POE, SC_RDY, SC_CLK, SC_RSP,
SC_SUR,

SC_PSP);

v3-555

SEQ 0170
Page 121

NRQAM.

10
NRQAM?

RD/RX EXERCISER

V)01.£

TYPE

15-Dec-1983 10:24:41

AND DESCRIPTION

10:21:50

5224
5225
gggg

EQUALS;

Ssggg

DEVTYP (sasciz'RQDX1');

! NAME OF DEVICE SUPPORTED BY PROGRAM

5230

DESCRIPT (sasciz'RD/RX EXERCISER' 3;

555;3

ssbttl ‘'HARDWARE PARAMETER CODING SECTION'

5233

:
;
:
3
:
:
:

5234
5235
5236
5237
5238
5239
5240

‘TYPE AND DESCRIPTION’

5241
&g

BGNHRD
;

;

S244

GPRMA (MWQl, O, O, so’160000', ®o'177777',

H
:
;
;
:

5246
5247
5248
5249
5250

GPRMD
GPRMD
GPRML
XFERF
GPRML

s
H
;
3
H
H

5261
5262
5263
5264

!
YES,

RD_MAX_LBN,

YES,

1);

GPRML (HWQS,
6, wo’'100000',
XFERF (MWDONE);
GPRML (HWQ9, 6, so’'100000',
$SL (HWDONE);

NO,

1);

NO,

1);

IP ADDRESS

! BR LEVEL
! RDRX DRIVE NUMBER
! UNIT TYPE

1);

XFER (MM2);
sL (HMl);
GPRMD (MMQ6, 8, D, %0o’'177777', sdecimal’'0’', RX_MAX_LBN, YES, 1);
GPRMD (HWQ7, 10, D, #o’'177777', GPSATLO (8), RX_MAX_LBN, YES, 1);

)

5256
5257
5258
5259

1);

GPRMD (MWQ7, 10, D, so’177777', GPSATLO (8), RD_MAX_LBN, YES, 1);

:
3
:
;

5255

YES,

(HWQ3, 4, O, #o'377', #0'0', %o’ 7', YES, 1);
(HWQA, 6, D, #0o'3’', scecimal’'0’, sdecimal’'3’,
(HWQS, 6, %o’'4’, YES, 1);
(MM1);
(HWQ10, 6, %o’'000010', YES, 1);

XFERF (NODV);
GPRML (MWQl1l, 6, so’000020°', YES, 1);
$L (NODU);
GPRMD (HWQ6, 8, D, %0'177777', sdecimal '0’',

5251
5252
5253
5254

;

H
:
;
;

TEST DESCRIPTION

! THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
! THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
! MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
¢ INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
! MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
! WITH THE OPERATOR.
!-

:
3

SEQ 0121

122

SPIDERSUSERS:
(DOUCETTE .FALCONICNRQAA .BL.1 (35

3
:
:
:

wsbttl

15-Dec-1983

VAX-11 Bliss-16 v3-555

! EXER ON CUST DATA AREA
! NO - DONE
! &s WARNING / CONFIRM

run dup exerciser

WRITE TO DBN'S

STARTING LBN

! ENDING LBN

! STARTING LBN
! ENDING LBN

F10
RD/RX EXERCISER

ssbttl

' SOF TWARE PARAMETER CODING SECTION'

INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.

THE

MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS

WITH THE OPERATOR.

§:

S, 4,

SWF_CST,

YES,

1);

CLEAR STATISTICAL TABLES ?

4, SW _FER, YES, 1);

! REWRITE BLOCKS WHEN “FORCED ERROR“” BIT SET?

. SWF_RDM, YES, 1);

! RANDOM SEEK MODE ?

SWF_HOE,

19, 4, SWF_SEQ.

YES,

1);

! HALT ON HARD/SOFT ERRORS WITH 'HOE'

FLAG SET?

IF NO, DO NEXT QUESTION

! FIXED OR RANDOM SEQUENTAIL STEPPING ?

YR
B

~
.

! READ-COMPARES AT CONTROLLER ?
! REMAINING QUESTIONS ONLY APPLY .
: WRITE -COMPARES AT CONTROLLER ?

SW_rMC,

YES,

IF NO,

DO NEXT QUESTION

CHECK WRITES AT HOST BY READING ?

1);

4, SWF_UDP, YES, 1);

USER-DEFINED DATA PATTERN ?
IF NO, DO NEXT QUESTION

"R
%

DP_CNT,

YES,

1);

! SELECT PRE-DEFINED DATA PATTERN
! DONE

6, D, #0'177777', O,

8, D, %0'177777', 1, MAX_UDP_CNT, YES, 1);! NO. OF WORDS IN USER DATA PATTERN
14, 0, #0'177777', O, %0'177777', NO, 8); ! PATTERN VALUES

sL (SW7);

iflg\a!agnniz
- e
-

. SWF_CRC, YES, 1);
:
. SWF_CWC, YES, 1);

bud

gg
§

"
§§ AQAQQA
ig
)
PBel
~

ENABLE DIAGNOSTIC TRACE
ERROR LIMIT
TRANSFER LIMIT
PERCENT OF RD OPERATIONS
NUMBER OF DBN'S WRITTEN AT CONE TIME

B
SR

16, 4, SWF _TRC, YES, 1);
» D, %0'177777', O, 65535, YES, 1);
» D, %0'177777', 0, 99, YES, 1);
7. 10, D, #o'177777', 0, 100, YES, 1);
12, D, #0'177777*, 0, 144, YES, 1);

[alalalel

B
S
B
B
S

SEQ 0Olze
VAX-11 Blies-16 v3-555
Page 124
SPIDERSUSERS: [DOUCETTE ,FALCONJCNRQAA .BL1 (37

THE SCF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

5276
5277
5278
5279

10:24:41
10:21:50

5267
5268
5269
5270
5271
s272
5273
5274

W
e
B
S5
B
88
B5
S5
S5
B8
S5
S5
SE
B0
BE
B8
B8
B
Be
B8
S
S
SR
S5
Be
B
RS
B
W OB

15-Dec-1983
15-Dec-1983

SOF TWARE PARAMETER CODING SECTION

NRQAM2
vol.c

G1O

RD/RX EXERCISER

NRQAM?2
vol.e

15 -Dec-1983 10:24:41

REPORT CODING SECTION

SEQ 0123

Pege 125

SPIDERSUSERS:[DOUCETTE .FALCONICNRQAA.BL1

'REPORT CODING SECTION’

ssbttl

15-Dec-1983 10:21:50

VAX-11 Bliss-16 V3-555

THE REPORT CODING SECTION CONTAINS THE
“PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS,

S5 S

!
!

BGNRPT;
(RPT1);
(RPT2);
(RPT3);
(RPT4);
(RPTS);
(RPT6);

PRINTS MSCP DATA

Be S5

PRINTS
PRINTS
PRINTS
PRINTS
PRINTS
PRINTS

incr CTLR from O to MAX_CTLR

SEY CPAR (.CTLRY:

1 do

incr DISK from (O + OF_UN) to (3 o UNIT_SIZE

+ OF _UN) by UNIT_SIZE do

SET.UPAR (.DISK);

if (.CST_ADDR

(.CST_ADDR

[.DISK, D_TYPE] eql RX_50) and

[.DISK, D_PRES) eql PRESENT)
.LSLUN,

.CST_ADDR ([.DISK, D_DISK_NUM]);

PRINTS (RPT7,

if (.CST_ADDR [.DISK, D_TYPE] eql RD_S1) and

(.CST_ADDR [.DISK, D_PRES] eql PRESENT)
.LSLUN,

.CST_ADDR [.DISK, D_DISK_NUM]);

PRINTS (RPTS,

:flms (RPT9

.T_ADDR {TOT_READS_MI]), .T_ADOR [TOT_READS_LO),

.T_ADDR [MTOT_BYT_RED], .T_ADDR (TOT_BYT_RED_MI), .T_ADDR [TOT_BYT_RED_LO));

¥v

PRINTS (RPT9

A6
B
BE

onds' %

BE BE
A
RS B
R
R
SR
WA

-t
-

.T_ADDR

S5 S5

if .CST_ADDR [.DISK, D_PRES) eal PRESENT
then
.

[TOT_WRITES_HI),

.T_ADDR [TOT_WRITES_LO),

mwmof_on_fln. .T_ADDR [TOT_BYT_WRT_HI], .T_ADDR [TOT_BYT_WRT_LO1);

ADDR [ERR_MRD_SEK), .T_ADDR [ERR_MRD_DAT), .T_ADDR [ERR_HRD_DRV), .T_ADDR [ERR_HRD _MST],
ADDR [ERR_SFT_SEK],

.T_ADDR [ERR_SFT_DAT],

.T_ADOR [ERR_SFT_DRV],

end;

if .CST
then

[.CTLR,

STATE) eql PRESENT

PR "ITS (RPT11);
::‘I'NTS (RPT12,
H

.C_ERR_TBL [.CTLR, C_ERR_MRD],

.C_ERR_TBL [.CTLR, C_ERR_SFT));

.T_ADDR [ERR_SFT_HST]);

(24

H10
NRQAM?

RD/RX EXERCISER
REPORT CODING SECTION

vol.¢e

5370
5371
5372
5373
5374
5375
5376
5377
5378
5379
5380
5381
5382
5383
5384
5385

5387
5388
5389
5390
5391
5392
5393
5394
5395

5396

15-Dec-1983 10:24:41
15 -Dec-1983 10:21:50

.end;

E?nto(crlf)s
m

INTS(RPT13); !t

INCR CTLR FROM O TO MAX_CTLR-1 DO
BEGIN
SET_CPAR(.CTLR);
INCR DISK FROM (O+OF UN) TO (3«UNIT_SIZE.OF
_UN) BY UNIT_SIZE DO
BEGIN
SET_UPAR( .DISK);
IF .CST_ADOR([.DISK, D_TYPE] EQLU RD_S51 and .CST_ADDR [.DISK, D_PRES] eql PRESENT
THEN

PRINTS (RPT16,

end;

END;

ENDRPT;

CcT
é
LSDVTYP::
.ASCII

121

000003

130

061

000010
13

122
122

104

123

130
130
103
105

104

057

105
111
122

.ASCII
.BLKB
LS$DESC::.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BLKB
LSHRDLN: :

000034

000031

GP#$1::

000040
000042
000044

160000
177777
001031

GP$2::

000052

000774

333333338

122

000024

.T_ADDR [T _DBN_WT],

PRINTS (CRLF);

000000

105

PRINTS DUP DATA

PRINTS(RPT14);
PRINTS(RPT15);

.LSLUN, .CST_ADDR [.DISK, D_DISK_NUM],
.T_ADDR [T_DBN_RD], .T -ADDR [T _BLK_RD],

NRQAM2 RD/RX EXERCISER
/VO1.2/
AMA

$CODEs,

/RQD/
/X17<00>

/RD/<57>
/RX 7/

/EXE/

/RC1/
/SER/
<00>

;;cum-umnwz» -1>
HWQ1
-foooo

1031
HWQ2
4

774

SEQ Olc4
P
126

SPIDE
[DOUCETTE
RSUSE
.FALCONICNRQAA
RS:
.
BL1 (38

PRINTS (CRLF);

.TITLE
. IDEN T
.ENABL

VAX-11 Bliss-16 V3-555

.T_ADDR (T_BLK_WT]);

110
RD/RX EXERCISER

\;01.2

000054
000056
000060

000062
000064
000066

REPORT

002032
000000G
000377

000000
000007
003052

000070
000072
000074

000000G
000003
000000

000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000126
000130

000146
000150
000152
000154

003130
000000G
000004
000000C
003130
000000G
000010
000000C
003130
000000G
000020
001004
004052
000000G
177777
000000
052137
005452
000000G
177777
000004
052137
000001

000164
000166
000170
000172
000174
000176
000200
000202
000204
000206

000000G
177777
000000
001437
005452
000000G
177777
000004
001437
000001

000216
000220
000222
000224
000226
000230

100000
000000C
003120
000000G
100000
001004

000076

000134
000136
000140
000142

000144

000156
000160
000162

000210
000212
000214

000003

000000C
001004
004052

001004
003120
000000G

15-Dec -1983 10:24:41

CODING SECTION

15-Dec-198%

GP$3::

GPs4:; :

GP$S::
$HW1:
GP$6::
$NODU:
GP$7::

$LNODU:
GP$8::

GP$9::

sHM2:
SLHMWL:
GP$10: :

GP$11::

SLHUW2 :
GP$12::
$HIWDONE :
GP$13::

.WORD
.WORD

§ §888888880888895088000080000000008088RRR85555538R:

NRQAM?

$ LHWDONE :

10:21:50

VAX-11 Bliss-16 Vv3-555

3130
C<c<c<SLHW] - $HW1>2400>+4>+40>

3130
HWQ10
10
<< <<$LNODU
- $NODU> 400> +4> +40>
3130
HWQ11

52137
5452

HUQ7

€ CCSLHM2
- $HM2> 44005 +4>
1004
4052
HWG6

-100000
<< << $LLHWDONE- $HWDONE
> 400> +4> + 40>
3120
-100000

1004

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL1

2032
HWQ3

HWQ9

SEQ 0129

127

(38

J10
15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

000052
000000G
177777
000000
177777
001052
000000G
177777
000000
000143
005052
0000006
177777
000000
000144
006052
0000006
177777
000000
000220
002130

GP$14::

002130

GP819::

A
=

L$SFTLN:

TR
R HE 53888

000000C

L$NDHRD:
:

@®

RD/RX EXERCISER
REPORT CODING SECTION

<c<LSNDSFT-L8SFTLN>/2>-1>

GP$15:: >

GP$16::

GP$17:: .

GP$18::

$SM1:
$Su2:
$LSMWL:

GP$20::
sLSM2:

GPs21::
GPSDISP:
GP#22::
$SW3:
$SK4
;
SLSK3:
GP$23:
:
$LSuUA

GPs24::

cc<<fLSH] -$SH1>2400>+4>.40>
C<<HLSH2-8SU2>+400>
+4>

1004
2130
SHE19
1000
1004
2130
SWQ7
4

3
SWML

2130

Ccec<cBLSUHS-8SUHS>2400>
+4> 40>

<<<§LSK4
- $5K4>+400> +4>
1004
2130
SWa10
40

1004
2130

SWa11
100

VAX-11 Bliss-16 v3-555

SEQ 0126
Page 128

SPIDERSUSERS:
[DOUCETTE ,FALCONICNRQAA .BL1 (328

110
RD/RX EXERCISER
REPORT CODING SECTION

15-Dec-1983
15-Dec-1983

10:24:41
10:21:50

000000C

$SWS:

.WORD

<<ccc$LSWS-$SW5>4400>+4>.40>

001004
003052

$LSWS:
GP$25::

.WORD
.WORD

1004
3052

000000C

0000006
177777

$SW6 :

000000

$SM7:

004052

GP$26::

177777
000001
000N20
00.

000L - 26
1777 17
000000
177777
000004
001004

0000006
000000G
0000006
0000006
0000006
0000006
0000006
000000G
000000G
0000006
000000G
0000006
0000006
000000G
0000006
0000006
000000G
0000006
000000G
000000G
0000006
000000G
0000006
000000G
0000006
0000006
0000006
000000G

. WORD
. WORD

. WORD

000025
000000C
001004

.WORD

$LSWE:

GP$27::

SLSW7:

.WORD
.WORD
. WORD

<<<$LSW6-$SW6>+400>+4>

suwai1z
-1

25
<c<$LSWT7-$SWT7>2400>+4>
1004

.WORD
.WORD
. WORD
. WORD
. WORD

4052
SWa13
-1
1
20

. WORD
. WORD
.WORD
. WORD
.WORD

SWG14
-1
0
-1
4

.WORD

LSNDSFT::

PSECT

TBL . SUC:
. WORD
.WORD
. WORD
LHORD
. WORD
WORD
. WORD
LHORD
. WORD
.MORD
LWMORD
LHORD
WORD
LHORD
LHORD
LMORD
. WORD
TBL .OFL : . WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
. WORD
TBL .MFE : .WORD
. WORD

7222

1004

$OuWNS,

SC.SDI
SC.CON
NULL
SC.DuUP
NULL
NULL
NULL
SC.ONL
NULL
MNULL
NULL
ML
NULL
NULL
NULL
SC.SON
SC.UNK
SC.vOL
SC.IOP
NULL
sC.DuP
NULL
NULL
NULL
SC.DIS
SC.FER
NULL

SEQ 0127
VAX-11 Bliss-16 v3-555
Page 129
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA, 8L1 (38

L10

TBL.DRV:

SeRonas BRA33EES

TBL.CNT:

TBL .HST:

mmmmmmmmm

000144
00C146

CST, CST.ADDR, DCT, DCT.ADDR, RDRX.ADDR
IRDRX.ADDR, DUPPKT, TALLY, T.ADDR
C.ERR.TBL, MSCP.PKT, IPKT.ADDR

PKT.USE,

SEQ 012

VAX-11 Blises-16 v3-555
Page
SPIDERSUSERS
: [DOUCETTE .FALCON JCNRQAA B 1

TBL .DAT:

10:24:41
10:21:50

BERRAAE
ARSRERRRE . . .n.‘. - . E 2TXRVGRES

000122

TBL.WPT:

BRBBRKEA ABRARBARRARA

000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116

15-Dec-1983
15-Dec-1983

RD/RX EXERCISER
REPORT CODING SECTION

NRQA!
12
\;01 .

RETPKT, RP._USE, RP.INDX

.ADDR, ELOG.PKT, BUFF_.ADDR, BUFF.OWN

EOP.FLAG, DUP.FLAGS, CCTLR, CDISK
CUOFF, CTLR.CNT, DUR, QIO, FREE.MEM.ADDR

(

M10
NRQAM>
\;Ol.c‘

RD/RX EXERCISER

REPORT

15-Dec-1983 10:24:41

CODING SECTION

15-Dec-1983 10:21:50

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
GLOBL
GLOBL
.GLOBL
GLOBL
.GLOBL
GLOBL
.GLOBL
.GLOBL
GLOBL
.GLOBL
GLOBL
.GLOBL
.GLOBL

VAX-11 Bliss-16 Vv3-555

SEQ_0129

Page 131

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA.BL1

BYTS.PER.QIO, ST.CODE, SB.CODE
STEP, OF .RC, SA.REG, CMD.TIME
NEX, CRN.LOW, CRN.WIGH, P.LINDEX
S.DUPPKT, S.PATTERN, CREDIT.BAL
NEXT.PKT.USE, DU.M5G, DU.RSN, ERR.COD
ELG.FMT, HWQ@1, HWQ@2, HWQ3, HWQ4
HWQS, HWQA6, HWQA7, HWQAB, HWQA9, HWQ10
HWQll, SWQ1l, SWQ2, SWQ4, SWQ7
SWQ9, SWQ10, SWQll, SWGl2, SWA13
SWQ14, SWQ15, SWQl7, SWQA19, SWQ22
SWM1, NULL, MSG.01, MSG.02, MSG.03
RPT1, RPT2, RPT3, RPT4, RPTS, RPT6

RPT7, RPT3, RPT9, RPT10, RPT11
RPT12, RPT13, RPT14, RPT15, RPT16
EGS.01, EGS.02, EGD.10, EGD.11
EGD.12, EGD.13, EGD.14, EGD.15
EGD.16, ECD.17, EGD.18, EGD.20
EGD.21, EGD.22, EGD.23, EGH.30
EM.0, EH.1, EH.2, EH.3, EH.4, EH.5
EH.6, EH.7, EH.8, EH.9, EH.10
EM.12, EH.13, EBS.01, EBD.10, EBD.12
EBD.1S, EBD.14, EBD.18, EBD.19
ELG.00, EX.BDR, EX.BDW, EX.LBR
EX.LBW, EX.RBN, EX.CBR, EX.CBW
XxX13, XX14, XxXX1S, XX16, XX17, XX18
XX19, XX20, XX21, XX22, XX23, Xx24
XX25, XX26,
» XX29, XX30, XXx31
XX32, XX33,
. XX35, XX37, XxX38
XX39, XX40, Xx41, EB.DCT, EB.COMM
EB.PKT, EB.RAL, EB.ADDR, EBNEX1
EB.NEX2, EBNEXS, CER.01, CER.O2
EX.SEQ, EX.CRD, EX.MTN, EX.DGM
EX.RD, EX.WRT, EX.ACC, EX.ONL

.GLOBL EX.SCC, EX.GDS. EX.ESP, EX.ELP
.GLOBL

EX.SDD, EX.RCD, EX.ABP, SC.SDI

.GLOBL

SC.DST, SC.DS2, SC.ECC, SC.ECD

.GLOBL
.GLOBL

SC.EC1, SC.EC2, SC.EC3, SC.EC4
SC.ECS, SC.EC6, SC.EC7, SC.EC8

.GLOBL

SC.O0DB, SC.NXM, SC.PAR, SC.CTO

.GLOBL
.GLOBL
GLOBL
.GLOBL
.GLOBL
.GLOBL
GLOBL
GLOBL
.GLOBL
GLOBL
GLOBL

SC.SRI, SC.POE, SC.RDY, SC.CLK
SC.RSP, SC.SUR, SC.PSP, F.1, F.2
F.3, F.4, F.5, F.6, F.7, F.8, F.9
F.10, F.11, F.12, F.13, F.14, F.15
F.16, F.17, F.18, F.19, F.20, F.21
EBH.30, EIH.::. EBH.45, EBH.46
EBH.47, EBn.48, EBH.49, DF.0, DF.1
DOF.2, DF.3, DF.4, DF.5, DF.6, OF.7
T.QUE, T.DEF, T.INF, T.TER, T.FAT
T.SPL, E.UNT, E.BLK, E.DEV, E.ZER
MTMM.ASC, M.BIN, M.TER, M.COD, M.DAT

(38

N10O
vol.¢

RD/RXx EXERCISER
REPORT CODING SECTION

15-Dec-1983
15-Dec-1983

)

.GLOBL
.GLOBL
.GLOBL
.GLOBL

BIT1S==
BIT14=BIT13==
BIT12==
BIT1l==
BIT10==
B8IT09=BIT08==
BITO7==
BITO6==
BITQS==
BITO4==
BITO3==
BITO2==

BITO1==
BIT00==
BIT9==

BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3=»
BIT2==
BITl==
BITQ==
EF .START==
==
EF .RESTART
EF .CONTINUE
==
EF .NElW==
EF .PUR==
PRIO7==
PRIO6==
PRIOS==
PRIOA ==
PRIO3==
PRIO2==
PRIO1==
PRIOO==

EVL==

LOT==
ADRs==

IDU==

ISR==

10:24:41
10:21:50

M.UR, M_URP, M.UP, M UL,
RORX.ERR, EX.WRD, EX.OP,

-100000

20000
10000

4000

2000
1000

400

200
100

20
10

2
1
1000
400
200

100

SEQ 01%0
Page 132

SPIDERSUSERS: [DOUCETTE.FALCON JCNRQAA , BLl

CNTR.E RR
SPACE4

CRLF, DASH, ASTERISK, SWP.FLAGS
LSHIMEM, LSLUN, LSUNIT

40000

VAX-11 Bliss-16 v3-555

(38

b\"l 4

RO Ax EXERCISER

“ Dec

REPOR” CODING SECTION

Dec

19343 10:c4:4)
198%

10:21:50

VAX

Bl es 16

¢v3.55S

SEQ 61 7]
T
e

SPIDERSUSERS: (DOUCETTE © ucomcmau.m

152

l".-

LOE=~

Ok ==

-100000

LSHAR-D
LSSOF Te=

LRPT:

LSHRDLN.2
LSSFTLN.2

LSBTTL
.PSECT

LRPT REPORT CODING SECTVION

JSR

R1,$SAVE3
ORPT1, -(SP)

000001

sCODES,

e1,-(SP)
SP.RO
16

9P,

ORPT2,(SP)

000001

9..0

532%

000001

i SP,e
5326

000001

P,e
5827

000001

5328

i
18:

24:

177774
0000006

0000006
000003

338an30ck 2335233353

NRGAM,

(RO),(SP)

177774,(SP)

MRPT7,-(SP)
®3,-(SP)

SP.RO
16

SP,»

s CTLR
;

CTLR,»

5330
5382

i DISK.‘

o,DISK

5334
5336

;s DISK,»

5338

5339
5341

{
RD/Rx EXERCISER

063700
132710

000000G
000004

032710
001415
111016
042716
013746
012746

040000

001420

3s:

012746
010600

104416
013700

016016
016046
016045
016046
016046
012746

012746
010600
104416
013700
005016
116016

116016
005046
116016

005046
116016

116016
116016
005046
116016
116016

06, 5P
R1,RO

8IT8
BEQ

ADD

8IC

177774

012746
010600
104416

062706
010100
063700
032710
001506
013700
016016
016046
016046
016046
016046
012746

MOV

age
3332
3333332338°828
35~
8C280aCacacanacats % 3333333333

000006

CODING SECTION

TRAP

CST.ADDR,RO

SEQ

VAX-11 Bliss-16 v3 955
Fage 134
SPIDERSU
[DOUCETTE FALCONJCNR
SERS
IAA :
B 1 « %A

2343

$344

53446

04 ,(RO)

040000, (RO)
43

(RO),(SP)
0177774,(5SP)

LSLUN, -(SP)

ORPTS, -(SP)
03, -(SP)
SP,RO

H Spo.
H

5348

5353

H Spa.
H

062706
010100

15 Dec 1933 10:24:41
15 Dec-1983 10:21:50

REPORT

H
-(
66(RO),(SP)
-(SP)
65(R0),(SP)
-(SP)
64(R0O),(SP)
-(SP)
63(RO),(SP)
-(
61(RO),(SP)
-(SP)
60(R0),(SP)

5356

SP-‘

5359

000572
000574
000576

000610

000714
000716
000722
000726
000730
000732
000736
000742
000744

003002
000137
012716
012746
010600
104416
012716
012746
010600
104416
012716
012746
010600
104416
012716
012746
010600
104416

000052
000005
000022
000612’

SP,RO
16
e52,5P
o5,R2
R2,022
64
2
R3,(SP)

S5%:

68:

056, -(SP)

135

(18

;
;s

o,DISK
DISK,s

; CTLR,»

5350
5334

5364

siToZ(RO)

ORPT11,(SP)
e1,-(SP)
.RO
R3,.RC
RO

78:

5367

s CTLR,»

5368

(SP)
C.ERR.TBL+1(RO),(SP)
-(SP)
C.ERR.TBL(RO),(SP)

000552
000554

010600
104416
062706
062702
020227
003002
000137
010316
012746
004737
005726
005760
100026
012716
012746
010600
104416
010300
006300
005016
116016
005046
116016
012746
012746
010600
104416
062706
012716
012746
010600
104416
005726
005203
000243

VAX-11 Bliss-16 v3-555
SPID:
ERSU
(DOUCETTE .FALCON
SERS
JCNRQAA ,

ORPT10, -(SP)
011, -(SP)

000000G
000011

;3333832 5333333348 ii “3 333533383

000534
000540
000542

012746
012746

000502
000506
000512
000514
000516
000522

15 Dec 1983 10:24:41
15-Dec
- 1983 10:21:50

RD/RX EXERCISER
REPORT CODING SECTION

NRQAM?
vol.c

D11

CLviCLC

5366
5371

5331
5330

S375

5376

5377

5378

002746
000750
000752
000756
000762
000764
000770
000772
000774
001000
001004
001006
001012
001014
001020
001024
001030
001034
001040
001042
001046
001052
001056
001062
001064

001066
001072
001076
001102
001104
001106

001110
001112
001116
001122
001124
001126
001132

15-Dec -1983
15-Dec -198%

RD/RX EXERCISER
REPORT CODING SECTION

NRQAM2
\;01 .€

005202
010216
004737
012701
010116

004737
010100
006300

063700
132710
001432
032710
001427
013703
016316
016346
016346
016346
111046
042716
013746
012746
012746
010600

104416
062706
062701
020127
003727
005202

000000V
000003

108:

000000V

JSR
MOV
MOV
JSR
MOV

PC,SET.CPAR
03,R1
R1,(SP)
PC,SET.UPAR
R1,RO

ASL

000000G
000004

ADD
BIT8
BEQ
BIT

040000

BEQ

0000006
000050
000052
000054
000056
177774

000016
000005
000022

118:

004737
104425
000207

11%

MOV
MOV
MOV
MOV
TRAP
ADD
ADD
ce
BLE
INC

LSLUN, -(SP)
ORPT16, -(SP)
@7,-(SP)
SP,.RO
16
016,5P
#5.R1
R1,022
10%
Rz

BLE

000030

OCRLF ,(SP)
e1,.-(SP)

TRAP
ADD

16
#30,5P

RTS

.SBTTL

000462

: Routine Size:
4 words,
; Maximum steck depth per

LSRPT:: JSR
TRAP
Routine Bese:

invocation:

2 words

MOV
MOV

MOV

; CTLR
1 CTLR,»

5379
5381

; »,DISK
; DISK,s

S382
S3ea

; DISK,s

5385

5389

@177774,(SP)

.WORD CLV!CLC

0000006
000001

SEQ 0174
VAX-11 Bliss-16 v3-555
Page 136
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BLL1 (38

CST.ADDR,RO
04,(RO)
118
#40000,(RO)

T.ADDR,R3
SO(R3),(SP)
S2(R3), -(SP)
S4(R3),-(SP)
S6/R3), -(SP)
(RO),-(SP)

; Routine Size:
302 words,
Routine Bese:
$CODES
; Maximum steck depth per invocstion:
34 words

000000
000004
000006

R2,(SP)

MOV
MOV
MOV
MOV
MOV
MOVB
8IC

0000006
0000006
000007

000243

003717
012716
012746
010600
104416
062706
000207

CLR

MOV

10:24:41
10:21:50

SP,.RO

H 90.

: ¢,DISK
3 DISK,«

5382

s CTLR

5379

5394

H 90.

5313

5394

. 0462

LSRPT REPORT CODING SECTION

PC.LRPT
25

RTS

SCODES$

+ 1616

F11
RD/RX EXERCISER

15-Dec-1983 10:24:41
15-Dec -1983 10:21:50

INITIALIZE SECTION

5397
5398
5399

ssbttl

SEQ 0175
VAX-11 Bliss-16 v3-555
Page 137
SPIDERSUSERS: ([DOUCETTE. FALCON JCNRQARA BLI (39

‘' INITIALIZE SECTION'

BGNINIT;

NRQAM?2
vol.¢e

[HWPT_LEN,

word]

field (HWP _FIELDS),

SETPRI (PRIO7);

PRIORITY

if READEF (EF _NEW)
then
in

IS THIS A NEW PASS?

IS THIS A START?

IS THIS A RESTART?

IS THIS A CONTINUE?

ARE WE HERE BECAUSE OF POWER FAIL?

- NO INTERRUPTS ALLOWED DURING INIT

ENTRY _REASON = NEW_PASS;
if (.SWP_FLAGS and SWF _CST) neq SWF _CST
then

else

CLEAR_TABLES = FALSE
CLEAR_TABLES = TRUE;

end;

if READEF (EF_START)
then
in

SET;
ENTRY _REASON = START;
%M_l’&is = TRUE;
H

if READEF
then

(EF_RESTART)

mav_msou = RESTART;
%M_T‘ES =

TRUE;

if READEF (EF _CONTINUE)
then
in

EnTRY_REASON = CONT,
i:‘.'(‘.sw-FLAGS and SWF _CST) neq SWF _CST
else

CLEAR_TABLES = FALSE
CLEAR_TABLES = TRUE;

end;

5410

S5 S5

local
DELAY _MULT : word,
FLAG : byt..
YEW : m'do
HWPT _REF : ref block
CLEAR_TABLES : byte:

if READEF
then

(EF_PuWR)

Gl1
NRQAM.
\;01.“

:
H
’
H

RD/RX EXERCISER
INITIALIZE SECTION

15-Dec-1983 10:24:41
15-Dec -1983 10:21:50

in
ENTRY _REASON = PWR _FAIL;
CLEAR_TABLES = TRUE;

5453
5454
5455
g:gg

PRINTF (MSG_01);

:
;
'
s
'
:

5458
5459
5460
S461
5462
5463

incr COUNT from O to 60 do
begin
DELAY _MULT = 333;
DELAY (.DELAY_MULT);
BREAK ;
end;

! WAIT APPROX. 60 SECONDS

5465

end;

;

;:z

SETVEC (O_TVEC, O_BRK, PRIO7);

5469

3
3
’

5472
5473
S474

!
-

:
F
[

3
3

3
5

:
fl
'
3
3
:
s
:

S464

5466

S470
5471

S475
5476

S477

5481
5482
S483
S404
g::z

:
3

3
’

'
P

H
3

:
3

' BREAK FOR ACT

SET ODT TRAP VECTOR !JSD REV A

MAKE SURE THAT NOT MORE THAN MAX_UNITS HAVE BEEN SPECIFIED.
IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR.

(DIAGNOSTIC IS ABORTED).

SF (1, EGS_01, EMS_01);
DOCLN;
end;
!
!
!
;

THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS EXCEPT NEW_PASS.
ALL RUN-TIME CONTROLLER STATUS TABLES (CSTe) ARE CLEARED TO O, THEN
LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P-TABLES.

5487
5488
333

- WAITING"

if .LSUNIT gtru MAX_UNITS
then

€478
5479
5480

'
3
i

!
!

“POWER DELAY

SEQ

VAX-11 Bliss-16 v3-555
P
SPIDERSUSERS : (DOUCETTE .FALCONICNRDAA

if (.ENTRY_REASON neq NEW_PASS)
thon“..
in

5491

5492

incr COUNT from O to ((MAX_CTLR ¢ CST_LEN ¢ 2) - 2) by 2 do

a:‘s

incr UNIT from O to (.LSUNIT

g:::

5497

5498
5499

gssgg

5504
g&

$S507

5508

(CST

.COUNT) = 0;

1) do

i? GPHARD (.UNIT, HWPT_REF) nege O

then
bo!én
FL

! LOOP THROUGH ALL UNITS

! IF HWP TABLE FOUND

= NOT_FOUND;

incr CTLR from O to (MAX_CTLR -

1) do

! LOOP THROUGH ALL CSTs

if .CST [.CTLR, IP_ADDR) eqls .HWPT_REF [HWP_IP_ADDR])

then

if .CST [.CTLR,

then

.HWPT_REF [HWP_DISK_NUM] & UNIT_SIZE « OF _UN, D_PRES) eql NOT_PRESENT

H11
RD/Rx EXERCISER

SEQ 01%7
VAX-11 Bliss-16 Vv3-555
Page 139
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BLL (29

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

INITIALIZE SECTION

OF _UN;

D_ALL) = .HWPT_REF [HWP_DISK];

IF EMPTY SLOT FOUND

! COPY DISK ADDR AND PROT BIT

D_UNIT] = .UNIT;
D_FATAL) = FALSE;
D_PRES] = PRESENT;
1, D_BEG) = .HWPT_REF [HWP_BEG_TRK];
2. DCEND] = .HWPT_REF [HWP_END_TRK];
3, D_DBN] = 0;
NODUPMEDIA] = NOT(.HWPT_REF [HWP_DUPEX));

.TEMP
.TEMP
.TEMP

_SIZE

.TEMP
.TEMP

e
S5

.TEMP,
.TEMP,
.TEMP,
.TEMP,
.TEMP

& UNIT

3, DUPWRITE] = (.HWPT_REF [HWP_DUPWT]);

D_COUNT]

= 0;

.CTLR,
CsT E.CTLR.
CcsT
.CTLR,
CsT ( .CTLR,
csT ( .CTLR,
cst ( .CTLR,

(HWP _DISK_NUM)

Be 8

{ CTLR,
( .CTLR,
( .CTLR,
E .CTLR,

Cst
CcsT
CsT
CsT
CsT

_HWPT_REF

*t e

begin
TEMP =

NRQAM2
vol.¢e

.TEMP, D_TYPE) eql RX_S0) and
.TEMP + 2, D_END] gtru RX_MAX_LBN)

L .CST [.CTLR,
( .CST [.CTLR,

.TEMP + 2, D_END] = RX_MAX_LBN;

CST [.CTLR,

FLAG = FOUND;

exitloop;

el “

! DUPLICATE UNIT

mfl' (CER_O1, . HWPT_REF (HWP_DISK_NUM], .HWPT_REF [HWP_IP_ADDR]);

end

"DUPLICATE UNIT: XX AT IP: XXXXXX”
CONFIGURATION ERROR
DROP UNIT

DUR [.UNIT) = DU_CONF;
(.UNIT);

FLAG = FOUND;
exitloop;

1f .FLAG eql NOT -FOUND
then

IF NO IP ADDR TMMATCH TO EXISTING CST

begin

incr CTLR from O to (MAX_CTLR -

1) do

if .CST [.CTLR, IP_ADDR] eqla O

! LOOP T+ROUGH EACH CST

then

IF EMPTY "ST FOUND

SR BE

BE B6

BE BE S

S5 S5

end;

CcsT
CcsT
CsT

TEMP

CsT
csT
CsT
CsT
CsT
csT
CsT
csT

= FOUND;
.CTLR, IP_ADDR) =

[ .CTLR

.HWPT_REF

vet-nel):al = HWPT_REF [P vEcr

[ .CTLR, BR
=

HWPT_REF (HP

[LCTLR, .TEMP
[ .CTLR. .TEMP.
[.CTLR,
[ .CTLR,
[ .CTLR,
[ .CTLR,
[.CTLR,
[.CTLR,

!COPY DISK ADDR AND PROT BIT

.TEMP, D_FATAL]) = FAL
.TEMP, D_PRES
.TEMP
.TEMP + 2. DEND) - HUPTIREF (MUPIENG TRK);
.TEMP
= NOT(.HWPT_REF ([HWP_DUPEX]);
.TEMP + 3, NODUPMEDIA]

BEG] = .MWPT_REF ([MWP_BEG_TRK];

! CHECK TO SEE IF PROGRAMMER WANTS TO NOT WRITE TO DBNs.

csT [.CTLR,

.TEMP + 3, DUPWRITE] = (.HWPT_REF [HWP_DUPMWT]);

[11
NRQAM2

RD/RX EXERCISER

15-Dec-1983 10:21:50

INITIALIZE SECTION

:::55:2

CST

WOl1l.¢e

15-Dec-1983 10:24:41

5567
5568
5569

if (.CST [.CTLR,
(.CST [.CTLR,
then

)

gg;o

CST

5572
if

D_COUNT])

.TEMP

+ 2,

.FLAG eql NOT_FOUND
in
PRINTF (CER_02,

5579
5580
5581

IF NO FMPTY CST FOUND

MAX_CTLR);

DUR [.UNIT] = DU_CONF;
DODU (.UNIT);
end;

5583

“MORE

5585

IP ADDRESSES.”

IF NO IP ADDR MATCH IN CST

end;

5587
5588
5589

THAN X DIFFERENT

! CONFIGURATION ERROR
! DROP UNIT

end;

5584

= RX_MAX_LBN;

IF EMPTY CST FOUND

then

5577
5578

= 0;

D_END)

! IF GPHARD RETURNS A HWP TABLE

CONFIGURATON CHECK FOR LEGAL RDRX UNIT MIX BECAUSE WE “AVE DIFFERENT
DRIVES :
THE RDS1, AND RXSO.
(NEEDED?)
! END OF

“NON NEW_PASS” INITIALIZATION

if .ENTRY_REASON eql NEW_PASS
then

begin

5597

incr UNIT from O to (.LSUNIT

5600
5602

incr CTLR from O to (MAX_CTLR - 1) do
ST [.CTLR, U_CNT] = 0;

5598

GPHARD (.UNIT, HMWPT_REF);

1) do

! DUMMY GPHARDs FQ NEW PASS

! REINITIALIZE UNIT COUNT

merorrserfm(ooww)totSoumsxzsoorw)
CST [.CTLR, .OFFSET, D_STAT] = OFFLINE;
+ START E

5607

end;

UNIT_SIZE
do
UNIT AS OFFLINE

5604
5605
5609
5610
S611
5612

3615
L

g{g

g}g

5620

end;
if

_ENTRY_REASON eql START

! NUMBER OF CONFIGURED CONTROLLERS

incr CTLR from O to (MAX_CTLR

é'f‘.'.‘CST (.CTLR,

1) do

IP_ADDR) nega O

CTLR_CNT = _CTLR_CNT + 1;

SEQ 01358

Page 140

SPIDER$USERS: [DOUCETTE.FALCONJCNRQAA 811 (39

.TEMP, D_TYPE] eql RX_S50) and
.TEMP + 2, D_END] gtru RX_MAX_LBN)

5576

[.CTLR,

end;

$575

5595

.TEMP

exitloop;

gg;i

5590
5591
5592
5593
5594

[{.CTLR,

VAX-11 Bliss-16 V3-555

IF CONTROLLER IS PRESENT

! INCREMENT CONTROLLER COUNT

J11
RD/RX EXERCISER
INITIALIZE SECTION

5624

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

SEG 0179

VAX-11 Bliss-16 V3-555
Page 141
SPIDERSUSERS: [DOUCETTE ,FALCONICNRQAA BL]. (29

MEMORY (FREE_MEM_ADDR);

GET START OF FREE MEMORY

end;

' END OF “START* INITIALIZATION

5626

S€50
S5:51

imcr UNITS from O to MAX_UNITS - 1 do
incr COUNT from O to TALLY_CLEAR -

5634
5635

if .CLEAR_TABLES
then

5627
5628

!
!-

CLEAR STATISTICS TABLES

.32

TALLY [.UNITS & TALLY_LEN +«

1 do

.COUNT]

CLEAR CURRENT STATISTICS

IF CLEAR TABLES ON EVERY PASS

= 0;

5636
S637

incr UNITS from O to MAX_UNITS - 1 do
incr COUNT from TALLY_CLEAR to TALLY_LEN - 1 do
TALLY

[.UNITS & TALLY_LEN «

.COUNT]

= 0;

! INITIALIZE TOTALS
H

5640
S641

5642
5643
S644
5645

if .CLEAR_TABLES
then

incr CTLR from 0 to MAX_CTLR - 1 do
in
e
BL [.CTLR, C_ERR_HRD]
= 0;
C_ERR_ TBL [.CTLR, C_ERR_SFT] = 0;
end;

5646

! INITALIZE CONTROLLER ERRORS
H

b &

MISCELLANEOUS INITIALIZATON

INITIALIZE NC.

CRN_LOW = CRN_HIGH = O;

INITIALIZE COMMAND REF NUMBER

5657

SETPRI (PRIOO);

SET PROGRAM PRIORITY TO O

5652

incr CTLR from O to (MAX_CTLR -

5655

ENDINIT;

5653

QIO [.CTLR] = O;

1) do

OF OUTSTANDING QIOS

000000

000004
000010
000014
000016
000022
000024
000026
000034
000040
000042

S5 B4

8¢

NRQAM2
vol.e2

004137

162706
012700
104441
012700
104447
103012
112737
105737
100402
105005

000000G

000020
000340
000035

000005
000000G
000000G

LINIT:

.GLOBL

Ls$DLY

.SBTTL

LINIT INITIALIZE SECTION

SuB
MOV
TRAP
MOV
TRAP
BHIS
MOVB
1ST8
BMI
CLRB

#20,5P
#340,R0
41
@35,R0
47
24
#5,ENTRY . REASON
SWP .FLAGS
14
RS

JSR

R1,$SAVES

5396

5408

5410

i
;

5413
5415

CLEAR.TABLES

5417

K11
RD/RX EXERCISER

15-Dec -1983
15-Dec-1983

INITIALIZE SECTION

000402

000130
000136

112705
012700
104447
103006
104433
112737
112705
012700
104447
103005
112737
112705
012700
104447
103012
112737

105737

100402

28
#1,R5
©40,RO
47
33
33
@1 ,ENTRY REASON
©1,RS
@37,RO
47
a4t
@2 ,ENTRY .REASON
01,R5
@36,R0
47
64
@3 ,ENTRY ,REASON

000001
000040

000001
000001
000037

000002
000001
000036

3s:

4%
:

000003
000000G

SWP .FLAGS
St
RS

105005
112705
012700
104447
103036
112737
112705

012746
012746
010600
104417
012702
012703
010301
001411
013700
001404

000001
000034

64
@1,R5
@34 ,RO
47

Ss:
6%:

124

000004
0000006
000001
0000006
000001
000075
000515
0000006

000022

001374
005301
000766
104422

012746
012746
012746
012746
104437
023727
101405

104454
000001

000340
170000
000140
000003

TRAP
TRAP

H
$

;

»,CLEAR,TABLES

H
H

;

#,CLEAR,TABLES

5415

5419
5423

5425
5427

5428

5431

5434

5435
5438

H
H

S441
5443

;3 CLEAR.TABLES

5445

;

S447

H
H

¢,CLEAR.TABLES

@515,R3

;

¢,COUNT

12%:

90.

001360

»,CLEAR, TABLES

22(SP)

11%:

;

SP,RO
17

RO
9

10%:

¢« ,CLEAR.TABLES

118
LSDLY, RO
104

SEQ 0140
Page 142

SPIDE
: [DOUCETTE.FALCO
RSUSE
NICNRQAA.BL1
RS (39

;
H

R3,R1

9s:

v3-555

#75,R2

8s:

VAX-11 Bliss-16

04 ,ENTRY ,REASON
01,R5

oMSG.01, -(SP)

78:

10:24:41
10:21:50

¢, DELAY

MULT

; DELAY
. MULT,ssTMP2
;

;

5443
5451

5454

S455
5456

5458

S460

5461

o,.88THPL

SsTMP

$STMPL

SsTMP2

: COUNT

5458

:
:

5453
S467

S475

5478

%3
RD/RX EXERCISER

15-Dec-1983

INITIALIZE SECTION

000000V
104444

15-Dec-1983 10:21:50

123727

000000G 000005

13s:

005060

000000G

15¢:

001002
000137 003530°
005000
062700
020027
003771
013766
005066
000137
016600

14s:

000002
000054

000000G 000024
000020
003504
000020

104442
010066 000022
001002
000137 003500
105066

168:

000016

005004
010416
012746 000056
004737 000000G

17¢:

188:

005726

026076 000000G 000022
001402
000137 002744°
012766

000001

012700
066600
010066

000006
000022
000014

112766

111016
042716

012746
004737

000001

000012
000016

000005
000000G

010003
005726
010416
012746 000027
004737

000000G

032760

040000

010001
005726
060300
006300
001132
010302
062702
010100
060200
006300
012703
060003
017613
016600

000003
000000G

000014
000020

.WORD
TRAP

EMS.01
44

BNE
JMP
CLR

144
374
RO

CMPB

CLR

ADD
cHP
BLE
MOV
CLR
JMP
MOV

TRAP
MOV
BNE
JHP

CLRB

02,R0
RO, 054
154
LSUNIT,24(SP)
20(SP)
353

20(SP),RO

42
RO,22(SP)
174
344
16(SP)

;

i »,COUNT
: COUNT,s

5492

#(COUNT)

5495

: UNIT,s

5497

i &, HUPT
. REF
s FLAG

#1,16(SP)

;

MOV
ADD
MOV

06RO
22(SP),RO
RO, 14(SP)

:
: HWPT_REF
s

MOV
JSR

#5,-(SP)
PC,BL $MUL

BIT

5502
5504

‘

BNE
MOV
ADD
MOV
ADD
ASL
MOV
ADD
MOV
MOV

5500

: CTLR
s CTLR,

#1,12(SP)

JSR

5493

;
: UNIT

MOVB

MOV
ST
ADD
ASL

143

(39

5492

;

; &, HPT REF

MOV

Page

;s COUNT

CST(RO),822(SP)
19
243

(SP)+

SEQ 0141

5483

cHP
BEQ
e

MOV
ST
MOV
MOV

000006G

CST(RO)

v3-555

SPIDERS$USERS:([DOUCETTE.FALCONICNRGAA.BL1

R4
R4,(SP)
956, -(SP)
PC,BLSMUL

TST

19¢:

ENTRY.REASON,
05

VAX-11 Blies-16

CLR
MOV
MOV
JSR

MOVB
8IC

177774

10:24:41

¢.FLAG

.
5527
5507

(RO),(SP)
0177774,(5¢)

RO,R3
(SP)+
R4,(SP)
027,-(SP)

: CTLR,

PC, BLSMUL

RO,R1
(SP)+
R3,RO
RO

#40000,CST+6(RO)

238
R3,R2
o3,R2
R1,RO
R2,RO

: o, TEMP
: o, TEMP
:

5510

1 UNIT,s

5512

i TEMP,o

SS11

oCST,R3

RO,R3
814(5P), (R3)
20(SP),RO

Mi1
RD/RX EXERCISER

NRQAM?Z
g01.2
000612
000614

INITIALIZE SECTION

000300
042700
042713
050013
042713
052713
010100
060200
006300
016646
062716
013660
010100

006300
012766

000714
000716

000744
000746
000756
000762
000766
000772
000776
001000
001004
001006
001010
001012
001016
001022
001024
001032
001034
001042
001044
001050
001054
001060
001064
001070
001072

15-Dec-1983
15-Dec -1983

016600
016076
010100

010000
040000

000022
000010
000002G

000010

001401
005216
005116
011646
042710
103002
052710
117616
042710
032726
001402
052710
010100

132713

001042

027627
101436
012776

017616
117646
042716
012746
012746
010600
104417

;
H

TEMP,»

22(SP), -(SP)

;

HWPT _REF ,s

H
i

TEMP,»

HWPT _REF ,s

€10,(SP)

8(SP)+,CST+2(RO)

R1,R0O
R2.RO
RO

9CST+4,10(SP)
RO, 10(SP)
22(SP),RO
12(R0O),810(SP)
R1,RO
R2,RO
RO
#CST+6,R0
(RO)
-(SP)
012.316(59)

000004G 000010
000010
000022
000012
000010

132776

SEQ O14c

9040‘144

SPIDERSUSERS:
[DOUCETTE ,FALCONICNRQAA .BL1 (39

€10000,(R3)
#40000,(R3)
R1,RO

R2,RO
RO

0000066

VAX-11 Bliss-16 V3-555

RO
©170377,R0O
@7400,(R3)
RO, (R3)

170377
007400

006300
062700
105010

10:24:41
10:21:50

5513
5514

TE'P.‘

5515

5516

SS17

5518

21%:

S519

22%:

000016

208:

100000
100000
000016
010000
010000

0000106
000010

001437

000010

000022
000014

177774

254
810(SP), #1437
25
#1437,810(SP)

23%:

25%
822(SP),(SP)
814(SP), -(SP)

TEFP.‘

5522

S523

H
:

5525
5509

;

HWPT _REF ,»

SP,»

0177774 ,(SP)

©CER.01, -(SP)

SP,RO
17

5520

5532

N11
RD/RX EXERCISER

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

INITIALIZE SECTION

000006
000020
000001

ADD

24%:

000016

003500’

20(5P),R0O

TRAP

INC

BGT
JMP
TSTB
BEQ

25
183
16(SP)
264

MOV
JSR

R4, (SP)
PC,
BL $MUL

MOVB

000000G

25%:
26¢%:
27%:

1,DURCRO)

254

.WORD CLV'CLC

JMP
CLR

ST
ST

28%:

&6 ,SP

MOV

BEQ
JMP
MOVB
MOV
MOV
MOV
BIC
BIC
8IS

344
R4

284
328
#1,16(SP)
822(SP),CST(RO)
22(SP),R3
2(R3),R1
©177000,R1
0777,CST+2(RO)
R1.CST+2(RO)

R3,R1
4(R1),CST+4(RO)
#6,RO
R3,RO
RO, 14(SP)

000016
000022

MOV
JSR
ST
MOV
ADD
MOV
MOV
JSR
MOV
ADD
ASL
MOV
ADD
MOV
MOV

05, -(SP)
PC,BL $MUL
(SP)+
RO,R2
#3,.R2
R4.(SP)
027, -(SP)
PC,BL $MUL
RO,R1
R2.RO
RO
oCST,R3
RO,R3
816(SP), (R3)
22(SP),RO

170377
007400

BIC

000003
000027
0000006

0000006

010000
040000

MOVE
8IC

SWAB
8IC
8IS
BIC
BIS

UNIT,»

5534

CTLR

5535
5531
5502

FLAG

5540

CTLR
CTLR,»

5544
5546

HWPT .REF , »
HWPT REF , +

» ,FLAG

5549
5550
5551

HWPT .REF ,»

5552

&, ,+(UNIT)

(SP)+
CST(RO)

MOV
MOVB
MOV
ADD
MOV
177774
000005
000000G

SEQ 0145
VAX-11 Bliss-16 Vv3-555
145
SPILERS$USERS: [DOUCETTE .FALCON]ICNRQAA 8L1 (39

#(HWPT .REF),»

«(HWPT
_REF ),

HWPT _REF ,»

5553

(RO),(SP)
0177774,(SP)

RO
9170377,R0

», TEMP
«,TEMP

CTLR,»

5554

TEMP ,»

UNIT,»

5555

#7400, (R3)

RO, (R3)
©10000, (R3)
040000, (R3)

5556
5557

Ol
KO /Ax EXERCISER

1% Dec
15 Dec

LT £ge

2
23325838332
VL
w
¢o
333 3 32

e ¢ 33

INITIACIZE SECT

)

812(SP)

001437

000012

000016

000001
000000G
000002

000024

NPT REF e

:
:

o
TEMP,

;

HWPT REF o

o
TEMP,

9959

REF ), e
o(HWPT

:
:

$560

®w

5564

31:

32%:

002772

0000106
000004

000012

o
TEMP,

30%:

A
§v
RO
CST+10(RO)
#4,(R3)

TEMP,»

59565

5567

5568

H
'

$570
5548

s+ FLAG

575

1,(SP)

5578

g
1

| qu.

33¢
812(SP), 01437
338
#1437,812(SP)
334

CLvicLC

@®

010000

5561

333333 238 gRIaLaRE

010000
000020

14+

< 19y

(SP)

16(SP)

100000
100000
000016

Page

SPIDERSUSERS:
'DOUCETTE FALCONICNRQAA 81 L

000016

coM

001506

G Clas

ST+6,R0O

u-flz
°%

000010

0000060

11 Bl es 16 v3 55%

CST2(RO)

0000046 000012
000012
000022
000012
000012

VAX

L(SP)

NAe

000024
000010
0000026

1988 10:c04:4)
1988% 10:21:50

334
278

16(SP)
344

OoCER.02, -(SP)
02,-(SP)

24(SP),RO

s CTLR

i UNIT,»

5544

5579

)

JaN,

RD/RX EXERCISER

MOVB

001640
001646
001650
001652
001656
001664
001666
001672
001700
001702
001706
001710
001712
001714

001716
001722
001724
001726
001730
001732
001734
001740
001744
001750
00175¢
001756
001762
001766
001770
001772
001774

1% Dec
15 Dec

INITIALIZE SECTION

344
35%:

37s:

000022
39s:

002771
010416
012746

40%:

004737

010416
012746
004737
012702
010001

006301
042761
062702
003765

000027

000003

020000

41s:

000022

R4
R4,(SP)
056, -(SP)
PC,BLIMUL
CST+5(R0O)
R4,(SP)
927, -(SP)
PC.BLSMUL
o3,R2
RO,R1
R2,R1

BLE

crP8

005760
001402
005237
062700
000243

005001
010100
060200

CLR
MOV
MOV
JSR
CLRB
MOV
MOV
JSR
MOV
MOV
ADD

R2,R1
38%

B8EQ

444

CST(RO)

CTLR.CNT
INC
ADD
#36,R0
.WORD CLV!CLC

454
;

464
:

BLE

43¢

MOV

RO,FREE .MEM, ADDR

47%:

CLR
CLR
MOV
ADD

o, o(UNIT)
UNIT

UNIT ,»

UNIT
UNIT,
o ,HWPT REF

UNIT
UNIT,
s

CTLR
CTLR,»

CTLR,»
o, 0FFSET
OFFSET,»

* OFFSET
OFFSET,

CTLR

40¢

454
CTLR.CNT
RO

TRAP

VAX 11 Bliss 16 v3 555
Qe
SPIDERSJ
[DOUCETTE . FALCONICNRIA
SERS
L :
L |

ENTRY .REASON, 01

BNE
CLR
CLR
TS7

10:04:41
10:21:50

8IC
#20000,CST(R1)
ADD
o5,R2
cHP
R2,022
414
BLE
cwp
(SP)e,(SP).
R4
INC
.WORD CLV!CLC

000000G

003743
123727
001017
005037

002074
002076
002100

51
(SP)+,(SP)e
20(SP)
20(SP),24(SP)
364
164
ENTRY .REASON, 05
424
LSUNIT,R1
R2
39s
R2,RO
42
RO,22(SP)
R2

ASL

000243

003767
104431
010037

01,DUR(RO)

TRAP
cHe
INC
cie
BGE
JMP
cMPB
BNE
MOV
CLR
BR
MOV
TRAP
MOV
INC

cHP
BLTY

1933
1963%

CTLR

«(CTLR)

NRQAM,
\;Ol e

¢, CTLR

R2
R1
R1,RO
R2,RO

UNITS

COUNT
COUNT
,»
UNITS,»

002102
002104
002110

002112

002116
002120
002124

002130

002132
002136

002140

002146

002150

15 Dec
15-Dec

RD/Rx EXERCISER

NRGAM.
vol.e

INITIALIZE SECTION
006300
005060
005201
020127
003767
062702

020227
003761

032705
001421
005002
012701
010100
060200

006300
005060
005201
020127
003767
062702
020227
003760
006005
103011
005000
105060
105060
062700
000243

003770
005000

105060
005200

ASL

000000G

49%:

104441
062706
000207

UNITS,»

01,RS

;

e7.R1

;

ADD

R2,R0O

i UNITS,»

INC
cHe
BLE
ADD
ce
BLE
ROR
8ccC
CLR

R1
R1,033
4G
034 ,R2
R2,0124
48¢
RS
S2s
RO

BLE

464

BEQ
CLR

S0
R2

MOV

R1,RO

MOV

ASL
CLR

0000006

000033
000034
000124
SO0s:
0000006

S1%:

000001G
000002

CLR8

; Routine Size:

;

Maximum steck

C.ERR.TBL+1(RO)
#2,R0

.WORD CLV!CLC

S2s:

000000G

534:

S1s

BLE
CLR

%‘n

QIO(RO)

.WORD CLV!CLC

CLR

CLR
TRAP
ADD

000030

RTS

001626°

4 words

53%
CRN
. HIGH
CRN.LOW
RO
4]
#30,5P

BLE
CLR

0000006
0000006

603 words,
Routine Base:
SCODES
; Maximum stack depth per invocetion:
23 worde
004737
104411
000207

C.ERR.TBL(RO)

CLRB

; Routine Size:

000000
000004
000006

RO
TALLY(RO)

ADD

000243

003773
005037
005037
005000

BIT

484 ;

Routine Bese:

2 words

LSINIT INITIALIZE SECTION

RTS

$CODES$

SEQ Olas
Page 1458

(%7

PC,.LINIT
11

COUNT

5671

¢ ,UNITS

5630

¢,CLEAR,TABLES

5634

COUNT,
s

3 UNITS

5636

; COUNT,»

5638

o, COUNT

5637

CONT
3 COUNT,»

5637

3 ¢,UNITS

S636

s CLEAR.TABLES

5640

s CTLR
; o(CTLR)
s o(CTLR)
s o, CTLR

S642
S644
S645
5642

s CTLR

S652

5655

S657

5396

S6s57

3 UNITS,»

s o(CTLR)
s CTLR

S653
5652

1626

LSBTTL

LSINIT::JSR
TRAP

depth per invocstion:

v3-555

SPIDERSUSERS:
[DOUCE TTE .FALCONICNRQAA
BT

€34 ,R2
R2,0124

ADD
cHP

000007

Blies-16

BLE

000001

VAX-11

TALLY(RO)
R1
R1,06

cMP

000034
000124

10:¢24:41
10:21:50

CLR
INC

000006

1983
1983

4114

Ele
RD/RX EXERCISER

NRQAM?
Vol.¢e

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

AUTODROP SECTION
‘'AUTODROP SECTION'

ssbttl

SEQ 0147

VAX-11 Blies-16 v3-555
Page 150
SPID
: ERSU
[DOUCETTE .FALCONICNRQA
SERS
A .BLL1 (40

THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF
THE "ADR"” FLAG WAS SET.
THE UNIT(S) UNDER TESYT ARE CHECKED TO
SEE IF THEY WILL RESPOND.
THOSE THAT DON'T ARE IMMEDIATELY
DROPPED FROM TESTING.

!
!

5669
5670
5671
5672
5673
5674
5675
5676

000000

BGNAUTO;

tif (.SWP_FLAGS and SWF _TRC) eql SWF_TRC
fthen
PRINTF (DBM3);

return;

000207

LAUTO:

1 word,
Maximum stack depth per

000000
000004
000006

004737
104461
000207

!JSD REV A

ENDAUTO;

;i Routine Size:
;

! ADDED TO PREVENT COMPILATION WARNING

004124

; Routine Size:
4 words,
;i Maximum steck depth per

.SBTTL
RTS

Routine Bese:
SCODES
invocation:
0 words

LSBTTL

LSAUTO: : JSR
TRAP
RTS

Routine Base:
SCODES
invocation:
2 words

LAUTO AUTODROP SECTION
PC
- 4124

LSAUTO AUTODROP SECTION

PC.LAUTO
61
PC

« 4126

S674

F12
NRGAM>

RD/RX EXERCISER

\;01.2
:
:

CLEANUP CODING SECTION

S680
552:3

! THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED
: AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

5683

5687

;

! RETURN ODT TRAP TO DIAGNOSTIC SUPERVISER

ggg

incr CTLR from O to (MAX_CTLR - 1) do

! FOR EACH CONTROLLER

000026

end;

010146
104424
005001
016137
001411
016100

042700

104435

000044

000243

000052

S697

012700

000046
000050

if (RDRX_ADDR = .CST [.CTLR, IP_ADDR]) nega O
CLRVEC (.CST[.CTLR, VEC_ADDR));

000030

00C034
000040

5695

5698
5699

000022

!CLRVEC (O_TVEC);

3
b

000000
000002
000004
000006
000014
000016

‘'CLEANUP CODING SECTION'

5696

010077
062701

WRT_RDRX (RCIP, RC_ALL, ALL_ONES);

.SBTTL
LCLEAN: MOV
TRAP
CLR
1¢:
MOV
BEQ
MOV

000000G 000000G

000002G
177000

BIC

TRAP

177777

MOV

000000G
000056

2%:

000207

000004

104412

000006
;

004136’

! WRITE IP TO STOP DEVICE

4 words,

Routine Bese:

invocation:

2 words

#177000,R0

@-1,R0

BLE
MOV

1s
(SP)+,R1

RTS

.WORD CLV!CLC

:
:
; CTLR
; o(CTLR),»

5676
5684
5690
5692

; (CTLR),+

5695

5696

*,RC.REG

;: RC.REG,
; «,CTLR

5690

5676

S697

+ 4136

.SBTTL

LSCLEAN CLEANUP CODING SECTION

JSR

PC,LCLEAN

RTS

SCODES$

+ 4212

TRAP

Maximum stack depth per

LCLEAN CLEANUP CODING SECTION
R1,-(SP)
24
R1
CST(R1),RDRX.ADDR
2%
CST«2(R1),.RO

RO, SRDRX . ADDR
56 ,R1

LSCLEAN: ;

000207

;i Routine Size:

! RETURN CONTROLLER'S TRAP VECTOR TO SUPERVISOR

MOV
ADD

; Routine Size:
22 words,
Routine Base:
$CODES$
i Maximum stack depth per invocation:
3 words
004737

! IF CONTROLLER EXISTS

ENDCLN;

003757
012601

000000

SEQ 0145
Page
151

SPIDEROUSERS:[DOUCEHE.FALCONICMONK.B.S (41

BGNCLN;

3
3

VAX-11 Bliss-16 V3-555

5684
5685

5692
:

15-Dec -1983 10:21:50

wsbttl

S679

3
:

10:24:41

5677
5678

H
H

15-Dec-1983

Gle
RD/RX EXERCISER

BE Be

SE S5

BE Be S5

NRQAM?
vol.e

15-Dec-1983

DROP UNIT SECTION
5700
5701
5702
5703
5704
5705
5706
5707
5708
5709
5710
5711
5712
5713
5714

5715
5716
5717
5718
5719
5720
5721
5722
5723
5724
5725
5726
5727
5728
5729
5730
5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751
5752
5753
5754
5755

ssbttl

10:24: 41

15-Dec-1983 10:21 :50

SEQ 0149
Page 157
SPIDERS$USERS: [DOUCETTE.F ALCONICNRGARA, 8L1 (42

VAX-11 Bliss-16 Vv3-555

‘'DROP UNIT SECTION'

!
¢

THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES
A DEVICE
TO NO LONGER BE TESTED.

BGNDU;
local
UNIT : word,
PRINT : byte

initiasl (byte (FALSE));

!
!

NUMBER OF UNIT BEING DROPPED
NO PRINTING OF DROP UNIT MESSAGE

UNIT NUMBER APPEARS IN RO UPON ENTRY

1
SEARCH;

begin
register

INPUT = 0;

UNIT =
end;

_INPUT;

! GET UNIT NUMBER
! UMDECLARE REGISTER

1if (.SWP_FLAGS and SWF _TRC) eql SWF_TRC

!then
!
PRINTF (DBMS,

!JSD REV A
1JSD REV A
'JSD REV A

.UNIT);

SEARCH :
begin

! BEGIN SEARCH BLOCK

incr CTLR from O to (MAX_CTLR

incr OFFSET

from (O ¢«

f (.CST [.CTLR,

(.CST [.CTLR,

then

1) do

OF _UN) to (3 & UNIT_SIZE

.OFFSET, D_UNIT]

.OFFSET, D_PRES]

eql

FOR EACH CONTROLLER

OF _UN) oy UNIT_SIZE do

.UNIT) and

eql PRESENT)

FOR EACH UNIT ENTRY

IN CST

IF UNIT MATCHES CST ENTRY

begin

(.CST [.CTLR,

.OFFSET, D_STAT] eql ONLINE) or

(.DUR[.UNIT] eql DU_ONLINE) or

IF UNIT

IS STILL ALIVE

el O {.UNIT) eql DU_PROTECT)

33!&? = TRUE;

! 0.K. TO PRINT MESSAGE

# (.CST [.CTLR, U_CNT) tru 0) and

(.CST [.CTLR, .Grrser snn eql ONLINE)
CST [.CTLR, U_CNT) = .CST [.CTLR, U_CNT]

f (.CST [.CTLR,

"‘.'(‘.CST [.CTLR,

- 1; ! DECREMENT UNIT COUNT

U_CNT) oql 0) and

.OFFSET, D_STAT) eql ONLINE)

EOP_FLAG = TRUE;

DECLARE END OF PASS IF ALL UNITS OFFLINE

H12
RD/RXx EXERCISER

15-Dec-1983 10:24: 41
15-Dec-1983 10:21: 50

DROP UNIT SECTION

NRQAM.?
vol.2

CST [.CTLR,

end;

.OFFSET, D_STAT]

= OFFLINE;

leave SEARCH;

.PRINT or

(.DUR
(.DUR
(.DUR
(.DUR
(.DUR

then

[.UNIT]
[.UNIT)
[.UNIT]
[.UNIT]
[.UNIT)

PRINTF

eql
eql
eql
eql
eql

(DU_MSG,

DU_CONF) or
DU_INIT) or
DU_ONLINE) or
DU_AV) or
DU_PROTECT)
.UNIT);

Page

154

! MARK UNIT OFFLINE
!

IF UNIT WAS STILL ALIVE

EXIT SEARCH BLOCK
IF UNIT FOUND IN CST

IF OK

TO PRINT "ESSAGE

"UNIT XX DROPPED
! REASON

ENDDU;

000002
000002
000027

LDV:

1¢:

000000G
000004
000003
000004

28:

CLRB

MOV
CLR
MOV
MOV

MOV
MOV
MOV
ADD
ASL

CLR

BIT

BEQ
3:

RO,4(SP)
o3,R3
R3,RO
4(SP),RO
RO

oCST,.R4
RO,R4

RO,R2

BEQ

INPUT ,UNIT
CTLR
CTLR,*

5721
5731
5735

..“FSET

;

OFFSET,»

5733
S735

UNIT,»

@177760,R0O

8¢

€40000,(R4)

5736

5740

920000,(R4)

INC
BR

R2
44

cMPB

DUR(R1),011

gzfl

PC,.BLSMUL

cHP

BIT

5699

RO,R1
2(SP)
2(SP), -(SP)
927,-(SP)

R1.R2
(R4),RO
RO

BNE

020000

R1, $SAVES
-(SP), -(SP)

MOV

SWAB
8IC

040000

000000G 000011

LDU DROP UNIT SECTION

MOV
ADD
MOV

177760

000000G 000007

.SBTTL

JSR
cHP

JSR

000000G

000130

SEQ 0150

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA BLI (az

PRINTF (.DU_RSN [.DUR [.UNIT]));
- end;

000000G

000114
000116

v3-555

end;

VAX-11 Bliss-16

5741

2?!(!!1).07

¢(UNIT),»

5742

[12
RD/RX EXERCISER

1%-Dec-1983
15-Dec -1983

DROP UN1IT SECTION
001032
112705
016616
012746
004737
005726

062700
105760
001404

001006

032714
001403
112737
042714

000412

062703
020327
003700

000243

000001
000006
000056
0000006

TST

ADD

TSTB
BEQ

000001

020000
000001
020000
000005
000022

Ss:
68:
78:

8%:

000000G 000013

000000G 000011

(SP)+,(SP)+«
94

BLE
ROR
BLO

cMP8

BEQ

#20000,(R4)

#5,R3

R3,022
24

(SP)+,(SP).
2(SP)

1s
RS
108

108

DUR(R1),
@2
108
DUR(R1),07

CcMPB

DUR(R1),013
108
DUR(R1), 011

BEQ
cMPB
BNE

H
H
:
H

5748
5750
5752
5753

H
H
H

5755
S$757
5738

;s
H

¢, 0FFSET
NFSEY,.

5733

; CTLR

5731

; PRINT

5765

o(UNIT),»

5767

s(UNIT),

5768

;

o(UNIT),»

5769

¢(UNIT),»

5770

DUR(R1),901

cMPB
BEQ
cHMPB
BEQ

S7147

1(RO)
Ss

cHP
BR

cMP
BLE

574%

(SP).

63
@1,EOP.FLAG

ADD

CTLR,»

oCST+4,RO

BEQ
MOVB
BIC

¢ ,PRINT

PC,BLSMUL

R2
1(RO)
64

BIT

SEQ 0191
VAX-11 Bliss-16 Vv3-555
Page 159
SPIDERSU
[DOUCETTE .FALCONICNRQA
SERS
A :
BL.1 (472

.WORD CLV!CLC

000000G 000007

74
#1,RS5
6(SP),(SP)
056, -(SP)

ROR
SBC8
BNE

cHP
INC

000002

000000G 000001

BNE
MOVB
MOV
MOV
JSR

000004G
000001

003661

103424
126127
001420
126127
001414
126127
001410
126127
001404
126127
001024

44
:

10:24:41
10:21:50

108

118

)

J1e
NRQAM2
gOI.E

RD/RX EXERCISER

15-Dec -1983
15-Dec-1983

DROP UNIT SECTION
-

000330
000332
000336
000342
000344
000346
000352

000356
000360
000364
000370
000372
000374
000400
000402

010146

012746
012746
010600
104417
116101
042701
006301
016116
012746
010600
104417
062706
022626
000207

000000G
000002

10%:

000000G

177400

000000G
000001

000010

MOV

MOV
MOV
MOV
TRAP
MOVB
BIC
ASL
MOV
MOV

MOV

TRAP

11%:

ADD
CMP

RTS

$CODES
130 words,
Rout ine Base:
14 words
; Maximum stack depth per invocetion:

Poutine Size:

000000
000004
000006

004737
104453
000207

;i Routine Size:
;

004222

4 words,
Meaximum stack depth per

LS$DV::

.SBTTL
JSR

TRAP
RTS

Routine Base:
$CODE$
invocation:
2 words

10:24:41
10:21:50

VAX-11 Bliss-16 Vv3-S55

SEQ 01%¢
P

156

SPIDEROUSERS:IOOUCEIYE.FALCON]CNROhfi.;E: (42

R1,-(SP)

'-NI'-.

SP,RO
17
DUR(R1),R1
;177400.R1
1
DU.RSN(R1),(SP)

SPJ‘

0('.NIT).‘

®DU.MSG, -(SP)

SP,.RO
17

#10,SP

(SP)+,(SP)+

S7173%

5774

5772
5699

4222

L$DU DROP UNIT SECTION
PC.LDV

53
PC

+ 4626

5775

K12
RD/RX EXERCISER

15 -Dec-1983

ADD UNIT SECTION

5778
5779
5780
5781

ssbttl

5783
5784
5785
5786
5787
5788
5789
5790
5791
5792
5793
5794
5795

5782

10:24:41

15-Dec-1983 10:21:50

VAX-11 Bliss-16 V3-555

‘'ADD UNTIT SECTION'

!
!

THE ACD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
TO THE

TEST CYCLE.

BGNAU;

local
STINDX
ENDIDX

:
:

word,
word;

ister

UNIT = 0;

UNIT NUMBER APPEARS IN RO UPON ENTRY

!
!
!

IF CLEAR STAT.
ZERO OUT
ADDED

.ENDIDX do

UNIT'S

f (.SWP_FLAGS and SWF _CST) eql SWF_CST

B
S5

bo!'i.?
ST
X =
ENDIDX =

5801

incr COUNT from

_UNIT & TALLY_LEN;
.STINDX + TALLY_LEN -

B
B
WSS

5803

.STINDX to

TALLY [.COUNT]

5797
5798
5799

end;

ENDAUV;

= O;

STATISTICS

SEQ

Page

157

SPIDERSUSERS: [DOUCETTE,FALCON JCNRQAA , 8L1 (43

NRQAM?
vol.¢e

TABLES TRUE....

L12
NRQAM.
vol.2

ADD UNIT

004137
000010
000012
000014

105737

100023
010046
012746
004737
010002
062702
010001
005301
000404
010100

006300
005060
005201
020102
003771
022626

SECTION

000000G

LAU:

000000G

; Routine Size:

004737
104452
000207

; Routine Size:
;

BPL
MOV

3
RO, -(SP)

1STB

SWP .FLAGS

JSR

PC,BL $MUL

000033

ADD

033,R2

MOV

DEC
1¢:

000000G

28:

3%:

25 words,

4 words,

LSAU::

Rout ine Base:

invocation:

2 words

34,-(SP)

RO,R2
RO,R1

R1
28

H
’

s$177
5795

UNIT,»

5798

;
;
3
;

STINDX,ENDIDX
¢,ENDIDX
STINDX,COUNT
COUNT

5799

5801

MOV
ASL

R1,RO
RO

i COUNT,»

5802

INC
cMP
BLE
cHP

R1
R1,R2
1$
(SP)+,(SP)+

;s COUNT
3 COUNT,ENDIDX

5801

H
;

5797
5777

CLR

RTS

$CODES
Rout ine Base:
invocation:
& words

004636

Maximum stack depth per

SEQ 0194
VAX-11 Blies-16 Vv3-555
Page 158
SPIDERSUSERS: [DOUCETTE.FALCON JCNRQAA , BLl (4%

LAU ADD UNIT SECTION

R1,$SAVER2

MOV

Maximum stack depth per

000000
000004
000006

LSBTTL

JSR

000034
000000G

000207

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

.SBTTL

JSR

TRAP

TALLY(RO)

- 4636

LSAU ADD UNIT SECTION

PC.LAU
S2

RTS

$CODES

+ 4720

NRQAM2

RD/RX EXERCISER

\;01.2

'l
3
:
H
3

:
H

3
3

3
;

NON-EXISTENT MEMORY

5807

wsbttl

5809
5810
5811
5812

!.
!
!
!

5808

g{:
5815
gig

S818
5819

15-Dec-1983 10:24:41

TRAP HANDLER

‘NON-EXISTENT MEMORY

15-Dec-1983

10:21:50

VAX-11 Bliss-16 v3-555

SEQPO 159

SPIDERSUSERS: [DOUCETTE.FALCON ICNRQAA . BLI (a4

TRAP HANDLER'

THIS TRAP HANDLER IS VECTORED FROM LOCATION 4 FOR ALL UNIBUS TIMEOUT
ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON-EXISTENT
MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET A FLAG FOR THE RDRX
REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER.

BGNSRY (NEX_TRAP);
NEX =

TRUE;

5820

ENDSRV;

000000

012737

000001

000006

000002

000000G

; Routine Size:
4 words,
i Maximum stack depth per

NEX TRAP OCCURRED

.SBTTL

NEX.TRAP NON-EXISTENT MEMORY TRAP HANDLER

MOV

@1 ,NEX

NEX.TRAP:
:

RTI

Routine Base:
$CODE$
invocation:
O words

+ 4730

s
F

5818
S816

N1e
NRQAM?

RD/RX EXERCISER

\;Ol.é

15-Dec-1983 10:24:41

GLOBAL ROUTINES

15-Dec-1983

10:21:50

VAX-11

ssbtt]l

5823

global routine SET_CPAR (CTLR)

H
F

5826
g&az

!
!

THIS ROUTINE SETS UP THE COMMONL
Y -USED CONTROLLER-RELATED DATA ITEMS
FOR THE GIVEN CONTROLLER NUMBER.

:
3

5829
Ss:;g

!
H

INPUTS:

3
3
;
:
:

5832
5833
5834
5835
Ssggg

!
!
!
!
:

IMPLICIT OUTPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
CST_ADDR - ADDRESS OF CONTROLLER'S STATUS TABLE
DCT_ADDR - ADDRESS OF CONTROLLER'S DRIVER TABLE
RDRX_ADDR - ADDRESS OF CONTROLLER'S IP REGISTER

‘

2855

5838

3
3
:

5839
5840
5841

5843

;
3

CTLR

in
CCTLR = .CTLR;
CST_ADDR = CST ¢ (.CTLR & CST_LEN # 2);

! SET CURRENT CONTROLLER NUMBER
! CALCULATE ADDRESS OF CONTROLLER’S CST

RORX_ADDR = .CST_ADDR [IP_M]:

! GET CONTROLLER'S DEVICE ADDRESS

end;

016601

.SBTTL
SET.CPAR:
:
000004

R1,CCTLR
R1,-(SP)
956, -(SP)
PC,BLSMUL
oCST,RO
RO,CST.ADDR
R1,(SP)
022, -(SP)

010137
010146
012746
004737
062700
010037
010116
012746

000056
000000G
0000006
000000G
000022

MOV
MOV
MOV
JSR
ADD
MOV
MOV
MOV

000046

762700

000000G

ADD

004737

000000G

SET.CPAR GLOBAL ROUTINES

R1,-(SP)

MOV

000000G

! CALCULATE ADDRESS OF CONTROLLER’S DCT

MOV

000006
000012
000014
000020
000024
000030
000034
000036
000042

4(SP),R1

8CST.ADDR,RORX . ADDR

(SP)+,R1

5843
5839
5823

PC,BL $MUL

#DCT,RO

MOV

RO,DCT. ADOR

000064

062706

000006

ADD

06,5P

RTS

S$CODES$

+ 4740

000070

000072

012601

; Routine Size:
i

MOV

000207

30 words,

Maximum steack depth per

Routine Bese:

invocetion:

5 words

5823

5842

JSR

MOV

CTLR,»

000000G

000000G 000000G

;

5841

010037
017737

000052

000056

160

- CONTROLLER NUMBER

5844

000002

)

novalue =

DCT_ADDR = DCT + (.CTLR & DCT_LEN » 2);

010146

SEQ 0156

'GLOBAL ROUTINES’

5842

000000

v3-555

SPIDERSUSERS : [DOUCETTE ,FALCONJCNRQAA ;l?.i as

gggé

Bliss-16

RO /Ax EXERCISER
GLOBA. ROUTIMES

%
% Dec
1% Dec

globel routine SET_UPAR (DFFSET)

194%
1988

10:04:4)
10:21:50

vArx 11 Bl ss 16 ¢3-55%
"
g
SPIDERSUSE
(DOUCE
RS:
TTE .» ALCON JCNRGAA 8, )

: novelue -

THIS ROUTINE SETS '»

THE COMMONLY USED UNIT -RELATED C

FOR

THE CURRENT CONTROLLER AND GIVEN CSY OFFSET.

INUTS:

OFFSEY

WORD OFFSET INTO CURRENT CONTROLLER'
DESCRIBES A UNIT

aICw

IMPLICIT INPUTS:
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'
S CST

IMPLICIT OUTPUTS:
CUOFF - CURRENT UNIT
'S CST OFFSET
COISK - CURRENT DISK ADDRESS (RD/Rx DISK NUMBER)
LOLUN - CURRENT UNIT NUMBER (DRS UNIT NUMBER)
T_ADDR - ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)
N

i3 SR g

N AN,
vOl ..

Ewr * ,OFFSET;
COISK =

,CST_ADDR [.OFFSET, D_DISK _NUM];

LOLUN = .CST_ADDR [.OFFSET, D_UNIT];
T_ADDR = TALLY

end;

+ (.LSLUN o TALLY_LEN ¢ 2);

.SBTTL
SET.UPAR::

000004 000000G
000004
0000006
0000006
177774

000072
000074
000076

022626
012601
000207

177760
000000G
000070
0000006
000000G
000000G

000000G

MOV
MOV
MOV
ASL
ADD
MOVE
BIC
MOV
SWAB
BIC
MOV
MOV
MOV
JSR
ADD
MOV
o
MOV
RTS

i Routine Size:
32 words,
Routine Base:
$CODES
i Maximum steck depth per invocation:
4 words
i

S87

SET.UPAR GLOBAL ROUTINES

R1,-(SP)
4(SP),CUOFF
4(SP).RO
RO
CST.ADDR,
RO
(RO),CDISK
0177774,COISK
(RO),R1
Rl
0177760.R1
R1,LSLUN
R1,-(SP)
070, -(SP)
PC,BL SMUL
oTALLY,RO
RO, T.ADDR
(SP)s,(SP).
(SP)+,R1
PC

« S034

OFFSET,»

,o
CUOFF

LSLUN,»

5 .

NRUAM,

RD 'Rx EXERCISER
GLOBA:

ROUTINES

5872

globel rout’~:

5874

LT PKT

(CTLR)

1983
1983

€G G154

10:04:41
10:21:50

VAX-11 Bliss 16 v3-555
Page 167
SPIDE
[ DOUCE
RSUSE
TTE . F ALCONICNRIAL
RS:
51 1 (47

5875

THIS ROUTINE SEARCHES THE MSCP PACKET POOL ALLOCATION TABLE

S
BE B
S5
B0
B

begin

5886

locel

CTLR

- CONTROLLER NUMBER REQUESTING ALLOCATION

RING_ADDR : word,

5890

NEXT_PACKET : byte;

5889

PACKET_OWNED : byte,

5892

NEXT _PACKET = _NEXT_PKT_USE;

! NEXT PACKET TO TRY

5894

incr CG.NY from O to (PKT_CNT - 1) do

! FOR EACH ENTRY IN ALLOCATION TABLE

5896

PACKET

_OWNED = FALSE;

5898

5899

5901

5903
5904
5906
5907

5908

if .PKT_USE [.NEXT_PACKET) lss O

then

R
SR
SR
B

! FIRST RESPONSE PACKET'S ADDRESS

incr I from 1 to (RRING_LEN « CRING_LEN) do ! FOR EACH PACKET ADORESS
begin
if (..RING_ADDR egles .MSCP_PKT [ .NEXT_PACKET, PKT_LO)) and
C(CC.RING_ADDR + 2) and ED_OWN) eql ED_OWN)

then

ba'iés
P
T_OMNED =
exitloop;

5910
$911
5912
5913
5914

end
else
RING_ADDR =

5916

end;

!
!

TRUE;

.RING_ADDR + 4;

CHECK ADDRESS AND OWNERSHIP
PACKET OWNED BY CONTROLLER

! ADDRESS OF NEXT PACKET IN RING

5918
5919

if not
then

.PACKET_OWNED

IF NOT ALREADY USED

5921

PK :use [ .NEXT _PACKET) = .CTLR; ! ALLOCATE PACKET TO CONTROLLER

5924

incr J from 2 to (PKT_LEN -

5927

exitloop;

5922

index = ,NEXT_PACKET;

WEORE SA RS

BE B

IF ENTRY INCICATES FREE PACKETY

m-m = .DCT_ADDR (RR_BEG];

S5 B

index : signed word initial (-1),

5888

B0 BE S5

5884
5887

(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:

vOl.¢

5925

MSCP_PKT [ .NEXT_PACKET,

1) do

ZERO OUT PACKETY

.J, O, 16, 0] = 0;
!

DONE

D15
RD/RXx EXERCISER
GLOBAIL ROUTINES

195 Dec 1983
15 Dec - 1983

10:24:41
10:21:50

SEQ 0199
) age
VAX-11 Bliss-16 V3-555
162
SPIDERSUSERS
: [ DOUCE TTE ,F ALCONICNRQAA B(1 (47

end;

NRQAM.
vol.¢

end;

_NEXT_PACKET

TRY

PACKET

IN RING

then

.NEXT_PACKET gequ PKT_CNT

NEXT _PACKET

IF BEYOND ALL PACKETS,

= 0;

START AT

THE

TOP

NEXT _PACKET

£, index

(.PKT_

then

0) end

IF PACKET FOUND

[.index) geq 0)

p PKT [.index, MSGLEN] = SZ_GEN;

end;

PACKET SIZE

MSCP_PKT [.index, CREDITS) = 1;
.NEXT PACKET

ONLY ONLINE AND SCC CHANGE

NEXT PKT_USE »

CREDIT SIZE
NEXT PACKET TO ALLOCATE

CYCLE BACK TO BEGINNING IF AT END

i F.NEXT_PKT_USE geau PKT_CNT
then
NEXT_PKT_USE = 0;

000000G
000006
177777
000000G
000014 000004
000002
000000G
000000G
000004
000104
000000G
000010
000004

000002
000006
000114
000124

077777

100000

000000G

.SBTTL

GET.PKT::
JSR
SuB
HOV
MOVB
MOV
14:
CLRB

R1, $SAVES
06,5P
o-1,R4
NEXT.PKT.USE,RS
014,4(SP)
2(SP)

:
’ «, INDEX
: & NEXT.PACKET
: s ,COUNT
: PACKET
. OMNED

:g.
MOV
MOV
MOV
MOV
JSR
MOV

g’n.d USECR2)
DCT.ADDR,RO
4C(RO),(SP)
R2, -(SP)
0104, -(SP)
PC,BLIMA
010,R3

:
:
:

MOV
ADD
MOV
BIC
cHP

02, -(SP)
6(5P),(SP)
(SP)e+.R1
077777.R1
R1,0-100000

CLR
BISB

28:

GET.PKT GLOBAL ROUTINES

R2
RS,R2

;:(sn.nscr.lm(ao:

:
: NEXT.PACKET,»

: s,I

: RING.ADDR,
»

:
: RING.ADDR,»

000010

return . index;

end;

W OBE

end;

5901
5906

5903
5906
5907

E13%
RD/RX EXERCISER

1%-Dec
15 Dec

GLOBAL. ROUTINES
000001

000006

000004

3%:

000001

000006

000030

000000G

1983
1983

062706

000207

5910

5909

»,PACKET
, OWNED

5918

»,INDEX

S922

000042
000000G

R2,.R4
R2,(SP)
042, -(SP)
PC,BL SMUL

000002

02,R1

6,.J

30(SP),PKT USE(R2)

(SP).

Ss:

RO,R3

R1,R3

(SP)+,(SP).
RS
RS,014
8s

0104, -(59)

000104
000017
000001

J.e

s
3

J
Jeo

#17.MSCP.PKT+10(RO)
g.nsc'.nmxo(ao)

000010G
000010G

000000G
000014

000006

$903

$925

5924
5925

5924

5920

5900

s NEXT_.PACKET
3 NEXT_.PACKET,s

5932
5934

3 NEXT.PACKET
;s COUNT

5936
5894

s INDEX

S940

s o(INDEX)

S941

: INDEX,»

5944

]

5945

5946

3 NEXT.PKT_USE,»

5948

H
H

5950
5943

s872

3 NEXT.PACKET,»

0000006

£914

PC.BLIMUAL

€40, MSCP . PKT +6(R0)

108:
11%:

¢$CODES
; Routine Size:
122 words,
Routine Base:
; Maximum stack depth per invocetion:
13 words
5956

¢,PACKET ,OWNED

;

R3
2
01,6(SP)
68

005366
001263
005704
002434

022626
010400

;

¢,RING.ADDR

105205
120527
103401
105005

120027
103402
105037

SEQ 0140
VAX-11 Blies-16 v3-S55
Page 164
SPIDERSUSERS:
[DOUCETTE . FALCONICNRQAA . BL]1 (47

Ss
(SP)+,(SP).
9

105764
002431
010446
012746
004737
012760
142760
152760
005000
150500
005200
110037

10:24:41
10:21:50

RO,NEXT
.PKT ,USE
RO,#14
108
NEXT ,PKT,USE
(SP)e,(SP)e

R4 ,RO

#6,5P
PC

» 5134

E
NRQAM?
vol.ce

5957
5958
5959
5960

WE OB

5961
5962
5963
5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5984
5985
5986

GLOBAL ROUTINES

15-Dec - 1983 10:21:50

global routine PUT _PKT (index)

novalue

THE MSCP PACKET DESIGNATED By
ROUTINE.

local

RING_ADDR

OWNER

v3-555

SEQ 0161
Page

165

SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAA .BL1 (48

"INDEX" IS RETURNED TO THE POOL BY THIS

word,

RING_ADDR =

.DCT_ADDR [RR_BEG];

incrbsgl_lfl from 1 to (RRING_LEN ¢« CRING_LEN) do

ADDRESS IN FIRST RESPONSE RING

! FOR EACH ADDRESS IN THE RINGS

'i::.'.‘HSCP-PKT [.index, PKT_LO) eqle ..RING_ADDR
in

ma = _RING_ADDR +» 2;
;?:ER =

IF ADDRESS MATCHES

! ADDRESS OF OMNERSHIP WORD

_ . OWNER and (not (ED_OWN)) and (not (ED_FLAG))

;

! GIVE OWNERSHIP TO HOST

:'I‘LGJDOR =

_RING_ADDR + 4;

! LOOK AT NEXT PACKET ADDRESS IN RING

PKT_USE [.index]

end;

-1;

.SBTTL

PUT.PKT GLOBAL ROUTINES

JSR

R1,$SAVEA

5957

14(SP), "1

: INDEX,s

5975

s +,COUNT
: »,RING.ADDR

5972
5975

: ¢,0MNER

5978

MOV
MOV

000104
0000006
000010
0000006

MOV
MOV
JSR
MOV
C.l“l’

; Routine Size:

Bliss-16

word;

000000G
000004

001364
112761
022626
000207

VAX-11

begin

013700

062703
005302

10:24:41

!
'

000000G

042714

;

1% -Dec-1983

004137

016003
016601
010146
012746
004737
012702
026013
001005
012704
060304

000074
000076

RD/RX EXERCISER

PUT.PKT::

000014

MOV

1¢:

000002

MOV

140000
000004
000377

24:
000000G

OCTY.ADDR,RO
4(RO),R3
R1,-(SP)
0104, -(SP)
PC.BLSMUL
#10,R2
g‘:‘CP.PKY(flO).(RB)
#2.R4

ADD
8IC
ADD
DEC
BNE

R3,.R4
#140000,(R4)
04 R3
R2
14

cMP

(SP)+,(SP)»

MOV8
RTS

32 words,
Routine Base:
$CODE$
Maximum stack depth per invocation:
8 words

:
; ¢,RING.ADDR

1+
:
:
s

RING.ADDR, OWNER
¢ ,0WNER
¢,RING.ADDR
COxTM TM

5970

S979
5982
5972

9377, ,PKT ,USE(R1)

5985

5957

+ 5520

S964

G132
RD/RX EXERCISER

NRQAM?.

GLOBAL ROUTINES

S
-

vol.2

15-Dec -1983 10:24:41
15-Dec-1983 10:21:50

5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001

000000

010146

000002
000004
000010
000014
000016
000024
000026
000032
000034
000036

005000
116001
020166
001003
112760
005200
020027
003764
012601
000207

routine PUTA_PKT

(CTLR)

novalue

SEQ Oirg
age 166
SPIDERSUSERS:
[DOUCETTE .FALCONICNRGAA
.BL.1 (479

VAX-11 Bliss-16 v3-555

THIS ROUTINE DEALLOCATES ALL
TO A PARTICULAR CONTROLLER.

INPUTS:

incr COUNT

CTLR - CONTROLLER NUMBER
from O to (PKT_CNT

.PKT_USE [.COUNT) eql

then
PKT_USE

[.COUNT]

18:

000004

000377

000013

000000G

’

1) do

.CTLR

SBTTL

FOR EACH ENTRY

IF PACKET

R1, -(SP)

MOVB
CcHP
BNE
MOV3

PKT.USE(RO),R1
R1,4(SP)
24
@377,PKT.USE(RO)

cHP
BLE
MOV
RTS

;i Routine Size:
16 words,
Routine Bese:
$CODESs
;i Maximum stack depth per invocation:
2 words

IS ALLOCATED TO GIVEN CONTROLLER

PUTA.PKT GLOBAL ROUTINES

MOV

CLR

IN ALLOCATION TABLE

DEALLOCATE IT

-1;

PUTA.PKT:

000000G

MSCP PACKETS WHICH HAVE BEEN ALLOCATED

RO, 013
1s
(SP)+,R1
PC

+ 5620

COUNT
¢(COUNT),»
+,CTLR

s,s(COUNT)

COUNT

; COUNT,»

5987
5997
5999
6001
5997

5987

,_|,7

2§ B

NRQAM,

RD/RXx EXERCISER

v:Ol.E

H
3
3
'
3
'
'
H
$
'

GLOBAL

6002
6003
6004
6005
6006
6007
6008
6009
6010
2{5
6013

15-Dec -1983

ROUTINES

15-Dec-1983

globel routine GET_RETPKT (CTLR)
!

!
!
!
!

10:24:41

10:21:50

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 OUT, AND THE PACKET INDEX IS RETURNED TO
THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE.

!
!
!

INPUTS:

CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION

6014

begin

6016

loceal

’

6019

incr COUNT from O to (RP_CNT - 1) do

'
:
;
i
s

6021
6022
6023
6024
6025

’
f

6027
6026

incr J from O to (RP_LEN - 1) do
! ZERO OUT RETPKT
RETPKT [.COUNT, .J, O, 16, O] = 0;

i
’

6030
6031

exitloop;
end;

’

6033

s
:

6015

3{;

index

initial (-1);

begin
RP_USE [.COUNT) =
index = _COUNT;

6029

6034

signed word

if .RP_USE [.COUNT) lss O
then

6026

6032

return . index;

end;

.CTLR;

ASSUME NONE AVAILABLE

! FOR EACH ENTRY IN TABLE
!

SEQ 0147

Page

167

SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAA .BL 1 (50

VAX-11 Bliss-16 V3-555

IF FREE RETPKT IS FOUND

! ALLOCATE RETURN PACKET TO CONTROLLER

! DONE

! RETURN PACKET INDEX (OR -1) TO CALLER

13
NRGAM.

RD/RXx EXERCISER

\;ox.z

GLOBAL

000000

004137

000000G

000004

012704

177777

000010
000012

000016

000020

005003
105763

000000G

116663

000014

002025

000026

010304

000032
000036
000042

012746
004737
022626

000030

010346

000044
000046

005002
010001

000054

005061

000050
000052

060201
006301

000060
000062
000066
000070

005202
020227
003767
000404

000074

020327

000072

000100
000102
000104

005203

003744
010400
000207

15-Dec-1983 10:24:41

ROUTINES

15 Dec-1983

LSBTTL
GET.RETPKT::

JSR
MOV

1%:

0000006

BGE

MOVB

2%:
000000G

3%:

14(SP),RP
. USE(R3)

030, -(SP)
PC,BL $MUL
(SP)+,(SP).

CLR

000027

R3
RP .USE(R3)

MOV
JSR
cMP

ADD
ASL
INC
CcMP
BLE
BR
INC

cMP

BLE
MOV

RYS

i Routine Size:
35 words,
Routine Base:
$CODES$
i Meximum stack depth per invocation:
8 words

168

SPIDERSUSERS: [DOUCETTE .FALCON JCNRQAA ;fi (S0

R1,$SAVEA4
o-1,R4

R3,R4

CLR
MOV

SEQ G144

GET.RETPKT GLOBAL ROUTINES

MOV

000030
0000006

000003

CLR
TST8

10:21:50

VAX-11 Bliss-16 Vv3-55S5

R3,-(SP)

;

¢, INDEX
COUNT
#«(COUNT)

6002
6014
6019
6021

CTLR,«(COUNT)

6024

COUNT,

6028

COUNT, INDE X

R2
RO,R1

5027
6028

R2,R1
R1

RETPKT(R1)

R2
R2,027
24
4
R3

R3,03

1
R4 ,RO

+ 5&60

6027

; COUNT

=
3 COUNT,
;

INDEX,s

6023
6019
6014
6002

J13
NRQAM?2

RD/RX EXERCISER

\;01.2

GLOBAi.

H
:
3
:
:

6035
6036
6037
6038
6039

6042

:
:

6040
6041

!
!
!
!-

15-Dec-1983

10:21:50

VAX-11 Bliss-16 V3-555

SEQ 0165

Page 169

SPIDERSUSERS: [DOUCE
T TE .FALCONJCNRQAA, 8L1

(S1

: novalue =

THE RETURN PACKET DESIGNATED BY
ROUTINE
.

“INDEX" IS RETURNED TO THE POOL "8Y THIS

RP_USE [.index] = -1;

016600

000002

000004

112760

000377

000207

ROUTINES

global routine PUT_RETPKT (index)

000000
000012

15-Dec-1983 10:24:41

.SBTTL
PUT.RETPKT::

000000G

PUT.RETPKT GLOBAL ROUTINES

MOV

2(SP),RO

; INDEX,s

6042

RTS

6035

MOVB

: Routine Size:
6 words,
Routine Base:
$CODES$
;i Maximum stack depth per invocation:
O words

+ 5766

113
NRQAM2
vol.e

RD/RX

S
e
8
B
85
B

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

000000

010146

000002
000006
000010
000014
000016

005076
005001
105761
002011
113761

000040
000042
000046
000050
000052
;

;

15-Dec-1983

GLOBAL ROUTINES
6043
6044
6045
6046
6047

000024
000026
000030
000036

EXERCISER

010100
006300
016076
000404

005201
020127
003760
012601
000207

Routine Size:

15-Dec-1983 10:21:50

global routine GET_IO_BUFF
e
5

(ADDR)

.
;&S ROUTINE HANDLES

10:24:41

novalue

VAX-11

Bliss-16

v3-555

SEQ 0164
Page 170

SPIDERSUSERS
: ([DOUCETTE ,FALCONICNRGAA .BL1 (52

THE ALLOCATION OF

AN I/0Q BUFFER FROM

THE BUFFER

:
H

INPUTS:

!
s

IMPLICIT INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER

OUTPUTS:

ADDR

H
H

- ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR

THE ALLOCATED BUFFER'S DESCRIPTOR IS LOADED INTO THE TWO
WORDS AT “ADDR” AND "ADDR + 2", OTHERWISE, A ZERO IS RETURNED
AT

"ADDR"

IF NO BUFFERS ARE

AVAILABLE.

>a8oR
i
= 0;

incr COUNT

from O to (QIO_PER_CTLR & MAX_CTLR

1ss O

IF BUFFER IS FREE

ALLOCATE BUFFER TO CONTROLLER

.BUFF _OWN [.COUNT]

ASSUME FAILURE
-

1) do

FOR EACH ENTRY

IN BUFFER TABLE

then
in

F_OWN [.COUNT)

.ADDR =

.CCTLR;

.BUFF_ADDR [.COUNT];

! RETURN BUFFER DESCRIPTOR

exitloop;

! DONE

end;

! ROUTINE GET_IO_BUFF
.SBTTL
GET.I0.BUFF::

000004

GET.IO.BUFF GLOBAL ROUTINES

MOV

R1,-(SP)

CLR

6043

;3 COUNT
: «(COUNT)

6064
6066

CLR
;(S;E'

84(SP)

R1
gt‘fF.M(fll)

; ADDR

000000G 000000G

MOVB

CCTLR,BUFF ,OMWN(R1)

;

000000G 000004

MOV

BUFF .ADDR(RO),84(SP)

: *,ADDR

cHP

R1,07

i COUNT,»

0000006

000007

1s:

'gLV

2%:
3:

22 words,

Maximum stack depth per

BR
INC
BLE
MOV

RTS

Routine Base:
$CODE$
invocation:
2 words

:3.'0
3
R1
1

(SP)+,R1

+ 6002

¢,s(COUNT)

: COUNT,»

6062

6069

6070

:
i COUNT

6068
6064

6043

L13

—

NRQAM2
vol.e

RD/RX EXERCISER

GLOBAL ROUTINES
6075
6076
6077
6078
6079

6080
6081
6082
6083
6084
6085
6086
6087
6088
6089
6090
6091
6092
6093

000000

010146

000002
000004
000006
000010
000016
000020

005001
010100
006300
026076
001004
112761
000404
005201
020127
003762
012601
000207

000030
000032
000036
000040
000042

15-Dec-1983

10:24:41

15-Dec-1983 10:21:50

global routine PUT_IO_BUFF (ADDR)

VAX-11 Bliss-16

v3-555

SEQ 0147
Page 171

SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BLL1 (53

novalue =

HES

!
H

THIS ROUTINE HANDLES THE DEALLOCATION OF AN I/0 BUFFER,
TO THE BUFFER POOL.
.

H
H
H

INPUTS:

ADDR

- ADDRESS OF THE 2-WORD BUFFER DESCRIPTOR TO BE
DEALLOCATED

incr COUNT from O to (QIO_PER_CTLR & MAX_CTLR
if

.BUFF _ADDR [.COUNT) eqla

then

BUFF

RETURNING IT

_OWN [.COUNT] =

exitloop;

..ADDR

-1;

1) do

FOR EACH ENTRY

IN BUFFER

TABLE

IF THIS IS THE BUFFER'S ENTRY

! DEALLOCATE BUFFER

! DONE

end;

.SBTTL

PUT,.I0.BUFF GLOBAL ROUTINES

CLR
'A?A\!

R1
:%.RO

; COUNT
; COUNT,s

000000G 000004

gt‘FF.M(RO).“(SP)

;

000377

MOVB
BR
INC
cHP

9377 ,BUFF .OMN(R1)
3
R1
R1,07

; #,#(COUNT)
:
;3 COUNT
; COUNT,«

6091
6090
6086
'

|
|

MOV

(SP)+,R1

6075

PUT.I0.BUFF: :
1%:

000007

000000G
2%:
3%:

: Routine Size:
18 words,
Routine Bese:
; Maximum steck depth per invocation:
2 words

BLE

RTS

S$CODES$ + 6056

|
6086
6088

*,ADDR

|
g

M13

RD/RX EXERCISER

NRQAM.
vol.¢c

GLOBAL ROUTINES

15-Dec-1983 10:21:50

S
—

global routine PUTA_BUFF
]

incr COUNT

BUFF _OWN [.COUNT]

i Routine Size:

.CCTLR

0000006

18:

000000G
000377

000000G

24:

-1;

.SBTTL
PUTA BUFF ; :

010146

005200
020027
003764
012601
000207

wo;o 172

SPIDERSUSERS:
[DOUCETTE .FALCON]ICNRQAA .BL1

(=4

from O to (QIO_PER_CTLR & MAX_CTLR

.BUFF _OWN [.COUNT] eql

then

116001
020137
001003
112760

novalue

SEQ 0165

THE CURRENT CONTROLLER (CCTLR).

000002
000004
000010
000014
000016
000024
000026
000032
000034
000036

VAX-11 Bliss-16 V3-555

THIS ROUTINE DEALLOCATES ALL I/0 BUFFERS WHICH HAVE BEEN ALLOCATED TO

000000

15 Dec-1983 10:24:41

1) do

FOR EACH ENTRY

IN BUFFER

TABLE

IF THIS BUFFER IS ALLOCATED TO THE CURRENT CONTROLLER

! DEALLOCATE IT
PUTA.BUFF GLOBAL ROUTINES

MOV
CLR
MOve
%

R1,-(SP)
RO
BUFF .OWN(RO),R1
g}.CCTLR

Fl
3 COUNT
i #(COUNT),»

6094
6101
€103

MOVB
INC

#377,BUFF .OWN(RO)
RO

;s ¢,s(COUNT)
;s COUNT

6105
6101

6094

BLE

MOV
RTS

16 words,
Routine Base:
S$CODES$
Maximum stack depth per invocation:
2 words

(SP)+,.R1

+ 6122

N13
RD/RX EXERCISCR
GLOBAL ROUTINES

———

NRQAM.
Vol.¢c

6106
6107
6108
6109
6110
6111
6112

globsl routine OUT_IODQ =

6114
6115
6116
6117
6118
6119
6120

6113

!
!
!

THIS ROUTINE RETURNS TO THE CALLER THE NEXT RETPKT INDEX TC BE
PROCESSED FROM THE I/0 DONE QUEUE (IODQ@). THE "OUT” POINTER TO THE
QUEVE IS ALSO UPDATED.

INPUTS:

!
!

OUTPUTS:

013700

000000G

000004
000010
000014
000020
000026
000030
000034

116000
042700
005237
023727
103402
005037
000207

000000

Maximum stack

THE INDEX OF THE NEXT RETPKT TO BE PROCESSED.

begin

end;

i Routine Size:

SEQ 0169
age 173
SPIDERS$USERS: ([DOUCETTE .FALCONICNRQAA .BL1 (55

VAX-11 Bliss-16 v3-555

6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133

15-Dec-1983 10:24:41
15-Dec-15.3 10:21:50

locel

index

word;

.I0DQ (.IODQ_OUT]);

GET NEXT RETPKT

i:.'.‘xooo_our gequ IODG_LEN

IF BEYOND END OF QUEUE

SET POINTER TO BEGINNING OF QUEUE

I0DQ@_OUT =

.I0DQ_OUT + 1;

I00Q_OUT

= 0;

return . index;

! RETURN INDEX TO CALLER

.SBTTL
OUT.IO0DQ::

MOVB
B8IC

177400

0000006
000000G 000004
000000G

INDEX

! ADVANCE “OUT"” POINTER

INC
s::

1s:

CLR

RTS

15 words,
Routine Base:
$CODES$
depth per invocation:
O words

OUT.IODQ GLOBAL ROUTINES
100Q.0UT,RO

6125

10DQ.0UT
{200.001.0‘

:
3

6126
6128

6130
6106

I0ODQ(RO),RO
€177400,R0

I0D@.0uT

+ 6162

; +,INDEX
; +,INDEX

)

NRQAM,
vOl..

RD Rx EXERCISER
ULOBA. ROUTINES

s
’
'
'
’
’
'

#1354
6135
61%
6187
6158
61%9
6140
6141

61458

)

’
'

’
;

;
]

5
i
)

6142
6144
6145

6146
6147

if ((.I00Q_IN -

then
else

VAZ 11 Bl s 16 8 55
PLOERS
SERS: (LoJCETTE 8 Al CON )

ONK
b

Fage
:

.4
‘

INDEX

INTO

TeE

170 DONE QUEUE,

AND

.I0DG OUT) or

return

.index;

! LOAD INDEX INTO QUELE

! ADVANCE “IN" POINTER

if .I00Q_IN gequ I0DG_LEN

6151
:{gg

then

6154

end;

013701

000000G

000010
000012

005200
020037

000000G

' CYCLE BACK TO BEGINNING OF

QUEUE

' IF I0DQ IS NOT FULL

R1,-(SP)

MOV

R1,RO

INC
ce
BEQ
MOV

000004
O000000G
0000006
000000G 000004
000000G

1s:

Routine Bese:

i Maximum stack depth per invocetion:

2 words

IN.IODQ GLOBAL ROUTINES

MOV

000003
000000G

27 wordse,

' IF BEYOND END OF QUEUE

I00Q_IN =« O;

.SBTTL
IN.IODQ::

000002

i Routine Size:

10:04:41
10:21:%0

100Q_IN « .T0DQ_IN - 1;

6150

001421
010100
162700
020037
001413
116661
005237
023727
103402
005037
012601
000207

1) eql

baén
I
[.I00Q_IN) =

010146

000016
000020
000022
000026
000032
000034
000042
000046
000054
000056
000062
000064

novelue

1943
143

(.1000_IN - (IODQ LEN - 1) eal .IODG OuT)

:{:g

010100

THIS ROUTINE INSERTS A RETUPN PACKET
UPDATES THE 1000 _IN POINTER.

000000

0000%

1% Dec
15 Dec

glovel routine IN I0DG ( ‘noex)

.
¢
¢
.

SUB
cp
BEQ
MOVE
INC
cp
B8LO
CLR
MOV
RTS

$CODES

100Q. IN,R1

RO
RO, I0DQ.0UT
1
R1,.RO

#3,RO
RO, I0DQ.0UT
1s
4(SP),IODA(R1)
100Q. IN
I00Q.IN, 04
18
100Q. IN
(SP).,R1
PC

. 6220

6134

6142

'
:
:
:
3
:

6141

INDEX,s

6144
6147
6148
6150
6152
€134

Cld
T

RD /KX EXERCISER

NRGAM,
yox.‘

GLOBAIL

ROUTINES

VECTOR FOR EACH ATTACHED UNIT,
SECTION.

THIS DATA

THEN USED By

THE

DROP UNIT

locel
UNIT;
incr N from (0 +»
if

.CST

then

OF _UN) to (3 & UNIT_SIZE

[.CTLR,

.N,

. OF _UN) by UNIT_SIZE do

D_PRES] eql PRESENT

IF UNIT

FOR EACH UNIT

IN CST

IS CONFIGURED

UNIT = _CST [.CTLR, .N, D_UNIT);
DUR [.UNIT) = _REASON;
DODU (.UNIT);

end;

! GET DRS UNIT NUMBER
! SET REASON FOR DROPPING UNIT
! DROP UNIT

end;

.SBTTL
DROP.CTLR::
JSR
MOV
MOV
JSR
MOV
MOV

000014
000027
000000G
000003

040000

000000G

177760
000016
000005
000022

24:

R1,$SAVE3
14(SP), -(SP)
027,-715P)
PC,.BLSMUL

RO.R3
3,R2

)

8
:

CTLR,

*,N

R2,RO

: N,

MOV
SWAB

CST(RO),R1
R1

: * ,UNIT
3 UNIT

MOV

R1,.RO

f UNIT,

BIC
MOVe

000000G

DROP.CTLR GLOBAL ROUTINES

ADD

ASL
=é;

000000G

; Routine Size:

: novalue =

begin

0000006

000070
000074
000100
000102
000104

175

(57

THIS ROUTINE DROPS ALL UNITS ASSOCIATED WITH THE CONTROLLER DESIGNATED
BY “CTLR", THE REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR

6173
6174
6175
6176

6177
6178
6179

SEQ 0171

VAX 11 Blies 16 v3 5SS
4]age
SPIDER
: [ DOUCE T SUS
TE . F ALCONCNRQA
ERS
R 81 1

1933 10:c4:41
1983 10:21:50

6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170
6171
6172

15 Dec
15-Dec

global routine DROP _CTLR (CTLR, REASON)
L T

6155
6156

TRAP
ADU
cHe
BLE

cHp

RTS

35 words,
Routine Base:
SCODES$
; Maximum steck depth per invocation:
8 words

RO
::OOOO.CSY(RO)

#177760,R1
16(SP),DUR(R1)

51
o5,R2
R2,022
1

(SP)+,(SP)

« 6306

H s ,UNIT
: REASON, s(UNIT)
3
H

:
'

s ,N

6155
6171

6169

6171

6174
6175
6176
6169

6164
6155

D14
RD/RX EXERCISER

NRQAM?
vol.¢

GLOBAL

me W8

6180
6181
6182
6183
6184

6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196

6197
6198
6199
6200
6201
6202
€203

000000

010146

000002
000006
000010

016601
010146
012746
004737
062700
005010
010116
004737
010116
012746
004737
062706
012601
000207

000020
000026
000030

000036
000042
000046

15-Dec-198% 10:24:41

ROUTINES

15 -Dec -198%

globsl routine DRV _CTLERR (CTLR)

10:21:50

VAX-11 Bliss-16 v3-555

SEQ 0172

Pese 176

SPIDERSUSERS:
[DOUCETTE . FALCONICNRQAA BL 1 (58

novalue =

H
H
H
'
'

THIS ROUTINE IS CALLED BY DRV_TIMCHK AND FATAL _ERROR WHENEVER AN
UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETECTED. ITS PURPOS. ~S TO
CLEAN UP ALL CONTROLLER-RELATED DATA IN THE “DRIVER"” PORTIO¢
THE
PROGRAM. THIS INCLUDES MARKING THE CONTROLLER OFFLINE, CLEARING THE
C-RING COUNT. AND DEALLOCATING MSCP PACKETS DESCRIBED IN THE RESPONSE

]

'
'

INPUTS:

CTLR

| TM

DYING CONTROLLER NUMBER

begin

local
D_ADDR

ref block

[DCT_LEN, word)

field (DCT_FIELDS);

D_ADDR = DCT « (.CTLR # DCT_LEN & 2);
D_ADDR [WORDO) = OFFLINE;
PUTA_PKT (.CTLR);
DROP_CTLR (.CTLR, DU_CFATAL);
end;
.SBTTL
DRV.CTLERR:
:

000004
000022
0000006
0000006

!
!
!
!
!

DRV.CTLERR GLOBAL ROUTINES

MOV

R1,-(SP)

6180

MOV
JSR
ADD

#22,-(SP)
PC,.BLIMUL
®0CT.RO

(RO)

; D.ADDR

6200

R1,(SP)

6202

JSR
ADD

PC,DROP.CTLR
@6,5P

6194

RTS

SCODES

« 6414

MOV
MOV

CLR

4(SP),R1
R1,-(SP)

005620

R1,(SP)
PC,
A.PKTY

000006

MOV

6, -(SP)

ine Size:
23 words,
Routine Base:
s stack depth per invocetion:
S words

CONTROLLER’'S DCT ADDRESS

GET CONTROLLER'S DCT ADDR
MARK DCT OFFLINE AND CLEAR CRING_CNT
RELEASE ALL PACKETS ALLOCATED TO CONTROLLER
DROP ALL UNITS ON THE CONTROLLER
ROUTINE DRV_CTLERR

MOV
JSR

006306
000006

MOV
MOV

(SP)+ ,R1

s CTLR,»

6199

6201

6180

E
RD/RX EXERCISER

15-Dec-1983

GLOBAL ROUTINES

15-Dec 1983

global routine SEND (index)

10:24:41

10:21:50

VAX-11 Bliss-16

v3-555

IF THE CURRENT RORX IS ONLINE AND ITS CRING IS NOT FULL,

ROUTINE

THEN THIS

“SENDS” A COMMAND TO THE RDRX BY LOADING THE PACKET

DESCRIPTOR OF AN MSCP PACKET INTO THE COMMAND RING AND READING THE
DEVICE'S IP REGISTER.
IF THE
CURRENT RORX IN NOT ON_INE, THEN A FAILURE INDICATION IS RETURNED TO
AND NO ACTION IS TAKEN.

THE CALLER,

INDEX

- g%u‘r’ MSCP PACKET CONTAINING THE COMMAND TO

INPUTS:

IMPLICIT INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT

begin

loceal
SLOT_ADDR,
:

word;

TEMP

if (C.DCT_ADDR [STAT]) eql ONLINE) and

(.OCT_ADDR [CRING_CNT] lesu CRING_LEN)) or

(C.MSCP_PKT [. mfix. OPCODE] eql 05 SCC) end
(.DCT_ADDR [CRING_CNT) lesu CRING_LEN))

ITS CRING IS NOT FULL

IF DEVICE IS ONLINE AND

! OR IT IS A SET-CTRL-CHAR COMMAND
'

then

if (not ((.MSCP_®KT s.:na.. OPCODE)

( .MSCP_PKT
[.index, OPCODE)
(.MSCP_PKT [.index, OPCODE]
( .MSCP_PKT E.mdu. OPCODE]

( .MSCP_PXT [.index, orcwe eql OP_WRT) OR
(.MSCP_PKT[
.INDEX, OPCODE] EQL OP_5S0D) OR
( .MSCP_PKXT([ . INDEX, orcws EQL OP_RCD) OR

( .MSCP_PKT .m.

(.MSCP_PKT(.INDEX,

B
SR

!¢

EQL OP_ELP) OR

OPCODE) EGL OP_ABP) OR

(.MSCP_PKT[ .INDEX, OPCODE] EQL OP_ESP) ) )

then

SR
B
B
B
BSOS
BE
B
SRR
B
ORR
W

eql OP_ACC) or

eal OP_OML) or
eql OP_RD) or
eql OP_SCC) or

bo!'n‘n
PRINTF (DBM107,
return FAILURE;

.MSCP_PKT [.index, OPCODE));

1JSD REV A

end
else
begin
do

BREAK
until ((.HSCP

! LOOP TILL CREDIT BALANCE POSITIVE
.index, CMD_TYPE] eql IMM_CMD) and

( .CREDIT DAL goqu
1)) or
(.CREDIT _BAL gtru
1)

SEQ

0172

Page

SPIDERS$USERS:[DOUCETTE.F ALCONICNRQAA.BL1

NRGAM.
vol.¢e

177

(5%

|
RD/RX EXERCISER

NRQAM?

W
e
8e
86
S
B
S

MSCP _PKT [.index,

6260
6261
6262

.CRN_LOW eql O

then

CRN_HIGH =

CRN_LO]

.CRN_HIGH

(CRN_LOW =
+«

LCRN_LOW ¢+

MSCP_PKT

6267

SLOT_ADDR =

6269
6270
6271
6272
6273
6274

D0 BREAK
UNTIL (C.C.SLOT_ADDR + 2) and ED_OWN) eql 0);

[.index,

CRN_HI]

1);

VAX-11 Blies-16 v3-555

SEQ 01 74

178

SPIDERSUSERS: [DOUCETTE. FALCON]C'GOA& BLI (S9
!

ASSIGN CMD REF NUM

6263
6264
6265

6266

10:24:
10:21 :50

,CRN_HIGH;

.DCT_ADDR [CR_NEXT];

ADDR OF NEXT COMMAND SLOT

.SLOT_ADDR =

‘%8;
1 - "sstg;ADDR or ED_OWN
SLOT_ iooa .SLOT_ADDR + 2;

3276

6278

6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289

100003
121127
103416
016646
012746
004737

IF BEYOND END OF CRING

.DCT_ADDR [CR_BEG];

CYCLE BACK TO BEGINNING

ocr
Ea
NEXT) = .SLOT_ADOR;

= .DCT_ADDR
ADDR [CRING. CNT)

ING_CNT)

ca:fixr
_BAL = .CREDIT BAL- 1;
TEMP
= .RORX_ADDR (RCIP,

SETPRI (PRI0D);

» 1;

RC au.h

return SUCCESS;

RESTORE CR_NEXT POINTER IN DCT

INCR @ OF COMMANDS IN CRING

DECREMENT CREDIT BALANCE
READ IP TO FORCE PORT TO POLL
LOMWER PRIORITY

end

else

return FAILURE;

IF DEVICE IS NOT ONLINE

! ROUTINE SEND

.SBTTL

0000006

JSR
TST

000000G

000012
000104

126027
001156
121127

000022G 000004

016646

000012

103153

CLEAR INTERRUPT FLAG IN CASE SET

GIVE OWNERSHIP TO CONTROLLER
ADVANCE TO NEXT COMMAND SLOT

]

.DCT_ADDR [CR_END)

1¢:

24%:

329333u83838a2

B
R

.SLOT_ADDR gtra

SLOT_ADDR =

ADDR and (not (ED_FLAG)):

end;

004137
005746
013701
005711

LOAD BUFF DESC (LO) INTO COMMAND SLOT
ADVANCE TO NEXT WORD
LOAD BUFF DESC (HI) INTO COMMAND SLOT

6277

WEORE

[.index, PKT_LO);

SLOT_ADDR = .SLOT_ADDR
23
.SLOT_ADDR = .MSCP_PK [.index, PKT_HI);

6275

6291
6292
6293

.MSCP_PK

SETPRI (PRIO7);

BE BE

15-Dec-1983
15-Dec-1983

GLOBAL ROUTINES

vol.e

SEND GLOBAL ROUTINES

12(SP), -(SP)

6204

6229

6230

INDEX,+

6231

PC,BLSMUL
(SP)+ ,(SP)+
:%CP.PKTQZ’(RO).“
(R1),04

12(SP), -(SP)

6232

INDEX,e

6235

G4
EXERCISER

GLOBAL

ROUTINES

000104

15-Dec - 1983
15-Dec -1983
MOV

104, -(SP)
PC,BL $MUL
RO,R2

CLR
BISB
CHP

RO
MSCP ,.PKT+22(R2),R0O
RO, 20

CcMP
BEQ
CHP
BEQ
cHP
BEQ

RO, 011

JSR
MOV
CMP

BEQ

000130
000134
000136
000142
000144
000150
000152
000156
000160
000164
000166
000172
000174

10:24:41
10:21:50

VAX-11 Blies-16

v3-555

SEQ 01 S

SPIDERS$USERS: [DOUCETTE, rALCONlcmaAA au

179

(59

(SP)+,(SP)+

6236

3¢
RO,041

6237
6238
6239

6240
6241

-y

000000G
000000G 000014G
000000G

100000
000340

100000
000012

000002

6242

6243

6245
6235

000070
005074
000076
000100
000102
000106
000112
000114
000120
000122
000126

RD/RX

§3§E§§§§§RE§ 3337R33R8E0% o} 3379898358

NRGQAM.
vol1.:2

+,SLOT.ADDR
:;100000.2(“1)

¢,+(SLOT.ADDR)

0340 RO

6269
6270

6272

HSC’ PKT(R2),(R1 )e
MSCP. PKT+2(R2), ( R1)
#40000,(R1)
#100000,(R1)+

+,SLOT.ADDR
&,SLOT.ADDR
s,SLOT.ADDR

:%.12“‘0)

SLOT.ADDR,
»

DCT.ADDR,RO

6263
6265
6267

+,SLOT.ADDR

6274

6276
6277
6278
6281

14
RD/RX EXERCISER

GLOBAL

15 -Dec 1983
15-Dec-1983%

ROUTINES

10(RO),R1

016001
010160

105210
005337
017716
005000
104441
012700
000401
005000
005726
000207
;i

Routine

Size:

R1,20(R0O)

(RO)
CREDIT,BAL
SRDRX .ADDR, (SP)

0000006
0000006

RO
41
@1,RO

Rout ine Base:
7 words
invocation:

134 words,

$CODES$

SEQ 0176
P
180
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA
.BL1 (59

VAX-11 Bliss-1€

v3-555

;
3

#,5L0T,ADDR
SLOT.ADDR,
»

6287
6285

;

*,RC.REG

6288

H
3
H

6285
6287

6289

108

H
H

6235
6223

(SP)+
PC

6204

Max imum stack depth per

10:24:41
10:21:50

+ 6472

L14
RD/RX EXERCISER

NRQAM?.
vol.¢2

000000
000000
000002
000010
000012

15-Dec-1983

GLOBAL ROUTINES
6297
6298
6299
6300
6301
6302
6303
6304
6305
6306
6307

globel routine WAIT

15-Dec-1983 10:21:50

VAX-11 Bliss

16 v3-555

SEQ 0177
Page 181

SPIDERSUSERS
: ([DOUCETTE .FALCONICNRGAA .BL1 (£0

: novalue =

H
'
5

THE PURPOSE OF THIS ROUTINE IS TO KILL TIME UNTIL AN RDRX INTERRUPT
RESULTS IN A RETURN PACKET INDEX BEING DEPOSITED INTO THE I/0 DONE
QUEUE (IO0DQ).
do

BREAK

until

WAIT::

000000G 000000G

i Routine Size:
6 words,
i Maximum stack depth per

! BREAK FOR ACT

.IODQ_IN neq .IODQ_OUT;

104422

023737
001773
000207

10:24:41

18:

.SBTTL

WAIT GLOBAL ROUTINES

TRAP

{;NG.IN.IOD0.0UT

6305

RTS

€297

BC'E'O’

Routine Base:
$CODES$
invocation:
2 words

+ 7106

6307

J14

NRQAM?
!01.2

000014

RD/RX EXERCISER

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

ERROR MESSAGE SUBROUTINES
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317
6318
6319
6320
6321
6322
6323
6324

6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343

010146
013701
020127
001023
012746

012746
010500
10 .15
012716
012746

010600

104415
013716
012746
010600
104415
000475

ssbttl

SEQ 0178
VAX-11 Blies-16 V3-555
age 182
SPID
:ERSU
[DOUCETTE . FALCON]ICNRQA
SERS
A .BL 1 (&1

‘'ERROR MESSAGE SUBROUTINES'

routine EMS_SA

novalue

THIS ROUTINE PRINTS (EXTENDED)

THE LOBAL DATUM

THE CONTENTS OF THE SA REGISTER.

“SA_REG” WHICH CONTAINS

if .SA_REG eql %0'177777'
then
.

IF CONTROLLER TIME-OUT

IF GENERIC CONTROLLER ERROR

IF RDRX SPECIFIC CONTROLLER ERROR

TX (CRLF);
PRINTX (ASTERISK);
PRINTX (.CNTR_ERR [01]);
end
else
if (.SA_REG and #0°'003777')
then
:

lequ 22

PRINTX (CRLF);
PRINTX (ASTERISK);
::Sutx (.CNTR_ERR [.SA_REG and %o’'003777'));

else
if ((.SA_REG end #0'003777')
then

- 400)

lequ 6

bo!Sn
PRINTX (CRLF);
PRINTX (ASTERISK);
::ENTX (.RORX_ERR [(.SA_REG and #o’'003777')

aice
*
PRINTX (XxX14,

000000G
177777

.SA_REG);

.SBTTL
EMS.SA: MOV

. MoV
ce
BNE

- 400]);
JUST PRINT CONTENTS OF SA

EMS.SA ERROR MESSAGE SUBROUTINES
R1,-(SP)

SA.REG,R1

R1,9-1
1

6310
6317

000000G
000001

MOV
MOV

OCRLF, -(SP)
o1,-(SP)

0000006

TRAP
MOV

15
@ASTERISK,(SP)

MOV
TRAP
MOV
MOV
MOV

SP,RO
15
CNTR.ERR, (SP)
01,-(SP)
SP,.RO

6322

6319

000001

0000006
000001

MOV

TRAP

6320

e1,-(SP)

6321

<14
RD/RX EXERCISER

ERROR MESSAGE
010100
042700
020027

101030
012746
012746
010600

174000
000026

SUBROUTINES

0000006
000001

000210

000302
000304

cMP

RO, #26

MOV
MOV
MOV

012716
012746
010600

MOV
MOV
MOV

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

MOV

TRAP

gTC

24:

005726
000407
010146
012746
012746
010600
104415
062706
012601
000207

}

6326

OCRLF, -(SP)
01,-(SP)
SP,RO

6329

QASTERISK, (SP)
01,-(SP)
SP,RO

SA.REG,RO

#174000,R0
2t

#174000,R0

: SP,s
6330

SPO‘
6331

MOV

SP.RO

H SP.‘

3
H

6328
6335

6338

MOV
BIC

MOV
MOV
MOV
TRAP
MOV
MOV

MOV

R1,RO
€174000,R0

#620,R0
RO, #6
a4

OCRLF, -(SP)
01,-(SP)
RO
1
OASTERISK,(SP)
01,-(SP)

9.‘

6339

SP.RO

H 90‘

MOV

SA.REG,RO

ASL
MOV
MOV

RO
RORX .ERR-1440(R0),(SP)
o1, -(SP)

TRAP

BIC

MOV

#174000,R0

6340

SP,.RO

H 90‘

(SP)»

H
H
H

SP,.RO

ADD

#6,SP

RTS

:
H

TSY

B8R

MOV
MOV
MOV

R1,-(SP)
#XX14, -(SP)
e2,-(SP)

TRAP

MOV
S¢:

SEQ 0179
VAX-11 Bliss-16 Vv3-555
Page 187
SPIDERSU
[DOUCETTE ,FALCONICNRQA
SERS
A .BLL1
: (61

RO
CNTR.ERR(RO),(SP)

suB
cHe
BHI

000006

10:24:41
10:21:50

ASL
MOV

TRAP

104415

000272
000274
000276

R1,R0O

BIC

TRAP

104415

000174
000176

MOV
BHI

104415

000156
000160

15-Dec-1983
15-Dec
- 1983

99 words,
Routine Base:
$CODE$ + 7122
; Routine Size:
7 words
; Maximum stack depth per invocation:

6337
6335
6343
9-‘

6317
6310

L 14

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES
6344
6345
6346
6347
6348
6349
6350
6351
6352
6353
6354
6355
6356
6357

6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381

routine EMS_SBC

novalue

R
B
S
RS BE
B
R B
SR
SR
S
A
RS
RS
WEORE

6389
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399

SEG 0180
VAX-11 Bliss-16 v3-555
P : 184
SPIDER‘USERS:(DOUCE!TE.FALCON]CNROAA.;E: (62

THIS ROUTINE PRINTS
THE GLOBAL DATUM "SB_CODE” (SUB-CODE) IF
EITHER THE STATUS CODE (ST_CODE) OR THE SUB-CODE IS NON-ZERO. (A
NON-ZERC SUB-CODE ALWAYS HAS SIGNIFICANCE, WHEREAS A ZERO SUB-CODE ONLY
HAS MEANING WITH A NON-ZERO STATUS CODE).
begin
i:.fi.ST_COOE or

.SB_CODE) neq O

! PRINT SUB-CODE ONLY ON ERROR

in
PRINTB (XX16);

SUB-CODE

case .ST_CODE from ST_SUC to ST_DRV of
set

[ST_SUC]:

i:.aSB_CODE lequ 16

! SUCCESS SuB-CODES

PRINTB (.TBL_SUC [.SB_CODE]);

(ST_CMD]:

PRINTB (EX_OP, .SB_CODE / 8);

! INVALID COMMAND

[ST_ABO]:

! COMMAND ABORTED

[ST_OFL]:

é:..;‘sa-cm lequ 8

! UNIT OFFLINE

PRINTB (.78L_OFL [.SB_CODE]);

[ST_AVL]:

! UNIT AVAILABLE

[ST_MFE]:

é:..';S._C(u lequ 10

! MEDIA FORMAT ERROR

PRINTB (.TBL_MFE [.SB_CODE));

[ST_WPT]):

if (.SB_CODE 7 128) lequ 2

! WRITE PROTECTED

(ST_CMP):

! COMPARE ERROR

[ST_DAT]:

if .S8_CODE lequ 15

! DATA ERROR

if .SB_CODE lequ 4

! HOST ACCESS ERROR

i;.aSO-COOE lequ 3

! CONTROLLER ERROR

6383
6384
6385
6386
6387

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

!
!
!
:

SRR

S5 B

NRQAM2
\;Ol o8

[ST_HST):

[ST_CNT):

MNINTO (.TBL_WPT [(.SB_CODE 7 128)1);
MPRINTG (.TBL_DAT [.SB_CODE));:
thRINTB (.TBL_HST (.SB_CODE]);
PRINTB (.TBL_CNT [.SB_CODE]);

[ST_DRV]:

.SB_CODE lequ 8

! DRIVE ERROR

ML14
RD/RX EXERCISER

L
I T
T

NRQAMC
vol.z2

000010
000012
000014

15-Dec-1983 10:24:41

15-Dec-1983 10:21:50

ERROR MESSAGE SUBROUTINES
6400
6401
6402
6403
6404

then

PRINTB

(.TBL_DRV

(EXx_OP,

VAX-11 Bliss-16 V3-555

SEQ 017!
p

185

SPIDER$USERS: [DOUCETTE .FALCONICNRQAA 5?7 (62

(.SB_CODE]);

.SB_CODE);

JUST PRINT SUB-CODE

IF NO MATCH

6405
6406
6407
6408

.SBTTL
EMS.SBC: MOV
BIS

013700
053700
001001

000207
012746
012746
010600
104414
013700
020027
101003
006300
066007
013716

BNE

1¢:

000001

MOV

000CV0G
000013

cHP
BHI
3s:

ASL
ADD
MOV
MOV
MOV
MOV
TRAP

cHP

022626
000435
023727
101165
013700
006300
016016
012746
010600
104414
000565
013716
012746
004737

4s:

@XX16, -(SP)
#1,-(SP)
SP.RO

6358

ST.CODE,RO

6360

H
:

6403

RO, 213
34

RO
P.AAA(RO),PC
SB.CODE,(SP)
SEX.OP, -(SP)
#2,-(SP)
SP,
14

(SP)+,(SP)+

6363

SB.CODE RO

6365

15¢
SB.CODE,(SP)

TRAP
ADD

BR
cMP
BHI
MOV
ASL
MOV

H
H

B8R
MOV

MOV

TBL .SUC(RO),(SP)
o1, -(SP)

000042

€355

MOV
MOV

JSR
MOV
MOV

000010

SB.CODE,RO

SB.CODE, #20
144

MOV
TRAP

S56:

ST.CODE,RO

ce
BHI
'.ISJLV

010016
012746
012746

016016

MOV
MOV
MOV

TRAP

012746
012746
010600
104414

010600
104414
062706
000546
023727
101142
013700
006300

RTS

EMS,SBC ERROR MESSAGE SUBROUTINES

9.“0
14

010, -(SP)

6367

PC.BLSDIV
RO, (SP)
vEX.OP, -(SP)
.NO

14
#6,SP

164
SB8.CODE, 10

164
S$8.CODE,RO
RO
TBL.OFLCRO),(SP)

SP,»

:
:

6360
6371

6373

N14
RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES
@1, -(SP)

012746
010600
104414

023727
101124
013700
016016
012746
010600
104414
000511
013716
012746
004737
005726
020027
101100

15-Dec 1983
15 Dec-1983

TRAP

000000G 000012

8%:

BHI

SEQ 0Olac

VAX-11 Bliss-16 v3-555
Page 186
SPIDE
: [DOUCETTE
RSUSE
.FALCONICNRQAA
RS
.BL1 (62

SP,»

6377

6379

TBL.MFE(RO),(SP)

TRAP

0000006

9¢:
TST

000112’
000001

016016
012746
010600
104414
000451

000120°
000001

00000D0G 000017

10%:

11¢:

016016
012746
010600
104414
000433
023727

SP,RO

154
SB.CODE, (SP)

6381

(SP)+
RO, @2
164
RO

6383

9200, -(SP)
PC,BLS$DIV

TBL.WPT(RO),(SP)

TRAP

023727
101046
013700

SP..

SP,.RO
14
154
017
S8.CODE,
164
SB.CODE,RO
RO
TBL .DAT(RO),(SP)

: SP,s

SP,RO
14
15¢
SB.CODE#4
,
164
$8.CODE ,RO
RO

6387

6389

Spl.

6391

6393

TBL .HST(RO),(SP)

e1,-(SP)

SP,RO

i SP,s

$8.CODE,
¢3

6395

S8.CODE .RO
RO

;

6397

SP,RO
14
154
S8.CODE, #10
16¢
SB.CODE,RO

B SP-.

14
154

12¢:

101030

164

013700

023727
101012
013700
006300

SB.CODE ,RO

016016
012746
010600
104414
000467
023727
101064
013700

016016
012746
010600
104414
000415

SP,RO
14
15¢
SB8.CODE,
#12
164

10:24:41
10:21:50

TBL.CNT(RO),(SP)

TRAP

000000G 000010

134:
14

6399

6401

B1S
HD Ax EXFRCISER

(SP).
(SP).,(SP).

187

6357
6344

~—

Table for EMS.SBC.0044

POPAP
el P e B i

400

254
310
344

ey ey e

S
B
S

434

e ey ey ey e S

154
210

e
e e O D= e
N D>
W= OO0l elee

120

434

24
60

e ()

RO,

SPLITS,

P.AAA;
2%:

SEQ Giat

7430

$CODES
Rout ine Base:
invocetion:
7 woros

v3 555

:
:

164 words,

depth pe~

3 SP-.

16%:

11 Bliss

SPIDERSUSERS
: (DOUCE T TE . F ALCON JCNROAR m (62

15%:

SP,RO

TRAP
157
cre
RTS

VAX

Marimum steck

MOV
MOv

—

TBL .DRV(RO),(SP)
o1, (SP,

MOV

m
la]

; Routine Size:

000202
V00001

v
w

016016
01746
010600
104414
005726
022626
000207

S
INET
SUBROU

1943 10:04:41
1983 10:21:50

ERROR “E SSAGE

1% Dec
15 Dec

6360

NRQAM,

RD/RX EXERCISER

\;01.2

ERROR MESSAGE SUBROUTINES

6409

GLOBAL routine EMSCMD

'
;
:
H
3
3
F

6412
6413
6414
6415
6416
6417
::ig

!
!
!
!
!
!
H

:
:
’

6420
6421
6422

begin

]

3
H

f
H

3
3

6423
zgg

6428
6429

6430

6433

:
f

6436
6437

6439

;
:

3
H

6431
6432

15-Dec -1983%

novalue

10:24:41

VAX-11 Blies-16 v3-555%

10:21:50

SEQ Gi1R4

Page

SPIDERSUSERS:
[DOUCETTE .FALCON)ICNRQAR &1

OWN

THIS ROUTINE PRINTS THE ENTIRE RETURN PACKET INCLUDING OPCODE,
STAUTUS, SUB-STATUS,
MODFIERS OR FLAGS, AND ETC.
THESE FIELDS ARE “TRANSLATED” INTC ENGLISH TEXT IF POSSIBLE
RATHER THAN PRINTED AS RAW NUMBERS.
IMPLICIT INPUTS:
RP_ADDR -

ADDRESS OF THE CURRENT RETURN PACKET

EBH_TB1 : VECTOR [7) INITIAL (EBH_30,EBH_44 ,EBH_AS,

EBH_46 ,EBH_47,EBH_48,EBH_49);

zgg

:
:
:

1% Dec 1933

TABLE OF BASIC,

HARD ERROR MESSAGE ADDRESSES,

PRINTB (xx13, .CDISK);
!PRINTB (xx36, .CRN_LOW);

“DISK XXX*

PRINTX (XXx35, .RP_ADDR [CRF_L0));

SET

(#0000’
): PRINTX (EX_SEQ);
[#o'1l’): PRINTX (EX_DGM);

¢
!

“CREDIT NOTIFICATION"
"MAINTENANCE"

(OTHERWISE): PRINTX (XX37, .RP_ADDR [MESTYP]);

PRINTB (XX17);

6443
6444
6445

SELECTU (.RP_ADDR [conid]) OF
SET
(wo'2'):

XXXXXX

“message type:"

TES;

6440
wé

STATUS CODE

! “SEQUENTIAL"”
f “DATAGRAM”

[#o‘2'): PRINTX (EX_CRD);
[#o’'15'): PRINTX (EX_MTN);

6438

EXPECTED CRN

! RECEIVED CRN : XXXXXX

printX (xx29);
SELECTU (.RP_ADDR [MESTYP]) OF

6434
6435

INDEXED By

“COMMAND:

PACKET TYPE

! UNKOWN MESSAGE TYPE

“

P
H
3

6446

6447

6448

3
:
P
s
;
3

6450
6451
6452
6453
6454
6455

;

6449

BEGIN

PRINTB (XX18);

SET

(o' 201’ ):
#0’'202' }J:
;-0'203' :
#0204’ ]:
[#o’' 205’ ):
[#0°' 206’ 1:

zgg

PRINTB (EX_GDS);
PRINTB (EX_ESP);
PRINTB (EX_ELP);
PRINTB (EX_RCD);
PRINTB (EX_SDD);
PRINTB (EX_ABP);

'rg;oemuh PRINTB (EX_OP,

6458

printb (xx15)

’
3

6460
6461

THEN
ELSE

6463

IF .RP_ADDR [ENDCOD] EQL #0'204°' or

6459
“62

£464

! PRINTS A COMMAND

.RP_ADDR [ENDCOD)); ! PRINT ENDCODE VALUE

]

! PRINTS -DUP-

SELECTU (.RP_ADDR [ENDCOD]) OF

IF (.RP_ADDR fstscool GEQU 0) AND (.RP_ADDR [STSCOD) LEQU 7)
PRINTB (.EBH_TBL1 [.RP_
[STSCOD]))
PRINTB (ex_op, .RP_ADDR [STSCOD]);

.RP_ADDR [ENDCOD) EQL #0’'205'

"gtotus:"”

! IF STATUS CODE IS WITHIN RANGE

! PRINTB APPROPRIATE MESSAGE
! JUST PRINT STATUS CODE
!

IF A SEND DATA OR RECEIVE DATA COMMAND THEN

18E

(47

D15
RD/RX EXERCISER

6465

in
PRINTX (XX25,
PRINTX (XX26,

6467

EMS_DUP ();
end;

SEQ 0145
VAX-11 Bliss-16 Vv3-555
P Qe 189
SPIDERSUSERS: [DOUCETTE .FALCON JCNRQAL HLL1 (62

.RP_ADDR [BCNT LO]);
.RP_ADDR [BUFF 1], .RP_ADDR

! FOR ANY
[BUFF _0]);
!

“ACTUAL @ OF BYTES TRANSFERRED: Xxxxx,
»
“1/70 BUFFER DESCRIPTOR: XXXXXX XXXXXX"

prints contents of

IF A GET DUST STATUS OR EXEC.

dup pecket

IF .RP_ADDR [ENDCOD) EQL #0‘201’

then

begin
if BIT_TST (RP_ADDR

(9,

0],

if BIT_TST

(RP_ADDR

[9,

0],

if BIT_TST

(RP_ADDR

[9,

10,

0],

if BIT_TST (RP_ADDR (9,

11,

0],

then PRINTB (oF 0);

then PRINTS (df_1);

e w5

e me e e me e we me e e me ee e 00 00 TTIEE S0 S0 S0 @e
e
e e

10:24:41
10:21:50

then

then PRINTS (df_2);

end;

then PRINTB (df_3);

.RP_ADDR [ENDCOD) EQL 0’203’

LOCAL PRG COMMAND TH

then

begin

if BIT_TST (RP_ADOR (9,

0],

if BIT_TST (RP_ADDR (9,

0],

if BIT_TST (RP_ADDR (9,

10,

1, 0},

if BIT_TST (RP_ADDR { [9,

11,

1, 0],

then PRINTE (oF _4);

then PRINTE (df_S);

then PRINTE (df_6);

end

then PRINTB (df_7);

%NTX fxxzs. .CST_ADDR [.CUOFF + 3, D_DBN], .CST_ADDR [.CUOFF + 3, D_DBNI]);

0’ 1:
(%0’

BEGIN

PRINTB (XX19);

IPRINTS

! “DBN: XXXXXX,"

-MSCP-

'MSC

SELECTY (.”gw [ENDCOD]) OF
#o’'204’ }J:
#0°'211'):
o' 220’ }:
i‘o'?‘l' :
#0'242'):

e e me
e e B e we me e
WEOME EE R R R B R

15 Dec - 1933
15-Dec - 1983

ERROR MESSAGE SUBROUTINES

e B me B B

B B Be B we we e

NRQAM.
vol.c

PRINTB
PRINTB
PRINTB
PRINTB
PRINTB

(EX_SCC);
(EX_ONL);
(EX_ACC);

(EX_RD);
(EX_WRT);

! PRINTS THE COMMAND

gg;mssls PRINTB (EX_OP, .RP_ADDR fENDCOD])); ! PRINT ENDCODE VALUE
if

.RP_ADDR [CMDMOD] eql MD_CMP THEN PRINTB (XX20);

PRINTB (XX15);
if (.ST_CODE

(.ST_CODE

!
!

gtru 0) and

lequ 11)

PRINTB (.ERR_COD ([.ST_CODE
else
if .ST_CODE eql
then

ST_DIA

PRINTS THE MODIFIER IF NECESSARY

STATUS:
IF STATUS CODE IS WITHIN RANGE

! PRINTB APPROPRIATE MESSAGE

E1S

RD/RX EXERCISER

) e e e me e we e
e me e ee e we o
e me e e W
e W
e e W

6521
6522
6523
6524
6525
6526
6527

6528
6529

6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543

*1%®

W W

PRINTB (.ERR_COD

[111)

bRINTB (EX_OP. .ST_CODE);

.RP_ADDR [ENDCOD) EQLU so’'220'

——

10:21:50

VAX-11 Bliss-16 V3-555

smp(.':";w

SPIDERSUSERS:(DOUCETTE.FALCONICNRQAL
.BL1

MESSAGE FROM INTERNAL DIAGNOSTICS

PRINTS STATUS SUB-CODE

! JUST PRINT STATUS CODE WHEN NO MATCK

.RP_ADDR [ENDCOD) EQLU so'241‘'
.RP_ADDR [ENDCOD] EQLU so'242’

(47

! MSCP acces

mscp read

mecp write

SeTnex (XX24, rp-addr [CBONT_LOD);
PRINTX (XX25.

_RP_ADOR

[BCNT_ (i01):

PRINTX (XX26, .RP_ADDR (BUFF_1),

!
!

.RP_ADDR [BUFF_0));

if BIT_TST (RP_ADDR (FLAGS), EF_0)
!
then
’
PRINTB (XX21, .RP_ADDR (BBLK_LO))
else

printX (XX22, .RP_ADDR [LBN_LO],
PRINTB (XX41);
if BIT_TST (RP_ADDR (FLAGS), EF_1)

then PRINTB (F_1);

IF BAD BLOCK REPORTED

“"BAD BLOCK REPORTED:

.RP_ADDR [LBN_LO]));

XXXXXX,*
!

“LBN:

XXXXXX"

IF BAD BLOCK UNREPORTED

' IF ERROR LOG GENERATED

if BIT_TST (RP_ADDR (FLAGS), EF_3)

IF SERIOUS EXCEPTION

- then PRINTB (F_3);

Xxxxx,
*

! “1/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX*

if BIT_TST (RP_ADDR (FLAGS), EF_2)

then PRINTB (F_2);

“BYTE COUNT IN COMMAND: XXXXXXX*”
FOR ANY "ACTUAL @ OF BYTES TRANSFERRED:

.RP_ADDR [ENDCOD) EQLU so’204°

! MSCP SEY CTLR CHAR

THEN

TR« S

)

15-Dec-1983

EMS_SBC ();

S S

command

15 Dec-1983 10:24:41

ERROR MESSAGE SUBROUTINES

vol.¢

‘-

NRGAM.

PRINTB (XX39)

i# BIT_TST (RP_ADDR [BCNT_MI], EF_4)

then PRINTB (F_4);
if BIT_TST (RP_ADDR [BCNT_WI), EF_S)
then PRINTB (F_S);
i BIT_TST (RP_ADDR [BCNT_MI), EF_6)
then PRINTB (F_6);
i? BIT_TST (RP_ADDR [BCNT_WI), EF_7)
then PRINTB (F_7)

i BIT_TST (RP_ADDR t‘cm-nn. EF_8)

then PRINTB (F_8);
if BIT_TST (RP_ADDR [BCNT_WI), EF_9)
then PRINTE (F_9);
if BIT_TST (RP_ADDR (BCNT_HI), EF_10)
then PRINTB (F_10);

! IF
IF

IF
IF

' IF
'

IF .RP_ADDR [ENDCOD) EQLU so’'211’
THEN

! MSCP ONLINE comman

PRINTB (XX40);
i? BIT_TST (RP_ADDR [BCNT_HI), EF_11)

then PRINTB (F_11);
if BIT_TST (RP_ADDR (BCNT_WI), EF_12)
then PRINTE (F_12),;
if BIT_TST (RP_ADDR [BCNT_MI),

then PRINTB (F_13),

EF_13)

IF
IF

RD/RX EXERCISER

.-c.oo“-umu‘-uulqn.-“.-.t«n-o-u-o.nu...a.-.-o.-'o.-u.-.o.l‘.fl.on.ou.-n.uoa-n-o-n-.omu'o.-ocu

NRQAM2
vol.c2

ERROR MESSAGE

15-Dec-1983 10:24:41
15-Dec-1983% 10:21:50

SUBRQUTINES

6577
6578
6579
6580
6581

if BIT_TST

(RP_ADDR

[BCNT_HI),

EF_14)

if BIT_TST

(RP_ADDR

[BCNT_HI),

EF_15)

if BIT_TST

(RP_ADDR

[BCNT_HI),

EF_16)

6583
6584

if BIT_TST (RP_ADDR

[BCNT_WI),

EF_17)

then PRINTB (F_14);

then PRINTB (F_15);

then PRINTB (F_16);

then PRINTB (F_17);

6585

if BIT_TST (RP_ADDR [BCNT_MI), EF_18)

! IF

6587
6588
6589
6590
6591
6592
6593
6594
6595
6596

if BIT_TST

6597
6599

then PRINTB (F_18);
(RP

[BCNT_HI),

EF_19)

if BIT_TST (RP_ADDR

[BCNT_HI),

EF_20)

if BIT_TST (RP_ADDR

[BCNT_HI],

EF_21)

then PRINTE (F_19);

then PRINTB (F_20);

END;

then PRINTB (F_21);

end;

PRINTB (Xx38,

.RP_ADDR [CONID]);

(%0’ 204° ):
,“'211’,:
(o' 220" ]:
so'241' ):
%o’ 242' ]:
so’'211'):
(8o’ 220" }:
(8o’ 241
]:

PRINTB
PRINTB
PRINTB
PRINTB
PRINTB
PRINTB
PRINTB
PRINTB

(EX_SCC):
(EX_ONL);
(EX_ACC):
(Ex-ao);
(EX_WRT);
(EX_ONL);
(EX_ACC);
(EX_RD);

'}g;lEflUISEl: PRINTB (EX_OP,

6627
6628
6630
6631
6632

191

(62

.RP_ADDR [ENDCOD]);

:v_.:_:no:sgonm: eqgl MD_CMP THEN PRINTB (XX20);
xx

PRINTS UNKNOWN CONNECTION ID

! PRINTS THE COMMAND IF RECOGNIZED

[]

! PRINT ENDCODE VALUE

PRINTS MODIFIER IF NECESSARY

INTB (ex_op.,

.RP_ADDR [STSCOD]);

! PRINTS STATUS CODE IN OCTA. FORM

PRINTB (ex_op.

.RP_ADDR [SUBCOD]);

! PRINTS STATUS SUB-CODE IN OCTAL FORM

printb (xx16);

THIS ROUTINE PRINTS (EXTENDED) BOTH BYTE COUNT FIELDS OF THE CURRENT

RETURN PACKET:

6621
6623
€624

Page

! UNKNOWN CO

SELECTU (.avggtt:oa [ENDCOD]) OF

[1a)

SEQ 0127

SPIDER$USERS: [DOUCETTE .FALCONICNRQOAA .BL1

[othernise]:
BEGIN

%o’ 242' ): PRINTB (EX WRT);

6610
6611
6612
6613
6614
6615
6616
6617
6618
6619

VAX-11 Bliss-16 v3-555

.RP_ADDR [ENDCOD) EQLU so’'220'

.RP_ADDR [ENDCOD)
.RP_ADDR [ENDCOD)

THEN
begin

! MSCP access command

EQLU so’'241' OR

! mscp read

EQLU so’'242'

printX (Xx24,

PRINTX (XX25,
PRINTX (XX26,

! mscp write

.;g_oddr [CBCNT_LO));

“BYTE COUNT IN COMMAND: XXXXXXX*

.RP_ADDR [BCNT_LO]);
! FOR ANY
.RP_ADDR [BUFF_1),
.RP_ADDR [BUFF_0]);
!

if BI;;;ST (RP_ADDR (FLAGS),
t

THE BYTE COUNT FROM THE COMMAND ENVELOPE AND THE

ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THE RESPONSE ENVELOPE).

EF_0)

“ACTUAL @ OF BYTES TRANSFERRED: XXxXxxX.
"
“I/0 BUFFER DESCRIPTOR: XOOXXXX XXXXXX*

IF BAD BLOCK REPORTED

GLS
NRQAM?

RD/RX EXERCISER

\;01.8
:
H

3
:
:
:

ERROR MESSAGE SUBROUTINES
2;2

3
3
3

6644
6645
6646

:
3
3
:
3

010140

(Xxx21,

.RP_ADDR

[BBLK_LO))

printX

(xx22,

.RP_ADDR

(LBN_LO),

PRINTX (Xxx25,
PRINTX (XX26,

END;

ems_dup ();
end;

!PRINTX (XX27);
'EMS_BLK (.RP_ADDR, PKT_LEN);

6655

end;

000000G
000000G
000000G
000000G
000000G
000000G
000000G

000000
000004
000010
000014
000020

004137
013746
012746
012746
010600

104414
013700
016016
012746
012746
010600
104415
012716
012746
010600
104415
013700
116002
006202

000000G
000001
000000G
000002

.RP_ADDR

[LBN_LO));

REPORTED:

XXXXXX,*
!

“LBN:

XXXAXX*

! roa ANY “ACTUAL & OF BYTES TRANSFERRED: XXxXxX,
*
! “I/0 BUFFER DESCRIPTOR: XXXXXX XXXXXX*

D_DBN), .CST_ADDR [.CUOFF + 3, D_DBN]J;

! prints dup packet material

! O"DBN; XXXXXX,"

! “CONTENTS OF PACKET:”
! PRINT BLOCK OF WORDS AS LONG AS A MESSAGE PACKET INCASE A PACKET IS USED
! INSTEAD OF A RETURN PACKET

! ROUTINE EMSCMD

.PSECT

000000G
000004
0000006
000002

"BAD BLOCK

(62

PRINTS RETURN OR MESSAGE PACKET IN A BLOCK OF OCTAL WORDS

EBM.TB1:.WORD
.WORD
.MORD
.WORD
LWORD
.MORD
.MORD

0000006
000000G
000000G
000002

Page 192

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BL1

! dup receive date
! dup send data

PRINTX (XXZS. .CST
ADDR
[ .CUOFF + 3,
tes:;

10:21:50

SEQ 0144

VAX-11 Bliss-16 Vv3-555

.RP_ADDR [BCNT_LO));
.RP_ADDR [BUFF_1], .RP_ADDR [BUFF _0));

6650
6651
6652
22

010140
010142
010144
010146
010150
010152
010154

000022
000024
000030
000034
000040
000044
000046
000050
000054
000060
000062
000064
000070
000074

PRINTB

IF .RP_ADDR (ENDCOD) EQLU so’'204' OR
.RP_ADDR [ENDCOD) EQLU so' 205’
THEN
A

6643

6647
wg

15-Dec-1983

end;

6637
6638
zzg
6641
6642

3
:

:
eise

232

:
3

;

15-Dec-1983 10:24:41

$CODES$,

EBM.30
EBM.44
EBH.45
EBH.46
EBH.47
EBM.48
EBH.49

.SBTTL

EMSCMD ERROR MESSAGE SUBROUTINES

TRAP
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOVB
ASR

14
RP . ADDR,RO
4(RO),(SP)
#XX35, -(SP)
02,-(SP)
SP,RO
15
oXXx29,(SP)
e1,-(5P)
SP,RO
15
RP .ADDR,RO
2( RO) RZ

EMSCMD: : JSR
MOV
MOV
MOV
MOV

R1,$SAVES
CDISK, -(SP)
oxx13, -(SP)
#2,-(SP)
SP.RO

:
:

6409
6428

SP,»

6430

SP,»

i
:

6431

SP,»
6432

NRQAMZ
gOl.Z

000076
000100
000102
000104
000110
000114
000116
000120
000122
000126

000132
000134
000136
000140
000144
000146
000150
000154
000160
000162
000164
000166
000172
000174
000176

RD/RX EXERCISER

15-Dec-1983
15-Dec-1983

ERROR MESSAGE SUBROUTINES

VAX-11 Bliss-16 Vv3-555

SEQ 0181

193
SPIDERS$USERS: [DOUCETTE ,FALCONICNRQAA;. ?: (63

R2
R2
R2
@177760,R2

177760
177777

1$
R1

©@EX.SEQ,(SP)

01, -(SP)
SP,RO

000001

15
(SP)+
R2,01
24

1¢:

6432

@EX.DGM, (SP)
@1,-(SP)
SP,.RO

000002

15
(SP)+

2%:

3
R1

000210

000214

10:24:41
10:21:50

000015

3%:

6435

6432

9EX.CRD,(SP)

6436

SP.RO
15
(SP)e.
R2,015

6432

OEX_.MTN, (SP)

6437

6432
6438

R1
#177760,R1
R1,(SP)

177760
000002

6441

TRAP

[

NRQAM?2
vol.¢e

00032¢
000332
000334
000340
000344
000350
000352
000356
000360
000364
000370
000372
000374

RD/RX EXERCISER

15-Dec -1983

ERROR MESSAGE SUBROUTINES

15-Dec -1983

0000006

RP.ADDR,RO
R4
3(RO),R4

000003
177777
000002

011644’

)

R4, 02
6%
26%
R3
#XX18,(SP)
e1,-(SP)

64:

SP,RO

10:24:41

10:21:50

SEO 0190
VAX-11 Bliss-16 Vv3-555
Page 194
SPIDERSUSERS: [DOUCETTE .FALCONJCNRQAA .ELLL (63
H

6447

H SP-‘
H

6448

6450

14(R0O),R2

@-1,R1
R2, 4201
74
R1
®EX.GDS,(SP)

000202

000203

000204

7¢:

8s:

9¢:

10%:

933338083
33333288 53333P89383308
-‘g

000416

y.m
14
(SP)«
R2,0202
84

B s’n‘
H

6448

OEX.ESP,(SP)

6451

SP,RO
14
(SP)«
R2,0203

9
R1
SEX .ELP,(SP)

SP,.RO
4

SP)e
R2,0204
10¢
R1
®EX.RCD,(SP)
SP,.RO
14
(SP)+
R2,0205
114

R1
#EX.SDD, (SP)

SP,RO
14
(SP).

95.

6448

6452

H 90
H

6448

6453

H SP.‘
:

6448

6454

S’..

LJir)
NRQAMZ
vol.e2

126027
001032
013700
016016
012746
012746
010600

104415
013700
016016

016046
012746
012746
010600

R2, 0206

11%:

124

]

6445

6455

0000006
000001

QEX,.ABP,(SP)
@1, -(SP)
SP,RO
14

12%:

SPD‘

6448

6456

14(R0O),(SP)

0000006
000001

13¢:

177740

SP,RO

16(R0O), RO

6459

6460

SP,RO

i SP,s

17774

000007

010140’
000001

14%;

000000G

5 SP.‘

:: ADDR,RO

000000G
000016

000000G

SP,.RO
:
14
(SP)+
' (SP Yo
oxx15,(SP )

15%:

16%:

6458

SP.‘

144

EBH.TB1(RO),(SP)

6459

6461

H s’-.

116016
012746
012746
010600
104414
022626
012716
012746
010600
104414
013700
116000
042700
020027
101010
006300
016016
012746
010600
104414
000410
010016
012746
012746
010600
104414
005726
013700
126027
001404

000206

-y

020227
001010
005001
012716
012746
010600
104414
005726
005701
001414
013700
005016

SUBROUTINES

SEQ 0171
VAX-11 Bliss-16 v3-555
Page 195
SPIDERSUSERS: (DOUCETTE .FALCONICNRQAA .BL1 (632

000610
000612
000614
000616

ERROR MESSAGE

15 Dec-1983 10:24:41
15-Dec-1983% 10:21:50

g 333333333388
3838 j333ansaess

000570
000574
000576

RD/RX EXERCISER

RP . ADDR,RO
14(R0), 0204
164
14(RO), 0205

6463

6464

6467

i spa.
i

6468

SP..

IK1S
NRQAM?2
vol.e2

013700

032760
001407
012716
012746
010600
104414
005726
013700
032760
001407
012716

000400

TRAP

JSR

17%:

ADD

MOV
CMPB

BIT
BEQ

000022

15
PC,EMS.DUP
@12,SP
RP,ADDR,RO

0000006
001000
000022

184:

000001

6474

@0F
.0, (SP)

6475

SP,RO
14
(SP)+

14(R0O), #201
214

RP .ADDR,RO
01000, 22(RO)

19s:

012746
010600

104414
005726
013700
032760
001407

6476

194
oDF .1,(SP)

6477

SP RO

H SP.‘

(SP)O

RP,ADDR,RO

6478

.(SP)
SP)

6479

02?°°.22(R0)

TRAP
TST

012716
012746
010600

000000G
000014
000203

000400

RP,

21¢:

14(RO), #203
254

9400,22(R0)

000022

224
90F .4,(SP)

000001

SP,RO

SP.‘

6480

6481

SP!‘

6484

6487

6488

000001

~’

I P

BIT

-~ ?og

22%:

SP,»

6489

6490

23%:

000000G
001000
000022

104414
005726
013700
126027
001062
032760
001407
012716
012746
010600
104414
005726
013700
032760
001407
012716
012746
010600
104414
005726
013700

SP-.

;

01,-(SP)

TRAP
TST

196

6469
6466
6471

e1,-(SP)

TRAP
TST

Page

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA BLI (63

H
H
:

001332
001334

104414
005726

000000V
000012
0000006
000014
000201

SEQ 0192

001300
001302
001306
001314
001316
001322
001326
001330

104415
004737
062706
013700
126027
001062
032760
001407
012716
012746
010600

001254
001262
001264
001270
001274
001276

ERROR MESSAGE SUBROUTINES

VAX-11 Bliss-16 V3-555

SP.‘

001204
001206
001212
001220
001222
001226
001232
001234
001236
001240
001244

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

3gas2gu23gs!
- DL § ~

001046
001050
001054
001060
001064
001072
001074
001102
001104
001110
001114
001116
001120
001122
001126
001134
001136
001142
001146
001150
001152
001154
001160
001166
001170
001174
001200

RD/RX EXERCISER

6491

-39
NRQAM2

RD/RX EXERCISER

\)101.2

001340
001346

001350
001354
001360

C01362
001364

001366

001372
001400

001402
001406
001412
001414

ERROR MESSAGE SUBROUTINES
032760
001407

012716
012746
010600

002000

005726

013700

032760
001407

000000G

004000

001420
001424
001426

013700
006300
063700

000000G

001434
001440

116016

000006

001442
001446
001452
001456
001460
001462

116016
012746
012746
010600
104415
062706

000006
0000006
000003

001470
001472
001476
001500
001504
001510
001512
001514
001520
001522
001526
001532
001536
001540
001542
001546
001552
001554
001556
001560
001564
001566
001570
001574
001600
001602
001604
001606

001402
000137
005003
012716
012746
010600
104414
013700
005002
156002
012701
020227
001010
005001
012716
012746
010600
104414
005726
020227
001010
005001
012716
012746
010600
104414
005726
020227

001466

005726

005016

005704

000022

24%:

25%:

000000G

000014
013700°
000000G
000001

264 :

27%:

000014
177777

000204
000000G
000001

28%:

000000G
000001

000220

BIT
BEQ

©#2000,22(R0O)
244

TRAP

TST

29%:

.6,(SP)
o1, -(SP)
SP,RO
(SP)+

VAX-11 Bliss-16 V3-555

SEQ 0173

Page 197

SPIDERS$USERS: [DOUCETTE .FALCONJCNRQAA BLl (63

;

6492

SP,s

MOV

RP.ADDR,RO

6493

MOV
MOV
MOV
TRAP

@OF ,7,(SP)
@1, -(SP)
SP,RO
14

;

6434

MOV
ASL
ADD

CUOFF ,RO
RO
CST.ADDR,RO

MOVB
CLR

6(R0O),(SP)
-(SP)

BIT
BEQ

TST

CLR

0000006

000211

15-Dec-1983 10:21:50

MOV
MOV
MOV

104414

000000G
000001

001432

000022

000000G
000001

012716
012746
010600
104414

001416

15-Dec-1983 10:24:41

MOVB
MOV
MOV
MOV
TRAP
ADD
TST

BEQ
JMP
CLR
MOV
MOV
MOV
TRAP
MOV
CLR
BIS8
MOV
cHP
BNE
CLR
MOV
MOV
MOV
TRAP
ST
cMP
BNE
CLR
MOV
MOV
MOV
TRAF
TST
CHP

©#4000,22(R0O)
254

(SP)«

SP,s
6496

(SP)

6(R0),(SP)
oxx23, -(SP)
3, -(SP)
SP,RO
15
#14,5P
R4

274
66¢
R3
oXX19,(SP)
#1,-(SP)
SP,RO
14
RP . ADDR,RO

14(R0O),R2
o-1,R1
R2, 9204
28
R1
#EX.SCC,(SP)
#1,-(SP)
SP,RO
14
(SP)+
R2,0211
29¢
R1
OEX.ONL,(SP)
1,-(SP)
SP,RO
14
(SP)+
R2, 4220

SP,s

;
;

6446
6443

6500

SP,s

6501

6503

SP,»

6501

6504

i
i

SP,»
6501

M15
RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

30¢
R1
®EX.ACC,(SP)

000241

SP,RO
14
(SP)+

30%:

R2,4241

31¢
R1
@EX.RD,(SP)

SEQ 0194
Page 1938
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA. BLI (63

VAX-11 Bliss-16 V3-555

6505

SP!‘

6501

6506

H
31%:

SP-‘

6501

6507

H 90‘
32%:

000013

1777766
000001

000037

35%:

6501

6508

yo‘

6510

”o.

6512

H 9.‘

01, -(SP)

6513

6514

6516

SP"

6513

6519

——

34%:

33%:

323333 238833884338aR383F228209

001010
005001
012716
012746
010600
104414
005726
020227
00101¢C
005001
012716
012746
010600
104414
005726
020227
001010
005001
012716
012746
010600
104414
005726
005701
001414
013700
005016
116016
012746
012746
010600
104414
022626
013700
026027
001007
012716
012746
010600
104414
005726
012716
012746
010600
104414
013700
001413
020027
101010
006300
016016
012746
010600
104414
000422
020027

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

N15
RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

002160

002164
002170
002174
002176
002210

004737
013700
042700
020027
001406

36%:

007430’

14(R0O),RO

000014
177400

SEQ 0195
VAX-11 Biiss-16 v3-555
Page 199
SPIDER$USERS: ([DOUCETTE.F ALCON JCNRQAA BLI (63

6521

. SP.‘
H
H

6519
6523

SP,»

P
$

6525
6527

6528

6529

6532

€177400,R0
RO, #220

020027

001147
013700
016016
012746
012746
010600
104415
013700
016016
01274¢
012746
010600
104415
013700
016016
016046
012746
012746
010600

104415

013700

005760
100011

016016
012746
012746
010600

104414

104415

SP,.RO
14
(SP)«
PC,EMS.SBC
RP.ADDR,RO

37%:

001403

000412
016016
011646
012746
012746
010600

@1,-(SP)
SP,RO
14
374
RO, (SP)
QEX.OP, -(SP)

002104
002106
002110
002112
002116
002122
002126
002132
002136
002140
002144
002146
002152
002154

104414
000410

010016
012746
012746
010600
104414
005726

36%
ERR.COD+26,(SP)

0000266
000001

002066
002070
002072
002074
002100

001007
013716
012746
010600

s33aazs : 38838 293 83883332333833833583

vol.

002052
002054

15-Dec-1983 10:24:41
15-Dec 1983 10:21:50

39¢:

SPQ‘

6533

SP..

6534

B SP.‘
:

6535

6537

Spo.

i SP,»

6535

6539

S’
4 \J

RD /Rx EXERCISER
ERROR MESSAGE SUBROUTINES

0000006

40%:

000001

15 Dec 1933 10:24:41
15 Dec -1983% 10:21:50
151

TRAP

0000006
000014
040000

VAX i1 Bliss 16 v3 555

020000

(SP).
oxxa1,(SP)
o1,-(SP)

SP,RO
14
RP _ADDR ,RO

6541

€40000,14(R0O)

654,

000014

41s:

6541

0000006
000001

0000006
010000

6544

000014

42s:

6545
6546

000001

000024
0000006
000014
000204

438
44
:

&553

000022

45é:

SP,RO
14
(SP)e
RP , ADDR,RO
464
o .5,(SP)
01,-(SP)

000022

6554

#100,22(R0O)

000040

6552

.1."5’)

000001

002616

6551

SP,.RO
14
RP .ADDR ,RO
22(R0O)
45
oF .4,(SP)

000001

000100

657!
6548
0XX39,(SP)
.1.'(5’)

000001

0000006

Pose

SPIDERSUSERS: [DOUCE TTE .FALCONICNROAS 51 1

000000G
000001

0000006

SEQ

468

(SP).
RP . ADDR,RO
€40,22(R0O)

a47%

SP.‘
fit

RD/Rx EXERCISER

010600
104414
005726
013700
032760
001407
012716
012746
010600

000000G
000001

MOV

MOV
TRAP

0000006
000020 000022

000001

042700
020027
001007
012716
012746
010600

104414
005726
013700
032760
001407
012716
012746
010600
104414
005726
013700
032760
001407
012716
012746

1ST
MOV

BIT
BEQ
MOV
MOV

104414
005726

013700
016000

47s:

48%:

000022
077777
100000

000001

TRAP
1ST

MOV
MOV
B8IC

MOV
TRAP

000002

000022

TST

BIT
BEQ

000001

000000G
000001
000022

S04
:

TRAP
TST

000001

000000G
000014
000211

013674
0000006
000001

15 Dec 1943
15-Dec -1983%

ERROR TMESSAGE SUBROUTINES
012716
012746

ok 7

10:24:41
10:21:50

SEQ Gl
VAX-11 Blies-16 v3 555
Page 0L
SPIDERSUSERS:
[DOUCETTE ,FALCONICNRGwA B L (47

oF .6,(5P)

SP,RO
14

(SP).
RP . ADDR,RO
€20,22(R0O)
48
oF .7,(5P)

SP.RO
14
(SP)«
RP.ADDR,RO
22(R0O),RO

B SP..
:

6558

£559

: SP,e
H

6560

656
.

@77777,R0O

RO, @-100000
49
oF .8,(SP)

SP,.RO
14
(SP)e

RP . ADDR,RO
@2,22(RO)

504

oF .9,(SP)

i SP,e
H

6562

€63

SP,e

6564

6565

N Spo‘
S18:
S2s:

:
H

6550
6567

S538:

6570

H SP"

000000G
000001
000022

TRAP
TST

6571

6572

SP,s

Jio
RD/RAX EXERCISER

1% Dec

ERROR MESSAGE SUBROUTINES

013700
032760
001407
012716
012746
010600
104414
005726
013700
016000

0‘2703
02002
001007
012716
012746
104414
005726
013700
032760
001407
012716
012746

0000006
000002

000022

S4%:

0000006

000001

MOV

RP . ADDR ,RO

BEQ
MOV

558
oF . 12,.(SP)

MOV
TRAP
1S7T

SP,.RO
14
(SP).

BIT

MOV

0000006

SS$:

000022
0777717

100000
000000G
000001
000000G
040000

000022

S68:

0000006
000001

0000006
004000

S78:

000022

S88:

0000006
000001
000000G
002000

000022

S98:

0000006
000001
000000G
000100

0000006
000001

000022

608:

198% 10:21:50

SEQ Gl

VAZ-11 Bliss 16 3 555

Pepe 20

SPIDE
([DOUCE
RSUSE
TTE .FALCONICNROAL
RS: 51

02,22(R0O)

01.-(5P)

6574

H Spc.

RP . ADDR
, O

6575

P
BNE
MOV
MOV
MOV

RO,#-100000
564
oF .13,(SP)
o1.-(SP)
SP.RO

6576

MOV

RP . ADDR
, O

BEQ

S7%

8IT

MOV
MOV
MOV

000000G
000022
0000006
000001

10:24:41

MOV

MOV
8IC

TRAP

04414

726
013700

15 Dec

1983

TRAP
ST

22(R0O),RO
@77777,.RO

(SP).

040000, 22(R0O)

o .14,(SP)
01.-(5P)
SP.RO
14
(SP)e

MOV
1ST8
B8PL
MOV
MOV
MOV

RP . ADDR,
RO
22(RO)
s8¢
o .15,(SP)
o1.-(5P)
SP,RO

MOV
8IT
BEQ
MOV
MOV
MOV

RP . ADDR
, O
#4000, 22(RO)
S9¢
o .16,(SP)
o1.-(5P)
SP,RO

MOV
817
BEQ
MOV
MOV
MOV

RP . ADDR
, O
02000,22(R0)
608
o .17,(SP)
01.-(5P)
SP.RO

MOV
BIT
BEQ
MOV
MOV
MOV

RP . ADDR
, O
0100, 22(R0)
614
oF .18,(SP)
o1.-(5P)
SP.RO

TRAP
ST

H SPQ.

14
(SP)e

14
(SP)+

14
(SP)»

6577

6578

SP,e

6579

6580

H SP'.
3

6581

6582

H SP.‘
i

6583

6584

1 SP,s

6585

6586

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

15-Dec-1983 10:24:41
15-Dec-1983% 10:21:50

VAX-11 Bliws-16 V3-555

SEQ 01

Seas 308

SPIDERSU
: [ DOUCE
SERS
T TE . ¥ ALCONCNRQA
601
R

4.7

TRAP

020000

000022

61$:

BIT

000001

£587

65848

M
0000006
010000
000022
000001

Spo‘

6589

6590

i SP,e
638:

6591

6592

0000006

000014

177777

000204

000000G
000001

000211

68%:

(=]

“g

e
«

6569

6597

H
H

6499
6443

000003

000C00G
000002

flg

67%:

(" Lo

015074

000000G

644%:
654:
664:

333nRqagasdnaaineazasainaes

000006

3233

; SP,s

;

SP,s

6598

9€EX.SCC,(SP)

6600

SP.RO
14
(SP)+
R2,0211
694

) SP.‘

6598

R1
SEX.ONL, (SP)

6601

SP,RO

SP,s

'
RD/RXx EXERCISER

15-Dec-1933%
15-Dec-1983

ERROR MESSAGE SUBROUTINES

104414
005726
020227
001010
005001
012716
012746
010600

104414
005726
020227
001010
005001
012716
012746
010600
104414
005726
020227
001010
005001
012716
012746
010600
104414
005726

000220

695 :

TRAP
TST

CLR
000001

000241

70%:

10:24:41
10:21:50

VAX-11 Bliss-16 v3-555

SEQ 0400

SPIDERSUSERS: [DOUCETTE ,F ALCON JCNRQAFK ;E:
.
(63
204

14
(SP)«

R2, 0220
70%
R1

6595

®EX.ACC,(SP)

6602

SP,RO
14
(SP).
R2,0241
71%

‘@ 9.‘
:

6598

9EX.RD,(SP)
01, -(SP)

6603

000001

SP,RO
14

000242

R2,0242
72%
R1

000001

000211

000220

72%:

73%:

74%;

6598

@EX.WRT,(SP)

6604

SP,RO
14
(SP)«

H
H

6598

QEX.ONL,(SP)

6605

SP,RO
14
(SP)+
R2, 0220

6598

®EX.ACC,(SP)

6606

SP.RO

744
R1

TRAP
TST

000001

000242

75%:

SP,»

R2,0211
73%
R1

000001

000241

(SP)e

718:

000001

MOV
MOV
MOV

SP.‘

SP,»

6598

6607

H SP,.

TRAP
TST

CLR
004076

1';

6598

OEX . WRT,(SP)

6608

SP,RO

SP,»

RD/RX EXERCISER

15 -Dec-1983 10:24:41
15-Dec -1983 10:21:50

ERROR MESSAGE SUBROUTINES

76%:

000014
000002

000012

040000

77%:

000001

78%:

TRAP
TST
TST

BEQ
MOV
CLR
MOvVB

RP.ADDR,RO

MOV
MOV

784
@Xx20,(SP)
#1,-(SP)

TRAP

177740

MOV
MOVB
8IC

000001

TRAP
MOV
MOV

000016

TRAP

000016

174000

000002

000014

ASR
ASR
ASR
ASR

8IC
MOV
MOV
TRAP
MOV

177400

B8IC

000241

cHP
BEQ

000220

000242

205

(SP)
14(R0),(SP)

MOV

]

SPIDERSUSERS:(DOUCEllfi.FALCON]CNROAk.;E: (62

R1
778
RP.ADDR,RO

02, -(SP)
SP,.RO

TRAP
TST
MOV

SEQ 0701

14
(SP)+

MOV
MOV
TRAP

CcMP

VAX-11 Bliss-16 v3-555

(SP)+,(SP)+
6611

12(R0), 240000

SP.RO
14
(SP)+

@XX15,(SP)
e1,-(SP)
SP,RO

14
RP,ADDR,RO

16(R0O),(SP)

;

SP,»

6612

6613

0EX.0P, -(SP)
SP,RO
14

oXXx16,(SP)
o1,-(SP)

y.“o
14
RP.ADDR,RO

16(RO),R1

6614

6615

R1
R1

R1
R1
#174000,R1
R1,(SP)

$EX.0P, -(SP)
SP.RO
14

RP.ADDR,RO

14(RO),RO

#177400,R0
RO, #220
794
RO, #0241
794
RO, #242

6623

6624

6625

H16
NRQAM?2

ERROR MESSAGE SUBROUTINES
001072
013700
016016
012746
012746
010600
104415
013700
016016
012746
012746

000000G

82s
RP .ADDR,RO
QQ(RO).(SP)
oxx24, -(SP)
02, -(SP)

79s:

010600
104415
013700
016016
016046
012746
012746
010600
104415
013700
005760
100011
016016
012746
012746

20¥,

6LECR

SP,RO

6629

SP,s
6630

S’Pl.

6631

6633

SP.‘

5
H

6631
6635

H SP..

000204

33333338 3 33333738383

001404
126027
001053
013700
016016
012746
012746
010600
104415
013700
016016
016046
012746
012746
010600
104415
013700

i SP,s

016016
011646
012746
012746
010600
104415

SCO Ocle

SPIDERSUSERS: [DOUCETTE. FALCON JCNRGAA m (63

SP,RO
15
RP,ADDR,RO
20(RO), (SP )
oxx2s, -(SP )

010600
104414

005726
062706
013700

VAX-11 Blies-16 v3-555

004404
004410

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

-y

004352
004354
004360
004364
004370
004374
004376

RD/RX EXERCISER

14(R0), 9204
83¢
14(RO), 9205

H
H

6627
6637

6638

6641

H SP.‘
H

6642

sp.:i

6643

116
NRGAM.
gOl.E
004644
004646
004652
004654
004660
004662
004666

004672
004676
004700
004702
004706
004712
004716
004722

RD/RX EXERCISER

15-Dec-198% 10:24:41
15-Dec-1983 10:21:50

ERROR MESSAGE SUBROUTINES
006300
063700
005016
116016
005046
116016
012746
012746
010600
104415
004737
062706
062706
062706
000207

ASL

0000006

000020
000016

CST.ADDR,RO
(SP)
6(RO),(SP)
-(SP)
6(R0O),(SP)

ADD
CLR
MOvB
CLR
MOVB
MOV
MOV
MOV
TRAP
JSR

000006

84%:
85%:

0xXx23, -(SP)
03, -(SP)

SP,RO
13

PC,EMS.DUP

ADD
ADD
ADD

RTS

$CODES$
1258 words,
Routine Base:
i Routine Size:
i Maximum stack depth per invocation:
32 words

SEQ G0l

VAX-11 Bliss-16 V3-555
Page 207
SPID: ERSU
( DOUCE T TE . FALCON)CNRGA
SERS
R BCS (£.2

10156

s SP,s
H
H
H
F
H

6644
6640
6596
6420
6409

J16
RD/RX EXERCISER

ERROR MESSAGE

6656
6657
6658
6659
6661

6663

6665
6667

NRQAM.
vol.2

6669
6670
6671

10:24:41
10:21:50

"( (

VAX-11 Blies-16 V3-555

Page

SPIDERSU
: { DOUCE T TE . FSERS
AL CONJCNRIAA L0 s

‘.
5

NOVALUE

THIS ROUTINE PRINTS THE PRESENT DBN

'
:

IMPLICIT INPUTS:
CST_ADDR

]

| =

BEGIN
PRINTB
PRINTB
PRINTB
PRINTB
PRINTB

(Xxx13,
(Xx23,
(XX32,
(XX33,
(XX34,

ADDRESS OF CONTROLLER STATUS TABLE

.CDISK);
.CST_ADDR [.CUOFF + 3,
.S_DUPPKT - 2);
.S_PATTERN);
.(DUPPKT + .S_DUPPKT),

EMS_BLK (DUPPKT +2, 256);

! “DISK XXX*
.CST_ADDR [.CUOFF + 3, D_DBN));
! PRINTS THE BYTE COUNT
! PRINTS THE PATTERN WRITTEN
.(DUPPKT « .S5_DUPPKT));
! PRINTS THE WORD READ

D_DBN],

012746
012746
010600
104414
013700

000000G
000002

0000006
000000G

000006
/
000006
000000G
000003

“DBN:

XXXXXX,"

! PRINTS THE WHOLE BLOCK READ IN OCTAL

END;

000000G

116016
012746
012746
010600
104414

SUBROUTINES

GLOBAL ROUTINE EMS_DBN

013746

063700
005016
116016

15-Dec 19383
15 Dec - 1983

! ROUTINE EMS-DBN
.SBTTL

EMS.DBN ERROR MESSAGE SUBROUTINES

MOV
MOV
MOV

CDISK, -(SP)
oxx13, -(SP)
@2, -(SP)

TRAP

EMS.DBN:
:

MOV
ASL
ADD
CLR
MOVB
CLR
MOVB
MOV
MOV
MOV
TRAP

;

9.“0

CUOFF ,RO
RO
CST.ADDR,RO
(SP)
6(RO),(SP)
-(SP)
6(R0O),(SP)
oxx23, -(SP)
#3,-(SP)
9.“0
14

;

6665

SP.‘

H SPO‘

K16
NRQAM?
g01.2

000062
000066
000072
000076
000102
000104
000106
000112
000116
000122

000124
000126
000132
000136
000140
000144
000150
000152
000154
000160
000164
000170
000174

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

013716
162716
012746
012746
010600
104414
013716
012746
012746
010600
104414
013700
016016
011646
012746
012746
010600

104414
012716
012746
004737

062706
000207

0000006
000002
000000G
000002

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50
MOV

SuUB
MOV
MOV
MOV

TRAP

000034

MOV
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
MOV
MOV
JSR

ADD

RTS

S.DUPPKT,(SP)
@2,(SP)
oxXx32, -(SP)
SP,RO

14
S.PATTERN, (SP)
0Xx33, -(SP)
SP,RO

14
S.DUPPKT,RO

DUPPKT(RO),(SP)
(SP), -(SP)
03,-(SP)
SP,RO
14
S0UPPKT+2,(SP)

VAX-11 Blies-16 V3-555

SEQ G0

Page 209

SPIDER
: [ DOUCE SUS
T TE .FALCONIC
ERS
NRGAR Ho L
H

| 4.4

6647

Spo‘

6668

B SP.‘
H

6669

SP,»

6670

6664

PC,EMS.BLK

234,5P
PC

;i Routine Size:
63 words,
Routine Base:
$CODE$ + 15102
i Maximum stack depth per invocation:
15 words

6657

L16
NRGAMZ

RD/RX EXERCISER

vol.¢2

ERROR MESSAGE SUBROUTINES

6672

6673
6674
6675
6676

6677
6678
6679

ROUTINE EMS_DUP

!
E

B
e
R
e
B
B
RE B
SR B
W
e S
S
B
B
W

015300

015302
015304
015306
015310
015312
015314
015316
015320
015322
015324
015326
015330
015332
015334
015336
015340

6689
6690
6691
6692
6693
6694
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705

VAX-11

Bliss-16

V3-555

SEQ_0i0#
Page 210

SPIDERS$USERS:
[ DOUCETTE.FALCONICNRGAA & 1

THE DUP PACKETS ONLY ASSOCIATED WITH DUP RECEIVED DATA COMMAND

éogin
OWN

MESSAGETYPE : VECTOR [6] INITIAL (T_QUE, T _DEF, T_INF, T_TER, T_FAT, T_SPL),
MSGNUMBERS
: VECTOR [9) INITIAL (M_TER, M BIN. M COD. M_DAT, M W. M_ORP, M_UP, M UL, n_ASC),
RCD_ERRORS
: VECTOR [5) INITIAL (ebh_ 30 E_UNT, E _BLK,
' TABLE OF BASIC, HARD ERROR MESSAGE ADDRESSES,

B
SR
e

6687

6685

NOVALUE

15-Dec-1983 10:21:50

THIS ROUTINE PRINTS OUT THE LISTING OF
AND TE SEND DATA COMMAND.

6681
6683

10:24:41

‘e

)

15-Dec-1983

!PRINTB (XX13,

.CDISK);

PRINTB (XX29);
if .duppkt [duptype) lss 6
then
.
PRINTB (.MESSAGETYPE [.DUPPKT
else

printb (ex_op,

[DUPTYPE)

11)

.duppkt (duptypel);

PRINTB (XX30);
ir'..&"’" [dupmesg]

1ss 9

gI,YNTB ( .MSGNUMBERS [ .DUPPKT [DUPMESG] - 11);
mn

IF .DUPPKT [DUPMESG) EQGL 3

THEN

BEGIN

PRINTB (XX31);
EgNTB ( .RCD_ERRORS [ .DUPPKT [DUPBF1]1]);
end

else printb (ex_op,
end;

.duppkt [dupmesgl);

MESSAGETYPE:
LWORD
.WMORD
LWORD

. WORD
. WORD
.WORD

MSGNUMBERS
:
L.MORD

T.QUE
T.DEF
T.INF

T.TER
T.FAT
T.SPL

.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WMORD
.WORD

M.TER
M.BIN
M,.COD
M.DAT
M.UR
M.URP
M.UP
M.UL
M,.ASC

.WORD
JMORD

EBH, 30
E.UNT

RCD.ERRORS
:

E DEV E_ZER);
INDEXED BY STATUS CODE

"DISK XXX*

< +°

ML6E

NRQAM?
vo1.2

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

015342
015344
015346

0000006
000000G
0000006

000000
000004
000010

012746
012746
010600

000000G
000001

013700

000000G

000012

000014

104414

000020

006200

000030
000032

000300
042700

000022
000024
000026

020027
002010
006300
016016
012746
010600

000062
000064
000066

000410
010016
012746
012746
010600

000000G
000002

000104
000110
000114

012716
012746
010600

000000G
000001

000120

013700

000130
000134
000136
000140
000144
000150

020027
002037
006300
016016
012746
010600

000154

013700

000164
000170
000172
000176
000202

000060

000072
000076

000100
000102

000116

000124

000152
000160

000204

000206
000212
000214

000220

E.BlK
E.DEV
E.ZER

.SBTTL

EMS.DUP ERROR MESSAGE SUBROUTINES

TRAP

MOV

DUPPKT, RO

6686

ASR
ASR
ASR

RO
RO
RO

6688

SWAB
BIC

000006

211
¢

0XX29, -(SP)
o1,-(SP)
SP,RO

ASR

177760

SEQ G
VAX-11 Bliss-16 v3-555
Page
SPIDERSUSERS:
[DOUCETTE .FALCON)CNRQAA &1 1

.MORD
.WORD
.WORD

EMS . DUP : MOV
MOV
MOV

006200
006200
006200

000036
000042
000044
000046
000052
000056

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

6685

i SP,s

RO
0177760,R0

CHP
BGE
ASL
MOV
MOV
MOV

RO, 06
1%
RO
MESSAGETYPE -2(R0O), (SP)
e1,-(SP)
SP,RO

BR
MOV
MOV

;
;

MOV
MOV

24
RO, (SP)
9EX.0P, -(SP)
02,-(SP)
SP,RO

MOV
MOV
MOV

#XXx30,(SP)
#1,-(SP)
SP RO

;

6692

900000G

MOV

DUPPKT, RO

: SP,e
;

6691

000011

cHP
8GE
ASL
MOV
MOV
MOV

RO,¢11
38
RO
MSGNUMBERS
- 2(R0) , (SP)
o1,-(SP)
SP,RO

66
e

000000G

MOV

DUPPKT , RO

;

6697

020027
001031
012716
012746
010600

000003

cHe
BNE
MOV
MOV
MOV

RO, 03
as
oXX31,(SP)
o1,-(SP)
SP,RO

;

6700

013700
006300
016016

000002G

MOV
ASL
MOV

DUPPKT+2,RO
RO
RCD . ERRORS(RO),
(SP)

015276
000001

104414

104414
005726

104414

042700

104414

042700

104414

012746

TRAP

170000

015312
000001
170000

000000G
000001

015336
000001

18:

2s:

TRAP
ST

TRAP

BIC

TRAP

BIC

TRAP

MOV

14
(SP)+

#170000,RO

9170000,
RO

01, -(SP)

: SP,e

o686
6690

; SP,s

: SP,e

: SP,a

6701

vol.<
000224
000226
000230
000232
000234

000236

000242
000246
000250

000252
000254
000260

15-Dec-1983 10:24:41
15-Dec -198% 10:21:50

RD/Rx EXERCISER
ERROR MESSAGE SUBROUTINES
MOV
TRAP

010600
104414

022626
000410
010016
012746

012746
010600
104414

005726
062706
000207

; Routine Size:

000000C

3s:

000002

000012

B9 words,

i Maximum stack depth per

(SP)e,(SP)e.

RO,(SP)

OEX.0P, -(SP)
@2, -(SP)
SP,RO
14

TRAP
TST

(SP)e

e12,sP

ADD

RTS

Rout ine Base:
sCODES
9 words
invocat on:

: SP,e

MoV

as;

SP.RO
14

cMe
B8R
MOV
MOV
MOV

SEQ GoOR

VAX-11 Bliss-16 v3-55%
~age
SPIDERSUSERS:
[DOUCE ! "€ .FALCONICNRQAA 8 1

15350

(6S

6699

6693
6704

H SP.‘
6677
6672

e
we
Se
B
B
R
Bs
SR
e
e
SR
SR
SR
SR
e
me
S5
Be
B
B
B
B
S

ERROR MESSAGE SUBROUTINES

6706
6707
6708
6709

6710
6711
©712
6713
6714
6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728

globel routine EMS_BLK (ADDR, LENGTH)

H
H
H

begin

litersal
MASK = #o'7';
PRINTX (CRLF);
incr COUNT
begin

from 1

if ((.COUNT
then

1) and MASK) eql O

IF AT START OF A NEW LINE

! PRINTX 4 SPACES

PRINTX (EX_WRD, ..ADDR);
ADDR = .ADDR + 2;

! PRINTX A WORD
! ADVANCE TO NEXT ADDRESS

if ((C.COUNT and MASK) eql 0) or

!
!

(.COUNT eql

.LENGTH))

then
PRINTX (CRLF);

IF AT THE END OF A LINE
WHEN DONE

! PRINTX <CR><LF>

end;

6735
6736

EMS.BLK ERROR MESSAGE SUBROUTINES

010146

R1,-(SP)

012746
012746
010600
104415

104415

! FOR EACH WORD TO PRINT

.LENGTH do

PRINTX (SPACE4);

6734

012746
010600

: novalue =

TO A LINE.

6730
6731
6732
6733

010100
005300
032700
001007
012716
012746
010600
104415
005726
017616
012746

SEQ 020%

VAX-11 Bliss-1€ v3-555
age 213
SPIDERSUSERS
: [DOUCE TTE ,FALCONICNROAR BL1 (66

THIS ROUTINE WILL PRINTX A BLOCK OF MEMORY WHICH IS "LENGTH" WORDS
LONG STARTING AT ADDRESS “ADDR“. PRINTING IS DONE IN OCTAL, 8 WORDS

B
SR
S5
Be
Be
We
W
W

15 Dec 1933 10:24:41
15-Dec -1983% 10:21:50

RD/Rx EXERCISER

NRQAM)
vol..

01,-(SP)

SP.RO

18:

000001

000012

MOV

2s:

MOV

6706
6718

SP,es

COUNT

67.9

,s
COUNT

6722

6724
SP.,s

ADDR,
&
SP,»

000072
000100
000104
000106
000112
000114
000120
000124
000126
000130
000132
000134

000136

000142
000144
000146
000150

15-Dec 1983 10:24:41
15-Dec-1983 10:21:50

RD/Rx EXERCISER

NRQAM.
gOl.[

ERROR MESSAGE SUBROUTINES

062766
032701
001403
020166
001007
012716
012746
010600

104415
005726
022626
005201
020166
003727
022626
012601
000207

000002
000007

000016

000014

0000006

000001

3s:

000010

Ss:

02,16(SP)
&7,R1

ADD
BIT
BEQ
cMP
BNE
MOV
MOV
MOV
TRAP
TST
CcMP
INC

33
Rl 14(SP)

MOV

$CODE$
53 words,
Rout ine Base:
; Routine Size:
8 words
i1 Maximum stack depth per invocation:

¢,ADDR
*,COUNT

6727
£729

;

COUNT ,LENGTH

6730

€732

SP.RO
15
(SP).
(SP)+,(SP).
R1
Rl 10(SP)

H Spv‘
:

6720

(SP)o.(SP)o
(SP)+,R1

:
:

6714
6706

RTS

;
;

OCRL‘ (SP)

o1, -“(5P)

cMP
BLE
cHP

VAX-11 Bliss-16 v3-555
Page 14
SPIDERSUSERS: [DOUCETTE ,FALCONICNRQAA
BL-1 (66

15632

; COUNT
; COUNT,LENGTTM

6719

E i

RD/RX EXERCISER

NRUGAMZ
vol.c

15-Dec 1983 10:24:41

ERROR MESSAGE SUBROUTINES

15-Dec -1983 10:21:50

VAX-11 Bliss-16 V3-555

w8
B

THIS ROUTINE PRINTS ALL TABLES IN AN EFFORT TO FIND THE MISSING MESSAGE OR THE PROBLEM

‘begin

!PRINTB (EB_DCT,dct);

! PRINT “ DCT TABLE CONTENTS”

'PRINTB (EB_COMM, .DCT [0, RR_BEG)):

! PRINT “COMMAND RING” AND STARTING ADDR

! PRINT BLOCK OF WORDS

1EMS_BLK (DET, DCT_LEN);

'EMS _BLK (.DCT [0, RR_BEG) - 4, COMM_LEN);

* PRINT BLOCK OF COMMAND RING

IPRINTB (EBNEX1, .DCT [0, RR_POLL1);

{PRINTB (EB_NEX2,

tPRINTB (EBNEX3, .DCT [0, CR_POLL] - 8);
'PRINTB (EB_PKT);
tincr COUNT from O to PKT_CNT - 1 do
in

tPRINT ADDR OF PACKET TO BE POLLED
'PRINT ADDR OF PACKET TO BE POLLED
! PRINTS “PACKETS IN MEMORY"
! FOR EACH MSCP ENVELOPE

_BLK ((MSCP_PKT [.COUNT, 0,0,16,0)), PKT_LEN);

IPRINTS CONTENTS OF PACKETS

'PRINT ADDR OF COMMAND OF NEXT RR POLL

..DCT [0, RR_POLL) - 8);

‘end;

EWTM EMS_RAL : NOVALUE =
.

THIS ROUTINE PRINTS ALL return packets IN AN EFFORT TO FIND THE MISSING packet OR THE PROBLEM

g
6767
6768
6769
6770
6771
6772
6773

in
]
!PRINTB (EB_RAL);
tincr COUNT from O to RP_CNT |

tend;

1 do

E“:!LK (CRETPKT « .COUNT = RP_LEN) , RP_LEN);
H

Page 215

SPIDERSUSERS
: [DOUCE TTE ,FALCONICNROAR BL1 (£

IROUTINE EMS_MAL : NOVALUE =
e

SEQ 011

! PRINT BLOCK OF WORDS

F1
RD/Rx EXERCISER

000000
000004
000010
000012

000016
000020
000024
000030
000032
000034

000036
000042
000044
000050
000054
000056
000060
000064

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

ERROR MESSAGE SUBROUTINES

6775
6776
6777
0778
6779

routine EMS_LBN : novelue =
-

6774

THIS ROUTINE PRINTS (EXTENDED) ONE OF TWO BLOCK NUMBERS APPEARING IN
THE CURRENT RETURN PACKET. NORMALLY, THE LBN FIELD IS PRINTED; THIS
FIELD WAS COPIED INTO THE RETURN PACKET FROM THE ASSOCIATED COMMAND
PACKET. HOMEVER, IF THE “FLAGS" FIELD OF THE CURRENT RETURN PACKET

6780

INDICATES “BAD BLOCK REPORTED”, THEN THE "FIRST BAD BLOCK” FIELD IS

6781
6782
6783

6784
6785
6786
6787
6788
6789
6790

6791
6792

013700
005760
100012
016046

011646
012746
012746
010600
104415
000411

016045
011646
012746
012746
010600
104415
062706
000207

i Routine Size:

2
SEQ Oz
VAX-11 Bliss-16 v3-555
age 217
SPIDERSUSERS
: [DOUCETTE ,FALCONICNRQAA
.BL 1 (69

PRINTED.

IMPLICIT INPUTS:
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET
.

NRQAM.
vol.e

5;.217_757 (RP_ADDR [FLAGS],
t

PRINTX (XX21,

.RP_ADDR [BBLK_LO],

.RP_ADDR [BBLK_LO])

PRINTX (XXx22,

.RP_ADDR [LBN_LC],

.RP_ADDR [LBN_LO));

else

14(RO)
1s

RP.ADDR,RO

6788

MOV

40(R0O), -(SP)

6790

MOV
MOV
MOV

oxx21,-(SP)
03,-(SP)
SP.RO

B8R

(SP),-(SP)

MOV

TRAP

1¢:

0000006
000003
000010

2s:

XXXXXX,*

XXXXXX.*

TST
BPL

000040

000050

“LBN:

EMS.LBN ERROR MESSAGE SUBROUTINES

EMS.LBN:MOV

000000G
000003

"BAD BLOCK REPORTED:

.SBTTL

0000006
000014

IF BAD BLOCK REPORTED

EF_BBR)

MOV
MOV
MOV
MOV
MOV

SO(RO), -(SP)
(SP),-(SP)
oxx22, -(sSP)
#3,-(SP)
SP.RO

TRAP

ADD

#10,5P

RTS

27 words,
Routine Base:
S$CODES$
i Maximum stack depth per invocation:
6 words

16004

6788
6792

SP,»

6788
6774

Gl
NRQAM,

RD/Rx EXERCISER

vOl.c

15-Dec-1933 10:24:41

ERROR MESSAGE SUBROUTINES

15-Dec-1983 10:21:50

VAX-11 Bliss-16 Vv3-555

we
e

THIS ROUTINE IS CALLED FROM 'SEQUEN' AND 'DATAGM’' AND PRINTS THE CONTENTS OF THE

ERROR-LOG PACKET

¥ -

SR B

begin

local

ELOG_ADDR : ref block [EP_LEN, word] field (EP_FIELDS),

REASON : word,

ELOG_CODE : byte,

6807

ELOG_SUB : word;

6809
6810
6811
6812
6813

ELOG_ADDR = ELOG_PKT + (.index #« EP_LEN = 2);
REASON = .ELOG_ADDR [EL_FORMAT];
DISK_NUM = .ELOG_ADDR [EL_DK_NUM];
ELOG_CODE = .ELOG_ADDR [EL_CODE];
ELOG_SUB = .ELOG_ADDR [EL_SUBCODE):

6816
6817

if (.REASON eql FORMAT_CNTR) or
( .REASON eql FORMAT_HOST)

:‘éi;

PRINTB (ELG_00);

6818

then

6820

else

6823
6824

if (.ELOG_CODE
( .ELOG_CODE

6819

6825

6827
£828

6829

6830
6831
6832

PRINTB (.ELG_FMT [ .REASON))
PRINTB (.ELG_FMT [.REASON],

then

! ERROR LOG PACKET'S ADDRESS
' FORMAT
! DISK NUMBER
' CODE
! SUBCODE

! ERROR-LOG MESSAGE RECEIVED

* PRINT BASIC REASON
.DISK_NUM);

* PRINT BASIC REASON WITH DISK NUMBER

gtru 0) and
legqu 11)

PRINTX CASTERISK);
PRINTX (.ERR_COD [.ELOG_CODE - 11);:

' CODE

if .ELOG_CODE eql ST_DIA

! MESSAGE FROM INTERNAL DIAGNOSTICS

end
else

6835

:l‘l!flfx (ASTERISK);
n

6836
6837

6838

6839

6840
6841
6842
6843
6844
6845
6846

PRINTX (.ERR_COD [12]);
end;

if (.ELOG_CODE eql ST_MFE) end
(.ELOG_SUB leaqu 10)

then

PRINTX (CRLF);
PRINTX (ASTERISK);

mNTX (.TBL_MWE [.ELOG_SUB));
B

RS B

SR B

BE SR

SR S5

S5 BE

SR B

SR SR Be

DISK_NUM : byte,

6806

6848

if (.ELOG_CODE eql ST_DAT) and

Page 2158

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAR . BL1 (70

globel routine EMS_EL (index) : novalue =

SEG 0212

! MEDIA FORMAT ERROR

H1
RD/RXx EXERCISER
ERROR MESSAGE SUBROUTINES
6849
6850
6851
6852
6853

6859

B
S0
SR
B
e
S5

(70

DATA ERROR

PRINTX C.TBL DAT [ .ELOG_SUBI);:

if (.ELOG_CODE eql ST_HST) and
(.ELOG_SUB lequ 4)
.
then

PRINTX (CRLF);

PRINTX (ASTERISK);
mNTX (.TBL_HST [.ELOG_SUB]);

6867
6869
6870
6871
6874

! HOST ACCESS ERROR

Be
Sr

6865

B
S5

age 219

B8
S
S5

)

SPIDERS$USERS: [DOUCETTE .FALCONICNRQAA.BL1

end;

if (.ELOG_CODE eql ST_CNT) and

(.ELOG_SUB lequ 3)

m;fl’x (CRLF);

PRINTX (ASTERISK);

PRINTX (.TBL_CNT [.ELOG_SuUB]);

SEQ 0Oz14

PRINTX (ASTERISK);

6861
6862
6863

Be S5

15-Dec-1983 10:21:50

VAX-11 Bliss-16 Vv3-555

PRINTX C(CRLF);

6855
6856
6857

15-Dec-1983 10:24:41

(.ELOG_SUB leaqu 15)

then

NRQAM.
vOl.c

CONTROLLER ERROR

end;

if (.ELOG_CODE eql ST_DRV) and

th.'(‘.ELw-SLD leau 8)
in

PRINTX (ASTERISK);
PRINTX (.T8L_DAV [ .£L0G_Su81);

PRINTX (CRLF);

6879

! DRIVE ERROR

.REASON eql FORMAT_XFER

IF DISK XFER INVOLVED

then

! PRINT LBN OR RBN

if .ELOG_ADDR [EL_BLOCK_TYPE] eql TYPE_LBN

BE B4

el se

.ELOG_ADDR [EL _BLOCK],

PRINTX (EX_RBN,

.ELOG_ADDR [EL_BLOCK])

.ELOG_ADDR [EL_BLOCK],

.ELOG_ADDR [EL _BLOCK]):

PRINTX (CRLF);

EMS_BLK ((.ELOG_ADDR + 2), ((.ELOG_ADDR [EL _MSGLEN] +« 1) 7/ 2) + 2);

ELOG_ADDR [EL_CONTENTS] = EMPTY;

Be
B

000012

PRINTX (Xx22,

6897

end;

004137
005746
016646
012746

0000006

EMS.EL::JSR

000020
000102

MOV
MOV

! PRINTX CONTENTS OF PACKET

! DECLARE SAVE AREA FREE

.SBTTL

EMS.EL ERROR MESSAGE SUBROUTINES

TST

-(SP)

R1,$SAVES

20(SP), -(SP)
#102, -(SP)

6793

INDEX,»

6809

11
15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES
JSR
ADD
MOV

CLR
BISB
MOVB

20(R3),R1

B8IC
MOV
MOV

€174000,R1

MOV
ASL
TST

BEQ

1s:

MOV
MOV

012746

104414

105702

3s:

001423

101020

006300
016016
012746
010600
104415
000417
120227

000037

44:

MOV
MOV
MOV
TRAP
BR
CcMPB

S
S8

REASON,»

6819

;

REASON

6816

REASON,
«

6817
6819

ELG.FMT(R5),(SP)
; SP,»

;

TST8

ASL

1777766
000001

6814

SP,»

BEQ

CLR
B8ISB

6813

;

14
R4 ,RS
RS
R4
1$
R4, &1
2$

MOV
MOV
TRAP
T57

TRAP

6811
6812

SP,RO

CLR

BHI
MOV
MOV
MOV

012716
012746
010600
104415

ELOG.CODE
«,ELOG.CODE
«(ELOG.ADDR),ELOG.SUB
ELOG.SUB
ELOG.SUB
ELOG.SuUB
ELOG.SuUB
ELOG.SUB
+« ,ELOG.SUB

6810

#€ELG.00,(SP)

TRAP

2s:

R1
R1
R1
R1
R1

#177740,R0
R2
RO,R2

TRAP

000000G

+(ELOG.ADDR),

20(R3),R0O

BIC
CLRB
BIS
MOV
ASR
ASR
ASR
ASR
ASR

174000

16(R3),.R4
12(R3),4(SP)

000020

+ ,ELOG.ADDR

REASON
+«(ELOG.ADDR),REASON
«(ELOG.ADDR),DISK.NUM

177740

#ELOG.PKT,RO

RO,R3
Ra

MOvVB

PC,.BL$MUL

000016
000022

SEQ 0z!5
VAX-11 Bliss-16 v3-555
age 220
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA BLI (70

NRQAMZ
vol.e

OASTERISK, (SP)
e1,-(SP)

SP,.RO

; ELOG.CODE

6823

;

6824

R2, 437

ELOG.CODE,»

6827

: SPO.
ELOG.CODE,
»

RO
ERR.COD-2(R0),(SP)

SP,.RO
15
5S¢

DISK.NUM,
=

6816
6821

:
i

SP,»

: ELOG.CODE,»

6828

J1
15-Dec-1983

RD/RX EXERCISER

15-Dec-1983 10:21:50

ERROR MESSAGE SUBROUTINES

001015
012716
012746
010600
104415
013716
012746
010600

0000006
000001

120227
001031
020127

101026
012716
012746
010600

000005

S5%:

016016
012746
010600
104415
062706

001031
020127
101026
012716
012746
010600
104415

6836

: ELOG.CODE, +

2:33

: ELOG.SUB,+

6840

6843

SP,RO
15
QASTERISK,(SP)

;i SP,»

000001

@1,-(SP)
SP.RO

15
R1,RO

RO
TBL.MFE(RO),(SP)

000001

000010

7%:

000017

000001

6844

; SP,»

; ELOG.SUB,
*

6845

} €L0.CoDE,«

6848

: ELOG.SUB,»

6849

6852

: SP,»
OASTERISK,(SP)

000001

000120°
000001

000011

i SP,»

3¢

006300

; SP,s

@1,-(SP)

010100

001031
020127
101026
012716
012746
010600
104415
012716
012746
010600
104415
010100

SP.RO
15
(SP)+,(SP).
R2,05

SP,»

OCRLF ,(SP)

104415

016016
012746
010600
104415
062706

;

6835

0000006
000001

104415

012716
012746

ERR.COD+30,(SP)

000012

SEQ 0216
Page 221

SPIDERSUSERS: [DOUCETTE.# ALCON]ICNRQAA .BL1 (70

’

01,-(SP)

6%:

VAX-11 Bliss-16 v3-S55

:
6%
,
(SP
SASTERISK
@1,-(SP)

SP,RO
15

0000306
000001

104415

10:24:41

8s:

15
R1,RO
RO
TBL.DAT(RO),(SP)
o1, -(SP)
SP,RO

SP,s

; ELOG.SUB,+

6854

i SP,s

: ELOG.CODE,s

6837

: ELOG.SUB,»

6858

6861

:
TRAP

6853

SP,»

I<1]

) B

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

012716
012746
010600

104415
010100
006300
016016
012746
010600
104415
062706
120227
001031
020127
101026
012716
012746
010600

#ASTERISK,(SP)

000000G
000001

#1,-(SP)
SP,.RO

6862
SP,s

;

6863

TBL.HST(RO),(SP)

@1, -(SP)
SP,RO

000012

15
#6,SP

9s:

R2,#12

10$
R1,03
10¢
OCRLF, (SP)

000172’
000001

000013

006301

TRAP

BIT
MOV
MOV
MOV

6867

ELOG.SUB,+

6870

6871

SP,»

; ELOG.SUB,+

6872

: SP,»s

: ELOG.CODE, »

2:?3

; ELOG.SUB,»

6876

;

6879

: SP,=
OASTERISK, (SP)
€1, -(SP)
SP,RO
15
R1
TBL.DRV(R1),(SP)

SP,RO
15
#6,SP

;

R4, 02

11%:

;

000001

TRAP
ASL
MOV
MOV

2:22

SP.RO
15
R1.RO
RO
TBL.CNT(RO),(SP)

000010

012746
010600
104415

: ELOG.CODE, +
i SP,s

10%:

TRAP

SP,s

SP,RO
15
OASTERISK, (SP)

e1,-(SP)

104415
012716

016116
012746
010600
104415
062706
020427
001031
032763
001012
016316
011646
012746
012746

; ELOG.SUB,+

104415
012716
012746

010600
104415
010100
006300
016016
012746
010600
104415
062706
120227
001030
020127
101025
012716
012746
010600

SEQ 0217
VAX-11 Bliss-16 V3-555
Page 222
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BL1 (70

14%
€170000,60(R3)
12¢
S56(R3),(SP)
(SP),-(SP)
oxxa22, -(SP)

;

6880

SP,»

6881

SP,»

6878

; »,+(ELOG.ADDR)

6887

: #(ELOG.ADDR),*

6889

; REASON,
»

6884

000772
000774
000776
001000
001004
001006
001012
001016
001020
001022
001026
001032
001036
001040
001042
001046
001050
001054
001056
001062
001066
001072
001100
001102
001106
001112
001116

15-Dec-1983

RD/RX EXERCISER

NRQAM?
\;01 .2

15-Dec-1983 10:21:50

ERROR MESSAGE SUBROUTINES

010600
104415
000411

016316
011646

012746
012746
010600
104415
062706
012716
012746
010600

12%:

13%:
14%:

000006
000000G

104415
012716
060316
016346

005216
012746

004737
010066
062766
005726
004737

105063

062706
000207

000002
000002

015632°

000001
000016

000002

15
13$
56(R3),(SP)
(sP),-(SP)
@EX.RBN, -(SP)
3, -(SP)
SP.RO
15
6 ,SP

BR
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
MOV
ADD
MOV

OCRLF, (SP)

@1,-(SP)
SP,.RO

@2,(SP)

R3,(SP)
2(R3),-(SP)

INC
MOV
JSR
MOV
ADD
TST
JSR
CLRB
ADD

(SP)

SEQ 0218
VAX-11 Bliss-16 V3-555
Page 223
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA.BL1 (70

i SP,»
:

*«(ELOG.ADDR),*

SP,»

6887

6891

6893

;: SP,»
:
s ELOG.ADDR,*

6894

; *(ELOG.ADDR),*

PC.BL$DIV

RO,2(SP)
02,2(SP)

(SP)+

PC,.EMS.BLK

1(R3)

¢16,SP

RTS

$CODE$
Routine Size:
Rout
ine Base:
296 words,
S
16 words
i Maximum stack depth per invocation:

SP,RO

MOV
TRAP

000056

10:24:41

16072

; =(ELOG.ADDR)

6895

6793

M1
RD/RX EXERCISER

NRQAM?
vo1l.2

ERROR MESSAGE SUBROUTINES

15-Dec-1983 10:21:50

6898
6899
6900

global routine EMS_CMP (ADDR) : novalue -

6902

; COMPARE ERROR

6901

6903
6904
6905
6906
6907
6908
€909
6910
6911
6912
6913
6914
6915
6916
6917
6918
6919
6920
6921
6922

016601
013746
012746
012746
010600
104414
012716
012746
010600

104414
013716

012746
010600
104414
016116
011646
012746
012746
010600

104415
013700
016016

011646
012746
012746
010600

VAX-11 Bliss-16 V3-555

SEQ 0219

Page 224

SPIDERSUSERS
: [DOUCETTE ,FALCONICNRGAA .BL1 (71

¢ THIS ROUTINE IS CALLED FROM 'HOST_WRT_CHK' AND PRINTS RELEVENT DATA ON A HOST

begin

local

ORIG_ADDR : ref block [RP_LEN, word] field (RP_FIELDS);

PRINTB (Xx13, .CDISK);

ORIG_ADDR= .ADDR;

! ADDRESS OF THE WRITE RETPKT

PRINTB (DASH);

PRINTB (.ERR_ oo [121);
PRINTX (EX_LBW, .ORIG_ADDR [LBN_LO], .ORIG_ADDR [LBN_LOJ);
PRINTX CEX_LBR. .RP_ADDR (LBN_LO), .RP_ADDR [LBN_LO01);

[

! » . HOST COMPARE ERR
! LBN (WRITE)
! LBN (READ)

! “DISK XXX"

PRINTX (EX_CBW. .ORIG_ADDR [CBCNT_LO1):
PRINTX (XX25, .ORIG_ADDR [BCNT_LO]);
PRINTX (EX_CBR,

.RP_ADDR [CBCNT_LO]);

PRINTX (XX25, .RP_AKDDR [BCNT_LOJ);
PRINTX (EX_BOW, .ORIG_ADDR [BUFF 11. .oats ADDR [BUFF_01);
murx (EX_BDR, .RP_ADDR [BUFF_17, .RP_ADDR [BUFF _01);

! BYTE COUNT (WRITE)

! BYTE COUNT XMITTED (WRITE)
' BYTE COUNT (READ);

! BYTE COUNT XMITTED (READ)
! BUFFER ADDRESS (WRITE)
' BUFFER ADDRESS (READ)

010146

000024

15-Dec-1983 10:24:41

000004
0000006
0000006
000002
0000006
000001
0000306
000001
000050

0000006
000003
0000006
000050
0000006
000003

.SBTTL

EMS.CMP ERROR MESSAGE SUBROUTINES

MOV

R1,-(SP)

MOV
MOV
MOV
MOV
MOV

4(SP),R1
CDISK, -(SP)
#XX13, -(SP)
02,-(SP)
SP,RO

MOV
MOV
MOV

®DASH, (SP)
01,-(SP)
sr RO

;

MOV
MOV
MOV

m COD+30,(SP)
o1,-(SP)
sp RO

;

MOV
MOV
MOV
MOV
MOV

souu) (SP)
(sP),-(SP)
QEX.LBMW, -(SP)
83, -(SP)
SP,RO

; «CORIG.ADDR),*

MOV
MOV
MOV
MOV
MOV

RP . ADDR,RO
SO(R0),(SP)
(SP),-(SP)
9EX.LBR, -(SP)
#3,-(SP)

TRAP
TRAP

TRAP

; ADDR,ORIG.ADDR
:

6898

6910
6911

; SP,s
6912

; SP,s

6913

; SP,s

6914

: SP,s

6915

N1
NRQAM,
vol.c

ERROR MESSAGE SUBROUTINES

)

000124
000126

104415
016116

000132
000136

012746
012746

000152

104415
016116
012746
012746
010600

000142
000144

010600

104415

013700
016016

012746
012746
010600

104415

000044
0000006
000002

0000006
000020
000000G
000002

016116
016146
012746
012746
010600
104415
013700
016C16
016046
012746
012746
010600
104415
062706
012601
000207

000024
000026
0000006
000003

000000G
000024
000026
000000G
000003
000062

;

*(ORIG.ADDR),#

@, -(SP)
SP,RO

SP,s

;

#(ORIG.ADDR),#*

SP,s

15
20(R1),(SP)

oXx25, -(SP)

#2,-(SP)

SP,.RO
15
RP.ADDR,RO
44(R0O),(SP)
#EX.CBR, -(SP)
@#2,-(SP)
SP,RO
15
RP.ADDR,RO

000000G
000044
0000006
000002

ZO(RO) (SP
aoxXx25, -(SP)
#2,-(SP)

15
24(R1),(SP;

29(&1) -(SP)

o€x .-(SP)

. -(SP)

SP.RO
15
RP. ADDR RO

TRAP

MOV
MOV
MOV
MOV
MOV
MOV

24(RO).(SP)

26(RO,.

TRAP

ADD
MOV

$CODES$
105 words,
Routine Base:
; Routine Size:
28 words
; Maximum steck depth per invocation:

6917

SP.‘

6919

B SP-‘

; *(ORIG.ADDR),=*

;

*(ORIG.ADDR),*

6920

: SP.»
H

6921

5P
;

062 SP
(SP)+,R1

:
H

17212

6916

6918

SEX.BDR, -(SF
#3,-(SP)
SP RO

RTS

SEQ 0220
VAX-11 Bliss-16 V3-555
Page 225
SPIDERSUSERS
: [DOUCETTE.FALCONICNRQAA.BL1 (71

44(R1),(SP)

¥EX.CBMW, -(SP)

000020
000000G
000002

013700
016016
012746
012746
010600

104415

000272
000276
000302
000306
000310
000312
000316
000320

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50

RD/RX EXERCISER

SP,»

6905
6898

vol..
)

6923

000000
000004
000006
i

004757
104423
000207

Routine Size:

6924

6925

LSBTTL

EMS.01::JSR

000000V

4 words,

TRAP
RTS

EMS.01 ERROR MESSAGE SUBROUTINES
PC . MSEMS. .01
H
23
PC

Qo)

<26
(7,

012746

000004

012746
012746
010600
104414
062706
000207

0000006
000002

6923

$SCODES - 17534
Rout ine Base:
2 words
invocetion:

PRINTB (EBS_O1, MAX_UNITS);
ENDMSG;

000000
000010
000014
000016
000020
000024

SEQ

VAX 11 Bliss 16 v3-555
Page
SPIDERSUSERS
: [DOUCE TTE . FALCONICNRIAA 5L 4

BGNMSG (EMS _017;

Manimum steck depth per

15 Dec -1983 10:24:41
15 Dec -1983 10:21:50

RD/Rx EXERCISER
ERROR MESSAGE SUBROUTINES

NRUAM,

.SBTTL

MS$EMS.01 ERROR MESSAGE

MOV

04, -(SP)
#€BS.01, -(SP)

SP,RO

i SP,e

6,5SP

6923

6927

MS$EMS.01:

MOV
MOV

MOV
TRAP

000006

“MORE THAN XX UNITS SPECIFIED"

ADD

RTS

SUBROUTINES

02,-(SP)

6924

$CODES$ -« 17544
Routine Bese:
i Routine Size:
11 words,
i Maximum stack depth per invocetion:
S words
'
'

000000
000004
000006

6926
6927

004737
104423
000207

BGNMSG (EMS_10);

000000V

.SBTTL

EMS. 10 ERROR MESSAGE SUBROUTINES

TRAP
RTS

23
PC

EMS.10::JSR

SCODES
i Routine Size:
Routine Base:
4 words,
i Maximum steck depth per invocation:
2 words
:
3

6928
6929

PRINTB (EBD_10,
ENDMSG;

013746

0000006

063716
012746
012746
010600
104414
262706

0000006
000000G
000002

000006

.RDRX_ADDR +

PC,MS$EMS. 10

17572

.OF RC);

.SBTTL
MS$EMS.10:

"NO RESPONSE AT ADDRESS XXXXXX"

MSEMS.10 ERROR MESSAGE SUBROUTINES

RDRX . ADDR, -(SP)

MOV

SP.RO

] SP.‘

ADD

06,SP

MOV

ADD
MOV

MOV

TRAP

OF .RC,(SP)
#€BD.10, -(SP)
14

6928

6927

L“;

NRQAM.

RD/RX EXERCISER

\;Ol.&

Q000

ERROR MESSAGE SUBROUTINES
R1S

Routine Base:

13 words,

;: Maximum staeck depth per invocation:
6930
6931

000000

004737

000006

000207

000004

104423

4 words,

PRINTB (EBD_12,

6932

013746

0000006

000004
000010
000014
00016
000020

012746
012746
010600
104414
062706

000000G
000002

000207

Routine Base:

invocation:

ENDMSG;

000000

000024

6934
€935

000000

004737

000006

000207

000004

104423

: Routine Size:

2 words

6936
6937
€938

EMS.12 ERROR MESSAGE SUBROUTINES
PC,MS$EMS .12
;

TRAP

6931

RTS

S$CODES$ . 17634

.RDRX_ADDR);

"INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX*

.SBTTL

MS$EMS.12 ERROR MESSAGE SUBROUTINES

MOV

RDRX .ADDR, -(SP)

MSEMS.12:

MOV
MOV
MOV
TRAP
ADD

000006

#€BD.12, -(SP)
02, -(SP)
SP,RO
14
#6,5P

RTS

6932

; SP,»
:

6931

6935

17644

BGNMSG (EMS_13);

000000V

4 words,

; Maximum stack depth per

;
:

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA B 1

SCODES + 17602

i Routine Size:
11 words,
Routine Bese:
$CODES
i Maximum stack depth per invocation:
S words
f
:

SEQ Oros

.SBTTL
EMS.12::JSR

000000V

i Maximum stack depth per

6933

5 words

VAX-11 Blies-16 V3-555

BGNMSG (EMS_12);

;: Routine Size:

15 Dec-1983% 10:21:50

000207

; Routine Size:

'
3

15 Dec-1983 10:24:41

LSBTTL

EMS.13 ERROR MESSAGE SUBROUTINES

TRAP

EMS.13::JSR

Routine Bese:

invocation:

PRINTB (EBD_13,
EMS_SA ();

2 words

PC,M$EMS. 13

RTS

SCODES

« 17672

.STEP);

! "STEP X READ ERROR"
! PRINTX SA CONTENTS

ENDMSG;

.SBYTL

M$EMS,.13 ERROR MESSAGE SUBROUTINES

D2
ERROR MESSAGE SUBROUTINES

000000

013746

0000006

000004
000010
000014
000016
000020
000024
000030

012746
012746
010600
104414

0000006
000002

004737
062706

000207

000000
000004
000006

6939

6940

004737
104423
000207

6941
6942
6943

$CODES

Rout ine Base:

invocation:

5 words

LSBTTL

EMS.14::JSR
.

Routine Bese:

invocation:

PRINTB (EBD_14,
EMS_SA ();
ENDMSG
;

0000006

000004
000010
000014
000016
000020
000024
000030

012746
012746
010600
104414
004737
062706
000207

0000006
000002

000006

004737
104423
000207

€936

SP,e

;

6937
6935

EMS.14 ERROR MESSAGE SUBROUTINES
14
PC,MSEMS.
H
23

6940

17702

007122
000006

2 words

TRAP
RTS

$CODES

17734

! “8AD SA CODE FROM DEVICE XXXXXX*"
! PRINTX SA REGISTER CONTENTS

.IRDRX_ADDR);

LSBTTL

MSEMS.14 ERROR MESSAGE SUBROUTINES

MOV

IRDRX.ADDR, -(SP)
14, -(SP)
#EBD.

9.“0

H SP..

PC,EMS.SA
#6,SP
PC

H
H

€942
6340

6945

MSEMS.14:

MOV
MOV

MOV
TRAP

JSR
ADD

RTS

; Routine Size:
13 words,
Routine Bese:
$CODES
; Maximum steck depth per invocation:
S words

000000
000004

’

:
H

06 ,SP
PC

RTS

000000V

013746

6944
6945

PC,EMS.SA

JSR
ADD

SEQ 0z27%
VAX-11 Blies-16 v3-555
Page 28
SPIDERSUSERS:
[DOUCETTE ,FALCONICNRQAR .BLL (72

BGNMSG (EMS_14);

000000

H
3

STEP, -(SP)
0EBD.13, -(SP)
02, -(SP)
SP,RO
14

MOV
MOV
MOV
MOV

007122
000006

; Routine Size:
4 words,
: Maximum stack depth per
H
H
H

M$EMS.13:

TRAP

; Routine Size:
;i Maximum stack depth per

15-Dec-1983 10:24:41
15-Dec -1983 10:21:50

RD/RX EXERCISER

NRQAMO
gOI.E

#2,-(SP)

6941

17744

BGNMSG (EMS_18);

000000V

EMS.18::JSR

TRAP

RTS

EMS.18 ERROR MESSAGE SUBROUTINES
PC,MSEMS.18

ERROR MESSAGE SUBROUTINES

)

Rout ine Size:

4 words,

; Ma.imum stack depth per
6946

6947
6948

013746

000000G

000004
000010
000014
000016
000020
000024
000030

012746
012746
010600
104414
004737
062706
000207

000000G
000002

; Routine Size:

004737
104423
000207

13 words,

.
e
o
-

000000

004737

000004

000207

; Routine Size:

€956

SEQ 0(?4

VAX-11 Bliss-16 Vv3-555
age 229
SPIDERSUSERS: [DOUCETTE, FALCON}C'GOAA 8L1 (72

17776

! “DISK XXX WENT OFFLINE”
! PRINTX RELEVANT RETPKT FIELDS

.CDISK);

.SBTTL

MS$EMS.18 ERROR MESSAGE SUBROUTINES

MOV

CDISK, -(SP)
@EBD.18,-(SP)

MOV
TRAP

SP.RO

: SPO‘

PC,EMSCMD
6 ,5P

H
H

6947
6945

6950

MSEMS.18:

MOV
MOV

JSR
ADD

RTS

6946

$CODES . 20006
Routine Base:
invocation:
S words

000000V

.SBTTL

EMS.21 ERROR MESSACE SUBROUTINES

TRAP
RTS

EMS.21::JSR

Routine Base:

invocation:

2 words

PC.MSEMS. .21

(]

$CODES -« 20040

! CONTENTS OF RETURN PACKET

EMSCMD ();
1EMS_RAL ();
TEMS_MAL ()
ENDMSG;

010156

! gll return packets
! all message packets

MSEMS.21:

JSR

RTS

3 words,
Maximum stack depth per
6955

$CODES$ -

10:24:41
10:21:50

BCONMSG (EMS_21);

; Routine Size:
4 words,
: Maximum steck depth per
6951
6952
6953
6954

2 words

010156
000006

; Maximum steck depth per
6949
6950

Routine Base:

invocation:

PRINTB (EBD_18,
EMSCMD ();
ENDMSG;

000000

000000
000004
000006

15-Dec -1983
15 Dec-1983

RD/RX EXERCISER

NRQAM2
voli.¢o

Routine Bese:
invocation:
1 word

BGNMSG (EMS_22)

$CODES

MS$EMS .21 ERROR MESSAGE SUBROUTINES

PC ,EMSCMD
PC
- 20050

:
3

6951
6950

F ()

15-Dec-1983
15-Dec-1983

RD/RX EXERCISER

ERROR MESSAGE SUBROUTINES

004737
104423
000207

;
;

000000

004737

015102’

000004

000207

ENDMSG;

004737
104423
000207

6961

2 words

.SBTTL
MSEMS.22:
JSR
Routine Base:
invocation:
1 word

004737

010156

000004

000207

MS$EMS.22 ERROR MESSAGE SUBROUTINES

PC,EMS.DBN
PC

6957
6956

6960

« 20066

.SBTTL

EMS.30 ERROR MESSAGE SUBROUTINES

TRAP

EMS.30::JSR
Routine Base:

invocation:

2 words

PC,MSEMS. 30
PC

$CODES$ « 20074

! contents of return packet

.SBTTL
MS$EMS
. 30:

JSR
RTS

3 words,
Routine Base:
; Routine Size:
1 word
; Maximum steck depth per invocation:
W

20056

EMSCMD ();

000000

e oW

S$CODES$

RTS

ENDMSG;

! contents of dup buffer

000000V

6962

6963
6964
6965
6966

$CODE$

BGNMSG (EMS_30);

; Routine Size:
4 words,
; Maximum stack depth per

Rout ine Bease:

6956

;

RTS

3 words,
; Routine Size:
; Maximum stack depth per

000000
000004
000006

]

EMS_DBN ();

6957
6958

6959
6960

EMS.22 ERROR MESSAGE SUBROUTINES

TRAP

invocation:

SEQ 0225
VAX-11 Blies-16 V3-555
Page 230
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BLL (72

PC,MS$EMS .22

RTS

4 words,
Routine Size:
Maximum stack depth per

LSBTTL

EMS.22::JSR

000000V

10:24:41
10:21:50

$CODES

MSEMS.30 ERROR MESSAGE SUBROUTINES

PC ,EMSCMD
PC

« 20104

eludom

0TS external references

6961
6960

G
NRQAM.
vol.&e

RD/RX EXERCISER
ERROR MESSAGE SUBROUTINES

15-Dec-1983 10:24:41
15-Dec-1983 10:21:50
.GLOBL

$SAVES,

BLS$DIV,

.GLOBL

PSECT
H

Psect Name

3
3
;

File

e W

oW
W

,
.,
.

CL,
LEL,
LCL,

REL,
PEL,
REL,

e e T e L g Symbols -------Loaded

Percent

SPIDER$UJSERS:[DOUCETTE.FALCONICNRQAA.L16;7
-

351

CON
COM
COw

Blocks

COMMAND QUALIFIERS

D
I
D

Total

RW ,
% .
RO .,

LIBRARY STATISTICS

i
3

Attributes

74
4133
12

$SAVEZ

SUMMARY

Words

SOWNS
$CODE $
SPLITS

$SAVE4, $SAVE3,

BLS$MUL

BLISS /PDP11 CNRQGAA.BL1/LIST=CNRQAA.LI1/0BJECT=CNRQAA.OB1/SOURCE=PAGE:56
Size:

Run Time:
Elapsed Time:

3953 code + 6736 data words
03:45.9
11:11.3

Compilation Complete

SEQ O7e6

VAX-11 Bliss-16 Vv3-S55
Page 231
SPIDERSUSERS
: [DOUCETTE .FALCONJCNRQAA .BLL (72

He
NRQAMZ

3
3

15-Dec-1983 10:35:57

14-Dec-1983 11:35:15

0001
0002

0003
0004

3
3
;

0005
0006
0007

0009

0008

gig

s
H

0012
0013

3
3
H

0014
%12
1

3
:

0017
8813

3
3

0020
0021

VAX-11 Bliss-16 Vv3-555

stitle 'RD/RX EXERCISER’
ident = ‘V01.0',

address ing_mode (absolute),
environment (noeis)
) =

!
!

REVISION HISTORY

L A

The following changes were made to CZRQAB in producing CNRQAA for the
FALCOI PLUS project (SBC-11/21+). Release date December 19, 1983.

!
H

.28“ made by James S. Doucette.
REV A",

All changes are marked by

!
!

1. Set the 0DT BREAK vector (location 140) to the starting address
of FALCON's ODT ROM (170000-octal).

!
!

2. Lower the general operating pricrity of the program from level 7
to level 6 to allow the BREAK key to interrupt and invoke

oDT.

0022

:
H

0024
0025

!
!

3. Due to space limitations, removed all references to DBM's (debug
messeges
).

4. Changed the default IP address from 172150 to 176150.

;

3
'

0023
0026

0029

!-ccce-ccccccmccmcccc
e esmeeeseescmseeseeceeeesmemss-esssssecesesescccese-—oo~
n

0032
g.;oz

ssbttl

ggz

library ‘'CNRQAA.L16';

! RDRX EXERCISER GLOBAL LIBRARY

gggz

require 'BLSMAC.REQ’;

! DIAGNOSTIC SUPERVISOR LIBRARY

3
F

1527
1528

EQUALS;

1530

;

‘

1529
1531

1532

1533

INTT_TEST : novalue,

DRIVER_INIT : novalue,

CTLR_INIT : novalue,

INI_CTLR_DAT : novelue.

1534

REG_EXIST,

1537

HARD_INIT,

133

1538

1539

:
:

1542
1543

:
:

'DECLARATIONS'

forward routine

1540
1541
1544

INTGER,
.

INI_ARING: noveslue,
SET_CTLR_CHAR

UNIT_INIT : novalue,
DR_ERR : novalue,

ACCESS : novalue,
MULTI_DRIVE : novalue,

MD_INIT : novelue,

! ROUTINES APPEAR IN THIS ORDER

SPIDERSUSERS: [DOUCETTE. FALCON]CMQAA 8L2 (1)

module NRQAM3 (

SEQ 0«7

INDENTATION IMPLIES CALLED SUBROUTINE

Ie
NRQAM3

RD/RX EXERCISER

vo1.0

3
:
3
3
H
:

DECLARATIONS

:
3
3
:
3
’
3

1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559

1561

1562

1565

3
:
3

1570
1571
1572

;
8
:
;

1573
1574
157
1576
1577

1579

;

:
:

:
3

::
.
H

1581

1582
1583

1590

;

UPD_T0_TALLY : novalue,
OVF _CHK : novalue,
HOST_WRT_CHK,
SWEEP : novelue,

RPS_REM,
DR_RETPKT : novalue,
AZINTO : L$ISR novalue,
AZINT : novalue,
FATAL_ERROR : novelue,
POLL_CRING : novalue.
POLL_RRING : novelue,
ODUP_RSP : novalue,

MSCP_RSP : novalue,

SEQUEN : novalue,

SOFT_ERROR : novalue,

DATAGM : novalue;

SOFT_ERROR : novalue;

1583 *"**cerl. : blockvector
o1
[(MAX_CTLR, . CST fi. word] field
ield (CST_FIELDS)
>
o
1387
CST_ADDR
¢ block [CoT LEN. word) Piete (CST FIELDS)

;

HARD_ERROR : novalue,

1580

1588

DUP_COMPARE : novalue,

IO_RETPKT : novelue,
FSET_UPAR : novalue,

1573

;

DIO_RETPKT : novalue,

1566
1567
1568
1569

! CONTROLLER STATUS TABLE ADDRESS OF “CURRENT” CONTROLLER

1589

DCT : blockvector [MAX_CTLR, DCT_LEN, word] field (DCT_FIELDS),

1591

DCT_ADDR : ref block [(DCT_LEN, word] field (DCT_FIELDS),

1593

RDRX_ADDR : ref rdrx field (RC_REG),

1595

IRDRX_ADDR : ref rdrx field (RC_REG),

1597

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

1599

TALLY : vector [MAX_UNITS & TALLY_LEN, word] field (T_FIELDS),

1592

1594

1596

1598

1600

+ DRIVER CONTROLLER TABLES

! ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE

! DEVICE ADDRESS OF “CURRENT” CONTROLLER
! DEVICE ADDRESS OF INTERRUPTING CONTROLLER

' BUFFER CONTAINING DUP INFORMATION FROM RECEIVE AND SEND COMMANDS

! STATISTICS TABLES

SEQ 0c25

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL2 (1)

PROC_RETPKT : novalue,

1563
1564

3
3
H
$
3

14-Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

INIT_IO_BUFF : novalue,
FATAL_ERROR : novalue,
QI0_0OK,
QIO_OuT,
QIO_GEN : novalue,
GET_RANDOM : novalue,
QIO_UNIT : novalue,
QIO_FUNC : novalue,
DUP : novalue,
DUPWRTDSBN : novalue,
DUPREDDBN : novalue,
DUPCOMMAND : novalue,
QIO_LBN : novalue,
QIO_SIZE : novalue,
FILL_BUFF : novalue,

1560

3
3

15-Dec 1983 10:35:57

Je
RD/RX EXERCISER

15-Dec-1983 10:35:57

DECLARATIONS
1601
1602
1603
1604

1605
1606
1607
1608
1609
1610
1611

1612
1613
1614

1615

1616

1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644

1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656

T_ADDR : ref block

14 Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

MSCF_PKT

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

! STATISTICS TABLE FOR CONTROLLER ERRORS
: blockvector [PKT_CNT, PKT_LEN, word] field (PKT_FIELDS),
! MSCP PACKET POOL

IPKT_ADDR : ref block [PKT_LEN, word] field (PKT_FIELDS),

' ADDRESS OF AN MSCP PACKET C(INTERRUPT PROCESSING)
PKT _USE : vector [PKT_CNT, byte, si
1.
ALLOCATION TABLE
! MSCP PACKET P
RETPKT : blockvector [RP_CNT, RP_LEN, word] field (RP_FIELDS),
! RETURN PACKET POOL

RP_USE

: vector [RP_CNT, wo. si
:
! RET
P
T 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, EP_LEN, word] field (EP_FIELDS),

! ERROR-LOG PACKET SAVE AREA

BUFF_ADDR : vector [MAX_BUF _CNT),
! TABLE OF I/0 BUFFER DESCRIPTORS
BUFF _OMN : vector [MAX_BUF_CNT, byte, signed],
' I70 BUFFER OWNERSHIP (CONTROLLER NUMBER)
I7/0 DONE QUEVE - CIRCULAR QUEUE OF RETPKT INDECES

IODQ@_IN : word,
I0DQ@_OUT : word,
ENTRY_REASON : byte,
EOP_FLAG : byte,
DUP_FLAGS : WORD,
CCTLR : word,
CDISK : word,
CUOFF : word,
CTLR_CNT

I/0 DONE QUEUE IN POINTER
I/0 DONE QUEUE OUT POINTER
CURRENT OPERATOR COMMAND
END-OF -PASS FLAG
DUP FLAGS
NUMBER OF “CURRENT” CONTROLLER
CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
CURRENT UNIT CST OFFSET
TOTAL NUMBER OF CONFIGURED CONTROLLERS

: word,

DROP UNIT REASON

: vector [MAX_UNITS, bytel,

FREE _MEM_ADDR,

NUMBER OF OUTSTANDING QIOS PER CONTROLLER
START OF FREE MEMORY

SB_CODE : word,

CURRENT SUB-CODE

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

BYTS_PER_QIO : word,
ST_CODE : word,

CURRENT STEP IN HARD_INIT

STEP : word,

OF _RC : signed word,

OFFSET
(C OR 2) TO READ IP OR SA

SA_REG : word,

STORAGE FOR SA REGISTER READS AND WRITES

CMD_TIME : word,

COMMAND TIMEOUT VALUE (IN SECONDS)

NEX : word,

CRN_LOW : word,
CRN_HIGH : word,

P_INDEX : .mc word,
S_DUPPKT :
9
S_PATTERN : WORD,
CREDIT_BAL : word,
NEXT_PKT_USE : byte,

o8Mi2,
DBM18,
08M19,
DBM20,
DBM21,

NON-EXISTENT MEMORY TRAP INDICATOR

! CURRENT

! COMMAND REF NUMBER OF LAST COMMAND SENT
' COMMAND REF NUMBER OF LAST COMMAND SENT
PACKET INDEX

! DBN BYTE
ER
! THE PATTERN WRITTEN TO DBN'S
¢ CREDIT BALANCE
! POINTER TO NEXT ENTRY IN PKT_USE TABLE

1JSD REV A - REMOVED
1JSD REV A - REMOVED
1JSD REV A - REMOVED
1JSD REV A - REMOVED
1JSD REV A - REMOVED

SEQ 0229

Pege

SPIDER$USERS:[DOUCETTE.FALCONICNRGAA.BL2 (1)

C_ERR_TBL : blockvector [MAX_CTLR, C_ERR_LEN, word] field (C_ERR_FIELDS),

Wh OWE

BE BE BE

BE S5 Be S5 S5

S5 S5

S5 BE

S8 B

NRQAM3
v01.0

I<2
NRQAM3

RD/RX EXERCISER

v01.C
H
3
H
3

DECLARATIONS

1657
1658
1659
1660

!
!
!
!

1662
1665
1664

!
!
!

1JSD REV A
1JSD REV A
'JSD REV A
1JSD REV A

DBM109,
DBM110,
DBM112,

1JSD REV A - REMOVED
1JSD REV A - REMOVED
1JSD REV A - REMOVED

1661

3
H

1665
1666

1668

EH_3,

3
3
H
3
3
:

1670
1671
1672
1673
1674
1675

EH_S,
EH_6,
EH_T7.,
EH_8,
EH_9,
EH_10,

1677

EH_13,

1676

DBM108,
EH_O,
EH_1,

1679

MSG_03,

’

1682

EGD_11,

:
:

1684
1685

EGD_13,
EGD_14,

VAX-11i Bliss-16 v3-555

1680

REMOVED
REMOVED
REMCVED
REMOVED

1JSD REV A - REMOVED

EGS_02,

1687

EGD_16,

1688

EGD_17,

3
:

1690
1691

EGD_20,
EGD_21,

1693

EGD_23,

1695

CRLF,

1697

SWP_XFER : word,

t TRANSFER LIMIT FOR DROPPING UNIT

H
:

1699
1700

g:nund : word,
RAT : word,

! ratio constent for dup exerciser
! RDS1 OPERATION RATIO

1702

SWP_UCNT : word,

H
3

3
3

1689

EGD_18,

1692

EGD_22.

1696

SWP_ERROR : word,

1698
1701

1703

LSLUN,

1705

1707

psect

1710

Oown

i;gg

1711
1712

! DATA PATTERN NUMBER

SWP_UDPAT : vector [MAX_UDP_CNT, word],

1704

1706

! FLAGS (SEE DOCUMENTATION)

SWP_DPAT : word,

' HARD ERROR LIMIT FOR DROPPING UNIT

SWP_FLAGS : word,

! USER DATA PATTERN COUNT
! USER DATA PATTERN

LSUNIT;
own = $GGGS(read, nowrite, execute,

SEQ 0230

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL2 (1)

EH_12,

14 -Dec-1983 11:35:15

DBM23,
DBM2S,
DBM26 ,
DBM29,

3
:
3

15-Dec-1983 10:35:57

local, concatenate);

COMM_AREA : blockvector [MAX_CTLR, COMM_LEN, word] field (COM_FIELDS),
! COMMUNICATIONS AREA BETWEEN HOST AND AZTEC CONTROLLERS

Le
NRQAM3

RD/RX EXERCISER

vo1.0

15-Dec-1983 10:35:57

DECLARATIONS

14-Dec-1983 11:35:15

1713

BST : vector [MAX_UNITS, word, signed],

H
H

1714

1715
1716

3
3
H
3
3
3
:
3
3

1717

OPST : vector [MAX WITS. byte],
: vector [mx WITS. word],

1718
1719
1720
1721
1722
1723
1724
1725
1726

srofime : vector [MAX_UNITS, word],

:
H
3
:
H

1728
1729
1730
1731
1732

1727

méon: vector [RDM_LEN, word],

:
:

1733

1734
1735

MAD2 : ref block [PKT_,LEN. word] field (PKT_FIELDS),

;
i

H
3
3
H
3
H
3

1736
1737
1738
1739
1740
1741
1742

;

1744

H
:
3

H
H

s
3

1743

3
3

3
:

! RANDOM NUMBER TABLE

! ADDRESS OF MSCP PACKET FOR SECOND GIO
LAST_PKT : blockvector [MAX_CTLR, LAST_PKT_LEN, word) field (LAST_PKT_FIELDS?,
! SAVE AREA Fm INFO ABOUT LAST RESPONSE PACKET
PAT02 : vector [2] initial (1,
! PATTERN 2
%o’ 000000’ ),
PATO3 : vector [2] 3niti¢1 €1,
! PATTERN 3
o' 177777 ),
PATO4 : vector [2] initial (1,
! PATTERN 4
o' 105613’ ),

! PATTERN 6

1747
1748
1749

PATO7 : vector [17] initial (16,
so’' 000001’ , so’ 000003’ , so’'000007',
#o’' 000037’ , #o'000077', #o’'000177',
#o’' 000777, #%0’'001777', #o' 003777,
®$0'017777', %0’ 037777, #0'077777',

1750
1751

1752

1753

1754
1755

1757

1761

/ TOGETHER

ICTLR : word,
! INTERRUPTING CONTROLLING NUMBER
MX1 : .'M word,
! MSCP PKT INDEX FOR FIRST QIO
MX2 : signed word,
! MSCP PKT INDEX FOR SECOND QIO
MADL : ref block (PKT _LEN, word] field (PKT FIELDS).
' TADDRESS OF MSCP PACKET FOR FIRST QIO

PATO6 : vector [2] initial (1,

1746

1758
1759
1760

! DUMMY STORAGE

ICOM_ADDR : ref block [COMM_LEN, word] field (COM_FIELDS),
! ADDRESS OF INTERRUPTING CONTROLLER'S COMMUNICATION AREA
ICST_ADDR: ref block [CST_LEN, word] field (CST_FIELDS),
.
! ADDRESS OF INTERRUPTING CONTROLLER'S CST
IDCT_ADDR: ref bl.ock [(DCT_LEN, word) field (DCT_FIELDS).,
* ADDRESS OF INTERRUPTING CONTROLLER’'S DCT
INT_ADDR : vector (HAX CTLR]) initial CAZINTO #(, AZINT1, AZINT2, AZINT3)s),
+ INTERRUPT SERVICE ROUTINE ADDRESS TABLE
: word -mtml (RDM_LEN),
! NUMBER OF RANDOM NUMBERS \ KEEP

1745

:
:
H
:

! DATA PATTERN SEQUENCE TAB'.E
! LARGEST LBN ALLOWED

! PATTERN S

1756

! BLOCK SEQLENCE TABLE FOR SEQUENTIAL LBN (VS. RANDOM SEEK) MODE

PATOS : vector [2]

so’' 031463’ ),

so'030221'),

PATO8 : vector [17) initial (16,

so’'000017’,
wo’'000377',

w0’ 007777,
%o’ 177777'),

#o'177776', %0’ 177774°, #0'177770', %o' 177760,

! PATTERN 7

! PATTERN 8

%0°‘ 177740’ , #0’'177700', s%o’'177600°', o' 177400,

#o' 177000, so’'176000', so’'174000', so'170000‘,

* 160000’ , so’ 140000, so’' 100000’ , so'000000'),

PATO9 : vector [17]

initiel (16,

rep 3 of (#0'000000’'), rep 3 of (®o’'177777'),
rep 2 of (%0’'000000'), rep 2 of (%o'177777'),
w0’ 000000’, #o'177777', #o’' 000000’ , wo’'177777',
so’ 000000, so’ 177777').

' PATTERN 9

1762

PAT10 : vector (2] initial (1,

! PATTERN 10

1764

PAT11 : vector [17) initial (16,

! PATTERN 11

1763

1765

1766
1767
1768

so’' 133331’ ),

rep 3 of (#0'052525'), rep 3 of (so’'125252'),

rep 2 of (#0'052525'), rep 2 of (%o’125252'),

so' 052525, #o’' 125252’, %o'052525', so’'125252',
%o’ 052525’ , so'125252' ).

SEG 0231

Page

SPIDERSUSERS:[DOUCETTE.FALCONICNRQAA .BLZ (1;

initiel (1,

:
3

VAX-11 Bliss-16 v3-555

Mo
NRGQAM3
v01.0

RD/RX EXERCISER
DECLARATIONS

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

H
F
:

1769
1770
1771

PAT12 : vector [21] initisl (20,
rep 3 of (%0'026455' ), rep 3 of (%o’'151322'),
rep 2 of (%0'026455'), rep 2 of (%o'151322'),

3
:
:

1773
1774
1775

so’ 151322, o' 026455’ , ®o’'151322', wo'026455',
%o’ 151322, %o’ 026455’ , %o'151322', so’'026455'),
PAT13 : vector [2] initial (1,

3
:
F
:

1772

1776
1777
1778

1779

1780

;
R

1783
1784

1786

1788

i
H
3
;

)
%0’ 066666’
PAT14 : vector [17] initial (16,
so’' 000001, so’'000002', so’' 000004’ , so'000010',
%o’ 000020’ ,

so’' 010000’ , so’'020000', so’' 040000’ , so’'100000'),
PAT1S : vector [17] initial (16,

1785

®o' 177377, #0'176777', %0'175777', ®o'173777',

%0’ 177776’ , %0'177775', #0'177773', wo'177767',
®%0'177757', %0’ 177737’ , #0'177677’', #0'177577',

®o' 167777, #%0'157777', %o’ 137777,

o' 077777'),

1789
1790
1791
1792

rep
2 of (#0'133331'), rep 2 of (%o’'155554'),
#o’' 133331’ , #o’'155554‘, #o’'133331', %o’ 155554,
o’ 133331’, wo' 155554').
PAT17 : vector [22) initial (21,

1796
1797

PAT18 : vector [22]) initial (21,
so’' 106466’, %o’ 000000’ , so'071311’,

;
:
:
:

1799
1800
1801
1802

rep 5 of (%0’'106466'), rep 6 of (%0'071311')),
PAT19 : vector [22] initial (21,
so’' 000000’, rep 2 of (wo'134631'),
rep 3 of (Io'O‘Sl‘G‘). rep 4 of (so’'134631'),

;
3

1804
1805

PAT20 : vector [22] initisl (21,
%o’ 134631, so’'000000', wo’'043146',

H
’

3
$
H

1798

1803

1806

1807

1808
1809
1810

1811

H
3

1812
1813

1815

:
:

1814

rep 3 of (%0’'133331'), rep 3 of (so’155554'),

%o’ 000000’ ,
2 of (#%o’'106466'),
rep 3 of (io 1311'), rep 4 of (%0’'106466'),
rep S5 of (%0°'071311’'), rep 6 of (%o’'106466')),

rep 5 of (#0'043146'), rep 6 of (%wo’134631')),

np S of (%0’'134631'), rep 6 of (%0'043146')),

PAT21 : vector (2] initiel (1,
%o’ 000000’
)
DPA_TBL : vector (WCNT] initial

(RDM_CNT, PATO2, PATO3, PATO4, PATOS,

! PATTERN 19

' PATTERN 20

! PATTERN 21
H
(LBN)
! DATA PATTERN ADDRESS TABLE

PAT18, PAT19, PATZO. PAT21),

3
:

1822

1823
1824

! PATTERN 18

TRK_SGN : vector [MAX_UNITS, word, signed] motlll (rep MAX_UNITS of (1)),

BRLEVEL : word,
COMPARE _DATA : byte;

! PATTERN 17

PAT“. PATO7 PATOS8, PATO9. PAT10, PAT11,
PAT12, PATlS. PAT14, PAT1S, PAT16, PAT17,

1819
igi

1818

! PATTERN 16

rep
3 of (Io‘ 134631'), rep 4 of (%o’'043146'),

BST_CNT : word initial (0),
BST_DEV : word initial (0),

! PATTERN 15

rep 3 of (%o’ 106466’ ). rep 4 of (%0’ 071311'),

1816
1817

! PATTERN 14

o' 000040 , so’' 000100’ , so’' 000200,

1781
1782

1793
1794
1795

! PATTERN 13

%o' 000400’ , so’'001000', so’' 002G00’', wo'004000',

PAT16 : vector (17] initial (16,

3
3
:

! PATTERN 12

rep 2 of (s¢c’'026455'),

1787

3
3
3
:

SEO Oe3z

VAX-11 Bliss-16 v3-555
Page
6
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA
.BL2 (1)

CURRENT_VECTOR: word,

external routine

NEX_TRAP : L$ISR novalue,
SET_CPAR : novalue,

¢ CURRENT SEQUENTIAL BLOCK COUNT
CURRENT SEQUENTIAL BLOCK DEVICE

CURRENT DEVICE'S VECTOR ADDRESS

! CURRENT TRACK DIRECTION

CURRENT DEVICE'S BR LEVEL
FLAGGED CLEARED TO BYPASS HOST COMPARES

88
e
Be

1825
1826
1827
1828

DECLARATIONS

1830
1831
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843

SE
WR
SR We
WE
W

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

1845
1847
184
1848
1849

SET_UPAR : novelue,
ouUT_I00Q,
IN_IODG : novalue,
GET_PKT,
PUT_PKT : novalue,
GET_RETPKT,
PUT_RETPKT : novalue,
GET_IO_BUFF : novalue,

PUT_IO_BUFF : novalue,

PUTA_BUFF : novalue,
SEND,

WAIT

: novalue,

O ' "ot

novalilue,

EMSCMD : novalue,

EMS_22 : novalue,
EMS_EL : novelue,

EMS_CMP: novalue,

EMS_10
EMS_12
EMS_13
EMS_14
EMS_18
EMS_21
EMS_30

:
:
:
:
:
:
:

novnl.uo.
novalue,
novalue,
novalue,
novalue,
novalue,
novalue;

SEQ 02373
VAX-11 Bliss-16 v3-S555
Page
7
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA BLZ (1)

15 Dec
i4 Dec

RD /Ax EXERCISER
TEST SECTION

vOol1.¢

S5t Q

“TEST SECTION’
TOP LEVEL

TEST

CODE

FOR

THE

RDRY

EXERCISER,

- et
@
e

W
Se W
W

THE

THE EXERCISER CONSISTS OF OnE TEST WHICH IS SUBDIVIDED INTOC A NUMBER OF
SUBTESTS. ALL SUBTESTS ARE DECLARED WITHIN THIS BLOCK,

THIS SECTION CONTAINS

Be WS

BONTST;

EOP_FLAG «

¢
!

TRUE;

COMPARE _DATA = TRUE;

INIT_TEST ();

TEST ENVIRONMENT

! FOR EVERY CONTROLLER

1) oo

incr CTLR from O to (MAX _CTLR

ASSUME NO UNIT AVAILABLE
ALLOW HOST COMPARES IF ASKED FOR
INITIALIZE

CONTROLLER ONL INE

ther

if (.CST [.CTLR, STATE) eql ONLINE) and
(.DCT [.CTLR, STAT] eal ONLINE) and
(.CST [.CTLR, U_CNT] geaqu 0)

« 4) by UNIT_SIZE do

incr OFFSET from (O « OF _UN) to (3 o UNIT_SIZE

if .CST [.CTLR,

.OFFSET, D_STAT] eql ONLINE

then

IF AT LEAST ONE UNIT ALIVE

! NOT END OF PASS

EOP_FLAG = FALSE;
exitloop;

hen

.EOP_FLAG

! RUN MULTI-DRIVE TEST

MULTI_DRIVE ();

ENDTST;

NRGAM3 RD/RX EXERCISER
/v01.0/

AMA

BST:
DPST:

MAX.LBN: .BLKW

; .BLKW
STORAGE
ICOM.ADDR:
.BLKW
ICST.ADDR:
.BLKMW
IDCT.ADDR:
.BLKW
INT.ADDR:

BBNBN

$GGGs,

end;

if not

.
VAX 11 Blias 16 v3-555
agSPIDERSUSERS:
[DOUCE TTE . F AL CONJONR QA B

sebttl

1983 10:3%:57
1983 11:35:15

15 Dec 1983 10:35:57
14 -Dec - 1983 11:35:15

RD/Rx EXERCISER
TEST SECTION

.WORD

PATOS:

.WORD

PATO6:

.WORD

PATO7:

.WORD

000077
000177
000377
000777

001777

003777
007777
017777
037777
077777

177777

000020
177776
177774

PATO8:

177770
177760
177740
177700
177600
177400
177000
176000
174000
170000

PAT09:

. 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
.HWORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD
.WORD

. WORD

2165
o

PATO4:

.WORD

PATO3:

.BLKW

Pt
e e

.WORD

e Orr
U

PAT02:

MAD2:
LAST .PKT:

.BLKW
.BLKW
.BLKW
.BLKW

.BLKW

[
lad

ICTLR:

MX1:
MX2:
MAD1:

AZINTO
20
20

8e”
v 2

. WORD

RDM,CNT:
. WORD
RANDOM: .BLKW

000020

r)‘ rJ

Ge 9

‘\
VAX-11 Blises-16 v3-555
age
SPIDERSUSERS:
[DOUCETTE FALCONICNRIAL B 2

‘s
.'(

D4
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

PAT10:
PAT11:

PAT12:

151322
151322
151322
026455
026455
151322

151322

026455
026455
151322
026455
151322
026455
151322
026455
151322
026455
000001

PAT13:

OO
-

O 00+
1 OO+ ¢

SHRssnsas s

133331

177777

000000
177777
000000
177777
000001

1= 1

WORD

B
B

000000
000000
177777
177777
177777
000000
000000
177777
177777
000000

T 3383333333330355018 5

RD/RX EXERCISER
TEST SECTION

VAX-11 Blies-16 v3-555

SEQ 02 7%

Pege

SPIDER$USERS
: { DOUCE T TE . FALCONICNROAR .BL.2 (2
)

E4
15-Dec -1983 10:35:57
14 -Dec -198% 11:35:15

RD/RX EXERCISER
TEST SECTION

100000
177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173777
167777
157777
137777

077777
000020

133331
133331
133331
155554
155554
155554
133331
133331
155554
155554
133331
155554
133331
155554
133331
155554

000025
000000
106466
106466

PAT1S:

PAT16:

PAT1T7:

.WORD

§§§§555355?535555555555555555555535§§§§§§§§§§§§§§é§ i

PAT14:

66666

VAX-11 Bliss-16 Vv3-555

SEC O("

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAR;8; (2)

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

071311
071311
071311
106466
106466
106466
106466
071311
071311
071311
071311
071311
106466
106466
106466
106466
106466

saEEsnasEsnaaiat i

RD/RX EXERCISER
TEST SECTION

.KORD

PAT18:

71311
71311

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

001010
001012
001014
001016
001020
001022
001024
001026
001030

001032
001034
001036

001040
001042
001044
001046
001050

PAT19:

71311
71311
71311
71311
71311
71311

-43147
-43147
43146
43146
43146
-43147
-43147
-43147
-43147
43146
43146
43146
43146
43146

VAX-11 Bliss-16 Vv3-555

SEQ Oc %R
Page

SPIDERS$USERS: [DOUCETTE .FALCONICNRGAR .BLZ (2

G3
15-Dec- 1983 10:35:57
14 -Dec- 1983 11:35:15

RD/RX EXERCISER

TEST SECTION

- WORD
PA120:

PAT21:

DPA. TBL:

TR
, SGN
K

3858 §§é535§§§§8§§§§§§§§§§§§§§§§§§§§§§ 33333333523 :

- WORD

. WORD
.WORD

-43147
-43147
-43147
-43147
-43147
-43147

-43147

43146
-43147
-43147
-43147
43146
43146
43146
43146
-43147
-43147
-43147

-43147
-43147
43146
43146
43146
43146
43146
43146

ROM.CNT

PATO2
PATO3
PATO4
PATOS
PATO06
PATO7
PATO8
PATO9
PAT10
PAT11
PAT12
PAT13
PAT14
PAT1S
PAT16
PAT17
PAT18
PAT19
PAT20
PAT21
s

. WORD

SEO 02%9
VAX-11 Bliss-16 V3-S55
Page
13
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BL2 (2)

H 4
NRQAM3

RD/RX EXERCISER

v01.0

001230
001232

001234

15 -Dec-1983 10:35:57

TEST SECTION

000000
000000

001236
001240

14-Dec-1983 11:35:15

VAX-11 Bliss-16 v3-555

BLKW

.BLkB

.GLOBL
.GLOBL
.GLOBL.
.GLOBL
.GLOBL

CST, CST.ADDR, DCT, DCT.ADDR, RDRX.ADDR
IRDRX.ADDR, DUPPKT, TALLY, T.ADDR
C.ERR.TBL, MSCP.PKT, IPKT.ADOR
PKT,USE, RETPKT, RP.USE, RP.INDX
RP, ADDR. ELOG.PKT, BUFF.ADDR, BUFF.OWN

.GLOBL
.GLOBL

EOP. fLAG. DUP.FLAGS, CCTLR. CDISK
CUOFF, CTLR.CNT, DUR, QIO, FREE.MEM.ADDR

.GLOBL I00@, I0DQ.IN, 100Q. ouT, ENTRY, REASON
.GLOBL
.GLOBL
.GLOBL

.GLOBL

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

.GLOBL
.GLOBL
GLOBL
.GLOBL
GLOBL

BYTS.PER.QIO, ST.CODE, SB.CODE
STEP, OF.RC, SA.REG, CMD.TIME
NEX, CRN.LOW, CRN.WIGH, P.INDEX

S.DUPPKT, S.PATTERN, CREDIT.BAL

NEXT.PKT.USE, EH.0, EH.1, EH.2
EH.3, EH.4, EH.5, EH.6, EH.7, EH.8
EM.9, EM.10, EM.12, EH.13, MSG.02
MSG.03, EGS.02, EGD.10, EGD.11
EGD.12, EGD.13, EGD.14, EGD.15
EGD.16, EGD.17, EGD.18, EGD.20

EGD.21. EGD.22, EGD.23, EGH.30
CRLF, SWP.ERROR, SWP.XFER, SWP.FLAGS
DUPROUND, SWP.RAT, SWP.DPAT, SWP,UCNT
SWP.UDPAT, LSLUN, LSUNIT, NEX.TRAP
SET.CPAR, SET.UPAR, OUT. 100Q., IN.IODQ

GLOBL GET.PKT, PUT.PKT, GET. RETPKT, PUT.RETPKT

.GLOBL GEY.IO.BUFF, PUT. I0.BUFF, PUTA.BUFF
.GLOBL
SEND, WAIT, DROP.CTLR, DRV.CTLERR
.GLOBL enscm EMS. 22, EMS. EL, EMS.CMP
.GLOBL
.GLOBL

100000
040000

BIT15==
BIT14==

-100000
40000

BITOS==»
BITO4==
BIT03==

40
20
10

020000
010000
004000
002000
001000
000400
000200
000100

BIT13==
BIT12==
BIT1lle==
BIT10==
B8IT09==
BIT08==
BITO7==
BITO6==

000004

BIT02==

000040
000020
000010

000002

000001

EMS.10, EMS.12, EMS.13, EMS.14
EMS.18, EMS.21, EMS.30

BITOl==

BITOO==

20000
10000
4000
2000
1000
400
200
100

SPIDERSUSERS: [DOUCETTE. FALCON]CMQM 8L2 (2)

BST.CNT: .WORD
O
BST.DEV: .WORD
O
CURRENT .VECTOR:

BRLEVEL: .BLKW
COMPARE .DATA:

SEQ 0(40

13
15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER
TEST SECTION

NRQAM3
vo1.C

001000
000400
000200
000100
000040

BIT9==
BIT8==
BIT7==
BIT6==
BITS==

000010

BIT3==

000002
000001
000040
000037

BITl==
BITQ==
EF .START
==
EF .RESTART
EF .CONTINUE ==
EF .NEW==

000240

000140
000100

000010

200
100

20
10
4

2
1
40
37
36
35
34
340
300
240
200
140

100

40
0
4

10
20

==
ADR
I0U==
ISR=»
UAM==
BOE==

100
200

400

PNT==

1000
2000

PR]I==

4000

IXE==

10000
20000

IBE==
IER==

40000

LOE==

-100000

HOE==

000001
000001

010001

022626
005761
100040
010346
012746

0000026
000022

000000G
001240

$T1:

.SBTTL
.PSECT

$T1 TEST SECTION
$CODES.
RO

JSR

R1,$SAVE3S
@1,EOP.FLAG

s 33533538

004137
112737
112737
004737
005003
010346
012746
004737

SPIDER$USERS: [DOUCETTE .FALCON]JCNRQAA333
(25

1000

EF .PWR==
PRIO7==
PRIO6==
PRIOS=
=
PRIO4==
PRIO3==
PRIO2==
PRIO1==
PRIOO=
=
EVL=»
LOT==

000340
000300

SEQ Oedl

400

BIT2==

000036
000035

VAX-11 Bliss-16 Vv3-555

TST

MOV
MOV

CTLR,»

1849
1860
1861
1862
1864
1866

CTLR,»

1867

#1,COMPARE .DATA

PC,INIT.TEST

CTLR

056, -(SP)
PC,.BL#MUL
RO,R1
(SP)+,(SP)+
CST+2(R1)
5S¢
R3,-(SP)
22, -(SP)

J3
vV01.0

000060
000064
000066
000072
000074
000076
000102
000106
000112
000114
000116
000120
000126

000130
000134
000136
000142
000146
000150
000152
000154

000156
000160
000166
000170
000174

15-Dec-1983

RD/RX EXERCISER
TEST SECTION

NRQAM3

004737
022626
005760

100027
010346
012746
004737
012702
010001
060201
006301
032761
001403
105037
000405
062702
020227
003761
022626
005203
000243

003723
132737
001002
004737
000207

14-Dec-1983 11:35:15

0000006

000000G

020000

28:

TST

DCT(RO)

MOV
JSR
MOV
MOV
ADD

@27, -(SP)
PC,BL$MUL
@3,R2
RO,R1
R2,R1

CLRB

EOP.FLAG

ASL
BIT
BEQ

000000G

000005

3s:

000023

4%
:

S$:

000000V

PC,BL $MUL

BPL

0000006

000001

JSR

cMP

000027
000000G
000003

ADD
cMP
BLE

cHP
INC

BLE

BITB
BNE

000000G
64:

JSR

RTS

004737

104466
006000

103773

000207

000000'

Ti::
1s:

R1
#20000,CST(R1)
34

SPIDER$USERS: (DOUCE ITE. FALCW]CMOAA 8L2 (2)

CTLR,»

1873

;
H

¢, OFFSET

1871
1873

;

OFFSET,s

1876
1875
1871

; CTLR

1864

01 EOP.FLAG

1880

PC.MTI DRIVE

H
H

1882
1849

1882

#5,.R2
fl2.023

(SP)O (SP)+

+ 0000

T1 TEST SECTION

JSR

PC,$T1

ROR
BLO

RO
1s

RTS

SEO 0°4¢

H
H
; »,0FFSET
; OFFSET,»

.SBTTL
TRAP

VAX-11 Bliss-16 Vv3-555

(SP)+,(SP)+

.WORD CLV'CLC

$CODES$
;: Routine Size:
63 words,
Rout ine Bese:
;i Maximum stack depth per invocation:
7 words

000000
000000
000004
000006
000010
000012

10:35:57

$CODES + 0176
; Routine Size:
6 words,
Rout ine Base:
; Maximum stack depth per invocation:
2 words

1<%

e
86
8
S
Se
S5
85
S
S
S
S
S5
B
SF
S5
S
S5
B
S
B
S5
B
B
S5
S
S5
B
B
B
B
B
B
S5
S
Be
B
B
e
Be
A
S
WA
B

000010
000012
000014

000024
000030
000032

RD/RX EXERCISER

NRQAM3
vo1.0

15-Dec- 1983 10:35:57

INITIALIZATION TEST ROUTINES

1885
1886

1887
1888
1889
1890
1891
1892

1893
1894
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911
1912
1913
1914
1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925
1926
1927

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

SEQ 0243
Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL2 (3

ssbttl ‘INITIALIZATION TEST ROUTINES'
routine INIT_TEST

novalue =

THE INITIALIZATION TEST IS DESIGNED TO VERIFY THE EXISTENCE OF THE

DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIALOG, AND TO
BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-DRIVE TEST
OR THE DM EXERCISER.

BASICALLY, THE DEVICES ARE BROUGHT ONLINE VIA “DRIVER_INIT”, WHICH IS
INVOKED IMMEDIATELY. ANY DEVICES WHICH FAIL DURING THIS PHASE WILL BE

MARKED OFFLINE IN THEIR DCT AND CST. FOR THOSE DEVICES WHICH SURVIVE
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS TO

EACH DISK VIA ROUTINE “ACCESS”. THE INITIALIZATION TEST IS DEEMED A
SUCCE.;5 IF A BLOCK ON THE INNER TRACK OF EACH DISK CAN BE ACCESSED.
in

DRIVER_INIT ();

INIT DRIVER DATA AND DEVICES

incr CTLR from O to (MAX_CTLR - 1) do
in

! FOR EACH CONTROLLER

SET_CPAR (.CTLR);

! SET UP COMMONLY -USED CONTROLLER-RELATED DATA ITEMS

.CST_ADDR [STATE] eaql ONLINE

IF CONTROLLER IS STILL ALIVE

incr OFFSET from (O « OF _UN) to (3 &« UNIT_SIZE + OF _UN) by UNIT_SIZE do

! FOR EACH DISK

if (.CST_ADDR [.OFFSET, D_PRES] eql PRESENT) and

(.CST_ADDR [ .OFFSET, D_STAT] eql ONLINE) end

(not .CST_ADDR [.OFFSET, D_FATAL))
in

SET_UPAR (.OFFSET);
! SET UP UNIT-RELATED DATA ITEMS
IF SWP_DINT NEQG (.DUP_FLAGS AND SWP_DINT)
! IF DUP CAUSED INIT THEN SKIP THIS SECTION

end;

THEN ACCESS ();

! TRY ACCESS TO INNER TRACK

! IF UNIT IS PRESENT AND ONLINE

end;

* CONTROLLER LOOP

end;

004137

000000G

004737
005002
010246
004737
013700
005760
100035
012701

000000V
0000006

! ROUTINE INIT_TEST
.SBTTL

INIT.TEST INITIALIZATION TEST ROUTINES

JSR
CLR

PC.DRIVER, INIT
R2

JSR

PC,SET.CPAR

TST
BPL

2(RO)
44

INIT.TEST:
JSR

0000006

MOV

000003

MOV

000002

R1,$SAVE2

1887

:
i CTLR

1904
1906

CST.ADDR,RO

1910

#3,R1

: «,0FFSET

1913

000036
000040

15-Dec-1933 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
v0l1.C

INITIALIZATION TEST ROUTINES

010100
006300
063700
032710
001417
032710
001414
032710
001011
010116

000046
000052
000054
000060
000062
000066
000070
000072
000076
000104
000106
000112
000116
000122
000124
000126
000130

004737
032737
001002
004737
062701
020127
003745
005726
005202
000243

000132
000134

003727
000207

2%:

000000G
040000

BIT
BEQ
BIT
BEQ
BIT
BNE
MOV
JSR
BIT
BNE
JSR
ADD

4%
:

BLE
TST

020000
010000

000000G
000000G
000002
000000V

000005

000022

MOV
ASL
ADD

CcMP

R1,RO
RO
CST.ADDR,RO

R1,022
2%
(SP).

INC
R2
.WORD CLV!CLC

BLE
RTS

$CODE$
47 words,
Routine Bease:
;i Routine Size:
i Maximum stack depth per invocation:
5 words

1%
PC
+ 0212

VAX-11 Bliss-16

v3-555

SEQ 0cz44
Page

SPIDERSUSERS:
([DOUCETTE .F ALCON]ICNRQAA .BL2 (3)

;

OFFSET,»

1915

1916

1917

;

OFFSET,»

1920

1921

1922

; »,0FFSET
;

OFFSET,»

CTLR

1913
1907
1906

1887

M3
NRQAM3

RD/RX EXERCISER

v01.0

INITIALIZATION TEST ROUTINES

1928

routine DRIVER_INIT : novalue =

:
;
;

1931
1932
1933

!
¢
¢

:
:

;
H
:

15-Dec-1983 10:35:57

1929
1930

1934
1935

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

THIS ROUTINE IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY
POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE
DRIVER DATA, AND TO BRING EACH RDRX CONTROLLER AND UNIT (DISK)

!
!-

ONLINE
.
mn

1938
1939

local

1942

PKT_ADDR= MSCP_PKT + 10;

! ADDR (TEXT + 0) OF FIRST MSCP PACKET

{:4‘2

incr coum from O to (PKT_CNT - 1) do

* FOR EACH MSCP PACKET

1947

;
:
:

1949
1950
1951

;

f
H

:
H

1945
{:3

1959

;

'USE [.COUNT] = -1;

! MARK PACKET FREE

end;

;

! NEXT PACKET TO ALLOCATE

{33%

1956

;

NEXT _PKT_USE = 0;

nscfinxr {.COUNT, PKT_LO] = .PKT_ADDR; ! LOAD PKT ADDR INTO BUFFER DESCRIPTOR

;
H
3

1948
{gs

MSCP_PKT [.COUNT, PKT_HI] = O;
MSCP_PKT [.COUNT, CONNID] = CID_MSCP;
! SET CONNECTION ID TO MSCP ID
PKT_ADDR = .PKT_ADDR + (PKT_LEN 2); ! ADVANCE ADDR TO NEXT PACKET

incr CTLR from O to (MAX_CTLR - 1) do

if .CST [.CTLR, IP_ADDR] neqa 0

1957
1958

then

1960

! FOR EACH CONTROLLER

¢+ IF CONTROLLER IS PRESENT

(.CTLR);

! SET UP CURRENT CONTROLLER PARAMETERS

cuaisutVECTOR= .CST_ADDR (vec ADDR]:

' SET CURRENT CONTROLLER'S VECTOR ADDRESS

1961

BRLEVEL
= .CST_ADDR [BR_LEV]
t

! SET CURRENT CONTROLLER'S BR LEVEL

1964

if .DCT_ADDR [STAT] eql ONLINE

t IF CONTROLLER IS STILL ALIVE

%gg

CTLR_INIT ();

+ INIT DEVICE AND CTLR DATA

1966
gsd

1969

i# (.CST_ADDR [.OFFSET, D_PRES) eql PRESENT) and

;
3

1971
1972

then
bovin

;

:
;

:
H

o incr OFFSET from (O + OF_UN) to (3 & UNIT_SIZE + OF _UN) by UNIT_SIZE do ' FOR EACH UNIT (DISK)

1970

(not .CST_ADDR [.OFFSET, D_FATAL))

1973
1974

SET_UPAR (.OFFSET);
UNIT_INIT ();

13;2

end;

{g;;

1979

end;

004137

000000G

000000

Page

end;

! IF UNIT EXISTS

! SET UP UNIT-RELATED DATA ITEMS
! BRING UNIT ONLINE

! IF UNIT EXISTS

t IF CONTROLLER IS PRESENT
! ROUTINE DRIVER_INIT
.SBTTL

DRIVER.INIT:

SPIDER$USERS
: [DOUCETTE .FALCONICNRQAA .BLZ (4)

3
;

SEQ 0245

DRIVER.INIT INITIALIZATION TEST ROUTINES

000010
000014
000016

INITIALIZATION TEST ROUTINES

012702
105037
005001
112761
010146
012746
004737
010260

000012G
000000G

000377

000000G

1s%:

000104
000000G
000000G
0000026
0000116
000104

MOV
MOV
JSR
MOV
CLR
CLRB
ADD
cMP
INC

R1, -(SP)
€104, -(SP)
PC,BL $MUL
R2,MSCP.PKT(RO)
MSCP .PKT+2(R0O)
MSCP.PKT+11(RO)
104 ,R2
(SP)+,(SP)+
R1

BLE
CLR
MOV
MOV
JSR

1$
R2
R2,-(SP)
956, -(SP)
PC,BL$MUL
(SP)+,(SP).
CST(RO)
6%
R2,-(SP)
PC,SET.CPAR
CST.ADDR,RO
2(RO), CURRENT .VECTOR
©177000,CURRENT
. VECTOR
(SP)

24:

000074
000100
000104
000106
000112
000114
000116

000002
177000

MOvVB

CHMP

000013

000142

JSR
MOV
CLRB
CLR

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15
R1, $SAVE2
OMSCP.PKT+12,R2
NEXT.PKT.USE
R1

RD/RX EXERCISER

NRQAM3
vo1.0

cMe
TST
BEQ
MOV
JSR
MOV
MOV
8IC
CLR
MOVB
MOV
JSR
MOV
JSR

001234’
001234’

TST

3%:

4%
;

CST.ADDR,RO
940000, (RO)
a3

S$:
6%:

:
:

Routine Base:
90 words,
Routine Size:
6 words
Maximum stack depth per invocation:

4%
R1,(SP)
PC,SET.UPAR
PC,UNIT.INIT
#5,R1

BLE

3¢

CMP

R1,022

(SP)+,(SP)+

INC
R2
.WORD CLV!CLC
2%
BLE

RTS
$CODE$

’

; COUNT
; +,+(COUNT)
:

COUNT,»

PKT.ADDR,
#
#,P
. KT
ADDR

COUNT
COUNT,
«

PC
+ 0350

Page

1928
1942
1947
1945
1947
1948

1949
1950
1951
1946
1945

CTLR
; CTLR,*

1954
1956

=
CTLR,

1959

1960
1961

1962
1964

: «,0FFSET
; OFFSET,»

1967
1969

1970

910000, (RO)

BNE
MOV
JSR
JSR
ADD

CMP

+ ,PKT ADDR

a0CT.

ADD
BIT
BEQ

ASL

4(RO),(SP)
5, -(SP)
PC,BL $SHF
RO,BRLEVEL
PC,CTLR.INIT
S$
#3,R1
R1.RO

SEQ 0246

SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAA .BL2 (4)

R1,013

BPL
MOV
MOV

BIT

000005

#377,PKT
. USE(R1)

VAX-11 Bliss-16 Vv3-555

OFFSET,
s

* ,0FFSET
: OFFSET,«
;

CTLR

1973
1974

1967
1958
1954

1928

QD Rx EXERCISER

NR(aM

INITIAL IZATION TEST ROUTIMNES

33 i
~3oalaunnsan
FEELCLEEL:

Be
Be
B8
B
W
B
Se
BE
Be
Ss
e
e
e
Be
Se
S
e
B
B
B

i4 Dec

1933

10:35:5%7

198% 11:35:15

VAY

11 Blies

B
e

SEQ .4

Page

THIS “DRIVER” ROUTINE 1S CALLED FROM DRIVER_INIT FOR EACw CONTROLLER
CON IGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RDRXx ONL INE
T0 THE MOST. SPECIFICALLY, IT IS WRITTEN TO:

1. INITIALIZE DRIVER CONTROLLER DATA, INCLUDING THE DCT,
2. SET UP THE DEVICE'S INTERRUPT VECTOR ADDRESS,
S, PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE,

4, PERFORM A VECTOR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR
ADDRESS AND INTERRUPT REQUEST LEVEL,
S. DO A MARD INITIALIZATION (FOUR STEPS) ON THE DEVICE.

TESTS FAIL,

THEN ALL UNITS ASSOCIATED wWITw THE

IF ANY OF THESE INITIAL
DEVICE ARE DROPPED.
begin

locel
RESULT

: byte;

INI_CTLR_DAT ();

! INITIALIZE CONTROLLER DATA

SETVEC (.CURRENT _VECTOR, .INT_ADDR [.CCTLR), PRIO7);
' SET DEVICE'S ASSUMED VECTOR ADDRESS !JSD REvV A
SETVEC (.CURRENT VECTOR, .INT _ADDR [.CCTLR), PRIO6);
! SET DEVICE'S ASSUMED VECTOR ADDRESS !'JSD REv A
SET “IGNORE INTERRUPT" BIT
OCT_ADOR [IG_INT] = TRUE;
GET FIRST UNIT NUMBER OF CONTROLLER
(USED By DRS FOR DEVICE-FATAL CTLR ERRORS)
IF DUP CAUSED INIT THEN SKIP THIS SECTION

LSLUN = .CST_ADDR [OF _UN, D_UNIT);

g(zw-oxm NEQ (.DUP_FLAGS AND SWP DINT)

:;.:EG.EIISY () eal FAILURE
in

g&.cm (.CCTLR, DU_INIT);
return;
end;

%F"S‘O_DINY NEQ (.OUP_FLAGS AND SWP_DINT)
if VEC_BR_TEST () eaql FAILURE
in

:&-CTLR (.CCTLR, DU_INIT);

return;
end;

! REGISTER EXISTENCE TEST

' DROP ALL CONTROLLER'S UNITS
'

IF DUP CAUSED INIT THEN SKIP THIS SECTION

VECTOR ADDR AND BR LEVEL TEST

! DROP ALL CONTROLLER'S UNITS

RESULY = MARD_INIT ();

! ATTEMPT HARD DEVICE INIT

i:‘.'.\ltsut eal SUCCESS

! IF HARD INIT WAS SUCCESSFUL

DCT_ADOR [IG_INT) = FALSE;

! CLAER "IGNORE INTERRUPT” BIT

B
SR

v3 555

: novelue -

B
B
e
B
W

SPIDERSUSERS:
[DOUCE TTE . F AL CONIONRGAA
B

2022

rout ine CTLR_INIT

P
R LR R

el el

L SRR g2gsgssss

ms W

mR we

15 Dec

IND RRING ();

WRT _RDRX (RCSA, RC_ALL, SA_GO);

' INITIALIZEBITRESPONSE
RING
(START CTLR POLLING)
' SET “GO”

19 Dec
14 Dec

RD ‘Rx EXERCISER

INTTIALIZATION TEST ROUTINES

vol.¢

if SET_CTLR_CHAR () eql

2036
20387
2038
2059
2040
2041
2042

2043
2044
2045
2046
2047
2048
2049

then

CST_ADDR [STATE)

end;

end

eise

000104
000106
000114
000116
000122
000126
000132

000136

000142
000146
000150
000154
000156
000164
000170
000172
000176
000202

CONTROLLER CHARACTERISTICS

MARK
MARK

ONLINE;

CONYROLLER ONL INE
CONTROLLER ONLINE

g:&_CTLR (.CCTLR, DU_INIT);

! ROUTINE CTLR_INIT
.SBTTL
CTLR.INIT:

CTLR.INIT INITIALIZATION TEST ROUTINES

000000V
000300
0000006

JSR
MOV
MOV

PC,INI.CTLR.DAT
€300, -(SP)
CCTLR,RO

000112’

MOV

INT.ADDRCRO), -(SP)

000003

MOV

ASL

001234

MOV

TRAP

CURRENT.VECTOR, -(SP)

03,-(SP)
¥4

8IS
MOV
MOV

6(RO),R1

177760
0000006

8IC
MOV

#177760,.R1
R1,LSLUN

000006

SWAB

000000G

g'Iif

000000V

JSR

000000V
16:

000000V

28:

000000V

000001
0000006

0000006

g.”.FLAGS

PC.REG.EXIST

2011
2014
2018

Q.I‘Y

g.w.ru‘cs

JSR

PC.VEC.BR.TEST

BNE

TST

0000006
000002
0000006
000012

BEQ

0000006

1980

.
:

040000 000000G
0000006

040000
000001

"DRIVER"
“"PROGRAM"

! DROP ALL CONTROLLER'S UNITS

end;

000002

IN
IN

! HARD INIT FAILED

end;

000002

VAX-11 Blies 16 v3-555
e
SPIDERSUSERS
: [DOUCE T TE ¥ AL CONIONRGREA 8

SC.v_AOOfi [STAT] = ONLINE;

010146

004737
012746
013700
006300
016046
013746
012746
104437
052777
013700
016001
000301
042701
010137
0327%?
001025
004737
005700
001410
032737
001015
004737
005700
001011
013716
012746
004737
062706
000450
004737
110001
042777
120127
001026
004737
012701
013700

SET

5SUCCESS

1983 10:135:57
1983 11:35:15

MOV
MOV
JSR
ADD

CCTLR,(SP)
02, -(SP)
PC,DROP.CTLR
#12,SP

“CM

BR
JSR
MOVe
8IC
JSR
MOV
MOV

H
H

2023

2022
2027

g%.fl

'
H
1 ¢, RESWLT
3
i RESULT,»

PC, INI.RRING

2033
2034

S¢
PC.HARD. INIT
RO,R1
#40000,80CT . ADDR

#1,R1
RDRX ,ADDR,RO

: ¢,RC.REG

2028
2030

D4
INITIALIZATION TEST ROUTINES

vo1.0
000206
000212
000216
000222
000224

000232
000236
000244
000246
000252
000256
000262
000264
000270
000272

010160
004737
020027
001020
052777
013700
052760
000407
013716
012746
004737
005726
062706
012601
000207

MOV

000002
000000 v
000001

100000

0000006

100000

000002

0000006

0000006
000002
0000006
000010

Ss:

SEQ Ocan

Pepe

SPIDERSUSERS: [DOUCE TTE ,FALCONICNRQAA
. BLZ (5,

3
H

RC.REG,

BIS

#100000,80CT.ADDR

2039

H
H

2030
2046

JSR

PC,DROP.CTLR

ADD

10,5P

RTS

H
H
H

2045
1998
1980

MOV
BIS

VAX-11 Blies-16 V3-555

PC,SET.CTLR,.CHAR.
RO, 01

BNE

3s:

R1,2(RO)

10:35:57
11:35:15

JSR
cMP

MOV
MOV

TST

$CODEs
94 words, .
Rout
ine Base:
0
7 words
Maximum stack depth per invocation:

i Routine Size:
;

15 Dec 1983
14 Dec -1983%

RD/RX EXERCISER

NRQAM
3

CST.ADDR,RO
©100000,2(R0O)

CCTLR,(SP)
82, -(SP)
(SP).

+ 0634

203%¢

2040

E4
RD/RX EXERCISER

3
NRQAM
vo1.0

INITIALIZATION TEST ROUTINES

000072
000076
000104
000110
000114
000120
000122

; Routine Size:

;

SEQ 0250

Page

SPIDERS$USERS:[DOUCETTE .FALCONICNRGAA.BLZ (6

: novalue -

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.
IMPLICIT INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER

DCT_ADDR - ADDRESS OF CURENT CONTROLLER'S DCTY

_ADDR [WORDO) = 0;

! CLEAR FIRST DCT WORD

"ADDR [RR_END) = .DCT_ADDR [RR_BEG) + ((RRING_LEN - 1) » 4);
"ADDR [CR_BEG] = .DCT_ADOR [RR_END) + 4;
“ADDR [CR_END] = .DCT_ADDR [CR_BEG) + ((CRING_LEN - 1) » 4);

! LAST SLOT IN RESPONSE RING
! START OF COMMAND RING
! LAST SLOT IN COMMAND RING

"ADDR [RR_BEG) = COMM_AREA + 8 + (.CCTLR « COMM_LEN « 2);

"ADDR [RRTMPOLL) = .DCT_ADDR [RR_BEG);:

ADDR [CR_POLL) = DCT_ADDR [CR_NEXT) = .DCT_ADDR [CR_BEG);

_R1 ]

000010’
000006
000014 000006
000010
000006
000004
000012
000014 000012
000014
000020
000016

42 words,

Maximum steck depth per

Routine Base:

invocation:

6 words

! START OF RESPONSE RING

! FIRST RRING SLOT TO POLL

' CRING POLL AND NEXT COMMAND POINTERS

.SBTTL

INI.CTLR.DAT INITIALIZATION TEST ROUTINES

JSR
MOV
CLR
MOV
ADD
MOV
MOV
JSR
ADD
MOV
MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
MOV
MOV
v
RTS

R1, $SAVE2
OCT.ADDR,R1
(R1)
04 ,R2
R1,R2
CCTLR, -(SP)
€50, -(SP)
PC,BL ML
@COMM. AREA+10, RO
RO,(R2)
RO.6(R1)
014 ,6(R1)
#10,R0
R1,R0
6(R1),(RO)
®4,(RO)
(RO),12(R1)
014,12(R1)
(R2),14(R1)
(RO),20(R1)
(RO),16(R1)
(SP)s,(SP)e
PC

INI.CTLR.DAT:

004137

013701
005011
012702
060102
013746
012746
004737
062700
010012
010061
062761
012700
060100
016110
062710
011061
062761
011261
011061
011061
022626
000207

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

routine INI_CTLR_DAT

1983 10:35:57

2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070

000010

15 Dec

SCODES

+«

1130

;
:

2050
2063

2064

:
;

2065
2066

;
;
:
:
:

2067
2068
2069
2062
2050

F 4
INITIALIZATION TEST ROUTINES

routine REG_EXIST =
THIS IS THE REGISTER EXISTENCE (OR "PROBE”) TEST DESIGNED TO VERIFY
THE PRESENCE OF AN RDRX DEVICE. THIS OBJECTIVE IS ACCOMPLISHED BY

SETTING UP THE NON-EXISTENT MEMORY (NEX) TRAP VECTOR (LOCATION 4) AND

ATTEMPTING TO READ WHAT IS ASSUMED TO BE THE DEVICE'S SA AND IP
REGISTERS. IF THE NEX TRAP HANDLER IS INVOKED DUE TO AN ABSENT DEVICE,
THEN THE GLOBAL DATUM “NEX” WILL BE SET TO "TRUE". THIS DATUM
DETERMINES THE SUCCESS / FAILURE VALUE OF THIS ROUTINE.

2077

2078
2079
2080
2081
2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
2097
2098
2099
2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119

begin
local
TEMP : word,
DUMMY : word;
if

!
!

TEMP FOR READING SA AND IP
AS THE NAME IMPLIES

SKIP TEST FOR NEXT PASS

SET UP TO READ SA FIRST

e e e v e e

2071
2072
2073
2074
2075
207%

SEQ 0291

)
VAX-11 Bliss-16 V3-555
26
age
SPIDERSUSERS : [DOUCET TE .FALCONICNRGAA .BL2 (7

S0
8
s
86
S
S
Se
S5
S5 Be
S
B
B6
Be S
S5 S5 Be Se S5
S6
S5 B
B
e
6
e
B8 B
S5
S5
G5 S5 Be S5
BE S5
B4
S5 Ba
B4
B
B
e
BE
B
B
B
W

15-Dec-1983 10:35:57
14 -Dec-198% 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.¢

SET TO "TRAP NOT RECEIVED”
SET LOCATION 4 TRAP VECTOR ADDRESS
READ REGISTER (THEN TRAP OR CONTINUE)
DUMMY INSTRUCTION TO COVER TRAP RETURN BUG
(TRAP RETURNS TO NEXT INSTRUCTION)
CLEAR LOCATION 4 TRAP VECTOR ADDRESS

.ENTRY_REASON egl NEW_PASS

then

return SUCCESS;

OF _RC = 2;

“

.in

m = FALSE;

SETVEC (4, NEX_TRAP, PRIO7);

TEMP = _(.RORX_ADDR
DUMMY = O;

.OF _RC);

CLRVEC (4);

IF NEX TRAP OCCURRED

if .NEX
then

[.CCTLR, C_ERR_HRD] + 1;
s.!is TBL [.CCTLR, C_ERR_HRD] = .C_ERR_TBL
! REGISTER EXISTENCE TEST FAILED
ERRDF (10, EGD_10, EMS_10);
SETPRI (PRIOO);
return FAILURE;

! LOWER PRIORITY

OF _RC =

end
& lag

.OF RC - 2;

SET UP FOR IP REG OR QUIT

end
until .OF_RC les O;

return SUCCESS;

end;

000000

004137

0000006

000004
000012

123727
001461

000000G 000005

LSBTTL
REG.EXISI;R
cMPB
BEQ

REG.EXIST INITIALIZATION TEST ROUTINES
R1,$SAVE2
§?TRV.REASON.05

i
'
i

2071
2089
2091

L4
15-Dec-1983 10:35:57
14 Dec-1983 11:35:15

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

012737
005037
012746
012746
012746
012746
104437
013700
063700
011001
005002
012700
104436
032737
001416
015700

000002

0000006

000000G

000340
0000006
000004
000003

1%:

MOV

02,0F .RC

NEX

CLR

MOV
MOV
MOV

€340, -(SP)
ONEX . TRAP, -(SP)
04, -(SP)

TRAP

MOV

04, ,RO

;

@1,NEX

BIT

BEQ
MOV

24
CCTLR,RO

INCB

C.ERR.TBL(RO)

ASL

.WORD
.WMORD
.WORD
CLR

000166

2s:

3s:
44:

ADD
BR
SUB

10,5P
4%
02,0F .RC

;

o, TEMP

DUMMY

2100

2102

2104

2107

2108

2109

2104
2106
2113
2096
2116

TST

OF .RC

:
3
:
H
H

MOV

1,RO

2083

2071

ADD

#10,5P

B8GE
RTS

RTS

CLR

$CODES$
60 words,
Routine Bease:
9 words
Maximum steck depth per invocation:

i Routine Size:

12
EGD.10
EMS.10
RO

TRAP

000000G

2099

TRAP

000002
000010

2093
2097
2098

RO
RDRX .ADDR,
OF .RC,RO
(RO),R1

CLR

000010

H
H
H

MOV
ADD
MOV

TRAP

000413
162737
062706
005737
002322
012700
000207
005000
000207

SEQ 0c%¢
VAX-11 Bliss-16 v3-555
Page
27
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA
.BL2 (7)

1254

4
NRQAM3

RD/RXx EXERCISER

vo1.0

’
:
’
;
’
'
;
'
f
[
:
'

'
:
'
'

INITIALIZATION TEST ROUTINES

2120

routine VEC_BR_TEST =

212%
2124
2125
2126
2127
2128
2129
2130
2131
2132
ggz

!
!
!
!
!
!
!
!
!
!
5

3152Ve

2135
213
2137

ggg

2145

H
'

3
i

2143
2144

g%gg

;
’

2154
2155

:
'

'
:
H

2153

2156
2157

2158

2159

2160
2161
g%:g

gi:;

:
H

2166
2167

3
3

3
H

3
H
H

IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY SETTING THE
PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE
USER. A FORCED INTERRUPT SHOULD NOT OCCURR. THEN, BY LOWERING THE
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOULD OCCUR.

;

if .ENTRY_REASON egql NEW_PASS
then
in

SETPRI (PRIOO);

2147

2152

;

THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RDRX VECTOR ADDRESS GIVEN
B8Y THE USER DURING THE MW DIALOG IS VALID, AND (B) THAT THE
USER-SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT. THE FIRST
OBJECTIVE IS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO O AND FORCING
AN RDRX INTERRUPT. IF THE USER SPECIFIED AND INCORRECT VECTOR ADDRESS,
THEN THE RESULT MAY BE UNPREDICTABLE. FOR THIS REASON, THE MESSAGE
*FUNCTIONAL TEST STARTED” IS PRINTED BEFORE THE TEST, AND
“EXERCISER STARTED” IS PRINTED AT ITS SUCCESSFUL CONCLUSION. IF
EITHER “FUNCTIONAL TEST ...” OR "EXERCISER ...”" DOES NOT APPEAR, THEN
PROGRAM CONTROL IS ASSUMED LOST AND A FATAL TRAP IS LIKELY TO OCCUR. AT
THIS POINT, THE EXERCISER MJST BE STARTED AGAIN.

2146

[
'

!
!
¢

gi:g

ggg
2172

2173
2174
2175

return SUCCESS;

! LOWER PRIORITY

! SKIP TEST IF NEXT PASS

PRINTF (MSG_02);

if INT_GEN () eql FALSE

! FORCE AN INTERRUPT

then

ho!”

TBL [.CCTLR, C_ERR_HRD) =

eiuor (11, EGD_11, 0);
return FATLURE;

“FUNCTIONAL TEST STARTED”

IF INTERRUPT DID NOT OCCUR
.C_ERR_ TBL [.CCTLR, C_ERR_HRD) + 1;

! VECTOR TEST FAILED

end

else

PRINTF (MSG_03);
SETPRI (.BRLEVEL);

if INT_GEN () egl FALSE

then

¢ INTERRUPT DID OCCUR

! "EXERCISER STARTED”
! SET PRIORITY TO ASSUMED BR LEVEL

! FORCE AN INTERRUPT (SHOULD NOT OCCUR)

.";fi”
SE
I (.BRLEVEL - #0'4&0');

! IF INTERRUPT DID NOT OCCUR
! LOWER PRIORITY BY 1

i;.'.‘DCT_m [SA_SAVE] neq O

! IF INTERRUPT DID OCCUR (SA_SAVE WOULD BE NON-ZERO)

DELAY (1);

SETPRI (PRIOO);
return SUCCESS;
end;

SEQ 0257

Page

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BLZ (8

2142

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 v3-555

'
'

15 -Dec-1983 10:35:57

! WAIY

! RESTORE PROCESSOR PRIORITY 70 O
! ONLY SUCCESSFUL EXIT POINT

14
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAMZ
vo1.0

INITIALIZATION TEST ROUTINES

2176
2177
2178
2179
2180
2181
2182
2183
2184
2185

VAX-11 Blies-16 V3-555

JFU 04
Page

SPIDERSUSERS: [ DOUCE
T TE . F ALCONJCNRQAA. 81 2

‘u’

(8)

end;
end;

SETPRI (PRIOO);
C_ERR_TBL [.CCTLR, C_ERR_HRD)

ERRDF “(12, EGD_12, EMS_13);

COME HERE ONLY FOR BR TEST FAILURE

.C_ERR_TBL [.CCTLR, C_ERR_HRD]

return FAILURE;

end;

.GLOBL

L$DLY

LSBTTL

VEC.BR.TEST INITIALIZATION TEST ROUTINES

VEC.BR.TEST:
MOV
TST
cMPB
BNE

CLR

TRAP

1%:

MOV
MOV
MOV

TRAP

JSR
TST

2120

-(SP)
E?TRY.“EASON.OS

2143

2146

oMSG.
02, -(SP)

2145
2150

41
74

#1,-(SP)
SP RO

PC.INT GEN
RO
24
CCTLR,RO

2152

2155

C.ERR.TBL(RO)

2156

2152
2101

2%:

TRAP
TRAP

000114

TST

MOV

000142

3%:

000152

44:

TRAP
MOV
BEQ
MOV
BEQ
CLR

ggLEVEL.RO

2162

PC,INT.GEN

2164

RO
8¢
BRLEVEL ,RO
#40,R0O

2167
P HTK-‘Z

;

4, 88TMPL

SSTMP

2168

J4
15-Dec-19383
14 -Dec-1983

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES
RO
4
R1

Ss:

000000G
000002

38
DCT.ADDR,RO
2(RO)
8¢

6%:

RO
41

000006
000001

06,5P

#1,R0

7s:

10$
(SP)«

8s:

0000006

CgTLR.RO

000000G

C.ERR.TBL(RO)

55
14
9s:

000252

005726

RO
41

10s:

EGD.12
EMS.12
(SP)e+,(SP).
RO
(SP).
(SP)+,R1

CcMP
CLR
TST

MOV

RTS

Routine Size:

$CODE$
88 words,
Rout ine Base:
7 words
i Maximum steck depth per invocation:

1444

10:35:57
11:35:15

SEQ 0en%
VAX-11 Bliss-16 v3-555
30
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAR . BLZ ( 8)
:

SSTMP1

;

$STMPZ

2170

2173
2170
2172
2160
2181

2182

2183

2120

<4
NRG@AM3

RD/RX EXERCISER

v01.0

3
3

3
3
3
3
3
3
3
3

INITIALIZATION TEST ROUTINES

2186

routine INT_GEN =

2189
2190
2191
e192
2193
2194
2195

!
!
!
!
!
!
!

2187
2188

219

!«

2199

52285

3
:

:
:
:
3

:
H

3
3

3
3
:
'

2200

local

2203

DCT_ADDR [SA_SAVE) = 0;

2205
2206
2207

DELAY (10);
! WAIT
SA = _RDRX_ ADDR [RCSA, RC_ALL]);
! STEP
1 READ
SA = (IflRING* 8) or (.CURRENT_VECTOR t -2) or SA_INT;

2204

gzzg

2210
2211

2212

SA : word;

WRT_RDRX (RCSA, RC_ALL,

2215

2216

2217
2218
2219

2220

000016
000022
000026

012700
010077
012701

177777
C©O00000G
000012

013700
001404
005066
005300
001374
005301
000766
013700
016016

! STEP 1 WRITE

000000G

000002

000000G
000002

if .DCT_ADDR [SA_SAVE) neg ©

IF SA WAS CHANGED

INTERRUPT OCCURED

return TRUE;

' IF INTERRUPT DID NOT OCCUR

.SBTTL
INT.GEN: JSR
cHP
MOV
CLR

18:

2%:
3s:

000000G
000002

! STEP 1 WRITE VALUE

TOTAL DELAY COUNT OF 8,000

return FALSE;

000000G

001411

.SA);

end;

004137
024646
013700

005060

! WRITE IP TO START INIT SEQUENCE

DELAY (S);

then

000000
000004
000006

000034
000040
000042
000046
000050
000052
000054
000056
000062

! ZERO OUT SA SAVE WORD IN DCT

incr COUNT from 1 to 1600 do
begin

end;

000032

Page

SPIDERSUSERS
: [DOUCETTE.FALCONICNRQAA .BL2 (9

! STORAGE FOR STEP 1 READ AND WRITE

WRT_RDRX (RCIP, RC_ALL, ALL_ONES);

2221

000012

SEQ_0256

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

THIS ROUTINE BEGINS AN RDRX 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 HELP VERIFY THE
THE USER-SPECIFIED VECTOR ADDRESS AND BUS REQUEST INTERRUPT LEVEL.
A VALUE OF “TRUE” IS RETURNED TO THE CALLER IF AN INTERRUPT OCCURS,
AND “FALSE” OTHERWISE. THE INTERRUPT IS VERIFIED BY A NON-ZERO VALUE
IN THE “SA SAVE” WORD IN THE DEVICE'S DCT.

15-Dec-1983 10:35:57

4% :

INT.GEN INITIALIZATION TEST ROUTINES
R1,$SAVE2
:
-(SP),-(SP)
DCT.ADDR,RO
:
2(RO)

MOV
MOV
MOV

#-1,R0
RO, SRDRX ., ADDR
#12,.R1

; »,RC.REG
: RC.REG,»
: *,88TMP2

MOV
BEQ
CLR
DEC
BNE
DEC
BR
MOV
MOV

L$OLY,RO
3s
2(SP)
RO
2t
R1
1$
RDRX ,ADDR, RO
2(R0O),(SP

;

&, 88TMPL

i
;

SSTMP
$STMPL

;

S$STMP2

:
:

#,RC.REG

BEG

2186
2203

2204
2205

2206

000066
000072
000074
000076
000100
000104
000106
000112
000116
000122
000124
000130
000132
000136
000140
000142
000144
000146
000150
000154
000160
000162
000166
000170
000172
000174
000176
000200
i

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

INITIALIZATION TEST ROUTINES

013701

001234

MOV

052702

111200

MOV
BIS
MOV

006201
006201
010102

010201
010160

012702
012701
001411
013700
001404
005066
005300
001374
005301
000766
104422
013700
005760
001403
012700

ASR
ASR

000002
003100

000005

S$:

64:

0000006

000002

78:
8s:

9s:

000000C
000002

11%:

000207

Routine Size:

65 words,

Maximum stack depth per

Rout ine Base:

invocation:

7 words

TRAP

:
:
:

MOV

DCT.ADDR,RO
2(RO)

10%

MOV
BR

€1,.RO
11%

DEC
BNE

R2
Ss
RO
(SP)+,(SP).

CLR
cHe
RTS

$CODES$

R1,R2
#111200,R2
R2,.R1

RO
7%
R1
64

DEC
BNE
DEC
BR

BEQ
10s$:

R1,2(RO)
©3100,R2
o5 ,R1
9s
L$DLY,RO
8s
2(sSP)

000001

CURRENT .VECTOR,R1

R1
R1

MOV
MOV
MOV
BEQ
MOV
BEQ
CLR

SEQ 0257
Page
32
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BLZ (9)
VAX-11 Bliss-16

1724

v3-555

2207

*,5A
¢,S5A
SA,RC.REG

;

RC.REG,*

;

*,88TMP2

;

#,88TMP1

;
;

SSTMP
$STMPL

;

$STMP2

;

#,COUNT

2208
2210

2212

2215

2217

; COUNT

2210

H
H

2198
2186

M
RD/RX EXERCISER

15-Dec-1983 10:35:57

INITIALIZATION TEST ROUTINES

2222
2223
2224
2225
2226
2227
2228
2229

rout ine HARD_INIT

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 Vv3-555

THIS ROUTINE PERFORMS THE FOUR READ / WRITE STEPS REQUIRED TO

INITIALIZE AN RDRX DEVICE.

IF NO READ ERRORS ARE DETECTED IN ANY OF

THE FOUR STEPS, THEN A SUCCESS VALUE IS RETURNED TO THE CALLER.
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE.
IF ALL ATTEMPTS FAIL, A FAILURE INDICATION IS RETURNED.

S5
S5

begin

local

IE_VEC : word;

IE-BIT-AND-VECTOR-ADDRESS/4 BYTE

(USED IN STEP 1 WRITE AND STEP 3 READ)

IE_VEC =

.CURRENT_VECTOR t

-2;

! GET VECTOR ADDR/4 (IE = 0)

incr ATTEMPTS

begin

from 1 to INI_ATT do

label

STEP_1_READ,
STEP_2_READ,
STEP_3_READ,
STEP_4 _READ;

WRT_RDRX (RCIP, RC_ALL, ALL_ONES);

WRITE IP TO START INIT SEQUENCE

STEP 1 READ
STEP = 1;
STEPS:S?E\.D:
incr COUNT from 1 to 100 do

&’:Y‘ (5);
g:f&é = _RDRX_ACCR [RCSA, RC_ALL];

BE S

Be S5 S5

B8 B

2231

BE BE

f (.SA_REG and S1_MASK) eql SA_S1

tmloovo STEP_1_READ;

! TOTAL DELAY COUNT OF S00 FOR STEP 1
! READ SA
'

IF STEP 1 READ IS 0.K.

exitloop;

end;

STEP 1 WRITE

end;

SA_REG = (WR_RING t 8) or ,IE_VEC;
WRT_RDRX (RCSA, RC_ALL, .SA_REG);

SEQ Oe'
Page

SPIDERSUSERS: [DOUCETTE .FALCON]ICNRQAA .BL2 (10

S5 S

NRQAM3
vo1.0

! STEP 1 WRITE VALUE
! STEP 1 WRITE

N4
NRQAM3

RD/RX EXERCISER

v0l1.0

INITIALIZATION TEST ROUTINES

)

3
3
H
3
;
'
:
H

3
3
H

2278
2279
2280
2281
2282
2283
2284
2285

2297
2298
2299
gggg

gggg

:
'
’
3

2304
2305
2306
ggg;

}

’

[
'
3
H

:
3
:
:
’

}
:
3

! READ SA
IF STEP 2 READ IS 0.K,.

leave STEP_2_READ;

end;

exitloop;

end;
!
!
H
H

!
!

:
3
'
:
3

! TOTAL DELAY COUNT OF 10,000 FOR STEP 2

if (.SA_REG end S2_MASK) eql (SA_S2 or WR_RING) !

STEP 2 WRITE

WRT_RDRX (RCSA, RC_ALL,

.DCT_ADDR [RR_BEG]);

! RINGBASE-LO, PI = 0

STEP 3 READ
STEP = _STEP «
STEPGEGQEAD:

2309
2310
2311
2312
2313

incr COUNT from 1 to 2000 do
begin
DELAY (5);
BREAK;

gg{g

SA_REG =

2316

if (.SA_REG and S3_MASK) eql (SA_S3 or

2317

then

2318
2319
2320
2323
2324
2325
2326
2327

gggg
23%%0
2331
2332
2333

_RDRX_ADDR [RCSA, RC_ALL];

TOTAL DELAY COUNT OF 10,000 FOR STEP 3 READ

! READ SA
.IE_VEC)

IF STEP 3 READ IS 0.K.

leave STEP_3_READ;

end;
exitioop;

end;

!
!
¢
H

!
¢

STEP 3 WRITE

WRT_RDRX (RCSA, RC_ALL, 0);
STEP 4 READ
STEP = _STEP +
STEP_4_READ:

‘-'.EQ O(

SPIDERSUSERS: [DOUCETTE. FALCON]CNRQAA BLZ (10

STEP = _STEP + 1;
STEP_2 _READ:
begin

then

2296

VAX-11 Bliss-16 v3-555

STEP 2 READ

2290

3
'
'
:

14-Dec-1983 11:35:15

incr COUNT from 1 to 2000 do
begin
DELAY (5);
BREAK;
SA_REG = .RDRX_ADDR [RCSA, RC_ALL];

2289

2291
2292
2293
2294
2295

!
!

2286
2287
agge

:
3
3
s
s

15-Dec-1983 10:35:57

! PP, RINGBASE-HI = 0

NR gAML

WD RAx EXFACISER

Tod

INITIA IJATION TEST ROUTIN

Jh%e

~
Deg

5;3

imcr COUNT from 1 to 2000 oo

'
'
i

2358
25%%9
5;:0

28542

’
}

285

cla%

2544

i
'
'

2546
2547
2348

}
’
'

253%0
3%
28%2

2354

’

'
'

2349

2358

)
]

2%2
2%3

000070
000072
000074

000076
000100
000104

CREDIT BAL = 1;

! START WITH A CREDIT BALANCE =« 1

return SUCCESS;

! SUCCESS EXIT POINT

104422

TRY AGAIN OR GIVE WP

LSBYTL

MARD.INIT INITIALIZATION TEST ROUTINES

JSR

R1,8SAVES

]

000002

MOV
ASR
ASR
MOV

CURRENT .VECTOR R4
B4
R4
®2,.RS

;
y
1
;

000000G

MOV

RO, BRORX , ADDR

3+ RC.REG,

MOV
BEQ
CLR
DEC

LSDLY.RO
&4
10(SP)
RO

3 ,88TMPL

HARD
, INIT:

SU8

001234°

177777

000001
000144
000005

MOV

0000006

000000G
000010

001374
005301
000766

013700
016066

! BURST, LF, GO = O

! ROUTINE HARD _INIT

012700

013700
001404
005066
005300

leave STEP
4 READ;

return FAILURE;
eng;

000024

000054
000060
000062
000066

1G,000 FOR STEP a4 REAL

! READ SA

! NO CREDIT BALANCE

0000

012737
012702
012701
001411

C.ERR_TBL (.CCTLR, C_ERR _MRD) = .C_ERR TBL [.CCTLR, C_ERR _WRD) + 1;
EARDF "(13, EGD_13, EMS_13);
! INIT SEQUENCE FAILED

s‘;?fl

Q00034
000042
000046
0000%2

DECAY COUNT OF

CREDIT BAL - 0‘

000004

010077

* IF STEP 4 READ !5 0.,

end;

0000006

000030

if (,SA_REG and S8 MASK; eql 5A 54

WRT_RDAX (RCSA, RC _ALL, 0);

004137

013704
006204
0“;8;
012

* TOTAL

Page

STEP 4 WMRITE

000000

000010
000014
000016

vAx 11 Blies 16 ¢3% %5

CBTDERS SERS:TDOCE
TTE % AL COUNIONKR
G

end;

¢
!
!

gggz

2360
2%1

[1:3%:1%

ena;
S
eritloop;

gga

25359

DELAY (S);
BRE
A ;
SA REG = .RDRX _ADDR [R(SA, RT AL );
then

2545

’

i
;

Dec 194% 10:3%:5%?

i4 Dec

18:

F1F

38
48

0000006
000002 000006

Se:

MOV
MOV
MOV
BEQ

BNE
DEC
B8R

TRAP

MOV
MOV

012,5P

¢-1,R0

61,STEP
€144 ,R2
o5, .R1
Ss

34
R1
24

RDRX ., ADDR ,RO
2(R0O),6(SP)

eRee
o, IE,.VEC
IE.VEC
IE.VEC
o, ATTEMPTS

; *,RC.REG

f
i ¢,COUNT
i s, 88TMP2

22%8
2240

2249

2253
22%7
22%9

; S8TMP
3 $8TMP)L
s $8TMP2
5
3 ¢,RC.NEG

2261

NRQAMS
vo1.0

RO ‘Rx EXERCISER

000112

0000006

)

15 Dec
14 -Dec

INITIALIZATION TEST ROUTINES

BIC

000124

6(SP),SA.REG
6(SP),RO
01777,R0
RO, 24000
68
R2

000140
000142

68:

18
244¢
R4 ,SA.REG
0111000, SA.REG

SA.REG,R1
RDRX.ADDR,RO

74:

9%:

10¢:

118:

ceh’

COUNT

226%
2257

IE.VEC,»

224l
2275

+,RC.REG

2276

03720,R2

e ,COUNT

o5,R1
118
L$DLY,RO
10¢
10(SP)

RO
94
R1

8¢
22
. ADDR , RO
RORX
4(SP),SA.REG
4(SP),RO
#3400,R0

RO, #10222

b2
(10

RC.REG,»
»
SA.REG,

»
RC.REG,

2(RO),4(SP)

12%:

SEQ Qev. )

- age
VAX-11 Blies 16 v3 555
SPIDERSUSERS
: [ DOUCE TTE . F ALCON JCNRGAL 1 2

R1,2(RO)

STEP

8s:

1983 10:3%5:57
198% 11:35:15

s, 88TMP2

2280
2284
2286

s, 88TMP]

ssTMP
$8TMPL

$sTMP2

2288
2290

2292
2284
2241
2302

2306
23.6
13¢:

2310
2312

146

15¢:
164
17¢;

2314

DY
15 Dec - 1983 10:35:57
14 -Dec - 1983 11:35:15

RD/Rx EXERCISER

INITIALIZATION TEST ROUTINES

016600
042700
020003

000610
000612
000614
000616
000620
000624

001403
005302
001343
000457
013700 0000006
005060
005237
012703
012701 000005
001411
013700
001404
005066
005300
001374
005301
000766
104422
013700
016016
011637
011600
042700
020027
001403
005303
001345
000413
012737
005001
013700
005060
012700
000414
005037
013700
006300
105260
104455
000015
000000G
0000006
005000
062706 000012
000207

; Routine Size:
;

000002
003400

MOV

2(SP),RO

DEC

BIC
cMpP
BEQ

18%:

19¢:

20%:
218:
224

23%:

BNE
BR
MOV

CLR

INC
MOV
MOV
BEQ
MOV
BEQ

CLR

DEC
BNE
DEC
BR

TRAP
MOV
MOV
MOV
MOV
8IC
ce

BEQ
DEC

BNE
BR
MOV
CLR
MOV
CLR
MOV
B8R
CLR
MOV
ASL

INCB

TRAP

27%:

134
264
. ADDR, RO
RDRX
2(RO)

H
'

2241
2328

2332

10(SP)

;

$STMP

;

S$STMP2

22
RDRX
. ADDR,RO

231¢
2318

; COUNT

¢,88TMPL

RO
21
R1
20

Pege 37

;

s ¢,COUNT

;

2310

2336

2338

$SsTMPL

2340

: SA.REG,*

2342

H
3 COUNT

2344
2336

'
:
;: RC.REG

2241
2353
2354

2241

2359

2361

2232

2(R0),(SP)
(SP),S5A.REG
(SP),RO
03777,R0
RO, #40000

254

19¢
268
01,CREDIT.BAL
R1
,RO
. ADDR X
RDR
2(RO)
#1,R0
274
CREDIT.BAL
CCTLR,RO
RO

C.ERR.TBL(RO)

ADD

012,5P

Routine Base:
$CODES$
203 words,
Maximum steck depth per invocetion:
13 words

SA.REG,
s

&,88TMP2

15
EGD.13
EMS.13

RTS

;

224

SEQ Gesde

SPIDERSUSERS:
[DOUCETTE .FALCONICNRIAAR BL2 (10

STEP
03720,R3
05,R1
234
L$OLY,RO

.MORD
.WORD
.MORD

CLR

VAX-11 Blies 16 V3-555

» 2126

; ¢, ,RC.REG
H RC.“EG.‘

2360

2222

E5
NRQAM3

RD/RX EXERCISER

v01.C

INTTIALIZATION TEST ROUTINES

2364

routine INI_RRING : novalue -

:
f
:
’
:

2367
2368
2369
2370
2371

!
!
!
!
!

2378

3
:

:
3
:

2365
2366

2372

2374
2375
533?

‘

14 -Dec-1963 11:35:15

VAX-11 Blies-16 v3-555

THIS ROUTINE IS RESPONSIBLE FOR ALLOCATING ENOUGH MSCP PACKETS TO
FILL AN RDRX RESPONSE RING. THE BUFFER DESCRIPTOR OF EACH PACKET
C(LOCATED IN FRONT OF THE PACKET ITSELF) IS LOADED INTO SUCCESSIVE
RRING SLOTS. NOTE THAT THE BUFFER DESCRIPTORS HAVE BEEN INITIALIZED
WITH THE FLAG AND OWNERSHIP BITS SET 70 "1“, MAKING EACH SLOT
CONTROLLER -OWNED .

IMPLICIT INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT

!
!
:

3
:

gssgi

2381
2382

locel
index : word,

gg:z

RRING_ADDR = .DCT_ADDR [RR_BEG];

! FIRST RESPONSE RING SLOT

s
;
3
:

2387
2388
2389
2390

incr COUNT from 1 to RRING_LEN do
begin
index = GET_PKT (.CCTLR)
.RRING_ADDR
= .MSCP_PKT
[.index, PKXT_LO);

! GET AN MSCP PACKET
! LOAD LO-ORDER BUFF DESC INTO SLOT

2393

3
H

s
:
:

:
H

2391
2392
2394

2395

239%

2397

RRING_ADDR;

RRING_ADOR = .nnc-nooa . 23
.RRING_ADDR = .MSCP_PKT [.index, PKT_WI);
PKT_USE [.index] = .CCYLII:

! ADVANCE TO SECOND WORD
! LOAD WI-ORDER BUFF DESC INTO SLOT
! PACKET IN USE

.RRING_ADDR = ..RRING_ADDR or ED_OWN or ED FLAG;' GIVE OWNERSHIP TO CONTRLLER

RRING_ADDR =
end;

.RRING_ADDR + 2;

SE Q Gek?

Page

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA BLZ (11

2380

3
3

15 Dec-1983 10:35:57

! ADVANCE TO NEXT SLOT

P
NRQAM3

RD/RX EXERCISER

v01.0

INITIALIZATION TEST ROUTINES

)

000000

004137

000000G

000004

013700

000000G

000014

013703

000000G

000010

016004

000020
000024

012702
010346

000034
000036
000042

010116
012746
004737

000026
000032

000046
000052
000056
000062

000066
000072
000074
000076

000100

15-Dec 1983 10:35:57

004737
010001

016024
016014
013703
110361

052724
022626
005302
001352

LSBTTL
INI.RRING:
JSR

MOV

000004

MOV

000004

MOV
MOV

MOV
18:

000000G
000104
0000006

0000006
000002G
000000G
000000G
140000

000207

;i Routine Size:

14-Dec 1983 11:35:15

JSR
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOVB
BIS
cHP
DEC
BNE
RTS

33 words,

;i Maximum stack depth per

Routine Base:

invocestion:

8 words

VAX-11 Bliss-16 v3-555

SEQ Ozha

SPIDEROUSERS:(DOUCH!E.FMCON]CWOAA.BL..; (11

INILRRING INITIALIZATION TEST ROUTINES

R1,$SAVE4

4(RO),.R4

;i ¢,RRING.ADDR

DCT.ADDR,RO
CCTLR,R3

04 ,R2
R3,-(SP)

PC,GET.PKT
RO,R1

R1,(SP)
€104, -(SP)
PC,.BLSMUL

2364

2385

2389

: »,INDEX
;s INDEX,s

2390

; ¢,COUNT
H

2387
2389

MSCP.PKT(RO),(R4).
MSCP.PKT+2(R0O),(R4)
CCTLR,R3
R3,PKT USE(R1)

; *,RRING.ADDR
; *,RRING.ADDR
;
; o,s(INDEX)

2392
2393

; ¢, ,RRING.ADDR
:
; COUNT

2394
2388
2387

2364

€140000,(R4 ).
(SP)+,(SP)+
R2
18

S$CODES . 2754

G5
NRQAM 3

RD/RX EXERCISER

v01.0

INTTIALIZATION TEST ROUTINES

15 -Dec -1983 10:35:57

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 v3-555

2399
2400

routine SET_CTLR_CHAR =

;
;
;

2402
2403
2‘8‘5

¢
¢
:

THIS ROUTINE IS CALLED BY CTLR_INIT AFTER THE RDRX HAS BEEN HARDINITIALIZED. ITS PURPOSE IS TO FORMAT AND SEND THE “SET CONTROLLER
CHARACTERISTICS” COMMAND, AND TO VALIDATE THE RESPONSE (END MESSAGE
).

!
!

IMPLICIT INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER

;

;
;
3

'
'

3
;

;

[
:

;

;
H

2401

2406
2407
2408

2409
2410
2411
2412

2413

2414
2415

begin

MISCELLANEOUS INITIALIZATON

g:ig

QIO [.CCTLR) = 0;

* INITIALIZE NO. OF OUTSTANDING QIOS

2418

incr COUNT from O to (RP_CNT - 1) do

t INITIALIZE RETURN PACKET POOL

g:gg

I00G_IN = IODQ_OUT = O;

* INITIALIZE I/0 DONE QUEUE POINTERS

g:g

RP_USE [.COUNT) = -1;

2423

P_INDEX = GET_PKT (.CCTLR);

! GET AN MSCP PACKEY

;
;
'

2425
2426
g:g;

MSCP PKT [. P _INDEX, OPCODE) = ow-scc.
MSCP_PKT E “INDEX, C_FLAGS) = _msx;
MSCP_PKT
[.P_INDEX, CHD_TYPE) =
_CMD;

! OPCODE = SET CTLR CHAR
! CONTROLLER FLAGS
* IMMEDIATE COMMAND

;

2424

2429

2431

2430

MSCP_PKT [.P_INDEX, MSGLEN] = SZ_SCC;

if SEND (.P_INDEX) eql FAILURE

then

! PACKET SIZE

! ATTEMPT SEND
!

IF SEND WAS UNSUCCESSFUL

2432

c tlL [.CCTLR,C_ERR_HRD] = .C_ERR_TBL [.CCTLR, C_ERR_HRD] + 1;

;
p
:

2434
2435
2436

PUT PKT P_INDEX);
DROP _ cn.a LCCTLR, ou-crnm.).
return FAIL\RE:

:
i

2438
2439

else
begin

’
3

244)
2442

332

:
3

:
i
H

2433

2437

2440

2443
2444

g::;

2449

2451

;
:
H

2450

2452
2453

2454

20, EGD_20, 03

' FATAL ERROR

' RETURN PACKET TO POOL
' DROP CONTROLLER

end

! IF SEND WAS SUCCESSFUL

bo!m

WAIT ()
RP_INDX
= OUT_I00Q (); °

! WAIT FOR RETPKT RESPONSE
! GET INDEX
OF RETPKT

if .RP_ADDR [MESTYP] neq MT_SEQ

* RETURN ALL RETPKTS NOT SENT BY CONTROLLER

RP_ADDR
= RETPKT « (.RP_INDX « RP_LEN # 2);
then

! CALCULATE RETPKT ADDRESS

PUT_RETPKT (.RP_INDX);

end

until C. w Aooa [CONID) eql CID_DRIVER) or
(C.RP_ADDR [MESTYP] eql MT_SEQ) and

(C.RP_ADDR [ENDCOD) end OF_END) 001 OP_END));

Page

SPIDERSUSERS
: {DOUCE TTE .FALCONICNRQAL Bl 2 (12

;
fl
;

SEQ O-¢",

NRQGAM 2
vol1.C

RD/Rx EXERCISER
INITIALIZATION TEST ROUTINES

)

2455

2457

2456

s
3
’
’

2461

’

22’“‘52

5
'
3
i

f
’

2458
2459
2460

2471

;
:

2476
2477
2478

'
’
;
H

}
H

:
H

2492

000000

010146

000002

013701

000012
000014
000022
000024
000030
000032
000036
000042
000044

005000
112760
005200
020027
003771
005037
005037
010146
004737

000050

105061

010037

PU‘I_I!ETPKT (. _Imx):

! RELEASE RETURN PACKET

' DROP CONTROLLER

! RETPKT HAS CORRECT ENDCODE

_RP_ADDR [C_TIME) = 2;

if (.SWP_FLAGS and SWF _TRC) eql SWF_TRC
then
PRINTF (DBM2S, .RP_ADDR (C_TIME]);

end;

! IF RETPKT WAS SENT BY DISK MSCP

PUT_RETPKT (.RP_INDX);

return SUCCESS;
end;

! IF SEND WAS SUCCESSFUL

end;

! ROUTINE SET-CTLR_CHAR
LSBTTL

SET.CTLR.CHAR INITIALIZATION TEST ROUTINES

MOV

R1,-(SP)

CLR8

QIO(R1)

SET.CTLR.CHAR:

000000G

MOV

000000G

000377
000003

000000G

0000006

000000G

1JSD REV A
1JSD REV A
'JSD REV A

! RETPKT HAS CORRECT ENDCODE

end;

2489

2493

! FATAL ERROR

_TIME =

g::;

TeL [. CCTLR C_ERR_MRD] = .C_ERR_TBL [.CCTLR, C_ERR_MHRD] + 1;

return FAILURE;

!
!
!

! IF WRONG ENDCODE
' OR FLAGS IN ERROR

eiuor (21, EGD_21, ens 21);

DROP_CTLR (.CCTLR, DU_CFATAL);

g::z

2490
2491

000006

bo!n

end
else

'JSD REV A

! ELSE - RETPKT IS FROM DISK MSCP

then

g:;g
2481
2482
g:::

IF RETPKT IS FROM "DRIVER"

if (.RP_ADDR [ENDCOD)
neq (OP_SCC or OP_END)) or
(C.RP_ADDR (C FLGS) CF _MASK) neq CF_MASK)

2475

'
:
$

begin

2473

'
’
f

SEQ Oehk

VAX-11 Bliss-16 v3-555%
Page
41
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BLZ (12

! “ERROR IN SET_CTLR_CHAR"
! RELEASE RETURN PACKET
! DROP CONTROLLER

return FAILURE;
end

2472

2474

else

2470

bo!in
PRINTF (DBM23);
PUT _RETPKT (.RP_INDX);
DR_ERR ();

2467
2468

2469

if .RP_ADDR [CONID]) egql CID_DRIVER

then

2462
2463
2464

15 -Dec
- 1983 10:3%:57
14 -Dec -198% 11:35:15

000000G

14:

CLR
MOVB
INC
cHP
BLE
CLR
CLR
MOV
JSR
MOV

CCTLR,R1

RO
@377 ,RP.USE(RO)
RO
RO, o3
1$
100Q.0UT
100Q. IN
R1,-(SP)
PC,GET.PKT
RO,P.INDEX

2399

:
3+
;
3
:

2416

COUNT
*,s(COUNT)
COUNT
COUNT,
s

2418
2419
2418

2421

2423

L%
15-Dec - 1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

013716
004737
005700

MOVB
MOV
CLR
TST

000000G

RO,(SP)
#104, -(SP)
PC,BL $MUL

040 ,MSCP .PKT+6(RO)

2%
CCTLR,RO

v3-555

2424

2425
2426

2427

2429

2432

55
24
EGD.20

2433

P.INDEX,(SP)
. PKT
PC,PUT

;

2434

2435

H
H

2431
2410

C.ERR.TBL(RO)

(=]

000142

i P.INDEX,e

@4 ,MSCP .PKT+22(R0O)
@120 ,MSCP.PKT+30(R0)
MSCP .PKT+4(RO)
P.INDEX,(SP)
PC,SEND
RO

TRAP

Bliss-16

CCTLR,(SP)

TST
28:

.CTLR

2443
2444

-4
P

005060

MOV
MOV
JSR
MOV

000104
0000006
0000066
000040
0000226
000004
000120
0000306
0000046
0000006
0000006

3
333323
g
33g8=3EAs
g
385
218
:
§7S8 1 3-8
=T
o B 383FS
o8

010016
012746
004737
012760
112760
012760

SEQ Oze7
P
42
SPIDERS$USERS: [DOUCETM TE .FALCON]ICNRQAA
.BL2 (12

VAX-11

: RP.INDX,s

2445

2447

2452

2453

;

2454

2456

RP.INDX,(SF)

2460

PC,DR.ERR

}
H
'

2461
2456
2458

3(R1),03

4%:

5%
#360,2(R1)

Ss:

PC,.PUT .RETPKY
(SP)+,(SP).
10

JH
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

000204
000014
126127
001007
016100
000022
042700
177657
000120
020027
001426
013700 000000G
006300
000000G
105260
104455
000025
000000G
0000006
013716
012746

6%:

000510

14(R1),0204

7%
22(R1),R0O

cHP

RO, #0120

MOV

CCTLR,RO

8IC

7%:

BEQ

2463

2471

TRAP

2472

CCTLR,(SP)

2473

2474

H
H
:

2467
2470
2479

2489

H
H
H
:

2410
2399
2410
2399

C.ERR.TBL(RO)

.WORD
.WORD
.WORD

25
EGD.21
EMS.21

JSR
MOV
JSR
ADD
BR
MOV

PC,DROP.CTLR
RP . INDX,(SP)
PC.PUT .RETPKT
06,5P
10¢
24(R1),CMD.
TIME

MOV
JSR
MOV

RP . INDX,(SP)
PC,PUT.RETPKT
@1,R0O

CLR

RTS

ASL

10%:
11¢:

2467

MOV

9¢:

ASL

INCB

004737
013716
004737
062706
000415
016137
006337
013716
004737

012700
022626
000401
005000
012601
000207

CMFB

BNE
MOV

SEQ 0c68
VAX-11 Bliss-16 V3-555
Page
4%
SPIDERSUSERS: [DOUCETTE .FALCON]ICNRGAA BLZ (12

CMD.TIME

cMP
BR

$CODEs$
Rout ine Base:
i Routine Size:
165 words,
;i Maximum steck depth per invocation:
S words

(SP)+,(SP).
11%

3056

I€"
RD/RX EXERCISER

NRQAM3

INITIALIZATION TEST ROUTINES

Be
e

2501

14-Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

: novalue =

THIS ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONFIGURED UNIT

(DISK) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED
INITIALIZATION. ITS PURPOSE IS TO FORMAT AND SEND AN "ONLINE"
MESSAGE, AND TO VERIFY THE RESPONSE.
IMPLICIT INPUTS:

CCTLR - CURRENT CONTROLLER NUMBER
CDISK - CURRENT DISK ADDRESS (RD/RX DISK NUMBER)
LSLUN - CURRENT (DRS) UNIT NUMBER

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

P_INDEX = GET_PKT (.CCTLR);

2510
2511

! PACKET SIZE

MSCP_PKT [.P_INDEX, OPCODE] = OP_ONL;

! OPCODE FOR “ONLINE*“

MSCP_PKT [.P_INDEX, DK_NUM) =

.CDISK;

MSCP_PKT [.P_INDEX, DDPAR] = BITO0O;
MSCP_PKT [.P_INDEX, CMD_TYPE] = SEQ_CMD;

! SET DISK ADDRESS (RD/RX DISK NUMBER)

! SHOM ALL ECC ERRORS IN ERROR LOG MESSAGES
' SEQUENTIAL COMMAND

then

if SEND (.P_INDEX) eql FAILURE

GET AN MSCP PACKET

MSCP_PKT [.P_INDEX, MSGLEN) = SZ_ONL;

(ERR_MRD_HST] =

ATTEMPT

TO SEND;

IF CTLR IS OFFLINE

.T_ADDR (ERR_HRD MST) + 1;

CST_ADDR [.CUOFF, D_FATAL] = TRUE;

¢ FATAL ERROR

DUR [.LSLUN] = DU_ONLINE;
DODU C.LSLUN);
PUT_PKT (.P_INDEX);

! SETUP REASON TO DROP UNIT
! DROP UNIT
! RETURN PACKET TO POOL

begin

' OTHERWISE (SEND WAS SUCCESSFUL)

end

else

“

-n

WALT ();

RP_INDX = OUT_I0DQ ();

! WAIT FOR RETPKT RESPONSE
' GET INDEX OF RETPKT

RP_ADDR = RETPKT + (.RP_INDX # RP_LEN » 2); ! CALCULATE RETPKT ADDRESS

.RP_ADDR [MESTYP) neq MT_SEQ

then

! RETURN ALL RETPKTS NOT SENT BY CONTROLLER

PUT_RETPKT (.RP_INDX);

end

until (.RP_ADDR [CONID) eql CID_DRIVER) or

(C.RP_ADDR [MESTYP] eql MT_SEQ) and

(C.RP_ADDR [ENDCOD] end OP_END) eql OP_END));

A
ORE
M

.RP_ADDR [CONID) eql CID_DRIVER

then

PRINTF (DBM26);

SEQ 0269

Pege

SPIDERSUSERS:[DOUCETTE.FALCONICNRQAA.BL
2 (12

2503

routine UNIT_INIT
RS S TS R TS e e S S e Y.

2494
2495
2496
2497
2498
2499

vo1.0

15-Dec-1983 10:35:57

¢t

IF RETPKT IS FROM “DRIVER"

“ERROR IN UNIT_INIT"

'JSD REV A

LD
NRGAM3

RD/RX EXERCISER

!ox.c

;
:
H

INITIALIZATION TEST ROUTINES

2550

2557

;

2558

2559
2560
2561

;

2564

3
:

;
;

[ERR_MRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1;

CST_ADDR [ .CUOFF, D_FATAL] = TRUE;

2562
2563

ERRDF (23, EGD_23, EMS_21);
DUR [.LSLUN] = DU_ONLINE;
DODU C.LSLUN);

! FATAL ERROR
! SETUP REASON TO DROP UNIT
' DROP UNIT

begin

! RETPKT HAS GOOD ENDCODE

SB_CODE = .RP_ADDR [SUBCOD];

! GET SUB-CODE

end
else

2565

ST_CODE = .RP_ADDR [STSCOD);

2568
2569
2570

;
;

2572
2573

CST_ADDR [.CUOFF, D_FATAL] = TRUE;
ERRDF (15, EGD_15, EMS_30); ! ONLINE FAILED

;
;

2575
2576

DODU (.LSLUN);
end

;
i
:
H

2571

;
:
;
:
;

2583
2584
2585
2586
2587

;
:
;
:
H
3

:
:
H

:
000000

* IF STATUS CODE IS NOT SUCCESSFUL

(ERR_HRD_DRV) = .T_ADDR [ERR_MRD DRV) + 1;

OUR [.LSLUN] = DU_ONLINE;

g;z

2579
2580

3
3

2574

;
;
;
:

if .ST_CODE neq ST_SUC
then
%

* GET STATUS CODE

;
;
;

! SET UP REASON FOR DROPPING UNIT

! DROP UNIT

else

if (C.RP_ADDR [U_FLGS) and UF _WPH) eql UF _WPH) and
(.CST_ADDR [.CUOFF, D_PROT] eql UNPROTECTED)

2581
2582

then

! STATUS CODE IS 0.K.

T
(ERR_MRD _DRV] = .T_ADDR [ERR_HRD_DRV]) + 1;
CST_ADOR [.CUOFF, D_FATAL] = TRUE;
ERRDF (16, EGD_16, EMS_30);
! WRITE-PROTECT CONFLICT
DUR [.LSLUN] = DU_PROTECT;
! SET REASON TO DROP UNIT
DODU C.LSLUN);
! DROP UNIT

2588
2589

else

2590
2591
2592
2593
2594

end

in
! WRITE PROTECT SWITCH IS O0.K.
_LBN [.LSLUN) = .RP_ADDR [USIZ_LO) - 1;
! LARGEST LBN
CST_ADDR [.CUOFF, D_STAT] = ONLINE;
CST [.CCTLR, U_CNT) = ,CST [.CCTLR, U_CNT] + 1;
end;

2595

zzggg;

end;

2598

PUT_RETPKT (.RP_INDX);

2223

! IF RETPKT HAS CORRECT ENDCODE

2601

end;

004137

000000G

! IF SEND WAS SUCCESSFUL

! ROUTINE UNIT_INIT
.SBTTL

UNIT.INIT:

SEQ 027C

Page

SPIDERS$USERS
: [DOUCETTE . FALCONICNRQAA .BL2 (13

if .RP_ADDR [ENDCOD) neq (OP_ONL or OP_END) ! IF RETPKT IS FROM DISK MSCP

then

2556

;
;
;

VAX-11 Bliss-16 V3-555

! DROP CONTROLLER

end

2554

2555

14 -Dec-1983 11:35:15

DR_ERR ();

2551

;

15-Dec-1983 10:35:57

UNIT.INIT INITIALIZATION TEST ROUTINES

M5
15-Dec-1933 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES
JSR
MOV
JSR
MOV
MOV

MOV
JSR
MOV

000000G 000016G
0000226

MOvVB
MOV
MOV
MOV
JSR
TST

000004G

MOV
INCB
MOV
ASL

R1,$SAVE3

CCTLR, -(SP)

PC.GET.PKT
RO,P. INDEX
RO, (SP)
€104, -(SP)
PC,BL $MUL
044 ,MSCP .PKT+6(R0O)

TRAP

000407

132761
001333
105761
100330
006000

000003

000360

000002

3%:

000014

P.INDEX,*

BIT8

%2 35z

"E8 RiXC.8

2512

2513
2514
2515
2516
2518

2521

2522

2523

2sS24

:
;

2525
2526

2518

2534

2533

; RP_INDX,»

2535

2537

2539
2542

[

24:

8 - ig' @~

B8ITB

-3 233 gR3L32333

013701
005000
126127
001002
005200

1¢:

000002

2511

011 ,MSCP.PKT+22(R0O)
@1 ,MSCP .PKT+46(R0O)
@1 ,MSCP .PKT+4(RG)
P.INDEX,(SP)
PC,SEND

RO
1s
T.ADDR,RO
637R0O)
CUOFF ,RO
RO

v3-555

2494

CDISK,MSCP.PKT+16(R0O)

BIS
TRAP

000000G

SEQ 0¢71
Page
46
SPIDERS$USERS: (DOUCETTE.FALCONICNRQAA .BL2 (13

VAX-11 Bliss-16

2543

2546

TSTB

44:

BPL

ROR

NS
15-Dec-1983 10:35:57
14 -Dec -1983 11:35:15

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

103003
004737
000554
013703
006303

063703

013702
126127
001420
013700

105260
052713
104455
000027
000000G
0000006
112762
010200
104451
000521
116137
042737
016100

BCC

000000V

5$:

000000G
000000G
000000G
000014
000211

ASL

0000006
000062
010000

000016
177740
000016

PC.DR.ERR
9%

SPIDERS$USERS: [DOUCETTE .FALCONICNRQAA
.BL2 (13

2550
2546
2558

LSLUN,R2
14(R1),#211
6%
T.ADDR,RO

H
H

2560
2554

2557

#10000,(R3)
55
27
EGD.23

H
:

2558
2559

H
:

2560
2561

16(R1),ST.CODE

H
:

2554
2565

16(R1),R0

2566

2568

CUOFF ,R3

CST.ADDR,R3

6$:

000022

:EOOOO.ZZ(RL)

7%:

TST

TRAP

CUOFF ,RO
RO
CST.ADDR,RO
(RO)
84
T.ADDR,RO
62(RO)
10000, (R3)

35
20
EGD. 16

2571

2572

:
3

2574
2575

:
:

2568
2579

2580

2583

:
3

2584
2585

020000

SEQ 0c72
Page
47

:
H
:

62(R0O)

000000G

VAX-11 Bliss-16 Vv3-555

257%

D Ax EXERCISER
INTTIA JZATION TEST AOUTIN

HddH :s

V00011

L WURT

000000

~“Ov8
MOv
as:

000044
CGO0064

0000648

020000

0000%6
0000006
0000056

0000006
0000006

9:
108:

220 words,

Routine Bese:

invocetion:

8 words

:
:

PR T
LN

2579

2592

(SP).

2990

(SP)e ,(SP).

2%09

ems. %

ASL

RZ RO

MOV
DEC

1)
) MAX LBN(RO
44(RY
MAX LBN(RO )

MOV

CCTLR,(5P)

#20000,(R3)

MOV
JSR
INCB

56, -(SP)
PC,BLIMAL
CST.S5(RO)

MOV
JSR

RP, INDX,(SP)
PC,PUT RETPKT

RTS

1SY

vAX 11 Bl wes 16 v3 35S
Page
PIDERS CERS:TDOUCE
YTE v & CONIONRGRE W0,

TRAP
L]

"oV

%o
G

1948 10:3%:57
1T 11:%%:1%

11, Dmeay
&e RO
s1
9

8IS

0000000

depth per

1% Dec
4 Dec

SCODES . 357C

an»
L0

2%9)

2959t

2598
RERE)

2602
2603

2605
2606
2607
2608

14 Dec

VAX 11 Bliws 16 v3 955
age
SPIDERSUSERS: [DOUCETTE . F ALCONJONR
AR & o

198% 11:35:15%

a
"

routine DR_ERR : novelue -

THIS ROUTINE IS DESIGNED TO PROCESS RETURN PACKETS THAT ORIGINATE AT
THE “DRIVER” RATHER THAN THE DEVICE. DRIVER-ORIGINATED PACKETS INDICATE

EITHER A FATAL DEVICE ERROR OR A COMMAND TIMEOUT. SINCE THIS ROUTINE IS
OMLY CALLED DURING THE INITIALIZATION TEST, IT TREATS A COMMAND TIMEQUT

AS AN INITIALIZATION ERROR.

2609

-0

2604

IMPLICIT I INPUTS:
RP_ADDR - ADDRESS OF A RETPKT THAT ORIGINATED AT THE
(I.E., CONNECTION ID = CID_DRIVER)

1% Dec 1983 10:35%:57

RD Ax EXERCISER
INITIALIZATION TEST ROUTINES

NRGAME
vOo1.¢

"DRIVER"

begin

locel
REASON : word initial (DU_TIME);

ASSUME COMMAND

.RP_ADDR [MESTYP) eql MT _FATAL

IF FATAL DEVICE ERROR

REASON = DU_DFATAL;

CHANGE REASON TO FATAL ERROR

DROP_CTLR (,.CCTLR,

end;

000000

010146

000006
000012

013700
116000

000002

012701

000016

042700

000030
000034
000040

012701
013746
010146

000022
000026

000042

000046
000050
000052

020027
001002

004737

022626
012601
000207

000012

! DROP ALL UNITS ON CONTROLLER

.REASON);

.SBTTL
DR.ERR: MOV

MOV

OR.ERR INITIALIZATION TEST ROUTINES
Ri,)
'

012,R1

000000G
000002

MOV
MOVB

RP . ADDR,RO
2(RO),R0O

000060

cHP
BNE

RO, #60
1

JSR

PC,DROP.CTLR

177417

000005
000000G
0000006

BIC

1¢:

TIMEOUT

MOV
MOV
MOV
cw
MOV
RTS

i Routine Size:
22 words,
Routine Bese:
$CODES
i Maximum stack depth per invocation:
4 words

;s ¢,REASON

2602
2o0l6
2621

0177417 ,R0

5,R1
CCTLR, -(SP)
R1,-(SP)

; »,REASON
:
; REASON,»

2623

(SP)e+,(SP).
(SP)+,R1

3
3

2616
2602

+ 4460

D¢,

RD /RX EXERCISER

NRQAME

15-Dec 1983 10:35:57

INITIALIZATION TEST ROUTINES

vo1.0

14 Dec

198% 11:35:15

VAX-11 Blies 16 V3-555

S
S5 S

THAT

THE CURRENT DISK

CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTING AND
SENDING ONE OR TWO MSCP ACCESS COMMANDS TO THE DISK, AND CHECKING

SE B

THE STATUS FIELD OF

THE RESPONSE MESSAGE(S).

IMPLICIT INPUTS:

CCTLR - CURRENT CONTROLLER NUMBER
CDISK - CURRENT DISK ADDRESS (RD/RX DISK NUMBER)

S5 S8

LSLUN - CURRENT (DRS) UNIT NUMBER

begin

RESULT word
:
initial (FAILURE),

! GUILTY UNTIL PROVEN INNOCENT

PASS: word initisl (1);

! LOOP PASS COUNT

local

B8 Sr

ST_CODE = SB_CODE = O;
LBN = CCC.MAX_LBN [.LSLUN] + 1) t

! STATUS CODE AND SUB-CODE
-1) end so’' 77777°) - 1;
t START WITH LAST LBN ON TOP SURFACE:

! LOOP STARTS MERE

X = GET_PKT (.CCTLR)

HECP_PKT [.P_INDEX, DK om& » .CDISK;
MSCP_PKXT [.P_INDEX, OPCODE]

[(X+1)/2] -1

;

B0 B

= OP_ACC;

! GET AN MSCP PACKET

¢ SET DISK ADDR (RD/RX DISK NUMBER)
! ACCESS OPCODE

then

MSCP PKT [.P_INDEX, BC_LO) = 512
" BYTE COUNT (1 BLOCK)
MSCP PKT [.P_INDEX, LBN_L] = .LBN;
! LOGICAL BLOCK NUMBER
MSCP PKT ([ .P_INDEX, CMD_TYPE) = NON_SEQ_CMD;
! NON-SEQUENTIAL COMMAND
i SEND (.P_INDEX) eql FAILURE

S5
S5 S5

PASS = 2;

end
else

begin

BE S

“

WA
Wh

2681

ATTEMPT TO SEND;

IF CTLR MNOT ONLINE

! RETURN PACKET TO POOL
! NO MORE TRIES

! IF SEND WAS SUCCESSFUL
-n

WALT ()

RP_INDX = OUT_I00Q ()3

2673
2674
2675
2676
2677
2678
2679

! WAIT FOR RESPONSE

! GET RETPKT (RESPONSE) INDEX

RPADDR = RETAKT + (.RP_INDX & RP_LEN & 2);

! CALCULATE RETPKT ADDRESS

if? .RP_ADDR [MESTYP) neq MT_SEQ ! RETURN ALL RETPKTS NOT SENT BY CONTROLLER

then

PUT PKT (.P_INDEX);

until

end

PUT_RETPKT (.RP_INDX);

(.RP_ADDR [CONID] eql CID_DRIVER) or
(C.RP_ADDR [MESTYP] eql MT_SEQ) end

Pege

SPIDERSUSERS:[DOUCE
TTE ,FALCONICNRQAR Bl 2 (15

routine ACCESS : novalue *
THIS ROUTINE IS CALLED By INIT_TEST TO VERIFY

SEQ G-

INITIALIZATION TEST ROUTINES

vo1.C

B
S5 B
S
B
B
S5
S5 S5 S5 S5 Sr
S
S5 S5
B0 B
S5
S5
S5 B
B8
B8
G5
S
B
S
B
B4
S5 B8
B8
S
SE
BE
B
S
B
B
B

.RP_ADDR

nen

2687

else

2689
2690
2691
2692

[CONID) eql

.RP_ADDR

2721
2722
2723

2724
2725
2726
2727
2728

004137
012702
005037
005037
013700
006300

IF RETPKT CAME FROM "DRIVER"

NO MORE

TRIES

[ENDCOD) neq (OP_ACC or OP_END)

PRINTF (DBM29);
EMSCMD ()3
else

“RETPKT HAS BAD ENDCODE
“

1JSD REV A

end

begin
! RETPKT HAS CORRECT ENDCODE
ST_CODE
= .RP_ADDR (STSCOO];' GET STATUS CODE FROM PACKET

SB_CODE
= .RP_ADDR [SUBCOD);! GET SUB-CODE FROM PACKET
if

.ST_CODE eql ST_SUC

then

IF STATUS CODE INDICATES SUCCESS

NO NEED

2704

2719
2720

CID_DRIVER

PASS = 2

T = SUCCESS;

PASS = 2;
end;

<705
2706
2707

2717
2718

VAX-11 Bliss- 16 v3-555
SPIDERSUSERS: [DOUCE
T TE .FALCONICNRQAA Bl
2

then

2693
2694
2695
2696
2697
2698
2699
2700
2701
2702
2703

2708
2709
2710
2711
2712
2713
2714
2715
2716

1983 10:35:57
1983 11:35:15%

(C.RP_ADDR [ENDCOD] and OP _END) eal OP _END));

2683
2684
2685

S5 S

)

000012
000016
000022

15 Dec
14 -Dec

RD/Rx EXERCISER

NRQAMZ

end;

! IF RETPKT HAS CORRECT ENDCODE

PUT_RETPKT (.RP_INDX);

IF SEND WAS SUCCESSFUL

end;

LBN =

PASS =
end

unti 1
if

.LBN «

_PASS «

TO TRY AGAIN

ADVANCE TO FIRST LBN OF BOTTOM SURFACE
SECOND PASS
END OF PASS LOOP

.PASS gequ 3;

llESll.T eql FAILURE

"’ana (ERR_MHRD DRV)= .T_ADDR [ERR_WRD_DRV] + 1;

[ .CUOFF . D_FATALY = TRUE;
ADOR
civ
ERRDF (17, EGD_1 7. EMS_30);
DUR [.LSLUN] = DU_ACCESS;
DODU C.LSLUN);

! FATAL ERROR

* ACCESS FAILED

! SET REASON TO DROP UNIT

! DROP UNIT
! IF ACCESS FAILED

end;

! ROUTINE ACCESS

.SBTTL

ACCESS: JSR

CLR

ACCESS INITIALIZATION TEST ROUTINES

R1, $SAVES
R3

MOV
CLR

01,R2
S8.CODE

MOV

LSLUN,RO

CLR
ASL

ST.CODE

+ RESWLT

: «,PASS
:

2627

2641

2648
2649

F e
15 Dec 1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.C

INITIALIZATION TEST ROUTINES

)

016000
060200
010004
042704
005304

013746
004737
010037

132761
001333
105761
100330

103435

SEQ Or77
Page

SPIDERSUSERS
: [DOUCETTE .FALCON]ICNRQAA
B2

(15

R2,RO

18:

000000G

RO,R4
9100000,R4
R4

;
;

CCTLR, -(SP)

PC,GET.PKT

RO,P. INDEX

RO, (SP)

PC,BLSMUL
CDISK,MSCP.PKT+16(RO)

000000G 0000166
0000226
G00026G

920,MSCP .PKT+22(RO)
©1000,MSCP.PKT+26(R0O)
R4 ,MSCP .PKT+46(RO)
@2 ,MSCP .PKT+4(RO)
P.INDEX,(SP)

PC,SEND

+,LBN
*,LBN

; LBN
'

2654

2655

P.INDEX,s

H
H

2656
2657

:
H

2659
2661

2664

; «,PASS

2665

2673

000000G

:
:

24:

2661
2672

2674

2676

2678

H
:

2671
2681

000360

2682

000014

2683

3
H
H

2685
2687
2690

H
:
i

2694
2690
2698

232 233

ThaSFs
e
3
2F

: RP.INDX,»

R1),03

S¢:

126127
001403
004737

000014

116137

000016
177740

042737

v3-555

MAX.LBN(RO),RO

000064

010016
012746

004737
013760
112760
012760
010460
012760
013716
004737
005700
001007
013716
004737
012702
000515
004737
004737
010037
010016
012746
004737
062700
010037
132760
001404
013716
004737
005726
013701
005000
126127
001002

VAX-11 Bliss-16

14(R1),0220

000220

:s +LEMSCMD

000000G
000000G

6%:

16(R1),ST7.CODE

(j' )
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

INITIALIZATION TEST ROUTINES

000016

MOV

174000

ASR
ASR
ASR
ASR
BIC

MOV

RO, SB.CODE

TST

78:
8%:

000002
000000G

9¢:

BNE
MOV
MOV
MOV
JSR
INC
INC

cHe

i Routine Size:

000010

104
T.ADOR,RO
62(R0O)
CUOFF ,RO

BIS
TRAP
.WORD
.MORD
.WORD

MOV
MOVB

000000G

10¢:

(SP)+,(SP)e

BNE
MOV
INCB
MOV

ADD

000000G

ST.CODE

8¢
#1,R3
92.R2
RP.INDX,(SP)
PC.PUT .RETPKT
R4
R2
R2,43
1%

ASL

TRAP

RTS

$CODE$
165 words,
Rout ine Base:
9 words
i Maximum steck depth per invocation:

2699

2701

RO
RO
RO
RO
9174000,R0

cMP
BLO
TST

000470
000472
0004 74
000500
000506
000510

16(R1),RO

ASR

SEQ 0¢ 78

VAX-11 Bliss-16 v3-555
Page
57
SPIDERSUSERS: (DOUCETTE .FALCONICNRQAR . BL 2 (15

:
;
H

¢, RESULT
#,PASS

: LBN
;s

PASS

2704
2705
2710

2713

gzg;

; PASS,»

2716

2718

RESULT

2721

2722

2723

2724

:
H

2725
2627

CST.ADDR,RO
10000, (R0O)
55

21
EGD.17
EMS.30

LSLUN,RO
#10,0UR(RO)
S1

PC
+ 4534

.
Hv
NHQAM S

RD/RX EXERCISER

voi.c

;
H

MU TI-DRIVE TEST ROUTINES

ssbtt]l 'MULTI-DRIVE TEST ROUTINES'

2731

routine MULTI _DRIVE : novelue =

2734
27135
2736

¢
¢
!

$73s

g;g;

;
;
;
’

HEJ

¢
!

;
;
;

2742
2743
2744

!
¢
!

2746
2747
2748
2749

;
;

;
;
i
;

;

2741

2745

THIS ROUTINE ACTS AS AN “EXECUTIVE” TO THE WHOLE PROCESS. AFTER
INVOKING MD_INIT TO INITIALIZE MULTI-DRIVE TEST DATA, THIS ROUTINE

ENTERS A LOOP WHICH ISSUES QIOS TO ALL ACTIVE CONTROLLERS AND PROCESSES
ANY RESPONSES. IN ADDITION, ALL OUTSTANDING COMMANDS ARE TIMED IN
DRY_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

g;gg

MO_INIT ();

* INIT MULTI-DRIVE TEST DAlA

;

! START OF EXECUTIVE LOOP

;

g;g;

:
.

begin
ince CTLR from O to (MAX_CTLR - 1) do

! FOR EACH CONTROLLER

g;gg

! SET UP CURRENT CONTROLLER PARAMETERS

SETPRI (PRIO7);
SETPRI (PRIO6);

! NO INTERRUPTS WHEN EXAMINING SA 'JSD REV A
' (EXCEPT ODT BREAK) 'JSD REV A

! FAKE INTERRUPTING CONTROLLER'S CST ADDRESS

2758
2759

;

2761

ICST_ADDR = .CST_ADDR;

2763

IRDRX_ADDR = .ICST_ADDR (IP_ADDR];

i
:

;

2760

2762

2764

g;fi

2767

2769

'
;

:
:

'
H

2768

2770

2111
27712

2773
2774

g;;z

211

2779

2778

SET_CPAR (.CTLR);

:
;

ICTLR = .CCTLR;

if BIT_TST CIDCT_ADDR [SA_SAVE),

then

FATAL _ERROR ();

SETPRI (PRI0O);
exitloop:

end
elee

SETPRI (PRIOO);

if QI0_0X ()

then

2782

if (.Mx1

2784

then

(not

SA_ERR)

IF SA SHOMS AN ERROR

' DECLARE FATAL ERROR

! LOWER PRIORITY
! QUIT

! IF NO ERROR, CONTINUE

¢t IF 0.K. TO ISSUE QIOCS) TO THIS CONTROLLER

2783

! FAKE INTERRUPTING CONTROLLER'S ADDRESS
! CONTENTS OF THE SA REGISTER

QIO_GEN ();

! FAKE INTERRUPTING CONTROLLER'S DCT ADDRESS

IDCT_ADOR [SA_SAVE] = .IRDRX_ADDR [RCSA, RC_ALL];:

g;:g

! FAKE INTERRUPTING CONTROLLER'S NUMBER

IDCT_ADDR = .DCT_ADDR;

THEN

! GENERATE 1 OR 2 QIOS

0) end

.EOP_FLAG)

SEQ O 79

Page

SPIDERSUSERS
: [DOUCE T TE .FALCON)CNRQAA .BLZ (16

AN OPERATING SYSTEM ENVIRONMENT.

2739
2740

VAX-11 Bliss-16 v3-555%

THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE
MULTI-DRIVE TEST IS A HOST-CONTROLLED EXERCISER DESIGNED TO GIVE THE
USER AN INDICATION OF HOW ONE OR SEVERAL RDRX DRIVES WOULD PERFORM IN

;
;

10:35:57

14 -Dec - 1983 11:35:15

5;253

‘

15-Dec -1983

+ IF SUCCESS ON FIRST QIO

16
NRQAM3

RD/Rx EXERCISER

\;ox.c
s

MU TI-DRIVE TEST ROUTINES
2785

:
H

g;gg

2789

else

2792

if (.Mx2

F
;
b

s
H

’
H

s
;
’

’

:
'

s
i

'
'
’
’

H
:

15-Dec-1983 10:35:57

14-Dec-1983 11:35:15

;mem (.MX1) eql SUCCESS
t

2788

g;:o
1

2793

0) and

g;:g

;;.zem (.MX2) eql SUCCESS

! ATTEMPT TO SEND IT. IF SUCCESS

2798
2799
ggg

QIO [.CTLR) = .QIO [.CTLR] « 1
else
PUT _PKT (.MX2);

! INCR OUTSTANDING QIO COUNT

end;

end:

g:gg

! CONTROLLER LOOP

BREAK ;

! BREAK FOR SUPERVISOR TO CATCH USER REQUESTS
]

2808
2809
gg{g

if not .EOP_FLAG
then

ggg

end

PROC_RETPKT ();

! PROCESS ANY RETURN PACKETS

! EXECUTIVE PROCESSING LOOP

004137

000000G

000004

005746

! EXERCISER

LSBTTL

MULTI.ORIVE MULTI-DRIVE TEST ROUTINES

JSR

R1,$SAVE2

2731

PC,.MD.INIT
R2
R2,-(SP)
PC,SET.CPAR
#300,RO
41
CCTLR,ICTLR
CST.ADDR, ICST.ADDR
DCT.ADDR, IDCT .ADDR
8ICST.ADDR, IRDRX . ADDR

:
; CTLR
; CTLR,»

2750
2754
2756

2759

:
:
3
i

2760
2761
2762
2763

IRDRX.ADDR,RO
2(R0),2(SP)

; ¢,RC.REG
;i RC.REG,»
:

2767

MULTI.DRIVE:

000006
000012
000014
000016
000022
000026
000030
000036
000044
000052

004737
005002
010246
004737
012700
104441
013737
013737
013737
017737

000000V

000000G 000156
O000000G 000106
000000G 000110°
000106° 000000G

JSR
CLR
MOV
JSR
MOV
TRAP
MOV
MOV
MOV
MOV

000064
000070

013700
016066

000000G
000002 000002

MOV
MOV

000110

042701

077777

013701
016661
016601

020127
001006

! RETURN PACKET TO POOL
! 0.K. TO ISSUE QIO(S)

000000

000114
000120

RETURN PACKET TO POOL

! IF SUCCESS ON SECOND QIO

(not .EOP_FLAG)

;:83

SUCCESS

end;

000076
000104

PUT_PKT (.MX1);

2816

000060

TO SEND IT.

! INCR OUTSTANDING QIO COUNT

until (Cnot QIO_OUT ()) or .EOP_FLAG);

ATTEMPT

SEO 0&80

SPIDERSUSERS: [DOUCETTE, FALCON]CMOM BL2 (16

QIO [.CTLR] = .QIO [.CTLR) ¢« 1

g:i.;

VAX-11 Bliss-16 v3-555

1$:
2s:

000000G
000300

000110’
000002
000002

100000

000002

MOV
MOV
MOV

8IC

cMP
BNE

-(SP)

IDCT.ADDR,R1
2(SP),2(R1)
2(SP),.R1
@77777,R1

R1,4-100000
38

2764

Jf
NRQAM3
vol1.0

RD/RX EXERCISER
MULTT-DRIVE TEST ROUTINES

000122
000126

000000V

JSR
CLR

PC,FATAL .ERROR
RO

BR
CLR

8s
RO

TRAP
TST

000130
000132
3s:

000140
000142

TRAP

JSR

ROR

8CC
JSR
MOV
BLT
BITE
BNE
MOV
JSR

000000V
000160’

013716
004737
013700
002421
132737
001015
010016
004737
020027
001003

000160’
0000006
000162’

4s:

S5%:

000001

000162’

005726
005202
000243
003643
104422
132737
001002
004737
004737

006000

103004
132737
001623
005726

000207

CMP
BNE
INCB
BR
MOV
JSR
MOV
BLT

B8IT8

105262

000404
013716
004737

6%:
78:

8s:

000000V
000000V

9¢:

PC,.QIO0.OK

7%
PC,QI0.GEN
MX1,R0O
S$
@1,EOP.FLAG
54
RO,(SP)
PC,SEND

GIO(R2)
54
MX1,(SP)
T
. PKT
PC,PU
MX2,R0O
74

01,EOP.FLAG

(SP)e

INCB
BR
MOV
JSR

QIO(R2)
74
MX2,(SP)
PC,PUT.PKT

INC
R2
.WORD CLV!CLC

BLE

VAX-11 Bliss-16 V3-555

SEG 0281

Pose 96

SPIDERSUSERS: [ DOUCET TE . FALCON JCNRGAR.BLZ (16
H
H

2770
2771

2769

2775

2777

H
H

2780
2782

2783

2786

; =(CTLR)
:
:

2788
2786
2790

;

2792

2793

2796

; =(CTLR)
3
:

2798
2796
2800

;

2755

RO o1

74
RO,(SP)
PC,SEND
RO, #1
6¢

2¢

;: CTLR

2754

TRAP

2804

JSR
ROR
8CC

PC PROC.RETPKT
PC.QI0.0UT
RO
10¢

H
H

2€10
2814

2731

BITB
BNE
JSR

BITe8

10%:

41
(SP).

BNE
MOV
JSR
cHP
BNE

BEQ

TST
RTS

$CODES$
116 words,
Routine Bese:
7 words
Maximum stack depth per invocetion:

; Routine Size:
;

15-Dec-1983 10:35:57
14 -Dec-1983% 11:35:15

01 EOP.FLAG

2808

#1,E0P.FLAG
14

(SP).
PC
+ 5246

1<¢)
NRQAM3
\;01.0

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
2817

routine MD_INIT

2820

2822

H
3

2818
2819

2821

2826

ggg

;
3
:
;

:
'

if .ENTRY_REASON eql START

! IF THIS IS A START

if (.ENTRY_REASON neq CONT) and

2834

USED BY THE MULTI-DRIVE TEST.

2830

THIS ROUTINE IS CALLED BY ROUTINE MULTT _DRIVE TO INITIALIZE DATA ITEMS

then

2831
2832

3
:

: novelue =

2827

3
:

2833

INIT_IO_BUFF ();

! PARTITION FREE MEMORY INTO I/0 BUFFERS

;
s

incr CTLR from O to (MAX_CTLR - 1) do
in
SET_CPAR (.CTLR);

2835
g:;g

gggg

incr DISK from (O - OF _UN) to (3 & UNIT_SIZE + OF __UN) by UNIT_SIZE do

2840
2841
2842
2843

2844
gzg

SET_UPAR (.DISK);
BST [.LSLUN) = _CST_ADDR [(.DISK + 1), D_BEG):
DPST [.LSLUN] = DP_CNT;
end;

! INITIALIZE BLOCK SEQUENCE TABLE
! INITIALIZE DATA PATTERN SEQUENCE TABLE

end;
3

2847

incr COUNT from O to (QIO_PER_CTLR « MAX_CTLR - 1) do

! INITIALIZE I/0 BUFFER ALLOCATION

2850

end;

! ROUTINE MD_INIT

g:g

000000
000004
000012
000014
000020
000026
000030
000036
000040
000042
000044
000050
000054
000056
000062
000066

004137
123727
001002
004737
123727
001444
123727
001440
005004
010446
004737
012703
010316
004737
013702
010201

000074

006300

000070
000072

! IF START, RESTART, OR PWR FAIL

( .ENTRY_REASON neq NEW_PASS)
then

‘

SEQ Oza2

VAX-11 Bliss-16 v3-555
Page 57
SPIDERSUSERS
: [DOUCETTE .FALCONICNRGAA . BLE (17

2825

!«

15-Dec-1983 10:35:57
14-Dez-1983 11:35:15

006301
010300

BUFF _OWN [ .COUNT])

000000G
000000G 000001

000000V
000000G 000003
000000G 000005

000000G
000003
000000G
000000G

-1;

:
LSBTTL
MD.INIT:JSR
cvP8
BNE
JSR
1s:
cHPB
BEQ
CcMPB
BEQ
CLR
24:
MOV
JSR
MOV
3%:
MOV
JSR
MOV
MOV

ASL
MOV
ASL

TABLE

MD.INIT MULTI-DRIVE TEST ROUTINES
R1,$SAVE4
:
ENTRY .REASON, @1
:
1
PC,INIT.IO0.BUFF
:
ENTRY .REASON, ¢3
:
44
ENTRY .REASUN, @5
:
44
R4
;: CTLR
R4, -(SP)
: CTLR,»
PC,SET.CPAR
¢3,R3
; «,DISK
R3,(SP)
: DISK,»
PC,SET.UPAR
LSLUN,R2
:
R2,.R1

R1
R3,RO
RO

: DISK,»

2817
2826

2828
2830
2831
2834
2836

2838
2840
2841

L#¢
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

NRQAM3
gOl.O

000076
000102
000110
000116
000122
000126
000130
000132
000134

063700
016061
112762
062703
020327
003752
005726
005204
000243

000136
000140
000142
000150
000152
000156
000160

003741
005000
112760
005200
020027
003771
000207

; Routine Size:

ADD
MOV
MOVB
ADD

000000G
000050
000002
000025
000060’
000005
000022

CST.ADDR,RO
2(R0),BST(R1)
#25,0PST(R2)

CMP

R3, 022

H
;
H

TST

(SP)+

2835

; COUNT
; #,8(COUNT)
: COUNT
s
; COUNT,

2847
2848
2847

2817

BLE

INC

BLE
CLR

2
RO

.WORD CLV!CLC

000377

4%
:

-1

000000G

000007

MOVB
INC
cMP
BLE

0377 ,BUFF ,OWN(RO)
RO
RO, @7
5%

RTS

S7 words,

Routine Base:

; Maximum stack depth per invocation:

7 words

SEQ 0ca3%
Page
S8
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BL2 (17

VAX-11 Bliss-16 v3-555

$CODE$

+«

5616

¢,DISK
DISK"

; CTLR

2842
2838

2834

M‘,.'
NRQAM3Z
vo1.C
H

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

2851

2852
2853

;
;
;
:
;

2854
2855
2856
2857
gggg

;
;
:
;

2860
2861
2862
2863

;
;

2865
2866

;
;

;
H
;
3
;
.

;

;
H

;

:
.

i
;

¢
¢
!
!
:

THIS ROUTINE IS CALLED BY MD_INIT WHEN THE MULTI-DRIVE TEST IS FIRST
STARTED. IT IS RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A
COLLECTION OF I/0 BUFFERS. THE SIZE OF EACH I/0 BUFFER IS DETERMINED
BY A NUMBER OF FACTORS, INCLUDING THE NUMBER OF UNITS, THE NUMBER OF
CONTROLLERS, AND THE SIZE OF FREE MEMORY.

!
!
!
¢

ONCE THE BUFFER SIZE IS DETERMINED, THE NUMBER OF I/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 INPUTS:
CTLR_CNT - THE NUMBER OF CONTROLLERS CONFIGURED

2867

2876

LSUNIT - THE NUMBER OF UNITS AVAILABLE FOR TESTING

FREE_MEM_ADDR - START OF FREE MEMORY
begin
local
DRS_START;

gg;;

BUFF_ADDR [0] = (.FREE_MEM_ADDR + 2 + 1) and %o’'177776';

DRS_START = _FREE_MEM_ADDR + 2 + (..FREE_MEM_ADDR & 2);

! START OF SUPERVISOR

2879

while (.BUFF_ADDR (0] and so’'37’') neq 0 do

! FORCE FIRST I/0 BUFFER TO START

2882

BYTS_PER_QIO = ((.DRS_START - .BUFF_ADDR [0]) / (QIO_PER_CTLR &« MAX_CTLR)) and so’177740';

ggg

gggz

;

2885

;

gg;

2870
2871
2872
2873
gg;;

BUFF_ADDR [0] = .BUFF_ADDR [0] + 2;

:
p

2889
2890

if .BYTS_PER_QIO lssu 32
then

2892

ERRSF (2, EGS_02, 0);

2891

;

2893

2895

;

! ON EVEN BOUNDARY

if .BYTS_PER_QIO gtru MAX_XFER_SIZE

then

! START OF READ/MRITE BUFFERS

! MAX TRANSFER SIZE

2886

SEQ 0284

VAX-11 Bliss-16 Vv3-555
Page
59
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA BL2 (18

routine INIT_IO_BUFF : novalue =

2864

gzg

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

BYTS_PER_QIO = MAX_XFER_SIZE;

! ERROR IF NOT ENOUGH MEMORY

DOCLN;

2894

ADJUST TRANSFER SIZE LOMWER

end;

2896

if (QIO_PER_CTLR & MAX_CTLR) gtru 1

2899

incr index from 1 to (QIO_PER_CTLR & MAX_CTLR - 1) do

* INIT REMAINING TABLE ENTRIES

2902

end;

! ROUTINE INIT_IO_BUFF

004137

000000G

000000

mzoox

BUFF _ADDR [.index) = .BUFF _ADDR [.index - 1] «

.SBTTL

INIT.IO.BUFF:

.BYTS_PER_QIO;

! FIXED BUFFER ADDRESS

INIT.IO.BUFF MULTI-DRIVE TEST ROUTINES

N6
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES

013701
011100
006300
060100
062700
062701
010137

000110

042737
032737
001404
062737
000770
010046
163716
012746
004737
010037
042737
023727
101403
012737
023727
103005
104454

JSR

MOV

0000006

MOV

000000G

1s:

002000
000000G 000040

2879

H
;
; DRS.START, »

2880
2879
2882

€2 ,BUFF
. ADDR

RO,BYTS.PER.QIO

PC.BLS$DIV

037 BYTS. PER QIO

cMHP

BYTS PER.QIO, #2000

2885

MOV
cHP
BHIS

02000 BYTS.PER.QIO
BYTS.PER.QIO,#40
4%

:
3

2887
2889

.MORD
.WORD
.MORD

2
EGS.02
O

2892

BLOS

TRAP

ASL

MOV
MOV

MOV
000170
000174
000200
000202
000206
000210
000212

MOV

TRAP

000142

#1,BUFF ,ADDR
©37 ,BUFF .ADDR

RO, -(SP)
BUFF .ADDR, (SP)
€10, -(SP)

8IC

3s:

2871
2876
2877

MOV
SUB
MOV
JSR

000037
000000G
000000G 002000

H
3
H

R1,BUFF ,ADDR

ADD

2%:

R1,RO
#2,RO
3 ,R1

(R1),RO

MOV

BEQ

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BL2 (18
2851
2876

BIC
BIT

SEQ_0285
Page
60

H
H

FREE .MEM.ADDR,R1

ASL

ADD
ADD
ADD
000037

R1,$SAVE3

_
VAX-11 Bliss-16 V3-555

#1.R2
R2,.R1

:
H

»,INDEX
Imx-‘

R2,R0O

INDEX,»

1777766
0000006
0000006

MOV
ADD
MOV

,R3
BUFF .ADDR -2(R0O)
BYTS.PER.QIO,R3
R3,BUFF ,ADDR(R1)

000007

cHP
BLE
cHe

R2,67
Ss
(SP)e¢,(SP).

INC

RTS

$CODES$ + 6000
i Routine Size:
Rout ine Bese:
; Maximum steck depth per invocetion:
8 words

2896

: INDEX

2896

H
:

2871
2851

;

INDEX,#

B
N s o
w01 .«

) Ax EXERCISER
ATl DRIVE TEST ROUTIN
S

15 Dec 19683 10:35:57
i4 Dec 1983 11:35:15

s,m

J908

routine Q10 Ox -

;

2906

f
f

2908
gm

!
;

2911
292
2918
;:};

¢
!
¢
:

g}g

;

IF ANY OF THESE TEST FAIL, THEN A VALUE OF “FALSE" IS RETURNED.

2918
2919
xg

!
!
;

IMPLICIT INPUTS:
CTLR - CURRENT CONTROLLER NUMBER
ST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

297

)

;
f
;
f
]

i
i
i
.

SEQ

VAX 11 Blies 16 v3 555
Page
SPIDERSUSERS
: [DOUCE TTE . * ALLONICNROAR Wi.

&1
17

THIS ROUTINE IS CALLED B TE TMMATI DRIVE “EXECUTIVE~ IN ORDER TO

DETERMINE WETHER OR NOT A QIO REQUEST (OR QIO PAIR) SHOWD BE

GEMERATED T0 THE CURRENT CONTROLLER. A VALUE OF “TRUE" IS RETURNED If
THE CONTROLLER MEETS 35 REQUIREMENTS:
A, THE CONTROLLER IS ONLINE;
8. T"E MPBER OF OUTSTANDING QIOS IS AT LEAST 2 LESS THAN TwHE
MAXIMUM ALLOWED FOR ANY ONE CONTROLLER;
C. TMERE IS AT LEAST ONE DISK ONLINE TO THE CONTROLLER,

292

)
f

292
2924

292%

'
'

292
2928

nag

”c

[

i? (.CST_ADDR (suttl o.l ONLINE) and
(not.EN® FLAG)

((.oxo Ccn.ag’.o2) leau QIO_PER_CTLR) end
(.CST,

then
elioe

000000

&gvoo
ug

000002

0000

152737

000001

oooo%

0000

gl’s“

000042
000046

7
10 g&g

m 01
1

00140
012700

000070

005000

000207
000207

000072

¢t IF QUTSTANDING QIO COUNT IS 0.k,
* IF THERE IS VALID UNIT
!

return FALSE;

"TRUE" EXIT POINT

! “FALSE” EXIT POINT

LSBTTL

QIO.OK MATI-DRIVE TEST ROUTINES

zuo»

QI0.0x: MOV
0000006

81ITB

CSY.ADDR,RO

2923

n.eo'.ruc

2924

;

2925

CST.ADDR,RO

2926

18
#1,R0

2903

MOV
oCTLR,RO

'o?c"

2{?‘7'.88%

cw
B8MI

RO, 010
14

1518

S(RO)

ADD

000010

0000006

MOV

ug 00000%

000060
000062
000066

return TRUE

0000006

01
0000006
s
‘3‘“ 177400

neq 0)

! IF CONTROLLER IS ONLINE

BEQ
MOV

000001
18:

#2,R0

RTS

CLR

ine Size:
30 worde,
Routine Bese:
SCODES
mun stack depth per invocetion:
O words

RO
. 6214

[

1% Dec
14 Dec

RD/Rx EXERCISER

MATT DRIVE

TEST ROUTINES

1933 10:35:57
193% 11:35:15

VAX- 11 Bliss 16 v3-555%
age
SPIDERSUSERS:
[DOUCE T TE . F ALCON ICNROAR B o

bLe

routine QIO_OUT e

THIS ROUTINE IS CALLED By THE MULTI _DRIVE EXECUTIVE FOR DETERMINING THE
END OF THE MULTI-DRIVE TEST., ITS PURPOSE IS TO EXAMINE THE QIO VECTOR

FOR ANY OUTSTANDING QIOS ON ANY CONTROLLER.

"TRUE" IS

e
.

- e

A VALUE OF

RETURNED IF THERE IS AT LEAST ONE QIO OUTSTANDING ON ANY CONTROLLER.
OTHERWISE, “FALSE“” IS RETURNED INDICATING NO OUTSTANDING QIOS.
begin

incr CYgR from 0 to (MAX_CTLR

1) do

SET UP CURRENT CONTROLLER PARAMETERS

IF CONTROLLER IS ONL INE

then

SE :CPM (.CTLR);

NRQAM
vo1.¢

return TRUE;

.CST_ADDR [STATE) eal ONLINE

end;

return FALSE;

* EXIT

end;

LSBTTL

000000G
000000G
000002

QIO0.0UT: MOV
CLR
18:
MOV

JSR
MOV
TST
BPL
TST

000001

2¢:

QIO.OUT MULTI-DRIVE TEST ROUTINES

R1,-(SP)
Rl
R1,-(SP)

PC,.SET.CPAR
CST.ADDR,RO
2(R0O)
24

3
(SP).

i CTLR

2744
2943

2941

INC

BLE

CLR

1
RO

RTS

MOV

1 Routine Size:
21 words,
Routine Bese:
$CODES
3 words
; Maximum stack depth per invocetion:

3
:

#1,R0

LHORD CLV!CLC

3%:

3
: CTLR
i CTLR,»

(SP).

MOV

BR
187

- NO CONTROLLERS ONLINE

(SP)s,R1

+ 6310

2931

L/
NRQAME
vol1.0C

RD/RX EXERCISER
MATI-DRIVE TEST ROUTINES

)

2955

3957

2959

2958

i
:
3
s

2960
2961
2962
2963

:
:

2965
2966

5
;

3
s
M

:
'
:
3
:

22::;

2969
2970
2971
22:;%

2974
2975
2976
2977

g;g

!
!
!
!

RESPONSIBLE FOR SECURING ONE OR TWO MSCP PACKETS AND LOADING THEM
WITH VARIOUS PARAMETERS COMPRISING THE I/0 REQUEST. THE I/0 REQUEST
GENERATED MERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM
THOSE CONFIGURED UNDER THE CURRENT CONTROLLER.

!
!

EACH FIELD OF THE PACKET(S) IS LOADED WITHIN INDIVIDUAL ROUTINES
(QIO_FUNC, QIO_LBN, QIO_SIZE, ETC.). MOST OF THE VALUES SELECTED FOR

!
!

!
!
!
!

;

3
s
:

’

:
F
3
:
:
s

3
H

3
’

:
:

]

CONTAIN VALID MSCP PACKET INDECES, OR -1.

2“29061

H
3

AFTER THE PACKET(S) MAVE BEEN LOADED, THIS ROUTINE RECAINS CONTROL
AND ATTEMPTS TO GET ONE OR TWO I/0 BUFFERS FOR THE ACTUAL DATA
TRANSFERS. THE SUCCESS 7 FAIL STATUS OF THMIS ENTIRE OPERATION IS
PASSED BACK TO THE CALLER THROUGH THE GLOBALS “MX1" AND "MX2"; THEY

3
3

OPTION FOR HOST WRITE-COMPARES, THEN A SECOND “READ” REQUEST WILL BE
GENERATED WITH THE SAME LLBN AND BYTE COUNT.

!
!

UNDER NORMAL CIRCUMSTANCES, ONLY ONE I/0 REQUEST IS GENERATED. HOMWEVER,
IF THIS I/0 REQUEST IS A “WRITE“”, AND IF THE OPERATOR SELECTED THE

!
:

2960
2981

2982
2983
2984
2985

EACH FIELD ARE IASéD ON A SET OF RANDOM NUMBER GENERATED AT THE START,

'
;

:
'
'
f

THIS ROUTINE IS CALLED BY THE MULTI _DRIVE EXECUTIVE FOR AN ONL INE

CONTROLLER ELIGIBLE TO RECEIVE I/0 TRANSFER REQUESTS. IT IS

Note that the DUP Exerciser is loceted inside the QIO_FUNC routine.
Every
o often the Dup exerciser will run and return the MSCP Exerciser

!
!
!
!

to it's normal stete.
IMPLICIT INPUTS:

CCTLR - CURRENT CONTROLLER NUMBER

2988

2989
%

2992

b:xin
Mx2
= -1;

! ASSUME FAILURE IN SECURING 2ND PACKET

if (MX1 = GET_PKT (.CCTLR)) les ©

! TRY TO GET 1ST PACKET. IF FAILURE

2993
2’”2990

then

2996
2997
2998
2999
3000
3001

if (MX2 = GET_PKT (.CCTLR)) les O
then
in

3004
3005

MADL = MSCP_PKT « (.MX1 &« PKT_LEN ¢ 2);
MAD2 = MSCP_PKT ¢+ (.MX2 & PKT_LEN ¢ 2);

! CALCULATE STARTING ADDRESSES
!
OF BOTH PACKETS

if _EOP_FLAG

! RETURN IF NO UNIT ONLINE

3328“3’

3006
3007
3000

3009
3010

return;

PKT (.MX1);
Mx1 = -1,
return;
end;

GET_RANDOM ();
QIO_UNIT ();
then

SEQ O/RR

VAX-11 Bliss-16 v3-555
Page 7
SPIDERSUSERS:
(DOUCETTE . FALCONICNRQAA Bl 2 (21

routine QIO_GEN : novelue *

15-Dec 1983 10:35:57
14 -Dec - 1983 11:35:15

! NO POINT IN CONTINUING

! TRY TO GET 2ND PACKET. IF FAILURE

! RETURN 1ST PACKET TO POOL
! INDICATE FAILURE
! DONE

! GENERATE A SET OF RANDOM NUMBERS
! LOAD RANDOM UNIT NUMBER INTO PACKETS

£/

NRGAM S

RD/RX EXERCISER

v01.C

15-Dec-1983 10:35:57

MATI DRIVE TEST ROUTINES

)

fi{é

return;

3013

QIO_FUNC ();

ND MSCP OPCODEO

14 -Dec-1983 11:35:15

VAX-11 Blies-16 v3-555

SEQ OcA9

oge

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL2 (21

! LOAD RANDOM IMSCP FUNCTION CODE (OPCODE)O OR I1DUP EXERCISER TEST A

éXERCISER 3014

é SRCISER 3015

! START WRITTING AND READING DBN'S ONCE FINISHED 1T WILL RETURN THE

3
[
3

THIS IS THE POINT WHERE THE DUP EXERCISER WILL CUT IN TO THE MSCP

3016
3017
g}g

if (.Mx1 1lss 0) OR (.EOP_FLAG)
then return;

! TO ITS NORMAL
MSCP MODE....
! IF IT WAS IN DUP TEST AND FAILED TO GET A ENVOLOPE RETURN
! NO POINT IN CONTINUING

3020

QIO_LBN ();

! LOAD LBN (RANDOM OR SEQUENTIAL)

%fi

GET_IO_BUFF (MAD1 [BUF _0]);

! TRY TO GET AN I/0 BUFFER

:
3

3
3
:

3021

3024

QIO_SIZE ();

! LOAD RANDOM BYTE COUNT

if .MX2 geq O

3025
3026
%;

then
bo'in
GET_IO_BUFF (MAD2 [BUF _01);

3029

if .MAD2 [BUF 0] eqls O

3032

3
3

3036
3037

i
H
3

3035

! TRY TO GET 2ND I/0 BUFFER
! IF 2ND BUFFER ALLOCATION FAILED

3038

if .MAD1 [(BUF_O0] neges O
then
in
_I0_BUFF (MAD1 [BUF _01]);
MAD1 (BUF _0) = 0O;
end;

3
:
3

3040
3041
g:g

PUT_PKT (.MX2);
MX2 = -1;
end;

3033
3034
3035

! IF TWO QIOS ARE TO BE ISSUED

3039

3046

end;

3047
3048
5049

then

gggis’

else

3
:

3050
3051

ggssg

000000
000006
000012
000016
000022

3058

012737
013746
004737
010037
005726

! RETURN 2ND PACKETY TO POOL
! INDICATE FAILURE
! IF 2ND 1I/0 BUFFER ALLOCATION FAILED

! RETURN 1ST 1/0 BUFFER TO POOL
! MARK IT AS FAILED

¢ IF TWO QIOS ARE TO BE ISSUED

if .MAD1 [BUF_O] eqle O

:
:
i

¢ IF 1ST 170 BUFFER WAS ALLOCATED

¢ IF 1ST 170 BUFFER ALLOCATION FAILED

in
PKT (.Mx1);
MX1 = -1;
end

! RETURN 1ST PACKET TO POOL
! INDICATE FAILURE

if .MAD1 [OPCODE] eql OP_WRT

! OTHERWISE, IF 1ST OPCODE IS A WRITE

then

FILL_BUFF ();

¢t FILL 1ST I/0 BUFFER WITH APPROPRIATE DATA PATTERN

end;

177777 000162’
0000006
000000G
000160

(ALL IS 0.x.)

! ROUTINE QIO_GEN
.SBTTL

QIO.GEN:MOV
MOV
JSR
MOV
TST

QIO.GEN MULTI-DRIVE TEST ROUTINES
o-1,Mx2
CCTLR, -(SP)
PC.GET.PKT
RO, MX1
(SP)e

]
i

MULTI-DRIVE TEST ROUTINES
ST

005700
002572
013746
004737
010037
005726
005700
002011
013746
004737

000160’

RTS

000160°

3
:

Page

(21

RO,MXx2

(SP)+
RO
1s

Mx2

PC,PUT.PKT

(SP)e

18:

PC,BL $MUL
MSCP.PKT
RO

$
@1 ,E0P.FLAG
S¢

PC,.QIO0.LBN
PC,QI0.SIZE

000164
000032
000162
000000G
177777

24:
000162°

H
3
H
:
H
H

3006
3007
3009
2955
3013
3017

:
:
H
:

2955
3020
3021
3022

3024

3027

3029

3033

3036

3037

3040

32 ~

013716
012746
004737
062700
010037
004737
004737
132737
001112
004737
005737
002505
132737
001101
004737
004737
013716
062716
004737
005737
002437
013716
062716
004737
013700
005760
001024
013700
062700
005710
001407
010016
004737
013700
005060
013716
004737
012737

BGE
MOV
JSR
MOV
TST

SEQ 090

SPIDERS$USERS
: [ DOUCE TTE . FALCONJCNRGAR 8L 2

s Mxl

RO
64
CCTLR, -(SP)
PC,GET.PKT

o 2"3:°

000110
000114

012746
004737
062700
010037

TST
TST

3530333838382
3483

000074
000100

012737
005726
000207
013746

BLT
MOV
JSR
MOV

VAX-11 Bliss-16 V3-555

15-Dec -1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

015700
005760

001010
013716

004737
012787
000410
013700

126027

001002
004737
062706
000207

i Routine Size:

33:

000164
000032

000160’
0000006
177777
000160

000164
000022

4as:

000042

000000V

S$:

000006

64:

135 words,

Max»inum steck depth per

Rout ine Base:

invocation:

4 words

15-Dec-1983 10:35:57
14 -Dec 1983 11:35:15
MAD1,RO

MOV
TST

32(R0O)

BNE
MOV
JSR
MOV
BR
MOV
CMPB
BNE
JSR
ADD

Mx1,(SP)
PC,PUT.PKT
@-1,MX1

MAD1,RO

22(R0O), 042
S$
PC,FILL.BUFF
“.y

RTS

$CODES

6362

SEQ Oe71

VAX-11 Bliss-16 v3-555
& - 6F
SPIOEMUSERS:(M"E.fALCMICUaM.m (21

i3 pEEE o®

RD/RXx EXERCISER
MULTI - DRIVE TEST ROUTINES

H/
15-Dec- 1983 10:35:57
14 -Dec 1983 11:35:15

RD/RXx EXERCISER

NRQAMZ

MATI-DRIVE

vol1.C

TEST ROUTINES

SEQ Q¢ v
VAX-11 Blies-16 v3-555
Page
67
SPIDERSUSERS:
(DOUCETTE .FALCONCNRQAA .BL2 (22

routine GET_RANDOM : novalue =

THIS ROUTINE IS CALLED BY QIO _GEN TO GENERATE A SET OF RANDOM NUMBERS,
AND TO STORE THEM INTO THE RANDOM NUMBER TABLE (RANDOM). THE RANDOM
NUMBERS ARE USED TO SELECT I/0 REQUEST PARAMETERS FOR THE CURRENT QIO

OR QIO PAIR. IN ADDITION, IF DATA PATTERN @1 IS BEING USED, THESE

RANDOM NUMBERS WILL BE USED IN THE WRITE OPERATION.

Oown

SEED : word initiel (173),
NEXT_RANDNUM : word initial (245);

begi n

incr COUNT from O to (RDM_LEN
in

1) do

°s§!6 = (,SEED + .NEXT_RANDNUM
-«
NEXT_RANONUM / 4

NEXT _RANDNUM = (.

RANDOM [.COUNT] = .NEXT_RANDNUM;

end;

001241
001242
001244

000255
000365

.PSECT
.EVEN
NEXT . RANDNUM:

$GGGS

255
365

L7
SEQ 079 r

MU TI -DRIVE

TEST ROUTINES

.SBTTL
.PSECT

007000

000010

004137

0000006

013702

001242’

GET.RANDGM:
JSR
MOV

001244

18:

001242’

R1,$SAVE3
SEED,R2

MOV

R3,RO

ASL
ASL

R2,R0O

RO, SEED

001244’

MOV
JSR
MOV
ADD
MOV

000116

MOV

000002

cHp
ADD

®4,-(SP)
PC,BLSDIV
SEED,R2
R2,RO
RO, NEXT . RANDNUM
RO,R3
R3,RANDOM(R1)
(SP)+,(SP)+

cMP

R1,036

RTS

000004
0000006
001242’

000036

001242’

ADD
MOV

MOV

BLE

; COUNT

RO
RO

MOV

000004

000072
000074
000100
000104
000106

$CODES$,

NEXT .RANDNUM,R3

ADD

(

GET.RANDOM MULTI-DRIVE TEST ROUTINES

MOV

CLR

VAX-11 Bliss-16 Vv3-555
Pege
SPIDERSUSERS: [DOUCETTE .FALCON)ICNRQAA .BL2

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

04 ,SEED
R3,-(SP)

2,R1

1¢

i Routine Size:
36 words,
Routine Base:
$CODES$ « 7000
7 words
i Moximum steck depth per invocetion:

NEXT .RANDNUM, &

*,o(COUNT)

& ,COUNT
COUNT ,»

3079

3076
3075
3059

J7
NRQAM3
vo1.C

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

)

3083

3085 !

:
'
:

3088
3089
3090m

;

3092

3
;

;

!
!

3100

3102

3108

:
;

:
3
3
3

3115

3120

3124
3125
3126
3127
3128

3129
3130
3131

3132

s
:

3134
ggz

RAT_COUNT : word initial (0);

local

MOD_COUNT : byte,
TBL_COUNT : byte,
SELECT_RD : byte:

! THIS MODE IS FOR SELECTING DEVICES ON THE FOLLOWING SCHEME:
¢! CHOOSE A DEVICE AND KEEP IT SELECTED FOR A CONSTANT TIME, THEN
! MOVE TO THE NEXT. THIS IS NON-RANDOM, FIXED SEQUENTIAL OPERATIONAL

3
3

own

3112
3113
3114

3121
3122
3123

3
:

begin

! THE UNITS WILL BE SELECTED ON AN ADJUSTABLE RATIO, RDS1 TO RXS0,
: SELECTED VIA THE SOFTWARE PARAMETERS

3
:
3

3109
gifi)

3118
3119

3
3
H
F

THE RD/RX DISK NUMBER (DISK ADDRESS) IS LOADED INTO THE
APPROPRIATE FIELD OF BOTH MSCP PACKETS.

3105
3106

3
s

IMPLICIT OUTPUTS:

!
!

5103

3104

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

3101

;
H

IMPLICIT INPUTS:

i
3

3095

3098
3099

: novelue =

!
!
H

3133

3137

3138

! MODE

if ((.SWP_FLAGS and SWF_RDM) neq SWF_RDM) end
((.SWP_FLAGS and SWF_SEQ) neq SWF_SEQ)

then

! NOT RANDOM MODE
! NOT RANDOM SEQUEUNTIAL MODE

if (.BST_CNT neq 0) end

(.CST_ADDR [.BST_DEV, D_PRES]) eal PRESENT) and

(.CST_ADDR [.BST_DEV, D_STAT] eql ONLINE) end
(not .CST_ADDR [.BST_DEV, D_FATAL))
then
in
! ALREADY WITHIN DEVICE
BST_CNT =

_BST_CNT

SET_UPAR (.BST_DEV);
MADL [DK_NUM] = .CDISK;
MAD2 [DK_NUM] =

return;

.CDISK;

end

else
begin

! GET NEW DEVICE

incr OFFSET from (O +« OF _UN) to (3 & UNIT_SIZE + OF_UN) by UNIT_SIZE do

begin

SEQ 094

VAX-11 Bliss-16 V3-555
Page 69
SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAA .BL2 (22

THIS ROUTINE IS CALLED BY QIO_GEN TO RANDOMLY SELECT ONE UNIT
CONFIGURED UNDER THE CURRENT CONTROLLER (CCTLR) TO BE USED FOR THE
CURRENT QIO OR QIO PAIR. THE UNIT SELECTED IS BASED ON THE NUMBER OF
UNITS ELIGIBLE TO RECEIVE AN I/0 REQUEST (FROM 1 TO 4) AND THE FIRST
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM).

3383‘3
3096
3097

3086
3087

3
3

:
:

routine QIO_UNIT

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

|/
NRQAM3

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
3139

3140

14 -Dec-1983 11:35:15

VAX-11 Blies-16 Vv3-555

SEO 0(95

SPIDERSUSERS: [DOUCETTE. FALCON]CMOAA BLZ 23

f (.BST_DEV eql 0) or

3141

(.BST_DEV eql (3 & UNIT_SIZE + OF_UN))

3142

then

3143
3144

BST_DEV = OF _UN
else
BST_DEV = .BST_DEV + UNIT_SIZE;

3145

146

. 3147
3148
3149
3150

if (.CST_ADDR [.BST_DEV, D_PRES] eql PRESENT) and
(.CST_ADDR [.BST_DEV, D_STAT] eql ONLINE) and
(not .CST_ADDR [.BST_DEV, D_FATAL])
then

3153
3154
3155
3156
g{.g"l

if .CST_ADDR [.BST_DEV, D_TYPE] eql RX_50
then
BST_CNT = RX_SEQ_CNT
else
BST_CNT = RD_SEQ_CNT;

3159
3160
3161
3162

SET_UPAR (.BST_DEV);
MAD1 [DK_NUM] = .CDISK;
MAD2 [DK_NUM] = _CDISK;
return;

3151
3152

begin

3163
3164

3165
3166
3167
3168
3169
3170
3171
3172
3173
3174
3175
3176
3177
3178
3179

3180

end;

end;
RANDOM SELECTION OF DRIVES

this pert selects the device by the retio
et_count =

f (.ret_count

else

3184

3185

3186

3187

3188

3189
3190
3191
3192
3193
3194

less

¢+

increment counter

100) then rat_count = 0;

then

.swp_rat)

if counter greater than swap ratio then do a rx-50

eql

.swp_ra

if counter less then retio do a rd-51

if ratio equal

100 do rd

SELECT_RD = true;

if (0 eql .swp_ret)

then

and reiniate the counter

SELECT_RD = false:;
eql

from 0 to 100

in case counter gets to large reinit to 0

SELECT_RD = true

gig if (100
3183

.ret_count

if (.ret_count
t

v01.0

15-Dec-1983 10:35:57

SELECT_RD = FALSE;

IF RDS1e SELECTED
COUNT NUMBER OF RDS51s AVAILABLE

if reatio equals O do rx

L/
RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
3195
3196
3197
3198
3199
3200

15 Dec-1983 10:35:57
14 -Dec-1983 11:35:15

SEQ 029
VAX-11 Bliss-16 V3-555
Page
71
SPIDERS$USERS:{DOUCETTE.FALCONICNRQAR.BL2 (23

.SELECT_RD

then
mn

_COUNT = 0;

! COUNT THE NUMBER OF RDs IN THE SYSTEM

incr OFFSET from (O « OF_UN) to (3 & UNIT_SIZE

NRQAM3
vo1.0

+« OF _UN) by UNIT_SIZE do

if (.CST_ADDR [.OFFSET, D_PRES) eql PRESENT) and

(.CST_ADDR [.OFFSET, D_STAT] eaql ONLINE) and
(.CST_ADDR [.OFFSET, D_TYPE) eql RD_51) and
(not .CST_ADDR [.OFFSET, D_FATAL]))

then

g?&'me [.MOD_COUNT] = _OFFSET;
in

MOD_COUNT =

_MOD_COUNT

SELECT ON OF THE RDS1s
if

.MOD_COUNT neq O

then

B8 B8

S5 BE

end;

IF AT LEAST ON RDS1 PRESENT

?B.E_CMT = 0;

g’:\’fl C.STORAGE [(.RANDOM [.TBL_COUNT) and %0’'077777') mod .MOD_COUNT]);
_TBL_COUNT + 1;

I%_CMT =

until ((.CST_ADDR [.CUOFF, D_PRES]
(.CST_ADDR [.CUOFF, D_STAT]

eql PRESENT) and
eal ONLINE) and

(not .CST_ADDR [.CUOFF, D_FATAL])) or

(.TBL_COUNT eql RDM_LEN);

MAD1
MAD2

return;

end;
end;

IF NO RDS1 SELECTED, SELECT AN RX50
COUNT THE NUMBER OF RX50s

MOD_COUNT = 0;

incr OFFSET from (O + OF _UN) to (3 & UNIT_SIZE + OF _UN) by UNIT_SIZE do

(DK_NUM] = .CDISK;
[DK_NUM] = .CDISK;

if (.CST_ADDR [.OFFSET,

D_PRES] eql PRESENT) and

(.CST_ADDR [.OFFSET, D_STAT] eql ONLINE) and

W
es

14 -Dec-1983 11:35:15

then

g?&!AGE [.MOD_COUNT] = .OFFSET;
in

‘H?‘g_COlNT =

3257

_MOD_COUNT

Se
Se S

AND CHOOSE ONE!

if .MOD_COUNT neq O
then

?ng COUNT = 0;

g?_upm (.STORAGE [(.RANDOM [.TBL_COUNT] and #0'077777') mod .MOD_COUNT]);

G0 S5

TBL_COUNT
end

_TBL_COUNT

until (C.CST_ADDR [.CUOFF, D_PRES] eal mesem)
(.CST_ADDR [.CUOFF, D_STAT] eql ONLINE) and

(not .CST_ADDR[.CUOFF, D_FATAL])) or

(.TBL_COUNT eql ROM_LEN);

MAD1 [DK_NUM]) =
MAD2 [DK_NUM] =

.CDISK;
.CDISK;

return;
end;

IF NO UNIT SELECTED SO FAR BY ABOVE METHOD, SELECT ANY ONE AT RANDOM

COUNT ALL UNITS AVAILABLE

MOD_COUNT = 0;

incr OFFSET from (0 « OF _UN) to (3 & UNIT_SIZE + OF UN) by UNIT_SIZE do

f (.CST_ADDR [ .OFFSET, o _PRES] eql PRESENT) .nd

(.CST_ADDR [.CFFSET, D_STAT] eql ONLINE) and

gh.'(\not "CST_ADDR [.OFFSET, D_FATAL))
in

g?&AGE [.MOD_COUNT] = .OFFSET;

MOD_COUNT =

_MOD_COUNT + 1;

SELECT ANY ONE ONE UNIT AT RANDOM

end;

if .MOD_CO"
then

'T neq O

SEQ 0e97
Page

SPIDERSUSERS: [DOUCETTE .FALCONJCNRQAA. BLZ (23

(.CST_ADDR (.OFFSET, D_TYPE) eql RX_50) and
(not .CST_ADDR [.OFFSET,
D_FATAL))

3251
3252
3253

MULTI-DRIVE TEST ROUTINES

VAX-11 Bliss-16 Vv3-555

4
15-Dec-1983 10:35:57

RD/RX EXERCISER

NRQAM3
vo1.0

N7
RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

NRQAM3
v01.0

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

SEQ 0298
P age
73
VAX-11 Bliss-16 v3-555
SPIDERSUSERS:(DOUCETTE.FALCONICNRQAA.BL2 (23

S
—

begin
TBL _COUNT = O;
do

m_wm (.STORAGE [(.RANDOM [.TBL_COUNT) and #0'077777') mod .MOD_COUNT]);
"

TBL_COUNT
end

. TbL_COUNT

.«

until ((.CST_ADDR [.CUOFF, D_PRES] eql PRESENT) and
(.CST_ADDR [.CUOFF, D_STAT] eql ONLINE) and
(not .CST_ADDR [.CUOFF, D_FATAL])) or
(.TBL_COUNT eql RDM_LEN);
MAD1 [DK_NUM] =
MAD2 [DK_NUM] =
return

.CDISK;
_CDISK;

end
'

; DECLARE END-OF -PASS IF NO UNIT ONLINE
eloe
FLAG = TRUE;

DCT (IG. INT] = TRUE;

end;

! ROUTINE QIO_UNIT

001246
001246

PSECT

RAT
. COUNT :
.

LSBTTL
.PSECT

007110

004137

0000006

QIO.UNIT:

032737
001136
032737
001132
005737
001433
013700

000002

000000G

001000

000000G

063700
032710
001423
013700

000000G

ADD

001232

BEQ
MOV

063700

0000006

ADD

$GGGs$,

[+]

QIO.UNIT MULTI-DRIVE TEST ROUTINES
$CODE$.
RO

JSR

R1,$SAVE3

H
3

3083
3118

..2

01000 SWP .FLAGS

3119

001230’

DST CNT

3122

001232’

MOV
ASL

lSY .DEV,RO
RO

3123

BIT

3124

040000

O.I‘T

ASL

02 SWP .FLAGS

CST.ADDR,RO

1
BST.DEV,RO
RO
CST.ADDR,RO

)’

1% Dec
i4 Dec

Ss:

0000006
040000
020000

A
$ &S
g g3 : ; : §§§= o
.

000004

000120

001230’

004

001230’

001332

o OFFSET

¢3,8ST.DEV

Ss
05,857 .DEV

BST.DEV,.RO
RO

CST.ADDR,RO
:oooo.(no)

920000, (R0O)
8s
#10000,(RO)
8s

W -

D -4
-t U

000016

000005
000022

8s:

001246
001246 000144

10%:

£2

13395933437

§8833883888388

000164°
000000G 000016
000166

RO, 022

i1s:
12%:

138

R1,822
B

, COUNT
RAT
. COUNT 0144
RAT

104

. COUNT
RAT

SWP .RAT,R1

RAT COUNT ,R1
114
01.RO

010000

B8ST.DEV,RO

o3,R1

12¢

001252°

001282

B8ST.DEv.RO
RO
CSTY.ADDR,RO
€10000,(R0O)
1s
BST.CONY

R1,0144

13s

e1,.RO
R1

000005

@20000,(RG
)
1s

001232

333083R8272RRTE

000003

SEG Lo

vAY 11 Bl es 1 6 ¢3 5%
SPIDERSUSERS: { [DOUCEY TE.FALCONICNRORA
W o

- o o -

000022

000003
oo12%2'

is:
Fe

194% 10:85:%?7
198% 11:95:15%

0012%0°

EFT 334 3 133 14 1 3139

§8838858858358388

0000006
010000

$338338%% RoBSB28R3ERIRIRABRATERNT

oo12%2°

€

*,SELECT.RD
SELECT.RD

¢,SELECT.RD

ROUTIMNES

14%:

% Dec

1983

10:35:57

4 Dec

1983

11:35:15%

RD /Ax EXERCISER
MATI DRIVE TEST

CLRB

8CC
CLRB

SEQ GO0
VAX-11 Blies 16 v3-555
Page
7%
SPIDERSUSERS:
[DOUCE T TE .FALCONJCNRQAR
B 2 (23

: SELECT.RD
s+ SELECT.RD

3188
3196

: MOD.COUNT

3199

i OFFSET,e

3203

;

15%:

o, OFFSET

3201

040000

020000

10000, (RO)

010000

000074’
16%:

16¢
RO
R3,RO
RO
R1,STORAGE(RO)
R3
o5,R1

3204

3205

3206

:
3 MOD.COUNT,»

3209

OFFSET,»

»,0FFSET

: MOD.COUNT

3210

3201

R1,022

3 OFFSET,»

R3S

3 MOD.COUNT

3217

3 TBL.COUNT
:

3220
3224

15¢

17¢:

TBL.COUNT,
s

: MOD.COUNT,»

3+ TBL.COUNT
:
'

322%
3223
3227

3228

3229

18s:

3 TBL.COUNT,»

3230

194;

3
s+ MOD.COUNT
1 ¢,0FFSETY

3232
3245
3247

204:

OFFSET,»

3249

D#
RD/RX EXERCISER
MA TI-DRIVE TEST

1% -Dec 1983 10:35:57
14 -Dec - 198% 11:35:15

ROUTINES

CST.ADDR,RO

0000006
040000

40000, (RO)
21
920000, (RO)
21
04,(RO)
21
910000, (RO)

020000

000004
010000

3250

3251
3252

214

,»
MOD.COUNT
OFFSET,»
. COUNT
MOD

000074

21%:

22%:

¢ ,0OFFSET

3247

MOD .COUNT

3263

OFFSET,»

n3R

000005

RO
RANDOM(RO), -(SP)

3255

. COUNT
TBL

,»
TBL.COUNT

3270

#100000,(SP)

-(SP)

R3,(SP)

PC,BL $MOD

MOD.COUN,T
»

i!ig 3

STORAGE(RO),(SP)
PC,SET.UPAR
(SP)+,(SP).

TBL . COUNT

3271

3273

CST.ADDR,RO

#40000, (RO)

234
#20000,(RO)

3274

3275

000020

T
TBL.COUN,»

234:
244

. COUNT
MOD

254

o, 0FFSET

OFFSET,»

001032
001034

3276
3278

3291
3293

3294

001054

010000

10000, (RO)

3295

['- |f)|
15 Dec-1983

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

14 -Dec 1983 11:35:15

BNE

000005

27%:

ASL

001124
001130
001134
001136
001140
001144
001146
001152
001156
001160
001162
001166
001170
001174
001200
001202
001206
001210
001214
001216
001222
001224
001230
001236
001242
001250
001252
001260
001266

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
052777
000207

3 MOD.COUNT,

MOV
INCB
ADD
cHP
BLE

R1,STORAGE(RO)
R3
@5,R1
R1,022
264

;s
;

BEQ

314

CLRB

TBL.COUNT

B8ISB
ASL
MOV

R2,RO
RO
RANDOM(RO), -(SP)

3308
3312

MOVB
JSR
ASL
MOV

R3,(SP)
PC,BL $MOD
RO

CLR

ASL

000000G

31¢:

100000, (SP)
-(SP)

STORAGE(RO),(SP)
PC,SET.UPAR
R2
(SP)e+,(SP)+
CUOFF ,RO

: TBL.COUNT, »
s MOD.COUNT,»

: TBL.COUNT

3313
3311
3315

CST.ADDR,RO

940000, (RO)

BIT

920000, (RO)

3316

8IT

910000, (RO)

3317

BEQ

000001

BIT

BEQ

30¢:

3299
3291
3305

ADD

000164’

; ¢, OFFSET
; OFFSET,e

3298

: MOD.COUNT

JSR
INCB
cHe
MOV

29%:

OFFSET,e
MOD.COUNT

2 (23

BIC
CLR

000020

SEQ 0Z0¢

SPIDERSUSERS: [DOUCETTE .FALCON JCNRQAA ,

R3,RO

1ST8

284
:

VAX-11 Bliss-16 v3-555

274

CLR

B8ISB
000074

10:35:57

29¢

294

304
R2,020
28

BEQ
cvPB
BNE
MOV
MOV
MOV
MOV

MAD1,RO
COISK,16(RO)
MAD2,RO
CDISK, 16(RO)

MOVB

#1,E0P.FLAG

RTS

8IS
RTS

;: Routine Size:
348 words,
Routine Base:
$CODESs
; Maximum stack depth per invocation:
7 words

. ADDR
#40000,80CT

+ 7110

; TBL.COUNT,»

3318
3320
3321

3331

3332
3083

RD/RX EXERCISER

Y A Y Y Y e e
S
SER TR S TR S P S T S P T T T T

BY THE FOLLWING ALGORITHM:

IF THE CHOSEN UNIT

THEN

S L S
S

THE I/0 FUNCTION (OPCODE)
THE FUNCTION IS DETERMINED

IS PROTECTED

FUNCTION = READ

ELSE (UNPROTECTED)

FUNCTION (WRITE OR READ)

IS BASED ON A RANDOM

IN ADDITION, IF THE OPERATOR SELECTED THE OPTION OF PERFORMING WRITECOMPARES AT THE MOST, AND IF A "WRITE"” FUNCTION WAS CHOSEN ABOVE FOR
THE FIRST QIO,

THEN A “READ“ OPCODE IS LOADED INTO THE SECOND MSCP

ENVELOPE. OTHERWISE, THE SECOND MSCP ENVELOPE IS RETURNED TO THE POOL.
THIS ROUTINE ALSO DECIDES WHEATHER IT IS TIME TO RUN THE DUP EXERCISER.
THE EXERCISER WRITES 25 LBNS FOR EVERY 1 DBN. FOR INITIALIZATION
REASONS THE MULTIPLE OF 25 LBNS CAN BE READ FOR 1 » MULTIPLE OF DBNS.

DUP EXERCISER MRITES X BLOCKS PER PASS THRU THE DUP ROUTINE.
THERFORE
THE RATIO OF
1 TO 25 MUST BE MULTIPLIED 8Y X FOR A RATIO OF 1 TO
25 & X.
SO EVERY 2SeX LBN'S READ OFF A WINCHESTER UNIT X DBN'S WILL
B8E READ IF ASKED BY THE USER.
X I.mnmto‘
the VARIABLE "DUPROUND".
RUNNING THE EXERCISER PROGARM,

QUESTION GIVEN AT THE START OF
THE DUP EXERCISER THEN REINITIALIZES
IF THE REGULAR MSCP EXERCISER WAS

xm.xcn nours:

- ADDRESS OF CURRENT CONTROLLER'S CST
T_ADDR

cutfr - CURRENT UNIT CST OFFSET

T SO SR SR S AR TR O T SEE S

THIS ROUTINE IS CALLED By QIO_GEN TO SELECT
TO BE USED FOR THE CURRENT QIO OR QIO PAIR.

IMPLICIT OUTPUTS:
THE OPCODE FIELD OF ONE OR BOTH MSCP ENVELOPES IS LOADED.

! OPCODE (READ OR WRITE)

zl:flINTF (DER9);

WA B

BE We

BE Se S5 S5 Se

FUNC : word;
!PRINTX (DER9);

AND
EQL RD_S1) AND

SEQ 0203
Page

SPIDERSUSERS:
[DOUCETTE .FALCON]ICNRQAA.BLZ (24

S
e
e
B
e
S5
BE S5
B
B8 S
B
5
S5
S5 S5 B8 S5 S5 S5 S5 S5
B
S5 B0 S5 S5 S5 S5 B0 B
S5 S5 G5 B
B8

3347

13-Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

routine QIO_FUNC : novalue =

S8 B

5336
3337
3338
3339

10:35:57

S5 S

15-Dec-1983

MULTI-DRIVE TEST ROUTINES

NRQAM3
vol1.0

{8 F MSCP FUNC CNT EQUAL TO O
!IF WINCHESTER DISK
!IF NODUPMEDIA FLAG BIT IS CLEAR

W W
T G W W

MX2

G
T
> W G G
> G

G G

3403

>
> T
>

RETURN 1ST ENVELOPE TO POOL
! INDICATE FAILURE
!CLEAR DUP ERROR FLAG
! DO DUP TEST
!CLEAR DUP ERROR FLAG
! PRINT MSCP EXERCISER REINIT
! REINITIALIZE MSCP FUNC COUNTER
.dupround);

5000060000000 000000008000ssses PROCEED AS BEFORE THE DUP EXERCISER STARTED #ssscsssssssssssss

DUP_FLAGS =

.DUP_FLAGS OR SWP_DINT;

INIT_TEST ()
DUP_FLAGS = .DUP_FLAGS AND (NOT SWP _DINT);

OR (.EOP_FLAG)

SET DUP INI'

FLAC

THIS REINITIALIZE. THE CONTROLLER FOR MSCP MODE

CLEAR DUP INIT FLAG

ASSUME FAILURE IN SECURING 2ND ENVELOPE
TRY TO GET 1ST ENVELOPE.

THEN

RETURN;

IF FAILURE
NO POINT IN CONTINUING

OR (.EOP_FLAG)

IF FAILURE

IF (MX2 = GET_PKT (.CCTLR)) LSS O
BEGIN
PUT_PKT (.MX1);

> S5 G5 T2 G5 T

SPIDERSUSERS: [DOUCETTE .FALCON JCNRQAR :S (24

! 606000000000000808000008080008ss THIS SECTION REINTIALIZES 2 ENVOLOPES SO THE MSCP EXERCISER CAN

MX2 = -1;
IF (MX1 = GET_PKT (.CCTLR)) LSS O

MX1

TRY

TO GET 2ND ENVELOPE.

RETURN 1ST ENVELOPE TO POOL

-1;

RETURN;

INDICATE FAILURE

END;

G5 G T>

MADL = MSCP_PKT
MAD2 = MSCP_PKT

GET_RANDOM ();

CALCULATE STARTING ADDRESSES
OF BOTH ENVELOPES
GENERATE A SET OF RANDOM NUMBERS

« (.MXx1 s PKY
« (.MXx2 s PKT

> W W V> G

QIO_UNIT ();

LOAD RANDOM UNIT NUMBER INTO ENVELOPES

END;
10000000000 8080000480000080804888008488800508808882088884000200288008040008

B> S G+
o (PO

-1;

CST_ADDR [.CUOFF « 3, DUPERROR] = 0;
DUP ();
CST_ADDR [.CUOFF + 3, DUPERROR] = 0;
IPRINTX (DBM111);
= (25 ¢
CST_ADDR [.CUOFF « 4, D_COUNT]

3397

3401

START OF ROUTINE MSCP

1200000000020002804800000008880888888888800000882888884588808488800008048084040

COUNTER

CST_ADOR [.CUOFF + 4, D_COUNT])
MAD2 (OFCODE)

= .CST_ADDR [.CUOFF + 4, D_COUNT)

- 1;

ASSUME 2ND PACKET NOT NEEDED

= O

'::;..‘csr_moa [.CUOFF, D_PROT) eql PROTECTED

T> S

else

IF UNIT IS PROTECTED

FUNC = OP_RD

SET FUNCTION TO READ

i? (.RANDOM (1) end 1)

USE 2ND RANDOM NUMBER TO SELECT

> G
S0 60 G0 G5 G0 S0 G0
€

SEQ 0%04

11 Blies-16 v3-55%

PUT_PKT (.MX2);

3392
3393
2394
3395

VAX

G S0 Go

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

3
NRQAM
vo1.0

then
FUNC

else
if

FUNC

(MADL

then

begin

= OP_RD

READ

= OP_WRT;

WRITE

[OPCODE]

.FUNC) eql OP_WRT

LOAD CHOSEN OPCODE.

IF WRITE

¢ DECREMENT MSCP FUN

H
RD/RX EXERCISER

NRQAMS
\;Ol .0

MULTI-DRIVE

14 -Dec-1983 11:35:15

TEST ROUTINES

MAD1 (CMD_TYPE]

= NON_SEQ_CMD;

VAX-11 Bliss-16 v3-555

SEN 005

SPIDERSUSERS: [DOUCETTE . FALCON JCNRQAN ;?3 (24

NON-SEQUENTIAL COMMAND

IF CONTROLLER DOES WRITE -COMPARES

ADD COMPARE MODIF IER

IF HOST DOES WRITE-COMPARES

15-Dec-1983 10:35:57

SWF _CuWC)

if BIT_TST (SWP_FLAGS,

= MD_CMP:

MAD1 [MODIFY]

if BIT_TST (SWP_FLAGS,

then

SWF _HWC)

é [OPCODE] = OP_RD;

MAD2 [CMD_TYPE] = NON_SEQ_CMD;

end;

! SET READ OPCODE INTO 2ND MSCP PACKET

‘* NON-SEQUENTIAL COMMAND

end
else

PAB1"(CMD_TYPE] = NON_SEQ_CMD:

i# BIT_TST (SWP.FLAGS,
hen
N

NON-SEQUENTIAL COMMAND

SWF_CRC)

- FUNCTION IS READ

ADD COMPARE MODIFIER

MADL [MODIFY) = MD_CMP;

IF CONTROLLER DOES READ-COMPARES

end;

IF NO OPCODE IN 2ND PACKET

if .MAD2 [OPCODE) eql O
:
then

RETURN 2ND PACKET TO POOL

PUT _PKT (.MX2);

MARK IT UNUSED

-1;

MX2 =
end;

! ROUTINE QIO_FUNC

end;

.SBTTL
QIO.FUNC:

QIO.FUNC MULTI-DRIVE TEST ROUTINES

000000

004137

0000006

000004
000010
000014

013702
013701
010100

0000006
000000G

MOV
MOV

CUOFF ,R1

000010

TST

R2,RO
10(RO)

000026
000030

003166
010100

000036
000042
000044
000046

132710
001560
010100
006

000004

000052
000056
000060
000064

005760
100552
013746
004737

000006

JSR

MOV
ASL
ADD

BGT
MOV
ASL

000162
000000G

ADD

R1,$SAVE3

CST.ADDR,R2

3336
3386

3387

R1,RO
RO
44

Rl.flo

BITB
B8EQ
MOV

3388

ASL
ADD

18T

BMI

MOV
JSR

Mx2, -(SP)

PC.PUT.PKT

3392

8IC
MOV

940000,6(R0O)

BITB

0000006
0000006
000162’
000001

000160’

000000G

0000006
177777 000160’

000160’

000104
0000006
0000006
000164°
000162
000104
0000006
0000006
000166°
007000’
007110’
000010

000000G
000000G
000010
000166

16;

3¢:

4as:

:
3

3395
3396

3398

CST.ADDR,RO
CUOFF ,R1

CST.ADDR,R1
DUPROUND, (SP)
@31, -(SP)
PC,BL$MUL

#2.0UP .FLAGS

3403

#2,0UP ,FLAGS
@-1,Mx2

;

RO,10(R1)

PC,INIT.TEST

3407

CCTLR,(SP)
PC,GET.PKT

RO, MX1
2¢
#1,E0P.FLAG
2t

H
H

3336
3411

1s
#1,E0P.FLAG

3412

MX1,(SP)

3414

CCTLR,(SP)
PC.GET.PKT

3¢

PC,PUT .PKT

de,(SP)e

3415
3411
3413
3419

8IC

3393
3394

001411
013716
004737
012737
022626
000207
013716
012746
004737
062700
010037
013716
012746
004737
062700
010037
004737
004737
062706
013700

ASL

MOV
MOV
JSR
MOV
BIS

0000006

#40000,6(R0O)

: gv "38¢°

000001

132737

PC,DUP
CUOFF ,RO

;
H

CST.ADDR,RO

28
e
~9

132737

001022
013716
004737
010037
002404

8IC
JSR
MOV

CUOFF ,RO

SEQ 03206
VAX-11 Bliss-16 v3-555
Page
381
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA .BL2 (24

012737
013716
004737
010037
002426

ASL

000031
0000006
000010
000002 000000G
000212’
000002 000000G
177777 000162’
000000G
000000G
000160°

0-1,Mx2

MOV
MOV
ASL

23az23gy

000162’

£l

006300
063700
042760
004737
013700
006300
063700
042760
013701
006301
063701
013716
012746
004737
010061
052737
004737
042737

177777

000000G

012737
013700

TEST ROUTINES

000142

MULTI-DRIVE

SREF3550380323832303%% 382F 3538 ot 31 2

000070
000076
000102
000104
000110
000116
000122

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

NROAM3S
\;01 .C

3421
3422
3390
3430

J&
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

MULTI-DRIVE TEST ROUTINES
012703
060003
105013
013700
006300
063700
032710
001404

032737
001403
012701
000402
012701
013700
013702
110160
020127
001024
012760
032702
001403
012760
032702
001421
112713
013701
012761
000411
012760
032702
001403
012760
105713
001010
013746
004737
012737
005726
000207

SEO 0207
VAX-11 Bliss-16 Vv3-555
Page
82
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAL .BL2 (24

000022

0000006

000000¢
100000
000001

000120’

000041

Ss:

000042
000164

6%:
7%:

0000006
000022
000042

MAD1,RO

000002
000020

8s:

02,4(R1)

000004

10¢

9¢:

(R3)

10¢:
000162’
0000006

177777

118

PC.PUT.PKT

000162
11%:

3434

'
:

3436
3439

*,FUNC

g:;;

i #,FUNC

3443

R1,042

000040

o-1,Mx2

(SP)«

TST

RTS

209 words,
i Routine Size:
$CODES$
Routine Bese:
9 words
;3 Maximum stack depth per invocation:

10400

': FUNC,s
s

FUNC,*

13
3445

H
H

3448
3450

3
H

3452
3454

H
H

3457
3458

H
H

3445
3464

:
H

3468
3472

3475

H
H
H

3476
3474
3336

3466

<&
NRQAM3
v01.0

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

)

3480

’
[

3482
3483

3481

:
3
;
:
3
3

3484
3485
3486
3487
3488
Ss:gg

3491

H
H
3
;

3493
3494
3495
3496

3
H
3
H

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

ROUTINE DUP : NOVALUE =
!

!
!
!
!
!
H
k

3492

3497
3498
g&

!
!
4

!
!
!
!

THIS ROUTINE IS CALLED BY QIO_FUNC AFTER 25 + "DUPROUND” RD/WTS .
THIS EXERCISER WAS PLACED IN THE MIDDLE OF THE MSCP EXERCISER SO A
COMMON INITIALIZATION AND OTHER ROUTINES COULD BE USED.
THE DUP EXCERSIZER WILL RUN A READ ONLY OR A WRITE/READ COMPARE
TO THE DIAGONOSTIC BLOCKS OR DBN'S.
1T WILL RECORD
THE STATICS IN THE TALLY TABLES.

THE PROGRAM USES CONTROLLER LOCAL PROGRAMS TO WRITE AND READ THE DBN'S.

WHEN WRITTING TO THE DBN'S A ONE WORD PATTERN WILL BE SELECTED

AND COPY TO A 256 WORD BLOCK. THE ROUTINE WILL WRITE TO “DUPROUND” AMOUNT
OF DBN SEQUENTIAL BLOCKS.
IF A THERE ARE CONTROLLER LOCAL PROGRAMS AND
IF THE USER SO DESIRES A WRITE AND READ OF EACH BLOCK AND A COMPARISON
TO THE DATA PATTERN WILL BE GIVEN TO TEST FOR FAULTY DBN'S.
IF THE USER
DOES NOT MANT TO WRITE TO THE DBN'S ONLY A READ WILL BE GIVEN AND NO
COMPARISON WILL BE DONE.
THE BAD BLOCKS FOUND IN THE COMPARISON TEST
WILL NOT BE LISTED IN THE RCT TABLES.

H
H

3501
3502

!
!

AFTER THE EXERCISER HAS EXAMINE "DUPROUND” AMOUNT OF BLOCKS IT WILL
REINITIATE THE ENVOLOPES SO THAT THE MSCP EXERCISER MAY CONTINUE AS

H
H

3506
3507

!
!

IMPLICIT INPUTS:
CCTLR - CURRENT CONTROLLER NUMBER
CST_ADDRS
- CONTAINS THE CURRENT CONTROLLER STATUS TABLE

3
3
;

‘

3503
3504
3505

gssgg

3510

ggi},

H
H
3
H
H
:
$

3513
3514
3515
3516
3517
3518
3519

3
H

3521
3522

H
H
H
H

3524
3525
3526
3527

H
H
H
H
3

3520

3523

3528

3529
3530
3531
3532
gggz
3535

SEQ 03%048

VAX-11 Bliss-16 Vv3-555
Page
83
SPIDERSUSERS: [DOUCETTE. FALCON]ICNRQAA BL2 (2%

¢
!
!

:
-

BEFORE
.

CUOFF

- CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

IMPLICIT OUTPUTS:

S_PATTERN - PATTERN BEING WRITTEN TO AND READ FROM DBN'S

- i

BEGIN
OwWN

TEMP : WORD;
!PRINTX (DBM110);
!PRINTX (DER10);

S_PATTERN
= .RANDOM (1]);

IF (.CST m [.CUOFF « 3, D_DBN) + .dupround) GEG 144 THEN (CST_ADDR [.CUOFF « 3, D_DBN] = 0);

! TEST TO SEE IF NEXT DBN‘'S TO LARGE
! CIRCLE ARROUND IF DBN TO LARGE

BEGIN
MSCP_PKT [.MXx1, HSG.EN} = SZ_GDS;
MSCP_PKT [.MX1, OPCODE) = OP_GDS;
MSCP_PKT [.MX1, MODIFY) = O;

DUPCOMMAND ();

! PACKEY SIZE
! OPCODE = GET DUST STATUS
:

! SENDS AND RECEIVES THE COMMAND

GET DUST STATUS

IF .CST_ADDR [.CUOFF « 3, DUPERROR] EQL 1
THEN
RETURN;
'IF DUP ERROR THEN CLR FLAG & RETURN
IF .CST_ADDR [.CUOFF + 3, NODUPMEDIA] EQL 1 THEN RETURN; ! IF DUP LOCAL MEDIA NOT THERE THEN RETURN
IF (Mx1 &GEYEwTF(AggTLR)) LSS O
! TRY TO GET AN ENVELOPE. IF FAILURE
‘

_FL

THEN RETURN;

! NO POINT IN CONTINUING

3536
3537
3538
3539
3540

TEMP = .CST_ADDR [.CUOFF « 3, D_DBN];
INCR DBNCNT FROM (.TEMP + 1) TO (.TEMP .

THEN

BEGIN

T_ADDR [T _DBN_WT) =

DUPWRTDBNC ) ;

.T_ADDR [T_DBN_WT)

END;

THEN
RETURN;

T_ADDR [T_DBN_RD) =

DUPREDDBN(
);

INCREMENT FROM RELATIVE DBN TO DBN - dupro

IF WRITE FLAG SET IN CST TABLE THEN WRITE DBN'S

CALL ROUTINE TO HANDLE WRITTING ROUTINES

!IF DUP ERROR THEN CLR FLAG & RETURN

.T_ADDR (T_DBN_RD)

IF .csr-m [.CUOFF + 3, DUPERROR] EQGL 1

! CALL ROUTINE TO HANDLE READING DBN’'S
!IF DUP ERROR THEN CLR FLAG € RETURN

RETURN;

END;
END;

013700
006300
063700
156001
063701
020127

063700

SPIDERSUSERS: [DOUCETTE .FALCON]CNRQAA m (25

IF .CST_ADDR [.CUOFF « 3, DUPERROR) EQL 1

004137
013737

004737
013700

.dupround) DO

IF .CST_ADDR [.CUOFF + 3, DUPWRITE]

TEMP

013746
012746
004737
012760
112760

SEQ 0309
P
84

BEGIN

3541
3542
3543
3544
3545

3547
3548
3549
3550
3551
3552
3553
3554
3555
3556
3557
3558
3559
3560

VAX-11 Bliess-16 V3-555

UNTIL .CST_ADDR [.CUOFF + 3, D_ACTIVE) EQL IDLE;

000160’

1%:

.PSECT
.BLKW

.SBTTL
.PSECT

DUP MULTI-DRIVE TEST ROUTINES
¢CODE$,
RO

353523353807 380080 38

M.‘.-u“nm.-u“.-.oflu-n“-.c.-&...-....“ ~

MULTI-DRIVE TEST ROUTINES

001250
001250

000110
000114
000116

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vol1.C

$GGG$,

R1,$SAVE3S

RANDOM+2,S.PATTERN

Sl:f’ RO

3481
3519

g:l;t.m.ao

6(RO),R1
DUPROUND R1
R1,#220
1¢

6(RO)

3525

9104, -(SP)

PC,BLSMUL
#14 ,MSCP.PKT+6(RO)
@1 ,MSCP .PKT+22(RO)
MSCP.PKT+24(RO)
PC, DUPCOMMAND
CUOFF ,RO
RO

CST.ADDR,RO

3526
3527
3528
3529

Mé&

000212

MULTI-DRIVE TEST ROUTINES

032760
001016
005760

040000

100413

;

SEQ 0210
Page

SPIDERSUSERS: [DOUCETTE .FALCON]ICNRQAA 8L2 (25
3481
3532

3481
3533

PC,GET.PKT

132737
001402
022626
000207
022626
013700
006300
063700
062700
032710
001314
111037
105037
013702
063702
013700
006300
063700

24
#1,EOP.FLAG
34

Ss:

64:

3481
3535
3524
3537

(SP)+,(SP)+
CUOFF ,RO
RO
CST. ADDR RO
#6,RO
020000 (RO)

(RO) TEMP

000000G

3534

3s:

(SP)+,(SP)+

2s:

7¢:
Rout ine Base:
130 words,
7 words
Maximum stack depth per invocation:

Routine Size:

v3-555

RO,MXx1

010003
062703
013701
000443

Bliss-1€

CCTLR,(SP)

013716
004737
010037
002404

032713
001417
013700
005260
004737
013700
006300
063700
032760
001024
013700
005260
004737
013700
006300
063700
010003
062703
032713
001003
005201
020102
003732
000207

VAX-11

000006

ReARoEo3Pa0R3RTER2GASRTR88238

000122
000130
000132
000136
000140
000144
000150
000154
000156
000164
000166
000170
000172
000174

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0
)

RTS
$CODE$

TEM.1
P
TEMP,R2

DUPROUND .R2
CUOFF ,RO
RO
CST.ADDR,RO
RO,R3
#6,R3

3539

3543

3540

TEMP,R1
6%
210000, (R3)
S¢

3547

3
3
:

R1
R1,R2
44
PC
+ 11242

DBNCNT
i DBNCNT,»

3550
3552
3553

3554

3556

3540

3481

N&
NRQAM3

RD/RX EXERCISER

\;01.0

15-Dec-1983 10:35:57

MULTI-DRIVE TEST ROUTINES

14 -Dec-1983 11:35:15

3561

ROUTINE DUPWRTDBN : NOVALUE =

3564
3565
3566
3567
3568
gggg

!
¢
!
¢
!
:

;

3571

;

3573

;
H

;
;
;
;
;
;
N

3572

;

3574

VAX-11 Bliss-16 V3-555

IMPLICIT INPUTS:

CST_ADDRS

CUOFF

S_PATTERN

- CONTAINS THE CURRENT CONTROLLER STATUS TABLE

- CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE
- CONTAINS PATTERN WORD!-

3579

MSCP_PKT [.MX1, MSGLEN) = SZ_ELP;

! PACKET SIZE

;
i

3580
3581

MSCP_PKT [.MX1, OPCODE) = OP_ELP;
MSCP_PKT ;.nxx. MODIFY) = 1;

! OPCODE = EXECUTE LOCAL PROGRAM
! STANDALONE MODIFIER

;
’
;
:

3584
3585
3586
3587

MSCP_PKT
MSCP_PKT
MSCP _PKT
MSCP_PKT

'
;

3589
3590

IF .CST_ADDR [.CUOFF +
DUPERROR] EQL 1 THEN
IF (MX1 = GET_PKT (. ccrum LSS O

:
;

3592
3593

;
}

i
;

;
i

3582
3583

3588
3591

!PRINTX (DER11);

MSCP_PKT
[.MX1, L1) = ‘escii’'MW';
MSCP_PKT i.mu. L2) = sascii'R’;
[.Mx1, L3)
[.Mx1,
[.MX1, LS)
[.MX1, L6)

();

=
=
=
=

! FILL IN PROGRAM NAME WITH ASCII LETTERS

sascii‘'T';
gascii D's
wescii'B’;
wascii'N';

OR (.EOP_FLAG)
THEN

gg:;

(CST_ADDR [.CUOFF

RETURN;
);

EXECUTE LOCAL PROGRAM WRT DB

+ 3, DUPERROR]

! SENDS AND RECEIVES THE COMMAND

RETURN; !'IF DUP ERROR THEN RETURN
* TRY TO GET AN ENVELOPE. IF FAILURE
= 1;

! NO POINT IN CONTINUING

;

3596

MSCP_PKT

[.Mx1, meu} = SZ_REC;

! PACKET SIZE

;
;
;

3598
3599
3600

3601

MSCP_PKT
MSCP_PKT
MSCP _PKT

[.MX1, BC_LO) = 2;
[.MX1, BUF_0) = DUPPKT;
mu. MoDIFY) = 0;

DUPCOMMAND ' (

! BYTE COUNT TO BE TRANSFERED EQUALS 2
! LOAD DESCRIBTOR BUFFER
'

:
:
i
:
:
:
'

3603
3604
3605
3606
3607
3608
3609

IF Mr (OUPTYPE] NEQ 1
.DUPPKT [DUPMESG] NEQ 6
oa (MX1 = GET_PKT (.CCTLR)) LSS ©
OR (.EOP_FLAG)
THEN
(HARD _ERROR ();
CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

;

:
i

;
:
:
;
:

3597

3602

332{2

3612
3613
3614
3615
3616

THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM
“WRTDBN”.
T0 USE THE PROGRAM THE OPTIONAL DUP SUB-PROTOCAL IS USED TO
COMMUNICATE WITH THE CONTROLLER.
THE PROGRAM WRITES TO A DIAGONOSTIC BLOCK (DBN)
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)

BEGIN

)

Page

SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BL2 (26

3575
3576
gg;z

;
3
;

SEQ 0311

MSCP_PKT

[.MX1, OPCODE]

= OP_RCD;

! OPCODE = RECEIVE DATA

RECIEVE DATA

! SENDS AND RECEIVES THE COMMAND

IF .CST_ADDR
f CUOFF + 3, DUPERROR] EGL 1 THEN RETURN; !IF DUP ERROR THEN RETURN

RETURN; );

MSCP_PKT E.mu. MSGLEN) = SZ_SEN;
MSCP_PKT [.Mx1, OPCODE) = OP_SDD;
MSCP_PKT [.MXx1, BC_LO) = 6;
MSCP_PKT [.MX1, BUF_0) = DUPPKT;
DUPPKT [DUPBFO) = .Cdiek:

! IF CORRECT RESPONSE
! TRY TO GET AN ENVELOPE. IF FAILURE

! NO POINT IN CONTINUVING

! PACKET SIZE
* OPCODE= SEND DATA
! BYTE COUNT TO BE TRANSFERED EQUALS 6
! LOAD DESCRIBTOR BUFFER
!LOAD UNIT NUMBER (RDRX)

SEND DATA

N A
vOl .

“D Rx EXERCISER
ATl DATVE TEST ROUTINES

1F .CST ADOR {.CUDFF + S, DUPERROR] EQL 1 THEN RETURN; IF DUP ERROR THEN RE TURN

'
i

» .CST ADUK

[ .CUDFF

OUPPKT (DUPBF2] « .5 PATTERN;
MSCP Px1 (..Mx1, MODIFY] = O;
ouPCoewn ()

or (.£oP FLAG)

3628

o8
g:s
“g’

5626

MSGLEN]

'
'

5%
5651

8c LO] . 4
BF 0) - DUPPKT,

3 %4

log

1635

(Y]

'
'

wo
“.1

)
i
f

4
w

'
]

)

5649
5650

000000

010146

000002

015746

000104

(

IF ((MX1 =

! NO POINT IN CONTINUING

* PACKET SIZE

' OPCODE - RECEIVE DATA

RECEIVE DATA

* BYTE COUNT TO BE TRANSFERED EQUALS 4
! LOAD DESCRIBTOR BUFFER

()

! IF CORRECT RESPONSE

NEQ O)

ADDR [.CUOFF + 3, DUPERROR) = 1;
TURN; )3

GET_PXT (.CCTLR)) LSS O)

T _ADOR (T _BLK WT) =
END;

LSBTTL

MOV

57 oooSoov

0000326
000033G

000116 «3700 0000006
040000

MOV

MOV
JSR
MOV
MOVE
5%
MOVEB
MOVE
MOVE
MOVE
MOVE
MOV8

DUPMRTDBN MULTI-DRIVE

R1,-(SP)

Mx1, -(SP)

0104, -(SP)
BL SMA
022, MSCP . PKT +6(RO)
os.%.nu.za(ao)
o
PKT+24(RO)
#127,MSCP.PKT+26(R0)
0122,
PKT+27(RO)
0124,
.PKT+30(RO)
#104,MSCP.PKT+31(RO)

3279

3580

3588

.oubr.no

;

ADD

CST.ADDR,RO

#40000,6(R0)

561

#102,MSCP.PKXT+32(RO)
0116 ,MSCP . PKT+33(R0)

8IT

TEST ROUTINES

;
;
;
;
;
;
;

JSR
:gLv

000006

' NO POINT IN CONTINUING

T _ADDR [T _BLK WT) » 1;

DUPWRTDBN:

000160’

! NO POINT IN CONTINUING

! TRY T0 GET AN ENVELOPE. IF FAILURE

TURN; )

112760 000102
sgvgo 000116

032760

T (OUPBF1])

OR (.EOP_FLAG)
THEN
(CST_ADOR [.CUOFF + 3, DUPERROR) = 1;

moooag oug 0000006
000122

* TRy TO GET AN ENVELOPE., IF FATLUE

! SENDS AND RECEIVES THE COMMAND

YPE) MEQ 3)

000006 387
000012
73
000016 012760
000006G
s 760
760
;
112760
000046 112760
000054 112760 0001
oooog 112760 000104
000031G
0000
000076

' LOAD DBN NUMBER

OR (,DUPPKT tmsc‘ NEQ 3)

g:i

i
f

- OP RCD;

an
o+

1 nql L&fl' + 3, DUPERROR) EQGL 1 THEN RETURN; 'IF DUP ERROR THEN RE TURN

a”

- SZ REC;

mMx1, mooirv) - 0;

ul,

[

)

OPCODE)

* LOAD PATTERN
.
' SENDS AND RECEIVES TwE COMMAND

€N
(CST_ADDR [.CUOFF . S, DUPERROR) = 1;
RETURN; );

f
'

. S, D DBN];

VAZ 11 Bliws 16 ¢8 559
Fage
SPIDERSUSERS:[DOUCE
TTE . F AL CONIONRGAA
M o

’

'
'

1% Dec 1933 10:35%:57
I8 Dec 198% 11:35:15

OUPPKT (DUPBF1)

“wie
“wie
620

%17

'
f
;

3581
3582
3583
3584
3585
3586
3587

3589

9
-—

1% Dec
14 -Dec

MATI - DRIVE

SEQ 02 %

A9
(26

:
i

31561
1590

€1,E0P FLAG

3591

CUOFF ,RO

3593

3590

3596

TEST ROUTINES

8IT8

1933 10:35:57
1983 11:35:15

VAX- 11 Bl .ss 16 v3-955
Page
SPIDERSUSERS: [DOUCE TTE .FALCONICNRIAA BLZ

RD/RX EXERCISER

CCTLR,(SP)
PC,GET.PKT
RO, Mx1
18
38

CST.ADDR,RO

040000,6(RO)

(SP)e+,(SP).

000160’

64
Mx1,(SP)

38:

3593

PC,BLSMUL

034 ,MSCP ,PKT+6(RO)

05 ,MSCP.PKT+22(R0O)
SDUPPKT
,MSCP .PKT+32(R0O)
MSCP .PKT+24(R0O)
PC, DUPCOMMAND
”C\FF.RO

@2 ,MSCP .PKT+26(R0O)

CST.ADDR,RO

#40000,6(RO)
4

DUPPKT ,RO

000000G
007777
010000

:g.uoooo

CCTLR,(SP)

PC.GET.PKT

RO, MX1
as

#1,E0P .FLAG
7

CUOFF ,RO

3613
3614
3616

KT
,MSCP .PKT+32(R0O)
SOUPP
DISK,DUPPKT

MSCP

+MSCP .PKT+26(RO)

o
©

013737

9170000 ,RO
RO, #6

48;

~ownm

000000V

3333353383585
24R5 80308

, RO
DUPPKT

CUOFF ,R1

013701
006301
063701

CST.ADDR,R1
6(R1),DUPPKT+2
3
DUPPKT
S.PATTERN,DUPPKT .4

116137
105037
013737

MSCP.PKT+24(R0O)
PC,DUPCOMMAND

005060
004737
013700
006300
063700
032760

CST.ADDR,RO
::0000.6(“0)

CCTLR,(SP)

PC,GET.PKT

SEQ 0214
Page
90
SPIDERSUSERS:
([DOUCETTE . FALCONICNRQAA . BLZ (26

VAX-11 Blies-16 v3-555

3617

;
H

3618
3619

5
H

3561
3622

3623

3625

H
H
H

3622
3625
3628

3629

i
H

3561
3635

3630

3637

:
:
i

3639
3640
3643

‘

3644

H
H

3620
3621

R?.Hxl

#1,EOP.FLAG

10¢:
11¢:

005060
004737
013700

006300
063700
032760
001054
013700
042700
020027
001012

118
CUOFF ,RO
RO

CST.ADDR,RO

#40000,6(R0O)
#10,5P

174

034 ,MSCP . PKT +6(RO)
P
. PKT +22(R0)
#5,MSC
04 .MSCP . PKT +26(RO)
SOUPPKT ,MSCP
. PKT + 32(R0)

gcso.mioa«noa

, RO
CUOFF

12%:

13s:

H
:
H
H
H

3630
3631
3632
3633
3634

CST.ADDR,RO

840000, 6(R0)

(2]

9¢:

2r3539584R3 3RI73RTER2503823385808

001023
013716
004737
010037
002404
132737
001413
013700
006300
063700
052760
062706
000515
013716
012746
004737
012760
112760
012760
012760

gléfl’F.RO

000502

MULTI DRIVE TEST ROUTINES

000470
000474
000476

15 Dec -1933 10:35:57
14-Dec-1983 11:35:15

RD/Rx EXERCISER

NRQA1S
vo1.0

RD
. ERROR
PC,HA
144

CCTLR,(SP)
PC.GET.PKT

RO, MX1
144

#1,E0P.FLAG

£9

001022
001024
001030

001032
001036

001044
001046
001052
001056
001062
001064

MULTI-DRIVE
001411
013700

006300
063700
052760
000404
013700
005260
062706
012601
000207

i Routine Size:
i

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RXx EXERCISER

NRQAM3
\;01 .0

Maximum stack

TEST ROUTINES

14%:

0000006
0000006
040000 000006

0000006

15¢:

000012

16%:

000050

17%:

283 words,

depth per

Rout
ine Base:
0

invocetion:

7 words

15
CUOFF ,RO

BEQ
MOV

ASL

1646

H
3

3643
3649

'
3

3575
3561

CST.ADDR,RO

ADD
8IS
BR

MOV
INC

SO(RO)

@12,SP

ADD
MOV

(SP)+,R1

RTS

$CODES$

SEG 0"'
VAX-11 Blies-16 V3-555
91
SPIDERSUSERS: (DOUCETTE, FALCM]C"OAA BL2 (26

11646

F
RD/RX EXERCISER

15-Dec-1983 10:35:57

MULTI-DRIVE TEST ROUTINES

14 -Dec-1983 11:35:15

VAX-11 Blies-16 v3-555

SEQ 0216
Page
92

SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL2 (27

ROUTINE DUPREDDBN : NOVALUE =

COMMUNICATE WITH THE CONTROLLER.

THE PROGRAM READS A DIAGONOSTIC BLOCK (DBN)

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

DUP BUFFER. (EX. ILLEGAL UNIT NUMBER, ILLEGAL BLK &, DEVICE ERROR, ZERO LENGHT MSG)
IMPLICIT INPUTS:

THIS ROUTINE IS CALLED BY DUP ROUTINE TO USE THE CONTROLLER LOCAL PROGRAM
“REDDBN”.
T0 USE THE PROGRAM THE OPTIONAL DUP SUB-PROTOCAL IS USED TO

CST_ADDR

- CONTAINS THE CURRENT CONTROLLER STATUS TABLE

- CURRENT OFFSET IN CST TABLE FOR PARTICULAR DRIVE

!PRINTX (DER12);
MSCP_PKT

[.MX1, MSGLEN) = SZ_ELP;

MSCP_PKT
MSCP_PKT

[.MX1, MODIFY] = 1;
[.MX1, L1) = sescii'R';

! PACKET SIZE

MSCP_PKT E.mu. ovcooe; « OP_ELP;
MSCP_PKT
MSCP_PKT
MSCP_PKT
MSCP_PKT

MSCP_PKT

[.MX1,
[.MX1,
[.MX1,
[.MX1,

L2]
L3)
LA)
LS)

=
=
=
=

EXECUTE REDDBN PROGRAM

! OPCODE = EXECUTE LOCAL PROGRAM

! STANDALONE MODIFIER
! FILL IN PROGRAM NAME WITH ASCII LETTERS

sescii'E’;
sescii’'D’';
sescii’'D’';
sescii’'B’;

M [.MX1,
() L6) = sascii'N’';

IF .CST_ADDR [.CUOFF + 3, DUPERROR) EGL 1 THEN
IF (MX1 = GET_PKT (.CCTLR)) LSS O

%a EOP_FLAG)

! SENDS AND RECEIVES THE COMMAND

RETURN; 'IF DUP ERROR THEN RETURN
! TRY TO GET AN ENVELOPE. IF FAILURE

(CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

RETURN; );

MSCP_PKT [.MXx1, nsa.eu; * SZ_REC;
MSCP_PKT
[.MX1, OPCODE])
= OP_RCD;
MSCP_PKT
[.MXx1, BC_LO) = 2;

MSCP_PKT [.MX1, BUF _O) = DUPPKT;
MSCP_PKT [.Mx1, MODIFY) = 0;
DUPCOMMAND ()

! NO POINT IN CONTINUING
! PACKET SIZE
! OPCODE = RECEIVE DATA
! BYTE COUNT TO BE TRANSFERED EQUALS 2

RECIEVE DATA

! LOAD DESCRIBTOR BUFFER
'
! SENDS AND RECEIVES THE COMMAND

IF .CST_ADOR f.cunrr + 3, DUPERROR] EQL 1 THEN RETURN; !'IF DUP ERROR THEN RETURN
IF .DUPPKT [DUPTYPE]

NEQ

OR .DUPPKT [DUPMESG] NEQ 5

g: gnc%’ -r&t;snr C.CCTLR)) LSS O

! IF CORRECT RESPONSE
t

TRY TO GET AN ENVELOPE.

IF FAILURE

Be BE

Ss Be

Be Be

S5 B8 SR

S5 S5

BE S5

4% B8 TR

CUOFF

e '

Be B

NRQAM3S
vo1.0

RETURN; );

MSCP _PKT E.mu. MSGLEN] = SZ_SEN;
MSCP_PKT
[.Mx1, OPCODE]) = OP_SDD;
MSCP_PKT [.mMx1, BC_LO] = 4,
MSCP_PKT [.MX1, BUF _0) = DUPPKT;

! NO POINT IN CONTINUVING

! PACKET SIZE

! OPCODE = SEND DATA
! BYTE COUNT TO BE TRANSFERED EQUALS 4
! LOAD DESCRIBTOR BUFFER

SEND DATA

e
W
e
W
e
e
B
e
e
e
e
R
B
e
e
R
e
e
Be
BE
R
e
e
BE
B
e
e
e
W

MSCP_PKT [.Mx1, MODIFY] = 0;

3709
3710
3711
3712
3713
3714
3715
3716
3717

SPIDERSUSERS
: [DOUCE TTE .FALCONJCNRQAA .BLZ (27

DUPCOMMAND ()

! SENDS AND RECEIVES THE COMMAND

IF (MX1 = GET_PKT (.CCTLR)) LSS O

t TRY TO GET AN ENVELOPE. IF FAILURE

o&.(‘.EOP_FLAG)

(CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

RETURN; );

MSCP_PKT [.MX1, MSGLEN) = SZ_REC;
MSCP _PKT [.MX1, OPCODE] = OP_RCD;
MSCP_PKT [.Mx1, BC_LO) = S514;

3720

MSCP_PKT [.MX1, BUF_0) = DUPPKT;
MSCP _PKT [.Mx1, MODIFY) = 0;
DUPCOMMAND ()

3721
3722
5723
3724
3725

! NO POINT IN CONTINUING
! PACKET SIZE
RECEIVE DATA
! OPCODE = GET DUST STATUS
! BYTE COUNT TO BE TRANSFERED EQUALS 512

! LOAD DESCRIBTOR BUFFER
'
! SENDS AND RECEIVES THE COMMAND

IF .CST_ADOR f.cuorr + 3, DUPERROR] EGL 1 THEN RETURN; !IF DUP ERROR THEN RETURN
IF .OUPPKT [DUPTYPE]

NEQ 6

OR .DUPPKT [DUPMESG) NEQ
2
OR (MX1 = GET_PKT (.ccmm LSS O

3726

3727
3728

OR (.EOP_FLAG)
THEN

3729

5730
3731

3734
3735

SEQ 0217
Pege
97

IF .CST_ADDR {.CUOFF + 3, DUPERROR] EQL 1 THEN RETURN; 'IF DUP ERROR THEN RETURN

5718
3719

3732
3733

VAX-11 Bliss-16 V3-555

DUPPKT (DUPBFO) = .CDISK;
! LOAD UNIT NUMBER (RDRX)
OUPPKT (DUPBF1] = .CST ADDR [.CUOFF + 3, D_DBN); ! LOAD DBN NUMBER

3707
3708

B
W

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER
MU TI-DRIVE TEST ROUTINES

NRQAMS
v01.0

¢t IF CORRECT RESPONSE
* TRY TO GET AN ENVELOPE. IF FAILURE

(HARD _ERROR ();

CST_ADDR [.CUOFF « 3, DUPERROR) = 1;

RETURN; );
CS
71

! NO POINT IN CONTINUING

[.CUOFF + 3, D D8N )} = _.CST_ADDR [.CUOFF + 3, D_DBN] + 1;
(T_BLK_RD] + 1;

ttunnol-._iooa

H INCREMENT RELATIVE DBN COUNTER

5737

0000066
0000226
000024G
0000266
0000276
0000306
0000316
0000326
0000336

.SBTTL

DUPREDDBN MULTI-DRIVE TEST ROUTINES

MOV
MOV
MOV

R1,-(SP)
MX1, -(SP)
2104, -(SP)

MOV
MOVEe
MOV
]
MOV
MOV
MOVB
MOV
MOV
JSR

922 ,MSCP.PKT+6(RO)
#3,MSCP .PKT+22(R0O)
01 ,MSCP . PKT+24(R0O)
0122 ,MSCP .PKT+26(R0)
#105,MSCP .PKT+27(RO)
€104 ,MSCP .PKT+30(R0O)
#104 ,MSCP .PKT+31(RO)
9102 ,MSCP .PKT+32(R0O)
9116 ,MSCP.PKT+33(R0O)
PC ,DUPCOMMAND

JSR

MOV

ASL

000006

ADD
BIT

BNE
MOV

JSR

i
i

3651
3670

:
:

3671
3672
3673
3674
3675

PC,BLIMUL

CUOFF ,RO

:
'
:
:
;
i
:
;

3676
3677
3678
3679
3680

i
i

3651
3681

CST.ADDR,RO

#40000,6(R0O)

24
CCTLR,(SP)

PC.GET.PKT

H
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER
MULTI-DRIVE

000160

132737

001412
013700

006300
063700
052760
022626
000504
013716
012746
004737
012760
112760
012760
012760
005060
004737
013700
006 300
063700
032760
001043
013700
042700
020027
001022
013700
042700
020027
001013
015716
004737
010037

0000006

1s:

2%:

000160

3s:

000474
000476

012746
004737
012760
112760
012760
012760
013737
013701
006301
063701

BIT
MOV
8IC

132737

~ow

000000V

052760
062706
000501
013716

BIS
MOV
MOV

]

3682

3681

CUOFF ,RO

ASL

000000G
007777
010000

RO, Mx1
1
#1,EOP.FLAG
3%

ASL

JSR
MOV
MOVB
MOV
MOV
CLR
JSR
MOV

002404

001415
004737
013700
006300
063700

MOV
BLT
BITB
BEQ
MOV

§7338338333%808R%0 32y 2RIFIRT

010037
002404

TEST ROUTINES

SEQ 028
VAX-11 Bliss-16 v3-S55
Page
94
SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAR .BL2 (27

CST.ADDR,RO
(SP)+,(SP).

68
Mx1,(SP)
9104, -(SP)

PC,BLSMUL
034 ,MSCP.PKT+6(R0O)
05 ,MSCP .PKT+22(R0O)
92 ,MSCP .PKT+26(R0O)
QDUPPKT
,MSCP .PKT+32(RO)
MSCP.PKT+24(R0O)
PC , DUPCOMMAND

3689
3690
3691
3692
3693

CST.ADDR,RO
g:OOOOJ(RO)

DUPPKT ,RO

3651

3697

H
H

3699
3700

3694

3703

#7777, ,RO

20.010000
¢

, RO
DUPPKT

170000,
RO

ay'®
4

CCTLR,(SP)
PC.GET.PKT
RO, MX1
4

01,EOP.FLAG
74

PC ,HARD
. ERROR
SOWF.RO
CST.ADDR,RO
#40000,6(R0O)
#6,SP
10¢
MX1,(SP)
0104, -(SP)
PC,BL$MUL
934 ,MSCP.PKT+6(RO)
04 ,MSCP .PKT+22(RO)

@4 ,MSCP .PKT+26(RO)

SDUPPKT ,MSCP
CDISK,DUPPKT
EWF,RI
1

CST.ADDR,R1

.PKT+32(R0O)

3704
3705
3706
3707
3708

[
MULTI DRIVE TEST ROUTINES

116137
1050387

005060
004737
013700
006300

063700
032760
001023
013716
004737
010037
002404
132737
001413
013700
006300
063700
052760
062706
000520
013716
012746
004737
012760
112760
012760
012760

6(R1),DUPPKT.2
DUPPKT+3
MSCP .PKT+24(R0O)
PC, DUPCOMMAND
CUOFF ,RO
RO

0000026
000006
0000036
000024G
000000V

VAX-11 Bliss-16 Vv3-555

SEO O"9

SPIDERSUSERS: [DOUCETTE, FALCON]CMQM\ BLZ 27

3709
3710
3711

CST.ADDR,RO

#40000,6(R0O)
9

CCTLR,(SP)

PC.GET.PKT
RO,MXx1
8s

#1,EOP.FLAG

000000G

8s:

000010

94:

000160’

118:

000000V

10s:

12¢:

118
CUOFF ,RO
RO

32 §z§§§§£§z§zs RERIAIRT 873303833533%8

000514

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

8IS

000000G

13%:

#40000,6(R0O)
€10,5P

15¢
MX1,(SP)

3651

3712

3713
3715

3712
3715
3718

PC,BLSMUL

434 ,MSCP.PKT+6(RO)
05,MSCP .PKT+22(R0O)
#1002,
MSCP . PKT +26(R0)

MYiHSCP.’KToSZ(RO)
MSCP.PKT+24(R0O)
PC , DUPCOMMAND
CUOFF ,RO
RO

3719
3720
3721
3722
3723
3724

CST.ADDR,RO

#40000,6(R0O)

3651

3725

3726

12
CCTLR*(SP)
RO, MX1
12¢

#1,E0P.FLAG

3727

3728
3730
3731

3725
3734

J9
RD/RX EXERCISER
MULTI-ORIVE TEST

NRQAM3
gOl.O
001034

001036

001042
001046
001052
001056
001062
001064

006300
065700
105260
013700
005260
062706
012601
000207

0000006
000006
0000006
000054
000012

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

ROUTINES

15¢:

CST.ADDR,RO
6(RO)

INCB
MOV
INC
ADD
MOV

T.ADDR,RO

S4(RO)

€12,SP

(SP)+,R1

RTS

Rout ine Bease:
$CODES
283 words,
i Routine Size:
7
word
s
; Maximum stack depth per invocation:

v3-555

SEO 0'?0

SPIDER$USERS: (DOUCETTE. FALCON]CNROAA 8L2 27

ASL
ADD

14§

VAX-11 Blies-16

12734

3735

3651

1<)

e
8
S
B
S
W
S
B
B
B
B
Be
WE
B0
B
S
B
B
S
R

MULTI-DRIVE TEST ROUTINES
3738

3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
3749
3750
3751
3752

ROUTINE DUPCOMMAND

BEGIN
'PRINTX (DER13);
IF .EOP_FLAG

THEN RETURN

ELSE

BEGIN

MSCP _ PKT [.Mx1,
MSCP_PKT [.MX1,
MSCP_PKT [.MX1,
MSCP_PKT [.MX1,
THEN

! MAKE PACKAGE EQUAL A DUP COMMAND
! DISK NUMBER
!

-1;

CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

ATTEMPT SEND;

IF CTLR IS OFFLINE

RETURN ENVELOPE TO POOL

END

3765

ELSE

BEGIN

QIO [.CCTLR] =

BREAK
;
WAIT ();
PROC_RETPKT();
END;

END;

.QIO [.CCTLR]

.SBTTL

000001
000002 000001
0000166
000160’
0000006
000160’
0000006

BNE
MOV
JSR

000000G

000160*
000104
0000006
0000106

IF SEND WAS SUCCESSFUL
! INCR OUTSTANDING QIO COUNT
BREAK FOR SUPERVISOR TO CATCH USER REQUESTS
WAIT FOR RETPKT RESPONSE
PROCESS RETURN PACKET

MOV
BITB
BNE
MOV
MOV
JSR
MOV
ADD
MOVB
MOVB
CLR
MOV
JSR

000001

« 1;

TO SEE

IF O FOR DUP

END;

ouUPC

010146

013716
004737
005700
001020
013716
004737

BEGIN
PUT_PKT (.MX1);

MX1

3766

112711
112761
005060

! CREDITS EQUALS 1

CREDITS]) = 1;
MSGTYP] = O;
CONNID) = 2;
DK_NUM] = O;

IF SEND (.MX1) EQLU FAILURE

3759
3760
3761
3762
3763
3764

012746
004737
012701
060001

THIS ROUTINE IS CALLED BY DUP TO PROCESS COMMANDS.

3754
3755
3756
3757

132737
001060
013746

NOVALUE

! THE COMMAND ENVOLOPES ARE FILLED IN DUP ROUTINES IN THE “MX1“” INDEX.
! WITH THE INDEX THIS ROUTINE SENDS THE COMMAND, WAITS FOR A
! RESPONSES AND THEN PROCESSES THE RETURN PACKET,

3753

3767
3768
3769
3770
3771
3772

SEQ 0321
Page
VAX-11 Blies-16 V3-555
97
SPIDERS$USERS: [DOUCETTE .FALCONICNRQAA .BL2 (28

SR
B
B
SR
B
B
B
e
B
e
RS
B
B
RS
W

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.C

DUPCOMMAND MULTI-DRIVE TEST ROUTINES

g%.EOP.FLAG

3738
3748
3749
3752

PC,BL ¢MUL

#MSCP .PKT+10,R1

RO,R1

#1,.(R1)
#2,1(R1)

MSCP .PKT+«16(RO)

Mx1,(SP)

PC,SEND
RO
1¢

MX1,(SP)
PC,PUT
. PKT

3753
3754
3755
3757

3760

000076
000104
000110
000112
000116
000124
000126
000132
000136
000140
000144

000150
000152
000154

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
\)IOI .C

MULTI-DRIVE TEST ROUTINES

012737
013700
006300
063700
052760
000411
013700

177777

-1,Mx1

000160’

CUOFF ,RO

SEQ 0322
Page
98

SPIDER$USERS: [DOUCETTE. FALCONICNRQAA 8L2 (28
’
H

3761
3762

;
H

3757
3766

s
H
:

3768
3769
3751

CST.ADDR,RO

#40000,6(RO)
24

CCTLR,RO
QIO(RO)

105260
104422
004737
004737
022626
012601
000207

;: Routine Size:
; Maximum stack depth per

VAX-11 Bliss-16 V3-555

2%:
3s:
Rout ine Base:

invocation:

S words

22
PC,UWAIT
PC,PROC.RETPKT

(SP)+,(SP)+
(SP)+,R1

RTS

$CODE$

14022

3738

NRQAM3

RD/RX EXERCISER

\;01.0
}

H
:

H
3
p

MULTI-DRIVE TEST ROUTINES
3773

3774
3775

3776
g;;z

¢!

THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE LOGICAL BLOCK NUMBER TO
BE USED FOR THE CURRENT QIO OR QIO PAIR.
IF THE OPERATOR CHOSE THE RANDOM SEEK MODE OPTION, THEN THE LBN IS
RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR THE LBN.
OTHERWISE, THE NEXT SEQUENTIAL LBN IS DERIVED FROM THE BLOCK SEQUENCE

!
!
!

3783

3
:
3

[
:

H
3

3
3

:
3

3784
g;:z
3787
g;gg

!
:

IMPLICIT INPUTS:
LSLUN - CURRENT (DIAGNOSTIC SUPERVIOR) UNIT NUMBER

!
!

IMPLICIT OUTPUTS:
THE LBN IS LOADED INTO ONE OR BOTH MSCP PACKETS.

own

3796

locel

g;;
3797

Ss:gg

TABLE (BST).

3792
3793

;
:

3798
3799

LBN_SAVE : word initial (0);

! LBN SELECTED IN LAST PASS

S_TEMP : word,

! TEMPORARY STORAGE FOR START LBN

RDS1_DISK : byte initial (byte (TRUE));

! FLAG TO INDICATE WINCHESTER DISK SELECTED

E_TEMP : word,
LBN : word,

! TEMPORARY STORAGE FOR END LBN
! LOGICAL BLOCK NUMBER

3
:

3802
3803

S_TEMP = .CST_ADDR [.CUOFF + 1, D_BEG]);
E_TEMP = _CST_ADDR [.CUOFF + 2, D_END];

3
:
:

3805
3806
3807

if .CST_ADDR [.CUOFF, D_TYPE] eal RX_S0
then
RDS1_DISK = FALSE;

;

3809

if BIT_TST (SWP_FLAGS, SWF_RDM)

3812

a&;

th.:((.am [0] and #0'077777') mod (99)) lequ 33)

:
:

:
;

;
P

:
3
3
:
3
H

:
3
3

P.g: 99

SPIDERSUSERS
: [DOUCETTE.FALCONICNRQAA .BLZ (29

!
!

3779
3780
3781
3782

14-Dec-1983 11:35:15

SEQ 0223

VAX-11 Bliss-16 v3-555

routine QIO_LBN : novelue =

3
3
:
3

15-Dec-1983 10:35:57

3804

3813

3820
3821
3822
3823
3624”25

3826
3827
3828

' IF RANDOM SEEK MODE

if (.RDS1_DISK) and

g%g

! STARTING LBN
! ENDING LBN

LBN = _LBN_SAVE

else

! REDUCE SEEKS ON RDs by 33¢

LBN = .S_TEMP « ((.RANDOM [3] and #0'077777') mod ( .E_TEMP - .S_TEMP + 1));

end
bain
!
ELSE - SEQUENTIAL LBN MODE
L
= ,BST [.LSLUN);
! GET LBN FROM BST
BST [.LSLUN) = .BST [.LSLUN] ¢+ .TRK_SGN [.LSLUN);! MODIFY LBN (INC OR DEC FOR NEXT PASS)

if .TRK_SGN [.LSLUN] 1ss O
then
begin

’

N9
NRQAM3
gOl .C

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

SEQ 0324
VAX-11 Bliss-16 v3-555
Fage 100
SPIDERSUSERS: [DOUCETTE.FALCON]CNRQAA, 8L2 29

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

.BST [.LSLUN]

then

.S_TEMP

IF SECTOR IS LESS THAN LOWER LIMIT

gg"[.LOLW]
= S_TEMP;
TRK_SGN
[.LSLUN]

end;

CHANGE

TRACK DIRECTION

lssu

end
begin

else

.BST [.LSLUN) gtru

then

.E_TEMP

IF SECTOR IS BEYOND HIGH LIMIT

:;'
[.LSLUN) = _E_TEMP;
TRK_SGN [.LSLUN] = -1;

CHANGE TRACK DIRECTION

end;

.LBN lssu

.S_TEMP

! MAKE SURE LBN WITHIN LIMITS

LBN = .S_TEMP;

then

,LBN gtru .E_TEMP

LBN =

E_TEMP;

then

LOAD LBN INTO 1ST PACKET

.LBN;

MAD1 [LBN_L) =

if .MX2 geq O
then

LOAD LBN INTO 2ND PACKET

.LBN;

MAD2 [LBN_L) =

IF 2 QIOS

SAVE FOR USE NEXT CYCLE

.LBN;

LBN_SAVE =

! ROUTINE QIO_LBN

end;

001252
001252

.PSECT
LBN.SAVE :

014200

.SBTTL
.PSECT
0041537

000010
000014

112705

013702
013701
010100

000000G
000001
000000G

000000G

QIO.LBN:JSR
MOVB
MOV
MOV

MOV

$GGGs,

QIO.LBN MULTI-DRIVE TEST ROUTINES
$CODE$,

R1, $5AVES

CST.ADDR,R2

;

¢1,R5

CUOFF ,R1
R1.RO

s #,RD51.DISK

3773
3791

‘i
.

ol Liak
vOl

W
OHx FxERCIGER
MATI ORIVE TES'

1% Dec
i4 Dec

RDUTING

0000/

u.n
2TRO) R
R1.R0
RO
Rz RO

000026

0000 8«
000C 34
0300 34
000040

is
RS

18;:

Oi.w.'tfis

o E . TEW

RDS1.01I%¥
RDS51.01I5k

100000

2%:

0000006

Ss:

000041

0000006

33303R232IRBEIBILIZIEEY A -38333343

s814

-—

L X Y]

0000006

1334314 134

e . 5.7

04,(R1)

000124

€0 « L ¥
vAx 11 Bl 'ws 16 ¢3 %%
101
PIDERIUS
TOOUCE TTE . F ALCONIONRQAR
ERS:
W 2 e

R2,R1

0012%2'

§888882838823838888888

28;‘88%B

4(RO),.Re
Rl

1948 10:5%:57
1988 11:%5:1%

E.TEMP,»
S.TEMP,»

, ¢
S.TEMP

3809
5823

3824
3826
+,S.TEMP

383%0

S.TEMP,»

s ,E.TEMP

3833
3834
38.¢
3841

s E.TEMP,»

3844

LBN,S.TEMP

3852

Li0
RO /Rx EXERCISER
MU TI DRIVE TEST ROUTINES
010301
020104
101401
010401
013700
010160

005737
002404
015700
010160
010157
000207

i Routine Size:

1% Dec
14 Dec
R3,R1
R1,.Ra

68:

000164

000046
000162’
000166
000046

001252

78:

as:

1ST
BLT
MOV
MOV
MOV

RTS

R4 ,R1
MAD1,RO
R1,46(RO)
Mx2

8s
MADZ2,RO
R1,46(RO)

R1,LBN.SAVE
PC

$CODES . 14200
102 words,
Rout ine Base:
words
9
i Moximum steck depth per invocetion:

1933 10:85:57
198% 11:35:15

VAX 11 Bliws 16 ¢3 555

SEQ QYo

Pege 102

SPIDERSUSERS:
[DOUCE TTE .FALCONICNRQAA 8L 2 (2%

: S.TEMP,LBN
s LBN,E.TEMP

58%4
8%

: E.TEMP,LBN
:
H lBN.‘

3858
3860

3862

3864

: LBN,»
i LBN,e
H

3866
3773

D10
15 Dec-1983 10:35:57
14 -Dec -1983 11:35:15

RD/RXx EXERCISER

MUL TI-DRIVE TEST ROUTINES
5869
3870
3871
3872
3873
3874
3875
3876
5877
3878
3879

routine QIO_SIZE

Blies

Vv3-555

SEQ 0o/
Page

10%

SPIDERSUSERS
: [DOUCETTE .FALCONJCNRQAA .BLZ (%0

: novelue =

THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE I/0 TRANSFER BYTE COUNT
TO BE USED FOR THE CURRENT QIO OR Q10 PAIR.

THE BYTE COUNT

DETERMINED BY A RANDOM NUMBER, AND WILL ALWAYS FALL BETWEEN 1 AND THE
I70 BUFFER SIZE (BYTS_PER_QIO).
IMPLICIT OUTPUTS:
THE BYTE COUNT IS LOADED INTO ONE OR BOTH MSCP PACKETS.

vo1.0

VAX-11

begin

¢ BYTE COUNT
! REMAINING BLOCKS LEFT

leceal
SIZE : word,
BLOCKS _LEFT : word;

SIZE = ((.RANDOM [4) and #%0'077777') mod (.BYTS_PER_QIO + 1)) and %0'177760’ ;!GET BYTE COUNT FROM RANDOM NUMBER

if .SIZE eql O
then

SIZE = 16;

REMAINING BLOCK COUNT

.MAD1 [LBN_L] + 1;

BLOCKS _LEFT = _CST_ADDR [.CUOFF « 2, D_END] -

IF BLOCK COUNT NOT ENOUGH

if (C.SIZE + BYTES_PER_SECT - 1) 7 BYTES_PER_SECT) gtru .BLOCKS_LEFT

ADJUST BYTE COUNT DOWN

SIZE = .BLOCKS_LEFT o BYTES_PER_SECT;

then

LOAD SIZE INTO 1ST MSCP PACKET

.SIZE;

MAD1 (BC_LO)

if .MX2 geq O
then

LOAD SIZE INTO 2ND MSCP PACKET

.SIZE;

MAD2 (BC_LO)

IF 2 QIOS

ROUTINE QIO_SIZE

end;

004137

0000006

013746
042716
013746
005216
004737
010002
042702
001002
012702
013701
00€301
063701
013700
016101

000126°

.SBTTL
QIO0.SIZE:
JSR

MOV

100000
0000006

8IC
MOV
INC

QIO.SIZE MATI-DRIVE TEST ROUTINES

R1, $SAVE2

RANDOM+ 10, - (SP)
9100000, ( SP)

(SP)
PC,BL $MOD

000017

8IC

017,R2

000020
0000006

MOV
MOV

000000G
000164°

000004

MOV

BNE

16:

ASL

ADD
MOV

MOV

3869
3887

8YTS.PER.QIO, -(SP)

JSR

0000006

RO.R2

15
020,R2

CUOFF ,R1
R1

CST.ADDR,R1

MAD1,RO
4(R1),R1

+,SIZE
+,SIZE

*,SIZE

3889
3891
3893

E10
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

MULTI-DRIVE TEST ROUTINES
166001
005201
010216
062716
012746

004737
005726
020001

suB
INC
MOV
ADD
MOV
JSR
TST

000046

000777
001000

CcMP
BLOS
MOV
SWAB
CLRB

101405

000120
000122
000124
000126
000130
000134
000140
000144
000146
000152
000156
000160

010100
000300

105000
006300

010002

013700

010260

005737

002404
013700
010260
022626
000207

46(R0O),R1
R1
R2,(SP)
0777,(SP)

SEQ 0O3ea
VAX-11 Bliss-16 v3-555
Page 104
SPIDERSUSERS: [DOUCETTE .F ALCONICNRQAA .BL2 (30

SIZE,»

;

#,BLOCKS.LEFT

3895

; BLOCKS.LEFT,»

3897

3899

ASL

000164
000026
000162

24:

TST

000166
000026

: Routine Size:
; Maximum stack depth per

MOV
MOV
MOV

3s:

H
H

RTS

Routine Bese:
$CODE$
7 words

invocation:

BLY
MOV
MOV
cHpP

+ 14514

SIZE,»

SIZEO.

3901
3903

3881
3869

F10
NRQAM3

RD/RX EXERCISER

MU TI-DRIVE TEST ROUTINES

3906

routine FILL_BUFF

14-Dec-1983 11:35:15

VAX-il Blies-16 V3-555

: novelue =

B
e

THIS ROUTINE IS CALLED By QIO_GEN TO LOAD THE I/0 BUFFER DESCRIBED IN
THE FIRST MSCP PACKET WITH THE APPROPRIATE DATA PATTERN.

THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM:

}:‘Yfi OPERATOR DEFINED A DATA PATTERN
N

SELECT IT

GET DATA PATTERN NUMBER FROM SW P-TABLE
IF DATA PATTERN NUMBER = O
THEN

GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRY
IN THE DATA PATTERN SEQUENCE TABLE (DPST)

S5 Be

ELSE

NOTE THAT PATTERN @ 1 CONSISTS OF RANDOM NUMBERS, AND PATTERNS ¢ 17 21 USE THE ACTUAL LBN OF THE WRITE REQUEST.

begin

3933
3934

local
g-fl : word,

3936

108 _ADOR,

SRC_ADDR,

S5
B
B
S
e
e
S5 Be
B8
S5
S5
B
B
B
B
B
B
B
e
B

3941

3942
3943

3344

3946
3948

1349

3950
3951
3952

3954

COUNT : word;

i BIT_TST (SWP_FLAGS, SWF_UDP)

then

else

DP_ADDR = SWP_UCNT

SELECT IT

begin

:'fw.‘sw_ont neq 0
else

DP_NUM = _SWP_DPAT

! IF USER SELECTED A PRE-DEFINED DATA PATTERN
! SELECT IT

begin
DP_NUM = .DPST [.LSLUN);
GET PATTERN NUMBER FROM SEQUENCE TABLE
DPST [.LSLUN] = .DPST [.LSLUN] + 1; ! ADVANCE TO NEXT PATTERN NUMBER

if .DPST [.LSLUN] gtru DP_CNT

3956
3958

IF USER DEFINED A DATA PATTERN

! CHECK FOR HIGH LIMIT

DPST [.LSLUN) = 1;
end;

3960

DP_ADDR =

.DPA_TBL [.DP_NUM - 1),

3938

3940

DATA PATTERN NUMBER SELECTED
ADDR OF DATA PATTERN (LENGTH)
I/0 BUFFER ADDRESS (DESTINATION)
WORKING SOURCE ADDRESS
NO. OF WORDS IN DATA PATTERN

ADOR,

S5 B

IMPLICIT INPUTS:
LSLUN - CURRENT (DRS) UNIT NUMBER
3931

5EQ 022

SPIDERS$USERS: ([DOUCETTE.FALCON JCNRQAA

vo1.0

15 -Dec-1983 10:35:57

ADDRESS OF DATA PATTERN (COUNT)

Page 105
8L2 |83

G110
RD/RX EXERCISER
MU TI-DRIVE TEST ROUTINES

NRQAMS
vo1.0

15-Dec-1983 10:35:57
14 -Dec
-

VAX-11 Bliss-16

1983 11:35:15

)

V3-555

SEQ 0270
Pege 106

SPIDERSUSERS: [DOUCE
T TE .F ALCON JCNRQAA | BL? (31

we
e

.DP_NUM gequ 17

then

.DP_NUM

(.DP_ADDR + 2) =

.MAD1 [LBN_L]

! LOAD LBN INTO FIRST WORD OF PATTERN

(.DP_ADDR + 4) =

.MAD1 [LBN_L);

! LOAD LBN INTO SECOND WORD OF PATTERN

then

IF PATTERN 17,

19,

OR 21

else

CHECK MACRO

end;

' I/0 BUFFER ADDRESS
! NO. OF WORDS IN DATA PATTERN
! START OF THE ACTUAL DATA PATTERN

108_ADDR = .MAD1 [BUF _0);
COUNT = ,.DP_ADDR;
SRC_ADDR = .DP_ADDR + 2;

incr N from 1 to ((.MAD1 [BC_LO)

+ 1) / 2) do

.x&m-..snc»ooa;

! MOVE 1 WORD

SRC _ADDR = .SRC_ADDR
+ 2;
COUNT = .COUNT - 1;

! ADVANCE SOURCE ADDRESS
! DECREMENT COUNT

.COUNT eql O

COUNT =

! REPEAT DATA PATTERN

108 _ADDR = .IOB_ADOR+ 2;

! ADVANCE DESTINATION ADDRESS

! FOR EACH WORD IN THIS WRITE REQUEST

then
begin

. .DP_ADDR;

SRC_ADDR = .DP_ADDR + 2;

IF END OF DATA PATTERN

ondl

end;

! WORD TRANSFER LOOP
! ROUTINE FILL_BUFF

end;
004137

005746
032737
001403
012703

000100

0000006

013700
062700

0000006
000060°

006300

FILL.BUFF;
JSR
000000G

1¢:

000001

3906

:%oo.sw.rucs

;

3940

MOV
BR
2\6

#SWP . UCNT ,R3
S
gt.o.ont.ao

;

«,0P.ADDR

3942
3940
3946

MOV
BR
MOV
ADD

RO,R1
38
LSLUN,RO
#0PST RO

+ *,DP.NUM
'
;

3948
3946
3951

8ISB
INCB
cMPB
BLOS
MOVB
MOV
ASL

(RO),R1
(RO)
(RO), 025
34
#1,(RO)
R1,RO
RO

i «,DP.NUM
:
;

3952
3954

:
i DP.NUM,s

3956
3960

CLR

000025
34:

FILL.BUFF MULTI-DRIVE TEST ROUTINES
R1,$SAVES

157

000000G

013700
001402
010001

151001
105210
121027
101402
112710
010100

.SBTTL

0000006

-(SP)

+ DP.NUM

H10
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RXx EXERCISER

MU TI-DRIVE TEST ROUTINES
001144’
000021

cMP
BLO
MOV

000164

ROR

000046

000002

000046
000164
000032

000004

8CC

4%:
5%:

000002
000026

000004

000224
000226
000230
000234

020100
003763
062706
000207

i Routine Size:
i

6%:

7%:

000006

DPA.TBL -2(R0O),R3

MOV

MOV
BR
MOV
MOV
MOV

DP
. NUM

3967
3965

;?(RO).?(RS)

«,»(DP.ADDR)

3967

46(R0),4(R3)
MAD1,RO
32(R0O),RS5

+,+(DP.ADDR)

26(R0O), -(SP)
(SP)

02, -(SP)
PC,.BLS$DIV
R1
14

84(SP),(R5).
02,4(SP)
R2
74

(R3),R2

R4,4(SP)

R1,RO

+ ,DP.ADDR

3962

RTS

$CODES$
79 words,
Routine Bese:
Maximum stack depth per invocation:
10 words

107

SPIDEROUSERS=(DOUCE'YE.FhLCON]CNflOAfl.;EE (31
DP.NUM,
»

92,R4
R3,R4
R4,(SP)

cHP
BLE
ADD

SEQ 0271

R1,021
S$
MAD1,RO
R1
4

(R3),R2

MOV
MOV
ADD
MOV
MOV
INC
MOV
JSR
CLR
BR
MOV
ADD
DEC
BNE
MOV
MOV
INC

VAX-11 Bliss-16 Vv3-555

14676

s,108.ADDR

DP.ADDR, COUNT
DP.ADDR,
»

#,SRC.ADDR

3965
3969
3973
3974
3975
3977

110
RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

routine PROC_RETPKT

UNDER THE MULTI-DRIVE TEST, RETURN PACKETS ORIGINATE FROM TWO SOURCES:
1. MSCP
&Efirgi COMMON, DESCRIBING A COMPLETED I/0

B
S5
B8
S5
RS
SR
Be
BE
B
BE
BE
e
B
e

- THE LESS COMMON, DESCRIBING A PORTION OF 1/0

COMMUNICATIONS WITH THE CONTROLLER PROGRAM.
3. THE PROGRAM “DRIVER” - DESCRIBING A CONTROLLER ERROR OR

2. bwp

COMMAND TIMEOUT.

4009

4010

4011

while

4012
4013

DO UNTIL I/0 DONE QUEUE IS EMPTY

.IODG_IN neq .IODQ_OUT do

begin
RP_INDX = OQUT_IODQ ();

4014

4015

4016
4017
4018

4019
4020
4021

RP_ADDR = RETPKT + (.RP_INDX & RP_LEN & 2);

SET_CPAR (.RP_ADDR [CTLR));

GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER
CALCULATE RETPKT ADDRESS
SET UP CURRENT CONTROLLER PARAMETERS

selectoneu .RP_ADDR [CONID) of

CONNECTION ID INDICATES PACKEY SOURCE

set

[CID_MSCP] :

S
B
B

: novalue =

REQUIRE PROCESSING.

4006
4007

108
(32

PORTION OF THE PROGRAM. THE I/0 DONE QUEUE (IODQ) ACTS AS THE LINK
BETWEEN THE TWO PROGRAM PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH

4027
4028

IO_RETPKT ();

! DISK MSCP (I/0 TRANSFER DONE)

DR_RETPKT ();

! MESSAGE FROM "DRIVER"

[{CID_DUP) :

DIDO_RETPKT ();

(otherwise) :

PRINTF (DBM12,

({CID_DRIVER) :
tes;

WA
M
W

SEQ 0232

VAX-11 Blies-16 V3-555
SPIDERS$USERS: ([DOUCETTE .FALCON]CNRQAA

THIS ROUTINE IS CALLED FROM THE MULTI DRIVE "EXECUTIVE” AND DUP_COMMAND TO CHECK FOR
AND PROCESS ANY RETURN PACKETS THAT HAVE BEEN "SENT"” BY THE "“DRIVER”

4001
4002
4003
4004

4023
4024

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

3994
3995
3996
3997
3998
3999
4000

NRQAM3
vo1.C

! DUP (I/0 TRANSFER DONE)

.RP_ADDR [CONID));!”CONN ID = XXXXX RECEIVED”

end;

010146

tJSD REV A

! UNITL I/0 DONE QUEUE IS EMPTY
.SBTTL

PROC.RETPKT MULTI-DRIVE TEST ROUTINES

MOV

R1,-(SP)

:
:

3994
4012

4014

PROC.RETPKT;

023737
001452
004737
010037

0000006
0000006

JSR
MOV

PC,0UT. 100G
RO,RP, INDX

012746
004737
062700
010037
116016
042716
004737
013700

000060
0000006
0000006
0000006
000002
177760
0000006
0000006

MOV
JSR
ADD
MOV
MOVB
BIC
JSR
MOV

960, -(SP)
PC,BLSMA
SRETPKT,RO
RO,RP
. ADDR
2(R0),(SP)
#177760,(SP)
PC,SET.CPAR
RP.ADDR, RO

4016

4018

156001
005701

000003

81S8

010046

000000G 000000G

18:

CLR
ST

gt.:oo.m.looo.wt

3(RO),R1

4015

J10

000074
000076
000102
000104

000110
000112
000116
000120
000124
000126
000132
000134
000136
000140

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
gOl.O

MULTI-ORIVE TEST ROUTINES
001003
004737
000413
020127
001003
004737
000405
020127
001002
004737
022626
000722
012601
000207

000000V

000002

28:

000000V

000003
000000V

3%:
as:

S¢:

BNE
JSR
BR
CcMP

BNE
JSR
BR
CcMP
BNE
JSR
cMP
BR
MOV

RTS

49 words,
Routine Base:
$CODE$
;i Routine Size:
4
word
s
stack
um
depth
per
invocation:
Maxim
;i

2%
PC,I0.RETPKT

§1.02

$
PC,DIO.RETPKT
4%
R1,03
4%
PC,DR.RETPKT

(SP)+,(SP)+
1

(SP)+,R1

+ 15134

VAX-11 Blies-16 v3-555

SEQ 0333
Page 109

SPIDER$USERS: [DOUCETTE .FALCONICNRQAA 8L2 (32
H
:

4021
40138

H
H

4022
4018

H
H
H

4023
4013
4012

3994

RD/RX EXERCISER

W
Be
B
B
B
B

15-Dec-1983 10:35:57

MULTT-DRIVE TEST ROUTINES
4029
4030
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043

NRQAM3
vo1.0

4045

4046

4047
4048
4049
4050
4051

14 -Dec-1983 11:35:15

VAX-11 Blies-16 V3-555

SEQ

SPIDERSUSERS:[DOUCETTE.FALCONICNROAA B2 (33

ROUTINE DIO_RETPKT
e

NOVALUE

'
'

THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL DUP I/O TRANSFER
RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY

IMPLICIT INPUTS:

IMPLICIT OUTPUTS

'
'
;
'
:
:
!

HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS.

RP_ADDR- ADDRESS OF THE CURRENT RETURN PACKET
T_ADDR- ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY)
CST_ADDR
- ADDRESS OF THE CURRENT CONTROLLER'S CST
CUOFF - CST OFFSET FOR THE CURRENT UNIT
LSLUN - CURRENT UNIT NUMBER
CCTLR - CURRENT CONTROLLER NUMBER
CST_ADDR [.CUOFF + 3, NODUPMEDIA)

- IF THIS BIT SET NO DUP EXERCISER

BEGIN

LOCAL

FLAG : BYTE INITIAL(BYTE(TRUE)),

4055
4056

4057

SUM : WORD;

! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT

'PRINTX (DER18);
FSET_UPAR ();

! FIND UNIT'S ENTRY IS CST AND SET UP UNIT-RELATED DATA

¥f¢Nw maec Ig‘snmm NEQU ST_SUC

IF STATUS CODE INDICATES ERROR

4059

CST_ADDR [.CUOFF + 3, DUPERROR] = 1;

4061

IF .AP_ADDR [ENDCOD] EGLU (OP_ELP + OP_END) OR ! IF ENDCODE IS EXECUTE LOCAL PROGRAM

END

4070
4071
4072
4073
4074
4075

4076

4077
4078

S
BA
B
WA OBE

4083
4084

! TURN OFF DUP EXERCISR

! ELSE - I/0 WAS SUCCESSFUL

BEGIN

g‘“fl? Ap.gz
[ENDCOD) EQLU (OP_GDS + OP_END)

¢+ IF ENDCODE IS GET DUST STATUS

IF waooatouxmen.x

THEN CST_ADOR [.CUOFF + 3, D_ACTIVE) = ACTIVE

! CONTROLLER IN AN ACTIVE STAE

ELSE CST_ADDR [.CUOFF » 3., D_ACTIVE) = IDLE;
! CONTROLLER IN AN IDLE STATE
IF .RP mm(9,9.1,0) NEQ 1 THEN
! TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF DUP DOC)

4079
4081

OR GET DUST STATUS

]

ELSE

HARD_ERROR ()

g.s‘T,-Aoon [.CUOFF + 3, NODUPMEDIA] = 1;

4065

4069

tE:'s.r,_Aooa (.CUOFF + 3, NODUPMEDIA) = 1;

"flv maec I'(‘emt:mn EQLYU (OP_GDS + OP_END)

4063

4067

! SET DUP ERROR FLAG

HARD_ERROR ();

4053

END;

]

IF (.RP_ADDR [ENDCOD) EQL (OP_RCD + OP_END)) AND

03%4

°p 110

<10

! TURN OFF DUP EXERCISR

L10

we
we

4085
4086

4087

(.DUPPKT [DUPTYPE] EGL 6) AND
( .DUPPKT [DUPMESG) EQL 2) AND
(.CST_ADDR [.CUOFF+3, DUPWRITE) EQLU 1)

THEN DUP_COMPARE ();

MULTI-DRIVE TEST ROUTINES

4089

4090
4091

4092

END;

)
PUT_RETPKT (.RP_INDX);
QIO [.CCTLR]) = .QIO [.CCTLR]

- 1;

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

VAX-11 Bliss-16 V3-555

SEG 0235

Pege 111

SPIDERSUSERS
: [ DOUCE T TE . FALCONICNRQAA BL2 (32

tIF IT IS A RECEIVE DBN COMMAND WITH TYPE 6 AND MESSAGE 2 THEN
IF WRITE FLAG SET IN CST TABLE THEN COMPARE BLOCKS

COMPARE THE FOLLOWING 512 BYTES

DECREMENT NO.

OF OUTSTANDING QIOS

! ROUTINE DIO_RETPKT

.SBTTL
DIO.RETPKT:
MOV
MOVB
JSR
MOV
TST
BEQ
MOV

1$:

001036
013700
006300

24:

032761

001404
052760

042760
032761
001012
004737
013700
063700
052760
013700
126027
001031

3s:

a%:

S¢:

25R3R3aEA2RR32402

ASL

DIO.RETPKT MULTI-DRIVE TEST ROUTINES
€1.RO

; ¢,FLAG

4049

RP.ADDR,R1

4057

PC,.FSET.UPAR
é(:uu)

“CWF.QO

4055

4059

4060

CST.ADDR,RO

#40000,6(RO)

PC .HARD .ERROR
t:(m).ONS

CST.ADDR,RO
#100000,6(R0O)
64

4072

"CWF.QO

4075

;:000.22(“1)

;

4074

#20000,6(RO)
EX
#20000,6(RO)

i
:
i

4075
4074
4076

4077

”CWF.RO

4080

4084

g:(.l ), 9201

CST.ADDR,RO

;}m.n(fil)

CST.ADDR,RO
9100000,6(R0)

RP ,ADDR, RO

%:(W)..ZOS

4057

M10
RD/RX EXERCISER

NRQAM3
vo1.0

MULTI-DRIVE

013700
042700

020027
001022
013700
042700
020027
001013
013700
006300

063700
032760
001402
004737
013746
004737
013700
105360
005726
012601
000207

TEST ROUTINES

0000006
007777

DUPPKT ,RO
@7777,R0

MOV

8IC
CMP
BNE
MOV
8IC
CMP
BNE
MOV

RO, #60000
64
DUPPKT ,RO
€170000,R0O

000000G

6%:

VAX-11 Bliss-16 v3-555

SEQ 0336
Pege 112

SPIDERSUSERS: [DOUCETTE .FALCON]ICNRQAA 8L2 (33
H

4085

4086

4087

H
H

4088
4092

4093

H
3

4049
4030

RO, #2

ASL

CST.ADDR,RO
10000,6(R0O)

ADD
BIT
BEQ
JSR
MOV
JSR
MOV
DECB
TST
MOV

UP
. COMPARE
PC,D
RP.INDX, -(SP)

PC,PUT .RETPKT
CCTLR,RO
QIO(RO)
(SP)«
PC

RTS

$CODE$
Routine Base:
115 words,
3 words
Maximum stack depth per invocation:

i Routine Size:
;i

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

15276

N10O
NRQAM3

RD/RX EXERCISER

\)«ox.c
:

15-Dec-1983 10:35:57

MULTI-DRIVE TEST ROUTINES
4096

ROUTINE DUP_COMPARE : NOVALUE =

4099
4100
4101
4102

!
!
!
!

14 -Dec-1983 11:35:15

i
3

4097
4098

;
;

4103
:{gas

!
;

ERROR. THE DBN HARD ERROR COUNTER WILL BE INCREMENTED AND THE
THE DBN NUMBER AND BYTE COUNT WILL BE PRINTED.

;

4106

IMPLICIT xwms

;

4108

S_DUPPKT

;
;
;
;

;
;

;

4107

4109

:fig

4112
4113

;

4115

4114

4116

;

:ig

;

4121

;

4124

;

4127

;
;
i

’
'
i

THIS ROUTINE IS CALLED BY DIO_RETPKT WHEN THE RECEIVE DATA COMMAND
IS BEING PROCESSED. THIS COMMAND COMPARES THE WRITTEN BUFFER WITH
THE PATERN WORD GIVEN IN SEND DATA COMMAND.
FOR EVERY WORD COMPARED
THE ROUTINE INCREMENTS THE TALLY TABLE.
IF THE COMPARE SHOWS AN

¢
!

; ;

S_PATTERN

! THE SAVED PATTERN WRITTEN TO THE DBN'S

T_ADDR

! THE ADDRESS OF THE TALLY TABLE FOR THIS UNIT

CST_ADDR

! THE POINTER FOR DUP BUFFER

! THE ADDRESS OF PRESENT CONTROLLER STATUS TABLE

4117
4118

BEGIN
.

OWN

INCR cou.céc;:on 1 T0 256 DO

tINDEX PIONTER FOR DATA STORED IN MSCP ENV PACKET

mmr « .S_DUPPKT +

:gg

NITIALLY THIS SKIPS THE FIRST WORD OF DUPPKT

xf muév’c .S_|mn NEQ .S_PATTERN r N
ERRHRD (46, EM_10, EMS_22);

4125
4126
4128

COUNT : WORD;

IPRINT (ouun.
S_DUPPKT »

END;

EXITLOOP;
END;

SEQ 0337

Page 113

SPIDERSUSERS: { DOUCE
T TE .FALCONICNRGAA BL2 (34

'
;

;

VAX-11 Blies-16 V3-555

tIF THE CONTENTS OF DBN DOESN'T EQUAL PATTERN

!LIST ERROR
!GO THROUGH ALL DBN WORDS
!END ROUTINE DUP-COMPARE

.
i
|

NIQAM ¢

RO Ax EXERCISER

\:oa.c

A TI DRIVE

001.,%4
001.,%4

COmNT:

01544

i4 Dec 1983 11:35:1%

WPSECT
. Buww

SGGLS,
1

LSBTT.

OUP.COMPARE

.PSECT

000000

010146

37
012701
“i"

0000006
000400
000002 000000

0000006 000000G

0000

1% Dec 198% 10:3%5:57

TEST ROUTINE
S

DUP . COMPARE:

MOV

18:

1:0 0000006

2%:

;

| Routine Size:

23 worde,

I Maximum steck depth per

Routine Bese:

invocetion:

3 worde

CLR
MOV
ADD

MOV

VAZ 11 Bl ws 16 ¢3% 445

Page 114

SPIDERS SERS:[DOUCE
TTE VAL CONJONRGRG 0 .

sCODES,

ML '] DRIVE

TEST ROUTIMNES

R1,-(SP)

409

S.DUPPKT RO

4122

S.DUPPK T
#400,R1
02,5.0UPPKT

:
1 ¢, COuNY
:

4114
4119
4121

a.d

2m. T(RO),S.PATTERN

TRAP
.MORD
LHMORD
.MORD

56
56
EM.10
EMS.22

4124

i
i COUNT

412t
4119

(SP)«,R1

409

BR
DEC
BNE

MOV
RTS

38
Rl
1

SCODES - 15644

Lll
RD/Rx EXERCISER

e >e
e

Be
SR

1983 10:35:57

VAX

14 Dec 198% 11:35:15

11 Blies
16 v3 555

; novelue ~*

THIS ROUTINE IS CALLED By PROC _RETPKT

TO HANDLE ALL

I/0O TRANSFER

RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDE. DECLARING ANY
HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND
PERFORMING HOST WRITE-COMPARES IF REQUIRED.
IMPLICIT INPUTS:
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET
T_ADDR

ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK

CETLR - CURRENT CONTROLLER NUMBER

(TALLY)

LSLUN - CURRENT UNIT NUMBER

begin

initisl (byte (TRUE));

locel
FLAG : byte
FSET_UPAR ( 3

FIND UNIT'S ENTRY

S8 _CODE = .RP_ADDR [SUBCOD);

GET SUB-CODE, IF ANY

ST_CODE = .RP_ADDR [STSCOD);

IS CST AND SET UP UNIT-RELATED DATA

GET STATUS CODE FROM RETPKT

IF STATUS CODE INDICATES ERROR

i:..’(‘.ST-Cm neq ST_SUC)

M"m (s

4159

DROP UNIT IF ERROR COUNTS EXCEEDS LIMIT

416!

( .8t _¢C
( .T_ADDR

UPDATE ERROR COUNT
NO POINT IN DOING HOST COMPARES ON ERROR

COMPARE _DATA = FALSE;

4163
4164
4165
4166
4167
4168
4169
4170
4171
4172
4173
4174
4175
4176
4177
4178
4179
4180
4181
4182

4183
4184

then

neq

[ERR_HARD) gequ .SWP_ERROR)

LOAD REASON FOR DROPPING UNILIT
DROP UNIT

[.LSLUN] = DU_MHERR;
DPODU (.LSLUN);

end;

.ST_CODE eql ST_SUC

then

JI0O_TALLY ()
if

1I/0 WAS SUCCESSFUL

! UPDATE I/0 TALLY (STATISTICS)

.RP_ADOR [ENDCOD) eaql (OP_MWRT or OP_END)

then COMPARE _DATA = TRUE;

! HOST COMPARES MAY BE ALLOWED IF NO FURTHER ERRORS

i? (BIT_TST (SWP_FLAGS, SWF_HWC)) and

IF HOST IS DOING WRITE-COMPARES

SAVE I/0 PACKET OR DO WRITE-CHECK

( .COMPARE _DATA)

FLAG = HOST_MWRT _CHK ()
end;

SEQ 01Ty

Page

11°

SPIDER$USERS:[DOUCE
1 TE .5 ALCONICNRQIA BL 2 « 2%

15 Dec

e et Bt b Pt

B
me
S
B
S
Be
R
e

o Pt

4139

STURGRERN=ET

routineg 10 RETPKT

LIXXX
X ¥ % ¥ ¥

MA T1 DRIVE TEST ROUTINES

vOol.C

L
NRGAM

D11
RD/Rx EXERCISER
MULTI-DRIVE TEST

X
NRQAM

vo1.0
4185
4186
4187
4188
4189

4190

4191

SWEEP ();

! DEALLOCATE BUFFER(S) AND RETPKT(S)

QIO (.CCTLR] =
end;

112701
004737
013700

000001
000000V
000000G
000016 000000G
177740

000016

.QIO [.CCTLR]

.SBTTL

0000006

042737
016002
006202
006202
006202
006202
006202
042702
010237
005757
001433
004737
105037
023727
001420
023727
001414
013700
026037
103406
013700
112760
104451

ROUTINES

000000G

I0.RETPKT:
JSR

MOVB
JSR
MOV
MOVB
BIC

MOV

ASR
ASR
ASR
ASR
ASR

174000
000000G
0000006
000000V
001240’

000000G 000003

B8IC
MOV
TST
BEQ
JSR
CLR8
“C"é

IF FLAG IS STILL

SEQ 0%40
age 116
SPIDERSUSERS:
[DOUCE TTE .FALCON)CNRQAA . BL 2 & -

VAX-11 Bliss-16

FLAG

004137

116037

000074
000100
000106
000110
000116
000120
000124
000132
000134
000140
000146

15-Dec -1983 10:35:57
14 -Dec-1983 11:35:15

v3-555

TRUE

! DECREMENT NO. OF OQUTSTANDING QIOS
! ROUTINE IO_RETPKT
IO.RETPKT MUWLTI-DRIVE

R1,$SAVE2

01,R1
PC,FSET.UPAR
RP . ADDR,RO
16(R0O),ST.CODE

TEST ROUTINES

;

;
;
:

s FLAG

4129
4145
4150
4151

167R0),R2

4152

9174000,R2
R2,58.CODE
ST.CODE
2¢
PC ,HARD . ERROR
COMPARE .DATA

4154

:
:

4157
4158
4160

R2
R2
R2
R2
R2

f{:.cm.OS

4161

000000G
000014

0000006

000000G

000004 000000G

MOV

T.ADDR,RO

4162

MOV

LSLUN RO

4165

?L'd

HOVB

{:(ao).sw.emon

g:.odmo)

4166

R
RD/RXx EXERCISER
MULTI-DRIVE TEST ROUTINES
000150
000154
000156
000162
000166
000174
000176
000204
000212
000214

000222
000224
000230
000232
000234
000236

000242

000246
000252

005737
001026
004737
013700
126027
001003
112737
032737
001407
032737

001403
004737
110001
006001
103002
004737

013700

105360
000207

0000006

1%:

000000V

2%:

000000G
000014
000242

000001

001240

000001

001240’

000040

0000006

3%:

a%:

000000V

0000006

TST

BNE
JSR
MOV
CMPB
BNE
MOVB
BIT
BEQ

Ss:

4171

PC UPD, I0. TALLY
RP,ADDR,RO

4174

#1,COMPARE .DATA
040,SWP
. FLAGS

H
H

4177
4179

:%.C”ARE .DATA

4180

PC,HOST
. WRT, CHK
RO,R1
R1

4182

s FLAG

4186

H
H

4188
4190

4129

Ss
PC, SWEEP

CCTLR,RO
QIO(RO)

RTS

$CODE$
86 words,
Rout ine Base:
depth
per
invocation:
S
words
i Maximum stack

i Routine Size:

JSR
MOVB
ROR
8CC
JSR
MOV
DECS
+

SEQ 0241
VAX-11 Bliss-16 v3-555
Page 117
SPIDERSUSERS: [DOUCETTE.FALCON ICNRQAA , BLZ (s

SY CODE

;:(RO).OZ‘?

BIT
BEQ

000000V

0000006

15 -Dec-1983 10:35:57
14 Dec-1983 11:35:15

15722

H ‘.FL“;

4176

Fil
MULTI-DRIVE TEST ROUTINES

3
H

3
P
3
3
;
3

4192
4193
4194
4195
4196
4197
4198
4199
4200
4201
4202
4203

4204

:
3
s
:
3
3
:
:
H
3

4206
4207
4208
4209
4210

;
3
3

routine FSET_UPAR : novelue =
THIS ROUTINE IS CALLED By IO_RETPKT AND OTHERS TO SEARCH 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

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

4205

begin

incr OFFSET from (O + OF _UN) to (3 & UNIT_SIZE + OF UN) by UNIT_SIZE do
if .CST_ADDR [.OFFSET, D_DISK_NUM] eql

4211
4212

then

4213

4214
4215
4216
4217
4218
4219

PRINTF (DBM19,

0000006

000004
000010
000012
000014
000020
000024
000030
000032
000036
000040
000042
000044
000050
000052

012702
010201
006301
063701
013700
016004
111103
042703
020304
001005
010246
004737
005726
000207

000003
000000G
0000006
000010
177774

0000006
000005
000022

.CCTLR);

.SBTTL

FSET.UPAR:
JSR

16:

2%:

.RP_ADDR [DISK]
! IF RETPKT UNIT NUMBER MATCHES CST ENTRY

“CAN'T FIND DISK XxX IN CST x*

! ROUTINE FSET_UPAR

R1,$SAVES

o3 ,R2
R2,R1

ADD
MOV
MOV
MOVB

CST.ADDR,R1
RP,ADDR ,RO
10(RO),R4
(R1).R3

cHP
BNE
MOV
JSR
TST
RTS
ADD
cHP
BLE

R3,.R4
24
R2,-(SP)
PC,SET.UPAR
(SP)e«
PC
#5,R2
R2,022
i¢

ASL

RTS

'JSD REV A

FSET.UPAR MULTI-DRIVE TEST ROUTINES

MOV
MOV

BIC

FOR EACH UNIT IN CST

! DONE

.RP_ADDR [DISK],

end;

! SET UP UNIT-RELATED DATA

end;

004137

062702
020227
003751
000207

's’e"_wm (.OFFSET);
return;

000000

000054
000060
000064
000066

SEQ 0O2%ac
VAX-11 Bliss-16 v3-555
P age 118
SPIDERSUSERS : [DOUCETTE .FALCONICNRGAA .BL2 (36

)

3
:
H
:

15-Dec -1983 10:35:57
14-Dec -1983 11:35:15

RD/RX EXERCISER

NRQAM3
vol1.0C

4192

; OFFSET,»

4214

3
:
: &, 0FFSET

4210
4213
4208

4192

; ¢, 0OFFSET
s
: OFFSET,

4208
4210

®177774
,R3

; Routine Size:
28 words,
Routine Bese:
$CODES$ +» 16176
; Meximum stack depth per invocetion:
7 words

: OFFSET,»

G111
RD/RX EXERCISER

4220
4221
4222
4223
4224

rout ine HARD_ERROR

4226
4227
4228

4225

Se
S5

4231

VAX-11 Bliss-16 v3-555

14 -Dec-1983 11:35:15

novalue

SEQ 0247
Page 119

SPIDERSUSERS:
[DOUCETTE .FALCON]ICNRQAA .BL2 (37

THIS ROUTINE IS CALLED BY IO_RETPKT, DIO_RETPKT, AND OTHERS TO INCREMENT THE HARD

H
!

ERROR STATISTIC FIELD FOR THE CURRENT UNIT. IF THE HARD ERROR COUNT
HAS EXCEEDED THE OPERATOR-SPECIFIED LIMIT, THEN THE UNIT IS DROPPED

IMPLICIT INPUTS:

FROM TESTING.

LSLUN - CURRENT UNIT NUMBER
CST_ADDR
- ADDRESS OF CURRENT CONTROLLER'S CST
CWF - CST OFFSET FOR CURRENT UNIT
T_ADDR
- ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)

!
H
]
:

[ERR_MHARD]
= .T_ADDR [ERR_HARD]

"".‘ _ADDR [CONID) EGL CIDMSCP

+ 1;

INCREMENT UNIT'S HARD ERROR COUNT

selectoneu .ST_CODE of
set

[ST_SUC]):

i:‘.'.‘ss-cooe neq 0

! SUCCESS WITH NON-ZERO SUB-CODE

begin

15-Dec-1983 10:35:57

MULTI-DRIVE TEST ROUTINES

S5 S

NRQAM3
v01.0

.SB_CODE eql 4

then

L_‘!m [(ERR_HRD_DRV] = .T_ADDR [ERR_HRD _DRV] + 1
T_ADDR [ERR_HRD _HST]

_T_ADDR [ERR_HRD_HST])

else

ERRHRD (44, EGH_30, EMS_30);

[ST_CMD]:

h&u

[ST_ABO):

N&u

[ERR_MRD _HST]

= .T_ADDR [ERR_HRD_HST] + 1;

Em (31, EGH_30, EMS_30);

¢ INVALID COMMAND

{ERR_HRD DRVl = . T_ADDR [(ERR_HRD_DRV] + 1;

' COMMMAND ABORTED

ERRHRD (32, EGH_30, EMS_

end;

[ST_OFL]) :

end;

[ERR_HRD_DRV]) =

.T_ADDR [ERR_HRD_DRV]

ERRDF(18, Eco 18, EMS_18);
DUR [.LSLUN) = DU_DFATAL;

DODV

end;

W
W
B

[ST_AVL]) :

¢+

(.LSLUN)

?'1oon (ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV] + 1;

! OFFLINE

! DEVICE FATAL ERROR
! DROP UNIT

H11
NRQAM 3

RD/Rx EXERCISER

\;OI.C

MU TI-DRIVE TEST ROUTINES

'
'
i

4276
4277
4278

4281

;
3

4279
4280

[
:
'

4282
4283
4284

:g:g

4285

)

4288

’

4290

:
’
:

’
'

'
'

’
'
'
'
'

’

'
'
'

:
’

'
s

}
3

;

3
3
:
:
:
3

15-Dec-1983 10:35:57

ERRDF (24, EGD_18, EMS_18);
DUR [.LSLUN) = DU_AV;
DODU C(.LSLUN);

[ST_MFE):

! MEDIA FORMAT ERROR

[ST_WPT):

begin

! DEVICE WRITE PROTECTED

[ERR_HRD_SEK] = .T_ADDR [ERR_HRD_SEK] + 1;
ERRHRD (35, EGH_30, EMS_30);
end;

if .SB_CODE eql 128

4289

then

4291

else

4294
4295

ERRHRD (36, EGH_30, EMS_30);
end;

4296

4297
4298

[ST_.CMP):

4299
4301

:gg

T_ADDR [ERR_HRD_HST) = _T_ADDR [ERR_HRD _HST] + 1
T_ADDR [ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV]) + 1;

bo&nn
T
(ERR_HRD_DAT] = .T_ADDR [ERR_HRD_DAT] « 1;

! COMPARE ERROR

ERRMRD (37, EGHM_30, EMS_30);

4300

end;

[ST_DAT]):

begin

! DATA ERROR

4304
4305
4306
4307

if .SB_CODE eql 2
then
T_ADDR [ERR_HRD_SEK] = .T_ADDR [ERR_HRD_SEK] + 1
else

4310
4311
4312

ERRMRD (38, EGH_30, EMS_30);
end;

4313
4314

4315

4316
4317

4318
4319

4320

T_ADDR [ERR_HRD_DAT) =

[ST_HST):

“h

[ST_CNT):

4321

4322

:33%2

[(ERR_MRD_MST)] = .

.T_ADDR (ERR_HRD_DAT]

« 1;

T_ADDR [ERR_HRD_HST] + 1;

M (39, EGH_30, -30)

(ERR_HRD_DRV) = .T_ADDR [ERR_HRD_DRV] + 1;

ERRHRD (40, EGH_30, EMS_36
s

! HOST ACCESS ERROR

! CONTROLLER ERROR

end;

[(ST_DRV]:

begin

! DRIVE ERROR

4325
4326
4327
4328
:g‘g:

if .SB_CODE eql 3
then
T_ADDR [ERR_HRD_SEK) = .T_ADDR [ERR_MRD_SEK] + 1
else
T_ADDR [ERR_HRD _DRV] = .T_ADDR [ERR_HRD_DRV] + 1;

4331

ERRHRD (41,

EGH_30,

EMS_30);

SEG 02a4

SPIDERSUSERS: [DOUCE
TTE . FALCON JCNRQAA , 385
(37
! DEVICE WENT AVAILABLE STATE
! DROP UNIT

end;

:g:g
v

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 v3-555

I11
15-Dec-1983

MULTI-DRIVE TEST ROUTINES

10:35:57

SEQ 0345
Page 121

VAX-11 Blies-16 V3-555

14 -Dec-1983 11:35:15

SPIDERSUSERS: [DOUCE
T TE .FALCONICNRQAA. BLZ (37

end;

(ST_DIA):

“’ooa

(ERR_HRD DRV) =

.T_ADDR [ERR_HRD DRV]

sfiamo (43, EGH_30, EMS_30);

! MESSAGE FROM INTERNAL DIAGNOSTICS

+ 1;

end;

(otherwise):

C_ERR_TBL (.CCTLR,

C_ERR_MHRD)

ERRHRD (45, EGH_30, EMS_30);

.C_ERR_TBL

[.CCTLR,

! PRINT STATUS CODE IF NO MATCH

C_ERR_HRD]

end;

tes;

.RP_ADDR (CONID) EQL CID_DUWP

THEN

uloctms\ér.fl?_ADDR [STSCOD] of

[#0'0']

%fifl”
_ADDR [E'OC
IF

! if status code succesful

EG.U (OP_GDS + OP_END)

.RP_ADDR [9.9.1.0) NEQ 1 THEN

geflfilx':l‘o (47, EH_12, EMS_30);
T_ADDR [ERR_HRD_DRV]
END

IF ENDCODE IS GET DUST STATUS

TEST TO SEE IF CONTROLLER LOCAL PROGRAMS(PG 18 OF

! UNABLE TO LOAD LOCAL CONTROLLER DUP MEDIA(PROGRAMS

.T_ADDR [ERR_HRD_DRV])

+ 1;

i;.'.‘mt (Mi eql 3

if (.DUPPKT [DUPTYPE) eql S)
then
}
in

[.LSLUN) = DU_DFATAL;

DODU (.LSLUN);

! FATAL DEVICE ERROR DROP UNIT);

“1“““5‘5‘1’0‘”“' [(DUPMESG) of

SET REASON FOR DROPPING UNIT

(so’1l'] : begin

errhrd (48, enh_13, ems_30);

i 13.1 unit number

¥ ADOR [ERR_HRD_HST])

errhrd (49, o _13, ems_ )u

(

eh_1

« 1;

illegel relative or physical bleck ¢

.T_ADDR [ERR_HRD_MST) + 1;

T_ADDR [ERR_MD_HST] =

.-m‘oua-nunnuuufisunu--—.---.-.-...-o.uo-o-vu-gu-@uumu-oa*un-...-o.--...'o- ~

v01.0

RD/RX EXERCISER

! device error

T_ADDR [ERR_HRD_DRV] = .T_ADDR [ERR_HRD_DRV]) + 1;

?'.'nofia (ERR_HRD_HST] = T ADDR [(ERR_wusfl . i
rihrd (51, enh_13, ems_30);

(wo'1'])

: begin

! zero 1

J11
NRQAM?3

RD/RX EXERCISER

!ox.c

MULTI-DRIVE TEST ROUTINES

;
;

4388
4389

;

4391

;

;
;

4393

4394
4395

;
;
:

;

(so’'3")

4397

onda

ERRMRD ss EH_7, EMS_ 30);
onda

4398

(%0'4’)

4400

.fldl

4402

[#0'S'
)

4404

.fldl

ERRHRD se. EH_7, EMS_ 30).

:
:
:

4811
4412
4413

[OTHERWISE) :

4415

TES;

(#0'6')

4410

end;

000000

004137

000000G

000004
000010
000014
000020
000024
000026
000032
000034
000040
000042

013701
005261
013700
105760
001157
013700
001022
013702
001574
012703

000000G
000014
000000G
000003

000050

020227

000056
000060
000062

105213
000402
105263

000070
000072
000074

000054
000000G
000000G

000054

000066
000076

001002

104456

000567

! PROGRAM NOT KNOWN
! LOAD FAILURE

(S8, EH_8, EMS_30);
! DUP UNKNOWN STATUS CODE
C_ERR_TBL (.CCTLR, C_ERR_MRD) = .C_ERR_TBL [.CCTLR, C_ERR_HRD] + 1;

4417

000046 060103

! NO REGION SUITABLE

T_ADDR [ERR_MRD_DRV]
= .T_ADDR (ERR_HRD_DRV)
+ 1;
end;
,
:
in
ERRHRD (57, EW_7, EMS_ so).
! STANDALONE
T_ADDR [ERR_MRD_MST) = .T_ADDR [ERR_HRD_HST] + 1;
end;

4414

4416

! NO REGION AVAILABLE

T_ADDR [ERR_HRD_MST]
= .T_ADDR [ERR_MRD_MST]
+ 1;

4405
4406
4407
4408
4409

Page 122

SPIDERSUSERS: [ DOUCETTE.FALCONICNRQAR BL2 (37

.T_ADDR [ERR_MRD_MST) + 1;

ERRHRD ss. EH_7, EMS_ 50);

:
;
:
i
:
:

begin

ERRHRD (54, EM_7, EMS_ 30)
T_ADOR [ERR_MRD_HST] =

4399
4403

SEQ 0346

T_ADDR [ERR_HRD_DRV) = .T_ADDR [ERR_MRD ORV] + 1;

4396

;

[s0'2')]

4392

4401

14 -Dec 1983 11:35:15

VAX-11 Blies-16 Vv3-555

ERRHRD (52, EH_7, EMS_30);
! INVALID COMMAND
T_ADDR [ERR_HRD_DRV] = .T_ADDR [ERR_HMRD_DRV) + 1;

4390

;
3

15-Dec-1983 10:35:57

end;

! ROUTINE HARD_ERROR
.SBTTL

HARD.ERROR MULTI-DRIVE TEST ROUTINES

JSR

R1,$SAVES

HARD
. ERROR :

4220

4237

4239

4242

4249

aa.

4246

um
24
1(R3)

;
:

4249
4246

4254

000062

MOV
INC
MOV
1578
ane
MOV
BNE
MOV
BEQ
MOV

7.ADDR,R1
14(R1)
RP.ADDR , RO
3(RO)
124
ST.CODE ,RO
38
$8.CODE ,R2
164
#62,R

000004

cHP

000000G
000000G

000001

ADD
BME

1s:

24:

TR
af
INCB

R1,R3

TRAP

18¢

LWORD
LMORD
.WORD

S4
EGH.30
EMS.30

4236

4252

4239

<11

020027
001007

000001

000002

000003

000004

3%:

63(R1)
56
37
EGH. 30
EMS. 30
20¢
RO, #2

4s:

5%:

66:

S4
62(R1)
56
40

EGH. 30
EMS. 30
244
RO, @3
¢
64

62(R1)
55
22
EGD.18
EMS.18

4239

4263
42?4

4239
4268
4269

4270

4275

4276

4277
4278
4239

74:
4282
4283

000060

000006

4298
4259

4271
4239

EMS.18
LSLUN,RO
#13,DUR(RO)
000005

SEQ 0347
VAX-11 Bliss-16 v3-555
Page 123
SPIDERSUSERS
: [DOUCETTE .FALCONICNRQAA .BL2 (37

RO, 01
43

R AT

000154
000156
000162
000164
000166
000170
000172
000176

MULTI-DRIVE TEST ROUTINES

8s:

000062
000000G 000200
000001

9¢:
10¢:

000100
000104
000106
000112
000114
000116
000120
000122
000124
000130
000132
000136
000140
000142
000144
000146
000150

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

4239

4290

4288

4290
4288

4292

4294

LIk
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

MULTI-DRIVE TES! ROUTINES
.WORD
. WCRD
11%:

001007

BR
CMP

INCB

12%:
13%:

~Oo

14%:
15¢:

18¢:
19¢:

204:
214:

224%:
23%:

020027
001007

000037

244%;
254:

zs=§§§gg!g:%:%!ggggg:&*g;;ggzs*ggggg*gssfiézs=§§§

TRAP

VAX-11 Bliss-16 Vv3-555

SEQ 0248
Page 124

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA 8L2 (37

EGH.30
EMS.30
284
RO, 67

134
61(R1)

4239

:
H

4298
4299

4239

4306

;

4304

;

4306

4304

4310

EGH. 30
RO, 010

4308

4239

4314

4315

4239

4319

4239

4325

:
:

4320

4327
4325
4329

4331

4239

M1l
RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

26%:

27%:

0000006

0000006
000003

000002

28s:

000201

001000

000022

000014

-t

000016
177740

3388 SRS 33337358843 B :gzagz§§§§§§§z§%§§§ -

000062

15-Dec-1983
14-Dec-1983

VAX-11 Bliss-16 V3-555

SEQ 0%49
Page 125

SPIDERSUSERS: [DOUCETTE .FALCON]ICNRQGAA 8L2 (37
H
P

4335
4336

4239

;

4340

4341

;

4345

16(R0O),R1

4348

14(RO), @201
29¢
€1000,22(R0O)
29¢
56
57
EH.12

4351

4353

4355

T.ADDR,RO

4356

€177740,R1
344

’

4358

4360

4363

:
:

4364
4366

4369

4370

4373

4374

013700

62(R1)
56
53
EGH. 30
EMS. 30
284
CCTLR,RO
RO
C.ERR.TBL(RO)
56
35
EGH. 30
EMS. 30
RP .ADDR,RO
3(RO),
@2
334

10:35:57
11:35:15

(2]

NRQAM3
vo1.0

000002

30%:

4366

N11
15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

000002

35s:

a‘n;

364:

37%:

40%:

001222
001224

SEQ 0350
VAX-1i Bliss-16 V3-555
Page 1c6
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA .BL2 (37

4366

4377

3
H

4378
4366

4381

4382

4348

4388

:
3

4389
4348

4392

4393

4396

4397

4400

4401

;

4404

4405

4348

4408

34%:

2PRRRG
Ro9e28522 gopgE2g
28 vy 8

001106

32%:
33s:

000457

31s:

000003,

g 253
Bt 835§§§§§§R3'§§§§33’ 33t R

020027
001005
104456
000062

;GNfi

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

4348

“9s

HD Ax ExERCICER

.'01.\

001220

1%
0017%4
00124C
001262

00!5:

001
001

0014
00}
001260

MATT ORIVE

0OGOOOL

0“’“
000207
w

VOV0000
0000¢ 3

300

004264

TEST ROUTINE

i4 Dec

41s:
acs:

1% Dec 1983 10:85%:57

.WORD

.WORD
.WORD

0000000
0000000

.WORD

“Ov
INCB
ars
TRAP

4%s;

MOV
ASL
INC8
RTS

EMS. %0

1. ADDR RO
6% RO
oC
56
72

En.8
EMS.%0

CCTR . RO
RO
C.ERR_TBL(RO)
PC

i
{:

Jizer
547 wores,
Routine Bese:
SCODES - 16266
stock gepth per nvocetion:
6 words

198% 11:%%:1%

vAY

11 Bl es 16 ¢% 95

“sg o

Page 1.7

PIDERS
SERS: [DOUCE TTE F ALCONICNRQAA
B o (17

440%

3
3

4%an
44,

4220

a
s

RD/AX EXERCTSER

L
NRJAM

MA T1 DRIVE TEST ROUTINES

e v

" Page 128

SPIDERSUSERS:[DOUCE
T TE ¥ ALCONICNRGAR B e |

: novelue -

THIS ROUTINE IS CALLED FROM IO REIPKT FOR ALL

I/0 TRANSFER RETURN

R YR VS Y

PACKETS WITH “SUCCESS” STATUS CODES. ITS PURPOSE IS TO UPDATE ALL THE

APPROPRIATE STATISTICAL FIELDS FOR THE CURRENT UNIT. A CHECK IS ALSC
MADE ON THE TOTAL NUMBER OF BYTES TRANSFERRED THUS FAR; IF THE
OPERATOR -SPECIFIED LIMIT MAS BEEN REACHED, THEN THE UNIT IS DROPPED.

IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

T_ADDR - ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY)
CST_ADDR - ADDRESS OF THE CURRENT CONTROLLER'S CST
CUOFF - CST OFFSET FOR THE CURRENT UNIT

VB
Y
SE

SEQ 01",

LILUN - CURRENT UNIT NUMBER
begin

locel
THOUSANDS : word,

MILLIONS : word;

¢ TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT

é' .RP_ADDR [ENDCOD] eal (OP_RD or OP_END)
hen

m {YOT READS _L0) = .T_ADDR [TOT_READS_LO} + 1;
T _ADOR

! IF ENDCODE IS READ
+ INCREMENT NO. OF READS AND ADD BYTE COUNT

BYTES_READ_LO) « . T_ADOR [BYTES_READ_LO) . .RP_ADOR [BCNT_LO);
T_ADOR [TOT_BVT_RED_LO
.T_ADOR (TOT_8YT_RED_LO) + .RP_ADOR [BCNT_LO);
OVF _CHx (T_
10T _READS_LO));
T CHECK FOR FIELD OVERFLOW
OVF _CHK (T_ADDR [BYTES_READ_LO));
'
OVF CHX (T_ADDR [TOT_BYT_RED_LO));
'
end

else

if .RP_ADDR [ENDCOD) eql (OP_WRT or OP_END)

then

TOT _WRITES_LO)

! IF ENDCODE IS WRITE

= .T_ADDR ftot WRITES_LO) + 1;

! INCREMENT NO. OF WRITES AND ADD BYTE COUNT

T_ADDR (BYTES_WRIT LO) = .T_ADDR [BYTES_WRIT_LO) + .RP_ADDR [BCNT_LO);
T_ADOR [TOT BYT_WRT LO) = .7T_ADDR [TOT_8YT_WwAT_LO) + .AP_ADDR (BCNT_LO);
OVF Ok (T_
Tof axres-m}).
! CHECK FOR FIELD OVERFLOW
OVF _CHX (T_ADDR [BYTES_WRIT_LO]});
:
OVF _CHX (T_ADDR [TOT_BYT_WRT_LO));
'
end;

i? (.RP_ADDR {aocom eal (OP_RD or OP_END)) or

(.RP_ADDR

[ENDCOD] eql (OP_MWRT or OP_END))

4421
4422
4423
44,4

routine UPD_I10_TALLY

14 Dec 198% 11:35:15

vAX-il Blies 16 v3-555

4418
4419
4420

Vol .«

15 Dec 1983 10:35:57

MILLIONS = .T_ADDR [MBYTES READ) + .T_ADDR [MBYTES_WRIT ]

THOUSANDS = .7 ADDR [BYTES READ MI] + .T ADDR [BYTES WRIT MI);
if .THOUSANDS gequ
then

1000

! TOTAL BYTES TRANSFERRED

D12
RD /Rx EXERCISER

MUA TI DRIVE

—

v01.C

000010

4474
4475
4476
4477
4478
4479
4480
4481
4482
4483
4484
4485
4486

TEST

ROUTINES

MILLIONS - LMILLIONS + 1;
THOUSANDS - . THOUSANDS - 1000;
end;
H
H
H
H
H
H

SEQ 01"
VAX-11 Blies-16 V3-555
Page 129
SPIDERSUSERS:
(DOUCE T TE.FALCONICNRGAR Bl g ( 24

15 Dec 1983 10:35:57
14 Dec-198% 11:35:15

COUNT

THE LOWER OVERFLOW TOO!

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

THE QUESTION NOW REFERS TO

THE TOTAL DATA TRANSFER TO THE CONTROLLER AND THIS IS PRETTY CLOSE SINCE THE FLOPPIES GET

ABOUT 1/1000 THE DATA THE HARD DISK(S) GET.
if

.SWP_XFER eql O

then

4487

4488
4489
4490
4491
4492
4493
4494
4495
4496
4497
4498
4499
4500
4501
4502
4503
4504
4505
4506

THERE IS A TRANSFER LIMIT

!
!

SET END-OF -PASS FLAG
IGNORE FURTHER INTERRUPTS

begin

.THOUSANDS gtru 100

then

"mn

EOP_FLAG = TRUE;

DCT_ADDR [IG_INT) = TRUE;

end;

else

end

.MILLIONS gequ .SWP_XFER

then

EOP_FLAG = TRUE;

DCT_ADDR [IG_INT) = TRUE;

end;

SET ENC-OF -PASS FLAG
IGNORE FURTHER INTERRUPTS

ROUTINE UPD_IO_TALLY

4508

end;

004137

000000G

013701
126127
001027
013700
005260
066110
066160
012746
060016
004737
013716
004737
013716
062716
000435
126127

0000006
000014
000241

L.SBTTL

UPD.IO.TALLY:

0000006
000016
000020
000020 000032
000016

000000V
0000006
000000V
0000006
000032
000014

TRANSFER LIMIT IS REACHED

IF UNIT IS STILL ALIVE

end;

4507

000242

18:

38335358855%283%

NRQAME

UPD.IO.TALLY MULTI-DRIVE TEST ROUTINES

RP.ADDR,R1

4c41

7.ADDR,RO

4444

20(R1),(RO)

4445

T.ADDR, (SP)

4448

T.ADDR,(SP)
332.(59)

4449

14(R1), 0242

4453

i:(fll)..?‘l

16(RO)

20(R1),32(R0)
RO,(SP)
PC,OVF .CHK

PC,OVF .CHK

;

4446

t
15-Dec -1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

MU TI-ORIVE

000256
000262
000266
000270
000274
000276
000300
000302
000304
000312
000320

000014

001750
0000006

RTS

64:
000000G
000000G

—

» [«]

®®

4455

(RO), 0242

4465

T.ADODR,RO

12(RO),R2

2(RO),R1
10CRO),R1

4469

4474
4475
4485

4471

R1,01750
Ss
01750,R1

SWP. XFER,RO

¢1,E0P .FLAG
940000,
80CT . ADDR

BIS

; Routine Size:
SCODES$
105 words,
Routine Base:
; Maximum steck depth per invocation:
S words

32 32733:
> o~

8s:

000144

4461

4(RO),R2

MOV

78:

Ss:

3%:

000242

0000006
000004
000012
000002
000010
001750

000001
040000

2%:

000000G
000014
000241

:
gv 238!

24(RO)
20(R1),6(RO)
20(R1),40(R0O)

(L L

000212
000220
000222
000226
000232
000236
000242
000246
000252

3%
T.ADDR,RO

2.-.

000154
000160
000164
000170
000174
000176
000202
000210

001034
013700
005260
066160
066160
012746
060016
004737
013716
062716
004737
013716
062716
004737
005726
013700
126027
001404
126027
001037
013700
016002
066002
016001
066001
020127
103403
005202
162701
013700
001004
020127
101411
000402
020200
103406
112737
052777
000207

3E9erqRaLAEIsas

000104
000106
000112
000116
000124
000132
000136
000140
000144
000150

TEST ROUTINES

VAX-11 Bliss-16 v3-555
SPIDERSUSERS: [DOUCETTE . F ALCONICNRQAF ,

PC
+

17554

,
THOUSANDS

4489

MILLIONS,

4492
4499

4502
45C3
4418

000030
000032
000036
000040

000050
000052

4521

novalue

~pa

SEQ
)
VAX-11 Bliss-16 V3-555
SPIDERSUSERS
: [DOUCETTE . FALCONICNRQAA

routine OVF _CHK (ADDR)

10:35:57
11:35:15

THIS ROUTINE IS CALLED FROM UPD_IO_TALLY TO CHECK FOR OVERFLOW IN

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

INPUTS:

THEN THE MEGABYTE COUNT IN INCREMENTED.

ADDR - ADDRESS OF THE BYTES_READ_LO OR BYTES_WRIT_LO FIELD FOR
THE CURRENT UNIT (SEE STATISTIC TABLE (TALLY) LAYOUT)

4509
4510
4511
4512
4513
4514
4515
4516
4517
4518
4519
4520

e
S
S
S
B%
Be
B
e
S5
WE
We
B4
S5
BF
B
S5
B8
Be
S5
SR
WE
SR
GE
SR
B
W
B
B
B
W

000000
000uw02
000006
000012
000014
000020
000022
000026

15-Dec-1983
14 -Dec-1983

‘RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

NRQAM3
vo1.0

Fl1e

4522

4523
4524
4525
4526
4527
4528
4529
4530

4531
4532
4533
A534
4535
4536

4537

4538

010146
016500
012701
060001
021027
103404
162710
005211

000771
021127
103404
162711
005260
012601
000207

¢
(.ADDR + 2) = .(.ADDR + 2) + 1;

! SUBTRACT 1000
! INCR HI-ORDER

.C.ADDR ¢« 2) gequ 1000

end;

IF LO-ORDER OVERFLOW

IF HI-ORDER OVERFLOW

then
n

R
¢« 2) =
(.ADDR + 4) =

end;

.(.ADDR + 2) - 1000;
_(.ADDR + 4) + 1

end;

! ROUTINE OVF _CHK

000004

LSBTTL
OVF .CHKX
: MOV
MOV

001750

14:

000002

001750
001750
001750
000004

! SUBTRACT 1000
! INCREMENT MBYTES

26:

MOV
ADD
ce
8Lo
SUB
INC
BR
cHp
8LO
SuB
INC
MOV
RTS

s Routine Size:
22 words,
Routine Bese:
$CODES$
2 words
; Maximum stack depth per invocetion:

OVF.CHK MULTI-DRIVE TEST ROUTINES
R1,-(SP)
3
4(SP),RO
:
#2,R1
:
RO,R1
(RO), #1750
3
28
#1750,(RO)
:
(R1)
:
is
3
(R1),01750
:
34
#1750,(R1)
:
4(RO)
:
(SP)+,R1
:
PC

+ 20076

4509

4528

4525
4527
4528

4531

4534
4535
4509

Gle
NRQAM3

RD/RXx EXERCISER

\;01.0
:
3
:

3
'
’

'
'

’
:

'
'
H

’

'
H

MULTI-DRIVE TEST ROUTINES

15-Dec-1983 10:35:57

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 v3-555

routine HOST_WRT _CHK =

!
!
H

THIS ROUTINE IS CALLED FROM IO _RETPKT FOR ALL I/0O TRANSFER RETURN
PACKETS WITH “SUCCESS” STATUS CODES, BUT ONLY IF THE HOST WRITE-COMPARE
OPTION WAS SELECTED BY THE OPERATOR.

4546
4547

!
!

IF THE CURRENT RETPKT BEING PROCESSEC IS A WRITE FUNCTION, THEN THE
PACKET INDEX (RP_INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE

4550
:ggé

!
E

COMPARISON IS PERFORMED ON THE TWO I/0 BUFFERS. ANY DIFFERENCES
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR.

4548
4549
4553

4554
:ggz

!
!

AREA (RP SAVE). OTHERWISE, THE PACKET IS A READ, SO ITS ASSOCIATED
WRITE PACKET IS REMOVEC FROM THE SAVE AREA, AND A BYTE-BY-BYTE

IMPLICIT INPUTS:

!
!

RP_ADDR- ADDRESS OF THE CURRENT RETURN PACKET
RP_INDX - INDEX OF THE CURRENT RETURN PACKET

i
H

'
'
'

i
f

i
]

'
'

}
i

4559

4560
4561
4562

locel
BUFF1 : ref block [MAX_XFER ¢ 2, byte],
BUFF2 : ref block [MAX_XFER + 2, bytel,

4564
4565

COUNT : word,
FLAG: byte initial (byte (TRUE)),

4563

:';:‘9
4570

4571
4572

:g;}

4575

4579

i
'
'
H

! BYTE COUNT

index : signed word;

i;.'.'v-uooa (ENDCOD) eql (OP_WRT or OP_END) !
cln

FLAG = FALSE

IF WRITE OPERATION

! DON'T CALL SWEEP FROM IO_RETPKT

¢ (.RP_ADDR [ENDCOD]) eql (OP_RD or OP E'O)) and

thor(\(m‘” = RPS_REM ()) geq 0)
in

! IF ASSOCIATED WRITE PACKET IS FOUND ELSE ENDCODE IS READ
! ADDR OF ADDR OF WRITE I/0 BUFFER
! ADDR OF WRITE I/0 BUFFER
! ADDR OF READ I/0 BUFFER

:gé

incr I from 1 to .COUNT do

! FOR EACH BYTE IN BUFFERS

[l
'

4588
4589

:
'

! I/0 BUFFER ADDRESS

FW = RETPKT [.index, BUFF_0);
BUFF1 = , .BUFFM;
BUFF2 = _RP_ADDR [(BUFF _0])

4583
4584
4585

'
:
'

! I/0 BUFFER ADDRESS
! I/70 BUFFER ADDRESS

4576
4577
4578

:
i
’

:
'

BUFFW,

4586
4587

4590
4591
4592

4593
4594

COUNT = .RP-ADOR [BCNT LO);

i BYTE COUNT

if .(.BUFF1)<0, 8, 0> eql .(.BUFF2)<0, 8, O»
then
in

! IF BYTES COMPARE 0.K.

F1 = .BUFF1 + 1;
! ADVANCE WRITE BUFFER ADDR
BUFF2 = .BUFF2 + 1;
! ADVANCE READ BUFFER ADDR
end
else
in
! ELSE - COMPARE ERROR
,@
(ERR_HARD) = .T_ADDR [ERR_MHARD]) + 1;
T_ADDR [ERR_MRD _HST) = .T_ADDR [ERR_HRD_HST] ¢+ 1;

ERRHRD (42, EGH_30, 0);
! I70 REQUEST
EMS_CMP (RETPKT + (.index & RP_LEN #+ 2));

FAILED

Page 132

SPIDERSUSERS: [DOUCETTE.FALCON JCNRQAA , BL.? (40

4539
4540
4541

4542
4543
:g:;

SEQ 01%¢

H1Z2
RD/RX EXERCISER

MATI-DRIVE

TEST ROUTINES

VAX-11 Blies-16

v3-555

SEQ 0297
P
133

SPIDERSUSERS: (OME"E.FALCMICNW.;; (40

vo1.0

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

.T_ADDR [ERR_HARD] geau

.SWP _ERROR

then

IF ERROR COUNT EXCEEDED
DROP UNIT

[.LSLUN] = DU_HERR;

DODU (.LSLUN);

end;

NO NEED TO CONTINUE
IF COMPARE ERROR

exitloop:;

end;

IF ASSOCIATED WRITE RETPKT WAS FOUND

end;

! ROUTINE HOST_WRT_CHK

.SBTTL
HOST.WRT.CHK:

0000006
000001
0000006
000014 000242

126027

000014

000241

18:

24:

104456

016616

000014
000063

000004

3s:

GEEERITRRRYIEIIAIAANATARRRERYEE

TST

return ( .FLAG);
end;

HOST.WRT.CHK MULTI-DRIVE TEST ROUTINES
R1, $SAVES

-(SP)

4539
+ FLAG

1¢
RS
64

FLAG

4570

PC.RPS.REM
RO
64

INDEX

#1,R5
RP.ADDR,RO

14(R0O), 0242

4572

g:(m).oau

INDEX,

4573
4576

PC,BL$MUL
s ,BUFFW

BUFFW,BUFF1

& ,BUFF2

4577

4578

+ ,COUNT

4579
4581

BUFF1,BUFF2

4583

BUFF1
BUFF2

4586
4587
4583
4591

4592
4593

4594

112

000230
000232
000234
000236
000240

MATI-DRIVE TEST ROUTINES

022626
005000
150500
005726
000207

0000006
000004
000000G

4%:

S5%:
64:

ADD
JSR
MOV
cMP
B8LO
MOV
MOVB
TRAP
BR

INC
CcHP
BLE
cHP
CLR
B8ISB
TST
RTS

$CODE$
i Routine Size:
81 words,
Routine Base:
i Maximum stack depth per invocetion:
11 words

134

ORETPKT,(SP)

PC,EMS.CMP
T.ADDR,RO

4596

LSLUN,RO
04 ,0UR(RO)
51
S$
R1
R1.R4
24

4599

g:(nm.sw.emon

(SP)+,(SP).
RO
R5,RO
(SP).

+ 20152

000000G
000000G
0000006
000014
000000G

SEQ 0398

SPIDERSUSERS: [DOUCETTE . FALCONICNRQAA ;L.; (40

062716
004737
013700
026037
103412
013700
112760
104451
000403
005201
020104
003733

VAX-11 Bliss-16 v3-555

vo1.0

000160
000164
000170
000174
000202
000204
000210
000216
000220
000222
000224
000226

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3S

I
I,COUNT

+
FLAG,

4590
4581

4575
4558
4539

Jle2
15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

NRQAM3
vo1.0

MULTI-DRIVE TEST ROUTINES

VAX-i1 Bliss-16 V3-555

135

SPIDERSUSERS: [DOUCETTE. FALCON]CMOAA 8L2 (a1

routine SWEEP : novalue =
!

THIS ROUTINE IS CALLED FROM IO_RETPKT AND OTHERS TO DEALLOCATE THE

H
!
H
H
!

RESOURCES ASSOCIATED WITH THE CURRENT RETURN PACKET. THIS INCLUCES 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

DEALLOCATED.

;

IMPLICIT INPUTS:

H
|

RP_ADDR
- ADD&ESS OF CURRENT RETURN PACKET
RP_INDX - INDEX
OF CURRENT RETURN PACKET

’-

begin
:

signed word;

loceal
index

if (.RP_ADDR [ENDCOD) end OP_MSK) eql OP_RD !

IF READ OPCODE OR ENDCODE

hen

IF HOST IS DOING WRITE-COMPARES

IF ASSOCIATED WRITE RETPKT IS FOUND

if BIT_TST (SWP_FLAGS, SWF_HWC)

if (index = RPS_REM ()) geq 0

then

IO BUFF (RETPKT [.index, BUFF_0]);

PUT_RETPKT (.index);

end;

! RETURN WRITE I/0 BUFFER TO POOL

t "RETURN WRITE PACKET TO POOL

PUT_IO0_BUFF (RP_ADDR [BUFF_0]);

! RETURN CURRENT I/0 BUFFER 7O POOL

end;

! ROUTINE SWEEP

PUT_RETPKT (.RP_INDX);

010146
013700
116000
042700

001026
032737
001422
004737
010001
002416
010146
012746
004737
062700
010016

SWEEP:

000000G
000014
177600
000041
000040

000000V

000060
000000G
0000246

000000G

.SBTTL

MOV

! RETURN CURRENT RETPKT TO POOL
SWEEP MATI-DRIVE TEST ROUTINES

MOV
MOVB
BIC
%

R, -(SP)

RP,ADDR,RO
14(RO),RO
#177600,.RO
RO, 841

4610

::O.SW.FLAGS

4634

JSR
MOV
BLY
MOV
MOV
JSR
ADD
MOV

PC,.RPS.REM
RO,R1
1¢
R1,-(SP)
#60, -(SP)
PC,BL $MUL
onema.za RO
RO,(SP)

i
i &,INDEX

4637

3+ INDEX,»

4640

4631

1K1
15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RXx EXERCISER

MULTI-DRIVE TEST ROUTINES

000070
000072
000076
000100
000104
000110
000114
000120
000124
000126
000130
;

004737
010116

004737
022626
013746
062716
004737
013716
004737
005726
012601
000207

Routine Size:

JSR
MOV

0000006

000000G

1s%:

000024
0000006
0000006
0000006

45 words,

; Maximum steck depth per

Routine
Bese:
C
4 words

invocation:

JSR
cHP
MOV
ADD
JSR
MOV
JSR
TST
MOV

VAX-11 Bliss-16 v3-555

SEQ 0240
Page 136

SPIDERS$USERS: [DOUCETTE .FALCON]ICNRGAA BLZ (a1

T
., I0.BUFF
PC,PU

R1,(SP)
PC,PUT
. RETPKT

;

(SP)+,(SP)+

RP.ADDR, -(SP)
024,(SP)
PC,PUT.I0.BUFF
RP . INDX,(SP)
PC,PUT .RETPKT
(SP)e«

(SP)+,R1

RTS

$CODE$

+ 20414

INDEX, s

4641
’

4639
4644

;

4645

H
H

4626
4610

L1
NRQAM3

RD/RX EXERCISER

vo1.0
H

MULTI-DRIVE TEST ROUTINES
4647

routine RPS_REM =

4650
4651
4652
4653
4654

!
!
!
!
!

:
3

4648
4649

ggz

4657

;
:
:
:
:
3

3
:

;

:ggg
4660

3
;

4661
g‘g’

4664

15-Dec-1983 10:35:57

!«

14 -Dec-1983 11:35:15

H
!

IMPLICIT IMNPUTS:

H
!

OUTPUTS:

!
'

INDEX (VALUE OF THIS ROUTINE) - INDEX OF THE RETPKT CONTAINING
A CRN WHICH IS ONE LESS THAN THE CURRENT

begin

4667

local

g;g

incr COUNT from O to RP_CNT - 1 do

;
H

H
.

:223

iwex

4672

4673

4677
4678

4680

:
:

4682
4683

;
:

4687

4686

.CCTLR) and

( .RETPKY t.coun. CRF_HI] eql .RP_ADDR [CRF_HI))) or
(C.RETPKT [.COUNT, CRF_HI] eql(.RP_ADDR [CRF_HI] - 1)) and

IF THIS IS A VALID RETP¥T

! IF CORRECT CRN

C.RETPKT [.COUNT, CRF_LO] eql %o'177777')
and

then

(.RP_ADDR [CRF_LO) eql 0))

begin
index = .COUNT;

' INDEX TO BE RETURNED

exitloop;
end;

! DONE

return . index;

end;

000000
000004
000010
000012
000016

004137
012704
005003
116300
020037

000000G
177777

000024
000026
000032
000036
000040

010346
012746
004737
022626
126027

001053

! FOR EACH ENTRY IN RP_SAVE

if (C.RETPKT (.COUNT, CRF_LO] eql (.RP_ADDR [CRF_LO] - 1)) and

4688

000022

! ASSUME NOT FOUND

(.RETPKT [.COUNT, ENDCOD) eql (OP_WRT or OP_END))

4681

4684
4685

if (.RP_USE [.COUNT) eql

4679

:
:

index : signed word initial (-1);

4676

:
i

Page 137

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

4665
4666

SEQ 0361

SPIDERSUSERS: [DOUCETTE .FALCON]ICNRQAA
.BL2 (42

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.

;
3

VAX-11 Bliess-16 v3-555

000000G
0000006

000060
0000006
000014G 000242

! ROUTINE RPS_REM
.SBTTL
RPS.REM: JSR
MOV
CLR
1¢:
MOVe
cHP
BNE

MOV
MOV
JSR
cHP
cMPB

RPS.REM MULTI-DRIVE TEST ROUTINES
R1,$SAVES
3
@-1,R4
; «,INDEX
2R
; COUNT
RP.USE(R3),RO
i #(COUNT),»
RO CCTLR
RS.-(SP)
960, -(SP)
PC,BL $MUL
(SP)+,(SP)+
RETPKT+14(R0O), 4242

3 COUNT,»

4647
4665
4670
4672
4673

M1le
RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES
001041
010346
012746
004737

000076
000102
000104
000112
000114
000120

000122
000126
000130
000136
000140
000144
000146
000150
000152
000154
000160
000162
000164

022626
013701
016102
005302
026002
001004
1026061
001415
016102
005302
026002
001011
026027
001005
005761
001002
010304
000404
005203

020327

003714
010400
000207

: Routine Size:
i

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15
44

4676

RETPKT+4(R0O),R2
24
gETPKToG(RO) +6(R1)

4677

6(R1),R2

;

4678

RETPKT+4(RO),¢-1

4679

4680

; COUNT, INDEX
H
; COUNT

4683
4682
4670

;
H

4665
4647

(SP)+,(SP)«
RP.ADDR,R1
4(R1),R2

0000046
000006G 000006

2%:

0000066

000004G 177777

R2
:ETPKT +6(RO),R2

000004
3%:

000003

SPIDER‘USERS:(DMEHE.FALCW]CMW.;E; (42

PC,BL$MUL

0000006
000004

000006

SEQ 0362
P
138

3 COUNT,»

960, -(SP)

000060
0000006

VAX-11 Bliss-16 Vv3-555

K CMT.‘

Ss:

$CODES$
59 words,
Rout ine Base:
Maximum stack depth per invocation:
8 words

+ 20546

INDEX,»

N12
NRQAM3
\;ox.o

RD/RX EXERCISER
MULTI-DRIVE TEST ROUTINES

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

:
3
:

4689
4690
4691

routine DR_RETPKT : novalue =

;

::;

;

FATAL DEVICE ERRORS.

4696

FOR FATAL DEVICE ERRORS, THIS ROUTINE RELEASES ALL RESOURCES HELD BY

3
;

;
;
H

;
;

4692
4693

4697
:::g

4704
4705

;
H

;
i

4703

;
5
'

!
'
!
!

4702

!
!

4700
4701

;

THIS ROUTINE IS CALLED BY PROC_RETPKT FOR ALL PACKETS ORIGINATING AT
THE “DRIVER“ PORTION OF THE PROGRAM. THIS INCLUDES PACKETS DESCRIBING

THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL
UNITS ATTACHED TO THE CONTROLLER ARE DROPPED.
IMPLICIT INPUTS:
RP_INDX - INDEX OF THE CURRENT RETURN PACKET

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

CST_ADDR - ADDRESS OF THE CURRENT CONTROLLER'S CST

!
!-

CCTCR - CURRENT CONTROLLER NUMBER
mn

4708

:;23

PUTA_BUFF ();

! RELEASE ALL I/0 BUFFERS HELD BY CONTROLLER

:;{é

incr index from O to RP_CNT - 1 do

! FOR EACH ENTRY IN CONTROLLER'S RP_SAVE

:;3

gfl.‘m_use [.index) eql .CCTLR

¢t IF VALID RETPKT INDEX

:;R

PUT_RETPKT (.index);

:
'

a717
4718

QIO (.CCTLR)
= 0;
CST_ADDR tsrne: = OFFLINE;

! CLEAR NO. OF OUTSTANDING QIOS
! MARK CST OFFLINE

;
:

4720
4721

PUT_RETPKT (.RP_INDX);
end;

! PUT BACK RETPKT
! ROUTINE DR_RETPKT

;

4719

ODROP CTLR (.CCTLR, DU_CFATAL);

SEQ 0363

VAX-11 Bliss-16 V3-555
Page 139
SPIDERSUSERS: [DOUCE
TTE .FALCONICNRQAA., BL?. (a3

! RETURN RETPKT TO POOL

! DROP CONTROLLER'S UNITS

M ar

RO FBx EXERCIAR

\;ol,»'

000000

OR_
g TP ;
"Ov

; w

004
7

4 Dec 1999 11:9%5:1%
VBT

010146

000002 008787 0O0000K,

000030
000014

1% Dec 1948 10:5%%:5%7

MATL ORIVE TELT RO TINE

000000G

I
e

JSR

2%:

1s1

38 words,

Rout ine Bese:

i Maximum steack gepth per invocation:

4 words

MA T

R, -(SP)

PC.PUTA BUF ¥

RO.CCTLR
-

DRI

IOERS SERSTDOUCE
TTE % AL CON JONR .9.

TELT ROUTIN

By
P

4’09

Fi.»

ant

.’ls

PC.PUT
. RE TPw Y
(SP).

InC

i INDE»

BLE
OV
CLR8
MOV
8IC
OV
MOV
JSR
MOV
JSR
e
MOV

14
CCTLR,R1

an?

ar1n

ane

4720

'
'

4707
4689

”

RTS

i Routine Size:

DR RETPHT

vAx (1 Bl ws 16 % 5SS

.‘..,

QIO(R1)

csT.

: M‘.O

#100000, 2(R0 )
R1,-(SP)
. -(5P)
PC.DROP.CTLR
RP
. INDX, (SP)

RE TPXT
PC..PUT
(SP)e,(SP).
(5P)..R1
PC

SCODES . 20734

NRYAM
vol.¢

RD RAx EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

)

’

:;g‘

ssbtt]

4724

’
'
l

4726
4727
:;:2:

!
¢
H

47%

)

:
[
)
]

]

000000
000002
000006
000012
000014

472% ¢

THERE EXISTS AN RDRX INTERRUPT SERVICE ROUTINE FOR EACW DEVICE

CONTROLLER, EACH SERVICE ROUTINE BEGINS By SIMPLY SETTING THE
APPROPRIATE CONTROLLER NUMBER INTO “ICTLR~. ALL SERVICE ROUTINES THEN
BAANCH TO A COMION INTERRUPT PROCESSING ROUTINE.

OGNSRy (AZINTO);

4735

AZINT ()

4754

%’om
37
004737
012600

ICTLR = O;

ENDSRY;

.SBTTL

AZINTO: : MOV
CLR
JSR
MOV

000156’
000000V

000002

i} Routine Size:

SEQ LW
VAZX - 11 Bl es 16 ¢35
Page 141
SPIDERSUSERS:[DOUCE
TTE ¥ ALCONICNRQAS Wi & 44

RORX INTERRUPT SERVICE ROUTIMES

4731

1% Dec 1943 10:85%:57
i4 Dec 198% 11:35:15

RTI

7 words,

i Meximum stack depth per

Routine Bese:

invocetion:

2 words

AZINTC RDRX INTERRUPT SERVICE ROUTINES

RO, -(SP)
ICTLR
PC,AZINT
(SP).,R0O

SCODES . 21050

:
i
3
i

4731
4732
4733
4731

RD/RAX EXERCISER
RDRX INTERRUPT SERVICE

SR BE

BE BE

B0 e

NRQAMS
vo1.0

4735

4736
4737
4738

4739

4740
474)
4742

4743
4744
4745

4746

4747
4748
4749
4750
4751
4752
4753
4754
4755
4756
4757
4758
4759
4760
4761
4762
4763
4764
4765
4766

010146
005746
013701
010146
012746
004737
062700

010037
010116

000106

012746
004737
062700
010037
011037
010116
012746
004737
062700
010037
013700
013701

1% Dec 1983
14 Dec
- 1983

ROUTINES

10:35:57
11:35:15

VAX-11

Blies-16

v3-555

SEQ 0%

147

SPIDFR$USERS: [DOUCE TTE .FALCONICNRQAR ;Lo.? ras

routine AZINT : novalue ',

H
H
!
H
!
H

THIS IS THE COMMON INTERRUPT SERVICE ROUTINE FOR ALL RDRX CONTROLLERS.
AFTER CALCULATING THE DCT ADDRESS FOR THE INTERRUPTING DEVICE, THIS
ROUTINE WILL SAVE THE CURRENT CONTENTS OF THE SA REGISTER IN THE DCT,
THEN, IF THE “IGNORE INTERRUPT” BIT IS SET, NO FURTHER ACTION IS TAKEN,
OTHERWISE, THE SA VALUE IS CHECKED FOR A FATAL ERROR, AND THE COMMAND
AND RESPONSE RINGS ARE POLLED.

! GET DCT ADDRESS
! GET CST ADDRESS
IDRX_ADDR = .ICST_ADDR [IP_ADOR
' GET RDRX ADDRESS
! GET COMM_AREA ADDR
ICOM_ADDR = COMM_AREA ¢« (.ICTLR o COMM_LEN « 2);
! SAVE SA REGISTER
IDCY_ADDR [SA_SAVE] = .IRDRX_ADDR [RCSA, RC_ALL];
IOCT_ADDR = DC7 ¢« (. ICTLR » DCT_LEN « 2);
ICST_ADDR = CST « (.ICTLR ¢ CST_LEN ¢ 2);

if _IDCT_ADDR [IG_INT)

then

if BIT_TST (IDCT_ADDR [SA_SAVE),
FATAL _ERROR

else

INTERRUPT?

H RETURN IF INTERRUPTS IGNORED

return;

hen

IGNORE

SA_ERR)

IF FATAL

ERROR

()

! POLL COMMAND RING
! POLL RESPONSE RING

L_CRING ();
POLL _RRING ();
end;

end;

AZINT:

flffl.

1S7

000156

MOV

000022

MoV

0000006
0000006
000110’
000056

000000G
0000006
000106
0000006

000050
0000006
000000’
000104°
000110’
000000G

AZINT RDRX INTERRUPT SERVICE ROUTINES

R1,-(SP)

4735

ICTLR,R1

4747

-(SP)

022, -(SP)

JSR
ADD
MOV
MOV
MOV

PC.BLSMUL
®DCT RO
RO, IDCY.ADDR
R1,(SP)
56, -(SP)

ADD
MOV
MOV
MOV
MOV
JSR
ADD
MOV
MOV
MOV

#CST,RO
RO, ICST.ADDR
(RO), IRDRX . ADDR
R1,(SP)
#50, -(SP)
PC,BL $MUL
#COMM
. AREA,RO
RO, ICOM, ADDR
IDCT.ADDR,RO
IRDRX.ADDR,R1

JSR

4748

PC,BL IMUL

ICST.ADOR,
»

4749
4750

4751

E17

000112
000120
000126
000132
000134
000140
000144
000150
000152
000156
000160
000164

000170

000174
000176

1% Dec
14 -Dec

RD/RX EXERCISER

NRQAM3
gOl.C

RDRX
016166
016660
032710
001016
016600
042700

020027
001003
004737
000404
004737
004737
062706
012601
000207

Routine Size:

Maximum steck

INTERRUPT SERVICE ROUTINES

000002
000010
040000

000010
000002

000010
077777
100000
000000V

000000V

1%:

000012

2%:

000000V

2(R1),10(5P)
10(SP),2(RO)
5:0000.(“0)

MOV
MOV
BIT

BNE
MOV
B8IC
CMP
BNE
JSR
BR
JSR
JSR
ADD
MOV

10(SP),RO
77777, ,RO
?(.).0- 100000
PC,FATAL .ERROR

PC.POLL .CRING
PC,POLL .RRING
e12,5P

(SP)+,R1

RTS

$CODES
64 words,
Rout ine Base:
7 words
depth per invocation:

21066

1983 10:35:57
1983 11:35:15

SEQ G%.7
VAX-11 Bliss-16 V3-555
Page 147
SPIDERSUSERS:
(DOUCETTE ., FALCONICNRQAA .BL2 (45
;

*,RC.REG

i+ RC.REG,»
;s ¢,IDCT,ADDR
!
H

4753

4735
4757

;
P
P

4759
4757

H
H

4763
4735

4762

FYS
RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

4772
4773
4774
4775
4776
4777
4778
4779

novalue

14 -Dec-1983 11:35:1%

VAX-11 Blies-16

v3-555

SEQ 0%Z48

144

SPIDERSUSERS
: [DOUCETTE . FALCONICNRQAA ;8.2 (46

15-Dec-1983 10:35:57

THIS ROUTINE IS CALLED BY

THE INTERRUPT SERVICE ROUTINE (AZINT) UPON

DETECTING AN UNRECOVERABLE ERROR THROUGH THE DEVICE'S SA REGISTER.
ITS PURPOSE IS TO CLEAN UP DEVICE DATA IN THE "DRIVER” PORTION OF

THE EXERCISER, AND TO INFORM THE
RETURN PACKET.

“PROGRAM” PORTION OF THE EVENT VIA

IMPLICIT INPUTS:
ICTLR - INTERRUPTING CONTROLLER NUMBER
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S OCT
ICST_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S CST
IRDRX_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S IP REGISTER
-]

begi

4783

4781

routine FATAL _ERROR
T L XY

4767
4768
4769
4770
4771

NRQAM3
vo1.0

local
index : signed word,
U_SAVE : word;

SA_REG = .IDCT_ADDR [SA_SAVE];

LILUN = .ICST_ADDR [OF UN, D_UNIT];
ERRDF (14, EGD_14, EMS_14);
LSLUN = .U_SAVE,
DRV_CTLERR (. xcn.a);

! SET CURRENT UNIT TO rmsr IN CONTROLLER
' rm\L CONTROLLER ERROR
! RESTORE PRE -INTERRUPT CURRENT UNIT
! CLEAN UP DRIVER DATA FOR CONTROLLER

if Cindex = GET_RETPKT (.ICTLR)) lss O

TRY TO GET A RETPKT; IF FAILURE

“FATAL_ERROR: RETPKT NOT AVAILABLE"

then

PRINTF (DBM18)

else

U_SAVE = .LSLUN;
! SAVE m INTERRUPT cuanem UNIT NUMBER
C_ERR_TBL [. xcru:. ERRrno) « .C_LERR_TBL (. ICTU!. ERR_HRD) +

B
B
B
SR

end:

SR
B
W

RETPKT [.index, CONID) = CID_DRIVER;
RETPKT [.index, MESTYP] = MT_FATAL;
RETPKT [.index, CTLR) = _ICTLR;
IN_IODQ (.index);

end;
0000006

000110’
000002 000000G
0000006
000156
0000006
000106
000006

!
'
!
!

tJSD REV A

IF RETPKT WAS ALLOCATED

SET CONNECTION ID TO “DRIVER”
FATAL ERROR
CONTROLLER NUMBER
LOAD RETPKT INDEX INTO IODQ

t IF RETPKT WAS ALLOCATED
! ROUTINE FATAL _ERR

.SBTTL
FATAL .ERROR :

JSR
MOV
MOV
MOV
MOV
ASL
INCB
MOV
MOV
SWAB

FATAL.ERROR RDRX INTERRUPT SERVICE ROUTINES

R1,$SAVE2
IDCT . nDOR , RO
2(R0),S5A.REG
LSLUN,R1
ICTLR,RO
RO
C.ERR. TBL(RO)
ICST.ADDR,RO
6(RO),R2
R2

:
:

4767
4789

: *,U.SAVE
8

4790
4791

4792

G132
NRQAM3
\;01.0
000046

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES
042702

000052

010237

000060
000062
000064

000016
000000G
0000006

000056

000066
000072
000076
000102
000106
000112
000114

104455

177760

0000006
000156
000000G
000156’
000000G

000120
000124

012746
004737

000060
0000006

000142

013702

000156’

000116
000130
000134
000146

010116

062700
112760
042702

BIC

000000G

010137
013746
004737
013716
004737
010001
002425

150210
010116

000166

005726

000162

000170
000172

004737
005726
000207

R2,LS$LUN

. WORD
. WORD
. WORD

16
EGD. 14
EMS.14

MOV
MOV
JSR
MOV
JSR
MOV
BLT

MOV

MOV
JSR

000002G
000003 000001

ADD
MOVB

177760

8IC

MOV

MOVB

000000G

4793

R1,LSLUN
ICTLR, -(SP)
PC,DRV.CTLERR
ICTLR,(SP)
PC,GET.RETPKT
RO,R1
1

s U.SAVE,«
3

4794
4795

4797

R1,(SP)

060, -(SP)
PC,BL $MUL

ORETPKT+2,R0
#3,1(RO)
ICTLR,R2

0177760 R2

: »,INDEX

: INDEX,»

960, (RO)

R2, (RO)
R1,(SP)

: INDEX,s

TST

(SP)e.

TST

RTS

i Routine Size:
62 words,
Routine Bese:
S$CODES$
;i Maximum stack depth per invocation:
6 words

145

BIsS8
MOV
JSR

1s:

SEQ OJ’;

VAX-11 Bliss-16 v3-555
SPIDERSUSERS: (DOUCETTE .FALCONJCNRQAA 8L2

@177770,R2

MOV

TRAP

000152 112710 000060

000156
000160

15-Dec-1983 10:35:57
14-Dec-1983% 11:35:15

PC,IN.IODQ
(SP)«

« 21266

4801

4783
4767

Hi%
RD/RXx EXERCISER

15-Dec 1933 10:35:57

14 -Dec-1983% 11:35:15

SFO 0"0

routine POLL _CRING : novelue =

S
S
B
B
B
B
e
W
e
SR
e
B
B

!
H
!
!
H
!
H

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 ANY
COMMAND SLOTS THAT HAVE BEEN “TAKEN" BY THE CONTROLLER. SUCH SLOTS
HAVE BEEN RETURNED TO THE HOST, INDICATED BY A ZERO OWNERSHIP BIT. FOR
EACH SLOT THAT HAS BEEN RETURNED TO THE HOST, THE CRING COUNT IS
DECREMENTED, AND THE CR_POLL ADDRESS IS ADVANCED TO THE NEXT SLOT IN

IMPLICIT INPUTS:

THE COMMAND RING.

!
!
:

ICTLR - INTERRUPTING CONTROLLER NUMBER
IOCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCTY
ICOM_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA

begin

while ((.IDCT_ADDR [CRING_CNT)

ru 0) and

Mt (IIT TST (C.IDCT_ADDR (CR_POLL)

2) ED_ M))) do

! WHILE ¢ OF COMMANDS IN CRING > O AND

! CURRENT SLOT IS HOST-OWNED

T
ADDR [CRING_CNT)

_IDCT_ADDR [CRING_CNT]

IDCT (CR_POLL) = IDCT ADDR [CR_POLL] + 4;

a:m.‘xoct_nooa [(CR_POLL) gtra .IDCT_ADDR [CR_END)

IOCT_ADDR [CR_POLL) = .IDCT_ADDR [CR_BEG]);

! DECREMSNT ¢ CMDS IN CRING

! ADVANCE TO NEXT SLOT TO POLL
!

IF BEYOND END OF RING

! SET POINTER TO TOP OF CRI!I;.

end;

ICOM_ADDR (CMD_INT] = 0;

end;

146

SPIDERSUSERS: (DOUCETTE., FALCON]CMOMA 8&2 (47

RDRX INTERRUPT SERVICE ROUTINES

VAX-11 Bliss-16 v3-555

! CLEAR COMMAND INTERRUPT WORD IN RING HEADER

[13
RDRX INTERRUPT SERVICE ROUTINES

004137

000010

013701
012702
060102
001422
0161C0

JSR

R1, $SAVE2

ADD
TST8
BEQ

R1,R2

000110
000016

MOV
MOV
18:

MOV
MOV
BIC
cMP

000016
000002
077717
100000

BEQ

000010

;i Routine Size:

POLL.CRING RDRX

POLL .CRING:

C00004
000012

000072
000076

.SBTTL

0000006

105711

000022

15-Dec- 1983 10:35:57
14 -Dec -1983 11:35:15

RD/RXx EXERCISER

3
NRQAM
gOl.C

000104°
000004

32 words,

i Maximum steck depth per

28:

IDCT.ADDR,R1

216,R2

(R1)
24
16(R1),RO
2(RO),RO

2t
(R1)
04,(R2)
(R2),12(R1)
1
{2(“1).(R2)

MOV
CLR

4(RO)

RTS

SEQ 0271
Page

147

SPIDERSUSERS: (DOUCETTE.FALCON JCNRQAA , BLZ 47

SERVICE ROUTINES

4809
4829
4833
4829

4830

DECB
ADD
cHP
BLOS
MOV
8R

INTERRUPT

VAX-11 Bliss-16 v3-555

ICOM.ADDR,RO

Routine Base:
$CODES$ -« 21462
invocation:
4 words

4832

4833
4835
4837
4841

J13
RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

SEQ 0272

Page 1438

SPIDERS$USERS:
[DOUCETTE .FALCONICNRQAA .BL2 (48

THIS ROUTINE IS CALLED BY THE RDRX INTERRUPT SERVICE ROUTINE (AZINT)
FOR EACH DEVICE INTERRUPT EXCEPT DURING INITIALIZATION OR FATAL ERROR.

ITS PURPOSE IS TO SCAN THE DEVICE'S RESPONSE RING AND CHECK FOR ANY
SLOTS WHICH HAVE BEEN RETURNED TO THE HOST (OWNERSHIP BIT = 0). FOR

EACH SUCH SLOT,

THE ASSOCIATED MESSAGE IS PROCESSED BASED ON ITS

CONNECTION ID (MSCP OR DUP). AFTER PROCESSING, THE MESSAGE PACKET
¥g l:E)-INIYIN.IZED AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET

4853

IMPLICIT INPUTS:
ICTLR - NUMBER OF INTERRUPTING CONTROLLER
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT

4851

14-Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

routine POLL_RRING : novalue =
e

4843

v01.0

15-Dec-1983 10:35:57

NRQAM3

begin

while not (BIT_TST ((.IDCT_ADDR [RR_POLL]

IPKT_ADDR =

..IDCT_ADDR [RR_POLL]

+ 2), ED_OWN)) do ! WHILE 0 = O

- 10;

! ADDRESS OF RESPONSE PACKET

CREDIT_BAL = .CREDIT_BAL + .IPKT_ADDR [CREDITS);

ul«:t:nou .IPKT_ADDR [CONNID]) of

[CID_MSCP]

(CID_DUP]

MSCP_RSP ();

DUP_RSP ();

PRINTF (DBM20, .IPKT_ADDR [CONNID]), .IRDRX_ADDR);

!JSD REV A
“BAD CONN ID = XXXXX RECEIVED FROM XXXXXX"

! RE-INIT PKT FIELDS; MESSAGE LENGTH
! ADVANCE TO HI ORDER WORD OF RING SLOT
! RETURN SLOT TO CONTROLLER
ED_OWN or ED_FLAG; ! OWNERSHIP TOO
! ADVANCE TO NEXT RRING SLOT

[otherwise] :

IDCT_ADDR [RR_POLL] =

4885

.IDCT_ADDR (RR_BEG);

! CYCLE TO TOP OF RING

i;.;'IDCT-m [RR_POLL] gtre .IDCT_ADDR [RR_END]! IF BEYOND END OF RING

000010
000014

end;

4887
4888
4889
4890

end;

004137

000000G

013702
062702

011200

WHILE LOOP
CLEAR RESPONSE INTERRUPT WORD IN RING HEADER

ICOM_ADDR [RSP_INT] = 0;

000110’
000014

.SBTTL

POLL .RRING:
JSR
MOV
ADD
1%:
MOV

POLL.RRING RORX INTERRUPT SERVICE ROUTINES

R1, $SAVE2
IDCT.ADDR,R2
014 ,R2
(R2),RO

;

4843

4862

<13
RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

NRQAM3

vo1.0

000016
000022

000100
000104
000106
000112
000114
000120

000122
000126
000132
000140
000144
000146
000152
000156
000164
000172
000176
000202
000204
000210
000212
000216
000222

016000
042700
020027
001467
017237
162737
013700
116001
042701

063701
010137
116000
042700
001003
004737
000405
020027
001002
004737
013700
012760

000002
077777
100000
000000

15 -Dec-1983 10:35:57
14 -Dec-1983 11:35:15

BIC

80(R2),IPKT.ADDR
@12,IPKT.ADDR
IPKT.ADDR,RO

0000006

000012 000000G
000000G
000010
177760

BIC

0000006
000000G
000011

000207

i Routine Size:

4864

4865

11(RO),RO

4867

PC,MSCP .RSP

4870

4867

4871

4878

H
H
H
H

4879
4880
4881
4883

:
H

4885
4862

4843

10(RO),R1

9177760,R1

CREDIT.BAL,R1
g%??‘OO.RO

177400

000002

R1,CREDIT.BAL

34
RO, #2
34
PC,DUP .RSP
IPKT.ADDR,RO
074,6(RO)
IDCT.ADDR,R1
R1,R2
014 ,R2
02,(R2)

013701

013700
005060

2(RO),RO
@77777,R0O
R2.0-100000
4

010102
062702
062712
016072
052772
062712
021261
101704
016112
000701

SEQ 0272
Page 149
SPIDERSUSERS
: ([DOUCETTE .FALCONICNRQAA .BL2 (48
VAX-11 Bliss-16 v3-555

2(R0),80(R2)

#-40000,80(R2)
02,(R2)

BLOS
000104
000006
74 words,

;i Maximum stack depth per

4¢:

MOV

CLR

RTS

Rout ine Base:
$CODE$
4 words
invocation:

(R2),6(R1)
14

:Sax).(aa)

ICOM.ADDR,RO
6(RO)
PC
+ 21562

4877

4889

L13
NRQAM3

RD/RX EXERCISER

\;ox.c

RORX INTERRUPT SERVICE ROUT.NES

4891

:
:

4893
4894

;

4892

!«

!
!
!
!

;
;
;

4901
4902
:gg:

4905

2908

;

;
;

;
;
H

;

:
;

;
;

4916
4917

4938

4941

4940

X = .COUNT;

exitloop;
end;

4929

4939

:
3

then

4928

if .P_INDEX les O

PRINTF (DBM108,
return;

! SET PKT NUMBER
¢ IF COMMAND NOT FOUND

.IPKT_ADDR [CRN_LOJ);

! UNKNOWN COMMAND REF. NUMBER

if CR_INDEX = GET_RETPKT (.ICTLR)) les O

! IF RETPKT IS NOT AVAILABLE

then

else

PRINTF (DBM112)

g:ein

ADDR = .IPKT_ADDR ¢+ 6;

! SET UP COPY (SKIP OVER PKT DESC)

R_ADDR = DST_ADDR = RETPKT + (.R_INDEX &« RP_LEN ¢ 2);

4944
4945

incr COUNT from 1 to RP_LEN do
iin
.DST_ADDR =

.. SRC_ADDR;

!JSD REV A

"DUP-RSP: RETPKT NOT AVAILABLE"

:gg
4946

¢ IF THIS IS THE ASSOC CMD

(.MSCP_PKT [.COUNT, MSGTYP) eql MT_SEQ) and
(.MSCP_PKT [.COUNT, CONNID]
eql CID_DUP) and
(C.IPKT_ADDR [OPCODE] end OP_END) eql OP_END)

4926
4927

4932
4933

eql .IPKT_ADDR [CRN_LO)) and
eql .IPKT_ADDR [CRN_HI])) and

(.MSCP_PKT [.COUNT, PKT_LO] neas .IPKT_ADDR (PKT_LO]) and
(C.MSCP_PKT [.COUNT, OPCODE) end OP_END) neq OP_END) and

4925

:3?’

if (.MSCP_PKT [.COUNT, CRN_LO)
.MSCP_PKT
[.COUNT, CRN_HI)

4923

;

DST_ADOR,

incr COUNT from O to PKT_CNT - 1 do

SRC _ADDR,

:3{;

WM S |g @ s WOi .
R_ADDR : ref block [RP_LEN, word) field (RP_FIELDS);
'PRINTX (DER34);

:
’

begin

4911
::g

4924

IMPLICIT INPUTS:
ICTLR - INTERRUPTING CONTROLLER NUMBER
IPKT_ADDR - ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE

4910

3
:

!
!
:

4909

:
;
;
i

ENVELOPE CAN BE RETURNED TO THE CONTROLLER.

4906

4918
4919
4920
4921
4922

[

THIS ROUTINE IS CALLED BY POLL_RRING FOR EACH DUP RESPONSE
ITS GENERAL PURPOSE IS TO ACT ON A DATAGRAM OR SEQUENTIAL MESSAGE.
IF THE MESSAGE TYPE IS SEQUENTIAL, THE ROUTINE COPIES THE
CONTENTS OF THE MESSAGE ENVELOPE INTO A RETURN PACKET SO THAT THE

! COPY 1 WORD

SEQ_0274

Page 150

SPIDERS$USERS
: [DOUCETTE .FALCONICNRQAA .BL2 (49

4895
4896
4897
4898

4333

14 -Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

ROUTINE DUP_RSP : NOVALUE =

;
;
;
;
;

15-Dec-1983 10:35:57

1JSD REV A

! START OF ALLOCATED RETPKT

M13
15-Dec-1983 10:35:57

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

14-Dec-1983 11:35:15

VAX-11 Bliss-16 V3-555

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA. BLZ (49

!
!
!

ADVANCE DESTINATION ADDR
ADVANCE SOURCE ADDR
COPY LOOP

!
!
!

LOAD CONTROLLER NUMBER INTO PACKET
PUT RETPKT INDEX INTO IODQ
IF RETPKT WAS ALLOCATED

if .P_INDEX geq O
then

IF ASSOC CMD PKT WAS FOUND

RETURN COMMAND PACKET TO POOL

end;

! ROUTINE DUP_RSP

DST_ADDR =
SRC_ADDR =

.DST_ADDR + 2;
.SRC_ADDR + 2;

end;

R_ADDR (CTLR]

ICTLR;

IN_I00Q (.R IMJEX):

end;

PUT_PKT (.P_INDEX);

SEQ 0375
Page 151

NRQAM3
vol1.C

000000G

.SBTTL

DUP.RSP RDRX INTERRUPT SERVICE ROUTINES

MOV
CLR
MOV
MOV
JSR

IPKT ADDR,R1

DUP.RSP: JSR

000000G

1$:

000104
000000G

R1, $SAVE4

RZ. (SP)

€104, -(SP)

;s COUNT,=»

4892
4916
4914
4916

;3 COUNT

PC,BL$MUL

(SP)O (SP)

000012G 000012

HSCP PKTOIZ(RO) 12(R1)

000014G 000014

HSCP PKT+14(R0O),14(R1)

4917

000000G

gSCPPKT(RO),(R1)

4918

0000226

HSCP PKT+22(RO)

4919

3360MSCP.PKT+10(RO)

4920

000011G 000002

gfcr.m.u(am.oz

4921

000022

g%(fll)

4922

000000G

l;“:.P.I!DEX

000360

000013
0000006

000156
000000G

0000106

24:

34:

R2
13.013

P.INDEX
646

ICTLR, -(SP)

PC,GET.RETPKT

000060
000000G
000000G

;3
;

COUNT,»

4925

COUNT
COUNT,»

4914

H
H

4929
4931
4936

RO,R4

; ¢«,R.INDEX

;

IPKT,.ADDR,R2

: +,SRC.ADDR

(SP)+

0000006
000006

“.R?
R4, -(SP)

PC,.BL $MUL
ORETPKT,RO

R.INDEX

H ‘.S“C.m
: R.INDEX,#*

4941

4942

N13
15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

000250
000254
000256
000260
000264
000266

022626
013700
002404
010046
004737

005726
000207

000002

BISB

0000006
0000006

S$:

000000G
64:

+«,DST.ADDR

RO,R3
©30,R1

& ,COUNT
SRC .ADDR,DST.ADDR
COUNT

(R2)+,(R3)+

R1
4

ICTLR,R1

MOV
JSR
CMP
MOV
BLT
MOV
JSR
TST
RTS

152

4944
4946
4944

4951

€177760,R1
€17,2(R0O)

Dc-o

000156
177760
000017
000002

4%:

MOV
MOV
DEC
BNE
MOV
BIC
BICB

Rout ine Base:
$CODE$
92 words,
Maximum steck depth per invocetion:
8 words

i Routine Size:

MOV

000030

(R.ADDR)
(R.ADDR)
. INDEX,
+
-

010003
012701
012223
005301
001375
013701
042701
142760
150160
010416
004737

SEQ 0576

SPIDER$USERS: [DOUCF TTE .FALCONICNRQAA 8L2 (a9

000202
000204
000210
000212
000214
000216
000222
000226
000234
000240
000242

VAX-11 Bliss-16 V3-555

4952
4940
4955

4957
4892

+ 22006

(VT

Q0 Ax CERCISER

¥oi.¢

RORE INTERRST SERVICE RO INES

49%C

1% Dec 1943 10:3%:57

14 Dec 19M% 11:35:15

’

‘
f
'

95
96
::.7

!
!
;

(1.€., AL EXCEPT DUP RESPONSES). 17S PURPOSE IS 10 PASS
CONTROL 70 THE APFROPRIATE ROUTINE BASED Oh THE MESSAGE TYPE
FIELD (SEQUENTIAL, DATAGRAM, OP CREDIT NOTIFICATION).

’
'
'

4%
970
971

!
¢
!

PPLICIT INPUTS:
IPxT_ADDR - ADDRESS OF MSCP PACKET CONTAINING RESPONSE
"E SSAGE

4974

]

'
'

'
]

]

4908

972
4975

SPIDERSUSERS:{DOUCE
! TE.F AL CONICNRIAE oo

1HIS ROUTINE 1S CALLED Bv POLL _RRING FOR EADH RESPONSE MESSAGE

WICH »AS A COMMECTION ID INDICATING A DISKx MSCP ORIGINATOR

selectoneu .IPKT_ADDR [MSGTYP) of

497%

[213

4976

4977

(MT_SEQ) :

SEQUEN ();

:on

(M7 _DG) :

DATAGM ();

zm'-iul ;.

PRINTF (DBM21, .IPKT_ADDR [MSGTYP));

4978

:“s

routing MSCP RSP : novelue -

VAY 11 Bl iwes 16 ¢3-5%%

[ L T}

LSBTTL
MSCP RSP

IPKT , ADDR ,RO

ASR

aGE
ASR
BIC

24
20 worde,
l?uflao Bese:
depth per invocetion:
1 word

10(R0),RO
RO

RTS

:g i

RTS

4974

4979

#177760,R0

RO
RO

BNE

1JSD REV A

MSCP.RSP RDRX INTERRUPT SERVICE ROUTINES

MOV

MOVB
ASR

! “MESSAGE TYPE XX RECEIVED"

PC.DATAGM
PC

SCODES « 22276

490

NRGAM ¢

RO /Rx EXERCISER
RDRX

INTERRUPT SERYICE ROUTINES

Y
R
R

CONTENTS OF THE MESSAGE PACKET INTO A RETURN PACKEY SO THAT THE

PACKET CAN BE RETURNED TO THE CONTROLLER.

R
e
e
e
-

IMPLICIT INPUTS:
ICTLR - INTERRUPTING CONTROLLER NUMBER
IPKT _ADDR - ADDRESS OF MSCP PACKET CONTAINING RESPONSE

UNIT

incr COUNT from O to PKT_CNT

i . (.

1 do

[.COUNT, CRN_LO)

eql .IPKT_ADOR {cm_uo ) end

(.PXT_USE [.count) eal .ICTLR)

! IF THIS IS THE ASSOC CMO

! don’'t want old packets from other controll

then

5019

_PKT

s
.n; cow; gn'-:g eql .:;:;fm ?&"f"fo%'&
.MSCP
. COUN
neqQe .
ADDR
(c.
‘:uv {.COUNT, OPEODE) and OP_END) neq OP_END) and
(.MSCP_PKT [.COUNT, MSGTYP]
eql MT_SEQ) and
(¢, Pk
{OPCODE) and OP_END) eql OP_END) and
P_INDEX = .COUNT;

$020

ref block [RP_LEN, word) field (RP_FIELDS),

SFT_ERR_PRINTED : byte initisl (byte (FALSE));

5017

exitloop:

fig

end;

5023
5025

i? .P_INDEX les O
in

$026 !

S027
5028

%fi

$03%

IN ADDITION,

IF THE COMMAND MAS AN 1/0 TRANSFER (READ, WRITE, OR ACCESS), THEN SOME
FIELDS OF THE COMMAND PACKET ARE COPIED INTO THE RETURN PACKET.

5016

5032

" oage 1a

THIS ROUTINE IS CALLED By MSCP_RSP FOR EACH DISK MSCP RESPONSE MESSAGE

”3
5013
5014
5015

198% 11:35:15

SEG GUs

WITH THE ~SEQUENTIAL- MESSAGE TYPE. ITS GENERAL PURPOSE IS TO COPY THE

38“

18 Dec

VAX 11 Bliws 16 v3.555

rout ing SEQUEN : novelue -

L
FE R R E T

V1. ¢

15 Dec 1983 10:35:57

! SET PKT NUMBER
! IF COMMAND NOT FOUND

mmr (DBM108, .IPKT_ADDR [CRN_LO));

! UNKNOWN COMMAND REF, NUMBER

i:'(‘n_nux o GET_RETPKT (.ICTLR)) les 0

¢ IF RETPKT IS NOT AVAILABLE

return;
end;

PRINTF (DBM22)

@lue

ADOR = .IPXT_ADDR + 6;

!JSD REV A

“SEQUEN: RETPKT NOT AVAILABLE"

! SET UP COPY (SKIP OVER PKT DESC)

R_ADOR * DST_ADDR = RETPKT + (.R_INDEX o RP_LEN o 2);

s038

incr COUNT from 1 to RP_LEN do

! START OF ALLOCATED RETPKT

D14
NRQAM
&

VAX-11 Bliss-16 v3-555
Page
SPIDERSUSERS
: [DOUCETTE.FALCONICNROAA HLe

! COPY
1 WORD

.DST_ADDR + 23
.SRC_ADDR + 2;

' ADVANCE DESTINATION ADDR
i ADVANCE SOURCE ADDR

then

.IPKT_ADDR [OPCODE] eql

(OP_ONL or OP_END)

THIS

THE

ONLINE END MESSAGE

0ST_ADDR =
SRC ADDR =

SEQ 0379

15 -Dec-1983 10:35:57
14 -Dec-1983% 11:35:15

05T ADDR = ..SRC_ADDR;

vo1.0

RD/RX EXERCISER
RDAX INTERRUPT SERVICE ROUTINES

.COUNT eal

tmsnc-nooa = .SRC_ADDR + 4;

cD WORDS

IN ONLINE END - MESSAGE

! COPY LOOP

end;

SKIP OVER RE- .

LOAD CONTROLLER NUMBER INTO PACKET

.ICTLR;

R_ADDR [(CTLR]) =

IF ASSOC.

CMD PKT WAS FOUND

if .P_INDEX geq O
then

if (.IPKT_ADDR {ovcoon eal (OP_RD or OP_END)) or

( . IPKT_ADDR

(.IPKT_ADOR [OPCODE)

then

.MSCP_PKT [.P_INDEX, MODIFY);

R_ADDR

[CBCNT _HI)

R_ADDR

[LBN HI)

SR
BE B8
S5

R_ADDR

Be S5

R_ADDR

end;

[LBN_LO)

ACCESS

READ, WRITE, OR

! COPY

.MSCP_PKT [.P_INDEX, BC_HI);! FIELDS

= .MSCP_PKT [.p,mx. LBN_L);
=

.MSCP_PKT

[.P_INDEX, LBN_H];

[BUFF
_0) = .MSCP_PKT [.P_INDEX, BUF 0);
[BUFF_1] =

.MSCP_PKT [.P_INDEX, BUF_1];

IN_I00Q (.R_INDEX);

if (.IPKT_ADOR

tm'(" .IPKT_ADDR
N
e

! FROM

! COMMAND

! PACKET
!

TO RETPKT

! IF ENDCODE WAS READ, WRITE, OR ACCESS
! PUT RETPKT INDEX INTO I0DQ

end;

B
S5
S5

CMDMOD) =

IF END MESSAGE IS

eql (OP_ACC or OP_END))

¢ IF RETPKT WAS ALLOCATED

[STATUS_CODE) neq

ST_SUC) or

[STATUS_SUBCODE) neq 0)

LAST_PKT [.ICTLR, LAST_HRD_ERR] = HRD_OCCURED

SAVE ERROR CONDITION

LAST_PKT [.ICTLR, LAST_HRD_ERR] = HRD_NOT _OCCURED;

LAST_PKT
LAST_PKT

[.ICTLR, LAST _CRN_LO) =
[.ICTLR, LAST_CRN_HI] =

.IPKT_ADDR {CRN_LO ¢
.IPKT_ADDR [CRN_MI);

SAVE COMMAND REFERENCE NUMBER

incr index from O to EP_CNT

1 do

IF CORRESPONDING REF NUM HAD AN ERROR-LOG

Be S5

orcwe; eql (OP_WRT or OP_END)) or

if (.ELOG_PXT [.index, EL_CNTR] eql

.ICTLR) and

¢ .ELOG_PKT E.;m.. EL_CRN_LO] eql .IPKT_ADDR [CRN_LO)) and
(.ELOG_PKT

[.index, EL_CRN_HI] eql .IPKT_ADDR [CRN_HI)) and

( .ELOG_PKT [.index, EL_CONTENTS) eql FULL)

then
begin

.LAST_PKT [,.ICTLR, LAST_HRD_ERR] eaql HRD_NOT_OCCURED

IF SOFT ERROR OCCURED

1%%
(5]

t
RD/RXx EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

NRQAMS
vol.¢C

15-Dec-1983%
14 -Dec-1983%

SEQ 0380
VAX-11 Blies-16 v3-55S5
Page 156
SPIDERSUSERS
: (DOUCE TTE .FALCONICNRQAA 8L 2 (51

10:35:57
11:35:15

then

_ELOG_PKT [.index, EL _FORMAT)

then

G5 S5

S5 S5 Se

Br S

SOFT_ERROR (. index);
TEMP _UNIT = _LSLUN;

5100
5101
5102
5103
5104
5105
5106
5107
5108

incr OFFSE1

then

OF_UN)

[.OFFSET,

to (3

UPATE SOFT ERROR COUNT
SAVE UNIT NUMBER AS KNOWN

& UNIT_SIZE

D_DISK_NUM) eql

TO DRS

OF _UN) by UNIT_SIZE do

.ELOG PKT

'quu = _ICST_ADDR [.OFFSET, D_UNIT];

[.index,

EL_DK_NUM]) end

! CORECT UNIT NUMBER FOR ERROR MESSAGE

exitloop:
end;

case .ELOG_PKT [.index, EL_FORMAT] from O to 4 of
set

(0):

ERRSOFT (60, 0, 0);

(1):

ERRSOFT (61, 0, 0);

HOST MEMORY ACCESS ERROR

[(2):

ERRSOFT (62, 0, 0);

DISK TRANSFER ERROR

(3):

ERRSOFT (63, 0, 0);

! SDI ERROR

£4h

ERRSOFT (64,

0);

! CONTROLLER ERROR

SMALL DISK ERROR

e8;

5126
S127
5128

004137
105046

!
!

(.ICST_ADDR [.OFFSET, D_PRES] eql PRESENT)

5109
5110
5111
5112
5113
5114
5115
5116
S117
5118
5119
5120
S121
S122
5123
5124

5130
5131
5132
5133
S134
5135
S136
5137
5138
5139
5140
S141
5142
5143
S144
5145

from (O

if (.ICST_ADDR

S5
S0
B8 S5
Be S5
S5
S5
B
Se
B
BE
B
B0
WS B
BE
B
BE BE
@

000000
000004

lequ 4

LSLUN =

.TEMP_UNIT;

RESTORE UNIT NUMBER
SOFT ERROR PRINTOUT OCCURED

.sz_m_nmtfo = TRUE;

lse

PRINTF (DBM109, .ELOG_PKT [.index, EL_FORMAT]);

! UNKNOWN ERROR-LOG FORMAT

'1JSD REV A

if not (.SFT_ERR_PRINTED)

then

EXTRA CARRIAGE -RETURN/LINE -FEED

PRINTB (CRLF);

PRINT ERROR-LOG CONTENTS

EMS_EL (.index);

end;

.P_INDEX geq O

PUT_PKT (.P_INDEX);

! RETURN COMMAND PACKET TO POOL

then

end;

0000206

IF ASSOC CMD PKT WAS FOUND

! ROUTINE DISK_RSP
.SBTTL

SEQUEN: JSR

CLRB

SEQUEN RORX INTERRUPT SERVICE ROUTINES

R1, $SAVES
-(SP)

+ SFT.ERR.PRINTED

4983
4998

Fl4
=3

157

SPIDERSUSERS: ([DOUCETTE .FALCONICNRGAA BL.O;. (S1

MSCP.PKT+14(R0O),14(R1)

S011

cHP
BEQ

g%CP.PKY(RO).(RI)

5012

7ST8

g:;ch.wrozz(m)

;

S013

BITB

9360, ,MSCP .PKT+10(RO)

5014

000022

TSTB

22(R1)

5015

000000G
000156

MOVB

0000126 000012

000014G 000014
000000G

0000226
000360

000010G

0000006

2%:

000013
0000006

3s:

023516’
000156’

0000006

000C22

20211

S5%:

000012

000030
000156

177760

64:

24
PKT.USE(R2),RO

g?.lcn.a

JSR

8IC

;

*(COUNT),s

S008
5010

S019
S018
S008

:
H

5023
5025

5030

ICTLR,RO

¢,R.INDEX

;3 R.INDEX

; «,SRC.ADDR

S035

; R.INDEX,=

S036

; *,SRC.ADDR

;

#177760,R0

5016

3 COUNT,»
H
3 COUNT

H CM'-.

BLE
TST

TST
TS7

s COUNT
3 COUNT,»

PC,BLSMUL
(SP)+,(SP)«
g‘.;‘;CP.PKTdZ(RO).lZ(Rl)

0000006

MOV
MOV
JSR
CMP
cHP
BNE
cHP

!g b

1%:

MO D~

100010
116200
020037
001003
010237
000406
005202
020227
003731
005737
002002
000137
013746
004737
010005
005726
005705
002526
013704
062704
010546
012746
004737
062700
010003
010002
013701
012700
012423
126127
001005
020027
001002
062704
005200
020027
003762
013700
042700

SEQ 07%3]

5010

R2
R2,-(SP)
2104, -(SP)

5332839

105741

IPKT ,ADDR,R1

VAX-11 Blises-16 v3-555

CLR

383383

001031
026061
001025
026011
001422
105760
100417
132760
001013

MOV

000000G

g 338

013701
005002
010246
012746
004737
022626
026061

3nIRERIRI233238033837

000012
000014
000016
000022

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

NRQAM3
vo1.0

»,R.ADDR

H
: #,COUNT
:+ SRC.ADDR,DST.ADDR
i

5044
5038
S040
S044

3 COUNT,»

5047

: #,SRC.ADDR
i COUNT
] CMT.‘

S049
5038

S053

GLLg
15-Dec-1983
14 -Dec-1983

RD/RX EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

#17,2(R2)
RO,2(R2)
P.INDEX,R4

000017
000002
000002
0000006

5055

8s
RO
22(R1),R0
RO, 4241

N
o N
N
N
"

e
s

DVDVDODDD

AN
A

8.
8%
8
8
"

"R
ee

+ereee»

HEEP.PKTOSA(RO).26(RZ)

MSCP .PKT+26(R0),44(R2)
MSCP.PKT+30(R0),46(R2)
MSCP.PKT+46(R0),50(R2)
MSCP .PKT+50(R0),52(R2)
MSCP .PKT+32(R0),24(R2)

@104, -(SP)
PC,BL $MUL
MSCP .PKT+24(R0),12(R2)

7%:

S059

000220

;

7%
RO, 9242
74
RO, #220
84
R4,(SP)

000242

000022
000241

5065
5067

5069

9s:

;

000024
000037

10¢

@177740,(R3)

177740
000001

000170’

000170*
000012
000014

000172’
000174’

000102
000000G

118
@#1.LAST.PKT(RO)
124
LAST.PKT(RO)
12(R2),LAST .PKT+2(RO)
:;(R?).LASY.PKT.Q(RO)

104
114
12¢:

R3,(SP)
€102, -(SP)

13s:

000000G
000156’

B8ISB

000000G
000006G 000012

MOV
cHP

PC,BLSMUL
RO,RS
(SP)e
RO
ELOG.PKT(RS),RO
RO,ICTLR
268
IPKT.ADDR,RO
ELOG.PKT+6(RS),12(RO)

000010G 000014

cHP

StOG.PKYOIO(RS).IQ(RO)

TST

2648

,
NDEX

8s:

156100
020027
001406

SEQ 0%R2
VAX-11 Bliss-16 v3-555
Page 152
SPIDERSUSERS
: [DOUCETTE .FALCONJCNRQAA .BLZ (51

142762
150062
013704
002447
005000

10:35:57
11:35:15

5072

S034

5078

5075

S076
5078
S075

INDEX
s
INDEX,

S083
5085
5087

126527
001140
013716
012746
004737
005726
005760

001123
126527
101104
010316
004737
013702
012700
010004
063704
016546
111401
042701
020126
001012
032714
001407

CMPB
BNE
MOV
MOV
JSR
TST
TST

000001G 000001

000156
000006
0000006
000170

000016G 000004
000000V
0000006
000006

000106’
0000126

BHI

177774

177760

0000006

066007

000000

156500
006300
104457
000074

000012
000044
0000166

001040
001042

5100

LSLUN,R2

«,TEMP UNIT

5101
5103

#6,R0O
RO,R4

ICST.ADDR,R4
ELOG.PKT+12(RS),
-(SP)
(R4),R1

s ,OFFSET

OFFSET,»

5105

5109

R1,LSLUN

15¢:
16%:

18%:

164

#12,R0
RO, 044

14
RO
ELOG.PKT+16(R5),R0O
RO
P.AAA(RO),PC

74
0

»,0FFSET

OFFSET,»

5108

5103
5113

Cese dispatch

5116

19¢:

0
234
57

5113
S51i8

208

0
0
234
57

5113
5120

21¢%;

238
57

S113
5122

001010

001014
001016
001020
001022
001024
001026
001030
001032
001034
001036

s
INDEX,

5097

15
€40000,(R4)
15%
(R4),R1
R1
#177760,R1

040000

010137
000405
062700
020027
003747
005000

PC,BL $MUL
(SP
LAST.PKT(RO)
254
04
ELOG.PKT+16(RS),
244
R3,(SP)

@177774
,R1
R1,(SP).

011401

000301
042701

01
ELOG.PKT+1(RS),
26%
ICTLR,(SP)

PC,SOFT.ERROR

14%:

N
-

INTERRUPT SERVICE ROUTINES

SEQ 0°
P
VAX-11 Bliss-16 v3-555
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .8

r‘*

RDRX

10:35:57
11:35:15

15-Dec-1983
14 -Dec 1983

RD/RX EXERCISER

Hid

22%:

76
0o
o

77
0o
0
234
57

S113
5124

L14

001044
001046
001050
001052
001056
001064
001066
001074
201076
001102
001106
001110
oo1112
001114

001116
001122
001124
001130
001132
001136
001140
001142
001146
001150
001152

15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RC/RX EXERCISER

NRQAM3
gOI.O

RORX

000100
000000
000000
010237
112766
000413
032766
001007
012716
012746
010600
104414
005726
010316
004737

005203
020327
003601
013700
002403
010016
004737
022626
005726
000207

INTERRUPT SERVICE ROUTINES

000000G
000001
000004

23s:

000004

24%:

000001
0000006
000001

000000G

000013

25%:
26%:

0000006
000000G

27%:
284:

.WORD
. WORD
. WORD

MOV

MOVB
BR
BIT
BNE
MOV
MOV
MOV
TRAP
1ST
MOV
JSK

INC
CcHP
BLE
MOV
BLT
MOV
JSR
cHe
TST

VAX-11 Blies-16 v3-555

SEQ O%m4

160

SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA 5?3 (S1

100
0
0
R2,L$LUN
1,4(SP)

TEMP.UNIT,»
«,SFT.ERR.PRINTED

01,4(SP)

¢ ,SFT.ERR.PRINTED

254

25%
O@CRLF,(SP)

5127
5128
5097
S134

S136

e1,-(SP)

; SP,s

SP,RO
14
(SP)+
R3,(SP)
PC,EMS.EL
R3
R3,013

134

quo‘

5138

INDEX

5085

Imx.‘

P.INDEX,RO

S141
5143
4998
4983

RTS

$CODES
310 words,
Routine Base:
i Maximum stack depth per invocation:
12 words

i Routine Size:

.PSECT
P.AAA:

000012
000036

17%:

$PLITS,

RO ,

CASE Teble for SEQUEN+0766

[18%])
[19s)
[208)
[21%)
[22¢)

5113

J14
NRQAM3

RO/RX EXERCISER

\;ox.c
3

RDRX INTERRUPT SERVICE ROUTINES
5146

3148

;
3

5150
5151

!
!

5153

g{gz

i
i
H

5149
5152

5154

5157

5159

5161

;

:
:
H

;
'l

IPKT_ADDR - ADDRESS OF MSCP PACKET CONTAINING ERROR LOG

MESSAGE

ICST_ADDR - ADDRESS OF THE INTERRUPTING CONTROLLER'S CST

SAVE_ADDR : ref block [EP_LEN, word) field (EP_FIELDS),

5163

S167

g{g:
5171
g{‘;g

SRC _ADOR,

DST_ADDR,
TEMP_UNIT,
SFT_ERR_PRINTED : byte initial (byte (FALSE));

: FIND AN EMPTY SLOT IN THE ERROR-LOG PACKET SAVE AREA
-

incr COUNT from O to EP_CNT -

5174
S175

5176
5177
5178

:
3
;

5180
5181
g%g

index : signed word initial (-1),

5162

:
;
;

IMPLICIT INPUTS:

loceal

S168

THIS ROUTINE HANDLES ALL DATAGRAM (ERROR LOG) MESSAGES RECEIVED FROM

1 do

if .ELOG_PKT [.COUNT, EL_CONTENTS] eql EMPTY
then
in
index = .COUNT;
exitloop;

5179

' IF EMPTY SLOT FOUND
!

SAVE INDEX INTO THE SAVE AREA

end;

!
:

IF AN EMPTY SLOT FOUND,

SAVE THE PACKET CONTENTS

:
:

;
:
:
:
:

5186
5187

5188
5189
5190

ADDR = ELOG_PKT + (.index &« EP_LEN s 2);
VE_ADDR [EL _CONTENTS ) = FULL;
sawe “ADDR [EL_CNTR) = .ICTLR;

! ADDRESS OF THE SAVE AREA
! MARK IT FULL
! OMNERSHIP

3{3‘5

incr CM_T from 1 to (C.IPKT_ADDR (MSGLEN] ¢+ 1) 7 2) « 2 do

5198

;

..3!"

SRC_ADDR = .IPKT_ADDR + 6;
DST_ADDR= .SAVE_ADDR + 2;

5196

.u\“x

5191
ggg

5197

5200

5201

! COPY A WORD

DST_ADDR = .DST_ADDR + 2;

SRC_ADDR = .SRC_ADDR + 2;

5199

end;
end

! SETUP COPY ADDRESSES
!

.DST_ADDR = ,.SRC_ADDR;

SEQ 03%aS

Page 161

SPIDERSUSERS: [ DOUCET
TE .FALCONICNRQAR BL2 (52

THE RDRX

5160

begin

5164
5165
5166

5158

:
;
:

14 -Dec -1983 11:35:15

VAX-11 Blies-16 V3-555

routine DATAGM : novelue =

15-Dec-1983 10:35:57

! UPDATE ADDRESS POINTERS

K14

RDRX
5202
5203

INTERRUPT SERVICE ROUTINES

else

PRINTF (DBM110);

15-Dec-1983
14 -Dec-1983

RD/RX EXERCISER

NRQAM3
vol.C

10:35:57
11:35:15

SEQ 03286
Page
VAX-11 Bliss-16 V3-555
SPIDERSUSERS: [DOUCETTE .FALCON]CNRQAA ELZ (s2

IF EMPTY SLOT NOT FOUND,

PRINT MESSAGE

'JSD REV A

! CHECK IF THE CORRESPONDING RESPONSE HAS ALREADY BEEN RECEIVED
'

f (.SAVE_ADDR [EL_CRN_LO]) eql

.LAST_PKT [.ICTLR, LAST_CRN_LO]) and

(.SAVE _ADDR [El._CRN_HI] eql .LAST_PKT [.ICTLR, LAST_CRN_HI])

then

bogjn

then

.LAST_PKT [.ICTLR,

LAST_HRD_ERR) eql HRD_NOT_OCCURED

IF SOFT ERROR HAD OCCURED

return;
end;

then

.SAVE_ADDR (EL_FORMAT)
n

}_ERROR (.index);

TEMP_UNIT =

_LSLUN;

! UPDATE SOFT ERROR COUNT
!

SAVE UNIT NUMBER AS KNOWN TO DRS

lequ 4

« OF _UN) by UNIT_SIZE do

incr OFFSET from (0O ¢« OF _UN) to (3 & UNIT_SIZE

£ (.ICST_ADDR [.OFFSET, D_DISK_NUM] eql

S5
S5

then

_ICST_ADDR [.OFFSET, D_UNIT];

exitloop:

! CORRECT UNIT NUMBER FOR ERROR MESSAGE

end;

B
B

LSLUN =

case .‘t.iAVE_ADDR (EL_FORMAT) from O to 4 of
se

[0] :

ERRSOFT (60, 0, 0);

! CONTROLLER ERROR

1) :

ERRSOFT (61, 0, 0);

! HOST MEMORY ACCESS ERROR

[2) :

ERRSOFT (62, 0, 0);

! DISK TRANSFER ERROR

[3) :

ERRSOFT (63, 0, 0);

! SDI ERROR

[4]) :

ERRSOFT (64, 0, 0);

! SMALL DISK ERROR

.SAVE_ADDR [EL_DK_NUM]) and

(.ICST_ADDR [ .OFFSET, D_PRES] eql mesem

LSLUN = _TEMP_UNIT;
2z;_ean_varuteo = TRUE;

! RESTORE UNIT NUMBER
! SOFT ERROR PRINTOUT OCCURED

WEORE OBE

tes;

else

PRINTF (DBM109,

.SAVE_ADDR [EL_FORMAT]);

if not (.SFT_ERR_PRINTED)

ERROR LOG FORMAT UNKNOWN

'JSD REV A

L14
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

RORX INTERRUPT SERVICE ROUTINES

vo1.0

5258
5259

then

5261
5262

EMS_EL
end;

PRINTB (CRLF);
(.index);

SEQ 0387
VAX-11 Bliss-16 v3-555
Page 163
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA .BL2 (S2

EXTRA CARRIEGE -RETURN/LINE -FEED

!
!

PRINT PACKET CONTENTS
CORRESPONDING RESPONSE RECEIVED

end;

.SBTTL

DATAGM RDRX INTERRUPT SERVICE ROUTINES

JSR
MOV
CLRB
CLR

.PSECT

023522

0000006
177777

000102

DATAGM:

1%:

MOV

0000016

$CODES$,

-(SP)

R1
R1,-(SP)
€102, -(SP)

+, INDEX
SFT.ERR.PRINTED
COUNT
COUNT,
«

COUNT
, =+
COUNT

24:

i+ INDEX

3s:

000156’

3337343808 373888333238

000170

000172
000176

S177
5176
5172
5185
5188

4%:

S$:
64:

S172
S174

PC,BL $MUL
(SP)+,(SP)e«
ELOG.PKT+1(RO)
T
, INDEX
COUN

000116

5146
5158

5189
5190
5191

5192

5194

(R2)+,(R3)»

R1,RO
5S4
. ( SP) +
(SP)s+
ICTLR,(SP)
06, -(SP)

:+ SRC.ADDR,DST.ADDR
i COUNT
) CM'.‘

5196

5194
5187
Se1e

M14
15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

RORX INTERRUPT SERVICE ROUTINES
JSR

000000G

000006

000172’

000010

000174°
TST

000170’

000016
000000V
0000006
000006
000106
000012

000004

BHI

7%:

000016

000012’

000076
000411

104457

000077

«(SAVE.ADDR),

;

#(SAVE.ADDR),
=

LAST.PKT(RO)
18¢
94
16(R4),
174

PC,SOFT.ERROR
LSLUN,R2
96,RO
RO,R3

ICST.ADDR,R3

S217

;

#(SAVE.ADDR),»

5220

;

INDEX,#

5223

;
;

&, TEMP UNIT
«,0FFSET

5226

; OFFSET,+
;s

5224

S228

#(SAVE.ADDR),*

5229

(RS) R1

5232

8s:

0177760 R1
RI.LOLUN
9
912,R0

H
; ¢,0FFSET

5231
5226

9s:

74
RO

H
;s «(SAVE.ADDR),*

5236

11¢:

P.AAB(RO),PC
57

13¢:

14%:

RO, 044

16(R4),RO
RO
74

0
0
164

75
0
0
164
57
76
0
0

164
57
77
0
0

104457

5213

8¢
0‘0000 (R3)

12¢:

104457

R1,(SP)+

177760
000000G
000044

(SP)+,(SP)+

6&?4).LAST.PKY.2(RO)
1
{ggfl4).LAST.PKT.4(RO)

12(R4),-(SP)

040000

000012

PC,BL $MUL

(R3),R1
#177774 ,R1

177774

SEQ 0338
Page 164
SPIDERSUSERS: [DOUCETTE .FALCONICNRQAA 8L2 (Se

VAX-11 Bliss-16 V3-555

15¢:

164

OFFSET,»s

; Case dispatch
:

5239

H
H

5236
5241

H
H

S236
S243

H
:

S236
S245

5236

15-Dec-1983 10:35:57
14-Dec-1983 11:35:15

RD/RX EXERCISER

RORX INTERRUPT SERVICE ROUTINES
000100
000000
000000
010237

16%:

112766
005726

000512
000514
000516

000412
032716
001007
012746
012746
010600
104414
022626
010546
004737
005726
005726
000207

i Routine Size:

i Maximum stack depth per
000012
000012
000014
000016
000020
000022

17%:

18%:
19¢:

.WORD
.WORD
WORD

MOV

MOVB
TST
BR
BIT
BNE
MOV
MOV
MOV
TRAP
CMP
MOV
JSR
TST
TST
RTS

Routine Base:
$CODES
11 words

invocation:

SEG 0389

165

SPIDERSUSERS: (DME"'E.FALCMICMW.;S (S2

100
0
0
R2,LSLUN
#1,2(SP)

TEMP ,UNIT,

(SP).
18¢

#1,(SP)
18¢

4,SFT.ERR.PRINTED

5251
S222

4,SFT.ERR.PRINTED

5257

OCRLF
, -(SP)

5259

; SP,s

SP,RO
14
(SP)+,(SP)+
RS, -(SP)
PC,EMS.EL
(SP)+
(SP)+
PC

INDEX,
s+

S261
5215
5146

23522

$PLITS,

SRR

vo1.0

VAX-11 Bliss-16 Vv3-555

RO,

CASE Teble for DATAGM+0356

[11%)
[12¢)
[133)
[145)
(15¢)

5236

N At

HD Ax EXERCISER

RORY

Dec 1983 10:3%:57

14 Dec 19%% 11:35:1%

INTERRUPT SERVICE ROUTIMES

’

“age

THIS ROUTINE UPDATES THE SOFT ERROR COUNT

e ‘e

routine SOFT ERROR (INDEX) : nOveise -

e Ve

EAROR LOG MESSAGE RECEIVED

TABLE FOR EACH

e
.

TALLY

te initiol (pyte (FALSE)),

SOFT
: byte initiel (byte (FALSE)),
UNIT; %o
ERROR
: byte,
TALLY _ADDR : ref block [TALLY_LEN, word) fielo (T _FIELDS),

ELOG_ADDR : ref block [EP_LEN, word) field (EP FIELDS);
ELOG_ADDR » ELOG_PKXT + (.index o EP_LEN ¢ 2);

PACKET

UNIT

IN To€

IPLICIT INPUTS:
ICST _ADDR - ADDREZS OF THE INTERRUPTING CONTROLLER
S CST

FOUND ;

SIS

—-----8—-——---————-.-.-—s.-—

w0l .0

VAXZ - 11 Bl es 16 ¢ 58S
SPIDERSUSERS:
[DOUCE T TE _F ALCONIONR

_CODE

€L
* ELOG
*
M.%R‘.uw.“t&.-m&h

! ADDRESS
OF ERROR L

ERROR SUBCODE

ingr OFFSET from (O « OF _UN) to (3 o UNIT_SIZE « OF _UN) by UNIT _SIZE do
if (.ICST_ADDR [.OFFSEY, D_PRES) eql PRESENT) and

! MAP DISK NUMBER TO

(.ICST_ADDR [.OFFSET, D_DISK _NUM] eaql .ELOG_ADDR (EL _DK_NUM])

§sgesds §

3508
S

i
'
i
i
i
:

]
'
i
:
i

;ioe
$310
Sgl
$51
$31
$514
$51S

$516

S5
$518
5319
5320

P8
e,
T « _ICSTY_ADDR [ .OFFSET, D_UNIT);
exitloop

ond;

! UNIT NUMDER OF DIS

{80800 (- BERER,
! SOFT ERROR FLAG

SOFT_OCCURED = TRUE;

! IF UNIT NUMBER FOU

if .FOUND
then

LY _ADDR = TALLY o (.UNIT ¢ TALLY_LEN » 2);

! ADDRESS OF TALLY T
! FOR SOFT ERRORRS

.SOF T _OCCURED
if
then

selectoneu .ERROR_CODE of
set

[ST_WFE):

TALLY_ADDR [ERR_SFT_SEX) = .TALLY_ADDR (ERR_SFT _SEX) « 1,

! SOFT - MEDIA FORMA

[ST_OAT):

! SOFT - DATA

.ERROR_SUB eal 2

TALLY_ADDR [ERR_SFT _SEK) = .TALLY_ADOR [ERR_SFT _DAT) - 1

HD /Ax EXERCISER
RORX INTERRUPT SERVICE ROUTINES

L
NHRQGAM

vo1.¢

15 Dec

14 Dec 1983 11:35:15

YTM

e.ve

TALLY

ADDR

[ERR _SFT DAT])

(ST _mST):

TALLY _ADDR [ERR _SFT MST)

[ST_CNT):

CERR_TBL [.ICTLR,

(ST DRV]:

:' .ERROR_SUB eql 3
nen
R
TALLY_ADDR [ERR_SFT_SEx]

_TALLY ADDR [ERR _SFY DATY)

else

tes

else

TALLY _ADDR [ERR_SFT DRvV]

if (.ELOG_ADDR {EL-CIN-LO

( .ELOG_ADDR

then

EL_CRN_HI]

167

.C ERR_TBL [.ICTLR, C_ERR_SFT)

_TALLY_ADDR

[ERR_SFTY _SEX)

.TALLY_ADDR [ERR_SFT _DRV)

! SOFT

- MOST ACCESS

1;
! SOFT

- CONTROLLER

! SOFT

- DRIVE

eal 0) end

eql 0)

selectoneu .ERROR_CODE of
et

[ST_MWE):

TALLY_ADDR [ERR_HRD_SEK)

[ST_DAT]):

_TALLY_ADDR [ERR_HRD_SEK)

! HARD - MEDIA FORMA

.ERROR_SUB eql 2

mtuv_m [ERR_HRD SEK) = ,TALLY_ADDR [ERR_MRD_SEK] + 1

[ST_HST):

TALLY _ADDR [ERR_MRD_HST]

[ST_CNT]:

C.ERR_TBL (.ICTLR, C_ERR_HRD) =

[ST_DRV):

.ERROR_SUB eql 3

TALLY _ADDR [ERR_HRD_SEK]

.TALLY_ADDR (ERR_MRD _SEK)

TALLY_ADDR [ERR_MRD DRV]

,TALLY_ADDR [ERR_MRD DRV)

tes;

! HARD

- DATA

‘.TN.LV_W [ERR_HRD _DAT] = .TALLY_ADDR [ERR_MRD_DAT) + 1;

el.se

.TALLY_ADDR [ERR_HRD_HST)

! HARD - MOST ACCESS

.C_ERR_TBL [.ICTLR, C_ERR_MRD)

0'1l

HARD - CONTROLLER

! MARD - DRIVE

end

! UNIT NOT FOUND

elae

&
&3 ) St 313 33 VAABRVBARAALN
33333330133
ettt
33\.U;UUUUU“U“OUUUUUUU\I\!UI‘U
334
W= OL

[CEV
IV IV IV IV ]

I e

5532

SPlKROUQEQSHMHE.’OLCMICWW.:S (%3

_TALLY ADDR [ERR_SFT mMST)

CERR SFT)

SEQ 01

VAX-11 Blies-16 v3-55S

1983 10:35:57

if .SOFT_OCCURED

then

C.ERR_TBL [.ICTLR, C_ERR_SFT] = .C_ERR_TBL (.ICTLR, C_ERR_SFT] . 1

else

C.ERR_TBL [.ICTLR, C_ERR_MRD) = .C_ERR_TBL [.ICTLR, C_ERR_MRD) . 1,
! ROUTINE SOFT_ERROR

end;

.SBTTL

SOFT.ERROR RDRX INTERRUPT SERVICE ROUTINES

[

Ui
RD/RAx EXERCISER
RDRX INTERRUPT SERVICE ROUTINES

15 Dec 1983 10:35:57
14 -Dec-1983 11:35:15
.PSECT

02424’

0000006

SOF T .ERROR:

JSR
cve
CLR8S

000002
000022
000102
0000006
0000006

CLRB
MOV
MOV
JSR
ADD

000020

MOVB

MOV

177740

B8IC

CLR8
8IS

000020

18:

8IC
cHe
BNE

MOV

MOV
SWAB
8IC

it
000012

s
000001
000006

120227

000010
000064

2(SP)
22(SP), -(SP)

PC,.BLSMUL
®ELOG.PKT
RO
RO,R4
20(R4),RO
@177740,R0

: FOUND
i SOFT
. OCCURED
+

S27s

INDEX,e

i *,ELOG.ADDR
i ¢(ELOG.ADDR),»

5287

ERROR
. CODE

., CODE
« ,ERROR

«(ELOG.ADDR)
,ERROR ., SUB
ERROR
. SUB

S288

ADD
BIT

MOV

177760

001014
012701

S265

MOV

000001

001444

-(SP), -(SP)

B8IC
MOV

BEQ

177774

000005

R1, $SAVES

ASR

000012

000001

168

ASR
ASR
ASR
ASR

000106’
040000

032766
001455
120227

SE0.0!'O?

SPIDERSUSERS: [DOUCET TE .F ALCON ICNRQAR m (53

MOV

174000
000006

000004
000070
000000G
0000006

SCODES,

VAX-11 Blies-16 v3-S55

24:
36:

ADD

SLe
HOVB
ROR

B8CC

000010

NRQAMS
\;01.0

MOV
MOV
JSR
ADD
81T

BEQ

cHP8

12(R4), -(SP)

(RS), -(SP)

¢(ELOG.ADDR),»

5293

0177774 ,(SP)

(SP)+,(SP)s
2%

o1,R1

(RS), -(SP)
(SP)

0177760,(SP)

i +,FOUND

5297

(s?)o +A(SP)

s ,UNIT

o12,R0
RO, 044
18
#1,6(SP)
R1

s, 0FFSET

5290

FOUND

s,SOFT,0CCURED

5304
5306

i UNIT,»

5309

+ #,SOFT,0CCURED

5311

17¢
4(SP),(SP)

OFFSET,
s

5295

PC,BLIMUL

OTALLY,RO

:}. 10(SP)

5318 |

cHP8

5516
53513

MOV

5320

BEQ

BNE

E‘ lr)
15-Dec 1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

4%
:

Ss:

64:

7%:

8s:
9¢:

000010

10¢:
116:

12¢:

000474
000476
000510

134;

PR 223 383730838

INTERRUPT SERVICE ROUTINES

UL PU LU PLLEF L B i

RORX

RO,.R1
R3,02

10¢
Ra

VAX-11 Bliss-16 v3-555

SEQ 039

169

SPIDERSUSERS: [DOUCET TE . F ALCON JCNRQAA B.L.; (53
+ ERROR.SUB,
»

%318

5320

1(R1).R4

R4
R4, (R1)

16$

5318
$313

R2,011

5S4
67(RO)
16$

Rf.012
6

«(TALLY,.ADDR)

ERROR.CODE,»

ICTLR,R1

5326

C.ERR.TBL+1(R1)
16%

R2,013
16¢
R3,03
8s

64(R0O)
164
66(RO)
16¢
6(R4)
16%
10(R4)
16¢
R2,05
14

R2,010
11¢

#60,R1
RO,R1
R3,#2

104
(R1)
16¢
1(R1)

+ ERROR.CODE,+

5329

s «(TALLY.ADDR)

5331

: «(TALLY.ADDR)
| +(ELOG.ADDR)

S333
3313
5337

+ ¢(ELOG.ADDR)

5338

+ ERROR.CODE,»

5340
5343
5340

+ ERROR.CODE,+
TALLY.ADDR,
»

. EW.S\!.‘

3 «(TALLY.ADDR)
;+ ERROR.CODE,»

R3,03

15%

5347
5345

5347
5345
5349
5340

5351

5340

5353

C.ERR,TBL(R1)
164
R2,013
164

5313

+ ERROR.SUB,»

ERROR.COD, E
»

R2,012
134
ICTLR,RL

5324
S313

+ ERROR.CODE,»
+

ERROR.SUB,
»

5340
5356

F15
NRQAM3

RD/RX EXERCISER

\)101.0

000512

RDRX INTERRUPT SERVICE ROUTINES
105240

000516
000520
000524

000 .02
105260
005726

000530
000534
000536
000542

013700
006300
062700
032766

000552
000556
000560
000562

105260
000401
105210
062706

000526

000550

000566

000415

001403

000207

Routine Size:

000060

144

000062

15¢:
16%:

000156

17s:

o
.

5374
5375
5376
5377

INCB

60(RO)

194

18s:
19¢:

5306

INCB
BR
INCB
ADD

1(RO)
19
(RO)
#10,SP

RTS

Rout ine Base:
$CODEs
invocetion:
12 words

+ 24242

end
eludom

Words
343
5389

Attributes
RO,
I
,
.
3
o

RO,

LCL,
EAks

REL,
WL,

LCL,

REL,

CON
AN

CON

LIBRARY STATISTICS
-------- Symbols -------Totel
Loaded
Percent

SPIDERSUSERS
: [DOUCETTE.FALCONICNRQAA .L16;7

PSECT SUMMARY

File

5358

0TS external references
.GLOBL
$SAVES, $SAVE4, $SAVE3, $SAVE2
.GLOBL
BLS$SHF, BLSDIV, BLSMOD, BLS$MUL

SPLITS

: o(TALLY ADDR)

MOV
ASL
ADD
BIT

457

360

Blocks
Read

119

COMMAND QUALIFIERS
BLISS /PDP11 CNRQAA.BL2/LIST=CNRQAA.LI2/0BJECT=CNRGAA.0B2/SOURCE
=PAGE :56

SEG 0%%4
age 170

SPIDERSUSERS
: [DOUCETTE .FALCON ICNRQAA , uz (S3
i
: «(TALLY.ADDR)
3

188 words,

Psect Name
$GGG
$CODE ¢

VAX-11 Bliss-16 v3-555

16
62(RO)
(SP).

BEG

000001
000010

14 -Dec-1983 11:35:15
BR
INCB
TST

0000006
000001 000006

Max imum stack depth per

15 -Dec
- 1983 10:35:57

5356
5360
5308

5369

i ¢,SOFT
. OCCURED

%367

H
:
:
:

5369
5367
5371
5265

G15
15-Dec-1983 10:35:57
14 -Dec-1983 11:35:15

RD/RX EXERCISER

NRGAM4

RDRX

INTERRUPT SERVICE ROUTINES

SEQ 0.
Y aqe i 72
SPIDERSUSERS: (DOUCETTE .FALCON JCNRQAR .82 ( %4

VAX-11 Blies-16 v3-555

module NRQAM4 (

stitle

'RD/RX EXERCISER’
ident = 'V01.2',

addressing mode (absolute),
environment (noeis)
=

)

begin

'LASTAD AND SETUP’

ssbttl

librery 'CNRQAA.L16';
!

'BLSMAC.REQ’;

DIAGNOSTIC SUPERVISOR LIBRARY

require

LASTAD

VoV

vov

BE
S5
B0

BGNPTAB
ENDPTAB

INIT_IP_ADOR, INIT_INTR_VECT, INIT_BR_LEVEL, %o’'100034', O, RD_MAX_LBN
IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

xnxr,xv_?ooa.

INIT_INTR_VECT,

INIT_BR_LEVEL, so’100001’', O, RX_MAX_LBN

IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

BGNPTAB

ENDPTAB

BGNSETUP (3)

A
s

°v

ENDPTAB

INIT_IP_ADOR, INIT_INTR_VECT, INIT _BR_LEVEL, %o’'100002', O, RX_MAX_LBN

¢ IP, VECTOR, BR, DISK ADDR, START BLOCK, END BLOCK

BGNPTAB

ENDSE TUP

LTITLE
. IDENT
.ENABL
.PSECT

BLSLAS:
: . WORD
. WORD

176150
000154

P.AAA:

,WORD

P.AAB:

.WORD

100034

052137

P.AAC:

. WORD

. WORD
. WORD
. WORD
. WORD
.WORD
.WORD

.WORD

NRQAM4 RD/RX EXERCISER
/V01.2/
AMA

$XYZ$,

T$FREE
<<TOFREE
- <BLSLAS+4>>/2>
% SLAST+24

-1630
154

; Plit count word

-77744

52137

tOLASToSO

Plit count word

H15
NRQAM4

RD/RX EXERCISER

gOI.‘

000030
000032

000034
000036
000040
000042

000044
000046
000050
000052
000054

000056

15-Dec-1983 10:35:57

LASTAD AND SETULP

14 -Dec-1983% 11:35:15

176150
000154

P.AAD:

000000
000006
176150
000154
000004

P.AARE:

000004
100001
000000
001437

.WORD
.WORD

.WORD
.WORD
. WORD
. WORD

.WORD
.WORD
_WORD
-WORD
.WORD

P.AAF:

100002

.WORD

-1630
154

4
-77777
0
1437
0
6
-1630
154
4

000000

.WORD

000064

000000

TSFREE:: .WORD

001437

. WORD

000004

LSLAST==

000024

S$LAS3=

000003
00N004
000010’

1437

BLSLAS
4

TSPTHY==
$LASA=
$REM4 =

000030
000044
000050

SREM3=
$SLAS1=
$REM2=

-77776

000060

000062

3
P.AAA
P.AAB
P.AAC

SBTTL

P.AAD
P.AAE
P.AAF

SEND.LINK LASTAD AND SETUP

i Routine Size:
1 word,
Routine Base:
$XYZ$ + 0066
i Maximum steck depth per invocation:
O words
:
[
H
3

6902
6903
6904

’

end

eludom

PSECT SUMMARY

Psect Name

Words

$XYZ$

'
O - oo TR
WY
:
File
’

Attributes

RO,

LCL,

REL,

CON

LIBRARY STATISTICS

el ST

S TR e S RO OF Lo e
il Symbols -------Total
Loaded
Percent

SPIDERSUSERS:[DOUCETTE.FALCONICNRQAA.L16;7

457

Blocks
Reac
17

COMMAND QUALIFIERS
BLISS /PDP11 CNRQAA.BL2/LIST=CNRQAA.LI2/70BJECT=CNRQAA.0B2/SOURCE
=PAGE : 56
Size:
Run Time:

$390 code ¢« 380 date words
03:11.7

Memory

411

El..“ Time:
Used:

10:10.4

Cono ation Complete

SEQ 07
VAX-11 Bliss-16 V3-555
Page 177
SPIDERSUSERS: [ DOUCE
T TE .FALCON)CNRQAR .BL2 (54

Plit count word

A IS
15-Dec-1983 10:24:28
14 -Dec-1983
e
e

in producing CNRQAA for the

FALCON-PLUS project
(SBC-11/21+).
Release date December 19, 1984,
C.J
RE..? by James S. Doucette.
All changes are marked by
3

Be
B
B

A",

Se B

1. Lowered the rmrol operating priority of the program from level

grlcvo

6 to allow the BREAK key to

interrupt and

invoke

B
Y

Set the ODT BREAK vector (location 140) to the starting address
of FALCON's ODT ROM (170000-octal).

Due to space limitations,

Changed the default IP address from 172150 to 176150.

messages).

gogBesREEREn i SR

removed all references to DBM's (debug

e
S5 Se S5
BT
S5 S
BE
Se S5
S8
BE
B0
B8 B8
S5
BE B0
B8
B8
S5 B8
Be
e
BE
B
Se
BE
SR
BE B

The following cnmgoc were made to CZRGAB

8888888888808 080888888880888880888288808808880888888088800888800880808888880048
£

LITERALS

.
Ll

!..“““‘.‘.."..‘..“.‘.‘.‘......“.““““‘..“‘.“.““““.‘.““"....“
i

LITERAL

guouo 00T TRAP VECTOR LOCATION

0_TVEC
0_TVEC
0_BRK

- %o’ 14,
= %o’ 140°,
= so’ 170000’ ,

1JSD REV A
1JSD REV A
1JSD REV A - ODT START ADDRESS

sssess HARDWARE ADDRESSES ETC.

INIT_INTR_VECT

= sio’154’,

INIT_BR_LEVEL

= so'4’,

INIT_IP_ADOR
INIT_IP_ADOR

! VECTOR ADDRESS

- o’ 172150’ ,
- #%o’'176150',

¢ IP REGISTER ADDRESS
¢+ IP REGISTER ADDRESS

dupround

= 10,

! number of dbn's read per dup exerciser pass.

MAX_CTLR
MAX_DRIVES
MAX_UNITS

-1,
¢t MAXIMUM NUMBER OF LCP CONTROLLERS ALLOWED
-4,
= MAX_CTLR ¢ max_drives, ! MAXIMUM NUMBER OF UNITS TO TEST

RD_MAX_TRACK

= 1200,

RD_MAX_SECT
RD_MAX_LBN

» RD_SEC_PER_TRK - 1,
! LARGEST SECTOR NUMBER IN RDS1
= RD_MAX_TRACK & RD_SEC_PER_TRK - 1, !MAX LBN FOR RD

! BUS REQUEST LEVEL

!JSD REV A
!JSD REV A

tesssss HARDWARE LIMITS
W

RD_SEC_PER_TRK

= 18,

SEQ 0297

SPIDERSUSERS
: ([DOUCETTE .FALCONICNRQAA .
REQ (1,

REVISION HISTORY

RS
B
B
B
B
SR
S
B
B
e
B
SR
B
W
BB

11:11:10

VAX-11 Blies-16 Vv3-555

! MAXIMUM NUMBER OF TRACKS FOR RDS1

! NUMBER OF HOST SECTORS PER TRACK FOR RDS1

J15
15-Dec-1983

0057
0058
0059

0061

0063

80,

RX_SEC_PER_TRK - 1,
! LARGEST
RX_MAX_TRACK + RX_SEC_PER_TRK -

MAX _TRACK

RD_MAX_TRACK,

MAX_SECT

RD_SEC_PER_TRK,

RX_SEQ_CNT
RD_SEQ_CNT

(RX_MAX_LBN + 1) 7/ 10,
(RD_MAX_LBN + 1) 7/ 10,

BYTES_PER_SECT
MAX_XFER_SIZE

S12,
2 » BYTES_PER_SECT,

10,

SEQ 0398
P
2
SPIDERSUSERS: [DOUCETTE.FALCONICNRQAA
.REQ (1)
VAX-11 Bliss-16

V3-555

TRACKS FOR RXSO

NUMBER OF HOST SECTORS PER TRACK FOR RXS0
SECTOR NUMBER IN RX50
1, !MAX LBN FOR RX

MAX_TRACK

IS THE MAX OF RD_-

AND RX_MAX_TRACK

IT TURNS OUT TO BE RD_... BECAUSE RD IS A WINCHESTER
AS OPPOSED TO A FLOPPY, AND HAS MORE TRACKS
MAXIMUM NUMBER OF SECTORS

0067

0069
0070

BYTES PER SECTOR (AT PRESENT SAME FOR RDs AND RXs)
ARTBITRARY MAX SIZE OF EACH DISK I/0

188020

RING SIZES

CR_LOG
RR_LOG

0079

! NUMBER IS INCREMENTAL DIFFERENTIAL FOR ADDITIONAL RX UNITS
! NUMBER OF OPERATIONS TO DO TO RX50 IN A ROW FOR SEQUENTIAL MODE
! NUMBER OF OPERATIONS TO DO TO RDS1 IN A ROW FOR SEQUENTIAL MODE

! NOTE BOTH OF THESE NUMBERS ARE NOW ARBITRARILY CHOSEN AS THE NUMBER OF LBNS CONTAINED PER UNIT/10 .
- re

0071
0072
0073
0074
0075
0076

0065

11:11:10

MAXIMUM NUMBER OF

RX_MAX_TRACK
RX_SEC_PER_TRK
RX_MAX_SECT
RX_MAX_LBN

14-Dec-1983

10:24:28

CRING_LEN

!
!
!
!

LOG2 LENGTH OF COMMAND RING
LOG2 LENGTH OF RESPONSE RING
COMMAND RING LENGTH
RESPONSE RING LENGTH

RRING_LEN

2,
2,
1 + CR_LOG,
1 * RR_LOG,

TABLE AND OTHER STRUCTURE SIZES

182388

HWPT_LEN

6,
(RRING_LEN & 2)

LAST_PKT_LEN
OFFSETS!t
OF _UN

UNIT_SIZE
CST_LEN

S,
! SIZE OF CST UNIT ENTRY
OF _UN + 4 & UNIT_SIZE,
! SIZE (WORDS) OF A CONTROLLER STATUS TABLE

BE S5

COMM_LEN

! WORD OFFSET FROM START OF CST TO FIRST UNIT

BE S5

18sssse

SIZE (WORDS) OF HW P-TABLE
+ (CRING_LEN » 2) + &,
SIZE (WORDS) OF COMMUNICATION AREA FOR ONE CONTROLLER
LENGTH OF BUFFER TO SAVE INFO. ABOUT LAST RESPONSE PACKET

0100
0101
0102
0103
0104
0105
0106
0107
0108
0109
0110
o111
o112

! SIZE (WORDS) OF STATISTICS TABLE CLEARED ON EVERY PASS!‘t

MSG_LEN + 4,

! SIZE (WORDS) OF AN MSCP ENVELOPE

21,
! SIZE (WORDS) OF STATISTICS TARLE FOR STORING TOTALS!t
TALLY_CLEAR » TALLY. TOTALS
! SIZE (MORDS) OF A STATISTICS TABLE
s
¢ SIZE (WORDS) OF CONTROLLER ERROR TABLE
24,
| SI7E CMORDS) OF A RETURN PACKET
MAX_CTLR ¢« (RRING_LEN 7 2) + 2.
! NUMBER OF ENTRIES IN I/O DONE QUEUE (IODQ)
30,
! SIZE (WORDS) OF AN MSCP MESSAGE ( TEXT PORTION)
2

16,

! SIZE (MORDS) OF A DRIVER CONTROLLER TABLE

! SIZE (WORDS) OF THE RANDOM NUMBER TABLE
! NUMBER OF RETURN PACKETS IN POOL
ZE OF USER DATA PATTERN
16,
(CRING_LEN » 2) & MAX_CTLR,
! MAXIMUM NUMBER OF I/0 BUFFERS (SIZE OF BUFF_ADDR AND BUFF _OWN)
(CCRING_LEN = 2)
RRI'G LEN) & MAX_CTLR,
! NUMBER OF HSCP ENVELOPES IN POOL
CRING_LEN » 2,
! NUMBER OF ENTRIES IN A CONTROLLER'S OUTSTANDING CMD LIST

MAX_CTLR = RRING_LEN,

TALLY_CLEAR
TALLY_TOTALS

K15

0113

DP_CNTY

0114
0115
811_6,
!

0121
0122
0123

SEQ 0399
VAX-11 Bliss-16 V3-555
P
3
SPIDE
: [DOUCETTE
R$USE
.FALCONICNRQAA
RS .REQ (1)

! NUMBER OF PRE-DEFINED DATA PATTERNS

= MAX_CTLR # RRING_LEN =+ 3,
! NUMBER OF ERROR-LOG PACKET SAVE BUFFERS
= PKT_LEN - 2 + 1,
! LENGTH OF EACH ERROR-LOG SAVE BUFFER

EP_LEN

11
o118

8158

= 21,

EP_CNT

10:24:28
11:11:10

tssssse 5W P-TABLE FLAGS (SWP_FLAGS)

0124
0125
0126
0127
0128
0129
0130
0131

SWF _TRC
SWF _RDM
SWF _CRC
SWF _DCC
SWF _CuC
SWF _HWC
SWF _UDP
SWF _CST
SWF _DIA

= go'l’,
= go'2’,
= #o'4’,

! DIAGNOSTIC TRACE
! RANDOM SEEK MODE
! READ-COMPARE AT CONTROLLER

= #0'40',
= ¢io’'100',
= #o'200',
= %0'400',

! WRITE-COMPARE AT HOST
'V
-DEFINED DATA PATTERN
! CLEAR STATISTICAL TABLES
! DIAGNOSTIC PACKAGE, WHEN THIS IS SELECTED

SWF _SEQ
SWF _DUP
SWF _FER

= go'1000’,
= gig’'2000',
= %o'4000',

= #o0'10’,
= #o'20’,

0132
0133
0134

0137
gigg

!
! DUP FLAGS FOR DUP EXERCISER (DUP_FLAGS)

g{gz

SWF _HOE

= go’' 10000’ ,

! DRIVE COMPLEMENT COMPLETE
! WRITE-COMPARE AT CONTROLLER

! ALL INTERRUPTS ARE WAITED FOR, E.G. ONLY

! ONE MSCP PACKET IS OUTSTANDING AT A TIME

! RANDOM OR FIXED SEQUENTIAL STEPPING
! RUN DUP DIAGNOSTIC
! REWRITE BLOCKS WHEN "FORCED ERROR” BIT DETECTED

! TREAT ALL ERRORS ALIKE FOR ‘HOE’ DRS FLAG

8{:5

8{:;

S5
SR

0143

SWF _DUP

]

= go'l’,

SWP _DINT

= go'2’',

! DUP CAUSED REININITIALIZATION

!ssssse ENTRY_REASON VALUES

(HOW PROGRAM WAS INVOKED)

01456
0147
0148

START

= 1,

! START

PWR_FAIL
NEW_PASS

= 4,
=5,

! POMER FAIL
! NEW PASS

RESTART
CONT

=2,
= 3,

0149
8%32

0152

!s«ssss DROP UNIT REASONS

0155
0156
0157
0158
0159
0160
0161
0162
0163
0164
0165

DU_USER
DU_CONF
DU_INIT
DU_XFER
DU_HERR
DU_DFATAL
DU_CFATAL
DU_ONL INE
DU_ACCESS
DU_PROTECT
_TIME

8{3.3

! RUN DUP DIAGNOSTIC

! RESTART
¢ CONTINUE

C(LOADED INTO DUR VECTOR)

RS BA

]

0140

15-Dec-1983
14-Dec-1983

8{:3

0168

DU_AV

=0,
= 1,
= 2,

= 3,
- 4,
s 8
=6,
= 7,
= 8,
=9,
= 10,

= 11,

‘!sesssss MISCELLANEOUS LITERALS

!
¢t
!
¢t
!
!
!
!
!
!
¢

USER COMMAND
CONFIGURATION ERROR
INITIALIZATION ERROR
TRANSFER LIMIT REACHED
HARD ERROR LIMIT REACHED
UNRECOVERABLE DEVICE ERROR
UNRECOVERABLE CONTROLLER ERROR
ONLINE FAILED
ACCESS TO LAST TRACK FAILED
WRITE PROTECT CONFLICT
COMMAND TIME OUT

! DEVICE WENT TO AVAILABLE STATE

0173
0174
0175
0176
0177
o178
0179

0183

INI_ATT

. 2,
((%0'200') or (CR_LOG

QIO_PER_CTLR

= CRING_LEN # 2,

MAXXFER
RXS0_BIT
RDS1_BIT
RX_50
RD_51

= 256,
= %0'0',
- %0'a’,
-0,
-1,

)

WR_RING

:
.

ED_OWN
ED_FLAG

= %o’ 100000’ ,
= %o’ 040000,

NUMBER OF HW INIT ATTEMPTS BEFORE FAILURE
3) or (RR_LOG)),

MAXIMUM NUMBER OF OUTSTANDING QIOS PER CONTROLLER
MAXIMUM SIZE (WORDS) OF AN I/0 TRANSFER

BIT IN HARDWARE TABLES MARKING AN RXS0
BIT IN HARDWARE TABLES MARKING AN RDS1
NUMBER FOR RX_SO WHEN SHIFTED RIGHT
NUMBER FOR RX_S0O0 WHEN SHIFTED RIGHT

OWNERSHIP BIT

FLAG BIT

BE
B0
S
B
B
B
BE
B
B
BE
S
e
S5

: PACKET SIZES

OPCODE MASK
ENDCODE DESIGNATOR
ACCESS COMMAND
ONLINE COMMAND
READ COMMAND
SET CONTROLLER CHARACTERISTICS COMMAND
WRITE COMMAND
GET DUST STATUS!t
EXECUTE SUPPLIED PROGRAM
EXECUTE LOCAL PROGRAM
SEND DATA
RECEIVE DATA
ABORT PROGRAM

SZ_ACC
SZ_ONL
SZ'RD
SZ_SCC
SZ_WRT
SZ_GEN
SZ_REC
SZ_SEN
SZ_ELP
SZ_ABT
SZ_GDS

= sidecimal
= sdecimel
= sdecimsl
= sdecimal
= sdecimel
= sidecimel
= wDECIMAL
= #DECIMAL
= #DECIMAL
= #DECIMAL
= DECIMAL

'32',
'36',
'32',
'32',
‘32,
‘'32’',
'28',
‘28',
'18',
‘12',
‘12',

'ACCESS
fON LINE COMMAND
tREAD
$SET CONTROLLER CHARACTERISTICS
IWRITE
{GENERAL PACKET SIZE

[]

= %0'177',
= %o’ 200" ,
= %0’ 20",
- %0'11’,
= %o'dl’,
= %0'4’,
- %0'42',
- %0'1’,
- %0'2',
= %0'3" .,
- %0'4’,
- %0'S’,
- %0'6’ .,

0P _MSK
0P _END
0P _ACC
0P _ONL
OP_RD
0P_SCC
0P WRT
0P _GDS
OP_ESP
0P ELP
0P_SDD
0P_RCD
0P _ABP

:...... MSCP COMMAND MODIF IERS

;

MD_CHP

= so’'40000',

tesssss CONNECTION ID VALUES (MSCP
'

’

(SERVE AS SOURCES

CID_MSCP
CID_TAPE

-0,
-1,

IS ASSUMED

WR-BIT-AND-RING-LENGTH BYTE (USED IN STEP 1 WRITE AND STEP 2 READ)

1esssss MSCP COMMAND PACKET OPCODES

[]

SEO 0400

VAX-11 Bliss-16 V3-555
SPIDERSUSERS: [DOUCETTE. FALCON]CMOAA REQ (1)

zouuo MSCP ENVELOPE DESCRIPTOR

0181

T T T

0169
0170
0171
o172

15-Dec-1983 10:24:28
14-Dec-1983 11:11:10

! COMPARE
t, RETPKT)
DESTINATIONS OF MSCP MESSAGES)

! DISK MSCP
! TAPE MSCP

MLS

0225
0226
0227
0228

CID_DuP
CID_DRIVER
Y
EXR

DIAGNOSTIC AND UTILITIES PROTOCOL

2.
3,

EXERCISER

"“DRIVER”

MESSAGE TYPE VALUES

=0,
-1,
= 2,
= 3,
= 4,
= 3,

!
!
!
!
!
!

SEQUENTIAL (FROM PORT)
DATAGRAM (FROM PORT)
CREDIT NOTIFICATION (FROM PORT)
FATAL DEVICE ERROR (FROM "DRIVER")
COMMAND TIMEOUT (FROM "“DRIVER”)
BLOCK DATA TRANSFER (DUP FROM PORT)!t

MT_SEG
MT_DG
MT_CRD
MT_FATAL
MT_TIMEOUT
MT_BLKDATX

0231

CONTROLLER FLAGS
CIN SET CONTROLLER CHARACTERISTICS COMMAND AND RESPONSE)

Sssbis

CF_ATN
CF_MSC
CF_OTH

= #o' 000200’ ,
= go’'000100',
= #o' 000040’ ,

! ENABLE ATTENTION MESSAGES
! ENABLE MISCELLANEOUS ERROR LOG MESSAGES
! ENABLE OTHER HOST'S ERROR LOG MESSAGES

CF _MASK

= CF_MSC or CF_THS,

! RELEVENT BITS IN CTLR FLAGS WORD

= %o’ 000020’ ,
! ENABLE THIS HOST'S ERROR LOG MESSAGES
= CF_ATN « CF_MSC +« CF_THS,

CF_THS
CF _MASK

UNIT FLAGS

CIN ONLINE COMMAND AND RESPONSE)

= go' 020000,
= go’'010000’',

! WRITE PROTECT (HARDWARE)
! WRITE PROTECT (softWARE)

UF _WPH
UF _WPS

STATUS 7/ EVENT CODE DEFINITIONS

ST_SUC
ST_CMD
ST_ABO
ST_OFL
ST_AVL

= #o'0’,
= go’'l’,
= go'2’',
= go'3’,
= go'4’,

!
¢
!
!
!

SUCCESS
INVALID COMMAND
COMMAND ABORTED
UNIT OFFLINE
DRIVE AVAILABLE

ST_WPT
ST_CHP
ST_DAT
ST_HST
ST_CNT
ST_DRV

=
=
=
=
=
=

!
!
!
!
!
!

WRITE PROTECTED
COMPARE ERROR
DATA ERROR
HOST BUFFER ACCESS ERROR
CONTROLLER ERROR
DRIVE ERROR

ST_MWFE

#0'6’',
go'7’,
%o'10’,
go’'1l’,
go'l2’',
#o'l3’,

= %o'37',

! MEDIA FORMAT ERROR

! MESSAGE FROM INTERNAL DIAGNOSTICS

ST_DIA

= #o'S’,

END MESSAGE FLAGS

BESAES

0273
0274
0275
0276
0277
0278
0279
0280

EF _BBR

= so'200',

! BAD BLOCK REPORTED

EF_1

= #o’'100',

EF_O

EF_2
EF_3

EF_4

= go’'200',

= #0'40',
= go'20',

= so'200',

! BAD BLOCK REPORTED

!
!

EF_S

= go’'100’',

EF_8

= go’' 100000’ ,

EF_6
EF_7

= #o‘40’,
= #o'20',

!
!

SEQ 0401

VAX-11 Bliss-16 V3-555
Page
S
SPIDERSUSERS: ([DOUCETTE.FALCON]CNRQAA .REQ (1)

®e

15-Dec-1983 10:24:28
14-Dec-1983 11:11:10

N15

15-Dec-1983
14 -Dec-1983
= go'2',
=

%0'l’,

EF_11
EF_12
EF_13
EF_14
EF_15

=
=
=
=
=

go'l’,
go'2',
#o' 100000’ ,

!
!
!

EF_17
EF_18

= go'2000',
= #o’'100’,

‘4000,

Se we 8

EF_10

EF_16

EF_19
EF_20
EF_21

so’'40000',
#o'200',

'
!
!
H

!
!

=0,
= 1,

! IP REGISTER
! SA REGISTER

RCIP
RCSA

COMMON SA REGISTER BIT DEFINITIONS

SA_S1

SA_S2
SA_S3
SA_S4
SA_ERR
SA_INT
SA_GO

= %o’ 004000",
= so' 010000’ ,
= go’' 020000,
= go' 040000’ ,
= so' 100000’ ,
= go’' 000200’ ,
= ¢o' 000001’ ,

! STEP 1 STATUS BIT

!
: B
!
:
&
H
vV 4
! ERROR INDICATOR
! INTERRUPT ENABLE DURING INITIALIZATION
! GO BIT TO START FIRMWARE

;

INITIALIZATION STEP READ MASKS

B
e

S5 B0

:uouo RORX LITERALS

= go’' 176000’ ,

‘4 STEP 1 READ BITS

S3_MASK
S4 _MASK

= wo'174377',
= so'174000',

!
!

B
e

= gio’' 174377,

;.
vV

&
4

tesssss COMMAND TYPES

IMM_CMD
SEQ_CMD

NON_SEQ_CMD

= 0,
=1,
=2,

! IMMEDIATE COMMAND
! SEQUENTIAL COMMAND
! NON-SEQUENTIAL COMMAND

:oooo.o ERROR-LOG FORMAT TYPES

FORMAT _CNTR
FORMAT _HOST
FORMAT _XFER
FORMAT _SDI
FORMAT _SDE

=
=
=
=
=

#0'0’',
go'l’,
go'2',
ggo'3’',
go'd’,

!
!
!
!
!

CONTROLLER ERROR
HOST MEMORY ACCESS ERROR

DISK TRANSFER ERROR

'STANDARD DISK INTECONNECT'
SMALL DISK ERROR

;uuu ERROR-LOG BLOCK NUMBER INFORMATION

S1_MASK

S2_MASK

TYPE _LBN
TYPE _RBN

= o' 0000’ ,
= #o'0110',

SEQ 0402
P

€

SPIDEROUSERS:[DMEIYE.FALCM]CMOAA.:!B (1)

= #o’' 20000,
= #o'10000’,
= %o'4’,

VAX-11 Bliss-16 V3-555

S5 Se

EF_9

10:24:28
11:11:10

! LOGICAL BLOCK NUMBER
! REPLACEMENT BLOCK NUMBER

ERRON

1% Dec 1933 10:.4:08
0887
0588
0%%9
0%40

034}
0%42
0343
0%44
0345

0346
0347
0348
05349
03%0

000000000

———

i4 Dec

1983 11:11:10

VAX-11 Bl.es 16 v3 555
SPIDERSUSERS: [DOUCE T TE . F A,

fteseosse LITERALS *OR READABILIT
.
H

vES
*0

TRUE
FALSE

SUCCESS

FAILURE

Browo

%-«g..,
OFFLINE F
A

-0c
elW51
ooumeD o' 177777 ;

!DISK
!DISK
!DISK
!DISK

IS PRESENT IN CONTROLLER
IS NOT PRESENT IN CONTROLLER
MAS UNPROTECTED CUSTOMER LBN'S
MAS PROTECTED CUSTOMER LBN'S

ERROR-LOG SAVE PACKEY FILLED
ERROR-LOG SAVE PACKEY PRINTED
HARD ERROR DETECTED IN RESPONSE PACKET
MARD ERROR NOT DETECTED

I
.

15 Dec
14 -Dec

1983 10:24:28
1983 11:11:10

KO LA s
VAX-11 Bl es 16 v3 955
’o?'
SPIDERSUSERS:
[DOUCE TTE ¥ ALCONICONR AL &F

——

,.0..0..0.0..00.0.00....00000.‘00.000.000000.00000000.0..0.0...........0...00..
L]

'
FIELDS
.
;......0.0..........‘......‘.......‘..0.000.‘.0.....0....0.......0...000......:
'

?mo
:ono“ HARDWARE P-TABLE FIELDS

e _FIELDS »
set

we_1p

* [0, 0, 16, O}.

e
veCTOR
w:rkuu

«
«

WP DISK TYPE

=« (3, 2, 1. 0],

- (3,
4, 1, 0,

P 01
e di
¥

OCO0O000000000000000

_Trx

P“ENDTRX

tes,

- (3,
3, 1, 0],

! IP ADDRESS

! VECTOR ADDRESS
! BUS REQUEST LEVEL

! DISK CALL FIELDS)
t DISK UNIT NUMBER
* DISK TYPE

! RUN DUP EXERCISER

(3. 15, 1, 0],

(S, 0,

- {4, 0, 16, 0],
16, O

WRITE FLAG FOR DUP

! PROTECT CUSTOMER DATA BIT
! BEGINNING TRACK

! ENDING TRACK

;unn COMANICATION AREA HMEADER FIELDS

COM_FIELDS »

z:'cn

3'%
hsp_
.

* (1, 8, 8, 0)

0. 16, 0],
.« ta.
(5, 0, 16, 0

! COMMAND
ADAPTER RING
CHANNEL
NUMBER
FOR PURGES
INTERRUPT

!! RESPONSE RING INTERRUPT

fessses DUP BUFFER FIELD

&.ruun -

NS u~O

233333 §EES3EERELS

T
e
I
T
B

16, O0),
16, 0],

- (3,
0, 16, 0],
- (3, 0, 2, 0],

WP DISK_CP

Alh

{1, 0,
{2, ©,

(0, 0, 16, 0],

130 16 of:
« [0, 12, 4, 0],

€S,

(0, 0,

12, 0

fesssss CONTROLLEF STATUS TABLE (CST) FIELDS

éo!.'t(l.i’!'-

WE%

STATE
B8R _LEV
v_ENT

-« (1. 0. 9, 0],
=

[0, O, 16, 0),

« (1, 15, 1, 01,
-« (2, 0, 8, 0],
- (2, 8, 8, 0],

! VECTOR ADDRESS

! IP ADDRESS

! CONTROLLER STATUS
! BUS REQUEST LEVEL
! NUMBER OF UNITS (DISKS) FOR THIS CONTROLLER

15 Dec-1983 10:24:28

SR
e
SR
e

2RRRRRR

SEEEREREREERLES SEEEEEEEERERENE SEURREN
4
£33 444

DO_ALL
DO @i sk _num
0O TYPE
DO_UNIT
DO FATAL
DO STAT
DO _PRES
DO _PROT
D0 _BEG
D0 END
00 _DBN
DO_ACTIVE

« (3, 0. 16, O}.
- (3. 0. 2, 0],
- (3. 2. 1. o).
- (3. 8. 5. 0}
« (3, 12,1, 0},
- {3, 13, 1. 0).
-« (3. 14, 1. 01,
« (3. 15, 1. O).
- (4, 0, 16. 0).
- (5. 0. 16, O).
« (6. 0, 8, 0]
- (6, 13, 1, o],

0O _COUNT
01_ALL
01_disk num
D1 - TYPE
01 umIT

- (7. 0, 16, O).
- (8. 0, 16, 0],
« (8, 0, 2, 0],
« (8, 2. 1, 0).
- (8. 8, 5. 0]

! DISK O RELATIVE MSCP FUNC COUNTER
' DISK 1 C(ALL FIELDS)
! DISK UNIT NUMBER
' DISK TYPE
! DISK 1 UNIT NUMBER (DRS UNIT)

- (8. 14, 1. O],
- (8. 15, 1. o).

! DISK 1 PRESENT BIT
! DISK 1 PROTECT CUSTOMER DATA BIT

«
«

! DUP ERROR FLAG!?
! NO LOCAL MEDIA OR DUP PROGRAMS FLAG!®
! DISK 1 RELATIVE MSCP FUNC COUNTER

TR
e
e
e
B
e
R
B
W
TR
B
R
S
O
R
e
R
S
B
R
e
SR
e
e
Ee
e
T
SR
S
B
e
e
e
e
S
S
S
e
e
B

VAX-11 Bliws 16 v3.-55S

14 Dec 1983 11:11:10
9!(!'00‘.('5;(”?"!.’&(0‘10"“.% ¢
* DISK O (ALL FIELDS)
¢! DISK UNIT NUMBER
+ DISK TYPE
* DISK O UNIT NUMBER (DRS UNIT)
! DISK O FATAL ERROR BIT
¢ DISK O STATUS BIT
* DISK O PRESENT BIT
¢ DISK O PROTECT CUSTOMER DATA BIT
¢ DISK O BEGIN TRACK
¢ DISK O END TRACK
¢ DISK O RELATIVE DBN!*
! DISK O ACTIVE STATE

D1 FATAL

D1 PRES
01 -PROT

01_BEG
D1_END
1-?
1-ACTIVE
8

1_COUNT

(6. 14, 1. og.
(6, 15. 1. O).

(8, 12, 1, 0},

(9. 0, 16,
« (10, 0, 16, 0},
« (11, 0, 8, 0)
- (11, 18, 1, o],

(11, 14, 1, O],
(11, 15, 1. O).
(12, 0, 16, 0},

! DUP ERROR FLAG!®
! NO LOCAL MEDIA OR DUP PROGRAMS FLAG!®

! DISK 1 FATAL ERROR BIT

! DISK 1 BEGIN TRACK
! DISK 1 END TRACK
! DISK 1 RELATIVE DBN
! DISK 1 ACTIVE STATE

D2 ALL
02 di sk _num
D2_TYPE

- (13, 0, 16, 0),
« (13, 0. 2, 0),
- (13, 2. 1. O).

! DISK 2 (ALL FIELDS)
! DISK UNIT NUMBER
! DISK TYPE

D2 FATAL

(13, 12, 1, 0}.

! DISK 2 FATAL ERROR BIT

{16, 15, 1, 0],

D2_UNIT

D2 STAT
D2_PRES
“PROT
.g
.
.zn
TACTIVE
DUPERROR
02
DS_ALL

DS UNIT
DS FATAL
DS STAT
D3 PRES
03 PROT

(13. 8,

5. O

=
(13, 13, 1. 0},
« (13, 14, 1. O},
- (13, 15. 1. o).
« [14, 0, 16, O],
« (15, 0, 16, 0],
- (16, 0, 8, 0)
- (16, 18, 1, o),
« (16, 14, 1, O},

¢ DISK 2 UNIT NUMBER (DRS UNIT)

! DISK 2 STATUS BIT
! DISK 2 PRESENT BIT
! DISK 2 PROTECT CUSTOMER DATA BIT
! DISK 2 BEGIN TRACK
! DISK 2 END TRACK
! DISK 2 RELATIVE DBN
! DISK 2 ACTIVE STATE
! DUP ERROR FLAG!?

! NO LOCAL MEDIA OR DUP PROGRAMS FLAG! !

« {17, 0, 16, O),
- (18, O, 16, O],

¢ DISK 2 RELATIVE MSCP FUNC COUNTER
! DISK 3 (ALL FIELDS)

- (18, 8, 5, 0
- (18, 12,71, 0],
- (18, 13, 1, O),
« {18, 14, 1. O).
« (18, 15, 1. O],

! DISK 3 UNIT NUMBER (DRS UNIT)
! DISK 3 FATAL ERROR BIT
! DISK 3 STATUS BIT
! DISK 3 PRESENT BIT
! DISX 3 PROTECT CUSTOMER DATA BIT

C1U
15 -Dec-1983 10:24:28

14 -Dec-1983 11:11:10
T

D3 _BEG
D3_END

D3 _DBN
D3_ACTIVE
D3_DUPERROR
D3NODUPMED
D3_COUNT
tes,

= (19, O, 16, O],
= (20, O, 16, O],

=
=
=
o
=

(21,
(21,
21,
I35,
(22,

O, 8, O],
13, 1, 0],
14, 1, O],
15, 3. 0},
0, 16, O]

VAX-11 Blies-16 v3-555

! DISK 3 BEGIN TRACK
! DISK 3 END TRACK

! DISK 3 RELATIVE DBN
! DISK 3 ACTIVE STATE
! DUP ERROR FLAG!?*
! NO LOCAL MEDIA OR DUP PROGRAMS FLAG!*
! DISK 3 RELATIVE MSCP FUNC COUNTER

FIELDS

set

(0, O,

PKT_U

(1, 0, 2, 0].

PKY 0

16, 0],

= (1, 0, 16, 0].

(1, 2, 4, 0]

« {1, 14, 1, 0
= (1, 15. 1, %

CMD_TYPE
MSGLEN

= (2,0, 16, 0
- FS. 0, 16, 0).

HSGTYP

- (4. o a0

CONNID

. 8, 8, 0],

! PACKET DESCRIPTOR (LO ORDER)

! PACKET DESCRIPTOR (HI ORDER - ALL FIELDS)
! PACKEY DESCRIPTOR (HMI ORDER UNIBUS BITS)

! PACKET DESCRIPTOR (HI ORDER Q-BUS BITS)

! PACKET DESCRIPTOR FLAG BIT
! PACKET DESCRIPTOR OWNERSHIP BIT
! COMMAND TYPE
! MESSAGE LENGTH

! MESSAGE TYPE

! CONNECTION ID

GENERIC COMMAND PACKET AND END PACKET HEADER FILEDS

CAN_LO
CRN_HI
DK _NUM
orCODE

- ;s. 0, 16, o A
.o. 16, 0],
.
o. u. o #
-

! COMMAND REF NUMBER (LO ORDER)
! COMMAND
REF NUMBER (HI ORDER)
! DISK ADDRESS (RD/RX DISK NUMBER)
! OPCODE AND ENDCODE

!! COMMAND
MODIF IERS
STATUS (PART OF RESPONSE PACKET)
! SUBCODE (PART OF RESPONSE PACKET)

MODIF
Y
-- 16 6 s,
u.
STATUS _CODE
STATUS_SUBCODE = xo. s. 1, oi
-

CONOVNDUN~O

ek
i
et ok Sk

2332253233

PKT _F
PKT_0

gEgagEes

HEADER FIELDS

PKT_HI

READ, WRITE, AND ACCESS COMMAND FIELOS (FOR COMMAND AND END PACKETS)

L
L2

L4
LS
(0

- (12, 8, 8, 0],
= (13, 0, 8, 0],
[13, 8, 8, 0],

8C._L0
B8C_HI

BUF 0

(11, O, 8, 0},
{11, 8, 8, O],

! LETTER NUMBER 1 | FOR EXECUTE LOCAL PROGRAM COMMAND 0
! LETTER NUMBER 2

(12, 0, 8, 0],

[11, O, 16, o;.

! BYTE COUNT (LO ORDER)

(13, 0, 16, 0),

' 1/0 BUFFER DESCRIPTOR

(12, 0, 16, 0],

! LETTER NUMBER 3
!
!
!

LETTER NUMBER 4
LETTER NUMBER S
LETTER NUMBER 6

t BYTE COUNT (HI ORDER)

SPIMROUSERS:(MHE.FALCW)C"NA.:PG (e

(NOTE: BASE ADDRESS OF PACKET REFERENCES THE PACKET'S OWN
BUFFER DESCRIPTOR, RATHER THAN THE MESSAGE BODY (TEXT + 0).
SEE DOCUMENTATION FOR LAYOUT OF MSCP PACKETS.)

PKY_LO

SEQ 0AaGe,
P

F1Ff
L

e
e
e
e
e
e
e
e
e
R
B
B

BUF_ S
LBN_L
LBN_M

= (18, O, 16, O],
= (19, 0, 16, 0],
= (20, 0, 16, 0],

|
v
! LOGICAL BLOCX NUMBER (LO ORDER)
¢ LOGICAL BLOCKX NUMBER (HI ORDER)

SET CONTROLLER CHARACTERISTICS COMMAND FIELDS

85’3?

C_FLAGS

= (12, 0, 16, 0],

! CONTROLLER FLAGS

ONLINE COMMAND FIELDS

gs”sg

0540

U_FLAGS

- (12, 0, 16, O],

gfl

= (19, 0, 16, 0)

! UNIT FLAGS

* DEVICE -DEPENDENT PARAME TERS

0543

0545

;

0547

RP_FIELDS »

moss;

;

0544

(essssee RETURN PACKET

0349 1

(RETPKT) FIELDS

(SIMILAR, BUT NOT IDENTICAL, TO MSCP ENVELOPE FIELDS)

COMMON TO ALL RETURN PACKETS FROM DISK MSCP

0552
0553
0554
0555
0556
0557
0558

MESLEN
CTLR
MESTYP
CONID
CRF _LO
CRF “HI
DISK

= [0, 0, 16, 0],
= (1, 0, 4, 0],
« (1, 4, 4, 0],
=(1,8,8,0
- (2, 0, 16, 0],
- (3, 0, 16, 0],
- (4, 0, 16, 0],

! MESSAGE LENGTH
! CONTROLLER NUMBER (CREDITS OVERWRITTEN)
! MESSAGE TYPE
! CONNECTION ID
! COMMAND REFERENCE NUMBER (LO ORDER)
! COMMAND REFERENCE NUMBER (MI ORDER)
! DISK ADDRESS (RD/RX UNIT NUMBER)

0560
0561

ENDCOD
FLAGS

- [6, 0, 8, 0],
- (6,8, 80

' END CODE
! FLAGS

0562
0364
%

STATUS
SUBCOD

» (7, 0, 16, 0},
- (7. S, 11, 0,

! STATUS AND SUB-CODE
! SUB-CODE

READ, WRITE, AND ACCESS COMMAND RETURN PACKETS

0529
0530
0531
0532
0533
0534
0535

0569
0570
0571
0572
0573
0574
0575
0576
0577
0578
0579
0580
gsu
582
0583

!
¢

BCNT _HI
BUFF -0
BUFF_1
BUFF _2
BUFF 3
BUFF _4
BUFF_S
88LK_LO
8BLK HI
CBCNT_LO
CBCNT _HI
LBN_LO
LBN_HI

=
=
=
=
=
=
=
«
=
=
«

(9, 0, 16, 0],
{10, O, 16, 0],
{11, O, 16, 0],
[12, O, 16, O],
(13, 0, 16, 0],
(14, 0, 16, 0],
(15, 0, 16, 0],
(16, O, 16, 0],
{17, 0, 16, 0],
(18, 0, 16, 0],
[19, 0, 16, 0],
{20, 0, 16, 0],
(21, O, 16, 0],

! BYTE COUNT (HI ORDER)
! I/0 BUFFER DESCRIPTOR (WORD 0)
! 170 BUFFER DESCRIPTOR (WORD 1)
¢ I/0 BUFFER
DESCRIPTOR (WORD 2)
! I/0 BUFFER DESCRIPTOR (WORD 3)
¢! I/0 BUFFER DESCRIPTOR (WORD 4)
! 170 BUFFER DESCRIPTOR (WORD S)
! FIRST BAD BLOCK (LO ORDER)
¢ FIRST BAD BLOCK (MI ORDER)
! BYTE COUNT FROM CMD PACKET (LO ORDER)
! BYTE COUNT FROM CMD PACKET (WI ORDER)
! LOGICAL BLOCK NUMBER (LO ORDER)
! LOGICAL BLOCK NUMBER (HI ORDER)

SET CONTROLLER CHARACTERISTICS RETURN PACKET

SEQ 040

VAX-11 Blies-16 v3-555
P
SPIDERSUSERS:
(DOUCETTE .F ALCONCNRQAA
REQ

15-Dec-1983 10:24:28
14-Dec-1983 11:11:10

)

= (9, 0,

C_TIME

16, O],

= [10, O, 16, 0],

U_FLGS

= [9, 0, 16, 0],

ctmz
HI

= (19, 0,

u§xz Lo

!
!

= (18, 0, 16, O],
16, 0]

CONTROLLER FLAGS
CONTROLLER TIMEOUT

UNIT FLAGS
UNIT SIZE (LO ORDER)
UNIT SIZE (HI ORDER)

oS,

;000&00 STATISTICS TABLE (TALLY) FIELDS
¥,

set

BYTES READ LO

BYTES

MBYTES_READ

= f°' 0,
=

16, 0],

[1, 0,

16, 0],

= [2, 0, 16, O],

= P' 0. 16, 0],

MBYTES _WRIT
ERR_HARD

- (S, 0, 16, 0],
= (6, 0, 16, 0],

TOT_READS_HI

TOT_WRITES_LO
TOT_WRITES_HI

= (10, O,
= (11, O,

16, O)
16, O

TOTAL NUMBER OF WRITES (
TOTAL NUMBER OF WRITES (

T0T_BYT_RED_LO

(13, O,

16, O

M1oT 8YTRED
TOT_BYT_WRT_LO
TOT_BYT_WRT_HI
nrof_ey7_wRT

=
=
=
-

(15, 0, 16, O]
.
0, 16, 0
[17, O, 16, O]
(18, 0, 16, O]

TOTAL
TOTAL
TOTAL
TOTAL
TOTAL
TOTAL

BYTES READ (LO ORDER)
BYTES READ (HI ORDER)
MEGABYTES READ
BYTES WRITTEN (LO ORDER)
BYTES WRITTEN (HI ORDER)
MEGABYTES WRITTEN

e
:lu&s:n
ERR_HRD _DAT

Sl
-« (24, O, 8, o}.
= (24, 8, 8, 0],

ERR_MRD_HST

- (25, 8, 8, 0],

ERR_SFT_DAT
ERR_SFT_DRV

TOTAL
TOTAL
TOTAL
TOTAL
TOTAL

HARD
HARD
HARD
HARD
SOFT

T_BLK_WT
T_DBN_WT

0623

S
e
e
B
B
B
B

En_sn_nst

NUMBER OF BYTES READ (LO ORDER)
NUMBER OF BYTES READ (HI ORDER)
MEGABYTES READ
NUMBER OF BYTES WRITTEN (LO ORDE
NUMBER OF BYTES WRITTEN (HI ORDE
MEGABYTES MWRITTEN
NUMBER OF HARD Ems

BYTES_WRIT_LO

=
=

(8, 0, 16, 0],

[26,
[27,

8, 8, 0],
0, 8, 0],

= (27, 8, 8, 0)

AR SRR AR
RR SRR R
AL NUMBER OF
TOTAL NUMBER OF READS

ERRORS - SEEK
ERRORS - DATA
ERRORS - DRIVE
ERRORS - HOST
ERRORS - SEEK

TOTAL SOFT ERRORS - DATA
TOTAL SOFT ERRORS - DRIVE
TOTAL SOFT ERRORS - HOST

ee,

tesssss CONTROLLER ERROR TALLY FIELDS

C.ERR_FIELDS =
t

¢ ERR_MRD
CTERRSFT

- (0. 0, 8, 01,
- fo. 8 8. 0]

HARD ERRORRS

SOF T ERRORS

SEQ 04Gs
P

SPIDERSUSERS: [DOUCETTE .H\LCM)CWO‘!.:rO (2,

UNIT ONLINE RETURN PACKET

VB W=O

gRgses 2222222 §§§§§§§§§§§§§§§%§§§§§?§§§%

C_FLGS

B
B
S
R
S
e
S
W

VAX-11 Bliss-16 v3-555

‘,

15-Dec-19383 10:24:28
14-Dec-1983 11:11:10

)
)

H16
15-Dec-1983 10:24:28
14 -Dec-1983 11:11:10

SEQ 040y

VAX-11 Bliss-16 v3 555
P
SPIDERSUSERS
: [DOUCE T TE .F ALCON ICNRQAA
REQ

tesssss DRIVER CONTROLLER TABLE (DCT) FIELDS

OCT_FIELDS =
set

'“.

WORDO

= [0, O, 16, 0],

1G_INT
STAT

= (0, 14, 1, O],
- {0, 15, 1. O],

CRING_CNT

SA_SAVE
RR_BEG
RR _END
CR_BEG
CR_END
RR_POLL
CR_POLL

=
=
=
«
=
«

{1, 0,
[2, 0,
(3, 0,
(4, 0,
(5, 0,
[6, 0,
(7, 0,

(8, 0,

16, O],
16, 0],
16, 0],
16, 0],
16, 0],
16, 0],
16, O],
16, O

ALL FIELDS IN WORD O
NUMBER OF SLOTS IN CRING NOT
IGNORE INTERRUPT BIT

YET RETURNED TO HOST

ONLINE / OFFLINE STATUS
SA REGISTER SAVE WORD

FIXED ADDRESSES OF START AND
END OF EACH RING
v

ADDR OF NEXT RRING SLOT TO BE POLLED
ADDR OF NEXT CRING SLOT TO BE POLLED
ADDR OF NEXT AVAIL CRING SLOT

;uuu ERROR LOG PACKET SAVE AREA FIELDS
EP_FIELDS =
set

(0, O, 8, 01.

ct:a-'cxr

EL_CNTR
EL _CONTENTS

= (0, O, 8, o).
- [0, 8,8, 0

EL_CRN_LO

- [3, 0, 16, 0],

EL _MSGLEN

EL _CRN_HI

Et-gx.fu'u

EL - CONTINUE

EL _SUCCESS

EL-C“

[4, 0, 16, 0],

. ‘;. g.
16. .

. (7, 14. ;
- [7, 15, 1. o
-

;‘o 0, 5.0

a S, 11,
0

S
B
B
e

DISK ADDRESS (RD/RX DISK NUMBER)

FORMAT

CONTINUE FLAG
SUCCESS FLAG
ERROR CODE
SuB CODE
BLOCK NUMBER

tes,

fasssss INFORMATION ABOUT LAST RESPONSE PACKET

!
LASY_’KT FIELDS .

COMMAND REFERENCE NUMBER

TYPE OF BLOCK NUMBER INFO RETURNED

EL _SUBCODE

- (1, 0, 16, oi

CONTROLLER NUMBER

FLAG INDICATES IF PACKET CONTENTS ALREADY PRINTED
PACKET LENGTH

LAST_CRN_LO
LAST_CRN_HI
tes,

= fo. 0,

= (1,
= [2,

0,
0,

16,
16,
16, 0]

FLAG INDICATES IF HARD ERROR OCCURED

COMMAND REFERENCE NUMBER

LASY HRD_ERR

tesssses RDRX REGISTER FIELDS
!

RC_REG =

set

RC_ALL
tes;

= [0, 16, 0]

DEFINE ALL BITS

13
=,

116

!0‘.000...‘..‘00.‘0......0000000000000‘0“..000“.“O‘...........‘.0..0.00‘.O..

0697
0698

B
B
e
B

Be B

0700
0701
0702

RS SR SE Se

0703

0704
0705
0706
0707
0708
0709
0710

SR B8

S8 BE BE Be

S8 BE

0711
0712
0713
0714
0715
0716
0717
0718
0719
0720
0721

XXX

0723
0724
0725
0726
o727
0728

0729
0730

“

MACROS

]

’..‘...‘.“‘0“..00‘.‘......‘...‘.0‘“.0000.‘.‘0‘.‘.“.........‘..‘..00‘..0.‘.:
!

?ocro

fesssese CST FIELDS (WORDS 3 - €)
H

D_ALL
D_DISK_NUM
D_TYPE
D_UNIT

= 0, 16, 0%,
=0, 2, 0%,
=2, 1, 0%,
=8, 4, 0%,

!
!
!
!

ALL FIELDS
DISK ADDRESS
DISK TYPE
DISK UNIT NUMBER (DRS UNIT)

D_STAT
D_PRES
D_PROT
D_BEG

=
=
=
=

!
!
!
!

DISK STATUS BIT
DISK PRESENT BIT
DISK PROTECTION BIT
BEGINNNING TRACK

D_FATAL

D_END

NODUPMEDIA

TEST

0%,

! FATAL ERROR BIT

0=,
0%,
0%,
O,

! ENDING TRACK

! RELATIVE DBN!*t
! MSCP FUNC COUNTER

= 12, 1, 0=,

D_ACTIVE
DUPERROR

13, 1,
14, 1,
15, 1,
0, 16,

=0, 8, O,
= 0, 16, 0w,

DUPMWRITE

12,

= 0, 16, 0%,

D_DBN
D_COUNT

fesssss BIT

! DUP WRITE FLAG

= 13, 1, 0w,
= 14, 1, 0%,

! ACTIVE STATE
! DUP ERROR FLAG!t

= 15, 1, O«,

! CONTROLLER LOCAL DUP MEDIA

(CAUTION: THE FIRST ARGUMENT IS THE ADDRESS AND NOT THE CONTENTS)

BIT_TST (ADDR, EXPECTED) =
(if (.ADDR and EXPECTED) eql EXPECTED
else
FALSE )#,

0731

0733
0734
0735
0736
0737
0738
0739

l1esssss RDRX WRITE

0722

IXIXIXXX

RS
Se SR EE
B
B
S
B
W

SEQ 0410

VAX-11 Bliss-16 v3-555
P
14
SPIDERSUSERS:
[DOUCETTE .FALCONICNRQAA
REG (7

0695

15-Dec-1983 10:24:28
14 -Dec-1983% 11:11:10

0740
0741

s
mt_nm‘: (0, FIELDNAM,

IMAGE) =

local

RC .'g'f;'fi?! ldexpand (FIELDNAM)
e

IMAGE

( .ADRX_ADDR + (wupval & 0)) = .RC_REGs

ends;

J16
15-Dec-1983 10:24:28
14-Dec-1983 11:11:10

SEQ 041]
VAX-11 Bliss-16 v3-555
P
59
SPIDERSUSERS
: [DOUCETTE.FALCONICNRQAA . REQ (4,

:
'

Q742
0743

1000000000080 0000000000888080800000400800800000028000800000088000080000000000000
!
2

3
i

0744
0745

!
!

STRUCTURES

+
.

Q746

0600000600000800008000040800040880088800048480800004004400080000088808000000000800000

3
}

0747
g;:g

!
fess0ss NIBBLE (4-BIT) VECTOR STRUCTURE

3
3

0750
0751

‘!structure
!
NIBVECTOR (I; N)

;

0752
g;gz

'
;
3

0755
0756
0757

5
3

0759
0760

begin
loceal

0762

RC_REG = .(RDRX + supval & 0) <0, sbpval, 0>;

§
5

0761

0763
0764

!
!

=
(CN + 1) 7 2)
(NIBVECTOR ¢« I 7 2) <(I t 2) and 4, 4>;

H
'

tssssss RDRX ACCESS ALGORITHM
!
structure

RC_REG;

RC_REG
end

H
[

COMMAND QUALIFIERS

BLISS /PDP11 CNRQAA.REQ/LIST=CNRQAA.LIS/LIBRARY=CNRQAA.L16/SOURCE=PAGE:56
un Time :

00:06.7

:
Elapsed Time:
00:11.4
i Memory Used:
62 noro

Libreary Precompilation Complete

K16
CNRQAA .EXE

Memory allocation map

:
:
:

image

size

Tesk address limits:
R-W disk blk limits:
sss

Root

R/W mem
Disk blk

segment:

limits:
limits:

EQ 041

DUMMY
v01.0
[300,20]

Task attributes: -HD
Total address uindonox

Task

Page

10:47

15-DEC-83
Partition name
Identification
Task
VUIC

TKB M40.02

16608.

words

002000 102653
000002 000102 000101 00065.

CNRGAA

002000 102653 100654 33196.
000002 000102 000101 00065.

Memory asllocation synopsis:

BLK.:(RW,I,LCL,REL,CON)

$CODE$ : (RC, I,LCL,REL,CON)

$FFF$

:(RO,I,LCL,REL,CON)

$GGG$

:(RO,I,LCL,REL,CON)

$OWN$

:(RW,D,LCL,REL,CON)

002000 000000 00000.
002000 071546 29542.

046070 025032 10778.
073122 000316 00206.
073440 000106 00070.
073546 005236 02718.
073546 005236 02718.
101004 001256 00686.

$PLIT#:(RO,D,\.CL,REL,CON)

101004 001256 00686.

102262 000224 00148.
102262 000224 00148.

.
102506 000054 00044
102506 000030 00024
.
102536 000024 00020.
102562 000070 00056.
102562 000070 00056

v01.0
voi.2
v01.0

2.8
2.4

v01.0
vo1.0

voi.2
vol1.2

v01.0

voi.2

Global symbols:

ADR

000020

BITO
BIT00
BITO1L
B8IT02
BITO3
BIT04
BITOS

000001
000001
000002
000004
000010
000020
000040

BITO7

000200

ASTERI 025640-R
AZINTO 067140-R

BITO6

000100

BITO8

BIT09
BIT1

BIT10
8IT11
BIT12
BIT13
BITi4
BIT1S
BIT2

B8ITS
BIT4

000400

001000
000002

002000
004000
010000
020000
040000
100000
000004

000010

000020

BITS

‘8IT6
BIT7

000040

000100
000200

BIT8
000400
BIT9
001000
BLSDIV 073346-R
BLSLAS 102562-R
BLSMOD 073360-R
BLEMUL 073122-R
BLSSHF 073372-R

BOE

000400

BUFF.A 100662-R

BUFF .0 100702-R
8YTS.P 100746-R
100726-R
100730-R
CER.O1 014054 -R

CcsT

073546-R

CUOFF

100732-R

CMD.TI 100762-R
CNTR.E 025042 -R
CREDIT 101000-R

oCT

014120-R

025626 -R
CRN.HI 100770-R
CRN.LO 100766-R

CST.AD 073624-R
CTLR.C 100734-R

073626-R

DCT.AD 073650-R
DFPTBL 025650-R
021644-R
DF.0
021700-R
DF.1
021734-R
DF.2

DF.3 . 022010-R
022050-R
DF.4
OF.5 - 022076-R
OF.6 . 022122-R
022172-R
DF.7

-R
DROP.C 034264
DRV.CT .034372-R
DUPPKT 073656-R

13
14 007376-R

{l 007436-R

DUPROU ‘025704
-R
DUP.FL 100724-R

DUR’

~ 100736-R

DU.MSG 004052-R

EBH.46 021332-R

Memory allocetion mep

017712-R
020400-R
020430-R
-R
020454

ONOVBUWN-O

e e et gt

HPT.V 025652-R

Q10
HWQ11l
Q2
HWA3

HWQ4

002136-R

002560-R
002646-R
002152-R
002162-R

002174-R

LeHu
LSHWLE

LsICP
LOINIT
LSLADP
LSLAST

015034 -R
015340-R
015420-R
016702 -R
016630-R
016660-R
014632-R
016736-R
017366-R
017630-R
015742-R
017422-R
017532-R
014534 -R
-R
017044
014654 -R
017300-R
-R
017206
017600-R
016530-R
014674 -R
014754 -R
016036
-R
034450-R

-R
005444
077230-R
077226-R
077222-R
100760-R
1007S52-R
-R
017504
014560-R
016772-R
015102-R
015500-R

-R
015554
014602-R
015626-R
015710-R
016160-R
016210-R
016240-R
016272-R
016322-R
016352-R
016402-R
-R
016434
016466-R
017122-R

016112-R
015174-R
015262-R
015762-R
016570-R
017136-R

S @

538225858¢

SRAERRARRABRARERRLLELRNS
833 A32885KLR

E.UNT
022432-R
E.ZER
022574-R
FREE.M 100744-R

’

EX.CBW 012030-R

EX.CRD 014214-R
-R
EX.DGM 014264
EX.ELP 014444-R
EX.ESP 014414-R
EX.GDS 014372-R
EX.LBR 011572-R
EX.LBW 011636-R
EX.MTN 014244-R
EX.ONL 014334-R
EX.OP 025610-R
EX.RBN 011702-R
EX.RCD 014504
-R
EX.RD 014302-R
EX.SCC 014346-R
EX.SDD 014470-R
EX.SEQ 014174-R
EX.WRD 025600-R
EX.WRT 014312-R
E.BLK
022466-R
E.DEV
022550-R

033112-R
033636-R
026324-R
026012-R
026140-R
026152-R
026170-R
026200-R
026214-R
026226-R
026240-R
026252-R
026264-R
026272-R
026022-R
026306-R
026316-R
026330-R

iik i

000004

EX.ABP 014524-R
EX.ACC 014322-R
EX.BOR 011414-R
-R
EX.BDW 011504
EX.CBR 011760-R

GET.PK
GET.RE
GP$DIS
GP$1
GP$10
GP$11
GP$12
GP$13
GP$14
GP$15
GP$16
GP$17
GP$18
GP$19
GP$2
GP$20
GP$21
GP$22

100Q.I
100Q.0
IPKT.A
IRDRX.
ISR
IXE
LOE
LoT
L$ACP
LS$APT
L$AU
LSAUT
LS$AUTO
LsCCP
LSCLEA
L$CO
L$DEPO
L$DESC
LSDESP
LS$DEVP
L4DISP
LSOLY
L$DTP
LSDTYP
L$DV
LsOuT
LeDVTY
LSEF
LSENVI
LSERRT
LSETP
LS$EXPL
LSEXP4
LS$EXPS
L$HARD
L$HIME
LoHPCP
L$HPTP
L SHRDL

ERR.CO 011012-R

EVL

021016-R
017746-R
021056-R
021130-R
-R
020002
-R
020034
-R
020074
-R
020152
-R
020226
020302-R
020360-R
7.1I0 033760-R

.19

OOQOUDGNSN

046016-R
046034-R
046052-R
100722-R
100723-R
-R
002134

........

010052-R

.21
EMS.22
EMS. 30
ENTRY.
EOP.FL
ERRBLK

E"g.lfl 045754 -R

heo b b

EM.7

007046-N
007106-R
007150-R
006240-R
006260-R
007552-R
007610-R
010172-R
010224-R
010262-R
007646-R
007706-R
007744-R
007770-R
010020-R

045550-R
045612-R
045650-R
045712-R

nMMMNMNMNMNMM

EGD.16 006560-R

EGD.17 006610-R

EMS.10
EMS.12
EMS.13
EMS.14

EBH.47 021362-R
EBMH.48 021444-R
EBH.49 021532-R
EBNEX1 013606-R
EBNEX3 013760-R
EBS.01 007174-R
EB.ADD 013544
-R
EB.COM 013360-R
EB.OCT 013304-R
EB.NEX 013662-R
EB.PKT 013442-R
EB.RAL 013504
-R
EF .CON 000036
EF .NEW 000035
EF .PUR 000034
EF .RES 000037
EF.STA 000040
EGD.10 006352-R
EGD.11 006412-R
EGD.12 006436-R
EGD.13 006464
-R
EGD.14 006512-R
EGD.15 006542-R

EGD.22
EGD.23
EGH.30
EGS.01
EGS.02
EH.0
EM.1
EN.10
EM.12
EH.13
EH.2
EN.3
EH.4
EM.S
EM.6

10:47

15-DEC-83

CNRQAA

TKB M40.02

nMmMTMmMNTNMTNmMMTm

CNRQAA . EXE

032716-R
SET.UP 033012-R
025670-R
025622 -R
-R
100754
100750-R
003760-R

025676
-R
025670-R
025674 -R
025702-R

025700-R
-R
025706
025672-R
002700-R
003154 -R
003220-R
003252-R
003350-R
-R
003426

003444 -R
-R
003514
-R
003602
-R
002722
003672-R
003004 -R
-R
003026
003100-R
100774 -R
100776 -R
074660-R

CNRQAA .EXE

Memory allocation map

CNRQAA

15-DEC-83

TSFREE 102646-R
T$PTHV 000003
T.ADDR 075220-R

T.DEF

T.FAT
T.INF
T.QUE

44¢

022264-R

022366-R
022316-R
022242-R

Task

builder

T.SPL
T.TER
T1

022412-R
022342-R

WAIT
XxX13
xXx14

035064-R
012100-R
012122-R

UAM

046266
-R

000200

TKB M40.02

XX15
XxX16
xx17
xx18
xX19
Xxx20

xx21

012136-R
012160-R
-R
012206

-R
012224
012234-R
012246-R
010262-R

124902.

)
Size of core pool: 5616. words (21.
Size of work file: 4608. words (18. pages)

Elapsed time:00:00:53

M16

10:47

stetistics:

Total work file Nfsnncn:
Work
file
reads:
Work
file writes: 0.

Page

xx22
xXXx23
xXx24
xx25
Xa26
xXx27
xXx29

012322-R

012356-R

012412-R
012452-R
012522-R
012576-R
012640-R

xXX30
xXx31
Xx32
xXX33
XX34
XX35
xXx37

-R
012664
012712-R
-R
012744
012772-R

013030-R

013100-R
C13116-R

Xx38
XX39
XX40
XX41
$END.L

013142-R
013206-R
013234-R
013254-R
102650-R

$SAVE2 073440-R
$SAVE3 073454-R

$SAVE4 073472 R
$SAVES 073512 R

CREATED B

DEC

10:47

CRE}

GLOBAL CROSS REFERENCE

CST.AD
CTLR.C
CUOFF

102562-R
073360-R
073122-R
073372-R
000400

-R
100662
-R
100702
-R
100746
-R
100726
100730-R

-R
014054
014120-R
-R
100762
-R
025042
101000-R
-R
025626
100770-R
-R
100766
-R
073546
-R
073624
-R
100734
100732-R

tflgfiggg

02 2
0
A
A
0
A
R A

VVNOOOOLOOSGS

LR R
IR
TXTITI

000400
001000
073346-R

NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3

csY

000020
000040
500100
000200

NRQAM3

CNTR.E
CREDIT
CRLF
CRN.HI
CRN.LO

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

NRQAM1
MRQAML
hF JAM3
N2AML
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRGAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
© NRQAM1
@ NRQAM1
@ NRQAM1
@ NRQAM1
# NRQAM1
@ NRQAM1
@ NRQAM1
@ NRQAM1
& NRQAM1

00000V

BITS
BITa
BITS
BITe
8IT?
BITS8
BIT9
BLSDIV
BLSLAS
BL $M0D
BL ML
BLSSHF
B0E
BUFF _A
BUFF.0
BY1S.P
CCTLR
CDISK
CER.O1
CER.02
CMD.TI

000001
000001
Q00002
000004
00001C

nnnflnnaaa § i g
»nwvwwnwunngg;g;gg...

8ITO
B8IT00
8ITO1
BITO2
BITO3
BITO4
BITOS
BITO&
BITO?
BITO8
8ITO9
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S
8BIT2

000020

-R
025640
067140-R

REFERENCES. . .

ADR

ASTERI
AZINTO

VALUE

0000000000000
OQCOOOGS &

SYMBOL

PAGE

NRQAM3

vOe

——

CNRUAA

CNRQAA

CREATEC BY

T¢B

ON 15 DEC-83 AT 10:4

CREY

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

C.ERR,

075222-R

DCT.AD

073650-R

DASH
oCT

OFPTBL

REFERENCES. ..

@ NRGAM1

025632 -R
073626-R

@ NRQAM1
& NRQAM1

025650-R

@ NRQAM1

NRQAM2

NRQAM2
NRQAMS

NRQAM2

OF.0

021644 -R

& NRQAM1

NRQAM2

OF .2
DF.3
DF .4

021734-R
022010-R
022050-R

@ NRQAM1
& NRQAM1
@ NRQAM1

NRQAM2
NRQAM2
NRQAM2

oF.1

oF.S
DF .6

OF.7
DROP.C

021700-R

022076-R
022122-R

DRV.CT

022172-R
034264-R
034372-R

DUPROU

025704-R

DUPPKT

DUP.FL

DUR

DU.MSG

073656-R
100724-R

100736-R

0040S52-R

DU.RSN
DSPCNT
ERD.10
EBD.12
EBD.13
EBD.14
EBD.18
EBD.19
EBH.30
EBH.44
EBH.45
EBH.46
EBH.47
EBH.48
EBH.49
EBNEX1

004616-R
002122-R
007236-R
007276-R
O007344-R
007376-R
007436-R
007472-R
021160-R
021176-R
021300-R
021332-R
021362-R
021444-R
021532-R
013606-R

EB.PKT
EB.RAL

013442-R
O013504-R

EBNEX3
EBS.01
EB.ADD
EB.COM
EB.OCT
EB.NEX
EF .CON
EF _.NEW
EF .PWR
EF .RES
EF.STA

EGD.10
EGD.11
EGU.12

013760-R
O007174-R
O013544-R
013360-R
O013304-R
013662-R
000036
000035
000034
000037
000040

006352-R
006412-R
006436-R

@ NRQAM1

@ NRQAM1
& NRQAM1

& NRQAML
& NRQAM2
& NRQAM2

NRQAM3
NRQAM3

NRQAM3

NRQAM2

NRQAM2
NRQAM2

NRQAM2
NRQAM3

NRQAM3

& NRQAML

NRQAM2

NRGQAM3

& NRQAM1

NRQAM2

NRQAM3Z

& NRQAM1

NRQAM2

& NRGAM1

& NRQAM1

@ NRQAM1
@ NRQAML
@& NRQAM1
@ NRQAM1
& NRQAM1
& NRQAM1
& NRGAM1
& NRQAM1
@ NRQAM1
@ NRQAM1
@ NRQAM1
@ NRQAM1
@ NRQAM1
& NRQAML
¢ NRQAM1
@ NRQAM1

& NRQAM1
@& NRQAM1
¢ NRQAML
@ NRQAM1
& NRQAM1
& NRQAM1

¢ NRQAM1
@ NROAM1

0 NRQAML
¢ NRQAM1
¢ NRQAML
¢ NRQAM1
@ NRQAM1

& NRQAM1
& NRQAM1
@& NRQAM1

PAGE

NRQAM3

NRQAM2

NRGAM3

NRQAM2

NRQAM2
NRGQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRGAM2
NRQAM2
NRQAM2

NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2

NRQAM2
NRQAM2

& NRQAM2
@ NRQAM2
& NRGAM2
& NRQAM2
@ NRQAM2

NRQAM2
NRQAM2
NRQAM2

@ NRQAM3
& NRQAM3
& NRQAMS
& NRQAM3
@& NRQAM3

NRQAM3
NRQAM3
NRQAM3

¢
Vo2

CNRQAA

CREATED BY

TKB

ON 15-DEC-83 AT 10:47

GLORAL CROSS REFERENCE
REFERENCES. ..

EGD.13
EGD.14
EGD.15
EGD.16
EGD.17

006464-R
006512-R

& NRQAM1
@ NRGAM1

EN.7
EH.8
EH.9
ELG.FM
ELG.00
ELOG.P
EMSCMD
EMS.BL
EMS.CM
EMS.DB

EMS.EL

010020-R

010052-R
010104
-R
010140-R
011402-R
011046-R
077232-R
036134-R
043610-R
045170-R
043060-R

EMS.12
EMS.13
EMS.14
EMS.18
EMS.21
EMS.22
EMS.30

044050-R
045512-R
045550-R
045612-R
045650-R
045712-R
O0457S54-R
046016-R
O046034-R
046052-R

ERRBLK
ERRMSG
ERRNBR

002134-R
002132-R
002130-R

ENTRY.,
EOP.FL

ERRTYP
ERR.CO
Evi
EX.ABP

100722-R
100723-R

002126-R
011012-R
000004
0i&8524-R

NRQAM2

NRQAM3
NRQAM3
NRQAM3
NRQAM3
NRQAM3

f DHRRRARN 1 O CRCRRGIECRARERSCIEREE
RSN Bt

EM.6

007744
-R
007770-R

NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAMZ

8
8

EH.4
EH.5

010172-R
010224-R
010262-R
007646
-R
007706-R

& NRQAM1
& NRGAM1
@ NRQAM1
& NRQAM1
@ NRQAM1
@ NRQAM1
@ NRQAM1
& NRQAM1
& NRQAM1
& NRQAM1

o Bt b b b ek b b b et ot b 0 et

EH.1
EH.10
EH.12
EH.L
EN.2
EH.3

006626-R
006646-R
006734-R
007046-R
007106-R
007150-R
006240-R
006260-R
007552-R
007610-R

s e s e Bt b b

EH.O0

@& NRGAM1
& NRQAM1
& NRQAM1

EGD.21
EGD.22
EGD.23
EGH.30
EGS.01
EGS.02

006542-R
006560-R
006610-R

YYSTYeeYETYYYYIIIIIIII
L
LR R L L L A L A 0 0 0

VALUE

EGD.18
EGD.20

PAGE 3
CREY

SYMBOL

D1
voe

CREATED BY

TKB

ON 15-DEC 83 AT

A%5

021056-R
021130-R
-R
020002
-R
020034
-R
020074
020152-R
-R
020226
020302-R
020360-R
033760-R
033112-R
033636-R

5232 I

5553 2%

@ NRQAM1
¢ NRQAM1

@ NRQAM1
& NRQAM1
@ NRQAM1
¢ NRQAM1
& NRQAM1
& NRQAM1
& NRQAM1

v-ii-rjgv-!EE!H!!E!!hg!E!!Egr-!Egifig!§gufl!i-r-!L—u-

00‘.“38'\)

.
.
.
.
.

-tOO~

nMMMAMMNNM

F.19

017712-R
020400-R
020430-R
-R
020454
-R
020502
020560-R
020620-R
-R
020646
020712-R
-R
020756
021016-R
017746-R

NRQAM2

@ NRQAM1

-R
022432
-R
022574
-R
100744

NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1

025600-R
014312-R
-R
022466
022550-R

@
@
&
¢
@
@

RVVRGPRVVVORORVOHSOOOOS L

011572-R
011636-R
-R
014244
-R
014334
025610-R
011702-R
-R
014504
014302-R
014346-R
014470-R
014174-R

..
REFERENCES.

00000000V

014322-R
011414-R
-R
011504
011760-R
012030-R
-R
014214
-R
014264
-R
014444
-R
014414
014372-R

PAGE.

CREF

CROSS REFERENCE
VALUE

10:47

NRQAM3

5EQ 0413
voe

CNRQAA

CREATED BY

ON 15 -DEC-83 AT 10:47

TKB

CREt

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

REFERENCES. ..

GPSDIS

026324-R

& NRQAM2

025652-R

002136-R

HWQ2

002152-R

HW@10
HWQl1

HWQ3
HU@4
HWasS
HWQ6
HWQ7
HWQSE
HWQ9

IBE

002560-R
002646-R

002162-R
002174 -R
002220-R
002310-R
002326 -R
002406 -R
002460-R

010000

IDV
IER

000040
020000

100G

100712-R

IN.IOD
I0DG.I

034176-R

100716-R

NRQAM2

NRQAM2
NRQAMZ

NRQAM2

NRQ@AM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2

¢ NRQAM2
& NRQAM2
@ NRQAM2
NRQAM1

NRQAM3

NRQAM2

& NRQAM3

0 NRQAM3
& NRQAM3

HWPT.V

HWQ1

026354-R
026370-R
026406-R

GP$24
GP$25
GP$26

-R
026022

026306-R
026316-R
026330-R
026344-R

NRQAM2
NRQAMZ2
NRQAM2
NRQAM2

GP$20
GP$21
GP$22
GP$23

GPs2

026152-R
026170-R
026200-R
026214-R
026226-R
026240-R
026252-R
026264-R
026272-R

GPs$1l
GP$i2
GP$13
GP$14
GP$15
GP$16
GP$17
GP$18
GP$19

& NRQAM2
& NRGAM2
& NRQAM2

026012-R
026140-R

0000000V VVAVVVOCQVVVVVVVVHVDOVOVVOVOHVOGOODOS0S

GPs1
GP$10

PAGE &

SEQ 0419

vo2

CNRQAA

CREATED BY

ON 15-DEC-83 AT

TKB

I100Q.0
IPKT A
IRDRX,
ISR

100720-R
076704 -R
073654 -R
000100
004000
040000
000010
002110-R
002036 -R
032676-R

ILE

LOE
LOT
LSACP
LSAPT
L$AU

LSAUT
LSAUTO
LsCcp
LSCLEA
LsCO
L $DEPO
LSDESC
LSDESP
LSDEVP
L$DISP
LSOLY
LS$DTP
L$DTYP
LsDv
LSDUT
LSDVTY
LSEF
LSENVI
LSERRT
LSETP

LSEXP1
LSEXPS

LSEXPS
L $HARD
LSHIME
LS$HPCP
LSHPTP
L$HRDL
LSHMLE
LsICP
LSINIT
LSLAST
L$LOAD

LSLUN

LS$MREV
L SNAME
L $NDHR
L $NDHW
L $NDSF
L $NDSW

002070-R
032104 -R
002106-R
03217G-R
002032-R
002011-R
025766-R
002076-R
002060-R
002124 -R
002116-R
002040-R

-R
002034
032604 -R
002072-R
025756-R

REFERENCES.
..

@ NRQAM1
& NRQAM1
& NRQAM1
€
@
&
@

NRQAM2
NRQAM2
NRQAM2

NRQAM1
NRQAM1
NRQAM1
NRQAM1

@ NRQAM2
@& NRQAM2
& NRQAM2
& NRQAM2

NRQAM1

& NRQAMZ2

NRQAM1

& NRQAM2

@ NRQAM1
@ NRQAM1

& NRQAM1

@ NRQAM1

¢ NRQAM2

NRQAM2

NRQAM1

@ NRQAM2

NRQAM1

& NRQAM2

NRQAM1

& NRQAMZ2

& NRQAM1
€ NRQAM1
@ NRQAM1

& NRQAM1

NRQAM2

& NRQAML
¢ NRQAM1

& NRQAM2
€ NRQAM1
® NRQAM1
& NRQAM1

NRQAM1

& NRGAM2

NRQAML

& NRQAMS

& NRQAM1

NRQAM2

& NRQAM1
@ NRQAM1

: §O‘§

VAL UE

PAGE

CRE}

GLOBAL CROSS REFERENCE
SYMBOL

10:47

(5i

@
&
&
&

NRGAM3
NRQAM3
NRQHM3
NRQAM3
NRQAM3
NRQAM3
NRGAM3

vO¢Z

CREATED BY

ON 15 DEC-83 AT 10:47

TxB

CROSS REFERENCE

5 5

QAM

LI L L

L LA

NRQAM1
NRQAM1
NRQAM1
NRQAM1

338

NRQAM1
NRQAM1

0000V VVVVVVGVV0VVVVVVVOEVVVVOOOGGOOOY L

022722-R
023264 -R
023204 -R
023046 -R
023116-R
100764 -R
101002-R
032706-R
004050-R
100756-R
034140-R
076706-R
001000
002000
000000
000040
000100
000140
000200
000240
000300
000340
034100-R
034034 -R
033476-R
033744 -R
100772-R

RERAR

5 222
3

@
@
&
&
€

NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
@ NRQAM2

L AL L

-R
002062
002010-R
027574-R
026212-R

€
@
@
©
€

-R
002042
025750-R
002112-R

REFERENCES. ..

VALUE

CNRQAA

CREATED BY

[IKB

ON 15-DEC-83 AT

RPT1

RPT10
RPT11
RPT12
RPT13

RPT14

om-~J

-1

BRARARRRRARBRRRRELEES EEE 338333
ARRARRRRRRARRARRARA
OabuN;
g% §8~R9aR88 RBARARRBRSRRRIGERRES

RPT1S

077230-R
077226-R
077222-R
100760-R
100752-R
017504 -R
014560-R
016772-R
015102-R
015500-R
015554 -R
014602-R
015626 -R
015710-R
016160-R
016210-R
016240-R
016272-R
016322-R

016352-R
016402-R

016434 -R
016466 -R

017122-R
016112-R
015174-R
015262 -R
015762-R
016570-R
017136-R
015034 -R
015340-R

NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAML
NRQAM1

NRQAM2
NRQAM2

NRQAM3
NRQAM3

NRQAM2

NRQAM3

NRQAM2
NRQAM2

AR
R SR RRRA

100742 -R
073652-R
-R
025562
076722-R
-R
004766
005472-R
005524 -R
005612-R
005660-R
005760-R

QIO
.A
RDRX
RDRX.E
RETPKT

REFERENCES.

CVVVVOVVLVVVOVOVVORVNVOVVVOVVVVOVOOOOHOOS B4

VAL UE

PAGE 8
CRE}

GLOBAL CROSS REFERENCE
SYMBOL

10:47

voe

CREATED BY

TKB

ON 15-DEC-83 AT 10:47

CREY

CROSS REFERENCE

KgBRAAARAAS
SREpRBBEE
- ¥65270% 3 '’ g 2P 655588
‘g

017532-R
014534 -R
017044 -R
014654 -R
017300-R
017206-R
017600-R
016530-R
014674-R
014754 -R
016036-R
034450-R
032716-R
033012-R
025670-R
025622-R
-R
100754
100750-R
003760-R
025676-R
025670-R
025674-R
025702-R
025700-R
025706-R
025672-R
002700-R
003154 -R
003220-R
003252-R
00335G-R
-R
003426
-R
003444
003514 -R
003602 -R
002722-R
003672-R
003004 -R
003026 -R
003100-R
100774-R
100776-R

-4
-t

ynn

EEEEERES §

|
SET.UP

NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1

NRQAM2
NRQAM2
NRQAM2

016660-R
014632-R
016736-R
017366-R
017630-R
015742-R
017422-R

&
©
€
€
@
€

NRQAM2

015420-R
016702-R
016630-R

REFERENCES.

e eeeTeTSTTYYIIIIIII
LT LR LD L L L L DL L A L A LA A L A 2 @

VALUE

NRQAM3

PAGE 9

’;& #]

voe

04z

CNRQAA

CREATED BY

ON 15-DEC-83 AT 10:47

TKB

CREF

GLOBAL CROSS REFERENCE

T.ADDR
T .DEF
T.FAT
T.INF

T.QUE

T.SPL
T.TER
Tl

UAM
WAIT

XX13
Xx14
XX15S
XX16

xXX17

xXx18
xX19
xXX20
xX21
xx22
xXxX23
xx24
xx2s
xXX26
xXX27
xXx29
xXX30
xx31

xx32

xXx33
xXX34
XxXXx35

xXxX37

XX38
xXXx39
XX40
xXx41
$SEND.L
$SAVE2
$SAVE3
$SAVES
$SAVES

-R
022366
022316-R
022242-R
022412-R
022342-R
-R
046266
000200

-R
035064
012100-R
012122-R
012136-R
012160-R
012206-R
-R
012224
-R
012234
012246-R
012262-R
012322-R
012356-R
012412-R
012452-R
012522-R

012576-R

012640-R
-R
012664
012712-R
-R
012744
012772-R
013030-R

013100-R
013116-R
013142-R
-R
013206
-R
013234
013254
-R
102650-R
073440-R
-R
073454
073472-R
073512-R

NRQ@AM1

NRQAM2

NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1
NRQAM1

@ NRQAM4

;

NRQAM2
NRQAM2

NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
@ NRQAM3
@ NRQAM2
NRQAM3
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAMD
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2

E
.gggggggsg!!g”!ggggggggggggggg
==
[eymyey

074660-R
6
10264-R
000003
075220-R
-R
022264

TALLY
T$FREE
T$PTHV

..
REFERENCES.

HHOHHHO

VALUE

000NV VVG0VVOV0OOVOVOGOVHVHO00D

SYMBOL

PAGE

¢ B16SAV
¢ B16SAV
B16MUL

NRQAM3
NRQAM3

& NRQAM3

NRG M2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRQAM2
NRGAM2
NRQAM2
NRQAM2
NROAM2

@ B16SAV
NRQAM2
NRQAM2
¢ B16SAV

NRQAM2
NRQAM3
NRQAM3
NRQAM2

NRQAM3
NRQAM3

SEQ 044

voe