Digital PDFs

AH-T275A-MC

October 1983

265 pages

Original

11MB

view download

OCR Version

10MB

view download

Document:	CZRCHA0 RC25 RC25 DISK FORMATTER OCT 1983 bw
Order Number:	AH-T275A-MC
Revision:	000
Pages:	265
Original Filename:	CZRCHA0__RC25__RC25_DISK_FORMATTER__AH-T275A-MC__OCT_1983_bw.pdf

OCR Text

CZRCHAO

FICH

OF 2 ::;E"ifi“z:.““

RC23

" Toarhao |

PUohE'3oF
2 e~
HIEINED
{E. 2 OF 2weoe
1N usn

SPIDERSUSERS: [NEALE.AZTECICZRCHI. 816 4 (1)

(XTITLE 'CZRCH RC25 DISG)FQRMATTER'
IDENT = "REV A PAT(H 0

GaGam.a

G.020.0.02m.
%2
s a.

'USER DOCUMENTATION'

PRODUCT NAME:

CZRCHAQD RC25 DISK FORMATTER

PRODUCT DATE:

13-JuUL-83

MAINTAINER

Disk Engineering

AUTHOR

D.W.Neale

AC-T274A~M(

PRODUCT CODE:

@f.a.

IDENTIFICATION

XSBTTL
X

SEQ 1

I II I OICI OICICI I ICICIICIIOYOIOIOICIOI
NI OIOIOIOIOIOIOYOIOIOIOIOI YOV O
VNN OVNOIOIII

e
M

P R

T ETECETE

TR IRTR

PRTR TN P TR PR TR

PR PR PR TN

I PI

MODULE CZRCH1

CZRCH RC25 DISK FORMATTER

CZRCH1

VAX=11 Bliss=16 V3=555

THE INF ORMATION IN THIS DOCUMENT IS
SUBJECT
TO CHANGE WITHOUT
NOTICE
AND
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
EQUIPME NT CORPORATION.
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

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

COPYRIG HT (C)

OR
BY

RELIABILITY OF
DIGITAL OR ITS

1983 BY DIGITAL EQUIPMENT CORPORATION

" THE FOL LOWING ARE
DIGITAL
DEC

THE
USE
SUPPLIED

TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

e a2
=0

=0 NOWVIHWN=00
o

NNV

VONOWVMISWN=O

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

WWW

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

WL=O

REFORMAT MODE PROCEDURE
RESTORE
MODE PROCEDURE
RECONSTRUCT MODE PROCEDURE

HOST TEST SUMMARIES
ATTENDED MODE
UN-ATTENDED MODE
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX
APPENDIX

[}

MAINTENANCE HISTORY
GENERAL INFORMATION

~NNN

CONTENTS

N=O

TABLE OF

SEO 2

SPIDERSUSERS:(NEALE .AZTECICZRCH1.B16; 4 (2)

USER DOCUMENTATION

CYICICIICICIIIOICIICIOICIOIOIOICICICIOIOIOIOICICIOICICICICIOIOIOIOIICICIOICY DHICIOIOIOIOIOIOIOIOOIOO
M

AR E

R I E T E N E

PRY

PR PR PR TR P I

PRTR

TR YR TR PR

R PR

PR TE

YRR

YRLR LR EA T LN ¥

REV A PATCH 00

VAX-11 Bliss=16 V3=555

CZRCH RC25 DISK FORMATTER

IRCH

PROGRAM ABSTRACT
PERFORMANCE GOALS

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS
PRODUCT USERS AND USES
RESTRICTIONS
BAD BLOCK DEFINITION
SOURCE MODULE DEFINITION

FLAGS

HARDWARE QUESTIONS
SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE
PID (PROCESS INDICATOR) WORDS
HOST/DM FORMATTER RUN TIME MESSAGES
TYPES OF ERRORS MESSAGES

SPECIFIC ERROR MESSAGES

DM FORMATTER TEST SUMMARIES

A
B
C
D
E
F
G
H

GLOSSARY
BAD BLOCK REPLACEMENT
FCT
RCT
DATA PATTERNS
PINP-PONG ALGORITHM
CREATING CZRCHA DM _ CODE
CREATING CZRCHA HOST CODE

0.0

2O
NS~

b
b

WO~

8-Jul-

1M=Jul-

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

OO
oo
[V]

CZRCH1
REV A PATCH 00

1
-

VAX-11 Bliss=16 V3=555

SPIDERSUSERS:(NEALE .AZTECICZRCH1. 816 4 (3)

MAINTENANCE HISTORY
Modified By: D.W.Neale

Original release

Date:

13-Jul-83

SEO 3

version: 1.0

N = OO0 NS
N

b md
d o
D
b
d
d
b
b
b

PONIND)
= cod b b b omd b d

(elelelelefelalelelels)

0129

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

©°o

SO
o &

WO~

—t

VAX-11 Bliss=16 V3=-555
Page
¢
H1.B16.;4 (4)
SERS
[NEALE .AZTECICZRC
SPID:ERSU

This program will prepare R(25 media for use as addressable storage

providing

compeced

headers

two

and replacing of bad blocks.

sections;

controller-resident DM code section.

This formatter will

host-resident

section,

and

b‘

The host section will serially format up to sixteen R(25 subsystems by
downline-loading the DM code,
and monitor the task.
The downline
section will consist of overlays of DM code.
The first of these will be
down=-line loaded to the drive itself, and accomplish the actual business
of formatting, calling in additional overlays as needed, asking software
parameters questions and printing
formatter error and informational
There are three general modes of DM formatter operation and they are:

0136
0137
0138
0139

0 RESTORE = This mode will only be run by DIGITAL Manufacturin
personnel.
It provides an external copy of the FCT, produce
when the disk was manufactured and stored offline,
to the
RC25 formatter.

0141
0142
0143
0144

0 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 takes considerably longer than the other modes.

&~
o

0 REFORMAT - This mode is used to format a medium which has been
previously
formatted,
and
is betn? 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.

—d

0131
0132
0133
0134

b —h
e
b amd cad
b and cnd
e
) e
bl
D
D amd
b emd

[0 Yo Yo Yo Yo No No Yo No NNV TV IV IV IV IV [V IVIV. P ¥ 3
OO O
NN = OOV
NN
NN =20 000

0146

—)

CANIICICICIIMIICICICICANCIOIOICIICIOIICICICIOIOIOI
I I CICICICIOIOIICICIOIIICIOIO O OIVOIOIOIOIOIYOIYOIYOYOIY D

11=Jul~
8-Jul-

SEQ 4

messages.

(elelelelelelelelelelelelaleolelelalalelalela)

TRLA L P
PR PRPR LA
PRIE TR
PR PR PR
PR YR
TR PR PRIR PR TR
T
R
N E N E TR A
R
R E T E TR TR
R
R
R
AR E T E R
TR E
AR E
A E
AR
E AR
R

0123
0124
0125
8}59

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

OO0
©oCo
W

CZRCH1

REV A PATCH 00

1
-

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 formatting modes.
0 UN-ATTENDED MODE~ This is where the HOST will automaticaly
answer
DM formatter software parameter questions to perform a REFORMAT
mode to all units selected units via the hardware P_Tables.

1.2

Performance Goals

Before initiating the format process, sim le checks will be made to
assure the object drive exists, and t at communications are possible
between host and downline program sections.

To maximize throughput:

o for full Track reads a half Track skew will be employed.

That

is,
for even physical LBN track numbers each
block number in
Track N+1
will
occur
16
block times
Llater than in Track N.

CZRCHT

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:50

VAX=11 Bliss=16 V3=555

8-Jul-1983 13:4 2:19

USER DOCUMENTATION

C 0169

SPIDERSUSERS
: (NEALE .AZTECICZR(H1.B16 :4 (6)

o During bad block replacement, primary replacemert blocks (RBN)

¢ 0170

will

wused

first.

A second pass will then use secondary

E 8};}

;
:

€ 0173
C 0174

ALl bad blocks, whether induced by the manufacturing process or
wear-caused, will be revectored to Replacement Blocks (RBN). This will

;

C 0178

Product reliability is enhanced through use of four copies

:
:

:
;
:

;

:
:
:
:
:
:
:
:

¢ 0175
E 8};9

C 0179
¢ 0180
E 8}%5
C
C
C
¢
¢
¢
¢
g

1.3

;

¢ 0195

€ 0199

25,451

blocks

per

surface

for

host

the

F(T

SYSTEM REQUIREMENTS

The following are required to run the R(25 Formatter

on PDP-11 Systems:

0184
0185
0186
0187
0188
0189
0190
8}85

E 8}32

and R(CT.

C 0183

;
:
:
:

RBN's for any additional bad blocks.

assure the full compliment
applications use.

* A PDP=-11 series (PU
* A minimum of 28K words of main memory
* An R(C25 subsystem

* An XXDP+ load medium
* A console terminal
+ Diagnostic Supervisor

1.4

RELATED DOCUMENTS AND STANDARDS
1.

DUP.VO5

Diagnostic/Utilities Protocal version 0.5

¢ 0196
¢ 0197
¢ 0198

2.
4.
5.

UQSSP.DOC
MSCP.DOC
AZTEC.DOC

Unibus/Q-Bus Storage Systems port V1.5
Mass Storage Control Protocal
RC25 Microcode Documentation

:
H
H
:

C 0200
¢ 0201
¢ 0202
E 8582

7.
8.
9.
10.

SUPPRGC.DOC
CHQUSD.SEQ
BLISS-16
BLISS-16

PDP-11 Diagnostic Supervisor Procgramming quide
XXDP+/SUPR user manual
Language Guide
User's Guide

E 8%82

1.5

E 838%

A fully functional CPU, main memory and R(C25 subsystem are required.

¢ 0209

1.6 ASSUMPTIONS

¢ 0211

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

E 85}?

been written as two FCT images per FCT track on the R(Z25 media.

H
:

€ 0212
C 0213

¢ 0216

€ 0218

€ 0222

:
:

H
:

C 0219
E 855?

¢ 0223
E 8552

DSDFV11.DOC

Standard Disk Format Specification version 1.1

DIAGNOSTIC HIERARCY PREREQUISITES

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

1.7 PRODUCT USERS AND USES
This program is intended for use on media which has undergone a

analysis
process,
resulting
(FCT) on the media.

tool,

and

surface

the writing of Factory Control Tables

The program will be used by Engineerin?.and Manufacturing

product development
recovery.

Field

SEQ 5

Page

Groups

as a

Service personnel for media

CZRCHY

CZRCH RC25 DISK FORMATTER

REV A PATCH 00 USER DOCUMENTATION
:

E 8559

;

C 0228

E 85%8

11=Jul=1983 16:064:50

8=Jul=1983 13:42:19

VAY=11 Bliss=16 V3~555

SPIDERSUSERS:[NEALE .AZTECICZRCH1. 816 4 (lo)

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 will

used by operating systems

as a format utiity program.

SEO 6

CZRCHI

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

REV A PATCH 00 USER DOCUMENTATION

8-sul=1983 13:42:19

:
:
:

C 023
C 0232
E 85%2

This program will be host loaded.

;

C 0235

With the exception of the FCT and inner DBN tracks,

C 0239

C 0240
E 8%2;

each LBN, DBN, and used RBN
unused RBN's.,

C 0243

The FCT preamble will indicate zero for both the size of

;

¢ 8%29

ALL sectors will have 512 byte data fields.

C 0248

:
:
:
:
:

€ 0236
E 8%%;

E 8522

E 85&8

1.8

VAX=11 Bliss=16 Vv3=-555

SPIDERSUSERS:[NEALE .AZTE(LJICZRCH1. 816 4 (5)

RESTRICTIONS

recorded
blocks.

The format

on the media will be destroyed.

all information previously

This includes all LBN, RBN and R(CT

process will reset the forced error indicator (EDC field)

This Host program will run on only PDP=-11 family

Diagnostic Supervisors.

and set the forced error indicators of all

the

replacement table, and the size of the controller scratch area.

CPUs

SEO 7

576 byte

which support the

CZRCHY

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

11=Jul=1983 16:04:50

8=Jul=1983 13:42:19

VAX-11 Bliss=16 v3-555

SPIDERSUSERS
: [NEALE.AZTECICZRCH1.B16 4 (6)

E 8%2;

1.9 Bad Block Definition

;

E 8%22

The Formatter's bad block replacement convention is as follows:

;

E 8%22

for Read operations:

E 8%2;

Any ECC, read or compare data failure will result in four retries.

;

C 0259

failure of any retries will be considered a Hard error and

€ 0262

E 8522

will be done 1f all retries are successful.

C 0265

For Write operations:

:
:

E 852?

the block in error will be replaced.

The block in question will be considered ?ood and no revectoring

C 0266
E 852;

A Write failure will result in four retries.

C 0269

Failure of any retries will be considered a Hard error and

C 0272

:
:
:

E 85;?

C 0273

the block in error will be replaced.

The block in gquestion will be considered ?ood and no revectoring

will be done if all retries are successful.

SEQ 8

Page

CZRCHY

CZRCH RC2S DISK FORMATTER

REV A PATCH 00 USER DOCUMENTATION

11=Jul=1983 16:04:50

8-Jul=1983 13:42:19

E 8%;?

¢ 0276

E 85;;

of thier contents.

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

Cc 0279
¢ 0280
C 0281
C 0282
C 0283
C 0284
C 0285
C 0286
C 0287
C 0288
C 0289
C 0299

1.
2.
3.
4.
S.
6.
7.
8.
9.
10.
11.
12.

CZRCHO.R16
CZRCH1.B16
CZIRCH2.B16
C2RCH3.816
CZIRCH4.B16
CZRCH5.816
CIRCH6.816
CIRCH7.816
CZRCHB.EXE
CZRCH9.8P2
CZRCH10.MAC
CZRCH11.SAV

Host source bliss Llibrary
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 exicucable code
DMCONV.BP2 Dmconv source module
AZFMTR.MAC DM formatter source macro module
AZFMTR.SAV DM formatter executable code

:
:
:
:
:

C 0292
C 0293
C 0294
C 0295
E 8589

14.
15.
16.
17.
18.

CIRCHA.COM
CZRCHA.DOC
CZRCHA.SEQ
CZRCHA.BIN
CZRCH13.LST

Project indirect command file
Program document listing file
Host sequence Llisting
Program XXDP+ .bin file
DM formatter listing file

€ 029

The following Llist all source module comprising CZRCHA and a description

13. CZRCH12.2D

SEO 9

SPIDERSUSERS:[NEALE .AZTECICZRCH1. 816 4 (7)

1.10 SOURCE MODULE DEFINITION

:
:

VAX=11 Bliss=16 v3-555

Project Functional specification run-off source module

CZRCHY
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11=Jul=1983 16:04:50
8-Jul=1983 13:42:19

E 8%38

2.0

OPERATING INSTRUCTIONS

;

¢ 0300

This

section contains a brief description of the runtime services.

¢ 0303

2.1

COMMANDS

€ 0305

There are eleven legal commands for the diagnostic runtime services

¢ 0309

COMMAND

EFFECT

E 8%}5

START

Start the diagnostic from an initial state

E gg}z

RESTART

Start the diagnostic without initializing

¢ 0315

CONTINUE

Continue at test that was interrupted (after “()

C 0317

:
:

E 8;85

¢ 0306
E 8%8;

for detailed information, refer to the XXDP+ user's manual (CHQUS).

(supervisor). This section Lists the commands and gives a very
brief description of them.
The XXDP+ user's manual has more details.

¢ 0316

Attempts to continue after a control ¢ will result
in the present units formatting to be aborted and

E 8%}3

the next logical units formatting to commence.

;

¢ 0320

PROCEED

Continue from an error halt.

;

E 8%%2

EXIT

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

C 0327

ADD

Activate a unit for testing (all units are

;

E 8;%?

DROP

Deactivate a unit

;

€ 0332

Print statistical information. Report summary

E 8%%2

:
:
:

€ 0321
¢ 0322
E 8;%2

E 8353

C 0333

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.

considered to be active at start time

coding is remote DM program driven and is not

implemented in the host.

E 8%%9

DISPLAY

Type a Llist of all device information

;

E 8%%3

FLAGS

Type the state of all flags (see section 2.3)

;

E 8%2?

ZFLAGS

Clear all flags (see section 2.3)

C 0342

A command can be recognized by the first three characters.

¢ 0345

¢.2 SWITCHES

:
:
:
:
:

€
C
C
€
¢

There are several switches which are used to modify supervisor
operation. These switches are appended to the legal commands.
ALl of the
Llegal
switches are tabulated below with a brief
description of each. In the descriptions below, a decimal number
is designated by ‘DDDDD’’.

0354

:
:

E 8;22

So ycu may,

¢ 0346

0347
0348
0349
0350
0351

¢ 0352
C 0353

for example, type

SWITCH

ecssse

''STA'' instead

of °‘‘START',

EFFECT

cecscemcemcescecccsccemcccccccase

SEQ 10

VAX=-11 Bliss=16 V3-555
Page 10
SPIDERSUSERS
: [NEALE.AZTECICZRCH1.B16.4 (8)

YNNIV CIOIOIOI I OICICICIOICICIOICIICICICIIIICIOIOIOICIOIOICI
IO OIOIOIOIOIOIOIOI IO OO OIIOIOI OV
OO O

R R IEEE

T E I

T E I E T E R E ME

IR R

E T R

T R

R TR

R TN PR

PR PR I N PR

PN PR

PR PRIR

IR TRLR

PRI

PRLR YR

TR C RY XN

)

CZRCH1
REV A PATCH 00

11-Jul=1983 16:04:50
8-Jul=-1983 13:42:19

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

/TESTS:LIST

Execute onl{.those tests specified in
the List.
List is a string of test
numbers, for example = /TESTS:1:5:7=10.
This list will cause tests 1,5,7,8,9,10 to

be run.
/PASS :DDDDD

ALl other tests will not be run.

Execute DDDDD passes (DDDDD = 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.

/FLAGS:FLGS

Set specified_flags.
in section 2.3.

/EOP:DDDDD

Report end of pass message after ever5

DDDDD passes ong{.

flags are described

(opDDD = 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.
JUNITS:LIST

TEST/ADD/DROP only those units specified
in the list.
List example= /UNITS:0:5:70-12
use units 0,5,10,11,12 (unit numbers = 0~63)

Example of switch usage:

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

1. Tests 1 through 5 will be executed.

2. ALl

wunits will

3. The

end of

tested 1000 times.

pass messages will be

printed after each 100 passes only.

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

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

START
RESTART
CONTINUE
PROCEED

DROP
ADD
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

TESTS

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

X
X

SEQ 11

11
Page
VAX=11 Bliss=16 V3-555
RS 16;4 (8)
.AZTECICZRCH1.8B
RSUSE
: [NEALE
SPIDE

n1
CZRCH1

e Ve BeBe e Uy Ry e e g

000000 0¢%00:s0e00%

0008000030000, 0% 00,0090%520%000%0090008 % % LB PR YR FE YR

PRFEFE

YRLR LR TN ¥

REV A

PATCH 00
C 0412
C 0413
C 0414
€ 0415
€ 0416
C 0417
C 0418
C 0419
€ 0420
C 0421
E 825%
C
C
C
E

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION
2.3

FLAGS

11=-Jul=1983 16:04:50
8-Jul=-1983 13:42:19
.

]

fFlags 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 wusing the flags switch.
Flags
are also cleared after a start command unless set using the
flag switch. The ZFLAGS command may also be us-d to clear
all flags. with the exception of the START and ZFLAGS commands,
No commands affect the state of the flags:
they remain set or
cleared as specified by the last flag switch.

0424
0425
0426
gzgg

FLAG
e
HOE

EFFECT
Halt on error - control is returned to
runtime services command mode

C 0429
C 0430
E 82;;

LOE

Loop on error

IER+

Inhibit all error reports

€ 0433
C 0434

IBR*

Inhibit all error reports except first
level
(first level contains error type,

C 04637
E 82%3

IXRw

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

E 822?

PRI

Direct messages to line printer

E 822%

PNT

Print test number as test executes

C 0444

BOE

‘BELL'' on error

UAM

Unattended mocde (no manual intervention)

C 0448
C 0449

ISR

Inhibit statistical reports (does not apply
to diagnostics which do not support statistical reporting)

E 822%

IDR

Inhibit program dropping of units

C
C
C
€

ADR

Execute .utodrop code

LoT

Loop on test

EVL

Execute evaluation (on diagnostics which
have evaluation support)

E 8252

C 0445
E 8229

number, PC, test and unit)

E 822?

0454
0455
0456
0457

C 0458
g 8223
C 0461
C 0462
C
C
C
C
E

0463
0464
0465
0466
822;

rerror messages are described in section 3.1
See the XXDP+ user's manual for more details on flags. You may
specify more than one fla? with the flag switch. For example,
to cause the program to
loo,. on error, inhibit error reports
and type a ‘BELL'" on error,
,(ou may use the following string:

SEQ 12

VAX=-11 Bliss=16 v3=555
Page 1
SPIDERSUSERS
: CNEALE .AZTECICZRCH1.B16;4 (8)

:
:

:
;

:
:

(YA

PR PR PR FE

YA FEFPE TR

A TR
PNFI

TNR
TR¥

0482

# UNITS (D) ?

0484

Answer with the number of units to be tested (no default).

0486

asked.

0485

823;

/FLAGS:LOE
: IER:BOE

HARDWARE QUESTIONS

A unit is a logical disk (single platter) on an

RC25.

A maximum of sixteen units will be accepted by the init code.

0491

Answer with

0494

of 160000 to 177774).

0496

This

answer will determine how many times the following questions are

RC25S

0492
0493

ADDRESS (0) 172150 ?

address

the

one

RC25

controller
as addressed by the processor with memory
management turned off (i.e., An even 16 bit address in the range

RC25 INTERRUPT VECTOR ADDRESS (0) 154 ?

0499
0500

Answer with
controller.
specified.

the interrupt vector address
of
the
RC(25
A vector address in the range of 4 to 774 may be

0502

RC25

REQUEST

0504

Answer with the interrupt priority used by the RC25.

0507

UNIT

0509
0510

Answer with the physical platter number you wish to bring online.
The removable platter is an even number and the fixed platter is

0505

user

for hardware information by typing ‘‘CHANGE HW (L) ?''. You must answer
‘'v'* 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.

0489

O
Co

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

0475
0476
0477
0478
0479
gzg?

VIS W= O 000NN
VIS NN =2

VAX=11 Bliss=16 V3=555
Page 13
SPIDERSUSERS
: (NEALE .AZTECICZRCH1.B16;4 (8)

0474

:
H
:
:
:
:

11-Jul=1983 16:04:50
8-Jul=1983 13:42:19

2.4

MNONVALNININD
== = cd ed =b «md =d d b

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

SEQ 13

0469
0470
04671
82;%

:
:
:
:

alnlnizinlaininlinlaizizinlalaizinialislislalialinlialalalalslialslialalalalalalalalalalslalalalalslalalalalalalalalele
e

CZRCH1
REV A PATCH 00

BUS

LEVEL (D) 5 ?

to 7 are accepted.

NUMBER TO BRING

Levels

ONLINE (D) 0 ?

the sequentially following odd number.

2.5

SOFTWARE QUESTIONS

The supervisor will ask the question '‘CHANGE SW (L) 2.
This question is
to be answered with 'Y'.
The following message will be printed to the
console terminal:
FORMAT IN UNATTENDED REFORMAT MODE

(L) YES ?

A 'YES' response (the default) will cause the host to run in UN-ATTENDED
reformat mode (see section 7.2 for description).
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

B
CZRCHY

CZRCH RC25 DISK FORMATTER

SEQ 14
Page 14

11=Jul=1983 16:04:50
8-Jul-1983 13:42:19

USER DOCUMENTATION

VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE.AZTEC JCZRCH1.B16;4 (8)

8259

console terminal to answer the following DM formatter software guestions:

0528
82%8

The DM will ask the following questions.
used as the DUP question numbers.

The question numbers

are those

0531
82%%

Enter date:
Enter the current date in MM-DD-YYYY,

0534
85;2

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

0537

Enter sector size to be used (512/576):

0561
0542
8222

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

0545
0546
0547
8223

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

0550
0551

DOWN-LINE LOAD bad block information (y/i):
An answer of NO will cause a RECONSTRUCT mode format

0538
8;28

0552
0553

0556
82;5
0560
0561
0562
0563
0564
0565
0566

If
be

an answer
performed.

formatters.

to be
of YES is given, a RESTORE mode
An answer of NO wilt
skip

NOTE:
It is the responsibility of the host program to
fgigtn
the name of
the file to be used for the DOWN-LINE
6.

0568
0569
0570
0571

Continue if bad block information is inaccessible (y/n):
An answer of YES will cause a RECONSTRUCT mode format to be
done
if the formatter cannot read the FCT on the disk or if
a RESTORE mode format was attempted and the bad block data
file was unavailable.
An answer of NO will cause the format
to abort if the bad block information
is inaccessible.
An
answer of NO will terminate the question sequence.
FCT blocks will be requested via the special DUP message
code.
The first data word in this message will be the F(T
block (relative to zero) requested by the formatter.
All
DUP sequence numbers for FCT block requests will be 1.
The

0572
0573
0574
0575

0577
0578
0579
0580

This guestion is for compatibility with other
The R(C25 formatter will skip this question.

performed.
format will
question 6.

wn
I

(ainininiainislninininiaisinlainizialinilizicinislisinlalslslaialalalalsialinalialalalalalalalalalalidlalalalslalalelele]

PN PR T

PR PR PR TN PR PR PE TR PE TR

PR TR PR TR PR TN P

REV A PATCH 00

response is a 3 word block from the host.
The first word is
0 if the block was successfully retrieved and non-zero if it
was not.
The next 2 words contain the UNIBUS address of a
buffer containing the 512 byte block from the FCT file.
7.

Enter serial number:
.
.
Enter the 64-bit decimal serial number of
the disk
to be
formatted.
In the R(25 formatter this number is used only
it a RECONSTRUCT mode format is used.

CZRCHI
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11-Jul=-1983 16:04:50
8-Jul-1983 13:42:19

E 823%

2.6

:
:
:
:
:
:

€ 0584
€ 0585
C 0586
C 0587
C 0588
€ 0589

When you answer the hardware questions, you are building entries
in a table that describes the devices under test. The simplest
way to build this table 1is to answer 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

€ 0592

:
:
:

€ 0594
€ 0595
€ 0596

E 8239

EXTENDED P-TABLE DIALOGUE

answers are repetitious.

illustrate a more efficient method, suggose

C 0593

€ 0597

Q-FACTOR.

E 8;38

fictional

device,

the XY11.

a 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 can vary among units called the
This Q-FACTOR

may be O or 1.

¢ 0600
¢ 0601
€ 0602
C 0603
C 0604
C 0605
€ 0606
C 0607
C 0608
C 0609
¢ 0610
¢ 0611
€ 0612
C 0613
C 0614
C 0615
€ 0616
C 0617
€ 0618
€ 0619
€ 0620
€ 0621
¢ 0622
€ 0623
C 0624
C 0625
C 0626
C 0627
C (628
C 0629
€ 0630
€ 0631

# UNITS (D) ?

;

C 0634

SUB-DEVICE # (0) ?

6<CR>

160000<CR>

H
;
;
;

Below is a simple way

8<CR>

:
:
:
H
:
:
;
:
:
:
:
H
:
;
:
:
H
:
:
:
;
:
:
:
H
:
:
H
;
:
:
;

:
;

you are testin

Suppose this device consists o

to build a table for one xyll with eight units.

UNIT 1
CSR ADDRESS (0) 2?2
SUB-DEVICE # (0) ?
?
Q-FACTOR (00 0

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

UNIT 2
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ?
Q-FACTOR (0) 1?2

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

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

160000<CR>
2<(R>
<(CR>

UNIT 4
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ?
?
Q-FACTOR (0) 0

160000<CR>
3<(R>
<(R>

UNIT 5
CSR ADDRESS (0) ?
SUB-DEVICE # (0) ?
?
Q-FACTOR (0) 0

160000<CR>
4<(R>
<CR>

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

160000<CR>
5<(R>
<(R>

€ 0632
C 0633

UNIT 7
CSR ADDRESS (0)

C 0635
C 0636
€ 0637
¢ 0638

Q-FACTOR (0) 0

UNIT 8
CSR ADDRESS (0)

160000<CR>
1<(CR>

SEQ 15

15
Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS:[NEALE.AZTEC JCZRCH1.B16.4 (9)

CYOVNINOI IV I I OIIOI I I CICICICICICIOIOICICICICIOI I IOCIOICICICIOIOIOIOIOIIOIOIOIIOIOINICIOIOIOIOIYOIYOIIOY
TM

AT E T E T E

M E

AR E I E M E M E

AR E

PR PR TR PR PR PRIE

RNPR PR

FEIN YR

IR YRFRAFEA

PR IR FIE LR FI PR FE TR X TN

CZRCHY
REV A PATCH 00

CZRCH RC25 DISK FORMATTER

SEQ 16

Page
16
VAX=11 Bliss~16 Vv3=555
4
(9)
SPIDERSUSERS
: CNEALE .AZTECICZRCH1.B16

11=-Jul=1983 16:04:50
8-Jul=1983 13:42:19

USER DOCUMENTATION

SUB-DEVICE # (0) ?

Q-FACTOR (0) 1?2

7<(R>

<(R>

Notice that the default value for the Q=FACTOR changes when a
given,
non-default response 1S
Be careful when specifying
multiple units!
As you can see from the above example,
the hardware parameters
do not vary s1?q1t1cantly from unit to unit.
The procedure shown
is not very efficient.

The runtime services can take multiple unit specifications

however.

Let's build the same table usiny the multiple specification feature.
# UNITS (D) ?

B8<(R>

UNIT 1
?
CSR ADDRESS (0)
SUB-DEVICE # (0) ?
Q-FACTOR (0) 0
?

160000<CR>
0,1<(R>
1,0<CR>

UNIT 3
?
CSR ADDRESS (0)
SUB-DEVICE # (0) ?

160000<CR>
2=5<(R>

UNIT 7
?
CSR ADDRESS (0)
SUB-DEVICE # (0) ?

160000<CR>
6,7<CR>

Q-FACTOR (0) 0

0<CR>

1<CR>

you can see in_the above dialogue, the runtime services will
build as many entries as it can wit
the information given in any
one pass *hrough
the questions.
In the first pass. two entries
The
are built .ince two sub~devices and G-FACTORS were speci fied.
services _assume that
the CSR address is 160000 for both since it
was
specified
onl
once.
In the second pass, four entries were
built.
This
is
four sub-devices were specified.
The
ecause
“'=** construct tells
the runtime services
to increment the gata
from
the first
number to
the second.
In this case, sub=cevices
(1f the sub-device were specified
2. 3,4 and 5 were specified.
increment would be by
by addresses, the
2 since addresses must
As

the

on an

since

even

four entries
they were

boundary.)

are

orly

The

assumed

specified

specified in the third pass.

(SR

addresses and Q-FACTORS for
16?200 and 0
respectively
once.
e
last two units are

to be

The whole process could have been accomplished in one pass as shown
below.
# UNITS

(D)

8<CR>

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

160000<CR>
0=7<CR>

CZRCH1

CZRCH RC25 DISK FORMATTER

11=Jul=-1983 16:04:50

8-Jul=-1983 13:42:19

VAX=11 Bliss=16 V3=555

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

0699

2.7

0701

To start-up this program:

QUICK START=UP PROCEDURE

(XXDP+)

0703

1. Boot XXDP+

0705

2. Give the date

0707

3. Type 'R CIRCHA'', where name is the name of the bin or bic

0708

file for this program

0710

4. Type °''START

0712

5. Answer the ‘'CHANGE HW'' question with °‘v*’

0714

6. Answer all the hardware questions

0716

7. Answer the '‘CHANGE SW'' question with 'W'’

0718
0719
0720

When you follow this procedure you will be using only the
defaults for flags and software parameters.
These defaults
are described in sections 2.3 and 2.5.

SEQ 17

Page

SPIDERSUSERS:[NEALE .AZTECICZRCH1.B16; 4 (9

0696
0697

(=]
N
(=3
O

CIEIICICICICIIICICICIOIOIOIOICICICIOIOIOIOIOINOVMTM

TR TR T

TN TN

AT ST YT SArY

REV A PATCH 00 USER DOCUMENTATION

EININIIIOIIIOIOIIOINOIDICIIIOICICIOICIIICICIONOIYOIOVIY

[ YETERIEATAIETETEIE

YRAR EE FE T E

R FN FI FI FI NI

N PR T TN

I TN PR VN PN PN TN TN T

CZRCHY
REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50
8-Jul~ 1983 13:42:19

USER DOCUMENTATION

2.8

PID (PROCESS INDICATOR) WORDS

The process indicator words (PID) are maintained by the remote DM program
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.
1If
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.
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.
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 Tormat is as follows:

FORMATTER PROGRESSING: PID HI=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 ovqua; from host
PID word is

memory the low PID word is cleared and the high
incremented.

The operator can then be observed when new

overlays are called into DM memory.

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,
information or operator prompts are printed

SEQ 18

Page
18
VAX=11 Bliss=16 Vv3=555
(10)
24
SPIDERSUSERS
: CNEALE .AZTECICZRCH1.B16

fatal errors, completion

lower case characters.

3.0

ERROR INFORMATION

3.1

TYPES OF ERROR MESSAGES

»rO

b
—d

wor

0O
oo

8-Jul-

USER DOCUMENTATION

SEQ 19
19
Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: (NEALE .AZTECICZRCH1.B16 6 (11)

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
prefix 'SFTLERR- error message text'’' indicating this to be a fatal error.
3.2

SPECIFIC ERROR MESSAGES

DM Code Error Messages

NA NS NN =2 O VOOV

—

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

H NN =S OOV

NI CIOICICICICNOIIIOICIICICIOICIOIOIOIAOIOIYOIOIOIIYOIIYOYCIYOIYOIYOICIYOIY
D
CNIINIII

RR R

R R
N AR

T AR E I AR T E T E AA

A TR TR PR TR PRI EFE SR YR
TRPR FE YN R
PRFE
PRYR TR
TNPR T

REV A PATCH 00

11=Jul-

CZRCH RC25 DISK FORMATTER

no PORONIND)
= od cud cud b b b o d d

CZRCHY

2
—

Error messages

returned

the

R(25

The error numbers given are the DUP error

“'GET STATUS failure’
‘LESI send error’’
*Unsuccessful LESI command'’
"LESI receive error'’
‘UNIBUS 1/0 error’’

‘Formatter initialization error’’

‘Nonexistent unit number’'
.
‘DBN/XBN format error (drive FORMAT command failed)''
:%ngdoes not have enough good copies of each block"’
error

*RCT does not have enough
format error (drive
write error'’’
read error'’
write error’’
futt'
"

ood copies of each block'’

¢8 RMAT command failed)'’

read error’’

nonexistent’'

downline-load error'’

‘Prive init timeout'’
"llle?al response to start-up question'’
'WARN NG - possible head addressing problems - run diagnostics'’
**INPUT Error'’
‘Media degraded’’

CZRCHY

REV A PATCH 00

CZRCH RC2S DISK FORMATTER

USER DOCUMENTATION

11=Jul=1983 16:04:50
8=Jul=1983 13:42:19

:
:
:
:

¢ 0798
¢ 0799
C 0800
E 838}

Host Error Messages

H
.
.
H
.
:
.
H
H
H
:
H
H
H
:
:
.
.
H
H
M
H
:

C 0803
¢ 0804
C 0805
¢ 0806
¢ 0807
C 0808
c 0809
¢ 0810
C 0811
c 0812
c 0813
Cc 0814
c 0815
¢ 0816
c 0817
C 0818
c 0819
¢ 0820
C 0821
C 0822
C 0823
¢ 0824
C 0825

$FTLERR=- UNRECOGNIZABLE ERROR CODE
$SFTLERR= ENVELOPE/PACKET READ (PARITY OR TIMEOUT)
SFTLERR= ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT
SFTLERR= CONTROLLER ROM AND RAM PAR]ITY
SFTLERR= CONTROLLER RAM PAR]TY
SFTLERR- CONTROLLER ROM PARITY
SFTLERR=- RING READ (PARITY OR TIMEOUT)
SFTLERR- RING WRITE (PARITY OR TIMEOUT)
SFTLERR= INTERRUPT MASTER
$FTLERR= HOST ACCESS TIMEOUT
$FTLERR=- CREDIT LIMIT EXCEEDED
$SFTLERR- BUS MASTER ERROR
SFTLERR- DIAGNOSTIC CONTROLLER FATAL ERROR
SFTLERR- INSTRUCTION LOOP TIMEOUT
SFTLERR= INVALID CONNECTION IDENTIFIER
SFTLERR= INTERRUPT WRITE
SFTLERR- MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER
SFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER
SFTLERR= CONTROLLER RAM ERROR (NON=PARITY)
SFTLERR= INIT SEQUENCE ERROR
SFTLERR= HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR
$FTLERR=- PURGE/POLL HARDWARE FAILURE
$SFTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT)

)
!
; Generic self-detected fatal port/controller errors

VAX=11 Bliss=16 V3-555

SEO 20

SPIDERSUSERS: [NEALE.AZTECICZRCHT. 816 4 (12)

CVNICIOICINCICIOIICIICICICICICICICICICICICIOIOIOINOIOIOIAOIOIOIOIOIIOIOI
IO OO O

CZRCHY
REV A PATCH 00

CIRCH RC25 DISK FORMATTER

USER DOCUMENTATION

g RC2S Self-detected fatal port/controller errors
S$FTLERR= VAX READ/WRITE ERROR ON INTERRUPT
$FTLERR= INCONSISTENCY
AT U.BFIL
SFTLERR= INCONSISTENCY AT U.BMTY
SFTLERR- INCONSISTENCY AT U.ALOC
SFTLERR- INCONSISTENCY AT SERVO ENTRY (PIP SET)
S$FTLERR= INCONSISTENCY AT SERVO ENTRY (ERR SET)
$FTLERR- INCONSISTENCY AT U.SEND
SFTLERR- INCONSISTENCY AT U.RECV
S$FTLERR= INCONSISTENCY AT U.ATTN
SFTLERR- INCONSISTENCY
AT U.ONLN

SFTLERR- ILLEGAL D REQUEST (U.QDRQ)
$FTLERR- FENCE-POST ERROR AT PROTAB
S$FTLERR~ BAD PACKET DEQUEUED AT U.DONE
SFTLERR- UNEXPLAINED D-PROC SUSPENSION (U..TDS)

SFTLERR- DUP PACKET D=-Q FAILED (XFC 34/35)

SFTLERR=- INCONSISTENCY AT U.HTST
SFTLERR=- INCONSISTENCY AT U.SEKO
SFTLERR- INCONSISTENCY AT U.CKSV
S$FTLERR- D.OPCD FOUND ILLEGAL OPCODE
$FTLERR- D.CSF FOUND ILLEGAL OPCODE
$FTLERR~ UNKNOWN BAD DRIVE STATUS AT D.DSTS
SFTLERR- ILLEGAL XFC EXECUTED BY DM
SFTLERR- D PICKED UP A ZERO S(CB.DB
SFTLERR- INCONSISTENCY AT D IDLE LOOP
SFTLERR- DM WORD COUNT ERROR ON HOST DMA/SEND/RECY
$FTLERR= UNKNOWN DISPLAY FAULT CODE AT D.DFLT
SFTLERR=- DRIVE NOT FAULTING IN P.OFLN STATE
$SFTLERR- U POWER UP DIAGNOSTICS FAILED
$FTLERR- D POWER UP DIAGNOSTICS FAILED
$FTLERR- ADAPTER CARD FAILURE
SFTLERR- EC.TMR TIMED OUT
$FTLERR- U.SEND/U.RECV RING READ INCONSISTENCY
$FTLERR- UNKNOWN WAITRV REASON AT D.RVCT
SFTLERR= D.ARCS DID NOT FIND CLOSEST UNDONE ZONE
$FTLERR= U.SEEK FOUND SEEK TO ILLEGAL TRACK
SFTLERR= U.HTST INIT DIAG DMA WRITE FAILED
$FTLERR- U.HTST INIT DIAG DMA COMPARE FAILED
$FTLERR= U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET
$FTLERR- MASTER DRIVES ACLO ASSERTED

VAX=11 Bliss=16 V3=-555

SEO 21

SPIDERSUSERS:LNEALE .AZTECICZRCHT. 816 4 (13)

CZRCHT

CZRCH RC2S DISK FORMATTER

REV A PATCH 00 USER DOCUMENTATION

11=Jul=1983 16:04:50

8=Jul=-1983 13:42:19

:
:

C 0868
E 8398

!
)
; Host runtime fatal error messages

:
:
:
:
.
:
:
:
.
:
.
:
H
:
:
:
.
.
;
:
:
H
.
:
.
.

¢ 087
C 0872
¢ 0873
C 0874
C 0875
C 0876
C 0877
C 0878
c 0879
¢ 0880
C 0881
C 0882
¢ 0883
C 0884
C 0885
C 0886
C 0887
¢ 0888
C 0889
c 0890
C 0891
C 0892
C 0893
C 0894
C 0895
C 0896

S$SFTLERR= NON=-EXISTENT RC2S5S REGISTER ADRS xxxxxx
SFTLERR=- DUP SERVER ACTIVE AFTER INITIALIZATION
SFTLERR=- DUP SERVER INACTIVE AFTER EX_SUP_PROG COMMAND
SFTLERR= P" SPONCE STATUS ERROR: actual status error message
SFTLERR=- HOST/CONTROLLER OUT OF SEQ
SFTLERR= REMOTE PROG NOT RUNNING
SFTLERR= UNKNOWN RETURN STATUS CODE
SFTLERR- COM AREA INIT ERROR
SFTLERR= PORT/HOST SYNC ERROR
SFTLERR- MESSAGE LENGTH ERROR
$FTLERR- UNKNOWN ENDCODE RECEIVED
$FTLERR= ADAPTOR PURGE ERROR
SFTLERR= UNKNOWN INTERRUPT
SFTLERR= INIT SEQ STEP TIMED OUT
SFTLERR=- INIT SEQ COMPARE ERROR
SFTLERR= UNEXPECTED ATTENTION END MESSAGE RECEIVED
$FTLERR= UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED
SFTLERR=- UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED
SFTLERR- INVALID COMMAND END MESSAGE RECEIVED
$FTLERR= UNKNOWN MESSAGE TYPE RECEIVED
SFTLERR- OUTSTANDING COMMAND BUFFER FULL
SFTLERR=- OUTSTANDING COMMAND BUFFER OUT OF SYNC ERROR
$FTLERR= UNKNOWN MESSAGE NUMBER RECEIVED
$FTLERR=- FILE READ ERROR
$FTLERR- PORT/CONTROLLER TIMEOUT ERROR
$FTLERR=- ILLEGAL FCT FILE LENGTH

VAX=11 Bliss=16 V3-555

SEO 22

SPIDERSUSERS:(NEALE .AZTECICZRCH1.8B16; 4 (14)

CZRCH RC2S DISK FORMATTER

CZRCH1

REV A PATCH 00 USER DOCUMENTATION

11=Jul=1983 16:04:50

8-Jul=1983 13:42:19

:
:

C 0897
E 8233

)
!
; Init code fatal error messages

:
:
H
:
:
:

¢ 0900
C 0901
¢ 0902
¢ 0903
¢ 0904
¢ 0905

SFTLERR= NO ADDITIONAL UNITS TO FORMAT - ABORTING
SFTLERR= INIT CODE RE-ENTERED DUE TO PWR FAIL
SFTLERR= ABORTING HOST AND REMOTE PROGRAMS
SFTLERR=- ILLEGAL NUMBER OF UNITS SELECTED
SFTLERR= LIMIT OF SIXTEEN UNITS PER FORMATING SESSION
SFTLERR~ RC25 CONTROLLER INITIALIZATION ERROR

:
M
:

¢ 0909
¢ 0910
¢ 0911

! Dup return status codes
!
SUCCESSFUL

.
:

.
.
.
.
.
H
:
:
:
:
:
.
:
:
:
.
:
H
:
:
M
;

C 0906
E 838;

C 0912
C 0913
c 0914
c 0915
¢ 0916
c 0917
C 0918
¢ 0919
C 0920
c 0921
C 0922
C 0923
C 0924
C 0925
C 0926
Cc 0927
C 0928
Cc 0929
Cc 0930
¢ 0931
Cc 0932
E 0933

SFTLERR=- PROTOCOL VIOLATION ERROR
?FTLERR- COMMUNICATION AREA INIT ERROR

INVALID COMMAND
NO REGION AVAILABLE
NO REGION SUITABLE
PROGRAM NOT KNOWN
LOAD FAILURE
STANDALONE
!
! MSCP return status codes
!
SUCCESS
INVALID COMMAND
COMMAND ABORTED
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

VAX=11 Bliss=16 V3=555

SEO 23

SPIDERSUSERS:[NEALE .AZTECJCZRCH1. 816 4 (15)

CZRCH

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

0937

0938
0939

4.0

8-Jul=-1983 13:42:19

VAX=-11 Bliss=16 V3=-555

PERFORMANCE AND PROGRESS REPORTS

The formatter issues the follouin? messages upon normal completion.

but the Llast are sent as DUP intormational messages.
as a DUP termination message.
''format completed'’

0943
0944
0945

''n revectored LBNs'
.
Where n is the number of LBNs revectored in
area.

0947
0948

''n primary revectored LBNs'’
Where n is the number of LBNs

0951
0952

0955
0956
0957

‘n bad blocks 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.

0959
0960
0961

''n bad blocks in the RCT due to header or timing 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.

0964
0965

°‘'n bad blocks in the DBN area due to data errors'’
Where n is the number of blocks in the DBN area which

0968
0969
0970
38;5

0974

0978
0979
0980
0981
0982

10. "n bad blocks in the XBN area due tc header or timing
errors’
.
)
Wwhere 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.

0984
0985
0986

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.

0988
0989

12.

''n blocks retried on the check pass’’
Where n is the number of blocks which had an
first read attempc after formatting.

0949

data

.
which

were

'h secondar‘/tertlary revectored LBNs''
Where n is the number of the LBNs in message #2

which

were

secondary or tertiary revectors.

0962

0966

0990

user

primary revectors.

0953

0975
0976

the

message

All

The last is sent

.
1in

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

were

''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
badt due to errors 1in the header or timing area of their
sectors.

'n bad blocks in the XBN area due to data errors’'

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

error

SEO 24

SPIDERSUSERS:[NEALE.AZTECICZRCHI. 816 4 (16)

0941

(=]
O
o

VYN OICICICICICIIICI I OICICIOICICICIOIOIMICIOICICIOICICIOIOICICIIOIOIOICIIOIOIOIOIOIOIOIOIOIOIOIOINIIOIOVO
O

S e 8o ®aBeBeBeBeBo UeBots®e0sBete Beta®tBs8c80000e00 082

00000 00000000000 00800000000, 080000s00090%1000s00000s% 0000

REV A PATCH 00 USER DOCUMENTATION
88%2

were

the

CZRCH

REV A PATCH 00

CZRCH RC2S DISK FORMATTER

13.

“FCT used successfully’’ or

C 0994

14.

°FCT was not used’’

:
:

¢ 0996
E 883;

¢ 0993

C 0995

:
:
:

¢ 0999
¢ 1000
€ 1001

¢ 1004

H
:
:

E }88%

¢ 1005
C 1006
g }ggg

Depend1n? on the answers to the start-up quest ions

availability of the bad block information
message has the DUP termination message code.
5.0

8-Jul-1983

¢ 0992

:50

11=-Jul=-1983

USER DOCUMENTATION

DEVICE INFORMATION TABLES
:
)
; Hardware parameter coding questions
P

= |P REGISTER ADDRESS

HU02 VECTOR = INTERRUPT VECTOR ADDRESS
HW_~Q3_BR
= BUS REQUEST LEVEL
= UNIT NUMBER TO FORMAT
HW_Q4_UNIT

VAX=11 Bliss=16 V3=555

SEO 25
25

SPIDERSUSERS [NEALE .AZTECICZRCHT. 816 4 (16)

and
the
(FCT).
This

b—

6.1

Reformat Mode Procedure

2% B
L

If none of the four FCT copies is good, the
either:

W
~

Will do a Reconstruct mode it software
was answered with a 'VES'.

1039
1040

software

1047

Outer DBN tracks will be formatted here.

b wwd and mud

[elelelelelolelelalelelelelolele) o
ONOCONONONOM
AUV WAL
VIS W= OV
N
VIS WO

question

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

1042
1043
1044
1045

)

Formatter

©°o

The presence of a good FCT 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.

1036

SO
R

revectoring.

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

This section witl build an RCT skeleton and perform part of the

NO~

Table Setup

1033
1034

—

hod
ol
©Co0 0o

Table Setup
Scanning
Replacement
Check Pass

6.1.1

1030
1031

b md

SEQ 26

Page 26
VAX=11 Bliss=16 V3-555
6;4 (17)
ERS
.AZTECICZRCH1.B1
: NEALE SUS
SPIDER

Reformat mode is accomplished in four sections:

b o wnd e

b e

b end

b ced wd

o [elelelelelelelololelelelelelalelslele) L=4
o
N PONINOPNINININININD
=D ad e ed d o b acd aad
0 NV
NN =20V
NO VS WO 0

D e wmd md aad

8-Jul-

TEST SUMMARIES

b wnd

CIOICICICICIOI OO Y OICIIOI IO IO OIOIOIOIOIOIOI IO IO OIYOV D

11=dul-

6.0

—d

VOV MIOICIIOIMIMI Y CICIOICICICIOIOI I

TRAR X LR TN P9
I AIR IR IR LA
PR IR TNYR LRI R IR
TNPR
TR TN PR R
TR TRTR PR
R
TS
R
R
R EE
TN AR AR
EEE
I ER
I
EE
R I
AR

C2RCH RC25 DISK FORMATTER

USER DOCUMENTATION

—d

CZRCHI

REV A PATCH 00

The RCT tracks will be formatted.

Bad

was

gquestion

blocks

will

bad

the

block

RC(T

area will
be marked with_ a header code of 11.
If a bad
block occurs
in the same position in each copy of
the R(T,
the format will be aborted, as the media is unusable.

partial
RCT will
be obuilt
from the FCT:
The R(T
Information
Block
will be assembled.
FCT Bad Block
Descriptors coded
for
primary
.reqector1ng
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.
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

°‘''R2'*

Table.

_ Replacement RBN's for these LBN's will be

resolved after primary revectoring is completed.

primary

CZRCHY

1066
1067
1068

11=Jul=1983 16:04:50

USER DOCUMENTATION

VAX=11 Bliss=16 v3=555

8-Jul-1983 13:42:19

.
Scanning

6.1.2

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

}8;2

REFORMT mode:

1077
1078
}8;8

In this mode the FCT file is accessable.
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.

}8%;

RESTORE mode:

1083
1084
}832

In this mode an external FCT file is brought in form the Host and written
After the FCT
file has been restored a normal
Reformat mode is performed scanning for data pattern W only.

}83;

RECONSTRUCT mode:

1089
1090
1091
1092
1093

In this mode the FCT file is inaccessable.
The FCT I.D. block is not
formatted but rather read/write scanned with all data patterns.
The I.D>
is then rebuilt indicating 2ero 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.

o
O
~

to the media‘'s FCT track.

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

Scanning will start at LBN Track 0 (Top Surface 06B) and progress to LBN
Track Max (Bottom Surface 068) following logical ordering of LBN tracks.

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

header

b wmd nd
el

connote

F(T

Bad

block

Block

FCT Descriptor Code

Not listed
12 or 14
02 or 04
01

Any for RBN

status.

They

Descriptors

will

:
:
:
:

:
:

ceccscsncscscsncccncca

00
05
03
11

Good LBN
:
Primary revector
:
Secondary revector :
Secondary revector-:

header problem
11 = Unusable RBN

toccncvnnsnncocnccccccccaa trcccccccccccccccccsccncccccces +

NOTE

as in the

Header Code

D toccne

)

tece

b e

codes

determined b{
the
following table:

b wub wmd

b and

D cmd amd

b e ko e wd wd e b
b i e e cnd wmd b b b b b =B b OO
NN
b B b e b D b = OO OO0 O0O0O0O0OV0
N =2 O V0O NO VNN = OO0
N
WV B W
=O O

1095
1096
b wmd == cmd ol ==b

-b

1074

SEQ 27

Page

SPIDERSUSERS
: [NEALE.AZTECICZRCH1.B816;4 (17)

1071
1072
1073

I OII I I OICIOIOIOI I OIOIOIOIOIOI O OICIOIOIOII I OO OOV OV TM
VNN CI I I OI IV VNI OI I CICI I I
VYNNI VI

e Ve By BB 0eWg 0o W03 0000 W% 008000090800V

80%0000, 0800 %000000:090000000020300090%09000000¢0s % 9009000549,

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

for

CZRCHT
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

SEQ 28

11-Jul=1983 16:04:50
8-Jul=1983 13:42:19

VAX=11 Bliss=16 Vv3=555
Page 28
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16;4 (17)

:
:
;

€ 1123
C 1124
E }}%2

c 1127

c 11N

:
:

cC 1133
E }}gg

seguence will then be performed on each block in the track
using Pattern M, which is the compliment of Pattern W.

C 1136

Error-free blocks will be written with LBN-unique Psttern 1.

:
:
:

:
:

If the RBN is not Listed in the FCT, a single block
per track may be designated for_primary revectoring
with an FCT descriptor code of 12 or 14.

If there are no bad blocks
in the track,

C 1128
E }}gg
€ 1132

the

forced error

indicator will
be set
in the RBN at format XFC time by
complimenting its expected EDC field.

enabled,

and

compared

read without

to Pattern W.

revectoring

A write-read-compare

E }}29

¢ 1139

It the track bhas a grlmarx revector block, its data field
will be written with 128 copies of the track's RBN address,
and the RBN will be written with LBN-unique Pattern 1 for
the replaced block.

€ 1142

Each

E }}22

replacement block, and disabled for the others.

:
:

¢ 1137
c 1138

ALL blocks in the track will

C 1143
€ 1144

E }}2;

€ 1149

:
:
:
:
:

¢
¢C
¢
c
C

;

c 1157

¢ 1161

;

c 1167

;

g }};?

:
:
:
:
:
:
:

:
:

1150
119
1152
1153
1154

revector codes
header errors.

blocks
of

will

reheadered

with

secondary

or 11, depending on the presence of

D and

will

Addresses
of blocks

revectored

will

secondary

arcrued 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 startirg at DBN block 0 top surface.

€ 1175

E ;};9

replacement.

C 1178

¢ 1179

and

If any new bad block(s) is found, steps

replacement

partially repeated to
include
the additional
bad block
information,
and
verify
the
format
write.
The
write-read-compare sequences with patterns 2, 3 and 4 will
not be repeated, however.

¢ 1172

secondary

)

Other new bad

1162
1163
1164
}}gg

E }};z

and

Any error, including correctable errors, will
result
in &
retries.
Any block failing these will be considered a bad
block.
If no primary revector block already exists
in the
track,
the first to fail will
be primary revectored by
making an R(T entry in its RBN descrigtor.
reheaderln? it

:
:

RBN

with a code of 05, and resetting the RBN forced error flag.

C 1158
E }}23

C 1168
€ 1169

except used

Zhis process is repeated using LBN-unique patterns 2, 3

E }}gg

€
C
€
E

block,

blocks, is read and its data compared to the expected value.
This will be done with revectoring enabled
for a primary

6.1.3 Replacement

This section will complete the RCT and resolve all secondary

bad

When all tracks have under?one the scanning section, The 'R2
Tables''

will

read

ftrom

the

media.

The

secondary

block

CZRCH RC25 DISK FORMATTER

SEQ 29

Page 2
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE.AZTECICZRCH1.B16 6 (17)

11=Jul=1983 16:04:50

USER DOCUMENTATION

8~Jul=-1983 13:42:19

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

D nd

AV IAN LN NN N TN SIASTASIASIAS SIS LS IS S LS LN TN TN TN 1N TN N 1N TN 1,0 1,8 nn PONIPINININ) b b b b d o oo b od b b o d od cd cwd = b b OO YOOV O 00000 0o 0o 00O o000
N NN
W NN
W
WIANNNINMNINININDMNININ
= b b D b ed D b 3 = O o =]=]= OO0 OO0V
WNWN—=O V0 NO VIS W -0
W =O V0 ~NoONwn S WA= O VO NN
OB WN=O YO NV
WN—=O 000N OV

b wnd

Tracks whose RBN is assigned to be wused
for secondary
revectoring
will
be written to
reset
the forced error

6.1.4 Check pass
This section makes write and read passes of the media as a
to verify revectoring capabilities.

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

Good

Pattern 3

b =

Primary revectored

Pattern 3 of replaced block

Secondary revectored

Pattern 3 of replaced block

Used RBN

Pattern 3 of replaced block

b e

D wd

Data

Starting with the top surface LBN rrack nearest the 0GB all
Host Application Blocks will be read to test for

revectoctn? capabilities. Failure of any read or write will
result in 10 retries.
Failure of all retries will result in

6.2

Restore Mode Procedure

Restore mode will onl{ be run by DIGITAL
Manufacturing personnel.
requires
an
:
copy of
the
FCT produced when the platter was
externa
manufactured and is stored on the System Boot Media.

as follows:

end

e end = e

ard

b wmd

b e

) b

a fatal error message sent to the host and the format aborted.

The FCT tracks will be formatted using

the Format

b o

Track

FCT blocks.

The header code of each block will be

The data will be pattern W.

12,

indicating

Each

will

its

data

block

Write-read-compare

read

and

seauences will

good

verified.

then be performed on each

M, 1, 2, 3 and 4.

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

This procedure

Index XFC.
A failure of this XFC will result in 10 retries.
If all retries fail, the format will be aborted.

block, using patterns

b md e

b T

final

fol lows:

D e

D ed ad =D =D

indicator in the RBN.

Block Type

—d e

alataYalalalaYatalalalatalalalalalatalalalalalalatalalalalatalalalalalalalalalalisalslalalalslalalalalalalalalale
Ty

T
I E

AR A ERE R
IE I

I E

A N E AR ER

A R
L R

RE N E N E

TR I E TR I EPR

R PRAPRI
E RIEAINFE

FETR
FEYR TR
YAYR
TR YR

N FE
TRYN FI
¥

PATCH 00

The tracks will be reformatted,
block
header codes
to
11,

Any block

failing

if necessary, to change

bad

E
CZRCHY
REV A PATCH 00

CZRCH RC2S DISK FORMATTER
USER DOCUMENTATION

VAX=11 Bliss=16 V3=555

11=Jul=1983 16:04:50
8=Jul=1983 13:42:19

€
¢
C
E

12%7
1238
1239
}gz?

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

C 1242

Two copies of the FCT will be written

;

C 1245

This mode will be aborted it any FCT sector fails in all 4

:
:
:
:

E }gzz
C 12646
C 1247
E }gzg

copies.

The RECONSTRUCT mode will then be called in if the

formatter will be aborted.

:
:
:

C 1252
C 1253
E }%gg

6.3

E }ggg

This mode will be performed if:

C 1258

;

C 1261

C 1264

H
:

C 1266
C 1267

E }ggg

:
.

E }523

The program will automatically enter the

proceed as in 4.1 above.

Format

Mode,

and

Reconstruct Mode Procedure

The ogerator has expl1c1tly re?uested this as the formatting

mode

by answering ‘N0’

to the

following software questions:

. ‘Use existing Bad Block information?"’

E }525
C 1265

track.

option to continue if the FCT file is inaccessable else the

¢ 1250
€ 1251

FCT

These will include bad blocks found in step B.

;

each

. 'Down=line Load Bad Block information?’’

The Operator has responded with

°‘'YES'

the

‘Continue if Bad Block information

inaccessible?"’

question:

C 1268

and

the

Bad

Block

file

software

is discovered inaccessible

during a Reformat or Restore Formatting Mode.

;

E }s;;

Reconstruct formatting procedure is as follows:

E 15;2

€ 1275

C 1278

;

g }53;

. Media Mode

= 512 Byte Format

;

E }sgz

. Formatting Instance Number

E }532

. Volume Serial Number

= Operator Supplied S.N.

¢ 1287

. Time of First Formatting

= Operator Supplied Date

¢ 1290

. Time of Most Recent Formatting

= Operator Supplied Date

¢ 1293

. Number of Used 512 Table Entries = 0

:
:

.
:

E }ggg

E }538
E }gg;

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

The Formatt1ng
process will be aborted if all four copies of

E }5;9

Sector 0 are

bad

The

Information

Volume

Block

(Sector

reconstructed using the following information:

will

(VAX/VMS Format)
(VAX/VMS Format)

SPIDERSUSERS:[NEALE .AZTECICZRCHI. 816 4 (17)

:
:
:
:

SEO 30

F
CZRCHY

VAX=11 Bliss=16 V3-555

11=-Jul=1983 16:04:50
8-Jul-1983 13:4 2:19

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

. Remaining Words Zeroed
The volume Information Block
is then
written
copy and read back for data integrity.

—

Read Failures at all
process to abort.

four copies will cause

to
the

each

F(T

formatting

NOTE

Remaining FCT Sectors 1
The formatting process will

Procedure.

thru 15 are not altered.

then perform the

Reformat

SEO 3
Page 3

SPIDERSUSERS: (NEALE .AZTECICZRCH1.B16;4 (17)

. Number ot Used 576 Table Entries = 0

(alalalalalnlalnlalatalalaYalalalalaYaYa)

TETE
IRTEFE TN FE PR FNE YN

PRYN PR FE TN

I TR Y

N T

REV A PATCH 00

Mode

d
b
b
D e
D e
e e
d e
)
b e
b
b
D wd ed i
b e
b
b ad
—b

WA
U N U U AN N AW N N O AN AN AN N N AN N AN N N NN NN
WA
AN AN NN W N WA N N NI NI N NI NI NI NIN) b b —d ad b
=2 O V0 ~NO
D00 NO WV
NN — O 000 NOVIINMAN

ENOIOIOIOIIOVIICIIOIOIOICIOIIIIIIOIINOIY
TM

7.0

HOST TEST SUMMARIES

7.1

ATTENDED FORMAT MODE

-0

©o

SO
s

8-Jul-

—

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

WO~

11=Jul-

hodtd
oo Co
Wi

CZRCHY

REV A PATCH 00

3
-

SEQ 32
Page
32
V3-555
Bliss=16
VAX=11
8)
(1
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16 :4

In this HOST mode the operator must be present at the console terminal
to respond to DM formatter software questions.
Via these sofware guestions
the ogerator 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

the host reported
7.2

qiven to the DM formatter however must be the same unit

bringing on-line.

UN-ATTENDED REFORMAT MODE

In this HOST mode a REFORMAT mode will automatical@{ be preformed on all

physical unit numbers contained within operator built P_Tables.

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
phxi1:alfun1ttnumber within the current
unit

P_Table is given to the DM as the

format.

In this mode the operator can select up to 16 units (a unit beiq? a ghysical

platter) to format and be free to lLeave the console terminal while the
units are being formatted.

OICICIMICICIOIOIOIIIOIIOIOIIOIOI
MV
IOI I
IO
IOICIIICIICIIOI IO OI IO

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION
8.0

CACIMIIICI I

R
AR
A
IR
A
(P

SEQ 33

Page 3
VAX-11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE.AZTECICZRCH1.8B16 ;4 (19)

11=Jul=-1983 16:04:50
8-Jul=-1983 13:42:19

APPENDIX

APPENNIX A

GLOSSARY

DBN

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

Diagnostic Machine.
firmware

which

used

interpreter

built

into

the

R(25

to execute programs downline loaded

into the RC25's buffer memory.

EDC

Error Detecting Code.

FCT

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

FRU

;ietg Replaceable Unit.

operation.

A means of verifying correct controller

An item which may be exchanged in the

168

Inner Guard Bands.

Initialization and Polling Register.

used

LBN

Logical Block Number.
Host visible blocks including the
Application Area and the RCT tracks.

Host

MSCP

Mass Storage Command Protocol.

0GB

Outer Guard Bands.

PBN

The guard bands closer to the spindle.

for port control.

The

This

method

used between the host and the RC25 over the bus.

The guard bands further from the spindle.

Physical Block Number.

R(C25 media.

communication

The absolute address

RBN

Replacement Block Number.
block replacement.

RCT

Replacement
and Caching Table.
media ID
information and
a
locations.

R201

RC25 product name.

Status, Address and Purge Register for port control.

XFC

Extended Function
Call.
Instructions
which
Diagnostic Machine code to the R(25 microcode.

N E

N E M R T AR T AR TR N E I R

TR T

PRYR

PR PR TR

TR PR T

PRI ETE

PRI

PRYR

LNYR

PRI TR LR TR TN

CZRC
REV A PATCH 00

block

R(25 has one RBN per track for bad
A 16 sector
todle
containin
map of
the current bad bloc

interface

CZRCHY

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

USER DOCUMENTATION

VAX=11 Bliss=16 V3=555

8-Jul=1983 13:42:19

APPENDIX B

1395

BAD BLOCK REPLACEMENT

1397
1398

Bad block replacement is an addressing technique for replacing a bad
block with a
good one.
The block which
replaces
it is called a

1401
1402
1403

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

1405
1406

of that track.

1408
1409

1f other bad blocks are found in the same track, they must be replaced
by unused RBNs of other tracks.
This is called Secondary replacement.

00 NOVNEWN—O

(=4
b
b
b
b
b
ed
cd e
—

b
b
)
b
b
b wud and

EELBDESSN

-—b

1399

replacement block, or RBN.

If a single bad block exists on a track, it can be replaced by
This is called Primary replacement.

the

Page

SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16;4 (20)

1393

alalalalalalalnlalalalalalalalalalalaloYalalalalalale
Ty

[ PR YRR

EIEIE

A IXTE TR IR FETEAIE TR YR PR YR P

TR N

YA P

NN 3

REV A PATCH 00

SEQ 34

RBN

Two t;pes of tables record bad block information for the media. One i3
the
Factory (Control Table (FCT), which is written on the media at the
factory.
It is a map of the bad blocks caused by the manufacturin
process.
The other 1is the Replacement and Caching Table (RCT), whic
includes both the F(CT information, and bad block
information uncovered
by the Llatest formatting of the media.
There are four copies of each
table per unit.

CZRCHY

CZRCH RC2S DISK FORMATTER

1M=Jul=1983 16:04:50

REV A PATCH 00 USER DOCUMENTATION
:
:
:
:
:
:
:

C
€
C
C
C
C
C

1419
1420
1621
14622
1423
1624
1425

8=-Jul=1983 13:42:19

APPENDIX C

FCT

€ 1626

E }2%;

The basic unit of the F(T is the Bad Block Descriptor.
This descriptor
gives
the Physical Block Address of the bad block, and a four bit code

:
:

C 1429
E }2%?

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

:
:
:

C 1432
C 1433
C 1434

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

indicating why it was retired.

VAX=11 Bliss=16 v3=555

SEO 35

SPIDERSUSERS:[NEALE .AZTECICZRCH1. 816 4 (21)

ro
R

-t

11=Jul8-Jul-

00
TMo
W

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

SEQ 36
Page 36
VAX=11 Bliss=16 V3=555
CNEALE .AZTEC JCZRCH1.B16;:4 (22)
SPIDER:SUSERS

C 1435
APPENDIX D

RCT

The basic unit of the RCT is the double-word RBN Descriptor.
There are
1524 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
gract.
The second descriptor with the RBN of the second host- visible

In the format process, the FCT is given. Four copies of
it are found on
the media;
two on each F(T 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 as bad by either of these sources.
The track's RBN must
itself be a good, unused block.

Primary replacement is accomplished by:

t Making the bad block's header code 05.
* Writing the bad block's data field as 128
copies of its track's RBN address.

CVYICVINIOVN YNNI I I OI I I OIOI OV ON IO I CICINOICIOICI IO O OIOIOI I YA OICICI IO OO O OO OYOYOI YOI OYOYOIY OV DY

Ve 800 By Ve Ve Vg BeVe By Ve Ve Vs Ve Ve 0oV

%003 %0000 %000 %0 0000800000080 %00,0s%0 %085 09, 0,0, LA TR TR TEXIE FR FN FR

I ¥

CZRCHY
REV A PATCH 00

3
—d

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

Secondary

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

unused RBN block.

Secondary replacement is accomplished similarl‘ to Primary
but first an unused RBN of another track must be found.

Replacement.

* Find an unused RBN Descriptor in the R(T,
using the Ping-pong algorithm.

* Make the bad block's header code 03 or 11,
depending on error type.
*+ Write the bad block's data field with 128
copies of the target RBN address.

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

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

L
CZRCHY

CZRCH RC25 DISK FORMATTER

11=Jul=-1983 16:0 b:?8
8-Jul-198313:4

REV A PATCH 00

USER DOCUMENTATION

indication set by complimenting their EDC fields.

( 1492

VAX=11 Bliss=16 V3=555

SEO 37
37

SPIDERSUSERS: (NEALE.AZTECICZRCHI. 816 4 (22)

©°o

rO
o

wnb

—b

8-Jul~

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

11=Jul=

C 1493

APPENDIX E

DATA PATTERNS

Six patterns will be used during the scan pass.

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 data
bits can toggle.

Patterns 1

through 4

elements are as

WN NN WA W AN NN N NN NI NDNI N b od e oo e b ed d ek d O
OV
NN 2OV
NO VIS WA= O VO NOWVSMWN=20OW0

b wab

b o

b e

b wnd nd cnd

=D ned

iiY

CVOICICIOINOIOIIICIIOIOIIIOIOI
AN CICICIOIOIOIIOIOIOIIIAOIOIOIIOI IO OVOIOV O

[

R IR

I AREA A

AR R TR TRR
I

FE PR PR
T

PNPR PR
TRTR

N YR

FRIE

TR I IR LR

IRLB

LN1

CZRCH1
REV A PATCH 00

are

tollows:

made

single

word

elements.

These

Element A = 071311.

This causes peak shift in data encoding.

Element B = 106466.

This causes single transitions spaced by
1, 2. 3 and & zeroes.

Element C = 043146.

This causes both the highest and lowest
{requency of transitions in the encoding
ogic.

Element D = 134631.

This also causes both the highest and

lowest frequency of transitions in the

encoding logic.

Element L = 17NNNN.

Where NNNN is the LBN address to which the
pattern is written.

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

LBBAAABBBBAAAAABBBBBBAAAAAAABBBBBBBB etc.

Pattern 2

BLABBBAAAABBBBBAAAAAABBBBBBBAAAAAAAA etc.

Pattern 3

LbDCCCODDDCCCCCDDDDDDCLCCCCCCODDDODDDD etc.

Pattern &

OLCDDDCCCCDDDDDCLCCCCDDDDDDDCCLCCCCC etc.

SEQ 38

Page 38
VAX=-11 Bliss=16 V3=555
[NEALE .AZTEC JCZRCH1.816.4 (23)
SPIDER:SUSERS

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

SEQ 39

11=Jul=1983 16:04:50
8-Jul~1983 13:42:19

VAX=11 Bliss=16 v3=555
Page
SPIDERSUSERS
: (NEALE .AZTECICZRCH1.B16;4 (24)

1537

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

1540
}gzg

Three steps are taken to insure the data will_ _not
interfere with
Secondary Revectoring by matching the ‘‘Compare 128’ algorithm. These

This feature is taken advantage of in validating revectoring.

are:

« The high four bits in every word contain invalid header codes.

1546
1547

* Before secondary revectoring is attempted, blocks not involved
with revectoring will be written with data fields which

}22?

~ When the format

&
o~

1538

(alnlalalalisinlalislialalslalialalal

CZRCHY
REV A PATCH 00

1548
1549
1552

contain no 32-bit repetitive patterns.

complete,

unrevectored

contain data which has 32-bit repetitive patterns.

blocks

will

YR
IR AR EATEYEYEYE

IR IETEA FPE TR PRI

FE YN TR

PR LR PN FRE PR PN

P3SN

CZRCH1
REV A PATCH 00

C
C
C
E

1553
1554
1555
}22?

C
C
C
€
C
E

1558
1559
1560
1561
1562
}ggz

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11=Jul=1983 16:04:50
8=Jul=-1983 13:42:19

APPENDIX F
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 emgty descriptor
is not encountered then a
Llinear scan of the remaining RC
blocks and
descriptors within blocks,
(with wrap-around at the end of the RCT) ensues
until one of two things occur:

C 1565
E }ggg

An unallocated replacement blnck descriptor
overflow location - a secondary.

E }ggg

The entire RCT is searched without success - a failure.

E }g;?

SEQ 40
Page 40
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.8B16 26 (25)

encountered

The search operates at two levels:

€
C
C
E

1572
1573
1574
}g;g

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

€
C
C
C
E

1577
1578
1579
1580
}gg;

Then a linear search, starting with the next highest 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.

C
C
C
E

1583
1584
1585
;ggg

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

SEQ 41
Page 41
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16 ;4 (26)

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

X129][}¥4b[}[}[N[][]=T7[}—

CZRCHY
REV A PATCH 00

[«

[(4@-+& [1M@]

]0 Lwt 'o [—} [,
=4 [l - o [=4 [
[-T][

[vJ

OO OO MO O

CREATING CZRCHA DM

—un

L
ele)

HO
NS~

—

WO~

VAX=11 Bliss=16 Vv3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16 24 (27)

wwaVA
I VIV >

CODE

FILES REQUIRED

.
.
A. RTEM (RT-11 emulator) including:
a. DMACRO.SAV The DM macro assembler
b. DMACRO.MAC The DM macro Library
)
]
c. DTX.SAV
The XXDP+ UPD2 emulator including:
d. DTX DRIVERS including:
1. I1ZDDAQ.DTX
2. 1ZDKAQ.DTX
3. IIDLAQ.DTX
4. 1IDMAQ.DTX
S. 1ZDTAQ.DTX
6. 1ZDXA0.DTX
7. 1ZDYAQ.DTX
8. IZMMAQ.DTX
9. I1ZMSAQ.DTX
10. IZMTAO0.DTX

e. STARTM.COM RTEM start up
assembling DM

com file.
See below
source files

B. DMCONV.EXE

.
.
Converts DMACRO output
.SAV files
into a Bliss
ascii
array. This ascii array is then built into
a seperate Bliss module and compiled. The object
code from this module is then linked
with other
Bliss object quules.resqltrng_in a APT compatible,
cogtlglous object file including both host and DM

b el

b wud

) wod

b cnd cmd

)

b e

O ONONONON
oo oooocorOr

OB NGNS WSO VD~

) ad

YOI

G.1

eud

I I I CIOCICI OICICI IO OIOIOIOIOIIOICIOIOIOIOIO

8-Jul~

SEQ 42
42

Page

APPENDIX G

code.

G.1

BUILDING DM SOURCE CODE
DM source code can be built using any of the text editors
available under any operating s;stem.
Guide lines for its
creation can be found in the AZTEC.DOC manual.

G.2

ASSEMBLING DM SOURCE CODE

— e

YNNI OIII I I I OI I CICIICICIOIOICI I OIOI I

R LN YR LA XN ¥
PR
N IR PR TR PR
TRIR
R IR
PRTR PR IR
PR PR
TR TR T A TR TR T PR PR
N
N
M
R
R ETRR
RE
AR I E I E T E AR AT EE
A
R
NE
R

11=Jul~

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

—b

CZRCHI

REV A PATCH 00

hod
ol
Co 0o
W

The DM macro assembler (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
startup com file used to create
the released DM formatter
.SAV file. This start-up command file includes: allocating
more virtual storage, brlnglng the DM source code into the

RTEM system, assemblin
he 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) v01.00

RT-11FB (S) v04.00L

!Set default directory to the RTEM sub-directory
'Run the RT=11 emulator
‘Type /vs to prompt RTE>

4:5
b) 0

2:19

VAX-11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16 4 (27)

**C

!Set term characteristics
L
!Enter JOAT (Jack of all trades) utility
!Allocate virtual device VS1: to RTEM system
'Exit JOAT

'25%1351:'°'

!Make room in VS1: for this assembly

iv§1:=[~EALE.AerCJAzrnrn.nAC/r
"

R DMACRO

L Sl o

b @b

NNNN NNNNNNNN NNNNNNNYNY
N PONIPINIPINININ)
= b cmd cod o b coud ol b b =]
oo NOWV B W
=O VNN
WNI=00

*VS1:AZFMTR,AZFMTR=DMACRO,VS1:AZFMTR

R FIP
~[NEALE.AZTEC]/F=VS1:AZFMTR.LST
+[NEAI E.AZTEC]/F/]1=VS1:AZFMTR.SAV

‘Run FIP

.800 SY
$ <VMS>

'Return to VMS

b
b =D
b mod
b
P
b
b
D
b

The next step is to run the DMCONV program to build the
Bliss ascii arrax_from the DMACRO output .SAV file.
To
do this follow t i s example:

$ run DMCONV.EXE
INPUT FILE
NAME (I.E. XXXXXX.YYY) AZFMTR.SAV
OUTPUT FILE NAME (I.E. XXXXXX.YYY) AZFMIR.VEC
BLOCK VECTOR NAME (I.E. XXXXXX.YYY) AZFMIR

b
b

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

BUILDING THE BLISS ASCII ARRAY

b od cnd

!Run the DM macro assembler
'!Assemble DM source and save in VS1:
'Exit the DM assembler
!Run the RTEM linker
.
'Link the .ob& file and save in VS1:
'Exit the Llinker

L 2al 8

b
b cnd
d e

b cud cmb

b cnd wnd

b
b
b
b

!Enter File interchange program
.
;gri?grgg DM source code from user directory

R LINK
tVS1:AZFMTR,AZFMTR=VS1:AZFMTR
A
C

G.3

Before

storage disk VS1: must have already

R JOAT
*MORE/V:VS1

.SET TT:NOCRLF,SCOPE,WIDTH 80

IIOI Y OIOIYNIOIY I ICI I

YOI CICI IO O OIOIOIOIOI I OIOIIIOIOIICIOIOIOIOIOIOI IO OO OIOHIOYOIYOIYO IOV D

1M=-Jul- 1983
8-Jul-1983

! running the command file the virtual
; been generated using the JOAT utility.

—d

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

SEQ 43
age 43

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

YOV

IR I

IR E

AT E

AT ETE

IR TR

T R YR YRITEAIETEYEIRIETE
TR PRI FE PR PR PR IE FE FEFE FE LR FE FR PR TR X ¥
FR FEFE YR TR TN ¥ R
PR YRTR
PR PR

PATCH 00

Note:

In this example it is assumed that DMCONV.EXE and the
.SAV file are both in the default directory.

G.4 BUILDING THE DM BLISS MODULE
The output from
the
DMCONV program
(AZFMTR.VEC) is then
included
into a Bliss module (for the purpose
of CZRCHA this
module is
AZKEL6.B16) and compiled.
To
compile this module
takes a VERY long time so it is suggested that it is submitted
to the batch queue after hours.
The entire procedure
to compile and
Llink all Bliss source
is demonstrated by
modules
(including the DM bliss module)
the following command procedure (azcom.com):

CZRCHY
REV A PATCH 00
:
:
:

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

C 1747
C 1748

$ 3azcom
$ set verif¥

VAX=11 Bliss=16 V3=-555
Page 44
SPIDERSUSERS: [NEALE .AZTECICZRCH1.B16:4 (27)

'Execute command procedre

:
:
:
:
:
:
:

C
€
C
C
C
C
C
C
C

:
:

C 1759
E };g?

$ MR
T
.
SZRCHA/NOHD/NOHH.CZRCHA/CR/-SP=CZRCH2,CZRCHS.CZRCH&,CZRCHS.CZRCHb,CZRCH7,nevslb/lb

:
:
:

C 1762
C 1763
C 1764

PAR=DUMMY :2000: 176000
STACK=0
//

:
:
:

C 1766
C 1767
C 1768

$ !
$ !~
$ In

:
;

C 1770
c 1771

$ set noverify
s

:
:

C 1773
E };;g

C 1776

$ RUN TKBBIN

C 1778

:load Addr: 2000

H
:

:
:
:
:
:

:
:

1749
1750
1751
1752
1753
1754
1755
1756
1757

SEQ 44

11=Jul=-1983 16:04-50
8=Jul=1983 13:42:19

$ bliss/pdpl1/Llist/library CZRCHO.R16
$ bliss/pdp11/listing=CZRCHA.DOC CZRCH1.B16
$ bliss/pdp11/list CZRCH2.816
$ bliss/pdp11/Llist CZRCH3.B16
$ bliss/pdpl1/list CZRCH4.B16
$ bliss/pdp11/Llist CZRCH5.B16
$ set process/name='Xiller
$ bliss/pdp11/List CZRCH6.B16
$ set process/name='Fisher_man

C 1758

3 bltsségdpl1/l1st CZRCH7.B16

1765

1769

C 1772

C 1786
E };g;

A NN AR

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

N A

RN RN

TN N R AR

R AR AN

End of Job
S
G.5

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

The following is an

C 1789
¢ 1790
E };31

$ set def [neale.rtem]
$ mcr rtem
;RTE>/vs

:
:
:

c 1793
C 1794
c 1795

' The startm.com command file will automatically
| begin to execute when entering RTEM.
(ontrol
' ¢ the command procedure at this time and do the

C 1798

.R JOAT

'Run JOAT utility

¢ 1800

«A(

'Exit JOAT

c 1802
c 1803

.R FIP
*VS1:=[NEALE.AZTECICZRCHA.BIN/F/]

:
:

C 1796
c 1797
C 1799

¢ 1801

.xfer Addr:
:Nr char
: 74600

:
H
:

:
:

*
«
v

lnput filename ? CZRCHA

c 1779
C 1780

1781
1782
1783
1784
1785

AN AR AN R AN TR AR NN RN AR N RN AR RN RN

The TKBBIN utility is then run on the output from the TKB linker to produce
an XXDP+ executable .BIN file.
The following is an exampie of the procedure:

c 1777

c
C
C
C
C

AN RN AR

i following:
i
DLO:/A

!Set default directory to RTEM sub-directory
'Run the RT-11 emulator
‘Type /vs to prompt

'Atlocate XXDP+ device to pip .BIN file to

'Run FIP utility
!8ring .BIN file from user directory into VS1:

CZRCM

CZRCH RC2S DISK FORMATTER

REV A PATCH 00 USER DOCUMENTATION
:
:
:
:

C
C
¢
C

:
:

C 1809
¢ 1810

:
:
:
:

1804
1805
1806
1807

C 1808

¢
C
¢
C

1811
1812
1813
1814

1M=Jul=1983 16:04:50

8=Jul=1983 13:42:19

VAX=11 BlLiss=16 V3=555

'‘Exit FIP

.R DTX
«DEL DLO:CZRCHA.BIN

'Run the XXDP+ UPD2 emulator
'‘Delete from XXDP+ media old .BIN file

*0OAD DLO:CZRCH
XFR 000001 CORE 002000 76600

‘Load the file to verify the chack=sum
]

.B00 SY
$ <VMS>

'8oot back to VMS
'Back at VMS again

v4(

SPIDERSUSERS: [NEALE .AZTECICZRCHI. 816 4 (27)

va(

«PIP DLO: CZRCHA BIN VS1:CZRCHA.BIN

SEO 45

'PIP new .BIN file to XXDP+ media
'Exit DTX

H.1

Using any text editor,
H.2

©o

ro
&

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

)%
ELUDOM

to get the .BIN file onto XXDP+ media.

Words

CZRCH1 CZRCH RC2S DISK FORMATTER

/REV A /

Attributes

COMMAND QUALIFIERS

BLISS /PDP11/LIST=CZRCHA.DOC CZ2RCH1.B16

Elapsed Time:

COMPILING BLISS SOURCE MODULES

Psect Name

Size:

—

follow PDP-11 diagnostic design guidelines demonstrated

in SUPPRGC.DOC and CHQUSD.SEQ.

PSECT SUMMARY

Run Time:

(V.1V}

SOURCE FILE CREATING

FILES REQUIRED
A. Text editor

B. BlLiss16 compilier
C. TkB linker
D. TKBBIN Utility This converts Bliss1{ .EXE files into XXPD+
.BIN files.

H.1

0 code + 0 data words
00:08. 6

00:15.1

Memory Used:
6 pages
Compilation Complete

SEO 46

SPIDERSUSERS:(NEALE .AZTECICZRCH1. 816 4 (28)

CREATING CZRCHA HOST CODE

.TITLE
IDENT

VAX=11 Bliss=16 V3=555

APPENDIX H

NO WV

3
36
37

1M=Jul8-Jul-

0O
coco

WN 2O 000NN

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

WWWIWWNINNINININ
NN S
b b

NO VNS WA =2 OV

b
b
b
b
b
d
b
b
b e
b
b
b cnd
i
i
b
d

Yo Yo To Te Yo Lo To To Yorle -To To Yo To Lo -To-To 1o To-To. ]

b
b ad e

(o To T

Y EYR IA TR

I EITEYR IR TE

IR TRFE PR PN P FI PR TN FR TN TN Y

(alalalslalainlisinlialalialalaslalialialialnlale]

CZRCHY
REV A PATCH

&
-

N~
QD —

wWo
&

~s O

—

XTITLE °RC2S FORMATTER LIBRARY MODULE'®
'MACRO DEFINITIONS'

Asbttl
mac PO

This macro will transfer the operator inputed date from it storage

i place into the send buffer where it will then be sent to the DM.
SFILLDA!E
begin

nap snd_buf : vector [74, bytel;
incru i from 0 to 11 do SND_BUF [.i) = .DATETXT [.i];

end; %,
WRT_RC25 (0, IMAGE) =

begin

local
RCSM_REG;

RCSM _REG = IMAGE;
(.RC25_ADDR + Tupval*0) = .RCSM_REG;
endz

Dup Protocol Macros Declarations
REC_BASE =

“HDR_SIZ2, 0, 0, 16, 0%,
SND_BASE
=
“HDR_SI1Z + REC_ALLOCATE, 0, 0, 16, 0%,

Macro to clear out the DUP send data text buffer

before requesting 1ngut form operator.

defaglt puts a null

This

byte at the end of the ascii

General purpose word reference field select
WORD REF =

0. 16, 0%;

[.i) = ZERO

from 0 to SNDB_SIZE - 1 do SND_BUF

$CLRSBUF =
incru i

»e

1nput.

0, 090000000908s0s8s 20210008005 03090s%c0s000s0c0,
0,0:083 800000000200
048400 0e¢%0
03008,
S e B0

hedod
Q000

11=Jul6=Jul-

RC25 FORMATTER LIBRARY MODULE

——

VAX=11 Bliss=16 Vv3-555

SEQ &7

SPIDERSUSERS: [NEALE .AZTECICZRCHO. R16 2 (1)

RC25 FORMATTER LIBRARY MODULE
SUPERVISOR DEFINED LITERALS

4:41
1M=Jul=-1983 16:04:

:33:38

6=Jul-1983 11:3

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE .AZTECICZRCHO.R16; 2 (2)

Ysbttl *'SUPERVISOR DEFINED LITERALS'
Literal
‘e

%o 100000°,

&H
o
o

»e
o

%0'20000°.
20°10000°
.
X0'4000°,
20'2000°,

NIt

(=]

—

(=4
[+

HOOBOWNNNRDN

i BIT DIFINITIONS

)

81700,

i EVENT FLAG_DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
EF_START = 32

! START COMMAND WAS ISSUED

EF_NEW
= 29,
EF_PWR = 28,

! A NEW PASS HAS BEEN STARTED
]
! A POWER~FAIL/POWER=-UP OCCURRED

EF_RESTART
= $1,
EF_CONTINUE = 30,

SEO 48

! RESTART COMMAND WAS ISSUED
; CONTINUE COMMAND WAS ISSUED

NI FI YN FE NN YR FI FN FR FE FI FI FE e

‘e

;

PR107 = X0°'340°,

PRIO6 = X0'300°,

PRIOS = X0'240°
PRIO4 = %0'200°,

PRIO3 = X0°'140°,

'
L4

PRI02 = %0'100°,
PRIOT = X0°'40°,
PRI00 = X0'0°,

A FE

'OPERATOR FLAG BITS

b
b
b
b
b
D
b
b
D

— ad b b s
o b
NOWVMES
W —=O0

(elelelalelalelsle)

N
YR YNIR YR FE
[ TR IEIEA IR IR TE

PRIORITY LEVEL DEFINITIONS

EVL =
LOT =
ADR =
IDU =
ISR =
UAM =
BOE =

X0°4°,
X0'10°,
20'20°,
20°40'
%0°100°
%0°200*
X0°'400°,

PNT = 20°1000°,
PR] = %0'2000°,
IXE = %0°4000°,

IBE = Xo0' 10000'.
1ER = 20°'20000°,
LOE = %0'40000°,

HOE = X0°' 100000'.

N~
QD —

6=Jul=1

11=Jul-1

WO
[V

SUPERVISOR DEF INED LITERALS

RC25 FORMATTER LIBRARY MODULE

4
hodd
Lol
]
NN

SEO 49

SPIDERSUSERS: [NEALE .AZTECICZRCHO.R16;3(3)

VAX=11 Bliss=16 V3=555

b
b
d
D
D
d od
D e
b

NINONINININININ)
=

elalolelelelalelel)

oo
e

&
0D -

oo
e

WO
(VTP

- ON

6-Jul-

FORMATTER DEFINED LITERALS

1M1=Jul-

RC25 FORMATTER LIBRARY MODULE

&
-—bd

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE.AZTECICZRCHO.R16; 2 (4)

}sbttl *FORMATTER DEFINED LITERALS'

; Down Line load external FCT copy Lliterals

FCT_SEC_O0

FCT_SECC1S =fS

'FCT sector 2ero request

'FCT sector fifteen request

z Global flag word bit definitions
NON_EXIST_REG = BITO,

!Non-existant register flag

5 Message selection literials

MSGO = O,

!Select message 0

MSG2 = 2,
MSG3 = 3,
MSGé = &,
MSG5 = 5,
MSG6 = 6,
MSG7 = 7,
MSG8 = 8,
MSGY = 9,
MSG10 = 10,
MSG11 = 11,
MSG12 = 12,
MSG13 = 13,
MSG14 = 14,
MSG15S = 15,
MSG16 = 16,

!Select
!Select
!Select
!Select
!Select
!Select
'Select
!Select
!Select
!Select
!Select
!Select
!Select
!Select
!Select

I IR =2 &30 00 O N IS NN =

MSG17 = 17,

MSG18 = 18,
MSG19 = 19,

NN S OB NN N R AR S OO0 O

b od

b md mh

b md

b md md

O OO O O

b o

b md md

e o

NN NN NN AANA RIS

(elelelelelelelelelalelelelelelelelelelalelelelalalelelelelelolelelele]

MSG! = 1,

MSG20 = 20,
MSG21 = 21,
MSG22 = 22,
MSG23 = 23,
MSG24 = 24,
MSG25 = 25,
MSG26 = 26,
MSG27 = 27,
MSG28 = 28,
MSG29 = 29,
MSG30 = 30,

'Select message 1

message 2
message 3
message &
message 5
message 6
message 7
message 8
message 9
message 10
message 11
message 12
message 13
message 14
message 15
message 16

!Select message 17

!Select message 18
!Select message 19

!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
'Select message
!Select message

20
21
22
23
24
25
26
27
28
29
30

; Miscellanious literals

DUP = 2,
MSCP = 0,

!DUP connection ID constant
!MSCP connection ID constant

SUCCESS = 1,
BLKO = 0,
BLK1 = 1,
BLK? = 2,
BLK3 = 3,
WRDO = 0,
WRD1 = 1,

'Success return code

FAILURE = 0,

SEO 50
4

'failure return code

!Selects
block 0 of struct
!Selects block 1 of struct
!Selects block 2 of struct
'Selects block 3 of struct
!Selects word 0 of block
'Selects word 1 of block

WRD?
WRD3
WRD4

WRD6

6
0

WRDS

PR
TRT

!Allowable number of units to format
!Size of DM buffer size
!Size of fct buffer size

! Command opcode bits 6 and 7 indicate the type of message
The following literials
! (command, end or attention message).
: define these field values.

CMDSMSG

ATTSMSG

ENDSMSG

Zb'00°,
x'01°,
xb'10°,

!Command opcode message type
!Attention opcode msg type
'End opcode message type

e
AR E R
R
M ETE
E M EIEE T EME
R E I T EEE
IR
TE

2 Error code literials
!Pass code
.
!Communication area init error
‘Controller time out error
‘Port fatal error
!response status error

PAS_CODE

C1E-CODE
CTO_CODE
PFE_CODE
RSE-CODE

'Host/Controller out of sequence
'Remote program died error code
!Port/host synchronious error
!Message length error code
!Unknown end code error

PVE_CODE
RPD_CODE
PSE_CODE
MLE_CODE

UEC_CODE

!Adaptor purge reguest error
!Unknown interrupt error code

APR”CODE

UINZCODE

ATN_CODE
CMD_CODE

SEX_CODE
1VCCODE
UMT_CODE
OBF ~CODE
0SE-CODE
UMN_CODE
FRE-CODE

ILLZFCT

20'4001°',
20°5001°,
X0°'6001°,

% Dup Pr otocol
3 Note:

Lliterials

SEQ 51

VAX=11 Bliss=16 V3=-555
[NEALE .AZTEC JCZRCHO.R16;2 (4)
SPIDER:SUSERS

!Ones data type
‘Zero data type
'AlLL ones data type
!ALL 2eros data type

PR PRTR TR TR
I
PR TRYR TR

6-Jul-1983 11:3

PR PR

11=Jul=-1983 16:0

!Selects word 2 o
!Selects word 3 o
!Selects word 4 o
!Selects word 5 o
!Selects word 6 of block
!Select the read word (1st) ISD_STRUCTURE
!Select the write word (2nd) in 1SD_STRUCTURE
!Initialization sequence step one
!Initialization sequence step two
!True indicator
!False indicator
!Set the indicated flag
to one
'Clear the indicated flag to zero

2
3

PRI A TETR

A TR IR TR ER LR LN X

RC25 FORMATTER LIBRARY MODULE
FORMATTER DEFINED LITERALS

!Attention msg received
!Command msg received
)
!Serious exception error received
!Invalid command error received
!Unknown mgssage type
'Out standing
buffer full error
!0ut$std_buffer out of sync error
!Unknown message number
.
!File read error code from load media
'Illegal FCT file length

Page

SEQ 52

6
Page
VAX=11 Bliss=16 V3-555
(4)
6;2
ERS
.AZTECICZRCHO.R1
: INEALE SUS
SPIDER

RC25 FORMATTER LIBRARY MODULE
FORMATTER DEFINED LITERALS
LNFE FE FRE NI TN FIN NI YN ¥

The values assigned to the literials

in
are represented
powers of 2 notation per DUP spec.

REC_SIZ, SND_SI

By redefining these two literials the
communications area allocation and init
sequence is automatically handled and
no other parameter modification is needed.

PR N R N N N ¥ I A YRR YRETE

Further more the send and receive rings
However the
can be of different lengths.
maximum value allowed is 7 (2++7 = 128 slots)
per DUP spec.

REC_SIZ = 2,

SND_SIZ = 2,

(Hdr_si2)
The communication area is defined to be a
contigious Blockvector (two words per block)
data segment of size, Rec_allocate + Snd_allocate +
Hdr_si2.
The two words per block cqm1ng from the
two words needed to represent the ring de scriptors.

PRYR

This one is tricky:

Hdr_siz is then really *« 2 or 4 words
of storage
to represent the interrupt ard purge indicators.

A
T A I ETE
IR
AR
RN
A

!Define number of receive slots
‘Define number of send slots

HDR_SIZ = 2,

‘Define com area header size &4 words

REC_ALLOCATE = 1°REC_SIZ.

'Define receive rin?l allocation
‘Define send ring a ocation

SND_ALLOCATE = 1~SND_SIZ,

! Ring_size equals the total number of ring descriptors
within
the
word blocks) allocated
! (number of
;

communitcations area.

RING_SIZE = REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ,
The RB_SIZ b6 definition, DUP spec, must be
a minimum of 6 bytes
tes Long (30 words) 64 bytes
2 words for the UQ
t
overall.
The additional
accounted for in azkel?2
port
information is

when the storage is allocated.
RB_SIZE = 30,

'Number of ‘‘words'’ in response buffer

The biggest command I'Ll ever send will
ope) will be 40 _bytes, 42 overall,
and again the UQ port 2 words is allowed
for in azkelZl.
be (I

SB_SIZE = 20,

;Number of '‘words'’ in send buffer

SNDB_SIZE = 37,
RECBZSIZE = 120,
PORT_OWNED = 1,

iSend DUP cmd text buffer size

'Receive DUP cmd text buffer size
'Descriptor owned by port

B
RC25 FORMATTER LIBRARY MODULE

HOST_OWNED = 0,

11=Jul=1983 16:04:41
6=Jul=-1983 11:33:38

SEQ 53
Page
VAX~11 Bliss=16 Vv3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCHO.R16;2 (&)

!Descriptor owned by host

Delay Literal values
An argument of one results in a 100us
delay.
A roman numeral notation is used to
denote values
of dela arguments.
The notation is as follows:

I (D, v(5), x A0, L (500, C (100),
D (500), M (1000)
symbol following another of e Sual or ?reater

value adds to its value, as Il =

Any symbol proceeding one of greater value subtracts
from the second and the remainder added to the first
as XIv = 14, LIX = 59.

ONE_SEC = 1000,
ONEMINUTE = 60000,
cus=1

T Us =2
CCT US = §,
XC_0S = 4,

0_US = S,

'One second d=lay argument
!One minute delay argument
!100 micro sec delay argument
1200 micro sec delay argument
!300 micro sec delay argument
1400 micro sec delay argument
!S00 micro sec delay argument

i RC25 register offsets
RCIP = 0,
RCSA = 1,

R AR ARAR R

AR E T E TR T E

T TETE

TR PR

FE IR IIE

N R

Y E N R IR

AR P A TR I E

PRPRI

PRPR TR PN PR TN IR TR TR LN NN PR TN FA

LNPN T

FORMATTER DEFINED LITERALS

Command packet opcodes
(See note following)

OP_ABO = %0°'1°,
OP_ACC = %0'20'
OP_AVL = %0'10'
OP_CCD = Xo'21°,
OP-(MP = %0°'40",
OPCDAP = ¥0'13"’,
OP_ERS = X0'22',
OP_FLU = X0'23’,
OP_GCS = X0'02°',
OP_GUS = %0'03',
OP_ONL = X0'11°,
OPTRD = X0'41°,
OP_RPL = %o0'24°,
OPZSCC = %0°'04'.

OP_SUC = X0'12°,

OP_WR = %0'42°,
OPTMMRD = X0'30°,

OPZMWR = %0'31°,

! End message and serious exception encodes

!Abort command

'Access command

!Available command
‘Compare controller data .ommand
‘Compare host data command
‘Determine access path
!Erase command
'Flush command
!Get command status command
!Get unit status command

!Online command
!Read command
!Replace command
.
!Set controller characteristics command
!Set unit characteristics command
'Write command
!Maintenance read command
!Maintenance write command

RC25 FORMATTER LIBRARY MODULE
FORMATTER DEFINED LITERALS
AL LN ¥

OP_END = ¥0'200°,

A TR LN N

g MSCP

'End packet flag

!Serious exception end packet

Attention message endcodes

OP_AVA = %0°'100°,

'Available attention message

gP-RLC = %0°'103°*,

'Reset command limit attention message

PR PRPR YR

OP_DUP = X0'101°,
OP_ACP = %0°'102°,

TR PE TRPR IE IR
IR PR T
R IR
TR

VAX=-11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE.AZTECICZRCHO.R16 ;2 (6)

(see note following)

gP_SEX = %0'7°,

!Duplicate unit number attention message
!Access path attention message

The following are the dup op-code commands

OP_GDS = Xo0'1°’,

‘e

OP_ESP
OP_ELP
OP_SED
OP_RED
OP_ABT

NOTE

=
=
=
=
=

‘Get dust status

%o'2'.
Xo'3"’,
%o0'4’,
Xo'5",
%0'6’,

'Execute supplied program
!Execute local program
'Receive data
!Send data
'Abort program

End message opcodes
(also called endcodes) are formed by adding
the end
message
flag to the command opcode.
For example, a READ commands end
message contains the value OP.RED + OP.END in its opcode field. The Invalid
command end messa?e contains just the end message flag (i.e., OP.END) in
its oBcoqe field.
The serious exception opcode shown above (i.e. OP.SEX +
OP.END) in its opcode field.
Commands opcode bits 6 and 7 indicate the type of message (command, end or

attention message.
Command opcodes bits 3 through 5 indicate the command
catagory (immediate, sequential
or no-sequential) and whether or not the
command includes a buffer descriptor.

]

;

DUP endcode message types

EOP_GDS
EOP_ESP
EOP_ELP
EOP_RED
EOP_SED
§OP_ABT

=
=
=
=
=
=

OP_GDS
QOP_ESP
OP_ELP
OP_RED
OP_SED
OP_ABT

+
+
+
+
+
+

OP_END,
OP_END,
OP_END,
OP_END,
OP_END,
OP_END,

!Get dust status
'Execute supplied program
!Execute local program
'Receive data
!Send data
!Abort program

; MSCP endcode messag types

R I

See MSCP document appendix '‘A=1 NOTE:'' for more information on this topic.

P P

PR PR TR

P P PN PN PR

11=-Jul=1983 16:04:41
6=-Jul=-1983 11:33:38

EOP_ABO =
EOP_ACC =
EOP_AVL =
EOP_CCD =
EOP_CMP =
EOP_ERS =
EOP_FLU =

OP_ABRO
OP_ACC
OP_AVL
OP_CCD
QP_CMP
OP_ERS
OP_FLU

+
+
+
+
+
+
+

OP_END,
OP_END,
OP_END,
OP_END,
QP_END,
OP_END,
OP_END,

SEQ 54

!Abort command
!Access command
'Available command
!Compare controller data command
!Compare host data command
‘Erase command
'Flush command

Page

11=Jul=1983 16:04:41

RC25 FORMATTER LIBRARY MODULE

6-Jul=-1983 11:33:38

FORMATTER DEFINED LITERALS

PNFN

EOP_GUS = OP_GUS + OP_END,
EOP_GNL = OP_ONL + OP_END,
EOP_RD
= OP_RD + OP_ERD,

PRFE FE FR PR PR PR PN
IRPN
P
PR PR PR PR FETR YR TR FE PR
PRTR
I AT PR
I E T A ETE

i byte sizes beginning
: of the command

S$Z_GDS
SZ_ESP
SZ_ELP
SZ_RED
SZ_SED
SZ_ABT

!Maintenance write command
'Serious exception

at text+0

envelope.

= 12,
= 40,
= 48,
= 28,
= 28,
= 12,

!Get dust status size
!Execute supplied program size
!Execute local program size
!Receive data size
'Send data size
'Abort program size

MSCP Command message envelope

of the command

s2.SCC = 32,

i byte sizes begwnnln
.-

at text+0

enve ope.

!Set Controller characteristics
!0n=line command

SZ-ONL = 36,

The following are the expected number of bytes

in a commands

end

packet

transmitted by the

: communications mechanism to the host.

MR TR M

M E A

'Write command
!Maintenance read command

! Dup Command message envelope

A
R

!Set controller characteristics command
!Set unit characteristics command

‘e

E M E M E XX

'Replace command

EOP_SCC = OP_SC( + OPZEND,
EOP_SUC = OP_SUC + OPZEND,
EOP_WR= OP_UR + OP_ERD,
EOP_MRD = OP_MRD + OP_END,
EOP_MWR = OP_MWR + OP_END,
EOP_SEX = OP_SEX ¢+ OP_END,

DUP command end message sizes

ESZ_GDS =
ESZ_ESP =
ESZ_ELP =
ESZ_RED =
ES2_SED =
§SZ ABT =

XDECIMAL
XDECIMAL
XDECIMAL
XDECIMAL
XDECIMAL
XDECIMAL

‘48°,
'48°,
‘48°',
'48°,
'48°',
'48°,

'Get dust status end packet size
'Execute supplied prog end packet size
'Execute local prog end packet size
!Receive data end
packet size
!Send data end packet size
'Abort program end packet size

g MSCP command end message sizes
ESZ SCC = XDECIMAL

'48°,

ESZ_ONL = XDECIMAL '48°;

!Set controller characteristics
'0On Lline command

SEQ 55

SPIDERSUSERS: CNEALE .AZTECICZRCHO. R16 2 (4)

'Read command

EOP_RPL = OP_RPL + OP END.

VAX-11 Bliss=16 V3=555

!Get command status command
'Get unit status command
'Online command

EOP_GCS = OP_GCS + OP_END,

ARA

11=Jul=1983 16:04:41
6-Jul-1983 11:33:38

Xsbttl 'FIELD DECLARATIONS'
tield
'+

: Definitions:

ISD_FIELD = Initialization Sequence Data_field

ISRD_ = Initialization Sequence Read = 0

;

ISWRT_ = Initialization Sequence Write = 1

SIR_ = Step One Read

;

S1W_ = Step One Write

etc.

]

EISD_FIELD =
set

referance declarations.

R
R

AR E

EEEEE

M E E

E T
NR
I

i Miscellanious status register field
;

RC_ALL = [0, 16, 0]

'RC25S word access

ISR_ALL = [0, 16, 0],
ISW_ALL = [0, 16, 0],

!Initialize sequence read word
!Initialize sequence write word

ERR_BIT = (15, 1, 03,
STP_FIELD = £11, 4,

SA &0 = [0,
1, 0],
ERR_CODE = {0, 11, 01,

iError bit

01,

iALL step bit

fields

'Status register GO bit
'SA register fatal error code

g Step one read SA register field reference
SIR_STEP = [11, 1, 01,

iStep one step bit

STRZRSvD = £0,"6, 01,

iReserved field

SIR_Nv
SIR_08
SIR_DI
S1R_0D
SIR_MP

=
=
=
=
=

[10, 1, 0],
[9, 1, 0],
[8, 1, 0],
(7, 7, 01,
[6, 1, 0],

!No host inter vec settable adrs
!22-bit addressing support
'Enhanced diag implementation
!Port allows odd host address
'Port supports address mapping

g Step one write SA register field reference
S1Ww_WR = (14,

1, 03,

SIWZCRING = £11, 3,703,
SIW_RRING = [8, 3,

0],

SIw_IE = [7, 1, 03,
STW_VADR = £o. 7,703,

SEQ 56

Page 10
VAX-11 Bliss=16 V3=555
SPIDERSUSERS
: (NEALE .AZTECICZRCHO.R16 ;2 (5)

PRYR

TR IR PR N

PR PRIR
FETR YR

YNIR YR TR TR

R TR

FE TRLA LR XA LA LI

N P

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS

!Diag wrap around

iNumber of C-ring slots 'pwrs of 2°
!Number of R-ring slots 'pwrs of 2°'

'Init Sequence interrupt request
'Interrupt vector address

FIELD DECLARATIONS

ek
b e
b
d e
b
b
b o

[elelqlelolelelolel
)

[V IV IV YV IV, [V LV, IV, 1V, ]V, ]

6=Jul=-1983 11:33:38

11=Jul=1983 16:06:41

; Step two read SA register field reference
SZR STEP = [12, 1, 0],

!Step two step bit

S2R_WR = [6, 1, 0],

!Echoed bit 14 from step one write

S2RTPTYP = [8, 3, 0],
SZR_BIT? = [7, 1, 0],

S2R_CRING = [3, 3, 0],
SZR
_RRING = [0, 3, 0],

'Port type number
'Echoed IE bit from step one write

!Echoed bits 3-5 from step one write

'Echoed bits 0-2 from step one write

iStep two write SA register field reference
SZH LRSASE = [0 16, 0],
sew_Pl
= [0, 1, 0],

'Ring base lower address
!Adapter purge interrupt request

: Step three read SA register field reference
S3R_STEP = [13, 1, 0],

!Step three step bit

S3R_IE = (7, i.762,

‘Echoed IE bit from step one write

SSR RSVD = (8, 3,

0],

SSR VADR
= (0,7, 01,
:

SBU HRBASE = [0 15, 0],
:

'Reserved

'!Echoed VADR from step one write

Step three write SA register field reference

SSU PP= [15, 1, 0],

!Purge & Poll test request

'Ring base high address

Step four read SA register field reference

R
E
A
A
R
R

S4R_STEP = [14, 1, 01,

S4R_RSVD = (8, 3, 0],
SGR_MOD = [4, &, 0],
54R VER = [0, 4, 01,

!Step four step bit

!Reserved
'Encoded controller indentification
‘Mod 16 value of u=-code version

: Step four write SA register field reference
Sku RSVD
= (8,

8, 0]

S4W_BURST = (é. 6,

03,

SW_LF = [1, 1, Oj.
S4wW_GO = [0, 1, 0]

'Reserved

!Max number longwords per NPR xfer

‘Last fail request
'Go bit

580 57 I

SPIDERSUSERS:(NEALE.AZTECJCZRCHO.I16.$"3)
VAX=11 Bliss=16 V3=555

PR PR P PR

PR FEPR YR

A IR I

PRI

YR T EN

PRTR FE PR PR LR TR XN ¥

RC25 FORMATTER LIBRARY MODULE

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS
'e

! field declaration to define the interrupt
;

indicator and purge words of the communications

area.

HDR_FIELD =
set

;

Header Word Ringbase =4

Be Ve Vo

%000

9¢ 08¢

8, 9500

RESERVED = [0, 0, 16, 01,
; Header Word Ringbase -3

RSVD = (1,

0, 8, 0]

ADP_ch= £1,°8,78,702.
g Header Word Ringbase =2

CMD_INT = [2, 0, 16, 01,
% Header Word Ringbase -1
RSP_INT = [3, 0, 16, 03
tes,

VAX=11 Bliss=16 V3=555

SEQ 58

SPIDERSUSERS: [NEALE.AZTECICZRCHO.R16; 2 (6)

;

the send and receive ring descriptors.

DSC_FIELD =
?Qt

; Low order envelope address

EO_ENSAD = (0, 0, 16, 01,
; High order 18 bit unibus or Qbus address

fil_ENSAD = (1, 0, 2, 01,

FEAPR P FI
FEA TR
A

é Q_Bus extention address
QB_EXT =01, 2, 4, 01,
;

Reserver field

QSRSVD = [1, 6, 8, 01,

A
[T JETITEIEITEIEYTEIE

11=Jul=1983 16:04:
6~Jul-1983 11:33:

! Field declaration
to defirec the fields within

A T NN FI NI FI KN NI X

I NI X

N XN P

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS

;

Flag bit

fLAG_BIY = [1, 164, 1, 0],
; Ownership bit

OwWN_BIT = [1, 15, 1, 0]
tes,

VAX=-11 Bliss=16 V3=555

SEO 59

SPIDERSUSERS: (NEALE .AZTECICZRCHO. R16 2 (7)

4:41

:33:38

VAX=11 Bliss=16 V3=555

‘e

! Field declaration to define the fields within
message en velope buffers.

ENV_FIELD =
set

% UQ Port envelope header field .‘eclaration
MSG_LENGTH = [0. 0, 16, 03,
CREDITS = [1, 0, 4, 0],

MSG_TYPE = €1, 4, 4, 0],

coun 1D = €1, 8, 8, 0],

!Message length
‘Credits
!Message type

!Connection ID

i DUP/MSCP command and response envelope header
: field declaration

CMD_LREF = [2, 0. 16, 01,

CMDTMHREF = (3. 0. 16. 03,

UNIT NUM = [4, 0, 16, 0],

!Command Ref number low word
!Command Ref number high word

'Unit selection field

ENDCODE = L6, 0, 8, 03,

‘Unused low word
'Unused high word
!End code message type
'Opcode
!Opcode

STATUS = £7,°0, 16, 0]
STA _CODE = £7.70, 5. 03.

'Reserved
!Status
!Status code

UN-HUSED = [5; 0, 16, 01
OPCODE = (6, 0,

ESFLAG = [6, 8, 8, 0],
RSVD = [6, 8, 8, 0],

MODIFIER = [7, 0, 16, 0],

'End message flag field
!Modifier

P P
PNP
PR Y PN
S
PR YR
PRPR
PN
N
PN TN TN
TN P PN
N PR PR TN
L

Tee

! DUP command and response envelope parameter
!

field declarations

i ABORT command and response envelope parameter
! field declartion

% No parameters declared
!

response FlELD
No par ameters declared

‘e

I GET DUST STATUS command and response envelope

; parameter field declaration

COMMAND FIELD
: No parameters declared
response FIELD

PLO_EXT = 8, 0, 16, 01,

SEO 60
14

SPIDERSUSERS: (NEALE .AZTECICZRCHO. R16 2 (8)

TN PN PN

N P
P

P P
PR PRPR
TN PR PRPR YR PRPRYR

IRYA
LR IR IR LA LN EN

R TN X

RC2S FORMATTER L IBRARY MODULE
FIELD DECLARATIONS

!Program Extension low word

11=Jul=1983 16:04:41

6-Jul=1983 11:33:38

AR A

'Fla field bit 1
'Fla field bit 2
'Flag field bit 3

)

ags
'Flag field bit 0

!Progress indicator low word

!Progress indicator high word

'Time out

! EXECUTE SUPPLIED PROGRAM command and
; envelope parameter field declartion
:

response

COMMAND FIELD

BLO CNT = (8,
BHIZCNT = [9,
BPATLO = (10,
8PATHI = (11,

0,
0.
0.
0.

16, 0],
16, 01,
16. 03,
2, 0]

!Byte count low word
'B8yte count high word
'‘Buffer physical adrs bits <0-15>

!Buffer physical adrs bits <16=17>

QBUS_EXT = [11,72, 4, 03
RSV = C11, 6., 2, 03,

'Q_bus extention

RsVD = C 12, 0. 16, 03,

!These next four words are not

UBA_CHAN = (11,78, 8,

Rsvl = [ 13, 0. 16. 03,

‘Reserved field
'Unibus adaptor channel number
;1n the UQ port implementation.

gsvs = [ 15. 0, 16, 03,
!

These next field definitions are the same
! as above except they are for the overlay
: buffer descrvgtors
To make Life easy for
'LL use t e same names and just prefix
i0 the names with a $ for uniqueness.

$RSV =
SUBA_(

$RSVD
$RSV1

$RSV2

§Rsv3

EHX

$SBPA H]
$QBUS_E

[L,
[ o 1oe [ane] L A-N.-.N "nn

€16, 0, 16, 01,

$8PA_LO

'Buffer physical adrs bits <0-15>
'Buffer physical adrs bits <16-17>
'Q_bus extention

'Reserved field
'‘Unibus adaptor channel number

‘These next fcur words are not
:1n the UQ port implementation.

response fIELD

' No parameters declared
‘e

! EXECUTE LOCAL PROGRAM command and response

: parameter field declartion

TE IR

VAX=11 Bliss=16 V3=555

;

COMMAND FIELD
N_1

[8, 0, 16, 01,
=[9, 0, 16, 0],

'Program name wo:~d 0
'Program name word 1

SEO 61
15

SPIDERSUSERS: (NEALE .AZTECICZRCHO. R16 2 (8)

::{ogram Extension high word

8
e
b
-

&
*

[=l=l=
ONONOTM
s s v OOCLILILIO

b
b OO
—babe » s« OO
o

arareemee

M0N0 000
—
b by
&
®
&
O
0
.
NN-=O
s & v
b NOO0O
SO v v O
OO0 »

FLG_B1
FLG_B2
FLG_B3
PLO_IND
PHI_IND
TIM_OUT

nununu

FSLAGS

FLG_BO

nonnnx

AR AR T E AT AR R

TR TR A

A PR TR YR

TR PR RN TR R TR TR

TR E R L T 2] [

Y"EYREIEIEIEIETE TR IR IR

PRYN FE YR PR Y Y EN Y3 1

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS
PHI_EXT =

K
RC25 FORMATTER LIBRARY MODULE

11=Jul-1983 16:0 4:41

PN_2 = [10, 0, 16, OI.

'Program name word 2

6=Jul=-1983 11:3

TIME our =09, 6.

16 OJ

‘e

i SEND DATA/RECEIVE DATA command and response

A TR
PR

: parameter field declartion

l
l

COMMAND FIELD
byte count, buffer descriptor are the same
as Execute Supplied Program parameters

response fIELD

byte count is the same
i as Execute Supplied Program parameters

E R AR AR E EFE M E E

! MSCP command and response envelope parameter
! field declarations
e

SET CONTROLLER CHARACTERISTICS command and response

: parameter field declartion
i

COMMAND FIELD

MSCP_VER= [ 8, 0, 16 03

CTL_PLAGS= € 9.

'MSCP version
!Controller flags
'Host time out value
'Reserved

wonnun

\=/

HOST Tov =
L ad

T E M E T

AR M E T E XS Y

I R

PRTR T

TR TR PR PR

14+¢4

!Time and Date word 0

!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

RESPONSE FIELD

IMSCP_VER = [ 8, 0

16 03

CHVRSN = [ 11, 8. 8.
CID_0 = C 12,70, 16,
€Ip-1 = [ 13, 0. 16"
CID_2 =L 14, 0
16,
cI10°3 = € 15, 5, 16.

03,
01.
&3,
0],
03,

"cTL_FLAGS= [ 9, 0,
03,
cTL_Yov = € 10, 0, 16 o
CSVRSN = [ 11,70,°8, 01,°

SEO 62
16

SPIDERSUSERS: [NEALE .AZTECICZRCHO.R16; 2 (8)

!Version
'Time out
'Flags

FLAGS= [9. 8. 8. oi. 3.
l

3:38

VAX=-11 Bliss=16 V3=555

response FIELD

version = [8,

TNYR

IR PRIE TN FN PR TR ER TR XN PN ¥

FIELD DECLARATIONS

!Same as cmd field
!Same as cmd field
!Cntlr t1me out value
'Cntlr S/W, F/W, u~code rev num
icntlr H/W rev _num
!Cntlr identifier wrd 0

!Cntlr identifier wrd 1
!Cntlr identifier wrd 2
!Cntlr identifier wrd 3

11=Jul=1983 16:04:41

RC2S FORMATTER LIBRARY MODULE

6=Jul=1983 11:33:38

R E I EE

T E

ST I

ST I TR PR PR PR PR YN TR NN P T YR TN XN X LN TN Y RN

N TN Y

FIELD DECLARATIONS

VAX=-11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE.AZTECICZRCHO.R16; 2 (8)

! ONLINE COMMAND command and response
: parameter field declartion
]

;

COMMAND FIELD

RSVSD= [ 8,

UNT_FLAGS
= t ‘9, 0,

RSVBSO = [ 10, 0, 16. 6J.

RSvDS1 = C 11, 0, 16, 0],
RSVDS$2 = [ 12, 0, 16, 0.
RSvDS3 = [ 13, 0, 16, 05,
RSVD$4 = [ 14, 0, 16, 0],
RSVDSS = [ 15, 0, 16, 0],
R
0OP_LO = [ 16, 0, 16,
.
DDPTHI = [ 17, 0, 16,
SHADOW UNIT = C 18, 0, 16, 0],
COPY SPEED = L[ 19, 0, 16, 01,
E

'Reserved

iunit flag field

iReserved field

!Reserved field
!Reserved field
'Reserved field
'Reserved field
'Reserved field
'Device dependent parameter
!Device dependent parameter
tShadow unit
!Copy speed

RESPONSE FIELD

MUNT _CODE = C 8, 0, 16, 01,
UNT FLAGS = [ 9, 0, 16, 01,

'Multi-unit code
!Same as cmd field

RSVD$1 = [ 11, 0, 16, 0],
vuip_0 = C 12, 0, 16, 0],
vip_1 = (C 13, 0, 16, 0],
vip_2 = [ 14, 0, 16, 01,
vip>3 =
15, 0, 16, 01,
MmTib_to = L 16, 0, 16, 0].
MTID Kl = [ 17, 0, 16, 0],

!Same as cmd field
'Unit ident word 0
'Unit ident word 1
'Unit ident word 2
‘Unit ident word 3
'Media type ident word 0
'Media type ident word

SHA_STATE = [ 19, 0, 16,

'Shadow state

RsvDSO = [ 10, 0, 16, 63.

SHADDW UNIT = [ 15. 0, 16, 01,

usz_Lo = [ 20, 0, 16, 03,

UsZ_Hl = [ 21, 0, 16, 0],
VSN_LO = [ 22, 0, 16, 0],
VSN_HI = [ 23, 0, 16, 0]

01,

SEO 63

!Same as cmd field

!Same as cmd

!Unit size lo word

'Unit size hi word
'Volume serial num lo word
'Volume serial num hi word

:04:41

RC25 FORMATTER LIBRARY MODULE

:33:38

FIELD DECLARATIONS

SPIDERSUSERS: [NEALE .AZTECICZRCHO.R16; 2 (9)

VAX=-11 Bliss=16 V3=555

; Send Receive command buffer field definition

L]
T

IR
RN

MSG_TYP
MSG_TXT

~eee

set

O—=O

RECB_FIELD =

MSG_NUM
tes,

; Outstanding command buffer field declarations

tes:

dbd
e

OO0

=00
- OO

CO—=O

&
&
%

LI,

mlmlmlm]

ENV_ADR

CMD_WRD

RECCFLG
CMD_REF

-~ OO0

OUTSFIELD =
set

'Command word ref ‘‘word 0 of slot’’
‘Command received indicator flag
‘Command reference field

'Envelope adrs field

SEO 64

T E

IR XA

NE TE

I A

TR YRPR

PRTR

R TR

N FE

TR R

LRT YR

XNPR X LK FE TR PN YA T

RC25 FORMATTER LIBRARY MODULE
L INKAGE DELCARATIONS
832;

Xsbttl °'LINKAGE DELCARATIONS'

0843
0844
8322

Llinkage
!
; Call_UnkStyp

0847
0848
0849
0850

!
!
!
'

0856
0857
0858
0859
0860
0861
0862
0863

!
!
!

CALL_LNKSTYP = call (standard),
!

0865
0866

! Int_Lnk$typ
.
!

0851
0852
0853
0854
0855

0864

0867
0868
8393
0871
0872
0873
0874
0875
0876
0877
0878
0879

This spcifies that the PDP=11 JSR and RTS instructions
are used by the compiled code, and that the parameters
passed using
standard parameters Llocations are
with
register 5 (RS5) as the argument pointer with the register

' usage as follows:
!
! Register
Usage
! cecemeee
eseee
]
.
!
0
Value return register, non-preserved

!
!
!

1-4
5
6
7

Preserved
Argument pointer
Stack pointer
Program counter

! Specifies that a routine will be called only by a PDP-11
! hardware
or software interrupt and will be returned via
; the RTI instruction. Register usage is as follows:
! Register
Default usage
| meeeeeee
'
0=5
Preserved
!6
Stack pointer
!
’
Program pointer
!
!
)
INT_LNKSTYP = interrupt (standard);

COMMAND QUA!
IF IERS

BLISS /PDP11/LIST/LIBRARY (ZRCHO.R16
Run Time:

Elapsed Time:

Memory Used:

11=Jul=1983 16:04:41
6=Jul=-1983 11:33:38

00:06.0

00:07.6

51 pages

Library Precompilation Complete

SEQ 65

Page 19
VAX=11 Bliss=16 V3-555
O.R16;2 (10)
SERS
CNEALE .AZTECICZRCH
SPID:ERSU

CZRCH RC2S DISK FORMATTER
VRNI YR PR TR PR PN ¥

?sbttl 'PROGRAM HEADER'

§<eLr /LOWERCASE_KEY>
'Define RC25 Formatter Library

require 'BLSMAC.REQ’;

‘Define Bliss Macro Require file

i The psect named code or $code$’ is redefinded here
! to be called ‘‘aa$code’’.
This is done to force the TKB
! Llinker to place the
roarams header information starting
! at absolute address
psect

code = aa$code;

!Indicates number of test in Diag

WA =O VNS WO
=O 00NV
W
NN

N
N
g
N
N
e
e
R
T S
G
S
T N
U
[

VIS WA = OV

)
T
T
.
g

R
Y E IR

Library *CZRCHO';

VI A A VA A M A T A A AT T
T
T T
i
i
v a v
OS85 B BN B 2 W WA WN N W N W N W) N NN PRI NI NI NI NI N = b b b b cod b b b b

PR PR TR

PRFE PR YA FRETE TR TR TR FR PR TR

g Pretty Declarations

Literal
DSSNBR_OF _TESTS = 1;

The structure of a diagnostic program ma‘ contain any or all
of
the
ten optional
sections.
But five of the optional sections reguire 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 reflect usage (i.e., any,all,or none).
The following coding possibilities exist:
POINTER (BGNRPT,BGNSW,BGNSF
T ,BGNAU,BGNDU,ERRTBL ,BGNSETUP)
(or any subset of the args)
POINTER (ALL)

; ALl provides pointers for all five

sections

POINTER (NONE)

None indicates to supervisor that no

pointers are required.
this is the default

No pointers are optional using bliss. Make sure the followin
sections of codc are in place (in the correct skels),even i
the sections are blank.
ARGUMENT

FUNCTION

RPT

REPORT CODE

SOF TWARE TABLE

SEO 66

SPIDERSUSERS: CNEALE .AZTECICZRCH2. 816 2 (1)

BEGIN

IEEEEEETE
AR E I E AR
T E I E T

:37

VAX=11 Bliss=16 Vv3=555

ENVIRONHENT (NOEIS)

R R E

T E T E

:07

MODULE CZRCHZ (ZYITLE *CZRCH RC25 DISK FORMATTER'
IDENT = *REV A PATCH 00°,
ADDRESSING_MODE (RELATIVE) ,

E
(R

11=Jul-

CZRCH2
REV A PATCH 00
:

1546

1547

CZRCH RC25 DISK FORMATTER
PROGRAM HEADER
!

SFT

11-Jul=1983 16:05:07
7=Jul-1983 08:21:37

SOFTWARE TABLE QUESTIONS

ADD CODE

1548
1549
}gg?

!
!
:

:
:
:
:
:

1552
1553
1554
1555
1556

POINTER (ALL);
!+
.
.
! The program header section contains
general
information which des! cribes
the major characteristics
of the diagnostic program.
This in! cludes, the program name, and revision and patch-order
levels.
The

}gg%

; vide Load medium protection when necessary.

1557
1558
1559
1560
1561

1564

DROP CODE
ERROR TABLE
ASSEMBLED P~TABLES

! header
also provides
space
for an event flag register, and for the
! storage of
pointers, through which the supervisor ma{ 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
! it it is an XXDP+ bootable device.
This enables the supervisor to pro-

HEADER (Rascii'CZRCH *, Xascii'A', Xascii'0', 1200, 0. PRIOO);

SEQ 67

VAX=11 Bliss=16 V3=555
Page
2
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16;2 (1)

:
:
:

:
:
:
:
:

bu
TBL
SETUP

D
CZRCHZ
Ve ®e 8s 0080 %0 %00,

REV A PATCH 00

CZRCH RC25 DISK FORM/ “TER

DISPATCH TABLE

11=Jul-1983 16:05:07

7=Jul=-1983 08:21:37

SPIDERSUSERS: [NEALE .AZTECICZRCH2. 816 2 (2) 3

VAX=-11 Bliss=16 V3-555

Zsbttl *DISPATCH TABLE'

i The dispatch table section contains address pointers
i tests

contained within the diagnostic program.

! the coding of only the dispatch macro.
DISPAYCH (DSSNBR_OF _TESTS);

ERRTBL;

the

SEO 68

various

This section requires

'Define Supervisor Error table storage

E
CZRCHZ

REV A PATCH 00

1573
1574
1575
1576
1577
1578
1579
1580
1581
1582

CZRCH RC25 DISK FORMATTER
DEFAULT HARDWARE P-TABLE

11-Jul-1983
7=-Jul=-1983

6:05:07
8:21:37

VAX=11 Bliss=16 V3=555
SPIDERSUSERS:[NEALE .AZTECICZRCHZ. 816 .

!sbttl 'DEFAULT HARDWARE P-TABLE'

i the default hardware P-Table contains default values of
i the test-device parameters. The structure of this table
'is

; and

identical to

is used

as a

the structure of the hardware P-Tables,

‘'‘template’’ for building the P-Tables.

BGNHW (DFPTBL);

Lobal

HW_IP_ADRS : word initial (X0'172150'),
HW_VETTOR : word initial (%0'154'),
HW_BR_LEVEL : word initial (5),
HW_UNTT_NO: word initial (0);

ENDHW;

!Define RC25 Controler IP reg

'Define R(25 interrupt vector adddrs
!Define RC25 bus request level
!Define RC25 unit no. to format
a

F
CZRCH2

REV A PATCH 00

1589
1590

CZRCH RC25 DISK FORMATTER
SOF TWARE P-TABLE

11-Jul=1983 1 6:05:07
7=-Jul=1983 0 8:21:

VAX=11 Bliss=16 V3=-555

SPIDERSUSERS: [NEALE.AZTECICZRCHZ. 816 2 (4)

!sbttl *SOF TWARE P-TABLE"

i The software table contains various data used by the
i program as operational parameters. These parameters are
I set up at assembly time and may be varied by the operator
: at run time,

BGNSH (SFPTBL);
global

SW_UNATT : word initial (1);

ENDSW;

SEO 70

'Format in unattended refmt mode

CIRCH?

N TN YN PR

N PR FE X R P

REV A PATCH 00
1602

1603

CZRCH RC25 DISK FORMATTER

PROTECTION TABLE
Asbttl

11=Jul~-1983
7-Jul=-1983

'PROTECTION TABLE'

This table is used b‘ the runtime
services to protect the Load media.
1st arg =

2nd arg =
Srd arg =

Offset

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

BGNPROY (=1, =1, =1);
ENDPROT;

into P_Table for csr address

VAX=11 Bliss=16 V3-555

SEO 71

SPIDERSUSERS: [NEALE .AZTECICZR(H2.B16; 2 (5)

CZRCH2

W NN WANINOANINININI
NI NININ) = —b acd b b b
W N=20O 000 NO VNN =D 000N
WV

ad
e
e
ad
i o
b
i
b
e
d o
d
b
ed e
d
b

ooooororOrOrOrOONONOONOOONOMOMONOM

®o Bo B 8o ®s We B0 Go Ve WsBeBs0eBoWoBs 8o 0 O ©oUs®e V¢ s 8e8s0sVa 8o 8eV0 ¢ VeVs Ve WeVe8sGs Vs VWeWes®ovsa,

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul-1983 16:05:
7=Jul=1983 08:21:

3sbttl *MODULE DECLARATIONS®
‘e

!
:
!
!
;

Within BLSMAC.REQ the psect names, plit global and own,
are redefined to be aaScode.
This is done to force the
tkb
Llinker
to
Link
_the header information starting at
at absolute address 2000.
Redefine these psect names
back to their original names for house keeping purposes.

i
i
i

Also change the attributes for the psect 'Elobal” so that
gbggal data will not be linked starting at absolute address

psect

plit = $plit$( ?lobag).
global = $glob$(nowrite, noexecute, global, concatenate),
own = $own$;

‘¢

Structure declarations used within this

! module.

strusture
]

! R(25
register accessing structure.
This
! structure allows RC25 register accessing
! to be transportable between the PDP-11 and
; VAX Diagnostic Supervisors.

| This
1

:
!

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

local
RCSS_REG;

RCSS_REG = .(RC25 + Xupval*0)<0, Zbpval, 0>;
RCSS_REG
end
<P,

E>;

SEQ 72
Page
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTECICZR(CH2.816 :2 (6)

1659
1660

11-Jul- 983 16:05:07
7=Jul=1983 08:21:

CZRCH RC25 DISK FORMATTER
GLOBAL DATA SECTION

VAX-11 Bliss~16 Vv3=555

i The global data section contains data that are used
in more than one test or module.

glob?l

2 Communication area Declarations
COM_AREA
: blockvector [REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ, 2, wordl,

HEAD_AREA
: ref block [4, word] field (HDRTFIELD),

PNPR IR

RECEIVE RING: ref blockvector CREC ALLOCATE, 2. word] field (DSC FIELD),
SEND_RING : ref blockvector [SND_ALCOCATE. 2. word] field (DSC JFIELD),

P P

REC_ENVELOPE: blockvector CREC_ALLOCATE, RB_SIZE + 2, word) field (ENV FIELD),
SND_ ENVELOPE blockvector [SND_ALLOCATE, SB_SIZE + 2, word] field (ENV_FIELD),

PR I

FCT_BUF : block (256, word],
REC BUF : block [RECB SI1ZE, word) field (RECB_FIELD),

PR P

PN PR

SND"BUF : vector CSNDB_SIZE. word],
OUTSSTD BUF : blockvector [REC ALLOCATE 2., word) field (OUTSFIELD),
RET_ENSAD : ref block [RB_SIZETM+ 2, word) field (ENV_FIELD);

PRT

glob?l bind

g Diagnostic supervisor printing ascii format strings.

FMT1 = uplit (Rasciz'INXT'),
!Print one ascii strtng pointer
FMT2 = uplit (Rasci2’ ININYAINITIALIZING RC25 CONTROLLER ADDRESS:ZSYO6IA(0)IN'),

M E N

FMT3 = uplit (!asctz'ZN!ALOGICAL UNIT ID2XA(D)XSIAPHYSICAL UNIT ID2YA(D)YSITAFORMAT ABORTED®),
FMT4 = uplit (Xasciz'INXAMICRO CODES MOD 16 VERSION NUMBER =XST02XA(0)IN'),

I E A

FMT5 = uplit (Xasciz'XNXABRINGING ONLINE: LOGICAL UNIT ID2YA(D) XSTAPHYSICAL UNIT !DZ!A(D)!N ),

ME T E

FMT6 = uplit (Rasciz'INZASFTLERR- NON-EXISTENT RC25 CONTROLLER ADDRESS XO06XA(0)XIN'),
FMT7
= uplit (Xasciz'XAFORMATTING PHYSICAL UNIT XD2XA(D)IN'
PID FMT = upl!t (lasc1z'lNlAFORHATTER PROGRESSING:
PID HI=
ZOOIA(O)ISXSIAPID LO=X06%XA(0)"*),

CRLF = uplit (Xasciz'IN'

(Zascrz'!NZN!N1N1NZN1NIN ),

XCRLF = yplit

Ring base address declaration

;
AR E

QINGeAse = COM_AREA [REC_BASE],

'
3

R R

HSGADR REC_BUF [MSG_ TM>1];

glob?L

SNNNSNNNYN
- b b wd wd =
VIS
N =OO

T
E

AR
E R I

g Miscellaneous data declarations
DATETXT : vector [12 biteJ.
FLG_WRD: bitvector (16

'Operator data input storage
'‘Global flag word

NXT_CRN
: byte,

!Stores next cmd ref number

NEX_FLAG: word,
OVSA : uord.

RET_ STATUS : word initial (X0°'000000*),
LUN": word,
PID_ SAVE : vector [2, word],

SEQ 73

SPIDERSUSERS:[NEALE .AZTECICZRCH2.B16; 2 (7)

1sbttl 'GLOBAL DATA SECTION®
i

YRIE YRR IR SN TR

YRLN TN ¥

CZRCHZ
REV A PATCH 00

!Non-existent RC25 register flag
'Overlay section start1n adrs

!Saves various return status codes
!Stores logical unit number being formatted
'Saves proces indicator word

SFQ 74

Page
VAX=-11 Bliss=16 V3-555
16;2 (7)
RS
.AZTECICZRCH2.B
RSUSE
: [NEALE
SPIDE

CZRCH RC25 DISK FORMATTER
CZRCH2
REV A PATCH 00 GLOBAL DATA SECTION

11=Jul=1983 16:05:07
7=Jul=-1983 08:21:37

:
:

1716
};}g

NSD_SLOT : word,
?RD_SLOT : word,

!Next send Descriptor slot
!Next receive Descriptor slot

;

};}g

g Hardware P_Table storage declarations

;

1721

RC2S_ADDR : ref RC25 field (ISD_FIELD),

'Controller register access structure

;

1723

BR_CEVEL : word,

'Bus request level storage

:
:

1722

vEC_ADDR : word,

1724
};%Z

1727

| Dup Protocol data structures

};g?

;Reserved field mask structure declaration

:
:

;

:
:
:
:

1728
1729

'Unit number to format storage
iStores P_Table base address

!
'+

1732

RSVD_STRUCT : vector [4., word) preset (

1733
1734
1735
};gg

1738

UNTT_NO : word,
PTBL_PTR : ref vector C4, word]l,

'Interrupt vector address storage

T0)
1]
[2]
€3]

= Xx'002FF°,
= ¥x*0000°,
= %¥x'0700°,
= Xx'07FF*),

IReserved SA reg

fields definitions

'Step one rsvd field
!Step two rsvd field
'Step three rsvd field
!Step four rsvd & ucode field

};28

1741

;

};2§

g Step one read SA register field declaration

1746

£BLKO, WRDO, ERR_BIT] = 0,

Error bit

;

1083

[BLKO, WRDO, SIRZRSVDI= fx'3f',

iReserved tield

:
:
:
:
:
:

};2%

1747
1748
1749
1750
1751
1752

; Init Sequence Data_Structure declaration

lSD_?TRUCT : blockvector L[4, 2, word) field (ISD_FIELD) preset (

[BLKO,
[(BLKO,
[BLKO,
[BLKO,
[(BLKO,
[BLKO,

WRDO,
WRDO,
WRDO,
WRDO,
WRDO,
WRDO,

STP_FIELD] = %b'0001°,
SIR_NV] = 0,
SIR_QB] = 1,
SIR_DI] = 1,
SIR_OD] = 1,
STRZMP] = 1

)

IALL step bit fields
!No host inter vec settable adrs
!Mask out
)
'Enhanced diag implementation
!Mask out
Mask out

;

};gg

g Step one write SA register field declaration

1757

fBLKO, WRD1, ERR_BIT] = 1,

'Error bit

:
:

1759
1760

[BLKO, WRD1, SIW_CRING]= SND_SIZ,
[BLKO, WRD1, SIW_RRING]= REC_SIZ,

!Number of Send-ring slots ‘pwrs of 2°
!Number of Receive-ring slots ‘pwrs of 2'

EBLKO. WRD1, S1W_VADR]I= X0°'33’,

!Interrupt vector address

1758
1761

};g%

[BLKO, WRD1, SIW_WR]= 0,

[BLKO, WRD1, S1W_IE)= O,

;;gg

g Step two read SA register field declaration

1766

{BLK1, WRDQ, ERR_BIT] = 0,

:
:
:
:
:
:

1767
1768
1769
1770
177
1772

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

WRDO,
WRDO,
WRDO,
WRDO,
WRDO,
WRDO,

STP_FIELD] = %b'0010°,
S2R_PTYP]= 0,
S2R_BIT7]= 1,
S2R_WR]= 0,
S2R_CRING]= SND_SIZ,
S2R_RRING]= RE(C_SIZ,

!Diag wrap around

'Init Sequence interrupt request

'Error bit

'AlLL step bit fields
!Port type number
.
‘Echoed IE bit from step one write
!Echoed bit 14 from step one write
'Echoed bits 3-5 from step one write
'Echoed bits 0-2 from step one write

CZRCHZ

[ A

A I

YR TR

PR TR PR

PRI TR IR

PRPR T

TRIR PR RN PR
PR PR YRYN TN FI LR FI TN ¥

REV A PATCH 00

1773
1774
1775

VAX=11 Bliss=16 V3-555

SPIDERSUSERS:(NEALE .AZTECICZRCHZ. 816 2 (7)

CZRCH RC25 DISK FORMATTER

GLOBAL DATA SECTION

g Step two write SA register field declaration
teLx1. WRD1, S2W_LRBASE]= RINGBASE,

'Ring base lower address

NOTE:

The adapter purge interrupt is loaded within
the bgninit code due to the inabilit
to field
> from the ringbase adrs.
select bits <1
!Adapter purge interrupt request
(eLk1, WRD1,

séu 3112 0.

read SA register field declaration

Step

'Error bit
‘ALl step bit fields

[BLKZ,
(BeLke,
(eLke,
CBLK2,
GBLKZ.

ERR_BIT]
= 0,

g Step

write SA register field declaration

tBLk2,

S3w_PP]=

STP_
FIELD] ="%b' 0100°,
S3RCRSVD]= %0°'7°,
S3R_IEJ= O,
S3R_VADR]= %0°'33’,

'Reserved

!Echoed IE bit from step one write

'Echoed VADR from step one write

S3wHRBASEj 0.

EBLKZ.

!Purge & Poll test request
!Ring base high address

g Step four read SA register field declaration
CBLK3, WRDO,
(BLK3, WRDO,
[8LK3, WRDO,
[BLK3, WRDO,
FBLK3. WRDO,

ERR_BIT]
= 0,

‘Error bit
'AlLL step bit fieids

STP_FIELD] = %b°1000°,
S4RZRSVD])= %0'7',
S4R”MOD)
It

!Reserved
!Mask it out
!Mask it out

S4R_VER] = ¥x'f',

g Step four write SA register field declaration
(BLK3,
[BLK3,
[BLK3,
[8Lk3,

WRD1, S4W_RSVD]= X0°'377°,
WRD1, S4W_BURST])= 0,
WRD1, S4W_LFI= 0,
WRD1, S4W_G01= 0);

SEQ 75

!Reserved

!Max number longwords per NPR xfer

!Go bit

'Last fail request

O NN ANN) = O 000 ~NO N SN

ANININININININ)
= ad cd cd acd b ocd d

csd

b wd cnd

)

b and ol

)

CZRCHZ
REV A PAT(CH 00

SPIDERSUSERS [NEALE.AZTECICZRCHZ.B16; 2 (8)

lsbttl *GLOBAL TEXT SECTION'

! The global text section contains format statements,
! messages, and ASCI! information that are used in
! all modules.

glob?l bind

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

uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit

1827

1848

SEQ 76

VAX=11 Bliss=16 V3-555

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

!<BLF/PAGE>

(Xasciz'INYASFTLERR- UNRECOGNIZABLE ERROR CODE'),
(Xasciz'XNXASFTLERR- ENVELOPE/PACKET READ (PARITY OR TIMEOUT)'),
(Xasciz'INXASFTLERR- ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT)®),
(Xasciz'INXASFTLCRR- CONTROLLER ROM AND RAM PARITY'),
(Zasciz'INXASFTLERR- CONTROLLER RAM PARITY'),
(Xasciz'INXASFTLERR- CONTROLLER ROM PARITY'),
(Xasciz'INZASFTLERR- RING READ (PARITY OR TIHEOUT) ),
(Xasciz'INXASFTLERR= RING WRITE (PARITY OR TIMEOUT)*),
(Xasciz'INXASFTLERR- INTERRUPT MASTER'),
(Zasciz'INXASFTLERR- HOST ACCESS TIHEOUT').
(Zasciz'INIASFTLERR- CREDIT LIMIT EXCEEDED')
(Xasciz'INXASFTLERR- BUS MASTER ERROR'),
(Xasciz'INIASFTLERR- DIAGNOSTIC CONTROLLER FATAL ERROR'),
(Xasciz'XNXASFTLERR~- INSTRUCTION LOOP TIMEOUT'),
(Xasciz'INXASFTLERR- INVALID CONNECTION IDENTIFIER ),
(Xasciz'INXASFTLERR- INTERRUPT WRITE'),
(Xasciz'INXASFTLERR- MAINTENANCE READ/URITE INVALID REGION IDENTIFIER'),
(Xasciz'INXASFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER®)
(Xasciz'INXASFTLERR- CONTROLLER RAM ERROR (NON=PARITY)*"),
(Zasciz’'INIASFTLERR- INIT SEQUENCE ERROR'),
(Xasciz'INXASFTLERR- HIGH LEVEL PROTOCOL INCOMPATIBILITV ERROR'),
(Zasciz'INXASFTLERR- PURGE/POLL HARDWARE FAILURE °),
(Xasciz'XNXASFTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT)'")
)

: vector (23],

YRR

I R I R

IREE I E T E

X ETETETE

PRYR YR PR PR PR PN PN
PR RN FI TN 1Y

CZRCHZ
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

6:05:07

8:21:37

SPIDERSUSERS: LNEALE. AZTECJCZRCHZ 816; 2 (9)
VAX-11 Bliss=16 V3=55

‘ Error message structure
EHSG STRUCT uplit (

SEO 77

uplit (Xasciz' !NlAS TLERR- RESPONSE STATUS ERROR:XS')
uplit
(!asc1z'2NlASFTLERR- HOST/CONTROLLER OUT OF SEO ),
uplit (Xasciz'INXASF TLERR- REMOTE PROG NOT RUNNING'),
uplit (Xasciz'INZASFTLERR=- UNKNOWN RETURN STATUS CODE'),
uplit (Zasc iz’ INYASF TLERR- COM AREA INIT ERROR'),
uplit (Xasciz'XINXASFTLERR- PORT/HOST SYNC ERROR')
uplit (Zasc iz’ INXASF TLERR- MESSAGE LENGTH ERROR')
uplit (Xasci2'INXASFTLERR=- UNKNOWN ENDCODE RECEIV Ep*),
uplit (Xasciz'XINXASFTLERR- ADAPTOR PURGE ERROR'),
' INYASFTLERR=- UNKNOWN INTERRUPT®),
upl1t (Xasciz
uplit (Xasciz'XNYASF TLERR~- INIT SEQ STEP TIMED OUT'),
uplit (Xasciz'INXASFTLERR- INIT SEQ COMPARE ERROR'),
uplit (Xasciz'INXASFTLERR- UNEXPECTED ATTENTION END MESSAGE RECEIVED'),
uplit (Xasciz'XNXASFTLERR- UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED®),
uplit (Xasciz'INXASFTLERR- UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED®),
uplit (Xasciz'INXASFTLERR- INVALID COMMAND END MESSAGE RECEIVED®),
uplit (Xasciz'INXASFTLERR- UNKNOWN MESSAGE TYPE RECEIVED'),
uplit (Xasciz'XNXASFTLERR- OUTSTANDING COMMAND BUFFER FULL'),
uplit (Xasci2'XNXASFTLERR- OUT STANDING COMMAND BUFFER OUT OF SYNC ERROR'),
uplit (Xasciz'INXASFTLERR- UNKNOWN ME SSAGE NUHBER RECEIVED')
uplit (Xasciz"INXASFTLERR- FILE READ ERROR')
uplit (Xasciz'INXASFTLERR- PORT/CONTROLLER TIMEOUT ERROR'),
uplit (Zasc 12 XNZASFTLERR- ILLEGAL FCT FILE LENGTH')) : vector [23,
‘<bl f/page>

1877
1878

1880

CZRCH RC25 DISK FORMATTER

11-Jul=-1983

GLOBAL TEXT SECTION

7=Jul=

1983

:05:07
1:37

1883
1884
1885
1886
1887
1888

wuplit
wuplit
wuplit
uplit
wuplit
wuplit

1889
1890

oo
O
0

-—b

1891
1892
1893
1894
1895
1896
1897
1898
1900
1901
1902
1903

~=SOWOONOWVSWN=O

b
b cd
d
NIND) c=d b d d ed b

b amd

b wd wed wmd

b wod

1904
1905
1906
1907
1908
1909

SPIDERSUSERS: [NEALE. AZTECJCZRCHZ 816 2 (10)

RC STRUCTURE = ?lvt (

uplit (Xasciz' INXASFTLERR= VAX READ/WRITE ERROR ON_INTERRUPT'),

1882

SEO 78

VAX=11 Bliss=16 V3=55

!
: Sel f-detected fatal port/controller errors

1881

O 0 0000V 00000

EE I

T I

M E ET

T EE

TN PR YR

PR PRPR PR IR TR IR TN YR YRR TR TR LA LR TR LN T

CZRCH2
REV A PATCH 00

uplit (Xasciz'XINXASFTLERR- INCONSISTENCY
AT U.BFIL"),

wuplit
uplit

wuplit
uplit
wuplit
wuplit
wuplit
wuplit
uplit
wuplit
uplit
uplit
uplit
uplit
uplit
wuplit
wuplit
uplit
wuplit
uplit
wuplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit

(Xasciz'INXASFTLERR(Xasciz'INXIASFTLERR(Xasciz'ANXASFTLERR(Zasciz'INXASFTLERR(Xasciz'XNXASFTLERR(Xasci2'XNZASFTLERR~

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'),
(Xasci2®XNXASFTLERR- INCONSISTENCY AT U.ATTN'),
(Xasciz®XNXASFTLERR- INCONSISTENCY
AT U.ONLN'),
(Xasci2'XINXASFTLERR- ILLEGAL D REQUEST (U. QDRQ} *),
(%asciz'XNXASFTLERR- FENCE-POST ERROR AT PROTAB'),
(Xasciz'XNXASFTLERR- BAD PACKET DEQUEUED AT U.DONE*),
(Xasciz'INXASFTLERR- UNEXPLAINED D-PROC SUSPENSION (U..TDS)'),
(Yasciz'INXASFTLERR- DUP PACKET D-Q FAILED (XFC 34/35)°),
(Zasciz'INXASFTLERR- INCONSISTENCY AT U.HTST'),
(Xasciz'XNXASFTLERR- INCONSISTENCY AT U.SEKO'),
(Xasciz'INXASFTLERR- INCONSISTENCY AT U.CKSV'),
(Xasciz'XNXASFTLERR- D.OPCD FOUND ILLEGAL OPCODE®),
(Zasciz'XNXASFTLERR- D.CSF FOUND ILLEGAL OPCODE'),
(Xasciz'XNXASFTLERR- UNKNOWN BAD DRIVE STATUS AT D.DSTS'),
(Xasciz'AINXASFTLERR- ILLEGAL XFC EXECUTED BY DM'),
(Xasciz'ANXASFTLERR- D PICKED UP A ZERO SCB.DB'),
(Xasciz'XNXASFTLERR- INCONSISTENCY AT D IDLE LOOP*),
(Zasciz’'XNXASFTLERR- DM WORD COUNT ERROR ON HOST DHA/SEND/RECV ),
(Xasciz'AINXASFTLERR- UNKNOWN DISPLAY FAULT CODE AT D. DFLT ),
(Xasci2'XNXASFTLERR- DRIVE NOT FAULTING IN P.OFLN STATE'),
(Xasci2®XNXASFTLERR- U POWER UP DIAGNOSTICS FAILED®),
(Xasciz'XNXASFTLERR- D POWER UP DIAGNOSTICS FAILED®)
(Zasciz'INXASFTLERR- ADAPTER CARD FAILURE'),
(Xasciz'XNXASFTLERR- EC.TMR TIMED OUT'),
(Zasciz'INXASFTLERR- U.SEND/U.RECV RING READ INCONSISTENCY®),
(Xasciz'AINXASFTLERR- UNKNOWN WAITRV REASON AT D.RVCT'),
(Xasciz'INXASFTLERR- D.ARCS DID NOT FIND CLOSEST UNDONE ZONE®),
(Xasciz'ANIASFTLERR- U.SEEK FOUND SEEK TO ILLEGAL TRACK'),
(Xasciz'AINXASFTLERR- U.HTST INIT DIAG DMA WRITE FAILED'),
(Xasciz'XNXASFTLERR- U.HTST INIT DIAG DMA COMPARE FAILED'),
(Xasciz'ANXASFTLERR- U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET'),
(Xasciz'XNXASFTLERR- MASTER DRIVES ACLO ASSERTED®)

!<blf/page>

)

: vector [39],

CZRCHZ

REV A PATCH 00

W WINLNN NONNI N n
P
&~ WA
=20 00 ~NOo (VL

b ed md
b
i oed ad
d e
b

OO O O OO OO OO0

1922
1923

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

‘ Dup return status codes
SDUP STRUC7 uplit (
uplit
uplit (Zasciz' YAINVALID COMMANDEN')
uplit (%asciz'YANO REGION AVAILABLEEN'),
uplit (Zasci2"XANO REGION SUITABLEXIN'),
iz’ TAPROGRAM NOT KNOWNIN'),
unlit (Rasc
uplit (Rasci2"XALOAD FAILUREZN')
uplit (Xasciz2'XASTANDALONEZN®)
) : vector (7],
'<bl t/page>

(Yasciz*XA SUCCESSFULZN

1983 16:05:07

1983 08:21:37

VAX=11 Bliss=16 v3=555

SEQ 79

Page

SPIDERSUSERS:[NEALE .AZTECICZRCHZ2.8B16; 2 11)

CZRCH2

I I TETETETE

TRRN PN T T

I T,

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

11-Jul=198
7=Jul-198

! MSCP return status codes

SHSCP STRUCT = yplit (
uplit (Xasciz2"XASUCCESSIN®)
uplit (Yasciz XAINVALID COMMANDIN®),
uplit (Xasci2'XACOMMAND ABORTEDIN'),
uplit (Xasciz'XAUNIT-OFFLINEIN'),
uplvt (!asc1z‘!AUNlT-AVAILABLE!N )9
uptlit (Xasci2'XAMEDIA FORMAT FRRORIN®}
uplit (Xasciz*'XAWRITE PROTECTEDIN'),
uplit (lasclz'lACOHPARE ERRORXIN'),
uplwt (%asciz'XADATA ERRORIN'),
uplit (Zasc!z'lAHOST BUFFER ACCESS ERRORZN'),
uplit (Xasci2'XACONTROLLER ERRORZIN'),

(Xasci2'XADRIVE ERRORIN'),
(%asciz"XAMESSAGE FROM AN INTERNAL DIAGNOSTICIN')
) : vector [13],
! <BLF/PAGE>

uplit
uplit

VAX=11 Bliss=16 V3=555

SEO 80

SPIDERSUSERS:(NEALE.AZTECICZRCH2. 816 2 (12)

0D
€2 RCHZ
REV A PATCH 00

11=Jul=-1983 63:05:07
7=Jul=1983
:21:37

CZRCH RC25 DISK FORMATTER

GLOBAL TEXT SECTION

PR TR LR TR TN

S 71

VAX=11 Bliss=16 V3-555
Pa.,» 16
SPIDERSUSERS: INEALE.AZTECICZRCH2.B16;2 (13)

Init code error and informational messages

DATMSG = uplit (Xasci2'ENTER DATE<MM=DD-YYYY> °:,
NO_ADD UNITS = uplit (Zasciz'INYANO ADDITIONAL UNITS TO FORMAT - ABORTING'),
PWR_MSG = uplit (Xasciz'XNXASFTLERR- INIT CODE RE-ENTERED DUE TO PWR FAIL'),

PR PN PN PR

ABO MSG = uplit (¥asciz'XNYASFTLERR- ABORTING HOST AND REMOTE PROGRAMS'),
TO_RMANY UNITS = _uplit (Xasciz'INYASFTLERR- ILLEGAL NUMBER OF UNITS SELECTED®),
GOOD_NUM_UNITS
= uplit (Xasciz'XNXASFTLERR- LIMIT OF SIXTEEN UNITS PER FORHATING SESSION'),
B00T_FAICURE = upl1t (¥asciz'INXASFTLERR- RC25 CONTROLLER INITIALIZATION ERROR')

FETR PR

PROTD_VIOLATION
= uplit (Xasciz'INIASFTLERR= PROTOCOL VIOLATION ERROR'),
PORT _INIT ERR = uplit (¥asciz'INYASFTLERR- COMMUNICATION AREA INIT ERROR®),
ACTIVE DUP_SERVER = uplit (X¥asciz'INXASFTLERR- DUP SERVER ACTIVE AFTER INITIALIZING®),

FRIE T PR

INACTIVE _DOP_SERVER = upllt (Xasciz'XNXASFTLERR- DUP SERVER INACTIVE AFTER EX_SUP_ PROG COMMAND').
: Local load media DM module file name.ext

PRIR

IDM_FNSEXT
= UPLI[ (XASCIZ'AZFMTR.SAV'),

FCT_REQ_MSG
= uplit (Xasciz'ENTER FCT FILE NAME TO RESTORE (FILENAME.EXT):

'),

TRTN PR

| Hardware parameter coding questions

HU Q1_IP = upl1t (%asci2'RC25S

ADDRESS'),

HW_Q2_VECTOR = uplit (%asciz'RC25 INTERRUPT VECTOR ADDRESS ).
HW_Q3_BR = uplit (2asc1z'RC25
BUS
REQUEST
LEVEL® )

I E T AT A

HU—Q4_UNIT = uplit (Yasciz'UNIT

NUMBER TO BRING ONLINE®),

: Software parameter coding questions

SU Q1_UNATT = uplit (Xasciz'FORMAT IN UNATTENDED REFORMAT MODE'),

SW_
"Q2"
_NOTICE = upllt

(zasc12'xnzAtttqttttttttttttttttt NOTICE ttttttttttttttttttttt')

OPERATOR MUST BE PRESENT IN ATTENDED HODE ).
RUNNING IN UN-ATTENDED REFORMAT MODE');

SW_Q3_OPER = uplit (Zasciz'INXA
SW_04_UNATT = uplit (Xasciz'INZA

end
I

eludom

101
060
0000006
002260

0000006
0000006
000140°*
000154

122

(=]

000000
000000
000003
000006
000007
000010
000010
000011
000012
000014
000016
000020
000022
000024

LTITLE
- IDENT

.PSECT
LSNAME
: : .ASCI1
LASCII
BYTE

LSREV::

BYTE

LASCII
LASCII
LSUNIT:: .WORD
LSTIML:: .WORD
LSHPCP:: .WORD

LSSPCP:: .WORD
LSHPTP:: .WORD
L$SPTP: : .WORD

CZRCH2 CZRCH RC25 DISK FORMATTER
/REV A /

AASCODE,
/CZR/
/CH /
0

/A/

000026
000030
000032
000034
000036
000040
000042
000044
000046

0000006
000000
000000
000000
000000
000124
000000
0000C9
000000

003
003
000000
000000
000000
0000006
0000006

: .WORD
LSLADP:

L$STA:: .WORD
.WORD
L$CO::
LSDTYP:
: .WORD
LSAPT:: .WORD
LSDTP:: .WORD
: .WORD
LSPRIO:
LSENV]::
. WORD
LSEXP1::.WORD
:
LSMREV:
LS$EF::

.WORD

LS$SPC:: .WORD
LSDEVP:
: .WORD
: .WORD
LSREPP:
LSEXP4:
: .WORD

LSEXPS:
: .WORD
LSAUT:: .WORD
LSDUT:: .WORD
LSLUN:: .WORD

<<LSNDHW=~L SHWLEN>/2>

000000¢

000140

172150

000142

000154

HW.IP.ADRS::
.WORD
HW.VECTOR::

000144

000005

HW.BR.LEVEL::

000146

000000

000001

000156
000160

000162

1727777
177777

LSAU
LSOV
0
LSDESC

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

000126
000130
000132
000134
000136

000154

$DISPATCH

=73743

LSETP:: .WORD
LSICP:: .WORD
LSCCP:: .WORD
LSACP:: .WORD
L$PRT:: .WORD
LSTEST::.WORD
L$DLY:: .WORD
LSHIME
: : .WORD
DSPCNT:
: .WORD
LSDISPATCH::

0000006

000000¢

SLAST

LSDESP::
. WORD
LSLOAD:
: .WORD

000122
000124

000150
000152

SEO 82

SPIDERSUSERS:[NEALE .AZTECICZRCHZ. 816 2 (13)

GLOBAL TEXT SECTION

OO0OONroooor

REV A PATCH 00

VAX=11 Bliss=16 V3-555

CZRCH RC25 DISK FORMATTER

OOOWW

CZRCHZ

.WORD

.WORD
HW.UNIT.NO::
.WORD

LSNDHW:
: .BLKW
LSSWLEN::
.WORD
SW.UNATT::
.WORD
LSNDSW:
: .BLKW

LSPROT:
: .WORD

.WORD

LSERRTBL

-5630

154

5
0
1

C<LENDSW=LSSWLEN>/2>
1
1
=1
-1

CZRCH2

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
000164

177777

000000
000000
000003
000006
000011
000014
000017
000022
000025
000030
000033
000036
000041
000044
000047
000052
000055
000060
000063
000066
000071
000074
000076
000101
000104
000107
000112
000115
000120
000123
000126
000131
000134
000137
000142
000145
000150
000153
000156
000161
000164
000167
000172
000175
000200
000203
000204
000207
000212

045
126
045
116
m
124
114
M
040
062
103
124
114
122
104
105
072
045
045
117
116
045
101
107
101
125
124
104
101
051
045
110
m
114
116
040
062
050
045
101
122
124
102
124
0o
045
101
103

000215
000220
000223
000226

040
104
040
104

116
000
116
045
116
m
MM
116
122
065
117
122
114
040
104
123
045
117
101
051
000
116
114
M
114
116
040
062
050
045
101
131
103
040
m
045
045
104
123
106
115
040
117
105

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

P.AAA:

045
117
103
040
1M
045
045
104
123
120
123
101
125
124
104
101
051
045
117
101
101
122
104

P.AAC:

116
115
122
103
105
115
040

045
1M
117
117
123
117
061

P.AAD:

P.AAB:

7=Jul=-1983 08:21:37

.WORD

.PSECT
.ASCII
LASCII
.ASCII
+ASCI]
LASCII1
LASCII
JASCII
LASCII
JASCI1
LASCI1
LASCI1
.ASCI1
LASCII
.ASCI1
.ASCI1
LASCII
JASCII
+ASCII
CASCII
LASCII
LASCII
.ASCII
.ASCII
.ASCI1
.ASCI1
.ASCI1
LASCI1
LASCI1
LASCI1
JASCIY1
LASCII
LASCI1
LASCI1
CASCII
CLASCII
JASCII
CASCI]
LASCII
LASCII
.ASCI1
ASCII
LASCI1
.ASCI1
LASCIL
LASCII
ASCII
CASCII
.ASCI11

SPLITS,
RO,
/XNX/
/77/<00><00>
/INX/
/NXA/
/INI/
/TIA/
/L12/
/ING/
/ _RC/
/25 /
/CON/
/TRO/
/LLE/
/R A/
/DDR/
/ESS/
/:XS/
/%06/
/XA(/
/00%/
/N/<00>
/XNX/
/ALO/
/GIC/
/AL /
/UN1/
/T X/
/D2%/
/A(D/
/)XS/
/XAP/
/HYS/
/ICA/
/L W/
/NIT/
/7 XD/
/2%A/
/(D)/
/%5%/
/AFO/
/RMA/
/T A/
/BOR/
/TED/
<00>
/INX/
/AM1/
/CRO/

LASCI1
.ASCIl
JASCII
LASCII

/ CO/
/DES/
/7 MO/
/D V/

GBL

VAX-11 Bliss=16 V3=555

SEO 83
1

SPIDERSUSERS [NEALE.AZTECICZRCHZ. 816 2 (13)

CZRCHZ
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

000231
000234
000237
000242
000245
000250
000253
000256
000261
000264
000267
000270
000273
000276
000301
000304
000307
000312
000315

066
105
m
040
115
122
045
117
101
051
000
045
101
m
1M
040
114
105
114

000323
000326
000331
000334
000337
000342
000345
000350
000353
000356
000361
000364
000367
000372
000375
000400
000403
000406
000411
000414
000417
000422
000425
000430

114
116
040
062
050
045
101
151
103
040
1M
045
045
104
116
045
101
124
122
040
116
130
124
124

m
072
117
103
040
mm
045
045
104
123
120
123
101
125
124
104
101
051
000
116
044
114
122
116
055
m
105
040

000436
000441
000444
000447
000452
000455
000460
000463
000466
000471

040
116
117
105
101
122
123
117
101
051

103
124
114
122
104
105
040
066
050
045

000320

000433

000474
000476

103

000
045

040
122
117
116
102
040
123
062
050
045

126
123
116
125
105
075
065
065
117
116

116
102
116
116
117

045
122
107
107
116

062

000
101

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

P.AAE:

P.AAF:

065

106

11=-Jul=-1983 16:05:07
7=-Jul=1983 08:21:37
LASCI1
LASCI1
LASCII
LASCI1
ASCI11
ASCII
LASCII
LASCI1
ASCI1
CASCII
LASCII
.ASCII
.ASCI1
ASCII
LASCII
LASCILI
LASCI1
JASCI1
LASCI1

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

LASCIL

117
122
114
040
104
123
045
045
117
116

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

P.AAG:

CASCII
.ASCII

/6 V/
/ERS/
/ION/
/ NU/
/MBE/
/R =
/%S%/
/02%/
/A(0/
/)XN/
<00>
/IN%/
/ABR/
/ING/
/ING/
/7 ON/
/LIN/
/E: /
/L0G/
/I1CA/

/L W/
/NIV/
/_%D/
/2%A/
/(D)/
/%S%/
/APH/
/YSI/
/CAL/
/ UN/
/1T /
/%D2/
/XA(/
/D)%/
/N/<00><00>
/INY/
/ASF/
/TLE/
/RR=/
/ NO/
/N-t/
/X1S/
/TEN/
/T R/

7025/

/7 €O/
/NTR/
/0LL/
/ER /
/ADD/
/RES/
/S X/
/06%/
/A(0/
/)XN/

<00><00>
/%AF/

SEQ 84

VAX=11 Bliss=16 V3=555
Page 19
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16;2 (13)

116

g B S Gy g B
g Sumg e $oumg Bmey Gumg
B Gung Srug Pung Srmag Snng Pug Sunng Pung Py Suny Pumg

>
w

o
o

o
0
0o
o
o
*
o
@
e
*
o
o

g Puveg S

105
122
122
117
000
045

-AS

P.AAM:

.AS

g By S Srmeg g $oump Sumg
g Sy Snug $nup g S Dung Sumg g Sumg

114
105
117
103
105

P.AAL:

oy B
D S

P.AAJ:

Bung ) Gumg Sumgy Gung Gy Dy g Py Pamg P e Sumg Puing S Do Sumg Smep Pumg Sy Dy Dp g Qg o Sumg D Snep Pnt D
g oy By Gumg e Srng Sy Gump g oag Sung S Bumnp Sunp Bumg Sup Buneg S Sumep B Sy Pog Sug B Sneg umg $mep Dumg g g P B

045
116
045
116
045
000
045
106
105
055
116
103
116
101

P.AA]:

116
045
116
045
116
000
116
044
114
122
125
105
107
132

P.AAN:

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

[7]
'alalalalalalalalalataYal

115
124
107
110
m
114
116
040
062
050
065

Sng Sumg B

102
040
122
040
104
000
045

122
124
116
120
123
101
125
124
104
101
051
000
116
106
115
124
040
117
105
11
072
120
040
075
066
050
045
123
120
040
075
066
050
000
116

7 w wwn wn wnununnunmnununnunnnnm
EIIVNICICIICIONCIIICNIY
I OVOIIONOIICICICIOIOIOHN O [} TMo alal lalalalzalalalalalalala’

000724
000727
000732
000735
000740
000743
000744

117
101
m
040
131
103
040
1M
045
045
104
116
045
101
122
124
122
122
122
123
107
040
104
m
117
101
051
045
101
104
117
117
101
051
045
000
045
116
045
116
045
116
045
101
124
122
040
122
117
m

> >» >» > >» 2> PO
I>Io I

000501
000504
000507
000512
000515
000520
000523
000526
000531
000534
000537
000542
000544
000547
000552
000555
000560
000563
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
000677
000702
000705
000710
000713
000716
000721

VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16 2 (13)

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

CZRCH2
REV A PATCH 00

SEQ 85
20

Page

/A(0/

/) 7<00><00>
/XN/<00>

<00>

/XINX/
/NIN/
/IN%/
/NIN/
/INX/
/N/<00><00>
ZINY/
/ASF/
/TLE/
/RR=/
/ UN/
/REC/
/0GN/
/12A/
/BLE/
/ ER/
/ROR/
/ €0/

/DE/<00>

—Ao—n—.-AOO—A—.-A-Qo-n—A—.—Ao-A—A—AOQ—.-AO?-A—D-.-A-A—AO-.—.Q-.-A-‘
ONNOV!—“\J“NNO? —b b b

000747
000752
000755
000760
000763
000766
000771
000774
000777
044
»

NNV

<AS
.AS

.AS

& >>eeBB>>>> PeEEBEEEEBIEBBB®

g Sumg g g Srumg D
Sung g ey g g G

Suneg Pmng $umg Sy Py Sumeg
Bumg Purmg Gmg Srmg P o

Srvng Sy S $reg Brug S S
Gameg Snneg Bumeg g $umg g G

Sng Bueg Suong g $umg Bung Gumeg B ¢ Sung P
g g Bng S P
Srng g S By Sumnp Bumug Srmp Gy $uug (g Sumg ot Pumeg Sug B

S0t Bt Buteg Pup Pup Brng g G Bug Sump S
g g Bumg S S B S st G Brmp P

S
S

S
G

Sumg $mg $aeg Bump S Gumg
o Sumg g g ey g

[7.17,]
(7. 17 X7 X7 X7 . X7 X7 Y7 37, X7, ](7 X7 X X7 X X7 X7 X7 X7 X7 X7 7 X7, X7, ]
CICNIIICICICICICIOIICICIOVNICIOIOICICICIICICICIICICICIOIICIAIOIOIOIIOIOICIAICIOIOIOIOIOIOIOIAIOIOIOICHION
D
g Peng S
g $reeg S

Ot
O
bbb ed e el O
= OO = b QO b b b b ad aed b e e O b b
WV=NWNIWVMINOOO
= —=SVOOHNON=HS=ANONOOQO =R VOO
WNWWIOo
= N=N
=« NIO N NN =\ S OO VOWVMWNO O =0 MWV

VNS =0 =20WOo0onnIN SO N=NV=LNNO=OWOOWNWNING

P.AAN:

>>»

P.AAP:

N =N QOH

Dt O ROt
O
D
WNIBNLD RN
VNOOH
= NONO
VIO SN NV

2 VIO=2NNIS B WSO

P.AAO:

-ttt wdD)

S WSSO

nNO NN

CZRCH2
REV A PATCH 00

bbb b Dk O bt b Db bbb et e B B D Qb b et b ek b DD O b b b b i i b O =d Q) b b b b = O =B ) b b b e wd b 2 ONO= O N=NON2D=ONON
- NOHN =D =NINOON = = N = NWWNIVO S =NINNOON) -

NNON
- N)
=S HBNNNVOHO=NIOCOHBNNO
== NNOSON =N
CONN=2VO—=O=2SONVNOON
/N =2NOWVNVNOO =OWVMNI NN NOON NS s

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
11=Jul=7=Jul=-

/ASF/
/TLE/
/RR=/
/ EN/
/VEL/
/0PE/
<S57>/PA/
/CKE/
/T R/
/EAD/
/ (P/
/AR1/
/7Y /
/0R /
/TIM/
/EOV/

/7)/<00>
/XNX/

/ASF/
/TLE/
/RR=/
/ EN/
/VEL/
/0PE/
<S7>/PA/
/CKE/
/T W/
/R1T/
/E (/
/PAR/
/1Tv/
/ OR/
/7 11/
/MEQ/
/ur)/
<00><00>
/XANX/
/ASF/
/TLE/
/RR=/
/ €0/
/NTR/
/0LL/
/ER /
/ROM/
/ AN/
/D R/
/AM /
/PAR/
/1Tv/
<00><00>

/XNX/

/ASF/
/TLE/
/RR=/
/ €0/
/NTR/

WO
NN

- \J%

nNO

oo~

OO
(o1
W

—b

1
7
SEQ 86
Page 21
VAX=-11 Bliss=16 Vv3=-555
SPIDERSUSERS
: [NEALE.AZTECICZRCH2.B16 2 (13)

11=-Jul=1983 16:05:07
7=-Jul=1983 08:21:37

CZRCH RC25 DISK FORMATTER
CIRCHZ
REV A PATCH 00 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
001347
001352
001355

001360
001362
001365
001370
001373
001376
001401
001404
001407
001412
001415
001420
001423
001426
001431
001434
001436
001441
001444
001447
001452
001455
001460
001463
001466

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
m
040
040
115
125

000
045
101
124
122
040
116
127
124
050
122
131
122
11
117
051
045
101
124
122
040
124
122
124
101

114
122
101
120
111

000
116

044
114
122
103
124
114
122
117
120
11
000
116
044
114
122
122
107

105
040
101
124
17
124
105
124

000
116
044
114
122
122
107
122
105
120
1M
040
040
115
125
000
116
044
114
122
11
105
125
040
123

114
040
115
101
124

000
045

106
105
055
117
122
114
040
115
101
124
000
045
106
105
055
11
040

P.AAQ:

P.AAR:

101
050
122
131
122
m
117
051

LASCI1
LASCI1
.ASCIl
LASCI1
LASCI1

/0LL/
/ER /
/RAM/
/ PA/
/RIT/

LASCII
JASCII
.ASCI1
.ASCI1
JASCI1
LASCII
LASCII
.ASCI1
JASCI1
LASCII
LASCID
.ASCII
JASCI1
JASCII
.ASCI1
LASCII
LASCII

/ASF/
/TLE/
/RR=/
/ €O/
/NTR/
/0LL/
/ER /
/ROM/
/ PA/
/RIT/
/7Y/<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/ Rl/
/NG /

LASCI]
.ASCII

+ASCII
LASCI1
+ASCI1
LASCI1
JASCII
LASCII
LASCII
LASCII

045
106
105
055
mm
040
m
040
101
124
117
124
105
124

P.AAS:

045
106
105
055
116
122
120
115
124

P.AAT:

LASCI1
.ASCII
JASCII
LASCI1
.ASCI1
CLASCII
LASCII
LASCII
LASCI1
LASCIL
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
,ASCII
LASCI1
LASCII
.ASCI1I
LASCII
LASCII
+ASCI1
LASCIL
LASCII

/Y/<00><00>
/INX/

/REA/
/D (/
/PAR/
/ITV/
/ OR/
/ 11/
/MEO/
/uT)/

<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/ R1/
/NG /
/WRI/
/TE /
/(PA/
/RIT/
/Y O/
/R T/
/IME/
/0UT/
/)/<00>
/INX/
/ASE/
/TLE/
/RR-/
7/ IN/
/TER/
/RUP/
/T M/
/AST/

SEQ 87

Page 22
VAX=-11 Bliss=16 V3=555
RS (13)
RCH2.B16;2
RSUSE
: [NEALE.AZTECICZ
SPIDE

105
117
000

116
044

114
122
mm
124

045

106

105
055
116
122

106
101

P.AAY:

g St g Bt ey Bt
g S S P
e Bumg
St S
g Bt g St Bt et Bt g Bt
S
g S Sumg Pueg Dug B D S
g et St

/ER/<00>

/XNY/
/ASF/
/TLE/
/RR=/
/ KO/
/8T /
/ACC/
/ESS/
/ 11/
/MEO/
/UT/<00>

g S
g Bt B
g $mg Pg Bimegp P

L]
L]
[]
*
L]
e
L]
Ld
.
@

040
122
000

040
124

105
055
M
116
124
040
116
117
105

106

114
122
104
107
123
103
117
122
114

P.AAX:

044

045

et O md md ek ) b b md b b d e o b
ed ) b
b O b b b
NENLNLOHA VN ON=NO==OBNVINOHN=200
WONI B =2NNMNLES =NV
DN = Y= O N
=y

001737

116

122

g G B
g S B
g Bumnp Pemt Bunct By g G
vt B
Gumg Bung Sung Bnep Sumg Sung S Pmug Pung Sumg $rmg S Bumg S S

000

125

g S Brumg G S
g B iy G G i B
g B Sy e B
g e Py g g B Soeeg g Sumg Bt umg g Brung $mp Suug Pt S

122

P.AAW:

g G
g g

115
124
040

102

FTIITIITIY>err>pB>>>>

040
123
122

105

000
045
106
105
055

114
111
105
105

nuunLLILGIBVTLLILNOKLLKIKVO
wumnunnmnununmnumunmunnm wwn wunnuvmnununmunnununmn wmunmnnnunnnm nunununununnnnw
EICIICICIIIMICIIICICIOICICICICICIOICIOICIOINCIONTM EIICIIICIOIIOVND EIOIICIOICIIIOIICICICIOIIOIINOIYOYD

000
116
044
114
122

104

P.AAV:

045
106
105
055
122
1M1

106
105
055
117
040
103
123
1M1
117
000

116
044
114
122
103
104
040
115
040
103

044
114
122
110
124
103
123
124
105
124

P.AAU:

2. 2. 2. 2. 0. 0. 0. 3.2, 3.4

000
045

P2 2. 2. 0. 2.0.20.3.3.34 > > P

122
116

00147
001474

GLOBAL TEXT SECTION

REV A PATCH 00

2
VAX=11 Bliss=16 V3=555
(13)
816;2
.AZTEC JCZRCH2.
USERS
: [NEALE
SPIDERS

CZRCH RC25 DISK FORMATTER

PRI

CZRCH2

SEQ 88

Page

/EDE/
/D/<00><00>
/INY/
/ASF/
/TLE/
/RR=/
/ BU/
/S M/
/AST/
/ER /
/ERR/

/0R/<00>
/INX/
/ASF/
/TLE/
/RR=/
/ D1/
/AGN/
/0ST/

/1¢C /
/CON/
/TRO/
/LLE/

/RRO/

/R/<00><00>
/IN%/
/ASF/
/TLE/
/RR=/
/ IN/
/STR/

002207
b b D ek DB B D B O

045
S O

b b b O b cnd b b wd b =D =B OO =S O

b b b b D —b

001750

b b b b O

001742
001745

b b b e e D b b b b b e

nn wunwm

> > > 3>

R A O = = O

2.2 .0. 2.0,

e = O = =R OO D B

>>>>>>> > b 2

w w wuunununnununn 7 wmunumminunnn

b ed b D etk b = D

O=OL=NI=NIH
=2 VNOOONOWVIOOSHNONINININIVIOOS
W= VNO =N =00 = W= 8
OO S NON O WMV

wn wnuununurnnwm

> b 2. 2.2.2.2.2.3.4

—b ek O wd ad b

Ny
VIO NON S

wn wmwnununm [7 X7 1%

> 2» 2> 3» 3» 3» »2» 2

NO=
GOSN ==VIOO S
NN =NWOO SOV

- ed b b ad wd e O d b ) b = O

EIICICICICIIICICIIIIIIICIIOND
alal (alaln]
alalalalalalalalalalalialalal (o] s lalalalalxls] ) CIICICIINOVODY
vacg Srucg Dung rmg Srvng S $romg Pmg Pumg Sy g Py Sumeg Bung Gumg Bmmg Srung Srump g g Pt Brumg Sy Sy g g G
e Sung By $umng Sg S $umg fungg g g S S Bug P Dp Bunngg P
g Smp Sunp g G Pnegp Pug P B S
g Sy B
Guug Guveg S S Gy Bug Sumg Grmg ung Gng g Gumg Gy Pmeg Sumut Bumet Grneg Punep e Brump Gy G Pee Bneg Bmeg g B
et g Sy Dumg g g Gnng g $ung P
g Gung Pt Pung Sueg Sy Brmg Gung Bt Sung Swng Sumg B
g B Sang Brmg $roeg) g By

VIVIOOWVI

wn (=) O

O= =D

REV A PATCH 00

N =b £ ad O=NIO=ON=D=ONONO
RN =N O=BNO RN N =200 =08 20200
NN L0 (=]
VNS =SSO N=O MY W
NSO NOSOVINISNIWOONVNNI
S SONO =20V OCOWN=NO=S

CZRCHZ

—t b (e O

O adodod nd e ed e ed b ) ed ed b ) b b b
O=NO=N=2O=NNNOINON
O= BB OWLOONS=NSNS

001753
001756
001761
001764
001766
001771
001774
001777
002002
002005
002010
002013
002016

—
e ) =D b wmd b b b b b wd e md =D
NNNVO/RNNO
=2 =000=NINO
N =2NNIONON
=2 NN
= b NN =

GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER
11=Jul7=Jul=-

/1/<00>
/IN%/
/ASF/

/UCt/
/I0N/
/ LO/
/0P /
/TIM/
/EQU/

/TLE/
/RR~/
/ IN/
/VAL/
/10 /
/CON/
/NEC/
/710/
/N 1/
/DEN/
/TIF/
/1ER/

<00><00>
/ANY/

/€/7<00><00>
/%N%/
/ASF/

/ASF/
/TLE/
/RR=/
/ _IN/
/TER/
/RUP/
/T W
/RI1T/

/TLE/
/RR=/
/ MA/

/INT/

/ENA/

/AD/<57>

/WR1/
/TE /
/INV/
/AL1/
/D R/

WO
NN

-3 \JY

O—
oo

OO
[e 1)
WiN

—d add

L
7
SEQ 89
Page 24
VAX=-11 Bliss=16 Vv3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16 2 (13)

122

114

et
g Pumg Pang
ey Bumg Prumg

114

122

000

g Smg Pumg Sung Suumg Seg Bung Sumeg Puneg Sumg Sumeg

116
055
122
131
000
045
106

g ung Bomeg S

122

050
116
101
124
000
116
044

P.ABE:

105
055
116
040
121
116
040
122

105
055
11
040
126

P.ABF:

106

114
122
110
110
105
114
122
117
114

045

116
044

114
122
M
124
105
105
105
122

P.ABD:

105

g $umng

117

g $umg Bumng B

040
115

114

Pumg Sumg

122
101

045
106
105
055
117
122

By Pt Sungp Pung S

116
044
114
122
103
124

g fmg $uug Gngp Smep P

000

040

117
103
040

g Sumg Pungg Sumeg Bumng Gumng $umg

122

114

Boeng Demng Bmug Suung Smeg

101
124
101
105
122
105
117
040
040
116
117
101
105
117
122

Sameg P

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

wm wwununmunmununununnwm
CIIIIOIIIOIIND

002453
002456

NHEOWVENOMNS 2 VNONVIWWVIN=ONI S = Na =t ONONO NN

ON S =2 NOWVNOON =W

—b b —ed b e = (D) b b A OO b b b b ed i (D) el b G OO MR = e OO et et e Qb b d QO D
i O = b O
=NONO—=OHNINORO—=LOONN=SININODI
V=N
NNO==INOHNOO==H00W

002212
002215
002220
002223
002226

> P 2. 2. 2.2.2.2.2.3.3.4

/ MA/
/INT/
/ENA/
/NCE/
/ WR/
/1TE/
/ L0/
/AD /
/10 /

/NON/
/=L0/
/ADA/
/BLE/
/ €0/
/NTR/
/0LL/
/ER/<00>
<00>
/ANX/
/ASF/
/TLE/
/RR=/
/ €0/
/NTR/
/0LL/
/ER /
/RAM/
/ ER/
/ROR/
/ (N/
/ON=/
/PAR/
/1Tv/
/)/7<00><00>
/XN%/
/ASF/
/TLE/
/RR=/
/ IN/
/1T /
/SEQ/
/UEN/
/CE /
/ERR/

/0R/<00>

WO
N~

nNO

O =2

ool
Oo0 0o
W

REV A PATCH 00

11=Jul7=Jul-

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

CZRCH2

7z
-

VAX=11 Bliss=16 V3=555

.AZTECICZRCH
SUSERS
: CNEALE
SPIDER

SEQ 90
Pa
25

2.816:2°(13)

CZRCH2
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

002461
002464
002467
002472
002475
002500
002503
002506
002510
002513
002516
002521
002524
002527
002532
002535
002540
002543
002546
002551
002554
002557
002562
002565
002570
002573
002576
002601
002604
002607
002612
002615
002620

M
117
101
102
m
040
122
000
045
101
124
122
040
122
057
114
110
104
122
106
114
105
045
101
124
122
040
120
116
122
1
105
122

116
115
124
m
124
105
117
000
116
044
114
122
120
107
120
114
101
127
105
101
125
040
i16
044
214
122
115
120
107
105
123
122
105

002656

000

002623
002626
002631
002634
002637
002642
002645
002650
002653

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

104
122
122
120
1M1
040
040
115
125

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

11=-Jul=1983 16:05:07
7=-Jul=-1983 08:21:37

040
122
040
101
124
117
124
105
124

103
120
m
114
131
122
122

045
106
105
055
125
105
117

P.ABG:

040
122
101
040
M
122

000
045
106

P.ABH:

105
055
101
11
040
107
124
040
101
105
117
050
122
131
122
m
117
051

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

/INC/
/0MP/
/AT1/
/BIL/
/1TV/
/ ER/
/ROR/
<00><00>
/XNX/
/ASF/
/TLE/
/RR=/
/7 PU/
/RGE/
<57>/P0/
/LL /
/HAR/
/DWA/
/RE /
/FAl/
/LUR/
/E /<00>
/XNX/
/ASF/
/TLE/
/RR=/
/ MA/
/PP1/
/NG /
/REG/
/1ST/
/ER /
/REA/

LASCII

<00><00>

LASCI1
+ASCII
CLASCII
.ASCI1
LASCII
.ASCI1
LASCIT
LASCI1
LASCII

P.AAK:

.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
WORD
LWORD

/D E/
/RRO/
/R (/
/PAR/
/1TY/
/ OR/
/7 11/
/MEO/
/UT)/

P.AAL
P.AAM
P.AAN
P.AAQ
P.AAP
P.AAQ
P.AAR
P.AAS
P.AAT
P.AAU
P.AAV
P.AAW
P.AAX
P.AAY

SEQ 91

Page 26
VAX-11 Bliss=16 Vv3=555
SPIDERSUSERS
: [NEALE.AZTECICZRCH2.B16;2 (13)

003012
003015
003020

003023
003026

003031
003034
003037
003042
003045
003050
003053
003054
003057
003062
003065
003070
003073
003076
003101
003104
003107
003112
003115

003120
003122
003125
003130
003133
003136
003141
003144
003147

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

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

P.ABJ:

045
106
105
055
117
057
116
117
105
117

P.ABK:

116
044
114
122
122
117
040
117
116
040
116
116
000
116
044
114
122
125
116
116
105

045
106
105
055
105
124
120
107
117
122
116
107

P.ABL:

045
106
105
055
116
117
040
124

P.ABM:

040
040
11

P.AAZ
P.ABA
P.AB8S
P.AB(
P.ABD
P.ABE
P.ABF
P.ABG
P.ABH
/XNX/
/ASF/
/TLE/
/RR=/
/ RE/
/SPO/
/NSE/
/7 ST/
/ATU/
/S E/
/RRO/
/R:%/
/5/<00>
/XNX/
/ASF/
/TLE/
/RR=/
/ HO/
/ST/<57>
/CON/
/TRO/
/LLE/
/R 0/
/UT /
/OF /
/SEQ/
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ RE/
/MOT/
/E P/
/ROG/
/ NO/
/T R/
/UNN/
/ING/
<00><00>
/XNX/
/ASF/
/TLE/
/RR-/
/ UN/
/KNO/
/WN /
/RET/

e
SN PN PSSP ONENCONCNCNONCNANIEN
DN

101
124
122
0
123
116
040
101
123
122
122
123
045
101
124
122
040
123
103
124
114
122
125
17
123
000
045
101
124
122
040
115
105
122
040
124
125
M
000
045
101
124
122
040
113
127
122

.WORD
.WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.ASCII
LASCII
LASCII
+ASCI1
LASCII
LASCII
+ASCI1
JASCII
LASCI1
LASCI1
.ASCII
LASCI1
LASCI1
.ASCII
ASCI1
CLASCII
+ASCII
+ASCI1
LASCIL
LASCI1
.ASCI1
LASCII
.ASCII
LASCII
+ASCI1
LASCI1
LASCII
.ASCII
JASCI1
.ASCI1
LASCI1
JASC 1
LASCII
LASCI1
LASCII
+ASCII
LASCII
+ASCI1
+ASCI1
LASCII
.ASCII
LASCI1
LASCII
.ASCII
LASCI1
+ASCII
LASCII
LASCII

— S~ T~ S~ P

003002
003004
003007

001766°
002042°
002100°
002176
002276°
002356°
002420
002510°
002562°

. g~ S~

002714
002716
002720
002722
002724
002726
002730
002732
002736
002736
002741
002744
002747
002752
002755
002760
002763
002766
002771
002774
002777

. ——

CZRCH RC25 DISK FORMATTER
CZRCH2
REV A PATCH 00 GLOBAL TEXT SECTION

SEQ 92

Page 2
VAX=11 Bliss=16 V3=555
16;2 (13)
RS
.AZTECICZRCH2.8
RSUSE
: [NEALE
SPIDE

e — ———— — ———

11=-Jul=1963 16:05:07
7=-Jul=1983 08:21:37

113

00
003404
003406
003411
-

P.ABQ:

P.ABR:
o

[]

EIBELEB>E>

ey Smp ey g Sumeg B
g Punep Srmp Py Sump G

Sy Bumg g By B By g g S
S G By e Dronep St Drumg Bncg S

wwn
[ Xm]

> 2>

-ASC

Sy g P
g g Pt B umg g Sueg Gung P B Gug B
Gy e g Smng By Sy Srng Bumeg S
g G Sug Gnmnp S B

w (7,17, 17,37,
X7, X717} wvunmnn wuwmumuvmIummummunmunmonnumunnmnmnonmnwm
CENEIIIHIOHIITM I EICIICHINIICIIIIIIIOID

>ee2eB>> b 2 2.2 BB

[

>>
> > >>>> 3> >

>>> >

WSO

—D—bbdab
OONN—=

.ASC

ASC

wnn w wn
wnm [7. X7, 17,] wnnnn (7, X7, X7,%7,] w wununm
[aTala) 2 sl
[ 1m) M I I (] 'alalalal
g Pumg S Doy St S Srvng g P Srecg By S Dneng P G St D omg G Bt Bt St S e Py g g
Sy g Song Bump S rmnep S
g B S P S
g g P S P
g S
g D
g Bg eg g B Sumg

OO =L
O D)
ONS =00 =2VO0OSH

=l O

ONOON==2
=2 NWVWNONWN

D d O

LD LD wl QOO
NNONHNIWV=NOOS
DN WWWNSNI NV OOV

NN —— S OOWVIOOSH
NNOOO =WV

P.ABP:

D DDA

OONOOH —==VOOH
AN
SO NO WMV

b
NN
N

b b e O b = b b b O
2O =N
NVWVMOONSONSSON

P.ABO:

OfH
OV

P.ABN:

bbb adedadededed
O ed
DONOON MNP =
NWVMISWVIVIWWVNSSOY

003152
003155

—t bk

O et et b =t O d
=2 o NOD
b ad VNN
=
SO WONOOO
VNS SO

CZRCH2

b ) b b and b wmd b b
OHNO=OO0OON
=2 \N S =AW

REV A PATCH 00

GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER
SEQ 93
Page
2
V3-555
Bliss=16
VAX-11
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16

:29(13)

/17 /
/ERR/
/0R/<00>
<00>
/XNY/
/ASF/
/TLE/
/RR=/
/ PO/

/RT/<57>

/H0S/
/T S/
/YNC/
/ ER/
/ROR/
<00>
/AINX/
/ASF/
/TLE/
/RR=/
/ ME/
/SSA/
/GE /
/LEN/
/GTH/
/ ER/
/ROR/
<00>
/ANY/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
/WN /
/END/

003660
b e

ek ) b b

e O

R e OO

O =

P.ABV:
[

[

-ASC

.AS

)))))))) > P 2. 2. 20.2. 3.8

LLILINLINKON
T
X X
T X wunmunmnwm vV
w (737X
7 X7 X %] wvnuvwnm wmunnunununnnm
alalalalalalalal alalatatlalalalalalalalalalalslslalalalalalalals]
EIIIIIIIOIOICIICIOIOIOIOHND EIIIIONNOY
g g Sumep Dug Sp D Bunng G G G Brneg Bng P Gumeg Gy By By g g $reg Do P S Prg Sumg g B
g Boneg By g Preg P umg Bumeg Gy Puep Pumg S S oy g Puimg Brg $umg $rung Sumeg Sy G D Pneeg Sy Sy D St o Soumg
mmg S Sunp Srmeg Sumg B Gremg Bumg g $mug g Sumg Sumeg Sy St Sy Bungp Gy g Sruct Brny omp Py Srumg Bmg Sy Puung g B
g Sp umg S S By Sy S Py o et Sy ey S Bumg B o S S Bt By Srump D St et Gy e B

>>>> )))))))

114
1

> b 3. 2.2.0.4

==l OmauO—

NN
=L NO
SOOI

P.ABS:

P.ABU:
«

OO
OLdO DD

b ek D i O =t i D)
NSNS QOH
SHOVIOSH
=200 WVIVIONW

P.ABT:

=SMNONBNVN=NOOHONSJO=ND=2NOOS
OSSO/ OOWVMVNOANIONO
= N=OO VWOV

120

et ek Ot

003414
003417
wd b b b b b e
NONNN [«],8]
NWVIVING prt

O md o
e O b b = OO = b b
ONO =N NINOHO—-00
OWVIN = NWON S =2 NO NI

CZRCH2

b od md e e e e e e ) b d e b e e o wd e e —d O b (D) b b b b e b b b b e D RO DD b b D bk D O b
—n
OOWNIN
=B = NNONOONI=N=2H 20ONO=2NNON=N=H
=ONN ==
N ==
NOS B WOVIUES SONNLNVIVIOWWNES
=S DO OVNS =0OWWNES =208 000NONOMWVINS
SO

—-OO0O0O0Oo NN
=3 \N =2 NWWNNO
N

REV A PATCH 00
GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER

VAX=11 Bliss=16 Vv3=555

SPIDERSUSERS: [NEALE .AZTECICZRCH2. 816 2 (13)

/TLE/
/RR=/
/ AD/
/APT/
/0R /
/PUR/
/GE /
/ERR/

<00>

/0R/<00>
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
JWN /
/INT/
/ERR/
/UPT/
<00><00>

/XNX/

/XNX/
/ASF/
/TLE/
/RR=/
/ IN/
/1T /
/SEQ/
/ ST/
/EP /
/TIM/
/ED /
/0UT/

<00><00>

/IN%/
/ASF/
/TLE/
/RR=/
/ IN/
/1T /
/SEQ/
/ €0/
/MPA/
/RE /
/ERR/

/0R/<00>
/IN%/

/ASF/
/TLE/
/RR=/
/ UN/
/EXP/
/ECT/
/ED /
/ATT/
/ENT/
/ 10N/

SEQ 94

104
125
101
040
103

004106
004111
004112
004115
004120
004123
004126

105
000
045
101
124
122
040

106

000

116
044
114
122
1M

045
106
105
055
116

o
o
0
0
&
o
s
e
o
o
.

o
o
@
*
.

I SE R RERSS
L)

040

126

P.ABY:

1119

-ASC

105

"ASC

004103

116

g Sousegp By S Sy
e um B
e By

116
115
123
105
105

g Sumeg G S Drng) Drcg) P Gumg S Sy S $ovng Bt D Sunng S P Py
g S
g g Pumg Gt Smg P Pt Sump Suneg S
g Bt Saeg ey Srump e

105
040
123
107
122

117

Bt S
S Gung

004064
00406
004072
004075
0064100

004061

P.ABX:

B
P

045
106
105
055
116
120
124
040
122
125
105
105
119

“

w wnnonn w wwn wmwunmnununununnn wnuvmnnn

116
044
114
122
125
130
103
106
105
117
040
103
124

124

[ ] alalalal (o] oy en [aIalals] s lalalalalalalalalalalalalalalal

040
115
116
117
117
040
040
104
105
101
040
103
126
000

Sumeg Sy Bmeg B
g g g B

106
117
101
040
103
105
116
176
115
123
105
105
111
106

103

LNV UInNnULVnLnnmomnunumn w wmuUnwnmnunmuvn
2 lalalalalaliaiatalalalalaYalata
el CIIICICHIYD
g P
e g S
g Smeg Sreg g By D G Sumgy $mmg By P
g Sy Soung P Suuep $rumg g Sy S B P
g Boamg g S S

105
103
115
106
120
104
M
105
040
123
107
1e2
105
105
000
045
101
124
122
040
105
105
105
123
117
123
130
120

P.ABW:

Sumg Smp $mg Dumg Sy $umeg Smeg S S Gy Bung
S $nap o
g By By Sy Punng Pumeg Song By

003737
003742
003745
003750
003753
003756
003761
003764
003767
003772
003775
004000
004003
004006
004011
004012
004015
004020
004023
004026
004031
0040
004037
004042
004045
050
004053
004056

045
106
105
055
116
120

105

116
115
123
105
105
111
104

> >33
> > 2> 0 2. 2. 2. 2. 0.2.4 >

105
040
123
107
122
105
105
000
116
044
114
122
125
130

040
106
105
101
040
103
126
000
045
101
124
122
040
105

P2 P

003663
003666
003671
003674
003677
003702
003705
003710
003712
003715
003720
003723
003726
003731

003734

/ EN/
/D M/
/ESS/
/AGE/
/ RE/
/CEl/
/VED/
<00><00>
/XN%/
/ASF/
/TLE/
/RR=/
/ UN/
/EXP/
/ECT/
/ED /
/COM/
/MAN/
/D 0/
/PC0/
/DE /
/IN /
/END/
/ ME/

/SSA/
/GE /
/REC/
/EIV/
/ED/<00>
<00>

/AN%/
/ASF/

/TLE/
/RR=/
/ UN/
/EXP/
/ECT/

/€D /

/SER/
/10U/
/S E/
/XCE/
/PT1/
/0N /
/END/
/ ME/
/SSA/
/GE /
/REC/
/EIV/

/ED/<00>
<00>

/XNY/
/ASF/
/TLE/
/RR=/
/ IN/

- A\Jy

nNoO

O =—b
(1

hodod

11=Jul7=Jul=-

CZRCH RC25 DISK FORMATTER

GLOBAL TEXT SECTION

CZRCH2

REV A PATCH CO

SEQ 95
Page
30
V3-555
VAX=11 Bliss=16
3)
(1
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16 2

105
m
104

114
122
1i7
123
116
116
103
115
104
125

105
055
125
124
104
107
117
101
040
106

106
114

125
000

116

045

114
122
117

105
055
125

101
111

116
116

115
116
102
106

115
104
125
105

044

040

106

P.ACA:

[

045

[

124
105

000
116

105

Dy g S
o P S

122
105
105

040
120

.AS

122

106

123

103

117

P.A(CB:

$umeg B Bug St ot S $mg $ug P
G Sng Dt Sump D
g Srungg Bung D

055
116
117
040
123
107

-AS

g $og Grng $ng By Bung Brmep G Buceg S Bvung S G
g Pueg Gumegp o Brmgy Sy By Gy ey g Suneg g S

106
105

P.ABZ:

g g g G
g D
g G
g Prg
mg Grang Orng g Sy $oang Someg Pumg Puneg Srug

045

g Brug ey Smg e Gmed P
g By Brveng Sug v S
g g Bunng g g Gy g Prnng S P P
g G

105

122
125
116
116
105
101

044

004372
004375

122

105

[}

126
000
116
044
114

105

[]

103

116

040
123
107

101

040
104
105
101
040

S Song Sumug B Bunp G
ey Bumegp B Grmg o P

114
040
115

DAL NWLINNVNUVLIVVIULVIIVLIVLVILLULIVVYINLIULDWLILIVVWLVYWDY wunnunmnm
NN NN I
I
I I I I
I I NI IIOIICIIICICIIIICICIIICICIOIIICIOIOICIICIICIOIOIOIIOICIOINOIOIOND

101
104
117

P
e
Sop by

GLOBAL TEXT SECTION

3333 33> 333> 3> 3> 3> 3> 3> 3> > 3 > >>
737

040

SEQ 96
Page 31
VAX-11 Bliss=16 Vv3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16 2 (13)

CZRCH RC25 DISK FORMATTER

BB EEDBB

b b b nd i e () b b e () e o e b e b e
cand b wnd D
WON === NNOSO=0O0N)
= =0 =20 =N
=2 \HUANN NWO N S 2N
=2 AWNHWNWNON S NN = O

CZRCHZ
REV A PATCH 00

/VAL/
/10 /
/C0OM/
/MAN/
/D E/
/ND /
/MES/
/SAG/
/E R/
/ECE/
/1VE/

/D/<00>
/INX/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
/WN /

/MES/
/SAG/
/€ 1/
/YPE/
/ RE/
/CEl/
/VED/
<00><00>
/XN%/
/ASF/
/TLE/
/RR=/
/ OU/
/TS1/
/AND/
/ING/

/ Co/
/MMA/
/ND /
/BUF/
/FER/
/ FU/
/LL/7<00>
<00>
/XN%/
/ASF/
/TLE/
/RR=/
/ 0U/
/T S/
/TAN/
/DIN/
/6 ¢/
/0MM/
/AND/
/ BU/
/FFE/
/R 0/

004642
004645
D b ek D

O At

g famgg Bemg

g Brvng Bung

g Suug S

Srmg Pumeg S

= OO = = = OO ==

Gomg Sru Soug Gung

-AS

Py uug Sumg Sug $umg Sung

bbbt b od ed b D

NNNONO ==V =SHNOOHO=O0OO0OH-VOOH
NN
VS WVINO NIV
VIO VYW = O =N\ OV

g $meg B @ Preng Bung Gume Pueg umg Svung Pumg

+AS

Ot
=000
O =B ONS VIOV

BN auOQO=m=ON =D=M
LONSOOON =S =
VIONW
S M=
J0ONWVIVVNOSNNINS
OSSO NOWVIVIONNIS
SO

e —d ek e (D b D b b b b (D b bt

040

g Gt S

Pung Bt S

e B

g Pumg Govng Brng Buup G

Ot Q= kOt
d O ~b
ONOINO=SOMN
SN =0
OONWONI
O NWO NV

b b b b b D

O=0ON=I OO
SH=uINVIO
==
&

bt B O

Brang) Srung P

Bumg By

CZRCH2

OO0
— O=N=m

=D D) D d d b e b
— e ek DO = b e md i wad d wd ed = D) b
==L NINO S NINON =N
O SHOO OMNONON
NS
=2 NO W VIR WV AN WVHN W NIW O N 8 = VWM WIW
WD

004400
004403
004406
0044611
004414
004417
004422
004425
004430

-t Q) et ad e Q) =d =d 2 OO = O = md b wd =
=S85 OQO=BNNOSOND =N
S OO =00OMNS =2NONON=NIH
N

REV A PATCH 00
GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER

VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16

Ut /
/0F /
/SYN/
/C E/
/RRO/

/R/<00><00>
/XANX/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
JWN /
/MES/
/SAG/

/ED/<00>

/E N/
/UMB/
/ER /
/REC/
/E1V/

<00>

/AN%/
/ASF/
/TLE/

/LE /
/REA/
R
/RR0O/
/R/<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/ PO/

/RR=/
/ F1/

/CON/
/TRO/
/LLE/
/R 1/
/IME/
/0UT/
/ ER/
/ROR/
<00><00>

/RT/<57>

/INX/
/ASF/

/TLE/
/RR=/
/7 IL/
/LEG/
/AL /
/FCT/
/ Fl/
/LE /

8
7=Jul=1983 08:21:37
H

CZRCH?

CZRCH RC25 DISK FORMATTER

11-Jul~-1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
004650
004653

004656

114
107

000

004660
004662
004664
004666
004670
004672
004674
004676
004700
004702
004704
004706
004710
004712
004714
004716
004720
004722
004724
004726
004730
004732
004734
004736

002736°
003004°
003054°
003122°
003172°
003234°
003276°
003340°
003406°
003450°
003510°
003556°
003622°
003712°
004012°
0064112°
004174°
004250°
004326°
004422°
004500°
004536°
004612°
045

004747
004752
004755
004760
004763
004766
004771
004774
004777
005002
005005
005010

122
040
130
105
057
M
040
122
040
040
124
122

0047461
004744

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

101
124

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

105
124

000

116
044
114
122
126
040
101
127
124
105
117
117
m
105
125
000
116
044
114
122
11
117
11
105
131
124
056
111

000
116
044

116
110

LASCII
LASCI1
P.ABI:

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

P.ACH:

045
106

P.ACJ:

P.ACI:

LASCII

/LEN/
/GTH/

<00><00>

.WORD
+WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
LWORD
.WORD
.WORD
WORD
WORD
.WORD
.WORD
(ASCII

P.ABJ
P.ABK
P.ABL
P.ABM
P.ABN
P.ABO
P.ABP
P.ABQ
P.ABR
P.ABS
P.ABT
P.ABU
P.ABV
P.ABW
P.ABX
P.ABY
P.ABZ
P.ACA
P.A(B
P.ACC
P.ACD
P.ACE
P.ACF
/INX/

.ASCI1
LASCI1
LASCII
LASCI1
LASCII
CASCI1
.ASCII
LASCII
LASCI1
CASCIL
.ASCI1
.ASCI1

/RR=/
/ VA/
/X R/
/EAD/
<57>/WR/
/ITE/
/ ER/
/ROR/
/ ON/
7/ _IN/
/TER/
/RUP/

LASCI1
JASCII

LASCII
.ASCII
JASCII
CLASCII
.ASCI1
LASCIL
.ASCI1
CLASCI1
LASCI1
CASCIL
LASCI1
LASCII
LASCI1
LASCII
.ASCII
LASCI1

/ASF/
/TLE/

/7/<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/u.8/
/FIL/
<00><00>
/INY/
/ASF/

SEQ 98
3
SPIDERSUSERS: [NEALE .AZTECICZRCH2.816; 2 (13)
VAX-11 Bliss~16 V3=555

CZRCHZ

CZRCH RC25 DISK FORMATTER

11-Jul-1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
005072
005075
005100
005103
005106
005111
005114
005117
005122
005125
005130
005132
005135
005140
005143
005146
005151
005154
005157
005162
005165
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
00531°
005314
005317
005322
005325
005330
005333
005336

124
122
040
103
123
124
103
101
125
115
000
045
101
124
122
040
103
123
124
103
101
125
114
000
045
101
124
122
040
103
123
124
103
101
123
126
105
122
050
120
195
000
045
101
124
122
040
103
123
124
103
101
123
126
105
122
050

114
122
m
117
11
105
131
124
056
124
000
116
044
114
122
m
117
m
105
131
124
056
117
000
116
044
114
122
m
117
m
105
131
124
105
117
116
13
120
040
124

105
055
116
116
123
116
040
040
102
131

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

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

P.ACK:

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

P.ACL:

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

P.ACM:

7=Jul=-1983 08:21:37

LASCII
<ASCI1
LASCI1
JASCII
JASCIL1
LASCI1
LASCIL
LASCII
LASCII
LASCIL
LASCII
.ASCII
LASCII
LASCI1
ASCI1
LASCII
-ASCI1
LASCI1
LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCI1
LASCI1
+ASCI1
LASCII
+ASCI1
LASCII
.ASCI1
LASCILI
.ASCI1
.ASCI1
CASCII
+ASCI1
+ASCI1
LASCIL
LASCII
ASCI1
JASCII
_ASCII
ASCII
LASCI1
.ASCI1
LASCII
LASCI1
LASCI1
LASCI1
LASCIL
LASCII
LASCII
CASCII
.ASCIl
LASCII
LASCI1

/TLE/
/RR-/
/ IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.8/
/MTY/
<00><00>
/XINY/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.A/
/L0C/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/SER/
/V0 /
/ENT/
/RY /
/(Pl/
/P S/
/ET)/
<00>
/INX/
/ASF/
/TLE/
/RR~/
/ IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/SER/
/Vv0 /
/ENT/
/RY /
/(ER/

VAX=11 Bliss=16 V3-555

SEO 99

SPIDERSUSERS: CNEALE .AZTECICZRCH2. 816 2 (13)

CZRCH2

CZRCH RC25 DISK FORMATTER

11=Jul-1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
005341
005344
005347
005350
005353
005356
005361
005364
005367
005372
005375
005400
005403
005406
005411
005414
005416
005421
005424
005427

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

040
124

123
051

116
044
114
122
11
117
m
105
131
124
056
116
000
116
044
114
122

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

P.ACN:

045
106
105
055

P.ACO:

005440
005443
005446
005451
005454
005457
005462
005464
005467
005472
005475
005500
005503
005506
005511
005514
005517
005522
005525
005530
005532
005535
005540
005543
005546
005551
005554
005557
005562
005565
005570
005573
005576
005600
005603

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

m
105
131
124
056
103
000
116
044
114
122
m
17
m
105
131
124
056
124
000
116
044
114
122
m
117
m
105
131
124
056
114
000
116
044

123
116
040
040
122
126

005432
005435

040
103

m
117

7-Jul=1983 08:21:37

+LASCI1
LASCI1

045
106
105
055
116
116
123
116
040
040
101
116

P.ACP:

045
106
105
055
116
116
123
116
040
040
117
116

P.ACQ:

045
106

P.ACR:

/R S/
/ET)/

LASCII
.ASCII
JASCI1
LASCII
+ASCII
LASCII
LASCII
LASCI1
LASCI1

<00>
/XINX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/

LASCII
.ASCII

<00><00>
/INX/

LASCILI
ASCI1
JASCII
+ASCII

116
116

LASCII1
LASCI1
.ASCI1
LASCI1
JASCII
LASCII
LASCI1
LASCII
ASCI1
LASCII
+ASCI1
LASCII
,ASCII
JASCII
ASCI1
.ASCII
ASCI1
LASCII
-ASCII
LASCII
LASCIL1
LASCI1
LASCII
LASCII
LASCI1
ASCII
LASCII
LASCII
+ASCI1
JASCII
.ASCI1
ASCII
LASCI1
CLASCII
CASCII
LASCII
<ASCII

LASCII
.ASCII
LASCI1

/CY /
/AT /
/U.S/
/END/

/ASF/
/TLE/
/RR=/
/ IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.R/
/ECV/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.A/
/TIN/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.0/
/NLN/

<00><00>
/INX/
/ASF/

’

VAX=11 Bliss~16 V3=555

SEO 100

SPIDERSUSERS: [NEALE .AZTECICZRCH2. 816 2 (13)

CZRCH2

CZRCH R(C25 DISK FORMATTER

11=Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
005606
005611
005614
005617
005622
005625
005630
005633
005636
005641
005644
005647
005650
005653
005656
005661
005664
005667
005672
005675
005700
005703
005706
005711
005714
005717
005720
005723
005726
005731
005734
005737
005742
005745
005750
005753
005756
005761
005764
005767
005772
005774
005777
006002
006005
006010
006013
006016
006021
006024
006027
006032
006035
006040
006043
006046
006051

124
122
040
114
101
104
105
105
040
056
122
000
045
101
124
122
040
116
055
123
105
117
101
120
124
000
045
101
124
122
040
104
101
105
104
125
105
101
125
117
000
045
101
124
122
040
105
114
116
040
120
103
125
105
11
040
056

114
122
m
105
114
040
121
123
050
121
121

105
055
114
107
040
122
125
124
125
104
051

116
044
114
122
106
103
120
124
122

045
106

124

040

122
122
101

116
044
114
122
102
040
103
124
105
105
104
124
056
116
000
116
044
114
122
125
130
101
105
104
122
040
123
116
117
050
056

P.ACS:

105
055
105
105
117
040
122

040

117
102

045
106
105
055
101
120
113
040
121
125
040
040
104
105

P.ACT:

045
106
105
0S5
116
120
M
104
055
117
123
120
123
116
125
124

P.ACU:

7=Jul=-1983 08:21:37

LASCII
.ASCI1
LASCII
.ASCII
LASCI1
.ASCI1
LASCII
LASCI]
LASCI1
LASCI1
LASCII
LASCII
.ASCII
LASCI]
LASCI1
LASCI]
LASCI]1
LASCI]1
LASCI1
LASCII
.ASCI1
.ASC{]
.ASCI1
.ASCI1
ASCII
LASCII
L_ASCII
LASCI1
ASCI1
.ASCI1
ASCI]
.ASCI1
LASCI]
LASCI1
.ASCI1
.ASCI1
LASCI1
LASCII
LASCII1
.ASCI1
LASCII
.ASCil
LASCI]
LASCII
.ASCI1
LASCII
LASCI1
.ASCI1
LASCI]
LASCI1
.ASCI]1
LASCI1
LASCII1
LASCI]1
LASCI1
LASCII
LASCII

/TLE/
/RR=/
7 1L/
/LEG/
/AL /
/D R/
/EQU/
/EST/
/7 (W
/.QD/
/RQ)/
<00>
/3NX/
/ASF/
/TLE/
/RR=/
7 FE/
/NCE/
/=P0O/
/ST /
/ERR/
/OR /
/AT /
/PRO/
/TAB/
<00>
/XNX/
/ASF/
/TLE/
/RR=/
/ BA/
/D P/
/ACK,
2V /
/DEQ/
/UEW/
/ED /
/AT /
/U.D/
/ONE/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 UN/
/EXP/
/LAl/
/NED/
/ D=/
/PRO/
/C S/
/USP/
/ENS/
/ION/
/7 W/
/..1/

VAX=11 Bliss=16 V3=555

SEO 101

SPIDERSUSERS:[NEALE .AZTECICZRCH2. 816 2 (13)

CZRCH2

CZRCH RC25 DISK FORMATTER

11=-Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
006054
006057
006060
006063
006066
006071
006074
006077
006102

105
006110
006113
006116
006121
006124
006127
006132
006135
006140
006143
006146
006151
006154
006157
006162
006165
006170

104
000
045
101
124
122
040
120
10

051

116
044
114
122
104
040
103

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

104
040
m
104
130
040
057
051
045
101
124
122
040
103
123
124
103

124
055
106
114
040
106
063
063
000
116
044
114
122
m
117
m
105
131

006176
006201
006204
006206
006211

125
124
000
045
101

056
123
000
116
044

006217
006222
225
006230
006233
006236
006241
006244
006247
006252
006254
006257
006262
006265
006270
006273

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

122
m
117
1M1
105
131
124
056
113
000
116
044
114
122
m
117

055
116
116
123
116
040
040
123
17

006307

101

1264

040

006173

006214

006276
006301
006304

006312
006315
006320

105

123

101

1264

123
124
103

125
113
000

1264

114

m
105
131

056
123
000

P.ACV:

P.ACW:

P.ACX:

105

103
126

/DS)/
<00>
/XN%/
/ASF/
/TLE/
/RR=/
/7 DU/
/P P/
/ACK/

+ASCII
LASCII
+LASCI1
LASCII
LASCIL1
LASCI1
LASCII
LASCII
.ASCII
LASCII
LASCII
+ASCII
LASCII
.ASCI1
CASCII
<ASCI1
CASCII

/D=Q/
/7 FA/
/ILE/
/D (/
/XFC/
7 34/
<57>/35/
/)/<00><00>
/INY/
/ASF/
/TLE/
/RR-~/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /

+ASCI1

110
124

045
106
105
055
116
116
123
116
040

LASCI1
LASCII1
.ASCII
+ASCI1
+ASCI]l
+ASCI1
+LASCI1
.ASCI1
LASCII
LASCII

040

045
106

7=-Jul=1983 08:21:37

JASCII
JLASCII
LASCII
(ASCII
LASCI1

LASCII

P.ACY:

+ASCI1
JASCIL1
+ASCI]
LASCI1
LASCI1
LASCIL
LASCIL
LASCI1
LASCI1
.ASCII
.ASCII
JASCII
LASCII
ASCI1
CASCII
.ASCI1

CASCI1
+JASCII
CASCII

<ASCII

.ASCI1
CASCII
LASCII

/ET /

/AT /

/U.H/
/TST/
<00><00>
/INX/
/ASF/

/TLE/

/RR~/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.S/
/EKO/
<00><00>
/XINX/
/ASF/
/TLE/
/RR=/
/ IN/
/CON/

/S1S/
/TEN/
/CY /

/AT /

/U.C/
/KSV/
<00><00>

VAX=-11 Bliss~16 Vv3=555

SEO 102

SPIDERSUSERS: [NEALE.AZTECICZRCH2. 816 2 (13)

006570
b b ed ad wd b O b b O = 2 O

P.ADC:
Py S Gumg g Smg g Bumg g S Smug Brmg Deg Pt Py G
Sy e Gumng Sumng g S Srung g e S D
g Gy Buvmg P

+ASC

.AS

-AS

P.ADA:

+ASC

S Do P Buug g Gmg B S g Guoug Gt B $unng G Dumg g $rng Pug Sump Smg g Song By S $mg $mng g g By Bmg
ey g e g ey Boemg Bmug Sumng Sumeg B
g S S Bt S Sumg St P Sunep S B e Sup g S S S S Bt By

[gn]

ed
OO b b d ik md i s =d O i
S OON
O =200
WN Voo
VIVION
VO S OHWN—=00N
N

P.ACZ:

Samg g Pung e Smmg g g D Guug Py G S
Onp Gug Gmmg S Py g Smp S Bomg g Buneg S

P.ADB:

w
lalalatlalalalatalalalalatlatalatatalalel

106

OODLO=O
VWO NS

-t e O b b b

045

=S NONIWO SO NOOAONOONINONO
R = =NOOH
V= B NO WO NS VMO WNO WS =2 NS NN SO NOMWNNVONWVT

122

-t ad cod b d =k D) b e D D

bbb e b b b b ed D
O O b d = B O =
ON=O==ONON
SN0 ==0=8HN
SO NLOOWSNSSNOONN=,:OW

006322
006325

e e d d o e (D) b ek B OO bbb b bbb b e b O =
=S NORRNINNOOS=NIN=SR
S
S N= NSO WSO
WO
=00 VINSS

(=] OOOO—=O=

CZRCH2

b o e o

o P o Y - b () b b ) b b e e b b (D
b ed ed )b Ot b b O b wd e OO b = b VP
=S
ANNNOB =D OMNI=NINO
O =—=0O =S5O NNOHOONO=O—=O
N NO
SNW=O=ONNWONSH
= NO NN—= S OVIOWON O NVNNONH

REV A PATCH 00
GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER

/C0D/
/E/<00><00>

/TLE/
/RR=/
/0./
/CSF/
/ FO/
/UND/
/ 1L/
/LEG/
/AL /
/0PC/
/0DE/
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
/WN /
/8AD/
/ DR/
/1VE/
/ ST/
/ATYU/

/AINY/
/ASF/

/S A/
/T D/
/.DS/

/78/<00>
/INX/
/ASF/

/TLE/
/RR=/
/ 1L/
/LEG/
/AL /

/XFC/
/ EX/
/ECU/
/TED/
/ 8Y/

/ DM/

\ S}

NNO

(=
(1

OO
©CoCo
[V 1V ]

11=Jdul~1
7=Jul=1

SEQ 103
Page
38
V3=555
VAX=11 Bliss=16
(13)
;2
ERS
TECICZRCH
2.816
SUS
: [NEALE.AZ
SPIDER

007036
101

kO = OO =

OO = e ed = O = = O

.AS

.AS
S

Y ST Y

g Bong g e B Prmeg Pug

ey Sy Wy WPy Sy iy sy Sy ey ey ey ey ey Y

g funng oy By Sumg Sumg B

P.ADF:

i D S

e L Ll

e L L

$ung

g Prumg Srumg

.AS

[

w
<
alalalalalatlalslalisialinls)
S
g g P Sy Duneg e Sy g e g g Bmecp Bt g St By $umng Prmeg

P.ADG:
>

OONMWN
OO S WINOWVMVION W

OO
= QD edad b QOO
== O
OVINESENOO
VOO SN

NNOWVI=SVIVISESNS
SO

P.ADD:

NN=VNONESRNIENDS
2o VOO RO =O=RSR NS NOON
ORI NS WO OO VMO NV
VIO M= O O
WO
VIOV

ek OO O = O

OOSPOSDN=SN=SNARO

P.ADE:

S WO NO VIOV

o NE

ek ek (D

DOOWNM=ONOINNS NS NSNS

-t ) et
= O =t = O
=R
NOOES

D=V

b e () =D b b b
b e b OO b
OOHOONO—=ON)
=

006573
006574
006577
006602

—l—-l—l-—l—l—l—lo-bo-lo—I—AO-J—l-d—l-l—b—l—l-l—.—lo-Jd-d-l°—l-ld-h-—l—l—l-l°d
P
BN
= BN = OONOON = =2NININ—=ONON
B =N =2 D NNO
=2 =2 =) = g

b nd b wnd b e

O b ) = Sd
d —d b
b = (O O = e
on HenN NNOH =000
S 2SN
wo VIS WSO NNWVIONWNO on D=2 NNO

OO —d b o
HO

CZRCH2
REV A PATCH 00
GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER
<00>

/INY/
/ASF/
/TLE/
/RR=/

<00>

/0 /
/P1C/
/KED/
/ UP/
/ A/
/2ER/
/0 S/
/CB./
/08/<00>

/ASF/
/TLE/
/RR=/
/ IN/
/CON/
/81S/
/TEN/
/CY /
/AT /
/D 1/
/DLE/
/ LO/
/0P/<00>
/INX/
/ASF/
/TLE/
/RR=~/
/ DM/
/ WO/
/RD /
/C0u/
/NT /
/ERR/
/0R /
/0N /
/HOS/
/T D/

/INX/

/SEN/

/MA/<S?>

/ECV/
<00><00>
/IN%/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
/WN /
/DIS/
/PLA/

/D/<57>/R/

- ALY

nNO

Q=
oo~

(Vv

hodood
0o 0o

11=Jul7=Jul-

VAX=-11 Bliss=16 V3-555
RS JCZRCH2.B16;2 (13)
: [NEALE .AZTEC
SPIDERSUSE

SEQ 104
Page 39

—d e O Q) =d b b wbd
NOHO 200N
S =2NO
SO WW

OO
b b b b wd b

124

107
B OO = OO == D

-AS
NI I

NI I
g $mg Drumng Boeg S
g g $umg Sureg P

Gumep g $omg Sng D
Py g Sy Gumg B

i Brng Srmp gt S Sng Pt By P D By B
P B
g St S $umg Gung o
g S D

Bumep By Sug
Smeet) G
g

b O b d d b b
—-2WVINOO=O
OSSO

/ASF/
/TLE/
/RR=/
/ U/
/P0OW/
/ER /
/UP /
/DIA/
/GNO/
/8T1/
/CS /
/FAl/
/LED/
<00><00>
/ANY/
/ASF/
/TLE/
/RR=/
/D /
/POM/
/ER /
/UP /
/DIA/
/GNO/
/5T1/
/CS /
/FAl/
/LED/
<00><00>
/INX/
/ASF/
/TLE/

/TE/<00>
/ANY/

/G 1/
/N P/
/.0F/
/LN /
/STA/

/ NO/
/T F/
/AUL/
/TIN/

/1VE/

OO0

/ 0./
/DFL/
/1/<00>
/XINX/
/ASF/
/TLE/
/RR=/
/ DR/
OO0

SPIDERSUSERS:[NEALE .AZTECICZRCH2.816; 2 (13)

VAX=11 Bliss=16 V3=555

CZRCH RC25 DISK FORMATTER

CACNCNEN

GLOBAL TEXT SECTION

PP
NCUNPNNLNIN

g g By B
g Pmg Smeg G

O b d b e b wd b b ad () wd b D
SON =2
O=0ONVNOOSH
OO =2
HONNVINVIIONWN

IIICIIICIIICIICIIICICIOIOIOICICIOICICIIOIOIIICIOND

g S S amp oumg S
g By Sung oy P
B
g Gump Brsp Gump Srnp e B Bung Prup i

I I I OIICI I I

g Srmng g S
g B Bung D Brumg
g P P S Pmeg e g Sung S

I NI

-AS

et Dng g Sung Py S S S
Sty S S Sy By Bmg Bumug Pumg

O=H =20
S0 =N=

b b ) b b b

-AS

kD)= e

OuUP =k O NLSVOOS
D=0 = N=00ONOWWVMOW

NI NI

OQOH
VIOV

—t
b

Y o Y o Y S
g
e R Y
T ¥ o T Y
P R
e e e e R D
il TM L D
TM 4. TM Dt
=28 =OOONN==NN=ON
=N =2000NN = =NIN=MNIN) = H =ON) == NP S
SO OWV= NSO ORI NSNS OWNSWSO=O0ON
VNS SO WVESOANOO WO

OHLO=OONOO
=SVNOHOWNNWNS

REV A PATCH 00

SEO 105

CZRCH?
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

007311
007314
007317
007322
007325
007330
007333
007336
7341
007342
007345
007350
007353
007356
007361
007364
007367
007372
007375
007400
007403
007406
007411
007414
007417
007422
007425
007430
207433
007436
007441
007444
007447
007452
007455
007460
007463
007464
007467
007472
007475
007500
007503

122
040
101
105
103
104
101
125
000
045
10
124
122
040
056
122
11
104
125
045
101
124
122
040
123
104
056
103
122
107
105
040
103
123
124
103
000
045
101
124
122
040
113

122
101
120
122
101
040
m
122

055
104
124
040
122
106
114
105

116
044
114
122
105
124
040
115
040
124
116
044
114
122
125
105
057
122

045
106
105
055

007511
007514
007517
007522
007525
007530
007533
007536
007541
007542
007545
007550
007553

127
124
040
101
116
124
056
103
000
045
101
124
122

7506

127

103
115
124
105
117

000
045

106
105
055
056
116

1M1
040
101
111
117
1M1
105
131

116
044
114
122
125
116

045
106
105
055
116
117

101
122
122
123
040
040
122
124

1A
126
105
117
101
104
126
000

116

116
044
114
122

P.ADM:

125

105
040
116
122
104
116
116
123
116
000

126

P.ADL:

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

/RR=/
/7 AD/
/APT/
/ER /
/CAR/
/D F/
/AIL/
/URE/
<00>
/IN%/
/ASF/
/TLE/
/RR=/
/ EC/
/.TM/
/R T/
/IME/
/D 0/
/UT/<00>
/XNX/
/ASF/
/TLE/
/RR=/
/7 U./
/SEN/
/D/<57>/U/
/.RE/

.ASCI1
.ASCI1
.ASCI1
LASCII
.ASCI1
<ASCII
LASCII
LASCI1
LASCII
.ASCII
JASCII
CASCII1
.ASCII
LASCII
<ASCI1

/RIN/
/G R/
/EAD/
/7 IN/
/CON/
/SIS/
/TEN/
/CY/<00>
<00>
/XINX/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/

CASCII

P.ADN:

040

045
106
105
055

11-Jul-1983 16:05:07
7-Jul-1983 08:21:37

CLASCII

P.ADO:

ASCII
ASCI1
CASCI1
.ASCII
LASCII
LASCLI
LASCII
LASCI1
LASCII
.ASCII
JASCII
LASCII
.ASCII

/CV /

/WN /

/WAl/
/TRV/
/ RE/
/ASO/
/N A/
/T D/
/.RV/
/CT/<00>
<00>
/XNX/
/ASF/
/TLE/
/RR-/

SEQ 106

VAX-11 BlLiss~16 Vv3=555
Page 41
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.B16;2 (13)

056
103

104
117
106
104
114
105
040
104
105
117

040
124
m
040
117
123
125
117
040
116

116

045

105
114
122
113
116

044
114
122
125
126
040

1M1
104
107
115
127

124
106

114

106
105
055
056
105
106
116
123
113
117
114

107
040

101

000
045

106
105
055
056
123
11

P.ADQ:

ASC

«ASC

124
M
040
101
122

.ASC

105
101

105

000
116
044

000
045
106

124
040
1M
104
107
115

123
M
124
m
040
101

114
122
125

P.ADP:

105
055
056

044
114
122
125
105
040
125
040
105
124

000

<AS

000

104

[

040

+AS

P.ADR:

Gt Do Bng g e D G S
g Boumg Gomg
g By G Dy S Bng Smett St Smeg $ueg g

104
122

w
CIICIICICICIICIOIICVNCIOHIOV
D
g Surmg (rep Pumg g Py Pung Sumg Gumug Gy Pumg Py ey P Sy Gump Dy Srung g Boung g e $ug Brg g Bneg S B e g G Sumeg) Sy By P S P $uneep B Srmeg S Gy Dug g e P
Sy S Gmg g Smg By Gumg Sumg $umg S Pumg Dy Gumg g S
g g Sumg Gumg g g Sung Prug Gug S
g g g Boveg) S Png g By B Smg Smg B S Sngp Pneg Bumg $rmg Pung B
g S

010026

/ D./
/ARC/
/S D/
/1D /
/NOT/
/ F1/
/ND /
/7CLO/
/SES/
/T U/
/NDO/
/NE /
/10N/

/€/7<00><00>
/IN%/
/ASF/
/TLE/
/RR=/

/SEE/
/K F/
/0UN/

/D S/

/EEK/
/ 10/
/ 1L/
/LEG/
/AL /
/TRA/

/CK/<00>
/INX/
/ASF/
/TLE/
/RR=/

/ U./
JHTS/
/T 1/
/NIT/
/ D1/
/AG /
/DMA/

/ILE/

/0/<00><00>
/XNY/
/ASF/
/TLE/
/RR=/
/ U./
/HTS/
/T 1/
/NIT/
/ D1/
/AG /
/DMA/

WO
NN

oo
e

nNO

O =
oo~

V0O

GLOBAL TEXT SECTION

O—‘—'NbNNO?

b b
wrd b rd b e ) b cash and b O
et Okt ek O
b kD
b OO
Ot
O =
d O
md d b OO b b b b = O b mh =
OW= = NINO = =20 ~
ONNO
PO
COH =N NNLOKOD
= H =200 H NSO
=2 VNS =200V NWNWONS
VIO
S WWOO O = N=0O
N =00 HfOON”2NHR=O0O=20H=00 S OONS

007556

CZRCH RC25 DISK FORMATTER

1M=Jul7=Jul-

CZRCH?

REV A PATCH 00

9
-—d -=d

SEQ 107
42
Page
V3-555
Bliss=16
VAX=11
(13)
.816:2
JCZRCH2
.AZTEC
USERS
[NEALE
:
SPIDERS

CZRCH2

CZRCH RC25 DISK FORMATTER

11-Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
010031

010034
010037
010042
010045
010050
010052
010055
010060
010063
010066
010071
010074
010077
010102
010105
010110
010113
010116
010121
010124
010127
010132
010135
010140
010142
010145
010150
010153
010156
010161
010164
010167
010172

010175
010200
010203
010206
010211
010214
010216
010220
010222
010224
010226
010230
010232
010224
010236
010240
010242
010244
010246
010250
010252
010254
010256

040
115
122
106
114
000
045
101
124
122
040
123
122
117
104
123
105
123
040
104
123
120
116
040
124
045
101
124
122
040
123
122
1
105
101
117
123
122
104
004736°'
005016°
005064°
005132°
005200°
005264°
005350°
005416°
005464°
005532°
005600°
005650°
005720°
005774°
006060
006140’
006206
006254

103

120
105
101
105
000
116
044
114
122
125
131
040
125
040
056
122
105
101
040
056
116
117
123
000
116
044
114
122
115
124
040
11
123

103
040
123
124
000

117
101
040
m
104

7-Jul=1983 08:21:37

<ASCI1

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

P.ADS:

045
106
105
055
101
105
104
126
040
114
101
105
105
000

P.ADT:

P.ACG:

LASCI1
.ASCI1
LASCII
+LASCII
LASCII
.ASCII
+JASCII
JASCII
.ASCII1
LASCII
LASCLII
ASCII
-ASCI1I
CASCI1
ASCII
LASCI1
LASCII
LASCI1
.ASCI1
.ASCI1
LASCII
.ASCII
+ASCI1
.ASCII
.ASCII
CASCII
LASCI1
.ASCII
ASCII
LASCIl
+ASCII
.ASCI1
CASCII

+ASCII
.ASCI1
.ASCI1
<ASCI1
.ASCII
.WORD
WORD
+WORD
WORD
.WORD
+WORD
+WORD
.WORD
.WORD
WORD
.WORD
WORD
.WORD
.WORD
.WORD
LWORD
JWORD
.WORD

/7 CO/

/MPA/
/RE /
/FAl/
/LED/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
7/ U./
/SYD/
/R F/
/OUN/
/D S/
/S.D/
/ER /
/SET/
/ AN/
/D S/
/S.S/
/PN /
/NOT/
/ SE/
/1/<00>
/XINX/
/ASF/
/TLE/
/RR=/
/7 mA/
/STE/
/R D/
/R1V/
/ES /

/ACL/
/0 A/
/SSE/
/RTE/
/D/<00><00>
P.ACH
P.ACI
P.ACJ
P.ACK
P.ACL
P.ACM
P.ACN
P.ACO
P.ACP
P.ACQ
P.ACR
P.ACS
P.ACT
P.ACU
P.ACV
P.ACW
P.ACX
P.ACY

VAX=11 Bliss=16 V3-555

SEO 108
43

SPIDERSUSERS:[NEALE.AZTECICZRCH2. 816 2 (13)

CZRCHZ

REV A PATCH 00

010260
010262

006322°*
006374
006444
006524
006574°
006644
006716
007006°
007070
007150°
°
007224
007300°
007342°
007400°
"°
007464
007542
007630°*
007710°
007770°
010052
010142°

.WORD
.UORD

b e e ) e = ) =d b
d b b A OO D d b
b wd O = ek b O D
=SSN
2
NN =O =00 2O RO
bt b N =
QO B ONNIVION S N WNWVINWVIWVIN) =8 = YN NV
OO

prardter

Qhur hur Guur P

e Puer-Paur Qw4

elelelelelelelelelele]

P.ACZ

P.ADA
P.ADB
P.ADC
P.ADD
P.ADE

P.ADF

101
125
105
106

040
103
123
125

P.ADV:

101
126

1M
101

P.ADW:

103
1i5
104
000
101

117
101
045

107
116
126
114
114
116
101

1
040
1M
101
105

040

122

116

117

127

107
116
125
101
105

000
101
117
101

040
045

/XA /

/SUC/
/CES/
/SFU/
/LIN/
<00>

/XAl/
/NVA/

104

000
116
122
11
040
m
102
045
000
120
107
115
117

040

P.ADG
P.ADH
P.ADI
P.ADJ
P.ADK
P.ADL
P.ADM
P.ADN
P.ADO
P.ADP
P.ADQ
P.ADR
P.ADS
P.ADT

116

113
116

SEO 109

SPIDERSUSERS:[NEALE .AZTECICZRCH2.B16; 2 (13)

CZRCH RC25 DISK FORMATTER

GLOBAL TEXT SECTION

045

VAX=11 Bliss=16 V3=555

/LID/
/ €0/
/MMA/
/NDX/

P.ADX:
.ASCII

/N/<00>
/XAN/
/0 R/
/EGL/
/0N /
/AVA/

P.ADY:

/IN/<00>
/XAN/

P.ADZ:

/LEX/
/N/<00><00>
/XAP/

/0 R/
/EGl/
/ON /
/SU1/
/TAB/

/R0G/
/RAN/
/ _NO/
/T K/
/NOW/
/NIN/

CZRCHZ

REV A PATCH 00

RISSR

P.AEA:

P.AEB:

P.ADU:

<00>
/XAL/
/0AD/
/ FA/
/7ILY/

/REX/
/N/<00><00>
/%AS/

/TAN/
/DAL/
/ONE/
/XN/<00>
<00>
P.ADV
P.ADW

HSNOO
VMBI WVIW

P.AEF:

== NONNOSN=20ONIN)
OSSO
VIOWNM=O0N WV

P.AEG:

— ) = ad b —d

—d el ad bk = O

b b b b

Ouicdadeaded

Ootededad

) =d b b

SO=OO0=O0ONON
N=t NS = =20WWWWN

P.AED:

NN DO
NNOWVO
=

—n-.A-A-n—noo-n—a—.Q.ao-.-.—oc—ao-n-b-hc-n-ng

OO
et ad O b b = e = O wd and b b ced = ) wed v} b b b e b b b b
OPO=O=OOO===000NO
=000~ 0O=NO=IVOO
OWVIN = =2 =2 = OWVH N= = O MO WN=0O D UNWN SO =0 W~

P.ADX

b
aud oud
-—t
= O
L R
N )
- b S
OQO=OOHMROCOOOWV=
N =0 O/ =20200
V=2 N =2 WNO WV = =
ON NN OO VO VOV NI NIO = NWVNOR OV O SO

010735

Ot
d = OO b ed b b
OO ==NOHNVOO
=
OWVISONMNO
WV
=

000
045
117

045

......

GLOBAL TEXT SECTION

—d O
[« Y pur gy
OH =0
OWNNESESVONN=O

010503
010504
010507
010512
010515
010520
010523
010526
010531
010534
010537
010542
010545
010546
010550
010552
010554
010556
010560
010562
010564
010567

SEO 110
Page 45
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH2.B16;2 (13)

CZRCH RC25 DISK FORMATTER

P.AEE:

P.ADY
P.ADZ
P.AEA
P.AEB

/XAS/
/Ucc/
/ESS/
/XIN/<00>
/IA1/
INVA/
/L1D/

1.0/
I.I'I'U\.
~I‘

IND&/

/N/<00>
/XAC/
/0MM/
/AND/
/ AB/
/0RT/
/EDX/
/N/<00>
/XAY/
/N1T/
/=0F/
/FL1/

P.AEHM:

/NEX/
/N/<00><00>
/XAU/
INIT/
/=AV/
/AIL/
/ABL/

/EXN/

P.AEI:

<00><00>
/XAM/
/ED1/
/A F/

/0RM/

/AT /
/ERR/

CZRCH2
REV A PATCH 00
010740
010743
010746
010751

010754
010757
010762
010765
010770
010772
010775
011000
011003
011006

01101
011014

011017
011022
011025
011030
011033
011034
011037
011042
011045
011050
011053
011056
011061
011064
011067
011072
011075
011100
011103
011106
o1
011114
011117
011120
011123
011126
011131
011134
011137
011140
011143
011146
011151
011154
011157
011162
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
m
105
101
104

107
123

C2ZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
122
000
101
m

040
117
103
104
000
101
115
122
105
117

045
000
127
124

P.AEJ:

120
124
124
045

103

120
105
122
122

P.AEK:

116
101

000
104

101
123
102
106
040
103
123
122
122
000
101
116
117
105
105
117
116

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

P.AEM:

101
111
040
122
045

104
126
105
117
116

P.AEO:

101
123
107
106
115
116
116
122
114
m
116
124

115
123
105
122
040
040
124
116
040
101
117
1m

P.AEP:

124
105
117
116

101
122
122
000

P.AEL:

P.AEN:

11~-Jul~1983 16:05:07
7-Jul=-1983 08:21:37
.ASCI1
LASCII
.ASCII
.ASCII

/ORX/
/N/<00><00>
/XAW/
/RIT/

LASCII
.ASCII

/XN/<00>
/XAD/

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

LASCII
.ASCI1
+ASCI1
LASCII
LASCII
,ASCII
LASCI1
ASCI1
.ASCI1
LASCI1
ASCI1
«ASCI1
+ASCI1
LASCII
LASCII
.ASCII
<ASCII
LASCII
ASCI1
LASCI1
+ASCI1
LASCI1
LASCII
.ASCII
LASCII
.ASCI1
+ASCI1
LASCI1
LASCII
.ASCII
LASCII
JASCI1
.ASCI1
LASCII
LASCI1
ASCI1
-ASCI1
LASCII
LASCII

LASCI1
LASCIL

/E P/
/ROT/
/ECT/
/EDX/
/N/<00>
/XAC/
/0MP/
/ARE/
/ ER/
/ROR/

/ATA/
/ ER/
/ROR/
/XN/<00>
<00>
/XAW/
/0ST/
/ BUW/
/FFE/
/R N/
/CCE/
/SS /
/ERR/
/ORY/
/N/<00><00>
/ZAC/
/ONT/
/ROL/
/LER/
/ ER/
/ROR/
/XN/<00>
<00>
/XAD/
/RIV/
/E E/
/RRO/
/RIN/
<00>
/3AM/
/ESS/
/AGE/
/ FR/
/0M /
/AN /
/INT/
/ERN/
/AL /
/DIA/

/GNO/
/STl/

SEQ 1M

VAX=-11 Bliss=16 V3=555
Page 46
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.816;2 (13)

CZRCH2
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

011204
011207
011210
011212
011214
011216
011220
011222
0112264
011226
011230
011232
011234
011236
011240
011242
011245
011250
011253
011256
011261
011264
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

103
000
010564°
010600°
010624
010650°
010672
010716°
010746°
010772°
011014*
011034°
011072°
011120°
011140°
105
105
104
105
115
104
131
131
000
045
101
040
104
1
101
125
124
124
106
115
040
101
122
116
000
045
101
124
122
040
1M
103
105
105
116

045

011413
011416
011424
011427

0114610

0114621

0114632

116
P.AEC:

116
122
101
040
115
104
131
076
000
116
116
101
m
117
114
116
123
117
117
101
055
102
124
107

124
040
124
074
055
055
131
040

P.AEQ:

045
117
104
124
116
040
13}
040
040
122
124
040
117
11
000

P.AER:

116
044
114
122
11
124
117
040
055
124

045
106
105
055
116
040
104
122
105
105

P.AES:

040
105

104
040

125
124

127
106

122
101

122

117
114

105

040
000

104

120

040
m

11-Jul-1983 16:05:07
7=Jul=1983 08:21:37
LASCI1
LASCI1
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
.WORD
WORD
WORD
.ASCII
+ASCI1
.ASCI1
LASCII
LASCII
+ASCI1
LASCIL
LASCIL
LASCII
.ASCII
+ASCII
LASCI1
LASCI1
LASCII
+ASCII
+LASCII
LASCI1
LASCI1
.ASCI1
LASCI1
ASCII
.ASCI1
+LASCII
.ASCII
LASCI1
.ASCII
LASCII
CASCII
.ASCI1
LASCI1
CLASCIL
.ASCI1
LASCII
JASCII
<ASCI1

/CXN/
<00>
P.AED
P.AEE
P.AEF
P.AEG
P.AEH
P.AEl
P.AEJ
P.AEK
P.AEL
P.AEM
P.AEN
P.AEQ
P.AEP
/ENT/
/ER /
/DAT/
/E </
/MM=/
/DD=/
/YYYV/
/Y> /
<00><00>
/INX/
/ANO/
/7 AD/
/D1T/
/I0N/
/AL /
/UN1/
/7S /
/70 /
/FOR/
/MAT/
/ =/
/ABO/
/RT1/
/NG/<00>
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ IN/
/1T /
/COD/
/E R/
/E-E/
/NTE/

-ASCI1
LASCIT

/7 DU/
/E 1/

+ASCI1

LASCII

LASCII
LASCIL

LASCI1

/RED/

/0 P/

/WR /
/FAL/

/L/<00>

SEQ 112

VAX=-11 Bliss=16 V3=555
Page &7
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.816;2 (13)

48
VAX-11 Bliss=16 V3-555
)
(13
16 ;2
RS
.AZTECICZRCH2.B
RSUSE
: [NEALE
SPIDE

CZRCH RC25 DISK FORMATTER

GLOBAL TEXT SECTION

CZRCHZ
REV A PATCH 00

i el
[eTelelelatalelelotololololo oo lolalelelelalalelalelelolelelalalalolallelalalo

TN IOWNO
T ONOO = O TOWNENE
N FOUON -~OM~ONEYNONAINM

Gmeg Sung Sung Sumg g Guveg Gung Sung Smeg Sumng umg Gung GumgSumg Bumg Gu g Sung Gumeg Pumg S Srng S Smng Sung S Sumg Gy Smg) g Sumg Gung Sumg g Gung Gumg g Srung Sung g S Sy Grng Sung Sung Sng Snug Sumng S g S Smg$mg Smng Sung g S Seg

3 v o (=] A

[elelelolalels]

SEQ 113
Page

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37

CZRCH RC2S DISK FORMATTER
CZRCH2
REV A PATCH 00 GLOBAL TEXT SECTION
011703

011706
011711
011714
011717
011722
011725
011730
011733
011736
011741
011744
011746
011751
011754
011757
011762
011765
011770
011773
011776
012001
012004
012007
012012
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
012132
012142
012145

012150

062

103
124
114
122
116
MM
1M
124
116
122
122
045
101
124
122
040
117
103
040
117
124
116
122
122
045
101
124
122
040
115
116
101
117
101
101
116
040
122
000
045
101
124
122
040
120
105
105
101
11
040
124
040
11
101
132

107

065

117
122
114
040
1M1
101
132
1M1
040
122
000
116
044
114
122
120
124
117
126
114
1k
040
122
000
116
044
114
122
103
115
111
124
116
122
040
111
105
117
000
116
044
114
122
104
040
122
122
103
126
101
105
11
124
114
11

000

040

LASCII

116
117
105
111
124
114
101
117
105
117

045
106

P.AEX:

045
106
105
055
117
125
103
1M1
040
105
11
124
122
122

P.AEY:

045
106
105
055
125
123
126
040
124
105
106
122
116
111
111
116

P.AEZ:

105
0SS
122
117
114
111
101
117
105
117

LASCI1
ASC11
ASCI]
LASCI1
LASCII
LASCII
LASCI1
LASC11
LASCI1
.ASC1I
LASCII
.ASCII
LASCI]1
LASCII
LASCI]1
ASCI1
LASCII
LASCII
LASCI1
.ASCI]
LASCII
.ASCI]
.ASCI1
LASCII
.ASCII
LASCI1
LASCI1
LASCII
ASCII
LASCI1
LASCI1
ASCI1
.ASCII
.ASCI]
LASCII
ASCI1
.ASCI]1
.ASCI1
LASCII
.ASCI1
LASCII
LASCI1
LASCI1
LASCI1
ASCII
LASCI1
ASCII
LASCI1
LASCI]1
LASCII
LASCI1
ASCII
LASCII
LASCI1
LASCI1

LASCII

/25 /

/CON/
/TRO/
/LLE/
/R 1/
/NIT/
/IAL/
/12A/
/TI0/
/N E/
/RRO/
/R/<00>
/3INX/
/ASF/
/TLE/
/RR=/
7 PR/
/0T0/
/coL/
/7 v1/
/OLA/
/T10/
/N E/
/RRO/
/R/<00>
/INX/
/ASF/
/TLE/
/RR=/
/7 co/
/MMu/
/NIC/
/AT1/
/ON /
/ARE/
/A 1/
/NIV/
/ ER/
/ROR/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
7/ DU/
/P S/
/ERV/
/ER /
/ACT/
/IVE/
7 AF/
/TER/
7 IN/
/1T1/
/ALl1/
/2IN/

/G/<00>

SEQ 114

Page 49
VAX=11 Bliss=16 Vv3=555
RS (13)
RCH2.B16;2
RSUSE
: CNEALE.AZTECICZ
SPIDE

b cumd

—

b b b md

N STLSTSTNT ST,8
W
W
H
N
W
o
~

(elelelelelelele]

b i

b () b b b b

b e

b b o

b b b e

b b D b =DL=

122

NNVO IV
=ONNVNO S NVINO D =ONNINWNO =
N =200 =00 =20 000020 =NOOONO=OON &~
WSRO/ OONOWVINIWSONIWNMO =VNNNOWVION 2O NNV
S OO VB VNN NWVWN S MWN = N0 o

b () b b d () e nd e () b ) b (D) b b md i () b b i

012342

— b b ) b b b b

N
~
o
o

b aud ad cud emd cud

elelelelelelelelelw]

124
122
124

050

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
122

105

114

105

115
105
051
000
062

040
040
122
m
105
040
104
105
000
062
m
105
125
040
103
122
104
105
000
062
106
L)

P.AFC:

P.AFE:
-AS

P.AFD:

.AS

Puesp Pumegp Bt G
gy Dt Sumgp g g Grumg oy Sump e umgp g Smg Gt Sunep B
ey Pumg Brumg Bumg By S Brmg S
S Buunp B Brup Sunng P St Srmg Grung P Bt g Py Dong Sug $ug B P
g Srng B Bunng B Bug $uep D G

g
By

wwn
alalalalalalalalalalslalalalslslalalatalalalalalals

-AS

g Srung S Sumg Bommp Pung B $ummg S Gt Py Gy e Gy P
g Gang Soumg Sungg Sumg Bong g g St By omg Gnug Bmp P S

P.AFB:

w nnunununnnn
NALLLUBOKLUVLLINKLL
alalalatalatatalalatalalalalalalalzlalalalzls] alalalalalalal

+AS

Snug Sumg Sung
Sumeg g ang

040
115
L]
)) >

P.AFA:

> >)>>>>)

Srumg Pt Py Bung S Sumg Govng Bvng Pug G P
g g S o) Pug Sunp S
g S e G

040
040
123
105
101

106
105
055
125
123
126
040
101
m
040
124
040
137
120
122
040
115
116
000
124
040
124
1M1

045

.
>

116
044
114
122
104
040
122
122
116
124
105
106
122
130
125
120
107
117
101
000
116
122
103
106

045
101
124

REV A PATCH 00

EIIIIS

CZRCH2

GLOBAL TEXT SECTION

CZRCH RC25 DISK FORMATTER
/ANY/
/ASF/
/TLE/
/RR=/
/ DU/
/P S/

/ER /
/INA/
/CT1/
JIVE /
/AFT/
/ER /
/EX_/

/ERV/

/SUB/
/_PR/

/706 /
/COM/
/MAN/
/ENT/
/ER /
/FCT/
/ F1/

/0/<00><00>

/NAM/
/E T/
/0 R/
/EST/
/ORE/
/ (F/
/ILE/

/LE /

/55/<00>
/RC2/
/5 1/
/DRE/

/NTE/
/RRUY/
/PT /
/VEC/
/TOR/
/ AD/
/DRE/
/55/<00>
/RC2/

WO
NN

- \N

nNO

O~
(-13

hodod
00 0o
W

1M=Jul7=Jul=-

VAX=-11 Bliss=16 v3=555

SPIDERSUSERS CNEALE.AZTECICZRCH2.B16; 2 (13)

SEO 115
50

no9

11-Jul-1983 16:05:07
7-Jul-1983 08:21:37

CZRCH RC2S DISK FORMATTER
CZRCH2
REV A PATCH 00 GLOBAL TEXT SECTION
012425
0126430
012633
012436
012441
012446
012447
012452
012455
012460
012463
012466
012471
0124764
012477
012502
012505
012510
012513
012516
012521
012526
012527
012532
012535
012540
012543
012546
012551
01255
012557
012562
012565
012570
012573
012576
012601
012606
012607
012612
012615
012620
012623
012626
012631
01263
012637
012642
012645
012650
012652
012655
012660
012663
012666
012671
012674

065
040
125
040
105
105
040
114
105
125
124
116
102
060
040
111
040
116
116
106
115
040
040
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
04
101
04
117
122
117
115

040
040
123
040
121
123
040
105
114
116
040
125
105
124
102
116
040
114
105
117
101
111
125
126
116
1064
105
122
126
117
000
116
052
052
052
052
052
052
052
040
1264
105
052
052
052
052
05¢
052
052
000
116
040
040
120
101
122
125

040
102

040
122
125
124
040
126
000
111
040
115
122
117
122
107
117
111
000
122
124
116
116
126
104
040
106
115
040
104
000
045
052
052
052
052
052
052
052
116
11
040
052
052
052
052
052
052
052

045
040
040
10°
124
040
123

ASCIL
"ASCI1

P.AFF:

P.AFG:

P.AFH:

P.AFI:

"ASCII
ASCII
"ASCII
"ASCI1
ASCIT
TASCII
ASCIT
.ASCII
CASCIT
TASCII
ASCIT
"ASCIT
"ASCII
"ASCII
ASCII
CASCIT
"ASCII
.ASCII
"ASCII
ASCIT
TASCII
CASCIT
ASCII
"ASCI1
"ASCI1
ASCII
CASCII
"ASCII
TASCI1
.ASCII
TASCII
ASCIT
ASCIT
TASCIT
ASCIT
ASCIT
ASCIT
"ASCIT
CASCII
"ASCII
ASCIT
ASCIT
CASCI]
ASCIT
ASCIT
ASCII
TASCIT
ASCIT
.ASCII
TASCIT
ASCIT
"ASCII
CASCII
CASCII
TASCII

SEQ 116

Page 51
VAX=11 Bliss=16 V3-555
SPIDERSUSERS:CNEALE.AZTECICZRCH2.B16;2 (13)

/5 7
7 B/

/uS /
7 R/
/EQU/
/EST/
7/
/LEV/
/EL/<00>
/UNI/
/T /
/NUM/
/BER/
7 TO/
7 BR/
/ING/
7 o/
/NLI/
/NE/<00>
/FOR/
/MAT/
7 IN/
/7 UN/
/ATT/
/END/
/ED /
/REF/
/ORM/
/AT /
/MOD/
7E/<00><00>
/INX/
/A%x/
/ave/
/aaw/
/%xx/
/#we/
/%xx/
/%xx/
/% N/
/0T1/
/CE /
/%%x/
/aex/
/we/
/%ee/
/aas/
/%ex/
/exx/
<00><00>
/INX/
/A /
7/
/OPE/
/RAT/
/0R /
/MUS/

)

000000
000000
000050

050052
000054

000056

000456

000736
001736
002316
002430

-2\

122

ONSNONVSONBONONNO

.AS
/ UN/
/=AT/
/TEN/
/DED/
/ RE/
/FOR/

/MAT/
/ MO/
/DE/<GO>

P
CT
.PSE
COM.AREA::
.BLK

HEAD.AREA:
:
.BLKW
RECEIVE. RING: :
BLK

SEND. RING: :

BL "

REC.ENVELOPE::
.BLKW

SND.ENVELOPE::
.BLKW

FCT.BUF::

.BLKW
REC.BUF::
.8BL
::
SND.BUF
.BLKW

::
OUTS$STD.BUF

.BLKW

002452
002466

FLG.WRD::

.BLKW

$GLOBS,
24
1

1
1

200
130
400

170
45

RO,

GBL

WO
NN

nNOo

O
oo~

.AS

RET.ENSAD::
.BLKW
DATETXT::

002450

b ad
=d b cmd b b seud e

P O=2N=NNNO
ONSONSONSWON

€

P.AFJ:
[ Y
Y
G
G
P
PS G
gl gur
=N =2 2
=
o S PINIOO

012755
012760
012763
012766
012771
012774
012777
013002
013005
013010
013013

012677

012702
012705
012710
012713
012716

GLOBAL TEXT SECTION
O=000 (=N
VWV
=0 N0o

REV A PATCH 00

11=Jul=7=Jul=-

CZRCH RC25 DISK FORMATTER

O= O = NIOOON
==
S=
VIV = IV
=N =000 0000

CZR CHe

VAX=-11 Bliss=16 V3=555

SEO 117

SPIDERSUSERS: CNEALE .AZTECICZRCH2. 816.2(13)

.BLKW

NRD.SLOT::
.BLK

002510

002514

002516
002520
002522

001377

002526
002530
002532
002534

000000
003400
003777
005777

002536
002540
002542
002544
002546
002550
002552

111033

010222
000010°*
023433
000000
043777
177400

b
-—

.WORD

.WORD
ISD.STRUCT::
.WORD
.WORD
.WORD
-WORD
-WORD
.WORD
.WORD
.WORD
.GLOBL
.GLOBL
.GLOBL

000126
000154°
000140°*
000011°
000140°*

.BLKW
RSVD.STRUCT::
.WORD
.WORD

PTBL.PTR::

002524

UNIT.NO::
.BLKW

RC25.ADDR::
.BLKW
VEC.ADDR::
.BLKW
BR.LEVEL::

002512

002506

002500
002502

000000

Omd

002476

NEX.FLAG::
BLKW
.BLKW
OVSA::
NXT.CRN::
.BLKB
.EVEN
RET.STATUS::
.WORD
.BLKW
LUN::
PID.SAVE::
BLKW
NSD.SLOT::

002472
002474

LSERRTBL==
LS$SW==

LSSOFT, TSPTHV, LSRPT, LSINIT
LSCLEAN, LSLAST, LSHARD, LSDVTYP
LSDESC, LSDU, LSAU, LSAUTO, M

ERRTYP

LSSWLEN+2
LSHWLEN+2
LSREV+1
LSHWLEN+2
LSSWLEN+?2

P.AAA
P.AAB

000270°

SEO 118

SPIDERSUSERS: CNEALE.AZTECICZRCH2.B16; 2 (13)

GLOBAL TEXT SECTION

002470

VAX=-11 Bliss=16 Vv3=555

CZRCH RC25 DISK FORMATTER

CZRCHZ
REV A PATCH 00

P.AAD
P.AAE

c10
7=-Jul=1983 0 8:21: 37

GLOBAL TEXT SECTION

P.AAF
P.AAG
P.AAH
P.AAl
P.AAJ

000400°
000476°
000544

COM.AREA+10
REC.BUF
+2

MSGADR==
PFE.STRUCT==

P.AAK

DP>DDD

SERVER
.OUP.IVE
INACT

FCT.REQ .MSG==
HW.Q1,IP==

LA FEA
FETR NN K XY

L YA TR TR

PRFN X

HW.Q2.VECTOR==
HW.Q3.BR==
HW.Q4.UN]T==
SW.Q1.UNATT==
SW.02.NOTICE==
SW.03.0PER==
SW.Q4.UNATT==

ACTIVE.DUP.SERVER=

NUYXE<C-DO

PROTO.VIOLATION==
PORT.INIT.ERR==

mmmmmmmmmm

Y
. UN]TS==
TO.MAN
GOOD .NUM,UNITS==
BOOT.FAILURE==

MR MMM

PWR.MSG==
ABO.MSG==

e TOTMOODI»

EMSG.STRUCT==
RC.STRUCTURE==
SDUP.STRUCT==
SMSCP.STRUCT==
DATMSG==
NO.ADD.UNITS==

CZRCHZ
REV A PATCH 00

11=Jul- 1983 1 6:05: 07

CZRCH RC25 D) SK _FORMATTER

PSECT SUMMARY
Psect Mame

AASCODE

$GLOBS
SPLITS

Words
59

Attributes
RO
1
.
RO . D .
)
RO |

694

2823

REL,
REL,

LCL,
GBL,

LIBRARY STATISTICS
File

SPIDERSUSERS
: [NEALE.AZTECICZRCHO.L16.5

-------- Symbols ===e=c-Total

Loaded

Percent

398

176

CON
CON
CON

VAX=11 Bliss=16 V3=555

SEO 119

SPIDERSUSERS: [NEALE.AZTECJCZRCHZ.B16 2(13)

COMMAND QUALIFIERS

BLISS /PDP11/L1ST CZRCHZ2.816

: Size:

: Run Time:

Elapsed Time:

0 code + 3576 data words
:24.0

07:35.7

HQMOf{ Used:
209 pages
Compitation Complete

:07
7
WO

11=Jul=1
7=Jul=1

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

[=
OO

CZRCH?
REV A PATCH 00

V0
Co 0o
[V 1V ]

D 10
VAX=11 Bliss=16 V3=555

SEO 120
5

SPIDERSUSERS [NEALE.AZTECICZRCH2.B16; 2 (15)

E 10

R R

EE I

A RAR N E M EE

M E

A E

XS T E T A I A TR YRTR

PRTR TR PR TR PR

F A LR VI

UM T TR

Y TR NI TN XN ¥

CZRCH3

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:05:44

7=Jul=1983 08:24:19

0001
0002
0003

MODULE CZRCH3 (2TITLE *CZRCH RC25 DISK FORMATTER'
IDENT = 'REV A PATCH 00°,
ADDRESSING_MODE (RELATIVE) .

0005
0006
888;

BEGIN
?sbttl

0004

0009
0010
0011
0012
0013

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE .AZTECICZRCH3. 816 3 (1)

ENVIRONHENT (NOEIS)
) =

*MODULE DECLARATIONS'

! Pretty Declarations
!
!<BLF/LOWERCASE_KEY>
!

88}?

Library 'CZRCHO';

.
'Define RC25 Library module

?gag

require °‘BLSMAC.REQ’;

!Define Bliss Macro Library

1506
}ggg

'+
.
L
.
; Structure declarations used within this module.

9
0
1

2
3
4

5
9

2
3

5
]

8
9

0
1

2
3

structure
‘e

RC25 register accessing structure. This
structure allows R(25 register accessing
to be transportable between the PDP-11 and
VAX Diagnostic Supervisors.
This

also

defines an access algorithm for

VAX to allow field reference to

: _space

without

generating

MBA address

machine

checks.

RC25 [0, P, S, E] =
begin
tocal
RCS$S_REG.;

RCSS_REG
= .(RC25 + Xupval*0)<0, Xbpval, 0>;
RCSS_REG
end
<P, S, BE>;

'<blf/page>

SEO 121

CZRCH3

CZRCH RC2S DiSK FORMATTER

I FETETETITEIEIETE IR

N FI

153

—b

1536

w
W
~

FE FN P FE TN XN ¥

REV A PATCH 00 MODULE DECLARATIONS
1
1S
1 22?
1
1 542
1 563
1

1545

1 gzg
1

7=Jul=1983 08:24:19

! The psect naned ‘code or_ $code$’’ is redefinded here
' to be called ‘‘aaScode’’.
This is done to force the tkb
! Linker to place the proarans header information starting
. at absolute address
Then for consxstenc ‘‘a$code’’
E is used inplace of ‘‘code or $code’’ across all modules.
psect
code = aaScode;
!+

; External

Routine declared outside this module.

1 49
1
1

1M=Jul=1983 16:05:44

external routine
DECODE : novalue,

LOAD_FILE;

'<blt/page>

VAX=11 Bliss=16 v3-555

SEO 122

SPIDERSUSERS:[NEALE .AZTECICZRCH3. 816 3 (2)

CZRCH3

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

:19

MODULE DECLARATIONS

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE .AZTECICZRCH3. 816 3 (3)

PR TNPR
P PRNFE XN TR NN TN FE TR ¥

‘e

i External Declaration of
!-

datums declared outside of this module.

external

? DM load file from Local media definitions
‘DH FNSEXT

AZFATR : vector [8892, word],
QVSA : word,

'DM file name ascii text
‘0M host buffer adrs
'Overlay section starting adrs

f Hardware question ascii string messages

HH Ql1_IP,

I E T A I ETEATETE YA

HW_Q2" VECTOR,
HW_Q3_BR,
HU
-Q4_
UNIT

'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 & for unit no. to format

: Software question ascii string messages
SU Q1_UNATT,

R AR X E

SW_Q2°
NOTICE.
SW_Q3_OPER,
UNATT
SU Q4_

!Unattended reformat software question
!Notice message
!Operator must be present in this mode
‘Running in unattended mode

Formatting print string

~O 000 O 0o 0o Co C3 0o 0O
=2 O VDNV~

b
e
b
d e
d o
b
-t e

PR FETR T FE T PR FI
TR PR PN
SRFN
FEATH SR FAFEFA IR
TN
A
LA TE TR IR

VIWVIAWVWWAILIWAW

;

FMT2,

FMT3,

!Notifies unit being formatted
'Notifies format abort

XCALF,

'Prints ten <CR><LF>

(RIF.

'<CRYCLF>

f Init code error and informational messages
NO_ADD UNITS,

PWR_MSG,
ABO_MSG,

T0_RANY UNITS,

GOOD_NUR_UNITS,

QATHSG.

!Message to ask operator for date

3 Miscellaneous external data declarations
FLG URD: bitvector [16],
PTBL PT

ref vector [4, word],

QATETXT : vector (12, byteJ.

g Supervisor defined data declarations
QSUNIT.
2 Hardware P_Table storage declarations

RC25_ADDR : ref RC25 tield (ISD_FIELD),

SEO 123

'Global flag word

!Storage for operator date input

H 10

CZRCH3

CZRCH RC2S5 DISK FORMATTER

REV A PAT(H 00 MTMMODULE DECLARATIONS
:

1611

M=Jul= 198% 16:05:44

7=Jul=1983 08:24:19

BR_LEVEL : word,

}g}%

l'JNrT_NO : word,

}g}g

| Software question response storage declarations

1616

SW_UNATT : word,

1620

iSD_STRUCT : blockvector [4, 2, word) tield (ISD_FIELD);

:
:

1617
}g}g
'

!
; Formatter data structures

vAX=11 Bliss=16 V3=5>5

SEO 124

SPIDERSUSERS [NEALE AZTECICZRCHS. 816 5 (3)

110

CZRCH RC25 DISK FORMATTER

CZRCH3
A PATCH 00 1YVt AND DESCRIPTION
REV

11=Jul=1983 16:05:

}gg%

!sbt\l *TYPE AND DESCRIPTION'

1624

: tuo lines of text will be printed to the ogerator (in addition to

}2%8

; ascii strings enclosed in parenthesises:

1625
1626
1627
1628

1631

the

DESCRIPT’® macro at start
! program name). The first will come from t
second wll come from
The
! ufi time and u1ll identify the diagnostics.
the °‘DEVTYPE'' macro at hardware dialogue time and will_identify the
|
! device under test. The arugments of both macros are 72 characcer

DESCRIPT (Yasciz’RC2S DISK FORMATTER®)

1632 DEVTYP (Xasci2'R(25 DISK DRIVE SLBSYSYEH')

SEO 125

SPIDERSUSERS:NEALE .AZTECICZRCH3. 816 3 (6)

7=Jul=1983 08:264:

:
:
:
:

VAX=-11 Bliss=16 V3=~555

J 10
CZRCH3

e 0c B

0s ®e 80 0 B0 BBV B0,

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
HARDWARE PARAMETER CODING

11-Jul=1983 1 6:05:44
7=Jul=-1983 0 8:264:19

?sbttl *HARDWARE PARAMETER CODING'
M

! The hardware
! that are used

SEQ 126

6
Page
VAX=11 Bliss=16 V3=555
3 (5)
ERS
.AZTECICZRCH3.B16;
: NEALE SUS
SPIDER

parameter coding section contains macros
by the supervisor
to build P-Tables.
The

! macros are not executed as machine instructions but are
! interpreted b‘ the supervisor as data structures. The
! macros allow the supervisor to establish communications
E with the operator.
BGNHRD;

GPRMA (Hw_Q1_IP, %0°0’'. O, %0°16000°, X0°'177777°, YES, 1);
!Get RC25 Controller IP register
GPRMA (HW_Q2_VECTOR, 20°2°, 0,.4 0'774°, YES, 1);
!Get RC25 Interrupt Vector address

GPRMD (HW_Q3_BR, X0'4', 0, %0 1707277, 9.°7. YES, 1.
lGet RC25 Bus Request P(1oritg
g:gngb(flu_oa_UNlr. %0°6'.°D, %0°177777*,°0, %decimali253¢, YES, 1);
'Get unit number to format

K 10
CZRCH3

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
SOF TWARE PARAMETER CODING SECTION

11=Jul=1
7=Jul=1

?sbttl *SOF TWARE PARAMETER CODING SECTION'®
‘e

!
!
!
!
;
:

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.

BGNSFT;

GPRML (SW_Q1_UNATT, 0, 1, YES, 1);

ENDSFT;

SEQ 127
Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: CNEALE .AZTECICZRCH3.B16

:39(6)

L 10
CZRCH3

1660
1661
1662
1663

The statistical report coding section contains_the PRINTS macros t hat
will be wused to generate statistical reports.
The "BGNRPT' and ‘END RPT®

macros

are used as_begining and ending directives for the codin? con=
tained in the section.
However, an externally located DORPT call, or
a_ print command from the operator, may be used to request the ex ecution of the report coding.

BGNRPT;

return;

LR PR TR

g Report summary coding is remote program driven
ENDRPT;

LTITLE
LJOENT

103
040
123
106
115
124

000

000024
000026

00031

000112
000114
000116

113
117
101
105

AASCODE,
/RC2/
/5 O/

/R/<00>

/RC2/
/5 b/
/IVE/
/ SW/
/BSY/

LASCI1
LASCII
LASCII
LASCI1

062

040

104

105
125
131

LASCI1
LASCI1
.ASCI1

123
104

113
122

124

105

CZRCH3 CZRCH RC25 DISK FORMATTER
/REV A /

.PSECT
LSDESC::.ASCII
LASCII

103

000

000031
00092006
016000
177777
001031
0000006
000004
000774
002032
0000006
177777
000000
000007
003052

062
104

LASCII
.BLKB
LSDVTYP::
LASCI1
LASCI1

126
123
123

000000C

SEQ 128
Page
VAX=11 Bliss~16 V3=555
.AZTECICZRCH 3.816:3 (7)
SUSERS
: CNEALE
SPIDER

?sbttl *REPORT CODING SECTION®

;
R IR YR YN

REPORT CODING SECTION

PEFTE YN

FETR XN TN T

REV A PATCH 00

11=Jul=1 9 83 16:05:44
7=Jul=19 83 0 08:24:19

CZRCH RC2S5 DISK FORMATTER

.ASCII1
.ASCII

LASCI1

LASCII
.BLKB
L$HRDLN::
WORD
GP$1::
.WORD
.WORD
.WORD
.WORD
GP$2::
.WORD
WORD
WORD
WORD
GP$3::
.WORD
LWORD
.WORD
MWORD
MORD
GP$4::
.WORD

/1SK/
/ FO/
/RMA/
/TTE/

/1ISK/
/ DR/

/STE/

/M/<00>
2

<<<LSNDHRD=LSHRDLN>/2>=1>
31
HW.Q1.IP
16000
-1
1031
HW.Q2.VECTOR
&
774
2032
HW.Q03.BR
-1

0
7
3052

CZRCH3

REV A PATCH 00

000120
000122
000124
000126
000130

177777
000000
000375

000132

000000C

000134
000136
000140
000142

000130
000000G
000001

000000

11=Jul=-198
7-Jul=198

CZRCH RC2S DISK FORMATTER

REPORT CODING SECTION

000000G

.WORD
.WORD
.WORD
.WORD
LSNDHRD: :
.BLKW
LSSFTLN::UORD

GP$5::

.WORD
.WORD
.WORD
LSNDSFT::

000064
000134°

LS$HARD==
L$SOF T==

000207

LRPT:

(¥ 1V]

M10
A

:19

VAX=11 Bliss=16 V3=555

SEQ 129

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (7)

Hg.O&.UNIT

0
375
1

:gaLSNDSFT-L‘SFTLN>/2>-1>
?H.01.UNATY

.BLKW

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

DECODE, LOAD.FILE, AZFMTR, OVSA
HW.01.1P, HW.Q2.VECTOR, HW.03.BR
HW.Q4.UNIT, SW.Q1.UNATT, SW.02.NOTICE

SW.Q3.0PER. SW.04.UNATT. FMT2

FMT3, CRLF. XCRLF. NO.ADD.UNITS
PWR.MSG, ABO.MSG, TO.MANY.UNITS
cooo NUM.UNITS, DATMSG, FLG.WRD
PTBL.PTR, DATETXT. LSUNIT

Rc25 ADDR. VEC.ADDR, BR.LEVEL

UNIT.NO, SW.UNATT, ISD.STRUCT

LSHRDLN+2
LSSFTLN¢2
.SBTTL
RIS

%gPT REPORT CODING SECTION

1659

: Routine Size:
1 word,
Routine Base:
AASCODE + 0144
: Maximum stack depth per invocation:
0 words

000000
000004
000006

004767
104425
000207

177772

.SBTTL
LSRPT:: JSR
TRAP
RTS

LSRPT REPORT CODING SECTION
sg.LRPT
PC

: Routine Size:
& words,
Routine Base:
AA$CODE + 0146
; Maximum stack depth per invocation:
2 words

1670

1675
1676

Xsbttl ‘INITIALIZE SECTION'
BGNINIT;

1678

!4+

1679

1681

! other

1684

| The

}ggg

; event flags are read using the ‘READEF’’ macro.

initialize code is executed under five conditions.

conditions

1692

START COMMAND

!
!
!
!

RESTART COMMAND
CONTINUE CCMMAND
POWERDOWN/POWERUP
NEW PASS

}ggg

;

Example of event flag use:

1700

1702

‘==

O »H

EF .STARTY

EF .RESTART
EF . CONTINUE
EF .PWR
EF .NEW

1701
~

—-—

1703

1705
1706
1707
b

1708
1709
710

wwa\)aNNNNNNN—i—-A-A-a-n—-A-n

b =

; }

~NOW
=200V

7
;

~ OV

b wd
b and
b wd = d md wmd
b ad
b

SNNNNSNNSNSNNN

b el wmd cod =D

713
714

— o

E R

TE TR YE TR IR PR YA R

PR PR TS X A

ERIIENE

N E IE R E N

nNO
N

under which the init code is executed and the

ISR

| The

; corrresponding event flags are:

1697

There

! are supervisor event flags that are used to let the diagnostic
! know under which condition the execution is taking place.
The

}gg?
1693
1694
1695
1696

Page 1
VAX-11 Bliss=16 V3-555
6;3 (8)
ERS
.AZTECICZRCH3.81
: [NEALE SUS
SPIDER

set-up type functions may also be performed in the init

; code.

1689

SEQ 130

! The initialization code
is executed at the Qeginning of every
]
sub-pass and is primarily used for requesting P_Tables. Any

}gg%

1685
1686

O—
QOO

-1
11=Jul
7=Jul=1

CZRCH RC25 DISK FORMATTER
INITIALIZE SECTION

I ETE

TR PRPR

N PR

PR TR

R TR YR TN ¥

CZRCH3
REV A PATCH 00

OO0
00 Co
[V 1V

N 10

it READEF (EF.START) then

START_FLAG = 1;

] +

First read the event flag EF_PWR to see if this init code is being
; performed due to
a system power fail.
If it is then report the
incident to the operator and abort the DM machine and further execution
i

of this program.

i; READEF (EF_PWR)

then

'Is the PWR event flag set

begin
PRINTB (PWR_MSG):

!Report the incident and abort
!Power fail print message

WRT_RC25 (RTIP, ONES);

‘Abort DM

PRINTB (ABO_MSG).

!Abortlnfl program message

DOCLN;

code execution

)

'Abort further program execution

end;

See if the DRS commands START or RESTART were used to start

this formatting session. If either
of ther were used then
start the formatting session at logical unit zero.

i; (READEF (EF_START)) or (READEF (EF_RESTART))

then

Qegin

! Check the ogeratoc for triing to format
! more than the defined

Llimit.

If they

!Did start of restart get us here

CZRCH RC25 DISK FORMATTER
INITIALIZE SECTION
5 are

PR PR YR PR PR PRYN
PNPR
T
T
T
ATETESCETE
PRPR
TN P

then

report

11=Jul=1983 16:05:44
7=Jul=1983 08:24:19
the

error

begin

'Report the error

DOSLN:

'!6o to cleanup and die

PRINTB (GODD_NUR_UNITS);

end;

R E IR E
R
R
R R

iTell him/her the Limit

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

9eg1n

g Clear out the date text buffer before loading in date.
incr i

from 0 to 11 do

DATETXT (.i] = ZEROS;

GMANID (DATMSG, DATETXT, A, %0°'177777°', 8, 10, NO);
PRINTB (SW_Q2_NOTICE);
PRéNTB (SW_Q4_UNATT);
else

!Get date from operator

!Print notice message
!Report running in
ATTENDED mode

begin
PRINTB (SW_Q2_NOTICE);
PRéNTB (SW_Q3_OPER);

.
!Print notice message
!Tell operator he/she must be present

end;
'y

! Everything
looks
good
so far, move on and
! hardware question responses and save them.

LUN = =1;

get the

!Start formatting at logical unit 0

beflin
LUN = ,LUN ¢+ 1;

)
.
.
'Up pointer to next logical unit to GPHARD

if .LUN gequ .LSUNIT then DOCLN;

'End host code if no Logical units

'Repeat GPHARD's until P_Table adrs returned

]

; Get the P_Table parameters for this unit and go format it.

end
until (GPHARD (.LUN, PTBL_PTR)) nequ 2ERO;

!Is the formatting limit exceeded

PRINTB (TO_MANY UNITS):

RC25_ADDR = .PTBL_PTR [wrd0];

SEQ 131

Page 11
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH3.B16 ;3 (8)

and die.

:; LSUNIT gtru LSLIMIT

PR T

PR TRFIF ¥

CZRCH3
REV A PATCH 00

'Load up the controllers base addres

cn
CZRCH3

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
INITIALIZE SECTION

TRIR LN TN TN PN T

VEC_ADDR = .PTBL_PTR [wrd1]:

‘e

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

PRI A IEFEFE
FEIE

FREIE

running under.

'‘Define compiler

ISD_STRUCT [BLK1, WRD1, S2W_PI]

ZERO

'No purging fo- PDP-11

ISD_STRUCT [BLK1, WRD1, S2W_PI]

ONE;

'Purging for VAX-11

PRI TR

l¢¢

WN =000 NOWVS AN =O VBN

VIS W) =

4\8\4\2 N WA W AN NN N N N AN NI RO N MNIAIRINDNIND
A b b ad ad cnd b b ed md
& 'S

VIS WN=2O VNN

bl
b

b =

b amd and

b cnd and wd

)

b —d

To Yo To To To Yo Yo To To Yo To To To Lo -To To Lo -To To To To To To-To To-To ]

b wmd
b

o To T

) md
b e
—d e

[*J Q000 oo

I ImimtaIa
It
cmiaimim

!
!

TN PR
PR PRIR

‘Load up the unit number to format

i f Xbliss (bliss16)
then

TRYR

TR P

‘Load up the controllers bus request

: bit must be defined for the type machine this formatter is

P
T TN
P
R
I R
R
AR E T E
I E
E
AR TE N
AR
R
A E NE
R
A

SEQ 132
Page 1
VAX=11 Bliss=16 V3=-555
RS 3.816.3 (8)
NEALE .AZTECICZRCH
SPIDE:RSUSE

!Load up the controllers vector address

B8R _CEVEL = .PTBL_PTR [wrd?2]);
UNTT_NO = .PTBL_PTR [wrd3J;

else

PRI AR

11=Jul=1983 16:05:44
7=Jul=-1983 08:24:19

This commented code will load an external copy of the formatter from
the local load media into azkel6 module space starting at AZFMIR : VECTOR [ ,word]
| +

i Now load in the RC25 formatter DM code from the local boot device
[ into the blank buffer allocated in azkel6.
Report
Lload error if
i an error code is returned.
i
i The DM code will only be read in during start! or restarts of the

host code.

Block zero of the

the

DM .sav file

if LOAD_FILE (AZFMTR, DM_FNSEXT, DM_SIZE)

will thrown out.

then DECODE

();

Now calculate the overlay sections starting address and store the result
in global

]

location 'OVSA’

for future reference.

This takes the DM buffer starting adrs and adds to it the number of bytes
in the (initial load + remote program header size) resulting in the first
adrs of the overlay section.

ngk = AZFMTR + (.AZFMTR [WRD0J);
else

‘Calculate overlay start adrs

Qegin

!
!

The continue flag set will cause the current units formatting to be
aborted.
The next sequential logical uvnit will then be
formatted.

i t READEF
then

(EF_CONTINUE)

9egin

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

D 11
CZRCH3

000000

000020

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:05:44

INITIALIZE SECTION

7=Jul=1983 08:24:19

PRINTB (FMT3, .LUN, .UNIT_NO);
WRT_R(C25 (RCIP, ONES);

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:NEALE .AZTECICZRCH3. 816 3 (8)

!Report this luns format was aborted

'Abort this current units formatting

if (.LUN + 1) gequ .LSUNIT

D
2 O 000 ~NON N

d i

b e

cad

)

FRRIZERR VHWAVIWAVILDIW

00 00 o 00 00 0o 0o Co GO

then

e
o
oo~ O VIS WA

- b

Vo 0o BeWyg0e T Bi Ve 0e 000 %003 %0 09 06%00000%0 90 %0 000000 08000 % 90000058, 90%0 0990800090999 % 000800s090080

REV A PATCH 00

SEQ 133

begin
PRINTB (NO_ADD_UNITS);
DOCLN;
end;

!Report no more unit to format

end;

The new pass event fla? set means that all logical units have
been formatted.
There ore ¢nd this host code and return to DS>.
if READEF

(EF_NEW)

!New pass means all units formatted

then DOCLN:

Repeat doin
GPHARDS until a non-zero value is returned or all logical units
have been GPHARD'ed.
End this host code if all logical units have been formatted.
do

.
begin
LUN = .LUN + 1;

'Up pointer to next logical unit

if .LUN gequ .LSUNIT then DOCLN;

'End the host if all logical units GPHARD'ed

end
until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO;

'Repeat until a P_table adrs is returned

% Get the P_Table parameters for this unit and go format it.
RC25_ADDR= .PTBL_PTR (wrd0J;

'Load up the controllers base addres

UNTT_NO
= .PTBL _PTR Cwrd3];

'Load up the unit number to format

VEC_ADDR = .PTBL_PTR [wrd1];
BR CEVEL = .PTBLPTR [wrd2];

'Load up the controllers vector address
!Load up the controllers bus request

end;”

% Tell the operator which R(25 controller is being initialized this pass.
1892
1893

012700
104447
103023
012746
012746
010600

PRINTB (XCRLF):
PRINTB

(FM12,

ENDINIT;

000034
0000006
€00001

!Space between each formatting pass

.PIBL_PTR [WRD0J);

LINIT:

.SBTTL

LINIT INITIALIZE SECTION

TRAP

MOV

BHIS
MoV
MOV
MOV

#34 RO

1$
#PWR.MSG,~(SP)
#1,-(SP)
SP,RO

174

SP,»

CZRCH3
REV A PATCH 00
000022
000024
000030

104414

11=Jul=1983 16:05:4
7=Jul=1983 08:24:1

ORMATTER
N

14
#ABO.MSG, (SP)
#,=(SP)

0000006
000001

SP,RO
16

177777
0000006

RO 3RC25.ADDR

000006
000040

18:

000000G 000020

000006
000001
0000006

000013

s SP,¢

#GOOD.NUM.UNITS,
(SP)

SP,RO

H S’o.

#6,SP
#1,SW.UNATT
5$
RO
DATETXT(RO)
RO
RO, #13

H
H

0000006
000001
0000006
000001

14
#SW.Q4
. UNATT, (SP)
#1,-(SP)

€000006
£00001

1713
1726

SP,RO

H
:
F
s

1739

1737
1749
|
oD
|
l.v

1759

1760

; SP,«

.
: SP,»

63
#SU.OZfi?OYICE.'(SP)

:
:

SP.RO

: SP,»

14
#SW.03.0PER,
(SP)
#1,-(SP)

1756
1757
1756

SP,RO
14

000264

1716

1738

43
43
406
DATETXT
142
D?TMSG

5$:

: RCSM.REG,*

10
12
#5W.Q2.NOTICE,~(SP)
#1,-(SP)

0000006
000001

s *,RCSM.REG

1735

14
46

A ¥

: SP,+

#1,-(SP)

0000006

LSUNIT,#20
3s

0000006
000091

1715

#6 SP

#TO.MANY.UNITS,=(SP)
#1,=(SP)

0000006
000001

SE( 134

SPIDERSUSERS: CNEALE .AZTECICZRCHS. 816 3 (8)

¢46 RO
23
#37.R0
47
98

000037

VAX=11 Bliss=16 Vv3=-555

1761

1749
1765

1766

CZRCH3
REV A PATCH 00

VAX=11 Bliss=16 Vv3-555

010600
104414

112767
105267

000377 0000006
0000006

78:

CMP
BLO
TRAP

000000G

000036

TRAP
MOV

BEQ

MOV
Mov
MOV
MOV

000000G
0000006
0000006
000006G
0000006
0000006

slc8

MOV
ADD
ADD

9¢%:

0000006

MOV
MCV
TRAP
MoV
MOV

172777
0000006

CLR

0000006

81s8
INC
cMP
8LO
Mov

0000006
0000006
000001

0000006
0000006
0000006

000562

104444

MOV
TRAP
BHIS
MOV

CLR
mMove

0000006
0000006
000003

[ 1 ]

MOV
MOV
TRAP
TRAP

000010
000035

UN,RO

BISB

0000006

12%:

1774
1778
1780

MOVE
INCH

BISB

TST

ADD
MOV
TRAP

RO.PTBL.PTR
7%
(RO) ,RC25.ADDR

2(R0) ,VEC.ADDR

4(RO) ,BR.LEVEL

6(RO) ,UNIT.NO

#1,1SD.STRUCT+6
AZFMTR,0VSA
#AZFMTR,OVSA

H
H
:
H
H
:

1788
1789
1790
1791
1799
1830

UNIT.NO,=(SP)
=(SP)
LUN, (SP)

#36,R0
4
118

1728

1726

1839
1846

#FHTB =(SP)

#3,-(5P)

SP.RO

: SP,»

RO,8RC25.ADDR
RO

: +,RCSM.REG
: RCSM.REG,*
:

1847

1852

14
#-1,R0

LUN,RO

RO
RO,LSUNIT
108

#NO.ADD.UNITS,
(SP)
#1,=-(SP)

1849

SP.RO

: SP,x

(SP)+

H
:
:

1851
1841
1863

:
H

1872
1874

14
46

#10,SP
l35 RO

INCB

LUN
RO

TRAP

1783

128

BISB
CMP
BLO

#6,SP
149

BHIS

TRAP

: SP,+

MOv
TRAP

0000006
0000006

0000006
000002
000004
000006
000001
0000006
0000006
000006

SEQ 135

Page

SPIDERSUSERS:[NEALE .AZTECICZRCH3.B16; 3 (8)

CZRCH RC25 D ISK FORMATTER
INITIALIZE S ECTION

LUN,RO

RO,LSUNIT
13%
44

CZR C
H3
REV
A PATCH 00
000564

005000
156700

CZRCH RC2S DISK FORMATTER
INITIALIZE SECTION
0000006

13%:

0000006

012746
012746
010600
104414

0001006
00Cu02 0000006
000004 0000006
000006 0000006

0000006
000001

017716
012746
012746
010600

0000006
000000G
000002

062706
000207

000010

104414

: Routine Size:

148

11=Jul=1983 16:05:44
7=Jul=1983 08:24:19
(LR

TRAP

81S8
MOV
BEQ
MoV
MOV
MOV
MOV

1]}

MOV
MOV

TRAP

LUN,RO

1877

1882
1883
1885
1891

#XCRLF ,=(SP)
M ,-(SP)
SP,RO

SP,»

aPTBL.PTIR,
(SP)
#FEMT2,-(SP)
#2,-(SP)
SP,RO

ADD
RTYS

#10,SP
PC

SEO 136
16

SPIDERSUSERS: [NEALE .AZTECICZRCH3. 816 3 (8)

RO,PTBL.PTR
128
(R0O) ,RC25.ADDR
2(R0) ,VEC.ADDR
4(RO) ,BR.LEVEL
6(R0O) ,UNIT.NO

MOV
MOV
MOV
MOV

TRAP

VAX=11 Bliss=16 V3=555

1892

SP,*

1674

221 words,
Routine Base: AASCODE ¢+ 0156
invocation:
7 words

: Maximum stack depth per

000000
000004
000006

004767
104411
000207

177102

SBTTL

LS$INIT::JSR
TRAP
RTS

: Routine Size:
4 words,
Routine Base:
AASCODE
; Maximum stack depth per invocation:
2 words

LSINII lNItIALIZE SECTION
PC,LIN
1"
PC

+ 1050

1892

CZRCH3

REV A PAT(H 00

:
:
:
:
.
:
:
:
:

000000

1894
1895
1896
1897
1898
1899
1900
1901
1902

1903

VAX=11 Bliss=16 v3=555

SEQ 137

Page

SPIDERSUSERS:(NEALE .AZTECICZRCH3.B16; 3 (9)

CIZRCH RC25 DISK FORMATTER

AUTODROP SECTION

Isbttl *AUTODROP SECTION'

i Th1s code is executed immediately after the initialize code it

! the "'ADR’ tlag was set.
The unit(s) under test are checked to
i see if they will respond. Those that don't are immediately
! dropped from testing.
BGNAUIO.
return;

ENDAUTO;

000207

LAUTO:

.SBTTL
RTS

LAUTO AUTODROP SECTION
PC

1893

1 word,
Routine Base:
AASCODE ¢+ 1060
: Routine Size:
0 words
; Maximum stack depth per invocation:

000000
000004
000006

004767
104461
000207

177772

.SBTTL

LSAUTO AUTODROP SECTION

RTS

LSAUTO: : JSR
TRAP

PC,LAUTO
61

Routine Base:
AASCODE ¢ 1062
; Routine Size: 4 words,
; Maximum stack depth per invocation:
2 words

1902

In
CZRCH3
REV A PATCH 00

11-Jul~-1983 16 :05:44
7=-Jul=1983 08 :24:19

CZRCH RC25 DISK FORMATTER
CLEANUP CODING SECTION

SEQ 138
Page
18
V3-555
VAX=-11 Bliss=16
(10)
.816;3
JCZRCH3
[NEALE .AZTEC
SPIDER:SUSERS

?sbttl *CLEANUP CODING SECTION'
‘e

000020

b md e d e b wad e ad e O
NN PNOIPNININ)
WNL=O O
[« JEUFVI[P
1) VNN

—

b cnd o

cmd

b e

b cd

O O O 0 O O O O VOOV OOV OO0 O

032767
001004
012700
010077
000207

: Routine Size:

Cleanup codina is assembled with the diagqostiq 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
return of a test device to a static state.

The clean-up code is invoked in three different ways:
A. At end of every sub-pass
8. Issuance of DOCLN macro
C. Operator “C
?GNCLN:

i Before initing the RC25 controller check first to make sure that
that this is not a non-existant register.

it not .FLG_WRD [NON_EXIST_REG] then WRT_RC25 (RCIP, ONES);:

'Abort DM code execution

return;

ENDCLN;

000002

.SBTTL

0000006G

LCLEAN: BIT
BNE
MoV
MoV

1772777

0000006
9 words,

1$:

RTS

LCLEAN CLEANUP CODING SECTION

#2,FLG.WRD
1}
#-1,R0
RO,3R(C25.ADDR
PC

1923

: *,RCSM.REG

: RCSM.REG,*

1903

Routine Base: AASCODE ¢ 1072
0 words

; Maximum stack depth per invocation:

000000

004767

000004
000006

000207

104412

177752

.SBTTL

LSCLEAN CLEANUP CODING SECTION

JSR
TRAP

PC.LCLEAN
12

LSCLEAN::

RTS

4 words, i
Routine
Base:
AASCODE + 1114
)
: Maximum stack depth per invocation:
2 words
; Routine Size:

1925

J "
CZRCH3

REV A PATCH 00

CZRCH RC2S DISK FORMATTER

11-Jul=-1983 16:05:

DROP UNIT SECTION

VAX=11 BlLiss=16 V3=555

7=Jul-1983 08:24:

SEO 139
Page
1

SPIDERSUSERS [NEALE.AZTECICZRCH3.B16; 3 (11)

!sbttl 'DROP UNIT SECTION'

i the drop code is invoked by a DODU macro or a drop command,

and

con-

i ping of a unit from the test cycle.

this

i tains any code that needs to be executed in conjunction with the drop: section.

No coding

required

' The effect of a DODU is the same whether executed in the init code
!

in a hardware test.

his

! ?uent GPHARD'S for that logical unit to be
effect

It invokes the drop unit codlng and causes subse-

tasts only

for

the

returned

duration

°'NOT

COMPLETE''.

of the current command.

BGNDU;

return;

ENDDU;

000000

LbU:

000207

.SBTTL

RTS

LDU DROP UNIT SECTION

1926

1940

: Routine Size:
1 word,
Routine Base:
AASCODE ¢+ 1124
s Maximum stack depth per invocation:
0 words

000000
000004
000006

004767
104453
000207

177772

L$DU::

LSBTTL
JSR
TRAP

RTS

-LSDU DROP UNIT SECTION
PC,LDU
53
PC

: Routine Size:
4 words,
Routine Base:
AASCODE + 1126
; Maximum stack depth per invocation:
2 words

K 11

CZRCH3

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11-Jul=1983 16:05:44

ADD UNIT SECTION

7=-Jul=-1983 08:24:19

}gzg

Isbttl ‘40D UNIT SECTION'

:
:
:

1944
1945
}gzg

! The add code is invoked by the ADD command, and contains.an‘ code that
! needs to be executed 1in conjunction with adding a unit back to the
E test cycle. No coding is required in this section.

1948

| Units may be added to the test sequence onlg through the use of opera-

:
:
:

1950
1951
}32%

! 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 cause the add to be effective:

:
:

}322 g The section is just for programmer housekeeping.
1956 BGNAU;

1958

1949

1957

000000

VAX-11 Bliss=16 V3=555

SEQ 140

Page

SPIDERSUSERS
: [NEALE .AZTEC JCZRCH3.816:3 (12)

! tor

ADD

command.

Each unit must have a

P-TABLE in memory due to an

return;

ENDAU;

000207

.SBTTL
RTS

LAU:

: Routine Size:

1 word,

000000
000004
000006

177772

LAU ADD UNIT SECTION
PC

1941

1957

Routine Base: AASCODE + 1136
O words

: Maximum stack depth per invocation:

004767
104452
000207

LSAU::

.SBTTL
JSR
TRAP
RTS

LSAU ADD UNIT SECTION
PC,LAV

52
PC

: Routine Size:
& words,
Routine Base:
AASCODE + 1140
: Maximum stack depth per invocation:
2 words
:

1959

end

1961

eludom

1960

PSECT SUMMARY

Psect Name

;

Words

Attributes

I.IBRARY STATISTICS
File

SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16.5

eeeeeeee Symbols =====c-Total

Loaded

Percent

Blocks

Read

398

COMMAND QUALIF IERS
BLISS /PDP11/LIST CZRCH3.B16

:
Size:

258 cude + 50 data words
00:17.0
00:23.5
Elapsed Time:

Run Time:

HeMOf{ Used:
214 pages
Compilation Complete

o9
oo

-—h P

NO
&Hwn

ADD UNIT SECTION

O
QO

REV A PATCH 00

11=Jul~1
7=Jul=1

CZRCH RC25 DISK FORMATTER

Wit

CZRCH3

hodd

VAX=11 BLiss=16 V3=555

SEG 141

SPIDERSUSERS:(NEALE .AZTECICZRCH3. 816 3 (12)

CZRCH RC25 DISK FORMATTER
0001
0002
0003

0004

0005
0006

888;
0009
0010
0011
0012
0013

11=-Jul=1983 16:06:09

7=Jul=1983 08:24:38

MODULE CZRCH4 (1TITLE *CZRCH RC25 DISK FORMATTER'®
IDENT = *REV A PATCH 00°,
ADDRESSING_MODE (RELATIVE) ,
ENVIRONHENT (NOEIS)
) =

BEGIN

?sbttl *MODULE DECLARATJIONS'®
! Pretty Declarations
!<blf/lowercase_key>
!

Library 'CZRCHO®;

'‘Define RC2S5 formatter Llibrary

?g&g

require 'BLSMAC.REQ';

'Define Bliss Macro require file

1506

b b wud

b wnd wrd wnd b b b wud b b

b wmd cad D ad cad b and cod b

Vi
i
v
i
g wn
W
NP NININININININD
= b b ced b b ed b D bo0
OVOONOWVBUWN=O
VBN NS NWNI=O Vo

1507

531
532
533

! The psect named ‘‘code or $code$'’ is redefinded here
! to be called ''ab$code’’.
This is done to organize the
i formatters test sections
into a seperate psect.

psect

code = ab$code;

I+

! Structure declarations used within this module.
structure
‘4

RC25

register accessing structure. This
structure allows RC25 register accessing
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, S, E] =
begin

534
ggg

ocal
RCSS_REG;

537
538

RCSS_REG
= .(RC25 + Xupval+0)<0, Xbpval, 0>;
RCSS_REG

539
540
541
542

end
<P, S, E>;

!<blf/page>

SEO 142

SPIDERSUSERS [NEALE AZTECICZRCHS. 816 2 (1)

88};

) md el ad —d med b end Amd cmd wmd b

AR E A

T E N AR AR T E T AR R A

TR A TR IR

PR PRTR

PN PO TR TR X (TR TE IR IR IR AR TEIEYR I IR

FEY FRE TR N NI NN FI

I TN

I ¥

CZRCHG

VAX=11 Bliss=16 V3=555

CZRCHS

REV A PATCH 00

:
:

1543
}Sbg
1547

external routine

1552
1553

RET DATA,
SEND_DATA,

:
:
:
:

1548
1549
1550
1551

:
:

1554

1555

:
:

1556
1557

1559

1561

:
:
:

1558

1560
1562

11=Jul=1 983 16:0 6:0 9
7=Jul=19 83 08:2 4:3 8

!+
! External Routines declared outside this module.

:
:

MODULE DECLARATIONS

1546

CZRCH RC25 DISK FORMATTER

)

ABO
GET_DUST STATUS,
ex_SuP_PROG,
EX"LOCTPROG.

SET turLR CHAR,

oN_CINE,

puPs1 senvxce : INT_LNKSTYP novalue,
INTSITSERVICE : INTCLNKSTYP novalue,

1~17 _TOM_AREA,

BOOT RC2S.

DECOBE : novalue;

‘<blf/page>

VAX=11

SEQ(2)143
Bliss=16 V3=555
11 Bliss~
2
;
[NEALE AZTECICZRCH4.B16

SPIDERSUSERS:

B 12
CZR CHé4
REV A PATCH 00

1563

11=Jul=1983 16:06:09

CZRCH RC2S DISK FORMATTER

7=Jul=1983 08:24:38

MODULE DECLARATIONS
‘e

! External Declaration of

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 2 (3)

datums declared outside of this module.

external

g Micellanious external data declarations
SW_UNATT,

DATETXT : vector [12, bytel,
LUN : word
UNIT_NO: word,
FLG_QRD
: bltvector C16],

'Unattended reformat mode flag
!Stores operator date input
‘Logical unit number storage
'Physical unit number storage
'Global flag word

1SD° STRUCT blockvector [4, 2, word] field (ISD_ FIELD)

'Init sequence data

PTBL PTR
: ref vector L[4, word) volatile,
NEX_FLAG: word,
NXT_CRN
: byte

'RCZS register existence flag
Next seq command ref number

FCT_BUF : block [256, wordl,

iExternal FCT sector load buffer

MSGADR,

1Bointer to DM sent ascii text

NRD_SLOT
: word,
VEC_ADDR
: uord
RET_
STAYUS uord
PID"SAVE : vector (2, wordl,

!Stores next receive slot to expect response in
!Stores controllers vector address
'Stores return status of called routines
'Saves process indicator word

RET_ENSAD : ref block [RB_SIZE + 2, word) field (ENV_FIELD),

SND_BUF : vector [SNDB SIZE. word],
'DUP send cmd text buffer
RECBUF : block CRECB_SIZE, word] field (RECB FIELD),
'DUP receive

Ve We Ve VoW Be 840300080000
0,3%0 0000300, %;30,0¢0,°

NSD_ SLOT : word,

qczs ADDR : ref RC25 field (ISD_FIELD),

1RC2S reference structure

B0OT_FAILURE,

PROTD_VIOLATION,
PORT_INIT_ERR,
ACTIVE DUP_SERVER,

INACTIVE _DOP_SERVER,
; External FCT request message during RESTORE formatting mode

fcr_asa_nss.
% Printing format strings and ascii text strings

DATMSG,
CRLF,
FMTY,

FMTS,

FMTG,

FMT7;

cmd text buffer

!Stores next send ring slot to load cmd into

g Init sequence code error

SEO 144

c 12

~NOWNSW
NN =200
= O VNV
w NN

b
- b

b ad ed e

D e

)

o o Yo Yo No No Yo No To Yo To To Lo Yo o To To Yo ToTo ToTo Lo
ad cd d b o ) cd
W WIWNWWWNI
NN POPININIAIPIND

BGNTST;
lee

Functional Description :

This section will be the first code to be executed during a formatting
session and will ensure that the ob {ect drive to format actually does

The format for the unit wil
exist.
respond to this initial test.
none

Implicit Outputs :
none

Completion Codes :
none

Side Effects :
none

b
b

b d

d e

b nd

b e

e
b o

b e o

b e

TEMP : volatile,
RETRIES;
oo
NS 88 80
oo VIV
S NN
W
=O VO~ OIS ANN = O 0NN

be aborted it the drive fails to

Implicit Inputs :

FLG_WRD [NON_EXIST_REG) = ZERO;

NEX"FLAG = ZEROS;
SETVEC (4, INTSI_SERVICE, PRIO7);
TEMP = .PTBL_PTR [WRDOJ;
TEMP = . TEMP + 2;

.
'EOF indicator
'Dummy variable for register ext test

'Store number of retries to perform

'Initially clear nonexistant register flag
!Clear out nex flag
!Set ug_for an nex trap

!Get this controllers IP address
!Make it into the SA register address

if ..TEMP
then
begin
DUMMY = ZEROS;
end;

!Read the sa register
!This is so that if there
!Is an nex there will be
'A single opperand inst.
!So that it will trap

CLRVEC (4);

'correctly.

it .NEX_FLAG eql ONES
then
begin

!See if we got an nex

PRINTB (FMT6, .PTBL_PTR [WRD0J);

FLG_WRD [NON_EXIST_REG] = ONE:
DogtN:
end;

'Address not there

SEQ 145

Page
VAX=11 Bliss=16 V3~555
.AZTEC JCZRCH4.B16;2 (&)
USERS
: [NEALE
SPIDERS

Xsbttl °*RC25 REGISTER EXISTENCE TEST'

DUMMY : volatile,

TETE
A
IRIR AR
AR
A

CZRCH RC25 DISK FORMATTER

RC25 REGISTER EXISTENCE TEST

EOF,

TR I E T ETR

TR I

PRPR

R LN

PRLI Y T [T E

E TR ETE

PR A TR YR PR EE P FE PR

TRTR TR DN

CZRCH4
REV A PATCH 00

11=Jul=1983 16:06:09
7=Jul=1983 08:24:38

!Print error message
]
'Set flag indicating non-existant reg

D 12
CZRC
REV A PATCH 00

11-Jul=-1983 1 6:06:09
7=Jul-1983 0

CZRCH RC25 DISK FORMATTER
INITIALIZE RC25 CONTROLLER

8:24:38

VAX=11 Bliss=16 v3-555

SPIDERSUSERS:LNEALE .AZTECICZRCHSG. 816 2 (S)

IRTN PR FIELE TN ¥

lsbttl "INITIALIZE RC25 CONTROLLER®
The next thing to be done is to boot the R(25 controller.
We will
allow
a few retries 1f not successful after the first boot before we concidered
the Controller dead.

PR PRYR FE FE

But before we do the boot sequence the processors priority and interrupt
vector addr .s must first be loaded.
Duri n? the init sequence the Init
sequence interrupt service routine will just
flag any interrupts and ignore

them since interrupts are

disabled during intt sequence, Later the DUP

interrupt service routine will be load and

do the DUP communications protocol.

PR TN PR

A TR

The following priorities will be assigned:
Processor will
run at gr1ority 2ero.

2. The RC25 runs at priority
default.
3. The DUP interrupt routine will run at priority 7.

SETPR] (PR!00);

!Set the processers priority

SETVEC (.VEC_ADDR, INTSI_SERVICE, PRIO7);

'Set the interrupt service priority

PR PN PR PR PRIR

CLRVEC (.VEC ADDR)

‘Clear out the vector before setting

P P
PP

; Retry

the R(25 booting until the return is true or the retry limit is reached.

RETRIES = =1;

'Reset the retry counter

gESTATUS = BOOT_R(C25 ();

'Boot the RC25 controller
'Up the retry count

RELR]ES .RETRIES
+ 1;

until

(.RET_STATUS) or (.RETRIES eqlu ONE):;

!Repeat the Boot until done

I R

]

Report booting error if the return status

never

came

back as true.

;

;; not

PRINTB

AR E M E N E M E

DogLN

'Did the Controller boot

'‘Report a boot error

(BOOT_FAILURE);

'Abort the program

meimemotm
st

OV NOWVHWN—=OO

NN NNNNNNNNNYN
N = od ed = ad —d e b e = O

N
e
e
e
)

I EE
N E AR
EE
RN

.RET_STATUS

Now

that the RC25 controller is booted, check to make sure that the controller

has done its part of the DUP

protocol

by clearing

while we're there set ug the communication area
between the remote and
0 host program.

;; INIT_COM_AREA ()
en

begin

PRINTB

(PROTO_VIOLATION);

PRINTB (PORT_INIT_ERR);

SEO 146

out the port communications area.

for the up and coming communications

'Was the com area cleared out as expected

‘Com area not inited so error and abort

E 12
REV A PATCH 00

CZRCH RC2S DISK FORMATTER
INITIALIZE RC25 CONTROLLER

:
11=Jul=1983 16:06:09
7=Jul=1983 08:24 :38

VAX=11 Bliss=16 Vv3-555

SPIDERSUSERS
: [NEALE .AZTECICZR(H4.B16;2 (5)

=D
o
b and e
ol
el
b emd o e
—d

NNNNNN NNNNNW
WA NN NN NN

DOCLN;
end;

Before writing the go to the IP register load the DUP interrupt service adrs
into the R(25 vector address for the up and

the host and controller.

coming

CLRVEC (.VEC_ADDR);

§ETVEC (.VEC_ADDR, DUPSI_SERVICE, PRIO7);
+

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.

WRT_RC25 (RCSA, (.ISD_STRUCT [BLK3, ISWRT, ISW_ALL) or %0'000001'));

SEQ 147

Page

!Let the controller go

F 12

YA PR

A EEEIIE

N YEYR IR

TRFELTE TN P PN R PN FE

I P TR

A T TN Y

CZRC
REV A PATCH 00
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

11-Jul-198 3 16:06:g
7=Jul=198

CZRCH RC25 DISK FORMATTER
BRING RC25 CONTROLLER ONLINE

3 08:264:38

VAX=11 Bliss=16 V3=-555

SPIDERSUSERS:[NEALE .AZTECICZR(H4.B16; 2(6)

Asbttl 'BRING RC25 CONTROLLER ONLINE'®
lee
l
l

Functional Description :
This section will set the R(25 controllers characteristics and place
the unit on-line.

i Implicit Inputs :
'

none

' Implicit Outputs :

i Completion Codes :
i
none
i 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'.
it SET_CNTLR_CHAR

()

then DECODE

();

!Call decode if not successful

‘e

! Do a unit on Lline 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’
: macro in the init code.
PRINTB (FMT5,

.LUN,

if ON_LINE

then DECODE

()

.UNIT_NO);
();

Eo 148

;Tell operator which units coming onl ne
!Call decode if not successful

G 12
CZRCHS

11=-Jul=-1983 16:06:09
7-Jul=1983 08:24:

1770
177
1772
1773
1774
1775
1776
1777
1778
1779
1780

Xsbttl 'DOWN LINE LOAD FORMATTER AND MONITOR TASK'®

1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795

1781

VAX=11 Bliss=16 V3=555

Functional Description :

This section will down line-load the R(25 formatter and monitor

the formatting task.

' Implicit Inputs :
:
!

none
Implicit Qutputs

Completion Codes

Side Effects :

none

none
none

! See it the Dup server in the R(25 Controller is in an
! idle
state.
To do this first get the dust status and
; then lgok a;lthe flag field bit 3 for a :

1 = active

it GET_DUST_STATUS ()

then DECODE

C);

!Call Decode if connection error

]

FEP YA

; Look in the flag field bit 3 to see if the server is active.
:; RET_ENSAD [FLG_B3)

b wmd
b
e
b
md
b
D
b
d
b o
b e

00 0o 0o 0o Co ©o 00 0o 0o GO Qo OO 00 OOQo
NOPVONIND
b vt b ecd b = b cad b =d
WA = OO0 NN
NN 2O

PNPR
YR PR N
R YR PR TR
P P P P
e
e
O Y TP SO
PR IO
LY

!1t the server is active exit and reboot

PR?NTB (ACTIVE_DUP_SERVER);
DOCLN;
end;

!
!

The

server

not

active

down

Lline Load the formatter

! and start its execution by issuing a ‘Execute supplied program'’.
; Call
the decode routine
if a connection error is detected.

it EX_SUP_PROG ()

then DECODE

();

‘Call 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
5 server is in an idle state.

! If in the active state then save the progress indicator
;

‘Pid_save'’

for future reference.

it GET_DUST_STATUS ()

then DECODE

();

SEO 149

SPIDERSUSERS: [NEALE .AZTECICZRCHA4. 816 2 (7)

FEPETEFE

FE TR PR TE YR

YR TRNE

R TR

YRTR

R T

TN FI PR P

I NN TN ¥

REV A PATCH 00

CZRCH RC25S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

!Call decode it connection error

H 12
CZRCHG
REV A PATCH 00
P YR TN TN T

NN
VNS WNI =20 000N

PRXRERR WWWWWWWWQS

N VVVAAVAVLSES
&S 0
1%, S NN = O VDN

b wmd o
D
wd
b

00 00 00 0o 00 Co 0o 0o 00

e
i
b
oD ced
md
b
b
b
b wmd
b
b e
b

begin
PID_SAVE [ 0 )|
PID_SAVE [ 1 ]
end;

-RET_ENSAD [PLO_IND];
RET_ENSAD [PHI_IND];

!Save progress indicator lo word
!Save progress indicator hi word

The
Dup
program.

server is in the active state running the formatter
This
DO
LOOP
will
Lloop
on the DUP sub-protocol

dorng _the '‘send and receive’’ data commands.
These commands
establish
the communications
between this host program and
the remote formatter program running in the R(25 controller.

RETRIES = ZERO;

'Clear out the retry flag

while TRUE do
begin
e

! Do a 'Receive_data' command which poll's the remote program
! for
a message.
The
returned message
can either be a:
!

Question
..
where the ascii

b cd

PRINTB (INACTIVE_DUP_SERVER);
DOCLN;
end

G0 00 00 00 0o GO G0 G0 D

YR
P
TR E PR TR
RN A
E
E TE M
IR AR AR T IR T
R

N BEFB NN Y ) [T E PR
O

else

be?in

O SO T N

'Reboot if server is idle

it not (.RET_ENSAD (FLG_B3])

then

2. Default question

)

Information

Termination
..
Where the ascii

!
.
!
:
[}

.
text is a prompt

.
.
for information.

]

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

Where the

5. fFatal Error
Where

6. Special

ascii

text
text

the

ascii

]

)

1is an informative message.

.
is an normal

text

L.
termination message.

)

1is a fatal error message.

This
type is used when only a host program could
respond.

if REC_DATA ()

then DECODE

();

SEQ 150

Page

SPIDERSUSERS
: LNEALE .AZTECICZR(CH4.B16 2 (7)

g Look at the flag field bit 3 to see if the server is active.

]

A TR YR
FETR YRI I
I T T T
PO

VAX=11 Bliss=16 V3=555

]

(YR IEIETE
TR IAIETE

11-Jul-1983 16:0 6:09
7-Jul-1983 08:2 4:38

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

!Call decode if connection error

112

CZRCHS
REV A PATCH 00
:
:
:
:
:

CZRCH RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

1884
1885
1886

!
.
)
.
! From the first word in the send/receive data buffer, look
! to see what type message the remote program has sent to

1889

1887
1888

1890

by the remote program.

1891

}gg%

$SCLRSBUF;

1894

selectoneu .REC_BUF [MSG_TYP] of

:
:

1896
1897
1898

:
:
:

1900
1901
1902

1895

1899

}ggz

1905

1906

1907

1908

:
:
:

1912
1913
1914

:
:
:
:
:
:

1909

1915
1916
1917
1918
1919
1920
1921
1922
1923
1924
1925

1928

}gg?

:
:
:
:

VAX=11 Bliss=16 V3=555
Page_ 10
SPIDERSUSERS
: CNEALE.AZTECICZRCH4.B16;2 (7)

! the Host program.
Use this message txpe number to index
! into the select expression to perform the requested action

11-Jul=1983 16:06:09
7=-Jul=1983 08:24:38

SEQ 151

!Clear out the send buffer area
!Select the appropriate action

set

1) :
begin

!Question message type

! Look
into the send/receive data buffer at the message
! number field and see what question the remote program
! is
asking.
Use the
fields value to
index
into the

; select

expression

perform

selectoneu .REC_BUF [MSG_NUM] of

set

the

appropriate

action.

!Select the requested guestion

!Enter current date <MM-DD-YYYY>

01 :

! 1t 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.

!
.
it .SW_UNATT
then
begin
.

.
.
'Is the host running in unattended mode

if .RETRIES
then
begin

'Did DM not verify the date the last ime

! Clear out the date text buffer before lLoading in

}359

; date and ask the operator for the date again.

1929

incr i from 0 to 11 do

;g%%

GH;NID (DATMSG, DATETXT, A, X0°'177777', 8, 10, NO); !Get date from operator

1934

:
:

1938
1939

:
:
:
:

1935
1936
1937
1940

DATETXT [.i1] = ZEROS;

end;

else

SFILLDATE;
RETRIES = ONE;
end
b’edin

'fFill the send buffer with the date
'Set the retry flag

GMANID (MSGADR, SND_BUF, A, %0°177777°', 8, 10, NO);

Ve 00y VeV Wy B3 0800 Vg 8 060080 0:%

0BV W 0

VW00 00 000000 0e %6000 eV 0e00sTe0e®s W0 0009200000908 04s%000 %00, %0

®e o 0,

CZRCH4
REV A PATCH 00

CZRCH RC2S DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

11=Jul=1983 16:06:09

7=Jul=1983 08:24:38

VAX=11 Bliss=16 V3=555

PRINTB (CRLF);

if SEND_DATA () then DECODE ();

1945
1946
1947

end;

1948

!Enter a non-zero serial number

7] :

1949

begin

GMANID (MSGADR, SND_BUF, A, %0°'177777°', 1, 64, NO);
PRINTB (CRLF);

if SEND_DATA () then DECODE ();
end;

[othgruise] :

!This message number is unknown

eqgin

RET_STATUS = UMN_CODE;

DECBDE ();

tes;

end;

!Unknown message number error code

'Report error and die

end;

.
2l :
begin

!Default Question

selectoneu .REC_BUF [MSG_NUM) of
set

!Enter unit number to format <0>

begvn

i It in un-attended reformat mode then give to the DM the
! unit number obtained from the hardware P_Table else let
: the DM prompt the operator for the unit to format.
1;.SW_UNATT
then

'Is the host running in unattended mode

begin
SND_BUF = .UNIT_NO;

)

pnéme (FMT7, .ONIT_NO);
else

GH§NID (MSGADR, SND_BUF, A, X0°'177777°, 1, 3, YES):

end;

PRINTB (CRLF);
if SEND_DATA ()

end;

then DECODE

)

'Report which unit is being formatted

begin

();

Page

SPIDERSUSERS:(NEALE .AZTECICZRCHL.B16; 2 (7)

end;

1941
1942
1943
1944

SEQ 152

K 12

REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK

CZRCH4

CZRCH RC25 DISK FORMATTER

11=-Jul=1983 16:06:09

:
:

1998
;888

!Use existing bad block information <N>

:
:
:

2001
2002
5882

2005

2006

2008

2010

:
:

2007

6] :
Qegtn

if .SW_UNATT

then

begin

SND_BUF
= Xc'Y';

else

2013
2014

end”

PRINTB (CRLF);

:
:

2020
2021

end;

:
:
:
:
:
:

2027
2028
2029
2030
2031
ggg%

:
:

2034
2035

2037

2036

2038

:
:
.

2039
2040
2041

2045

2047

;
:
H
H

;

H
:
:
:

!Default to do reformat mode

end;

2015
2016
2017
gg}g

2022
2023
2024
gggg

'Is the host running in unattended mode

bfigln
GMANID (MSGADR, SND_BUF, A, X0'177777°', 1, 3, YES);

:
H
:
:

:
:
:
:

if SEND_DATA () then DECODE ();

£sd :
‘Use down=Line load <N>
b"g
GMANID (MSGADR, SND_BUF, A, X0°'177777', 1, 3, YES);
PRINTB (CRLF);
if SEND_DATA () then DECODE ();
end;

6l :
begin
if .SW_UNATT
then
begin

SND_BUF = Xc'N°*;

else

end

.
)
.
.
!Continue if bad block information is inaccessable <N>
'Is the host running in unattended mode
.

!Default not to continue

begvn
GMANID (MSGADR, SND_BUF, A, X0°177777', 1, 3, YES);

2042
2043
2044

PRINTB (CRLF);

2046

if SEND_DATA () then DECODE ();

2048

end;

2049
2050
2051

)
[otherwise] :

2053

DECDDE ();

2052
2054

SPIDERSUSERS: CNEALE.AZTECICZRCHG. 816 2 (7)

i If in un-attended reformat mode then tell the DM to
i do a reformat mode else let the DM prompt the operator
: for the formatting mode to use for this unit.

2009
2011
2012

VAX=11 Bliss=16 V3-555

7=Jul=1983 08:24:38

begin

RET_STATUS = UMN_CODE;
end;

SEO 153

!This nessage number is unknown
'Unknown message number error code

'Report error and die

L1
CZRCHG
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

11=Jul=1983 16:06:09

7=Jul=1983 08:24:38

VAX-11 Bliss=16 V3-555

N Y
R FH

end;

TRTREYRXE

!Informational message

)
PRLR LN

selectoneu .REC_BUF [MSG_NUM] of
set

0, 1, 2. 3,4,5,7,9, 11, 14, 161 :
begin

!'All possible information msg's

A YA EE

PR?NTB (FMT1, MSGADR):;
end;

FEIR

[otheruwse]

RE? STATUS= UMN_CODE;

PR PRTR

DECODE ();

T TR

tes;

end;

!This message number is unknown
!Unknown message number error code
'Report error and die

IRT

end;

PR P P

PRIR

(4] :
begin

!Termination message

selectoneu .REC_BUF [MSG_NUM] of

R TR
TR TR T A P

set

£12, 131 :
begin

PRINTB (FMT1, MSGADR):

WRT_RC25 (RCIP, ONES);

exitloop

end;

I E AR R R

[othgrulsel
RET_STATUS
= UMN_CODE;

DECODE ()

tes;

end;

'Abort and normal termination type
!Stop the remote program
!Return to init code
!This message number is unknown

'Unknown message number error code
'Report error and die

== O O0000000
= OV
NO NS WN

R E R

end;

€s] :
begin

'Fatal error message

selectoneu .REC_BUF [MSG_NUM] of
set

(1 to 24] :

b egin
PRINTB (FMT1, MSGADR):

WRT _RC2S5 (RCIP, ONES):

DOCIN;

Page

SPIDERSUSERS:[NEALE .AZTECICZRCH4.B16; 2 (7)

tes.

€3] :
begin

SEQ 154

'Error messages are from 1 to 24
!Stop the remote program
'Kill this formatter and return to init code

AU
RLNLALNIAY NLNLNLNLAINLNLNL AL NN NN NI AL NI NN AJINI NI NI N AN NN AL NN NNV
NNI NN NN
—d ) e wud b D wd D e wnd D and wd D wmd D = o D d e b b b =) b wd D b b -—b b o amd cmd and b b cond D b b ) D b D D D ad ) b b D d D e D
OO
OO O NN NNV
S B 85 8 85 88 8 B 3 8 W NN NN W NN WA
N PN N NO PO NN NS = b b b o e b D
GO NN
WA= OO0 NONWVIS W
=2 OV
NS WA =O 000NN
WN=O 000 NN
WN = O 000 O N
WD

(TR TR Y

PNYE

TR NN P

PRYR TR

A TE FE

PE N

PRIR

TRFE

TRYR TR FN

P TR TN X1 LA YEYEYETERIETE TR

IEAFE PR IR

N PR

E RNI P FI NI

N TR

I TR LN

I T

REV A PATC

=4
o

M 12

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

11=Jul-1983 16:06:09
7=Jul=1983 08:24:38

end;

[othgruisel :

RE? STATUS = UMN_CODE;
egin

uEgUDE 0O;

end;

!This message number is unknown

!Unknown message number error code
'Report error and die

‘Special message type

selectoneu .REC_BUF [MSG_NUM] of
P
Qegln

!FCT sector request

! If this is the first FCT sector request (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

begin

GMXNID (FCT_REQ_MSG, SND_BUF, A, X0'177777', 1, 10, NO);

OPSN (SND_BUF) ;
ena,

]

; Load into the FCT_BUF the next sequential 256 FCT sector words
incerC[_URD from FCT_BUF to FCT_BUF + X0'776° by %0'2' do

EO? = GETWORD (.FCT_WRD);
egin

end;

Test to see if the EOF indicator
was returned from the GETWORD macro
before 16 FCT sectors were read indicating an illegal FCT file format.

End of file is reached when .EOF = 0;
if ‘§e$°§g§°%5§ER°) and (.REC_BUF [MSG_TXT] lss FCT_SEC_15)) or (.REC_BUF CMSG_TXT] gtr

then

begin

°~

SND_BUF [0] = ONES;

.
.
'Indicate failure to get good FCT file

if SEND_DATA () then DECCIE ();

SEQ 155

VAX=-11 Bliss=16 V3=-555
Page 14
SPIDERSUSERS
: (NEALE .AZTECICZRCH4.B16;2 (7)

!Send failure to DM

N 12
CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

2169

RET_STATUS = ILL_FCT;

DESODE 0:;

end;

11-Jul=1983 16:06:09

7=Jul=1983 08:24:38

VAX=-11 Bliss=16 V3-555

!Host will also report the failure

tError out and die

N PO TN T PO TR TN PN

SND _BUF [0] = ZERO;

!Indicate success

it SEND_DATA () then DECODE

();

SND_BUF [1] = FCT_BUF;
SND_BUF [2] = ZERD;

!Lo unibus adrs of FCT sector
'Hi unibus adrs of FCt sector
!Send reply back to DM

]

A RN P T

; Close this External FCT file if this is FCT sector 15.

PR FE

if .REC_BUF [MSG_TXT] eql FCT_SEC_1. then CLOSE:;
end;

[otherwise] :
begin

A ETETE

RET_STATUS = UMN_CODE;

DECODE ();
end;

tes.
AT E

end;

Cotherwise] :
begin

!Unknown message number error code

DECBDE )

P E

tes.,

'Report error and die

end;

!This message number is unknown

RET_STATUS
= UMT_CODE;

ENDTST;

.TITLE

CZRCH4 CZRCH RC25 DISK FORMATTER

.GLOBL
.GLOBL

ABORT, GET.DUST.STATUS, EX.SUP.PROG
FX.LOC.PROG, REC.DATA, SEND.DATA

.GLOBL

PID.SAVE, RC25.ADDR, BOOT.FAILURE

.IDENT

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

Page

SPIDERSUSERS: [NEALE.AZTECICZRCH4.B16; 2 (7)

Return to the remote program a success indicator and the
unibus Lo and hi adrs of where this FCT sector can be found
and send the information back to the remote program.

N TR EN

PNXN PN YN 9

CZRCHS
REV A PATCH 00

SEO 156

/REV A /

SET.CNTLR.CHAR, ON.LINE, DUP$I.SERVICE
INTSI.SERVICE, INIT.COM.AREA, BOOT.RCZ25
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

8 13
REV A PATCH 00

CZRCH RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

$T1:

$T1 DOWN LINE LOAD FORMATTER AND MONITOR TASK

JSR

R1,$SAVE3

1611

#2,FLG.WRD
NEX.FLAG
#340,=(SP)

;
:
:

1642
1643
1644

apraL PTR 10(SP)
#2,10(S
01 a1o<sp)

; «,TEMP
P «.TEMP
: . TEMP

1645
1646
1648

100004

12<sp>

: DUMMY

1651

CMP

MOV

MOV
MOV

#4,-(SP)

TRAP

37’

MOV
ADD
Sé;
1$:

ABSCODE,

-(SP),=(SP)

000004

000012

.SBTTL

BICB
CLR
MOV

0000006 000010
000002 000010
000001 000010

SPIDERSUSERS: (NEALE .AZTECJCZRCH4. 816 2 (7)

PROTO.VIOLATION, PORT.INIT.ERR
ACTIVE.DUP.SERVER, INACTIVE.DUP.SERVER
FCT.REQ.MSG, DATHSG. CRLF, FMT1
FMT5, FMT6, FMT?

000002 0000006
0000006
000340

0000006
000003

7-Jul=1983 08:24:38

SEO 157

.GLOBL
.GLOBL
.GLOBL
-GLOBL

.PSECT

0000006

11-Jul=1983 16:06:09

VAX=-11 Bliss=16 V3=555

CLR

#INTS1.SERVICE,=(SP)
#3.-(SP)

MOV

#4,R0

0000006 177777

gng

gEX.FLAG.#-1

;

1656

0000006

MOV

aPTBL.PTR, (SP)

1659

TRAP

0000006
000002

000002

TRAP

MOV
MOV
MOV

0000006

NEMT6,
= (SP)
#2,-(5P)
SP.RO

;

1660

CMP
CLR

(SP)+, (SP)+
RO

;
:

1658
1681

VEC.ADDR,RO

1682

1683

TRAP

MOV

000340

MOV

¥340, (SP)

0000006
000003

MOV
MOV

VEC.ADDR, = (SP)
#3,~(SP)

TRAP

MOV

TRAP

177777
0000006

; SP,*

#2,FLG.WRD

0000006

1654

BISB

TRAP

28:

;

#INTSI.SERVICE,=(SP)
37°

MOV
JSR

#-1,R3
PC,B00T.RC2S

; «,RETRIES
;

1688
1692

000001

INC
g&g

R3
z;.ao

; RETRIES
: «,RET.STATUS

1693
1695

000001

gng

53,01

: RETRIES,*

gg;

gl,asr.srArus

1701

MOV

#800T.FAILURE, (SP)

1704

3$:

0000006

000001

0000006
00001

0000006

4$:

MOV

MOV
MOV

RO.RET.STATUS

#1,~(SP)
SP.R0

: SP,e

CZRCHG
REV A PATCH 00

000252

CZRCH RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

104414
104444

005726
004767
006000
103016

0000006

012716
012746
010600

0000006
000001

012716
012746
010600

0000006
000001

104414

58:

104436

012716
012746
016746
012746
104437

1703
1716

PC,INIT.COM.AREA
RO

#PROTO.VIOLATION,
(SP)
#1,-(SP)

TRAP

H
: SP,e

MOV
MOV

#PORT. INIT.ERR, (SP)
#1,-(SP)

TRAP

MOV

000340

1719

1720

SP.RO
14

: P

(SP)+,(SP)+

VEC.ADDR,RO

H
:

1718
1729

MOV

#340, (SP)

1730

0000006
000003

MOV
MOV

VEC.ADDR, =~ (SP)
#3,=(SP)

0000166
000001

MOV
8IS

1SD.STRUCT+16,R1
M .R1

: *,RCSM.REG

1735

00002
0000006

MOV
JSR

R1,2(R0)
PC.SET.CNTLR.CHAR

: RCSM.REG,*

1758

UNiT.NO, (SP)
LUN.=(SP)
NEMTS
< (SP)
#3,~(SP)
SP.RO

1765

PC,ON.LINE
RO

1768

1795

1801

1804

MOV
TRAP

0000006

6%:

0000006

0000006
004000 000022

MOV

78:

ROR
BCC
JSR
MOV
MOV

MOV
MOV

MOV
TRAP
JSR
ROR

B8CC

8s:

98:

0000006
070001

JSR
JSR
ROR
BCC
JSR
MOV
Sé;

MOV
MOV

104414
104444

0000006

TRAP

0000006
0000006
0000025

CMP

MOV

0000006
000003

000526

SEO 158

SPIDERSUSERS:[NEALE .AZTECICZRCHG. 816 2 (7)

SP.RO

0000006
0000006
0000006

005726
004767
006000
103002

VAX=11 Bliss=16 V3=555

14
44
(SP)+

MOV
MOV

MOV

0000006

012716
012746
010600

JSR

ROR

B8CC

104414
104444

022626
016700

TRAP
TRAP
ST

11=Jul=1983 16:06:09
7-Jul=-1983 08:24:38

108:

MOV
TRAP
TRAP
TST

JSR

ROR

BCC

#DUP$]1. SERVICE,=(SP)
37

RC2S.ADDR,RO
RO
78
PC,DECODE

; *,RCSM.REG

: SP,x

PC,DECODE
PC.GET.DUST.STATUS
RO
98
PC.DECODE
RET.ENSAD,RO
18¥00.22(R0)

#ACTIVE.DUP.SERVER,
(SP)
#1,.-(SP)
SP.RO
14
44
(SP)+

PC,EX.SUP.PROG
RO

118

; SP,x

:
:

1803
1814

D 13
CZRCH4
REV A PATCH 00

000530
000534

004767

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
0000006
0000006

11$:

0000006
0000006
004000 000022

128:

0000006
000001

JSR
JSR
ROR
BCC
JSR
MOV
ga;

PC,DECODE
PC.GET.DUST.STATUS
RO
128
PC,DECODE
RET.ENSAD,R1
1§ooo,22(R1)

FV
MOV

MOV
TRAP
TRAP
ST

000024
000026

0000006
0000026

0000006

138:
148:

158:

0000006

168:

0000006
000002

178:

000110

CLR

JSR
ROR
BCC
JSR
CLR
(LR
ADD

177760
000001

0000006

MOV

000001

0000006

1825

1831

OINACTIVE DUP. SERVER, (SP)
#1,-(SP)

1834

(SP)+

:
:
:
:
: RETRIES

SP.RO
14
44

148

24(R1) ,PID.SAVE
26(R1).P1D.SAVE+2

PC,REC.DATA

RO
16$
PC,DECODE
RO

SND.BUF (RO)
#2.R0

RO #110

17§
REC.BUF ,R1

s SP,x

:
:
s
s

1833
1831
1839
1840
}ggg

1
(1)
vl
1w

1906

238
#1,5W.UNATT

1917

BIT

#1,R3

; *,RETRIES

1921

CLR
fh?e

RO
gerIXT(RO)

CMP
BLE
TRAP
.WORD
"WORD
"WORD
-WORD
JWORD
"WORD
"WORD

RO,#13
18§
43
406

;1
; «(1)
;1

1929
1930
1929

1932

1933

BEO

198:

BEQ

000013

REC.BUF
RO

BNE
BIT

188:

SPIDERSUSERS:LNEALE .AZTECICZRCH4. 816 2 (7)

1894

B8IC
0000006

SEQ 159

BNE

000001

005000

MOV
MOV

CMP

170000

000776

B8R

BLOS
MOV
ASR
ASR
ASR
ASR
SWAB
BIC
CMP

0000006

11=Jul=1983 16:06:09
7-Jul-1983 08:24:38

VAX-11 Bliss=16 v3=555

CLR

R1
R1
R1
R1
Rl
#177760,R1

R1,41

248

#170000,
RO
21$

19$

1.t

DATETXT
142
DATMSG
=1
10

E13
C ZRCH4
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

001000
001006
001010
001014
001016
001022
001024
001026
001030
001032
001034
001036

0000006 0000006

116060
005200
020027
101771

208:

11=-Jul=1983 16:06:09
7=Jul=1983 08:24:38

DATETXT(RO),SND.BUF
(RO)

RO, 413
2

000013
000001

228:

#CRLF, (SP)
#1,-(SP)

WRONININ)
=
RENINBVS
NSRRI
RNV =R

ud =D
b
)
D
) aud
)
b and
b
D nd wd
wd
D e
D
D ad
b cd
b wud o
b
—d

ASTASAS
LS DS LS LN N 1 U
WNINININD)
b ek b =2 OO
OO NNOONMNOON

(=]
S888888883838388383338338388388

23$:

1951

1952
1954
1894

197¢

#1,SW.UNATT

1981

UNIT.NO, SND.BUF
UNIT.NO. (SP)
#FMT7 ,-(SP)

.
:

1984
1985

SP.RO

: SP,»

268
43

:
H
:

39§

#170000.
RO

RO,#1
2 7%

25$

#2,-(SP)

14
(SP)+,(SP)+

25%:

406
D
. BUF
SN
152

H?GADR

000001

: SP,»

:
:

REC.BUF ,RO

0000006 0000006
0000006
0000006
000002

1943

338

000002

000000G

1940

43
406
SND .BUF
142
H?GADR

14
31s
R1. .42

000001

1936
1917

1945
1906

SP.RO

000001

ETRIE

:
:

#CRLF, (SP)
#1,-(SP)

170000

31s
RO, #7

0000006
000001

0000006

s *,RETRIES

: SP,*

1
100

r{3X

(1), «(])

o 1
s 1.

SP,RO
14

000007

21$:

0000006
000001

SEQ 160
Page_ 19
VAX-11 Bliss=16 v3-555
L.B16;2 (7)
SERS
[NEALE .AZTECICZRCHS
SPID:ERSU

1983
1981
1989

F13

000003
012716
012746

CZRCH RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

26%:

0000006
000001

. WORD

MOV

11=Jul=1983 16:06:09
7=Jul=1983 08:24:38

#CRLF, (SP)
#1,<(5P)

VAX=11 Bliss=16 V3-555

SPIDERSUSERS: LNEALE .AZTECICZRCHSG. 816 2 (7)

1992

SP.RO
14

27%:

000004

R0ws

1994
1970

30 $

000001

0000006

#1,SW.UNATT

2006

000131

0000006

5131.s~o.eur

2009
2006
2013

#CRLF, (SP)
#1,-(SP)

2016

28$

28$:

29%:

0000006
000001

SP.RC

000005

30$:

:
:

2018
1970

2024

2025

32$

1
3

0000006
000001

#CRLF, (SP)
#1,-(SP)

0000006

14
PC,SEND.DATA

SP,RO

31$:

000006

: SP,e
2027

368
378
RO,#6

2023
1970

38§

000001

0000006

#1,SW.UNATT

2034

000116

000000G

#116.
SND . BUF

2037

348

34%:

358
43
406

D
. BUF
SN
152

H?GADR

000001
000003

SP,*

14
318
RO #5
406
SND .BUF
152
H?GADR

001454
001456

S
b

CZRCHG
REV A PATCH 00

SEO 161

2041

G 13
CZRCHG
REV A PATCH 00

CZRCH RC25S DISK FORMATTER
OOWN LINE LOAD FORMATTER AND MONITOR TASK

012716
012746
010600

0000006
000001

004767

0000006

104414

35¢:

0000006

004001
000532
000003

368:
37¢:

0000006

388:

398:

0000006
170000
000005

BNE

618

MOV
JMP
CMP

CMP

BEQ
BEQ

CMP
BEQ
CMP
BEQ
CMP

0000006
0000006
000002

408:

000004

418:

BNE

#4001,RET.STATUS
57¢
R1 »3
REC.BUF RO
#170000.R0
RO,#S
408
RO,#7

SEO 162

SPIDERSUSERS:(NEALE .AZTECICZRCHSG. 816 2 (7)
H

2044

: SP,t

2046

H
H
H
H
H

2032
1970
2052
2053
1894

2062

2067

408

RO, #11

408

RO,#13
408
RO.#16
408
RO, #20

388

MOV
MOV
MOV
MOV
TRAP

MMSGADR, (SP)
SFMT1,=(SP)
#2,-(5P)
SP.RO
14

BNE

42$

s SP,»

438
R, 46

:
:

2066
1894

REC.BUF ,RO
#170000.R0
RO, 414
38$
RO,#15

2082

MOV
MOV
MOV
MOV
TRAP
CMP
MOV
MOV

#MSGADR, (SP)
SFMT,=(SP)
#2,-(SP)
SP.RO
14
(SP)+, (SP)+
#-1.R
RO,3RC25.ADDR

2087

0000006

(MP
BNE
MOV

R1,45
45%
REC.BUF ,RO

000030

BEQ
CMP

RO,#30

0000006
170000
000014

MOV
BIC
CMP
BLO
CMP

000015

BH]

0000006
0000006
000002

177777
0000006

000005
170000

BR
(CMP

VAX=11 Bliss=16 V3-555

PC,DECODE
(SP)+

443

000011

000020

#CRLF, (SP)
#1,-(SP)
SP.RO
14
PC,SEND.DATA
RO

B8R

000007

000016

016700
042700
001666
020027

BCC
JSR
TIST

MOV
BIC
CMP
BLOS
CMP

000013

001706
001712
001716
001720
001724
001726
001732
001736
001740

MOV
MOV
MOV
TRAP
JSR
ROR

11=Jul=1983 16:06:09
7-Jul=1983 08:24:38

4L28:

B8R

8IC

38$

59$

#170000.
R0
38 $

: SP,e

s *,RCSA.REG
: RCSM.REG,*
H
:

2088
2086
1894
2104

H 13

012700
010077
104444

MOV

#MSGADR, (SP)

MOV

SP.RO

s SP,x

MOV

#-1,R0

: *,RCSM.REG

2110

TRAP
(MP

44
¢+, (SP)+
(SP)

58$
R1,#6

:
:
:

2108
2104
1894

REC.BUF .RO

2126

2138

;

2141

MOV
MOV

0000006
000002

TRAP

177777

MOV

0000006
438:
48:

000006

458:

0000006

BR
(MP

BNE

MOV

170000
000001

.MORD
"WORD
"WORD

406
SND.BUF
142

38$

46$
43

FCT.REQ.MSG
-1
1
12

#SND.BUF ,RO

2142

468:

MOV

#FCT.BUF
R

: «,FCT.WRD

2149

478:

MOV
TRAP

;s FCT.WRD,*

2151

BHIS
MOV
MOV

R1.RO
27

RO, (R1)

#1.R2

: RO,FCT.WRD
s ~,EOF

CLR

: EOF

488

498:
508:

TRAP

B8R

508

48$

498

ADD
CMP

#2 R
R1.#FCT.BUF+776

TST

BLE

BNE

0000026 000017

47$
518

gr¢

§5§'9“"2"‘7

0000026 000017

518:

5?2

§E§'°”"2"'7

177777

52%:

MOV

#-1,SND
. BUF

ROR
BCC

0000006
0000006

006001

0000006
0000006

0000006

0000006 0000026
0000046

2109

MOV

000001

002216

56$

REC.BUF
+2

<WORD
"WORD
.UORD

0000006

004767
005067
012767
005067

RO,3RC25.ADDR

TST

"WORD

000002
0007766

#170000
RO
RO, #1

BNE
TRAP

0000006

SFEMTT,=(SP)
#2,-(5P)

BIC
CMP

BNE

0000026

388

538:
548:

JSR

PC,SEND.DATA

JSR

PC,DECODE

JSR
CLR

PC,DECODE
. BUF
SND

MOV

MOV
CLR

#6001, RET.STATUS
#FCT.BUF ,SND.BUF +2
. BUF +4
SND

; =, FCT.WRD

2149

; EOF

2161

:
:

2165
2167

; FCT.WRD,»

cd wsd oub

104414

BHI

0000006

SPIDERSUSERS:[NEALE.AZTECICZRCH4.B16; 2 (7)

—b e

101263
012716
012746
012746
010600

11=Jul=1983 16:06:09
7-Jul=1983 08:24:38

PONINONON

001744
001746
001752
001756
001762
001764
001766

CZRCH RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

SEO 163

[ TX YATR TN 1)

CZRCH4
REV A PATCH 00

VAX=11 Bliss=16 Vv3=555

113
CZRCHG
REV A PATCH 00

0000006
0000006

000207

Routine Size:

Maximum stack

000000
000000
000004
000006
000010
000012

004767

JSR

558:

001001
0000006
0000006
000036

2182

8CC
JSR

568:
57%:

CMP
BNE
TRAP
B8R
MOV
JSR

REC.BUF+2,#17
58%
35
58%
#1001 ,RET.STATUS

59%:

ADD

#36,SP

588:

JMP

PC,DECODE
158

RTS

607 words,
Routine Base:
ABSCODE ¢+ 0000
depth per invocation:
23 words

175476

104466

T1::
1%:

006000
103773

.SBTTL

T1 DOWN LINE LOAD FORMATTER AND MONITOR TASK

JSR
TRAP
ROR

PC.8T1
66
RO

RTS

2208

8LO

000207

6 words,
Routine Base:
ABSCODE + 2276
stack
depth
per
invocation:
2
words
: Maximum
: Routine Size:

2211

2212
2213

end

ewudom

0TS external referer-es

.GLOBL

$SAVE3

PSECT SUMMARY
Psect Name

e 02N, 0%, 0,8,

ABSCODE

VAX=11 Bliss=16 Vv3=555

SPIDERSUSERS: (NEALE .AZTECICZRCH4.B16; 2 (7)

PC,SEND.DATA
RO
5%
PC,DECODE

ROR

000002G 000017

176334

002274

11=-Jul=1983 16:0 6:09
7-Jul=-1983 08:2 4:38

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

SEO 164
23

Words

Attributes

613

RO,

LCL,

REL,

LIBRARY STATISTICS
File

SPIDERSUSERS
: [NEALE.AZTECICZRCHO.L16.;5

-------- Symbols ====co-Total

Loaded

Percent

398

168

CON

J 13

C2RCHG

CZRCH RC2S DISK FORMATTER

REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK

COMMAND QUAL
IF IERS

BLISS /PDP11/LIST CZR(CHL.B16
Size:

Run Time:

Elapsed Time:

613 code + 0 data words
00:23.9

00:33.5

Hemoq{ Used:
386 pages
Compilation Complete

11=Jul=1983 16:06:09

7=Jul=1983 08:24:38

VAX=11 Bliss=16 V3=-555

SEO 165

SPIDERSUSERS:[NEALE .AZTECICZRCHG.B16; 2 (7)

K13

NIRRT

EEE

M EE

TR T N

CZRCH RCZ25 DISK FORMATTER

11=Jul=1983 16:06:4

7=Jul=1983 08:264: 58

0001
0002
0003

MODULE CZRCHS (XTITLE °*CZRCH RC2S DISK FORHAYTER'
IDENT = *REV A PATCH 00°,
ADDRESSING_MODE (RELATIVE) .

0005
0006

BEGIN

0004

888;

0009
0010
0011
0012
0013

VAX=11 Bliss=16 V3-555

SPIDERSUSERS:CNEALE .AZTECICZRCHS. 816 3 (1)

ENVIRONHENT (NOEIS)

§sbttl *MODULE DECLARATIONS®
! Pretty Declarations
!
!<blf/lowercase_key>
!

88}?

Library 'CZRCHO';

'Define RC25 Formatter library

?g&g

require °'BLSMAC.REQ';

‘Define Bliss Macro require file

1506

tmiwmimImImIme
mow

PN TR T P
PR PR
IRT

PR TR
LN XALRI IR LR IR IR

A TR

LR LN ¥

CZRCHS

A foruard-routlne-declaratvon declares a name to be a routine-name whose
definition is gtven later in the same block, and associates with that name the
set
of attributes needed for generation of call to the named routine.
The

following is a Llist of all routines declared within this module and can

noted that this module is only place where global routines are declared.

forward routine
LOAD FILE,

GETTMNRD.
LOAB_OUT$STD_BUF,
GET_TMDSREF,”
DECBDE : novalue,

DUPS!_SERVICE : INT_LNKSTYP novalue,

CT0_WAIT,
ABORT,

GET DUST_STATUS,

Ex_3SupP_PROG,
EX"LOC_PROG,
SEND_DATA,

REC_DATA,
SET-CNTLR_CHAR,

ON_LINE,

INTSI SERVICE : INT_LNKSTYP novalue,
8007 nc2§
IS TIRER

INIT-COM_AREA;

!<BLF/PAGE>

SEO 166

'Load file from local load media
!Get next send descriptor slot index
'Get next receive descriptor slot index
!Load out standing command buffer
!Get unique command reference number
‘Decode return status error code

!Dup/UQ port interrupt service roitine
‘Command time out wait
'Abort Dup command
!Get Dust Status command
'Execute Supplied Program command
'Execute Local Program command
!Send Data command
!Receive Data command

L.
'Set Controller Characteristics command
‘'On Line command
!Initialization sequence interrupt service
!‘Initialization sequence time-out wait

‘Initialize sequence for R(C25 controller
‘Initialize UQ Port communication area

L 13

CZRCH RC2S DISK FORMATTER

MODULE DECLARATIONS

CZRCHS

REV A PATCH 00

7=-Jul=1983 08:2

4:58

VAX=11 Bliss=16 v3=555

SPIDERSUSERS: LNEALE .AZTECICZRCHS. 816 3 (2)

PR PR TN

i The psect named '‘code or $code$'’ is redefinded here to be called "‘ac$code’’.
: This is done to organize formatter routine code into a seperate psect.
psect

LRTN TR PR

code = ac$code;

‘e

R FE TR NN FRE

! Structure declarations used within this module.
structure

‘e

FE TRPR YR

! RC25 register accessing structure.
This structure allows RC25 register
; accessing to be transportable between the PDP-11 and VAX Diagnostic
Supervisors.

i This

also

defines an access algorithm for VAX to allow field reference

A PRI

; to MBA address space without generating machine checks.

RC25 (O, P, S, E] =
begin

cal
RC$S_REG;
RCSS_REG
= .(R(C25 + Xupval+*0)<0, Xbpval, 0>;

RCES_ REG

YR T

end

<P, S, B>;

A
R

11=Jul=1983 16:06:44

1570

‘<blf/page>

SEO 167

M3
CZRCHS

1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581

11-Jul=-1983 1 6:06:44
983 0
7=Jul=1983

CZRCH RC25 DISK FORMATTER

8:24:58

MODULE DECLARATIONS

é External Declaration of
extefnal

; Communications area declarations

COM_AREA: blockvector CREC JALLOCATE + SND_ALLOCATE + HDR_SIZ, 2, word],
HEAD_AREA : ref block [4, word] field (HDRTFIELD),
RECEIVE RING: ref blockvector [REC_ALLOCATE, 2, wordl

REC ENVELOPE blockvector [REC ILLOCATE RB_SIZE + 2, word) field (ENV FIELD),
SND_ ENVELOPE blockvector [SND”
ALLOCATE SBZSIZE + 2, word] field (ENV_FIELD),

R
E M E TR E TE T
I I
I E
EE
A

tield (ENV_FIELD),

REC_BUF : block CRECB SIZE, word]_field (RECB_FIELD),
SND"BUF : vector CSNDB_SIZE. word],
our!sro _BUF : blockvector [REC ALLOCATE 2, word] field (OUTSFIELD),
i Miscellanious external data declarations
NEX FLAG
: word,

NRD_SLOT : word,
NSDTSLOT : word

RC2S_ADDR: ref RC25 field (ISD_FIELD),

RET SIATUS word,
PID_SAVE : vector [2. wordl,
VECTADDR : word,
RSVD _STRUCT : vector [4, word],

!Non-existent RC25 register flag
!Next receive descriptor slot
!Next send descriptor slot
!Controller reg access struct

'Global return status location
!Saves program indicator field
!RC25 interrupt vector address
!Stores init seq resvered f1elds

ISD _STRUCT : blockvector [4, 2. word] field (ISD FIELD),

UNIT_NO : word,
yxr_tnu : byte,

'Init se? data

P table unit number to

or mat

istores next cmd ref number

g Error Messages Structures
PFE_STRUCT : vector [23]

EMSE STRUCT : vector [23)

RC_STRUCTURE : vector[393,
spUP STRUCT : vector [7]

MEE

field (DSC_FIELD),

SEND_RING : ref blockvector CSND_ALCOCATE, 2. word]) field (DSC_FIELD),

RET ENSAD ref block [RB_SIZE * 2., word 3

SMSCP_STRUCT : vector [13],

'<blf/page>

SEO 168

SPIDERSUSERS:LNEALE .AZTECICZRCHS. 816 3 (3)

datums declared outside of this module.

TR TR

PR PRPN PR

T A YR XN RN NN T

A LN P

REV A PATCH 00

VAX-11 Bliss=16 V3=555

'Port fatal error msg struct
!Error message structure

'RC25 SA register fatal error

'DUP return status code messages
'MSCP return status code messages

N 13

CZRCHS

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

7=Jul=-1983 08::24:58

MODULE DECLARATIONS

:
:

1612
}g}z

!
5 Formatted ascii strings

;

1615

PID_FMT,

}g}g

§ DM code parameter declarations

1620

i The

;

}gsz

g (OVSA is declared in azkel2 and is a memory location however)

;

1625

i It

}ggg

; DMCONV program.

}g}?

}gg;

1626

'Micro code version printing format

following declarations

CZRCH 5.816;3 (4)
[NEALE.AZTECIRS
SPIDE:RSUSE

!Progess indicator printing string

EMTZ.

; module’

VAX=11 Bliss=16 V3-555

are

declared in module azkelé ‘DM code

and point to the starting address of specific DM

a hack but the azfmtr storage allocation must be

! any time the DM code buffer changes.

Get this

code buffer areas.

edited in manually

value from the output of

(Bliss wants this allocation value to be a compile time constant).

;

1629

AZFMTR : vector [8892, word],

'RC25 formatter DM code buffer

1632

OVSA;

!Host First overlay address

:
:

1630
1631

HDSA,
DMSA,

SEQ 169

Page

'Host DM code header address
'Host DM code initial load address

8 14

PRYR L L TN P ¥
A PR YR YR TR
X T IR
I AA
A
A
R
PR TR PR VS TR LR N [
R YR PE FE TR PN PN PN PN PR PR PN TS
R PR YR PR
e
I YO YA P
L

11-Jul=1983 16:06:44

CZRCH RC25 DISK FORMATTER

7=-Jul=1983 08:24:58

MODULE DECLARATIONS

global routine LOAD_FILE (BUF_LOC, FN_EXT, BUF_SI12) =

'Load file from Local load maedia

This multi-purpose routine is used to read in files from the boot
device into host memory space at the specified buffer address.

Formal Parameters

BUF _LOC

This contains the host memory address where
words read in from the boot device are to
be loaded.

FN_EXT

This contains a pointer to an asciz string
of the file name to be read in.

BUF _SIZ

This contains the number of words allocated
for the buffer where the file is to be read
in.
This is used for protect against buffer

Implicit Inputs :

over

runs.

none

Implicit Outputs :
none

Compietion Codes :
FRE_CODE

Is returned if the end-of-file indicator is
not returned before the buffer is full.

PAS_CODE

Is returned if end-of-file indicator is returned
before the buffer is full.

Side Effects :
Data previousl
destroyed by t

loaded in the specified load buffer is
incomming file from disk.

begin
local
?EOF.

OPEN (.FN_EXT);

EOB = (.BOF_SI1Z+2) + .BUF_LOC;

'Return status from getword macro
'End of buffer address storage

‘Open the file for input
'Calculate the last buffer address

! Read the first block from the input file and through
; it away since it only contains RT-11 information.
incru 1 from 0 to 255 do
be?1n

GETWORD (.BUF_LOC);
end;

SEQ 170

Page

SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.816.3 (5)

! Functional Description :
AU
S
e
e L L
e
Yy X
PR
S
X R R
R LR

CZRCHS

REV A PATCH 00

VAX=-11 Bliss=16 V3-555

c 14

CZRCHS

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:4

REV A PATCH 00 MODULE DECLARATIONS
1691
1692
1694

:
:
:
:

:
:

1696
1697
1698

1699

1700
1701

7=Jul=1983 08:24: 8

8
NEOF = GEIUORD (.BUF_LOC);

'Read next word into .mem_Lloc

BUS_LOC= .BUF_LOC + %0°' 2%;

'Increment to next word

};82

until ( not .NEOF) or (.BUF_LOC eqlu .EOB);

1706

1709

1710

1712

:
:

1714
1715

1718

if .NEOF

then

1713

else

'Was the eof indicator returned

return RET_STATUS = FRE_CODE

'Return error code to caller

begin
CLOSE;

'Eof was returned so close file

return RET_STATUS = PAS_CODE;

000000

004167

0000006

000004
000010
000012

016600
104434
016600

000014

000024

060200

006300
016692

'Return a pass code to the caller

end;

.TITLE

000016
000020

!Repeat until eof or buf overrun

; Return an error code if not eof (neof = 1) else close the file and return a pass code.

1711

1719

! Loop on getting a word from the load flle.
After
!
increment to the next word by adding X0°'2' to the
i buffer load addrss.
Continue getting words until
i the not complete indicator is returned (0) or the
: buffer is over run. Return an error code if the
buffer is over run.

};8%

};8;

SPIDERSUSERS:NEALE .AZTECICZRCHS. 816 3 (5)

)

:
:

VAX=11 Bliss=16 V3=555

SEO 17

000012
000016

CZRCHS CZRCH RC25 DISK FORMATTER

JDENT

/REV A /

.GLOBL
.GLOBL.
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

COM.AREA, HEAD.AREA, RECEIVE.RING
SEND. RING. REC.ENVELOPE. SND.ENVELOPE
RET.ENSAD, REC.BUF, SND.BUF, OUTSSTD.BUF
NEX.FLAG, NRD.SLOT, NSD. SLOT RC25.ADDR
RET.STATUS, PID. SAVE VEC.ADDR
RSVD.S?RUCT. ISD.STRUCT. UNIT.NO
NXT.CRN, PFE.STRUCT, EMSG.STRUCT
RC.STRUCTURE, SDUP.STRUCT, SMSCP.STRUCT
PID.FMT, FMT4, AZFMTR, HDSA, DMSA
OVSA

.SBTTL
LPSECT

LOAD.FILE MODULE DECLARATIONS
ACSCCODE,
RO

LOAD.FILE::
JSR

MOV
TRAP
MOV
ASL
MOV

ADD

R1,$SAVE3

14(SP) ,RO
34
12(SP) RO

16(SP) R2
R2,R0

1634

; BUF.SIZ,*

1678

: FN.EXT,»

; BUF.LOC,+

1677

5
CZRCH
REV
A PATCH 00

000026
000030
000032

VAX=

; +,EOB

010003
005001
010200
104427
103001

s 1
.

18:

2%
RO, (R2)
R1
R1,4377

2s:

000377

000016

16(SP) ,RO
27

3%:

43
RO,316(SP)
#1,R2

000016
000001

000002
000001

000016

R2
#2,16(SP)

48:
5%:

#1,R2

6$
16(SP) ,R3
3s
R2
78
#5001,R0

000016

6$:

000207
104435
005067
005000
000207

005001
0000006

0000006

gg.RET.STATUS

7%:

TRAP
CLR
CLR
RTS

RET.STATUS
RO
PC

: Routine Size:
Routine
:
Base:
52 words, .
ACSCODE + 0000
: Maximum stack depth per invocation:
6 words

1720

V3=555
11 Bliss=16
V3=
$s=16

SEO i

SPIDERSUSERS: (NEALE .AZTECICZRCHS. 816 3 (5)

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

. Ro:'

1685
1687

1685

; BUF.LOC,+

1701

: RO,BUF.LOC
: *,NEOF

; NEOF

;s «,BUF.LOC
s +,NEOF

1702
1704

: BUF.LOC,.EOB

s NEOF

1710

1712

H
H
H
H

1714
1718
1671
1634

E 14
11=Jul=1983 16:06:44
7=-Jul=1983 08:24:58

global routine GET_NSD =

'Chooses the next send slot

! Functional Description :
This routine will determine
is polling and
returns that
MmO

ar s

This host program will call this routine each time it wishes to deposit

Formal Parameters
_

I
M@
@I

.
which send ring descriptor the port/controller
dsc slot number to the calling routine.

another command into the command (send) ring.
:

none

Implicit Inputs :
NSD_SLOT :

I
I
G
I
I
E
I
B

b oud D i el cnd
b cnd
b
ol
b
b el cd and

NNNNNNNNSNNNSNSNNN ~
N NN
WNWN WIWNWIWNWNNINN
TM)
—
oW » W=
O VO~V
& W)

cmd el
e
—

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.
Side Effects :

none

T EYR IETEYERIEAIEAIEYE IR TR P

Qegin

;

Increment the next send descriptor_slot by one

NSD_SLOT = .NSD_SLOT + 1;
;

Set the slot pointer back to zero if it wraps around to the top of the ring.

.NSD_SLOT gtru SND_ALLOCATE = 1

then NSD_SLOT = ZERO;

[}

g Return the next send descriptor_slot to the caller

return NSD_SLOT;

005267

000000G

000004
000012
000014
000020
000024

026727
101402
005067
016700
000207

0000006 000003
0000006
000000G

LSBTTL
GET.NSD::
INC
CMP
8LOS
(LR
1$:
MOV
RTS

GET.NSD MODULE DECLARATIONS
NSD.SLOT

NSD.SLOT,#3
18
NSD.SLOT
NSD.SLOT,RO
PC

; Routine Size:
11 words,
Routine Base:
ACSCODE + 0150
; Maximum stack depth per invocation:
O words

1760

000000

~N -~

end;

—b

Y
N K P TN FI TN TN TS P FE PN PN PN PN PN EI NI TN PN
F I VI FI

CZRCH RC25S DISK FORMATTER
MODULE DECLARATIONS

CZRCHS

REV A PATCH 00

SEQ 173

Page
8
VAX=11 Bliss=16 v3=555
SPIDERSUSERS
: LNEALE .AZTECICZRCH 5.816:3 (6)

1744
1721

F 14

CZRCHS

REV A PATCH 00
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
1789
1790
1791
1792
1793
1794
1795
1796
1797
1798
17 9

CZRCH RC25 DISK FLRMATTER

11=Jul=1983 16:06:44

global routine GET_NRD =

!Chooses the next receive slot

MODULE DECLARATIONS

This

!
]

!]
!
!

!
!

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 :
. hone
Implicit Inputs :

NRD_SLOT :

Implicit Outputs

Completion Codes

!
!

Global storage for the next receive descriptor slot.
Stores where the port should return this commands
response indicator.
,

The global storage 'Nrd_slot’’ is updated to the present receive slot
where the port/controller is polling.

Returns the contents of

none

! Side Effects :

'Nrd_slot’’

to the calling routine.

Qegin

g Increment the next receive descriptor_slot by one

@no_SLOt = .NRD_SLOT + 1;
% Set the slot pointer back to zero if it wraps around to the top of the ring.
if .NRD_SLOT gtru REC_ALLOCATE = 1 then NRP_SLOT = ZERO;
]

; Return the next receive descriptor_slot to the caller

return .NRD_SLOT;

end;

005267

0000006

000004
000012
000014
000020
000024

026727

000000G 000003

005067
016700
000207

0000006G
0000006

.SBTTL

GET.NRD::
INC

18:

CMP
B8LOS
CLR
MOV
RTS

GET.NRD MODULE DECLARATIONS
NRD.SLOT

NRD.SLOT,#3
1%
NRD.SLOT
NRD.SLOT,RO
PC

11 words,
Routine Base: ACSCODE + 0176
: Routine Size:
; Maximum stack depth per invocation:
0 words
1800

)

:
! Functional Description

SEQ 174
9
Page

SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.816;:3 (7)

7=Jul=1983 08:264:58

tes

000000

101402

VAX=-11 Bliss=16 V3=555

:
H

G 14
CZRCHS

TN X

REV A PATCH 00

global routine LOAD_OUTSSTD_BUF (REF_NUM) =

'Load out$std_buffer with this command

MOImImIemowsms ot

for

GimI
am I
M i@ I
G Im I

2.
3.

empty outS$std_buf slot the

This commands reference number.

Clears ‘'rec_flg' indicating this command is outstanding.
Clears out the second word in slot where the returne
envelope address will go.

@
G Ic

slot not yet

received

oI
G i@t
I

out$std_buffer slot

the

interrupt service routine),

when this unique value

of %o0'100000°

is
found,
To
further
quarentee this, unique command ref
numbers will never use zero as a reference number.

Gl
B IR I
el G il
et B i Gl
et

into

only the cto_wait (controller
time out wait) routine
is
permitted to
return
a out$std_buf slot to the unused Bool
(i.e.
by loading
a slots
first
word
with X0'100000°).
This
routine is therefore
guarenteed
to return
an unused

Formal Parameters

REF _NUM

This

1is the unique reference number of this command set to the port.

Implicit Inputs :
none

Implicit Outputs :
none

Completion Codes :

The out$standing buffer slot index where this command was put
is routines value and is returned to the caller.

e i

routine

To quarentee a command loaded into the out$std_buffer will
never
be lost
(i.e.
having this
routine return a buffer

Side Effects :
none

the interrupt service

IMPORTANT NOTE:

=
2O 000 NS W
NO N

VIV
B

b
ek
b
b wb
b
d
b
b
o
D
b
e
b

set by

This
routine
loads
following values:

YN YR YR YRIR IR IR

response ring interrupts.

This buffer can be
(ooked at as
a window between the port
driver receiving & processing the response envelopes and the
host class driver issuing commands to the port.

P
P P
PN P PN
I P
N

PR PRTN

1840

a '1' which

during

E I G I G IR

cad wud
) e
i
b
ctd
D e
)
b
e
s
b
b
—b

[o - Jo To To To-To To T Je To To To Jo To.] coQgo
N NINVN) b cod o wad o e md e nd b O
WA = OO0 NO VNN = OO

! functional Description :
The outstanding command buffer ‘‘out$std_buf'’ is wused by
this host program to determine
if an outstanding command
issued to the
port has
been processed yet.
This
is done
by examining the receive flag 'Rec_flg' in a buffer slot

E I GBI

LRLR
TR PRTR
PRI TN PR YR
PR
PRI YR
R
PRI
PR PN

A IR

TRTR PR

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

tee

PN
I R TR TR

SEQ 175
10
Page
VAX=11 Bliss=16 v3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH5.B16 ;3 (8)

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

begin
le

H 14
CZRCHS

1858
1859

MODULE DECLARATIONS

! Search

through

i open slot.
!

the

out

i""? i

from 0 to REC_ALLOCATE - 1 do

!find the first open slot

i; .OUTSSTD BUF [.i, CMD_WRD] eglu %0°'100000°*
t

the

slots

first

word.

!1s this slot open

?SSTD BUF [.i, REC_FLG) = FALSE; 'Clear the received flag

OUTSSTD_BUF [.i CMO_REF) = .REF NU
!Load this cmd's ref num
OUTSSTD_BUF [.i, ENV_ADR] = 2ERO;
‘Clear the previous env adr

return .i;
end;

'Return buffer index to caller

]

! The buffer is full if the code reaches here.
;

report

error

for debug purposes.

resurn RET_STATUS
= 0BF_CODE;

This should never happen so

'Report an ‘out$std buffer full'' error

end;

.SBTTL
LOAD OUTSSTD.BUF MODULE DECLARATIONS
LOAD.OUT$STD.BUF:
JSR
1 .$SAVE2
CLR
R1
s 1

1$:

100000

8:?

5né>.x-1ooooo

100000

BIC

002001
0000006

29 words,

: Maximum stack depth per

1883

R1,.RO

RO
#OUTSSTD
.BUF ,R2

000003

: Routine Size:

ASL

ASL
MOV
ADD

MOVB

0000026

006
000207

MOV

0000006

000010

buffer and look for the first

Return this first slot index to the caller if one is found.

g An open slot is by definition the value %0'100000°

0000006

000064
000070

standing command

10(SP), (R2)

: REF. NN, *

MOV

R1,R0

s ll.®

INC

s 1

CLR

2$:

s l.¢

RO.R

#100000, (R2)

RTS

CMP

8LOS
MOV
MoV
RTS

OUT$STD.BUF +2(RO)
PC

R1.,43

1%
#2001 ,R0
RO,RET.STATUS

Routine Base: ACSCODE + 0224
4 words
invocation:

SEO 176

SPIDERSUSERS: (NEALE .AZTECICZRCHS. 816 3 (8)

If no open slots are found then return an error code.

[+ -]
~
o

e 00 04 8,00 00 00 Qe 0 VeV 00 B0 OV 8sCeBs eV Bs

e Ve v,

REV A PATCH 00

VAX=i1 Bliss=16 v3=555

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

s 1,0

114

1884
1885

VAX=-11 Bliss=16 V3-555

CIRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

global routine GET_CMDSREF =

!Gets next unique cmd ref number

7-Jul=1983 08:24:58

MODULE DECLARATIONS
fee

.
number
used to identify host commands.
Class drivers should supply a unique reference number in each
command that the send to a DUP server. A class driver may supply
a_2ero reference number if it does not need to associate a command

with its end message.

D b cad b
b
b
b
b
b
b
d wd
b
b
b
b
b e ach =
b amd wud
e
b e
b
e
e
e
o

00OV
OOV OV O OO0
NN ool WAWAWNINOARINI
N NI NN
& W N=2OOVWNOWNES NN — OVWNOWVEWN=2OV~N

$0oeo 800000000000
809 3333328

e ]
0
0

T E R TR
AT TS
AR E
IR
R
IRTR IR TN T Y X (PR
FE PRIR IR
PRYA
P
PSR
PR
P P Y
P P
A
RIS

T T

numbers must

Command reference

be unique across all commands that

are outstanding on the same connection 1.e., the{ must be unique
across all outstanding commands issued by a 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
outstanding -~ i.e., after receivrag the commands end message or
after re-synchronizing with the D
server. (ommand 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 internally use the combination of a command reference number
and the connection on which the command was received as the unique
identifier of an outstanding command.

This routine will generage a3 unique command reference number anr<
will search the out$standing command buffer to see if alreadv uesd.
The first unused unique command reference found will be -eturned
to the calling routine.

formal Parameters

none

Implicit _Inputs :

NXT_CRN

Implicit Outputs :
NXT_CRN

This global location stores the next unique cmd
reference number to be used.

]
.
.
This global location is lLoaded with the next
unigue command reference number.

)
.
)
Completion Codes :
The contents of .NXT_CRN is returned to the calling routine.
Side Effects :
none

begin
local
DONE;

! Increment the global unique command reference number before anything is done.

NXT_CRN = .NXT_CRN + 1;

Page

USERS JCZRCH5.B16:3 (9)
: [NEALE.AZTEC
SPIDERS

! Functional Description :
A
32 bit_ unique non-zero

PR PR PNPR LR LR

A PN ¥

CZRCHS
REV A PATCH 00

SEQ 177
12

J 14

1941
1942

}gzz

8:24:58

VAX=11 Bliss=16 Vv3=555

: unique command reference number is found.
do

begin
QR AK;

'Flag any operator control (C's

[RLLLER VI VIV

i Wrap

this next command reference number around

; back

to one if it is greater then 255 (decimal).

if .NXT_CRN gtr 255 then NXT_CRN = 1;

DONE = TRUE;

!Clear the all done indicator flag

Now

true

and the loop will

reference

the

number.

outSstd_buffer for this
[f

not

command

there then done stal

end else increment to the

next unique command ref number and make done false
to continue the loop.
incru i

from 0 to REC_ALLOCATE - 1 do

!Search buffer for this cmd ref num

:; .OUTSSTD
BUF [.i, CMD_REF] eqlu .NXT_CRN !Does it already exist

NNNNNNYN

begin
CRN = _NXT_CRN + 1;

'It already exists
'Trl the next sequential cmd ref num

exétloop.

'Exit this incr loop

DONE = FALSE;

'Make code loop again

end;

end

until

.DONE;

!Repeat loop until done

AR
IR
[IR

{

1980

% Return the unique command reference number to the caller.

1982

return .NXT_CRN;

1983

000000

010146

000002
000006
000010
000014
000016
000024
000026
000032
000034

105267
104422
012701
005000
126067
001004
105267
005001
000405

end;

LEBTTL
GET.CHDS:S;::

0000006
000001

0000005 0000006
0000006

1$:

28:

INCB
TRAP
MoV
CLR
CMPB
BNE
INCB
CLR
BR

GET.CMDSREF MODULE DECLARATIONS
R1,-(SP)

ggT.CRN

#1,R1
RO
QUTSSTD.BUF (RO) ,NXT.CRN
3$
NXT.CRN
R1
43

SED 178
13

SPIDERSUSERS:CNEALE .AZTECICZRCH5.B16; 3 (9)

‘e
! Repeat generating and searching the cut$standing command buffer until a

NTo (V) Ll V) ~N -0
VIS W= O O~ VIS WN=O L ele

b
el wmd
b
d
b
D
b cnd
D
b
ed and add wd wd
b ed oud od e
b e
b

PN PR
AT E I E TR I A N A TETR TETE TR IR
A
I ME TE
A AR

b
b

1977

11-Jul-1983 1 6:06:44
7=-Jul=1983 0

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

VOOV
OOV OOV VOO0

1945
1946
1947
}gzg

N P XA NI TN PR TN TN

I TN PR

N TN

CZRCHS
RtV A PATCH 00

:
s *,DONE
D
s *(l),»
H
. DONE
:

K 14
CZRCHS
REV A PATCH 00

062700

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

000004
000014

3$:
4S:

012601
000207

: Routine Size:
;

0000006

ADD
(MP

8LOS
ROR
8C(
(LR
8I1SB8

MOV
RTS

27 words, .

Maximum stack depth per

1984

11=Jul=1983 16:06:44
7-Jul=1983 08:26:58

.
Routine
Base:

invocation:

3 words

#4,R0
RO,#14
2$
R1
18
RO

NXT.CRN,RO

(sP)+,R{

ACSCODE + 0316

VAX=11 BLiss=16 V3=555

SEQ 179

SPIDERSUSERS CNEALE.AZTECICZRCHS. 816 3 (9)

HH|

1966

s DONE

1977

1931

1884

s 1.t

L 14
CZRCHS

Ve By Sg 0oV

0 0000e% 8000000000000 %000000s00006%000009%0 %5900, 0,980 890800900, I TE YRR IRIRIE
YAYR
IR R TR

R FH PN
Y XNI TN ¥

REV A PATCH 00

SEQ 180

1
VAX=11 BlLiss=16 V3=555
(10)
:3
USERS JCZRCHS5.816
: INEALE.AZTEC
SPIDERS

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:264:58

global routine DECODE : novalue =

‘Decodes failing SA reg data

Tee

:
! Functional Description

Due
are

Page

to the implimentation of the DUP and UQ Port protocol there
two levels at which an issued command to a port/controller

can fail and they are:

1. The issued command can time out.

2. An

error

report

can be posted in SA register bit 15 by the port

an error.

3. The issued command to the port/controller can be executed
correctly without any errors but the response packet status
tield could have an error or status other than success posted.
These errors or status's returned are all returned to the host
routine which queued the DUP command via the global storage
RET_STATUS"'.
The
host_
to port/controller
communications
connection having the highest priority (ie. if the SA Reg error
bit 1is set the DUP interrupt routine returns a PFE_CODE and this
code is passed up to the calling host routine with out being
intercepted by any routine on the way up).

This

routine

command comes
code.
{h:s gs
is

equal

An appropriate

will

then be called when the return from a queued

back with an error code or non successfull status
by definition when bit 0 in the returned status
recovery

action will be done for each individual

error.

formal Parameters

none

Implicit Inputs :
RET_STATUS:

.
]
)
Stored in this global storage is the returned error
code og non-successful status code from a queued
command.

Implicit Outputs :
none

Completion Codes :
none

Side Effects :
)
ALl formatter errors are fatal, therefor after execution

of this routine the RC25 controller is initialized
aborting any DM code running in the controller.

begin
ocal

SA_VALUE;

'Save SA register fatal error code

selectoneu .RET_STATUS of
s.»et
I

‘‘Communication area initialize'' error code

: This error code indicates that the port did
not init the com area in the host memory after
: step 2 of
the
initialization
sequence.

CCIE_CODE] :
egin

PRZNTB (.EMSG_STRUCT [MSG4]);

!Code equals %0°'01’

eng;

'Port/Controller time out'’ error code

Port/Controller timed out after the specified time out interval.

!Code equals Xo'11°’

CCTO_CODE] :
egin

PRzNTB (.EMSG_STRUCT [MSG21));

eng;

‘Port fatal error'' code

The error bit in the SA Register was set when examined in the DUPSI_SERVICE
routine.

This error indicates a Port fatal error code.

CPFE_CODE] :
egin

!Code equals %0°'21’

SAQVALUE = .RC25_ADDR [RCSA, ERR_CODE];

!Get error code from SA register

! Is the error code within the R(25 error code rang?, or is it
: an generic, all controllers, error code?

if .SA_VALUE gequ 200

then

begin

PR?NTB (.RC_STRUCTURE [.SA_VALUE - 200]));
else

end

begin

PRZNTB (.PFE_STRUCT [.SA_VALUE]);

end;

SEO 181

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (10)

! Use the contents of “RET_STATUS'' to select what type error or non=-success
ful
! status code is to be processed.

tmt
ot
ms e

I A
PRI TR IR
PR PRTR TR
T TR
A
T TA R
R ST A
EEI EE
R E
AR T E
IR R IEIEEE

:24:58

VAX-11 Bliss=16 V3-555

RS ATR

LRI ALR TR X I

YR IR NN PR T PR PN PR TR XN 1

REV A PATC'' 00

CZRCH _RC25 DISK FORMATTER
MODULE DECLARATIONS

CZRCHS

11=-Jul=-1983 1 :06:44
7=-Jul=1983 0

'RL25 error code range

!Generic error code

2099
2100
2101
2102
103

I
G
W
I U WY W
T
Y Gy I

= O 000NV &

7=-Jul=1983 0 8:24:5 8

VAX=11 Bliss=16 V3=555

CRSE_CODE] :

from an issued command.

!Code equals %o0'31’

ES?&?B (.EMSG_STRUCT [MSGO0Y):
g Look at the UQPORT connection ID field to determine the type of response
if .RET_ENSAD [CONN_ID] eqlu DUP

then

begin

PRZNTB (.SDUP_STRUCT [.RET_ENSAD [STATUS]]);
else

begin

PRZNTB (.SMSCP_STRUCT [.RET_ENSAD [STA_CODE]]);

end;

‘Port Portocol violation'' error code

A protocol violation error was detected during host processing of an issued command.
[PVE_CODE] :
egin

PRzNTB (.EMSG_STRUCT [MSG1D);

!Code equals %0'41’

enda,

‘Remote program died’' error code

This indicates
that the remote progra@ running
in the DM machine did not responded within the
designated time out interval and that the progress

indicator was not increase after subsiquent time out

delays.

It is assumed that the remote program is dead

and s treated as a fatal error.

[RPD_CODE] :
egin

PR?NTB (.EMSG_STRUCT [MSG2));

]

!Code equals %o0'51"'

end;

% “Port to host synchronious error’’ code
[PSE_CODE] :
egin

PRZNYB (.EMSG_STRUCT [MSG5]));

ena.;

!Code equals %0'61’

SEQ 182

Page

5.816.:3 (10)
ERS
TECICZRCH
SUS
: [NEALE.AZ
SPIDER

% This indicates that a non-successful return status code was returned

WIS W
N

ir
[P

11-Jul~1 983 1 6:06:4 4

s ‘Return status error’'’' code

NON VIS WN = OO0 N
NS WRN = OV
NN = OO0 NS NN = OOV

e e
S
R

VIV
S B 8N B 8 B8 B B

T
A
R E M E NE T
R

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

N W AW NN AN NI N NI N PO PO NI NI NI N b b b b cd cocd b ocd md b [elelelolels)

MRV AL ALNLRL AL NN NN RV NI AL N NN N AN NN
NN N NN NI NN NI NIAINININL
N AN NI NI NN PN NN NN
—d o cmd oud wd b b b od b b b cd ed e
D b —d b D b D b wnd b cmd b ek b

P Y

P P

PR PRTR

TR TR PR PR TRLN PR X [T EYR

T EYEYEIA

A TE YA IR

YR YN PR VN P NN PN

R TN TS
TNXN P

CZRCHS
REV A PATCH 00

»HO

N 14

I E R

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (10)

; ‘Message length error'' code

CMLE_CODE) :
egin

d
b nd

]

end;

g 'Unknown end code'’ error code
CUEC_CODE] :
egin

b e

]

end;

: ‘'Adaptor purge request’'' error code

[APRSCODEJ

PRZNYB (.EMSG_STRUCT [MSG81);

!Code equals %0°'201°

‘Unknown interrupt'' error code
CUIN_CODE] :
egin

PR?NTB (.EMSG_STRUCT [MSG9));
]

b e

g “ATTENTION MSG ENDCODE'’ error code
[ATN CODE]

]

'Code equals 20°'301°*

end;

b o omd

d md

b red e

b med

b v

b cd

!Code equals %0°'101*

PRZNTB (.EMSG_STRUCT [MSG71);

D and

!Code equals %o0°'71"

PR?NTB (.EMSG_STRUCT [MSG6D);

D o

b -—b

oo 0000 N NNNNNNNNNOOROOCOOONONOONWNWN U
N =S OVONOWNMSHWN=OO 0O NO NS
N =2 O V00~

LSLNLNUNTLS
NS TSNS TS TNTNTN NSNS LS TN N NI NI N TN TN NI N1 NN TS TS LS I NN NN T V1 N1 V1N N

VAX-11 Bliss=16 V3=555

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

PRZNTB (.EMSG_STRUCT [MSG12));

'Code equals %0°401°

; "'COMMAND MSG ENDCODE'’ error code

[CMD_CODE] :
egin

!Code equals %0°'501°

PRZNTB (.EMSG_STRUCT [MSG131);
!

ena;

; "'SERIOUS EXCEPTION'® error code

[SEX_CODEJ :

PR?NTB (.EMSG_STRUCT [MSG141);
egin

AR I

IR EE

AR E R

A E TR M E

IR R I A TR

I ETEA

PR PRTR YR IR IR YR TR

NNFE TR

PRTR TN Y TR TNI ¥

CZR CHS
REV A PATCH 00

‘

end;

I “'INVALID COMMAND'* error code

SEO 183
18

!Code equals 20'601’

c15

CZRCHS
REV A PATCH 00
:
:

2213
2214

2215

2217

:
:

2216

2218
2219

%g%g

2222

e?1n

PRINTB (.EMSG_STRUCT (MSG15]));
end;

5 *UNKNOWN MESSAGE TYPE'' error code

:
CUMT _CODE]

:
:

2226
2227

;

ggsg

2230

:
:

2234
2235

:
H
:

2231
2232
2233

sggg

2238

2240

2239

2241

gszg

:
:

2242
2243

2246

2247

2249

2248

2250

:
:
.

2252
2253
2254

2256

2251

2255

;

2257

:
:
N

2259
2260
2261

2264

H
:

2258

2262
2263

2265

2267

2266

2268

!Code equals %0°'1001°

PEINTE (.EMSG_STRUCT [MSG161);
end;

% *UNKNOWN MESSAGE NUMBER'' error code
CUMN_CODE] :
e?1n
PRINTB (.EMSG_STRUCT [MSG191);
!

end;

!Code equals X0°'4001°
]

; Out standing buffer slots are all filled up
[OBF_CODE] :

!Code equals %0'2001'

e?ln

PRINTB (.EMSG_STRUCT [MSG17]);

end;

; Out standing command buffer out of sync error
(OSE_CODE]
:

'Code equals %X0°'3001°*

be?

PRINTB (.EMSG_STRUCT [MSG181);

end;

)

! file read error from local load media
[

[FRE_CODE] :
e?vn

!Code equals 20°'5001°

PRINTB (.EMSG_STRUCT [MSG20]);

end;
!
! Illegal FCT file length
!

CILL_FCT] :
e?ln

'Code equals 20°'6001°*

PRINTB (.EMSG_STRUCT [MSG221);

SPIDERSUSERS:CNEALE .AZTECICZRCH5.B16; 3 (10)

!Code equals %o0'701'

CIvC_CODE] :

%%%z

5555

VAX=-11 Bliss=16 V3=555

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS

SEO 184

Pag

end;

% This is here to trap any unknow return status codes sent to this routine.

D15
CZRCHS

REV A PATCH 00

11-Jul=-1983 16:0 6:4 4
7=Jul=1983 08:2 4:5

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

[otheru1se]

PR?NTB (.EMSG_STRUCT CMSG31);

tes;

VAX=11 Bliss=16 V3-555

SEO 185
20

SPIDERSUSERS: (NEALE.AZTECICZRCHS. 816 3 (10)

!Code equals non of the above

end;

i ALL errors are fatal so init the RC25 and jump to the clean-up
; code section to abort this units format.

!Init the controller
.
!Init the controller
'Jump to the clean-up code section

RC25_ADDR [RCIP, RC ALLJ ONES;

WRT RCZS (RCIP, ONES
DOCIN;

end;

006167
024646
016701
020127

0000006
0000006
000001

.SBTTL

DECODE: :JSR
CMP
MOV

CMP
BNE

0000106
000001

000011

MOV
MOV
MOV
TRAP

18:

0000526
000001

000021

MOV
MOV
MOV

2s:

0000006
000002 000002
000002

BIC
cMP
BLO

000310

ASL
MOV
MOV
MOV
TRAP

1771606

000001

000164

001044

C00031

TRAP
BR
CMP
BNE
MOV
MOV
MOV

174000

0000006
000001

BR
cMP
BNE

3s:

43:

ASL
MOV
MOV
MOV
TRAP

BR
CMP
BNE

DECODE MODULE DECLARATIONS
R1,$SAVE2
-(SP) ,-(SP)
RET STATUS,R1

2048

E?SG(gTRUCT*10.~(SP)

2060

SP.RO
14
11$

1985

SP,»

2048

R1.411
2$

2070

EMSG.STRUCT+52,-(SP)

#1,-(SP)

SP.RO
14

SP,*

2048

13%
R1,#21
43

RC25.ADDR,RO
2(R0) ,2(SP)
2(SP) ,RO

#174000,R0
RO,#310

* ,RC$S.REG
RC$S.REG, SA.VALUE
+,SA.VALUE
SA.VALUE,
*

RC.STRUCTURE=620(R0)
,=(SP)
SP,RO

14
17%
RO

PFE.STRUCT(RO) ,~(SP)
#1,-(SP)

SP,RO
14

17%
R1,431
7%

2087
2090

#1,-(SP)

2081

SP,*

2087
2094

SP,e

2048

E 15

016746

16:06:4
7=-Jul=198 3 0 08:24: 58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

MOov
MOV
MOV
TRAP
MOV
MOV

0000006
000001
0000006

000003

CMPB
BNE
MOV
ASL

000002

000016

MOV
MOV
MOV
TRAP

0000006
000001

000016
177740

5$:

0000006
000001
6$:

000041

7%:

0000026
000001

000051

Move
8IC
ASL
MOV

MoV
MOV
TRAP

TST

CMP
BNE
MOV

MOV
MOV
TRAP

8s:

0000046
000001

CMP
BNE
Mov
MOV
MOV

TRAP

000061

9%:

0000126
000001

000071

MOV
MOV
MOV
TRAP

108:

010600

0000166
€00001

]
[ 1

—

000014G
000001

000101

CMP
BNE

MOV
MoV
MOV
TRAP

CMP
BNE
MOV
MOV
MOV

CZRCHS
REV A PATCH 00

11-Jul=198 3 1

VAX=11 Bliss=16 Vv3=555

SEO 186

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (10)

2106

EMSG.STRUCT,-(SP)

SP,RO

: SP,+

RET.ENSAD
,R2
R2,RO
3(RO) ,#2
58
;S(RZ).RO

H
: RET.ENSAD,*

2114
2111

2114

#1,-(SP)

(SP)
SDUP.STRUCT(RO),

#1,-(SP)

SP,RO

: SP,»

:
:

16(R2) ,R2

0577746 R2

2111
2118

(SP)
SMSCP.STRUCT(R2),

#1,-(SP)

SP.RO

; SP,x

228

:
:

2105
2048

EMSG.STRUCT+2,-(SP)

2130

SP,RO

: SP,»

248
R1,451
9%
EMSG.STRUCT+4,=(SP)

2048

2145

SP,RO

: SP,+

268

2048

0$
EMSG.STRUCT+12,=(SP)

2153

SP.RO

: SP,*

288
R1 471

2048

EMSG. STRUCT+14,~(SP)

2161

SP.RO

: SP,+

308
R1,#101

2048

EMSG.STRUCT+16,-(SP)

2169

14
(SP)+

R1,461
8$

#1,-(SP)
14

?1.#61

#1,-(SP)

12$

#1,-(SP)

14$

#1,-(SP)

SP,RO

11=Jul7=Jul=19

MODULE DECLARATIONS

000201

138:

14%:

0000206
000001

0000226
000001

000401
0000306
000001

000501

EMSG. STRUCT+20,=(SP)

2177

SP.RO

: SP,»

338
R1,#301

2048

EMSG. STRUCT+22,~(SP)

2185

SP.RO
14
33s
R1,#401

: SP,*

2048

EMSG. STRUCT+30,~(SP)

2193

SP.RO

: SP,¢

338

2048

EMSG.STRUCT+32,-(SP)

2201

SP.RO

: SP,w

33s
R1,#601
208

2048

EMSG.STRUCT+34,-(SP)

2209

SP,RO

: SP,»

338
R1,4701
21$
EMSG.STRUCT+36,~(SP)

2048

2217

SP.RO
14
33s
R1,4#1001

: SP,»

2048

EMSG. STRUCT+40,=(SP)

2225

SP,RO

: SP,v

33g
R1,#4001

2048

EMSG. STRUCT+46,=(SP)

;

2233

SP,RO

: SP,e

15¢$

168

18§

#1,=(SP)
17%:

18$:

000032G
000001

R1,#501
19%

M =(SP)
14

000601

19%:

0000346
000001

#1,-(SP)

000701
012746
010600
104414
000502
020127
001007
016746
012746
010600
104414

000676

000470
020127
001007
016746
012746
010600
106414

20$:

0000366
000001

001001

#1,-(SP)

21s:

000040G
000001

004001
0000466
000001

238

#1,-(SP)

22%:
23$:

SPIDERSUSERS: LNEALE .AZTECICZRCHS. 816 3 (10)

2048

#1,-(SP)

16$:

SEQ 187

(SP)

15%:

VAX=-11 Bliss=16 V3-555

338
R1,#201

000301

O
GO

REV A PATCH 00

CZRCH _RC25 DISK FORMATTER

-d

CZRCHS

0
©o 0o
W

F 15

25$

#1,-(SP)

CZRCHS
REV A PATCH 00

000700

000456
020127
001007
016746
012746
010600
106414
000444
020127
001007
016746
012746
010600

§3f5E338§E3§'E35x35522rechzncus 816 3 (10%

MODULE DECLARATIONS

002001

248$:
25$:

003001

26$:
27%:

001056
001062

SP,RO

: SP,¢

338

2048

29%
EMSG.STRUCT+44 ,-(SP)

2249

SP,RO

: SP,e

338

2048

EMSG.STRUCT+50,~(SP)

2257

SP,RO
14
338
R1,#6001
328

: SP,¢

#1,-(SP)
14

28$:
29%:

R1,#5001
318

#1,-(SP)

31$:

0000546
000001

2048

EMSG.STRUCT+54,~(SP)

2265

SP.RO

: SP,v

338
EHSGiST§UC706.°(SP)

:
:

SP.RO

: SP,*

#1,-(SP)

000406
016746
012746
010600

000006G
000001

012766
012700
010077

177777 000004
177777
0000006

062706
000207

000010

104444

2241

R1,4#3001

1046414

104414

006091

E?SG.SYRUCT+42.-(SP)

#1,-(SP)

0000506
000001

000420
020127
001007
016746
012746
010600

2048

27$

0000446
000001

005001

338

R1,#2001

0000426
000001

104414

000432

SEO 188

CZRCH _RC25 DISK FORMATTER

328:

33s:

MOV
TRAP
MOV
MOV
MOV
TRAP
ADD
RTS

14
#-1,4(SP)
#-1,R0

; *,RC$S.REG

2281

22.3RC25.ADDR

: * RCSM.REG
: RCSM.REG,*

#10,SP

1985

; Routine Size:
)
Routine
Base:
ACSCODE + 0404
282 words,,
10 words
; Maximum stack depth per invocation:

2285

2048
2273

2282

H 15
CZRCHS

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

N YR PR PR TR TN TN TN ¥

global routine DUPSI_SERVICE : INT_LNKSTYP novalue =

! 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:

PRFE PR

The message was a command with F=1 and the port's fetchin? it
caused the command ring to transition from full to not-full.
gth;: 1ngerr?pt means that the host may place another command

PR YR IR IR

FETETE TR R
IR I YR

the

ring.

The message was a response with F=1 and the port's depositing

it caused the response ring to transition from empty to notemptz.
(This
interrupt means
that there is a response for
the host to process.)

The port
is
interfaced to the host via a bus abapter and a
command reguvces
the port/controller to re-access a given
location
during
data transfer.
(This interrupt means that
the port/controller
1is
requesting
the host
to purge the

~NOWVSW

indicated chanel of the bus adapter.)

OOV

[ASIANT
N 1,81, NT1,81,8]1,8}
W NN N NN NN
A) —> =t b eud b =d b

R PR TR TR IR
P
A
YA N E N ETR XA

!Signals receive queue entry

b 2

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

none

Implicit Inputs :

Nrd_slot:

]

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.

Implicit Outputs :
Ret_status:

EEE
T I IE T E E N
R AR E M E T
R AAR AR
A
A

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

SEQ 189

Page 24
VAX=11 Bliss=16 V3=555
(11)
5.816;3
SPIDERSUSERS
: [NEALE.AZTECICZRCH

This
global
flag
is the mechinism by which these DUP
and UQ 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.

Out$std_buf:

Completion Codes
none

Side Effects :
none

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.

115
CZRCHS

REV A

PATCH GO

7=Jul=1983 08:24:58

begin

’

ggzg

'Holds nrd_slot + 1 reference

FOUNDUC§D.

5340

2352

11=Jul=1983 16:06:44

'Found command flag

REF _NUM;
!

Before this

; look

'Stores response packets cmd ref number

interrupt service routine does anythin

at the SA register for any port fatal :rrorg

2353
%%gg

! posted.
If there are errors posted then report the
! error and kick the bucket.

5325
Sggg

it
.
Ko

:f RC25_AD
C
ADDR

[RCSA., ERR_BIT]
ERR
T

!
'Are
there any errors posted

2360

Re? Srar
STATUS = PFE_CODE;

!Indicate the error type

230¢

;g;grn.

‘Just for show. Decode will kill it

Sgg;

'Decode and print theygrcor

’

%ggg

g We could have a:

2370

237

2372
2373
%%;é

2. Send ring trgnsition interrupt.

3. A adaptor purge request interrupt
(which is
!
illegal running under the PDP-11 Diagnostic
:
:2gg:v;sor and 1s flagged as a fatal controller

2376

gg;g

4. Or an unknown interrupt not known by

this

2379

EEERIEEREEEEI E R E T E N

A E

2365
gggg

'+
; See what kind of interrupt got us here.

2364

DECODE O);

TR R

PR PR PR PR IRTN PR TR AR

PR TR IRIR
SN PR
TE PR
LRLR LN

gg:z

CZRCH RC2S DISK FORMATTER

MODULE DECLARATIONS

SEQ 190
25
VAX=11 Bliss=16 V3=555
(11)
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.816;:3

2380
2381

5%
2384

Sggg

2387
gggg

2390

gggz

1. Response

;

rin

transition

interrupt.

program

which also results in a fatal coztrolleg egror.

1 ch
Check to see
if we get here because of a res

s transition 1ngerrugt. This is more likefypggsger;flg
: most frequent interrupt so check it first.

]

i rfa .HEAD_AREA [RSP_INT]
en

begin

§E _NRD ();

'Get the resp slot location to process

2393

i Check the host

2395
Sggg

: is owned by the host (meaning that there is a resp
: envelope at this ring slot to process.

2394

2398

2399

protocol for being

out of se

: with the controller by making su?e that thigung:

)

it .RECEIVE_RING [.NRD_SLOT, OWN_BIT] nequ HOST_OWNED

!Is this owned by host

Page

J 15

CZRCHS

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

:
:
:
:
:
:

2400
24601
2402
2403
2604
2405

then

2407

2410

! found

:
:

2606

2408
2409

11=Jul=1983 16:06:44

7=Jul=1983 08:24:58

.
!Host/port is out of sequence
!Load a ‘Port sync error’’ code
'Report the error and kick the bucket
'Just for show Decode kills it

be?vn
RET_STATUS = PSE_CODE;
DECODE ();
return;
end;

! Per DUP protocol once interrupted due to a response ring
! interrupt, the host code should process all response packets
1in the response

rlnz.

el
2412
2413
2414
2415
2416
%2};

while TRUE do
begin
BREAK;

2419

! Load the

Reference structure 'Ret_en$ad'’ with the address

2421

! done

address

2420
gzg%

! to process the response packets
! none remain.
!-

This while loop will continue

:
:
:
:
:
:
:

the response ring until

!Process all response packets in ring

!Look for control c's

! of this response
to

envelope

to process (The minus %0°'4’ is

the first word in the envelope

! and is equal to location "text=4"").

packet

gzgg

RET_ENSAD = (.RECEIVE_RING [.NRD_SLOT, LO_ENSAD]) - %o0°4’;

:
:

2426
5235

e
: Test the end packet for its possible three end types.

;
:
:
:

2429
2430
2431
2432

!
!
!
!

H
H

2433
Szgg

SEQ 191
Page 26
SPIDERSUSERS
: [NEALE.AZTEC JCZRCHS5.B16:3 (11)

VAX-11 Bliss=16 V3=555

End messa?e opcodes (also called endcodes) are formed by adding
the end
message
flag to the command opcode. For example, a READ commands end
message contains the value QP.RED + OP.END in its opcode field. The Invalid
command end messa?e contains just the end message flag (i.e., OP.END) in
Pits ogcer field.
The serious exception opcode shown above (i.e. OP.SEX +
: OP.END) in its opcode field.

2436

! Commands opcode bits 6 and 7 indicate the type of message (command, end or

H
:

2438
5228

! catagory (immediate, sequential or no-sequential) and whether or not the
: command includes a butfer descriptor.

2437

5225

26443

:
;
:
;
:
H
:
:
H
H
H
;

2445
2446
2447
2448
2449
2450
2451
2452
2453
2454
2455
2456

2444

! attention

message.

Command opcodes bits 3 through 5 indicate the command

; See MSCP document appendix '‘A=1 NOTE:'' for more information on this topic.

selectoneu .RET_ENSAD [TYPSMSG) of
set

CENDSMSG] :
begin

!Select the endpacket size
!Is this an end code packet

e
)
! Select off of the endcode to make sure the communications
! mechanism transfered the correct number of byte for this
! end packet.
If this number of bytes transfered is not
! correct for the commands end packet then load the error
! code into
return
status, call decode to report the
! error and kick the bucket and die. This endcode is formed

K 15
CZRCHS

PATCH 00
2457

2455
2459
2460

2461

2462
2463

2464

2465
2466

2467

gzgg

11=Jul=1983 16:06:44

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

7=Jul=1983 08:24:58

! by adding

set
s

! "RECEIVE DATA'*
!

begin

end;

! "'SEND DATA'' command end packet
!

[EOP_SED] :

if .RET_ENSAD [MSG_LENGTH] nequ ESZ_SED

2487

then

2488

2489
2490

5201

!Is the byte count correct

begin

RET_STATUS = MLE_CODE; !Return a ‘message length error code'’
DECDODE ();
TReport the error and kick the bucket

2491
2492

2497
2498
2499

'Is the byte count correct

end;

2486

2496

command end packet

RET_STATUS = MLE_CODE; !Return a ‘message length error code’’
DECODE ();
TReport the error and kick the bucket
return;
'Just for show. Decode kills it

2476

2493
2494
2495

if .RET_ENSAD [MSG_LENGTH] nequ ESZ_RED

then

2473
2474
2475

2483

message flag X0'200°' to the commands

begin

2472

2481
2482

SPIDERSUSERS
: [NEALE .AZTECICZRCH5.816.;3 (11)

CEOP_RED] :

247

2480

end

VAX=11 Bliss=16 V3=555

selectoneu .RET_ENSAD [ENDCODE] of

2470

2477
2478
2479

the

! opcode.
‘-

return;

end;
!

'Just for show.

Decode kills it

end;

'** GET DUST STATUS'®
!

command end packet

[EOP_GDS] :

2502

if .RET_ENSAD [MSG_LENGTH] nequ ESZ_GDS

2503
2504

then

!Is the byte count correct

be?in

2505
2506

RET_STATUS = MLE_CODE: !Return a ‘message length error code'’
DECODE ();
TReport the error and kick the bucket

2508

end;

2507

return;

EEEEEEE

YA P P PR

PRCE

PR LR YR T T

LA X P E T IR

IR A

T FE TR

N TR R RN PR N

N NI TN ¥

REV A

[}

'Just for show.

Decode kills it

end;

% “EXECUTE SUPPLIED PROGRAM'' command end packet

SEQ 192

Page 27

L 15
CZRCHS

CZRCH RC2S DISK FORMATTER

11=0ul=1983 16:06:44

REV A PATCH 00 MODULE DECLARATIONS
:
;

2514
2515

;

5?19

:
:
:

2518
2319
2520

2522

7=Jul=1983 08:24:58

begin

if .RET_ENSAD [MSG_LENGTH] nequ ESZ_ESP
!Is the byte count correct
then
begin
RET_STATUS = MLE_CODE;
!Return a 'message length error code’’

2521

DECODE ();

2523

return;

2524

end;

TReport the error and kick the bucket
‘Just for show.

Decode kills it

2525
2526
2527
gg%g

end;
!
; "EXECUTE LOCAL PROGRAM'' command end packet

:
:

2530
2531

[(EOP_ELP]
:

2534

:
:
H

:
:
H
:
:

52%%

begin

it .RET_ENSAD [MSG_LENGTH] nequ ESZ_ELP

2535
2536
2537

then

2538

?1
STATUS = MLE CODE

DECODE 0;

2539
2540
2541
2542
2543

ngg

.
H

2546
2547

[EOP_ABT]
:

2550

N
:
:

:
:

ggzg
2551
2552
2553

2554

2555

2556

2557

2558
2559

sggg

2562

2563

5222

2566

:
:
:

2567
2568
2569

2570

return;
end;

'Is the byte count correct

!Return a ‘message length error code'’

TReport the error and kick the bucket
iJust for show.

Decode kills it

end;

; ‘‘ABORT PROGRAM'' command end packet

begin

it .RET_ENSAD CMSG_LENGTH] nequ ESZ_ABT

then

beqi
RE SYAYUS MLE_CODE;

DECODE ();
return;

end;

!1s the byte count correct

!Return a ‘message length error code'’

TReport the error and kick the bucket
‘Just for show.

Decode kills it

end;
!
; “'SET CONTROLLER CHAR'' command end packet
CEOP_SCCT :

begin

if RET_ENSAD [MSG_LENGTH] nequ ES2_SCC
!Is the byte count correct
then
be?vn
RET_STATUS = MLE_CODE:
!Return a ‘message length error :ode'’

DECODE ();

SEO 193
2

SPIDERSUSERS:LNEALE .AZTECJICZRCHS. 816 3 (11)

LEOP_ESP] :

:
:
:
:

VAX=-11 Bliss=16 V3=555

TReport the error and kick the bucket

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:06:44

7=Jul=1983 08:24:58

MODULE DECLARATIONS

return;
end;

CEOP_ONL] :

begin
en

DECDDE ();
return;

end;

!Is the byte count correct

!Return a 'message length error code’’

TReport the error and kick the bucket
‘Just for show.

Decode kills it

YRTR

end;
The

°‘OP_END'’

end message flag all by its self tells

us that the controller is

flagging us

gomta?d sent over the connection.

of an illegal

Error and kick the

ucket.

[0P_ENDJ

A PR

YR PR TR FETR PR YR

be?in

RET_STATUS = MLE_CODE;

STATUS IvC_CODE;

(
DECODE

return;

A
T R
R
M E T E A
R
IR E T E T E N E N E N E R
IR E

Decode kills it

2; +RET_ENSAD [MSG_LENGTH] nequ ESZ_ONL

end;

! The controller is telling_us that a serious exception
; has occured.
Error and
kick the bucket.
CEOP_SEX]
:

Be?

STATUS
= SEX_CODE:;

DECDDE Q0:

return;

end;

g Unknown end packet endcode type
[otherwtseJ

RE?STATUS= UEC_CODE;
DECODE ();
regurn

tes.,

end;

'Return an ‘‘unknown end code'’

"Report the error and kick the bucket
‘Just for show.

SEO 194

SPIDERSUSERS: LNEALE .AZTECICZRCHS. 816 3 (11)29

g *ON LINE'* command end packet

EIEE
N

‘Just for show.

VAX=11 Bliss=16 V3-555

end;

YNPR

PR PRYR TR ¥ LN TR YR IR TR FE

N PR TN PN YN

€2 RCHS
REV A PATCH 00

Decode kills it

N15
CZRCHS

B e e %o 8a0e 008,800 03 0, 0:0e000s%c0s 000,000V

0009V Vs

009

VWV BT 000000000000V

0W000 T %0 0000000000800

00,

REV A

SEQ 195

Page
VAX=11 Bliss=16 V3=-555
RS (11)
RCH5.816;3
RSUSE
: [NEALE.AZTECICZ
SPIDE

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER
PATCH 00 MODULE DECLARATIONS
2628
2629
2630

' The port/controller sent the endpacket over the connection
! with out any problems. Now find this commands owner in the
! out$standing buffer and indicate to them that the command

%ggz

BEF_NUM = ,RET_ENSAD C[CMD_LREF];

2635

! Search

2638
2639

! If found, load the buffer location with the ret_enSad
! and set the received flag to signify that this command

%gz%

FOUND_CMD = FALSE:;

ggfig

incru i from 0 to REC_ALLOCATE - 1 do

gggé

; has been received.

gggg

;

%gzg

the outstanding

reference number.

!Get this rec packets cmd ref number

command buffer for

this commands

; has been received by this interrupt service routine.

2646

!Clear the found cmd flag

!Search the buffer

it .OUTSSTD_BUF [.i, CMD_REF] eqlu .REF_NUM

2647
2648

then

begin

!Is this the comd ref
.

2649
2650

OUT$STD_BUF [.i, REC_FLG) = TRUE;
!Indicate command is received
OUTSSTD BUF [.i, ENV_ADR] = .RET_ENSAD;
!Return envelope adrs

2652

exitloop;

2651

FOUND_CMD = TRUE;

2653

end;

2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664

'Exit the loop

! If the search through the command ref
! buffer failed to find this commands cmd
! reference number then die.
!

.
if not .FOUND_CMD
then
begin
RET_STATUS = PSE_CODE;

2665

DECODE ();

2666
2667

2668

TIndicate it was found

return;
end;

3298

‘

2671
2672
2673

! The set controller characteristics command
! disabled the reporting of attentions messages
! so treat
this as a fatal error and die.

2676

[ATT$MSG] :

2674
2675

2677

RET_STATUS = ATN_CODE;

DECDDE O);

2680

2683
2684

!Attention end message type

begin

2679
2682

'End of ENDSMSG processing

2678

26381

end;

return;

end;

)

]

! It doesn't make any since for this end message
! packet not to have the end message flag adde

8 16

11-Jul=-1983 16:06: 44
7=-Jul=1983 08:24: 58

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.816:3 (11)

! to this command opcode as treat it as a fatal
: error and die.

N PN 1

CZRCHS
REV A PATCH 00

IRTR YN PR N YR NI

CCMDSMSG] :
be?in
RET_STATUS = CMD_CODE:

DECODE ();
return;

end;

IR T A A R

PETRIE

This end code type is of unknown origin so
treat is as a fatal error and die.

Cotherwisel :
beqin

RE? STATUS = UEC_CODE;

DECODE O);

I VR T [T E R IEA I E I AR
NN PR N T
PRT YR YR
SR
A YETEYE
A

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.

@Er_ensno [MSG_LENGTH] = RB_SIZE*2;
i Return

this receive slot descriptor back to

; the port to fullfill my part of the protocol.

éECEIVE_RING [.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.

if .NRD_SLOT + 1 gtru REC_ALLOCATE - 1

AR
IE A

end;

else

'Has the ring ref wrapped around

TEMP = ZERO

'Wrap it back to zero dsc slot

TEMP = .NRD_SLOT + 1;

!Look at the next seq dsc slot

]

; Now see if the next receive descriptor slot is host owned.

R EE

'Unknown message type code received

return;

tes:

if .RECEIVE_RING [.TEMP, OWN_BIT] eqlu HOST_OWNED

else

SEQ 196
Page 31

!Are we done yet

GET_NRD ()

'Get the next resp desc to process

exitloop;

'No more to do Sso exit

c 16

CZRCHS
REV A PATCH 00
:

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

2742

2743
2744
2745
2746
2747
g;zg

!
! ALl response ring descriptors have been processed with out any
! detected errors so return to the main host code with an pass
; return code. But before we go clear out the interrupt indicators.

2750

HEAD_AREA [RSP_INT] = ZEROS;

!Clear the interrupt indicator location

2752

return RET_STATUS = PAS_CODE;

!Return a '‘pass code

2751

HEAD_AREA C[CMD_INT] = ZEROS;

'eEnd of WHILE LOOP

!Clear out the indicator

5;22

2755
2756

TeannnnnnrnnnnnvnnseedEND OF RFSPONSE RING INTERRUPT PROCESSINGtttntnttnsntanstenet

:
H
:

2758
2759
5;2?

! A send ring transition interrupt could happen if at
! some date only one descriptor slot is allocated for
; commands.

end;

2757

:
:
:
:
:
:
:
:
:
;

2762
2763
2764
2765
2766
2767
2768
2769
2770
S;;;

! Clear the interrupt indicator if this is true and do
! a return with no errors.
‘=
it .HEAD_AREA (CMD_INT]
then
begin
HEAD_AREA [CMD_INT] = ZERO;
return;
end;

2773

ianwnnnnvasnnnnvrnrnnncasEND OF COMMAND RING INTERRUPT PROCESSINGratnsnssannttttneny

:
:
:
:
:
;
:
H
:
:
:
:
:

2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786

2788

;

2787

.
L
!Is this a com ring transition interrupt

!Clear out the indicator
!Continue on with the host code

'+
! Check to see if an adaptor purge is being requested
! by the port/controller in order to complete excution
! of a issued command. Remember that this is illegal
! during PDP-11
formatting and is concidered to be a
! fatal error.
l=
if .HEAD_AREA [ADP_CH] nequ ZERO
then
begin
RET_STATUS = APR_CODE;

DECODE ()
return;

!1s the an adaptor purge request?
.
!Indicate the error code

'Report the error and kick the bucket

'Just for show. Decode kills it

::
;
:
:

2791
2792
2793
2794
S;gg

TennnananaennnananannesasEND OF ADAPTOR PURGE INTERRUPT PROCESSINGtwtanastntatatentatntn

;
;

2797
2798

! Load the error code into return status and call decode to take
! appropriate action.

'+
! The host program has been interrupted bl an unknown interrupt
; source if the routine program flow reaches here.

SEQ 197

Page 3
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECICZRCH 5.816;3 (11)

:
:
:
:
:
:

end;

11=-Jul=1983 16:06:44
7=-Jul=1983 08:24:58

D16

000000

RIS

CZRCHS
REV A PATCH 00

MODULE DECLARATIONS

VAX-11 Bliss=16 V3-555

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3 (11)

RET _STATUS = UIN_CODE;

DECODE ();
return;

end;

.SBTTL DUPSI.SERVICE MODULE DECLARATIONS
DUPSI.SERVICE::
RO,~(SP)
MOV

010046

0000006
000002

000021

000000G

0000006
000001
000006

000550

0000006
000000C

18:

2$:

176424

100000

000002

000061

000000G

¥
A

R3.=(SP)

Ré%.=(SP)

RS =(SP)

RC25.ADDR, RO
2(a0) -(SP)

#21.RET.STATUS
9s

HEAD.AREA,RO

BEQ

218

PC,GET.NRD

NRD.SLOT,RO
RO
RO
RECEIVE.RING,RO
I;OOOOO.Z(RO)

MOV
8R
TRAP
MOV
ASL
ASL
ADD
MOV

#61,RET.STATUS
16$

MOV
MovB
ASR
ASR

,R1
RET.ENSAD
14(R1) ,RO

* RC$S.REG

2357
2360
2361
2388

23N
2399

22
NRD.SLOT
RO
RO
RO

RECEIVE .RING,RO
(RO) ,RET .FNSAD
#4 ,RET .ENSAD

2444

#177774
R0
RO, #2

14$

R2
14(R1) ,R2

000014
000205

000060

R1.=(SP)

g;.é(RO)

ASR
ASR
ASR
ASR

2286

R2.=-(SP)

BIT
BNE
JMP
JSR
MOV

sus

177774
000002

001007
021127

Mov
MOV
Mov
mov
MOV
Mov
MOV
BPL
Mov
BR
MoV

ASL
ASL
ADD
8IT

0000006
0000006
000004 0000006
0000006
000014

000216
000220

11-Jul-1983 16:06: 44
7=Jul=1 983 08:24:

CZRCH RC25 DISK FORMATTER

SEO 198

2461

Rg.azoé

5$:

(R1),460

2470

E 16
CZRCHS

REV A PATCH 00

001453
012767
000520
020227
001766

000211

108
#71,RET.STATUS
168
R2,#204
58
R2,#201
5$
R2.#202
5¢
R2.#203
5$
R2.#206
5¢
R2,#204
5§
az 211

000200

R2 #200

000071

0000006
6$:

000204
000201

000202

000203
000206

000204

000701

7$:

000601

0000006

000101

0000006

100000

85:

118:

0000006

#101,RET.STATUS

248
RET.ENSAD,RO
4(RO) ,RS

R4
RO
R1

ogrsgro.BUF (R0) ,R1

13§

000004
000014

128:

000001

13s:

#% RO
RO #14
11$
#1,R4

000001

14%:

3$
RO, #1

000501

000000G

0000006

000074 000000G
0000006

* ,REF .NUM
FOUND.CMD

#1.R4

15%:

006300

24$
gz, 8207

12
#100000,0UTSSTD. BUF (RO)
RET.ENSAD,OUTSSTD.BUF +2(R0)

0000006

0000006 0000026
000001

000401

2473
2474
2461
2486

3601LRET.STATUS

105:

0000006
000004

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3 (11)
VAX=11 Bliss=16 V3=555

o7o1 LRET.STATUS

0000006

000207

000514

11-Jul-1983 16:06:44
7=-Jul=1983 0 8:24:58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

16%:

17$

15§

#401.RET.STATUS
24$
RO
8s
)
#501,RET.51ATUS
24$
#74 ,&<ET
. ENSAD

280.SLOT,R0

SEO 199
34

«,FOUND.CMD

F 16

0000006
100000 000002
0000006

#100000,2 (RO5

000003

RO,#3

0000006
100000 000002

R3
198
RO,R3
R3.R0
RO
RO
RECEIVE.RING,RO
#100000,2(R0)

RECEIVE .RING,R

ggD.SLOT.RO

000722

012601
012600
000002

HEAD.AREA,RO

o
o

g(RO)

243

#301 ,RET.STATUS

2383

PC,DECODE

25$:

+
"SP)

(SP)+,RS

(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ ,R1

RTI

(SP)+,R0

#201 ,RET.STATUS

Routine Base:
ACSCODE + 1470
; Routine Size:
234 words,
13 words
; Maximum stack depth per invocation:

2805

258

N
-~
o

22%

ALY
NJCOCO
Qo

0000006

2737

#1,4(RO)

228:

000301
176010

2729

25$
HEATM
. AREA,RO

21$:

4 (RO)

0000006

TEMP , =

RO
HEAD.AREA
6(R0O)
4(R0O)

000004

000201

* , TEMP

PC,GET.NRD
48

RET.STATUS

0000006
000003

2727

208

208:

0000006
000004
000001

18$

175706
177312
0000006
000006
000004
0000006

000716
000720

SPIDERS

LIA TR TR ]

066700
052760
016700

MODULE DECLARATIONS

go
SEQz(11)
16 V v3-555
-11 Bliss=16
3
816
CZRCHS.
.AZTECI
LNEALE
USERS:

VAX=11

®e Be O

000516
000522
000530
34

11-Jul-1983 16:06:
7=Jul=1983 08:24:

CZRCH RC25 DISK FORMATTER

LITA TR TRTN
')

CZRCHS
REV A PATCH 00

G 16
CZRCHS
FETN TN TR PR TR LR TN YN ¥

REV A PATCH 00

global routine CTO_WAIT (TO_VALUE. REF_NUM, BUFSLOC) =
lee

! Functional Description :

This routine is called to

complete

;

the

Formal Parameters

TO_VALUE
REF_NUM

FE PR

FE PR N

PR PRTR TR

TR TR T TR X (IR

IR IR

T YR TE IR

IE T

!
!
!
!

!
!

!
!
!
!
!
!

queued command
.

for

the port/controller to either

or time out the command.

Indicate the time-out interval for this command.
This argument contains the unique reference number
ass; ned to this command being timed out by this
routine.

BUFSLOC

L.
Implicit Inputs :
. hone
Implicit Outputs :

The command

wait

!Controller time out wait

This argument points to the out$std_buf location
where this command is saved. At this location the
received fla? “rec_flg'"’ bit is examined within the
the timeout [oop and when it equals true will
signal that this command has been received by the
interrupt service routine.

word in the out$std_buffer ‘'word zero
f a command

slot’ is cleared out with the value X0°100000° to indicate this
is an unused out$std_buffer

Completion Codes

slot and

that

can

be reused.

There are two levels of return status returned
by
this routine.
1.
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
time out then this return status is returned as this routines
return status code.

!
!
!

!
:

In all cases, if
an error code is
routine decode is called
to decode

time out error code is returned.

necessary recovgr‘ actions.

!
!
!
!

]

If the port/controller times out then the SA Register error bit
is examined for the error bit set. If set then an port fatal
error code is returned to the calling routine else a controller
]

returned (bit 0 = 1) then the
the error code and does the
]

]

At the next higher level of return from this routine is another level
of return status
returned. This
level test the success of the
connection
and also test the status field in the returned response
envelope for the success of the controller to successfully complete

P
the requested command.
! Side Effects :
;

none

begin

R A A

PR PR PN PRP

11=Jul=1983 16:06:44
7=-Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

SEQ 201

Page 36
VAX=-11 Bliss=16 V3~555
;3 (12)
S5.816
JCZRCH
USERS
[NEALE.AZTEC
:
SPIDERS

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

i; .OUTSSTD_BUF [.BUFSLOC, CMD_REF] nequ .REF_NUM

then

!Is this the same ref_num

H 16

REV A PATCH 00 MODULE DECLARATIONS

CZRCHS

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

:
:
H

)
!Indicate the error code
'Call decode to report the error

2863
2864
2865

:
:
:
:

2866
2867
2868
2869

2872

;
:
:

287
2871

2873

gg;g

2876

2878

2877

7=Jul=1983 08:24:58

be?1n
RET_STATUS = OSE_CODE;
DECBDE O3;
end;

VAX=11 Bliss~16 V3=555

a one micro second delay for the number of times
by
the caller. After each delay see if the flag
"'rec_flg'' has been set yet. Return ‘Ret_status’' and clear the

' command

! received

word
if

to %o'100000°

this

flag

gets

indicate” this command has been

set

before

the

timer

expires.

; Return a error code if the timer expires before the flag gets set.

incru i from 0 to .TO_VALUE do

'Loop for time-out_value

egin

%ggg

DELAV (C_Us);

2881

PExit routine with the DUP interrupt service routines '‘ret_status'’ if

;

ggg%

I Trec _flg’'

2884

'Do the one micro second delay
got set before the timer expires.

:
:

2885
5339

;
:
:
:
:

2890
2891
2892
2893
%ggg

!
! Check the SA register for posted port errors just in case the
; port does not interrupt the host when a port error occurs.

2896

;

if .OUTSSTD_BUF [.BUFSLOC, REC_FLG) eqlu TRUE
then

2888
2889

!lIs this command received yet

QOTS3TD_BUF
[.BUFSLOC, CMD_WRD] = %o'100000°;
'Return the slot to the unused state
return .RET_STATUS;
'Return the interrupt service status
end;

Sggg

if .RC25_ADDR [RCSA, ERR_BIT] then return RET_STATUS
= PFE_CODE;

2899

BREAK;

!Service any control C's

H
:
:

2900
2901
2902

gggg

; code to the caller and exit the routine.

2903

2906

sggg

gg?g

:
:

33}}

2913

end;

! The port/controller timed out if the code reached

;;.RC25_ADDR [RCSA, ERR_BIT]
.

else

here.

Return an error

'Is the SA error bit set

return RET_STATUS = PFE_CODE

'Port timed out with fatal error

return RET_STATUS = CTO_CODE;

'Port just timed out

end;
.GLOBL

L$DLY

.SBTTL

(CTO.WAIT MODULE DECLARATIONS

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (12)

‘e
! Loop
on
! requested

SEQ 202

116
11=Jul- 198 3 1 6: 0 6:4
7=Jul-198 3 0 8: 2 4:5

CZRCH RC25 DISK FORMATTER

CZRCHS
REV A PATCH 00

MODULE DECLARATIONS

000000

004167

0000006

000004
000010
000014
000016
000020
000024
000026
000030
000

162706
016600
006300
006300
012703
060003
005000
151300

000006
000020

#6.,SP
28(SP).RO

000000G

#0UTSSTD
.BUF ,R3
RO, R3
RO

CTO.WAIT::

(R3) RO

0000006

000001
0000006

000004

2861

#3001,RET.STATUS

H
:
s 1

2864
2865
2877

18:

; %, $$TMP2

2879

2%:
3s:

; «,$8TMP1
: $STMP

5%:

: $STMP2

6$:

2885

:
:

2888
2887

g(RO).Z(SP)

:
: *,RC$S.REG

2897

R2,24(SP)

;1
: 1,TO.VALUE

2877

0000006
000002

RC25.ADDR
RO
2£R0).(SP)

2907

000011
0000006
000006

#11,R0
RO,RET.STATUS

:
H

2909
2911

2806

: $STMPY

0000006
000002 000002

78:

000021

8s:

#-100000, (R3)
RET.STATUS
RO
12%

RC25.ADDR,RO

108:

11$:
12$:

RTS

6.SP

: Routine Size:
)
Routine
Base:
68 words, )
ACSCODE + 2414
9 words
; Maximum stack depth per invccation:

2914

; BUFSLOC,«

48:

000024

2806

: *,REF.NUM

9%:

000207

qgL22(SP)
PC,DECODE
R

100000
0000006

000206

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (12)

000022
003001
175716

R1,$SAVE3

VAX=11 Bliss=16 V3=555

SEO 203

: *,RCS$S.REG

J 16
CZRCHS

MODULE DECLARATIONS

CZRCH RC25 DISK FORMATTER

11=-Jul=1983 16:06:44
7=Jul=1983 08:24:58

global routine ABORT =

'Aborts remote program

functional Description :
The abort program

command 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
program has
stopped
executing and the server is in idle state.
Note that the sending
of this commana does not preclude further send data or receive data
exchanges: On the contrary, the remote program may be designed
to

send

out termination status and possibly even ask questions durin

its forced-exit sequence.
The time out for this command is a fixe
10 seconds
and
if
a
response
is
not
received by then the
connection to the dust should be terminated.
This command is only
legal if the dust is in active state.
Formal Parameters

Implicit Inputs :
NSD_SLOT

PRPN
FENS
AT TR

This global storage gets
loaded by
the routine
‘Get_nsd'
and
in it is stored the next send r1na
descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

Implicit Outputs :
none

Completion Codes :
RET_STATUS:

R YR
N
PR
PRTR
IR TR PN P
A I
X

none

Return status passes back to the calling routine
the status of the just issued command.

Side Effects :

Any remote program running in the controllers DM machine will
be aborted.

begin
local
REF _NUM

ABOBUF $LOC,
TEMP;

!Stores unique cmd ref number

'A place to put the read IP register data

A
R
A E
AR E
IRAR
AR
[

Before we load up the command packet up with all this good information get
thenext seng descriptor slot and a unicue command reference number.

GET_NSD O);

QEF_NUH = GET_CMDSREF ();

'Get the next send desc slot

!Get a unique command ref num

% UQ Port command envelope Header field definition
SND_ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_ABT;
SND_ENVELOPE [.NSDSLOT, CREDITS] = ONE;
SND_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0;

]

!Stores out$standing cmd buffer location

VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: CNEALE .AZTECICZRCH5.B16 :3 (1%

PR YRPR

TR YATEA

TRIR TR FE FE PR

PRFRE FE FE PR

YRPR YRR YN

PN ¥

REV A PATCH 00

SEQ 204
Page 39

'Load the length of envelope

'Load credits

'Load message type

K 16

CZRCKHS
REV A PATCH 00

CZRCH RC25S DISK FORMATTER
MODULE DECLARATIONS

11=-Jul=-1983 16:06:44
7=Jul=-1983 08:24:58

%3;%

§ND_ENVELOPE C.NSD_SLOT, CONN_ID] = DUP;

:
:

gg;g

g DUP command envelope field definition

2976

§ND_ENVELOPE C.NSD_SLOT, CMD_LREF] = .REF_NUM;

2978

SND_ENVELOPE [.NSD_SLOT, UN_CUSED) = ZERO:

2977
2979

SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO;

!Unused hi order

!Unused low order

2980

;

2984

i call

2991

ABO_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

;

%ggz

if .ABO_BUFSLOC eqlu OBF_CODE then DECODE ();

2995

:
:
:
:
:
:
:

2981
ggg%

2985
2986
2987
2988
gggg

!Define referance number

!Hi order ref number

SND_ENVELOPE C.NSD_SLOT, OPTODE] = OP_ABT;

SND_ENVELOPE [.NSD_SLOT, RSVD] = ZERO;
§ND_ENVELOPE C.NSD_SLOT, MODIFIER] = ZERO;
!
'
!
!
;

the

!Load opcod

!Reserved field

load out$Sstanding command buffer routine

and load this command into the buffer. The return
from this routine will point us to the buifer location
where this command is stored. Later we can look at
this location to see if the interrupt service routine
has received and process it.

'Load the command
'Error if buffer is full

%ggg

; Set the ownership bit to 1 giving this slot to the port/controller

gggg

$END_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED;

ggg?

g Read the [P register to stimulate port polling

3002

TEMP = .RC25_ADDR [RCIP, RC_ALLI;

gggg

g Time

out the

port/controller processing

the command.

3006

i The

first

test

ability to

;

3010

i The

second tests the DUP server for good status.

3018

! were detected.

:
:
;
:
:
:
:
:
:

3007
%883
3011
3012
3013
3014
3015
3016
3017

tests the connections

! respond to this command without any errors in the SA
; register and for the command not timing out.
!
!
!
!
!
!
!

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 recove’y. The time
out routine will loop on delaying and che-king the hi
bit of the first word in the out$std_but for a true.
When true signals us that the interrupt service routine
has received the endpacket and no connection errors

020
%855

if CTO_WAIT (3000, .REF_NUM, .ABO_BUFSLOC) then DECODE ();

3023

%8%9

;

:
:

3024
3025

3028

VAX=11 Bliss=16 V3-555
Page 40
SPIDERSUSERS
: LNEALE .AZTECICZRCH5.816;3 (13)

!Load connection ID

SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = ZERO;

!Is return an error

! Get the return envelope address from the out$std_buf
! at this commands buffer location and check the packet

for good status error and die if bad status was returned

RET_ENSAD = .OUTSSTD_BUF [.ABO_BUFSLOC, ENV_ADR);

SEQ 205

!Get the ret env adr

Co &

HON

O=
QO

MODULE DECLARATIONS

VAX=11 Bliss=16 V3-555

SEO 206

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 3 (13)

]

W
&5H

(=]

; Now test for good status

2; .RET_ENSAD [STATUS] nequ ZERO
en

else

'Test the status

return RET_STATUS
= RSE_CODE

'Return a ‘'‘Response status err’’' code

return .RET_STATUS;

!This ret_status is good or bad

end;

ADD

000001
000002 000001
000046
0000066
0000106
0000126
000006 0000146
0000156
0000166

MOVB
MOVB
MOV
CLR
CLR
CLR
MOVB
CLRB
CLR

175252

JSR

MOV

002001
175416

0000006

1%:

JSR

MOV

#2,1(R1)
R2,SND .ENVELOPE +4 (R0)
SND.ENVELOPE+6(R0)
SND.ENVELOPE+10(R0)
SND.ENVELOPE+12(R0)

#6,SND .ENVELOPE +14 (RO)

SND.ENVELOPE+15
(RO)
SND.ENVELOPE+16
(RO)
R2,(SP)

PC,LOAD.OUTSSTD.BUF
RO,R1

R1,#2001
18

ROR

177356

JSR
CMP

MOV

8CC
JSR

MOV

* ,REF .NUM

PC,CTO.WAIT
(SP)+,(SP)+

2964
2965

2969

REF .NUM, »

REF .NUM, *

*,ABO.BUF$LOC

ABO.BUFSLOC,*

PC,DECODE

MOV
MOV

ASL
ASL

ADD
BIS
MOV
MOV

2s:

PS.GET.CHDSREF
RO,R2
NSD.SLOT ,=(SP)
#54,~(SP)
PC,BLSMUL
#14,SND
. ENVELOPE (RO)
#SND.ENVELOPE+2,R1
RO,R1
#1,(R1)

NSD.SLOT
RO
RO
RO
SEND.RING,RO
#100000,2(R0O)
aRC25.ADDR,4(SP)
4(SP) ,RO
#5670, (SP)
R2,-(SP)
R1,=(SP)

0000006
100000 000002
000000G 000004
000004
005670

175334

006300

CMP
BNE

PC,GET.NSD

MOV
MOV
JSR
MOV
MOV

2915

MOV

ABORT MODULE DECLARATIONS
R1,$SAVE?2
~(SP)

PRYR

175312
175454

.SBTTL
ABORT:: JSR
TST
JSR
JSR

YRFE

0000006

004167
005746

0000006
000054
000000G
000014 000000G
0000026

000226

11=Jul-1
7=Jul=1

LR TR

000000
000004
000006

CZRCH RCZ25 DISK FORMATTER

V0
©o0 0o
NN

CZRCHS
REV A PATCH 00
90 00908000 0380000000 g

L 16

2998

* RCS$S.REG

RC$S.REG, TEMP
REF .NUM,

300¢
3021

ABO.BUF $LOC, +

PC,DECODE

R1.RO

ABO.BUFSLOC,
«

3028

CZRCHS

REV A PATCH 00

000230
000232
000240
000244
000250
000252
000256
000262
000264
0060270
000274

006300
016067
016000
005760
001405
012709
010067
000402
016700
062706
000207

: Routine Size:
,

ASL
MOV
Mov
TST

0000026 0000006
0000026
000016

8EQ

000031
0000006

0000006
000006
95 words, .

3s:

48:
)
Base:
Routine

Q words

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (13)

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

Maximum stack depth per invocation:

3040

VAX=11 Bliss=16 Vv3=555

SEQ 207

MOV
MOV
BR
MOV
ADD
RTS

F
,RET.ENSAD
TD.BU
OUTSS+2(R0)
QUTSSTD.BUF +2(R0) ,RO
16(RO)
33
#31,R0

zg.RET.STATUS
RET.STATUS,RO

#6,SP

ACSCODE + 2624

3033

3035

2953

2915

c
CZRCHS
R IR F N FE FIE FI I P P P NI X LI TN NI ¥

REV A PATCH 00

CIZRCH RC25S DISK FORMATTER
MODULE DECLARATIONS

11=-Jul=1983 16:06:44
7=Jul=1983 08:24:58

global routine GET_DUST_STATUS =

!Gets DUP server status

! Functional Description :
]
This command allows

]

determine its

program

]
.

the host program to interrogate the DUP server
caracteristics, its state and the state
of the

currently running

(if any).

active state and does not affect
tixed timeout interval of 3 seconds.

]
.

host should break the connection.

'
.

It is legal in either idle or

the state of server.
It has a
If the response times out, the

[}
.

|
.

formal

Parameters

none

[}
.

]
1

Imolicit Inputs :
NSD_SLOT

]
.

|
.

[}
.

!
.

[}
.

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

[}
.

Implicit Outputs :
none

[}
.

t
.

]
.

W,y
s

[}
.

Completion Codes :
RET_STATUS:

]

Side Effects

'
.
.
Return status passes back to the caliing routine
the status of the just issued command.

begin

LR T
N PR PN

N T NL I

L TN T
P N

N PR NI KL

I I N

]

cocal

REF _NUM,
GDS BUFSLOC,

!Stores unique cmd ref number
.
!Stores out$standing cmd buffer location

TEMP,;

'A place to put the [P read 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.

GET_NSD );

REF_NUM = GET_CMDSREF

!Get the next send desc slot

().

'!Get a unique command ref num

% UQ Port command envelope Header field definition
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.NSD_SLOT,
[.NSD_SLOT,
[.NSD_SLOT,
[.NSD_sLOT,

MSG_LENGTH] = S7_GDS;
!Load the envelope size
CREDITS] = ONE;
'Load the credit size
.
MSG_TYPE] = 0;
!Load the message type (Sequential)
CONR_ID] = DUP;
'Load the connection ID

g DUP generic command envelope field definition
SND_ENVELOPE [.NSD_SLOT, CMD_LREF]

SND_ENVELOPE [.NSD_SLOT, CMD”HREF]
SND_ENVELOPE [.NSD_SLOT, UN_CUSED]

SEQ 208
Page 43

VAX=11 Bliss=16 V3=-555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCHS.B16:3 (14)

fee

IYR IEIEIEIEIEYE

.REF _NUM;
'Load command reference number
'Command reference low order
JERO;
JERO;
'Low order unused

11-Jul=1983 16:06:44

7=Jul=-1983 08:24:58

SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO;

!Hi order unused

SND_ENVELOPE [.NSD_SLOT, RSVD] = ZERO;
SND_ENVELOPE C.NSD_SLOT, MODIFIER] = ZERO;

!Reserved field
!Load modifier field

WA 2000~ (¥,]

b o

WN=OV0 NN

i el

D el

= = b b 2 b 2 b 2 = O O O Oo

d wmd

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

GDS_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

'Error if buffer is full

]

; Set the ownership bit to 1 giving this slot to the port/controller

$E~o_n1~5 C.NSD_SLOT, OWN_BIT] = PORT_OWNED;
; Read the IP register to stimulate port polling
IEHP = .RC25_ADDR [RCIP, RC_ALLJ;
port/controller processing

the command.

out the

NRWVNE WA= OV

Time

: 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 firs. word in the out$std_buf for a true.

= O VO NN
SN

Pttt
ot m ittt
-

WA = OOV

B
X
B
B
L
L
e e
R
R
R
R
i
R

'Load the command

if .GDS_BUFSLOC eqlu OBF_CODE then DECODE ();

When true signals us that the interrupt service routine
has received
the endpacket
and no connection errors
were detected.

if CTO_WAIT (3500,

.REF_NUM,

.GDS_BUFSLOC)

then DECODE ();

!Is return an error

Get
the return envelope address
from the out$std_buf
at
this commands buffer location and check the packet
for good status error and die if bad status was returned

QET_FNSAD = .0UTSSTD_BUF [.GDS_BUFSLOC, ENV_ADR];

!Get the ret env adr

g Now test for good status
if .RET_ENSAD [STATUS] nequ ZERO

then

return RET_STATUS = RSE_CODE

SEQ <09

Page

SPIDERSUSERS
: [NEALE .AZTEC JCZRCHS5.816:3 (14

!Load opcode

The
first
test
tests the connections ability to
respond to this command without any errors in the SA

R
S
U
N
N
T i
P

T QU S

NN N U

VAX=-11 Bliss=16 V3=555

Call
the load out$standing command buffer routine
The return
and load this command into the buffer.

Y —d amud e

and

VWAV
ES B BN BN BN BN
8 B 0 B W WIW N N NN NN WININ N NN NN

X
R T X (YR IRIEYEIE
PRIR
TRYR
PR PR PRPR
PRTR
P
P
P T
P
N
A
I
IR EEEEEEEE
TE

CZRCH RC25 DISK [ORMATTER

MODULE DECLARATIONS

SND_ENVELOPE [.NSD_SLOT, OPTODE] = OP_GDS;

U U U LA U N U AN N U N N U N U AN N N N O N N N O WA AN A AN O N AN N AN N N N AN W N W A A NN WINW

YA IR FE PRFE
YR FE FEZH N PR Y FN ¥

REV A PATCH 00

!Test the status

'Return a 'Response status err'’ code

E
CZRCHS

Qui-puiy
e

[V 1V, 1V

oo ~NO~

3155

W NN

Ve ws ®0 0,

REV A PATCH 00

004167
005746

return .RET_STATUS:

VAX=11 Bliss=16 V3=555

SEQ 210

Page

SPIDERSUSERS:(NEALE .AZTECICZRCH5.816; 3 (14)

!This ret_status is good or bad

end;

000000G

LSBTTL GET DUST.STATUS MODULE DECLARATIONS
GET.DUST.STATUS::

tg?’

.SSAVE2
}

3041

JSR
JSR

PC, GET NSD
PC.GET.CMDSREF

:
:

3083
3084

MoV

NSD SLOI =(SP)

3088

MoV

#SND, ENVELOPE+2,R1

3089

000001

MovB

#1.(R1)

3090

000004G
0000066
0000106
000012G
000001 0000146
0000156
0000166

MOV
CLR
CLR
CLR
MOvB
CLRB
CLR
MOV

R2,SND.ENVELOPE
+4 (R0O)
SND ENVELOPE+6(R0)
SND.ENVELOPE+10(R0O)
SND .ENVELOPE+12(R0O)
#1,SND.ENVELOPE+14(R0O)
SND ENVELOPE#IS(RO)
SND .ENVELOPE+16(R0O)
R2.(SP)

s REF.NUM,«
H
:
:
;
:
:
: REF.NUM,
¢+

3095
3096
3097
3098
3099
3100
3101
3110

175014
175156

MOV

000054
000000G
000014 000000G

MOV
JSR
MOV

0000026G

ADD

000002 000001

MovBe

174754

JSR
MOV

002001
175120

0000006

gzg
1%:

0000006
100000 000002

0000006 000004

006654

175036

PC,LOAD.OUTSSTD.BUF
RO,R1

?;.#2001

3117

oRC25.ADDR,4 (SP)

: *,RC$S.REG

3121

#6654, (SP)

3140

4(SP) ,RO

8cC(C

JSR

MOV
ASL
ASL

000016

égg

MOV
Mov

: *,GDS.BUFSLO"

3091

NSD.SLOT,RO

MOV

JSR
cMP
ROR

3112

SEND.RING,RO
#100000,2(R0)

MOV

: = ,REF.NUM

; GDS.BUFSLOC,*

ADD
BIS

MOV

000031

#2.1(R1)

RO
RO

0000026 0000006

0000026

RO.R1

ASL
ASL

MoV

2%:

P}
PC BLSHU
014 SND.ENVELOPE (RO)

PC.DECODE

MOV

177060

RO R2

JSR

MOV

000004

001405
012700

7=Jul=1983 08:24:58

MODULE DECLARATIONS

0000006

000252

11=Jul=1983 16:06:44

CZRCH RC2S DISK FORMATTER
else

R2.=(SP)

R1,=(SP)

PC.CTO.WAIT
(SP)+,(SP)+
RO

: RCS$S.REG,TEMP
: REF.NUM, ¢«

: GDS.BUFSLOC,*

PC,DECODE

R1,RO
RO
RO

OUTSSTD.BUF+2(R0) ,RET.ENSAD

QUTSSTD.BUF+2(R0O),R0O
16 (RO)
3s
#31,R0

: GDS.BUFSLOC,*

3147

3152

3154

CZRCHS

MODULE DECLARATIONS

000256
000262

0000006

000264
000270
000274

010067
000402

016700
062706
000207

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

REV A PATCH 00

000000G
000006

38:
A ¥

MOV
B8R
MOV

ADD

RTS

zg.RET.SlATUS
RET.STATUS,RO
#6,SP
PC

ACSCODE + 3122
; Routine Size:
95 words,
Routine Base:
: Maximum stack depth per invocation:
9 words

3159

VAX-11 Bliss=16 v3=-555

SEQ 211

Page

SPIDERSUSERS: [NEALE .AZTECICZRCHS5.B16; 3 14)
:

3072

3041

SEQ 212

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=-Jul=1983 08:24:58

VAX=11 Bliss=16 v3-555
Page 47
SPIDERSUSERS
: [NEALE.AZTECICZRCH5.816:3 (15)

%}g?

global routine EX_SUP_PROG =

'Executes supplied program

3162
63

!++
! Functional Description :

D md

NN U N U N N AN U AU AN N AN AN WA AN AN AN AN AN N A N N N W N NN NN W

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
Llength (in bytes) of a buffer
containing the _program
header
and 1nitial
load; the starting
of the program, its memory requirements and any relocation information
needed to run under the server are in the program header in a format
which 1is none of the host business.
This commmand is only legal when
the scrver is in the idle state and return of a successful end packet

D e

D i

i o

puts the server into to active state.

d e

The time out interval for this command is 30 seconds.

formal Parameters

~
oo

none

Implicit Inputs :

command packet.

b o

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

NSD_SLOT

D o d
b omd o
d d e
b e

Ne e ® e BeBeg eV, 8, 0,80 %090 8ec800, 850000 %, 8¢0%0008;000:2 %% %0 25009000800 %0%¢0s 08¢0, IEITETETEYTEIETETETE

R LR
KB T

CZRCHS
REV A PATCH 00

89
90
91
3%
94

95
g}gg
3198
3199

358?

3202
3203
3204
3205

3206
3207

Implicit Outputs :
AZFMTR:

DMSA:
OVSA:
HDSA:
Completior Codes

RET_STATUS:

)
Azfmtr is the vector produced by DMCONV program and
is decalared in module AZKEL6.
.
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.
:

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

.
begin
local

REF _NUM,
ESP_BUFSLOC,

3208

TEMP;

!Stores unique c¢cmd ref number
.
!Stores out$standing cmd buffer location

'A place to put the read IP register data

3211
%g;%

! Before we load up the command packet up with all this ?ood information get
: the next send descriptor slot and a unique command reference number.

3214
3215

GET_NSD (),
?EF_NUM = GET_CMDSREF ();

3216

!Get the next send desc slot
!Get a unique command ref num

CZRCHS

CZRCH RCZ2S DISK FORMATTER

11=Jul=1983 16:06:44

REV A PATCH 00 MODULE DECLARATIONS

7=Jul=1983 08:24:58

gg}g

! UO Port command envelope Header field definition

3219

SND ENVELOPE [.NSD_SLOT, MSG LENGTHJ S2 ESP

%Sg%

SND“ENVELOPE [.NSD_SLOT, CONR_ID] = DUP;

:
:

3220
3221

SND_ENVELOPE [.NSD_SLOT, CREDITS]
= ONE
SND_ENVELOPE [.NSD_SLOT, MSG_TYPE]= 0.

VAX=11 Bliss=16 V3=555

!Load the message length

load the credits field
iDefine the msg type ‘Sequential’

'Define the conection ID

%g%g

i DUP generic command envelope field definition

3226

SND ENVELOPE [.NSD_SLOT, CMD_LREF] = .REF_NUM;

:
:
H
:

3229
3230
3231
gg%g

SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = 2ERO;
SND_ENVELOPE [.NSD_SLOT, OPTODE] = OP_ESP;
SND_“ENVELOPE (. NSD SLOT, RSVD) = ZERO;
SND ENVELOPE L. NSD SLOT, MODIFIER] = ZERO:

;

gggg

; Command specfic command envelope field definition

;

%ggg

% Byte count of initial transfer (from bytes 0-3 of the program header).

3238

SND ENVELOPE [.NSD_SLOT, BLO_CNT) = .AZFMTR [WRDO); !Byte count low word

3241

! Buffer descriptor def1n1tlon for initial load.

3244

éND_ENVELOPE [.NSD_SLOT, BPA_LOJ = HDSA;

'Low unibus adrs <0-15>

3248

SND_ENVELOPE [.NSD_SLOT, UBA_CHAN) = ZERO;

'Un1bus adaptor channel number

:
:

:
:
:
:

3227
3228

%gzg
ggz%

3245
3246
3247

3249

3250

SND_ENVELOPE [.NSD_SLOT, CMD_HREFJ = ZERO.
SND_ENVELOPE [.NSD_SLOT, UN_CUSED] = ZERO;

'Load command ref number

12ero Hi order word of cmd ref
!Not used in DUP implimentation

!Not used in DUP implimentation
'Load the command op-code
'Not used

SND ENVELOPE C[.NSD_SLOT, BHI_CNT] = .AZFMTR [WRD1]); !Byte count high word
! byte

this

buffer

byte 0 of

First

program header.

SND_ENVELOPE [.NSD_SLOT, BPA_HIJ = ZERO;
SND_ENVELOPE [.NSD_SLOT, QBUS_EXT] = ZERO;
SND_ENVELOPE [.NSD_SLOT, RSV]TM= ZERO;
SND_ENVELOPE [.NSD_SLOT, RSVD]) = ZERO;

SND_ENVELOPE [.NSD_SLOT, RSV1] = ZERO:

'Unibus adrs bits <16=-17>
iQ _bus extention adrs
'Reserved field

!These next four words are not

iused in the DUP implementation

H
;

3251
ggg%

:
H

3254
3255

' These next field definitions are the same as above except they are for the
! overlay buffer descriptors. To make life easy for me I'Ll use the same names

3528

; The overlay area immediately follows the initial load image in the program image.

;
H

3260
3261

SND_ENVELOPE [.NSD_SLOT, $BPA_LO] = .OVSA;
SND_ENVELOPE [.NSD,SLOT. $BPA_HI] = ZERO;

'Low unibus adrs <0-15>
!'Unibus adrs bits <16-17>

;

3263

SND_ENVELOPE [.NSD_SLOT, $RSV]TM= ZERO;

'Reserved field

3265

SND_ENVELOPE [.NSD_SLOT, $RSVD] = ZERO;

'These next four words are not

;

gggg

3262
3264

3266

3267

;

3270

gggg
3271

SND ENVELOPE C. NSD SLOT, RSV2] = ZERO;
SND ENVELOPE L. NSD SLOT, /SV3] = ZERO'

!
!

: and just prefix them with a $ for uniqueness.

SND_ENVELOPE [.NSDZSLOT, $QBUS_ EXT] = 2ERO; 1Q_bus extention adrs

SND_ENVELOPE [.NSD_SLOT, SUBA CHANJ = 2ERO;

SND_ENVELOPE [.NSD_SLOT, SRSV1] = ZERO:

SND_ENVELOPE [. NSD SLOT, $RSV2] = ZERO;

SND ENVELOPE [. NSD SLOT, $RSV3] = ZERO;
l

Call

the

load

out$standing

'Unlbus adaptor channel number

iused in the DUP implementation
!

command buffer routine

" and load this command 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

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (15)

:
:
:

SEO 213

CIRCHS

REV A PATCH 00
:

3274

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

MODULE DECLARATIONS
! this

7=Jul=1983 08:24:58

g%;g

5 has received and process it.

sert

ESP_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

gggg

if .ESP_BUFSLOC eqlu OBF_CODE then DECODE ();

3281

gggg

! Set the ownership bit to 1 giving this slot to the port/controller

gggg

;

g%gg

?END_RING C.NSD_SLOT, OwN_BIT] = PORT_OWNED;
g Read the IP register to stimulate port polling

3288

TEMP = .RC25_ADDR [RCIP, RC_ALL);

§§3?

g Time out the port/controller processing

the command.

;

3292

i The

ability to

gggg

; register and for the command not timing out.

;

3293

3296

i The

H
:
:
:
:
:

3299
3300
3301
3302
3303
3304

!
!
!
!
!
!

:
:

3297
3298

gggg

3309

first

! respond to

test

!Load the command
‘Error if buffer is full

tests the connections

this command without

any errors in the SA

second tests the DUP server for good status.

! 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
has received the endpacket and no connection errors

were detected.

if CTO_WAIT (3500, .REF_NUM, .ESP_BUFSLOC) then DECODE ();

3310
3311

! Get the return envelope address
from the out$std_buf
! at this commands buffer location and check the packet

;

%%}g

QET_ENSAD = .OUTSSTD_BUF [.ESP_BUFSLOC, ENV_ADR];

;

3316

i Now test for good status

%g;g

:; .RET_ENSAD [STATUS] nequ ZERO

:
:
;

;

g%}%

3317
3318
%gs;

; for good status error and die if bad status was returned

!Get the ret env adr

else

%ggz

3325

end;

004167

C€00000G

000000

!Is return an error

:
;

SPIDERSUSERS
: [NEALE.AZTEC JCZRCH5.B16:3 (15)

location to see if the interrupt service routine

VAX=11 Bliss=16 V3=555

SEQ 214

Page

!Test the status

return RET_STATUS = RSE_CODE

'Return a 'Response status err'’ code

return .RET_STATUS;

'This ret_status is good or bad

.SBTTL
EX.SUP.PROG::
JSR

EX.SUP.PROG MODULE DECLARATIONS

R1,$SAVE?

3160

-(SP)

PC,GET.NSD

PC,GET.CMDSREF
RO 'R
NSD.SLOT,=(SP)
#54.-(SP)

PC,BLSMUL
#50, SND. ENVELOPE (RO)

AZFMTR+2,SND. ENVELOPE+22
(RO)
#HDSA, SND.ENVEL
OPE +24 (RO)

#SND. ENVELOPE+26,R1

0000266

RO.R1
(R)
1(R1)

000001
0000306
0000326

SND . ENVELOPE+30(R0)
SND . ENVELOPE+32
(R0)
SND . ENVELOPE
+34 (R0)
SND . ENVELOPE
+36 (R0)
OVSA, SND . ENVELOPE +40(RO)

0000346

000036G
0000006 000040G
0000426

zgugienvsLope+42.a1
(R1)
1(R1)

000001
0000446
0000466
0000506
0000526

(R0)
SND.ENVELOPE+44
SND.ENVELOPE+46(R0)
SND.ENVELOPE+50(R0)
SND . ENVELOPE+52(R0)
R2,(SP)

PC,LOAD.OUTSSTD.BUF
RO,R1

174336

R1.#2001

002001
18:

1$
PC,DECODE

3227

0000006 000020G
0000026 000022G
000000G 0000246

392

3226

R2.SND.ENVELOPE
+4 (RO)
6
(R0)
SND. ENVELOPE+
SND. ENVELOPE+10(R0)
SND. ENVELOPE+12(R0)
#2.SND.ENVELOPE+14
(R0)
SND. ENVELOPE+15
(R0)
SND. ENVELOPE+16(R0)
AZFMTR, SND.ENVELOPE
+20 (R0)

REF .MM,¢

W
N
W

#2.1(R1)

#1.(R1)

000002 0000146
000015G
0000166

174502

3220

#SND. ENVELOPE+2.R1
RO,R1

000001
000002 000001
0000046
0000066
000010G
0000126

0000006

« ,REF .NUM

0000006
000054
0000006
000050 000000G
0000026

3214
3215
3219

W
N

1764516
174660

W
N

005746

SPIDERSUSERS: CNEALE .A2TECICZRCHS. 816 3 (15)

B0 90 00 S0 00 Ve Vs Ve B Vg € B 0

000004

MODULE DECLARATIONS

VAX-11 Bliss=16 V3-555

Ve B¢ B S0 S 89 G0 8o

REV A PATCH 00

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

(I YA TE YR TRFE
R T

CZRCHS

SEO 215

: REF .NUM,+

3277

+ ESP.BUFSLOC
; ESP.BUFSLOC,*

3279

* ,RC$S.REG

3288

2SD.SLOT.R0

100000 000002
0000006 000004

000332

010246
010146
004767
022626

000004
C06654

176442

#6654, (SP)

R2,={SP)
R1.-(SP)

PC,CTO.WAIT

(SP)+,(SP)+

(TR TN PR TR ¥

0000006

RC$S.REG,TEMP
REF .NUM, +

ESP.BUFSLOC,
*

3307

CZRCHS

REV A PATCH 00

000334
000336

006000
103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

VAX=11 Bliss=16 V3=555

MODULE DECLARATIONS

174420

2%:

000002G 000000G
0000026
000016
000031
000000G

0000006
000006

3s:
4:

ROR
8CC
JSR
MOV

ASL
ASL
MOV
MOV
TST

8EQ
Mov
MOV
BR
MOV
ADD
RTS

RO
PC,DECODE

: ESP.BUFSLOC,*

3314

OUTSSTD.BUF
+2(R0O) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO

3319

#31,R0

3321

3203

3160

RO
RO

;g(RO)

zg.RET.STATUS
RET.STATUS,RO
#6,5P
PC

Base:
Routine
ACSCODE + 3420
: Routine Size:
135 words,,
.
9 words
: Maximum stack depth per invocation:

3326

SEO 216

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3 (15)

LZRCH RC25 DISK FORMATTER

CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:4¢4
7=Jul=1983 08:24:58

;

global routine EX_LOC_PROG =

!Executes local program

gggg
3329

3330

3333

:
:

3331
3332

333
gggg

!
!

!
;

]

Functional Description

successful response by the host means that the program is executing

! Formal Parameters :

3339

3340

3362

:
:
:
:
:
:
:
:
:

;

3361

This

! Side Effects :

3358
3359
3360

;

3362

NSD_SLOT

3354

ggg%

:
:
:

Implicit Inputs

!
!
!
o
!
! Implicit Outputs :
!
none
)
!
! Completion Codes :
!
RET_STATUS:

3355

none

3343
3344
3345
3346
3347
3348
3349
3350
3351

g%gg

3361

3363

;ggg

and the server is in the active state. The time out value for this
command is specified in the get dust response

3337
3338

VAX-11 Bliss=16 V3=535
Page
SPIDERSUSERS
: [NEALE .AZTECICZRCH5.816:3 (16)

Receipt of this command causes the controller to search its local
media for the named program, load and execute it. Receipt of a

:
:

SEQ 217

global storage gets

‘Get_nsd'

and

loaded

)

the routine

in it is stored the next send rlng

descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

.
.
Return status passes 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 a successful return packet.

)
begin
local

REF _NUM,

!Stores unique cmd ref number

TEMP;

'A place to store the read IP register data

ELP_BUFSLOC,

!Stores outSstandlng cmd buffer Llocation

:
:

3366
3367

!
! Before we Load up the command packet up with

;
:

3370
%%;;

GET_NSD ();
BEF,NUH = GET_CMDSREF (),

%%;2

! UQ Port command envelope Header tield definition

;

3375

SND_ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_ELP;

;

ggg?

; DUP generic command envelore field definition

:
;

3382
3383

SND_ENVELOPE L[.NSD_SLOT, CMD_LREF] = .REF_NUM;
!Load the command ref number
SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = ZERO;
!'Zero the Hi order cmd ref num

:
;
H

%ggg

3376
3377
g%;g

.
all this good information get

: the next send descriptor slot and a unique command reference number.

SND_ENVELOPE [.NSD_SLOT, CREDITS] = ONE;
SND_ENVELOPE [.NSD_SLOT, MSG TYPE] = 0;
§ND-ENVELOPE C.NSDZSLOT, CONR_ID]) = DUP;

!Get the next send desc slot
!Get a unique command ref num

!Load the message size

'Load the credit size
.
!Define the msg typ ‘'Sequential’
'Define the connectio ID

n
CZRCHS

PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

MODULE DECLARATIONS

7=Jul=1983 08:24:58

3384
3385
3386
3387
%ggg

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
§ND_ENVELOPE

gggg

g Command specfic command envelope field definition

339é

§ND-ENVELOPE C.NSD_SLOT, PN_0] = ZERO;

3395

i Cail

%28:3.

ELP_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

gzgg

if .ELP_BUFSLOC eqlu OBF_CODE then DECODE ();

3407

gz}?

s;‘.END_RING L.NSD_SLOT, OWN_BIT] = PORT_OWNED;

gz%%

% Read the IP register to stimulate port polling

gz;g

ienp = .RC25_ADDR [RCIP, RC_ALLJ;

gz}g

% Time

out the

port/controller processing

the command.

3418

i The

first

test

ability to

§ZS?

;

3393
gggg
3397
3398
3399
3400
gzg;

[.NSD_SLOT, UN_LUSED] = ZERO;
[.NSD_SLOT, UN_HUSED] = ZERO;
[.NSD_SLOT, OPTODE) = OP_ELP;
[.NSD_SLOT, RSVD] = ZERO;
C.NSD_SLOT, MODIFIER] = ZERO;

!Not used in DUP implimentation
!Not used in DUP implimentation
!Load this commands op-code
!Not used field
)
'!Define modifiers for this cmd

‘Program name word 0

SND_ENVELOPE L[.NSD_SLOT, PN_1] = ZERO;
?ND,ENVELOPE C.NSD_SLOT, PN_2] = ZERO;
!
!
!
!
;

the

load

out$standing

'Program name word 1
'Program name word 2

command buffer routine

and load this command 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 it.

'Load the command
'‘Error it buffer is full

gzgg

; Set the ownership bit to 1 giving this slot to the port/controller

R EEEREAR

AR AT I E T E M E M E M

N E R
M AT

PR FE P

N P

TR PR
PRY

R TR

AR PRI IR ATELIE TR TR IR T FR L X

REV A

SEQ 218
53
Page
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCHS.B16;3 (16)

3419

! respond to

tests the connections

this command without

any errors in the SA

3422

i The

721
gzgz

if CTO_WAIT (3000,

3435
3436
3437
gzgg

!
! Get
the return envelope address
from the out$std_buf
! at this commands buffer location and check the packet
; for good status error and die if bad status was returned

3440

RET_ENSAD = .OUTSSTD_BUF [.ELP_BUFSLOC, ENV_ADR];

3423
3424
3425
3426
3427
3428
3429
3430

!
!
!
!
!
!
!
!

second tests the

DUP server for good status.

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
has received the endpacket and no connection errors
were detected.
.REF_NUM,

.ELP_BUFSLOC)

then DECODE ();

!Is return an error

!Get the ret env adr

3441
3442
3443
3444
3445
3446
3447
3448
3449
3450
3451

end;

004167

0000006

004767
016700
006300
006300
066700
052760
017766
016600
012716
010246
010146
004767
02262¢
006000

!Test the status

if .RET_ENSAD [STATUS] nequ ZERO
return RET_STATUS = RSE_CODE

'Return a ‘Response status err'' code

return

!This ret_status is good or bad

.RET_STATUS;

0000226G

CLR

MOV

1746024

JSR

MOV

002001

0000006
100000 000002
000000G 000004
000004
005670
176130

#1.(R1)
#2.1(R1)

CLR

0000246

1764170

MOvB
Move
MoV
CLR
CLR
CLR
MOvVB
CLRB
CLR
(LR

CMP

BNE

1%:

JSR

MOV
ASL
ASL

ADD
BIS
MOV
MOV
MOV

MOV
MOV

JSR

ROR

#54.=(SP)

3375

PC 8LSMUL
#60, SND. ENVELOPE (RO)
#SND. ENVELOPE+2,R1
RO,R1

R2.SND.ENVELOPE+4
(R0)
SND . ENVE LOPE +6 (RC)
SND.ENVELOPE+10(RO0)
SND. ENVELOPE+12
(RO)
#3.SND. ENVELOPE+14
(RO)

SND. ENVELOPE+15
(RO)
SND. ENVELOPE+16(R0)
20
SND . ENVELOPE+(R0)
22
SND . ENVELOPE+(RO)
SND . ENVELOPE
+24 (R0)

R2, (SP)
PC.LOAD.OUTSSTD.BUF
RO.R 1

81.02001

PC.DECODE

NSD.SLOT.RO

RO
RO

ADD

000001
000002 000001
0C00046
0000066
0000106
0000126
000003 0000146
0000156
0000156
0000226

0000006

MOV
MOV
JSR
MoV
MOV

* REF .NUM

3370
3371

%,y

0000006
000054
0000006
000060 0000006
0000026

NSD.SLOT,=(SP)

JSR

MOV

3327

REF .NUM, «

1746262

-(SP)
PC,GET.NSD
PC.GET.CMDSREF
RO,R2

B,y

JSR

R1,$SAVE2

TST

176100

EX.LOC.PROG MODULE DECLARATIONS

.SBTTL
EX.LOC.ngG.

else

then

005060
005060
005060
005060
010216
004767
010001
020127
001002

for good status

112760

105060

; Now test

000076
000102
000110
000114
000120
000124
000130
000134
000136
02014¢c
000144
000150
000152
000156
000162
000164
000166
000172
600200
000206
000212
000216
000220
000222
000226
000230

]

REF.NM,*

: «,ELP.BUFSLOC

; ELP.BUFSLOC,*
;

SEND.RING,RO

#100000,2(R0)

adRC25.ADDR,4(SP)
4(SP) RO

#5670, (SP)
R2,=(SP)
R1,-(SP)
PC,CTO.WAIT
(SP)+,(SP)+
RO

Ba B

112711
112761

SEO 219

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (16)

* ,RC$S.REG

RC$S.REG, TEMP

005746
004767
004767
010002
016746
012746
004767
012760
012701
060001

24: 8

MODULE DECLARATIONS

vAX=11 Bliss=16 V3-555

®9

REV A PATCH 00

11-Jut=19 83 1 16: 06:4
7=Jul=1983 0 08:

CZRCH RC25 DISK FORMATTER

®e

CZRCHS

REF .NUM, +

ELP.BUFSLOC,*

3414

3433

CZRCHS
REV A PATCH 00

000232
000234
000240
000242
000244

000304
000310

103002
004767
010100
006300
006300
016067
016000
005760
001405
012700
010067
000402
016700
062706
000207

11=Jul=-198
7=-Jul=-198

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS
174106

2$:

000002G 000000G
0000026G
000016

0000006
000006

8CC
JSR

MOV
ASL
ASL
MOV
MoV
TST

8EQ

000031
0000006
38:
4%:

MOV
MOV
B8R
MOV
ADD
RTS

3452

VAX-11 Bliss=16 V3=555

SEQ 220

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3 (16)

PC,DECODE

R1.RO

; ELP.BUFSLOC,*

3440

OUTSSTD.BUF
+2(R0O) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO
16(R0O)

#31,R0
RgLRET.STATUS

RET.STATUS,RO

#6,SP
PC

)
101 words,.
Routine
Base:
ACSCODE + 4036
9 words
: Maximum stack depth per invocation:

: Poutine Size:

2
W

3445

3447
3359

3327

SEQ 221

Page 56
VAX=-11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTECJCZRCH5.8B16 :3Q0117)

MODULE DELLARATIONS

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44
7=Jul=1983 08:264:58

global routine SEND_DATA =

'Performs host==>port communications

1+¢

! 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 degcr:gtor and a byte count. In the case of
send data, the information in the buffer is rea# by the remote program
and a send data response sent back to the host o 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
receive data response to the host
to notify it of the transmission.

The send data and receive
data commands are only Llegal 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 data commands may be lost.
In the event that

the specified timeout interval is exceeded, the host program should
issue
a get dust staus command to see if the remote program is
still
running (is.
the dup server is active); if it 1s, the
progress
indicator should be remembered and the
timeout interval
should
be re-installed.
If
the second
timeout expires without a
response and
a second
get dust status shows the remote program
haqua made
no progress
in the interim then the program should be
considered broken and should be aborted.
Formal Parameters

none

Implicit Inputs :

NSD_SLOT

This global storage gets loaded by the routine
‘Get_nsd®
and
1in it is stored the next send rlna
descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

Implicit Outputs :
none

Completion (Codes :

RET_STATUS:

Return status passes back to the calling routine
the status of the just issued command.

Side Lffects :
none

begin
local

REF _NUM,

SND_BUFS$LOC,
TEMP;

!Stores unique cmd ref number

!Stores out$standing
'A place to put read

.
cmd butfer location
IP register data

IR IR IR

T T
P

PR PRTR

TR NN PR PR PRFE TR

IRTN

T RN TN K] TR

A IEEIE

I ETETE

R TR FE FE

A LI N YN WY

CZRCHS
REV A PATCH 00

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

CZRCHS

REV A PATCH 00
:

3510

CZRCH RC2S DISK FORMATTER

MODULE DECLARATIONS
!

11=Jul=1983 16:06:4

7=Jul=1983 08:264: 58

:
:

IS
%g}%

GET_NSD O);
REF “NUM = GET CMDSREF ();

;

gg}g

| UO Port command envelope Header field definition

;

3516

SND _ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_SED;

gg;g

SND “ENVELOPE [.NSD_SLOT, CONR_ID]= DUP;

:
:

3517
3518

SND_ENVELOPE [.NSD_SLOT, CREDITS] = ONE:
SND_ENVELOPE [.NSD_SLOT, MSG _TYPE]= 0.

VAX-11 Bliss=16 V3-555

!Get the next send desc slot
'!Get a unique command ref num

!Load the message size

'Load the credit size
‘Define the message typ ‘Sequential

'‘Define the connection ID

%gg;

;

3523

g DUP generic command envelope field definition
SND_ENVELOPE [.NSD_SLOT, CMD_LREF] = .REF_NUM;

:
:
:

3525
3526
3527

SND_ENVELOPE [.NSD_SLOT, UN_CUSED] = ZERO;
SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO;
SND_ENVELOPE C.NSD_SLOT, OPTODE] = OP_SED;

%ggg

§ND_ENVELOPE C.NSD_SLOT, MODIFIER] = 26R0;

;

gg%}

gggz

g Command specfic command envelope field definition
g Byte count of transfer

;
:

3535
;gg?

SND_ENVELOPE [.NSD_SLOT, BLO_CNT] = SNDB_SIZE;
'Byte count low word
SND ENVELOPE [.NSD_SLOT, BHI ZCNT] = 2ERO;
'Byte count high word

;

%ggg

i Buffer descriptor definition

3540

SND ENVELOPE [.NSD_SLOT, BPA_LO] = SND_BUF; !Buffer physical adrs <0-15>

3543

SND_ENVELOPE [.NSD_SLOT, RSV)= ZERO

:
:
:
:

3524

3528

3541
3542

3544
3545

3546

!Zero Mi order cmd ref number

SND_ENVELOPE [.NSD_SLOT, RSVD] = ZERO;

!Not used field

!Not used in DUP implimentation
!Not used in DUP implimentation
'Load this commands op-code
iDefine the commands modiyiers

SND_ENVELOPE [.NSD_SLOT, BPA_HIJ] = ZERD;
SND_ENVELOPE [.NSD_SLOT, QBUS_ EXTJ ZERO

'Buffer physical adrs bits <16=17>
'Q_bus extention adrs

SND_ENVELOPE [.NSD_SLOT, UBA CHANJ = 2ERO;
SND_ENVELOPE [.NSD_SLOT, RSV0] = ZERO;

'Unibus adaptor channel number
!These next four words are not

‘used in the UQ Port implementation

3547
%223

3550

! Call the

;ggg

SND_BUFSLOC = LOAD_OUTS$STD_BUF (.REF_NUM);

%ggg

if .SND_BUFSLOC eqlu 0OBF_CODE then DECODE ();

3559

3502

SEND_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;

gggg

g Read the IP register to stimulate port polling

;

3566

TEMP = .RC2S_ADDR [RCIP, RC_ALLJ;

3551
3552
gggz

gggg

SND_ENVELOPE (. NSD_SLOT, RSV2) = ZERD;
?ND“ENVELOPE [.NSD_SLOT, RSV3] = ZERO;

'Reserved field

.
.

:
:
H

'Load command reference number

SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = IERO;

SND_ENVELOPE [.NSD_SLOT, RSV1]) = 2ERO;
load

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 810.3 (17)

;
:

SEO 222

!
!

outS$standing command buffer routine and load this command

! into the buffer. The return from this routine will point us to the buffer location
i where this command is stored. Later we can look at this location to
; see if the interrupt service routine has received and process it.

‘'Load the command
‘Error it buffer is full

; Set the ownership bit to 1 giving this slot to the port/controller

CZRCHS
REV A PATCH 00

11=Jul=1983 16::06:44
7=Jul=1983 08: 24:58

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

:
:
:

3567
3568
%293

'+
; Timc out the port/controller for the response from this command.

' It the controller times out then:

%g;g

3572
3573
3574

'
!
!

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

;

3577

2. If

;

3582

3586

;

3588

value and

:
:
:
:
:
:

:
:
:

3578
3579
ggg?

3583
%ggg
3587
gggg

:
!
;

action based on the error.

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 is
still running and is not dead.

!
:

the indicator hasn't changed then assume that the

remote program is dead
RPD_CODE (remote program

It the

remote

;

indicator

program

and return an error code of
dead code) and exit.

has changed

then

assume that the

still running, save a copy of its

reinstate the controller time out delay and

repeat the loop.

359

As loq? as the progress indicator in the remote program

3594

i If

the

:
:
:

gggg
3595
gggg

3598

;

is still increasing this loop will be repeated for ever.

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.

:
:
:

3599
3600
gggé

3603

i Do a controller time out and determine if the controller

3606

‘

%ggg

;
:
:

3607
3608
gg?g

;

3611

3615

;

gg}g

gggq

3622

:
:

;

3612
;g}g
3616
3617

3623

SEQ 223
Page 5
YAX=11 Bliss=16 v3-555
[NEALE.AZTEC JCZRCHS.B816:3 (17)
SPIDER:SUSERS

while TRUE do
begin
QR AK;

!Repeat for ever

'Flag control C's

; has processed the command or if a fatal error has occured.

it CTO_WAIT (4000, .REF_NUM, .SND_BUFSLOC)
then
Qegin

'Is return an error

' If the return status code egl's a CTO_CODE then see if the remote

! program is still runnin?. If
it is then save the progress indicator
; and repeat the loop else call routine Decode ().

it .RET_STATUS eqlu CTO_CODE
then

'lIs this a controller time out

begin

if GET_DUST_STATUS () then DECODE ();

!Get the dust status

it .RET_ENSAD [PLO_IND) gtru .PID_SAVE (0]

then

'Any progress been made

CZRCHS
REV A PAT(H 00

CZRCH RC2S DISK FORMATTER

:58

MODULE DECLARATIONS

be in

_SAVE [0) = .RET_ENSAD [PLO_IND];

SEO 2264
p]

SPIDERSUSERS: [NEALE AZTECICZRCHS. 816 3 (17)
)

)

'Still running save Pid

PID-SAVE €17 = "RET"ENSAD CPRIZIND]

I N
KN T

VAX=-11 Bliss=16 v3-555

PRIRTB (PID_FMT. .PID_SAVE [1]7 .PID_SAVE [01);

IETR X X

else

end

if .RET_ENSAD [PHI_IND] gtru .PID_SAVE [1]

then

be in

PR TR X [ PR TR TREIEAITETEITETE IR

_SAVE [0] = .RET_ENSAD [PLO_IND];
!Still running save Pid
PID SAVE [1) = .RET_ENSAD CPHITIND];
PR(I’NTB (PID_FMT, .PID_SAVE [1J. .PID SAVE [0));

else

glse

return RET_STATUS
= RPD_CODE;

!No progress so flag error

end

' The return status code was not a controller time out code so something
; else is wrong.

C(all the routine Decode () to find out what went wrong.

TN TR N

DECODE ()
else

end

Qegwn

TR N

164
11=Jul=1983 16:06:4
7=-Jul=1983 08:24:5

! The command has been received by the interrupt service.

PR YR PR TR PR PR PR TR TR

[}

: Get this commands return envelope address out of the
out$std _buf and check for good return status error and

il die if bad status.

EEY_ENSAD = ,QUTSSTD_BUF [.SND_BUFSLOC, ENV_ADR];

'Get the ret env adr

I E IR A

% Test for good status
if

.RET_ENSAD [STATUS]) nequ ZERO

!Test the status

return .RET_STATUS.

'This ret_status is good or bad

AE A

I E

TR E R

:T::return RET_STATUS = RSE_CODE

'Return a ‘Response status err'’ code

end;

000000

3675

004167

;g;grn LRET_STATUS;

6000006

'It won't compile without this here

SEND.DAYA??TTL

JSR

SEND.DATA MODULE DECLARATIONS

R1,$SAVE3

3453

MovBe
MOvB
MoV

CLR
CLR
CLR

000006G
0000106

0000126
000004 0000146
000015G
0000166
000045 0000206
0000226
000000G 0000246
0000266

MOV8
CLRB
CLR
MOV

CLR

MOV
MOV
ADD

CLRB
CLR8
CLR
CLR
CLR
CLR

000001
0000306
0000326
0000346
0000366

MOV

173452

JSR

MOV

002001
173616

18:

0000006
0000006
100000

000002

000000G 000004
000004
007640

022626
006000
103074

000314
000316

1755564

026727
001065
004767
006000

0000006 000011

004767

173512

103002

176240

cMP
BNE
JSR
MOV
ASL
ASL
ADD

8IS

2$:

MOV
MOV
TRAP
MOV
MOV
MoV

JSR
CMP
ROR
BCC
CMP

BNE

ROR
BCC
JSR

R.R
0,R3

NSD.SLOT,=(SP)
#56,=(SP)
PC,BLSMUL

#34,SND. ENVELOPE(RO)

#1,(R1)

R3,SND.ENVELOPE
+4 (RO)
(R0)
OPE
SND.ENVEL+6
SND.ENVELOPE+10(R0)
SND .ENVELOPE+12(R0)
#4,SND .ENVELOPE
+14 (R0O)
15
SND. ENVELOPE+(R0)
SND .ENVELOPE+16(R0)
#45, SND . ENVELOPE
+20 (R0)
SND . ENVELOPE +22(R0)
#SND .BUF , SND . ENVELOPE
+24 (R0O)
#SND.ENVELOPE +26,R1
RO.R1
(R1)
1(R1)

SND . ENVELOPE +30(R0)
SND.ENVELOPE +32(R0)
(R0)
LOPE
SND.ENVE+34
SND.ENVELOPE +36(R0)
R3,(SP)

PC.LOAD.OUTSSTD.BUF
RO,.R2

?g.#?OOl

3516

3517

#SND, ENVELOPE +2,R1
RO,R1

#2.1(R1)

3512

REF .MM, ¢

000001
000002 000001
0000046

* ,REF .NUM

JSR
MOV
MOV

PC,GET.CMOSREF

N
o

0000006
000054
0000006
000034 0000006
0000026

3511

010360
005060
005060

MOV
MOV
MOV

=(SP)

PC,GET.NSD

N
&

112711
112761

TST
JSR
JSR

173566
173730

9, 909 0s 00 Ty Be e O Ve Ve Gy O

005746
004767
004767
010003
016746
012746
004767
012760
012701
060001

WP WA Y

000004
000006
000012
000016
000020
000024

MODULE DECLARATIONS

SEO 225

SPIDERSUSERS:(NEALE .AZTECICZRCHS. 816 3 (17)

WX YT WA

REV A PATCH 00

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

VAX=11 Bliss=16 V3=555

;

CZRCHS

REF.NUM,+

*,SND.BUF $LOC
: SND.BUFSLOC,*

PC,DECODE

ng.SLOT.RO
RO
SEND.R ING,RO
#10000 0,2(R0O)
aR(25.a DR,&(SP)

* RCSS.REG

RC$S.REG,TEMP

4(SP),

#7640, (SP)

REF .NUM,
+

R3,=(SP)
R2,=(SP)

3566
3600
3607

SND.BUF$LOC,

PC,CTO.WALT

(SP)+,(SP)+
RO

8s
;ET.STATUS.#11
PC,GET.DUST.STATUS
RO

PC,DECODE

3616
3620

016701

11=Jul=1983 1
7=Jul=1983 0
OO

CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

0000006

:ET.ENSAD.R1

3s:

1.R0

24(R0) ,RO

000024
0000006

RO,PID.SAVE

26(R1) pxo SAVE+2
RO, (SP}
PID.SAVE+2,=(SP)

0000026
0000006
000003

#3,-(SP)

000002G

48:

H
: RET.ENSAD,*

3626
3622

;
:
; PID.SAVE,+*

3625
3626
3627

: SP,e

H
:

3624
3631

RO PID.SAVE

3634

: PID.SAVE,*

3636

RO, (SP)
P1D,.SAVE+2,~(SP)
#PID.FMT ,=(SP)
#3,-(SP)

000006

5%:

000051

6$:

173350

7%:

s SP,»

#6,SP
2$

;

#51,R0

PC.DECODE

2%
R2,RO
RO
RO

8$:

OUTSSTD.BUF
+2(RQ) ,RET.ENSAD
QUTSSTD.BUF +2(R0) ,RO

000002G 0000006
0000026
000016

000031
0000006

9%:

0000006
000006

108:
118:

RTS

SP.RO

16 (R0)
10%
#31,R0
RO,RET.STATUS
11$
RET.STATUS
RO
#6,SP
PC

)
ACSCODE + 4350
176 words,,
Routine
Base:
: Routine Size:
12 words
: Maximum stack depth per invocation:

3676

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 3 (17)

SP,RO
14
5%
26(R1) P1D.SAVE+2

26(R1) ,P1D.SAVE+2

0000026
0000006
000003

000532
000536

SEo 226

#PID.FMT,~(SP)

0000006
000026 000002G

000700
012700
000420
0064767
000672
010200
006300
006300
016067
016000
005760
001405
012700
0100¢7
000402
016700
062706
000207

VAX=11 Bliss=16 V3=555

Rg.PID.SAVE

0000006
000026 0000026

000026

3635

3633

H
:

3631
3639

:
:
: SND.BUFSLOC,*

3647
3607
3659

3664

3666

3651

3453

CZRCHS
REV A PATCH 00

CIZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7-Jul=1983 08:24:58

gg;g

global routine REC_DATA =

'Performs host-=>port communications

3679

;

:
:
:

!4+

; functional Description :

3682

program

!
!

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

3683
3684
3685

3686
3687

gggg

:
:
H
:
:
:
:
:
:

3693
3694
3695
3696
3697
3698
3699
3700
g;g;

!
!
!
!
!
!
!
!
:

;

commands

and the

receive

The

!
!

data

3706

g;};

3707
3708
3709
3710

!
!
!
!

Both

send

and receive commands

and

receive data

commands

active state. If
the server back

are only legal when the

the remote program terminates
in the idle stae, outstanding

send data and receive data commands may be lost. In the event that
the specified timeout interval 1is exceeded, the host program should
issue a get dust staus
command
to see if the remote program is
still
running
(is.
the dup server is active); if
it 1s, the
progress
indicator
should be
remembered and the timeout interval
should be re-installed.
If
the second
timeout expires without a
response and a
second get dust status shows the remote program
hav1q3
made no progress
in the interim then the program should be
considered broken and should be aborted.

:
:
;
:

to communicate between the initiating host

program.

recsponse to the host to notify it of the transmission.

send data

g Formal Parameters :

3705 |

remote

server is in the
abnormally, putting

g;gz

are used

specify a host buffer
descrlgtor 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 back to the host to acknowledge receipt.

;

3690

3691
3692

These

!
!
!

:
:

VAX=11 Bliss=16 V3=555
Page 62
SPIDERSUSERS
: NEALE .AZTECICZRCH5.B16;3 (18)

3680

3681

none

Implicit Inputs :

NSD_SLOT

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 shoul
be polling on and the place to put this commands
command packet.

%;}2

§ Implicit Outputs :

3716

! Completion Codes :

3720

| side Effects :

H
:

3723
3724

begin

3726
3727
3728
g;%g

local
REF _NUM,
REC_BUFS$LOC,
TEMP;

3731

3733

! get the next send descriptor slot and a unique command reference number.

3715 i

none

H
H

3717
%;}g

RET_STATUS:

:
:

H
:
;
:

!
:

3725

3732

Return status passes back to the calling routine
the status of the just issued command.

3792 i--

! Before we load

SEQ 227

!Stores 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

CZRCHS

REV A PATCH 00
:

3734

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS
!

11=Jul=1983 16:06:44
7=-Jul=1983 08:2

4:58

VAX=11 BlLiss=16 V3=555

3735

GET NSD (

;

%;gg

: UQ Port command envelope Header field definition

:
:

3740
37461

SND_ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_RED;
!Load message length
SND_ENVELOPE [.NSDZSLOT, CREDITS] = ONE
'Load credit size

%;22

SND TENVELOPE [.NSD_SLOT, CONA_ID]
= DUP

%;gg

3742

REF “NUM = GET_CHDSREF 0;

SND_ENVELOPE [.NSD_SLOT, MSG _TYPE]
=

!Get the next send desc slot

!Get a unique command ref num

'Define message type 'Sequential’

‘Define connection ID

;

%;22

' DUP generic command envelope field definition

:
:

3747
3748

SND-ENVELOPE C.NSD_SLOT, CMD_LREF] = .REF_NUM;
'Load command reference number
SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = 26RO 'Zero Hi order cmd ref num

3751

SND_ENVELOPE [.NSD_SLOT, OPtODEJ = OP_RED: iload this commands op-code

:
:

SND_ENVELOPE [.NSD_SLOT. UN_CUSED] = ZERO:
SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO;

iNot used in DUP implimentation
!Not used in DUP implimentation

3752
g;gz

SND_ENVELOPE [. NSD SLOT, RSVD) = ZERO;
SND_ENVELOPE C.NSD_SLOT, MODIFIER] = 2ER0;

!Not used field
iDefine this commands modifiers

;

%;gg

; Command specfic command envelope field definition

;;gg

i Byte count of transfer

;

3759

SND_ENVELOPE [.NSD_SLOT, BLO_CNT) = RECB_SIZE;

:
;

g;g%

; Buffer descriptor definition

3764

SND ENVELOPE L.NSD_SLOT, BPA_LO] = REC_BUF; !Low unibus adrs <0-15>

:
:

3766
3767

SND_ENVELOPE [.NSD_SLOT, QBUS_EXT] = 2ERO;
SND_ENVELOPE [.NSD_SLOT. RSV
= 2ERO;

H
:

:
:
N

3749
3750

g;g?

3765

3768

3769

3770
377

SND “ENVELOPE [.NSu_SLOT, BHI_CNT] = ZERO;

!Byte count low word

'Byte count high word

SND_ENVELOPE [.NSD_SLOT, BPA_HI] = ZERD;

'Unibus aars bits <16=-17>

SND_ENVELOPE [.NSD_SLOT, UBA CHAN] = ZERO;

'!'Unibus adartor channel nunber

SND_ENVELOPE [.NSD_SLOT, RSVD] = ZERO;

SND_ENVELOPE [.NSD_SLOT, RSV1J = ZERO;
SND_ENVELOPE L[.NSD_SLOT, RSV2] = ZERO'

10 _bus extentlon adrs
'Reserved field

!These next four words are not

‘used in the UQ Port implementation
!

%;;%

3774

' Call the load out$standing command buffer routine and load this command

3779

g;g?

REC _BUFSLOC= LOAD_OUTSSTD_BUF (.REF_NUM);

g;g%

if .REC_BUFSLOC eqlu OBF_CODE then DECODE ();

:
:
:

3775
3776
g;;g

SND_ENVELOPE C.NSD_SLOT, RSV3] = ZERO'

I 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
: ggcatlon to see if the interrupt service routine has received and process
it.

!Load the command

;

g;gg

3784

g;gg

se~o RING [.NSD_SLOT, OWN_BIT]= PORT_OWNED;

3789

; Read the IP register to stimulate port polling

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (18)

SEO 228

'Error if buffer is full

! Set the ownership bit to 1 giving this slot to the port/controller.

CZRCHS

3791
3792
3793
3794
3795
3796
3797
3798
3799
3800

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

Time out the port/controller for the response from this command.
If the controller times out then:
See what kind of error was returned.
If the error
is a type other than a (TO_CODE (controller time out)
then call
routine Decode which does the appropriate
action based on the error.

3801
3802
3803
3804

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 is
still running and is not dead.

I E IR
TS FE TR P P PN PR NN PR TR TR NN PN P N IR
A
A
AT EYE

the

indicator hasn't changed then assume that the

remote program 1is dead and return an error code of
RPD_CODE (remote program dead code) and exit.

indicator has changed then assume that the
is still running, save a copy of its
value and reinstate the controller time out delay and
remote

program

repeat the loop.

As lon? as the progress indicator in the remote program
is sti L increasing this loop will be repeated for ever.

the controller doesn't time then return with the return code
If
returned from routine CTO_WAIT () which could be either a success
! or error code by definition of this host code.
uhilg TRUE do

!Repeat for ever

?R AK;

‘Flag control C's

egin

i Do a controller time out and determine if the controller
:

has processed the command or if a fatal error has occured.

if CTO_WAIT (4000,

then

.REF_NUM,

'ls return an error

.REC_BUFS$LOC)

Qegin

IR AR

TE TR

11=-Jul=-1983 16:0
7-Jul=1983 08:24:

TEMP = .RC25_ADDR [RCIP, RC_ALLI;

EXETETE

EPE TR

I NI

I XN FI E ¥

REV A PATCH 00

SEQ 229
64
Page
V3=555
VAX-11 Bliss=16
(18)
;3
S.B816
JC2RCH
[INEALE.AZTEC
SPIDER:SUSERS

I If the return status code egl's a CTO_CODE then see if the remote

; program is still running.
t it is then save the progress indicator
and repeat the loop else call routine Decode ().
i

if .RET_STATUS eqlu CTO_CODE
then
begin

if GET_DUST_STATUS ()

'Is this a controller time out

then DECODE

();

!Get the dust status

it .RET_ENSAD [PLO_IND] gtru .PID_SAVE (0]

!Any progress been made

L
CZRCHS
REV A PATCH 00

MODULE DECLARATIONS

R N LR LN X B0 00 03 0¢ Ve 0o e %0 g,

7=-Jul~1983 08:24:58

begin

VAX=11 Bliss=16 V3=555

!Still running save Pid

PIDTMSAVE [1] = .RET_ENSAD [PHIZIND]:
PRéNTB (PID_FMT, .PID_SAVE [1]. .PID SAVE [0]);

else

if .RET_ENSAD [PHI_IND] gtru .PID_SAVE [1]

thenb

egin

PID_SAVE [0] = .RET_ENSAD [PLO_IND];

'Still running save Pid

A TR

PID"SAVE [1] = .RET_ENSAD CPHICIND];
PRéNTB (PID_FMT, .PID_SAVE [1]. .PID SAVE [0D);

LRTR LR

else

return RET_STATUS = RPD_CODE;

!No progress so flag error

end

TR PRP YR IR

! The return status code was not a controller time out code so something

: else is wrong.

else

Call the routine Decode () to find out what went wrong.

()

end
Qegin

PR T PR

DECODE

g The command has been received by the interrupt service.

i Get this

commands return

envelope address out of the

PRP PR

i out$std_buf and check for good return status error and

i die if bad status.

T E PR T

QET_ENiAD = ,0UTSSTD_BUF [.REC_BUFSLOC, ENV_ADR];

!Get the ret env adr

N R

g Test for good status
if .RET_ENSAD [STATUS]) nequ ZERO

:t::return RET_STATUS = RSE_CODE

!Test the status

'Return a ‘Response status err'’ code
!This ret_status is good or bad

return .RET_STATUS;

end;

[PA R

end;

000000

;gsurn.RET_STATUS.

004167

¢000006

‘It won't compile without this here

.SBTTL

REC.DATA::

REC.DATA MODULE DECLARATIONS

SEQ 230

SPIDERSUSERS: (NEALE.AZTECICZRCHS. 816 3 (18)
.

PID_SAVE [0) = .RET_ENSAD [PLO_IND];

TR N R YN

11=-Jul=1983 16:06:44

CZRCH RC25 DISK FORMATTER
then

105011
105061

005060
005060
005060

005060
010316
004767
010002
020227
001002
004767

lSNDiENVELOPE*Zb.R1

RO.R
(R1)
1(R1)

SND.ENVELOPE +30(R0)
SND.ENVELOPE +32(RO)
(R0)
LOPE
SND.ENVE+34
SND.ENVELOPE+36
(RO)

R3, (SP)
PC,LOAD.OUTSSTD.BUF
RO.R2

172712

R2.#2001

002001
173056

012716
010346
010246
004767
022626
006000

007640

026727
001065
004767
006000
103002

0000005 000011

103074

000000G
100000 000002
000000G 000004
000004

175014

175500

1%:

2$:

1$
PC,DECODE

L TRYR TR T

REF .NUM, ¢

373
3747

; REF.NUM,*

3780

W
~
&H

E
+6 (R0)
SND.ENVELOP
SND.ENVELOPE+10(R0O)
SND.ENVELOPE+12(R0)
4
(RO)
#5,SND.ENVELOPE+1
SND. ENVELOPE
+15 (R0)
SND.ENVELOPE+16(R0)
#170, SND . ENVELOPE +20(R0)
SND .ENVELOPE +22(R0)
#REC.BUF
, SND.ENVELOPE +24 (R0)

0000306
0000326
0000346
0000366

000000G

104422

E
+4 (R0)
R3, SND. ENVELOP

000001

016700
006300
006300
066700
052760
017766
016600

37461

#SND, ENVELOPE +2,R1

000001
000002 000001
000004G
000006G
0000106
0000126
000005 000014G
0000156
0000166
000170 0000206
0000226
000090G 0000246
000026G

3740

012701
060001

454,-(spi
PC,BLSMU
#36,SND. ENVELOPE(RO)

*,REF .NUM

3735
3736

W
~
~

005060
012760
005060
012760

NSD.SLOT,=(SP)

0000006
000054
000000G
000034 0000006
0000026

Ve g Ve VP Be Ve g s Ve Wy e O %

112760
105060

=(SP)
PC,GET.NSD
PC,GET.CMDSREF
RO,R3

173026
173170

005060
005060
005060

3677

R1,$SAVE3

112711
112761
010360

MODULE DECLARATIONS

TRTR TIE

005746
004767
004767
010003
016746
012746
004767
012760
012701
060001

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (18)

000004

VAX=-11 Bliss=16 V3=555

CZRCH RC25 DISK FORMATTER

L1}

CZRCHS
REV A PATCH 00

SEO 23

* ,REC.BUFS$LOC

: REC.BUFSLOC,*

3782

* ,RC$S.REG
RC$S.REG, TEMP

ggD.SLOT.RO
RO
SEND.RING,RO
#100000,2(R0)
aRC25.ADDR,4(SP)
4(SP) ,RO
22
#7640, (SP)
R3,=(SP)
R2,=(SP)

REF .NUM,
*

REC.BUF$LOC,*

PC,CTO.WAIT
(SP)+,(SP)+
RO

8$
;ET.STATUS.#11

PC,GET.DUST.STATUS
RO

3825
3832

3841
3845

N
MODULE DECLARATIONS

000316

172752

004767
016701
010100
016000
020067

101417
010067
016167
010016
016746
012746
012746
010600
104414
000422

RET.ENSAD,R1
R1.RO

24(RO) ,RO
RO PID.SAVE

000024
0000006

26(R1) PID.SAVE+?2
RO, (SP)

PID.SAVE*Z.-(SP)

0000026
0000006
000003

SP,RO
14

0000026
0000006
000003

#PID.FMT,~(SP)
#3,-(SP)

062706
000700
012700
000420
004767
000672
010200
006300
006300
016067
016000

000006

5%:

14
#6,SP

000051

6%:

172610

7%:

; Routine Size:

000002G

48:

PID.SAVE,*

3850
3851
3852

PID.SAVE,*

SP.RO

SP,*

000000G
000006

10%:
11%:
Routine
Base:
)

12 words

3858
3856
3864

PC,DECODE

2%
R2.RO
RO
RO

OUTSSTD.BUF
+2(R0) ,RET .ENSAD
OUTSSTD.BUF +2(R0O) ,RO

9%:

176 words,.

26(R1) ,PID.SAVE+2
RO, (SP)
P1D.SAVE+2,~(SP)

#31,R0
9%

0000026 0000006G
0000026
000016

000031
000000¢

SP,«

6
RO,PID.SAVE

8%:

; Maximum stack depth per invocation:

3901

3851
3847

5$
22(R1).PID.SAVE*Z

000000G
000026 000002G

016700
062706
000207

* RET.ENSAD,*

#PID.FMT ,=(SP)

#3,-(SP)

010067
016167
010016
016746
012746
012746
010600

005760
001405
012700
010067
000402

SEQ 232
67

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 3 (18)

RO PID.SAVE

0000006
000026 0000026

000026

104414

000456
000460
000464
000466
000470
000472
000474
000502
000506
000512
000514
000520
000524
009526
000532
000536

0000006

VAX=11 Bliss=16 V3=555

PC,DECODE

3s:

026167
101421

000452

11=Jul=-198
7=-Jul-198

CZRCH RC25 DISK FORMATTER

CZRCHS
REV A PATCH 00

16 (R0)
108
#31,R0
ROiRET.STATUS
11
RET.STATUS,RO
RTS

#6,SP

ACSCODE + 5110

REC.BUFSLOC,*

3872
3832
3884

3889

3891
3876

3677

3902
3903

CZRCH RC2S DISK FORMATTER

11=Jul=-1983 16:06:44

global routine SET_CNTLR_CHAR =

!Sets control characteristics

MODULE DECLARATIONS

Functional Descri?tion :

TEATETYTE
R X T [
R

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. This command never alters the unit's state
("'unit-online’’,
‘'‘unit-available’’, ‘'‘unit-offline’’),
It is
meaningless to set host settable characteristics for a unit
that is ‘‘unit-available’’ or ‘‘unit-offline’’.

formal Parameters

none

Implicit Inputs :

NSD_SLOT

.
This global storage gets Lloaded by the routine
‘Get_nsd’
and in it is stored the next send r1ng
descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

Implicit Outputs :
none

Completion Codes :

RET_STATUS:

Return status passes back to the calling routine
the status of the just issued command.

TN PR TR PR
R FE PR YN
A

begin

REF _NUM,

SCC_BUFSLOC,
TEMP;

!Stores unique c¢cmd ref number

)
!Stores out standlng cmd buffer location
'A place to put read IP register data

ETTE

Side Effects :
)
.
)
.
Any previously defined controller characteristics will possibly
be altered after execution of this command.

local

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.
GET_NSD ();
QEF_NUH = GET_CMDSREF ().

!Get the next send desc slot
'Get a unique command ref num

% UQ Port command envelope Header field definition
SND_ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_SCC;
SND_ENVELOPE [.NSDZSLOT, CREDITS) = ONE:
SND_ENVELOPE L[.NSD_SLOT, MSG_TYPE] = 0;
?ND:ENVELOPE [.NSD:SLOT. CONR_ID] = MSCP;

'Load message length

'Load credit size
)
'Define message type ‘'Sequential’
'‘Define connection ID

i MSCP generic command envelope field definition

SEQ 233

Page

SPIDERSUSERS
: (NEALE.AZTEC JCZRCH5.816;3 (19)

VAX=11 Bliss=16 V3-555

7-Jul=-1983 08:24:58

144

IR IETE

AR TR YO KN TN TN

N PN TN PN FE FE PR EN PN Y

CZRCHS
REV A PATCH 00

c
HS
4
CZRCK

SND ENVELOPE C. NSD_SLOT, CMD_LREF] = .REF_NUM;

C. NSD_SLOT, CMD_HREF] = ZERO.
E.NSD sLoT, UN_CUSED] = JERO;

'Load command reference number

12ero Hi order ¢cmd ref num

!Not used in DUP implimentation
!Not used in DUP implimentation
'Load this commands op=-code

NSDZSLOT, UN_HUSED]
:
NSD_SLOT, OPtODEJ = OP_SCC;
= ZERO;
C. NSD_SLOT, RSVD]
C.NSD_SLOT, MODIFIER] = 2ERO;
[.

'Not used field
'Define this commands modifiers

; Command specfic command eavelope field definition
SND_ENVELOPE C.NSD_SLOT, MSCP_VER] = ZERO;
SND_ENVELOPE C. NSD_SLOT, CTL _FLAGS)
= ZERO;
.NSD_SLOT, HOSY_TOV]
= ZERO:
SND_ENVELOPE
NSD"SLOT, RSSVB] = 2ERO
SND_ENVELOPE
SND_ENVELOPE E:NSD SLOT, 7$D_0J = ZERO:

NSD_SLOT, T$D_1) = ZERO;
SND_ENVELOPE
SND_ENVELOPE C. NSD_SLOT, TSD_2) = Z2ERO;
SND_ENVELOPE L. NSD_SLOT, TSD_3] = ZERO;
SND_ENVELOPE . NSD_SLOT, CDP_LO] = ZERO;
SND —ENVELOPE C.NSD_SLOT, CDP_H1) = ZERO;
0

IMSCP version

!Controller flags

'Host time out value
!Reserved

!Time and Date word 0

!Time and Date word 1
‘Time and Date word 2
‘Time and Date word 3
‘Cntlr dep parameter L0 word

'Cntlr dep parameter hi wrd

Call the load out$standing command buffer routine and load this command
into the buffer.

The return from this routine will

point

SCC_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);
it .SCC_BUFSLOC eqlu OBF_CODE then DECODE

R
I E
M
M EE
EEE

the

!Load the command

'Error if buffer is full

();

i Set the ownership bit to 1 giving this slot to the port/controller
SEND -RING [.NSD_SLOT, OWN_BIT]
= PORT_OWNED:
; Read the IP register to stimulate port polling
TTEMP

= .RC25_ADDR [RCIP, RC_ALLJ;

" Time

out the

port/controller processing

the command.

The

first

test

ability to

i
i

[
i

EEEEE

buffer location where this command is stored. Later we can look at this
:l location to see if the interrupt service routine has received and process

[
i
i
[

I IR

[
i
i
i

tests the connections

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.
It
bad status is sent back then an error codq 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
has received the endpacket and no connection errors
were detected.

SEO 234

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (19)

7=Jul=1983 08:24:58

MODULE DECLARATIONS

SNTM_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND
—ENVELOPE

VAX=11 Bliss=16 V3=555

11=Jul=1983 16:06:44

CZRCH RC25 DISK FORMATTER

PRTRPR PN PRFE TR

PRFE
PRR
I AT PR TR

PRTR
X LN
TRX3 X1 LN P TI

N TN P P
FNPN
N XN T

REV A PATCH 00

.
it.

D
CZRCHS

R T FI TN

N P EE FN PN

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

if CTO_WAIT (3000, .REF_NUM, .SCC_BUFSLOC) then DECODE ();

?ET_ENSAD = .QUTSSTD_BUF [.SCC_BUFSLOC, ENV_ADR];

4025

E Now test for good status

! Get

' at
5

004167

0000006

000004

005746
004767
004767
010002
016746
012746

R FIE

000000

[YEYREIERTEIETYEZE

the return envelope

this commands

address

buffer location

from the

'Is return an error

then

else

!Test the status

'Return a 'Response status err'' code

return .RET_STATUS;

!This ret_status is good or bad

0000006
000054
0000006
000040 00000CG
0000026

.SBTTL
SET.CNTLR.CHAR MODULE DECLARATIONS
SET.CNTLR.CHAR::
R}SSSAVE2
JSR
TST
JSR
JSR

MOV

MOV
MOV
JSR
MOV
MOV
ADD

000001
000001
0000046
0000066
0000106

MOVB
CLRB
MOV
(LR
(LR

000004 0000146
0000156
¢n00166

MOVB
CLRB
CLR

0000226
0000246
0000266
0000306
0000326

(LR
CLR
CLR
CLR
CLR

0000126G

0000206G

0000346

0000366
0000406
0000426
172160

!Get the ret env adr

return RET_STATUS = RSE_CODE

172266
172430

002001

out$std_but

and check the packet

i; .RET_ENSAD [STATUS] nequ ZERO

CLR

(LR

CLR
(LR
(LR
CLR

MoV

JSR

MoV

CMP

PC,GET.NSD

PC.GET.CMDSREF

RO,R2
NSD.SLOT,=(SP)

* ,REF .NUM

#54.=-(SP}

PC,BLSMUL

#40,SND. ENVELOPE (R0)
#SND, ENVELOPE +2,R1
RO,R1
#1.(R1)
1(R1)

R2,SND .ENVELOPE
+4 (RO)
SND. ENVELOPE
+6 (R0)
SND.ENVELOPE+10(R0O)
SND . ENVELOPE
+12 (R0)
#4 ,SND .ENVELOPE
+14 (RO)
15
SND . ENVELOPE+(R0)
(R0)
+16
SND . ENVELOPE
(R0)
OPE
+20
SND . ENVEL
(R0)
OPE
+22
ENVEL
SND .
(R0)
OPE
+24
SND . ENVEL
E
+26 (R0)
SND . ENVELOP
SND . ENVELOPE +30(R0)
E
+32 (R0)
SND . ENVELOP
E
+34 (RQ)
SND . ENVELOP
(R0)
OPE
+36
SND . ENVEL
(R0)
OPE
+40
SND . ENVEL
E
+42 (R0)
SND . ENVELOP
R2.(SP)

PC.LOAD.OUTSSTD.BUF
RO.R1

R1.#2001

SEO 235

SPIDERSUSERS:(NEALE.AZTECICZRCHS. 816 3 (19)

tfor good status error and die if bad status was returned

end;

010001
020127

VAX=11 Bliss=16 V3=555

4026
4027
4028
4029
4030
4031
4032
4033
4034

000156
000162
000166
000170
000174
000176

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

4016
4017
4018
4019
4020
4021
4022
4023
4024

REF .NUM, *

REF .NUM ¢

*,SCC.BUFSLOC

SCC.BUFSLOC,*

CZRCHS

REV A PATCH 00

000202
000204

001002
004767

VAX=-11 Bliss=16 V3=555

MODULE DECLARATIONS
172324

1$:

0000006
100000 000002
0000006 000004
000004
005670

BNE
JSR

MOV
ASL
ASL
ADD

8IS

MOV
Mnv
MOV
MOV
MOV

174264

JSR
CMP
ROR

172242

000402

016700
062706
000207

BCC
JSR

4035

PC,DECODE

ggD.SLOT.RO

3993

SEND.RING,RO

#100000,2(R0O)

aRC25.ADDR, 4 (SP)

4(SP) ,RO

! A

#5670, (SP)

R1,~(SP)
PC,CTO.WAIT

: SCC.BUFSLOC,*

R2.-(5P)

REF.NUM,
¢+

4016

(SP)+,(SP)+
RO

PC,DSCODE

; SCC.BUFSLOC,*

4023

4028

000002G 0000006
000002G
000016

MOV
ASL
ASL
MOV
MOV
TST

000031
0000006

MOV
MOV

#31,R0
RO,RET.STATUS
43

4030

3937

ADD
RTS

#6,SP

3902

0000006
000006

8EQ

3s:

BR
MOV

Base:
114 words,
Routine
.
ACSCODE
9 words
Maximum stack depth per invocation:

; Routine Size:
;

2$:

SPIDERSUSERS:[NEALE.AZTECICZRCHS.B16; 3 (19)

CIZRCH RC25 DISK FORMATTER

0000006

SEO 236

Page

RO
RO

OUTSSTD.BUF
+2(R0) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO
;g(RO)

RET,STATUS,RO

+ 5650

CZRCHS

REV A PATCH 00

MODULE DECLARATIONS

CZRCH _RC25 DISK FORMATTER

11-Jul=1983 16:06:44

28%9

global routine ON_LINE =

‘Makes a unit come online to a host

;
:
;

4038
4039
64040

L
)
!+e
! Functional Description :
)
!
The online command is

:
:

:
;

:
:
:
:

4041
4042

[}

4043

]

6045

4047
4048
4049

]

4051

6044

6046

]

4050

4054

4056
4057
4058
4059

!
;

:
;

;
:
:

]

The

characteristics

Formal Parameters

Implicit

Inputs

NSD_SLOT

4064
4065

!1
!]

.
Completion (odes

282;

]

4069

;

28;;

]

4066

4070

4073

:
;

4075
4076
4077

4074

]

characteristics

none

RET_STATUS:

end

Host settable

Side Effects

)

the status of the just issued command.

Any previously defined controller characteristics will possibly

be altered after execution of this command.

begin

local

)

REF _NUM,

!Stores unique cmd ref number

.
!S.ores out standlng cmd buffer location
'A place to put read IP register data

4081

:
;

4085
2859

GET_NSD ();
QEF_NUH = GET_CMDSREF

;

2ggg

; UQ Port command envelope Header field definition

;

4090

SND_ENVELOPE [.NSD_SLOT, MSG_LENGTH] = SZ_ONL;

4091
4092

command's

Return status passes back to the calling routine

;

:
;

is heads

set exactly as it

command were issued.

4082
2832

online

are

set

those unit
class driver

necessary, and

4078
28;8

;
:

obtain
proper

command packet.

]

the

and
for

This global storage gets
loaded by the routine
‘Get_nsd'
and
in it is stored the next send rlng
descriptor slot where the port/controller shoul
be polling on and the place to put this commands
:

returning

e
.
unit
‘unit-online,

none

)
Implicit Outputs

:
;

settable

“‘unit-online’’.

]

spun-up,

unit

set

!
!]

4063

1is

prior

Host

4060
4061
4062

unit

.
to bring

characteristics
_ are
essential

loaded

]

wunit
that

wused

ONL_BUFS$LOC,
TEMP;

)

! Before we Load up the command packet up with all this good information
; get the next send descriptor slot and 2 unique command reference number.

();

SND_ENVELOPE [.NSD_SLOT, CREDITS) = ONE:
SND_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0;

Page

SPIDERSUSERS
: [NEALE .AZTECICZRCH5.816;3 (20)

characteristics
are set after the unit has been successfully spun-up
and any other validity checks have succeded. Note that the unit's
host settable characteristics are not altered if the unit is
already

]

4055

are

message.

]

4052

4053

operation.

host
settable
characteristics

]

VAX=-11 Bliss=16 Vv3=555

7=Jul=1983 08:24:58

SEQ 237

'Get the next send desc slot
'Get 3 unique command ref num

!Load message length

'Load credit size
.
'Define message type ‘'Sequential’

CZRCKHS

CZRCH RC2S5 DISK FORMATTER

11=Jul=1983 16:06:44

§ND_ENVELOPE C.NSD_SLOT, CONN_ID] = MSCP;

2882

‘ MSCP generic command envelope field definition

4097

SND _ENVELOPE C.NSD_SLOT, CMD_LREF] = .REF_NUM;

2}82

; Command specfic command envelope field definition

4107

éND ENVELOPE [.NSD_SLOT, RSVSD] = ZERO;

'Reserved

SND_ENVELOPE [.NSD_SLOT, RSVDS$1]

!Reserved field

4098
4099
4100
L0
4102
2}82

SND_ENVELOPE
SND_ENVELOPE
SND_
“ENVELOPE
SND_ENVELOPE
SND ENVELOPE
SND —ENVELOPE

= ZERO
SND_ENVELOPE L. NSD_SLOT, UNT_FLAGS]
SND_ENVELOPE C.NSD_SLOT, RSVG$0]
ER

ZERO:

!Define connection ID

'Load command reference number

'Unit flag field
'Reserved field

RSVD$2) = ZERO;
!Reserved field
RSVD$3] = ZERO;
‘Reserved field
RSVD$4] = ZERO;
!Reserved field
RSVD$5] = ZERO;
‘Reserved field
DDP_LO) = ZERO:
'Device dependent parameter
DDPCHI] = ZERO;
'Device degendentparameter
SHABOW UNIT] = ZERO;
Shadow unit
COPY_SPEED]
= ZERO;
!Copy speed

i from this routine will point us to the buffer location
i where this command
is stored.
Later we can look at

: this
!

Llocation to see if the interrupt service routine

has received and process it.

ONL _BUFSLOC
= LOAD_OUTSSTD_BUF

(.REF_NUM);

!Load the command

it .ONL_BUFSLOC eqlu OBF_CODE then DECODE ();

'Error if buffer is full

% Set the ownership bit to 1 giving this slot to the port/controller

éEND_RlNG C.NSD_SLOT, OWN_BIT] = PORT_OWNED:
! Read the IP register to stimulate port polling

TEMP = RC25_ADDR [RCIP, RC_ALLI;
Time

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.

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

SEO 238

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 3 (20)

! Call
the load out$standing command bufter routine
! and
load this command into the buffer.
The return

i
I

—

VAX=11 Bliss=16 V3=555

[.NSD_SLOT, CMD_HREF] = 2ERQ; !Zero Hi order cmd ref num
)
[.NSD_SLOT, UNIT NUM] = .UNIT_NO;
!Select unit to bring online
[. NSD SLOT, UN HUSEDJ = lERO;
'Not used in DUP implimentation
[. NSD_SLOT, OPCODEJ OP_ONL;
!Load this commands op-code
. NSD SLOT, RSVD])
= ZERO
'Not used field
[.NSD_SLOT, HODIFIERJ = 7ERO;
‘Define this commands modifiers

SND_ENVELOPE [.NSD_SLOT.
SND_ENVELOPE [.NSDZSLOT.
SND_ENVELOPE [.NSD_SLOT,
SND_ENVELOPE E.NSD_SLOT,
SND_ENVELOPE
[.NSD_SLOT,
SND_ENVELOPE L. [.NSD_SLOT,
SND_ENVELOPE C. [.NSD_SLOT,
?ND ENVELOPE C. [.NSD_SLOT,
H

FELR PR PR PR
TR P PR N FE TR
PRPR
P P
A
I E A
R
A E M E
E
I EIEREEE
IE T
A

7=Jul=1983 08:24:58

2832

PRYR TN

TRR
T LN X N Be 0082 Qe 000000000001 B 0,0 0 0,

REV A PATCH 00 MODULE DECLARATIJIONS

LRI

IRT RN Y

I IS WAL

I RO WO

N O

CZRCHS
REV A PATCH 00

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CIZRCH RC25S DISK FORMATTER
MODULE DECLARATIONS

4150
4151
6152
6153
6154
6155

'
!
!
!

6157
4158

it CTO_WAIT (ONE_MINUTE, .REF_NUM, .ONL_BUFSLOC) then DECODE ();

6156

4159
4160
4161
6162
4163
6164
6165

When true signals us that the interrupt service routine
has received the endpacket and no connection errors

;

were detected.

‘ls return an error

! Get the return envelope address from the out$std_buf
! at
this commands buffer location and check the packet
;

for good status error and die if bdad status was returned

QET_ENSAD = .QUTSSTD_BUF [.ONL_BUFSLOC, ENV_ADR];
;

6169
4170

then

6167
4168

SEQ 239

Page 74
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: CNEALE.AZTECICZRCH5.816;3 (20)

out routine will Loop on delaying and checking the hi
bit of the first word in the out$std_but for a true.

6166

Now test

end;

004167

0000006

else

!Get the ret env adr

for good status

i; .RET_ENSAD [STATUS] nequ ZERO

GNn
4172
6173
4174
4175

005746
004767
004767
010002
016746
012746

'Test the status

return RET_STATUS = RSE_CODE

'Return a ‘Response status err’’ code

return .RET_STATUS;

'This ret_status is good or bad

.SBTTL
ON.LINE::

ON.LINE MODULE DECLARATIONS

JSR

R1,$SAVE2

4036

PC.GET.NSD
PC.GET.CMDSREF

:
:

4085
4086

0000006
000054
000000G
000044 0000006
0000026

JSR
JSR
MOV
MOV
MoV
JSR
MOV
MOV

NSD.SLOT ,~(SP)
#54 ,-(SP)
PC.BLSMUL
#44 ,SND . ENVELOPE
(RO)
#SND.ENVELOPE +2,R1

4090

40N

000001
000001
0000046
0000066
0000006 000010G
0000126
000011 0000146

Mov8
CLRB
MOV
CLR
MOV
CLR
MOVB

#1,(R1)
1(R1)
R2,SND . ENVELOPE +4 (RO)
SND .ENVELOPE +6(R0O)
UNIT.NO,SND.ENVELOPE+10(RO)
SND.ENVELOPE+12(R0)
#11,SND.ENVELOPE+14 (RO)

:
:
s REF.MUA,
¢
:
:
:
:

4092
4093
4097
4098
4099
4100
L0

0000166
0000206
0000226
0000246
0000266
0000306
0000326
0000346

CLR
(LR
CLR
CLR
CLR
CLR
CLR
CLR

SND .ENVELOPE +16(R0)
SND.ENVELOPE+20(R0)
SND.ENVELOPE +22(R0)
SND.ENVELOPE ¢ 4(R8)
SND.ENVELOPE+26(R0O)
SND.ENVELOPE +30(R0)
SND.ENVELOPE +32(R0)
SND.ENVELOPE +34 (R0)

:
:
:
:
H
:
H
:

4103
4107
4108
4109
4110
a1
4112
4113

171722
172064

0000156

000140
000144
000150

TST

ADD

CLRB

-(SP)

RO,R2

RO.R1

SND.ENVELOPE+15(R0O)

s *,REF.NUM

6102

000154
000160

005060

11-Jul-198 3 16:06:4
7=Jul-198 3 08:24:5

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

SND . ENVELOPE+36(R0 )
SND . ENVELOPE +40(R0)
SND .ENVELOPE +42(R0)
(RO)
OPE
+44
SND . ENVEL
SND.ENVELOPE +46(R0)

0000366
0000406
0000426
0000446
0000466

R2, (SP)
PC,LOAD.OUTSSTD.BUF
RO.R1
R1,#2001
1$

171602

002001
171746
0000006

0000006
100000 000002
0000006 000004
000004

REF .NUM, «

; +,0ONL.BUFSLOC

NSD.SLOT,RO
RO
RO
SEND.RING,RO

6134

8RC25. ADDR 4(SP)

: *,RC$S.REG
. RCSS.REG,TEMP

4138

R
4(SP)
#-12640, (SP)
R2,=(SP)
R1,=(SP)

173706

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (20)

4129

#100000,2(RO)

165140

SEO 240

: ONL.BUFSLOC,»

PC,DECODE

18:

VAX=-11 Bliss=16 V3-555
®e Ve Be%e % B,

CZRCHS
REV A PATCH 00

PC,CTO.WAIT
(SP)+,(SP)+

:
:

REF.NUM,
+

4157

; ONL.BUFSLOC,

171664

001405
012700
010067
000402
016700
062706
000207

PC,DECODE

2$:

OUTSSTD.BUF
+2(R0) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO
%g(RO)

000031
0000006

38:

A ¥

RTS

#31,R0
RO,RET.STATUS
3]
RET.STATUS,RO
#6,5P
PC

119 words,.
Routine
Base:
; Routine Size:
.
ACSCODE + 6214
9 words
; Maximum stack depth per invocation:

4176

4164

4169

4074

4036

000002G 0000006
0000026
000016

0000006
000006

; ONL.BUFSLOC,*

J
CZRCHS

Y Ve 8e %000 0s 0105000000 8080 98,5 %0 0,0, LRI

I I

I XA

YN Y

REV A PATCH 00

6177
6178
4179
4180
4181

4182
4183
4184
4185
6186
4187
4188
4189
4190
4191

6192
4193
4194

4195
4196
4197
4198
4199
4200
4201
4202
4203

EREIE R E T

4204
4205

4206
4207

4208
4209
4210

4211
6212
213
6214
6215
4216
4217

000000

012767

000006

000002

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS

11=Jul~1983 16:06:44
7=Jut=1983 08:24:58

global routine INTSI_SERVICE : INT_LNKSTYP novalue =
lee

! Functional Description :

i
i
i
'
i
i
i
i
i
i
i

i
i
i

i
i

i
i
i
i
i
1

4218

SEQ 241

Page 76
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: INEALE.AZTEC JCZRCHS5.816;3 (21)

'Init sequence interrupt catcher
.

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.

Note that no initerrupt will be generated at the completion of
step & since this step rquires only a small number of time.
This interrupt service routine serves to catch any interrupts that the
controller might
issue
during
the initialization sequence.
The
interrupt is ignored and control is returned.

This interrupt service routine is also used during the RC25 register
existence test in determining whether P_Table R(25 registers exist.
Formal

Parameters

none

Implicit Inputs :

NEX_FLAG

Implicit Outputs

NEX_FLAG

A flag which is loaded with 2eros during.the RC25 register
existence test and set to all ones
by this routine in the
event of attempts to read a non-existent R(25 controller.
:

)

]

Is returned with all ones in the event of R(25 non-existent

attempts.

; Completion Codes :
none

Side Effects

none

E-

begin

NEX_FLAG = ONES;

'Indicate this interrupt occured

return,

end;

177777

000000G

LSBTTL

INTSI.SERVICE MCDULE DECLARAT]IONS

INTS].SERVICE::
MOV
#-1,NEX.FLAG
RT]

4 words,
Routine Base:
ACSCODE + 6572
; Routine Size:
; Maximum stack depth per invocation:
0 words
:

H
.

6215
64177

K
CZRCHS

I I

REV A PATCH 00

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=-Jul=-1983 08:24:58

global routine IS_TIMER (SEQ_NO) =

'Init sequence time out

I FI

TR PN PR TN P
R TR PR

TR P

T X

[T REYR

Functional Description :

]

SEQ 242

VAX=11 Bliss=16 V3=555
Page 77
SPIDERSUSERS
: [NEALE.AZTECICZRCHS5.816;3 (22)

Steps 1-3 of the init sequence, each are required to complete within
10 seconds.
If any of these steps fails to complete within that period,
this is to be treated as a host detected fatal error.

This routine will do one us delays for a total of 10 seconds.
After
each delay the step field is examined to see if this init sequence has completed.
Formal Parameters
:

SEQ_NO: Indicated which init step is presently being performed within the R(25 init sequence.

Implicit Inputs :
none

Implicit Outputs

none

IR SAr O

YRPRSI

Completion Codes :
.
)
L.
L.
.
TRUE:
Indicates to the calling routine that the indicated init sequence step has timed out.
FALSE:
Side Effects

Irdicates to the calling routine that the indicated init sequence

step has not timed out.

If the init sequence step times out and an error is posted in the sa register
then the routine decode will be call.

Y EYE
TR TR TR I

begin
local
TO_VALUE

: word,

STEP_VAL : word;

PRPR
TR TR TR IR E

§TEP_VAL = IERO;

!Step time out value

'Temp storage of step value
!Make sure the loc

is 2zeroed out

% Select the step value expected from this init sequence step.
selectoneu .SEQ_NO of
set

ol :
begin

STEP_VAL = Zb'0001°;
ToavlLUE = 20000;

T
P
A A R
S

!Select the binary step value

!Step 1 binary value
'Timeout step one for 60 seconds

end;

begin

STEP_VAL = Zb'0010°;
ToavlLUE = 5000;

4275

end;

!Step 2 binary value
'Timeout step two for 10 seconds

CZRCHS

CZRCH RC 25 DISK FORMATTER
MODULE DECLARATIONS

(21 :

4276
6277
4278
4279

begin
STEP VAL

TO_VALUE
end;

26°0100°;
5000,

!Step 3 binary_value
'Timeout step 3 for 10 seconds

2b°1000°;
5000.

!Step 4 binary valuo
'Timeout step & for 1O seconds

£33 :

UYWAY WO

O S

REV A PATCH 00

SEQ 243
Page 78
VAX=11 Bliss~16 V3=555
SPIDERSUSERS
: CNEALE .AZTECICZRCH 5.816;3 (22)

164
:58

PR TR L A TR
TR PE TR TR

begin
STEP_VAL

tes;

T0_VALUE
end;

; Loop

on the 100 micro second delay until either the expected step field

T
TR T

is read in the SA register or the Sstep times out.

!Loop on C_US delay's

incru TIM_OUT from O to .TO_VALUE do
begin
QELAY (C_US);

‘Do the delay

| Check the step bit to see if it is set yet.
If it is set then return
a false indicating the completion else continue delaying.

S R L

;

PRTR IR NI KN TN
NI

if .RC25_ADDR [RCSA, STP_FIELD] eqlu .STEP_VAL then return FALSE;
!Service any control C°'s

BREAK;
end;
+

' This step has not completed within the specified time interval.
!
!

Test

the sa register for any errors posted and report errors if any. Return

a true to the caller indicating the error.

it . RC25_ADDR [RCSA, ERR_BIT]
then

'Is the error bit set

begin

'!Indicate the port/fatal error code

REY_STATUS = PFE_CODE;

DECODE ();

!Report the error

end;
retu rn

end;

000000

004167

000004
000010
000012
000016
000020
003024

162706

005002
016600
001005
012702
012703

0000006

000006
000022

00001
047040

'Return a failure to the caller

TRUE;

.SBTTL
IS.TIMER::
JSR
sus
CLR

1S.TIMER MODULE DECLARATIONS

R1,$SAVES4

4219

MOV

R2
gi(sp>.no

: STEP.VAL
: SEQ.NO,*

4256
4261

MoV

2 ,R2

;

4266
4267

BNE

MOV

26.SP

#47040,R3

+,STEP.VAL

: «,T0.VALUE

CZRCHS

REV A PATCH 00

000030
000032
000036

000423

18:

000001

2s%:

000004
000003

3%:

000010
011610

5%:

6$:
7%:

0C0001
0000006

8%:

000004

9s:

0000006
000002 000002

108:

000002

000162
000164
000170
000172
000174
000176
000200
000202
000204
000210
000214
000216
000224
000230
000234
000236
000240
0C0244

177760

11$:

0000006
000002

000021

171352

000001

000207

000006

B8R
CMP
BNE

MOV

000002

BR
CMP
BNE
MOV
BR
CMP
BNE
MOV
MOV

CLR
B8R

12$%:

138:
14$:

5%
#1
RO,

2%
#2,R2

RO, A2
3s
#4 ,R2
48
RO,#3
5%
#11610,R3

MOV

BEQ
MOV
8EQ
CLR
DEC
BNE
DEC
BR

MOV
MOV
MOV

MOV
ASR
ASR
ASR
SWAB
8IC
CMP
8EQ
TRAP
INC
CMP
8LOS
MOV
MOV
BPL
MOV

0000006

JSR

MOV

BR
CLR
ADD
RTS

4322

;

4261

;

«,STEP.VA
; *.STEP.VAL

4272

4261

*,STEP,
STEP.VAL

4273

579
4278

4261

; *,STEP.VAL
: *,T0.VALUE
: TIM.ouT

4284
4285
4294

; %, $8TMP2

4296

; %, 88TMP

; SSTMP

: $$TMP1

: $$TMP2
RC25.ADDR,RO
2(R0) ,2(SP)

R2,R1

2(SP) ,RO

RO
RO
RO
RO
#177760,R0
RO, R1
13%

R4 ,R3
6%
RC25.ADDR,RO

Z(RO) (SP)
12%

;
;

*,RC$S.REG
STEP.VAL,*

4302

: RCS$S.REG,*

; TIM.OUT

4294

4313

; TIM.OUT,TO.VALUE
:

%,RC$S.REG

#21 RET.STATUS
PC DECODE

:
:
:

4316
4317
4250

RO
46, SP
PC

4219

14£

Routine Base:
ACSCODE + 6602
: Routine Size:
83 words, .
; Maximum stack depth per invocation:
0 words

;

SEO 244

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (22)

CZRCH RC25 DISK FORMATTER

MODULE DECLARAT]ONS

000002

000040
000044

VAX=11 Bliss=16 V3-555

N3
CZRCHS

11-Jul=-1983 16:06:44

global routine 800T_R(C25 =

‘Performs RCZ25 init seguence

MODULE DECLARATIONS

7-Jul=1983 08:24:58

VAX-11 Bliss=16 V3-555

Functional Description :

This

routine performs the

RC25 controller.

initialization

sequence

of the R(C25

The initialization procedure serves to:

Identify

the parameters

of the host-resident communications

Provide

check of port/controller

region to the port.

confidence

integrity.

Bring the port/controller online to tne host (note that the
devices attached to the controller are not thereby brought
online to the class driver.)

i Formal Parameters :
none

i Implicit Inputs :
ISO_STRUCT

Stores the init sequence read and write data defined
for this program and controller.

i Implicit Outputs :
none

R
M EEE

i Side Effects :

I IEIEEEEEE

Failure:

A AR E

i Completion Codes :
Success:

s returned to the calling routine if this initialization

sequence was executed successfully.

1Is
returned to *he callng routine if this initialization
sequence was not executed successfully.

Any DM code that might have been running in the DM machine will be
aborted.

Any outstanding commands or response pertaining to a process using
the controller will be lost.
begin
local
TEMP : word;
The

host begins

either

.
!Temporary storage location
the

1ssuing

initialization

bus init

sequence

or by writin

any
value into the IP register;
the port mus
guarantee that the host will read zeros in SA

on the next bus cycle.
[Initialization
then
sequences
through
steps 1-4 as per UQSSP.DOC
Version 1.5

SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.B16:3 (23)

PR PNPR

FEIR TR FENE FE FE FE NN

NN PREE

PRLN TR PR 11 Qe s ws 0,

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

SEQ 245

Page

CZRCHS

REV A PATCH 00

:
:
:
:

;

4380

The

stands

for

write

4393

4395
4396

!
!

(397
4398
4399
4400
2285

! SA

! structure

:
:
:
:
:

4403

4404
4405

228§
f

2283

4410

and

read

data is preset into the

ISD_STRUCT

and

; "In1t1allzatron Sequence Data STRUCT'',
!

!
!
!
!
;

a steg time

out error occures the test

1nvok1ng this routine will take the necessary
retry procedure. A return code of failure is

returned.

If any SA register compare error is detected after
a step completion the routine Decode will decode the

error

and load statistical tables up pertanate data.

e
incru SEQ_NO from STEP1 to STEP4 do

begin”

'0o the four init seq steps

; wait for the controller to Load the SA reg up with the step data.

4611

22}2

g DO SOME STAT TABLE UP DATA TO SHOW THE TIME OUT

4417

PRINTB (.EMSG_STRUCT [MSG101);

4419

end;

4412

4620

4621

4423

64622

'Did the Controller time out

then

4418

if IS_TIMER (.SEQ_NO)

return FAILURE;

'Notify DRS> init of the failure

! The controller did not time out so read the SA register
!

for

the expected step

data and compare it to the gocd

2252

! data stored in ISD_STRUCT.

4426

| It the read SA data is not what we expect then

44629

: Note “hat the reserved fields read in the SA register are

;

22%}

; to the expected data stored in the structure ‘‘ISD_STRUCT''.

:
:

225;
4430

22%2

;

failure code.

return a

! or'ed with all ones to mask out the field before comsareg

TEMP= ((.RC25_ADDR [RCSA, RC_ALL)) or (.RSVD_STRUCT [.SEQ_N0J));
i; .TEMP nequ .ISD_STRUCT [.SEQ_NO, ISRD, ISR_ALL]

then

SEO 246
81

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (23)

.
!Begin init sequence

VAX=11 Bliss=16 Vv3=555

! This incr loop performs all four steps of the

4390

2%3;

start the init

! initialization sequence described above.

4394

.
:

IP register and

4388

:
:

the

‘e

4389

;

4386

! Wwrite

! sequence going.
‘e

7=Jul=1983 08:24:

WRT_RC25 (RCIP, ONES).

4387

11=Jul=1983 16:06:44

MODULE DECLARATIONS

4381
4382
4383
2%3?

CZRCH RC2S5 DISK FORMATTER

!Compare read to expected

IR TR FESE TR

FELE

FREAEE]

We 0o %0 s 9o Vs ®e Ve

0 % %0 g,

end;

4444

4446

i This step read data is what we expected so write the SA register
; with this steps write data stored in ISD_STRUCT.
UR;_RCZS (RCSA, .ISD_STRUCT [.SEQ_NO, ISWRT, ISW_ALLJ));
end;
[}

;

The controller initialization sequence was done successfully so return a success code.

retyrn SUCCESS:

000004

024646
012700
010077
005002
010246
004767
005726
006000

000112

\fl‘\

if .SEQ_NO eqlu STEP4 then PRINTB (FMT4, .RC25_ADOR [RCSA, S4R_VER]):

0000006

.SBTTL
B800T.RC25::
JSR
cMP
MOV

177777

0000006
177504

1%:

MOV
(LR

MOV
JSR
TST
ROR

8cC

0000246

MOV

000001

0000006
000002 000002
000002

0000006
0060006

2$:

BOOT.RC2S MODULE DECLARATIONS
=(SP) ,~(SP)
#-1,R

RO,8RC25.ADDR
R2
R2,=-(SP)
PC,IS.TIMER

* ,RCSM.REG
RCSM.REG,*
SEQ.NO
SEQ.NO,*

RC2S.ADDR,RO
2(R0) ,2(SP)
R2.RO

* ,RC$S.REG

8IS

RSVD. STRUCT(RO) ,R3

RCSS REG, TEMP
TEMP
SEO NO, *

RS.ISD.STRUCT(R1)

TEMP,«

CMP

BEQ

2(SP) ,R3
R2.R1
R1

4611
£433

SEQ.NO,*

ASL

46N

SP,
¢

ASL

MOV
ASL

4405

4“7

EMSG.STRUCT+24,-(SP)

B8R

MOV

4384

(SP)+
RO

#,-(SP)
SP.RO

MOV
MOV
MOV

4323

R1,8SAVE3

MoV
MOV

TRAP

104414

000427
016700
016066
010200
006300
016603
056003
010201
006301
006301
020361
001410

Qo &~

; If this is step four then print this u-code version number.

004167

103007

.
'Return a failure code

[}

000000

016746
012746
010600

init sequence had some trouble.

PRINTB (.EMSG_STRUCT [MSG111);
return FAILURE;

end;

000012
000016
000020
000022
000026
000030
000032
000034
000040
000044
000046
000050
000052
000056
000C64
000066
000070
000074
000100
000102
000104
000106

Page

i Load some satistical table up with some dat2 to indicate that the

4463

000006

SEQ 247

SPIDERSUSERS [NEALE. AZTECJCZRCHS B16; 3 23)

VAX-11 Bliss~16 V3=55

beg1n

4445

4461
4662

NO
4\0

MODULE DECLARATIONS

4437
4438
4439
4440
4441
4442
4443

4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458
4459
4460

11=-Jul=19
7=Jul=19

CZRCH RC25 DISK FORMATTER

O
QO

CZR CHS
REV A PATCH 00

&
o oo
W

435

D
MODULE DECLARATIONS

000114
000120

0000266
000001

016746
012746
010600
104414

022626
000437
020227
001017
016700

3s:
000003

X ¥

0000006
000002
177760

000234
000236

012700
000401
005000
022626
000207

: Routine Size:

000006
0000026
0000006
000002

MOV
MoV
MOV
TRAP

CMP
B8R
CMP
BNE
MOV
MoV
Mov

8IC

0000006
000002

016101
016700
010160
005202
020227
101676

11-Jul-1983 16:06:4
7=-Jul=1983 08:2¢4: 8

CIRCH RC25 DISK FORMATTER

CZRCHS
REV A PATCH 00

5%:

MOV
MOV
Mov
TRAP
ADD
Mov
Mov
MOV

INC
CMP
BLOS

000003

000001

MOV

68:
7%:

B8R
CLR
CMP
RTS

VAX=11 Bliss=16 Vv3-555

#1,-(SP)

SP,RO

14
(SP)+,(SP)+

63
R2,43
53
RC25.ADDR,RO

2(R0) . (SP)
(SP) ,~(SP)

#177760, (SP)

#FEMTS, = (SP)
#2,-(SP)

SP.RO
14

#6,SP
,R1
15D, STRUCT+2(R1)
RC25.ADDR,
RO
R1,2(RO)
R2
R2,43

1$
#1,R0
78
RO

(SP)+,(SP)¢

SEO 248
83

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 3 (23)

4442

EMSG.STRUCT+26,-(SP)

ACSCODE + 7050
Routine Base:
80 words,
; Maximum stack depth per invocation:
1 words
64664

: SP,t

; SEQ.NO,*

4435
4437
4450

; *,RCS$S.REG

: RC$S.REG,*

: SP,+
:

*,RCSM.REG

: RCSM.REG,*

: SEQ.NO

; SEQ.NO,*

4456

4405

4366

4323

E
MODULE DECLARATIONS

CZRCH RC25 DISK FORMATTER

6465

global routine INIT_COM_AREA =

'Inits DUP Protocol commumication area

6467
6468
4469
4470
47
4672

4¢
@IRi@l licmI@mo@mems oo

area is initialized as follows:

1. Defines from

the contigious data storage structure
"'COM_AREA’* the header area address,
receive ring
address and the send ring address (these structures
are initially declared as reference structures and

i@ I aia I
et et ot

PNONY = —d ccd b

LW LW W

—~ OV NV

(VAR ARV LV AV TV LV, [V, LV AV, ]

b =ch b =

651

S m? @ttt mrmt ot el

Bimilmitet

4487
4488
4489
4490
4691
4492
4493
6494
4495

It the port did its part of the protocol then the communic~

ations

require

an address

to be

BLISS language conventions).

i@ I eI

4485
4486

This routine first makes sure that this protocol is accomplished by the port before proceeding.

Clears
the
(ring base

Bl a I

4481
4482
4483
4484

After initialization step 3 the port controller clears out
the communication area's ring buffers.

defined

as its value per

interrupt
indicators and adaptor purge
=1, =2, =3, =4)
defined as
"HEAD_AREA''.

Loads the receive and send descriptors with the values:

imimieimi el

4473
4474
44675
4476
4477
4478
4479
4480

! Functional Description :

a.
b.
c.
d.

44666

mimiIimimimimimiam:

CZRCHS
I NN Y

SEQ 249
Page 84
VAX=11 Bliss=16 V3--555
LNEALE.AZTEC JCZRCHS5.B16;3 (24)
SPIDER:SUSERS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

REV A PATCH 00

Qe B g By Wy 0, 84908, 8,00 B: 80,0, e Bo U,V Ty 8, 8,83 8009 % 80 08,%00, 80 000,00, %08, %0 8009e0009s 0, 00 LR
TN FE YN YN
FIETR FI FE X X

Formal

Envelope low, high and Q_bus address
Reserved tfield
Flag bit
Ownership bit

‘.

Load the receive envelope message length field with the

Initialize the Out$standing command buffer to reflect

buffer s1ze in bytes.

that all slots are unused.

Parameters

none

Implicit ]Inputs :
HEAD_ AREA,

RECEIVE_RING, SEND_RING, COM_AREA

Implicit Qutputs :

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 the pcrt controller has
not
fullfilled
its
part of the DUP protocol.
FALSE:
Side Effects :
none

An error code to
indicate the port controller
has fullfilled its
part of
the DUP protocoul.

CZRCHS

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:06:44

REV A PATCH 00 MODULE DECLARATIONS
:
:

7=Jul=1983 08:24:58

4522
4523

begin

4525

! Make sure that the controller has done its part of

(524

‘e

:
:

4526
6527

' the DUP protocol by clearing out the ring buffers.
' If the rings are not cleared out then return with

4528

‘-

VAX=11 Bliss=16 V3=555

an error code of true.

4529
4530
22%}

incru 1 from 2 to RING_SIZE - 1 do

!Test all blocks for zeros

22%2

incr9 j from WRDO to WRD1 do

'Test all words for zeros

:
;
:

4535
4536
22%;

! Test this word for zeros.
If not zeros then exit
! this routine with an ‘‘comunication area init
; error code to indicate the Protocol violation.

:
:

4539
2%2?

if .COM_AREA [.i, .j, WORD_REF] nequ ZERO then return CIE_CODE;

(542

‘e

4545

! RECEIVE_RING and SEND_RING from the contigious

4543
4544

4546

;
:

4547
4548

2221

:
:

! The port did its part of the protocol SO now
! define
the address locations of the HEAD_AREA,

' storage declared by COM_AREA.
-

4549
4550

HEAD_AREA
= COM_AREA;
RECEIVE_RING = TOM_AREA [REC_BASEJ;

:
:

4553
4554

i
' Not quite sure if the port has to clear out

4557

:
:
:

:
:

:
:
:

:
:
:
:
;
;

4555
4556
4558

!Define the Header area
‘Define the receive ring area

SEND_RIRG = COM_AREA [SND_BASE]:
!
"

'Define the send ring area

the header area of the communications area
so
I'LL
clear it
out
here
just in case.

4559

incru i

4562

‘e

222;

f Reserved field with 2eros (per DUP spec).

4560
4561
4563
4564
4565

4568
2298

4571

4572
4573
4574
4575
22;9

from WRDO to WRD3 do
HEAD_AREA [.i, WORD_REF] = ZEROS;

! Load up the Send Ring descrtptors with an envelope address,
! define
the '?lag bit'’
= 1 (interrupt requested), define
! the ‘Ownership
bit' to = 0 (owned by host)
and load the

mcrg i

from O to SND_ALLOCATE - 1

egin

SEND_RING [.i, LO_ENSAD] = SND_ENVELOPE [.i, CMD_LREF].

SEND_RING [.i,
SEND_RING [.i,
SEND_RING [.i,
SEND_RING [.i,
SEgD RING [.i,

HI_ENSAD) = ZERD;
QB EXT) = ZERO;
DSRSVD] = Z2ERO;
FLAG BIT) = SET_FLG;
OWN_BIT)= HOST_OWNED;

SPIDERSUSERS:[NEALE.AZTECJICZRCHS. 816 3 (24)

:
:
:

:
:

SEO 250

!Low-order envelope adress tor all sys

'H\ h-order portion of an 18-bit U/Q bus adrs
'Q_bus extention
iReserved field
'Flag bit whose meaning varies depending on dsc state
'Indicates whether dsc is host or port owned

CZRCHS

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:06:44

REV A PATCH 00 MODULE DECLARAT]IONS
:

4579

‘e

4580

i Load

4582

22%2

i define the ‘flag bit" to = 1

:
:
:

4585
4586
4587

incru i from 0 to REC_ALLOCATE - 1 do
begin

:
:
:

4589
4590
4591

:
:

;

4581

4588

RECEIVE_RING [.i, FLAG BIT] = SET_FLG;

RECEIVE_RING [.i, OWN_BIT)
= PORT OUNED
end;

4599

NRD SLOT = =1;

:
:

4603
4604

‘e
! Set

4600
228;

2282

4607

4608

4611

22}2

:
:
:

22?8

]

!Start ring pointer at 2ero

NSD_SLOT = =1;
NXTZCRN
= ZERO

: to

!Start ring pointer at zero
!Start unique ¢md ref num at one

the response envelope message length size equal

the buffer

)

incru i

size in bytes starting at text + 0

from 0 to REC_ALLOCATE - 1 do

:
:

4617
22}3

incrg
i frem 0 to REC_ALLOCATE - 1 do

:
:
:
:

4620
4621
46622
4623

22%2

4627

;

!Convert to bytes before loading

Init the outstanding command buffer as follows:
1.
Indicate that all slots are unused by loading
the unique value 20°'100000°.

Clear the envelope adrs words to zero.

ov SSID BUF [.i, CMD_WRDj = 20°'100000°'; !Define the slot as unused
i
OUTSSTD_BUF [.i, ENV_ADR] = ZERO;
'Clear out the envelope adrs field
end;
'

)

; No errors detected by this routine so return with an non-error code of false.

return PAS_CODE;

4628

end;

000000

004167

0000006

000004
000010

012701
005002

C00004

)

REC_ENVELOPE [.i, MSG_LENGTH]
= RB_SIZE*2;

!
!
!

4624

. . °

! Reset the communications area pointer to their initial state.

4612
4613
4614

RECEIVE_RING [.i, HIZENSAD] = ZERDS:
RECEIVE_RING [.i, QBTEXT) = ZEROS:
RECEIVE_RING [.i, DSRSVD] = Z2ERJS:

:
;

and

DUP spec).

RECEIVE_RING C.i, LO_ENSAD) = REC_ENVELOPE [.i, CMD_LREF];

4593
223;

SP!DERSUSERS [NEALE .AZTECICZRCHS. 816 3 (24)

port),

(Interru ts requested)

: the reserved field set to zeros (per

‘596

VAX=11 Bliss=16 V3=555

Receive Ring descr1ptors with an envelope

! address, define the ‘flunershlp bit'' = 1 (owned by

4592
{594
4595

up the

7=-Jul=1983 08:24:58

SEO 251

LSBTTL
INIT.COM.AREA MODULE DECLARAT]IONS
INIT.COM.AREA::
JSR
R1,$SAVE3
:

1$:

MOV
(LR

#6 R
R2

s el
: J

4465

4531
4533

CZRCHS

REV A PATCH 00

VAX=11 Bliss=16 v3=55°

s 1.

4540

R2
R2.M

4533

#2 ,R1

4531

#COM.AREA HEAD.AREA
#COM_AREA+10,RECEIVE.RING

.
H
:
F |
: 1,0

4549
4550
4551
4559
4560

HELY|

4559

I |
s 1,0

4569
45N

2s:
R

000001
3s:

?1.'22

0000006 0000006
0000106 000000G
0000306 0000006

;80H.AREA030.SEND.RING

A ¥

000002
000006
S$:

R3,-(SP)

000054
0000006
0000046

#54 ,~(SP)
PC.,BLSMUL

#SND . ENVELOPE
+4 RO
RO,(R2)
R1,RO

SEND RING RO

0000006
000002
040000

046000.<n0)

(gp)o.(Sp)o

000003
6%:

000252
000254

000077
0000046

RO.R1
HEAD.AREA,R1
(R1)
#2,R0
RO,#6
3]
R3
R3.R1
R1
R1
R1,R2

SEND.RING,R2

0000006

000246

000002
000022

0000006

s JL®

COM.AREA(RO)
3s
#1,R0

0000006

SPIDERSUSERS:INEALE.AZTECICZRCHS. 816 3 (24)

CIRCH RT25 DISK FORMATTER
MODULE DOECLARATIONS

000001

SEO 252

R3.#3
5%
R2
R2.R1

R1
R1
R1,R3

RECE]VE.RING,R3
R2,.RO
RO

RO
RO
RO
#77 R0
#REC.ENVELOPE
+4 RO
RO, (R3)
R1.R0O

s Jo

s 1.t

]

4572

H
H
: i

4576
4570
4569

1.0

H {
H

4586
4588

I P

4589

I
CZRCHS

REV A PATCH 00

256
000262
0002

066700
062700

11-Jul-1983 16:06:4

CZRCH RC2S DISK FORMATTER

MODULE DECLARATIONS

7-Jul-1983 08:24: a

0000006
000002

ADD
ADD

140000

000344
000346
000354
000360
000364
000370
000372
374

005000
012760
005060
062700
020027
101766
005000
000207

100000

0000026

#140000, (RO)
R2

(MP

177777 0000006
177777 0000006
0000006

000100
000300

RECEIVE.RING,RO
#2.R0

MOV
INC

000003

000074

0000006

7%:

R2.#3

BLOS

ADD
CHP

#100,R0
RO,#300

MOV
MOV
CLR8
CLR
MOV

8s:

000004

4618

OUTSSTD . BUF +2(RO)
RO
PC

:
:

+ 7310

$SAVE4L, SSAVE3, $SSAVEZ, BLSMUL

PSECT SUMMARY

words

Attributes

2019

RO,

LCL.,

REL,

CON

LIBRARY STAT]STICS

meeesees Symbols =====e=Total
Loaded
Percent

398

278

: oD

P le

RO.#14
8%

.GLOBL

Be eV, 0.0, 0,0,

4608

#6 R0

CLR

eludom

SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16;5

4599
4600
4601
4608
4609

ADD

end

S
fFile

;
:
:
;1
: e, o)

4618
4620

0TS external reterences

ACS$CODE

4593
4586

: 1
: e o(])

CLR
RTS

Psect Name

;
I |

RO
#-100000,0UT$STD .BUF (RO)

127 words,
Routine Base:
ACSCODE
: Rougine Size:
; Maximum stack depth per invocation:
7 words
4629
4630
4631
4632

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 39%24)

s el
: 1.¢

sea 253

CLR
MOV

CMP
BLOS

000014

VAX=11 Bliss=16 V3=555

#-1,NRD.SLOT
#-1.NSD.SLOT
NXT.CRN
RO
#74 REC . ENVELOPE
(RO)

BLOS

0000006

Blocks
Read

4621

4522
4465

CZRCHS
REV A PATCH 00

CIRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

COMMAND QUALIF IERS

BLISS /PDP11/LIST CZR(CHS.B16

: Size:

: Run Time:

: Elapsed Time:

2019 code ¢+ 0 data words
01:27.2

01:52.¢4

: Hemoq{ Used:
267 pages
; Compilation Complete

11-Jul-198 3 16:06:44
7=Jul=1983 0

8:24:58

VAX=-11 Bliss=16 V3-555

SEO 254

SPIDERSUSERS: (NEALE.AZTECICZRCHS. 816 3 (24)

CZRCH RC2S DISK FORMATTER
] 9 %o B0 00 Ws Ve Be Ve,

MODULE CZRCH?

LIBRARY °*CZRCHO';

'Define RC25 Formatter library

REQUIRE

'Define Bliss macro require file

'BLSMAC.REQ’;

‘e

! The LASTAD macro must be the final statement (except .end)
in a pro! gram.
The call generates an even address reflecting the first word ot
! memory unused by the program.

a iaimimt
e iatiomlo?

alwtmlioal

et amiciaiaioalalialial
el etetmimoomsa

LASTAD

NS WN—O
WN - O VN
NV
2OV
WN
NN = O 000 NO N
WV

D
b
b
b
e
il

D oD e

b wed i

e e

D wid

d =

d e

b wd

A NN A TA L
A VT WA A A AR
VA TN AT T A VAV AW
BN BN 8N 8 85 2 NN N W NN NN W AWWN N NI NN NI NI NI NI N ) b —b b = o b —d —b —b =

T YN

PR PR
LR IR

LR TR LA A

§<blf/louercase_key>

YR TR

PR L

(XTITLE *CZRCH RC2S DISK FORMATTER'
IDENT = °*REV A PATCH 00°,
ADDRESSING MODE (RELATIVE),

g Pretty Declarations

P
A

7=Jul=:983 08:26:05

?SBTTL 'LAST ADDRESS AND SETUP SECTION'

11=Jul="983 16:08:39

SEQ 25?
Page
V3=555
VAX-11 Bliss=16
?.B816;2 (1)
ERS
TECICZRCH
SUS
: (NEALE.AZ
SPIDER

ENVIRONMENY (NOEIS)) =

BEGIN

M
R
R
RE N E T E
I E IE R E
I E
IR EEE

Hardcoded P-TABLES

These optional hardware P-TABLES are located

(when

present)

between

the °'LASTAD'' macro and the ''.END'’ statement.
These hardware P-TABLES
are above and beyond the default hardware 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"' utility
had built them there.
Thus the diagnostic can be '‘pre-parameterized’’
by the programmer.

It this hardcoded P_TABLE section is not wanted then define ‘‘number’’ in
the BGNSETUP macro to zero and omitt BGNTAB and ENDTAB macros.

Coding sample is as follows:
LASTAD

BGNSETUP (Number)
BGNPTAB
(DATA)
(DATA)
(DATA)

ENDPTAB
BGNPTAB
(DATA)

(DATA)
(DATA)
ENDPTAB

!Number of P-TABLES

CIRCH?7

C2ZRCH RC2S DISK FORMATTER

11=Jul=1983 16:08:39

REV A PATCH 00 LAST ADDRESS AND SETUP SECTION
1546

1547

:
:
:

1548
1549
}gg?

;

1552

H
:

1554
1555

1553

7=Jul=1983 08:26:05

000000

BGNSETUP (0);

' No optional P_Tables are defined
'

within this program.

!
ENDSETUP

C2RCH7 CZRCH RC2S DISK FORMATTER

/REV A /

PSECT

000004°

BLSLAS::.WORD

000004 °
000000

LSLAST==
TSP iHV==

000207

.SBTTL
$END.LINK::
RTS

000000C
000000

1556
1557

$XxvI$,
RO
TSFREE
<<TSFREE=<BLSLAS+4>>/2>
O

WORD
TSFREE::.WORD

BLSLAS+4
0
SEND.LINK LAST ADDRESS AND SETUP SECTION

END
ELUDOM

PSECT SUMMARY

;

Psect Name
$XYZ$

SPIDERSUSERS:[NEALE .AZTECICZRCH?. 816 2 (1)

.END

; Routine Size:
1 word,
Routine Base:
$XYZ$ ¢+ 0006
; Maximum stack depth per invocation:
0 words

H
:

SEO 256

ENDSETUP

LTITLE
JDENT

000000
000000
000002
000004

VAX=11 Bliss=16 v3=555

words

Attributes

RO,

LCL,

REL,

CON

LIBRARY STATISTICS
file

SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16.:5

-------- Symbols =e-c===Total

Loaded

Percent

398

Blocks

Read

1504

COMMAND QUALIFIERS

€% 0o 85 00 0,

BLISS /PDP11/LIST CZRCH7.B16
1 cgge
+ 3 data words

Size:

Run T ime:

Elaps ed Time:

00:08. S

Memor { Used:
99 pages
Compi ation Complete

IRCHA. EXE

Memory allocation map

Page 1

TKB M&0.02

16:09

11-JUL-83

Partition name : DUMMY
Identif ication : REV A
Task
: £300,12]
U IC
Task at tributes: =-HD
Total address ulndous
552 uords
Task
1image
size
Task ad

dress l1mtts:002000 076577

R-W disk blk Limits: 000002 000076 000075 00061.
r++

RoOO t

segment: CZRCHZ

Limits: 002000 076577 074600 31104.
Disk blk limits: 000002 000076 000075 00061.

R/W mem

Memory allocation synopsis:

Title

Section
. BLK. :(RW,],LCL,REL,CON)
AASCOD: (RO, 1,LCL,REL,CON)

AB$COD: (RO, !I,LCL,REL,CON)
AC$COD: (RO,1,LCL,REL,CON)

ADSCOD: (RO,I,LCL,REL,CON)

BL$COD: (RO,I,LCL,REL,CON)
$DMCOD: (RO,D,(BL,REL,CON)
,REL ,CON)
$GLOBS: (RO,D,GBL

SPLITS: (RO,D,GBL ,REL,CON)

$XYZ$% :(RO,1,LCL,REL,CON)

002000 000000 00000.
002000 001336 00734.
002000 000166 00118.
002166 001150 00616.
003336 002312 01226.
003336 002312 01226.
005650 007706 04038.
"
01

Ident

CZRCH2 REV A
CZRCH3 REV A

CZRCH2.08BJ;1

CZRCH4 REV A

CZRCH4.0BJ:1

CIRCHS REV A

CZRCH5.08J;1

.. CZRCH6 REV A

CZRCH6.08J;1

015560 000424 00276.
015560 000316 00206. B16MUL v3.0
. B16SAV v3.0

file

.
060774 002554 (1388.
060774 002554 01388.
063550 013016 05646.
063550 013016 05646.
076566 000010 00008.
076566 000010 00008.

CZRCH3.08J;1

NEISLB.OLB;4
NEISLB.OLB;4

CZRCH6 REV A

CZRCH6.08J;1

CZRCH2 REV A

CZRCH2.08J;1

CZRCHZ REV A

CZRCH2.08J;1

CZRCH? REV A

CZRCH?7.08J;1

O
Vo

oTM

O =b

©o
o
bertv

LAST ADDRESS AND SETUP SECTION

- ) and

11=Jul=7=Jul—e—

CIRCH?

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

VAX=11 Bliss=16 V3=555

SEQ 257

SPIDERSUSERS:[NEALE .AZTECICZRCH?. 816 2 (1)

TAMSCGBH
4IOR"E44 JE-N-4Es4-N4.——_-N-4 (-4
RN=YY=
RN
V[=N
OIlTEoIlVEeIlVe]le~lelelol(s-o)Y
OONOOO
O
ORNVONDIT[NNO O
sOeANOUN
el—e=l0eUlMe>0ODlda¢Dlwae+aDOmleAavalVead)—==
VOONONNO
V
W
OwazO0VaO e. e
ALO0VNO=N—AOOM
OOV0LVLLVLITIXNIIWX000000
I Lt
% LL
Vv42ONNWMON
O0—4-ONANMMA
Oe4-TTT 040OI-O000ONOO-- 04NIOO-4-T$00 Me3(=l3ele3leIlelBelelZe2l2e2)
ITIXIIIT
T ON NININ OO0

IJCDNdDAuUwOWDDEOIDDNOI_DIDLSVdDJI
4ONNwdO4F-=IO4-SM4FVNO-OE=4Xx-Oo4aV-o[TOxTM
TSOOaxaWNxOIxOxMOaNo~Max=aNxO= x
as&0}o°aB10oPa=Po22Pa85P0a&Po8&aPoLxsbA
Oe0Na44lV-e4O-laNe4~e-OnOlV4eaO-lNNel-wO4e-ie344 [=
oIn>gbDumWoUa-l oWoQoOo ¢

o mL) e 0 0 e

WIMOTOMNOY

-OBARARARNA (elelelolelelelals] OWOVNVFOWNUOWODNNVOJIM~O CLOXWOX “ALOx>XDOEw (leolelelele]lels)ON~O ON aunIavieoacx NOTIMM [VTvPUViygeYISOXIEE MONo= EoOoaxnz OCO0O0O0O0O0O N=~M
Q.X€o

D=oUM =ANANON

CZRCHA.EXE

CZRCH2

Memory allocatlon map TKB M40.02
16:09
11-JuL-83

1SD.ST 063530-R
IS.TIM 014452-R
LOAD.F 005650-R
LOAD.O 006074-R
LUN
063474-R
LSACP 002110-R
LSAPT 002036-R
003326-R
LSAU_
LSAUT 002070-R
LSAUTO 003250-R
LSCCP

002106-R

L$C EA 003302-R
L$CO
002032-R
L$DEPO 002011-R

LSDESC 002166-R
LSDESP 002076-R
LSDEVP 002060-R

LSDISP 002124-R
LSDLY 002116-R
LSDTP 002040-R
LSDTYP 002034-R
003314-R
LSDU_
LSOUT 002072-R
LSDVTY 002214-R
002052-R
LSEF
LSENVI 002044-R
LSERRT 002126-R
LSETP 002102-R
LSEXP1 002046-R
LSEXP4 002064-R
LSEXPS 002066-R
LSHARD 002252-R
LSHIME 002120-R
LSHPCP 002016-R

LSHPTP 002022-R
LSHRDL 002250-R
002140-R
LSHW
LSHWLE 002136-R
LSICP_ 002104-R
LSINIT 003236-R
LSLADP 002026-R
LSLAST 076572-R
LSLOAD 002100-R
LSLUN 002074-R
LSMREV 002050-R
LSNAME 002000-R
LSNDHR 002316-R
LSNDHW 002150-R
LSNDSF 002330-R
LSNDSW 002156-R
LSPRIO 002042-R

v+¢ Task builder statistics:

Total work file references: 15216.
reads: 0.
Work
file
Work
file writes: 0.
Size of core pool: 5486. words (21. pages)

Size of work tile: 2304. words (9. pages)

Elarsed time:00:00:1¢4

SEQ 258

Page 2

LSPROT 002160-R
LSPRT 002112-R
LSREPP 002062-R
LSREV 002010-R
LSRPT 002334-R
LSSFTL 002320-R
LSSOFT 002322-R
LSSPC 002056-R
LSSPCP 002020-R
LSSPTP 002024-R
LSSTA 002030-R
LS$SW
0021564-R
LSSWLE 002152-R
LSTEST 002114-R
LSTIML 002014-R
LSUNIT 002012-R
MSGADR 062734-<R

NEX.FL 063464-R
NO.ADD 075044-R
NRD.SL 063504=-R
NSD.SL 063502-R
NXT.CR 063470-R
ON.LIN 014064-R
QUTSST 063424-R
OVSA _ 063466-R
PFE.ST 066430-R
PID.FM 064314-R
PID.SA 063476-R
PORT.I 075564-R

PROTO. 075516-R
PTBL.P 063516-R
PWR.MS 075122-R

RC.STR 073764-R
RC25.A 063506-R

RECEIV 061046-R
REC.BU 062732-R
.DA 012760-R
REC.EN 061052-R
RET.EN 063444-R
RET.ST 063472-R
RINGBA 061004-R
RSVD.S 063520-R
SDUP.S 074316-R
SEND.D 012220-R
SEND.R 061050-R
SET.CN 013520-R
SFPTBL 002154-R
SMSCP. 074760~R
SND.BU 063312-R
SND.EN 061452-R
SW.Q1. 076266-R

SW.Q2. 076332-R
SW.Q3. 076422-R
SW.Q4. 076506-R
SW.UNA 002154-R
TO.MAN 075264-R
TSFREE 076572-R
T$SPTHV 000000
005634-R
T1
UNIT.N 063514=R
VEC.AD 063510-R
XCRLF 064422-R
SEND.L 076574~R
$SAVE2 016076-R
$SAVE3 016112-R
$SAVEL 016130-R
$SAVES 016150-R

CZRCHA

CREATED BY

TkB

ON 11-JUL-83 AT 16:09

FCT.BU
FCT.RE
FLG.WR

FMT1

FMT2
FMT3
FMT4

FMTS

FMT6

FMT7
CET.CM
GET.DU
GET.NR
GET.NS
GOOD.N
GP$1

GP$2
GP$3
GP$4
GP$S

HDSA
HEAD.A

002134-R
002132-R
002130-R
002126-R
011706-R
011270-R
061732-R
076016-R
063462-R
063550-R
063556-R
063646-R
063754-R
064040-R
064150-R
064246-R
006166-R
010772-R
006046-R
006020-R
075342-R
002252-R
002262-R
002272-R
002304-R
002322-R
016204-R
061044-R

CZRCHG

CZRCH2

B
PR

064416-R
010264-R
063446-R
075012-R
006254-R
002140-R
016244-R
015556-R
007340-R
002122-R
070430-R

800T.F
BOOT.R
BR.LEV
COM.AR
CRLF
CT0.WA
DATETX
DATMSG
DECODE
DFPTBL
DMSA
DUMMY
DUPSI.
DSPCNT
EMSG.S
ERRBLK
ERRMSG
ERRNBR
ERRTYP
EX.LOC
EX.SUP

# CZRCHS

B16MUL

BLSDIV
BLSLAS
BLSMOD
BLSMUL
BLSSHF

CZRCH4&

CZRCH?2

RPRRRR

010474-R
075204-R
075640-R
016204-R
016004-R
076566-R
016016-R
015560-R
016030-R
075434-R
014720-R
063512-R
060774-R

ABORT
ABQO.MS
ACTIVE
AZFMTR

REFERENCES...

VALUE

SYMBOL

CZRCH3

CZRCHS

# CZRCH6

CZRCH?

B16MUL

B16MUL
CZRCH2

CZRCHL
CZRCHZ
CZRCH?2
CZRCH2
CZRCHS
CZRCH2
CZRCH2
CZRCH3
CZRCH2
CZIRCHS
CZRCHO

CZRCHS
CZRCH4
# CZRCHS
CZRCH3
CZRCHS
CZRCH3

CZR(CHS

CZRCH3
CZRCH3
CZRCH4

CZRCH4
CZRCHG
# CZRCHS

# CZRCH6

CZRCH4L

# CZRCHS

CZRCHZ2

CZRCHS

CZRCH2

CZRCH2
CZRCH?2
CZRCH2
CZRCH2
CZRCH4
CZRCH4

CZRCHZ2
CZRCH?2

CZRCH2
CZRCH2
CZRCH2
CZRCH2
CZRCHZ
CZRCH2
CZRCH2
CIRCH2
CZRCHS
CZRCH4G
CZRCHS
CZRCHS
C2RCH2
C2RCH3
C2ZRCH3
CIRCH3
CZRCH3
CIRCH3
CZRCHS
CZRCH2

PAGE 1
CREF

GLOBAL CROSS REFERENCE

# CZRCHS
# CZRCHS
CZRCHG
CZRCH4
CZRCH3
CZRCHL
CZRCH3
CZRCH3
CZRCHS
CZRCH4
CZRCHé
CZRCH4
# CZRCHS

CZRCH3

# C2R(CH6
CZRCHS

CZRCHé

SEQ 259
VO1

CZRCHA

CREATED BY

ON 11-JUL-83 AT 16:09

TkB

LSHP(P
LSHPTP

L SHRDL
LSHW
LSHWLE
LSICP
LSINIT
LSLADP

002046-R
002064-R
002066-R
002252-R
002120-R
002016-R
002022-R
002250-R
002140-R
002136-R
002104-R
003236-R
002026-R

CZRCHS
CZRCHS

CZRCH3

CZR(CH3

CZRCH3

CZRCH3
CZRCH3
CZRCH3

CZRCHS
CZRCH3

CZRCH3

C2RCH3

CZRCH2

C2RCH2
CZRCH?
CZRCHZ
C2RCH2

CZRCH4

CZRCHS

J
X
X
X
2
X
L E X

CZRCH&

L
R

LSHIME

002044~-R
002126-R
002102-R

CZRCHS
CZRCH3
CZRCHS
CZRCH?2
CZRCH2
CZRCH2
CZRCH?2
CZRCH2
CZRCH2
CZRCH2
CZRCKS
CZRCH?
CZRCHZ2
C2RCH2
CZRCH?
CZRCH2
CZRCH2
CZRCH2
CZRCH2
CIRCHZ2
CZRCH2
CZRCH2
CZRCH2
CZRCH2
CZRCH2
CZRCH2
CZRCH?
CIRCH2
CZRCH?
CZRCKH2
CZRCH2
CZRCH2
CZRCH2
CZRCHZ2
C2RCH3

CZRCH3
CIZRCH3
CZRCH3
CZRCH3

LSEXPS
LSHARD

003326-R
002070-R
R
003250~
002106-R
003302-R
002032-R
002011=-R
002166-R
002076~R
002060-R
002124-R
002116-R
002040-R
002034-R
003314-R
002072-R
002214~R
002052-R

LSACP
LSAPT
LSAU
LSAUT
LSAUTO
L$CCP
LETLEA
L$CO
LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LSOLY
LSDTP
LSDTYP
LSOU
LSOUT
LSDVTY
LSEF
LSENVI
LSERRT
LSETP
LSEXP
LSEXP4L

006074-R
063474=R
002110-R
002036-R

LOAD.F
LOAD.O
LUN

063530-R
014452-R
005650-R

CZRCH?
CIRCH2
CZRCH?2
CZRCH?
CZRCH2
CZRCH2
CZRCH2
CZRCH?
CZRCH2
CZRCHS
CZRCH4
CZRCHZ2

INACTI
INIT.C
INTSI.
I1SD.ST
IS.TIM

002146-R
002142-R
075722-R
015160-R
014442-R

H Q4.
tw.UNI]
HW.VEC

HW.Q2.
HW.Q3.

002144-R
002140-R
076076-R
076134=-R
076172-R
076230-R

RPE

HW.BR.

HW.IF,
HW.Q1.

REFERENCES...

VALUE

SYMBOL

PAGE 2
CREF

GLOBAL CROSS REFERENCE

C(ZRCH3

CZR(CHé

CZRCHS

SEQ 260
V01

CZRCHA

CREATED BY

TkB

ON 11-JUL=-83 AT 16:09

CREF

GLOBAL CROSS REFERENCE
VALUE

LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSNDHR

076572-R
002100-R
002074-R
002050-R

T
LSSOF
LSSPC
LSSPCP
LSSPTP
LSSTA
LSSW
LSSWLE
LSTEST
LSTIML
LSUNIT

MSGADR
NEX.FL
NO.ADD
NRD.SL
NSD.SL
NXT.CR
ON.LIN

QUTSST
OVSA

PFE.ST
PID.FM
PID.SA
PORT.
|
PROTO.
PTBL.P
PWR .MS
RC.STR

RC25.A

RECEIV
REC.BU
REC.DA
REC.EN

RET.EN
RET.ST
RINGBA

002320-R
002322-R
002056-R
002020-R
002024-R
002030-R
002154-R

002152-R
002114-R
002014-R
002012-R
062734-R
063464-R
075044-R
063504-R
063502-R
063470-R
014064-R
063424-R
063466-R
006430-R
064314-R

063476-R
075564-R
075516-R
063516-R
075122-R
073764-R
063506-R
061046-R
062732-R
012760-R
061052-R
063444-R
063472-R
061004-R
063520-R

LSRPT
LSSFTL

002160-R
002112-R
002062-R
002010-R
002334-R

LSREV

002330-R
002156-R
002042-R

UPBRR

LSNDHW
LSNDSF
LSNDSW
LSPRIO
LSPROT
LSPRY
LSREPP

002000-R
002316-R
002150-R

REFERENCES...
R

SYMBOL

CZRCH2
CZRCH?
CZRCHZ
CZRCH2
CIRCH?
CZRCH3
CZRCH2
CZRCH3
CZRCH2
CZRCH2
CZRCH2
CZRCHZ
CZRCH2
CZRCH2
CZRCH2
CZRCH3
CZRCH2
CZRCHZ
CZRCH2
CIRCH2

# C2RCH7

# CZRCH3
# CZRCH3

CZRCH2
CZRCH2
CZRCH2
CZRCHZ

CZRCH2
cIRCH2
CZRCH2
CZRCH2
CZRCH2
CZRCH2

CZRCHZ
CZRCH?

CZRCHG
CZRCH2
CZRCH2
CZRCHZ
CZRCHZ
CZRCH2
CZRCH?
CZRCH2
CZRCH?
CZRCH2
CZRCH2
CZRCHZ
CZRCH2
CZRCH?
CZRCH&
C2RCHZ
CZRCH?
C2RCH2
C(ZRCH?
CZRCH?

CZRCH3

C7RCHS
CZRCH4
CZRCH3
CZRCHé
CZRCH4
CZRCH4
# CZRCHS

CZRCHS
CZRCH3
CZRCHS
CZRCHS
CZRCH4
CZRCHé
CZR(H4
CZRCH3
CZRCH3
CZRCHS
CZRCH3
CZRCHS
CZRCH4
& (ZR(HS
CZRCHS
CZR(H4
CZRCHé
C2RCHS

CZRCHS
CZRCHS
CZRCHS
CZRCHS

CZRCHS
CZRCHS
CZRCHG

CZRCHé

CZRCHS
CZRCHS
CZRCHS

SEQ 261

PAGE 3

C7RCHS

vO1

CZRCHA

CREATED BY

TkB

ON 11=JUL-83 AT 16:09

CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

SOUP.
S
SEND.D
SEND.R
SET.CN
SFPTBL
SMSCP.
SND.BU
SND.EN
Sw.01,

074316-R
012220-R
061050-R
013520-R
002154-R
074760-R

SW.Q2.
Sw.q3.
SW.Q64,

SW.UNA
TO.MAN
TSFREE
TSPTHV
m

UNIT.N
VEC.AD
XCRLF
SEND.L

$SAVE?
$SAVE3
$SAVEL

$SAVES

076422-R
076506-R
002154-R
075264-R
076572-R
000000
005634-R
063514=R
063510-R
064422-R
076574-R
016076-R
016112-R
016130-R

016150-R

REFERENCES...

# CIRCH?

CZRCHG

CZRCHS
& CZRCHS

CZRCHG

& CIRCHS

# CZRCHZ

#
#
#
#

#
#
#
#
#
#
#
#
#
#
#

CIRCH?
CZRCH2
CZRCH2
CZRCH2

CIRCH2
CIRCH2
CIRCH2
CIRCH2
CIRCH2
CIRCH2
CIRCH?

CZRCH2
CZRCH2

CIRCH2
CZRCH2
CIRCH2
CIRCH?
B16MUL

# B16SAV

# B16SAV
B16MUL

CZRCHS

CZRCH4
CZRCHS

C2RCH3
CZRCH3
CZRCH3
CZRCH3
CZRCH3
CZRCH3

# CZRCH?
# CZRCHé

CZRCHS

CZRCHé

CZRCH3
CZRCH3
CZRCH3

CZRCHG
CZRCH4

# B16SAV

CZRCHS
CZRCHS

CZRCH4

CZRCHS

# B16SAV

SEQ 262

PAGE 4

CZRCHS
CZRCHS

VO1