Digital PDFs

AH-T275A-MC

October 1983

265 pages

Original

122MB

view download

OCR Version

158MB

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

OCR Text

CZRCHAO

FICH

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

RC23

" Toarhao |

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

MODULE CZRCH1

alalalzslslzslzslsilnlzslzslalzlizslalalzialziaslslizlalalalislalalislalalalslslialslislalislslslislslislely)

LRTN
AL L L AL LT A T
L R L
TR TRLR L L
PR TR PRL
PRT
PRT
T
T
e
e
e
e
e
T
M
T
R T
T R R T TRR
A
R
R

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

CZRCH RC25 DISK FORMATTER

CZRCH1

XSBTTL
X

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:CNEALE .AZTECICZRCH1. 816.4 (1)

(XTITLE 'CZRCH RC25 DISK FORMATTER'
IDENT = "REV A PATCH 00') =

'USER DOCUMENTATION'

IDENTIFICATION
PRODUCT CODE:

AC=T274A-MC

:
PRODUCT NAME

CZRCHAO RC25 DISK FORMATTER

PRODUCT DATE:

13-JuL~-83

MAINTAINER

Disk Engineering

AUTHOR

D.W.Neale

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
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

THE USE
SUPPLIED

OR
BY

RELIABILITY OF
DIGITAL OR ITS

DIGITAL

DEC

PDP

DECUS

UNIBUS

DECTAPE

SEO 1

MASSBUS

-y~

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11=Jul=1983 16:
983 1

VONOWVMSMWNN=O

WWW

N=O

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

DEVICE INFORMATION TABLES

OO0

WL=O

DM FORMATTER TEST SUMMARIES

N=O

HOST TEST SUMMARIES
ATTENDED MODE
UN-ATTENDED MODE

APPENDIX
APPENDIX A GLOSSARY
APPENDIX B BAD BLOCK REPLACEMENT
APPENDIX C FCT
APPENDIX D RCT
APPENDIX E DATA PATTERNS
APPENDIX F PINP=PONG ALGORITHM
APPENDIX G CREATING CZRCHA DM
CODE
APPENDIX H CREATING CZRCHA HOST CODE

FLAGS

HARDWARE QUESTIONS
SOFTWARE 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

alalalalalalalalalalalalalyl

AR A

A A A A

R T R TR T R R

TR TR T T

s s

OPERATING INSTRUCTIONS
COMMANDS
SWITCHES

S e cdccCo
DD D=0

=0 NOWVHWN=OO

MAINTENANCE HISTORY
GENERAL INFORMATION
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

TABLE OF CONTENTS

zlalalalzlslialalzsilalzsizsizliziaslasliaslalstalslslaslaslalalalalalalalely]

e TR TR

PRPR

PR PR PEAPR PR TR

AT ATR LA LA DA TR LN T

ZRCH1
V A PATCH 00

REFORMAT MODE PROCEDURE
RESTORE MODE PROCEDURE

RECONSTRUCT MODE PROCEDURE

VAX=11 Bliss=16 V3=555

SEO 2

SPIDERSUSERS [CNEALE.AZTECICZRCH1. 816 lo (2)

CZRCH
REV A PATCH 00

VAX=11 Bliss=16 V3=555

USER DOCUMENTATION

0.0

MAINTENANCE HISTORY
Modified By: D.W.Neale

Original release

SEO 3

SPIDERSUSERS:(NEALE .AZTECICZRCH1. 816.4 (3)

CZRCH RC25 DISK FORMATTER

Date: 13-Jul-83

Version: 1.0

E
USER DOCUMENTATION

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

VAX=11 Bliss=16 V3=555

headers

and replacing of bad blocks.

compesed of
two
sections;
a
controller-resident DM code section.

This formatter will

host-resident

section,

and

The host section will serially format up to sixteen RC25 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
messages.

There are three general modes of DM formatter operation and they are:

0 REFORMAT - This mode is used to format a medium which has been
previously

formatted,

and

being

per sector.

It assumes that the FCT is still intact.

existing data or to cfiange the mode of

reformatted

to_

clear

the medium to 512 bytes

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

ooonONONONONOONWVn
v ininnan S S N

o ATTENDED MODE- This is where an operator must be present at the
console terminal to respond to DM formatter software parameter

D e

There are two general modes of HOST operation and they are:

questions.
In this HOST mode the operator can choose any of the
three DM formatting modes.

—d

d e

b o

d wnh

D ed

d o

0 UN-ATTENDED MODE~ This is where the HOST will automaticall answer
DM formatter software parameter questions to perform_a REFORMAT
mode to all units selected units via the hardware P_Tables.
1.2

Page

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

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

providing

W
~

_— —

13 :42:

8-Jul=-1983

1.0

d e

D o

e e

D o

D e

D o

Wh=O D00 NO N S NN) = O 0 00 NN NS NI

WW WWNINIMNINI
NI NN NININ = b e b wd b b d

o elelelelelelelalalelelelelelelelalelelelalalal— o

11-Jul-198g 16:0G : ;g

CZRCH RC25 DISK FORMATTER

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

alslslzlalalalalalalalalalalalalalalalslialalalalalalalalslalalalalalalsliaslalalslslslslslslialalalslalelelele
iy ;) ()

A A

T T A

I ET R I T R

ETETTETmTE

TmE T

mErE

T
R TR PR TR PRPR
PRTR
LA TR PR TR PR LA
DALA
TNT

PATCH 00

Performance Goals

Before initiating the format process, simple checks will be made to
assure the object drive exists, and that communications are possible
between host and downline 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.

CZRCH1

11=Jul=1983 16:04:50

USER DOCUMENTATION

C 0169
¢ 0170

VAX=11 Bliss=16 V3=555

8=Jul=-1983 13:42:19

SPIDERSUSERS
: [NEALE.AZTEC

o During bad block replacement, primary replacemert blocks (RBN)
will be wused first.
A second pass will then use secondary
RBN's for any additional bad blocks.
ALl bad blocks,
whether induced by the nanufacturigz process or
wear-caused, will be revectored to Re?lacenent Blocks (RBN).
This will
assure the full compliment of 25,451
blocks per surface for host
applications use.
Prgdgg% reliability is enhanced through use of four copies
an

FCT

LR
R IR N J

STBIXAR

The following are required to run the RC25 Formatter
on PDP=11 Systems:

1.4

O
Co

An RC25 subsystem
An XXDP+ load medium
A console terminal
Diagnostic Supervisor

DUP.VOS5

MSCP.DOC
AZTEC.DOC

5
6
7
8.
9.
10.
1.5

A PDP-11 series CPU
A minimum of 28K words of main memory

RELATED DOCUMENTS AND STANDARDS

2
=3

the

SYSTEM REQUIREMENTS

puerd — e d e
e D d

o (=lelelelelele]

0192

1.3

alalalalaslalaslalalalalalalalslisialslalislalalalslalalalslalalalslalsliaslalslialalslslslslslslslslalalele
e le lely]

AR A IR

R RS AR A

R T M E R R

T T R

ey e

TRTR TR PR

PRI ATE

AR PR LA

T E PR PR PRLA TR

PRTN T

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

Diagnostic/Utilities Protocal version 0.5

UQSSP.DOC

Unibus/Q-Bus Storage Systems port V1.5

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

Standard Disk Format Specification version 1.1
PDP-11 Diagnostic Supervisor Prcgramming quide
XXDP+/SUPR user manual
Language Guide
User's Guide

Mass Storage Control Protocal
RC25 Microcode Documentation

DIAGNOSTIC HIERARCY PREREQUISITES

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

ASSUMPTIONS

Prior to the first formatting of a media, an exhaustive surface analysis
is assumed to have taken place to detect bad spots caused by the
manufacturing process.
The results of this analysis is assumed to have

been written as two FCT images per FCT track on the RC25 media.
1.7 PRODUCT USERS AND USES

This program is intended for use on media which has undergone a surface
analysis
process,
resulting in the writing of Factory Control Tables
(FCT)

on the media.

The program will be used by Engineerin?.and Manufacturing

product

recovery.

development

tool,

and

Field

Groups

Service personnel

for media

SEQ 5

JCZRCH1.816:49?6)

CZRCH1

CZRCH RC25 DISK FORMATTER

REV A PATCH 00 USER DOCUMENTATION
E 8%%9

11=Jul=1983 16:04:50

8=Jul=1983 13:42:19

VAX=11 Bliss=16 V3=555

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

This program is a utility and is not intended for use as a diagnostic.
for future use, the DM formatter code portion of this program

used by operat1n9 systems

as a format utiity program.

SEO 6

will

CZRCH1

REV A PATCH 00

H
3

C 0231
C 0232

CZRCH RC25S DISK FORMATTER

11=Jul=198

USER DOCUMENTATION

1.8

8~uul=198

g:064:5

:42:1

E 8%%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%25

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

C 0243

The FCT preamble will indicate zero for both the size of

; 852‘7’

ALL sectors will have 512 byte data fields.

;

C 0248

3
:
3

C 0236
E 8%%;

E 8%22

C 0249

recorded
blocks.

The format

on the media will be destroyed.

all information previously

This includes all LBN, RBN and RCT

process will reset the forced error indicator (EDC field)

and set the forced error indicators of all

the 576 byte

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

This Host program will run on only PDP=11 family CPUs which support the

Diagnostic Supervisors.

SEO 7

SPIDERSUSERS: CNEALE .AZTECJCZRCH1. 816 4 (S)

RESTRICTIONS

:
3

VAX=11 Bliss=16 V3=555

11
CZRCH1
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

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

E 8%?;

1.9 Bad Block Definition

;
;
;
:

E 85%2
E 8%;2

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

E gggg
C 0259

Any ECC, read or compare data failure will result in four retrie
Failure of any retries will be considered a Hard error and

C 0262

E 8%32

will be done

E 8522

For Write operations:

;
:

E 8%2;
C 0269

A Write failure will result in four retries.
Failure of any retries will be considered a Hard error and

3
3
:

E 8%2?

€ 0270
C 0271
C 0272

the block in error will be replaced.

The block in guestion will be considered?ood and no revectoring
if all retries are successfu

the block in error will be replaced.

The block in ?uestion will be considered
?ood and no revectoring
will be done if all retries are successfu

VAX=11 Bliss=16 V3=555

SEO 8

SPIDERSUSERS: [NEALE.AZTECICZRCH1. 316.4 (6)

J
CZRC
REV A PATCH 00

8-Jul=1983 13:42:19

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

USER DOCUMENTATION

SPIDERSUSERS: [NEALE .AZTECICZRCH1.B16;6’?7)

VAX=-11 Bliss=16 V3=555

e B

The followin
list all source module comprising CZRCHA and a description
of thier contents.

(alalalalalalaslzslislislalslalalaslalalialalals]

1.10 SOURCE MODULE DEFINITION

CZRCHO.R16
CZRCH1.B16
CZRCH2.B16
CZRCH3.B16
CZRCH4.B16
CZRCH5.816
CZRCH6.B16
CZRCH7.B16
CZRCH8.EXE
CZRCH9.BP2
CZRCH10.MAC
CZRCH11.SAV
CZRCH12.2D
CZRCHA.COM
CZRCHA.DOC
CZRCHA. SEQ
CZRCHA.BIN

CZRCH13.LST

Host source bliss library
ram source document module
Glo L 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 exicutable code
DMCONV.BP2 Dmconv source module
AZFMTR.MAC DM formatter source macro module
AZFMTR.SAV DM formatter executable code

Pro}ect Functional specification run-off source module
Project indirect command file
Program document l1sting file
Host sequence Llisti n?
Program XXDP+ .bin file

formatter listing file

K
CZRCH1
REV A PATCH 00
PR PR PR LA DA LR T T LR T T

11=Jul-1983 1%:06 : 50
8=Jul=1983 13::42:1 9

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

2.0

1
VAX=11 Bliss=16 V3=555

SPIDERSUSERS
: [NEALE.AZTECICZRCH1.8 16;4 (8)

OPERATING INSTRUCTIONS

This

section contains a brief description of the runtime services.
for detailed information, refer to the XXDP+ user's manual (CHQUS).

2.1

COMMANDS

There are eleven legal commands for the diagnostic runtime services
(supervisor). This section Lists the commands and gives a very

COMMAND

EFFECT

START

Start the diagnostic from an initial state

RESTART

Start the diagnostic without initializing

CONTINUE

Continue at test that was interrupted (after “C)
Attempts to continue after a control ¢ will result
in the present units formattin? to be aborted and
the next logical units formatting to commence.

PROCEED

Continue from an error halt.
This host program
is coded to be a utility and not a diagnostic,

R TR TR PR

PR T A

The XXDP+ user's manual has more details.

PRTR TR

brief description of them.

therefor no error macros are used.

For this

IS
S A SrEae

=lelelelelelelelelalelelelelelelelelelelelel=)

wviviuiunaw

BN =O VRNV

WN=OV0~N

335

WWWWW

ol la el
lalalalalatala
el
Yo laly)
alalalalal

A A AA

R A R T AR R

T T

reason this DRS> command has no meaning.

332

EXIT

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

ADD

Activate a unit for testing (all units are
considered to be active at start time

DROP

Deactivate a unit

Print statistical information.

DISPLAY

Type a list of all device information

FLAGS

Type the state of all flags (see section 2.3)

ZFLAGS

Clear all flags (see section 2.3)

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

A command can be recognized by the first three characters.

So ycu may,

2.2

for example, type

‘'STA' instead

of ‘'START'.

SWITCHES

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'’.
SWITCH

EFFECT

SEQ 10

Page

L
CZR CH1
REV A PATCH 00

42 19
8-Jul=1983 13 :04:

11=Jul=1983 16:

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

/TESTS:LIST

LRD L 1

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEALE .AZTECICZRCH1. 816.4(8)

Execute onl{ those tests specified in
the Llist.
List is a stri ng
of test
numbers, for example = /TE rs: :5:7=10.
This Llist will cause tests 1,5,7.8,9 10 to

TR A TR LA TR DA

be run. ALl other tests uil[not be run.

/PASS :DDDDD

Execute DDDDD passes (DDDDD
= 1 to 64000)

The host code will perform only one pass.

/FLAGS:FLGS

Set specified flags.
in section 2.

/EOP:DDDDD

Bort end of pass nessa e after ever6
DDDD passes onl { (0DDDD = 1 to 64000)
The host code will perform only one pass.
At completion of pass onethe 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)

flags are described

PRTR

PRLR

TR PR PR TRLA LA

TRLA

At completion of pass onethe program will
be terminated regardless of this switch.

Example of switch usage:

START/TESTS:1=5/PASS:1000/E0P:100

The effect of this command will be:

2. ALL

wunits will

1. Tests 1 through 5 will be executed.

3. The

end of

tested 1000 times.

pass messages will be

printed after each 100 passes only.

A Switch can be recognized b the first three characters.
example, type *YTES:1-5"" instead
of '*/TESTS:1 S"

may, for

each command.

alalalalalalalslislislsls]

EIR

R AR A

I E R E TR R IR T

TR R

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

START

RESTART

CONTINUE

PROCEED

DROP

TESTS

PASS

FLAGS

EOP

UNITS

X
X
X
X

X
X
X

X
X

SEO 1"

n1
CZR CH1
REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 1?:04:50

USER DOCUMENTATION

8=-Jul=1983 13:42:19

C 0412
E 82}2

2.3

C 0415
C 0416
C 04617
C 0418
C 0419
C 0420
C 0421
E 82%%

Flags are used to set up certain operational parameters such as
looping
on error. ALl flags are cleared at startup and remain
cleared
until explicitly set using the flags switch. Flags
are also cleared after a start command unless set using the
flag switch. The ZFLAGS command nag also be us:zd 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.

Page 1
VAX=11 Bliss=16 V3=555
1.B16;4 (8)
ERS
TECICZRCH
SUS
: LNEALE.AZ
SPIDER

FLAGS

C 0424
C 0425
C 0426
E 825;

FLAG
———HOE

EFFECT

C 0429
C 0430
E 82%5

LOE

Loop on error

IER*

Inhibit all error reports

C 0433
C 0434
E 82%2

IBR*

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

C 0437
g 82;3

IXR*

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

E 822?

BOE

"BELL'* on error

E 8229

UAM

Unattended mode (no manual intervention)

C 0448
C 0449
E 82;?

ISR

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

E 822%

IDR

Inhibit program dropping of units

C 0454
C 0455
E 8229

ADR

Execute cutodrop code

Lot

Loop on test

C 0458

EVL

Execute evaluation (on diagnostics which

E 8223

C 0461

c St

C 0464
C 0465
C 0466
E 0467

Halt on error = control is returned to
runtime services command mode

have evaluation support)

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:

CZRCH1
CZRCH RC25 DISK FORMATTER
REV
A PATCH 00 USER
DOCUMENTATION

11=Jul=1983 16:04:50

VAX=11 Bliss=16 V3=555

Page 1
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16;4
(8)

8-Jul-1983 1g:62:19

:
:
:
:

C 0469
C 0470
¢ 04N
E 82;%

2.4

C 0474

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

C 0482

# UNITS (D) ?

;

C 0484

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

E 8288

RC25

C 0491

Answer with

g 8232

3
:
S
:
:
:

:
3
3

:
3

C 0475
C 0476
C 0477
C 0478
C 0479
E 8231

C 0485
C 0486
E 823;

/FLAGS:LOE: IER:BOE

HARDWARE QUESTIONS

for hardware information by typing ‘‘CHANGE HW (L) ?''. You must answer
‘y'* after a start command unless
the hardware information has been
‘preloaded’’ using the setup utility (see Chapter 6 of the XXDP+ user's
Manual). When you answer this guestion 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.

This

answer will determine how many times the following questions are
asked. A unit is a logical disk (single platter) on an RC25.
A maximum of sixteen units will be accepted by the init code.

ADDRESS (0) 172150 ?

the address

the

IP Register of one R(C25

C 0492
C 0493

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

E 8289

RC25 INTERRUPT VECTOR ADDRESS (0) 154 ?

C 0498

Answer with
controller.
specified.

¢ 0502

RC25

REQUEST

H
3

of 160000 to 177774).

BUS

the

interrupt

vector

address

the

RC2S

address in the range of 4 to 774 may be

LEVEL (D) § ?

E 8282

¢ 0504

Answer with the interrupt priority used by the RC25.

¢ 0507

UNIT NUMBER TO BRING ONLINE (D) 0 ?

C 0509

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

VIS WN=000NOA
VIS W =

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

C
C
C
4
C
C
C
C
C
C
C
C
C

ViV

g 0510
NONONINI
NN = = d d = d b

elelelelelelelelelelelelelele]

;

C 0499
E 828?

to 7 are accepted.

Levels

The removable platter is an even number and the fixed platter is

the sequentially following odd number.

2.5

SEQ 13

SOFTWARE QUESTIONS

The supervisor will ask the question "‘CHANGE SW (L) ?.
This guestion 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

3
:

C
C

gquWNNN
WN=OVO~N o~

C
C
C
C
C

=lelolelelelelelelelale] o

:
3
3
:
3

VIV
I
YA v
N

CZRCH1
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

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

Enter unit number to format:

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

3
3

C 0541
C 0542

C 0545

C 0547

E 8223

C 0550

C 0553

3
:

C 0551
C 0552

other

formatters.

Enter mode to be used (slow/normal/fast):
This 8uestion is for compatibility with other

formatters.

The RC25 formatter will skip this question.

Use existing bad block information (y/n):

If the answer is YES, a REFORMAT mode format

the

E 8223

answer

question 5.
S.

E 82??

question 6.

C 0556

NOTE:

C 0560

C 0562

3
3

€ 0561

obtain
LOAD.

the

mode

If the answer is YES, question 5 is skipped.

It is the

the

name

performed.

responsibility

answer

host

the

will

skip

program

the file to be used for the DOWN-LINE

Continue if bad block information is inaccessible (y/n):

if the formatter cannot read the FCT on the disk or if

a RESTORE mode format was attempted and the bad

C 0564
C 0565

done.

format is determined by

An answer of YES will cause a RECONSTRUCT mode format to

done

C 0563

NO,

An answer of NO will cause a RECONSTRUCT mode format to be
performed.
If an answer of YES is given, a RESTORE mode
format will

C 0557
E 8;28

DOWN-LINE LOAD bad block information (y/i):

3
3
3

are those

Enter the number of the unit to format.

The RC25 formatter will skip this question.

E 8;22
C 0546

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

The question numbers

0537
0538

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

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

C
C

SEQ 14

console terminal to answer the following DM formatter software questions:

3
s

block

data

file was unavailable. An answer of NO will cause the format
to abort if the bad block information is inaccessible.

E 8229

answer of NO will terminate the question sequence.

C 0568

FCT blocks will be requested via

:
3
2
3
:
:

C
C
C
C
C
E

block (relative to zero) requested by the formatter.
ALl
DUP sequence numbers for FCT block requests will be 1.
The
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.

2
3
3
:

C 0569

code.

0570
0571
0572
0573
0574
8;;2

C 0577
C 0578
C 0579
E 0580

The

the

special

DUP

nessage

first data word in this message will be the F(T

Enter serial number:
Enter the 64-bit decimal serial number of the disk to be
formatted.
In the RC25 formatter this number is used only
if @ RECONSTRUCT mode format is used.

c
CZRCH1

REV A PATCH 00

11=Jul=1983 16:04 ‘gg
:
8-Jul=1983 13:4

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE.AZTECJCZRCH1.816:49(9)

E 8;8%

2.6

:
3
:
3
:
:
3

C 0584
C 0585
C 0586
C 0587
C 0588
C 0589
E 823?

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

:
3
3

C 0592
C 0593
C 0594

To illustrate a more efficient method, sugpose you are testin
a fictional device, the XY11. Suppose this device consists o
a control module with eight units (sub-devices) attached to it.

:
:
3
3
3
H
3
3
3
:
:
3
3
3
3
:
3
H
3
H
:
'
’
3
3
:
3
:
3
s
3

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

:
S
3
3

3
3
3
.
3
:
2

€ 0595
C 0596
C 0597
E 8;38

C 0632
C 0633
C 0634
C 0635
C 0636
C 0637
C 0638

EXTENDED P-TABLE DIALOGUE

These units are described by the octal numbers 0 through 7. There
is one hardware
parameter that can vary among units called the
Q-FACTOR.
This Q-FACTOR may be O or 1. Below is a simple way
to build a table for one xy11 with eight units.
# UNITS (D) ?

B8<CR>

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

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

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

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

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

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

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

160000<CR>
3<CR>
<CR>

UNIT §
CSR ADDRESS (0) ?
SUB=DEVICE # (0) ?
?
Q=FACTOR (0D 0

160000<CR>
4&<CR>
<CR>

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

160000<CR>
S<CR>
<CR>

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

160000<CR>
6<CR>
1<(CR>

UNIT 8
CSR ADDRESS (0)

160000<CR>

SEQ 15
Page

CZRCH1
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

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

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

7<CR>
<(CR>

SUB=DEVICE # (0) ?
2?2
Q=FACTOR (0) 1

3
:

C 0639
E 822?

:
H
3

C 0642
C 0643
E 8222

Notice that the default value for the Q-FACTOR changes when a
non-default response is given. Be careful when specifying
multiple units!

:
3

C 0646
C 0647

As you can see from the above example, the hardware parameters
do not vary si?nificantly from unit to unit. The procedure shown

3
3

C 0650
E 8225

The runtime services can take multiple unit specifications however.
Let's build the same table using the multiple specification feature.

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

C 0653
C 0654
C 0655
C 0656
C 0657
C 0658
C 0659
C 0660
C 0661
C 0662
C 0663
C 0664
C 0665
C 0566
C 0667
E 8223

€ 0670

3
3
3
3
:

C
C
C
C
C

0672
0673
0674
0675
0676

one pass through the questions.
In the first pass, two entries
are built .ince two sub-devices and Q=-FACTORS were specified.
The
services assume that the CSR address is 160000 for both since it
was specified only
once.
In the second pass, four entries were
built.
This is
because four sub-devices were specified. The

C
C
C
C
¢
C

0678
0679
0680
0681
0682
0683

from the first number to the second.
In this case, sub-devices
2. 3,4 and 5 were specified.
(If the sub-device were specified
by addresses, the increment would be by 2 since addresses must
be on an even boundary.)
The (SR addresses and Q-FACTORS for
the four entries are assumed to be 160000 and 0 respectively
since they were only specified once.
The Llast two units are

C 0686
C 0687

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

3
:
:
2
3
:

3
2
:

3
:
3
:
3
H
:

E 8223

C 0671

C 0677

E 8232

C 0688
C 0689
C 0690
C 0691
C 0692
C 0693
E 823?

is not very efficient.

# UNITS (D) ?

B8<(R>

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

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

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

160000<CR>
2=5<(R>
0O<CR>

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

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

you can

see in_the above dialogue,

build as many entries as it can with

='*

construct tells

the

the runtime services will

the information given in any

runtime services

to increment the data

specified in the third pass.

# UNITS (D) ?

B8<CR>

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

160000<CR>
0-=7<CR>

0,1,0,,..1,1<(R>

SEQ 16

Page

CZRCH1
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

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

3
S

C 0696
E 823;

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

;

E 8‘7’33
C 0701

2.7 QUICK START=UP PROCEDURE
To start-up this program:

3
3
3

C 0703
C 0704
E 8;82

1. Boot XXDP+

2. Give the date

¢ 0707

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

3
3
:
3

C 0709
Cc 0710
c o7
E 8;}%

E 8;}2

6. Answer all the hardware gquestions

E 8;]'9

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

C 0718

When

E 8;5?

are described in sections 2.3 and 2.5.

¢ 0702

C 0708

C 0719

(XXDP+)

file for this program

4. Type '‘START"

S. Answer the ‘‘CHANGE HW'' question with '‘v"’

you follow

this procedure you will be using only the

defaults for flags and software parameters.

These defaults

SEQ 17

VAX=11 Bliss=16 V3=555
Page 17
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B816;4 (9)

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;5%

C 0724

;

C 0727

E 8;%?

program is to be considered dead and the connection to the controller broken.

;

C 0732

However if the PID value has increased since the Last GET_DUST_STATUS then

C 0736

E 8;%3

E 8;2?

C 0742

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

;

C 0745

Each time the DM formatter calls in a new overla; from host

C 0747

incremented.

:
:

3
3
:

3
:
3

E 8;%2
C 0728
C 0729

C 0733
E 8;%2
C 0737

E 8;22
C 0746
E 8;28

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.
the PID has not increased since the last GET_DUST_STATUS then the remote

the remote program is to be considered still running.
are saved and command time out waits reinitiated.

The new PID words

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)
the following is performed:

memory the low PID word is cleared and the high

PID word is

The operator can then be observed when new

overlays are called into DM memory.

;

¢ 8;2?

2.9 HOST/DM FORMATTER RUN TIME MESSAGES

C 0752

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

E 0753
0754

SEQ 18

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

S
s

2.8

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

PATCH 00 USER DOCUMENTATION
3.0

ERROR INFORMATION

3.1

TYPES OF ERROR MESSAGES

11=Jul=1983 16:04:50

8-Jul=-1983 1%:42:19

VAX=11 Bliss=16 V3=555

3.2

SPECIFIC ERROR MESSAGES

DM Code Error Messages

ALl errors returned are fatal. Error messages returned by the RC25
formatter are as
follows.
The error numbers given are the DUP error

NI NIN

b e

b e o

e e

S NWNN=O VNS UWN=O VRNV

message numbers.

"“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)'
"FCT does not have enough good copies of each block'’
‘SEEK error
"RCT does not have enough 8ood copies of each block'’
LBN format error (drive FORMAT command failed)''
‘fCT write error'’

SEQ 19

SPIDERSUSERS
: [NEALE.AZTECICZRCH1.B16;4 (11)19

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.

REV A

CZRCH RC25 DISK FORMATTER

alalalalzlzizizialaslslalalislalalalalslalalalslalslalalslslslislislslslslelelelelele
e

CZRCHY

‘RCT read error'’
"RCT write error'’
‘RCT fullTM
"¥CT read error'’
"FCT nonexistent'’
¥CT downline-load error'’
Prive init timeout
“Illegal response to start-up question'
:
"WARNING - possible head addressing problems = run diagnostics®’
**INPUT Error'’
‘Media degraded'’

Page

H
CZRCH1
REV A PATCH 00

CZRCH RC2S DISK FORMATTER
USER DOCUMENTATION

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

3
3
3
3

C 0798
C 0799
C 0800
E 8%8}

Host Error Messages

3
:
:
3
:
3
:
°
:
:
3
H
:
:
s
3
:
:
:
E
s
:
3

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

$FTLERR= UNRECOGNIZABLE ERROR CODE
SFTLERR= ENVELOPE/PACKET READ (PARITY OR TIMEOUT)
SFTLERR= ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT
S$FTLERR= CONTROLLER ROM AND RAH PARITY
SFTLERR= CONTROLLER RAM PARI
SFTLERR= CONTROLLER ROM PARIT
SFTLERR= RING READ (PARITY OR TIHEOUT)
SFTLERR= RING WRITE (PARITY OR TIMEOUT)
SFTLERR= INTERRUPT MASTER
SFTLERR= HOST ACCESS TIMEOUT
SFTLERR= 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
$FTLERR= MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT)

!
2 Generic self-detected fatal port/controller errors

VAX=11 Bliss=16 v3=555

SEO 20

SPIDERSUSERS:[NEALE .AZTECICZRCH1. 816.6(12)

C 0826

E 8%%;

C 0829
C 0830
C 0831
C 0832
C 0833
C 0834
C 0835
C 0836
C 0837
C 0838
C 0839
alzlzalalzlzalzlalalalalalaslalalalslislaslalalalalalalalsly’

e We B0 8e B 0g 0y 0000 000000000000 0000090009090 000:000%%0900000%90%09%09%0%00%09%0009% 900800,

CZRCHT
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11=Jul=1983 3.06:50
8=Jul=1983 13:42:19

; RC25 Self-detected fatal port/controller errors

S$SFTLERR= VAX READ/WRITE ERROR ON INTERRUPT
SFTLERR= INCONSISTENCY AT U.BFIL
SFTLERR= INCONSISTENCY AT U.BMTY
SFTLERR= INCONSISTENCY AT U.ALOC
SFTLERR= INCONSISTENCY AT SERVO ENTRY (PIP SET)
SFTLERR= INCONSISTENCY AT SERVO ENTRY (ERR SET)
SFTLERR= INCONSISTENCY AT U.SEND
SFTLERR= INCONSISTENCY AT U.RECV
SFTLERR= INCONSISTENCY AT U.ATTN
SFTLERR= INCONSISTENCY AT U.ONLN
S$SFTLERR=- ILLEGAL D REQUEST (U.QDRQ)

SFTLERR= FENCE=POST ERROR AT PROTAB
SFTLERR- BAD PACKET DEQUEUED AT U.DONE
$FTLERR= UNEXPLAINED D=PROC SUSPENSION (U JDS)
SFTLERR= DUP PACKET D=Q FAILED (XFC 34/35)
SFTLERR= INCONSISTENCY AT U.HTST
S$FTLERR=- INCONSISTENCY AT U.SEKO
SFTLERR= INCONSISTENCY AT U.(CKSV
$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
S$FTLERR=- D PICKED UP A ZERO SCB.DB
SFTLERR= INCONSISTENCY AT D IDLE LOOP
SFTLERR= DM WORD COUNT ERROR ON HOST DMA/SEND/RECV
$FTLERR= UNKNOWN DISPLAY FAULT CODE AT D.DFLT
$FTLERR= DRIVE NOT FAULTING IN P.OFLN STATE
$FTLERR=- U POWER UP DIAGNOSTICS FAILED
S$FTLERR- D POWER UP DIAGNOSTICS FAILED
$FTLERR=- ADAPTER CARD FAILURE
$FTLERR- EC.TMR TIMED OUT
$FTLERR- U.SEND/U.RECV RING READ INCONSISTENCY
$FTLERR= UNKNOWN WAITRV REASON AT D.RVCT
S$FTLERR= D.ARCS DID NOT FIND CLOSEST UNDONE ZONE
$FTLERR= U.SEEK FOUND SEEK TO ILLEGAL TRACK
$FTLERR= U.HTST INIT DIAG DMA WRITE FAILED
S$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:[NEALE .AZTECICZRCH1. 816 4 (13)

CZRCH1
REV A PATCH 00
alalalzlaslsliaslalaslalalalaslalaslaslslalslialalslialalialelele]

C 0868
0893

CZRCH RC2S DISK FORMATTER
USER DOCUMENTATION

11=Jul=1983 1?:04:50
8=Jul=1983 13:42:19

'
5 Host runtime fatal error messages

S$SFTLERR= NON-EXISTENT RC25 REGISTER ADRS xxxxxx

SFTLERR= DUP SERVER ACTIVE AFTER INITIALIZATION
SFTLERR= DUP SERVER INACTIVE AFTER EX_SUP_PROG COMMAND

S$FTLERR= P"SPONCE STATUS ERROR: actual status error message
S$FTLERR= 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
$FTLERR= MESSAGE LENGTH ERROR
$FTLERR= UNKNOWN ENDCODE RECEIVED
SFTLERR=- ADAPTOR PURGE ERROR
$FTLERR= UNKNOWN INTERRUPT
SFTLERR= INIT SEQ STEP TIMED OUT
SFTLERR= INIT SEQ COMPARE ERROR
SFTLERR= UNEXPECTED ATTENTION END MESSAGE RECEIVED
SFTLERR= UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED
SFTLERR= UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED
SFTLERR= INVALID COMMAND END MESSAGE RECEIVED
SFTLERR= UNKNOWN MESSAGE TYPE RECEIVED
SFTLERR=- OUTSTANDING COMMAND BUFFER FULL
SFTLERR= OUTSTANDING COMMAND BUFFER OUT OF SYNC ERROR
$FTLERR= UNKNOWN MESSAGE NUMBER RECEIVED
S$FTLERR= FILE READ ERROR
$FTLERR= PORT/CONTROLLER TIMEOUT ERROR
SFTLERR- ILLEGAL FCT FILE LENGTH

SEO 22
2

SPIDERSUSERS: INEALE AZTECICZRCHI. 816.4'?14)
VAX=11 Bliss=16 V3=555

K
CZRCH1

REV A

PATCH 00

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

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

C 0897
E 8333

'
5 Init code fatal error messages

C 0900
C 0901
C 0902
C 0903
C 0904
C 0905
C 0906
E 838;

$FTLERR= 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
$FTLERR= PROTOCOL VIOLATION ERROR
SFTLERR- COMMUNICATION AREA INIT ERROR

C 0909
Cc 0910
¢ 0911
C 0912
C 0913

! Dup return status codes
!
SUCCESSFUL
INVALID COMMAND
NO REGION AVAILABLE

C 0916
C 0917
C 0918
c 0919
C 0920
C 0921
C 0922
C 0923
C 0924
C 0925
C 0926
C 0927
C 0928
C 0929
C 0930
C 0931
C 0932
E 88%2

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

C 0914
C 0915

NO REGION SUITABLE
PROGRAM NOT KNOWN

VAX=11 Bliss=16 V3=555

SEO 23

SPIDERSUSERS: [NEALE .AZTECICZRCHI. 816.6 (15)

CZRCH1

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

USER DOCUMENTATION

VAX=11 Bliss=16 V3=555

8=Jul=1983 13:42:19

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

PERFORMANCE AND PROGRESS REPORTS

E 83%2

4.0

3
3

C 0937
C 0938

The formatter issues the following messages upon normal completion. ALl
but the Llast are sent as DUP informational messages. The last is sent

3
3
s

C 0941
C 0942
C 0943

:
3
3
3

C 0946
C 0947
C 0948
E 8323

:
:

E 8328

C 0944
C 0945

C 0951

E 88;2

C 0952

DUP

termination

message.

‘''format completed"
,
o
''n revectored LBNs

Where n is the number of LBNs revectored in
area.

the

user

data

''n primary revectored LBNs''
Where n is the number of LBNs
primary revectors.

which

were

Where n is the number of the LBNs in message #2

which

were

message

''n secondary/tertiary revectored LBNs'’

secondary or tertiary revectors.

:
:
:

C 0955
C 0956
E 092;

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

3
s
:

C 0959
C 0960
C 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

3
:
3

C 0964
C 0965
E 8329

;

C 0968

:
:
3

C 0970
C 0971
E 83;%

2
3
3

C 0974
€ 0975
E 88;9

;
:
S

C 0978
c 0979
€ 0980

10. *'n bad blocks in the XBN area due tc header
errors
Where n is the number of blocks in the XBN area

C 0983

:
:

E 832%

C 0969

C 0981
C 0982

their sectors.

area

due

header

timing

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

C 0985
E 8839

s
:

C 0988
€ 0989

12.

were

timing

which

were

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

were

bad due
sectors.

3
3

¢ 0990

DBN

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

11.

‘''n bad blocks in the

were

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

C 0984

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

''n bad RBNS

errors

the header or timing area of their

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

error

SEQ 24

Page 24

the

wno

38
3338553

CZRCH RC2S DISK FORMATTER
USER DOCUMENTATION

11=Jul=1983 12:04:50
8=Jul=198 3 13:42:19

13.

“FCT used successfully' or

14.

°"FCT was not used'’

Dependin?_on the answers to the start-up questions and _the
1
availability
of the bad block information (FCT). This
message has the DUP termination message code.

5.0

DEVICE INFORMATION TABLES
i

5 Hardware parameter coding questions
HW_0Q1_IP
= I[P REGISTER ADDRESS
HW_Q2_VECTOR = INTERRUPT VECTOR ADDRESS
o~

alalaslalaslislizsizslialialalalalalalala]

MR
LTM

CZRCHY
REV A PATCH 00

SEQ 25
Page
25
VAX=11 Bliss=16 V3=555
(16)
4
1.B16;
.AZTEC JCZRCH
USERS
: [NEALE
SPIDERS

HW_Q3_BR
HW_Q4_UNIT

= BUS REQUEST LEVEL
= UNIT NUMBER TO FORMAT

TEST SUMMARIES

6.1

Reformat Mode Procedure

Reformat mode is accomplished in four sections:
LR
2 O

N
A O DIIID
2 2 S22 S aaaa 8
W
=O VNS
WN=O VNS WN-=OY

- b ) ) D D ) b D - d d e b d - d e ) b D d
elelelelelelelelelelelelale]

6.0

Table Setup
Scanning

Replacement

Check Pass

6.1.1

Table Setup

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

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.
If none of the four FCT copies is good, the
either:
1.

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

Will do a Reconstruct mode if software

R
R

wViHW N=OVONOVHWN=OVO
NN WN=OVN VIS

oO\OrONONONONWYUINUTIUTWT
N TN

software

Formatter
question

was answered with a 'YES'.

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

will

was

question

bad

block

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

Outer DBN tracks will be formatted here.

A partial RCT will be built from the FCT:
The RCT
Information
Block
will be assembled.
FCT Bad Block
Descriptors coded
for
primary
revectoring
will
Dbe
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)
1if 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
an 'R2'" Table. _ Replacement RBN's for these LBN's will be
resolved after primary revectoring is completed.

SEQ 26

Page 2
1.B16;4 (17)
SERS
CNEALE .AZTECICZRCH
SPID:ERSU

VAX=11 Bliss=16 V3=555

11=Jul-1983 16:'04:?8
8-Jul-1983 13:42

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

b )
) D e e - o) e
) ) D o
b ) e
i e e e e cd - e e e cd ) wd wd e
o
—

e lslnlzlnlzsinlnisialsizizlslalzsizalslzslzsislzalzslzlalzslalalalalislalslalzslizslalalalslslialalalalislalalalislslalelelels
Iy

A I R

I I T T R R RS TE T T

T T

PR TR T

PR TR

TR LRTR LR L L

LRI AL LA LR LRI LA LA L 1)

CZRCH1
REV A PATCH 00

primary

11=Jul-198

USER DOCUMENTATION

6.1.2

8=Jul=1983

VAX=11 Bliss=16 V3=555

13: 42:1

Scanning

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:
REFORMT mode:

RESTORE mode:

3333 32 3IIITRIJISRE

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.

D D d d

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

RECONSTRUCT mode:

is then rebuilt indicating zero FCT entries.
The Reformat mode overlay
is then called in to DM space and will read/write scan the LBN area with
all data patterns.

VIS W=

R
e B
R

WNN=OVN
N=O VNV

d
D
D

e e
e

d d
D d e
D
b
b
b d

B
B

b d

D d

b =D

o
0

W)=

D d d e

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

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

for

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

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

header

codes

determined b{ the
following table:

connote

FCT

Bad

block

Block

status.

They

Descriptors

i FCT Descriptor Code

Not listed

Header Code

00 - Good LBN

:
:

03 - Secondary revector :
1 = Secondary revector=:

12 or 14

Any for RBN

:
:

02 or 04
01
:

will

LT ]

05 = Primary revector

header problem
11 = Unusable RBN

:
3

NOTE

as in the

SEQ 27

2 27
SPIDERSUSERS
: [NEALE .AZTECJCZRCH1.B16;4 (17)

12:0‘:5

NOTE:

alalalalalalalalalalzalalalalalaslalalzlzslalalzslalalalslsialalalalalalalalalalslalialalalalalalalslalslalslislelele
ly )

PATCH 00

CZRCH RC25 DISK FORMATTER

Pa ge

SEQ 28

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

If the RBN is not Listed in the FCT,

per

a single

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

block

track may be designated for primary revectoring

with an FCT descriptor code of 12 or 14.

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

=O VNS
W

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

ALL blocks in the track will be read without revectoring
enabled, and compared to Pattern W. A write-read-compare
seguence will then be performed on each block in the track

Error=-free blocks will be written with LBN-unique Pattern 1.
If the track has a grinary revector block‘ ts 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.

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

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

[2]

=O VRNV WN=OVONOWVSWN=0O0VON

using Pattern M, which is the compliment of Pattern W.

3 NOV’!&WN—'OOON&

and

Any error, including correctable errors, will
result
in 4
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 RCT entry in its RBN descriptor,
reheadering
it
with a code of 05, and resetting the RBN
forced error flag.
Other new bad blocks will be reheadered with secondary
revector codes of 03 or 11, depending on the presence of
header errors.

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

D b e
e b d d b
D e e e
D D d e
b D ed
D e
b b e D D e e d D e
D e
D e e d D e D
D D e
D e D D
D

b
D
D e —d D b b D D b e
d cd D e d d b e D
e D e D D e
—d md b
D d b D D
b d d e b D D e d D o
D d d o d d D
—
—

alalalalalalalalalalalalalalalzlalalalalalalalalalalalalalaslalalalalalslalalalslalalalialslslslialalalalalalele
Iy Ty

A I A

T I EIET

I MmN

T IETmETTmMmMTrTmMTETETrTMrTTMTrT MM

aoarrrrrrra

TRAIETE PR TR PRALE PR PR PR LA TR DR TN 3

CZRCHT
REV A PATCH 00

not be repeated, however.

Addresses of blocks

secondary

revectored

will

accrued in an
‘'R2 Table' within the program, until 127
entries are made.
At this time, 8 copies of the table will be

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

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

bad

When all tracks have undergone the scanning section, The 'R2
Tables'

will

read

from

the

media.

The

secondary

block

0D
CZRCH1

CZRCH RC25 DISK FORMATTER

D
b
D

b d e d b d e

D
D
D
D
D D
D

b b e

D e

b b b e

D ed

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

S
O\\hl\deOOQNO\hbWN-‘OO@NO\h&WN—DO%NN
VIS WA = T

final

check

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

Block Type

Data

Good

Pattern 3

Primary revectored

Pattern 3 of replaced block

Secondary revectored

Pattern 3 of replaced block

Used RBN

Pattern 3 of replaced block

Starting with the tog surface LBN rrack nearest the 0GB all
Host Application
locks will be read to test for
revectorin? capabilities.
Failure of any read or write will
result in 10 retries.
Failure of all retries will result in
a fatal error message sent to the host and the format aborted.
6.2

Restore Mode Procedure

Restore mode will only
requires

external

be run by DIGITAL
copy

the

Manufacturing

follows:

The FCT tracks will be formatted using

This procedure

the Format

Track

indicating

good

Each block will
be
read
and
its
data
verified.
write-read-compare seauences will then be performed on each
block, using patterns
M, 1, 2, 3 and 4.
Any errors will result in 10 retries.
retry will be considered a bad block.

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

The header code of each block will be 12,
FCT blocks.
The data will be pattern W.

personnel.

FCT produced when the platter was

mangftftured and is stored on the System Boot Media.

Any block

failing

The tracks will be reformatted, if necessary, to change
header codes
to 11,

block

SEQ 29
Page 29

SPIDERSUSERS
: [NEALE .AZTEC JCZRCH1.B16;4 (17)

Tracks whose RBN is assigned to be wused for secondary
revectorin?
will be written to reset
the forced error
indicator in the RBN.

b e

VAX=11 Bliss=16 V3=555

8-Jul=1983 13:42:19

Descriptors through the Ping=-pong algorithm.

b e

D
D
D
D
D
D
D
D
D
D
D
b
D cd
D b
)
D
b —ed
D
D
b
b
D
D
b
b
d —d b
D
b —d e
—

11=Jul=1983 16:04:50

USER DOCUMENTATION

revectors will be resolved in the RCT, finding RBN Bad Block

MONLNLNLNLNLNLNLNLNL AL NN NN NN NN NI NN
NN NV NI NI NI NI NININININININY =
WA NN NN AN N NN NI N NO NI NN b b b b b od d e ed b

alzlalalalalalalalalslalalalslalslalalslslalalalalislalalalslislalalalslislialslislislalslslislislalslslislislslelalelele
Ty

A A

R T R

R O

TR TR

L PR
L TR
L

PRTR
L AT E PRLA
L AL A LA PRTR
TRL
DT 1

REV A PATCH 00

bad

CZRCHY

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:04:50

REV A PATCH 00 USER DOCUMENTATION

VAX=11 Bliss=16 V3=555

8=Jul=1983 12:42:19

C 1237
C 1238

The operator will be queried for the original FCT file name.

;

C 1262

Two copies of the FCT will be written

C 1245

This mode will be aborted if any FCT sector fails in all &

C 1247

S
3

C 1239
g }gz?

E }gzz
C 1246

The
FCT file will then be inputted from the boot device and
sent to the DU when requested.

copies.

The RECONSTRUCT mode will then be called in if the

formatter will be aborted.

C 1250

3
$
3

C 1252
C 1253
E }%gg

6.3

: }ggg

This mode will be performed if:

C 1258

€ 1261

E }%28

The program will automatically enter the

proceed as in 4.1 above.

Format Mode,

and

Reconstruct Mode Procedure

The ogerator has explicitly requested this as the formatting

mode

by answering 'NO' to the

following software questions:

. 'Use existing Bad Block information?"’

E }ggg

C 1264

track.

option to continue if the FCT file is inaccessable else the

E }gzg
C 1251

FCT

These will include bad blocks found in step B.

to each

. 'Down=-lLine Load Bad Block information?'’

The Operator has responded with a

‘'YES'

the

. '""Continue if Bad Block information

1is

inaccessible?"’

question:

software

E }522

C 1267

E ;g;}

Reconstruct formatting procedure is as follows:

E 15;2

C 1275

C 1278

E }%g}

. Media Mode

= 512 Byte Format

E }ggz

. Formatting Instance Number

E }ggg

. Volume Serial Number

= Operator Supplied S.N.

;

C 1287

. Time of First Formatting

= Oeerator Supplied Date

;

¢ 1290

. Time of Most Recent Formatting

= Oeerator Supplied Date

¢ 1293

. Number of Used 512 Table Entries = 0

3
3

S
$

3
5

C 1268
g }%?8

and the Bad Block file is discovered inaccessible
during a Reformat or Restore Formatting Mode.

E }ggg

E }ggg
E }53}

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

The Fornatting process will be aborted if all four copies of

E }%;9

Sector 0 are

bad.

The

Information

Volume

Block

(Sector

reconstructed using the following information:

will

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

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

:
3
3

SEQ 30

Page

CZRCHY
REV A PATCH 00
3

CZRCH RC25S DISK FORMATTER
USER DOCUMENTATION

€ 129

g }ggz

. Number of Used 576 Table Entries = 0

E }Sg;

. Remaining Words Zeroed

C 1299

C 1302

S
:
:
s
3
3

:
:

E }gg?

C
C
C
C
C
E

¢ 1310

¢ 13n

E }g}%

The volume Information Block is then written

copy and read back for data integrity.

Read Failures at all four copies will cause

1303
1304
1305
1306
1307
}ggg

SEQ 31

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

process to abort.

VAX=11 Bliss=16 V3=555
Page 3
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B816;4 (17)

to each F(CT
the

formatting

NOTE
Remaining FCT Sectors 1 thru 15 are not altered.
4.

The formatting process will then perform the

Procedure.

Reformat

Mode

G
CZRCH1

wwwuwguwuw
VO NV
WN = O V0NV
WN=O VO~V

D o

D e

D e cd

N N WA N N N N N N NN N N NN
NN W W W W W W W
NN NINI NI NI NI NININ = b e b b b

(alalaslalizlalalaslaslslialaslalialalalialalalaliaslalalalsly]

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION
7.0

HOST TEST SUMMARIES

7.1

ATTENDED FORMAT MODE

:
0
11=Jul-198 3 16:04:5
8-Jul-198 313 :42:19

SEQ 32
Page 3
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH1.B16;4 (18)

In this HOST mode the operator must be present at the console terminal
to respond to DM formatter software questions. Via these sofware ?uestions
the operator can choose from any of the three formatting modes (REFORMAT,

RESTORE or RECONSTRUCT) and can specify the unit number to be formatted.
The unit number
given to the DM formatter however must be the same unit
the host reported bringing on=Line.
7.2

UN-ATTENDED REFORMAT MODE

In this HOST mode a REFORMAT mode will autoaatfcall{ 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 8iven to the DM formatter and the
phg:i:al'unittnunber within the current
P_Table is given to the DM as the
un

format.

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

W= o

iV ivivivie v S S S I I 3 S g

8.0

11=Jul-1983 1?:06:50
8=Jul=1983 13:42:19

APPENDIX

APPENDIX A

00NN

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

Diagnostic Machine.
firmware which is

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(CT is

VDN

DBN

W= O

GLOSSARY

operation.

A means of verifying correct controller

FRU

;}etg Replaceable Unit.
e

An item which may be exchanged in the

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

Physical Block Number.
RC25 media.

RBN

Replacement Block Number.
block replacement.

RCT

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

RZ01

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.

NNNNNNNY

CONOWVISWN =00

SEELEE £

d wmd d d d

D D ed b cd d D

d D d cd D

D wd

Inner Guard Bands.

d D

33333 bt

An interpreter built into the R(C25
wused to execute programs downline loaded
into the RC25's buffer memory.

written as part of the initial media formatting.

= O

D
D =D D
D
D D D
D D
D
D
e
b D
D e
) D D d D

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

SEQ 33
Pa
3
V3-555
VAX=11 Bliss=16
:69?19)
SPIDERSUSERS
: [NEALE .AZTECICZRCH1.B16

1GB

—

alzslalalalzlalalalalalslzslzlalalalalalalalalalalialalalaslalslalalalalaslalalialalalalslalalalialalelelely]

T R R

T R

TR TR

TRLR

TR T

PR L R T

PRTR

PR TR PR LATR

TRLA T PR

PRLA TR

R LA DR L

D LN

CZRC
REV A PATCH 00

The guard bands closer to the spindle.

for port control.

The

This

method

used between the host and the RC25 over the bus.

communication

The guard bands further from the spindle.
The absolute address

block

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

interface

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

VAX=11 Bliss=16 V3=555
Page
SPIDERSUSERS
: [NEALE.AZTECICZRCH1.816:4 (20)

APPENDIX B

1395

BAD BLOCK REPLACEMENT

1397
1398
1399

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

1401

Each RC2S track has 32 blocks.

1403

or LBNs.

1405
1406

1f a single bad block exists on a track, it can be replaced by
of that track.
This is called Primary replacement.

2
08

- —.—l-l-l-l—.-l—ls

= Y
e
T
S
e N
S

0O NOWVISWN=O

)

—

1402 thirty-one are

EREDEDDDNS S

alzslzslzslslalalzlalaslalalalzslislialalalaslalaslialialslalalsle]

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

1393

E IR

T T A

A I

a T

I A IR TE A

CZRCHT
REV A PATCH 00

SEQ 34

In the host-addressable area,

the first

for normal data storage, and are called Logical Blocks,

The lLast block on each of these tracks is an RBN.

the

RBN

If other bad blocks are found in the same track, they must be replaced
by unused RBNs of other tracks. This is called Secondary replacement.
Two tlpes of tables record bad block information for the media. One is
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 nanufacturing
process.
The other is the Replacement and Caching Table (RCT), whic
includes both the FCT information, and bad block
information uncovered
gyblthe latg:t formatting of the media.
There are four copies of each
able per unit.

J
CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11=Jul=-198
8-Jul=-198

rwwug----W
=OVONOWVSWN=O 0

) ey
S I
e
e
B
I
e
e

BB »

alalalalalalalalalalalalalale
Ty

CZRC
REV A PATCH 00

APPENDIX C
FCT

The basic unit of the FCT is the Bad Block Descriptor.
This descriptor
ives
the Physical Block Address of the bad block, and a four bit code

?ndicating why it was retired.

The Physical Block Address, or PBN, is the absolute address of
anywhere on the media, wit hout the distinction of host-accessibility.
There are a variable number of Bad Block Descriptors in the F(CT.

descriptors are sorted in descending track order, and in ascending PBN
order within tracks.

VAX=11 Bliss=16 V3=555
.AZTEC
USERS
: [NEALE
SPIDERS

SEQ 35
Pa
3

JCIRCH1.B16:4(21)

CZRCHT

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

USER DOCUMENTATION

8-Jul=1983 12:42:19

VAX=11 Bliss=16 V3=555

RCT

The basic unit of the RCT is the double-word RBN Descriptor. There are
1584 of these, one for each RBN in the host-accessible LBN area of the
media.
The position of each RBN Descriptor in the RCT is fixed. The first RBN
Descriptor is associated with the RBN block in the first host- visible
:rac:.

rack,

Ihe second descriptor with the [BN of the second

host-

visible

etc..

In the format process, the FCT is given. Four copies of it are found on
the media;
two on each FCT track. The RCT is rebuilt from the FCT
entries and additional bad block information is gathered in a scan pass.
Primary replacement may be possible for one block per track if
identified as bad by either of these sources.
The track's RBN must
itself be a good, unused block.

Primary replacement is accomplished by:

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

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

Secondary

unused RBN

replacement is needed for bad blocks which do not have a good,
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 RCT,
using the Ping-pong algorithm.
+ Make the bad block's header code 03 or 11,
depending on error type.

5% 30000005

* Write the bad block's data field with 128
copies of the target RBN address.
83

SEQ 36

Page 36

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

APPENDIX D

alslalslslzslzslslalzslslzalzalslalalalalalzsialalzslalalalalalalalalalslalalalalalalalslalalalalslalalalalalalelelele
Ty )

LI I

I I

T E E I

R E

rETE

ETE

ErEmrErrr

TR TR PR T

PR P TR LR

LR TR TRTR

L LA

LRI LR LA L LR LA 1

REV A PATC

+ 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
CZRCH1
REV A PATCH 00

€ 1492

CZRCH RC25 DISK FORMATTER

USER DOCUMENTATION

1 1=Jul=198
8-Jul=-198

indication set by complimenting their EDC fields.

318

04: 50
42: 19

VAX=11 Bliss=16 V3-555

SEO 37

SPIDERSUSERS: NEALE .AZTECICZRCHI. 816 6 (22)

CZRCH1

CZRCH RC25 DISK FORMATTER

11=Jul=1983

8=Jul=-198 1? 42:19

APPENDIX E

1497

DATA PATTERNS

D
d

D e
D

i
i

D d D
)
d =)
—

VAX=11 Bliss=16 V3=555

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 are
elements are as follows:

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

T17NNNN.

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

d d =D

) ed nd D d d e

D d

)

d D

D ed e

:;:g\n:;\n\n
[=l=1=]

WWWWWWWNINNN
NN NINININ = b b ad cd b ed b od b
3283
=
&I8SR W)
cfi\fi‘\tflhu-‘c>‘:°"ic’\fl“UUNJ-‘C’1’0"“’\““0‘“)-‘:’5;

1495

alzslalslzslslzalalalalzslalalzslalalaslzslzizsizslalalalalalalalaslaliaslalialalalalslalalialalalely)

N R T

TR TR TR T

REV A PATCH 00 USER DOCUMENTATION

16:04:50

These elements are assembled into patterns 1 through 4 as follows:
Pattern 1 = LBBAAABBBBAAAAABBBBBBAAAAAAABBBBBBBB etc.

Pattern 2 = BLABBBAAAABBBBBAAAAAABBBBBBBAAAAAAAA etc.
Pattern 3 = LDDCCCDODDDCCCCCDDDDDDCCCCCCCODDDDDDD etc.
Pattern 4 = DLCDDDCCCCDODDDDCCCCCCDDDDDDDCCCCCCCC etc.

SEQ 38

Page__3

SPIDERSUSERS
: [NEALE .AZTECICZRCH1.816;4 (23)

CZRCHT

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=-198

USER DOCUMENTATION

8-Jul=1983

1?:04:50

VAX=11 Bliss=16 V3=555

15:42:19

1537
1538

Enbedding the LBN address within the patterns gives them LBN-uniqueness.
This feature is taken advantage of in validating revectoring.

1540
1541

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

C
C
C
C
C

E }gzg

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

€ 1546

* Before secondary revectoring is attempted, blocks not involved

E }gzg

C 1542
C 1543

C 1547

€ 1550

E }gg;

are:

with

revectorlng

contain no 32-bit

* When the format

written

repetitive patterns.

comglege.

with

data

unrevectored

contain data which has 32-bit repetitive patterns.

fields which

blocks

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

:
:
:
:
:

:
:

SEQ 39

Page_

will

&
Page 40
VAX=11 Bliss=16 V3=555
6;4 (25)
SERS
LNEALE.AZTECICZRCH1.B1
SPID:ERSU

11-Jul-198§ }ggogf gg
8=Jul-198

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

20‘!\!-‘000*‘0\’0& W

PR AR v

oo
oo

b
b
D
b
d e
d
e
D e
d
— e

RCH1
V A PATCH 00
alalalzlalalaslslalalaslzsizslisialaslsliaslalalasliaslalalalalalalalalalalalsly]

- lal

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

An unallocated replacement block descriptor
overflow location = a secondary.

encountered

The entire RCT is searched without success = a failure.

The search operates at two levels:

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

Then a linear search, starting

with

the

highest

R(CT

sector

address, once the initial sector has been completely searched.
Each
new sector is searched in a Linear fashion starting at the lowest RBN
descriptor and scanning until
the highest RBN descriptor in the
sector is encountered.

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

CZRCHY
REV A PATCH 00

3
:
3
:
:
3
:
3
3
3
3
3
3
3
3
3
2
3
3
3
3
:
3
3
:
:
3
3
3
H
3
:
3
3
3
3
3
3
3
3
3
3
3
:
:

C 1588
C 1589
¢ 1590
C 159
C 1592
C 1593
C 1594
C 1595
C 1596
C 1597
C 1598
C 1599
C 1600
¢ 1601
C 1602
C 1603
C 1604
C 1605
C 1606
C 1607
C 1608
C 1609
C 1610
c 1611
C 1612
C 1613
C 1614
C 1615
C 1616
C 1617
C 1618
C 1619
C 1620
C 1621
C 1622
C 1623
C 1624
C 1625
C 1626
C 1627
C 1628
C 1629
C 1630
C 1631
C 1632

VAX=11 Bliss=16 V3=555

USER DOCUMENTATION

ALGORITHM FIGURE -

RCT sector 3

[

FIRST

!|
_RCT
!
[}
!DESCRIPTR!
E
E SECTOR

f---------;
1

RCT sector n

entrance to routine==>

R-

i primary i--+

bommem

RCT sector n+1

<=4

!
v

$mccccooat

g RCT
i BLOCK

Last RCT sector

SEO 41
41

SPIDERSUSERS : [NEALE.AZTECJCZRCH1 816.4 (26)

CZRCH RC25 DISK FORMATTER

1633
1634

o
D e
e
e
e o

CREATING CZRCHA DM
G.I

NONW

OOV~
W = OV
v

OTM~

©°o

o
[

B
b

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

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. 1ZDDA0.DTX
% 1ZDKAQ.DTX
4

. 1ZDLAO.DTX

1ZDMAQ.DTX

5. 1ZDTA0.DTX

6.
7.

1ZDXA0.DTX
IZDYAQ.DTX
IZMMAQ.DTX
9. IZMSAQ.DTX
10. IZMTAO.DTX
e. STARTM.COM RTEM start up
assembling DM

WN=O VBNV

D e o
D e
D
D e
i
e
D e
b o
b cd o
—

- e
e
R
e

e ¥B
e
e e

11=Jul=1
8=Jul=1

SEQ 42
Page 42

APPENDIX G

WN=O VRNV

D o

D e

B & o
8 RERE ga3Rzeses AAESZIIR PR R AN ANANANNANNE

) i e

NN =0V

635
63
63
63
63

alalzlalzalzslalzalzalzslalzslzalzslalslzalalalzslzslalalaslalalalalalalalzslalalaslalalalalalislslislslalslalslalslalalslele
le ey

LALA LA LR T
PRTR LA
PRTR
R
LA LRTR
LA TRLR
T
TR T
PR TR TR TR PR PR LRTR
T
T
T
T
O
e
R
e
e
R
R
R
R R R
A A R R T E
R R
R
A
A

CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

CZRCH1

REV A PATCH 00

&
OO
©Co 0o
W

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 objecrt
code from this module is then linked
with other
Bliss object modules resultina in a APT compatible,
costigious object file including both host and DM
code.

G.1

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

G.2

ASSEMBLING DM SOURCE CODE

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

E
CZRCH RC25 DISK FORMATTER
USER DOCUMENTATION

11-Jul=1983 16:06:50

AUl 083 19103130

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

16:4° 27)
AZTECICZRCHT.BRS:
RSOSE
INEALE
YBIDE

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

«DEL VS1:%
»
.R FI [
*VS1:=[NEALE.AZTECJAZFMTR.MAC/F

'Make room in VS1: for this assembly

.R
DMACRO
*VS1:AZFMTR,AZFMTR=DMACRO,VS1:AZFMTR
Ll 8

'Run the DM macro assembler
'Assemble DM source and save in VS1:
'Exit the DM assembler

*VS1:AZFMTR,AZFMTR=VS1:AZFMTR
*4C

.R LINK

'Run the RTEM Llinker
'Link the .obj file and save in VS1:
'Exit the linker

.R FIP

'Run FIP

«[NEALE.AZTEC]/F/1=VS1:AZFMTR.SAV
*4C

'Output .SAV file to user directory
'Exit FIP

*AC

3 SISER
UWN 2OV NOVSWN=OVONOWVNSWN=O

WKW WIWWWWIWWAINININININI
NI NININD = —d b wd e = e b b =
BB

OWVBWN=O VNIV

b ——d

D e

b wd

D cnd -

b =

b e

D cd D b

D =D d

D d

D e

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNY NNNNNNY

Before

storage disk VS1: must have already

.SET TT:NOCRLF,SCOPE,WIDTH 80

-R JOAT
:ggas/v:vs1

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

.B00 SY
$ <VMS>

G.3

SEQ 43
Page
&

VAX=11 Bliss=16 V3=555

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

—

alslalalalslslalalalalalslzslalslalalaslalalalalalalslalslialalalslalalalalalalalslialalislalslialalislialalalalalele
Ly ly ]

LA TR

AT AT AR A IR

AT AT A

AT AT E M

PR PR TRLA

PR PR PR PR DRTR 1

CZRC
REV A PATCH 00

‘Enter File interchange program
!Bring in DM source code from user directory
'Exit FIP

‘Output .LST file to user directory

'Return to VMS

BUILDING THE BLISS ASCII ARRAY
The next step is to run the DMCONV program to build the
Bliss ascii arral from the DMACRO output .SAV file.
To
do this follow this example:
$ run DMCONV.EXE
INPUT FILE NAME (J.E. XXXXXX.YYY) AZFMTR.SAV
OUTPUT FILE NAME (I.E. XXXXXX.YYY) AZFMTR.VEC
BLOCK VECTOR NAME (I.E. XXXXXX.YYY) AZFMTR
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
modules
(including the DM bliss module)
is demonstrated by
the following command procedure (azcom.com):

ZRCHY

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

VAX=11 Bliss=16 V3=555

azcom
'Execute command procedre
et verif¥
Liss/pdpl11/Llist/Library CZRCHO.R16
Liss/pdp11/Llisting=CZRCHA.DOC CZRCH1.B16
Liss/pdp11/Llist CZRCH2.B16
liss/pdp11/list CZRCH3.B16
{iss pdp11/Llist CZRCH4.B16
iss/pdp11/list CZRCH5.B16
[ t process/name="'Xiller
L iss/pdp11/List CZRCH6. 816
et process/name=' Fisher_man

CZRCHA/NOHD/NOMM,CZRCHA/CR/=SP=CZRCH2,CZRCH3,CZRCH4
,CZRCHS ,CZRCH6, CZRCH7 ,neislb/Lb

PAR=DUMMY :2000: 176000
STACK=0

—

s "ttttttttttttttttttttQQtttttt'ttttttttttttttttttttttttt
$!
By

g
s

Now run the TKBBIN program to create a .bin file

'ttttttttttttttttttttt'tttttttttttttttttttttttttttttttt'

: set noverify
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:

$ RUN TKBBIN

lnput filename ? CZRCHA
:load Addr: 2000
.xfer Addr
:Nr char
74600

End of Job

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

tmrmtmtmimi=-

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

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

The startm.com command file will automatically
begrn to execute when entering RTEM. Control
he command procedure at this time and do the
following:

'Run JOAT utility
'Allocate XXDP+ device to pip .BIN file to
'Exit JOAT

.R FIP

'Run FIP utility

R JOAT
DLO:/A
“C

B®

G.5

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

SPIDERSUSERS: [NEALE .AZTECICZRCH1. 816 6 (27)

VWOoOVWOooToDToOOoTV

NOPPAPAAAAAPAANAN

N =OVNV
W=

i e
i e
e
d i
i

8=Jul=1983 13:42:19

3 béis%égdp11/list CZRCH7.B16

~ NINNNNNNSNNNSNY
[ o(o VAV AV AV N AV AV IV IV IV 2

V A PATCH 00 USER DOCUMENTATION
alalalalalslalalalalalalalaslalslalalalslalalalalalalalalalalalalslslslislalalalalslslslislislalalslislislelele
Lelele Ty

!Bring .BINfil from user directory into VS1:

CZRCHI

CZRCH RC2S DISK FORMATTER

REV A PATCH 00 USER DOCUMENTATION
3

:
3
:
5
3
:

.
:
3

1M1=Jul=1983 16:04:50

8=Jul=1983 13:42:19

VAX=11 Bliss=16 V3=555

«C

'Exit FIP

C 1806
C 1807
C 1808
C 1809
C 1810
c 1811

R DTX
«DEL DLO:CZRCHA.BIN
«PIP DLO: CZRCHA 81N=VSI CZRCHA.BIN
*LOAD DLO:C
XFR 000001 CORE 002000 76600
L dal

'Run the XXDP+ UPD2 emulat
'Delete from XXDP+ media old .BIN file
'PIP new .BIN file to XXDP+ media
‘Load the file to verify the chack=sum

.B00 SY
$ <VMS>

'Boot back to VMS
'Back at VMS again

C 1812
C 1813
C 1814

SPIDERSUSERS: [NEALE.AZtECJCZRCH1 816 4 (27)

C 1804

C 1805

SEO 45

'Exit DTX

CZRCH1

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:04:50

REV A PATCH 00 USER DOCUMENTATION
:
3
:

C 1815
C 1816
E }g}g

¢ 1819
C
C
C
C
C
C
C
E

:
:
:
3
:
3
H
:

8=Jul=1983 12:62:19

CREATING CZRCHA HOST CODE

H.l

1820
1821
1822
1823
1824
1825
1826
}ggg

FILES REQUIRED

. Text editor
B. Bliss16 compilier

C. TkB linker
D. TKBBIN Utility This converts Bliss16 .EXE files into XXPD+
.BIN files.

H.1

SOURCE FILE CREATING

any text editor, follow PDP=11 diagnostic design guidelines demonstrated

C 1829

Using

;

E }ggg

H.2 COMPILING BLISS SOURCE MODULES

;

C 1834

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

E }ggg

3
3

C 1835
1836

1837

in SUPPRGC.DOC and CHQUSD.SEQ.

to get the .BIN file onto XXDP+ media.

ELUDOM

.TITLE
JIDENT

CZRCH1 CZRCH RC25 DISK FORMATTER

/REV A /

PSECT SUMMARY

Psect Name

Words

Attributes

COMMAND QUALIFIERS

BLISS /PDP11/LIST=CZRCHA.DOC CZRCH1.B16
Size:

Run Time:

Elapsed Time:

0 code + 0 data words
0:08.6

00:15.1

Henoq{ Used:
6 pages
Compilation Complete

SEQ 46

Page

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

APPENDIX H

;

VAX=11 Bliss=16 V3=555

POMND =2 b d e o —ad o

b b oD

VNS WN=O0
0O NOAWVISSWN =OV®NO

SoRSoRRR 8388 888338888 §883 58388

ZXZXTZT=E=
3+ 3
=== -

Be B0 %0 00 %0 0% 9 0000900 %0 00%0 9090 %0009 %0 0.0 %000 %0 % 00000000900 % 00900090 %0 09090 % %8000

RC25 FORMATTER LIBRARY MODULE

M 0030

11-Jul-198§ 16:04:41

6=Jul=1983

11:33:38

XTITLE *RC25 FORMATTER LIBRARY MODULE'

Xsbttl "MACRO DEFINITIONS'
QOCP?

i This macro will transfer the operator inputed date from it storage
; place into the send buffer where it will then be sent to the DM.

$FILLDATE =
begin

map

snd_buf : vector [74, bytel;

incru i from 0 to 11 do SND_BUF [.i) = .DATETXT [.i];

%,
end;
WRT_RC25 (0, IMAGE) =

begin

logal

RCSM_REG;
RCSM_REG = IMAGE:

(.:g?S_ADDR + Xupval*0) = .RCSM_REG;

endX,

! Dup Protocol Macros Declarations
REC_BASE =

SND_BASE =
HDR_SIZ + REC_ALLOCATE , 0, 0, 16, 0%,
Macro to clear
out the DUP send data text buffer

before requesting input form operator.
This bg
qefaglt puts a null
byte at the end of the asci
input.

SCLRSBUF =
incru i from 0 to SNDB_SIZE - 1 do SND_BUF [.i] = ZEROS:X,

! General purpose word reference field select
WORD_REF =

0. 16, 0%;

SEQ 47
Page
VAX=11 Bliss=16 V3=555
.AZTEC JCZRCHO.R16;2 (1)
USERS
: [NEALE
SPIDERS

11=Jul-198
6=Jul=198

16:26:41

g 11:33:38

literal

2 222NN re20 2202
PRI IRNE 2RI
000 OOOOO
0000

100000'

109,

—

Bt bt Bt B

) it B

g bt Fom (e Pt (et Bt bt b0

S3RGIENa3 SS38R88<883210a
33333859352 33053

i BlT DIFINITIONS

BITO =.BIT00,

i EVENT FLAG_DEFINITIONS

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

! START COMMAND WAS ISSUED

EF_NEW = 29,

! A NEW PASS HAS BEEN STARTED

EFTRESTART = $1
EFTCONTINUE
= 30,
EF_PWR = 28,

i RESTART COMMAND WAS ISSUED
i CONTINUE COMMAND WAS ISSUED
! A POWER-FAIL/POWER-UP OCCURRED
[}

SEG 48

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

VAX=11 Bliss=16 V3=555

Xsbttl °"SUPERVISOR DEFINED LITERALS'

----~

e Be By 00000900000 0090 9099090 %0909 %0 90%0%9099%:0909%: 9% 9% %08 I TETETEATEATTEAIE TR TR TN TN

RC25 FORMATTER LIBRARY MODULE
SUPERVISOR DEFINED LITERALS

K
RC25 FORMATTER LIBRARY MODULE
SUPERVISOR DEFINED LITERALS
‘e

i PRIORRYV LEVEL DEFINITIONS
PRIO7 = %0°340°,

b e

D e

e e

JEARAnIS3RIRARERSS

D wd

;OPERAIOR FLAG BITS

[=]lelelelelelelelelelelelelelelele
o]

PRIO6 = Xo0' 300'.

PRIOS = %0°'240°,
PRI0O4 = %0°'200°
PRIO3 = %0°140°,
PRI02 = %0°100°,
PRIOT = %0°40°,
PRIODO = %0°'0°,

EVL = X0'4'
X0'10°,
LOT =
ADR = %0'20°,

IDU = %o'40"

ISR = %20°100°,
UAM = %0°200°,

BOE = 30'400'
PNT = %0* 000
PR] = 10'2000'
IXE
IBE
IER
LOE
HOE

=
=
=
=
=

%0'4000° s
%0°10000°,
%0°20000°,
%0'40000°,
%0'100000°,

11=Jul=198
6=Jul=198

11:g§:38

16:04:41

VAX=11 Bliss= 16 V3=555

SEQ 49

SPIDERSUSERS: [NEAL .AZYECJCZRCHO.R16:$’?3)

L
RC25 FORMATTER LIBRARY MODULE

FCTZSECC1S = 15,

Global flag word bit definitions

NON_EXIST_REG = BITO,

!Select message 0
!Select message 1
!Select message
!Select message
!Select message
!Select message
!Select message 6
'Select message
!Select message 8
!Select message
1Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
!Select message
'Select message 23
!Select message 24
!Select message 25
'Select message 26
!Select message 27
'Select message 28
!Select message 29
!Select message 30

[ LN T
e e e T R P
P P YV, 1. . LNT.
N=OVRNOWVHUWN=O

~NoNwn

MSG16

D
D
e
b
e
D o
e o
e cd e

!Non-existant register flag

g Message selection literials

g Miscellanious Lliterals

—=OWN=O

nunnunnn

x
N=O

h e

OONONONON

'FCT sector 2ero request
'FCT sector fifteen request

NV ¥ N V¥ N

=0 000

D
o
o
D o
e
d e
b- bb
b
b
b
e
-

FCT_SEC0 =0

h
d
d
e

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

g Down Line Load external FCT copy literals

T
MmTETMmTEmErrE
mETTImmTET
AT EaE T TET
T RE T AaE
IR A AR A A AE I E

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

!Sbttl *FORMATTER DEFINED LITERALS'

r
ONONONONYIS
NN BB
ONOWVISW N=OO

rrrrrarrrrrrrrrrrrr

v rr

R TR TR TRL A

D e

WA = O 000 NOWVH W

D o

[elelelelelelelelelelelelelelelelelelelelelelelelele) (=lelelelele) o o [elelolelelelelelelelelelelelelelelelelelalet)

PR LALA TR PR PR

DADR LA LN T

FORMATTER DEFINED LITERALS

'DUP connection ID constant
'MSCP connection ID constant
'fFailure return code
'Success return code

'Selects block 0 of
'Selects block 1 of
'Selects block 2 of
'Selects block 3 of
'Selects word 0 o
'Selects word 1 0

struct
struct
struct
struct

SEQ 50

(4)
2" 6:
ICZRCHO.R1

T
TR TR T
PRL TR
PR T
T
R

VAX=11 Bliss=16 V3=555
X
X

!Selects word
g o f loc
loc
of
!Selects word
!Selects word & o f loc
'Selects word 5 ) f loc
'Selects word 6 of Loc
!Select the read word (1st) ISD_STRUCTURE

'Select the write word (2nd) in” I1SD_STRUCTURE
'Initialization sequence step one
'lnitialization sequence step two

HHOs

'True indicator
iFalse indicator

!Set the indicated fla? to one
'Clear the indicated flag to zero
'Ones data type
‘Zero data type

Lsum?
oé4o
DM_SIZE
FCT_SIZE= 4096,

'ALL ones data type
iALL zeros data type
'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 lLiterials
i (command, end or attention message).
' define these field values.
CHD&HSG = %b'00°,
ATTSMSG = Xb'01°,
ENDSHSG = %b'10°,

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

e
e
e
e
s
Ty
T
T
TR
T E R TR TR TR
M E T

10'00:.

CIECCODE = %0°'01

CTO_CODE = %o0'11°,
PFE_CODE = %0'21°,
RSE_CODE = %0'31°’,

PVE_CODE = X0'41°',
RPD_CODE = X0°'51°,
PSE_CODE = %0'61°,

MLE_CODE = !0'71"
UEC_CCDE = %20'101°,
APR_CODE = %0°'201°
UIN_CODE = %0°301°,
ATN_CODE = %0°401°
CMD_CODE = 20°'501°,
SEX_CODE = 20°'601°,
IVC_CODE = !0'701"
UMT_CODE = 20'1001°,
0BF_CODE = 20°2001°,
OSE_CODE = X0°'3001°,
_CODE = %0°4001°,
FRE_CODE = %0°5001°,
ILL_FCT = %0°'6001°,
; Dup Protocol Lliterials

i Error code literials
PAS CODE

! Note:

SEO 51

SPIDERSUSERS: [NEALE .AZTECJICZRCHO. R16.2(6)

mr=

-m

— 0

6=Jul=1983 1 33 3

11=Jul=-1983
1 6:064: 4

ooooT

nuunnnn

LITERALS

PR L

PR TRLR

=
=

FALS

BRARY MODULE

noun

b
o
&

A LA TR LR

ISWR
STEP
STEP

LALR LA L L 1

FORMATTER D

OoONWVISWLWIN
WNO=s & & & s &

RC25 FORMAT

'Pass code

'Communication area init error
'Controller time out error
'Port fatal error
'response status error

'uost/Controller out of sequence
'Remote program died error code

iPort/host synchronious error

!Message length error code
!Unknown end code error
'Adaptor purge reguest error
'Unknown interrupt error code
iAttention msg received

!Command msg received
'Serious exception error received
'Invalid command error received
'Unknown nessa et

'Out stand ing uffer full error

'0ut$std_buffer out of sync error

'Unknounmessage number

'File read error code from load media

'lllegal FCT file length

RC25 FORMATTER LIBRARY MODULE

11=Jul=1983 16:04:41

6=Jul=1983 11:33:38

VAX=11 Bliss=16 V3=555

The values assi’ned to the literials
REC_SIZ, SND_SIZ are represented in
powers of 2 notation per DUP spec.

By redefining these two literials the
communications area allocation and init
sequence is automatically handled and
no other parameter modification is needed.
Further more the send and receive rings
can be of different lengths. However the

maximum value allowed is 7 (2+*7 = 128 slots)
per DUP spec.

REC_SIZ

SND_S12Z

'Define number of receive slots
'Define number of send slots

This one is tricky:

(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_siz.
The two words per block comina from the
two words needed to represent the ring descriptors.

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

HDR_SIZ = 2,

'Define com area header size 4 words

REC_ALLOCATE = 1*REC_SIZ,
?ND.ALLOCATE = 1*SND_S1Z,

!Define receive rin? allocation
'Define send ring allocation

TR O
T
T

i Ring_size equals the total number of ring descriptors

! (number

R
R R R
R

word

blocks) allocated =~ within

the

RING_SIZE = REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ,
The RB_SIZ

definition, DUP spec, must be

a minimum of 60 bytes long (30 words) 64 bytes
overall.
The additional 2 words for the UQ
port information 1is accounted for in azkel2
when the storage is allocated.

RB_SIZE = 30,

'Number of '‘words’’ in response buffer

The biggest command I'LL ever send will

be (I hope) will be 40 _bytes, 42 overall,
and again the UQ port 2 words is allowed
for in azkel2.

SB_SIZE = 20,

;Number of 'words'’ in send buffer

of 2

: communitcations area.

SNDB_SIZE = 37
RECB-SIZE = 120,

isend DUP cmd text buffer size.
iReceive DUP cmd text buffer size

PORT_OWNED = 1,

SEQ 52

Page

SPIDERSUSERS
: [NEALE .AZTECJCZRCHO.R16;2 (&)

TRTR

TR R

TR LR L LRL TR TR L LA LA LA LR LR L L LR L LA TE TR TRTY

FORMATTER DEFINED LITERALS

'Descriptor owned by port

11=Jul=1983 16:04:41

TR TR TR TR PR PR TR PR PR DR PR TR TN T3

RC25 FORMATTER LIBRARY MODULE
FORMATTER DEFINED LITERALS

6=Jul=1983 11:33:38

An argument of one results in a 100us
delay.

A roman numeral notation is used to
denote values of delay arguments.
The notation is as follows:

I1 (1),

x (10, L (50, € (100),

D (5000, M (1000)
Any

symbol following

another of egqual or

as II = %%
valueueaadds to its value,
.

greater

Any symbol proceedin g one of greater value subtracts
from the second and 9he remainder added to the first

as XIV = 14, LIX = 59.

ONE_SEC = 1000

S T

pry

>
v

o
0

OP_GU

nounnonnnnnnnn

E N E M E M ETM
A
A A
AR A
A

IR D]

Command packet opcodes
(See note following)

!One second delay argument
!One minute delay argument
'100 micro sec delay argument
1200 micro sec delay argument
1300 micro sec delay argument
1400 micro sec delay argument
!500 micro sec delay argument

! RC25 register offsets
RCIP
RCSA

'Abort command
'Access command
'Available command
'Compare controller data command
'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

T R

!Set controller characteristics command
!Set unit characteristics command
'Write command
'Maintenance read command
!Maintenance write command

i End message and serious exception encodes

SEQ 53
Pa

(4)
ERS
SUSHO.R16:2°
: CNEALE . AZTECICZRC
SPIDER

Delay literal values

A A

TR TR TR TR

VAX=11 Bliss=16 V3=555

'Descriptor owned by host

HOST_OWNED = 0,

ous nlngre = 60000,

RC25 FORMATTER LIBRARY MODULE
FORMATTER DEFINED LITERALS

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

Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCHO.R16;2 (4)

PRLA TN

z (see note following)

OP_END = %0°'200°,

TR PRPR PR TR LA DR LR PO

g MSCP

!Serious exception end packet

Attention message endcodes

OP_AVA = %0°100°,

'Available attention message

QP-RLC = %0°'103°,

'Reset command Limit attention message

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

PRI ATR

'Duplicate unit number attention message
'Access path attention message

The following are the dup op-code commands

0P_GDS = %0°'1°',

IGet dust status

OP_ESP = %0'2°',
OP_ELP = %0'3’,
OP_SED = %0'4’,
OP_RED = Xo'5’',
OP_ABT = %0'6',

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

TR TE PR TR

'End packet fla?

QP-SEX = %0'7°',

NOTE:

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 OP.RED + OP.END in its opcode field. The Invalid
command end nessa?e contains just the end message flag (i.e., OP.END) in
its ogcode 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 messa?e. Command opcodes bits 3 through 5 indicate the command
(immediate, sequential or no-sequential) and whether or not the
command includes a buffer descriptor.

catagory

AR A A A I AaE T I

T E I T

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

é DUP endcode message types
EOP_GDS = OP_GDS + OP_END,

'Get dust status

EOP_ELP = OP_ELP
EOP_RED = OP_RED
EOP_SED = OP_SED
§0P_ABT = OP_ABT

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

EOP_ESP = OPZESP + OPZEND,
+
+
+
+

OP_END,
OP_END,
OP_END,
OP_END,

'Execute supplied program

; MSCP endcode messag types

EOP_ABO = OP_ABDO + OP_END,
EOP_ACC = OP_ACC + OP_END,
EOP_AVL = OP_AVL + OP_END,
EOP_CCD = OP_CCD + OP_END,
EOP_CMP = OP_CMP + OP_END,
EOP_ERS = OP_ERS + OP_END,
EOP_FLU = OP_FLU + OP_END,

SEQ 54

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

d
e
d cd
e
b
e
b —

N=O 0 CONO"WVV SN =

(=]

TR
LATR

EOP_MWR = OP_MWR
EOP_SEX = OP_SEX

PRTR
TRT

588
858

11=Jul=1983 16:04:4 1
6=Jul=1983 11:33:38

SEQ 55
Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECJCZRCHO.R16;2 (4)

'Get command status command
!Get unit status command

ionline command

'Read command
'Replace command

'Set controller characteristics command
!Set unit characteristics command
'Write command

iMaintenance read command

'Maintenance write command
!Serious exception

! Dup Command message envelope
! byte sizes beginn n? at text+0
; of the command enve o

0423
'+

SZ_GDS = 12,
SZ_ESP = 40,
SZ_ELP = 48,
SZ"RED = 28,
SZ_SED = 28,
SZ_ABT = 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
! byte sizes beginnin? at text+0
! of the comman enve 0

EOP"WR = OP_UR +
EOP_MRD = OP_MRD

0410

PR PRPR LA

EOPZSCC = OPZSCC
EOPZSUC = OP_SUC

040%000%00

EOPCRD = OP_RD +
EOP_RPL = OP_RPL

[=]=]=]
voom

EOP_GCS = OP_GCS
EOP_GUS = OP_GUS
EOP_ONL = OPZONL

KRR & RRERRRRR

AT E PR PRPR PR

PRTR TR TR TR TN TN

RC25 FORMATTER LIBR ARY MODULE
FORMATTER DEF INED LI TERALS

32.
36.

!Set Controller characteristics
'On=Line command

! The following are the expected number of bytes
! in a commands end packet
transmitted by the
; communications mechanism to the host.

R R T E

T R T

sz_sCC
SZ_ONL

i DUP command end message sizes
ESZ_GDS =
ESZ"ESP =
ESZTELP =
ESZRED =
ESZ-SED =
ESZZABT =

XDECIMAL
XDECIMAL
¥DECIMAL
¥DECIMAL
XDECIMAL
3DECIMAL

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

i MSCP command end message sizes
$Z_SCC
S2”ONL

RDECIMAL
XDECIMAL

'Set controller characteristics
'On Line command

:04:41

RC25 FORMATTER LIBRARY MODULE

:33:38

FIELD DECLARATIONS

VAX=11 Bliss=16 V3=555

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

TR PRTR
T TRTR
TRTR
LRDR L
L LA
L

]

ISWRT_ = Initialization Sequence Write = 1

Xsbttl 'FIELD DECLARATIONS'
field

STR_ = Step One Read

|‘e

! Definitions:
'

4
1

ISD_FIELD = Initialization Sequence Data_Field

]

'
4

ISRD_ = Initialization Sequence Read = 0

i
i
'

Step One Write

S1w_

]

:
|

etc.

ISD_FIELD
set

i Miscellanious status register field
: referance declarations.

RC_ALL
= [0, 16,

R_BIT = [15

STPTFIEL

SA_B0 = co 1, 01,

ERR_CODE ='{0, 11, 0J,

'RC25 word access
'‘Error bit
'Initialize sequence read word
'Initialize se uence write word
'AlLL step bit
fields
!Status register GO bit
!SA register fatal error code

i Step one read SA register field reference
uoa

Lo Lo Lom L
[T

Sonnnnn
O

2N
=&
HO

[

oJO

t ‘6, 01,

'Steg one step bit
'No host inter vec settable adrs
122-bit addressing support
'Enhanced diag implementation
'Port allows odd

host address

'Port supports address mapping
'Reserved field

write SA register field reference

, 03,

t . 3,701,

S ©
1]

3¥e=8

222222
|

»n
£
CEC €

b —d
—

b
<D
)an

b —d

[

==L

S1R_ STEP = [11 1,01,

VULV

IR A

E I E TT E E E E TR MR I R M

ey ee

TR T T

to, 7,701,

SEO 56
1

'Diag wrap around
!Number of C-ring slots purs of 2'
'Number of R-ring slots ‘pwrs of 2°'

'Init Sequence interrupt request
!Interrupt vector address

ViV

B 8g 0g B0 B0 %0 0000000500090 05 00%: 9090399090 % 03 %0 0000900000000 0009%:9%08% 80800,

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS

11=Jul-198
6=-Jul=-198

141

:33:38

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: CNEALE .AZTECICZRCHO.R16; 2(5)

; Step two read SA register field reference

S2R_STEP = E12. 1, 01,
S2R_PTYP = [8, 3, 01,
S2R_BIT7 = (7, 1, 0],

'Step two step bit
!Port type number
iEchoed IE bit fron step one write

S2R_CRING = [3, 3, 01,

'Echoed bits 3=5 from step one write

SR_WR = [6, 1,

01,

SZR
_RRING = [0, 3, 0],

iEchoed bit 14 from step one write

'Echoed bits 0-2 from step one write

' Step two write SA register field reference

SZU LRBASE = [0 16, 0],

SZUPI= [0, 1, 0],

'Ring base lower address

'Adapter purge interrupt request

iStep three read SA register field reference
SSR STEP = t13 1 OJ.

S3R”
RSVD =

S3RIE= 7 f 6
SSRVADR to. 7. 6]

'Step three step bit

!Reserved

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

iStep three write SA register field reference
SSHPP = [15, 1, 0],

SBUHRBASE = [0 15, 01,

'Purge £ Poll test request

'Ring base high address

: Step four read SA register field reference

54R STEP = [14, 1, 0],

S4RTRSVD =
[8, 3,
S4R”MOD = [4, 4, 0],
SAR
_VER = [0, &, 0],

!Step four step bit

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

iStep four write SA register field reference
SLU RSVD
= [8,

S4W_BURST = té 03.

8, 0]

!Max number longwords per NPR xfer

SLU G0 = [0

'Go bit

SGW_LF = [1, 05
tes,

'Reserved

'Last fail request

SEO 57
n

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS

11=Jul=198

6=Jul=198

i Field declaration to define the interrupt
: indicator and purge words of the communications
area.

NDR_FIELD z
?Qt

g Header Word Ringbase =4

ésssavso = [0, 0, 16, 02,
f Header Word Ringbase =3
RSVD s (1

0. 8. 0]

= £1,78,"8, 02,

5 Header Word Ringbase =2

CMD_INT = [2, 0, 16, 01,
g Header Word Ringbase =1
RSP_INT = [3, 0, 16, 0]
tes,

11:9&:38
16:04:41

VAX=11 Bliss=16 v3=555

SEO 58
1

SPIDERSUSERS: [NEALE .AZTECJCZRCHO.R16; 26)

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS

11=Jul=19
6=Jul=19

‘e

! Field declaration to define the fields within
i the send and receive ring descriptors.
DSC-FIELD =
?Qt

! Low order envelope address
go,eusnb = [0, 0, 16, 01,
; High order 18 bit unibus or Qbus address

QI_ENSAD = [, 0,2, 01,
; Q_Bus extention address

QB-EXT = [1, 2, 4, 01,
g Reserver field

qsasvo = [1, 6, 8, 01,
; Flag bit

fLAG,BlT = [1, 14, 1, 01,
; Ownership bit

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

SEO 59

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

11=Jul-1983 6g‘4 1
6=Jul=1983 11:33:

RC25 FORMATTER LIBRARY MODULE

&
BRERREERRES
RN

— OOV NOVNESWN=O

FIELD DECLARATIONS

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEALE .AZTECJCZRCHO. R16.2(8)

i Field declaration to define the fields within

' message envelope buffers.

ENV_FIELD =
?Qt

‘ UQ Port envelope header field ~eclaration
HSG LENGTH = [0. 0. 16 01,

!Message length

EON“ = t r 8. 80 o

'Connection ID

REDITS =

nsc rvps i 4 ii

Bivosses S99

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

CMD_LREF = (2, 0. 16, 01,

CMD"HREF = [3. 0. 16. 0],

UNIT NUM = 4. 0. 16. 0],
UN_LOSED = [4. 0. 16. 03,
UN"HUSED = [S. 0. 16,

03,

TYPSMSG = [6, 6, 2, 01,

OPCODE = [6, 0,

ENDCODE = (6, 0, 8. 03,

ESFLAG = [6, 8, 8, 0],
RSVD = t6 80 80 °]o

STATUS = (7, 0, 16, 0]
STA_CODE = 7,70, 5, 03
MODIFIER = (7. 0. 16, 03,

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

'Unit selection field
‘Unused low word

iUnused high word

'End code message type
'Opcode
'Opcode

iEnd message flag field

'Reserved
IStatus
!Status code

'Modifier

'+¢

i DUP command and response envelope parameter

i field declarations
e

i ABORT command and response envelope parameter
i field declartion
l

g No parameters declared
i

response FIELD

' No parameters declared
'+

i GET DUST STATUS command and response envelope

iparaneter field declaration
l

COMMAND FIELD
!l No parameters declared
H

response FIELD

PLO_EXT = [8, 0, 16, 0],

SEO 60

!Program Extension low word

J
?gZS FORMATTER LIBRARY MODU LE
ELD DECLARATIONS

1,
FSLAGS = (9,8, 8, og.

11=Jul=1983 16:04:41

6=Jul=1983 11:33:38

PHI_EXT = [9, 0, 8,

;:rogran Extension high word

FLG_BO =
FLGB1 =

[9, 8, 1, 01,
[9. 9, 1, 0]

'Flag field bit 1

FLGB3 =

[9,

FLG.B2 = Eo. 10, 1, 03,
11,

'Flags

!Flag field bit 0

PLOCIND = (10, 0. 16, 02,

ator low word
ator high word

PRIZIND = [11, 0, 16, 03,
TIMTOUT = [12, 0, 16, 03,
'+

i EXECUTE SUPPLIED PROGRAM command and response
! envelope parameter field declartion
i

COMMAND FIELD

BLO_CNT = [8, 0, 16, 03,

BHITCNT = [9. 0. 16. 01,
BPATLO = (10, 0. 16, 03.
BPA“HI = [11. 0. 2, 0]

QBUS_EXT = [11,°2, 4, 03,
RSV = (11, 6, 2, 0]
UBA CHAN = Ci1,°8, 8, 03,
RSVO = [ 12, 0. 16, 01,
RSV2 = € 14, 0. 16. 0],
RSV3 = [ 15. 0. 16, 03,

'Byte count low word
!Byte count high word

<0-15>
'Buffer physicgl adrs bits <16=17>
'Buffer physical adrs bits

'Q_bus extention
'Reserved field
'Unibus adaptor channel number
'These next four words are not
;in the UQ port imglementation.

!
!
!:
;
!
¢

These next field definitions are the same
as above except they are for the overlay
buffer descriptor s.
To make lLife easy for
me I'LL use the same names and just prefix
the names with a $ for uniqueness.

$8PA_LO = [16, 0, 1
$8PA"HI = [17, 0. 2

$QBUS_EXT = [17, 2
SRSV = [17, 6, 2, 0
SUBA CHAN = [17.°8,

$RSVD = [ 18, 0. 16

SRSVl = [ 19, 0. 16
$RSV2 = [ 20, 0, 16
$RSV3 = [ 21, 0, 16

'‘Buffer physical adrs bits <0-15>
'‘Buffer physical adrs bit s <16=17>
'Q_bus extention
'Reserved field

iUnibus adaptor channel number

'These next fcur words are not
;in the UQ port implementation.

response Fl ELD
! No parameters dec lared
]

‘¢

i EXECUTE LOCAL PROGRAM command and response
! parameter field declartion
]

COMMAND FIE Lo

PN_O = [8, 0, 16, 0 1.

PN1 = [9. 0, 16, 0 1.

'Program name woid 0
'Program name word 1

SEQ 61

Page 1
VAX=11 Bliss=16 V3=555
: [NEALE.A ZTECICZRCHO.R16;2 (8)
SPIDERSUSERS

RC25 FORMATTER LIBRARY MODULE

11=Jul=-1983 16:g‘

PN_2 = [10, 0, 16, 0],

'Program name word 2

6=Jul=1983 11:33:3

FIELD DECLARATIONS

VAX=11 Bliss=16 V3=555

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

response FIELD

version = [8,

16, 0],

TIME OUT= (9, 0., 8, 03,

rLAss=9, 8. 8. 05,

'Version

iTime out

iFlags

! SEND DATA/RECEIVE DATA connand and response

i paraaeter field declartion

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

byte count is the same
as Execute Supplied Program parameters
+¢

i MSCP command and response envelope parameter
i field declarations
'+

! SET CONTROLLER CHARACTERISTICS command and response

:parameter field declartion
;

COMMAND FIELD

MSCP_VER = [ 8,

16, 0]

CTL_FLAGS= [ 6. 6, 16, 05.

HOST Tov = C 10, 0. 16, 03,
Rs$VB = € 11, 0. 16, 03,
0.0 = [ 12, 0, 16, 01,
T$D_1 =L[ 13,
0, 16, 0],
T$0_.2 = [ 14, 0, 16, 0],
T$0_3 = [ 15, 0, 16, 0]

CDP_LO = [ 16. 6 16, 05.
gDPHl = [ 17, 0 16, 01,
g

16, 0]

\CTL FLAGS = C 9, 0, 16, 03,
CTL_Tov = € 10, 0, 16, 03,
CSVRSN = E 11.°0,°8, 03,
CHVRSN = [ 11, 8, 8,
CIp_0 = E 12, 0, 16,
cip_1=1C
13, 0, 16.
cIp-2 = L[ 14, 0
6,
cIp"3 = [ 15, 9, 16,
]

'MSCP 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 lo word
'Cntlr dep parameter hi wrd

RESPONSE FIELD

iMSCP_VER = [ 8,

0],
01.
3J.
01,
01,

SEO 62

!Same as cmd field
'Same as cmd field

‘Cntlr time out value
ICntlr S/W, F/W, u=code rev num
'Cntlr H/W rev num
!Cntlr identifier wrd 0
!Cntlr identifier wrd 1
!Cntlr identifier wrd
'Cntlr identifier wrd

L5
11=Jul=1983
04: 41
6=Jul=1983 11:33:38

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS

VAX=11 Bliss=16 V3=555

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

INE COMMAND command and response
:parameter field declartion
l

COMMAND FIELD

UNT
FLAGS
[ 90.6
asvuso
=C=1o.
ic. 63.031,
RSVDS1 = [ 11. 0. 16. 03,

RSVSD= [ a. 0,
1

RSVDS2 = [
RSVDS3 = [
RSVDS4 = [
RSVDSS = €
DDOP_LO = [

12,
13.
14.
15.
16.

DDPHI =

0.
0.
0.
0.
0.

17. 0.

16.
16.
16.
16.
16.

16,

0.
03.
01,
01.
03,

sHADOW UNIT ='[ 18, 0, 16, 01,
COPY SPEED

= [ 19, 0, 16, 0],

'Reserved

'Unit flag fi eld
'Reserved fie ld

'Reserved fie ld
'Reserved fie L
'Reserved field
'Reserved field
'Reserved field
'Device dependent parameter
'Device dependent parameter
'Shadow unit
'Copy speed

RESPONSE FIELD

\nbuN-‘-'
WN=OMTM I —bedt 8 % 8 SAOM

96.°i6. 6J?J'

I =Y
b b b -

nnunnn '-“Os "

MUNT_CODE
= [ 8. 0, 16, 01,

SEO 63

'Multi=unit code
'Same as cmd field
!Same as cmd field
'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
!Same as cmd
'Shadow state
'Unit size lo word
'Unit size hi word
'volume serial num lo word
'Volume serial num hi word

4:41
11=Jul=19 83 1
6=Jul=1983 1 3 38

RC25 FORMATTER LIBRARY MODULE
FIELD DECLARATIONS
e

i Send Receive command buffer field definition

—a

[=l=l=]

s
.

oO=0O

Lo Lo Lo ]

nnn

()

RECB_FIELD

‘s

iOutstandvng command buffer field declarations
—-=000

Lo Do Lo U}

nnnn

U
Pl

OUTSFIELD

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

'Envelope adrs field

SEQ 64

1
(4a
VAX=11 Bliss=16 V3=555
%
2
SPIDER’USERS [NEALE.AZTECICZRCHO.R16;

RC25 FORMATTER LIBRARY MODULE
LINKAGE DELCARATIONS
8%2;

%sbttl 'LINKAGE DELCARATIONS'

0843
0844
8822

Linkage
:
; Call_LnkStyp

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

0847
0848
0849
0850

!
!
!
!

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

oas‘

...... = o

:
:
!
:

0
1=4
5
6

0851
0852
0853

0855
0856
0857
0858

! usage as follows:
:
! Register
Usage

A am s e e

Value return register, non-preserved
Preserved
Argument pointer
Stack pointer

0859
0860
0861
0862
0863
0864
8322

:
7
Program counter
:
¢
CALL_LNKSTYP = call (standard),
:
!
; Int_LnkStyp

0867
0868
8398

! 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:

0871

! Register

0873
0874
0875
0876
0877
0878
0879

:
0-5
Preserved
:
@
Stack pointer
B
i
Program pointer
:
g
INT_LNKSTYP = interrupt (standard);

0872

........

Default usage

COMMAND QUALIFIERS

BLISS /PDP11/LIST/LIBRARY CZRCHO.R16
Run Time:

Elapsed Time:

Memory Used:

00:06.0

00:07.6

51 pages

Library Precompilation Complete

SEQ 65

Page 1
VAX=11 Bliss=16 V3-555
O.R16;2 (10)
SERS
[NEALE .AZTECJCZRCH
SPID:ERSU

0001

000

VAX=11 Bliss=16 V3=555

ADDRESSING_MODE (RELATIVE) ,
;uvxaounsn? (NOEIS)
=

BEGIN

Isbttl 'PROGRAM HEADER'

0014

Library "CZRCHO';

!Define RC25 Formatter Library

0016

require "BLSMAC.REQ';

'Define Bliss Macro Require file

e T
e
N
e
R
B
B

psect

code = aa$code;

literal
DSSNBR_OF _TESTS = 1;

!Indicates number of test in Diag

The structure of a diagnostic program ma‘ contain any or all of the
ten optional sections.
But five of the optional sections require a
pointer that is derived by and for the supervisor, and is
located in

the header block.
Therefore,
in relation to the effective use of
these five pointers, the optional sections call must be coded to reflect usage (i.e., any,all,or none).

The following coding possibilities exist:

(or any subset of the args)

POINTER (ALL)

i ::étg;::ides pointers for all five

POINTER (NONE)

: None indicates to supervisor that no
; pointers are required.

8
9
?

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

ARGUMEN

FUNCTION

RPT
Sw

REPORT CODE
SOF TWARE TABLE

; this is the default

e T

POINTER (BGNRPT,BGNSW,BGNSFT ,BGNAU,BGNDU,ERRTBL ,BGNSETUP)

e T

The psect named ‘‘code or $code$'’ is redefinded here
to be called "aaScode’’.
This is done to force the TKB
Llinker to place the groarams header information starting
at absolute address 2000.

e I

)

e
A A OOOgO
ng-‘OOONOWJ\WN-‘OOONOVIJ\WN—'OOON

§<aLr/LoueacAse,xev>

wviwvwnwawn

0011

§ Pretty Declarations

!
!
!
;

SEQ 66
Page

2.B16;2 (1)
SERS
[NEALE .AZTECICZRCH
SPID:ERSU

MODULE CZRCH2 (XTITLE *CZRCH RC25 DISK FORMATTER®
IDENT = *REV A PATCH 00°

0004

MM
T
TR
TR TR
TR
R
T ETE T AT IR R
A AT Er AE I EAE T
A
A
IR

;'0;
11=Jul=1983 1 6:05:
7=Jul=1983 0 8:21:3

CZRCH RC25 DISK FORMATTER

TR TR A TE YA TR TRLA

PRDR

LA T AL ATR LR TR

T T T T T

CZRCH2

—

D
D o
e e
D
D
D
e e
e
e
e
b

vw
oV iYW
& &H
oo

1546
1547

CZRCH RC25 DISK FORMATTER
PROGRAM HEADER
!

SFT

'
'
!

AU
U
TBL

SETUP

11=Jul=19 83 16:05:07
:
7
7=Jul=1983 08:21:3

SOF TWARE TABLE QUESTIONS

ADD CODE
DROP CODE
ERROR TABLE

ASSEMBLED P-TABLES

POINTER (ALL);
The program header section contains
general
information which describes the major characteristics of the diagnostic program. This inThe
cludes, the program name, and revision and patch-order levels.
header also provides space
for an event flag register, and for the
storage of pointers, through which the supervisor na{ find access to
other key sections of the program(e.g., dispatch table, initialize and
clean-up
code, etc.).
An argument on the header gives the device type
if it is an XXDP+ bootable device.
This enables the supervisor to pro; vide load medium protection when necessary.

HEADER (Xascii®CZRCH ', Xascii'A*, %ascii'0', 1200, 0, PRIOO):

SEQ 67

VAX=11 Bliss=16 V3=555
.AZTEC JCZRCH2.B16:2 (1)
USERS
: [NEALE
SPIDERS

CZRCH2

RE V A PATCH 00

Page

D
R
CZRCH2

REV A PATCH 00

CZRCH RC25 DISK FORMTTER
DISPATCH TABLE

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

SEQ 68
Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH2.B16;2 (2)

¥§bttl "DISPATCH TABLE'

i The dispatch table section contains address pointers
! tests

contained within the diagnostic program.

5 the coding of only the dispatch macro.

DISPATCH (DSSNBR_OF _TESTS);
ERRTBL;

the

various

This section requires

'Define Supervisor Error table storage

CZRCH2

REV A PATCH 00

CZRCH RC2S DISK FORMATTER
DEFAULT HARDWARE P-TABLE

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

VAX=11 Bliss=16 V3=555

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

?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
i is
identical to the structure of the hardware P-Tables,

: and

is used

as a

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

BGNHW (DFPTBL);
global
HW_IP_ADRS : word initial (%0°172150°),

'‘Define RC25 Controler IP reg

ENDHW;

HW_VETTOR: word initial (10'156')
HW_BR LEVEL : word initial (5),
HW_UNIT_NO : word initial (0);

SEO 69
4

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

CZRCH2

REV A PATCH 00

CZRCH RC2S DISK FORMATTER
SOF TWARE P-TABLE

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

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEAI.E.AI!ECJCZRCHZ.BM 2%)

!sbttl 'SOF TWARE P-TABLE'
! the

software table

! program as

contains various

operational parameters.

data used

the

These parameters are

i set up at assembly time and may be varied by the operator
: at run time.

BGNSW (SFPTBL);
global
SW_UNATT : word initial (1);
ENDSW;

SEO 70

'Format in unattended refmt mode

§33§ §.g o8
8
oo~

b
b
—

nN=O

o
o
e
e
e
o
i
e

REV A PATCH

11-Jul-198§ 16:05:07

CZRCH RC25 DISK FORMATTER

7=Jul=1983

PROTECTION TABLE

Xsbttl "PROTECTION TABLE'
‘e

i This
|

table is used b

services to protect t
1st arg

BGNPROT (=1, =
ENDPROT;

the runtime
load media.

Offset into P_Table for csr address

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

08:21:

VAX=11 Bliss=16 V3=555

SEQ 71

Page

SPIDERSUSERS: [NEALE.AZTECJCZRCH2.816.2(5)

CZRCH2

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

§3bttl *MODULE DECLARATIONS'

ooooorOr
O OO

FIIIIIIISNS geaese AN AR ) b b b e b b b
&\h\h\h\l‘\h
S NWN=O VBNV
WN=O O Eqety W= O VNV
WN =00V NOWVISW

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

) o

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

psect

plit = Split$( ?lobal).
global = Sgl b${nowrite, noexecute, global, concatenate),
own = Sown$;

! Structure declarations used within this
! module.

b wd
i
o

d e

i o

) e

)

Also change the attributes for the psect ‘‘global’'’ so that
3688.l data will not be linked starting at absolute address

structure
‘e

! R(25 register accessing structure.
This
structure allows R(C25 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
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>;

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

SEQ 72

ICZRCH2.816:2°(6)

SREE
B oBHD
2% &
CONO
VS NN -0 © g288% WR=O
SEIKIRER=S 383232323% 1334 Wh=O 3VNVNVNN

d wd rg—
b

e
b
b

—_,—m

VIS WN=O

D
D =D
D
d
b =D
D —d
D
D oD —d
D
D
—d

NINNNNNYN NNNNNNNNY

333s3s3asas

—d

b e

d —d

oMM

PR PR PR PRPR PRI TR
e
TR IR R A

R
R
R

R R

TRTR

TRTR TR

LADA

DADR DR TR LA TN 1Y

CZRCH RC25 DISK FORMATTER
GLOBAL DATA SECTION

11-Jul-1983 13:05:97
7=Jul=1983 08:21:37

Pa
8
VAX=-11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE.AZTEC ICZRCH2.B16:2°(7)

?:bttl 'GLOBAL DATA SECTION'

i The global data section contains data that are used
!

in more than one test or module.

glob?l

g Communication area Declarations
COM_AREA : blockvector [REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ, 2, word]l,
HEAD_AREA : ref block [4, word] field (HDRTFIELD),
RECEIVE RING : ref blockvector [REC_ALLOCATE, 2, word] field (DSC_FIELD),
SEND_RIRG : ref blockvector [SND_ALLOCATE, 2, word] field (DSC_FIELD),
REC-ENVELOPE : blockvector CREC_ALLOCATE, RB_SIZE + 2, word] field (ENV_FIELD),

SND_ENVELOPE : blockvector [SND_ALLOCATE, SB_SIZE + 2, word] field (ENV_FIELD),
FCT_BU
block [256, word]l,
REC_BUF : block [RECB_SIZE, word) field (RECB_FIELD),

SND"BUF : vector [SNDB_SIZE,

word]l,

OUTSSTD_BUF : blockvector [fiEC_ALLOCATE. 2, word] field (OUTSFIELD),
RET_ENSAD : ref block [RB_SIZETM+ 2, word) field (ENV_FIELD);

glob?l bind

g Diagnostic supervisor printing ascii format strings.
FMT1 = uplit (Rasciz2'INXT'),

!Print one ascii string

pointer

= uplit (Zasci2"XNINZAINITIALIZING RC25 CONTROLLER ADDRESS:XSZ06ZA(0)2IN')

FMT3 = uplit (Xasciz2'INIALOGICAL UNIT XD2XZA(D)XSZAPHYSICAL UNIT ID2XA (D) TSTAFORMAT ABORTED'),

FMT4 = uplit (Zasci2'INXAMICRO CODES MOD 16 VERSION NUMBER =XSZ02ZA(0)IN‘),
FMTS = uplit (XZasci2'INXABRINGING ONLINE: LOGICAL
UNIT ZD2XA(D)XSXAPHYSICAL UNIT ZD2ZA(D)ZIN'),
FMT6 = uplit (Zasciz'INXASFTLERR= NON-EXISTENT RC25 CONTROLLER ADDRESS ZO06ZA(0)2IN‘'),
FMT7 = uplit (Zasciz2'SAFORMATTING PHYSICAL UNIT XZD2XA(D)ZIN'),
PID_FMT = uplit (Xasci2"INXAFORMATTER PROGRESSING:
PID HI=Z06XA(0)XSXSZAPID LO=X06%A(0)*),

CRLF = uplit (Xasciz'IN'),

gCRLF = uplit (Xasciz'ININININININININ®),

g Ring base address declaration

qucsnse = COM_AREA [REC_BASE],
'

MSGADR = REC_BUF [MSG_TXTI;
glob?l

g Miscellaneous data declarations

DATETXT : vector [12 bitel.
FLG_WRD : bitvector £163,

'Operator data input storage
'Global flag uors

OVSA : word,

!Overlay section starting

NEX_FLAG : word,

NXT_CRN : byte,
]
RET_STATUS : word initial (%0°'000000*),

LUN : word

PID_SAVE : vector [2, wordl,

'Non-existent R(C25 register flag

adrs

!Stores next cmd ref number
!Saves various return status codes

!Stores logical unit number being formatted

iSaves proces indicator word

o
i o

RC25_ADDR : ref RC25 field (ISD_FIELD),

e e

VvEC_ADDR : word,
BR_CEVEL : word,
UNTT_NO : word
PTBL_PTR :

:J‘NN
-—c»ogLughnghunrucroervounewnunn o
N

ref vector [4, word],

'Controller register access structure
'Interrupt vector address storage
'Bus request level storage
'Unit number to format storage
!Stores P_Table base address

g Dup Protocol data structures
ie

%Reserved field mask structure declaration
RSVD STRUCT govectgr [4, word] preset (

= Ix'002FF°,
*x'0000°,
Zx*'0700°

Ix'07FF'),

'Reserved SA re? fields definitions
!Step one rsv d ielg

'Step two rsvd fiel
'Step three rsvd field
'Step four rsvd & ucode field

; Init Sequence Data_Structure declaration
lSD_?TRUCT : blockvector [4, 2, word) field (ISD_FIELD) preset (

one read SA register field declaration
WRDO,
WRDO,
WRDO,
WRDO,
WRDO,
D0,
WRDO,

ERR_BIT] = 0,
STP_FIELD] = %b'0001°,
SIR_NV] = 0,
SIR_QB] = 1,
SIR_DI] = 1,
SIRTOD] = 1,
STIR_MP] = 1

WRDO, STRZRSVD)= £x'3f°,

'Error bit
'AlLL step bit fields
'No host inter vec settable adrs
'Mask out
'Enhanced diag implementation
'Mask out
'Mask out
'Reserved field

one write SA register field declaration
WRD1,
WRD1,
WRD1,
WRD1,
WRD1,
WRD1,

ERR_BIT] = 1,
S1W_WR]= 0,
S1W_CRING]= SND_SIZ,
S1W_RRING]= REC_SIZ,
S1W_IE)= 0,
S1W_VADR]= %0°'33°,

'Error bit
'‘Diag wrap around

!Nunger of Send-ring slots ‘pwrs of 2°

'Number of Receive-ring slots ‘pwrs of 2°
'Init Sequence interrupt request
'Interrupt vector address

two read SA register field declaration
WRDO,
WRDO,
WRDO,
WRDO,
WRDO,
WRDO,
WRDO,

ERR_BIT] = 0,
STP_FIELD] = %b'0010°,
S2R_PTYP]= 0,
S2R°BIT7]= 1,
S2R_WR]= g.
S2R_CRING]= SND_SIZ,
S2R_RRING]= REC_SIZ,

'‘Error bit
'ALL step bit fi e
‘Port ty?e
‘Echoed IE b it f om step one write
'Echoed bit 1% ¢ om step one write
'Echoed bits 3=5 from step one write
'Echoed bits 0-2 from step one write

e
o
e
e e o

VAX=11 Bliss=16 V3=555
[NEALE.AZTEC
SPIDER:SUSERS

g Hardware P_Table storage declarations

) ) D b - cnd

) ) - o

b cd -

SINNNNNNNNNNNNNNNNNSNY ~
NNOONONONONONONONONONTINUTIN VT w

11=Jul=1983 1 :05:g7
7=Jul=1983 08:21:37

!Next send Descriptor slot
!Next receive Descriptor slot

NSD_SLOT : word,
?RD_SLOT 3 word,

i o

b b b wd b b b b b b b b b e e e o o o

745

—

e e B Be e Be B0 8000000000000 %0 8000000009000 0000%0% 05000, %9008, % 900000098509, % 0, IIETETATE

GLOBAL DATA SECTION

NNNNNNNNNNSNSN NNNNNNNNNNNNNN
N NININININININININ)
= b b
S B
WWUWWWWWWW

PETRE PRTR

PRLA

LA LRDR TR

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

CZRCH2

sea 74

2°
ICZRCH2.816:(7)
-]

T T

CZR CH2
REV A PATCH 00

DAT
DAD TR

;aLxl. WRD1, S2W_LRBASE]= RINGBASE,
]

t is loaded within

PRP
TR TR PATR

i [BLKT, WRD1, séui=0,

'Adapter purge interrupt request

E Step three read SA register field declaration
'Error bit

SEJIFIRIL &
~ -~

BLK2, WRDO, STP_
“FIELD] = lb 0100'
K2, WRDO, S3RRSVD]= %o’
[BLK2, WRDO,S3R”IE]= O,

VIS

D
)
—_—

'All step bit fields
'Reserved
'Echoed IE bit from step one write

BLK2, WRDO, S3R_VADR]= 10'33'

'Echoed VADR from step one write

! Step three write SA register field declaration

[BLK2, WRD1, S3wW_PP]=
0

[BLK2, WRD1, S3W_uaaAsei-

'Purge £ Poll test request

'Ring base high address

g Step four read SA register field declaration
ERR_BIT]
= 0,

'Error bit
‘ALl step bit fieids

STP_ FIELD] = !;1000°,

NN =

8“8@@
g [=1=]

e
e
e
e
d
e

d e

T A
TR
TR IR

D —

000000
00Co
—-=00 o
—-oom ~

[BLk2, WRDO, ERR_BIT]
= 0,

'Reserved

'Mask it out
'Mask it out

SGRTVER] = Zx'f'.

5 Step four write SA register field declaration

[BLK3,
[BLK3,
[BLK3,
(BLK3,

WRD1,
WRD1,
WRD1,
WRD1,

S4W_RSVD]= 80'377'

S4W_BURST)=
S4W_LF]= 0s
S4W_G0J= 0

'Reserved

'Max number longwords per NPR xfer

!Go bit

SEO 75

SPIDERSUSERS: [NEALE .AZTECICZRCH2. 916 2(7)

!Ring base lower address

! the bgnbn t code due to
t e inability
to field
! select
bits <1
0> from the ringbase adrs

A TR

PR PR PR PRPR TR

NOTE:

i1 The adapter purge interr
]

R TR
A
A
A
T R T A T
R
A

1:37

GLOBAL DATA SECTION

VAX=11 Bliss=16 V3=555

§ Step two write SA register field declaration

(TR

A A

11=Jul- 1983 16:0 5:07
7=Jul- 1983 08:2

CZRCH RC25 DISK FORMATTER

'Last fail request

VAX=11 Bliss=16 V3=555

' The global text section contains format statements,

i messages, and ASCII information that are used in
! all modules.

glob,l bind

g Self-detected fatal port/controller errors

(Xasciz' INTASFTLERR= RING WRITE (PARITY OR TIMEOUT)*),
(Yasciz'INXASFTLERR- INTERRUPT MASTER®)

(Yasciz'INIASFTLERR= INSTRUCTION LOOP TIMEOUT'®),

e B

o wbo

(3asciz' INIASFTLERR= HOST ACCESS rxneouf'>
(Zasciz' INYASFTLERR= CREDIT LIMIT EXCEEDED®)
(Yasciz' INYASFTLERR- BUS MASTER ERROR'),

e o X

de ady by wbe wde wbe

!<BLF/PAGE>

(Yasc iz’ INYASF TLERR- UNRECOGNIZABLE ERROR CODE'),
(Yasciz'INXASFTLERR=- ENVELOPE/PACKET READ (PARITY OR TIMEOUT)'),
(Yasciz'INXASFTLERR- ENVELOPE/PACKET WRITE (PARITY OR TIMEOUT)'),
(Zasciz' INYASFTLERR= CONTROLLER ROM AND RAM PARITY®),
(Yasciz' INXASFTLERR= CONTROLLER RAM PARITY'),
(Yasciz' INXASFTLERR= CONTROLLER ROM PARITY®),
(Yasciz'INIASFTLERR- RING READ (PARITY OR TIMEOUT)®)

o o X

o e K

o wdo wdy wdy wbo by by wbe

o wdy wbs wbo wdo

e X

PFE_STRUCT = uplit (

(%asc iz’ INYASF TLERR- DIAGNOSTIC CONTROLLER FATAL ERROR'),
(%asciz'INSASFTLERR= INVALID CONNECTION IDENTIFIER®),

(Zasciz'INYASFTLERR= INTERRUPT WRITE'),
(Xasciz'INSASF TLERR- MAINTENANCE READ/WRITE INVALID REGION IDENTIFIER®)
(Zasciz'INYASFTLERR- MAINTENANCE WRITE LOAD TO NON-LOADABLE CONTROLLER'),
(Yasciz'INYASFTLERR= CONTROLLER RAM ERROR (NON-PARITY)'),
(Xasciz' INIASFTLERR= INIT SEQUENCE ERROR'),

(Yasciz' INYASFTLERR- HIGH LEVEL PROTOCOL INCOHPAYIBILITV ERROR'),

(Yasciz' INYASFTLERR- PURGE/POLL HARDWARE FAILURE
°
(Yasciz'INZASF TLERR=- MAPPING agcxsrentasngz gnoa (PARITV OR TIMEOUT)')
:

vector

SEO 76
n

SPIDERSUSERS: [NEALE .AZTECICZRCH2. 816.2 (8)

7=Jul=1983 03:21:g7

!sbttl *GLOBAL TEXT SECTION'

55555555658555856555585

WD
WN=O VO~V SN = O VOOV

11=Jul=1983 16:05:07

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

WWWW

CONONWNES
NN =QOO NONW

PRRRERRE 20@0@0@
wwwwwg

e cd

b e

00 0o 0o G0

o o

D o

amgaammaaaoaa
NN = e b cd b wed d e
8'\"\)3'\”\)’\)
8

C
REV A PATCH

né

11-Jul-19g§ 16:g5:g7
7=Jul=1983
08:21:37

SPIDERSUSERS:[NEALE .AZTECICZRCH2. 816.2 (9)
VAX=11 Bliss=16 V3=555

. Error message structure

o X

Ko X

EMSG_STRUCT =

(s o
e o
o o
e oot e
L
T
R
L e T T TR

6666666666686

ViV

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

uplit

(¥3sciz’ INIAS than- RESPONSE STATUS ERROR:%S').

(!asciz'!N!ASFTLERR- HOST/CONTROLLER OUT OF sso ).
(Yasciz' INYASFTLERR= REMOTE PROG NOT RUNNING')

(Zasc
iz INXASFTLERR= UNKNOWN RETURN_STATUS CODE"),
(Yasciz'INYASFTLERR= COM AREA INIT ERROR®)
(Xasc iz INYASFTLERR= PORT/HOST SYNC ennoa'S
(Yasciz' INYASFTLERR- MESSAGE LENGTH ERROR')

(Yasc iz INXASFTLERR= UNKNOWN ENDCODE aecsxvéo'>
(Yasciz' INYASFTLERR= ADAPTOR PURGE ERRon
(Yasciz'INYASFTLERR= UNKNOWN INTERRUPT'

(!asciz'!NZASFTLERR- INIT SEQ STEP rxnso our°>
(Zasciz'INIASFTLERR= INIT SEQ COMPARE ERROR'),

uplit (Yasciz’ INXASFTLERR- UNEXPECTED ATTENTION END MESSAGE RECEIVED'),

(Xasci2'XNXASFTLERR= UNEXPECTED COMMAND OPCODE IN END MESSAGE RECEIVED®),
(!asciz'!N!ASFTLERR- UNEXPECTED SERIOUS EXCEPTION END MESSAGE RECEIVED®)
(Xasciz2"INXASFTLERR= INVALID COMMAND END MESSAGE RECEIVED®),
(Xasciz'INZASFTLERR= UNKNOWN MESSAGE TYPE RECEIVED')

—

b o

D e

D e e

SISEETRCR SRS amaaaaaaamg

WA
—OVRNOVSWNN=OY

CZRCH2
REV A PATCH 00

(Xasciz"INXASFTLERR= OUTSTANDING COMMAND BUFFER FULL)

1873
up

(Xasciz'XNXASFTLERR= OUT STANDING COMMAND BUFFER OUT OF SYNC ERROR'),
(!asciz'iN!ASFtLERR- UNKNOWN MESSAGE NUMBER RECEIVED®)
(Xasciz"INXASFTLERR= FILE READ ERROR'),
(Zasciz'INXASFTLERR=- PORT/CONTROLLER TIMEOUT ERROR'),
(%asciz'INYASFTLERR- ILLEGAL FCT FILE LENGTH')) : vector [231,

'<blf/page>

SEO 7

CZRCH2
REV A PATCH 00

895

P S

e e I

3333352E2ER5R2

1877
1878
1879

VAX=11 Bliss=16 V3=555

‘ Self-detected fatal port/controller errors
RC STRUCTURE
=

uplit
(

uplit T!asciz'!N!ASFTLERR= VAX READ/WRITE ERROR ON INTERRUPT')
uplit(Xasciz"XNXASFTLERR= INCONSISTENCY AT U.BFIL'

uplit(Xasciz2'XNXASFTLERR= INCONSISTENCY AT U. BHTY')

uplit
uplit
uplit
uplit

(Xasci2'XNYASFTLERR= INCONSISTENCY AT U.ALOC'),
(Zasciz2'INXASFTLERR- INCONSISTENCY AT SERVO ENTRY (PIP SET)*),
(Xasciz2"XNXASFTLERR= INCONSISTENCY AT SERVO ENTRY (ERR SET)'),
(Xasciz"XNXASFTLERR= INCONSISTENCY AT U.SEND'),

uplit (Xasci2"XNXASFTLERR= INCONSISTENCY AT U.RECV').
uplit (Xasciz'XNXASFTLERR= INCONSISTENCY AT U.ATTN'),
uplit (Zasciz'!NZASFTLERR- INCONSISTENCY AT U.ONLN')

uplit (Xasciz'INXASFTLERR- ILLEGAL D REQUEST (U.QDRQ}'),
uplit
uplit
uplit
uplit
uplit
uplit
uplit

(%asciz'XNXASFTLERR= FENCE-POST ERROR AT PROTAB'),
(Xasciz2'INXASFTLERR=- BAD PACKET DEQUEUED AT U. DONE ),
(Xasciz"XNXASFTLERR= UNEXPLAINED D-PROC SUSPENSION (U..TDS)*),
(Zasci2'INXASFTLERR=- DUP PACKET D=-Q FAILED (XFC 34/735)'),
(Xasciz2'INXASFTLERR= INCONSISTENCY AT U.HTST'),
(Xasciz'XNXASFTLERR= INCONSISTENCY AT U.SEKO'),
(Xasciz'INXASFTLERR= INCONSISTENCY AT U.CKSV'),

uplit
uplit
uplit
uplit
uplit

(!asciz'INlASFTLERR- D.CSF FOUND ILLEGAL OPCODE').
(Xasciz"XNXASFTLERR= UNKNOWN BAD DRIVE STATUS AT D DSTS'),
(Xasciz"XNXASFTLERR= ILLEGAL XFC EXECUTED BY DM'),
(Xasciz'XNXASFTLERR- D PICKED UP A ZERO SCB.DB'),
(Xasciz'XNXASFTLERR= INCONSISTENCY AT D IDLE LOOP*),

uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit
uplit

(Xasciz'INXASFTLERR= UNKNOWN DISPLAY FAULT CODE AT D.DFLT
(Xasciz'XNXASFTLERR- DRIVE NOT FAULTING IN P.OFLN STATE')
(Xasciz2'XNXASFTLERR- U POWER UP DIAGNOSTICS FAILED®),
(Xasciz'INXASFTLERR- D POWER UP DIAGNOSTICS FAILED'),
(Zasciz®INXASFTLERR- ADAPTER_CARD FAILURE (Zasciz'XNXASFTLERR- EC.TMR TIMED OUT'),
(!ascvz'ZN!ASFTLERR- U.SEND/U.RECV RING READ INCONSISTENCV ).
(Xasciz'INXASFTLERR- UNKNOWN WAITRV REASON AT D.RVCT'),
(Zasciz"INXASFTLERR=- D.ARCS DID NOT FIND CLOSEST UNDONE ZONE* ),
(Xasciz'INXASFTLERR- U.SEEK FOUND SEEK TO ILLEGAL TRACK'),
(Xasciz'INXASFTLERR= U.HTST INIT DIAG DMA WRITE FAILED')

uplit (Xasciz2'INXASFTLERR= D.OPCD FOUND ILLEGAL OPCODE')

O
d cd d o e wd e =
POND) = e

d e

VOOV OOV OVOVOOOOVOO

—d e

= OWVWONOWVISNWN=OVoO~N

e wd

uplit (Zasciz'XNXASFTLERR- DM WORD COUNT ERROR ON HOST DHA/SEND/?ECV')

uplit (Xasciz'INXASFTLERR= U.HTST INIT DIAG DMA COMPARE FAILED® s

uplit (Zasciz'XNXASFTLERR=- U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET*),
uplit (Zasciz2'XNXASFTLERR= MASTER DRIVES ACLO ASSERTED')
'<blf/page>

)

eo 78

SPIDERSUSERS:[NEALE .AZTECJCZRCH2. 816.2 (10)

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

: vector [39],

CZRCH
2

CZRCH RC2S DISK FORMATTER

REVA PATCH 00 GLOBAL TEXT SECTION
:

}8%(3.

1922

1925

SDU STRUCT = uplit

1927 uplit (Zasciz'IAINVALID COMMANDAN')

1929

wuplit (Xasciz'XANO REGION SUITABLE!N'

1931
1932

wuplit (Xasciz'XALOAD FAILUREZIN'),
wuplit (Xasciz'XASTANDALONEZN®)

1934

!<blf/page>

3
:
:

' Dup return status codes

1926 uplit (Xasciz'XA SUCCESSFUL!N')

1928 wuplit (Xasciz2'XANO REGION AVAILABLEfN')
1930 unrlit (Xasciz'XAPROGRAM NOT KNOW!).
1933

)

: vector [7],

11=Jul=1983 16:05:07

7=Jul=1983 Og:ghg?

VAX=11 Bliss=16 V3=55

SEO 79
14

SPIDERSUSERS:[NEALE. AZYECJCZRCHZ 816.2(11)

CZRCH2

CZRCH RC25 DISK FORMATTER

11=Jul=1983

—— ————r—r—r——r—r—r

HSCP STRUCT =

uplit

(!asciz'!ASUCC SS!N ¥

(!asciz ZAINVALID COHHAN IN°),

(!asc 2 ' XACOMMAND ABORTED!N')
(Xasciz2’ !AUNII-OFFLINE!N')

(Zasci2’ !AUN!T-AVA!LABLE!N
(Zasciz'SAMEDIA FORMAT ERROREN'),
(Xasciz2"XAWRITE PROTECTEDEN'),

(Xasciz'XACOMPARE ERROR!N')
(!asciz'!ADATA ERRORZN') ,
(Xasci2"XAHOST BUFFER ACCESS ERROR!N')

(Xasciz2"XACONTROLLER ERRORZN')
(Xasciz2"XADRIVE ERRORZIN'),
(!asciz'!AHESSAGE FROM AN INTERNAL DIAGNOSTICXEN')
: vector [13],

'<8LF/PAGE>

16:05:07

7-J3[-198 03:21:g7

i MSCP return status codes

6666666666688

W= O VNS
W =0V~

viviwn

Y
[ QR W

0000

OO0
RRRRRRV/RVRRR WWW
&

1935

-ho do e
e cbs wbe wby wbs wbe abs abs wbe wbe
~ e~ e dadadaiaialada o ool Wewsosa

REV A PATCH 00 GLOBAL TEXT SECTION

VAX=11 Bliss=16 V3=555

SEO 80

SPIDERSUSERS [NEALE.AZTECICZRCH2. 816.2 (12)

CZRCH2

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION

7=Jul=1983 08:21:37

:
:

1954
}ggz

!
' Init code error and informational messages

1957

DATHSG
u?lit (!asciz'ENTER DATE <MM=DD=YYYY> '),

1960

:
3

:
:
3

1958

VAX=11 Bliss=16 V3=555

up Lit (Sasciz'INYANO ADDITIONAL UNITS TO FORMAT = ABORTING'),

PHRHSG uplit (Zasciz2'XINXASFTLERR= INIT CODE RE-ENTERED DUE TO PWR FA!L')

1961

TO_MANY UNITS

1962

lit (!asciz'!N!ASFTLERR- ABORTING HOST AND REMOTE PROGRAMS'),

= uplit (Xasciz'INIASFTLERR- ILLEGAL NUMBER OF UNITS SELECTED'

UNITS = uplit (X%asci2"INZASFTLERR= LIMIT OF SIXTEEN UNITS PER FORHATING SESSION'),

1963
1964

B800T
FAI[URE = uplit (Xasci2'INXASFTLERR= RC25 CONTROLLER lNlTlALIZATION ERROR'),
PROTO_VIOLATION = uplit (Xasciz'INIASFTLERR= PROTOCOL VIOLATION ERROR')

}ggg

INACTIVE _DOP_SERVER
= uplit (Xasciz'INXASFTLERR- DUP SERVER INACTIVE AFTER EX_SUP_ PROG COMMAND'),

1965
1966

PORT_INIT ERR = uplit (Xasciz'INXASFTLERR=- COMMUNICATION AREA INIT ERROR')
ACTIVE DUP_SERVER = uplit (Zasciz' INYASFTLERR- DUP SERVER ACTIVE AFTER INITIALIZING'),

}393

i Locol load media DM module file name.ext

s
3

1971
}3;%

'Dn FNSEXT= UPLIT (XASCIZ'AZFMTR.SAV'),
fCt
—“REQ_MSG
= uplit (Xasciz'ENTER FCT FILE NAME TO RESTORE (FILENAME.EXT): *),

}g;g

: Hardware parameter coding questions

1976

:
:

1978
}3;8

1_IP = uplit (%asci2®RC25

ADDRESS'),

1977

HH02 VECTOR = uplit(Zasciz'RC25 INTERRUPT VECTOR ADDRESS')

}gg}

' Software parameter coding questions

1983

SHQ1_UNATT
= uplit (!asciz'FORflAT IN UNATTENDED REFORMAT MODE'),

:
:
:

1988
1989
1990

:
:
3

Q3°BR = uplit (Xasciz'RC25
HU
“Q4_UNIT = uplit (X¥asciz'UNIT

1984
1985
}ggg

BUS
REQUEST
LEVEL')‘
NUMBER TO BRING ONLINE®),

SW_|
"2
_NOTICE = uplit (Xasci2"INIArennnnannnnnevtannsns NOTICE ntttuttntnntu"')
SW_Q3_OPER
= upl1t (Zasciz'INXA
OPERATOR MUST BE PRESENT IN ATTENDED HODE o
SW_Q4_UNATT
= uplit (Zasciz'INZA
RUNNING IN UN-ATTENDED REFORMAT MODE');
end
eludom

.TITLE
.IDENT
000000
000000
000003
000006

000007
000010
000010
000011
000012
000014
000016

101
060
0000006
002260
000000G

.PSECT
LSNAME
: : LASCII
LASCII
BYTE
BYTE
LSREV::
ASCII
LASCII
LSUNIT::.WORD
LSTIML::.WORD
LSHPCP::.WORD

000022
000024

000140°
000154°

LSHPTP::
. WORD
LSSPTP::.WORD

103
103
000
000

000020 0000006

132
110

122
040

LSSPCP: : . WORD

CZRCH2 CZRCH RC25 DISK FORMATTER

/REV A /

AASCODE,
/CZR/
/CH /
O

LSHW
L$SW

/A/
70/
TSPTHV
2260
LSHARD

LSSOFT

SPIDERSUSERS: CNEALE .AZTECICZRCH2. 816.2(13)

1959

ABO"MSG =

SEO 81

REV A PATCH 00

000026

AX=11 Bliss=16 V3=555

GLOBAL TEXT SECTION

SLAST

S$DISPATCH

OOOWW

LSLADP: : . WORD
LSSTA:: .WORD
.WORD
L$CO::
LSDTYP::.WORD
.WORD
LSAPT::

UORD

172150

000154
000005
000000

000000C
000001
177777
177777

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

LSHWLEN::
.WORD

HW.IP.ADRS::
.WOR
HW.VECTOR::
.WORD
HW.BR.LEVEL::
.WORD

HW.UNIT.NO::
.WORD

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

LSNDSW: : .BLKW
LSPROT : : . WORD
-WORD

—SOOO

UORD
L$DISPATCH

LSAU
LSDU
0
LSDESC
-73743
LSERRTBL
LSINIT
LSCLEAN
LSAUTO
LSPROT

Dbl
ed e

LSAUT:: .WORD
LS$DUT:: .WORD
LSLUN:: .WORD
LSDESP: : .WORD
LSLOAD: : .WORD
LSETP:: .WORD
LSICP:: .WORD
LS$CCP:: .WORD
LSACP:: .WORD
LSPRT:: .WORD
LSTEST::.WORD
LSDLY::
.WORD

000000C

SEO 82
1

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

CZRCH RC25 DISK FORMATTER
OO0OONroooor:

CZRCH2

<<LSNDHW=LSHWLEN>/2>

-5630
154

5
0
1

<<LSNDSW=LSSWLEN>/2>

CZRCH2
REV A PATCH 00
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
0002
000203
0002
000207
000212
000215
000220
000223
000226

045
124
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
040
104
040
104

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

116
000
116
045
116
m
1m
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
M
101
132
107
103
040
116
117
105
101
122
123
123
066
050
045

P.AAA:

045
117
103
040
111
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
111
117
117
123
117
061

P.AAD:

P.AAB:

11=Jul=1983 16:05:97
7=Jul=1983 08:21:37
JWORD

.PSECT
ASCII
LASCII
ASCII
LASCII
+ASCII
LASCII
+LASCII
+LASCII
«ASCII
LASCII
+ASCII
+ASCI1
+ASCII
+ASCII1
+ASCII
+ASCI1
LASCII
ASCII
+LASCII
LASCII
LASCII
.ASCII
+ASCII
LASCII
CLASCII
.ASCI1
LASCII
LASCII
LASCII
JASCII
LASCII
+ASCII
LASCII
LASCII
+LASCII
LASCII
JASCII
LASCII
LASCII
+ASCI1
«ASCII
LASCII
+ASCI1
+ASCI1
LASCII
LASCII
LASCI1
+ASCII
LASCII
+ASCI1
LASCII
LASCII

SPLITS, RO,
/INX/
/1/<00><00>
/INX/
/NIA/
/IN1/
/TIA/
/LI1Z/
/ING/
/_RC/
/725 /
/CON/
/TRO/
/LLE/
/R A/
/DDR/
/ESS/
/:%S/
/%06/
/XA(/
/00%/
/N/<00>
/3INX/
/ALO/
/GIC/
/AL /
/UN1/
/T %/
/D2%/
/A(D/
/)%XS/
/%AP/
/HYS/
/ICA/
/L W/
/NIT/
/7 %D/
/2%A/
/(D)/
/%S%/
/AFO/
/RMA/
/T A/
/BOR/
/TED/
<00>
/INX/
/AM1/
/CRO/
/ CO/
/DES/
/7 MmO/
/D V/

GBL

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

CZRCH2
REV A PATCH 00
000231
000234
000237
000242
000245
000250
000253
000256
000261
0002
000267
000270
000273
000276
000301
000
00030
000312
000315
000320
00032
000326
000331
000334
000337
000342
000345
0003
000353
000356
000361
000
00036
000372
000375
000400
000403
000406
000411
000414
000417
000422
000425
000430
000433
000436
000441
000444
000447
000452
000455
000460
000463
000466
000471
000474
000476

066
105
m
040
115
122
045
117
101
051
000
045
101
m
m

040
114
105
114
m
114
116
040
062
050
045
101
151
103
040
14

045
045
104
116
045
101

124
122
040
116
130
124
124

103
040
116
117
105
101
122
123
117
101
051
000
045

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
040
122
117
116
102
040
123
062
050
045

126
123
116
125
105
075
045
045
117
116

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

045
122
107
107

P.AAE:

116
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
065
117
122
114
040
104
123
045
045
117
116

106

11-Jul=1983 16:05:07
7=Jul=1983 08:21:37
LASCII
+ASCI1
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII
+LASCII
LASCII
LASCII
.ASCII
+ASCII
+ASCII
+JASCII

/76 V/
/ERS/
/ION/
/7 N/
/MBE/
/R =
/%S%/
/02%/
/A(0/
/7)AN/
<00>
/INX/
/ABR/
/ING/
/ING/

LASCII
LASCII
LASCII
LASCI1
ASCII
LASCII

/%D2/
/ZA(/
/D)%/
/N/<00><00>
/INX/
/ASF/

LASCII
LASCII
«ASCI1
+ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
+LASCII
+ASCII
+ASCII
LASCII
LASCII

P.AAF:

+ASCII
+ASCII
LASCII
LASCII
LASCII
LASCII
LASCII

P.AAG:

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

/7 ON/
/LIN/
/E: /
/LOG/
/ICA/
/L W/
/NIT/
7/ XD/
/2%A/
/(D)/
/%S%/
/APH/
/YS1/
/CAL/
/7 UN/
/1T /

/TLE/
/RR=/
/ NO/
/N-E/
/X1S/
/TEN/
/T R/

/C25/
/ CO/
/NTR/
/0LL/
/ER /
/ADD/
/RES/
/S %/
/06%/
/A(0/
/)AN/
<00><00>
/%AF/

SEQ 84

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

CZRCH2
REV A PATCH 00
000501
0005
000507
000512
000515
000520
000523
000526
000531
000534
000537
000542
000544
000547
000552
000555
000
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
000724
000727
000732
000735
000740
000743

000744

117
101
111
040
131
103
040
111
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
11
102
040
122
040
104
000

045

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
122
124
116
120
123
101
125
124
104
101
051
000
116
106
115
124
040
117
105
1
072
120
040
075
066
050
045
123
120
040
075
066
050
000
116

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

115
124
107
110
m
114
116

+ASCII1
LASCI1
LASCII
+LASCII
+ASCI1
+ASCII
LASCII

/ORMW/
/ATT/
/ING/
7/ PW/
/YSI/
/CAL/
/7 UN/

062
050
045

+ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
+LASCII
LASCII
+ASCI1
+ASCII
+ASCII
LASCII
+ASCII
LASCII
+ASCII
LASCII
LASCII
+ASCII
+LASCI1I
LASCII
+ASCI1
+LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
CLASCII
+ASCII
LASCII
LASCII
+ASCII
LASCII
+ASCI1
+ASCII
«ASCI1
JASCII
+ASCII
LASCII
LASCII
+ASCI1
+ASCII
+ASCII
+ASCI1
LASCII
LASCII
ASCII

/%D2/
/XA(/
/D)%/
/N/<00>
/INX/
/AFO/
/RMA/
/TTE/
/R P/
/ROG/
/RES/
/SIN/
/G: /
/ Pl/
/D W/
/1=%/
/06%/
/A(0/
/)XS/
/%S%/
/APl/
/D L/
/0=%/
/06%/
/A(0/
/)/<00><00>
/ZIN/<00>
<00>
/INX/
/NIN/
/INX/
/NIN/
/INX/
/N/<00><00>
/INY/
/ASF/
/TLE/
/RR=/
/7 UN/
/REC/
/0
/1ZA/
/BLE/
/ ER/
/ROR/
/ Co/
/DE/<00>
<00>
/INX/

040

CASCII

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

P.AAH:

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

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

P.AAJ:

116

045

P.AAM:

P.AAl:

P.AAL:

/1T /

SEQ 85

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

CZRCH2

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
000747
000752
000755
000760
000763
000766
000771
000774
000777
001002
001005
001010
001013
001016
001021
001024
001027
001032
001035

101
124
122
040
126
117
057
103
124
105
040
101
124
117
124
105
124
045
101

044
114
122
105
105
120
120
113
040
101
050
122
13
122
m
117
051
116
044

102
10
055
116
114
105
101
105
122
104
120
m
040
040
115
125
000
045
106

001043
001046
001051
001054
001057

122
040
126
117
057

122
105
105
120
120

055
116
114
105
101

1040

1062
001065
001070
001073
001076
001101
001104

124

122
105
120
mm
040

113
040
m
040
101
124
117

001115
001120
001122
001125

125
000
045
101

124
000
116
044

001133
001136
001141
001144
001147
001152
001155
881160
1163
001166

122
040
116
117
105
122
040
104
101
120

122
103
124
114
122
117
101
040
115
101

001174
001176
001201
001204
001207
001212
001215

000
045
101
124
122
040
116

000
116
044
114
122
103
124

001107
001112

001130

001171

103
124

114

040
115

124

124
105

114

124

P.AAN:

105

.ASCII
LASCII
.ASCII1
.ASCI1
ASCII

m
117
051
P.AAD:

105

/uT)/
<00><00>
/2INX/
/ASF/

ASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCI1

/RR=/
7 Co/
/NTR/
/0LL/
/ER /
/ROM/
7 AN/
/D R/
/AM /
/PAR/

.ASCI1

055
117
122
114
040
115
116
122
040
122

131

LASCII

P.AAP:

/RR=/

LASCII
LASCII
.ASCII
LASCII1

LASCII
_ASCII
LASCI1
LASCII
.ASCI1
LASCII
LASCII

/7 T1/
/MEO/

/TLE/

/1Tv/

<00><00>
/3NX/
/ASF/
/TLE/
/RR=/
/7 CO/
/NTR/

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

/TLE/

LASCil
LASCII
.ASCII
LASCII
.ASCII

LASCII
.ASCII

SEQ 86

Page

/ASF/
/TLE/
/RR=/
/7 EN/
/VEL/
/OPE/
<57>/PA/
/CKE/
/T R/
/EAD/
7 (P/
/ARl/
/1Y /
/OR /
/TIM/
/EOU/
/T7)/<00>
/INX/
/ASF/
7/ EN/
/VEL/
/OPE/
<57>/PA/
/CKE/
/T W/
/RIT/
V/E (/
/PAR/
/1Tv/
/ OR/

LASCII1
LASCII

124
050
122
13
122

045
106
105
055
117
122

LASCI1
LASCII1
ASCI1
LASCII
LASCII1
.ASCI’
ASCI1
.ASCII
LASCII
.ASCI1
LASCII
LASCII1
LASCII
.ASCII
LASCII
LASCI1
LASCII
.ASCII
LASCII
.ASCII1

105
127

045
106

7=Jul=1983 03:21:37

VAX=11 Bliss=16 V3=555

;

11=Jul=1983 16:05:07

DISK FORMATTER

CZRCH RC25
CZRCH2
TEXT SECTION
A PATCH 00 GLOBAL
REV
001220
001223
001226
001231
001234

001237
001242
001245
001250

001253
001256
001261
001264
001267
001272
001275
001300
001303
1306
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

13
045
101
124

122
040
116
117
105
122
040
122
13
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
M1
117
051
045
101
124
122
040
124
122
124
101

114
122
101
120
m

000
116
044
114

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

105
040
101
124
117
124
105

124
000
116
044
114
122
122
107
122
105
120
m
040
040
115
125
000
116
044
114
122
mm
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
m
040

P.AAQ:

P.AAR:

101
050
122
131
122
m
117

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

P.AAS:

045
106
105
055
116

P.AAT:

122
120

115
124

7=Jul=1983 08:21:?7

LASCII
.ASCII
ASCI1
LASCII
LASCII

/0LL/
/ER /
/RANV/
/7 PA/
/RIT/

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

/RR=/
7 Co/
/NTR/
/0LL/
/ER /
/ROM/
/7 PA/
/RIT/
7v/7<00><00>
/iINX%/
/ASF/
/TLE/
/RR=/
/ Rl/
/NG /

LASCII
.ASCII
ASCII1
LASCI1

.ASCI1
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII1

051

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

7Y/7<00><00>
/3INX%/
/ASF/
/TLE/

/REA/
/D (/
/PAR/
/ZITV/
7/ OR/
7 T1/
/MEO/

/uT)/
<00><00>
/3INX/
/ASF/
/TLE/
/RR=/
7/ RI/
/NG /
/WR1/
/TE /
/(PA/
/RIT/
/Y O/
/R T/
/IME/
/0UT/
/7)/7<00>
/2INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/TER/
/RUP/
/T W/
/AST/

VAX=11 Bliss=16 V3=555

SEQ 87

Page 2

16;2 (13)
RS
.AZTECICZRCH2.8
RSUSE
: CNEALE
SPIDE

CZRCH2

REV A PATCH 00
001471
001474
001477
001502
001505
001510
001513
001516
001521
001524
001527
001532
001535
001536
001541
001544
001547
001552
001555
001560
001563
001566
001571
001574
001577
001602
001605
001610
001613
001616
001621
001624
001627
001632
001635
001640
001643
001646
001651
001654
001657
001662
001665
001670
001673
001676
001701
001704
001707
001712
001715
001720
001723
001726
001731
001734
001737

105
045
101
124
122
040
123
101
105
040
115
125
000
045
101
1264
122
040
105
124
m
124
130
105
104
045
101
124
122
040
123
101
105
105
117
045
101
124
122
040
101
117
m
103
124
114
122
101
114
122
122
045
101
124
122
040
123

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:%5:07

GLOBAL TEXT SECTION
122
116
044
114
122
110
124
103
123
124
105
124

002
04
106
105
055
117
040
103
123
m
117
000

116
044

045
106
105
055
122
M
114
m
105
105
105
000
045
106
105
055
125
115
124
040
122
000
045
106
105
055
111
116
124
040
116
117
105
106
101
105
117
000
045
106
105
055
116
122

114

122
103
104
040
115
040
103
104
000
116
044
114
122
102
040
123
122
122
122
116

044
114
122
104
107
123
103
117
122
114
040
124
040
122
000
116
044
114
122
m
124

P.AAU:

P.AAV:

P.AAW:

P.AAX:

P.AAY:

7=Jul=1983 08:21:37

LASCI1
L.ASCII
LASCI1
LASCII
.ASCI1
LASCII
ASCII
LASCI1
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII
.ASCI1
LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCI1
.ASCI1
LASCI1
L.ASCII
LASCI1
LASCI1
ASCII
LASCII
LASCII
LASCII
.ASCII1
.ASCI1
LASCII
LASCII
LASCII
LASCI1
.ASCII
.ASCI1
.ASCI1
.ASCI1
LASCII
.ASCII1
LASCII
LASCI1
.ASCI1
LASCII
LASCII
.ASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCI1

/ER/<00>
/2INX/
/ASF/
/TLE/
/RR=/
7 WO/
/ST /
/ACC/
/ESS/
/7 TI/
/MEO/
/UT/<00>
<00>
/3INX/
/ASF/
/TLE/
/RR~/
7/ CR/
/EDIl/
/T L/
/ZIM1/
/T E/
/XCE/
/EDE/
/D/<00><00>
/2INX/
/ASF/
/TLE/
/RR=/
7/ BW
/S W
/AST/
/ER /
/ERR/
/0R/<00>
/3INX/
/ASF/
/TLE/
/RR~/
7/ DI/
/AGN/
/0ST1/
/1C /
/CON/
/TRO/
/LLE/
/R F/
/ATA/
/L E/
/RRO/
/R/<00><00>
/IN%/
/ASF/
/TLE/
/RR=/
7 IN/
/STR/

VAX=11 Bliss=16 V3-555

SEQ 88

Page

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

124
116
117
040
115
125

045
106
105
055

P.ABC:

a8A

e
i) B

P.ABB:

e B el e e
e
e
e
By g B bt Doy By By By Bt (et Bt oo B

P.ABA:

R e
e e R
g Sormg B b B by B

045
106
105
055
116
122
120
127
124
000
045
106
105
055
101
124
101
105
105
057
111
040
126
m
122
111
040
105
111
105

+ASC

+AS

e
e L L
R
R e R e e el
e O el
e Gy Py St By by ot S Gy ) G B Bt By G o Sy b

P.AAZ:

L e e
by b
g et S

045
106
105
055
116
114
040
116
103
117
m
116
106
122

e e e
oy St Gy oy ey B

By Bt B

(et B

+AS

wv
wm
w
alalaslslslalslislslslslslislslislslslslslslslelelelelelely]

103
117
114
120
111
117
000
116
044
114
122
11
101
104
117
105
111
040
105
11
105
000
116
044
114
122
11
105
125
040
11
000
116
044
114
122
115
116
116
103
122
104
122
105
116
114
040
107
116
104
124
11
000
116
044
114
122

125
1M
040
117
124
105
124
045
101
124
122
040
126
111
103
116
124
116
104
124
111
000
045
101
124
122
040
124
122
124
122
105
045
101
124
122
040
111
105
116
040
101
127
124
11
101
104
105
117
111
116
106
122
045
101
124
122

001742
001745
001750
001753
001756
001761
001764
001766
001771
001774
001777
002002
002005
002010
002013
002016
002021
002024
002027
002032
002035
002040
002042
002045
002050
002053
002056
002061
2
002067
002072
002075
002100
002103
002106
002111
002114
002117
002122
002125
002130
002133
0021
002141
002144
002147
002152
002155
0021
002163
0021
002171
002174
002176
002201
22
002207

11=Jul=19 3 16: 0 S: 07
7=Jul=19 3 08: 2 1 :37

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

CZRCH2
REV A PATCH 00

/1ER/
<00><00>

/AN%/
/ASF/
/TLE/
/RR=/
/ IN/
/TER/
/RUP/
/T W
/RI1T/

/E/<00><00>
/AN%/
/ASF/
/TLE/
/RR=/

SEQ 89
Page 24
VAX=11 Bliss=16 V3=555
.AZTECJCZRCH2.B16;2 (13)
USERS
: (NEALE
SPIDERS

CZRCH2
REV A PATCH 00
002212
002215
002220
002223
002226
002231
2234
002237
002242
002245
002250
002253
002256
002261
002264
002267
002272
002275
002276
002301
002304
002307
002312
002315
002320
002323
002326
002331
002334
002337
002342
002345
002350
002353
002356
002361
2
002367
002372
002375
002400
002403
002406
002411
002414
002417
002420
002423
002426
002431
2434
002437
002442
002445
002450
002453
002456

040
m
105
116
040
m
040
101
124
116
055
101
102
040
116
117
105
000
045
101
124
122
040
116
117
105
122
040
122
040
117
120
11
051
045
101
124
122
040
11
123
125
103
105
117
000
045
101
124
122
040
107
114
105
120
124
17

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
115
116
116
103
127
124
114
104
117
117
114
104
114
103
124
114
122

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

116
044
114
122
103
124
114
122
101
105
117
050
116
101
124
000
116
044
114
122
m
124
105
105
105
122
122

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

P.ABD:

116
044
114
122
110
110
105
114
122
117
114

045
106
105
055
1)
040
126
040
117
103
040

P.ABF:

P.ABE:

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
LASCII
+ASCII
.ASCII
+ASCII
LASCII
+ASCII
+LASCII
+ASCII
+ASCII1
+ASCII
LASCII
.ASCI1
+ASCI1
+ASCII
+ASCII
+ASCII
+ASCII
LASCII
.ASCII
.ASCII
+ASCI1
+ASCII1
LASCII
+ASCII
+LASCII
+ASCII
LASCII
+ASCI1
+ASCII
LASCII
«ASCII
+ASCII
LASCII
LASCII
.ASCII
+ASCII
+ASCII
«ASC1I
LASCII
LASCII
+ASCII
.ASCII
+ASCII
+ASCII1
+ASCII
LASCII
.ASCII
+ASCII
+ASCII
+ASCII
«ASCI1
+ASCII
+ASCI1
+ASCII
+ASCI1
LASCII
LASCII

/7 MA/
/INT/
/ENA/
/NCE/
7/ WR/
/ITE/
7/ LO/
/AD /
/T0 /
/NON/
/=LO/
/ADA/
/BLE/
/ Co/
/NTR/
/0LL/
/ER/<00>
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ Co/
/NTR/
/0LL/
/ER /
/RAN/
/ ER/
/ROR/
/7 (N/
/ON=/
/PAR/
/1TY/
/)/<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/1T /
/SEQ/
/UEN/
/CE /
/ERR/
/0R/<00>
<00>
/IN%/
/ASF/
/TLE/
/RR=/
/ H1/
/GH /
/LEV/
/EL /
/PRO/
/T0C/
/0L /

SEQ 90

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

040
101
124
117
124
105
124

000

]
R
e
e
R

105

055
125
105
117

040
122
101
040
m

122
000
045
106
105
055
101
m
040
107
124

P.ABH:

.AS

040
101

105

117
050
122
13
122

m
117
051

P.AAK:

<00><00>

P.AAL

<=xE<C—-O»

122

106

P.ABG:

333333343333

040

045

VOVOVOVOVVVOVOOOD

122
105

103
120
m
114
13
122
122

116
115
124
m
124
105
17
000
116
044
114
122
120
107
120
114
101
127
105
101
125
040
116
044
214
122
115
120
107
105
123

111
117
101
102
1M1
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
11
105
122
104
122
122
120
111
040
040
115
125
000
000674"*
000744*
001032°
001122°
1176"
001242°
001306'
001362°
001436°
001474°
001536°
001602°
001640°
001720°

alalaslalzlialsislslislaslialalalslslely] alalasliaslslialalyl

002461
002464
002467
002472
002475
0025
002503
002506
002510
002513
002516
002521
002524
002527
002532
002535
002540
002543
002546
002551
002554
002557
002562
002565
002570
002573
002576
002601
2604
002607
002612
002615
002620
002623
002626
002631
002634
002637
002642
002645
002650
002653
002656
002660
002662
002664
002666
002670
002672
002674
002676
2700
002702
002704
002706
002710
002712

oo
e

WO
NN

—\un

nNOo

O—
CoO~

11=Jul=1
7=Jul=1

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

CZRCH2
REV A PATCH 00

bl
CoCo
WwWw

SEQ 9N
Page 26
VAX=11 Bliss=16 V3=555
RS JCZRCH2.B16;2 (13)
: [NEALE .AZTEC
SPIDERSUSE

002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002741
002744
002747
002752
002755
0027
002763
002766
002771
002774
002777
003002
003004
003007
003012
003015
003020
3023
003026
003031
003034
003037
2
5
003050
3053
003054
003057
3062
003065
003070
003073
003076
003101
003104
003107
003112
003115

001766'
002042°
00
'
002176°
002276°
002356°
0*
002510°
002562°

003122
003125
003130
003133
003136
003141
003144
003147

045
101
124
122
040
113
127
122

003120

101
124
122
040
123
116
040
101
123
122
122
123
045
101
124
122
040
123
103
124
114
122
125

117
123

000
045
101
124
122
040
115
105

122
040
124
125
11

000

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

P.ABJ:

045
106
105
055
117
057
116
117
105
117
040

P.ABK:

045
106

P.ABL:

117
116
040
116
116

105
055
105
124
120
107
117
122
116
107

116
044
114
122
125
116
116
105

045
10?
10
055
116
117
040
124

P.ABM:

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

116
044

114
122
122
117
040

000

040
121

7=Jul=1983 08:21:%7

+WORD
+WORD
.WORD
+WORD
+WORD
+WORD
+WORD
.WORD
+WORD
.ASCII
LASCI1
LASCII
+ASCII
+ASCII
+ASCII
+ASCII1
+ASCII
LASCII
LASCII
+ASCII
LASCII
LASCII
.ASCII
+ASCII
+ASCII
+ASCII
+ASCI1
JASCII
+ASCII
LASCI{
+ASCII
+ASCII
LASCII
+ASCI1
+ASCII
LASCII
.ASCII
<ASCII
+ASCII
LASCII
ASC.I
+ASCII
.ASCII
+ASCII
+ASCII
LASCII1
LASCII
LASCI1

P.AAZ
P.ABA
P.ABB
P.ABC
P.ABD
P.ABE
P.ABF
P.ABG
P.ABH
/INX%/
/ASF/
/TLE/
/RR=/
/ RE/
/SPO/
/NSE/
/ ST/
/ATYW/
/S E/
/RRO/
/R:%/
/5/<00>
/INX/
/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/

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

/INX/
/ASF/
/TLE/
/RR=/
/7 UN/
/KNO/
/WN /
/RET/

LASCII

<00><00>

SEQ 92

Page 27

16;2 (13)
RS
.AZTECICZRCH2.8
RSUSE
: [NEALE
SPIDE

mem

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

VAX=11 Bliss=16 V3=555

SRR
R P P
P P R P B
L LY
Y la e lelelela T

11-Jul=1983 16:05:07

CZRCH2
REV A PATCH 00
003152
003155
003160
003163
003166
003171
003172
003175
3200
003203
3206
003211
003214
003217
003222
003225
3230
003233
0032
003237
003242
003245
003250
003253
003256
003261
003264
003267
003272
003275
003276
003301
003304
003307
003312
003315
003320
003323
003326
003331
3334
003337
003340
003343
3346
003351
003354
003357
003362
003365
003370
003373
003376
003401
003404
3406
003411

125
040
101
123
117
000
045
101
124
122
040
115
122
040
11
105
117
000
045
101
124
122
040
122
110
124
131
040
122
000
045
101
124
122
040
123
107
114
107
040
122
000
045
101
124
122
040
113
127
105
103
105
105
m
104
045
101

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
122
123
124
040
104

116
124
125
103
105

116
044
114
122
103
040
105
m
124
122
122

045
106
105
055
117
101
101
116
040
122
000

P.ABN:

116
044
114
122
120
124
117
040
116
105
117

045
106
105
055
117
057
123
123
103
122
122

P.ABO:

116
044
114
122
115
123
105
105
124
105
117

045
106
105
055
105
101
040
116
110
122
122

P.ABP:

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

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

P.ABQ:

045
106

P.ABR:

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
+ASCII
+ASCI1
LASCII
+ASCII
+ASCII
+LASCII
.ASCII
LASCII
+ASCI1
+ASCII
.ASCII
+ASCII
+ASCII
JASCII
JASCII
«ASCI1
+ASCII
+ASCII
.ASCII
+ASCII
+ASCI1
+ASCII1
+ASCII
+LASCII
+ASCI1
+LASCII

/URN/
/ ST/
/ATUW/
/S C/
/0DE/
<00>
/IN%/
/ASF/
/TLE/
/RR=/
/ CO/
/M A/
/REA/
/7 IN/
/1T /
/ERR/
/0R/<00>
<00>
/INX/
/ASF/
/TLE/
/RR=/
7/ PO/
/RT/<57>
/HOS/
/T S/

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

/ROR/
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ ME/
/SSA/
/GE /
/LEN/
/GTH/
/ ER/
/ROR/
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
/WN /
/END/
/C0D/
/E R/
/ECE/
/IVE/
/D/<00>
/INX/

+ASCII
«ASCI1

/YNC/
/ ER/

/ASF/

SEQ 93

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

CZRCH2
REV A PATCH 00
003414
003417
003422
003425
003430
003433
003436
003441
003444
003447
003450
003453
003456
003461
3464
003467
003472
003475
003500
003503
35
003510
003513
003516
003521
003524
003527
003532
003535
003540
003543
003546
003551
003554
003556
003561
0035
003567
003572
003575
3600
003603
3606
003611
003614
003617
003622
003625
3630
003633
3636
003641
003644
003647
003652
003655
003660

124
122
040
101
117
120
107
105
117
000
045
101
124
122
040
113
127
m
105
125
000
045
101
124
122
040
m
123
040
105
124
105
117
000
045
101
124
122
040
11
123
040
115
122
105
117
045
101
124
122
040
105
105
105
101
105
m

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
114
122
101
120
122
125
105
122
122

105
055
104
124
040
122
040
122
000

116
044
114
122
125
116
116
116
122
120
000
116
044
114
122
m
124
105
123
120
m
104
125
000
116
044
114
122
m
124
105
103
120
105
122
122
116
044
114
122
125
130
103
104
124
116
17

045
106
105
055
116
117
040
124
122
124

P.ABS:

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

P.ABT:

045
106
105

P.ABU:

055
116
040
121
117
101
040
122
000
045
106
105
055
116
120
124
040
124
124
116

P.ABV:

11-Jul=1983 16:05:07
7=Jul=1983 08:21:37
+ASCII
+ASCII
LASCII
+ASCII
+ASCII
+ASCII
+ASCII
+ASCI1
+ASCII
+ASCII
.ASCII
+ASCI1
+ASCI1
+ASCII1
LASCII
+ASCII
+ASCII
+ASCII
+ASCI1
+ASCI1
LASCII
.ASCII
«ASCI1
«ASCI1
«ASCII
+LASCII
+ASCII
+ASCI1
+ASCII
+ASCII1
LASCII
+ASCII
+LASCII
LASCII
.ASCII
«ASCI1
+ASCII
«ASCII1
LASCII
LASCII
.ASCII
.ASCI1
+ASCI1
+ASCII
+ASCII
+ASCII
.ASCII
+ASCII
+ASCII
+ASCII1
LASCII
+ASCI1
+LASCII
+ASCII
LASCI1
+ASCII
+ASCI1

/TLE/
/RR=/
7/ AD/
/APT/
/OR /
/PUR/
/GE /
/ERR/
/0R/<00>
<00>
/XNX/
/ASF/
/TLE/
/RR=/
/7 UN/
/KNO/
/WN /
/INT/
/ERR/
/UPT/
<00><00>
/iINX/
/ASF/
/TLE/
/RR=/
7/ IN/
/1T /
/SEQ/
/ ST/
/EP /
/TIN/
/ED /
/0UT/
<00><00>
/iINX/
/ASF/
/TLE/
/RR=/
/7 IN/
/1T /
/SEQ/
7/ CO/
/MPA/
/RE /
/ERR/
/0R/<00>
/INX/
/ASF/
/TLE/
/RR=/
/7 UN/
/EXP/
/ECT/
/ED /
/ATT/
/ENT/
/ION/

SEQ 94

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

CZRCH2
REV A PATCH CO

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

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

003663
003666
003671

040
104
105

105
040
123

116
115
123

LASCII
LASCII
ASCII

7 EN/
/7D W/
/ESS/

3677
003702
003705
003710
003712
003715
003720
003723
003726
003731

0
103
126
000

122
105
105
000
116
044
114
122
125
130

105
11
104

045
106
105
055
116
120

105
103
115
104
120
104
M
105
040
123
107
122
105
105
000
045
101
124
122
040
105
105
105
123
11
123
130
120
117
105

104
117
101
040
103
105
116
116
115
123
105
105
bk
104

040
115
116
17
117
040
040
104
105
101
040
103
126
000

“

7 RE/
/CEl/
/VED/
<00><00>
/3IN%/
/ASF/
/TLE/
/RR=/
7 UN/
/EXP/

003737
003742
003745
003750
003753
003756
003761
003764
003767
003772
003775
000
004003
006
004011
004012
004015
004020
004023
004026
004031
004034
004037
004042
004045
004050
004053
004056
004061
004064

124

ASCII
LASCII
ASCII
LASCII
.ASCII
LASCI1
LASCII
{ASCII
LASCII
LASCI1

116
044
114
122
125
130
103
104
105
117
040
103
124
116
116

045
106
105
055
116
120
124
040
122
125
105
105
M
040
104

P.ABX:

004072
004075
004100
004103
004106
004111
004112
004115
004120
004123
004126

123
107
122
105
105
000
045
101
124
122
040

123
105
105
m
104

101
040
103
126
000

116
044
114
122
11

045
106
105
055
116

003674

0037

0046067

101

101
124
122
040
105

105

040

107

103

115

105

LASCII

P.ABW:

105

LASCI1

LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCI1
ASCII
CASCII
.ASCII
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCI1
LASCII
LASCII

LASCI1

P.ABY:

LASCI1
LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
ASCII

/AGE/

/ECT/

/ED /
/7COM/
/MAN/
/D 0O/
/PCO/
/DE /
ZIN /
/END/
7 ME/
/SSA/
/GE /
/REC/
ZEIV/
/ED/<00>
<00>
/INX/
/ASF/
/TLE/
/RR=/
7 UN/
/EXP/
/ECT/
/ED /
/SER/
710U/
/S E/
/XCE/
/PT1/
/0N /
/END/

7 ME/

/SSA/
/GE /
/REC/
/ZEIV/
7ED/<00>
<00>
/3N%/
/ASF/
/TLE/
/RR=/
7 IN/

SEQ 95

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

CZRCH2
REV A PATCH 00
004131
004134
004137
004142
004145
004150
004153
004156
004161
004164
004167
004172
004174
004177
004202
004205
00421
00421
004216
004221
004224
004227
004232
004235
004240
004243
004246
004250
004253
004256
004261
004264
004267
004272
00427
004300
004303
004306
004311
004314
004317
004322
004325
004326
004331
004334
004337
004342
004345
004350
004353
004356
004361
004364
004367
004372
004375

126
m
103
115
104
116
115
123
105
105
m
104
045
101
124
122
040
113
127
115
123
105
131
040
103
126
000
045
101
124
122
040
124
101
111
040
115
116
102
106
040
114
000
045
101
124
122
040
124
124
104
107
117
101
040
106
122

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
101
104
117
101
040
104
105
101
040
103
126
000
116
044
114
122
125
116
116
105
101
040
120
122
105
105
000
116
044
114
122
117
123
116
116
103
115
104
125
105
106
114

114
040
115
116
105
040
123
107
122
105
105

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

045
106
105
055
116
117
040
123
107
124
105
105
m
104

P.ABZ:

045
106
105
055
125
124
104
107
117
101
040
106
122
125
000

P.ACA:

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

P.ACB:

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
LASCII
+LASCII
LASCII
LASCII
LASCII
+ASCII1
+LASCI1
LASCII
+ASCII1
+ASCII
LASCII
.ASCII
.ASCII
+ASCII
+ASCI1
+ASCII
LASCII
+ASCII
+LASCII
+LASCII
+LASCII
LASCII
+ASCII
+ASCII1
+LASCII1
<ASCII
LASCII
.ASCII
+ASCII
+ASCII
+ASCII1
LASCII
LASCII
+ASCII
+LASCII
+LASCII
LASCII
+ASCII
+ASCII
+ASCI1
LASCII
LASCII
JASCII
.ASCII
+ASCII
LASCII
+ASCI1
LASCII
+LASCII
LASCII
+ASCII1
+ASCII
LASCII
LASCII
+LASCII
+ASCI1
+ASCII

/VAL/
/1D /
/COM/
/MAN/
/D E/
/ND /
/MES/
/SAG/
/E R/
/ECE/
/1VE/
/D/<00>
/INX/
/ASF/
/TLE/
/RR=/
/7 UN/
/KNO/
/WN /
/MES/
/SAG/
/E T/
/YPE/
/ RE/
/CEl/
/VED/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 OUW/
/TST/
/AND/
/ING/
/ Co/
/MMA/
/ND /
/BUF/
/FER/
/7 FUW/
/LL/<00>
<00>
/INX/
/ASF/
/TLE/
/RR=/
7/ 0U/
/T S/
/TAN/
/DIN/
/G C/
/0MM/
/AND/
/ BU/
/FFE/
/R 0/

SEQ 96

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

105
101
040
115
122
105
11
104

102
040
103
126
000

116

044
114
122
106
105
105
040
122
000
116
044
114
122
120

124
117
122
114

040
115
125
105
117
000
116

044

114
122
m
105
114
103
106
105

P.ACC:

105
055
116
117
040
123
107

045

106
105
055
1M1
040
101
105
117
000
045
106
105
055
117

B bog B
g B B

[ B
B P

G
fm

116

P.ACD:

114
122
125
116
116

e D B
g
Dg sy Bt oy

117
000
045
106

P.ACE:

057
116
117
105

124
105
124
122
122

045

106

105
055
114
107
040
124
m
040

o Bes b
g g B fo L) Gy Gt G B
0 B G Gt e B | Gomg B ey Bd b

000
116
044

105

P.ACF:

o i) B b ) Bomg Do Bt oy B Breg b
B By St B o B bt o o B P

122

040

Do) by Bty B b B
Bing o e B o B

040
040
116

ey Sy g bt G o by o B
g B oy S B Bt By By b
By g et by By Bty By et Ptag Dot v e g By g B B B

124
106
131

125
117
123
103
122
122
045
101
124
122
040
113
127
115
123
105
125
105
122
105
105
000
045
101
124
122
040
114
122
104
122
122
045
101
124
122
040
122
103
124
114
122
111
117
040
122
000
045
101
124
122
040
114
101
106
040
114

GLOBAL TEXT SECTION

004400
004403
004406
004411
004414
004417
004422
004425
004430
004433
004436
004441
004444
004447
004452
004455
004460
004463
004466
004471
004474
004477
004500
004503
004506
004511
004514
004517
004522
004525
004530
004533
004536
004541
004544
004547
004552
004555
004560
004563
004566
004571
004574
004577
004602
004605
004610
004612
004615
004620
004623
626
004631
004634
004637
004642
004645

11=Jul=1
7=Jul=1
w
w
wunmn
w
wmwumumnm
alalalalalalalalalalalalalalalslslsalslsalslslisalslslslslislislalslslslslslislslslslslslslslslislslelslislislislelsalelel;ly]

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

CZRCH2

/RRO/
/R/<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/ UN/
/KNO/
/WN /
/MES/
/SAG/
/E N/
/Ums/
/ER /
/REC/
/EIV/

/ED/<00>

<00>

/RR0O/
/R/<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/ PO/

/RT/<57>
/CON/
/TRO/
/LLE/
/R T/
/1IME/

SEQ 97
Page 3
VAX=11 Bliss=16 V3=555
USERS JCZRCH2.B16;2 (13)
: [NEALE.AZTEC
SPIDERS

CZRCH2
CZRCH RC25 DISK FORMATTER
REV A PATCH 00 GLOBAL TEXT SECTION
004650
004653
004656

114
107
000

105
124
000

116
110

045
101
124
122
040
130
105
057
m
040
122
040
040

116
044
114
122
126
040
101
127
124
105
117
117
11
105
125
000
116
044
114
122
1
117
1
105
131
124
056
11
000
116
044

045
106
105
055
101
122
104
122
105
122
122
116
116

660
004662
004664
666
004670
004672
004674
004676
004700
004702
004704
004706
004710
004712
004714
004716
720
004722
004724
004726
004730
004732
004734

002736'
003004°
003054°
003122°
003172°
003234°
003276°
003340°
003406°
003450°
003510°
003556°
003622°
003712°
004012°
004112°
004174°
004250°
004326°
004422°
004500°
004536°
004612°

005005
005010

124
122

004736
004741
004744
004747
004752
004755
004760
004763
004766
004771
004774
004777
005002

005013
005016
005021
005024
005027
005032
005035
005040
005043
5046
005051
005054
005057
005062
5064
005067

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

P.ABI:

P.ACH:

122
120

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

045
106

P.ACI:

P.ACJ:

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

/LEN/
/GTH/
<00><00>

.WORD
+WORD
+WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD
+WORD
+WORD
«WORD
+WORD
+WORD
+WORD
+WORD
+WORD
+WORD
+WORD
+WORD
+WORD

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.ACB
P.ACC
P.ACD
P.ACE
P.ACF

+ASCII
+ASCI1

/TER/
/RUP/

L.ASCII
+ASCII
+LASCII
«ASCII
LASCII
LASCII
+LASCII
LASCII
+LASCII
+ASCII
+ASCII
+ASCII
LASCII

LASCII
LASCII
LASCII
+LASCII
+ASCI1
LASCII
LASCII
+LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
JASCII

/INX/
/ASF/
/TLE/
/RR=/
7/ VA/
/X R/
/EAD/
<57>/WR/
/ITE/
/ ER/
/ROR/
ON/
/7 _IN/

/1/<00><00>
/iINX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.B/
/FIL/
<00><00>
/INX/
/ASF/

SEQ 98

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

CZRCH2
REV A PATCH 00
005072
005075
0051
005103
005106
005111
005114
005117
005122
005125
005130
005132
005135
005140
005143
005146
005151
005154
005157
005162
005165
005170
005173
005176
5200
005203
005206
005211
005214
005217
005222
005225
005230
005233
0052
005241
005244
005247
005252
005255
005260
005263
005264
005267
005272
005275
5300
005303
5306
005313
005314
005317
5322
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

CZRCH RC2S5 DISK FORMATTER
GLOBAL TEXT SECTION
114
122
m
117
m
105
13
124
056
124
000
116
044
114
122
m
117
m
105
13
124
056
117
000
116
044
114
122
m
117
m
105
131
124
105
117
116
131
120
040
124

105
055
116
116
123
116
040
040
102
13

116
044
114
122
m
117
m
105
13
124
105
117
116
13
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
M1
123
051

P.ACL:

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

P.ACM:

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
LASCII
.ASCII
LASCII
LASCII
LASCII1
LASCII
LASCI1
LASCI1
LASCII
LASCI1
LASCII
.ASCII
LASCII1
LASCII
.ASCII
LASCII
.ASCI1
.ASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCI1
.ASCI1
LASCII
LASCII
LASCI1
LASCI]1
LASCII
LASCII
.ASCI1
LASCII
.ASCI1
.ASCI1
LASCII
LASCII
LASCII
LASCII
_ASCII
LASCII
LASCI1
.ASCI1
LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCI1
.ASCI1
LASCII
LASCII
LASCII
LASCI1

/TLE/
/RR-/
7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/VU.B8/
/MTY/
<00><00>
/3INY/
/ASF/
/TLE/
/RR</
7 IN
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.A/
/LO0C/
<00><00>
/2INX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/SER/
/v0 /
/ENT/
/RY /
/(Pl/
/P S/
/ZET)/
<00>
/3INX/
/ASF/
/TLE/
/RR=/
7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/SER/
/v0 /
/ENT/
/RY /
/(ER/

SEQ 99
Page

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

CZRCH2
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

005341
005344
005347
005350
005353
0053
005361
S
005367
005372
005375
005400
005403
005406
005411
005414
005416
005421

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

040
124

123
051

116
044
114
122
m
117
m
105
13
124
056
116

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

P.ACN:

044

P.ACO:

005427
005432
005435
005440
005443
005446
005451
005454
005457
005462

122
040
103
123
124
103
101
125
105
000

122
m
117
m
105
13
124
056
103
000

045
106
105
055

005467
005472
005475
5500
005503
5506
005511
005514
005517
005522
005525
5530
005532
005535
005540
005543
005546
005551
005554
005557
005562
5565
005570
005573

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

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

005424

005464

005576
5600
005603

124

045

000
045
101

000
116

114

116

000
116
044

045

P.ACP:

045
106
105
055
116
116
123
116
040
040
117
116

P.ACQ:

045
106

P.ACR:

106
105
055
116
116
123
116
040
040
101
116

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
LASCIl
LASCII
LASCII
.ASCII
LASCI1
LASCII1
.ASCII
LASCII
LASCI]
LASCI1
LASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII
.ASCII
LASCII

/R S/
V/ET)/
<00>
/3INX/
/ASF/
/TLE/
/RR=/
7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.S/
/END/
<00><00>
/INX/
/ASF/

.ASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII

/RR=/
7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.R/
/ECV/
<00><00>

.ASCI1

116
116
123
116
040
040
122
126

.ASCII

LASCII
LASCII1
.ASCII
LASCII
LASCII
LASCI1
LASCI]1
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCII
LASCII

LASCII
.ASCII
LASCI1

/TLE/

/2INX/

/ASF/
/TLE/
/RR=/
7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/U.A/
/TIN/
<00><00>
/3NX/
/ASF/
/TLE/
/RR=/
/7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
/VU.0/
/NLN/

<00><00>
/iINX/
/ASF/

SEQ 100

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

CZRCH2
REV A PATCH 00
5606
005611
005614
005617
5622
005625
005630
005633
005636
005641
005644
005647
005650
005653
005656
005661
005664
005667
005672
005675

124
122
040
114
101
104
105
105
040
056
122
000
045
101
124
122
040
116
055
123

006040
006043
006046
006051

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

S
005703
005706
005711
005714
005717
005720
005723
005726
005731
005734
005737
005742
005745
005750
005753
005756
005761
5764
005767
005772
005774
005777
006002
006005
006010
006013
006016
006021
006024
006027
006032
006035

105
117
101
120
124

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
114
122
11
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

045
106
105
055
105
105
117
040

P.ACS:

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

045
106
105
055
101
120
113
040
121
125
040
040
104
105

P.ACT:

045
106
105
055
116
120
11
104
055
117
123
120
123
116
125
124

P.ACU:

122
122
124
122
101

116
117
050
056

122
040
040
117
102

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
LASCII
+ASCII
LASCII
CLASCII
CLASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII
LASCII
.ASCII
CASCI1
LASCII
LASCII
LASCII
ASCII
.ASCI1
LASCII

/TLE/
/RR=/
/7 IL/
/LEG/
/AL /
/D R/
/EQU/
/EST/
/7 (W
/.QD/
/RQ)/
<00>
/INX/
/ASF/
/TLE/
/RR=/
/ FE/
/NCE/
/-P0O/
/ST /

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

<00>
/INX/
/ASF/
/TLE/
/RR=/
/ BA/
/D P/
/ACK,
JET /
/DEQ/
/UEW/
/ED /
/AT /
/U.D/
/ONE/
<00><00>
/IN%/
/ASF/
/TLE/
/RR=/
7/ UN/
/EXP/
/LAL/
/NED/
/ D=/
/PRO/
/C S/
/USP/
/ENS/
/ION/
7 (W
/..T/

.ASCI1
+ASCil
ASCI1
.ASCII
.ASCII

/ERR/
/OR /
/AT /
/PRO/
/TAB/

SEQ 101

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

P.ACX:

117
11
105
131
124
056
123
000

106
105
055
116

116
123
116
040
040

103

126

G
B
s B
D
e R
et by o

e
e
e e

eR R

L
e e

e e R

el
R

e e e e

e R K

e L

eJ Y S

e e

P.ACY:

045

123
17

056
113
000
116
044
114
122

116

116
123
116
040
040

117
1
105
131
124

105
055

/IN%X/
/ASF/

106

<00><00>

11
105
131
124
056
123
000
116
044
114
122

N S

111
117

P.ACW:

116
044
114
122

/ 34/

<57>/35/
/) /7<00><00>
/ANY/
/ASF/
/TLE/
/RR=/
/ _IN/
/CON/
/S1S/
/TEN/

Ny S S

040
106
063
063
000

124

055
106

040
103

() By

045

114
122
104

P.ACV:

ot o) B

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

e e e e e e e R N

116
044

e L R

051

123

P
I
>
wv
L7
wunumnnmm
wm
w Ly Ly lelyly)] alalalzalalzlalalslslislialalslalslalalialslalslalelelely)
alalalalalalalalalsalalslalslalslelslslelelelelele

S
SR
TSNPt PO
—

RO RINO & g OoONOONINO
VIV
=2 N &

/KSV/
<00><00>

e
e

WO
NN

Ei %]

;.0

11=Jul=1
7=Jul=1

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

114

T b o e ek b =D )
O=NOO
S =N
OWwWn =W S WWON

006054
006057
060

ST b S St

CZRCH2
REV A PATCH 00

8
©o0 0o
W

SEQ 102
Page
37
V3=555
Bliss=16
VAX=11
(13)
.B16;2
JCZRCH2
.AZTEC
[NEALE
SUSERS
:
SPIDER

CZRCH2
REV A PATCH 00
006322
006325
006330
006333
006336
006341
006344
006347
006352
006355
006360
006363
006366
006371
006374
006377
006402
006405
006410
006413
006416
006421
006424
006427
006432
006435
006440
006443
006444
006447
006452
006455
006460
006463
0064
006471
006474
006477
006502
006505
006510
006513
006516
006521
006524
006527
006532
006535
006540
006543
006546
006551
006554
006557
006562
006565
006570

045
101
124
122
040
117
104
117
104
114

107
040
103
105
045
101
124
122
040
103
040
125
040
114
101
117
117
000
045
101
124
122
040
113
127
102
040
14}
040
101
123
124
056
124
045
101
124
122
040
114
101
130
040
105
124
040
040

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
116
044
114
122
104
120
040
125
040
114
101
117
117
000
116
044
114
122
104
123
106
116
m
105
114
120
104

045
106
105
055
056
103
106
116
11
105

116
044
114
122
125
116
116
101
104
126
123
124
040
040
104
123
116
044
114
122
11
105
114
106
105
103
105
102
104

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

P.ACZ:

114
120
104

000
045
106

11=Jul=1983 16:05:07
7=Jul=1983 08:21:37
.ASCII
+LASCI1
LASCII
+ASCII
+ASCII
.ASCII
+ASCI1
+ASCII
LASCII
+ASCII

/IN%/
/ASF/
/TLE/
/RR=/
7/ D./
/0PC/
/D F/
/O0UN/
/D 1/
/LLE/

LASCII
ASCII
LASCII

/E/<00><00>
/INX/
/ASF/

+ASCII
+ASCII
+ASCII

P.ADA:

105
055
056
106
117
104
114
107
040
103
105

P.ADB:

P.ADC:

+ASCII1
+ASCII
LASCII
+ASCII
LASCII
<ASCII
LASCII
+ASCII
+ASCII
.ASCII
+ASCII1
LASCII
.ASCII
JLASCI1
LASCII
+ASCII
LASCII
+ASCII
+LASCII
+ASCII
.ASCI1

LASCII
+ASCII1
LASCII
LASCII
+ASCII
.ASCII
LASCII
LASCII
LASCI1
+LASCII
+ASCII
CASCII
LASCII
+LASCII
LASCII
+JASCII
LASCII
+LASCII
LASCII
LASCII

/GAL/
/ OP/
/cCoD/

/TLE/
/RR=/
/7 D./
/CSF/
7/ FO/
/UND/
7/ IL/
/LEG/
/AL /
/OPC/
/0DE/
<00>
/ANX/
/ASF/
/TLE/
/RR=/
7/ UN/
/KNO/
/WN /
/BAD/
/ DR/

/IVE/
/ ST/
/ATUW/
/S A/
/T D/
/.DS/
/75/<00>
/INX/
/ASF/
/TLE/
/RR=/
7/ IL/
/LEG/
/AL /
/XFC/
/ EX/
/ECUW/
/TED/
/ BY/
7/ DM/

SEQ 103

VAX=-11 Bliss=16 V3=555
Page 38
SPIDERSUSERS
: [NEALE .AZTECICZRCH2.816;2 (13)

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

CZRCH RC25 DISK FORMATTER
CZRCH2
REV A PATCH 00 GLOBAL TEXT SECTION
006573
006574
006577
006602
006605
006610

006613
006616
006621
006624
006627
006632
006635
006640
006643
006644
006647
006652
006655
006663
006671
006674
006677
006702
006705
006710
006713
006716
006721
006724
006727
006732
006735
006740
006743
006746
006751
006754
006757
006762
006765

006770
006773

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

000
045
101
124
122
040

120
113
040
040
132
117
103
104
000
045
101
124
122
040
103

123
124
103
101
104
104
040

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

116
044
114
122
104

045
106
105
055
040

P.ADD:

116
044
114
122
1M
117

045
106
105
055

P.ADE:

m
105
125
101
105
040
102
102

m
105
131
124
040
114
114

120
116
044
114
122
104
127
104
117
124
122
122
116
117
040
101
105
057
103
000
116
044
114
122
125
116
116
1M
114

103
104
120
040
122
123
056
000

116
116
123
116
040
040
111
105
117
000
045
106
105
055
115
117
040
125
040
122
040
040
123
104

P.ADF:

057
116

122
126
045
106
105
055
116
117
040
123
101

P.ADG:

LASCII
.ASCII
LASCII
LASCII
+ASCII
JASCII

<00>
/ZIN%/
/ASF/
/TLE/
/RR=/
/7D /

LASCII
LASCII
LASCII
LASCII
LASCII
+ASCII
LASCII

/SIS/
/TEN/
/CY /
/AT /
/D I/
/DLE/
/ LO/

+ASCII
+ASCII
+ASCII
JASCII
.ASCII1
.ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
+ASCII
+ASCII
LASCII
+ASCII

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

/PIC/
/KED/
7/ UP/
/ A/
/ZER/
/0 S/
/(B./
/DB/<00>
<00>
/INX/
/ASF/
/TLE/
/RR=/
7/ IN/
/CON/

/0P/<00>
/2NX/
/ASF/
/TLE/
/RR=/
/ DW/
/7 WO/
/RD /
/COoU/
/NT /
/ERR/
/OR /
/ON /
/HOS/
/T D/
/MA/<57>
/SEN/
/D/<57>/R/
/ECV/
<00><00>
/INX/
/ASF/
/TLE/
/RR=/
/7 UN/
/KNO/
/uWN /
/DIS/
/PLA/

SEQ 104

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

117
m
040
111
104

045
106
105
055
040
127
040
040
101
117
m
040

P.ADJ:

1M1

045
106
105

P.ADK:

DTM

m»

OO0

/LED/
<00><00>
/3INX/
/ASF/
/TLE/

/FAl/

LASCII
LASCII
LASCII
LASCII
LASCII

LASCI1

104

101

105
000
116
044
114

101

P.ADI:

114
000
045
101
124

106

P.ADH:

/Y F/
/AUL/
/T €/
/ODE/
/7 AT/
7 0./
/DFL/
/7/<00>
/3INX/
/ASF/
/TLE/
/RR=/
/ DR/
/IVE/
7/ NO/
/T F/
/AUL/
/TIN/
/G 1/
/N P/
/.OF/
/LN /
/STA/
/TE/<00>
/3INX/
/ASF/
/TLE/
/RR=/
70U/
/POW/
V/ER /
/UP /
/DIA/
/GNO/
/ST1/
/CS /
/FAl/
/LED/
<00><00>
/3INX/
/ASF/
/TLE/
/RR=/
7D/
/POW/
/ER /
/UP /
/DIA/
/GNO/
/ST1/
/CS /

007273
007276
7300
007303
007306

007270

045
106
105
055
122
105
117
106
114
116
MM
120
106
040
101
000
045
106
105
055
040
127
040
040

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

106
114
103
105
124
056
114

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

040
125
040
104
101
104
106
000
116
044
114
122
104
126
116
040
125
m
040
040
117
116
124
105
116
044
114
122
125
117
122
120
MM
116
124
123
101
105
000
116
044
114
122
104
117
122
120
11
116
124
123

VAX=11 Bliss=16 V3=555

13
101
124
117
040
040
104
124
045
101
124
122
040
mm
040
124
101
124
107
116
056
114
123
124
045
101
124
122
040
120
105
125
104
107
123
103
106
114
000
045
101
124
122
040
120
105
125
104
107
123
103

7=Jul=1983 03:21:g7

007041
007044
007047
007052
007055
7060
007063
7066
007070
007073
007076
007101
007104
007107
007112
007115
007120
007123
007126
007131
007134
007137
007142
007145
007150
007153
007156
007161
007164
007167
007172
007175
7200
007203
007206
007211
007214
007217
007222
007224
007227
007232
007235
007240
007243
007246
007251
007254
007257
007262
007265

11=Jul=1983 16:05:07

SEQ 105
Page 4

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

FNENFNFUNEVENEN

007553

122

045
106
105
055
116
117
040
11
126
105

P.ADN:

116

045

044
114
122

)

bt B

eL R
e

$mg Dot B

e e

Bt Gy D
B

e L

g B

e e e

St bg b

bt Bomg By by b

g By

B
B
b

e e e

/D/<57>/U/

/.RE/
/v /

e e

Gy B

/TLE/
/RR=/
/ U./
/SEN/

e e

117
101
104

126
000

106
105
055

/Ut/<00>
/AN%/
/ASF/

ey By b

111
117
11
105
131

.AS

e e

040
101

116
044
114
122
125
116
116
101
122
122
123
040
040
122
124

1M1

P.ADM:

P.ADO:

-AS

+AS

i Wy Wy S Wy S S Sy ey S S SN

101
124
122
040
113
127
127
124
040
101
116
124
056
103
000
045
101
124

P.ADL:

G VDY WIS W

045

045
106
105
055
103
115
124
105
117
000
045
106
105
055
056
116
125
105
040
116
122
104
116
116
123
116
000

[

7
007467
007472
007475
007500
007503
007506
007511
007514
007517
007522
007525
75
007533
007536
007541
007542
007545
007550

116
044
114
122
105
124
040
115
040
124
116
044
114
122
125
105
057
122
126

114
105

124
122
040
056
122
m
104
125
045
101
124
122
040
123
104
056
103
122
107
105
040
103
123
124
103
000

101

055
104
124
040
122
106

nmnunununnnny
w
w
alalalalalaslslalslslalslslalalalelelelele
Ly Ly
oy o ot By g P B ey Gy B bimag By Do Dy bmd By G ot Bt (oo e B by B

007350
007353
007356
007361
007364
007367
007372
007375
007400
007403
007406
007411
007414
007417
007422
007425
007430
007433
007436
007441
007444
007447
007452
007455
007460
007463

7345

122
101
120
122
101
040
11
122

122
040
101
105
103
104
101
125
000
045

007311
007314
007317
007322
007325
007330
007333
7336
007341
007342

/TEN/

/CY/<00>

<00>

-2\

11=Jul-198
7=Jul=198

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

CZRCH2
REV A PATCH 00

O =b
oo

SEQ 106

Page 41
VAX=11 Bliss=16 V3=555
[NEALE.AZTEC ICZRCH2.B16;2 (13)
SPIDER:SUSERS

CZRCH2
REV A PATCH 00
007556
007561
75
007567
007572
007575
007600
007603
007606
007611
007614
007617
007622
007625
007630
007633
007636
007641
007644
007647
007652
007655
007663
7666
007671
007674
007677
007702
007705
007710
007713
007716
007721
007724
007727
007732
007735
007740
007743
007746
007751
007754
007757
007762
007765
007770
007773
007776
010001
010004

7660

010007
010012
010015
010020
010023
010026

040
101

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

040
116
103
123
124
116
116
132
105
045
101
124
122
040
123
113
117

104
122
040
104
117
106
104
114
105
040
104
105
117
000
116
044
114
122
125
105
040
125

104
040
124
m
040
117
123
125
117
040
116
000
045
106
105
055
056
105
106
116

105
040
040
114
101
124
103
045
101
124
122
040
110
124
116
040
101
104
040
14}
040
m
104
045
101
124
122
040

105
124
m
105
114
122
113
116
044
114
122
125
124
040
11
104
107
115
127
124
106
114
000
116
044
114
122
125

113
117
114
107
040
101
000
045
106
105
055
056
123
11
124
111
040
101
122
105
101
105
000
045
106
105
055
056

123
m
116

104

110
124
116
040
101
104

040

124
040
11
104
107
115

056
103

P.ADP:

123

123
m
124
m
040
101

P.ADQ:

P.ADR:

11=Jul=1983 16:05:g7
7=Jul=1983 08:21:37
+«ASCI1
+ASCI1

7/ D./
/ARC/

+ASCII

/D S/

+ASCI1
LASCII
LASCII
.ASCII
LASCII
LASCII

/HTS/
/T 1/
/NIT/
7/ D1/
/AG /
/DMA/

LASCII
/S D/
+ASCII /1D /
+ASCII /NOT/
+JASCII / F1/
+ASCII /ND /
+ASCII /CLO/
+ASCII /SES/
+JASCII /T W/
+ASCII /NDO/
+ASCII1 /NE /
<ASCII /20N/
LASCII /E/<00><00>
.ASCII /INX/
LASCI1 /ASF/
+ASCI1
/TLE/
+ASCII
/RR=/
+ASCII 7/ U./
+ASCI1 /SEE/
LASCII /K F/
+ASCII /OUN/

+ASCII
+ASCII
LASCII
+ASCII
+ASCII1
+ASCI1
+ASCII
.ASCII
ASCII
+ASCII
«ASCI1
LASCII
ASCII
NS
LASCII
+ASCII
+ASCI1
+ASCI1
LASCII
LASCII
LASCII
+ASCII
LASCII
.ASCII
LASCII
+LASCII
+ASCII
LASCII

/EEK/
/7 TO/
7/ IL/
/LEG/
/AL /
/TRA/
/CK/<00>
/INX/
/ASF/
/TLE/
/RR=/
7/ L./
/HTS/
AR U
/NIT/
/ DI/
/AG /
/DMA/
/ WR/
/ITE/
/ FA/
/ILE/
/D/<00><00>
/ZNX/
/ASF/
/TLE/
/RR=/
7/ U./

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

RSHR DN

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
046
114
122
115
124
040
11
123
103
040
123
124

000

117
101
040
m
104
045

106

P.ADS:

105
055
056
104
106
116

123
104

040
1%4
116

123
123

040
124
105

045
106
105
055
101
105
104
126
040
114
101
105

P.ADT:

+ASC

105

000

+ASC

— b nd i ) b b i e e
d e () b d b
b b
b b b e b
NN
N=00NNNSNINO
SN
OWWVIW S NNWON
S =2VO SN0
NWN=VINNWON
S =N OoOW

- OO N =

\VL AV LV, LV, IV ]

CZRCH RC25 DISK FORMATTER

GLOBAL TEXT SECTION

CZRCH2

REV A PATCH 00

SEQ 108
Page
43
V3=555
Bliss=16
VAX=11
(13)
B16;2
JCZRCH2.
.AZTEC
USERS
[NEALE
:
SPIDERS

P.ACG:

/0/<00><00>

P.ACH
P.ACI
P.ACJ
P.ACK
P.ACL
P.ACM
P.ACN

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

11=Jul=1983 16:05:07

7=Jul=1983 03:21:27

010260
010262
010264
010266
010270
010272

006322°
006374*
006444°
006524°
006574°
00664

WORD
+WORD
WORD
WORD
WORD
WORD

P.ACZ
P.ADA
P.ADB
P.ADC
P.ADD
P.ADE

010320
010322
010324
010326
010330
010332
010335
010340
010343
010346
010351
010352
010355
0360
010363
010366
010371
010374
010376
010401
010404
010407
010412
010415
010420
010423
010426
010431
010434
010437
010442
010445
010450
010453
010456
010461
010464
010467
010472
010475
010500

007630°
007710°
007770°
010052°
010142°
045
123
103
123
114
000
045
116
114
040
115
116
116
045
117
105
117
101
111
102
045
045
117
105
117
123
124
114
116
045
122
122
040
124
116
116

WORD
WORD
WORD
WORD
«WORD
.ASCII
«ASCII
+ASCII
+ASCII
LASCII
LASCII
.ASCII
+ASCII
CLASCII
ASCII
LASCII
+ASCII1
LASCII
.ASCII
«ASCI1
.ASCI1
.ASCII
+LASCII
LASCII
+ASCII
LASCII
.ASCII
.ASCI1
+ASCI1
+ASCI1
+LASCI1
ASCI1
LASCII
LASCII
LASCII
«ASCII
LASCII
+ASCII
+LASCII
+LASCII
JASCII

P.ADP
P.ADQ
P.ADR
P.ADS
P.ADT
/XA /
/SucC/
/CES/
/SFUW/
/LAIN/
<00>
/XAl/
/NVA/
/LID/
/ Co/
/MMA/
/NDX/
/N/<00>
/XAN/
/0 R/
/EGl/
/ON /
/AVA/
/ILA/
/BLE/
/IN/<00>
/3AN/
/0 R/
/EGI/
/ON /
/Sul/
/TAB/
/LEX/
/N/<00><00>
/ZAP/
/ROG/
/RAN/
/ NO/
/T K/
/NOW/
/NIN/

101
125
105
106
045

040
103
123
125
116

P.ADV:

101
126
11
103
115
104
000
101
040
107
116
126
114
114
116
101
040
107
116
125
101
105
000
101
117
101
116
040
117
045

1M1
101
104
117
101
045

P.ADW:

116
122
11
040
101
101
105
000
116
122
11
040
m
102
045
000
120
107
115
117
113
127
116

P.ADX:

P.ADY:

P.ADZ:

VAX=11 Bliss=16 V3=555

SEQ 109

Page 44
SPIDERSUSERS:ENEALE.AZTEC]CZRCH2.816:29(13)

010735
b

—

o e

VIS

[

)

Y —

)

WVIW

b
D

= 20 WWW

Ppr——

- O =NO=IVOO
UIWN O =" WW =

et
b
e

SenS32383
—

P gy = L = T T parg
2
N

BI
A’ LY LAY [ = S
OSSOSO

-t O VIN) =k wd «d «d O NV 8N N = =

e cd

SpREERTSeR=

o kD

puur Purd

g Semy

P.AEB:

P.ADU:

P.AEH:

P.AEI:

(7
(o By B

—

P.AEA:

g By Bemy B

T3 K bt bt et Doy By Gt By s G B ot Gt o
g B

OoWVSH OO WV

832229 noo
K=

- 2000

b rad)

8-.-0-.-.-.
O=000
oo«--o-ouvag

T
RIS2R C— e RIZRR onN
MN?&WON-‘ONU’ g
-.-.8“—.
VIO VION NN O = N WVONON VIO SO R oo

b
ed (T b

= ©O
R338 20-‘0—008 Qb

oo
LYY N1

—

010503

=2 =2 VONNONON

Oooad?

[elelelelelelo)

CZRCH2
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

:05:g7

21:37

P.AED:

P.AEE:

P.AEF:

P.AEG:

/FLY/

/AIL/
/ABL/

/NEX/
/N/<00><00>
/X3AU/
/NIT/
/=AV/

/JEAN/
<00><00>

/ED1/
/A F/
/0RM/
/AT /
/ERR/

/XAM/

VAX=11 Bliss=16 V3=555

2 (13)
SERS
[NEALE.AZTECICZRCH2.B16;
SPID:ERSU

SEQ 110
Page 45

CZRCH2

CZRCH RC25 DISK FORMATTER

11-Jul=1983 16:05:07

REV A PATCH 00 GLOBAL TEXT SECTION
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
011
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

122
000
101
m

040
117
103
104
000
101
115
122
105
117
116
101
126
105
117
116

045
000
127
124

P.AEJ:

120
124
124
045

103
120
105
122
122
000
104

101
122
122

P.AEK:

P.AEL:

000

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
m

P.AEP:

P.AEN:

7=Jul=1983 03:21:97

LASCII
LASCII
.ASCII
LASCII

+ASCI1
+ASCII
LASCII
LASCII
LASCII
.ASCII
+LASCI1
+ASCI1
+ASCI1
+ASCII
LASCII
.ASCII
LASCII
+ASCII
«ASCI1
LASCII
LASCII
.ASCII
.ASCI1
ASCI1
+ASCII
+LASCII
+ASCI1
+ASCII1
+ASCI1
+ASCII
LASCII
.ASCII
+ASCII
+ASCII
+ASCII1
+ASCI1
+ASCII1
LASCII
LASCII
.ASCII
LASCII
.ASCI1
+ASCI1
LASCII
LASCII
.ASCII
LASCI1
LASCII
LASCI1
LASCII
+ASCII
LASCII
+ASCI1
LASCII
+ASCI1
+ASCII
LASCII

/OR%/
/N/<00><00>
/ZAwW/
/RIT/
/E P/
/ROT/
/ECT/
/EDX/

/N/<00>
/ZAC/

/0MP/
/ARE/
/ ER/
/ROR/
/73IN/<00>
/XAD/
/ATA/
/ ER/
/ROR/
/73IN/<00>
<00>
/ZAW/
/0ST/
/ BW/
/FFE/
/R AN/
/CCE/
/SS /
/ERR/
/OR%/
/N/<00><00>
/ZAC/
/ONT/
/ROL/
/LER/
/ ER/
/ROR/
/ZN/<00>
<00>
/ZAD/
/RIV/
/E E/
/RRO/
/RIN/
<00>
/%AM/
/ESS/
/AGE/
/ FR/
/0M /
/AN /
ZINT/
/ERN/

/AL /
/DIA/
/GNO/
/8TI/

VAX=11 Bliss=16 V3=555

SEQ 1M

Page 46

SPIDERSUSERS
: [NEALE .AZTECICZRCH2.816;2 (13)

CZRCH2
REV A PATCH 00
011204
011207
011210
011212
011214
011216
011220
011222
011226
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
011410
011413
011416
011421
011424
011427
011432

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
1M1
101
125
124
124
106
115
040
101
122
116
000
045
101
124
122
040
m
103
105
105
116
122
040
105
117
127
106
114

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION
045

116
P.AEC:

116
122
101
040
115
104
131
076
000
116
116
101
111
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
m
040
040
122
124
040
117
m
000

P.AER:

116
044
114
122
11
124
117
040
055
124
105
104
040
040
122
101
000

045
106
105
055
116
040
104
122
105
105
104
125
124
120
040
m

P.AES:

11-Jul=1983 16:05:07
7=Jul=1983 08:21:37
JASCII
LASCII
.WORD
«WORD
«WORD
+WORD
+WORD
+WORD
«WORD
+WORD
+WORD
«WORD
+WORD
«WORD
+WORD
.ASCII
+ASCI1
+ASCII
ASCII
LASCII
<ASCII
LASCII
LASCILI
LASCII
.ASCII
«ASCI1
+LASCII
+ASCII
+ASCII
+LASCII
+ASCII
+LASCII
.ASCI1
+ASCII1
LASCII
ASCII
+ASCI1
LASCII
LASCII
LASCII
.ASCI1
LASCII
+ASCII
+ASCI1
LASCII
LASCII
+ASCI1
+ASCI1
LASCI1
+ASCI1
«ASCI1
LASCII
+LASCII
+ASCII
+LASCII
LASCII
LASCII

/CIN/
<00>
P.AED
P.AEE
P.AEF
P.AEG
P.AEH
P.AEl
P.AEJ
P.AEK
P.AEL
P.AEM
P.AEN
P.AEO
P.AEP
/ENT/
/ER /
/DAT/
/E </
/MM=/
/DD=/
/YYV/
/Y>> /
<00><00>
/INX/
/ANO/
7/ AD/
/D1T/
/ION/
/AL /
/UN1/
/1S /
/70 /
/FOR/
/MAT/
/ =/
/ABO/
/RT1/
/NG/<00>
<00>
/iINY/
/ASF/
/TLE/
/RR=/
/7 IN/
/1T /
/COD/
/E R/
/E-E/
/NTE/
/RED/
7/ DU/
/E 1/
/0 P/
/WR /
/FAl/
/L/<00>

SEQ 112

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

anoo
GLOBAL TEXT SECTION

NN NN N NN NN NN N NN NSNS NS SN NSNS S S NSNS NSNS SN VS S S S S SS S S S S S S S S SS S SSNSNYVYNS S S

11=Jul7=Jul-

CZRCH RC25 DISK FORMATTER
CZRCH2
REV A PATCH 00

—gG (eOy gD)G )G o)G S ()G P G O>S SagS G gP G G G G S O B o)O >G B G B gS P ByG B S ByB Oy g gP PyB O >g gOyB Sy

av 8

e[+X3 -0-]Lol SNN 3

SEQ 113
Page 48
VAX=11 Bliss=16 V3=555
[NEALE.AZTEC JCZRCH2.B16;2 (13)
SPIDER:SUSERS
J

11=Jul=1983 16:05:07

FORMATTER

CZRCH RC25 DISK
CZRCH2
REV
A PATCH 00 GLOBAL
TEXT SECTION
011703

011706
onm
011714
011717
011722
011725
011730
011733
011736
011761
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

12060
012063
12066
012070
012073
012076
012101
012104
012107
012112
012115
012120
012123
012126
012131
012134
012137
012142
012145

012150

062

103
124
114
122
116
m
1
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
m
040
124
040
m
101
132

107

065

117
122
114
040
m
101
132
11
040
122
000
116
044
114
122
120
124
117
126
114
M
040
122
000
116
044
114
122
103
115
1i1
124
116
122
040
m

105
117

000
116
044
114
122
104
040
122
122
103
126
101
105
m
124
114
11

000

040

045
106
105
055
122
117
114
111
101
117

P.AEX:

045
106
105
055
117
125
103
11
040
105
111
124

P.AEY:

105
17

122
122

045
106
105
055
125
123
126
040
124
105
106
122
116
111
m
116

7=Jul=1983 08:21:%7

LASCII

116
117
105
m
124
114
101
117
105
1z

+ASCI1
.ASCI1
LASCII
LASCII
+ASCII
+LASCII
LASCII
+LASCI1
LASCII
+ASCII
ASCII
.ASCII
LASCI1
+LASCII1
+ASCI1
+ASCII1
+ASCI1
+ASCII
LASCII
+ASCII
+ASCII
+ASCII1
+ASCII
LASCII
.ASCII
+ASCII
+ASCII
+ASCII
LASCII
LASCII
+ASCII
LASCII
+ASCII
.ASCI1
LASCII
LASCII
LASCII1
+ASCII1

P.AEZ:

LASCII
LASCII
LASCII
LASCII
+ASCII
LASCII
LASCII
+ASCII
+ASCI1
+ASCII
LASCII1
LASCII
+ASCI1
LASCII
LASCII
LASCI1
LASCII

LASCII

/25 /

/CON/
/TRO/
/LLE/
/R 1/
/NIT/
/IAL/
/1IA/
/T10/
/N E/
/RRO/

/R/<00>
/INX/
/ASF/

/TLE/
/RR=/
/ PR/
/0T10/
/cOL/
/7 VI/
/OLA/
/T10/
/N E/
/RRO/
/R/<00>
/INX/
/ASF/
/TLE/
/RR=/
7/ CO/
/MMy/
/NIC/
/ATL/
/ON /
/ARE/
/A 1/
/NIT/
/ ER/
/ROR/
<00><00>
/INY/
/ASF/
/TLE/
/RR=/
7/ DU/
/P S/
/ERV/
/ER /
/ACT/
/IVE/
7/ AF/
/TER/
/7 IN/
/1T1/
/ALl/
/2IN/

/6/<00>

VAX=11 Bliss=16 V3=555

SEQ 114

Page 49

SPIDERSUSERS
: (NEALE .AZTECICZRCH2.B16;2 (13)

CZRCH2
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

012152
012155
012160
012163
012166
012171
012174
012177
012202
012205
012210
012213
012216
012221

045
101
124
122
040
120
105
105
11
103
126
101
105
105

116
044
114
122
104
040
122
122
116
124
105
106
122
130

045
106
105
055
125
123
126
040
101
11
040
124
040
137

012227

137

120

122

012224

0122

012235
012240
012243
012246
012251
012254
012257
012262
012265
012270
012273
012276
012301
012304
012307
012312
012315
012320
012323
012326
012331
012334
012337
012342
012345
012350
012353
012356
012361
012364
012367
012372
012375
012400
012403
012406
012411
012414
012417
012422

123

117

103
115
104
105
105
106
040
114
116
105
117
105
117
040
m
116
105
130
072
122
065
111
040
105
123
122
040
104
123
122
065
116
122
120
126
124
040
104
123
122

125

107

117
101
000
116
122
103
106
105
101
040
040
123
122
050
114
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

P.AFA:

120

.ASCII
+ASCII
.ASCI1
+ASCII
+ASCII
+LASCII
+LASCI1
+ASCI1
+ASCII
LASCI1
+ASCII
<ASCI1
+ASCI1
CJASCII

/XN%/
/ASF/
/TLE/
/RR=/
7/ DU/
/P S/
/ERV/
/ER /
/INA/
/CT1/
/VE /
/AFT/
/ER /
/EX_/

+ASCI1

/_PR/

LASCI1

040

115
116
000
124
040
124
m
040
115
124
122
124
105
106
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

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

.ASCII

P.AFB:

P.AFC:

P.AFD:

P.AFE:

+LASCII
+ASCII
LASCII
.ASCII
LASCII
<ASCI1
LASCII
+LASCII
LASCII
LASCII
+ASCII
+ASCII
+ASCI1
LASCII
+ASCII1
<ASCII
+ASCII
LASCII
LASCII
.ASCII
CASCII
LASCII
LASCII
LASCII
+ASCII1
LASCII
ASCII
+ASCII
LASCII
.ASCII
LASCII
+ASCII
+ASCII
+LASCII
+ASCI1
.ASCI1I
LASCI1
+ASCI1
LASCII
LASCII

/SUP/
/06 /

/COM/
/MAN/
/D/<00><00>
/ENT/
/ER /
/FCT/
/7 FI/
/LE /
/
/E T/
/0 R/
/EST/
/ORE/
/7 (F/
/ILE/
/NAN/
/E.E/
/XT)/
/: /<00>
/RC2/
/5 /
/IP /
/_ R/
/EGl/
/STE/
/R /
/ AD/
/DRE/
/55/<00>
/RC2/
/5 1/
/NTE/
/RRU/
/PT /
/VEC/
/TOR/
/ AD/
/DRE/
/55/<00>
/RC2/

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

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

CZRCH RC25 DISK FORMATTER
CZRCH2
REV A PATCH 00 GLOBAL TEXT SECTION
012425
012430
012433
012436
012441
012444
012447
012452
012455
012460
012463
012466
012471
012474
012477
012502
012505
012510
012513
012516
012521
012524
012527
012532
012535
012540
012543
012546
012551
012554
012557
012562
012565
012570
012573
012576
012601
012604
012607
012612
012615
012620
012623
012626
012631
012634
012637
012642
012645
012650
012652
012655
012660
012663
012666
012671
012674

065
040
125
040
105
105
040
114
105
125
124
116
102
040
040
m
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
05
052
052
052
000
045
101
040
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
11
125
124
116
104
105
122
124
117
000
116
052
052
052
052
052
052
052
040
124
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

ASCII
ASCI1

/5 /
/7 B/

LASCII

/EL/<00>

LASCII
ASCII
LASCII
LASCI1
ASCII
LASCII

m
040
115
122
117
122
107
117
m
000
122
124
116
116
124
104
040
106
115
040
104
000
045
052
052
052
052
052
052
052
116
1
040
052
052
052
052
052
052
052

P.AFF:

045
040
040
105
124
040
123

P.AFI:

P.AFG:

P.AFH:

LASCII
LASCII
LASCII
.ASCII
LASCII
.ASCI1
LASCII
ASCI1
LASCII
LASCII
.ASCIl1
LASCII
ASCII
LASCII
LASCI1
.ASCII
LASCII
.ASCII
.ASCI1
LASCII
LASCII
LASCII
LASCII
ASCII
LASCII
LASCII
LASCII
LASCI]
LASCI]
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI]
LASCII
LASCII
JASCII
LASCII

LASCII
LASCII
LASCII
ASCII
.ASCI1
LASCI1
LASCII
LASCII

SEQ 11

Page 5
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: LNEALE .AZTECICZRCH2.B816;2 (13)

/US /
/7 R/
/EQU/
/EST/
7/
/LEV/

/UNI1/
/T /
/NUMN/
/BER/
/7 TO/
/ BR/
/ING/
/7 o/
/NL1/
/NE/<00>
/FOR/
/MAT/
/7 IN/
/7 UN/
/ATT/
/END/
/ED /
/REF/
/ORM/
/AT /
/MOD/
/E/<00><00>
/3IN%/
/Axn/
/xxn/
/xxn/
/xxn/
/axn/
/xxn/
/xxn/
/+ N/
/0T1/
/CE /
/xxn/
/xxn/
/axn/
/xen/
/xnn/
/xnxny/
/xnn/

<00><00>
/3INX/
/A /
7/
/OPE/
/RAT/
/OR /
/MUS/

000000
000000
000050
060052

000054
000056
000456

000736

001736
002316
002430
002450

002452
002466

ONSONSONSWON

2--.-.-.-.-.-.-.-.
=_O=N=NNNNO

o
&»

NONNNOOWVT

P.AFJ:

[ Y
P
S e
OoO=NNO
oNESOW SO

VIIVIVI=
0N VOO

O=0O00==0

= N=00c0O000N

-l-.—l—h—l-l-.-l—.—.—l—loog -

013013

124

VIVI=

VOO =VOO-=WnOHro

SHoowm

SRRZSRRIRSIR SRS

012677

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

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

O=O=TNVVOOON)
= =285

CZRCH2
REV A PATCH 00

.PSECT
COM.AREA::
.BLKW

HEAD.AREA::
.BLKW
RECEIVE.RING::
.BLKW

SEND.RING::
.BLKW
REC.ENVELOPE::
.BLKW
SND.ENVELOPE::
.BLK
FCT.BUF::

.BLK
REC.BUF::
::
SND.BUF
.BLKW

QUTSSTD.BU:F:

.BLKW
RET.ENSADé:

DATETXT::
.BLKW
FLG.WRD::

BLKW

/ RE/
/FOR/
/MAT/
/ MO/
/DE/<00>

$GLOBS,

oh
1
1
1

200
130
400
170

RO,

GBL

SEQ 117
Page 52

VAX=11 Bliss=16 V3=555
[NEALE.AZTEC JCZRCH2.B16;2 (13)
SPIDER:SUSERS

810

000000

002500
002502

002512

RC25.ADDR::

BLKW

002516

.BLK
VEC.ADDR::
.BLK
BR.LEVEL::

002520

UNIT.NO

002522

PTBL.PTR::

002514

002524

001377
000000
003400
003777
005777

.BLK

«BLKW
RSVD.STRUCT::
WORD

-WORD

-WORD
.WOR
ISD.STRUCT::

NRD.SLOT::

002510

002506

IOed

002476

b -d

002472
002474

NEX.FLAG::
BLKW
.BLKW
OVSA::
NXT.CRN::
.BLKB
+EVEN
RET.STATUS::
RD

16 5:07
:21:37

-—

002470

11-Jul-198
7=Jul=198

CZRCH RC25 DISK FORMATTER
GLOBAL TEXT SECTION

-0

CZRCH2
REV A PATCH 00

3400

111033

LSSOFT, TSPTHV, LSRPT, LSINIT

LSCLEAN, LSLAST, LSHARD, LSDVTYP
LSDESC, LSDU, LSAU, LSAUTO, T1
ERRTYP

LSERRTBL==
L$SW==
LS$HW==
LSDEPO==
DFPTBL==
SFPTBL==

LSSWLEN+2
LSHWLEN+2
LSREV#+1
LSHULENoS
LSSWLEN+

FMTS5==

P.AAC
P.AAD
P.AAE

FMT1==
FMT2==
FMT 3==
FMT4==

P.AAA

P.AAB

VAX=11 BLiss=16 V3=555

SEO 118
5

SPIDERSUSERS: CNEALE.AZTECICZRCHZ. 816.2(13)

c10
CZRCH2
REV A PATCH 00

11=Jul=1983
7=Jul=1983

CZRCH RC25 DISK FORMATTER

GLOBAL TEXT SECTION

FMT6==
FMT7==
PID.FMT==
CRLF==
XCRLF==
RINGBASE==
MSGADR==
PFE.STRUCT==
EMSG.STRUCT==
RC.STRUCTURE==
SDUP.STRUCT==
SMSCP.STRUCT==
DATMSG==
NO.ADD.UNITS==
PWR.MSG==
ABO.MSG==
TO.MANY.UNITS==
GOOD.NUM.UNITS==
BOOT.FAILURE==

08:21:87

P.AAF

COH.AREA010
REC.BUF+2

P.AAK

P.ABI

P.ACG
P.ADU
P.AEC
P.AEQ
P.AER
P.AES
P.AET
P.AEU

P.AEV

PROTO.VIOLATION==
PORT. INIT.ERR==

P.AEW
P.AEX
P.AEY

HW. 02 VECTOR==
HW.Q3.BR==
HW.Q4.UNIT==
SW.Q1.UNATT==
SW.Q2. NOTICE==
SW.03.0PER==
SW.Q4.UNATT==

P.AFD
P.AFE
P.AFF
P.AFG
P.AFH
P.AF1
P.AFJ

ACTIVE.DUP.SERVER== P.AEZ
lNACTlVE.DUP.SERVER=;
AFA
FCT.REQ. HSG=°
P.AFB

PSECT SUMMARY

SPLITS

words
59
694

Attributes
RO,
I
.,
RO,
D
,

2823

RO,

REL,
REL,
REL,

LCL,
GBL,

GBL,

LIBRARY STATISTICS
= e e >W

File

SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16;5

Total

398

s mbo l s

Loaded

........

176

Percent

CON
CON
CON

VAX=11 Bliss=16 V3=555

SEO 119

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

010

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

BLISS /PDP11/LIST CZRCH2.B16
Size:

Run Time:

0 code + 3576 data words

00:24.0
Elapsed Time:
09:35.7
{ Used: 209 pages
Compilation Complete

COMMAND QUALIFIERS

11=Jul=19

7-Jul-19gg0 21
g7

VAX=11 Bliss=16 V3=555

SEO 120

SPIDERSUSERS: [NEALE .AZTECICZRCH2. 816.2(13)5

E10
CZRCH RC2S DISK FORMATTER

11=Jul=19
7=Jul=19

VAX=11 Bliss=16 V3=555
.AZTEC
USERS
: [NEALE
SPIDERS

MODULE CZRCH3 (XTITLE *CZRCH RC25 DISK FORMATTER®
IDENT = 'REV A PATCH 00°

ADDRESSING_MODE (RELATIVE) ,
;nvxaonneur (NOEIS)

BEGIN

?Sbttl 'MODULE DECLARATIONS'

g Pretty Declarations

Viviwvi

i i

viavivaivaiaaiaawvi

purs

8828

gWWWWNNNNNNNNNN—I—.-fi—I
—_-—
38K So«vnbw
W
=O VNS WN=OOVRNOWVNSWN=O

§<aLr/LOUERCAse_xev>
Library "CZRCHO';

'Define RC25 Library module

require 'BLSMAC.REQ';

'Define Bliss Macro Library

5 Structure declarations used within this module.
structure
'+

! R(25 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
address
space without generating machine checks.

RC25 [0, P, S, EJ =
begin
local
RCSS_REG;
RCSS_REG = .(RC25 + Xupval*0)<0, XZbpval, 0>;
RC&S_REG
en

<P, S, B>;
'<blf/page>

SEQ 121

(1)
3 6:
JCZRCH3.B1

F10

CZRCH3

CZRCH RC2S DISK FORMATTER

11=Jul=198

REV A PATCH 00 MODULE DECLARATIONS
:

1535

1536

1538

1537

| The

i to

psect

naued ‘tode

called’ aScode

i at absolute address

1542

psect

}gzg

:
:
:

}gfi?

1543
1544
1545

1548

used

inplace

5 External

$code$’’

is redefinded here

This is done to force the tkb

Then for consistency

of ‘‘code or $code’’

across all

Routine declared outside this module.

1549
1550

external routine
DECODE : novalue,

1553

!<blt/page>

1551
1552

code = aaScode;

:
:

3
3

7=Jul=198 086:19

! Linker to place the prgaoans
header information starting

1539

LOAD_FILE;

144

‘‘aScode’’

modules.

VAX=11 Bliss=16 V3-555

SEO 122

SPIDERSUSERS [NEALE.AZTECICZRCHS. 816.3(2)

610
CZRCH3

REV
A PATCH 00

‘0

LN
TR LADAL L T
PRLA

'Overlay section starting adrs

PR LA PRTR
PR

1_1IP,

PRTR
P

?U_04_UNIT.

‘DM host buffer adrs

'H/W question 1 for IP reg address

'H/W question 2 for interrupt vector address
'H/VW question 3 for bus req level

'H/W question & for unit no. to format

PR T

f Software question ascii string messages

SH Q1_UNATT,

!Unattended reformat software question

'Notice message
'Operator must be present in this mode
'Running in unattended mode

1580

: Formatting print string

R TR

SW_Q2°~
NOTICE.
SW_Q3_OPER,
SUQ4_
UNATI

FMT2,
FHYS

!Notifies unit being formatted
'Notifies format abort

gcatf.

'Prints ten <CRX<LF>

OVSA uord.

WS S

CRIF,

NO_ADD uulrs.

e e
e

T0 HANV UNITS,

Go0D_NURUNI!S.

e R
s T

QATHSG.

FLG URD : bitvector [16],

W)
=

LUN": ‘te

e S

e I

—

'Message to ask operator for date

‘ Miscellaneous external data declarations

TSCRY<LF>

g Init code error and informational messages

R
R R

'DM file name ascii text

Hu02
VECYOR.
HW_Q3_BR,

‘DH FNSEXT.

‘ Hardware question ascii string messages

R
A
R

datums declared outside of this module.

ZFHTR vector [8892, wordl,

PTBL PT

ref vector [4, word]),

DAtETX! : vector [12, bytel,

; Supervisor defined data declarations

LSUNIT,
g Hardware P_Table storage declarations
RC25_ADDR : ref RC25 field (ISD_FIELD),
VEC_ADDR : word,

SEO 123

SPIDERSUSERS: [NEALE .AZTECJCZRCH3. 316.3(3)

3 DM load file from local media definitions

O
E e
R e
O
R
R

7=Jul=1983 08:24:19

VAX=11 Bliss=16 V3=555

extefnal

R
R
R
R AR
A R

11=Jul=1983 16:05:44

MODULE DECLARATIONS

i External Declaration of

AR
A

CZRCH RC25 DISK FORMATTER

'Global flag word

!Storage for operator date input

H10

CZRCH3
CZRCH RC25 DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS
:

1611

BR_LEVEL

11-Jul-19g§ ‘ls:gS:“

7=Jul=1983 08:24:19

: word,

}g}%

gurt_no : word,

;

}g}g
1616

§ Software question response storage declarations
SW_UNATT : word,

}g}g

! Formatter data structures

1620

1617

iSD_STRUCT : blockvector [4, 2, word) field (ISD_FIELD);

vAX=11 Bliss=16 V3=555

SEO 124

SPIDERSUSERS : [NE LE.AZ!EC]CZRCHS B16;3g(3) 4

110

CZRCH3

:
:

REV A PATCH 00

1623
16%6

CZRCH RC25 DISK FORMATTER

11=Jul=-198

1VPE AND DESCRIPTION

7=Jul=1983

4:1

lsbt\l *TYPE AND DESCRIPTION'

to the

i Tuo lines of text will be printed to the oger,tor (in_addition
at start
macrocome
come ron e ThoESCR!PT
The first will diagnostics.
1625 |1 program name).
from
will
second
and uill identify the

1628

:
3

1626

ime

1627

! the

}g%g

: ascii strings enclosed in parenthesises:

1631

DESCRIPT (Xasciz'RC25 DISK FORMATTER®);

°‘DEVTYPE''

macro

! device under test.

at hardware dialogue time and will identify the

The arugments of

1632 DEVTYP (Zasciz'RC2S DISK DRIVE SUBSYSTEM®);

macros

are

character

SEO 125

S INEALE AZTECICZRCH3.B16: 3 (4)

iss
V3=555
VAX=11 BLiss=16

SPIDERSUSERS

J 10

CZRCH3
REV A PATCH 00

CZRCH RC2S DISK FORMATTER
HARDWARE PARAMETER CODING

}ggz

}:bttl 'HARDWARE PARAMETER CODING'

1635

! The

:
:
:

1638
1639
}22?

! interpreted b‘ the supervisor as data structures.
The
! macros allow the supervisor to establish communications
; with the operator.

1642

BGNHRD;

:
:

:
;
:

16
1637

1643

hardware garanotor

11=Jul=-198
7=Jul=1983

1s:g5=46
08:24:19

VAX=11 Bliss=16 V3=555
nge
6
SPIDERSUSERS
: (NEALE .AZTECICZRCH3.B816:3 (5)

coding section contains macros

! that are used by the supervisor to
! macros are not executed as machine

build P-Tables. The
instructions but are

GPRMA (MW_Q1_IP, 20'0°, g' %0'16000°, %0°177777°,

YES, 1);

SEQ 126

!Get RC25 Controller IP register

1644 GPRMA (HW_02 VECTOR, %o0°'2", 0, 4 ;o 776*, YES, 1);
'Get RC25 Interrupt Vector address
1645 GPRMD (WWZQ3TBR, %0%4’, 0, %0f177777', 0,°7, VES, 1)
_iGet RC25 Bus Reguest Priority
mg g:oamo(m_oa,uun. %0'6'. D, %0°177777°.,°0, tdecimal*253%, vES, 1);
fGet unit number to format

8
V00N
VNS W= OO0

vivivivaavi TN

D e
o
e e
e
e
e
e
e

REV A PATC

K10
CZRCH RC2S DISK FORMATTER
SOF TWARE PARAMETER CODING SECTION

11=Jul=1983 1g:g5:
7=Jul=1983 08:264:1

?:bttl 'SOF TWARE PARAMETER CODING SECTION'

i The
!
!
!
!
5

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;

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

SEQ 127

ICZRCH3.B16: 3°(6)

oo
ON

SNINNNY

S, NWNN=OO

i o

2323522338

CZRCH3
REV A PATCH 00

11=Jul=1983 16:05:44
7=Jul=1983 08:24:19

CZRCH RC25 DISK FORMATTER

REPORT CODING SECTION

gzbttl 'REPORT CODING SECTION'

i The

section contains the PRINTS macros th at
The 'BGNRPT' and 'END RPT'
are used as begining and ending directives for the codin
con=
However, an externally located DORPT call, or
tained in the section.
i a print command from the operator, may be used to request the execu!. tion of the report coding.
statistical

report

codin

will be used to generate stat?stical reports.

'
; macros

BGNRPT;

return:

g Report summary coding is remote program driven

ENDRPT;

GP$1::

=
— bt
—a

[« ¥ X N1

&K\

§888888g

:
GP$4:

AASCODE,
/RC2/

/5 0/

/1SK/
/ FO/
/RMA/
/TTE/

5R/<00>

/M/<00>

§?<L$NDHRD-LSHRDLN>IZ>-1>

HW.01.IP
16000

000070

GP$3::

LSHRDLN::

GP$2::

CZRCH3 CZRCH RC25 DISK FORMATTER

/REV A /

—
—

«
(o]

(74

“

p=4

d
e
e
e
e
b
—

«PSECT
LSDESC::.ASCII
+ASCII
<ASCII
+ASCI1I
+ASCI1I
+ASCI1I
+ASCII
.BLKB
LSDVTYP:

d—ldddg

OWNHION=O
V=N W&

OO
D
V=2 NN

SNISNRS
iy

—

b —

—

o
W

-n-n-.-n-.-ag
NNNN?N
S WWONS
WO

N
LY

Yy
gt

VIWNNO
= O =\

RN
— ON

NEN O =iV

.TITLE
« IDENT

000000C

SEQ 128
Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH3.B16:3 (7)

.WORD

1031
2U.OZ.VECYOR
774

2032
Hg.OS.BR
0
4
3052

000120
000122
000124
000126
000130

000000G
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

.WORD
.WORD
.WORD
.WORD
LSNDHRD
::
BLKW
LSSFTLN::UORD

GP$5::

.WORD
.WORD
.WORD
LSNDSFT::

000064 "
000134"

L$HARD==
L$SOFT==

000207

LRPT:

.SBTTL
RTS

SW.03.0PER. SW.Q4.UNATT.

rnrs. anr XCRLF ., No.afioFMT2
UNITS

ABO.MSG, TO.MANY.UNITS

cooo nun UNITS, wnss. FLG.WRD
PTBL.PTR, DATETXT. LSUNIT

aczS ADDR, VEC.ADDR, BR.LEVEL

UNIT.NO, SW.UNATT, ISD.STRUCT

%gPT REPORT CODING SECTION

1659

AASCODE + 0144

177772

LSRPT:: JSR
TRAP
RTS

.SBTTL

2 words

AZFMTR, OVSA

HY.01.1P, HW.Q2.VECTOR, HW.Q3.BR
HW.Q4.UNTT, SW.Q1uuArf SW.02.NOTICE

LsunoLnog
LSSF TLN+

000000
000004
000006

: Maximum stack depth per invocation:

?U.O1.UNATT

oecooe. LOAD.FILE,

0 words

Routine Base:

SPIDERSUSERS: [NEALE .AZTECICZRCH3. 816.3(7)

§§6LSNDSFT-LSSFTLN>/2>-1>

.GLOBL
.GLOBL
.6GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.6GLOBL
.GLOBL
.GLOBL

1 word,

& words,

VAX=11 Bliss=16 V3=555

275

: Routine Size:

:19

SEO 129

HU Q4.UNIT

.BLKW

Haxtnun stack depth per invocation:

004767
104425
000207

Routine Base:

O
b

CZRCH3

REV A PATCH 00

LSRPT REPORT CODING SECTION
sg.LRPT
PC

AASCODE + 0146

1670

CZRCH3

CZRCH RC25 DISK FORMATTER
INITIALIZE SECTION

LR DATN

N 10

BGNINIT;

REV A PATCH 00

11-Jul-1983
7=Jul=1983

:05:4 4

24:1 9

SEQ 130
Page 10
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE . AZTECICZRCH3.B16;3 (8)

Tee

d e

)

000
0
SIS2REEITRER
REN28

1681

°§3°'
code.

set-up type functions may also be performed in the init

The initialize code is executed under five conditions. There
are supervisor event flags that are used to let the diagnostic
know under which condition the execution is taking place. The
event flags are read using the ‘READEF'’ macro.
The conditions under which the init code is executed and the
corrresponding event flags are:
START COMMAND

RESTART COMMAND

CONTINUE CCMMAND

POWERDOWN/POWERUP
NEW PASS

00O
NOo W

d e

The initialization code is executed at the beginning of every
sub-pass and 1is primarily used for requesting P_Tables. Any

EF .START
EF .RESTART
EF . CONTINUE
EF .PWR
EF .NEW

Example of event flag use:

1698

if READEF (EF.START) then
START_FLAG = 1;

rR TRTR

TR TR PR LATR

DR LA LA DA LA LR1) I

TETETETE

TRLA DR

PR PRTR LR

%sbttl "INITIALIZE SECTION'

! 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
WN=O
~O0oo~N VIS W= O VRNV

b
—

) -

NN NNNNNNNNNNNNNNNNNNNYN
WW NONINDNINONINDNINOND N
= i e e wd e b cd b =

e
R IR A I T I R R R T

T T

! of this program.

2; READEF (EF_PWR)

!Is the PWR event flag set

begin
PRINTB (PWR_MSG);

'Report the incident and abort
'Power fail print message

WRT_RC25 (RTIP, ONES);
DOSIN:

'Abort DM code execution
'Abort further program execution

PRINTB (ABO_MSG);

'Aborting

end;

program message

See if the DRS commands START or RESTART were used to start
this formatting session. If either of them were used then
start the formatting session at logical unit zero.
:; (READEF (EF_START)) or (READEF (EF_RESTART)) !Did start of restart get us here
en

Qegin

! Check the operator for triing to format
! more than the defined

Llimit.

If they

CZRCH3

REV A PATCH 00

11=Jul=19 g 16:05:4 4

CZRCH RC25 DISK FORMATTER
lNltlALlZE SECTION

; are

then

report

7=Jul=1983

the

error

!Is the formatting limit exceeded

PR?NTB (TO_MANY_UNITS);

'Report the error

oostu.

'Go to cleanup and die

PRINTB (GODD_NUR_UNITS);

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 JSW_UNATT
then

begin

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 NOT CE);
else

'Get date from operator

IPrint notice mess 2@

PRéNtB (SW_Q4_UNATT);

'Report running in

ATTENDED mode

begin
PRINTB (SW_Q2_NOTICE);
PRgnts (SW_Q3_OPER);

'Print notice message
!Tell operator he/she must be present

end;

i Everything

Llooks

good

so far, move

on and

: hardware question responses and save them.

LUN = =1;
do

get the

!Start formatting at logical unit 0

be in
= JLUN + 1;

!Up pointer to next logical unit to GPHARD

if .LUN gequ .LSUNIT then DOCLN;

'End host code if no Logical units

end

until (GPHARD (.LUN, PTBL_PTR)) nequ 2ERO;

'!Repeat GPHARD's until P_Table adrs returned

; Get the P_Table parameters for this unit and go format it.

RC25_ADDR = .PTBL_PTR [wrd0);

13}
SEO
1

SPIDERSUSERS:[NEALE.AZTECICZRCH3. 816.3(8)

and die.

:; LSUNIT gtru LSLIMIT
en

08:24:1

VAX=11 Bliss=16 V3=555

'Load up the controllers base addres

CZRCH3

CZRCH RC25 DISK FORMATTER

11=Jul=1983

REV A PATCH 00 INITIALIZE SECTION
3
:

1789
1790

};8%

;

1793

};gg

:
:

1798

3
3

1800
}gg%

7-Jul-19g§ Og:26:19

[wrd1];
[wrd2];

VAX=11 Bliss=16 V3=555

'Load up the unit number to format

! Before Lleaving the init code section we must first do some house keeping
! Lleft behind from the ISD_STRUCT preset declaration.
The adapter purge interrupt

g bit must be defined for the type machine this formatter is

’

1799

if Xbliss (bliss16)

then
\ ISD_STRUCT [BLK1, WRD1, S2W_PI] = ZERO

else

running under.

'‘Define compiler

!No purging for PDP=11

}ggz

1805

!++

}gg;

; the local load media into azkel6é module space starting at AZFMTR : VECTOR [ ,word]

1806

1809

5 an error code is returned.

1810
1811

!
!

1814

:
3

}g}%
}glz

1817

'Purging for VAX=11

! This commented code will load an external copy of the formatter from

:
:

ISD_STRUCT [BLK1, WRD1, S2W_PI1) = ONE;

! 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 The DM code will only be read in during start! or restarts of the

;

5 host code.

¢+

}g}g

1820

‘==

Block zero of the

the

DM .sav file

will thrown out.

if LOAD_FILE (AZFMTR, DM_FNSEXT, DM_SIZE) then DECODE ();

3
3
:
3

1821
1822
1823
}ggg

1826

i This takes the DM buffer starting adrs and adds to it the number of bytes

}ggg

; adrs of the overlay section.

}ggg

6V§A = AZFMTR + (.AZFMTR [WRD0J);

1827

1832

}g%{

1835

}S§9

1838

1839

}325

! Now calculate the overlaz sections starting address and store the result

; in global location *OVSA'

1840

1843
}gzg

else

for future reference.

in the (initial load + remote program header size) resulting in the first

'Calculate overlay start adrs

begin

i The continue flag set will cause the current units formatting to be
; aborted.

The next sequential logical vnit will then be

formatted.

’

if READEF (EF_CONTINUE)

then

SEQ 132
Page 12

SPIDERSUSERS
: LNEALE .AZTECICZRCH3.B16;3 (8)

'Load up the controllers vector address
'Load up the controllers bus request

UNIT_NO = .PTBL_PTR [wrd3];

1794
1795

;

VEC_ADDR = .PTBL_PTR
BR_CEVEL = .PTBL"PTR

16:05:44

eegin

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

NITIALIZE S ECTION

VNS
W= OV~

o
e

if (.LUN + 1) gequ .LSUNIT
th n
be?in
PRINTB (NO_ADD_UNITS);
DOCLN;
end;

e
e
e
D

vivvuviuvvviav

e
e
D e e

233335
3SS ~ 3
00 SEEERBRER
8%
—=OVRNOWVS W= o0 o

'Report this luns format was aborted
'Abort this current units formatting

PR INTB (FMT3,
.LUN, .UNI T_NO);
WR T_RC25 (RCIP, ONES);

!Report no more unit to format

end;
The new pass event flag set means that all logical units have
been formatted.
Therefore end this host code and return to DS>.

D e

1 13
VAX=11 Bliss=16 V3=555
(8)
3.B16;3
SERS
[NEALE .AZTECICZRCH
SPID:ERSU

o
e

!New pass means all units formatted

if READEF (EF_NEW) then DOCLN;

| Repeat doing
; have been

GPHARDS until a non-zero value is returned or all logical units

GPHARD'ed.

End this host code if all logical units have been formatted.

—

000020

R md
D oD

LON = .LUN
+1

!Up pointer to next logical unit

if .LUN gequ .LSUNIT then DOCLN;

'End the host if all logical units GPHARD'ed

egin

end

'Repeat until a P_table adrs is returned

) e

until (GPHARD (.LUN, PTBL_PTR)) nequ ZERO;

b ——
e
b
e
i

g Get the P_Table parameters for this unit and go format it.
RC25_ADDR = .PTBL_PTR [wrd0];

'Load up
'Load up
'Load up
‘Load up

VEC_ADDR = .PTBL_PTR [wrd1];
BR_CEVEL = .PTBL_PTR [wrd2);
ungr,uo = PTBL_PTR [wrd3);
enda,

the controllers base addres
the controllers vector address
the controllers bus request
the unit number to format

WA
=

% Tell the operator which RC25 ¢ ontroller is being initialized this pass.
PRINTB (XCRLF);

!Space between each formatting pass

PRINTB (FMT2, .PTBL_PTR [WRD0J);
ENDINIT;

000034

000010

seat

o
o
e
— e

b o

00 0o 00 O

A A

I E I

R TR TR TR

TR DR DR DR D

R D

D T T TN

N T

REV A PATC

11=Jul=1983 16:05:44
7=Jul=1983 08:24:19

ZRCH RC25 D 1SK FORMATTER

SEQ 13 3

Page

CZRCH3

eEEEE o

0000006
€00001

LINIT:

.SBTTL
MOV

L&NIT INITIALIZE SECTION
l74.R0

BHIS
MOV
MOV

1$
#PUR.MSG,=(SP)
#1,-(SP)

TRAP

MOV

”m

SP,RO

: SP,»

1714

EN
CZRCH3
REV A PATCH 00

FORHAYTER

CZRCH
lNlT A

14
#AB0.MSG, (SP)
#1,-(SP)
SP.RO
T4

0000006
000001
177777
0000006

Ro.aRCZS.ADDR

: SP,+

0000006
000001

#GOOD .NUM.UNITS,
(SP)
#1,=-(SP)

RSmw
Y e T ) ;IN

0000006
000001

X wTe No B

0000006
000001

(e Mo ¥

]

Romm
&H
3

—~c00 —_—

0000006
000001

€000006
000001

JN\—NA-.

10
12
lSH.O?i?OYlCE.°(SP)

1738

:
s

1737
1749

s 1
s ~«(D)
s 1

1756
1757
1756

1759

1760

s I.»

: SP,»

63
#SW.02.NOTICE,~(SP)

H
3

SP.RO

: SP,»

#5W.03.0PER,
(SP)

#1,-(SP)

1739

: SP,»

SP.RO

.~(SP)

1716

1735

: SP,»

#5W.04 .UNATT, (SP)
#1,-(SP)

1715

SP.RO
14

b
b
—

0000006

1713
1726

§2.Ro

000013

—

: RCSM, REG,*

#TO.MANY .UNITS,=(SP)
#1,=-(SP)

0000006

OO=000

; *,RCSM.REG

0000006
000001

44
#6,SP
#1,SW.UNATT
5$
RO
DATETXT(RO)
RO
RO,.#13
4%
43
406
DATETXT
142
D?THSG

SEC 134

; SP,»

0000006 000020

000006
000001

2%
#37,R0
&7
9%
%gUNIT.OZO

SP.RO
14

Vv3=555

SPIDERSUSERS: [NE AZtECJCZRCHS.BIb:SQ?B)

246 RO

000037

Sy NSRS o

VAX=11 Bliss=16

06 sP

000006
000040

88
28 g8888 8888 g8888s8et
SERREREES o

11-Jul-19 3 16:05:
7=Jul=1983 08:24:

1761
1749
1765
1766

CZRCH
3

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:05:44

REVA PATCH 00 INITIALIZE SECTION
000270
000272

010600
104414

000310

156700

000320
000322

103401
104444

000274 112767 000377 0000006
000302 105267 0000006
000306 005000

6%:
78:

0000006

000326
000332

005000

156700
104442

MOV
TRAP

MOVB
INCB
CLR

8s:

1783

<ao> RC25.ADDR

1788

MOV
BICB

6(R0) ,UNIT .NO
#1,ISD.STRUCT+6

:
:

1791
1799

ADD
B8R

#6,SP
14$

LUN.RO
42

CLR

000342

MOV

011067

0000006

000362
000370

016067
142767

000006
000001

MOV
MOV

0000006
0000066

000376 016767 0000006 0000006
000404 062767 0000006 0000006

000412 062706 000006
000416 000504
000420

000424
000426

012700

104447
103040

000036

MOV
ADD

98:

30 016746 0000006

000434
000436

005046
116716

000446
000452
000454

012746
010600
104414

000003

000470
000474
000476

156700
005200
020067

0000006

000456
000462
000466

012700
010077
005000

MOV

TRAP
BHIS

MOV

0000006

000442 012746 0000006

177777
0000006

RO,LSUNIT

BISB
TRAP
BEQ

000346 016067 000002 0000006
000354 016067 000004 0000006

LUN,.RO
8s
44

MOV

001760

: SP,*

;

BLO
TRAP

00033¢ 010067 0000006
000340

0377.LUN

SPIDERSUSERS:[NEALE.AZTECICZRCH3. 816.3(3)

1774
1778
1780

CMP

0000006

SP,RO
14

VAX=11 Bliss=16 V3=555

:
:
:

BISB

000314 020067 0000006
000324

7-Jul=1983 08:24:19

seo 135

ao PTBL.PTR
2(RO) ,VEC.ADDR
4(R0) .BR . LEVEL
AZFMTR,OVSA
#AZFMTR,OVSA
47
118

UNIT.NO,=(SP)

-(5P)
LUN, (SP)

MOV
MoV
TRAP

#3,-(5P)
SP,RO
14

MOV
MOV
CLR

1789
1790
1830

1728
1726

#36,R0

CLR
MOVB

MOV

:
:

1839

;

1846

#FMT3,=(SP)
: SP,w

#-1,R0
RO,3RC25.ADDR
RO

: *,RCSM.REG
: RCSM.REG,*
:

1849

1852

0000006

BISB
INC
CMP

000504 012716 0000006
000510 012746 000001

MOV
MOV

108
#NO.ADD.UNITS, (SP)
#1,-(SP)

ST
ADD

(SP)+
#10,5P

B
:

1851
1841

:
:

1872
1874

000502 103410
000514
000516
000520

000522
000524

000534
000536
000540

000542
000546
000550

BLO

010600
104414
104444

005726
062706

000010

012700 000035
104447
103001
104444

000554

105267
005000
156700
020067

000562

104444

000560 103401

0000006
0000006
0000006

MOV
TRAP
TRAP

108:

11$:

128:

TRAP
BHIS
TRAP

INCB
CLR
BISB
CMP

BLO

TRAP

LUN.RO
RO
RO,LSUNIT

1847

SP,RO
14
44

: SP,«

oss‘PO

1zs
44

LUN
RO
LUN,.RO

RO,LSUNIT

13§

1863

CZRCH RC2S DISK FORMATTER
INITIALIZE SECTION
000564
66

138

0000006
0000006

0000006

MOV

(R0) ,RC25.ADDR

000006

BEQ

MOV
MOV

0000006

2(RO3, VEC.ADDR
4(R0) .BR.LEVEL

s
s
3
s
3

1882
1883
1884
1885
1891

SP.RO

: SP,*

0000006
0000006

MoV
MoV

aPTBL.PTR, (SP)
NEMTZ, -(SP)

TRAP

MOV
MOV

221 words,

ADD
RTS

Routine Base:

: Maximum stack depth per invocation:

177102

7 words

1892

#2,-(5P)
SP.RO

: P,

#10,SP

1674

1892

AASCODE + 0156

.SBTTL

LSINIT::JSR
TRAP
RTS

LSINIT INITIALIZE SECTION
PC,LINIT
1
PC

4 words,
Routine_Base:
AASCODE + 1050
Haxtnun stack depth per invocation: 2 words

; Routine Size:

1877

TRAP

6(R0) ,UNIT.NO

#XCRLF ,=(SP)
#1,-(SP)

000010

004767
104411
000207

128

Eo 136
16

SPIDERSUSERS: [NEALE .AZTECICZRCH3. 816.3(a)

MOV
MOV
MOV
MOV

148:

000002

000000
000004
000006

LUN.RO
42
RO,PTBL.PTR

0000006
000001

; Routine Size:

CLR

BISB
TRAP
MOV

000002 0000006
000004 0000006

000670

11=Jul=1983 16:05:44
7-Jul=1983 08:24:19

VAX=11 Bliss=16 V3=555

CZRCH3

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
AUTODROP SECTION

11=Jul=1983 16:05:4
7=Jul=1983 0. 26'

VAX=11 Bliss=16 V3=555

SEO 137

SPIDERSUSERS:[NEALE .AZTECICZRCH3. 816.3(9)

!sbttl *AUTODROP SECTION®

000000

2
oo

—2

! the "ADR’ flag was set. The unit(s) under test are checked to
! see if they will respond. Those that don't are immediately
d
- ropped from testing.
BGNAutO
return;

R I R T R I LT

: this code is executed immediately after the initialize code if

ENDAUTO;

000207

LAUTO:

.SBTTL
RTS

LAUTO AUTODROP SECTION
PC

1893

Routine Base: AASCODE + 1060
; Routine Size: 1 word,
s Maximum stack depth per invocation: 0 words

000000
000004
000006

004767
104461
000207

177772

.SBTTL

LSAUTO: :JSR
TRAP
RTS

LSAUTO AUTODROP SECTION
PC.LAUTO
61
PC

4 words,
Routine Base:
AASCODE + 1062
: Routine Size:
: Maximum stack depth per invocation:
2 words

1902

7=Jul=1983 08:24:1

CZRCH3
CZRCH RC2S5 DISK FORMATTER
CODING SECTION
A PATCH 00 CLEANUP
REV

11-Jul-1 983 16:g
1A

}ggg

1906
1907

| itiating

}3?3

: return of a test device to a static state.

}3}5

: The clean-up code is invoked in three different ways:

1913

1915

' Cleanup coding is assembled with the diaanostic program, utilizing in(BGNCLN)

and ending (ENDCLN)

directives.

The coding can be

1908 | used by either the diagnosticprogram or the supervisor to affect the

1914

A. At end of every

sub-pass

B. Issuance of DOCLN macro

C. Operator “C

3
3

1916
}3};

QGNCLn-

1919

| Before initing the RC25 controller check first to make sure that

;

}gg?

1922

}ggz

1925

1926

: that this is not a non-existant register.

if not .FLG_WRD [NON_EXIST_REG] then WRT_RC25 (RCIP, ONES);

return;

032767 000002

000010
000014

012700
010077

000020

001004

000207

'Abort DM code execution

ENDCLN

000000

000006

SPIDERSUSERS: [NEALE .AZTECICZRCH3. 816.3(10)

VAX=11 Bliss=16 V3=555

!sbttl *CLEANUP CODING SECTION'

SEO 138

.SBTTL

000000G

LCLEAN: BIT
BNE

177777
000000G

1$:

MOV
MOV

RTS

LCLEAN CLEANUP CODING SECTION

#2 ,FLG.WRD

#-1,R0
RO,aRC25.ADDR

: *,RCSM.REG
: RCSM.REG,*

1923

1903

1925

: Routine Size: 9 words,
Routine Base: AASCODE + 1072
: Maximum stack depth per invocation: 0 words

000000

004767

000004
000006

104412
000207

: Routine Size:

177752

LSCLEAN

.SBITL

LSCLEAN CLEANUP CODING SECTION

JSR
TRAP

PC.LCLEAN
12

RTS
& words,

Routine Base:

Haxinun stack depth per invocation:

2 words

AASCODE + 1114

CZRCH3

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:05:44

VAX=11 Bliss=16 V3=555

REV A PATCH 00

DROP UNIT SECTION

}ggg

}:bttl ‘DROP UNIT SECTION'

1929

| The drop code is invoked by a DODU macro or a drop command,

}3?%

5 section.

193,

| The effect of a DODU is the same whether executed in the init code or

:
3

1936
}33;

!
!

:
:

000000

1930
1931

1935

7=Jul=1983 08:24:19

and

SEQ 139

Page

SPIDERSUSERS
: [NEALE .AZTECICZRCH3.B16:3 (11)

con-

! tains any code that needs to be executed in conjunction with the drop=! ping of a unit from the test cycle. No coding is required in this

in a hardware test.

It invokes the drop unit coding

and causes subse-

quent GPHARD'S for that logical unit to be returned
°‘NOT COMPLETE'.
This
effect
Lasts only for the duration of the current command.

1939 BGNDU;

1940

1941

return;

ENDDU;

000207

Lbu:

.SBTTL
RTS

LDU DROP UNIT SECTION

1926

1940

: Routine Size:
1 word,
Routine Base:
AASCODE + 1124
; Maximum stack depth per invocation:
0 words

000000
000004
000006

004767
104453
000207

177772

LSDU::

.SBTTL
JSR
TRAP
RTS

-LSDU DROP UNIT SECTION
PC,LDV
53
PC

; Routine Size:
& words,
Routine Base:
AASCODE + 1126
; Maximum stack depth per invocation:
2 words

CZRCH3

REV A PATCH 00

11=Jul=1983 16:05:4
:
7=Jul=1983 08: 26:

CZRCH RC25 DISK FORMATTER

ADD UNIT SECTION

1942
1943

%sbttl "ADD UNIT SECTION'

}g:g

; test cycle.

:
:

1944
1945

! The add code is invoked b¥ the ADD command, and contains an‘ code that
! needs to
executed
1n conjunction with adding a unit back to the

1948

| Units may be added to the test sequence onl;
through the use of opera=-

}3;;

g The section is just for programmer housekeeping.

3
:
:
:
3

1949
1950
1951
}32%

;

!
!
!
;

VAX=11 Bliss=16 V3=555

SEO 140

SPIDERSUSERS: [NEALE.AZTECICZRCH3. 816.3(12)

No coding is required in this section.

tor ADD command.
Each unit must have a P-T
in memory due to an
earlier hardware dialogue (i.e.
the unit uas 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:

1956 BGNAU;

:
:

1957
1958

000000

return;
ENDAU;

000207

.SBTTL
RTS

LAU:

LAU ADD UNIT SECTION
PC

1941

1957

: Routine Size:
1 word,
Routine Base: AASCODE + 1136
: Maximum stack depth per invocation: 0 words

000000
000004
000006

004767
104452
000207

177772

LSAU::

.SBTTL
JSR
TRAP
RTS

LSAU ADD UNIT SECTION
PC.LAV

: Routine Size: & words,
Routine Base: AASCODE + 1140
: Maximum stack depth per invocation: 2 words
1959
1960
1961

end

eludom

PSECT SUMMARY

Psect Name

Words

Attributes

L.IBRARY STATISTICS

File
SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16;5

ceccccee Symbols ====e===-

Total

Loaded

Percent

Blocks

Read

L n

KEUCAPATCH 00 ABD UNT-SECTION DAV
IER
:

398

IF IERS
COMMAND QUAL

BLISS /PDP11/LIST CZRCH3.B16
's;:'z‘enn

Elapsed Time:

258080# 6 50 data words

00:23.5

Memory Used:
214 pages
Compilation Complete

Dt 1o8s 18 0aits
15

Y Thems i e K

SEO 141

e caczrens. o16:370125

CZRCH4

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:09

7=Jul=1983 08:24:38

0001
0002

MODULE CZRCH& (XTITLE °*CZRCH RC25 DISK FORMATTER'
IDENT = *REV A PATCH 00'

0004

ENVIRONMENT (NOEIS)

0003

) =

BEGIN

0009

| Pretty Declarations

0010
0011

0015

?sbttl 'MODULE DECLARATIONS'
!
!<blf/lowercase_key>

88}?

Library "CZRCHO';

'Define RC25 formatter Llibrary

?gag

require 'BLSMAC.REQ';

'Define Bliss Macro require file

1506

1508

! to be called '‘ab$code’’.
This is done to organize the
! formatters test sections into a seperate psect.

SRR W= OV

S
WWWW
N=OVEN

Viviui i

d e o

D e

d o

nd e

d e

D b

b e

WNN=O VDNV

b b

WNN=O

i i
i
i
i
i
v
i
W WWWANN NI NN
NN NI NN = b b b b o b b b b

1507

! The

psect named

‘‘code or $code$'’' is redefinded here

psect

code = ab$code;

% Structure declarations used within this module.
structure
iv

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
address
without generating machine checks.

VAX to allow field reference to

space

RC25 [0, P, S, E] =
begin

local
RCSS_REG;

RCSS_REG = .(RC25 + Xupval+0)<0, Zbpval, 0>;
RC:S_REG
en

<P, S, E>;

Page

4.B16;2 (1)
SERS
[NEALE .AZTECICZRCH
SPID:ERSU

ADDRESSING_MODE (RELATIVE) ,

0005
0006

0007

VAX=11 Bliss=16 V3=555

SEQ 142

1M1=Jul=1983

CZRCH RC2S DISK FORMATTER

CZRCHG
REV
A PATCH 00 MODULE DECLARATIONS
:

1543

}gzg

1546

:
:

1548
1549

3
:

;
:

;
:
:
:

; External Routines declared outside this module.

1547

external routine

1550

EX_SUP_PROG.

1551

1552
1553

7=Jul=198 03:22:28

;

ABORT,
GET_DUST_STATUS,
EX_LOC_PROG,

RET DATA,
SEND_DATA,

1554
1555

SET_UNTLR_CHAR,
ON_CINE,

1557

INTSI_SERVICE : INT_LNKSTYP novalue,

1556

1558

1559
1560
1561
1562

DUPSI_SERVICE : INT_LNKSTYP novalue,

INIT_TOM_AREA,

BOOT"RC2S,
DECODE : novalue;
!<blf/page>

16:06:09

VAX=11 Bliss=16 V3=555

SEQ 143

Page

SPIDERSUSERS
: LNEALE .AZTECICZRCH4.B16;2 (2)

B 12

11=Jul=1983

7-Jul-198§ 08:24:38

FORMATTER

CZRCH RC25 DISK
CZRCHG
DECLARATIONS
A PATCH 00 MODULE
REV
:

1563

}ggg

1566

:External Declaration of

1567

:
:
3
:

1571
1572
1573
1574

SW_UNATT,
DATETXT : vector [12, bytel,
LUN : uord.
lt NO: word,

1576

ISD STRUCI blockvector [4,

:
:

:
4
:
:

1568
}?93

1575

!
; Micellanious external data declarations

G_ORD : bitvector C16],

}

PTBL_PTR: ref vector Cé4, uordj volatile,
usx _FLAG : uord.

1581

FCTCBUF: block [256, word],

1580

1582

1583

NXT_CRN : b

SND_BUF : vector [SNDB_SIZE,

word],

'Init sequence data

‘RCZS regfstcr existence flag
command ref number

Extcrnat FCT sector load buffer
DUP send cmd text buffer

RECTBUF: block CRECB_SIZE, wordJ field (RECB FIELD).

MSGADR,
NSD_SLOT: word,
NRD_SLOT: word,

1588

RET_“STATUS : uord.

}gg?

RCZSADDR: ref RC2S5 field (ISD FIELD),

1589

'Global flag word

RET_ENiAD : ref block [RB_SIZE + 2, word] field (ENVFIELD)

1584
1585
1586
1587

'Unattended reformat mode flag
!Stores operator date input
!Logical unit number storage
'Physical unit number storage

word) field (ISD_FIELD),

PIDSAVE : vector [2,

'DUP roceive cmd text buffer

1Pointer to DM sent ascii text
iStores next send ring slot to load cmd into
'Stores next receive slot to expect response in

VECZADDR
: uord

'Stores controllers vector address

word]l,

'Stores return status of called routines
'Saves process indicator word

'RC25 reference structure

}gg%

: Init sequence code error

1594

BOOT FAILURE,

1596

}ggg

PORT _INIT_ERR,
ACTIVE
DUP SERVER

}gg?

: External FCT request message during RESTORE formatting mode

}ggg

fCl_REO_HSG.

}ggg

g Printing format strings and ascii text strings

1606

DATMSG,

1608

FMT1,

1595

1597

1607

1609

1611

3
:

1610
1612

PROTD VIOLATION.

INACTIVE_DOP_ SERVER,

CRLF,

FMTS.,

nrb

FHT?

SEO 144

SPIDERSUSERS [NEALE.AZTECICZRCHG. 816.2(3)

external

1577
1578

1579

VAX=11 Bliss=16 V3=555

datums declared outside of this module.

3
:

16:06:09

¢ 12

CZRCH RC25 DISK FORMATTER

CZRCHG

REV A PATCH 00 RC25 REGISTER EXISTENCE TEST
:

1613

1617

!++
! Functional Description :

1619

1618

1620

his section will be the first code to be executed during a formatting
session and will ensure that the object drive to format actually does
exist. The format for the unit will be aborted if the drive fails to

}g%;

;

1623

| Implicit Inputs :

:
:

1626
1627

:
:

1629
1630

3
:
:

1632
1633
1634

1636

3
3

:
:
3
:

1624
1625

!
!

1628

1631

1635

1637
1638
1639
}22?

respond to this initial test.

none

! Implicit Outputs :
!
none

! Completion Codes :
!
none

! Side Effects :
!
none
!=Llocal

F,
DUMMY : volatile,
TEMP : volatile,
RETRIES;

'EOF indicator
'Dummy variable for register ext test

'Store number of retries to perform

3
:
3
:
:

1642
1643
1644
1645
}gzg

FLG_WRD [NON_EXIST_REG] = ZERO;
NEX'FLAG = ZEROS;
SETVEC (4, INTSI_SERVICE, PRIO?7);
TEMP = .PTBL_PTR [WRDO];
TEMP = TEMP + 2;

!Initially clear nonexistant register flag
!Clear out nex flag
1Set
for an nex trap
'Get this controllers IP address
'Make it into the SA register address

:
:
:
2
3

1648
1649
1650
1651
}gg%

if ..TEMP
then
bfia;n
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

}ggg

CLRVEC (4);

‘correctly.

1656

if .NEX_FLAG eql ONES

!See if we got an nex

:
:

1658
1659

:
:

1657

1660
1661

1662

1663

then

be?in
PRINTB (FMT6, .PTBL_PTR [WRDO]);

FLG_WRD [NON_EXIST_REG] = ONE;
DOCIN;

end;

'Address not there
'Print error message

SEQ 145

RS (4) &
RCH4L.B16;2
RSUSE
: [NEALE.AZTECICZ
SPIDE

%sbttl 'RC25 REGISTER EXISTENCE TEST'

1614
1615

1616

7-Jul-198§ 08:24:38

VAX=11 Bliss=16 V3=555

BGNTST;

3
$
:

11=Jul=1983 16:06:09

'Set flag indicating non-existant reg

Page

D12

SEQ 146

CZRCH4
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
INITIALIZE RC25 CONTROLLER

}22?

}3bttl "INITIALIZE RC25 CONTROLLER'

1666

! The next thing

1670

| But before we do the boot sequence the processors priority and interrupt

1672

! sequence interrupt service routine will just

:
3
3
:
:

1667
}ggg
1671

1673
}g;g

11=Jul=1983 13:06:?9
7=Jul=1983 08:24:38

to be done is to boot the RC25 controller.

' a few retries 1f not successful after the first boot
; the Controller dead.
! vector addr.ss must first

Lloaded.

Durin?

1676

| The following priorities will be assigned:

}ggg

;

1677
1678

!
!

1. Processor will
run at
2. The RC25 runs at priority

3. The

1681

1685

}ggg RETRIES = =1;

;

1690 do

1692

:
3

1682
}ggz

}ggg

1700

1701

1702

1703

1705

1706
1707

1709

1712

1715

:
2

:
:

% Retry

the RC25 booting until the return is true or the retry limit is reached.

'Reset the retry counter

; Report booting error if the return status
if not .RET_STATUS

then

never

came

back as true.

be?in

'Report a boot error

DOCLN;
end;

!Abort the program

PRINTB (BOOT_FAILURE);

; has done its part of the DUP protocol

1720

'Repeat the Boot until done

!Did the Controller boot

};}?

1718
1719

'Up the retry count

until (.RET_STATUS) or (.RETRIES eqlu ONE);

};}9

'Boot the RC25 controller

1708

};}2

!Clear out the vector before setting
5Set the interrupt service priority

RET_STATUS = BOOT_RC25 ();

1704

:
:

iSet the processers priority

RELRIES = .RETRIES + 1;

1697

sequence the Init

any interrupts and ignore

priority 2ero.
b{ default.

CLRVEC (.VEC_ADDR);
SETVEC (.VEC_ADDR, INTSI_SERVICE, PRIO7);

}ggz

}283

concidered

SETPRI (PRI00);

begin

init

DUP interrupt routine will run at priority 7.

1691

}ggz

the

We will allow

! them since interrupts are
disabled during
init sequence. Later the DUP
5 interrupt service routine will be Lload and do the DUP communications protocol.

:
:
:

flag

before

VAX=11 Bliss=16 Vv3=555
Page
SPIDERSUSERS
: LNEALE .AZTECICZRCH4.B16;2 (5)

! Now

that

the RC25 controller is booted,

| while we're there set

; between the remote and

:; INIT_COM_AREA ()
be?in
PRINTB (PROTO_VIOLATION);

PRINTB (PORT_INIT_ERR);

5y clearing

the communication area

host program.

check to make sure that the controller

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
CZRCHG
REV A PATCH 00

bsttt
1 AP
w

i i

NNNNNNNNNNN
W
WWIWWNI NN

1721
1722
1723
1724

CZRCH RC25S DISK FORMATTER
INITIALIZE RC25 CONTROLLER

SEQ 147

11=Jul=1983 16:06:09
7=Jul=1983 08:264:38

Page
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH4.B16:2 (5)

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);

?ETVSC (.VEC_ADDR, DUP$I_SERVICE, PRIO7);

communications

between

'Clear out the vector before starting
!Set the interrupt service priority

i Start the controllers functional micro code by writing the SA Register
5 with step four write data with the go bit set.

WRT_RC25 (RCSA, (.ISD_STRUCT [BLK3, ISWRT, ISW_ALL) or %0°'000001*));

!Let the controller go

F 12

CZRCH RC25 DISK FORMATTER
BRING RC25 CONTROLLER ONLINE

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEALE .AZTECICZRCH4.B16; 26)

1e4
l

l
l

Functional Description :
This section will set the RC25 controllers characteristics and place
the unit on=line.

i Implicit Inputs :

none

TR PR PRTR

: Implicit Outputs :
l

l
l
l

none

Conpletvon Codes :

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

i Do a unit on line cmd which will spin up the device and load the heads.
Th
! unit to be placed on Lline will be the last unit number received from the ‘gphard’
i macro in the init code.
PRINTB (FMTS, .LUN,

LUNIT_NO);

5Tell operator which units coming online

T R T R T A

TR T

TRTR

TRIR

11=Jul=1983 16:06:09
7=Jul=1983 08:24:38

%sbttl 'BRING RC25 CONTROLLER ONLINE'

A T TR

TRLA DA

L T

PR LA DALA LN T

CZRCH4
REV A PATCH 00

if ON_LINE

()

then DECODE

();

SEO 148

'Call decode if not successful

G 12
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:3

VAX=11 Bliss=16 V3=555

SPIDERSUSERS:[NEALE.AZTECICZRCHG. 316.2(7)

Xsbttl 'DOWN LINE LOAD FORMATTER AND MONITOR TASK'
‘00

i Functional Description

This section will doun line=load the RC25 formatter and monitor

the formatting task.

ilnpltcit Outputs :
iConpletion Codes :
i Side Effects :
none

i See if the Dup server in the RC25 Controller is in an

idle state.
To do this first get the dust status and
then look aslthe flag field bit 3 for a :

D D

§§§§§§§§§§§§Ei‘fifiéfifi%&’ié‘éé‘éé

D d b —-d —d

ilnplicit lnputs s

d D
D

]

D b D

; Look in the flag field bit 3 to see if the server is active.

) D d =D

D D -

1 = active

if GET_DUST_STATUS () then DECODE ();

:; RET_ENSAD [FLG_B3]

!Call Decode if connection error

'1f the server is active exit and reboot

be?in

— o

not

active

down

Lline load the fornatter

ek e

D e

WN=O

server

and start its execution by issuing a ‘Execute supplied program'’.
Call
the decode routine if a connection error is detected.
if EX_SUP_PROG () then DECODE ();

!Call decode if connection error

e
— ot
b

D e

)

D cd

R
R RoRS
oW SWN=O VNIV

) —d

)

00 00 G0 0o Oo GO 0o OO OO OO

)

) D —d

PRINTB (ACTIVE_DUP_SERVER);
DOCLN;
end;
The

Get the dust status to see if the server is in an active
state. An active state is what we want so error if the
server is in an idle state.

in the active state then save the progress indicator

in ‘Pid_save'’ for future reference.

if GET_DUST_STATUS ()

then DECODE ();

SEO 149

!Call decode if connection error

H 12
CZRCHS
REV A PATCH 00

:; not (.RET_ENSAD [FLG_B3]))

ORES
3“N°\fibv‘-‘°°
WN=O

SEQ 150
Page
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH4.B16;2 (7)

be?in

else

PRINTB (INACTIVE_DUP_SERVER);
DOCLN;
end

begin

RET_ENSAD [PLO_IND];
«RET_ENSAD [PHI_IND];

PID_SAVE [0 )|
PID_SAVE [1 J
end;

R I SO

16:06:09
(8:24:38

!Reboot if server is idle

R
R
R
e B
e
e T
e D
S

S
S
S
S
S
bL
e
b
e
d
d
i
d
b
d
— o
—a —

11=Jul-1983
7=Jul=1983

g Look at the flag field bit 3 to see if the server is active.

330 P P 020000050
30 00 00 0000 008

1827
1828

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

'Save progress indicator lo word
!Save progress indicator hi word

The

Dup

server is in the active state running the formatter
This DO LOOP will Lloop on the DUP
sub-protocol
doing
the ‘‘send and receive'’ data commands.
These commands
establish the communications between this host program and
the remote formatter program running in the RC25 controller.
program.

RETRIES = ZERO;

Clear out the retry flag

while TRUE do
begin
‘s

! Do a "Receive_data' command which poll's the remote program
! for a message.
The returned message can either be a:
1. Question

where the ascii text is a prompt for information.

2. Default question
wWhere
the default question message is identical
to the question nessage exept that a null (zero
length) send data is taken to be a default answer
to the question.
3. Information
Where the

ascii

text

is an informative message.

4. Termination
Where the ascii text is an normal termination message.

5. Fatal Error
where the
6. Special

This

ascii

text

is a fatal error message.

type is used when only a host program could

respond.

if REC_DATA () then DECODE ();

!Call decode if connection error

CZRCHS
CZRCH RC25 DISK FORMATTER
REV
A PATCH 00 DOWN
LINE LOAD FORMATTER AND MONITOR TASK
:

1884

11=Jul=1983

16:06:09
7-Jul-198§ 08:264:38

1885

! From

1888

! into the select expression to perform the requested action

3
3

1886
1887

1889

nessage the remote program has sent to
Use this message t‘pe number to index

! by the remote program.

1890
1891

}33%

$SCLRSBUF;

}ggg

selectgneu .REC_BUF [MSG_TYP] of

1896

1899

3
3

:
3

1897

1900
1901

1902

}ggz

1905

}ggg

1908

1912

1917

}g;g

1921

3
:
:

:
:
:

;

1909
1913
1914

1918

Page 1
SPIDERSUSERS
: (NEALE .AZTECICZRCH4.B16;2
(7)

the first word in the send/receive data buffer, look

! to see what type
! the Host program.

:
3

VAX=11 Bliss=16 V3=555

'Clear out the send buffer area

!Select the appropriate action

1] :

'Question message type

begin

i Look

into

the

! is

asking.

! number field and
; select

send/receive data buffer

Use the

expression

see

what

fields

perform

selectgneu «REC_BUF [MSG_NUM] of
se

oJ :

at the message

question the remote
value

the

index

appropriate

program

into the

action.

!Select the requested question
'Enter current date <MM-DD=-YYYY>

i If in un-attended reformat mode then give to the DM the
! date received from the init code else let the DM prompt
! the operator for the date.

if .SW_UNATT

then

'Is the host running in unattended mode

begin

it .RETRIES

1922
1923
1924

then

1925

}8%9

'Did DM not verify the date the last ime

begin
!
! Clear out the date text buffer before loading in

: date and ask the operator for the date again.

1928

1929

incr i from 0 tg 11 do

;g%

cn:mo (DATMSG, DATETXT, A, %0°177777*, 8, 10, NO); 'Get date from operator

:
:
:
:
2
:

1934
1935
1936
1937
1938
1939

3
3

;g;?

1940

DATETXT [.i)

= ZEROS;

end;

else

$FILLDATE;
RETRIES = ONE;
end
begin

SEQ 151

'Fill the send buffer with the date
'Set the retry flag

GflleD (MSGADR, SND_BUF, A, %0°'177777', 8, 10, NO);

CZRCHG
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

1941
1942
1943
b =D
d

if SEND_DATA () then DECODE

d D e

end;

7] :
begin

'Enter a non-zero serial number

D d

ID (MSGADR, SND_BUF, A,
PRINTB (CRLF);

d e

if SEND_DATA () then DECODE (0);

D e

end;

[otheruise]

D el

RE?STATUS = UMN_CODE;

d d

DECODE ();

tes;

end;

!This message number is unknown

'Unknown message nunber error code
'Report error and die

end;

2] :
begin

'‘Default Question

selectoneu .REC_BUF [MSG_NUM] of
set

1l :
begin

'Enter unit number to format <0>

i If 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.
if .SW_UNATT
then
begin
SND BUF = .UNIT_NO;

'Is the host running in unattended mode

PRINTB (FMT7, .ONIT_NO);

$8328838

else

end

PRINTB (CRLF);
if SEND_DATA () then DECODE ();

end;

'Report which unit is being formatted

3lID (MSGADR, SND_BUF, A, %0'177777°, 1, 3, YES);

end;

SEO 152

SPIDERSUSERS:(NEALE .AZTECICZRCH4. 816.2(7)

PRINTB (CRLF);

VNN NNANNNNI
I I3

~$33%3
SN
- o0 SRR EL2ESEIRTPANIZELLELE

8:24:38

VAX=11 Bliss=16 V3=555

end;

d
D
D e
)
d
b
P —d

6:06:09

K 12

CZRCHG
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

VAX=11 Bliss=16 Vv3=555
Page 12
SPIDERSUSERS
: LNEALE .AZTECICZRCH4.B16;2 (7)

3
3

1998
5388

2001

' 1f in un-attended reformat mode then tell the DM to

%882

5 for the formatting mode to use for this unit.

;

3
3
:
:
:
3

$
3

2002

2005

2006

2007
2008
2009
2010
2011
2012

2013
2014
2015

(4] :
gegin

11=Jul=1983 16:06:09
7=Jul=1983 08:24:38

!Use existing bad block information <N>

! do a reformat mode else let the DM prompt the operator

if SW_UNATT

then

else

begin
SND_BUF = %c'Y';
end

'Is the host running in unattended mode
'Default to do reformat mode

begin

GHRNID (MSGADR, SND_BUF, A, %0°'177777', 1, 3. YES);
end;

%8}9

PRINTB (CRLF);

gg}g

if SEND_DATA () then DECODE ();

3
3
:
3
:
H

2020
2021

end;

s
3
3

2027
2028
gg%g

2031

2034

:
3

2022
2023
2024
%8%2

ggg%
2035
2036

'Use down=Line load <N>
[s] :
begin
ID (MSGADR, SND_BUF, A, %0'177777', 1, 3, YES);
PRINTB (CRLF);
if SEND_DATA () then DECODE ();
end;

(6] :

begin

if .SW_UNATT

then

bfigin

'Is the host running in unattended mode

2037

2040

3
:

2042

2043
ggzg

PRINTB (CRLF);

%829

if SEND_DATA () then DECODE ();

2048

end;

3
3

2
3
s
:

2038
2039

2041

2049
2050
2051
2052

2053
2054

SND_BUF = Zc'N°';

!Continue if bad block information is inaccessable <N>

else

end

'Default not to continue

begin

GHSNID (MSGADR, SND_BUF, A, %0°'177777', 1, 3, YES);
end;

[otherwise] :
bevin
RET_STATUS = UMN_CODE;

DECODE ();
end;

'This nessage number is unknown
!Unknown message number error code

'Report error and die

SEQ 153

L1
CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER

DOUN LINE LOAD FORMATTER AND MONITOR TASK

11=Jul=1 983 16:06: 09
7=Jul=1983 08:

24:38

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEALE .AZTECJCZRCH4. 816.2(7)

tes;

end;

!Informational message

(33 :
begin

selectgneu «REC_BUF [MSG_NUM] of
se

be?in
PRINTB (FMT1, MSGADR):;
end;

[otherwise] :
e? n

RET_STATUS = UMN_CODE;

DECODE ();

tes;

end;

14, 162 :

ALl possible information msg's

!This message number is unknown

'Unknown message number error code
'Report error and die

end;

[4] :
begin

'Termination message

selectgneu «REC_BUF [MSG_NUM] of
se

[12, 13]

PR?NYB (FMT1, MSGADR);

WRT_RC2S (RCIP ONES);
exitloop
end;

[otherwise] :
be?in

RET_STATUS = UMN_CODE;

DECODE ();

USSR
LN LN S LN N LN LV S UV DY

tes;

=338]83RAR2

==333358555

2100

end;

'Abort and normal termination type
top the remote program

‘Return to init codeg

!This message number is unknown

'Unknown message nuaber error code
'Report error and die

end;

5 :
begin

'Fatal error message

selectgneu .REC_BUF [MSG_NUM] of
se

[1 to 24]

PR?NTB (FMT1, MSGADR);

WRT_RC25 (RCIP, ONES):

DOCIN;

'Error messages are from 1 to 24
!Stop
'Kill

SEO 154

the remote program
this formatter and return to init code

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

end;

[othgrw}se] :

) D D

[NLNLNLNLNLNTRLNLNT N STNTNLNUNTNTN N NN DN TN TN NN N NS LS TN TN LN LN TNTN TN NN S DN OV OV DS VLS O S LS U OV LN LS VTN L U LV

d D

RE? STATUS = UMN_CODE;

VECODE ();

D D

18
19

tes;

D D b

20
%5

) D

) D D

26
5;
%8

end;

11=Jul=1983 16:06:%9
7=Jul=1983 08:24:38

[é6] :

'This message number is unknown

'Unknown message number error code
'Report error and die

'Special message type

begin

selectoneu .REC_BUF [MSG_NUM] of
set
1]

'FCT sector request

éegin

i If this is the first FCT sector re?uest (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.

D
D
o ed d cd ) o ad

NID (FCT_REQ_MSG, SND_BUF, A, X0°'177777', 1, 10, NO);
S
(SND_BOF);

OPEN

end;
i

g Load into the FCT_BUF the next sequential 256 FCT sector words
incrbrcg_uno from FCT_BUF to FCT_BUF + %0'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;

D —d

d =D

D—

if .REC_BUF [MSG_TXT] eql FCT_SEC_O
then

d
D
D
b
D ——d
—

if (:E$°§£E°%S§ERO) and (.REC_BUF [MSG_TXT] Lss FCT_SEC_15)) or (.REC_BUF [MSG_TXT] gtr

then

begin
SND_BUF [0] = ONES;

.
!Indicate failure to get good FCT file

if SEND_DATA () then DECCDE ();

SEQ 155

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

end;

D ) D D

31
32
33

BeteWetee®e 0o 0o 0e0e8e00000s0c00 0000000000009
BeBe e
%e®e S
e
e

egin

00000s0s0000000s00000s00000s0000000s0s0s0sVs0eteton

CZRCH4
REV A PATCH

!Send failure to DM

N 12

CZRCH

CZRCH RC25 DISK FORMATTER

REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK
N T

RET_STATUS = ILL_FCT;

DESUDE OF

'Host will also report the failure

!Error out and die

and send the information back to the remote program.

D o
e
D

SPIDERSUSERS: [NEALE .AZTECICZRCHé. 816.2 (7)

SND_BUF [0]

SND_BUF [1]

BUF-

SNDBUF [2] = ZERD

'Indicate success
'Lo unibus adrs of FCT sector
'Hi unibus adrs of FCt sector

if SEND_DATA () then DECODE ();

!Send reply back to DM

g Close this External FCT file if this is FCT sector 15.
if .REC_BUF [MSG_TXT] eql FCT_SEC_1. then CLOSE:
end;

[otherwise] :
be?in

RET_STATUS = UMN_CODE;

DECODE ();

end;

—

d o

D e

e cd cd

VAX=11 Bliss=16 V3=555

Return to the remote program a success indicator and the
unibus Lo and hi adrs of where this FCT sector can be found

USUSUSTNSTNUSTSIS
LS OSSN DNT SIS OSSN DNS DS TSN NS TN VS 8

7=Jul=1983 08:24:38

[otherw1se]

!This message number is unknown

RE?USTATUS UMT_CODE;

'Unknown message number error code
'Report error and die

R T A E A

T R

TE TR TR

TETE TR

A PR TR

11=Jul=1983 16:06:09

LTITLE
« IDENT

CZRCH4 CZRCH RC25 DISK FORMATTER

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

ABORT, GET.DUST.STATUS, EX.SUP.PROG

.GLOBL
.GLOBL
.GLOBL
.GLOBL

/REV A /

FX.LOC.PROG, REC.DATA, SEND.DATA

SET.CNTLR.CHAR, ON.LINE, DUPS$I.SERVICE

INT$I.SERVICE, INIT.COM.AREA, BOOT.RC25

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

SEO 156
1

PID.SAVE. RC25.ADDR, BOOT.FAILURE

813

CZRCH RC25 DISK FORMATTER

CZRCHS

REV A PATCH 00 DOWN LINE LOAD FORMATTER AND MONITOR TASK

11-Jul-19g§ 18:g6:g9

7=Jul=1983 08:24:38

VAX=11 Bliss=16 V3=555

SEO 157

SPIDERSUSERS:(NEALE.AZTECICZRCH4. 816.2(7)

PORT.INIT.ERR

.GLOBL

PROTO.VIOLATION,

-GLOBL

FMTS,

.SBTTL

$T1 DOWN LINE LOAD FORMATTER AND MONITOR TASK

JSR

CMP

R1,$SAVE3

1611

BICB

=(S$P) ,=(SP)

CLR
MOV
MOV
MOV

#2,FLG.WRD

NEX. ruc
#340,=(SP
SINTSI. seavxce.-«sp)
#4,-(SP)

1642

1644

"GLOBL ACTIVE.DUP.SERVER mcnve DUP.SERVER
.GLOBL rcr;nsoMSG, oAm§G. CRLF, FMT1

000000

"PSECT ABSCODE, RO

000000 004167 0000006

$T1:

000006 024646

000006

FMT6, FMT?7

142767 000002 0000006

000014
000020
000024
000030

005067
012746
012746
012746

0000006
000340
0000006
000004

000050

062766

000002

000064

001402

000072
000076
000100
000106
000110
000114
000120
000124

012700
104436
026727
001015
017716
012746
012746
010600

000004
0000006 177777
0000006
0000006
000002

000130

152767

000002

1643

000034 012746 000003
000040 104437
000042 017766 0000006 000010

MOV
TRAP
MOV

cs.-<sp>
37
aPTBL. m 10(SP)

: *,TEMP

1645

000056 032776 000001

BIT

n ‘210(SP)

: «.TEMP

1648

000066 005066 000012

000126

000136

104414

104444

000010

005000

000146
000152
000154
000160
000164
000170
000174
000176
000202
000206

016700
104436
012716
012746
016746
012746
104437
012703
004767
010067

000144

000212
000214

000220
000222
000226
000230
000236
000240
000244
000250

104441

005203
032700

BEQ

1$:

3$:

001003
020327 000001
001365
032767 000001 0000006
001010
012716 0000006
012746 000001
010600

48:

12(SP)

BISB

#2,FLG.WRD

CMP

; DUMMY
:
:
:

1646

1651

1654
1656
1659

; SP,*
E

1660

1658

MOV
TRAP
MOV
MOV
MOV
MOV
TRAP
MOV
JSR
MOV

VEC.ADDR,RO
36
#340, (SP)
#INTS1,SERVICE ,=(SP)
VEC.ADDR,=(SP)
#3,-(SP)
37
#-1,R3
PC,B00T.RC2S
RO.RET.STATUS

:
:

1682
1683

; «,RETRIES
:

1688
1692

BNE
CMP
BNE
BIT
BNE
MOV
MOV
MOV

48
R3, M
33
#1,RET.STATUS
5$
#800T.FAILURE, (SP)
#,-(5P)
SP.RO

: RETRIES
* «,RET.STATUS

1693
1695

TRAP

(SP)+, (SP)+

: «.TEMP

CLR

INC
8IT

000001

1s’

#4,R0
36
NEX.FLAG,#=1
28
aPTBL.PTR, (SP)
#EMTE,=(SP)
#2,-(5P)
SP,RO

TRAP

28:

0000006
000340
0000006
0000006
000003
177777
000000G
0000006

CLR

#2,10(SP)

MOV
TRAP
CMP
BNE
MOV
MOV
MOV
MOV

TRAP

0000006

000140 022626
000142

ADD

R3
#1,R0

1681

: RETRIES,+
:

1701

:
: SP,*

1704

C13

CZRCH RC2S DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

0000006

68:

000340

RO
6

MOV
MOV

(SP)
#PROTO.VIOLATION,
#1,-(SP)

TRAP

MOV
MOV

#PORT. INIT.ERR, (SP)
#1,-(SP)

TRAP

MOV

VEC.ADDR,RO

MOV

#340, (SP)

CMP

TRAP

SP.RO
14

,=(SP)
. SERVICES]
#DUP

MOV

1SD.STRUCT+16,R1

0000006

MOV

TRAP

0000006
0000006
0000006

0000006

8s:

0000006

0000006
004000

000022

9$:

0000006
000001

108:

1718
1729

1730

: *,RCSM.REG

1735

BIS

MOV
JSR

R1,2(R0)
PC.SET.CNTLR.CHAR

: RCSM.REG,*

1758

UNIT.NO, (SP)

1765

ROR
BCC
JSR
MOV

MOV

MOV
TRAP
JSR
ROR
BCC
JSR

RC25.ADDR,RO
RO
78
PC,DECODE

LUN,=(SP)

#FMTS,=(SP)
#3,-(SP)
SP.RO
14
PC,ON.LINE
RO
8%
PC,DECODE

: SP,»

1768

1795

RET.ENSAD,RO

1801

MOV
MOV

#ACTIVE .DUP.SERVER, (SP)
#1,-(SP)

1804

TRAP
TRAP
ST

4
4&
(SP)+

ROR
BCC

RO
118

JSR

ROR

PC.GET.DUST.STATUS
RO

BCC
JSR

98
PC,DECODE

gg;

13goo.22(a0)

MOV

0000006

1720

: *,RCSM.REG

MOV
MOV

§§: g

0000006
000003

1719

: SP,»

(SP)+, (SP)+

0000166

78:

H
: SP,«

VEC.ADDR,=(SP)
#3,=(SP)

0000006
0000006

716

SP.RO

MOV
MOV

000002
0000006

SEQ 158

Page_ 1
VAX=11 Bliss=16 V3=555
.B16;2 (7)
ERS
.AZTECICZRCH4
: [NEALE SUS
SPIDER

PC,INIT.COM.AREA

MOV

000001

ROR
BCC

JSR

11=Jul=1983 16:06:09
7-Jul=1983 08:24:38

0000006

0000006
000003

14
44
(SP)+

MOV
TRAP

414
ihb

RS
r o RS

TRAP
TRAP
ST

MOV

0000006
000001
0000006
000001

PPy
- ]
NN
~

0000006

=SOO0O==000=2000=

888888883883838288838333828
gg888888s=§§§§§§§§§§§§§§§§§§§§§§§§££§§§§§§§§§§§§§§§§§§§§

CZRCHG
REV A PATCH 00

JSR

§P.Ro

PC,EX.SUP.PROG

1803

1814

D 13
CZRC
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
0000006
0000006

118:

0000006
0000006
004000 000022

PC.DECODE
:C+GET.DUST.STATUS

128:

138:
.

158:

0000006

SPIDERSUSERS: [NEALE .AZTECICZRCHG. 516.2(7)

1825

RET.ENSAD,R1
cgooo,22(R1)

1831

#INACTIVE.DUP.SERVER, (SP)
#1,-(SP)

1834

PC,DECODE

SP.RO

0000006
0000026

SEO 159

128

0000006
000001

000024
000026

7=Jul=198 26 gB

11=Jul=198

VAX=11 Bliss=16 V3=555

14
by
(SP)+
148

24(R1) ,P1D.SAVE
Zg(R1).P1D.SAVE+2
PC,REC.DATA

: SP,+

H
|
|
:
: RETRIES

1833
1831
1839
1840
;ggg

RO’

16$

0000006

PC,DECODE

SND.BUF (RO)
#2,R0

R0£0110

i |
;s «(])
P|
s I.»

0000006

REC.BUF ,R1

1894

177760
000001

#177760,R1
R1,#1

0000006
170000

REC.BUF ,RO
#170000. RO
238
#1,SW.UNATT

1906

1917

: » ,RETRIES

1921

RO
DATETXT (RO)
RO
RO,#13

s 1
: «(])
3 1

1929
1930
1929

1932

: |

1933

16$:
178:

0000006
000002
000110

000001

248

0000006

21$
#1,R3
19§

000001

0000006

188:

000013

13!

406
DATETXT
142
o?rnsc

19%:

s 1.*

E13

3 ;(l).'(l)

000013

RO, #13

000001

#1,R3

; *,RETRIES

SO0

2-.-.-.
) N

=000

22%:

0000006
000001

23s:

D wd
D
d
D

0000006
000001

N
Vi

d
D

SRS

d wd
D

24$:

000C006
170000
000001

43
406
. BUF
SND
142
n;wa

1951

33§

N
8

SP,*

31s
R1, 42

1954
189

REC.BUF ,RO

1976

39§

RO, #1
27
#1 SW.UNATT

25$

0000006 0000006
0000006
0000006
000002

SP,*

d
b md et e
b
D

1952

#170000. RO

0000006

25%:

1945
1906

SP,RO

D ed

SIS IS LIS LS LN LN TN LN, N

SP,»

31s
RO, 47

#CRLF
, (SP)
#1,-(SP)

000002

000001

1943

1
100

D d
d

D d

#1,=-(SP)

D
D

10
12
#CRLF, (SP)
14

001102

406
SND .BUF
162
H?GADR

SP.RO

000007

—

218:

22%

20§

l'.

208:

SEO 160
19

SPIDERSUSERS: [NEALE .AZTECICZRCH4. 816.2(7)

getETXY(RO).SND.BUF(RO)

0000006 0000006

838882883388833833833838388883838

VAX=11 Bliss=16 V3=555

DOWN LINE LOAD FORMATTER AND MONITOR TASK

11=Jul=1983 16:06:g
7=Jul=1983 08:264:38

CZRCH RC25 DISK FORMATTER

F13
CZRCH4
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK
26$:

0000006
000001

11=Jul=1983
7=Jul=1983

#CRLF, (SP)
#1,-(SP)

SP.RO
14

27%:

000004

VAX=11 Bliss=16 Vv3=555

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

30§

0000006

#1,SW.UNATT

000131

0000006

#131,SND .BUF

288

1992

: SP,»
1994
1970

31s
RO, #%

000001

28$:

16:06:09
08:24:38

SEO 161

2006
2009
2006
2013

298
43
406
D
. BUF
SN
152
n.;»wa

29%:

0000006
000001

#CRLF, (SP)
#1,=-(SP)

308:

: SP,+

31s

H
:

2018
1970

2024

#CRLF,(SP)
#1,=-(SP)

2025

PC,SEND.DATA

RO, 4S5

szi

t.oo
SND .BUF
152
H?GADR
1
z

0000006
000001

31s:

000006

ViAW

D e

) —d

D od

S3383338388838888
SN
'y RRERGSREE
OB NOONSNO TS o

0000006

2016

SP.RC
14

000005

SP.RO
1%

RO
36$
378
RO . #6

38§

: SP,»

2027
2023

1970

000001

0000006

#1,SW.UNATT

2034

000116

0000006

#116,
SND .BUF

3
3
3

2037
2034
2041

34$

34$:

35$
43
406

. BUF
SND

152

n§wn

G 13
CZRCHS
REV A PATCH 00

012716
012746
0600

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

0000006
000001

358:

0000006
0000006
004001

000532
0000006
170000
000005
000007
000011
000013
000016
000020
0000006
0000006
000002

1+ 3

88888888

1640

000004
0000006
170000
000014
000015
0000006
0000006
000002
177777
0000006
000005
0000006
170000

000030

36$:

378:

0000006

388:

39%:

408:

418:

428:

MOV
MOV
MOV
TRAP
JSR
ROR
BCC
JSR
TST
B8R
MOV
JMP
CMP
BNE
MOV
BIC
CMP
BLOS
CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BEQ
CMP
BNE
MOV
MOV
MOV
MOV
TRAP
B8R
CMP
BNE
MOV
BIC
CMP
BLO
CMP
BHI
MOV
MOV
MOV
MOV
TRAP
CMP
MOV
MOV
BR
CMP
BNE
MOV
BIC
BEQ
CMP

11-Jul=1983
g gB
7-Jul=1983

#CRLF, (SP)
#1,-(5P)
SP.RO
14
PC,SEND.DATA
RO
378
PC,DECODE
(SP)+
448
#4001,RET.STATUS
57%
R1.43
418
REC.BUF,RO
#170000. RO
RO, #5
l.oi
RO,#7
408
RO,#11
408
RO,#13
408
RO,#16
408
RO, #20
388
#MSGADR, (SP)
#FMT1,=(SP)
#2,-(5P)
SP.RO
14
438
R1, 4%
428
REC.BUF ,RO
" 7oooo RO
RO,#
33!
RO, #15
38$
#MSGADR, (SP)
mm -(SP)
2,-(5P)
sp.no
14
(SP)+, (SP)+
#-1.R
RO,3RC25.ADDR
59$
R1,45
458
REC.BUF ,RO
#170000,
RO
388
RO, #30

VAX=11 Bliss=16 V3=555

SEO 162
1

SPIDERSUSERS [NEALE .AZTECICZRCHS. 316.2(7)
:

2044

: SP,*

2046

2032

H
s
:
F

1970
2052
2053
1894

2062

2067

: SP,»

:
s

2066
1894

2082

2087

: SP,»

: *,RCSM.REG

2088

:
:

2086
1894

2104

s RCSM.REG,*

H13
11=Jul=1983 16:06:09
7=-Jul=1983 08:24:38

0000006
0000006
000002

SP,RO

: SP,»

#-1,R0

; *,RCSM.REG

2110

(SP)+,(SP)+

H
3
3

2108
2104
1894

22.3RC25.ADDR

45%:

000006

2109

438:
448:

SPIDERSUSERS:tNEALE.AZtECJCZRCH&.B16:2°?7)

#MSGADR, (SP)
#FMT1,=(SP)

#2,-(5P)

177777
0000006

VAX=11 Bliss=16 V3=555

58$

R1,46

56$

0000006
170000
000001

REC.BUF
RO
#170000,R0
RO, #

2126

0000026

REC.BUF
+2

2138

2141

czuo.aur.ao

2142

46$:

crgr.aur.a1

: *,FCT.WRD

2149

47%:

R1,RO

: FCT.WRD,*

2151

388

468

406
D
. BUF
SN
162
rgt.aeo.nss
1

0000006

: RO,FCT.WRD

s «,EOF

000001

52%:

0000006
006001 0000006

53%:

0000006
0000006 0000026
0000046

54%:

2161

#-1,SND
. BUF
:C.SEND.DAIA

165

518
REC.BUF+2,#17
528
REC.BUF+2,#17
548

PC,DECODE

#6001, RET.STATUS
PC,DECODE

SND . BUF
#FCT.BUF ,SND.BUF
+2

+4
. BUFD
SN

167

83332

0000006

; EOF

478

177777

R1.#FCT.BUF+776

i it

51%:

2149

s FCT.WRD,*

000002G 000017

: * FCT.WRD

0000026 000017

0000006

s EOF

48S:

49%:
508:

000002
0007766

101263

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

Sevessnen

CZRCHG
REV A PATCH 00

SEQ 163

113
CZRCH4
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
DOWN LINE LOAD FORMATTER AND MONITOR TASK

002222

004767

0000006

002232
002236

004767
026727

0000006
0000026 000017

002226 006000
2230 1osoo;

002244 001007
104435
002250 000405
002252 012767 001001 0000006
002
004767 0000006
002246

2266 000167 176334

002270
002274

062706
000207

000036

568:

578:

588:

598:

VAX=11 Bliss=16 V3=555

PC,SEND.DATA

JSR
(MP

PC,DECODE
REC.BUF+2,#17

RO
558

BNE
TRAP
B8R
MOV
JSR

588
58s
#1001 ,RET.STATUS
PC,DECODE

ADD
RTS

#36,5P
PC

SEO 164

SPIDERSUSERS: [NEALE .AZTECICZRCH4. 816.2(7)
)

JSR

ROR
BCC
558:

11=Jul=1983 1g:oe=go
7=-Jul=1983 08:24:38

2182

UMP

15§

: Routine Size:

607 words,
Routine Base: ABSCODE + 0000
; Maximum stack depth per invocation:
23 words

000000
000000
000004
000006
000010
000012

004767

175476

104466
006000
103773

T1::
1%:

.SBTTL

T1 DOWN LINE LOAD FORMATTER AND MONITOR TASK

JSR
TRAP
ROR

PC,.$T1
66
RO

RTS

BLO

000207

6 words,
Routine Base
ABSCODE + 2276
; Maximum stack depth per invocation:
2 words
oo

21
21
21

W
—

; Routine Size:

end

eludom

0TS external references

.GLOBL

$SAVE3

PSECT SUMMARY
Psect Name

AR TR TR

PRTR TR T

ABSCODE

Words

Attributes

613

RO,

LCL,

REL,

CON

LIBRARY STATISTICS
File

SPIDERSUSERS
: [NEALE.AZTECICZRCHO.L16;5

cccsecce SyRbOlS =cccccee
Total

Loaded

Percent

398

168

Blocks

Read

2208

J 13
CZRCHS

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

DOWN LINE LOAD FORMATTER AND MONITOR TASK

COMMAND QUALIFIERS
BLISS /PDP11/LIST (ZRCH4.B16
Size:

Run Time:

Elapsed Time:

613 code + 0 data words
00:23.9

00:33.5

Memory Used:
386 pages
Compilation Complete

11=Jul-198
7=Jul=198

08:26:38

VAX=11 Bliss=16 V3=555

SEO 165

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816.2(7)

K13
CZRCH RC25 DISK FORMATTER

11=-Jul=1983 16 :06:44

7=Jul=1983 08 198
264:58

Bliss=16

V3-555

MODULE CZRCH5 (!}ngE *CZRCH RC25 DISK FORMATTER'
ENT = "REV A PATCH 00
ADDRESSING_MODE (R;LATIV

EN!IRONHENT (NOEIS
)

BEGIN

g Pretty Declarations

§<blf/louercose_key>
Library *CZRCHO';

'Define RC25 Formatter library

require 'BLSMAC.REQ';

'Define Bliss Macro require file

A forward-routine-declaration declares a name to be a routine-name whose
definition is given Later in the same bl ock, and associates with that name the
set
of attributes needed for generation of call to the named routine.
The

following

noted that

GET_RNSD,

GET_NRD,

LOAD_OUTSSTD_BUF,
GET_TMDSREF,
DECODE : novalue,

%¥SS£1§$RVICE : INT_LNKSTYP novalue,

ABOR T,

SEND_DATA,
REC_DATA,

WWNWWWWW

d d d

D d

GET_DUST_STATUS,

Ex_SuP_PROG,

—

is a List of all routines declared within this module and can

this module is only place where global routines are declared.

forward routine
LOAD_FILE,

T W ATV Y G

D cd d o

T i

b cd e

b b e

b d e

iz wa

8888 38
NN NI NI NI NI NI NI NI N b b cd od e e e e o d
VIOV
SRIRFG
T S W = OO

?sbttl 'MODULE DECLARATIONS'

EXLOC_PROG,

SET_CNTLR_CHAR,
ON_LCINE,

INTSI_SERVICE : INT_LNKSTYP novalue,
1S_TIRER

800T_RC25,

INITCCOM_AREA;

!<BLF/PAGE>

SEQ 166

(1) 1
3 6:
- .AZTECJCZRCHS.B1
v : [NEALE
HSPIDERSUSERS
AX=11

'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 routine
‘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
'Set Controller Characteristics command
'On Line command
'Initialization sequence interrupt service
'Initialization sequence time-out wait
'Initialize sequence for RC25 controller
'Initialize UQ Port communication area

L13
CZR CHS

REV A PATCH 00

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE.AZTEC JCZRCH5.B16;3 (2)

‘e

! 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

code = ac$code;

‘e

; Structure declarations used within this module.

structure
s

! 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 MBA address space without generating machine checks.
RC25 (O, P, S, E] =
begin
local
RCSS_REG;

RCSS_REG = .(RC25 + Xupval+*0)<0, Xbpval, 0>;
RCES_REG
end

<P, S, E>;

'<blf/page>

SEQ 167

Page

m13
CZRCHS
REV A PATCH 00
1571

E External Declaration of

}g;g

external

VAX=11 Bliss=16 V3=555
H 5.816;3 (3)
SERS
: [NEALE .AZTECJCZRC
SPIDERSU

11=Jul=198 31 6:06:44
7=Jul=1983 0 8:24:58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

}g;%

SEQ 168

Page

datums declared outside of this module.

}g;g

E Communications area declarations

1579

COM_AREA : blockvector [REC_ALLOCATE + SND_ALLOCATE + HDR_SIZ, 2, wordl,

1582
1583

SEND_RIRG : ref blockvector [SND_ALLCOCATE, 2, word] field (DSC_FIELD),
REC_ENVELOPE : blockvector CREC_ALLOCATE, RB_SIZE + 2, word) field (ENV_FIELD),

1580
1581
1584

1585

HEAD_AREA : ref block [4, word] field (MDR_FIELD),
RECEIVE RING : ref blockvector CREC ALLOCATE, 2, word) field (DSC_FIELD),
SND_ENVELOPE : blockvector [SND_ALLOCATE,

SB_SIZE + 2, word] field (ENV_FIELD),

RETENSAD : ref block LRB_SIZE + 2, word] field (ENV_FIELD),

1586
1587
}ggg

REC_BUF : block [RECB SIZE, word) field (RECB_FIELD),
SND"BUF : vector [SNDB_SIZE, word],
QUT!STD.BUF : blockvector [REC_ALLOCATE, 2, word] field (OUTSFIELD),

}gg?

5 Miscellanious external data declarations

1592
1593
1594
1595
1596
1597
1598
1599

NEX_FLAG : word,
NRD_SLOT : word,
NSD_SLOT : word,
RC25_ADDR : ref RC25 field (ISD_FIELD),
RET_STATUS : word,
PID_SAVE : vector [2, wordl,
VEC_ADDR : word,
RSVD_STRUCT : vector [4, wordl,

'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 fields

1601

UNIT

1P table unit number to format

}ggg

; Error Messages Structures

1606

PFE_STRUCT : vector [23]

1609

SDOP STRUCT : vector [7)

1600

}28%

1607
1608
1610

1611

ISD_STRUCT : blockvector [4, 2, word] field (ISD_FIELD)

_NO : word,

yxt_tRN : byte,

!Init se? data

!Stores next cmd ref number
'Port fatal error msg

struct

EMSB_STRUCT : vector [23)
RC_STRUCTURE : vector [39],

'Error message structure
'RC25 SA register fatal error

SMSCP_STRUCT : vector [13].

'MSCP return status code messages

!<blf/page>

'DUP return status code messages

b d b b
d

b e

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

:44
11=Jul=198 3 16:06:4
7=Jul=198 3 08:24
:2 :58

AX=11 Bliss=16 V3-555

g Formatted ascii strings
PID_FMT,

!Progess indicator printing string
!Micro code version printing format

fntt.

DM code parameter declarations
The

declarations are declared in module
J
azkel6é ‘DM code
and point to the starting address of specific DM code buffer areas.

following

module®

(OVSA is declared in azkel2 and is a memory location however)

It is a hack but the azfmtr storage allocation must be edited in manually
any time the DM code buffer changes. Get this value from the output of
DMCONV program.
(Bliss wants this allocation value to be a compile time constant).

AZFMTR : vector [8892, wordl,

HDSA,

DMSA,
OVSA;

SEQ 169
Pa

3" (4)
H : [NEALE .AZTEC ICZRCHS.B16:
HSPIDERSUSERS

=O VNS WN=OV0

WWWWMNOPINI NI NI NI NI NI NI N

d D
D
D d
-

b ed cnd ed
d d

) e

d e

[0 Yo Yo o o Yo Yo Yo Yo Lo To Yo Yo Lo Lo Lo Lo Lo Lo Lo Lo Xo 0

F-Ta
PR PR LA L LN
A PR T
A TE
IR TR

PATCH 00

IR IRIR TE TR TR
(TR IR

N 13

'RC25 formatter DM code buffer
!Host DM code header address
'Host DM code initial load address
'Host First overlay address

B 14

3335352 SRSHX A222332288 222222 R AR RN A A AANA R R R R R R RN g5egEs

W= OV NOWVNSWN=O
VRNV WNN=O 000N

D
D e
d e
D o
b o o
D e o
e
b
D
b
D
b
b e e

bb e

0o~

s WN=O
000 NoOrwn
W=
O

b
) wd b
) ) b
d
e
) —d
— e

I I

I I I I I

D D

) b D

b —d D wd b

L TR
DR R LR
s

e T

DR DR TRLA

TR TRL

LA LA L (I

TETETE

TRLA TR TN TN T

CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11-Jul-198
7=Jul=198

global routine LOAD_FILE (BUF_LOC, FN_EXT, BUF_SIZ) =

16:06:44
08:24:58

VAX=11 Bliss=16 V3=55 5

: [NEALE.A 2TECICZRCH5.B16;3 (5)
SPIDERSUSERS

!Load file from Local load maedia

1ee

! Functional Description :
his multi-purpose routine is used to read in files from the boot

device into host memory space at the specified

FornalBParaneters :

UF _LOC

buffer address.

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 _S1Z

This contains the number of words allocated
for the buffer where the file is to be read
in.

Implicit Inputs :

over

This is used for protect against buffer
runs.

none

Implicit Outputs :
none

Compietion Codes :

PL€ ERE. CODE

PAS_CODE

Is returned if the end-of-file indicator is
not returned before the buffer is full.
Is returned if end-of-file indicator is returned
before the buffer is full.

Side Effects :

Data previoule loaded in the specified Load buffer is
destroyed by the 3 incomming file from disk.

begin
local

NEOF,
EOB;

OPEN (.FN_EXT);

EOB = (.BOF_SI12+2) + .BUF_LOC;
'+

'Return status from getword macro
'énd of buffer address storage

'Open the file for input

'Calculate the last buffer address

! Read the first block from the ingut file and through
: it away since it only contains RT=11 information.
incru i from 0 to 255 do
be?fn
GETWORD (.BUF_LOC);
end;

SEQ 170

Page

C 14
CZRCHS
REV A PATCH 00

11-Jul-198§ 1 6:06:144
7=Jul=1983 0 08:

CZRCH RC25 DISK FORMATTER
HODULE DECLARATIONS

24:58

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816.3 (S)

' Loop on getting a word from the load file. After
increment to t e next word by adding %o0'2’ to the
buffer Load addrss. Continue getting uords until
or the
the not complete indicator is returned
(
buffer is over run. Return an error code if the
buffer is over run.

NESF= GETWORD (.BUF LOC)‘

'Read next word into .mem_Lloc
!Increment to next word

BUF _LOC
= .BUF_LOC +%0'2°;
end”

until ( not .NEOF) or (.BUF_LOC eqlu .EOB); 'Repeat until eof or buf overrun

— e e e

D D b =D

= O

VOO NV
W =0

—

b cd

NNNNNNNNNNY ~

g Return an error code if not eof (neof = 1) else close the file and return a pass code.
'Was the eof indicator returned

if .NEOF
then
return RET_STATUS = FRE_CODE
else

'Return error code to caller

begin
CLOSE;
end;

'Eof was returned so close file
'Return a pass code to the caller

return RET_STATUS = PAS_CODE;

end;

.TITLE
« IDENT

.GLOBL
.GLOBL

.GLOBL

.SBTTL
+PSECT

0000006

CZRCH5 CZRCH RC25 DISK FORMATTER

/REV A /

COM.AREA,

HEAD. AREA RECEIVE.RING

SEND.RING, REC.ENVELops. sno ENVELOPE
RET.ENSAD. nsc.sur
OUTSSTD.BUF

NEX.FLAG, NRD.SLOT, usosn.of aczs ADDR

RET. smus PID.SAVE,
DR
RSVD.STRUCT, ISD. smucr UNIT.NO
NXT.CRN, PFE.STRUCT, EMSG.STRUCT
RC.STRUCTURE, SDUP.STRUCT, SMSCP.STRUCT
s‘xlgirm. FMT4, AZFMTR, HDSA, DMSA
LOAD.FILE MODULE DECLARATIONS
ACSCCDE, RO

000014

LOAD.FILE::
JSR
MOV

R1, SSAVES

000012

MOV

;g(SP).RO

: BUF.SIZ,+

000016

MoV

16(SP) ,R2
R2,RO

: BUF.LOC,*

TRAP

ASL

ADD

;‘ ).RO

SEO Lig)

: FN.EXT,*

CZRCHS
REV A PATCH 00

VAX=11 Bliss=16 V3=555

MODULE DECLARATIONS

000026
30

*,E0B
I

1$:

: RO,*

2$:

000377

s !

1%
16(SP) ,RO

3s:

000016

“%
RO,316(SP)
#1,R2

000016
000001
000002
000001

000016

R2
02.1S(SP)

4$:
5%:

63
16(SP) ,R3
3$
R2
7$

000016

6$:
005001
0000006

000144
000146

00
000207

0000006

#5001,R0

RO RET.STATUS

7%:
RTS

RET.STATUS
RO
PC

; Routine Size:
Routine Base:
ACSCODE + 0000
52 words,
Haxinun stack depth per invocation:
6 words

1720

SEO 172

SPIDERSUSERS [NEALE.AZTECICZRCHS. 816.3 (5)

CZRCH RC25 DISK FORMATTER

s I.*

BUF.LOC,*
RO,BUF.LOC

* ,NEOF

NEOF

*,BUF.LOC
* ,NEOF

BUF.LOC,EO8
NEOF

1685
1687

1685
1701

E 14

SEQ 173
Page
8
VAX=11 Bliss=16 V3=-555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.816;3 (6)

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

global routine GET_NSD =

!Chooses the next send slot

lee

! Functional Description :
his routine will determine which send 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 deposit
another command into the command (send) ring.
Formal Parameters :
none

Implicit Inputs :
NSD_SLOT :

LS8~

NNNSNSNSNSNSNSNSNSNSN
WWWWNONON

725

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

gegin

g Increment the next send descriptor_slot by one

NSD_SLOT = .NSD_SLOT + 1;
VNI
W =o

NNNNNNNNNY

Vi v

Be B0 000000 00%0 9000909000 0090999009 000%

0009000000380 % %0000

00000%0% %8000,

CZRCHS
REV A PATCH 00

g Set the slot pointer back to 2ero if it wraps around to the top of the ring.
if .NSD_SLOT gtru SND_ALLOCATE = 1 then NSD_SLOT = ZERO;
]

; Return the next send descriptor_slot to the caller

return .NSD_SLOT;

end;

005267

0000006

026727

0000006 000003

005067
016700
000207

0000006
0000006

101402

.SBTTL
GET.NSD::

1$:

GET.NSD MODULE DECLARATIONS

INC

NSD.SLOT

RTS

CMP
BLOS
CLR
Mov

NSD.SLOT,#3
1%
NSD.SLOT
NSD.SLOT,RO

: Routine Size:
11 words,
Routine Base:
ACSCODE + 0150
; Maximum stack depth per invocation: 0 words

1760

F 14

CZRCHS

CZRCH RC25 DISK FURMATTER

11=Jul=1983 16:06:44

global routine GET_NRD =

!Chooses the next receive slot

7=Jul=1983 08:24:58

REV A PATCH 00 MODULE DECLARATIONS
3
:

:
3
3
:

};g;
1763

! Functional Description :

1768

!
!
!

1769

1771

1773

1770

1772

1776

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 :

none

Implicit lnfuts :

NRD_SLOT :

Stores

where

the port should return this commands

response indicator.

1775

1777

where the port/controller is polling.

Returns the contents of

none

1776

1778

1779

1780

1781

Implicit Outputs :

Global storage for the next receive descriptor slot.

Page(7)
16;3
RS
.AZTECICZRCH5.B
RSUSE
: (NEALE
SPIDE

!¢+

1764

1765
1766
1767

VAX=11 Bliss=16 V3=555

The global storage 'Nrd_slot'’ is updated to the present receive slot

! Completion Codes :
! Side Effects :

‘Nrd_slot’'’

to the calling routine.

1782

:
:

1784
1785

begin
:

};gg

QRD_SLOT = .NRD_SLOT + 1;

};3?

; Set the slot pointer back to zero if it wraps around to the top of the ring.

:
:

1783
};gg

1792

};32

1795

};39

1798

!=-

; Increment the next receive descriptor_slot by one

if .NRD_SLOT gtru REC_ALLOCATE = 1 then NRD_SLOT = ZERO;

; Return the next receive descriptor_slot to the caller
return .NRD_SLOT;

1799

end;

000000

005267

0000006

000004

026727

000000G 000003

000012
000014

000020
000024

101402
005067

0000006

016700 0000006
000207

.SBTTL
GET.NRD::

INC

NRD.SLOT

BLOS
CLR

1$
NRD.SLOT

CMP

1$:

GET.NRD MODULE DECLARATIONS

MOV
RTS

NRD.SLOT ,#3
NRD.SLOT,RO
PC

; Routine Size: 11 words,
Routine Base: ACSCODE + 0176
; Maximum stack depth per invocation: 0 words

1800

SEQ 174

1788

3
:

1784
1761

1793

G 14

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS
global routine LOAD_OUTSSTD_BUF (REF_NUM) =

!Load out$std_buffer with this command

!00

! Functional Description :
o
"
The outstanding command buffer "‘out$std_buf''
is used by
this host program to determine 1if an outstanding command
issued to the

for

e
B

2.
3.

set by

This

is done

the interrupt service

routine

"Rec_flg' in

response ring interrupts.

buffer slot

into

empty out$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.

To quarentee a command loaded into the out$std_buffer will
never be lost
(i.e.
having this routine return a buffer

slot not yet
received b{ the interrupt service routine),
only the cto_wait (controller time out wait) routine is
permitted to return a out$std_buf slot to the unused sool
(i.e.
by loading a slots
first word with 20°100000°).
This routine is therefore
guarenteed to return an unused
out$std_buffer slot when this unique value of %0°'100000°*
is
found.
To
further quarentee this, unique command ref
numbers will never use zero as a reference number.

WWWW

I3 I

processed yet.

IMPORTANT NOTE:

a '1* which

been

receive flag

This routine
loads
following values:

NOWVS WA =OOVR NOWVSWN=OY

gort has

the

This buffer can be
looked at as a window between the port
driver receiving £ processing the response envelopes and the
host class driver issuing commands to the port.

S g

VIV

examining

during

S
SR AR WS WY WIS WRr YRS W W

00 ©o Co 0o Co Co GO OO 0o Co

YT G
. Y
e
S
S
N
S
S
N

00 00 G0 o 0o 0o 0o GO

SEQ 175
Page 1
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTECJCZRCH5.B16;3 (8)

11=Jul-198 g 16:06:44
7=Jul=1983 08:264:58

00 00 00 0o GO Co 0o 0O 0o 0O =1
GO

BRISHR W)
=SRRRETRORRESEIEORERI3ES 258 v RS

oo
CoCo
0o 00

CZRCHS
REV A PATCH 00

Formal Parameters :
REF _NUM

This

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

Side Effects :
none

begin
le

H 16

CZRCHS

CZRCH RC2S DISK FORMATTER

11=Jul=1983

REV A PATCH 00 MODULE DECLARATIONS
:

! Search

}gg?

: If no open slots are found then return an error code.

1859

1862

}ggg

:
:

}ggz

through

i open slot.

the

out

standing

command

'Find the first open slot

; An open slot is by definition the value X0°'100000*

1868
}g%

if .OUTSSTD_BUF [.i, CMD_WRD] eqlu %0°'100000*
hen

1872

OUTSSTD_BUF [. i. CMD_REF] = .R NUH

:
:

1871

OUTSSTD_BUF [.i, ENV_ADR] = ZERO
return .i;

1875

end;

1878
}g;g

! The buffer is full if the code reaches here.
5 report
an error
for debug purposes.

:
:

1881
1882

return RET_STATUS = OBF_CODE;
end;

000004

005001

000006

.SBTTL

0000006

010100

006300
012702

000026

001010

000034

116612

000020

060002

1$:

000000G

042712

CMP

BNE

100000

000003

012700

002001

101753

2%:

000070

: Routine Size:

29 words,

Routine Base:

Han-u- stack depth per invocation:
:

1883

& words

RO,.R2

(Ré) #-100000
2%

s REF .NUM,*

1872

MOV

R1.RO

1870

(MP

10(SP

OUTSSI6 BUFOZ(RO)
PC
R1

R1.#3
1%

1871

1873

3 1

1863

3 1,®

MOV

#2001 ,R0

1881

RTS

1801

MOV

000207

1868

BLOS

000064 010067 0000006

s 1.¢

1801
1863

0100000 (RZ)

CLR

010100

RO’

3
'y

BIC

RTS
INC

000056

000010

020127

LOAD OUTSSTD.BUF MODULE DECLARATIONS

RO
#OUTSSTD .BUF ,R2

6
000050

000052

!Report an ‘out$std buffer full'® error

ASL
MOV

000040 005060 000002G
000207
005201

word.

This should never happen so

R1.RO

ASL

MOVB

000044

first

!Load this cmd’ s ref num

MOV

ADD

000022 021227 100000
000030

slots

!Is this slot open

LOAD.OUTS$STD.BUF:
JSR
m .SSAVE2
CLR
R1

000010 006300

000012
000014

the

iClear the previous env adr
'Return buffer index to caller

:
:

004167

OU?SSTDBUF [.i, REC_FLG] = FALSE 'Clear the received fla

1873
1874

000000

SPIDERSUSERS: [NEALE. AZTEC]CZRCHS.BM.S(8)

buffer and look for the first

:
:

SEO 176

Return this first slot index to the caller if one is found.

incry i from 0 to REC_ALLOCATE - 1 do

1867

VAX=:1 Bliss=16 V3=555

7=Jul=1983 08:24:58

1858

16:06:44

RO,RET.STATUS

ACSCODE + 0224

114

CZRCHS

REV A PATCH 00

;
:

}ggg

1886

1887

1888

1889

CZRCH RC2S5 DISK FORMATTER

11=Jul=1983

global routine GET_CMDSREF =

'Gets next unique cmd ref number

MODULE DECLARATIONS

7=Jul=1983

32 bit

command that the send to a DUP server. A class driver may supply
a zero reference number if it does not need to associate a command

Class

unique non-2ero

drivers

should

1890
1891

!
!
5

with its end message.

189

Command reference

:
:
3

}gg%

1895
1896
1897

1898

16:06:44

08:24:58

!4+

! Functional Description :

:
:
:

SEQ 177
12
Page
=555
VAX=11 Bliss=16 V3
(9)
:3
H5.816
CICZRC
E.AZTE
SPIDERSUSERS
: [NEAL

!
!
!

number

wused

a unique

supply

numbers must

to identify host commands.

reference number

each

be unique across all commands that

are outstanding on the same connection i.e., they 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 3

commands

reference

number

when

the

comand

Llonger

3
:
:
3
:
:
:
3

1899
1900
1901
1902
1903
1904
1905
3389

!
!
!
!
!
!
!
;

outstanding == i.e., after receiving
the commands end message or
after re-synchronizing with the D
server. (Command reference
numbers need not be unique for commands issued by different class
drivers === i.e. comands 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 connertion on which the comand was received as the unique
identifier of an outstanding command.

2
3
:

1908
1909
1910

!
!
!

This routine will generate a unique command reference number and
will search the out$standing command buffer to see if already uesd.
The first unused unique command reference found will be returned

:
:

1913
1914

! Formal Parameters :
!
none

1916

1920

! Implicit Outzuts :

1924

! Completion Codes :

:
:
2
:
:

1927
1928
1929
1930
1931

! Side Effects :
!
none
‘==

:
:
3
2

1 3

}3}}

;

1915

1917
}g}s

!
;

1921
}ggg

}ggg

to the calling routine.

! Implicit lnguts :

NXT_CRN

!
;

NXT_CR

This global location stores the next unique cmd
reference number to be used.
This global location is loaded with the next
unigue command reference number.

The contents of .NXT_CRN is returned to the calling routine.

begin

:
:
:

1932
1933
1934

}gi;

; Increment the global unique command reference number before anything is done.

:
:

1939
1940

NXT_CRN = .NXT_CRN + 1;

local

!Flag any operator control C's

i Wrap

}g;}

this next command reference number around

5 back

to one if it is greater then 255 (decimal).

’

1953

}ggg

it .NXT_CRN gtr 255 then NXT_CRN = 1;

}ggg

DONE = TRUE;

;

1958

:
:
:

1961
1962
1963

! true and the loop will end else increment to the
! next unique command ref number and make done false
! to continue the loop.

:
3

1959
1960

1968
}ggg

1968

:
:

1970
1971

:
2

1973
1974

:
:

! Now search the outSstd_buffer for this command
! reference number. If not there then done sta‘s

incru i from 0 to REC_ALLOCATE = 1 do

!Search buffer for this cmd ref num

if .0UTSSTD_BUF [.i., CMD_REF] eqlu .NXT_CRN 'Does it already exist
en

1972

1975

!Clear the all done indicator flag

be?in
NXT_CRN = _NXT_CRN + 1;

'It already exists
!Try
the next sequential cmd ref num

exitloop;
end;

'Exit this incr loop

DONE = FALSE;

'Make code loop again

1976
1977

end
until .DONE;

}3%?

g Return the unigue command reference number to the caller.

1982

return .NXT_CRN;

197
1983

end;

000000

010146

000002

105267 0000006

000006
000010
000014
000016
000024
000026

104422
012701
005000
126067
001004
105267

000036

000405

000052 003001

'Repeat loop until done

000001

000000G 000000G
000000G

LSBTTL
GET.CMDSRE/
::
MOV

1$:

2%:

GET.CMDSREF MODULE DECLARATIONS

R1,=(SP)

22
#.R1
RO
gutSSTD.BUF(RO).Nxt.CRN
$
NXT.CRN

s
s *,DONE
B
: *(]),»

INCB

NXT.CRN

(LR

TRAP
MOV
CLR
CMPB
BNE
INCB

: DONE
:

£58

;

1950

begin
QR AK;

ona

’

1947
}g:g

‘e

! Repeat generating and searching the cut$standing command buffer until a
; unique command reference number is found.

:
3

1945

1946

7=Jul=1983 08:24:58

;

1941

1942
}gzz

MODULE DECLARATIONS

SEQ 178
Page 15
SPIDERSUSERS
: [NEALE .AZTEC JCZRCH5.B16;3 (9)

VAX=11 Bliss=16 V3=555

:
:

11=Jul=1983 16:06:44

REV A PATCH 00

CZRCH RC25S DISK FORMATTER

000

CZRCHS

K 14
CZRCHS
REV A PATCH 00
000042
000046
000052

062
02002
101763
006
103355
00

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS
000004

000014

000000G

11-Jul-19g§
7=Jul=1983
0 26 58

1984

SEO 179

SPIDERSUSERS: (NEALE .AZTECICZR(CH5.816; 3(9)

3s:

ADD

#4,R0

HM|

1966

(A H

BLOS
ROR

28
R1

: DONE

1977

1931

1884

CMP

RO,Wi

B8CC
CLR
BIS8

1%
RO
NXT.CRN,RO

RTS

MOV

(sP)+,R1

27 words,
Routine Base: ACSCODE + 0316
: Maximum stack depth per invocation: 3 words

; Routine Size:

VAX=11 Bliss=16 V3=555
: 1.®

LALN 'R T

L 1%

global routine DECODE : novalue =

'Decodes failing SA reg data

Tee

! Functional Description :

1991

CELEERERERRE

TETR TA
R TRTR AT AT
DATR 1

11-Jul=1983 16:06:44
7=Jul=1983 08:24:58

Due
are

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

can be posted in SA register bit 15 by the port

report an error.

3. The issued command to the port/controller can be executed
correctly without any errors but the response packet status
field 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 havinap 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 will then be called when the return from a queued
command comes back with an error code or non successfull status
gode. {h:s {s by definition when bit 0 in the returned status
s equal

TR TR A

PR TR TR PR PR DRLR

SEQ 180

Page 15
VAX=11 Bliss=16 V3=555
.AZTECJCZRCH5.816:3 (10)
USERS
: [NEALE
SPIDERS

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

error.

An appropriate
fFormal Parameters :

recovery

action will be done for each individual

none

Implicit Inputs :
RET_STATUS:

Stored in this global storage is the returned error
code g; non-successful status code from a queued
command.

Implicit Outputs :

TR AR AR A I I

I EI EI E R

none

Completion Codes :
none

Side Effects :

ALl formatter errors are fstal. therefor after execution
of this routine the RC25 controller 1is initialized
aborting any DM code running in the controller.

begin
local

SA_VALUE;

'Save SA register fatal error code

CZRCHS
CZRCH RC25 DISK FORMATTER
REV A PATC" 00 MODULE DECLARATIONS
:
3

2042
2043

2045
2046

! status code is to be processed.
l-

2044

:
:
S
:

2047
2048
2049
2050

:
3
3

2053
2054
gggg

2057

3
H

2059
2060

3
3

58;}

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

VAX=11 Bliss=16 V3=555
Page 16
SPIDERSUSERS
: [NEALE .AZTECICZRCHS5.816;3 (10)

! Use the contents of "RET_STATUS'' to select what type error or non=-successful

selectoneu .RET_STATUS of
set
!

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

2058

[CIE_CODE] :

2061
2062

%822

5822

; Port/Controller timed out after the specified time out interval.

3
:

2067
2068

CCTO_CODE] :

3
:
3

2070
207
2072

:
3

2069

Be?in
PRINTB (.EMSG_STRUCT [MSG4]);

'Code equals %0'01"'

end;

; ‘Port/Controller time out'' error code

e?ln

!Code equals %o'11’

PRINTB (.EMSG_STRUCT [MSG21]));
end;

%8;2

; ‘Port fatal error'' code

3
3

2075
58;9

! The error bit in the SA Register was set when examined in the DUPSI_SERVICE
; routine. This error indicates a Port fatal error code.

3
3

2078
2079

[PFE_CODE] :

ggg;

3
S

2083
%832

:
:

2086
2087

583?

2
2
3

3
3

2080

2083
2089
2092

2093

begin

!Get error code from SA register

! Is the error code within the R(25 error code rangs, or is it
: an generic, all controllers, error code?
if .SA_VALUE gequ 200

then

be?in

PRdNTB (.RC_STRUCTURE [.SA_VALUE - 2001);

else

2094
gggg

2097

!Code equals %o0'21'

§A_VALUE = .RC25_ADDR [RCSA, ERR_CODE];

be?in

PRINTB (.PFE_STRUCT [.SA_VALUE]));
end;
end;

SEQ 181

'R(25 error code range

!Generic error code

N 14

CZRCH RC2S DISK FORMATTER

CZRCHS

REV A PATCH 00 MODULE DECLARATIONS
2099

% This indicates that a non-successful return status code was returned
CRSE_CODE] :

D cd

g Look at the UQPORT connection ID field to determine the type of response

if .RET_ENSAD [CONN_ID] eqlu DUP

PRZNTB (.SDUP_STRUCT [.RET_ENSAD [STATUS]));

)
) e cd

begin
en

else

) cd

21
g}

PRZNTB (.SMSCP_STRUCT [.RET_ENSAD [STA_CODEJ]]);

end;

'Port Portocol violation'' error code

% A protocol violation error was detected during host processing of an issued command.
:

CPVE_CODE] :
egin

PR?NTB (.EMSG_STRUCT [MSG1]);

!Code equals %0'41’

end;

21
21
21
21

begin

‘Remote program died'’ error code

W =O VNN

1
1
1
1
1

This indicates that the remote progran 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

VIS WN = O V0NN

}

VIS BB BB
S DS S WWWWWWWWWWNI
N NN DN

!Code equals %o'31’

ER?NTB (.EMSG_STRUCT [MSGOJ);

D
— e

}

from an issued command.

egin

then

delays.

It is assumed that the remote program is dead

and 1s treated as a fatal error.

[RPD_CODE] :
e?in

!Code equals %0°'51"'

PRINTB (.EMSG_STRUCT [MSG2]);
end;

g *Port to host synchronious error'' code

[PSE_CODE] :
egin

PR?NTB (.EMSG_STRUCT [MSG5]);
end;

!Code equals %o'61’

SEQ 182

Page 17

SPIDERSUSERS
: CNEALE .AZTECICZRCHS5.816:3 (10)

! "Return status error'' code

OSSN NTNT ST NS NTNTS NSNS TN LN TN LS TN

7=Jul=1983 08:24:58

)

D ol —d

- ad

=OOVONO VNS NNNNddd—l—l—b-‘dd—booocog
WN=O V0NN WN=O V0NN W

purd

(=l (=]

LS DN DS N LS NS DN DS S OSSO P N
-

2100

11=Jul=1983 16:06:44

VAX=11 BlLiss=16 V3=555

CZRCH

NN ST NTNTNTNTNT NS NUNTSINEN NSNS DS TN NS DS TSN NS NN TN LS NN N TN TN )

0000000010 00000000
0o 0o
000000 00 0000~ I I N~ NN VN N0\ O O\ O OO VOO O AA AN

LSLSLSLNTNTNTNTNT

[HLESCODEJ
e

E
s
A e
E

!Code equals %o0°'71'

PRdNTB (.EMSG_STRUCT [MSG6));

end;

g *Unknown end code'’ error code
[UECBCODEJ :
e

'Code equals %0'101°

PRINTB (.EMSG_STRUCT [MSG7]);
end;

‘ *‘Adaptor purge request'' error code
[APRBCODEJ :
e

'Code equals %0°'201°

PRINTB (.EMSG_STRUCT [MSG81);

end;

% "Unknown interrupt’’ error code
tUlNBCODEJ :
e

'Code equals %0°'301°

PRINTB (.EMSG_STRUCT [MSG91);
end;

g “ATTENTION MSG ENDCODE'* error code
CATN_CODE] :
e?in

!Code equals %0°'401°*

PRdNTB (.EMSG_STRUCT [MSG12));

end;

; *'COMMAND MSG ENDCODE'' error code
CCMD_CODE] :
egin

PRZNTB (.EMSG_STRUCT [MSG13]);

]

'Code equals %0°'501°*

end;

; *'SERIOUS EXCEPTION'' error code

[SEX_CODE] :

PRZNTB (.EMSG_STRUCT [MSG14]);

ena;

i “INVALID COMMAND'' error code

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3(10)

' ‘Message length error'’ code

egin

VAX=11 Bliss=16 V3=555

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

TR T

PR TRL

TR T

PR L

TR LR IR LA LR TR LRL LA LA L

A LA LR TR T

REV A PATCH 00

SEO 183

'Code equals %0'601°*

C15

REV A PATCH 00
3
3

2213
2214

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

CIVC_CODE] :

%215

2217

g%}g

gggg

; *'UNKNOWN MESSAGE TYPE'' error code

2222

3
:
3

216

2223

2224
2225
%ggg

gssg

3
3
3

2230
2231
2232

7=Jul=198

e?in

PRINTB (.EMSG_STRUCT [MSG151);

end;

CUMT_CODE] :
.

e?in
PRINTB (.EMSG_STRUCT [MSG16]);
end;

'Code equals %0°1001°

: *UNKNOWN MESSAGE NUMBER'' error code
!Code equals %0'4001°

2233
gggg

%%%9

; Out standing buffer slots are all filled up

3
:
3
3
3

2238
2239
2240
2241
ggz%

[OBF_CODE] :
eyin
PRINTB (.EMSG_STRUCT [MSG17]);
end;

ggzg

g Out standing command buffer out of sync error

3
2
:
2
3

2246
2247
2248
2249
%gg?

[OSE_CODE] :
e?in
PRINTB (.EMSG_STRUCT [MSG181);
end;

:
S
3
3

2252
2253
2254
2255

3
3
3
:
3
3
:
3
2
3

2257
2258
2259
2260
2261
226
226
2264
5265
266

3
3

2256

2267
2268

!Code equals %0°'2001°

!Code equals %0°3001°

! File read error from local load media
!

[FRE_CODE] :

Be?in

!Code equals %0°'5001°

PRINTB (.EMSG_STRUCT [MSG20]);
end;

! Illegal FCT file length

CILL_FCT] :
e?in
PRINTB (.EMSG_STRUCT [MSG22]);
end;

SEO 184

SPIDERSUSERS: [NEALE.AZTECICZRCHS. 816 3 (10)

!Code equals %0°'701"

CUMN_CODE] :
e?in
PRINTB (.EMSG_STRUCT [MSG19]));
‘
end;

VAX=11 Bliss=16 V3=555

11=Jul=198

oo~

CZRCHS

:06:44
0 :24:58
1

'Code equals %0'6001°*

% This is here to trap any unknow return status codes sent to this routine.

D15
CZRCH5

REV A PATCH 00

11=Jul=1983 16:06:
7=Jul=1983 08:24:

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

[otherwise] :
be?in
PRdNTB (.EMSG_STRUCT [MSG31);

VAX=11 Bliss=16 V3=555

SEO 185

SPIDERSUSERS : tNEALE AZTECICZRCHS. 816.3(10)

!Code equals non of the above

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

aczs ADDR [RCIP, RC ALL] = ONES;

chs (RCIP, ‘ONED);

0000006

.SBTTL

DECODE:: JSR

0000006

-(sp) =(SP)
RET.STATUS,R1

0000106
000001

#1,-(SP)

2048

EMSG.STRUCT+10,~(SP)
SP.RO

0000526
000001

2%:

1%
118

R1,#11
2
EMSG.STRUCT+52,=(SP)
,=(SP)
SP,RO
1%
13$
R1.421

; SP,*

48’

aczs ADDR

6)
o1reobo.no

§§§

000070

1771606
000001

0000006

3s:

RO
RC.STRUCTURE=-620(R0)
,~(SP)
#1,-(SP)
SP.RO
14
17%
RO
PFE.STRUCT(RO) ,~(SP)
(SP)

SP.RO

R med

388 N 8
§:o§§: 3g

RO,#310

=000

RSRRVERSHRRIRNEZT

1985

g}M

1$:

S88888888388SEEg8

DECODE MODULE DECLARATIONS
R1,$SAVEZ2

14
17%
R1,431
7%

* ,RC$S.REG

; RCSS.REG,SA.VALUE
: *,SA, VALUE
: SA.VALUE,+

2087
2094
.

SP"

CZRCHS
REV A PATCH 00

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

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

SPIDERSUSERS: LNEALE .AZTECICZRCHS. 316.3(10)

2106

SP.RO

: SP,*

RET.ENSAD,R2
R2,RO

H
: RET.ENSAD,*

2114
21

000016

5%
;S(RZ).RO

2114

0000006
000001

#1,-(SP)

000003

P oo naaR

SEO 186

#1,-(SP)

0000006

3(R0) ,#2

000002

(SP)
, RO)
SDUP.STRUCT(
SP,RO
103

000016
177740

5%:

0577746 R2
SP.RO

78:

0000026
000001

14
(SP)+

22%
R1,4461
8s
EMSG.STRUCT+2,~(SP)
#1,-(SP)

8s:

0000046
000001

0000126
000001

0000166
€00001

000101

TMY —=2

0000146
000001

2130

2048

2145

SP.RO

: SP,x

268

2048

EMSG.STRUCT+12,=(SP)

2153

SP.RO

: SP,»

2048

EMSG.STRUCT+14,-(SP)

2161

R1,461
10

000071

2105
2048

248
R1,451
9$
EMSG.STRUCT+4,~(SP)
#1,-(SP)

,=(SP)

108:

H
|

: SP,»

9%:

: SP,*

SP.RO
14

000061

21
2118

6
16(R2) ,R2

#1,-(SP)

6$:

000051

: SP,»

(SP)
SMSCP.STRUCT(R2),

0000006
000001

000041

gegsassess
RERNE TSRS

VAX=11 Bliss=16 V3=555

EMSG.STRUCT,=(SP)

0000006
000001

006
016016

5§€E

E 15

12 $

.~(SP)
SP.RO
1%
308
R1,#101

: SP,»

2048

EMSG.STRUCT+16,=(SP)

2169

SP.RO

: SP,t

148

#1,-(SP)

000201

oo
oe

0000206
000001

0000226
000001

0000306
000001

2177

SP.RO

: SP,x

33
R1.#301

2048

EMSG. STRUCT+22,=(SP)

2185

SP,RO

; SP,«

33s
R1,#401

2048

EMSG. STRUCT+30,=(SP)

2193

SP.RO
14
33
R1,4#501

: SP,»

2048

EMSG. STRUCT+32,=(SP)

2201

SP,RO

: SP,«

338
R1,4601

2048

EMSG. STRUCT+34,=(SP)

2209

SP.RO

: SP,»

33s
5} #701

2048

EMSG. STRUCT+36,=(SP)

2217

SP.RO

: SP,»

33s
R1,#1001

2048

EMSG. STRUCT+40,=(SP)

2225

SP.RO

: SP,»

33s
R1,#4001

2048

EMSG. STRUCT+46,=(SP)

‘

2233

16$

18§

19$

0000326
000001

#1,-(SP)
14

000601

19%:

0000346
000001

20§

,=(SP)

000701

20$:

000036G
000001

#1,-(SP)

001001

21$:

§2238
—a

OOONNYNNO
S

0000406
000001

004001
0000466
000001

238

#1,-(SP)

22%:
23%:

NO
SO

15§

.~(SP)

000501

SPIDERSUSERS: CNEALE .AZTECICZRCHS. 816.3 (10)

EMSG.STRUCT+20,=(SP)

#1,-(5P)

16%:

SEO 187

2048

000401

VAX=11 Bliss=16 V3=555

(SP)

15%:

144
:58

338
R1,#201

000301

o=
OO«

MODULE DECLARATIONS

S
[
2

104414
000

11=Jul=1
7=Jul=1

CZRCH RC25 DISK FORMATTER

S
A PATCH 00

VO
CoCo
W

F15

25$

SP.RO
14

SP)

CZRCHS

REV A PATCH 00

000456
020127
001007
016746
012746
010600

0000426
000001
26%:
27%:

003001
0000446
000001

28$:
29%:

30%:
318:

0000546
000001

2241

SP,RO

: SP,*

2048

EMSG. STRUCT+44 ,=(SP)

2249

SP,RO

: SP,*

338

2048

EMSG.STRUCT+50,=(SP)

2257

SP,RO

: SP,*

2048

EMSG. STRUCT+54,=(SP)

2265

SP.RO
14
33
EMSG.STRUCT+6,=(SP)
,=(SP)
SP.RO

: SP,»

R1,4#3001

29%
14

R1,#5001

31$
14

R1,#6001

32§

,=(SP)

000006G
000001

32%:

177777 000004
177777
000000G

33s:

000010

1%
#-1,4(SP)
#-1.R0

2048
2273

: SP,*

22.3RC25.ADDR

: *,RC$S.REG
: * RCSM.REG
: RCSM.REG,*

2281
2282

#10,SP

1985

Routine Base: ACSCODE + 0404
10 words

Haxinuu stack depth per invocation:
2285

EMSG. STRUCT+42,=(SP)

#1,-(SP)

006001

2048

#1,-(SP)

0000506
000001

282 words,

H
.~(SP)

005001

; Routine Size:

SPIDERSUSE

24$
25$

002001

104414

000444
020127
007

VAX=11 Bliss=16
V3=555
SEO138
RS: (NEALE .AZTECICZRCHS. 816 3 (10)

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

H15
CZRCKS

REV A PATCH 00

2286
2287
2288
2289

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

global routine DUPSI_SERVICE : INT_LNKSTYP novalue =
! Functional Description :

The transmission of a message will result in a hos% I nterrupt if and
only if interrupts were armed suitably during initia ization and one
of t he following conditions has been met:

The message was a comand with F=1 and the port's fetchin? it
caused the command ring to transition from full to not-fu .
(This interrupt means that the host may place another command
in the ring.)

The message was a response with F=1 and the port's depositing
it caused the response ring to transition from empty to notempt‘.
(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 requires the port/controller to re-access a given
location
during
data transfer.
(This interrupt means that
the port/controller is requesting the host to purge the
indicated chanel of the bus adapter.)

o0 NV

WNN=O

WWWWWWWWWWW
N d ot md md ed b D D cd b

3=<

S LAS AN AN TN TNT AN T N T ST N TS TN TN TN

!Signals receive queue entry

2306

2321

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

SEQ 189
24
Page
VAX=11 Bliss=16 V3=555
(11)
B16:3
SPIDERSUSERS
: [NEALE .AZTECJCZRCH5.

This
interrupt service routine is entered when any of the above
conditions occure. When entered it will be determined what type
interrupt was executed and take the necessary action.

Formal Parameters :
none

Implicit Inputs :
Nrd_slot:

Implicit Outputs :
Ret_ status:

A global flag which points to the next receive descriptor
slot where the port/controller should be polling on and
where to expect the first response packet to process.
This uglobal
flag is the mechinism by which these DUP
Port protocol routines pass status code back to
and

to the host routine's requesti?g communications over
the established connections.
ie status returned is
decoded by the caller to determine if an error or bad
response packet status was discovered.

AN LA LN LN LN LN LNV

FRpa
33

Out$std_buf:

Completion Codes :
none

Side Effects :
none

This buffer is used to save all commands issued to the
gort and are considered outstanding when in this buffer.
his interrupt service routine will indicate this command
is nolonger
outstanding by setting the rec_fl
in the
slot matching this response envelope command re number.

115

CZRCHS
REV A PATCH 00
:
:
:

:
:
3

2343
2344
2345

2346
2347
ggzg

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS
local

TEMP,
FOUND_CMD,

REF _NOM;

2350

2354

! error and kick the bucket.

3
:
:
3

3
:

2351
2352
2353

2357
2358
2359
2360

RET_STATUS = PFE_CODE;

2361
2362

2363
2364

'Holds nrd_slot + 1 reference
'Found command flag
!Stores response packets cmd ref number

! Before this interrupt service routine does anything
! look
at the SA register for any port fatal errors
! posted. If there are errors posted then report the
it .RC25_ADDR [RCSA, ERR_BIT]
then
be?in
DECODE ();
return;
end;

!Are there any errors posted
!Indicate the error type

!Decode and print the error
'Just for show. Decode will kill it

2365

:
3
3
:
3
3
s

2368
2369
2370
237N
2372
2373
2374

! We could have a:
!
!
1. Response
ring
transition
interrupt.
!
2. Send ring transition interrupt.
!
3. A adaptor purge request interrupt (which is
:
illegal runnin? under the PDP-11 Diagnostic
supervisor and 1s flagged as a fatal controller

3
3

2379
2380

‘-

3
3
3

Sgg?

2375
2376
5;;;

:
$
3

2381
2382
2383

3
:

2387
2388

533}

3
3

2384
gggg

2389
2390

3
3
3
3

2393
2394
2395
gggg

;

2398

2399

: See what kind of interrupt got us here.

:
!
:

error.)
&, Or an unknown interrupt not known by this program
which also results in a fatal controller error.

!
! Check to see if we get here because of a response ring
! transition interrupt.
This is more likely to be the
; most freguent interrupt so check it first.
if .HEAD_AREA [RSP_INT]
then
be?1n

gE _NRD ();
!
!
!
;

!Get the resp slot location to process

Check the host ?rotocol for being out of sequence
with the controller by making sure that this slot
is owned by the host (meaning that there is a resp
envelope at this ring slot to process.

it .RECEIVE_RING [.NRD_SLOT, OWN_BIT] nequ HOST_OWNED

SEQ 190

VAX=11 Bliss=16 V3=555
Page 2
SPIDERSUSERS
: NEALE .AZTECJCZRCH5.B16;3 (11)

begin

:
:
s

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

'!Is this owned by host

J 15
CZRCHS

2400

2401
2402
2403
24604

2405
2406
2407

2408
2409
2410
et
2412
2413
2414

2415

2416
52};

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

MODULE DECLARATIONS

7=Jul=1983 08:24:58

then

be?in
RET_STATUS = PSE_CODE;
DECODE ();
return;

'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

end;

!
!
!
!

Per DUP protocol once interrupted due to a response ring
interrupt, the host code should process all response packets
found in the response ring. This while loop will continue
to process the response packets in the response ring until

! none remain.
‘e

while TRUE do

'Process all response packets in ring

begin
QR AK;

'Look for control c's

2419
2420
2621
gzgg

!
!
!
;

Load the Reference structure ‘Ret_en$ad'’' with the address
of this response envelope to process (The minus %0'4’ is
done,
to address the first word in the envelope packet
and is equal to location '‘text=4'").

gz%g

RET_ENSAD = (.RECEIVE_RING [.NRD_SLOT, LO_ENSAD]) = %0'4°’;

2426
szgz

'+
; Test the end packet for its possible three end types.

2429
2430
24631
2432
2433

!
!
!
!
!

2436

! Commands opcode bits 6 and 7 indicate the type of message (command, end or

2438
gzzg

! catagory (immediate, sequential or no-sequential) and whether or not the
; command includes a buffer descriptor.

I R R

message contains the value OP.RED + OP.END in its opcode field. The Invalid

command end nessa?e contains just the end message
its
opcode field.
The serious exception opcode s
5 OP.END) in its opcode field.

! attention

nessa?e.

flag (i.e.., OP.END) in
above (i.e. OP.SEX ¢+

Command opcodes bits 3 throufh S indicate the command

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

2443
%22§

selectgneu RET_ENSAD [TYPSMSG] of

AR
MR

End nessage opcodes (also called endcodes) are formed by adding
the end
message
flag to the command opcode. For example, a READ commands end

%22}

24637

545
45

o
L
N

%2;;

2446
2447
2448
2449
2450

T R O

T TR

PR DRTR T

PR L A LR

L TR

PR TR

AL AL AL TR

DRTR

DL T

REV A PATCH 00

SEQ 19
Page
26
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: LNEALE .AZTEC JCZRCH5.B16;3 (11)

2451

2454
2455

2456

CENDSMSG] :
begin

!Select the endpacket size
!Is this an end code packet

! 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
! code

for

into

the commands end packet then load the error

return

status,

call decode to report

the

! error and kick the bucket and die. This endcode is formed

Lah

K15

REV A PATCH 00

RCH_RC25

NGD

EoLaRA

11=Jul=1983

MODULE DECLARATIONS

16:06:44

Jut gg Og:g2:§8

K _FORMATTER

7=Jul=19

the

! by adding

;_opcode.

end

message flag %0'200' to the commands

selectgneu «RET_ENSAD [ENDCODE] of
se
i

% *RECEIVE DATA'* command end packet
CEOP_RED] :

begin

:g «RET_ENSAD [MSG_LENGTH] nequ ESZ_RED
en

!Is the byte count correct

begin

RE? STATUS = MLE_CODE; !Return a 'message length error code’’
DECODE ();
return;

end;

TReport the error and kick the bucket
'Just for show.

Decode kills it

end;

% *'SEND DATA'* command end packet
CEOP_SED] :

begin

:; +RET_ENSAD [MSG_LENGTH] nequ ESZ_SED
en

!Is the byte count correct

begin

RE? STATUS = MLE_CODE; 'Return a 'message length error code'’
DECODE ();
return;

end;
i

TReport the error and kick the bucket
'Just for show.

Decode kills it

end;

;" GET DUST STATUS''

command end packet

[EOP_GDS] :

begin

:; RET_ENSAD [MSG_LENGTH] nequ ESZ_GDS

b
3 ek =k

ViV
I AT

WN=O

NONLNLNLNLNLNONONOND

SRIKAR

'Is the byte count correct

begin

RE? STATUS = MLE_CODE; 'Return a 'message length error code'’
DECODE ();
return;

end;
]

TReport the error and kick the bucket
'Just for show.

Decode kills it

end;

; “EXECUTE SUPPLIED PROGRAM'' command end packet

sEa 192

SPIDERSUSEzgz[NEALE.AZTECJCZRCHS.B16:§it
VAX=11 Bliss=16 V3=555

L 15
CZRCHS

CZRCH RC2S DISK FORMATTER

11-Jul-1983 16:06:44

REV A PATCH 00 MODULE DECLARATIONS
3
3

2514
2515

2518

2521
2522

2530

%ggg

2531

gggg

2536

3
3
3

2539
2540
2541

:e
:
3

%gzg

2546

;

2350

2552

:
3
3
3

2554
2555
2556
2557

2547

2558

ggg?

;

zso§

2559

256

2569

2570

'Just for show.

Decode kills it

end;
!
' 'txecure LOCAL PROGRAM'' command end packet
[EOP_ELP]
:

begin

i;.RET_ENSAD [MSG_LENGTH] nequ ESZ_ELP
en

'Is the byte count correct

RE?
STATUS= MLE CODE
'Return a ‘message length error code'’
DECODE ();
Report the error and kick the bucket
return;
end;

iJust for show.

Decode kills it

end;

; *'ABORT PROGRAM'' command end packet

LEOP ABTJ

it .RET_ENSAD [MSG_LENGTH] nequ ESZ_ABT
en

2553

return;

end;

2537
2538
2542
2543

'Is the byte count correct

RE?
STATUS= MLE_CODE;
'Return a 'message length error code'’
DECODE ();
TReport the error and kick the bucket

2523

2524
2525
2526
2527
5258

if RET_ENSAD [MSG_LENGTH) nequ ESZ_ESP

then

begin

RET_STATUS = MLE CODE

DECODE ();
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;

' 'SEI CONTROLLER CHAR'' command end packet

CEOP SCCJ

if .RET_ENSAD [MSG_LENGTH] nequ ESZ_SCC

'Is the byte count correct

RE?STATUS= MLE_CODE; !'Return a 'message length error :zode'
DECODE ();

SEO 193
28

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 3 (11)

[EoP ESPJ

5258

3
3
3
3
3
3

7=Jul=1983 08:24:58

VAX=11 Bliss=16 V3=555

TReport the error and kick the bucket

m15
CZRCH5
REV A PATCH 00

CZRCH RC2S5 DISK FORMATTER

11=Jul=1983 16:06:44

7-Jul=1983 08:24:58

MODULE DECLARATIONS

return;

'Just for show.

end;

SEQ 194

VAX=11 Bliss=16 V3=555
3 (1)29
16;Page
.AZTECICZRCHS.BRS:
RSUSE
CNEALE
SPIDE

Decode kills it

end;

g *ON LINE'* command end packet
CEOP_ONL] :

begin
en

28TBISRR

PIAIAIAIAIAIAIN

:g «RET_ENSAD [MSG_LENGTH] nequ ESZ_ONL

2592

!Is the byte count correct

begin

RE? STATUS = MLE_CODE; 'Return a 'message length error code’’
DECODE ();

return;
end;

TReport the error and kick the bucket
'Just for show.

Decode kills it

end;

The

‘OP_END''

end message flag all by its self tells

us that the controller is

flagging us

gomza?d sent over the connection.
ucket.

of an illegal

Error and kick the

COP_END] :
be?in

RET_STATUS = IVC_CODE;

DECODE ();
return;

end;

The controller is telling us that a serious exception
has occured. Error and kick the bucket.

CEOP_SEX] :

Be?in

RET_STATUS = SEX_CODE:;

DECODE ();
return;

end;

g Unknown end packet endcode type
[otherwise] :
begin

RE? STATUS = UEC_CODE;
DECODE ();
re;urn:

tes;

end;

!Return an '‘unknown end code'’

'Report the error and kick the bucket
'Just for show.

Decode kills it

N 15
- la

RCH
HS

CZRCH RC25 DISK FORMATTER
DECLARATIONS
A PATCH 00 MODULE

11=Jul=1983 16:06:44

7=Jul=1983 08:24:58

' The oortlcontroller sent the endpacket over the connection
i with out any gro lems. Now find this commands owner in the
i out$standing uffer and indicate to them that the command

32%2

QEFNUM = _RET_ENSAD [CMD_LREF];

2635

i Search

2638

i If

ggz?

: has been received by this interrupt service routine.

%2%5

: has been received.

%2%?

the outstanding

command buffer for

: reference number.

found,

load

the

buffer location with the ret_en$ad

ggzg

incru i from 0 to REC_ALLOCATE - 1 do

2646

2649

2650
2651
2652

OU?SStD_BUF [.i, REC_FLG] = TRUE;

2659
2660
2661
2662
2663
2664

!
if not .FOUND_CMD
then
?
RET_STATUS
= PSE_CODE;

! If the search through the command ref
! buffer failed to find this commands cmd
! reference number then die.

2665

DECODE ();

2671
2672
2673

! The set controller characteristics command
! disabled the reporting of attentions messa es
! so treat
this as a fatal error and

52;9

[ATTSHSGJ

I I

T T T

return;
end;

5298

2680
2681
2682

2683
2684

'Return envelope adrs

end;

2656
2657
2658

2679

'Is this the comd ref

'Indicate command is received

OUTSSTD BUF [.i, ENVCADR] = .RET_ENSAD;
FOUND_CRD = TRUE;
TIndicate it was found
exitloop;
'Exit the loop

2653
2654
2655

2678

!Search the buffer

if .OUTSSTD_BUF [.i, CMD_REF] eqlu .REF_NUM

then

ggzg

2674
2675

this command

!Clear the found cmd flag

R I

T T

PR PR TR L

FOUND_CHD = FALSE;

2666
2667
2668

this commands

i and set the received flag to signify that

R LR TR

2639

!Get this rec packets c¢cmd ref number

gg:%

VAX=11 Bliss=16 V3=555
[NEALE.AZTECICZRCHS. 816 3 (11)3
SPIDERSUSERS:

2628
2629
2630

TRLR

LR TRLA

LR LALA TR

L AL LA LR L L 1

SEO 195

end;

'End of ENDSMSG processing

as?STATUS= ATN_CODE;
in

!Attention end message type

DECODE();
return;
end;

¢
i It doesn't make any since for this end message
i packet not to have the end message flag adde

B 16

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC2S DISK FORMATTER
CZRCHS
REV A PATCH 00 MODULE DECLARATIONS

! to this command opcode as treat it as a fatal
! error and die.

:
3
:
:
3

2685
2686
2687

2689
2690
2691

CCMDSMSG] :
beqin
RET_STATUS = CMD_CODE;

:
:
:

2693
2694
2695

:
:
:
3

2698
2699
2700
2701

[otherwise] :
be?in

2703

DECODE ();

3
3

:
3

3
:
H
3
3

2688

2692

DECODE ();

2702

2704
2705
2706
2707
2708

return;
end;

! This end code type is of unknown origin so
! treat is as a fatal error and die.

2696
2697

RET_STATUS = UEC_CODE:;

tes;

!Unknown message type code received

return;
end;

g;}%

2711

!
! Before we Lleave 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

5;}2

QEI_ENSAD [MSG_LENGTH] = RB_SIZE*2;

:
:

2716
%;}g

! Return this receive slot descriptor back to
; the port to fullfill my part of the protocol.

%;;8

QECEIVE,RING C.NRD_SLOT, OWN_BIT] = PORT_OWNED;

3
3
H

2721
2722
2723

! 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

%;%g

:; .NRD_SLOT + 1 gtru REC_ALLOCATE = 1

3
3

2729
2730

else

2733

3
3
3

[

;

2709
2710

2724

s;%;

%;gg

2736

%;gg
2739

2740
2741

; command text

area.

! around to the top of the ring.

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

:; .RECEIVE_RING [.TEMP, OWN_BIT] eqlu HOST_OWNED
en

else

SEQ 196

Page 31
VAX=11 Bliss=16 V3=555
16;3 (11)
RS
.AZTECJCZRCHS5.8
RSUSE
: [NEALE
SPIDE

'Are we done yet

GET_NRD ()

'Get the next resp desc to process

exitloop;

'No more to do so exit

€16
CZRCHS

LALR T

REV A PATCH 00

TR PR TRLA LA

end;

TRTR TR LA

TR TRTR

TRLA LA

iIClear the interrupt indicator location

re;urn RET_STATUS = PAS_CODE;

'Return a '‘pass code

iClear out the indicator

Iannnnnnnnnnnnsnnateda*END OF RESPONSE RING INTERRUPT PROCESSINGttttatttattattttttas

A send ring transition interrupt could happen if at
some ggte only one descriptor slot is allocated for
commands.

TR TR TRL

Clear the interrupt indicator if this is true and do
a return with no errors.

:; .HEAD_AREA [CMD_INT]
en

HEAD_AREA CRSP_INT] = ZEROS:
enda;

!Is this a com ring transition interrupt

bexin
HEAD_AREA [CMD_INT] = ZERO;
regurn:

!Clear out the indicator
‘Continue on with the host code

end;

e
e
o
e

'End of WHILE LOOP

HEAD_AREA CCMDINT] = ZEROS;

innwnnnnnannnnannvcvevsra*END OF

COMMAND RING

INTERRUPT PROCESSING*tttaantttnttttntes

] +

i Check
to see if an adaptor purge is being requested
i by the port/controller in order to complete excution
i of a issued command.
Remember that this is illegal

i guring PDP-11
!

fatal error.

formatting and is concidered

:; .HEAD_AREA [ADP_CH] nequ ZERO
en

R T

SEQ 197
Page 32
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE .AZTEC JCZRCHS5.B16:3 (11)

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.

be?in
RET_STATUS = APR_CODE;

DECODE ();

IR
A T T
I I
IR

11=Jul-1983 16 :06: 44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

resurn:

to be a

!1s the an adaptor purge request?
!Indicate the error code

'Report the error and kick the bucket
!Just for show. Decode kills it

end;

TennnnnnnnnnnnannnenvteavsasEND OF ADAPTOR PURGE

INTERRUPT PROCESSINGretttantttttttttttttts

The host program has been interrupted b‘ an unknown interrupt
source if the routine program flow reaches here.

Load the error code into return status and call decode to take
appropriate action.

D16

11=Jul=1983 16:06:44

CZRCH RC25 DISK FORMATTER

CZRCHS

7=Jul=1983 08:24:58

REV A PATCH 00 MODULE DECLARATIONS
:

2799

:
:

2800
801

2803

:
:

802

2804

000000

010046

000002
000004
000006
000010
000012
000014

VAX=11 Bliss=16 V3=555

SEO 198

SPIDERSUSERS: [NEALE .AZTECICZRCHS. B16.3 (11)

e
RET STATUS UIN_CODE;

DECODE ();
return;

end;

.SBTTL DUPSI.SERVICE MODULE DECLARATIONS
DUPSI.SERVICE::

010146
010246
010346
010446
010546
016700 0000006

MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1.=(SP)
a;‘=(SP)
-(SP)
R&.=(SP)
RS .=(SP)
RC25.ADDR,R

2286

2357

000026
000034
000036
000042
000050
000052
000056
000062

012767
000546
016700
032760
001002
000167
004767
016700

000021 0000006
0000006

MOV
BR
MOV
BIT
BNE
JMP
JSR
MOV

#21,RET.STATUS
98
HEAD.AREA,RO
#1,6(R0)
2
218
PC,GET.NRD
NRD.SLOT,RO

:
:
:

2361

2391

000072
000076
000104
000106
000114
000116
000120

066700
032760
001404
012767
000570
104422
016700

000000G
100000 000002
000061 0000006

ADD
BIT
BEQ
MOV
B8R
TRAP
MOV

RECEIVE .RING,RO
#100000,
2 (RO)
48
#61,RET.STATUS
168
22
NRD.SLOT,RO

;
;
;
:

2402
2403
2416
2624

MOV
SUB
MOV
MOVB
ASR
ASR

(RO) ,RET .ENSAD
#4 ,RET. ENSAD
RET.ENSAD,R1
14(R1)RO’
RO
RO

2444

2461

6%
(R1) ,#60

2470

000020 016046 000002
000024 100004

000066
000070

000124
000126
000130

000134
000140
000146
000152
000156
000160
000162
000164
000166

000170
000172
000176
000202
000204
000.
000212
000216

006300
006300

006300
006300
066700

011067
162767
016701
116100
00
00

000001

000006

000550
176424
0000006

0000006

MOV
8PL

1$:
28:

ASL
ASL

38:
4$:

ASL
ASL
ADD

0000006

0000006
000004 0000006
0000006
000014

006200
006200
006200

ooo;oo
042700 177774
020027 000002
001121
005002
156102 000014
020227 000205
001007

000220 021127 000060

ASR
ASR
ASR

ASR
CMP
BNE
CLR
BISB
CMP
BNE
BIC

58:

CMP

2(R0)
-(sfi)
1$

RO
RO

RO
RO
RECEIVE.RING,RO

: *,RC$S.REG

2388
2399

RO
RO
RO

#177774.R0

RO, #2
14$

14(R1) ,R2
R2,#205

E 16

000206
000204

000211

;%.0200

000200

000601

0000006

000101

0000006
103:

0000006
000004

118:

RO
R1

OUT$STD.BUF (RO) ,R1
R1 R5

12
#100000,0UTSSTD.BUF (RO)

100000 0000006
0000006 0000026
000001

000001

13%:

000001

14%:

#4601 RET.STATUS

,
8s
#501,RET.51ATUS
24$
#74 ,5ET .ENSAD
ggD.SLOT.RO
RO

000074 0000006
0000006

&»

15%:

0000006

12%:

RET.ENSAD,OUTSSTD.BUF +2(R0)

000004
000014

000501

0000006

000401

248
R2,#207
8s
#601,RET.STATUS
24$
#101,RET.STATUS
24$
RET.ENSAD,RO
4(RO) ,R5

7$:

000207

PR P TR T

#701 ,RET.STATUS

0000006

000701

—

000203

000202

N
&H

000201

R2,#204
5%
R2,#201
5$
R2,#202
5%
R2,#203
5$
R2,4#206
5%
R2,#204
5%
R2.#211
5%

6$:

000204

108
#71,RET.STATUS
16$

AT AT AT A T PR TR

0000006

000071

gPIDER

TRIRIAIA

000224
000226

SEG(11)1%
V3-555
Bliss=16
11 SBSERS:
ss=16
V3~
3
816
CZRCHS.
[NEALE .AZTECI

MODULE DECLARATIONS

AX=

REV A PATCH 00

001453
012767
000520

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

LR
TR TR

CZRCH5

F 16

11=Jul=1983 16:06:
7-Jul=1983 08:24 sa

CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

000516
000522
0005
000534
000536
000542
000544
000546
000550
000552
000554
000556
000560
000564
000572
000574

000000G
100000 000002
0000006

#100000, 2 (RO}

000003

RO, #3

000610
000614
000620
000624
000626
000632
000640
000642
000646
000650
000654

066700
052760
016700
005200
020027
101402
005003
000401
010003
010300
006300
006300
066700
032760
001
004767
000167
016700
005060
5060
005067
27
016700
032760
001403
5060
16
016700
aggzgg

000662
000670
000672
000700
000
000706
000710
000712
000714
000716
000720
000722

012767
000403
012767
004767
005726
012605
012604
012603
012602
012601
012600
2

000201

0000006

000301
176010

000000G

; Routine Size:

NsbSLOT RO

18§

H
: TEMP

R3
198

RO’

2727
2729

2727

s
s
:

2739
2737
2750

3
:
3
s

2751
2752
2390
2766

: «,TEMP
: TEMP,*

no R3
R3.R0

18%:
19%:

2731
2737

RO
ascexvs axns

000000G
100000 000002

#1000

175706
177312
000000G
000006
000004
000000G

PC,GET.NRD
48

208

208:

HEAD.AREA,RO
6(R0)
4(RO)
RET.STATUS
25$
HEATM .AREA,RO
#1,4(RO)

21%:

000000G
000001 000004

22%

4(RO)

000004

0000006
000003

25%
HEAD.AREA,RO
3(RO)
23%
gzgl+RET.STATUS

22%:

23%:
24$:
25%:

#301,RET.STATUS
PC,DECODE

RTI

234 words,

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3(11)

RECEIVE .RING,RO

Routine Base:

* Maximum stack depth per invocation:
2805

VAX=11 Bliss=16 V3=555

SEO 200

13 words

(SP)+.R1
(SP)+.RO

ACSCODE + 1470

s
3
s
:
s
:

2769
2768

2783

2786
2787
2801
2802
2286

G 16

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC2S DISK FORMATTER
CZRCHS
REV A PATCH 00 MODULE DECLARATIONS
3

gggg global routine CTO_WAIT (TO_VALUE, REF_NUM, BUFSLOC) =

2808

!¢+

2810

2809

2811

2814

2815

the

! Formal Parameters :

2813
2816

REF _NUM

routine.

2823

! Implicit Inputs :

!
!
!

2824

none

2826

The command

3
:

2827

2828

3
3
3

2829
2830
2831

2835

3
3
3

:
3

2832
2833
283

is an unused out$std_buffer

2838

2843

:
3

2845
2846

!
!

2848

! Side Effects :

3
3

2847

2849
2850

s
:
3

2851
2852
2853

2
3
3

2855
2856
2857

code is

for the

error

In all cases, if
an error code is
routine decode is called
to decode

necessary recover‘ actions.

can

be reused.

If set

then an port fatal

routine else a controller

returned (bit 0 = 1) then the
the error code and does the

returned.

This

Llevel 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

the requested command.

!
!=-

none

begin
'+

2858

! kick the bucket if not the same.

2862

the next higher level of return from this routine is another level

return status

2854

2861

bit set.

returned to the calling

time out error code is returned.

!
!

2846

examined

error

2840
2841

that

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 1is returned as this routines
return status code.
If the port/controller times out then the SA Register error bit

!
!
!

2842

slot and

! cOn?letion Codes :
!
here are two Llevels of return
status returned
by
this routine.
!
1.
The
DUP interrupt service returns to this routine a status code

:
3

word in the out$std_buffer 'word zero of a command

slot' is cleared out with the value 20°'100000* to indicate this

2839

the timeout loop and when it equals true will
signal that this command has been received by the
interrupt service routine.

! Implicit Outputs :

2836

2837

to this command being timed out by this

This argument points to the out$std_buf location
where this command is saved. At this location the
received flag ‘‘rec_flg'’ bit is examined within the

BUFS$LOC

2825

the port/controller to either

or time out the command.

This argument contains the unique reference number

!
!
!

for

!Controller time out wait

Indicate the time-out interval for this command.

assigned

2817
2818
2819
2820
2821
2822

queued command

TO_VAL

:
:
:
3
3
:

wait

This routine is called to

complete

2812

! Functional Description :

! 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

if .OUTSSTD_BUF [.BUFSLOC, CMD_REF] nequ .REF_NUM

then

SEQ 201

Page 36
VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: LNEALE.AZTECICZRCHS5.816;3 (12)

!Is this the same ref_num

H 16

CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

3
:

2863
2864

be?in
RET_STATUS = OSE_CODE;

:
:
S

2866
2867
2868

end;
'+

2873
gg;g

! received if this flag gets set before the timer
expires.
5 Return a error code if the timer expires before the flag gets set.

2865

:
:
:
:

2869
2870
287
2872

2876

:
:

3
:
3

2877
2878
%ggg

2881

2884

'!Lloop
on a one micro second delay for the number of times
! requested by
the caller. After each delay see if the flag
! “rec_flQg'* has been set Bet. Return ‘Ret_status’’' and clear the
! coomand word to %20°'100000° to
indicate this command has been

incru i from 0 to .TO_VALUE do
begin
QE AY (C_US);

!Loop for time-out_value

!Do the one micro second delay

i Exit routine with the DUP interrupt service routines ‘‘ret_status'’ if

%gg%

; “rec_flg'"'

got set before the timer expires.

%ggz

:; .OUTSSTD_BUF [.BUFSLOC, REC_FLG] eqlu TRUE
en

!Is this command received yet

be?in
OUTSSTD_BUF [.BUFSLOC, CMD_WRD] = Z0°'100000°;

2887
2888

;

289

%gg;

if .RC25_ADDR [RCSA, ERR_BIT] then return RET_STATUS = PFE_CODE;

2899

BREAK;

:
:
:
3

:
H

2889
2890
2891
2892

return .RET_STATUS;
end;

gggg

!
! The port/controller timed out if the code reached

2906

)

53?8

Sg}}

2913

!Service any control C's

end;

2900
2901
2902
2903

538;

'Return the slot to the unused state

'Return the interrupt service status

!
! Check the SA register for posted port errors just in case the
; port does not interrupt the host when a port error occurs.

2893

gggg

VAX=11 Bliss=16 V3=555
Page 3
SPIDERSUSERS
: [NEALE .AZTECICZRCH5.816;3 (12)

!Indicate the error code
!Call decode to report the error

DECODE ();

:
3
3
:
3
:
3
3
3

SEQ 202

; code to the caller and exit the routine.

here.

Return an error

:; .RC25_ADDR [RCSA, ERR_BIT]

'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

else

end;
.GLOBL

LSDLY

.SBTTL

CTO.WAIT MODULE DECLARATIONS

116
CZRCHS

CZRCH RC25S DISK FORMATTER

REV A PATCH 00

MODULE DECLARATIONS

000000

004167

0000006

000004
000010
000014
000016
000020
000024
000026
000030

162706
016600
300
300
012703
3
005000
151300

000006
000020

000040
000046
000052
000054
000056

012767
004767
005002
000436
012701
001411
016700
001404
005066
005300
001374
005301
766
005713
1
012713

003001
175716

000064
000070
000072
000076
000100
000102
000104
000106
000110

000112

CTO.WAIT::
JSR
SUB
MOV
ASL
ASL
MOV
ADD
CLR
BISB

0000006

000032
020066 000022
000036 001405

CMP
BEQ

0000006

000001
0000006

000004

18:
28:
38:
48:
58:
68:

100000

000116 016700 0000006

000122
000124
000130
000136
000140
000144
000146
000150
000152
000156
000160

000164

27
016700
01

012700
14
104422
005202
020266
101737
016700

000021

8s:
9s:
108:

0000006

016016 000002

000170 100763

000172
000176
000202
000206

78:

012700
010067
062706
000207

000011
0000006
000006

(R3),.RO

RO,22(SP)
1%

#3001 ,RET.STATUS
PC,DECODE
R2
108
#1.R1
6$
LSDLY,RO
58
4(SP)
RO
4
R1
3s
(R3)
78
#-100000, (R3)

BR
MOV
MOV
B8PL
MOV
BR
TRAP
INC
C(MP
BLOS
MOV

128
RC25.ADDR,RO
Z(RO) 2(SP)

MOV

BMI
11$:
128:

R1,$SAVE3
#6.SP
20(SP) ,RO
RO
RO
#OUTSSTD.BUF
,R3
RO,R3

MOV
JSR
CLR
BR
MOV
BEQ
MOV
BEQ
CLR
DEC
BNE
DEC
BR
ST
BPL
MOV

MOV

0000006
000002 000002

000024

11=Jul=1983 16:06:4
7=Jul=1983 08:24: sa

MOV
MOV
ADD
RTS

SEO 203

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3 (12)
H

2806

; BUFSLOC,*

2861

: «,REF .NUM

2864

s
31

2865
2877

: =, $8TMP2

2879

: *,$8TMP1
: $STMP

: $SSTMP1

; $S$TMP2
H

2885
2888
2887

RET.STATUS,RO

*,RC$S.REG

2897

021 RO
22
R2
R2,24(SP)
28
RC25.ADDR,RO

2(R0), (SP}

1.R0
ao.ast.stArus
#6.SP
PC

: Routine Size:
68 words,
Routine Base:
ACSCODE + 2414
9 words
; Maximum stack depth per invecation:

2914

VAX=11 Bliss=16 V3=555

: !
: 1,T0.VALUE

2877

3
: *,RC$S.REG
:
|

2907

2806

2909
2911

REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

N T

J 16

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.
te that the sending
of this command 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
seconds and
1f
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

none

Implicit Inputs :
NSD_SLOT

TR T R

T R

PR TR PR TR TRTR

PRTR TR T T T

CZRCH5

SEQ 204
39
Page
VAX=11 Bliss=16 V3-555
(13)
.B16;3
JCZRCH5
SPIDERSUSERS
: [NEALE .AZTEC

This global storage gets
loaded by the routine
‘Get_nsd®'
and in it is stored the next send ring

Implicit Outputs :
none

Completion Codes :
RET_STATUS:

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.

A A AT A

T RS A

R T T N O

A A

T TR

descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

begin
local
REF _NUM

ABO”BUF$LOC,
TEMP;

!Stores unique cmd ref number

'Stores out$standing cmd buffer location

'A place to put the read IP register data

i Before we load up the command packet up with all this good information get
; thenext send descriptor slot and a unicue command reference number.

GET_NSD ();

QEF_NUH = GET_CMDSREF ();

1Get the next send desc slot

!Get a unique command ref num

g UQ Port command envelope Header field definition
SND_ENVELOPE

[.NSD_SLOT, MSG_LENGTH] = SZ_ABT;

SND_ENVELOPE

[.NSD_SLOT, MSG_TYPE] = 0;

SND”ENVELOPE

[.NSD”SLOT, CREDITS] = ONE;

Load the length of envelope

'Load credits

!Load message type

K 16

CZRCHS
REV A PATCH 00

CZRCH RC2S5 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

gg;%

§N0_ENVELOPE C.NSD_SLOT, CONN_ID] = DUP;

:
;

%g;g
2976

g DUP command envelope field definition
§ND_ENVELOPE

«NSD_SLOT, CMD_LREF] = .REF_NUM;

2978

SND_ENVELOPE

[.NSD_SLOT, UN_CUSED] = ZERO;

:
3

2977
2979

2980
2981
533%

SND_ENVELOPE
SND_ENVELOPE

SND_ENVELOPE

C.NSD_SLOT, UN_HUSED] = ZERO;

!Unused hi order

SND_ENVELOPE L.NSD_SLOT, RSVD] = ZERO;
§ND-ENVELOPE C.NSD_SLOT, MODIFIER] = ZERO;

'Unused low order
!Load opcod

'Reserved field

;

2984

i Call

;

3835

ABO_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

:
;

%ggz
2995

if .ABO_BUFSLOC eqlu OBF_CODE then DECODE ();
'

gggg

SEND_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;

ggg?

g Read the IP register to stimulate port polling

;

gggg

TEMP = .RC25_ADDR [RCIP, RC_ALL);

gggg

g Time out the port/controller processing

the command.

3006

i The

ability to

3888

; register and for the command not timing out.

3
3
:
:
3

2985
2986
2987
2988
gggg

%389

3007

!
!
!
!
;

the

!Define referance number

!Hi order ref number

C.NSD_SLOT, OPTODE] = OP_ABT;

load out$standing 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

; Set the ownership bit to 1 giving this slot to the port/controller

first

! respond to

test

tests the connections

this command without

any errors in the SA

3010

i The second tests the DUP server for good status.

3018

! were detected.

:
3
:
3
3
:
2

3011
3012
3013
3014
3015
3016
3017

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.
e time
out routine will Loop on delaying and checking 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

if CTO_WAIT (3000, .REF_NUM, .ABO_BUFSLOC) then DECODE ();

3023

3025

! at

3024

ggsg

!
!
!
!
!
!
!

gg%}

3028

VAX=11 Bliss=16 V3=555
Page 4
SPIDERSUSERS
: LNEALE.AZTECICZRCHS5.816;3 (13)

!Load connection ID

L.NSD_SLOT, CMD_HREF] = ZERO;

! Get

the return envelope

this commands

address

buffer location

from the

!Is return an error

out$std_buf

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

oo
..

wies

MODULE DECLARATIONS

11=Jul=1
7=Jul=1

CZRCH RC25 DISK FORMATTER

o=
QO

CZRCH5
REV A PATCH 00

VO
CoCo
W

L16

SEO 206

SPIDERSUSERS : ENEALE.AZTECJCZRCH5.816.3(13)
VAX=11 Bliss=16 V3=555

2 Now test for good status

:g .RET_ENSAD [STATUS] nequ ZERO
\

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;

000000G
175312
175454

0000006
000054

.SBTTL
ABORT:: JSR
ST
JSR
JSR
MOV

MOV
MOV

000000G

JSR

000014 0000006

MOV

0000026

MoV
ADD

000001

000120

00
010216

175252

MOVB
MOV
CLR
CLR
CLR
MOovB8
CLRB
CLR
MOV
JSR

002001

gzg

175416

MOV

1%:

0000006

SSRA=X
N0

JSR

OSND ENVELOPE#Z il
RO.R1

#2,1(R1)
R2,SND.ENVELOPE+4(RO)
SND .ENVELOPE+6(R0)
SND.ENVELOPE+10(R0O)
SND.ENVELOPE+12(R0)
#6,SND .ENVELOPE+14(R0O)
SND ENVELOPE’1S(R0)
SND.ENVELOPE+16(R0)
R2,(SP)
PC,.LOAD.OUTSSTD.BUF

3
s REF .NUM,*
]
:
:
:
:
|
s REF.NUM,*

?}#2001

: ABO.BUFSLOC,*

ll.(Rl)

RO,.R1

PC.DECODE

; *,AB0.BUFSLOC

MOV

aacz ADDR 4&(SP)

; *,RC$S.REG

MOV

05670 (SP)

JSR

PC.CTO.WAIT

MOV
MOV
CMP

#100000, Z(RO)
4(SP) .RO

,=(5P)
m=(SP)
R

JSR

PC,.DECODE

:g{

: RCSS.REG,TEMP

: REF.NUM,*
: ABO.BUF$LOC,

(SP)+,(SP)+

ROR

BCC
2%:

BLSMUL

m‘.SND. ENVELOPE (R0)

RO
SEND.RING,RO

MOV

175334

ASL
ADD

ASL

000004

177356

H
H
s *,REF .NUM

NSD. SLOT,RO

BIS

005670

NSD.SLOT ,=(SP)
054.-(SP}

MOV

100000 000002

000000G 000004

NNHEOON

;‘
-t
—

3333888eccses

0000006

2 gssssss

MOVB

000002 000001
0000046
000006G
0000106
000012G
000006 000014G
0000156
0000166

ABORT MODULE DECLARATIONS
R1,$SAVE2
-(SP)
PC,GET.NSD
PC.GET.CMDSREF
RO,R2

R1.RO

: ABO.BUFSLOC,*

2915

B
S
CZRCH

REV
A PATCH 00

RO
OUTSSTD.BUF +2(R0) ,RET.ENSAD
?273370.BUF +2(R0) ,RO
#31,R0

000031
0000006

2g.RET.STATUS

3s:

0000006
000006
95 words,

4%:

3040

RET.STATUS,RO

ACSCODE + 2624
Routine Base:
9 words

; Maximum stack depth per invocation:

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

000002G 0000006
0000026
00016

: Routine Size:

AX=11 Bliss=16 V3-555

227
SEO

SPIDERSUSERS : [NEALE.AZTECJCZRCHS.B16 3(13)

VAX=

3033

3035

2953

2915

SEQ 208

CZRCHS
CZRCH RC2S DISK FORMATTER
REV A PATCH 00 MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

'Gets DUP server status

;

3825

3043

global routine GET_DUST_STATUS =

!¢+

3044

! Functional Description :

3
:
3

3046
3047
3048

!
!
!

3
3
:
3
:

3045

3049
ggg?

!
;

This

command allows

fixed timeout interval of 3 seconds.
host should break the connection.

305¢
3057
3058

!
!
!

3
:

3059
;82?

the host program to interrogate the DUP server

to determine its caracteristics, its state and the state of the
program currently running (if any). It is legal in either idle or
active state and does not affect the state of server. It has a

! Formal Parameters :
none
!
)
!

3055

:
:
$

3052
3053
3056

VAX=11 Bliss=16 V3=555
Page &
SPIDERSUSERS
: (NEALE.AZTECICZRCH5.816;3 (14)

! Implicit Inputs :

NSD_SLOT

!
;

If the response times out, the

This global storage gets loaded by the routine
‘Get_nsd' and in it is stored the next send rin
descriptor slot where the port/controller shoul
be polling on and the
command packet.

place

to put this commands

3
3
3
:

3062
3063
3064
3065

! Implicit Outputs :
none
!
!
! Completion Codes :

3
3
H
3
:

3069
3070
3071
3072
3073

' Side Effects :
!=--

3075

REF _NUM

!Stores unique c¢cmd ref number

TEMP;

'A place to put the IP read data

3
3

3066
ggg;

3074

3076

3077

!
5

RET_STATUS:

)

Return status passes back to the caliing routine
the status of the just issued command.

begin
tocal

GDS”BUF$LOC,

iStores out$standing cmd buffer location

:
2

3080
ggg}

! Before we load up the command packet up with all this good information get
g the next send descriptor slot and a unique command reference number.

3
:

3083
gggg

GET_NSD ();
QEF_NUH = GET_CMDSREF ();

gggg

; UQ Port command envelope Header field definition

3
:
:
:

3088
3089
3090
ggg;

SND_ENVELOPE C.NSD_SLOT, MSG_LENGTH] = S7_GDS;
!Load the envelope size
SND_ENVELOPE [.NSD_SLOT, CREDITS] = ONE;
'Load the credit size
SND_ENVELOPE L[.NSD_SLOT, MSG_TYPE] = 0;
'Load the message type (Sequential)
SND_ENVELOPE [.NSD_SLOT, CONR_ID] = DUP;
'Load the connection ID

gggz

; DUP generic command envelope field definition

3
2

3095
3096
3097

SND_ENVELOPE [.NSD_SLOT, CMD_LREF] = .REF_NUM;
!Load command reference number
SND_ENVELOPE [.NSD_SLOT, CMD_HREF] = ZERO;
!Command reference low order
SND_ENVELOPE [.NSDZSLOT, UN_CUSED] = ZERO; 'Low order unused

!Get the next send desc slot
'Get a unique command ref num

SND_ENVELOPE

[.NSD_SLOT, UN_HUSED] = ZERO;

!Hi order unused

SND_ENVELOPE

[.NSD_SLOT, RSVD] = SERO

!Reserved field

099

?ND_ENVELOPE

«NSD_SLOT, MODIFIER] = 2ERO;

GDS_BUFSLOC = LOAD_OUTSSTD_BUF (.RES_NUM);

!Load opcode

iLoad modifier field

!Load the command

if .GDS_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_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED;
5 Read the IP register to stimulate port polling
[EHP = .RC25_ADDR [RCIP, RC_ALLJ;
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.
If
bad status is sent back then an error code is returned
to the calling routine where the routine ‘‘decode’’ will
decode and take the appropriate recovery. The time
out routine will loop on delaying and checking the hi
bit of the first word in the out$std_buf for a true.
When true signals us that the interrupt service routine

b
D
D
D

has received the endpacket
were detected.

D
D D

= OP_GDS;

where this command is stored. Later we can look at
this location to see if the interrupt service routine
: has received and process it.

and

no connection errors

if CTO_WAIT (3500, .REF_NUM, .GDS_BUFSLOC) then DECODE ();

) —d

éer_ensAo = ,0UT$STD_BUF [.GDS_BUFSLOC, ENV_ADR];

D —d

d D ek

—

!Is return an error

Get the return envelope address from the out$std_buf
at this commands buffer location and check the packet

D ed

[.NSD_SLOT, OPTODE]

for good status error and die if bad status was returned

!Get the ret env adr

g Now test for good status
:; .RET_ENSAD [STATUS] nequ ZERO
en

return RET_STATUS = RSE_CODE

SEQ 209

VAX=11 Bliss=16 V3=555
Page &4
SPIDERSUSERS
: NEALE .AZTECICZRCH5.816;3 (14)

Call
the load out$standing command buffer routine
and load this command into the buffer. The return
from this routine will point us to the buffer location

b D

WNWANNIN
NN
NDNINININ) = b b b cd b wd b b b

SND_ENVELOPE

VIS
BB EBBBSSDWWWWW

e
e
E
T
e
T T R
T T
R I
R

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

SEIRIRGR28

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

3098

N U LA N L U N U N O U N U U N U N N U N U NN N N —
N U
N
N N N ND N) —d
N N) N) NN
N N NN N
NN N AN N N W W N W NN
o
D ) - o
b D ) D D
D ) D D ) ) - b - D ) b b

e PR

DRTR

L T L TR LR L

P L TR LR LR TR

TR LALA ALR LA

LRLR 1

CZRCHS
REV A PATCH 00

!Test the status

'Return a 'Response status err'' code

E
CZRCHS
REV A PATCH 00

11=Jul=1983 16:06:44

CZRCH RC25 DISK FORMATTER

7=Jul=1983 08:24:58

MODULE DECLARATIONS
else

return .RET_STATUS;

VAX=11 Bliss=16 V3=555

seo 210

SPIDERSUSERS:[NEALE.AZTECICZRCHS. 816 P00

!This ret_status is good or bad

end;

.$BTTL GET.DUST.STATUS MODULE DECLARATIONS
GET.DUST. STATUS

0000006

175014
175156

3041

JSR
JSR

PC, GE .NSD
PC,GET.CMDSREF

:
.

3083
3084

MOV

=(sP)

#SND.ENVELOPE+2,R1

3089

MOVB
MOVB

#1.(R1)
#2.1(R1)

:
.

3090
3091

CLR
CLR
CLR
MOVB
CLRB
CLR

SND. ENVELOPE
+6 (R0)
SND.ENVELOPE+10(R0)
SND.ENVELOPE
+12 (R0)
#1,SND.ENVELOPE+14(R0)
SND.ENVELOPE+15(R0)
SND.ENVELOPE
+16 (R0)

:
:
:
:
:
:

3096
3097
3098
3099
3100
3101

MOV

0000006

MOV

011SND. ENVELOPE (R0)

ADD

RO,R1

MOV
JSR

000014 0000006
0000026
000001
000002

0000046

MOV .

000001

MOV

0000066
0000106
0000126
000001 0000146
0000156
0000166

MOV

174754

JSR
MOV

002001
175120

0000006

g::
18:

0000006

RO.R2

nsiSLOT,=(SP)

R2.SND.ENVELOPE
+4 (R0)

R2, (SP)

PC,LOAD.OUTSSTD.BUF
RO,R1

§1.02001

: *,RC$S.REG

3121

#6654 (SP)
R2,=(SP)
R1.=(SP)

:
* REF.NUM,*
: GDS.BUF$LOC, *

3140

R1,RO

: GDS.BUFSLOC,*

3147

OUTSSTD.BUF +2(R0) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO
16(R0)

3152

#31,R0

3154

SEND.RING,RO

MOV

4(SP) ,RO

177060

JSR

175036

28:

MOV
ASL
ASL

0000026 0000006
0000026
000016

MOV
MOV
ST

000031

MoV

: *,GDS.BUFSLOC

3110

aRC25.ADDR,4 (SP)

NSD.SLOT,RO

000004

CMP
ROR
BCC
JSR

+ REF.NUM,*

3095

3117

RO
RO

MOV
MOV
MOV

+ REF.NUM,*

ASL
ASL

#100000, 2 (RO)

006654

3088

3112

PC,DECODE

MOV

: GDS.BUFSLOC,*

BIS

0000006 000004

: #*,REF .NUM

BLSMUL

JSR

MOV
ADD

100000 000002

35388843

SAVEZ
(
S

0000006
000054

28823282

§§§

PC.CTO.WAIT

: RCSS.REG,TEMP

(SP)+,(SP)+

2$
PC,DECODE
RO
RO

CZRCHS

o
11=Jul=1983 16:06:4
7=Jul=1983 08:24: 58

CZRCH RC2S DISK FORMATTER

REV A PATCH 00 MODULE DECLARATIONS
000256

010067

000000G

000264

016700

000000G

000262

000270

000274

000402

062706
000207

000006

MOV

3s:

4$:

RO,RET.STATUS

3072

ADD

#6,SP

3041

MOV
RTS

RET.STATUS,RO
PC

: Routine Size: 95 words,
Routine Base: ACSCODE + 3122
: Maximum stack depth per invocation: 9 words

3159

SEO an
VAX=11 Bliss=16 V3=555
46
SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3(14)

SER YRGS 28 BRI R A RIRV LB IV ANANIIBEIESRREGR

global routine EX_SUP_PROG =

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
len?th (in bytes) of a buffer
containing the
program
header
and
1initial 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 is none of the host business. This commmand is only legal when
the server is in the idle state and return of a successful end packet
puts the server into to active state.

- D D -

NSD_SLOT

e
) b
— o

This global storage gets loaded by the routine
‘Get_nsd' and in it is stored the next send rina

descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

Implicit Outputs :
AZFMTR:

DMSA:
OVSA:
HDSA:

) b

UU N N U U U N N N N U

N WA O

b =D od b b o

b b -

D -

Formal Parameters :

d -

The time out interval for this command is 30 seconds.

Implicit Inputs :

3199
3%8?

'Executes supplied program

! Functional Description :
This command causes

none

Completion Codes :

RET_STATUS:

T
R T R G
TR
I LA A I I
MR

3202
3203
3204
3205

3206
3207
;ggg

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.

3210

;
begin
local

REF _NUM,
ESP_BUFSLOC,
TEMP;

!Stores unique 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

GET_NSD ();

3215

QEF_NUH = GET_CMDSREF ();

SEQ 212

VAX=11 Bliss=16 V3-555
Page 47
SPIDERSUSERS
: [NEALE .AZTECICZRCH5.816:3 (15)

!00

- -

00000000 NN NNNNNNNNOOON

- -

ooonon

- - -

N N N N N NN N N N N N N N N NN NN N N W W W

g:g?

11=Jul=1983 16:06:44
7=Jul=1983 08:264:58

PR PRTR

T L L L L

TR TR TR T A LR DA DRLA L

AL L 1

CZRCHS
CZRCH RC25 DISK FORMATTER
REV A PATCH 00 MODULE DECLARATIONS

!Get the next send desc slot

!Get a unique command ref num

H
CZRC

REV

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:06:44

A PATCH 00 MODULE DECLARATIONS

7=Jul=1983 08:24:58

gg}g

' UQ Port command envelope Header field definition

3219

SND ENVELOPE

L.NSD_SLOT, MSG LENGTHJ SZ_ ESP-

gggg

SND “ENVELOPE

C[.NSD_SLOT, CONA_ID] = DUP;

3220
3221

SND_ENVELOPE [.NSDZSLOT, CREDITS ONE.
SND_ENVELOPE E.NSD_SLOT, MSG TVPEJ 0;

3226

SND _ENVELOPE L[.NSD_SLOT, CMD_LREF] = .REF_NUM;

3228
3229
3230
3231
ggg%

SND_ENVELOPE [.NSD_SLOT, UN_CUSED] = ZERO.
SND_ENVELOPE [.NSD_SLOT, UNHUSEDJ = ZERD.
SND_ENVELOPE [.NSD_SLOT, OPtODEJ _ESP;
SND_
“ENVELOPE [. NSD SLOT, RSVD]
= ZERO;
SND ENVELOPE Ee NSD SLOT, HODIFIERJ ZERO:

'Load the message length

'Load command ref number

'Zero Wi order word of cmd ref

iNot used in DUP implimentation
'Not used in DUP implimentation
!Load the command op-code
'Not used

g%gg

: Command specfic command envelope field definition

gggg

‘ Byte count of initial transfer (from bytes 0-3 of the program header).

3238
ggzg

SND ENVELOPE L.NSD_SLOT, BLO_CNT] = .AZFMTR L[WRDO]; !Byte count low word
SND ENVELOPE [.NSD_SLOT, BHI_CNT] = AZFMTR [WRD1]); !Byte count high word

3241
%%2%

i Buffer descriptor definition for initial load. First
' byte of this buffer is byte 0 of program header.

3244

SND ENVELOPE LC.NSD_SLOT, BPA_LO] = HDSA;

'Low unibus adrs <0-15>

3247
3248
3249
3250
3251
gggg

SND_ENVELOPE [.NSD_SLOT, RSV]TM= ZERO;
SND_ENVELOPE L.NSD_SLOT, UBA_CHAN] = ZERO;
SND_ENVELOPE [.NSD_SLOT, RSVD] = ZERO:
SND_ENVELOPE [.NSD_SLOT, RSV1] = ZERO;
SND ENVELOPE [.NSD SLOT, RSV2] = ZERO;
SND
“ENVELOPE [.NSD”SLOT, RSV3) = ZERO;

'Reserved field
'Unibus adaptor channel number
!These next four words are not

3254
3255
gggg

! 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
; and just prefix them with a $ for unigueness.

g%gg

g The overlay area immediately follows the initial load image in the program image.

3260

SND ENVELOPE L.NSD_SLOT, $BPA_LO]
= .OVSA°

'Low unibus adrs <0-15>

gggg

SND“ENVELOPE

3245
3246

3261
3262
3263
3264
3265
3266
3267
3270
3271
3272
3273

SND_ENVELOPE [.NSD_SLOT. BPAHI] = ZERO;
SND_ENVELOPE [.NSD_SLOT, QBUS_EXT] = ZERO;

SND_ENVELOPE [.NSD”SLOT, $BPA"HI) = ZERO;
SND_ENVELOPE [.NSD_SLOT, $QBUS_EXT] = ZERO;
SND_ENVELOPE [.NSD”
SLOY. $RSV]TM= ZERO;
SND_ENVELOPE [.NSD_SLOT, SUBA CHAN] = ZERPO;
SND_ENVELOPE E.NSDZSLOT, SRSVOJ = ZERO;
SND_ENVELOPE
[.NSD_SLOT, SRSV1] = ZERO;
SND_ENVELOPE E.NSD”SLOT, SRSV%}
= ZERO;
!
'
!
!

[.NSDZSLOT, SRSV

ZERO:

'Unibus adrs bits <16=17>
iQ _bus extention adrs

'used in the DUP implementation
'
!

'Unibus adrs bits <16=17>
1Q_bus extention adrs
'Reserved field
'Unibus adaptor channel number
iThese next four words are not
'used in the DUP implementation
'

Call
the load out$standing 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 1is stored. Later we can look at

SEO 213

SPIDERSUSERS [NEALE.AZTECICZRCHS.B16; 3 (15)

'Define the conection ID

i DUP generic command envelope field definition

SND_ENVELOPE [.NSD_SLOT. CMD_HREFJ = ZERO;

VAX=11 Bliss=16 V3=555

'Load the credits field
'Define the msg type ‘Sequential’

gggg

3227

CZRCHS
REV A PATCH 00
3

3274

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS
! this

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

SEQ 214
Page 49

VAX=11 Bliss=16 V3=555
SPIDERSUSERS
: [NEALE.AZTEC JCZRCH5.B16:3 (15)

location to see if the interrupt service routine

gg;g

5 has received and process it.

;
:

g%;;
gsgg
3281

ésp_eursLoc = LOAD_OUTSSTD_BUF (.REF_NUM); !Load the command
it .ESP_BUFSLOC eqlu OBF_CODE then DECODE ();
'Error if buffer is full
'

;

gggg
gggg

SEND_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;
g Read the IP register to stimulate port polling

;

gggg

TEMP = .RC25_ADDR [RCIP, RC_ALLJ;

;
:

ggg?
3292

% Time out the port/controller processing the command.
i The first test tests the connections ability to

3296

i The second tests the DUP server for good status.

3
3
:

3299
3300
3301

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

;

3
3

:
:

:
:
:

§5§§

3293
gggg

3297
3298

3302
3303
3304

5 Set the ownership bit to 1 giving this slot to the port/controller

! 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

! When true signals us that the interrupt service routine
! has received the endpacket and no connection errors
! were detected.

gggg

if CTO_WAIT (3500, .REF_NUM, .ESP_BUFSLOC) then DECODE ();

;

3309

;g}%

;

!Is return an error

3
3

3310
3311

;

gg}g

éET_ENSAD = ,OUTSSTD_BUF [.ESP_BUFSLOC, ENV_ADR];

3316

i Now test for good status

gg}g

;; .RET_ENSAD [STATUS] nequ ZERO

Test the status

;gs;

return RET_STATUS = RSE_CODE

'Return a ‘Response status err'’ code

g;gz

return .RET_STATUS;

'This ret_status is good or bad

3325

end;

004167

C00000G

000000

! 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

else

.SBTTL
EX.SUP.PROG::

JSR

!Get the ret env adr

EX.SUP.PROG MODULE DECLARATIONS

R1,$SAVE?2

3160

J
CZRCHS

REV A PATCH 00

1
16:06: 44

11=Jul=1983
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816.3(15)

=(SP)

PC,GET.NSD

174516
174660

:8.GET.CMDSREF
R2
NSD.SLOT ,=(SP)

0000006
000054
0000006
000050 0000006
0000026

*,REF .NUM

osa.-(SP)

3214
3215

3219

BLSMUL

osbSND. ENVELOPE (R0)

#SND, ENVELOPE+2,R1
RO,R1
", (n1)

000001
000002 000001
0000046

#2.1(R1
R2. SND.ENVELOPE*L(RO)

E
+6 (R0)
SND. ENVELOP
SND. ENVELOPE+10(R0)
SND. ENVELOPE +12(R0)
#2,SND.ENVELOPE+14
(RO)
(RO)
SND. ENVELOPE+15
SND. ENVELOPE
+16 (R0)
(R0)
+20 PE
AZFMTR, SND.ENVELO

0000126
000002 0000146
0000156
0000166
000000G 0000206
0000026 0000226
000000G 0000246
0000266

REF .NUM, *

AZFMTR+2, SND.ENVELOPE
+22 (RO)
#HDSA, SND.ENVELOPE
+24 (RO)

asno ENVELOPE+26,R1

)
(Ri
1(R1)

000001
0000306

0000002 0000406

SND . ENVELOPE+30(R0)
SND . ENVELOPE+32(R0)
SND. ENVELOPE+34
(R0)
SND. ENVELOPE
+36 (R0)
+40 (R0)
OVSA, SND.ENVELOPE

000001

(R1)
1(R1)

:BNR1ENVELOPE042.R1

(RO)
+44 PE
SND .ENVELO
SND.ENVELOPE +46(R0)
SND.ENVELOPE+50(R0)
SND.ENVELOPE+52(RO0)
R2, (SP)

046G
0000506

0000526

PC,LOAD.OUTSSTD.BUF
RO.R1
R1,#2001
1$

174336

002001
174502
0000006

VAX=11 Bliss=16 V3=555

SEO 215
50

1$:

REF .NUM, +

* ESP.BUFSLOC

ESP.BUFSLOC,*

PC,DECODE

3284

ggb.SLOT,RO
RO

SEND.RING,RO

0000006
100000 000002
0000006 000004
000004
C06654

3RC2§ QBDR4 (SP)

176442

PC.CTO.WAIT

#100000, 2 (RO)
06654 (SP)
2.-(SP)
a1=(SP)

(SP)+,(SP)+

* ,RC$S.REG
RC$S.REG,TEMP

REF .NUM

ESP.BUfiLoc «

3288
3307

K
CZRCHS

REV A PATCH 00

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

VAX=11 BlLiss=16 V3=555

SPIDERSUS%RS:[NEALE.AZYECJCZRCHS.BIé:

RO
2%

174420

2%:

PC.DECODE

R1,RO

; ESP.BUFSLOC,*

OUTSSTD.BUF
+2(R0) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO

3319

000031
0000006

#31,R0

3321

000000G
000006

RET.STATUS,RO
#6,5P

000002G 000000G
0000026
000016

: Routine Size:
s Maximum stack

135 words

gg(RO)

22.RET.STATUS

3s:
4$:
Routine Base:

depth per %nvocation:

9 words

ACSCODE + 3420

3203
3160

REV A PATCH 00

MODULE DECLARATIONS

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

)

global routine EX_LOC_PROG =

!Executes local program

command is specified in the get dust response

Formal Parameters :
none

Implicit Inputs :
NSD_SLOT

T A TRTR

This global storage gets loaded by the routine
‘Get_nsd' and in it is stored the next send rin
descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

Implicit Outputs :
none

Completion Codes :

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.

AR A I

I I T T R R TR TR

ETTETTE

begin
local

REF _NUM,

!Stores unique cmd ref number

ELP_BUFSLOC,
TEMP;

!Stores out standing cmd buffer location
'A place to store the read IP register data

Before we load up the command packet up with all this good information get
the next send descriptor slot and a unique command reference number.

GET_NSD ();

IGet the next send desc slot

REF_NUM = GET_CMDSREF ();

!Get a unique command ref num

g UQ Port command envelope Header field definition
SND_ENVELOPE

[.NSD_SLOT, MSG_LENGTH] = SZ_ELP;

§ND-ENVELOPE

.NSDZSLOT, CONR_ID]

SND”ENVELOPE
SND_ENVELOPE

L[.NSDZSLOT, CREPITS] = ONE;
L.NSD_SLOT, MSG TVPSJ = 0;

= DUP;

'Load the message size

'Load the credit size
'Define the msg typ ‘Sequential’

'Define the connectio ID

g DUP generic command envelope field definition

SND_ENVELOPE [.NSD_SLOT, CMD_LREF]

SND”ENVELOPE [.NSDZSLOT, CMD_HREF]

= .REF_NUM;

= ZERO?

Page

SPIDERSUSERS
: [NEALE .AZTECJCZRCH5.B16:3 (16)

causes the controller to search its local
media for the named program, load and execute it. Receipt of a
successful response by the host means that the program is executing
and the server is in the active state. The time out value for this

e
e
e

VAX=11 Bliss=16 V3=555

RET_STATUS:

e e s e

7=Jul=1983 08:24:58

! Functional Description :
Receipt of this command

PR PR PRTR

PRLR

LR LALA

TR TRT T 1 (TR

IATETE

CZRCHS

SEQ 217

'Load the command ref number

'lero the Hi order cmd ref num

CZRCHS

REV A PATCH 00

0
11=Jul=1983 16:06:44
7=Jul=1983 08::24:58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

:
:

3384
3385

SND_ENVELOPE [.NSD_SLOT, UN_LUSED] = ZERO;
SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO;

:
:

3387
gggg

SND_ENVELOPE L.NSD_SLOT, RSVD] = ZERO;
§ND_ENVELOPE C.NSD_SLOT, MODIFIER] = ZERO;

;

g%g?

E Command specfic command envelope field definition

3392

SND_ENVELOPE [.NSD_SLOT, PN_0] = ZERO;

iProgram name word 0

gggg

§ND_ENVELOPE C.NSD_SLOT, PN_2] = ZERO;

!Program name word 2

3395

i Cail

3398

! from this routine will point us to the buffer location

%283

5 has received and process it.

:
:

:
;

3386

3393

3397

3399
3400

SND_ENVELOPE E.NSD_SLOT. OPTODE) = OP_ELP;

SND_ENVELOPE L[.NSD_SLOT, PN_1] = ZERO;

! and

!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 1

the load out$Sstanding command buffer routine

load

this command

into

The return

the buffer.

! where this command is stored. Later we can look at
! this Llocation to see if the interrupt service routine

gzgz
%282
3407

ELP_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM); !'Load the command
if .ELP_BUFSLOC eqlu OBF_CODE then DECODE ();
‘Error if buffer is full
'

;

;2}(1)

§Eno,nmc C.NSD_SLOT, OWN_BIT] = PORT_OWNED;

gz}g

% Read the IP register to stimulate port polling

314

TEMP = .RC25_ADDR [RCIP, RC_ALLI;

gz}g

% Time

out the

port/controller processing

the command.

;

3,18

i The

first

test

ability to

gzg?

; register and for the command not timing out.

gzgg

3419

3422

3423

3425

3
3
3
3

3427
3428
3429
3430

3426

; Set the ownership bit to 1 giving this slot to the port/controller

! respond to

i The

tests the connections

this command without

any errors in the SA

second tests the DUP server for good status.

! to the calling routine where the routine ‘‘decode’’ will
! out
!
!
!
!

and take the

appropriate recovery.

The

time

routine will Lloop 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.

gfig{

if CTO_WAIT (3000, .REF_NUM, .ELP_BUFSLOC) then DECODE ();

3
3
2

3436
3437
gzgg

3435

;

3440

RET_ENSAD = .QUTSSTD_BUF [.ELP_BUFSLOC, ENV_ADR];

! bad status is sent back then an error code is returned
! decode

SEQ 218

Page 5
VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE.AZTEC JCZRCH5.B16;3 (16)

!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

!Get the ret env adr

N1
CZRCHS

REV A PATCH 00

58
g2

11=Jul=19 83 16:
7=Jul=1983 08:

CZRCH_RC25 DISK FORMATTER

MODULE DECLARATIONS

SEO 219

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3 (16)

VAX=11 Bliss=16 V3=555

'Test the status

if .RET_ENSAD [STATUS] nequ ZERO

then
.
return RET_STATUS = RSE_CODE
else

'Return a 'Response status err'' code
'This ret_status is good or bad

return .RET_STATUS;

end;

0000006

SBTTL
EX.LOC.PROG::
JSR
TST
JSR
JSR

174100
174242

MOV

0000006
000054
0000006
000060 0000006
0000026

MOV
MOV
JSR
MOV
MOV
ADD

EX.LOC.PROG MODULE DECLARATIONS
R1,$SAVE2
~(SP)

PC,GET.NSD

zC.GET.CMDSREF
R2
nso SLOT,=(SP)

4,-(SP)

#SND.ENVELOPE+2,R1
RO,R1

#1.(R1)
#2.1(R1)

174024

JSR
MOV

PC.LOAD.OUTSSTD.BUF
RO.R1

0000006
100000 000002
0000006 000004
000004
005670
176130

R2.SND. ENVELOPE*A(RO)
E
+6 (RC)
SND. ENVELOP
SND. ENVELOPE+10(R0)

REF .NUM, *

SND. ENVELOPE+12
(R0)

#3,SND.ENVELOPE+14
(RO)

15
SND. ENVELOPE+(RO)
E
+16 (R0)
SND. ENVELOP
E
+20 (R0)
SND . ENVELOP
SND . ENVELOPE
+22 (R0)
E
+24 (R0)
SND . ENVELOP

MOV

R2, (SP)

CMP

?1#2001
$

: ELP.BUFSLOC,*

ggb.SLOT,RO

3410

anczs ADDR, 4 (SP)

: *,RC$S.REG

3414

#5670 (SP)
R2,=(SP)

:
* REF.NUM,*
: ELP.BUFS$LOC,+

3433

BNE

18:

3375

PC BL SMUL

MOvVB
MOvB
MOV
CLR
CLR
CLR
MovB
CLRB
CLR
CLR
CLR
CLR

1764170
000000G

* ,REF .NUM

3370
33N

#60, SND. ENVELOPE (R0)

000001
000002 000001
0000046
0000066
0000106
0000126
000003 0000146
0000156
0000156
0000226
0000226
0000246

002001

3327

:
LA TR TR 1Y

b
&

g Now test for good status

JSR
MOV
ASL
ASL

ADD
BIS
MOV
MOV
MOV
MOV
MOV

JSR

CMP

ROR

PC,DECODE

REF .NUM,*

«,ELP.BUFSLOC

RO
SEND.RING,RO

#100000, 2 (R0)
4(SP) .RO

R1.=(SP)

PC.CTO.WAIT
(SP)+,(SP)+
RO

: RC$S.REG, TEMP

CZRCHS

CZRCH_RC25 DISK FORMATTER

11=Jul=1983 16:06:4

REV A PATCH 00 MODULE DECLARATIONS
000232
000234

103002
004767

000242
000244
000246

006300
006300
016067

000260
000264

005760
001405

000016

000272

010067

0000006

000240 010100

174106

2s:

000002G 0000006

000254 016000 0000026

000266

012700

000276

000402

000304

062706

000300
000310

016700
000207

0000006

000006

7=Jul=1983 08:24: 8

8C(C
JSR

2%
PC.DECODE

ASL
ASL
MoV

RO
RO
OUTSSTD.BUF +2(R0) ,RET.ENSAD

MoV

QUTSSTD.BUF +2(R0) ,RO

3445

MOV

#31,R0

3447

3359

ADD

#6,SP

3327

MOV
RTS

16(R0)
3$

RO,RET.STATUS

RET.STATUS,RO
PC

: Routine Size: 101 words,
Routine Base: ACSCODE + 4036
Haxinun stack depth per invocation: 9 words

3452

SPIDERSUSERS [NEALE.AZTECICZRCHS. 816.3(16)55

3440

MOV

4$:

SEO 220

: ELP.BUFSLOC,*

TST
BEQ

3s:

VAX=11 Bliss=16 V3=555

R1,R0

MoV

000031

SEQ 221

Page

56
VAX=11 Bliss=16 V3=555
(17)
;3
S5.B16
JCZRCH
SPIDERSUSERS
: [NEALE .AZTEC

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

global routine SEND_DATA =

'Performs host==>port communications

!00

! Functional Description :
These commands are wused to communicate between the initiating host
program and
the remote program. Both send and receive commands
specify
a host buffer descrigtor 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 .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,

outstandin

send data and receive data commands may be lost. In the event tha
the specified timeout interval is exceeded, the host program should
issue a get dust staus command to see it the remote pro?raa 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
haviqa 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 in it is stored the next send rin
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.

AR R I R R

R R

TRy

TR T

TR PR R LA TR

A TR TR

PRTR

DAL AL L T

CZRCHS
REV A PATCH 00

Side Effects :
none

begin
local

REF _NUM

!Stores unigue cmd ref number

TEMP;

'A place to put read

SND BUF‘LOC.

i Before

'Stores out$standing cmd buffer location
IP register data

we load up the command packet up with all this good information

! get the next send descriptor slot and a unique command reference number.

D
CZRCHS

11=Jul=19 83 1 6:06:44
7=Jul=1983 0 :24:

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

VAX=11 Bliss=16V3=555

GE!
NSD ();

!Get the next send desc slot

REF NUM = GET_CMDSREF ();

'Get a unique command ref num

i UO Port command envelope Header field definition
SND -ENVELOPE

SND_ENVELOPE
SND_ENVELOPE

'Load the nessage size
iLoad the credit size
iDefine the message typ 'Sequential
'Define the connection I

L[.NSD_SLOT, MSG LENGTHJ = S§I_ SED

[.NSD_SLOT, CREDITS]
= ONE.
[.NSD_SLOT, MSG TYPE

SNDZENVELOPE [.NSDZSLOT, CONR_I

oufi

' DUP generic command envelope field definition

suo ENVELOPE C.

CMD_LREF) = .REF_NUM;

SND_ENVELOPE E.NSD_SLOT, CMD_HREF] = ZERO:

SND_ENVELOPE

[.NSD-SLOT. UN_CUSED] = ZERO:

SND_ENVELOPE [.NSD_SLOT, UN_HUSED] = ZERO:
SND_ENVELOPE [.NSDZSLOT, OPTODEJ = OP ssoSND_ENVELOPE [.NSD_SLOT, RSVD]
= ZERO
SNDZENVELOPE [. NSD-SLOT, MODIFIER]
= zeao

'Load command reference number

12ero Hi order cmd ref number

iNot used in DUP implimentation
'Not used in DUP implimentation
‘Load this commands op-code
'Not used field
'Define the commands modir.ers

; Command specfic command envelope field definition

‘ Byte count of transfer

535
ggg

SND ENVELOPE C.NSD_SLOT, BLO_CNT] = SNDB_SIZE;
'Byte count low word
SND ENVELOPE [. NSD SLOT, BHI CNTJ = ZERO;
'Byte count high word

ggg

i Buffer descriptor definition

540

SND ENVELOPE [.NSD_SLOT, BPA_LO] = SND_BUF; !Buffer physical adrs <0-15>

3542

SND ENVELOPE L[.NSD_SLOT, OBUS_EXTJ = ZERO:

3544

;
3

:
:

3
3

N U

ggz

3541

3543

3545

3546
3547

SND_ENVELOPE [.NSD_SLOT. BPA_HIJ = ZERD;

tBuffer physical adrs bits <16=17>

SND_ENVELOPE [.NSD_SLOT, RSV]"= ZERO:

iReserved field

SND_ENVELOPE [.NSD_SLOT, RSVD])= 2ERO;

'These next four words are not

SND_ENVELOPE [.NSD_SLOT, UBA CHANJ ZERO;
SND_ENVELOPE L[.NSD_SLOT, RSV1) = ZERO;
SND ENVELOPE L.NSD_SLOT, RSV2]
= ZERD;

'Q_bus extention adrs

.Unibus adaptor channel number
'used in the UQ Port implementation

gg:g

;

3550

i Call the

3
3

3552
gg;z

| where this command is stored. Later we can Llook at this location to
; see if the interrupt service routine has received and process it.

3551

SND“ENVELOPE [. NSD SLOT, RSV3] = ZERO;

load out$standing command buffer routine and load this command

i into the buffer.

The return from this routine
w

gggg

SND_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

gggg

if .SND_BUFSLOC eqlu OBF_CODE then DECODF ();

3559

gggi

§s~o,ax~c C.NSD_SLOT, OWN_BIT] = PORT_OWNED;

gggg

g Read the IP register to stimulate port polling

3566

TEMP = .RC25_ADDR [RCIP, RC_ALLJ;

ggg?

SEO 222

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816.3 (17)

WN~-O

b b cd b cd b e cd e

VS WN=O VNV
N=O VRN

WIWAINI NN NI N NI NI NI NI N

N N U AN NN N N N N N N N N N N NN N NN NN NN

ViV i

REV A PATCH 00

oint us to the buffer location

'Load the command
'Error if buffer is full

{ Set the ownership bit to 1 giving this slot to the port/controller

CZRCHS
REV A PATCH 00

CZRCH RC2S DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06 144
7=Jul=1983 08:24 :58

3
H
:

3567
3568
gggg

'
; Timc out the port/controller for the response from this command.

i If the controller times out then:

3572
3573
3574

gg;g

!
:
'

. See what kind of error was returned. If the error
s a ty?e other than a CTO_CODE (controller time out)
then call routine Decode which does the appropriate

3577

2. 1f

3582

sggg

:
:
3
:
S
S
3

3578
3579
ggg?
3583

;

!
!
:
:

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

If the

indicator has changed then assume that the

RPD_CODE (remote

dead

program

and return an error code of

dead

code)

and

exit.

;

3586

s
:
;

remote program is still running, save a copy of its
value and reinstate the controller time out delay and
repeat the loop.

3591

As loq? as the progress indicator in the remote program

3594

i If the controller doesn't time then return with the return

3
3
:
:

:
:

;

3587
3588
gggg
%gg%

3595
gggg

3598

;

is still increasing this loop will be repeated for ever.

! code returned from routine CTO_WAIT () which could be either
; a success or error code by definition of this host code.

‘

3
3
:

3599
3600
;gg;

3603

i Do a controller time out and

;
:

3606
3607

'
if CTO_WAIT (4000, .REF_NUM, .SND_BUFSLOC)

;

3611

3
2

;

:
3

gggg

3608

3612
gg}z

3615

3616
3617

gg}g

ggg?

3622

3623

YAX=11 Bliss=16 V3-555
RS
: [NEALE .AZTEC
SPIDERSUSE

while TRUE do
begin
§R AK;

'Repeat for ever
'Flag control C's

determine if the controller

; has processed the command or if a fatal error has occured.

then

'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 Lloop else call routine Decode ().

if .RET_STATUS eqlu CTO_CODE
then

'Is this a controller time out

begin

if GET_DUST_STATUS () then DECODE ();

!Get the dust status

if .RET_ENSAD [PLO_IND] gtru .PID_SAVE [0]

then

'Any progress been made

SE0 223

3 (17)
ICZRCHS.B16:
a

F
CZRCHS
REV A PATCH 00

11=Jul=1983

16:06:44

Jut 8% Og'g2'58

CZRCH_RC25 DISK FORMATTER
MODULE DECLARATIONS

7=Jul=198

SEO 224

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3(17)
VAX=11 BLiss=16 V3=555

T ETR LT

!Still running save Pid
D18%AVE [0J = .RET_ENSAD PLO INDJ
PID"SAVE [1] = .RETENSAD
~IND
PRINTB (PID_FMT, .PID_SAVE n. .pxb SAVE [01);

TA I A T R

else

end

if .RET_ENSAD [PHI_IND] gtru .PID_SAVE (1]

then

PlgSAVE [0]

DAL 1 I A

«RET_ENSAD [PLO_IND];
!Still running save Pid
PID_SAVE [1]
RETCENSAD [PHI
PRIRTB (PID_FMT, .PID SAVE [1]. .PID SAVE [0]);

AL AL AL ATR L LA

else

NDJ:

end

return RET_STATUS = RPD_CODE;

!No progress so flag error

end

else

PR TR L

i The return status code was not a controller time out code so something
: else is wrong. Call the routine Decode () to find out what went wrong.

&»

DECODE ()
else

end

pegin

L L

i The command has been received by the interrupt service.

TRLA

R TR

i Get this commands return envelope address out of the
: out$std_buf and check for good return status error and
l

die if bad status.

QEY-ENSAD = ,OUTSSTD_BUF [.SND_BUFSLOC, ENV_ADR];

!Get the ret env adr

é Test for good status

:; RET_ENSAD [STATUS] nequ Z2ERO

TR T R T E T

else

return RET_STATUS = RSE_CODE

'Return a 'Response status err'' code

return .RET_STATUS;

'This ret_status is good or bad

end;
end;

TEI A A

000000

'Test the status

'It won't compile without this here

return .RET_STATUS;
end;

004167

€000006

SBTTL
SEND.DATA
JSR

SEND.DATA MODULE DECLARATIONS

R1,$SAVE3

3453

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

CZRCH _RC25 DISK FORMATTER

MODULE DECLARATIONS

-(SP)
PC,GET.NSD

173566
173730

PC,GST- CMDSREF
RO.R
NSD.SLOT,=(SP)

0000006
000054
0000006
000034 0000006
0000026

PC.LOAD.OUTSSTD.BUF
RO.R2

18:

N
~

; REF.NUM,+

*,SND .BUF $LOC

?§.02001

002001

:3NgiENVELOPEOZG.

WWNWWNW

(R0)
OPE
SND.ENVEL+22

#SND.BUF ,SND. ENVELOPE*Z‘(RO)

; REF.NUM,+

NN
'y
H

E
+6 (RO)
SND. ENVELOP
SND.ENVELOPE+10(R0)
SND.ENVELOPE +12(R0)
PE
+14 (R0O)
#4,SND .ENVELO
15
SND.ENVELOPE+(R0)
(R0)
LOPE
SND.ENVE+16
#45,SND. ENVELOPE +20(R0)

9080 0.0.0.0000:0s0s0s
0

E
+4 (R0)
R3, SND.ENVELOP

#SND. ENVELOPE +2,R1

SND . ENVELOPE +30(R0)
E
+32 (R0)
SND . ENVELOP
E
+34 (R0)
SND . ENVELOP
ggo.euvstovsosotn0)
. (SP)

175554

35N
3512
3516

BLSMUL

(R1)

007640

* ,REF .NUM

oslSND. ENVELOPE (R0)

1(R1)

0000006
100000 000002
0000006 000004
000004

osa.-(SP}

000001
000002 000001
000004G
0000066
0000106
0000126
000004 0000146
0000156
0000166
000045 0000206
000022 G
000000G 0000246
0000266

173616
0000006

SEO 225

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816.3’?17)

TR
TR IR

CZRCHS
REV A PATCH 00

VAX=11 Bliss=16 V3=555

SND.BUFSLOC,
*

PC,DECODE

ggb.SLOT RO

RO
SEND.RING,RO

#100000, 2 (RO)

QRCZS ADDR, 4 (SP)
2%:

* RC$S.REG

425 ).RO

RCSS.REG, TEMP

R3,=-($P)
R2,=(SP)

REF .NUM, *

2
#7640, (SP)

SND.BUF$LOC, *

PC,CTO.WAIT

(SP)+,(SP)+

0000006 000011
176240

173512

8s
RET.STATUS,#11
7%

PC,GET.DUST.STATUS
RO

PC,DECODE

3616

CZRCHS
REV A PATCH 00

000322
6

016701
010100
016000

VAX=11 Bliss=16 V3=555
agr 5NSADLR

3s:

000024
0000006

24(R0) ,RO

0000006
000026 0000026

o PID.SAVE

26(R1) ,PID.SAVE+2
RO, (SP)
PID.SAVE+2,=(SP)

#3,-(SP)

0000026

48:

0000006
000026 0000026

:
; PID.SAVE,*

3626
3627

3625

SP,RO

: SP,»

113
gg(n1)LPID.SAVE+2

H
3

3624
3631

RO,PID.SAVE

H
3
s PID.SAVE,*

3634
3635
3636

26(R1) .P1D.SAVE+2
RO, (SP)
PID.SAVE+2,=(SP)

0000026
0000006
000003

#PID.FMT,=(SP)
#3,-(SP)

SP.RO

000006

5%:

000051

6$:

173350

7%:

#6,SP
F1
#51,R0
98
2
R2,.R0

3
s SND.BUFSLOC,*

3607
3659

OUTSSTD.BUF+2(R0) ,RET.ENSAD
ourssro.auro2<a0).no

3664

3666

3651

3453

000031
0000006

9%:

16(R0)
108
#31,R0
ao‘nsr.STATUS

0000006
000006

108:
118%:

RET.STATUS.RO
#6,5P

ADD

RTS

3633

:
:

000002G 0000006
0000026
000016

: P,

3631
3639

PC,DECODE

8s:

176 words,
Routine Base:
ACSCODE + 4350
; Maximum stack depth per invocation:
12 words

3676

3626
3622

#PID.FMT,~(SP)

: Routine Size:

H
s RET.ENSAD,*

ao PID.SAVE

0000026
0000006
000003

000026

SPIDERSUSERS [NEALE .AZTECICZRCHS. 816.3 (17)

CZRCH_RC25 DISK FORMATTER

MODULE DECLARATIONS

0000006

SEo 226

3647

1
CZRCHS
REV A PATCH 00

SEQ 227

Page

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTECJCZRCH5.816;3 (18)

global routine REC_DATA =

'Performs host==>port communications

144

! Functional Description :

These

program

commands

and the

are used
remote

to communicate between the initiating host

program.

Both

send

and receive commands

specify a host buffer
descr gtor 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 reccig o
In the case of receive data the remote progran writes data into the
buffer up to the amount specified by the byte count and then sends a
receive
data recsponse to the host to notify it of the transmission.
The
send data
and receive data commands are only legal when the
server is 1in the
active state. If
the remote program terminates
abnormally, putting
the server back in the idle stae, outstandin

send data and receive data commands may be lost.
the

specified

issue a get

timeout interval

dust staus

is exceeded,

command

to see if

In the event tha

the host program should

the remote pro?ran is

still
runnin
(is. the dup server 1is 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
having
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 in it is stored the next send rina
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 Effects :
none

begin
local

REF _NUM

!Stores uniguo cmd ref number

TEMP;

'A place to put read

REC euriLoc.
| Before
we load

!Stores out$standing

cmd buffer location
IP register data

up the command packet up with all this good information

! get the next send descriptor slot and a unique command reference number.

CZRCHS
CZRCH RC2S DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS
:

3734

11=Jul=1983

16:06:44
7=Jul=1983 08:24:58

3735

GEYNSD ():

;
:

g;%g
3740

i uo Port command envelope Header field definition
SND ENVELOPE LC.NSD_SLOT, MSG LENGTHJ = SI_RED;

3742

SND_ENVELOPE [.NSD_SLOT, MSG TVPEJ

%;gg

3741

= oue

SNDZENVELOPE [.NSDZSLOT, CONA_ID] =oufi

'Define message type 'Sequential’

iDefine connection ID

i DUP generic command envelope field definition

3747

suo ENVELOPE t.nso SLOT, CMD_LREF) = .REF_NUM;

3
3

3749
3750

SND_ENVELOPE
SND_ENVELOPE

3
3

3748

3751

3752
g;gz

'Load uessage length

'Load credit size

%;22

SND_ENVELOPE C.NSD_SLOT, CMD_HREF] =

'Load command reference number

ZERO;

'Zero Hi order cmd ref num

SND_ENVELOPE [.NSDZSLOT, OPlODEJ OP_RED:

'Load this commands op-code

[.NSD_SLOT, UN_CUSED] = ZERO.
[.NSD_SLOT, UNHUSEDJ = Z2ERO;

SND_ENVELOPE [.NSD_SLOT, RSVD]
= l RO;
SND ENVELOPE [.NSD_SLOT, HODIFIERJ = JERO;

!Not used in DUP implimentation
'Not used in DUP implimentation

'Not used field
!Define this commands modifiers

.;,;gg

; Command specfic command envelope field definition

g;gg

‘ Byte count of transfer

3759

SND ENVELOPE C.NSD_SLOT, BLO_CNT] = RECB_SIZE;

g;gg

i Buffer descriptor definition

;

3764

SNO ENVELOPE C.NSD_SLOT, BPA_LO] = REC BUF 'Low unibus adrs <0-15>

3769

SND_ENVELOPE [.NSDZSLOT, RSVOJ
= ZERO;

3
3
3
3

§;2?

3765
3766
3767
3768

3770
3771

SND“ENVELOPE [.NSD_SLOT, BHI_CNT] = ZERO;

'Byte count low word

‘Byte count high word

SND_ENVELOPE [.NSD_SLOT, BPAHI] = ZER
SND_ENVELOPE [.NSD_SLOT. QBUS_EXT) = ZERO.
SND_ENVELOPE [.NSD_SLOT, Rst = ZERO;
SND_ENVELOPE [.NSD”SLOT, UBA_CHAN] = ZERO;

'Unibus aars bits <16=17>
'Q_bus extention adrs
'Reserved fiel
'Unibus adaptor channel nunber

SND_ENVELOPE [.NSD_SLOT, RSV1]= ZERO:

'used in the UQ Port implementation

SND_ENVELOPE L[.NSD”SLOT, RSV2]
= ZERO;

'These next four words are not
!

g;;%

3774

! Call the load out$standing command buffer routine and Load this command

3779

§;g?

REC _BUFSLOC= LOAD_OUTSSTD_BUF (.REF_NUM);

%;g%

if .REC_BUFSLOC eqlu OBF_CODE then DECODE ();

;

3784

g;gg

; Set the ownership bit to 1 giving this slot to the port/controller.

g;gg

?END_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;

3789

% Read the IP register to stimulate port polling

3
3
:

3775
3776
g;;;

SND ENVELOPE [.NSD_SLOT, RSV3] = ZERO;

' into the buffer. The return from this routine will point us to
the
! buffer Llocation where this command is stored. Later we can look at this
; lgcatton to see if the interrupt service routine has received and process
TM

!Load the command

SEO 228

SPIDERSUSERS: [NEALE .AZTECJCZRCHS. 816.3(18)

!Get a unique command ref num

VAX=11 Bliss=16 V3=-555

!Get the next send desc slot

REF “NUM = GET_CHDSREF 0;

SND_ENVELOPE [.NSD_SLOT, CREDITS]

'Error if buffer is full

K
CZRCHS

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul-1983
7=Jul=1983

16 :06:4 4
08:24:58

SEQ 229
quo
64
V3=555
VAX=11 Bliss=16
(18)
.816;3
RCHS
SERS
.AZTECICZ
: [NEALE
SPIDERSU

TEMP = ,RC25_ADDR [RCIP, RC_ALLJ;
M

Time out the port/controller for the response from this command.

If the controller times out then:
1. See what kind of error was returned.
If the error
is a tyfe other than a CTO_CODE (controller time out)
then call routine Decode which does the appropriate
action based on the error.

LA LA LRLA

LR L LN 1

REV A PATCH 00

TRTR L

2. 1f 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

TR TR T L L

still running and is not dead.

the

indicator hasn't changed then assume that the

remote program is dead and return an error code of
RPD_CODE (remote program dead code) and exit.

TR TRL

If the indicator has changed then assume that the
remote program is still running, save a copy of its
value and reinstate the controller time out delay and

e T

repeat the loop.

As lon? as the progress indicator in the remote program
is still increasing this loop will be repeated for ever.

i If

the

controller doesn't time then return with the return code

' returned from routine CTO WAIT () which could be either a success

or error code by definition of this host code.

whilg TRUE do

!Repeat for ever

QR AK;

'Flag control C's

egin

i Do a controller time out and

determine if the controller

AR I

T I T T T R T

; has processed the command or if a fatal error has occured.

if CTO_WAIT (4000, .REF_NUM, .REC_BUFSLOC)

then

!Is return an error

Qegin

i If the return status code e?g'? a CTO_CODE then see if the remote

t is then save the progress indicator
! program is still running.
; and repeat the loop else call routine Decode ().

if .RET_STATUS eqlu CTO_CODE

then

!Is this a controller time out

begin
if GET_DUST_STATUS () then DECODE ();

!Get the dust status

if .RET_ENSAD [PLO_IND] gtru .PID_SAVE (0]

!Any progress been made

L
MODULE DECLARATIONS

3848
9

D19Save
0
PIDTSAVE [1]

«RET_ENSAD

PRIRTB (PID_F

else

end

pRET JENSAD

!Still running save Pid

PLO_ IND

PHI_I

T. .PID_SAVE t1J. . xoSAVE [01);

Dl:
PlgSAVE [0l = «RET_ENSAD PLO IN
o

LRLA TR

!Still running save Pid
PID”SAVE 1] = -RET_ENSAD
PRINTB (P ID_FMT, .PID_SAVE tlJ. .PlD SAVE [01);

L R L A TRLA LA

else

LA L

else

end

return RET_STATUS = RPD_CODE;

!No progress so flag error

end

PR T

| The return status code was not a controller time out code so something
: else is wrong. Call the routine Decode () to find out what went wrong.

"
W

b
o

else

DECODE ()

end
9991n

i The command has been received by the interrupt service.
i

: Get this commands return envelope address out of the
out$std_buf and check for good return status error and

3880

: die if bad status.

RET_ENSAD = .OUTSSTD_BUF [.REC_BUFSLOC, ENV_ADR];

'Get the ret env adr

é Test for good status

if .RET_ENSAD [STATUS] nequ ZERO

R R R RS

then

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;

TR IR

000000

‘It won't compile without this here

return .RET_STATUS;
end;

004167

(C000006

.SBTTL

REC.DATA::

REC.DATA MODULE DECLARATIONS

SEO 230

SPIDERSUSERS: (NEALE.AZTECICZRCHS. 816.3(18)

if .RET_ENSAD [PHI_IND] gtru .PID_SAVE [1]

then

PRTR T

VAX=11 Bliss=16 V3=555

then

TR A

11=Jul=19 83 16:06:4
7=Jul=19 83 08:24: 58

CZRCH RC25 DISK FORMATTER

L L 1) LA

TR TR TRTR TR IR LT

RCHS
REV A PATCH 00

n2
11=Jul=198 3 16:06:
7=Jul=198 3 08: 24: 8

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

3677

PC,GET.NSD

3735
3736

PC.GET.CMDSREF

054.-(SP)

(R0)
+22 PE
SND.ENVELO

#REC.BUF,SND.ENVELOPE
+24 (R0)

#SND . ENVELOPE+26,R1

PC.LOAD.OUTSSTD.BUF
RO,R2

172712

RZ #2001

1$:

b4
o

#100(

2%:

—>

S
&~

—b

3780

* ,REC.BUFS$LOC
REC.BUFSLOC,*

3782

* ,RCS$S.REG

PC DECODE
ggb.SLOT,RO
ONG\

002001

; REF.NUM,+

(SP)

#7640, (SP)

R3,=(SP)
R2.=(SP)

PC.CTO.WAIT

ésfi)o (SP)+

0000006 000011

8s
;ET.STATUS.011

175500

SS.GEY.DUSY.STATUS
3%

RCSS.REG, TEMP

&
e

0000366

S
3

SND. ENVELOPE +30(R0)
SND . ENVELOPE
+32 (R0)
(R0)
LOPE
SND.ENVE+34
SND.ENVELOPE+36(R0)
R3, (SP)

LIATATATA
TR 'R}

RO,R1

(R1)

175014

3747

SND. ENVELOPE
+6 (R0)
SND. ENVELOPE +10(R0)
SND. ENVELOPE
+12 (R0)
#5,SND.ENVELOPE
+14 (RO)
15
SND. ENVELOPE+(RO)
SND . ENVELOPE
+16 (R0)
#170, SND. ENVELOPE +20(R0)

+
; REF.NUM,

W
~

", (n1)

#2.1(R1
R3.SND. ENVELOPE+4(R0)

#SND, ENVELOPE +2,R1
RO,R1

1(R1)

007640

3740

$MUL

oslSND. ENVELOPE (R0)

000001
000002 000001
0000046
0000066
0000106
0000126
000005 0000146
0000156
0000166
000170 0000206
0000226
000000G 0000246
0000266

100000 000002
0000006 000004
000004

* ,REF .NUM

RO,R3
NSD.SLOT,=(SP)

0000006
000054
0000006
000034 0000006
0000026

SPIDERSUSERS:[NEALE .AZTECICZRCHS. 816 3(18)

=(SP)

173026
173170

173056
0000006

VAX=11 Bliss=16 V3=555

R1,$SAVE3

~NO*
o

CZRCHS
REV A PATCH 00

SEO 231

: REF .NUM,*

: REC.BUF$LOC,*

N
CZRCH5
REV A PATCH 00

000316
000326
30
000340

004767
016701
010100
016000
2006
1014

11=Jul=1983 1 6:06:4
7=Jul=1983 0 8:24:5

CZRCH_RC25 DISK FORMATTER

MODULE DECLARATIONS

172752

38:

0000006

PC,DECODE

aei ENSAD,R1
RO

000024
0000006

ZQ(RO) RO

0000006
000026 0000026

no PID.SAVE

0000026
0000006
000003

P1D.SAVE+2,=(SP)

26(R1) PID SAVE+2
RO, (SP)
#3,-(SP)

0000026

48:

3851
3847

:
H

3850
3851

; PID.SAVE,*

3852

s SP,*

58
26(R1) ,PID.SAVE+2
6$
RO,.P
AVE

3849

RO, (SP

; PID.SAVE,*

3860

PID.SAVE+2,=(SP)

#PID.FMT ,~(SP)
#3,=-(SP)

SP.RO

000006

5%:

000051

6%:

172610

7%:

8%:
0000026 000000G
0000026
000016

3901

3
s RET.ENSAD,*

SP.RO

26(R1)$PID+SAVE+2

000002G
0000006
000003

SPIDERSUSERS : INEALE.AZTECJCZRCHS.B16.3 (18)

#PID.FMT,=(SP)

0000006
000026 0000026

; Routine Size:
Haxlnun stack

SEO 232

RO PID.SAVE

000026

VAX-11 Bliss=16 V3=555

000031
0000006

9%:

000000G
000006

108:
118:

176 words

Routine Base:

depth per invocation:

12 words

#6,SP
2%
#51,R0
9%

3856

3859

3861

: SP,»
3858
3856
3864

2%
R2.RO

s
s
: REC.BUFSLOC,*

3872
3832
3884

OUTSSTD.BUF
+2(R0) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO

3889

3891

3876

3677

PC,.DECODE

16(R0)
108
#31,R0
??‘RET.STATUS

RET.STATUS,RO

ACSCODE + 5110

CZRCH RC25 DISK FORMATTER

11-Jul=1983 16:06:44

global routine SET_CNTLR_CHAR =

!Sets control characteristics

MODULE DECLARATIONS

VAX=11 Bliss=16 V3=555

7=Jul=1983 08:24:58

lee

Functional Descri?tion :

The SET CONTROLLER CHARACTERISTICS command is used to set host
settable
unit
characteristics and
obtain those
wunit
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

NSD_SLOT

A
A

TR A

Implicit Inputs :

R
A AR
LAL 1
TR PR PRD
T R PR PR A
aa aa a TR
e

Implicit Outputs :
none

RET_STATUS:

Return status passes back to the calling routine
the status of the just issued command.

Side Effects :
Any previously defined controller characteristics will possibly
be altered after execution of this command.
begin
local

REF _NUM

!Stores uni

TEMP;

'A place to put read

SCC auriLoc.

cmd ref number

!Stores out standina cmd buffer location
IP register data

R R R R R

T E R T E T R

R Ts s

This global storage gets Lloaded by the routine
‘Get_nsd' and in it is stored the next send rina
descriptor slot where the port/controller shoul
be polling on and the place to put this commands
command packet.

Completion Codes :

i Before

we load up the command packet up with all this good information

5 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

g UQ Port command envelope Header field definition
SND_ENVELOPE

gzg_gzsstggg

[.NSD_SLOT, MSG_LENGTH) = SZ_SCC;

.NSDZSLOT, CREDITS) = ONE;
.NSD_SLOT, MSG_TYPE] = 0;
SNDZENVELOPE [.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.B816;3 (19)

T A P E TR TR R

PR PRPR P L LA LN TN T

CZRCHS
REV A PATCH 00

CZRCHS
CZRCH RC25 DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS
3

3959

11=Jul=1983 16:06:4

7=Jul=1983 08:24 :58

3960

SND ENVELOPE [.NSD_SLOT, CMD_LREF] = .REF_NUM;

3
3
3
3

3962
3963
3964
3965

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

3
:

3961

gggg

VAX=11 Bliss=16 V3=555

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816 3 (19)69

'Load command reference number

SND_ENVELOPE E.NSD_SLOT, CMD”HREF] = ZERO. 12ero Hi order cmd ref num
L[.NSD_SLOT, UN_CUSED] = ZERO;
[.NSD_SLOT, UN_HUSED] = ZERO;

[.NSD-SLOT, OPTODE] = OP_SCC:
[.NSD_SLOT, RSVD) = ZERO;

SND —ENVELOPE [.NSD_SLOt. MODIFIER] = ZERO;

iNot used in DUP implimentation
!Not used in DUP implimentation
iLoad this commands op-code
'Not used field

!Define this commands modifiers

gggg

‘ Command specfic command envelope field definition

3970

SND _ENVELOPE [.NSD_SLOT, MSCP_VER) = 2ERO;

|
3
3

3975
3976
3977

SND_ENVELOPE [.NSD_SLOT, TSD_1] = ZERO;
SND_ENVELOPE [.NSD_SLOT, T$D_2] = ZERO;
SND_ENVELOPE [.NSD_SLOT, T$D_3] = ZERO.

'Time and Date word 1
'Time and Date word 2
'Time and Date word 3

SND“ENVELOPE [.NSD_SLOt. COPCHI) = ZERO:

!Cntlr dep parameter hi wrd

3
3
3
3
3

3971
3972
3973
3974

3978

gggg

3981

:
:
$

3982
3983
gggg

!MSCP version
SND_ENVELOPE [.NSD_SLOT, CTL_FLAGS]) = ZERO; 'Controller flags
SND_ENVELOPE [.NSD_SLOT, HOST_TOV]= ZERO; 'Host time out value
SND_ENVELOPE E.NSD_SLOT, RSSVB) = IERO
iReserved
SND_ENVELOPE [.NSD SLOT. T$D_0] = ZERO;
'Time and Date word 0
SND_ENVELOPE

[.NSDZSLOT, CDP_LO) = ZERO;

'Cntlr dep parameter lo word

i Call the load out$standing 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 con look at this
; location to see if the interrupt service routine has received and process

;

;ggg

SCC_BUFSLOC= LOAD_OUTSSTD_BUF (.REF_NUM);

gggg

if .SCC_BUFSLOC eqlu OBF_CODE then DECODE ();

3990

'Load the command
'Error if buffer is full

ggg}

; Set the ownership bit to 1 giving this slot to the port/controller

;

gggz

éEND_RING C.NSD_SLOT, OWN_BIT] = PORT_OWNED;

gggg

g Read the IP register to stimulate port polling

;

gggg

TEMP = .RC25_ADDR [RCIP, RC_ALL);

2833

g Time

out the

port/controller processing

the command.

4001

i The

first

test

ability to

4005

i The

second tests the

! When true signals us that the interrupt service routine

3
3
2
:
:
3
:

:
3

4002
2882
4006
4007
4008
4009
4010

4012
28}2

tests the connections

! respond to this command without any errors in the SA
; register and for the command not timing out.
!
!
!
!
!

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 approprfato recovery. The time
out routine will Loop on delaying
;nd checking the hi
bit of the first word in the
std_buf for a true.

! has received the endpacket
; were detected.

and

no connection errors

EO 234

it.

16:06:44

08:24:58

VAX=11 Bliss=16 V3-555

SEO 235

SPIDERSUSERS: [NEALE .AZTECICZRCHS. 816.3(19)

'Is return an error

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

Get

QET-EfltAD = ,0UTSSTD_BUF [.SCC_BUFSLOC, ENV_ADR];

'Get the ret env adr

g Now test for good status
'Test the status

if .RET_ENSAD [STATUS] nequ ZERO

then
X
return RET_STATUS = RSE_CODE
else

'Return a 'Response status err'' code
!This ret_status is good or bad

return .RET_STATUS;

end;

0000906
172266
172430

8
W
&

I NITRENERENENERE

11=Jul-198
7=Jul=198

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

if CTO_WAIT (3000, .REF_NUM, .SCC_BUFSLOC) then DECODE ();

S
g

égggggggggggggggggg ggggéggggggg g "“."u"....".""“..h"

CZRCHS
REV A PATCH 00

SBTTL SET.CNTLR.CHAR MODULE DECLARATIONS
SET.CNTLR.CHAR::
R1,$SAVE2
JSR
TST
JSR

0
000054
0000006
000040 000000G
000002

JSR
MOV
MOV
MOV
JSR
MOV
MOV

000001
000001
0000046
0000066
0000106
0000126
000004 0000146
0000156
¢"00166
0000206
0000226
0000246
0000266
0000306
0000326
0000346
0000366
0000406
0000426

MOVB
CLR8B
MOV
CLR
CLR
CLR
MOVB
CLRB
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
(LR
CLR

172160

JSR

002001

ADD

MOV
MOV

cmP

3902

-(SP)
PC,GET.NSD

PC.GET.CMDSREF
RO,R
NSD. SLOT -(SP)

* ,REF .NUM

054,~(SP}

BLSMUL

046SND. ENVELOPE (R0)
#SND., ENVELOPE +2,R1
RO,R1
#1.(R1)

1(fi1>

E
+4 (R0)
SND. ENVELOP

su6 ENVELOPE
+6 (R0)
ENVELOPE +10(R0)

REF .NUM, *

SND.
SND. ENVELOPE +12(R0)
#4,SND .ENVELOPE +14 (RO)
+15 (R0)
SND. ENVELOPE
+16(R0)
SND.ENVELOPE
SND . ENVELOPE +20(R0)
SND.ENVELOPE+22 (R0)
SND.ENVELOPE+24 (R0)
SND.ENVELOPE+26 (R0)
SND.ENVELOPE+30(RO0)
SND.ENVELOPE +32(R0)
(R0)
OPE
+34
SND. ENVEL

E (R0)
SND . ENVELOP+36

SND.ENVELOPE +40(R0)
SND . ENVELOPE +42(R0)

R2, (SP)
PC,LOAD.OUTSSTD.BUF
RO,R1
R1,#2001

REF .NUM,+

*,SCC.BUFSLOC
SCC.BUFSLOC,*

3948
3949

3953

CZRCHS

REV A PATCH 00

2;6
SEO
V3=555
Bliss=16
AX=11
(19)
3
616
RCHS.
.AZTECICZ
ALE
SERS:[NE
SPIDERSU

CZRCH _RC25 DISK FORMATTER
MODULE DECLARATIONS
172324

0000006

18:

PC,DECODE

NBD.SLOT,RO

#100000, 2 (R0)
ABDR4 (SP)
QRC S
).R

05670 (SP)
2.-(5P)
R1=(SP)

: REF.NUM,*

4016

SCC.BUFSLOC, *

(SP)#.(SP)O

2%:

PC,DECODE

; SCC.BUFSLOC,*

4023

OUTSSTD.BUF +2(R0) ,RO

4028

3s
#31,R0

4030

3937

3902

R1.RO

OUTSSTD.BUF +2(R0) ,RET.ENSAD
16(R0)

22.RET.S!AVUS

3$:
4%:

RET.STATUS,.RO
#6,SP

11‘ UO"dS.
Routine Base:
ACSCODE + 5650
9 words
; Maximum stack depth per invocation:

4035

;

RO
2%

000031
000000G

3993

PC.CTO.WAIT

000002G 0000006
0000026
000016

: Routine Size:

’s-

RO
SEND.RING,RO

174264

0000006
000006

0000006
100000 000002
0000006 000004
000004
005670

172242

F
CZRCHS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

global routine ON_LINE =

!Makes a unit come online to a host

les

; Functional Description :

The

online

command

used

bring

unit

‘unit-online,

set

host
settable
wunit
characteristics
and obtain
those unit
characteristics
that
are
essential for proper class driver
operation. The
unit is spun-up,
if
necessary, and 1is heads
are
loaded
prior
to
returnin
the
online command's end
message. Host
settable characteristics
are
set exactly as if
a set unit
characteristics
command were issued. Host settable
characteristics
are set after the unit has been succossfull‘ spun=up
and any other validity checks have succeded. Note that the unit's
hfi:}tset{qblg characteristics are not altered if the unit is
already
=online’’.

Formal Parameters

LRL

none

Implicit Inputs :

uso,gfor

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.

PR TR PRL LA

SEQ 237

Page 72
VAX=11 Bliss=16 V3-555
(20)
816;3
JCZRCHS5.
SPIDERSUSERS
: [NEALE .AZTEC

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

TR PR TR TR R

DR TR DRL

AR T 1

REV A PATCH 00

Implicit Outputs :
Completion (odes :

RET_STATUS:

Return status passes back to the calling routine
the status of the just issued command.

Side Effects :
Any previously defined controller characteristics will possibly
be altered after execution of this command.

s e

none

begin

REF _NUM

!Stores uni

TEMP;

'A place to put read

ONL BUFfLOC.

cmd ref number

'Stores out$standing cmd buffer location
IP register data

LR I I

R T

R E

E e

local

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.

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_ONL;
SND”ENVELOPE [.NSDZSLOT, CREDITS] = ONE;
SND_ENVELOPE [.NSD_SLOT, MSG_TYPE] = 0;

'Load message length

'Load credit size
'Define message type ‘'Sequential’

CZRCHS

REV A PATCH 00 MODULE DECLARATIONS

11=Jul=1983 16:06:44

2832

§ND,ENVELOPE C.NSD_SLOT, CONN_ID] = MSCP;

!Define connection ID

;

2832
4097

‘ MSCP generic command envelope field definition
suo ENVELOPE [.NSD_SLOT, CMD_LREF] = .REF_NUM;

4100

SND_ENVELOPE .NSDZSLOT, UN HUSEDJ = IERO. 'Not used in DUP inplinentet

:
:
:

CZRCH RC2S DISK FORMATTER

4098
4099
4101

6102

2}82

4108

;

3:
$
:

2}8{

= OP_ONL;

NSD SLOT, RSVDJ = ZE 0;

SND —ENVELOPE [.NSD_SLOT, MODIFIER]= 2ERO;

iLoad this commands op=-code

'Not used field

iDefine this commands modifiers

i Connend specfic command envelope field definition

ARk
6112

SND_ENVELOPE
SND_ENVELOPE

'Reserved field
'Reserved field

4115

:
:

SND_|“ENVELOPE

[.NSD_SLOT, OPTODE]

'Reserved

4113

SND_ENVELOPE

4114

4116

4117
2}}3

SND ENVELOPE [.NSD~SLOY. UNT_FLAGS] = iERO ‘Unit flag field

SND_ENVELOPE
[.NSD_SLOT,
RSVDS0] = ZERO
SND~
_ENVELOPE .NSD~
_SLOT, RSVD$1] = ZERO.

[.NSD_SLOT, RSVDS;} = 2ERO;
[.NSD_SLOT, RSVD$3]
= ZERO°

SND_ENVELOPE [. NSD_SLOT, RSVDS$4)

SND_“ENVELOPE [. NSD SLOT, RSVD$S5]

= ZERO.

= ZERO;

SND_ENVELOPE [.NSD_SLOT, DDP_LO] = ZERO:

SND_ENVELOPE [.NSD_SLOT, DDPTHI) = ZERO;

Reserved
field
'Reserved field

'Reserved field

'Device dependent parameter

'Device degendentparameter

SND_ENVELOPE L. NSD_SLOT, SHADOW UNIT] = ZERO;
SND“ENVELOPE [. NSD SLOT, COPY_ SPEED]
= ZERO;

dow unit
'Copy speed

;

4120

5 Call

:
:
:

6122
6123
4124

! 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

;

2}3;

ONL_BUFSLOC = LOAD_OUTSSTD_BUF (.REF_NUM);

2}%8

if .ONL_BUFSLOC eqlu OBF_CODE then DECODE ();

6121

2}52

4131

' and

the Lload out$standing command buffer routine

load

this command

into

the buffer.

The return

! has received and process it.

'Load the command
'Error if buffer is full

2}%%

; Set the ownership bit to 1 giving this slot to the port/controller

;

2}%2

SEND_RING [.NSD_SLOT, OWN_BIT] = PORT_OWNED;

2};9

| Read the IP register to stimulate port polling

;

2};3

TEMP = .RC25_ADDR [RCIP, RC_ALL);

2}2?

g Time out the

:
:

4142
4143

i The
first
test
tests the connections ability to
i respond to this command without any errors in the SA

4146

| The

3
:

2}2?

4147

4148

6149

port/controller processing

the command.

: register and for the command not timing out.

second tests the

DUP server for good status.

! bad status is sent back then an error code is returned

i to the calling routine where the routine ''decode’ will

i decode

and take the

appropriate recovery.

The

time

SPIDERSUSERS: [NEALE.AZTECJCZRCH5.816.3(20)

SND_ENVELOPE [.NSD-SLOT. CMD_HREF] = ZERO; '!Zero Hi order cmd ref num
SND ENVELOPE NSD SLOT, UNIT NUM] = UNI?_NO
'Select unit to brin?online

éND_ENVELOPE [.NSD_SLOT, RSVSD] = ZERO;

4109
4110

VAX=11 Bliss=16 Vv3=555

'Load command reference number

4107

7=Jul=1983 08:24:58

SEO 238

11=Jul=1983 16:06:4
7=Jul=1983 08:

CZRCH RC25 DISK FORMATTER

:26:5

MODULE DECLARATIONS

SEQ 239
Page 74
VAX=11 Bliss=16 V3=555
[NEALE .AZTEC JCZRCH5.816;3 (20)
SPIDER:SUSERS

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.

it CTO_WAIT (ONE_MINUTE, .REF_NUM, .ONL_BUFSLOC) then DECODE ();

Get

the return envelope

address

from the

'ls return an error

out$std_buf

ffer Llocation and check the packet
at this commands
for good status error and die if bad status was returned

@er,snsAo = ,0UTSSTD_BUF [.ONL_BUFSLOC, ENV_ADRJ;

‘Get the ret env adr

g Now test for good status
if .RET_ENSAD [STATUS] nequ ZERO
then
return RET_STATUS = RSE_CODE
else
return .RET_STATUS;

'Test the status

'Return a 'Response status err'' code
!This ret_status is good or bad

end;

.SBTTL

ON.LINE MODULE DECLARATIONS

JSR

R1,$SAVE2

4036

:8.GEV.CHDSREF

4085
4086

PC,BLSMUL

#44 ,SND . ENVELOPE
(RO)

:SND.ENVELOPE*?.R1

+4 (R0)
R2, SND . ENVELOPE
(R0)
OPE
SND . ENVEL+6

REF .NUM,

UNIT.NO, SND.ENVELOPE+10(R0)
b

WN=O

SND.ENVELOPE+26(R0O)
SND . ENVELOPE+ 30 (R0)
SND . ENVELOPE+32 (RO)
SND . ENVELOPE+34 (RO)

+15 (RO)
SND . ENVELOPE
E
+16 (R0)
SND . ENVELOP
SND . ENVELOPE+20 (R0)
SND . ENVELOPE+22 (R0)
SND . ENVE LOPE +24 (R0)

aRSS3RIR

E
+12 (RO)
SND .. ENVELOP

#11.SND. ENVELOPE +14 (RO)

0000?06 0000106
G
. 0000146

4090

* ,REF .NUM

0000006
000044 0000006
0000026

NSD.SLOT,=(SP)
#54,~(SP)

171722

=(SP)
PC.GET.NSD

ON.LINE:

—

0000006

S
2N

SRSRERIRS

§§§§§§§§§§§§ §§§§§§§§§§§§§ g 0 s 005 S0 S 0 60 50 0 0 00y Bl T5.95:5 9 009 40 90 0 04 e

REV A PATCH 00

13
CZRCHS

NN
= YO

288232888
w“ggwc‘"""‘"
O=
883 OSN

REV A PATCH 00

11-Jul=1983 16:06: 46
7=Jul=1983 08:24: 58

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

SND.ENVELOPE +36(R0)
SND.ENVELOPE +40(R0)
SND.ENVELOPE +4 (Rg)

0000366
06

(RO)
+44
SND.ENVELOPE
+46 (R0)
SND.ENVELOPE
R2, (SP)
PC.LOAD.OUTSSTD.BUF
RO,R1
R1,#2001

002001

18’

PC,DECODE

Nab.SLOT,RO

1$:

AX=11 BLi ss=- 16 v3=-555

VAX=

zgg
SEO

SPIDERSUSERS: [NEALE.AZTECJCZRCHS.Blb 3(20)
H
H
H
H
|
s REF.NUM,*
; *,ONL.BUFSLOC

4114
4115

4116

4117
4118
6127

s ONL. BUFSLOC.

4129

4134

: *,RCS$S.REG

4138

4157

SEND.RING,RO

#100000, 2 (RO)

aaczs ADDR 4(SP)

0-12610 (SP)

4(SP)

2,-(SP)
n1‘=(SP)

PC.CTO.WAIT
(SP)+,(SP)+

: RCSS.REG,TEMP
: REF NUH

BUF$LOC, *

2$:

2o aas
§§§.§
<88 SR35388s

006300

: Routine Size:

R1,RO

: ONL.BUFSLOC,*

4164

OUTSSTD.BUF
+2(R0) ,RET.ENSAD
OUTSSTD.BUF +2(R0) ,RO

4169

4074

4036

000002G 0000006
000002G
000016

16(R0O)

000031
0000006

#31,R0

0000006
000006

RET.STATUS,RO
#6,SP

23.RET.STATUS

3s:
4s:

119 words,

| ¢ Maximum stack depth per
4176

PC,DECODE

Routine Base:

1nvocation

9 words

ADD
RTS

ACSCODE + 6214

J
CZRCHS

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

MODULE DECLARATIONS

7=Jul=1983 08:264:58

TR PR DALA LA LN TN T

global routine INTSI_SERVICE : INT_LNKSTYP novalue =

VAX=11 Bliss=16 V3-555

!Init sequence interrupt catcher

! Functional Description :

During the initialization sequence the IE bit is defined to be
a zero. This means that the host is not requesting interrupts at
the completion of steps 1-3.

PRTR LA

Note that no initerrupt will be generated at the completion of
step & since this step rquires only a small number of time.

PR PRLA

This interrupt service routine serves to catch any interrupts that the
controller might issue
during
the initialization sequence. The

LATR

interrupt is ignored and control is returned.

This interrupt service routine is also used during

none

—

T
T

PRPR

existence test in determining whether P_Table R(25

Implicit Inputs :

NEX_FLAG

Implicit Outputs :

NEX_FLAG

the RC25 register
registers exist.

A flag which is loaded with 2zeros durina 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

Completion Codes :

R R R

none

Side Effects :

TR A A R

none

begin

NEX_FLAG = ONES;

'Indicate this interrupt occured

return;

end;

000000

012767

000006

000002

177777

0000006

LSBTTL
INTSI.SERVICE MCDULE DECLARATIONS
INTSI.SERVICE::
MOV
#-1,NEX.FLAG
:
RTI

4 words,
Routine Base: ACSCODE + 6572
; Routine Size:
; Maximum stack depth per invocation: 0 words
:

4218

SEQ 241

SPIDERSUSERS:(NEALE.AZTECJCZRCHS.B16:3°?21)

lee

Formal Parameters

CZRCHS

REV A PATCH 00

MODULE DECLARATIONS

CZRCH RC2S DISK FORMATTER

11=Jul=1983 16:06:44

global routine IS_TIMER (SEQ_NO) =

'Init sequence time out

2%58

4221

4222

! Functional Description :

25%2

;

4223
4224

this is to be treated as a host detected fatal error.

4227

4230
2%%3

| Formal Parameters :

;

4233

| Implicit Inputs :

¢33 | Implicit Output
pu

4239

! Completion Codes :

;

TRUE:

4262

FALSE:

:
:

;

2558

4236

4237 ! -

none

2%2?

2522

4245

4246

;

4249

252;

$
I
3

4250
4251
4252

2§§g

SEQ_NO: Indicated which init step is presently being performed within the RC25 init sequence.

none

4238

4253

After

each delay the step field is examined to see if this init sequence has completed.

This routine will do one us delays for a total of 10 seconds.

;

Indicates to the calling routine that the indicated init sequence step has timed out.

Indicates to the calling routine that the indicated init sequence

step has not timed out.

| Side Effects :

If the init sequence step times out and an error is posted in the sa register

;

then the routine decode will be call.
begin

local

TO_VALUE : word,

STEP_VAL : word;

!Step time out value

!Temp storage of step value

:
:

25267
2523

STEP_VAL = ZERO;
'Make sure the loc is zeroed out
g Select the step value expected from this init sequence step.

4261

selectoneu .SEQ_NO of

;

3
$
3
3
:
:
2

3
:
:

4260
4262

4263
4264
4265
4266
4267
4268
4269

4270

427
4272

25;2

set

[0l :
begin

STEP_VAL = %b'0001°;

TO_VALUE = 20000;

end;

!Select the binary step value

!Step 1 binary value

'Timeout step one for 60 seconds

[1] :

begin
STEP_VAL = %b'0010°;

toavlLUE = 5000;

end;

!Step 2 binary value

Page

SPIDERSUSERS
: (NEALE .AZTECICZRCHS5.816;3 (22)

Steps 1-3 of the init sequence, each are required to complete within
0 seconds. If any of these steps fails to complete within that period,

!
!

;

VAX=11 Bliss=16 V3=555

3
:

7=Jul=1983 08:24:58

SEQ 242

'Timeout step two for 10 seconds

CZRCHS

REV A PATCH 00

CZRCH RC25 DISK FORMATTER

11=Jul=1983 16:06:44

MODULE DECLARATIONS

VAX=11 Bliss=16 Vv3=555

SPIDERSUSERS
: [NEALE.AZTEC JCZRCH5.816;3 (22)

7=Jul=1983 08:24:58

(e :
begin
STEP_VAL = %b'0100°;
T0_VALUE = 5000;

'Step 3 binary_value
'Timeout step 3 for 10 seconds

4284,
4285

33 :
begin
STEP_VAL = %b*1000°;
TO_VALUE = 5000;

'Step 4 binary valuo
'Timeout step 4 for 10 seconds

4287

tes;

3
3

4290
253;

:
3
:
:

4276
4277
4278
4279

:
:
:

4281
4282
4283

:
:

4280

4286

4293

4£295

end;

4294

end;

! Loop on the 100 micro second delay until either the expected step field
; is read in the SA register or the step times out.

incru TIM_OUT from 0 to .TO_VALUE do

!Loop on C_US delay's

begin

2%39

DELAY (C_us);

4298

! Check the step bit to see if it is set yet. If it is set then return

2%88

!Do the delay

; a false indicating the completion else continue delaying.

4301

2;8%

if .RC25_ADDR [RCSA, STP_FIELD] eqlu .STEP_VAL then return FALSE:

4304

BREAK;

4305

4306

!Service any control C's

end;

6307

2;}?

! @ true to the caller indicating the error.

:
3

2
2
3

4308
4309

4312

4313
£314
4315
4316

! This step has not completed within the specified time interval.
Test
! the sa register for any errors posted and report errors if any. Return

it .RC25_ADDR [RCSA, ERR_BIT]

then

4317
4320

SEQ 243

Page

be?in
RET_STATUS = PFE_CODE;

'Indicate the port/fatal error code

DECODE ();

'Report the error

return TRUE;

6321

end;

000000

004167

0000006

000004
000010
000012
000016
000020

162706
005002
016600
001005
012702

000006

000022
000001

000026 012703 047040

!Is the error bit set

'Return a failure to the caller

.SBTTL
IS.TIMER::
JSR
SuB

CLR
MOV
BNE
MOV

MOV

IS.TIMER MODULE DECLARATIONS
R1,$SAVES

#6,5P
3
22(SP) ,RO
1%
#1,R2

#47040,R3

219

: STEP.VAL
s SEQ.NO,*

4256
4261

: «,STEP.VAL

4388

: «,T0.VALUE

CZRCHS
REV A PATCH 00

000030
000032
36
000040
000044
000046
000052
000054

000423
020027
001003
01270§
00041
020027
001003
01278%

MODULE DECLARATIONS

5
RO, #1
23
cz R2
48
RO, 42

1$:

000001
000002
000002

2%:

3’

¥4 ,R2
48
RO,#3
5%
#10.R2
#11610,R3
R4
118
#1,R1

000004
000003

012702
012703
sogz

000010
011610

012701
001411
016700
001404
005
005
001374
005301
000766
016700
016066
010201
016600
006200
006200
006200
000300
042700
020001
001421

000001

3s:
4$:
5$:
6%:
7%:

000000G
000004

10§

LSDLY,RO

9s
4(SP)
RO
8s
R1
7%

8%:
9%:

000000G
000002 000002

RC25.ADDR,RO

108:

25R0%,2(SP)
2(SP) ,RO
RO
RO
RO
RO

000002

005000
062706
000207

4322

«,STEP.

H D

4272
4273
4261

«, STEP.VA

4278

: «,STEP.VAL
: «,T0.VALUE
: TIM.OUT

4284
4285
4294

: *,$8TMP2

4296

;

4279
4261

: *, $8TMP1
: $STMP

: $STMP1

: SSTMP2

: * RCS$S.REG

4302

2 STEP.VAL,*

: RCS$S.REG,*

; TIm.OUT

4294

RC25.ADDR RO

4313

3
:
:

4316
6317
4250

4219

R4 ,R3
6$

11%:

000000G
000002

(SP}
2(R, 0)
12%

#21,RET.STATUS
PC DECODE

000000G

000006

83 words,
Routine
stack
depth
per
invocation:
Haxvnuu
; Routine Size:

4261

136
22

000021
171352
000001

3177{60.RO

177760

104422

005204
020403
101740
016700
016016
100005
012767
767
01278?

SEQ 244

Page

SPIDERSUSERS [NEALE.AZTECICZRCH5.B16; 3(22)

CZRCH RC25 DISK FORMATTER

020027
1004

VAX=11 Bliss=16 V3=555

12%:

13%:
14%:
Base:

words

RTS

06 SP

ACSCODE + 6602

s TIM.OUT,TO.VALUE

: *,RC$S.REG

CZRCHS
REV A PATCH 00

CZRCH RC25 DISK FORMATTER
MODULE DECLARATIONS

11=Jul=1983 16:06:44
7=Jul=1983 08:24:58

2;%2

global routine S00T_RC2S5 =

!Performs RC25 init sequence

;

4325

:
3
:

4326
4327
z%%g

! Functional Description :
!
This
routine performs the
RC25 controller.
S

]
initialization

;

2;%?

The initialization procedure serves to:

4332

;

2%%2

4337

4338
2;28

!
5

;

4341

| Formal Parameters :

3
3

23;2

;

of the host-resident communications

Provide

check of port/controller

Bring the port/controller online

confidence

devices attached to the controller
online to the class driver.)

!
none
!
! Implicit Inputs :
!
ISD_STRUCT
;

;

4348

! Implicit Outputs :

4349 ! -

4350

3
3

4352
2%22

!
;

Success:

Failure:

4351

of the R(25

the parameters

6342
L343
4344
4345
2;29

VAX=11 Bliss=16 V3=555
Page 8
SPIDERSUSERS
: [NEALE .AZTECICZRCH5.816;3 (23)

Identify

region to the port.

:
3
3
2
3

sequence

integrity.

to the host (note that the
are

not

thereby brought

Stores the init sequence read and write data defined

for this program and controller.

none o

! Completion Codes :

Is returned to the calling routine if this initialization
sequence was executed successfully.

;

4355

4358

| Side Effects :

2%2?

;

Any DM code that might have been running in the DM machine will be

4362

Any outstanding commands or response pertaining to a process using

H
:

4365
4366

:
3

zggg
4359

4363
6364

4367

2%98

:
:

2
:
3
:
:
:

4368

4371

4372

4373
4374
4375
4376
4377
4378

;

returned to the callng routine if this initialization

sequence was not executed successfully.

aborted.

!
==

the controller will be lost.

begin
local

TEMP : word;

!
!
!
!
!
;

The

host

ins

!Temporary storage location
the

initialization

sequence

either by
1ssuing a bus init or by writi
any value into the IP register;
the port mus
guarantee that the host will rea? zeros in SA
on the next bus cycle.
Initialization then
sequences _ through steps 1-4 as per UQSSP.DOC
Vversion 1.5.

SEQ 245

CZRCHS
CZRCH RC2S DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS
3

4380

! Write

the

11=Jul=1983

16:06:44
7-Jul-198g 08:24:58

IP register and

4381

! sequence going.

;
:

2%%;
4386

WRT_RC25 (RCIP, ONES);
'+

4388

! initialization sequence described above.

The

and_stands

for

3
3

;

(387

4389

4390

2%3;

! This incr loop performs all four steps of the
! SA

write

! structure

and

read

data is preset into the

ISD_STRUCT

; “Initialization Sequence Data_STRUCT''.

4393

4395
4396

! invoking this routine will take the necessary
! retry procedure. A return code of failure is

4394

2%3;

5 returned.

4399

i If

4405

incru SEQ_NO from STEP1 to STEP4 do

;
;

2288
4410

22}2

;
;

22}2
4417

PRINTB (.EMSG_STRUCT [MSG101);

4419

end;

:
3

:
:

4400
228}

4N
4612

VIt

a steg

time

out error occures the test

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.

Do the four init seq steps

% wait for the controller to Lload the SA reg up with the step data.
'

if IS_TIMER (.SEQ_NO)
then
?egin

'Did the Controller time out

| DO SOME STAT TABLE UP DATA TO SHOW THE TIME OUT

4418

return FAILURE;

'Notify DRS> init of the failure

4420
421
4422
4423
2zgg

!
! The controller did not time out so read the SA register
! for the expected steg data and compare it to the gocd
! data stored in ISD_STRUCT.

4426

i If the read SA data is not what we expect then

4429

! Note *hat the reserved fields read in the SA register are

223}

! to the expected data stored in the structure

:
:
3

225;

4430

22%2

4435

4436

;

failure code.

return a

! or'ed with all ones to mask out the field before coagareg

“‘ISD_STRUCT".

TEMP = ((.RC25_ADDR [RCSA, RC_ALL)) or (.RSVD_STRUCT [.SEQ_NO)));
if .TEMP nequ .ISD_STRUCT [.SEQ_NO, ISRD, ISR_ALLJ

then

SEQ 246

Page 81
SPIDERSUSERS
: [NEALE .AZTECJCZRCHS5.B816;3
(23)

!Begin init sequence

3
:

VAX=11 Bliss=16 V3=555

start the init

!Compare read to expected

CZRCHS
CZRCH RC2S DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS

11=Jul=1983

16:06:44
7=Jul=1983 08:24:58

VAX=11 Bliss=16 V3=555

SPIDERSUSERS [NEALE .AZTECICZRCHS. 816.3(23)82

4439

' Load some satistical table up with some dat2 to indicate that the

:
:
:

4442
4443
L4464

PRINTB (.EMSG_STRUCT [MSG111);
return FAILURE;
end;

222?

4445
4446
222;

4449

:
:

: init sequence had some trouble.

'Return a failure code

: If this is step four then print this u-code version number.

222?

if .SEQ_NO eqlu STEP4 then PRINTB (FMT4, .RC25_ADDR [RCSA, S4R_VER]);

4452

3
:

4453
222'5‘

i This step read data is what we expected so write the SA register
: with this steps write data stored in ISD_STRUCT.

:
3

4456
4457

WRT_RC25 (RCSA, .ISD_STRUCT [.SEQ_NO, ISWRT, ISW_ALL));
end;

222(1)

$
3

rrt:
L4642

: The controller initialization sequence was done successfully so return a success code.

return SUCCESS:

4463

end;

004167

0000006

B800T. RCZS

000004 024646
000006 012700 177777
000012 010077 000000G

CHP
MOV
MOV

000000

000016
000020
000022

005002
010;46

004767

000026 005726

000030
000032

000034
000040
000044
000046
000050
000052

103007

016746
012746
010600
104414
000427
016700

177504

006300

016603

000104

006301

000112

001410

000074

056003

000100
010201
000102 006301
000106

020361

1$:

0000246
000001

000000G

000056 016066 000002 000002

000066

sam

CLR
MOV
JSR

000002

000000G

C000000G

2%:

BOOT.RC25 MODULE DECLARATIONS

R1,$SAVE3

-(SP) =-(SP)
#-1.R
g.aRCZS.ADDR
1]
R2,.=(SP)

PC,IS.TIMER

BCC

ROR

000C64 010200
000070

SEO 247

4323

; *,RCSM.REG

4384

: SEQ.NO
: SEQ.NO,*

4405
&N

4417

: RCSM.REG,*

fi)+

MOV
MOV
MOV
TRAP
BR
MOV

EMSG.STRUCT+24,-(SP)
#1,-(SP)
SP,RO
14
3s
RC25.ADDR,RO

MOV

R2,RO’

: SEQ.NO,*

MOV

2(SP) ,R3

3 RCSS REG,TEMP

ASL

MOV
ASL

BIS

MOV
ASL

(MP

BEQ

2 RO),2(f'

RSVD.STRUCT(RO) ,R3

R2,R1
R1

R3,ISD.STRUCT(R1)
4%

: SP,»
3
3

: * ,RC$S.REG
EMP
;3 séoNO,
¢

: TEMP,»

4411
4433

4435

11=Jul=198
7=Jul=198

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

0000266
000001

0000006
000002

000006

0000026

0000006
000002

5%:

: SP,¢

R2.43
5%
RC25.ADDR,RO

s SEQ.NO,*

(SP) ,=(SP)

: RCSS.REG,*

000001

6$:
7%:

,R1
15D, STRUCT+2(R1)

: *,RCSM.REG

RC25.ADDR,RO
R1,2(R0O)
R2
R2,43
$
#1,R0
b3
RO
(SP)+,(SP)+
PC

4464

4437

4450

: *,RC$S.REG

: SP,»

1%
#6,5P

Routine Base: ACSCODE + 7050
; Routine Size: 80 words,
11 words
; Maximum stack depth per invocation:
3

4435

SP.RO

~N¥®y —

000003

4442

S:.RO
1
(gp,.,(sp,.

#177760, (SP)

177760
000000G
000002

SEQ 248

Page 83
VAX=11 Bliss=16 V3=555
3 (23)
ERS
.AZTECICZRCH5.B16;
: [NEALE SUS
SPIDER

2(R0), (SP)

o222

2 PNONIN) = O

FSX

4$:

16:06:44
08:24:58

EMSG.STRUCT+26,=(SP)

#1,-(SP)

3s:

000003

; RCSM.REG,*

4456

: SEQ.NO

4405

4366

4323

*
SEQ.NO,

CZRCHS
CZRCH RC25 DISK FORMATTER
REV
A PATCH 00 hOOULE
DECLARATIONS

11=Jul=1983

'Inits DUP Protocol commumication area

;

2282

4467

16:06:44
7=Jul=198 08:32:58

global routine INIT_COM_AREA =

4468

! Functional Description :

472

plished by the port before proceeding.

4675

I1f the port did its part of the protocol then the communic=

;

478

1. Defines from the contigious data storage structure

4480 !

address and the send ring address (these structures

2232

:
3

3
3
:

4469
22;?

22;2
22;9

4679

!
:

After initialization step 3 the port controller clears out
the communication area's ring buffers.

This routine first makes sure that this protocol is accom=

ations

area is initialized as follows:

“COM_AREA''

the

address,

area

header

receive ring

46481
4482

!
!

4485

2. Clears

4488

3. Loads the receive and send descriptors with the values:

3
:
3

4690
4691
223%

!
!
:

449%

4. Load the receive envelope message length field with the

4497

S. Initialize the OutSstanding command buffer to reflect

4500

| Formal Parameters :

4502

3
3

:
3

2239
4489

2:82
2233
4501

are initially declared as reference structures and
require an address to be defined as its value per

BLISS language conventions).

;
!

;
;

(ring

2;?8

;

!
!

The communication area as a result of this routine will be initialized
for host pco?ran to remote program communications per DUP and

UQSSP specifications.

4511

4515

22;9

;

4518

| Side Effects :

4521

4519
4520

high and Q_bus address

! Implicit Inputs :
:
HEAD_AREA, RECEIVE_RING, SEND_RING, COM_AREA

2
:

purge

"HEAD_AREA'.

none

| Implicit Outputs :

defined as

that all slots are unused.

4506

4512
22}2

indicators and adaptor

buffer size in bytes.

:
:

interrupt_

=1, =2, =3, =4)

b. Reserved field
bit
c. Flag
d. Ownership bit

4503
ggg

4507
4508

the

base

a. Envelope low,

:
:

:
2

Page
SPIDERSUSERS
: (NEALE .AZTECICZRCH5.816;3
(24)

14e

:
S

VAX=11 Bliss=16 V3-555

i Completion Codes :
!
;

!
==

TRUE:

Error code to indicate the pert controller has
not fullfilled its part of the DUP protocol.

FALSE:

An error

none

code to

has fullfilled its

indicate the port controller
part of

the DUP

protocol.

SEQ 249

17=Jul=198
-Jul= 198

CZRCH
S
CZRCH RC25S DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS
:

4522

begin

4524

4528

i an error code of true.

3
:
:

‘

(523

4525
4526
4527

VAX=

i Make sure that the controller has done its part of
i the DUP protocol by clearing out the ring buffers.
! If the rings are not cleared out then return with

22;}

incru i 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

S
:

4535
4536

;

! Test this word for zeros.
If not zeros then exif
! this routine with an ‘‘communication area init

2;%;

; error

4539

code

indicate the Protocol violation.

222?

4542

:
:

4545
4546

i RECEIVE _RING and SEND RlNG fron the contigious
i storage declared by COM_AR

:
:

4543
6544

4547

if .COM_AREA [.i, .j, WORD_REF] nequ ZERO then return CIE_CODE;
i The port did its part of the protocol so now
! define the address locations of the HEAD_AREA,

4548

4549

HEAD_AREA = COM_AR

'Define the Header area

4550
2;2;

SEND_RIRG = COM_AREA [SND_BASE];

'Define the send ring area

:
:

4553
4554

i
i Not quite sure if the port has to clear out

2;29

: so

:
3

4555

RECEIVE _RING = ton AREA [REC_BASE];
i the

clear it

out

here

just in case.

4558

4559
2;2?

incru i from WRDO to WRD3
d
HEAD_AREA [.i, WORD REFJ ZEROS;

4562

‘e

4564

i define

4563

4565

2;2;

4568

4572

:
:
:

4569
4570
457

4573

i Load up the Send Ringdescrfptors with an envelope eddress.

the ‘7leg

i the ‘ODwnership

'High-order portion of an 18=bit U/Q bus adrs

[.i, DSRSVD]

'Reserved field

SEND_RING

23;9

SE:D_RING

SEND_RING

end;

4578

adress for all sys

[.i, m,em = 2ERD;

envel

SEND"RING

SEND_RING

define

and {oad the

incru i from 0 to SND_ALLOCATE - 1 do
bezgn
SEND_RING [.i, LO_ENSAD) = SND_ENVELOPE [.i, CMD_LREF); !Low-order

4574

4575

to = 1 (interrupt requested),

bit"* to = 0 (owned by host)

§ Reserved fieldwith 2eros (per DUP spec).

'Define the receive ring area

heeder area of the conmunications area

I'LL

:
:

11 Bliss=16 v3=555

[.i, 08 Extg = IERO:

= ZERO;

L[.i, FLAG BIT] = SE?_!LG-

.1, OWN_BIT) = NOSY_OUNED:

SEO230

ss=16
V3~
SPIDERSUSERS
[NEALE.AZTECICZRCHS.
816 3 (24)

'0_bus extention

e? it whose meaning varies depending on dsc state

!lnd cates whether dsc is host or port owned

CZRCHS
CZRCH RC25 DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS

11=Jul=1983

16:06:44
7-Jul-19sg 03:32:58

:
:
3
3
S

4579
4580
4581
4582
2;32

‘e
! Load up the Receive Ring descriptors with an envelope
! address, define the 'Ownership bit' = 1 (owned by port),
! define the ‘Flag bit' to = 1 (Interrupts requested) and
: the reserved field set to zeros (per DUP spec).

:
:
:

4585
4586
4587

incru i from 0 to REC_ALLOCATE = 1 do
begin

:
:
:

4590
4591
4592

S
:

;

:
:
:
3

4588
4589

RECEIVE_RING
RECEIVE_RING

VAX=11 Bliss=16 V3-555

SPIDERSUSERS
: [NEALE .AZTECJICZRCHS .B16:g°$24)

[.i, LO_ENSAD] = REC_ENVELOPE [.i, CMD_LREFJ;
[.i, HIZENSAD] = ZERDS;

RECEIVE_RING [.i, QB_EXT) = ZEROS;
RECEIVE_RING [.i, DSRSVD] = ZERDS;
RECEIVE_RING [.i, FLAG BIT] = SET_FLG;

4593

RECEIVE-RING [.i, OWN_BIT) = PORTZOWNED;

4594
4595
4596
223;

4
E Reset the communications area pointer to their initial state.

4599

NRD_SLOT = =1;

!Start ring pointer at 2ero

228}

NXT_CRN = ZERO;

!Start unique ¢md ref num at one

:
3
3

4600
4603
4604
2282

4607

end;

NSD_SLOT = =1;

!Start ring pointer at zero

'+
! Set the response envelope message length size equal
5 to the buffer size in bytes starting at text + 0.

4608

incru i from 0 to REC_ALLOCATE - 1 do

4611

‘e

:
:
:

4613
4614
22}2

!
'
;

22?8

4612

4617

4618

:
:
3

4620
4621
4622

H
:
:

4619

4623
4624
2252
4627

4628

REC_ENVELOPE [.7, MSG_LENGTH] = RB_SIZE+2;

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

incru i frem 0 to REC_ALLOCATE = 1 do
be?in

OUTSSTD_BUF [.i, CMD_WRDJ = 20'100000*;
OUTSSTD_BUF [.i, ENV_ADR] = ZERO;
end;

!Define the slot as unused
!Clear out the envelope adrs field
:

:
; No errors detected by this routine so return with an non-error code of false.
return PAS_CODE;
end;

000000

004167

0000006

000004
000010

012701
005002

C00004

PSEO 23;

.SBTTL INIT.COM.AREA MODULE DECLARATIONS
INIT.COM.AREA::
JSR
R1,$SAVE3
:
MOV
#6,R1
: 0l
1$:
CLR
R2
i J

CZRCHS

REV A PATCH 00

11=Jul-198
7=Jul=198

CZRCH RC25 DISK FORMATTER

MODULE DECLARATIONS

2$:

010100
060200

&
16:06:44

08:24:58

R1.RO
R2.RO
RO

SEQ 252

nge 87
VAX=11 Bliss=16 V3=555
(24)
;3
ERS
RCHS5.B16
.AZTECICZ
SUS
: [NEALE
SPIDER

s 1.

4540

s J

4533

s vl

4531

H
3
s
: 1
s I.»

4549
4550
4551
4559
4560

HEH|

4559

3 1
s 1,

4569
4571

s Jo®

Cgfl.AREA(RO)

000001

3s:

J.*

#COM.AREA,
HEAD . AREA
#COM.AREA+10,RECE IVE.RING

0000306 0000006

:8on.Anenoso.seuo.axnc
4($:

H P

PC,BLSMUL
#SND . ENVELOPE
+4 ,RO
RO, (R2)
R1.RO

4572

3
:
3 1

4576
4570
4569

3 1
A

4586
4588

#2.R0

#40000, (RO)

040000

(SP)+,(SP)+
R

000003

6%:

0000006

000077
0000046

s l.n

R1.R2
SEND.RING,R2
R3,=(SP)

SEND.RING,RO

28
ii.. 8 &

NWORO

4
R3
R3,R1
R
R1

#54 ,-(SP)

000054
0000006
0000046

83g2gs2 SS8 SRnRE
£3 33888RXRRN gs 8

(=1

prQrd

5$:

0100
01

RO,R1
HEAD.AREA,R1
(R1)

#2.R0

000002
000006

20
000222

s 1,®

0000106 000

J3XRBR

sEszasssnssseaessennensensenunas
S rNSRS
RS RKS

X RRNFNORRUSNRS

000002
000022

.81
R

R1
R1
R1,R3

RECEIVE.RING,R3

R2.RO

RO
RO

#77.R0

0RE5.§~V£LOPEO6.R0
RO, (R3)

4589

1
CZRCHS
REV A PATCH 00

000256

TPSLCI983 08:28:58

CZRCH_RC25 DISK FORMATTER

MODULE DECLARATIONS

#2.R

000003

R2,4#3
6
#=1,NRD. SLOT

177777
177777

0000006
0000006

000074
000100
000300

0000006

100000 0000006
0000026
000004
000014

SEQ 253
88

4593
4586

7%:

8s:

MOV

,9‘ REC . ENVELOPE (RO)

#100,R0
RO, #3500

BUF +2(R0)
OUTSSTD.

#4 R0
RO.#14

end
eludom

0TS external referenc es
.GLOBL $SAVEL, SSAVE3, SSAVEZ2, BLSMUL
PSECT SUMMARY

ACSCODE

words
2019

Attributes
RO,
I
.,

LCL,

REL,

CON

LIBRARY STATISTICS
File

SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16;5

«(
I
|

#-100000,0UT$STD
. BUF (RO)

Routine Base:
ACSCODE + 7310
: Routine Size: 127 words
7
words
invocation:
; Maximum stack depth per

Psect Name

4599
4600
4601
4608

#=1.NSD.SLOT
=xr.can

RTS

4629
4630

[

S; 3(24)
RCHS.B16
SER
[NEALE AZTECICZ
¥P IDE:RSU

ztloooo.(ao)

140000

062700
020027

AX=11 Bliss=16 V3=555

ascsave.axuc.ao

000002

0000006

Total

Loaded

Percent

Read

398

278

4609

4608
4618

4620
4621
4618
4522

4465

CZRCHS
CZRCH RC2S DISK FORMATTER
REV
A PATCH 00 MODULE
DECLARATIONS

COMMAND QUALIFIERS

:
:

BLISS /PDP11/LIST CZRCHS5.B16

; Size:

Run Time:

: Elapsed Time:
Memory

Used:

2019 code + 0 data words
01:27.2

01:52.4

267 pages

: Compilation Complete

1M=Jul=1983

16:06:44
7-Jul-l9g§ 03:32=sa

SSO 254

SPIDERSUSERS: [NEALE .AZTECICZRCH5.816;;(24)

VAX=11 Bliss=16 V3=555

11-Jul-'98§ 16:08:39
7=Jul=i98 08:26:05

— i
)
(W IV ]V ]
W

ERRIRRY R

D e e D
i d D ) D D
ViAW
W

) D

)

) b

) =

d —d

) D —d e

d D b b
Vi

OO S S8 2 AR SRS Ogo-._.-o-a-o-.-a
VIOV
S W
=00
~

88888883288ggges

CZRCH RC25 DISK FORMATTER
MODULE CZRCHW?

VAX=11 Bliss=16 V3-555
SPIDERSUSERS
: [NEALE .AZTEC

(XTITLE *CZRCH RC25 DISK FORMATTER®
IDENT = "REV A PATCH 00°

ADDRESSING_MODE (RELATIVE),
ENVIRONMENT (NOEIS)) =

BEGIN

?SBTTL "LAST ADDRESS AND SETUP SECTION'
Pretty Declarations

§<blfllouercase-key>
LIBRARY °*CZRCHO';

'Define RC25 Formatter library

REQUIRE °'BLSMAC.REQ’;

'Define BLiss macro require file

‘e

! The LASTAD macro must be the final statement (except .end) in

pro-

gram.
The call generates an even address reflecting the first word of
memory unused by the program.

LASTAD
'+

Hardcoded P-TABLES

These optional hardware P-TABLES are located

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

If 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

SEQ 255

]CIRCH7.816:20?1)

CZRCH?7

LAST ADDRESS AND SETUP SECTION

3
3
3
:
3

1546
1547
1548
1549
}gg?

!
!
!~

1552

;

1555 ENDSETUP

11=Jul -1983 16:08:39
7=Jul =19

83 03:26:05

CZRCH RC25S DISK FORMATTER

REV A PATCH 00

ENDSETUP
END

' No optional P_Tables are defined
: within this program.

ClRCH? CZRCH R €25 DISK FORMATTER

.TITLE
«IDENT

000000

000004°
000000C
000000

PSECT
BLSLAS:
: .WORD
.WORD
TSFREE
: : .WORD

000004 "
000000

LSLAST==
TSPiHV==

000207

.SBTTL
SEND.LINK::

: Routine Size:

1 word,

$XvZ$,
RO
TSFREE
8<7$FREE-<BLSLA$04>>/2>

BLSLAS+4
0
SEND.LINK LAST ADDRESS AND SETUP SECTION

Routine Base:

0 words

1504

$XYZ$ ¢+ 0006

END
ELUDOM

PSECT SUMMARY

/REV
A

RTS

: Maximum stack depth per invocation:
1556
1557

Psect Name
$xyZ$

SEO 256

SPIDERSUSERS:[NEALE .AZTECICZRCH?. 816.2 (1)
VAX=11 Bliss=16 V3=555

BGNS&TUP (0);

}ggz

000000
000000
000002
00000&

words

Attr ibutes
R 0.

REL,

LCL,

CON

LIBRARY STATISTICS
s

File

SPIDERSUSERS
: [NEALE .AZTECICZRCHO.L16;5

T sT G e

Total

Loaded

Percent

398

Blocks

Read

né

CZRCH?7
CZRCH RC2S DISK FORMATTER
REV
A PATCH 00 LAST
ADDRESS AND SETUP SECTION

3
3

11=Jul=1983

16:08:39
7=Jul=798 03:26:05

COMMAND QUALIFIERS
BLISS /PDP11/LIST CZRCH7.B16

1 code + 3 data words

; Size:

: Run Time:

00:06.4

: Elapsed Time:
00:08.5
: Memory Used:
99 pages
: Compilation Complete
CZRCHA.EXE
Memory allocation map TKB M&0.02
11=JUL=-83
16:09

Page 1

Partition name : DUMMY

Identification : REV A
Task VIC
: [300,12]
Task attributes: =HD
Total address windows: 1.

Task image size
: 15552. words
Task address Limits: 002000 076577
R-W disk blk Limits: 000002 000076 000075 00061.
+*++ Root segment: CZRCH2
R/W mem Limits: 002000 076577 074600 31104.
Disk blk Limits: 000002 000076 000075 00061.
Memory allocation synopsis:

Section
. BLK.:(RW,I,LCL,REL,CON)
AASCOD: (RO, I,LCL,REL,.CON)

ABSCOD: (RO, I,LCL,REL,CON)
ACSCOD: (RO, I,LCL,REL,CON)

ADSCOD: (RO, I,LCL . REL,CON)

BLSCOD: (RO, I,LCL,REL,.CON)
‘

$DMCOD: (RO, D,(BL ,REL ,CON)
$GLOBS: (RO,D,GBL ,REL ,CON)
$PLITS:(RO,D,GBL ,REL ,CON)
$xv2$ :(RO,I,LCL,REL,CON)

Title

ldent

File

CZRCH2
CZRCH3

REV A
REV A

CZRCHZ2.0B8J:1
CZRCH3.08J;1

CZRCH4 REV A

CZRCH4.08BJ;1

CZRCHS REV A

CZRCHS5.08J;1

CZRCH6 REV A

CZRCH6.08J;1

015560 000316 00208. B16MUL v3.0
16076 oogios
70. B16SAV V3.0
1604 82 57
84.

NEISLB.OLB:4
NEISLB.OLB;4

002000 000000 00000.
002000 001336 00734.
002000 000166 00118.
002166 001150 00616.
003336 002312 01226.
003336 002312 01226.
005650 007706 04038.
005650 007706 04038.
015556 00000% 00005.
015528 000002 00002.

015560

162

000424 00276.

2570 17784. CZRCH6 REV A

060774 882556 813 .
060774
5556 1388. CZRCH2 REV A
063558 013016 85646.
063550 013016
05646. CZRCH2 REV A
076566
010 00008.
076566
10 00008. CZRCH7 REV A

CZRCH6.0BJ;1

CZRCH2.08J;1

CZRCH2.0BJ;1
CZRCH7.08J:1

SEQ 257
Page
3
VAX=11 Bliss=16 Vv3-555
TECICZRCH7.B16;2 (1)

SPIDERSUSERS
: [NEALE .AZ

ABORT 010474~R
ABO.MS 075204=R

ACTIVE 075640-R
AZFMTR 016204=R
BLSDIV 016004=R
BLSLAS 076566-R
BLSMOD 016016=R
BLSMUL 015560-R
BLSSHF 016030-R

BOOT.F
BOOT.R

075434~R
014720-R

BR.LEV
351 =R
COM.AR 060774=R
CRLF
416=R
CTO.WA 010264=R
DATETX 93“ =R
DATMSG 075012-R
DECODE 006254=R

DFPTBL 002140-R
DMSA
16244=R
DUMMY
01 58°R
Dg:‘l.
40-R
DSPCNT g 1 8-!!
EMSG.S
430-R
ERRBLK
134=2
ERRMSG 002132-R
ERRNBR 002130-R

ERRTYP
EX.LOC

002126=R
011706=R

EX.SUP 11; =R
FCT.BU
061732-R
FCT.RE
016=R
FLG.WR 06 62 R
FMTI
63550-R
FMT?
63556=R
FMT3
063646-R

FMT4
FMT5

3754-R
lo?lo =R
FMT
50-R
FMT
6%66-&
GET.CM
8
=R
GET.DU
772=R
GET.NR 006046=R
GET.NS 006020-R
GOOD.N 075342-R

GPS$1
GP;;

52=R
=R

GP
0
=R
GP
0
-R
GP$5
02322-R
HDSA
16204=R
HEAD.A 061044-R
HW.BR. 002144=-R
HW.IP. 002140-R

LSLADP 002026-R
LSLAST 076572-R
LSLOAD 002100-R
LSLUN 002074=-R
LSMREV 002050-R
000-R
L SNAME

LSHPCP 002016=R

LSPRIO 002042-R

«++ Task builder statistics:

Total work file references: 15216.
Work
file reads: 0.
Work
file writes: 0.
Size of core pool: 5486. words (21. pages)

Size of work file 2304. words (9. pages)

Elapsed time: 00:00:14

LSTEST 002114-R
LSTIML 002014-R
LSUNIT 002012-R
MSGADR 062734-R

61046-R

SW.02. 076332-R

076422-R
c.8U 2733 SW.Q3.
SW.04. 076506-R
DD

RECEI

002

02
LSPRT
LSREPP 002
SREV
002

R
)

LSPROT

LSHPTP 00 02 °R
tSHRDL
0022

mmme
-022)
883
1 8]

LSACP 002110-R
LSAPT 002036-R
LSAU_
003326-R
LSAUT 002070-R
LSAUTO 003250-R
LSCCP 002106-R
LSCLEA 003302-R
L$CO
002032-R
LSDEPO 002011-R
LSDESC 002166-R
LSDESP 002076-R
LSDEVP 002060-R

LSDISP 002124=R

ISD.ST 063530-R
IS.TIM 014452-R

Page 2

DD 20D

TKB M40.02
Memory allocotion ma g
11=JuL-83

—mm mmm
— = (alala]

CZRCHA.EXE
CZRCH2

SEQ 258

SW.UNA 002154=R
T0.MAN 075294-R
TSFREE 076572-R
TSPTHV 000000
005634-R
T
UNIT.N 063514-R
VEC.AD 063510-R
422-R
XCRLF
SEND.L 076574=R
$SAVE

PWR.MS

RC.STR 073764=R

RC25.A 063506=R

SND.BU 063312-R

SND.EN 061452-R
SW.Q1. 076266=-R

$SAVES 016112-R
$SAVES 016130-R
$SAVES 016150-R

C
CZRCHA

CREATED BY

TkB

ON 11=JUL=83 AT 16:09

CREF

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

ABORT
ABO.MS
ACTIVE

010474=R

REFERENCES...

CIRCH4

# CZRCH2
# CZIRCH
. g{RCH

" CZRCH#
# B16MUL

RCH3

CZRCH

CZRCH5

# CZRCH6

CZRCHS5

# CZRCH2

CZRCHé
# CZRCHS
CZRCH3
CZRCHS
CZRCH3

CZRCHG

CZRCH3
CZRCH3
CZRCHG

# CIRCHS

CZRCH4
# CZRCH2
# CZRCHZ
# CZRCHZ
# CZRCHS
# CZRCH2
# CZRCH
CZRCH
# CZRCH

CZRCHS

# CZRCH6

CZRCHG

# CZRCHS

# CZRCH6

# CZRCH2
# CZRCH2
# CZIRCH
# CZRCH

# CZRCHZ
# CZRCH2

CZRCH4
CZRCH4

# CZRCH2
# CZRC

# CZRCH
# CZRCHZ
# CZRCH2
# CZRCH2
# CZRCHZ
# CIRCH
# CZRCH
# CZRCH

# CZRCH

CZRCH&

# CZRCHS
# CZRCHS
# CZRCH
# CZRCH
# CIRCH
# CZRCH

# CZRCH
# CZRCH

061044=-R

# CZRCHS

# B16MUL
# B16MUL

CZRCHS

# CZRCH2

PAGE 1

CZRCH5

# CZRCHS
# CZRCHS
CZRCHé
CZRC

CZRCH3

CZRC

CZRCH3
CZRCH3
CZRCH5
CZRCH4
CZRCHG
CZRCHG

# CZRCHS
CZRCH3

# CZRC

CZRCH

CZRCHG

Vo1

SEQ 259

CZRCHA

CREATED BY

TkB

ON 11=JUL=83 AT 16:09

PAGE 2
CREF

GLOBAL CROSS REFERENCE

VALUE

REFERENCES...

002144-R
002140-R

CZRCH3
CZRCH3
CZRCH3
CZRCH3
CZRCH4
# CZRCH5
# CZRCHS

CZRCH3

CZRCHG

# CZRCHS

CZRCH3
# CZRCH3

# CZRCH3
# CIRCH3
# CZRCH3

CZRCHS
# CZRCH3

# CZRCH3

002026-R

# CIRCH2

# CZRCH3

CZRCHé

SEQ 260

CZRCHS

vot

CZRCHA

CREATED BY

TkB

ON 11=JUL=-83 AT 16:09

GLOBAL CROSS REFERENCE
VALUE

REFERENCES...

LSLAST

076572-R
100-R

CZRCH2
r4
4

# CZRCHW?

C IRCH2

# CZRCH3

CZRCH%

# CZRCH3

# CZRCHZ

CZRCH3

# CZRCH

CZRCH4

CZRCHS

CZRCHé4

CZRCHS

LSMREV
L
LSNDHR
LSNDIW
LSNDSF
LSNDSW
LSPRIO
LSPROT
LSPRT

002050-R
002
002316-R
002150-R
002330-R
002156-R
002
0021
002112-R

L
# CZRCH2
s CZRCH
= CZRCH
* CZRCH
7 CZRCH
* CZRC
* CZRCH
¥ CZRCH
- EZRCNZ
&
“ C
2

#
#

PAGE 3
CREF

SYMBOL

¥
#
&
+
I3
B

NEX.FL

063464-R

# CZRCH

# CZRCHZ

# CZRCHZ
# CZRCH2

064314-R
063476-R
075564-R
075516-R
063516-R

075122-R
073764-R
063506~-R
061046-R
062732-R
60-R
~

z CZRCH
4 CZRC
B CZRC
* CZRC

¥ CZRCH

CZRCH
# CZRC:S
& CZRC
B CZRC
& CZRCH
CZRCHG
w

052-R ’
& CIRCHZ
3444

.3
i

REC.DA

063466-R
0664

822882
i

SA
PFE.ST
PID.FM
PID.SA
PORT.I
PROTO.
PTBL.P
PUR.MS
RC.STR
RC25.A
RECEIV
REC.BU

CZRCHG
z CZRC
CZRCH
¥ CZRCHZ

=
’
&

CZRCH2

CZRCH&

CZRCH3
CZRCHé
CZRCHé

# CZRCHS
CZRCHS
CZRCH3
CZRCH5
CZRCHS
CZRCHé
CZRCHé
CZRCHé

CZRCH3
CZRCH3
CZRCH5
CZRCH
CZRCH
CZRCHé
& CZRCHS

CZRCHS
CIRCH&
CZRCHG

CZRCHS

CZRCHS
CZRCHS

CZRCHG
CZRCHG

CZRCHS

SEQ 261

CZRCHS

vO01

CZRCHA

CREATED BY

TkB

ON 11=JUL=83 AT 16:09

PAGE &
CREF

CROSS REFERENCE
VALUE

074316-R
012220-R
061050-R
013520-R
002154=R
074760-R
063512-R
061452-R
076266-R
076332-R
076422-R
076506-R
002154=R
075264-R
076572-R
000000
005634=R

REFERENCES...

# CZRCH2
CZRCHG
# CZRCH2
CZRCHG
# CZRCH2
# CZRCH
# CZRCH2
# CZRCH2
# CZRCHZ
# CZRCH2
# CZRCH
# CZRCHZ
# CZRCHZ
# CZRCH

CZRCHS
# CZRCH5

CZRCH2
CZRCH2

# CIRCW7
# CZRCH4

# CZRCH

CZRCH5
CZRCHé
CZRCHS
CZRCH3
CZRCH3
CZRCH3
CZRCH3
CZRCH3
CZRCH3

CZRCHS

CZRCH3
CZRCH3
CZRCH3

CZRCH4
CZRCHé

B16MUL

# B16SAV

# B16SAV
BI6MUL

CZRCHS
# B16SAV

CZRCHS
CZRCH5

# CZRCHZ
# CZRCHZ
# CIRCH
# CIRCH

30-R
016150-R

CZRCHS

# CZRCHS

# B16SAV

CZRCHé

CZRCHS
CZRCHS

SEQ 262