Digital PDFs

AH-T275B-MC

July 1984

244 pages

Original

98MB

view download

OCR Version

121MB

view download

Document:	CZRCHB0 RC25 RC25 DISK FORMATTER JUL 1984 bw
Order Number:	AH-T275B-MC
Revision:	000
Pages:	244
Original Filename:	CZRCHB0__RC25__RC25_DISK_FORMATTER__AH-T275B-MC__JUL_1984_gray.pdf

OCR Text

RCz5 DISK FORMATIER
CZROHEO

T 190-0
Cc)
COPVAIGH

_ FIGHE 01 OF 07

RC25 DISK FORMATTER

CZRCHBO

QFYRIGHT 0 1906-01

FIoHE
02 OF 02

ZRCHB1
S

ZRCHBO RC2S DISK FORMATTER
0001

MODWWE ZRCHB:

0004
0005

«SBTTL
w(

(STITLE

IDENT =

22-Feb-1984 12:03:49

VAX-11 Bliss-16 v3-555

ZRCHBO RC2S DISK FORMATTER®

‘REV B PATCH 00') =

IDENTIFICATION
PRODUCT CODE:

AC-T274B-MC

0021

PRODUCT NAME:

CZRCHBO RC25 DISK FORMATTER

0023

PRODUCT DATE:

23-January-1984

0025

MAINTAINER

Disk Engineering

AUTHOR

D.W.Neale

0019

OOOOOOOOOOOOONOOOOOOOONONONOOONONOONOOOONOOOONOO0

s
4
GF G
8
G
G4
G0 G0
G0 G0
G0 B0
0 B0 G0 G
B0
S8
G0
B0
S0
B¢
B8
O
B0
G5
B8
S0
B0
B0
G0
S5
90
S0
B
G0
G0
B0
G0
B8
S0
B0
G0
S
9%
B

'USER DOCUMENTATION'

0016

0033
0034
0035
0036

THE INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO CHANGE WITHOUT
NOTICE
AND
SHOUWLD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION,
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

0038
0039
0040

NO RESPONSIBILITY IS ASSUMED FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

0042

0045

THE FOLLOWING ARE

0047
0048

DIGITAL
DEC

THE
USE
SUPPLIED

OR
By

RELIABILITY
OF
DIGITAL
OR ITS

1984 B8y DIGITAL EQUIPMENT CORPORATION

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

POP
DECUS

UNIBUS
DECTAPE

SEQ 000

.901

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB1.816;7 (1)

00V

S-Apr-1984 13:43:03

MASSBUS

ZRCHB1

REV B PATCH 00

:
:
:
:
:
:
:
:
:
:
:

'
:
:
:

C
¢
C
C
¢
C
¢
¢
¢
¢
¢

Cl
3.A00:1304 13:43:08

ZRCHBO RC25 DISK FORMATTER

USER DOCUMENTATION

0051
0052
0053
0054
0055
0056
0057
0058
0059
0060
0061

22-Feb-1984

TABLE OF CONTENTS

0.0
1.0
1.1
1.2
1.3
1.4

MAINTENANCE MISTORY
GENERAL INFORMATION
PROGRAM ABSTRACT
PERFORMANCE GOALS
SYSTEM REGUIREMENTS
RELATED DOCUMENTS AND STANDARDS

:
:

C
¢
¢
¢
C
¢

'
:
:

¢ 0069
¢ 0070
¢ 0071
0072
0073
0074
0075
0076
0077
078

2.0
2.1
2.2
2.3
2.4
2.5
2.6
2.7
2.8
2.9

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES
FLAGS
HARDWARE QUESTIONS
SOFTWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE
PID (PROCESS INDICATOR) WORDS
HOST/DM FORMATTER RUN TIME MESSAGES

:
:
:

¢ 0080
C 0081
¢ 0082

5.0
3.1
3.2

ERROR INFORMATION
TYPES OF ERRORS MESSAGES
SPECIFIC ERROR MESSAGES

¢ 00sa

4.0

PERFORMANCE AND PROGRESS REPORTS

€ 0086

5.0

DEVICE

:
:

¢ 0088
C 0089

6.0
6.1

:
:
:
:
:
:
:

¢
¢
¢
¢
¢
¢
¢

0062
0063
0064
0065

0066
0067

1.5
1.6
1.7
1.8

DIAGNOSTIC MIERARCHY PREREQUISITES
ASSUMPTIONS
PRODUCT USERS AND USES
RESTRICTIONS

1.9
1.10

BAD BLOCK DEFINITION
SOURCE MODULE DEFINITION

INFORMATION TABLES

;
:

¢ 0090
¢ 0091

6.2
6.3

DM FORMATTER TEST SUMMARIES
REFORMAT MODE PROCEDURE
RESTORE
MODE PROCEDURE
RECONSTRUCT MODE PROCEDURE

:
:
:
:
:
:
:
:
:
:
:
:
:

¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢
¢

7.0
7.1
7.2

HOST TEST SUMMARIES
ATTENDED MODE
UN-ATTENDED MODE

8.0

APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX

0093
0094
0095
009
0097
0098
0099
0100
o101
0102
0103
0104
0105

12:03:49

A
B
C
D
€
F
G
M

GLOSSARY
BAD BLOCK REPLACEMENT
FCT
RCT
DATA PATTERNS
PINP-PONG ALGORITHM
CREATING ZRCHB DM
CODE
CREATING ZRCMB MOST CODE

vAx.11 Bliss-16 v3.555

SPIDERSUSERS: [NEALE .AZTEC JZRCHBL.B16; T0¢2)

D1
ZRCHB1

REV B PATCH 00
:
:
:

:
:
:
:
:
:

C 0106
C 0107
C 0108

C
C
C
C
C
C

0109
0110
0111
0112
0113
0114

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION
0.0

22-Feb-1984 12:03:49

VAX-11 Bliss-16 v3-555

Page
3
SPIDERSUSERS: [NEALE.AZTEC JZRCHB1 . 81637
(3)

MAINTENANCE MISTORY
Modified By: D.W.Neale
Original release

Date:

13-Jul-83

Version:

SEQ 0003

1.0

Modified By: D.W.Neale
Date: 23-Jan-84
Version: 2.0
Modified DM formatter to format inner DBN tracks with offset.
Other minor host code changes marked by the notation "Vv2.0",

El
ZRCHB1

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

12:03:49

C 0115
C C116
C
C
C
C
E

0117
0118
0119
0120
8{35

1.1
PROGRAM ABSTRACT
This program will prepare RC25 media for use as addressable storage
by
providing headers
and replacing of bad blocks.
This formatter will be
composed of
two
sections;
a
host-resident
section,
and
&
controller-resident DM code section.

3
:
:
:
:
:
:

C
C
C
C
C
C
C

0123
0124
0125
0126
0127
0128
0129

The host section will serially format up to sixteen RC25
subsystems
by
downline-loading
the
DM
code,
end
monitor
the
task.
The downline
section will consist of ovorloyo of DM code.
The first of these will be
down-line loaded to the drive itself, and sccomplish the actual business
of formatting, celling in additional overlays as needed, asking software
parameters questions
end printing
formatter
error and informational
messages.

E 8%;(1)

:
:
3
:
3
H

C
C
C
C
C
C

GENERAL INFORMATION

There are

0132
0133
0134
0135
0136
0137

three general modes of DM formatter operation and they

are:

© REFORMAT - This mode is used to format a medium which has been
previously
formatted,
end
is bei
reformatted
to
clear
existing data or to change the mode of
the medium to 512 bytes
per sector.
It assumes that the FCT is still intact.
© RESTORE - This mode will only be run by DIGITAL
Manufacturing
personnel.
It provides an external copy of the FCT, produced

:
3
:
H
3
:

C
C
C
C
C
E

0138
0139
0140
0141
0142
8{:2

:
:
3
:
3
H
:

C
C
C
C
C
C
C

0145
0146
0147
0148
0149
0150
0151

There are two general modes of HOST operation and they are:
o ATTENDED MODE- This is where an operator must be present at the
console terminal to respond to DM formatter software parameter
questions.
In this HOST mode the operator can choose any of the
three DM fomtfin' modes
.
© UN-ATTENDED MODEThis is where the HOST will automatically
answer
DM formatter software parameter questions to perform a REF
AT

:
:
;
3

C
C
C
E

0154
0155
0156
8{?’;

1.2
Performance Goals
Before initiating the format process, simple
checks
will
be
made
to
assure
the
object
drive
exists, and that communications are possible
between host and downline progrem sections.

C 0159

To maximize throughput:

:
3
:
:
3
H
3
3

C
C
C
C
C
C
C
C

is,
for even physical LBN track numbers each
block number in
Track N+1
will
occur
16
block times
later than in Track N.
© During bad block replacement, primary replacement blocks (RBN)
will
be
used
first.
A second pass will then use secondary
RBN's for any additional bad blocks.
All
bad blocks,
whether
induced
by
the
manufacturing
process
or
wear-caused,
will be revectored to Replacement Blocks (RBN).
This will
assure the full
compliment
of
25,451
blocks
per
surface
for
host

;

:
:

E g{gi

C 0160

0161
0162
0163
0164
0165
0166
0167
0168

C 0169
C 0170

c o171

when the disk was manufactured
end
stored
offline,
to
the
RC2S formatter.
© RECONSTRUCT - This mode is used when none of the
other
modes
is
possible.
It detects bad blocks by performing repetitive
read checks of each sector.
For this
reason,
a
RECONSTRUCT
run tekes considerably longer than the other modes.

mode to all units selected units via the hardware P_Tables.

applications use.
Product reliability

and RCT,

is enhanced through use of four copies

SEQ_0004

Page

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHB1.B16;7 (4)

:
:
3
3
H
H
:

1.0

22-Feb-1984

VAX-11 Blies-16 Vv3-555

That

the

FCT

F1
ZRCHB1

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

REV B PATCH 00 USER DOCUMENTATION
:
:

C 0172
‘C: 81;3

:
3
:
:
:
:
:
3

C 0175
C 0176
C 0177
C o178
C 0179
C 0180
C o181
E 8{35

:
:
:
3
:

C 0184
C 0185
C 0186
C 0187
C 0188

:
:
:

C 0190
C 0191
C 0192

174

1.3

22-Feb-1984 12:03:49

VAX-11 Bliss-16 v3-555

SYSTEM REQUIREMENTS

RELATED OOCGENTS AND STANDARDS
1.
DUP.vV
Diagnostic/Utilities Protocol version 0.5
s
UOSSP DOC
Unibus/Q-Bus Storage Systems port V1.5
4, MSCP.DOC
Mass Storage Control Protocol
S.
AZTEC.DOC
RC25 Microcode Documentation

C 0189

tc: 8{33

10. BLISS-16

7.
8.
9.

DSDFV11.00C

SUPPRGC.DOC
CHQUSD.SEQ
BLISS-16

Stendard Disk Format Specification version 1.1

PDP-11 Diegnostic Suporvusor Programming guide
XXDP+/SUPR user manual
Lenguage Guide
User's Guide

g glgz

1.5

(c: 8};;

A fully functional CPU. main memory and RC25 subsystem are required.

C 0199

:
:

C 0201
C 0202

1.6

DIAGNOSTIC MIERARCHY PREREQUISITES

ASSUMPTIONS

C 0200

Prior to the first formatting of & media, an exhaustive surface analysis

g 8582

been written as two FCT

E 8%82

1.7 PRODUCT USERS AND USES

C 0207

3
:
:
:
:

C
C
C
C
C

:
:

C 0208

0209
0210
0211
0212
0213

C 0214

E 8%{2

is
essumed
to
have
manufacturing process.

taken
place
to
detect
bad spots caused by the
The results of this analysis is assumed to
have

images per FCT track on the RC2S5S medie.

This program is intended for use on medie which has undergone a

enalysis

process,

resulting

surface

the writing of Factory Control Tables

(FCT)
on the media.
The program will be used by Eng-mrm’ and Manufacturing Groups
as
a
product
development
tool,
ield
Service personnel for media
recovery.
This program is a utility and is not intended for use as a diagnostic.

For future use, the DM formatter code portion of this program
used by operating systems

as a format utility program,

Page

SPIDERSUSERS: (NEALE .AZTEC]ZRCHB1. 816;7(4)

The following are required to run the RC25 Formatter
on PDP-11 Systems:
¢ A POP-11 series CPU
¢ Aminimum of 28K words of main memory
¢ An RC25 subsystem
¢ An XXDP+ load medium
s A console terminal
» Diagnostic Supervisor

1.4

SEQ 0005

will

G1
ZRCHB1

REV B PATCH 00

3
3
:

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

C 0217
C 0218
g 8333

1.8

C 0221

With the exception of the FCT and inner DBN tracks,

:
:
:

C 0226
C 0227
C 0228

:
:
:
3

:
:

C
C
C
C

0222
0223
0224
0225

12:03:49

VAX-11 Bliss-16 V3-555

recorded
blocks.

loaded.

on the media will be destroyed.

This

all

information

includes all LBN,

previously

RBN and RCT

The format process will reset the forced error indicator (EDC field)
of
each LBN, DBN, and used RBN
and set the forced error indicators of all
unused REN's,

C 0229
E 83;?

The FCT preamble will indicate zero for both the size
of
the
replacement table, and the size of the controller scratch area.

E 8§§§

All sectors will have S12 byte data fields.

:
:

C 0234
g 8%;2

This Host program will run on only PDOP-11 family
Diagnostic Supervisors.

CPUs

Page

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB1.B16;7 (5S)

RESTRICTIONS

This program will be host

SEQ 0006

576 byte

which support

the

H1
ZRCHB1

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

USER DOCUMENTATION

22-Feb-1984 12:03:49

C 0237

1.9 Bad Block Definition

E 8528

The Formatters bad block replacement convention

;

C 0238

C 0241

C0242

E 8%:3

C 0245

;

C 0251

E 8522

;

C 0252

C 0255

E 832?

C 0258

C 0259

crccccccccccccancs.

Any ECC,

read or compare cata failure will result

in four retries.

in error will be replaced.

The block in question will be considered
will be done if all retries are successful.
=

and

and no revectoring

For Write operations:
ceccccmccccccacanaan

A Write

failure will

result

four retries.

Failure of any retries will be considered a Hard error
the block

in error will be replaced.

The block in question will be considered

will be done

if all retries are successful.

and

and no revectoring

SEQ 0007

SPIDERSUSERS: [NEALE.AZTEC JZRCHB1 . 816;7
(6)

For Read operations:

the block

C 0248
E gggg

VAX-11 Bliss-16 V3-555

is as follows:

Failure of any retries will be considered a Hard error

E 854?

:
:
:

13:43:03

I1
ZRCHB1

REV B PATCH 00

3
:

3
:
:
:
3
:
:
:
:
:
:
:
:
:

:
3
:
H
:
:
3

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

12:03:49

VAX-11 Bliss-16 V3-555

1.10 SOURCE MODULE DEFINITION

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

The following list all source module comprising ZRCHBO and a description
of their contents,.

0262
0263
0264
0265
0266
0267
0268
0269
0270
0271
0272
0273
0274
0275

0276
0277
0278
0279
0280

C 0281
C 0282

1.
2.
3.
4.
S.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

17.

ZRCHBO.R16
ZRCHB1.B16
ZRCHB2.B16
ZRCHB3.B16
ZRCHBA4 .B16
ZRCHBS5.B16
ZRCHB6.B16
ZRCHB7.B16
ZRCHBS8.EXE
ZRCHB9.BP2
ZRCHB10.LST
ZRCHB11.MAC
ZRCHB12.SAV
ZRCHB.COM
ZRCHB.DOC
ZRCHB.SEQ

ZRCHB.BIN

Host source bliss library
Program source document module
Global data module
Init code source module
Test source module
Global routine source module
DM formatter down-line load executable module
DRS> Last address source module
DMCONV.EXE Dmconv executable code
DMCONV.BP2 Dmconv source module
AZFMTR.LST DM formatter list file
AZFMTR.MAC DM formatter source macro module
AZFMTR.SAV DM formatter executable code
Project indirect command file
Program document listing file
Host sequence listing

Program XXDP:

.bin file

SEQ 0008

Page

SPIDER
: [NEALE.A
SUS
ZTECJZRC
ERS
HB1.B16;7 (7)

(C: ggg?

C
C
C
C
C

ZRCHBO RC2S DISK FORMATTER

J1
ZRCHB1
REV B PATCH 00

:
:

ZRCHBO RC2S DISK FORMATTER
USER DOCUMENTATION

E 8332

2.0

C 0285

This

for detailed

C 0288

2.1

0289
0290
0291
gggg

SEQ_0009
VAX-11 Bliss-16 v3-555
Page
9
SPIDER
: [NEALE.A
SUS
ZTEC JZRCHB1.
ERS
B16;7 (8)

section contains a brief description of the runtime services.

E gggg

C
C
C
E

13:43:03
12:03:49

OPERATING INSTRUCTIONS

:
:
:
3

S-Apr-1984
22-Feb-1984

information,

refer

to the XXDP:

user's manual

(CHQUS).

COMMANDS

There
are eleven legal commands for the diagnostic runtime services
(supervisor).
This
section lists
the commands
and gives
a
very
brief description of them.
The XXDP+ user’'s manual has more details.

C 0294

COMMAND

EFFECT

:
:

B OBNE - E 853?

€ 0298

RESTART

C 0300

Start the diagnostic without initializing

CONTINUE

Continue at test that was interrupted (after *C)

;

:
3
:

;

swmsssenl
START

C 0301
C 0302
E 8382

]

saenssen
wiesni
sesusaes
s
Start the diagnostic from an

initial state

Attempts to continue after a control ¢ will result
in the present units Formntting to be aborted and
the next logical units formatting to commence.

H
3
3

C 0306
C 0307
g gggg

C 0305

PROCEED

Continue from an error halt.

;

g 8;{2

EXIT

;

C 0312

ADD

Return to XXDP+ monitor (XXDP+ operation only!)

g ggiz

C 0315

H
:
:
:
:
:

C
C
C
C
C
E

;

E 8;32
€ 0325

:
;

;

H
H
H

:
3

:
3
:

0316
0317
0318
0319
0320
8355

C 0327

time

DROP

Deactivate a unit

Print statistical information.
Report summary
coding is remote DM program driven and is not
implemented in the host.

DISPLAY

Type a list of all device

So you may,

C 0330

2.2

C 0331
C 0332
C 0333

information

for example,

type

“STA"

instead

of “START",

SWITCHES

There are
operation.

C 0334
C 0335
C 0336

B IR i

Activate a unit for testing (all units are

considered to be active at start

FLAGS
Type the state of all flags (see section 2.3)
ZFLAGS
Clear all flags (see section 2.3)
A command cen be recognized by the first three characters.

E 8§gg

C 0337
C 0338

This host program

is coded to be a utility and not a diagnostic,
therefor no error macros are used.
For this
reason this DRS> command has no meaning.

several
switches which are used to modi
fy supervisor
These
switches are
appended
to the legal
commands.

All
of
the
legal
switches
are
tabulated below with a brief
description of each. In the descriptions below, & decimal number
is designated by "DDDDD".
S

et ol

SWITCH
g

el IR

EFFECT
g

iK1
ZRCHB1

REV B PATCH 00

S-Apr-1984
22-Feb-1984

ZRCHBO RC25S DISK FORMATTER
USER DOCUMENTATION

C 0340
C 0341
0342

/TESTS:LIST

13:43:03
12:03:49

SEQ 0010
VAX-11 Bliss-16 VZ 555
Page
SPIDERSUSERS:([NEALE.AZTEC ]JZRCHB1.B16;
7 3%

Execute only those tests specified in
the list.
List is a stri
of test

numbers, for example - /TESTS:1:5:7-10.
This list will cause tests 1,5,7,8,9,10 to

0343
0344
0345

be run.

All other tests will not be run.

0346
0347
0348
349

/PASS :DDDDD

Execute DDDDD passes (DDDDD =

1 to 64000)

0351
0352
0353
0354

/FLAGS:FLGS

Set specified flags.

/EOP :DDDDD

Report end of pass 0036885 after every
DDODDD passes only.
= 1 to 64000)

The host code will perform only one pass.

At completion of pass one

the program will

be terminated regardless of this switch.

0350

in section 2.3.

flags are described

The host code uill perform only one pass.

At completion of pass one the program will

be terminated regardless of this switch.
0360

TEST/ADD/DROP only those units specified
in the list.
List example - /UNITS:0:5:10-12

ZUNITS:LIST

use units 0,5,10,11,12 (unit numbers = 0-63)

0364

Example of.ouitch usage:

0366
0

0368

START/TESTS:1-5/PASS:1000/E0P:100
The effect of this command will be:

0370

Tests 1

through 5 will be executed.

0372

All

0374
0375

The
end of
pass messages will be
printed after each 100 passes only.

wunits will

tested 1000 times.

0377
0378

A Switch can be recognized by
the first three characters.
You
may, for
example, type
“/TES:1-5" instead
of “/TESTS:1-5".

0380
0381

Below is a table that specifies which switches can be used by
each command.

0383

0388
0389
0391
0392
0393
0394
0395
0396

TESTS

PROCEED
DROP
ADD
PRINT
DISPLAY
FLAGS
ZFLAGS
EXIT

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

X
X

L1
ZRCHB1

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

OOOOOOOOOOOOOOOONOOOOOONOOONOOOOONOOOOOOOOOOOOOOOOOOOOO0O0

S0 B8

B4 B0 B0 G0 S¢ S

SF G

G4 G

S8 G

S8 S

S0 T

BF G0

SF G0

G0 S0 G0 S5 G0

G0 G0 S

SF W6 S0 W5 G0 G0 B0 S0 S0 S0 S0 S0 S0 80

v @

REV 8 PATCH 00 USER DOCUMENTATION

13:43:03

VAX-11 Bliss-16 V3-555

22-Feb-1984 12:03:49

Flags are used to set up certain operational parameters such as
looping
on error.
All flags are cleared at startup and remain
cleared
until explicitly
set
using the
Fflags switch.
Flags
are
also cleared
after
a start
command unless set using the
flag switch.
The ZFLAGS
command
may also
be used
to clear

0406

0405

8:8;

FLAGS

all flags. with the exception of the START and ZFLAGS commands,
commands affect the state of the flags;

cleared as specified by the last flag switch.

they remain set or

0409

FLAG

0411

HOE

0414
0415
8:{?

LOE

Loop on error

IERs

Inhibit all error reports

0418
0419
g:gg

IBRe

Inhibit
all error reports except first
level
(first level contains error type,
number, PC, test and unit)

0422
8:52

IXR+

Inhibit extended error reports (those
called by PRINTX macro's)

8:52

PRI

Direct messages to

g:g;

PNT

0429
0430

BOE

“BELL"” on error

8:;5

UAM

Unattended mode (no manual

0433

ISR

0410

“e==

g:ig

0434

0435
0436

|||

EFFECT

eeececccccccccccccccccccacacaaan

Halt on error

- control

is returned to

runtime services command mode

line printer

test number as

Inhibit statistical

test executes

intervention)

reports (does not

apply

to diagnostics which do not support statistical

reporting)

8:;;

IDR

Inhibit program dropping of units

0439
0440
0441
0442
0443
0444
0445

ADR

Execute autodrop code

LoT

Loop on

EVL

Execute evaluation (on diagnostics which
have evaluation support)

8::3

0448
0449

test

serror messages are described
See the XXDP+ user's manual
more

than one

in section 3.1

for more details on

fl.Y with

the

flags.

flag switch.,

For

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.B16; 7(8)

0397
0338
0399
0400
0401
0402
0403
0404

2.3

SEQ 0011

You may

0450

specify

example,

0451
8:2%

to
cause
the program to
loop on error, inhibit error reports
and
type a "BELL”
on error,
you may use the following string:

M1
ZRCHB1

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

REV B PATCH 00 USER DOCUMENTATION

VAX-11 Bliss-16 Vv3-555

22-Feb-1984 12:03:49

C
C
C
E

;

C 0459

When a diagnostic is started, the runtime services will prompt the

:
3
:
:
:
:
3
3
:
3
:
:

C
C
C
C
C
C
C
C
C
C
C
E

"Y" after a start command unless
the
hardware
information
has
been
"preloaded” using the setup utility (see Chapter 6 of the XXDP+ user's
Manual).
When you answer this question with a "Y"”, the runtime services
will
ask
for the number of units (in decimal).
You will then be asked
the following questions for each unit.

C 0460

0461
0462
0463
0464
0465
0466
0467
0468
0469
0470
0471
8:;%

/FLAGS:LOE: IER:BOE
2.4

for

HARDWARE QUESTIONS

hardware

information by typing "CHANGE HW (L) ?”.

Answer with the number of units to be tested (no default).
This
answer will determine how many times the following questions are
asked.
A unit is a logical disk (single platter) on
an
RC2S5.
A maximum of sixteen units will be accepted by the init code.

;

E 8:;;

C 0476

C 0477
C 0478
E 8:;3

controller
as
addressed
by
the
processor
with
memory
man
t turned off (i.e., An even 16 bit address in the range
of 160000 to 177774).

¢ gasy

RC25 INTERRUPT VECTOR ADDRESS (0) 154 ?

;

C 0483

:
3
:

3
:
:
3

;

C
C
C
E

0484
0485
0486
8:3;

C 0489

ADDRESS (0) 172150 ?

the

Answer with

the

address of

controller.
specified.

Answer

with

interrupt

RC25

BUS

REQUEST

vector

address

LEVEL

address

one

RC25

the

RC2S

in the range of 4 to 774 may be

(D) S5

Answer with the interrupt priority used by the RC25.

Levels 4

C 0490
C 0491
g g:gg

UNIT

;

C 0494

Answer with the physical platter number you wish to bring online.

;

C 0498

2.5

H
:
;

C 0495
E 8:3?
C 0499
C 0500
C 0501

E 8gg§

to 7 are accepted.

3
:
:

3
H

user

You must answer

& UNITS (D) ?

RC25

NUMBER TO BRING

ONLINE (D) O ?

The removable platter is an even number and the fixed platter
the sequentially following odd number.

SOFTWARE QUESTIONS

The supervisor will ask the question "CHANGE SW (L) ?.
This question is
to
be
answered
with 'Y',
The following message will be printed to the

console terminal:

;

E gggg

:
3

C 0506
g 828;

A 'YES' response (the default) will cause the host to run
reformat mode (see
section 7.2 for description).

C 0509
C 0510

A 'NO’ response will cause the host to run in ATTENDED mode (see section
7.1 for description).
In this mode an operator must be present at the

H
:

SEQ 0012
Page
12

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.8B16;7(8)

3
:
:
3

0454
0455
0456
g:g;

13:43:03

FORMAT IN UNATTENDED REFORMAT MODE (L) YES ?
in UN-ATTENDED

N1
7RCHB1

REV B PATCH 00

:
:

3
3

22-Feb-1984

VAX-11 Bliss-16 v3-555

12:03:49

console terminal to answer the following DM formatter software questions:

E ggig

used as the DUP question numbers.

3
3

C 0519
E 8230

3
:

C 0522
C 0523

USER DOCUMENTATION

1
C 0513

C 0516
E gg{;

SEQ 0013
Page
13
SPID
:ERSU
[NEALE.AZTEC)ZRCHB1.B1
SERS
6;7 (8)

S-Apr-1984 13:43:03

g gglé

3
:

ZRCHBO RC2S DISK FORMATTER

The DM will ask

the following questions.

Enter date:
Enter the current date

The question numbers

in MM-DD-YYYY,

Enter unit number to format:
Enter the number of the unit to format.

Enter sector size to be used (512/576):
This question is for compatibility
with

E 823;

The RC25

are those

other

formatters.

formatter will skip this question.

:
:
:

C 0526
C 0527
E 8?38

Enter mode to be used (slow/normal/fast):
This question is for compatibility
with
other
The RC25 formatter will skip this question.

:
3
3
3

C
C
C
g

0530
0531
0532
83;2

Use existing bad block information (y/n):
If the answer is YES, a REFORMAT mode format
is
done.
If
the
answer
is
NO,
the
mode
of
format is determined by
question S.
If the answer is YES, question S is skipped.

3
:
:
:
:
:
:
3
3
3
3
3
H
3

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

0535
0536
0537
0538
0539
0540
0541
0542
0543
0544
0545
0546
0547
0548

DOWN-LINE LOAD bad block information (y/n):
An answer of NO will cause a RECONSTRUCT mode format
to
be
performed.
If
an
answer
of YES is given, a RESTORE mode
format will
be
performed.
An
answer
of
NO
will
skip
question 6.
NOTE:
It is the
responsibility
of
the
host
program
to
obtain
the
name
of
the file to be used for the DOWN-LINE
LOAD.

Continue if bad block information is inaccessible (y/n):
An answer of YES will cause a RECONSTRUCT mode format to

done

block

be
if
data

inaccessible.

if the formatter cannot read the FCT on the disk or

a RESTORE mode format was attempted and the bad

;

C 0549

E 8%25

answer of NO will terminate the question seguence.

:
:
:

C 0553
C 0554
C 0555

FCT blocks will be requested via
the
special
DUP
nossosc
code.
The
Ffirst data word in this message will be the FCT
block (relative to zero) regquested by
the
formatter.
All

;
;

C 0550

to abort

C 0556

DUP

C 0557
C 0558

E 822?

3
:

C 0562
C 0563

C 0%64
g 8222

An answer of NO will cause the format

if the bad block information

sequence numbers for FCT block

requests will be 1.

The

response is @ 3 word block from the host.
The first word is
0 if the block was successfully retrieved and non-zero if it

C 0559

:
3

file was unavailable.

was not.

The next 2 words contain the UNIBUS address

buffer containing the 512 byte block from the FCT file.
7.

Enter serial number:
Enter the 64-bit decimal serial number of

the

formatted.
In the RC25 formatter this number
if & RECONSTRUCT mode format is used.

disk

is used only

Be
ZRCHB1

REV B PATCH 00

ZRCHBO RC25S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

12:03:49

VAX-11 Bliss-16 v3-555

2.6

C 0569

When you

:
:
:
:
3

C
C
C
C
E

way
to build
this table
is
to
enswer
all questions for each
unit
to be
tested.
If you have a multiplexed device such as
a mass storage controller with several drives or a communication
device with several lines, this becomes tedious since most of the
answers are repetitious.

C 0570

o571
0572
0573
0574
gg;g

C 0577

C 0582

:
:
:
:
:
:

:
3
:
3
:
:
H
:
:
3

:
3
3
:
:
:
:
:
:
:
3
H
:
3
3

3
:
:
3
H
3
:
H
3
H
H
;
H
H

C
C
C
C

0578
0579
0580
0581

E 855343
C
C
C
C
C
C
C
C
C
C

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

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

0585
0586
0587
o588
0589
0590
0591
0592
0593
0594

0595
0596
0597
0598
0599
0600
0601
0602
0603
0604
0605
0606
0607
0608
0609

0610
0611
0612
0613
0614
0615
0616
0617
0618
0619
0620
0621
0622
0623

EXTENDED P-TABLE DIALOGUE

answer the hardware questions,

o table that describes the

illustrate a

you are building entries

devices under test.

more efficient method,

suppose

The simplest

you are tutin’

a
Ffictional
device,
the XYll.
Suppose this device consists o
a8 control
module with eight
units (sub-devices) attached to it.
These units are described by the octal numbers O through 7.
There
is one
hardware parameter that cen very among units called the

Q-FACTOR.

This Q-FACTOR

may

be O or 1.

Below is & simple way

to build a table for one xyll with eight units.
@ UNITS (B)

8<«CR>

UNIT 1
CSR ADDRESS (0)
?
SUB-DEVICE @ (0) ?
2?2

160000<CR>
O<CR»
1<CR>

?
2
?

160000<CR>
1<CR>
0<CR»

UNIT 3
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) 0

?
?2
2?2

160000<CR>
2<CR»
<CR»

UNIT 4
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) 0O

?
?
2?2

160000<CR»
3<CR>
<CR»

UNIT S
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) 0

?
?
2?2

160000<CR>
4<CR»
<CR>

UNIT 6
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) 0

2?2
2
2

160000<CR»
S<CR»
<CR>

UNIT 7
CSR ADDRESS (0)
SUB-DEVICE ¢ (0)
Q-FACTOR (0) ©

2?2
?
?2

160000<CR>
6<CR>»
1<CR»>

UNIT 8
CSR ADDRESS (0)

2?2

160000<CR>»

Q-FACTOR (0) 0O

UNIT 2
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0)

Page

SPID:ERSU
([NEALE .AZTEC)ZRCHB
SERS
1.B16;7 (9)

g 8552;

SEQ 0014

Ce
ZRCHB1

REV B PATCH 00

H
3
:
:

C
C
C
C

0624
0625
0626
0627

:
:
:
:
:
3

C
C
C
C
C
g

:
3

C 0635
g %;9’

:
:
3

C 0638
C 0639
C 0640

:
:
:
3
:
3
:

C
C
C
C
C
C
C

0628
0629
0630
0631
0632
%gz

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22 -Feb-1984

SUB-DEVICE @ (0) 2
Q-FACTOR (0) 1
?

12:03:49

VAX-11 Bliss-16 Vv3-555

7<CR>
<«CR»

Notice that the default value for the Q-FACTOR changes when a

non-default
response
multiple units!

given.,

careful when specifying

As you
can see
from the
above example, the hardware parameters
do not very significantly from unit to unit.
The procedure shown
is not very efficient,
The runtime services cen take multiple unit specifications
however.
Let's build the same table using the multiple specification feature.

@ UNITS (D)
UNIT

C 0641

0642
0643
0644
0645
0646
0647
0648

8<CR>

CSR ADDRESS (0)

SUB-DEVICE @ (0) 2
Q-FACTOR (0) O
?

2?2

0,1<CR>
1,0<«CR»

UNIT 3
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) O

?
2
?

160000<CR>
2-5<CR»>
O0<«CR»

UNIT 7
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) O

?
2
?2

160000<CR>
6,7<CR>
1<CR»

160000<CR>

:
:
3
:
3
:
3
:

C
C
C
C
C
C
C
C

0649
0650
0651
0652
0653
0654
0655
0656

As
you can
see in
the sbove dialogue, the runtime services will
build as
many entries as it can with the information given in any

3
3
:
3
3
3

C
C
C
C
C
C

0658
0659
0660
0661
0662
0663

are built since two sub-devices and Q-FACTORS were specified.
The
services
assume that
the CSR address is 160000 for both since it
was
specified only
once.
In
the second pass, four entries were
built.
This
is
because
four
sub-devices were
specified.
The
"-"
construct tells
the
runtime services
to increment the data
from
the first
number to
the second.
In this case, sub-devices

C 0657

one

C 0666
C 0667

E gggg

specified in the third pass.

3
:
3
3
3
3
3
:

C
C
C
C
C
C
C
C

The whole process could have been accomplished
below.

C 0680

C 0668

0671
0672
0673
0674
0675
0676
0677
0678

0679

addresses,

were specified.

the first pass,

:
3

and S

C 0664

C 0665

3,4

the questions.

;

pass through

the

two entries

(If the sub-device were specified

increment would

be by

2 since addresses must

be on an even boundery.)
The CSR
addresses and Q-FACTORS for
the
four entries
are
assumed
to be
160000 and 0
respectively
since

they were

only

® UNITS (D)

specified

once.

The

8<CR>

UNIT 1
CSR ADDRESS (0)
SUB-DEVICE @ (0)

2?2
2

160000<CR>»
O0-7<CR»>

Q-FACTOR

0,1,0,,,.,1,1<CR>

(0)

last

two

SEOPO&S 15

SPIDER
[NEALE
SUS
.AZTEC )ZRCHB1.81
ERS:
6;7 (9)

units are

in one pass as shown

De
ZRCHB1

REV B PATCH 00

3
:
3

:
3
:
:

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

As you can see from this example, null replies (commas enclosing
a null field) tell the runtime services to repeat the last reply.

C
C
C
C

2.7

0684
0685
0686
0687
0688
0689
0690
0691
0692

QUICK START-UP PROCEDURE

(XXDP+)

To start-up this program:

C
C
C
C
C

:
:
H

C 0694
C 0695
C 0696

Type "START"

E 823;

Answer the

E 0699

6. Answer all the hardware questions

:
H

:
:

:
:
3
H

0700
C 8;85

B 0703
E 0704
C 82’3.'6)
5

Boot XXDP.

Give the date

C 0693

When

Type "R ZRCHBO", where name

file for this program

Answer

you follow

the

is the name of the bin or bic

"CHANGE HW" question with

"CHANGE

SW" question with

“N”

this procedure you will be using only

defaults for flags and software parameters.
are described

"Y*

in sections 2.3 and 2.5.

the

These defaults

SEQ 0016

Page

SPIDERSU
[NEALE .AZTEC
SERS
JZRCHB1.B16
:
;7 (9)

C 0681
E 8235

3
3
:
:
:
:

12:03:49

VAX-11 Bligss-16 v3-555

E2
ZRCHB1

REV B PATCH 00
3
:

E 8;g;
C 0709

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION
2.8

22-Feb-1984 12:03:49

VAX-11 Bliss-16 Vv3-555

indicator words (PID) are maintained by the remote DM program

E 8;10

C 0712

:
:

C 0714
E 83{2

the PID has not increased since the last GET_DUST_STATUS then the remote
program is to be considered dead and the connection to the controller broken.

C 0717
C 0718
E 8;33

However if the PID value has increased since the last GET_DUST_STATUS then
the remote program is to be considered still running.
The new PID words
are saved and command time out waits reinitiated.

C o721
C 0722
E 8;52

This host code will print out to the console terminal the PID values after
each GET_DUST_STATUS while the formatter is running in the controller.
The printing format is as follows:

:
:
:
:

3
3
3
:

C 0713

E g;gz

C 0727

E 8;33

;

C 0730

:
3
:

C 0731
C 0732
E 8;;2

;

E 8;;2

;

C 0737

g 0738
0739

and indicates to the host the DM programs progress running in the controller.

These PID words are then obtained by the host via the DUP GET_DUST_STATUS

command.

The newly obtained PID are compared to previous PID words.

FORMATTER PROGRESSING:

PID MI=xxxxxxx(0) PID LO=xxxxxx(0)

To further demonstrate to the host the progress of the DM formatter

the following is performed:

Each time the DM formatter calls in a new OVCPIOZ from host

memory the low PID word is cleared and the high
PID word
incremented.
The operator can then be observed when new
overlays are called into DM memory.

SPIDEROUSERS:[NEALE.AZTEC)ZRCH81.816;’°?10)

PID (PROCESS INDICATOR) WORDS

The process

P
P

2.9 HOST/DM FORMATTER RUN TIME MESSAGES

All host: messages, fatal errors or operator prompts are printed in UPPER

case characters while all DM formatter: messages, fatal errors, completion
information or operator prompts are printed in lower case characters.

Fe
ZRCHB1

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

USER DOCUMENTATION

22-Feb-1984

13:43:03

VAX-11 Bliss-16 v3-555

12:03:49

SPIDERSU
[NEALE .AZTEC)ZRCH
SERS
B1.B16;7
: (11)

E 8;:?

3.0

ERROR INFORMATION

g 8;:%

3.1

TYPES OF ERROR MESSAGES

:
:
:

C 0744
C 0745

Due to the fact that this is an utility and not a diagnostic error macro
calls will not be used by this host code to report errors.
Instead all
errors will be printed to the operator via the PRINTF macro using the

C 0746

g 8;:;

prefix

g g;;g

3.2

E 8;35

DM Code Error Messages

:
:
:
:
:
3
3
:
:
:
3

C
C
C
C
C
C
C
C
C
C
C

All errors returned are fatal.
formatter
are
as
follows.
message numbers,

0753
0754
0755
0756
0757
0758
0759
0760
0761
0762
0763

3
:
H
3
:
:
3
3
3
:

C
C
C
C
C
C
C
C
C
C

C 0775

:
H
3
H

0764
0765
0766
0767
0768
0769
0770
0771
0772
0773

"“SFTLERR-

error message

text”

indicating this

to be a

1
2
3
4
S
6
7

"GET STATUS failure”
"LESI send error”
"Unsuccessful LESI command”
"LESI receive error”
"“UNIBUS I/0 error"”
"Formatter initialization error”
"Nonexistent unit number"”

8
9
10
11
12
13
14
15
16
17

“DBN/XBN format error (drive FORMAT command failed)"
“FCT does not have enough good copies of each block"”
"SEEK error”
"RCT does not have enough
copies of each block”
“LBN format error (drive FORMAT command failed)"
“FCT write error”
"“RCT read error”
"RCT write error”
"RCT full”
"FCT read error”

"“FCT downline-load error”

C 0776

"Drive

22
23

"WARNING - possible head addressing problems
"INPUT Error"

C
C
C
C

0778
0779
0780
0781

error.

Error messages
returned
by
the
RC2S
The error numbers given are the DUP error

C 0777

fatal

SPECIFIC ERROR MESSAGES

C 0774

"FCT nonexistent"”
init

timeout”

"Illo?nl response to start-up question”

SEQ 0018
Page
18

run diagnostics”

Ge
ZRCHB1

OOOOOOOOOOOOOOOOOOOOOOOOO0O0ON

REV B PATCH 00

0782
0783

0784
0785
0786
0787
0788
0789
0790
0791
0792
0793
0794
0795
0796
0797
0798
0799
0800
0801
0802
0803

ZRCHBO RC25 DISK FORMATTER

USER DOCUMENTATION

S-Apr-1984
22-Feb-1984

13:43:03
12:03:49

Host Error Messages

g Generic self-detected fatal port/controller errors
$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$SFTLERR$FTLERR$FTLERR-

$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR
$FTLERR$FTLERR
-

UNRECOGNIZABLE ERROR CODE
ENVELOPE/PACKET READ (PARITY OR TIMEOUT)
ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT
CONTROLLER ROM AND RAM PARITY
CONTROLLER RAM PARITY
CONTROLLER ROM PARITY
RING READ (PARITY OR TIMEOUT)
RING WRITE (PARITY OR TIMEOUT)

INTERRUPT MASTER
HOST ACCESS TIMEOUT
CREDIT LIMIT EXCEEDED
BUS MASTER ERROR
DIAGNOSTIC CONTROLLER FATAL ERROR
INSTRUCTION LOOP TIMEOUT
INVALID CONNECTION IDENTIFIER
INTERRUPT WRITE

MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER
MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER

CONTROLLER RAM ERROR (NON-PARITY)

INIT SEQUENCE ERROR
HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR
PURGE/POLL HARDWARE FAILURE
MAPPING REGISTER READ ERROR (PARITY

TIMEOUT)

VAX-11 Bliss-16 V3-555

SEQ 0019
P age

SPIDER
: [NEALESUS
.AZTEC )ZRCHB1.8
ERS
B16; 7 (12)

H2
ZRCHB1

OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOONOONO

REV B PATCH 00

0810
0811
0812
0813
0814
0815
0816
0817
0818
0819

ZRCHBO RC25 DISK FORMATTER

USER DOCUMENTATION

S-Apr-1984
22-Feb-1984

! RC25 Self-detected fatal port/controller errors
$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$SFTLERR$FTLERR$FTLERR
$FTLERR$FTLERR$FTLERR
$FTLERR$FTLERR$FTLERR$FTLERR-

VAX READ/WRITE ERROR ON INTERRUPT
INCONSISTENCY AT U.BFIL
INCONSISTENCY AT U.BMTY
INCONSISTENCY AT U.ALOC
INCONSISTENCY AT SERVO ENTRY (PIP SET)
INCONSISTENCY AT SERVO ENTRY (ERR SET)

INCONSISTENCY AT U,SEND
INCONSISTENCY AT U.RECV
INCONSISTENCY AT U.ATTN
INCONSISTENCY AT U.ONLN
ILLEGAL D REQUEST (U.QDRQ)

FENCE-POST ERROR AT PROTAB

BAD PACKET DEQUEUED AT U.DONE

UNEXPLAINED D-PROC SUSPENSION (U..TDS)

OUP PACKET D-Q FAILED (XFC 34/35)
INCONSISTENCY AT U.HTST
INCONSISTENCY AT U.SEKO
INCONSISTENCY AT U.CKSV
D.0PCD FOUND ILLEGAL OPCODE
D.CSF FOUND ILLEGAL OPCODE

UNKNOWN BAD DRIVE STATUS AT D.DSTS
ILLEGAL XFC EXECUTED BY DM
D PICKED UP A ZERO SCB.DB
INCONSISTENCY AT D IDLE LOOP
DM WORD COUNT ERROR ON HOST DMA/SEND/RECV
UNKNOWN DISPLAY FAULT CODE AT D.DFLT
ODRIVE NOT FAULTING IN P.OFLN STATE
U POWER UP DIAGNOSTICS FAILED

D POWER UP DIAGNOSTICS FAILED
ADAPTER CARD FAILURE
EC.TMR TIMED OUT

U.SEND/U.RECV RING READ INCONSISTENCY
UNKNOWN WAITRV REASON AT D.RVCT
D.ARCS DID NOT FIND CLOSEST UNDONE ZONE
U.SEEK FOUND SEEK TO ILLEGAL TRACK
U.HTST INIT DIAG DMA WRITE FAILED
U.HTST INIT DIAG DMA COMPARE FAILED
U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET

MASTER DRIVES ACLO ASSERTED

13:43:03
12:03:49

VAX-11 Bliss-16 Vv3-555

SEQ 0020

SPIDERSUSERS: [NEALE.AZTECJZRCHB1. 816:7(13)

12
ZRCHB1

OOOOOOOOOOOOOOOOOOOOOOOOOONOO

B¢

G¢

REV B PATCH 00

0852
0853
0854

0855
0856
0857
0858
0859
0860
0861
0862

ZRCHBO RC25 DISK FORMATTER

USER DOCUMENTATION

S-Apr-1984 13:43:03
22-Feb-1984 12:03:49

: Host runtime fatal error messages
$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR-

$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$SFTLERR$FTLERR-

NON-EXISTENT RC25 REGISTER ADRS xxxxxx
DUP SERVER ACTIVE AFTER INITIALIZATION
DUP SERVER INACTIVE AFTER EX_SUP_PROG COMMAND
RESPONSE STATUS ERROR: actual status error message
HOST/CONTROLLER OUT OF SEQ

REMOTE PROG NOT RUNNING
UNKNOWN RETURN STATUS CODE

COM AREA INIT ERROR

PORT/HOST SYNC ERROR
MESSAGE LENGTH ERROR
UNKNOWN ENDCODE RECEIVED

ADAPTER PURGE ERROR

UNKNOWN INTERRUPT

INIT SEQ STEP TIMED OUT
INIT SEQ COMPARE ERROR
UNEXPECTED ATTENTION END MESSAGE RECEIVED
UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED
UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED
INVALID COMMAND END MESSAGE RECEIVED
UNKNOWN MESSAGE TYPE RECEIVED
OUTSTANDING COMMAND BUFFER FULL
OUTSTANDING COMMAND BUFFER OUT OF SYNC ERROR
UNKNOWN MESSAGE NUMBER RECEIVED
FILE READ ERROR
PORT/CONTROLLER TIMEOUT ERROR
ILLEGAL FCT FILE LENGTH

VAX-11 Bliss-16 V3-555

SEQ 0021
Page

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB1 . 816:7(14)

Je
ZRCHB1

OOOOONOOOOOOOOOOOOOOOOOOOONOOOOOOOOOOOO0O

G¢

B¢

REV B PATCH 00

0881
0882
0883
0884
0885
0886
0887
0888
0889
0890
0891
0892
0893
0894

ZRCHBO RC25 DISK FORMATTER

USER DOCUMENTATION

!
1

S-Apr-1984
22-Feb-1984

13:43:03
12:03:49

Init code fatal error messages

$FTLERR- NO ADDITIONAL UNITS TO FORMAT - ABORTING
SFTLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL

$FTLERR- ABORTING HOST AND REMOTE PROGRAMS
$FTLERR- ILLEGAL NUMBER OF UNITS SELECTED

SFTLERR$FTLERR$SFTLERR$SFTLERR1}

LIMIT OF SIXTEEN UNITS PER FORMATTING SESSION
RC25 CONTROLLER INITIALIZATION ERROR
PROTOCOL VIOLATION ERROR
COMMUNICATION AREA INIT ERROR

g Dup return status codes
SUCCESSFUL
IMVALID COMMAND
NO REGION AVAILABLE
NO REGION SUITABLE

PROGRAM NOT KNOWN
LOAD FAILURE
?YAM)ALM

é MSCP return status codes

SUCCESS
UNIT-OFFLINE
UNIT-AVAILABLE
MEDIA FORMAT ERROR
WRITE PROTECTED

COMPARE ERROR
DATA ERROR
HOST BUFFER ACCESS ERROR
CONTROLLER ERROR
DRIVE ERROR

MESSAGE FROM AN INTERNAL DIAGNOSTIC

SEQ_0022

P
VAX-11 Bliss-16 V3-555
age 22
SPIDERSUSERS: [NEALE .AZTEC)ZRCHB1.B16; 7 (15)

IK2
ZRCHB1
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
USER DOCUMENTATION

S-Apr-1984 13:43:03
22-Feb-1984 12:03:49

SEQ 0023
VAX-11 Bliss-16 Vv3-555
Page
2
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.B16;7 (16.

E 8358

4.0

:
:
:
:
3

C
C
C
C
C

0921
0922
0923
0924
0925

The formatter issues the following messages upon normal completion.
All
but
the
last are sent as DUP informational messages.
The last is sent
as a DUP
termination message.

3
:
:
:
:
:

C
C
C
C
C
C

0927
0928
0929
0930
0931
0932

3
:
:
:

C
C
C
E

0934
0935
0936
83;;

:
3
3

C 0939
C 0940
E 83:5

"n bad blockc in the RCT area due to data errors”
Where n is the number of blocks in the total RCT area which
were bad due to errors in the data portion of their sectors.

3
3
:
3
3
:
:
:

C
C
C
C
C
C
C
E

0943
0944
0945
0946
0947
0948
0949
gggg

"n bad blocks in the RCT due to header or timi
errors”
Where n is the number of blocks in the total RCT
area
which
were
bad
due
to
errors
in the header or timing areas of
their sectors.

"n bad blocks in the DBN area due to data errors”
Where n is the number of blocks in the DBN area
which
bad due to errors in the data area of their sectors.

3
3
:
:
H
:

C
C
C
C
C
C

0952
0953
0954
0955
0956
0957

"n bad blocks in the
DBN
area
due
to
header
or
timing
errors”
Where n is the number of blocks in the DBN area
which
were
bad
due
to
errors
in
the header or timing area of their
sectors.

C 0958
C 0959

E 8322

"n bad blocks in the XBN area due to cata errors”
Where n is the number of blocks in the XBN area
which

C 0962

10.

"n bad blocks in the

11.

“n bad RBNS"”
Where n is the number of blocks in the RBN area
which
bad due to errors in the data area of their sectors.

12.

"n blocks retried on the check pass"”
Where n is the number of blocks which had an

3
:

s
3
:
3
s
H
3
3
3
3
:

C 0926

PERFORMANCE AND PROGRESS REPORTS

"format completed”

"n revectored LBNs”
Where n is the number of LBNs revectored in
area.

"n primary revectored LBNs"
Where n is the number of
LBNs

C 0933

C
C
C
C
C
C
C
E

0963
0964
0965
0966
0967
0968
0969
83;2

C 0972
C 0973
g gg;g

the

user

data

which

were

"n secondary/tertiary revectored LBNs”
Where n is the number of the LBNs in message #2
secondary or tertiary revectors.

which

were

primary revectors.

message

bad due to errors in the data area of their sectors.
XBN

area

due

header

were

timing

errors”
Where n is the number of blocks in the XBN area
which
were
bad due
to errors
in
the header or timing area of their
sectors.

first

read attempt

after

formatting.

error

were

the

L2
ZRCHB1

ZRCHBO RC25 DISK FORMATTER

5-Apr-1984 13:43:03

REV B PATCH 00 USER DOCUMENTATION
:

C 0976

13.

C 0978

14.

C 0983

5.0

C 0977

:
3
:

C 0979
C 0980
E 8335

:
:

:
3
:
3

C 0984
C 0985

E gggg

C
C
C
E

0988
0989
0990
8333

22-Feb-1984 12:03:49

VAX-11 Bliss-16 v3-555

Dopending on the answers to the start-up questions and the
availability of the bad block
information (FCT).
This
message has the DUP termination message code.
DEVICE INFORMATION TABLES
!

! Hardware parameter coding questions
:

HW_Q1_IP
HW_Q2_VECTOR
HW_Q3_BR
HW_Q4 _UNIT

=
=
=
=

IP REGISTER ADDRESS
INTERRUPT VECTOR ADDRESS
BUS REQUEST LEVEL
UNIT NUMBER TO FORMAT

Page

SPIDER$USERS: [NEALE.AZTEC)ZRCHB1. 816:7(16)

"FCT used successfully” or
"FCT was not used”

SEQ 0024

M2
ZRCHB1
REV B PATCH 00

3
:

C 0993
C 0934

C 0996

:
3
:

:
:
:
:
:
:
3
3
:
:
:
3
3

ZRCHBO RC2S DISK FORMATTER
USER DOCUMENTATION

6.0

TEST SUMMARIES

C 0995

6.1

Reformat Mode Procedure

E 0997
0998
C 0999

Reformat mode

C
C
C
C
C
C
C
C
C
C
C
C
E

1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
{8%5

is accomplished

S-Apr-1984
22-Feb-1984

SEQ 0025
VAX-11 Bliss-16 Vv3-555
Page
25
SPIDERSUSERS: [NEALE.AZTEC]ZRCHB1. 81657 (17)

13:43:03
12:03:49

in four sections:

+ Table Setup

+ Scanning
* Replacement
*+ Check Pass
6.1.1

Table Setup

This section will build an RCT skeleton and perform part of the
revectoring.
A.

The presence of a good FC1 will be determined by the ability
to read each block in an FCT copy, and by verifying the data
contained in the FCT Information Block.

:
3
:
:
3

C
C
C
C

:
:

C
E

3
:

C 1023
E iggg

3
3
:
:

C
C
C
E

1026
1027
1028
%ggg

The RCT tracks will be formatted.
Bad
blocks
in
the
RCT
area
will
be
marked
with
a header code of 11.
If & bad
block occurs in the same position in each copy of
the
RCT,
the format will be aborted, as the media is unusable.

3
:
:

C 1031
C 1032
E %8;2

Both outer and inner DBN areas will be formatted with here.
Two of these
inner DBN tracks will be
formatted with +20,
and -20. offset for diagnostic purposes.

3
3

C 1035
C 1036

A
partial
RCT
will
be
built
from
the
Information
Block
will
be
assembled.

:
:
;
:
3
3
:
3

]
$
5
;
;

1014
1015
1016
1017
E igig

If none of the four FCT copies
either:

1020
iggé

primary

is good,

Abort the program if DM
answered with a 'NO’.

Will do a Reconstruct mode
was answered with a 'YES'.

the

software

Formatter
question

if software

(Software question @6 is:
Continue
information is inaccessible (Y/N):).

will

question
if

FCT:
FCT

bad

was
&6

block

The
RCT
Bad
Block

C
C
C
C
C
C
E

1037
1038
1039
1040
1041
1042
%8:2

Descriptors coded
for
primary
revectoring
will
be
transformed
into RCT
entries.
This is done by converting
the PBN address into an LBN address, and entering
it
into
the
corresponding RBN descriptor
slot for the particular
track, with a code of 02.
Other
RBN
descriptors
will
be
designated
as
unallocated
(code
00)
if
they
have
a
corresponding RBN, or as nulls (code 10) if they do not.

C
C
C
C
C

1045
1046
1047
1048
1049

Two copies of the RCT will be written to each of the two RCT
tracks.
All LBN's marked for secondary revectoring will be stored in
an
"R2"
Table.
Replacement RBN's for these LBN's will be

N2
ZRCHB1
REV B PATCH 00
:
:

:
:
:
3

:
:
3
:
:
:
:
3
3
3
3
:
:
:
3
:

}8??

C
C
C
C

1052
1053
1054
1055

Cc1056
C 1057
C 1058
C 1059
C 1060
C 1061
€C1062
C 1063
C 1064
C 1065
C 1066
C 1067
C 1068
C 1069
C 1070
E {8;5

ZRCHBO RC25 DISK FORMATTER
USER DOCUMENTATION
resolved after primary

6.1.2
NOTE:
-----

E {8;2

SEQ 0026
VAX-11 Bliss-16 v3-555
Page
26
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.B16;7 (17)

S-Apr-1984 13:43:03
22-Feb-1984 12:03:49
revectoring

is completed.

Scanning

The following section 6.1.2 generally describes the scanning philosophy
used by this formatter.
Specific scanning philosophies for each formatting
mode is as follows:

REFORMAT mode:

cecceccccnen.
In this
mode the FCT file is accessible.
The RCT file is built from
the FCT and the LBN area is scanned for additional bad blocks.
This mode
will scan only for data pattern W.

RESTORE mode:

ceccesnccces
In this mode an external FCT file is br
t in form the Host and written
to the media’'s FCT track.
After the FCT
file has been restored a normal
Reformat mode is performed scanning for data pattern W only.
RECONSTRUCT mode:

‘

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

H
3
:
3
3

C
C
C
C
E

H
3

C 1081
E {8:%

This section writes headers throughout
the
LBN
ares.
It
additional bad blocks, and completes the primary revectoring.

:
:

C 1084
E {8:2

Scanning will start at LBN Track O (Top Surface 0GB) and progress to LBN
Track Max (Bottom Surface OGB) following logical ordering of LBN tracks.

3
:
H
3
H
:
3
:
3
:
3
;
:
:
:
3
:
3
:

C 1087
C 1088
C 1089

1075
1076
1077
1078
%8;3

In this mode the FCT file is inaccessible.
The FCT I.D. block is not
formatted but rather read/write scanned with all data patterns.
The I.D>
is then rebuilt indicating zero FCT entries.
The Reformat mode overlay
is then called in to DM space and will read/write scan the LBN area with
all data patterns.

C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
E

1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105

scans

An LBN track is written with headers
and
Data
Pattern
W,
using
the Format Track on Index XFC.
A failure of this XFC
will result in 10 retries.
If all retries fail, the
format
will be aborted.

The
header
codes
connote
block
status.
They
will
be
determined
b{
the
FCT
Bad
Block
Descriptors
as in the
following table:

e
T T
SR .
: FCT Descriptor Code
Header Code
:
R
e
RR e v
:
Not listed
s
00 - Good LBN
:
:
l2 or 14
:
05 - Primary revector
:
:
02 or 04
s
03 - Secondary revector :
:
01
.
:
11 - Secondary revector-:
:
:
header problem
:
:
Any for RBN
:
11 - Unusable RBN
:
L
R .

for

B3
ZRCHB1

REV B PATCH 00

3
:
:

:
:
B

:
3
:

3
3
:
:

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

C 1107
C 1108
C 1109

22-Feb-1984

VAX-11 Blies-16 v3-555

12:03:49

block

C 1110
(c: {Hé

per
track may be designated for primary revectoring
with an FCT descriptor code of 12 or 14,

C 1113
C 1114
g “{2

If there are no bad blocks in the track,
the
forced error
indicator
will
be
set
in
the
RBN at format XFC time by
complimenting its expected EDC field.

S
C
C
‘C:

1117
1118
1119
{{S‘;’

C
C
C
C
E

1122
1123
1124
1125
Hg{;

Error-free blocks will be written with LBN-unigue Pattern 1.
IfF
the
treck
hes o primery revector block, its deta field
will be written with 128 copies of the tracks RBN
address,
eand
the
RBN will be written with LBN-unique Pattern 1 for
the replaced block.

C 1128
C 1129
C 1130

g {gé

Each
block,
except
used RBN
and
secondary
replecement
blocks, is read and its date compared to the expected velue.
This will be done with revectoring
enabled
for
a
primary
replacement block, end disabled for the others.

{gz

Ihis process

:
3
3
3
:
3
:

C
C

1135
1136

C
C
C
E

1138
1139
1140
H:é

1143

3
:
3
:
:
:

:
:
:

:
3

£ 1137

Any error,
retries.

and

including correctable errors, will
result
in
4
Any
block failing these will be considered a bad

block.
If no primery revector block already exists
in
the
track,
the
Ffirst
to
feil
will
be primary revectored by
making an RCT entry in its RBN
descriptor,
reheader:
it

with a code of 05, and resetting the

All blocks in the treck will
be
read without
revectoring
enabled,
ond compared
to Pattern W.
A write-read-compare
sequence will then be performed on each block in
the
track
using Pattern M, which is the compliment of Pattern W.

is repeated using LBN-unique patterns 2,

Other new bad

C 1144

revector

blocks

codes

will

RBN forced error flag.

reheadered

with

secondary

or 11, depending on the presence of

E {{:2

header errors.

3
:
3
H
:

C
C
C
C
E

If any new bad block(s) is found, steps
D
and
E
will
be
pertially
repested
to
include
the
additional
bad block
information,
end
verify
the
format
write.
The
write-read-compare
sequences
with patterns 2, 3 and 4 will
not be repeated, however.

1147
1148
1149
1150
flgé

3
H
:

H
3

H
3
3

C 1153
C 1154
C 1155

(C: {{3‘7’
C
C

1158
1159

C 1160
C 1161
E figg

Addresses of blocks
to
be
secondery
revectored
will
be
accrued
in
an
"R2
Table”
within
the program, until 127
entries are made.
At this time, 8 copies of the table will be

saved on outer DBN tracks starting at DBN block 0 top surface.

6.1.3 Replacement

This section will complete the RCT and resolve all secondary
replacement.

Page

SPID:ERSU
[NEALE .AZTEC SERS
)ZRCHB1.816;7 (17)

NOTE
If the RBN is not listed in the FCT, & single

SEQ 0027

bad

block

3
ZRCHB1

REV B PATCH 00

C 1164

C 1165

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

When all tracks have undor’ono the scanning section,
Tables”

will

read

from

the

media.

VAX-11 Bliss-16 Vv3-555

12:03:49

The

The "R2

secondary

i
:

C 1166
E }125

revectors will be resolved in the RCT, finding RBN Bad Block
Descriptors through the Ping-pong algorithm,

:
:
:
3
H
:

C
€
c
C
C
E

Tracks whose RBN
is
assigned
to be
used
for
secondary
revectoring
will
be
written
to
reset
the forced error
indicator in the RBN.

1169
1170
1171
1172
1178
i{;;

6.1.4 Check pass

3
:

C 1176
E 1{;;

This section maekes write and read passes of the media as &
to verify revectoring capabilities.

:
H
:
:
3
:

C
C
C
C
C
C

H
:
H

C
C
g

;
3

:
3
:
:
3

3
:

1179
1180
1181
1182
1183
1184
1185
1186
{igz

Type

Pattern 3

Primary revectored

Pattern 3 of replaced block

E %{gg

Secondary revectored

Pattern 3 of replaced block

Used RBN

Pattern 3 of replaced block

C 1193

C
C
C
E

Sterting with the top surface LBN track nearest the 0GB all

1194
1195
119
{{g;

Host
Application
Blocks
will
be
read to test for
revectori
capabilities.
Failure of any read or write will
result in
10 retries.
Failure of all retries will result in
o fatal error message sent to the host and the format aborted.

C 1199
g %ggg

6.2

1202

Restore mode will only

:
3
3
:

C
C
C
C
C
g

1204
1205
1206
1207
1208
iggg

manufactured and
as follows:

Restore Mode Procedure

3
:

C 1203

requires

:
3
3

C 1211
E {g{g

3
H
:

C 1214
C 1215
E {g%g

;

C 1218

3
3

E 1558

check

Date

Good

{{35

final

Starting with the LBN track pair nearest the 0GB,
the
dates
fields of
all
blocks on
the media will
be written as
follows:
Block

an cxtcrno{

be run b; DIGITAL

copy

Manufacturing

This procedure

The FCT tracks will be formatted usi
the Format
Track
on
Index XFC.
A failure of this XFC will
result in 10 retries.
If all retries fail, the format will be aborted.
The header code of each block will be
12,
FCT blocks.
The date will be pattern W.

personnel.

the FCT produced when the platter was

is stored on the System Boot Media.

indicating

good

Eech block
will
be
read
eand
its
data
verified.
Write-read-compare
sequences will then be performed on each
block, using patterns M, 1, 2, 3 and 4.
.

Any errors will result in 10 retries.
retry will be considered a bad block.

Any block

SE0922£8 2R

SPIDERSU
[NEALE .AZTEC
SERS
JZRCHB1.B16
:
;7

failing a

(17

ZRCHB1

REV B PATCH 00

:
3
:

:
:

3
:
3

:
:

3
3
3
3
:

3
3
:

C 1224
C 1225
E %gg?

C 1228

C 1231
C 1232
C 1233

C 1236

{ggg

E {ggg

C
C
C
E

1237
1238
1239
{g:?

;

C
C
C
C
E

1251
1252
1253
1254
{ggz

11.

Two copies of the FCT will be written

These will

include bad blocks found

each

The program will sutomatically enter the

proceed as in 4.1 above.

Format

C 1264

bad

track.

Mode,

and

Reconstruct Mode Procedure

The operator has explicitly requested this as the formatting
mode by answering ‘N0’ to the following software questions:
"Use existing Bad Block information?”
"Down-line load Bad Block information?”

The Operator has responded with

question:
.

'YES'

the

software

"Continue if Bad Block information
is
inaccessible?”
eand
the
Bad Block
file
is discovered inaccessible
during a Reformat or Restore Formatting Mode.

E {ggg

FCT

in step B.

E {gzg

to change

Sector 0 of each FCT copy will be read/write scanned.

The Formatting process will be aborted if all four copies of

Sector O sre bad.

The

Volume

Information

Block

(Sector

reconstructed using the following information:

will

C 1267

. Media Mode

= 512 Byte Format

E {ggg

. Formatting Instance Number

E %g;z

= Operator Supplied S.N.

;

C 1273

. Time of First Formatting

= Operator Supplied Date

=+ Operctor Supplied Date
(VAX/VMS Format)

3
3
:

C 1268

C 1274
C 1275
C 1276
1277

Volume Serial Number

Time of Most Recent Formatting

SEQP2239 29

SPIDERSUSERS:
[NEALE .AZTEC]ZRCHB1.B16;7 (17)

This mode will be aborted if any FCT sector fails in all 4
copies.
The RECONSTRUCT mode will then be called in if the
option to continue if the FCT file is inaccessible else the
formatter will be aborted.

.
.

C 1261

VAX-11 Blise-16 v3-555

12:03:49

The operator will be queried for the original FCT file name.
The FCT file will then be inputted from the boot device and
sent to the DU when requested.

6.3

if necessary,

Reconstruct formatting procedure is as follows:

C 1262
C 1263

;

E {gg;

:
3

codes

C 1250

header

C 1244
E {5:2

;

The tracks will be reformatted,

block

This mode will be performed if:

C 1247
E {g:g

22-Feb-1984

E %g:g

:
:
:
3
3
H
;

ZRCHBO RC2S DISK FORMATTER

USER DOCUMENTATION

C 1221

E {§§§

D3
S-Apr-1984 13:43:03

(VAX/VMS Format)

E3
ZRCHB1

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

C 1278
E }gzg

. Number of Used 512 Table Entries = 0

E {ggé

. Number of Used 576 Table Entries = 0

C 1283

. Remaining Words Zeroed

:
:

C 1285
E {ggg

:
:
:
H
3
:
:
:
:
3
3

C
C
C
C
C
C
C
C
C
C
E

:
:
:

:
:

C 1284

1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
ggg

The Volume Information Block is then written
copy and read back for data integrity.
Read Failures at all four copies will cause
process to abort.

VAX-11 Bliss-16 v3-555

12:03:49

to
the

each

FCT

formatting

Remaining FCT Sectors 1 thru 15 are not altered.
The formatting process will then perform the
Procedure.

Reformat

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.B16;7 (17)

NOTE

SEQ 0030

Mode

F3
ZRCHB1

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

USER DOCUMENTATION

g iggg

7.0

HOST TEST SUMMARIES

€ 1302

7.1

ATTENDED FORMAT MODE

;

C 1304

:
:
:
3
:

C
C
C
C
E

1305
1306
1307
1308
{ggg

:
:
:

€ 1311
C 1313

S-Apr-1984 13:43:03

22-Feb-1984

12:03:49

VAX-11 Bliss-16 v3-555

In this HOST mode the operator must be present at the console terminal

7.2 UN-ATTENDED REFORMAT MODE
be performed on all

E {;{;

physical unit numbers contained within operator bui{t P_Tables.

C
C
C
C
g

1316
1317
1318
1319
{ggg

When this mode is selected (which is the hosts default mode) the host
will ask the operator for the date in the same format as the DM formatter
would.
This date is then automatically
given to the DM formatter and the
physical unit number within the current
P_Table is given to the DM as the
unit to format.

:
3

C
E

1322
1323
1324
1325

In this mode the operator can select up to 16 units (a unit boinY a physical
platter) to format and be free to leave the console terminal while the
units are being formatted.

3
:
H
3
3
3

P.gol 31

SPID:ERSU
[NEALE.AZTECSERS
)ZRCHB1.B16;7 (18)

to respond to DM formatter software questions.
Via these software questions
the operator can choose from any of the three formatting modes (REFORMAT,
RESTORE or RECONSTRUCT) and can specify the unit number to be formatted.
The unit number given to the DM formatter however must be the same unit
the host reported bringing on-line.

In this HOST mode a REFORMAT mode will automatically

SEQ 003

G3
ZRCHB1

REV B PATCH 00

:
:
:
:
:
:
:
:

:
:
:

:
:
:
:
:
3

C
C
C
C
C

1326
1327
1328
1329
1330

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

8.0

22-Feb-1984

APPENDIX

C 1331
g ggg

DBN

Diagnostic Block Number.
A number of per surface are reserved
for diagnostic use.
These tracks are called the DBN area.

C 1334
C 1335
g gg?

Diagnostic Machine.
An
interpreter
built
into
the
RC2S
firmware
which
is
used
to execute programs downline loaded
into the RC25's buffer memory.

C 1338 EOC

C
C
C
C
g

1339
1340
1341
1342
%33:2

Error Detecting Code.

A means of verifying correct controller

operation.

FCT

Factory Control Table.
A 16 sector table containing volume ID
information
and & map of bad blocks on the media.
The FCT is
written as part of the initial media formatting.

FRU

Field Replaceable Unit.
field.

g {33:8

IGB

Inner Guard Bands.

C 1350

1IP

Initialization and Polling Register.

;

E ggg

item which may be exchanged

This

C 1353 LBN

Logical Block Number.

:
3

C 1356
E gg;

Mass Storage Command Protocol.
The
method
of
used between the host and the RC25 over the bus.

€ 1359 oc

{ggg

;
3

:
3

;

3
3
3
3
3
:

;
:

mMSCP

C 1361 PBN

E is.'»gg

C 1364

E ifi

RBN

C 1367 RCT

C
C
C
C
C
g

1368
1369
1370
1371
1372
{g;i

C 1375

C 1376

is used

Host visible blocks including the Host

Application Area and the RCT tracks.

Outer Guard Bands.

Physical Block Number.

The absolute address of

Replacement Block Number.

block replacement.

information

RC2S product name.

Status,

a block

RC25 has one RBN per track for bad

Replacement and Caching Table.
media
ID
locations.

communication

The guard bands further from the spindle.

RC25S media.

XxFC

in the

The guard bands closer to the spindle.

for port control.

and

A 16 sector

map

table containing

the current bad block

Address and Purge Register for port control.

Extended Function

Call.

Instructions

which

Diagnostic Machine code to the RC25 microcode.

SEQ 0032

Page

SPIDERS$USERS: [NEALE.AZTEC)ZRCHB1.B16;7 (19)

GLOSSARY

C 1345
E 133:?

;

12:03:49

APPENDIX A

:
3

VAX-11 Bliss-16 V3-555

interface

H3
ZRCHB1

REV B PATCH 00

:
:
:
:
:

;

:
3
3

:
:
:
3

:
3

;

3
3
:
:
:
:

C
C
C
C
E

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

1377
1378
1379
1380
}ggé

22-Feb-1984

VAX-11 Bliss-16 V3-555

12:03:49

BAD BLOCK REPLACEMENT

C 1387
C 1388
g iggg

Each RC25 track has 32 blocks.
In the host-addressable area, the first
thirty-one
are
for normal data storage, and are called Logical Blocks,
or LBNs.
The last block on each of these tracks is an RBN.

{ggg

C 1394

E iggz

C 1397

C
C
C
C
C
E

1398
1399
1400
1401
1402
%:82

which

replacing a bad

block
with
a good one.
replacement block, or RBN.

C 1391

block

for

C 1384
E {ggg

The

If a single bad block exists on a track,

that

track.

This

is called Primary

This

is called a

it can be replaced by

the

RBN

replacement.

If other bad blocks are found in the same track,

by unused RBNs of other tracks.

replaces

they must

replaced

is called Secondary replacement.

Two types of tables record bad block information for the media.

One

Page

SPID:ERSU
[NEALE.AZTEC]ZRCHB1.B16;
SERS
7 (20)

APPENDIX B

C 1383 Bad block replacement is an addressing technique

SEQ 0033

the
Factory
Control
Table (FCT), which is written on the media at the
Ffactory.
It is a map of the bad
blocks
caused
by
the
manufacturing
process.
The
other
is the Replacement and Cachi
Table (RCT), which
includes both the FCT information, and bad block
information
uncovered
by
the
latest
formatting of the media.
There are four copies of each
table per unit.

13
ZRCHB1

REV B PATCH 00

3
:
:
:
:
3
:
:
:

C
C
C
C
C
C

1405
1406
1407
1408
1409
1410

ZRCHBO RC2S5 DISK FORMATTER

S-Apr-1984 13:43:03

WUSER DOCUMENTATION

22-Feb-1984

12:03:49

APPENDIX C
FCT

C 1411
C 1412
E {:{2

The basic unit of the FCT is the Bad Block Descriptor.
This
descriptor
gives
the
Physical Block Address of the bad block, and a four bit code
indicating why it was retired.

:
:

C 1415
g 1:{?

The Physical Block Address, or PBN, is the absolute address of
a
block
anywhere on the media, without the distinction of host-accessibility.

3
:
3

C 1418
C 1419
C 1420

There are a variable number of Bad Block Descriptors in the FCT.
These
descriptors
are
sorted in descending track order, and in ascending PBN
order within tracks.

VAX-11 Bliss-16 v3-555

SEQ 0034
Page
34

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.B16;7 (21)

J3
ZRCHB1

REV B PATCH 00

:
:
:

C 1421
C 1422
C 1423

:
:
3
:

C
C
C
g

1425
1426
1427
{:gg

:
:
:
3
:
3
:
3
:

C
C
C
C
C
C
C
C
C

1430
1431
1432
1433
1434
1435
1436
1437
1438

ZRCHBO RC2S DISK FORMATTER

USER DOCUMENTATION

22-Feb-1984

12:03:49

APPENDIX D

1424

{:28

S-Apr-1984 13:43:03

RCT

The basic unit of the RCT is the double-word RBN Descriptor.
There
are
1584
of
these, one for each RBN in the host-accessible LBN area of the

media.

The position of each RBN Descriptor in the RCT is fixed.
The first
RBN
Descriptor
is
associated with the RBN block in the first host- visible
track.
The second descriptor with the RBN of the second hostvieible
track, etc..
In the format process, the FCT is given.
Four copies of it are found on
the
media;
two
on
each
FCT track.
The RCT is rebuilt from the FCT
entries and additional bad block information is gathered in a scan pass.
Primary
replacement
may
be
possible
for
one
block
per
track
if
identified
@s bad by
either
of these sources.
The tracks RBN must
itself be a good,

unused block.

E {::%

:
:

€ 1aa3
C 1445

+ Making the bad blocks header code 0S.
« Writing the bad blocks date field as 128

C 1448
E {:gg

¢ Writing the address of the bad block to the associated
RBN Descriptor in the RCT (with a code of 02).

Primary replacement

E {::g

copies of

3
3

;
:
3
H

C 1451

C 1456
E {:g;

¢ Find an unused RBN Descriptor in the RCT,
using the Ping-pong algorithm,

C 1459

+ Make the bad blocks header code 03 or 11,

C 1462

s Write the bad blocks data field with 128

C 1465
E {:gg

¢ Write the address of the bad block to the associated
RBN Descriptor in the RCT (with a code of 03).

E {:2?

g {:22

C
C
C
C
C
-

:
:
3
3
:

replacement is needed for bad blocks which do not have a good,

unused
block.
Secondery replacement is accomplished similarly to Primary
but first an unused RBN of another track must be found.

3
3

its tracks RBN address.

C 1452
C 1453
E %:gg

3
3

Secondary

is accomplished by:

1468
1469
1470
1471
1472

Replacement.

depending on error type.

copies of the target RBN address.

After replacement an attempt by the host to access a replaced block
will
result in access to the block with which it had been replaced.
Good blocks are headered with codes of 00.
To help detect addressing problems, unused RBNs will have a forced error
indication set by complimenting their EDC fields.

VAX-11 Bliss-16 V3-55Y

SEQ 0035
Page
35

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.B16;7 (22)

K3
ZRCHB1

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

REV B PATCH 00 USER DOCUMENTATION
:
:

C 1473
C 1474

C 1478

:
:
3

C 1475
C 1476
C 1477

22-Feb-1984 12:03:49

DATA PATTERNS

E 1:;8

Six patterns will be used during the scan pass.

3
:

C 1481
C 1482

Pattern W is a pseudo-random pattern, with the LBN address as the first
word.
Pattern M is its compliment.
Its use will assure that all datas

C 1485

Patterns 1 thr

:
:
:

C 1483
C 1484
E i:gg

bits can toggle.
elements are as

are

follows:

made

single

word

elements.

These

E 14:8

Element A = 071311.

This causes peak shift in data encoding.

C 1490

Element B = 106466.

This causes single transitions spaced by

C 1493

Element C = 043146.

This ceuses both the highest and lowest

:
3
:
:

C
C
C
C

¢ 1501

:
.

3
:
3
H
3

E i:gé
C 1494

1495
1496
1497
1498

E %;gg
C
C
C
E

1502
1503
1504
iggg

1, 2. 3 and 4 zeros.

frequency of transitions in the encoding
logic.

Element D = 134631.

Element L = 17NNNN.

This also causes both the highest and
lowest frequency of transitions in the
ancoding logic.

Where NNNN is the LBN address to which the

pattern

is written.

These elements are assembled into patterns 1 through 4 as follows:

H
:

C 1507
E {ggg

Pattern 1 = LBBAAABBBBAAAAABBBBBBAAAAAAABBBBBBBB etc.

;

€ 1310

Pattern 2 = BLABBBAAAABBBBBAAAAAABBBEBBBBAAAAAAAA etc.

;
;
:

g {gig
E {gig
C 1516

Pattern 3 = LDDCCCDDDDCCCCCDDDDDDCCCCCCCDDODDDDD etc.
Pattern 4 = DLCODDCCCCDODDDDCCCCCCDODDDDDCCCCCCCC etc.

SEQ 0036

Page

SPIDERSUSERS: [NEALE.AZTEC]ZRCHB1. 816:7(23)

APPENDIX E

VAX-11 Bliss-16 v3-555

ZRCHB1

OOOOOOOOOOOOONONOO

G¢

B¢

REV B PATCH 00

1517

{g{g

1520
1521

1522

1523

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:43:03

USER DOCUMENTATION

22-Feb-1984

12:03:49

VAX-11 Bliss-16 V3-555

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1.816;7 (24)

Embedding the LBN address within the patterns gives them LBN-uniqueness.
This feature

is taken advantage of

Three steps are taken

Secondary
are:

Revectoring

insure

in validating revectoring.

the

data

will

not interfere

matching the "Compare 128" algorithm.
in every word contain

0037
e
B

with

These

igg;

+« The high four bits

invalid header codes.

1526
1527
{ggg

« Before secondary revectoring is attempted, blocks not involved
with
revectoring will
be
written
with
dJdata
fields which
contain no 32-bit repetitive patterns.

1530
iggé

+ When the format
is complete,
no unrevectored blocks
contain data which has 32-bit repetitive patterns,

will

M3
ZRCHB1

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

REV B PATCH 00 USER DOCUMENTATION
3
3
3
:
:
3
:
:
:
:
:
3

:
:

C
C
C
C
C
C
C
C
C
C
E

1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
{g:i

Ping-Pong algorithm
The
search begins
at
the
primary replacement
block
descriptor.
If the
the descriptor is not empty then a ping-pong search of the sector
containing
the primary
replacement block
descriptor ensues.
If an empty descriptor
is not
encountered then
a
linear
scan of the remaining RCT
blocks and
descriptors within blocks,
(with wrap-around at the end of the RCT) ensues
until one of two things occur:

C 1545
E {g:g

An unallocated replacement block descriptor
overflow location - a secondary.

E ig:g

The entire RCT

iggg

The search operates at

C 1552
C 1553
C 1554

:
:
:
:
3

C
C
C
C
E

1557
1558
1559
1560
{323

C
C
C
E

1563
1564
1565
%ggg

:
:
3
:

E {ggg

encountered

is searched without success - a failure.
two levels:

Within the primary descriptor RCT sector, outward
from
the
primary
descriptor
searched (starting with the next highest RBN descriptor).
Note that this degenerates to a linear search once the first or
last
descriptor

SEQ 0038
Page
38

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB1. 816;7(25)

APPENDIX F

H
:
:
:

22-Feb-1984 12:03:49

VAX-11 Bliss-16 v3-555

is encountered.

Then a linear search, starting
with
the
next
hi
st
RCT
sector
address,
once the initial sector has been completely searched.
Each
new sector is searched in a linear fashion starting at the lowest RBN
descriptor
and
scanning
until
the
highest
RBN descriptor in the
sector is encountered.

If at any time during the linear
search
a
null
(not
an
empty)
entry
is
encountered,
the
search
resumes
at the first entry in the third RCT sector
(the first with descriptors).
The search is terminated
when
it
is
certain
that all the RCT entries have been searched.

N3
ZRCHB1

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:43:03

REV B PATCH 00 USER DOCUMENTATION
:
:

C 1568
C 1569

:
:
3
H
:
:

C
C
C
C
C
C

C 1570
1571
1572
1573
1574
1575
1576

C 1577

:
H
:

C 1579
C 1580
C 1581

H
:
:

ALGORITHM FIGURE RCT sector 3
‘

C 1578

C 1582
C 1583
C 1584

‘
3
:

C 1586
C 1587
C 1588

B
3
:
:

c
C
C
C

15”
1591
1592
1593

22-Feb-1984 12:03:49

Sesesssncs VSRR
—.
1
[
'
!
FIRST
!
!
!
RCT
!
!

'DESCRIPTR!

'
R

'
'
‘

! SECTOR

RCT sector n

'
B

$ocscccncs .
'
'

¢
‘

§eccscccns !
! pong
! primary !--¢
fecccceces !
! ping

!
!
!

RCT sector nel

L*
'
v
e¢-----e--. .

!
:
:
[
!
'
'
.
'
H
'
¢

Last RCT sector

! RCT
' !
H
1
' BLOCK ! !
'
v !
I
'
R
v
'
v
¢--------- .
'

;

K
!
g-?&??.-?-g

entrance to routine-->

H
;
B
:
;
H
H
;
:
H

C 1594
C 1595
C 1596
C 1597
C 1598
C 1599
C 1600
C 1601
C 1602
C 1603

1605

E 1609

;
3

C 1611
C 1612

!NUL ENTRY!

;
‘
§

C 1604

C 1606

1610

]

! LAST

! !

! RCT

St B

el .

VAX-11 Bliss-16 v3-555

SEOPOO59

SPIDEROUSERS:[NEALE.AZTEC]ZRCHBI.816;”?26%9

alalslisisisisialalslsialslslialslislisislslslaslslialalslslislislslsislslslislslslslislslslslaslslalalslalslzlslalalalalals’

S0 B0 B0

B0 S5

G0 G0 S0 S0

G0 96

B0 B0 B0

S0 S5 B0

G0 S0 G0 B0 B0 B0

GF G0

B¢

B8 B

B¢ B¢

G4 S0

G¢

S8 S0 O

ZRCHB1
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
USER DOCUMENTATION

1613

1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632

1654
1655
1656
1657
1658
1659

1660
1661
1662

1663
1664
1665
1666
1667
1668
1669

S-Apr-1984 13:43:03
22-Feb-1984 12:03:49

SEQ 0040
VAX-11 Blies-16 Vv3-555
Page
40
SPIDE
[NEALE
RSUSE
.AZTEC JZRCHB1.B16;7
RS: (27)

APPENDIX G

CREATING ZRCHBO DM
G.I

1633
1634
1635
1636
1637
1638
1639

1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653

CODE

FILES REQUIRED
A.

RTEM (RT-11 emulator)

including:

a.
®.
¢.
d.

DMACRO.SAV The DM macro assembler
DMACRO.MAC The DM macro library
DTX,.SAvV
The XXDP+ UPD2 emulator
DTX DRIVERS including:
1. IZDDAO.DTX
2. I1ZDKAO.DTX
3. IZOLAO.DTX
4. IZDMAO.DTX
S. IZDTAO0.DTX
6. IZDXAO.DTX
7. IZDYAO.DTX
8. IZMMAO.DTX
9. IZMSAQ.DTX
10. IZMTAO.DTX

STARTM.COM RTEM stert up com file.
See below
assembl ing DM source files

including:

8. DMCONV.EXE
Converts DMACRO
output
escii
erray. This ascii

.SAV files
into
o Bliss
erray is then built into
e separate
Bliss
module and compiled. The ob ject
code
from this module is then linked
with other
Bliss object modules resulting in @ APT compatible,
c&taw

object

file

including both host

and DM

G.1

BUILDING DM SOURCE CODE
DM source code cen be built using any of the text editors
evailable under any operating o;otn.
Guide lines for its
creation cen be found in the AZTEC.D0C manual.

G.2

ASSEMBLING DM SOURCE CODE
The DM macro sssembler (DMACRO.SAV) is used to assemble DM
code modules and is written to be run under RT-11 (or RTEM

emulator).
The
following
example
demonstrated the RTEM
stertup com file used to create
the relessed DM formatter
.SAV file. This stert-up commend file includes: sllocating
more virtual storage, bringing the DM source code into the
RTEM system, uo«bliox
the DM
source code, linking and
moving the
output
.SAV
file back
to the user directory.
The following example is performed on VMS operating system,
$ <VMS>
$ set def [(neale.rtem)
$ mcr rtem
. RTE>/vs
RTEM-11

(VAX/VMS)

RT-11FB

(S)

v01.00

v04,00L

!Set default directory to the RTEM sub directory
‘Run the RT-11 emulator

!Type /vs to prompt RTE>

C4
alalalsisisisisisislislisislislislslalsialslslslalslslslslslslislslalslslslslalslslalslslalslalslalslzslzlslalslsls] alel

G5 B0 S0

B0 S0 S0 B0 S0 G0 G0 S0 S0 S5

S0 S5

G0 B0 G0 G0 B

B¢

S8 S0 OF S0

G0 S5

B0 G

GF G0

S8 S

B¢ S8

ZRCHB1
REv B PATCH 00

ZRCHBO RC25 DISK FORMATTER

1670
1671
1672
1673
1674
1675
1676
1677
1678
1679

1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
17CS
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
a722
1723

1724

1725

1726

VAX-11 Bliss-16 V3-555

S-Apr-1984 13:43:03
22-Feb-1984 12:03:49

USER DOCUMENTATION

The following is performed by the startm.com start-up commend file.

running the command file

the

virtual

storage disk

been generated using the JOAT utility.

.SET TT:NOCRLF ,SCOPE ,WIDTH 80

have already

.DEL VSl:e.0
.R FIP
‘\:glz *[NEALE.AZTEC)AZFMTR
. MAC/F

!Enter File

{Make room

.R DMACRO

ovél:AZFH!R.AZFHYR'DHACRO.VSI:AZFHYR
at

R LINK

‘Run the DM macro assembler
!Agssemble DM source and save
!Exit the DM assembler
ILink the .obj file and save
'Exit the linker

.R FIP

¢[NEALE.AZTEC)/F=VS1:AZFMTR
LST

OggEALE.AZTECl/F/I-VSI:AZFHTR.SAV
&

.800 Sy

!‘Return to VMS

<VMS>

run DMCONV.EXE

INPUT FILE
NAME (I E. XXXXXX,YYY) AZFMTR,SAV
OUTPUT FILE NAME ({ E. XXXXXX,YYY) AZFMTR,VEC
BLOCK VECTOR NAME
I.E. XXXXXX.YYY) AZFMTR
Note:
In this example it
.SAV file are both

is assumed that DMCONV.EXE and the
in the default directory.

G.4 BUILDING THE DM BLISS MODULE
output

from

into

the

DMCONV program

(AZFMTR.VEC)

is then

o Bliss module (for the purpose of ZRCHBO this
ZRCHB6.B16) and compiled.
To
compile this module

module is
tekes & VERY long time so it is suggested that
to the batch queue after hours.

in VS1:

Run FIP
!0utput .LST file to user directory
!Output .SAV file to user directory
'Exit FIP

BUILDING THE BLISS ASCII ARRAY
The next step is to run the DMCONV program to build the
Bliss ascii array from the DMACRO output .SAV file.
To
do this follow this example:
$

for this asssembly

interchange program

!Run the RTEM linker

OVEI:AZFHTR.AZFHYR-VSl:AZFHTR

in VS1:

sgring’_;s DM source code from user directory
1Exit

included

must

«MORE /V:VS1
otC

The

VSl:

Before

!Set term characteristics
!Enter JOAT (Jack of all trades) utility
!Alloceate virtual device VS1l: to RTEM system
1Exit JOAT

‘R JOAT

G.3

SPIDER
: [NEALE SUS
, AZTEC JZRCHB1
ERS
.B16;
7°C27)

is submitted

The
entire
procedure
to
compile and
link all Bliss source
modules
(including the DM
is demonstrated by
bliss
module)
the following command procedure (azcor.com):

D4
ZRCHB1

ZRCHBO RC25 DISK FORMATTER

_ X _X_ T

1727
1728

_ X _X

1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747

S8azcom

e a2

SPIDERSUSERS: [NEALE.AZTEC JZRCHB1.B16;7 (27)

!Execute command procedure

set verify

bliss/pdpll/list/library ZRCHBO.R16
bliss/pdpll/listing=ZRCHB.D0C ZRCHB1.8B16
blise/pdpll/list ZRCHB2.B16
bliss/pdpll/list ZRCHB3.B16
bliss/pdpll/list ZRCHBA .B16
bliss/pdpll/list ZRCHBS.B16
set process/name="Killer

bliss/pdpll/list ZRCHB6.B16

set process/name*"F isher_man

PAR=:DUMM
2000: 176000
Y

STACK=0

:/s0.......‘.......‘.“‘.“.0.“‘.“.‘.........‘.‘..0‘.‘.0

E :E
$

1750

Now run the TKBBIN program to create a .bin file E

!......“00.‘............‘...0‘..‘.‘.‘.“..0".........0

: set noverify

1751
1752
1753
1754
1755

The TKBBIN
wutility
an XXDP+ executable

1756
1757
1758
1759
1760
1761

1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783

VAX-11 Bliss-16 V3-555

12:03:49

;RCPQ/WOIM. ZRCHB/CR/ -SP=ZRCHB2,ZRCHB3 , ZRCHBA , ZRCHBS , ZRCHB6 , ZRCHB 7 ,ne i slb/1b

1749

1765
1766
1767
1768
1769
1770

22-Feb-1984

2 %éo%gfill/lht ZRCHB7.B16

1748

1762
1763
1764

S-Apr-1984 13:43:03

USER DOCUMENTATION

alalalalalslslisisislislislislalslisislislialslslislislslslislislslislisisislislsislislslsislslsliaslalslslsilslslsialalslalsls] o0

B0 90 B0 G0 S0 S0 S0 S0 S0

B8 S0

B0 S0

B0 S5

B0 S0

G0 B0

B¢ B9 G0 S0 B0

S0 B9

G0 G0

GF S0

B0 G0

B8 B8

S5 SF S8 S0

Ss Ss

REV B PATCH 00

is then run on the output from the TKB linker to produce
.BIN file.
The following is an example of the procedure:

$ RUN TKBBIN

Input filename ? ZRCHB

:1load Addr: 2000
ixfer Addr:
iNr char
:

%nd of Job
G.S5

1
74600

GETTING .BIN FILES ONTO XXDP. MEDIA
The RT-11 emulator is used to move XXDP+
VMS user directory onto XXDP+ media.
example of this procedure.

.BIN files from a

The following

$ set def [neale.rtem)
$ mcr

is an

!Set default directory

rtem

!Run

.RTE>/vs

the RT-11

emulator

to RTEM sub-directory

!Type /vs to prompt

The startm.com Command file will automatically

begin to
¢

execute

when entering RTEM,

the command procedure at

following:

Control

this time and do the

.R JOAT

Run JOAT utility

otC

'Exit

.DLO: /A
.R FIP

#VS1:=[NEALE .AZTEC)/RCHB.BIN/F /1

!Allocate XXDP: device to pip .BIN file to
JOAT

'Run FIP utility

!Bring .BIN file from user directory

into VSI1:

E4
ZRCHB1

OOOONOOOOOO

®¢

REV B PATCH 00

1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

otC

R DTX

«DEL DLO:ZRCHB.BIN

*PIP DLO:ZRCHB.BIN=VS1:ZRCHB.BIN
sLOAD DLO:ZRCHB.BIN
xig 000001 CORE: 002000, 76600
.

VAX-11 Bliss-16 V3-555

<VMS>

SEQ 0043
Page
43

SPIDER$USERS: [NEALE.AZTEC JZRCHB1 . 816;7(27)

1Exit FIP
'Run the XXDP+ UPD2 emulator

!Delete from XXDP+ media old .BIN file

!PIP new .BIN file to XXDP+ media
!Load the file to verify the check-sum

1Exit DTX

.B00 Sy

13:43:03

22-Feb-1984 12:03:49

USER DOCUMENTATION

!Boot back to VMS
!Back at VMS again

F4
ZRCHB1

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:43:03

REV B PATCH 00 USER DOCUMENTATION
:
3
3

C 1795
C 173
E {;g;

CREATING ZRCHBO HOST CODE

H.I

1800
1801
1802
1803
1804
1805
1806
{gg;

H.1

FILES REQUIRED

Text editor
8. Blissl6é compiler
C. TKB linker
D. TKBBIN Utility This converts Blissl6 .EXE files
.BIN files.

into XXPD«

SOURCE FILE CREATING

:
3

C 1809
E {gfi)

Using any
text editor, follow PDP-11 diagnostic design guidelines demonstrated
in SUPPRGC.DOC and CHQUSD.SEQ.

¢ 1812

H.2

;

C 1814

Follow steps starting at G.4 to compile Bliss source modules and

3
:
:

C 1815
1816
1817

)¢
ELUDOM

COMPILING BLISS SOURCE MODULES

to get the

.BIN file onto XXDP+ media.

.TITLE
.IDENT
PSECT

Psect Name

Words

ZRCHB1 ZRCHBO RC25S DISK FORMATTER
/REV B 7/

SUMMARY

Attributes

COMMAND QUAL IFIERS

BLISS /PDP11/LISTING=ZRCHB.DOC ZRCHB1.B16
Size:

Run Time:
Elapsed Time:
Memory Used:

O code

¢+ 0 data words

00:08.6
00:49.4
6 pages

Compilation Complete

SEQ_0044

Page

SPIDERSUSERS: [NEALE.AZTEC]ZRCHB1. 816;7(28)

APPENDIX H

C 1799

C
C
C
C
C
C
C
E

3
3
:
:
:
3
:
3

22-Feb-1984 12:03:49

VAX-11 Bliss-16 Vv3-555

G4
ZRCHB2

:
:
3
:
:
:
:

:
:
3
:
H
:

ZRCHBO RC25 DISK FORMATTER
0001
0002

0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
88{;
Ogég

1506

S5-Apr-1984 13:19:09
S-Apr-1984 13:16:08

MODULE ZRCHB2 (STITLE 'ZRCHBO RC2S5 DISK FORMATTER'
IDENT = 'REV B8 PATCH 00',

ADDRESSING_MODE (RELATIVE)
ENVIRONMENT (NOEIS)
) =

BEGIN
wsbttl 'PROGRAM HEADER'
!
! Pretty Declarations
!
!'<BLF/LOWERCASE
_KEY>
!
library

'ZRCHBO'
;

!Define RC25 Formatter Library

require

'BLSMAC.REQ';

'Define Bliss Macro Require

1507
1508
1509
1510
1511
1512
1513
1514
1515
%gig

! The
psect
named
"code
or
$code$” is redefinded here
! to
be
called "sascode”.
This is done to force the TKB
! linker to place the paggr.ns header information starting
! at absolute address 2
.
!psect
code = aa‘s$code;

3
:
H
:
:
:
:

1518
1519
1520
1521
1522
1523
{ggg

!
! The structure of a diagnostic program may contain any or
all
of
the
! ten
optional
sections.
But five of the optional sections require a
! pointer that is derived by and for the supervisor, and is
located
in
! the
header
block.
Therefore,
in
relation to the effective use of
! these five pointers, the optional sections call must be coded
to
res flect usage (i.e., any,all,or none).

%gg?

:
‘

1literal
DS$NBR_OF _TESTS

‘

!Indicates number «f test

The following coding possibilities exist:

iggg

POINTER (BGNRPT ,BGNSW,BGNSF T ,BGNAU,BGNDU,ERR
,BGNSETUP)
TBL

%ggg

(or any subset of the args)

3
3
:
3
H
H
H
H
H
3

1532
1533
1534
1535
1536
1537
1538
1539
1540
1541

!
¢
!
¢
!
¢
!
!
!
!

POINTER (ALL)

1543

1542
1544

1545

file

!«

:
3
:
H
3
3
H
:
:
:

‘

SEQ 0045
VAX-11 Bliss-16 V3-555
Page
1
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB2.8B16;5 (1)

;
;i
i
:
i

POINTER (NONE)

All provides pointers for all five
sections
None indicates to supervisor that no
pointers are required.
this is the default

No pointers are optional using bliss. Make sure the folloain?
sections of
code are in place (in the correct skels),even i
the sections are blank.

ARGUMENT

FUNCTION

RPT

REPORT CODE

cccceeee

SuW

eeee..

SOF TWARE TABLE

in Diag

v.- oo rere e

SFT
AU
oV
TBL

SETUP

S-Apr-1984

13:16:08

information

which

VAX-11 Bliss-16 V3-555

SOFTWARE TABLE QUESTIONS
ADD CODE
DROP CODE
ERROR TABLE

ASSEMBLED P-TABLES

The program

header section contains

general

des-

cribes
the
major characteristics of the diagnostic program.
This includes, the
program name, and revision and
patch-order
levels.
The
header
also
provides
space
for an event flag register, and for the
storage of
pointers, through which the supervisor may
find
access
to
other
key sections of the program(e.g., dispatch table, initialize and
clean-up code, etc.).
An argument on the header gives the device type
if

is an XXDP+ bootable device.

This enables the supervisor

vide load medium protection when necessary.

HEADER (wascii'CZRCH ', wascii’'B’', sascii'0',

1200,

PRIOO);

SEQ_0046
Page

SPID:ER$U
[NEALE .AZTEC SERS
)JZRCHB2.B16;5 (1)

OINTER (ALL);

1546
1547

S5-Apr-1984 13:19:09

PROGRAM HEADER

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

ZRCHBZ

to pro-

La
ZRCHB2

REV B PATCH 00

1565
1566
1567
1568
1569
1570
1571
1572

ZRCHBO RC25 DISK FORMATTER
DISPATCH TABLE
?'bttl

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

SEQ 0047
VAX-11 Bliss-16 v3-555
Page
3
SPIDERSUSERS: [NEALE.AZTEC JZRCHB2.B16;5 (2)

‘DISPATCH TABLE'

!
!
z

The dispatch table section contains address pointers
to
the
various
tests
contained within the diagnostic program.
This section requires
the coding of only the dispatch macro.

DISPATCH (DSSNBR_OF TESTS):

ERRTBL
;

!Define Supervisor Error table storage

J4
ZRCHB2
REV B PATCH 00
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585

1586
1587
1588

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:19:09

DEFAULT HARDWARE P-TABLE
ssbtt]l
e

The

S-Apr-1984 13:16:08

VAX-11 Bliss-16 V3-555

default hardware P-Table contains default values of

The structure of this table

! is
identical to the structure of the hardware P-Tables,
! and
is used as a
"template” for building the P-Tables.

BGNHW (DFPTBL);
global

HW_IP_ADRS : word initial (w%o'172150'),
HW_VECTOR : word initial (so’'154'),
MW _BR_LEVEL : word initial (S),
HW_UNIT_NO : word initial (0);

ENDHW
;

Page

SPIDER$USERS: [NEALE.AZTEC]ZRCHB2. 816;5(3)

'DEFAULT HARDWARE P-TABLE'

' the test-device parameters.

SEQ_0048

!Define RC25 Controler IP reg

'Define RC2S interrupt vector adddrs
'Define RC25S bus request level
‘Define RC2S unit no. to format

K4
ZRCHB2

REV B PATCH 00

1589
1530
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601

ZRCHBO RC25 DISK FORMATTER

SOF TWARE P-TABLE

Gobttl

S-Apr-1984 13:19:09

S-Apr-1984 13:16:08

VAX-11 Bliss-16 V3-555

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB2. 816;5(4)

*SOF TWARE P-TABLE'

1 e cofoners Sbig Senioing viriews Sobs wood by the
! program as operational parameters.
These parameters are
' set up at assembly time and may be varied by the operator
:

at run time.

BGNSW (SFPTBL);
global
SW_UNATT
ENDSW;

word initial (1);

Format

SEQ 0049

in unattended refmt mode

1603

1604
1605
1606
1607
1608
1609
1610
1611
1612

PROTECTION TABLE

S-Apr-1984 13:19:09

S-Apr-1984 13:16:08

?Obttl "PROTECTION TABLE
*

This

table

is used by the runtime

services to protect the load media.

ist arg =
2nd arg =
3rd arg -

Offset into P_Table for csr address
Offset into P_Table for massbus address
Offset into P_Table for drive number

1602

ZRCHBO RC25 DISK FORMATTER

ZRCHB2
REV B PATCH 00

BGNPROT (0,
ENDPROT;

-1, 6);

VAX-11 Bliss-16 V3-555

SEQ_0050
Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 816;5(5)

ZRCHB2
ZRCHBO RC25 DISK FORMATTER
REV B PATCH 00 MODULE DECLARATIONS
:
:

:
:
:
3

1615
1616
1617
1618

:
3
:

1621
1622
1623

3
.
3 :
:
:
3

1626
1627
1628
1629
1630
1631
1632

3
:

3
:
:
H
:
:
H

.3
3
.

{g%i

{253

1624
1625

1633
1634
1635
1636
1637
1638
1639

1640
{g:é

fobttl *MODULE DECLARATIONS'
L

! Within BLSMAC.REQ
the
psect
names, plit global and own,
! are
redefined
to be aascode.
This is done to force the
! tkb
linker
to
link
the header information starting at
! at absolute
address 2000.
Redefine
these psect
names
3 back

their

!psect
plit = $plits(
global),
global = $globs$(nowrite, noexecute, global,
own = $own$;

structure
1
! RC25
register
nccoocang structure.
This
! structure
allows
RC25 register accessing
!
5
!

1647
{g:g

RC25 (0,

1650

1651
1652
1653
1654
1655
1656
1657
1658

!
!
E

to
be transportable between the PDP-11 and
VAX Diesgnostic Supervisors.

;
:

concatenate),

!»
! Structure declarations used within this
! module.
!-

1643
1644
{g:g

:
H
H
:
:
H
H

original names for house keeping purposes.

! Also change
the attributes for the psect "global”
so that
! géggol data will not be linked starting at absolute addreso
!

3t
:
:

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

This
also
defines an access algorithm for
VAX to allow field reference to MBA address
space
without
generating
machine
checks.
P,

local
RC$S_REG;

RC$S_REG =
RC$S_REG
end
<P, S, E>;

.(RC25

¢+ supval+0)<0,

sbpval,

0>;

SEQ_005
VAX-11 Bliss-16 V3-555
Page .
SPIDERSUSERS: [NEALE.AZTEC]ZRCHB2. 816;5(6)

N4
ZRCHB?

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

1659
1660

wsbttl
!«

F
:
:

1662
1663
1664
1665

! in more than one test or module.
!-

%g;

:
3
:
3

H
H

:
:
H
:
3
:
:

:
3

1661

1666

1669

1670
1671
1672
1673
1674
1675
1676

1677
1678

{g;g

:
:

:
3
s
H
3
3

1681

1682

S-Apr-1984 13:19:09

GLOBAL DATA SECTION

13:16:08

VAX-11 Bliss-16 v3-555

'GLOBAL DATA SECTION'

global
!

Coomunication area Declarations

COM_AREA : blockvector [REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ, 2, word].

HEAD_AREA : ref block [4, word] field (HMDR_FIELD),
RECEIVE_RING : ref blockvector [REC_ALLOCATE, 2, word) field (DSC_FIELD).
SEND_RING : ref blockvector [SND_ALLOCATE, 2, word) field (DSC_FIELD),
REC_ENVELOPE : blockvector [REC_ALLOCATE, RB_SIZE + 2, word) field (ENV_FIELD),
SND_ENVELOPE : blockvector [SND_ALLOCATE, SB_SIZE + 2, word] field (ENV_FIELD),
FCT_BUF : block [256, word],
REC_BUF : block [RECB_SIZE, word) field (RECB_FIELD),.

SND_BUF : vector [SNDB_SIZE, word],
OUTSSTD BUF : blockvector [REC_ALLOCATE, 2, word) field (OUTSFIELD),
RET_ENSAD : ref block [RB_SIZE + 2, word)] field (ENV_FIELD);
global bind

{2:2

1685
1686
1687
1688
1689
1690

FMT1
FMT2
FMTS
FMT4
FMTS
FMT6

Diagnostic supervisor printing ascii

=
=
=
=
=
=

uplit
uplit
uplit
uplit
uplit
uplit

format strings.

(sasciz'®NsT’),
Print one ascii string pointer
(vasciz'WNSNSAINITIALIZING RC25S CONTROLLER ADDRESS :#S#06%A(0)SN' ),
(wasciz'wNsALOGICAL UNIT wD2#A(D)®SSAPHYSICAL UNIT sD2#A(D)#S%AFORMAT ABORTED' ),
(sasciz'wNsSAMICRO CODES MOD 16 VERSION NUMBER =w#Ss#02#A(0)SN' ),
(wasciz'wNSABRINGING ONLINE: LOGICAL UNIT sD2#A(D)®SSAPHYSICAL UNIT wD2#A(D)®N’ ),
(wasciz'wNSASFTLERR- NON-EXISTENT RC25 CONTROLLER ADDRESS s06%A(0)SN’ ),

3
3
:

1691
1692
1693

FMT7 = uplit (sasciz'SAFORMATTING PHYSICAL UNIT wD2#A(D)SN’' ),
PID_FMT = uplit (sasciz'wNSAFORMATTER PROGRESSING:
PID HI=#06%A(0)%SESSAPID LO=%06%AC0)’ ),
CRLF = uplit (sasciz'sN’'),

{23?

H
H
3

:
H
H

3
3
3
:

‘

H
H
H
H
;
3

1694
1695

XCRLF = uplit (sasciz’ SNENSNSNSNSNSNSN' ),
!
Ring base address declaration

1698

RINGBASE = COM_AREA [REC_BASE),

1701
1702
1703
1704

!
MSGADR

1699
1700

1705
};8.6'

1708

1709

1710
1711
1712
1713
1714
1715

:
H

= REC_BUF

[MSG_TXT);

global

:
-

Miscellaneous data declarations

DATETXT : vector [12, bytel,

FLG_WRD : bitvector [16‘.

NEX_FLAG : word,
OVSA : word,
;
NXT_CRN : byte,
RET _STATUS : word initial (so’'000000'),
LUN : word,
PID_SAVE : vector [2, word],

!Operator data input storage

!Global flag word

Page

SPIDERSU
[NEALE .AZTEC
SERS
)ZRCHB2.B16;
:
:5 (7)

The global data section contains data that are used

SEQ 0052

!Non-existent RC25 register flag
!Overlay section starting adrs
!Stores next cmd ref number
!Saves various return status codes
!Stores logical unit number being formatted
!Saves proces indicator word

B5
ZRCHB?

REV B8 PATCH 00

:
:
:

:
:

:
3
:
:
‘

3
:
3
3
5

:
:
:
:
:

GLOBAL DATA SECTION

S5S-Apr-1984

NSD_SLOT
R.RD_SLOT

{;;}_\3

; Hardware P_Table storage declarations

1721

RC25_ADDR :

1722
1723
1724
{;gz

1727
1728
1729
%;g(l)
1732

1733
1734

1738

{;28

174}
{;:g
B:;

: word,
: word,

ref RC2S5 fielo (ISD_FIELD),

VEC_ADDR : word,
BR_LEVEL : word,
UNIT_NO : word,
PTBL_PTR : ref vector

[4,

word],

RSVD_STRUCT

vector (4,

{0) = wx'O7F",
(1) = #x'0000°',
[(2)
[(3)

word) preset (

= #x'0700',
= #x'O7FF'),

Init Sequence Data_Structure declaration

ISD,'.;:YMT

: blockvector (4,

Step one read SA register

1750

(BLKO, WRDO, S1R_DI) = 1,

{;gz

word)

field (ISD_FIELD) preset

(

1751
1752

!Reserved SA reg fields definitions

V2.0 Step one rsvd field
!1Step two rsvd field

!Step three rsvd field
!Step four rsvd € ucode field

(BLKO,
(BLKO,
(BLKO,

:
3

!Interrupt vector address storage
!Bus request level storage
tUnit number to format storage
!Stores P_Table base address

! Dup Protocol data structures
!
!
Eflmrvod field mask structure decleration

1746
1747
1748

1749

!Controller register access structure

[

(BLKO,

(BLXO,
(BLKO,

WRDO,
WRDO,
WRDO,

WRDO,

WRDO,
WRDO,

field declaration

ERR_BIT) = O,
STP_FIELD) = #b’'0001’,
SIR_NvV] = 1,

S1R_GB)

S1R_OD)
S1IR_MP)

=
=

1,
1,

EBLKO. WRDO, S1IR_RSVD)e wo' 77",
!

‘Error bit
!Al]l step Dit fields
1v2.0 Mask out host inter vec settable adrs

!Mask out 22 bit addressing

!Mask enhanced diag implementation

!Mask out port allows odd addressing
!Mask out Port supported adr

V2.0 Reserved field

{;22

;

1757

(BLKO, WRD1, ERR_BIT) = 1,

tError bit

3
s
3
3

1759
1760
1761
{;gg

(BLKO,
(BLKO,
(BLKO,
£BLKO.

!Number of Send-ring slots 'pwrs of 2°
!Number of Receive-ring slots 'pwrs of 2
!Init Seauence interrupt request
!Interrupt vector address

1764

: Step two resd SA register field declaration

3
3

1766
1767

(BLK1, WRDO, ERR _BIT) - O,
[BLK1, WRDO, STP_FIELD) = #b'0010‘,

:
3

3
3
:

1758

1768
1769

1770
1771
1772

Step one write SA register field declaration

[BLKO, WRD1, S1W_WR])= O,
WRD1,
WRD1,
WRD1,
WRD1,

S1W_CRING)= SND_SIZ,
SIW_RRING])= REC _SIZ,
SiwW_IE)= O,
S1W_VADR]+ mo'33’,

(BLK1,
(BLK1,

WRDO,
WRDO,

[BLK1, WRDO,
(BLK1, WRDO,
(BLK1, WRDO,

S2R_PTYP)= O,
S2R _BIT7])- 1,
S2R_WR])= O,
S2R_CRING]= SND _SIZ,
S2R_RRING)= REC _SIZ,

SEQ 0053

Page

SPID:ERSU
[NEALE .AZTEC SERS
]ZRCHB2.816;5 (7)

!Next send Descriptor slot
!Next receive Descriptor slot

3
H
:

13:16:08

VAX-11 Bliess-16 v3-555

1735
%;gg

S5-Apr-1984 13:19:09

1716
{;{;

‘

:
:

ZRCHBO RC25 DISK FORMATTER

‘Diag wrap around

1Error bit
!Al]l step Dit fields

Port type number
{Echoed IE bit from step one write
'Echoed bit 14 from step one write
'Echoed bits 3-S5 from step one write
1Echoed bits 0-2 from step one write

C5
ZRCHB.

REV B PATCH 00

:
:
:

‘

1773
177;
177

{;;.6’

ZRCHBO RC2S DISK FORMATTER
!
!
!

S-Apr-1984

EOLKI.

WRD1,

S2W_LRBASE
1= RINGBASE,

! NOTE:
! The adapter purge

:
:

1781
};gg

!
:

‘

:
‘

:
:
‘

:
:

%;:;

:
3

3
3
5

!Reserved

Hgg

1794

{;g;

1799

1800
1801

1802
}:82
{:82

1807

1808
1809
1810

interrupt

request

Step three read SA register field declaration

(BLK2,

1788

{;gz

lower address

select bits <1, 15, 0> from the ringbase adrs.
(BLK1, WRD1, S2w_PI)= O,
!Adapter purge

(BLK2,

WRDO,

STP_FIELD)

= w#b'0100',

!All step bit

S3R_RSVD])* #o' 7',

(BLK2, WRDO, S3R_IE])= O,
EBLK?. WRDO, S3R_VADR)= so'33',

fields

'Echoed IE bit from step one write
!Echoed VADR from step one write

Step three write SA register field deciaration

(BLK2, WRD1, S3W_PP)= O,

£8LK2.

WRD1,

Purge £ Poll test request

S3W_HRBASE]= O,

'Ring base high address

Step four read SA register

field declaration

[BLK3, WRDO, ERR_BIT) = O,

'Error bit

(BLK3, WRDO, STP_FIELD) = #b'1000',
[BLK3, WRDO, S4R_RSVD)- #o'7’',
(BLK3,
(BLK3,
H

!
!

WRDO,
WRDO,

SAR_MOD)
S4R_VER)

Step four write SA register

(BLK3,

WRD1,

Mask
Mask

S4W_GO)= 0);

it out
it out

field declaration

S4W_RSVD)= #o'377',

(BLK3, WRD1, S4W_BURST])e ©
[BLK3, WRD1, S4W_LF)* O,
(BLK3, WRD1,

'All step bit fields
!Reserved

= sx'f’',
= ex'f’',

'Reserved

'Go bit

SenPoog':‘ 10

SPIDERSUSE
: [NEALE .AZTEC
RS )ZRCHB2.816;5 (7)

is loaded within

'Error bit

interrupt

(BLK2, WRDO, ERR_BIT) = O,

1789
i;gtl)

VAX-11 Bliss-16 Vv3-555

! the bgninit code due to the inability to field

1786

1787

‘
‘

!Ring baese

1778
1779

1780

13:16:08

Step two write SA register field decleration

:
:

S-Apr-1984 13:19:09

GLOBAL DATA SECTION

!Max number longwords per NPR xfer
!Last fail request

G0 90

G0 S0

B¢

OF G

s O

ZRCHB?2
REV B PATCH 00
1812
1813
1814
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
1839

1840
1841
1842
1843
1844
1845
1846
1847
1848

ZRCHBO RC25 DISK FORMATTER

GLOBAL

TEXT SECTION

?obttl

‘GLOBAL

S-Apr- 1984
5-Apr- 1984

13:19:09
13:16:08

VAX-11 Blies-16 v3-555

TEXT SECTION'

The global text section contains format statements,

.ll modules.

: messages, and ASCII information that are used in

olob?l bind

g Self-detected fatal port/controller errors
PFE_STRUCT = uplit (

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

' <BLF /PAGE >

(vasciz'SNSASF TLERR(dasciz'SNSASFTLERR(dasciz' SNSASFTLERR(sasciz' SNSASFTLERR (sasciz'SNSASFTLERR(dasciz’' SNSASFTLERR-

(sasciz'SNSASFTLERR(dasciz' uNSASFTLERR(dasciz’'SNSASFTLERR(dasciz' ¥NSASFTLERR(vasciz' SNSASFTLERR (vasciz’' sNSASFTLERR(vasciz'SNSASF
TLERR (dasciz' ¥NSASFTLERR(sasciz' sNSASFTLERR(dasciz' SNSASFTLERR(dasciz'sNSASFTLERR(sasciz'SNSASFTLERR(sasciz'SNSASFTLERR(dasciz'SNSASFTLERR(dasciz'uNSASF TLERR(sasciz'SNSASFTLERR-

SEQPOOSS 11

SPIDERSUSERS: [NEALE .AZTEC JZRCHB2. 816:5(8)

UNRECOGNIZABLE ERROR CODE' ),
ENVELOPE/PACKET READ (PARITY OR TIMEOUT)'),
ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT)'),

CONTROLLER ROM AND RAM PARITY'),
CONTROLLER RAM PARITY'),
CONTROLLER ROM PARITY'),

RING READ (PARITY OR YIHEOUT)').

RING WRITE (PARITY OR TIMEOUT)'),
INTERRUPT MASTER'
),
HOST ACCESS TIMEOUT'),

CREDIT LIMIT EXCEEDED'
),

BUS MASTER ERROR'
),

DIAGNOSTIC CONTROLLER FATAL ERROR'),
INSTRUCTION LOOP TIMEOUT'),
INVALID CONNECTION IDENTIFIER'),
INTERRUPT WRITE'),

MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER'),
MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER' )

CONTROLLER RAM ERROR (NON-PARITY)'),

INIT SEQUENCE ERROR'),
HIGH LEVEL PROTOCOL INCOHPATIBILIYV ERROR'
),

PURGE /POLL MARDWARE FAILURE

(dasciz'uNSASFTLERR- MAPPING REGISTER READ ERROR (PARIYV OR TIMEOUT)')
) : vector (23],

G¢

ZRCHBC
REV B PATCH 00

1849
1850
1851

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

S-Apr-1984
S-Apr-1984

13:19:09
13:16:08

SEQ 0056
VAX-11 Bliss-16 V3-555
Page 12
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB2.B16;:5 (9)

2 Error message structure

EMSG_STRUCT = uplit (

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

(dasciz'SNSASF TLERR (dasciz'SNSASFTLERR(dasciz'SNSASFTLERR
(dasciz'¥NSASFTLERR(dasciz'SNSASFTLERR(sasciz'SNSASFTLERR(sasciz'SNSASFTLERR(sasciz'SNSASFTLERR(dasciz'SNSASFTLERR(dasciz'SNSASFTLERR(sasciz'SNSASFTLERR(dasciz'dSNSASFTLERR(sasciz'SNSASFTLERR(sasciz'SNSASFTLERR(sasciz'SNSASFTLERR(dasciz'SNSASFTLERR(sasciz'dNSASFTLERR(dasciz'SNSASFTLERR(dasciz' SsNSASFTLERR(sasciz'SNSASFTLERR
(dasciz' SNSASFTLERR(dasciz'SNSASFTLERR(sasciz'SNSASFTLERR-

'<blf/page>

RESPONSE STATUS ERROR:%S'),
HOST/CONTROLLER OUT OF SEQ'),
REMOTE PROG NOT RUNNING' ),
UNKNOWN RETURN STATUS CODE’),

COM AREA INIT ERROR'),

PORT/HOST SYNC ERROR' ),

MESSAGE LENGTH ERROR' ),
UNKNOWN ENDCODE RECEIVED'),
ADAPTOR PURGE ERROR'),
UNKNOWN INTERRUPT' ),
INIT SEQ STEP TIMED OUT'),
INIT SEQ COMPARE ERROR'),
UNEXPECTED ATTENTION END MESSAGE RECEIVED'),
UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED'),
UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED'),
INVALID COMMAND END MESSAGE RECEIVED'),
UNKNOWN MESSAGE TYPE RECEIVED'),
OUTSTANDING COMMAND BUFFER FULL'),
OUT STANDING COMMAND BUFFER OUT OF SYNC ERROR'),
UNKNOWN MESSAGE NUMBER RECEIVED'),
FILE READ ERROR’' ),

PORT/CONTROLLER TIMEOUT ERROR'),
ILLEGAL FCT FILE LENGTH')) : vector [23],

FS
ZRCHB?2

WG9

G0 O

G¢

REV B PATCH 00

1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895
1896
1897
1898
1899
1900
1901
1902

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

S5-Apr-1984 13:19:09
S-Apr-1984 13:16:08

]

Self-detected fatal port/controller errors

RC_STRUCTURE =

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

wplit
wplit
wplit
uplit
wplit
wplit
wplit
wplit
wplit
wplit
uwplit

uplit

uwplit
uplit
uplit

l1it ¢
(dasciz'¥NSASFTLERR- VAX READ/WRITE ERROR ON INTERRUPT'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT U.BFIL'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT U.BMTY'),
(sasciz'SNSASFTLERR- INCONSISTENCY AT U.ALOC'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT SERVO ENTRY (PIP SET) ).
(sasciz'¥NSASFTLERR- INCONSISTENCY AT SERVO ENTRY (ERR SET)’
(dasciz'¥NSASFTLERR- INCONSISTENCY AT U.SEND'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT U.RECV'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT U.ATTN' ),
(dasciz’'SNSASFTLERR- INCONSISTENCY
AT U.ONLN'),
(dasciz'SNSASFTLERR- ILLEGAL D REQUEST (U.GORQ)‘),
(dasciz'SNSASFTLERR- FENCE-POST ERROR AT PROTAB'),
(dasciz'SNSASFTLERR- BAD PACKET DEQUEUED AT U.DONE'),
(dasciz'¥NSASFTLERR- UNEXPLAINED D-PROC SUSPENSION (U..TDS)'),
(dasciz'SNSASFTLERR- DUP PACKET D-Q FAILED (XFC 34/35)'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT U.HTST'),
(dasciz'NSASFTLERR- INCONSISTENCY AT U.SEKO'),
(dasciz'SNSASFTLERR- INCONSISTENCY AT U.CKSV'),
(dasciz’' ¥NSASFTLERR- 0.0PCD FOUND ILLEGAL OPCOOE' ).
(desciz'SNSASFTLERR- D0.CSF FOUND ILLEGAL OPCODE')
(dasciz’'sNSASFTLERR- UNKNOWN BAD DRIVE STATUS AT D.DSTS ).
(dasciz'SNSASFTLERR- ILLEGAL XFC EXECUTED BY DM'),
(dasciz'SNSASFTLERR- D PICKED UP A ZERO SCB.DB'),
(sasciz'SNSASFTLERR- INCONSISTENCY AT D IDLE LOOP'),
(sasciz'SNSASFTLERR- DM WORD COUNT ERROR ON HOST DMA/SEND/RECV ),
(dasciz’' sNSASFTLERR- UNKNOWN DISPLAY FAULT CODE AT D.DFLT'),
(sasciz'¥NSASFTLERR- DRIVE NOT FAULTING IN P.OFLN STATE'),
(dasciz’' ¥NSASFTLERR- U POWER UP DIAGNOSTICS FAILED'),
(sasciz'¥NSASFTLERR- D POWER UP DIAGNOSTICS FAILED'),
(sasciz’'SNSASFTLERR- ADAPTER CARD FAILURE'),
(sasciz'SsNSASFTLERR- EC.TMR TIMED OUT'),
(vasciz'SNSASFTLERR- U.SEND/U.RECV RING REAC INCONSISTENCY'),
(vasciz'SNSASFTLERR- UNKNOWN WAITRV REASON AT D.RVCT'),
(sasciz'SNSASFTLERR- D.ARCS DID NOT FIND CLOSEST UNDONE ZONE' ),
(vasciz'SNSASFTLERR- U.SEEK FOUND SEEK TO ILLEGAL TRACK'),
(dasciz'SNSASFTLERR
- U.HTST INIT DIAG DMA WRITE FAILED'),
(dasciz'SNSASFTLERR- U.HTST INIT DIAG DMA COMPARE FAILED'),
(dasciz'¥NSASFTLERR- U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET'),
(dasciz SNSASFTLERR - MASTER DRIVES ACLO ASSERTED')
) : vector [39],

!<blf/page>

VAX-11 Bliss-16 v3-555

. 0 OOS 13

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 816:5(10)

G5
ZRCHB2

REV B PATCH 00
1922
1923
1924
1925
1926
1927

1928

1929
1930

1931
1932
1933
1934

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

!
: Dup return status codes

SDUP _STRUCT = wuwplit (
uplit (wasciz'#A SUCCESSFULSN' ),
wplit (wasciz'®AINVALID COMMANDSN' ),

wuplit (wasciz'®ANO REGION AVAILABLESN' .
wuplit (sasciz'#ANO REGION SUITABLESN'),

wuwplit (sasciz'wAPROGRAM NOT KNOWNSN'),

wuplit (wasciz'#ALOAD FAILURESN'),
wuplit (wasciz'®ASTANDALONESN'
)
) : vector (7],
!<blf/page>

S-Apr-1984 13:19:09

S-Apr-1984 13:16:08

VAX-11 Bliss-16 v3-555

-~ 0058 14

SPIDERSUSERS: [NEALE.,AZTEC )ZRCHB2. 816:5(11)

HS
ZRCHB2

®0

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

GLOBAL TEXT SECTION

1935

1936
1937
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953

S-Apr-1984 13:19:09
S-Apr-1984

MSCP return status codes
SMSCP_STRUCT = uplit (
uplit (sasciz’'SASUCCESSSN' ),
uplit (sasciz'SAINVALID COMMANDS®N' ),
uplit (sasciz'sACOMMAND ABORTEDSN' ),
uplut (dasciz'SAUNIT-OFFLINESN'
),
uplit (sasciz’'SAUNIT-AVAILABLESN'
),
uplit (sasciz'sAMEDIA FORMAT ERRORSN' ),
uplit (sasciz'SAWRITE PROTECTEDSN' ),
uplit (sasciz'sACOMPARE ERRORSN'),

uplit (sasciz'sADATA ERRORSN' ),

uplit
uplit
uplit
uplit

(sasciz’'#AHOST BUFFER ACCESS ERRORSN' ),
(sasciz'wACONTROLLER ERRORSN' ),
(sasciz'wADRIVE ERRORSN'),
(sasciz'#AMESSAGE FROM AN INTERNAL DIAGNOSTICSN')
) : vector [13],
!<BLF/PAGE>

13:16:08

VAX-11 Bliss-16 v3-555

SEQ_0059
Page
15

SPICERS$USERS: [NEALE .AZTEC)ZRCHB2. 816;5(12)

e
ZRCHB2

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

S-Apr-1984 13:19:09
S-Apr-1984

13:16:08

VAX-11 Bliss-16 Vv3-555

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHB2

1954

1957

DATMSG = uplit (wasciz'ENTER DATE <MM-DD-YYYY> '),

1959

PUWR_MSG = uplit (sasciz'SNSASFTLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL'),

:
:

:
3
:
:
:
:
:
3
:

:
3

:
:
:

{ggg

1958

1960
1961
1962
1963
1964
1965
1966
gg;

iggg
1971
ig;g

: Init code error and informational messages
!

NO_ADD_UNITS = uplit (sasciz'#NsSANO ADDITIONAL UNITS TO FORMAT - ABORTING'),

ABO_MSG = uplit (vasciz'uNSASFTLERR- ABORTING HOST AND REMOTE PROGRAMS' ),
TO_MANY _UNITS = uplit (sasciz'sNsSASFTLERR- ILLEGAL NUMBER OF UNITS SELECTED'),
GOOD_NUM_UNITS = uplit (sasciz'sSNSASFTLERR- LIMIT OF SIXTEEN UNITS PER FORMATING SESSION'),
BOOT_FAILURE = uplit (sasciz'#NsASFTLERR- RC25 CONTROLLER INITIALIZATION ERROR'),
PROTO_VIOLATION = uplit (sasciz'®NSASFTLERR- PROTOCOL VIOLATION ERROR'),
PORT_INIT_ERR = uplit (sasciz'#NsSASFTLERR- COMMUNICATION AREA INIT ERROR'),
ACTIVE_DUP_SERVER = uplit (sasciz's#NsSASFTLERR- DUP SERVER ACTIVE AFTER INITIALIZING'),

;NACTIVE-DW_SERVER = uplit (sasciz'sNSASFTLERR- DUP SERVER INACTIVE AFTER EX_SUP_PROG COMMAND' ),
: Local load media DM module file name.ext
!

'DM_FNSEXT = UPLIT (®ASCIZ'AZFMTR.SAV'),
F"CT-REO_HSG = uplit (dasciz’'ENTER FCT FILE NAME TO RESTORE (FILENAME.EXT):
'

'),

{g;g

:
3
:

1976
1977
1978

HW_Q1_IP = uplit (sasciz'RC25
IP
REGISTER
ADDRESS' ),
HW_Q2_VECTOR = uplit (wasciz'RC25 INTERRUPT VECTOR ADDRESS'),
HW_Q3_BR = uplit (wasciz'RC25
BUS
REQUEST
LEVEL'),

{gg

3
3

1983
1984

SW_Q1_UNATT = uplit (sasciz'FORMAT IN UNATTENDED REFORMAT MODE'),
SW_Q2_NOTICE = uplit (vasciz'SNsAsssssssssssssssssssss NOTICE ssssssssssssssssasasns’'),

SW_Q4_UNATT

%g;g

1985

:
:
H

1988
1989
1990

Hardware parameter coding questions

:M_M-LNIT

= yplit (Wasciz'UNIT

NUMBER TO BRING

Software parameter coding questions

SW_Q3_OPER = uplit (sasciz’'sNsA
= uplit

(sasciz’'sNsA

000012

000014
000016
000020
000022
000024

103
103
000
000
102
060

000000G

002260
000000G
000000G
000140’
000154

OPERATOR MUST BE PRESENT IN ATTENDED MODE ‘),
RUNNING IN UN-ATTENDED REFORMAT MODE’ );

eludom

LTITLE
.IDENT

000000
000000
000003
000006
000007
000010
000010
000011

ONLINE'),

132
110

122
040

ZRCHB2 ZRCHBO RC25 DISK FORMATTER
/REV B 7/

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

AASCODE,
/CZR/
/CH /
0
0

LSTIML:: .WORD
LSHPCP::
. WORD
L$SPCP:: .WORD
LSHPTP:: .WORD
LSSPTP:: .WORD

2260
L $HARD
LSSOFT
L $HW
L$SW

LSUNIT: :.WORD

/B/
0/

TSPTHYV

SEQPOOGO 16

.816:”13)

JS
ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

S-Apr-1984 13:19 :09
S-Apr-1984 13:16:08

000110
000112
000114
000116
000120
000122
000124

LODISPATCH

000126
000130
000132
000134
000136

ERRTYP::.BLKU
ERRNBR:
: .BLKW
ERRMSG:
: .BLKW
ERRBLK:
: .BLKW
LSHWLEN:
:

000140

172150

HU.IP.ADéS::

000142

000154

HW.VECTOR
M. BR.LEVEL

000144
000146

SW.UNATT:;

000154

000162

OO0O0Orooocor
OO0OO0wWw

<<L$NDHW
-L $SHWLEN> /2>

-5630

154
S
0
1

000150
000152

000156
000160

SOISPATCH

OO0

L$SPC::
LSDEVP::.
LSREPP:
;.
LSEXPS:
;.
LSEXPS::.
LSAUT::
LS$DUT::
LSLUN::
LSDESP::.
LSLOAD::.
LSETP::

SLAST

repapaps
—q

LS$EF::

- <
——

Lt 5888888 58

LSLADP::
.
LS$STA::
L$CO::
LSDTYP::.
L$APT::
L$DTP::
LS$PRIO::.
LSENVI::.
LSEXP1::
LS$MREV::

@m®

ZRCHB2
REV B PATCH 00

000000
177777

. WORD
LSNDSMW:
: .BLKW
L$PROT:
: .WORD

. WORD

<<LINDSW
-L $SWLEN>/2>

VAX-11 Bliss-16 v3-555

SE°P°°61 17

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 316;5(13,

IKS
ZRCHB2

ZRCHBO RC25S DISK FORMATTER

S5-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
000164

000006

000000
000000
000003
000006
000011
000014
000017
000022
000025
000030
000033
000036
000041
000044
000047
000052
000055
000060
000063

045
124
045
116
111
124
114
111
040
062
103
124
114
122
104
105
072
045

116
000
116
045
116
111
111
116
122
065
117
122
114
040
104
123
045
117

116

000

000066
000071

000074

045
117

045
000
045
101
111
101
132
107
103
040
116
117
105
101
122
123
123
066

P.AAA:

116
114
111

045
117
103

P.AAC:

101
051

050
045

000076
000101
000104

045
101
107

000112
000115
000120
000123
000126
000131

125
124
104
101
051
045

116
040
062
050
045
101

111
045
045
104
123
120

000137
000142
000145
000150
000153
000156
000161
000164
000167
000172

111
114
116
040
062
050
045
101
122
124

103
040
111
045
045
104
123
106
115
040

101
125
124
104
101
051
045
117
101
101

000200
000203
000204
000207
000212
000215
000220
000223
000226

124
000
045
101
103
040
104
040
104

105

104

000107

000134

000175

101

110

102

114

131

117

116
115
122
103
105
115
040

P.AAB:

.WMORD

PSECT
_ASCII
LASCII
.ASCII
.ASCII
LASCII
ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

$PLITS,
RO,
/#Ns/
/7/¢<00><00>
/wNs/
/NsA/
/INIL/
/TIA/
/LIZ/
/ING/
7 RC/
/25 7/
/CON/
/TRO/
/LLE/
/R A/
/DDR/
/ESS/
/:%S/
/#06/

JASCII

/N/<00>

LASCII
.ASCII

040

.ASCII
.ASCII
.ASCII

LASCII

123

/sNs/
/ALO/
/GIC/

/AL 7/

/UNI/
/T w7/
/D2%/
/ACD/
/)wS/
/wAP/

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

/ICA/
/7L W/
/NIT/
/ =D/
/2%A/
/(D)
/wSe/
/AFO/
/RMA/
/T A/

.ASCII

P.AAD:

/#A(/
/0)%/

LASCII
.ASCII
ASCII
.ASCII
LASCII
.ASCII

LASCII

122

045
111
117
117
123
117
061

S-Apr-1984 13:16:08

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

/HYS/

/BOR/

/TED/
<00>
/sNws/
/AMI/
/CRO/
7 CO/
/DES/
7/ MO/
/D 1/

GBL

VAX-11 Bliss-16 v3-555

SEQ 0062

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB2. 816:5(13)

LS
ZRCHB?

ZRCHBO RC25 DISK FORMATTER

S5-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
000231
000234
000237
000242
000245
000250
000253
000256
000261
000264
000267

066
105
111
040
115
122
045
117
101
051
000

040
122
117
116
102
040
123
062
050
045

126
123
116
125
105
075
045
045
117
116

000273
000276
000301
000304
000307
000312
000315
000320
000323
000326
000331
000334
000337
000342
000345
000350
000353
000356
000361
000364
000367
000372
000375
000400
000403
000406
000411
000414
000417
000422
000425
000430
000433
000436
000441
000444
000447
000452
000455
000460
000463
000466
000471
000474
000476

101
111
111
040
114
105
114
111
114
116
040
062
050
045
101
131
103
040
111
045
045
104
116
045
101
124
122
040
116
130
124
124
103
040
116
117
105
101
122
123
117
101
051
000
045

116

102
116
116
117
111
072
117
103
040
111
045
045
104
123
120
123
101
125
124
104
101
051
000
116
044
114
122
116
055
111
105
040
062
103
124
114
122
104
105
040
066
050
045
000
101

045

0002790

045

122
107
107
116
116
040
107
101
125
124
104
101
051
045
110
111
114
116
040
062
050
045
000
045
106
105
055
117
105
123
116
122
065
117
122
114
040
104
123
045
045
117
116

106

P.AARE:

P.AAF:

P.AAG:

S-Apr-1984 13:16:08
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
ASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII

/6 v/
/ERS/
/ION/
7 N/
/MBE/
/R =/
/%Sw/
/02%/
/AC0/
/)sN/
<00>

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

/ABR/
/ING/
ZING/
7/ ON/
/LIN/
/E: 7/
/L0G/
/ICA/
/L W/
/NIT/
7 =D/
/2#A/
/(D)/
/#Ss/
/APH/
/YSI/
/CAL/
7 UN/
/IT /
/wD2/
/#A(/
/D)w/

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

/C25/
s CO/
/NTR/

.ASCII

/wNs/

/N/<00><00>
/wNs/
/AsF/
/TLE/
/RR-/
7/ NO/
/N-E/
/XIS/
/TEN/
/T R/

/0LL/

/ER 7
/ADD/
/RES/
/S s/
/06%/
/AC0/
/)sN/
<00><00»>
/®AF/

VAX-11 Bliss-16 V3-555

SEQ_0063

Page

SPIDERSUSERS: [NEALE.AZTEC)JZRCHB2. 816;5(13)

M5
ZRCHBZ

ZRCHBO RC25 DISK FORMATTER

S5-Apr-1984

REV B PATCH 00 GLOBAL TEXT SECTION
000501
000504
000507
000512
000515
000520
000523
000526
000531
000534
000537
000542
000544

117
101
111
040
131
103
040
111
045
045
104
116
045

122
124
116
120
123
101
125
124
104
101
051
000
116

000555
000560
000563

124
122
122

124
040
117

000547
000552

101
122

000566
000571
000574
000577
000602
000605
000610
000613
000616
000621
000624
000627
000632
000635
000640
000643
000646
000651
000652
000655
000660
000663
000666
000671
000674

122
123
107
040
104
111
117
101
051
045
101
104
117
117
101
051
045
000
045
116
045
116
045
116
045

000702
000705
009710
000713
00C716
00C721
000724
000727
000732
000735
000740
000743
000744

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

000677

101

115
124
107
110
111
114
116
040
062
050
045

105
111
072
120
040
075
066
050
045
123
120
040
075
066
050
000
116

045
117
101
105
120
107
123
116
040
111
110
045
045
117
123
045
111
114
045
045
117
000
000

116
045
116
045
116
000
116

045
116
045
116
045
000
045

114
122
125
105
107
132
114
105
117
103
105

105
055
116
103
116
101
105
122
122
117
000

106
115

044

116

106

045

13:19:09

S-Apr-1984 13:16:08

:
P.AAH:

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

/0RM/
/ATT/
/ING/
7/ PW/
/YSI/
/CAL/
7 UN/
/IT 7/
/«D2/
/#A(/
/D)w/
/N/<00>
/%Ns/

.ASCII
.ASCII
.ASCI1

/TTE/
/R P/
/ROG/

.ASCII
.ASCII

P.AAL:

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

P.AAM:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
_ASCII

P.AAI:
P.AAJ:

LASCII

/AFO/
/RMA/

/RES/
/SIN/
/G: /
7 PI/
/D W/
/I=w/
/06%/
/A(0/
/)wS/
/#Se/
/APL/
/D L/
/0=w/
/06%/
/ACO/
/)/7<00><00>
/#N/<00>
<00>
/%Ns/
/NsN/
/%Ns/
/N=N/
/wNs/
/N/<00><00>
/wNs/

/ASF/

/TLE/
/RR-/
7/ UN/
/REC/
/0GN/
/IZA/
/BLE/
7 ER/
/ROR/
7 CO/
/DE/<00>
<00>
/sNw/

VAX-11 Bliss-16 V3-555

SEQ 0064

SPIDER$USERS: [NEALE.AZTEC)JZRCHB2. 816;5(13)

NS
ZRCHB?

REV B PATCH 00
000747
000752
000755
000760
000763
000766
000771
000774
000777
C01002
001005
001019
001013
001016
001021
001024
001027
001032
001035
001040
001043
001046
001051
001054
001057
001062
001065
001070
001073
001076
001101
001104
001107
oo1112
001115
001120
001122
001125
001130
001133
001136
001141
001144
001147
001152
001155
001160
001163
001166
001171
001174
001176
001201
001204
001207
001212
001215

101
124
122
040
126
117
057
103
124
105
040
101
124
117
124
105
124
045
101
124
122
040
126
117
057
103
124
122
105
120
111
040°
040
115
125
000
045
101
124
122
040
116
117
105
122
040
104
101
120
111
000
045
101
124
122
040
116

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

GLOBAL TEXT SECTION
044
114
122
105
105
120
120
113
040
101
050
122
131
122
111
117
051
116
044
114
122
105
105
120
120
113
040
111
040
101
124
117
124
105
124
000
116
044
114
122
103
124
114
122
117
101
040
115
101
124
000
116
044
114
122
103
124

106
105
055
116
114
105
101
105
122
104
120
111
040
040
115
125
000
045
106
105
055
116
114
105
101
105
127
124
050
122
131
122
111
117
051

S-Apr-1984 13:16:08

P.AAN:

045
106
105
055
117
122
114
040
115
116
122
040
122
131

P.AAD:

045
106
105
055
117
122

P.AAP:

13:19:09

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

VAX-11 Bliss-16 v3-555

SPIDERSUSFRS: [NEALE.AZYEC)ZRCHBT816:5
(13)

/ASF/
/TLE/
/RR-/
7 EN/
/VEL/
/0PE/
<«S57>/PA/
/CKE/
/T R/
/EAD/
7 (P/
/ARI/
/Ty v/
/OR 7
/TIM/
/EOU/
/T7)/7<00>

/sNw/
/ASF/
/TLE/
/RR-/
7/ EN/
/VEL/
/OPE/
<57>/PA/
/CKE/
/T w/
/RIT/
/E (/
/PAR/
/ITv/
7 OR/
7 TI/
/MEO/
/UT)/
<00><00>
/wNs/
/ASF/
/TLE/
/RR-/
7 CO/
/NTR/
/0LL/
/ER /
/ROM/
7/ AN/
/D R/
/AM /
/PAR/
/ITv/
<00><00>
/wNs/
/ASF/
/TLE/
/RR-/
7 CO/
/NTR/

SEQ 0065
Page
21

B6
ZRCHB2

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

001220
001223
001226
001231
001234
001237
001242
001245
001250
001253
001256
001261
001264
001267
001272
001275
001300
001303
001306
001311
001314
001317
001322
001325
001330
001333
001336
001341
001344

117
105
122
040
122
131
045
101
124
122
040
116
117
105
122
040
122
131
045
101
124
122
040
116
122
104
120
111
040

114
122
101
120
111
000
116
044
114
122
103
124
114
122
117
120
111
000
116
044
114
122
122
107
105
040
101
124
117

114
040
115
101
124
000
045
106
105
0SS
117
122
114
040
115
101
124
000
045
106
105
055
111
040
101
050
122
131
122

001352
001355
001360
001362
001365
001370
001373
001376
001401
001404

115
125
000
04s
101
124
122
040
116
127

105
124
000
116
044
114
122
122
107
122

117
051

001412
001415
001420
001423
001426
001431
001434
001436
001441

050
122
131
122
111
117
051
045
101

120
111
040
040
115
125
000
116
044

124
101

040
123

001347

001407

001444
001447
001452
001455
001460

001463
001466

040

124

124
122
040
124
122

124

105

114
122
111
105
125

P.AAQ:

P.AAR:

111

045
106
105
053
111
040
111

040

045
106
105
055
116
122
120
115
124

/0LL/
/ER 7/
/RAM/
7 PA/
/RIT/
/Y/¢00><00>
/sNw/
/ASF/
/TLE/
/RR-/
s Cos
/NTR/
/0LL/
/ER /
/ROM/
/ PA/
/RIT/
/Y/¢<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
/7 R1/
/NG 7
/REA/
/D (/
/PAR/
/ITv/
7 OR/

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

/MEO/
~/suT)/
<00>¢<00>
/uNs/
/ASF/
/TLE/
/RR-7/
7 RI/
/NG 7/
/uWRI/

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

/(PA/
/RIT/
/v 0O/
/R T/
/IME/
/0UT/
/7)/7<00>
/eNz/
/ASF/

.ASCII

101
124
117
124
105
124

P.AAT:

S-Apr-1984 13:16:08

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

.flSCII

P.ARS:

S-Apr-1984 13:19:09

LASCII
.ASCII
LASCII
.ASCII
LASCII

LASCII
.ASCII

/7 117

/TE /

/TLE/
/RR-/
7 IN/
/TER/
/RUP/
/T W/
/AST/

VAX-11 Bliess-16 V3-555

SEQ 0066

Page

SPIDERSUSERS: [NEALE .AZTEC JZRCHB2. 816;5
(13)

Cé6
ZRCHB?

REV B PATCH 00
001471
001474
001477
001502
001505
001510
001513
001516
001521
001524
001527
001532
001535
001536
001541
001544
001547
001552
001555
001560
001563
001566
001571
001574
001577
001602
001605
001610
001613
001616
001621

130
105
104
045
101
124
122
040
123

103
104
000
116
044
114
122
102
040

001632
001635
001640
001643
001646
001651
001654
001657
001662
001665
001670
001673
001676
001701
001704
001707
001712
001715
001720
001723
001726
001731
001734
001737

105
117
045
101
124
122
040
101
117
111
103
124
114
122
101
114
122
122
045
101
124
122
040
123

122
122
116
0484
114
122
104
107
123
103
117
122
114
040
124
0«0
122
0.0
116
044
114
122
111
124

001624
001627

105
045
101
124

ZRCHBO RC2S DISK FORMATTER

GLOBAL

122
040
123
101
105
040
115
125
000
045
101
124
122
040
105
124
111
124

101
105

122
116
044
114

000
045
106
105
055
117
040
103
123
111
117
000

116
044
114
122
103
104
040
115
040

045
106
105
055
122
111
114
111
105
105
105
000
045
106
105
0SS
125
115

122
110
124
103
123
124
105
124

123
122

S-Apr-1984 13:19:09

TEXT SECTION

S-Apr-1984

P.AAU:

P.AAV:

P.AAW:

124
040

122
000
045
106
105
05S
111
116
124
040
116
117
105
106
101
105
117
000
045
106
105
055
116
122

.ASCII
,ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
_ASCII
.ASCII
LASCII
.ASCII
.ASCI1
.ASCII
.ASCII
LASCII
.ASCII
.ASCII

/ER/<00>
/sNw/
/ASF/
/TLE/
/RR-/
7 WO/
/ST v
/ACC/
/ESS/
7 TI/
/MEO/
/7UT/<00>
<00»
/sNs/
/ASF/
/TLE/
/RR-/
7 CR/
/EDI/
/T L/
~/IMI/
/T E/
/xCE/

.ASCII
.ASCII
.ASCII

/EDE/
/D/<00><00>
/sNw/

LASCII
.ASCII
.ASCII
LASCII
LASCII

/A$F/
/TLE/
/RR-/
7 BUY/
/S M/

.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
_ASCI1
LASCII
LASCII
LASCII
LASCII
LASCII

/ERR/
/0R/<00>
/«Nw/
/ASF/
/TLE/
/RR-/
7 DI/
/AGN/
/0ST/
/IC /
/CON/
/TRO/
/LLE/
/R F/
/ATA/
/L E/
/RRO/
/R/<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
7 IN/
/STR/

.ASCII
.ASCII

P.AAX:

P.AAY:

/AST/
/ER /

13:16:08

VAX-11 Blies-16 V3-555

55092227 2

SPIDERSU
[NEALE .AZTEC
SERS
JZRCHB2.B16
:
;5 (13)

D6
ZRCHB?
REV B PATCH 00
001742
001745

001750
001753
001756
001761
001764
001766
001771
001774
001777
002002
002005
002010
002013
002016
002021
002024
002027
002032
002035
002040
002042
002045
002050
002053
002056
002061
002064
002067
002072
002075
002100
002103
002106
002111
002114
002117
002122
002125
002130
002133
002136
002141
002144
002147
002152
002155
002160
002163
002166

002171

002174
002176
002201
002204
002207

125

111
040

117
124
105
124

045
101

124
122
040
126
111
103
116
124
116
104
124

111
000
045
101

124

122
040
124
122
124
122
105
045
101
124
122
040
111
105
116
040
101
127
124
111
101
104
105
117
111
116
106
122
045
101
124
122

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

103
117
114

120
111
117

000
116
044

114
122
111
101
104

117
105

111
040

105
111
105
000
116
044
114
122
111
105
125

040
111
000
116
044

114
122
115
116
116
103
122
104
122

S-Apr-1984
S-Apr-1984

124
116
117

040

115
125

045
106
105
055
116
114

P.AAZ:

.ASCII

/7 IN/
/VAL/
710 7
/CON/
/NEC/
/T10/
/N 1/
/0EN/
/TIF/
/IER/

040
116

103
117
171
116
106
122

045
106
105
055
116
122
120

P.ABA:

.ASCII

IN/

/TER/

/RUP/
/T W/
/RIT/

/7E/7<00><00>

P.ABB:

.ASCII

/8Ns/
/ASF/
/TLE/
/RR -/
/

MA/

ZINT/
/ENA/
/
/NCE
/ RE/
/AD/7<S57>
/WRI/
/TE 7
/INV/
/ALL/
/D R/

105

116
114
040
107
116
104
124
111
000
116
044
114
122

<00><00>
/%Ns/
/ASF/

/TLE/
/RR-/

127
124

000
045
106
105
0S5
101
124
101
105
105

/UCT7
/I0ON/
/7 LO/
/0P 7/
/TIM/
/EQU/
/T/7<00>
/9N
/
/ASF/
/TLE/
/RR-/

/EGI/

/0N 7
/1IDE/
/NTI/
/FIE/

P.ABC:

.ASCII

/R/7<00>

/%Ns
/
/ASF/
/iLE/
/RR -/

13:19:09
13:16:08

VAX-11 Bliss-16 Vv3-555

SE°P°°68 24

SPIDERSUSE
: [NEALE
RS.AZTEC JZRCHB2. Bl6s5(13)

ZRCHB2
ZRCHBO RC25 DISK FORMATTER
REV B PATCH 00 GLOBAL TEXT SECTION
002212
002215
002220
002223
002226
002231
002234
002237
002242
002245
002250
002253
002256
002261
002264
002267
002272

002275
002276
002301
002304
002307
002312

002315
002320
002323

00.2326

040
111
105
116
040
111
040
101
124
116
055
101
102
040
116
117
105

000
045
101
124
122
040
116
117
105

122

002331
002334

040
122

002342
002345
002350
002353
002356
002361
002364

002337

002367

002372
002375
002400
002403
002406
002411
002414
002417
002420
002423
002426
002431
002434
002437
002442
002445

002450
002453
002456

115
116
116
103
127
124
114
104
117
117
114
104
114
103
124
114
122

101
124
101
105
122
105
117
040
040
116
117
101
105
117
122
114
000

116
044
114
122
103

045
106
105
055
117

101

115

124
114
122

122
122

117
120
111
051
045
101
124

116
101
124
000
116
044
114

055
122
131
000
045
106
105

040
111
123
125
103
105
117
000
045
101
124
122
040
107
114
105

111
124
105
105
105
122
122

116
040
121
116
040
122
000

040

122

120
124
117

050

122

116
044
114
122
110
110
105
114

122
117
114

LASCII
LASCII
.ASCII
.ASCII
.ASCII
ASCII
ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
LASCII
.ASCII
P.ABD:

122
114
040

105
117

.ASCII

<00>
/sNs/
/ASF/
/TLE/
/RR-/
7 CO/

P.ABE:

7/ ER/
/ROR/

LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII

/ON-/
/PAR/
/ITv/
/)/¢<00><00>
/«Nw/
/AS$F/
/TLE/

.ASCII

P.ABF:

/RAM/

.ASCII
.ASCII

LASCII

055

117
103
040

.ASCI1
.ASCII
.ASCII
LASCII
.ASCII
.ASCII

7 MA/
/INT/
/ENA/
/NCE/
7 WR/
/ITE/
7 LO/
/AD /
/70 7/
/NON/
7-L0/
/ADA/
/BLE/
7 CO/
/NTR/
/0LL/
/ER/<00>

.ASCII
/NTR/
LASCII
~/0LL/
.ASCII. /ER /

116

045
106
105
055
111
040
126
040

S-Apr-1984 13:19:09
S5-Apr-1984 13:16:08

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

.ASCII
.ASCII
.ASCII

7 (N/

/RR-/

7 IN/
/IT /
/SEQ/
/UEN/
/CE /
/ERR/
/0R/<00>
<00>
/%Ns/
/ASF/
/TLE/
/RR-/
7/ HI/
/GH /
/LEV/
/EL 7/

/PRO/
/70C/
/0L 7/

VAX-11 Bliss-16 V3-555
SE°P°°69 25
SPIDERSUSERS: [NEALE.AZTEC ]JZRCHB2. 816;5(13)

F6
ZRCHB2

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
002461
002464
002467
002472
002475
002500
002503
002506
002510
002513
002516
002521
002524
002527
002532
002535
002540
002543
002546
002551
002554

111
117
101
102
111
040
122
000
045
101
124
122
040
122
057
114
110
104
122
106
114

116
115
124
111
124
105
117
000
116
044
114
122
120
107
120
114
101
127
105
101
125

045
106
105
055
125
105
117
040
122
101
040
111
122

P.ABG:

002562

04s

116

045

P.ABH:

002557
002565
002570
002573
002576
002601
002604
002607
002612
002615
002620
002623
002626
002631
002634

002637

002642
002645
002650
002653

002656
002660
002662
002664
002666
002670
002672
002674
002676
002700
002702
002704
002706
002710
002712

105

040

101
124
122
040
120
116
122
111
105
122
104
122
122
120

044
114
122
115
120
107
105
123
122
105
040
122
040
101

040
040
115
125

117
124
105
124

111

000
000674°
000744°
001032
001122°
001176
001242°
001306°
001362’
001436
001474°
001536’
001602
001640
001720°

124

000

103
120
111
114
131
122
122

S-Apr-1984 13:16:08

000

106
105
055
101
111
040
107
124
040
101
105
117
050
122

131

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

/INC~/
/0MP/
/AT1/
/BIL/
/ITvy/
7 ER/
/ROR/
<00><00>
/sNs/
/ASF/
/TLE/
/RR-/
7 PU/
/RGE/
<S7>/P0/
/LL 7/
/HAR/
/DWA/
/RE 7
/FAIl/
/LUR/

.ASCII

/sNw/

.ASCII

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

/ASF/
/TLE/
/RR-/
7 MA/
/PP1/
/NG 7/
/REG/
~/IST/
/ER 7/
/REA/
/D E/
/RRO/
/R (/
/PAR/

.ASCII
.ASCII
.ASCII
ASCII

7/ OR/
7 TIv/
/MEOQ/
/7uUT)/

LASCII

122
111
117
051

P.AAK:

/E /7<00>

LASCII
,WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

/ITv/

<00><00>
P.AAL
P.AAM
P.AAN
P.AAD
P.AAP
P.AAQ
P.AAR
P.AAS
P.AAT
P.AAV
P.AAV
P.AAW
P, AAX
P ,AAY

VAX-11 Bliss-16 V3-555

SEQ 0070

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 816;5(13)

G6
ZRCHB2

REV B PATCH 00
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002741
002744
002747
002752
002755
002760
002763
002766
002771
002774
002777
003002
003004
003007
003012
003015
003020
003023
003026
003031
003034

001766
002042°
002100’
002176’
002276
002356’
002420'
002510°
002562'
045
101
124
122
040
123
116
040
101
123
122
122
123
045
101
124
122
040
123
103
124
114

003042
003045
003050
003053
003054
003057
003062
003065
003070
003073
003076
003101
003104

125
117
123
000
045
101
124
122
040
115
105
122
040

003112
003115
003120
003122
003125
003130
003133
003136
003141
003144
003147

125
111
000
045
101
124
122
040
113
127
122

003037

003107

122

124

ZRCHBO RC25S DISK FORMATTER

S5S-Apr-1984 13:19:09

GLOBAL TEXT SECTION

116
044
114
122
122
120
123
123
124
040
122
072
000
116
044
114
122
110
124
117
122
114

045
106
105
055
105
117
105
124
125
105
117
045

P.ABJ:

045
106
105
055
117
057
116
117
105

P.ABK:

124
106
105

040
040
121

116
044
114
122
122
117
040
117
116

045
106
105
055
105
124
120
107
117

116
116
000
116
044
114
122
125
116
116
105

116
107

040

117

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

P.ABG
P.ABH
/sNs/
/ASF/
/TLE/
/RR-/
7 RE/
/SPO/
/NSE/
7 ST/
/ATY/
/S E/
/RRO/
/R:w/
/S/<00>
/wNw/
/ASF/
/TLE/
/RR-/
7/ WO/
/ST/<¢57>
/CON/
/TRO/
/LLE/

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

/UT /
/0OF /
/SEQ/
<00>
/#Nw/
/ASF/
/TLE/
/RR-/
/ RE/
/MOT/
/E P/
/ROG/
7 NO/

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

/UNN/
/ZING/
<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
7 UN/
/KNO/
/uWN /
/RET/

.ASCII

P.ABL:

122

045
106
105
055
116
117
040
124

S-Apr-1984 13:16:08

.ASCII

P.ABM:

P.AAZ
P.ABA
P.ABB
P.ABC
P.ABD
P.ABE
P.ABF

/R 0O/

/T R/

VAX-11 Bliss-16 Vv3-555

SEQ 0071

SPIDERS$USERS: [NEALE .AZTEC)ZRCHB2. 816:5
(13)

H6
ZRCHB2

REV B PATCH 00
003152
003155
003160
003163
003166
003171
003172
003175
003200
003203
003206
003211
003214
003217
003222
003225
003230
003233
003234
003237
003242
003245
003250
003253
003256
003261
003264
003267
003272
003275
003276
003301
003304
003307
003312
003315
003320
003323
003326
003331
003334
003337
003340
003343
003346

003351
003354
003357
003362
003365
003370
003373
003376
003401
003404
003406
003411

125
040
101
123
117
000
045
101
124
122
040
115
122
040
111
105
117
000
045
101
124
122
040
122
110
124
131
040
122
000
045
101
124
122
040
123
107
114
107
040
122
000
045
101
124

122
040
113
127
105
103
105
105
111
104
045
101

ZRCHBO RC25 DISK FORMATTER

S5-Apr-1984 13:19:09

GLOBAL TEXT SECTION
122
123
124
040
104

116
124
125
103
105

116
044
114
122
103
040
105
111
124
122
122

045
106
105
055
117
101
101
116
040
122
000

P.ABN:

116
044
114
122
120
124
117
040
116
105
117

045
106
105
055
117
057
123
123
103
122
122

P.ABO:

116
044
114
122
115
123
105
105
124
105
117

045
106
105
055
105
101
040
116
110
122
122

P.ABP:

116
044
114

045
106
105
055
116
117
040
104
104
122
105
105

P.ABQ:

045
106

P.ABR:

122
125
116
116
116
117
040
103
126
000
116
044

S-Apr-1984 13:16:08

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

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

/URN/
7 ST/
/ATW/
/S C/
/0DE/

<00>
/sNw/
/ASF/
/TLE/
/RR-/
s CO/
/M A/
/REA/
7 IN/
/IT 7
/ERR/
/0R/<00>
<00>
/sNs/
/ASF/
/TLE/
/RR-/
7 PO/
/RT/<57>
/MOS/
/T S/
/YNC/
7 ER/
/ROR/
<00>
/wNs/
/ASF/
/TLE/
/RR-/
7 ME/
/SSA/
/GE /
/LEN/
/GTH/
7 ER/
/ROR/
<00>
/sNw/
/ASF/
/TLE/

/RR-/
7 UN/
/KNO/
/uWN /
/END/
/COD/
/E R/
/ECE/
/IVE/
/D/<00»
/wNw/
/AsF/

VAX-11 Bliss-16 V3-555

SEQ 0072

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB2. 816;5
(13)

16
ZRCHB?2

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

GLOBAL TEXT SECTION

003414
003417
003422
003425
003430
003433
003436
003441
003444
003447
003450
003453
003456
003461
003364
003467
003472
003475
003500
003503
003506
003510
003513
003516
003521
003524
003527
003532
003535
003540
003543
003546
003551
003554
003556
003561
003564

124
122
040
101
117
120
107
105
117
000
045
101
124
122
040
113
127
111
105
125
000
045
101
124
122
040
111
123
040
105
124
105
117
000
045
101
124

114
122
101
120
122
125
105
122
122

105
055
104
124
040
122
040
122
000

116
044
114
122
125
116
116
116
122
120
000
116
044
114
122
111
124
105
123
120
111
104
125
000
116
044
114

045
106
105
055
116
117

P.ABS:

045
106
105
055
116
040
121
124
040
115
040
124

P.ABT:

045
106
105

P.ABU:

003572
003575
003600
003603
003606
003611
003614

040
111
123
040
115
122
105

111
124
105
103
120
105
122

116
040
121
117
101
040
122

003622
003625
003630
003633
003636
003641
003644

045
101
124
122
040
105
105

116
044
114
122
125
130
103

045
106
105
055
116
120
124

003567

003617

003647
003652
003655
003660

122

117

105
101
105
111

S-Apr-1984 13:19:09

122

104
124
116
117

040
124
122
124

055

000

040
124
124
116

S5S-Apr-1984 13:16:08

LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCI1
.ASCII
ASCII
.ASCII
_.ASCII
.ASCIT
.ASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

/TLE/
/RR-/
7 AD/
/APT/
/O0R 7/
/PUR/
/GE /
/ERR/
/0R/<00>
<00»
/sNs/
/AsF/
/TLE/
/RR-/
7 UN/
/KNO/
/uWN /
7/INT/
/ERR/
/UPT/
<00><00>
/wNs/
/ASF/
/TLE/
/RR-/
7 IN/
/IT /
/SEQ/
7 ST/
/EP /
/TIM/
/ED 7/
/0UT/
<00><00>
/sNw/
/AsF/
/TLE/

LASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII

7 IN/
/IT 7/
/SEQ/
7 CO/
/MPA/
/RE /
/ERR/

.ASCII

P.ABvV:

.ASCII

_ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII

.ASCII
LASCII
LASCII
LASCII

/RR-/

/0R/<00»

/wNw/
/AsSF/
/TLE/
/RR-/
7 UN/
/EXP/
/ECT/
/ED 7/
/ATT/
/ENT/
/ION/

VAX-11 Bliss-16 v3-555

SEO 0073

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHB2. 816:5
(13)

J6
ZRCHB2
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

003663
003666
003671
003674
003677
003702
003705
003710
003712
003715
003720
003723
003726
003731
003734
003737
003742
003745
003750
003753
003756
003761
003764
003767
003772

040
104
105
101
040
103
126
000
045
101
124
122
040
105
105
105
103
115
104
120
104
111
105
040
123

105
040
123
107
122
105
105
000
116
044
114
122
125
130
103
104
117
101
040
103
105
116
116
115
123

004000
004003
004006
004011
004012
004015
004020
004023

122
105
105
000
045
101
124
122

105
111
104

003775

004026

004031
004034

004037

004042
004045
004050
004053
004056
004061
004064
004067
004072
004075
004100
004103
004106
004111
004112
004115
004120
004123
004126

107

040

105
105

105

123
111
123
130
120
117
105
040
123
107
122
105
105
000
045
101
124
122
040

105

116
Cad
114
122
125
130
103

104

116
115
123
105
105
111
104

045
10€
105
055
116
120
124
040
115
116
117
117
040
040
104
105

P.ABW:

101

040

P.ABX:

122
125
105
105
111
040
104
105
101
040
103
126
000

116
(2}
114
122
111

045
106
105
055
116

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

LASCII

040

105
117
040
103
124
116
116
115
123
105
105
111
104

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

.ASCII

103
126
000

045
106
105
055
116
120
124

S5S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

/ESS/
/AGE/
7 RE/
/CEl/
/VED/
<00><00>
/wNs/
/ASF/
/TLE/
/RR-/
7 UN/
/EXP/
/ECT/
/ED s/
/COM/
/MAN/
/D O/
/PCO/
/DE 7/
7/IN /
/END/
7 ME/
/SSA/

/GE /

/REC/
/EIv/
/ED/<00>
<00>
/wNw/
/ASF/
/TLE/
/RR-/
7 Un/

.ASCII
.ASCII

/EXP/
/ECT/

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

/SER/
/IOU/
/S E/
/xCE/
/PTI/
/ON /
/END/
7 ME/
/SSAs
/GE /
/REC/
/EIv/
/ED/<00>
<«00»
/sNw/
/AsF/
/TLE/
/RR-/
7 IN/

.ASCII

P.ABY:

7 EN/
/D W/

/ED v/

SEQ 0074
VAX-11 Bliss-16 v3-555
Page
30
SPID:ERSU
[NEALE.AZTEC SERS
JZRCHB2.B16;:5 (13)

K6
ZRCHB2
REV B PATCH 00
004131

126

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION
101

114

LASCII

123

.ASCII

004134
004137
004142
004145
004150

111
103
115
104
116

104
117
101
040
104

040
115
116
105
040

004156

123

101

107

004153

004161
004164
004167
004172

115

105
105
111
104

040
103
126
000

101
124
122
040
113
127
115
123
105
131

044
114
122
125
116
116
105
101
040
120

004174

045

004235
004240
004243
004246
004250
004253
004256
004261
004264

040
103
126
000
045
101
124
122
040

004177
004202
004205
004210
004213
004216
004221
004224
004227
004232

004267

004272

004275
004300
004303
004306
004311
004314
004317
004322
004325
004326
004331
004334
004337
004342
004345
004350
004353
004356
004361
004364
004367
004372
004375

105

124
101

111
040
115
116
102
106
040
114
000
045
101
124
122
040
124
124
104
107
117
101
040
106
122

122
105
105

116

045

122
105
105
000
116
044
114
122
117

105
111
104

123

116

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

106
105
055
116
117
040
123
107
124
105

045
106
105
055
125

P.ABZ:

P.ACA:

124

116
103
115
104
125
105
106
114

107
117
101
040
106
122
125
000

116
044
114
122
117
040
101
111
040
115
116
102
106
040

045
106
105
055
125
123
116
116
103
115
104
125
105
117

/ID /
/COM/
/MAN/
/D E/
/ND 7/

.ASCII

/SAG/

.ASCII
.ASCII
.ASCII
.ASCII

.ASCII

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

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

.ASCII

104

.ASCII

P.ACB:

/VAL/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII
.ASCIT
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIT
.ASCII

/MES/

/E R/
/ECE/
/IVE/
/D/<00>

/sNw/

/ASF/
/TLE/
/RR-/
7 UN/
/KNO/
/WN 7/
/MES/
/SAG/
/E T/
/YPE/

/ RE/
/CEI/
/VED/
<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
/ Ou/

/TST/
/AND/

/ING/
7 CO/
/MMA/
/NO 7/
/BUF/
/FER/
7 Furs
/LL/<00>
<00>
/sNs/
/A$F/
/TLE/
/RR-/
7 Ou/
/T S/
/TAN/
/DIN/
/G C/
/0MM/
/AND/
7 BU/
/FFE/
/R 0/

SEQ_0075

31
VAX-11 Bliss-16 V3-555
‘Page
SPIDERSUSERS:(NEALE.AZTEC )ZRCHB2.816:5 (13)

L6
ZRCHB?2

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
004400
004403
004406
004411
004414
004417
004422
004425
004430
004433
004436

125
117
123
103
122
122
045
101
124
122
040

124
106
131
040
122
000
116
044
114
122
125

040
040
116
105
117
000
045
106
105
055
116

004444
004447
004452
004455
004460
004463
004466
004471
004474

127
115
123
105
125
105
122
105
105

116
105
101
040
115
122
105
111
104

040
123
107
116
102
040
103
126
000

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

116
044
114
122
106
105
105
040
122
000
116
Gad
114
122
120
124
117
122
114
040
115

045
106
105
055
111
040
101
105
117
000
045
106
105
055
117
057
116
117
105
124
105

004602
004605
004610
004612
004615
004620
004623

040
122
000
045
101
124
122

105
117
000
116
044
114
122

122
122

045
106
105
055

004631
004634
004637
004642
004645

114
101
106
040
114

105
114
103
106
105

107
040
124
111
040

00444])

004477

004500
004503
004506
004511
004514
004517
004522
004525
004530
004533
004536
004541
004544
004547
004552
004555
004560
004563
004566
004571
004574

004577

004626

113

000

117

040

116

125

111

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

~/7UT 7/
/0F 7
/SYN/
/C E/
/RRO/
/R/<00><00>
/siNw/
/ASF/
/TLE/
/RR-/
7 UN/

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

/uWN 7/
/MES/
/SAG/
/E N/
/suMB/
/ER 7/
/REC/
/EIv/
/ED/<00>

P.ACE:

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

/sNws/
/ASF/
/TLE/
/RR-/
7 FI1/
/LE 7/
/REA/
/D E/
/RRO/
/R/<00><00>
/«Nw/
/ASF/
/TLE/
/RR-/
7 PO/
/RT/<57>
/CON/
/TRO/
/LLE/
/R T/
/IME/

P.ACF:

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

7 ER/
/ROR/
<00><00»
/wNw/
/ASF/
/TLE/
/RR-/

P.ACC:

117

.ASCII

P.ACD:

124

114

S-Apr-1984 13:16:08

.ASCII

LASCII

.ASCII
LASCII
.ASCII
LASCII
LASCII

/KNO/

<00>

/0UT/

IL/

/LEG/
/AL 7/
/FCT/
7 FIv
/LE /

VAX-11 Bliss-16 v3-555

SEQ 0076

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBZ2. 816;5(13)

M6
ZRCHB2

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
004650
004653
004656
004660
004662
004664
004666
C04670
004672
004674
004676
004700
004702
004704
004706
004710
004712
004714
004716
004720

114
107
000
002736’
003004
003054
003122’
003172°
003234
003276°
003340°
003406
003450’
003510'
003556°
003622°
003712’
004012’
004112’
004174’

004732
004734

004736
004741
004744
004747
004752
004755

004536’
004612’
045
101
124
122
040
130

116
044
114
122
126
040

045
106
105
055
101
122

004763
004766
004771
004774
004777

057
111
040
122
040

127
124
105
117
117

122
105
122
122
116

004.22
004724
004726
004730

004760

005002
005005
005010
005013
005016
005021
005024
005027
005032
005035
005040
005043
005046
005051
005054
005057
005062
005064
005067

105
124
000

116
110
P.ABI:

004250'
004326
004422°
004500'

105

040
124
122
124
045
101
124
122
040
103
123
124
103
101
125
106
000
045
101

S-Apr-1984 13:16:08
.ASCII
ASCII
.ASCII
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

/LEN/
/GTH/
<00><00>
P.ABJ
P.ABK
P.ABL
P.ABM
P.ABN
P.ABO
P.ABP
P.ABQ
P.ABR
P.ABS
P.ABT
P.ABV
P.ABV
P.ABW
P.ABX
P.ABY
P.ABZ

.WORD
.WORD

.ASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII

P.ACE
P.ACF
/wNw/
/ASF/
/TLE/
/RR-/
7 VA/
/X R/

LASCII
LASCII
.ASCII
.ASCII
LASCII

<«57>/WR/
/ITE/
7 ER/
/ROR/
7 ON/

.WORD
.WORD
.WORD
.WORD

101

111
105
125
000
116
044
114
122
111
117
111
105
131
124
056
111
000
116
044

P.ACH:

104

116
122
120
000
045
106
105
055
116
116
123
116
040
040
102
114
045
106

.ASCII

P.ACI:

P.ACJ:

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

P.ACA
P.ACB
P.ACC
P.ACD

/EAD/

7 IN/
/TER/
/RUP/
/7/<00><00>
/wNs/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cy 7/
/AT /
/v.B/
/FIL/
<00><00>
/wNw/
/ASF/

VAX-11 Bliss-16 Vv3-555

SEQ 0077
Page
33

SPIDERSUSERS: [NEALE.AZTEC]ZRCHB2. 816:5(13)

N6
ZRCHB2

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

005072
005075
005100
005103
005106
005111
005114
005117
005122
005125
005130
005132
005135
005140
005143
005146
005151

124
122
040
103
123
124
103
101
125
115
000
045
101
124
122
040
103

114
122
111
117
111
105
131
124
056
124
000
116
044
114
122
111
117

105
055
116
116
123
116
040
040
102
131

005157
005162
005165

124
103
101

105
131
124

116
040
040

117
000
116
044
114

103

005154

005170

005173
005176
005200
005203
005206

005211
005214
005217
005222
005225
005230
005233
005236
005241
005244
005247
005252
005255
005260
005263
005264
005267
005272
005275
005300
005303
005306
005311
005314
005317
005322
005325
005330
005333
005336

123

125

114
000
045
101
124

122
040
103
123
124
103
101
12
1
105
122
050
120
105
000
045
101
124
122
040
103
123
124
103
101
123
126
105
122
050

S-Apr-1984 13:19:09

111

056

045
106
105
055
116
116

P.ACK:

123

S-Apr-1984 13:16:08
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII

/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cy 7
/AT /
/sv.B/
/MTY/
<00><00>
/%N
/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/

.ASCII
.ASCII
.ASCII

/TEN/
/Cy 7
/AT /

.ASCII

/LO0C/

.ASCI1

101

.ASCII
P.ACL:

122
111
117
111
105
131
124
105
117
116
131
120
040
124

045
106
105
055
116
116
123
116
040
040
122
040
124
040
111
123
051

116
044
114
122
111
117
111
105
131
124
105
117
116
131
105

04s
106
105
055
116
116
123
116
040
040
122
040
124
040
122

P.ACM:

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

/S1S/

/VU.A/

<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cy /
/AT /
/SER/
/vO0 7
/ENT/
/Ry /
/(PI/
P S/*
/ET)/
<00>
/%N/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SI1S/
/TEN/
/Cy 7/
/AT /
/SER/
/vO 7
/ENT/
/RY /
/(ER/

VAX-11 Bliss-16 V3-555

SEQ 0078

Page

SPIDERSUSERS: [NEALE.AZTEC )JZRCHB2. 816;S(13)

B7
ZRCHB?2

REV B8 PATCH 00
005341
005344
005347
005350
005353
005356
005361
005364
005367
005372
005375
005400
005403
005406
005411
005414
005416
005421
005424
005427
005432

005435
005440
005443
005446
005451
005454
005457
005462
005464

005467
005472

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

122
105
000
045
101
124
122
040
103
123
124
103
101
125
105
000
045
101
124
122
040

103
123
124
103
101
125
105
000
045

101
124

123
051

116
044
114
122
111
117
111
105
131
124
056
116
000
116
044
114
122
111

045
106
105
055
116
116
123
116
040
040
123
104

P.ACN:

045
106
105
05S
116
116
123
116
040
040
122
126

P.ACO:

045

P.ACP:

117
111
105
131
124
056
103
000
116

044
114

1e2 " -~
040
103
123
124
103
101
125
124
000

122
111
117
111
105
131
124
056
124
000

005535
005540
005543
005546
005551
005554

101
124
122
040
103
123

044
114
122
111
117
111

005557
005562
005565
005570
005573
005576
005600
005603

045S

124
103
101
125
116
000
045
101

S-Apr-1984 13:16:08

040
124

005475
005500
005503
005506
005511
005514
005517
005522
005525
005530

005532

S-Apr-1984 13:19:09

116

105
131
124
056
114
000
116
044

106
105

058 .
116
116

S Al

123
116
040
040
101
116

045

106
105
055
116
116
123

P.ACQ:

116
040
040
117
116
045
106

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

/R S/
V/ET)/
<00>
/suNw/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cy 7
/AT /
/sv.S/
/END/
<«00>¢<00>
/uNw/
/ASF/
/TLE/
/RR-/
7 IN/

.ASCII
.ASCII
LASCII
LASTII
LASCII
.ASCII
.ASCII
LASCII
.ASCII

/CON/
/SIS/
/TEN/

LASCII
LASCII

/ASF/
/TLE/

.ASCII
/RR-/
“LASCII- # IN/
.ASCII
/CON/
.ASCII
/SIS/
ASCII
/TEN/
.ASCII
/Cvy v/
.ASCII
/AT /
.ASCII
/U.A/
LASCII
/TTN/
LASCII
100’100'

.ASCII

LASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII

LASCII
LASCII
.ASCII
LASCII
P.ACR:

/Cv v
/AT /
/U.R/
/ECv/
<00><00>
/sNw/

.ASCII
LASCII
.ASCII
LASCII

/sNs/

/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/

/TEN/
/Cvy s
/AT /
/7v.0/
/NLN/
<00><00>
/sNw/
/ASF/

VAX-11 Bliss-16 v3-555

SEQ 0079

Page

SPIDERSUSERS: [NEALE .AZTEC JZRCHB2. 816;5(13,

f
e
ZRCHB?

REV B PATCH 00
005606

005611

005614
005617
005622

005625
005630
005633
005636

005641

005644
005647

005650
005653
005656

124

ZRCHBO RC2S DISK FORMATTER

GLOBAL

114

S-Apr-1984 13:19:09

TEXT SECTION
105

S-Apr-1984
LASCII

/TLE/

122

055

.ASCII

/RR-/

104
105
105

040
121
123

122
125
124

.ASCII
LASCII
.ASCII

/D R/
/EQuU/
/EST/

040
114
101

111
105
114

114
107
040

040

050

122
000

121

051

116

045

122
103

056

045

121

LASCII
LASCII
LASCII

125

LASCII

104

LASCII

7 C(u/

/.QD/

/RQ)/
<00»

.ASCII

/sNw/

0SS

.ASCII

/RR-/

105

.ASCI1

/NCE/

101
124

044
114

005664

040

106

005672
005675
005700
005703
005706
005711
005714
005717
005720
005723
005726
005731
005734

055
123
105
117
101
120
124
000
045
101
124
122
040

120
124
122
122
124
122
101

117
040
122
40
040
117
102

116
044
114
122
102

045
106
105
055
101

005742
005745
005750
005753
005756
005761
005764

101
105
104
125
105
101
125

103
124
105
105
104
124
056

113
040
121
125
040
040
104

116

045

114
122
125
130
101
105
104
122
040

105
055
116
120
111
104
055
117
123

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

/TLE/
/RR-/
7 UN/
/ExXP/s
/LALl/
/NED/
7 D-/
/PRO
/C S/

116
117
050
056

123
116
125
124

LASCII
LASCII
LASCII
LASCII

/ENS/
/ION/
7 (u/
7..1/

005661

005667

005737

005767
005772

005774

005777

122
116

104

117
000

116
000

101

044

125

123

045

006002
006005
006010
006013
006016
006021
006024
006027
006032

124
122
040
105
114
116
040
120
103

006040
006043
006046
006051

105
111
040
056

006035

040

106
105

P.ACS:

LASCII
.ASCII

7 IL/
/LEG/
/AL /

105

.ASCII

ASCII
LASCII
.ASCII

P.ACT:

120

P.ACU:

/ASF/
/TLE/

7 FE/
/-PO/
/ST 7
/ERR/

.ASCII
.ASCII
.ASCII
.ASCII

/0R 7
/AT /
/PRO/
/TAB/

LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

<00>
/sNws/
/ASF/
/TLE/
/RR-/
7 BA/

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

/ACK/
/ET 7/
/DEQ/
/7UEY/
/ED 7
/AT /
~sv.D/

.ASCII

105

106

LASCII
LASCII

.ASCII
LASCII

.ASCII

LASCII

/D P/

/ONE/
<00><00>

/sNs/

/ASF/

/suUSP/

13:16:08

VAX-11 Blies-16 V3-555

SEQP.“

SPIDERSU
[NEALE .AZTEC
SERS
JZRCHB2.8B156
:
;5 (13)

D7
ZRCHB?

REV B PATCH 00
006054
006057
006060
006063
006066
006071
006074
006077
006102
006105
006110
006113
006116
006121
006124
006127
006132
006135
006140
006143
006146
006151
006154
006157
006162
006165
006170
006173
006176
006201
006204
006206
006211
006214
006217
006222
006225
006230
006233
006236
006241
006244
006247
006252
006254
006257
006262
006265
006270
006273
006276
006301
006304
006307
006312
006315
006320

104
000
045
101
124
122
040
120
101
105
104
040
111
104
130
40
057
051
045
101
124
122
040
103
123
124
103
101
125
124
000
045
101
124
122
040
103
123
124
103
101
125
105
000
045
101
124
122
040
103
123
124
103
101
125
113
000

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

GLOBAL TEXT SECTION
123

051

116
044
114
122
104
040
103
124
055
106
114
040
106
063
063
000
116
044
114
122
111
117
111
105
131
124
056
123
000
116
044
114
122
111
117
111
105
131
124
056
113
000
116
Oadq
114
122
111
117
111
105
131
124
056
123
000

045
106
105
055
125
120
113
040
121
101
105
050
103
064
065
000
045
106
105
055
116
116
123
116
040
040
110
124
045

106

P.ACV:

P.ACW:

P.ACX:

105
055
116
116
123
116
040
040
123
117

045
106
105
055
116
116
123
116
040
040
103
126

P.ACY:

ASCII
ASCII
.ASCII
.ASCIT
ASCII
.ASCII

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

LASCII

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

/DS)/
<«00»
/sNw/
/ASF/
/TLE/
/RR-/
7 DU/
/P P/
/ACK/
/ET /
/D-Q/
7 FA/
/ILE/
/D (/
/XxFC/
7 34/
<57>/35/
/)/<00><00>
/sNs/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cy 7/
/AT /
/U, W/
/TST/
<00><00>
/wuNs/
/AsF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/Cv 7
/AT /
/V.S/
/EXO/
<00><00>
/wNw/
/ASF/
/fLE/
/RR-/
7/ IN/
/CON/
/SIS/
/TEN/
/Cv v/
/AT /
sv.C/
/KSv/
<00><00>

VAX-11 Bliss-16 v3-555
SEO 0081 37
SPIDERSUSERS: [NEALE ,AZTEC JZRCHB2. 816;5
(13)

E7
ZRCHBZ2

ZRCHBO RC25 DISK FORMATTER

S5S-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
006322
006325
006330
006333

045
101
124
122

006341

117

006336
006344
006347
006352

006355
006360
006363
006366
006371
006374
006377
006402

006405
006410
006413
006416
006421

040
104
117
104

114
107
040
103
105
045
101
124
i22
040
103
040

006424
006427
006432
006435
006440
006443
006444

125
040
114
101
117
117
000
045

006452
006455
006460
006463
006466
006471
006474

124
122
040
113
127
102
040

006502
006505
006510
006513
006516
006521
006524
006527
006532
006535
006540
006543
006546
006551
006554
006557
006562
006565
006570

040
101
123
124
056
124
045
101
124
122
040
114
101
130
040
105
124
040
040

006447

006477

116
044
114
122
104
120
040
125
040
114
101
117
117
000
116
044
114
122
104
123
106

116
111
105
114
120
104

045
106
105
055

056
106
116
111

105
114
120
104
000
045
106
105
055
056
106
117

114
122
125
116
116
101
104

105
055
116
117
040
104
122

123
124
040
040
104
123
116
044
114
122
111
105
114
106
105
103
105
102
104

124
125
101
104
123
000
045
106
105
055
114
107
040
103
130
125
104
131
115

044

111

126

106

/sNw/
/ASF/
/TLE/
/RR-/

.ASCII

/0PC/

.ASCII
.ASCII
.ASCII

P.ADA:

104
114
107
040
103
105
045

.ASCII
LASCII
LASCII
.ASCII
ASCII

103

116

101

P.ACZ:

S5-Apr-1984 13:16:08

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

.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII

P.ADB:

105

/D F/
/0UN/
/0 I/

/LLE/
/GAL/
7 OP/
/CO0D/
/E/<00><00>
/sNw/
/AsF/
/TLE/
/RR-/
7 D./
/CSF/
7 FO/
/UND/

.ASCII
.ASCII

7 IL/
/LEG/
/AL /
/0PC/
/0DE/
<00»
/sNs/

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

/TLE/
/RR-/
7 UN/
/KNO/
/uWN /
/BAD/
7 DR/

LASCII

.ASCII

P.ADC:

7 D./

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

/ASF/

/IVE/

/ ST/
/ATU/
/S A/
/T D/
/.D0S/
/T7S5/<00»
/whs/
/ASF/
/TLE/
/RR-/
7 IL/
/LEG/
/AL /
/XFC/
7 EX/
/ECU/
/TED/
7 BY/
7 DM/

VAX-11 Bliss-16 V3-555

SEQ 0082

Page

SPIDERS$USERS: [NEALE.AZTEC]ZRCHB2. 81635(13)

ZRCHBZ2

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
006573
006574
006577
006602

006605
006610
006613
006616
006621
006624
006627
006632
006635
006640
006643
006644
006647
006652
006655
006660
006663
006666
006671
006674
006677
006702
006705
006710

006713
006716
006721
006724
006727
006732
006735
006740
006743
006746
006751
006754
006757
006762
006765

006770
006773
006776
007001
007004
007006
007011
007014
007017
007022
007025
007030
007033
007036

000
04s
101
124

122
040
120
113
040
040
132
117
103
104
000
04s
101
124
122
040
103
123
124
103
101
104

104
040
117
045
101
124
122
040
040
122
103
116
105
117
117
110
124
115
123
104
105
000
045
101
124
122
040
113
127
104
120

116
044
114
122
104
111
105
125
101
105
040
102
102

045
106
105
055
040
103
104
120
040
122
123
056
000

P.ADD:

116
044
114

045
106
105

P.ADE:

117

116

122
111
111

105
131
124
040
114
114
120
116
044
114
122
104
127
104
117
124
122
122
116
117
040
101
105
057
103
000
116
044
114
122
125
116
116
111
114

055
116

123

116
040
040
111
105
117
000
045
106
105
055
115
117
040
125
040
122
040
040
123
104
057
116
122
126
045
106
105
055
116
117
040
123
101

S-Apr-1984 13:16:08
LASCII
.ASCII
.ASCII
.ASCII

.ASCII
'ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

<00>
/sNw/
/ASF/
/TLE/
/RR-/
/D 7
/PIC/
/KED/
7 uP/
/7 A/
/ZER/
/0 S/
/CB./
/DB/<00>
<00»>
/sNs/
/ASF/
/TLE/
/RR-/
/7 IN/
/CON/
/SIS/
/TEN/
/Cy 7
/AT /
/D I/

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

/0P/<00>
/sNw/
/ASF/
/TLE/
/RR-/
7 DM/
7 WO/
/RD /
/Cou/
/NT /

.ASCII
LASCII

P.ADF:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

P.ADG:

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

/DLE/
7 LO/

/ERR/
/0R /
/ON 7/
/MHOS/
/T D/

/MA/<S7>
/SEN/
/D/<57>/R/
/ECvV/
<00><00>
/%N/
/ASF/
/TLE/
/RR-/
/ UN/
/KNO/
/uN 7/
/DIS/
/PLA/

VAX-11 Bliss-16 v3-555

SEQ

Pooa 3 39

SPIDERSUSERS: [NEALE.AZTECJZRCHB2. 816;5(13)

G7
ZRCHB2

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

REV B PATCH 00 GLOBAL TEXT SECTION
007041
007044
007047
007052
007055
007060

007063
007066
007070
007073
007076
007101
007104
007107
007112
007115
007120
007123
007126
007131
007134
007137
007142
007145
007150
007153
007156
007161
007164

131
101
124
117
040
040

104
124
045
101
124
122
040
111
040
124
101
124
107
116
056
114
123
124
045
101
124
122
040

040
125
040
104
101
104

106
000
116
044
114
122
104
126
116
040
125
111

007175
007200
007203

125
104
107

007211
007214
007217
007222
007224
007227
007232
007235
007240
007243
007246
007251
007254

103
106
114
000
045
101
124
122
040
120
105
125
104

040
040
117
116
124
105
116
044
114
122
125
117
122
120
111
116
124
123
101
105
000
116
044
114
122
104
117
122
120
111

007262
007265
007270
007273
007276
007300
007303
007306

123
103
106
114
000
045
101
124

124
123
101
105
000
116
044
114

007167
007172

007206

007257

120
105

123

107

116

106
114
103
105
124
056
045
106
105
055
122
105
117
106
114

P.ADH:

116

111
120
106
040
101
000
045
106
105
055
040
127
040
040
101
117
111
040
111
104

111
040
111
104

045
106
105
055
040
127
040
040
101

P.ADI:

.ASCII
ASCII
_ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
JASCII
.ASCII
LASCII
.ASCI1
.ASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

/TIN/

.ASCII
.ASCII

/uUP /
/DIA/

.ASCII

P.ADK:

/DFL/
/T7/<00>
/sNs/
/ASF/
/TLE/
/RR-/
7/ DR/
/IVE/
7/ NO/
/T F/
/AWL/

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

.ASCII
.ASCII
.ASCII

P.ADJ:

/Y F/
/AWL/
/7T C/
/0DE/
7 AT/
7 D./

/G 1/
/N P/
/.0F/
/LN /
/STA/
/TE/<00>
/%Ns/
/ASF/
/TLE/
/RR-/
/7 VU /
/POW/
/ER /
~/uUP /
/DIA/
/GNO/
/STI/
/CS /
/FALl/
/LED/
<00><00>
/sNs/
/ASF/
/TLE/
/RR-/
/D 7/
/POW/
/ER 7/

.ASCII
.ASCII

117

045
106
105

S-Apr-1984 13:16:08

ASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII

114

13:19:09

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

/GNO/

/STI/
/CS /
/FAl/
/LED/
<00><00>
/wNs/
/ASF/
/TLE/

VAX-11 Blies-16 V3-555

SEQ 0084
Page
40

SPIDER$USERS: [NEALE.AZTEC)ZRCHB2. 816:5(13)

H7
ZRCHB2

REV B PATCH 00
007311
007314
007317
007322
007325
007330
007333
007336
007341
007342
007345
007350
007353
007356
007361
007364
007367
007372
007375
007400

007403

007406
007411
007414
007417
007422
007425
007430
007433

122
040
101
105
103

104
101
125
000
045
101
124
122
040
056
122
111
104
125
045
101
124

122

007441

040
123
104
056
103
122
107
105

007452
007455
007460
007463
007464
007467
007472
007475
007500

123
124
103
000
045
101
124
122
040

007506
007511
007514
007517
007522
007525
007530
007533
007536
007541
007542
007545
007550
007553

127
127
124
040
101
116
124
056
103
000
045
101
124
122

007436

007444
007447

007503

040
103

113

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:19:09

GLOBAL TEXT SECTION
122
101
120
122
101
040
111
122

055
104
124
040
122
106
114
105

116
044
114
122
105
124
040
115
040
124
116

045
106
105
055
103
115
124
105
117
000
045

114
122
125
105
057
122
126
111

105
055
056
116
125
105
040
116

101

104

044

040

111
117

106

P.ADL:

P.ADM:

122

123
116
000

116
G544
114
122
125
116
116
101
122
122
123

045
106
105
055
116

040
040
122
124
116
044
114
122

045
106
105
055

<00»
/sNs/
/ASF/
/TLE/
/RR-/
7 EC/
7/.TM/
/R T/
/IME/
/D O/
/UT/<00>
/sNw/

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

/TLE/
/RR-/
7 V./
/SEN/
/D/<S57>/u/
/.RE/
/Cv 7/
/RIN/

.ASCII

.ASCII
.ASCII

P.ADN:

117

040
111
126
105
117
101
104
126
000

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

.ASCII

116
116

111
105
131

S-Apr-1984 13:16:08

.ASCII
ASCII
.ASCII
.ASCII
_.ASCII
LASCII
LASCII
.ASCII
LASCII

LASCII

P.ADO:

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

/RR-/
7 AD/
/APT/
/ER /
/CAR/
/D F/
/AIL/
/URE/

/ASF/

/G R/

/EAD/

7 IN/
/CON/

/SIS/
/TEN/
/CY/<00>
<00>
/sNs/
/ASF/
/TLE/
/RR-/
7/ UN/

/KNO/

/uWN /
/WAIl/
/TRv/
7 RE/
/ASO/
/N A/
/7T O/
/.Rv/
/CT7/<00>
<00»
/wNs/
/AsSF/
/TLE/
/RR-/

VAX-11 Bliss-16 Vv3-555

SEQ 0085
Page
41

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB2. 816sS
(13)

17
ZRCHB?

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

007556
007561
007564
007567
007572
007575
007600
007603
007606
007611
007614
007617

040
101
123
111
116
040
116
103
123
124
116
116

104
122
040
104
117
106
104
114
105
040
104
105

056
103
104
040
124
111
040
117
123
125
117
040

007625

105

000

101
124
122

044
114
122

123

105

007622

132

007630

045

007644

040

007652
007655

113
117

007633
007636
007641

007647

007660
007663
007666
007671

007674

007677

104
105
040
040

114

101

117

116

04s

106
105
055

125

056

040
125

106
116

105

107

040
105
124
111
114

7 D./
/ARC/
/S D/
/ID 7
/NOT/
7 FI/
/ND 7
/CLO/
/SES/
/T W/
/NDO/
/NE 7/

.ASCII

/E7<00><00»>

P.ADP:

ASCII
.ASCII
.ASCI1

/ASF/
/TLE/
/RR-/

.ASCII

/ZON/

/sNw/

ASCII

7 u./

.ASCII
.ASCII

/K F/
/0UN/

.ASCII

/SEE/

.ASCII
.ASCII
LASCII
.ASCII

/D S/
/EEK/
7 TO/

040

.ASCII

/AL

007710

045

116

04s

007716

124

114

105

007713

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

123
113
117
114

122

113

S-Apr-1984 13:16:08

.ASCII

105

124

103

116

007702

007705

S-Apr-1984 13:19:09

.ASCII

101

000

.ASCII

P.ADQ:

LASCII

/7 IL/

/LEG/
7

/TRA/

/Cx/<00>

.ASCII

/sNw/

.ASCII

/TLE/

101

044

007727
007732
007735
007740
007743

122
040
110
124
116
040
101

122
125
124
040
111
104
107

055
056
123
111
124
111
040

.ASCII
ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII

007751
007754
007757

040
111
040

127
124
106

122
105
101

LASCII
.ASCII
.ASCI1I

7 WR/
/ITE/
7 FA/

007765
007770
007773
007776
010001
010004

104
045
101
124
122
040

000
116
044
114
122
125

000
045
106
105
055
056

.ASCII
_ASCII
LASCII
.ASCX!
.ASCII
LASCII

/D/<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
7 v,z

010012
010015
010020
010023
010026

124
116
040
101
104

040
111
104
107
115

111
124
111
040
101

LASCII
LASCII
.ASCII
LASCII
.ASCII

/7 1/
/NIT/
7 DI/
/AG 7
/DMA/

007721
007724

007746

007762

010007

104

111

110

115

114

124

106

101

.ASCII

105

123

.ASCII

LASCII

P.ADR:

LASCII

/ASF/

/RR-/
7 v,/

/MTS/
/Y 1/
/NIT/
7 D1/
/AG 7/

/DMA/

/ILE/

/MTS/

VAX-11 Bliss-16 Vv3-555

SEO 0006

SPIDERSUSERS: [NEALE.AZTEC )JZRCHB2. 816:5
(13)

J/
ZRCHB2

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:19:09

REV B8 PATCH 00 GLOBAL TEXT SECTION
010031
010034
010037
010042
010045
010050
010052
010055
010060
010063
010066
010071
010074
010077
010102
010105
010110
010113
010116

040
115
122
106
114
000
045
101
124
122
040
123
122
117
104
123
105
123
040

103
120
105
101
105
000
116
044
114
122
125
131
040
125
040
056
122
105
101

117
101
040
111
104
045
106
105
055
056
104
106
116
123
104
040
124
116

P.ADS:

010142
010145
010150
010153
010156
010161
010164
010167
010172
010175
010200
010203
010206
010211
010214
010216
010220
010222
010224
010226
010230
010232
010234
010236
010240
010242
010244
010246
010250
010252
010254
010256

045
101
124
122
040
123
122
122
105
101
117
123
122
104
004736°
005016’
005064
005132°
005200°
005264°
005350°
005416
005464
005532°
005600
005650
005720°
005774
006060°
006140°
006206°
006254°

116
044
114
122
115
124
040
111
123
103
040
123
124
000

045
106
105
055
101
105
104
126
040
114
101
105
105
000

P.ADT:

010121
010124
010127
010132
010135
010140

104
123
120
116
040
124

040
056
116
117
123
000

123
123
040
124
105

P.ACG:

S-Apr-1984 13:16:08

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

s CO/
/MPA/
/RE /
/FAl/
/LED/
<00><00>
/wNw/
/ASF/
/TLE/
/RR-/
7 V.7
/SYD/
/R F/
/70UN/
/D S/
/S.D/
/ER /
/SET/
7 AN/

.ASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
LASCII
.WORD
.WORD
.MORD
.MORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WMORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD

/sNw/
/ASF/
/TLE/
/RR-/
7 MA/
/STE/
/R D/
/RIV/
/ES 7/
/ACL/
/0 A/
/SSE/
/RTE/
/D/<00><00>
P.ACH
P.ACI
P.ACY
P ACK
P_ACL
P _ACM
P_ACN
P.ACO
P _ACP
P.ACG
P _ACR
P_,ACS
P_.ACT
P_.ACV
P _ACV
P _ACW
P, ACX
P ACY

.ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII

VAX-11 Bliss-16 v3-555

SEQ 0087

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 81635(13,

/D S/
/S.S/
/PN /
/NOT/
7 SE/
/T7/¢<00>

I<7

007300°
007342
007400’
007464
007542°
007630°
007710’
007770'
010052°
010142’
045
123
103

010343
010346

010351
010352

010355
010360
010363
010366
010371
010374
010376
010401
010404

010407

010412
010415
010420
010423
010426
010431

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

.
.
.
.

045

040
103
123
125

P.ADV:

123
114

101
125
105
106

116
114
040
115
116
116
045
117
105

101
126
111
103
115
104
000
101
040
107

111
101
104
117
101
045

P.ADW:

116
122
111

P.ADX:

101
111
102
045
045
117

126
114
114
116
101
040

101
101
105
000
116
122

000
045

117

105
117
123
124
114
116
045
122
122
040
124
116
116

116

107
116
125
101
105
000
101
117
101
116
040
117
045

116

LASCII
.ASCII
LASCII

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

/AVA/
/ILA/
/BLE/
/#N/<00>
/wAN/
/0 R/

.ASCII
.ASCII

.ASCII

P.ADY:

P.ADZ:

ADK
ADL
.ADM
.ADN
.ADO
. ADP
.ADQ
.ADR
.ADS
.ADT
/%A /
/SUC/
/CES/

/SFU/
/LsN/
<00>
/#AIl/
/NVA/
/LID/
7 CO/
/MMA/
/NDw/
/N/<00>
/=AN/
/0 R/
/EGIL/

LASCII

040

111
040
111
102
045
000
120
107
115
117
113
127
116

010306
010310
010312
010314
010316
010320
010322
010324
010326
010330
010332
010335
010340

010274
010276
010300
010302
010304

006574°
006644
006716
007006°
007070*
007150°
007224

O
~N

006322°
006374°
006444
006524°

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

: 35332383

010260
010262
010264
010266
010270
010272

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

788888882288 8808004

ZRCHB2
REV B PATCH 00

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

/0N /

/EGI/
/ON /
/SVUl/
/TAB/
/LEw/
/N/<00><00>
/wAP/
/ROG/
/RAM/
7 NO/
/T K/
/NOW/
/NeN/

SEO 0088

VAX-11 Bliss-16 V3-555
SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 816;5 (13)

L7
ZRCHB2
REvV B PATCH 00
010503
010504
010507
010512
010515
010520
010523
010526
010531
010534
010537
010542
010545
010546
010550
010552
010554
010556
010560
010562
010564
010567
010572
010575
010600
010603
010606
010611
010614
010617
010622
010624
010627
010632
010635
010640

010643
010646
010650
010653
010656
010661
010664
010667
010672
010675
010700
010703
010706
010711
010714
010716
010721
010724
010727
010732
010735

000
045

117

040
111

122
116
045
124
104
117
045
000
010332’
010352

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

101
101
106
114
105
000
101
101
101
116
116

114
104
101
125
045
000
123
116
114
105
000

P.AEA:

P.AEB:

S-Apr-1984
S-Apr-1984

.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

+ASCII

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

<00»>

/8AL/
/0AD/
/7 FA/
/7ILV/
/RE%/
/N/<00><00>
/%AS/
/TAN/
/DAL
/
/0ONE
7/
/8N/<00>
<00>

P.ADV
P.ADW
P.ADX
P.ADY
P.ADZ
P.AEA

P.AEB

/8AS/
/UCC/

/ESS/
/9N/<00>
/8Al/
/NVA/

/L1ID/
/7 CO/
/MMA/
/NDs/
/N/<00>
/%AC/
/0MM/
/AND/
/ AB/
/0RT/
/EDs/
/N/<00>
/9AY/
/NIT/
/-0F7
/FLYI/
/NEs/
/N/<00><00>

P.AEF:

P.AENH:

/8AY/
/NIT/
/-RAV/
/AIL/
/ABL/
/E¥SN/

<00><00>

.ASCII

/9%AM/
/EDI1/
/A F/
/0RM/
/AT /
/ERR/

13:19:09
13:16:08

VAX-11 Bliss-16 V3-555

SEQ_0089
Page
45

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 81635(13)

M7
ZRCHBZ2

REV B PATCH 00

010740
010743
010746
010751
010754
010757
010762
010768
010770
010772
010775
011000
011003
011006
011011
011014
011017
011022
011025
011030
011033
011034
011037
011042
011045
011050
011053
011056
011061
011064
011067
011072
011075
011100

011103
011106

o11111
011114
011117
011120

011123
011126
011131

011134
011137
011140
011143
011146
011151
011154
011157
o11162
011165
011170
011173
011176
011201

117

116
045
122
105
122
105
105
116
045

117

101
040
122
045
045
101
040
122
045
000
045

117

040
106
122
103
123
105
117
116
045
117
122
114
040
122
045
000
045
122
105
122
122
000
045
105
101
040

117
101
111
105
101
104
107
123

ZRCHBO RC25 DISK FORMATTER

GLOBAL

122

000

101
111
040

117
103

104
000
101
115
122
105

117

116
101
124
105

117
116

101

123

102
106
040
103
123
122
122
000
101
116

S-Apr-1984
S5-Apr-1984

TEXT SECTION

045
000

127

P.AEJ:

103
120
105
122
122

P.AEK:

104
101
122
122

P.AEL:

124
120
124
124
045

000

P.AEM:

P.AEN:

117
105
105
117
116

101
111
040
122
045

P.AEOD:

101
123
107
106
115
116
116
122
114
111
116
124

P.AEP:

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

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

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

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

/0Rs/
/N/<00><00>
/9%AW/
/RIT/
/E P/
/ROT/
/ECT/
/EDs/
/N/<00>
/8AC/
/0MP/
/ARE/
/ ER/
/ROR/
/%N/<00>
/%AD/
/ATA/
/ ER/
/ROR/
/9N/<00>
<00>

/9%AH/
/0ST/
/ BU/
/FFE/
/R A/
/CCE/
/SS 7/
/ERR/
/0Rs/
/N/<00><00>
/%AC/
/ONT/
/ROL”/
/LER/
/ ER/
/ROR/
/9N/<00>

<00>

/%AD/
/RIV/
/E E/
/RRO/
/ReN/
<Q0>

/%AM/

/ESS/

/AGE/
/ FR/

/0M /
/AN /

/INT/
/ERN/
/AL 7/
/DIA/
/GNO/

/5T17

13:19:09
13:16:08

VAX-11 Bliss-16 V3-555

SEQ_0090
Page

SPIDER$USERS: [NFALE.AZTEC)ZRCHB2. 81635 (13)

N7
ZRCHB2

REV B PATCH 00
011204
011207
011210
011212

103
000
010564
010600°

011216
011220
011222
011224
011226
011230
011232
011234
011236
011240
011242
011245
011250
011253
011256
011261
011264

010650'
010672*
010716°
010746
010772
011014
011034
011072°
011120°
011140°
105
105
104
105
115
104
131

011214

011267
011272
011274

011277
011302
011305
011310
011313
011316
011321

011324
011327
011332
011335
011340
011343
011346
011351
011352
011355
011360
011363
011366
011371
011374
011377
011402 .
011405
011410
011413
011416
011421
011424
011427
011432

ZRCHBO RC25 DISK FORMATTER

GLOBAL TEXT SECTION
045

116
P.AEC:

010624°

116
122
101
040
115
104
131

076
000
116

124

123

124
106
115
040
101
122
116
000
045
101
124
122
040
111
103
105
105
116
122
040
105
117
127
106
114

S-Apr-1984 13:16:08
.ASCII
.ASCII
.WORD
.WMORD

/CsN/
<00>
P.AED
P .AEE

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

P.AEG
P.AEH
P.AEI
P.AEJ
P AEK
P_.AEL
P.AEM
P.AEN
P.AEO
P AEP
/ENT/
/ER /
/DAT/
/E </
/MM-/
/DD-/
/vvY/

LASCII
.ASCII
.ASCII

/vY> 7/
<00><00>
/sNs/

.WORD

131
000
04S .

101
040
104
111
101
125

S-Apr-1984 13:19:09

124
040
124
074
055
055
131
040

P.AEQ:

045

P.AER:

116
101
111
117
114
116

117
104
124
116
040
111

117
117
101
055
102
124
107

040
122
124
040
117
111
000

116
044
114
122
111
124
117
040
055
124
105
104
040
040
122
101
000

045
106
105
055
116
040
104
122
105
105
104
125
124
120
040
111

040

/ANO/
7/ AD/
/DIT/
/ION/
/AL 7/
/UNI/

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

/70 /
/FOR/
/MAT/
7/ - 7/
/ABO/
/RTI/
/NG/<00>
<00>
/sNs/
/ASF/
/TLE/
/RR-/
/7 IN/
/IT /
/COD/
/E R/
/E-E/
/NTE/
/RED/
7 DU/
/E T/
/0 P/
/WR /
/FAIL/
/L/<00>

P.AES:

SEQ_0091

Page

SPIDERSUSERS: [NEALE.AZTEC ;ZRCHB2. 81615
(13)

P _AEF

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

ASCII

VAX-11 Bliss-16 v3-555

/7S 7/

L
’

B8
ZRCHBZ
REV B PATCH 00

011434
011437
011442
011445
011450
011453
011456
011461
011464
011467
011472
011475
011500
011503
011506
011511
011514
011517
011522
011525
011530
011533
011536
011541
011544
011547
011552
011555
011560
011563
011566
011571
011572
011575
011600
011603
‘011606- 011611
O11614
011617
011622
011625
011630
011633
011636
011641
011644

011647
011652
011655
011660

011662
011664

011667

011672
011675
011700

045
101
124
122
040
117
111
040
123
101
040
115
105
122
122
123
045
101
124
122
040
114
101
116
102
040
040
111
040
114
124
000
045
101
124
122
040
115
040
040
130
105
125
124
120
040
122

124
107
105
111

000
045
101
124
122
040

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION
116
044
114
122
101
122
116
110
124
116
122
117

P.AET:

116
044
114
122
111
105
114
125
105
117
125
124
123
105
105

045
106
105
055
102
124
107
117
040
104
105
124
120
107
115
000
045
106
105
055
114
107
040
115
122
106
116
123
105
103
104

116

045

P.AEV:

040
117
101
000

S-Apr-19684 13:19:09
S-Apr-1984 13:16:08

044
114
122
114
111
117
123
124
116
116
123
105
106
115

111
040
123
117
116
044

114
122
122

106
105
055
111
124
106
111
105
040
111
040
122
117
101

P.AEVU:

‘

116
123
123
116

045
106
105
055
103

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

.ASCII
LASCII
LASCII
ASCII
.ASCII
ASCI1
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
,ASCII
LASCII
ASCII
.ASCII
JASCII
LASCII
ASCII
LASCII
LASCII
.ASCII
.ASCII
LASCII
.ASCII
.ASCII
LASCII

.ASCII
.ASCII

P.AEW:

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

/wNw/
/ASF/
/TLE/
/RR-/
7 AB/
/ORT/
/ING/
7 MO/
/ST /
/AND/
7/ RE/
/MOT/

/E P/
/ROG/
/RAM/
/S/<00><00>

/sNw/

/AsF/
/TLE/
/RR-/
7 IL/
/LEG/
/AL /
/NUM/
/BER/
7 OF/
7 UN/
/ITS/
7 SE/
/LEC/
/TED/
<00»
/sNw/
/ASF/
/TLE/
/RR-/
7 LI/
/MIT/
7 OF/
7 SI/
/XTE/
/EN /
/UNI/
/7S /7
/PER/
7 FO/
/RMA/

/TIN/
/G S/

/ESS/
/ION/
<00»
/sNs/
/ASF/
/TLE/
/RR-/
7 RC/

SEQ 0092
VAX-11 Blies-16 v3-555
Page
48
SPID:ERSU
[NEALE .AZTEC SERS
]ZRCHB2.B16;5 (13)

C8
ZRCHB?
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
GLOBAL TEXT SECTION

011703
011706
011711
o11714
011717
011722
011725
011730
011733
011736
011741
011744
011746
011751
911754
011757
011762
011765
011770
011773
011776
012001
012004

062
103
124
114
122
116
111
111
124
116
122
122
045
101
124
122
040
117
103
040
117
124
116

065
117
122
114
040
111
101
132
111
040
122
000
116
044
114
122
120
124
117
126
114
111
040

012012

122

000

117
101

116
122

012007

012014
012017
012022
012025
012030
012033
012036
012041

012044
012047

012052
012055
012060
012063
012066
012070
012073
012076
012101
012104
012107
012112
012115
012120
012123
012126
012131
012134
012137
012142
012145
012150

122

045
101
124
122
040
115
116
101

101
116
040
122
000
045
101
124
122
040
120
105
105
101
111
040
124
040
111
101
132
107

122

116
044
114
122
103
115
111
124

040
111
105
117
000
116
O4aa
114
1c2
104
040
122
122
103
126
101
105
111
124
114
111
000

040
116
117
105
111
124
114
101
117
105
117
045
106
105
055
122
117
114
111
101
117
105

P.AEX:

045
106
105
055
117
125
103
111

P.AEY:

117

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

725 7
/CON/
/TRO/
/LLE/
/R I/
/NIT/
/IAL/
/IZA/
/TIO/
/N E/
/RRO/
/R/<00>
/sNs/
/ASF/
/TLE/
/RR-/
/ PR/
/0T0/
/COL/
7 VI/
/0LA/
/TIO/
/N E/

LASCII

/R/<00>

.ASCII

040
105

P.AEZ:

/RRO/

.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII

/s#Ns/
/AsF/
/TLE/
/RR-/
/7 CO/
/Mu/
/NIC/
/ATI/

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

/A I/
/NIT/
7 ER/
/ROR/
<00><00>
/sNw/
/ASF/
/TLE/
/RR-/
7 DU/
/P S/
/ERv/
/ER /
/ACT/
/IVE/
7 AF/
/TER/
7 IN/
/ITI/
/ALI/
/ZIN/

ASCII

/G/<00»

.ASCII
.ASCII

111
124
122
122

045
106
105
055
125
123
126
040
124
105
106
122
116
111
111
116

S-Apr-1984 13:19:09
S-Apr-1984 13:16:08

/ON /
/ARE/

VAX-11 Bliss-16 v3-555
SE0P0093
an
SPIDEROUSERS:[NEALE AZTEC)ZRCHB2. 81635
(13,

D8
ZRCHB?

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

012152
012155
012160
012163
012166
012171
012174
012177
012202
012205
012210
012213
012216
012221
012224
012227
012232
012235
012240
012243
012246
012251
012254
012257
012262
012265
012270
012273
012276
012301
012304

045
101
124
122
040
120
105
105
111
103
126
101
105
105
123
137
117
103
115
104
105
105
106
040
114
116
105
117
105
117
040

116
044
114
122
104
040
122
122
116
124
105
106
122
130
125
120
107
117
101
000
116
122
103
106
105
101
040
040
123
122
050

045
106
105
055
125
123
126
040
101
111
040
124
040
137
120
122
040
115
116
000
124
040
124
111
040
115
124
122
124
105
106

012312
012315
012320
012323
012326
012331
012334
012337
012342
012345
012350
012353
012356
012361
012364
012367
012372
012375
012400
012403
012406
012411
012414
012417
012422

116
105
130
072
122
065
111
040
105
123
122
040
104
123
122
065
116
122
120
126
124
040
104
123
122

101
056
124
040
103
040
120
040
107
124
040
101
122
123
103
040
124
122
124
105
117
101
122
123
103

115
105
051
000
062
040
040
122
111
105
040
104
105
000
062
111
105
125
040
103
122
104
105
000
062

012307

111

S-Apr-1984

GLOBAL TEXT SECTION

114

P.AFA:

P.AFB:

105

,ASCII
JASCII
ASCII
.ASCII
ASCII
ASCII
+ASCII
+ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
LASCII
.ASCII
.ASCII
+ASCII
.ASCII
.ASCII
ASCII

.ASCII

P.AFC:

P.AFD:

P.AFE:

13:19:09

S-Apr-1984 13:16:08

.ASCIT
.ASCII
JASCII
LASCII
.ASCII
.ASCII
LASCII
ASCII
.ASCII
.ASCII
LASCII
+ASCII
.ASCII
.ASCII
.ASCII
ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
ASCII
,ASCII

/sNs/
/ASF/
/TLE/
/RR-/
7 DU/
/P S/
/ERv/
/ER /
/INA/
/CTI/
/VE /
/AFT/
/ER /
/EX_/
/SUB/
/_PR/
/0G 7
/COM/
/MAN/
/D/<00><00>
/ENT/
/ER /
/FCT/
7 FI/
/LE /
/NAM/
/E T/
/0 R/
/EST/
/ORE/
7 (F/

/ILE/

/NAM/
/E.E/
/XT)/
/: /<00»
/RC2/
/5
7
/IP /
7
R/
/EGI/
/STE/
/R
/
7 AD/
/DRE/
/55/<00>
/RC2/
/5 I/
/NTE/
/RRU/
/PT /
/VEC/
/TOR/
/ AD/
/DRE/
/S55/¢<00»
/RC2/

VAX-11 Bliss-16 3 55 S

SPIDEROUSERS:(

SEOP

E.AZTEC)ZRCHB2. 81655
(13)

E8
ZRCHB?2

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

GLOBAL TEXT SECTION

012425
012430
012433
012436
01244}
012444

065
040
125
040
105
105

040
040
123
040
121
123

012455

105

114

000

0490

040

012447
012452

012460

012463

040
114

125

124

012466
012471
012474
012477
012502
012505
012510
012513
012516
012521
012524

116
102
040
040
111
040
116
116
106
115
040

012532
012535
012540
012543
012546
012551
012554
012557
012562
012565
012570
012573
012576
012601
012604
012607
012612
012615
012620
012623
012626
012631
012634
012637
012642
012645
012650
012652
012655
012660
012663
012666
012671
012674

101
105
105
122
117
101
115
105
045
101
052
052
052
052
052
052
052
117
103
052
052
052
052
052
052
052
000
045
101
040
117
122
117
115

012527

040

S-Apr-1984 13:19:09

040
105

116

125
105
124
102
116
040
114
105
117
101
111
125

124
116
104
105
122
124
117
000
116
052
052
052
052
052
052
052
040
124
105
052
052
052
052
052
052
052
000
116
040
040
120
101
122
125

040
102
040
122
125
124

LASCII
.ASCII
LASCII
.ASCII
.ASCII
.ASCII

040
126

111

115
122
117
122
107
117
111
000
122
124
116

P.AFF:

P.AFG:

116

124
104
040
106
115
040
104
000
045
052
052
052
052
052
052
052
116
111
040
052
052
052
052
052
052
052
045
040
040
105
12
040
123

S-Apr-1984 13:16:08

.ASCII
.ASCII

/
/
/LEV/

_ASCII

~/UNI/

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

/NUM/
/BER/
7 TO/
7 BR/
/ING/
7
O/
/NLI/
/NE/<00>
/FOR/
/MAT/
7 IN/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
_ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
JASCII
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
_.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

/ATT/
/END/
/ED /
/REF/
/0RM/
/AT /
/M0D/
/E/<00><00>
/sNw/
/Ase/
/esey/
/asay/
/sses
/eees
/aeas
/esa/
/& N/
/0TI1/
/CE /
/aess
/esss
/ses/
/eee/
/sae/
/ess/
/ase/
<00><00>
/sNws/
/A
7/
7
/

.ASCII

LASCII

P.AFH:

P.AFI:

/S
7/
7
8/
/suUS /
/7
R/
/7EQU/
/EST/

/EL/<00>

7 UN/

/0OPE/
/RAT/
/0R 7/
/MUS/

VAX-11 Bliss-16 v3-555

SEQ 0095

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHB2. 81655(13)

F8
ZRCHB?2

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:19:09

REV B PATCH 00 GLOBAL TEXT SECTION
012677
012702
012705
012710
012713
012716
012721

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

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

/T B/
/E P/
/RES/
/ENT/
7 IN/
7/ AT/
/TEN/
/DED/
7 MO/
/DE 7
<00>
/sNs/
/A
7
/
/
7/
R/
/UNN/
/ING/
7 IN/
/7 UN/
/-AT/
/TEN/
/DED/
7/ RE/
/FOR/
/MAT/
/ MO/
/DE/<00>

.PSECT

$GLOBS,

.BLKW

000054

.BLKMW
SEND.RING:
:

000056

REC.ENVELOPE:
:

000456

SND .ENVELOPE
: :

000736

002450

FCT.BUF::
.BLKW
REC.BUF
::
.BLKW
SND.BUF
::
BLKH
OUT$STD.BUF:
BLKU
RET.ENOAD::

002452

DATETXT::

002466

FLG.WRD::

012724
012727
012732
012735
012736
012741
012744
012747
012752
012755
012760
012763
012766
012771
012774
012777
013002
013005
013010
013013

000000

124
105
122
105
040
040
124

104
040
104
000
045
101
040
040
125
111
040
040
0SS
124
104
040
106
115
040
104

040
040
105
116
111
101
105

102
120
123
124
116
124
116

S-Apr-1984 13:16:08

105
115
105

104
117
040

116
040
040
040
116
116
111
125
101
105
105
122
117
101
115
105

045
040
040
122
116
107
116
116
124
116
104
105
122
124
117
000

P.AFJ:

000000

COM.AREA:
:

000050

HEAD.AREA:
:

000052

RECEIVE.RING::

001736

002316
002430

.BLKW

200

.BLKMW

130
400
170
45
10

.BLKW

RO ,

GBL

VAX-11 Bliss-16 v3-555

SEQ 0096

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB2. 816:5(13)

G8
ZRCHB?2

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:19:09

GLOBAL TEXT SECTION

S-Apr-1984 13:16:08

002470

NEX.FLAG::

002472

OVSA::

002474

002476

.BLKW

.BLKB
.EVEN

NXT.CRN: :
000000

.BLKW

RET.STATUS::

002500
002502

LUN::
.BLK
PID.SAVE::

002506

002510

NSD.SLOT::
.BLK
NRD.SLOT::

002512

RC25.ADDR::

002514

VEC.ADDR: :

002516

BR.LEVEL::

002520

UNIT.NO::

002522

.BLKW

002524

003777

002526
05,2530

000000
003400

C02532
002534

003777
007777

002536

111033

002540
002542
002544
002546
002550
002552

010222
000010
023433
000000
043777
177400

.BLKW

PTBL.PTR::
.BLKW

RSVD.STRUCT: :

.WORD
LWMORD

.WORD
m
ISD.STRUCT
.uono
.WORD
. WORD
.WORD
.WMORD
LWORD
.WORD
.WORD

.GLOBL
.GLOBL
.GLOBL

000126
000154
000140°
000011
000140
000154
000000°
000006
000076*
000204
000270

LSERRTBL ==
L$SW==
L$HW==
L$DEPQ==
DFPTBL ==
SFPTBL ==
FMil==
FMT2==
FMT3=as
FMT4==
FMTS==

3777
O
3400
3777

7777
-66745
10222
RINGBASE
23433
O
43777
-400

LS$SOFT, TS$PTHV, LSRPT, LSINIT
LSCLEAN, LSLAST, L$HARD, LSOVTYP
LS$DESC, LsSDU, L$SAU, LSAUTO, T1

ERRTYP
LSSWLEN.2
LSHWLEN.2
LSREV.1
LS$HWLEN.2
L$SWLEN.2
P.AAA
P.AAB
P.AAC
P.AAD
P.AAE

VAX-11 Bliss-16 Vv3-555

SEQ 0097

Page

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB2. 816;5(13)

H8
ZRCHB2

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

GLOBAL

000400
000476
000544°
000646
000652°
000010
001740
002660°
004660
010214
010546
011210’
o11242°
011274’
011352’
011434
011514’
011572’
011664
011746’
012014
012070°
012152’

012246’
012326
012364
012422
012460’
012516’
012562’
012652
012736

S-Apr-1984
S-Apr-1984

TEXT SECTION

13:19:09
13:16:08

P.AAF

FMT6==
FMT7==

P.AAG

P.AAH
P.AAI
P.AAJ

PID.FMT==
CRLF ==

COM.AREA+10
REC.BUF +2

RINGBASE
==
MSGADR==
PFE.STRUCT ==

P.AAK
P.ABI
P.ACG

EMSG.STRUCT ==
RC.STRUCTURE ~=
T
SDUP,STRUC==
SMSCP.STRUCT==
DATMSG==
NO.ADD.UNITS==

P.ADU

P.AEC
P.AEQ
P.AER
P.AES
P.AET
P.AEV
P.AEV
P.AEW
P.AEX
P.AEY

PWR .MSG==

ABO .MSG==
TO.MANY .UNITS==
GOOD .NUM . UNITS==
BOOT.FAILURE
==

PROTO.VIOLATION==
PORT . INIT.ERR==

ACTIVE.DUP,.SERVER== P AEZ
INACTIVE.DUP
. SERVER==

P.AFA

FCT.REQ.MSG==
HW.Q1.IP==

P.AFB
P.AFC

HW.Q2.VECTOR==
HW.Q3.BR==

P.AFD
P.AFE

P.AFF
P.AFG
P.AFH
P.AFI
P.AFY

HW.Q4 .UNIT==
SW.Q1.UNATTs==
SW.Q2.NOTICE==
SW.Q3.0PER==
SW.Q4 .UNATT==

PSECT SUMMARY

Psect Name
AASCODE
$GLOBS
SPLITS

Words
59

Attributes
.
I

694
2823

RO,
RO,

D
O

LG,

REL
,
REL
,

GBL,
GBL,

LIBRARY STATISTICS

File
SPIDERSUSERS: [NEALE .AZTEC ]JZRCHBO.L16;2

--------

ymbols

Total

Loaded

398

176

--------

Percent
a4

CON
CON

SEQ 0098
VAX-11 Bliss-16 Vv3-555
Page
5S4
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB2.8B16;5 (13)

18
ZRCHB?

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

GLOBAL TEXT SECTION

COMMAND QUAL
IF IERS

BLISS /PDP11/LIST ZRCHB2.B16

: Size:
O code ¢+ 3576 data words
: Run Time:
00:25.5
; Elapsed Time:
02:03.2
;i Memory

Used:

209

3 w?{otim Complete

S-Apr-1984 13:19:09

S-Apr-1984 13:16:08

VAX-11 Bliss-16 v3-555

5500099

SPIDERSUSERS: (NEALE.AZTEC ]ZRCHB2. 01635
(13,

ZRCHB3

ZRCHBO RC2S DISK FORMATTER
0001

0002
0003
0004
0005
0006

MODWE ZRCHB3 (STITLE

S5-Apr-1984 13:33:45

S-Apr-1984

13:31:29

VAX-11 Bliss-16 Vv3-555

'ZRCHBO RC2S DISK FORMATTER®

0007

?sbttl *‘MODULE DECLARATIONS'

0009

g Pretty Declarations

0011

!<BLF/LOWERCASE
_KEY>

0014

library

'ZRCHBO';

!Define RC25 Library module

0016

require

'BLSMAC.REQ';

!Define Bliss Macro Library

1506

!«

: Structure declarations used within this module.
structure

!
!
!

—

1510

1507

RC25S
register
accessing
structure. This
structure
allows
RC25 register accessing
to
be transportable between the PDP-11 and
VAX Diagnostic Supervisors.

! This
!
!

1523
1524
1526

1527

1529

1530

1531
1532
1534

also

defines an access algorithm for

VAX to allow field reference to MBA address
space
without
generating
machine
checks.

RC25 (0, P, S, E) =
begin
loceal

RC$S_REG;

RC$S_REG =

RC$S_REG

end
<P, S,
!<blf/page>

E>;

.(RC2S ¢+ supvalsD)<0, sbpval, 0>;

Page

SPIDERSU
[NEALE .AZTECJZRCH
SERS
B3.B16;5
: (1)

IDENT = 'REV B PATCH 00',
ADDRESSING _MODE (RELATIVE) ,
ENVIRONMENT (NOEIS)
) =

BEGIN

SEQ 0100

K8
ZRCHB3
REV B PATCH 00
:

1535

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS
.

S-Apr-1984 13:33:45
S-Apr-1984 13:31:29

:
:

1536
1537

!
!

The
psect
named "code
or
Ocodfl"
is redefinded here
to
be
called "aascode”
This is done to force the tkb

1539

at absolute address

1538

! linker to place the pr

{gg

1542

psect

:
:
:

1544
1545
1;_6,

!.
! External

:
:
:
:
3

1548
1549
1550
1551
1552
1553

1543

used

inplace

rams header information starting
.

Then for consistency

"code or $code” across all

code = aas$code;

Routine declared outside this module.

external routine
DECODE : novalue,

LOAD_FILE;

!<blf/page>

"ascode"”

modules.

SEQ 0101

VAX-11 Blies-16 v3-555
Page
2
SPIDERSUSERS: [NEALE.AZTEC JZRCHB3. 816:5
(2)

vector (8989, word],

‘DM file name ascii text
‘DM host buffer adrs
!0Overlay section starting adrs

—

<
m
(]

! Hardware question ascii string messages
!H/W question 1

for IP reg address

'H/W question 2 for interrupt vector address
'H/W question 3 for bus req level
'H/W question 4 for unit no. to format

!Unattended reformat software question
!Notice message
!Operator must be present in this mode
'Running in unattended mode

: Formatting print string
0

G0 G0 S8 G
G0 G

!Notifies unit being formatted
!Notifies format abort
1<CR><LF>
1Prints ten <CR><LF>

FMT2,
FMT3,

CRLF,

XCRLF,
0

! Init code error and informational messages

G0 S8 G0
S8 S
G0 G0 SF G0
S
6
B8 S5
9% S0 GF B8
G5 S5

datums declared outside of this module.

1DM_FNSEXT,

AZFMTR

PWR_M

ABO_MSG,

!Message to ask operator for date

2 Miscellaneous external data declarations
FLG_WRD : bitvector [16],

LLN H bt..
PTBL_PTR
: ref vector [4, word],
DATETXT : vector [12, bytel,

g Supervisor defined data declarations
gsunxr.

g Hardware P_Table storage declarations
RC25_ADDR : ref RC25 field (ISD_FIELD),
VEC_ADDR

word,

!Global

SEQ 0102
Page

SPIDERS$USERS: [NEALE.AZTEC)ZRCHB3. 816;5(3)

g DM load file from local media definitions

TO_MANY _UNITS,
GOOD_NUM_UNITS,
DATMSG,

VAX-11 Bliss-16 V3-555

extern.l

! External Declaration of

| N

NO_ADD_UNITS,

S5-Apr-1984 13:33:45
S-Apr-1984 13:31:29

1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577

G0 G0 S0

1 G¢ G0 G0 S0 B9 G

G0 G0 S0 B0 S

S¢S0

G0 G0 80 G

S0 O

90 @0 S0 S0

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

3EE-

ZRCHB3

flag word

!Storage for operator date

input

M8
ZRCHB3

REV B PATCH 00

:
:
:
:

ZRCHBO RC25 DISK FORMATTER

MODULE DECLARATIONS

S-Apr-1984
S-Apr-1984

1611
1612
1613
igig

BR_LEVEL : word,
UNIT_NO : word,
!
5 Software question response storage declarations

:
3

1616
1617

SW_UNATT
!

1620

ISD_STRUCT : blockvector [4, 2, word) field (ISD_FIELD);

ig{g

1621

: word,

Formatter data structures

13:33:45

13:31:29

SEQ 0103

VAX-11 Bliss-16 V3-555
Page
4
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB3.B16;5 (3)

N8
ZRCHB3
REV B PATCH 00
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632

ZRCHBO RC2S DISK FORMATTER
TYPE AND DESCRIPTION

ssbttl
e

S-Apr-1984 13:33:45

S-Apr-1984

13:31:29

'TYPE AND DESCRIPTION'

Two lines of text will be printed to the operator (in addition to
the
program name).
The first will come from the "DESCRIPT” macro at start
up time and will identify the diagnostics.
The second will come
from
the
"“DEVTYPE”
macro
at hardware dialogue time and will identify the
device under test.
The arugments of
both
macros
are
72
character
escii strings enclosed in parenthesises:

DESCRIPT (wasciz'RC2S DISK FORMATTER );

DEVTYP (sasciz'RC25 DISK DRIVE SUBSYSTEM');

VAX-11 Bliss-16 Vv3-555

SEQ 0104
Page

SPIDER
: [NEALE SUS
.AZTEC ]ZRCHB3.B1
ERS
6;:5 (4)

B9
ZRCHBS
REV B PATCH 00
1633
1634
1635
1636
1637
1638
1639

1640
1641
1642
1643
1644
1645
1646
1647

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:33:45

MARDWARE PARAMETER CODING

?cbttl

S-Apr-1984

13:31:29

VAX-11 Blies-16 v3-555

SPID:ERSU
[NEALE .AZTEC SERS
)ZRCHB3.B16;5 (S)

*HARDWARE PARAMETER CODING'

The

hardware parameter

coding section containe macros

that are used by the supervisor to build P-Tables.
The
macros are not executed as machine instructions but are
interpreted
by the supervisor as data structures.
The

macros allow the supervisor to establish communications
with the operator,

BGNHRD
;
GPRMA (MW _Q1_IP, #0'0', O, #0'16000', #0'177777',

YES,

GPRMA (MW _Q2_VECTOR, #o0'2', O, 4, %0'774', YES, 1);
GPRMD (MW_Q3 BR, wo'4', O, ®o'177777', O, 7, YES, 1);

1);

!Get RC2S Controller IP register

!1Get RC25 Interrupt Vector address
!Get RC25 Bus Request Priority

GPRMD (HW_Q4 UNIT, #0'6', D, #0'177777', O, sdecimal‘'253',
ENDHRD
;

YES,

1);

SEQ 0105
Pege

!Get unit number to format

.
3
ZRCHB

REV B8 PATCH 00

1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659

ZRCHBO RC25 DISK FORMATTER

SOF TWARE PARAMETER CODING SECTION

?-bttl

S-Apr-1984 13:33:45

S5S-Apr-1984 13:31:29

' SOF TWARE PARAMETER CODING SECTION'

The

software

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.

BGNST,
F

GPRML (SW_Q1_UNATT, O,
ENDSFT;

YES,

1);

VAX-11 Bliss-16 v3-555

SEOPw

SPIDERSUSERS: [NEALE .AZTEC )ZRCHB3.816;:5 (6)

D9
ZRCHB3
REV B PATCH 00
:
3
:
:

ZRCHBO RC25 DISK FORMATTER
REPORT CODING SECTION

{66?
i.bttl *REPORT CODING SECTION'
66
1662
' Tho
statistical
report
coding section contains the PRINTS macros

1663

! will

used to g.ncrotc statistical reports.

1664
1665

! macros
! tained

:
:
3
:
:
:

1667
1668
1669
1670
1671
16;%

!
!BGNRPT;
return;
!
! Report summary coding

1674

ENDRPT;

S-Apr-1984 13:33:45
S-Apr-1984 13:31:29

1666

000031
000034

is remote program driven

000037

103
040
123
106
115
124
000

062
104
113
117
101
105

.PSECT
L$DESC:: .ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

AASCODE,
/RC2/
/S D/
/ISK/
7 FO/
/RMA/
/TTE/
/R/<00>

122

103

062

.BLKB
LSOVTYP::

065
111

040
123

104
113

LASCII
.ASCII

111
040
102
123
115

126
123
123
124
000

105
125
131
105

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BLkB
LS$HRDLN:
:

/IVE/
/7 Su/
/BSv/
/STE/
/M/<00>
2

GP$1::

31
HW.Q1.IP
16000
-1
1031
HW.Q2.VECTOR
4
774
2032

040

000000C

000064
000066
000070
000072
000074
000076
000100
000102
000104

000031
000000G
016000
177777
001031
000000G
000004
000774
002032

000106
000110
000112
000114
000116

ZRCHB3 ZRCHBO RC2S DISK FORMATTER
/REV B 7/

122
065
111
040
122
124
122

000042
000045
000050
000053
000056
000060
000062

000000G
177777
000000

000007
003052

that

and 'ENDRPT'’

are
used
begining and ending directives for the codanY1
conin
the
ooct-on
However, an externally located DORPT cea
a
print
command
fron the operator, may be used to request
the
chCution of the report coding.

.TITLE
.IDENT
000000
000000
000003
000006
000011
000014
000017
000022
000024
000026

The 'BGNRPT'

VAX-11 Blies-16 v3-555
SEOP01°7 8
SPIDERSUSERS: [NEALE .AZTEC ]ZRCHB3. 816;5
7)

104

122

.ASCII

GP$2::

GP$3::

GPs4::

LWORD

.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WMORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

/RC2/

/S D/
/ISK/

7 DR/

<c<<LSN
-L $HRDLN>/2>-1>
DHRD

HW.Q3.BR
-1
O
7
3052

E9
ZRCHB3
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
REPORT CODING SECTION

S-Apr-1984 13:33:45

S-Apr-1984 13:31:29

000120
000122
000124
000126
000130

000000G
177777
000000
000375

000132

000000C

L$SFTLN::

000134
000136
000140
000142

000130
0000006
000001

GP$S::

VAX-11 Bliss-16 V3-555

SEO 0108

SPIDERSUSERS: [NEALE.AZTEC )ZRCHB3, 816;5(7)

g?S

L$NDHRD
::

1
<<<LSNDSFT-LSSFTLN>/2>-1>

%a?QI.WTY

LSNDSFT::
DECODE, LOAD.FILE,

AZFMTR,

OVSA

HW.Q1.IP, HW.Q2.VECTOR, HW.Q3.BR
HW.Q4
. UNIT, SW.Q1.UNATT, SW.Q2.NOTICE

SW.Q3.0PER,

SW.Q4.UNATT,

FMT2

FMT3, CRLF, XCRLF, NO.ADD.UNITS
PWR.MSG, ABO.MSG, TO.MANY.UNITS

GOOD.NUM
. UNITS, DATMSG, FLG.WRD
LUN, PTBL.PTR, DATETXT, LSUNIT

RC25.ADDR,

UNIT.NO,

000000

000064
000134

L$SOFT==

000207

LRPT:

LSHARD==

;: Routine Size:
; Maximum stack depth per

000000
000004
000006

004767
104425
000207

; Routine Size:
:

4 words,

Maximum stack depth per

BR.LEVEL

ISD.STRUCT

LSHRDLN+2
LSSFTLN.2

.SBTTL

'I;ICQPT REPORT CODING SECTION

RTS

Routine Base:
AASCODE
invocation:
0 words

LSRPT::

VEC.ADDR,

SW.UNATT,

+ 0144

.SBTTL

LSRPT REPORT CODING SECTION

JSR
TRAP
RTS

Routine Base:
AASCODE
invocation:
2 words

1659

1670

PC
+

0146

F9
ZRCHB3
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699

ssbttl ‘INITIALIZE SECTION'
BGNINIT;
D I I 1B VD I
D VD VD VD 1D 1D ID ID ID ID VD D VD I VD I VD IS ' ' D

1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731

S-Apr-1984 13:33:45

INITIALIZE SECTION

S-Apr-1984 13:31:29

VAX-11 Bliss-16 V3-555

The
initialization code is executed at the beginning of every
sub-pass
and
is primarily used for requesting P_Tables.
Any
o:z:r
set-up type functions may also be performed in the init
c

The
initialize code is executed under five conditions.
There
are supervisor event flags that are used to let the diagnostic

know under which condition the execution

event flags are read using the

is taking place.

"READEF” macro.

The
conditions
under which the
corrresponding event flags are:

init code

START COMMAND

The

is executed and the

EF .START

RESTART COMMAND

EF .RESTART

NEW PASS

EF .NEW

CONTINUE COMMAND
POWERDOWN/POWERUP

EF . CONTINUE
EF .PWR

Example of event flag use:
if READEF(EF.START)

START _FLAG = 1;

then

First
read
the
event flag
EF_PWR to see if
this
performed
due
to
a
system
power
fail.
If
it

is being
init code
report the
is
then

incident
to
the operator and abort the DM machine and further execution
of this program.

if READEF
then
in

(EF_PWR)

!Is the PWR event flag set

PRINTB (PWR_MSG);
PRINTB (ABO_MSG);

!Report the incident and abort
!Power fail print message
!Aborting program message

DOCLN;

!Abort further program execution

WRT_RC25 (RCIP, ONES);

!Abort DM code execution

end;

!
! See if the DRS commands START or RESTART were used to start
! this formatting session.
If either of them were used then
s start the formatting session at logical unit zero.
;:.£READEF

(EF _START)) or (READEF

(EF _RESTART))

begin
’

Check the operator for triing to format

more than the defined

limit,

they

SE092:29 10

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHB3.B16;:5 (8)

!Did start of restart get us here

G9
1732

1733

1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788

ZRCHBO RC25 DISx FORMATTER

S-Apr-1984 13:33:45

INITIALIZE SECTION
E

are

then

report

VAX-11 Bliss-16 V3-555

S-Apr-1984 13:31:29

the

error

and die

if .LSUNIT gtru LSLIMIT
then
in
PRINTB (TO_MANY_UNITS);

!Is the

formatting limit exceeded

!Report the error
!Tell him/her the limit
!Go to cleanup and die

PRINTB (GOOD_NUM_UNITS);
%LN;
:

Test to see if this host code is to run in UNATTENDED REFORMT MODE.
If it is then ask the operator for the date.
If not then tell the

operator that an operator must be present during this formatting.
if .SW_UNATT
then

begin

Clear out the date text buffer before loading in date.
incr

from O to 11 do

DATETXT [.i) = ZEROS;

GMANID (DATMSG,

DATETXT,

PRINTB (SW_Q2 NOTICE);

A, #o'177777', 8,

!Get date from operator

'Prmt notice nuor

mNTB (SW_Q4 _UNATT);

else

10, NO);

'Report running in

ATTENDED mode

.
"n

PRINTB (SW_Q2_NOTICE);
PRINTB (SW_Q3_OPER);
end;

!Print notice message
!Tell operator he/she must be present

Everything

looks

good

so far, move

hardware question responses and save

LUN =
do

-1;

begin
LUN =
if

on and

them.

get

!Start

_LUN +

.LUN gequ

1;
.LSUNIT

the

formatting at

!Up pointer to next
then DOCLN;

end
until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO;

!End host code

logical unit 0

logical unit

to GPHARD

if no logical units

”
'Repeat GPHARD's until P_Table adrs returned

E Get the P_Table parameters for this unit and go format

RC25_ADDR = PTBL_PTR (wrd0]);

SEQ

QP
~

SPIDERSUSERS: [NEALE.AZTEC JZRCHB3. 816;5(8)

2
REV 8 PATCH 00

it.

!Load up the controllers base addres

H9
ZRCHB3

REV B PATCH 00
:

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:33:45

INITIALIZE SECTION

S-Apr-1984 13:31:29

1789

VEC_ADDR =

1791
{;gg

BR_LEVEL = .PTBL_PTR [wrd2);
UNIT_NO = .PTBL_PTR [(wrd3);

‘79‘

{;:;

! bit must be defined for the type machine this formatter

1799

{%g

:
:
:

3
:
:

:
:
:

H
3
:

1730

1810
1811
1812

;

1815

%gfi
{:{_6,

:
:

H
:
:

;

3
:

if Wbliss (blisslé)
then
.

else

:
:
:

! Before leaving the
init code section we must first do some house keeping
! left behind from the ISD_STRUCT preset declaration.
The adapter purge interrupt

1800
1801

1807
{%

!
:
!

H
!
:

1821

¢--

,word]

is returned.

host code.

Block

if LOAD_FILE

(AZFMTR,

zero of the

the

DM_FNSEXT,

DM_SIZE)

.sav

file

will

then DECODE

thrown out.

();

1823
1824
%&

H
! Now celculate the overlay sections sterting address and store the result
: in global location 'OVSA’ for future reference.

1827

! This tekes the DM buffer starting adrs and adds to it the number of bytes

1828
{:233

1831

! in the (initisl load + remote progream header size’) resulting in the first
: adrs of the overlay section.

OVSA = AZFMTR + (.AZFMTR [WRDO));

{gg;

!Purging for VAX-11

an error code

?."

3
3
:

ISD_STRUCT (BLK1, WRD1, S2W_PI) = ONE;

! The DM code will only be read in during start! or restarts of the

1835

!No purging for PDP-11

;
3

ISD_STRUCT [BLK1, WRD1, S2W_PI) = ZERO

e
! Now load in the RC2S formatter DM code from the local boot device
! into the blenk buffer allocated in azkel6.
Report
load error if

end

!Define compiler

!
!
!

1832

running under.

This commented code will load an external copy of the formatter from
the local loed media into azkel6 module space starting at AZFMTR : VECTOR [

Yoo

1818
{:ég

1822

v2.0

!Load up the controllers bus request
!Load up the unit number to format

1836

1839

1840
1843
1844
1845

iCelculate overley stert adrs

! The continue flag set will cause the current units formatting to be
sborted.

The next sequential

logicel unit will then be

formatted.

if READEF (EF _CONTINUE)
n

SEQ@ 0111

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHB3. 816;5(8)

{Load up the controllers vector address

ISD_STRUCT [BLKO, WRD1, S1W_VADR) = .VEC_ADDR/4;

1795
1796

1806

.PTBL_PTR [wrdl);

VAX-11 Bliss-16 v3-555

H
! End this Host code if this .lun is the the last logical unit to format.
! Else do another GPHARD macro to get the next logical unit to format.

B B0 G5 @0 B0 G0 B0 B0 S0 G5 @6 B0 G0 B8 B G0 G0 B0 B0 G0 G0 @6 S0 B G0 G0 G¢ S S5 G5 G5 5 G4 S5 G G0 S5 G0 B5 G S6 S5 Gs Bs G5 Gs Ge G5 S8 O

vV B PATCH 00

000010
000012

1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION

S-Apr-19684 13:33:45

VAX-11 Bliss-16 v3-555

S-Apr-1984 13:31:29

SEQ 0112
Page

SPIDER
: [NEALE
SUS
.AZTEC JZRCHB3.8B1
ERS
6 S (8)

PRINTB (FMTS, .LUN, .UNIT_NO);
WRT_RC25 (RCIP, ONES);

!Report this luns format was aborted
!Abort this current units formatting

if (L.LUN ¢«
then
in
PRINTB

!Report no more unit to format

DOCLN;

1) geaqu

.LSUNIT

(NO_ADD_UNITS);

end;

The new pess event fl
set means that all logical units have
been formatted.
Therefore end thi s host code and return to DS>.
i READEF

(EF _NEW)

Repeat doi

have been

then DOCLN;

!New pass means all units formatted

GPHARDS until @ non-zero value

is returned or all

logicael

'G‘&'MO'M. End this host code if all logical units have beenunits
formatted.

LUN =
if

_LUN

.LUN gequ

!Up pointer to next

.LSUNIT

!End the host

then DOCLN;

if all

logical unit
logical units GPHARD'
¢d

end

until (GPHARD (.LUN, PTBL_PTR)) neau ZERO;

'Repeat until a P_table adrs

is returned

E Get the P_Table parameters for thi s unit and go format

RC25_ADDR =

.PTBL_PTR [wrd0);

VEC_ADDR = .PTBL_PTR [wrdl);

ISD_STRUCT [BLKO, WRD1, S1W_VADR)
BR_LEVEL = .PTBL PTR [wrd2]);

gzst_no =

PTBL_PTR [wrd3);

it.

‘Load up the controllers base addres
!Load up the controllers vector aodress

.VEC _ADDR/4;
'v2.0
!Load up the controllers bus reguest
!Load up the unit number to format

1890
1891
1892
1893
1894
1895

004167
012700
104447
103023

Tell the operastor which RC25 controller

is being

PRINTB (XCRLF);
PRINTB (FMT2,

ENDINIT;

000000G
000034

!Space between each formatting pass

.PTBL_PTR [WRDO));

LINIT:

initialized this pass.

.SBTTL

JSR
MOV
TRAP

BHIS

LINIT

INITIALIZE

R1,$SAVE2

034 ,RO

SECTION
]

lo74
171}

J9
ZRCHB3
REV B PATCH 00
012746
012746
010600
104414
012716
012746

010600
104414
012700

010077
104444
062706
012700
104447
103404
012700
104447
103167
026727
101417
012746
012746
010600
104414

012716
012746
010600
104414
104444
062706
032767
001434

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION

S-Apr-1984
S-Apr-1984

SP,s

SP.RO

SP,»

#ABO.MSG,(SP)
o1, -(SP)

177777

14
.'loao

22.8RC2S.ADDR

000000G
000006
000040

1$:

1715

M
. REG
+« ,RCS

6,SP

1716

1713
1726

#40,R0O
47

s
#37,RO

000037
000000G 000020

2s:

000000G
000001

47
93

LSUNIT, 020
33
@TO.MANY .UNITS, -(SP)
SP,.RO
14
€GO0D .NUM UNITS,(SP)

000000G
000001

01, -(SP)

000013

1714

SP,RO
14

000000G
000001

000000G

SEQ 0113
)
VAX-11 Bliss-16 v3-555
14
SPIDERSUSERS: [NEALE.AZTEC)ZRCHB3.B16;5 (8)

OPUWR
. MSG, -(SP)

000000G
000001

000006
000001

13:33:45
13:31:29

1735

1738
SP,»

1739
SP,s

000000G

3%:
4as:

06,5P
@1,SW.UNATT
54
RO

DATETXT(RO)

RO
RO, 013
4%
43
406

1737
1749
I
o(I)

1756

1757

1756

I,»

1759

DATETXT

000001

@SW.Q2.NOTICE,
-(SP)

@1, -(SP)
SP,RO
14

1760

SP,s

OSW.Q4 .UNATT,(SP)

e1,-(SP)

1761

SP,.RO
14
6%

SP,s

SP,RO

SP,»

@SW.Q2.NOTICE,
-(SP)
e1,-(SP)

1749
1765

IK9
ZRCHB3
REV B PATCH 00
000262
000264
000270
000274
000276

104414
012716
012746
010600
104414

112767
105267

005000
156700
020067

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION
000090G
000001

000377
000000G
000000G

6
7

S-Apr-1984 13:33:45
S-Apr-1984 13:31:29

VAX-11 Bliss-16 V3-555

SEQ 0114
Page
15

SPIDER$USERS: [NEALE.AZTEC)ZRCHB3. 81635(8)

14
oSW.Q3.0PER,(SP)
#1,-(SP)
SP,RO
14

1766

1774
1778
1780

LUN,RO

103401

104444
005000
156700
104442
010067
001760
010001

1783
4

RO,PTBL.PTR
74
RO,R1

011167
016167
016716

012746
004767
010002
042702
142767
050267
016167
016167
142767
016767
062767
022626
000523
012700
104447
103040
016746
005046
116716
012746
012746
010600
104414
012700
010077
005000
156700
005200
020067
103410
012716
012746
010600
104414
104444
005726

1788

(R1),RC25.ADDR
2(R1),VEC.ADDR
VEC.ADDR,(SP)

1789
1790|

PC,BLS$DIV
RO,R2
€177600,R2
€177,ISD.STRUCT+2
R2,ISD.STRUCT+2
4(R1),BR.LEVEL

1791

6(R1),UNIT.NO

1792
1800
1831

€1,ISD.STRUCT+6

AZFMTR,0VSA

QAZFMTR,0OVSA

(SP)+,(SP)e«

000036

9s:

1728
'
1726
|
1840

14$
236,RO
47
11$
UNIT.NO, -(SP)

1847 |

-(SP)
LUN,(SP)

OFMT3, -(SP)

177777

000000G
000000G
0000006
000000G
000001

SP,RO

RO,3RC25.ADDR
RO
LUN,RO
RO

SP,»

:+ »,RC$M.REG
RCSM_REG,»

1848
1850

ggiL‘UNIT

1853

ONO.ADD.UNITS,(SP)

SP,RO

SP,»
1852

L9
ZRCHB3

REV B PATCH 00

000564
000570
000574
000576
000602

062706
012700
104447
103001
104444
105267

S-Apr-1984 13:33:45
S-Apr-1984 13:31:29

ZRCHBO RC25 DISK FORMATTER
INITIALIZE SECTION

VAX-11 Bliss-16 V3-555

SEQ 0115
Page

SPIDER$USERS: [NEALE.AZTEC)ZRCHBS3. 816:5(8)

000010
000035

10¢:
118:

1842
1864

000000G

12%:

1873
1875

13$:

1878

000000G
000000G

RO,PTBL.PTR
12¢
RO,R1

(R1),RC25.ADDR
2(R1),VEC.ADDR
VEC.ADDR.-(SP)

PTBL.PTR,»

1884
1885

04, -(SP)

PC.BLSDIV
RO,R2
0177600,R2
0177, ISD.STRUCT+2
R2.ISD.STRUCT02
4(R1),BR.LEVEL

000672
000674
000700
000706
000712
000720
000726
000732
000736
000740
000742
000746
000752
000756
000760
000762
000766
;

SP,.RO
14
SPTBL.PTR,(SP)

OFMT2, -(SP)
02, -(SP)
SP,RO
14
#12,SP
PC

000012

Routine Size:

|
1886
|
1887
1893

6(R1),UNIT.NO
@XCRLF,(SP)

14%:

Rout ine Base:
AASCODE
252 words,
invocation:
10 words

; Maximum stack depth per

1883

SP,»

1894
SP,»

1674|

+ 0156

000000
000004

“N0006

004767
104411
000207

outine Size:

wimum stack

177008
e

4 words,
depth per

.SBTTL

LSINIT INITIALIZE SECTION

TRAP

LSINIT::JSR

PC,LINIT

RTS

Routine Base:
AASCODE
invocation:
2 words

1146

1894

ZRCHB3

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:33:45

REV B PATCH 00 AUTODROP SECTION
:

{ggg

:
:

1898
1899

:
3
:
:
:
:

000000
:

! Thc. code is executed immediately after the ‘nitialize code if
! the "ADR"” flag was set.
The unit(s) under test are checked to

! m
if they
will
respond.
! dropped from testing.
!BGNAUTO;
return;
ENDAUTO;

000207

LAUTO:

000006

004767
104461

Page
- 17

SPIDERS$USERS: [NEALE.AZTEC)ZRCHB3. 816:5(9)

1 word,

Maximum stack depth per

000000
000004

SEQ 0116

Mttl *AUTODROP SECTION'

1900
1901
1902
1903
1904
1905

: Routine Size:

S5-Apr-1984 13:31:29

VAX-11 Bliss-16 V3-555

177772

000207

: Routine Size:
4 words,
; Maximum stack depth per

Routine Base:

invocation:

O words

Those that don't are

.SBTTL

immediately

LAUTO AUTODROP SECTION

RTS

AASCODE + 1156

.SBTTL
L$AUTO: : JSR
TRAP

L$AUTO AUTODROP SECTION
PC,LAUTO
61

RTS

Routine Base:
AASCODE
invocation:
2 words

1160

1895

’

1904

‘

N9
ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:33:45

CLEANUP CODING SECTION

?cbttl

ZRCHB3
REV B PATCH 00

S-Apr-1984 13:31:29

VAX-11 Bliss-16 v3-555

SEQ 0117
Page
18

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB3.B16;:5 (10)

*CLEANUP CODING SECTION'

! Cleanup coding is assembled with the diagnostic program, utilizing in! itiating
(BGNCLN)
and ending (ENDCLN) directives.
The coding can be
! used by either the diagnostic program or the supervisor to affect
the
s return of a test device
{o a static state.

§ The clean-up code is invoked in three different ways:

At end of every

Operator tC

sub-pass

B. Issuance of DO&N macro

éGNCLN;

! Before initing the RC25 controller check first to make sure that
that this

is not a non-existant register.

1926

1927

000000
000006
000010
000014
000020

if not

.FLG_WRD [NON_EXIST_REG)

ENDCLN;

032767
001004
012700
010077
000207

000002

004767

000004
000006

104412
000207

: Routine Size:

.SBTTL

000000G

!Abort DM code execution

177777

MOV
1$:
Routine Base:

invocation:

177752

4 words,
: Maximum stack depth per

LCLEAN CLEANUP CODING SECTION

LCLEAN: g'IeT

000000G

9 words,
Maximum stack depth per

000000

ONES);

return;

1928

;: Routine Size:
:

then WRT_RC25 (RCIP,

O words

MOV

2 words

;

1905 |

1927

JSR

PC,.LCLEAN

RTS

AASCODE

1925 |
*,RCSM_REG

; RCSM_REG,»

1170

LSCLEAN CLEANUP CODING SECTION

TRAP

Routine Base:

#-1,R0O

.SBTTL

LSCLEAN: :

invocation:

RO,8RC25.ADDR

RTS

AASCODE

:%.FLG.WD

1212

B10
ZRCHB3

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

DROP UNIT SECTION

?-bttl

:
H
'

B
:

:
H
:

000000

{:238
1931

1932
1933
1936

{gzg

The drop code

invoked by

The effect of a DODU
in & hardware

test.

004767
104453
000207

a DODU macro or

a drop commend,

is the same whether executed
It

! quent GPHARD'S for that
This

end

con-

effect

in the

init code

invokes the drop unit coding and causes subse-

logical unit to be

lasts only

for

the

returned

duration

“NOT

COMPLETE”.

the current command.

BGNDU;
return;
ENDDV;

LOV:

1 word,

: Maximum stack depth per

000000
000004
000006

Page

SPIDERSU
[NEALE .AZTEC
SERS
)JZRCHB3.B16;
:
5 (11)

‘DROP UNIT SECTION'

000207

: Routine Size:

13:31:29

SEQ 0118

! teins any code that needs to be executed in conjunction with the drop! ping of @ unit from the test cycle.
No coding
is
required
in
this

1941
1942
1943

S-Apr-1984

VAX-11 Blies-16 v3-555

1937

1938

S-Apr-1984 13:33:45

177772

: Routine Size:
4 words,
: Maximum stack depth per

Routine Base:

invocation:

O words

L$DU::

.SBTTL

LDU DROP UNIT SECTION

RTS

AASCODE «

.SBTTL

Routine Base:
AASCODE
invocation:
2 words

PC.LOV
S3
PC

1928

1942

1222

L3SDU DROP UNIT SECTION

JSR
TRAP
RTS

1224

C10
ZRCHB3

REV B PATCH 00
:

1946
1947
{:g

! The add code is invoked by the ADD command, and contains any code that
! needs
to be
executed
in conjunction with adding a unit back to the
: test cycle.
No coding is required in this section.

1950
1951
1952
1953
{g

! Units may be added to the test sequence “1; through the use of opera! tor
ADD
commend.
Each unit must have a
P-TABLE in memory due to en
! earlier hardware dialogue (i.e.
the
unit
was
previously
dropped).
! The
ADD code must be delimited by BGNAU, ENDAU.
There is no particu: lar coding required in the add code to ceuse the add to be
effective:

{gssg

000000

The section

BGNAU;

1960

ENDAU;

000207

004767
104452
000207

1961
1962
1963

for programmer housekeeping.

return;

.SBTTL

LAV:

Routine Base:

.SBTTL

L$AU::

invocation:

LAU ADD UNIT SECTION

RTS

Routine Base:
AASCODE
invocation:
O words

17 7772

: Routine Size:
4 words,
i Maximum stack depth per
3
3
H

is just

1958

1959

RTS

1959

AASCODE + 1236

eludom

0TS

external

PSECT

Psect Name

AASCODE

LSAU ADD UNIT SECTION

PC,LAV

references

.GLOBL

1234

JSR

TRAP

2 words

1943

end

0119
VAX-11 Bliss-16 v3-555
2
SPIDER:SUS
[NEALEERS
.AZTEC )ZRCHB3.816;5 (12)

*ADD UNIT SECTION

: Routine Size:
1 word,
i Maximum stack depth per

000000
000004
000006

S-Apr-1984 13:31:29

?fittl

‘

:
H
:
:
:

S-Apr-1984 13:33:45

ADD UNIT SECTION

}ag

3
:
:

ZRCHBO RC2S DISK FORMATTER

$SAVE2,

BLS$DIV

SUMMARY

Words

339

LIBRARY STATISTICS

Attributes

RO .,

LOL.

MEL,

CON

D10
ZRCHB3
REV B PATCH 00
T

:
3

:
:

ZRCHBO RC2S DISK FORMATTER
ADD UNIT

S-Apr-1984

File

SPIDERSUSERS:[NEALE.AZTEC)ZRCHBO.L16;2

Symbols

Tot.l

Loaded

398

COMMAND QUAL
IF IERS

BLISS /PDP11/LIST ZRCHB3.B16

: Size:
: Run Time:

3 Elmod Time:

: Memor

S-Apr-1984 13:33:45

SECTION

289 code ¢+ SO data words
00:18.7

02:34.9

222 pages

3 Cm:{ot-on Complete

13:31:29

--------

Blocks

Percent

Read

VAX-11 Blise-16 V3-555
SEOPOQO 21
SPIDERSUSERS: [NEALE .AZTEC ]JZRCHB3. 816:5(12)

ZRCHBA

ZRCHBO RC25 DISK FORMATTER

E1O

MODULE ZRCHB4 (TITLE

G0
G
G4

ENVIRONMENT (NOEIS)

)

S0
B8
S0

23-Sep-1983 14:13:18

VAX-11 Bliss-16 V3-555

*MODULE DECLARATIONS'

g Pretty Declarations

i(blfllouorcooc-koy>
library

'ZRCHBO'
;

Define RC25 formatter library

require

‘'BLSMAC.REQ’';

!Define Bliss Macro require file

G¢

The
psect named
"code or $codes” is rodof~ndod here
to be called "abscode”.
This is done to organize the
formatters
test
sections
into
a
seperate
psect.

!
!
!

*= ab$code;

Structure declarations used within this module.

psect
code

structure

1525
1526
1527
1528

©F

RC25
register
accessing structure. This
structure
allows
RC25 register .cccoo.ng

1530
1531
1532
1533

1534
1535
1536
1537
1538
1539
1540
1541
1542

to
be transportable between the PDP-11 and
VAX Diagnostic Supervisors.
This

also

defines an access algorithm for

VAX to allow field reference to MBA address
space
without
generating
machine checks.

RC2S (O, P,
begin

S, E]

loceal

RC$S_REG;

RC$S_REG =

RC$S_REG
end

<P,

!<blf/page>

S, E>;

.(RC25 + supvals0)<0, sbpval,

0>;

SEQ 0121
Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA . 816:2(1)

'ZRCHBO RC25 DISK FORMATTER'

IDENT = 'REV B PATCH 00’
ADDRESSING_MODE (RELATIVE)

BEGIN
?’bttl

S5-Apr-1984 13:44:04

F10

©F

B¢

ZRCHB4
REV B PATCH 00

1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555

1556
1557
1558
1559
1560
1561
1562

ZRCHBO RC25 DISK FORMATTER

MODULE DECLARATIONS

23-Sep-1983 14:13:18

External Routines declared outside this module.

external routine

GET_DUST_STATUS,
EX_SUP_PROG,
EX_LOC_PROG,
REC_DATA,
SEND_DATA,
SET_CNTLR_CHAR,
ON_LINE
_LINE,
DUPSI_SERVICE : INT_LNKSTYP novalue,
INTSI_SERVICE : INT_LNKS$TYP novalue,
INIT_COM_AREA,
BOOT_RC2S,
DECODE : novalue;
'<blf/page>

S-Apr-1984 13:44:04

VAX-11 Bliss-16 V3-555

SEQ_O122
P

SPIDEROUSERS:(NEALE.AZTEC]ZRCH84.81635°:2)

G10
ZRCHB4

REV B PATCH 00

1563

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:44:04

MODULE DECLARATIONS

23-Sep-1983 14:13:18

VAX-11 Bliss-16 V3-555

SPIDFRS$USERS: [NEALE.AZTEC JZRCHBA 816;2
(3)

! External Declaration of

datums declared outside of this module.

extev:nol

' Micellanious external dates declarations
.

SW_UNATT,

DATETXT
LUN

!Unattended reformat mode flag

vector [12, bytel,

!Stores operator date

word,

UNIT_NO : word,

FLG_WRD

bitvector

!Physical unit number storage

iGlobel

fleg word

ISD_STRUCT : blockvector (4, 2, word) field (ISD FIELD).

PTBL_PTR : ref vector (4,
NEX_FLAG
: nord.
NXT_CRN
: byte

input

'Loo-c.l unit number storage

(16],

nordl

volatile,

!Init sequence data

'RCZS roguotcr existence flag
command ref number

RET ENOAD ref block [RB_SIZE + 2, word) fuold (ENV_FIELD),

FCT_BUF : block (256, word],
SND_BUF

vector [SNDB_SIZE, word],

'Extcmol FCT sector load buffer

!DUP send cmd text buffer

REC_BUF : block [RECB_SIZE, word) 'uold (RECB _FIELD),

.
NSD_SLOT
NRD_SLOT
VEC_ADDR

:
:
:

PID_SAVE

word,
word,
word,
RET_STATUS : word,

RCZS .ADDR

vector

!OUP receive

word],

ref RC2S f.cld (ISO _FIELD),

!Stores return status of called routines

!Saves process

indicator word

'RC25 reference structure

Init sequence code error

800T_FAILURE,

PROTO_VIOLATION,

PORT _INIT_ERR,

ACTIVE _DUP_SERVER,
INACTIVE .DUP_SERVER,

§ External FCT request message during RESTORE formatting mode
FCY _REQ_MSG,

g Printing format strings and ascii text strings

DATMSG,
CRLF,

FMT1,
FMTS,
FMT6,
FMT7;

cmd text buffer

Pointer to DM sent ascii text
!Stores next send ring slot to load cmd into
!Stores next receive slot to expect response
!Stores controllers vector address

(2,

SEQ 0123
Page

H10

B0 B0 S0 B0 S5 S5 B0 S0 B0 S0

B0 B0 B0 G

B8 G0 90 B0 B0 B0 B

B0 B0 S5 B0 B0 S0 B0 B0 S0 90 B0 S5 G0

B0 S

G0 B

G0 G0 B0 90 SF 96

S0 @

ZRCHBA
REV B PATCH 00

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
1657
1658
1659
1660
1661
1662
1663

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

RC25 REGISTER EXISTENCE TEST

SE% 0124
VAX-11 Bliss-16 v3-555
Page
4
SPIOEROUSé;S=(NEALE .AZTEC)ZRCHBA .B16;2 (4)

13:44:04

23-Sep-1983 14:13:18

ssbtt]l 'RC25 REGISTER EXISTENCE
BGNTST;

TEST'

Yoo

! Functional Description :
!
This section will be the first code to be executed during s formatting
!
!
s

session and will ensure that the object drive to format actuaslly does
exist.
The format for the unit will
be aborted if the drive fails to
respond to this initial test.

' Implicit Inputs :
:

none

Implicit Outputs

Completion Codes

none

]

!
:

none

]

Side Effects
none

’..

local
EOF ,
DUMMY
TEMP

'EOF indicator
!Dummy verisble for register ext

volatile,
volatile,

RETRIES;

!Store number of retries to perform

FLG_WRD [NON_EXIST_REG) = ZERO;
NEX_FLAG = ZEROS;
SETVEC (4, INTSI_SERVICE, PRIO7);
TEMP

TEMP =

_PTBL_PTR

_TEMP

+ 2;

[WRDO);

!Make

this controllers

!Read the sa register

!Is an nex

= ZEROS;

!1See

_NEX_FLAG eql ONES

then

.PTBL_PTR

;tlsgc't‘flo [NON_EXIST REG)
H

[WRDO));

= ONE;

inst.

it will trap

‘correctly.

in
PRINTB (FMT6,

if there

there will be

A single opperand

!So that

CLRVEC (4);

end;

IP address

into the SA register address

!This is so that

end;

!Initislly clear nonexistant register flag
!Clear out nex flag
1Set up for an nex trep
!Get

. TEMP

then

test

f we got an nex

!Address not there
Print error message

!Set flag indicating non-existant reg

I10
ZRCHBA

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:44:04

REV B PATCH 00 INITIALIZE RC2S CONTROLLER
:
‘

:
:
:

VAX-11 Bliss-16 Vv3-555

23-Sep-1983 14:13:18

'cbttl *INITIALIZE RC25 CONTROLLER’

1666
1667

! tho next thing to be done is to boot the RC25 controller.
We will
allow
! a few retries f not successful after the first boot
before
we
concidered

tho Controller dead.

:
:
:

1670
1671
1672

! But
before
we
do
the boot sequence the processors priority and interrupt
! vector sddress must first
be
loaded.
Duran’
the
init
sequence the Init
! sequence interrupt service routine will just
flag
any interrupts and ignore

%:};;

:
:
3
B

:
3
:

1673 ! them since interrupts are
1676

1677
1678
{:;3
1681
1682
{&3

1685

!
!
:

The following priorities will be assi

1. Processor will
run ot pnorcty zero.
2. The RC25 runs at priority
5
default.
3. The DUP interrupt routine m 1l run at priority 7.

{g:g

;

1688 l'tET!XES = -1;

:
:
3
3
:
:
3

1689
1690
1691
1692
1693
1694
{gzz

disabled during -mt sequence. Later the DUP

interrupt service routine will be load and do the DUP communications protocol.

SETPRI (PRIOO);
CLRVEC (.VEC_ADDR);
SETVEC (.VEC_ADDR, INTSI_SERVICE, PRIO7);
: Retry

the RC25 booting until the return

!Set the processers priority
!Clear out the vector before setting
zSot the interrupt service priority

is true or the retry

limit

is reached.

‘Reset the retry counter

beY:n
RET_STATUS = BOOT_RC2S ();
RETRIES = .RETRIES + 1;
end
until (.RET_STATUS) or (.RETRIES eqlu ONE);

!Boot the RC25 controller
'Up the retry count
'‘Repeat

the Boot

until done

1697

1700

1704

:
3

3
H
:
3
:
H
3

3
:
‘

H
:
3
3
3
3

{gg
1701

: Report booting error
if not

if the return status

never

came

back as true.

.RET_STATUS

‘Did the Controller boot

!Report

::YNTO (BOOT _FAILURE);

¢!.
! Now
that
the RC25 controller is booted, check to make sure that the controller
: hes done its part of the DUP
protocol
by clearing
out the port communications area.

1712
{;{2

! While we're there set up the communication area
: between the remote and host program.

1720

!Abort

a boot error

1705
1706
1707
1708
1709
{;ig

1715
1716
1717
1718
1719

DOCLN;
end;

the program

for the up and coming communications

if INIT_COM_AREA ()
then
in
PRINTB (PROTO_VIOLATION);

PRINTB (PORT_INIT_ERR);

‘Was the com area cleared out as expected
Com area not

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA . 816;2(s)

}gg;

{&g

SEQ 0125

inited so error and abort

J10
ZRCHBA

B¢

G¢

©s

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

INITIALIZE RC25 CONTROLLER

1731
1732
1733

1734
1735

23-Sep-1983 14:13:18

Before writing the go to the IP register load the DUP interrupt service adrs
into the RC25 vector address for the up and
the host and controller.

CLRVEC(.VEC_ADDR);
SETVEC (.VEC_ADDR, DUPS$I_SERVICE, PRIO7);
e

coming

communications

between

!Clear out the vector before starting
!Set the interrupt service priority

! Start the controllers functional micro code by writing the SA Register
! with step four write data with the go bit set.

QRT_RCZS (RCSA, (.ISD_STRUCT [BLK3, ISWRT, ISW_ALL] or so’'000001'));

SEQ 0126

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA . 816;2(S)

end;

1726

1730

VAX-11 Bliss-16 V3-555

DOCLN;

1721
1722
1723
1724
1725

1727
1728
1729

S-Apr-1984 13:44:04

‘Let the controller go

K10
ZRCHBA
REV B PATCH 00
1736

1737

1738
1739
1740
1741
1742

ZRCHBO RC25 DISK FORMATTER

BRING RC25 CONTROLLER ONLINE
Functional Description

This section will set the RC25 controllers characteristics and place
the unit on-line.

Implicit Inputs

none

Implicit Outputs

none

Completion Codes :
none

Side Effects :
none

Set the controller characteristics.
Default values will be taken in all cases
except for the host time out value which will be changed to 'wait for ever'.

1754
1755
1756

1758

if SET_CNTLR_CHAR () then DECODE ();

1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

1759

1Call decode

if not successful

! Do @ unit on line cmd which will spin up the device and load the heads.
The
! unit to be placed on line will be the last unit number received from the 'gphard’
E macro
P RINTB

in the

(FMTS,

init code.

.LUN,

.UNIT_NO);

if ON_LINE () then DECODE ();

SEQ

0127

Q 1

SPIDER$USERS: [NEALE.AZTEC)JZRCHBA. 816:2(6)

R
R

1744
1745
1746
1747
1748
1749
1750
1751

1757

23-Sep-1983 14:13:18

VAX-11 Bliss-16 V3-555

ssbttl 'BRING RC25 CONTROLLER ONLINE'

1743

1752
1753

S-Apr-1984 13:44:04

51’011 operator which units coming online

'Call decode if not successful

L10O
ZRCHBA

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK
:

S-Apr-1984 13:44:04

23-Sep-1983 14:13:18

{;;2

wsbttl 'DOWN LINE LOAD FORMATTER AND MONITOR TASK'

3
:
3
3
:

1772
1773

1774
1775
1776

Yoo
! Functional Description :
!
This section will down line-load the RC25 formatter and monitor
!
* the formatting task.
R
!
’

1778

:
:
:
3

1780
1781
1782
1783

!
none
! Completion Codes :
!
none
! Side Effects :

1777

:
:
3
H
:
3
:
:
:
:

:
:
:

1779

1784

1786
1787
1788
1789
1790
1791
1792
1793
1794
{;32

1797
{;gg
1800
1801
1802
1803
1804
1805

H
3
3
:
:

1807
1808
1809
1810
{g{%

1806

H
3

1813
ig{;

H
3
3
3
H
H
H
H

1816
1817
1818
1819
1820
1821
1822
1823

H
H
H

Implicit

1824
1825

Inputs

none

Implicit Outputs

! See if the Dup server in the RC25 Controller is in an
! idle state.
To do this first get the dust status and
! then look at the flag field bit 3 for a :
!
0 = idle
!
!

1 = active

if GET_DUST_STATUS () then DECODE ();
!
5 Look

in the flag field bit 3 to see

1Call Decode
if the server

if connection error

is active.

if .RET_ENSAD (FLG_B3]
then
begin
PRINTB (ACTIVE_DUP_SERVER);
DOCLN;

'If the server

is active exit and reboot

end;

!
!
!
3

The
server
is
not
active
so
down
line load the formatter
and start its execution by issuing a "Execute supplied program”.
Call
the
decode
routine
if
a
connection error is detected.

if EX_SUP_PROG () then DECODE ();

!
!
!
!
!
!
!
!

1Cal)l decode

if connection error

Get the dust status to see if the server is in an active
state.
An
active state is what we want so error if the
server is in an idle state.

If
in the active state then save the progress
in "Pid_save"” for future reference.

if GET_DUST_STATUS () then DECODE ();

indicator

1Call decode

SEQ 0128

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS. 816;2(7

none

1785 “1--.

3
3
H
:
3
:

VAX-11 Bliss-16 V3-555

if connection error

M10
ZRCHBA

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:44:04

REV B PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK
3

‘

1827

{ggg

1830

:
3

1832
1833

:
:
:
:
:

1835
1836
1837
1838
1839

:
:
:

:
3
‘

1831

E Look at the flag field bit 3 to see if the server is active.
-

if not (.RET_ENSAD (FLG_B3))

then

1834

1840

DOCLN;
end

in
PID_SAVE [0) = .RET_ENSAD (PLO_IND]);
PID_SAVE [1) = .RET_ENSAD (PHI_IND);

!«

1847
ig:g

! establish the communications between
this host program and
E the remote formatter program running in the RC25 controller.

1844
1845
1846

end;

! The Dup server is in the active state running the formatter
! program.
This DO LOOP will
loop on the DUP sub-protocol
! doing the "send and receive” data commands.
These commands
.

RETRIES = ZERO;

3
:
:
3
H
:

1852
1853
1854
1855
1856
%gg;

while TRUE do
begin

1859

%ggg

1862

:
3
:
;
3
:

1864
1865
1866
1867
1868
{:?g

:
3

;

H
H

‘

1863

1871
{g;g

1874
%:;2

1877

:
;

1880
1881

H
;
H

!Save progress indicator lo word
!Save progress indicator hi word

1841
1842
1843

iggg

'Reboot if server is idle

PRINTB (INACTIVE_DUP_SERVER);
else

1878
1879
1882

1883

1Clear out the retry flag

e
! Do a 'Receive_data'

for

Question

Default question

!
:

!
'
!
!
!
5
:

!
s
!

!
s
o

!
!

message.

command which poll's the remote program
The
returned message
can
either be a:

Where the ascii

Where

the

text

is a prompt for

information.

default question message is identical

to
the
question message exept that a null (zero
length) send data is taken to be a default answer
to the question.

Information
Where the

Termination
Where the ascii

S. Fatal Error
Where
the
6.

Special

This type
respond.

ascii

text

ascii

is an

informative message.

is an normal termination message.

text

is a fatal error message.

is used when only a host program could

if REC_DATA () then DECODE ();

SEQ 0129

Page

SPIDERS$USERS: [NEALE.AZTEC)ZRCHBA. 816;2(7)

23-Sep-1983 14:13:18

VAX-11 Bliss-16 V3-555

1Call decode if connection error

N10O
ZRCHBA

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

:
:

1884
1885

!
! From

:
:

1889
1890

! by the remote program.
!

{ggg

$CLRSBUF ;

1894
1895

selectoneu .REC_BUF [MSG_TYP) of
set

:
:
:
:

3
:
3
:

:
:
H
:
3
3

1886
1887
1888
1891

1896
1897

1898
1899
1900
1901
1902

{?’gz
1905

:
:

1906
1907

1909

1908

:
3
3
:
:
3
:
;

1910
1911
1912
1913
1914
1915
1916
1917

1920

[1)

!Question message type

select

expression

(0]

!
!
!
!
!

.SW_UNATT

1928

1940

in unattended mode

.RETRIES

!Did DM not verify

the date the

last

ime

date and ask

the operator for the date again.

incr i from O to 11 do

{ggg

1939

!Is the host running

1929

1938

!1Select the requested question

! Clear out the date text buffer before loading in

‘

1937

action.

1925

appropriate

If in un-attended reformat mode then give to the DM the
date received from the init code else let the DM prompt
the operator for the date.

{gg?

1936

the

!Enter current date <MM-DD-YYYY>

begin

perform

selectoneu .REC_BUF [MSG_NUM] of
set

?.'

1932
1933
1934
1935

1924

s
3
H
3

!Select the appropriate action

begin
H
! Look
into the send/receive data buffer at the message
! number field and see what question the remote program
! is
wesking.
Use the
fields value
to
index
into the

look

!Clear out the send buffer area

DATETXT

(.i)

GMANID (DATMSG,
end;
'

$FILLDATE;

RETRIES = ONE;

end

else

begin

= ZEROS;

DATETXT,

#0'177777',

SEQ 0130

Page

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHB4 .B16;2 (7)

:
H

23-Sep-1983 14:13:18

the first word in the send/receive data buffer,

1921

VAX-11 Bliss-16 V3-555

! to see what type message the remote program has sent to
! the
Host program.
Use this
message type number to index
! into the select expression to perform the requested action

S-Apr-1984 13:44:04

10,

NO);

!Get date from operator

'Fill the send buffer with the date

!Set the retry flag

GHXNID (MSGADR, SND _BUF, A, ®o'177777', 8, 10, NO);

B1l1
ZRCHBA

B0 G0 G0 G0 B0 B0 G0 S0 G0 B8 G0 B0 B0 G0 G0

S0 90 S0 G0 S0 S5 B0 G0 G0 G0

G0 S0 S0 B0 S0 S0 G0

G0 G0 G0 G0 V6 G0 G0

G0 S0

G0 B0 G

G0 G

B0 S¢ G

B¢ Se S0 O

REV B PATCH 00

1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973
1974
1975
1976
1977

ZRCHBO RC2S DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

S-Apr-1984 13:44:04

VAX-11 Blies-16 Vv3-555

23-Sep-1983 14:13:18

end;

PRINTB (CRLF);
if SEND_DATA ()

then DECODE

(),

end;

k7] @

!Enter & non-zero serial number

Pnl;gg Eggfpg?. SND BUF, A, #0'177777', 1, 64, NO);
if

SEND_DATA ()

then DECODE

(),

end;

(otherwise)

m_srnws = UMN_CODE;
"

DECODE ();

tes;

end;

!This message number is unknown

!Unknown message number error code

!Report error and die

end;

(2)

!Defoult Question

begin

selectoneu
set

.REC_BUF [MSG_NUM) of

!Enter unit number to format <0O>

begin
1

! If in un-attended reformat mode then give to the DM the
! unit number obtained from the hardwere P_Table else let
s

the DM prompt the operator

é"w.‘su_wn

!Is

_BUF =

_UNIT_NO;

:fi:NTB (FMT7,

else

for the unit

.UNIT_NO);

R ID (MSGADR,

SND BUF,

PRINTB
if

(CRLF);

SEND DATA

end;

()

then DECODE

to format.

@ host running in unattended mode

!Report which unit

();

#o'177777',

55092;21 11

SPIDE
: [NEALE
RSUSE
.AZTEC )ZRCHBARS
.B16;2 (7)

YES);

is being formatted

ZRCHBA

REV B PATCH 00

1998

DOWN LINE LOAD FORMATTER AND MONITOR

(4)

S-Apr-1984 13:44:04

VAX-11 Blies-16 v3-555

!{Use existing bad block

information <N>

23-Sep-1983

for

2006
2007

the

formatting mode

if .SW_UNATT
then
E"d-mf = gc'Y'

2011

else

2013
2014

to use

ID (MSGADR,

SND BUF, A, #o'177777',

PRINTB (CRLF);

2018

if SEND_DATA () then DECODE ();

2020

end;
:

in
NID (MSGADR,

SND BUF,

A, #0'177777',

2027

if SEND_DATA () then DECODE ();

2029

end;

3
&

PRINTB (CRLF);

2034
2035

YES);

!Is the host running in unattended mode

else

end

BUF = sc'N';

information

end;

ID (MSGADR, SND BUF, A, #0'177777',

2046

if SEND_DATA () then DECODE ();

2048

end;

2050

(otherwise) :

:z?:gmws = UMN_CODE;
DECODE ();

end;

if bad block

!Default not to continue

PRINTB (CRLF);

2054

if .SW_UNATT
then

2044

2053

Continue

2041
2042

2052

YES);

begin

2037
2039

1, 3,

!Use down-line load <N>

2025

(6]

this unit.

end;

for

!Default to do reformat mode

2016

2031
2032

Seangz 12

SPIDERSUSERS
: [NEAL E .AZTEC )ZRCHBA .B16;2 (7)

!Is the host running in unattended mode

2009

2022
2023
2024

14:13:18

! If in un-attended reformat mode then tell the DM to
! do a reformat mode else let the DM prompt the operator

TASK

1999
2000

ZRCHBO RC25 DISK FORMATTER

YES);

!This message number is unknown

!Unknown message number error code

‘Report error and die

inaccessable

<N>

ZRCHB4

REV B PATCH O0

2055
2056
2057
2058

2059
2060
2061

ZRCHBO RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR

(3] :

selectoneu .REC_BUF [MSG_NUM) of
set

2065

(0. 1, 2, 3, 4,5, 7, 9, 11, 14, 16) :
"N
PRINTB (FMT1,
end;

228;(13

(otherwise)

2072

DECODE ();
end;

[(4) :

(12,

.REC_BUF

13]

!Abort and normal

PRINTB (FMT1, MSGADR);
WRT_RC2S (RCIP, ONES);

2089

exitloop

2090

end;

2092

([otherwise) :

2094

ée“?-sutus = UMN_CODE;
"N

2095

DECODE ();

2096
2097

tes;

2099

2109
2110
2111

[MSG_NUM) of

2087
2088

2107

!Unknown message number error code

'Report error and die

!Termination message

selectoneu
set

2085

2105

is unknown

end;

2083

2104

!This message number

RET_STATUS = UMN_CODE;

tes;

!All possible information msg's

MSGADR);

end;

termination type

!Stop the remote program

!Return to init code

!This message number is unknown

!Unknown message number error code

'Report error and die

end;
[S)

:
begin

!Fatal error message

selectoneu .REC_BUF [MSG_NUM) of
set

(1 to 24.1

PRINTB (FMT1, MSGADR);
WRT _RC2S (RCIP, ONES);
DOCLN;

55092%23 13

SPID:ERSU
([NEALE .AZTEC)ZRCH
SERS
BA .B16;2 (7)

!Informational message

begin

2066
2067
2068
2069

2101
2102

VAX-11 Blies-16 Vv3-555

14:13:18

end;

2063
2064

2079

S-Apr-1984 13:44:04

23-Sep-1983

tes;

2062

2073
2074
2075
2076
2077
2078

TASK

!Error messages are from 1

to 24

!1Stop the remote program
IKill this formatter and return to

init code

E11
ZRCHBO RC25 DISK FORMATTER

ZRCHBA

@ B

B¢ G0 G0 B¢ G0 G5 G

S8 GF G0 G

VI V¢ G VI G

V6 Vo Vs Gs G G4 G¢ GF

P G¢ G0 G0 Cs G0 G0

¢ G0 G0 G0 G0 G0

P G0 G¢ GV GF G0 O G0 G0 S0 00 G0

v W

0 »

REV B PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK
2112
2113
2114
2115
2116
21.7
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2130
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168

S-Apr-1984 13:44:04

VAX-11 Bliss-16 Vv3-555

23-Sep-1983 14:13:18

SEO 0134

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB4. 816;2(7)

end;

(otherwise)

:E?_SIATUS = UMN_CODE;
n

DECODE ()3

tes;

end;

!This message number is unknown

!Unknown message number error code
!Report error and die

!Special message type

selectoneu .REC_BUF [MSG_NUM) of
set

(1)

'FCT sector request

If this is the first FCT sector regquest (sector 0) then ask

the operator for the external FCT file name and open the file.
The supervisor will error and return to DRS> monitor if the

requested file is not found on the local load media
if

.REC_BUF [MSG_TXT) eql FCT_SEC_O

then

ID (FCT_REQ_MSG,
2:§N (SND_BUF );

SND BUF, A, #0'177777',

10, NO);

Load into the FCT_BUF the next sequential 256 FCT sectcor words
incr FCT_WRD from FCT_BUF to FCT BUF

+ %o’ 776"

by %o'2'

gy = GETWORD (.FCT_WRD);
in

end;

Test to see

if the EOF

indicator was returned from the GETWORD macro

End of file

is reached when .EOF = O;

before 16 FCT sectors were read indicating an illegal FCT file format.

if ((.EOF eql ZERO) and ( .REC_BUF [MSG_TXT]
FCT_SEC_15)

then

begin

SND_BUF [0]

= ONES;

lss FCT_SEC_15)) or (.REC_BUF [MSG_TXT] gtr

!Indicate failure to get good FCT file

if SEND_DATA () then DECODE

(;

!Send failure to DM

F11
ZRCHBO RC2S DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

2169
2170
2171
2172
2173
cl74
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195

RET_STATUS = ILL_FCT;
DESOOE ()
end;

VAX-11 Bliss-16 V3-555

and send the

!Host will also report the failure
‘Error out and die

information back

to the remote program.

SND_BUF (0] = ZERO;

!Indicate success

if SEND_DATA () then DECODE

();

SND_BUF (1) = FCT_BUF;
SND_BUF [2) = ZERO;

Lo unibus adrs of FCT sector
'Hi unibus adrs of FCt sector
!Send reply back

to DM

E Close this External FCT file
if

.REC_BUF

if this

is FCT sector 15.

[MSG_TXT) eql FCT_SEC_15 then CLOSE;

end;

(otherwise]

és“?_srmus = UMN_CODE;
"n

DECODE ();

2196
2197
2198
2199
2200
2201
2202

tes;

end;

(otherwise)

g.E?_STATUS = UMT_CODE;
"n

DECODE ();

tes;

end;

!This message number

seopoxss 15

SPIDERSUSERS: [NEALE.AZTEC ]JZRCHBA . 816:2
(7)

@0
G0
B0
WE

S-Apr-1984 13:44:04

23-Sep-1983 14:13:18

! Return to the remote program a success indicator and the
! unibus lo and hi adrs of where this FCT sector can be found

G0 B0

G0 G0 G0

G0 G0

B¢

S0 O

ZRCHBA
REV B PATCH 00

is unknown

!Unknown message number error code
'Report error and die

end;

ENDTST;

.TITLE
.IDENT

ZRCHB4 ZRCHBO RC25 DISK FORMATTER
/REV B 7

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

ABORT, GET.DUST,STATUS, EX.SUP.PROG
EX.LOC.PROG, REC.DATA, SEND.DATA
SET.CNTLR.CHAR, ON.LINE, DUPS$I.SERVICE
INTS$I.SERVICE, INIT.COM.AREA, BOOT.RC2S
DECODE, SW.UNATT, DATETXT, LUN
UNIT.NO, FLG.WRD, ISD.STRUCT, PTBL.PTR
NEX.FLAG, NXT,.CRN, RET._ENSAD, FCT.BUF
SND.BUF, REC.BUF, MSGADR, NSD.SLOT
NRD.SLOT, VEC.ADDR, RET,STATUS
PID.SAVE, RC25.ADDR, BOOT.FAILURE

G11
ZRCHBA
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

S-Apr-1984 13:44:04
23-Sep-1983 14:13:18

PROTO.VIOLATION,

VAX-11 Bliss-16 v3-555

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA . 816327

INACTIVE.DUP.SERVER

FCT.REQ.MSG, DATMSG,
FMTS, FMT6, FMT?

CRLF,

FMT1

$71 DOWN LINE LOAD FORMATTER AND MONITOR

004167
024646
142767
012746
012746
012746
012746
104437
017766
062766
032776
001402
012700
104436
026727
001015
017716
012746
012746
010600
104414
152767
104444
022626

104441
016700
104436
012716
012746
016746
012746
104437
012703
004767
010067
032700
001003
020327
001365
032767
001010
012716
012746
010600

$T1:

0000000,

000002
000000G
000000G
000340
000000G
000004
000003

000012
000004

TASK

R1,$SAVE3

1611

92,FLG.WRD

1642
1643
1644

-(SP), -(SP)

NEX .FLAG

OINTSI.SERVICE,
-(SP)

37
SPTBL.PTR,10(SP)

000000G 000010
0001702
000010
000001
000010

PORT,INIT.ERR

ACTIVE.DUP.SERVER,

ABSCODE,

SEQ 0136
Fomige

02,10(SP)

:}.010(59)

o, TEMP
s, TEMP

s, TEMP

12(SP)

1645
1646

1648

#4 RO

1651
1654

000000G 177777

NEX.FLAG,0-1

1656

000000G
0000006
000002

oFMT6, -(SP)
02,-(SP)

000002

18:

23
SPTBL.PTR,(SP)
SP.RO
14

000000G

000000G
000340
000000G
000000G
000003

€2,FLG.WRD

166C

(SP)+,(SP).
RO

1658
1681

VEC.ADDR,RO
36

1682

1683

VEC.ADDR, -(SP)

177777
0000006

3s:

000000G

37
0-1,R3
PC.BOOT.RC25

RO,RET,.STATUS

000001

¢ ,RETRIES

RETRIES

¢, RET . STATUS

000001

000000G
000001

SP,e

2%:

000001

1659

000000G

3
;I.REY.STAYUS

16932

1695

RETRIES,»
1791

#B00T.FAILURE,(SP)
SP,RO

1688

1692

1704
SP,e

H11
ZRCHB4
REV B PATCH 00

104414
104444
005726

004767
006000

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

Ss:

012746
010600
104414

68:

VAX-11 Bliss-16
v3-5 55

(SP).

1703
1716

AREA
PC,INIT.COM.

RO
63
OPROTO.VIOLATION,(SP)

1719

SP.RO

14
OPORT, INIT.ERR,(SP)

1720

SP..
1718
1729

1730

QOUPSI
. SERVICE, -(SP)
VEC.ADDR, -(SP)
37
ISD.STRUCT+16,R1

PC.SET.CNTLR.CHAR

RO
78:

SEQ 0137
Page
17

SPIDERSUSERS: [NEALE.AZTEC JZRCHBA . 816;2(7)

#340,(SP)

103002

103002
004767
004767
006000
103002
004767
016700
032760
001410
012716
012746
010600
104414
104444
005726
004767
006000
103002

13:44:04
14:13:18

006000

004767
016716
016746
012746
012746
010600
104414
004767
006000

ROR

TRAP

01271e
012746
010600
104414
104444

104436
012716
012746
016746
012746
104437
016701
052701
016700
010160
004767

JSR

8CcC
MOV
MOV
MOV

103016
012716

022626
016700

TRAP
TRAP
1ST

S-Apr-1984
23-Sep-1983

74
PC,DECODE

UNIT.NO,(SP)

;

:
:

¢,RCSM_REG

¢,RCSM _REG

RCSM_REG,»

1735

1758

1765

OFMTS, -(SP)

14
PC.ON.LINE

RO
8s

PC.DECODE

:S.GEY.DUST.SVAYUS

9s:

9
PC,DECODE

1768

1795

RET.ENSAD,RO
:3200.22(“0)

1801

QACTIVE
.DUP SERVER,(SP)

1804

SP,.RO
14

10%:

(SP).

PC.EX.SUP.PROG

1803
1314

I11
ZRCHB4

ZRCHBO RC25 DISK FORMATTER

REV B PATCH OO0

DOWN LINE LOAD FORMATTER AND MONITOR TASK

000530
000534
000540

004767
004767
006000

000000G
000000G

000544
000550

004767
016701

0000006
000000G

000562
000564
000570
000574
000576
000600
000602

001011
012716
012746
010600
104414
104444
005726

000542
000554

000604

000606
000614

103002

032761

000406

004000

000624
000630

004767
006000

000000G

000634

004767

0000006

000642
000646
000652

005060
062700
020027

000000G
000002
000110

000660
000664
000666

016701
006201
006201

000000G

000632

000640

000656

000670
000672
000674
000676
000702
000706
000710
000714
000720
000722
000730
000732
000736
000740
000742
000746
000750
000754
000756
000760
000762
000764
000766

000770

000772
000774
000776

103002

005000

101771

12%:

000000G
000002G

138:
14s:

15¢:

042701

020127
001107
016700
042700
001060
032767
001435
032703
001417
005000
105060
005200
020027
003772
104443
000406
000000G
000142
000000G
177777
000010
000012
005000

JSR
MOV

PC,DECODE
RET.ENSAD,R1

BNE
MOV
MOV

13¢
QINACTIVE.DUP, SERVER,(SP)
o1, -(SP)

BIT

168:

17s:

000001

000000G
170000
000001
.
000001
000000G

000000G

18%:

000013

;

1831

1834

24(R1),PID.SAVE
26(R1),PID.SAVE .2

:
:

JSR
ROR

PC.REC.DATA
RO

SP,e

1833

1831

RETRIES

1839
1840

1850

1882

16$

JSR

PC.DECODE

CLR
ADD
cHP

SND .BUF (RO)
#2,RO
RO, @110

MOV
ASR
ASR

REC.BUF ,R1
R1
R1

ASR
ASR
SWAB
8IC
cMP
BNE
MOV
8IC
BNE
BIT
BEQ
BIT
BEQ
CLR
CLRB
INC
cMP
BLE
TRAP
.WORD
.WORD
.WORD
.WORD

R1
R1

.WORD
.WORD
CLR

1825

MOV
MOV

CLR

Page

CLR

SEQ 0138

SPIDERSUSERS
: [NEALE .AZTEC JZRCHBA .B16;2 (7)

44
(SP).

. WORD

19%:

04000,22(R1)

SP,RO
14

BLOS

177760

VAX-11 Bliss-16 Vv3-555

124

MOV
TRAP

8CC

006201
006201

000301

PC.DECODE
PC.GET.DUST.STATUS
RO

TRAP
TST

000024
000026

005003

000022

23-Sep-1983 14:13:18

JSR
JSR
ROR

8CC

0000006
000001

016167
016167

000622

118:

S-Apr-1984 13:44:04

178

i
i
s

o(I)
oI
I,e

1894

1906

1917

0177760,R1

R1,01
244
REC.BL",RO
€170000,R0
23s
01 ,SW.UNATT
2ls
@1,R3
19¢
RO
DATETXT(RO)
RO
RO,013
18
43
406
DATETXT
142
DATMSG
-4
10
12
RO

¢, RETRIES

1921

i I
i-o(I)
s I
T

1929
1930
1929

1932

1933

J11
ZRCHBA4
REV B PATCH 00
001000
001006
001010
001014
001016
001022
001024
001026
001030
001032
001034
001036
001040
001042
001044
001050
001054
001056
001060
001062
001066
001070
001072
001074
001076
001100
001102
001104
001106
001110
001114
001120
001122
001124
001126
001132
001134
001140
001144
001150
001152
001160
001162
001170
001174
001200
001204
001206
001210
001212
001214
001216
001220
001222
001224
001226
001230

116060
005200
020027
101771
012703
000410
104443
000406
000000G
000142
000000G
177777
000010
000012
012716
012746
010600
104414
000547
020027
001153

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
000000G 000000G

208
:

000001
2ls:

228:

23%:

104443

000406
000000G
000142
000000G
177777
000001
000100
012716
012746
010600
104414
000525
020127
001175
016700
042700
020027
001040
032767
001415
016767
016716
012746
012746
010600
104414
022626
000410

104443

000406
000000G
000152
0000006

177777
000001

13:44:04

23-Sep-1983 14:13:18

gSTETXT(RO).SND.BUF(RO)
RO, 13
208
01,R3

000013

000007

S-Apr-1984

224

VAX-11 Bliss-16 V3-555

SEQ 013 9
Page

SPIDER$USERS: [NEALE.AZTEC)ZRCHB4 .B16;2 ( 7)

; «(I),«(I)
s I
310.
:

¢,RETRIES

OCRLF ,(SP)

1936
1917
1940

1943

01, -(SP)

SP,.RO
14
31

RO, &7

1945
1906

1951

33¢

1952

SP,
1954
1894

248

1970

1981
1984
1985

UNIT.NO,SND.BUF
UNIT.NO,(SP)
OFMT7,-(SP)

25%:

SP,RO
14
(SP)+,(SP).
264

43
406

SND
. BUF
152

MSGADR

-1
1

SP,»
1983
1981
1989

K11
ZRCHBA
REV B PATCH 00
001232
001234
001240

000003
012716
012746

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
000000G
000001

26%:

000004

27%:

S-Apr-1984

13:44:04

23-Sep-1983 14:13:18

VAX-11 Bliss-16 V3-555

SEQ 0140
Page
20

SPIDERSUSERS: [NEALE.AZTEC)ZRCHB4. 816:27

OCRLF,(SP)
SP,.RO

1992

H SP:‘

1994
1970

000001

000000G

2006

000131

000000G

2009
2006
2013

288

2016

000001

SP,»
2018
1970

2024

OCRLF ,(SP)

000001

31%:

000001

000000G

000116

000000G

32%:
33%:

PC,SEND.DATA
RO

36%
37¢

RO, 06
38
@1,SW.UNATT
344
€116,SND.BUF
35¢

2025

SP,e
2027
2023
1970
2034

2037
2034
2041

L11
ZRCHBA
REV B PATCH 00
001460
001464
001470
001472
001474
001500
001502
001504
001510
001512
001514
001522
001526
001532
001534
001540
001544
001550
001552
001556
001560
001564
001566
001572
001574
001600
001602
001606
001610
001614
001620
001624
001626
001630
001632
001636
001640
001644
001650
001654
001656
001662
001664
001670
001674
001700
001702
001704
001706
001712
001716
001720
001724
001726
001732
001736
001740

012716
012746

010600
104414
004767
006000
103002
004767
005726
000533
012767
000167
020127
001037
016700
042700
020027
101417
020027
001414
020027
001411

020027

001406
020027
001403
020027
001342
012716
012746
012746
010600
104414
000463
020127
001030
016700
042700
020027
103717
020027
101314
012716
012746
012746

ZRCHBO RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
000000G
000001
000000G
000000G

004001
000532
000003
000000G
170000
000005

000007

S-Apr-1984

13:44:04

23-Sep-1983 14:13:18

SEQ 0141
VAX-11 Bliss-16 V3-555
Page 21
SPIDE
: [NEALE.AZTEC)ZRC
RSUSE
HBA4RS
.B16;2 (7)

OCRLF,(SP)
SP,RO
14

2044

SP,»

PC,SEND.DATA
RO
37¢
PC,DECODE

2046

(SP)«

2032

444
94001,RET.STATUS

574

1970
2052
2053
1894

REC.BUF ,RO
€170000,R0O

2062

R1,43
414

RO, &5
408

RO, &7

000011

000013
000016

000020

000002

2066
1894

2082

170000
000014

000015

000000G
000000G
000002

177777
000000G

2087

+« ,RCSM_ REG

RCSM
. REG, »

2088

000005

2086
1894

000000G
170000

2104

000030

M11
ZRCHBA
REV B PATCH 00
001744
001746
001752
001756
001762
001764
001766
001772
001776
002000
002002
002004
002010
002012
002016
002022
002026
002030
002034
002036
002040

101263
012716
012746
012746
010600
104414
012700
010077
104444
022626

000530
020127

001120
016700

ZRCHBO RC25S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
BHI

0000006
000000G
000002

43%:

444 ;

000006

45%;

000000G
170000
042700
000001
020027
001232
000002G
005767
001013
104443
000406
0000006
177777
000001
000012

002102
002106
002110
002112
002116
002122
002124
002126
002130
002136
002140
002146
002156
002162
002164
002166
002172
002200
002204
002210
002216

012700
104434
012701
000412
010100
104427
103004
010011
012702
000401
005002
062701
020127
003763
005702
001004

026727
002404
026727
003416

012767
004767
006000
103002
004767
012767
004767
005067
012767
005067

OMSGADR, (SP)
OFMT1, -(SP)
@2,-(SP)

TRAP

SP.‘

MOV
MOV

€-1,R0
RO,8RC25.ADDR

:+
s

*,RCSM.REG
RC$M.REG,

58¢

cMP
BNE
MOV
BIC
cMP

R1, 06
564
REC.BUF ,RO
€170000,RO
RO, 01

TST
BNE

REC.BUF
+2
46$

.WORD
.WORD
.WORD
.WORD
L.WORD
.WORD
MOV

SND.BUF
142
FCT.REQ.MSG
-1
1
12
#SND .BUF ,RO

TRAP
.WORD

000000G
0000006

46$:
47%:

TRAP

48%:
49$:
S0s:

000002
0007766

S1$:

177777
000000G
000000G

S2%:

000000G
006001
000000G
000000G
000000G
000000G 000002G
0000046

MOV
TRAP

R1,RO
27

FCT.WRD,»

2151

RO,(R1)

RO,FCT.WRD

B8R

S0$

BHIS

48$

MOV
BR
CLR
ADD
cMP
BLE

@1,R2
49%
R2
#2.R1
RI.OFCT BUF +776
47%

BLT
SEE

MOV
JSR

B8CC

544

2142

2149

ROR

53¢

2141

43
406

‘.FCT.WD

cMP

000002G 000017

2138

BNE

000002G 000017

2126

OFCT.BUF
,R1

TST

2110
2108
2104
1894

38$

MOV

000001

44
|
(SP)+,(SP)+

Page

2109

TRAP
CMP

SEQ 0142

SPIDER$USERS: [NEALE.AZTEC)ZRCHBA. 816;2(7

SP,.RO

BNE

000142
000000G

VAX-11 Bliss-16 V3-555

38$

MOV
MOV
MOV

MOV

177777
000000G

S-Apr-1984 13:44:04
23-Sep-1983 14:13:18

JSR
MOV
JSR
CLR
MOV
CLR

S1$

3
i+

+,EOF

EOF

‘,FCY.WD
FCT.WRD,»

: EOF

2149
2161

REC.BUF 2,017

528
gEE.BUF02.017

#-1,SND.BUF
PC,SEND.DATA
RO

2165
2167

53¢

PC,.DECODE
#6001 ,RET,.STATUS
PC,DECODE
SND .BUF
OFCT.BUF ,SND.BUF +2
SND.BUF
+4

2169
2170
2178
2179
2180

N11
ZRCHBA

REV B PATCH O0
002222
002226
002230
002232
002236
002244
002246
002250
002252
002260
002264
002270
002274

004767
006000
103002
004767
026727
001007
104435
000405
012767
004767
000167
062706
000207

ZRCHBO RC2S DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

000000G

S5¢:

001001
000000G
000000G
176334
000036

S6%:
S7%:
S8$:
59

607 words,

000000
000000
000004
000006
000010
000012

175476

: Maximum stack depth per

104466
006000
103773
000207

Routine Size:

6 words,

Maximum stack depth per

2211
2212
2213

JSR
ROR
8CC

000000G
000002G 000017

: Routine Size:

004767

S-Apr-1984 13:44:04

Routine Base:

invocation:

T1::
1$:

PC,SEND.DATA
RO
5Ss
PC,DECODE
REC.BUF +2,017
S8¢
35
584
©1001,RET.STATUS
PC,DECODE
15
236,5P
PC

JSR
cMP
BNE
TRAP
BR
MOV
JSR
JMP
ADD
RTS

23 words

ABSCODE

23-Sep-1983 14:13:18

2188

:
:
3
:
3

2126
2203
2204
1852
1611

PC,$T1
66
RO
1$
PC

+ 2276

SUMMARY

Words

Attributes

613

RO,

LCL,

REL,

CON

LIBRARY STATISTICS

SPIDER
: [NEALE SUS
.AZTEC )ZRCHBO.L
ERS
16;2

JSR
TRAP
ROR
BLO
RTS

eludom

File

2182

T1 DOWN LINE LOAD FORMATTER AND MONITOR TASK

0TS external references
.GLOBL
$SAVE3

AB$CODE

+ 0000

end

Psect Name

-------- Symbols
Total
Loaded

398

SEQ 0143
Page
23

SPIDERSUSERS: [NEALE.AZTEC )ZRCHBA . 816;2
(7)

.SBTTL

Routine Base:
ABSCODE
invocation:
2 words

PSECT

VAX-11 Bliss-16 Vv3-555

168

-------Percent

Blocks
Read

2208

Bl2
ZRCHBA

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

COMMAND QUAL
IF IERS

BLISS /PDP11/LIST
Size:
Run Time:
Elw T-n

ZRCHBA .816

613 code + 0 date words
00:24.7
02:14.8

386 peges
Coaoa{ot
ion Couplotc

S--Apr-1984
4 S- Sep-1983

13:44:04

14:13:18

SEQ 0144

VAX-11 Bliss-16 V3-555
Page
24
SPIDER
: [NEALE SUS
.AZTEC )ZRCHB4
ERS
.B16;2 (7)

Cle
ZRCHBS
:

ZRCHBO RC2S DISK FORMATTER
0001

MODUWE ZRCHBS (STITLE

S-Apr-1984 13:46:24

11-Jan-1984

VAX-11 81390-{6 v3-555

13:23:12

'ZRCHBO RC25 DISK FORMATTER'

0002
0003
0004

:
3
3
3
3
:
H
:
:

0006
0007
0008
0009
0010
0011
0012
0013
88{;

BEGIN
wsbttl 'MODUWE DECLARATIONS'
!
! Pretty Declarations
!
!<blf/lowercase_key>
!

Oos‘l)g

require 'BLSMAC.REQ';

3
:
3
3

1506
1507
1508
}?‘1’3

!
! A
forward-routine-declaration declares
&
name
to be
a routine-name whose
! definition is given later in the same block, and associates with that name the
: set
of sttributes
needed for
generation
of call
to the
named
routine.

1511
{gg

!
:

0005

‘

3
:
H

3
3
:

3
H
H

:
3
:

:
H

:
H
3
:

3
H
s

1514
1515
1516

IDENT = 'REV B PATCH 00°',
ADDRESSING _MODE (RELATIVE) ,
ENVIRONMENT (NOEIS)
) =

library

'ZRCHBO'
;

library

!Define Bliss Macro require file

The
following is @ list of all routines declered within this module and can
be
noted that this module is only place where global routines asre declared.

forward routine
LOAD _FILE,

GET_NSD,
GET _NRD,

‘Load file from local load media
1Get next send descriptor slot index
!Get next receive descriptor slot index

1520

GET_CMDSREF,

!Get unique command reference number

1524
1525

ABORT,
GET_DUST_STATUS,

1517
1518

1519

1521
1522
1523
1526
1527

1528
1529

1530

LOAD _OUTS$STD _BUF,

DECODE : novelue,
DUPSI_SERVICE : INT_LNKSTYP novalue,
CTO_WAIT,

{ggg

INIT _COM_AREA;

1534

1537

!Send Date command
!Receive Data commang

SET_CNTLR_CHAR,

ON_LINE,
INTSI_SERVICE
IS_TIMER,

BOOT _RC2S,

1<BLF/PAGE
»

!Decode return status error code
!Dup/UQ port interrupt service routine
!Command time out wait
!Execute Supplied Program command
!Execute Local Program command

SEND _DATA,
REC_DATA,

1531
1532
1533

!Load out stending commend buffer

!Abort Dup command
!Get Dust Status command

EX_SUP_PROG,
EX_LOC_PROG,

!Define RC25 Formatter

!Set Controller Characteristics command

INT_LNKSTYP novalue,

Page

SPIDERSUSERS: [NEALE .AZTEC )ZRCHBS.B16;4 (1)

:
:
:
:

5EQ 0145

!0n Line command
!Initialization sequence interrupt service
!Initialization sequence time-out wait

!Initialize sequence for RC25 controller
!Initialize UQ Port communication area

D12
ZRCHBS

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:46:24

MODULE DECLARATIONS

11-Jen-1984

13:23:12

VAX-11 Bliss-16 v3-555

1538
1539
1;0

!»
! The psect named “code or $codet” is redefinded here to be called "actcode”.
! This is done to organize formatter routine code into a seperate psect.

1542

psect

1544
1545
{SS:?

!
! Structure declarations used within this module.

1541

1543

1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561

1562

1563
1564
1565
1566

1567

1568
1569
1570

code = ac$code;

N s

structure
RC25
register
accessing
structure.
This structure allows RC25 rogistcr
accessing to be transportasble between the PDP-11 and VAX Diagnostic
Supervisors.

This

also

defines an access algorithm for VAX to sllow field reference

to MBA address space without generating machine checks.

RC2S (0, P,
begin

S, E]

local

RC$S_REG;

RC$S_REG =
RC$S_REG

end
<P,

!<blf/page>

E>;

.(RC25

+ supvale0)<0,

sbpval,

0>;

550925:6

SPIDERSU
[NEAI E AZTEC
SERS
JZRCHBS.B16;4
: (2)

El2
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE DECLARATIONS

:
:

.
! External Declaration of

:
H
H
:

1571
%g_’g
1574
1575
1576
g;z

:
:
:
:
3

:
:

1579

1580

1581

S-Apr-1984 13:46:24

11-Jan-1984

datums declared outside of this module.

COM_AREA

: blockvector [REC_ALLOCATE

RECEIVE _RING

ref blockvector [REC_ALLOCATE,

SND_BUF : vector [SNDB_SIZE, word],
:

blockvector

[REC_ALLOCATE,

1592
1593

NEX_FLAG
NRD_SLOT

field (DSC_FIELD),

:
:

word,
word,

1594
1595
1596

s
:
3
3
:

1598
1599
1600
1601
{gg

VEC_ADDR : word,
RSVD_STRUCT : vector (4, word],
ISD_STRUCT : blockvector (4, 2, word)
UNIT _NO : word,
NXT_CRN : byte,

%%S

1597

1606

1607
1608

1609
1610

1611

word)

field (OUTSFIELD),

Miscellanious external data declarations

3
:
:

3
:

word],

(.JUTOSTD_BW

3
:

:
3

word)

}Ssgg

1587

+ HDR_SIZ,

SEND_RING : ref blockvector [SND_ALLOCATE, 2, word) field (DSC_FIELD),
REC_ENVELOPE : blockvector [REC_ALLOCATE, RB_SIZE + 2, word) field (ENV_FIELD),
SND_ENVELOPE : blockvector [SND_ALLOCATE, SB_SIZE + 2, word) field (ENV_FIELD),
RET_ENSAD : ref block (RB_SIZE + 2, word) field (ENV_FIELD),
REC_BUF : block [RECB_SIZE, word) field (RECB_FIELD),

{ggg

+ SND_ALLOCATE

HEAD_AREA : ref block (4, word) field (HOR_FIELD),

NSD_SLOT : word,
RC25_ADDR : ref RC2S field (ISD_FIELN),
RET_STATUS : word,

PID_SAVE

vector

(2,

word],

Error Messages

PFE_STRUCT

!Next send descriptor slot
!Controller reg access struct
!Global return status location
indicator

field

!RC2S interrupt vector address
!Stores init seq resvered fields
field (ISD_FIELD),
!Init seq data
!P_table unit number to format
!Stores next cmd ref number

Structures

vector (23],

EMSG_STRUCT : vector [23]),
RC_STRUCTURE : vector [39],
SDUP_STRUCT : vector (7],
SMSCP_STRUCT : vector [13]),

!<blf/page>

!Non-existent RC25 register flag
!Next receive descriptor slot

!Saves program

SEQ 0147

Page

SPIDER
: [NEALE SUS
.AZTEC JZRCHBS.B
ERS
16;:4 (3)

external
H
: Communications area declarations

13:23:12

1582
1583
1584
1585
1586

VAX-11 Bliss-16 Vv3-555

!Port fatal error msg struct

'‘Error mess
structure
!RC25 SA register fatal error

!DUP return status code messages
!MSCP return status code messages

Fle
ZRCHBS
REV B PATCH 00
1612
1613

1614

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

Formatted ascii

S-Apr-1984
11-Jan-1984

1615

1620
1621
1622

1623

1624
1625
1626
1627
1628
1629
1630
1631

1632
1633

SEq 0148
VAX-11 Bliss-16 Vv3-555
age
SPID:ERSU
(NEALE .AZTEC SERS
JZRCHBS.B16;4 (4)

strings
!Progess indicator printing string
!Micro code version printing format

1616

1617
1618
1619

13:46:24
13:23:12

DM code parameter declarations
The
following
declarations
are
declered in module azkelé 'DM code
module’
and point to the starting address of specific DM
code buffer aress.

(OVSA
It
D.:;E

8 hack but

in azkel2 and

is a memory

location however)

the azfmtr storage sllocation must be

edited

in manually

time the DM code buffer ch
s.
Get this
value from the output
of
ONV program.
(Bliss wants this allocation value to be a compile time constant).

AZFMTR

HDSA,
DMSA,
OVSA;

is declared

vector

(8989,

word],

'RC2S
!Host
‘Host
!Host

formatter DM code buffer
DM code header address
DM code initial load address
First overlay address

G1le
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

VAX-11 Bliss-16 v3-555

REV B PATCH 00

MODUWLE DECLARATIONS

{gg;

global routine LOAD FILE (BUF _LOC, FN_EXT,

1636
1637
1638
{gzg

!+»
! Functional Description :
!
This multi -purpose routine is used to read in files from the boot
!
device into host memory space at the specified
buffer address.

:
:
3
3

H
H
:
:
3

1641
1642
1643
1644

H
!
!
!
!

1646

1645

{2;

1649

:
3
3
3
3
H
:

1651
1652
1653
1654
1655
1656
1657

165>

!
!
!
!
!
!
!

!
!

%ggé

:
3
H

1663

1664

1665
1666

1667

:
H

1668
1669

1672

H
3
H

1673
1674
{2;2

Completion Codes

FRE _CODE

Is returned

not

PAS _CODE
:

destroyed by

H
H
:

1677

the

H
H
H

1687
1688
1689

1686

1690

OPEN (.FN_EXT);

= (.BUF _SIZe2)

it away since

¢«

file

full.

indicator

from disk,

is returned

incry

!Open the file for

.BUF _LOC;

from the

from 0 to 255 do

bt?:n

GETWORD (.BUF _LOC);
end;

input

!Calculate the last buffer address

input file and through

it only contains RT-11

!Return status from getword macro
!End of buffer address storage

fe
! Read the first block

1684
1685

indicator

1680
1681

H
H

the buffer

in the specified load buffer

incomming

EOB

to be read

loaded

loceal
NEOF ,
€E08B;

the buffer

}.g;g

iggg

in.

before

address where

if the end-of-file

returned before

Is returned if end-of-file

Date previously

!
!-

load meedia

in.,
This is used for protect against buffer
over runs,

Side Effects

!Load file from local

to an asciz string

for the buffer where the file

information.

Page

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHBS.B16;4 (S)

This contains the number cf worcs allocated

Implicit Outputs
none

!
!
!

This contains a pointer

Implicit Inputs
none

13:23:12

in from the boot device are to

of the file name to be read

BUF _SIZ

BUF _SIZ)

This contains the host memory

words read
be loaded.

FN_EXT

1658
1659

1660

3
3

Formal Parameters
BUF _LOC

11-Jan-1984

SEQ 0149

H12
ZRCHBS

REV B PATCH 00

3
3
3

1691
1632
1693

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

MTMMODULE DECLARATIONS

11-Jan-1984

1694
1695
1696

! the not complete indicator is returned (0) or the
! buffer is over run.
Return an error code if the
! buffer is over run,

H
:

1699
1700

1697
1698

1701

end

.BUF_LOC

until

{;8;

: Return an error code

1709

3
3
3
H

1710
1711
1712
1713

1715

= GETWORD (.BUF _LOC);

BUF _LOC =

1;8;
1

bo&in

%;8%

1706

1714

Page

SPIDER
: [NEALE SUS
.AZTEC ]JZRCHBS
ERS
.B16:4 (S)

:
:

13:23:12

SEQ 0150

! Loop on getting a word from the load file.
After
! increment to the next word by adding %o0'2' to the
! buffer load addrss.
Continue getting words until

:
3
H
:
H

VAX-11 Blies-16 v3-555

(

not

!Read next word

+» %0'2';

!Increment

.NEOF) or (.BUF_LOC eqlu

.EOB);

into

.mem_loc

to next word

'Repeat until eof or buf overrun

H
!

if _NEOF
then
return RET_STATUS
else

if not eof (neof

1) else close the file and return a pass code.
!Was the eof

= FRE_CODE

indicator returned

!Return error code

to caller

CLOSE;

!Eof was returned so close

file

3
3

1718
1719

return RET_STATUS

PAS_CODE;

000000
004167

000000G

000204
000010
000012

016600
104434
016600

000014

006300
016602
060200

000012

000016

the caller

ZRCHBS ZRCHBO RC25 DISK FORMATTER
/REV B 7/

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

COM.AREA, HEAD.AREA, RECEIVE.RING
SEND.RING, REC.ENVELOPE, SND.ENVELOPE
RET.ENSAD, REC.BUF, SND.BUF, OUTS$STD.BUF
NEX.FLAG, NRD.SLOT, NSD.SLOT, RC2S.ADDR
RET.STATUS, PID.SAVE, VEC.ADDR
RSVD.STRUCT, ISD.STRUCT, UNIT.NO

.GLOBL
.GLOBL
.GLOBL

RC.STRUCTURE, SDUP.STRUCT, SMSCP.STRUCT
PID.FMT, FMT4, AZFMTR, HDSA, DMSA
OVSA

.SBTTL

LOAD.FILE MODWE DECLARATIONS

.PSECT

000000

.TITLE
.IDENT

.GLOBL

000016
000020
000024

!Return a pass code

end;

LOAD.FILE::

JSR

MOV
TRAP
MOV

ASL
MOV
ADD

NXT.CRN, PFE.STRUCT, EMSG.STRUCT

ACSCODE,

R1,$SAVE3

14(SP),RO
34
12(SP),RO

RO
16(SP),R2
R2,RO

FN.EXT,»

BUF
. SIZ,»

BUF .LOC,»

1634

1677

1678

I12
ZRCHBS
REV B PATCH 00
000026
000030
000032
000034
000036
000040
000042
000044
000050
000052
000056
000060
000062
000066
000072
000074
000076
000104
000110
000112
000116
000120
000122
000124
000130
000134
000136
000140
000144
000146

010003
005001
010200
104427
103001
010012
005201
020127
101770
016600
104427
103005
010076
012702
000401
005002
062766
032702
001403
026603
001355
006002
103005
012700
010067
000207
104435
005067
005000
000207

: Routine Size:
i

ZRCHBO RC25S DISK FORMATTER
MODULE DECLARATIONS

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

BUF .LOC, »

1701

44
RO,816(SP)
e1.R2

RO,BUF .LOC
& ,NEOF

000002
000001

000016

R2
02,16(SP)
1,R2
63

S$:

000016

16(SP),R3

6%:

005001
000000G
000000G

NEOF

+«,BUF
. LOC

* ,NEOF

78:

RTS

1702
1704

BUF .LOC,.EOB

NEOF

52 words,
Rout ine Base:
AC$CODE
Maximum stack depth per invocation:
6 words
1720

16(SP),RO

000016
000001

1685
1687

1685

3s:

RO,
»
I
I,»

2%:

000016

SEQ 0151
Page

SPIDERS$USERS: [NEALE.AZTEC )ZRCHBS . 81614(5)
+,EOB
I

1$:

000377

VAX-11 Bliss-16 V3-555

1710

95001,R0O
ggRET STATUS

1712

35
RET.STATUS

1714
1718
1671
1634

RO
PC

+ 0000

J12
ZRCH35

90 S0

B¢

G¢

GF G

GF Bs

B¢

S8 G0

REV B PATCH 00

1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732

1733

1734

1735

1736
1737
1738

1739
1740
1741
1742
1743
1744
1745
1746
1747

1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759

ZRCHBO RC25S DISK FORMATTER

S-Apr-1984 13:46:24

MODULE DECLARATIONS

11-Jan-1984 13:23:12

global routine GET_NSD =

!Chooses the next send slot

SEQ 0152
Page

SPIDERSUSERS: [NEALE .AZTEC)ZRCHBS. 816;4(6)

Tee

! Functional Description :
!
This
routine
will determine
!
is polling
and
returns that
'

which send ring descriptor
the port/controller
dsc slot number to the calling routine.

This host program will call this routine each time

!
another command into the command (send) ring.
! Formal Parameters :
!

!
!
!
!
!
!
!
!
!
!

it wishes to deposit

none

Implicit Inputs :
NSD_SLOT :

Global
storage for
the next
send descriptor slot.
Stores where the host should place this command for
processing by the port/controller.

Implicit Outputs :
The
global
storage
“Nsd_slot”
is
updated
to the
present send slot where the port/controller is polling.
Completion Codes :
Returns the contents of "“Nsd_slot” to the calling routine.
S.de Effects :
none

begin
.

Increment the next send descriptor_slot by one

l:lSD SLOT =

_NSD_SLOT

! Set the slot pointer back to zero if it wraps around to the top of the ring.
]

_NSD_SLOT gtru SND_ALLOCATE

then NSD_SLOT

ZERO;

5 Return the next send descriptor_slot to the caller

return .NSD_SLOT;

end;

000000

005267

000000G

000004
000012
000014
000020
000024

026727
101402
005067
016700
000207

000000G 000003
000000G
000000G

.SBTTL

GET.NSD MODULE DECLARATIONS

INC

NSD.SLOT

BLOS

GET.NSD::

CMP

1$:

CLR
MOV
RTS

;: Routine Size:
11 words,
Routine Base:
ACSCODE
; Maximum stack depth per invocation:
O words
1760

VAX-11 Bliss-16 V3-555

NSD.SLOT,#3
NSD.SLOT
NSD.SLOT,RO
PC

+ 0150

1748

f
:

1744
1721

1753

K12
ZRCHBS

ZRCHBO RC2S5 DISK FORMATTER

REV B PATCH 00 MODULE DECLARATIONS

11-Jan-1984 13:23:12

i;gé

global routine GET_NRD =

!Chooses the next receive slot

1763

1770
1771

!
!

:
3
3
:
:
:

1764
1765
1766
1767
1768
1769

1772

:
:
3

1778

1777

:
3
:
:
3

‘:

1778
1779
1780
1781
1782

1784

none
Implicit Inputs

NRD_SLOT

1774

1775
1776

!
!

Stores

the port should return this commands

Imlicit Outputs :
The global storage “Nrd_slot”

is updated to the present receive slot

where the port/controller

is polling.

! Completion Codes :
!
Returns the contents of “Nrd_slot” to the calling routine.
! Side Effects :
!
none
!--

{;gg

l'RD_SLOT

ggg

:
:

1792
ggz

H
:

‘

3
H

1798
1799

return .NRD_SLOT;
end;

it wraps around to the top of the ring.

then NRD_SLOT

ZERO;

: Return the next receive descriptor_slot to the caller
-

005267

000000G

000004
000012
000014
000020
000024

026727
101402
005067
016700
000207

000000G 000003

11 words,

.SBTTL

GET.NRD MODULE DECLARATIONS

INC

NRD.SLOT

GET.NRD::

000000G
000000G

: Maximum stack depth per

1800

.NRD_SLOT gtru REC_ALLOCATE

;: Routine Size:

Set the slot pointer back to zero if

000000

NRD_SLOT

1795
{;3_6,

indicator.

3
H

SPIDERSUSERS: [NEALE.AZTEC )ZRCHBS. 816:4(7)

where

response

begin
!
: Increment the next receive descriptor_slot by one

SEQ 0153

Global storage for the next receive descriptor slot.

1785
{;gg

:
3

VAX-11 Bliss-16 V3-555

! Functional Description :
!
Thoo
routine will determine which receive ring descriptor the port/controller
!
is polling and returns that dsc slot number to the calling routine.
This
!
host program will call this routine each time it wishes to process another
!
receive ring descriptor.
! Formal Parameters :

:
:

S-Apr-1984 13:46:24

18:

Routine Base:

invocation:

O words

cMP
BLOS
CLR
MOV
RTS

NRD.SLOT,#3
1$
NRD.SLOT
NRD.SLOT,RO
PC

ACSCODE + 0176

1788

:
3

1784
1761

1793

L12
ZRCHBS

1801

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

global routine LOAD_OUTS$STD_BUF (REF_NUM) =

!Load outs$std_buffer with this command

VAX-11 Bliss-16 V3-555

S0
80
80 S0
G
S0

The

outstanding

this

host

command

program to

buffer "out$std_buf”

determine

used by

if an outctondmg command

issued to the port has been
processed yet.
by
examining the
receive flag 'Rec_flg' in

This
is done
buffer slot

for
a 'l' which
uc
set by
the
during
response ring interrupts.

mtcrrupt service

routine

This buffer can be

& window between the port

looked

driver Nco-vmg (A procooomo tho response envelopes and the
host class driver
This

routine

issuing commands to the port.

loads

into

following values:

1.
2.

empty out$std_buf slot the

This cm reference number.
Clears 'rec_flg' indicating this command
Clears out the
second
word
envelope address will go.

is outstanding.

in slot where the rcturncd

IMPORTANT NOTE:

permitted to

This
routine is therefore guarenteed
to return
an unused
outsstd_ buffer slot
when this unigue
value
of so’'100000’
is
found.
To
further
quarentee this, unigque command ref
numbers will never use zero as a reference number.

(i.e.

return

by loading

a outs$std_buf slot

a slots

first

word

to the unused pool

with “'100000').

Formal Parameters
RE F _NUM
Implicit Inputs

This

is the unique reference number of this command set to the port.

none

Implicit Outputs

none

Completion Codes :

The outs$standing buffer slot
is routines value and

B0 99

B0 G0 S0

S0 G0

G5 S0

B¢

S0 G

G0 G0

To
quarentee a command loaded into the out$std_buffer will
never
be lost
(i.e.
hovmg this
routine ntum a buffer
slot not yet
received b
interrupt service routine),
only the cto_wait (contro hr
time
out wait) routine
is

G0 B¢

GF G0

G0 G0

B¢

G0 G¢

B9 B

B0 G0

S0 GV

Functional Description

Side Effects

index where this command was put

returned to

the caller.

SEQ 0154
Page

SPIDER$USERS: [NEALE.AZTEC JZRCHBS. 816;4(8)

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

M12
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00 MODULE DECLARATIONS
:

1858

! Search

{g(l)

:
:

3
3
‘

1859

1862
igg‘s

1871

:
:
:

:
:
:
3
:

:
:

:
3

000022
000026
000030

021227
001010
042712

An open slot

000040
000044
000046
000050

005060
010100
000207
005201

000056
000060

101753
012700
010067
000207

020127

;i Routine Size:

if one

is found.

‘Find the first open slot

is by definition the value %0'100000'

the

slots

first

word.

!Is this slot open

OUTSSTD BUF [.i, REC_FLG) = FALSE;

!Clear the received flag

return
end;

'Return buffer

OQUTSSTD BUF (.i, CMD_REF) = ,REF_NUM;
!Load this cmd's ref num
OUTS$STD_BUF [.i, ENV_ADR) = ZERO;
!Clear the previous env adr

The buffer

: report

.i;

is full

error

if the code reaches here.

for debug purposes.

0000006

000000G

100000

000010

LOAD OUT$STD.BUF MODULE DECLARATIONS

JSR

Rl $SAVER

MOV

R1,.RO

: I,e

CLR

2%:

000003

Routine Base:

4 words

1863

1868

CMP
BNE
BIC

(R2),0-100000
24
€100000, (R2)

1871

OUTS$STD.BUF «2(RO)
R1,RO

:
i

I,e

1873
1870

1863

CLR
MOV
RTS
INC

CcMP

MOV
RTS
invocation:

RO
RO
Q0UTS$STD.BUF ,R2

BLOS
MOV

002001
000000G

1801

ASL
ASL
MOV

MOVB

000002G

29 words,

!Report an 'outs$std buffer full” error

.SBTTL

ADD

100000

index to caller

This should never happen so

LOAD.OUT$STD.BUF:

14:

: Maximum stack depth per

1883

buffer and look for the first

if .OUT$STD
BUF [.i, CMD_WRD] eqlu so’' 100000’
then

010100

116612

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816;4(8)

return RET_STATUS = OBF _CODE;
end;

060002

command

index to the caller

from O to REC_ALLOCATE - 1 do

1881
1882

{:;g

006300
006300
012702

;

standing

H
!

000010
000012
000014

000064
000070

out

1876
1877
1878

005001

000052

1874
1875

000004

000034

1872
1873

004167

000020

incn.a i

1870

000000

000006

the

Return this first slot

SEQ 0155

1867

1868
1869

11-Jan-1984 13:23:12

If no open slots are found then return an error code.

%fi

:
:

through

! open slot.

VAX-11 Bliss-16 V3-555

ACSCODE

RO,R2

10(SP),(R2)

PC
R1

R1,03

1s
€2001,R0
RO,RET,.STATUS
PC

. 0224

+ REF.NUM,
s

I,e

1872

1881

1801

‘

N12
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE DECLARATIONS

global routine GET_CMDSREF

1886

:
:

1894

:
:
3
:
:
3

:
3
3
:

H
:
3
3
3

3
H

1887
1888
1889
1890
1891
{:gg

3
3
H
3
:

3
H
3
3
:

!
:

1908
1909
1910
1911

!
!
!
!

1912
1913
1914
1915
1916

1917

be unique ecross all commands that

!
!
!
!
!

!
!
!
!
:

1924
igg

!
:

1927
1928
1929

1935
1936
%gg;

i.e.,

after

moivém the commands

end message or

and the connection on
which the command was received as the unigue
identifier of an outstanding command.

This
routine will
rate & unique
command reference number and
will search the out$standing command buffer to see if already uesd.
The first unused unique command
reference found will
be returned
to the calling routine.
Formal Parameters
none
Implicit

Ivc\g:ts

NXT_

This global

location stores the next unigue cmd

reference number to be used.
Implicit Outputs
NXT_CRN

Completion Codes :
The cor:j:ontt of

! Side Effects
!
none
!--

This global location is loaded with the next
unigue command reference number.

.NXT_CRN

is returned to the calling routine.

begin
local

1934

1940

1932

1939

outstanding

1918
1919
1920
1921
{ggg

H
H
:

;

1905
{3_6,

1933

numbers must

after
re-synchronizing
with
the
server.
Command
reference
numbers
need not be unique for commands
issued by different class
drivers --- i.e. commands issued by different
host or commands for
diffeent DUP
servers
from
the same host.
Therefore
controllers
must
intomlly
use the combination of a command reference number

Command reference

!
!
!
!
!

1931

1900
1901
1902
1903
1904

1899

-5

!Gets next unique cmd ref number

! Functional Description :
!
A
32 bit
unique non-zero
number
used
to identify host commands.
!
Cless
drivers
should
supply
@ unique
reference number
in
each
!
command
that the
send
to a DUP server.
A cless driver may supply
!
a
2zero reference number
if it does not need to associate a command
H
with its end message.
H
!

DONE;

!
!
i

Increment the global unique command reference rumber before anything

NXT_CRN = .NXT_CRN + 1;

SEQ 0156

Page

SPID:ERSU
[NEALE .AZTECJZRCH
SERS
BS.B16;:4 (9)

are outstanding on
the
same connection
i.e., they
must be unigue
across all outstanding commands
issued by
o
single
class driver
(Host) to
a
single
DUP
server.
The
class driver may re-use a
commands
reference
number
when
the
command
is
no
longer

:
3
H

13:23:12

!
!
!
!

‘

H
:

11-Jan-1984

VAX-11 Bliss-16 v3-555

1895
189
1897
1898

‘

H
H
:
:

S-Apr-1984 13:46:24

is done.

B13

G¢

BF G0

96 G0 S0

G¢

G0 G+ G0

G0 B

G0 B¢

1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968
1969
1970
1971
1972
1973

ZRCHBO RC25 DISK FORMATTER
MODWE DECLARATIONS

000010
000014
000016
000024
000026
000032
000034

105267
104422
012701
005000
126067
001004
105267
005001
000405

11-Jon-1984 13:23:12

BREAK;

SEQ 0157
Page
13

SPIDERSUSERS
: [NEALE .AZTEC JZRCHBS . 816;4(9)

{Flag any operator control C's

Wrap this next command reference number around

back to one
if

.NXT_CRN gtr 255

is grezeiwe~ then 255 (decimal),

then NXT_CRN

DONE = TRUE;

!Clear the all done

indicator flag

Now
search
the
outtstd_buffer for this
command
reference
number.
If
not
there then done stays
true
oand the loop will
end else increment to the
next unigue command ref number and make done false
to continue the loop.
incru

from O to REC_ALLOCATE

1 do

!Search buffer for this cmd ref num

.OUTSSTD
BUF [.i, CMD_REF) eqlu .NXT_CRN !Does

then

N XT_CRN = LNXT_CRN
DONE = FALSE;
exitloop;

1Exit

end

unti 1

it already exrist

It already exists
!Try the next sequential cmd ref num
!Make code loop sgain

this

end;

'Repeat

.DONE;

incr

loop

loop until done

]

Return the unigue command reference number to the caller.

return

end;

.NXT_CRN;

GET.CMDS REF MODWL.E DECLARATIONS

010146

000002

VAX-11 Blies-16 V3-555

Repeat generating and searching the outtstending command buffer until e
unique command reference number is found.

1974

1975
1976
1977
1978
1979
1980
1981
1982
1983

S-Apr-1984 13:46:24

B¢

S0 G0

00 80

ZRCHBS
REV B PATCH 00

R1,-(SP)

18:
0000006 0000006

0000006

2%:

NXT,.CRN
22
e1,R1
R0

OUTS$STD, BUF (RO) ,NXT .CRN

34
NXT,CRN

R1
4%

:
'
'

;.DO'&

: o(I),e
:

: DONE

1884
1939
1947
1956
1960
19038
1971
1972
1970

Cl3
ZRCHBS
REV B PATCH 00
000036
000042
000046
000050
000052
000054
000056
000062
000064

062700
020027
101763
006001
103355
005000
156700
012601
000207

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

MODULE DECLARATIONS

000004
000014

11-Jan-1984

3%
44%;

000000G

ADD
cMHP

04 ,RO
RO, 214

ROR

BISB
MOV

NXT.CRN,RO
(SP)+,R1

BLOS

8CC
CLR

18
RO

RTS

: Routine Size:
27 words,
Routine Base:
ACSCODE
s Maximum stack depth per invocation:
3 words
1984

0316

13:23:12

VAX-11 8 liss-16 v3-555
SPIDERS V)

SEQ 0158
Page
14

SERS: [NEALE .AZTEC )ZRCHBS. 816;4(9

o,
I

1966

s+ DONE

1977

1931
1884

D13
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

VAX-11 Blies-16 v3-555

REV B PATCH 00

MODWE DECLARATIONS

%ggz

globel routine DECODE

1987
1988
1989

e
! Functional Description :
!
Due
to the implimentation of the DUP
and UQ Port protocol there
!
are
two levels
at which an issued command to
a port/controller
!
can fail and they ere:
!

:
:
:
:
:
H

3
H

:
:
3
‘

3
:
3
3

:
:
:
3

3
3
:
:
3
:
H
:
3
H
3
H
:
H
:

H
H
H
:
s
H
3
3
H
3
H

1990

1991
1992
1332
1
1995
1996

1997

1998
1999
ggg?

2002
2003
2004
2005

2006
2007
2008
2009

2010
2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023
2024

2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
gggg

H
H
H
H
3

: novalue *

The

issued command cen time out.

error

H
!

!
!
E

!
!
!
!

report

13:23:12

can be posted

in SA register bit

15 by the port

an error,

The
issued
commend
to
the port/controller cen
be executeo
correctly without
eny
errors but the response
pecket status
field could have an error or
status other then success posted.

These errors or status’'s
returned
are
all returned to the host
routine which queued
the
DUP
command
vie
the
global storage
"RET_STATUS”.
The
host
to
port/controller
communications
connection
having
the highest priority (ie. if the SA Reg error

!
!
s
!
!
!
!
!
!
!
!
¢
!
!
!
!
!
!
!
!
!
¢
!
!
!
!
!
!
!
5

bit
is set the DUP interrupt routine returns a PFE_CODE and this
code is
pessed
uwp
to
the
calling host routine with out being
intercepted by any routine on the way up).
This
routine
will
then be caelled when the return from a queued
command
comes
back with an error code or non successfull status
code.
This is
by
definition
when bit 0 in the returned status
is equal to 1.
An appropriate
error,

Formal Parameters
none

recovery

action will be done

for each

individual

Implicit Inputs :
RET_STATUS:

Stored in this global storage is the returned error
code or
non-successful
status
code from a queued
command.

Implicit Outputs
none

Completion Codes
none

Side Effects :
All formatter errors are fatal, therefor after erecution
of
this
routine
the
RC25
controller
is initialized
aborting any DM code running in the controller.
-

begin

local

SA_VALUE;

!Save SA register

fatal

56092%29 1

SPIDERSU
[NEALE .AZTEC
SERS
JZRCH85.8B16
:
;4 (10,

!Decodes failing SA reg data

2037
2038
2039
2040
2041

11-Jan-1984

error code

E13
ZRCHBS

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

MODULE DECI.ARATIONS

2042

:
:
3
3
:
:
3
3

2044
2045
2046
2047
2048
2049
2050
gggé

2053

2055

2054

3
:
3
s

2056
2057
2058
2059

3
3
3
:
3

2061
2062
2063
2064
gggz

2060

‘

H
:
:
3
H
H
H
:
:

;

H
3
:
:

2067
2068
2069
2070
2071
2072
2073
2074
2075

gg;g

2078
2079
2080
sggé

H
:

2083
2084

2085

-3

2087

H
H
:
H
3
3

3
H
H
H

2088
2089
2090
2091
2092
2093

2094
2095
2096
2097

S-Apr-1984

13:46:24

VAX-11 Blies-16 V3-555

11-Jan-1984 13:23:12

SPIDERSUSERS: [NEALE.AZTEC ]JZRCHBS . 816;4
(10)

! Use the contents of "RET_STATUS" to select what type error or non-successful
! status code is to be processed.
:selectoneu .RET_STATUS of
set
!
! "Communication area
|

!
H

This error

not

step

code

initialize” error code

-nd-cotco that

init the com area
2

(CIE_CODE)
in

the

port did

in the host memory after

initialization

sequence.

!Code equals %o'0l’

PRINTB (.EMSG_STRUCT

end;

[MSG4));

H
z “Port/Controller time out” error code
!
5 Port/Controller timed out after the specified time out

interval.

(CTO_CODE] :
!Code equals so’'11l’
in
PRINTB (.EMSG_STRUCT [MSG211));
end;
H
! "Port fatal error” code
H
! The error bit in the SA Register was set when examined in

routine.

[PFE_CODE) :
begin
?A_VALUE
!

!
!

This error

indicates a Port fatal error code.

_RC25_ADDR

[RCSA,

ERR_CODE);

!Get error code from SA register

Is the error code within the RC25 error code range,
an generic, all controllers, error code?

.SA_VAL

then

UVE gequ 200

in
PRINTB (.RC_STRUCTURE
end
else
in

PRINTB (.PFE _STRUCT
end;
end;

the DUPSI_SERVICE

!Code equals so'21’

[.SA_VALUE

[.SA_VALUE));

200));

SEQ 0160
Page
16

'RC2S error code range

!Generic error code

F13
ZRCHBO RC25 DISK FORMATTER
MODUWLE DECLARATIONS

2099
2100

!
H

g}gé

gigé
2153
2154
2155

This

indicates

that

& non-successful

SEQ_0161

VAX-11 Bliss-16 v3-555
Page
17
SPIDER
: [NEALE SUS
.AZTEC ]ZRCHBS.
ERS
B16;:4 (10)

return status code was returned

PRINTB (.EMSG_STRUCT
'
Look

from an

issued command.

!Code equals so’'31’

[MSGO));

the UQPORT connection ID field to determine

the type of response

if _RET_ENSAD [CONN_ID) eqlu DWP
then
bogin
PRINTB (.SDUP_STRUCT [.RET_ENSAD [STATUS]));
end
else
bogin
PRINTB (.SMSCP_STRUCT [.RET_ENSAD [STA_CODE)]);
end;
end;

"Port Portocol violation” error code

A protocol violation error was detected during host processing of an
[PVE_CODE) :
b.?;"
PRINTB (.EMSG_STRUCT
end;

!Code equals %o 41’

[MSG1));

“Remote program died” error code

This

indicates that the remote program running

in the DM machine did not

designated time out

responded within

interval and that

the

the progress

indicetor was not increase after subsiquent time out
delays.
It is essumed that the remote program is dead
and

is treated as a fatal error.

[RPD_CODE) :
begin
PRINTB (.EMSG_STRUCT
end;

!Code equals %o'S1’

[MSG2));

2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

"Return status error” code

(RSE_CODE]

2103

g%g;

‘e

©F S5 00 S5 B0 B0 00 00 00 B0 B0 G0 S0 S0 B0 S8 B0 B0 B0 G0 G0 B0 S0 B0 G0 B8 B0 B0 B0 G

G5 Bs S0 G5 S5 S B9 GF B B G6 S5 G5 G G5 G0 G5 G0 G5 G Ss Ss e 8 Ss es @

ZRCHBS
REV B PATCH 00

“Port to host synchronious error” code

(PSE_CODE
)

!Code eauals %o'61’

PRINTB (.EMSG_STRUCT
end;

[MSGS));

issued command.

G13

W5 S5 0% G5 B0 G0 00 B0 B0 B0 G5 G0 B0 S0 B0 S0 S0 G0 B

S8 G0 S0 S0

S5 B

G0 B0 B0 B¢ B0 B0 B0 G0 G0 S0 B¢ S0 B9

G0 B0

B¢ B¢ G0

Gt G

B¢ G

B¢ S

G4 G¢

ZRCHBS
REV B PATCH 00
2156
2157
2158
2159
2160
2161
2162
2163
2164
<165
2166
2167
2le8
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195
2196
2197
2198
2199
2200
2201
2202
2203

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS
!

"Message

(MLE_CODE
)

S-Apr-1984
11-Jan-1984

13:46:24
13:23:12

length error” code

!Code equals %o’ 71’

PRINTB (.EMSG_STRUCT

end;

[MSG61);

“Unknown end code” error code

(VEC_CODE)

!Code equals %o’ 101"

PRINTB (.EMSG_STRUCT
end;

[MSG7));

"Adaptor purge request’” error code
[APQ_COQE]
b.?cfl

::ONTB (.EMSG_STRUCT

!Code equals so' 201’
[MSG81);

"Unknown

[UIN_CODE)

interrupt” error code

!Code equals %o’ 301°

[(Ral

PRINTB (.EMSG_STRUCT
end;

[MSG91);

"ATTENTION MSG ENDCODE“ error code
[ATN_CODE]

!Code equals %o 401’

PRINTB (.EMSG_STRUCT
end;

[MSG12));

“COMMAND MSG ENDCODE"” error code

[CMD_CODE)

33?~ta (.EMSG _STRUCT [MSG13));
n

!Code equals so’' 501’

end;

“SERIOUS EXCEPTION" error code

[SEx_CODE)

!Code equals %o0'601’

PRINTB (.EMSG_STRUCT
end;

[MSG14));

“INVALID COMMAND” error code

SEQ 0162
VAX-11 Bliss-16 Vv3-555
Page
18
SPIDER
: [NEALE SUS
.AZTEC )ZRCHBS.B1
ERS
6;4 (10)

H13
ZRCHBS
REV B PATCH 00

3
:
:
3
:
:
H
H
3
3
:
3
3
3
:
:
3
H
:
3
3
3
3
3

2213
2214
2215

2216
2217
2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
gggg

2238

ggzg

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS

S-Apr-1984
11-Jan-1984

13:46:24
13:23:12

(IVC_CODE]

!
!
H

in
PRINTB (.EMSG_STRUCT
end;

"UNKNOWN MESSAGE

!Code equals %o’ 701’
[MSG15));

TYPE" error code

[UMT _CODE] :
bo?in
PRINTB (.EMSG_STRUCT [MSG161));
end;
!
! "UNKNOWN MESSAGE NUMBER”" error code
!

!Code equals %o'1001’

(UMN_CODE) :
in
PRINTB (.EMSG_STRUCT [MSG19));

!Code equals %o’'4001’

!
!

end;

Out standing buffer slots are all filled wp

(0BF __CODE]

!Code equals so’' 2001’

:
:
3
:

2241
2242
2243
gg:;

!
E

:
3
H
:
H
3
3
:

2246
2247
2248
2249
2250
2251
2252
2253

(OSE_CODE) :
bo?in
PRINTB (.EMSG_STRUCT [MSG18));
end;
H
! File read error from local load media
!

!Code equals

2255

[FRE_CODE)

'Code equals so'S001’

3
:
H

2254

2256
2257
2258

PRINTB (.EMSG_STRUCT
end;

: I11

s
3

2262
2263

[ILL_FCT)

:
;
s

2261

2264

—

bogin

2265

file

—

H
!

end;

This

o' 3001’

[MSG20));

PRINTB (.EMSG_STRUCT

2266

2267
2268

in
PRINTB (.EMSG_STRUCT
end;

5523

[MSG171]);

Out standing command buffer out of sync error

SEQ 0163
VAX-11 Bliss-16 v3-555
Page
19
SPID:ERSU
[NEALE .AZTEC SERS
]ZRCHBS.B16;4 (10)

!Code equals %o'6001°

[MSG22));

is here to trap any unknow return status codes sent to this routine.

113

B¢

ZRCHBS
REV B PATCH 00
2270
2271
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284

004167
024646
016701

020127
001007
016746
012746
010600
104414
000567

020127
001007
016746
012746
010600
104414
000567
020127
001034
016700
016066
016600
042700
020027
103410
06300
016046
012746
010600
104414
000576
006300
016046
012746
010600
104414
000566
020127
001044

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

(otherwise]

S-Apr-1984 13:46:24

11-Jan-1984 13:23:12

PRINTB (.EMSG_STRUCT

!
!
O

end;

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS . 81634(10)

[MSG3]);

All errors are fatal so init the RC25 and jump to the clean-up
code section to abort th-o units format.

RC?S_ADOR [RCIP, RC_ALL)
WRT_RC2S (RCIP, ONES);

!Init the controller
!Init the controller

= ONES;

DOCLN;

tJump to the clean-up code section

end;

000000G

.SBTTL
DECOOE: :JSR

000000G
000001

DECODE MODULE DECLARATIONS

R1, $SAVE2

-(SP), -(SP)
RET.STATUS,R1

R1,01
1$
EMSG.STRUCT+10, -(SP)
e1,-(SP)

000010G
000001

000011

SEQ 0164

!Code equals non of the above

tes;

VAX-11 Bliss-16 V3-555

SP,.RO

18:

000001

14
11%
R1,011
24
EMSG.STRUCT .52, -(SP)
e1,-(SP)

28:

20438

2060

: SP.,e
H

2048

2070

SP,RO
14
13%

2048

RC25.ADDR,RO

2081

R1,021
43

2(R0O),2(SP)

2(SP),RO

SP,s

: *,RC$S.REG

3 RC$S.REG,SA.VALUE

€174000,R0
22.0310

:
s

RO
RC.STRUCTURE -620(R0O), -(SP)

SP.RO

17%
RO

SP,RO
14
17

¢,SA.VALUE
SA.VALUE,»

208~
2090

01, -(SP)

3s:

SP,es
2087
2094

PFE.STRUCT(RO)
-(SP)
,

000031

R1,031
7%

SP,e

J13
ZRCHBS
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS

000166
000172
000176
000200

000000G
000001

016746
012746
010600
104414
016702
010200
126027
001012
016200
006300
016016
012746
010600
104414
000413
116202
042702
006302
016216
012746
010600
104414
005726
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600
104414
000567
020127
001007
016746
012746
010600

SP,.RO
14
RET.ENSAD,R2
R2,RO

000002

3(RO), 2
Ss

000000G
000001

177740

2106

‘

i
:

SP,»
RET.ENSAD,

S$:

2111
2118

9177740,R2
R2

SMSCP.STRUCT(R2),(SP)

78:

14
(SP)+
228

8s:

B Spo‘
2105
2048

R1,041

8¢
EMSG.STRUCT+2,
-(SP)

2130

SP,»

24as
R1,051
9s

2048

2145

Spt.
2048

9s:

EMSG.STRUCT+12,
-(SP)

10¢:

SP,.RO
14
28%

2153

2048

R1,071

216l

000016G
000001

spo‘

12$
EMSG.STRUCT+14,
-(SP)

000014G
000001

000101

2114
2111

2114

EMSG.STRUCT+4,
-(SP)

000071

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS. 81634(10)

SP,.RO
14
6%
16(R2),R2

SP,.RO
14

000061

Page

SDUP STRUCT(RO),(SP)

6%:

000051

SEQ 0165

e1,-(SP)

000000G
000001

000041

VAX-11 Bliss-16 Vv3-555

16(R2) RO

000016

13:46:24
13:23:12

EMSG.STRUCT, -(SP)

000000G

000003

S-Apr-1984
11-Jan-1984

SP,»

11%:
12%:

2048
EMSG.STRUCT+16,
-(SP)

2169

e1,-(SP)

SP,.RO

SP,s

IK13
ZRCHBS
REV B PATCH 00
000436

104414
000576
020127
001007
016746
012746
010600
104414
000564
020127
001007
016746
012746
010600

104414
000552
020127
001007
016746
012746
010600
104414
000540
020127
001007

016746
012746

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

000201

138:
14%:

000020G
000001

000301

15%:

000022G
000001

000401

16$:

000030G
000001

000501

17%:
18%:

0000326
000001

19¢:
000034G
000001

VAX-11 Bliss-16 Vv3-555

SP,»
2048

2185

B SP..
2048

R1,0401

18$
EMSG.STRUCT+30,
-(SP)
14
33¢

2193

i SP,»
2048

R1,0501

194
EMSG.STRUCT+32,
-(SP)
14
33¢

2201

SP,s
2048

R1,0601

20$
EMSG.STRUCT+34,
-(SP)

2209

SP.‘
2048

R1,0701

21
EMSG.STRUCT+36,
-(SP)

21s:

22%:
23%:

SP.RO
14
33%

2217
:

SP,»
2048

R1,#1001

238
EMSG.STRUCT
+40, -(SP)

SP,.RO
14
33%
R1,04001
25%
EMSG.STRUCT
+46, -(SP)

2177

R1,4301
164
EMSG.STRUCT+22,
-(SP)

SP,RO
14
33¢

Page

2048

154
EMSG.STRUCT+20,
-(SP)
SP.RO
14
33$

SEQ 0166

SP1DERSUSERS: [NEALE.AZTEC JZRCHBS . 816:4(10)

14
33¢
R1, 201

14
33¢

000040G
000001

0000466
000001

11-Jan-1984 13:23:12

SP,RO

000036G
000001

004001

13:46:24

e1,-(SP)

000701

001001

S-Apr-1984

2225

SP,s
2048

2233

L13
ZRCHBS
REV B PATCH 00
000700
000702
000706
000710
000714
000720
000722
000724
000726
000732
000734
000740
000744
000746
000750
000752
000756
000760
000764
000770
000772
000774
000776
001002
001004
001010
001014
001016
001020
001022
001026
001032
001034
001036
001044
001050
001054
001056
001062
;:

000456
020127
001007
016746
012746
010600
104414
000444
020127
001007
016746
012746
010600
104414
000432
020127
001007
016746
012746

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

002001

SP,RO
14

268%:
27%:

006001

010077
104444
062706
000207

Routine Size:

177777
000004
177777
000000G

2285

2249

32%:

14
33¢
EMSG.STRUCT
+6, -(SP)

33s:

14
0-1,4(SP)

282 words,
Routine Base:
ACSCODE
invocation:
10 words

SP,s

29¢
EMSG.STRUCT+44,
-(SP)

14
33¢
R1, #6001
324
EMSG.STRUCT+54,
-(SP)

#-1,RO
RO,3RC25.ADDR
44
#10,SP
PC

000010

: Maximum stack depth per

2241

SP,»

2048

31
EMSG.STRUCT+50,
-(SP)

0000546
000001

0000066
000001

2048

R1,45001

30¢:
318:

2048

SP,.RO
14
33¢

000050G
000001

Page

33¢

e1,-(SP)

28s$:
29%:

SEQ 0167

SPIDER$USERS: [NEALE.AZTEC JZRCHBS. 816;4(10)

R1,43001

000044G
000001

005001

VAX-11 Bliss-16 Vv3-555

33¢
R1,02001
278
EMSG.STRUCT+42,
-(SP)

244
25$:

000042G
000001

003001

13:46:24
13:23:12

0404

2257
SP,»
2048

2265
SP,s
2048
2273

SP,s
« ,RC$S.REG
+ ,RCSM.REG

RCSM.REG,
»

2281
2282

1985

M13
ZRCHBS

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00 MODULE DECLARATIONS
3

11-Jan-1984 13:23:12

global routine DUPSI_SERVICE

:
:
:
:
:

2288
2289
2290
2291
ggg

!+
! Functional Description :
!
The transmission of a message will result in a host interrupt if and
!
only if interrupts were armed suitably during initialization and one
:
of the following conditions has been met:

2294

3
3

2299
2300

!
!

:
:
:
:
:
:

2295
2296
2297
2298
2301
3338‘3

!
!
!
!
!
:

:
3

2304
2305

!
!

:
:

2307
gssgg

!
:

:
:
:

2310
2311
ggg

!
!
:

:
H
:
3
:
:
:

2314
2315
2316
2317

!
!
!
!

2322

2325
2326
2327
g%

!
!
!
:

3
H

H
:
H
3
‘

3
:
:

:
3
‘

H
:
H
:
H
H
;

2306

2318
2319
gssgg

2323
2324

2330
2331
2332

2333
gggg

2336
2337
2338
2339
2340
2341
2342

!
!
:
!

!
!

!
!
!

1Signals receive queue entry

The message was a command with F=1 and the port's fetchi

caused
the
command ring to transition from full to not-full.
(This interrupt means that the host may place another command
in the ring.)

The message was a response with F=1 and the port's depositing
it caused the response ring to transition fron empty to not-

empty.
(This
interrupt
the host to process.)

means

that there

is a response for

The port
is
interfaced to the host via a bus abapter and a
command requires
the port/controller
to
re-access a given
location

during

data transfer.

(This

the
port/controller
is
requesting
the
indicated chanel of the bus adapter.)

interrupt means that

host

to purge the

This
interrupt
service routine is entered when any of the above
conditions
occure. When
entered it will be determined what type
interrupt was executed and take the necessary action.
Formal Parameters
none
Implicit Inputs

Nrd_slot:

Implicit Outputs

Ret_status:

A global flag which points to the next receive descriptor
slot where the port/controller should be polling on and
where to expect the first response packet to process.
:

Outsstd_buf:

!
:
.

INT_LNKSTYP novalue =

! Completion Codes
¢
none
!
! Side Effects :
!
none
!'--

SEQ 0168

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS. 816;4(11)

ggg?

VAX-11 Bliss-16 V3-555

This uslob.l
flag
is the mechinism by which these DUP
and
Port protocol routines pass status code back to
to
the
host
routine's requesting communications over
the
established
connections.
The status returned is
decoded by
the
caller
to determine if an error or bad
response packet status was discovered.
This buffer
is used to save all commands issued
port
and are considered outstanding when in this
This interrupt service routine will indicate this
is
nolonger
outstanding by setting the rec_flg
slot
matching this response envelope command ref

to the
buffer.
command
in the
number.

;

N13

WS B0 B0 B0 B0 B0 B0 B0 B0 B0 B0 B0 B0 B0 B0 S0 B0 90 B0 G0 B0 S0 S0 S0 B0 B0 B0 G5 B0 B0 B¢ B0 S0 B0 B0 B0 B¢ B8 B0 G0 G0 B0 B4 S0 Ss G0 B G S B0 B8 G4 S Ge S B o

S
V B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

2343

begin

2345
2346

local
TEMP,

2344

2347

S-Apr-1984
11-Jan-1984

!{Found command flag

REF _NUM;

!Stores response packets cmd ref number

2350

2352

2354

! error and kick the bucket.

2358

then

2351

2353

2355
2356
2357

2359

! Before this

look

! posted.

errors posted then report the

.RC25_ADDR [RCSA, ERR_BIT)

!Are there any errors posted

RET_STATUS = PFE_CODE;
DECODE ();
return;
end;

2365

2368
2369

! We could have a:
:

ggg

If there are

2360
2361
2362
2363
2364

interrupt service routine does anything

at the SA

See what kind of

!Indicate the error type
!Decode and print the error
tJust for show. Decode will kill it

interrupt got us here.

2370
2371
2372
2373
2374

:
H
!
!
H

1.
2.
3.

2376
gg;z

:
:

4. Or an unknown interrupt not known by this program
which
also
results
in a fatal controller error.

2379
2380

2375

Response
ring
transition
interrupt.
Send
ring
transition interrupt.
A
adaptor
purge request
interrupt
(which is
illegal
running
under
the
PDP-11 Diagnostic
supervisor and is flagged as a fatal controller

error.)

2381

2383
2384

! Check to see if we get here because of a response ring
! transition
interrupt.
This is more likely to be the

2382

2387

2388
2389
2390
gggé
2393

: most frequent

interrupt so check

it first.

if .HEAD_AREA [RSP_INT)

then

(.EE _NRD ();
! Check the host

!Get the resp slot location to process
protocol for being out of sequence

2394

! with the controller by

gggg

: envelope at this ring slot to process.

2395
2398

2399

making sure that this slot

! is owned by the host znming that there is a resp

if .RECEIVE RING [.NRD_SLOT, OWN_BIT] nequ HOST OWNED

SEQ 0169

VAX-11 Bliss-16 V3-555
Page
25
SPIDERSU
[NEALE .AZTEC)ZRCH
SERS
BS.B16;4
: (11)

!Holds nrd_slot ¢+ 1 reference

FOUND_CMD,

53328

13:46:24
13:23:12

!Is this owned by host

Bl4
ZRCHBS

REV B PATCH 00

2400

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

MODULE DECLARATIONS

then

11 Jan-1984

VAX-11 Blies-16 v3-555

13:23:12

2401
2402
2403
2404
2405
2406
2407

H
3
:

2411
2412
2413

L
! Per DUP protocol
once interrupted
due
to
a response ring
! interrupt, the host code should process all response peckets
! found
in the response
ring.
This while loop will continue
! to process the response packets
in
the response ring until
! none remain,
-

_‘2’:{2

while T?\E do

:
3
:

2408
2409
2410

2414

H
3

:
3

3
:

!Process all response packets

in ring

g:{;
2419

e
!

AK;

‘Look

Load the

Reference structure

!
:

done
to
eddress
the first word in
end is equal to lecetion “text-4"),

2420

! of this response

g:gg

RET_ENSAD

2426

2421
g:gg

!Host/port ies cut of sequence
!Load a "Port sync error” code
!{Report the error end kick the bucket
fJust for show Decode kilils it

+« PSE_CODE;

S:g;

2429

2430

envelope

for control c's

"Ret_entad” with the address

to process (The minus %0'4’
the envelope

packet

(.RECEIVE_RING [.NRD_SLOT,

Test the end packet

End mess

opcodes

message

leg

for

LO_ENSAD))

#o0'4’';

its possible three end types.

(also celled endcodes) are formed by

the

command opcode.

For

example,

adding

the end

& READ commands end

3
:

2431
2432

g:g;

;

2436

! Commands opcode bite 6 and 7 indicate the type of messege (command, end or

H
:

2438
S:zg

! cotegory
(immediate, sequential
or no-sequential) and whether or not the
: command includes a buffer descriptor.

g::é

2433

2437

‘

3
3

H
3
H
H

3
:
H
3
H
3
H

2443
2444
2445
2446

!
!

message containg the velue OP.RED + OP.END in its opcode field.
command
end
contains just the end message fleg (i.e.,

its opcode field.

OP.END)

attention

[ENDSMSG)
begin

2455

2456

Command opcodes bits 3 thr

appendix

“A-1 NOTE:”

.RET _ENSAD [TYPSMSG)

2447
2448
2449
2450
2451
2452
2453

2454

he serious exception opcode shown above (i.e.

See MSCP document

selectoneu
set

The Invelid
OP.END) in

its opcode field.

message.

for more

!Select

information on this

the endpacket

size

1o
! Select off of the endcode to make sure the communications
! mechanism
transfered the co~rect number of byte for this
! end
pecket.
If
this
number of bytes transfered is not

code

for

into

the commands end packet then load the error

return

status,

cell decode to report

! error and kick the bucket and die.

OP.SEX

.«

iidicate the command

!Is this an end code packet

! correct

Page

SPID:ERSU
[NEALE ,AZTEC SERS
JZRCHBS .B16;48 (11

:
:
:
:
3
:
3

bovin
RET_STATUS
DECODE (),
return;
end;

SEQ 0170

the

This endcode is formed

topic.

Cl4a
ZRCHBS

REV B PATCH 00
3

2457

2458

:
H
:

2462
2463
2464

:
:
:

H
H
:
3
H

2459
2460
2461

2465
2466
2467
2468
2469

2470

H
:

2471
2472

:
H
H
:
H
H

2474
2475
2476
2477
2478
2479

2480

3
:
:
H
:
3
H

2481
2482
2483
2484
2485
2486
2487

3
H
:
:
H
H
:
3
H
H

2482
2490
2491
2492
2493
2494
2495
2496
2497
2498

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

S-Apr-1984 13:46:24

MODWE DECLARATIONS

11-Jan-1984 13:23:12

! by adding

the

opcode.

[EOP_RED)
begin
if

2501

2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513

message flag %0'200'

S£0901 ) 27

SPIDERSUSERS: kEALE.AZYEClZRCHBS.Bl6s=°?11)

to the commands

.RET_ENSAD

then

[(MSG_LENGTH)

_STATUS

DECODE ();
return;
end;
H
!

nequ ESZ_RED

!Is

the byte count

correct

bovin
RET

MLE _CODE;

!Return

"message

length error code”

‘Report the error and kick the bucket
!Just for show.
Decode kills it

end;
"SEND DATA"

H
(EOP_SED]
begin

command end packet

if .RET_ENSAD
then

24RA3

gggg

end

VAX-11 813’9-?6 v3-555

selectoneu .RET _ENSAD [ENDCODE) of
aet
4
! "RECEIVE DATA” command end packet
H

2473

ZRCHBO RC2S DISK FORMATTER

[MSG_LENGTH)

nequ ESZ _SED

!Is

the byte count correct

bovin

RET _STATUS
DECODE ();
return;
end;

end;
¢
! GET DUST
b

(EOP_GO§)

STATUS"

MLE CODE;
!Return a "message length error code”
'Report the error and kick the bucket
tJust for show.
Decode kills it

command end packet

if .RET _ENSAD (MSG_LENGTH) nequ ESZ _GDS
then
beg:'n
RET _STATUS
DECODE ();
return;
end;

4
!
H

= MLE

!Is the byte count ¢

CODE;
!Return a "message length error code”
'Report the error and kick the bucket
tJust for show.
Decode kills it

end;

"EXECUTE SUPPLIED PROGRAM" command end packet

ect

D14
ZRCHBS

REV B PATCH 00

:
:
:

3
:
:
3
:
3
H
:
H
:

‘

3
:

2514

2515
2516

2517

2519
2520
2521
2522
2523
2524
2525
2526
2527

gggg

2530
gg;é

2549

H
H

2559
ggg?

3
H

2562
2563

H
H
H

2565
2566
2567

s
:

H
z

2564

2568

2569
2570

VAX-11 Bliss-16 V3-555

.RET_ENSAD

("SG_LENGTH) nequ ESZ _ESP

!Is the byte count correct

= MLt _CODE;
!Return a "message length error code”
!Report the error and kick the bucket
fJust for show.
Decode kills it

end;
"EXECUTE LOCAL PROGRAM" command end packet

(EOPSE:EI

if .RET_ENSAD [MSG_LENGTH) nequ ESZ ELP
then
bovin
RET_STATUS
DECODE ();
return;
end;

!Is the byte count correct

= MLE_CODE;
!Return a "message length error code”
'Report the error and kick the bucket
tJust for show.
Decode kills it

end;

H
!
!

"ABORT PROGRAM” command end packet

[EOP_ABT)

if _RET_ENSAD [MSG_LENGTH) nequ ESZ _ABT
!Is the byte count correct
then
in
RET _STATUS = MLE CODE;
!Return a "message length error code”
DECODE ();
!Report the error and kick the bucket
return;
fJust for show.
Decode kills it
end;

H
s

end;

"SET CONTROLLER CHAR” command end packet

[EOP_SCC)

begin

if RET_ENSAD [MSG_LENGTH) nequ ESZ _SCC
then

!Is the byte count correct

b.vin

RET _STATUS
DECODE ();

= MLE CODE;
'Report

""92},12 2

SPIDERSU
[NEALE .AZTEC
SERS
)ZRCHBS.B16;
:
:4 (11)

2550
2551
2552
2553
2554
2555
2556
2557
2558

;

13:23:12

then
begin
RET_STATUS
DECODE ();
return;
end;

2533

2540
2541
2542
2543
2544
2545
2546
Sg:;

H
H
:
3
3
H
5
H
3

2534
2535
2536
2537
2538
2539

H
3
H
3
H
3
3
:

S-Apr-1984 13:46:24

11-Jan-1984

[EOP_ESP)
in

2518

:
:
3
3
3
H

ZRCHBO RC25 DISK FORMATTER

MODU
< DECLARATIONS

!Return a "“message length error code"
the error and kick the bucket

El4
ZRCHBS

REV B PATCH 00

:
:

3
3
3
3
:

:
:
H

2579
2580
2581

:
3
:

3
3
3
3
:
3
:

3
:
H

:
H
H
3
:

2578

2585
2586
2587
2588
2589
2590
2591

2592
2593
2594
2595
2596
2597
2598
2599
2600
2601
2602
2603
2604
2605
2606
2607
2608

H
3
3
H
H
3
H
H
H
s
3
3
s
H
H

2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
2621
2622
2623
2624

H
H

11-Jan-1984

return;
end;
!
!
!

2609

2625
2626
2627

13:23:12

tJust for show.

VAX-11 Blies-16 v3-555

Decode kills

"ON LINE” command end packet
:

if .RET_ENSAD [MSG_LENGTH) nequ ESZ_ONL
!Is the byte count correct
then
b‘?in
RET_STATUS = MLE_CODE;
!Return a “message length error code”
DECODE ();
'Report the error and kick the bucket
return;
!Just for show.
Decode kills it
end;

end;

" The
"OP_END"
end message flag all by its self tells
. us that the controller is
flagging us
of an illegal
! command sent over the connection.
Error and kick the
! bucket.
!
(OP_END) :
in

H
!
!
B

RET_STATUS
DECODE ();
return;
end;

IVC_CODE;

The controller is telling us that a serious exception
has occured.
Error and kick the bucket.

(EOP_SEX)

H
!
H

b‘vin
RET_STATUS
DECODE ();
return;
end;

SEx_CODE;

Unknown end packet endcode type

[otherwise) :
bovin
RET _STATUS
DECODE ();
return;
end;
tes;

SEQ 0173

Page

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHBS.B16;:4

end;

[EOP_ONL)
begin

2582
2583
2584

:
3
:
:
H
3
3
H
H

S-Apr-1984 13:46:24

2571
2572

2573
2574
2575
2576
257?

ZRCHBO RC2S DISK FORMATTER

MODUWLE DECLARATIONS

= UEC _CODE ;
'Return an "unknown end code"”
!Report the error and kick the bucket
tJust for show.
Decode kills it

(11)

F14
ZRCHBS

REV B PATCH 00
:
:

:
:

ZRCHBO RC2S DISK FORMATTER

MODULE DECLARATIONS

2628
2629

3
:

:
3
:

11-Jan-1984 13:23:12
!
!

! out$standing buffer and
! has been received.

gggz

REF_NUM

_RET_ENSAD

[CMD_LREF);

!Get

!
5
!

2638
2639

!
!

Search
the outstanding
reference number.

this rec packets cmd ref number

commend buffer for

this commands

If
found,
load
the
buffer location with the ret_entad
and set the received
flag
to signify that
this command
has been received by this interrupt service routine.

ggao
41
gg:g

!
H
FOUND_CMD

gg:;

incru

= FALSE;

!Clear the found cmd flag

:
3

3
3

:
:
:
:
:
:
3
3
H
3
H
3
:
:
3
3

:
:
:
H
3

2646

:
3

H
3
:

H
3
H
H
H
:
;

2647
2648

!
!
!
!
H

2674
2675

2676
2677

2678
2679
2680
2681
2682
2683
2684

REC_ALLOCATE

!Search

.OUTSSTD BUF [.i, CMD_REF) eqlu .REF _NUM

the

the search

[.i, REC_FLG) = TRUE;
!Indicate command is received
[.i, ENV_ADR) = _RET_ENSAD;
!Return envelope adrs
TRUE;
!Indicate it was found
!Exit the loop

through

the

command ref

buffer failed to find this commands cmd
reference number then die.

end;
H

!
!

The

controller

characteristics command

disabled the reporting of attentions messages
so
treat
this
as
a
fatal
error and die.

[ATTS$MSG)
begin

H
!
!

'End of ENDSMSG processing

set

RET_STATUS
DECODE ();
return;
end;

buffer

'Is this the comd ref

if not .FOUND_CMD
then
boyin
RET_STATUS = PSE _CODE;
DECODE ();
return;
end;

2665
2666
2667
2668
22233

2672
2673

OUTS$STD BUF
OUTS$STD BUF
FOUND_CMD =
exitloop;
end;

2660
2661
266
2663
2664

2671

from O

then

2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659

!Attent ion end message type

= ATN CODE;

It doesn’'t make any since for this ¢nd message
packet not to have the end message flag added

SEQ 0174

Page

SPIDERSU
[NEALE .AZTEC
SERS
JZRCHBS.B16
:
;4 (11)

‘ndicate to them that the command

2635
gggg

VAX-11 Bliss-16 v3-555

The port/controller sent the endpacket over the connection
with out any problems.
Now find this commands owner in the

2630
gggé

H
3

S-Apr-1984 13:46:24

G114
ZRCHBS

REV B PATCH 00

2685

2689

2692

:
3
:
3
3
:

2696

:
:
3
:
:
3
3

:
:

3
3
:

3
B

:
:
H
3
H
H
:

in
RET_STATUS

DECODE ();

S;{i
g;{;

!
H

;

!
!
!
!

Before
we
leave
put this receive envelope message length
field
back to the
envelope
size,
in bytes (Per UQ Spec).
This
size does not include the 2 UQ's words preceeding the
command text
area.

RET_ENSAD
!

3
H
s

[MSG_LENGTH]

g;ég

RECEIVE _RING

H
H

!
!
!
!
!

[.NRD_SLOT,

OWN_BIT)

= PORT_OWNED;

Look at the
next response ring descriptor.
If its
host owned then continue this process else exit the
loop.
First see if the ring reference has
wrapped
around to the top of the ring.

.NRD_SLOT

¢«

1 gtru REC_ALLOCATE

then

else

2733
g;g;

!
! Now see

2739
2740
2741

= RB_SIZEe2;

Return
this receive slot descriptor back to
the port to fullfill my part of the protocol.

2729
2730
3;:5

2736

!Unknown message type code received

tes;

!
!

g;g;

is of unknown origin so

is as a fatal error and die.

(otherwise] :
bo?in
RET_STATUS = UEC_CODE;
DECODE ();
return;
end;

TEMP

= ZERO

TEMP =

3
H

= CMD_CODE;

This end code type

treat

2716
g;{;

2721
2722
2723
2724
2725
2726
g;gz

it as a fatal

end;

_NRD_SLOT
if the next

_.RECEIVE_RING [.TEMP,

then

else

!Has the ring ref wrapped around

'Wrap

it back

!Look

at the next seq dsc slot

receive descriptor slot

to zero dsc slot

is host owned.

OWN_BIT) ealu HOST _OWNED

!Are we done yet

GET_NRD ()

!Cet

exitloop;

!No more to do so exit

the next

resp desc

SEQ 0175

Page

SPID:ERSU
[NEALE .AZTEC SERS
JZRCHBS.B16;4

return;

2697
2698
2699
2700
2701
2702
2703
2704
2705

3
3
3

to this command opcode as treat

13:23:12

VAX-11 Bliss-16 v3-555

[(CMD$MSG] :

2695

2706
2707
2708
2709
2710
2711

11-Jan-1984

error and die.

2693

:
3
:
:
H
:
3
3
3

!
!

2690
2691

2694

S-Apr-1984 13:46:24

MODULE DECLARATIONS

2686
2687
2688

:
3

ZRCHBO RC2S DISK FORMATTER

to process

(11)

H14
ZRCHBS
REV B PATCH 00
:

:
3
:
:
H
:

ZRCHBO RC2S DISK FORMATTER
MODUWE DECLARATIONS

2742

S-Apr-1984
11-Jan-1984

SEQ 0176
VAX-11 Bliss-16 Vv3-555
Page
32
SPIDERSUSERS:
[NEALE .AZTEC)ZRCHBS.B16;:4 (11)

2743
2744
2745
2746
2747
g;:g

!
! All response ring descriptors have been processed with out any
! detected errors so return to the main host code with
an pass
5 return code. But before we go clear out the interrupt indicators.

:
3

2750
2751

HEAD_AREA [RSP_INT) = ZEROS;
HEAD_AREA [CMD_INT] = ZEROS;

2755

H
H
:
:
:
:
:
:
:
H
:

2756
2757
2758
2759
2760
2761
2762
2763
2764
2765
2766

:
:

H
:
:
3
3

end;

13:46:24
13:23:12

2752
g;gz

2767
2768
2769
2770
g;;g

'End of WHILE LOOP

!Clear the interrupt indicator location
!Clear out the indicator

return RET_STATUS = PAS_CODE;
end;

!Return a “pass code

1000080000000 0000002040END OF RESPONSE RING

INTERRUPT PROCESSING#tssssssssssnsssssss

e
! A send ring transition
!

interrupt could happen if at
some date only one descriptor slot is allocated for

! commands.
H
! Clear the

interrupt indicator
! a return with no errors.
!if .HEAD_AREA [CMD_INT)
then
boxan
HEAD_AREA [CMD_INT]
return;
end;

if this

is true and do

!Is this a com ring transition
=

ZERO;

interrupt

!Clear out the indicator
!Continue on with the host code

:
:

2773
2774

120000000880 0040000000004END OF COMMAND RING INTERRUPT PROCESSINGetsssssssssssscssss

2776

2775

2777

during PDP-11

2778

2779

:
3
3
5
H
H
3
3

2780
2781
2782
2783
2784
2785
2786
2787

g;gg

H
3

3
3
;
:
‘

H
3

2788
2791

2792
2793
2794
g;gz
2797
2798

Check

to see

if an adaptor purge

the port/controller

of &

issued command.

in order

is being requested

to complete excution

Remember that this

formatting and

is concidered

illegal

to be a

! fatal error.
!if .HEAD_AREA [ADP_CH) nequ ZERO
then
in
RET_STATUS = APR_CODE;
DECODE ();

return;

end;

10000000000000000000020404END OF

!Is the an adaptor purge request?
!Indicate the error code
!Report the error and kick

tJust for show.
ADAPTOR PURGE

INTERRUPT PROCESSINGesscscccsssscsscscssean

L
! The host program has been interrupted by an unknown
s source if the routine program flow reaches here.
.

! Load the error code
! appropriate action.

the bucket

Decode kills it

interrupt

into return status and call decode to take

114
ZRCHBS
REV B PATCH 00
2799
2800
2801
2802
2803
2804

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS

000010

RET_STATUS = UIN_CODE;

return;
end;

.SBTTL
DUPS$I.SERVICE MODULE DECLARATIONS
DUPSI.SERVICE::
MOV
RO, -(SP)
:
MOV
R1,-(SP)
MOV

MOV

000000G
000002
000021

000000G

000001

000006

000550
176424

000000G

000114
000116

1$:

2s%:

100000

000002

000061

000000G

33:
4% :

000140

BR
MOV
BIT
BNE
JMP

9
HEAD.AREA,RO
@1,6(RO)
24
21

MOV
ASL
ASL
ADD

NRD.SLOT,RO
RO
RO
RcCEIVE.RING,RO

JSR

BIT
BEQ
MOV
BR

TRAP
MOV

000212
000216
000220

156102
020227

001007
021127

177774
000002
000014
000205
000060

€21, ,RET,.STATUS

PC,.GET.NRD

€100000,2(R0O)
4%
#61,RET.STATUS
16

22
NRD.SLOT,RO

ASL
ASL

RO
RO

MOV
SUB

(RO),RET.ENSAD
04 ,RET .ENSAD
RET.ENSAD,R1
14(R1),RO

MOV
MOVB

042700
020027
001121
005002

R4, -(SP)

RS, -(SP)
RC25.ADDR,RO
2(R0O), -(SP)
14

MOV

ASR
ASR
ASR
ASR
ASR
ASR

BIC
cMP
BNE
CLR
BISB
cMP
BNE

2286

R2,-(SP)

MOV
MOV
MOV
BPL

ADD

000172
000176

SEQ 0177
VAX-11 Bliss-16 Vv3-555
Page 33
SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS.B16;4 (11)

DECODE ();

010046
010146
010246
010346
010446
010546
016700
016046

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

+«,RC$S.REG

2357

2360
2361
2388

:
3

2391
2399

:
H

2402
2403

2444

2461

:
:

3
3

2416
2424

RECEIVE.RING,RO

RO
RO
RO
RO
RO
RO

177774 ,RO
RO, @2
143

14(R1),R2
R2,0205
64

2470

J14
ZRCHBS
REV B PATCH 0O
000224
000226
000234
000236
000242
000244
000250

001453
012767
000520
020227
001766
020227
001763
020227
001760
020227
001755
020227
001752
020227
001747
020227
001744
020227
001004
012767
000565
027227
001004
012767
000556
012767
000552
016700
016005
005004
005000
005001
156001
020105
001011
052760
016760
012704
000405
062700

000071

0V0000G

000204

68:

VAX-11 Bliss-16 V3-555

2502

R2, 0202

2461

2461
2518
2461
2534
2461
2550
2461
2566
2461
2582
2461

5%
R2, 4203
5%
R2, 4206

000204

000211
000200

000701

78:

000601

000000G

000101

000000G

000000G
000004

8s:
9s:
10¢:

11%:

000000G

100000

8¢
9601 ,RET,STATUS
24
0101 ,RET.STATUS
248
RET.ENSAD,RO
4(RO),R5

OUYOSTO BUF(RO),R1
R1,R5
124

o(I),»

000074
000000G
000000G

13¢

2622
2633
2642
2644
2646

« ,REF .NUM

¢, o(I)
a,s(I)
¢ ,FOUND.CMD
s,
I

2649
2650
2651
2648
2644

13%:

#4 ,RO
RO, 214
118
1,.R4

14%:

RO, 01

2664
2444

15¢:

0401 ,RET,.STATUS
24
RO

2678
2679
2444

12%:

000000G

¢ ,REF .NUM

EOUND.CHD

€100000,0UT$STD.BUF(RO)
RET.ENSAD,OUTS$STD.BUF
+2(RO)

000000G

2611
2612
2621

R4
RO

#1.R4

000501

2600
2601
2461

000000G

000207

5S¢

R2, 4204

000202

000206

Page

2473
2474
2461
2486

R2, 0201

000203

SEQ 0178

SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS. 816:4(11)

10$
@71,RET.STATUS
164

000201

020027

101755
032704
001016
000620
020027
001004
012767
000506
005700
001326
012767
000500
012777
016700
006300
006300

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

16%:
17¢:

178
33

8s
0501 ,RET,STATUS
244
@74 ,8RET .ENSAD
NRD.SLOT,RO

RO
RO

I,»

+ ,FOUND.CMD

2661

2691
2692
2714
2719

K14
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

000516
000522
000530
000534
000536
000542

000000G
100000
000002
0000006

;

005726
012605
012604
012603

ggfl.SLOT.RO

«,TEMP
TEHP *

4(RO)

2751
2752
2390

HEAD.AREA,RO
6(RO)

22%:

000201

000000G

000301
176010

000000G

" 238
24s:

25%:

234 woros,
AC$CODE
Rout ine Base:
invocation:
13 words

2769
2768

2783
we

000000G
000003

2766

RET.STATUS
254
HEAD.AREA,RO
01,4(RO)
228
4(RO)
254
HEAD.AREA,RO
3(RO)
23%
9201 ,RET.STATUS
244
#301,RET.STATUS
PC,DECODE

21$:

2729
2727
2731
2737

2739
2737
2750

012601
012600
000002

2805

TEMP

PC.GET.NRD
4%

012602

Routine Size:

2727

18%
R3
19¢
RO,R3
R3,RO
RO
RO
RECEIVE.RING,RO
01?0000.2(R0)

18¢:
19¢:

: Maximum steck depth per
;

RECEIVE.RING,RO
#100000,2(R0O)

000003

SEQ 0179
Page
3

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816.4(11)

000645
000650
000654
000660
000662
000670
000672
000700
000704
000706
000710
000712
000714
000716
000720
000722

VAX-11 Bliss-16 V3-555

000614
000620
000624
000626
000632
000640

13:46:24
13:23:12

000544
000546
000550
000552
000554
000556
000560
000564
000572
000574
000600
000604

066700
052760
016700
005200
020027
101402
005003
000401
010003
010300
006300
006300
066700
032760
001004
004767
000167
016700
005060
005060
005067
000427
016700
032760
001403
005060
000416
016700
105760
001404
012767
000403
012767
004767

S-Apr-1984
11-Jan-1984

1470

2786
2787
2801
2802
2286

L14

This routine

complete
the
Formal Parameters :
TO_VALUE

is called to

the port/controller to either

interval for this command.

This argument contains the unique reference number

rout

ine

This argument points to the out$std_buf location

where this command

is saved.

this location the

received fl
“rec_flg” bit is examined within the
the timeout
loop and when it equals true will
signal that this command has been received by the

B¢
S
G0 S0 S0
G0

interrupt service routine.

:
:

word

in the out$std_buffer

'word zero of a command

is cleared out with the value %0'100000’'

is an unused outs$std_buffer

!Controller time out wait

or time out the command.

Indicate the time-out

BUFSLOC

The command

slot and

that

indicate this

can

be reused.

B¢

S0 G0

Completion Codes :
There are
two
levels of return
status
returned
by
this
routine.
ks
The
DUP interrupt service returns to
this routine a status code
to indicate the success of the connection/communications mechanism
to complete
the queued command.
If the port/controller does not

G6 S0

2.
2839

for

return status

error

the

port/controller times out

examined

error

code

for the

the next higher

is returned as this routines

then the SA Register error bit

bit set.

returned to the calling

time out error code is returned.
In
all
ceses, if
an error
code is
routine
decode
is called
to decode
necessary recovery actions.
At

time
out
then
this
return status code.

If set

then an port

fatal

routine else a controller

returned
(bit O = 1) then the
the
error code
and does the

level of return from this routine

is another

level

G¢

of
return status
returned.
This
level test
the
success of the
connection
end
also test t e status
field in the returned response
envelope for
the
success of
the controller to successfully complete

the requested command.

Side Effects

none

2851
2853

Before doing the timeout wait make sure that this buffer location

that we're suppose to time out actually
contains the command ref
number
that was sent to us via
the formal argument.
Error
and
kick the bucket if not the same.

2855
2856
2857
2858
2859
2861
2862

i:‘GOUTtSTD_BUF [.BUFSLOC,

CMD_REF] nequ

.REF _NUM

SEQ 0180

Page

SPIDER$USERS: [NEALE.AZTEC)JZRCHBS. 816:4(12)

no'u:gnod to this command being timed out by this

none

G0
G0 S
B0 G0 G0 G5

wait

gqueued command

REF _NUM

slot’'

VAX-11 Bliss-16 Vv3-555

Functional Description

Implicit Outputs

11-Jan-1984 13:23:12

global routine CTO_WAIT (TO_VALUE, REF_NUM, BUFSLOC) =

Implicit Inputs

S0 B0

S-Apr-1984 13:46:24

MODULE DECLARATIONS
Ld

2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819

ZRCHBO RC25 DISK FORMATTER

S0 B0 G0

S0 S¢S

90 8¢

90 W

ZRCHBS
REV B PATCH 00

'ls this the same ref_num

M14
S-Apr-1984 13:46:24

11-Jan-1984 13:23:12

SE?_STAYUS = OSE_CODE;

VAX-11 Bliss-16 V3-555

!Indicate the error code
1Call decode to report the error

DECODE ();

end;

Loop
on
a one
micro
second delay for
the
number of times
requested
by
the
cealler.
After
each
delay see
if the flag
"rec_flg” has
been set
yet.
Return
“Ret_ .totuo” and clear
the

' to
indicate
this command has been
command
word
to ®o'l
received
if
this
flag
gets
set
before
the
timer
expires.
Return a error code if the timer expires before the flag gets set.
incru i from O to
begin

.TO_VALUE do

‘Loop for time-out_value

DELAY (C_US);

Do the one micro second delay

S8 S0

G0 G

Exit routine with the DUP interrupt service routines
"rec_flg"”
got set before the timer expires.
.OUTSSTD_BUF

[.BUFSLOC,

REC_FLG) eqlu TRUE

"ret_status”

'Is this command received yet

G0 G0

OUTSSTD_BUF [.BUFSLOC, CMD_WRD)
return

= so’' 100000’ ;

'Return the

'Return the slot to the unused state

interrupt service status

end;

.RET_STATUS;

Check the SA register for posted port errors just
interrupt

in case the

the host when a port error occurs.

98 G

port does not

S8 G¢

.RC25_ADDR [RCSA,

ERR _BIT]

then return RET_STATUS = PFE_CODE;

BREAK;

!Service any control C's

GF S

end;

here.

Return an error

The port/controller timed out if the code reached
code to the caller and exit the routine.

S0 B9
B0
90 90
W%

.RC25_ADDR [RCSA,

then

2910
2911

else

2913

end;

!Is the SA error bit set

ERR_BIT]

return RET_STATUS = PFE_CODE

Port timed out with fatal error

return RET_STATUS = CTO_CODE;

Port just timed out

.GLOBL

LsSDLY

.SBTTL

CTO.WAIT MODULE DECLARATIONS

SEQ 0181
Page
37

SPIDERSUSERS: [NEALE.AZTEC ]JZRCHBS . 81634(12)

2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876
2877
2878

ZRCHBO RC25 DISK FORMATTER
MODULE LECLARATIONS

S0 GF

GF O

S¢S0

S0 S

S0 @0

ZRCHB S
REV B PATCH 00

N14
ZRCHBS
REV B PATCH 00

MODULE DECLARATIONS

000000

004167

0000006

162706

000006
000020

016600

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

CTO.WAIT::

VAX-11 Bliss-16 V3-555

SEQ 0182

Page 38
SPIDERS$USERS: [NEALE.AZTEC )ZRCHBS.B16;:4 (12)

R1,$SAVE3

2806

s BUFSLOC,»

2861

RO
Q0UT$STD.BUF
,R3
RO,R3
RO

(R3),RO

?2.22(59)

18:

000070
000072
000076
000100
000102
000104
000106
000110
000112
000116
000122
000124
000130
000136
000140
000144
000146
000150
000152
000156
000160
000164
000170
000172
000176
000202
000206

2864
2865
2877

#1,R1

s, $8TMP2

2879

63
L$DLY,RO
S$
4(SP)
RO

43
R1

S$:

3
(R3)

6$:

& ,REF .NUM

#3001 ,RET.STATUS
PC,DECODE
R2

10¢

2%:
3s:

‘

4,88TMP1

$S$TMP
$STMPL

$$TMP2

2885

78
@-100000, (R3)

2888
2887

QSI.STATUS.RO
7%:

RC25.ADDR,RO
g£a0).a(sp)

8$:

11
22

108:

000011
000000G
000006

118:

I
I,.7T0.VALUE

RC25.ADDR,RO
2(R0O),(SP)

+,RC$S.REG

RTS

2877

2907

#11,R0

2909
2911

06,5P
PC

2806

RO,RET.STATUS

Routine Size:
68 words,
Rout ine Base:
ACSCODE
;i Maximum stack depth per invocation:
9 words

2914

ge.ZQ(SP)

12%:

2897

21,R0

9s:
101737
016700
016016
100763
012700
010067
062706
000207

+,RC$S.REG

2414

B15
ZRCHBS

ZRCHBO RC25S DISK FORMATTER

S-Apr-1984 13:46:24

VAX-11 Bliss-16 v3-555

REV B PATCH 00

MODWE DECLARATIONS

:‘:‘:{2

globel routine ABORT

2917
2918
2919
2920
2921
2922

tes
! Functional Description :
!
The
abort progrem
commend is used to terminate the execution of a
!
remote
program in an orderly
fashion.
When a successful response
!
is
received
to
this command
the remote
rogram
has
stopped
!
erecuting
and the
server is in idle state.
te thet the sending

11-Jan-1984

=«

13:23:12

:
:
:

:
:
3
:
:
:

:
:

3
:
:
:

H
H
3
H
:

:
:

3
:
;
:

923
c924
2925
2926
2927
2928
2929
2930
2931
2932
2933
2934

2935

2940
2941
2942
2943
2944

!
!
!
!
!

2936
2937
2938
2939

2945
g:g

2948
2949
2950
2951

H
:

;

:
3

!
!
!
!
!
!
!
!
!
!
¢
!

!Aborts remote program

2954

2955
2956

2957

of this command does not preclude further send data or receive date
exchanges: On the
contrery, the
remote program may be designed to
send
out termination status and possibly
even ask questions during

its forced-exit sequence.
The time out
for this command is & fixed
i9
seconds
end
if
&
response
is
not
received by then the
connection to
the dust should be terminated.
This commend is only
legal if the dust is in active state.

Formal Parameters
none
Implicit

!
!
!
!

!
!

‘

3
H
3

!Stores unique cmd ref number

!Stores outistanding cmd buffer location

TEMP;

!A plece to put the read IP register data

! Before we load up the command packet up with all this good information get
thenext send descriptor slot

and a unigque command reference number.

GET_NSD ();

ggg;

2970
2971

the controllers DM machine will

ABO_BUF $LOC,

l.REF_M.H =

2969

locel
REF _NUM,

Sggz

the routine

begin

2964

Return status passes back to the calling routine
the stetus of the just issued command.

! Side F*
s *s :
!
Any remote program running
!
be aborted.
!--

gggg

loaded

global Ltorage gets

‘Get _nsd’
end
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.

RET_STATUS:

‘

This

Completion Codes

2960
2961

s
s

Implicit Outputs
none

2958
2959

Inputs

NSD _SLOT

!GCet the next send desc slot

GET _CMDSREF ();

!Get & unique command ref num

UQ Port command envelope Header

field definition

SND _ENVELOPE [ .NSD_SLOT, MSG_LENGTH]) = SZ ABT,

SND _ENVELOPE
SND _ENVELOPE

[ .NSD_SLOT, CREDITS) = ONE;
[ .NSD_SLOT, MSG_TYPE) = 0;

!Load the length of envelope

‘Load credits
!Load message type

Page

SPID:ERSU
([NEALE .AZTEC SERS
JZRCHB5.B16;4 (13,

:
:
:
3
:
:

5EQ 0183

C15
ZRCHBS

REV B PATCH 00
3
:

22:;’5

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

MODULE DECLARATIONS

11-Jen-1984 13:23:12

?'O_ENVELCPE [ .NSD_SLOT,

CONN_ID)

= DUP;

!Load connection ID

gg;;

! DUP command envelope field definition

2976

SND _ENVELOPE }.NSD_SLOT. CMD_LREF)

SND_ENVELOPE

= ZERO;

,REF_NUM;

2977

SND _ENVELOPE [ .NSD_SLOT, CMD_HREF)

2979

SND _ENVELOPE [ .NSD_SLOT, UN_HUSED] = ZERO;

2978

[ .NSD_SLOT,

UN_LUSED)

= ZERO;

'Define referance number

!Hi order ref number
!Unused low order

!Unused hi order

2980

SND _ENVELOPE [ .NSD_SLOT, MODIFIER)

3
:

2984
2985

! Cell
the
load outtstending command buffer routine
! 'and
load this command
into the buffer.
The return

:
:

2987
2988

:
H

3
H

‘

2981

from this routine will point us to the buffer location

gggg

haes received and process

2993

if .ABO_BUFSLOC eqlu O0BF _CODE then DECODE ();

2994

2995
gggg

Set

the ownership bit

!Load the command

'Error if buffer is full

to 1 giving this slot

to the port/controller

gggg

3004

SEND _RING ([ .NSD_SLOT,
H

OWN_BIT)

= PORT_OWNED;

Read the IP register to stimulate port polling

TEMP
!

_RC25_ADDR

[RCIP,

RC_ALL);

: Time

out the

port/controller processing

the command.

3006

The

first

test

ability to

ggg

3007

it.

ABO _BUF SLOC = LOAD_OUTSST
BUF
D (.REF_NUM);

! where this command
is stored.
Later we con look at
! this
location to see if the interrupt service routine

%é

!Reserved field

= ZERO;

SND _ENVELOPE [ .NSD_SLOT, RSVD) = ZERO;

!Load opcod

2986

SND_ENVELOPE [.NSD_SLOT, OPCODE) = OP_ABT;

3010

! respond to
'

The

tests the connections

this command without

second tests the

DUP server

any errors in the SA
for good status.

3
3
:

3011
3012
3013

! bad status is sent back then an error code is returned
! to the calling routine where the routine "decode” will
! decode
ond teke the
appropriate recovery.
The
time

3
H

3015
3016

!
!

H
H
H

H
H

3014

3017
3018
3019
3020
;855

! out

routine will loop on delaying and checking the hi

bit of the
first word in
the out$std buf for a true.
When true signals us that the interrupt service routine

! has received the endpacket
! were detected.
H
if CTO_WAIT (3000,

3
H
3
;
H

.REF _NUM,

and

no connection errors

.ABO_BUFSLOC) then DECODE

();

3023
3024
3025
gggg

!
! Get
the return envelope
address
from the outtstd buf
! at
this commands
buffer location
and check the packet
! for good status error and die if bad status was returned

3028

RET _ENSAD

.OUTS$STD
BUF

[,ABO BUF $LOC,

ENV ADR);

!Get

!lIs return an error

the ret env

SEOP -y 40

SPIDERSUSERS: (NEALE .AZTEC JZRCHBS.B16;8°¢13)

VAX-11 81“--?6 v3-555

adr

D15
ZRCHBS

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

11-Jan-1984 13:23:12

MTMMODUWE DECLARATIONS

3
:

3029
3030

!
! Now test for good status

3
3
:

3033
3034
3035

if .RET_ENSAD (STATUS] nequ ZERO
then
return RET_STATUS = RSE_CODE

3
:

:
:

000000
000004
000006
000012
000016
000020

000024
000030
000034
000042

000046
000050
000054

000062
000066

000072
000076
000102
000110
000114
000120
000122
000126
000130
000134
000136
000142
000146
000150
000152
000156
000164
000172
000176
000202
000204
000206
000212
000214

000216
000220
000224

3031
3032

else

3039

end;

004167
005746
004767
004767
010002
016746

000000G

012746
004767
012760
012701
060001
112711
112761

010260
005060

005060
005060
112760
105060
005060
010216
004767
010001
020127
001002
004767
016700
006300
006300
066700
052760
017766
016600
012716
010246
010146
004767
022626
006000

103002
004767
010100

VAX-11 Bliss-16 v3-555

SEQ 0185

SPIDERSUSERS
: (NEALE .AZTEC JZRCHBS. 81630(13)

3036

3037
3038

13:46:24

'Return a "Response status err” code

!This ret status is good or bad

return .RET _STATUS;

ABORT::

175312
175454
000000G
000054
000000G
000014
0000006

ADD
MOvVB
MOVB

000001
000002
000001
000004G
000006G
000010G
000012G
000006
0000140
000015G
000016G

MOV
CLR

CLR
CLR
MOVB
CLRB
CLR
MOV
JSR

175252
002001
175416
000000G

.SBTTL
JSR
TST
JSR
JSR
MOV
MOV
MOV
JSR
MOV
MOV

000002G

1%:

000000G
100000
000002
000000G 000004
000004
005670

177356

175334

!Test the status

2%:

MOV
cMP
BNE
JSR
MOV
ASL
ASL
ADD
BIS
MOV
MOV
MOV
MOV
MOV
JSR
cMP
ROR

8CC
JSR
MOV

ABORT MODULE DECLARATIONS

R1,$SAVER

-(SP)

2915

PC,GET.NSD
PC,GET.CMDSREF
RO,R2

¢ ,REF .NUM

NSD.SLOT, -(SP)
054, -(SP)

PC,BLSMUL
014 ,SND .ENVELOPE(RO)
OSND .ENVELOPE +2,R1

REF .NUM, »

REF .NUM, «

R2,(SP)

RO,R1
?}.02001

PC,DECODE

NSD.SLOT,RO

RO
RO

2969

2970

RO,R1
01,(R1)
02,1(R1)
R2,SND .ENVELOPE +4(RO)
SND .ENVELOPE +6(RO)
SND .ENVELOPE +10(RO)
SND .ENVELOPE +12(RO)
96 ,SND .ENVELOPE
- 14(R0O)
SND .ENVELOPE +15(R0O)
SND .ENVELOPE
+ 16(RO)
PC.LOAD.OUTS$STD.BWF

2964
2965

2971
2972
2976
2977
2978
2979
2980
2981
2991

+,ABO.BUF $LOC
: ABO.BUFSLOC,
e

2993

2998

SEND .RING.RO
0100000,2(RO)
8RC25.ADDR,4(SP)

¢ ,RC$S.REG

RC$S.REG, TEMP

4(SP),RO
95670,(SP)
R2, -(SP)
R1,-(SP)
PC,CTO.WAIT

3002

3021

REF .NUM, «

ABO.BUF $LOC, »

(SP)+,(SP)»

28
PC,DECODE
R1,RO
RO

ABO.BUFSLOC,

3028

ELS
ZRCHBS
REV B PATCH 00
000230
000232
000240
000244
000250
000252
000256
000262
000264
000270
000274

006300
016067

016000
005760

001405
012700
010067

000402
016700

062706
000207

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

11-Jan-1984 13:23:12
OUT$STD.BUF +2(RO),RET.ENSAD
OUT$STD.BUF +2(RO),RO
16(RO)
33

#31,R0
RO,RET.STATUS

000031
000000G

3%:
4

AC$CODE
95 words,
Rout ine Base:
: Routine Size:
9 words
; Maximum stack depth per invocation:

3040

13:46:24

VAX-11 Bliss-16 V3-555

SEQ 0186
Page

SPIDERSUSERS:
[NEALE .AZTEC)ZRCHBS.B16:4 (13)

000002G 000000G
000002G
000016

0000006
000006

S-Apr-1984

RET.STATUS,RO
06 ,SP
PC

¢ 2624

3033

3035

2953

2915

F15
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00

MODULE DECLARATIONS

11-Jan-1984

3333

global routine GET_DUST_STATUS =

!Gets DUP server status

3043
3044

e
! Functional Description

13:23:12

VAX-11 Bliss-16 V3-555

H
:
:
3
3
3

3045
3046
3047
3048
3049
;8?(1)

3
3
3
:

3052
3053
3054
3055

3
:
:
H
:
H
:

3057
3058
3059
3060
3061
3062
3063

3056

!
!
!
!
!
H

!
!
!
!

!
!
!
!
!
!
!

Implicit

Inputs

Completion Codes

3
:
3
3

3067
3068
3069
3070

!
!
! Side Effects
!--

3073

3
:
:
3

3074
3075
3076
3077

H
s

3080
3081

3083

H
:

3078
3079

338:;

‘

s
3
3
3

‘

:
3
:
3
3

Ssgg?

3088
3089
3090
%g

3093
3094
3095
3096
3097

RET_STATUS:

global storage gets

loaded

the routine

‘Get_ nsd’
end
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command pacxet.
:

!
!

This

Implicit Outputs
none

3064
3065

3066

NSD_SLOT

3
3

This
command allows
the host program to interrogate the DUP server
to
determine its
caracteristics, its
state
aond the
state of the
program
currently running
(if any).
It is legel in either idle or
active
state
and
does
not affect
the state of server.
It has a
fixed timeout interval of 3 seconds.
If the response times out, the
host should break the connection.

Formal Parameters
none

Return status passes back
the status of the just

to the calling routine

issued command.

locel
REF _NUM,
GDS_BUFsLOC,
TEMP;

!Stores unique cmd ref number

!Stores outsstanding cmd buffer locati.on
'A place to put the IP read data

! Before we load up the command packet up with all this good information get
: the next send descriptor slot and & unique command reference number.

GET_NSD ();

!Get the next send desc slot

?EF-M = GET_CMDSREF ();
-

!Get a unigque command ref num

UQ Port command envelope Header field definition

SND _ENVELOPE [ .NSD_SLOT, MSG_LENGTH) = SZ GDS;
‘Load the envelope size
SND _ENVELOPE [ .NSD_SLOT, CREDITS) = ONE;
'‘Load the credit size
SND_ENVELOPE [ .NSD_SLOT, MSG_TYPE) = 0;
!Load the message type (Sequential)
?'O-ENVEL?E
o

[ .NSD_SLOT,

CONN_ID)

= DUP;

Page

SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS.B16:4 (14)

:
:

SEQ 0187

'Load the connection ID

: DUP generic command envelope field definition
H
SND _ENVELOPE [ .NSD_SLOT, CMD_LREF) = ,REF_NUM;
!Load command reference number
SND _ENVELOPE [ .NSD_SLOT, CMD _MREF) = ZERO;
!Commcnd reference low order
SND _ENVELOPE [ .NSD_SLOT, UN_LUSED) = ZERO;
'Low order unused

G15
ZRCHBS
REV B PATCH 00

:
:
:

3098

3039
3100
glgé
1

ZRCHBO RC25 DISK FORMATTER
MODUWE DECLARATIONS

S-Apr-1984
11-Jan-1984

SND _ENVELOPE [ .NSD_SLOT, UN_HUSED]

= ZERO;

SND _ENVELOPE [ .NSD_SLOT, OPCODE] = OP_GDS;

SND _ENVELOPE [ .NSD_SLOT, RSVD] = ZERO;
SND_ENVELOPE [ .NSD_SLOT, MODIFIER) = ZERO;
!

3105
3106
3107
glgg
1
gilg

! from this routine will point us to the buffer location
! where
this coomand
is
stored.
Later we can look at
! this
location to see if the interrupt service routine
! has received and process it.
!
GDS _BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);
!Load the command

gllg

3114

outsstanding

this .uwmand

into

command buffer routine

the buffer.

The return

.GDS_BUFSLOC eqlu OBF _CODE then DECODE ();

'Error

3
:
3

gilg
1
giig

SEND _RING [ .NSD_SLOT,

giég

! Read the IP register to stimulate port polling

g{gé

;

gigz

3
:
3

3125
3126
gig;

!
!
!

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

3129
3130
3131
3132
3133
3134
3135
3136
3137
3138
3139
g%:g

!
!
!
!
!
!
!
!
!
!

3142

;

g%:;

RET_ENSAD =

:
3

H
3
H

‘

H
H
H
:
H
3

3143
3144
gizz

3149
3150
3151
3152
3153
3154

!
H

load

‘Reserved field
!Load modifier field

3
3
3
:
3
3

! and

the

order unused

3103

3104

SEQ 0188
VAX-11 Blises-16 v3-555
Page
44
SPIDERSUSERS: (NEALE.AZTEC)JZRCHBS.B16;4 (14

!Load opcode

! Call

!Hi

13:46:24
13:23:12

if buffer

is full

Set the ownership bit to 1 giving this slot to the port/controller

OWN_BIT)

= PORT_OWNED;

IEHP =

_RC25_ADDR [RCIP, RC_ALL];

! Time out the port/controller processing

the command.

The
first
test
tests the connections
ability to
respond to
this command without
eny errors in the SA
register and for the command not timing out.
The
second tests the
DUP server for good status.
If
bad status is sent back then an error code is returned
to the calling routine where the routine "decode” will
decode
and take the
appropriate recovery.
The
time
out
routine will loop on delaying and checking the hi
bit of the
first word in
the
outs$std_buf for a true.
When true signals us that the interrupt service routine
has received
the endpacket
and
no connection errors
were detected.

if CTO_MAIT (3500,

.REF_NUM,

.GDS_BUFSLOC) then DECODE ();

!'Is return an error

! Get
the return envelope
address
from the
outs$std_buf
! at
this commands
buffer location
and check the packet
E for good status error and die if bad status was returned

! Now test
!
:

.QUTS$STD_BUF [.GDS_BUF$LOC,

ENV_ADR];

1Get the ret env adr

for good status

if .RET_ENSAD [STATUS] negqu ZERO
then
return RET_STATUS = RSE_CODE

!Test the status
‘Return a

"Response status err" code

H15
ZRCHBS
REV B PATCH 00
3155
3156
3157
3158

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

11-Jan-1984 13:23:12

MODULE DECLARATIONS

else

return

13:46:24

!This ret_status

.RET_STATUS;

SEQ 0189
Page
45
SPIDERSUSERS: [NEALE. AZTEC]ZRCHBS.B16:4 (14)
VAX-11 Bliss-16 V3-555
S

is good or bad

end;

.SBTTL

004167

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
112761
010260

000001

000014G

000016G

174754
002001

175120

0000006

GET.DUST.STATUS MODULE DECLARATIONS

GET.DUST.STATUS::
R1, $SAVEZ2
JSR
TST
-(SP)
PC.GET.NSD
JSR
JSR
PC,.GET.CMDSREF
RO,R2
MOV
NSD.SLOT, -(SP)
MOV
- MOV
PC,BL SMUL
JSR
914,SND .ENVELOPE(RO)
MOV
MOV
OSND .ENVELOPE +2,R1
RO,R1
ADD
01,(R1)
MOVB
92,1(R1)
MOVB
R2,SND .ENVELOPE +4(RO)
MOV
CLR
SND .ENVELOPE +6(RO)
SND .ENVELOPE +10(RO)
CLR
SND .ENVELOPE +12(RO)
CLR
01,SND .ENVELOPE +14(RO)
MOVB
CLRB
SND .ENVELOPE +15(RO)
SND .ENVELOPE +16(RO)
CLR

1%:

R2,(SP)
PC.LOAD.OUTS$STD.BUF
RO,R1
R1,02001
18
PC,DECODE

3088

REF .NUM, »

+,GDS.BUF sLOC

GDS.BUF $LOC, »

NSD.SLOT,RO

4(SP),.RO

06654,(SP)

PC,CTO.MWAIT

177060

+ ,REF .NUM

3083
3084

RO
RO

SEND .RING,RO
€100000,2(RO)
SRC25.ADDR,4(SP)

000000G
100000
000002
000000G 000004
000004
006654

3041

+ ,RC$S.REG

RC$S.REG, TEMP
REF .NUM, »

3121
3140

GDS.BUF $LOC, »

(SP)+,(SP).

175036

2s%:

24
PC,DECODE
R1,RO
RO

GDS.BUF SLOC, »

3147

3152

000016

QUTS$STD.BUF «2(RO),RET .ENSAD
OUT$STD.BUF +2(R0O),RO
16(R0O)

000031

3154

000002G 000000G

I15
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

REV B PATCH 00

MODULE DECLARATIONS

000256

000000G

000262
000264
000270
000274

010067

000402
016700
062706
000207

: Routine Size:

3s:
4%;

Routine Base:

: Maximum stack depth per invocation:
:

3159

11-Jan-1984 13:23:12

MOV

000000G
000006

95 words,

S-Apr-1984 13:46:24

9 words

BR
MOV
ADD
RTS

RO,RET.STATUS

43
RET.STATUS,RO
#6,SP
PC

ACSCODE « 3122

VAX-11 Bliss-16 V3-555

SEO 0190

SPIDERSUSERS: [NEALE.AZTEC]ZRCHBS. Bl6s4(14)
H

3072

3041

J15
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

VAX-11 Bliss-16 V3-555

REV B PATCH 00

MODULE DECLARATIONS

11-Jan-1984

g%g(l)

global routine EX_SUP_PROG =

!Executes supplied program

:
:
3
3
:
3
:
:

3162
3163
3164
3165
3166
3167
3168
3169

e
! Functional Description :
!
This
command causes
the
server
to
transfer the program from host
!
memory
to
an
area
in
the controller and start its execution.
The
!
host
supplies
the
address
and
length
(in
bytes) of a buffer
!
containing
the
program
header
ond
initial
load;
the starting
!
of the program, its memory requirements and any relocation information
!
to
run uncger the server are in the program header in a format

:
:

3170
3171

!
!

puts the server

H
:
:

gl;g
1
3176

H
!
!

The time out

3179

3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
g%gg

!
!
!
!
!
!
!
!
!
!
!
H

:
:

3
:
3
:
H
:
:
:
H
3
:
:

ggg

3177
3178

3180

:
3
H

3194
3195
gigg

H
3
3

¢
!

!
!
:

which
is none of the host business.
This commmand is only
the
server is in the idle state and return of a successful

Formal Parameters
none
Implicit Inputs

NSD_SLOT

Implicit Outputs

AZFMTR:

!
!
:

legal when
end packet

is 30 seconds.

global storage gets

loaded

the routine

‘Get_nsd’
and
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.
:

DMSA:
OVSA:
HDSA:

Completion Codes :
RET_STATUS:

Azfmtr

is the vector produced by DMCONV program and

is decalared in module AZKELG.
These three bound addresses point to specific area
in the DM code buffer 'azfmtr’ and are used to
define the buffer descriptors within this command.

Returr status passes back to the calling routine
the status of the just issued command.

Side Effects :
The DM machine in the controller goes from the idle state to the
active state on return of a successful return packet.

1--

3208

:
:
;
:

3205
3206
3207
%

local
REF _NUM,
ESP_BUF $LOC,
TEMP;

3210

ggg

3204

interval for this command

This

into to active state.

begin

!Stores unique cmd ref number
!Stores outsstanding cmd buffer location
'A place to put the read IP register data

3211

3
3
3

3214
3215
3216

! Before we load up the command packet up with all this
!

the next send

information get

descriptor slot and a unique command reference number.

GET _NSD ();
REF_NUM = GET_CMDSREF ();
H

SEQ 0191

Page

SPIDERS$
: [NEALE.AZTEUSER
C JZRCHBS.B16
S
;4 (15)

3198
3199
32032001

13:23:12

’

!Get the next send desc slot
!Get ¢ unique command ref num

IK15
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00 MODUWLE DECLARATIONS
:
:

gi;

11-Jan-1984 13:23:12

3219
3220
3221
gggg

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

gggg

: DUP generic command envelope field definition

‘

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

!
-

3226
3227
3228
3229

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

:
:

3231
33%;%

SND_ENVELOPE [ .NSD_SLOT, RSVD]) = ZERO;
?PD_ENVELOPE [.NSD_SLOT, MODIFIER] = ZERO;

:
‘

:
:

3
:

‘

3
:

3230

Ssggg

gggg

3238
gzg
3241

gg:g

[.NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

MSG_LENGTH) = SZ_ESP;
!Load the message length
CREDITS] = ONE;
Load the credits hold
MSG_TYPE) = 0;
!Define the msg type 'Sequential’
CONN_ID] = DUP;
1Define the conection ID

:
:
:
:

CMD_LREF)
CMD_HREF)
UN_LUSED])
UN_HUSED]

=
=
=
=

,REF_NUM;
‘Load command ref number
ZERO;
!Zero Hi order word of cmd ref
ZERO;
!Not used in DUP implimentation
ZERD;
!Not used in DUP implimentation

SND_ENVELOPE [ .NSD_SLOT, OPCODE) = OP_ESP;

!Load the command op-code
!Not used

: Command specfic command envelope field definition
-

: Byte count of initial transfer (from bytes 0-3 of the program header).
!

SND_ENVELOPE [.NSD_SLOT, BLO_CNT] = _AZFMTR [WRDO);
?MJ_ENVELG’E [ .NSD_SLOT, BHI_CNT] = _AZFMTR [WRD1);
-

! Buffer descriptor definition for initial load.
: byte

this

buffer

is byte O of

!'Byte count low word
!Byte count high word

First

program header.

3
:

3244
3245

SND_ENVELOPE [ .NSD_SLOT, BPA_LO) = HDSA;
SND_ENVELOPE [.NSD_SLOT, BPA_HI] = ZERO;

‘Low unibus adrs <0-15>
'Unibus adrs bits <16-17>

3248

SND_ENVELOPE [ .NSD_SLOT, UBA_CHAN] = ZERO;

!Unibus adaptor channel number

3250

§§§§

:
3
:

3245
3247

3249

3251

SND_ENVELOPE [.NSD_SLOT, QBUS_EXT) = ZERO;
SND_ENVELOPE [.NSD_SLOT, RSV]) = ZERO;
SND_ENVELOPE [.NSD_SLOT, RSVO]

= ZERO;

SND_ENVELOPE [.NSD_SLOT, RSV1) = ZERO;

SND_ENVELOPE [ .NSD_SLOT, RSV2] = ZERO;
S.‘N)-ENVEL(PE [.NSD_ SLOT. RSV3])

= ZERO;

!Q_bus extention adrs
'‘Reserved field

'These next four words are not

tused in the DUP implementation
!
!

;

3254

! These next field definitions are the same as above except they are for the

;

Ssgg

: The overlay area immediately follows the initial load image in the program image.

3
3
3
3

3260
3261
3262
3263

SND _ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

32323

S.ZM)
“ENVELOPE [ .NSD_SLOT,

3
:

‘

s
3
3
3

3255
gggg

3264
3265
3266
3267

! overlay buffer doocruptoro
To make life easy for me I'l]l use the same names
: and just prefix them with a $§ for unigueness.

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[ .NSD_SLOT,
[ .NSD_SLOT,
[.NSD_SLOT,
[ .NSD_SLOT,

[ .NSD_SLOT,
[.NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

$BPA_LO) = .0OVSA;
$BPA_HI] = ZERO;
$QBUS_EXT) = ZERO;
$RSV]) = ZERO;

!Low unibus adrs <0-15>
!Unibus adrs bits <16-17>
'Q_bus extention adrs
‘Reserved field

SRSV3) = ZERO;

SUBA_CHAN] = ZERO; !Unibus adaptor channel number
$RSVO) = ZERO;
'These next four words are not
$RSV1) = ZERO;
‘tused in the DUP implementation
$RSv2] = ZERO;
!

H
3

3270
3271

! Call
the
load outsstanding command buffer routine
' and
load
this coomand
into
the buffer.
The return

3273

! where

3272

from this routine will point us to the buffer

this command

stored.

lccation

Later we can look at

SEQ 0192

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816;4(15)

: UQ Port command envelope Header field definition

:
:
:
:
H

VAX-11 Bliss-16 v3-555

L15
ZRCHBS
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

:
:

3274
33332

! this location to see if the interrupt service routine
! has received and process it.

gg?,;

ESP_BUFSLOC = LOAD_OUTS$STD_BUF (.REF_NUM);

gg;?)

if .ESP_BUFSLOC eqlu OBF _CODE then DECODE ();

3281

ggg;

SEND_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;

gggg

! Read the IP register to stimulate port polling

gggg

:
:

Ssggg

:
3

3293

3292
gzzg;

:
3
:
H
:

3296
3297
3298
3299
3300

3302

:
3

3304
3305

:
3

3301

3303

3306
gg;

!Load the command
'Error if buffer is full

IEPP = _RC2S_ADDR [RCIP, RC_ALL];
B

: Time
H

out the

port/controller processing

the command.

! The
first
test
tests the connections ability to
! respond to this command without any errors in the SA
: register and for the command not timing out.
!

!
!
!
!
!

The second tests the DUP server for good status.
If
bad status is sent back then an error code is returned
to the calling routine where the routine "decode” will
decode and take the appropriate recovery.
The time
out routine will loop on delaying and checking the hi

! bit of the

first word in

the

outs$std_buf for a true.

! When true signals us that the interrupt service routine
! has received

! were detected.
!

the endpacket

if CTO_MAIT (3500,

;

ggg

.REF_NUM,

and

no connection errors

.ESP_BUFSLOC) then DECODE ();

for good status error and die if bad status was returned

3312

RET_ENSAD = .QUTS$STD_BUF [.ESP_BUFSLOC, ENV_ADR];

H
H
:
3
:

3316
3317
3318
3319
3320

! Now test for good status
:

3322

else

3325

end;

004167

000000G

000000

3321

gggi

!'Is return an error

! Get
the return envelope
address
from the
outs$std_buf
! at
this commands
buffer location
and check the packet

;

SPIDER$USERS: [NEALE.AZTEC]ZRCHBS. 816;4(15)

SEQ 0193
Page
49

3309
3310
3311

VAX-11 Bliss-16 V3-555

! Set the ownership bit to 1 giving this slot to the port/controller

3
:

13:46:24
13:23:12

if .RET_ENSAD [STATUS]) nequ ZERO
then
return RET_STATUS = RSE_CODE

return .RET_STATUS;

!Get the ret env adr

!Test the status

!Return a "Response status err” code

'This ret_status is good or bad

.SBTTL

EX.SUP.PROG:
:
JSR

EX.SUP.PROG MODULE DECLARATIONS
R1,$SAVEZ2

3160

M15
ZRCHBS
REV B PATCH 00
005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
112761
010260

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

S-Apr-1984
11-Jan-1984

13:46:24
13:23:12

VAX-11 Bliss-16 Vv3-555

SPIDERS$USERS: [NEALE.AZTEC ]JZRCHBS . 81634(15)

-(SP)

174516
174660

PC.GET.NSD
PC.GET.CMD$REF
RO,R2
NSD.SLOT, -(SP)
.S‘.' (SP)
PC,BLSMUL

* ,REF .NUM

950, SND .ENVELOPE(RO)
@SND .ENVELOPE +2,R1
RO,R1
@1,(R1)

#2,1(R1)
R2,SND .ENVELOPE +4(R0O)
SND .ENVELOPE +6(RO)

REF .NUM, »

#2,SND .ENVELOPE +14(RO)

SND .ENVELOPE +15(RO)
SND .ENVELOPE +16(RO)

000000G 0000206
000002G 000022G
000000G 000024G

AZFMTR,
SND . ENVELOPE +20(R0O)

AZFMTR+2,SND.ENVELOPE
+22(R0O)

OHDSA, SND . ENVELOPE +24(R0O)
OSND .ENVELOPE
+26 ,R1
RO,R1

(R1)
1(R1)
SND . ENVELOPE
+ 30(RO)
SND .ENVELOPE
+ 32(RO)
SND .ENVELOPE +34(RO)
SND .ENVELOPE +36(RO)
OVSA, SND .ENVELOPE +40(R0O)

18:

3263

REF .NUM, »
» ,ESP.BUF SLOC

ESP.BUF SLOC, »

PC,CTO.WAIT
(SP)+,(SP)»

3265
3266
3267
3268
3277
3279

3284

3221
3222
3226
3227
3228
3229|
3230
3231
3232
3238
3239|
3244
3245

3248
3249
3250
3251
3252
3260
3261

@SND .ENVELOPE +42,R1

R2,(SP)
PC.LOAD.OQUTS$STD.BUF
RO,R1
R1,02001
14
PC,DECODE
NSD.SLOT,RO

3219

|
3247

RO,R1

(R1)
1(R1)
SND .ENVELOPE +44(RO)
SND . ENVELOPE +46(R0O)
SND .ENVELOPE +S0(RO)
SND .ENVELOPE +52(R0)

3214
3215

3220

SND . ENVELOPE +10(RO)
SND .ENVELOPE +12(RO)

000014G

176442

SEQ 0194

+,RC$S.REG

RC$S.REG, TEMP

REF .NUM, »

ESP.BUF $LOC, »

3288

3307

N15
ZRCHBS
REV B PATCH 00
000334
000336
000340
000344

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

174420

ASL
ASL

PC,DECODE
R1,RO
RO
RO
OUT$STD.BUF
+2(RO) ,RET .ENSAD
OUT$STD.BUF +2(R0O),RO

2%:

38:
4%

MOV
MOV
TST
BEQ
MOV
MOV
BR
MOV
ADD

000031

000000G

000000G
000006

ROR

8CC
JSR
MOV

000002G 000000G
000002G
000016

RTS

3326

SEQ 0195
VAX-11 Bliss-16 Vv3-555
Page
51
SPIDER
[NEALE
S$USER
.AZTEC)ZRCHBS.B
S:
16;4 (15)

16(RO)
34

@31,R0

QO.RET.STATUS
$

RET.STATUS,RO
PC

135 words,
Rout ine Base:
: Routine Size:
ACSCODE + 3420
: Maximum stack depth per invocation:
9 words
:

13:46:24
13:23:12

: ESP.BUFSLOC,
»

3314

3319

3321
3203

3160

B16
ZRCHBO RC25 DISK FORMATTER
MODWLE DECLARATIONS

3327

global routine EX_LOC_PROG

WS S

BF 95 BF B8

S5 S8

S0 B0

GF B0

GF G0

B¢ G¢

B¢

G0 S0

G0 G0 G0

B¢

V6 Ge G5 GF

Ge OF Ge Ge

ZRCHBS
REV B PATCH 00
3328
3329
3330
3331
3332
3333
3334
3335
3336
3337
3338
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376
3377
3378
3379
3380
3381
3382
3383

S-Apr-1984 13:46:24
11-Jen-1984 13:23:12
-

!Executes local program

Functional Description :
Receipt of this
command ceuses the controller to seerch its locsl
medie
for
the named
progrem, loed
end execute it.
Receipt of o
successful response by the host means that the progrem is executing
and the server is in the active state.
The time out value for this
commend is specified in the get dust response

Formal Paremeters

none

Implicit Inputs

NSD_SLOT

This

global storege gets

loaded

the routine

‘Get _.nsd’
end
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commends
command packet.

Implicit Outputs

none

Completion Codes :

RET_STATUS:

Side Effects

Return status pesses back to the calling routine
the status of

the just

issued command.

The DM machine in the controller goes from the idle state to the
active state on return of & successful return packet.

begin

loceal

REF _NUM,
ELP_BUF$LOC,
TEMP;

!Stores unique cmd ref number
!Stores outtstanding cmd buffer locat
on
!A place to store the read IP register dates

! Before we load up the command packet up with

the next send descriptor slot

all

this good

information get

and 8 unique command reference number.

GET_NSD ();

1Get the next send desc slot

?EF-M = GET_CMDSREF ();

!GCet & unigue command ref num

g UQ Port command envelope Header field definitior
SND_ENVELOPE [ .NSD_SLOT, MSG_LENGTH) « SZ ELP;

SND _ENVELOPE ([ .NSD_SLOT, CREDITS) = ONE;
SND _ENVELOPE [ .NSD_SLOT, MSG_TYPE) = 0;
SND _ENVELOPE [ .NSD_SLOT, CONN_ID] = DUP;
5

ILoad the message size

Load the credit size
!Define the msg typ ‘'Sequential’
'Define the connectio ID

DUP generic command envelope field definition

SND_ENVELOPE
SND _ENVELOPE

[ .NSD_SLOT,
[ .NSD_SLOT,

CMD_LREF)
CMD_HREF)

5EQ 0196

VAX-11 Bliss-16 v3-555
Page
52
SPID:ERSU
[NEALE .AZTEC SERS
JZRCHE5.8B16;4 (16

= .REF _NUM,;
!Load the command ref number
= ZERO;
!Zero the H: order cmd ref num

ZRCHBS

REV B PATCH 00

3384

3386

3392

3393
ggg‘s

3396

3
3
:

3398
3399
3400

3397

33:821.

!Load this commands op-code

SND_ENVELOPE [ .NSD_SLOT, MODIFIER) = ZERO;

!Define modifiers for this cmd

SND_ENVELOPE [ .NSD_SLOT, PN_O]

= ZERO;

Program name word O

SND _ENVELOPE [ .NSD_SLOT, PN_1) = ZERO;
?’O-ENVEL(PE [ .NSD_SLOT, PN_2) = ZERO;
-

! Cell
!

and

the

loed

loasd

outtstending

this command

Progrem name word 1
'Program name word 2

commend buffer routine

into

the buffer.

: has received and process

it.

33:{(1)

?EID RING [.NSD_SLOT,

;

33:{“;

33:{;

33:83

33:}2

:
:

3418
3419

;

3422

;

3421

3427

3
3

:
3
3
H

H
H
3

H
3
3
;
H

SS:S?

The return

! from this routine will point us to the buffer location
! where this command is stored. Later we con look at
! this location to see if the interrupt service routine

3407

!Not used field

: Command specfic command envelope field definition

!Not used in DUP implimentation

33:82

_ELP_BUFSLOC eaqlu OBF _CODE then DECODE

Set the ownership bit

!Load the command
();

'Error

to 1 giving this slot

OWN_BIT)

TEMP =
H

Time

_RC2S5_ADDR (RCIP, RC_ALL]);

out the

port/controller processing

the conmand.

! The
first
test
tests the connections
ability to
! respond to this command without
any errors in the SA
:

timing out.

! The second tests the DUP server for good stetus.

! decode oand take the appropriate recovery.
The
time
! out
routine will loop on delaying and checking the hi

Sg:;g

3440

full

! Read the IP register to stimulete port polling

3425
3426

3435
3436
3437

= PORT_OWNED;

! bad status is sent back then an error code

3432
35:;2

if buffer

to the port/controller

3423

3428
3429
3430
3431

Bliss

SUSER S

SND _ENVELOPE [ .NSD_SLOT, OPCODE) = OP _ELP;

ELP_BUFSLOC = LOAD_OUTSSTD
_BUF (.REF_NUM);

SPIDE

!Not used in DUP implimentation

33:82

VAX -

SND _ENVELOPE [ .NSD_SLOT, UN_LUSED)= ZERO;
SND_ENVELOPE [ .NSD_SLOT, RSVD] = ZERO;

332?

3
:

11-Jen-1984 13:23:12

3387

MODULE DECLARATIONS

SND _ENVELOPE E.NSO_SLOY. UN_HUSED) = ZERO;

gggs

ZRCHBO RC2S DISK FORMATTER

3385

:
H

Clé6
S-Apr-1984 13:46:24

is returned

! to the calling routine where the routine “decode” will
! bit of the

first word in

the

outtstd buf for a true.

! When true signals us that the interrupt service routine
! hes received the endpacket
and no connection errors
! were detected.
H
if CTO_MWAIT (3000,

.REF _NUM,

.ELP BUFSLOC) then DECODE

();

!lIs return an error

:
! Get
the return envelope address from the outistd buf
! at
this commands buffer location and check the packet
!

for good status error and die

RET _ENSAD =

.QUTS$STD BF

if bad stetus was returned

[.ELP BUFSLOC,

ENV ADR);

!GCet

the ret env adr

S555

’EoPon 53

ALE.AZTEC ]ZRCHBS .B16;:4

(16,

D16

®¢

ZRCHBS
REV B PATCH 00
3441
3442
3443
3444
3445
344K
3447
3448
3449
3450
3451

end;

004167

0000006

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
112761
010260

S-Apr-1984

ZRCHBO RC25 DISK FORMAITER
MODWE DECLARATIONS

13:46:24

11-Jen-1984 13:25:12

VAX-11 Blies

16 V3 555

5EQ 0198
54
P

QPIDEGCUSERS:(NE!lE.AIYEClI“CHDS.Bl6a:.716;

Now test for good status
if

else

return RET_STATUS = RSE _CODE

'Return a "Response status err"” code

return .RET_STATUS;

!This ret status

JSR
JSR

PC.GET.NSD
PC.GET.CMDSREF

MOVB
MOVB
MOV
CLR
CLR
CLR
MOVB
CLRB
CLR
CLR
CLR
CLR
MOV

174024

JSR

002001

176130

R1, $SAVE2

MOV
MOV
JSR
MOV
MOV
ADD

0000206
0000226
0000246

0000006
100000
000002
000000G 000004
000004

JSR

MOV

000001
000002 000001
0000046
0000066
000010G
0000126
000003 0000146
0000156
0000166

174170
C00000G

EX.LOC.PROG MODWE DECLARATIONS

TST

0000006
000054
0000006
000060 000000G
0000026

1$:

is good or bad

LSBTTL

EX.LOC.PROG::

174100
174242

005670

!Test the stetus

.RET_ENSAD [STATUS] neau ZERO

then

MOV
cMP
BNE
JSR
MOV
ASL
ASL

ADD
BIS
MOV
MOV

MOV
MOV
MOV

JSR

cMP

-(SP)

3327

3370
3371
¢

RO,R2
NSD.SLOT, -(SP)
054
)
PC,BLSMUL

REF NUM

060, SND .ENVELOPE(RO)
OSND .ENVELOPE
«2,R1

3376

RO,R1
01,(R1)
02,1(R1)
R2,SND .ENVELOPE +4(RO)

REF .NUM, o

SND .ENVELOPE +6(RO)
SND .ENVELOPE «10(RO)
SND .ENVELOPE +12(RO)
03,SND .ENVELOPE +14(RO)
SND . ENVELOPE +15(RO)
SND .ENVELOPE +16(RO)
SND .ENVELOPE «20(RO)
SND . ENVELOPE +22(RO)
SND .ENVELOPE +24(R0O)

R2,(SP)
PC.LOAD.OUTS$STD.BUF

RO,R1

?}.02001
PC,DECODE

:gD.SLOY.RO

537S

REF .NUM,

o ELP.BUF$LOC
ELP . BUFSLOC,

3377
3378
3382
3383
3384
3385
3386
3387
3384
3392
3393
3394
3403

3405
3310

SEND .RING,RO

0100000,2(R0O)

8RC25.ADDR,4(SP)

4(SP),RO

95670,(SP)

R1,-(SP)

PC,CTO.MWAIT
(SP)+,(SP).

¢ ,RC$S.REG

RC$S.REG, TEMP
REF .NUM, o

ELP.BL¥ $LOC,»

3.4

E16

000232
000234

000240
000242
000244
000246

000254

103002

004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

Routine Size:

174106

2s:

OUTS$STD.BUF «2(RO),RET .ENSAD
OUTS$STD.BUF +2(RO),RO
16(RO)
33
#31,R0
QO.REY.STATUS

000031
000000G
0000006
000006

13:46:24
13:23:12

VAX-11 Blies-16 v3-555

:EO 0199

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS. 81614(16,

PC,.DECODE
R1,RO
RO
RO

000002G 000000G
000002G
000016

3s:
43

RTS

Rout ine Base:
ACS$CODE
101 words,
9 words
invocation:

; Maximum stack depth per
3452

S-Apr-1984
11-Jan-1984

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

RET.STATUS,RO
06,5P

+ 4036

s ELP.BUFSLOC,»

3440

3445

34A7

21455

3327

”~

ZRCHBS
REV B PATCH 00

F16
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

VAX-11 Bliss-16 v3-555

REV B PATCH 00

MOCN.E DECLARATIONS

11-Jan-1984 13:23:12

g:gz

global routine SEND_DATA -

!Performs host-->port communications

3455
3456

'+
! Functional Description :

3463

:
:

:
H
:
:
:
:

3457
3458
3459
3460
3461
3462

g:gg

These commands are used to communicate botuoon the initiating host
program and
the remote program.
Both send end receive commands
specify
e host buffer descriptor and a byte count.
In the case of
send data, the information in the buffer is read by the remote progrem
and & send data response sent back to the host to acknowledge receipt.
In
the case of receive dates the remote program writes data into the

receive data

to the amount specified by the b;to count and then sends a

response to

the host

to noti

it of the trensmission.

3
3
:
:

3466
3467
3468
3469

!
!
!
!

The send date and receive
data commands eare only
legal when the
server
is
in the active state.
If the remote program terminates
abnormally, putting
the server
back
in the idle stee, outstanding
send data and receive data commands may be lost.
In the event that

3471

issue

3470

H
:
3

3472
3473
3474

3476

:
:

3475
g:;;

the

specified timeout

a get

having

should

be re-installed.

response and

3484
3485
3486
3487
3488
3489

!
!
!
¢
!
!

:
:
:
:
H
:
3
:
H
3
H

3491
3492
3493
3494
3495
3496
3497
3498

3501
3502
3503

gggz

3504

no progress

get

the second

timeout expires without a

dust status shows

the

remote

program

in the interim then the program should be

considered broken and should be aborted.

H
3
:
:
:
H

3490

a second

made

! Formal Parameters
!
none
!
! Implicit Inputs :

exceeded, the host program should

still
running (is.
the dup server is active);
if it
s, the
progress
indicator should be remembered and the timeout interval

3479
3480
3481
3482

3483

dust staus command to see if the remote program is

!
!
!

3
:
:
3

interval

NSD_SLOT

Implicit Outputs
none

This

global storage gets

loaded

the routine

‘Get_nsd’
eond
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.
:

!
! Completion Codes :
!
RET_STATUS:
!
!
! Side Effects :
!
none
!--

Return status passes back to the calling routine
the status of the just issued command.

begin

local
REF _NUM,

SND_BUF $LOC,

TEMP;

!Stores unique cmd ref number

!Stores outsstanding cmd buffer locat
on

'A place to put read IP register data

3507

3509

! get the next send descriptor slot and a unique command reference number,

3508

! Before

Page

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS.B165;:4 (17,

!
!
!
!
!
!

buffer

SEQ 0200

we load up the command packet up with all this good information

G1l6
2RCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00 MODULE DECLARATIONS

11-Jan-1984 13:23:12

3
3
:

3510
3511
ggig

!Cet the next send desc slot
!Get a unique command ref num

gg{g

3
:
:
:

3516
3517
3518
gggg

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
'.;‘NJ_ENVEL(PE

;

gggé

! DUP generic command envelope field definition

3523

SND _ENVELOPE [ .NSD_SLOT, CMD_LREF])

3525

SND_ENVELOPE [ .NSD_SLOT, UN_LUSED)

= ZERO;

! UQ Port command envelope Header field definition

[ .NSD_SLOT,
[ .NSD_SLOT,
[.NSD_SLOT,
[ .NSD_SLOT,

MSG_LENGTH] = SZ_SED;
!Load the message size
CREDITS] = ONE;
‘Load the credit size
MSG_TYPE] = 0;
Define the message typ 'Sequential
CONN_ID] = DUP;
!Cefine the connection ID

)

_REF_NUM;

‘Load command reference number

!Zero Hi order cmd ref number

3526
3527
3528

SND _ENVELOPE [ .NSD_SLOT, UN_MHUSED] = ZERO;
SND_ENVELOPE [ .NSD_SLOT, OPCODE) = OP_SED;
SND_ENVELOPE [ .NSD_SLOT, RSVD) = ZERO;

!Not used in DUP implimentation
!Load this commands op-code
'Not used field

3531

: Command specfic command envelope field definition

gggz

;

3535

3
:

gg?sg

;gg?
gggg

?M)_ENVELCPE [ .NSD_SLOT, MODIFIER] = ZERO;
.

SND_ENVELOPE [ .NSD_SLOT, BHI_CNT)]
!

= ZERO;

SND_ENVELOPE

3543

SND_ENVELOPE [.NSD_SLOT, RSV]) = ZERO;

3
3
:

3544

3545
3546
3547

g;g

'..500
“ENVELOPE

3552

! where

gggz

= SND_BUF;

= ZERO;

SND_ENVELOPE [ .NSD_SLOT, RSVO) = ZERO;
SND_ENVELOPE [ .NSD_SLOT, RSV1]) = ZERO;
SND_ENVELOPE [ .NSD_SLOT, RSvV2]) = ZERO;

! Call the

BPA_LO)

SND _ENVELOPE [ .NSD_SLOT, UBA_CHAN]

3550
3551

[.NSD_SLOT,

SND_ENVELOPE [.NSD_SLOT, BPA_HI]) = ZERO;
SND_ENVELOPE [ .NSD_SLOT, QBUS_EXT) = ZERO;

;
3

!Byte count low word

!Byte count high word

Buffer descriptor definition

3540

3541
3542

[.NSD_SLOT,

= ZERO;

'Buffer physical adrs bits <16-17>
'Q_bus extention adrs

'‘Reserved field

!'Unibus adaptor channel number

!These next four words are not
‘used in the UQ Port implementation
!
!

load outsstanding command buffer routine and load this command

into the buffer.

see

The return from this routine will point us to the buffer

this command

if the

RSV3]

!Buffer physical adrs <0-15>

stored.

Later we

con

gggz

§'D-BLFOLOC = LOAD_OUTS$STD_BUF ( .REF_NUM);

;

3557

if .SND_BUFSLOC eqlu OBF _CODE then DECODE ();

;

3559

gggg

SEND _RING [.NSD_SLOT,

gssg;

! Read the IP register to stimulate port polling

3566

3552(1)

.RC25_ADDR

OWN_BIT)

[RCIP,

Error if buffer is full
to the port/controller

= PORT_OWNED;

RC_ALL);

it.

!Load the command

Set the ownership bit to 1 giving this slot

TEMP

look at this location to

interrupt service routine has received and process

;

implimentation

!'Define the commands modifiers

éw_ENVEL(PE [ .NSD_SLOT, BLO_CNT) = SNDB_SIZE;
H

in DUP

Byte count of transfer

3
:

!Not used

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS. 81634(17,

SND_ENVELOPE [ .NSD_SLOT, CMD_HREF) = ZERO;

:
:
3

3524

!
GET_NSD ();
REF _NUM = GET_CMDSREF ();

SEO 0201

VAX-11 Bliss-16 v3-555

location

H16

Ge GF G W

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

action based on the error.

If
the
returned error
is an CTO_CODE then do a get
dust
status and check the progress indicator to look
for an increase, indicating that the remote program
still running and is not dead.

If
the indicator hasn't changed then assume that the
remote
program
is dead
and return an error code of
RPD_CODE (remote
program
dead
code)
and
exit.
If the
indicator
has
changed
then
assume that the
remote
program
is
still running, save a copy of its
value and
reinstate the controller time out delay and
repeat the

As 1

is still

loop.

as the progress

indicator

in the remote program

increasing this loop will be repeated for ever.

If
the
controller doesn't time then return with the return
code returned from routine CTO_WAIT () which could be either
a
success
or
error
code
by definition of this host code.
‘Repeat for ever

35?«;

Ve G0 G

5EQ 0202
VAX-11 Bliss-16 v3-555
Page
58
SPIDERSUSERS:
[NEALE .AZTEC JZRCHBS .B16;4 (17,

Iflthc controller time
,ut then:
See what
kind of
error was returned.
If the error
is
a type other than a CTO_CODE (controller time out)
then
call
routine Decode which does the appropriate

‘Flag control C's

Do a controller time out and

has processed the command or

G¢ B¢ G S8 V6 V6 G G

13:46:24
13:23:12

Time out the port/controller for the response from this command.

while T@UE do

i:efiTO_HAIT (4000,
t

.REF _NUM,

determine if the controller

if a fatal error has occured.

.SND_BUFS$LOC)

!Is return an error

If the return status code eql's a CTO_CODE then see if the remote
program is still running. If it is then save the progress indicator

G4 S

and repeat

the

loop else call routine Decode ().

.RET_STATUS eqlu CTO_CODE

then

'Is this a controller time out

begin

if GET_DUST_STATUS () then DECODE

5 B
@

S-Apr-1984
11-Jan-1974

3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581
3582
3583
3584
3585
3586
3587
3588
3589
3590
3591
3592
3593
3594

S8 G

s S0 G0 G0 G0 G G

S¢ G0 G G0 G0 G0 G0 S5 S0 S8 OS¢ B¢ S0 S

S0 O

B S0 S

00w

ZRCHBS
REV B PATCH 00

3623

.RET_ENSAD [PLO_IND) gtru

then

();

.PID_SAVE

!Get

(0]

the dust status

!Any progress been made

116
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637

else

S-Apr-1984
11-Jan-1984

in
PID_SAVE (0] = ._RET_ENSAD (PLO_IND]);
PID_SAVE (1) = .RET_ENSAD (PHI_IND);
PRINTB (PID_FMT, .PID_SAVE (1), .PID_SAVE
end

if .RET_ENSAD
then

(PHI_IND) gtru

in
PID_SAVE (0]
PID_SAVE [1]

else

=
=

.PID_SAVE

!1Still

.PID_SAVE

(1],

return RET_STATUS = RPD_CODE;

running save Pid

[01);

(1)

;
.RET_ENSAD [PLO_IND]);
_RET_ENSAD [PHI_IND];

PRINTB (PID_FMT,
end

SEQ 0203
VAX-11 Bliss-16 v3-555
Page 59
SPIDERSU
[NEALE .AZTEC
SERS
)JZRCHBS.B16;:
:
4 (17)

13:46:24
13:23:12

!1Still running save Pid

.PID_SAVE

[01]);

!No progress so flag error

]

end

The return status code was not a controller time out code so something
else is wrong.
Call the routine Decode () to find out what went wrorg.

‘oo e g-- ‘e ‘e re e e e

else

DECODE ()

The command has been received by

the

interrupt service.

Get
this commands return
envelope address out of the
out$std_buf and check for good return status error and
die if bad status.
T_ENSAD

Test

.QUTSSTD_BUF

ENV_ADR];

'Get

the ret env

adr

for good status

if .RET_ENSAD
then
else

[.SND_BUF SLOC,

[STATUS)

return RET_STATUS

return

nequ ZERO

!Test

= RSE_CODE

!Return a

_RET_STATUS;

the status

“Response status err” code

!This ret_status

is good or bad

end;

_RET_STATUS;

It won't compile without

.SBTTL
SEND.DATA::
JSR

this here

SEND.DATA MODULE DECLARATIONS
R1,$SAVE3

return

end;

3674

3675

J16
ZRCHBS
REV B PATCH 00

005746
004767
004767
010003
016746
012746
004767
012760
012701
060001
112711
112761
010360

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

11-Jan-1984 13:23:12

MODULE DECLARATIONS

SEQ 0204
VAX-11 Bliss-16 V3-555
Page 60
SPIDERS$USERS: [NEALE.AZTEC]ZRCHBS.B16:4 (17)

-(SP)

PC.GET.NSD
PC,GET.CMDS$REF
RO,R3
NSD.SLOT, -(SP)
954, -(SP)
PC,BL$MUL
#34,SND.ENVELOPE(RO)
@SND .ENVELOPE +2,R1
RO,R1
1,(R1)
92,1(R1)
R3,SND.ENVELOPE +4(RO)

173566
173730

000002

13:46:24

000001

000004

000014G

000045

000020G

SND .ENVELOPE +6(RO)
SND . ENVELOPE +10(RO)
SND .ENVELOPE +12(RO)

¢ ,REF .NUM

REF .NUM, »

SND .ENVELOPE +15(RO)
SND .ENVELOPE +16(RO)

945, SND . ENVELOPE +20(R0O)

SND .ENVELOPE +22(R0O)
OSND .BUF , SND . ENVELOPE
+24(R0O)

OSND .ENVELOPE
+26 ,R1

RO,R1

(R1)
1(R1)
SND . ENVELOPE
+ 30(RO)
SND . ENVELOPE
+ 32(RO)
SND .ENVELOPE
+ 34(RO)
SND .ENVELOPE +36(RO)

R3,(SP)
PC,.LOAD.OUTS$STD.BUF
RO,.R2

?%.02001

3518
3519
3523
3524
3525
3526
3527
3528
3529
3535
3536
3540
3541

3543
3544
3545
3546

3547

REF .NUM, »

+,SND.BUF $LOC

SND.BUF $LOC, »

PC,DECODE
18%:

3516

3517

94 ,SND .ENVELOPE +14(RO)

000000G 000024G

3511
3512

3548
3555
3557

3562

ggD.SLOT.RO
RO

100000
000002
000000G 000004

007640

175554

28:

SEND.RING,RO
€100000,2(R0O)
8RC25.ADDR,4(SP)
4(SP),RO
22
27640,(SP)

PC,CTO.WAIT

+,RC$S.REG

RC$S.REG, TEMP

3566
3600
3607

REF .NUM, »
SND.BUF $LOC, »

(SP)+,(SP)+

000000G 000011

176240

173512

8¢

gEY.STATUS.Oll
$

:g.GET.DUST.STATUS
33

PC,DECODE

3616

K16
ZRCHBS
REV B PATCH 00
000322
000326
000330
000334
000340
000342

016701
010100
016000
020067
101417
010067
016167
010016
016746
012746
012746
010600
104414
000422
026167
101421
010067
016167
010016
016746
012746
012746
010600
104414
062706
000700
012700
000420
004767

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

000000G

RET.ENSAD,R1
R1,RO

3%:

SEQ 0205
Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816;4(17)

3626
3622

RO, (SP)
PID.SAVE+2, -(SP)
OPID.FMT, -(SP)

PID.SAVE,»

3625
3626
3627

SP,RO
14
5S¢

SP,»s

24(RO) RO

000000G
000026
000002G

RO,PID.SAVE

22.PID.SAVE

26(R1),PID.SAVE+2

000002G
000000G
000003

000002G

2?(R1).PID.SAV502

3624
3631

RO,PID.SAVE
26(R1),PID.SAVE+2
RO, (SP)

PID.SAVE,

3634
3635
3636

SP,.RO

SP,s

PID.SAVE+2, -(SP)
OPID.FMT, -(SP)

000002G
000003

000051

6$:

173350

78:

3633
3631
3639

SND.BUF SLOC,

8s%:

OUTS$STD.BUF +2(RO),RET.ENSAD
OUT$STD.BUF +2(R0O),RO
16(RO)
108

000002G 000000G
000016

000031
000000G

9s:

000000G
000006

10$:
118:

; Routine Size:
; Maximum stack depth per
3676

VAX-11 Bliss-16 v3-555

+
RET.ENSAD,

000024
000000G

000026

13:46:24
13:23:12

Routine Base:

invocation:

12 words

31,R0
RO,RET.STATUS

3666
3651

06,5SP

3453

PC
+

3659

11$

RET.STATUS,RO

AC$CODE

3647
3607

4350

L16
ZRCHBS

ZRCHBO RC25S DISK FORMATTER

REV B PATCH 00 MODULE DECLARATIONS

11-Jan-1984 13:23:12

gg;;

global routine REC_DATA =

Performs host-->port communications

3679

:
:
:
:
3
3
:
:
:

S-Apr-1984 13:46:24

VAX-11 Bliss-16 V3-555

! Functional Description :
!
These
commands are used to communicate between the initiating host
!
program and the remote
program.
Both
send and receive commands
!
specify a host buffer
descriptor and a byte count.
In the case of
!
send data, the information in the buffer is read by the remote program
!
and a send data response sent dack to the host to acknowledge receipt.
!
In the case of receive data the remote program writes data into the
!
buffer up to the amount specified by the byte count and then sends a
H
receive
data response to the host to notify it of the transmission.

3
3
:
:

3690
3691
3692
3693

!
!
!
!

The
send data
and receive data commands are only legal when the
server
is
in the
active state.
If
the remote program terminates
abnormally, putting
the server back
in the
idle stae, outstanding
send data and receive dJdata commands may be lost.
In the event th.t

3695

issue a get

3
:
3
:

:
:

3694

3696
3697
3698

3699

3700
g;gé

the

specified

response and a

3708
3709
3710
3711
3712
3713
3714
3715
3716
3717
g;ig

!
!
!
¢
!
!
!
¢
!
1§
3

3720

3721
3722

:
3
H
3

3725
3726
3727
3728

:
:

3730
3731

H
:

3733

the remote program is

Implicit Outputs
none

This

Side Effects

none

get dust

status

shows the

remote program

global storage gets

loaded

the routine

‘Get_nsd’
end
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.

Completion Codes :
RET_STATUS:

!
!--

second

NSD_SLOT

Return status passes back to the calling routine
the status of the just issued command.

begin

local
REF _NUM,

REC BUFOLOC.

3729
3732

the host program should

having
made no progress
in the interim then the program should be
considered broken and should be aborted.

:
:
s
:
3
H
:
3
:
3
3

:
H

to see if

!
5

! Formal Parameters
!
none
!
! Implicit Inputs :

is exceeded,

command

still
running
(is.
the dup server
is active); if
it
s, the
progress
indicator
should be
remembered and the timeout interval
should be re-installed.
If
the second
timeout
expires without a

3703
3704
3705
3706

3707

interval

!
!
!

3
:
:
3

timeout

dust staus

TEMP

!
! Before we load
!

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816;4(18)

3680
3681
3682
3683
3684
3685
3686
3687
gggg

SEQ 0206

!1Stores unique cmd ref number
!Stores out$standing cmd buffer location

'A place to put read IP register data
up the command packet up with all this good information

get the next send descriptor slot and a unique command reference number.

M16
ZRCHBS
REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
MODULE DECLARATIONS

S-Apr-1984 13:46:24
11-Jan-1984 13:23:12

3
:

3734
3735

!
GET_NSD ();

3738

: UQ Port command envelope Header field definition

3
:
:
3

3740
3741
3742
g;:z

SND _ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

g;:z

! DUP generic command envelope field definition

:
:
:
:
:

3747
3748
3749
3750
3751

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

g;gg

: Command specfic command envelope field definition

;

g;g;

: Byte count of transfer

3
:

3759
g;gg

SND_ENVELOPE [ .NSD_SLOT, BLO_CNT] = RECB_SIZE;
'Byte count low word
?M)_ENVELWE [ .NSD_SLOT, BHI_CNT) = ZERO;
1Byte count high word

3762

! Buffer descriptor definition

3
:
:

3764
3765
3766

SND_ENVELOPE ([ .NSD_SLOT, BPA_LO) = REC_BUF;
SND_ENVELOPE [ .NSD_SLOT, BPA_HI) = ZERO;
SND_ENVELOPE [ .NSD_ SLOT. QBUS_EXT] = ZERO;

!Low unibus adrs <0-15>
'Unibus adrs bits <16-17>
'Q_bus extention adrs

3768

SND_ENVELOPE [.NSD_SLOT, UBA_CHAN]) = ZERO;

!Unibus adoptor channel nunber

g;;g

‘

:
:

:
3
‘

3
3
:
:
3

3
3
3
:

:
:

3752
g;?j

3767

3769
3770
3771
g;;g

3774
3775
3776
g;;z
3779

?EF_M = GET_CMDSREF ();
-

!
?

[ .NSD_SLOT,
[.NSD_SLOT,
[.NSD_SLOT,
[ .NSD_SLOT,

[.NSD_SLOT,
[.NSD_SLOT,
[.NSD_SLOT,
[.NSD_SLOT,
[ .NSD_SLOT,

!Get the next send desc slot

1Get a unique command ref num

MSG_LENGTH] = SZ_RED;
Load message length
CREDITS] = ONE;
Load credit size
MSG_TYPE] = 0;
'Define message type 'Sequential’
CONN_ID] = DUP;
'Define connection ID

CMD_LREF])
CMD_HREF)
UN_LUSED)
UN_HUSED]
OPCODE) =

= _REF_NUM;
'Load command reference number
= ZERO;
!Zero Hi order cmd ref num
= ZERO;
!Not used in DUP implimentation
= ZERO;
!Not used in DUP implimentation
OP_RED;
!Load this commands op-code

SND_ENVELOPE [.NSD_SLOT, RSVD]) = ZERO;
?MJ_ENVEL(PE [.NSD_SLOT, MODIFIER] = ZERO;

'Not used field
!Define this commands modifiers

SND_ENVELOPE [ .NSD_SLOT, RSV])

SND_ENVELOPE
SND_ENVELOPE
SND _ENVELOPE
'..SM)_ENVELGE

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
{ .NSD_ SLOT.

RSVO)
RSV1)
RSV2]
RSV3)

= ZERO;

=
=
=
=

ZERO;
ZERO;
ZERO;
ZERO;

'‘Reserved field

'These next four words are not
‘tused in the UQ Port implementation
!
'

! Call the load outs$standing command buffer routine and load this command
! into the buffer.
The ntum from this routine will point
us
to
the
! buffer location where this command is stored. Later we can look at this
: location to see if the interrupt service routine has received and process
1%,
H

g;’g?

REC_BUFSLOC = LOAD_OUTS$STD_BUF (.REF_NUM);

3782

if .REC_BUFSLOC eqlu OBF_CODE then DECODE ();

H
;

3784
g;gg

H
: Set the ownership bit to 1 giving this slot to the port/controller,

g;g;

?EM)_RIMS [.NSD_SLOT, OWN_BIT) = PORT_OWNED;

g;gg

: Read the IP register to stimulate port polling

H
3

3
3

‘!Load the command

SEQ 0207

VAX-11 Bliss-16 V3-555
Page 63
SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS. 816;4 (18)

1Error if buffer is full

Bl
<RCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

KLV B PATCH 00 MODW.E DECLARATIONS
:
:
:
:

3791
3732
3793
3;9;

:
H
:
3
:

379
3797
3798
3799
gggo

:
:
:

1
2802
2803

:
:

2804
;ggz

:
3

TEMP

_RC2S5_ADDR

te
! Time out
H

!
!
H
H
!
:
'
!

13:46:24

11-Jan-1984 13:23:12

[RCIP,

the port/controller

for the response from this command.

If the controller times out then:
1. See
what
kind of
error was returned.

If the error
is
o type other than a CTO_CODE (controller time out)
then
call
routine
Decode which does the appropriate
action based on the error,

!
H

If
the
returned
error
is en CTO_CODE then do a get
dust
status
and check the progress indicator to look

for an -ncrcooo. -ndicating that
still running and is not dead.

the remote program

:
!

:
:

ggog
1

H
:

RPD_CODE

:
:
:
:
:
3

3812
3813
3814
3815
3816
ggt;

:
!
!
!
'
'

remote
progrem
is
still running, save a copy of its
velue and
reinstate the controller time out delay and
repeat the loop.

3808

3811

:
3
:

3819
3820
;ggé

:
3
:
:
3

H
H

3823
3824
3825
3826
3827

3828

;ggg

!
!
!

the

remote
If

the

indicator hasn't changed then asssume

program

indicator

while

TRUE
)
BREAK;
H

'‘Repeat

! Do @ controller time out and
!

has processed the command or

! program

if the controller

if a fatal error has occured.
‘

3837

3840
3841
5842
3843
3844
3845
346
3847

determine

C's

H
s
H
;
3
H
;

for ever

!Flag control

?eg

then assume that the

3835
gggg

chenged

and exit.

the

IfF
the
controller doesn't time then return with the return code
returned from routine CTO_WAIT () which could be either a success
or error code by definition of this host code.

if CTO_WAIT
then

3836

has

that

end return an error code of

As 1
es the progress indicetor in the remote program
is =Lill increessing this loop will be repeateo for ever.

3831
3832
;ggz

desd

(remote progrem deed code)

3
3
3
B

(8000,

.REF _NUM,

_REC_BUFS$L.OC)

'Is return an error

the return status code eql's a CTO_CODE

and repeat

is still running.
the

loop else call

then see

the remote

is then save the progress

routine Decode ().

indicator

if .RET_STATUS eqlu CTO_CODE
then

'Is this a controller time out

begin

GET _DUST _STATUS () then DECODE

.RET ENSAD

[PLO_IND)

gtru

();

.PID SAVE

!Get
(0]

SEQ 0208
Page
64

SPIDERSUSERS: [NEALE.AZTEC )ZRCHBS . 816;4(18,

RC _ALL];

3807

VAX-11 Bliss-16 Vv3-555

the dust status
!Any progress been made

Cl
ZRCHBS

ZRCHBO RC25 DISK FORMATTER

5-Apr-1984 13:46:24

MODULE DECLARATIONS

3848
3849
3850
3851

11-Jan-1984

13:23:12

VAX-11 Blise-1€ Vv3-555

then

3852

3853
3854
3855
3856
3857
3858
3859
3860
3861
3862
3863
ggg;

else

bcsin
PID _SAVE (0] = .RET_ENSAD (PLO_IND);
PID_SAVE (1) = .RET_ENSAD [PHI_IND);
PRINTB (PID_FMT, .PID_SAVE (1), .PID_SAVE
end

!Still running save Pid

(0]);

if .RET_ENSAD [PHI_IND) gtru .PID_SAVE (1)
then
in
PID_SAVE (0) = .RET_ENSAD (PLO_IND];
!1Still running save Pid
PID_SAVE (1) = .RET_ENSAD (PHI_IND);
PRINTB (PID_FMT, .PID_SAVE (1), .PID_SAVE [01);
end
else
return RET _STATUS = RPD_CODE;
!No progress so flag error

B0
G0 O
G0 G0
S0 S
B0 GF G0 S0 G0
B0 B0
90 S0
90
S0 S0
S0
S8
G0 S0 G0 BF
G0 B
B0 S0 90

end
else
!
! The return stetus code was not a controller time out code so something
3 else is wrong.
Call the routine Decode () to find out what went wrong.

3872
3873

DECODE

3874

387

3877

3878
3879
3880
3881

()

end

The command has been received by

the

interrupt service.

Get this
commands return
envelope address out of
out$std_buf and check for good return status error

gggg

die

gggg

if bad status.

éer,eusno = .OUTS$STD
BUF [.REC BUFSLOC, ENV_ADR];

3886

the
and

!'Get the ret env adr

§ Test for good status

3887
3888
3889
3890

if .RET_ENSAD
then

gggg

else

3893

3895

[STATUS) neaqu ZERO

!Test

the status

return RET_STATUS = RSE _CCDE

!Return a "Response status err” code

return

!This ret_status

RET _STATUS;

is good or bad

end;

W5 S5 80 50 B0

3366
3867
3868
3869
gg;g

000000

3897

3899

end;

return

3900

end;

004167

000000G

.RET _STATUS;

'It won't compile without this here

SBTTL.
REC.DATA:;
:

REC.DATA MODW
E DECL ARATIONS

’5092329 65

SPIDER
[NEALE
SUS
.AZTEC )ZRCHBS.B1
ERS:
6:4

G0 B8 G0

G0 OF 96 G0 O

B0 Gs

B¢ S¢ S0

00 O

REV B PATCH 00

(18)

D1
ZRCHBS

REV 8 PATCH 00

005746
004767
004767
010003
016746
012746
004767
012760
012701
060001

112711
112761
010360

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATTIONS
R1,

173026
173170

034,SND .ENVELOPE(RO)
OSND .ENVELOPE +2,R1
RO,R1
e1,(R1)
02,1(R1)
R3,SND.ENVELOPE +4(RO)

SND .ENVELOPE +6(R0O)
SND .ENVELOPE +10(RO)
SND.ENVELOPE +12(RO)
05,SND .ENVELOPE +14(RO)
SND .ENVELOPE +15(RO )
SND .ENVELOPE +16(RO)

0000146
000020G

€170, SND .ENVELOPE +20(R0O)

000024G

OREC.BUF
, SND .ENVELOPE +24(R0O)
@SND .ENVELOPE
+ 26 ,R1
RO,R1
(R1)

1(R1)
SND . ENVELOPE
+ 30(RO)
SND .ENVELOPE
+ 32(R0O)
SND .ENVELOPE
+ 34(RO)
SND . ENVELOPE
+ 36(RO)

017500
175014

006000
000000G 000011

¢ ,REF ,NUM

3735
3736
3740

3741

REF .NUM,

R3,(SP)

REF .NUM, »

?i.OEOOI

REC.BUF SLOC,

PC.LOAD.QUTS$STD.BUF
RO,R2

18:

0000006
100000
000002
000000G 000004

175500

3677

SND .ENVELOPE +22(RO)

002001

173056

€5

PC,BL $MUL

000001

0000006

:EQ 0210

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 616:4(18)

$SAVES

PC,GET.CMDSREF
RO,R3
NSD.SLOT, -(SP)

172712

026727
001065
004767
006000
103002

VAX-11 Bliss-16 V3-555

PC,GET.NSD

000000G
000054
0000006
000034
0000006
0000026

000001
000002
0000046
000006G
000010G
000C12G
000005
000015G
0000166
000170
0000226
000000G
0000266

13:46:24
13:23:12

-%§P)

000001
000030G
000032G
000034G
000036G

103074

S-Apr-1984
11-Jan-1984

s ,REC.BUFSLOC

PC,.DECODE
NSD.SLOT,RO

3742
3743
3747
3748
3749
3750
3751
3752
3753
3759
3760
3764
3765
3767
3768
3769
3770
3771
3772
3780

3782
3787

RO
RO

SEND.RING,RO

€100000,2(R0O)

SRC25.ADDR,4(SP)

28:

4(SP),RO
22
@17500,(SP)

PC,CTO.WAIT
(SP)+,(SP).

RO
8s$
3ET.SYAYUS.011
$
PC,GET.DUST.STATUS
RO
L3

+,RC$S.REG

RC$S.REG, TEMP

REF .NUM,
»
REC. BU'OLOC .

3791

3825
3832

E1l
ZRCHBS
REV B PATCH 00
000316
000322
000326
000330
000334
000340
00034¢
000346
000354

ZRCHBO RC25 DISK FORMATTER

MODULE DECLARATIONS

004767
016701
010100
016000
020067

172752
0000006

010067
016167
010016
016746
012746
012746
010600
104414
000422
026167
101421
010067
016167
010016
016746
012746
012746
010600
104414
062706
000700
012700
000420
004767

0000006
000026
000002G

101417

S-Apr-1984
11-Jan-1984
PC,DECODE
RET.ENSAD,R1
R1,RO

3$:

24(R0O),RO

000024
0000006

VAX-11 Bliss-16 v3-555

SEQPOZII

SPIDERSUSERS: [NEALE. AZYEC)ZRCHBS 61634(18)
i

RET _ENSAD,»

3851
3847

PID.SAVE,

3850
3851
3852

zg.PID.SAVE

RO,PID.SAVE

26(R1),PID.SAVE.2

RO, (SP)

PID.SAVE+2, -(SP)

000002G
0000006
000003

000026

13:46:24
13:23:12

OPID.FMT, -(SP)
03, -(SP)

000002G

SP,RO
14
5S¢
ge(fll).PID.SAVEOZ

0009006
000026
000002G

RO,PID.SAVE

000002G
000000G
000002

PID.SAVE
.2, -(SP)

26(R1),PID.SAVE+2

RO,(SP)

SP,s
3849
3856

: PID.SAVE,

3859
3860
3861

OPID.FMT, -(SP)

SP,RO

000006

Ss:

000051

6$:

172610

7%:

Spl.
3858
3856
3864

8s%:

REC.BUFSLOC,

3872
3832
3884

000512
000514
000520
000524
000526
000532
000536

000002G 000000G
000002G
000016

OUTS$STD.BUF +2(RO),RET.ENSAD
OUTS$STD.BUF +2(RO),RO
16(RO)

000031

#31,R0
RO,RET,STATUS

10¢

000000G

9s:

000000G
000006

10%:
11%:

118

RTS

*76 words,
AC$CODE
Rout ine Base:
; Routine Size:
; Max'mum stack depth per invocation:
12 words

3901

RET,.STATUS,RO
8o, SP
PC

5110

3889

3891

3876
3677

F1
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

REV B PATCH 00

TMMODULE DECLARATIONS

gggg

global routine SET_CNTLR_CHAR

3904

3909

3
:
3
:

3905
3906
3907
3908

13:46:24

11-Jan-1984 13:23:12
=

! Functional Description :
!
The SET CONTROLLER CHARACTERISTICS command is used to set host
!
settable
unit
characteristics
and
obtain
those
unit
!
characteristics
that are
essential
for
proper class driver
!

operation.

3910
3911
3912
3913
3914
313
3916

!
!¢
!
!
!
1
!

("unit-online”,
"unit-available”,
"unit-offline”).
It
is
meaningless
to
set
host settable characteristics for a unit
that is "unit-available” or "unit-offline”,

:
3
:
:

3918
3919
3920
3921

!
!
!
!

3
3
:

3923
3924
3925

¢
!
!

3917

3922

This

Formal Parameters
none
Implicit

Inputs

Implicit Outputs
none

H
:
:

3932
3933
gggg

:
:
3
3
:
:
3

3936
3937
3938
3939
3940
3941
gg:g

H
3

3944
3945

0
!

3
:

3948
gg;g

GEY_NSD ();
REF _NUM = GET_CMDSREF

gggé

gg:g

H
H

H
H
5
3
H
s

3953
3954
3955
ggsg
5

3953

!
¢
!

unit's

state

3926
3927
3928
3929
ggg?

the

command packet.

:
3
3
:
:
H

alters

This
global storage gets
loaded
by
the routine
‘Get_nsd'
and
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands

!
!
!
!
!

never

NSD_SLOT

command

Completion Codes :
RET_STATUS:

Return status passes back

the status of the just

the calling routine

issued command.

Side Effects :
Any previously defined controller characteristics will possibly
be altered after execution of this command.

begin
local
REF _NUM,
SCC BUFSLOC.
TEMP;

Before

!Stores unique cmd ref number
!Stores outsstanding cmd buffer location
'A place to put read IP register data

load up the command packet up with all

get the next sond descriptor slot

information

and a unique command reference number.
1Get the next send desc slot
1Get a unique command ref num

();

UQ Port command envelope Header

SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
SND _ENVELOPE [ .NSD_SLOT,
!

this good

field definition

MSG_LENGTH] = SZ_SCC;
!Load message length
CREDITS) = ONE;
‘Load credit size
MSG_TYPE] = 0;
!Define message type 'Sequential’
CONN_ID) = MSCP;
'Define connection ID

' MSCP generic command envelope field definition

SEG 0212

SPIDERSUSERS: [NEALE.AZTEC )ZRCHBS . 816:4(19)

!Sets control characteristics

3
:
:
3
3
H
3
:

VAX-11 Bliss-16 v3-555

3959
3960
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972
3973
3974
3975

3976
3977
3978
3979
3980
3981
3982
3983
3984
3985

ZRCHBO RC2S5S DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

13:46:24
13:23:12

y
VAX-11 Blis s-16 v3-555
SPIDERSUSERS
: [NE A

’

SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
]

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

CMD_LREF] = _REF_NUM;
'Load command reference number
CMD_HREF) = ZERO;
!Zero Hi order cmd ref num
UN_LUSED] = ZERO;
!Not used in DUP implimentation
UN_HUSED] = ZERO;
!Not used in DUP implimentation
OPCODE) = OP_SCC;
!'Load this commands op-code
RSVD] = ZERO;
!Not used field
MODIFIER) = ZERO;
!Define this commands modifiers

! Command specfic command envelope field definition
'

SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND_ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
?ND_ENVELOPE

( .NSD_SLOT, MSCP_VER])

= ZERO;
[ .NSD_SLOT, CTL_FLAGS]) = ZERO;
[ .NSD_SLOT, HOST_TOV] = ZERO;
[ .NSD_SLOT, RS$VD] = ZERO;
[ .NSD_SLOT, T$D_0) = ZERO;
[ .NSD_SLOT, T$D_1] = ZERO;
[ .NSD_SLOT, T$D_2] = ZERO:;
[ .NSD_SLOT, T$D_3] = ZERO;
[ .NSD_SLOT, COP_LO) = ZERO;
( .NSD_SLOT, COP_HI] = ZERO;

!MSCP version
!Controller flags
!'Host time out value
'Reserved
'Time and Date word 0O
'Time and Date word 1
!Time and Date word 2
!Time and Date word 3
!Cntlr dep parameter lo word
'Cntlr dep parameter hi wrd

' Call the load outs$standing command buffer routine and load this command
!
1)

into the buffer.
The return from this routine will
point
us
to
the
buffer location where this command is stored.
Later we can look at this
location to see if the interrupt service routine has received and process

SCC_BUFSLOC

= LOAD_OUTSSTD
_BUF (.REF _NUM);

‘'Load the command

.SCC_BUFSLOC eqlu OBF _CODE

then DECODE ();

'Error

if buffer

! Set the ownership bit to 1 giving this slot to the port/controller

]

SEND_RING [ .NSD_SLOT,

’

S8
S8
G
S
S¢
G
G5
SE
S0
B4
B0
B0
G0

B¢

4005

4007

= PORT_OWNED;

Read the IP register to stimulate port polling

4008

OWN_BIT]

;

4009
4010
4011
4012

4013
4014

4015

:
T EMP = _RC25_ADDR [RCIP, RC_ALL];
:
: Time
out the
port/controller processing
the command.
:
first
: The
test
tests the connections
ability to
this command without
any errors in the SA
: respond to
: register and for the command not timing out.
:
second tests the
DUP server for good status.
If
? The
! bad status is sent back then an error code is returned
: to the calling routine where the routine "“decode” will
: decode
and take the
appropriate recovery.
The
time
: out
routine will loop on delaying and checking the hi
: bit of the
first word in
the
out$std buf for a true.
! When true signals us that the interrupt service routine
the endpacket
and
no connection errors
: has received
: were detected.
!

SEQ 0213
b

LE.AZTEC JZRCHBS.B16:4°C19)

G¢

B¢

G¢

ZRCHBS
REV B PATCH 00

is full

it.

H1
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00 MODULE DECLARATIONS
:

:81?

if CTO_WAIT (3000,

4018

;
:

4019
4020

4022

:
:
H
:
:
3
:
:
:
:
3

4021

4023

4024
4025
4026
4027
4028
4029
4030
4031
4032
4033
4034

000000

004167

000004
000006
000012
000016

005746
004767
004767
010002

020024
000030
000034
000042
000046

012746
004767
012760
012701
060001

000020

000050
000054

000060
000064

000070
000074
000100

000106

016746

105060

000146

005060

000166

000170

000174
000176

RET_ENSAD =

005060

005060
005060
005060

005060
010216
004767

010001
020127

Page

SPIDERSUSERS: [NEALE. AZTEC]ZRCHBS 816°4(19)

!'Is return an error

if bad status was returned

.OQUTSSTD_BUF [.SCC_BUFS$LOC, ENV_ADR];

!
! Now test for good status
H

if .RET_ENSAD [STATUS] nequ ZERO
then
return RET_STATUS = RSE_CODE
else
return RET_STATUS;

'Get the ret env adr

'Test the status

'‘Return a "Response status err” code
'This ret_status

is good or bad

end;

000000G

172266
172430

000000G

000054
000000G
000040
000000G
000002G

000010G
000012G
000004
000014G

005060
005060
005060
005060

000162

for good status error and die

005060
005060
112760

010260
005060

000122
000126
000132
000136

000152
000156

000001
000001

005060

000142

,.SCC_BUFS$LOC) then DECODE ();

SEQ 0214

Get
the return envelope
address
from the
outs$std_buf
at
this commands
buffer location
and check the packet

112711
105061

000112

000116

!
!

.REF_NUM,

11-Jan-1984 13:23:12

VAX-11 Bliss-16 V3-555

000004G
000006G

000015G

000016G

0000206

000022G
000024G
0000266
000030G

000032G

000034G
0000366
000040G

000042G
172160

002001

.SBTTL

SET.CNTLR.CHAR MODULE DECLARATIONS

JSR

R1, $SAVE2

SET.CNTLR.CHAR:
:
TST
JSR
JSR
MOV

MOV

MOV
JSR
MOV
MOV
ADD

MOVB
CLRB
MOV
CLR

CLR
CLR
MOVB

CLRB

-(SP)
PC,GET.NSD
PC.GET.CMDSREF
RO,R2

NSD.SLOT, -(SP)

CLR

¢,REF .NUM

3953

3955
3956

SND .ENVELOPE +10(R0O)
SND .ENVELOPE +12(RO)
04 ,SND .ENVELOPE +14(RO)

:
:
:

R2,SND.ENVELOPE +4(RO)
SND .ENVELOPE +6(RO)

SND . ENVELOPE +15(R0O)

;
:

SND . ENVELOPE + 32(RO)

}

SND .ENVELOPE + 36(RO)
SND .ENVELOPE +40(RO)

SND.ENVELOPE +42(R0O)

R2,(SP)

MOV
cMP

RO,R1
R1,42001

PC,LOAD.QUTS$STD.BUF

3965
3966

3970

:
:
:
:

3971
3972
3973
3974

3975

397¢

:
:

3960
3961

3962
3963
3964

SND .ENVELOPE +«34(RO)

REF
. NUM,

SND . ENVELOPE +20(R0O)

MOV

JSR

8
:

SND .ENVELOPE +22(R0O)
SND .ENVEL.OPE +24(R0O)
SND .ENVELOPE +26(R0O)
SND .ENVELOPE +30(RO)

CLR
CLR

3948
3949

01,(R1)
1(R1)

CLR
CLR
CLR
CLR

CLR

3
:

3954

SND.ENVELOPE +16(RO)

CLR

3902

CLR

3977
3978

REF _NUM,

:
s

¢,SCC.BUFSLOC
SCC.BUFSLOC,
»

3979
33806

3988

I1
ZRCHBS

REV B PATCH 00

000202
000204
000210
000214
000216
000220
000224
000232
000240
000244
000250
000252
000254
000260
000262
000264
000266
000272
000274
000276
000300
000306
000312
000316
000320
000324
000330
000332
000336
000342

:
:

001002
004767
016700
006300
006300
066700
052760
017766
016600
012716
010246
010146
004767
022626
006000
103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

172324
0000006

1$:

0000006
100000
000002
0000006 000004
000004
005670

R2,-(SP)

174264

172242

PC,CTO.WAIT

2s:

000002G 000000G
000002G
000016

OUT$STD.BUF +2(RO),RET .ENSAD
OUT$STD.BUF +2(R0O),RO
16(R0O)
3

000031
0000006
000000G
000006

VAX-11 Bliss-16 v3-555

SEQ 0215
Page

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS . 816:4(19)

3993

+,RC$S.REG

RC$S.REG, TEMP
REF .NUM, «

3997
4016

SCC.BUFSLOC,
»

(SP)+,(SP)+

RO
23
PC,DECODE
R1,RO
RO
RO

@31,R0
RO,RET.STATUS
3s:
4
:

RET.STATUS,RO
RTS

Routine Size:
114 words,
Rout ine Base:
ACSCODE
Maximum stack depth per invocation:
9 words
4035

13:46:24
13:23:12

PC
+

5650

SCC.BUF$LOC,
»

4023

4028

4030

3937
3902

J1
ZRCHBS

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

REV B PATCH 00

MODULE DECLARATIONS

:8;?

global routine ON_LINE

4038

4040

4041

host

:
:

4043
4044

!
!

operation.
The
unit
is
are
loaded
prior
to

4046

characteristics

4048

!
!

and

host

3
:
3
:
:
H
:

4050
4051
4052
4053
4054
4055
4056

!
!
!
!
!
!
!

"unit-online”.

:
:

:
:
:

:
3
3
:
3
:
:
3
3
3
:

4039
4042

4045
4047

4049

4057
4058
4059
4060
4061
4062
4063
4064
4065
4066
:82;

3
:
:

;

H
3
:
:

:
H
:
;

4069
4070
:8;5

4073

!
!
!

command

settable

message.

set

Host

unit

any

that

settable
are set

other

vol|d-ty

Formal Parameters
none
Implicit Inputs
NSD_SLOT

Completion Codes :
RET_STATUS:

i f

for

command were

the unit

are

class driver

altered

set exactly

issued.

has been

checks have succeded.
are not

set

unit

necessary, and
is heads
the
online
command's
end

characteristics

after

proper

those

Host settable

successfully

Note that

the unit

spun-up

the unit's
already

Return status passes back to the calling routine
the status of the just issued command.

possibly

begin

4075
4076
4077
4078

local
REF _NUM,

!Stores unique cmd ref number
!Stores outs$standing cmd buffer

ONL BUFGLOC

:8;3

TEMP;

GET_NSD ();
REF _NUM = GET_CMDSREF

:8gg

4090

essential

spun-up,
returni

"unit-online,

obtain

Side Effects :
Any previously defined controller characteristics will
be altered after execution of this command.

4074

4091
4092

are

unit

and

4085
:8:?

This
global storage gets
loaded
by
the routine
‘'Get_nsd’
and
in it is stored the next send ring
descriptor
slot
where the port/controller should
be polling on and the
place
to put this commands
command packet.

H
H
H

bring

Implicit Outputs
none

characteristics

settable characteristics

!
!
!

wused

characteristics

4081
4082
:gg}

unit

location

'A place to put read IP register data

Before we load
up the command packet up with all this good information
get the next send descriptor slot and a unique command reference number.

1Get the next send desc slot
'Get a unique command ref num

();

UQ Port command envelope Header field definition

SND _ENVELOPE

SND _ENVELOPE
SND _ENVELOPE

[ .NSD_SLOT,

[ .NSD_SLOT,
[ .NSD_SLOT,

MSG_LENGTH)

SZ_ONL;

CREDITS] = ONE;
MSG_TYPE] = 0;

!Load message

‘Load credit size
!‘Define message type

SEQ 0216
Page

SPIDERSUSERS: [NEALE.AZTEC ]ZRCHBS . 816:4(20)

!Makes a unit come online to a host

characteristics

!
!
!
!
!
!
!
!
!

online

VAX-11 Bliss-16 v3-555

11-Jan-1984 13:23:12

Functional Description
The

13:46:24

length
'Sequential’

IK1
ZRCHBS

REV B PATCH 00

:
‘

:832

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

?ND_ENVELOPE [ .NSD_SLOT, CONN_ID)
-

:832

4097

SND _ENVELOPE [ .NSD_SLOT, CMD_LREF])

3
:
:

4099
4100
4101

SND _ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

3
:
:

4098

4102
4132
41

:{82

!
0

SND _ENVELOPE

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

CMD_MREF)

SND_ENVELOPE [ .NSD_SLOT, RSVSD) = ZERO;

4114
4115
4116
4117
:%ig

SND _ENVELOPE
SND _ENVELOPE
SND _ENVELOPE
SND_ENVELOPE
?ND_ENVELOPE

! Call

:
3

4124
:{gz

!
!

!Not used field
'Define this commands modifiers

SND _ENVELOPE
SND _ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND _ENVELOPE
SND_ENVELOPE

!
!
!

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,
[ .NSD_SLOT,

the

UNT_FLAGS] = ZERO;
RSVD$0O) = ZERO;
RSVD$1) = ZERO;
RSVD$2) = ZERO;
RSVD$3) = ZERO;
RSVD$4) = ZERO;

'Reserved

!Unit flag field
'Reserved field
'Reserved field
'Reserved field
'Reserved fie.d
'Reserved field

RSVD$S] = ZERO;
'Reserved field
DDP_LO) = ZERO;
'Device dependent parameter
DDP_HI] = ZERO;
Device dependent parameter
SHADOW_UNIT]) = ZERO;
!Shadow unit
COPY_SPEED]) = ZERO;
!Copy speed

load outsstanding command buffer routine

and
load
this command
into
the buffer.
The return
from this routine will point us to the buffer location
where
this comuand
is
stored.
Later we can look at

this
location to see if the
has received and process it.

:{g;

ONL _BUFSLOC

4129

if .ONL_BUFSLOC eqlu OBF _CODE then DECODE ();

4131

4132

§euo RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;

:{g?

;

4138

TEMP = .RC25_ADDR [RCIP, RC_ALL];

:%:2

H
3

3
5
H
H

3
H
H
3

:%gg

4142
4143
:}2;
4146
4147
4148
4149

!
!
!
H

!
!
!
!

LOAD_OUTSSTD_BUF

interrupt service routine

order cmd ref num

s Command specfic command envelope field definition

4120

‘Load command reference number

(.REF _NUM);

!'Load the command

Set the ownership bit to 1 giving this slot

1Error if buffer is full
to the port/controller

Read the IP register to stimulate port polling

Time

out

the

UNIT_NUM] = _UNIT_NO;
!Select unit to bri
online
UN_HUSED] = ZERO;
!Not used in DUP implimentation
OPCODE] = OP_ONL;
‘'Load this commands op-code

4107

4121
4122
4123

!Zero Hi

port/controller processing

the command.

The
first
test
tests the connections
ability to
respond to
this command without
any errors in the SA
register and for the command not timing out.
The
second tests the
DUP server for good stetus.
If
bad status is sent back then an error codo is returned
to the calling routine where the routine "decodc” will
decode
and take the
appropriate recovery.
The
time

SEQ 0217
Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS . 81634(20)

!Define connection ID

,REF _NUM;

ZERO;

[ .NSD_SLOT,

SND_ENVELOPE [ .NSD_SILLOT, RSVD] = ZERO;
SND _ENVELOPE [ .NSD_SLOT, MODIFIER] = ZERO:

4108
4109
4110
4111
4112
4113

3
3
:

VAX-11 Bliss-16 V3-555

MSCP generic command envelope field def nition

3
:
3
3
3
3

3
:
3
:
:

= MSCP;

13:46:24
13:23:12

L1
ZRCHBS

REV B PATCH 00
:

4150

:
:

4152
4153

:
:

ZRCHBO RC2S5 DISK FORMATTER

MODULE DECLARATIONS
! out

! bit of the

4154

! were detected.

!
!

first word

if CTO_WAIT

(ONE_MINUTE,

4158
4159
4160
4161
416§
416
412;

RET_ENSAD

:
:
:
:

41
4166
4167
4168

!
!
H

4169

:
3

4170
41;1

then
.
return RET_STATUS

:
3
H
H

11-Jan-1984 13:23:12

SEQ 0218

Page

SPIDERSUSERS: [NEALE.AZTEC ]JZRCHBS. 816;4(20)

the

out$std_buf 'or a true.

When true signals us that the interrupt service routine
has received
the endpacket
and
no connection errors

:
:
:
:
:
:
:

VAX-11 Bliss-16 V3-555

routine will loop on delaying and checking the hi

4151

4157

S-Apr-1984 13:46:24

.REF_NUM,

.ONL _BUFS$LOC)

then DECODE

H
! Get
the return envelope
address
from the
outs$std_buf
! at
this commands
buffer location
and check the packet
! for good status error and die if bad status was returned
H
=

.QUTS$STD_BUF

[.ONL _BUFSLOC,

ENV_ADR];

!Get

the

();

ret

'Is

env

return

an error

adr

Now test for good status
.RET_ENSAD

4172
41;3
4174
4175

else

end;

000000

004167

000000G

000004
000006
000012
000016
000020
000024
000030
000034
000042
000046
000050
000054
000060
000064
000070
000076
000102
000110
000114
000120
000124
000130
000134
000140
000144
000150

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001
112711
105061
010260
005060
016760
005060
112760
105060
005060
005060
005060
005060
005060
005060
005060
005060

return

171722
172064
000000G
000054
000000G
000044
000000G
000002G
000001
000001
000004G
000006G
000000G 000010G
000012G
000011
000014G
000015G
0000166
0000206
000022G
000024G
0000266
000030G
000032G
000034G

[STATUS])

nequ ZERO

= RSE_CODE

RET_STATUS;

!Test

the

'Return a

status

"Response status err” code

'This ret_status

is good or bad

.SBTTL

ON.LINE MODULE DECLARATIONS

JSR

R1, $SAVE2

ON.LINE::

TST
JSR
JSR
MOV
MOV
MOV
JSR
MOV
MOV
ADD
MOVB
CLRB
MOV
CLR
MOV
CLR
MOvB
CLRB
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR

-(SP)
PC,GET.NSD
PC,GET.CMDSREF
RO,R2
NSD.SLOT, -(SP)
054, -(SP)
PC,BL $MUL
“4 SHD .ENVELOPE(RO)
OSM) ENVELOPE +2,R1
RO,R1
¢1,(R1)
1(R1)
R2,SND.ENVELOPE +4(RO)
SND .ENVELOPE +6(RO)
UNIT.NO,SND.ENVELOPE+10(RO)
SND.ENVELOPE +12(RO)

4036

H
H
;

4085
4086

¢,REF _NUM

4090

4091

:
H
;s
3

4092
4093
4097
4098

REF
. NUM, s

H
F

4099
4100

H
:

4101
4102

SND .ENVELOPE +16(RO)
SND .ENVELOPE +20(RO)
SND .ENVELOPE +22(R0O)
SND .ENVELOPE +24(RO)
SND .ENVELOPE +26(RO)
SND .ENVELOPE +« 30(RO)
SND .ENVELOPE + 22(RO)
SND .ENVELOPE + 34(RO)

3
:
:
:
:
3
:
:

4103
4107
4108
4109
4110
4111
4112
4113

M1
ZRCHBS

REV B PATCH 00

000154
000160
000164
000170
000174
000200
000202
000206
000210
000214
000216
000222
000226
000230
000232
000236
000244
000252
000256

005060
005060
005060
005060
005060
010216
004767
010001
020127
001002
004767
016700
006300
006300
066700
052760
017766
016600
012716

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

13:46:24
13:23:12

VAX-11 Bliss-16 V3-555

R2,(SP)
PC,LOAD.OUT$STD.BUF
RO,R1
R1,62001
1%
PC,DECODE
NSD.SLOT,RO
RO
RO

002001

171746

0000006

18:

000000G
100000
000002
000000G
000004

165140

173706

R1,-(SP)
PC,CTO.WAIT

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816:4(20)

SND .ENVELOPE +36(RO)
SND .ENVELOPE +40(R0O)
SND .ENVELOPE +42(R0O)
SND .ENVELOPE +44(RO)
SND .ENVELOPE +46(R0)

171602

SEQ 0219

4114
4115
4116
4117
4118
4127

«,0NL .BUF $LOC

ONL .BUF $LOC, »

4129

4134

+ ,RC$S.REG

RC$S.REG, TEMP
REF .NUM, »
ONL .BUF $LOC, »

4138

4157

(SP)+,(SP)+

171664

PC.DECODE
R1,RO
RO
RO

2%:

000002G 000000G
000002G
000016

OUTS$STD.BUF +2(RO),RET .ENSAD
OUT$STD.BUF +2(R0O),RO
16(R0O)
33

000031
000000G

000354

;

000207

Routine Size:

Maximum stack

4176

000000G
000006

depth per

031,R0
RO RET.STATUS

3s:
4s:

RTS

AC$CODE
Rout ine Base:
invocation:
9 words

RET STATUS,RO
.605
PC

+ 6214

ONL .BUF $LOC, »

4164

4169

4171

4074
4036

N1
ZRCHBS
REV B PATCH 00
4177
4178
4179
4180
4181

4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199
4200

4201
4202
4203
4204

4205
4206
4207
4208
4209
4210
4211
4212
4213
4214
4215
4216

4217

000000

012767

000006

000002

ZRCHBO RC25 DISK FORMATTER

MODULE DECLARATIONS

l..

;

!
:
!
H

4218

13:46:24

VAX-11 Bliss-16 v3-555

11-Jan-1984 13:23:12

global routine INTSI_SERVICE

INT_LNKSTYP novalue

'Init sequence

!
:
!

This interrupt service routine serves to catch any interrupts that
controller
might
issue
during
the
initialization sequence.

interrupt

ignored and control

This

existence test

interrupt

!
!

Formal Parameters
none

Implicit

Inputs

NEX _FLAG

:
:

Implicit Outputs :
NEX _FLAG

Complet
' on Codes
none

Side Effects
none

PPN

NEX _FLAG

routine

also used during

in determining whether P_Table RC25

the

RC25

reg ster

registers exist.

A flag which is loaded with zeros during the R(25 register
e~ stence test and set to all ones by th's routine
'n the
event of attempts to read & non e- 'stent RC2S controller.

service

is returned.

the
The

interrupt catcher

Note that no initerrupt will be generated at the completion of
step
4
since
this step rquires only a small number of time.

'
:
:

Page

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 816;4(21)

!
:

SEQ 0220

Functional Description :
During the initialization sequence the IE bit is defined to be
a zero.
This means that the host is not requesting interrupts at
the completion of steps 1-3.

Is returned with all ones
registar access attempts.

trhe event

RCZS non e ‘stent

ONES;

!ingd cate

tn's

nterrup®

occureo

return;

end;

177777

LSBTY L
INTSI.SERVICE:
MO v

000000G

;: Routine Size:
4 words,
; Maximum stack depth per
;

S-Apr-1984

INTSI

01.“'.‘.4,

RTI

Rout ine Base:

invocation:

O words

ACSCODE

SERVICE

o%°

TMODLE

DEZ. ARATIDN

82 %0

B2
ZRCHBS

ZRCHBO RC2S DISK FORMATTER

S-Apr-1984

13:46:24

VAX-11 Bliss-16 V3-555

REV B PATCH 00 MODUW.E DECLARATIONS

11-Jan-1984 13:23:12

!Init sequence time out

:gég

global routine IS_TIMER (SEQ_NO) =«

:
3
:
:
3

4221
4222
4223
4224
:ggg

4227
:ggg

Yoo
! Functional Description :
!
Steps 1-3 of the init sequence, each are
!
10 seconds.
If any of these steps fails
H
this is to be treated as a host detected
H
!
This routine will do one us delays for a
H
each delay the step field is examined to

4230

! Formal Parameters :

:
3

3
-

:ggé

4233

4237

:g:g

:
:
:
:
:
3

:
H

4234
4235
4236
4238
4239
4242
4243

:
:
:

4244
4245
4246

4248

::
3

4247

4
4350

4251

SEQ_NO:

]

!
!
!

Indicated which

Implicit Inputs

Implicit Outputs

!
! Completion Codes

none

!
!
!
!
!
!

Indicates to the calling routine that

the

indicated

init sequence step has

FALSE:

Indicates to the calling routine that
step has not timed out.

the

indicated

init sequence

:gg?

?TEP-VAL

= ZERO;

:ggg

the step value erpected from this

:
3
:
3
F

4260
4261
4262
4263
4264

3
H
H
H
3
3
3

4266
4267
4268
4269
4270
4271
4272

;

4273

a274

4275

the sa

is posted

! --

init sequence.

TRUE :

4252
4253
:ggg

4265

total of 10 seconds.
After
see if this init sequence has comp.eted.

is presently being performed within the RC25

:
:
3

required to complete within
to complete within that period,
fatal error.

Side Effects :
If the init sequence step times out and an error
then the routine decode will be call.

loceal
TO_VALUE
STEP_VAL

Select

selectoneu
set

(0]

:
:

word,
word;

.SEQ_NO of

STEP _VAL
TO_VALUE
end;

(1)

!Step time out value
!Temp storage of step value

!Make sure the
init

loc

is zeroed out

sequence step.

!Select

the binary

step value

= #b’'0001°;
= 20000;

'Step 1 binary value
!Timeout step one for 60 seconds

= #b'0010';

IStep 2 binary

in
STEP_VAL
TO_VALUE

end;

S000;

!Timeout

step

value

two

SPIDERS$VUSERS: [NEALE.AZTEC JZRCHBS. 816;4(22,

none

init step

SEQ 0221
Page

for

10 seconds

timed out.

Ce
JRCHBS

ZRCHBO RC2S DISK FORMATTER

REV

S-Apr-1984

13:46:24

MODWWLE

11-Jan-1984

13:23:12

B¢

B PATCH 00

000010
000012
000016
000020
000024

DECLARATIONS

(2)

4276
4277
4278

begin

STEP_VAL

TO_VALUE
end;

4279
4280
4281
4282
4283

18]

4295
429
4297
4298
4299
4300
4301
4302

= #b’'1000';
= S000;

]

S5000;

end;

?tcp 4 binary value
!Timeout step 4 for 10 seconds

tes;

Loop
on the 100 micro second delay until either the expected step
is read in the SA register or the step times out.

incru TIM_OUT
bogm

?ELAV

from O to

.TO_VALUE do

field

!Loop on C_US delay's

(C_US);

‘Do the delay

! Check the step bit to see if it is set yet. If it is set then return
!
]

& false

indicating the completion else continue delaying.

.RC25_ADDR

[RCSA,

STP_FIELD) eqlu

BREAK
;

.STEP_VAL

then return FALSE;

!Service any control C's

end;
e

!
!
!

This step has not completed within the specified time interval.
the sa register for any errors posted and report errors if any.
a true to the caller indicating the error,

if .RC25_ADDR
then
in

[RCSA,

!Is the error bit

ERR _BIT)

end;

0000006

162706
005002
016600
001005

000006

TRUE;

'Return a failure to the caller

.SBTTL
IS.TIMER:
:
JSR
SuUB

CLR

000022

000001

047040

set

!Indicate the port/fatal error code
'Report the error

DECODE ();

return
end;

Test
Return

:EY-SYATUS = PFE_CODE;

004167

012702
012703

!Step 3 binary velue
!Timeout step 3 for 10 seconds

STEP_VAL
TO_VALUE

4303
4304
4305
4306

4307
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319
4320
4321

= sb’'0100';

4284

4285
4286
4287
4288
4289
4290
4291
4292
4293
4294

SEQ_0222

P
VAX-11 Bliss-16 v3-555
nge
SPIDERSUSERS:[NEALE.AZTEC JZRCHBS.B16:4 (22

MOV
BNE

MOV

IS.TIMER MODUWE DECLARATIONS
R1,$SAVE4

06 ,SP

4219

f%(SP).RO

STEP,VAL

SEQ.NO,

01,R2
047040,R3

i
i

¢,STEP, VAL
¢, TO.VALUE

425e
2ol

4200
407

De
ZRCHBS

REV B PATCH 00

000423
020027
001003

012702
000413
020027
001003
012702
000405
020027
001004
012702
012703

000001

S-Apr-1984
11-Jan-1984

4261

000004

43
Ss:

6%:

01,R1

11$

7%:

4278
4279
4261

¢,70.VALUE
TIM.QUT

«,STEP, VAL

4284
4285
4294

., 88TMP2

429%

e ,88TMPL

000004

8s:

$$TMP
$STMPL

9%:

0000006
000002
000002

10¢:

RC25.ADDR,RO

2(R0),2(SP)

R2,R1

000002

;

«,STEP.VAL

33:

000010
011610

4272

4273

2s:

000003

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS . 816;4(22)
«,STEP, VAL

000002

SEQ 0223

4261

000002

000000G

;

VAX-11 Bliss-16 Vv3-555

1$:

000001

2(SP),RO

RO
RO
RO
RO
@177760,R0O
RO,R1

177760

$$TMP2
¢ ,RC$S.REG

4302

STEP. VAL,

RC$S.REG,
»

138

0000006
000002

000021
171352
000001
062706
000207

Routine Size:
Maximum stack

4322

2(R0O),(SP)
12$

000000G
12%:

13%:

000006

83 words,

depth per

14%:

RTS

Rout ine Base:
ACSCODE
10 words

invocation:

021,RET, STATUS
PC,DECODE
1,R0
14¢
RO
@6,5P
PC
. 6602

TIM,QUT
TIM.OUT,TO.VALUE

+,RC$S.REG

4294

4313

4%1o
4317
4250
D>

118

22
R4
R4 ,R3
64
RC25.ADDR,RO

000162
000164
000170
000172
000174
000176
000200
000202
000204
000210
000214
000216
000224
000230
000234
000236
000240
000244

13:46:°4
13:23:12

000030

ZRCHBO RC2S5S DISK FORMATTER
MODULE DECLARATIONS

4323
4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338

4339
4340
4341
4342
4343
4344
4345
4346
4347
4348
4349
4350
4351

4352
4353
4354
4355
4356
4357
4358
4359
4360
4361
4362
4363
4364
4365
4366

4367
4368
4369
4370
4371
4372
4373

4374
4375
4376
4377
4378

4379

S-Apr-1984
11-Jan-1984

global routine BOOT_RC2S

!Performs RC2S

13:46:24
13:23:12

SEQ 0224
VAX-11 Bliss-16 Vv3-555
Page
80
SPIDER
: [NEALE
S$U
.AZTEC JZRCHBS.B1
SERS
6;4 (23

init sequence

Functional Description
This

routine performs the

initialization

RC25 controller.
The

the RC25

initialization procedure serves to:

Identify

the parameters

of the host-resident communications

Provide

check

region to the port.

sequence

confidence

of port/controller

integrity.

Bring
the
port/controller online
to the
host (note that the
devices
attached
to the controller
are
not
thereby brought

online to the class driver.)

Formal Parameters

none

Implicit Inputs :
ISD_STRUCT

Implicit Outputs

Stores the
for

init sequence read and write data defined

this program and controller,

none

Completion Codes
Success:

Is returned to the calling routine

if this

initialization

sequence was executed successfully.

Failure:

returned to the callng routine

sequence was not

Side Effects

Any DM code
aborted.

that

might

this

executed successfully.

have been

running

the DM machine will

Any outstanding commands or response pertaining to a process using
the controller will be

lost.

begin

local
TEMP

word;

!Temporary storage

REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

I I 10 10 1S 10 10 1O 1S 10 16 10 10 1O IO IS IS IS IS IS IO IO IO IO IS IS IB IS IS IS IS ID IS IS IB IS IS I ' '@

ZRCHBS

The
host begins
the
either
by
issuing
@&
any

value

guarantee

the

segquences
Version

into the

that

the

next bus

1.5,

through

initialization
sequence
bus init
or by writing

IP register;
host

cycle.

will

the port must

read zeros

Initialization

then

steps 1-4 as per UQSSP.DOC

location

F2
ZRCHBS

REV B PATCH 00
:
:
3
:

4380
4381
4382
4383

H
:

438
4386

4388

:
:

4;8;

4387

4389

ZRCHBO RC2S5 DISK FORMATTER

MTMMODULE DECLARATIONS

! Write
to
the
! sequence going.
!WRT_RC25

1e
!

This

incr

and

4394

!
!
!

4395

4397

invoking

retry procedure.

returned.

4400

a step completion

3
3
:

3
3
:
:
:
H

4396

4398
4399
4081

4402
4403
4404
4405
4406
4407

::83

:
:

4410
4411

4414

:
H

::ig

!
!

!
!-

structure

read

4392
4393

a step

error

::ig

Wait

The

into

the

stands

out error occures

return code

the

from STEP1

for

the

test

compare error

failure

is detected after

routine Decode will

decode

to STEP4 do

‘Do the

the

tables up pertanate data.

four

?‘9

(.SEQ_NO)

::gg

::gé

seq steps

'‘Did the Controller

DO SOME STAT

TABLE UP DATA TO SHOW

THE

TIME OQUT
;

PRINTB (.EMSG_STRUCT
return FAILURE;
end;

!
!
H
!
!

time out

[

4426
4427
4428
4429
4430

init

for the controller to load the SA reg up with the step data.

IS_TIMER

!
!

time

and load statistical

then

4422
4423

the

and

sequence

this routine will take the necessary

incru SEQ_NO
begin
'

is preset

init

[MSG101]);

h
DRS>. init of
.

!Notify

the

failure

The controller did not time out so read the SA register
for
the expected step data and compare it to the good
date stored in ISD_STRUCT,
If the read SA data
failure code.

is not what we expect

then

return a

Note that the reserved fields read in the SA register are
or'ed with all ones to mask out the field before compared

to the expected data stored

::gi

TEMP

((.RC25_ADDR

4435
4436

if .TEMP nequ
then

[RCSA,

.ISD_STRUCT

in the structure

"ISD_STRUCT",

RC_ALL])) or (.RSVD_STRUCT
[.SEQ_NO,

ISRD,

ISR_ALL)

SEQ 0225

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS . 816;4(23,

any SA register

4417
4418
4419
4420
4421

:
H
H
3
:

four steps of

Sequence Data_STRUCT",

3
3
;
:
;

data

ISD_STRUCT

"Initialization

;
3

'Begin

loop performs all

write

VAX-11 Bliss-16 v3-555

init

initialization sequence described above.

:
:

start the

ONES);

4390
4391

(RCIP,

13:46:24

11-Jan-1984 13:23:12

IP register and

:
:

S-Apr-1984

[.SEQ_NO1));
!Compare

read

to expected

ZRCHBS

B¢

REV B PATCH 00

begin

4440
aaa)
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452

000112

! Load some satistical table up with some data to
1

init sequence had some trouble.

PRINTB (.EMSG_STRUCT
return FAILURE;

[MSG111]);

VAX-11 Bliss-16 v3-555

SEQ 0226
Page
82

SPIDERSUSERS: [NEALE .AZTEC)ZRCHBS. 816-4(23%)

]

If this

indicate

that

the

'Return a failure code

end;

is step four then print this u-code version number,

.SEQ_NO eqlu

STEP4

then PRINTB

(FMT4,

.RC25_ADDR [RCSA,

S4R_VER]);

’

!
!

4456

This step read data is what we expected so write the SA register
with this steps write data stored in ISD_STRUCT,

WRT_RC25S (RCSA,
end;
!

The controller

4461
4462
4463

end;

004167

000000G

103007
016746
012746
010600
104414
000427
016700
016066
010200
006300
016603
056003
010201
006301
006301
020361
001410

13:46:24
13:23:12

4453
4454
4455
4357
4458
4459
4460

S-Apr-1984
11-Jan-1984

MODULE DECLARATIONS

4437
4438
4439

024646
012700
010077
005002
010246
004767
005726
006000

000102

ZRCHBO RC25 DISK FORMATTER

.ISD_STRUCT

[.SEQ_NO,

ISWRT,

ISW_ALL]);

initialization sequence was done successfully so return a success code.

return SUCCESS;

177777
0000006
177504

1%:

000002
000000G

0000006

BOOT.RC25 MODULE DECLARATIONS

JSR
CMP
MOV
MOV
CLR
MOV
JSR

R1,$SAVE3
-(SP), -(SP)
¢-1,R0
RO,aRC25.ADDR
R2
R2,-(SP)
PC,IS.TIMER

TST
ROR

8CC

0000246
000001

000000G
000002
000002

.SBTTL

BOOT.RC2S::

2%:

MOV
MOV
MOV
TRAP
BR
MOV
MOV

MOV
ASL

MOV
BIS
MOV
ASL
ASL

CMP
BEQ

4323

. REG
+« ,RCSM

RCS$M.REG,
SEQG.NO
SEQ.NO,
»

4384
4405
4411

(SP)+
RO

EMSG.STRUCT
.24, -(SP)
o1, -(SP)
SP,.RO
14
38
RC25.ADDR,RO
2(R0O),2(SP)
R2,RO
RO

4417

SP,s
4411

+,RC$S.REG

SEQ.NO,
«

2(SP),R3
RSVD,.STRUCT(RO),R3
R2,R1

RC$S.REG, TEMP
o, TEMP

R3,ISD.STRUCT(R1)
43

TEMP,

R1
R1

4433

SEQ.NO,
¢

4435

H2
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

000114
000120
000124
000126
000130
000132
000134
000140
000142
000146
000152
000154
000160
000164
000170
000172
000174
000200
000204
000210
000214
000216
000222
000224
000230
000232
000234
000236

016746
012746
010600
104414
022626
000437
020227
001017
016700
016016
011646
042716
012746
012746
010600
104414
062706
016101
016700
010160
005202
020227

0000266
000001

012700
000401
005000
022626
000207

000001

101676

; Routine Size:

Maximum stack

4464

S-Apr-1984
11-Jan-1984

VAX-11 Bliss-16 v3-555

SP,RO
14
(SP)+,(SP).

4%;:

Page

4442

0000006
000002

SEQ 0227

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS. 81634(23)

EMSG.STRUCT+26,
-(SP)

3s:

000003

13:46:24
13:23:12

SP,»

SEQ.NO.‘

4435
4437
4450

: *,RC$S.REG
i RC$S.REG,

177760

000000G
000002
000006
000002G
0000006
000002

S5$:

IS0.STRUCT+2(R1),R1

RC25.ADDR,RO
R1,2(RO)
R2
R2,23
1$

000003

74
RO

6
7

(SP)+,(SP)e«

PC
Rout ine Base:
AC$CODE
80 words,
depth per invocation:
11 words

7050

SP.‘

*,RCSM REG

RCSM
. REG, »

SEQ-NOO‘

: SEQ.NO

4456

4405

4366

4323

12
ZRCHBS

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984

13:46:24

VAX-11 Bliss-16 Vv3-555

REV B PATCH 00

MODULE DECLARATIONS

11-Jan-1984 13:23:12

1Tnits DUP Protocol commumication ares

:
B

4466
4467

4465

global routine INIT_COM_AREA =

:
N
:

4468
4469
4470

'+
! Functional Description :
!
After initialization step 3 the port controller clears out
!
the communication area’'s ring buffers.

4471

:
:
:
:
:

4372
44;3
4474
4475
44;?

!
!
!
!
!

This routine first makes sure that this protocol
plished by the port before proceeding.

If the port did
ations
area is

communic-

its part of the protocol
initialized as follows:

4479

address

4481

are

initially

::g}

BLISS

language conventions).

4485

:
3
3

4486
4487
4488

!
!
!

:
3
:
:
3

4478
4480

4482

4489
4490
4491
4492
4493

4494

and

require

from

“COM_AREA”

!
!
!
!
!

Defines

Clears

the

(ring

base

the

contigious

header
send

area

address

to be

interrupt

-1,

-2,

data storage

address,

ring address

declared

the

accom-

structure

receive ring

(these

structures

as reference structures and
defined

its

value per

indicators and adaptor

-3,

SPIDERSUSERS: [NEALE.AZTEC JZRCHBS . 61634(24)

-4)

defined as

pur

"HEAD_AREA’

Loads the receive and send descriptors with the values:
a.
b.
c.
d.

the

then

Envelope low, high and Q_bus address
Reserved field
Flag bit
Ownership bit

Load the receive envelope message length field with the

:
H
:
3
:
:
H
:
3
:

4495
4496
4497
4498
4499
4500
4501
4502
4503
:ggg

!
!
!
!
!
!
!
!
!
E

:
3
;
:

4506
4507
4508
4509

!
!
!
!

Implicit Outputs :
The communication area as a result of this routine will be initialized
for host program to remote program communications per DUP and
UQSSP specifications,

Completion Codes :
TRUE ;
Error code to indicate tne port controller has
not
Ffullfilled
its
part of the DUP protocol.

H
3
3

:
:

4510
4511
4512

:giz
4515

:gig

H
H
:

4518
4519
4520

4521

!
!
!
H

buffer size

in bytes.

Initialize the Outs$standing command buffer
that

all

Formal Parameters
none

slots are unused.

FALSE:

! Side Effects
!
none
!--

An error

code

has fullfilled
:

to reflect

Implicit Inputs :
HEAD _AREA, RECEIVE _RING,

SEND_RING,

its

COM_AREA

indicate the port controller

part of

the DUP

protocol.

SEQ 0228
Page
84

B B% @5 @8 B8 G5 B¢ B8 B

G B G4 G4 G

4549
4550
4551
4552
4553
4554

4555
4556
4557
4558
4559
4560
4561
4562
4563
4564
4565
4566

4567

4568
4569
4570
4571
4572
4573
4574
4575
4576
a577
4578

13:46:24

11-Jan-1984 13:23:12

MODULE DECLARATIONS

VAX-11 Bliss-16 V3-555

Make sure that the controller has done

its part of

the DUP protocol by clearing out the ring buffers.
If
the rings are not cleared out then return with

an error code of true.
incru

from 2 to RING_SIZE
c

1 do

!Test all blocks for zeros
1Test all words for zeros

j from WRDO to WRD1 do

Test this word for zeros.
If not zeros then exit
this routine
with
an "communication area
init"”

error
if
The

.COM_AREA [.i,

port did

define

code

its

indicate the Protocol violation.

.j.,

WORD_REF) nequ ZERO then return CIE_CODE;

part of the protocol so now

the address locations of the HEAD_AREA,

RECEIVE_RING and SEND_RING from the contigious

storage declared by COM_AREA.

HEAD _AREA = COM_AREA;
RECEIVE_RING = COM_AREA [REC_BASE];

SEND_RING = COM_AREA [SND_BASE];

'Define the Header area

‘Define the receive ring area
!Define the send ring area

‘e

! Not quite sure if the port has to clear out
! the
header area of the communications area
! so
I'll
clear it
out
here
just in case.
incru i from WRDO to WRD3 do
HEAD _AREA [.i
WORD _REF]

= ZEROS;

Load up the Send Ring descriptors with an envelope address,
define
the "“Flag bit” to = 1 (interrupt requested), define
the
“Ownership bit”
to
= O (owned by host)
and load the
Reserved field with zeros (per DUP spec).
incry

from O to SND_ALLOCATE

SEND_RING
SEND_RING
SEND _RING
SEND_RING
SE:D_RING
endg;

SEQ 0229

Page

SPIDERSUSERS: [NEALE.AZTEC]ZRCHBS. 81634(24)

begin

(2]
=

4522
4523
4524
4525
4526
4527
4528
4529
4530
4531
4532
4533
4534
4535
4536
4537
4538
4539
4540
4541
4542
4543
4544
4545
4546
4547
4548

S-Apr-1984

ZRCHBO RC25 DISK FORMATTER

G4 S¢ GF G G G S8

e GE G0

6 G

G S8 SF BE G0 GF G0 S8 G0 We GF G0 O

G0 S0 TF S0 S0 @8 S0 S0 GF B0 W S0 S0 @0 0 S0 e

ZRCHB
REV B PATCH 00

1 do

(.i, LO_ENSAD) = SND_ENVELOPE [.i, CMD_LREF]); !Low-order envelope adress for all sys
[.i, HI_ENSAD) = ZERO;
'High-order portion of an 18-bit U/Q bus adrs
[.
QB _EXT) = ZERO;
'Q_bus extention
[.u. D$RSVD) = ZERO;
'Reserved field
[.
FLAG_BIT] = SET_FLG;
Flag
bit whose meaning varies depending on dsc state
(.u. OWN_BIT) = HOST_OWNED;
'Indicates whether dsc is host or port owned

‘
ZRCHBS

B¢

G¢

B¢

®r

000000
000004
000010

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

4579
4580

4583

4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608

4609
4610
4611
4612

VAX-11 Bliss-16 V3-555

SEQ 0230
Page

SPIDERS$USERS: [NEALE.AZTEC JZRCHBS . 816;4(24)

incru i From O to REC_ALLOCATE - 1 do
in

RECEIVE _RING
RECEIVE _RING
RECEIVE_RING
RECEIVE _RING

[.i,
[...
[.
(.u.
RECEIVE _RING (.

LO_ENSAD) ~ REC_ENVELOPE
HI_ENSAD]) = ZEROS;
QB_EXT) = ZEROS;
D$RSVD] = ZEROS;
FLAG_BIT] = SET_rLG;

(.i,

CMD_LREF];

:fiSEIVE_RING [... OWN_BIT] = PORT_CWNED;
B

i Reset the communications area pointer to their initial state.

[]

NRD_SLOT = -1:
NSD_SLOT = -1;
NXT_CRN = ZERO;

!Start ring pointer at zero
!Start ring pointer at zero
!Start unique cmd ref num at one

!
!

Set the response envelope message length size equeal
to
the buffer
size in bytes starting at text + 0.

incru

from O to REC_ALLOCATE

REC_ENVELOPE

[.i,

MSG_LENGTH)

1 do

= RB_SIZE+2;

!Convert

to bytes before

Init
1.

4613
4614
4615
4616
4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628

end;

004167

0000006

012701
005002

13:46:24
13:23:12

Load
up the
Receive Ring descriptors with an envelope
address, define the "Ownership bit” = 1 (owned by port),
define the "Flag bit” to = 1 (Interrupts requested) and
the reserved field set to zeros (per DUP spec).

4581
4582

4584
4585
4586
4587
4588
4589
4590
4591
4592
4593

S-Apr-1984
11-Jan-1984

REV B PATCH 00

2.
incru

the outstanding command buffer as follows:
Indicate that all slots are unused by loading
the unique value %o’ 100000’
Cleer the cnvolooc adrs words to zero.
i from O

to REC_ALLOCATE

1 do

OUTS$STD BUF [.i,
OUTS$STD BUF [.i,

end;

CMD_WRD)
ENV_ADR)

= %0'100000';
= ZERO;

!'Define the slot as unused
!Clear out the envelope adrs field

!
!

No errors detected by

this routine so return with an nfeserror code of

false.

return PAS _CODE
;

000004

.SBTTL

INIT.COM.AREA MODWLE DECLARATIONS

JSR

R1,$SAVE3

CLR

INIT.COM. AREA: :
|

MOV

04 ,R1

)

4465
4531
4533

L2
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

010100
060200
006300
005760
001403
012700
000207
005202
020227

28:

000240
000242
000246
000252
000254

R1,RO
R2 RO

VAX-11 Bliss-16 V3-555

SEQ 0231
Page
87

SPIDERSUSERS: [NEALE.AZTEC)ZRCHBS. 816:4(24)
I,»

Jo&

4540

COH AREA(RO)
000001

000002

01 RO
PC
R2
R2,01
2
02,R1

000000G 000000G
000010G 000000G
000030G 000000G

3s:

000022 /*

4533

4531

2}.022

HEAD.AREA,R1
(R1)

02,RO
RO, 06

» -

000002

RO,R1

4s:

4549
4550
4551
4559
4560

HEH

000001

Ss:

4559

4569
4571

R1,R2

SEND.RING,R2

054, -(SP)

PC,BL $MUL
OSND .ENVELOPE
+4 ,RO
RO, (R2)
R1,RO

4572

SEND.RING,RO

4576
4570
4569

(SP)+,(SP)+

68:

000077
000004G

000132

101763
062701
020127
101755
012767
012767
012767
005000
010001
066701
005011
062700
020027
101767
005003
010301
006301
006301
010102
066702
010346
012746
004767
062700
010012
010100
066700
062700
012710
022626
005203
020327
101746
005002
010201
006301
006301
010103
066703
010200

13:46:24
13:23:12

000012
000014
000016
000020
000024

S-Apr-1984
11-Jan-1984

4586
4588

RO,(R3)

R1,RO

4589

M2
ZRCHBS

ZRCHBO RC25 DISK FORMATTER

S-Apr-1984 13:46:24

REV B PATCH 00 MODULE DECLARATIONS

11-Jan-1984 13:23:12

VAX-11 Bliss-16 v3-555

066700

000000G

ADD

RECEIVE.RING,RO

000266

012710

140000

MOV

#140000,(RO)

R2,43

i I,»

062700

000272

005202

000300

101745

000274

000302
000310
000316
000322

000324

000332

000336

000342
000344

020227

000003

012767
012767

177777
177777

105067
005000

000000G

062700

000100

012760

000074

020027

000300

101770
005000

000346 012760
000354 005060
000360
000364
000370
000372
000374

000002

062700
020027
101766

ADD

#2,R0

INC

BLOS

cMP

000000G
000000G
000000G

100000 000000G
000002G

MOV
MOV
74:

CLRB
CLR

NXT.CRN
RO

ADD |

MOV

000004
000014

005000
000207

‘

:
:
H
H

4629
4630
4631
4632

4601
4608

#100,RO

;

»,1

4608

7%
RO

4618

#-100000,0UT$STD.BUF(RO)
OUTS$STD.BUF +2(RO)

CLR
RTS

RO
PC

; +,4(I)
; «(I)
; o,
1
s I,
P
:

end
eludom

PSECT SUMMARY

Psect Name
AC$CODE

.GLOBL

Words

$SAVE4,

Attributes

2019

$SAVE3,

L&,

$SAVEZ2, BL $MUL

AR,

CON

LIBRARY STATISTICS

File

SPIDER$USERS : [NEALE . AZTEC ]ZRCHBO.L 162

s-evssc- Sysbol®
Total
Loaded

398

278

---c---Percent

Blocks
Read

4609

4620
4621
4618
4522
4465

7310

0TS external references

s I,e

€4 ,RO
RO, #14
8s

;

; #,4(I)

MOV
CLR

4599
4600
I

RO, #300

: Routine Size:
127 words,
Routine Base:
ACSCODE
;: Maximum stack depth per invocation:
7 words

4586

:
s

CMP

" ADD
cMP
B8LOS

4593

3
3

074 ,REC.ENVELOPE(RO)

BLOS
CLR

8$:

Page

SPIDERSUSERS: [NEALE.AZTEC )ZRCHBS . 816;4(24)

000256

000262

SEQ 0232

N2
ZRCHBS
REV B PATCH 00

ZRCHBO RC25 DISK FORMATTER
MODULE DECLARATIONS

S-Apr-1984
11-Jan-1984

13:46:24
13:23:12
4

COMMAND QUAL
IF LERS

BLISS /PDP11/LIST ZRCHBS.B16
Size:

Run

Time:

Elapsed Time:

Memory

Used:

2019 code
01:26.0

05:03.3

267 pages

Compilation Complete

¢+ O data words

VAX-11 Bliss-16 V3-555

SEQ 0233

Page
89
SPIDE
: [NEALE.AZTEC)ZR
RSUSE
CHBS.B16;4
RS (24)

B3
ZRCHB7?
:
:
:
:

:
3
:
:

3
:
:
:
3
:
:
:
:

3
:

3
H
3

ZRCHBO RC2S DISK FORMATTER
0001
0002
0003

0004
0005
0006

ENVIRONMENT

BEGIN

«SBTTL

0009
0010
0011
0012
0013

! Pretty Declarations
!
!<blf/lowercase_key>
!

oooa

23-Sep-1983 14:16:03

(NOEIS))

'LAST ADDRESS AND SETUP SECTION'

LIBRARY

'ZRCHBO'
;

!Define RC2S Formatter

ggég

REQUIRE

'BLSMAC.REQ’;

Define Bliss macro reauire

1506
1507
1508
1509
1510
1511
1512

!
! The LASTAD mecro must be the final statement (except .end) in
a
pro! gram.
The call generates an even address reflecting the first word of
! memory unused by the program.
!-

3
H
:
:
:
:
:

1517
1518
1519
1520
1521
1522
igg:

]
H

1525
{gg?

library
file

LASTAD
.
E Hardcoded P-TABLES
! These optional hardware P-TABLES are located
(when
present)
between
! the
“LASTAD" macro and the ".END” statement.
These hardware P-TABLcS
! are asbove and beyond the default hardwere P-TABLE located in the
main
! body
of the program.
These P-TABLES wind up appended to the BIN file
! of the diagnostic, just as though the supervisor or the
"SETUP"
yutility
! had
built them there.
Thus the diegnostic can be "pre-parameterized”
! by the programmer.
!

!
E

If this hardcoded P_TABLE section is not wanted then define "number”
the BGNSETUP macro to zero and omitt BGNTAB and ENDTAB macros.

1528

Codi

:
3
3

1530
1531
}ggg

!
!
5

H
3
:
3
s
H
H
H
:
3
3

1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545

!
¢
!
¢
!
!
!
!
!
!
!

1529 !

sample

is as follows:

LASTAD

BGNSETUP (Number
)
BGNPTAB
(DATA)
(DATA)
(DATA)
ENDPTAB

BGNPTAB
(DATA)
(DATA)
(DATA)
ENDPTAB

‘Number of P-TABLES

SEQ 0234

Page

SPIDERSUSERS:
[NEALE .AZTEC)ZRCHB7.B16;2 (1)

88{;

1513
1514
igiz

VAX-11 Bliss-16 v3-555

(#TITLE
ZRCHBO RC25 DISK FORMATTER'
IDENT = 'REV B PATCH 00‘,
ADDRESSING_MODE (RELATIVE),

0007

:
H
3

MODULE ZRCHB7

S-Apr-1984 13:51:39

C3
ZRCHB !

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
LAST

S-Apr-1984 13:51:39

23 -Sep-1983 14:16:03

ADDRESS AND SETUP SECTION

:
:
3
:
3

1546
1547
1548
1549
1550

1552

! No optional P_Tables are defined

1554

1551

!
!
!-

1555

000000
000000

000002
000004

mithin this program,

ENDSETULP

$xvZ¢,

LSLAST ==

000207

SEND.LINK::
RTS

1556
1557

TSFREE

. WORD
TS$FREE: : .WORD

BLSLAS.4

.SBTTL

1 word,

Maximum stack depth per

Rout ine Base:

invocation:

O words

<<TSFREE -<BLSLAS+4>>/2>
0

TSPTHY ==

SEND.LINK LAST ADDRESS AND SETUP SECTION
PC

$XYZ$

. 0006

END
ELUDOM

PSECT

000004

000000C
000000

H
3

;

ZRCHB7 ZRCHBO RC2S DISK FORMATTER
/REV B 7/

BLSLAS: : .WORD

Routine Size:

LTITLE
.IDENT

000004

PSECT

Psect Name

SUMMARY

Words

sxvZs

Attributes

LIBRARY

RO,

LCL,

REL,

CON

STATISTICS

3
:
F

File

SPIDERSUSERS: [NEALE .AZTEC)ZRCHB7, 816;2(1)

ENDSE TUP
.END

000000

000002

SGO 0235

BGNSETUP (0);

1553

VAX-11 Blies-16 Vv3-555

SPIDERSUSERS: [NEALE .AZTEC ]ZRCHBO.L16;2

Le
o

Symbols

Total

Loaded

398

--------

Blocks

Percent

Read

1504

D3
ZRCHB 7

REV B PATCH 00

ZRCHBO RC2S DISK FORMATTER
LAST ADDRESS AND SETUP SECTION

COMMAND QUAL IFIERS

BLISS /PDP11/LIST ZRCHB7.B16
Sice:
Run Time:

.Elapsed Time:
Memory

Used:

1 code ¢+ 3 data words
00:06.5
00:38.1

99 pages

Compilation Complete

S-Apr-1984 13:51:39
23-Sep-1983 14:16:03

VAX-11 Blies-16 V3-555
- 02“
SPIDERSUSERS: [NEALE .AZTEC]ZRCHB7. 81632(1)

E3
. E XE
ZRCHB

Memory

Partition name

Identification
Task
UVIC
Task

TKB M40.02
allocation map
S-APR -84
13:53

Page

SEQ 0237

DUMMY
REV B

(300,12])

-HD
Total address windows: 1.
Task
image
size
: 15680. words
Task address limits: 002000 077177
R-W disk blk limits: 000002 000077 000076 00062.
sss

attributes:

Root

segment:

R/ mem

limits:
limits:

Memory

allocat.or

Disk blk

ZRCHB2

002000 077177 075200 31360.
00000c 000077 000076 0C062.
synopsis:
File

BLK.:(RW,I,LCL,REL,CON)

AB$COD:(RO,I,LCL,REL,CON)

AC$COD:(RO,I,LCL,REL,CON)
AD$COD:(RO,I,LCL,REL,CON)

BL$C
(RO, I,LCL,R
OD
EL,CON)
:
$OMCOD: (RO,D,GBL ,REL ,CON)
$GLOBS :(RO,D
,REL
,GB
,CON)
L

$PLIT$:(RO,D,GBL,REL,CON)

$xyZ$

:(RO,I,LCL,REL,CON)

002000
002000
002000
002166

000000
001434
000166
001246

00000.
00796.
00118.
00678.

003434
005746
005746
015654
015654
015656
015656
016174
016302
016302
061374
061374
64150
064150
077166
077166

002312
007706
007706
000002
000002
000424
000316
000106
043072
043072

01226.
04038.
04038.
00002.
00002.
00276.
00206.
00070.

002554
013016
013016
000010
000010

REV B
REV B

ZRCHB2.0BJ;
1
ZRCHB3.08U;1

REV B

ZRCHB4 .0BJ; 1

REV B

ZRCHBS5.08J;1

ZRCHB6 REV B

ZRCHB6.0B8J;
1

B1le6MUL v3.0
B16SAV v3.0

NEISLB.OLB;4
NEISLB.OLB;:4

ZRCHB6 REV B

ZRCHB6.0BJ;
1

01388.
05646.
05646.
00008.
00008.

ZRCHB2 REV B

ZRCHB2.0BJ;
1

ZRCHB2 REV B

ZRCHB2.08U;
1

ZRCHB7 REvV B

ZRCHB7.08U;1

Global symbols:
ABORT
010572-R
ABO.MS 075604
-R

ACTIVE 076240-R
AZFMTR 016302-R

BLSDIV
BLSLAS
BL$MOD
BLSMUL
BLSSHF

016102-R
077166-R
016114-R
015656
-R
016126-R

B800T.F
BOOT.R
BR.LEV
COM.AR
CRLF
CTO.WA
DATETX
DATMSG
DECODE

-R
076034
015016-R
064112-R
-R
061374
-R
065016
010362-R
064046
-R
075412-R
-R
006352

DFPTBL
DMSA
DUMMY
DUPSI.
DSPCNT
EMSG.S
ERRBLK
ERRMSG
ERRNBR

002140-R
016342-R
-R
015654
007436-R
002122-R
071030-R
002134 -R
002132-R
002130-R

-R
ERRTYP 002126
-R
Ex.LOC 012004
EX,.SUP 011366-R
FCT.BU 062332
-R
FCT.RE 076416-R
FLG.WR 064062
-R
FMT1
064150-R
FMT2
-R
064156
FMT3
-R
064246

FMT4
FMTS
FMT6
FMT?

GET.CM
GET.DU
GET.NR
GET.NS
GOOD.N

-R
064354
064440-R
-R
064550
-R
064646

-R
006264
011070-R
-R
006144
006116-R
075742-R

-R
002252
-R
002262
-R
002272
-R
002304
-R
002322
016302-R
HOSA
-R
HEAD.A 061444
-R
m.aa. 002144
HW, IP, 002140-R
GPs1
GPs$2
GP$3
GP$4
GP$5

6
07647-R
-R
076534
076572-R
076630-R
-R
002146
-R
002142
076322-R
015256
-R
014540-R

F3
ZRCHB .EXE
ZRCHB2

ISD.ST
IS.TIM
LOAD.F
LOAD.O
LUN

L$ACP
LSAPT
L$AU
L$AUT
L$AUTO
LsCCP
LSCLEA
Ls$CO
L$DEPO
L$DESC
LSDESP
LSDEVP

a2+

064130-R
014550-R
-R
005746
006172-R
-R
064074
002110-R
-R
002036
-R
003424
002070-R
-R
003346
-R
002106
003400-R
002032-R
002011-R
-R
002166
-R
002076
002060-R

Task

SEQ 0238

Memory allocation map
TKB M40.02
S-. APR -84
13:53

builder

LSDISP
LSDLY
LS$OTP
LSOTYP
LSOV
LsOUT
LSDVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXP1
L$EXP4
LSEXPS
L $HARD
LSHIME
L$SHPCP

-R
002124
002116-R
002040-R
-R
002034
003412-R
002072-R
-R
002214
002052-R
-R
002044
-R
002126
002102-R
-R
002046
-R
002064

-R
002066
002252-R
002120-R
002016-R

-R
LSHPTP 002022
L $HRDL 002250-R
L$HW
002140-R
L$HWLE 002136-R
-R
LSICP
002104
-R
LSINIT 003334
-R
LSLADP 002026
LSLAST 077172-R
L$LOAD 002100-R
-R
LSLUN
002074
LSMREv 002050-R
L $NAME 002000-R
L $NDHR 002316-R
L $NDHW 002150-R
L $NDSF 002330-R
-R
L $NDSW 002156
L$PRIO 002042-R

stotis}ico:

Total work file references:
Work
file
reads: 0.
file writes: 0.
Work

Size of core pool:
Size of work file:

3216.
2304.

Elapsed time:OO;OO:SB

15303.

words (12. pages)
words (9. pages)

002160-R
002112-R
-R
002062
002010-R
-R
002334
002320-R
002322-R
-R
002056
002020-R
-R
002024
002030-R
-R
002154
002152-R
-R
002114
-R
002014
002012-R
MSGADR 063334
-R

L$PROT
LS$PRT
L$REPP
LSREV
LS$RPT
LSSFTL
LS$SOFT
L$SPC
L$SPCP
LS$SPTP
L$STA
L$SW
LS$SMWLE
LS$TEST
LSTIML
LSUNIT

NEX.FL
NO.ADD
NRD
. SL
NSD.SL
NXT.CR
ON.LIN
OUTSST
OVSA

PFE.ST
PID.FM
PID.SA
PORT.I
PROTO.
PTBL.P
PWR.MS
RC.STR
RC25.A

-R
064064
-R
075444
-R
064104
064102-R
06407C-R
014162-R
-R
064024
-R
064066
067030-R
-R
064714
-R
064076
-R
076164
076116-R
064116-R
-R
075522
-R
074364
-R
064106

RECELvV
REC.BUV
REC.DA
REC.EN
RET.EN
RET.ST
RINGBA
RSVD.S

SOUP.
S
SEND.D
SEND.R
SET.CN
SFPTBL
SMSCP.
SND .BU

SW.Q1.

-R
061446
063332-R
-R
013056
061452-R
-R
064044
064072-R
-R
061404
064120-R
074716-R
012316-R
061450-R
013616-R
-R
002154
075360-R
063712-R
-R
062052
-R
076666

SW.Q2.
SW.Q3.

SW.Q4.
SW.UNA

T0.MAN
T$FREE
T$PTHV
Tl
UNIT.N
VEC.AD
XCRLF
$END.L
$SAVE2
$SAVE3
$SAVE4
$SAVES

076732-R
077022-R
077106-R
-R
002154
-R
075664
077172-R
000000
005732-R
-R
064114
064110-R
-R
065022
077174-R
016174-R
016210-R
-R
016226
016246-R

G3
ZRCHB

CREATED BY

TkB

ON 5-APR-84 AT 13:53

GLOBAL CROSS REFERENCE

DMSA

DUMMY
DUPSI.
DSPCNT
EMSG.S
ERRBLK

ERRMSG
ERRNBR
ERRTYP
EX.LOC
EX.SUP

FCT.BU
FCT.RE

FLG.WR
FMT1

FMT2
FMT3
FMT4

FMTS

FMT6
FMT?

GET.CM
GET.DU
GET.NR
GET.NS
GOOD.N
GP$1

016126-R
076034
-R
015016-R
064112-R
061374-R
065016-R
010362-R
064046-R
075412-R
006352-R
002140-R

016342-R

015654
-R
007436-R
002122-R
071030-R
002134-R
002132-R
002130-R
002126-R
012004-R
011366-R

062332-R
076416-R

064062-R
064150-R
064156
-R
064246
-R
06435-R
4
064440-R

064550-R
06464-R
6

006264 -R
011070-R
006144-R
006116-R
075742-R
002252 -R

GP$2
GPs3
GPs4
GP$5

002262 -R
002272-R
002304 -R
002322-R

HEAD.A

061444-R

HDSA

OO
VOO

015656-R

V00000

BLSSHF
BOOT.F
BOOT.R
BR.LEV
COM.AR
CRLF
CTO.WA
DATETX
DATMSG
DECODE
DFPTBL

016302-R

BLSMUL

076240-R
016302-R
016102-R
077166-R
016114-R

ACTIVE
AZFMTR
BLSDIV
BLSLAS
BLSMOD

075604 -R

000000

010572-R

ABO.MS

OGOGOOOO

ABORT

CREF

voO2

REFERENCES. ..

VOOV

VALUE

V0OV VVY

SYMBOL

5EQ 0239

PAGE 1

ZRCHB4A

& ZRCHBS

ZRCHB2
ZRCHB3
B16MUL
ZRCHB7
B16MUL

ZRCHB4
ZRCHBS
ZRCHB3

ZRCHB2

B16MUL

B16MUL
ZRCHB2
ZRCHB4
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBS
ZRCHB2
ZRCHB2
ZRCHB3
ZRCHB2

ZRCHBS

ZRCHB6
ZRCHB4
ZRCHB2
ZRCHB2
ZRCHB2

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB4
ZRCHB4

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

ZRCHBS
ZRCHB4
ZRCHBS
ZRCHBS
ZRCHB2
ZRCHB3

ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3
ZRCHBS

ZRCHB2

ZRCHB3
& ZRCHB6

ZRCHBS
ZRCHBA
@ ZRCHBS
ZRCHB3
ZRCHBS
ZRCHB3

ZRCHBA4

ZRCHB3
ZRCHB3
ZRCHB4

ZRCHBA
ZRCHBA
o ZRCHBS

)

@ ZRCHB6
& ZRCHBS
ZRCHBS

& ZRCHBS
¢ ZRCHBS

ZRCHB4
ZRCHB4
ZRCHB3
ZRCHB4
ZRCHB3
ZRCHB3
ZRCHBS
ZRCHB4
ZRCHB4
ZRCHBA4

& ZRCHBS

ZRCHB3

& ZRCHB6

ZRCHBS

ZRCHB4

H3
CREATED BY

TkB

ON 5-APR-84 AT

13:53

CROSS REFERENCE

LSDLY
L$DTP
LS$DTYP
L$DV
Ls$DUT
L$DVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXP1
LSEXP4
LSEXPS
L $HARD
LSHIME
L $HPCP
LSHPTP
L $HRDL
LS$HW
L $HWLE

LSICP

LSINIT

L$LADP

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3

ZRCHB2

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB4
ZRCHB4
ZRCHB2
ZRCHBS
ZRCHB3
ZRCHBS
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB3
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

900000V
OGO

LSDISP

LsCCP
LSCLEA
LsCO
L$DEPO
L$DESC
L$DESP
L$DEVP

VOO0V
S

L$SAUTO

-R
003424
002070-R
-R
003346
-R
002106
003400-R
-R
002032
002011-R
-R
002166
002076
-R
002060-R
002124
-R
002116-R
002040
-R
-R
002034
003412-R
002072-R
002214
-R
002052-R
002044
-R
-R
002126
002102-R
002046
-R
002064
-R
002066
-R
-R
002252
002120-R
002016-R
-R
002022
002250-R
002140-R
002136-R
-R
002104
-R
003334
-R
002026

000V
0Y

L$ACP
LSAPT
LSAU
LSAUT

-R
002144
002140-R
-R
076476
-R
076534
076572-R
076630-R
-R
002146
002142-R
076322-R
-R
015256
014540-R
064130-R
014550-R
-R
005746
006172-R
-R
064074
002110-R
-R
002036

CREF

REFERENCES.
..

VALUE

ZRCHB4
ZRCHBS
ZRCHBS
ZRCHB3

ZRCHB4

ZRCHBS

ZRCHB3
@ ZRCHB3

@ ZRCHB3

ZRCHB3

ZRCHBS
@ ZRCHB3
® ZRCHB3

ZRCHB3

ZRCHBA4

SEQ 0240

PAGE 2

ZRCHBS

vo2

i3
ZRCHB

CREATED By

TkB

ON 5-APR-84 AT

13:53

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

LSLAST
L$LOAD
LSLUN
L$MREV
L $NAME
L SNDHR
L $NDHW
L $NDSF
L $NDSW
L$PRIO
L$PROT
L$PRTY
L SREPP
LSREV
L$RPT
L$SFTL
LS$SOFT

077172-R
002100-R
-R
002074
002050-R
-R
002000
002316-R
002150-R
002330-R
-R
002156
-R
002042
002160-R
002112-R
-R
002062
002010-R
-R
002334
002320-R
002322-R
-R
002056
002020-R
-R
002024
002030-R
-R
002154
002152-R
002114-R
002014
-R
002012-R
063334
-R
064064
-R
075444
-R
064104
-R
064102-R
064070-R

L$SPC

Ls$SPCP
L$SPTP
L$STA
L$SuW
LS$SWLE
LSTEST
LSTIML

LSUNIT
MSGADR

NEX.FL
NO.ADD

NRD. SL
NSD. SL
NXT.CR
ON.LIN

OUTS$ST
OVSA
PFE.ST

PID.FM
PID.SA
PORT.I

PROTO.
PTBL.P
PWR .MS

RC.STR

RC25.A

RECEIV
REC.BU

REC.DA
REC.EN

RET.EN

RET.ST
RINGBA
RSVD.S

014162-R

-R
064024
-R
064066
067030-R
064714
-R
-R
064076
076164
-R
076116-R
064116-R
075522-R
074364
-R
-R
064106
061446
-R
063332-R
013056
-R
061452-R
-R
064044
064072-R
-R
061404
064120-R

PAGE

CREF

REFERENCES.
..
¢
¢
¢
@
@
@
@
@
@
@
@
¢
@

ZRCHB2

& ZRCHB7?

ZRCHB2

& ZRCHB3

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB3
ZRCHB2
ZRCHB3
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2
ZRCHB2

@ ZRCHB3
ZRCHB2
@ ZRCHB2

¢ ZRCHB3

@ ZRCHB2

@
@
@
@
¢
¢
&
@
@
¢
@
@

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

@ ZRCHB2

ZRCHBA

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHBZ2
ZRCHB2

@
@
@
¢
¢

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

ZRCHB4

ZRCHB3
ZRCHB4
ZRCHB4
ZRCHB3
ZRCHB4
ZRCHB4
ZRCHB4

& ZRCHBS
ZRCHBS
ZRCHB3
ZRCHBS
ZRCHBS
ZRCHBA
ZRCHB4
ZRCHBA
ZRCHB3
ZRCHB3
ZRCHBS
ZRCHB3
ZRCHBS
ZRCHBA

& ZRCHBS
ZRCHBS
ZRCHBA
ZRCHB4

ZRCHBS

ZRCHBS
ZRCHBS
ZRCHBS

ZRCHBS
ZRCHBS

ZRCHBS

ZRCHB4
ZRCHB4

ZRCHBS
ZRCHBS
ZRCHBS

ZRCHBS

SEQ 0241

voe

J3
ZRCHB

CREATED BY

TkB

ON 5-APR-84 AT

13:53

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

SDUP.
S
SEND.D
SEND.R
SET.CN
SFPTBL
SMSCP
.,
SND.BU
SND.EN
SW.Q1.
SW.@2.
SW.Q@3.
SW.Q4.
SW.UNA

074716-R
012316-R
061450-R
013616-R
-R
002154
075360-R
063712-R
062052-R
-R
076666
076732-R
077022-R
077106-R
-R
002154
-R
075664
077172-R

TO.MAN
T$FREE
TSPTHY
T1
UNIT.N
VEC.AD
XCRLF
$END.L
$SAVE2
$SAVE3
$SAVE4
$SAVES
-

000000
005732-R
064114-R

064110-R
065022-R
077174-R

-R
016174
016210-R
-R
016226
016246
-R

CREF

REFERENCES.
..
@ ZRCHB2

ZRCHBS

ZRCHB4A

@& ZRCHBS

ZRCHB4

& ZRCHBS

¢ ZRCHB2

ZRCHBS

@
@
@
@
@

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2

@
@
@
@
@

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB2ZRCHB7
ZRCHB2
ZRCHB2

& ZRCHB7
& ZRCHB4

ZRCHB3
ZRCHB3
ZRCHB3

ZRCHB4
ZRCHB4

ZRCHBS
ZRCHBS

B16MUL

& B16SAV

ZRCHB3
ZRCHBS

ZRCHBS

B16MUL

& B16SAV

® ZRCHB2

@
@
@
@

ZRCHB2
ZRCHB2
ZRCHB2
ZRCHB7

@ B16SAV
@ B16SAV

ZRCHBS
ZRCHBA4
ZRCHBS
ZRCHB3

ZRCHBS

ZRCHB3

ZRCHB3
ZRCHB3
ZRCHB3
ZRCHB3

ZRCHB4
ZRCHBS

SEQ 0242

PAGE 4

ZRCHB4

vo02