Digital PDFs

AH-T271C-MC

July 1985

419 pages

Original

188MB

view download

OCR Version

243MB

view download

Document:	CZRCFC0 RC25 RC25 FR END TEST JUL 1985 bw
Order Number:	AH-T271C-MC
Revision:	000
Pages:	419
Original Filename:	CZRCFC0__RC25__RC25_FR_END_TEST__AH-T271C-MC__JUL_1985_gray.pdf

OCR Text

RC25 FR END TEST

CZRCFCO

AH-T271C-MC

10F3

JUL 1985

H :

RC25 FR END TEST

CZRCFCO

AH-T271C-MC

20F3

JUL 1985

: COPYR'GHT? 1983-;5

MADE IN USA

b!u

MODUWLE AZTECO ( =
D&ht CIRCF'Cg
RC2S FR END TEST'

MSSIM MODE' (RELATIVE))=

BEGIN
LIBRMY ‘Lbr.ry

REQUIRE

l?B‘"L

Q'3

'USER DOCU‘ENTA?IW‘

IDENTIFICATION
PRODUCT CODE:

AC-T270C-MC

PRODUCT NAME:

CZRCFCO RC25 FR END TEST

PRODUCT DATE:

MARCH 29,

MAINTAINER:
AUTHOR:

SMALL

1985

STORAGE ENGINEERING

SING LAKSHMANAN

THE _INFORMATION IN THIS DOCUMENT IS
SUBJECT
TO_
CHANGE WITHOUT
NOTICE
AND
SHOULD
NOT BE _CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

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

THE
USE
SUPPLIED

OR
B8Y

RELIABILITY
OF
DIGITAL
OR ITS

DIGITAL
DEC

PDP

DECUS

UNIBUS

DECTAPE

MASSBUS

SEQ@ 000

4|
SEQ 0002

VAWNKLO

AM_ABSTRACT

SYS EM REOUIRCP?NTS
RELATED
UMENTS AND STANDARDS
DIAGNOSTIC

ASSUMPTIONS

HMIERARCHY PREREQUISITES

OPERATING INSTRUCTIONS

COMMANDS

ERROR INFORMATION

PERFORMANCE AND PROGRESS REPORTS

SHI‘ICO'ES
FLAGS
HARDHME QUESTIONS
SOF TWARE QUESTIONS
EXTENDED P-TABLE DIALOGUE
QUICK STARTUP PROCEDURE

DEVICE INFORMATION TABLES

NOVAUWNKFD

GE'ERIL INFORMATION

TEST

©O

NN
N

e
s e e

TABLE OF CONTENTS

MAINTENANCE HISTORY

SUMMARIES

1.0 GENERAL INFORMATION
1.1

SEQ 0003

PROGRAM ABSTRACT

The aztec front-end host diegnostic

:zot.ztoc disik drive subsystem.,
et:

is @ diegnostic

progrem to

Tests ere pcrfornoz gg vori?y

test

The processor cen properly communicate with the aztec

The sztec cen seek and head select properly.

c.
d.

through the adapter card.

The sztec conforms to the specified seek and

rotational times.

The sztec cen perform certain basic functions

response to mecp commends.

The sztec front-end/host disgnostic consists
of one progrem thet runs
in_the host processor

and progrems that run

buffer memory through en
which resides

the sztec controller’'s

interpreter celled the “diegnostic mechine”

in the sztec.

The

host processor progrem will be

respoisible for testing the aztec adepter, testing some of the drive

functions, downline losding the “disgnostic machine” progrems into
the sztec and sterting their execution.
When the “diesgnostic
wmechine” progrems are running, they will control the testing by
requesting the
host processor to supply informetion end print error

messages.
The “diegnostic machine” progrems will
processor when 8 test is complete.

inform the

Up to four (4) sztec controllers with one or two spindles each may
be selected for test by this diesgnostic.

One sztec "unit” is defined os o single platter.
There are two
latters on one spindle in en aztec
drive.
An aztec controller may
eve either one or two drives (two or four platters).
The unit

numbers for the aztec pletters come in pairs.
The removable media
has an even number end the fixed medie has the sequentially following
odd number.

Softwere parameter gquestions include number of retries in case of
an error,
whether to continue execution after failures, select
seek sreas

in the disk,

select menual

intervention test and

set trace mode.
This diegnostic

is divided

into 6

modules:

module 0 - documentetion
module 1

litersls, format staetements, escii text, .
global detes, hardwere configuration questions
end defasult tebles, software parameter questions
end defeault teble, initializetion code, cleanup

code,

summary report code

El
SEQ 0004

module 2 - global routines

module 3 -

tests 1

- 29

module S - Last eddress end setup section
AZTECO.R16

is @ file containing literels ond field

delaretions used throughout the progrem.
This

diegnostic

the

interfece to

runtime services

This

tepe.

progrem

hes been
software

with the diagnostic

These services provide

the operator end to th? ox;tuorc.onvironncnt.

cen be used with XXDP.,

ACT,

APT,

slide end peper

For a complete description of.&h. runtime services, r,f.r

to the XXDP+ user's

the runtime services

1.2

written for use

(supervisor).

menusl.

There

is @ brief description o

in section 2 of this document.

SYSTEM REQUIREMENTS

PDP-11 Processor
o
28K Words of
memory (minimum)
XXDP+ Load medis
.
One or more sztec disk drive subsystems
Line clock - either type L or P
Console terminel
1.3

RELATED DOCUMENTS AND STANDARDS

AZTEC - RC25S Functional specificetion Rev 5, 3/9/82
Mass storege control protocol (MSCP) (version 1.0)
Unibus/Q-bus storege systems port (version 1.3)
Diegnostics end utilities
protocol (R. Lery, Mey 1981)
Aztec diesgnostic project plan

Diegnostic engineering functional specification for aztec

Resident diegnostics
XXDP+ User's menual

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

The bus, host processor, memory, system clocks and console terminal
ere all essumed to be functioning properly when this diagnostic is
run.
If they are not, the result
of running this progrem is
unpredictable.
1.5

ASSUMPTIONS

An aztec that meets the specifications for diagnostic machine timing

will me2t the specificetions for MSCP timing.
2.0

OPERATING INSTRUCTIONS

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

F1
2.1

COMMANDS

There

eore eleven legal commands for the diegnostic runtime services

This_
section_lists
the commands
end gives
@
very
(supervisor),
brief description of them.
The XXDP+ user’'s manual has more deteil ..

COMMAND

EFFECT

START

Start the disgnostic
from sn initisl state

RESTARTY

Start the diegnostic without initislizing

CONTINUVE

Continue ot test that was interrupted (eofter tC)

PROCEED

Continue from en error halt

EXIT

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

ADD

Activate @ unit for testing (all units ere
considered to be active at start time

DROP

Desctivete & unit

Print stetistical

DISPLAY

Type @ list of all device

FLAGS

Type the stete of all

ZFLAGS

Cleear oll flogs (see section 2.3)

by the diagnostic

information

(if

- section 4.0)

implemented

information

flags (see section 2.3)

A command can be recognized by the first three characters.

So you may,
2.2

for example, type

“STA”

instead

of “START",

SHWITCHES

There are
several
switches which are used to modify supervisor
retion. These
switches are
eppended
to the legal
commands.
All
of
the
legal
switches
are
tasbuleted below with a brief

description of each. In the descriptions below,
is designated by “DDDDD".

a decimal number

SWITCH

EFFECT

/TESTS:LIST

Execute only
those tests specified in
the list.
ist is @ otring of test
numbers, for example - /TESTS:1:5:7-10.

This list will ceause tests 1,5,7,8,9,10 to

be run.,

All other tests will not be run.

/PASS :DDDDD

Execute DDDDD passes (DDDDD =

/FLAGS:FLGS

Set specified flags.
in section 2.3,

/EOP :DDDDD

Report end of pass mess

DDDDD passes only.

1 to 64000)

flags are described
after every

(DDDDD = 1 to 64000)

SEQ 0005

Gl
ZUNITS:LIST

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

Example of switch usage:
START/TESTS:1-5/PASS:1000/E0P:100
The effect of this commend will be:

Tests 1 through S will be executed.

All

units will

The

end of

tested 1000 times.

pess messages will be

printed after each 100 passes only.

A Switch cen be recognized by

may,

for

exemple,

type

the first three characters.

"/TES:1-5"

instead

You

"/TESTS:1-5".

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

TESTS

PASS

FLAGS

EOP

UNITS

START

RESTART

CONTINUE

PROCEED

DROP

ADD
PRINT

DISPLAY

FLAGS

ZFLAGS
EXIT
2.3

FLAGS

Flegs ere used to set up certain operational parameters such as

loopi
on error.
All flags ere cleared at startup and remain
clesred
until explicitly set using the flags switch. Flogs
are
o8lso clesred eafter
o start command unless set using the
flag

switch.

all flegs.

The ZFLAGS

command

nog also

with the exception of the

be used

to clear

START and ZFLAGS commands,

No commands effect the state of the flags;
they remain set or
clesred os specified bty the last flag switch,
FLAG

EFFECT

HOE

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

LOE

Loop on error

IERs

Inhibit all error reports

SEQ 0006

H1
IBR«

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

number,

PC,

test and unit)

IXRe

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

PRI

Direct messages to line printer

PNT

Print test number as test executes

BOE

"BELL" on error

UAM

Unattended mode (no manual

ISR

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

IDR

Inhibit program dropping of units

ADR

Execute autodrop code

LoT

Loop on test

EVL

intervention)

Execute evaluation (on diagnostics which

have evaluation support)

serror messages are described

in section 3.1

See the XXDP+ user's manual for more details on flegs.
You mey
specify
more
then one flag
with the flag switch.
For exsmple,
to

end

ceuse

the

program to

type & “BELL"

oop on error,

on error,

inhibit error reports

you may use the following string:

/FLAGS:LOE:IER:BOE

2.4

HARDWARE QUESTIONS

When &

the
ou

disgnostic

sterted,

the runtime services will prompt-

user for herdware
information by typing “CHANGE HW (L) 2"
must enswer “Y" eafter 8 start command unless the hardware

information

has been

‘“preloaded” using

the setup utility (see

chepter 6 of the XXDP+
user’'s menual). When you answer this
question with 8 "“Y", the runtime services will ask for the number
of wunits (IN
DECIMAL).
You will then be asked the following
questions for each unit.
¢ UNITS (D) ?
Answer wiith the number of units to be tested (no default).

This

enswer will determine how many times the following questions are
esked.
A unit is
a logical disk (single platter) on an aztec.
One to sixteen units mey be specified (maximum configuration of
four controllers with four platters per controller).

SEQ 0007

IP ADDRESS (0) 172150 ?

& |

Answer with the address of the IP register of one sztec controller

es addressed by the processor with memory nono?onont turned off
(i.e., an even 16-bit address in the range of 160000 to 177774.)
VECTOR (0) 154 ?
Answer with the

A vector address

interrupt vector address of the sztec controller.
in the range of 4 to 774 may be specified.

BR LEVEL (D) S?
Answer with the
are accepted.

interrupt priority used by the aztec.

levels 4 to 7

UNIT NUMBER(S) (D) 0 ?
enswer with the physicel platter number(s) for the pletter(s) you wish
to test (NO DEFAULT).
The removable platter is an even number and the
fixed platter

2.5

is the sequentially followng odd number.

SOFTWARE QUESTIONS

After

you have snswered the hardwere gquestions or after a restart

or continue command,
the runtime
parameters.
These paremeters will
operation modes.

services will ask for software
govern some disgnostic specific

You will be prompted by

“CHANGE

SW (L)

?“

if you

wish to ch::ge eny parameters, answer by typing "Y".
The softwere
:::?tson
the default values sre described in the next paragr.

Use top surface for all single surfece tests (L) Y ?
Answer yes to use top surfece for all single surface testing.
snswer no to use bottom surface for all single surface testing.

The tests affected asre 15 thru 18,

21 thru

23 and 25.

Do you wish to limit the ares tested in tests 15-18 (L) N ?
Answer yes

if you wish to specify a starting and ending track for the

test srea.
this limitaetion epplies only to seek verification testing.
(tests #15 through €18). The follouing two questions will be asked only
if this one is enswered yes. The limits will be 0 and 820 for top
surfece and 821 end 1641 for bottom surfece.
Sterting traeck (D) 0 ?
Answer with the beginning track number of the sres you wish to select
for testing.
This applies to tests 015 through #18 only. Test 22
will also use this starting track, if you answer this question
instead of track 0 or 821.

Ending track (D) 820 ?
Answer with the last track number

testing.

in the erea

This spplies to tests #15 through #18

Do you wish to do the manual

you wish to select for

only.

intervention test (L) Y

SEQ 0008

J1
Answer yes to do the test of the write protect switches.

to omit this test.

Answer no

Do you wish trace mode (L) Y ?
Answer no

Default

if you do not like the test names to be printed out.

is yes.

2.6

EXTENDED P-TABLE DIALOGUE

When

answer the hsrdware questions,

you are building entries

in @t.blg s o: dooiroYcothc dovucco under test.

WAy
to 1
unit

hi
tested

The

gimplest

to
enswer
@l]
questions
for each
yqu
have & multiplexed device guch as

a -oss Qtoroge contrqllcr with several drives or a communication

device with several lines, this becomes tedious aince most of
answers are repetitious.
To

_illustrate s

fictional

more cffucaont method, s

dcvacq.

the

you sre testin

Below

is a simple way

se thig deyice consists 9

*
contro] module with¢|ghtheunat
sub-devic '2 ottoch’d t?
These units ore describe
octel numbers
here
is one hardwere gOF.lCtCP that can very emong units
colled the
Q-FACTOR.

This Q-FACTOR

may

be O or 1.

to build e table for one xyll with eight units.
@ UNITS (D) ?

8<CR>

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

160000<CR>
O0<CR>
1<CR>

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

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

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

160000<CR>
2<CR>
<CR»

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

160000<CR>
3<«CR>
<CR>

UNIT S
CSR ADDRESS (0)
?
SUB-DEVICE ¢ (0) ?
Q-FACTOR (0) 0
2?2

160000<CR>
4<CR>
<«CR»

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

160000<CR>
S<CR>
<«CR>

SEQ 0009

K1
UNIT 7
CSR ADDRESS (0)
?
UB-DEVICE @ (0) ;

160000<CR>
gtgg>

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

160000<CR>
7<CR>
<CR>

SEQ 0010

Notice that the default velue for the Q-FACTOR changes when o
non-default response is given.
Be cereful when specifying
multiple units!
As you cen see from the
sbove example, the hardwere perameters
do not very significently from unit to unit.
The procedure shown
is not very efficient.

The runtime services can take multiple unit specifications however.
Let's build the seme table using the multiple specification feature.
@ UNITS (D) ?

8<CR>

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

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

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

160000<CR>
2-5<CR»>

Q-FACTOR (0) 0

2?2

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

you cen

see

in_

O<«CR>

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

the sbove disl

the runtime services will

build es meny entries as it cen with the information given in any
one pess through the questions.
In the first pass, two entries

sre built since two sub-devices and Q-FACTORS were specified.

The

services eassume that the CSR address is 160000 for both since it
was opecaf-ed.onIZ. once.
In the second pass, four entries were
built.
This
is
couse
four sub-devices were specified.
The
“-* construct tells the runtime services to increment the date
from the first number to the second.
In this cese, sub-devices
2, 3,4 ond 5 were specified.
(If the sub-device were specified
by
eoddresses, the
increment would be by 2 since addresses must
be on en even boundery.) The (SR eddresses and Q-FACTORS for
the
four entries ere
assumed to be
160000 end 0 respectively
since they were only
specified once.
The
lest two units sre
specified

in the third pess.

L1
m whole process could have been accomplished in one pass es shown
o,

8<«CR>

@ UNITS (D) ?

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

160000<CR>
0-7<CR>

Rs you can see from this exsmple, null replies (commes enclosing
e null field) tell the runtime services to repest the lest reply.

2.7

QUICK START-UP PROCEDURE

(XXDP.)

To stert-up this progrem:
1. Boot XXDP.
2. Give the date
¥

"R Neme", where name

Type

“"START"

is the name of the bin or bic

file for this program

Answer the

Answer all the hardwere questions

"“CHANGE HW" question with

"Y"

7. Answer the “CHANGE SW" question with “N”

When

zou follow

this procedure you will be using only the

defoults for flags end softwere paremeters.
ere described in sections 2.3 end 2.5.
3.0

ERROR INFORMATION

3.1

TYPES OF ERROR MESSAGES

These defsults

There are three levels of error messages thet mey be issued by
e di
tic: general, besic and extended.
General error -esu?os
ere alweys printed unless the “IER" flag is set (section 2.3).
The
general error messege is of the form:
Neme

type

error

message

number

on unit number

.mhere; NAME = Disgnostic neme

TYPE = Error type (SYS FATAL,

tst number PC:XXXXXX

DEV FATAL, HARD or SOFT)

NUMBER = Error number
UNIT NUMBER = O - N (N is lest unit in ptable)
TST NUMBER = Test end subtest where error occurred
PC:XXXXXX = Address of error message cell
Besic

error messages ore messages thet contein some additional

information

the “IER” or

sbout the

error.

These sre slways printed unless

"IBR" flags ere set (section 2.3).

ere printed ofter the associsted general message.

These messages

SEQ 0011

M1
Extended error messeges contein supplementery error informetion
such @as register contents or good/bed dete.
These ere alweys
rinted unless the "IER", "IBR" or "IXR" flegs ere set (section

.3).

These

wmesseges sre printed after the essocisted genersl

error messege end eny 8ssocioted basic error messeges.

5.2

SPECIFIC ERROR MESSAGES

The following ere device fatal error messeges:

1) RCSA FAILED TO RESPOND
€) RCIP FAILED TO RESPOND

3) INIT STEP READ ERROR
STEP MASK = XX FAILING REGISTER =
XX =

STEP 1 READ FAILURE

XX = 4

STEP 3 READ FAILURE

XX = 2
XX = 10

STEP 2 READ FAILURE
STEP 4 READ FAILURE

4) STEP READ DATA DOES NOT MATCH

ADDRESS :

DATA =

EXPECTED:

READ:

) VECTOR AND BR LEVEL TEST FAILURE
) INTERRUPT AT VECBR LEVEL) NO INTERRUPT FROM PORT / CONTROLLER
) BR LEVEL RECEIVED/TYPED IS INCORRECT !
) HOST DETECTED TIME OUT ERROR
0) RING BUFFERS NOT CLEARED BY THE PORY
1) DATA ECHOED FROM RCSA DOES NOT MATCH
) MEMORY BUFFER DOES NOT CONTAIN EXPECTED DATA
) DM CODE RETURNED FAILURE CODE
The following sre DUP/MSCP commend failure messeges:

14) RC2S UNIT DOES NOT COME ONLINE
15) EX_SUP_PROG DUP COMMAND FAILURE

16) SEND_DATA DUP COMMAND FAILURE
i;; REC_DATA DUP COMMAND FAILURE
GET UNIT_STATUS COMMAND FAILURE

19) AVAILABLE COMMAND FAILURE

The following seek error messages ore used.

20) FORWARD SEEK ERROR
23) RANDOM SEEX ERROR
24) RC2S SEEX FAILURE
Also, one of the following will be printed es extended
informetion:
STARTING TRACK:
NMBER OF SEEvS (D):

ENDING TRACK:
iLBN:

DESIRED LBN:

5€EQ 0012

N1
SEQ 0013

25) HEAD SMITCH FAILURE
UNIT:
HEAD:
TRACK;
26) SECTOR READ FAILURE
UNIT:
HEAD:
TRACK:

2”) OFFSET READ ERROR
MAX,

OFFSET VALUE:

¢8) WRITE DATA TEST IN ERR
WRITE DATA:

READ DATA:

TRACK :
SECTOR:
HEAD:
ERROR STATUS: ~ (NONZERO WILL INDICATE MICROCODE ERROR INFO.)
29) WRITE PROTECT TEST FAILURE
EXPECTED SW = OFF
ACTUAL SW = ON PLATTER @ = (D)
EXPECTED SW = ON ACTUAL SW = OFF
PLATTER ¢ = (D)
Note: All numbers displeyed sre octel unless (D)
for decimal number.

is indiceted

LBN meens logicel block number from 0 to 143325 (octel)
TRACK refer to LBN trecks from 0 to 3151 (octel)
except

in DM code tests where this mesns DBN tracks.

UNIT refers to pletter number.
SECTOR refers to DBN sector for DM code tests.
HEAD =

0O meens top surfece top pletter
40 meons bottom surfece top platter
100 mesns top surfece bottom (fixed) platter
140 meens bottom surfece bottom (fixed) pletter

3.2.1 ERROR CODES :
Whenver RCSA dete conteins fatel error codes or there weas
an_error

in end packet stetus code received for sny of the

MSCP commends used or if there wes an error log mess
then the error code received from port will be

given

one of the following messages with 6 octel digits:

RCSA ERROR STATUS:

END PACKET ERROR STATUS:
UNEXPECTED LOG PACKET ERROR STATUS:
Also, an explenstion of the error code in the form $FTLERR-

will be printed out es en extended error messege.

B2
The following ere self-detected fatal port/controller oaeg:o.
These will be reported as extended error messeges when

date contains fetal error codes:

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

RING READ (PARITY OR TIMEOUT)
RING WRITE (PARITY OR TIMEOUT)

INTERRUPT S ER

HOST ACCESS TIMEOUT
CREDIT LIMIT EXCEEDED
TER
ERROR
BUS MASTER

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

DIAGNOSTIC CWTRG.LER FATAL ERROR
INSTRUCTION LOOP TIMEOUT
INVALID CONNECTION IDENTIFIER
INTERRUPT WRITE

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

CONTROLLER RAM ERROR (NON-PARITY)
INIT SEQUENCE ERROR

HIGH LEVEL PROTOCOL INCOMPATIBILITY ERROR
PURGE /POLL HARDWARE FAILURE

MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT)

SEQ 0014

Ce
g Self-detected fatal port/controller errors
$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR-

VAX READ/&TE gmoa ON INTERRUPT
Y AT U.BFIL
INCONSIST
U.ALOC
INCONSISTENCY AT SERVO ENTRY (PIP SET)
INCONSISTENCY AT SERVO ENTRY (ERR SET)
INCONSISTENCY AT U.SEND
INCONSISTENCY AT U RECV
INCONSISTENCY AT U.ATTN
INCONSISTENCY AT U,.ONLN
ILLEGAL D REQUEST (U.QDRQ)
FENCE-POST ERROR A PROT&B
BAD PACKET DEQUEVED
AT U.DONE
UNEXPLAINED D-PROC SUSPENSION (V..TDS)
DUP PACKET D-Q FAILED (XFC 34/35)
INCONSISTENCY AT U.HTST
INCONSISTENCY AT U.SEKO
INCONSISTENCY AT U.CKSV
D.OPCD FOUND ILLEGAL OPCODE
0.CSF FOUND ILLEGAL OPCODE
UNKNOWN BAD DRIVE STATUS AT D.DSTS
ILLEGAL XFC EXECUTED BY DM
D PICKED UP A ZERO SCB.DB
INCONSISTENCY AT D IDLE LOOP
DM WORD COUNT ERROR ON HOST DMA/SEND/RECV
UNKNOWN DISPLAY FAULT CODE AT D.DFLT
DRIVE NOT FAULTING IN P.OFLN STATE
U POWER UP DIAGNOSTICS FAILED
D POWER UP DIAGNOSTICS FAILED
ADAPTER CARD FAILURE
EC.TMR TIMED OUT
U.SEND/U.RECV RING READ INCONSISTENCY
UNKNOWN WAITRV REASON AT D.RVCT
D.ARCS DID NOT FIND CLOSEST UNDONE ZONE
U.SEEK FOUND SEEK TO ILLEGAL TRACK
U.HTST INIT DIAG DMA WRITE FAILED
U.HTST INIT DIAG DMA COMPARE FAILED
U.SYDR FOUND SS.DER SET AND SS.SPN NOT SET

$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR$FTLERR- MASTER DRIVES ACLO ASSERTED

SEQ 0015

D2
The following are return status messages. If re

se status

error, then one ¢f DUP return status codes or MSCP codes
will be printed out.

$FTLERR$FTLERR$FTLERR$FTLERR-

RESPONSE STATUS ERROR:
SUPERVISOR SERVICE CALL FAILED
PORT/CONTROLLER TIMEOUT ERROR
UNKNOWN RETURN STATUS CODE

Dup return status codes

SUCCESSFUL
INVALID COMMAND
NO REGION AVAILABLE
NO REGION SUITABLE

PROGRAM NOT KNOWN

ALOAD FAILURE
STANDAL ONE

MSCP return status codes

SUCCESS
INVALID COMMAND

COMMAND ABORTED
UNIT-OFFLINE
UNIT-AVAILABLE
MEDIA FORMAT ERROR
WRITE PROTECTED

CWARE

DATAERROR
HOST BUFFER ACCESS ERROR
CONTROLLER ERROR
DRIVE ERROR
MESSAGE FROM AN INTERNAL DIAGNOSTIC

SEQ 0016

E2
SEQ 0017
FAILING FRU

One or more of the four different module will be called out
some times based on the major error code received from port.

1) ADAPTER BOARD
2) CONTROLLER BOARD
3) DRIVE BOARD
4) MECHANIC SET

For detailed information asbout the error code duogloyed and

possible failing

logic/function call-out, the RC25

controller

nonuoitt:ut deals with error/status condition codes should be

consulte
5

! The following are system error messages:
POWER DELAY - WAITING
TOO MANY UNITS

NO CLOCY WAS FOUND IN THE SYSTEM
INCORRECiT TRACK NUMBERS SELECTED

Note: If there wes no clock
will not run,

in the system, then the diasgnostic

Fe
4.0

PERFORMANCE AND PROGRESS REPORTS

At
the end of each pass, the pass count is given along with the
totsl number of errors reported since the diagnostic was sterted.
The

"EOP" switch cen be used to control how often the end of pess

5.0

DEVICE INFORMATION TABLES

message

is printed.

Section 2.2 describes switches.

The Supervisor builds one Hardware P_Table for every logicel

unit tested while snswering Hardware P_table questions.
This diasgnostic
runs diagnostic

gets one table ot a_time in sequence and
tests as selected. The P_table looks like this:

HWP_TABLE:

0
2

s
6
6.0

:HWP_IP_ADDRESS
‘HWP_VECTOR
:

'HWP_BR_LEVEL :
:HWP_UNIT_NUMBER:

TEST SUMMARIES

A brief description of the tests done are described below:
TEST &1 REGISTER EXISTENCE TEST

This test will first check for the existence of the address of the IP

end SA registers for the device under test. If these memory addresses
sre non-existent, the error will be reported.

If the operator has specified loop on error, looping will be from the
beginning of each sub test.
TEST #2 INITIALZATION TEST (POWER UP DIAGNOSTICS)

This test init's the sztec_and runs the goucr up diagnostics by
writing with step 1 dats. Then it will check for errors and
report

if aztec does not come upto step 2 read.

TEST @3 DIAGNOSTIC WRAP TEST

The aztec will be initialized in diagnostic wrap mode and a one bit
end also zero bit floeted through the SA register to see that it
echoes properly.
A feilure to echo what was written will result

sdapter card fru.

1f the operator has specified loop on error,
the failing write and read.

in a callout to the

the program will loop on

SEQ 0018

G2
TEST o4 - VECTOR AND BR LEVEL TEST
The init sequence will be started with the
verify the aztec's vector and BR level.

interrupt enable bit set to

This test assumes the vector given by the operator

The priority level of the

interrupt request will

is correct.

be verified.

Failure of the sztec to vector properly will necessitste that this

program be restarted.

will

be reported.

A completed

interrupt at the wrong BR level

Loop on error will restert this test if the error is recoverable.
TEST @5 STEP 1

-3 INITIALZATION TEST

This test will check for information echoed from the port at
each step read conana upto thet step from scratch. If there
was an error reported

or echoed

the error will be reported.

information was

incorrect

Loop on error will be from the beginning of sub test.
Port givco some information about the Port at every step read
in RCS5A Register. This information will be printed out to the

operator as follows:

1) At step 1 read the following will be given:
PORT SPECIFIC INFO:
NV = 1

.'NV/QB/DI/0D/MP/ = xx (0)

meens that the port does not support & host settasble

@8 = 1

interrupt vector address
:
means that the Port supports a 22-bit host bus.

DI = 1

means that the Port implements enhanced diagnostics,

0D = 1

means that the Port allows odd host address to be
specified in the buffer descriptor.
.

This bit will be & 0 for unibus.

i.e. wrapasround, purge and poll tests.

means that the Port s
rts address mepping. The
host supplies & virtual dete address in the buffer
descriptor which is mapped
to & resultant address
using nopging registers maintained in host memory.

Two digit octal value of the sbove right justified.

2) At step 2 read the following will be given:
PORT TYPE MUMBER = xx (0)
XX

0 means UNIBUS/QBUS storage systems port.

SEQ 0019

H2
3) At step 4 read the following will be given:

XX =

yy *=

NV
O

MICRO CODE: MODEL = xx (0) VERSION = yy (0)

UDASO

RC2S Integreted Controller
TU8l Integrated Controller

UDASOA
QDRX01

Mod 16 velue of the actual controller microcode
version,

TEST o6 PURGE AND POLL TEST

This test will perform the first three steps of the init sequence.
When the host responds to the step 3 transition it will write a one

bit to bit 15 of the SA register, therby qequcsting the execution of
purge and poll testing.

The

host then waits for the SA register to

transition
to & zero value.
The host then writes zeroes to the SA
register o-nulotgng 8 "purge completed” host action.
The host then
reads the IP register to simulate s "start polling” command from the
host to the port.
The test is complete when the controller announces
the trensition to step 4 in the SA register.
Failure to properly complete this test will be reported.

Loop on error will restart the test.
TEST @7 -

SMALL RING BUFFER INIT TEST

The aztec will be

initialized without

interrupts and using the

smallest ring buffer.
This will be the first time thet the
initislizetion sequence is carried out to completion.
Initielizing
with the smallest ring buffer minimizes the host memory area with
which the aztec controller must be able to communicate.
Failure to properly

initialize the aztec and com_srea will be reported.

If the operator has specified loop on error, looping will be from the
start of this test.
TEST #8 - LARGE RING BUFFER INIT TEST

The

init sequence

is executed without

interrupts with a ring buffer

lor?. e
to cover the normal host communciations area gocket and
buffer space ( @ 16 in message length and a 16 in command length).
A failure to complete the

initialization sequence without error will be

reported.

If the operastor
has specified loop on error,

beginning of this test.

looping will be from the

SEQ 0020

12
TEST ¢9 -

"DIAGNOSTIC MACHINE" CODE DOWN LINE LOAD TEST

This “Diegnostic Machine" progrem will attempt to transfer & block

of data from host memory to an area in the controller and then
examine the transfered date.

If the trensfered deate does not compare correctly, then an error will
be reported. This test also reports errors if any of. the routines
used returned failure code.
If the operator has specified loop on error,
the start of this test.

looping will be from

TEST €10 - NONEXISTENT MEMORY TEST

This "Di
address of

tic Machine” program will attempt to read the first
the I/0 pege of the host CPU.
This locetion is reserved

for diegnostics end a nxm should occur.

If the controller does not see the nxm, there will be a8 fru callout
of the adepter cerd.
If the operator
has specified loop on error,
the stert of this test.
TEST €11

looping will be from

- BUS ADDRESSING/DATA TEST A

This “Di
tic Mechine” program asks the PDP-11 progr.n to fill free
memory
(that memory aveilable to the PDP-11 program that is not being

used by the program or the PDP-11 supervisor) with an oddqeosing
pattern (write address with address) and report the location end size
of the free memory.
Every locetion of free memory will be read ond
the data checked.

If the date does not compare correctly, the address,
end date received are reported.

data expected

TEST €12 - BUS ADDRESSING/DATA TEST B

This test first brings aztec drive Ready and Online and then

loads DM_12 progrem vector to port controller memory, then
does the following:
e.

Give free memory address and buffer size to DM code
end ask DM code write a pattern of one's complement

of address at the address and expects to receive

success or failure code from DM program. Then checks

memory buffer for the expected pattern and reports
error if encountered.
b.

If success, asks DM code to write to memory a pattern
of all ones and checks for the pattern in memory.

SEQ 0021

Je
c.

If success, asks DM code to write to memory & pattern
of all zeroes and checks for the pattern in memory,

If feilure, retries will be done es controlled by
e softwere question.
Loop on error fl.g will
loop from beginning of test to the point of failure.

TEST @13 -

SEQ 0022

BLOCK TRANSFER TEST

The sbility of the Aztec controller to do block trensfers to and from
memory will be tested with different dete patterns.
The “write host
memory” XFC end the “read host memory” XFC will be used.
The host
memory buffer is 256 words in size.
4 different date petterns es
given below sre used.

Pattern 0

Pattern |

Pattern 2

Pattern 3

111111
044444
022222

177400
007760
000377

155555
133333
066666

000377
170017
177400

1) This test bri

RC2S controller online and loads DM code

progrem to controller’'s memory.

2) First the host memory
R send d:t- commend with
is

buffer is initialized with pattern 0,

host buffer addresses (trensmii end receive)

issued.

3) DM code then reacs host memory buffer and puts in controller’'s

memory ond writes back

in host memory receive buffer using XFC's.

4) Host progrem compares both buffers for dats pattern 0.
S) If tihere was en error in comparision the error will be reported.
If there was error in the MSCP DUP calls or initislizetion, this
will also be reported.

Steps 2 thru S will be repeasted for dete patterns 1,2 and 3.
If on error wes encountered the test will be sborted. If operator
chose for retries, retries will be done from the start of the test.
TEST #14

SPIN UP/HEAD LOAD SEQUENCE

This test first

initislizes RC2S controller,

and does set control cheracteristics.

initislizes com_area,

Then, this test will first issue the mscp "svailable” command with the

spin down modifier set.

It will then weit for 30 seconds to

that the drive hes had time to spin down.

"online” commend to spin the drive up.

insure

It will then issue the MSCP

This operation will be timed

end the time will be reported
to the operator_so that this time cen be
verified to meke sure it is with in limits. The run/stert and heed
losd internal disgnostics will run during this time.
If en error is
encountered the returned stetus of the “online” command will be
something other then “success” end this status will be decoded
end reported with error message.

If the operator hes specified retries on error, the test will be
repeated.

—

K2
TEST €15 -

SEQ 0023

SEQUENTIAL SEEK AND VERIFY TEST

This test brings RC25 controller and unit online end ready to sccept

MSCP DUP commends.

Sterting with the user specified beginning track end incrementi
throu’h every track to the user specified ending track, this test

will

seek
from track to treck in @ forwerd direcion, then it will repest
::e.oogrot-on in the reverse direction, from the ending track to the
QINNING.

This

is @ single surface test end is done on top surface.

con select bottom surfece also.
A failure report

includes

strating treck,

The opereator

ending track end desired

track.
After reporting the failure, the program will sbort current
seek ond will jump to reverse seek.
TEST

€16

SANTOOTH SEEX AND VERIFY TEST

This test brings RC25 controller and the unit online end ready

to teke mscp commends.

Sterting with the user .g:cificd beginning
thr
every track in the
selected renge,
seek to the selected track and then s seek
track. Uhen all traecks have been covered,

operation
This

track and incrementing
this test will perform o
back to the beginning
it will do the same

in the reverse direction with the ending track as the

is & single surfece test and

is done on top surfece.

The operstor cen select bottom surfece also.

error reports will stete sterting, endi
If there wes on error the test will be
hes selected for retries.

end desired tracks.
rted unless the operastor

TEST 17 - CONVERGING/DIVERGING SEEK AND VERIFY TEST
This test first brings RC25 controller and unit online so thet

MSCP commends cen be issued.

This test performs seeks to the beginning track,

then to the ending

track, then to the beginning track + 1, ending track
- 1, beginning
trock + 2, etc. until the tracks converge and then diverge again

back to the beginning and ending tracks.

L2
This

is & single surfece test end

is done on top surfece.

operator cen select bottom surfece also.

Error reports will

include sterting, ending

If failu = in seek the test will be sborted
selects retries.

The

end desired tracks.

unless the operator

TEST €18 - TOGGLE SEEX AND VERIFY TEST
This test brings RC25 controller end the unit on line end ready to
eccept MSCP commends.
One thousend seek commends will be issued one st o time to toggle
between the
mnin! treck of O (lbn = 0) end the ending track

of 820 (lbn =

31).

This is @ single surfece test. seek is done only
on top surfece
unless the operstor chose to seek on bottom surfece by enswering
one
of the softwere questions. The operstor hes control over the
beginning end ending trecks, if desired by enswering questions.

Error reports include sterting, ending end desired tracks.
After
reporting the feilure the disgnostic will sbort the test, unless
retries s ensbled.

TEST €19 - HEAD SWITCH TEST
This test will bring

ond will loed om ¢
EX_SUP_PROG commend.

RC2S controller ond the unit online

progrem to controller’'s memory using

DM code will seek to both surfaces of the unit. The XFC stetus

will be used to verify that the proper treck hes been reached.

Block hesders will be resd to verify thet the proper hesds sre
selected. DM code will retry if there wes ony error in seek.
DM code will give success or failure code to the host.

If fa:lure, the track, head end unit will be reported as received
from DM code.
1€ retries sre turned on the test will be repested.
TESY €20 - RANDOM SEEX AND VERIFY TEST
This test brings RC25 controller and the selected unit online

ond then issues 1000 seeks one st & time to_rendomly selected
LBN trecks between the rmr of 0 - 1641. This will ensure head
switch os well becouse tracks over 820 will be
surfece of selected unit.

in the bottom

Error reports include seek count end feiling
track number. If
loop on error fleg is set, feiling track will be retried for ever.

SEQ 0024

SEQ 0025

TEST o21 - SECTOR ACCESS TEST
This test brings RC2S controller ond selected unit online

ong then loeds DM 21 vector errey into controller’'s memory

by giving EX_SUP_PROG commend.

The DM progres will seek to diegnostic treck O end reed 32
blocks sfter meking sure thet good heeder is found. DM code

will retry if ony error wes found. om code will send stetus beck
to host with failing unit, heed ond treck. Error will be reported

by host code.
This

is @ single surfece test.

top surfece will be eccessed

unless the operetor chose bottom surfece by enswering one of
the softwere questions.

TEST 022 - CONTROLLER PROCESSING TIME TEST
This test brings RC2S controller ono selected unit online.

The controller processing time is messured Dy

time

it tokes to g0 100 zero length seeks,

This

is @ single surfece test.

ere zero trecks long.

seek

evereging the

thet

is, seeks thet

will be done on top surfece

unless the operstor chose
to seek on bottom surfece. Treck 0

-%i : used or the sterting treck number s given by the operetor

“o

1¢ there wes eny error in seek, this will be reported with the
the number of seeks completed ond desired treck.
The test will
be sborted unless retries sre ensbled.
‘

I1¢ success, *he ever
time will be reported. Controller
processing time expected will be sround 2 ws.
TEST 023 - ONE TRACK SEEx TIMING TEST
This test brings RC25 controller end selected unit online.

One treck seek time is the over
of sll one treck seeks thet
g0 not include @ heeod switch. ell
forwerd one treck seeks will
be done engd timed end then reverse one track seeks will be
done ond timed. Aversge time will be reported. The expected
time will be sround 6 to 7 ms.
This

is @ single surfece test.

Top surfece will be used unless

the operstor chose otherwise. Seeks will be from stert to the end of

trecks.

If there woes on error, error will be reported end the test sborted
wnless retries ore turned on.

N2
SEQ 0026

TEST 024 - AVERAGE SEEX TIMING TEST
This test brings RC2S controller end selected unit online.
The sversge seek time
is the ovorgro time it tokes to do
e seek given thet it is oqugllx likely to stert on eny treck
:::dcny heed, ond equelly likely to end on eny treck end eny

One thousend rendom seeks will be done over the renge
of LBN track 0 thru LBN treck 1641 to cover both surfeces of the
selected unit. First time express bit in commend modifier field
for READ_CMD will be set so thet rendom seeks are timed end
in the second time express bit will be reset so thet the
rendom LBN eveilsble to the controller sre ordere
d 91 the

controller for seeks. Aversge time for both ceses will be reported.
The expected time will be sround 32 ms for rendom LBN seeks
ond 17 ms for ordered LBN seeks.
An error report for this test will report the number of seeks snd

desired track number.

After reporting e failure,

the deignostic will

proceed to the next test unless retries is turned on.
TEST 025 - FULL STROKE SEEK TIMING TEST
This test brings RC25 controller end unit online.

The full stroke seek time is the sversge time of 1000 full stroke

seeks that do not involve head switches. The average time will
be reported and is expected asround S5 ms.

This is e single surface test. top surfece will be used unless the

operator chose otherwise.

The error report will include number of seeks and desired track
number. After failure, the test will be sborted unless retries
ere turned on.

TEST €26 - WRITE DATA TEST
This test brings RC25 controller end selected unit online.

then loeds dm code vector array DM_26 to the controllers

memory by

issuing EX_SUP_PROG commaend.

The dmcode tho the unit number from the host and sttempts
to find et least one good diegnostic block on esch surface

of the platter specified and meke sure thet dmcode cen read
ond write to the block in order to verify thet the heads ere

working properly. First top surfece will be sttempted with

oll ones dete

eond second sll zero dets. This will

repested for bottom surfece os well.
reed end compered.

The dete written will be

The error report on this test will include dete written,
dete reed
plus the track, hesd end sector number.
Also error stetus
from the micro code if eny will be reported. Errxr stetus of
zero will mesn other errors trepped in dmcode.
After reporting

the error the rest of the test will be sborted unless the operstor

selects retries.

TEST #27 - OFFSET TOLEPANCE TEST

This test bri
RC25S controller end the unit online end loads
DM progrems DM_27 yoctgr erray
into controller's memory for
execution by issuing EX_SUP_
command.
The DM code will do an offset tolerence test. & good 0dd block will

be found in track 829 (DBN track). It will be read with increasing
+ ond - offset, until & hard error is forced. The offset velue used
in the lest good read will be sent to host program. The host will
give the maximum offset as o percentege of treck to track distence.

This test wil' be performed on top surface of the unit
being tested.
A messege report on this test will

include the largest offset velue

used in order to read the block without Torcing errors.
TEST 928 - AVERAGE ROTATIONAL TIMING TEST

This test will bring RC25 controller and the unit online.
This test will be performed from the host using the MSCP “read”

commend.
An LBN will be selected rendomly.
One thousend two
byte count reads of the same LBN will be performed.
This operation
will be timed and the average time will be reported. The expected
time will be 21 ms.

If the operator has selected retries, the test will be repested.
TEST 929 - WRITE PROTECT TEST

This test requires menual intervention.
It will be executed if
the softwere parameter questions do not ceuse it to be omitted.

This test brings RC25 controller and the unit online first.
The test is done_ from the host uonng.thc mscp command “GET UNIT

STATUS* (guo).
The test will ask the
operator to meke sure the
write protect switch for the unit is in the off position.
It will

do the
for the unit to verify that the controller knows it is
not write protected. Then the operator will be asked to put the
write protect switch in the on position and & gus will be done to

make sure the controiler recognizes that the unit is write protected.
The error report for this test will contain the unit number, expected
end actual positons of the write protect switch.

SEQ 0027

C3
7.0

MAINTENANCE HISTORY

Modified By:
AR

A A

Dete:

Version:

e R

SING LAKSHMANAN

JULY 83

CZRCFAO

SING LAKSHMANAN

OCT 83

CZRCFBO

SING LAKSHMANAN

JAN

AR A

P R

TR ety

CZRCFCO
T R

YIS I

NOTE :

CZRCFBO is o release of complete tests for RC2S
following the base level release CZRCFAO.

FR END TESTS,

CZRCFBO contains 29 tests. The first 12 tests are functioneslly

the seme as CZRCFAO. All source modules to meke up this diagnostics

have been revised,

appended to produce CZRCFBO.

CZRCFCO is modified version of CZRCFBO with the following
source modules have indications with VER:C in comments

needed.

Patch Bl: Test 10 hengs with C15 microde

corrections.
revever

in the controller.

Patch B2: Time-out error for an indefinite pass of any one test.
Test 14 is done only
in all pesses.

Patch B3:

in first pass. corrected to run

Test 4 error 7 time out occurs

in orion 11/73 processors.

Test 14 does not wait long enough to spindown completely.

30 sec.

resltime timer included
to evoid false spin up time reports.

This problem was specific to Orion 11/73 processor only as of date.

Test 26 contains 8 revised dm code. The test description will
explain the test better now.
%

ELUDOM

SEQ 0028

ZRCFR1
:

0001

CZRCFCO RC2S FR END TEST
O

0002

0004

;.
3
;.
:
;.
3
:

0003

0005
0006
0007
0008
0009
88{2

D3
27-Mer-1985 15:21:49
11-Jen-198S 08:19:19

MODULE ZRCFB1 (#TITLE 'CZRCFCO RC2S FR END TEST'
IDENT =

'v03.0',

ADDRESSING_MODE (RELATIVE)
) =

1
1
1
1
1
i

BEGIN
!
SE
_KEY>
1<BLF/LOMWERCA
!
library 'AZTECO';

! AZTEC LIBRARY

! DIAGNOSTIC SUPERVISOR LIBRARY

?géf

require 'BLSMAC.REQ';

iggg

?obttl ‘PROGRAM HEADER AND TABLES'

iggg

s DEFINE THE NUMBER OF TESTS IN THIS DIAGNOSTIC

:
:
3
3
3
:
3
3
3

1506
1507
1508
1509
1510
1511
1512
1513
1514

1
1
1
1
1
1
1
1
1

{gig

Teo
! THE PROGRAM HEADER IS THE INTERFACE BETWEEN
s THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.

3
:

1518
1519

1
1

HEADER (waescii'CZRCF ', sascii'A', sascii'0’',

1522
1523
1524

1
1
1

'
'
'

3
3

:
3
3

1515

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFC)ZRCFC1.B16;1

1520 1
1521 1

psect
code = AASCODE;
.
literal
DS$NBR_OF _TESTS = 29;
POINTER (ALL);

'
'

120,

0, PRIOO);

ARGUMENTS ARE: NAME,REV,PATCH LONGEST TEST TIME,TYPE
WHERE "TYPE" = 0 FOR SEOUENTI‘L DIAGNOSTIC AND =1

FOR EXERCISER.
THERE IS ALSO AN OPTIONAL SIXTH ARGUMENT
WHICH SPECIFIES THE PROCESSOR PRIORITY TO BE SET WHEN
STARTING THE DIAGNOSTIC (DEFAULT IS 0).

SE0P22£9 1

(1)

ol ol e el ol

ssbttl

[l d

CZRCFCO RC25 FR END TEST
DISPATCH TABLE

DISPATCH (DS$NBR_OF _TESTS);
ERRTBL;

27-Mar-1985
11-Jen-1985

'DISPATCH TABLE'

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

VAX-1 181 iss-16 V4,0- 579
USER$ 1:[AZT EC.CZRCFC) ZRCFC1.B16;1

SEQ 0030

Page

(2)

)

CZRCFCO RC25 FR END TEST

ZRCFB1
v03.0
g
o ol e
Lo ol od od ol d o d d o d o ol S S e

1534
1535
36

DEFAULT MARDWARE P-TABLE
ssbttl

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19

'DEFAULT HARDWARE P-TABLE'

Yoo

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

' IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P- TABLES,

AND IS USED AS A "TEMPLATE" FOR BUILDING THE P-TABLES.

BGNHW (DFPTBL);

global
3 _IP_ADDRESS
: word initial ( %o’ 172150 ),
:
VECTOR: word initial (‘(() 1 S4'),
)
_BR LEVEL : word initial
S)
P
"UNIT_NUMBER : word initi al (.O)s
ENDHW;

VAX-11 Blies-16 V4.0-579

USER4$1: [AZTEC. CZRCFC]ZRCFCI B16;1

SEQ

OPogcl 3
003

(3)

G3
CZRCFCO RC2S FR END TEST
SOF TWARE P-TABLE

ZRCFB1

%sbttl

: SET UP AT ASSEMBLY TIME AND MAY BE VARIED BY THE OPERATOR

s
s

Yoo

! THE SOFTWARE TABLE CONTAINS VARIOUS DATA USED BY THE
!

s s

s s s s s

Pt 1t

VAX-11 Blies-16 V4,0-579
USER#$1:[AZTEC. CZRCFC]ZRCFCI 816;:1

'SOFTWARE P-TABLE'

s s

v03.0

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

PROGRAM AS OPERATIONAL PARAMETERS.

AT RUN TIME

THESE PARAMETERS ARE

BGNSW (SFPTBL);

global
SWP_TOP
: word initial (YES)

SWP_LIMIT : word initial (NOS
: word initiel (0),
SWP_START
SWP TEND : word initisl (820).

SWP_RETRIES
: word initiel (0),
SWP_CONTINUE: word initial (NO),
SWP_MANUAL : word initisl (NO),
SWP_TRACE
: word initial (YES);
ENDSW;

!USE _TOP SURFACE FOR SINGLE SURFACE TESTS
!LIMIT AREA TESTED
!STARTING TRACK
!ENDING TRACK
!NUMBER OF RETRIES BEFORE DROPPING UNIT
!D0 YOU NEED TO CONTINUE TESTING?
!D0 MANUAL INTERVENTION TEST
!D0 YOU NEED TRACE MODE?

SEQ 0032

Page

(4)

CZRCFCO _RC25 FR END TEST

b bt s s | 2 e s o o ps e o

PROTECTION TABLE

27-Mer-1985 1

11-Jen-1985 0

ssbttl 'PROTECTION TABLE'
feo

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

11ST ARG =
12ND ARG =
13RD ARG =
ENDPROT;

OUl

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

-:3

VAX-11 ?ll
98-16_V4.0-579
USER$1:(AZTEC.CZRCFC)ZRCFC1.816;1

SEQ 0033
Page . S
(5)

I3
CZRCFCO RC25S FR END TEST
GLOBAL DATA SECTION

H
:
:
b

H
H

B
H
5

H
:

$
5
:

H
H
H

H
I
:

:
‘
L

:
H

]
5
7
H
:
H
H
b
H

H
.

H
:
§
H
.

H
H

:
H
H
H
H
H

1601
1602

1603
1604
1605

1606
1607
1608
1609
1610
1611
1612
1613
1614
1615

VAX-11 B liss-16
USER#$1:(AZT C CZRCFC]ZRCFCI B16;1

Yoo

! THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED

' IN MORE THAN ONE TEST.

psect

plit = Oplntt(
lobel),
global = $GLOBS$(nowrite, noexecute, global, concatenate),
own = $own$;

structure
RC2S (0, P,
begin

! DEFINE ACCESS ALGORITHM
! TO ALLOW FIELD REFERANCES
! TO THE AZTEC

S, E] =

locel

RC_REG;

RC_REG = .(RC25 * $upvels0)<O,

RCREC

upve

end
<P, S,

1, 0

E>;

global

RT : vector [WORD1_IN_RT_TAB, word),

'RUNTIME TABLE STORAGE

XMT_DATA_BUF: vector [256, word),

! TRANSMITTING DATA éurrea 1

TABLE: ref block [WORD1_IN_RT_TAB, word] field (RT FIELDS).

uu#TABLE: ref block [WORD3_IN_HWP_TAB, uord] field (HWP_FIELDS
RCV_DATA aur vector

[256. word].

S’

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

'GLOBAL DATA SECTION'

w
b

ssbttl

1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600

B 0 Bt Bt et et et et e et e e et e Bt et e s et et o s ot et e s s et et s s o e B B 1N VD VD 1D N0 TR0 TR ) B Bt Pt s s s s @ s s o Pt s

ZRCFB1
v03.0

'RUNTIME TABLE POINTER

! RECEIVING DATA BUFFER 2

'
!
!
!
!
!

LOC. TO RETURN CLOCK ADDR.
TYPE OF CLOCK ON SYSTEM
STORE CSR ADDRESS roa CLOCK HERE
STORE CLOCK HERTZ RATE
STORE CLOCK START VALUE
UNIT UNDER TEST THIS PASS

! COMMAND COUNT

IN_BOUND: word,

! RECEIVE COUNT

VEC_AD
: byte volatile,

RC25_ADDR : ref RC2S f.elc (ac REG)

RC25_DATA: block [2, word) field (RC_REG

! VECTOR ADDRESS OF AZTEC

! DEFINE REFERANCE TO AZTEC FIELDS

COM_AREA: blockvector [REC_ALLOCATE + sno ALLocnte + HDR_SIZ, 2, word),
HEAD AREA: ref block [4, word) field (HOR'F

gece!vs RING: ref blockvector [REC. ALLOCATE 2. zgrd] field (DSC_FIELD),
3
NG : ref blockvector [SND_ALLOCATE, 2. nor
field (DSC_FIELD),
RECENVELOPE blockvector [REC_ALLOCATE, RB_S + 2, word) fileld (ENV_FIELD),
SND_ENVELOPE: blockvector

[SND_ALLOCATE, SB.SIZE + 2,

BUF “DESCRPTR: word volatile,
CHMD REF : word voletile,
BYTE _COUNT : word volestile,

TICKS : word initisl (0) volatile,

SECONDS : word initisl (0) volatile,

MINUTES : word
TIP : word,

initisl (0) volatile,
)

DATAL : word volatile,
DATA2 : word voletile,

word)

field (ENV_FIELD).

BUFFER DESCRIPTOR AREA

s COMMAND REFERENCE BUFFER
! BYTE COUNT BUFFER

! SOTRE THE NUMBERS OF CLOCK INTERRUPTED
! STORE SECONDS

! STORE MINUTES
1STORAGE FOR NUMBER OF TEST IN PROGRESS

1 AZTEC STEP
1 WRITE DATA
! AZTEC STEP 2 WRITE DATA

SEQ_0034

Page

(6)

0 et B et s s s e s s Pt P o

s B e e s o i e s P e o o (e i s P P ot Pt s o o

s e s s o ot

CZRCFCO RC25S FR END TEST
GLOBAL DATA SECTION

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

VAX-11
iss-16 V4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC1.£16;1

DATAS : word volatile,
DATA4 : word volatile,
.
I _AM_NEX : word initial (0) voletile,

AZTEC STEP 3 WRITE DATA
AZTEC STEP 4 WRITE DATA

END_LBN : word initiel (50901) voletile,

ENDING LBN

MSGADR : word voletile,

;

P_MASK : byte voletile,

INTERUPT FLAG

B_MASK : byte volatile,

MANU_SW : word volstile,

SWITCH2 : word voletile,

RET_UNIT_FLAG : word volatile,

Pl : word volatile,
P2 : word volatile,
P3 : word volatile,
P4 : word volstile,

PS : word volatile,

P6_: word volatile,

RET_STATUS : word voletile,

ER_STATUS : word initiel (0),
CANCEL TIMER : word volstile,
CMD_SLOT : word voletile,

RES_SLOT

: word volatile,

LBN : word voletile,
LBN_ST : word volatile,
LBN_ED : word voletile,
LBN_SZ : word volestile,

FREE_MEM_ADDR,

SAVES VARIOUS RETURN STATUS
SAVES ERROR STATUS CODE
INIT SEQUENCE INTERRUPT
COMMAND DESCRIPTOR SLOT
RECEIVE DESCRIPTOR SLOT
STARTING LOGICAL BLOCK ¢
ENDING LOGICAL BLOCK #
INCREMENTING LBN SIZE
STARTING FREE MEMORY ADDR.

MEM SIZE : word voletile,

FREE MEMORY SIZE

H_EADD : word voletile,

HIGH-BYTE FREE MEMORY ADDR.

H_SADD : word volstile,

BUF _LENGTH : word volstile,
C
: word initial (0),
NUM_RETRIES : word voletile,

RETRIES : word initiel (FALSE),
FAL_CODE : word initisl (1),

DMC_TEST

word,

LOW-BYTE FREE MEMORY ADDR.

BUFFER LENGTH
COMMAND MODIFIER.
! FAIL STATUS

DM_REC : word,

DM_XMT : word,

SIZ LBN : word initisl (31),

OFFSET : word initial (0),

PASSO : word,
k
TEMP : word volastile;

! SIZE OF LBN TO GET TO NEXT TRACK
! USED TO GET TO BOTTOM SURFACE
! FLAG FOR FIRST PASS

ZRCFR1

IK3

CZRCFCO_RC2S FR END TEST

v03.0

27-Mer-1985 15:21:49

GLOBAL TEXT SECTION

11-Jen-1985 08:19:19

:
1686
1687
i
;1688
:
1689
;1690
;1691
;1692
1693
s
:
1694
;1695

wsbttl 'GLOBAL TEXT SECTION'

1
1
1
1
1
1
1

teo
! THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
! MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
! MORE THAN ONE TEST.
i-.
global bind
RINGBASE = COM_AREA [REC_BASE],

;1697
;1698
1699
i

1
1
1

:
1701
;1702

1
1

;169

1700

1
1

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFC)ZRCFC1.816;1

TIME = plit (P4, PS),
'
! FAILING FRU'S
.
:

FRU = uplit (sasciz'SAFAILING FRU = STSD3sN'),

1703

ORIVE_

;1706

| HARDWARE AND SOF TWARE QUESTIONS

:
1708
;1709
:
1710

1
1
1

@ST1 = uplit (wesciz’'IP ADDRESS'),
@ST2 = wplit (wesciz'VECTOR'
),
@ST3 = uplit (wasciz’'BR LEVEL')

;1712
;1113
;1718
17215
:

1
1
1
1

@576
@ST7
QST8
@ST9

;1717
:
1718

1
1

9510_1 = uplit (wesciz'D0 YOU WISH TRACE MODE?'),
95102 =
uplit (wesciz'DO YOU WISH TO CONTINUE TESTING AFTER RETRIES?'),

:
i

1
1

@5T14 = uplit (wesciz' TURN OFF WRITE PROTECT SWITCH AND DO <CR>'),
QST1S = uplit (wesciz' TURN ON WRITE PROTECT SWITCH AND DO <CR>'),

1708

;171

1720
1721

Q574 = uplit (wesciz'PLATTER ADDRESSIES)'),

1727

;1729

1728

»
=
=
=

wplit
uplit
uplit
uplit

(wesciz'USE TOP SURFACE FOR SINGLE SURFACE TESTS'),
(wesciz'D0 YOU WISH TO LIMIT AREA TESTED IN TESTS i5-18'),
(wesciz'STARTING TRACK'),
(wesciz'ENDING TRACK')

Q5710 » uplit (wesciz'DO YOU WISH T0 DO THE MANUAL INTERVENTION TEST?'),

175
1
i
1725
1

;1723

= uplit (wesciz'DRIVE BOARD FOR UNIT 0:')

MECHAN = uplit (wesciz'MECHANIC SET FOR UNIT @:'),

1716 1

;1719

ADAPTO = uplit (wesciz'ADAPTOR BOARD FOR UNIT o:'),
CONTRO = uplit (wesciz’'CONTROLER BOARD FOR UNIT @:'),

@ST1I =

uplit (wesciz'NUMBER OF RETRIES FOR TEST IF ERROR OCCURED'),

too

!} FORMAT
THE FOLLOMING
MESSAGES INCLUDE THE NAMES OF EACH ROUTINE, PLUS
STATEMENTS FOR PRINTING OUT OTHER INFORMATION.

DBM1 = uplit (wasciz’'SNSNSNSATESTING UNITO:%D3%A

;1733
;1738
;1735
:
173

1
1
1
1
1
1
1

DBM8 = uplit (wesciz'SNSATEST 2 STEP 1 READ/WRITE POWERUP DIAGNOSTICS'
).
DBMO = uplit (swesciz'$NSATEST S STEP 1 THROUGH STEP 3 READ/WRITE TEST'),
DBM10 = uplit (sesciz'SNSATEST ~3 DIAGNOSTIC WRAP TEST'),
DBMI1 = uplit (sesciz’'SNSATEST 4 VECTOR AND BR LEVEL TEST'),
DBM12 = uplit (wesciz'SNSATEST 6 PURGE AND POLL TEST'),
DBMI3 = uplit (wesciz'SNSATEST 7 SMALL RING TEST'),
DBM14 = uplit (wesciz'SNSATEST 8 LARGE RING TEST')

;1739
;1740

1
1

;1730
;1731
;1732

;1737
;1738

;1741
;1782

DBM7 = uplit (wesciz'WNSATEST

IP REGISTER:%06%A

1 REGISTER EXISTENCE TEST'),

1
1

DBM1S = uplit (wesciz'®NWATEST 9 DM CODE_OVERLAY TEST')
DBM16 = uplit (wesciz'SNSATEST 10 NONEXISTENT MEMORY TEST'),

1
1

DBM19 = uplit (wesciz'®NSATEST 13 BLOCK TRANSFER TEST'),
DBM20 = uplit (wesciz'®NSATEST 14 SPIN UP HEAD LOAD SEQUENCE'),

DBM17 = uplit (sesciz'#NSATEST 11 BUS ADDRESSING/DATA TEST A'),
DBM18 = uplit (wesciz’'®NWATEST 12 BUS ADDRESSING/DATA TEST 8'),

PLATTER®:%D3sN'),

55092236 3
(7)

CZRCFCO_RC2S FR END TEST

27-Mer-1985 15:21:49

;a..a....-.““”p“u“p“p“u.—.p”p“.‘“HPp““”w“”p”“u“upu“”"p“u”p””»“u.‘.‘.‘.‘

“..M“.‘-l..“.l...'...I.I.'.l.......'.........l".........‘“.’.‘.l...‘.'“.’.‘.‘“““.‘.'“.....’“.’““.l“

GLOBAL TEXT SECTION

11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFCIZRCFC1.81651

DBM21 » uplit (Wesciz SNWATEST 15 SEQUENTIAL SEEK AND VERIFY'),
DBM22 » uplit (Wesciz SNWATEST 16 SAWTOOTH SEEK AND VERIFY:)

DBM2S = uplit (wesciz'SNWATEST1gouvmm/oxmcm SEEK AND VERTFY' b

DBM24 = uplit (sesciz'SNSATEST
18

TOGGLE SEEK AND VERIFY'),

DBM3S = uplit (Mesc:s: SNMATEST 19 MEAD SWITCH TEST")

DBM26 = uplit (sesciz'SNWATEST 20 RANDOM SEEK

fixrv %

DBM27 = uplit (Weec)z'SMWATEST 23 SECTOR ACCESS
TEST')

DBM28 = uplit (Wesciz'SNWATEST 22 CONTROLLER PROCESSING TIME'),

DBM29
DBM30
DBM3L
DBM32

*
=
=
=

uplit
uplit
uplit
uplit

(wesciz'SNSATEST
(wesciz'SNSATEST
(sesciz'SNSATEST
(Sesciz'SNSATEST

23 ONE TRACK SEEK TIME'),
24 AVERAGE SEEK TIME'),
25 FULL STROKE SEEK TIME'),
26 WRITE DATA TEST')

DBM36 = wplit (wesciz'SNSATEST 27 OFFSET TOLERANCE TEST'),

DBM37 = uplit (sesciz'SNSATEST 28 AVERAGE ROTATIONAL TIME'),
DBM38 = uplit (sesciz'SNSATEST 29 WRITE PROTECT TEST'),
DBM39 « uplit (sesciz'sNSA MANUAL INTERVENTION TEST NOT PERFORMED'),

g SYSTEM ERROR MESSAGES
MSG_01
ERR_O01
ERR_02
§Rfl-03

=
=
=
*

\Dllt
uwplit
wplit
wlit

(sesciz'SNSAPOWER DELAY - WAITING'
),
(wesciz' SNSATO0 MANY UNITS'),
(wesciz'sNsANO CLOCK WAS FOUND IN THE SYSTEM' )
(vesciz'SNSAINCORRECT TRACK NUMBERS SELECTED')

g FORMATTED ASCIC STRINGS
FMTSC =

lit (sesciz’' SNsSN')

FMT] =
it (Sesciz’ SNSA
uecxsm FAILED TO RESPOND AT ADDRESS:
®O6%N’
)
FMT2 « uol-t (Sosc iz’ SNSAADDRESS:
#068A
EXPECTED: wO6%A READ: SO6SN' ),
FMTS « uplit (sesc;z'SNSASTEP MASK
= SO28A
FAILING REGISTER
%06%A DATA « w06%N’ ),

FMT4 = yplit (sesciz' SNsA
FMTS
= uplit (Sesciz:$NWA

PORT TYPE NUMBER = #02')

PORT SPECIFIC INFO: mwoé/oxzoo/m . %02'),

FMT6 = uplit (wesciz'sNsA
FMT7
= uplit (sesciz’' SNsA

MICRO CODE: MODEL = #028A
VERSION
= %02°).
WBWMRECWM)

FMT8 =
FMTO =

uplit (wesciz’' SNsSA
yplit (sesciz’ SNsSA

UNIT COMES ONLINE IN :

FMTI]
FMT12
FMT13
FMT14

» uplit (sesciz'SNSA
= uplit (sesciz'sNsSA
=« uplit (sesciz'SNSA

FMT7A « Gplit (Wesc z'SA

FMT10 = uplit (sesciz'sNSA

= uplit (sesciz'sNSA

FMT1S = uplit (sesciz'sNSA
FMT16 = uplit (sesciz'SNSA

FMT17 = uplit (sesciz'SNSA

FMT18 = uplit (wesciz'SNSA

F"Etllqc. uplit (wesciz'®NSA
'VER:

FMT20 = uplit (sesciz'SNSA

FMTSA » uplit (sesciz'SNSA
#

XMT DATA: ®06%A REC DATA: S06N’
),
#028A min,

#D2¢A #D2%A sec.'),

STARTING TRACK: %04sA ENDING TRACK: -ou:“ o DESIRED LBN: 06N’ ),
UNIT: s04sA
HEAD: #04sA
TRACK;

NUMBER OF SEEKS (D): sD6sA
LBN: S06%N’
),
MAX, OFFSET VALUE: IDM sD1%A percent’'),
RCSA ERROR STATUS: sO6sN’ ),

END PACKET ERROR STATUS:

sC6sN’),

UNEXPECTED LOG PACKET ERROR STATUS: sO6sN’),
WRITE DATA: s06sA
READ DATA: %06 ),
TRACK: s04sA

SECTOR: s04sA

EXPECTED SW = OFF

EXPECTED SW = ON

HEAD: IO‘IN'

ACTUAL SW = ON

ACTUAL

SW = OFF

PLATTER @ = %D3'),

PLATTER @ = D3 ).

ERROR STATUS: sO6%N')

NUMBER OF RETRIES (D) =wDa'),

3 INIT ERROR MESSAGES
nsc PUR
= uplit (sesciz’
WAIT _ POMER FAIL aecovznv ),
MSG 1 = uplit (wesciz RCSA FAILED TO RESPOND'
)
MSG 2 + wplit (wesciz'RCIP FAILED TO RESPOND'
)

M5G
7 = uplit (wesciz'TEST PATTERN ECHOED IN aésn 1S INCORRECT ),

SEQ_0037

Page

9
(7)

——

M3
FR END TEST
SECTION

:4
27-Mer-1985 15:2 1:49
11-Jen-1985 08:1 1

9119

VAX-11 Blise-16
1

B8R LEVEL neccxveo/mco 1$ INCORRECT !'),

3
s

(Sesciz’ SNSA

?
§.

it (sesciz’ SNSA

753

lit (vesciz'RING BUFFERS NOT CLEMSD BY THE PORT' ),
TMm

lit (wesciz'STEP READ DATA DNS NOT MATCH' ),
(sesciz' INIT STEP aeao c

)

it (Sesciz'MEMORY BUFFER DOES NOT
Coumn EXPECTED DATA' ),

it (Sesciz’'DM CODE mwco FA
xunc CODE

INTERRUPT AT VECs nbm
BR LEVEL* %01'),

t (sesciz'NO INTERRUPT FROM PORT / CONTROLLER'
)
luuuzMQSflfikfl

(u.c 2' HEAD suncumufit ),
.

SECTOR READ FAILURE')

2'WRITE PROTECT TEST FAILURE'),

FORWARD, SCEK CRROR: ).

(

i2' REVERSE SEEK ERROR' ).
z TOGGLE SEEK ERROR’ )
12’ RANDOM SEEX ERROR’
)

uplit (eeciz READ/RITE TEST in ERROR" ),
lit

it (Sesciz'GET_UNIT_STATUScomho FAILURE' ),
(vesciz’' OFFSET READ E

it (sesciz’ AVAILIBLE COMMANDFAILURE' ),

_TIME = uplit (sesciz’ SNSAAVERAGE SEEK TIME WITH RANDOM LBN (ms) = s03sA. €02 ),

TIME= wplit (Im-z‘MVERlGE seex mt WITH ORDERED LBN (ms) = D3wA %02’ ),
“TIME=
uplit (sesciz’ SNSAPROCESSINGTIME (ms) = sD3wA %02’ ),

TIME=
uplit (Sesciz’' SNSAONE TRACK sesx TIME (ms) = wD3wA %02 )
“TIME = uBlit (wesciz' SNSAFULL TRACK SEEK TIME (ms) = wD3sA.%02' 5.

T_TIME« uplit (sesciz' SNSAAVERAGE ROTATIONAL TIME (ms) = sD3sA.s02'),

AZT_READY ERR
= uplit (sesciz'RC2S UNIT DOES NOT COME ONLINE'),

EXE_SUP_ERR = uplit (sesciz'EX_SUP_PROG DUP COMMAND FAILURE'),
"DATA ERR= wplit (sesciz’ SEND_DATA DUP COMMAND Flluflf ).
il 2552(‘;;‘ ERR = uplit (wesciz'REC_DATA DUP COMMAND FAILURE'
<BL

V4.0-579

USER$1:[AZT
EC. CZNCFCIZRCFCL.B1651
$1:(

MSG_8 » wplit (vesciz’'VECTOR AND BR EVE TEST FAILURE' ),
* wlit (vesciz'HOST DETECY EO TIME OUT ERROR' ),

SB0 20000 0t 1t o 5t 1t et Pt et et Bt 5t P Pt B Pt Pt P Pt P Bt B Bt B B Pt Pt Pt P Pt Pt Pt Pt

v03.0

ZA2202 SaAA%K2Re 2322 F38aaaada3 35¢3ez [oREERbA 2233
i BS
.53 3% fi?ixiiiss
§°.
é.s. | J ?
§ =28

CZRCFCO
GLOBAL TEXT

ZRCFR]

CZRCFCO_RC2S FR END TEST

v03.0

MHM.‘Mhflhfi..‘hflph”“”.‘.flwh‘”“””h”.‘”“

GLOBAL TEXT SECTION

27-Mer-1985 15:21:49

11-Jen-198S 08:19:19

VAX-11 8 Bli 98-16 V4,0-579

USER#1:(
1:(AZTEC. CZRCFC]ZRCFCI.BIG:I
.

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

uwplit (sesciz'SNSASFTLERR- UNRECOGNIZABLE ERROR CODE’
),
wlit (sesciz'wNSASFTLERR- ENVELOPE/PACKET READ (PARITY

)
wlot (senciz' WNSASFTLERR- ENVELOPE/PACKET WRITE (PARITY OROR TIMEOUT)'
TIMEOUT)'),
wlit (sesciz' SNSASFTLERR- CONTROLLER ROM AND RAM PARITY'),
lat (Sesciz' SNSASFTLERR- CONTROLLE
R RAM PARITY'),

wl.t (sesciz'SNSASFTLERR- Somnou.n.eu ROM PARITY'
uwlit (Sesciz’'SNSAIFTLERRING- READ (PARITY
\Dltt (sesciz'SNSASFTLERR- RING WRITE (mmvOROR TIMEOUT)
uneoun5
uwplit (sesciz' SNSASFTLERR- INTERRUPT MASTE
lut (sesciz'SNSASFTLERR- HOST ACCESS uneouf
1ut (sesciz'SNSASFTLERR- CREDU
LIMIT exceeoeo ),
wl.t (vesciz ' SNSASFTLERR- BUS MASTER
ERROR' ),
uwlit (sesciz'SNSASFTLERR- DIAGNOSTIC CONTROLLER mu ERROR' ),
lat (desciz'SNSASFTLERR- INSTRUCTION LOOP TIMEOUT'
lat (wesciz'SNSASFTLERR- INV ALID comec
uon xoeuurisa"),
upl.t (sesciz'SNSASFTLERR- INTERRUPT WRITE'),

uwplit (sesciz'SNSASFTLERR- MAINTENANCE READ/WRITE INVALID REGION IDENT
IFIER'),
uwlit (vesciz'SNSASFTLERR- MAINTENANCE WRITE LOAD TO NON- LOADABLE” CONTRO
LLER" 5,
uwlit (sesciz'SNSASFTLERR- CONTROLLER RAM ERROR (NON-PARITY)'),
INIT SEQUENCE ERROR' ),

uplst (sesciz’'SNSASFTLERR-

uwlit (vesciz'SNSASFTLERR- HIGH LEVEL PROTOCOL xucommaxmv ERROR" ),

uwplit (wesciz'SNSASFTLERR- PURGE/POLL HARDWARE FAILURE '),

l:t (vasciz'SNSASFTLERR- MAPPING REGISTER READ ERROR (PARITY OR TIMEOUT)')
!<BLF/PAGE>»

) : vector [23),

SEQ 0039

Page

(8 )

B4
27-Mer-1985 15:21:49

CZRCFCO RC2S FR END TEST

GLOBAL TEXT SECTION
'

[add ol Sl e ol Sl S

@0
00 @0
®0
@
@0
¢
®0
@

11-Jen-1985 08:19:19

! Error messege structure

EMSG_STRUCT = up ma

uplit (sasciz'WNWASFTL

RESPONSE STATUS ERROR:%S'

uplit (wesciz'WNWASFTLERR- SUPERVISOR SERVICE CALL FAiLeo"),

uplit (sesciz'WNWASFTLERR- PORT/CONTROLLER TIMEOUT ERROR'),
upm (%esciz'SNSASFTLERR- UNKNOWN RETURN STATUS CODE')) : vector (4],
1<blf/page>

VAX-11

liss-16_v4.0-579

USER$1:?Ai
TEC. CZRCFC)ZRCFCI 816;:1

SEG’."OOIO 12

C4
CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION

ZRCFR1

et et s e et (e o e s o

s P Pt o

s s s o it P i o o e i o e o o o (s e o i e o o s i i s ot

v03.0

27-Mer-1985 15:21:49
11-Jen-198S 08:19:19

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

lit
(

wlit tsw.-.z'mor LERR- VAX READ/MRITE ERROR ON INTERRUPT'),

(vesciz'SNSASFTLERR- INCONSISTENCY AT U.BFIL'
)
(sesciz'SNSASFTLERR- INCONSISTENCY
AT u BMTY"
(vasciz'SNSASFTLERR- INCONSIST
Y AT U.ALOC’
(sasciz' SNSASFTLERR- INCONSISTENCY AT SERVO eu*mr (PIP SET)'),
(sesciz' SNSASFTLERR- INCONSISTENCY AT SERVO ENTRY (ERR SET)').
mlnt (sasciz' SNSASFTLERR- INCONSISTENCY AT U.SEND'),
uwplit (sasciz'SNSASFTLERR- INCONSISTENCY AT u RECV' ).
wlit (vesciz'SNSASFTLERR- INCONSISTENCY AT V.ATIN' ).
uwplit (%esciz’' SNSASFTLERR- INCONSISTENCY AT U.ONLN')
wlit (sesciz’' ¥NSASFTLERR- ILLEGAL D aeouss (V.Q0RQ)’ ),
wlit
t (sasciz' SNSASFTLERR- FENCE-POST ERROR AT PROTAB')
wplit (asciz' wNSASFTLERR- BAD PACKET DEQUEUED AT U.DONE'),
wplit (sasciz’' #NSASFTLERR- UNEXPLAINED D-PROC SUsp
ENSION (U..T0S)'),
uplit (sesciz' SNSASFTLERR- DUP PACKET D-Q@ mu:o (xrc 34/35)'),
wlit (sesciz’' SNSASFTLERR- INCONSISTENCY AT U.HTST'),
uplit (sesciz’' SNSASFTLERR- INCONSISTENCY AT U.SEKO' ).
uwplit (sesciz’' SNSASFTLERR- INCONSISTENCY AT U.CKSV')
wplit (sasciz' sNSASFTLERRwlit (sasciz' SNSASFTLERR- D.CSF FOUND ILLEGAL OPCODE')
wplit (sasciz'SNSASFTLERRwplit (sasciz'SNSASFTLERR- ILLEGAL XFC EXECUTED BY DM')
wplit (vasciz'SNSASFTLERR- D PICKED UP A ZERO SCB.DB'),
(sesciz’' SNsASF TLERR- INCONSISTENCY AT D IOLE
L
wlit (sasciz'SNSASFTLERRwplit (sasciz' SNSASFTLERR- UNKNOWN DISPLAY FAULT CODE AT D.DFLT'),
wplit (vasciz'SNSASFTLERR- DRIVE NOT FAULTING IN P.OFLN STATE'),
wplit (sasciz' SNSASFTLERR- U POWER UP DIAGNOSTICS FAILED'),
wlit (sasciz'SNSASFTLERR- D POWER UP DIAGNOSTICS FAILED').
wplit (wesciz' SNSASFTLERR- ADAPTER CARD FAILURE'),
wplit (sasciz'SNSASFTLERR- EC.TMR TIMED OUT'),
uwplit (sasciz'sNSASFTLERR- U.SEND/U.RECV RING READ mconsxsreucv ),
wplit (sasciz' sNSASFTLERR- UNKNOWN WAITRV REASON AT D.RVCT'
wplit (sesciz' sNSASFTLERRwplit (sasciz’' sNSASFTLERR- U.SEEK FOUND SEEK TO ILLEGAL TRACK'),
uplit (sasciz' SNSASFTLERR- U.HTST INIT DIAG DMA WRITE FAILED'),
wplit (asciz'SNSASFTLERR- U.HTST INIT DIAG DMA COMPARE FAILED'),
U "SYDR FOUND SS.DER SET AND SS.SPN NOT SET'),
wplit (sasciz'SNSASFTLERRuplit (sasciz'SNSASFTLERR- nasren DRIVES ACLO ASSERTED')
) 3 vector [39],
'<blf/page>
uwplit
uwplit
uwplit
wplit
wlit

D.0PCD FOUND ILLEGAL opcobe %
UNKNOWN BAD DRIVE STATUS AT 6 DSTS' ),

wllt

DM WORD COUNT ERROR ON uosr onlvssnomscv X

D.ARCS DID NOT FIND CLOSEST unooué ZONE' ),

VAX-11 Blies-16 V4.0-579

USER$1:(AZTEC.CZRCFCJZRCFC1.816;1

S“P&x 13
(10)

D4
CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION

ZRCFB1
vV03.0

SDUP STRUCT =

wplit (

CESSFULSN').

s P

uplit (vasciz'®#A S

s s o

8 e et o

' Dup return status codes

uplit (sasciz'SAINVALID COMMANDSN'),

uplit (wasciz'sANO REGION SUITABLEIN‘).
uplit (sesciz'SAPROGRAM NOT KNOWNSN'),

Pt et o

]

uplit (wasciz'sANO REGION AVAILABLEIN').

uplut (sasciz'#ALOAD FAILURESN'),
uplit (sasciz’'wASTANDALONESN'
)
) : vector (7],
1<blf/page>

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19

VAX-11 B liss-16 V4,0-579
USER$1:( AZTEC.CZRCFC)ZRCFC1. B16;1

SEQ0042

(11)

27-Mar-1
11-Jen-1

CZRCFCO_RC2S FR_END TEST
GLOBAL TEXT SECTION

s s et e

s Pt P

s e i o P

o ot s P

<N
o
wO

RCF

g MSCP return status codes
SHSCP STRUCT =

lit (

uplit (sasciz'wASUCCESSSN'
),

uplit (sesciz'®#AINVALID COMMANDSN' I

uplit (wasciz’'SACOMMAND ABORTEDSN' ).

uplct (sesciz'SAUNIT-OFFLINESN'
),

uplit (sesciz’ SAUNIT-AVAILABLESN' )y

uplut
uplit
uplit
uplit

(sasciz'#AMEDIA FORMAT ERRORSN' ),
(sasciz'WAWRITE PROTECTEDSN' ),
(wasciz'#ACOMPARE ERROR®N' ),
(wasciz'SADATA ERRORSN'
)

uplit (wesciz'®AHOST BUFFER Acéess ERRORSN'
),

uplit (sasciz'SACONTROLLER ERRORSN'
),

uplit (sasciz’'¥ADRIVE ERROR®N'),

uplit (wasciz'SAMESSAGE FROM AN INTERNAL DIAGNOSTIC®N')
) : vector [13);

end

eludom

.TITLE
.IDENT

132
106

122
040

.PSECT
L$NAME:: .ASCII
.ASCII
.BYTE
.BYTE
L$REV::
.ASCII
.ASCII
LSUNIT::.WORD
L$TIML::.WORD
L$HPCP::
. WORD
L$SPCP:: .WORD
L$HPTP::
. WORD
L$SPTP::
. WORD
LSLADP:: .WORD
L$STA:: .WORD
L$CO::
.WORD
L$OTYP:: .WMORD
L$APT::
.WORD
L$DTP::
.WORD
L$PRIO:: .WORD
L$ENVI:: .WORD
L$EXPL1:: .WORD
L$MREV::
.BYTE
.BYTE
L$EF::
.WORD
.WORD
L$SPC::
.WORD

ZRCFB1 CZRCFCO RC2S FR END TEST
/V03.0/
AASCODE,
/CZR/
/CF /
O
O

/A/
/0/
T$PTHV
1
L $HARD
L$SOFT
L $HUW
L$SW
LS$LAST
O
O
O
O
L$DISPATCH
O
O
O
3
3
O
O
O

s-16

C CZRCFC]ZRCFCI B16:1

SEQ 0043
P

%12

F4
CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION

ZRCFB1
v03.0

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19
LS$DEVP:
: .WORD
LS$REPP:
: .WORD
LSEXP4:: .WORD
L$EXPS:
: .WORD
L$AUT:: .WORD
L$DUT:: .WORD
LSLUN:: .WORD
L$DESP:
: .WORD
LS$LO
: AD:
.WORD
L$ETP:: .WORD
L$ICP:: .WORD
L$CCP:: .WORD
L$ACP:: .WORD
L$PRT:: .WORD
L$TEST::.WORD
L$DLY:: .WORD
L$HIME:
: .WORD
D$PCNT:
: .WORD
LS$DISPATCH::
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000C

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
ERRTYP:: .BLKW
: .BLKW
ERRNBR:
G:
: .BLKW
ERRMS
K:
: .BLKW
ERRBL
L$HWLEN::
WORD

172150

P.IP.ADDRESS: :

000154

P.VECTOR:
:

WORD

L :DVTYP
L$RPT
0
0

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

-5630

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFCJZRCFC1.816;1

SEQ 0044 %

(12)

ZRCFB1

G4
27-Mer-1985 15:21:49

CZRCFCO RC2S FR END TEST

v03.0

GLOBAL TEXT SECTION

11-Jen-1985 08:19:19

LWORD
P.BR.LEVEL::
.WORD
P.UNIT.NUMBER::
.WORD
LSNDHW:
: .BLKW
L$SWLEN::

000234

000005

000236

000000

000240
000242

000000C

000244

000001

o
SWP.TOP:
:

000246

000000

SWP LIMIT::

000250

000000

000252

001464

000254

154
S
O
1
<<L$NDSW-L$SWLEN>/2>

.WORD

.WORD
SWP.START: :

O
o

000000

SWP .END: :
.WORD
5“’-“"“15355

1464
.

000256

000000

SUP.CONTIcgES:

000260

000000

000262

000001

SWP . MANUAL
::
.WORD
SWP.TRACE:
:
.WORD
LSNDSW:: .BLKW
L$PROT::
. WORD
JMORD
.WORD

000264

000266
000270
000272

177777
177777
177777

.PSECT
P.AAA:

101
111
116
106
040
045
104
116
104
124
040
101
040
122
116

106
114
107
122
075
124
063
000
101
117
102
122
106
040
111

117
122
105
102
122

116
117
122
117
104

040
060

P.ARB:

P.AAC:

043

P.AAD:

-1
-1
-1

4PLITS$,

.WORD

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

PS
/#AF/
/AIL/
/ING/
/ FR/
/U =/
/7 %1/
/%#D3/
/%N/<00>
/ADA/
/PT0/
/R B/
/0AR/
/D F/
/0R /
/UNI/
/T &/
/:/<00>
/CON/
/TRO/
/LER/
/ BO/
/ARD/

_.WORD

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

VAX-11 Bliss-16 V4,0-579

USER$1: [AZTEC.CZRCFCJZRCFC1. B16;1

RO,

GBL

; Plit count word

SEO 0045 17
(12)

H4
ZRCFR1
v03.0

CZRCFCO_RC25 FR END TEST
GLOBAL TEXT SECTION
106
040
111
043

117
125
124
072

122
105
117
104
117
125
124
072
105
101
103
105
106
040
111
043
000
120
104
105
000
105
117
000
122
105
114

111
040
101
040
122
116
040
000
103
116
040
124
117
125
124
072

114
124

040
104
123
105
000
123

124

040
122
103
106
040
116
105

125

101
040

123

000

117
117
127

040
104
123
000
103
22

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
/ FO/
/R W/
/NIT/
/ B/

P.AAE:

P.AAF:

<00>

/DR1/
/VE /
/B0A/
/RD /
/FOR/
/7 UN/
/1T /7

/79:/<00>

/MEC/

/HAN/
/1C 7
/SET/
/ FO/
/R U/
/NIT/
/ @:/

P.AAG:

P.AAH:

<00><00>

/1P 7/
/ADD/

/RES/
/5/<00><00>
/VEC/
/TOR/
<00><00>

040
126
000

P.AAI:

101
105

P.AARJ:

/PLA/
/TTE/
/R A/
/DDR/
/ESS/
/(ES/

105
117
123
106
105
117
123
107
040
122
103

P.AAK:

/USE/
/ 10/
/P S/
/URF/
/ACE/
/ FO/
/R S/
/ING/
ZLE /7
/SUR/
/FAC/
/E 1/
/EST/
/75/<00><00>
/00 /

101.
122
123
123

124

000

040
125
111

P.AAL:

/BR /
/LEV/
/EL/<00>
<00>

/1/7<00>

/Y0U/
/ W1/

VAX-1 18l iss-16 V4, 0-579
USER$ 1:(AZ TEC.CZRCF

CJZRCFC1.B16;1

SEQ 0046
.
18
)

.9.(12

V08.0"

CZRCFCO_RC25 FR _END TEST

GLOBAL TEXT

SECTION

. 110
117
111
124
122
040
123
104
116
105
123
065
070
124
124
107
122
113

040
040
115
040
105
124
124
040
040
123
040
055
000
101
111
040
101
000

116
116
124

104
107
122

103

000

040
125
111
040
040
040
105
101
101

124
126
124
116
105

105
105
111
040
123

077

/€D /
/IN 7

P.AAM:

P.AAN:

000

040
125
111
040
101
040
104
000
040
125
111
040
040
116

105
105

040
123

116

/TES/
/18 7
/15-7
/718/¢<00>
/STA/
/RT1/
/NG /
/TRA/
/7CK/<00>
<00

/END/
7ING/
/7 TR/
/ACK/

<00><00>

P.AAO:

111

117
117
127
110
122
105
117
077
117
117
127
110
117
117
111

/SH /

/70 7
/LIM/
/71T 7
/ARE/
/AR T/
/EST/

113

117
117
127
110
117
117
110
115
125

040

27-Mer-1985 1 5:2 1::4 9
11-Jen-1985 0 8:1 9: 1 9

P.AAP:

P.AAQ:

/00 /7
/7Y0U/
/ W1/
/SH /
/10 7
/00 /7
/THE/
/ MA/
/NUR/
/L 17

/NTE/
/RVE/
/NT1/
/0N /
/TES/
/T12/7<00>
/00 /
/7Y0U/
/ W1/
/SH /
/TRA/
/CE /
/MOD/
/E?/<00>
/00 /
/YOU/
/ W1/
/SH /
/70 /7
/CON/
/TIN/
/UE /
/TES/

VAX-11
Bliss-16
579
USER$1:[AZTEC. Z FC]ZRCFCI 816;:1

SEQ 0047
P

%€ 12)

J4
ZRCFB1

CZRCFCO_RC25 FR END TEST

v03.0

000623
000626
000631
000634
000637
000642
000645
000650
000653
000656
000661

000667
000672
000675
000700
000703
000706
000711
000714
000717
000722
000724
000727
000732
000735
000740
000743
000746
000752
000754
000757
000762
000765
000770
000773
000776
001001

GLOBAL TEXT SECTION
124
107
106
122
105
111
077
116
102
040

040
124
105
106
040
123
111
105
117
117
125

104
124

116
106
127
124
120
124
124
127
103
101
040
040

111
040
124
040
124
105
000
125
105
117

122
122
123
117
124
124
106
122
122
103
122

000
125

040
106
122
105
122
105
040
111
110
116
104
074

001020
001023

122
124
116
116
122
105
122
105
040

076
125
040
040
111
040
117
103
123

001031
10
1037
1042

110
116
104
074

040
104
117
103

001004
001007
001012
001015

1026

1045
1050
1053

1056

1061
1064
01067
1072

111

124

076
045
116

000
116
045

105
111
040
111

123
116
125
124

045

101

116
101
105
122
122
123
000
115
122
106
105
111
040
122
105
040
040
122
040
103
105
122
117
040
111
040
117
103
123
124
040
104
117
103
000
122
117

P.AAR:

P.ARS:

P.AAT:

127
124
120
124

103

124
107
116
043

P.AAU:

11-Jen-1985 08:19:19

/TIN/
/G A/
/FTE/
/R R/
/ETR/
/IES/
/2/<00><00>
/NUM/
/BER/
/7 OF/

/ _RE/
/TRI1/
/ES /
/FOR/
/ TE/
/ST /
/IF /
/ERR/
/OR /
/0CC/
/URE/

/D/<00>
/TUR/

/N O/
/FF /
/WRI/
/TE /
/PRO/
/TEC/
/T S/
/WIT/
/CH /
/AND/
7 DO/
/ <C/

ASCII
ASCII

/R>/<00>
/TUR/
/N 0/
/N W/
/RIT/
/E P/
/ROT/
/ECT/
/_SW/

ASCII
ASCII
ASCII
.ASCII

/H A/
/ND /
/D0 /
/<CR/

ASCII

101
040
040
122

124

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

ASCII
ASCII
ASCII
ASCII

124
127

000
045
116

27-Mer-1985 15:21:49

/ITC/

.ASCII
,ASCII
.ASCII

/>/<00><00>
/#Ns/
/NsN/

.ASCII
.ASCII
.ASCII
.ASCII

/EST/
/ING/

.ASCII

/#AT/

7/ UN/

/ITo/

VAX-11 Bliss-16 V4.0-579

- USER$1:[AZTEC.CZRCFCIZRCFC1.816;1

SEQ 0048

.9.(12)

K4
ZRCFR1

CZRCFCO _RC2S FR END TEST

v03.0

GLOBAL TEXT SECTION

001075
001100
001103
001106

072
063
040
120

045
045
040
137

104
101
111
122

001114
001117
001122
001125

123
122
117
101

124
072
066
040

001133
001136
001141
001144
001147

124
122
045
045
000

001153
0011
001161
001164
001167
001172
001175
001200
001203
001206
001211
001214
001217
001222
001225
001230
001233
001236
001241
001244
001247
001252
001255

101
123
040
122
111
105
105
123
116
040
123
045
101
123
040
123
120
040
101
127
124
120
105

12
124
061
105
123
122
130
124
103
124
124
116
124
124
062
124
040
122
104
122
105
117
122

001111

001130

001150

105

120

045

/:%D/
/3s%A/
/7 1/
/P R/

105
045
045
040

.ASCII
ASCII
.ASCII
.ASCII

/STE/
/R:%/
/06%/
/A /

124
043
104
116

105
072
063
000

116

045

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

/TTE/
/Ré:/
/%D3/
/#N/<00>
<00>

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

/ATE/
/ST /
7 17/
/REG/
/1ST/
/ER /
/EXI1/
/STE/
/NCE/
/ TE/
/57/¢<00>
/%Ns/
/ATE/:
/ST /
/7 2/
/STE/
/P 1/
7 RE/
/AD/<57>
/WRI/
/TE /
/POW/
/ERU/

107

114

111

P.ARX:

1304
1307
1312
1315
1320
1323
1326

123
040
123
120
040
122
107

124
065
124
040
124
117
110

040
040
105
061
110
125
040

123
120
040
101

124
040
122
104

P.AAV:

P.AAW:

045

1331
1334
1337
1342

.ASCII

105
040
040
107
124
040
111
105
105
105
000
045
105
040
040
105
061
105
057
111
040
127
125

040
101
117
111
000
116
124

.ASCII

101

120
111
116
124
123
045
101

11-Jen-1985 08:19:19

ASCII
ASCII
ASCII
.ASCII

001260
001263
001266
001271
001274
1276

001301

27-Mer-1985 15:21:49

104
107
123
103
105

105
063
105
057

_ASCII

/EGI/

/PLA/

/sNs/

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
_ASCII

/P D/
/IAG/
/NOS/
/TIC/
/5/<00>
/sNw/

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

/ST /
/7 5/
/STE/
/P 1/
7/ TW/
/ROU/
/GH /
/STE/
/P 3/
7 RE/
/AD/<57»

LASCII

.ASCII
.ASCII
.ASCII
.ASCII

/ATE/

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFC)ZRCFC1.816;1

SEQ 0049

.9.(12§

L4
CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION
Bt Dd bt
el Bt D
Bnd D) Bed £
B D Bl B
Dl Bl B Bl D
B b

b Bd B

Dd Bd Dt by B

P.ABA:

P.ABB:

ASCI

Ot B

124
124
064
105
117
101

P.AAZ:

Bl b Bd Bd B Bt Bl bed Bl B D Bd B B B Bt D B

040
101
124
124
116

) B B B B B B Bt o) ed nd

P.AAY:;

124
124
063
111
116
124

000
116

111
04

12
10
105

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
/WR1/

/1€ 7
/TES/
/1/7<¢00»

/%Ns/
/ATE/
/587 7/

/7 37

/DIA/
/GNO/
/5117
/C W/
/RAP/
/7 TE/
7517¢00>
<00»>

/
/8N
/ATE/

/87 7

/7 4/

/VEC/
/TOR/
/7 AN/
/0 B/
/R L/
/EVE/
/L 1/
/EST/

<00><00>

/%Ns/
/ATE/

/8T 7
/7 6 /
/PUR/

/GE 7
/AND/
/7 PO/

/LL

/TES/
/17<00>
/9N/
/ATE/
/587 7
/777
/SMA/

/RIN/
/G 1/
/EST/
<00»>

P.ABC:

/
/%N

/ATE/
/87 7/
/ 8 /

/LAR/
/GE /7

/RIN/

VAX-11 Bliss-16 V4.0-579
USER$1:(AZTEC.CZRCFC)ZRCFC1.816:1

SEOPOOSO 22

.’.(12)

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:21:49

GLOBAL TEXT SECTION
107
105

040
123

124
124

04S
101
123
040
104
103
105
126
114

116
124
124
071
115
117
040
1
101

04S
105
040
040
040
104
117
122
131

123

124

000

045
101
123
061
116
105
123
116
115

116
124
124
060
117
130
124
124
105

045
105
040
040
116
111
105
040
115

040

124

105

000

040

000

117

124

122

11-Jen-198S 08:19:19

P.ABD:

105

P.ABE:

/57/<00»

.ASCI]
.ASCII
.ASCII
.ASCII
LASCII
ASCI1
ASCI1
LASCII
ASCII

/wNw/
/ATE/
/ST ¢/
710 /
/NON/
/€EXx1/
/STE/
/NT /
/7MEM/

.ASCI1

<00»

7 TE/

<«00»

/0RY/

LASCII
.ASCI]I
.ASCII1
ASCII
ASCII
ASCII
ASCII
ASCII
ASCII
ASCII
.ASCII
LASCII
LASCII
LASCII

7 TE/
/571/<00>
/sNs/
/AYE/
/ST /
/11 /
/BUS/
7 AD/
/DRE/
/SS1/
/NG/<S57»
/DA1/
/A 1/
/EST/
7/ A/<00»

.ASCI]
.ASCI1
ASCII
ASCI1
.ASCII
.ASCI1
.ASCII
ASCII
LASCII
.ASCII
LASCII
ASCII

/wNs/
/ATE/
/ST 7/
/12 7
/BUS/
7 AD/
/DRE/
/5S1/
/NG/<S7>»
/DA1/
/A 1/
/EST/

,ASCI]

/sNs/

116
124
124
062
125
101
122
123
107
101
040
123

045
105
040
040
123
104
105
111
057
124
124
124

P.ABG:

045

116

045

P.ABH:

124

LASCII

ASCII

045
101
123
061
102
040
104
123
116
104
101
105

101

/sNs/
/ATE/
/ST 7
797
/OM /
/C0D/
/€ 0/
/VER/
/LAY/

.ASCII

000
045
105
040
040
123
104
105
111
057
124
124
124
000

102

.ASCII
ASCII
LASCTYI
MASCLYI
ASCII
.ASCI1
ASCII
.ASCII
LASCII

ASCII

1/
St/

131

124
116
124
124
061
125
101
122
123
107
101
040
123
101

040
000

LASCII

123
04S
101
123
061
102
040
104
123
116
104
101
105
040

000

LASCII
.ASCII

P.ABF:

000

105

.ASCII

LASCII
.ASCII

LASCII

<«<00>

7 B/<00>
<00»

/ATE/

VAX-11 Bliss-16 v4.,0-57

USER$1:[AZTEC.CZRCFC)ZRCFC1.816;1

092221 23
(12)

N4
CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

ASCII
ASCII

040

ASCII
ASCII

/BLO/
/Ck /

ASCII
ASCII

/ER /
/TES/

ASCII
ASCII

P.ABI:

P.ABJ:

/ST 7/
/13 7/

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

/TRA/
/NSF/

/1/<00>
/suNs/
/ATE/
/ST ¢/
/14 /
/SPl/
/N v/
/P W/
/EAD/
7 LO/
/AD /
/SEQ/
/UVEN/
/CE/<00>
<00»
/sNs/
/ATE/
/ST 7/
/15 7/
/SEQ/

LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII

/UEN/
/TIA/
/7L S/
/EEK/
7/ AN/
/D v/

P.ABK:

.ASCII

/#Ns/

P.ABL:

.ASC

VAX - 118 lise-16 vV4.0- 579
USER$ 1:(
:(AZ TEC.CZRCFC) ZRCFC1.816;1

SEQ 0052

Pmu 24
2)

BS
CZRCFCO RC25S FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-198S 08:19:19

057
126
107
107
105

/G/<S7>/D/
/IVE/
/RG1/
/NG /
/SEE/
/K A/
/ND /
/VER/
7IFY/

040

P.ABM:

P.ABO:

P.ABP:

<00><00»>

/%N
/
/ATE/
/8T 7/
/718 /
/T70G/
/GLE/
/ SE/
/EK /
/AND/
/ VE/
/RIF/
/Y/7<00><00>
/
/%N
/ATE/
/8T 7/
/719 /7
/HER/
/0 S/
/WIT/
/CH /7
/TES/
/7/<00><00>
/9%N%/
/ATE/
/ST /
/720 /
/RAN/
/00M/
/ SE/
/EK /
/AND/
/ VE/
/RIF/
/Y/<00><00>
/
/%N
/ATE/
/5T 7/
/721 /
/SEC/
/TOR/
/ AC/
/CES/
/5 1/
/EST/
<00><00>

P.ABQ:

/
/%N

/ATE/

VAX- 11 8 lise 1 V4.0-579
AZ E CfClZRCFCl 816:;1
USER 41: (AZ

SEO 0053

(12)

C5
CZRCFCO_RC25 FR END TEST

GLOBAL TEX

27-Mer-198 5 1 S
1 49
11-Jen-198 5 08 :1 9 19

SECTION

124

P.ABR:

P.ABS:

P.ABT:

P.ABU:

P.ABV:

/%N
/

/ATE/

VAX-11 Bli 99-16 V 4,.0-579
USER#$1: (AZTEC.CZR CFCJZRCFC1.816;1

SEQ 0054
Pege
26

%15

D5
ZRCFB1
v03.0

CZRCFCO_RC25 FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

P.ABW:

P.ABX:

/PRO/
/TEC/
/T 1/
/EST/

<00><00>

P.ABY:

/%N
/
/A/7<11>/M/
/ANU/
/AL /
/INT/
/ERV/
/ENT/
/I0ON/
/ TE/

/8T 7
/NOT/
/ PE/

P.ABZ:

/RFQ/
/RME/
/D/<00>
/%Ns/
/APQ/
/WER/
/ DE/
/LAY/

/ -/
/WA1/
/TIN/
/G/<00>

SEQ_0055
Page
27
USER$1:[AZTEC. CZRCFC]ZRCFCI 816:1
VAX-11 Bliss-16 V4,0-579

(12)

ES
ZRCFR1
v03.0

003304
003307
003312
003315
003320
003323
003326
003330
003333
003336
003341
003344
003347

CZRCFCO _RC25 FR END TEST
GLOBAL TEXT SECTION
116

045
117
115
131

27-Mar-1985 15:21:49
11-Jen-198S 08:19:19
P.ACA:

P.ACB:

/%Ns/

/AT0/
/0 M/
/ANY/
/ UN/
/1TS/

<00><00»>

/%Ns/
/ANO/

/7 CL/
/0CK/
/ WA/
/S F/
/0UN/
/0 17
/N T/
/HE /
/5YS/
/TEM/
P.ACC:

<00><00>

/%Ns/
/RIN/
/COR/
/RE\-!

/1 T/
/RRC/

/K N/
/UMB/
/7En5/
/ SE/
/LEC/
/TED/

<00><00>

P.ACD:
P.ACE:

P.ACF:

/%N
/
/N/<00><00>
/%Ns/

/A/<11>/ /
/REG/
/7I1S1/
/ER /
/FA1/
/LED/
/ 10/
/ RE/
/SP0/
/ND /
/AT /
/ADD/
/RES/
/5: /
/ %0/
/6%N/
<00»>

/%N
/
/ARD/
/DRE/
/85:/

VAX-11 Bliss-16 V4.0-579

USER$1: [AZTEC.CZRCFCJZRCFC1.816;:1

SEO 0056 28

(12)

F5
ZRCFB1
vV03.0

003552

CZRCFCO RC25S FR END TEST
GLOBAL TEXT SECTION
045
045
105
105

117
101
130
103

040
066
011
101
040
066
000
116
123
120
101
040
045
045
106
114
107
105
123
122
040
066
040
124
075
117
116
116
011
117
040
120
116
102
040
045
000
116
011
117
040
105
106

045
045
122
104
045
045
000
045
124
040
123
075
117
101
101
111
040
107
124
040
045
045
104
101
040
066
000
045
040
122
124
105
125
105
075
117
000
045
040
122
123
103
111

106
057
057
057
057

117
116
121
104
117

105

040

057
057
040

27-Mer-1985 15:21:49

11-Jen-1985 05:19:!9

/7 %0/
/6%A/

<11>/EX/

/PEC/
/TED/

104

111

115
040
045

/706%/
/A/<11>/R/
/EAD/

/: w/

P.ACG:

/706%/
/N/<00><00>
/
/%N

/AST/
/EP /
/MAS/
/K =/
/ %0/
/2%R/

<11>/FA/

/IL1/

/NG /
/REG/
/1817

/ER /

/= %/
/706%/

/A D/
/ATA/

/ =/

P.ACH:

P.ACI:

/%06/
/%N/<00>
/%Ns/
/R/<11>/ /
/POR/
/T 17
/YPE/
/ NU/
/MBE/
/R =/
/ %0/
/72/<00><00>
/%N
/
/R/<11>/ /
/POR/
/T S/
/PEC/
/IF1/
/C 1/
/NFQ/
/:/<S57>/N/
/IN/<ST>/Q/
/B/<57>/0/
/71/<57>/0/
/D/7<S7>/M/
/P/<S5T>/ /

/= %/

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC1.B16;1

SEQ_0057
Page 29

(12)

G5
ZRCFB1

CZRCFCO RC25 FR END TEST

v03.0

004025
004030
004033
004036
004041
004044
004047
004052
004055
004060
004063

GLOBAL TEXT SECTION
117
045
101
115
122
103
105
115
105
075
117

062
116
011
111
117
117
072
117
114
040
062

000
045
040
103
040
104
040
104
040
045
045

004066
004071
004074
004077
004102
004105
004110
004113
004116

101
040
122
117
075
117
045
101
115

040
126
123
116
040
062
116
011
124

040
105
111
040
045
000
045
130
137

004124
004127
004132
004135

072
117
101
105

040
066
011
103

004143
004146
004151
004154
004157
004162

072
117
116
045
130
137

040
066
000
101
115
104

004170
004173
004176
004201

040
066
011
103

045
045
122
137

004207
004212
1004215

072
117
116

040
066
000

101
116
040

011
111
103

004121

004140

004165

004204

004220
004223
004226
231

004234
004237
242
245
004250
253
256
261
264
267
272
004275

27-Mar-1985 15:21:49

102

124

101

045

115
040
114
105
116
040
062
040
156
045
045
045

125

101

124

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

P.ACJ:

/02/<00>
/#Ns/
/A/<11>/ 7
/MIC/
/RO /
/C0D/
/E: /
/MOD/
/EL /
/= w/
/02%/

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

/A
7/
/7 VE/
/RSI/
/ON /
/= %/
/02/<00>
/sNw/
/A/<11>/%/
/MT_/

045
045
122
137

ASCII
.ASCII
.ASCII
.ASCII

/: w/
/06%/
/A/<11>/R/
/EC_/

045
045
000
011
124
101

LASCII
.ASCII
.ASCII
.ASCII
LASCII
.ASCII

/: w/
/06%/
/N/<00><00>
/#A/<11>
/XMT/
/ DA/

.ASCII
LASCII
.ASCII
.ASCII

/ %0/
/6%A/
<11>/RE/
/C D/

ASCII
.ASCII
.ASCII

/: %/
/06%/
/N/<00><00>

LASCII
.ASCII
.ASCII

/A/<11>/U/
/NIT/
CO/

P.ACK:

106

.ASCII

106

.ASCII

P.ACL:

072

.ASCII

117
101
105
104

101

045
045
000

116

045

105
117
111
040
040
045
045
155
056
104
101

123
116
116
111
072
104
101
151
040
062
056

104

11-Jen-1985 08:19:19

125
124
117

062

ASCII

P.ACM:

.ASCII

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

LASCII

/BUF/

/TA:/

/ATA/

/sNs/

/MES/
/ ON/
/LIN/
/E 1/
/N :/
/ %D/
/2%A/
/ mi/
/n. /
/%D2/
/#%A./
/%D2/

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFCJIZRCFC1.B816;1

SEQ 0058

'9‘(12)

H5
ZRCFB1

v03.0

004300
004303
306

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION
101
145
000

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
/%A /

/sec/

P.ACN:

/./7¢<00>
/%N
/
/A/<11>/58/

/TAR/

/A/7<11>/D/
/ES1/
/RED/
/ LB/

P.ACO:

/N: /
/%06/
/9N/<00>
/%N
/
/A/<11>/U/
/NIT/

/: %/
/704%/

/A/<11>/H/
/ERD/
/:

/K:

/04%/
/A/7<11>/7/
/RAC/

P.ACP:

/%04/
/%N/<00>
/
/%N
/A/7<11>/N/
/UMB/
/ER /

/0F 7/
/SEE/
/KS /
/(D)/

/06%/
/A/7<11>/L/
/BN:/
/ %0/
/6%N/
<00><00>

P.ACQ:

/%N
/

/R/7<11>/M/
/RX./

VAX-11 Blies-16 V4.0-579

USER$1:[AZTEC.CZRCFCJZRCFC1.816;1

SEOP0059 3

.g.(IZ)

15
ZRCFB1

v03.0

CZRCFCO RC25 FR END TEST

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19

GLOBAL TEXT SECTION

117
123

980

114
072
104
101
104
101
145
145
000
116

011
123

105
117
123
124
072
117
116
116
011
104

106
105

126

125
040
062
056
061
040
162
156
045
122
101
122
122
124
125
040
066
000
045
105
040
103
124
122
122
124
125
040

101
105
105
117
123
124
072
117
116
116
011
105
105
105
114

000
045
125
130
103
104
117

103
124

113
040

122
124
125

040.
101
123

040
122

040
066
000
116
011
111
040
124
040
066

066

120

122

045
045
000
045
127
124
104
101
045
045

/%01/
/%A /
/per/
/cen/

/t/<00>
/
/%N
/A/<11>/R/

/CSA/
/ ER/
/ROR/
/ ST/
/ATYU/
/S: /
/%06/

/%N/<00>
/
/%N
/A/<11>/E/

/ND /
/PAC/
/KET/
/ ER/
/ROR/
/ S1/
/ATU/
/S: /
/%06/

/%N/<00>
/9%Ns/

/R/*232/0/
+NEX/
/PEC/
/TED/
/ LO/
/G P/
/ACK/
/ET 7
/ERR/
/0R /
/STA/
/TUS/
/:

/706%/
/N/<00><00>

/%N
/

/A/<11>/W/
/RIT/
/E D/
/ATA/

/706%/

VAX-11 Bli
579
USER$1 : (A TEC CZRCFC]ZRCFCI 816;1

SEQ_0060
Page

(12)

ZRCFB)

CZRCFCO_RC25 FR_END TEST

V3.0

005028

003026

003031
003034
003037
003042
003044
003047
003052
003055
005060
003063
003066
003071
003078
003077
005102
003105

003110
003113
005116

GLOBAL TEXT SECTION
011

040
124
080
066
045
101
122
113
045
045
125
128
072
117
101
105

104
101
045
000
116
O11
101
072
117
101
105
117
040
068
011
101

045
128
103
040
064
011
103
122
045
043
110
104

P.ACV:

P.ACW:

072
117
116

101

040
068
000

122

045
043
045
103
105
103
123
075
108
040
124
114
127
040
040
114
124
080

003205
003206
003210

080
063
085

045
000
116

104

045

003216
003221
5224
5527
003232
003235
5240
5243
5246
5251
5234
5257
5262
5265
5270

130
108
104
127
040
040
103
101
123
075
106
040
101
105
043

120
124
080
040
117
040
124
114
127
080
106
120
128
122
080

105
105
123
075
116
101
125
040
040
117
040
114
124
040
075

101

040

o011

'ASCIT

101
072
117

116
Ol
120
124
040
040
117
040
103
101
123
075
116
120
128
122

043

ASCIT

104

045
101
130
103
108
127
040
106
101
125
080
040
117
040
101
105

003213

11 Jen-1983 08:19:19

101

105

005120
005123
005126
003131
005134
003137
003142
003145
005150
003153
003156
005161
003164
003167
005172
003175

003200

J5
27-Mar-1905 18:21:49

075

105

'ASCIT
'ASCIT
'ASCIT
'ASCIT
.ASCII
ASCIT
'ASCTT
[ASCIT
'ASCIT
IASCIT
'ASCTT
'ASCIT
IASCIT
'ASCIT
[ASCIT
'ASCIT

IASCIT
[ASCIT
[ASCIT

7 DA/
/TA:/
7 %0/
76/<00>
/%NW/
/A/<11>/1/
/RAC/
7K: /
/wa/
/#A/<11>
/SEC/
/TOR/
7; %/
/048
7A/<11>/H/
/EAD/

/; %/
704w/
/N/<00>

.ASCII
[ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCTT
ASCIT
ASCIT
ASCIT
ASCIT
ASCIT
ASCIT
ASCIT
ASCIT
ASCIT
ASCIT

/¥Ns/
/7A/<11>/E/
/XPE/
/CTE/
/D S/
/M =/
7 OF/
/7F
7
/ACT/
/UAL/
/7 SW/
7 = 7
/0N 7
7 PL/
/ATT/
/R /

ASCIT
I
ASCIT

7 w0/
73/<00>
/sw/

'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
'ASCIT
[ASCIT
'ASCIT
'ASCIT
ASCIT

/XPE/
/CTE/
/D S/
/W =/
7 ON/
7 A/
/CTU/
/AL /
/SH 7
7= 0/
/FF 7/
7 L
/ATT/
/ER 7/
70 »/

ASCIT

P.ACK:

/A/<11>/R/

/EAD/

IASCIT

78 =/

/A/<11>/E/

VAX-11 Blise.16

V4.0.579

USERS1:(AZTEC,CZRCFCIZACFCI.B16:1

S aes) 33
« o8(13)

IK5

ZRCFR1L

CZRCFCO RC2S FR END TEST

v03.0

27-Mar-1985 15:21:49

GLOBAL TEXT SECTION
040

063
04S
101
122
122
124
125

04S

000
116
011
122
040
101
123

104

P.ACY:

P.ACZ:

04S
04S
000
116
011
125
105
117

04S
040
115
122
106

124

122

111

105

050
040
104
000
011
111

122

040

127
124

101
040

127

105

137

040

122
101
040
103
105
000
122
101
101
105

117

124
122
120
104
122
120
101

105
124
122
120
104
124
124
101
105

040
110
104
116

105

123

104
078
064

LASCII

045
105
117
123
124
072
117
116

040
066
000
04S
101
116
102
040
040

11-Jen-198S 08:19:19

LASCII
.ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII

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

LASCII

051
045
000
P.ADA:

.ASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII

7 %D/

/3/<00»
/sNs/
/A/<11>/€E/
/RRO/
/R S/
/TAT/
/US:/

/ w0/
/6%N/
<00><00>
/sNs/
/A/<11>/ 7/
/NUM/
/BER/
7 OF/
7 RE/

/1R1/

/ES 7

/(D)/
7 =9/
/D4/¢<00>
<00»
«<11>/uWA/
/17 /

120

LASCII

040
111
122
117
122

106
114
105
126
131

103
040
111
104

123
106
114
040

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

/R F/
/AIL/
7 RE/
/COv/
/ERY/s
<00>
/RCS/
/A F/
/AIL/
/€D /

117
105
117
000
103
040
111
104
117
105
117

040
123
116
000
111
106
114

P.ADB:

P.ADC:

040
040
123
116

000
105
040
124

000
123
120
124

105
117
040
040

103
105
111
122

122

.ASCII

116

P.ADD:

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

LASCII
.ASCII
LASCII
.ASCII
.ASCII

.ASCII
LASCII
.ASCII
.ASCII

/0uE/

/70 /
/RES/
/PON/
/D/<00><00>
/RCl/
/P F/
/AIL/
/ED 7
/70 /
/RES/
/PON/

/D/<00><00>
/TES/
/71 P/
/AT1/
/ERN/
s EC/
/HOE/
/D 1/
/N R/

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFC)ZRCFC1.8B16;1

E
5_092222
34

(12)

15:21:49
27-Mer-1985
11-Jen-1985 08:19:19

FR END TEST
CZRCFCO_RC25
GLOBAL
TEXT SECTION

i
v03.0
005540
005543
005546
005551
005554

103
040
040
103
122
126
126
126

111
117
105
000
105
117

101
123
116
122
103
000
103
12

108

040

102

040

122

105
114
105
040
11
122

123
111

101

040

116

ASCIT

114

LASCII

126
080
123
106
114
105

105
128
126
101
125
000

110
126
105

117
040
124

123
104
105

108
11
040
126
122
122
122
107
125

040
115
117
0480
122
000
111
040
106

128
105
125
105
117
000
116
102
106

040

116

117

000

103

105

124

122

103
101
108
131
110
120
128

124
0s0
101

105
122
104

126
108
123
117

101
117
080
126

040
105
116
040

115
103
120
126
100
114
122

1ee

101
110
117
080
126
080
122

000

P.ADF:

P.ADG:

101

128
000
122
106
101
105
17

000

/D 8/

/R L/

ASCII
(ASCIT
(ASCIT

/HOS/
/T D/
/ETE/

(ASCIT
(ASCIT
.ASCIT
(ASCIT
.ASCII
'ASCIT
.ASCII
.ASCIT
(ASCIT

/D 1/
/IME/
70U/
/1 €/
/RRO/
/R/<00><00>
/RIN/
/G B/
/UFF/

.ASCIT

7 NO/

ASCIT

<00>

/CTE/

/ERS/

ASCIT
ASCIT
.ASCIT
.ASCIT
(ASCIT
.ASCIT
(ASCIT
.ASCIT
.ASCII
[ASCI1
.ASCIT

/1 C/
/LEA/
/RED/
7 BY/
7/ Th/
/E P/
/ORT/
<00><00>
/STE/
/P R/
/EAD/

(ASCIT
.ASCIT
(ASCIT
(ASCIT

/TA /
/DOE/
/S N/
/01 /

.ASCIT

P.ADI:

7 AN/

/EVE/
/L 1/
/ES1/
7 FA/
/ILU/
/RE/<00>

.ASCIT

P.ADH:

/CSA/
/ 1S/
7 IN/
/COR/
/REC/
/1/<00><00>
/VEC/
/TOR/

(ASCII
JASCIT
(ASCI1
ASCIT
(ASCIT
.ASCIT

(ASCI1

123

080
105
105
102
128
080
122

104

.ASCII

105

126
114
122
040
040
105
117
000
123
120
105
040

P.ADE:

ASCIT
ASCIT
(ASCIT
(ASCIT
(ASCIT
.ASCIT
.ASCII
.ASCIT

(ASCII
(ASCIT
.ASCII
(ASCIT
(ASCII
ASCIT
'ASCIT

.ASCII

/ DA/

/MAT/
/CH/<00>
/POR/
/1 F/
/ATA/
/L E/
/RRO/

/R/<00><00>

VAX-11 Bliss-16 V4.0-579

USERS1:(AZTEC.CZRCFCIZRCFC1.B16:1

35
e
° (12)

122
104
122
122

P.ADJ:

040

122

000

105
122
102
106

P ADK:

ASCI

105

116

)4
w

116
111

105
105
105

104
101

115
117

P.ADL:

040

124

116
040
040
040
116

e e e e e ey

122
120

101
126

075

e e

117
101
122
105
114
0435
000

117

116
122
120
106

115

S Y Sy Sy

B B B

114

040

Ll e e e e e e

122
103
105

116
040
111

oot G bt B bk Brned B Bt e

105

111

123
120
105

11-Jen-198 5 08: 19 :19

e b Bk B B ot Bt Bt Bt Bt St o Bl Bt ot B Bk i B B Bk Dk B

116

040

1:49
27-Mer-198 S 15: 2l:

v0s.0

CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION

p=
ped
w
lal
e bt B B Bmd ot (o D) ol Bt Bt lalalalealalal
o L L
e
]

<RCFR]

/IN1/

/1 S/
/T1EP/
/7 RE/
/RD 7/
/ERR/
/0R/<00>
<00»

/MEM/
/0RY/
/7 BU/
/FFE/
/R D/
/0ES/
/7 NO/
/7 C/
/ONT/
/AIN/
/7 EX/
/PEC/
/TED/
/7 DA/
/TA/7<00>
<«00»

/DM /
/7C0D~/
/€ R/
/ETY/
/RNE
/
/D F/
/AIL/
/URE7
/7 CO/
/DE/ <00>»
/8N8/

/INT/
/ERR/
/UPY/
/7 AT/
/7 VE/
/C= /
/80%/
/oA /
/BR /7
/LEV/

/EL=/

/7 80/

/71/7<00»
/NO /

/INT/
/ERR/
/UPT/
/7 FR/
/0M

VAX-1 18 lios -16 V4.0
LY EC CZRCFC)ZQCFCI 816;1
USER$ 1:(AZ

SEO 0064

(12)

——
e

—

.
NS

vog.o

ZRCFRL

006256
006261

006264
006267

006300
006303
006306
006311
006314
006317
006322
006325
006330
006333
006336
006341
006344
006347
006352
006355
006356
006361
006364
006367
006372
006375
006400
006403
006406
006411
006414
006417
006422
006424

H44€
:

:
:

:
54 €
54,6

7§

b4 7
5S00
5S03
5S04
5S07
bS12
bS1S
5520

CZRCFCO RC2S FR END TEST

GLOBAL TEXT SECTION
120
124
040
116
117
105
045
101
102
114
105
122
105
105
124
105
111
111
117
105
040
000
122
06S
105
040
111
122
110
104
127
103
106
114
105
123
124
040
101
106
114
105
127
124
120
124
124
105

040

111
122
000
106
127
104
105
040

27-Mer-1985 15:21:49

11-Jen-1985 08:19:19

117
040
103
124
114
122
116
011
122
105
114
105
111
104
131
104
123
116
122
103
041

122
057
117
122
114
000
04S
011
040
126
040
103
126
057
120
040
040
103
122
124
000

103
040
105
106
114
105
105
040
111
110
101
125

062
123
113
101
125

P.ADP:

101
123
124
040
111
122

P.ADQ:

103

P.ADR:

105

117

122

101
125
000
122
105
122
105
040
123

000

122

105

040
111
122
111
040
117
103
124
124

106

) [

117
101
040
105
105

122
122
123
113
122

114
105

P.ADO:

P.ADS:

ASCII
ASCII
.ASCII
.ASCII
LASCII
ASCII
.ASCII
CII
ASCII
ASCII
ASCII
.ASCI1
ASCII
.ASCII
ASCII
ASCII
ASCII
ASCII
.ASCII
.ASCII
LASCII
I1
_ASCII
ASCII
LASCII
ASCII
LASCII
.ASCII
.ASCII
ASCII
LASCII
LASCII
.ASCII
LASCII
ASCII
.ASCII
ASCII
ASCII
ASCII
ASCII
ASCII
LASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII
LASCII

LASCII

25
400
P.ADT:

LASCII
ASCII
I1
_ASCII
CII
ASCII
ASCII
ASCII

/POR/
/71 7¢57»
COs/
/NTR/
/0LL/
/ER/<00»
/sNs/
/A/<il><i)>
/BR /
/LEV/
/EL 7
/REC/
/Elv/
/ED/<S57»
/TYP/s
/€D s/
/1S 7
/INC/
/0RR/
/ECT/
7 1/7<00>
<«00»
/RC2/
/S S/
/EEK/
7 FAs
/ILu/
/RE/<00»
/MEA/
/D S/
/7MIT/
/CH /
/FAl/
/LUR/
/E/<00>
/SEC/
/TOR/
/ RE/
/AD 7/
/FAl/
/LUR/
/E/<00>
/uWR1/
/TE /
/PRO/
/T€EC/
/7 1/
/ES1/

7 FA/

/ILu/
/RE/<00>
<00>
/FOR/
/uWAR/
/D S/
/EEK/
7 ER/

VAX-1]1 Blies-16 v4.0-579

USER$] : (AZTEC.CZRCFCJZRCFC1.816;1

SEQ 0065
P
37

.g.(vz)

B6
CZRCFCO _RC25S FR END TEST
GLOBAL TEXT SECTION
117

122

105
105
117

126
123
123
113
122
122

000
105
122
040

000
117
114

123
113
122
122

101
117
123
113
122
122
105
057
111
040
123
111

105

117
000
106

105
122
104
122
122
105
125
124
124
125
103
115
104
101
125

000
126
114
114

103
115
104
101

125

000
116

107
105
105
040
122
000
116
115
105
040
122
000
101
127
124
124

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

/ERR/
/0R/<00>
/RAN/
/00M/
/ SE/
/EXK /

/ERR/

P.ADX:

124

/7 IN/
/ ER/
/ROR/

116

122

122
106
124

/0R/<00>
/REA/
10/<ST>/W/
/RIT/
/€ 1/
/EST/

<00><00>

P.ADY:

105

040
122
000
124
116
137
101
123
117
101
040
111
122

/0FF/
/SET/
/ RE/
/RD /
/ERR/
/0R/<00>
/GET/

/117
/STAs

101
101
105
117
101
040
111
122

P.AEA:

045

P.AEB:

/TUS/
/7 CO/
/MMA/
/ND /
/FAI/
/LUR/
/E/<00>
/AVA/
/ILA/

/BLE/
/7 CO/
/MMA/

/ND /

/FAI/
/LUR/
/E/<00>
/%N%/

VAX-11 81 ise-16 V4,0-579
USER$1: (A ZTEC.CZRCFCIZRCFC1.81651

Cé
CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION
101
122
105
105

040

115
127

110
101

117

114
040
163
07s
104
101
104
000
116
101
122
105
105
040
115

127
110
122
122

040

116

155

126
101
040
105
124
105
111
040
116
115
102
050
051
040
063
056
062

045
126
101
040
105
124
105
111
040
104
105
114

07sS

116
120
103
123
107
111
040
163
07
104
101
104
000
116
117
040
101

045
122
105
111
040
115

040
105
124

P.AEC:

040
163

040

045
045
04S
000

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

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

/s%Nw/
/AAV/
/ERA/
/GE 7/
/SEE/
/K 1/
/IME/
7 Wl/
/TH /
/0RD/
/ERE/
/D L/

.ASCII
JASCII

P.AED:

P.AEE:

/%D2/
<00><00>

.ASCII

/BN 7/
/(ms/

.ASCII
.ASCII
.ASCII
.ASCII

/ sD/
/3%A/
/.%D/
/2/¢<00>

LASCII

050
051
040
063
056
062

123
113
111

/AAV/
/ERA/
/GE /
/SEE/
/K T/
/IME/
7 W1/
/TH /
/RAN/
/DOM/
/7 LB/
/N (/
/ms)/
/7 =/
/%D3/
/%A./

.ASCII

104
101
104

045
116
124
103

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

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

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

.ASCII
.ASCII
.ASCII

/) =/

/sNs/
/APR/
/0CE/
/SS1/
/NG /
/TIM/

/E (/
/ms)/
/ =/
/%D3/
/#A./
/%D2/
<00><00>
/sNw/
/AON/
/E 1/
/RAC/

/K S/
/EEK/
7/ T1/

VAX-11 Blise-16 V4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC1.B16;1

SEQ 0067

Page

39
(12)

D6
ZRCFB1
v03.0

CZRCFCO_RC25 FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

040

/ME /
/(ms/
/) =/
/7 %D/
/3%A/
/.%D/

P.AEF:

/72/<00>¢ 00>
/9%Ns/
/AFY/
/LL 7/

/TRA/
/CK 7
/SEE/
/K T/
/IME/

P.REG:

/ (m/
/8) /
/= %/
/D03%/
/A.%/
/D27<00>
/%N
/
/AAV/
/ERA/
/GE /
/ROT/
/AT1/
/0NA/
/L T/
/IME/
/ (m/
/8) /
/= %/

/D3%/
/A .8/
/D2/<00>
<00>

P.AEH:

/RC2/
/5 W
/NIT/
/ DO/
/ES /
/NOT/
/7 CO/
/ME /
/0NL/
/INE/

<00><00>

P.AEI:

/EX_/

/SUP/

/_PR/

706 7

/DUP/
/7 CO/
/MMA/
/ND /
/FRI/

VAX-11 Bliss-16 V4.,0-579

SEQ_0068

USER$1:[AZTEC. CZRCFC]ZRCFCI B16;1

Page

(12)

ZRCFB1
v03.0
007511
007514

CZRCFCO_RC2S FR END TEST
GLOBAL TEXT SECTION

125

000
105
137
124
104
040

115

122
116
104
101
125
103
104
101
125
000
103
101
040
120
117
101
040
111
122
000
045
106
105
055
116
103
116
101
105
122
122
117
000

116

045

122

055

105
105
120
120
113
040
101
050
122
131
122
111
117
051
116
044
114

P.AEY:

106
105

P.AEK:

/ DU/
/P C/
/0MM/
/AND/
/ FA/
/7ILV/
/RE/<00>
/REC/
/_DA/

/TR 7

P.AEM:

/DUP/
/7 CO/
/MMA/
/ND /
/FAl/
/LUR/
/E/7<00><00>
/
/%N
/A$F/
/TLE/
/RR-/
/ UN/
/REC/
/0GN/
/IZA/
/BLE/
/ ER/
/ROR/
/ CO/
/DE/<00>
<00»>

P.AEN:

116
114

105
101
105
122
104
120
111
040
040
115
125
000
045
106
105

/LUR/
/E/<00>
/SEN/
/0_D/

/ATA/

115

116
106
114
105
105
104
101
125
103
115
104
101
125
000
116
044
114
122
125
105
107
132
114
105
117
103
105
044
114

:49

/%N
/
/ASF/
/TLE/
/RR-/
/ EN/
/VEL/
/0PE/

<S7>/PA/

P.AEO:

/CKE/
/T R/
/EAD/
/7 (P/
/ARI/
/1Y /
/0R /
/TIM/
/EQU/
/T1)/7<00>
/%N
/
/ASF/
/TLE/

VAX-11
Bliss-16
V4.0 -579
USER41:
TEC.CZRCFC]ZRCFC1.81631

Bas

SEQ 0069
P
4

®9¢(12)

F6
ZRCFB1

v03.0

007761
007764

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION
122

055

105

114

105

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

105
101
105
127
124
050
122
131
122
111
117
051

124
114
122

124

122
114
040
115
116
122
040
122
131

116

045

114
122

105
055

103

117
101

040
115
101
000

044

117

106

117
122
114
040

120
111
000
116
044
114
122

101
124
000
045
106
105
055

103
124
114
122
117
120
111

045
106
105
055

103
124
114
122

101

010227

116

000
116
044

115

117
122

114
040

115

101
124
000
045
106

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19
/RR-/
/ EN/
/VEL/
/0PE/

<S7>/PA/

/CKE/
/T W
/RIT/
/E (/
/PAR/
7ITY/
/ OR/
/7 117

/MEQ/
/ut)/

<00><00>

/%Ns/
/A$F/

/TLE/
/RR-/
/ CO/
/NTR/
/0LL/
/ER /
/ROM/

/ AN/
/0 R/
/AM /
/PAR/
71TY/

<00><00>

/%N
/
/ASF/
/TLE/
/RR-/

/7 CO/

/NTR/
/0LL/
/ER /
/RAM/
/ PA/
/RIT/
/Y/<00><00>
/%N
/
/A$F/
/TLE/
/RR-/
/ CO0/
/NTR/
/0LL/
/ER /
/ROM/
/ PA/

/RIT/

/Y/<00><00>
/%N%/
/ASF/

VAX-11 Bliss-16 V4.,0-579

USER$1:[AZTEC.CZRCFCJZRCFC1.B16;1

SEQ 0070
Page

(12 )

G6
ZRCFB1
v03.0

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19

010232
010235
010240
010243

/TLE/
/RR-/
/

0 (/ d
/REA/

/PAR/
/1TY/
/ OR/
/7 11/
/MEQ/
/UT)/

<00><00>

P.AET:

/
/%N
/ASF/
/TLE/
/RR-/
/ R1/

/NG /

/WR1/
/TE /7
/(PA/
/RIT/
/Y 0/
/R 1/
/IME/
/0UT/
/7)/<00>

P.AEV:

/%N
/
/AS$F/
/TLE/
/RR-/
/ IN/
/TER/
/RUP/
/T M/
/AST/

P.AEV:

/%N%/

/ER/<00>

/ASF/
/TLE/
/RR-/
/ HO/
/8T 7/
/ACC/
/ESS/
/7 11/
/MEQ/
/UT/<00>
<00>

P.AEW:

/
/%N
/A$F/
/TLE/
/RR-/
/ CR/
/ED1/
T L

VAX-11 Blise-16 V4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC1.B16;1

SEQ 0071
age

(12)

ZRCFB1

CZRCFCO _RC25 FR END TEST

v03.0

010501
010504
010507
010512
010515
010520
010523
010526
010531
010534
010537

111
124
130
105
104
045
101
124
122
040
123

010542
010545
010550
010553
010556
010561
010564
010567
010572
010575
010600
010603
010606
010611
010614
010617

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

010622
010625
010630
010633
010636
010641
010644
010647

010652
010655
010660
010663
010666
010671
010674
010677
010702
010704
010707
010712
10715
10720
10723
10726
10731
10734
10737

10742
10745
10750

27-Mer-1985 15:21:49

GLOBAL TEXT SECTION

101
114
122
122
045
101
124
122

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

040
123
125
111
040
117
124
105
124
045
101
124
122
040
126

111
124
103
117
114
120
111
117
000
116
044
114
122
111
101

116
104
124

040
105
111

111
103
116
124

104
117
105
111

111
105
105
105
000
045
106
105
055
125
115

P.AEX:

124
040
122
000
045
106
105
055
111
116
124
040
116
117
105
106

P.AEY:

101
105
117
000
045
106
105
055

116
122
124
116
117
040
115
125
045
106
105

055
116
114
040
116
103
117
111
116
106

11-Jen-1985 08:19:19

P.AEZ:

'
P.AFA:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
,ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII
,ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

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

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

.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

VAX-11 Blies-16 V4.0-579

USER$1:[AZTEC.CZRCFC)ZRCFC1.B16;1

SEongoz 44
o

(12)

/IMI/
/T E/
/XCE/
/EDE/
/D/<00><00>
/%Ns/
/ASF/
/TLE/
/RR-/
/ BW/
/S M/

/AST/
/ER /
/ERR/
/0R/<00>
/%Ns/
/A$F/
/TLE/
/RR-/
/ DI/
/AGN/
/0ST/
/IC /
/CON/
/TRO/
/LLE/
/R F/

/ATA/
/L E/
/RRO/
/R/<00><00>
/%Ns/
/A$F/
/TLE/
/RR-/

7/ IN/
/STR/
/UCT/
/ION/
7/ LO//0P /
/TIM/
/EOU/
/7/<00>
/sNs/
/AS$F/
/TLE/
/RR-/
/ IN/
/VAL/

/ID /
/CON/
/NEC/

/TI0/
/N 1/
/DEN/
/TIF/

16
ZRCFR1

CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION

010753
010756

122

v03.0

010760

010763

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
/IER/
P.AFB:

010766
010771
010774
010777

<00><00»>

/%N
/
/AS$F/
/TLE/
/RR-/

/ IN/
/TER/
/RUP/
/T W
/R1T/

P.AFC:

P.AFD:

P.AFE:

/E/<00><00>
/%N
/
/ASF/
/TLE/
/RR-/
/ MA/
/INT/
/ENA/
/NCE/
/ RE/
/AD/<S7>
/WRI/
/TE 7/
/INV/
/ALI/
/0 R/
/EGI/
/0N /
/1DE/
/NT1/
/FIE/
/R/<00>
/%N
/

/AS$F/
/TLE/
/RR-/
/ MA/
/INT/
/ENA/
/NCE/

liss-1

0-579

VAX-11 B
USER$1:( AZTEC. CZRCFC]ZRCFCI B16;1

SE°P°°7345
(12)

Jb
ZRCFB1

v03.0

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION

011222

105

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
/TLE/
/RR-/

/7 CO/
/NTR/
/0LL/
/ER /
/RAM/
/ ER/
/ROR/
/ (N/
/0N-/
/PAR/
71Tv/

/7)7<00>¢ 00>

P.AFF:

/
/%N

/ASF/
/TLE/
/RR-/
/ IN/
/1T /7
/SEQ/
/UVEN/
/CE /
/ERR/
/0R/<00>
<00»

P.AFG:

/
/%N
/ASF/
/TLE/
/RR-/
/ H1/
/GH /
/LEN/
/EL 7/
/PRO/
/70C/

/0L /

/INC/
/0MP/
/AT1/
/BIL/
/11Y/
/ ER/
/ROR/

<00><00>

P.AFH:

/%N
/
/A$F/

/TLE/
/RR-/
/ PU/
/RGE/

<S57>/P0/

/LL

/HAR/
/DWA/
/RE /
/FAI/

VAX-1 18 1 iss-16 V4,0-579
USER$ 1:( A ZTEC.CZRCFCJZRCFC1.816;1

SE0P0074
.9‘(146
2)

ZRCFB1

CZRCFCO_RC25 FR END TEST

v03.0

011472
011475
011500
011503
011506
011511
011514
011517
011522
011525
011530
011533
011536
011541

011544
011547
011552
011555

011560
011563
011566
011571
011574
011576

011600
011602
011604
011606
011610
011612
011614
011616

GLOBAL TEXT

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

122
122
120
111

040
040
115
125
007612°
007662’
007750'
010040’
010114’
010160’
010224°
010300’
010354°

011620
011622
011624
011626
011630
011632
011634
011636
011640
011642
011644
011646
11650
11652

010412’
010454°
010520°
010556°
010636’
010704’
010760’
011016’
011114’
011214'
011274’
011336’
011426’
011500’

11657
11662
11665
11670
11673
11676
11701
11704
11707
11712

101
124
122
040
123
116
040
101
123
122

011654

SECTION

125
040
116
044
114
122

122
000
045
106
105
055

123
122
105
040
122
040
101
124
117
124
105
124
000

124
040
101
105
117
050
122
131
122
111
117
051

115
120
107
105

27-Mer-1985 15:21:49

11-Jen-1985 08:19:19

P.AFI:

101
111
040
107

.ASCII
.ASCII
,ASCII
.ASCII
.ASCII
.ASCII

.ASCII
.ASCII
.ASCII
.ASCII

P.AEL:

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.WORD
b
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD
WORD
WORD
WORD
WORD

WORD
WORD
WORD
WORD
WORD
116

044
114
122
122
120

123
123
124
040
122

045

106
105
055
105
117
195
124
125
105
117

P.AFK

ASCII

ASCII
ASCII
ASCII
ASCII
ASCII

ASCII
ASCII
ASCII
.ASCII
.ASCII

/LUR/
/E /<00>
/%Ns/
/ASF/
/TLE/
/RR-/

/ MA/
/PP1/
/NG /
/REG/

/1ST/
/ER /
/REA/
/D E/
/RRO/
/R (/
/PAR/
/ITY/
/ OR/
/7 11/
/MEOQ/
/UT)/
<00><00>
P.AEM
P.AEN
P.AEOQ
P.AEP
P.AEQ
P.AER
P.AES
P.AET
P.AEV
P.AEV
P.AEW
P.AEX

P.AEY
P.AEZ
P.AFA
P.AFB
P.AFC

P.AFD
P.AFE
P.AFF
P.AFG
P.AFH
P.AFI
/sNs/
/ASF/
/TLE/
/RR-/
/ RE/
/SP0Q/
/NSE/
7 S/
/ATU/
/S E/
/RRO/

VAX-11 Bliss-16V

USER$1:(AZ EC CZRCFC]ZRCFCI 816;1

E
7
.092205
47

(12)

L6
CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION
072

045

045
106
105

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
/R:%/
/75/<00>
/%Ns/
/ASF/
/TLE/
/RR-/
/7 SW/
/PER/
/VIS/

/0R /

/SER/
/VIC/
/€ C/
/ALL/
/ FA/
/ILE/

/0/<00>

/%Ns/
/ASF/

/TLE/
/RR-/
/7 PO/
/RT1/<57>

/CON/

/7TRO/
/LLE/
/R 1/
/IME/
/0UT/
/7 ER/
/ROR/

<00><00>

/98Ns/
/ASF/
/TLE/
/RR-/
/ UN/
/KNOQ/
/WN /
/RET/
/URN/
/7 S1/
/ATY/
/S C/

/0DE/
<00»>

116
044
114
122
126
101

045

105

055
101
12¢
104

P.AFK
P.AFL
P.AFM
P.AFN
/9N
/
/ASF/

/TLE/
/RR-/
/

VA/

/X R/
/EAD/

liss-16 V4,0-579

VAX-11 B
USER4$1:( AZTEC. CZRCFC]ZRCFCI B816;1

SE° 0076 48
(12)

M6
ZRCFRL

CZRCFCO RC2S FR END TEST

v03.0

012157

012162
012165
012170
012173
012176
012201
012204
012207
012212
012215
012220
012223

012226
012231
012234
0122%7
012242
012245

012250
01253
012256

012260

012263
012266
012271
012274
012277
012302
012%05
012.10
012313

012316
012321

012324
012326

GLOBAL TEXT SECTION
057

127

111
040
122
040
040
124
122
124
045
101
124
122

124
105
117
117
111
105
125
000
116
(44
114
122

125
106
000

056
111

101
124

048
114
122
111
117
111
105
131
124

040
103
123
124
103
101

04S
122
040
103
123
124
103
101

125
115
045

101

111
117
111
105
131
124

000

116

045

12416
12421
12424

123
124
103

111
108
131

045
101
124
122
040
103

116
044
114
122
111
117

P.AFQ:

102
114

056
124

103
123
124
103
101
125
114
000

LASCII

116
116
123
116
040
040

0SS
116
116
123
116
040
040
102
131

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

124
122
040

105
122
122
116
116
122
120
000
04S
106
105
0SS

04S

000

11-Jen-198S 08:19:19

122

116

012331
012334
012337
012342
12345
012350
12353
12356
12361
12364
12%67
12%72
12374
12377
12402
12405
12410
12413

27-Mer-198S 15:21:49

106
105

106

P.AFR:

P.AFS;:

123
116
040

7 IN/
/CON/
/S1S/
/TEN/
/Cy s
/AT /

_ASCI]

/wNw/

ASCII
LASCI1
LASCII
.ASCII
LASCII

P.AFT:

sv.8/
/FIL/

<00><00>

/ASF/
/TLE/

ASCII
LASCII

/RR-/
7 IN/
/CON/
/S1S/
/TEN/
/CY /
/AT /
1v.8/
/mTv/

_ASCI]

/wNs/

.ASCI]1

LASCII

LASCII
.ASCII
ASCII

116
123
116
040
040
10}
103

<57>/7uR/

/ITE/
7 ER/
/ROR/
7 ON/
7 IN/
/TER/
/RuP/
/7/<00><00>
/wuNs/
/ASF/
/TLE/
/RR-/

ASCII
.ASCII
ASCI1
ASCII
ASCII
ASCII

.ASCII
LASCI1
LASCII
ASCII
ASCII
ASCII
.ASCII

105
0SS
116

04%
106
10%
0SS
116
116

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

.ASCII
.ASCII
LASCII
.ASCII
LASCII
ASCII
ASCII
ASCII

_ASCII
LASCI1
LASCII
.ASCII
LASCII
LASCII

.ASCI1
LASCII
LASCII

<00><00>

/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/S1S/
/TEN/
/Cy /
/AT /
/V.A/
/LOC/
<00><00>

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

/S1S5/
/TEN/
/Cv v/

VAX-11 Blise-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC1.816;1

SEQ 0077

.'.(12)

N6
CZRCFCO_RC2S FR END TEST
GLOBAL TEXT SECTION
040
122
040

27-Mer-1985 15:21:49
11-Jon-1985 08:19:19

.ASCII
.ASCII
ASCII
ASCII
ASCII

P.AFU:

[ RN IV F =

ettt

111

P.AFY

LASCI1
ASCII
LASCII
.ASCI1

_.ASCII

P.AFX:

/ENT/
/RY 7/

/(Pl/
/P S/
/ET)/
«00»

/wNw/

LASCII
LASCII

/ASF/
/TLE/

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

7 IN/
/CON/
/S1S/
/TEN/
/Cy v/
/AT /
/SER/
/vO v
/ENT/
/RY /

.ASCII
.ASCII

/(ER/
/R S/

.ASCII

/%Ns/

LASCII
LASCII

LASCII
LASCII
.ASCII
LASCII
.ASCII
ASCII

P.AFW:

/AT /
/SER/
/v0 7

LASCII
.ASCII
LASCII
LASCII
.ASCII
.ASCII

_.ASCII

/ET)/
<«00>

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

/SI1S/

/TEN/
/CYy v/
/AT /
~sU.S/
/END/
<00>¢<00>

/sNs/

.ASCII
.ASCII
.ASCII
LASCII

/AsF/
/TLE/
/RR-/
7 IN/

LASCII
LASCII
.ASCITI
ASCII
.ASCII
.ASCII
.ASCII
,ASCiI
ASCII
ASCII
.ASCII

/51S/
/TEN/
/CY /
/AT /
/V.R/
/ECV/
<00>¢<00>
/sNs/
/ASF/
/TLE/
/RR-/

VAX-11 B lie
USERS1:( AZ
TEC CZflCFClZRCFCl B16:1
579

SEQ 0078

Page

(12)

B7
CZRCFCO

FR END TEST

27-Mer-1985 15:21:49
11-Jen-198S 08:19:19

SECTION

/7 IN/
/CON/
/51S/
/TEN/
/CY /
/AT /
/V.A/
/TIN/

<00><00>

/ASF/
/TLE/
/RR-/
/ IN/
/S1S/
/TEN/
/CY /7
/AT /
/NLN/

<00><00>

/ASF/
/TLE/
/RR-/
/ IL/
/LEG/

/0 R/
/7EQU/
/EST/
/7 (V/
/.Q0/
/RQ)/
<00>

/9%N%/
/ASF/
/TLE/

/RR-/
/ FE/
/NCE/
/-P0/
/8T /
/ERR/
/0R /
/AT /
/PRO/
/TAB/
<00»

/%N
/

/AS$F/
/TLE/
/RR-/
/ BA/
/D0 P/
/ACK/ :

SEQ_0079
VAX-11 81 ise-16 V4,0-57
Page S1
USER4$1: (A ZTEC.CZRCFCIZRCFCY. B816;1

(12)

C7
ZRCFB1
v03.0
013141

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

124
105
105

P.AGC:

P.AGD:

<57>/35/

P.AGE:

/)7<00><00>
/
/%N
/ASF/
/TLE/
/RR-/
/7 IN/
/CON/
/51S/
/TEN/
/CY /
/AT /

/1817

<00><00>

P.AGF:

/%Ns/
/A$F/

VAX-11 Bliss-16 V4.0-579

USER$1:(AZTEC.CZRCFCJZRCFC1.816;1

SEQ 0080

Page

(1 2)

ZRCFB1

CZRCFCO RC2S FR END TEST

v03.0

013410

013413

GLOBAL TEXT SECTION
124

114

122

0SS

103
123
124
103
101
125

117
111
105
131 .
124
056

116
123
116
040
040
123

101
124
122
040
103
123
124
103

044
114
122
111
117
111
105
131

040

013443
013446
013450
013453
013456
013461
013464
013467
013472
013475
013500
013503
013506
013511
013514
013516
013521
013524
013527
013532
013535

105
000
045

000
045
101
124
122
040
117

013543
013546
013551

117
108
114

013557
013562
013565
013570
013573
013576
013601
013604
013607
013612
013615

040
103
105
045
101
124
122
040
103
040
125

117
117
000
116
044
114
122
104
123
106
116

120
104
000
045
106
105
0sS
056
106
117
104

114
101
117
117
000

105
114
120
104

107
040
103
105

116

045

114
122
125

105
055
116

013540

013554

101
125

113

104

107

13620

040

13640

045

013623
13626
13631
13634
13637

13643

13646
13651
013654

101

124
122
040

111

113
000
116

11-Jen-198S 08:19:19

105

122

013416

013421
013424
013427
013432
013435
013440

D7
27-Mar-1985 15:21:49
.ASCII

116

117

P.AGG:

124
056
123
000
116
044
114
122
104
120

045
106
105
0SS
116
116
123
116
040
040
103
126
04S
106
105
0SS
056
103

P.AGH:

125
040
114

116
111
105

040

101

111

044

106

114

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
LASCII

/CON/
/SIS/
/TEN/
/CY /7
/AT /
/V.S/

P.AGI:

/EKO/
<00><00>
/s%Nw/
/ASF/
/TLE/
/RR-/
7 IN/
/CON/
/SIS/
/TEN/
/CY /
/AT /
/su.C/
/KSV/
<00><00>
/sNw/
/A$F/
/TLE/
/RR-/
7 D.s
/0PC/

.ASCII
.ASCII
.ASCII

/0UN/
/D 1/
/LLE/

/D F/

/GAL/

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

/ OP/
/COD/
/E/<00><00>
/%Ns/
/As$F/
/TLE/
/RR-/
7 D./
/CSF/
/ FO/
/UND/

.ASCI
.ASCLI
.ASCII
.ASCII
.ASCII

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

JASCII

P.AGJ:

/7 IN/

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

.ASCII

114

106

/RR-/

LASCII

/TLE/

.ASCII

LASCII

.ASCII

LASCII

.ASCII
.ASCII
LASCII

VAX-11 Bliss-16 V4,0-57

USER$1:[AZTEC. CZRCFC]ZRCFCI B16;1

/7 IL/

/A$F/
/TLE/
/RR-/
/ UN/

ey0081 53
(12)

E7
ZRCFB1
v03.0

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19

P.AGK:

P.AGL:

P.AGM:

P.AGN:

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC1.816;1

SEQ_0C82
P
54

‘9.(12)

F7
ZRCFB1
v03.0
014126
014131
014134
014137
014142
014145
014150
014153
014156

014161
014164

014167
014172
014175

014200

014202
014205
014210
014213
014216
014221
014224

CZRCFCO _RC25 FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49
11-Jen-198S 08:19:19
/ DM/
/7 WO/
/RD /7
/COV/
/NT /7
/ERR/

/0R /
/0N /

/HOS/
/T D/
/MA/<S57>
/SEN/
/0/7¢<57>/R/
/ECV/
<00><00>

/%N
/
/AS$F/

/TLE/
/RR-/

/ UN/
/KNO/
/WN /7
/01S/
/PLA/
/Y F/

/AUL/
/T C/
/0DE/
/ AT/
/0.7

/0FL/
/1/<00>
/%N
/
/ASF/
/TLE/
/RR-/
/ DR/
/IVE/
/ NO/
/T F/
/RAUL/
/TIN/
/G 1/
/N P/
/.0F/
/LN /
/STA/
/TE/<00>
/%Ns/
/AS$F/
/TLE/

14371
014374

/RR-/
U7
/POW/
/ER /
/UP /
/DTA/

VAX-11 Bl iss-16 V4,0-579

SEO 0083

USER4$1: (A ZTEC. CZRCFC]ZRCFCI B16;1

(12)

G7
ZRCFR1
v03.0
014377

CZRCFCO_RC2S FR END TEST
GLOBAL TEXT SECTION

27-Mar-1985 15: e 1 49
11-Jen-1985 08 1 9 :1 9

117

/GNO/
/5117
/CS /
/FAY/
/LED/

045
106

/%N
/

111
040
111
104

105

<00><00»>

/ASF/
/TLE/
/RR-/
/707
/POW/
/ER /
/UP /
/DIA/
/GNO/
/5117
/CS 7
/FAL/
/LED/

<00><00>

/%N
/
/AS$F/
/TLE/
/RR-/

/ AD/
/APT/
/ER /
/CAR/
/0 F/

/AIL/
/URE/
<00»

/%Ns/

/ASF/
/TLE/
/RR-/
/ EC/

/R 1/
/IME/
/0 0/
/UT/<00>

/%Ns/
/A$F/
/TLE/
/RR-/
/ VU./
/SEN/
/D/7<S57>/U/
/.RE/

/CV /
/RIN/
/G R/
/ERD/
/ IN/
/CON/

VAX-11 Bli es8-16 V4.0 -579
AZTEC.CZRCF CJZRCFC1.816;1
USER#$1: (A

SEOP0084 -

000(12)

H7
ZRCFB1

v05.0

014646
014651

CZRCFCO_RC2S FR_END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15 12 1::49
11-Jen-1985 08: 1 9:19
19

111
105
131

123
116
000

/5157
/TEN/
/CY/<00>

116

045

114
122
125
116

105
055
116
117

/%N%/
/R$F/

101
122
122
123

111
126
105
117

044

116

106

040

040
040
122
124

101
104
126
000

116

045

114
122
104
122

105
055
056
103
104
040
124
111
040
117
123
125
117
040
116
000
045
106

044

040
104
117
106
104

114
105

040
104

105
117

000

116
044

114
122
125

105
040

106

105
055
056
105
106

125
040
105
124

116
123
113
117

105
114
122
113
116

107
040
101
000
045
106
105

111

044
114

114

<00»

/TLE/
/RR-/
/7 UN/
/KNO/
/WN /
/WA1/
/TRV/
/ RE/
/AS0/
/N A/
/T D/
/.RV/
/C1/<00>
<00»

/%N
/
/AS$F/
/TLE/
/RR-/

/Z0N/
/E/<00><00>
/%Ns/
/ASF/
/TLE/
/RR-/
/7 VU./
/SEE/
/K F/
/0UN/
/D S/
/EEK/
/ 10/
/7 IL/
/LEG/
/AL /
/TRA/

/CK/<00>
/%N
/
/ASF/
/TLE/

VAX-11 Bliss-16_V4.0-579

USER$1:[AZTEC .CZRCFCIZRCFC1.816;1

s€q 0085 _

%€ 12)

ZRCFB1

17
27-Mer-1985 15:21:49

CZRCFCO RC2S FR END TEST

v03.0

GLOBAL TEXT SECTION

015115
015120
015123
015126
015131
015134
015137
015142
015145
015150
015153
015156
015161
015164

122
040
110
124
116
040
101
104
040
111
040
111
108
045

122
125
124
040
111
104
107
115
127
124
106
114
000
116

015200
015203
015206
015211
015214
015217
015222
015225

040
110
124
116
040
101
104
040

015236
015241
015244
015246
015251

106
114
000
045
101

125
124
040
111
104
107
115
103
120
105
101
105
000
116
044

045
106

P.AHA:

015257

122

055

015167
015172
015175

015230
015233

015254

101
124
122

115
122

124

015262
015265
015270
015273
015276
015301
015304
015307
015312
015315

040
123
122
117
106
123
105
123
040
104

15323
15326
15331

120
116
040

15320

15334
15336

15341

15344
15347
15352
15355
15360
15363

044
114
122

114

055
056
123
111
124
111
040
101
122
105
101
105
000
045

11-Jan-1985 08:19:19

106
105
055

101
040
111
104

105

125
131
040
125
040
056
122
105
101
040

056
104
106
116
123
104
040
124
116
123

116
117
123

040
124
105

044

056

124
045

000
116

045

114
122
115
124
040
111

105
055
101
105
104
126

101

P.AGZ:

056
123
111
124
111
040
101
117

123

124
122
040
123
122
122

123

106

.ASCII
ASCIT
ASCIT
ASCIT
.ASCIT
.ASCII
.ASCIT
.ASCII
-ASCIT
ASCIT
.ASCIT
ASCIT
.ASCII
.ASCII

-ASCIT
ASCII
.ASCII
ASCIT
ASCIT
.ASCIT
ASCIT
"ASCII
ASCIT
.ASCIT
.ASCIT
‘ASCII
.ASCIT
.ASCIT
"ASCIT
-ASCIT
.ASCIT
ASCIT

"ASCIT

.ASCIT

/RR-/
7 V.7
/MTS/
/7 1/
/NIT/
7/ DI/
/AG /
/DMA/
/ WR/
/ITE/
7 FA/
/ILE/
/D/<00><00>
/®Nw/
/ASF/
/TLE/
/RR-/

7 V.7
/WT$/
/T 17
/NIT/
7 DI/
/AG /
/DMA/
/ CO/
/MPA/
/RE /
/FAI/
/LED/
<00><00>
/#Ns/
/A$F/

/TLE/

/RR-/

ASCIT
"ASCIT
"ASCII
-ASCIT
ASCII
.ASCIT
.ASCIT
ASCII
"ASCIT
"ASCIT

7 V.7
/SYD/
/R F/
/OUN/
/D S/
/5.0/
/ER /
/SET/
7/ AN/
/D S/

"ASCIT
.ASCIT
ASCIT

"ASCII
.ASCII

/PN /
/NOT/
/ SE/
/1/<00>
/#Nw/

"ASCII
"ASCII
"ASCIT
"ASCII
"ASCII1
"ASCIT

/TLE/
/RR-/
7/ MA/
/STE/
/R D/
/RIV/

"ASCIT /5.S/
P.AHB:

"ASCIT /ASF/

VAX-11 Bliss-16 V4.0-579

USER$1:(AZTEC.CZRCFCIZRCFC1.B16:1

SEQ_00

Page% <8
2 (13)

123
103

040
114

123
124

105
105

000

101

000

AR R R-R-R-R-R-R-R-R-R-R-E-R-]

040

/ES /
/ACL/
/70 A/
/SSE/
/RTE/
/0/<00><00>
.AFP

.AFQ

.AFR

101
125
105
106
045

040
103
123
125
116

P.AHD:

101
126
111
103
115
104

111
101
104
117
101
045

P.AHE:

.WORD
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

-4

(2]

.AFS
AFT
.AFU
.AFY
AFW
AFX
AFY

015366
015371
015374
015377

VAX-11
USER#$1:

v03.0

CZRCFCO_RC25 FR END TEST
GLOBAL TEXT SECTION

ZRSFBI

TAz

SEOP0087
.90(1 59
T eC c ZRc FCJZRCFC1.816;1
2)
sL B 16

V4.0 -579

I<7
ZRCFR1
v03.0

015570
015572

CZRCFCO RC25 FR END TEST
GLOBAL TEXT SECTION
000
101
040
107
116
126
114
114
116
101
040
107
116
125
101
105
000
101
117
101
116
040
117
045

116
122
111
040
101
101
105
000
116
122
111
040
111
102
045
000
120
107
115
117
113
127
116

101
101
106
114
105
000
101
101
101
116
116

114
104
101
125
045
000
123
116
114
105
000

27-Mar-1985 15:21:49
11-Jen-1985 08:19:19
. ANF:

.AHG:

+AHH:

15771

15777
16005
16010
16013
16016
16020
16023

123
103
123
000
111
101
104
117
101
045
103
115

/9N/<00>

/%AN/
/0 R/
/€EG1/

/5017
/TAB/
/LE%/
/N/<00><00>
/%AP/
/R0OG/
/RAM/

/ NO/
/T K/
/NOW/
/NsN/

JAHI:

JAHY:

<00»

/8AL/

/0RAD/
/ FA/
/ILV/
/RE%/
/N/<00><00>
/9%AS/

/TAN/

/DAL/
/0ONE/
/%N/<00>
<00>

015752
015754

101
103
123
116
101
126
111
103
115
104
000
101
115

/70 R/
/EG1/
/0N /
/AVA/
/ILA/
/BLE/

/0N /

.AHC:

015763

/N/<00>
/%AN/

.AHL:

.AHM:

.AHN:

P.AHD
P.AHE
P.AHWF
P.AHG
P.AHH
P.AHI
P.AHJ
/%AS/
/VUCC/
/ESS/
/%N/<00>
/%AI1/
/NVA/
/LID/
/7 C0/
/MMA/
/NDs/
/N/<Q0>
/%AC/
/0MM/

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFCIZRCFC1.B16;1

SEQ_0088

Page

(12)

ZRCFR]L

CZRCFCO RC2S FR END TEST

v03.0

016026
016031
016034
016037
016042
016044
016047
016052
01605S

016063
016066
016071
016074
016077
016102
016105
016110
016112
016115
016120
016123
016126
016131
016134
016137
016142
016145
016150
016153
016156
016161
016164
016166
016171
016174
016177
016202

GLOBAL TEXT SECTION
101
040
117
105
116
045
116
05S
106
116
116
04S
116
05S
101
101

105
000
045
105
101

117
101
105
117
116
045
122
105
122
105
105
116
045
117
101
040
122

016205
016210
016213
016216
16221
16224
16227

045
04S
101
040
122
045
000

1623%

040

16260
16263
16266
16271

117
116
045
117

016230
16233

16241
16244
16247
16252
16255

L7
27-Mer-1985 15:21:49

116
101
122
104
000
101
111
117
114

105

000
101
111
101
111
102
045
000
101
104
040
122
124
122
122
000
101
111
040
117
103
104
000
101
115
122
105
117

104
102
124
045
125
124
106
111

P.AHO

125
124
126
114
114
116

P.ANP:

115
111

P.AHQ:

045

115
122
000
127
124
120
124
124
045

103
120
105
122
122

000
104
101

117
116

122
000

045
117

101
123

110
124

106
122
103
123
105

106
040
103
123
122

105
101
105
040
122

102

122
000
101
116

P.AMR:

P.AMS:

P.AHT:

122

P.AHU;:

125

S
000
103
124

.ASCII
ASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
ASCII
LASCII

.ASCII

106

116
101
124
105

11-Jen-1985 08:19:19

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

LASCII
_ASCII
.ASCII
ASCII
.ASCII
LASCII
.ASCII

/ABL/

/EwuN/
<00><00>
/sAM/
/€D1/
/A F/s

/0RM/
/AT /
/ERR/
/0Rs/
/N/<00><00>
/sAW/
/RIT/
/E P/
/ROT/
/ECY/
/EDw/
/N/<00>
/sAC/
/0MP/
/ARE/
7 ER/
/ROR/

/#N/<00>
/#AD/
/ATA/
7 ER/

/ROR/
/#N/<00>
<00»

_ASCII
.ASCII

/sANW/
/0S1/

LASCII1
.ASCII
.ASCII
.ASCII
.ASCII

/FFE/
/R A/
/CCE/
/5SS 7/
/ERR/
/0Rw/
/N/<00><00>
/sAC/
/ONT/

ASCII

P.AMV:

/AND/
7 AB/
/0RT/
/EDw/
/N/<00»
/#AY/
/NI1/
/-0OF/
/FL1/
/NEw/
/N/<00><00>
/sAY/
/NIT/
/-Av/
/AIL/

.ASCII
LASCII
_ASCII
LASCII

7 BU/

VAX-11 Bliss-16 V4,0-579

USER$1: [AZTEC.CZRCFC JZRCFC1. B16;1

o 0089 61

(12)

M7
CZRCFCO _RC2S FR END TEST
GLOBAL TEXT SECTION

27-Mer-1985 15:21:49

11-Jon-1985 08:19:19

P AMX:

.ASCI

P.AMK:

.WORD

‘.VU.V‘““““

114
122
122
122
000

. AW

$GLOBS,

.BLKW

1016

XMT _DATA.BUF
::
.BLKW

RCV.DATA
. BUF: :

2016

2020
Le02e

CL¥.CSR::

400
400

RO ,

GBL

VAX-1 18l
6 _Vv4.0-579
USER$ 1:(AZTEC. CZRCFC)ZRCFC1.816;1

SEQ_0090

Pege

(1 2)

N7
ZRCFR]

CZRCFCO RC2S FR END TEST
GLOBAL TEXT SECTION
i

002030
002032

.BLKW
CLK.HERTZ::
LBLKW
CLK.START:;:

002024

e e

v03.0

27-Mer-1985 15:21:49
11-Jen-198S 08:19:19

—

002034

o B

002036
002040

COM. AREA: ;

.BLKW
HEAD.AREA::
.BLKW

RECEIVE.RING:
:

.BLK

SEND.RINGa
REC.ENVELgPE

UORD

143325

MSGADR:
: .BLKW

END.LBN:;
.WORD

P.MASK:
; .BLKB

B.MASK:: .BLKB

MANU, SH.

.BLK
SWITCH2::
.BLKW

O,
e e

-34453

.BLKW
.BLKW
.BLKW
.BLKW
.BLKH

IS .“55

TIP::

MINUTES::

SND. ENVEL OPE ;
.BLKW
BUF .DESCRPTR::
.BLKW

104

ggo—wt—

flczs.olTflé:

002042

VAX-1 18 li 88-16 V4.0-579
USER$ 1:( AZTEC. CZRCFC)ZRCFCI.Blbsl

55090091 o3

.'.(12)

B8
ZRCFB1

CZRCFCO RC2S FR END TESY

v03.0

GLOBAL TEXT SECTION

005630

11-Jen-198S 08:19:19

‘

005636

005640
005642
005644
005646
000000

005652

Pl::
P2::

BLKW
BLKN

1
1

P4::
BLKN
PS::
BLKN
P6::
BLKN
REY.STATUS: K

1}
1
1
.

P3::

.BLKW

ER.STATUS::
MORD

BLKW

.BLK

BLKN

CANCEL. TIMER: :
CMD.SLOT::

005656

RES.SLOT::

005660
005662
005664
005666
005670

LBN::
BLKN
LBN.ST::.BLKW
LBN.ED::.BLKW
LBN.SZ::.BLKN
FREE.MEM.&Dgfl::

005672

MEM.SIZE::

005674
005676
005700

H.SADD::.BLKW
H.EADD::.BLKW
BUF .LENGTH: :

1
1

000000

CMOD::

.WORD

005706

000000

BLKW

005710

000001

RETRIES::
.WORD
FAL.CODE: :
.WORD

005702

005712

NUM.RETRIES::

DMC.TEST::

005714

BYT.CNT::

005716
005720

DM.REC::.BLKW
DM.XMT:: .BLKW

.BLKW

722

000037

724

000000

726

5730

USER#1:[AZTEC. CZRCFC]ZRCFCI B16:1

005654

005704

VAX-11 Blise-16 V4,0-579

RET.UNIT.;tm': .

005632
005634

005650

27-Mer-1985 15:21:49

SIZ.LBN::

.WORD

1
1
1
1
.

O
1

1
1
37

OFFSET:: .WORD

TEMP::

PASSO::

.BLKW

.BLKW
LGLOBL

'GLOBL

LS$SOFT, TSPTHV, LS$RPT,

LS$INIT

LS$CLEAN, L$LAST, I.$HARD, LS$DVTYP

.GLOBL

Lsoesc Lsou

.GLOBL
.GLOBL
.GLOBL

T10, 111. 112. 113 T14, Ti5, 116
T1i7. T18, T19, T20. T21. T122. 123
T24, 125, T26, 127, 128, 129

.GLOBL

T2, T3,

LsAu. L$AUTO, T1

16. 17, 18. 19

SEQ 0092

Pege

(12)

'
ZRCFB1

CZRCFCH_RC25_FR_END TEST

v03.0

27-Mer-1985 15:21:49

GLOBAL TEXT SECTION
000216
000244
000230
000011
000230
000244
002060'
000002
000006’
000036'
000070°

000128'
000154

000206
000222

44’

000270
000342
000422
000442
000460
000540
000570
000650
000724
000776
001050°

001150°
001214
001276
001360
001422

001470
001530°
001564
001620
001662

001726
001776

002046

002106’
002156
002226
002274
002356
002422
002460
002524
002564 "
002634
002674
002732
002774
003030

.
.
:

11-Jen-1985 08:19:19

LSERRTBL ==
LéSW=»
L $HWs»
L$DEPO==
DFPTBL==
SFPTBL=»
RINGBASE=»
TIME==
FRYs»
ADAPTQ==
CONTRO==

ERRTYP
LISWLEN.2
L $HWLEN.
2
LIREV.1
L SHWLEN.
2
L$SWLEN.2
COM. AREA+10
P.AAA
P.AAB
P.AAC
P.ARD

MECHAN= =

P. ARF

DRIVE. ==
QST1e»
Q5T2ee

@ST3e»

QSTas=

QSTo==
Q5T7e»
QST8e»
@5T9e=
@ST10e=
@510.1e=
@510, 2e=
QST1iee
QST14s=
@ST1Se=
DBM1=»

DBM7 ==

DBMB==
DBM9==
DBM10==
DBM11s=

DBM12s=
DBM13s=
DBM14==
DBM1S==
DBM16==

P.AAE

P.AAG
P.AAH

P.ARI

P.ARJ

P. AAK
P.AAL
P . ARM
P.AAN
P.ARD
P.AAP
P.AAQ
P.AAR
P.AAS
P.AAT
P.AAY

P.AAV

P.AAW
P . AAX
P.ARY
P.AAZ

P.ABA
P.ABB
P.ABC
P.ABD
P.ABE

DBM17=+
DBM18=»

P. ABF
P.ABG

DBM20= =
DBM21 =
DBM22+ =

P.ABJ

DBM19=+

DBM23=»
DBM24==
DBM2S==
DBM26==
DBM27==
DBM28= =
DBM29==
DBM30==
DBM31=+
DBM32s=
DBM36=+

P.ABH

P.ABI
P. ABK

P.ABL
P . ABH
P.ABN
P.ABO
P.ABP
P.ABQ
P.ABR
P.ABS
P.ABT
P.ABU
P.ABY

VAX-11 Bliss-16_V4.0-579

USER$1:(AZTEC.CZRCFCIZRCFC1.B16:1

SEQ_0093

00(12)

D8
CZRCFCO _RC2S FR END TEST
GLOBAL TEXT SECTION

ZRCFB1

v03.0

003072’
003136’
003176'
003252'
003304’
003330°
003376'
003444°
003452’
003536
003616'
003712’
003750’
004030’
004110°

27-Mer-1985 15:21:49
11-Jen-1985 08:19:19
DBM37==
DBM3B==
DBM39==
MSG.01==
ERR.Q]==
ERR.Q2==
ERR,Q3==

FMT4Ce=
FMT]=s
FMT2==
FMT3e=
FMT4==
FMTS==
FMT6==
FMT7==
FMT7A==
FMT8==
FMT9==
FMT10==
FMT1]l==
FMT12==
FMT13==
FMT14==
FMT1S==
FMT16==
FMT17==
FMT18==
FMT19==
FMT20==
FMT$A==
MSG.PWR==
MSG.1==
MSG.2==

MSG.7==
MSG.8==
MSG.9==
MSG.10==
MSG.1]1==
MSG.13==
MSG.14==
BUFF .ERR==
DMC.ERR==
INI.MSG==
END.MSG==

BRERR==
MSG.SEEK.ERR==
MSG.HSWICH.ERR==

MSG.SAC.ERR==

MSG.COM.WPT==

SK.FOR.ERR==
SK.REV.ERR==
SK.T0G.ERR==
SK.RAN ERR==

MSG.WRITE.ERR==
MSG.READ.ERR==
MSG.GUS.ERR==
AVAIL .ERR==

VAX-11 Bliiss-16 V4,0-579
USER$1:(A ZTEC. CZRCFC]ZRCFCI B16;1

SEO 0094

(12)

ZRCFR1

E8
27-Mer-1985 15:21:49

CZRCFCO RC2S FR END TEST

v03.0

GLOBAL TEXT SECTION
006766’
007056’
007146’
007214'
007266’
007340’
007416’
007456’
007516
007554°
011576’
012122
015410’
015742’
016404’

11-Jen-1985 08:19:19

MSG.AVE,TIME ==
MES.SKO.TIME==
MSG.PRO, TIME ==
MSG.SK.TIME==
MG.SKF,TIME==
MSG.ROT,TIME=»
AZT.READY.ERR==
EXE.SUP .ERR==
SND.DATA.ERR==
RE.DATA.ERR=»
PFE,STRUCT==
EMSG.STRUCT ==
RC.STRUCTURE ==
SOUP . STRUCT==
SMSCP.STRUCT==

)

VAX-11 Blies-16 V4,0-579

P.AEB
P.AEC
P.AED
P.AEE
P.AEF
P.AEG
P.AEH
P.AEI
P.AEJ
P.AEK
P.AEL
P.AFJ
P.AFQ
P.AHC
P.AHK

PSECT SUMMARY

Psect Name

$GLOB#S

Words

Attributes

1517

$PLITS

RO,

3727

RO,

GBL,

REL,

GBL,

REL,

CON

Library Stetistics

R
3

File

: USER$1:[AZTEC.CZRCFCJAZTECO.L16;2

Symbols --------

Toteal

Loaded

Percent

485

154

COMMAND QUALIFIERS

BLISS/PDP11/LIST ZRCFC1.B16/EN:NOEIS
Size:

Run Time:

Elepsed Time:

0 code + 5338 data words
01:33.8

01:39.6

Lines/CPU Min:
1248
Lexenes/CPU-Hun 10517
I Used:
299 pages
Compilation Complete

Pages

Processing

00:00.2

Mapped

SEO 0095 67

USER$1:[AZTEC.CZRCFCIZRCFC1.B1651

Time

(12)

F8
ZRCFB2

;0001

27-Mar-1985 15:23:34

11-Jen-1985 08:19:19

MODULE ZRCFB2 (

SEOP 0096
VAX-1 18l i88-16 V4,0-579
1
age
USER$ 1:(AZ TEC.CZRCFCJZRCFC2.B16;1
(1)

G8
CZRCFCO RC2S FR END TEST
h-v-b-b-o-fl-po-o-»-o-o—o—t-o-o-o—h-HMnMH»HHHMMHNNNNNNNNHHMMb-o-h-b-r-b-v-o—t-b-ooooo

ZRCFR2

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4.0-579
USER$1:[AZTEC.CZRCFC)ZRCFC2.816:1

STITLE 'CZRCFCO RC?S FR END_TEST'

IDENT = 'V03 o',
OPTLEVEL = 0,
QDDRESSING_MODE (RELATIVE)

BEGIN

§<eLF/Loucacnse_x£v>
librery 'AZTECO';
require

'BLSMAC.REQ';

structure

RC2S [0. P,
begin

S, E) =

local

RC_REG;

RC_REG
RC-REC =

.(RC2S - supv al+0)<0, %bpv al,

end

‘Po So E"

psect

code = AASCODE;

foruord rout ine

ND CLOCK : novelue,
CLOCK_INIT : novalue,

nczss:an RPT : novalue,
AZT_INIT,

AZP_INIT,
PRT‘FRU CALLOUT : novalue,

INIT_COM_AREA,

NXMI~: L3ISR novalue,

CLK_ INT_SERV : L$ISR novalue,

REC_STATUS,

SET_CNTLR_ CHAR

AVAILABLE,

nelo

LINE

READ_ FILL CHD novolue.

GET_OUNIT_STA
RANDOM_NOUM : novolue.
GET _CMb_sLoT,
GET_RES_SLOT : novalue,
EXAM DATA
AZTEC_READY,

DO_RETRIES: novelue,

decode : novolue:

! DEFINE ACCESS ALGORITHM
! TO ALLOW FIELD REFERENCE
! TO THE AZTEC
0>;

SEQ_0097

Page

(2)

ZRCFBZ

CZRCFCO RC25 FR END TEST

Vo3

3 :34

27-Mer-1985
11-Jen-1985

08:19:19

VAX-11 Bl

USERO
1:(AZ

1
1
1

:
1551
;1552

1
1

HEAD_AREA: ref block (4, word) field (HJR“FIELD),
RECEIVE RING: ref blockvectorNsaec
_ALLOCATE, 2,
word) f.exd (osc FIELD),

1554

REC_ENVELOPE: blockvector [ ALLOCATE, RB_SIZE + 2, uord

1556

BUF "DESCRPTR : word volatile,

:
:

1558
1559

1
1

CLK_ADR : word,
CLK_TYPE
: word,

:
:

1562
1563

1
1

CLK_HERTZ: word,
CLK_START : word,

1565

SECONDS : word volatile,

1550 1

1553 1

1555

1557

:
:

1560

;1561 1

1564

:
1566
;1567
;
1568

;
;
;
;
:
:

;

;
;

;
;
;

SEND RING : Nf blockvector z ALLOCATE, 2. uornfield (

SND_ENVELOPE: blockvector

[SND_ALLOCATE, SBsxze s 2,

word

FIELD),

r.cld (ENV_FIELD),
f.eld (ENV FIELD),

i BUFFER DESCRIPTOR

BYTE_COUNT : word volatile,

! BYTE COUNT BUFFER

CLK_CSR: word,

1(0=NO C

ILOCATION TO RETURN CLOCK ADDRESS
'TYPE OF CLOCK ON svs EM

-1= L-CLOCK, 1=P-CLOCK)

'STORE csnAboaess FOR CLOCK HERE
! CLOCK RATE
! STORE CLOCK START VALUE

! STORE NUMBERS OF CLOCK INT. OCCURED

1
1
1

MINUTES: word volatile,
MSGADR : word volatile,
DATAL : word,
)

! STORE MINUTES
! STORE MESSAGE ADDRESS
! STEP 1 WRITE DATA TO AZTEC_INIT

1572
1573

1
1

B_MASK: byte volatile,
]

! MASK FOR WITCH STEP TO DO
¢ IN AZTEC_INIT.

1575
1576
1577
1578

1
1
1
1

LBN_ST : word voletile,
LBN_ED : word volatile,
CMD_REF : word volatile,
RES_SLOT : word volatile,

!
!
!
!

;1574

;
:

COM_AREA: blockvoctor (REC_ ALLOCATE + SND_ALLOCATE « HDR_SIZ, 2, word],

TICKS : word voletile

;.
1569
:
1570
;15711

:
;

CZRCFC]ZRCFC2.816:1

external
ADAPTO,
CONTRO

1547
1548
1549

:
:
;.

1
1
1

1579
1580

1
1

1582
1583

1
1

ER_STATUS: word,
TEMP : word volatile,

! SAVES ERROR CODE

FREE_MEM_ADDR,
MEM_SIZE,
RINGBASE,

;
1590
;
1591
;1592
;1593
;
1594

1
1
1
1
1

;.
159
;1597
;1598
;1599
;1600

1
1
1
1
1

FRU,
FMT2,
FMT3,
FMT13,
FMT14,

;1602

DMC_TEST

;1595

START LOGICAL BLOCK NUMBER
ENDING LOGICAL BLOCK NUMBER
COMMAND REFERENCE
RECEIVING RING SLOT

! SENDING RING SLOT
¢ INIT INTERRUPT VECTOR

PASSO : word,
CMOD : word,
IN_BOUND : word,

1
1
1

! LOGICAL BLOCK NUMBER BUFFER

CHD_SLOT : word volatile,
VEC_AD
: byte,
.

1584
1585
1586

1587
1588
1589

! STEP 2 WRITE DATA TO AZTEC_INIT
! STEP 3 WRITE DATA TO AZTEC_INIT
! STEP 4 WRITE DATA TO AZTEC_INIT

LBN : word volatile,

RET srntus word volatile,

! STORE SECONDS

DATA2 : word voletile,
DATA3 : word volstile,
DATA4 : word volatile,

1581 1
1
1

SEQ 0098

6 vV4,0-579

DRIVE_,
DBM1,
ERR_O1,
ERR-02,
ERR03,

FMTIC,

! RETURN STA

! FLAG FOR FIRST PASS

! COMMAND MODIFIER

! STARING FREE MEMORY ADDRESS
! FREE MEMORY SIZE

Page

(2)

18
CZRCFCO RC25 FR END TEST

ZRCFR2

i o it B e s s P
s s i e s s s s ot s s o i s P
s so o
s o
s se e s s o

1605

1606
1607

0 Bt Bt e e e et ot ot o o e e e o e o

1604

11-Jen-1985 08:19:19

s it P P

v03.0

27-Mer-1985 15:23:34

HWP_TABLE : ref block [WORD2_IN HWP_TAB, word) field (HWP_FIELDS),

RT_TABLE : ref block [WORD1_IN_RT_TAB, word) field (RT_FIELDS),
RT": vector [WORD1_IN_RT_TAB, word),
I_AM_NEX : word volstile,
CANCEL _TIMER : word volatile,

RETRI

NUM_RETRIES,

SWP_TRACE,
SWP_START,
SWP_END

SWP_TOP.
SwP_LIMIT,
LSUNIT,
MECHAN

MSG_PWR,
MSG_14,

END_LBN : mord volatile,

P_MASK : b(te volatile,
RET_UNIT_FLIG : word,

: word volatile,

P3
P4
PS
P6

:
:
:
:

P2 : word volatile,
word
word
word
word

volstile,
volatile,
volatile,
voletile,

QsST11,

RC2S_ADDR : ref RC2S field (RC_REG),
RC2S_DATA : block [2, word) field (RC_REG),

EMSG_STRUCT : vector (4],
PFE_STRUCT : vector (23],
RC_STRUCTURE : vector [39]),

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFCJZRCFC2.816;1

SEOP0099

e (2)

o et
e e Pt et ot

prosr

FCO

—

FR END

ll-J:n-l985 08:19:19

TEST

27-Mar-1985 15:23:34

SDUP_STRUCT : vector [7)

SMSCP STRUCT : vector

XMT_DATA_BUF : vector

RCV_DATA_BUF : vector

WIT : m'do

OFFSET : word,
LOG_UNIT : word;

[13),

[256, word],
(256, word),

USER#$1:(

VAX-11 B liss-16 V4,0-579
AZTEC.CZRCFC)ZRCFC2.816;1

SEQ 0100
Page

(2)

ZRCFB2

MiSCELLANEOUS SECTIONS
:

v03.0

1669

1671

:
1673
: E ig;g

1
i

1670
1672

: C 1676
; C 1677
; C 1678
; C 1679
;: C 1680
; C le81
;: C 1682
1683
:
:
1684
;1685
:
:

1686
1687

27-Mer-1985 15:23:34

11-Jen-1985 08:19:19

‘.bttl 'TYPE AND DESCRIPTION'

VIYP (sesciz'AZTEC RC2S PLATTER' );
6é TEST DESCRIPTION
SCRIPT (wesciz'RC2S FRONT END/HOST DIAGNOSTIC' );%(

1
1

USER$1:[AZT CZRCFC]ZRCFC? B16;1

stitle 'HISCELLN(WS SECTIWS'

1
1
1
1
1
1
1
1
1
1

VAX-11 Blis1 4,.0-5

Dé NAMES OF DEVICES SUPPORTED BY PROGRAM

3 T'f HARDWARE PARAMETER CODING SECTION CONTAINS MACROS
: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE
: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
: MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS
; WITH THE OPERATOR.
§="
%
BGNHRD;
GPRMA (QST1, %0'0’', 0, %0'00000', %0’'177777', YES, 1);
!IP ADDRESS?
GPRMA (QST2, #o‘'2', 0, %o'4’', %o'774', YES, 1); 'VECTOR?
GPRMD (QST3, w%o'4', 0, ®0'177777', %o'4’', %0'7', YES, 1);

'BR LEVEL

. 0P01.921 6
E

(3)

MISCELLANEOUS SECTIONS
s s P ot Pt s Pt it Pt P Pt
s Pt Pt e Pt s s Pt [t s s i P
0 50 et et Bt et Bt Pt s Pt B

alalalalslslslsla]

SOF TWARE PARAMETER CODING SECTION

27-Mar-1985 15:23:34

11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4.0-579

USER$1:(AZTEC.CZRCFC)ZRCFC2.816;1

:?bttl ‘SOF TWARE PARAMETER CODING SECTION'
8‘0

: THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS

: THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE
: MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

: INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES.
THE
¢ MACROS ALLOW THE SLPERVISOR TO ESTABLISH COMMUNICATIONS

: WITH THE OPERATOR.

BGNSFT

GPRML (QST6, %o'0', wo'177777", YES, 1):

!USE TOP SURFACE FOR SINGLE SURFACE TESTS?
~!IF NO GO TO LABEL BOTTOM
GPRML (QST7, %o'2', %0'177777", YES, 1);
!D0 YOU WISH TO LIMIT THE AREA TESTED
!IN TESTS 015 - 0187
XFERF (MANINT);
!IF NO, SKIP NEXT TWO QUESTIONS
GPRMD (QST8, %0'4’', D, %0°'177777', sdecimal’'0’', sdecimel’'820', NO, 1);
!STARTING TRACK?
GPRMD (QST9. 0’6’. D. so'177777'. wdecimel'0’'. wdecimel‘820'. NO. 1)
!ENDING TRACK?

XFERF (BOTTOM);

XFER(LAST)

sL (BOTTOM);

GPRML (QST7. ®o'2', ®o'177777°, YES, 1);

!00 YOU WISH TO LIMIT THF GREA TESTED
VIN TESTS 815 - 6187
XFERF (VLAST);
!IF NO
GO TO LABEL VLAST
GPRMD (QST8, so'4’', D, #0'177777', sdecimal’'821', sdecimal’'1641', NO, 1);
'STARTING TRACK?
GPRMD (QST9, #0'6', D, %0'177777', sdecimal’'82]1', swdecimal’'1641', NO, 1);
TENDING TRACK?
$L (MANINT);
sL (LAST)

L (VLASTS:

'LABEL THIS QUESTION

GPRMD (QST11, %o0’'10', D, %0'177777', %0'0', ®0'177777', YES, 1)
!NUMBER OF RETRIES FOR TEST
TESTING?
GPRML (QS10_2, %o'12‘, 1, YES, 1);
GPRML (QST10, so'14', 1, YES, 1);
100 YOU WANT TO DO THE MANUAL
!INTERVENSION TEST?
GPRML (QS10_1, so'l6’', 1, YES, 1);
!D0 YOU NEED TRACE MODE?
ENDSFT;

100 YOU WISH TO' CONTINUE

SEQ 0102
! Page

(4)

M8
ZRCFR2
v03.0

:
‘

:
:
;.

MISCELLANEOUS SECTIONS
REPORT CODING SECTION

27-Mer-1985 15:23:34
11-Jon-198S 08:19:19

i;gz

'Obttl "REPORT CODING SECTION'

1727

' YHE REPORT CODING SECTION CONTAINS THE

izsg

1730
1731
17%2

{

“PRINTS” CALLS THAT GENERATE SYA!ISTIC‘L REPORTS.

BGNRPT;
return;
T;

¢
¢
1

LTITLE
.IDENT
000000
000000

101

132

124

000003
000006
000011
000014
000017
000022
000024
000027
000032
000035
000040
000043
000046
000051

105
122
065
114
124
000
122
065
122
124
116
110
124
111

103
103
040
10}
105
000
103
040
117
040
104
117
040
101

040
062
120
124
122

000054
000057

116
124
000
000000C

000066
000070
000072
000074
000076
000100
102
000104
106
110
112
114
116
120
122
124

000031

000062
000064

126
130
1%2
134

000000
177777
001031
000000G
000004
000774
002032
000000G
17777
000004
000007
003042
000000G
000377
000000
000375
000000C

117
111
000

062
106
116
105
057
123
104
107

123%
103

.PSECT
LSDVTIYP::
.ASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII

LS$DESC::.ASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII

.ASCII
LASCII
.ASCII
LSHRDLN::
GP$1::

GPs$2::

GPs$3::

GPs4::

.WORD

.WORD
.HORD
.WORD
.WORD
.WORD
LHORD
L.HORD
. WORD
.WORD
.WORD
. WORD
LWORD
L.WORD
.WORD
.WORD
.WORD

LMORD
.WORD
L SNDHRD:
:
LBLKW
LSSFTLN::

ZRCFB2 MISCELLANEOUS SECTIONS
/Vv03.0/
AASCODE,

/AZ1/
/€C 7/
/RC2/
/S P/
/LAY/
/TER/
<00><00>
/RC2/
/S F/
/RON/
/7 E/
/ND/<S57>
/HOS/
/7 D/
/IAG/

/NOS/
/71C/
<00><00>

cccL SNDHRD -L $HRDLN>/72> - 1>

31
QST1
O
-1
1031
QST2
4
774
2032
QST13
-1
4
7
3042
QST4
377

O
375
1

———s———

s ——

VAX- 18l1i 98-16 V4.0-579
USER 1:(AZ EC CZRCFC]ZRC?C2 816;1

SEQ 0103
P

- (3)

]

ZRCFR2

MISCELLANEOUS SECTIONS

v03.0

27-Mer-1985 15:23:34

REPORT CODING SECTION

000130
177777

000000C
001130
0000006

11-Jen-198S 08:19:19

GP8$S::

JHORD

<<<LONDSFT-LSSFTLN>/2>-1>

.WORD
.WMORD

QSTé6
-1}

.WORD

VAX-11 Blies-16 V4,0-579

USER$]:(AZTEC.CZRCFC)ZRCFC2.816;1

130

177N
000000C
002042
0000006
17777
000000
001464
003042
0000006

$B0TTOM: .WORD
GP$6::
.WORD
.
.WORD
$MANINT: .WORD
GP$7::
.WORD
.WORD
.WORD
MORD
.HORD
GP$8::
.WORD
WORD

«<<<4LBOTTOM- $BOTTOM>¢400>+4> 40>
1130
QS17

000000
001464
000000C
001004

.WORD
.HORD
SLAST:
.WORD
$LBOTTOM:

O
1464
<<<$LLAST-S$LAST>¢400>.4>

001130

GP$9::

1130

17777

002042

WORD

.WORD

177777

1004

QST17

.WORD

<ccc$LVLAST-$VLAST>¢400>+4>.40>

-1

GP$10:: .WORD

2042

.HORD
.WORD
.WORD

1465
3151
3042

.WORD
LHORD

177777

001465
003151
003042

-1

.WORD

$VLAST:

-1
<<<<SLMANINT - SMANINT >¢400> 4> +40>
2042
QST8
-1}
O
1464
3042
QST9

GP$11::

.WORD
.WORD

QST8
-1

QST9
-1

001465
003151
001004

.HORD
.WORD
$LMANINT

001004
001004
004052
0000006
177777
000000

SLLAST: .WORD
SLVLAST: . WORD
GP$12:: .WORD
.WORD
.WORD
LWORD

1004
1004
4052
QST11
-1
O

005130
0000006
000001
006130
0000006
000001
007130
000000G
000001

GP$13:: .WORD
.WORD
.WORD
GP$14:: .WORD
.WORD
.WORD
GP$15:: .WORD
.WORD
.WORD

S130
QS510.2
1
6130
QST10
1}
7130
QS510.1

1777717

.HORD

.WORD

LONDSFT::

1465
3151
1004

-1

SEQ 0104

Page

(S)

B9
ZRCFB2
v03.0

MISCELLANEOUS SECTIONS
REPORT CODING SECTION

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19
ADAPTO,

CONTRO,

VAX-11 liss-16 V4.0
USER41: AZTEC. CZRCFC]ZRCFCZ B16:1

SEQ 0105

Pnge

" 5)

COM.AREA, HEAD.AREA

necexvéams. 6 .RING, REC,ENVELOPE

SND . ENVope oescahn BYTE.COUNT
CLK.
CLK. me CLK.CSR, ch nem
CLK.smh ucxs seconos
MSGADR, DATA1, DATA2 As.

a msx LON.LBN ST LBN €D, cno aer
)
ué
cAgbom
.STATUS

BOUND
ra
e
rt:n
Aoon
zé
méaase
ORIVE., DBM1 m ox m ERR.03

FMTSC. 'FRU, FMT2, FMT3, i
FMT14,

FMTiS,

OMC.TEST, m CNT

oM, xMt, DM.REC, W.SADD. H.EADD

BUF. Leusrn MANU.SW, SWITCH2, TIP

SWP. CONTINUE rnm osns. 6sm
HWP. TABLE, RT.T

CANCEL. TIMER, nsmés éuv aemss

NUM. aemes SWP. TRACE, SWP.START

SWP.END, SWP.TOP
.suP ann LSUNIT

MECHAN, 'MSG. m

AL . CODE

euo LBN. P MASK | nsruuir ruc
P4,
PS, P6, QST1, Q5T2
6514 aste 6517 Q5T8. QST9
16
0516 1,smucf
0510.2, '@ST11.
RC25.ADDR
5.0ATA
PFE.
STRUCT
ac smucwae souP STRUCT snscv STRUCT
XM1.DATA.BUF. RCV.DATA.BUF,

OFFSET, LOG.UNIT

000000

000136’

L$SOF T==

000207

LRPT:

; Routine Size:

L $HRDLN-2
L$SFTLN.2

L$HARD==

000066’

1 word,

.SBTTL

RTS

%gPT REPORT CODING SECTION

1724

AA$CODE « 0306
Routine
Base:
:
0 words

; Maximum steck depth per invocetion:

.SBTTL
L$RPT:: JSR

004767 177772
104425
000207
; Routine Size:

4 words,

TRAP
RTS

Rout
ine Base:
C

; Maximum steck depth per invocation:

2 words

L$RPT REPORT CODING SECTION
Pg.LRPT

AASCODE - 0310

1731

C9
MISCELLANEOUS SECTIONS

BEEBGIGIGIGIGIGIGILINNN
NN NN G
NN NN NN
G B 8 55 8 Gl ¥ L8 IR N D O D OO N N b= s s s s

INITIALIZE SECTION

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4,0-579

USERS1: (AZTEC.CZRCFCJZRCFC2.816:1

isbttl "INITIALIZE SECTION'

' THE INITIALIZE SECTION CONngNS THE CODING THAT IS PERFORMED
!

AT THE BEGINNING OF EACH
P

BGNINIT:
oceal
DELAY_MULT;

!CONTAINS DELAY FACTOR

SETPRI (PRIO0O);

!PRIORITY 0

if READEF (EF_PWR)

!ARE WE HERE BECAUSE OF POWER FAIL?

then

begin

PR?NTF (MSG_PWR);

! "POWER DELAY - WAITING"

incru COUNT from O to 60 do

! WAIT APPROX. 60 SECONDS

DEEY_MULT = 10000

DELAY(. DELAY_MULT);

;
BREAK
end;

! BREAK FOR ACT

DOCLN;

end;

MAKE SURE NOT MORE THAN 16 UNITS (PLATTERS) HAVE BEEN SPECIFIED.

IF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR.

if .LSUNIT gequ 16
then

begin

PR?NTF (ERR_01);
DOCLN;

end;

!MORE THAN 16 UNITS?
!ERROR - TOO MANY UNITS
!RETURN TO SUPERVISOR AND CLEAN UP

if READEF (EF_CONTINUE) then return;

!IF CONTINUE GETS YOU HERE SKIP INIT.

PASSO = READEF (EF_START);

! SAVE START FLAG

if .PASSO or READEF (EF_RESTART) or READEF (EF_NEW)
then

baaln

-NUM RETRIES ' ZERO.
RETRIES = FALSE;
FIND_CLOCK ();

if CLK_TYPE eqlu NO_CLOCK

then

PRYNTF (ERR_02);
DOCLN;
end

! IF THERE IS NO CLOCK
! IN THE SYSTEM TELL THE
! OPERATOR

— age

(6)

D9
MISCELLANEOUS SECTIONS

ZRCFR2

INITIALIZE SECTION
1se

N
D N D L G N G N
D I D D L G G LN L
RV L R G G LN L L L L L L L L NV L N L N Y L
== FOTU L G O3 G

1793

1794
1795
1796
1797

v03.0

1790
1791
1792

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

.CLK_CSR = ZERO;

579
VAX-11 Bli
USER$1: (A TEC CZRCFC]ZRCFC? B16:1

! STOP THE CLOCK

DETERMINE THE FREE MEMORY STARTING ADDRESS AND IT SIZE
MEMORY (FREE_MEM_ADDR)

'FIND THE STARTING ADOR

MEM_SIZE = . FREE_MEM “ADOR;

iDETERMINE THE SIZE

end;

beoain
LOG_UNIT =

!OTHERWISE, INCREMENT LOGICAL UNIT
!AND CHECK FOR HIGH LIMIT.

_LOG_UNIT « 1;

if .LOG_UNIT gequ .L$UNIT then DOCLN;
end

!IF SO QUIT INIT AND DO CLEANUP,

until (GPHARD (.LOG_UNIT, HWP_TABLE)) neqa 0;

!GET HARDWARE P_TABLE POINTER

RT_TABLE = RT [0);

'AND LOAD RT_TABLE WITH THE

RT_TABLE
RT_TABLE

[RT_IP ADDRESS] = _HWP_TABLE [HWP_IP_ADDRESS); 'HARDWARE P_TABLE INFO.
[RT_VECTOR)= .HWP_TABLE [HWP_VECTOR];

RT_TABLE m “BR LEVEL] = _HHWP_TABL [uwsn LEVEL]
RT_TABLE
UNIT 1) = .HWP_TABLE [HWP_UN menis
RC2S_ ADDR m TABLE lm IP _ADDRESS );
UNIT = .RT_TABLE [RT

SETVEC (.RT_TABLE [RTvecToai NXMI, PRIO7);

PRINTB (oenI .LOG_UNIT, .RC25_ADDR. .UNIT);
if .SWP_TOP
hen

'PLATTER¢

'IP ADDRESS FOR me CONTROLLER
'AND PLATTER @ UNDER TEST

1SET UP INTERRUPT ROUTINE

'GIVE THIS INFO TO OPERATOR.

OFFSET = 0

! SELECT OFFSET BASED IN SURFACE

OFFSET = 821;

! SELECTED.

if not .SWP_LIMIT

then

\'8
SWP_START =

' IF LIMITS NOT PROVIDED THEN

! SELECT TRACK NUMBERS
! ACCORDINGLY.

,OFFSET;

SWP_END = 820 + .OFFSET;

end;

if .SWP_START gequ .SWP_END

then

! IF STARTING TRACK IS GREATER

! THAN ENDING TRACK THEN ERROR

begin

PRINTB (ERR-03);
DOCLN;

end;
f.

ENDINIT;

.GLOBL

L$DLY .

SEQ 0107
P

% &)

E9
MISCELLANEOUS SECTIONS

ZRCFB2

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

INITIALIZE SECTION

v03.0

LINIT:

.SBTTL
JSR

18T

CLR

TRAP
MOV
TRAP

000034

BHIS
MOV

000001

MOV

023420

14:
24:

34:

(6)

1743

034 ,RO
47

1745

64
OMSG.PWR, -(SP)

1748

H SP,‘
R2
023420,R3
R3,R1

: COUNT
; +,DELAY.MULT

L$OLY,RO

; #,$8THPL

4%
4(SP)

; DELAY. MULT, $$TMP2

;

$8TMP2

; COUNT

;s COUNT,=

1750

1755
1747
1765

(SP)+,(SP).
L$UNIT, 920

74
OERR. 01, -(SP)

01.-8595

1750

1752
1753

; $$TMP
; $$TMPI

000001

age

R2,074

6%:

SEOPOIOB '3

1732

-($P)

S4:

000000G 000020

4,0-579
CFC]ZRCFCZ B16;1

LINIT INITIALIZE SECTION
R1,$SAVE3

4s:

000074

VAX-11 B lis
USER $1:(AZT

1768

: SP,»

74:

000036
000426
000040

8%:

0000006
000001
012700
104447

000220

103404
012700
104447
103034
012767

000037
000035

177777

(SP)+,(SP)+

1767
1772

#36,R0
7

84
18%
#40,R0
47
R1,R1
R1
R1,PASSO
#1,R1
94
#37,R0
47
9

1774

;

*,PASSO

1776

#35,R0
47

0000006

9¢:

124

#-1,L0G.UNIT

1779

F9
ZRCFB2

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

v03.0

8-16 V4,0-S
TEC. CZRCFC]ZRCFCZ B16;1

SEQ 0109

Page

(6)

NUM.RETRIES
RETRIES
PC,FIND.CLOCK

1780
1781
1782
1784

PERR,02, -(SP)

1787

oCLK.TYPE
104

1,-(SP)

SP,RO
17

SP,»

(S:)O.(SP)O

104:
11%:

12%:

13¢:

11
aCLK.CSR
31
RO,FREE .MEM. ADDR

(gg)+MEM.SIZE

UNIT
kgG<UNIT,L$UNIT

1786
1791
1796
FREE.MEM.ADDR,
*

kOG.UNIT.RO

1797
1804
1806
1809

§O.HUP.TABLE
ORT ,RT.TABLE

. TABLE, #
HWP

RT,*
RT,*

1811
1812
1813
1814
1815
1816
1817

1818

UNIT,(SP)

1819

RC25.ADDR, -(SP)

LOG.UNIT,-(SP)
#DBM1, -(SF )

SP,*

000001

000000G

1821

0000006
001465
000001

000000G
0000006

000000G 000000G
001464 000000G
000000G 000000G

144
;
15¢:

164:

1
#1465,0FFSET
#1,SWP LIMIT
164

1823
1821
1825
1827

OFFSET,SWP.START
OFFSET, SWP.END

1831
1832

?gg.START.SUP.END

1835

#1464,
SWP . END

G9
zngraz

MISCELLANEOUS SECTIONS

v03.0

27-Mer-1985 15:23:34

INITIALIZE SECTION

000556

012716

000570
000572
0005784
000576

104414
104444
005726
062706

000604

000207

11-Jan-1985 08:19:19

0000006

MOV

000562 012746 000001
000566 010600

000602 005726

MOV
MOV

000020

17¢:

188:

TRAP
TRAP
15T
ADD

T1ST

RTS

OERR 03, (SP)

1,-(SP)
SP,RO

14
44
(sv)o
020,5

(595

VAX-11
liss-16
USER#$1: AZTEC. CZRCFC]ZRCFCZ B16;1
;

SEa 0110

%€
1838

i SP,»
1837
1732

;: Routine Size:
195 words,
Routine Base:
AASCODE + 0320
; Maximum stack depth per invocation:
16 words

000000
000004
000006

004767
104411
000207

: Routine Size:

.SBTTL
L$INIT::JSR
TRAP
RTS

177166

4 words,

; Maximum stack depth per

Routine Base:

invocation:

2 words

LS$INIT INITIALIZE SECTION
PC,LINIT

11
PC

AASCODE « 1126

1840

;
ZRCFR2

MISCELLANEOUS SECTIONS

v03.0

ig:g

1846 1

1853 1

;.
1847
;.
1848
;.
1849
1850
3
;1851
1852

000000

1
1
)
1
2
2

004767
104461
000207

; Routine Size:

SEQ 0111
Page
16

(7)

' THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF

! THE "ADR” FLAG WAS SET.
THE UNIT(S) UNDER TEST ARE CHECKED TO
' SEE IF TMEY WILL RESPOND.
THOSE THAT DON'T ARE IMMEDIATELY
! DROPPED FROM TESTING.
BGNAUTO;
return

ENDAUTO;

000207

;: Routine Size:

11-Jen-1985 08:19:19

VAX- 11 8 li 9s-16 V4,0-579
USER $1:(AZTEC.CZRCFCIZRCFC2.816;1

lobttl 'AUTODROP SECTION'

LAUTO:

1 word,

; Maximum steck depth per

000000
000004
000006

27-Mer-1985 15:23:34

AUTODROP SECTION

177772

4 words,

: Maximum stack depth per

Routine Base:

invocation:

0 words

.SBTTL
RTS

.SBTTL

Routine Base:

invocation:

2 words

1843

AASCODE + 1136

L$AUTO: JSR
RAP
RTS

LAUTO AUTODROP SECTION
PC

LS$AUTO AUTODROP SECTION

PC,LAUTO
61
PC

AASCODE - 1140

1852

19
MISCELLANEOUS SECTIONS

CLEANUP CODING SECTION

004767

000004
000006

104412
000207

;

Routine Size:

Pogcz 17

(8)

i THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED °

| AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED.

BGNCLN;
.CLK_CSR = ZERO;

Pl
P2
P3
P4

=
=
=
=

!
! TURN OFF THE CLOCK

ZERO;
ZERO;
ZERO;
ZERO;

! CLEAR ERROR ROUTINE
! PARAMETERS P1 - P6

PS = ZERO;

P6 = ZERO;

RET_STATUS = ZERO;
NUM_RETRIES = ZERO;

! CLEAR STATUS AND
! FLAGS

IN_BOUND = FALSE;

! VER:C

RETRIES = FALSE;
return;

23 words,

RTS

W
W
W
We
WE
S
W
W

P2
P3
P4
PS
P6
RET.STATUS
NUM.RETRIES
RETRIES
IN.BOUND
PC

Routine Base:
AASCODE - 1150
invocation:
0 words

.SBTTL
L$CLEAN::

177716

JSR

TRAP
RTS

4 words,

LCLEAN CLEANUP CODING SECTION
aCLK.CSR

LSBTTL
LCLEAN: CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR
CLR

ENDCLN;

Maximum stack depth per

[000000

SEQ 011

tobttl ‘CLEANUP CODING SECTION'

0000006
0000006
0000006
0000006
0000006
0000006
000000G
0000006
0000006
000000G
0000006

; Routine Size:

11-Jen-1985 08:19:19

iss-16 V4,0-579

VAX-11 8l
USER$1: (AZTEC.CZRCFCIZRCFC2.B16;1

AL NN N RV NNV N N N R b= s s s s
=10

g g

v03.0

;

27-Mar-1985 15:23:34

ZRCFB2

Routine Base:

; Meximum stack depth per invocation:

2 words

LS$CLEAN CLEANUP CODING SECTION
PC,LCLEAN

12
PC

AASCODE + 1226

1871

J9
MISCELLANEOUS SECTIONS

o
~J

90
0
S0
G0
8

1880

o o
=2 PO N 5o bt s

1873
1874

000000

Iobttl

SEOP2513 18
(9)

: THE DROP-UNIT SEC?ION CONTAINS THE CODING THAT CAUSES A DEVICE
' TO NO LONGER BE TEST

BGNDU:

return;

ENDDV;

000207

004767
104453
000207

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC. CZRCFC]ZRCFCZ B16;1

‘DROP UNIT SECTION'

LDU:

: Routine Size:
1 word,
; Maximum stack depth per

000000
000004
000006

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

DROP UNIT SECTION

ZRCFRB2
v03.0

177772

.SBTTL
RTS

Routine Bese:
AASCODE :
invocation:
0 words

L$DVU::

.SBTTL
JSR

TRAP
RTS

LOU DROP UNIT SECTION
PC

1872

1879

1236

L$DU DROP UNIT SECTION
PC,LDV
PC

4 words, .
Routine
Base:
AASCODE - 1240
: Routine Size:
.
2 words
;: Maximum stack depth per invocation:

K9
MISCELLANEQUS SECTIONS
ADD UNIT SECTION

ZRCFB2

000000

=2 PO N =t 4t ot puts ot P

—

[+ ]
[
wm

v03.0

004767
104452
000207

; Routine Size:
;:

!
!

.9.(10)

70 BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK
TO THE TEST CYCLE.

ééNAUs

return;

ENDAU;

LAV:
1 word,

Routine Base:

invocation:

177772

4 words,

Maximum stack depth per

1890

SEOP0114 19

i THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES

;: Meximum stack depth per

000000
000004
000006

VAX-1 18li98- 16 v4.0-5 79
USER#¢ 1:(A ZTeC .CZRCFC)Z RCFC2.816;1

?sbttl ‘ADD UNIT SECTION'

000207

: Routine Size:

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

O words

L$AV::

Routine Base:

invocation:

1<BLF/PAGE>

2 words

.SBTTL
RTS

LAU ADD UNIT SECTION
PC

1880

AASCODE « 1250

.SBTTL
JSR

TRAP
RTS

AASCODE «

L$AU ADD UNIT SECTION
PC,LAU

Se
PC

1252

1888

L9
ZRCFR2

MISCELLANEQUS SECTIONS

v03.0
:

ADD UNIT SECTION

1891

psect

Teo

: THE INITIALIZATION SEQUENCE INTERRUPT OCCURED.

1898
1899
1900

1
2
2

BGNSRV (NXMI);
I _AM_NEX = io'177777'

1902

ENDSRV

1
1

1895

iggg

:
;.
:
;.

11-Jen-198S 08:19:19

3
1892
;1893
:

27-Mer-1985 15:23:34

1894

;1901 2

012767

000014

000002

: Routine Size:

1903

CRNCEL _TIMER = %o’ 177777-

177777

0000006

177777

NXMI::

0000006

7 words,

Routine Base:

invocation:

iggz

;.
:

1907
1908

ig(l)g

1
2

BGNSRY (CLK_INT_ SERV):

1911

1913

3
:

1912

;
:

1914
igig

3
g

1917

;.
:
;.
3
;.

1919
1920
1921
1922
1923

4
4
4
3
3

;

1918

:
3
3

1924
1925
1926

—

00014

.SBTTL

NXMI ADD UNIT SECTION

MOV

0-1,1.AM NEX

O words

ABSCODE,

0-1,CANCEL . TIMER

;

1900

;

1899

1901

ABSCODE « 0000

! THE CLOCK INTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK RATE

TICkS = .TICkS < 1;

! INCREMENT THE NUMBER OF TICK

if .TICKS eqlu .CLK_HERTZ

' IF TOTAL NUMBER OF TICK = 60

then

' THEN

bca

TICKS = 0;
SECOM)S = _SECONDS -« 1;

! RESET TICK TO ZERO
! INCREMENT THEN SECOND

if .SECONDS ealu 60

! IF SECOND = 60

then

! THEN

bcein
SECONDS = 0;
MINUTES = .MINUTES « 1;
end;

2
2
1

ENDSRV;

005267

000000G

026767
001014

000000G 0000006

005067

MOV
RTI

1904

m(lf?

; Meximum stack depth per

' GLOBAL LOCATION "I_AM _NEX" IS SET TO TRUE WHICH INDICATES

.PSECT

000000

USER$1: [AZTEC.CZRCFC JZRCFC2. B16;1

SEQ 0115

code = AB$CODE;

000000
000006

VAX-11 Bliss-16 Vv4.,0-579

! RESET SECOND TO ZERO
! INCREMENT THE MINUTES

end;

000000G

LSBTTL

CLK,.INT.SERV ADD UNIT SECTION

INC
CHP
BNE

TICKS
TICKS,CLK ,HERTZ
1%

CLK.INT.SERV::

CLR

TICKS

:
;

1909
1911

1914

i
: Routine Size:

1%:

19 worgs, .

: Meximum steck depth per

)o—

USER

—Qu

VAX-

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

U-.-l

M9
579

RCFCIZRCFC2 816;1

SEO 0116

(11)

SECONDS
iiCONDS.O?A

1915
1917

SECONDS

1920
1921
1908

MINUTES

Rout ine Bese:
ABSCODE . 0016
0 words
invocetion:

N9
RN WWWNPLNNNWWE L LS B 0B Gl LI Gl G 8 G 8 D IO Y N\ 52 1 s 5 et s s e

MISCELLANEOUS SECTIONS
FIND CLOCK ROUTINE
ssbttl

;

27-Mer-1985 15:23:34
11-Jon-1985 08:19:19

VAX-11 Blies-16
579
USER$1:[AZ fC CZRCFC]ZRCFC2 816;:1

'FIND CLOCK ROUTINE'

'lml routine FIND_CLOCK : novelue *

1CHECK}0 MAKE SURE THERE IS A CLOCK ON THE SYSTEM.

IF NO_CLOCK, ABORT TO

!SUPERVISOR.
'O"ERUISE DETERMINE WHETHER CLOCK IS AN L OR P CLOCK, GET ITS PARAMETERS.

Ef’_tvot * NO_CLOCK;

'SET FLAG FOR NO CLOCK

if CLOCK (P, CLK_ADR)
thcn“ g

'1S THERE A P_CLOCK?

CLR_TYPE = P CLOCK

CLKCSR =

'SET THE FLAGE FOR P_CLOCK

oéi

YSAVE THE CSR ADDRESS

CLK HERTZ = . CLK DR « 6);

'GET THE CLOCK RATE

Efi: START » ¢o'1os
else

!SAVE THE STARTTING CLOCK VALUE

begin

if CLOCK (L, CLK_ADR)
thcn“

'1S THERE AN L_CLOCK?

CL 1vpc = L_CLOCK

'SET THE FLAG FOR L _CLOCK

CLK CSR = ,.CLK A i
CLK_HERTZ = . (.ELK_ADR + 6);
Sk: START = lo'lOO'

'SAVE THE CSR
ADDRESS
'GET THE CLOCK RATE
!SAVE THE STARTING CLOCK VALUE

end;

é:..CLK_TYPE nequ NO_CLOCK

'IF

{a]

e!AD = .(.CLK_ADR + 4);

CLOCK WAS FOUND THEN

'GET CLOCK VECTOR ADODRESS

ifilvec (.VEC_AD; CLK_INT_SERV, PRIOS);

$SET VECTOR & SERVICE ADDR.

end;

.SBTTL

0000006

FIND.CLOCK::
CLR

000120

MOV

FIND.CLOCK FIND CLOCK ROUTINE

CLK. TYPE

TRAP

0000006
000001
0000006

MOV
MOV

RO,CLK.ADR
01,CLK.TYPE

000006
000105

MOV
MOV

6(RO),CLK
. HERTZ
9105, LK. START

0000006

000114

BHIS

MOV

0000006
000000G
14:

MOV

9120,R0

;

; RO,
;
i CLK.ADR,+

(RO),CLK.CSR

:
.

zéll.RO

SEOPOIU 22

.’.( 12)

B10
MISCELLANEOUS SECTIONS

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

FIND CLOCK ROUTINE
0000006

177777

BHIS
MOV

MOV
MOV
MOV

0000006

000006 000000G
000100 000000G
0000006

2%:

MOV
ST

BEQ
MOV

34:

o-icux TYPE
(RO),CLK.CSR
6(R05CLK.HERTZ
oxoo ¢LK. START
K.tYPE
o

K.ADR,RO

MOVE

4(RO),VEC.AD

MOV
CLR
MOVB

oCLK . INT.SERV,
-(SP)
-(SP)
VEC.AD,(SP)

TRAP
ADD
RTS

3
910,5P
PC

"OV

000010

24
RO,
CLK. ADR

USER#$1: (AZ EC CZRCFC)ZRCFCZ 816:1
[} “ot.
CLK.ADR,*

SEQ 0118

(12)

1952
1953
1954
1955
1960
1963
1964

e 56)

Routine Bese:
ABSCODE + 0064
: Routine Size: S8 words,
: Meximum steck depth per invocation:
6 words

1968

VAX-11 Blise-16 V4,0-579

1962
1929

C10
ssbttl 'CLOCK INIT ROUTINE'

vlobal routine CLOCK_INIT : novelue =

gxnxt CLOCK
beein
.CLK_CSR = ZERO;

! STOP THE CLOCK
! CLEAR THE COUNTER

TICKS = 0
SECONDS =

MINUTES = 0;

.CLK_CSR = _CLK_START;

; Routine Size:
Rout ine Base:
12 words, :
; Maximum stack depth per invocation:

MOV

RTS

aCLK.CSR
TICKS

SECONDS

MINUTES
SEK.START.GCLK.CSR

AB$CODE « 0250

0000006
0000006
0000006
000000G 0000006

005067
005067
005067
016777
000207

CLOCK.INIT CLOCK INIT ROUTINE

000004
000010
000014
000020
000026

.58

CLOCK.INIT:
CLR
CLR
CLR
CLR

1977
1978
1979

®e

0000006

®s

005077

! START THE CLOCK

end;

000000

1983

= 10NNV PO N N =0 s et pos s pus

—

CLOCK INIT ROUTINE

1982

€0 0119
e-16_V4.0-579
TEC.CZRCFCJZRCFC2.816;:1

27-Mar-1985 15:2 3:34
11-Jen-1985 08:1 9:19

MTSCELLANEOUS SECTIONS

1981
1971

MISCELLANEOUS SECTIONS

ZRCFR2
v03.0

3
;.

RC2S CONTROLLER ERROR REPORTING

1984
1985

1
1

000000

004767

000004
000006.

104423
000207

PO LD ML L L L L L AL L L RV L NV NV Y L L NV L L L ML NN LN NV NN NN NN NN
O G G4 G

§3

1987

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC CZflCFC]ZRCFCZ B16;1

SEOP0120 25
(14)

BGNMSG (RC2S$ERR_RPT);

000000V

.SBTTL

RC2S$ERR.RPT RC2S CONTROLLER ERROR REPORTIMB

JSR
TRAP

PC,M$RC2S4ERR.RPT
23
PC

RC2S$ERR.RPT: :
RTS

: Routine Size:

1986

11-Jan-1985 08:19:19

ssbtt]l 'RC2S CONTROLLER ERROR REPORTING'

4 words,

;: Meximum stack depth per

D10
27-Mar-1985 15:23:34

Routine Base:

invocation:

2 words

ABSCODE « 0300

]

;

FUNCTIONAL DESCRIPTION:

;

THIS ROUTINE IS CALLED BY THE DIAGNOSTIC SUPERVISOR VIA
THE "PRLINK" ARGUMENT SPECIFIED IN THE $DS_ERRXXX MACRO

TO REPORT DETAILED RC 25 CONTROLLER ERRORS.

: FORMAL PARAMETERS:
]

:
:
;
:
'
'
]

P1
P2
P3
P4
PS
P6

POINTER TO FORMATED ERROR MESSAGE.
FIELD REPLACEABLE UNIT CALL-OUT MASK.
RC 25 CONTROLLER REGISTER PRINT-OUT MASK.
DATA.
DATA.
DATA.

i IMPLICIT INPUTS:

RET_STATUS

g IMPLICIT OUTPUTS:
g

- NONE -

g COMPLETION CODES:
g

- NONE -

i SIDE EFFECTS:
g

- NONE -

:
- PRINT SUPPLEMENTAL ERROR INFC
i
if .P1 nege 0
then
begin

! IF ERROR MESSAGE POINTER
! ISN'T O, THEN PRINT-OUT

if .P_MASK eqlu 3 then PRINTB (.P1,

.P4,

.PS,

.P6);

if .P_MASK eqlu 2 then PRINTB (.P1,

.P6,

.P4,

.PS);

SUPPLEMENTAL ERROR INFO.

1985

ZRCFBR2

MISCELLANEOUS SECTIONS

v03.0

RC25 CONTROLLER ERROR REPORTING

5833

end;
3
if .P3 nequ O
n

:
:

2038
2039

2
2

2042

2044

:
:
:

2046
2047
2048

3
:
3

2050
2051
2052

gg:g

2043

2045

2049

11-Jan-1985 08:19:19

_
if .P_MASK eqlu 1 then PRINTB (.P1,

3
3
3
2
2
2
2

;2029
3
2030
2031
:
2032
:
2033
:
3
2034
:
2035

E10
27-Mar-1985 15:23:34

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC. CZRCFC]ZRCFC2 B16;1

! IF ELIGIBLE REGISTER(S)
! PRESENT, THEN PRINT-OUT

PRINTB (FMT3, .PE, .P3);

! SELECTED

CONTROLLER

! REGISTER(S).

5 PERFORM FIELD REPLACEABLE UNIT CALL-0UT

! IF ELIGIBLE FRU CALL-0UT(S)

PRY’FRU CALLOUT (.P2);

! FEILD REPLACEABLE UNITS.

2
2
2

Pl = ZERO;
P2 = ZERO;
P3 = ZERO;

2
2
1

PS = ZERO;
= ZERO;
ENDHSGs

2
2

(14)

.P4);

'if .P2 neau O

e 0121 26

then

! PRESENT, THEN PRINT-0OUT

' CLEARALL PARkHETERS

P4 = ZERO;

000000G

! END OF ROUTINE:
.SBTTL

MS$RC2S$ERR.RPT RC2S CONTROLLER ERROR REPORTING

BEQ

H‘RCZS‘E?giRPT: P1

000000G 000003

000000G
000000G
000000G
000000G
000004
000012

g;HASK.OB

MOV
MOV
MOV
MOV
MOV

P6,-(SP)
PS,-(SP)
P4,-(SP)
P1,-(SP)
04,-(SP)

ADD
CMPB
BNE
MOV
MOV
MOV
MOV
MOV

#12,5P
P.MASK, 02
24
PS,-(SP)
P4,-(SP)
P6,-(SP)
P1,-(SP)
04,-(SP)

MOV
TRAP

000002

1¢:

000000G
000000G
000000G
000000G
000004
000012
000000G 000001
000000G
000000G
000002

ngB

24:

SP,RO
14

MOV
TRAP
ADD
gngB

SP,RO
14
#12,SP
gsfiASK.Ol

MOV
MOV
MOV
MOV

P4,-(SP)
P1,-(SP)
02,-(SP)
SP.RO
14

2022

2026

; SP,*

2028

: SP,*
:

: SP,#

2030

F10
MISCELLANEOUS SECTIONS

ZRCFR2

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

RC25 CONTROLLER ERROR REPORTING

v03.0

000006
0000006

VAX-11 Bliss-16 V4.0-579

USER4$1: [AZTEC. CZRCFC]ZRCFCZ B16:1

34:

(14)

2034

0000006
0000006
0000006
000003

2036

)

orms -(SP)

&p)

; SP,#

#10,SP
P .-(SP)

4%:

gC.PRTSFRU.CALLOUT

RTS

Routine Bese:
86 words,
AB$CODE + 0310
; Routine Size:
7 words
; Maximum steck depth per invocation:

000207

SEO 0122

G10

8:19:1

VAX-11

g FUNCTIONAL DESCRIPTION:
13
1]
0

THIS ROUTINE REPORTS FIELD REPLACEABLE UNITS WHICH ARE
DEEMED ELIGIBLE FOR PRINT-OUT BY THE FAILING TEST.

! FORMAL PARAMETERS:
:

FRUSMASK

FIELD REPLACEABLE UNIT CALL-OUT MASK.

s e
s s

i IMPLICIT INPUTS:
]

- NONE -

NONE

' COMPLETION CODES:
.

]
'

NONE

]

! SIDE EFFECTS:
'

NONE

]

begin

local

FRUSMSG;

;

ALLOCATE STORAGE FOR

! POINTER TO FRU MESSAGE.

§ PERFORM FIELD REPLACEABLE UNIT CALL-OUT
incru FRU_SELECT from O to 3 do

! CHECK EACH FRU FOR
! POSSIBLE CALL-OUT.
! IF CURRENT FRU ELIGIBLE
! FOR PRINT-OUT THEN GET
! POINTER TO FRU MESSAGE.

if BIT_TST (.FRUSMASK, 1t.FRU_SELECT)
then
begin

selectu 1t.FRU_SELECT of
set

! SELECT FRU FROM ONE OF
! THE FOLLOWING:

[ADAPT] :
FRUSMSG = ADAPTO;

! GET ASYNC FRU MESSAGE.

[CONTR] :

FRUSMSG = CONTRO;

[DRIVE] :

FRUSMSG = DRIVE_;

8Bliss-16
V4, 0-579

PArTec

USER$1:(AZTEC.CZRCFC)ZRCFC2.816;1

Qlobol routine PRTS$FRU_CALLOUT (FRUSMASK) : novelue =

! IMPLICIT OUTPUTS:

PO G PO D D D D D D) D D D D D) ) 50 5t Bt Bt et s ot s et s

27-Mer-1985 1 5:23:3 4
11-Jen-1985 0
9

%sbttl 'FIELD REPLACEABLE UNIT REPORTING'

NO O O O O O O O O O

s s

s o o (s (e ot s s Pt Pt ot s

MISCELLANEOUS SECTIONS
FIELD REPLACEABLE UNIT REPORTING

n
o

.'.....l.l.l‘....I.l...............0...l...0.l.l.l...'...O.I.0.'.......'.0.0.......'.'.....‘“.O...t.'“..““““

ZRCFB2
v03.0

! GET SYNC FRU MESSAGE

! GET ARR_DAT FRU MESSAGE

SEQ 0123

*0¢,53

H10
MISCELLANEOUS SECTI
FIELD REPLACEABLE UNIT
NN

REPORTING

CH) :
tes;

N W

—
[

2110
2lll
elle
ell3

B2 PO

- e

V03.0°

27-Mar-1985 1 5:23:34
11-Jen-19 85 08:19:19
8:

FRUSMSG = MECHAN;

PRINTX (FRU,
end;

.FRUSMSG,

! GET MEM_ARR FRU MESSAGE

PRT$FRU. CALLOU

1%:

000014

000001

MOV
JSR
MOV
ST
MOV
COM
BIC
MOV

34:
44:

S$:
000003
000012
000003

63 words,

64:

MOV
JSR

R2,-(SP)
PC,BL $SHF

b). (SP)e
BL $SHF

#1,-(SP)

CMP

RO, 01

CMP

RO, #2

MOV

#CONTRO,R3

BNE
MOV
BNE

CHMP

24
0ADAPTO,R3

MOV
MOV
TRAP
ADD

INC

*
FRUSMASK,

*
FRU.SELECT,

FRU.SELECT,*

2099

2102

2106
2108

#DRIVE. ,R3

*,FRUSMSG

2109
2111

SMECHAN,R3
UNIT (SP)

*,FRUSMSG

2112
2115

RO, 04

RO,#10
5%

MOV

2095

*,FRUSMSG

cMP
BNE

MOV

FRU.SELECT,»

2055

2103
2105

MOV
MOV

FRU.SELECT

*,FRUSMSG

BNE

MOV

-(SP)

oréu. (SP)
03,-(SP)
SP,RO
15
#12,5P

CMP

R2,03

RTS

BLOS

Routine Base:

R2,-(SP)
PC,BL $SHF
RO,R1
(SP)e
14(5P),RO
RO
RO,R1
01.(SP)

CHP
BNE

MOV

2%:

Rl $SAVES
R2

az. (SP)

CMP

'PRT$FRU_CALLOUT'
.,

PRTSFRU CALLOUT FIELD REPLACEABLE UNIT REPORTING

MOV

JSR

; Routine Size:

! END OF ROUTINE:

end;

000001

.9.(15)

! PRINT FRU CALL-OUT,

JUNIT);

.SBTTL

SEOPOIZC 20
VAX-11 Bliss- 16_v4.0-579
USER$1:[AZT EC.CZRCFCJZRCFC2.B16;1

AB$CODE + 0564

FRU$MSG,*
SP,*
FRU.SELECT
FRU.SELECT,
*

2097
2092

2055

110
ZRCFB2
v03.0

MISCELLANEOUS SECTIONS
FIELD REPLACEABLE UNIT REPORTING

: Maximum stack depth per

2119

invocation:

11 words

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4,0-579
USER$1: [AZTEC.CZRCFCIZRCFC2.816;1

s€0,0125

% 135)

J10
ZRCFR2

MISCELLANEOUS SECTIONS

AZTEC INITIALIZATION

5{5?

3{3;

2126

2127
2128
2129
2130
2131

2132

2133
2134
2135

Sigg

2138

2139
2140
2141
gizg
2144
5{:2

—

2147

2152
2153
2154
gigg

2157
2158

5123
5{25

2163
2164
2165

2166
2167

2168
2169
2170
2171

2173

2175
2176

POV

2172

%sbttl

D NI R R 50 10 18 et s et s ot o ot e s o et e Pt s s o e e e s e Pt P et e s e i s i it Pt s o s s s s s P o s ot

gisg

..““.l”.‘.‘.l.fl.'.fl.I.....C.'...I.l.......I.‘...l.........l.l......'....'..................’.“.I..“.l““.l..

v03.0

2174

27-Mar-1985 15:23:34

11-Jan-1985 08:19:19

VAX-11 Bliss-16 V4.0-579

USEROI:[AiTEC.CZRCFC]ZRCFC2.816:1v

'AZTEC INITIALIZATION'

vlobol routine AZT_INIT =

§ FUNCTIONAL DESCRIPTION:

THIS ROUTINE FIRST STARTS AZTEC INIT BY WRITING TO RCIP.

THEN EXPECTS TO READ STEP 1 BIT IN RCSA INDICATING THAT
THE PORT IS READY TO ACCEPT STEP 1 WRITE DATA. IF THE
STEP READ DATA WAS g« THEN WRITES STEP 1 WRITE DATA TO RCSA
THEN WAITS TO READ STEP 2 BIT IN RCSA. THIS PROCEJURE OF READ
FOLLOWED BY WRITE IS DONE AS GIVEN BY B_MASK.

]
]
]
]
]

IF THERE WAS ANY PORT FATAL ERROR IN ANY OF THE STEPS

THEN THE FAILURE DATA OF RCSA IS PRESERVED ANF FURTHER

]

STEPS ABORTED.
THIS ROUTINE WILL BE USED ONLY IF INTERRUPT WAS ENABLED

]
]

IN STEP 1 WRITE.

]
]

!] FORMAL PARAMETERS:
]

- NONE !]
]
! IMPLICIT INPUTS:

]

DATA1 = STEP 1 WRITE DATA
DATA2 = STEP 2 WRITE DATA

]

DATAS = STEP 3 WRITE DATA

DATA4 = STEP 4 WRITE DATA

B_MASK = WITCH STEPS WILL BE DONE
%0 1 = STEP 1
%0 3 = STEP 1 2
%0 7 = STEP 1 1.2,3

]

'
:
'
:

%017 = STEP 1 1.2.3.4

:
'] IMPLICIT OUTPUTS:
]

]

IF ERROR OR NO STEP IT WILL RETURN
,
P1-P6, P_MASK

! COMPLETION CODES:
]
’

RET_STATUS RETURNS COMPLETION CODE.

]
]

i] SIDE EFFECTS:
.
]

’

- NONE begin

locel

MASK,

COUNT,

DATA

'
! INIT THE AZTEC

'STEP NUMBER
ISTEP MASK

ITIME OUT COUNT

{WRITE DATA FOR THE STEP

SEQ 0126

°°‘(12§

IK10

VNS EBAVIVIVIVIVING L LA LLLLLLLLLLDLLLLLLLLLLELEUGEWLINNNNNNNRNNNN
N

MISCELLANEOUS SECTIONS
AZTEC INITIALIZATION

g S
n

.Q“.‘.I.I.Q.l.fl.Q.'.'...'-..0..'......l.l.'.....'.'...l.....l....-'...'.........l_.....‘...l...l...l.‘.l..“flfl“

ZRCFR2
v03.0

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4,0-57
USER$1: [AZTEC. CZRCFC]ZRCFCZ 816;1

;_AH_NEX = ALL_ONES;

INIT INTERRUPT FLAG

! THE FOLLOWING LOOP WILL DO STEP 1 THRU 4 AS GIVEN BY B_MASK
! INPUT SELECTING APPROPRIATE DATA INPUT FOR STEP WRITES. IF
! ERROR IN SA REGISTER P1 - P4 AND P_MASK WILL BE SUPPLIED FOR

! ERROR REPORT. CNLY SA DATA FOR THE FINAL WRITE STEP IS PRESERVED.
HASK = %b'0001';
WRT aces (RCIP, ALL_ONES);

! STEP MASK
! START INIT

DELAY (2);

! WAIT FOR COMPLETION

incru N from 0 to 4 do
begin

{:¢(.N eqlu 0 or BIT_TST (.B_MASK,
n

.MASK))

! TEST FOR STEP NUMBER

b‘gln

sclect:neu .N of
se

z SELECT CORRECT WRITE
!

(o) :

DATA

(1] :

DATA

(2) :

DATA

(3) :

DATA

(4) :
tes;

DATA

ALL _ONES;

.DATA};

! DATA FOR STEP WRITES

.DATA2;

.DATA3;
.DATA4;

;

if .N gequ 1 then WRT_RC25 (RCSA,
incru COUNT from 0 to 20 do

DECAY (333);
if

! STEP N WRITE DATA TO SA

' TIME OUT WAIT LOOP

! DELAY 1 SEC. APPROX.

. J_AM_NEX eqlu ALL_ONES then exitloop;

BREAK ;

end;

i: .I_AM_NEX eqlu ALL_ONES

then

.DATA);

begin

DEBAY (2);

! WATCH FOR CONTROL C.
!

IF INTERRUPT OCCURED ?

SEQ 0127

Page

32
(16)

L10
27-Mer-1985 15:23:34
11-Jen-198S 08:19:19

RC2S_DATA [RCSA, RC_ALL]) =

AVNIVIVIO N NN NN NNNNNN GO0V
1O T
VLV EWEHEWWHEWWHWRLLLVWW S BNV

..flfl*.....'.Q.Q.l.....I.'.l.....'.........C.!.0......“...l.............‘...'.I.....l““..‘l“.‘....‘.““““

MISCELLANEOUS SECTIONS
AZTEC INITIALIZATION

if .N nequ 0 then MASK =

.RC2S_ADDR [RCSA, RC_ALL);

+MASK?t];

VAX-11 Blise-16_V4.0-579

USER#$1: (AZYEC CZRCFC]ZRCFCZ 816;1
! STEP N

READ

! INCREMENT STEP

I_AM_NEX = ZERO;
if (.RC2S_DATA [RCSA, RCSA_ER] nequ ZERO)

then

bc?in

RET_STATUS = PFE_CODE;
exitloop;

else

! IF SA REGISTER CONTAINS

! FATAL ERROR

end

begin

if (.RC2S_DATA [RCSA,
then
b.alfl

RCSA_STEP] nequ .MASK)

P_MASK = 2;

! ERROR OR INCORRECT STEP

! SUPPLY P1 THRU P6 AND

Pl « FMT3

p2 = ApAPt
P4 = (.RC25
AD

. 23
.RC2S_ bnvu (acsn
RC_ALL);

PS
P6 = ,MASK;
MSGADR = nsc 14;

RET_STATUS = 1nue

return .RET STATUS:
end;

! TRUE STATUS.

end;

else

end

Ref
' Sratus = CT0_CODE:
cx.tlooos

end;

! IF YOU GET HERE PORT
! FAILED TO INTERRUPT
! WITHIN TIME ALLOWED

end;
end;

! IF STATUS WAS A FAILURE

if .RET_STATUS
then

bcain
P_RASK = 2;

! THEN SUPPLY P1-P6
! FOR TEST MODULE TO
! REPORT ERROR

P - FMT3;

P2 = ADAPT
P4 = (.RC2S

_ADDR) + 2;

ps . RC25 DATA [Rcsn RC_ALL
);
=

_MASK;

HSG‘DR . HSG 14*

return .RET_STATUS;

else

end

return RET_STATUS = PAS_CODE;

! OTHERWISE GOOD STATUS

SEOPOIZO 33

.9.(16)

M10

ZRCFR2

MISCELLANEOUS SECTIONS

v03.0

27-Mer-198° © .3:34

AZTEC INITIALIZATION

;2291

000000

004167

000004
000006
000014
000020

024646
012767
012704
012700
010077
012701
001411
016700
001404
005066
005300
001374
005301
000766
005005
005705
001412
156700

010401
005101
040100

USER$1:[AZTEC.CZRCFCIZRCFC2.816;1

SEQ 0129

Page 34
(16)

end;

0000006

,SBTTL
AZT.INIT::

177777 0000006
000001
177777
0000006

000002
0000006
000002

18:
24:

38
as;
Ss.

016700 0000006
010160 000002
005003
000515

JSR
cHP
MOV
MOV
MOV
MOV
MOV
BEQ
MOV
BEQ
CLR
DEC
BNE
DEC
B8R
CLR
151
BEQ

CLR
BISB

0000006

001402
000167 000420
010500
001003
012702 177777
000427
020027 000001
001003
016702 0000006
000421
020027 000002
001003
016702 0000006
000413
020027 000003
001003
016702 0000006
020027 000004
001002
016702 0000006
005705
001405
010201
012701

11-Jen-1985 08:12:19

.
VAX-11 Bliss-16
V4.0-579

64:

78:

8s:
9s:
108:

118:
12¢:
135:

MOV
COM
81C
cHP
B8EQ
JP
MOV
BNE
MOV
B8R
cHe
BNE
MOV
B8R
cHP
BNE
MOV
B8R
cHP
BNE
MOV
B8R
CMP
BNE
MOV
181
BEQ
MOV
MOV
MOV
CLR
MOV

AZT.INIT AZTEC INITIALIZATION

R1, $SAVES
-(5P),-(5P)
0-1,1.AM,NEX
01,R4
0-1,R0
RO, SRC2S. ADDR
02.R1
as
LSDLY,RO
33
2(5P)
F)
24
R1
14
RS
RS

RO
B.MASK,RO

R4,R1
R}
R1,RO
RO.R4
64
264
RS,RO
7%
0-1,R2
11%
RO, 01
8s
DATAL,R2
118
RO, 02
93
DATA2,R2
114
RO, 03
104
DATA3,R2
118
RO, 04
114
DATA4,R2
RS
124
R2,R1
RC25. ADDR, RO
R1,2(R0O)
R3
0515,R1

;
;
: *,MASK
; ¢ .RCM.REG
; RCM.REG,¢
; ¢, 88TMP2
; e, 88TMP]
; $5TMP
: $8TMPY
; $4TMP?
i N
: N

2122
2178
2186
2187
2188

2190
2193

: MASK,s
: ¢, MASK
: N,¢

;
; *,DATA
:
;
; ¢.DATA
;
:
: +,DATA
:
;
; *,DATA
:
; »,DATA
: N
: DATA,RCM.REG
; RCM.REG,e
: COUNT
: ¢, 88TMP2

2198

2201
2202
2198
2204
2205
2198
2207
2208
2198
2210
2211
2198
2213
2214
2219
2221

2223

N10
MISCELLANEOUS SECTIONS
AZTEC INITIALIZATION

148:

0000006
000002

15¢:

164:
0000006 177777

178:

000024

BEQ
ggx

CLR

DEC

174
k‘DLY,RO

2(5P)

; $8TMP2

1.AM.NEX,0-1

;

&
R3,024

: COUNT,
e

BEQ

184

134
5§:n.usx.o-1

0000006

19¢:

MOV
BEQ

02 ,R3
224

000002

208:

000000G

228:

000002

0000026

MOV

214
2(5P)
RO
204

B8R

DEC

MOV
MOV

?g¥

BEQ

0000006
100000

0000026

000021

0000006

0000006 000000G

000001 0000006
0000006
000002
0000006

0000026 0000006
0000006

0000006 0000006
000001 0000006
0000006

MOV

CMP

RO,R1

264
02,P.MASK

MOV
MOV
ADD
MOV

01,P2
nczs ADDR, RO
RO
aP4

MOV
MOV
ggv

;

2238

2240

2243

2242

: MASK,+

2249

2252

9177760, R0

BEQ
MOVB

MOV

: MASK

;

2234

RO
RO
RO

MOV

I1.AM.NEX

SWAB

MOV

' RE. REG, +

234

R4,R1

2233

$4THP

; *,RC.REG

(gp>éczs DATA.2

RC25.DATA.2,R0

o, $8THP2

;

2(R0O),(SP)

021,RET.STATUS

2230

; $8TMP2

RC2S. Aooa RO

274

2221

: $8THPL

3}00000‘ +RC25.DATA.2

COUNT

; #,88THP]

gé;

CLR

B8IC

0000006

;

ASR
ASR
ASR

177760

35
(16)

2225

;

ASL

MOV

244;

0000026

000002

23s:

L$DLY,RO

BEQ
CLR
DEC
BNE

0130

Page

$8THP

144

BLOS
gng

214:

;

; $8TMPL

154
R1

B8R

SEQ

;o 88THPY

184

000002

VAX-11 Bliss-16 V4.0-579
USER#1:[AZTEC.CZRCFC)ZRCFC2.816:1

BNE
DEC

cHP

0000006 177777

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

OFMT3,P1

aczs DATAoZ PS

onéc 14, MSGADR
1,RET, STATUS
f STATUS,RO

;

2253

:
;

2254
2255

’

2256

: MASK,

:
;
’

2257

2258
2259
2251

Bll
MISCELLANEOUS SECTIONS

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

AZTEC INITIALIZATION

012767
000406

000011

000000G

177314

0000006

27%:

000002 0000006
000000G 0000006
000001
0000006
0000006
000002
0000006
000002G 0000006
0000006
000000G 000000G
0000006
0000006

#1,RET.STATUS

2276

#2,P
. MASK
OFMT3,P1
01,P2

2279
2280
2281
2282

284

nczs DATA+2,PS

més 14, MSGADR
ag:.$Tatus, RO
e

RET.STATUS
RO

(SP)e+,(SP).

Routine Size:
Routine
AB$CODE « 0762
Base:
214 words,
0
Meximum steck depth per invocation:
0 words

2292

(16)

2268
2267
2190

294%:

SEQ0131

gll.RET.STATUS

RC2S.ADDR, RO

284:

579

:[AZTEC. CZRCFC]ZRCFC? 816:1

264:

000004
000001

254:

liss-16

¢
MASK,

2283
2284
2285
2289

2122

Cl1
MISCELLANEOUS SECTIONS
AZTEC INITIALIZATION BY POLING

2293

NNNNNNNNMFHHHHHHHH&.—-HHo-o-o—o-o-b-o-o-»-o-o-r-o-t-o-o-o-»-»-o-h-b-t-t-b-t-'-t-t-o-b-o-o-o-u—o—

...-.-.o“...o.o.!.......l...o.t.‘...!.n..lc.ilo.o...t.o.o.l.o.o“.o.l.O“.c.o.l‘l.o.l‘..ofl.i...o...o.'...'“.c.o

ZRCFR2
v03.0

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

ssbttl 'AZTEC INITIALIZATION BY POLING'

?1??01 routine AZP_INIT =
! FUNCTIONAL DESCRIPTION:
THIS ROUTINE FIRST STARTS AZTEC INIT BY WRITING TO RCIP.
THEN EXPECTS TO READ STEP 1 BIT IN RCSA INDICATING THAT
THE PORT IS READY TO ACCEPT STEP 1 WRITE DATA. IF THE

STEP READ DATA WAS OK THEN WRITES STEP 1 WRITE DATA TO RCSA

THEN WAITS TO READ STEP 2 BIT IN RCSA. THIS PROCEDURE OF READ
FOLLOWED BY WRITE IS DONE AS GIVEN BY B_MASK,

IF THERE WAS ANY PORT FATAL ERROR IN ANY OF THE STEPS

THEN THE FAILURE DATA OF RCSA IS PRESERVED ANF FURTHER

STEPS ABORTED.
THIS ROUTINE DOES NOT USE INTERRUPTS AND STEP 1 WRITE DATA
SHOULD NOT ENABLE INTERRUPT,
FORMAL PARAMETERS:
-

NONE

IMPLICIT INPUTS:

DATA1
DATA2
DATA3
DATA4

=
=
=
=

STEP 1 WRITE
STEP 2 WRITE
STEP 3 WRITE
STEP 4 WRITE

DATA
DATA
DATA
DATA

B_MASK = WITCH STEPS WILL BL DONE
%0 1 = STEP 1
%0 3 = STEP 1,2

%017 = STEP 1,2,3.4
IMPLICIT OUTPUTS:
IF ERROR OR NO STEP IT WILL RETURN

P1-P6,

P_MASK

RET_STATUS

COMPLETION CODES:
RET_STATUS GIVES COMPLETION CODE

SIDE EFFECTS:
- NONE -

begin

local

MASK,

COUNT,
DATA;

;

!STEP NUMBER
!STEP MASK

!TIME OUT COUNT

'WRITE DATA FOR THE STEP

SEQ 0132

VAX-11 8 1 iss-16 v4,0-579
USER#$1: ( A ZTEC.CZRCFC)ZRCFC2.816;:1

.9‘(17)

D11
MISCELLANEQUS SECTION

ZRCFR2
v03.0

11-Jan-1985 08:19:19

VAX-11 Bli

4,.0-579
USER$1:(AZ EC CZRCFC]ZRCFCZ B16;:1

]

§ INIT THE AZTEC
P
! THE FOLLOWING LOOP WILL DO STEP 1 THRU 4 AS GIVEN BY B_MASK

! INPUT SELECTING APPROPRIATE DATA INPUT FOR STEP WRITES. IF

! ERROR IN SA REGISTER Pl - P4 AND P_MASK WILL BE SUPPLIED FOR

E ERROR REPORT. CNLY SA DATA FOR THE FINAL WRITE STEP IS PRESERVED.
MASK = sb’ 0001°';

! STEP MASK

DELAY (2);

! WAIT FOR COMPLETION

WRT_RC2S (RCIP, ALL_ONES);

! START INIT

incru N from 0 to 4 do
begin

é:‘g.N eqlu 0 or BIT_TST (.B_MASK,

.MASK))

! TEST FOR STEP NUMBER

?egin

select:neu .N of
se

DATA = ALL_ONES;

(1] :
-

DATA =

(2] :

DATA =

(3] :

DATA =

(4) :
tes;

5 SELECT CORRECT WRITE
!

(0] :

DATA =

_DATAL;

!
! DATA FOR STEP WRITES

_DATA2;
_DATA3;
_DATA4;

[]

nncru COUNT fron 0 to 20 do

;;,

VNA&ENEANVIVIVIVIVIVINA
D LD LLLLLARLLLLLLLLBABEBGIEWGINNMNNNMNNMNMNNNMNN AN

2350
2351
2352
2353
2354

AZTEC INITIALIZATION BY POL ING

27-Mar-1985 15:23:34

DE AY (333)

TIME OUT WAIT LOOP

! DELAY
1 SEC. APPROX.

RC25_DATA [RCSA RC_ALL] = .RC25_ADDR [RCSA RC_ALL];

if .RC25_DATA [RCSA, RCSA_STEP) eqlu .MASK then exitloop;
RET_STATUS = CTO_CODE;

BREAK;

end;

! WATCH FOR CONTROL C.

if (LRC25_DATA [RCSA, RCSA_ER] nequ ZERO)

then

begin

RE?_STATUS = PFE_CODE;

! IF RCSA ERROR BIT SET

! THEN FATAL ERROR

SEO 0133

(17)

E1ll

ZRCFR2

MISCELLANEOUS SECTIONS
VOUVILIVIAUWU

004167

11-Jen-1985 08:19:19

VAX-11 Bliss-16V4,0-579

SE°P2§3‘ 39

USER$1:(AZTEC.CZRCFCJZRCFC2.B16;1

(17)

exitloop;

else

end

begin

! OTHERWISE, CHECK THE
! STEP BITS.

if (.RC2S_DATA [RCSA, RCSA_STEP) ncgu .MASK)

~>
o
p
B

5 gl ESQOR THEN SUPPLY

VO ©
wuae N =i

then

(.RC2% ADOR

:cgsDATA [ncsu RC_ALL);

MSGADR = MSG_14

else

AND RETURN

return.RET “sTatus;

i TRUE STATUS.

begin

! IF NOT, RETURN GOOD STATUS

REZ:STATUS = PAS_CODE;

endg;

end;

if .N nequ ZERO

then

begin

MASK = .MASKt1;
WRT_RC23 (RCSA,

.DATA);

' MOVE MASK BIT

STEP N WRITE DATA TO SA

eng;

end;
end;

if .RET_STATUS
then
b‘flnsx
2

! IF TRUE STATUS, THEN
! SUPPLY P1-P6 FOR TEST
! MODULE FOR ERROR PRINTOUT.

= FMT3;
PZ = ADAPT;
P4 = (.RC25_ADDR) + 2;
L}

HELRLVVWEHEWWWHEWWHWRLVVWWSE
BNVIVS S A BTNV

n
»
N
O
W

2458

000000

27-Mer-1985 15:23:38

AZTEC INITIALIZATION BY POLING

2407

n
£

.l’....'.!...‘.!..I'.Q.l.l.l.!.l’ll..-.'.l.........l.‘...‘...l.‘.’.'.l.....'...I.O...’.l...fi.........‘.C

v03.0

PS = .RC2S_DATA (RCSA RC_ALL);

P6 = ,MASK;
HSGADR = HSG 14;

return .RET_STATUS;

€

lse

end

eturn .RET_STATUS:

' ORHERWISE GOOD STATUS.

end;

000000G

.SBTTL
AZP.INIT::
JSR

AZP.INIT AZTEC INITIALIZATION BY POLING
R1,$SAVES

2295

ZRCFB2

MISCELLANEQUS SECTIONS

v03.0

000004
000006

000001

000016

010077

000000G

000026

001411

000022

000030

000034
000036
000042

27-Mer-1985 15:23:34

AZTEC INITIALIZATION BY POLING

024646
012705

000012

F11

012700

012701

016700

001404
005066
005300

000044

001374

000050
000052
000054
000056
000060

000766
005003
005703
001410
005000

000000G
000002

005301

MOV
14:
24:

34:
4%
S$:

; $8TMP
; $STMPL

DEC

; $8TMP2

BNE

BR
CLR
TST
BEQ
CLR

CMP

64:

000112
000116
000120

020027
001003
016702

000001

000126
000132

020027
001003

000002

000110

000124

000134
000140

000142
000146

000150
000154

000156
000162
000164

000170
000172
176
200
204

000427

000421

177777

000000G

016702
000413

000000G

016702
000405

000000G

020027
001003

020027

001002
016702

005004
012701
001411
016700
001404

000003

000004
000000G
000515
000000G

206

005066

214

001374

222

016700

000000G

232
236
00240

011667
010501
011600

000002G

212

216
220

226

005300

005301
000766

7%:

000002

8¢:

94:

10¢:
11¢:
12%:
13%:

14%:;
15¢:

016016 000002

164%:

i %, $8TMP2

34
2(SP)
RO

BIC

001003
012702

#2,R1

BEQ
CLR
DEC

MOV

020005

000102
000104

s *,RCM.REG

000074

001170
010300

; *,MASK

#-1,R0

BEQ

MOV

005101

040100

USER$1:[AZTEC. CZRCFC]ZRCFCZ B16;1

RO,8RC25.ADDR

B81SB
MOV
COM

000076
000100

000000G

-(SP),-(SP)
#1,RS

VAX-11 Bliss-16 V4,0-579

MOV

000062
000066
000070
000072

156700
010501

CMP
MOV

177777

000002

11-Jen-198S 08:19:19

BNE
MOV

L$OLY,RO

14
R3
R3
64
RO

i N
;i N

; MASK,*

RO,RS

; *,MASK

R1,RO

(17)

2359
2360

2361

; *,88TMP]

B8.MASK,RO
RS,R1
R1

2363
2366

204
R3,RO

: N,»

2371

114

2371

74
f-1,R2

CMP
BNE
MOV

RO, #1
84
DATAL1,R2

CMP
BNE

RO, ®2
94

f Réfl.REG..

- 0135 40

114

:
; *,DATA
:

2374
2375
2377

; *,DATA

2378

2380

2371

MOV
BR

DATA2,R2
114

; *,DATA
3

2381
2371

MOV
BR

DATA3,R2
11$

; #+,DATA
:

2384
2371

11%
DATA4,R2

; *,DATA

2387

CMP
BNE

CMP

BNE
MOV

RO, 03
104

RO, 04

}

CLR
MOV
BEQ
MOV
BEQ

R4
#515.R1
164
L$DLY,RO
15%

DEC

; $STMPL

R1
13$

2(R0O), (SP)

: *,RC.REG

CLR

BNE

DEC
BR

2(SP)
144

: COUNT
: ¥, 88TMP2

2383

2386
2392
2394

: *,88TMP]

; $$TMP

$$TMP2

MOV

RCZS ADDR,RO

2395

MOV
MOV
MOV

(SP), RCZS DATA.2
RS.RI
(SP),RO

: RC.REG,*
: MASK, *
: RC25.DATA.2,*

2397

MOV

G11
MISCELLANEQUS SECTIONS
AZTEC INITIALIZATION BY POLING

:
4
27-Mer-1985 15:23:3
11-Jen-198S 08:19:1
:19:19

VAX-1 1Blis

V4,0-579
USER#1:(AZTEC.CZRCFC)ZRCFC2.816;1

RO
RO
RO
RO
#177760,R0
RO,R1
174
#11,RET.STATUS
22
R4
R4, 024

177760
000011

000024

0000006

0000026

18%:

177760

124

19¢:

2406
2405
2413

000004

177360

000001

*
MASK,

R5,R1
RC25.DATA+2,RO
RO
RO
RO
RO
#177760,R0
RO,R1

234

RS
R2,R4
RC25.ADDR,RO

20%:

21%:

2416
2417
2418
2419

MASK,
#

RET.STATUS
R3

204

0000006
000002

sg.Z(RO)
R3,%4

214
54

2420
2421
2422
2415
2427
2432

MASK

DATA,RCM.REG

2435
2436

RCM.REG,
*
N
N,*

2363

#1,RET,STATUS

2443

#2,P.MASK
OFMT3,P1
#1,P2

2446
2447
2448
2449

224

2C25.ADDR.R0
0000006
000002G 0000006
0000006

2392

#21,RET.STATUS
214

OFMT3,P1
81,P2
RC25.ADDR,RO
#2,R0
RO,P4
RC25.DATA+2,PS5
R5,P6
#MSG
14 ,MSGADR
.
RET.STATUS,RO

000000G
000002G 0000006
0000006
000000G 0000006
0000006

.9.(17)

2403

194

000002 000000G
000000G 000000G
000001
0000006
0000006

Page

:g?OOOO.RCZS.DATAoZ

000021

17§

®e

0000026

COUNT
COUNT,+

®e

100000

SEQ 0136

2399

ZRCFA2
Vo 3. 0

RO,P4
RC25.DATA+2,PS

R5,P6

,
MASK

2450
2451

H11l
MISCELLANEOUS SECTIONS
AZTEC INITIALIZATION BY POLING

ZRCFR2

v03.0

000554
000562
000566
000570
000574
000576

012767
016700

000402
016700
022626
000207

000000G 0000006

MOV

0000006

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

224:
23s:

OMSG.
14,MSGADR

ggv

gg}.svafus.ao

MOV
CMP
RTS

RET.STATUS,RO
(SP)+,(SP)+
PC

: Routine Size:
192 words,.
Routine
Base:
ABS$CODE + 1636
0
; Maximum steck depth per invocation:
10 words

2459

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFC)ZRCFC2.816;1
0
B

S€Q 0137 age

(17)

2452

2456

2295

ZRCFB2

MISCELLANEOUS SECTIONS

v03.0

COMMUNICATION RING INITIALIZATION

111
27-Mar-1985 15:23:34

11-Jan-1985 08:19:19

S:gg

?sbttl *COMMUNICATION RING INITIALIZATION'

i
:

2462
2463

1
1

global routine INIT_COM_AREA =

:
;.
;.
:

2466
2467
2468
g:gg

1
1
1
i

' FUNCTIONAL DESCRIPTIONS:
HIS ROUTINE FIRST MAKES SURE THAT THE COMMUNICATION AREA'S
!
RING BUFFERS ARE CLEARED, THEN THE COMMUNICATIONS AREA IS
s
INITIALIZED AS FOLLOWS:

o471

:
:

2464
2465

1
1

2472
g:;z

1
i

!
!
E

1. DEFINES FROM THE CONTIGIOUS DATA STORAGE STRUCTURE "COM_AREA"

:
:

2475
s:;g

1
i

!
s

2. CLEARS THE INTERRUPT INDICATORS (RING BASE -1, -2, -3, -4)
DEFINED AS HEAD_AREA.

g:;g

3. LOADS THE RECEIVE AND SEND DESCRIPTORS WITH THE VALUES:

;
;
;
:

2480
2481
2482
g:gz

1
1
1
i

!
!
!
s

:
;.
;
;
;
;
;

2485
2486
2487
2488
2489
2490
2491

1
1
1}
1
1
1
1

!
4. LOAD THE RECEIVE ENVELOPE MESSAGE LENGTH WITH THE BUFFER SIZE
!
IN BYTES.
!
' FORMAL PARAMETERS:
-NONE !
!
! IMPLICIT INPUTS:

ENVELOPE LOH HIGN AND Q BUS ADDRESS
8 RESERVED FIELD
C. FLAG BIT
. OHENERSHIP BIT

g:g%

;.
;
:
;.
:
;.
3

2494
2495
249
2497
2498
2499
gggg

1
1
1
1
1
1
i

' IMPLICIT OQUTPUTS:
!
AS A RESULT OF THIS ROUTINE THE COMMUNICATION AREA WILL
!
BE INITIALIZED.
!
! COMPLETTION CODES:
!
FAL_CODE : INDICATE AN ERROR HAS OCCURED
PAS_CODE : INDICATE NO ERROR
z

;
:
;
;

2502
2503
2504
2505

1
1
1
1

' SIDE EFFECTS:
!
- NONE 1-’

;.
:

2507
gggg

2
g

ggig

;
;.

2512
2513

2
2

2515

2516

THE HEADER AREA ADDRESS, RECEIVE RING ADDRESS AND THE SENDING

RING ADDRESS.

;

USER$1:[AZTEC. CZRCFC]ZRCFCZ B16;1

:
:

VAX-11 Bliss-16 V4.0

HEAD_AREA, RECEIVE_RING, SENDING_RING, COM_AREA

incru I from 0 to RING_SIZE - 1 do
incru J from 0 to 1 do
if .COM_AREA [.I,
then

!
.J, WORD_REF) nequ 0
! THEN

RE STATUS = FAL _CODE;

return .RET_STATUS;

¥ o

! TEST RING AREA FOR ZEROS

! IF RING AREA IS NOT CLEAR

! RETURN WITH ERROR CODE SET

SEQ 013

Page* 43
(18)

J11
MISCELLANEOUS SECTIONS

ZRCFRB2
v03.0

27-Mar-1985 15:23:34

N D D D D D D D L U L N L L N N L L PV PO

COMMUNICATION RING INITIALIZATION

11-Jen-1985 08:19:19

end;

' DEFINE THE ADDRESS LOCATIONS OF THE HEAD_AREA, RECEIVE_RING

AND SEND_RING.

HEAD_AREA = COM_ARE

! DEFINE THE HEADER AREA

SEND_RING = COM_AREA [SND_BASE);

! DEFINE THE COMMAND RING AREA

RECEIVE_RING= COM A‘EA [REC_BASE);

N LGN L L Y NS L L L D N LN L G G G G

! DEFINE THE RESPONSE RING AREA

incru I from
0 to 3 do

! CLEAR THE HEADER AREA

MEAD_AREA [. I UORD _REF) = ZERO;

' LOAD UP THE COMMAND RING DESCRIPTO“S WITH AN ENVELOPE ADDRESS

' DE-INE THE "FLAG BIT" T0 = 1 (INTERRUPT REGUESTED), DEFINE THE
' "OWNERSHIP BIT* TO ZERO (OWENED BY HOST) AND LOAD THE RESERVED

' FIELD WITH ZERO.

incrgcl_fron 0 to SND_ALLOCATE - 1 do

seflo-nxus .I, LO_ENSAD) = SND_ENVELOPE [.I cnoLREF]; ! LO-ORDER SEND ENVELOPE ADDR
n

=2 PO L LY RV L L L RV LY L GF L L

VAX-11 B liss-16 V4.0-579
USER#$1:( AZTEC. CZRCFC)ZRCFCZ B16;1

SENDRING (.I. HIENSAD) = ZERD;
SEND_RING

[.I. @B EXT} = ZERO;

SEND_RING

(.I, D_RSvVD)

§§§°-“1"°

1. OWN_BIT) = ZERO;

SEND_RING

= zeno&

[.I. FLAG_BIT) = ZERO;

1 'Hi-ORDER SEND ENVELOPE ADDR
' HI- onoea PORTION OF UNIBUS

! OR @-BUS ADDRESS

! FLAG BIT,

1=INT. REQUESTED

! OWNERSHIP 311. 0=0WNED BY HO

H
‘e

! LOAD UP THE RESPONSE RING DESCRIPTORS WITH AN ENVELOPE ADDRESS,
! DEFINE THE “OWNERSHIP BIT” = 1 (OWNED BY PORT) DEFINE THE "FLAG
' BI;“ T0 = 1 (INTERRUPT REQUESTED) AND THE RESERVED FIELD SET 10
: ZEROS

incru I from O to REC_ALLOCATE - 1 do

nefexve RING [.I., LO_ENSAD) = REC ENVELOPE (.I, CMD_LREF);
RECEIVE_RING

[.I, HI_EN$AD)

RECEIVE _RING
RECEIVE_RING

[.I, FLAG_BIT) = ZERO;
[.I, OWN_BIT) = ONE;

RECEIVE_RING
RECEIVE_RING
end;

[.I, QB EXT)
[.I, D_RSVD)

= ZERD;

= zeao;
= ZERO;

! LO-ORDER SEC ENVELOPE ADDR

1-ORDER COMMAND ENV. ADDR

e ux ORDER PORTION OF U@ ADDR
! RESERVED

!
! OMENER BIT, 1=0WNED BY PORT

g SET THE RESPONSE ENVELOPE MESSAGE LENGTH
incru I from 0 to REC ALLOCATE - 1 do
REC_ENVELOPE [.I, MSG_LENGTH) = RB SIZE+2;
RET_STATUS = PAS_CODE;
rezurn LRET_STATUS;
endg;

! CONVERT TO BYTES BEFORE
LOADING

56090139 a8

"'(15)

K11
MISCELLANEQUS SECTIONS

27-Mer-1985 15 123
11-Jen-1985 08: 1
O W

ZRCFR2
v03.0

COMMUNICATION RI NG INITIALIZATION

SBTTL

INIT.COH:A:EA::
14:
24:

s-16_V4.0-5

C CZRCFC]ZRCFCZ 816;1

SEOP014O o

.g‘(lb)

INIT.COM.AREA COMMUNICATION RING INITIALIZATION
R1,$SAVEZ2
R2
R1
R2,RO
RO

2463
2510
2512

R1,RO

gOfl.AREA(RO)

i
OFAL .CODE ,RET.STATUS

000000G 000000G
0000006

000001

34:

gET.STATUS.RO

2315
2514

2510

R1,01
24

000037
000010G 0000006
000110G 0000006

R2
?%,037

2508

0COM.AREA
,HEAD . AREA

2523
2524
2325
2327
2528

#COM.AREA+10,RECEIVE
.RING
380H.AREA0110.SEND.RING
44:

RO,R1
R1

HEAD.AREA,R]
(R1)

000003
S$:

000054
0000006
0000046

0000006
000003 000002

0000006
000074
000002

0000006

RO
RO, 03
a4
R1
R1,R2
R2
R2

2527
2537
2539

SEND RING, R2
R1,-(SP)
054, -(SP)

PC, BL $MUL

0SND.ENVELOPE
-4, RO
RO, (R2)

2540

SEND .RING,RO

03,2(RO)
R1,RO
RO
RO

2541

SEND.RING,RO

074,2(RO)
R1,RO
RO
RO

SEND.RING,RO

I,»

2542

ZRCFB2

v03.0

MISCELLANEOUS SECTIONS

COMMUNICATION RING INITIALIZATION
037700

000002

BIC

0000006

040000

ASL

BIC

MOV

0000006

000017

64:
0000006

000077

0000046

8IC

9100000, 2(R0)

(SP)e,(SP)e
R1
R1,017
S
R2

ASL
ASL

R1
R1

ADD
MOV
SWAB

RORB
ROR
ROR

BICB

ADD

0000006
000074 000002

0000006
037700 000002

0000006
040000 000002

0000006

R2,R1

RECEIVE.RING,R1
R2,RO
RO

RO
RO

R2,R0O

ADD
BICB

RECEIVE .RING,RO
03,2(R0)

ASL
ASL

RO
RO

ASL
ASL

ADD
BIC

MOV
ASL
ASL

ADD
BIC

MOV
ASL
ASL

ADD

100000 000002

BIS

000017

cHP
BLOS
CLR

INC

i 1,¢

2543

2544

;
i 1
s Lo

2538
2537

2554

; 1,¢

2556

i 1,e

oREC. ENVELOPE +4,RO

ASL
ASL

MOV

(18)

077,R0

RO, (R1)

ADD
BICB

p.é.l 46

RO
RO
RO

MOV

USER$1:[AZTEC.CZRCFCIZRCFC2.816;1

SEQ 014

SEND.RING, RO

CMP
INC
cMP
BLOS
CLR

MOV
0000006
000003 000002

940000, 2(R0)

R1,RO

RO’
RO

MOV

VAX-11 Bliss-16 V4.0-579

SEND.RING,RO

ASL
ASL

ADD

100000 000002

#37700,2(R0)

R1,R0O

ADD

000002

11-Jen-1985 08:19:19

MOV
ASL

27-Mer-1985 15:23:34

R2.RO

RECEIVE.RING,RO
074,2(R0O)

R2,R0O

RO
RO

RECEIVE.RING,RO
937700, 2(R0)

R2,RO

RO
RO

RECEIVE.RING,RO
040000, 2(R0)

R2,RO

RO
RO

2557

2558

; I.e

2559

: I,

2560

s 1.6

2561

2554

3 1

2568

RECEIVE.RING,RO

9100000, 2(R0)

R2,017
6
R1

000000G
0000006

CLR

R1,017
74
RET.STATUS
RET.STATUS,RO
PC

8ICe
MOV
INC
CcHP
BLOS

MOV

RTS

183 words,
Rout ine Bese:
: Routine Size:
ABSCODE - 2436
: Meximum stack depth per invocation:
6 words
2574

2569

000017

0000006

s 1,0

2568

000077
000074

RORB
ROR
ROR

R1,RO
RO
RO
RO
RO
077,R0
;Z‘.REC.ENVELOPE(RO)

MOV
SWAB

—d

74:

.9.(18)

COMMUNICATION RING INITIALIZATION

SEOPOIQZ
VAX-11 8 1 i98-16 V4,0-579
LU
USER$1: ( AZ TEC.CZRCFCJZRCFC2.B16:1

®e

27-Mer-1985 15:23:34
11-Jen-198S 08:19:19

MISCELLANEQUS SECTIONS

2571
2463

MISCELLANEOUS SECTIONS

ZRCFR2
v03.0
3
:

i
H
3

:
H
:
3
H
H

:
¢
H
:
s
H
B
&
.
B
H
§
:
H
5
:

H
5
&
:
B
i
3
i
5
:

H
[
H
B
H
i

H
B
[
i

H
B
H

4
i
i
;

2575

2376

2577
2578

2379
2580
2581

2582

2583

AZTEC GLOBAL ROUTINE

NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNHnunn»nuo—uo—nuunu.—uu»uunno—n

27-Mer-1985 15:23:34

11-Jen-1985 08:19:19

'c.ubtu "AZTEC GLOBAL ROUTINE'

VAX-11 Blise-16 V4.0-579

USER$1:(AZTEC.CZRCFC)ZRCFC2.816;1

global routine EX_SUP_PRG =
feo

s FUNCTIONAL DESCRIPTION

THIS COMMAND CAUSES THE SERVER TO TRANSFER THE PROGRAM FROM HOST

MEMORY TO AN AREA IN THE CONTROLLER AND START ITS EXECUTION.
THE HOST SUPPLIES THE ADDRESS AND LENGTH IN BYTES OF A BUFFER

CONTAINING THE PROGRAM WHICH WAS MADE INTO ONE CONTIGUOUS
VECTOR OF DATA AS FAR AS HOST IS CONCERNED. THIS COMMAND IS
ONLY LEGAL WHEN THE SERVER IS IN THE IDLE STATE AND RETURN
OF A SUCCESSFUL END PACKET PUTS THE SERVER INTO ACTIVE STATE.
FORMAL PARAMETERS

IMPLICIT INPUTS :

BUF_DESCRPTR, BYTE_COUNT

IMPLICIT OUTPUTS : RET_STATUS AS RECEIVED FROM REC_STATUS ROUTINE

IS RETURNED T0 CALLING ROUTINE

SIDE EFFECTS :

begin

local

EMP;

g CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT.
g,m_nsx = ZERO;
z UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION
SND_ENVELOPE

[.CMD_SLOT, MSG_LENGTH) = SZ_ESP;

SND_ENVELOPE

[.CMD_SLOT, CREDITS) = ONE;

?'D-ENVELWE

.CMO_SLOT, CONN_ID) = 2;

SND_ENVELOPE

(.CMD_SLOT, MSG_TYPE) = 0;

g DUP COMMAND ENVELOPE FIELD DEFINITION
SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, CMD_LREF]
[.CMD_SLOT, CMD_HREF]

SND_ENVELOPE

[.CMD_SLOT, UN_HUSED]

SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, UQRSVD) = ZEflOfi
[.CMD_SLOT, MODIFIER) = ZERO

SND_ENVELOPE

[.CMD_SLOT, BHI_CNT)

SND_ENVE' OPE

[.CMD_SLOT, BD_1]

SND_ENVELOPE [.CMD_SLOT, UN_LUSED]
SND_ENVELOPE [.CMD_SLOT, OPCODE]

-ENVELOPE (.CMD_SLOT, BLO_CNT)

SND_ENVELOPE

[.CMD_SLOT, BD_3)

= .CMD_REF;
= ZERO;

= ZERO;

= OP_ESP;

= .BYTE_COUNT;
ZERO;

= .BUF_DESCRPTR

= ZERO;

! BYTE COUNT LOW WORD

! BYTE COUNT HIGH WORD

! BUFFER DESCRIPTOR WORD 0

! éWFER DESCRIPTOR WORD 1

SEOPgécs 48
(1 9

ZRCFB2

MISCELLANEOUS SECTIONS

v03.0

27-Mer-1985 15:23:34

AZTEC GLOBAL ROUTINE

11-Jon-1985 08:19:19

;.
i
:
:

2632
2633
2634
2635

2
2
2
2

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT,
[.CMD_SLOT,
[.CMD_SLOT.
[.CMD_SLOT,

BD_2] =
BD_3) =
BD
4] =
BD S) =

:
:
:
i
;

2637
2638
2639
2640
2224‘5

2
2
2
2
g

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT,
[.CMD_SLOT,
[.CMD_SLOT,
[.CMD_SLOT.
[.CMDSLOT,

080_1)
08D_2)
0BD
3]
0BD_4)
080_S)

2645

SEND_RING [.CMD_SLOT, OWN_BIT) = PORT_OWNED;

zzm

! READ THE IP REGISTER TO STIMULATE PORT POLLING.

222;3

TEW = .RC25_ADDR [RCIP, RC_ALL);

222%

! GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND

:
:
:
;

2653
2654
2655
ggg;

2
2
2
g

GET_CMD_SLOT ();
!
;
! CHECK THE END PACKET FOR GOOD STATUS

;:
:

2658
2659

2
1

return REC_STATUS ();
end;

;

;
3

2636 2

SND_ENVELOPE [ .CMD-SLOT. 080.0]

VA 1 81;

-l czacrcmcrcz B16:1

ZERO;
ZERO;
ZERO;
ZERO

!
!
!
!

BUFFER DESCRIPTOR WORD 2
BUFFER DESCRIPTOR WORD 3
BUFFER DESCRIPTOR WORD 4
BUFFER DESCRIPTOR WORD S

ZERO;
ZERO;
ZERO;
ZERO;
ZERO;

!
!
!
!
!

BUFFER DESCRIPTOR WORD 1
BUFFER DESCRIPTOR WORD 2
BUFFER DESCRIPTOR WORD 3
BUFFER DESCRIPTOR WORD 4
BUFFER DESCRIPTOR WORD S

= ZERO,

=
=
=
=
=

579

SEQ 0144

Pege
- 49
% 19)

! BUFFCY DESCRIPTOR WORD 0

{ SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT.

H
-

4
-

'RETURN THE STATUS

.SBTTL
EX.SUP.PRG::
181

CLR
MOV
MOV
JSR
MOV
MOV

MOV
JSR
8IC8
BISB

MOV
MOV

EX.SUP.PRG AZTEC GLOBAL ROUTINE
-(SP)

1.AM.NEX
CMD. SLOT, -(SP)
054 -(spS
PC,
050, sm env&opemm
cno sLoT

-(SPS
u‘l sm ENVELOPE +2(RO)
01,SND.ENVELOPE+2(RO)

CHO. swr (SP)
954, -(SP)

JSR

PC, 6u

MOV
JSR
MOVB
MOV
MOV

SPS
Pc
éu
SND., envnom-: 3(RO)
cné SLOT, (
054 -(spS

BICB

MOV

0360, SND. ENVELOPEoZ(RO)

cno $LOT.(

JSR

PC, BL $MUL

MOV

054.-(593

MOV
MOV

CHO. aer suo Envempwmo)
CMD. SLOT,

;

;
:

2609
2614

;

2615

;

2578

2616

;

2617

2621

;

2622

Cle
ZRCFR2
v03.0

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE
004767

0000006

005060 0000066

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19
SR

snb NVELOPEob(RO)

JSR

PC, BL $MUL

016716 0000006
012746 000054

MOV
MOV

CMD.SLOT,(SP)
954, -(SP)

005060

CLR

MOV
MOV

005060

CLR

004767
004767

0000006

0000106

0000006

0000126

016716 0000006
012746 000054

JSR

MOV
MOV

CMD.SLOT, (SP)
054, - sp)

SND.ENVEL
OPE + 10(RO)

SND . ENVELOPE +12(RO)

cno.swt (SP)
054 -(SP)

JSR
MOV
MOV
JSR

PC éu
SND., enven.opeou(am
nb
-(SPS
cé

016716
012746
004767
005060
016716
012746
004767

0000006
000054
0000006
0000166
0000006
000054
000000G

MOV
MOV
JSR
CLR
MOV
MOV
JSR

cno swt (SP)
sP)
céu
SND. ENVELOPEolb(RO)
CMD.SLOT, (SP)
854 .-(SP)
C,BL$MUL

016716 000000G
012746 000054

MOV
MOV

cno $LOT,(SP)
54,-(SP)

005060 0000226

CLR

105060

0000156

016760 000000G 0000206
004767

0000006

016716

0000006

CLRB

MOV

P age

(19)

;

2623

;

2624

;

2625

;

2626

;

2627

2628

;

2629

PC, BL $MUL

004767 000000
112760 000002 000014G
016716 0000006
012746 000054
004767 0000006

MOVB

SEQ_0145

016716 0000006
012746 000054

VAX-11 Bliss-16 V4.0-579
USER$1:[AZTEC.CZRCFCJZRCFC2.816;1

SNOD. euvempmsmo)

avfl: coum SND. ENVEL OPE +20(R0)

JSR

pc BL $MUL

MOV

cno SLOT

SND. envewpsozz(m)

012746 000054
004767 0000006

MOV
JSR

” sp5
pc
é

;

2630

016716 0000006
012746 000054

MOV
MOV

CMD.SLOT,(SP)
054, -(SP)

;

2631

005060 0000266

CLR

;

2632

;

2633

016760 0000006 000024G
004767

0000006

016716 0000006
012746 000054
004767 0000006

005060 000030G

MOV
JSR

PC, BL $MUL

MOV

CMD.SLOT,(SP)

954 -(SP)
PC,BL $MUL

CMD.SLOT, (SP)
054 -(SP)

CLR

000000G
000054

MOV
MOV

005060
016716

0000326
0000006

CLR
MOV

004767

0000006

012746 000054

005060 0000346

016716 0000006
012746
004767
005060
016716

000054
0000006
0000366
0000006

004767

0000006

012746 000054

SNO . ENVELOPE +26(R0)

MOV
JSR

016716
012746

004767 000000

BUF. oescapm SND. ENVELOPE +24(R0)

JSR

MOV

SND. euveu.ope 30(R0)

PC,BL $MUL

SND. ENVELOPE
+ 32(RO)
CMD.SLOT,(SP)

954, -(SP)

JSR

PC, BL $MUL

MOV

CMD.SLOT, (SP)

CLR

SND . ENVELOPE
+ 34(RO)

MOV
JSR
CLR
MOV

954, -(SP)
PC, BL $MUL
SND. ENVELOPE +36(R0)
CMD.SLOT,(SP)

JSR

PC, BL $MUL

MOV

054, -(SP)

;

2634

;

2635

;

2636

D12
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFB2

v03.0

000530
000534

005060
016716
012746
016716

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

0000406

VAX-11 B li 9s8-16 V4,0-579
USER#1:( AZTEC.CZRCFCIZRCFC2.B16;1

SND.ENVELOPE +40(RO)
sHD.SLOSS(SP)

000054

PC,

(19)

BL $MUL

cno
SLOPS(SP)

2638

PCéL

SND. ENVELopeoaa(no)

5060
016716

2637

SND. ENVELOPE +42(RO)

0000426

SEQ 0146

gno
.SL Pscsp)

2639

PC,
éLo

SND. ENVELOPEodb(RO)
cno SLOT,(SP)

olSPS
aLo
5N6 ENVELOPE so<no>
CMD. SLOT
05(SP
46 S

2640

2641

SND. ENVELOPE 52(R0)

cno SLOT,

000670
000676
000704
000710
000714
000720
000724

100000

;

3
5
;

#100000, 2(R0)

000002

SRC2S., ADDR 64(SP)

000064

Maximum stack depth per

2660
2661
2662

o
SEND .RING,RO

64(SP),R

PC,GET. cno SLOT
PC.REC.STATUS

SP
066,

062706
000207

; Routine Size:

1
1
1

2645

Rout ine Base:

invocation:

28 words

AB$CODE + 3214

; *,RC.REG

RC.REG, TEMP

2649
2653
2658
2578

ZRCFB2

MISCELLANEOUS SECTIONS

v03.0

i
i
1
3
‘

:
;.
:
i
;.
:
;
:

:
3

;

:
:

AZTEC GLOBAL ROUTINE

2663
2664
2665
22&9

1
1
1
i

global routine SEND_DATA =

2668
2669
2670
2671
2672
2673
2674
2675

1
1
1
1
1
1
1
1

!
!
!
!
!
!
!
!

gg;g

g;g

2680

o681

ggg i
2684

El2
27-Mar-1985 15:23:34

11-Jen-1985 08:19:19

Yoo
: FUNCTIONAL DESCRIPTION:
.

THIS IS ONE OF THE DUP COMMANDS TO COMMUNICATE BETWEEN THE
INITIATING HOST PROGRAM AND THE REMOTE PROGRAM, THIS COMMAND
SPECIFIES HOST BUFFER DESCRIPTOR (START ADDRESS OF BUFFER)
AND BYTE COUNT. THE INFORMATION IN THE BUFFER IS READ BY THE
REMOTE PROGRAM AND A SEND DATA RESPONSE SENT BACK TO THE
HOST TO ACKNOWLEDGE RECEIPT. THIS COMMAND IS ONLY LEGAL
WHEN THE SERVER IS IN THE ACTIVE STATE. IF THE REMOTE
PROGRAM TERMINATES ABMORMALLY PUTTING THE SERVER BACK IN

THE IDLE STATE, OUTSTANDING COMMAND MAY BE LOST.

: FORMAL PARAMETERS :
!

! IMPLICIT INPUTS
: BU" DESCRPTR

BYTE COUNT

SADD, E SAbD. UF_LENGTH WILL BE MADE AVAILABLE

TOREMOTE PROGRAH BY THE POINTER IN BUF _DESCRPTR.

gggz

! IMPLICIT OUTPUTS: RET_STATUS AS RECEIVED FROM REC_STATUS

:
;
;
i
:
:
;.
;.
;.
;

2687
2688
2689
2690
2691
2692
2693
2694
2695
269%

1
1
1
1
2
2
2
2
2
2

' SIDE EFFECTS :
'
1-.
begin

WILL BE RETURNED TO CALLING ROUTINE.

local
TEMP;
!

‘5‘23;

2699

I_AM_NEX = ZERO;

g;g%

: UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION

570y 3

;

2704

2705

: CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT.

suo ENVELOPE [.CMD_SLOT, MSG_LENGTH) = SZ_SED;

SND_ENVELOPE

[.CMD_SLOT, CREDITS) = ONE;

;.
5

2706
g;g;

2
g

SND_ENVELOPE
SN) ENVELOPE

g;gg

: DUP COMMAND ENVELOPE FIELD DEFINITION

2711

2713

;.
;.

;.
;.
;.

2712
2714

2715
2716

2717

2
2
2

2
2
g

VAX-11 Bliss-16 V4,0-579

[.CMD_SLOT, MSG_TYPE] = 0;
[.CMD_SLOT, CONN_ID) = 2;

SMJ ENVELOPE

[.CMD_SLOT, CMD_LREF)]

= ,CMD_REF;

SND_ENVELOPE

[.CMD_SLOT, UN_LUSED]

= ZERO;

SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, OPCCDE)
[.CMD_SLOT, UQRSVD]

= OP_SED;
= ZERO;

SND_ENVELOPE

[.CMD_SLOT, BLO_CNT)

= .BYTE_COUNT;

SND_ENVEL OPE
SND_ENVELOPE

SND_ENVELOPE

.CHD_SLOT. CMD_HREF]

[.CMD_SLOT, UN_ HUSED

= ZERO;

[.CMD_SLOT, HODIFIER] = ZERO

[.CMD_SLOT, BHI_CNT]

= ZERO;~

! BYTE COUNT LOW WORD

! BYTE COUNT HIGH WORD

SEongl;:7 52

USER$1:[AZTEC.CZRCFCJZRCFC2.B16;1.

(20)

ZRCFH2

MISCELLANEOUS SECTIONS

v03.0

F12
27-Mar-1985 15:23:34

AZTEC GLOBAL ROUTINE

2720

SND_ENVELOPE

11-Jen-1985 08:19:19

[.CMD_SLOT, BD_0)

= .BUF_DESCRPTR;

2121
2122
2123
o708
g;gg

2
@
2
2
g

SND_ENVELOPE [.CMD_SLOT. BD_1] = ZERO;
SND_ENVELOPE [ .CMD_SLOT. BD
2] = ZERO;
SND_ENVELOPE [.CMD-SLOT. BD-3] = ZERO;
SND_ENVELOPE [ .CMD_SLOT. BD-4] = ZERO;
SND_ENVELOPE [.CMDZSLOT, BDZS) = ZERO;

;

5;5;

: SET THE OMNERSHIP BIT TO 1 WHICH GIVE THIS SLOT 70 THE PORT.

;

g;gg

SEND_RING [.CMD_SLOT, OWN_BIT) = PORT_OMNED;

5;35

! READ THE IP REGISTER TO STIMULATE PORT POLLING.

;

g;gz

TEHP .RC25_ADDR [RCIP, RC_ALL];

g;gg

- GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND

i
:

2737
2738

2
2

GET_CFD_SLOT ();
:

:
3

2741
2742

2
1

return REC_STATUS ();
end;

g;}g

000000

5‘°p252°53

USER$1:[AZTEC.CZRCFCIZRCFC2.816:1

(20)

! BUFFER DESCRIPTOR WORD O

s
s
i
:
:

VAX-11 Blies-16 V4.0-579

! BUFFER DESCRIPTOR WORD 1
! BUFFER DESCRIPTOR WORD 2
! BUFFER DESCRIPTOR WORD 3
! BUFFER DESCRIPTOR WORD 4
! BUFFER DESCRIPTOR WORD S

! CHECK THE END PACKET FOR GOOD STATUS

' RETURN THE STATUS

.SBTTL
SEND.DATA::
3

005746

000002 005067 0000006

SEND.DATA AZTEC GLOBAL ROUTINE
-(SP)

;

2663

CMD. SLOT, -(SP)

;

2704

CLR

1.AM.NEX

MOV
JSR

054 -(SP)
PC,
BL $MUL

000034 012746 000054
000080 004767 0000006
000044 142760 000017 000002G

MOV
JSR
BICB

os¢.-(sp5
01% suo ENVELOPE +2(R0)

;

2705

000060 016716 0000006

MOV

nfi

;

2706

JSR
BICB
MOV

PC BL$MUL
0360, suo ENVELOPE +2(R0)
cno SLO (SP)

;

2707

016746

0000006

MOV

000022
000030

012760
016716

000034 0000006
0000006

MOV
MOV

000052

152760

000001

000070
000074
102

004767
142760
016716

0000006
000360 000002G
0000006

116

112760

000002

146

016716

0000006

156
162

004767
005060

0000006
000006G

0172

012746

000054

000012
000016

012746 000054
004767 0000006

000064 012746 000054

000002G

106 012746 000054

112 004767 000000G

124 016716 0000006

000003G

BISB

MOV
MOV

034, suo ENVELOPE(RO)
CMD.SLOT, (SP)

01 suo ENVELOPEo?(RO)

spi
(sP)

pc
éLs

MOV

cnb SLOT

;

2711

CMD.SLOT, (SP)

2712

;

2713

MOV
JSR
MOV

-(SP5
L $MUL
cn6 REF sno ENVELOPE +4(R0)

152 012746 000054

MOV

54 (SPS

0176

016716
004767

5699

JSR

MOVB

130 012746 000054
134 004767 000000G
140 016760 000000G 000004G
166

MOV

JSR
CLR

PC,
SND.ENVELOPEo6(RO)

0000006

MOV

CMD.SLOT, (SP)

0000006

JSR

PC,
BL $MUL

MOV

954, -(SP)

Gl2
ZRCFB2
v03.0

MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

000202

0000106

VAX-11 Bl

1
USER$1:(AZ
Z FC]ZRCFCZ B16;1

0000126

0000146

000054

.9.(20)
2714

sub
ENVELOPEolz(Ro)
CMD.SLOT,

2715

054 -(595

000054

SEOP0149 -

SND . ENVELOPE
+ 10(RO)
CMD. SLOT, (SP)

os4 -(SPS

000054

000004

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

(SP)

PC, BL $MUL
04, SND . ENVELO
+ 14(RO)
PE

CMD. SLOT,(SP)

2716

054, -(SP)

PC, BL $MUL

SND. ENVELOPE 15(R0)
CMD. SLOT, (SP)

054 (5P5

PC, BL $MUL

SND. ENVELOPEol6(R0)
cno SL
Ps(s )

000000G 0000206

2718

avie COUNT, SND . ENVELOPE +20(RO)
L $MUL

cno SLO
s(sp)

219

PCéL

SND. snchopeozzcno)

cno
SLOTS(S )

000000G 000024G

2720

5éLo

BUF .osscnprnssno.ENVELOPE +24(RO)
CHD. 5L OT

2721

(5P)

c6L

SND. ENVELOPEoZ6(RO)

CMD.SLOT,

054 -. (spS

(SP)

2122

PC, BL $MUL

SND . ENVELOPE
« 30(RO)
CMD.SLOT,(SP)

2723

954, -(SP)

PC, BL $MUL

SND. ENVELOPE‘SZ(RO)

CMD.SLOT,

(SP)

2724

CMD.SLOT, (SP)

2725

osaé
(SPS
$MUL
snb ENVELOPE +34(RO)
954.-(SP)

PC, BL $MUL

SND.ENVEL0P8036(R0)
ggD.SLOT.RO

000002
000000G 000050
000000V

2729

‘

SEND.RING,RO

#100000,2(R0)
anczs ADDR S0(SP)
S0(SP).R

PC,GET. CHD SLOT

*,RC.REG

; RC.REG,TEMP

2733

2737

ZRCFB2

MISCELLANEOUS SECTIONS

v03.0

000554
000560
0005¢4

H1Z2
27-Mer-1985 15:23:34

AZTEC GLOBAL ROUTINE

004767
062706
000207

000000V
000052

11-Jen-1985 08:19:19

JSR
ADD
RTS

PC,REC.STATUS
#52,SP
:
PC

;: Routine Size:
187 words,
Routine Base:
ABSCODE + 4142
: Maximum stack depth per invocation:
22 words

2743
2744
2745

)
)
1

VAX-11 Bliss-16 V4.0-579

SEQ

USER$1:[AZTEC.CZRCFCJZRCFC2.816;1

;
;

O
°P.52°
55

(20)

2741
2663

ZRCFR2

MISCELLANEQUS SECTIONS

v03.0
;.

2746

112
27-Mer-1985 15:23:34

AZTEC GLOBAL ROUTINE

11-Jen-198S 08:19:19

global routine REC_DATA =

2747

S;gg

:
;.
:
:
:

2751
2752
2753
2754
2755

1
1
1
1
1

H
'
H
H
!

THIS IS ONE OF THE DUP COMMANDS TO COMMUNCATE BETWEEN THE
INITIATING HOST PROGRAM AND THE REMOTE PROGRAM. THIS COMMAND
SPECIFIES HOST BUFFER DSCRIPTOR (START ADDRESS OF BUFFER)
AND BYTE COUNT. THE REMOTE PROGRAM WRITES TO THE BUFFER
UPTO THE AMOUNT
SPECIFIED BY THE BYTE COUNT AND THEN SENDS

;.
i
3

2757
2758
5;23

1
1
i

!
!
s

LEGAL WHEN THE SERVER IS IN THE ACTIVE STATE. IF THE REMOTE
PROGRAM TERMINATES ABMORMALLY PUTTING THE SERVER BACK IN THE
IDLE STATE, OUTSTANDING COMMANDS MAY BE LOST.

:
;.
:

2761
2762
s;gz

1
1
i

! FORMAL PARAMETERS :
!
E IMPLICIT INPUTS : BUF_DESCRPTR, BUF _LENGTH

2765

! IMPLICIT OQUTPUTS
: RET_STATUS IS RETURNED AS RECEIVED FROM

2767

‘

2748

2756

Yoo

5 FUNCTION DESCRIPTION :
.

A RECEIVE DATA RESPONSE TO THE HOST. THIS COMMAND IS ONLY

2766

;
;.
:
:
:
;.
:
;.
:
;.
3

2768
2769
2770
2711
eI
2773
27714
27715
2776
2777
g;;g

1
1
1
1
2
2
2
2
2
2
g

;

2780

I_AM_NEX = ZERO;

g;gz

! UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION

2785

REC_STATUS ROUTINE.

' SIDE EFFECTS :
H
1-.
begin

local
TEMP;
'
E CLEAR THE FLAG HERE TO INSURE THE DETECTION OF THE INTERRUPT.

SND ENVELOPE

[.CMD_SLOT, MSG_LENGTH) = SZ_RED;

:
;
3

2786
27187
S;gg

2
2
g

SND_ENVELOPE
SND_ENVELOPE
SND “ENVELOPE

S;gg

E DUP COMMAND ENVELOPE FIELD DEFINITION

2792

SND ENVELOPE

;
;
;.
;.
;.
;.
;.
;
;

2793
2794
2795
279%
2797
2798
2799
2800
2801

2
2
2
2
2
2
2
2
S

VAX-11 Bliss-16V

SND_ENVEL OPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.CMD_ SLOT. CREDITS]= ONE;
[.CMD_SLOT, MSG_TYPE) = 0;
[.CMD_SLOT, CONN_ID) = 2;
[.CMD_SLOT, CMD_LREF)

= ,.CMD_REF;

.CHD-SLOT. CMD_HREF) = ZERO;
[.CMD_SLOT, UN_LUSED] = ZERO;
[.CMD_SLOT, UN_HUSED] = ZERO;
[.CMD_SLOT, OPCODE) = OP_RED;
[.CMD_SLOT, UQRSVD]) = ZERO;
[.CMD_SLOT, MODIFIER) = ZERO
[.CMD_SLOT, BLO_CNT) = .BYTE_COUNT;
! BYTE COUNT LOW WORD
[.CMD_SLOT, BHI_CNT] = ZERO:
! BYTE COUNT HIGH WORD
[.CMD_SLOT, BD_0)
[.CMD_SLOT, BD_1]

579

USER$1:[AZTEC. czacrc;zacrcz B16;1

= .BUF DESCRPTR;
! BUFFER DESCRIPTOR WORD O
= ZERO;
! BUFFER DESCRIPTOR WORD 1

-0151 56
(21)

J12
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2

G
[

N
]

LA LS VL VLS LV LV L VL STV L VLS VLV ST ST VT, 87,57, 93

®0

G0 90 ©e

S0 G0

G0 Ge

©s

¢ G¢ G

So ©6 We

v03.0

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

SND_ENVELOPE [ .CMD_ SLOT 80_2)

SND_ENVEL OPE
SND_ENVELOPE
SND_ENVELOPE

C:B T, BD.3
SLOT, BD_4
.CMD_SLOT, BD_ 5

SEOPOISZ 57

.9.(21)

BUFFER DESCRIPTOR WORD 2
BUFFER DESCRIPTOR WORD 3
BUFFER DESCRIPTOR WORD 4
BUFFER DESCRIPTOR WORD S

: SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT.

%ENO-RING (.CMD_SLOT, OWN_BIT) = PORT_OWNED;
g READ THE IP REGISTER TO STIMULATE PORT POLLING.

ienp -

.RC25_ADDR [RCIP, RC_ALL);

g GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND
§n-cno_su.or ()

g CHECK THE END PACKET FOR GOOD STATUS
return REC_STATUS ();

! RETURN THE STATUS

end;

.SBTTL

REC.DATA AZTEC GLOBAL ROUTINE

CLR
MOV

1.AM.NEX
CMD. SLOT, -(SP)

2746
2780
2785

CHD SLOT,(SP)

2786

REC.DATA%éT

MOV

JSR
MOV

0000006

000017
000001

MOV
MOV

000002G
000002G

000054
000360

0000026

0000036

016760
016716
012746
004767
005060
016716
012746
004767
005060
016716

!
s
!
]
!

. ZERO;

0-16
0-579
EC CZRCFC]ZRCFCZ B16:1

000000G 0000046

JSR
BICE
8156

MOV
MOV

JSR
BICB

MOV
MOV

JSR

MOVB
MOV

MOV
JSR
MOV
MOV

-(SP)

324
-(SP)
$MUL
034, SND ENVELOPE(RO)

595

o
éL
017 SND. ENVELOPE +2(R0)
01, SND. ENVELOPE «2(R0)

CMD. SLOT, (SP)

954, -(SP)
PC, BLSMUL

0360, SND. ENVELOPEoZ(RO)

cno $LOT.(SP)

2788

2. SND. ENVELOPE
+ 3(RO)
cno
SLOTS(SP)

2792

(sP)

pc
éLo

céLo

CMO. REF, SND . ENVELOPE +4(RO)
cno
SLOPS(SP)
(s

MOV

pcéLo

MOV
MOV

CMD.SLOT, (SP)

JSR
CLR

MOV

2787

SND. ENVEL OPE +6(R0)

054, -(SP)

2793

2794

PC, BL $MUL

SND. ENVEL
OPE + 10(RO)
CMD.SLOT,(SP)

2795

K12
MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

000054

USER $1:(AZTEC. CZRCFC]ZRCFCZ 816;1

PR, BL-(SP)
oML
sué ENVELOPE 12(R0)

0000126

cno SLOT S
-(SP

000054
000005

11-Jen-1985 08:19:19

VAX-11 Bli 8s8-16 V4.0 579

000014G

000054

pc
6

2797

SND. ENVELOPEolS(RO)
cno SLOT

000054

090(21)

05 sno ENVELOPEolQ(RO)

cn6 SLO
S(sp)

pcéLo

0000156

SEOP0153 so

2796

2798

SND. ENVELOPE016(RO)

cno
SLOTS(S )

2799

cno $LOT,

-(spS
PCé

2800

cno SLOT

2801

i6u
YTE.COUNT,SgD.ENVELOPE+20(RO)
SND. ENVELOPE 22(ao>

BUF.DESCRPTRSSND.ENVELOPE~24(RO)
CHO_SLOT (5P

2802

-(SPS

sub ENVELOPE~26(R0)
cno s
s
5 SP)

2803

sn6 ENVELOPE 30(R0)
CMD.SLOT, (SP)

2804

054, -(SP)

PC, BL $MUL

SND.ENVELOPEOSZ(RO)
gHD.SLOES(SP)

2805

PC
BL $MUL
,

SND . ENVELOPE
+ 34(RO)
CMD
. SLOT, (SP)

2806

SND . ENVELOPE
+ 36(RO)
cno SLOT,RO

2810

054, -(SP)
PC,
BL $MUL

aRC2S, ADDR 50(59)
50(SP),RO

PC,GET.CMD.SLOT
PC.REC.STATUS
052, 5P

100000, 2(R0)

000000G 000050

scuo RING,RO

000002

012746
004767
005060
016716
012746
004767
112760
016716
012746
004767
105060
016716
012746
004767
005060
016716
012746
004767
016760
016716
012746
004767
005060
016716
012746
004767
016760
016716
012746
004767
005060
016716
012746
004767
005060
016716
012746
004767
005060
016716

27-Mer-1985 15:23:34

ZRCFB2
v03.0

+,RC.REG
RC.REG, TEMP

2814
2818
2822
2746

L12
ZRCFR2

HISCELLANEOUS SECTIONS

v03.0

000564

AZTEC GLOBAL ROUTINE

RTS

187 words,

Rout ine Base:

;: Maximum stack depth per invocation:

2824
2825

2826

11-Jen-198S 08:19:19

000207

: Routine Size:

3
:

27-Mer-1985 15:23:34

1
1

22 words

ABSCODE + 4730

VAX-11 Bliss-16 V4.0-579

SEQ 0154

USER$1:[AZTEC. CZRCFC]ZRCFCZ B16;1

Page

(21)

M12

sP
s s sP P
s $t it Pt s Pt s e B B B
L LR L LU AL L L AL L L L L YL AL L AL D AL D D U AU A D 50 50 et 1 s 5t B B B

2827

S0 S5

B0 B0 N8

G0 S8 S0

B8 S8

.'.....l...'.l...l...O.'.O........fl...'“.......'.....‘...‘...’.l.‘

v03.0

2828
2829
2830

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2

9-16 V4.0-579
USER#$1:(AZ EC CZRCFCIZRCFC2.81651
VAX-11 Bli

global routine SET_CNTLR_CHAR Yoo

' rwcugu DESCRIPTION :

HE SET CONTROLLER CHARACTER COMMAND IS USED TO SET HOST SETTABLE
UNIT CHARACTERISTICS AND OBTAIN THOSE UNIT CHARACTERISTICS THAT
ARE ESSEN TIAL FOR PROPER CLASS DRIVER OPERATION.

NEVER ALTERS THE UNIT'S STATE ("UNIT-ONLINE",
"UNIT-OFFLINE").
FORMAL PARAMETERS
.

NONE

THIS COMMAND

"UNIT-AVAILABLE",

IMPLICIT INPUTS :
INPLICIT QUTPUTS :
-

NONE -

COMPLETEDTION CODES
:
RET_STATUS
: RETURN STATUS PASSES BACK TO THE CALLING ROUTINE
SIDE EFFECTS :

ANY PREVIOUSLY DEFINED CONTROLLER CHARACTERISTICS WILL POSSIBLY

BE ALTERED AFTERE EXECUTION OF THEIS COMMAND.
begin

locel

TEMP;

s UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION

.CMD_SLOT, MSG _LENGTH] = SZ_SCC;

SND_ENVEL OPE

.CMD_SLOT, CREDITS)= ONE;
.CMD_SLOT, MSG_TYPE) = O;
.CMD_SLOT, CONN_ID) = 0;

SND _ENVEL OPE
SND_ENVEL OPE
SND_ENVEL OPE

! LOAD MESSAGE LENGTH

f LOAD CREDIT SIZE
! MESSAGE TYPE 'SEQUENTIAL'
! DEFINE CONNECTION ID 'ODUP

MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION

.CMD_SLOT, CMD_LREF)

-CMD_SLOT, CMD MREF)
.CMD_SLOT, UN_LUSED)
.CMD_SLOT, uuseo

.CMD_SLOT, OPCOOE

SND_ENVEL OPE
SND_ENVEL OPE
SND_ENVEL
OPE

.CMD aen

= 2ERO;
= ZERO;
« ZERO;

'LOAD COMMAND aertnsnce o

! ZERO WI ORDER CMD REF
! NOT USED IN DULP xm.xnem
! NOT USED IN DUP IMPLIMENT.

scc. ! DEFINE COMMAND OPCODE

&
.CMD_SLOT, UQRSVD
.CMD_SLOT, HODIFIER) ' ZE 0;

5 NOT USE 0

DEFINE CMD MODIFIERS

COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION
SND_ENVEL OPE

SND_ENVEL OPE
SND_ENVEL OPE
SND_ENVEL OPE
SND_ENVEL OPE

[

.CMD_SLOT, HSCP VER) = ZEROa

! MSCP VERSION

.CMD SLOT, T4D_0

s! TIME AND DATE WORD 0

"CMD SLOT. CTL FLAGS) = ZERO; ! CONTROLLER GLAGS
.CMO_SLOT, HOST Tou) = ZERD; ¢ HOST TIMEOUT VALUE
.CMD”SLOT, RSsvD = ZERO;
]! RESERVED
* ZERO;

SEO 0155

(22)

nxscmmous SECTIONS

ZRCFR2
v03.0

27-Mer-1985 15:23:34

Lad L L L VLV LV DV LV VL VL LV VN ST S N YL YL L

AZTEC GLOBAL ROUTINE

......."‘““.'.l...'.....‘.‘...l.'.'“.‘..

N12

SND_ENVELOPE

USER#1:(AZTEC.CZRCFCIZRCFC2.B1651

[.CMD_ suor T40_1)

= ZERO;

SND_ENVELOPE [ .CMDTM SLO 140°3)

= ZERO

! TIME AND DATE WORD 3

SND_ENVELOPE

» ZERO;

! CNTL DEP PARAMETER HI WORD

SND_

en.ove

.CMD_SLOT,

T4D-2] = ZERO,

SNDENVELOPE [ .CMO-SLOT. COP-L I 26R0;
[.CMDZSLOT, COP_WI]

SE°9°156 61

° (22)

! TIME AND DATE WORD
1

! TIME AND om WORD 2

| CNTL DEP PARAMETER LO WORD

: SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT.
SEND_RING [.CMD_SLOT, OWN_BIT) = PORT_OWNED;

! READ THE IP REGISTER TO STIMULATE PORT POLLING.
TEWP = .RC25_ADDR (RCIP, RC_ALL);
! GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND
GET_CMD_SLOT ();

! CHECK THE END PACKET FOR GOOD STATUS
return REC_STATUS ();

! RETURN THE STATUS

end;

.SBTTL
SET.CNTLR.CHAR AZTEC GLOBAL ROUTINE
SET.CNTLR.CHAR::
ST
-(SP)
;

0000006
000054
0000006

MOV
MOV
JSR

0000006

000054
0000006
000017 0000026
000001 0000026
000000G
000054
0000006
000360

0000006

000054
0000006

0000026

0000036
000000G
000054
0000006
000000G 000004G
0000006
000054
0000006
0000066
0000006
000054
005060
016716

VAX-11 Bliss-16 V4.0-579

11-Jen-1985 08:19:19

0000106

:83

CMD. SLOT, -(SP)
054, -(SP)
PC, BL $MUL

éunu.
u‘l SND. ENVELOPE +2(R0)
1,5ND., ENVELOPE 2(RO)
cnb
S
9c
éu

MOV

é:.

BIce

MOV
JSR

CLRB
MOV
MOV
JSR
MOV
MOV
MOV
JSR
CLR
MOV
MOV
JSR
CLR
MOV

2862

2863

;

2864

2865

;

2869

2870

2871

;

2872

6‘3&"8
e?g%opmo)
PS

MOV
JSR
BICB
BISB
MOV
MOV
JSR

osao SND. envaoveoz(no)

S
céL

SNOD. envaope 3(RO)
CMD.SLOT,(SP)
054, -(SP)
PC, BL $MUL
CHO. REF suoeuvsLope.mm
CMD.sLOT, (
054 (SPS
PC, BL SMUL
SND. euvewpeoecno)
cno
SLOT,(SP)
% Py
$MUL
sub.euven.opsoxo(ao)
CMD.SLOT, (SP)

2827

;

ZRCFB2

B13
27-Mer-1985 15:23:34

MISCELLANEOUS SECTIONS

v03.0

012746
004767
005060
016716
012746
004767
112760

AZTEC GLOBAL ROUTINE
000054
000000G
0000126
000000
000054
0000006
000004 000014G'

016716 0000006
012746 000054
004767
1
0000156
016716
012746 000054
004767
00
0000166

MOV
JSR
CLR
MOV
MOV
JSR
MOVB

MOV
MOV
JSR
CLRB
MOV
MOV
JSR
CLR

11-Jen-1985 08:19:19
054, -(SP)
PC, BL SMUL
SNO . ENVELOPE +12(RO)
cno.su.or (SP)
0 -(sP)
éu
SND., euv&oveoum)

VAX-11 Blise-16

USER$1:[AZTEC. czacrcmcrcz 8161

SEQ 0157

Page
- 62
09 225

2873

;

2874

;

2875

2879

;

2880

cvd

5
'6 euv&ope.xsmo)
CMD.SLOT, (SP)
054 (SPS
snb ENVELOPE 16(RO)

579

016716
012746 000054

MOV
MOV

00
0000206
016716 0000006
012746 000054

CLR
MOV
MOV

cno SLO (SP)
SP)
pc6|.
SND. env&opcozomo)
CMD.SLOT, (SP)
054 -(SPS

016716 0000006
012746 000054

MOV
MOV

CMD.SLOT, (SP)
054 -(SPS

;

2881

016716
012746
004767
005060
016716
012746
004767
005060
216716

000054
0000006
0000266
0000006
000054
0000006
0000306
000000

MOV
MOV
JSR
CLR
MOV
MOV
JSR
CLR
MOV

CMD. SLOT, (SP)
054 .-(SP)
L $MUL
snb enveu.opeozemo)
CMD.SLOT,(SP)
954, -(SP)
PC, BL $MUL
SND. ENVELOPE 30(R0)
CMD.SLOT, (SP)

;

2882

2883

;

2884

005060 0000326
016716 0000006
012746 000054

CLR
MOV
MOV

sw snven.ope 32(R0)
CMD.SLOT, (SP)
054 -(spS

;

2885

016716 0000006

MOV

CMD.SLOT, (SP)

2886

2887

2888

2892

004767 0000006
004767

0000006

0000226

004767

0000006

005060 000024G

012746 000054

004767

0000006

004767 0000006
005060 000034G
012746 000054

004767

000000G

005060 0000366
016716 000000G

012746 000054
004767 0000006
005060 0000406
016716 000000G
012746 000054
004767 0000006
005060
016700

0000426
0000006

JSR

CLR
JSR

CLR

MOV
JSR

N6 envempsoaz(m
L $MUL

sub.envewpeowno)

054 -(spS

JSR
CLR

PC, BL $MUL
SND . ENVELOPE
« 34(RO)

MOV

954, -(SP)

JSR

PC, BL $MUL

MOV
JSR
CLR
MOV
MOV
JSR

-(SPS
é
sub envewve«omm
cno s
SP)
-(SPS
Pc.é$MUL

CLR
MOV

SND. enveu.ope 36(R0)
cno SLO SP)

SND . ENVELOPE +42(R0)
ggo.swt.ao

bl3
ZRCFB2
v03.0

000606
000612

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

0000006
100000 000002
000000G 000054
000054
000000V
000000V
000056

27-Mar-1985 15:23:34
11-Jen-198S 08:19:19

SEOPOISO 63

USER$1:(AZTEC.CZRCFC)ZRCFC2.816;:1

090(22)

SEND.RING, RO
9100000, 2(R0)

SRC2S. ADDR, 54(SP)
54(SP),R0O

PC,REC.STATUS

336.SP

AB$CODE + 5516
198 words,
Routine Base:
; Routine Size:
24 words
; Maximum stack depth per invocetion:

2906
2907
2908

VAX-11 Bliss-16 V4,0-579

+ ,RC.REG

RC.REG,TEMP

2896

2900
2827

D13
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

2909
2910
2911
2912
2913

ORI LIV L L LY RV L NV L LML LNV N NV N L L L N NI NV YL A D Y N N D N D N TN 5= 0 hs s s s s s s s s s s s s s o s

..u...o..n.o...v.....o.fl.l.o.!.‘.....-.ntiolfl.Q.o.0.0...n.'.u.c.o.o.o.-.'.-.-.ct'.ofl.l.v“.o.o-oc.o.-‘o.aoo.o

ZRCFB2
v03.0

27-Mer-1985 15:23:34

11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFC)ZRCFC2.B16;:1

global routine AVAILABLE =
Yae

! FUNCTIONAL DESCRIPTION :
!
THE AVAILABLE COMMAND IS USED TO SET THE UNIT-ABAILABLE WHEN
ALL_OUTSTANDING COMMANDS FOR THE SPECIFIED UNIT ARE COMPLETED.
IF THE "SPIN-DOWN" MODIFIER IS SPECIFIED, THE DISK SPINS DOWN
AND ITS HEADS ARE UNLOADED.

FORMAL PARAMETERS :

IMPLICIT INPUTS :

IMPLICIT OQUTPUTS :
SIDE EFFECTS :

PLATTER NUMBER (UNIT)
RET_STATUS

begin

local

MP;

s UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION
SND_ENVELOPE

]

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, MSG_LENGTH]) = SZ_AVL;

[.CMD_SLOT, CREDITS]
= ONE; -~
[.CMD_SLOT, MSG_TYPE] = 0;
[.CMD_SLOT, CONN_ID] = 0;

! LOAD MESSAGE LENGTH

{ LOAD CREDIT SIZE

i MESSAGE TYPE ' SEQUENTIAL®

i DEFINE CONNECTION ID DUP’

E MSCP GENERIC CWA'O ENVELOPE FIELD DEFINITION

SND_ENVELOPE

[.CMD_SLOT, CMD_LREF]

[.CMD_SLOT, CHO-HREF]

SND_ENVELOPE [ .CMD_SLOT, UN_CUSED]

SND_ENVELOPE

.CMD_REF;

= ZEROT

1LOAD COMMAND REFERENCE

' 2ER0 HE ORDER Eho DEr

= .UNIf; i SELECTED UNIT

UN HUSED]
zsno;
OPCODE] OP _AVL;
.CMD_SLOT, UQRSVD]
= ZERO;
[.CMD_SLOT,

SND_ENVELOPE [ .CMD_SLOT, MODIFIER) = MD_SPD;

! NOT USED IN DUP IMPLIMENT.
! DEFINE COMMAND OPCODE
! NOT USED

! DEFINE CMD MODIFIERS

g SET THE OWNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT.
.

SEND_RING [.CMD_SLOT, OWN_BIT] = PORT_OWNED;

g READ THE IP REGISTER TO STIMULATE PORT POLLING.
TEMP =

_RC25_ADDR [RCIP, RC_ALL];

GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND
GET_CMD_SLOT (J;

CHECK THE END PACKET FOR GOOD STATUS
return REC_STATUS ();

! RETURN THE STATUS

SEO0159

(Zg;

E13
ZRCFR2

MISCELLANEOUS SECTIONS

V03.0

AZTEC GLOBAL ROUTINE

2966

.SBTTL
AVAILABLE
::

005746

000002

016746

0000006

000012
000016
000024

004767
012760
016716

0000006
000014 000000G
0000006

000034
000040

004767
142760

000054

016716

000046

000060

152760

012746

000076

142760

PC, BL $MUL
014, SND . ENVELOPE(RO)
CMD.SLOT,(SP)

;

0000006
000017 000002G

JSR
BICB

PC, BL $MUL
©17,SND.ENVELOPE+2(R0)

0000006

MOV

CMD. SLOT, (SP)

JSR

PC, BL $MUL

MOV

CMD. 10T, (SP)

JSR

PC,
BL $MUL

000054

000001

000122

000360

0000006

105060
016716

012746

0000026

000054

004767

000112
000116

000106

MOV

BISB

MOV

000002G

BICB

000054

MOV

000003G
0000006

CLRB
MOV

000126

004767

0000006

000054

MOV

000140

016716

0000006

MOV

000150

004767

0000006

000132 016760 000000G 000004G
000144

012746

;

JSR
MOV
MOV

0000006

012746

-(SP)

;

016716

000102

czacrc12ncrcz B16;1

Page

(23)

AVAILABLE AZTEC GLOBAL ROUTINE
CMD. SLOT, -(SP)

000064 004767 0000006
000070

USER$1:[AZ

MOV

000006 012746 000054
012746

11-Jen-1985 08:19:19

SEQ 0160

VAX-11 Bli 1

end;

000000

000030

27-Mar-1985 15:23:384

000054

JSR

954.-(SP)
054, -(SP)

#1,3ND.ENVELOPE+2(RO)

2909

2935
:
i

2936

;

2937

;

2938

;

'
2942

;

2943

SND. ENVELOPE +6(R0)
CMD.SLOT,(SP)

;

2944

CMD. SLOT, (SP)

;

2945

SND.ENVELOPE+ 12(R0)
cno SLOT,(SP)

10, SND.ENVELOPE+14(RO)
CMD.SLOT,(SP)

054 -(SP)

SND.ENVELOPEOB(RO)
CMD.SLOT,(SP)

54. (sP)

MOV

cnb ner SND. ENVELOPE +4(R0)

MOV

054

CMD.SLOT, (SP)
-(SP)

JSR

PC,BL $MUL

000202

016716

0000006

MOV
JSR
MOV

54. (595
UNiT.SND.ENVELOPEoIO(RO)

000206 012746 000054

000212 004767 0000006

MOV

000216
000222

005060
016716

0000126
0000006

JSR

954 . -(SP)

PC, éLs

000226 012746 000054
000232 004767 000000G

CLR
MOV

2946

112760
016716

000010 000014G
0000006

spS
PC
6L$HUL

;

236
000248

MOV
JSR

250 012746 000054
254 004767 0000006
260 105060 0000156

2947

016716
012746

0000006
000054

054.-(595
L $MUL
suéENVELOPE +15(R0)

;

264
270

MOV
JSR
CLRB

2948

300

012760

000001

312
314

006300
006300

2952

00330

017766

; *+,RC.REG

2956

000154
000160

005060
016716

000006G
0000006

000164 012746 000054
000170 004767 0000006
000174 016760 000000G 000010G

274
306

316
322

004767

0000006

016700 0000006

066700
052760

CLR
MOV

MOV

MOVB
MOV

MOV
MOV
0000166

000000G
100000 000002

000000G 000030

CMD.SLOT,(SP)
954 -(SP)
-

JSR

PC,
BL $MUL

MOV

CMD. SLOT,RO

ADD
BIS

RO
SEND.RING,RO
#100000, 2(R0O)

MOV

ASL
ASL

MOV

o1 SND.ENVEL0P5016(R0)

SRC25. ADDR, 30(SP)

F13
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFB2

V03.0

016600
004767
004767
062706
000207

000030
000000V
000000V
000032

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19
MOV
JSR
JSR
ADD

RTS

30(SP),RO
PC,REC.STATUS

SEZ.SP

120 words,
Routine Base:
ABSCODE + 6332
: Routine Size:
14 words
: Meximum stack depth per invocation:

2967
2968
2969

1
1
1

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC2.B16;1

+ RC.REG,TEMP

SEOPOI61 %

090(23)

2960
2965
2909

MISCELLANEQUS SECTIONS

ZRCFR2
v03.0

a7- Hor 1985

USER$1:[AZT EC.CZRCFCJZRCFC2.B16;1

Yoo

! FUNCTIONAL DESCRIPTION :

THE ONLINE COMMAND IS USED TO BRING A UNIT “UNIT-ONLINE,

HOST SETTABLE UNIT CHARACTERISTICS AND OBTAIN THOSE UNIT

SET

CHARACTERISTICS THAT ARE ESSENTIAL FOR PROPER CLASS DRIVER
OPERATION.
THE UNIT IS SPUN-UP,
IF NECESSARY, AND IS HEADS

ARE_LOADED PRIOR TO RETURNING THE ONLINE COMMAND'S END MESSAGE.

HOST SETTABLE CHARACTERISTICS COMMAND WERE ISSUED,

HOST

SETTABLE CHARACTERISTICS ARE_ SET AFTER THE UNIT HAS BEEN
SUCCESSFULLY SPUN-UP AND ANY OTHER VALIDITY CHECKS HAVE SUCCEDED.
FORMAL PARAMETERS

- NONE -

s p et o o s s Pt P
OV L L L L ALY L L L L ALY VTN NV N D T N D N N N P 1t s et Pt P

11-

global routine ON_LINE =

s i s sP

s s sP P e s s s s

AZTEC GLOBAL ROUTINE

VAX-11 Bliss- 16_v4.0-579

IMPLICIT INPUTS :
INPLICIT OUTPUTS :

RET_STATUS

COMPLETEDTION CODES
:

RET_STATUS
: RETURN STATUS PASSES BACK TO THE CALLING ROUTINE

SIDE EFFECTS :

ANY PREVIOUSLY DEFINED CONTROLLER CHARACTERISTICS WILL POSSIBLY

BE ALTERED AFTERE EXECUTION OF THEIS COMMAND.

begin
local

TEMP;

5 UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION
SND_ENVELOPE [.CMD_SLOT, MSG_LENGTH) = SZ ONL;

SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, CREDITS] = ONE;
[.CMD_SLOT, MSG_TYPE] = 0;

= 0;
SND_ENVELOPE [ .CMD_SLOT, CONN_ID]

! LOAD MESSAGE LENGTH

! LOAD CREDIT SIZE
! MESSAGE TYPE 'SEQUENTIAL'

! DEFINE CONNECTION ID 'DUP’

! MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION

SND_ENVELOPE

[.CMD_SLOT, CMD_LREF]

SND_ENVELOPE [.CMD_SLOT, CMD_HREF
SND_ENVELOPE [ .CMD_SLOT, UN_LUSED

SND_ENVELOPE

SND_ENVELOPE
SND_ENVELOPE

SND_ENVELOPE

.CMD_REF;

[.CMD_SLOT, UN_HUSED

ZERQ;
LUNIT;
;

[.CMD_SLOT, UQRSVD)
=

[.CMD_SLOT, OPCODE) = OPON.s

[.CMD_SLOT, MODIFIER) ' ZE 0;

!LOAD COMMAND REFERENCE @

! ZERO HI ORDER CMD REF #
! SELECTED UNIT
NOT_USED IN DUP IMPLIMENT.
DEFINE COMMAND OPCODE
NOT USED
DEFINE CMD MODIFIERS

z COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION
SND_ENVELOPE

SND_ENVELOPE

[.CMD_SLOT, RSV$D]) = ZERO;

! RESERVED

[.CMD_SLOT, UNT_FLAGS] = ZERO; ! UNIT FLAG FIELD-

SEOP0162

'90( 24)

H13
ZRCFB2

MISCELLANEQUS SECTIONS

705 0

27-Mer-1985 15:23:34

AZTEC GLOBAL ROUTINE

11-Jen-1985 08:19:19

;3027

SND_ENVELOPE

i
i
:
:
:
:

3029
3030
3031
3032
3033
3034

2
2
2
2
2
2

SND_ENVELOPE (.CMD_SLOT. RSVD$2]
SND_ENVELOPE [.CMD_SLOT. RSVD$3]
SND_ENVELOPE [ .CMD_SLOT. RSVD$4]
SND_ENVELOPE
[.CMD_SLOT, RSVD$5]
SND_ENVELOPE [ .CMD_SLOT. DDP LO
SND_ENVELOPE [ .CMD_SLOT.
D

gggg

SNOZENVELOPE

gggg g

: SET THE OMNERSHIP BIT TO 1 WHICH GIVE THIS SLOT TO THE PORT.

:
:

gg:g g
gg:g 5

%END_RING [.CMD_SLOT, OWN_BIT) = PORT_OWNED;
§ READ THE IP REGISTER TO STIMULATE PORT POLLING.

;

gg:g g

fenp = .RC2S_ADDR [RCIP, RC_ALL];

;
:
;

gg:g 5
3048 2
gggg g

g GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND
éev _CMD_SLOT ();
'! CHECK THE END PACKET FOR GOOD STATUS

3008 2

3035 2

3052 2

3053

SND_ENVELOPE

[.CMD_SLOT, RSVDIO]

[.CMD_SLOT. RSVD$1]

= ZERO,

= ZERO;

=
=
=
=
=
=

ZERO;
ZERO;
ZERO;
ZERO;
ZERO;
ZERO;

USER$1:[AZTEC.CZRCFCIZRCFC2.816;1

!
!
!
!
!
!

! SHADOW UNIT
i COPY SPEED

ON.LINE AZTEC GLOBAL ROUTINE

ST
MOV

-(SP)
CMD. SLOT, -(SP)

;
"

0000006
000044 000000G
000000G

JSR
MOV
MOV

PC,
BL $MUL
044, SND . ENVELOPE(RO)
CMD.SLOT,(SP)

;

0000006
000017 000002G
000001
0000026
000000G

JSR
BICB
BISB
MOV

PC,
BL $MUL
©17,SND.ENVELOPE+2(R0)
o1,5ND.ENVELOPE+2(RO)
CMD.SLOT,(SP)

;

000360

BICB

000054

000054
0000006

0000006

000054
0000006

000002G

000003G
0000006

000054

MOV

054, -(SP)
054, -(SP)

2970
3008

3009

3010

MOV
JSR

954, -(SP)
PC, BL$MUL

MOV

cno $LOT,(SP)

;

3011

SND.ENVELOPE+3(RO)
CMD.SLOT,(SP)

3015

3016

0360 sno ENVELOPE 2(RO)

MOV
JSR

(spi
pc
éLsn

MOV

054, -(SP)

CLRB
MOV

0000006
0000006 000004G
0000006
000054

JSR
MOV
MOV
MOV

0000066

CLR

006G

"'(223

RESERVED FIELD
RESERVED FIELD
RESERVED FIELD
RESERVED FIELD
DEVICE DEPENDENT PARAMETER
DEVICE DEPENDENT PARAMETER

.SBTTL

000054

! RETURN THE STATUS

end;

0000006

SEQ 0163

! RESERVED FIELD

(.CMD_SLOT, COPY_SPEED) = ZERO;

ON.LINE

Bliss-16 V4.0-579

! RESERVED FIELD

SND_ENVELOPE [.CMD_SLOT, sunbou UNIT) = ZERO;

return REC_STATUS ();

VAX-11

JSR

PC, BL $MUL
CMD. REF, SND. ENVELOPE +4(R0)
CMD.SLOT, (SP)
954 -(SP)

PC,
BL $MUL

SND . ENVELOPE +6(R0)

113
MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2
v03.0

000160

000164

000170
000174

016716

016760
016716
012746
004767
005060
016716
012746
004767
112760
016716
012746
004767

105060

016716
012746
004767
005060

0000006
000054
000000G
000000G 000010G
0000006
000054
0000006
0000126
0000006
000054
0000006
000011
0000146
0000006
000054
0000006
0000156
0000006
000054
0000006
0000166
0000006

000054
0000006
0000206
0000006

000054
0000006
0000226
0000006
000054
0000006
0000246
0000006
000054
0000006
0000266
0000006
000054

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19
CMD. SLOT, (SP)

S‘é
-(SP)

iT sno
enngope+10(RO)

0-579
USER$1:[AZ C CZRCFC]ZRCFCZ 816;1
VAX-11 Bl

SEOP2324 o

(24)
3017

s(SP
54
S

3018

CMD. SLOT, (SP)

3019

N6 ENVELOPEol?(RO)
054 -(SPS

L $MUL
#11,SND.ENVELOPE+ 14(RO)

CMD. SLOT, (SP)

054-(SPS

3020

PC, BL $MUL

SND. ENVELOPEolS(RO)
CMD. SLOT, (SP)

54 (spS

sub ENVELOPEolb(RO)
CHo. st
Pscs )

su6 ENVELOPE 20(R0)
cno SL
°p5‘ P)

sub ENVELOPEoZZ(RO)
cno
SLSPS(SP)

PC6Ls

SND. ENVELOPE +24(RO)

3021

3025

3026

3027

cno
SLOTS(S )

3028

SND. ENVELOPE +26(RO0)
CMD.SLOT,(SP)

3029

PC
éLs
954, -(SP)

PC, BL $MUL

SND. ENVELOPE 30(R0)

CMD. SLOT, (SP)

054 -. (SPS

3030

PC, BL $MUL

SND . ENVELOPE
+ 32(R0)

CMD.SLOT, (SP)

054, -(SP)

3031

PC
BL $MUL
,

SND . ENVELOPE
+ 34(RO)
CMD.SLOT, (SP)

54 SPS

snbENVELOPE 36(R0)

CMD. s 0T,(SP)

054 -(SP5

PC,

016716

3032

3033

BL $MUL

SND. ENVELOPE +40(R0)
CMD. SLOT, (SP)

3034

J13
MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2
v03.0

27-Mar-1985 15:23:34
11-Jan-1985 08:19:19

000054

000530
000534
000540

VAX-11 Bliss-16 V4,0-579

USER$1: [AZTEC .CZRCFCJZRCFC2.B16;1

SEQ 0165

(24)

2 8L s

0000006
0000426
0000006
000054

-(SP)

SND. ENVELOPEola(RO)

CMD. SLOT,

(SP)

3035

cro. SLOPS(SP)

3036

0000442

0546-(SP5
sub ENVELOPE +44(RO)

000054
0000006

PC,

0000006

BL $MUL

SND . ENVELOPE +46(R0)

0000466
0000006

ggo.SLor.no

3040

SEND .RING no
9100000, 2(R0)

aRC2S. uboa60(SP)
60(SP),R

000207
; Routine Size:

RTS
Routine Base:

: Maximum steck depth per invocation:

3054
3
;3055
3056
s

1
1
1

26 words

PC.GET.CHD.SLOT
PC,REC.STATUS
062, SP
PC

AB$CODE - 6712

+,RC.REG
RC.REG, TEMP

3048
3052
2970

ZRCFB2

K13

MISCELLANEQUS SECTIONS

v03.0

27-Mer-1985 15:23:34

AZTEC GLOBAL ROUTINE

11-Jen-198S 08:19:19

3057

9lobol routine READ_CMD =

;.
;.
;.

3059
3060
3061

1
1
1

! FUNCTIONAL DESCRIPTION :
!
THE READ COMMAND IS USED TO READ FROM THE UNIT AND TRANSFER
!
TO THE HOST BUFFER. READ CMD MAY BE CONSIDERED AS SEEK COMMAND

3064

CALL REC STATUS AND WAIT FOR END PACKET STATUS INFO. THIS IS

IF CMOD CONTAINS MD_EXP BIT AS THE COMMAND MODIFIER, THEN

;.
;.

3058

3062
3063

3065

1
1

H
!

IF THE BYTE_COUNT WAS ZERO.
IF THE FLAG TIP CONTAINS ALL ONES,

gggg

:
:
3
:

3070
3071
3072
3073

1
1
1
1

! FORMAL PARAMETERS :
- NONE !
!
! IMPLICIT INPUTS :

307

:
:
3
:

3074

SEEKS WILL BE DONE BY THE CONTROLLER IN THE ORDER RECEIVED
AND WILL NOT BE OPTIMIZED.

BUF _DESCRPTR,BYTE_COUNT, UNIT, LBN_ST, TIP,

cMob

gggg

1
1
1
1

' INPLICIT OUTPUTS :
H
RET_STATUS
!
' COMPLETEDTION CODES
:

3082
3
:
3083
;.
3084
3085
:
;3086
;3087
3088
:
3089
:

1
1
1
1
1
2
2
2

!
' SIDE EFFECTS :
!
- NONE !-.
begin

3076
3077
3078
3079

3090

3091

3092
gggz

2
s

3095

RET_STATUS
: RETURN STATUS PASSES BACK TO THE CALLING ROUTINE

loceal

;.
:

3
;.
:

THEN THIS ROUTINE WILL NOT

DONE TO QUEUE SEEK COMMANDS FOR THE CONTROLLER IN SOME TESTS.

3066

3067

!
5 UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION

SND_ENVELOPE

3097
gggg

gigg

E MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION

3102

;
3104
;
3105
:
3106
;3107
s
gigg

2
2
2
2
5

gii?

E COMMAND SPECIFIC COMMAND ENVELOPE FIELD DEFINITION

3112

;3103 2

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, MSG_LENGTH] = SZ_RD;

2
2
s

‘

USER$1:(A TEC CZRCFC]ZRCFC? B16;1

VAX-11 Bliss-16 V4.0

SND_ENVELOPE

[.CMD_SLOT, CMD_LREF)

SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE
SND_ENVELOPE

[.CMD_SLOT, UN_LUSED] =
:
[.CMD_SLOT, UN_HUSED) = ZERO:
[.CMD_SLOT, OPCODE) = OP_RD;
[.CMD_SLOT, UQRSVD
ZERO;
[.CMD_SLOT, HOOIFIER] = CHOO:

SND_ENVELOPE

[.CMD_SLOT. CREDITS) = ONE;
[.CMD_SLOT, MSG_TYPE) = 0;
[.CMD_SLOT, CONN_ID] = 0;

SND_ENVELOPE

= .CMD_REF;

[.CMD_ SLOT. CMD_HREF ) = ZER
O%

[.CMD_SLOT, BLO_CNT)

[.CMD_SLOT, BHI_CNT]

'LOAD COMMAND REFERENCE ¢

! ZERO HI ORDER CMD REF ¢

! SELECTED UNIT
! NOT USED IN DUP IMPLIMENT,
! DEFINE COMMAND OPCODE
! NOT USED
! DEFINE CMD MODIFIERS

.BYTE COUNT

= ZERO;

! LOAD MESSAGE LENGTH

' LOAD CREDIT SIZE
! MESSAGE TYPE
! DEFINE CONNECTION ID

! BYTE COUNT LOW WORD

BYTE COUNT HIGH WORD

. 092326 71
E

(25)

By
VL EL VL VLSV VUYL VL YLV Y
LU UV L VL VLV LV VL VL STV VL VLS VL

e G5 90 B8

90 90 G0 G0 G

G0 G0

) GF S0 TP G0 G0 S0 G0 G0 G0 G GF G

Ge S8 G0 S¢ @8

MISCELLANEQUS_SECTIONS
AZT 3 C GLOBAL ROUTI
SND_ENVELOPE

SND

_ENVEL OPE

SND_ENVEL OPE

27-Mer-1985 15:23:34

T1-Jen-1985 08:19:19

{.CHD_SLOT, B0.0)

'823
sLot,ag

SND_ENVELOPE [ .CMD_ SLOT
SND_ENVELOPE [.CMD_SLOT,
SND_ENVELOPE [.CMD_SLOT,
SND_ENVELOPE [.CMD_SLOT,
?W_ENVELOPE .CMD_SLOT,

= .BUF_DESCRPTRy

= ZERO;
«

80_4 =
BD_S] =
LBN_LO)
LBN_HI)

aurrcn

ZERO;

VAX-11 Bliss-16 V4.0

USERS1:(AZTEC.CZNCFCIZRCFC2.816:1

SEQ 0167

Page

(25)

! BUFFER DESCRIBTOR FIELD

BUFFE

ESCRIBTOR FIELD
RIBTOR FISLD

BWFER DESCRIBTOR FIELD

BUFFER DESCRIBTOR FIELD
ZERO;
ZERO;
BUFFER DESCRIBTOR FIELD
= LBN .S5T; ! LOGICAL BLOCK NUMBER
« ZERO;
LOGICAL BLOCK NUMBER

g SET THE OWNERSHIP BIT TO 1 WMICH GIVE THIS SLOT TO THE PORT.
§EN0,R1N5 [.CMD_SLOT, OWN_BIT) = PORT_OWNED;
if .TIP eqlu %0'177777'

then return RET_STATUS = PAS_CODE;

IF TIP CONTAINS

! ALL_ONES EXIT HERE
! READ THE IP REGISTER TO STIMULATE PORT POLLING.

IEPP

.RC25_ADDR [RCIP, RC_ALL];

s GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND
QET_C"I)_SLOY ()

: CHECK THE END PACKET FOR GOOD STATUS

return REC_STATUS ();

! RETURN THE STATUS

end;

.SBTTL
READ.CMD:
:
187

MOV

0000006
0000026

0000026

PC,BL $MUL

MOV

0000006

054, -(SP)
040, SND. ENVEL OPE(RO)

054 -(SP)

MOV

CMD.SLOT,(SP)

JSR

PC, BL $MUL

BISB
MOV

o1,SND. ENVELOPE 2(RO)
C"fi

JSR

PC,BL $MUL

BICB

054 -(sp)

0360, SND.ENVELOPE+2(R0)
CHD. SLOT,(SP)

CLRB

JSR

PC,BL

MOV

CHD.SLOT,(SP)

JSR
MOV

054, -(SP)

PC, BL $MUL
CMD. REF , SND, ENVELOPE +4(RO)

MOV

054, -(SP)

MOV

3057
3095

3096

3097

;

3098

;

3102

;

3103

017,SND.ENVELOPE+2(R0)

BICB
MOV

MOV

0000006
000000G 0000046

-(SP)

CMD.SLOT,-(SP)

MOV
JSR
MOV

MOV

0000026

READ.CMD AZTEC GLOBAL ROUTINE

054, -(SP)
$MUL

s~6 ENVELOPE 3(RO)

cMD.sLot, (SP)

ZflgFHZ
v03.0

M
a

4
9

VAX-11
USER41:

subENVELOPEob(RO)
cnoSLOPS(P)

0000106

iréfuo
enchops 10(R0)
" SPS
PCé

AZTEC. CZRCFC]ZRCFCZ B16;1

SEQ 0168

(25)

3104

3105

Nb
ENVEL?PE)12(R0)

0000146

liss-16
V

soS
PC
éL
041, suo ENVELOPEoIC(RO)

3106

CHD
SLSPsP)

3107

cno
SLOTS(SP)

;

3108

CHOD suo ENVELOPE 16(RO)
CHD. $LOT

;

3112

CMD. SLOT, (SP)

;

3113

;

3114

;

3115

;

3116

;

3117

3118

;

3119

;

3120

Nb ENVELOPEolS(RO)
pcéL

sa (SPS
L $MUL
avfe COUNT, SND.ENVELOPE «20(RO)
54 -(sP)

sub.ENVELOPEozacao)
$MUL

-CMD.. SLOT, (SP)

054,

0000246

-(SP)

PC
BL SMUL
,

BUF . DESCRPTR , SND . ENVEL OPE + 24(R0)

gno.sn.ovs(spi

PC, BL $MUL

SND.ENVELOPE
+ 26(RO0)

cno
SLgps(SP)

pc6Ls

SND. ENVELOPE 30(R0)

054 -(SPS
$MUL
SNfi.ENVELOPEoSZ(RO)
CMD. SLOT, (SP)

CMD.SLOT, (SP)

054 -(spS

PC,

snb ENVELOPE 34(no>
CMD. SLOT,(
054 -(spi
L $MUL
sub ENVELOPE 36(R0O)
CMD.SLOT,
(SP)
054. - spS
PC, BLSHUL

BL $MUL

N13
MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

000000G 000040G
0000006
000054
0000006
0000426
0000006

liss-16
579
USER‘I' AZTEC. CZRCFC]ZRCFC2 816;1

LBN. ST, SND, ENVELOPE +40(RO)

cno5Ls(sm
6

SEOP0169 2

.’.(25)
3121

PC6L

vé envamuzmm
SLOT,RO

3125

SEND.RING,
R

#ooooo2lno)

100000 000002
0000006 177777
0000006
000054

RET.STATUS
054

000000G 000054

24
8RC23, AODR S4(SP)
54(5P),R

1%:

PC.GET. CHD SLOT
PC,REC.STATUS
24:

; Routine Size:
; Meximum steck
3143
3144
3145

]
]
1

214 words,

3128

187

RTS

054, SP
(5PY%

Routine Base:
ABSCODE + 7570
24 words

depth per .nvocntaon

*,RC.REG

RL. REG, TEMP

3133

3137
3141

Bl4
D D D D D D D D D D D D D ) 0 s 5 et e P s s P P o o s s o s s s P e P P
ORI AL L L AL L LN AL L Y AL N AL N D

...-.om.o.ounonM.tu.o.l.l.o.-.0Oo...-oo.-.o-n.-oo.no-o-.-cun.o...-.0.0...«nn“uuuuu“uuuuwflu

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bli
USER$1:(AZ

vlobll routine GET_UNIT_STATUS =
FWTIWAL DESCRIPTION :

HE_GET UNIT STATUS COMMAND IS USED TO READ THE CURRENT

STATE OF THE UNIT, PLUS CERTAIN UNIT CHARACTERISTIACS.
FORMAL PARAMETERS :
-

NONE

IMPLICIT INPUTS :

*] INPLICIT OUTPUTS :

UNIT

RET_STATUS

! COMPLETEDTION CODES
:

RET_STATUS: RETURN STATUS PASSES BACK TO THE CALLING ROUTINE

' SIDE EFFECTS :
0

]

begin

local

TEMP;

UQ PORT COMMAND ENVELOPE HEADER FIELD DEFINITION
SND_ENVELOPE [.CM_SLOT MSG_LENGTH]) = SZ_GUS;

SND_ENVELOPE
SND_ENVELOPE
SNDC“ENVELOPE

[.CMD_SLOT, CREDITS)
= ONE;
[.CMD_SLOT, MSG_TYPE) = 0;
[.CMD_SLOT,CONN_ID) = 0;

! LOAD MESSAGE LENGTH

! LOAD CREDIT SIZE
! MESSAGE TYPF
! DEFINE CONNECTION ID

g MSCP GENERIC COMMAND ENVELOPE FIELD DEFINITION
I

SND_ENVELOPE

[.CMD_SLOT, CMD_LREFi

SND_ENVELOPE [.CMD_SLOT,
SND_ENVELOPE [ .CMD_SLOT.
SND_ENVELOPE [.CMD_SLOT,
SND_ENVELOPE [.CMD_SLOT,
SND_ENVELOPE [ .CMD_SLOT,

.CMD_REF;

1LOAD COMMAND aereaence »

CMD_HREF) = ZERO; ' ZERO HI ORDER CMD REF
UN_LUSED
LUNIT; ! SELECTED UNIT
UN_HUSED
ZERO; ' | NOT USED IN DUP IMPLIMENT.
OPCODE opsus;
DEFINE COMMAND OPCODE
UQRSVD
&
NOT USED

SNO_“ENVELOPE [ .CMD_SLOT, MODIFIER) - ze 0; ! DEFINE CMD MODIFIERS
: SET THE OWNERSHIP BIT TO 1 WHICM GIVE THIS SLOT TO THE PORT.

.f,euo,nxns (.CMD_SLOT, OWN_BIT] = PORT_OWNED;
g READ THE IP REGISTER TO STIMULATE PORT POLLING.

?enp = ,RC2S_ADDR [RCIP, RC_ALL);
g GET THE COMMAND SLOT NUMBER FOR NEXT COMMAND
(:;sr_cne_sm OF

579

SEQ 0170

CZRCFC ]ZRCF C2.816:1

Page

(26)

Cl4
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFRB2

€0

G0 G0

= PPN NN

—

W WD

3203
3204

G0 G0 G0 GF G0

s ©F G0

v03.0

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

SEQ 0171

VAX-11 liss-16 V4,0-5 79
USER41: AZTEC.CZRCFC)ZRCFC2.B16;1

(26)

E CHECK THE END PACKET FOR GOOD STATUS
if REC_STATUS ()

then

lse

! READ THE STATUS

begin
return .RET_STATUS;

! RETURN WITH A STATUS ERR

RES_SLOT =

! GET THE CURRENT RES. SLOT

end

RET_UNIT FLAG =

GET_RES_SLOT

return .RET STA

end;

.RES_SLOT - 1;

-REC_ENVELOPE [.RES_SLOT, UNITchAGls

! READ UNIT FLAG
T NEXT RES. SLOT
! RETURN WITH A PASS CODE

.SBTTL GET.UNIT.STATUS AZTEC GLOBAL ROUTINE
GET.UNIT,gTATUS
-(SP)
}
CMD.SLOT,-(SP)
;

34
-(SP)

014.SNO ENVELOPE(RO)

.SL
gPS(S )

0000006
000017 0000026
000001
000002G

000360

0000026

;

SND ENVELOPE+2(RO)
ND ENVELOPEO?(RO)

SPS

0360, suo ENVELOPE +2(R0)
S 0T,(SP)

SPS

3146
3176

3177

3178

3179

3183

3184

;

3185

3186

c L $MUL
000116
000122
000126
000132
000140
000144
000150

160
164
170
174
202
206
212
222
20226
232
0236

016716
012746
004767
016760
016716
012746
004767
005060
016716
012746
004767
016760
016716
012746
004767
005060
016716
012746
004767
112760

suo ENVELOPE S(ROJ

cnb REF SND ENVELOPEod(RO)
CMD.SLOf
o
PS
L $MUL
SN6.ENVELOPE06(R0)
HUL

gno.sw; s(sp)

000000G 000010G

UNIT suo
ENVELOPE+10(R0)

SND. ENVELOPEoIZ(RO)

054 . -(spS

CMD. SLOT, (SP)
0000006
000003 000014G

PC, BL $MUL
3. SND . ENVELO
+ 14(R0)
PE

3187

D14
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2
v03.0
016716

000244

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

0000006
000054
0000006
0000156
0000006
000054
0000006
0000166
0000006

VAX-11 Bliss-16 V4,0-579

SEQ 0172

USER$1:[AZTEC. CZRCFC]ZRCFCZ B16;1

CMD.SLOT,(SP)

(26)

s (sP)

3188

cng.SL
grs( P)

3189

sub ENVELOPEoIS(RO)
L $MUL

Nfl.ENVELOPE016(RO)
ggo.SLOT.ao

3193

SEND. amc ao

$100000,2(R0)

aRC2S, A60R 30(SP)

000030

+,RC.REG

RC.REG, TEMP

30(SP),R

pc.ssr.cno.SLov

0000006

14:

Sg.asc.srurus

3201
3206

030, 5P
ggT.STATUS.RO

3209
3208

RES.SLOT
RES.SLOT,RO
RO
RO
RO
RO
#77,.RO
REC.ENVELOPE+22(RO),RET.UNIT. FLAG ;
PCOGgT.RES.SLOT

3212
3214

RET,.STATUS,RO

(SP)+

—

Routine
144 words,
ABSCODE + 10444
Base:
0
;: Routine Size:
14 words
; Maximum steck depth per invocation:

000207

2%:

®e

000022G 0000006

3197

MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFB2
== 10 PO LV L L LN NV ML YN NV VN N N = s s s et s s

Vo3

026727

27-Mer-1985
11-Jen-1985

RING,

IT WILL WRAP AROUND,

AS THE SLOT NUMBER REACHED TO THE BOTTOM.

begin
if .CMD_SLOT eqlu SND_ALLOCATE - 1

then

1se

$ESSL°T # REACHED TO THE END

CMD_SLOT = ZERO

gfg: AROUND THE COMMAND RING

CMD_SLOT = .CMD_SLOT « 1;

INCREMENT THE CMD SLOT NUMBER

i:..SEND-RING (.CMD_SLOT, OWN_BIT] eqlu PORT_OWNED
n

1se

return TRUE

THIS SLOT IS NOT_OWNED BY

SEND_RING [.CMD_SLOT, FLAG_BIT) = ZERO;

! CLEAR CMD_RING FLAG BIT

! HOST YET. SO WAIT.

return FALSE;
end;

000000G 000017

.SBTTL
GET.CMD.SLOT::
gm

gkfl

1%:
2$:

0000006
0000006
040000 000002

INC
MOV

34:

GET.CMD.SLOT AZTEC GLOBAL ROUTINE

Cl‘l) SLOT,917

3230

gHD.SLOT

3232
3230

CMD.SLOT
CMD.SLOT,RO

ASL
ASL

RO
RO

RTS

ASL
ASL

RO
RO

ADD
18T
BPL
MOV

000001

MOV

ADD
BIC
CLR
RTS

:
:

3237

SEND.RING,RO
2(RO)
38
#1,RO

3239

CMD.SLOT,RO

3242

3228
3221

SEND.RING,RO
#40000,2(RO)
RO
PC

32 words, :
Routine
Base:
ABSCODE « 11104
; Routine Size:
0
; Maximum stack depth per invocation:
0 words
1
1
1

€27y

THIS ROUTINE ASSIGNS A COMMAND SLOT NUMBER FOR THE COMMUNICATION

0000006
000002

3246
3247
3248

tCI2ReFC2.81651

€0 0173

: FUNCTIONAL DESCRIPTION:

0000006
0000006

000207

VAX-11 ?ll
99-16
USER#$1:[AZTEC. Z

?lobox routine GET_CMD_SLOT =

0000006

:34
:19

MISCELLANEOUS SECTIONS

ZRCFB2
v03.0

=10 PO AL PV

N NI N PO N

s s s s s e

AZTEC GLOBAL ROUTINE

016700

006300
006300
066700
042760
026727
001003
005067
000207
005267
000207

; Routine Size:

1
1
1

11-Jen-198S 08:19:19

VAX-11 Bliss-16 V4.0-579

SE°P°17‘ 79

USER$1:[AZTEC. CZRCFC)ZRCFC2 B16;1

(28)

?lobol routine GET_RES_SLOT : novalue =
' FUNCTIONAL DESCRIPTION:

THIS ROUTINE ASSIGNS A RESPONSE SLOT NUMBER FOR THE COMMUNICATION

RING, IT WILL WRAP AROUND,

AS THE SLOT NUMBER REACHED TO THE BOTTOM.

begin
RECEIVE_RING [.RES_SLOT, FLAG_BIT) = ZERO;

! CLEAR RECEIVE RING FLAG BIT

if .RES_SLOT eqlu REC_ALLOCATE - 1

! IS SLOT & REACHED TO THE END?

5 gfgg AROUND THE RESPONSE RING

then
“

RES_SLOT = ZERO
RES_SLOT =

YES.

THEN

_RES_SLOT + }1;

! INCREMENT THE RES SLOT NUMBER

end;

0000006

GET.RES.SLOT AZTEC GLOBAL ROUTINE

MOV
ASL
ASL

RES.SLOT,RO
RO
RO

ADD
BIC
gz:

0000006

CLR

0000006

19 words,

.SBTTL

GET.RES.SLOT::

0000006
040000 000002
000000G 000017

; Maximum stack depth per

3267
3268
3269

F14
27-Mar-1985 15:23:34

1$:

Routine
Base:
0

invocation:

0 words

RTS

INC
RTS

3258

RECEIVE.RING,RO
#40000,2(RO)
?ES.SLOT.OI?

3260

RES.SLOT

3262

RES.SLOT
PC

3
3

3264
3249

ABS$CODE - 11204

3260

ZRCFB2

MISCELLANEQUS SECTIONS

v03.0

{

AZTEC GLOBAL ROUTINE

27-Mar-1985 15:23:34

11-Jen-1985 08:19:19

gg;g

globol routine READ_FILL_CMD : novalue =
s

LR ]

§§;§

FUNCTIONAL DESCRIPTION:

3274

;

i
;.

32715
3276

1
1

3278

:
:
:

3277

3279
3280
3281

1
1
1

THE ONES THAT ARE TOUCHED HERE. THIS ROUTINE IS CALLED IN THE

:
!
! -

TIMING TESTS ONLY.

! FORMAL PARAMETERS

ggg;

! IMPLICIT INPUTS :

:
3
:
:
;i
i
:
:
:
;.
;i
;.

3286
3287
3288
3289
3290
3291
3292
3293
3294
3295
329
3297

1
1
1
1
1
1
2
2
2
2
2
2

! IMPLICIT OUTPUTS :
!
! COMPLETION CODES :
'
! SIDE EFFECTS :
3
:

3
:

3299
3300

2
1

LBN_ST, CMD_SLOT

bfison
SND_ENVELOPE [.CMD_SLOT, CMD_LREF) = .LBN_ST;
!
!
!
SND_ENVELOPE [.CMD_SLOT, LBN_LO) = .LBN_ST;
!

SEND_RING [.CMD_SLOT, OWN_BIT) = Pont_ouwefis
.

! GIVE THE SLOT TO PORT

.SBTTL
READ.FILL.CMD AZTEC GLOBAL ROUTINE
READ.FILL.CMD::
MOV

CMD.SLOT, -(SP)

;

0000006
000000G 0000046
0000006

JSR
MOV
MOV

PC,BL $MUL
LBN.ST, SND.ENVELOPE +4(R0)
CMD.SLOT,(SP)

000000G 0000406
0000006

MOV
MOV

LBN.ST,SND.ENVELOPE +40(R0O)
CMD.SLOT,RO

;

0000006
100000 000002
000006

ADD
BIS
ADD

SEND.RING,RO
$100000,2(R0)
96, SP

;

000054

MOV

000054
0000006

30 words,

Routine Base:

; Meximum stack depth per invocation:

! GIVE LBN IN COMMAND REF SO THAT
LBN RECEIVED IN THE RECEIVE ENVELOPE
CAN BE TAKEN AS FAILING LBN, IF THERE
WAS ANY ERROR.
LBN TO SEEK

return;
end;

0000006

;3301

°°‘(29)

ISSUED AND THE SND_ENVELOPE IS SUPPOSED TO BE IN TACT EXCEPT FOR

[

; Routine Size:

AND ALSO GIVE THE CMD_SLOT TO PORT IMMEDIATELY AFTER RECEIVING IT
FROM PORT. THIS ROUTINE WILL BE CALLED WHEN READ_CMD WAS ORIGINALLY

gggg

3298 2

USER$1:[AZTEC.CZRCFCJZRCFC2.816;:1

THIS ROUTINE IS USED TO FILL SND_ENVELOPE WITH CMD_LREF AND LBN_ST

!
!

SEQ 0175

VAX-11 Bliss-16 V4.0-579

4 words

954, -(SP)

MOV
JSR

954, -(SP)
PC,
BL $MUL

ASL
ASL

RO
RO

RTS

ABSCODE + 11252

;

3293

2297

3298

3299

3270

H14
MISCELLANEOUS SECTIONS

ZRCFB2
v03.0

27-Mer-1985 15:23:34

VNN E TNV

S LT 8 8 Gl G306 G

D D D IO D D D PO D N V) 58 4 10 1t s s s e s s s s s it s 0 s s s s s s

AZTEC GLOBAL ROUTINE

11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4,0- 579

USER$1:[AZTEC.CZRCFC)ZRCFC2.816:1

global routine REC_STATUS =
Yoo

! FUNCTIONAL DESCRIPTION :
THIS ROUTINE READS THE STATUS OF END HESSAGE PACKET AND RETURN
THE SLOT TO THE CONTROLLER. IF ERROR, A STATUS FLAG AND ERROR CODE
ARE SENT 7O THE CALLER.

IF STATUS BIT INDICATES UNSUCCES:. THEN AN ERROR MESSAGE WILL
BE REPORTED BY THE TEST MODULE
FORMAL PARAMETERS :

! IMPLICIT INPUTS :

IMPLICIT OUTPUTS :
COMPLETION CODES :
SIDE EFFECTS :

IN_BOUND
RET_STATUS, ER_STATUS
RET_STATUS

begin

WAITING FOR THE CONTROLLER TO FILL THE DESCRIPTOR AND RELEASING

IT TO THE HOST, IF WAITING TIME EXPIRED THEN AN ERROR WILL BE REPORTED.
locel

I = _IN_BOUND;

! SAVE RECEIVE COUNT

incru COUNT from 0 to 60000 do
begin

! SET TIME OUT RANGE
! VER:C

if .RECEIVE_RING [.RES_SLOT, OWN_BIT) eqlu 0

then

begin

THEN

if (.REC_ENVELOPE [.RES_SLOT, STA_CODE)
nequ ZERO)

then

! IF HOST OWNS THE SLOT

! READ THE STATUS BITS

! IF ERROR

THEN FLAG THE ERROR

LBaST = .REC_ENVELOPE [.RES_SLOT, CMDLREF]S

!GET CHDREF FAILING

ER_STATUS = .REC_ENVELOPE [.RES_ SLOT STATUS ; ! SAVE ERROR CODE
IN'BOUND= .IN_BOUND + 1;
RECEIVE COUNT TOTAL

aef _STATUS = RSE_CODE;
return .RET_STATUS;

end

' aeponr THE ERROR & SET STATUS

! SET ERROR FLAG

elscb.

INaouno .IN_BOUND+ 1;

' RECEIVE COUNT TOTAL

SEQ 0176

RECEIVE_RING E
"RES_ SLOT OWN_BIT) = é
PORT OWN THE RING
GET_RES_SLOT
! GE1 NEXT RESPONSE SLOT
#
RET_STATUS = PA< _CODE ;
! CLEAR STATUS

(30)

ZRCFB2

MISCELLANEQUS SECTIONS

v03.0
:

3359

AZTEC GLOBAL ROUTINE

:
i
3
i
:
:

3360
3361
3362
3363
3364
3365

4
4
3
4
4
4

3
3

3367
3368

4
4

3366

114
27-Mar-1985 15:23:34

11-Jan-1985 08:19:19

else

begin
.
if (.IN_BOUND nequ .I) then return .RET _STATUS;

! VER:C

3374
33715
gg;g

2
2
s

3
3
:
3
3

3378
3379
3380
3381
3382

2
2
3
3
3

if .RC2S_DATA [RCSA, RCSA_ER)
then
bc?in
RET_STATUS = PFE_CODE;
return .RET_STATUS;

:
:
3
H

3384
3385
3386
3387

2
3
3
3

else

3389

3388

3390

3
3
3

end;
BREAK;

! WATCH FOR CONTROL C.

! IF THE MAX TIME IN THE LOOP WAS ELAPSED, THEN READ RCSA
! FOR POSSIBLE ERROR INFO.
RC2S_DATA [RCSA, RC_ALL]) = .RC2S5_ADDR [RCSA, RC_ALL);

'IF YOU RECIVE AT

! LEAST A SLOT THIS TIME THEN RETURN.
! IF NOT, WAIT AND TRY BACK.

DELAY (30);

3
;.
3

3383

(30)

end

3369
3370
3371

SE°P2:Z7 82

end;

:
:
:

VAX-11 Blies-16 V4.,0-579

USER$1:[AZTEC.CZRCFC)ZRCFC2.B16;:1

! GET RCSA DATA

! CHECK SA REG.ERROR BIT
! SAVE THE PORT/CTLER FAILURE

end

be?in
RET_STATUS = CT0_CODE;
return .RET_STATUS;

! SET TIME EXPIRED IN STATUS BUF
! RETURN WITH A TIME EXPIRED FLAG

end;

end;
.SBTTL
REC.STATUS:
:
JSR

000000G

cMP

0000006
000000G

1%:

000000G

MOV
CLR
MOV
ASL
ASL

REC.STATUS AZTEC GLOBAL ROUTINE
R1,$SAVE3

3322

IN.BOUND,R3
RZ

i oo,
1
; COUNT
:

3334
3336
3339

3343

3347

-(SP),-(SP)

RES.SLOT,RO
RO
RO

100000 000002

ADD

RECEIVE.RING,RO

0000006

MOV
SWAB

RES.SLOT,RO
RO

000077
000037
000000G

0000166

giooooo.zmoi

RORB
ROR
ROR
BICB
gg;a

#77,RO
g??.REC.ENVELOPEOI6(R0)

MOV

RES.SLOT,RO

RORB

SWAB

RO
RO
RO

vog.o

AZTEC GLOBAL nou?ms

ZRCFR2

000100
000102
000104
000110
000116

000122
000124

000136

000144
000150
000156
000162
000164
000170

000174
000176
000200

000204
000212
000216

000300
106000

RO
no
RO
RECeuv&opeu(no) LBN1
RES.SLOT,RO

ROR
ROR

RO
RO

SWAB
RORE

RO
RO

BICB

005267
012767
016700
000471
005267
016700

0000006
000031 000000G
0000006

INC
MOV
MOV
B8R
INC
MOV

IN. BOUND
031,RET,STATUS
RET.STATUS,RO
104
IN. BOUND
RES.SLOT,RO

BIS
JSR
CLR

9100000, 2(R0)
PC,GET.RES.SLOT
RET.STATUS

006300
006300
066700

052760
004767
005067

000422

000236
000240
000244
000246
000252

000443
012701
001411
016700
001404

000016G 000000G

0000006
000000G

000254
000260

005066
005300

000264
000266
000270
000272

005301
000766
104422
005202

100006
012767
016700

000405
012767
016700
022626
000207

24:

ASL
ASL
ADD

0000006

100000 000002
177420
0000006

000036
0000006

000002

000262 001374
020227
101645
016700
016016
011667

MOV

34
43;
5%:

6$:
7%:

84:

165140
0000006
000002
0000026

CHP
BEQ
MOV
BR
MOV
BEQ
MOV
BEQ

108:

IN.BOUND,R3
4
RET.STATUS,RO

DEC
BR
TRAP
INC

R1
54
22
R2

CMP
MOV
MOV
MOV

RO
RO
RECEIVE.RING,RO

CLR
DEC

BNE

BPL
MOV
MOV
BR
MOV
MOV
CMP
RTS

Bliss-16 V4.

SEQ 0178

°°‘(38§

;

3348

;
;
;

3349
3350
3336

;
;

3355
3356

;
;

3357
3358

#77,R0

REC.ENVELOPE +16(R0),ER.STATUS

104
036,R1
83
L$DLY,RO
73
2(SP)
RO

BLOS

000021 000000G
0000006
000011 000000G
0000006

USER$1: ?AZTEC. zncrcmcrcz B16;1
VAX-11

000077

000224 026703 0000006
000230 001403
000232 016700 0000006

316
320
326
332
334
332
346
350

ROR
ROR
8ICB
MOV
MOV

142700

016067

000222

000274
300
000302
000306
000312

27-Mer-1985 15:23:34

006000
006000
142700 000077
016067 000004G 000000G
016700 000000G

000126 006000
000130 006000
000132

11-Jan-1985 08:19:19

MISCELLANEQUS SECTIONS

R2,#165140
1§
RC2S.ADDR, RO
2(R0), (SP
(SP),RC25.DATA.2

9%
021,RET.STATUS
RET.STATUS,RO
104
#11,RET.STATUS
RET.STATUS,RO
(SP)s,(SP)+
PC

; Routine Size:
117 words,
Routine Base:
ABSCODE + 11346
; Maximum stack depth per invocation:
8 words

;

3339

; o, $8TMP2

3368

: 0,1

3365

; +,$8THPL

; $$TMP
; $$TMPL
; $$TMP2

;
; COUNT

; COUNT,+
;
: +,RC.REG
: RC.REG,+

3369
3336

3376

:
:
:

3378
3381
3385

;
;
;

3386
3385
3302

K14
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFB2

vV03.0

3391

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

VAX-1 18l 8s-16 V4,0-579
USER$ 1:(A ZTEC.CZRCFC]ZRCFC2.B16;1

SEQP0179 o4

*9€ 30)

MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

=PRI
NL NN NP, e s s ps s s ;=

.....C.I““.Ofl‘..l“”“.i“.n.’.‘“

ZRCFR2
v03.0

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

§ FUNCTIONAL DESCRIPTION:

THIS ROUTINE

SUPPLIES AN LBN NUMBER AT RANDOM.

P2 IS THE SEED.

P3 1S LBN NUMBER SUPPLIED.

begin

P2 = (.P2¢377 « 6925) mod 32767;

P3 =

P2;

P2 = not
return;
end;

.P2;

! P3 IS LBN

RANDOM.NUM AZTEC GLOBAL ROUTINE

MOV

R1,-(SP)

000571

MOV

0571,-(5P)

015415
077777
0000006
0000006

ADD
MOV
JSR
MOV

015415,(SP)
077777,-(SP)
PC,BL$MOD
RO,P2

BLOS
MOV

14
P2,RO

COM
BIC

R1
R1,RO

000000G 000000G

0000006
0000006

MOV

0000006

000000G 0000006

0000006
000207

; Routine Size:

;

Meximum stack

;3411

UPDATED SEED

.SBTTL

0000006

112

! RANDOM SEED

if .P2 gtru .END_LBN
then
P3 = P2 and .END LBN
else

0000006

012601

vlobol routine RANDOM_NUM : novalue =

RANDOM.NUM:
:

000110

€0,0180
VAX-11 ?lioo- 16_v4, 0-579
:
USER41: AZTEC .CZRCF CJZRCFC2.816;1

000006

ggv

MOV

COoM
ADD

MOV

RTS

P2,END.LBN

END.LBN,R1

g?.PS

P2,.P3

06, 5P

(SP)+,R1

38 words,
Routine Base:
ABSCODE - 11720
depth per invocation:
S words

3392
3400

3402

sP
s Bt s s P e P
s 5t s 5t P
N N D O D O NS D N P N U 5 s 5
G
G
B B B B L Ul G
EWEETOTOROTO I
RN

“.O““.‘“.....l...‘...‘.‘....‘....I.........'.l.'..Q'.0...l...‘..“.O.'..“.l...'“.l.'.l".‘.'.‘...‘..““““

Qlobol routine EXAM_DATA ;

VAX-

USER

’U-‘

27-Mer-1985 15:2 3 : 34
11-Jen-198S 08:1 9:19

—.o

MISCELLANEOQUS SECTIONS
AZTEC GLOBAL ROUTINE

R
.-..-.

M14
l 4.0-579
ZRCFC JZRCFC2.816;1

: FUNCTIONAL DESCRIPTION:
THE FUNCTION OF THIS ROUTINE IS TO EXAMINE THE
FREE MEMORY FOR EXPECTED DATA,

]
.
.
0

IMPLICIT INPUTS:

H_SADD

Bllf_LENGTH

z
'
:

IMPLICIT OUTPUTS:

SIDE EFFECTS:

RETURN STATUS

)

NONE

begin

ocel

PATTERN,
FLAG;

FLAG = ZERO;

TEMP
= _H_SADD;
H_EADD
= .H_SADD

PATTERN
= .TIP;

- 2 «

! INIT ERROR FLAG
! SAVE ADDR. IN TEMP. BUFFER
! END OF FREE HOST MEMORY

(.BUF_LENGTHe2);

! PUT PATTERN FOR COMPARE

incru COUNT from .H_SADD to .H_EADD by 2 do
begin

! EXAMINE CONTENTS OF MEMORY

if .TIP eqlu 1 then PATTERN = ( not

! BASED ON THE VALUE RECEIVED

if .TIP eaqlu 2 then PATTERN =
if

..TEMP nequ .PATTERN

then

_TEMP;

.TEMP);

! IN TIP, SET UP PATTERN FOR
! COMPARISION.

begin

FLAG = TRUE

TIP = .PhTTéRN;

exitloop:;

end;
TEMP =

end;

_TEMP . 2;

: IF ERROR WAS FOUND THEN

! GET ERROR DATA
! FOR TEST MODULE

return RET_STATUS = TRUE;

SEO 0181

(32)

ZRCFR2

MISCELLANEOUS SECTIONS

v03.0

:
i

27-Mer-1985 15:23:34

AZTEC GLOBAL ROUTINE

3469

3an

3470 2

else

3472
3273

end;

2
)

004167

005003

11-Jen-1985 08:19:19

end

return RET_STATUS = FALSE;

000000

VAX-11 Bliss-16 V4.0-579

“92522 87
(32)

! GOOD STATUS

.SBTTL"

EXAM.DATA AZTEC GLOBAL ROUTINE

JSR
CLR

R1,$SAVES
R3

EXAM.DATA:;

USER$1:[AZTEC.CZRCFCIZRCFC2.816;1

;
: FLAG

3412
2435

016767
016700

000000G 0000006
0000006

MOV
MOV

H.SADD, TEMP
BUF .LENGTH, RO

;
;

066700
010067
162767
016700
016702
016701

000000
0000006
000002 0000006
0000006
0000006
0000006

ADD
MOV
SUB
MOV
MOV
MOV

H.SADD,RO
RO,H.EADD
02.H.EADD
11P,R0
H.EADD,R2
H.SADD,R1

: «,PATTERN
;
; +,COUNT

3438
3440

026727

0000006 000001

T1P,01

;

016700

0000006

3443

026727

0000006 000002

24:

016700
027700

0000006
000000G

012703
010067

000001
0000006

062767

000002

006300

000432
001003
005100

001002

001405
000407
062701

020102
101744
006003
103030
112767

012767

005067
005067

000002

0000006

5$:
0000006

cHe

0000006
0000006

0000006

81 words,

; Meximum steck depth per

Routine Bese:

invocation:

S words

COM

BNE

CHP

MOV
CHP

BEQ

ADD

TEMP,RO

;

TEMP,RO
STEMP,RO

; +,PATTERN
: ¢.PATTERN

01,R3
RO,TIP

: * FLAG
: PATTERN,o

3450
3451

;

3455

02, TEMP

02,R1

R1,R2
1%
R3
7%

MOV

OFMT2,P1

02,P.MASK

P2
P3

MOV
MOV
MOV
MOV
MOV

1IP,P4
STEMP,PS
TEMP, P6
01,R0
RO,RET.STATUS

CLR

RET.STATUS

RTS

CLR
RTS

; +,PATTERN

; PATTERN

1IP, 02

CHP
BLOS
ROR
BCC

CLR
CLR

74;

BNE

MOVB

0000006 0000006

005067

;s Routine Size:

as:

6%:
000002

B8R

MOV
MOV

0000006 0000006
0000006 0000006
0000006 0000006
000001
0000006

005000
000207

18:

MOV

016767
017767
016767
012700
010067

000207

ASL

3436
3437

;

: +,COUNT

; COUNT,

3445
.

3447

3449

3440

: FLAG

3458

;

3461

;
:

3463
3464

;

3462

;
:
-

3465
3466
3467
3468

RO
PC

3471

3412

ABSCODE + 12034

ZRCFR2
v03.0
:

3474

3475

MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE
1

)

>
! <BLF/PAGE

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4.,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC2.B16;1

SEOP0183 o

.9.(32)

C15
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2
v03.0

3476

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

SEO 0184
VAX-1 18 li 98-16 V4.0-579
89
USER# 1:( AZTEC. CZRCFC]ZRCFCZ B16;1

(33)

OV AL LU L AL RV AL U LY RO D RO PO MO N 1§ et 1t h o ot s e s s s s e s s s o P o o ot s P o s s s P o s s P s s s s ot

MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTI

27-Mer-1985

11-Jan-1985

:34

:19

VAX-11

USER$

global routine AZTEC_READY =

:.;UNCTIONAL DESCRIPTIONS :

THIS ROUTINE CALLS OTHER ROUTINES TO GET THE AZTEC READY

PERFORMS THE FOLLOWING:

1. DEFINE INITIALIZATION CONSTANTS AND INITIALIZE VARIABLES.
2. DO STEP 1 THROUGH STEP 4 CHECK FOR ANY ERRORS
IN EACH STEP.
3. SET UP COMMUNICATION AREA'S.
4.

SET HOST SETTABLE UNIT CHARACTERISTICS AND OBTAIN THOSE

UNIT CHARACTERISTICS THAT ARE ESSENTIAL FOR PROPER CLASS
DRIVER OPERATION.

S. BRING_A UNIT "UNIT-ONLINE.
THE UNIT IS SPUN-UP, IF NECESSARY,
e:g aggsxgeos ARE LOADED PRIOR TO RETURNING THE ONLINE COMMANDS'S
6. IF TIP CONTAINS TEST NUMBER OF 14 THEN THIS ROUTINE SKIPS
ON_LINE CALL, SO THAT THIS COULD BE DONE IN THE TEST MODULE.
FORMAL PARAMETERS:
-NONE

IMPLICIT INPUTS:

IMPLICIT OUTPUTS:

AS A RESULT OF THIS ROUTINE THE COMMUNICATION AREA WILL

BE INITIALIZED AND UNIT IS SPUN-UP.
COMPLETTION CODES:
SIDE EFFECTS:
NONE

B A
ASK = %0'17';
DATA1<15, 1> = TRUE;
DATA1<14,

1> = 0;

DATA1<11. 3>
= SND_SIZ;
DATA1<8, 3> = REC_SIZ;
DATA1<7,
DATA1<0,

1> = 0;
7> = 0;

DATA2 = RINGBASE;
DATA3 = ZERO;

DATA4 = %o'177403';

CMD_SLOT = o:

RES_SLOT = 0;

cMOD = MD_EXP;
IN_BOUND = 0;
if AZP_INIT ()

SEQ 0185
P

itZRCFC]ZRCFCZ B16;1
Bliss-16_V4,

SET MASK BIT FOR COMPLETE INIT.
SET BIT 15 FOR STEP-1 WRITE

NO DIAGNOSTIC WRAP MODE

SET UP COMMAND RINGS LENGTH
SET RESPONSE RING LENGTH
DISABLE INTERRUPT
LOAD NO VECTOR ADDRESS
LOAD COMMUNICATIONS AREA ADDRESS

HI-ORDER ADDR = ZERO

"LAST FAIL" PACKET RESPONSE BIT SET
CLEAR COMMAND RING SLOT POINTER
CLEAR RESPONSE RING SLOT POINTER
SET EXPRESS BIT FOR READ
SSRHSND MODIFIER.
DO STEP INIT AND CHECK FOR ERROR

- (34)
s

E15
27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE
return RET_STATUS;

! INIT THE COMMUNICATION AREA
! ERROR ?

CMD_REF = .CMD_SLOT;

! SET COMMAND REFERENCE TO 1

then

if SET_CNTLR_CHAR ()

! ISSUE SET CONTROLLER CHAR CMD

=0 RO LRV L L ML ML R RV

if INIT_COM_AREA ()
then
return .RET_STATUS;

return RET_STATUS;

! IF COMMAND FAILED

CMD_REF = .CMD_SLOT;

! SET COMMAND REFERENCE TO 2

if .TIP eqlu 14 then return RET_STATUS = FALSE;

! TEST 14 WILL DO ONLINE COMMAND

! IN THE MAIN LINE OF CODE
if ON_LINE ()
then
return .RET_STATUS;

! ISSUE ON LINE COMMAND

return RET_STATUS = FALSE;

end;

112767

000017

012767

122000 000000G
000000G 000000G
0000006

000000G

.SBTTL
AZTEC.RE:%;E:

MOV
MOV
CLR

177403 000000G
0000006
0000006
100000 000000G
0000006
167256

MOV
CLR
CLR
MOV
CLR
JSR

ROR

BCC
MOV

0000006

170040

000000G 000000G
173074

14:

JSR

ROR

BCC

2%:

RYS
MOV
JSR

ROR

8CC
MOV

0000006
000000G 000000G
000000G 000016

RTS

34:

RTS

MOV
gn:

AZTEC.READY AZTEC GLOBAL ROUTINE
017,8.MASK

9122000, DATAL

ORINGBASE ,DATA2

DATA3

9-375,DATA4

CMD. SLOT

RES. SLOT
#-100000, CMOD
IN.BOUND

PC,AZP.INIT
RO

14
gET.STATUS.RO

PC,INIT.COM.AREA
RO

24
SET.STATUS.RO

CMD.SLOT,CMD.REF

PC,SET.CNTLR.CHAR
RO

SET.STATUS.RO

CMD.SLOT,CMD.REF

I{P.016

SEQ 0186

USER$1:(AZTEC.CZRCFCJZRCFC2.8B16;1

then

VAX-11 Bliss-16 V4,0-579

ZRCFR2
v03.0

P age

(34)

F15
27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2

V03.0

0000006

174224

CLR
CLR

000210

S$:

000207

: Routine Size:
69 words,
Routine Base:
: Meximum steck depth per invocation:
1 word

3999

JSR

ROR

8CC
MOV

0000006
0000006

RTS

RTS
CLR

CLR

RTS
ABSCODE -

VAX-1 18 1 iss-16 V4,0-579
USER$ 1:( 2 ZTEC.CZRCF

CIZRCFC2.816;1

SEQ 0187
age

(34)

RET.STATUS
RO
PC

PC,ON.LINE

S4
RET.STATUS,RO
PC
RET.STATUS
RO
PC
12276

3553
3555
3557
3516
3477

ZRCFR2

MISCELLANEOUS SECTIONS

v03.0

27-Mar-1985 15:23:34

AZTEC GLOBAL ROUTINE

11-Jan-1985 08:19:19

?lobol routine DO_RETRIES : novalue =

3
;.
3
3

3562
3563
3564
3565

1
1
1
2

‘ COME HERE ON AN ERROR AND KEEP TRACK OF RETRIES.
' IF NECESSARY DROP UNIT UNDER TEST.

:
:

gggg

3568

NUfl

_RETRIES =

.NUM_RETRIES +

3569
3570
3571
3572
3573
3574
3575

2
3
3
3
2
3
3

:
:

3577
3578

3
3

if not .SWP_CONTINUE
then

4
4
3
3

DODU (.LOG_UNIT);
DOCLN;
end;

3576

3579

:
:
:
:

3580
3581
3582
3583

3
:

3585
3586

3584

000000

begin
PRINTB (FMT$A,
end

end;

026767
101013
016746

000000G 000000G

032767
001004
016700
104451
104444
000207

; Routine Size:

.SBTTL
DO.RETRIES::
INC
CMP
BHI

000000G

MOV

000000G

MOV

000006

TRAP
ADD
RTS
CLR

000002

MOV
MOV

000000G
000001 000000G

14:

000000G
2%:

28 words,

Meximum stack depth per

;3587

.NUM_RETRIES);

end;

000000G

104414
062706
000207
005067

begin
RETRIES = FALSE;

005267

012746
010600

(35)

012746

;

else

2
1

- 0188 93

if (.NUM_RETRIES lequ .SWP_RETRIES)

then

;.
:
:
3
:
:
H
:

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFCJZRCFC2.B16;1

Routine Base:

invocation:

S words

BIT
BNE
MOV
TRAP
TRAP
RTS

DO.RETRIES AZTEC GLOBAL ROUTINE
NUM.RETRIES
NUM.RETRIES,SWP .RETRIES
14

:
H

3566
3568

NUM,.RETRIES, -(SP)

3571

0, - (SP)
SP,RO

: SP,#

OFMTSA, -(SP)

14
06,SP
PC
RETRIES

#1,SWP.CONTINUE
24
LOG.UNIT,RO
51
44
PC

ABS$CODE + 12510

:
:
H
:

3570
3568
3575
3577

3580

3560

H15
ZRCFR2

s s s i
s s s s it P P

3588
3589
3590
3591

O LV LTV LRV RN PO N N NI N 0t et et et ot ot s Pt Pt s et et s s s s o s s P o s s s s s s ot P

-..o.n.-.t.o.l.!lo.o.l..‘l.l.O.‘.a.o...'.l.!-o...l.l.lot.l.olo.'.ltc.l.....o.o.cn..“.t..““fl“fi“uu.ofl““

v03.0

MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

27-Mar-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Bliss-16 V4.0-579
USER$1:[AZTEC.CZRCFC)ZRCFC2.816;1

global routine DECODE : novelue =

!Decodes failing SA reg datea

Yoo

! Functional Description
:
to the implimentation of the DUP
and UQ Port protocol there
are
two levels at which an issued command to e port/controller
can fail and they are:

1. The issued command can time out.
2. An

error

cen 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
aeny errors but the response packet status
field could have an error or

status other than success posted.

This
routine
will
then be called when the return from a queued
command comes back with an error code or non successfull status

code.
Ihio {s
is equal to
1.
Formal Parameters

definition

when bit 0 in the returned status

none

Implicit In?uts :

RET_STATUS:

Stored

code or

in this global storage

command.

non-successful

is the returned error

status

code from a queued

Implicit Outputs :
none

Completion Codes :
none

Side Effects :
after execution of
is

initialized

.
this

.
routine

the

RC25 controller

aborting any DM code running in the controller.

begin
le

! Use the contents of "RET_STATUS" to select what
! type error or non-successful status code is to
! be processed.

if .RET_STATUS eqlu ONE then return AET_STATUS = ZERO;
selectoneu .RET_STATUS of
?et

g "Port/Controller time out” error code

! NO ACTION IF RET_STATUS IS ONE

SEOP0189 -

’9.(36)

I15
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

27-Mer-1985 15:23:34
11-Jen-1985 08:19:19

VAX-11 Blies-16 V4.,0-579
USER$1:(AZTEC.CZRCFCJZRCFC2.B816;1

! Port/Controller timed out after the specified
! time out interval.

VAL PO
N NN U L AL NV U LI
BEBUUUUULINNLNIVILIVILIVIL
VY I B B B CIIGIED BI85 5 G LG8 L I

.-M-....l.!““.O.‘.Q.0.0.I.l“.o.l.-.l...o.l.t...0.o.aQ'.-Qo.o.o...o...u“.-«.l.l“.l“u..““.flufl.‘.‘ufl“

ZRCFR2
v03.0

(CT0_CODE) :
begin

PR?NTF (.EMSG_STRUCT [MSG2));

!Code equals %o'11’

end;

“Port fatal error” code

The error bit

in the SA Register was set when

examined.

This error indicates a Port fatal error code.

[PFESEOQE] :

!Code equals %o'21’

TERP = .RC25_DATA [RCSA, RCSA_ERC]:
n

PRINTB (FMT13, .TEMP);
if

.TEMP

éhcn
else

! PRINT RCSA ERROR CODE

gequ 200

begin
PRgNTF (.RC_STRUCTURE [.TEMP - 200));
en

!print RCSA error code

begin

PR?NTF (.PFE_STRUCT [.TEMP]);

end;

if AZTEC_READY ()
then

! Init and brin
! Aztec ready i

begin

DOBU (.LOG_UNIT);
DOCLN;

end;

!
]

return RET_SIATUS = FALSE;
end;

! possible

! otherwise, drop unit
! and clean up.

! Return to caller

"Return status error” code

! This indicates that o non-successful return status
! code was returned
'

from an issued command.

[RSE_CODE] :*°

TeRe. .er_sTATUS<O, 5>,

!Code equals %o'31’

! SAVE MAJOE ERROR CODE

! Look at ugport message type to determine
if this is a response to
! one of the commands given or other unsolicited log packet.

i: .REC_ENVELOPE [.RES_SLOT, MSG_TYPE] eqlu ZERO
en

begin

eRgNTF (.EMSG_STRUCT [MSGO]);

SEOPOI9O 95
age

(36)

J15

A%?EC GLOBAL ROUTINE

MISCELLANEOUS SECTIONS

27-Mar-1985 15:23:34

11-Jen-1985 08:19:19

VAX-11 Bliss-16_V4.0-579

' of response

{f.REC_ENVELOPE [.RES_SLOT, CONN_ID) eqlu 2
hen

! CONN_ID = DUP

pa?nte (.SDUP_STRUCT [.ER_STATUS));

else

end

BaliTe (.sMsCP STRUCT [.7€M));

! TRY MODULE CALL OUT BASED ON ERROR CODE FROH THE END PACKET.
selectoneu .TEMP of
set

3 ke ¢ o si00

be o areests
:

[10] :

P2 = %b'0010";

:
(11)

P2 = %b'1100'
;

(otherwise) :
P

tes;

2 = ZERO;

! MAJOR ERROR CODE 10

i MEANS DRIVE CARD AND MECHANICS

' MAJOR ERROR CODE 11

i MEANS ADAPTER CARD AND CONTROLLER
' MAJOR ERROR CODE 12

| MEANS CONTROLLER CARD
' MAJOR ERROR CODE 13
! MEANS DRIVE CARD AND MECHANICS

! NO SELECTION

if .P2 nequ ZERDO then PRTS$FRU_CALLOUT (.P2);
end;

else

PRINTB (FMT14,
end

.ER_STATUS);

begin

PR?NTB (FMT1S5, .ER_STATUS);

end;
13

ALSO PRINT ERROR CODE

! GIVE LOG PACKET ERROR

end;

"SUPERVISOR CALL" error code

[SEX_ CODE]

PR?NTF (.EMSG_STRUCT [MSG1));
end;

'Code equals %o0'601'

USER$1:[AZTEC.CZRCFCIZRCFC2.B16;1

! Look at UQPORT connection ID field to determine the type

& B AB S
PNDUWWLNRLLLLWWE
WL S & HVUVUVUTIVTVIVTVIVTVIVIVTVIVTVTVTVTVTVVIIVIIVTIVIVIVIV BTV

...-u.o“.o.‘.l..lt.o.l...l.!-0.o...l.l.l...'.0.0.......o.o.’...0.-.0.0.‘.c.!fl...o.."fluot.'“‘o”““u“u.o

ZRCFR2
v03.0

! CALL OUT MODULES

SEOp0191 %

°9‘(36)

IK15
MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE
=N
WWRN DO

-1J

wWw
~N

G0 S0

G0 G0 S0

G0 S

Ge S

V0 G0

S° G

¢ G

ZRCFR2
v03.0

27-Mer-1985 15:23:34
11-Jen-198S 08:19:19

' This is here to trap any unknown
' sent to this routine.

(36)

return status codes

[othcrunoo]

PRINTF ¢ .EMSG_STRUCT [MSG31)s

tes;

!Code equals non of the asbove

end;

] Return receive slot to the port and next slot
:

if you have to continue.

RECEIVE _RING [ RES SLCT, OWN_BIT) = ONE;

GET_RES_SLOT &
RET_STATUS = ZE 0;

! RETURN RECEIVE SLOT TO PORT

! GET NEXT RECEIVE SLOT

return;

end;

DECODE: :

0000006
000662
0000006
000011

18:

0000046
000001

SBTTL

DECOOE AZTEC GLOBAL ROUTINE

gng

P)
?ef STATUS,
01

CLR
JMP
MOV
CMP
BNE
MOV
MOV

RET.STATUS
194
RET.STATUS,R1
R1,011
24
EMSG.STRUCT+4,-(SP)
01,-(SP)

TRAP

MOV

SP,.RO

3588
3638

:
H

3640
3649

3651

: SP,»

CMP

(SP)e+,(SP)e.

ga:

2%.021

MOV
BIC
MOV
MOV

RC25.DATA.2, TEMP
9174000, TEMP
TEMP, -(SP)
OFMT13,-(SP)

000000G 000310

MOV
TRAP
grg

SP,RO
14
;gflP.OSIO

}

0000006

221‘.'

’gflP.RO

;

1771606

MOV

RC.STRUCTURE -620(R0),(SP)

MOV

SP,RO

000574
000021

2%:

000002G 0000006
174000 000000G
0000006
0000036

000002

000001

016700
006300

SEQ 0192

0000006 000001

154
00160

VAX-11 8 li188-16 V4,0-579
USER$1: ( A ZTEC. CZRCFC)ZRCFCZ B16;1

000000G

JHP

MOV

TRAP

BR
MOV
ASL

184

02,-(SP)

#1,-(SP)

44
TEMP,RO

3650

3660

;

3662

3663

H
H

SP,+
3665

SP,»

3665

3672

L15
MISCELLANEQUS SECTIONS
AZTEC GLOBAL ROUTINE

ZRCFR2
V03.0
000162
000166
000172

016016

012746
010600
104417

27-Mar-1985 15:23:34
11-Jen-198S 08:19:19
PFE.STRUCT(RO),(SP)
#1,-(SP)

0000006
000001

SP RO

177274

4%:

0000006
S$:

0000006
000010
000452

000031

64:

000000G 0000006

177740

0000006

000077
000360

0000026

0000006

VAX-11 B liss- 16 _V4.0-579
AZTEC. CZRCFCIZRCFC2.516;1
USER#$1:([AZ

SEO 0193

(36)

; SP,#

PC AZTEC.READY

3675

S‘
LOG.UNIT,RO
51

3678

RET.STATUS
010,5P

3682

194

3661
3691

ER.STATUS, TEMP

3693

R1,031
164

0177740, TEMP
ges.SLOT,RO

3697

#77,R0

:3?0+REC.ENVELOPE+2(RO)

0000006
00C001

000077
000003G 000002

EMSG.STRUCT, -(SP)

3700

SP,.RO
17
SES.SLOT.RO

3706

077,RO

REC ENVELOPE+3(R0O), 02

ER STATUS,RO

3709

SDUP STRUCT(RO) (SP)

0000006

74:

000001

000011

: SP..

S:.RO

H Spo.

014,P2

000000G
8s:

3706
3Nn3

0
SMSCP.STRUCT(RO),(SP)

1
TEMP,RO
RO, 010
e

0000006
000010
000014

SP.RO
14
134
;EHP.RO

124

RO,011
94

3716
3719
3720
3716
3723

M15

ZRCFR2
v03.0

MISCELLANEOUS SECTIONS
AZTEC GLOBAL ROUTINE

000446
000454
000456
000462
000464

012767
000420
020027
001004
012767

000003

000474
000500
000502

020027
001004
012767

000013

000512
000516
000522
000524
000530

005067
005767
001404
016716
004767

000472 00041}

000510 000402

0000006

000012

000002

000014

27-Mer-1985 15:23:34
11-Jon-1985 08:19:19

94:

0000006
108:
0000006

000000G
0000006

118:
12

0000006
165230
0000006

138:

MOV
BR
CMe
BNE
MOV

03,P2
124
RO, 012
124
02,P2

Cwe
BNE
MOV

3728

RO,013
114
014,P2

;

3731

;

3732

CLR
157
BEQ
MOV
JSR
MOV

P2
P2
134
P2,(SP)
PC.PRT$FRU. CALLOUT
ER.STATUS, (SP)

;
;

3736
3739

;

3743

MOV

02, - (sé)

B8R

MOV

BR
MOV
MOV

MOV

TRAP

; Routine Size:

228 words,

Routine Bese:

; Meximum steck depth per invocetion:
3

}779

B8 words

oFMT14, -($P)

;

3716
3716

SP,R

; SP,e

(SP)e,(SP)e

;

3699

15%
ER.STATUS, -(SP)
OFMT1S, -(SP)

:
;

3697
3747

oz. (sé)

;

3692

g:z

?1, 9601

;

3755

MOV

EMSG. STRUCT 2.-(SP)

B8R

184

01,-(5P)
17

CMP

(SP)+,(SP).

MOV

EMSG. sraucv.s. (SP)

B8R

TRAP
cHP

MOV

3640

;

3757

3756

;

3766

(sp)..(so).

3765

:
;

3775
3776
3588

RES.SLOT,RO

RO
RO
RECEIVE.RING, no

JSR
CLR
MOV

PC,GET. ées SLOT
RET.STATUS
(SP)+,R1

RTS

;

184

ASL
ASL
ADD

8IS

19:

124

;

06, 5P

TRAP

188:

124

ADD

MOV

178:

99
(36)

;

B8R

[, 2

168

Page

3724
3716
3727

RAP

158

SEQ 0194

;
;
;

MOV

148:

VAX-11 Bliss-16 V4.0-S
USER#1:[AZTEC. CZRCFC]ZRCFCZ 816;1

9100000, 2(R0)

ABSCODE « 12600

;

3640

3774

N15
ZRCFR2

MISCELLANEQUS SECTIONS

v03s.0
3
;.
:

27-Mar-1985 15:23:34

AZTEC GLOBAL ROUTINE

3780
3781
382

1
1
O

11-Jen-198S 08:19:19

eludom

0TS external references

.GLOBL
.GLOBL

PSECT

Psect Neme

Words

AB$CODE

2980

Librery

YRR bl

$SAVES, $SAVES,
BL$MOD, BL$MUL

$SAVE2, BL$SHF

SUMMARY

File

USER$1:(AZ
TEC czacrc12acrc2 816;1

end

T
:

VAX-11 Blies-16 V4,0-579

Attributes
RO,

LCL,

REL,

CON

Stetistics

: USER$1:[AZTEC.CZRCFC)AZTECO.L16;2

S
.S Symbols -------Totel
Loodcd Percent

485

209

COMMAND QUALIFIERS
BLISS/PDP11/LIST ZRCFC2.B16/7EN:NOEIS
Size:
3226 code + 99 deta words
Run Time
03:38.2
Elloocd T.-c
03:48.4
Lines/CPU Min1040
Lexemes/CP!)-Min:
9145
Memory Used:
299 pages
Compilation Complete

Pages
Mapped

Processing
Time

00:00.2

SEQ

090325100
(36)

Bl6
ZRCFR3
:

0001

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18
0

MODULE ZRCFB3 (

VAX-11 Bliss-16
V4,0-579
1

SEQ 0196

USER$1:( A ZTEC.CZRCFCJIZRCFC3.816:4

Page

(1)

ZRCFR3

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mar-1985 13:28:18

0002

0004

:
3
:
3

0006
0007
0008
0009

88}2

O
1
1
1
i

ssbtt]l

88}%

librery 'AZTECO';

! AZTEC LIBRARY

ggég

require

3
:

1504
1505

1
1

structure
RC2S (0, P, S, E) =

H
:
3
3

1507
1508
1509
1510

2
2
2
2

1513
1514

2
2

0003

BRI
s

:
3

3
:
:

STITLE 'CZRCFCO RC2S FR END TEST'
e ’V03 o',
OPTLEVEL ©

0005 O

1506 2

1319
1516
12917

1
1
3

VAX-11 ?ll
s-16 V4,0-57
USER$1:([AZTEC. ZRCFC)ZRCFC3 816:4

ADDRE
smsnboe (RELATIVE)
) =

BEGIN
_KEY>
1<BLF/LOWERCASE
!

'TEST SECTION'

'BLSMAC.REQ’';

! DEFINE ACCESS ALGORITHM TO
! ALLOW FIELD REFERANCES T0

bcgnn

! THE RC2S

ocal
RC_REG;

RC_REG = .(RC25 + %upvels0)<0, sbpvel, O
<

RC_REG
end

<P, S, E>;

1<BLF/PAGE>

DIAGNOSTIC SUPERVISOR LIBRARY

val*l)<0,

val,

SEQ 0197
Page

2
(2)

D16
ZRCFB3
v03.0

CZRCFCO RC25 FR END TEST
TEST SECTION

:
:
3
3
3

1
1
1
1
|

;1525

1526

s - 1597
;1528
:
1529
:
1530
;1531

3
1
1
1
1

;

1535

1539

;.
1542
;1543

1
1

psect

plit = $plit$(

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

global),

globol = $GLOBS(nowrite, noexecute, global, concatenate),

code = AC$CODE;
own

CMDBF1 : block
ENDBF1
: block

16. uord] field (PACKET_FIELDS),
word f..ld (PACKET_FIELDS)

RING_B : vector [3 b

! COMMAND BUFFER 1
! END MESSAGE BUFFER 1

COMMAND BUFFER=16 WORDS

DATA_PAT]1 : vector (3, word] preset (
0)=
wo'llllll’,
1)=
wo'044444"

s UITH 16 WORDS BELOW FOR
! END MESSAGES.
! DATA PATTERN 1
! DATA PATTERN 1

;1532 1
:
1533 1
:
1534 1

2]= %0'022222')
DATA_PAT2 : vector [3 uordj preset (
0]=
wo'177400',

:
s
:

1536 1
1537 1
1538 1

2] %0'000377')
DATA_PAT3 : vcctor (3 uord‘ preset (
0)=
158555 ,

! DATA PATTERN 2
' DATA PATTERN 3

:
:

1540 1
1541 1

2)= %0'066666' )
DATA_PAT4 : vector (3, nordj preset (

! DATA PATTERN 3

1)=

#0'007760'

1)=

Io 133333'

0]=
1)=

%0'000377',
%0'170017°

! DATA PATTERN 2

! DATA PATTERN 3
! DATA PATTERN 4
! DATA PATTERN 4

;1545
:
%229

1548 1
1
i

SEND_PKT : block (4, word] field (MSC_FIELDS),
PATTERN_ADDR: ref vector (3, word);

i?:g

'HOST_BUF : vector [260, word);

3
;
;

1550
1551
iggg

1
1
i

external
!
! HARDWARE P TABLE DATA IS STORED HERE

1554

RT_TABLE: ref block [WORD1_IN_ RT TAB. word) field (RT_FIELDS),

;

1556

RC25_DATA : block [2, word) r.eld (RC_REG), ! ncsn DATA

1555

2]=

! DATA PATTERN 1
! DATA PATTERN 2

%0'177400'),

1557

LOG_UN

;
:

1560
1561

1
1

PASSO : word,
NUM_ RETRIES: word volatile,

:
;

1558

1559 1

1562
1563

1
1

! 4 WORD PACKET FOR SEND COMMAND
! SELECTED PATTERN ADDRESS

UNIT : uord.

! READ REGISTER

ALGORITHM

UNIT UNDER TEST

: word,

RETNIES : word,

SWP_1RACE
: uord voletile,
SWP_RETRIES: word volstile,

! FLAG FOR FIRST PASS

;
:
;.

1564

I_AM_NEX : word volatile,

;
1568
;.
1569
;
1570
;1571
s

RECEIVE_RING: ref blockvector [REC_ALLOCATE, 2, word] field (DSC FIELD),
SEND_RING : ref blockvector [SND_ALLOCATE, 2. word) field (DSC_FIELD),
REC_ENVELOPE: blockvector [REC_ALLOCATE, RB_SIZE + 2, word) field (ENV_FIELD),
SND_ENVELOPE: blockvector [SND_ALLOCATE, SB_SIZE + 2, word] field (ENV_FIELD).

1572

1
1
1
1
i

RCV_DATA'BUF : vector
RINGBASE ,

;

1565 1
1566 1
1567 1

! DATA PATTERN 4

! HOST BUFFER AREA

RC3S_ADDR: ref RC2S field (RC_REG),

’

1573

clNcEL TIMER : word volatile,
! INTERRUPT FLAG
AREA: blockvector [REC ALLOCATE + SND_ ALLOCATE « HDR_SIZ, 2, word),
HE
D AREA : ref block [4, word) field (HDRFIELD),
XMT_DATA_BUF

: vector

! INTERRUPT FLAG

(256, word],

[256, word],

! RING BASE ADDRESS

SEQ 0198

VAX-11 Blies-16 V4,0-579
USER$1:[AZTEC.CZRCFCJZRCFC3.816;4

Page

(3)

El6
CFCO RC2S FR END TEST
SECTION

ZRCFR3

v03.0

8388

: word voleatile,
CMD_SLOT
RES_SLOT
: word volatile
09: vector
DM_10 : vector [58, word
_11 : vector

RECEIVE RING SLOT

DM PROGRAM 09
OM PROGRAM 10
DM PROGRAM 11
DM PROGRAM 12
DM PROGRAM 13
DM PROGRAM 19
DM PROGRAM 21
DM PROGRAM 26
DM_PROGRAM 27
BYTE COUNT BUFFER
ERROR MESSAGE ADDRES

(100, word

DM_12 : vector [202, word
“13 : vector (105, word
~19 : vector [156, word
DM_21 : vector [213, word
DM_26 : vector (413, word
DM 27: vector (307, word
BYTE_COUNT : word volatile.
MSGADR : word volatile,

MEM_SIZ
: word,

FREE MEMORY SIZE
PRINT MASK FOR NUMBER OF AURGMENTS

P_MASK
: byte volatile,

B_MASK : bytc volatile,

INIT MASK FOR WHAT STEP TO DO
DATA FOR STEP 1 WRITE
DATA FOR STEP 2 WRITE
DATA FOR STEP 3 WRITE
DATA FOR STEP 4 WRITE
ENDING LOGICAL BLOCK @

DATAL: word,

DATA2 : word volatile,
DATA3 : word volatile,
DATA4 : word volatile,
END_LBN: word volatile,

SWP_ CONTINUE: word voletile,

SWP_MANUAL: word volatile,

SOFTWARE P-TAB MANUAL SWITCH
MENUAL INTERVENTION SWITCH1
MENUAL INTERVENTION SWITCH2
RETURN UNIT STATUS BUFFER

MAND_SW : word volatile,

SWITCH2: word voletile,

RET UNIT FLAG word volatile,

P1 : word volotule.

FORMAT ADDRESS FOR ERROR REPOT
FAILING
F
FAILING REGISTER

P2 : word volatile,
P3 : word volatile,

P4
PS
P6

SEQ 0199
a4
VAX-11 ?1:
s-16
Page
USER$1:[AZTEC. CZRCFC]ZRCFCS B16:4
(3)

BUFFER DESCRIPTOR AREA
COMMAND REFERENCE BUFFER
COMMAND RING SLOT

CMD_REF : word volatile,

: word volatile,
: word volatile,
: word volatile,

DATA FOR ERROR REPORT
DATA FOR ERROR REPORT
DATA FOR ERROR REPORT
DATA FOR LBN
DATA FOR STARTING LBN
DATA FOR ENDING LBN
LBN INCREMENTING SIZE
OFFSET TO LBN TO GET TO
BOTTOM_SURFACE
LBN SIZE TO GET TO NEXT TRACK
LOC. TO RETURN CLOCK ADDR.
STORE CLOCK STARTING ADDR.

LBN : word volatile,
LBN_ST : word volatile,
: word volatile,
: word volatile,
H Nord.

SIZ_LBN : word,

s e s o

o ot (ot ot e o ot s s it s s o e o B

s s o

s s s s s e s o o o P

s e e s s s s s o o

BUF _DESCRPTR
: word voleatile,

THE CLOCK STARTING VALUE

THE & OF CLOCK INT. BUFFER
THE NUMBERS OF SECONDS BUFFER
THE NUMBERS OF MINUTES BUFFER

COMMAND MODIFIER

TEMP,

FREE_MEM_ADDR,

S esmemoimomom

0 B Bt e et et et ot et ot e o

1575
1576
1577

4 7-Mar-198S 15:27:28
2 7-Mar-1985 13:28:18

STARTING TRACK BUF

ENDING TRACK BUF
TOP_SURFACE
BUFFER LENGTH
TEMF. BUFFER

STARVING FREE MEMORY ADDR.

F16
ZRCFR3
v03.0

;1632

CZRCFCO RC25 FR END TEST
TEST SECTION

MEM_SIZE,

H_EADD

1633

i
i

1635 1
1636 1

1634

;1637

:
1638
;1639
:

1640

1
1

H_SADD,

INI_MSG
P_VECTOR,

P IP_ADDRESS,

RET STATUS,
ADAPTO,
TIME

;1681

MSG_1,

;1643
;
1644

1
1

MSG_7.
MSG_8.

:
1646
;1647
;:
1648
:
1649
:
1650
:
1651
;1652

1
1
1
1
1
1
1

MSG_10,
MSG_11.
MSG_13.
MSG_14,
QsTia,
QST1S,
END_MSG,

;1654
1655
:
1656
:
1657
:

1
1
1
1

FMT2.
FMT3,
FMT4,
FMTS.

;1642

1653

;1658
;1659
1660
:
:
1661
;1662
1663
:
;1668
:
1665
:
1666
;1667
;1668
;1669
:
1670
1671
:
a9
:
1673
:
1674
:
1675
;:
1676
:
1677
;
1678
;1679
:
1680

:
1681
;1682
:
1683
;1684
;:
1685
;1686
;1687
;1688

1
1
1
1
1
1
1
1
1
1
1
1
1
1
3
1
1
1
1
1
1
1
1

1
1
1
1
1
1
1
1

MSG_2.

FMTI,

FMT6.
FMT?
FMT7A,
FMT8,
FMTY.
FMT10,
FMT11.
FMT12.
FMT16.
FMT17.
FMT18.
FMT19,
FMT20.
FRU,
FMT$A,
DBM7,
DBM8,
DBM9.
DBM10,
DBM11.
DBM12,
13,
DBM14.

DBM15,
DBM16.,
DBM17.
DBM18.
DBM19.
DBM20.,
DBM21
.
DBM22,

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579
USER$1:[AZTEC.CZRCFC)ZRCFC3.816:4

FREE MEMORY SIZE

FREE HOST MEMORY START AD.

FREE HOST MEMORY END AD.
INIT ERROR MESSAGE
VECTOR BUFFER
RC25 ADDRESS
COMMAND STATUS BUFFER
ADAPTOR FRU MESSAGE
PLIT LOCATION TO STORE DATA
ERROR MESSAGE 1 IN MOD 1
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
ERROR MESSAGE IN TEST
MESSAGE
MESSAGE
ERROR MESSAGE IN TEST

FORMATTED MESSAGE
FROMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FROMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
FORMATTED MESSAGE
VER:C

FRU = MESSAGE

TEST HEADER MESSAGES

SEG_0200
P age

(3)

Gl6
CZRCFCO RC25 FR END TEST

;
:
:
B
:
H
i
i

B
s
‘
:
H

:
$

0
H
$
H
:
H
:
5
H

:
5

0
B
3
:
H

s s et i o

b
K

5
‘
.

H
H

:
3

H
H

H
H
H

3
H
H

B et e et Bt e e et et et et s e o ot ot B

H
H

MSG_PRO_TIME,
MSG_SK_TIME,
MES_SKD_TIME,
MG_SKF_TIME,

HSG-ROT-TIHE.
MSG_COM_WPT,
SK_FOR_ERR,
SK_REV_ERR.
SK_RAN_ERR,

SK"TOG_ERR,

MSG_WRITE ERR,
MSG_GUS_ERR,
AVAIL _ERR,

MSG_SEEK_ ERR,

AZT_READY_ERR,

EXE_SUP_ERR,
SND “DATA_ERR,

RE_DATA ERR,

BUFF _ERR,
DMC_ERR,
BRERR,
TIP;

!TEST IN PROGRESS

external routine
NXMI
: novalue,
AZT INIT
AZP INIT,

FIND_CLOCK : novelue,
CLOCK INIT : novalue,

RC2S$ERR_RPT : novalue,
INIT_COM_AREA,

REC_STATUS,
EX_SUP_PRG,
RANDOM_NUM,

SEND_DATA,

SET_CNTLR CHAR,

ot s s s s

1689
1690
1691

TEST SECTION

s ot s s s e s s s ot o s i s et s s e e s i i o s s s s s P

i
b

27-Mar-1985 1 2 28
27-Mer-1985 1
win

ZRCFR3
v03.0

SEQ 0201
8-16
579
6
Page
EC CZRCFC]ZRCFCS B16:4
(3)

H16
CZRCFCO RC25S FR END TEST

ZRCFR3
V03.0
s s e
s s s o Pt
= Bt bt et

1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757

TEST SECTION

27-Mar-1985 15:27:28
27-Mar-1985 13:28:18

VAX-11 Blies-16 V4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC3.816;:4

AVAILABLE,
READ_CMD,
READ_FILL_CHO,

ON_LINE

GET_UNIT_STATUS,

GET_CMD_3LOT,
DECODE

EXAM_DATA,

AZTEC READY,
DO_RETRIES : novalue;
1<BLF/PAGE>

! EXAMINE THE FREE MEMORY DATA
! GET AZTEC READY

SEQ 0202
p

oge

(3)

116
TEST SECTION

1766
1767

VIVTNTGIVTVIVION
VOV OV NN NN SN NSN NNV
OOV O I~
O 4OV OO O U UTUT U G G G G G G G G G G G (G o (o (0 (o O (o e

v03.0

1758
1759
1760
1761
1762
1763
1764
176S

27-Mar-1985 15 127:28

CZRCFCO RC2S FR END TEST

ZRCFB3

27-Mer-1985 13; 28:18

VAX-11 B lis
579
USER$1: ( AZT c CZRCFC]ZRCFC3 B16;4

BGNTST;
Yoo

TEST 1: REGISTER EXISTENCE TEST

' DESCRIPTION:

THIS TEST WILL FIRST CHECK FOR THE EXISTENCE OF THE ADDRESS OF THE IP

AND SA REGISTERS FOR THE DEVICE UNDER TEST,

IF _THESE MEMORY ADDRESSES ARE NON-EXISTENT, THE ERROR WILL BE

REPORTED.

IF THE OPERATOR HAES§PECIFIED LOOP ON ERROR, LOOPING WILL BE FROM THE
BEGINNING OF SuB
T
local
DUMMY;
if .SWP_TRACE then PRINTF (DBM7);

TEST 1

BGNSUB

NUM_RETRIES = ZERO;

CLEAR RETRY COUNTER

while (.NUM_RETRIES lequ .SWP_RETRIES) do
be

flnNEX = FALSE;

sETvEc (4, NXMI, PRIO7);
if .(.RT_TABLE [RT_IP_ADDRESS]
then

CLEAR OUT NEX FLAG
SET UP FOR AN NEX TRAP
+ 2)

868&? = 1;
end;

READ THE SA REGISTER
THIS IS SO THAT IF THERE

IS AN NEX THERE WILL BE

A SINGLE OPPERAND INST.

SO THAT IT WILL TRAP

CLRVEC (4);

CORRECTLY.

if .I_AM_NEX eqlu ALL_ONES
then

SEE IF WE GOT AN NEX

”‘fl
ASK = 1;

ADDRESS NOT THERE

PI = FMT);

P2 = ADAPT;
P3 =

(.RC25_ADDR) + 2;

ERRDF (1, M3G_1, Rczssenn _RPT);

CKLOOP;
DO_RETRIES ();

PRINT ERROR MESSAGE

end;

if (.NUM_RETRIES eqlu ZERO) then exitloop;
end;

NUM_RETRIES = ZERO;

ENDSUB;

BGNSUB;
while (.NUM_RETRIES lequ .SWP_RETRIES) do

CLEAR RETRY COUNTER

SEQ 0203

Page

8
(4)

J16
CZRCFCO RC25 FR END TEST

ZRCFR3

TEST SECTION

RnNEX = FALSE;

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFCJZRCFC3.816;:4

sETvEc (4, NXMI, PRIO7);

! CLEAR TRAP FLAG
! SET UP TRAP VECTOR IF NEX

if .(.RT_TABLE [RT_IP_ADDRESS))
thcnb. 3

! READ IP REGISTER

DUaHY = 1;
in

OOV VIVIVIVIONONON N NN NN NINN NN
WOV

TM
W
w

end;

[

B0 BE G0 G0 G0 G S0 GE G0 G TP G G GE G6 T

B0 Se G0 G

6 Ge S8 G

S we

ddO OOV
OV O

vV03.0

B S5 S5 W0 90 B0 W0 G0 G0 G0 S

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

CLRVEC (4);

! CLEAR THE VRCTOR

if .I_AM_NEX eqlu ALL _ONES
then

! CHECK FOR TRAPS

ASK = 1;
b‘fl

= FMT1

P2 - ADAPT;

P4 =

.RC2S ADDR;

ERRDF (2, ASG_2. RC2S$ERR_RPT):

50PoTRIES OO

end:;

if (.NUM_RETRIES eqlu ZERO) then exitloop;
end;

. I_AM_NEX eqlu ALL_ONES

! IF REGISTERS ARE NON-EXISTENT

DOBU ( LOG_UNIT);

! THEN DROP THE UNIT FROM TESTING

then

cnd.

ENDSUB;
ENDTST;

11 LE
.IDENT

111111
044444
022222

177400

007760
000377

155555

! PRINT OUT ERRO MESSAGE

CKL

.PSECT
CMDBF1: .BLKW
ENDBF1: .BLKW
RING.B: .BLKW
DATA. PATI
HORD

.HORD
.WORD
DATA.PATZ:
.WORD
. WORD
DATA.PAT3:
.WORD

ZRCFB3 CZRCFCO RC2S FR END TEST

/V03.0/

$OWNS$,

20
20

-66667

44444

22222

-400
7760

377

-22223

SEQ 0204
Page

(4)

K16
CZRCFCO RC2S FR END TEST

ZRCFB3
vV03.0
000216
000220
000222

000224
000226

000230
000240

27-Mar-1985 15:27:28
27-Mar-1985 13:28:18

TEST SECTION

133333

066666
000377

DATA.PAT4

170017
177400

WORD

-44445
66666

WORD

377

.WORD

SEND.PKT:

WORD
WORD

-7761

-400

BLKW

PATTERN.ADOR:

VAX-11 Bliss-16 V4.0-579
;R
USER$1:(AZTEC.CZRCFCJZRCFC3.B16;4

RT.TABLE,

RC25.ADDR,

RC25.DATA

I.AM.NEX,

CANCEL.TIMER,

UNIT, LOG.UNIT, RETRIES, PASSO
NUM.RETRIES, SWP.TRACE, SWP.RETRIES
COM.AREA

HEAD.AREA, RECEIVE.RING, SEND.RING
REC.ENVELOPE, SND.ENVELOPE, XMT.DATA.BUF
RCV.DATA.BUF, RINGBASE, BUF .DESCRPTR
CMD.REF,

CMD.SLOT, RES.SLOT. DM.09

DM.10, OM.11, OM.i2, DM.13, DM.19
DM.21, DM.26, DM.27, BYTE.COUNT
MSGADR, MEM.SIZ,

P.MASK,

B.MASK

DATAL, DATA2, DATAS, DATA4. END.LBN
SWP.CONTINUE. SWP.MANUAL, MANU.SW
SWITCH2, RET.UNIT.FLAG, P1, P2
P3, P4, PS,

P6, LBN, LBN.ST, LBN.ED

LBN.SZ, OFFSET, SIZ.LBN, CLK.ADR
CLK.CSR, CLK.START, CLK.HERTZ
TICKS, SECONDS,

MINUTES,

CMOD

IN.BOUND, OUT.BOUND, SWP.START

SWP.END, SWP,.TOP, BUF .LENGTH, TEMP

FREE.MEM.ADDR, MEM.SIZE, H.SADD
H.EADD, INI.M$G, P.VECTOR, P.IP.ADDRESS
RET.STATUS, ADAPTO. TIME, MSG.1
MSG.2, MSG.7, MSG.8, MSG.9,

MSG.10

@STi5, END.MSG.

FMT3

MSG.11, MSG.13, MSG.14, @ST14
FMTi,

FMT2,

FMT4, FMTS. FMT6, FMT7, FMT7A
FMT8. FMT9. FMT10, FMTil, FMT12
FMT16,

FMT17,

FMTi8, FMTi9, FMT20

FRU, FMTS$A, 0BM7, DBM8, DBM9, DBM10
DBMi1, DBMi2, DBM13, DBM14, DBM1S
DBM16. DBM17. DBM18. DBM19. DBM20

DBM21, DBM22. DBM23, DBM24. DBM25S
DBM26, DBM27, DBM28, DBM29. DBM30
DBM31. DBM32. DBM36. DBM37. DBM3A

DBM39, MSG.HSWICH.ERR, MSG.READ.ERR

MSG.SAC.ERR, MSG.AVE.TIME, MSG.PRO.TIME
MSG.ROT.TIME,

MSG.COM.WPT.

SK.FOR.ERR

SK.REV.ERR, SK.RAN.ERR, SK.T0G.ERR

MSG.WRITE.ERR, MSG.GUS.ERR. AVAIL.ERR
MSG.SEEK.ERR, AZT.READY.ERR, EXE.SUP.ERR.
SND.DATA.ERR, RE.DATA.ERR, BUFF.ERR

DMC.ERR, BRERR, TIP, NXMI. AZT.INIT
AZP.INIT, FIND.CLOCK,

CLOCK.INIT

SEQ 0205

- (4)

L16
CZRCFCO RC2S FR END TEST

ZRCFB3
v03.0

27-Mar-1985 15:27:28
27-Mar-1985 13:28:18

TEST SECTION

VAX-11 Bliss-16 V4.,0-579

SEOP02O6

USER$1:[AZTEC. CZRCFC]ZRCFCB 816;:4

o (4)

RC2S$ERR.RPT,
INIT.COM.AREA, REC.STATUS
EX.SUP, PRG, RANDOM.NUM, REC.DATA
SEND.DATA, 'SET.CNTLR, CHAR AVAILABLE
READ.CMD, READ.FILL.CMD
NE

GET.UNIT.STATUS, GET.CMD.SL
oecooehlsxun.DATA, AZTEC. aenov
DO.RET

.SBTTL
.PSECT
010146
032767
001407
012746
012746

000001

000000G

$T1:

0000006
000001

MOV

0000006
000000G 0000006

1§:
24:

000000G
000340
0000006
000004

00BM7, - (SP)

o1,-(5P)

SP RO

; SP,s

(SP)O.(SP)‘

2
NUM.RETRIES
g?H.RETRIES.SHP.RETRIES

1778
1780

I.AM NEX

1782

1783

ONXMI, -(SP)

37
aRT.TABLE,RO

0000006
000001
000002
000001
000004

1785

g%.?(RO)
34:

0000006 177777

01,R1
¢4 ,RO

36
I1.AM.NEX,0-1
54
01,P
. MASK
OFMT1,P1

0000006

000000G GO0000G
000001
000000G

104455

1755
1775

:1+SWP, TRACE

0340, -(SP)

000003

000001

MOV
BIT
BEQ
MOV

$T71 TEST SECTION

AC$COD

#1,P2

P3
RC25.ADDR,RO
#2,R0
RO,P4

0000006
0000006
000002
0000006

: *,0DUMMY

1788
1791
1793
1796

1797
1798
1799

1800

1801

MSG.1

2C2SOERR.RPT

006000

103003
062706
004767
005767
001003

000010
0000006
0000006

44;

S$:

PC,DO.RETRIES

2¥H.RETRIES

1803
1806

ZRCFB3
v03.0
000232

062706

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

000010

ADD

74
24
NUM.RETRIES
67
RO

CMP

NUM.RETRIES, SWP.RETRIES

0000006
000340
0000006
000004
000003

CLR
MOV
MOV
MOV
MOV

000320 017700 0000006

103664
104402

000262

026767 0000006 000000G

000272
000276
000302
000306
000312

005067
012746
012746
012746
012746

000270

000316

000324
000330

101072

104437

032710
001402

74:

8s:
94

106:

104436

000344 026727 0000006 177777
000352 001030
000354
112767 000001
000000G
000362 012767 0000006 0000006
000370 012767 000001
0000006
000000G 0000006

14
2

;

1811

1.AM.NEX
0340, -(SP)
ONXMI , - (SP)
04,-(5P)
03, -(5P)

:
;

1816
1817

MOV

SRT.TABLE,RO

;

1819

MOV
MOV

01,R1
94RO

; o, DUMMY
;

1822
1825

cHP
BNE
MOVB
MOV
MOV
MOV

I.AM.NEX,0-1
133
01,P.MASK
OFMTi,P1
01,P2
RC2S.ADDR, P4

;

1827

;

1830

JHORD
"WORD
'WORD

2
MSG.2
RC2S$ERR.RP?

BLO
TRAP
BHI

TRAP

iRAP

ROR
BCC

ADD

13s:

BR
JSR

15¢:

168:

TRAP
TRAP

164 words,

Routine Ease:

TRAP

;
;
:

1780
1810

1814

1831
1832
1833
1834

124

010,5P

164
PC,D0.RETRIES

1836

;

1839

158
010,5P
104

;
;

1815
1813

LOG.UNIT,RO

;

1846

1848

1755

010,SP

1.AM_NEX,0-1
164

51
44

ROR

MOV
RTS

(SP)+,R1
PC

BLO

; Routine Size:

01,(RO)
114

BR
ADD
BR

MOV

;

NUM.RETRIES
144

CMP
BNE

;
;

154

151
BNE

ADD

148:

12
(8)

1781

TRAP

12¢:

“Page

;

BIT
BEQ

118:

SEQ 0207

#10,5P

TRAP

000001

000332 012701 000001
000336 012700 000004

000342

64:

VAX-11 Bliss-16 V4.0-579
"
USER$1:[AZTEC.CZRCFCIZRCFC3.B16;4

010,5P

B8R
ADD
B8R
CLR
TRAP
ROR

000256
000260

000403
062706 000010
000674
005067 0000006
104467
006000

ACSCODE - 0000

000236
000240
000244
000246
000252
000254

CZRCFCO RC2S FR END TEST
TEST SECTION

1843

Bl
ZRCFB3
v03.0

CZRCFCO RC2S FR END TEST
TEST SECTION

27-Mar-198S 15:27:28
27-Mer-1985 13:28:18

: Maximum stack depth per invocation:

7 words

000000

T1::

000000
000004
000006
000010
000012

004767

177264

14:

104466
006000
103773
000207

;: Routine Size:

6 words,

1 <BLF/PAGE>

: Maximum stack depth per

1852

Routine Base:

invocation:

2 words

LSBTTL

T1 TEST SECTION

JSR
TRAP
ROR
BLO
RTS

PC,$T1
66
RO
14
PC

ACS$CODE « 0510

VAX-11 Bliss-16 V4,0-579
USER$1:[AZTEC. CZRCFC]ZRCFC3 B16;4

’

SEQ 0208

Page

13
(4)

1850

ZRCFRY

CZRCFCO RC2S FR END TEST

v03.0

:
"

1853
1854
1855
1856

TEST SECTION

i
3

:
:

1860
iggé

3
g

i
:

1863

;1068

THIS TEST INIT' THE AZTEC AND RUNS THE POWER UP DIAGNOSTICS BY

WRITING WITH STEP1 DATA, THEN IT WILL CHECK FOR ERRORS AND
REPORT IF AZTEC DOES NOT COME UPTO STEP2 READ

1329 g

if .SWP_TRACE then PRINTF (DBM8);

' TEST 2

1868 3

while (.NUM_RETRIES lequ .SWP_RETRIES)
do

1871

:
:

1873
ig;;

4
4

1876 4

1872

:
:
:
:
:

1877
1878
1879
1880
iggg

igg} g

&
&
4
S
g

1886
1887
1888
1889

:
:

iggé 4
1893 3

:
5
s

grep 1 WRITE WITH STEP 2 READ

B_MASK » 1;

1894
1895
00

5
4
4
4

3
3
3

' SELECT B_MASK FOR STEP 1 WRITE

DATAL = mo’'137600' « .RT_TABLE [RT_VECTOR)/4;

' SELECT STEP1 WRITE DATA WITH

! MAX RING SIZES ,IE AND VECTOR
! ADDRESS

if AZT_INIT ()
then

' PORT SHOULD NOW GET TO STEP2

! AFTER FINISHING INTEGRITY CHECK
' DIAG. IF NOT REPORT ERROR

beain
ERADF (3, MSG_14, RC2S$ERR_RPT);

if .RET_STATUS then DECODE ();

1885 5

:
3
3
i

(5)

TEST 2:%g{TALZATION TEST (POWER UP DIAGNOSTICS)

' CLEAR RETRY COUNTER

1870 4

o 14

i DESCRIPT

NUM_RETRIES = ZERO;

USER#1:([AZTEC.CZRCFCIZRCFC3.B816;4

Yoo

1859 3

VAX-11 Bliss-16 V4.0-579

BGNTST;

3
3

27-Mer-1985 13:28:18

1858

3
:

Cl
27-Mer-1985 15:27:28

' DECODE STATUS

CKLOOP;

RETRIES = TRUE;
end;

if (.RETRIES) then DO_RETRIES ();

' RETRY IF ERROR

if (.NUM_RETRIES eqlu ZERD) then exitloop;
end;
return;
ENDTST;

0000006

000001 000000G

$72:

0000006
000001

SBTTL
CLR

$T2 TEST SECTION
NUM,RETRIES

MOV
MOV
MOV

2DBM8,
- (SP)
01,-(5P)
5P.RO

(SP)s,(5P )s
N, RETRIES, SWP.RETRIES

Sé}

TRAP

000000G 000000G

1%:

cHP
gag

o1,,SWP. TRACE

1864

1866
SP,#

1868

ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

000042
000050

27-Mar-1985 15:27:28

TEST SECTION
112767
016700

27-Mar-1985 13:28:18

000001
000000G
000000G

000054 016046 000002
004767

000000G

000074

162767

040200

000070

000102
000106

010067

004767
006000

000000G

103022
104455
000003
000000G
000000G
032767 000001 000000G
001402
004767 000000G
104465

000146
0001S0
000156

000207
012767
032767

000001
000001

000172

005767

0000006
0000006

000202

000207

000164
000166

000176
000200

000204

000206

001002
022626

RTS
MOV
BIT

TST

PC
01,RETRIES
¢1,RETRIES
S$
PC,.DO.RETRIES
NUM.RETRIES

RTS

74:

000000

004767

177564

000004

104466

Routine Base:

invocation:

4 words

T2::

1%:

006000

103773
000207

6 words,

! <BLF/PAGE>

Maximum stack depth per

3%}

BEQ
JSR

BNE
CMP

CMP

Routine Baese:

invocation:

2 words

ZRCFC]ZRCFCS B16;4

Page

(S)

:
;

1871
1872

1876

;

1881

}

1883

:
f

1886
1889

RO
34
(SP)+,(SP)«

74
(SP)+,(SP)«

(SP)+,(SP)«

1891

1869

1895

1868

ACS$CODE + 0524

.SBTTL

T2 TEST SECTION

JSR

PC,$T72

ROR

TRAP

BLO
RTS

; Routine Size:
;

3$:
44:
Ss:

000711

MO?OO DATAI

PC AZT.INIT

24:

ROR
B8CC
CMP

USER$1:[AZT

SEQ 0210

PC BL$DIV

“
SS
3
MSG.14
RC2S$ERR.RPT
01 ,RET.STATUS
24
PC,DECODE
65

6$:

68 words,

000010
000012

RO,DATAL

2(R0), -(5P)

8CC
TRAP
LWORD
.WORD
.WORD
BIT
BEQ
JSR
TRAP

022626

;: Routine Size:

000006

MOV

JSR
ROR

000000G
000000G

; Maximum stack depth per

000000

04, - §P)

SuB

006000
103002
022626

001402
004767

MOV
JSR

000110
000112
000114
000116
000120
000122
000130
000132
000136

000140
000142
000144

#1,B8.MASK
RT.TABLE,RO

MOV

000060 012746 000004
000064

MOVB
MOV

VAX-11 Blis 1 Vi

66
14
PC

ACSCODE + 0734

CZRCFCO RC25 FR END TEST

ZRCFB3
vV03.0

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579

USER#1:([AZTEC.CZRCFCIZRCFC3.816:4

BGNTST;
VUV VTNUVINANTVIVIVINIS B D B B D B A D 5 5 5 (G W 08 08 G O3 G 08 8 G G W8 O G4 G G0 08 G G G G G O G4 O

1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
190¢

TEST SECTION

El
27-Mer-1985 15:27:28

teo

TEST @3 - DIAGNOSTIC WRAP TEST

DESCRIPTION:

THE AZTEC WILL BE INITIALIZED IN DIAGNOSTIC WRAP MODE AND A ONE BIT
AND ALSO ZERO BIT FLOATED THROUGH THE SA REGISTER TO SEE THAT IT

.
'

ECHOES PROPERLY.

l
'

A FAILURE TO ECHO WHAT WAS WRITTEN WILL RESULT IN A CALLOUT 10 THE

ADAPTER CARD FRU.

IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, THE PROGRAM WILL LOOP ON
THE FAILING WRITE AND READ.

l
l
.

ocal

TST_PAT;

if .SWP_TRACE then PRINTF (DBM10);

TEST 3

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
beain
TIP

= &

]

g STEP1 WRITE
"

B_MASK = 0;

MASK FOR STEP1 READ

DATA2 = %o'10’';

TIME OUT COUNTER
TEMP STORAGE FOR RCSA DATA

DATAL = so’140000';

STEP1 WRITE WITH WRAP MODE BIT SET

DATA3 = ZERO;

if AZT_INIT ()
:
then

! CALL STEP 1 ROUTINE

Esggsp(l M5G_14, RC2S$ERR_RPT);
n

! PRINT NUT ERROR REPORT

RETRIES = TRUE;

else

end

begin

HR? _RC25 (RCSA, .DATA1);

! DO STEP1 WRITE WITH DWM.

uhule (( DATA3 nequ .DATAl) end (.DATA2 nequ ZERO)) do

DELAY (333)

DATA2 = %
DATA3 =

end;

TST_PAT

RC25 ADDR [RCSA, RC_ALL]);

= %0'000001';

!
!

START TEST PATTERN TO

T Poes” 24
-

(6)

F1
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

1957
1958

.ncru FLOAT from 0 to 15 do
beg
n

WOOWOOOWOINIIOONOWM

1955
1956

incru COUNT from O to 1 do
begin

WRT RCZS (RCSA

DELAY

.TST_PAT);

b‘fl

' TEST SA FOR TEST PATTERN

{ MESSAGE ADDRESS

.iST_PAT;

! GET RCSA DATA

PRINT OUT ERROR REPORT

FAILINF
G

| FATLING ADDRESS

i GOOD
GOOD DA DATA

= .RC25_ DATA [RCSA, RC_ALL);

—

WAIT FOR IT TO ECHO.

1 1F NOT EQU_THEN

P6 = (.RC25 ADDR) + 2;
o

(6)

' WRITE TEST PATTERN TO SA

if .RC25_DATA [RCSA, RC_ALL) neau .TST_PAT

P2 = ADABE,

.TST_PAT;

RC25. DATA fRCSA RC_ALL]) = RCZS ADDR [RCSA, RC_ALL);
then

SEQ 0212

! FLOAT ZEROES AND THEN ONES

if .COUNT eqlu 1 then TST_PAT = not

BGNSUB;

VAX-11 Bliss-16 V4.0-579
USER$1:[AZTEC.CZRCFC)ZRCFC3.816:4

5 NOW FLOAT TEST PAT

ASK = 2;
- FMT2

ERRDF (S, MSG_7, RC2S$ERR_RPT);

: BAD DATA

HWWWHEALLLLLNVIOOONO'JOY

®
L

CKLOOP;

—

WS S0 B0 S0 B0 S0 B S0 W0 S0 S8 B0 S8 S8 S0 B0 G0 S8 B B0 S0 B S0 S B8 Se S8 S8 9 e S0 S0P S8 B0 S0 0 G0 S8 S0 S8 S8 S0 e 9

ZRCFB3
V03.0

000000
000004
10
16

004167
162706
032767
001407

0024
30

012746
010600

000020

012746

RETRIES = TRUE;
end;

ENDSUB;

end;

TST_PAT = not .TST_PAT;
TST__PAT = _TST_PAT?);
end;

! SHIFT THE BIT DOWN 1

end;

if (.RETRIES) then DO_RETRIES ();

! DO RETRIES IF IN ERROR

if (.NUM_RETRIES eqlu ZERO) then exitloop;
end;

WRT_RC2S (RCIP,

ENDTST;

000006
000001
0000006
000001

$713:
000000G

'REINITIALIZE THE PORT

ALL_ONES);

.GLOBL

L$DLY

.SBTTL
JSR
SuB
BIT
BEQ

$T3 TEST SECTION
R1,$SAVE4
#6,5P
#1,SWP.TRACE
14

MOV

SP,RO

MOV
MOV

#DBM10, -(SP)
#1,-(SP)

1896

1920

i SP,»

Gl
CZRCFCO RC25S FR END TEST

ZRCFR3

27-Mar-1985 15:27:28
27-Mar-1985 13:28:18

TEST SECTION

V03.0

SEOPOZIS 18
.
age
USER#$1:( AZTEC.CZRCF CJZRCFC3.816:4
(6)
VAX-11 B liss-16 V4.0 -579

’

SP)+,(SP)e

NUM.RETRIES

000000G
000000G 0000006

1922
1924

ggn.astaxes.suv.a51nxes

000470
000004

04,71IP

1926
1930
1931
1932
1933
1935

8. MASK

140000

#-40000,DATAL

910,DATA2

000010

DATA3

PC,AZT.INIT
RO
54

1938

MSG. 14

2%253ERR.RPT

000414

RO
4%

0000006

44:

S¢:
000000G 0000006

6$:

7%:

8¢:

234

#1,RETRIES

204

DATA1,R1
RC25.ADDR,RO
R1,2(RO)
DATA3,DATAL

L$OLY,RO
94

4(SP)
RO

9¢:

10§%:

11%:

000001
000000

000001

12%:

138:
14%:

000320

001411

0000006
000002
000012

»
RCM.REG,

*,$8TMP2

1935
1944
1946

1948

*,$$TMP]

$$TMP
$$TMPL

DATA2

RC25. ADDR,RO

*,RC.REG

£§P)'°“1“3

*
RC.REG,

#1,R2
R4
R3
00,01
144
R
e
R2,R1
RC25.ADDR,RO

*,TST.PAT

R1,2(RO)

15¢:

+,RCM.REG

$$TMP2

2(R0), (SP)

000002

1940

#12,R1
184

FLOAT

COUNT

1949
1950
1946
1953
1955
1958
1961

TST.PAT

TST.PAT,RCM.REG

RCM.REG,
*

*,$$TMP2

1964
1965

000004

164:

17§:
0000006
000002 000002
000002 000002G
000002

18¢:

MOV
BEQ

CLR
DEC
BNE
DEC
MOV

MOV

MOV
CMP
BEG

000002
000000G
000001
000000G
000000G
000002
000000G

MOVB
MOV
MOV
MOV
ADD
MOV
MOV
MOV

000000G
000002G 0000006

TRAP
.WORD
.WORD
.HORD
TRAP

ROR

000001

000000G

BLO

19¢:

MOV
TRAP
ROR

BLO
INC
CMP
BLOS

000001

CoM

ASL

000001

0000006
000000G
177274

177777

000207

000000G
000006

000000G

204
:
21%:

224%:
23%:

174
4(SP)
RO
164
R1

154

RC2S.ADDR, RO

2(R0),2(5P)

2(SP).RC25.DATA.2
2(5P).R2
193

02,P.MASK
OFMT2,P1
01,P2
RC25.ADDR,RO
#2,R0
RO,P6
R2,P4
RC25.DATA+2,PS

TST

MOV
MOV
ADD
RTS

144
R3

*,RC. REG

RCR.E

RCZSDATA.2 1ST.PAT

1966
1964

1971
1972
1973
1974

"3 TST.PAT,»

1975
1976
1977

1979
1980

R3,01

:+ COUNT, «

; COUNT

1958

: TST.PAT
: TST.PAT

R4, 017

;

1985
1986
1955

134
R2

; FLOAT

FLOAT,»*

¢1,RETRIES

1991

NUM.RETRIES

1993

2ls
PC,DO.RETRIES

224
24

#-1,R0
RO,aRC25.ADDR
#6,SP
PC

; Routine Size:

AC$CODE + 0750
186 words,‘
Routine Base:
; Meximum stack depth per invocation:
12 words

.SBTTL

i $4TMP2

194

124

BEQ
JMP

i $4TMP
; $3TMPL

#1,RETRIES
67
RO

BLOS

BIT

o (6)

BEQ
JSR

SE0P0214 3

; +,848TMPL

55
5
MSG.7
RC2S$ERR.RPT
65

INC

CMP

000017

L$OLY,RO

000000G

USER#$1:[AZTEC. CZRCFC]ZRCFC3 B16:4

TEST SECTION

VAX-11 Bliss-16 V4.0

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

-e

CZRCFCO RC2S FR END TEST

ZRCFB3
V03.0

T3 TEST SECTION

: *,RCM.REG

: RCM.REG,*

1997
1896

11
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0
000000
000000
000004
000006
000010
000012

TEST SECTION

004767

13::
14:

177210

104466
006 000
103773
000207
6 words,

! <BLF/PAGE»

Maximum stack depth per

1999

JSR

Rout ine Base:

invocation:

2 words

PC,$73

TRAP
ROR

66
RO

RTS

BLO

: Routine Size:

;

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

AC$CODE +

1534

VAX-1 1Bli 89-16 V4,0-579
USER$ 1:(AZ TEC. CZRCFC]ZRCF'S B16;4

SEOP0215 20

" (6)
1997

J1
ZRCFCO RC25 FR END TEST

gEST SECTION

ZRCFB3

AVTVIVVIVIVIVINIE B B B BB B O B 5 5 00 0 Gl U8 08 03 G G808 03 O3 G808 O8O G808 Gl G O3 G G G G G G (O U e

2000

VUV

...l.t....QI...“..I.....'.........O.....‘...l...'...‘.l.l.'.'.‘.l.l.l.....l..'..‘.0.l.'...C.l...l.!...‘“.'“....

v03.0

27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-57

USER$1:[AZTEC. CZRCFC]ZRCFC3 B16;:4

BGNTST;
Yoo

TEST #4 - VECTOR AND BR LEVEL TEST

DESCRIPTION
THE INIT SEQUENCE WILL BE STARTED WITH THE INTERRUPT ENABLE BIT SET TO
VERIFY THE AZTEC'S VECTOR AND BR LEVEL.
THIS TEST ASSUMES THE VECTOR GIVEN BY THE OPERATOR IS CORRECT.
THE PRIORITY LEVEL OF THE INTERRUPT REQUEST WILI.

BE VERIFIED.

FAILURE OF THE AZTEC TO VECTOR PROPERLY WILL NECESSITATE THAT THIS
PROGRAM BE RESTARTED.
A COMPLETED INTERRUPT AT THE WRONG BR LEVEL
WILL BE REPORTED.

LOOP ON ERROR WILL RESTART THIS TEST IF THE ERROR IS RECOVERABLE.

NUM_RETRIES = 2ERO;
if

.SWP_TRACE then PRINTF (DBM11);

' TEST 4

uhale (. NUH RETRIES lequ .SWP_RETRIES) do

= S

TEMP = PRIO7;

I_AM_NEX = FALSE-

START WITH HIGHEST PRIORITY

! CLEAR INTERUPT FLAG

B MASK = 0;
' STEP 1 READ MASK
DATAl = #o’'104600' + .RT_TABLE [RT_VECTOR)/4;
'INTERRUPT ENABLE BIT SET
SETPRI (.TEMP);
if
IT
if AZT_IN
AZT_INIT

then

( ()

begin

ERRDF (6, MSG_14, RC2SS$ERR_RPT);
if .RET_STATUS then DECODE ();

! SET HOST PRIORITY

BRING UP TO STEP 1 READ

AND GET STATUS
IF ERROR

THEN

REPORT IT
! DECODE STATUS

CKLOOP;

else

RETRIES = TRUE;
end

HR?RC25 (RCSA, .DATALl);
DELAY (5000);

while (.TEMP gequ %0'140') do
begm

! WRITE STEP 1 DATA

! WAIT FOR INTERRUPT VER:C

SEQ 0216

o (7

K1
ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0
:
:

:
;.
;.
:
:

3
;.
:
:
:
:
:

27-Mer-1985 15:27:28

TEST SECTION

27-Mar-1985 13:28:18

gggz

if .I_AM_NEX eqlu ALL_ONES then exitloop;

2059
2060
2061
2062
2063

6
6
6
S
S

TEMP = _TEMP - %0'40';
SETPRI (.TEMP);
RETRIES = TRUE;
end;

2071

gg;g

:
:
;
;.
:
;:
;.
s

2076
2077
2078
2079
2080
2081
2082
2083

S
S
S
4
S
S
S
%

2085

gggg

2088

f (.NUM_RETRIES eqlu ZERQ) then exitloop;

2091
2092

3
3
1

end;

;

3
;
;

gg;% g

2084

2089

USER$1:([AZ

0-579

CZRCFC]ZRCFCS B16;4

SEQ 0217

- Page

(7)

'IF INTERRUPT DID NOT

! NOT OCCUR
! LOWER CPU PRIORITY

4
4
4
4
S
S
S
S

2064
2065
2066
2067
2068
2069
2070

VAX-11 Bl 1

end;
)
if .I_AM_NEX eqlu ALL_ONES
then
bcain
TIP = _TEMPt-S . 1;
SETPRI (PRIOO);
SETVEC (.RT TABLE [(RT_VECTOR), NXMI,

' IF INTERRUPT OCCURED
!
! GET PRIORITY
! SET HOST PRIORITY T0 O
TIP):
' SET UP SERVICE ROUTINE.

PRINTF (INI_MSG, .RT_TABLE (RT_VECTOR], .TIP);

if .TIP nequ .RT_TABLE [RT_BR_LEVEL) then PRINTF (BRERR);

else

! IF RECEIVED BR IS NOT THE

! SAME AS TYPED REPORT ERROR

RETRIES = FALSE;
end
be?in
RETRIES = TRUE;
ERRDF (7, END_MSG, 0);
CKLOOP;
end;

' ERROR

if .RETRIES then DO_RETRIES ();

ENDTST;

$74 H

a%%’“ 3140" 3533 i

1998

0000006
000001 000000G

CLR
géa

H
:

2025
2027

0000006

MOV

000001

187

MOV

000520

000005

000340

0000006
2000006

0000006

000000G
0000006

NUM, RETRIES
01 SWP.TRACE
ODBHII -(SP)

01,- (SP)

MOV

SP,RO

: SP,s+

14:

cMP
grgs

(SP)+,(SP).
ggfl.RETRIES.SHP.RETRIES

2029

2s:

MOV

05,11IP

2031

CLR
CLRB

I.AM_NEX
B .MASK

;
:

2033
2034

TRAP

000000G 000000G

-(SP)

JMP

MOV

16$

0340, TEMP

RT,.TABLE,.RO

2032

2035

L1
ZRCFR3

v03.0

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mar-1985 13:28:18

TEST SECTION

000002
000004
0000006
0000006
073200 0000006
0000006

iss-16 V4.0-579

ZTEC.CZRCFC)ZRCFC3.816;:4

Page

(7)

2(RO), -(SP)

04,-(5P)

RO.DATA1

073200,DATA]

TEMP,RO

2036

PC,AZT.INIT

2038

54
55

2042

0000006

6
000001

SEQ 0218

RC25S$ERR.RPT

;i.RET.STATUS

0000006

2044

PC,DECODE
65

RO
4%

000001

000000G

S$:

0000006
0000006
000002

64:

0000006

7s:

000004

1 0$
DATA1,R1
RC25.ADDR,RO

: «,RCM.REG

0}1610.31
9
L$OLY,RO

;

¢, 88THP2

¢,88TMP]

; RCM_REG,

2047
2038
2051

2052

000000G 000140

2054

0000006 177777

2057

000040 000000G
0000006

2059

000001

177773

0000006

;i.a£1axes

000000G

000000G 177777

[Y]

01,RETRIES

R1,2(RO)

011610

[C I )
<

4s:

(SP)s,(SP).
164

10¢:

124

TEMP, (SP)
0-5,-(SP)

2061
2054
2066

2069

PC,BL $SHF

RO.TIP
11
RO

4]
TIP,(SP)

RT.TABLE,RO

2070
2071

M1
27-Mer-1985 15: 27:28
27-Mar-1985 13: 28:18

VAX-11 Bli 9s-1 6 V4.0 -5 79
USERS$1:[A
c ZRCF clzRCFC3.816;:4
(AZ

SEQ 021 9

Page

L
(7)

2(R0O),-(SP)

03,-(5P)

2072

SP,e

000000C
000000G 000004

RT.TABLE,RO

000001

01,-(SP)

gl‘itm (SP)
.RO

0000006
000016
000001

2074

11P,4(RO)

11%:
0000006

SP,e

e16,5P

134

12¢:

01 ,RETRIES

S5
3

END
. MSG
0
65

000091

000000G

134
(SP)+,(SP).
163

OA.QETRIES

138:

144

PC,DO.RETRIES
NUM_RETRIES

144

000167
005726
012601
000207

: Routine Size:

104466
006000

—

103773
0002C7

15¢:

177244

164:

PC
192 worgs,

i Mox'mum steck depth per

004767

154

(SP)+,(SP).
16$
(SP)s+,(SP).
14
(SP).
(SP).,R1

177174

ine Base:
Rout
0

nvocetion:

14 words

14::

AC$CODE

1550

.SBTTL

JSR

PC,874

TRAP

8LO

RTS

18
PC

TEST

SECTION

2030
1998

N1
$NC‘CO RC2S FR END TEST
EST SECTION

[ ; Routine Size:
: Menmum stec-

209%

6 words,
depth per

Rout ine Bese:

nvocetion:

*<BLF /PAGE
>

2 words

27-Mer-198S 15: 27::28
27-Mer-198 5 13::28: 18

ACSCODE - 2350

VAX-1 18 liss -16 V7, 0-579
USER$ 1:(L4
AZ E CZRCFC)2ZRCFC3.B16;:4

SEQA0220

25
.9'(7
)

B2
ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0
:

2094

27-Mer-198S 15:27:28

TEST SECTION
3

27-Mer-1985 13:28:18

VAX-11 Bliss-16

USER$1:[AZTEC. CZRCFC]ZRCFCS B16;4

BGNTST;

;

2095
209

3
3

2098
2099
gigg

3
3
g

2102

! THIS TEST WILL CHECK FOR INFORMATIONS ECHOED FROM PORT AT

2104

! AN ERROR REPORTED OR ECHOED INFORMATIONS WERE INCORRECT

gigg

:LOOP ON ERROR UILL BE FROM THE BEGINNING OF SUB TEST.

2108
gigg

3
g

NUM_RETRIES = ZERO;

giié

if .SWP_TRACE then PRINTF (DBM9);

! TEST S

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

2113
2114
2l1S
2116
2117
2118
2119
2120
2121
2122
2123
2124
2125
gisg

3
&
4
4
4
6
6
6
6
6
¢
6
6
g

while (.NUM_RETRIES lequ .SWP_RETRIES) do
begin
!
!
STEP1 REAC
'
BGNSULB;
!
!
'check if using
Q_bus and flag
TEMP = READBUS ();
!
! STEP 1 READ
!
B_MASK = 0;

! START PORT INIT WITH MASK = 0

;.
;.
:
:

2128
2129
2130
2131

gigg

6
6
6
7

;

begin
ERRDF (8, MSG_14, RC2S$ERR_RPT);

gigg

;

if .RET_STATUS then DECODE ();

;.
:

2136
2137

7
7

CKLOOP;
RETRIES = TRUE;

Si:g

gi:%

2144

:
i

:
;.
3
3

:
;.

:
:

:
3
:

2097

2105

2145

;.
2146
;2147

3
5

! TEST S: STEP 1 -3 INITIALZATION TEST
'
: DESCRIPTION:

2103 3

2148
2149

' EACN STEP READ COMING UPTO THAT STEP FROM SCRATCH. IF THERE WAS

P55 e

7
6

7
;

' THE SAME WILL BE REPORTED.

if AZT_INIT ()
then

! CLEAR RETRY COUNTER

!
!
!
!

BRING UP TO STEP 1 READ
AND GET STATUS
IF ERROR
THEN
! REPORT IT
! DECODE STATUS

! CHECK FOR CONTROLLER DEPENDENT INFORMATION FROM RCSA AT STEP 1 READ
if ((.RC25_DATA [RCSA, RCSA_NV])
or not (.RC25_DATA [RCSA

or (.TEMP) end not

then

RCSA_DI)))

or not (.TEMP) and
( RC?S"DATA
beain
P_MASK = 2;

= FMT3;

!figECKE}HAT THE NV BIT DID
! CHECK IF DI BIT SET

(.RC25_DATA [RCSA, RCSA_QB))

! CHECK THE Q8 BIT

[RCSA, RCSA"@BI))’
' IF NOT SET
! THEN

0-579

SEQ 0221

o (gg

CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0

TEST SECTION

27-Mer-1985 13:28:18

VAX-11 ?1.
s-16_V4
USER$1:[AZT ec.c
ZRCFC]ZRCFC3 B16:4

P2 = ADAPT
DAy ey

Pa = (ORC2S ADDR) » 2,

ps . nczs finta [ncsn RC_ALL);
* %'01°

DR Ay

Eafgsp(9 nsc 14, RC2S$ERR_RPT);

! REPORT ERROR

RETRIES = TRUE;

Y, Y. Y. Y, N
L

! MASK = STEP 1

end;

TEMP
= .RC2S. DATA (RCSA, RC_ALL);

TEMP
= .TEMP<6

PRINTF (FHTS. o' Temb);s

ENDSUB ;

! PORT SPECIFIC INFO

i GIVE IT TO OPERATOR

BGNSUB;

B MASK = 1;

oltnx = %0'137600' + .RT_TABLE [RT_VECTOR)/4;

! STEP1 WRITE DATA FOR MAX

! RING LENGTHS,IE AND
! VECTOR ADDRESS

i€ AZT_INIT ()
then

! DO INIT AND IF ERROR

begin

ERRDF (10, MSG_14, RC2S$ERR_RPT);

! REPORT ERROR

if .RET_STATUS then DECODE ();

' DECODE STATUS

CKLOOP;
RETRIES = TRUE;

else

end

begin

' CHECK FON ECHOED INFORMATIONS AT STEP2 READ
TEMP =

.DATA1<8,

SAVE EXPECTED DATA

if (.RC2S_DATA [RCSA, RCSA_7_0) nequ .TEMP)
then
! IF ECHOED INFO DOES NOT
begin
! MATCH REPORT ERROR

T
T

:,flusx = 2;

aevnxes = TRUE;

el e T

.RC25_DATA [RCSA, RCSA_7.0);

P6 = .RT_TABLE [RT_IP_ADDRESS] + 2;

VOO
VI &N e

= FMT2;
ADAPT;
P4 = ,TEMP;
"

BN ENENENT. ENENENENENENENENT. Y. Y. Y. Y. Y. Y. Y. W

g STEP1 WRITE WITH STEP 2 READ

ERRDF (11, MSG_11, RC2ZS$ERR_RPT);
CKLOOP
;

end;

Al Al AR B
Lok R

2151
el5e
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166

27-Mer-1985 15:27:28

end;

::gga; (FMT4,

.RC2S_DATA [RCSA, RCSA_PTN]);

STEP 2 WRITE WITH A STEP 3 READ

! GIVE PORT TYPE NUMBER

SEQ 0222
P

D2
ZRCFCO RC2S FR END TEST

O S

27-Mer-1985 13:28:18

BGNSUB;

B_MASK = 3;

! MASK UPTO STEP3 READ

if AZT_INIT ()

! DO INIT AND IF ERROR

begin

eaaor (12, MSG_14, RC2S$ERR_RPT);

! PRINT ERROR MESSAGE

! DECODE STATUS

DATA2 = COM_AREA;

OO NNNNNNNOOOOO
LB
LAONIIDDDEPE®OBBPO®
ID® NI AN AN AdAdAdI NN

S5 B0 S5 S0 S5 B0 S0 00 S0 G0 B0 N0 W0 S0 S0 0 S8 S0 G0 S0 08 B0 W6 S0 S0 B0 G0 S0 B8 G0 TE G0 S0 SE G0 TP G0 G0 S8 SP S8 G G0

6 G5 Ge ¢ GF G Ge ¢ S8 Se e S @6

v03.0

2208
2209
2210
221l

27-Mer-1985 15:27:28

9551 SECTION

ZRCFB3

then

VAX-11 Bli

USER$1:[AZ R CIzREFC3 B16s0

! COM AREA START ADDRESS

.RET_STATUS then DECODE ();

CKLOOP;
RETRIES = TRUE;

else

end

begin

! CHECK roa ECHOED VECTOR AND 1€ BIT
TEMP =
f

_DATA1<O,

(.RC2S_DATA

[RCSA, RCSA_7.0

] neau .. TEMP)
TER ) €CHOED INFO NOT CORRECT

P_MASK = 2;
1= FMT2

P2 = ADAPT;

P4 =
PS =

_TEMP;
.RC2S _DATA [RCSA, RCSA_7 01.

P6 = .RT_TABLE [RT_IP ADDRESS]Y+
ERRDF (13, MSG_11, RC3S$ERR RPT):

! REPORT ERROR

CKLOOP;

RETRIES = TRUE;
end;

end;

ENDSUB ;

! STEP 3 WRITE WITH STEP 4 READ
1}

UB;

gsnisx
= 7;
DATA3 = 0;
if AZT_INIT

e #L

! BRING UPTO STEP4 READ

-1 RING BASE HIGH ADDRESS
INIT AZTEC

ERADF (14, MSG_14, RC2SS$ERR_RPT);
if .RET_STATUS then DECODE ();

IF ERROR

THEN
PRINT OUT ERROR MESSAGE

' DECODE ERROR

CKLOOP;

RETRIES = TRUE;
end;

! PRINT MICRO CODE VERSION INFO.
PRINTF (FM76,

.RC25_DATA [RCSA, RCSA_MODEL]),

.RC25_DATA [(RCSA, RCSA_U_CODE]);

579

SEQ 0223
P
28

o9 (8)

Ed
CZRCFCO RC2S FR END TEST

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

2265

2266
2267
2268
2269

HEWWLELLLLD

®s

ZRCFB3
v03.0

USER$1:[AZTEC.CZRCFC]ZRCFC3.B16;:4

SEQ_0224
age

(8)

ENDSUB
;
if (.RETRIES) then DO_RETRIES ();
if (.NUM_RETRIES eqlu ZERO) then exitloop:
end;

ENDTST;

0000006
000001
0000006

$1S:

.SBTTL
R

$TS TEST SECTION

NUM.RETRIES
:I.SUP.TRACE
¢
0DBM9, - (SP)

2109
2111

01,-(5P)

000001

026767
101401

VAX-11 Blies-16 V4,0-579

SP.RO
17
(SP)e,(SP)e
ggn.RETRIES.suP.Rsraxes

000000G 0000006
2%:

2
B.MASK

PC,AZT.INIT
RO

2113
2114
2126
2128

2132

000001

MSG.
14
RC25$ERR.RPT

gl.RET.STATUS

000000G

0000006

34:

3
PC,DECODE

2134

RO
44

06 ,SP

000006

000001
002000

0000006
0000026

000400

0000026

000002
000000G
000001
0000006
000002
0000006
000002G
000001

000000G
000000G
0000006

0000006
000000G

44:

S$:

94
#1 ,RETRIES
©2000,RC25.DATA.2
64

0:00.RC25.DATA02
8
02 ,P . MASK

OFMT3,P1
#1,P2
RC25.ADDR,RO
#2,R0
RO,P4
RC25.DATA+2,PS
#1,P6

55
11

MSG. 14
RC2S$ERR.RPT

2137
2142

2144
2149
2151
2152

2153
2155

Fe
CZRCFCO RC2S FR END TEST

ZRCFR3

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

vV03.0

000232
000234

VAX-11 Bliss-16 V4.0

USER$1:[AZTEC. CZRCFC]ZRCFCS B16;4

SEQ 0225
Page
30

(8)

TRAP
ROR

8CC
uB

000001

000000G

74:

8¢:

94
#1,RETRIES
RC25.DATA+2,TEMP

’
H
H

TEMP
TEMP
TEMP
TEMP
TEMP
TEMP

0177740, TEMP
TEMP, -(SP)

;

OFMTS, - (SP)
oz.-gép)

2162

i SP. *

10¢:

2157
2160
2161

01,8.MASK
RT.TABLE,RO

2(R0),-(SP)

H
3

2114
2162

;
H

2163
2168

2169

2173

84, -(SP)

PC.BLIDIV

RO,DATAL

040200,DATAL
sgLAZT.INIT
134
55
12

000001

114

11¢:

000000G

124:

0000006
000001G 0000006

134:

000002G
000000G

112767
012767
012767

MSG.14
RC25$ERR.RPT
#1,RET.STATUS

000000G

0000006

000002
0000006
000000G 000000G
000001
0000006

;

2176

2178

:
H

2181
2173

PC,DECODE

124
-(SP),-(SP)
164

#1,RETRIES

154
TEMP

DATAL1+1,TEMP

" RC25.DATA«2,RO

2186

2188

3
H

2191
2192

RO, TEMP

154

#2,P.MASK
OFMT2,P1
#1,P2

2193

G2
CZRCFCO RC2S FR END TEST

ZRCFR3

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

016767

000000G 000000G

TEMP, P4
RO

000002G
0000006
0000006
000002
0000006

RC25.DATA+2,R0

VAX-11 Bliss-16 V4.0-579
USER$1:(AZTEC.CZRCFC)ZRCFC3.816:4

S€Q,0226
age

(8)

2194
2195

RO, PS

art. TABLE,RO

219

55
13

2197

02,R0
RO,P6

MSG.11

RC2S$ERR.RPT

RO
144

000001
0000006
000002G

-(SP),-(SP)
164

15¢:

177770

#1,RETRIES

ggZS.DATAoB.RO
@177770,R0
RO, (SP)

000000G
000002
000010

16%:

SP,RO
17

#10,5P

000003
000000G
000000G 0000006

17§

104
2
#3,8.MASK

oCOM.AREA,DATA2
:g.AZT.INIT

194
55
14

000001

0000006

000001

112767
012767
012767
016767

000000G
000000G
000000G
0000006

PC,DECODE

204

#1,RETRIES

000000G

000002G
0000006
000002
000000G
000001
000000G

18%:

0000006
000000G 000000G

001441

MSG.14
RC25$ERR.RPT
#1,RET.STATUS

19¢:

204

TEMP

DATAL,TEMP

RO
RC25.DATA+2,R0
RO, TEMP

204

#2,P
. MASK
OFMT2,P1
#1,P2
TEMP,P4

2199
2204

H2
CZRCFCO RC2S FR END TEST

ZRCFB3

001036
001040

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

005000
156700
010067
017700
062700
010067
104455
000015

SEQP

(8)

2235

RC25.DATA+2,R0

000002G
0000006
0000006
000002
0000006

RO, PS

aRrt.TABLE,RO

2236

55
15

2237

#2,R0
RO.P6

000000G

MSG. 11
RC2S$ERR.RPT

104465

006 000

103403
012767

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFCJZRCFC3.B16;4

022
age

204

000001

20§$:
21$:

000007

01,RETRIES

2239
2242

174
2

#7,8.MASK

2244
2249

PC,AZT.INIT
RO

2252

2255

MSG.14
RC254ERR
., RPT
#1,RET.STATUS

2257

DATA3

244
16

000001

224

22%:
000010

000001

0000006

177760
0000026

234:
:
244

177760

PC.DECODE

234
#10,SP
254

#1,RETRIES

#177760,(SP)
RC25.DATA+2,R0O
RO
RO
RO
RO
#177760,R0

OFMT6, -(SP)

0000006
000003

254:

000010

SP,RO
17

#10,5P

000001

0000006
0000006

2260
2264

21%

0000006

2244
2264

#1,RETRIES

2267

PC,DO.RETRIES
NUM.RETRIES

2269

264

26$:

: SP,#

12
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0

001310
001312
001316

TEST SECTION
001402
000167
000207

: Routine Size:

176514

274:

360 words,

Routine Base:

; Meximum stack depth per unvocotuon

000000
000000
000004
000006
000010
000012

004767

2274

18:

104466
006000
103773
000207

6 words

BEQ

274

RTS

JMP

JSR

SEq 0228
age

(8)

2092

TS5 TEST SECTION

PC,$TS

TRAP
ROR

66
RO

RTS

BLO

Routine
Base:
AC$CODE .
0
invocation:
2 words

! <BLF/PAGE>

VAX-1 18 li ss-16 V4,0-579
ZTEC.CZRCFCIZRCFC3.816;4
USER$ 1:( Az

AC$CODE « 2364

.SBTTL

176454

; Routine Size:
6 words,
: Maximum stack depth per

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

3704

2271

Je
CZRCFCO RC25S FR END TEST

ZRCFR3
v03.0
VINUTIVTTVIVIN B VNTVTVTUVTVIVIVIUVI B B 5 5 5 5B 5 B 5 Gl W8 Gl G4 G O G Gl G4 G4 G4 G4 G G G G4 G4 G G GO G G G G (O (N (e

TEST SECTION

27-Mer-1985 15:27:28
OT-Mer-1985 13:28:18

BGNTST;
feo

TEST #6 - PURGE AND POLL TEST

DESCRIPTION:

'
'
'
'
'
'
'
'

THIS TEST WILL PERFORM THE FIRST THREE STEPS OF THE INIT SEQUENCE.
WHEN THE HOST RESPONDS TO THE STEP 3 TRANSITION IT WILL WRITE A ONE
BIT TO BIT 15 OF THE SA REGISTER, THERBY REQUESTING THE EXECUTION OF
PURGE AND POLL TESTING, THE HOST THEN WAITS FOR THE SA REGISTER 10
TRANSITION TO A_ZERO VALUE. THE HOST THEN WRITES ZEROS TO THE SA
REGISTER SIMULATING A "PURGE COMPLETED” HOST ACTION. THE HOST THEN
READS THE IP REGISTER TO SMULATE A "START POLLING” COMMAND FROM THE
HOST _TO THE PORT., THE TEST IS COMPLETE WHEN THE CONTROLLER ANNOUNCES

FAILURE TO PROPERLY COMPLETE THIS TEST WILL BE REPORTED.

THE TRANSITION TO STEP 4 IN THE SA REGISTER.

LOOP ON ERROR WILL RESTART THE TEST.

l
l

.SWP_TRACE then PRINTF (DBM12);

TEST 6

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES)
do

113= 6;

B_MASK = 3;

DATAl = so'100200' « .RT_TABLE [RT_VECTOR)/4;

! IE AND VECTOR ADDRESS

DATA2 = RINGBASE;
DATA3 = !o'IOOOOO‘:

! RING BASE LOW ADDRESS
! PURGE AND POLL

if AZT_INIT ()
then
begin

! DO UPTO STEP 3 READ AND
! CHECK FOR ERRORS
' IF ERRORS THEN

eaflor (1S, MSG_14, RC2S$ERR_RPT);

! REPORT THEM

if .RET_STATUS then DECODE ();

! DECODE STATUS

CKLOOP;

RETRIES = TRUE;

else

end

begin

UR?‘RCES (RCSA, .DATA3);

! WRITE PURGE AND POLL

while (.RC25_ADDR [RCSA, RC_ALL) nequ ZERO) do

DELAY(10);

WRT_RC25 (RCSA,

3 um UNTIL SA=0

FALSE);

DATA] = ,RC2S_ADDR [RCIP, RC_ALL);
DATALl = #0'10';

while (.DATAl nequ ZERO) do

WRITE ALL _ZERO'S TO SA

! READ THE IP REGISTER

! INIT THE LOOP COUNT

579

USER$1:(A ZTEC. CZRCFC]ZRCFC3 816:4

i99-16V

VAX-11 Blij

SEOP°229 34
e (9)

K2
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:2 12
27-Mar-1985 13:2 8: 1

VAX-11 ?
li 8s-16 V4,0-5
USER$1
AZTEC. CZRCFC]ZRCFC3 B16;:4

begin

dc?oy (333);
if .I_AM_NEX eqlu ALL_ONES then exitloop;

DATALl =

_DATALl - 1;

end;

if .I_AM_NEX eqlu ALL_ONES
then

begin

RC!S-DA?A [RCSA, RC_ALL) = .RC2S_ADDR [RCSA, RC_ALL]);
if .RC25_DATA [RCSA, RCSA_ER])
then
T
I T

STATUS = PFE_CODE;

v
R

2332
2333
2334

TEST SECTION

SHLEANVNOCCOOVNOTR
VNN NNNNNNNO AdOO YNNNNYNNNNNNNOO
OO VNVIVING OO0 OO

...n.n.o.....'.l‘c.l.....'.t.-.n.o...o.n.!.n.o.o.l.l.o.o...o.o...l.0...l..0..o.o.n.-.0.0.0.o...o.c.c.o.c.o..“.o.o

ZRCFR3
v03.0

! IF PORT FATAL ERROR
!

THEN REPORT IT,

t
Ay
(.RC25

ADDR)
acas DATA [acsn RC_ALL];

P6 = %0'04";

P MASK = 2;

ERRDF (16, MSG_14, RC2S$ERR _RPT);

DECODE ();
CKLOOP;
R€1nxes * TRUE;
end;

if (.RC25_DATA [RCSA, RCSA_STEP] nequ %b'1000')

then

begm

Pl = FMT3;
P2 = ADAPT

P4 = (.RC25 ADDR)
PS

nczs DATA (acsn RC_ALL);

P6 = #0'107;

P MASK
= 2;

ERRDF (17, MSG_14, RC2S$ERR_RPT);
CKLOOP;

RETRIES = TRUE;
end;

else

end

bcvin

RET_STATUS = CTO_CODE;

RETRIES = TRUE;

ERRDF (18, MSG_9, 0);
DECODE ();

end;
end;

if (_RETRIES) then DO_RETRIES ();

(NUM _RETRIES eqlu ZERO) then exitloop:;

MASK

STEP 4

! CHECK FOR STEP 4 COMPLETE

SEQ 0230
P

o (9)

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

VAX-1
USER$

......

L2
8 liss-16 V4.0-579

TEC CZRCFC)ZRCFC3.816;:4
sl AZ

SEQ 023 1

Page

(9)

end;

ENDTST;

000010
000001

$76:
0000006

0000006
000001

LSBTTL
MOV
SuB

gé;

01Quw TRACE

MOV
MOV

ooenxa

TRAP

17
(SP)e,(SP)e
NUM. RETRIES

MOV

0000006
000000G 000000G
000674
000006 000000G
000003 000000G
0000006
000002
000004
0000006
0000006
077600 000000G
000000G 0000006
100000 000000G
0000006

$
24
34

cme

CLR
ce
B8LOS
JMP
MOV
MOVB
MOV
MOV
MOV
JSR
MOV
SUB
MOV
MOV
JSR
ROR
acc
TRAP

000001

.WORD
.WORD
. WORD
gg;

000000G

4s:

JSR

TRAP
ROR

8CC

000542
000001

000000G

000474
0000006
0000006
000002
0000006
000002 000004
000012
000000G

Ss:

64:
7%:

8s:

$76 TEST SECTION
R
SP)

JMP

MOV

JMP
MOV
MOV
MOV
MOV
ggg
MOV
BEQ
MOV

1.-(SP)

2273
2298

(SP)

2300
2302

gun.RETRIES, SWP.RETRIES

06,11P

2304
2305
2306

03.8. MASK

RT.TABLE,RO
2(RO),-(SP)
04,-(5P)

PC.BL $DIV

RO,DATA]

077600,DATA]

2307

PC AZT.INIT

2310

‘

2313

MSG.14
RPT
RC2S$E.RR
:I.RET.STAYUS

2315

PC,DECODE
65

S
(SP)«,(SP).
254
01 ,RETRIES

*,RCM_REG

: RCM.REG,

L$DLY,RO

10%

*,RC.REG

¢,88TMP2

;

¢,88TMP]

2318
2310
2322

2324
2325

ZRCFRS
v03.0

CZRCFCO aczs FR END TEST

27-Mer-1985 15:27:28

TEST SECTI

000012

27-Mer-1985 13:28:18

9s:
108:

0000006
000002
000006
000010

11:

000000G

12¢:

000515
0000006

138

000012

148:
15s:;

0000006 177777

168

0000006
0000006

177777

178

0000006
000002 000010
000010

0000026

1
R1
RC2S.ADDR, RO
2(RO)
(RO),6(SP)

DEC

MOV BEQ

DATA}
124

MOV
MOV
MOV
MOV
ADD

MOV
MOV
MOV
MOVE
TRAP

000000G

103777

000000G 0000006
000001
0000006

188:

196:

JSR
TRAP
ROR
B8CC
cHP
BR
MOV
MOV
8IC
cHP

; RCM.REG

2327

; RC25.ADDR,RC.REG

2328

;

2331

2329

2333

; $8THP
: $8TMP
: $8TMP2

;

2335

;
;

2337
233

5im.v¢x.o-1

;

2340

RC2S.ADDR, RO
2(R0),10(5P)

;
: *,RC.REG

2343

: RC.REG,e

021,RET, smus
oFMis,p
01,P2
RC2S.ADDR, RO
oa.no
RO.P4
aczs DATA.2,PS
3
oa'P.MASK

:
;
;
;

2343
2349
2350
2351

:
;
;

2352
2353
2354

io(svi RC25.DATA.?2

;

2355

PC, DECODE
RO
183
(5P)s,(SP)e
254
01,RETRIES
RC3S.DATA.2,RO
0103777,R0
RO, 040000

;

2356

20
MSG.14
RC2SSERR.RPT

224

MOV

e],P2

MOV

$8THP2

; 0, 88THP2
; 0, 88THP

{i;\n.m.n

BEQ

MOV

(9)

;

174

DEC
B8R

gg:

Pege 37

USER$1:[AZTEC. czacrcmcrcs 816;4

;

no OATAL

osxs R1
164
LSDLY,RO
154
12(5P)
RO
143
Rl
138

SEQ 0232

: $4THP
; $8TMP]

MOV
BE:
MCv
BEQ
CLR
DEC
BNE
DEC
BR

JMORD
'WORD
.MORD

040000
0000006

BR
CLR
MOV
CLR
MOV

e"gf

0000006

000001

12(5P)
RO
94

MOV
MOV

000021 0000006
0000006 0000006
000001 000000G
0000006
000002
0000006
000002G 0000006
000004 0000006
000002 0000006

0000026

CLR
DEC
BNE

VAX-11 Bliss-16 V4.0

2358

oFMT3,P)

RC25.ADDR,RO

2361

2364

2365

2366

N2
$ZRCFC° RC2S FR END TEST
EST SECTION

27-Mer-1985 15:27::28
27-Mer-1985 13:28::18

VAX-1 1
Blisse- 16
579
USER i 1:(AZTEC. Z
FC]ZRCFCS B816;:4

Che!

SEQ 0233
Peage
38

02.R0
RO,P4

RC3S.DATA.2,PS
010,P6

02,P.MASK

55
21

MSG. 14
RC2SSERR.RPT

204
(SP)e,(SP)e
254

204
:

ox.nttaxes

224

2ls:

000000G

177070
000010

2372
340
2378
2379
2380

224%:

2381
2386

23%:

2388

244

2303
302
2273

25%:

; Poutine Size:

248 words,
Routine Bese:
ACSCODE ; Meximum steck depth per invocet on
9 words

004767

177014

104466

10
12

000000

6 words,
Mox mum steck depth per

2998

76 TEST SECTION

JSR

PC.87¢

TRAP

66
R0

R1S

ROR
BLO

103773
000207

; Routing Size:

;

.SBTTL

Rout ine Bese:
ACICODE
2 words

nvocet on

' «BLF /PAGE »

- 4700

23%0

B3
T VIVIVINAVVIVIVIVIVIVIVIAE B B B D D 55 5 5 5 5 G Gl 08 08 Gl G 08 08 G808 08 08 08 08 G G G 08 08 G G G O Gl ==
AV

“.lM...Q.........'.‘.I.........l.l.l.....0...l.........l.'...l...C.....t.'....“......“..““..“.....O““““

CZRCFCO RC25S FR END TEST
TEST SECTION

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579
USENI'(AZTEC CZRCFC]ZRCFCS 816:4

BGNTST;
feo

! TEST @7 - SMALL RING BUFFER INIT TEST
DESCRIPTION:
THE AZTEC WILL BE INITIALIZED WITHOUT INTERRUPTS AND USIM THE

SMALLEST RING BUFFER.
THIS WILL BE THE FIRST TIME THAT THE
INITIALIZATION SEQUENCE IS CARRIED OUT TO COMPLETION.
INITIALIZING

WITH THE SMALLEST RING BUFFER MINIMIZES THE HOST MEMORY AREA WITH
WHICH THE AZTEC CONTROLLER MUST BE ABLE TO COMMUNICATE.
FAILURE TO PROPERLY INITIATETHE AZTEC WILL BE REPORTED.

IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM THE
START OF THIS TEST.
if .SWP_TRACE then PRINTF (DBM13);

TEST 7

NUM_RETRIES = ZERO;
udule (.NUM_RETRIES lequ .SWP RETRIES)

8 nnsx : %o'17';

DATAL = %o’ 100200;

g:}:z
. ams B [0):
1> .

DATA4<0

! SELECT ALL STEPS

! STEP 1 WRITE WITH MIN. RING SIZES

! SET UP RING BASE ADDRESS

RING_B [o} - ALL _ONES;

! INIT RING_B [o(l
AND (1)

if AZP_INIT ()

! DO INIT STEPS

begin

ERNDF (19, MSG_14, RC2S$ERR_RPT);

' IF ERROR THEN

! THEN REPORT THE ERROR

if .RET_STATUS then DECODE ();

' DECODE RETURN STATUS

RING_B

= ALL_ONES;

then

! WITH ALL ONES
!

CKLOOP;

RETRIES = TRUE;

end

begin
if

! VER.BO

.RING_B (0] nequ 0 snd .RING_B (1) nequ 0

then

eaaor (20, MSG_10, 0);
CKLOOP;

RETRIES = TRUE;
end;
end;

TEST THAT THE RC25 CLEARED

! RING BUFFERS

! IF NOT THEN ERROR

! AND REPORT IT

SEQ 0234
P age

39
(10)

C3
CZRCFCO RC2S FR END TEST

ZRCFR3

TEST SECTION

n
E=4
v
w

P WWHWLELLELL

®s

v03.0

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Blies-16 V4.0-579

USER$1:(AZTEC.CZRCFC)ZRCFC3.B16;4

SEQ_0235
Page

(10)

if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERDO) then exitloop;
end;

return;

ENDTST;

000001

000000G

$77:

000000G
000001

$T7 TEST SECTION

01,S
. TRACE
WP

SP.RO
17
(SP)e,(SP)e

NUM.RETRIES

;gn.aztales.sup.aernxss
07,11IP

017,8.MASK
©-77600,DATAL

ORING.B,DATA2
DATA3

0000006
000001
000000G

177777

0000006

01,DATAS

000100’

#-1,RING.B+2

000102°

2414

13
#0BM13, -(SP)

:g.izp.xnxt

SP,s

2416
2418

2420
2421
2422
2423
2424
2425
2426
2427
2429

000001

000000G

000000G
44;

000100°

2432

gi.RET.STRTUS

2434

MSG. 14
RC254ERR.RPT

3$:
000001

55
23

PC,.DECODE
65

RO
74
#1,RETRIES

RING.B

2437

2429
2442

R}NG.BO?

000102’

2445

104465

006000

103414
012767

000001

000000G

01 ,RETRIES

2447

gZR FCO RC25 FR END TEST
EST SECTION

ZR%FBS

v03.0

032767
001402
004767

005767
001267
000207

: Routine Size:
:

Maximum stack

000000
000000
000004
000006
000010
000012

004767

000000G

0000006
000000G

6%:
74:

87 words, -

dJepth per

Rout ine Base:

invocation:

177516

6 words,

Maximum staeck depth per

2460

S$:

4 words

T7::
14:

104466
006000
103773
000207

; Routine Size:

;

000001

27-Mar-1985 15:27:
27-Mer-1985 13:2

Routine Base:

invocetion:

1<BLF/7PAGE>

2 words

VAX-11
USER$1:

Thz

ss-1 6_V4.0-579
TeC. CZRCFC)ZRCFC3.B16;:4

SEOP0236 e

090(10)

g%.RETRIES

2452

PC,D0.RETRIES
NUM.RETRIES
24
PC

2454

2392

AC$CODE + 4714

.SBTTL

T7 TEST SECTION
PC,$77
66

AC$CODE « 5172

2458

CZRCFCO RC25 FR END TEST

VN BEUVVVVIVIVIVIN
A B L BB bbbl BDDLDD DD B GGG G008
8O G 0
8 Ol

©5 S5 S0 00 N0 U0 S0 00 W0 00 00 W0 00 W0 B0 G0 S0 S0 G0 S0 S0 G0 S0 S0 G0 S0 G0 G0 90 SF B0 G S0 BE G SE S0 G0 S0 GF G GE S6 S B S0 S8 S6 B8 GF Ss S S Ss B8 e S0

27-Mer-1985 15:27:28

TEST SECTION

E3
t

27-Mer-1985 13:28:18

VAX-11 Bl

USER$1:[AZ

BGNTST;
Teo

TEST @8 - LARGE RING BUFFER INIT TEST

! DESCRIPTION:
THE INIT SEQUENCE IS EXECUTED WITHOUT INTERRUPTS WITH A RING BUFFER
LARGE ENOUGH T0 coven THE NORMAL HOST conmcxmous AREA PACKET AND
aurrea SPACE ( A 5 IN MESSAGE LENGTH ANDA S IN COMMAND LENGTH).
A FAILURE TO COMLETE THE INITIALIZATION SEQUENCE WITHOUT ERROR WILL BE
REPORTED.

IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE TO THE
BEGINNING OF THIS TEST.
if .SWP_TRACE then PRINTF (DBM14);

TEST 8

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
beain
TI

B HASK . io'17'*
DATA1<1S, 1> =
DATA1<14,
DATA1<11.

SET MASK BIT FOR COMPLETE INIT.
SET BIT 15 FOR STEP-1 WRITE
NO_DIAGNOSTIC WRAP MODE
SET UP 16 COMMAND RINGS LENGTH
SET UP_16 RESPONSE RINGS LENGTH
DISABLE INTERRUPT
LOAD INTERRUPT VECTOR ADDRESS
LOAD COMMUNICATIONS AREA ADDRESS

TRUE;

1> = O;
3> = SND_SIZ;

DATA1<8, 3> = REC_SIZ;

DATAl<7, 1> = 0;
DATA1<0, 7> = 0;
DATA2 = COM_AREA;

DATA3 = ZERD;

DATA4 = wo’'177403';
*INITIALIZE COM_AREA uxrn ALL_ONES PRIOR TO INIT

HI-ORDER ADDR = ZERO

"LAST FAIL" PATKET RESPONSE BIT SET

incru T from 0 to RING_SIZE - 1 do
incru J from 0 to 1 do

COM_AREA [.I,

.J, WORD_REF) = ALL_ONES;

iz AZP_INIT ()
en

DO STEP INIT AND CHECK FOR ERROR

beain
ERRDF (21, MSG_14, RC2S$ERR_RPT);

' IF ERRORS THEN
! REPORT ERROR

if .RET_STATUS then DECODE ();

! DECODE STATUS

CKLOOP;

RETRIES = TRUE;

else

end

begin
incru I from 0 to RING_SIZE -

! VER.BO
1 do

TEST RING AREA FOR ZEROES

6 V4.,0-579

ZRCFC]ZRCFC3.BI6;4

SEQ 0237

Page

(11)

Fa
CZRCFCO RC25 FR END TEST

if .COM_AREA [.I,
then

! IF RING AREA IS NOT CLEAR
HEN
' REPORT ERROR

enaor (22, M56.10, 0y

RETRIES = TRUE;
end;

end;

if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERQO) then exitloop;
end;
return;

ENDTST;
.SBTTL
JSR
BIT
BEQ

$T8 TEST SECTION

R1,$SA VE2

?‘RO

H Spo.

sv>. sp)o

#10,TIP
017,8.MASK
#122000,DATAl
o#COM. AREA,DATA2

000037

R1
R}.037

34:

44:

177777

000000G

O -

000001

DATA3

#-375,0ATA4
R1
R2
R1,RO
RO
R2,RO
RO
#-1,COM.AREA(RO)
R2
R%.Ol

177403

103021

2480

o0BM14, -(SP)

91.-(sfi)

RETRI

0000006

2459

:1+SWP. TRACE

Tg?RETRIES SWP .RETRIES

160

(11)

.J, WORD_REF) nc?u
0

MOV
MOV
MOV
TRAP

101760
004767
006000

USER4$1:[AZTEC.CZRCFC)ZRCFC3.B16;4

SEQ 0238

incru J from 0 to 1 do

$78:

150
152
156

VAX-11 Bliss-16 V4,0-579

HWWWaELELLBMAVIVNIOOOO"VTUTIUIWLY

Gr O

TEST SECTION

G0 S0 G
S5 G0 G0
G
S
B0 G0
S0 S0 G
G0 G0
W6 S0

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

ZRCFB3
vV03.0

PC,AZP.INIT
RO

G3
CZRCFCO RC25 FR END TEST

000162
000164

000172
000200
000202

000206

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

104455

000025
000000G
0000006
032767 000001 0000006
001402
004767 000000G

38:465

SEOP0239 o

°°.(11)

2507

MSG. 14
RC254ERR.RPT
#1,RET.STATUS

2509

PC,DECODE

S$:

RO
124
01§RETRIES

000000G

2512

2 504

64:

78:

8¢:

0000006

2317
2319

2521

RO
R2,RO
RO

-HO-

000001

VAX-11 Bl iss-16 V4.0-579
USER41: (AZTEC.CZRCFCJZRCFC3.B16;4

ZRCFRB3
v03.0

COM.AREA(RO)
94

55
26

2524

MSG. 10

R2,01
84

R1
R1,037
74
#1,RETRIES

000037
000001

000332

000334

001241

0000006
0000006

000207

000000G

10¢:

11%

PC,DO.RETRIES

11¢:

12%:

C.C

000001

124

#1,RETRIES
R2

000000G

000001

2526
2519
2517
2531

ggH.RETRIES

2533

2459

AC$CODE « 5206
; Routine Size:
0
111 words,‘
Routine
Bese:
7 words
; Maximum stack depth per invocation:

004767

104466

000010

006000
103773

000207

177436

18::
14:

.SBTTL

T8 TEST SECTION
PC.$78
66
RO

AC$CODE « 5544
: Routine Size:
6 words, .
Routine
0
Base:
: Maximum steck depth per invocation:
2 words

2537

H3
.|

CZRCFCO RC25 FR END TEST

ZRCFR3
v03.0

2539

TEST SECTION

! <BLF/PAGE>

27-Mar-1985 15: 27: 28
27-Mar-1985 13: 28: 18

VAX-11 B li 8s-16 V4.,0-579
USER#$1:( AZTEC. CZRCFC]ZRCFC3 B16;4

SEOP024O o

.9.(11)

CZRCFCO RC25 FR END TEST

VTNV
'OV TV & B UVTUVTVTUVTUVIUVTUIUL
B B 5 5 Gl G4 G4 G4 08 Gl Gl Gl G G G G G G G G G G G Gl G G (O (0 (M (M (i e

S5 N5 G0 00 00 00 U0 00 U0 U0 00 00 00 00 00 90 S0 G0 S0 S0 90 G0 90 G0 S8 G0 GF S0 G0 S0 SF G0 B0 G0 G0 S0 G5 S8 SP Ge S0 SF Be S6 S Se 6 G6 G S8 e S S S

s @

TEST SECTION

I3
27-Mer-1985 15:27:28

VAX-11 Bliss-16 V4.0-579

27-Mer-1985 13:28:18

USER$1:[AZTEC.CZRCFCIZRCFC3.B16:4

BGNTST;
feo

TEST @9 -

"DIAGNOSTIC MACHINE" CODE DOWN LINE LOAD TEST

' DESCRIPTION:
THIS "DIAGNOSTIC MACHINE" PROGRAM WILL ATTEMPT TO TRANSFER A BLOCK
OF DATA FROM HOST MEMORY TO AN AREA IN THE CONTROLLER AND THEN
EXAMINE THE TRANSFERED DATA,

IF THE TRANSFERED DATA NOT COMPARE CORRECTLY,

THEN THE ERROR WILL

BE_REPORTED. THIS TEST ALSO REPORTS ERRORS IF ANY OF THE ROUTINES
USED RETURNED FAILURE CODE.

IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM

THE START OF THIS TEST.

sbel
BLOCK];

if .SWP_TRACE then PRINTF (DBM1S);

TEST 9

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
begin

GET AZTEC READY

if AZTEC_READY ()

then

begin

ERaoF (23, AZT_READY_ERR, 0);

IF ERROR REPORT ERROR

if .RET_STATUS then DECODE ();

CKLOOP;

RETRIES = TRUE;

else
BLOCK]1 :

end

begin

TEflP = _FREE_MEM_ADDR;

SAVE FREE MEMORY STARTING ADDR.

incru COUNT from 0 to 1023 do

FILL NEXT 1024 LOC.

begin

‘

.TEMP = s%o'125252';
TEMP = _TEMP + 2;
end;

WITH DATAS

VER.BO LIMIT CHANGED TO 1023

WRITE DATA 0'125252' INTO MEMORY
INCREMENT THE POINTER BY 2

CMD_REF = 3;
BUF “DESCRPTR = DM_09;

SET COMMAND REFERENCE 43
DM-PROGRAM STARTING ADDRESS

if EX_SUP_PRG ()

ISSUE AN "EXECUTE SUPPLIED PRG" CMD

BYTE_COUNT = 93¢2;

TOTAL DM PROGRAM LENGTH BYTE COUNTS

SEOP0241 4
age

(12 )

J3
CZRCFCO RC25S FR END TEST
then

NN OO O O TUTVTTVTNTT NN NN
VTVINIVIVIVIVINIO

beain
ERRDF (24, EXE_SUP_ERR, 0);

RETRTES « TRUE,
leave BLOCK];

end;

H_SADD =

H_EADD =

FREE _MEM_ADDR;

BUF LENGTH = 1024;
CMD_REF = 4
BUF _DESCRPTR

= H_SADD;

BYTE_COUNT = 06;
if SEND_DATA ()
then
begin

: STALUS BIT INDICATES ERROR

! THE

VER.BO

LO BYTE FREE HOST MEMORY ADDRESS
HIGH BYTE FREE MEMORY ADDRESS
TOTAL FREE HOST HEHORY SIZE

COMMAND REFERENCE
04
DESCRIPTOR ADDRESS

TOTAL BYTES TO BE TRANSFER

ISSUE SEND DATA COMMAND
?;2;05 BIT INDICATES ERROR

if .RET_STATUS then DECODE ();

CKLOOP;

RETRIES = TRUE;

leave BLOCK];

end;

CMD_REF = S;

VER.BO

BUF "DESCRPTR = TIP;
BYTE_COUNT = 02;

CLEAN THE BUFFER
SET BYTE COUNTS = 2

if REC_DATA ()
then

SENT A RECEIVE DATA COMMAND
?LELUS BIT INDICATES ERROR

ERROF (26, RE_DATA_ERR, 0);

O
VIVIVINOC

98-16 V4,0-579

VAX-11 Blis
USER# 1:(AZTEC.CZRCFCIZRCFC3.816;4

ERNDF (25, SND_DATA_ERR, 0);

begin

if .RET_STATUS then DECODE ();

CKLOOP;

RETRIES = TRUE;

leave BLOCK];

end;

if .TIP nequ %o'104’
then

begin

enflor (27, DMC_ERR, 0);

CKLOOP;

RETRIES = TRUE;
end;

&L/

27-Mer-1985 15:27:28

27-"0?-1985 13:28:18

if .RET_STATUS then DECODE ();

OOV LY

TEST SECTION

end;

if (.RETRIES) then DO_RETRIES ();

VER.BO

IS REMOTE PROGRAM SENT DONE FLAG T0 THE HOST

NO.

THEN

REPORT ERROR

560902‘2 47
.9‘(12)

ZRCFR3

CZRCFCO RC25 FR END TEST

v03.0

TEST SECTION

5232

:
i
:
:

2657
2658
2659
2660

3
3
3
1

end;

2654

000000
000006
000010

032767
001407
012746

000020
000022
000028

010600
104417
022626

000032

026767

000014

000026

012746

005067

000001

0000006

$19:

000000G

000001

0000006

18:

000000G 0000006

2%:

0000006

34:

000060
000062
000064
000072
000074
000100
000102
000104

0000006
000000
032767 000001
0000006
001402
004767 0000006
104465
006000
103001

000207
012767
000576
016767
005000
012777
062767
005200
020027
101766
012767
012767

012767
004767

210
212

103021
104455
000030
0000006

202 006000

000000
032767
001402
004767

000001

as;

0000006

0000006 0000006

64:

125252
000002

7%:

0000006
000000G

001777
000003 0000006
0000006 0000006

000272 0000006
000000G

000001
0000006

LSBTTL
BIT
BEQ
MOV

479 1551 sccvxon
ox.suP RACE
14
oDBM1S, -(SP)

MOV
TRAP
cMP

SP,RO
17
(sp)o (sp).

; SP,e

cMP

NUH RETRIES SWP . RETRIES

;

MOV

104455
000027

000106
000110
000116
000120
000126
000130
000136
000144
000146
000152
000154
000162
170
176

USER$1:(AZTEC. czncrc12ncrc3 B16;4

SEQ 024

9.3.3 48
(12)

return;
ENDTST;

101401
000207
004767
006000
103022

214
216
224
226

57-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0

if (.NUM_RETRIES eqlu ZERD) then exitloop;

000040
000042
000044
000050
000052

000054
000056

27-Mer-1985 15:27:28

000000G

CLR

BLOS

JSR
ROR
BCC
TRAP
JMORD
"WORD
'WORD
811
BEQ
JSR
TIRAP
ROR
BHIS

RTS
MOV
BR
MOV
CLR
MOV
ADD
INC
CHP
BLOS
MOV
MOV

MOV
JSR

ROR

BCC
TRAP
LWORD
'WORD

'WORD
8I7
BEQ
JSR

01,-(5P)

;

2563

RETR

;

2565

3%
PC
PC,AZTEC.READY
RO
64

;

2570

S5
27

AZT.READY.ERR
O
ox RET.STAT'

;

2567

2573

;

2575

;
;
:
: COUNT
;
: COUNT
: COUNT,s

2578
2570
5583
2585
5383
2589
2585

;
:

2592
2593

PC DECODE
65
RO
S$

PC
o1 ,RETRIES
144
FREE .MEM. ADDR, TEMP
RO
#-52526 , 3TEMP
02, TEMP
RO
RO, 01777
7%
03,CMD. REF
oDM. 09, BUF . DESCRPTR
0272 ,BYTE.COUNT
PC,EX.SUP.PRG

RO
93
S5
30

EXE.SUP.ERR
O
01,RET.STATUS
84
PC,DECODE

2594
259

2599

;

2601

F—-

"
ZRCFRS3

L3
27-Mer-1985 15:27:28

CZRCFCO RC2S FR END TEST

v03.0

TEST SECTION

000232
000234
000236

104465
006000
103541

000246
000250
000256

000522
016767
005067

57 Mer-1983 13.8.18
8s:

000240 012767 000001 0000006

000262
000270
000276
000304

012767
012767
012767
012767

000000G 000000G
0000006

004767 0000006
006000
103021
104455
000031
0000006
000000
032767 000001
0000006
001402
004767 0000006
104465
006000
103473

000362
000364

000454
012767

9s:

000000G

000372 012767 000000G 000000G
000400 012767 000002 000000G
004767 000000G
006000
103021
104455
000032
0000006
000000
032767 000001 0000006
001402
004767

104465

0000006

006000
103435
012767 000001 000000G
000416
026727 000000G 000104
001412
104455
000033
000000G
000000
104465
006000
103416
012767 000001 000000G
032767 000001 000000G
001402
004767

000000G

BR
MOy
CLR

144
FREE.MEM.ADDR,H.SADD
M.EADD

MOV
MOV
MOV
MOV

108:

000354 012767 000001 000000G
000005

65
RO
164

MOV

002000 000000G
000004 0000006
0000006 000000G
000006 000000G

000312
000316
000320
000322
000324
000326
000330
000332
000340
000342
000346
000350
000352

RAP
ROR
BLO

JSR
ROR
BeC
TRAP
JMORD
.MORD
"WORD
BIT
BEQ
JSR
TRAP
ROR
BLO

MOV
118:

12¢:
135:

184s:

BR
MOV

MOV
MOV
JSR
ROR
BCC
TRAP
JMORD
WORD
.WORD
BIT
BEQ

Page 49
(12)

2604

02000, BUF .LENGTH
04, CHD . REF
oW SADD BUF .DESCRPTR
06,BYTE.COUNT

;
;
:
:

2610
2611
2612
2613

;
:
;

PCISEND.DATA

;

118
S5
3]
SND.DATA.ERR
O
01.RET.STATUS

2598
2608
2609

2615

;

2618

2620

o1.RETRIES

2623

07iP,BUF .DESCRPTR
02,BYTE.COUNT
PC.REC.DATA
RO
134
55
32
RE.DATA.ERR
0
01,RET.STATUS
124

;
:

2628
2629

;

2634

2636

Pe.DECODE
65
RO
164

144
05,CMD. REF

PC,DECODE

ROR
BLO
MOV
BR
(WP
BEQ
TRAP
.MORD
"WORD
‘WORD
iRAP
ROR
BLO
MOV
BIT
BEQ

RO
163
01,RETRIES
144
1P, 0104
143
55
33
DMC.ERR
O
65
RO
163
01,RETRIES
01.RETRIES
154

JSR

USER#1:(AZTEC CZNCFCIZRCFCS. B16;4

SEQ 0244

01 ,RETRIES

JSR

TRAP

VAX-11 Bliss-16 V4.0

:
:

;

2617
2627
2631

PC DO.RETRIES

;

2639
2633
2643
2646

2648

2653

CZRCFCO RC2S FR END TEST

ZRCFRS3

TEST SECTION

v03.0

000530
000534
000536
000542

005767
001402
000167
000207

: Routine Size:
: Meximum steck

000000
000000
000004
000006
0000i0
000012

27-Mer-198S 15:27:28

004767

0000006

27-Mer-1985 13:28:18

15¢:

177270

16%:

178 words,

Routine Bese:

depth per invocation:

4 words

1772%0

19::
18:

104466
006000

187

BEQ

JMP

RTS

USERS1:( AZTEC.CZRCFCJZRCFC3. B816;4

SBTTL

JSR

TRAP

BLO

RTS

2655

’

2538

19 TEST

;

2659

SECTION

PC,879

RO
14

e
VLN
B B 5 5 5 (Gl G U8 Gl G 8 0 W8 08 O3 W38 G4 W4 G W G G G G G A L L G O

BGNTST;
..0

TEST €10 -

NONEXISTENT MEMORY TEST

: DESCRIPTION:

‘

THIS “DIAGNOSTIC MACHINE" PROGRAM WILL ATTEMPT TO READ THE FIRST

'
'

ADDRESS OF THE 1/0 PAGE OF THE HOST CPU.
FOR DIAGNOSTICS AND A NXM SHOULD OCCUR.

THIS LOCATION IS RESERVED

IF THE CONTROLLER DOES NOT SEE THE NYM, THERE WILL BE A FRU CALLOUT

OF THE ADAPTER CARD.

'
:

IF THE OPERATOR HAS SPECIFIED LOOP ON ERROR, LOOPING WILL BE FROM
THE START OF THIS TEST

.b.éLOCKI:

! VER.BO

if .SWP_TRACE then PRINTF (DBM16);

! TEST 10

NUM_RETRIES = ZERO;
nhule ( M.H RETRIES legqu .SWP_RETRIES) do

= Os

if AZTEC_READY ()
then
begin

.’.( 12)

Routine Bese:
ACSCODE - 6324
: Routine Size: 6 words,
2 words
;: Meximum steck depth per invocation:

SE 0P0245 %o

ACSCODE « SS560

ROR

103773
000207

NUM.RETRIES

VAX-11 B lii99-16 V4,0-579

Eflaof (28, RZT_READY_ERR, 0);

' INIT TIP
! GET AZTEC READY FOR OPERATION

N3
.Mu....flfl\l\l......‘.WMUMWMMMUUUOOOOOOOOMMMMMMMUUMM LR XV IV IV IV IV IV ]

TEST SECTION

27-Mer-1985 15:27 1@
27-Mer-1985 13:28:1

X-

lios- 16 v4.0 -5 79
ER$L:(AZTEC .CZRCF C)zRCFC3.816;4

CZRCFCO RC2S FR END TEST

if .RET_STATUS then DECODE ();

SET INT. VECTOR ADDR. 10 4

SET THE VECTOR ADDR.,

SERVICE

ROUTINE ADOR. AND INT. PRIORITY

BUF “DESCRPTR = DM_10;

BYTE_COUNT = 5862;

COMMAND REFERENCE 0
DMCODE STARTING ADDRESS
BYTE COUNTS

if EX_SUP_PRG ()
then

ISSUE AN EXECUTE SUPPLIED CMD
IF ERROR

ERROF (29. EXE_SUP_ERR. 0),

THEN

i .RET_STATUS then DECODE ();

CxXLOOP;
RETRIES = TRUE;
lesve BLOCK];

end;

VER.BO

kKl

! WAIT FOR “DONE" SIGNAL FROM DM

CMD_REF = &

BYTE_COUNT = 02;

COMMAND REFERENCE ¢
CLEAN THE BUFFER
SET BYTE COUNTS = 2

if REC_DATA ()
then

;:(A'v‘us BIT INDICATES ERROR

BUF “DESCRPTA = TIP;

ERROF (30, RE_DATA_ERR. 0);

SENT A RECEIVE DATA COMMAND

i .RET_STATUS then DECODE ():

€L 00P

RETRIES = TRUE;
leeove BLOCK];

VER.BO

TIP ealu ZERD

%D YOU GET SUCCESS FROM DTM CODE?

end;

then

ERloF (31, DMC_ERR, 0);
CxL 00P

RETRIES + TRUE;

eng;
eny;

THEN
REPORT ERROR

SEOPO246 51

.’.( 12)

B4
CZRCFCO RC2S FR END TEST

HWWWLLLLL

TEST

032767
001407
012746
012746
010600
104417

27-Mer-198S 15:27:28

SECTION

27-Mar-198S 13:28:18

VAX-11 ?1:
98-16

379

USER$1:[(AZTEC. Z FC]ZRCFCS 816;:4

€0 0267

%135

if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERO) then exitloop:
end;
return;

ENDTST;

000001

000000G

$710:

000000G

000001

MOV

@0BM16, -(SP)

MOV

SP,RO

CcMP

(SP)+,(SP)«

TRAP

14
24

000000G
0000006

000000G

000001

34:

000003 000000G
000000G 0000006
000164 000000G
0000006

000001

44:

000000G

CLR
JSR
ROR

TIP
PC,AZTEC.READY
RO

2689
2691

TRAP

2694

000001

000000G

000004

000000G

64:

.WORD
.WORD
.WORD
ggg

34
AZT.READY.ERR
O
g%.RET.STATUS

JSR
TRAP

PC,.DECODE
65

ROR

sgv

g%.RETRIES

MOV
MOV
MOV
JSR

#3,CMD.REF
o0M. 10,BUF .DESCRPTR
9164 ,BYTE.COUNT
PC,EX.SUP.PRG

2696

11$

8CC
TRAP
.WORD
.WORD
LWORD

EXE.SUP.ERR
O

JSR
TRAP

PC,DECODE
65

BLO
ggv

114
3%.RETRIES

2720

MOV

#4,CMD.REF

2727

gég

S$:

2685
2687

ROR

0000006

#1,-(SP)

NUM.RETRIES
?g?.RETRIES.SHP.RETRIES

BLO

000000G

2683

CLR
gflg

BCC

000001

4710 TEST SECTION

:}.SUP.TRACE

MOV

000000G 000000G

LSBTTL

gég

ROR

64
SS
35

g%.RET.STATUS

2714

CZRCFCO _RC25 FR END TEST

ZRCFB3
v03.0

27-Mar-198
27-Mar-198

TEST SECTION

012767
012767
004767
006000
103021

0000006 0000006
000002 0000006
0000006

104455
000036

000001

0000006

000001

16_v4.0-579
CZRCFC]ZRCFC3 B16:4

SEOP0248 -

.9.(12)

#T1IP,BUF .DESCRPTR
02,BYTE . COUNT
Pg.REC.DATA

2728
2729
2731

84
35
36
SE.OATA.ERR

2734

g%.RET.STATUS

2736

PC,DECODE

78:

114

000000G

;I.RETRIES

0000006

(V. [V ]

84:

2739
2733
2743
2746

104465

006000
103414
012767
032767
001402
004767
005767
001223
000207

000001
000001

114

000000G
000000G

#1,RETRIES
:l.RETRIES
0
PC,D0.RETRIES

94:

0000006
0000006

104:
11§:

2748
2753

ggH.RETRIES

2755

2660

AC$CODE +« 6340
123 words,.
Rout ine Base:
; Routine Size:
4 words
; Meximum steck depth per invocation:

000000
000000
000004
000006
000010

004767

177406

103773

IV ] g
(C I

2764
2765

.SBTTL

T10 TEST

JSR

PC,$T10
66
RO
14
PC

TRAP
ROR

BLO

000207

RTS

6 words,

Maximum stack depth per

2761
2762
2763

1¢:

104466
006000

; Routine Size:
;

T10::

AC$CODE + 6726
Routine Base:
2 words

invocation:

BGNTST;
oo

! TEST #11 - BUS ADDRESSING/DATA TEST A

ECTION

2759

D4
CZRCFCO RC2S FR END TEST

ZRCFB3

TEST SECTION

V03.0

VOO OOV

& B UVTVITVTUVIVIVIUIUL B 5 5 5 55 Gl G4 G4 G4 G4 G4 G4 G G4 G G G G G G G (0 G o O (0 (0 (o

2766

27-Mar-1985 15:27:28

27-Mer-1985 13:28:18

VAX-11 B liss -16 V4,0-579
USER$1:(AZTE C.CZRCFCIZRCFC3.816;4

DESCRIPTION:
THIS "DIAGNOSTIC MACHINE" PROGRAM ASKS THE PDP-11 PROGRAM TO FILL FREE

MEMORY (THAT MEMORY AVAILABLE TO THE PDP-11 PROGRAM THAT IS NOT BEING
USED BY THE PROGRAM OR THE PDP-11 SUPERVISOR) WITH AN ADDRESSING

PATTERN (WRITE ADDRESS WITH ADDRESS) AND REPORT THE LOCATION AND SIZE
?fiETgET: EEEEEE%RY
EVERY LOCATION OF FREE MEMORY WILL BE READ AND

IF THE DATA DOES NOT COMPARE CORRECTLY, THE ADDRESS AND DATA
EXPECTED ARE REPORTED.

abel
BLOCK1;

! VER.BO

if .SWP_TRACE then PRINTF (DBM17);

TEST 11

GET AZTEC READY FOR OPERATION

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do

T18= 11;

iAZTEC_READY ()
(2]

begin

ERNDF (32, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

CKLOOP;

RETRIES = TRUE;
end

else
BLOCK]1 :
begin
.

CMD_REF = 3;

BUF “DESCRPTR = DM_11;
BYTE_COUNT = 100¢2;
i; EX_SUP_PRG ()
en

begin

ERADF (33, EXE_SUP_ERR, 0);

! COMMAND REFERENCE o

! DMCODE STARTING ADDRESS
! BYTE COUNTS
ISSUE AN EXECUTE SUPPLIED IF STATUS BIT INDICATES ERROR
THEN

if .RET_STATUS then DECODE ();

CKLOOP;

RETRIES = TRUE;

le:vc BLOCK] ;

end;

! VER.BO

SEOP0249 ”

090(12)

ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0

TEST SECTION

2823

2826 S

:
:
:

2824
2825

S
S

2827

2828
2829
2830

S
S
S

gggé

:
:

833
2834

S
6

2836

5835 6

3
:
3

2837
2838
ggzg

;
:
:

<2841
2842
2843

gg:g

;
:
;
;
;
;
;
;

2846
2847
<2848
2849
2850
o851
2852
2853

6
6
6
6
6
S
S
S

;

H_SADD = .FREE_MEM_ADDR;

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC. CZRCFC]ZRCFC3 B16;4

! LO-BYTE FREE HOST MEMORY ADDRESS

TEMP= _H_SADD;
BUF ENGTH = MEM_SIZ;

! LOAD START ADDRESS FOR INIT
! TOTAL FREE HOST MEMORY SIZE

CMD_REF
= ‘

! COMMAND REFERENCE 04

H ERDD . H SADD - 2 + (,BUF _LENGTH#2); ! END OF FREE MEM ADDRESS

BUF “DESCRPTR = H _SADD;
! DESCRIPTOR ADDRESS
BYTE_COUNT
= *
" TOTAL BYTES TO BE TRANSFER
! INITIALIZE MEMORY BUFFER WITH A PATTERN BEFORE
! ASKING DM CODE TO WRITE TO THE BUFFER

incru COUNT from .H_SADD to .H_EADD by 2 do
be

T8 - w0 1777771,

TEMP = .TEMP « 2;

S
S
g

end;

H_EADD = 0;

! HIGH BYTE FREE MEMORY ADDRESS

S5
S
6

if SEND_DATA ()
then
begin

! ISSUE SEND DATA COMMAND
! STATUS BIT INDICATES ERROR
! THEN

ERRDF (34, SND_DATA_ERR, 0);

if .RET_STATUS then DECODE ();
CKLOOP;
RETRIES = TRUE;
leave BLOCK];
end;

CMD_REF =

! VER.BO

o854 S

gggg

BUF DESCRPT& = TIP;

! CLEAN THE BUFFER

;
;
;

2857
2858
2859

S
S
6

if REC_DATA ()
then
beasn

! SENT A RECEIVE DATA COMMAND
! STATUS BIT INDICATES ERROR
' THEN

ggg

;
3
;
;
;
3
;
3

2862
2863
2864
2865
2866
2867
2868
gggg

6
S
S
g

gg;g

TIP = 2;

;
;
;
;

2873
2874
2875
2876

S
S
6
6

if EXAM_DATA ()
then
a
ER DF (36. BUFF _ERR, RC2S$ERR_RPT);
CKLOOP
RETRIES = TRUE;
end;

;:
;
s

2877
2878
2879

BYTE_COUNT = 02;

6
6
6

6
&
S

ERRDF (3S, RE_DATA_ERR, 0);

! SET BYTE COUNTS = 2

if .RET_STATUS then DECODE ();
CKLOOP;
RETRIES = TRUE;
leave BLOCK];
end;

! VER.BO

s EXAMINE THE FREE HOST MEMORY
'

ADDRESS CONTAIN OWN ADDRESS

SE°p2§3° ss
(12)

F4
CZRCFCO RC2S FR END TEST

ZRCFR3

TEST SECTICN

n
oTM
[+ ]
w

HWWWELLLALLWUL

@0 @0

@0
@0 @

®0

v03.0

®e

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579

USER$1:(AZTEC.CZRCFCJZRCFC3.816;4

SEQ 0251
Page

(12)

end;

if (.RETRIES) then DO_RETRIES ();
if (.NUM_RETRIES eqlu ZERO) then exitloop;
end;

return;

ENDTST;

000001

$T11:

0000006

000001

JSBTTL
MOV
géa

$T11 1551 SECTION
R1,-(SP)
:1' SWP. TRACE

MOV

00BM17, -(SP)

MOV
TRAP

SP,RO
17

MOV

0000006

18:

CMP

CLR

01,-(SP)

(sp)o (sp)o

RETR

2760
2785

SP,s

000000G 000000G

24:

gtgs

ggnae1nxes SWP.RETRIES

2787
2789

000556
000013 0000006
0000006

34:

JMP
MOV
332

18
013,71IP
PC AZTEC.READY

2791
2793

BCC

LWORD
"WORD
JWORD
géa

40
AZT.READY.E®R
©
:%.RET.STATUS

TRAP

000001

000000G

0000006

000502
000001
000442
000003
0000006
000310
0000006

as:

0000006
0000006
000000G
0000006

5%:
63:

JSR

TRAP
ROR

BHIS
JMP
MOV
JMP
MOV
MOV
MOV
JSR

0000006

PC,DECODE

65
RO

5%
18
#1,RETRIES
164
#3,CMD
. REF
oDM. 11 ,BUF . DESCRPTR
0310,BYTE.COUNT
PC,EX.SUP.PRG

2801
2793
2807
2808
2809
2811

TRAP

2814

g}.n€1.51n1us

2816

géa
7%:

2798

LWORD
'WORD
'WORD

0000006

2796

ROR

BCC

000001

JSR

TRAP

41
EXE.SUP.ERR
O
PC,DECODE

G4
CZRCFCO RC25 FR END TEST

ZRCFR3

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

V03.0

000216
20

VAX-11 B liss-16 V4,0-579
USER#$1:( AZTEC. CZRCFC]ZRCFC3 B16;4
79

SEQ0252

(12)

8¢:
9:

84
184
1,RETRIES

164
FREE. nen ADDR H.SADD

H.SADD,
T

MEM.SIZ aur LENGTH
aurLENGTH, RO

n SADD, RO

RO,H.EADD

02.H.EADD
oa CMD. REF

2827

suoo BUF .DESCRPTR

06,BYTE. COUNT

H.EADD,R1
H.SADD,RO

177777

000002

000000G

0000006

o 1,3TEMP

114:

RO.R1

103021
104455

000042
0000006
000000
032767 000001
001402

006000

2, TEMP

oz'RO
104

H.EADD
PC,SEND.DATA
RO

004767
006000

004767
104465
006000
103476
012767
000457
012767
012767
012767
004767

104:

138
55

2833
2835

*,COUNT

#
COUNT,

2833
2839
2841
2844

gND.DATA.ERR

000000G

#1,RET.STATLS

124

124:
000001

+,COUNT

103021
104455
000043
0000006
000000
032767 000001
0000006
001402
004767
0000006
104465
006000
103440
012767 000001
0000006

PC,DECODE

18$

#1,RETRIES

000000G

000005 000000G
000000G 0000006
000002 0000006
0000006

2846

13%:

164

S, CMD . REF
#TIP,BUF
. DESCRPTR
02,BYTE
. COUNT
RO

154
it

ge.oa1n.ena
#1,RET.STATUS

144

144;

2862

PC,DECODE

184

#1,RETRIES

2865

000552
000554
000556
000560
000564
000566
000570
000572
000600
000606
000610
000614
000620
000622
000626
000630

000421
012767 000002 000000G
004767 0000006
006000
103012
104455
000044
0000006
0000006
104465
006000
103416
012767 000001 000000G
032767 000001 0000006
001402
004767 000000G
005767 0000006
001402
000167
177206
012601
000207

; Routine Size:

: Maximum stack depth per

000000
000000
000004
000006
000010
000012

004767

‘

15¢:

104466
006000

164:

17%:;
18¢:
Rout ine Base:

S words

RO
184
#1,RETRIES
0%§RETRIES
1
PC,D0.RETRIES

2891

! <BLF/PAGE>

2859

2871

2873

2876

2878
2883

2885

24
(SP)+,R1

2760

AC$CODE + 6742

T11 TEST SECTION

18:

PC,$T11
66
RO

AC$CODE + 7574
Routine
Base:
0
6 words, .
2 words
;: Maximum staeck depth per invocation:

.9‘(12)

?g?.RETRIES

; Routine Size:

CZRCFC]ZRCFCS B16:4

R§250ERR.RPT

103773
000207

SEOP0253 58

BUFF .ERR

invocation:

177142

164
02,T1IP
PC,EXAM.DATA
RO
164

uaUl

TEST SECTION

v03.0

000534
000536
000544

27-Mar-198
27-Mar-198

CZRCFCO RC2S FR END TEST

ZRCFB3

Ll and

2889

14
CZRCFTO RC25 FR END TEST

ZRCFB3

TEST SEC TION

v03.0

27-Mer-1985 13:28:18

VAX-11 Blis 8-16 V4.0
USER$1:(AZ EC CZRCFC]ZRCFC3 816;:4

G G G o (o 0 G (0 o G (N

v
& Auniiniuiviaunea
s b s B 0l U O L W O G L (N G 0 N L (0 L0 0 (0 L 0

.'.n.....l...'.........l.‘.'.l.......!.l.l.l.t...I.O.!.....l.l“.'.’“.‘.'.'.‘.l.‘".....'.’.l“.’....“.’fl.‘“fl

27-Mer-1985 15:27:28

BGNTST;
Yoo

TEST 012 - BUS ADDRESSING/DATA TEST 8

' DESCRIPTION:
THIS TEST FIRST BRINGS AZTEC DRIVE READY AND ONLINE AND THEN
LOADS DM_12 PROGRAM VCCTOR TO PORT CONTROLLER MEMORY. THEN

DOES THE FOLLOWING:
A.

GIVE FREE MEMORY ADDRESS AND BUFFER SIZE TO DM CODE
AND ASK DM CODE WRITE A PATTERN OF ONE'S COMPLEMENT

OF ADDRESS AT THE ADDRESS AND EXPECTS TO RECEIVE
SUCCESS OR FAILURE CODE
F ROM DM PROGRAM, THEN CHECKS
MEMORY BUFFER FOR THE EXPECTED PATTERN AND REPORTS
ERROR IF ENCOUNTERED.
B.
C.

IF SUCCESS,

ASKS DM CODE TO WRITE TO MEMORY A PATTERN

IF SUCCESS,

ASKS DM CODE TO WRITE TO MEMORY A PATTERN

OF ALL ONES AND CHECKS FOR THE PATTERN IN MEMORY.

OF ALL ZEROES AND CHECKS FOR THE PATTERN IN MEMORY.

IF OPERATOR ASKS FOR RETRIES THE WHOLE TEST WILL BE RETRIED
ONLY IF FAILURE ENCOUNTERED.

abel
BLOCK];

! VER.BO

if .SWP_ TRACE then PRINTF (DBM18);

TEST 12

NUM_RETRIES = ZERO;
while ( .NUM_RETRIES lequ .SWP_RETRIES) do
be
TI

= 12;

if A ZTEC_READY ()
then

beain

ERRDF (37,

AZT_READY_ERR,

! GET AZTEC READY FOR OPERATION
0);

if .RET_STATUS then DECODE ();

CKLOOP;
RETRIES = TRUE;
else
BLOCK] :

end

begin

SEND DOWN LINE LOAD THE DM CODE AND EXECUTE THE DM PROGRAM WHICH IT WILL

WRITE THE FREE HOST MEMORY WITH COMPLEMENT THE TESTING ADDRESS

SEQ 0254
Page

(13)

J4
CZRCFCO RC25S FR END TEST

ZRCFR3
v03.0

LTUITIUIWLY

c MD_REF =

BYTE_COUNT = 202¢2;
if EX_SUP_PRG ()
then

begin

VAX-11 Bliss-16
USER$1:(AZ EC CZRCFC]ZRCFCB B16;:4

! COMMAND REFERENCE #
DMCODE STARTING ADDRESS

! BYTE COUNTS

ISSUE AN EXECUTE SUPPLIED -

%;ESTATUS BIT INDICATES ERROR

ERNOF (38, EXE_SUP_ERR, 0);

VIO OO0 OO
RN IINOO TN

SUP-DESCRPTA = DM_ 12,

if .RET_STATUS then DECODE ():

CKLOOP;

RETRIES = TRUE;

leave BLOCK];

end;

VER.BO

incr:‘COUNT from 0 to 2 do

QRN IVNNNNNNOO

2949
2950
2951
2952
2953
2954

TEST SECTION

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

.FREE_MEM_ADDR;

L0-BYTE FREE HOST MEMORY ADDRESS

. H SADD;
TOTAL FREE HOST MEMORY SIZE
BUF LENGTA = HEH SI1Z;
H_EADD = .FREE_MEM_ ADDR - @ .BUF _LENGTHe#2;
! END ADDRESS OF BUFFER

! SENT FREE HOST MEMORY ADDRESS AND IT LENGTH TO DM PROGRAM
+

CMD_REF = 4;

! COMMAND REFERENCE 04

BUF DESCRPTR = H_SADD;
! DESCRIPTOR ADDRESS
TOTAL BYTES TO BE TRANSFER
BYTE_COUNT = 06;
INITIALIZE MEMORY BUFFER uxtu A PATTERN BEFORE
ASKING DM CODE TO WRITE TO THE BUFFER

incru LOOP from .H_SADD to .H_EADD by 2 do
TEMP
= #o'125252';
S5t
TEMP

end;

_TEMP + 2;

H_EADD = 0;

HIGH BYTE FREE MEM ADDRESS

if SEND_DATA ()

ISSUE SEND DATA COMMAND
?LSLUS BIT INDICATES ERROR

then

begin

ERADF (39. SND_DATA_ERR, 0);
if .RET_STATUS then DECODE ();

CKLOOP;

RETRIES = TRUE;

leave BLOCK];

end;

VER.BO

g WAIT FOR “DONE" SIGNAL FROM DM
CMD_REF = 5;

BUF DESCRPTR = TIP;
BYTE_COUNT = 02;

COMMAND REFERENCE #
CLEAN THE BUFFER
SET BYTE COUNTS = 2

579

s€,0255

"%13)

ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

TEST SECTION

3006
3007

3
:

3009
ggig

7
;

3012

:
;i

3008

if REC_DATA ()

then

beain
ERRDF (40, RE_DATA_ERR, 0);

:
:
:
:
:
:
;i
;

7
7
7
7
6
6
6
&

if .TIP nequ %o'104’
thcn

3023

RETRIES = TRUE;

305 7

:
:
:

3027
3028
3029

:
:

gggg g
gg;g 2

;
:
:

gggg g
gggg g
3040 6

:
:
3
:
:

3042
3043
3044
3045
3046

:
:

< f

6
6
6

3041

3047
3048

6
6

6
g

3052 S
3053

3054

! THEN
! REPORT ERROR

! VER.BO
* IF DM RETURNS FAILURE CODE
! THEN ABORT DM PROGRAM

!
! EXAMINE THE FREE HOST MEMORY

ek,

if .COUNT eqlu O then TIP = 1;

! ADDRESS CONTAINS COMPLEMENT
' OF ADDRESS

if .COUNT eqlu 1 then TIP = ALL_ONES;
! MEMORY PATTERN SECOND TIME
if .COUNT eqlu 2 then TIP = ZERO;
! MEMORY PATTERN THIRD TIME
if EXAM_DATA ()

then

beain
ERNDF (42, BUFF _ERR, RC2SSERR_RPT);
CKLOOP;
RETRIES = TRUE;
leave BLOCK];
! VER.BO

end;

H
} SIGNAL DM TO CONTINUE TO EXECUTE THE PRCGRAM

’

end;

:
;

if (.RETRIES) then DO_RETRIES ();

gggg

if (.NUM_RETRIES eqlu ZERD) then exitloop;

3060 3

3
3

i srutus BIT INDICATES ERROR

ena: =

4
4

3061
3062

! SENT A ascexve DATA COMMAND

3055
gggg

:
;

USER$1:(AZTEC. CZRCFC]ZRCFC3 816;4

o tes

7
7
7
7
7

3049
gggg

£n or (41, DMC_ERR, 0);

3026 6

']
;
;

CKLOOP;
RETRIES = TRUE;
leave BLOCK];
end;

3022 7

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0

if .RET_STATUS then DECODE ();

3013
3018
3015
3016
3017
3018
3019
gggg

27-Mer-1985 15:27:28

end;
return;

' ASK DM CODE TO CONT.

. 092326 61

(13)

———

L4
ZRCFRS

(f'ZR
rco acas FR END TEST

v0s.0
:

3063

000000

ENDTST;

004167

0000006

000004 032767 000001
000012

000014
000020
000028
000026
000030

001407

0000006

012746 0000006
012746 000001
010600
104417
022626

000032 005067 0000006
000036 026767
000044

000046

101401

000000G 000000G

000050 012767 000014 0000006
000056 004767 0000006

000062
000064

006000
103023

000070
000072
000074

000045
0000006
000000

000104

001402

27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

$T12:

000106

000112

032767 000001

004767

104465

18:

28:
3s;

000116
000120

000122
000130
000134
030142
000150
000156
000162
000164

000166
000170
000172
174
176
204

103001
000207

012767
012767
012767
012767
004767
006000
103023

000167

000001 0000006
000003 0000006
000000G 000000G
000628 000000
0000006
000552

206 004767 0000006
104465
214 006000

216
220

103001
000207

222
230
238
236
244

012767
000167
005002
016767
016767

000001 0000006
000452
000000G 0000006
0000006 000000G

00260

016700

0000006

00252

Ss.
68:

016767

000000G 0000006

RTS

7%:

8s:
9s:

108:

USER$1:[AZTEC. zacrclzacrcs B16:4

8712 TEST SECTION
R1, $SAVE2

;

01.SWP. TRACE
18

Page

(135

2890

;

o08M18, - (SP)
01,-(SP)
sv.ao
x
(SP)e,(SP

SEQ 0257

2924

; SP,e

NUM .R
, év

;

NUM.RETRIES SWP .RETRIES

2926

2928

MOV
JSR

014,11P
Pc AZTEC.READY

;
:

2930
2932

TRAP

;

2935

01,RET.STATUS

2937

;
:
:
;
:
;

2940
5049
2950
2951
2953

;

2956

;

2958

:
:
: COUNT
;
:

291
2955
2965
2967
2968

;

2970

&5
AZT.READY.ERR
O
as

JSR

PC,DECODE

ROR

TRAP

BHIS
RTS

MOV
)
MOV
MOV
MOV
JSR
ROR
B8CC

TRAP
LMORD
.MORD
'MORD
817
BEQ

000000G

212

BLOS

BEQ

0000006

000001

cHe

817

104455
000086

000000
032767
001402

CLR

.MORD
'MORD
'MORD

as;

000114 006000

MOV
MOV
MOV
TRAP
cHe

ROR
BCC

000000

0000006

817

BEQ

000066 104455

000076

,SBTTL
JSR

VAX-11 ?1.
o-16 V4

JSR
AP
ROR

BHIS
RTS

MOV
JHP
CLR
MOV
MOV

MOV
MOV

&S
S
PC

o1,RETRIES
03,CMD . REF
#0M_ 12.BUF .DESCRPTR
0624 ,B8YTE . COUNT
PC,EX.SUP .PRG
RO
93
224

S5
46

2932

EXE.SUP.ERR

PC . DECODE
RO
6S

8%
PC

o1 .RETRIES
224

FREE .MEM. ADDR, H. SADD
H.SADD, TEMP
MEM.SIZ,BUF .LENGTH
BUF .LENGTH,RO

2969

[r——

ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

27-Mer-1985 15:27:28

TEST SECTION

006300
066700
010067
162767
012767
012767
012767

016701

016700
000410
012777
062767
062700
020001

101766

005067
004767
006000
103021

27-Mer-1985 13:28:18

0000006
0000006
000002 000000G

000004 0000006
000000G 0000006
000006 000000G

0000006

000002

0000006
0000006

118;

124

0000006
0000006

104455

000047
000000G
000000
032767

001402
004767
104465
006000
103541
012767
000522
012767
012767
012767

000001

0000006

000001

138
000000G

000005 0000006
000000G 0000006
000002 0000006

000001

148 ;

104465

H.EADD
PC,SEND.DATA
RO
144

LHORD
.HMORD
LMORD

47
SND.DATA.ERR
O

8EQ
JSR
TRAP
ROR
8LO
MOV
gr
MOV
MOV
MOV

134
vc DECODE
65
RO
244
01 ,RETRIES
224
05,CMD. REF
o71P,BUF .DESCRPTR
02,BYTE.COUNT

JSR

0000006

104455

012767

CLR
JSR
ROR
8CC

8LO0S

ROR
8CC

001402
004767 0000006
104465
006000
103503
012767 000001 0000006
005464
026727 000000G 000104
001413
000051
0000006
000000

H.SADD. no
24
0- szsze FTEMP
02,TEMP
02,R0
RO,R1

8I1

004767 000000G

032767

MOV
B8R
MOV
ADD
ADD
cHe

TRAP

006000
103021

104455
000050
0000006
000000

RO
FREE .MEM. ADDR, RO
RO,H.EADD
oz H.EADD
~MD, REF
on ..Aoo BUF .DESCRPTR
06,8 e com

MOV

0000006
125252
000002

ASL
ADD
MOV
SUB
MOV
MOV
MOV

000001

0000006

164

2974
2975
2976

2980

;
;

2986
2988

;

2991

01,RET.STATUS

;

2993

;
;
;
:
;

299
2990
3003
3004
3005

118

PC.REC.DATA

RO
164

BEQ
JSR
TRAP
ROR
BLO
MOV
B8R
cHP
BEQ

154
Pc DECODE
65
RO
244
01 ,RETRIES
224
T1P, 0104
173

LHORD
.WORD
LMORD

S1
DMC.ERR
©

TRAP

MOV

;

; ¢,L00P

2982
2983
2980

S5
S0
RE.DATA.ERR
O

TRAP

;
;
;

— ozsa 63

;
;
; *,L00P
; LOOP,e

TRAP
LHORD
.MORD
LMORD

811

158

H.EADD

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFC)ZoTFC3.816;4

;

3007

3010

;

3012

;
;
:

3015
3009
3019

b))

3022

01,RETRIES

;

3023

01,RET.STATUS

N4
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27::28
27-Mer-1985 13:28::18

TEST SECTION

VAX-11 B lioe

6 v4.0-579

USERS1:( AZ7
E CZRCFC lZRCFCS 816;4

ROR

SEQ 0259

(13)

8CC

174:
000001

000000G

000001
177777
000002

000000G

0000006
0000006

RTS

;'.‘2

19¢:

MOV
gz

204

CLR
JSR

02
R2,

TRAP
ROR

101
00016

032767

001402

004767

005767

001402

000167
000207

; Routine Size:
; Meximum steck

004767

10
12

1773%

000001

000000G

0000006
0000206

177102

; Routing Size:

3t
)

2965

22%:

BH]
JMP
gé;

224
104

23%:

JSR
157

Routine Bese:

7 words

17703

Te:

1%:

224

cHp

R2,02

01 ,RETRIES

234

PC,D0.RETRIES

NUM_RETRIES
244
24

BEQ

JMP
RTS

ACSCODE - 7610

LSBTTL

T12 TEST SECTION

JSR

PC,8T12

TRAP

ROR
8L0
RIS

6 words,

Mox iaus stock gepth per

INC

depth per mvocotaon

104466
006000
103773
000207

244

3045

244

239 words,

Routine Bese:
ACICODE
nvocetion:
2 words

S<BLF /PAGE »

3038

01 ,RETRIES

21%:

000002

COUNT,»

B8LO
Bflgv

a=3%

005202

30%6

2l
35
52
BUFF .ERR
:g?SOERfl.flPT

. WORD
.WORD
. WORD

020227

B CM?.‘

PC,EXAM.DATA
RO

ROR

TRAP

000000G

3032

MOV

184:

8CC

000001

3 COUNT

10546

2890

B5
27-Mer-198S 15: 27:2 8
27-Mer-1985 13: 28:1 8

CZRCFCO RC2S FR END TEST

BB BB DB

GO0 000000 80 G G G G G G0 G N G G G G G G G G Gl (G L G G (o (0 (0 (0 (o G (0 L (o (0

0 0 8 ol (ol

TEST SECTION

VAX-11 Blise-16
579
USER#1:
1:(AZTEC. CZRCFC]ZRCFCS 816;:4

BGNTST;
Yoo

' TEST €13 - BLOCK TRANSFER TEST
|

DESCRIPTION:
THE ABILITY OF THE AZTEC CONTROLLER TO DO BLOCK TRANSFERS TO AND FROM
MEMORY WILL BE TESTED WITH DIFFERENT DATA PATTERNS.
THE “WRITE HOST
MEMORY* XFC AND THE “READ HOST MEMORY* XFC WILL BE USED.
_THE HOST
MEMORY BUFFER IS 256 WORDS IN SIZE.
4 DIFFERENT DATA PATTERNS AS
GIVEN BELOW ARE USED.

i
'
'

i
P
;

PATTERN 0

PATTERN 1

111111
044444
022222

i
:
'
3

PATTERN 2

PATTERN 3

155555
133333

066666

1) THIS TEST BRINGS RC25 CONTROLLER ONLINE AND LOADS DM CODE

PROGRAM TO CONTROLLER'S MEMORY.

:
'

2) FIRST THE HOST MEMORY BUFFER IS INITIALIZED WITH PATTERN 0.
;ssgggUESTA COMMAND WITH HOST BUFFER ADDRESSES (TRANSMIT AND RECEIVE)

¢
'

3) DM CODE THEN READS HOST MEMORY BUFFER AND PUTS IN CONTROLLER'S
MEMORY AND WRITES BACK IN HOST MEMORY RECEIVE BUFFER USING XFC'S.

i
;
;

4) HOST PROGRAM COMPARES BOTH BUFFERS FOR DATA PATTERN 0.

S) IF THERE WAS AN ERROR IN COMPARISION THE ERROR WILL BE REPORTED.
IF THERE WAS ERROR IN THE MSCP DUP CALLS OR INITIALIZATION, THIS

'
'

WILL ALSO BE REPORTED.

STEPS 2 THRU S5 WILL BE REPEATED FOR DATA PATTERNS 1,2 AND 3.

j
)

IF AN ERROR WAS ENCOUNTERED THE TEST WILL BE ABORTED. IF OPERATOR
CHOSE FOR RETRIES, RETRIES WILL BE DONE FROM THE START OF THE TEST.

‘
i
;

label
BLOCK];
if .SWP_TRACE then PRINTF (DBM19);

! TEST 13

NUM_RETRIES = ZERO;
uhil:‘(,NUH_RETRIES lequ .SWP_RETRIES) do
TIP

= 13;

! GET AZTEC READY FOR OPERATION
if AZTEC_READY ()
then

! IF FAILURE REPORT ERROR

SEQ 0260
P
65

."(14)

C5
CZRCFCO RC2S FR END TEST

ZRCFR3

TEST SECTION

B
i

H
H
H

i
:
:

‘
:

H
:

N
i
¢
B

H
B

:
:
B
H
°
b

B
:
B
H
‘.
i
5

:
:
:
:
H

B
:

5
H
B
i
H

‘
b4
:
:
H

:
:

i
@
B
5

NOO® NNV
VIVIVNIOOT OO VTUIVIVNUVIN S & BUTUTUIAUIWUL

v03.0
b

27-Mer-1985 15:27:28
27-Mar-1985 13:28:18

VAX-11 Bli
USER$

88-16 V4.0-579

1:[AZTEC.CZRCFC)ZRCFC3.816;:4

begin

ERaDF (43, AZT_READY_ERR, 0);
if .RET_STATUS then DECODE ();

DECODE THE STATUS, IF ANY

RETRIES = TRUE;

SET RETRIES FLAG

end

else
! LOAD DM CODE INTO CONTROLLER'S MEMORY
BLOCK]
:

%m-mmv

BUF “DESCRPTR = DM 13;

COMMAND REFERENCE #
DMCOD" STARTING ADDRESS
BYTE
UNTS

if EX_SUP_PRG ()
then
hcain
ERRDF (44, EXE_SUP_ERR, 0);

ISSUE AN EXECUTE SUPPLIED PROGRAM
IF STATUS BIT INDICATES ERROR
THEN REPORT ERROR

BYTE_COUNT = xos‘ :

if .RET_STATUS then DECODE ();

DECODE STATUS, IF ANY

RETRIES = TRUE;

leave BLOCK];

end;

incru COUNT from O to 3 do

begin

SELECT ONE OF THE PATTERNS AND INITIALIZE HOST TRANSMIT BUFFER

WITH THE SELECTED PATTERN.

selectoneu .COUNT of
set

(0] :

PATTERN_ADDR = DATA_PAT]1;

) :

PATTERN_ADDR = DATA_PATZ;

] :

PATTERN_ADDR = DATA_PAT3;

)

PATTERN_ADDR = DATA_PATS;

tes;

incru J from 0 to 254 do

INITIALIZE TRANSMIT
BUFFER OF 256 WORDS

begin

incru K fron 0 to 2 do

WITH THE PATTERN

XH?
_DATA_BUF [.J] = .PATTERN_ADDR[
J=

end;

,J e

IR J MITHIN INER LOOP

. 0261 66
(14)

D5
CZRCFCO RC25 FR END TEST
TEST SECTION

Je* J- 1

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFCJZRCFC3.816;4

DECREMENT J TO ADJUST POINTER

end;

s GIVE START ADDRESS OF TRANSMIT AND RECEIVE BUFFER AND SIZE TO DM CODE
SEND_PKT [WORDO
SEND PKT
[WORDI

o..II

NNNNOOOOINNNOOOO NNNNANAANOOOONOC
TN UNNNNNIIO OO
I

vV03.0

3179
3180
3181
3182

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

XHT _DATA_BUF [0]3

A&V DATA_BUF [0];"
l

BUF _DESCRPTR = SEND PKT;
BYTE_COUNT = 08;
if SEND_DATA ()
then

bcain
ERRDF (45, SND_DATA_ERR, 0);
if .RET_STATUS then DECODE ();

LOW WORD OF TRANSMIT ADDRESS
HIGH UORD OF TRANSMIT ADDRESS
LOW WORD OF RECEIVE ADDRESS
HIGH HORD OF RECEIVE ADDRESS
COMMAND REFERENCE 04
DESCRIPTOR ADDRESS
TOTAL BYTES TO BE TRANSFERRED

e i@

ZRCFR3

ISSUE SEND DATA COMMAND
IF _STATUS BIT INDICATES ERROR

THEN REPORT ERROR

DECODE RETURN STATUS

RETRIES = TRUE;
exitloop;

end;

E %asygls'REC_DATA COMMAND AND GET THE RESULT OF DM CODE STATUS
CMD_REF =

,CMD_SLO

BUF “DESCRPTR = 119:
BYTE_COUNT = 02;
if REC_DATA ()

then

begin

ER&DF (46, RE_DATA_ERR, 0);

COMMAND REFERENCE ¢
CLEAN THE BUFFER
SET BYTE COUNTS = 2

SENT A RECEIVE DATA COMMAND
I‘ STATUS BIT INDICATES ERROR
REPORT ERROR

if .RET_STATUS then DECODE ();
RETRIES = TRUE;

exitloop;
end;

if .TIP nequ %o'104’
then

IF DM RETURNS FAILURE CODE
THEN ABORT DM PROGRAM

ER DF (47, DMC_ERR, 0);

RETRIES = TRUE;
exitloop;

end;

! COMPARE TRANSMIT AND RECEIVE BUFFERS FOR THE PATTERN
incru J from 0 to 255 do

begin

if .XMT_DATA_BUF [.J] nequ .RCV_DATA_BUF [.J)

then

SEQ_0262
P age
67

(14)

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28

HUWWWELELLLLNVO
O ~J~J0D 000D 0o 0o o 0o Co oo

TEST SECTION

27-Mer-1985 13:28:18

93 . XHT _DATA_BUF [.J);
[.J
PS = .XMT_DATA BUF ]

P4 = RCV.DATABUF

P6 = .RCV_DATA BUF
[.J);
ERRDF (48, BUFF _ERR, 0);
PRINTR (FMT?, .P3, .P4

PRINTB (FMT7A, .PS, .965;
RETRIES = TRUE;

exitloop;

VAX-11 B
USER$1:
[

fiQ'

E9
V4.,0-5

ZRCFC)ZRCFCS 816;:4

SEOPO263 "

.9.(14)

! TRANSMIT BUF FAILURE ADDRESS
! RECEIVE BUF FAILURE ADDRESS
i TRANSMIT DAT

! RECEIVE DATA
! PRINT ERROR INFO.
!

TURN ON RETRIES

end;

end;
end;

end;

if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERQ) then exitloop;
end;
return;

ENDTST;

000000G
000001

000000G

$T13:;

000000G
000001

0000006
000000G 000000GC
00001S 000000G
000000G

14:
2$:
34:

.SBTTL

R1, $SAVE4

MOV
MOV
MOV
TRAP

#DBM19, - (SP)

g%s

000000G

44:

000000G
000000G
000000G

S$:

3063
3111

CMP
CLR
CMP

(sp)o (SP)+
NUM.RETRIES
NUM. RETRIES, SWP . RETRIES

;
i

3113
3115

RTS

PC
015,TIP

BLOS

MOV
JSR
TRAP

000001
000674
0000005
000000G
000322

01,-(SP)

;

; SP,e

ROR

000000G

01,5uP . TRACE

$P.RO

8CC

000001

$T13 TEST SECTION

JSR

.WORD
. WORD
BIT
BEQ
JSR
MOV
JMP
MOV
MOV
MOV

PC,AZTEC.READY

3117
3120

53
S5
53
AZT.READY .ERR

3123

#1.RET.STATUS

;

3125

PC,DECODE
01 ,RETRIES

234
CMD.SLOT,CMD.REF

#0M.13,BUF .DESCRPTR
9322 ,BYTE.COUNT

3127
3120
3133
3134
3135

F5
CZRCFCO RC25 FR END TEST

ZRCFR3
v03.0

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

004767

006 000

PC,EX.SUP.PRG
RO
74

0000006

103017
104455
000054

000000
032767
001402
004767
012767
000167
00

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC3.816;:4

000000G

000000G
000001
000000G
000604

000200’

000001
000206'
000002
000214'

000003
000222'

000240

234

3144
3139

74:
8¢:

R4
R4 ,RO

9s:

1
RO,
104
:g:TA.PAT2.PATTERN.ADDR

104:

RO, #2
114
;g?TA.PA13.PATTERN.ADDR

11%:

RO, 03

000240

12%:
134:
14$:

3140

3142

PC,DECODE
#1,RETRIES

000240’

COUNT
COUNT,
»

94
:g:TA.PATl.PATTERN.ADDR

124

;gATA.PATJ.PATTERN.ADDR
R3
R1,RO
RO

R3,R2
R2

PATTERN.ADDR,R2
agz).XHT.DATA.BUF(RO)

000240°

3177
3174

000002

:g.ésno.ontn
164
55
55
gND.DATA.ERR
000001

0000006

#1,RET.STATUS

3185

W
we
w0
B

0SEND.PKT ,BUF .DESCRPTR

. REF
CMD. SLOT, CMD

3171

®e

000000G 000230’
000232*
000000G 000234'
000236
0000006

1
OXMT.DATA,BUF
, SEND.PKT
SEND.PKT+2
ORCV.DATA.BUF
, SEND.PKT+4
SEND.PKT+6

®s

000376

000000
032767

(14)

0
#1,RET.STATUS
64

6%:

000240’

Page

3137

55
54
EXE.SUP.ERR

000001

SEQ 0264

3187
3188
3189
3190
3191
3193
3196

3198

G5
CZRCFCO RC2S FR END TEST

27-Mar-1985 15:27:28

TEST SECTION

0000006
000001 000000G

000000G 0000006
000000G 0000006
000002 0000006
0000006

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFCJZRCFC3.816;:4

SEQ 0265
Page

(14)

154

15¢:

PC,DECODE
#1.RETRIES

164:

REF
CMD.SLOT,CMD.

234

#TIP,BUF .DESCRPTR
02,BYTE. COUNT

:g.REC.DATA
184
55
56
ge.oATA.ERR

01 ,RET.STATUS

0000006

18¢:

19¢:
20%:

000000G 000000G

TIP,0104

19%
55
57
gnc.eaa

01,RETRIES

0000006

3217
3212
3221

234

R1
R1,R3
R3
R1,RO
R0

3224

3225
3223
3231
3234

i Jo*

;T}.DATA.BUF(RS).RCV.DATA.BUF(ROJ

R1,RO
R0
#XMT .DATA.BUF
,RO
RO,P3
R1,RO
R0
#RCV.DATA.BU
,RO
F
RO,P4
R1,RO
R0
XMT.DATA.BUF(RO),PS
R1,RO
RO

000000G 000104

PC,DECODE
01 .RETRIES

17%:

0000006
000001
000000G

000001

3215

174

000001

ZRCFB3
v03.0

i Jo#

3237

3238

3239
3240

ggV.DATA.BUF(RO).P6

3241

60
gUFF.ERR

3242

#3,-(SP)
SP,RO

: SP,*

H5
ZRCFR3

CZRCFCO RC2S FR END TEST

000726
000730
000734
000740
000744

000006
0000006
0000006

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

TRAP

0000006

000010

000001

005767
001402
000167
000207

#3,-(SP)

MOV

214:
22%:

000003

177176

MOV

TRAP
ADD

000000G

000377

000001

06,SP
P6,(SP)
PS,-(SP)

MOV

000000G

0000006
0000006

234:
24%:

176770

254:

.g.(14)
3243

OFMT7A, -(SP)

SP,RO

i SP.‘

14
#10,SP

Ol.éETRIES

BR
INC
CMP
BLOS
INC
CMP
BHI
JMP
géa

224
R1
R1,0377
20%
R4
R4, 03
238
84
g%;RETRIES

JSR
TST
BEQ
JMP

PC,D0.RETRIES
NUM.RETRIES
254
24

RTS

SEOPO266 n

ADD
MOV
MOV

MOV

000003

VAX-11 Bl iss-16 V4,0-579
USER41:
1:(AZTEC.CZRCFC)ZRCFC3.B16;:4

3244

i J
P Jo#*

3231

; COUNT

3148

3254

3256

3063

276 words,
Routine Base:
AC$CODE + 10562
: Routine Size:
11 words
; Maximum steck depth per invocation:

004767

000000
000000
000004
000006
000010
000012

176724

104466

006000

103773

NI
NN NN

@
W
@
S8
8
W
B8
S
S
B
%6
®%
@

6 words,

Maximum stack depth per

3262

LSBTTL

JSR

T13 TEST SECTION

PC,$T13

TRAP
ROR

66
RO

RTS

BLO

000207

; Routine Size:
;:

T13::
1%:

3260

Routine Base:
ACSCODE + 11632
invocation:
2 words

BGNTST;
feo

TEST 014 - SPIN UP/HEAD LOAD SEQUENCE

! TEST €14 - SPIN UP/HEAD LOAD SEQUENCE
! DESCRIPTION:
THIS TEST FIRST INITIALIZES RC25 CONTROLLER,
AND DOES SET CONTROL CHARACTERISTICS.

INITIALIZES COM_AREA,

CZRCFCO RC25 FR END TEST

ZRCFR3
vV03.0

VIVIVIVIVIVIVISE BUVTVIVIVIVIVIVIE B B B 5 5 5 5 5 5 0l G U8 G4 08 Gl 03 G4 08 03 08 O3 08 08 08 Gl G G G G 8 08 0 8

TEST SECTION

!
'
!
'
!
'
'
'
'

15
27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC. CZRCFC]ZRCFC3 B16;4

THEN, THIS TEST WILL FIRST ISSUE THE MSCP "AVAILABLE" COMMAND WITH THE
SPIN DOWN MODIFIER SET.
IT WILL THEN WAIT FOR 30 SECONDS TO INSURE
THAT THE DRIVE HAS HAD TIME TO SPIN DOWN.,
IT WILL THEN ISSUE THE MSCP
"ONLINE” COMMAND TO SPIN THE DRIVE UP.,
THIS OPERATION WILL BE TIMED
AND THE TIME WILL BE REPORTED TO THE OPERATOR SO THAT THIS TIME CAN BE
VERIFIED TO MAKE SURE IT IS WITH IN LIMITS.
THE RUN/START AND HEAD
LOAD INTERNAL DIAGNOSTICS WILL RUN DURING THIS TIME.
IF AN ERROR IS
ENCOUNTERED THE RETURNED STATUS OF THE "ONLINE" COMMAND WILL BE
SOMETHING OTHER THAN "SUCCESS" AND THIS STATUS WILL BE DECODED

AND REPORTED WITH ERROR MESSAGE.

IF THE OPERATOR HAS SPECIFIED RETRIES ON ERROR, THE TEST WILL BE

REPEATED.

!
VER:C
label
BLOCK];
if .SWP_TRACE then PRINTF (DBM20);

! TEST 14

NUM_RETRIES = ZERO;
while (. NUM_RETRIES lequ .SWP_RETRIES) do

113= 14;

! THIS IS A FLAG TO INDICATE
! T0 AZTEC_READY ROUTINE

! TO SKIP ONLINE MSCP COMMAND.

' GET AZTEC AVAILABLE BY INITIALIZING RC25 CONTROLLER,
5

AND COM_AREA

if AZTEC_READY ()
then

else
BLOCK]1 :
:

' IF FAILURE REPORT ERROR

begin

eaaor (49, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

' DECODE THE STATUS, IF ANY

RETRIES = TRUE;

! SET RETRIES FLAG

end

begin

g ISSUE AVAILABLE COMMAND WITH SPIN DOWN MODIFIER SET
i: AVAILABLE ()

ISSUE AVAILABLE COMMAND

beain

ERADF (50, AVAIL ERR, 0);

' DISPLAY ERROR MESSAGE

if .RET_STATUS then DECODE ():

' DECODE RETURN STATUS

RETRIES = TRUE;

leave BLOCK];

SEQ 0267

p.fi. 72
(14)

JS
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0

w
w
v
w

3380

HWWWEEEELSELNVIVIUIVIVIVIVIVION
0O\ OOV O N VTUTUTUIUVTI VT VTT U ON O O O LTUTUY T U UY

TEST SECTION

3332
3333
3334
3335
3336
3337

14
00016

27-Mer-1985 15: 27:fg
27-Mer-1985 13::28:

004167
005746
032767
001407
012746

VAX-11 Bliss-16 V4,0-579

USER$1: (AZTEC. CZRCFC]ZRCFC3 816:4

SEOp0268 -

‘9.(14)

end;

! WAIT AT LEAST 30 SEC. TO MAKE SURE THE SPINDLE IS SPUN DOWN.
CLOCK_INIT ();

! VER:C

uncru TIME from 1 to 1000 do

! DELAY 30 SECOND;

DEEAY (100);

%SE
.SECONDS GEQU 30 THEN EXITLOOP;
end;

.CLK_CSR = ZERO;

! DELAY

g VER:C
LOOK FOR CONTROL C

! STOP THE CLOCK

s ISSUE A ON LINE COMMAND AND START THE CLOCK.

CLOCK INIT ()

i SET COMMAND REFERENCE TO 3

if ON_LINE ()

! SEND ON LINE COMMAND
! IF COMMAND FAILED

INITIALIZE VARIABLES FOR CLOCK

“REF = .CMD_SLOT;

then

.
begin

ERRDF (S1,

AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! REPORT ERROR
! DECODE STATUS

RETRIES = TRUE;

leave BLOCK];

end;

' TURN OFF THE CLOCK

.CLK_CSR = ZERO;

' CALCULATE TIME ELAPSED
P4 =

_TICKS#100/.CLK_HERTZ;

TICKS CONVERTED TO 100TH OF A SEC
REMAINDER

PS = .TICKS+100 mod .CLK_HERTZ;

P4 = P4 + .PSe2/.CLK HERTZ

pasute (FMT8, .MINUTES, éonos. .P4);

ADD
1 TO TICKS IF > .5
PRINT TIME TAKEN TO COME ONLINE

eng;

if (.RETRIES) then DO_RETRIES ();

if (_.NUM_RETRIES eqlu ZERD) then exitloop;
PASSO = FALSE;
end;

! RESET FLAG

return;

ENDTST;

000000G

000001
000000G

$T14;

000000G

LSBTTL
#ST

$T14 TEST SECTION
R%S$§AVE2

3261

g%z

:1.SWP.TRACE

3294

MOV

#DBM20, -(SP)

K5
CZRCFCO RC25S FR END TEST

ZRCFRB3

27-Mar-1985 15:27:2
27-Mer-1985 13:28:1

TEST SECTION

V03.0

012746

000001

#1,-(SP)

SP.RO
17
(sp)oé(sp).

0000006
000000G 0000006

194

0000006
000001
000000G

S$:

3300
3307

58
S5
61
SZY.READY.ERR

3310

01 RET.STATUS

3312

C DECODE
:1RETRIES

3314

PC AVAILABLE

3323

55
62
SVAIL.ERR.

3326

z%.RET.STATUS

3328
3330
3325

024 SP

000000G 000036

7%:

CEOCK<INIT
PC

8s:
9s:

0144 Rl

103020

000000G 0000006
0000006

(SP)
108

12¢:

SECONDS,
036
134
22

R2,01750

13$:
016767
004767
006000

124
LODLY RO

11%:

001750

(14)

pc Aztec READY

PC,DECODE
#1,RETRIES

10¢:

Page

3296
3298

016,TIP

000000G

SEQ 0269

y SP,#

§?".RETRIES, SWP.RETRIES

000474
000016 000000G
0000006

000001

VAX-11
?lol
9USER‘I AZTEC. CZRCFC]ZRCFC3 B16;4

aCLK.CSR

PC,CLOCK,INIT

. REF
CMD,SLOT,CMD

:g.ON.LINE
15¢

: ¢, TIME

;

¢,88TMP2

¢,88TMP]

: $STMP

$STMP)

$STMP2

: TIME

TIME,»

3336
3338
3340

L5
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

000001

S€0p0270

(14)

55
63
QZT.READY.SRR

3355

01 ,RET, STATUS

3357

14%:

PC, DECODE
o1 .RETRIES
024,5P

3359
3354

15¢:

9CLK.CSR

0000006

0000006
000001
0000006
000024

VAX-11 Bliiss-1
ZTEC. CZRCFC]ZRCFC3 816:4
USER$1:(AZ

144

164

3363
3366

TICKS, -(SP)

000144

PC,BL $MUL
RO, (SP)

CLK.HERTZ, -(SP)
PC,BLIDIV
RO,P4

T1EKS, (SP)

3367

0144,-(5P)
PC.BL $MUL

RO, (SP)

CLK.HERTZ,
- (SP)
PC,
BL $MOD
3368

(

CLK.HERTZ, -(SP)
PC,BLSDIV

P4 RO
RO.P4
P4.(SP)

3369

SECONDS.,-(SP)

MINUTES, -(5P)

SP.RO
14

024,5P
01 asvaxes
PC DO RETRIES

NUM. RETRIES

18%:

0000006

177270

004767

177220

3307

3372

3374
3376

19¢:;

3298

187
RTS

3261

182 words,
0
ACSCODE - 11646
; Routine Size:
Rout
ine Bese:
16 words
; Meximum steck depth per invocetion:

{00000C

i SP,e

T14::

.SBTTL

T14 TEST SECTION

M5
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0
000000
000004
000006

000010
000012

27-Mer-1985 15:27:28

TEST SECTION

27-Mer-1985 13:28:18

1%:

104466

103773
000207

JSR

TRAP
ROR

BLO
RTS

PC,8714
66

Routine
Bese:
ACSCODE - 12422
: Routine Size: 6 words, ;
0
: Meximum steck depth per invocetion:
2 words

3381

'<«BLF /PAGE »

SEQ 0271
(4
76
USERS1:{AZTEC.CZRCFCIZRCFC3.B16;4
(14)
VAX-1]1 Bliss-16 V4.0-579

3379

N5
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28

EEEEEEEEY
SIERLICES

SEEEEEEEEE
OB YO
VNB WO A ;

uuuuuuumuouauuuuuooou.ouuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu~

TEST SECTION

27-Mer-1985 13:28:18

VAX-11 Blies-16 vV4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC3.816;4

[

BGNTST;
feo

g TEST 015 - SEQUENTIAL SEEK AND VERIFY TEST
H DESCRIPTION:
!

THIS TEST BRINGS RC25 CONTROLLER AND UNIT ONLINE AND READY TO ACCEPT

MSCP DUP COMMANDS.

!
]

:
'

STARTING WITH THE USER SPECIFIED BEGINNING TRACK AND INCREMENTING
THROUGH EVERY TRACK TO TME USER SPECIFIED ENDING TRACK,
THIS TEST WILL

SEEX FROM TRACK TO TRACK IN A FORWARD DIRECION, THEN IT WILL REPEAT

'
:

THE OPERATION IN THE REVERSE DIRECTION, FROM THE ENDING TRACK 10 THE
BEGINNING
.

;
:

THIS IS A SINGLE SURFACE TEST AND IS DONE ON TOP SURFACE.
CAN SELECT BOTTOM SURFACE ALSO.

A FAILURE REPORT INCLUDES

TRACK.

'
'

STRATING TRACK,

THE OPERATOR

ENDING TRACK AND DESIRED

AFTER REPORTING THE FAILURE, THE PROGRAM WILL ABORT CURRENT

SEEX AND WILL JUMP T0 REVERSE SEEX.

_0.

if .SWP_TRACE then PRINTF (DBM21);

! TEST 1S

NUM_RETRIES = ZERO;

while (. NUM_RETRIES lequ .SWP_RETRIES) do

e s
' GET AZTEC READY FOR OPERATION
n

if AZTEC_READY ()

then

Ealor (s2. AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

' DECODE THE STATUS, IF ANY

RETRIES = TRUE;

! SET RETRIES FLAG

else

end

: PREPARE
POR REPTM O

' IF FAILURE REFORT ERROR

BYTE_COUN" - ZERO

BUF _DESCRPTR « ZERD;

' SET BYTE COUNT 10 2€R0Q
! CLEAN THE BUFFER

g FORWARD DIRECTION SEEX
' USE STARTING TRACK OF O OR AS svtsxr}to BY THE OPERATOR
USE ENDING TRACK OF 820 OR AS SPECIFIED BY THE OPERATOR

SEQ 0272

Pege

(15)

B6
27-Mer-1985 15:27:28

CZRCFCO RC25 FR END TEST

27-Mer-1985 13:28:18

LBN_ED = (. SHPENDO SIZ_LBN);
LBN_SZ= .§12

FIND ENDING LBN NUMBER
' TRACK INCREMENTING SIZE

!ngbszngs THE 0€°IREDLéN TO SEEK. THIS WILL BE USED BY
BLOCKI :

begin
uhalc TRUE do

! DO SEEK FROM STARTING TRACK

TO ENDING TRACK

CMO_REF = _LBN_ST;

! PUT LBN IN CMD_LREF

ér
READ_CMD ()

! ISSUE A SEEK COMMAND

! IF ERROR, REPORT

ERaDF (S3, SK_FOR_ERR
PRINTB (FMT9, .SWP_ srhnt .SWP_END, .LBN_ST);
if .RET_STATUS then DECODE ();

PEPEP®NNNNNOOT
VNNV NINTVNIVTNIN
O O N OO 0000 IO

VAX-11 Bl

! DECODE STATUS OF READ_CMD

RETRIES = TRUE;

lesve BLOCK];

else

end

begin

if .LBN_ST eqlu .LBN_ED then exitloop;

LB:_ST =

_LBN_ST «

.LBN_SZ;

! INCREMENT THE TRACK NUMBER BY 1

end;

end;
]

end;

! REVERSE DIRECTION SEEK

' ?3“25%8" NUMBERS SUCH THAT LBN_ST CONTAINS THE HIGHEST NUMBER LBN
i

TEMP =

LBN_ED = (. SuP STARTs.SIZ_LBN);

BLOCK?2 :

.LBN

LBN_ST = .TEMP

! RESTORE ENDING TRACK NUMBER

begin
while TRUE do

! DO SEEK FROM HIGHEST LBN

begin

CHB_REF = ,LBN_ST;

! PUT LBN IN CMD+LREF

TO LOWEST LBN

if READ_CMD ()
then

ISSUE A SEEK COMMAND

Eaflor (54, SK_REV_ERR, 0);

PRINTB (FMT9, .SWP_END, .SWP_START,
if

.RET_STATUS then DECODE ();

579

USERW1: (AZTEC, CIRCFCIZNCFC3.B16:4

! SIZ_LBN = 31 INCREMENTS THE TRACK NUMBER BY 1
LBN_ST = (.SWP_STARTs.SIZ_LBN);
t FIND STARTING LON

G0 00 ~J ~J ~J ~ O O

LTI

T T I WL

TEST SECTION

.LBN_ST);

! DECODE STATUS OF READ_CMD

el
P°(15)

C6
ZRCFB3
v03.0

;.
;.

:
i
i
:
;

CZRCFCO RC2S FR END TEST
TEST SECTION

3496
3497

3498

3499
3500
3501
3502

8
8

3505

3507

3506
3508

else

end

begin
if .LBN_ST eqlu .LBN_ED then exitloop;

.LBN_ST = _LBN_ST -

end;

.LBN_SZ;

3511
3512
;giz

4
4
:

if (.RETRIES) then D0_RETRIES ();

ggiz

if (.NUM_RETRIES eqlu ZERQO) then exitloop;

:
:
:
:

3517
3518
3519
3520

3
3
3
1

end;

:
:
3
:

3510

032767
001407
012746
012746

010600

104417
022626
005067
026767
101401
000207

012767

004767
006000
103016

end;

return;
ENDTST;

000001

000000G

$T1S:

000000G
000001

000000G
000000G 000000G

18:
24:

000017

34:

0000006

000001

000575
005067
005067
016746

000000G
(€00000G
)00000G

004767

J00000G

0000006

.SBTTL
BIT
BEQ
MOV
MOV

MOV

000000G

104455

016746

! DECREMENT TRACK NUMBER BY 1

end;

000064
0000006
000000
032767 000001
000000G
001402
004767 000000C

012767

! WHEN ALL SEEKS DONE EXIT

end;

3509

SEQ 0274
P age
79
(15)

leave BLOCK?Z;

8
7
8
8

VAX-11 Bliss-16 V4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC3.B16;4

RETRIES = TRUE;

gggz

27-Mar-1985 15:27:28
27-Mar-1985 13:28:18

0000006

S$:

SP,.RO

TRAP
CMP
CLR
CMP
BLOS
RTS

17
(SP)+,(SP)«
NUM.RETRIES
NUM.RETRIES,SWP .RETRIES
34
PC

JSR
ROR
8CC

PC,AZTEC.READY
RO
S$

.WORD
.WORD
.WORD
BIT
BEQ
JSR

64
AZT.READY.ERR
O
®1,RET.STATUS
44
PC,.DECODE

BR
CLR
CLR
MOV

144
BYTE.COUNT
BUF .DESCRPTR
SWP,.START,-(SP)

JSR

PC,BL $MUL

MOV

TRAP

44:

$T1S TEST SECTION
01,SWP,TRACE
14
o0BM21, -(SP)
01,-(SP)

MOV

3411

: SP,»
3
:

3413
3415

017,71IP

:
:

3430

SsS

3423

3425

3427

01, ,RETRIES

SIZ.LBN, -(SP)

;
:
i
:

3417

3420
3432
3433
3440

ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0

27-Mer-1985 15:27:28

TEST SECTION

27-Mer-1985 13:28:18

000142

010067

0000006

MOV

RO,LBN.ST

000152
000156
000162

016746
004767
010067

0000006
0000006
0000006

MOV
JSR
MOV

SIZ.LBN,-(SP)
PC,
BL $MUL
RO,LBN.ED

ROR

000146 016716 0000006

MOV

000166 016767 000000G 000000G
000174 016767 000000G 000000G
000202 004767 0000006

64:

000206 006000

000210
000212
000214
000216
000220
000222

000226
000232

103034
104455
000065
0000006
000000
016716 0000006

MOV
MOV
JSR

BCC
TRAP
LWORD
"WORD
.WORD
MOV

016746 0000006
016746 0000006

MOV
MOV

344

SIZ.LBN,LBN.SZ
LBN. ST, CMD. REF
PC,READ.CMD

;
;
;

3442
50
3452

;

3455

;

3456

£t
S5
65
SK.FOR.ERR
©
LBN.ST,(SP)

SWP .END, -(SP)
SWP
. START, -(SP)

000246
000250

MOV
TRAP
ADD

SP.RO
14
010,5P

BEQ
JSR
MOV
BR

7%
PC,DECODE
01 .RETRIES
9%

010600
104414
062706

000004

000010

032767 000001

001402
004767
012767
000410

MOV

000000G

000000G
000001 0000006

7%:

000000G 0000006

8s:

026767
001404
066767
000725
016767

000000G 000000G

016746
004767

0000006
0000006

000000G 0000006

016716 0000006
010067
016767

BIT

000000G
000000G 0000006

016767 000000G 000000G
004767 0000006

9s:

10$:

006000
103034
104455
000066
0000006
000000
016716 0000006

000000G

000001

000000G

11%:

: SP,s

;

3458

SWP . START, (SP)

;
;
;

3468
3448
3479

MOV
MOV

RO.LBN.ED
TEMP,LBN. ST

;

3481

ROR
BCC
TRAP
JMORD
'WORD
'WORD
MOV

RO
124
55
66
SK.REV.ERR
O
LBN.ST,(SP)

;

3492

3493

MOV
MOV
MOV

SWP .END, -(SP)
OFMT9, -(SP)
04, -(5P)

LBN.ST,LBN.ED
94
LBN.SZ,LBN.ST
64
LBN.ED, TEMP

MOV
JSR

SIZ.LBN,-(SP)
PC,
BL $MUL

MOV

MOV
JSR

MOV
TRAP
ADD
BIT
BEQ
JSR

012767

01,RET.STATUS

CHP
BEQ
ADD
BR
MOV

010600
104414
062706
032767
001402
004767

000000G

04,-(5P)

3460
3454
3466

MOV

000010
000001

OFMT9, -(SP)

;
:
;

016746 000000G

016746 0000006
012746 0000006
012746 000004

(15)

;

MOV

012746

5‘°p2315 80

SWP.END, (SP)

000236 012746 000000

000242

VAX-11 Bliss-16 V4,0-579

USER$1:([AZTEC.CZRCFC JZRCFC3.816;4

MOV

LBN.
$T,CHD. REF
PC,READ. CMD

SWP
. START, -(SP)
SP.RO
14
10,5P
#1,RET.STATUS
114
PC,DECODE

#1,RETRIES

;
:

3480

3487
3489

; SP,e

3495

3497

E6
CZRCFCO RC25 FR END TEST

ZRCFB3
v03.0

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

000462
000464

000000G 000000G

134
LBN.ST,LBN.ED
134
LBN.SZ,LBN.ST
104

124:

000000G 0000006
000010
000001

13¢:
14%;

000000G

0000006
0000006

16¢:

CIZRCFC3.816:4

SEOP0276 o1

.9‘(15)
3491
3503

810,5P

01 ,RETRIES
154

PC,D0.RETRIES

15¢:

177274

VAX-11 Bl iss-16 V4,0-579
USER$1: [AZ TEC.CZRCF

RTS

NUM.RETRIES
164
24

176 words,
Routine Base:
AC$CODE + 12436
: Routine Size:
10 words
; Maximum stack depth per invocation:

000000
000000
000004
000006
000010
000012

004767

177234

T1S::

006000

PC,$T15
66
RO

000207

14:

104466

103773

; Routine Size:

6 words,

Routine
AC$CODE Bese:
C
2 words

; Maximum stack depth per invocation:

3521

T15 TEST SECTION

1<BLF/PAGE>

13176

3519

F6
CZRCFCO RC25S FR END TEST

ZRCFRS3

TEST SECTION

VIVTUVIN SBUVTNUTUIVIUVIUIL B 5 5 5 5 5 08 G4 3 Gl G 08 O3 04 G8 G804 G G G G G G G Gl G G 0 G 0 G G 0 G G G G (0 (o (o G (0 (O (=

V03.0

27-Mer-1985 15:27:28

27-Mar-1985 13:28:18

VAX-11 Bli 16 V4.0

USER$1:[AZ

BGNTST;
feo

TEST €16 - SAWTOOTH SEEK AND VERIFY TEST

DESCRIPTION
THIS TEST BRINGS RC25 CONTROLLER AND THE UNIT ONLINE AND READY
TO TAKE MSCP COMMANDS.

STARTING WITH THE USER SPECIFIED BEGINNING TRACK AND INCREMENTING

THROUGH EVERY TRACK IN THE SELECTED RANGE, THIS TEST WILL PERFORM A
SEEK TO THE SELECTED TRACK AND THEN A SEEK BACK TO THE BEGINNING
TRACK.
WHEN ALL TRACKS HAVE BEEN COVERED, IT WILL DO THE SAME

g:ggATION IN THE REVERSE DIRECTION WITH THE ENDING TRACK AS THE
THIS IS A SINGLE SURFACE TEST AND IS DONE ON TOP SURFACE.
THE OPERATOR CAN SELECT BOTTOM SURFACE ALSO.

ERROR REPORTS WILL STATE STARTING, ENDING AND DESIRED TRACKS.
IF THERE WAS AN ERROR THE TEST WILL BE ABORTED UNLESS THE OPERATOR
HAS SELECTED FOR RETRIES.

local
LBN_SA;
abel
BLOCK1,
BLOCK2;

if .SWP_TRACE then PRINTF (DBM22);

! TEST 16

NUM_RETRIES = ZERO;
uhil:.(:NUH_RETRIES lequ .SWP_RETRIES) do
TIP

= 16;

! GET AZTEC READY FOR OPERATION
if AZTEC_READY ()
then
beain
ERxDF (SS, AZT_READY_ERR, 0);

else

! IF FAILURE REPORT ERROR
!

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

RETRIES = TRUE;
end

! PREPAREpOR READ_CMD

BYTE_COUNT = ZERO;
BUF _DESCRPTR = ZERO;

SET RETRIES FLAG

! SET BYTE COUNT TO ZERO
CLEAN THE BUFFER

CZRCFC]ZRCFCS B16:4

S0 0277

%165

CZRCFCO RC25 FR END TEST

ZRCFB3
LY

! FORWARD DIRECTION SEEK
! USE STARTING TRACK OF O OR AS SPECIFIED BY THE OPERATOR
: USE ENDING TRACK OF 820 OR AS SPECIFIED BY THE OPERATOR
LBN_SZ = 31 INCREMENTS THE TRACK NUMBER BY
1
LBN_ST = (.SWP_START+,.SIZ LBN);
FIND STARTING LBN

(.SWP_END#+.SIZ_LBN);
LBN_SZ = .sxz_La :
ST;

Meorsociaca

00 G0 00 WO WO WO WO W0 WO WO WO O G2 G000 G0 00 ~J ~J ~J 4OV OV O TN UT T

T T

NSO VTUTVNVTVNTVNIVIVIVION
O N~ N~

e S Se s S S
S G G
S8 ¢ S¢ G Ss
6 SF B
G G0 G0 S8 G0 G0 S0 G6 G¢ B0 G0 Ge

]
'

=
LBN_SA

FIND ENDING LBN NUMBER
TRACK INCREMENTING SIZE

LOAD CURRENT LBN

! LENDSEHgS THE DESIRED LBN T0 SEEK. THIS WILL BE USED BY
BLOCK1 TM :

b09|n

! DO SEEK FROM STARTING TRACK
! TO ENDING TRACK BY INCREMENTING
! ONE TRACK AT A TIME.

while TRUE do
bealn

LBN_ST = .LBN_SA;
incru COUNT from O to 1 do
bfiatn

CMD_REF =

.LBN_ST;

! ISSUE TWO SEEK COMMANDS
! ONE TO THE CURRENT TRACK
! PUT LBN IN CMD_LREF

if READ_CMD ()

then

AND THE SECOND TO THE STARTING
TRACK EVERY TIME YOU INCREMENT
TRACK NUMBER. IF FAILURE

Enaor (S6, SK_FOR_ERR, 0);

WILL BE REPORTED WITH

PRINTB (FMT9, .SWP_START, .SWP_END, .LBN_ST);
if .RET_STATUS then DECODE ();

RETRIES = TRUE;

leave BLOCK];

lse

end

! ERROR INFO.

! DECODE STATUS OF READ_CMD

! TURN ON RETRIES
! ABORT IF ERROR OCCURED

LBN_ST = (.SWP_START+
. SIZ_LBN);

end;

if .LBN_SA eqlu .LBN_ED then exitloop;

LBN_SA =

end;

.LBN_SA +

.LBN_SZ;

! INCREMENT TRACK NUMBER BY 1

end;
REVERSE DIRECTION SEEK

! SWAP LBN NUMBERS SUCH THAT LBN_ST CONTAINS THE HIGHEST NUMBER LBN

' T0 SEEK
LBN_SA =
BLOCK2
:

.LBN_E

LBN_ED = (.SWP_ START‘ SIZ_LBN);

! RESTORE ENDING TRACK NUMBER

begin
while TRUE do

begin

0-579

:[AZTEC. CZRCFC]ZRCFC3 B16;4

TEST SECTION

V03.0

S5 S5 S5 W0 S0 G0 B0 00 G0 S0 G5 S5 N0 00 G0 S0 G0 S0 S0 G0 S0 S0 G0 S0 S0 TE W0 T

liss-16

! DO SEEK FROM HIGHEST LBN
! TO LOWEST LBN

SEQ 0278
Page

(16)

H6
ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

TEST SECTION

3636

:
:
?
:

3637
3638
3639
gg:g

7
7
8
g

;.
i
:

3642
3643
3644

8
8
9

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Blies-16

USER$1:[AZ EC CZRCFC]ZRCFCS B16;4

uncru COUNT from 0 to 1 do
H8

CMD_REF = .LBN_ST;

! PUT LBN IN CMD_LREF

if READ_CMD ()
then
a

! ISSUE A SEEK COMMAND

36463“7

3645

PRINTB (FMT9, .SWP_END, sw-snm.

.LBN_ST);

gg:g

if .RET_STATUS then DECODE ();

! DECODE STATUS OF READ_CMD

i
:
3
:
:

3650
3651
3652
3653
gggg

9
9
9
8
g

RETRIES = TRUE;
leave BLOCK2;
end

i
H

3656
3657

7
7
;

if .LBN_SA eqlu .LBN_ED then exitloop;

i
:
:
:
:
3

3660
3661
3662
3663
3664
3665

7
6
6
S
4
4

LBN_SA = _LBN_SA end;

gggg

ERRDF (57,

else

SK_REV_ERR,

0);

LBN_ST = (.SWP_END#.SIZ_LBN);

.LBN_SZ;

end;
end;

if (.RETRIES) then DO_RETRIES ();

gggg

if (.NUM_RETRIES eqlu ZERQ) then exitloop;

end;

ENDTST;

3670

3673

3
3

return;

004167
032767
001407
012746
012746
010600
104417
022626

000000G
000001

026767

000000G 000000G

24:

004767

000020 000000G
0000006

3$:

005067

101401
000207
012767

006000
103017

! STARTING TRACK

! NEXT TRACK IN SEQUENCE

3671
3672

(16)

end;

gggg

Page

! TURN ON RETRIES
! ABORT REVERSE SEEK

:
:

SEQ 0279

LBN_ST = _LBN_SA;

0-579

000000G
000001 000000G

000000G

$T16:

1%:

.SBTTL
JSR
BIT
BEQ
MOV
MOV
MOV
TRAP
CMP

CLR

CcMP

BLOS
RTS
MOV
JSR

ROR
BCC

3116 TEST SECTION
R1, $SAVE2
#1,SWP.TRACE
14
fDBM22, -(SP)
#1,-(SP)
SP.RO
17
(SP)+,(SP)«

NUM.RETRIES

:
:

3520
3556

: SP,*

3558

NUM., RETRIES SWP.RETRIES

3560

PC,AZTEC.READY

:
:

3562
356S

34
PC
#20,TIP

RO
54

16
ZRCFB3

CZRCFCO RC25 FR END TEST

v03.0

27-Mer-1985 15:27:28

TEST SECTION

27-Mer-1985 13:28:18

000070
000072
000074
000076
000104
000106
000112

104455
000067
0000006
000000
032767 000001 000000G
001402
004767 000000G
012767 000001 000000

000128
000130
000134

005067
005067
016746

0000006
000000G
0000006

000144
000150

004767
010067

0000006
000000

000160
000164
000170

016746
004767
010067

000000G
0000006
0000006

000206
000212
000214
000222
000226
000230
000232
000234
000236
000240

010267
005001

0000006

64:

000000G 000000G

7%:

000120 000167 000456

TRAP
JWORD

as:
5%:

000140 016746 0000006

'WORD
'WORD
BIT
BEQ
JSR
MOV

S5
67
AZT.READY.ERR
O
#1,RET.STATUS
44
PC,DECODE
01 .RETRIES

CLR
CLR
MOV

BYTE. COUNT
BUF.DESCRPTR
SWP. START, -(SP)

JSR
MOV

PC,
BL $MUL
RO.LBN.ST

MOV
JSR
MOV

SIZ.LBN.-(SP)
PC, BL $MUL
RO.LBN.ED

MOV
CLR

R2,LBN.ST
R1

JSR

PC,READ.CMD

JMP
MOV

000154 016716 000000G

MOV

000174
000202

MOV
MOV

000242
000286
000252
000256

016767
016702

016767
004767

000000G 000000G
0000006

0000006

006000
103034
104455
000070
000000G
000000
016716 0000006
016746 0000006
016746 0000006

012746

0000006

010600
104414
062706
032767
001402
004767
012767
000423
016716
016746
004767
010067

344
386
352
354
360
362
366
370

005201
020127
101720
020267
001403
066702
000707
016702

342 005726

000010
000001

0000006

0000006
000001 0000006
0000006
000000G
0000006
0000006

8s:
9%:

000001

0000006
0000006
0000006

10$:

T(16)

1568

;

3570

;

3572

:
;
"

3577
3578
3585

SWP . END, (SP)

;

3586

SIZ.LBN,LBN.SZ
LBN.ST,R2

:
; #,LBN.SA

3587
3588

164

3¢ LBN. {sP)

LBN,ST,CMD. REF
RO
93
S5
70
SK.FOR.ERR
O
LBN.ST,(SP)
SWP .END, - (SP)
SWP . START, -(5P)

MOV

04,-(S

OFMTI,

SP.RO
1
#10,5P
01,RET.STATUS
84
PC,DECODE
o1 .RETRIES
104
SWP.START, (SP)
SIZ.LBN, -(SP)
PC,
BL $MUL
RO.LBN.ST

INC
CHP
BLOS
CHP
BEQ
ADD
BR
MOV

R1
R1,01
7%
R2,LBN.ED
104
LBN.SZ,R2
64
LBN.ED,R2

(SP)e

;

3565

; LBN.SA,
+
; COUNT
:

3596
3598

3600
3602

3605

;

3606

-(S

TRAP
ADD
BIT
BEQ
JSR
MOV
BR
MOV
MOV
JSR
MOV

187

USER$1:[AZTEC. czacrc12ncrc3 B16:4

SEQ oeoo

ROR
BCC
TRAP
JHORD
'WORD
'WORD
MOV
MOV
MOV

MOV

000262 012746 000004

000266
000270
000272
000276
000304
000306
000312
000320
000322
326
332
336

MOV

VAX-11 Bliss-16 V4,0-579

; SP,*
;

3608

:
:
.

3610
3604
3614

; COUNT
; COUNT,

3598

; LBN.SA,+

3618

; +,LBN.SA
i
: +,LBN.SA

3620
3594
3629

Jb
CZRCFCO RC25 FR END TEST

ZRCFRS3

TEST SECTION

v03.0

000420

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18
:128:

016716
016746
004767
010067
010267
005001
016767
004767
006000

0000006

MOV

SWP.START, (SP)

0000006
0000006

JSR
MOV

PC,BL $MUL
RO,LBN.ED

0000006

MOV

0000006

114:

000000G 0000006

12¢:

0000006

EEX

MOV

JSR

3645

LBN.ST,(SP)

3646

71
SK.REV.ERR
O

MOV

SWP. START, -(SP)

MOV
TRAP

0000006
0000006
0000006
0000006

14:

0000006
0000006

000010

000001

0000006
0000006

177206

15¢:

"RO

JSR
ng

PC,DECODE
:§3a51a1£s

MOV
MOV
JSR
MOV

SWP.END, (SP)
SIZ.LBN.-(SP)
PC, BL $MUL
RO.LBN.ST

INC
cMP
BLOS
CHP
BEQ

a1 01
124
R2,LBN.ED
15$

338

000000G

010, 5P

181

000001

SWP .END, - (SP)
#FMT9, - (SP)
04,-(%P)

ADD

géa
13$:

144

JHORD
.WORD
WORD

MOV
MOV
MOV

0000006
000001 000000G

pc. READ. CMD
55

0000006
0000006
000004

0000006

:§;§£1.51A1us

(56).

&?N.SZ.R2

16$:

gég

ADD

910, 5P

17¢:

JSR
181
BEQ

PC,D0.RETRIES
NUM.RETRIES
184

18%:

3636
3638
3640
3642

COUNT

TRAP

MOV

000001

LBN.SA,*

0000006

000010

LBN ST,CMD. REF

.g‘(lb)

3630

SIZ.LBN, -(SP)

aa LBN.ST

SEOPO281 06

ROR

BCC

0000006

VAX-11 Bliss-16
0-579
USER$ 1:(AZ TEC. CZRCFC]ZRCFC3 B16;:4

JHP
RTS

COUNT
COUNT,+

LBN.SA,+

*,LBN.SA

:1,RETRIES

24
PC

; Routine Size:

205 words,
Routine Bese:
ACSCODE + 13212
13 words
; Meximum steck depth per invocetion:

177142

T16::

1%:

.SBTTL

T16 TEST SECTION

JSR

PC,$T16

3672

K6
ZRCFB3

CZRCFCO RC25 FR END TEST

v03.0

000004
000006
000010
000012

TEST SECTION

104466
006000
103773
000207

: Routine Size:

TRAP
ROR

66
RO

RTS

BLO

6 words,

Maximum stack depth per

3674

¢7-Mer-1985 15:27:28
27-Mer-1985 13:28:18

Rout ine Base:
invocation:

' <BLF/7PAGE>»

2 words

AC$CODE « 14044

VAX-1 18 li 89-16 V4.0
USER#$ 1:0( AZTEC. CZRCFC)ZRCFC3 B16;4

SEQ 0282
Page

(16)

L6
CZRCFCO RC2S FR END TEST

ZRCFR3

TEST SECTION

3679

3680
3681

(o e

3675
3676
3677
3678

VILTAUN & B UNTVTNIVIVIUVI
B B 5 5B 5 5 G 08 U8 Gl U8 G 03 03 08 08 G4 G Gl G 0 G G W G G G 0 (8 0 o o G 0 o o ol (o o O

.-.l.u...Qu.!.‘.0.!...0.."...0.!.0.'.0.0.0.-.o.o...o.-.....o'o...-.l.o.ooo..u.c.n.o.o.-“fl.o.o.l.c.o.o.a.o.-.o

v03.0

27-Mer-1985 15:27:28

VAX-1 18 1 iss-16 V4, 0-579
USER$ 1:( & ZTEC.CZRCF CJZRCFC3.816;:4

27-Mar-1985 13:28:18

BGNTST;
s

TEST 017

- CONVERGING/DIVERGING SEEK AND VERIFY TEST

DESCRIPTION:
THIS TEST FIRST BRINGS RC25 CONTROLLER AND UNIT ONLINE SO THAT

MSCP COMMANDS CAN BE ISSUED.

THIS TEST PERFORMS SEEKS TO THE BEGINNING TRACK,

THEN TO THE ENDING

TRACK, THEN TO THE BEGINNING TRACK « 1, ENDING TRACK - 1, BEGINNING
TRACK + 2, ETC. UNTIL THE TRACKS CONVERGE AND THEN DIVERGE AGAIN

BACK TO THE BEGINNING AND ENDING TRACKS.

THIS IS A SINGLE SURFACE TEST AND IS DONE ON TOP SURFACE.

OPERATOR CAN SELECT BOTTOM SURFACE ALSO.

THE

ERROR REPORTS WILL INCLUDE STARTING, ENDING AND DESIRED TRACKS.
IF FAILURE IN SEEK THE TEST WILL BE ABORTED UNLESS THE OPERATOR
SELECTS RETRIES.

locel
LBN_SA

LBN_MID;

! START OF LBN

! MID POINT FOR LBN

lebel

8LOCK],
BLOCK?;

NUM_RETRIES = ZERO;

if .SWP_TRACE then PRINTF (DBM23);

' TEST 17

while (.NUM_RETRIES lequ .SWP_RETRIES) do
begin

TI’ = 17;

' GET AZTEC READY FOR OPERATION
if AZTEC_READY ()

then

else
BLOCK? :

' IF FAILURE REPORT ERROR

begin

Eaaor (S8, AZT_READY_ERK, 0);

;

if .RET_STATUS then DECODE ();

! DECODE THE STATUS,

RETRIES = TRUE;

! SET RETRIES FLAG

ena

IF ANY

“Pon

! PREPARE FOR READ_CMD
BYTE_COUNT = ZERO;

BUF _DESCRPTF = ZERD;

' SET BYTE COUNT T0 ZERO

! CLEAN THE BUFFER

55090263 s

.'.(17)

M6
27-Mer-1985 15:2 7:12
27-Mer-1985 13:2 8::1

VAX-11 Bliss-16 V4.0-579

USERS$1:[AZ EC CZRCFC)ZRCFC3.816;:4

]

CONVERGING SEEX
USE STARTING TRACK OF O OR AS SPECIFIED BY THE OPERATOR

USE ENDING TRACK
OF 820 OR AS SPECIFIED BY THE OPERATOR
SIZ_LBN = 31 INCREMENTS THE TRACK NUMBER BY 1
' FIND STARTI
LBN_ST = (.SWP_STARTe SIZ LBN);
NG LBN

LBNCED= (. SW-MO.SIZ-LGNM

LBN_SZ - .SIZ-L.N:
LBN SA = .LBN

FIND ENDING LBN NUMBER
' TRACK INCREMENTING SIZE
'

LOAD CURRENT LBN

LON-ATD = BN 60 - .LBN.ST)/2
nxoooxm BETWEEN STARTING & ENDING
¢ LON. ST 18- THE DESIRED LON 10 SEER. Tals wILL BF3 USeo's
'

'
READ CMD.
.LOC"I :
.

begin

while

.LBN_MID geau .LBN_SA do

BaST = _LBN_SA;
incru COUNT
beg'n

' DO SEEK FROM STARTING TRACK
i 10 ENDING TRACK BY INCREMENTING

! ONE TRACK AT A TIME,

from 0 to 1 do

CMD_REF = _LBN_ST;

: ISSl.E TWO SEEX COMMANDS
:
T0 THE CURRENT TRACK
! PUT LBN IN CMD_LREF

R OOOOOOOOOBBBEBE® -4 -JdJ 400G NANUNUNUNANNANANNWUN
GO IV
R 444100

nfl““.‘“.‘.‘.‘.‘".’.‘““.‘.C...l.......i.‘““Ql.’.l...0........“““.‘.C“““fl.‘“”“““.‘““““““

CZRCFCO RC2S FR END TEST
TEST SECTION

AND THE SECOND TO THE MIRROR IMAGE
TRACK EVERY TIME YOU INCREMENT
TRACK NUMBER. IF FAILURE

if READ_CMD ()

then
begin

ERNDF (59, SK_FOR ERR

ED WITH

REPORT
PRINTB (FMT9, . SWP_ svim .SWP_END, BE.LBN_ST);
if

_RET_STATUS then DECODE ();

RETRIES = TRUE;
leove BLOCK];

else

eng

LBN_ST «

! ERROR INFO.

! DECODE STATUS OF READ_CMD

! ABORT IF ERROR OCCURED

_LBN_ED;

end;

LBN_SA =
LBN_ED =

cncs
.

_LBN_SA .
.LBNED -

,LBN_S5Z;
.LBN_ SZ;

! INCREMENT TRACK NUMBER BY 1
! MIRROR IMAGE OF CURRENT TRACK

end;

g DIVERGING SEEN

LBN_SA = .LBN_MID;

while .LBN_SA lequ .LBN_MID go

! DO SEEX FROM HIGHEST LBN

LBN_ED =

.LBN_MID;

beg

LBN_S5T

_LBN_5A;

incry COUNT from O to 1 do

START FROM MID TRACK LBN

T0 LOWEST LBN

SEOPOi’B‘ -

.’.( 17)

N6
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

L NN

TEST SECTION

begin

CMO REF = .LBN_ST,

! PUT LBN IN CMD_LREF

i READ_CMD ()
then

! ISSUE A SEEK COMMAND

Na;n

S€0P0285 %

.’.(17)

ERRDF (60, SK_REV_ERR

. SWP snia SHP_END. .LBN_ST);

PRINTB (FMT9,

if .RET_STATUS then DECODE ();

else

! DECODE STATUS OF READ_CMD

RETRIES = TRUE;
lesve BLOCK?

! ABORT REVERSE SEEK

LBN_ST =

! STARTING TRACK

end

_LBN_ED;

end;

LBN_SA =«

LBN_SA -

_LBN_SZ;

! NEXT TRACK IN SEQUENCE
! MIRROR IMAGE TRACK

LBN_ED = .LBN_ED « .LBN_SZ;

end;
end;

_.RETRIES then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERD) then exitloop:
end;
re.

"n;

ENDIST;

SBTTL

§§§§§§§ 23353385505

$717;

0000006
000001

.117 TEST SECTION
R1,$SAVES

NUM. RETRIES

01 $WP. TRACE

sfi

3673

;

3710

-(SP)

(SP)e,(SP)e

S’.‘

uun RETRIES, SWP. RETRIES

;

021.71P

;

3714

3720

“@

0000006
0000006
000001
0000006

bk L L LR R R R R R R AV IV Y. . .

}
VAX - 18li 99-16 V4,0-579
1
Re1: (AZ
C.CZRCFC)ZRCFC3.816;4

24:

imc READY

717

AZY READY .ERR

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28

TEST SECTION

000001

27-Mer-1985 13:28:18

0000006

0000006
000001 000000G
000442
0000006
0000006
0000006
0000006
0000006
0000006
0000006
0000006
0000006
0000006
000000G 000000G
0000006
0000006
0000006
000002

34;
as:

0000006

MOV

PC,DECODE
01 .RETRIES
154
BYTE. COUNT
BUF . DESCRPTR
SWP.START, -(SP)
SIZ.LBN, -(SP)
PC,
RO,LBN. ST
)
(SP)
SIZ.LBN, -(SP)
PC, BL $MUL
RO.LBN.ED
SIZ.LBN,LBN.SZ
LBN.ST,R2
LBN.ED, (SP)
LBN.ST,(SP)
92,-(SP)
PC.BL$DIV
RO.R3
g;.nz

; LBN.MID,LBN.SA

3748

MOV
CLR
MOV
JSR
ROR

R2,LBN.ST
LBN.ST,CMD. REF
PC,READ.CMD
RO

; LBN.SA,*
; COUNT
:

3752

TRAP

BCC

JMORD
'WORD
'WORD

0000006
0000006
0000006
0000006

MOV
MOV
MOV
MOV

000004
000010
000001

MOV
MOV
TRAP
ADD

0000006

0000006
000001 0000006
000000G 0000006
000001
0000006

74:
8s:

000000G 0000006

0000006

;

3722

;
i
;
;
;

3724
3717
3730
3731
3778

;

3739

;

3740

: *,LBN.SA
;

; «,LBN.MID

3750
3754

3756

;

3759

LBN.ST,(SP)
SWP .END, -(SP)
SWP
. START, -(SP)
oFMT9,
- (SP)
04,-(5P)
SP.RO
14
10, 5P

;

3760

73
SK.FOR.ERR
O

: SP,s

%.fiET.STATUS

JSR
MOV
BR
MOV
INC
CHP
BLOS
ADD

PC,DECODE
01 .RETRIES
9%
LBN.ED,LBN.ST
R1
R1,01
68
LBN.SZ,R2

:
:
; COUNT
; COUNT,
; +,LBN.SA

MOV

R3,R2

MOV

3741
3742

;

gaue

94:

(17)

JSR
MOV
JHP
CLR
CLR
MOV
MOV
JSR
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
SUB
MOV

g}.m.smus

02
09.926
91

JSR

64:

USER#1:(AZTEC.CZRCFCIZRCFC3.816;4

SEQ

LMORD

5%:

0000006
000000G 0000006

VAX-11 Blies-16 V4.0-579

ngl.m.sz.n.an.eo

R3.LBN.ED

: LBN.MID,LBN.SA

; LBN.MID,

3762

3764
3768
3752

3758

3772
g;rzg
3780

3781

C7
CZRCFCO RC25 FR END TEST

ZRCFR3
v03.0

27-Mer-1985 15:27:28
27-Mar-1985 13:28:18

TEST SECTION

104:

0000006
000000G 000000G
0000006

114:

R2,R3

CMP
BHI
EEX

144

MOV
JSR
ROR
8CC
TRAP
.WORD

LBN.ST,CMD. REF

PC,READ.CMD

.WORD

000010
000001

124:

000000G 0000006

134:

000001

000010
000001

000566
000574
000576
000602
000606

000610
|000614

000000G

0000006
0000006
000207

; Routine Size:
;

004767

104466
006000

103773

000207

16%:

177222

17%:;

199 words,

Maximum steck depth per

10
12

14%:
15¢:

177156

Routine Bease:

invocation:

14 words

T17::
1%:

3783

; LBN.SA,»

3786
3788
3790
3792

; C COUNT

’

134
35

3795

LBN.ST,(SP)

379

ornro -(SP)
04,-(5P)

SP.RO
18

: SP,e

ADD
gé;

010, 5P

#1,RET.STATUS

3798

JSR
ggv

PC,DECODE
#1,RETRIES
144

3794

124

?ag

LBN.ED,LBN.ST

R1
R1,01
114

cMP
BLOS
SuUB

0000006

%175

SWP. START

TRAP

0000006
000001
000000G

S€0,0287

s LBN.SA,LBN.MID

SWP.END, -(SP)

MOV

000000G

USER$1:[lZTEC CZRCFC]ZRCFCS 816:4

74
SK.REV.ERR

. WORD
"oV
MOV
MOV
MOV

0000006
0000006
0000006
0000006

VAX-11 Bliss-16 V4.0-579

ADD
gés

Tg?.RETRIES
PC

AC$CODE +

*,LBN.SA

3808
3783
3Nn7
3816
3818

3673

14060

.SBTTL

T17 TEST SECTION

JSR

PC,$7T17

RTS

3788

; COUNT,»

RTS

BLO

COUNT

PC,D0.RETRIES

JSR
15T
BEQ
JMP

TRAP
ROR

3800

14
PC

ACS$CODE + 14676
; Routine Size:
6 words,
Routine Base:
; Meximum steck depth per invocetion:
2 words

3822

D7
CZRCFCO RC2S FR END TEST

ZRCFB3
v03.0

3824

TEST SECTION

' <BLF/PAGE>

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579

USER$1: (AZTEC.CZRCFCIZRCFC3.B16:4

SEQ 0288
P

2 (17)

ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

TEST SECTION

¥,
27-Mar-1985 15:27:28

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC. CZRCFC]ZRCFCS B16;:4

3825
3826
3827
3828
gggg

1
3
3
3
g

!
BGNTST;

gggé

5 DESCRIPTION:

:
3

3833
gg;g

3
g

!
z

THIS TEST BRINGS RC2S CONTROLLER AND THE UNIT ON LINE AND READY TO
ACCEPT MSCP COMMANDS.

;.
:
3

3836
3837
gggg

3
3
g

!
'
s

ONE THOUSAND SEEK COMMANDS WILL BE ISSUED ONE AT A TIME TO TOGGLE
BETWEEN THE BEGINNING TRACK OF O (LBN = 0) AND THE ENDING TRACK
OF 820 (LBN = 820 = 31).

:
3
:
:

3840
3841
3842
gg:z

3
3
3
g

!
!
!
5

THIS IS A SINGLE SURFACE TEST. SEEX IS DONE ONLY ON TOP SURFACE
UNLESS THE OPERATOR CHOSE TO SEEK ON BOTTOM SURFACE BY ANSWERING
ONE OF THE SOFTWARE QUESTIONS. THE OPERATOR HAS CONTROL OVER THE
BEGINNING AND ENDING TRACKS, IF DESIRED BY ANSWERING QUESTIONS.

:
3845
:
3846
:
3847
3848
3
3849
3
3
3850
3851
3
3
3852
3853
;:
3854
3
3855
:
;
3856
:
3857
3858
3
;3859

3
3
3
3
3
3
3
3
3
3
3
3
3
3
g

!
!
'
!
!
1--

ERROR REPORTS INCLUDE STARTING, ENDING AND DESIRED TRACKS.
AFTER
REPORTING THE FAILURE THE DIAGNOSTIC WILL ABORT THE TEST, UNLESS
RETRIES IS ENABLED.

loceal
LBN_SA;

gggé

NUM_RETRIES = ZERO;

;
3
3
3

3863
3864
3865
gggg

3
4
4
:

while (.NUM_RETRIES lequ .SWP_RETRIES) do
beaan
18;
' GET AZTEC READY FOR OPERATION

;
3
3
3

3868
3869
3870
gg;g

4
S
g

then
beain
ERRDF (61, AZT_READY_ERR, 0);

gg;}

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

i
3
3
H

3875
3876
3877
3878

S
S
4
4

RETRIES = TRUE;
end

! SET RETRIES FLAG

:
:
:
:
3
3

3
:
;

3879
3880
3881

S
S
S

Yoo

' TEST #18 - TOGGLE SEEK AND VERIFY TEST
'

abel
BLOCK1,
BLOCKZ;
if .SWP_TRACE then PRINTF (DBM24);

if AZTEC_READY ()

else
BLOCK]1 :

?
! PREPARE FOR READ_CMD
BYTE_COUNT = ZERO;

! TEST 18

! IF FAILURE REPORT ERROR
!

! SET BYTE COUNT TO ZERO

55092229 94
(18)

F7
CZRCFCO RC2S FR END TEST

27-Mer-1985 13:28:18

BUF_DESCRPTR = ZERO;

VAX-11 Bli

USER$1:[AZ C CZRCFC)ZRCFCB B16:4

SEQ 0290

(18)

! CLEAN THE BUFFER

! SEEK BETWEEN BEGINNING TRACK AND ENDING TRACK
'

LBN_SA = (.SWP_START+.SIZ LBN);

' FIND STARTING LBN

TIP
= ZERO;

! CLEAR COUNTER TO ZERO

LBN_ ED_= (.SWP_"ENDs.SIZ_LBN);

BLOCKZ :

! FIND ENDING LBN NUMBER

begin
while

.TIP lequ 500 do

bcain
LBN_ST =

! DO SEEK

! TO LOWEST LBN
! BEGINNING TRACK LBN

.LBN_SA;

incru COUNT from O to 1 do
begin

an_ner = .LBN_ST;

! PUT LBN IN CMD_LREF

L:‘aeno_cno 0

ISSUE A SEEK COMMAND

beai

ERADF (62, SK_TOG_ERR, 0);
PRINTB (FMT9, .SWP_START,

.SWP_END, .LBN_ST);

if .RET_STATUS then DECODE ();
RETRIES = TRUE;

else

! DECODE STATUS OF READ_CMD

leave BLOCKZ2;

! ABORT SEEK

LBN_ST =

! HIGHEST TRACK NUMBER

end

_LBN_ED;

end;

TIP =
end;

. TIP «

! INCREMENT COUNTER
! AND REPEAT S00 TIMES

end;
end;

if (.RETRIES) then DO_RETRIES ();
if (.NUM_RETRIES eqlu ZERD) then exitloop;
end;
return;

ENDTST;

0000006
000001
0000006
0000006

000001

—

27-Mar-1985 15:27:28

TEST SECTION

HUWWWELLLLANOTINIIOOROVOOOVOOOOODEE®O®
I~~~
TUTVILIUIIVIWL

W5 S5 00 B0 00 90 0 G0 W0 B8 G0 G0 G0 G0 S0 B0 S0 B8 S8 BE S8 GF S0 B0 B6 G0 G0 GF

6 G0 S8 G

S0 G6 G G S¢ Ge e G G4 Gs

s S8 G4 Ss

s e

ZRCFR3
vV03.0

$T18:

.SBTTL
JSR
g%s

5113 TEST SECTION
R1, $SAVE2
:1" SWP. TRACE

MOV

#DBM24, - (SP)

MOV

SP,RO

MOV

01,-(SP)

3823
3859

i SP,+

ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0

000026

TEST SECTION
104417

000030 022626
000032 005067 0000006
000036 026767 000000G 000000G
000044
000046

000054

101151
012767

004767

000060 006000

000062
000064
000066
000070

103016
104455
000075
000000G

000074

032767

000072

000102
000104
000110

000116

G7
27-Mar-1985 15:27:28
57-Mer-1985 13:28:18

000000

001402
004767
012767

000513

000022

0000006

000001

1$:

24:

0000006

0000006
000001
000000

as:

004767
010067
005067

000200
000202
000206
000210

101060
010267
005001
016767

0000006
0000006
000000G

5%:

0000006
000000G 0000006

000216 004767 000000G

64:

000222 006000

103034
104455
000076
0000006
000000
016716 0000006
016746 0000006
016746 0000006
012746 0000006
012746 000004
010600
104414
062706 000010

272 032767 000001
300
302

306
314
316
324

001402
004767

012767
000412
016767
005201

0000006

000001

0000006
7%:

0000006 000000G

8%:

;

! %

2o(18)

3861

3863

;

3865

3871

01,RET.STATUS

;

3873

104

;
:

3875
3868

124
022,11P

34
PC,DECODE
o1 .RETRIES

CLR
CLR

BYTE. COUNT
BUF . DESCRPTR

MOV
JSR

SIZ.LBN,-(SP)
PC,
BL $MUL

USER$1:(AZTEC. czacrcmcrcs B16:4
i

BEQ
JSR
MOV

SWP.START, - (SP)

’

3863

;
:

3881
3882

3886

RO .R2
SWP.END, (SP)
SIZ.LBN.-(SP)

; #,LBN.SA
;

3887

1IP, 0764

JSR
MOV
CLR

PC,BL $MUL
RO.LBN.ED
TIP

;

BHI
MOV
CLR
MOV

9%
az LBN.ST
R1
LBN.ST,CMD. REF

3892

; LBN.SA,+
; COUNT
-

3894
3896
3898

ROR

;

3903

3904

CHP
JSR

PC,READ.CMD

BCC
TRAP
JMORD
"WORD
'WORD
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

8$
S5
76
SK.TOG.ERR
O
LBN.ST,(SP)
SWP .END,
- (SP)
SWP . START, -(SP)
OFMTY, -(SP)
04, -(5P)
SP,RO
14
910, 5P

BEQ
JSR

7%
PC,DECODE

BIT

000000G

326 020127 000001

44
S5
75
AZT.READY.ERR

MOV
MOV
MOV

000172 026727 000000G 000764

000224
000226
000230
1000232
000234
000236
000242
246
252
000256
262
264
266

BCC
TRAP
JMORD
'WORD

MOV

0000006
0000006

000144 010002
000146 016716 0000006
000152 016746 000000G

000156
000162
000166

PC,AZTEC.READY

BIT

000130 016746 0000006
016746
004767

JSR

BHI
MOV

'WORD

000000G

( (sp)o
é
Nun nemss SWP.RETRIES

ROR

000120 005067 000000
000124 005067 0000006
000134
000140

TRAP

CHP
CLR
CHP

SEQ oz9

VAX-11 Bliss-16 V4.0-579

MOV
BR
MOV
INC

cHP

;

3900

; SP,*

01,RET.STATUS

;

#1.RETRIES
94
LBN.ED,LBN.ST
R1

,
:
:
: COUNT

R1,01

3888

; COUNT,

3906
3908
3902
3912
389

X
CZRCFCO RC2S FR END TEST

ZRCFB3

101726

005267
000714
062706
032767
001402
004767
005767
001223
000207

000000

004767

000004
000006
000010
000012

104466
006000
103773
000207

000006
000001

000000G

000000G
0000006

11%:

JSR
157

64
TIP
54
06, SP
:I.RETRIES
13
PC,D0.RETRIES
ggH.RETRIES

12%:

RTS

9¢:

Routine Base:
ACS$CODE +
invocation:
12 words

177402

T18::

1¢:

.SBTTL
JSR

1<BLF/PAGE>

USER#$1:

Thz

38-16 V4.,0-579
TeC.CZ RCFCJZRCFC3.B16;4

€00292

%€ 18)
3916
3892
3868
3922

3924
3823

T18 TEST SECTION
PC,$T18

66
RO

RTS

Routine Base:
ACS$CODE +
invocation:
2 words

VAX-11

14712

TRAP
ROR

BLO

;: Routine Size:
6 words,
; Maximum steck depth per

3930

104:

BLOS
INC
BR
ADD
BIT

0000006

;: Routine Size:
; Maximum steck depth per

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

000000

15304

3928

17
CZRCFCO RC25 FR END TEST

ZRCFB3
v03.0

VTNV
S B VTVTVTVTVIUTUIL B 5 5 5 5 5 08 0l Gl Gl G4 G4 G G G4 Gl GF G G G Gl Gl G G 00 G 0 G ol (0 G N G (0 G (8 (i

3931
3932
3933
3934

TEST SECTION

27-Mar-1985 15:27:28

27-Mar-1985 13:28:18

VAX-11 Bliss-16 V4,0-5

USER$1:[AZTEC. CZRCFC]ZRCFC3 B816;:4

BGNTST;
Yoo

TEST @19 - HEAD SWITCH TEST

DESCRIPTION:

THIS TEST WILL BRING RC25 CONTROLLER AND THE UNIT ONLINE
AND WILL LOAD DM CODE PROGRAM TO CONTROLLER'S MEMORY USING
EX_SUP_PROG COMMAND

I
l

l
|

DM CODE WILL SEEK TO BOTH SURFACES OF THE UNIT, THE XFC STATUS

WILL BE USED TO VERIFY THAT THE PROPER TRACK HAS BEEN REACHED.
BLOCK HEADERS WILL BE READ TO VERIFY THAT THE PROPER HEADS ARE
SELECTED. DM CODE WILL RETRY IF THERE WAS ANY ERROR IN SEEK.
OM CODE WILL GIVE SUCCESS OR FAILURE CODE TO THE HOST.

:
l
.

IF FAILURE,

THE TRACK, HEAD AND UNIT WILL 8E REPORTED AS RECEIVED

FROM DM CODE.

'
l

IF RETRIES ARE TURNED ON THE TEST WILL BE REPEATED.

abel
BLOCK];
if .SWP_TRACE then PRINTF (DBM2S);

! TEST 19

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
bcam

! GET AZTEC READY FOR OPERATION
if AZTEC_READY ()

then

else
BLOCK1 :
!

! IF FAILURE REPORT ERROR

begin

ERRDF (63, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

RETRIES = TRUE;

end

SET RETRIES FLAG

begin

! ISSUE AN EX_SUP_PROG COMMAND WITH START ADDRESS OF

' DM_19 VECTOR ARRAY AND BYTE COUNT.
CMD_REF = ,CMD_SLOT;
BUF "DESCRPTR = DM_19;

BYTE_COUNT = 156#¢2;
if EX_SUP_PRG ()

then

! COMMAND REFERENCE NUMBER
! DMCODE STARTING ADDRESS
! BYTE COUNTS
! ISSUE AN EXECUTE SUPPLIED COMMAND

' REPORT IF FAILED

SEO 0293 %

(19)

ZRCFR3

CZRCFCO RC2S FR END TEST
TEST SECTION

3993
3994

3997

3998

2888
4001
4002
4003
:88;

:883
4008

4009

—

H»
o

4012

4014
4015

4017
:8%3
4020

4021

4022

:832
:832
4027
4028

:83%
4033
4034

4035

if .RET_STATUS then DECODE ();

! DECODE STATUS

RETRIES = TRUE;
leave BLOCK];

! ABORT TEST

CMD_REF =

,CMD_SLOT;

USER$1:[AZTEC.CZRCFC)ZRCFC3.B16;:4

p.g. 99

! DESCRIPTOR ADDRESS

BYTE_COUNT = 02;

! TOTAL BYTES TO BE TRANSFERRED

if SEND_DATA ()
then
bcain
ERRDF (65, SND_DATA_ERR, 0);

!
'
!
!

if .RET_STATUS then DECODE ();
RETRIES

ISSUE SEND DATA COMMAND
IF STATUS BIT INDICATES ERROR
THEN REPORT ERROR

! DECODE RETURN STATUS

TRUE;

leave BLOCK];

ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET

' 7O GET THE STATUS SENT BY DM CODE AFTER DOING

! HEAD SWITCH TEST.
CMD_REF = .CMD_SLOT;

BUF _DESCRPTR = RCV_DATA_BUF [0];

COMMAND REFERENCE @

BYTE_COUNT = 10;

! SET THE BUFFER AREA TO
! RECEIVE S WORDS FROM DM CODE
! SET BYTE COUNTS = 10

if REC_DATA ()

! SEND A RECEIVE DATA COMMAND

then

beain

' IF FAILURE REPORT ERROR

if .RET_STATUS then DECODE ();

! DECODE STATUS

ERRDF (66, RE_DATA_ERR, 0);

RETRIES = TRUE;
leave BLOCK];

! CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR
if .RCV_DATA_BUF [0]) nequ %o'104'

then

begin
ERRDF

4037

(67,

MSG_HSWICH ERR,

0);

! IF NOT SUCCESS, REPORT ERROR
!

REPORT HEAD SWITCH FAILURE

PRINTB (FMT10, .RCV_DlTk_éUF fl]. .RCV_DATA_BUF [2], .RCV_DATA_BUF ([3]);

4038

RETRIES = TRUE;
end;

&SSO

SEQ 0294

! COMMAND REFERENCE 04

BUF _DESCRPTR = UNIT;

4036

4039
4040
4041
4042

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4,0-579

bcain
ERRDF (64, EXE_SUP_ERR, 0);

'O\

gggé

VVIVIVIVIVION

3988
gggg

VTVTUVTUVTVIVTVIVTIVTVINO VOOV O O LTTVTVTTNTUVTN O OV OOV OV O

v03.0
.Q.-..........................“...I.l...............'.......l...l.l.‘...’.’.I.......l.’.'“.I“.‘....“.D““"“

J7
.
27-Mar-1985 15:27:28

end;

if (.RETRIES) then DO_RETRIES ();

! TRACK NUMBER

' PRINT UNIT, HEAD AND

(19)

I<7
CZRCFCO RC25 FR END TEST

ZRCFR3

TEST SECTION

VAX-11 B li 99-16 V4,0-579
USER#$1:( AZTEC.CZRCFCIZRCFC3.816;4

SE0P02951°o

.9.(19)

if (.NUM_RETRIES eqlu ZERO) then exitloop:;
end;
return;

ENDTST;

000001

000000G

$719:

0000006
000001

.SBTTL
8

$T19 1551 SECTION

:I.SHP ACE

3958

00BM2S, - (SP)

0000006
000000G 0000006

01,-(5P)
ST

[+ ]

4045
4046
4047

= WWHWNLE
LD

®¢
@0 oo

v03.0

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

17
(SP)e,(SP)e

NUM.RETRIES

§¥"RETRIES, SWP.RETRIES
PC

000023 0000006
0000006

PC,AZTEC.READY
RO

5%
55
77

SP,»

3960
3962
3964

3967

3970

SZT.READY.ERR
000001

01,RET.STATUS

0000006

0000006
000001
0000006

44
44

000000G 0000006
000000G 000000G
000470 0000006
0000006

PC,DECODE

3972

01,RETRIES

3974

CMD.SLOT,CMD.REF

#0M. 19,BUF .DESCRPTR

3982
3983

:g.EX.SUP.PRG

3986

124

0470,BYTE.COUNT

000001

55
100
EXE.SUP.ERR
0

#1,RET.STATUS

000000G

0000006
000001
000000G

000000G 0000006
0000006 0000006
000062
000000G
0000006

64:
74:

PC,DECODE
OI;RETRIES

12
CMD.SLOT,CMD.REF
OUNIT,BUF .DESCRPTR

02,BYTE.COUNT
PC,SEND.DATA

3989

L7
CZRCFCO RC2S FR END TEST

ZRCFR3

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

VAX-11 B li 8s8-16 V4.,0-579
USER#$1:(
1:( AZTEC. CZRCFC]ZRCFC3.816:4

SEOP02961°1

.9.(19)

gND.DAIA.EflR
000001

000000G

0000006
000001
0000006

000000G 0000006
000000G 0000006
000012
0000006
0000006

000001

#1,RET.STATUS

84:

PC,DECODE
OX‘RETRIES

9s:

CMD.SLOT,C

0000006 000104

0000026
0000006
000004

0000006
0000006
70

000207

177342

4016

4018
4020

4023

01,RET.S5TATUS
1 04

4025

01,,RETRIES

118:

40)8
4003
4015

110
55
102
gE.DlTA.ERR

PC,DECODE

10¢:

0000066
0000046

000001
000012
000001

REF

ORCV.DATA, nur BUF .DESCRPTR
012,8YTE. COUNt
pc REC.DATA

0000006

0000006
000001
0000006

4006

4027

124
RCV.DATA.BUF
0104
124
55
103
gSG.HSHICH.ERR

4022

RCV.DATA.BUF +6, - (SP )
RCV.DATA.BUF
«4 . -(SP )

4037

4033

4036

RCV.DATA.BUF+2.- (5P )
oFMT10, -(SP)

04,-(SP)
14

01,RETRIES
012,5P

000000G
0000006

:1RETRIES

12%:

PC,DO.RETRIES
NUM. RETRIES

13s:
14%;

4039
4035
4044

143

RTS

24
PC

3929

; Routine Size:

157 words,
Rout ine Bese:
AC$CODE - 15320
7 words
; Meximum steck depth per invocetion:

004767

00010

104466
006000
103773

177302

T19::
14:

T19 TEST SECTION
JSR

PC.8719

ROR
8LO

TRAP

4050

————

M7
ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

000012

27-Mer
- 1985
27-Mer-1985

TEST SECTION

000207

R1S

;: Routine Size:
6 words,
Rout ine Bese:
ACSCODE - 16012
: Maximum steck depth per invocetion
2 words

405¢

! <BLF /PAGE >

}g g:28
8:18

VAX-11 Bliss-16V

579

USER$1:[AZTEC. CZRCFC)ZRCFCS 816;4

09029 102
000(19)

N7
CZRCFCO RC2S FR END TEST
TEST SECTION

27-Mer-1985 15:27:28

VAX-1 18 1li 98-16 V4.0-579

27-Mer-1985 13:28:18

USEN
1:( AZTEC. CZRCFC)ZRCFCS B16;4

BGNTST;

N
AN ANV
E BNV
S &B 5 B L 0 L G U G U 0 G L L G

U U L L o

TEST 020

RANDOM SEEX AND VERIFY TEST

: DESCRIPTION:

'
.
.

THIS TEST BRINGS RC2S CNWG.LER Aw THE SELEC?ED UNIT ONLINE
AND THEN ISSUES 1000 SEEKS ONE
A
TIME TO RANDOMLY SELECTED
LBN TRACKS BETWEEN THE RANGE OF 0 1641, THIS WILL ENSURE HEAD

SURFACE OF SELECTED UNIT.

SWITCH AS MELL BECAUSE TRACKS OVER 820 WILL BE IN THE BOTTOM

ERROR REPORTS INCLUDE SEEX COUNT AND FAILING TRACK NUMBER. IF

LOOP ON ERROR FLAG IS SET, FAILING TRACK WILL BE RETRIED FOR EVER.

lebel
BLOCK]
;
if

.SWP_TRACE then PRINTF (DBM26);

TEST 20

IF FAILURE REPORT ERROR

NUM_RETRIES = ZERO;
while (. NUM_RETRIES lequ .SWP_RETRIES)
do

: GE“'ZTEC READY FOR OPERATION
if AZTEC_READY ()
then
in

else
8LOCx]l :

ERROF (68, AZT READY ERR. 0);

if _RET_STATUS then DECODE ();

! DECODE THE STATUS,

RETRIES = TRUE;

' SET RETRIES FLAG

end

IF ANY

begin

BuF

26h0;

YTE_COUNT
= ZERO

BUF _ “SCRP"' « 2E

P2 5

.TICKS;

BYTE COUNT TO ZERO
!i CLEAN
THE BUFFER
INIT P2 FOR RANDOM NUMBER
!

SET

1P « ONE;

i] INIT COUNTER 10 ONE

wile .TIP leau 1000 do

' DO SEEX 1000 TIMES

N ()

! GET A RANDOM LBN NUMBER

T R
CMD REF = .LBN ST;

' THIS 15 1T
i PUT LBN IN CMO_LREF

i# READ_CMD ()

' ISSUE A SEEX COMMAND

then

“'nfl

SE 0 0298

103
.9.( 20)

B8
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28

TEST SECTION
4110

27-Mer-1985 13:28:18

VAX-11

USER#1:[AZTEC. czncrclzacrcs 816;4

;

PRINTB (FMT11, .TIP, .LBN_ST);

:iii

;

if .RET_STATUS then DECODE ();

! DECODE STATUS OF READ_CMD

4115
4116
4117

7
7
7

RETRIES = TRUE;
leave BLOCK];
end

ABORT SEEK

INCREMENT COUNTER

4118

4121

else

end;

6
6

TIP =

.TIP « 1;

4122
<123
4124

§
4
4

if (.RETRIES) then DO_RETRIES ();

:igz

if (.NUM_RETRIES eqlu ZERD) then exitloop;

end;

:igg

4129

4130
4131
4132

3
3
1

032767
001407
012746

000001

0000006

$720:

0000006

.SBTTL
BIT
BEQ
MOV

$T20 TEST SECTION
01, SWP, TRACE
14
0DBM26 , - (SP)

MOV

SP.RO

; SP,e

CLR
CMP
BHI
JSR
ROR

NUM.RETRIES
NUM.RETRIES, SWP.RETRIES
10$
PC,AZTEC.READY
RO

;
:

LMORD
'MORD
'WORD
BIT
BEQ
JSR
MOV

CLR
CLR
MOV

BYTE.COUNT
BUF.DESC” TR
TICKS,P2

MOV

104417
022626

TRAP
CMP

0000006
0000006 0000006

1%:
24:

0000006

000467

005067
005067
016767

012767
026727
101051
004767

016767

000001

01,-(SP)

17
(SP)e+,(SP)+

g, 4

000104

000000
032767
001402
004767
012767

(20)

return;
ENDTST;

010600

ieile

Page 104

end;

012746 000001

005067
026767
101122
004767
006000

SEQ 0299

ERRDF (69, SK_RAN_ERR, 0);

:i{é

4119
4120

Blies-16 V4.0

0000006

0000006
000001
000000G
0000006
0000006
0000006 0000006

000001 0000006
0000006 001750
0000006

0000006 0000006
000000G 000000G

34:
as:

S$:

MOV
CMP

BHI
JSR

MOV

.
H

;
:

4075

4077
4079

4083

e
4088
4090

4083

01,71
116 91750

:
;

4099
4101

PC RANDOM. NUM

P3.LBN.ST

LBN.ST,CMD.REF

;
:
:

409
4097
4098

4103

4104

4105

CZRCFCO RCZS FR END TEST

ZRCFB3
v03.0
000162
000166

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

004767

006000

0000006

0000006
000000
016746 0000006
016746 0000¢ 06
0000006
000003

005767
001252
000207

USER#$1:: (AZEC CZRCFC)ZRCFC3.816:4

SEQ 0300

105

000(20)

4107

55
105

4110

LBN.ST,-(SP)

4111

8“.RAN.ERR

TIP,-(4P)
ornixx -(SP)
s#)
14

010, 5P

0000006

74:

0000006
0000006
4

4113

6%:

000000G

i SP,*

:1.651.srnvus

000000G

0000006
000001
000000G

000001

Blis 8-16 V4.0-579

PC,READ.CMD
RO
74

103032
104455
000105

000010
000001

VAX-1

.-..n

PC,DECODE

:I.RETRIES

4115

4119
4101

§
TIP

84:

01.RETRIES
94

9s:

g?H.RETRIES

4127

10¢:

4051

4125

PC,D0.RETRIES

100 words,
Rout ine Base:
ACS$CODE + 16026
;: Routine Size:
stack
depth
per
invocation:
6
words
m
Meximu
;

000000
000000
000004
000006
000010
000012

004767

14:

006000

103773
000207

.SBTTL

T20 TEST SECTION
PC,$720
66
RO

6 words,

Meximum stack depth per

;4133

T20::

104466

; Routine Size:

;

177464

AC$CODE + 16336
Routine Bease:
invocation:
2 words

1<BLF/PAGE>

4131

ZRCFR3

CZRCFCO RC25 FR END TEST

v03.0

4134

TEST SECTION

27-Mer-1985 13:28:18

4135
4136
4137
:igg

:
:

:i:g g
4182 3

g DESCRIPTION:
]
THIS TEST BRINGS RC25 CONTROLLER AND SELECTED UNIT ONLINE

:{:g

BY GIVING EX_SUP_PROG COMMAND.

4147

BLOCKS AFTER MAKING SURE THAT GOOD HEADER IS FOUND.

.
:
:
:

4143

4146 3

4148
4149
:igg

tos
t TEST @21 - SECTOR ACCESS TEST

]

AND THEN LOADS DM 21 VECTOR ARRAY INTO CONTROLLER'S MEMORY

3
3
g

]
:
:

4152 3

;

THE DM PROGRAM WILL SEEK TO DIAGNOSTIC TRACK O AND READ 32

THIS IS A SINGLE SURFACE TEST. TOP SURFACE WILL BE ACCESSED

3
3
3
3

:
;
:
1--

:
:
:
:

4158
4159
4160
:igé

3
3
3
g

label
BLOCK1;

:igz :

NUM_RETRIES = ZERO;

4165

while (.NUM_RETRIES lequ .SWP_RETRIES) do

4167

4%90 4

417

4166

;4168 4

B
:

:
:
-

4171
4172

4
5

4178
4179
4180

4183 §

S
4
4

an i

;

4184

;

:igz

;

:igg g

:
:

UNLESS THE OPERATOR CHOSE BOTTOM SURFACE BY ANSWERING ONE OF
THE SOFTWARE QUESTIONS.

if .SWP_TRACE then PRINTF (DBM27);

48185
4186

5
5

' TEST 21

beain
TIP

= 21

' GET AZTEC READY FOR OPERATION

if AZTEC_READY ()

then
begin

ERADF (70, AZT_READY_ERR, 0);

41;5 g
&4
4179 5

;
3
:

OM CODE

WILL RETRY IF ANY ERROR WAS FOUND. DM CODE WILL SEND STATUS BACK
T0 HOST WITH FAILING UNIT, HEAD AND TRACK. ERROR WILL BE REPORTED
BY HOST CODE.

4153
4158
4155
4156
4157

USER$1:(AZTEC.CZRCFCJZRCFC3.816:4

BGNTST;

:
:
:
:
:

VAX-11 Bliss-16 V4.0-579

:
:
:
:

3
3
3
g

D8
27-Mer-1985 15:27:28

if .RET_STATUS then DECODE ();
RETRIES = TRUE;

else
BLOCK] :

end

' IF FAILURE REPORT ERROR
'

' DECODE THE STATUS, IF ANY
' SET RETRIES FLAG

i ISSUE AN EX_SUP PROG COMMAND WITH START ADDRESS OF
! DM_21 VECTOR ARRAY AND BYTE COUNT.
CMD_REF = .CMD_SLOT;
BUF “DESCRPTR = DM_21;

! COMMAND REFERENCE NUMBER
i DMCODE STARTING ADDRESS

if EX_SUP_PRG ()

! ISSUE AN EXECUTE SUPPLIED COMMAND

BYTE_COUNT = 213¢3;
then

i BYTE COUNTS

! REPORT IF FAILED

092321105
(21)

ZRCFR3

CZRCFCO RC25 FR END TEST

v03.0

4191

TEST SECTION

4194 6

if .RET_STATUS then DECODE ()

419%

RETRIES = TRUE;

:
;:
:

4202
4203
:ggg

S
S
g

:
:
;

4207
4208
:393

S
6
g

:
:

:g}; 2
4213 6

:
:
:
:
:

42015

4206 5

4214

4219
4220
4221

8222

5
5
5

;

:gg}

4225 5

:
:
;

4226
4227
:553

S
6
g

;

:ggg

4233

;

:ggg g

4238

SEND_PKT

4241 6

;

4243

4282

4244

4246

4245
4247

UNIT

! COMMAND REFERENCE 04
! DESCRIPTOR ADDRESS
! TOTAL BYTES TO BE TRANSFERRED

then

' IF STATUS BIT INDICATES ERROR
! THEN REPORT ERROR
;

if SEND_DATA ()

boain
ERRDF (72, SND_DATA_ERR, 0);

if .RET_STATUS then DECODE ();
RETRIES = TRUE;

! ISSUE SEND DATA COMMAND

! DECODE RETURN STATUS

leave BLOCK];

' ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET

! TO GET THE STATUS SENT BY DM CODE AFTER DOING
! SECTOR ACCESS TEST.
CMD_REF = .CMD_SLOT;
BUF _DESCRPTR = RCV_DATA_BUF [0];

! COMMAND REFERENCE ¢
! SET THE BUFFER AREA TO

RECEIVE S WORDS FROM DM CODE

BYTE_COUNT = 10;

! SET BYTE COUNTS = 10

if REC_DATA ()

! SEND A RECEIVE DATA COMMAND

then

beain
ERRDF (73, RE_DATA_ERR, 0);

! IF FAILURE REPORT ERROR

if .RET_STATUS then DECODE ();

! DECODE STATUS

RETRIES = TRUE;
leave BLOCK];

* CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR
if .RCV_DATA_BUF [0) nequ %o'104'

! IF NOT SUCCESS, REPORT ERROR

en or (74, MSG_SAC_ERR, 0);

! REPORT SECTOR ACCESS FAILURE

PRINTB (FMT10. .RCV DATA BUF (1], acv DATA_BUF (2), .RCV_DATA_BUF [3));

RETRIES = TRUE;

[WORDO

' DECODE STATUS

CMD_REF = .CMD_SLOT;
BUF “DESCRPTR = SEND PKT;
BYTE_COUNT = 04;

- 232210

! ABORT TEST

SEND. PKT WORD1]
= .SWP.TOP;

4232 6

leave BLOCK];
end;

4217 5

4218

V4.0-579

USER$1:[AZTEC.CZ Rcrc12ncrc3 B16;4

ERRDF (71, EXE_SUP_ERR, 0);

6
S
5
5

VA¥-11 Bliss-16

beain

:igg

4197
4198
4199
4200

27-Mer-1985 13:28:18

:
H
:
:

‘E8
27-Mer-1985 15:27:28

end;

! TRACK NUMBER

! PRINT UNIT, HEAD AND

(21)

F8
CZRCFCO _RC25 FR END TEST
TEST SECTION

(21)

return;

0000006
000001

$721 TEST SECTION
OI.SUP TRACE

MOV

008"27.-(SP)

BEQ

MOV
MOV

0000006
000000G 000000G
000025 0000006
0000006

34:

000001

.SBTTL
BIT

000000G

0000006
000001
000000G

000000G 0000006
000000G 0000006
000652 0000006
0000006

4%:
54:

4161

P,RO

SP,*

17
(SP)s+,(SP)+
NUM.RETRIES
ggH.RETRIES.SUP.RETRIES

4163
4165

PC
#25,T1IP

:S.AZTEC.READY

4167
4170

54
35
106
SZT.READY.ERR

4173

#1,RET.STATUS
44
PC,DECODE
OliRETRIES

12
CMD.SLOT,CMD.REF

#0M.21,BUF .DESCRPTR

#652,BYTE
. COUNT

:g.EX.SUP.PRG

4175

$T21:

000000G

000001

4177

4170
4185

®e

032767
001407
012746
012746
0600

age

ENDTST;

4256

4255

USER$1:[AZTEC. CZRCFC]ZRCFCS B16:4

SEOP03031°

end;

4254

0-579

if (.NUM_RETRIES eqlu ZERO) then exitloop:

42 52
4253

VAX-11
V
B liss-16

if (.RETRIES) then DO_RETRIES ();

N -

4248
4249
4250
4251

HWWHWLELLLL

®F

vV03.0

000000
000006
000010
000014
000020

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

®s

ZRCFB3

4187
4189

55
107

4192

Oi.RET.STATUS
6

4194

gXE.SUP.ERR

PC,DECODE
o1.RETRIES

000000G 000230°

74:

124
UNIT,SEND.PKT

SWP., TOP, SEND.PKT+2
CMD. SLOT, CMD. REF

0SEND.PKT, BUF.DESCRPTR
04,BYTE.COUNT
PC.SEND.DATA

4196
4191
4201
4202
4203

4206

G8
ZRCFR3
v03.0

CZRCFCO RC2S FR END TEST
TEST SECTION

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

000246 006000
000250
000254
000256
000260
000270
000272
000276
000304
000306

000314
000322

000330
000334
000336
000340

000342
000344
000346
000350
000356
000360
000364
000372
000374
000402
000404
000406
000410

103016
104455
)
000110
000000G
000000
032767 000001 0000006
001402
004767 0000006
012767 000001 000000G
000464
016767 0000006 000000G

012767
012767

004767
006000
103016
10445S

000111
0000006
000000
032767
001402
004767
012767
000431
026727
001425
104455
000112
0000006

000412
000414
000820
000424
000430

000000
016746
016746
016746
012746

000440
000442
000444
000452
000456
000464
000866

010600
104414
012767
062706
032767
001402
004767

00500
000504

000167
000207

0000006 000000G
000012 000000G

ROR

8s:
9s:

0000006

:
00000.

0000006

0000006
000001
0000006

108:

000000G 000104

118:

000006G
000004G
0000026
0000006

000434 012746 000004

72
76

005767
001402

000001
000012
000001

0000006

177326

JSR
ROR
BCC
TRAP
JWORD
.WORD
'WORD
8IT
BEQ
JSR
MOV
BR
CMp
BEQ
TRAP
LWORD
'WORD
'WORD

PC REC.DATA

MOV
MOV

0000006

12¢:
13$:

14%:

ORCV.DATA, eur BUF.DESCRPTR
012,BYTE. COUNT

004767

177266

T2l::

4209

;

4211

;
;
;

4213
4208
4220

:
;

4221
4223

;

4228

;

4230

;
;
:

4232
4227
4238

4241

4242

RCV.DATA.BUF +6, -(SP)
RCV.DATA.BUF
+4, -(SP)
RCV.DATA.BUF +2.-(SP)
OFMT10,-(SP)

MOV
TRAP
MOV
ADD
BIT
BEQ
JSR

SP RO
14
#1,RETRIES
#12,5P
oL, nevn:ss
134
PC,D0.RETRIES

: SP,s

RTS

24
PC

04,-(SP)

NUM.RETRIES
144

; Routine Size:
163 words,
Routine Base:
ACS$CODE +« 16352
; Maximum stack depth per invocation:
7 words

1000000

.SBTTL

Page 109
(21)

;

MOV
MOV
MOV
MOV

18T
BEQ
JMP

SEQ 0304

BCC
TRAP
JWORD
.WORD
.WORD
BIT
BEQ
JSR
MOV
BR
MOV

MOV

0000006

VAX-11 Bliss-16 V4,0-579
USER$1:[AZTEC. czacrc12acrc3 B16;4

T21 TEST SECTION

4225

:
;

4244
4540
4249

4251

4132

H8
ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0

000000

000004
000006
000010
000012

TEST SECTION

6 words,

! <BLF/PAGE»

Maximum stack depth per

4257

27-Mer-1985 13:28:18
1$:

104466
006000
103773
000207

; Routine Size:
:

27-Mar-1985 15:27:28

Routine Base:

invocation:

2 words

JSR

TRAP
ROR
BLO
RTS

PC,$T721
66
RO
14
PC

ACSCODE + 17060

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFC)ZRCFC3.B16;:4
’

SEQ 0305

Page 110

(21)

4255

18
ZRCFR3
v03.0

CZRCFCO RC25 FR END TEST
TEST SECTION

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

VAX-11 Blis
579
USER$1:(AZT c czncrc12ncrcs B16;4

:
:
:

4258
4259
4260

1
3
3

!
BGNTST;

:2225

: TEST 022 - CONTROLLER PROCESSING TIME TEST

:ggg :

: DESCRIPTION:

:589

4268 3

:5;?

ARE

:
:
:
:

4272 3
4273 3
4278 3

:g;g

]
'
'

THIS IS A SINGLE SURFACE TEST. SEEK WILL BE DONE ON TOP SURFACE
UNLESS THE OPERATOR CHOSE TO SEEK ON BOTTOM SURFACE. TRACK 0
WILL BE USED OR THE STARTING TRACK NUMBER AS GIVEN BY THE OPERATOR

4277 3

IF THERE WAS ANY ERROR IN SEEK, THIS WILL BE REPORTED WITH THE

;

:ggg

BE ABORTED UNLESS RETRIES ARE ENABLED.

:
:

:gg% g
4283 3

IF SUCCESS, THE AVERAGE TIME WILL BE REPORTED.

4261

4269

4278

THIS TEST BRINGS RC25 CONTROLLER AND SELECTED UNIT ONLINE.

THE CONTROLLER PROCESSING TIME IS MEASURED BY AVERAGING THE

TIME IT TAKES TO DO 100 ZERO LENGTH SEEKS, THAT IS, SEEKS THAT

;

ZERO TRACKS LONG.

WILL BE USED.

THE NUMBER OF SEEKS COMPLETED AND DESIRED TRACK.

4284
4285
4286
:gg;

;

:ggg g

NUM_RETRIES = ZERO;

4291

while (.NUM_RETRIES lequ .SWP_RETRIES) do

:
:
;

4293
4294
:532

4
4
4

4297 4

:ggg

ERRDF (75, AZT_READY_ERR, 0);

;

:ggg g

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

4304 5

RETRIES = TRUE;

' SET RETRIES FLAG

:
H
:
:
;:

4306
4307
4308
4309
4310

4
4
S
5
5

4312

;

4311

abel
BLOCK1;

THE TEST WILL

:
:
:
:

;

3
3
3
g

tes

if .SWP_TRACE then PRINTF (DBM28);

TIP

= ALL_ONES;

' GET AZTEC READY FOR OPERATION

if AZTEC_READY ()

else
BLOCK] :

Mo
= TEST 22

! THIS FLAG INHIBITS READ_CMD
! WAITING FOR END PACKET.

' IF FAILURE REPORT ERROR

begin
BYTE_COUNT = ZERO;

! BYTE COUNTS ZERO

BUF “DESCRPTR = ZERO;

! CLEAR BUFFER DESCRIPTOR

LBN_ST = ,SWP_ STARTO SIZ_LBN;

! FILL THE COMMUNICATION COMMAND RING SLOTS

! STARTING LBN

SEQ 0306

Page 111
(22)

J8
CZRCFCO RC2S FR END TEST

ZRCFB3

TEST SECTION

4315
4316
4317
4318
4319
4320
4321
4322

4323

4324
4325
4326

4327

4328
4329
4330
4331
4332
4333
4334
4335
4336
4337
4338
4339
4340
4341

mMOOQQQQOOOOOOOOOQQQOsl~lslslflsl\lQOOOOO‘MMMMMMMMWW@OOOOOOOMMMMM

v03.0

27-Mar-1985 15:127:28
27-Mer-1985 13: 28:18

! WITH READ COMMANDS
OUT_BOUND = ZERO;

VAX-11 Bliss-16 _V4,0-579

USER$1:[AZTEC.CZRCFCJZRCFC3.B16;4

! INITIALIZE COMMAND COUNT
! INIT RECEIVE COUNT

IN_BOUND = ZERO;

incru I from O to SND_ALLOCATE - 1 do

FILL COMMAND BUFFER WITH

CH8REF = .CMD_SLOT;

SEEK COMMANDS (16 SLOTS
WILL BE FILLED TO GET

OUT_BOUND = .OUT_BOUND + 1;

READ_CMD ();

if GET_CMD_SLOT () then exitloop:

ISSUE READ COMMAND
! GET NEXT COMMAND SLOT

end;

g INIT THE CLOCK AND START TIMING
CLOCK INIT ();
TEMP = _RC2S_ ADDR (RCIP, RC_ALL);

! INIT CLOCK VARIABLES
! READ IP TO INITIATE
! CONTROLLER TO START POLLING

while .IN_BOUND lequ 100 do
begm

! DO SEEK 100 TIMES

if REC_STATUS ()
then

! POLL RECEIVE RING FOR HOST
! OWNERSHIP BIT
! IF ERROR, REPORT ERROR

Tees

ERRDF (76. nss secx ERR, 0);

PRINTB (FMT11,
DECODE ();

.TEMP,

.LBN_ST);

RETRIES = TRUE;

leave BLOCK];

else

! DECODE END PACKET STATUS
!

end

AND ABORT TEST

begin

while

.OUT_BOUND lequ 100 do

seflo_RING (.CMD_SLOT, OWN_BIT) = PORT_OWNED;
OUT_BOUND
= .OUT_BOUND + 1;

! READ_CMD BACK TO PORT

RETURN

? INCREMENT COMMAND COUNT

if GET_CMD_SLOT () then exitloop;

if (.OUT_BOUND -

.IN_BOUND) eqlu 16 then exitloop;

! MAINTAIN A QUEVE LENGTH OF 15

end;

TEMP =
end;
end;

.RC25_ADDR [RCIP, RC_ALL];
! READ IP TO INITIATE
! CONTROLLER TO START POLLING

SEQ 0307

Page 112

(22)

IK8
ZRCFR3

czacrco ncas FR END TEST

v03.0

TEST SECTI

S
§

:
:

4372
4313

:
:
:
:

43715
437%
4377
43718

4380 S

4374

4379

4381

;4382
:
:gg}
B

27-Mer-1985 15:27:28

§
S
S
5

.CLK csa = 2ERO;
P6 = i
P2 = ( MINUTES#60 « secouos>~10&
DATAG = .P2 « (.TICKS*10/.CLK HERTZ);

!
!
!
!

PRINTB (MSG_PROTIME, .DATA4. .DATA3);

1 PRINT MESSAGE 'AVERAGE SEEK TIME'

DATAS = .TICKS#1000 mod .CLK_RERTZ

end;

4
:

)
if (.RETRIES) then DO_RETRIES ();

:332

if (.NUM_RETRIES eqlu ZERD) then exitloop;

:
:
:
:

4387
4388
4389
4390

3
3
3
1

end;

010146
024646

032767

$722:

000001

0000006

0000006 000000G
000622

177777

0000006

18:

34:

006000

BEQ
MOV
MOV
MOV

;

4256

ox SWP. TRACE

;

4287

ooenza -(SP)
01,-(SP)
SP.RO

; SP,s

(SP)e,(SP)e
NUM.RETRIES

4289

;

4293

SS
113

4300

;

4302

JSR
MOV
JHP
CLR
MOV

01,RET.STATUS
a4
PC,DECODE
o1 .RETRIES
134
BYTE. COUNT
SWP. START, -(SP)

:
>
;
:

4304
4297
4310
43]1)

JSR
MOV

PC, BL $MUL
RO.LBN.ST

:
;
;
i 1

4312
4316
4317
4319

CHP
CLR
CMP
BLOS
JHP

MOV

JSR

ROR

103017

B8CC

000000

'WORD
JWORD

104455
000113

TRAP
LMORD

000001

0000006

004767
012767
000167
005067
016746

0000006
000001 0000006
000520
0000006
0000006

004767
010067

0000006
0000006

016746
005067
005067
005067
005001

! 100TH OF MSEC. PER SEEK

$122 TEST SECTION
R1,-(SP)
-(5P), -(SP)

TRAP

000000G

004767 000000

032767
001402

(22)

STOP THE CLOCK
NUMBER OF SEEKS
SO MANY MSEC. PER SEEK
TOTAL MSEC./SEEK

LSBTTL
MOV
cMP

BI7

104417

012767

Page 113

return;
ENDTST;

001407
012746 0000006
012746 000001
010600
022626
005067
026767
101402
000167

USER$1:([AZTEC.CZRCFCIZRCFC3.B16;4

SEQ 0308

!
" STOP THE CLOCK

27-Mer-1985 12:28:18

VAX-11 Bliss-16 V4,0-579

8I7
BEQ
as:
5%:

0000006

MOV

0000006
0000006
000000G

CLR
CLR
CLR
CLR

NUM.RETRIES, SWP.RETRIES
3%
15
0-1,TIP

PC,AZTEC.READY
RO

SIZ.LBN, -(SP)

BUF . DESCRPTR
OUT . BOUND
IN.BOUND

;

4291

4597

L8
CZRCFCO RC2S FR END TEST

ZRCFR3

TEST SECTI

v03.0

000170
000176
000202

27-Mer-1985 15:
27-Mer-1985 13:

016767
005267
004767
004767

0000006 0000006

6%:

X1
-11
Bliss-16 V4.0-579

$1:(AZTEC .CZRCFC)ZRCFC3.816;4

CMD. SLOT,CMD. REF

S€0P030911‘

.9‘(22)

PC,READ,CMD

4321
4323
4324
4326

74
Rl
Rl 017

4319

0UT . BOUND

Rg+GET.CMD.SLOT

. INIT

4333
4334

xn souno 0144

4337

pc.aec.srnvus
RO
94

4340

CLOCK
ézs
AODR a(sP)
a(sP).

IN.BOUND, TEMP
55
114

4344
4345

MSG. SEEK . ERR

0
LBN.ST,(SP)

4346

TEMP, -(SP)

000003

000001
000022

SP,e

06, SP
PC,DECODE

000000G 000144

4347

01 ,RETRIES
022,5P

0000006

9s:

4348
4343

124
OUT BOUND, 0144

4354

CHD SLOT,.RO

4356

o
SEND .RING, RO

9100000, 2(R0)

ouT.8 OUND
PC GET.CMD.SLOT

4358

4360
4362

10¢;
0000006
000144
000000G

11%:

aRC2S. AODR 6(SP)

6(SP). EMP
aCLx CSR

0144 P6
MINUTES, (SP)
074, -(SP)

PC, BL $MUL

SECONDS, RO

+ ,RC.REG

RC.REG, »

4366
4337
4375

4376

4377

M8
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

VAX-11 Bl

8-16

579

USER$1:(AZ C CZRCFC]ZRCFC3 816;4

SEQ 0310

Page 115

(22)

000012
0000006

4378

000012

CLK.HERTZ, -(SP)

:C
.BLIDIV
RO
RO DATA4

TIEKS,(SP)

01750, -(SP)
PC,BL ML
RO.(SP)

4379

CLK. mm. (SP)

PC, BL $MOD

4380

000026
000001

000666
000670
000674
000676
000700

026,
5P
01 ,RETRIES
148
PC, 00 RETRIES

0000006

0000006
0000006

14%:

177142

15¢:

4297
4383

4385

4256

000207

Rout
ine Bese:
ACS$CODE .
; Routine Size: 225 words,
words
16
depth
per
invocet
on:
steck
; Meximum

004767

10
12

4393

13:::

104466
006000
103773
000207

1
3
3

PC.8722
66

6 words,
; Routine Size:
; Meximum steck depth per
4391
4392

T22 TEST SECTION

177072

Routine Bese:
AC$CODE 2 words

invocetion:

BGNTST;
! TEST @23 -

ONE TRACK SEEW TIMING TEST

17776

4389

N8
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

USER$1:[AZTEC.CZRCFC JZRCFC3.816:4

DESCRIPTION:
THIS TEST BRINGS RC2S CONTROLLER AND SELECTED UNIT ONLINE.

ONE TRACK SEEK TIME IS THE AVERAGE OF ALL ONE TRACK SEEKS THAT
DO NOT INCLUDE A MEAD SWITCH. ALL FORWARD ONE TRACK SEEKS WILL
BE DONE AND TIMED AND THEN REVERSE ONE TRACK SEEXS WILL BE
DONE AND TIMED. AVERAGE TIME WILL BE REPORTED.
THIS IS A SINGLE SURFACE TEST. TOP SURFACE WILL BE USED UNLESS
;;(“czenton CHOSE OTHERWISE. SEEXS WILL BE FROM START TQ THE END OF

IF THERE WAS AN ERROR,

ERROR WILL BE REPORTED AND THE TEST ABORTED

UNLESS RETRIES ARE TURNED ON.
ae

VAV AVANAAVN A BVVNVNVN A LA LA & B L U 0 U 0 L L L 0 0 L L G L L L 0 L (0 0 L o

TEST SECTION

VAX-11 Bliss-16 V4.0-579

BLOCK];

if .SWP_TRACE then PRINTF (DBM29);

TEST 23

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
"

TI8'T aLL_ones,

* GET AZTEC READY FOR OPERATION
i AZTEC_READY ()

then

begin

elce

BLOCK] :
e

! I FAILURE REPORT ERROR

ERNOF (77, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

RETRIES = TRUE;

! SET RETRIES FLAG

end

begin

BYTE_COUNT = ZERD

BUF _DESCRPTR = ZEROD;
A

LBN_SZ = .SIZ LBN;

' THIS FLAG INMIBITS READ CMO

! MAITING FOR END PACKET.

LBN_ST « (.OFFSET « 0)e.LBN szg

LBN_ED « (.OFFSET « 820)e.LBN_SZ;

! BYTE COUNTS ZERO

! CLEAR BUFFER DESCRIPTOR
! LBN SIZE TO INCREMENT TRACK

! STARTING LBN

! ENDING LBN

g INIT AND START THE CLOCK

;

CLOCK _INIT ();

' INIT CLOCK VARIABLES

incry COUNT from 0 to 1 do

! DO FORWARD AND REVERSE

SEQ_03

°v.g=lue
(22)

B9
CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

PO OVOOVOVOVOVOVOVOVPRP®IPEPPOEPB®P®INNNNONOCOOOCCRNNNNNNNNIPOOOOTOOOOO

M““““.‘.‘.‘.‘.‘.fl““.‘fl...fl“.‘...‘.....l'..'.0.I.O.C...OQ'“““.‘.C“““.’“.‘..".‘“““.’.‘“““““

TEST SECTION

VAX-11 ?ll
99-16 V
579
USER$1:[AZTEC.CZR FC]ZRCFCS B816;:4

' ONE TRACK SEEKS

begin

! FORWARD DIRECTION SEEK FIRST AND THEN REVERSE SEEK
! SECOND TIME AROUND THIS LOOP.

)

outaaouw . zeao,

! FILL
THE CWICATIN CWM RIM; SLOTS
WITH READ COMMAND
ZERO

' INITIALIZE COMMAND COUNT
! INIT RECEIVE COUNT

incru I from O to SND_ALLOCATE - 1 do

! FILL COMMAND BWFER WITH

' SEEK COMMANDS (16 SLOTS

CMD ();
OUT_BOUND = .OUT_BOUND + 1;

en8
REF = .LBN.ST;
READ

LBN_ST = _LBN_ST «

‘ WILL BE FILLED TO GET

A QUEUE LENGTH OF 15)

NEXT TRACK

.LBN_SZ;

if GET_CMD_SLOT () then exitloop;

! GET NEXT COMMAND SLOT

end;

TEMP =

_RC2S_ADDR [RCIP, RC_ALL);

: READ _IP FOR CONTROLLER START
POLLING

g FORWARD DIRECTION SEEK
while .IN_BOUND lequ 820 do
begin

! DO SEEK FROM STARTING TRACK

if REC_STATUS ()

: POLL RECEIVE RING FOR HOST

OWNERSHIP BIT.
! IF ERROR, REPORT ERROR

then

ERRDF (78 ~HSC SEEK ERR, °)§1)
PRINTB (FMT11, .TEMP, .LBN

! SAVE RgCEI VE COUNT

1 "DECODE END PACKET STATUS

DECODE ();
RETRIES = TRUE;
leave BLOCK];

else

! AND ABORT TEST

end

begin

while .OUT_BOUND lequ 820 do
bc%n
RE
FILL_CMD ();

! GIVE NEXT SEEK COMMAND
AND MAINTAIN A QUEVE OF 1S

OUT_BOUND
= .OUT_BOUND + 1;

LBN_ST = .LBN_ST + .LBN_SZ;

if GET_CMD_SLOT () then exitloop;

if (.OUT_BOUND end;

.IN_BOUND) eqlu 16 then exitloop:

s€0,0312

09 22)

ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0

:
:
:

4508
4509
4510

:
:
:
:

4512
4513
4514
4515

6
6
6
6

4517

4511

8
7
7

4516 6

:
:
:
:
:

4518
4519
4520
4521
4522

4523 S
4524
S

4526

4528

:
:

4525

4527

4529

LBN_ED =

Fssf e 0)¢.LBN_SZ;

LBN_SZ = ( ‘ot .SIZ_LBN) « 1;

end;

:
! STOP THE CLOCK
!

.CLK
= ZERO;
' TOTAL sssxs
. 1642
DATA4

! READ IP & CONTROLLER START TO POLL

= (.MINUTES*60
+ .SECONDS);

! TOTAL SEC.

! REMAINDER

DATAS = .DATA3+100;

' 1oo OF MSEC.

DATA4 =

! TO LOWEST ON THE SURFACE.

! COMPLEMENT SIZE OF LBN

onus = (DATA4s3) mod 5;
.DATA4¢3/5;

: nsec

DATAZ = .DATA3 « (.TICKS#300/(Se.CLK_HERTZ

;

:gg

if (.RETRIES) then DO_RETRIES ();

4535
4536
4a537
4538
4539
4580

4
4
3
3
3
1

if (.NUM_RETRIES ealu ZERD) then exitloop:

;:
:
;:
:
:
:

(22)

! STOP THE CLOCK

4530 4S
4531
4532

seopgasm

! REVERSE STARTING AND ENDING LBN NUMBERS AND REDO
! ONE TRACK SEEKS AS DONE aE ORE
LBN_ST = LBN
! START FROM HIGH TRACK NUMBER

:
:
:

USER#1:[AZTEC. czacrcmcrcs B16:4

end;

S
S
S
S
S

VAX-11 Bliss-16 V4

27-Mer-1985 13:28:18

TEMP = _RC2S_ADDR [RCIP, RC_ALL);
end;

27-Mer-1985 15:27:28

TEST SECTION

PRINTB (MSG_SK_TIME, .DATA4, .DATA3);
end;

PER SEEK

! 100TH OF MSEC./SEEK

! pnim MESSAGE 'AVERAGE SEEK TIME'

end;

retuTMn;
ENDTST;

0000006

$723:

000001 0000006

.SBTTL

R1, $SAVE2
-($P), -(SP)

MOV

#0BM29, - (SP)

0000006

000001

MOV
TRAP

0000006

0000006 000000G

001002

177777 0000006
0000006

1%:

28:
34

nzs TEST SECTION

JSR
CMP

CMP
CLR

grgs

JMP

:1_SWP. TRACE

;

4390

;

4416

4418

01,-(SP)

(sp)o (sp)o
NUM.RETR

rsa‘mnemss SWP.RETRIES

164

;

4420

MOV
JSR
ROR

0-1,TIP
PC,AZTEC.READY
RO

:
;

4422
4426

TRAP

4429

BCC

. WORD
.WORD

115
SZT.READY.ERR

ZRCFB3

CZRCFCO RC25 FR END TEST

v03.0

TEST SECTION

000102
000110
000112

032767
001402
004767

000001

000130
000134
000140
000146
000152

005067
005067
016767
016746
016746

0000006
0000006
000000G 000000G
0000006
0000006

000162
000166
000172
000176

010067
016716
062716
016746
004767
010067
004767
005002
005067
005067
005001
016767
004767
005267
066767
004767
006000
103404
005201
020127
101756

0000006
0000006
001464
0000006
000000G
0000006

000202

004767

017766
026727
101075
004767
006000
103034
016767
104455
000116
000000
016716
016746
012746
012746
010600
104414
062706
004767
012767
162706
000167
016667

0000006

as;
54:

0000006

0000006
0000006
000000G 0000006
0000006
0000006
000000G 0000006
0000006

000017
000000G 000006
000006 000000G
000000G 001464
0000006

BIT
BEQ
JSR

PC DECODE

CLR
CLR
MOV
MOV
MOV

BYTE. COUNT
BUF . DESCRPTR
SIZ.LBN,LBN,SZ
OFFSET, -(SP)
LBN.SZ,-(SP)

MOV
MOV
ADD
MOV
JSR
MOV
JSR
CLR
CLR
CLR
CLR
MOV
JSR
INC
ADD
JSR
ROR
BLO
INC
cHP
BLOS

RO,LBN.ST
OFFSET,(SP)
01464, (SP)
LBN.SZ,-(5P)
c. BL $MUL
LBN.ED
PC.CLOCK.INIT
R2
OUT . BOUND
IN.BOUND
R1
LBN.ST,CMD. REF
PC,READ. CMD
out . BOUND
LBN.SZ,LBN.ST
PC,GET.CMD.SLOT
RO
8s
R1
a1 017
7%

MOV
JMP

JSR

0000006

64:
7%:

8s:
9%:

000000G 000000G
0000006
0000006
000003
0000006

000006

0000006
000001 0000006
000026
000402
026727 0000006 001464
101022

27-Mer-1985 13:28:18

000000G

000116 012767 000001 000000G
000124 000167 000700

000156

27-Mar-1985 15:27:28

108:

n RET.STATUS

01 .RETRIES
144

SEQ

USER#1:(AZTEC.CZRCFCJZRCFC3.B816:4

0314

09.31 11

(22)

;

4431

;
;

4433
4426

;
:
;
;

4439
4440
4442
4443

4444

;

4448

PC, BL $MUL

MOV
MOV
CHP
BHI
JSR
ROR
8CC
MOV
TRAP
JWORD
'WORD
'WORD
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
JSR
MOV
SUB
JHP

aaczs ADDR 6(SP)
IN, aouno 01464
124
PC,REC.STATUS
RO
104
IN.BOUND, TEMP
>
116
MSG.SEEK.ERR
©
LBN.ST,(SP)
TEMP, -(SP)
mfiu -(5P)
- s&
sp
14
6, SP
PC . DECODE
01.RETRIES
026, SP
134

BHI

114

CMP

VAX-11 Bliss-16 V4.0-579

6(SP),T

OUT.BOUND, #1464

:
,

; COUNT
:
:
S
:
;
:
;

4450
4456
4457
4461
4463
4464
4465
4466
4468

: 1
s 1,0
; +,RC.REG
; RC.REG,*
:

4461

4472
4478
4a8)

4485

4486

4487

‘

; SP,s
:
:
;
;

‘

4488
4489
4484
4495

ZRCFR3

V03.0

CZRCFCO RC2S FR END TEST

27-Mar-198S 1 5:27:28
27-Mar-198S5 1 3:28:18

TEST SECTION

0000006
0000006
000000G 0000006

VA X-11 Bl ise-16 V4,0-579
US ER$1:(AZT EC.CZRCFC)ZRCFC3.816;4

PC,READ.FILL.CMD

55090315120

.9‘(22)
4497
4499
4500
4502

out.BOUND

LBN.SZ,LBN.ST

sg.GET.CHD.SLOT

4504

104
SRC25.ADDR, 10(SP)

%?(SP).TEH#

+,RC.REG

RC.REG,*

OFFSET.(SP)
LBN,SZ,-(SP)

PC
BL $MUL
,
RO.LBN.ED

SIZ.LBN,RO

4508

4478
4515
4516

4517

RO,R1

R1
R1,LBN.SZ

(SP)

R2
R2,01
64

aCLK.CSR

MINUTES, (SP)

074, -(SP)
PC
BL $MUL
,

i COUNT

*
COUNT,

4451
4450
4523
4525

SECONDS
, RO
RO,DATA4

DATA4,(SP)

4526

PC,BL $MUL
RO,(SP)
PC,BL $MOD
RO,DATA3

DATA4,(SP)

4527

PC.BL $MUL
RO, (SP)
PC,.BL$DIV
RO,DATA4

DATA3, (SP)

9144,-(SP)
PC,BL $MUL
RO,DATA3
TICKS,(SP)
“
P)
PC
BL $MUL
,
RO, (SP)

CLK.HERTZ, -(SP)

4528

4529

F9
CZRCFCO RC25 FR END TEST

ZRCFB3

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC. CZRCFC]ZRCFC3 B16;4

SEQ 03

0016121

(22)

?c gLoHUL
RO, (SP)
PC aLtoxv

DATA3

RO oAiAB

DATAS, (SP)
DATA4

OMSG. éx TIHE. (SP)

03. (5P)
SP.RO
14

034,5P

:1,RETRIES
54

0000006

176762
001060

000207

15¢:

16¢:

PC,D0.RETRIES

Tg?.RETRIES

(SP)+,(SP)+

4530

; SP,»
:

H
:

4426

4533

4535

4390

4539

Rout ine Base:
AC$CODE « 20012
;: Routine Size: 281 words,
21 words
; Maximum stack depth per invocation:

000000
000000
000004
000006
000010
000012

004767

176712

T23

T23 TEST SECTION

PC,$723

66
RO

104466
006000
103773
000207

Routine
AC$CODE + 21074
Base:
«
; Routine Size: 6 words, "
2 words
; Maximum steck depth per invocation:

4541

1<BLF/PAGE>

CZRCFCO RC2S FR END TEST

ZRCFB3

TEST SEC TION

o
.

.
.

N
B

.
.

1]
o

.
.

k]
.

.
.

.
o

o
B

.
o

®
-

.
o

K
o

.
3

o
.

.
o

.
.

°
-

.
.

.
-

.
.

e
-

.
.

o
.

’
.

1
o

’

@
.

.
.

e
.

.
3

.
.

.
-

2
3

s auniuiniuinunna s b h B O Ul G4 N G O O O 0 O G (0 0 O G O L G L G 0 L (0 L (0 (o (0 M L M O N o O (O e

V03.0

27-Mar-1985 15:27:28
15:

VAX-1

27-Mer-1985 13: 28:1 8

USER#

BGNTST;
fao

! TEST @24 - AVERAGE SEEK TIMING TEST
DESCRI PTION:
THIS TEST BRINGS RC2S CONTROLLER AND SELECTED UNIT ONLINE.
TE_AVERAGE SEEK TIME IS THE AVERAGE TIME IT TAKES TO DO

A SEEK GIVEN THAT IT IS EQUALLY LIKELY TO START ON ANY TRACK

agRDANY HEAD,

AND EQUALLY LIKELY TO END ON ANY TRACK AND ANY

ONE THOUSAND RANDOM SEEKS WILL BE DONE OVER THE RANGE
OF LBN TRACK O THRU LBN TRACK 1641 TO COVER BOTH SURFACES OF THE
SELECTED UNIT. FIRST TIME EXPRESS BIT IN COMMAND MODIFIER FIELD

FOR_READ_CMD WILL BE SET SO THAT RANDOM SEEKS ARE TIMED AND

IN THE SECOND TIME EXPRESS BIT WILL BE RESET SO THAT THE

RANDOM LBN AVAILABLE TO THE CONTROLLER ARE ORDERED BY THE

CONTROLLER FOR SEEKS. AVERAGE TIME FOR BOTH CASES WILL BE REPORTED.
AN ERROR REPORT FOR THIS TEST WILL REPORT THE NUMBER OF SEEKS AND

DESIRED TRACK NUMBER.

AFTER REPORTING A FAILURE,

THE DAIGNOSTIC WILL

PROCEED TO THE NEXT TEST UNLESS RETRIES IS TURNED ON.
abel
BLOCK];
if .SWP_ TRACE then PRINTF (DBM30);

TEST 24

IF FAILURE REPORT ERROR

NUM_RETR IES = ZERO;
while (. NUM_RETRIES lequ .SWP_RETRIES) do
begin

! GET aZTEC READY FOR OPERATION
if AZTEC_READY ()
then

else
BLOCK]1 :

begin

ERaDF (79, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! DECODE THE STATUS,

RETRIES = TRUE;

end

IF ANY

SET RETRIES FLAG

begin

.
-

o
B

BYTE_COUNT = ZERO;

BUF _DESCRPTR = ZERO;
incru COUNT from O to 1 do

! BYTE COUNTS ZERO

CLEAR BUFFER DESCRIPTOR

——

Bliss-16 V4,0-579

:[AZTEC.CZRCFC)ZRCFC3.B16;:4

SEQ 0317

Page 122

(23)

$§s$ gecr%fiu

27-Mar-1985 13:28:18

VOOV OVOOVOXX®IPPRPRPPEO®INNNNOOOOOCCNONANNNNNNNIJOO
OO

S5 S5 G5 00 S0 U0 U0 G0 B0 S0 S0 S0 00 S0 S0 B0 S0 S0 B0 G0 S0 S0 S8 S0 S0 G0 S8 S0 S0 B8 S0 B0 G0 B0 G0 S8 G6 B8 S0 S G Se B9 G GF

6 S G G

S8 G

S Ss

e es Se 88

RCFCO RC2S FR END TEST

27-Mar-1985 15:27:28

begin

USER$1: [AZTEC. czncrc12ncrc3 B16;4
VAX-11

Blies-16
V

! FIRST FIND AVERAGE SEEK TIME
! NEXT TIME FIND ORDERED AVERAGE
! SEEK TIME.

! FILL THE COMMUNICATION COMMAND RING SLOTS
! WITH READ COMMANDS

ou BOUND = ZERO;

! INIT COMMAND COUNT

N_BOUND = ZERO;

TIP = ALL_ONES;

! INIT RECEIVE COUNT

P2 =

! TELL READ_CMD NOT TO WAIT FOR
! END PACKETS.

.TICKS;

sncru I from O to SND_ALLOCATE -

flo

1 do

RANDOM_NUM ();

LBN_ST = .P3;
CMD_REF = LBN_ST;

! FILL COMMAND BUFFER WITH

! SEEK COMMANDS (16 SLOTS

! GET RANDOM LBN
! WILL BE FILLED TO GET

! A QUEVE LENGTH OF 15

READ_CMD ();

OUT_BOUND= .OUT_BOUND « 1;

if GET_CMD_SLOT () then exitloop;

ISSUE READ COMMAND

! GET NEXT COMMAND SLOT

end;

g INIT AND START THE CLOCK
CLOCK_INIT ();

! INIT CLOCK VARIABLES

while .IN_BOUND lequ 1000 do
begin

! DO SEEK FROM STARTING TRACK

TEMP =

.RC2S_ADDR (RCIP, RC_ALL);

if REC_STATUS ()
then
‘

! POLL RECEIVE RING FOR HOST
! OWNERSHIP BIT,
! IF ERROR, REPORT ERROR

TE&’
in

ERRDF (GO HSG SEEK ERR 0);
PRINTB (FHTII.
DECODE ();

.TEMP,

RETRIES = TRUE;

' SAVE RECEIVE COUNT

LBN_ST);
]
DECODE END PACKET STATUS

! AND ABORT TEST

leave BLOCK];

else

! READ IP & CONTROLLER START TO POLL

end

begin
while .QUT_BOUND lequ 1000 do

anfloon NUM ();
n

LBN_ ST =

.P3;

READ_FILL cno ();
OUT_BOUND =

! GET RANDOM LBN

! GIVE NEXT SEEK COMMAND

! AND MAINTAIN A QUEUE OF 15
.OUT_BOUND + 1;

if GET_CMD_SLOT () then exitloop;

SEQ 0318

19
ZRCFR3

CZRCFCO RC2S FR END TEST

v03.0
H
;.

4656

4657

TEST SECTION
9

3
:

4658
:228

9
g

;

4661
4662
4663

;.
:
:

4664

27-Mar-1985 15:27:28

27-Mer-1985 13:28:18
if (.OUT_BOUND -

:
3

4671
:g;%

6
g

:
3

4674
4675
4676

6
6
7

if .COUNT eqlu ZERO
then
be?in

5
:
:
;
3

4678
4679
4680
4681
4682

7
7
7
6
6

DATALl = .DATA3;
CMOD = ZERO;

3
;
3
3
H

4685
4686
4687
4688
:ggg

S
4
4
:

;
3

4691
4692

4
4

;

4694

;

4677

4693

4695

469%

!
! STOP THE CLOCK
!
.CLK_CSR = ZERO;

! READ IP & CONTROLLER START TO POLL

! STOP THE CLOCK

! TOTAL SEEKS = 1000

DATA4 = (.MINUTES#60 « ,.SECONDS);
DATA3 = _TICKS+100/.CLK_HERTZ;

(23)

end;

4666
4667
4668
4669

4670

Page 124

.IN_BOUND) eqlu 16 then exitloop;

TEMP = _RC2S5_ADDR [RCIP, RC_ALL);
end;

7
7

:
:
;.
3
;.

USER$1:[AZTEC. CZRCFC]ZRCFC3 B16;4

SEQ 0319

end;

6
6
6
6
6

4665

VAX-11 Bliss-16 V4.0

DATA2 =

.DATA4;

PRINTB (MES_SKO_TIME,
end;

SAVE AVE.

SEEK TIME

:
! RESET EXPRESS BIT FOR
! READ COMMAND TO DO ORDERED SEEKS

end;

PRINTB (MSG_AVE_TIME,

! MSEC. PER SEEK
! 100TH OF M.SEC/SEEK

.DATA2,

.DATA4,

.DATAl);

.DATA3);

! PRINT MESSAGE ’'AVERAGE SEEK TIME'

! AVERAGE SEEK ORDERED TIME.

if (.RETRIES) then DO_RETRIES ();
if (.NUM_RETRIES eqlu ZERQ) then exitloop:;

end;
return;

ENDTST;

$724:

L.SBTTL

R1, $SAVE2

4540

01 SWP.TRACE

4574

CMP

MOV

MOV
TRAP

1%:
24:

3124 TEST SECTION

JSR

CMP
CLR
gfgs

-(SP),-(SP)

ODBHSO -(SP)

o1,-(SP)

SP.RO
17

(SP)+,(SP)«
NUM.RETRIES
NgH.RETRIES.SHP.RETRIES
3
18¢

:
:

SP,+

4576
4578

J9
CZRCFCO RC25 FR END TEST

ZRCFB3
v03.0

TEST SECTION

000054

0000006

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18
34:

VAX-11 B1 i9s-16 V4,0-579

USER$ 1:(AZTEC.CZRCFC)ZRCFC3.816;4

PC,AZTEC.READY
RO

44:

S$:

090(23)
4582

54
55
117

4585

:I.RET.STATUS

4587

AZT .READY.ERR
0

000001 0000006

SE°P°32°125

¢
PC,DECODE
#1,RETRIES
164

BYTE.COUNT
ggF.DESCRPTR

64:

4589

COUNT

7¢:

R1
R1,017
7%
PC,CLOCK. INIT

aR(C2S.ADOR, (SP)

9s:

(SP),TEMP

{giabuno.ox7so

! «,RC.REG
; RC.REG,+

PC,REC.STATUS
RO

104
IN.BOUND, TEMP
55
120

MSG.SEEK.ERR

LBN.ST,-(SP)

0000006
0000006
0000006
000003

TEMP, -(SP)

OFMTi1,-(SP)

03,-(5P)

SP.RO
14

#10,5P

000010
0000006
000001
000000G
000016

026727
101024

000000G 001750

PC, DECODE

01 .RETRIES
#16,5P

10$:

154
OUT.BOUND, #1750
114

; SP.‘
4640

4641

4636
4647

ZRCFR3

CZRCFCO RC25S FR END TEST

v03.0

27-Mer-1985 15:27:28

TEST SECTION

004767
016767
004767

005267
004767

006000

27-Mar-1985 13:28:18

0000006
000000G 0000006
0000006

0000006
0000006

JSR
MOV
JSR

PC, RANDOM. NUM
P3.LBN.ST
PC.READ.FILL.CMD

ROR

INC
JSR

103407

BLO

016700 0000006
062700

000020

026700 0000006

IN.BOUND, RO

CHP

OUT . BOUND,
RO

020,R0

000000G 000002
000002 0000006

118:

005077
016746

0000006
0000006

12¢:

004767

0000006

010067

0000006

MOV

012746
004767
010016

000144
0000006

MOV
JSR
MOV

0144, -(5P)
PC,BL $MUL
RO, (SP)

JSR
MOV

PC,BLSDIV
RO, DATAB

012746 000074

016746

004767
010067

005702

001010
016767
016767
005067
062706
005202
020227
101002
000167
016746
016746

000000

0000006

000010

135:

000001
177334
000000
0000006

148:

010600
104414
062706

032767

001402
004767

005767

001402
000167

022626

0000006
0000006
0000006
000003
000016

000001

0000006

0000006
177136

JSR

ADD

éouos RO

MOV

T18KS, (SP)

0000006

15¢:

18%:

;

4657

; #+,RC.REG
; RC.REG,

4661

4630

;

4672

: COUNT

4674

"
;

4677
4678
4679

4685

4669
4671

; COUNT
; COUNT,

4599
4598

; SP,+

MOV
TRAP
ADD

BEQ
JSR

174
PC,D0.RETRIES

BEQ
JMP

184
24

CHP

4653
4655

OMSG., Ave TIME,-(SP)

DATA3, (SP)
DATA4. -(SP)
OMES . SKO, TIME, - (SP)
03,-(5P)
SP.RO
14
016, 5P

187

;
;

CLK. ueatz. (SP)

03,-(SP)
SP.RO

178:

(23)

4649
4650
4651

;
;

no DATA4

MOV
MOV
TRAP
MOV
MOV
MOV
MOV

BIT

p.g.1126

C,BL $MUL

134
DATA4,DATA2
DATA3.DATA]
CMOD
#10,5P
R2
R2,01
144
64
DATA], (sv)
DATA2.
-(SP)

168:

SEQ 032

;

074 -(5P)

BNE
MOV
MOV
CLR
ADD
INC
CHP
BHI
JMP
MOV
MOV

MOV

000003

aCLK.CSR
MINUTES, - (SP)

TST

000000G 0000006
000000G 0000006
0000006

104
SRC25.ADDR, 2(SP)
2(SP), TEMP

CLR
MOV

MOV

0000006
0000006

012746 0000006

012746
010600
104414
016716
016746
012746
012746

B8R

MOV

066700 0000006
016716

BNE
MOV
MOV

;
;
;

MOV

ADD

ER$1:(AZTEC.CZRCFCIZRCFC3.816;4

out.BOUND
PC,GET.CMD.SLOT

001350
017766
016667

000676

X-11 Bliss-16 V4,0-579

01,RETRIES

NUM.RETRIES
(SP)+,(SP).

SP,e

4582

;

4691

;

4540

:
:

4686

4689

L9
ZRCFR3
vo3.0
000704

CZRCFCO RC25 FR END TEST
TEST SECTI

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

000207

RTS

: Routine Size:

: Maximum stack depth per -nvocotaon

227 words,

14 words

000000

177066

T24::

000000
000004
000006
000010

000012

004767
104466
006000
103773

000207

; Routine Size:

4697

1%:

6 words,

; Meximum stack depth per

Routine Base:

Routine Bese:

1<BLF/PAGE>

2 words

s€q 0322

%€ 2%)

ACSCODE « 21110

.SBTTL

T24 TEST SECTION

JSR
TRAP
ROR
BLO

PC,$T724
66
RO
14

RTS
invocetion:

VAX-11 Bli s-16_V4.0-5
USER$1 :(AZ EC CZRCFC]ZRCFC3 816;:4

ACSCODE « 22016

4695

M9
RCFCO RC2S FR END TEST

%s? SECTION

ZRCFRS

4698

4706
4707
4708
4709
4710
4711
4712
4713
4714
4715
4716
717

4718
4719
4720
4721

4722

4723

4724
4725
4726
4727
4728

4730

4731

4733
4734
4735
4737
4738
4739
4740
474]
4742
4743
4744
4745
4746
4747
4748
4749
4750

4751
4752

4753

4754

§ TEST €25 - FULL STROKE SEEXK TIMING TEST

' DESCRIPTION:

4705

..0

THIS TEST BRINGS RC2S CONTROLLER AND UNIT ONLINE.

4703
4704

USER$1:(AZ

BGNTST;

L L 0L L L 8L 0L

4700
4701

27-Mer-1985 13:28:18

VAX-11 Blis9-16 V4,0-579
EC CZRCFC)ZRCFC3.816:4

VIV
A BNV A LB AL S B L L L G L L L

““”“.‘...............O.....‘.‘...I.....l...'..“‘l“.'“.......'.......‘““““““““.C.‘.’.‘.‘..“““““

v0s.0

27-Mer-1985 15:27:28

THE FULL STROKE SEEX TIME IS THE AVERAGE TIME OF 1000 FULL STROKE
SEEXS THAT DO NOT INVOLVE HWEAD SWITCHES.
THIS IS A SINGLE SURFACE YEST TOP SURFACE WILL BE USED UNLESS THE

OPERATOR CHOSE OTHERWISE

THE ERROR REPORT WILL INCLUDE NUMBER OF SEEXS AND DESIRED TRACK
NUMBER. AFTER FAILURE, THE TEST WILL BE ABORTED UNLESS RETRIES
ARE TURNED ON.
labe]
BLOCK],
BLOCKZ;

if .SWP_TRACE then PRINTF (DBM31);

! TEST 25

NUM_RETRIES = ZERO;
while (.NUM_RETRIES leaqu .SWP _RETRIES) do
TIP

'TELL READ_CMD NOT

! GET AZTEC READY FOR OPERATION
if AZTEC_READY
g

()

else
BLOCK] :

' Rfcnvt §TATUS

TO WAIT FOR

! IF FAILURE REPORT ERROR

ERROF (81, AZT_READY_ERR, 0):

;

if _RET_STATUS then DECODE ();

' DECODE THE STATUS, IF ANY

RETRIES = TRUE;

' SET RETRIES FLAG

end

;

b"ofl

! SEEX BETWEEN BEGINNING TRACK AND ENDING TRACK
4

‘
BYTE_COUNT = 2ERO

aur _DESCRPTR = ZERO;

! BYTE COUNTS ZERO
CLEAR BUFFER DESCRIPTOR

! FILL Y'( COMMUNICATION COMMAND RING 5LOTS

! WITH READ COMMANDS
LBN_SZ = ,SIZ LBN;

OUT BOUND = Z2ERO;

: LBN INCYZMENT SIZE
INIT COMMAND COUNT

SEQ 0323
Page 128
(24)

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:27:28

d............flflfl..~ldflfldflflQOOOOOMMMMMMMMMUOOOOOOOOOOOOOMMM

TEST SECTION

27-Mer-1985 13:28:18

IN_BOUND = ZERO;

VAX-11 Blise-16 V4,0-579

USER$1:[AZTEC. CZRCFC)ZRCFC3 816;:4

! INIT RECEIVE COUNT

incru I from O to SND_ALLOCATE- 1 do

‘begin

! FILL COMMAND BUFFER WITH

! SEEX COMMANDS (16 SLOTS)

if .OUT_BOUND then LBN_ED = 820 else LBN_ED = 0;
LBN_ST = (, NFSE'I *

CMO_REF = .LBN_S

.LBN_ED)e.LBN_SZ i

! GET STARTING LBN

! LBN_ST WILL BE USED CMD_LREF
! SO THAT FAILING LBN CAN BE
! FOUND IN RECEIVE ENVELOPE
! ISSUE READ COMMAND

Rt AD_CMD ();

T_BOUND= .OUT_BOUNC « 1;

if GET_CMD_SLOT () then exitloop:;

GET NEXT COMMAND SLOT

end;

INIT AND START THE CLOCK

CLOCK.INTT ()

TEWP=

' INIT CLOCK VARIABLES

.RC25_ADDR [RCIP, RC_ALL):

' READ IP €& CONTROLLZR START T0 POLL

..m:. .IN_BOUND lequ 1000 do

! DO SEEK FROM STARTING TRACK

if REC_STATUS ()

then

15’9

! POLL RECEIVE RING FOR HOST

! OWNERSHIP BIT

! IF ERROR, REPORT ERROR

sé

t SAVE RECEIVE COUNT

mm (rmu. .TEMP

§T);

DECODE ();
RETRIES = TRUE;
lesve BLOCK];

BLOCK2 :

else

' DECODE END PACKET STATUS
! AND ABORT TEST

end

“'lfl

while .0UT_BOUND leau 1000 do

LBR

ST « (.OFFSET +

READ FILL CMO ()

.LON_ED)e.LON 5

OUT_BOUND = .OUT BOUND « 1;

! GET STARTING LBN

" 1SS0E READ C OMMAND

i? .OUT_BOUND then LBN_ED * 820 else LBN_ED = O;

i? GET_CMD_SLOT () then lesve BLOCK2;

i? (.OUT_BOUND end;

' GET NEXT COMMAND SLOT

.IN_BOUND) ealu 16 then lesve BLOCKZ:
! MAINTAIN A QUEVE LENGTH OF 1S

SEQ 0324

P.gi 129
(24)

ZxCFB3

CZRCFCO RC2S FR END TEST

v03.0

4812

:
H
:
:
:
:
:
:

4815
4816
4817
4818
4819
4820
4821
4822

6
6
S
S
S
S
S
S

:
:

4824
4825

S
S

4823

:
;.
3

4828
4829
:g;g

4
4
:

4832
4833

4
4

4835

3
:

4834

;

4836

;

4837

'
' STOP THE CLOCK
!
.CLK_CSR
= ZER06°°

end;

:ggg

27-Mer-1985 13:28:13

TEMP = _RC2S_ADDR (RCIP, RC_ALL);

27-Mer-198S 15:27:28

TEST SECTION

USER#1:[AZTEC. CZRCFC)ZRCFCS.BIMO

560’23‘:’5130
(24)

'READ IP AND CONTROLLER WILL
! START T0 POLL

! STOP THE CLOCK

TO'ML SEEKS = 1

DATA4 = _MINUTES#*60 SECO'DS:
DATAS = ,TICKS«100/. CLK RTZ;

PRINTB (N; SKF TI'f. .DATA4, .DATA3);

VAX-11 Bliss-16 V4.0-579

! MSEC./SEEK
! 100TH OF MSEC./SEEK

! PRINT MESSAGE 'AVERAGE SEEK TIME'

end;
if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERO) then exitloop;
end;
return;

ENDTST;

$72S:

000001

0000006

000000G

LSBTTL

;

fi.sué.mcs

4723

MOV

oDBM31,-(SP)

TRAP

CLR

NUM.RETRIES

4725

224%
e-1,TIP

:
:

4729
4733

4736

4738

:
:
:
:

4740

CHP

MOV

000000G

cHP

-(SP),-(SP)

(SP)+,(SP).

24:

g%s

000652
177777

34:

JMP
MOV
gg:

PC AZTEC READY

8CC
TRAP
LWORD
.WORD

50
sS
121
AZT.READY.ERR

000000G

000001

000000G
000001

000550
000000G
000000G

000000G

44:

S$:

'SAH.RETRIES.SW.RETRIES

.WORD
gé;

O
:%.RET.STAYUS

JSR

PC.DECODE

MOV

JMP
CLR
CLR

4696

01,-(5P)

000000G 0000006

000000G

‘

R1,-(SP)

000001

18:

$72S TEST SECTION

MOV

#1,RETRIES
204
BYTE.COUNT
BUF .DESCRPTR

4727

4733
4748
4749

ZRCFB3
v03.0

CZRCFCO acas FR END TEST
TEST SECTI

000136
000144
000150
000154
000156

016767
005067
005067
005001
032767

000000G 0000006
0000006
0000006
000001

000000

000166

012767

001464

000000

000164

001404

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

64:

7%:
8s:

0000006
000000G 000000G

0000006

MOV
CLR
CLR
CLR
BIT

SIZ.LBN,LBN.SZ
OUT . BOUND
IN.BOUND
R1
#1,0UT.BOUND

ggv

3}464.LBN.ED

CLR
MOV

LBN.ED
OFFSET, -(SP)

MOV
JSR
MOV
MOV

LBN.SZ,-(SP)
PC, BL$MUL
RO.LBN.ST

BEQ

ADD

001750

118:

B8R

4769

4767

94
(5P)+,(SP)+

MOV
MOV
g:;

ées ADDR (sP)
IN
aéuno 01750

;

: *,RC.REG
; RC.REG,
;

4776

JSR

PC REC STATUS

4783

;
s

4787
4788

;

4789

MOV
TRAP
JHORD

MOV

R1
R1,017
6
CLOCK. INIT

IN.BOUND, TEMP
SS
122

TEMP, -(SP)

i 1
S

4757

4777
4780

OFMT11,-(SP)

03,-(5P)

MOV

SP,.RO

;: SP,»

JSR

PC, DECODE

;

:
:

4791
4786

CMP

0UT . BOUND, #1750

4798

OFFSET, -(SP)

4800

TRAP
ADD

MOV
gga

124:

4758

"WORD
'WORD
MOV

001750

4766

BCC

0000006

4763

(SP)+,(SP)e

INC
CHP
BLOS
JSR

ROR

0000006

4762

ROR

CHP

out .BOUND

PC,GET.CMD.SLOT

Page 131
(23)
4753
4754
4755
4757
4760

JSR

SEQ 0326

:
:
;
i 1
;

LBN.ST,CMD. REF

PC,READ.CMD

BCC
CHP

108:

LBN.ED,(SP)

JSR

INC

VAX-11 Bliss-16 V4.0-579
USER$1:(AZTEC.CZRCFC)ZRCFC3.816;4

BHI

MOV
ADD

14
910, 5P

#1,RETRIES
:16.SP
3

174

LBN.ED,(SP)

MOV

LBN.SZ,-(SP)

MOV

RO,LBN.ST

JSR

PC,BL $MUL

4790

D10
‘| v03.0

CZRCFCO RC25S FR END TEST

27-Mer-1985 15:2 7:28
27-Mar-1985 13:2 8:18

TEST SECTION

0000006
0000006
000001
0020006

PC,READ.FILL.CMD

001464

#1464,LBN.ED
143
LBN.ED
.

:éiout.aouno

134:
14%;

S€Q,0327

o9235
4801
4802
4804

out.BOUND

0000006

0000006
0000006

i98-16 V4,0-579
TEC.CZRCFC)ZRCFC3.B16:4

3 —
N-

ZRCFB3

:g.GET.CHO.SLOT

4806

154
(SP)+,(SP)+
0000006
000020
000000G

15¢:

16%:

000000G 000002
000002 000000G

17¢:

0000006
0000006
000074
0000006

18%:

MINUTES, -(SP)

TICKS, (SP)

4815

4780
4822
4824

4825

PC
BL $MUL
,
RO, (SP)

CLK.HERTZ, -(SP)

PC,BLSDIV
RO.DATA3

DATA3, (SP)

4826

DATA4. -(SP)
OMG. SKF , TIME, -(SP)

SP RO

177112

19¢:

20%:
21%:

22%:

016,5P

01,RETRIES

PC,D0.RETRIES

NU?.RETRIES

vAA~N n
n

0000006

0000006
000000G

;

113
SCLK.CSR

+,RC.REG

RC.REG,¢

4799
4798

SECONDS
, RO

0000006
0000006
0000006
0000006
0000006
0000006
000003

; Routine Size:

2(SP), TEMP

RO,DATA4

0000006
000144
0000006

02?001

1
(SP)+,(SP)
1 24
9RC25.ADDR, 2(SP)

4808

074, -(5P)
PC, BL $MUL

0000006
0000006

000016

174

SP )+,(SP).
SP )+,R1
C

ACSCODE + 22032
237 words,
Routine Besse:
invocation:
12 words

Meximum steck depth per

H Spo.
4733
4830

4832
4696

E10
ZRCFR3

CZRCFCO RC2S FR END TEST

708 .0

TEST SECTION

000000

004767

000004

104466

000000
000006

000010
000012

177042

125::

18%:

103773
000207

3
:
:
;
3

4838
4839
4840
4841
:g:%

1
3
3
3
g

4844

:g:g

;
;:
;
;
;
;
;
3

4848
4849
4850
4851
4852
4853
4854
:ggg

;
;
;
;
;
;
;
;
3
;
;
3
3

.SBTTL

7125 TEST SECTION

JSR

PC,8725

ROR

TRAP

BLO
RTS
6 words,

Maximum stack depth per

Routine Base:
invocation:

VAX-11

14
PC

ACS$CODE + 22764

2 words

!
BGNTST;
! TEST 926 - WRITE DATA TEST
!
: DESCRIPTION:
!

THIS TEST BRINGS RC2S5 CONTROLLER AND SELECTED UNIT ONLINE.

MEMORY BY ISSUING EX_SUP_PROG COMMAND.

3
3
3
3
3
3
3
g

!
!
!
!
!
!
'
:

THE DMCODE GETS THE UNIT NUMBER FROM THE HOST AND ATTEMPTS
TO FIND AT LEAST ONE GOOD DIAGNOSTIC BLOCK ON EACH SURFACE
OF THE PLATTER SPECIFIED AND MAKE SURE THAT DMCODE CAN READ
AND WRITE TO THE BLOCK IN ORDER TO VERIFY THAT THE HEADS ARE
WORKING PROPERLY. FIRST TOP SURFACE WILL BE ATTEMPTED WITH
ALL ONES DATA AND SECOND ALL ZERO DATA, THIS WILL BE
REPEATED FOR BOTTOM SURFACE AS WELL. THE DATA WRITTEN WILL BE
READ AND COMPARED.

4857
4858
4859
4860
4861
4862
4863
4864
4865
4866
4867
4868
:ggg

3
3
3
3
3
3
3
3
3
3
3
3
g

!
!
!
!
!
!
!
1--

THE ERROR REPORT ON THIS TEST WILL INCLUDE DATA WRITTEN, DATA READ
PLUS THE TRACK, HEAD AND SECTOR NUMBER.
ALSO ERROR STATUS
FROM THE MICRO CODE IF ANY WILL BE REPORTED. ERROR STATUS OF
ZERO WILL MEAN OTHER ERRORS TRAPPED IN DMCODE. AFTER REPORTING
THE ERROR THE REST OF THE TEST WILL BE ABORTED UNLESS THE OPERATOR
SELECTS RETRIES.

:g;é

NUM_RETRIES = ZERO;

;

4873

while (.NUM_RETRIES lequ .SWP_RETRIES) do

;
3

4875
:g;g

4
:

TIP
= 26;
! GET AZTEC READY FOR OPERATION

;
;
:

4878
4879
4880

4
4
S

;

484S

4874

THEN LOADS DM CODE VECTOR ARRAY DM_26 TO THE CONTROLLERS

label
BLOCK]1;
if .SWP_TRACE then PRINTF (DBM32);

! TEST 26

bcain

if AZTEC_READY ()
then
begin

Blies-16 V4,0-579

SEQ 0328

S7 Mar-1983 13:28:8 USERIL:(AZTEC CZNCFOIomCFC3.B16:8

006000

: Routine Size:
:

27-Mer-1985 15:27:28

! IF FAILURE REPORT ERROR

9%
L33
4836

F10
RCFCO

4899

4900
4901

LY LY
LY & & LTI
TV T T UTI T

4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898

VTUNIVTVVIVIVIVIVIVNO 'OV OV 'O TTNTTTNTVION OV OV OV ON O

4886

..-...“.n.......o...‘.'.l.o.c.l...l.!Qo't.0.'.u.l.o.o.o.o...a.l.o.o...‘.l.-.o.l.'.o.o.!.!.-.o.l.-.o.o.oo-.n.o.d.l

v03.0

4881
4882
4883
4884
4885

RC2S FR END TEST

27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

ERRDF (83, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

RETRIES = TRUE;
end

! SET RETRIES FLAG

%%s? ggcr%fin

ZRCFB3

VAX-11 Blies-16 V4.0-579

USERS1:(AZTEC.CZRCFCIZRCFC3.816:4

else
BLOCKL :
begin
.

! ISSUE AN EX_SUP PROG COMMAND WITH START ADDRESS OF
' DM_26 VECTOR ARRAY AND BYTE COUNT.

SR - DECCRP TR o -OH 3¢

SACDO

if EX_SUP_PRG ()

! ISSUE AN EXECUTE SUPPLIED COMMAND

BYTE_COUNT = 413e3;
then

S TART IRe CRoDRESER

! BYTE COUNTS VER:C
! REPORT IF FAILED

begin

ERADF (84, EXE_SUP_ERR, 0);
if .RET_STATUS then DECODE ();
RETRIES = TRUE;

leave BLOCK];

! DECODE STATUS

! ABORT TEST

end;

CMD_REF = .CMD_SLOT;
BUF “DESCRPTR = UNIT;

! COMMAND REFERENCE
! DESCRIPTOR ADDRESS

BYTE_COUNT = 02;

! TOTAL BYTES TO BE TRANSFERRED

begin

ATA

ERRDF (85, SND_DATA_ERR, 0,;
if .RET_STATUS then DECODE ();

i IF STATUS BIT INDICATES ERROR
ISSUE SEND DATA COMMAND

! THEN REPORT ERROR

! DECODE RETURN STATUS

RETRIES = TRUE;

leave BLOCK];

end;

' ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET

. ronge;u}¥EHS}e;¥s SENT BY DM CODE AFTER DOING

BYTE_COUNT = 12;

if REC_DATA ()

- e

ERRDF (86, RE_DATA_ERR, 0);
if

.RET_STATUS then DECODE ();

RECEIVE 6 WORDS FROM DM CODE
SET BYTE COUNTS = 12
!

SEND A RECEIVE DATA COMMAND

' IF FAILURE REPORT ERROR
' DECODE STATUS

SEQ 0329
Page
134

2(34)

4938
4939
4940
4941
4942
4943
Lasd
4945

4946

4947

4948
4349
4950

4951

HFWWWEALLBAULVINOONOOO
O LTLTUTNIINIONON

G0 S0

G0 @0

W0 B0

G0 G0

G0 S0

S¢

[+
1.]

NN
@

-Mer-19

win

-Mer-19

—r—

v03.0

?ZRCFCO RC2S FR END TEST
EST SECTI

ZRCFB3

®®
i

G10
VAX-11
USER$1:

lie s-16 V4.0

SEO 0330

135
PRitec e i2merca.B16,a Page
133

RETRIES = TRUE;

leave BLOCK];

end;

! CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR
if .RCV_DATA_BUF [0]) nequ %o0'177777'
then

BRAOF (87, MSG_WRITE ERR. 0);

PRINTB (FMT16, .RCV_DATA BUF

PRINTB (FMT17.

_RCV DATA BUF

(1),

{3]’

PRINTB (FMT20, .RCV_DATA_BUF [0]);
RETRIES = TRUE;

! IF NOT SUCCESS, REPORT ERROR
! REPORT URITS gATA FAILURE
.RCV_DATA_BUF
.RCV_DATA_BUF [5]);
RCV DATA_BUF (4

' TRACK NUMBER

! PRINT UNIT, HEAD AND

1VER:C

end;

if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERO) then exitloop:;
end;
return;

ENDTST;

000001

000000G

$726:

ooseen
.

.SBTTL
gg;

$726 1551 SECTION
ox.sup RACE

"oy
MOV

3?""?253‘5”
SP.RO

CMP
CLR
CHP
BLOS

(SP)e,(SP)e
NUM.RETRIES
NUM.RETRIES, SWP.RETRIES
3§

4871
4873

JSR
ROR

PC,AZTEC.READY

4875
4878

TRAP
JWORD

55
123

TRAP

0000006
000000G 000000G

ooooggc ”

1%:
24:
H

BCC

000001

0000006

0000006
000001 0000006

001472

0000006

4%;

"WORD
'WORD
g%;

AZT.READY.ERR
O
:}.Rs1.s1arus

JSR
ggv

PC,DECODE
:é§n£1alss

MOV

01472, 6v1£ COUNT

4869

SP,*

4881

4883

4885
4878
4893
4894
4895

ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0

27-Mer-1985 15:27:28

TEST SECTION

000140

004767

000146
000150
000152
000154
000156
000160

103016
104455
000124
0000006
000000
032767 000001

000144 006000

27-Mer-1985 13:28:18

0000006

000000G

0000006
000001
0000006

000000G 0000006
000000G 000000G

000002

0000006

000001

JSR

PC,EX.SUP.PRG

BCC
TRAP
JWORD
.WORD
WORD
gés

7%
S5
124
EXE.SUP.ERR

ROR

64:

74:

0000006

0000006
000001
0000006
000000G 0000006
000000G 000000G

9%:

000014 0000006
0000006

118:

0000046

0000026
0000006

000003

4900

;

4902

;
H
;
;

4904
4899
4908
4909

;

4912

;

4915

géa

:%.RET.SYATUS

;

JSR
ggv

PC,DECODE
'5'RETRIES

;

:319

MOV
MOV

CMD.SLOT,CMD. REF
ORCV.DATA. BUF ,BUF.DESCRPTR

;
-

4926
4957

;

4934

4936

02,BYTE. COUNT

125
SND.DATA.ERR
O

014,BYTE. COUNT
PC,REC.DATA
RO

114

;

:éiRET.STATUS

;

JSR
MOV

PC,DECODE
o1 .RETRIES

;

CMP

RCV.DATA.BUF,#-1

;

TRAP

JWORD
.WORD

127
MSG.WRITE.ERR

’

MOV

RCV.DATA.BUF +4,-(SP)

;

BEQ

MOV
MOV

MOV

124

RCV.DATA.BUF
+2. -(SP)
OFMT16,-(SP)

93,-(SP)

;

MOV

SP,RO

; SP,s

0000126

MOV

RCV.DATA.BUF+12,(SP)

;

0000066

MOV

RCV.DATA.BUF +6,-(SP)

0000106

TRAP

MOV

RCV.DATA.BUF
+10, - (SP)

4917

;
;

126
RE.DATA.ERR
O

B8R

4910

JWORD
.WORD
'WORD

géa

0000006 177777

;

PC,SEND.DATA
RO
94
S5

TRAP

108:

4897

JSR
ROR
BCC
TRAP

ROR

0000006
000001 000000G

CMD.SLOT, CMD. REF
OUNIT,BUF .DESCRPTR

MOV
JSR

000000G

(24)

MOV
MOV

BCC

000001

Page 136

PC,DECODE
'5"RETRIES

LWORD
.WORD
'WORD

8s:

O
z%.ner.s1nrus

USER$1:[AZTEC.CZRCFCIZRCFC3.816;4

JSR
ggv

MOV

0000006

SEQ 0331

VAX-11 Bliss-16 V4.0-579

4929
4931

4938

4933

4944
‘

4947

4948

4949

110

ZRCFB3

CZRCFCO RC2S FR END TEST

v03.0

27-Mar-1985 15:27:28

TEST SECTION

000440

012746

000450
000452
000454
000460

010600
104414
016716
012746

000470
000472
000474
000502

010600
104414
012767
062706

27-Mer-1985 13:28:18

0000006

MOV

OFMT17,-(SP)

0000006
0000006

MOV
TRAP
MOV
MOV

SP,RO
14
RCV.DATA, BUF.(SP)
OFMT20,
-(SP)

MOV
TRAP
MOV
ADD

SP,R
14
#1,RETRIES
024 SP

000444 012746 000004

MOV

000464 012746 000002

000506
000514

000516

000522

000526

000530
000534

032767
001402
004767

000001

000000G

000167

177276

001402

000207

000000G

004767

000004
000006
000010

104466
006000
103773

000000

000012

177236

6 words,

; Maximum stack depth per

495

144
Routine Base:

:nvocation:

12 words

T26::

1%:

000207

; Routine Size:

13%:

175 words,

Maximum stack depth per

000000

124:

0000006

005767

: Routine Size:

;

000001
000024

MOV

Routine Base:

invocation:

2 words

BIT
BEQ
JSR

157

BEQ

JMP
RTS

04, -(SP)

0. (sé)

fiETRIES
13

PC,DO.RETRIES

NUM.RETRIES
144

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC. CZRCFC]ZRCFC3 B816;4

Pog¢2137

(24)

i SP,»

4951

; SP,»

;
;

4952
4946

;

4959

;

4837

4963

;

4957

AC$CODE + 23000

.SBTTL

T26 TEST SECTION

JSR

PC,$T726

RTS

TRAP
ROR
BLO

66
RO
1

ACSCODE + 23536

1<BLF /PAGE >

SEQ 033

CZRCFCO RC25 FR END TEST

ZRCFB3

TEST SECTION

4966

4967

4968
4969
4970
4971
4972
4973
4974
4975
4976
4977
4978
4979
4980
4981
4982
4983
4984
4985
4986
4987
4988
4989
4990

VTUTTTVTVIVIVTN B B NTVTVTVIVIUTUL B 5 5 5 5 5 U8 08 08 04 G4 W4 W3 G4 G4 Gl G4 G4 G G G G G G G G G (G Gl G o N o 0 0 (o

S5 S5 05 B0 G0 S0 00 00 00 00 S0 S0 G0 S0 S0 S0 G0 S0 S0 S0 S0 S0 S0 G0 S0 G0 G B8 S0 S0 G0 S8 S8 S0 G0 S S0 6 S

6 S6 SF 6 G4 G¢ Ss G5 S5 Se ¢ G4 S S¢ S¢ es o

v03.0

27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

VAX-11 B 1 iss-16 V4,0-579
USER#$1: ( & ZTEC.CZRCFC)ZRCFC3.B16;4

BGNTST;
fae

§ TEST @27 - OFFSET TOLERANCE TEST
; DESCRIPTION:
!

THIS TEST BRINGS RC25 CONTROLLER AND THE UNIT ONLINE AND LOADS

DM PROGRAM DM_27 VECTOR ARRAY INTO CONTROLLER'S MEMORY FOR

EXECUTION BY ISSUING EX_SUP_PROG COMMAND.

!
L]

]
'
]

THE DM CODE WILL DO AN OFFSET TOLERANCE TEST. A GOOD ODD BLOCK WILL
BE FOUND IN TRACK 829 (DBN TRACK). IT WILL BE READ WITH INCREASING
« AND - OFFSET, UNTIL A HARD ERROR IS FORCED. THE OFFSET VALUE USED

IN THE LAST GOOD READ WILL BE SENT TO HOST PROGRAM.

THIS TEST WILL BE PERFORMED ON TOP SURFACE OF THE UNIT

BEING TESTED.

'
:
:
]
:

A MESSAGE REPORT ON THIS TEST WILL INCLUDE THE LARGEST OFFSET VALUE

USED IN ORDER TO READ THE BLOCK WITHOUT FORCING ERRORS.

abel
BLOCK];
if .SWP_TRACE then PRINTF (DBM36);

TEST 27

NUM_RETRIES = ZERO;
uhil:e(:NUH,RETRIES lequ .SWP_RETRIES) do
n

11 " 27;

! GET AZTEC READY FOR OPERATION
if AZTEC_READY ()

then

else
BLOCK]1 :
i

! IF FAILURE REPORT ERROR

begin

ER80F (88, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

RETRIES = TRUE;

! SET RETRIES FLAG

end

begin

! JSSUE AN EX SUP PROG COMMAND WITH START ADDRESS OF

' DM_27 VECTOR ARRAY AND BYTE COUNT.
CMD_REF = ,CMD_SLOT

! COMMAND REFERENCE NUMBER

BUF “DESCRPTR = DM_27;

i DMCODE STARTING ADDRESS

if EX_SUP_PRG ()

BYTE_COUNT = 307e¢2;
then

! BYTE COUNTS

ISSUE AN EXECUTE SUPPLIED COMMAND

! REPORT IF FAILED

SEQ 0333
P

138

.9.(25)

K10
RCFCO

CEey SecTTon
OOV
O\ O\ S VTUTTIVTVTVIVTTIN NN VOV OV O O O TUTTTTVTINION VO N O OV O

..““.‘“.l“.‘.l.'...‘.‘.........'...‘..'C‘l.....l.............!.'..Q......'...0.0.....0.C.l.t...l...‘...t““..

ZRCFB3
v03.0

57-Mer-1985 13:28:18

RC25 FR END TEST

27-Mer-1985 15:27:28

USER$1:[AZ TEC. CZRCFC]ZRCFCS 816:4
VAX-11 Bli 98-16 V4,0-579

begin

ERNOF (89, EXE_SUP_ERR, 0);
if .RET_STATUS then DECODE ();

RETRIES = TRUE;

leave BLOCK];

' DECODE STATUS

! ABORT TEST

end;

CMD_REF = .CMD_SLOT;

COMMAND REFERENCE
DESCRIPTOR ADDRESS

BUF _DESCRPTR = UNIT;
BYTE_COUNT = 02;

TOTAL BYTES TO BE TRANSFERRED

if SEND_DATA ()
then

' ISSUE SEND DATA COMMAND
i IF STATUS BIT INDICATES ERROR

ERRDF (90, SND_DATA_ERR, 0);

i THEN REPORT ERROR

if .RET_STATUS then DECODE ():

' DECODE RETURN STATUS

;

RETRIES = TRUE;
leave BLOCK];

end;

' ISSUE A REC_DATA COMMAND AND WAIT FOR END PACKET

! ;gngegu}¥EHS}e;¥s SENT BY DM CODE AFTER DOING
'

SRR
e ara e o) :
e

SET THE BUFFER AREA 10

BYTE_COUNT = 4;

RECEIVE
2 WORDS FROM DM CODE
SET BYTE COUNTS = 4

if REC_DATA ()

! SEND A RECEIVE DATA COMMAND

thcnb. in

ER80F (91, RE_DATA_ERR, 0);
if .RET_STATUS then DECODE ();

! IF FAILURE REPORT ERROR
! DECODE STATUS

RETRIES = TRUE;

leave BLOCK];

end;

! CHECK DM CODE FLAG FOR SUCCESS. IF FAILURE REPORT ERROR
if .RCV_DATA_BUF [0] nequ %o'104'
thcn
ER OF (92, MSG_READ_ERR, 0);

RETRIES = TRUE;

else

! IF NOT SUCCESS, REPORT ERROR
! REPORT READ ACCESS FAILURE

end

OFFSEtgéECEIVED MULTIPLIED BY 4/10 GIVES % OFFSET
n

DATA4 =

,RCV_DATA BUF

(1]e

- OFFSET EXPRESSED AS
%

DATAS = {(HCY DATABUF 11393}
mod S)es.
PRINTB (FMT12,
.DATA4,

DAYAB);

' PRINT OFFSET VALUE

SEQ 0334

Page 139

(25)

L10
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0

WWWLLBLLBABLNW

TEST SECTION

90
90
90
S0
S0
S0
S0
BS

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

16 V4.0
USER$1:(AZ CZRCFC]ZRCFCS 816;:4
VAX- 11 Bli

SE°P°335140

.9.(25)

ondz
end;
if (.RETRIES) then DO_RETRIES ();

if (.NUM_RETRIES eqlu ZERO) then exitloop;
end;
return;

ENDTST;

000001

0000006

$T27:

0000006

LSBTTL

MOV
gg;
MOV

000001

MOV

TRAP

0000006

1%:

cHP

154
033, 11P

4999

JMP
MOV
ggg

PC AZTEC READY

BCC

JMORD
'MORD
'WORD

130
AZT.READY.ERR
O

JSR
ggv

PC DECODE
o%'RETRIES

MOV
MOV
MOV

CMD. SLOT, CMD. REF
oDM .27 ,BUF.DESCRPTR
91146 ,BYTE . COUNT

TRAP

0000006
000001
0000.0G

000000G 0000006
000000G 000000G
001146 0000006
0000006

gég

as:

5%:

0000006

o1.aer.srn1us

PC,EX.SUP.PRG
RO

TRAP

JWORD
'WORD
'WORD

131
EXE.SUP.ERR
O

gg;

z}.RET.STATUS

5026
5028

0000006
000001
000000G

64:

JSR
sgv

PC,DECODE
01 aeraxcs

000000G 0000006

7%:

MOV

cno SLOT,CMD.REF

000000G 0000006

5002

JSR
ROR

BCC

000001

(sp). (sp)o

SP,s

4995
4997

000472
000033

000000G

sp.ao

ggnaeraxes SWP .RETRIES

5?35

000001

- (SP)

01,-(SP)

NUM.RETR

0000006

00BM36,

4964
4993

CLR

000000G 0000006

000000G

$127 1551 SECTION

R
)
:1" SWP. TRACE

HOV

OUNIT,BUF .DESCRPTR

5033

M10
ZRCFR3

v03.0

CZRCFCO RC25S FR END TEST

27-Mer-1985 15:2 7:28
27-Mer-1985 13:2 8:18

TEST SECTION

012767 000002 0000006
004767 0000006
006000
103016
104455
000132
0000006

02,BYTE.COUNT
:g.SEND.DAYA

94:

CMD.SLOT,CMD. REF

oecv.oari.au§.aur.ocscapvn

04 ,BYTE.COUN
:8.R€C.DATA
114
S5
133

000000G 000104

5041

’

5043
5038
5050
5051
5053
5055

5058

s
:
:
:

10¢:
11%:

01 ,RETRIES

134
RCV.DATA
BUF 0104
124

01 ,RETRIES

000000G

12%:

5060

104
PC,DECODE

55
134
gSG.RElD.ERQ
000001

5039

01,RET.STATUS

0000006

0000006
000001
0000006

’

PC,DECODE

:g‘aeraxes

134

RCV.DATA BUF.2,-(SP)

(SP)

.9.(25)
5034
5036

8s:

SEO"(>336“1

S5
132
. ERR
SND.DATA

:%.RET.Stnrus

000001

VAX-11 Bliss-16 V4, 0 579
USER$1:[AZTEC.CZRCF C1z RCFC3.B16:4

5062
5057
5068

5071

5072

:
:

:
3

5077

5078

5079

05,-(SP)
PC,.BL$DIV

RO,DATA4

RCV.
.BUF
DATA
«2,(SP)

(SP)
05,-(SP)

PC,BL $MOD
RO,R1
R1
R1,DATAS

DATA3, (SP)

DATA4, -(SP)

OFMT13, -(SP)
03,-(SP)
000014
000001

SP.RO
14

0000006

13¢:

014,5P

01,RETRIES
144

; SP,e
5075
5084

000524
000530
000534
000536
000542
000544

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

004767
005767
001402
000167
012601
000207

i Routine Size:

0000006
0000006

14%;

177272

15¢:

179 words,

Routine Bese:

: Meximum steck depth per .nvocotuon

9 words

000000
000000
000004
200006
000010
000012

127::
1%:

004767
104466
006000
103773
000207

: Routine Size:

Meximum steck

5092

177226

JSR
157

BEQ
JHP
MOV

RTS

JSR

TRAP

6 words,

depth per

Rout
ine Bese:
C

invocetion:

' <BLF /PAGE >

2 words

154
24
(SP)«,R1

727 TEST SECTION
PC,8727

ROR

RTS

BLO

16 V4.0
“"
CZRCFC]ZRCFCS 816;:4

Page 142
(25)

PC,D0.RETRIES

NUM.RETRIES

AC$CODE .+ 23552

LSBTTL

VlX—l
USEW§

)U-'

CZRCFCO RC2S FR END TEST

ZRCFAS

v03.0

O-Ob-

ACS$CODE + 24320

5086
4964

CZRCFCO RC25S FR END TEST

0 (0 (o o
ATV AVTVTVTVIVIN
& BUVTVTVIVIVIUVIUVI B 5 5 5 5 5 5 Gl Gl Gl G G4 Gl Gl G 08 G Gl Gl 0 G G G G G G (G G
VIV

““fl"...'...Q......“.‘.'.......'“.'.C.......C...‘.'.'.....'..“““““““““““"“"“.‘““““““““

TEST SECTION

Bll
27-Mer-1985 15:27:28

27-Mer-1985 13:28:18

VAX-11 Blise-16 V4.0-579

USER$1:(AZTEC. CZRCFC)ZRCFCS B16:4

BGNTST;
feo

TEST #28 - AVERAGE ROTATIONAL TIMING TEST

: DESCRIPTION:
:

THIS TEST MWILL BRING RC25 CONTROLLER AND THE UNIT ONLINE.

'
:

THIS TEST WILL BE PERFORMED FROM THE HOST USING THE MSCP "READ”
COMMAND. AN LBN WILL BE SELECTED RANDOMLY. ONE THOUSAND TWO
BYTE COUNT READS OF THE SAME LBN WILL BE PERFORMED. THIS OPERATION

WILL BE TIMED AND THE AVERAGE TIME WILL BE REPORTED.

IF THE OPERATOR HAS SELECTED RETRIES, THE TEST WILL BE REPEATED.

l
l

abel
BLOCK];
if .SWP_TRACE then PRINTF (DBM37);

! TEST 28

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
be

TIP= ALL_ONES:

' TELL READ_CMD NOT TO WAIT

! GET AZTEC READY FOR OPERATION

! FOR REC_STATUS

if AZTEC_READY ()
then

ERADF (93, AZT_READY_ERR, 0);

if .RET_STATUS then DECODE ();

! DECODE THE STATUS, IF ANY

RETRIES = TRUE;

! SET RETRIES FLAG

end

IF FAILURE REPORT ERROR

else
3
BLOCK]1 :
begin
.

! SEEK RANDOM SECTOR AND REPEAT SEEKING THE SAME SECTOR 1000 TIMES.
K

BYTE_COUNT = 2;

eur _DESCRPTR = DATAL;

! FILL Tli COMMUNICATION COMMAND RING SLOTS
! WITH READ COMMANDS
P2 = ,TICKS
RANDOM_NUM

();

LBN_ST = .P3;
OUT_BOUND = ZERO;

IN_BOUND = ZERO;

! BYTE COUNTS

! BUFFER DESCRIPTOR

! INIT P2 FOR RANDOM NUMBER
! GET RANDOM LBN

! CLEAR COMMAND COUNT

CLEAR RECEIVE COUNT

SEQ

03
090928143
(26)

Cll

g%S(T: ggCT‘I:(z)?s‘
U!UlUlUIU!UlOOdflfldOOOOOOOOOQQQO~I~J~A~J~J~JflsloOOOOWMMMMUIUIMMU!MOOOOOOOUI

S5 S5 S5 S5 G5 S5 G0 S5 S0 S5 S0 S0 G TS G0 0 SE 6 G0 S8 B G0 S0 S S0 S0 G0 G9 G0 G S0 S0 G Gr GF O

6 G S5 Ge G G5 S5 S¢ S0 Ge G

e G5 S Gs G Gs So Ge Go S0

RCFCO

TEST

27-Mer-1985 15:27:28

27-Mer-1985 13:28310

incru I from O to SND_ALLOCATE - 1 do

an
REF = ();LBN_ST;
READ_CMD
ouTBouuo .OUT_BOUND + 1;

VAX-11

USER#$1: ?AiTEC. ZRCFC]ZRCFC3 816:4

! FILL COMMAND BUFFER WITH

! SEEK COMMANDS (16 SLOTS

! ISSUE READ COMMAND

if GET_CMD_SLOT () then exitloop;
end;

g INIT AND START THE CLOCK
CLOCK INIT ()

= .RC25_ ‘DDR (RCIP, RC_ALL);

while .IN_BOUND lequ 1000 do
begin

% N

TATUS

! READ IP FOR CONTROLLER
! TO START POLLING

' DO SEEK FROM STARTING TRACK

' OWNERSHIP BIT.

()

then

POLL RECEIVE RING FOR HOST

IF ERROR, REPORT ERROR

befe".
ERRDF (98 ~RoC SEEK ERR. 0);

' SAVE RECEIVE COUNT

DECODE ();
RETRIES = TRUE;
leave BLOCK];

! DECODE END PACKET STATUS

PRINTB (FMT11, .TEMP, .LBN.ST);

else

! INIT CLOCK VARIABLES

! AND ABORT TEST

end

begin

while .OUT_BOUND lequ 1000 do

ReRoFILL_CMD )
OUT_BOUND =

.OUT_BOUND « 1;

' GIVE NEXT SEEK COMMAND

! AND MAINTAIN A QUEVE OF 15

if GET_CMD_SLOT () then exitloop:;
if (.OUT_BOUND -

.IN_BOUND) eqlu 16 then exitloop;

end;

TEMP =

_RC25_ADDR [RCIP, RC_ALL);

! READ IP AND CONTROLLER

WILL START T0 POLL

end;

g STOP THE CLOCK

’

.CLK_CSR = ZERO;

! STOP THE CLOCK

Blies-16_V4

SEQ 0339
P
144

m(26)

ZRCFR3

v03.0
i
i
i

5207
5208
5209

CZRCFCO RC2S FR END TEST

D11
27-Mar-1985 15:27:28

! TOTAL SEEKS = 1000
DATAG = MINUTES#60 o secouos.
DATA3 = .TICKS#100/.CLK HERTZ;

! MSEC./SEEK
! 100TH OF MSEC./SEEK

TEST SECTION
S
S
S

%3{? §

:
:
:

Se12
Se13
ggig

4
4
:

%Si?

if (.NUM_RETRIES eqlu ZERD) then exitloop;

:
:
:
;.

Se18
5219
Se20
S221

3
3
3
1

end;

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4,0-579

USER#1:(AZTEC.CZRCFCIZRCFC3.816:4

sy °3‘°1

(263

PRINTB (MSG_ROT_TIME, bnrua .DATA3); ! PRINT MESSAGE 'AVERAGE SEEK TIME'

end;
if (.RETRIES) then DO_RETRIES ();

return;
ENDTST;

$728:

000001 0000006
0000006

000001

.SBTTL
MOV

$T28 TEST SECTION
R1,-(SP)

;

5091

g%;

ox SWP. TRACE

;

5114

MOV

ooensv -(SP)

MOV
TRAP

sp.no
17

CMP

MOV

0000006

000000G 000000G

000526

177777 0000006

0000006

18:

cHP

CLR

0000006

(sp)o (sp)o

; SP,s

;

5116

0-1,7TIP

;

5120

S127

gg;

:}.RET.STATUS

5129

JSR

PC,DECODE

JHP

o1 .RETRIES
134

;

5131

5139

gfgs

MOV

000000G

o1,-(SP)

RETR

24:

JHP

JSR

ggnnernxes SWP.RETRIES

154

PC,AZTEC.READY

ROR

LWORD
"WORD
'WORD

ke
000001

-($P), -(SP)

;

000001 000000G

4a3:

MOV

000002

5%:

MOV

92,BYTE. COUNT

0000006
0000006 000000G

MOV

ooAruxBUF.DESCRPTR

;

JSR
MOV

TICKS,P2

PC, RANDOM. NUM
P3.LBN.ST

:
-

0000006

CLR

IN. BOUND

000424

0000006

000000G 0000006
000000G 000000G

0000006

000000G 0000006

0000006
0000006
0000006

CLR

64:

CLR

out
. BOUND

;

5124

5140
5144

5145
5146

5147

5148

i 1

5150

PC READ. CMD

5153

MOV

LBN, ST, CMD. REF

INC
gg:

1.BOUND
:g.GET.CHD.SLOT

JSR

5118

:
;

5152
5154
5156

000017

0000006
0000006
0000006
000000G 001750

21.017

74:

PC,CLOCK, INIT

84:

INebuno 91750

0000006

anéas AODR (sP)

74
R1

579

—

TEST SECTION

VAX-11 Bli
USER$1:[A TEC CZRCFC]ZRCFC3 B16:4

27-Mar-198
27-Mar-198

UlU'l

v03.0

CZRCFCO RC25 FR END TEST

ZRCFA3

Lond nd

Ell

RC.REG

C.REG,*

114

(26)

5150
5163
5164
5168

Pg+REC.STATUS

5171

IN.BOUND.TEHP
55
136
gsc.SEEK.ERR

5175
5176

LBN ST,-(SP)

5177

TEMP, -(SP)

OFM111,-(SP)

000003

03,-gs )

000010
0000006
000001
0000006
000016

000000G 001750

SEQ 0341 146

9¢:

SP,»

01,RETRIES
016,SP
124
ogr.BOUND, #1750
PC,READ.FILL.CMD

0000006
0000906
0000006

out. BOUND

pc GET.CMD.SLOT

10
Ig
.BOUND,RO

0000006
000020
0000006

gUYBOUND RO

000000G 000002
0000006

10¢:

0000006

11%:

aRrC2S. kDDR 2(SP)

g(S )T

aCLK.CSR

MINUTES, -(SP)

074, -(SP)

PC,

*,RC.REG

RC.REG,
*

5197

5168
5208

BL $MUL

SECONDS, RO

ao DATA4
TIEKS,(SP)
0144, -(5P)

5209

PC
BL $MUL
,
RO, (SP)

CLK.HERTZ, -(SP)

PC,BLSDIV

DATA4, -(SP)

5210

F11
CZRCFCO RC2S FR END TEST

ZRCFR3
v03.0

012746

0000006
000003

000016
000001

#MSG,ROT.TIME,
-(SP)
#3,-(SP)

004767

;

195 words,

Routine Base:

depth per .nvocotuon

12 words

177166

NUM. RETRIES

1§:

6 words,

.SBTTL

T28 TEST SECTION

JSR

TRAP
ROR

PC,$T728
66
RO

RTS

Routine
AC$CODE + 25142
Base:
C
invocation:
2 words

1<BLF/PAGE>

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFCJZRCFC3.B16;4

55090342147
(26)

i SP,»
3
$

5124
5214

’

5216

5091

5220

AC$CODE + 24334

BLO

Maximum stack depth per

Se22

PC, DO RETRIES

15¢:

104466
006000
103773
000207

; Routine Size:

016,5P

ox‘éETRIES

14%;

177236

;: Routine Size:
;: Meximum stack

SP,RO
14

124:
13%:

000000G

0000006
0000006

000000
000000
000004
000006
000010
000012

27-Mar-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

G11
CZRCFCO RC2S FR END TEST

ZRCFB3

TEST SECTION

v03.0

:
:
3
5
B
.
K

‘
:

3
:
5

i
‘
‘

5
3
B
i

H
&

H
H
H

i
s
;
H
.

:
:
H
H
G

H
:
:
i
5
H

B
5
:

B
H

H
5
:

H
‘

5
i

O O G G o (o (N

USER$1
1:(AZTEC. CZRCFC]ZRCFC3.BI6;4

27-Mar-1985 13:28:18

BGNTST;
feo

! TEST 29 - WRITE PROTECT TEST
DESCRIPTION:
THIS TEST REQUIRES MANUAL INTERVENTION,
IT WILL BE EXECUTED IF
THE SOF TWARE PARAMETER QUESTIONS DO NOT CAUSE IT TO BE OMITTED.
THIS_TEST BRINGS RC25 CONTROLLER AND THE UNIT ONLINE FIRST.
THE TEST IS DONE_FROM THE HOST USING THE MSCP COMMAND "“GET UNIT

G NO G O OG

VAX-11 Bli 8s8-16 V4.,0-579

]

B NTVVIVIVIVIN
B B BB BB UWWUWWW
L S B LN G W4 G G G G O O

5223
5224

VIV

27-Mar-1985 15:27:28

STATUS" (GUS).
THE TEST WILL ASK THE OPERATOR TO MAKE SURE THE
WRITE PROTECT SWITCH FOR THE UNIT IS IN THE OFF POSITION.
IT WILL
DO THE GUS FOR THE UNIT TO VERIFY THAT THE CONTROLLER KNOWS IT IS

NOT WRITE PROTECTED.

THEN THE OPERATOR WILL BE ASKED TO PUT THE

WRITE PROTECT SWITCH IN THE ON POSITION AND A GUS WILL BE DONE TO
MAKE SURE THE CONTROLLER RECOGNIZES THAT THE UNIT IS WRITE PROTECTED.
THE ERROR REPORT FOR THIS TEST WILL CONTAIN THE UNIT NUMBER,
AND ACTUAL POSITONS OF THE WRITE PROTECT SWITCH.

EXPECTED

! SKIP THIS TEST, IF MANUAL INTERVENTION SWITCH IS CLEARED.
if not
then

.SWP_MANUAL

begin

PR?NTF (DBM39);
return;

end;

if .SWP_TRACE then PRINTF (DBM38);

TEST 29

NUM_RETRIES = ZERO;
while (.NUM_RETRIES lequ .SWP_RETRIES) do
beam 29,

! GET AZTEC READY FOR OPERATION
if AZTEC_READY ()
then

beain
ERRDF (95, AZT_READY_ERR, 0);

else

! IF FAILURE REPORT ERROR

if .RET_STATUS then DECODE ();

DECODE THE STATUS,

RETRIES = TRUE;
end

SET RETRIES FLAG

begin

! DISPLAY MESSAGE “TURN OFF WRITE PROTECT SWITCH*

THEN ISSUE

IF ANY

SEQ 0343
ge 148

(27)

H1l
CZRCFCO RC25 FR END TEST

ZRCFB3

27-Mar-1985 15:2 7 :28
27-Mer-1985 13:2
:28: 18

TEST SECTION

OO VIUVTVIVIVIVIVNIVIVIVNION
' NN OO ® NN NNNO N NN ~NO OO
T LTI
O O O O\ LTUITUTUIWLY

vV03.0

;

VAX-11 Bli ss-16 V4
USER$11:[AZTEC. CZRCFC]ZRCFCS B16;4

GET UNIT STATUS COMMAND AND EXAMINE THE UNIT FLAG.

MANU_SW = ONE;
while TRUE do
bcgin
GMANIL (QST14, MANU_SW,

! MANUAL SWITCH IS SET TO 'YES'
! DISPLAY MESSAGE TURN OFF WRT
! PROTECT SWITCH

1, YES, 0);

if (.MANU_SW) then exitloop;
end;

§ PROGRAM WAITING FOR GO (CR) SIGNAL
if (.MANU_SW eql YES)
thon

! WAITING FOR CR SIGNAL

ea8'Rer - .cmo_sior,
if GET_UNIT_STATUS ()
then

BaROF (96, MSG_GUS_ERR. 0)

RETRIES = TRUE;

else

' COMMAND REFERENCE NUMBER
! ISSUE A GET UNIT STATUS COMMAND
! IF RESPONSE STATUS BIT ERROR, THEN

' GET UNIT STATUS ERROR

end

begin

RE?_UNIT_FLAG = _RET_UNIT_FLAG and so'020000';
if .RET_UNIT_FLAG eql UF_WPH

thcn

ER or (97, MSG_COM_WPT, 0);

PRINTB (FMT18, .UNIT);

RETRIES = TRUE;
end;

! MASKED OUT OTHER BITS

! IF WRT PROT. FLAG SET

. ERROR

! REPORT ERROR

end;

! DISPLAY MESSAGE “TURN ON THE WRITE PROTECT SWITCH" THEN
! ISSUE A GET UNIT SATUS COMMAND AND EXAMINE THE RESPONSE
UNIT FLAGS.
SWITCH2 = ONE;

; SET MANUAL SWITCH

while TRUE do

BRANIL (QsT1S. SWITCH2. 1, YES, 0): ! PTSPLAY MESSAGE TURN OFF WRT
!

if (.SWITCH2) then exitloop;

"ROTECT SWITCH

SEQ 0344
P

149

.9‘(27)

111
F

ZRCFCO RC2S FR END TEST

%EST SECTION

L L L LR R R

R R R AV IV [T ENENT. 1. 1. 1. ENENENENENT. PPN RERNT. . X, Y. Y. X0,

21V

B5 G5 B0 00 S0 00 W0 B0 S0 B

S0 G0 S0 G0 S G0 G0 S0 G0 G0 S0 G0 G0 G S S8 T

032767
001010

012746

22
28
26
30
36

10441
022626
000207
032767
001407

012746

27-Mer-1985 13:28:18

VAX-11 Bliss-16 V4.0-579

USER$1:(AZTEC.CZRCFCJZRCFC3.816;4

SEQ 0345
P
150

090(27)

end;

§ PROGRAM WAITING FOR GO (CR) SIGNAL
i

6 S BF B8 S SF S8 ¢ S S Ss Se Ss S

LI LT

s S

52%.33

27-Mar-1985 15:27:28

(.SWIT

begin

' WAITING FOR CR SIGNAL

1 YES)

CMO. REF = .CMD_SLOT;
if GET_UNIT_STATUS

! COMMAND REFERENCE NUMBER
()

éhon - (
ERaDF (98, MSG_GUS_ERR, 0);
RETRIES = TRUE;

else

ISSUE A GET UNIT STATUS COMMAND

! IF RESPONSE STATUS BIT ERROR, THEN
! GET UNIT STATS ERROR

end

begi

RE?_GNIT_FLAG *= ,RET_UNIT_FLAG and %0'020000';
if .RET_UNIT_FLAG neq UF_WPH

then

! MASKED OUT OTHER BITS

! IF WRT PROT. FLAG CLEAR

! ERROR

BaAOF (99, MSG_COM WPT, 0); ! REPORT ERROR

PRINTB (FMT19,

RETRIES = TRUE;
end;

I1);

end;
end;
end;

if (.RETRIES) then DO_RETRIES ();
if (_.NUM_RETRIES eqlu ZERO) then exitloop;
end;
return;

ENDTST;

000001

000000G

$729:

0000006

18:

$T29 TEST SECTION

01, SWP . MANUAL
18

MOV

91, -(SP)

CMP
RTS
BIT
BEQ

MOV

000001

.SBTTL

BIT
BNE

5251

o0BM39, -(SP)

;

5254

(SP)+,(SP)+
PC
#1,5WP . TRACE
2%

;
:

5255
5253
5258

0000006
000001

000000G

SEQ 0346
4,0-579
151
USER$1:[AZ EC CZRCFC]ZRCFC3 B16:4
VAX-11 Blj

(27)

o0BM38, -(SP)

#1,-(SP)

s RO

0000006

; SP,#

(sp)oé(sp).

000000G
000000G 0000006

000035

—r
®®

TEST SECTION

“iuwn

27-Mar-198
27-Mer-198

CZRCFCO RC25 FR END TEST

——

5260
5262

Q?".RETRIES, SWP.RETRIES

4s:

PC
035,71IP

PC,AZTEC.READY

5264
5267

64
55

5270

137

szr.aenov.ean
0000006

01,RET.STATUS

5272

5¢:

000001

000000G

64:

000001

000000G

PC,DECODE
¢1,RETRIES
1

:I.HANU.SH

0000006
000001
000000G

000001

ZRCFR3
v03.0

J11

5274
5267
5282
5286

1
0%+MANU ., SW

5289

000000G 000001

HANU SW, 01

5297

000000G 0000006
0000006

PC GET.UNIT.STATUS

CHD SLOT,CMD, REF

5300
5302

85
55

5305

140

SSG.GUS.ERR
000001

000000G

157777

0000006

0000006 020000

8s:

#1,RETRIES

5306

ger.UNIT.FLAG, 920000

5310
3312

55
141

5315

UNIT,-(SP)

5316

gSG.COH.UPT
OFHTIB (SP)

000002

000001
000006

?PRO

000000G

#1,RETRIES

#6,5P

3317
5314

K11
CZRCFCO RC2S FR END TEST

ZRCFR3

27-Mer-1985 15:27:28
27-Mer-1985 13:28:18

TEST SECTION

v03.0

012767
104443

000001

0000006

9¢:
104:

VAX-11 Bliss-16 V4,0-579

SEQ 0347

USER$1:[AZTEC. CZRCFC]ZRCFCS B816;4

Page 15

(27)

#1,SWITCHZ
43
404

5329
5333

01,SWITCH2
1 04

5336

PC GET.UNIT,STATUS

5347
5349

110
55

5352

SWITCH2
130
gSTIS

000001

000000G

000000G 000001

SHITCH2.01
124
CMD.SLOT,CMD. REF

000000G 0000006
0000006

5344

142

MSG.GUS.ERR
we

0000006

OéRETRIES

114:

000000G 020000

RET.UNIT.FLAG, 020000

UNIT, -(SP)

5363

OFMT19,-(SP)
P.R

01,RETRIES

06 SP

3
1,RETRIES

12%:

; Routine Size:

004767

10
12

104466
006000

103773

000207

17723%6

NUM . RETRIES
144

5364
5361
5373

5375

14%;

175 words,‘

H Spn.

PC,D0.RETRIES

13¢:

177326

5357
5359

5362

143
gSG.COH.HPT

; Maximum stock depth per

5353

157777

0000006

000001

5221

ACS$CODE « 25156
Routine
Bese:
0
S words

invocetion:

129:
1%:

.SBTTL

129 TEST SECTION

JSR

PC,$729
66

TRAP

BLO

RTS

5379

L11
CZRCFCO RC25 FR END TEST

ZRCFR3

27-Mer-1985 15:27 :28
27-Mer-1985 13:28:18

TEST SECTION

vV03.0

VAX-11 B liss-16 V4.0

USER$1:( AZTEC. CZRCFC]ZRCFC3 B816:4

Routine Bease:
6 words,
AC$CODE + 25714
: Maximum stack depth per invocetion:
2 words
Routine Size:

5381
5382
5383

1
1
0

end
eludom

0TS external references
.GLOBL
$SAVE4, $SAVES, $SAVE2, BL $SHF
.GLOBL
BL$DIV, BL$MOD, BL$MUL
PSECT SUMMARY

Psect Neme
SOWN¢

Words
81

AC$CODE

Attributes
RW ,
D

S612

RO,

LCL,
LCL,

REL,
REL,

CON
CON

Librery Steatistics
-------- Symbols -------Totel
Loaded
Percent

File

USERS$1:[AZTEC.CZRCFCJAZTECO.L16;2

48s

238

COMMAND QUALIFIERS

BLISS/PDP11/LIST ZRCFC3.B16/7EN:NOEIS
Size:

5612 code + 81 dets words

2Yn Ti-c%.

Li:zz,gPU'Hin-

05:18.2

cheneo/CPU-H.n
Used:
333 peages

Co-pnxotson Complete

Pages
Mapped

Processing

00:00.2

Time

SEO 0348

M1l
ZRCFR4
52 00 0t Pt §t 50 0 Pt s et et s Pt it s ot ot bt b Pt Pt e e D O O O

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-11 Blies-16 V4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC4.B16;3

MODWE ZRCFBa4 (l}ll)}LE c;scgcgRC25 FR END TEST'
900“'551'6_MODE' (RELATIVE)

BEGIN
!<BLF/LOWERCASE _KEY>
librery 'AZTECO';

! AZTEC LIBRARY

require 'BLSMAC.REQ';

! DIAGNOSTIC SUPERVISR LIBRARY

ssbttl

‘DM PROGRAM'

THIS MODULE CONTAINS DM CODE FOR SOME OF THE TESTS
AS GLOBAL DATA., THE HOST PROGRAM WILL DOWN LINE LOAD
THESE TESTS IN AZTEC CONTROLLER'S MEMORY FOR EXECUTION.
THE DM CODE WAS FIRST ASSEMBLED AND LINKED UNDER RT
AND THEN MADE AS VECTOR ARRAYS BY USING DMCONV.EXE
;gg%SWE IS A COLLECTION OF ARRAYS FOR SPECIFIC

'<«BLF/PAGE
>

SEQ 0349
P 8ge

(1)

ZRCFRA

CZRCFCO RC2S FR END TEST

v03.0

:
s
P

1516

i
1517

DM PROGRAM

|1)

psect

global

N11
27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

= DMSCODE(nowrite, noexecute, global, concetenste);

T
——
. ———
—
—

VAX-11 Bliss-16 V4,0-579

USER$1: [AZTEC.CZRCFC )ZRCFCA. B816;3

SEQ 03

)

p.,2° 2
(2)

Bl2
Hh‘h‘.-.MHO-.F”F”H.‘.‘FhFHHHMHMMHMHHHHPfi.hFMHMHO‘O‘HPMP”O‘”“”P”H”.‘”HH

CZRCFCO RC2S FR END TEST
OM CODE DOWN LINE LOAD TEST

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

ssbttl 'OM CODE DOWN LINE LOAD TEST'

global
DM_09 : vector 893.word) preset

Io 00027

(
! THIS IS THE DM PROGRAM BYTE COUNT,

woooooo.

! THIS IS THE DM OVERLAY BYTE COUNT.

#o'000000',

wo'0

(4
(S

= 10'0‘2524'
- 10'052123‘.

“0

Io:126411:.

[10]

=
=

’
:

'
:.

[ 14
!lsl

.
o

(19
(21

=
=
=

;

“

e
.

*104206'
,
#0'003051°',
#o'114000',

%o'003037',
#0'003032°',

#0'104201°',

[26]

#0'177740',

[ 27 ]
28 )
[29 ]
[ 30
[ 31
32,
[ 33
[ 34 )
[ 35
[ 36 )
37
[ 38

=
=
=

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

[ 39
40 )
4]

=
=
=

(43
44

=
=

42]

(45 |
46
47)

(48 |

(49 ]

[ 50

(51
[ 52 )

go'
5
#o'060023',
#o'l103207',
wo'115007',
%0'012756',
%o'003003',
wo'114000',
%o'003052°',
#o'104307',
wo'003032',
%0'104301°',
#o'003033’,
#o'104302',
wo'003034',
#o'104203',

#o'003052',
#o'060020°',
wo'l103207',

w®o0'177740',

#0’'115007',
#o'013007',

=
=

#o'115400',
#o'003037',

#0'003035%',

so'106300',

#o'003037',

=
=

#o'104200',
%0'000106',

! THIS IS THE PROGRAM VERSION
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

* o

[ 22,

23]
[ 24 )
[ 25 ]

PROGRAM NAME IS 'TESTO9’

’

(16
(17
(18 )

' i

(11 )

(12,
,13'

! NEXT 3 WORDS = PROGRAM NAME (ASCII)

%0'032756',

! DM CODE STARTS HERE

VAX-11 Bliss-16

0-579

USER#1: (AZTEC. CZRCFC]ZRCFCC 816;3

55092321 3
(3)

Cle2
CZRCFCO RC25 FR END TEST
DM CODE DOWN LINE LOAD TEST

s s i s so

s P

%o' 003040’ ,
%o’ 003024,
%o' 104207’ ,
%o' 003052,

s e P
s s s so o
s sP
s e P
B Bt Bt s s Pt e s ot s s P

1576
1577
1578
1579
1580
1581
1582
1583

sP o P

ZRCFR4
v03.0

27-Mer-1985 15:33:05
11-Jan-198S 08:19:20

VAX-11 Blies-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ OP 03 52

age

(3)

D12
CZRCFCO _RC2S FR END_TEST
NONEXISTENT MEMORY TEST

ZRCFR4
s s e i s e s s P

ssbttl

'NONEXISTENT MEMORY TEST'

global
DM_10 : vector (S8, uord] preset (
0
= %o'000162"
!
THIS IS THE DM PROGRAM BYTE COUNT.
,
1
= %o'000000',
2
= %o'000000'
,
! THIS IS THE DM OVERLAY BYTE COUNT,

'S
6
7

s o o e s s o o s P
it s i s o s s e o (s s P
s s it o
s ot s et e o s s o
s et Bt s et Bt Bt Bt s s P P

1617

1618
1619
1620

...0...0...0.‘QQOG.'MN.O.-Q......o...o...-.‘.u.-.o...o.‘.l..Qt.l.Q.l.0...0.0.00'.0.'““.o.ofl“.v“«.o.o.-.o.l

v03.0

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

=
=
=

%o'042524',

%o0'052123',
%o0’'030061',
%o’ 000000",

%o'126411',

0]+ %' 000000!
1]
- %er. 000000‘o.
11
1]+

[15]
b2

[16]
[17]
(18]
[19]

[20]
[21]
[22]
(23]

[24]
[25)
[26]
[27]

(28]

[29]
[30]

%o'104206',
%0'003007',
%0'108207',
%0'160000',
%o'104201',
%0'077777°,
%o'104202',
%0’'000001"
%o'104203",
%o’ 003500"
%0'060021',

%o'177740',

%0'103207',

%o’104070',
%o'002765',

[31]
[32]
[33]
[34]

=
=
=
=

%o'104207',
wo'002765',
%o'104201',
%o’'000001"

[37]

%0’'000000',

[38])
[39]
40]

45]

=
=
=

%o’000000',
%o'000000,
%0:000000,

- wo'000000".

= %o’ 000000".

4
]

,000000,’

[49])

%o'000000"
,

[45)
fag

:481

[50]
[51]
52]

o
=
=
=

PROGRAM NAME IS 'TEST10'

THIS IS THE PROGRAM VERSION

UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

0000000|

%0'000000"
,
.
.

=
=
=
=
=
=
=
=
=
=
=

! NEXT 3 WORDS = PROGRAM NAME (ASCII)

%0'000000",

*000000" ,

’

gTM

%o’ 000000" ,
%o’ 000000"
,
%0'000000

! DM CODE STARTS HERE

'VER:C

- 11 Bliss- 16_v4.,0-579
VAX

USER$1:[AZTE C.CZRCFC)ZRCFC4.B16;3

SEQ 0353

Page

5
(4)

El2
ZRCFR4
v03.0
.

1674

CZRCFCO RC2S FR END TEST
NONEXISTENT MEMORY TEST
1

:
i

1675
1676

1
1

1678

1677

54
55

=
=

%o
%o

o
>

%o'030037"

= %o'000000' );

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-11 Bliss-16 V4.0-579
USER$1:([AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ 0354

Poge

6
(a)

F12
CZRCFCO RC25 FR END TEST
BUS ADDRESSING/DATA TEST A

ZRCFR4
v03.0

'BUS ADDRESSING/DATA TEST A’

lobal

[0
(1
[2
3
(4

=
=
=
=

%0'000306',
%o’ 000000’,
%0'000000',
%o’ 000000',

%0'052123',

%0'042524',

%0'030461',

%o126811',

:ig‘
[12]3

== “l
%o'000000"|l.,
%0'000000"

[16]
(17]
18]
[19]
20

5]
] s

= %o'000000"
‘O'
e.

s s o ot et o e o s s s s s s s s s s s o

s s so i P

s s s s s (o o

DM_11 : vector (100, word] preset (

s s it o

s s s s o P

s s it s s P

%sbttl

s s et e et o o

1680
1681
1682
1683
1684
1685

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

[22]

=
=
=
=
-

%0'000000',

%0'104206',
%0'003061',
wo'104207',
%o'003040',
:::104201;.

%0'060023',

(23]

%0'103207',

[25]

%o'115007,

[ 24

[26]
[27]
(28]
[29]
(30]
[31]
[32]
(33]
[34]
[ 35
[36]
[37]
[38]

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

%0'177740',

%o'012754',
%0'003023",
wo'104200°,
%0'000001',
%0'003043',
wo’'104300,
o' 003040",
%0'003044,
wo'104304',
%0'003042',
w%0’'114000',
%0'003046',
w%0'104307',

[39]

%o’ 003040

(41]

%o0'003041',

43]

(40]

[42]

[44]

w%o’'104302,

%o'104203',

[45]
[46]

=
=

(48 ]

47]

49]
[50]
[51]
[S2]

w%o’'104301',

=
=
=

=
=

%o'003043',
w%0’'003044',
%0'060021',

%0'103207',

%o'177740',

%0'115007',
wo'013012',
wo'115400',
%0'003046',

! THIS

IS THE DM PROGRAM BYTE COUNT,

! THIS IS THE DM OVERLAY BYTE COUNT.
!

NEXT 3 WORDS = PROGRAM NAME (ASCII)

THIS IS THE PROGRAM VERSION

! PROGRAM NAME IS 'TEST11'

! UPPER BYTE-TIME OUT VAL. LOWER = FLAGS

! DM CODE STARTS HERE

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFCJZRCFC4.816;3

SEQ 0355
P age

(5)

Gl2
CZRCFCO RC25 FR END TEST
BUS ADDRESSING/DATA TEST A

ZRCFR4

1748

1749

1750
1751

1752

1753
1754

1755

1756

1757

1758
1759
1760
1761
1762

s s ot s s i it s o o o s s s s s 8 s e i s s o

1746
1747

0 1t ot Bt e e ot B et e o et ot i e o s s s s e s i P

1737
1738
1739
1740
174}
1742
1743
1744
1745

B5 S5 G0 B0 S5 S0 G0 90 S0 90 S5 S0 G0 90 B8 S0 G0 B6 S8 S8 S0 B0 G GF S0 S8 S8 G GF S 6 G0 S G0 S8 ¢ SF Ss S e Ss ¢ Se o @0 @0 @0 oo

v03.0

»ssq

3561

}sai

[ 29
l6°1
161,
162
t631
i“l
i6si
k“i
k67l
;681
r691
k7°1

73!

:7‘1
h7s|

%0'106200',
%o' 000012 ,
‘003046

%o’ 032766.

%o’ 105200|
00000

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

VAX-11 Bliss-16 V4,0-579

USER$1: [AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ_0356
Page

(5)

H12
RCFCO RC25 FR END TEST

505 ADDRESSING/DATA TEST B

<
o

s s s et s s s o

s o

s s s s s s s s o

ssbttl

0 B et s s s s s P o ot o o o o s e o et s e o e ot s s o o o o e s e s e s o

9 S SE Be B8 S S8 S8 S S Gs Se S
S5 S5 S5 S0 S0 00 00 00 00 00 00 S0 W0 N0 S0 S0 S0 G0 S0 S0 S0 90 S0 G0 S0 S0 G B8 T6 G0 S0 G0 S S0 G6 G G0 G0 G0 S8 G0 G0 GF G6

27-Mer-1985 15:33:05

11-Jen-1985 08:19:20

'BUS ADDRESSING/DATA TEST B’

global

DM_12 : vector [202, word)

'%0'000622',

%o’ 000000"
,

'S
6

=
=

%0'052123',
%o0'031061',

8
[9

=
=

%0'177411',
%o'000000"
,

[11]
[12]

=
=

%0'000000'
,
%o!000000"
,

15
[16]
[17]
(18]
191

=
=
=
=

[10]

1121
rlst

[21]
1531
'2Zi
23]
5]
[25]

o
.

! THIS IS THE DM OVERLAY BYTE COUNT.

%0'042524',

! NEXT 3 WORDS = PROGRAM NAME (ASCII)

%0'000000',

%o’ 000000",
%0'104206',
%0'002767°,
%o'003004',
000000,

'
l.
000000
so’000000"
,
' 000000"
,

[29]
(301
[31]

=
=
=
=

l.,
%o’' 000000"
%o!000000:
%:000000,
%o!000000,

‘o'

;3‘1

.000000,'

‘.

391+ %o’000000"
]
=
%0'000000',
139]
- %o'000000".
[80]

%o0’'000000",

(44]
[45]

=
=

%0'000106',
%o’000000"
,

[50]
[51]
(52]

=
=
=

%o0’'000000",
%0'000000",
%0'023016',

[41]
[43]

42]

THIS IS THE_PROGRAM VERSION

! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

’
Mg
lo‘OOOOOO..

! PROGRAM NAME IS 'TEST12'

%0'000000"
,

&291

;2
(28]3

preset (

IS THE DM PROGRAM BYTE COUNT.

%0'000000',

= %o’000000
000000,!

:
=-

! THIS

= %o0'000000',
- %o’ 000000'|
= %0'000104",

7]+ %' 000000!
‘
*000000",
9]
%o/000000"
|’
44

! DM CODE STARTS HERE

VAX-11 Bljss-

USER#1:[AZTEC

4,0-579

CFCJZRCFC4.B16;3

SEQ 0357

Page

112
ZRCFCO RC2S FR END TEST

gUS AEDRESSING/DATk TEST B

ZRCFR4

i s sP
s s o s sP P
sP
s e i s e e s e s e sP
s s s s o B
s s P
s s o
s e s e P
s Pt ot o
s s et o e o
Bt B

S5 S5 65 S5 S0 00 00 S0 B0 S0 00 00 S0 00 00 G0 S0 00 S0 S0 G0 G0 S0 G0 @0 S0 S6 S0 S8 S0 S0 S0 S0 S0 90 G0 B6 Te B8 G5 S8 ¢ S6 S0 S B¢ Se G0 O

6 S0 S6 G S S¢ Ss S

s o P

v03.0

53]

%0'023031',

[SS]
[S6]
[57]
[S8]
[S9]
[60]
[61]
[62]
[63])
[64]
[65]
[66]
[(67]
[68]
[69]
[70]
[71]

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

®o'023120',
%0'023126',
wo'023210',
%0'023120',
%o0'023155',
%0'023210',
%0'060010',
%o0'104207',
%0'002770',
%o'104201°,
%o’ 000003,
%o0'060023',
%0'103207',
%o0'177740',
%0'115007',
%0'013030',
%o'003203',

[S4]

[ 74]

(76]

%0'023210',

'
sy
0002770,

%0'002777',

w%o'104300',

[77]

%0'002771',

[80]
[81]
[82]
[83]

=
=
=
=

%o'002772',
s%o'104207',
%0'177777',
%0'107307',

[85]
(86]
[87]
[88]

=
=
=
=

%o’104070',
%o0'003002',
%o'023063',
%o’105200',

78
[79]

=
=

%o’ 003000
%o0'104301',

[(89]

%o'000002',

[91]
[92]

=
=

%o’115000°,
%0'002777',

(93]

'9‘|
95]
[96]
[97]

%0'053060',

=
=
=
=

o'115400',
%0'003000',
%0'117401',
wo'053041',

%o0’'100467',

[101]

w%o’'100462',

103]
[104]
105]
106]
107]
[108]

=
=
=
=
=
=

%o'104307',
%0'002777°,
%o'104301',
%o’ 003000’
,
wo’104202',
%o’ 000001,

(98]

[(99]

100]

[102]

(109]

%o’000000',

%o'100461',

%o'100463',

%0'104203',

27-Mar-1985 1 S 33 05
11-Jan-1985 0 8 19 20

VAX-1 1 Bliss-16 V4.0 -579
USER# 1: {AZTEC. CZRCF CJZRCFC4.B16;3

SEQ 0358
P

J12
CZRCFCO RC25 FR END TEST
BUS ADDRESSING/DATA TEST B
s s ot e o s o ot i s s Pt s e s o P s s o Pt e o s s s s P
B0 Bt Bt et et Bt et et et Bt s s et e s e Pt s s P it s s s P s s s P

..M"M.......l.........'...'.....l.l'...l“.‘.l.'...O.l.I...l....'..l“.l...l‘0.....0.'.......'.'.0...'...-.'““

ZRCFR4
v03.0

110)

18]

- %eriise0y:

[111]
112]

=
=

w%o’003002',

%0'060021"
.
%0'103207',

His] =@ %0’'003003"
e.

[117]
[120)

[121]
[122]

158]

[125]
126]

[128]

=
=

0003003,

%o'033067
.
%0’ 003203
.

- %o 10463!

= so0'104261'

%o 104267,

%o'104207',

129]
[130]

=
=

%0'002775'
.
%o'104201",

frH
135]

I- %o 1
002770"|

[136]
[137]

= %0'002777'.
= %o’104300'.

(180]

%0'104301'.

[143]

#%0'177777°,

[144]
[145]
[146]

=
=
=

o' 003002';
%0’'023063
%o’105200',

[148]
(149]
[150]
[151]
[152]
[153]
154]
[155]
[136]
(157]
[158]

=
=
=
=
=
=
=
=
=
=
=

%0'002777",
so’
'
%o'002777',
%o'053152',
%o'115400',
%0’ 003000,
so'117401',
wo’'053141",
%o'000000"
,
%0'104300',
%o’ 002770,

160]
[161]
[162]
[163]
164]
165]

=
=
=
=
=
=

so’104300',
%0'002771';
%o'003000";
%o’104301',
%o'002772'
.
%o’'114000'.
o’ 003002"
|

[159]

166]

%o'002777"

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 1 8li 89-16 V4, 0-579
USER$ 1:(A ZTEC.CZRCF CJZRCFC4.B16;3

SEQ 0359
P

-~ (6)

. 3.019% 1

ZRCFR4
VoS,

CZRCFCO RC2S FR END TEST
ATA TEST B
NG/Dt
BUS
n e
TADDRESSI

: 1957 1 168 | = %o'105200° .

;1958
1959
;.
1960
:
1961
:
1962
:
;1963
1964
H
1965
:

1
1
1
1
1
1
1
1

6 1
;196
678 11
;19196
:
;1969 1
i 1970 11
is

1912 1
197

(169
(170
(171
k172'
'173'
1174]
.175'
176

1177)
]
'178
179
(180]
[181)

182)]
1183

=
.
=
=
=
=
=
=

%o'000002' .
%0'002777' .
%o'115000' .
%0'002777" ¢
%0'053200' "
%o’'115400"|
%o'003000' .
%o'l1174 o

2321
010 .
o' 060
== %o'0

[184]

= so:104300:,

; ig;: i
9 1
P197
1980 1
3

:1aa:
(1%0]

° ‘023215,
7%6-.
- xe'd02
%o'104201' ’

191

= 0000001,

]
[192
193]

= woeooza"

;1985 1
i 1% 1
1368 1
;s

(196]
[191]
193]

= ::.ilgzgg.
- so:0132e7:,:
00,
000snxes
.- no'010

i 1998 1

! THE FOLLOWING 4 BLOCK

;1981 11
;1982
H

1984

;1991 1
‘

’195‘

VAX-1R$11:([BlisAZTs-16
27-Mor-1985 15:3:193:05
JZRCFC4.816;3%APagSN0e 12
CFC-579
EC.CZRV4.0
:20 USE
)

o1,
- . 167
- %o' 033 . ,
.
= %o002774
= s0'00277,
5'

1973 1

K12

ot T I LIS
f WERE APPENDED IN i

.00 00

L12
F O
END
CZRCFC
RC2S FR FR_END
BLOCK TRANSFER TEST

O-OMM“.‘HO-.HMH”MMO-‘HHMHO—‘.—‘M.‘F.—‘F‘HHF.—‘”.-‘M.-..-..-..‘H“hh‘”.‘b‘."-‘”fi..—.—.”h‘b‘.‘”.—.b‘.‘

..u.o..Qo.....c.'.‘.0.0!0.0.'Oo...t...c.O.c.l.l.t‘c“.-QC...o.O.o.o.ofl.c...l.o.lo..o.ofl“.o.o.o.‘fi“.ouu...o

ZRCFR4
v03.0

ssbttl

’

27-Mar-1985 1 15:3 3:0
3
8:1 9:2 0
11-Jen-1985 08:

TEST
TES

'BLOCK TRANSFER TEST'

lobal

[0
1
2

5
6

[7
8

OM_13 : vector (105, word) preset (
=
.
*

#0'000320',
nooooooo
%0'000000',

#0'042524',

=
=

%0'052123',
%o'031461',

*
=

%0'000000',
%0'126411',

“amu.

'i?l

;

'
'
%0:000000:,

12]
[13]

= %0’ 000000°,
=
%0'000000°,

(18]
15]
[16]
[17]
18]
19]

=
=
=
=
=
=

[22]

= %0'104207°,

53]

+ %or000004".

[27]
28]
(29

=
=
=

%0'103200°,
%o'000001
%0'003047"

%0'003051',

%o0'104307',
%o0'003047,

23]

[26]

[32]
33
34)

[35]
(36]
37]

[38]
[39]
40]

=
=

=
=
=

[43]

42]

48]
45
[46]

=
=
=

(47

L524

(48]
[49]
50]
§1]

=
=
=
=

%o’ 000000’
,
%o0'000000",
%0'104206',

#0'003065',

wo'002743',
wo'104200',

%0'003047"

%o'060023"

%o'114000',
%0'003046'

wo'104301',

wo’'003050",
wo'104202',
%o’ 000400’
,
#0'104203',

#0'003066',

%0'060020',

%0'115007,
%o'013005',
%o'115400',

%o’ 00304r,

%o'106200',
%o’ 000012",
%o'003046'
wo'032763',

.0'0030‘1'.

! THIS

IS THE DM PROGRAM BYTE COUNT,

! THIS IS THE DM OVERLAY BYTE COUNT.

! NEXT 3 WORDS = PROGRAM NAME (ASCII)

! PROGRAM NAME IS ‘TEST13

! THIS IS THE_PROGRAM VERSION
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

! DM CODE STARTS HERE

VAX-11 Bli 1

USER$1:[AZ

0-579

RCFC]ZRCFC4 816;3

SEQ 0361
P

ot (7)

M12
CZRCFCO RC2S FR END TEST
BLOCK TRANSFER TEST

27-Mer-1985 15:33:05
11-Jan-1985 08:19:20

Rl‘.e
Blx.l.l.lx.lx.lB.11.1.R.1.1R.1‘R.1.1RW.1.1.1.1.1.1B.11i.11.‘S0.111.1R!.‘1S1

ZRCFR4
v03.0

XVAX-11
Blies-16 V4,0-579
USER $1:(AZTEC.CZRCFC)ZRCFC4.B16;:3

ZRCFR4

CZRCFCO RC2S FR END TEST
HEAD SMWITCH TEST

0-..-.’..‘”“M””.‘hfi-”“.‘””.‘”Ph.‘.‘.‘P”O‘”“HM”HMM”MM.‘MP”H””FP.‘.‘.‘MO—O‘.‘.‘P.‘

v03.0

ssbttl

27-Mer-1985 15:33:05

11-Jen-1985 08:19:20

'HEAD SWITCH TEST'

globel
DM_19 : vector (156, tm-dg gnu
S THE DM PROGRAM BYTE COUNT,
[0
- o' 000466°,

3
4
'S

=
=
=

9]
,1 )

=
:

7!
8

12]

1S]
i

(14
[15]

16]

17]
18]
19]
[20]

=
.

%0'000000':

%o’ 000000"
,
%0'042524',
%0'05212%',

%o'034461',

%0'000000',
%o'126411',
o' 000000' ,
10.000000'.

=
=

%o'000000"
,
%0’'000000',

%0'104206',

23]

%o’'114000°

25
.“'
27]
28

= %o'104200',
s
'
.
= %0'003135',
= %o'102200',

[30]

31]

wo'003127°,

%o'012766',

33)

%0’'000100

[35]
36

+
*

so'104200',
%o'000140"

38)
[39)
40)

* %o’'104200',

»
+
=

%0'003135',

wo'104300°
®o'003134',
wo'003130,

4}
42]

*
«

so'114000",
®o'003131°,

[44]

wo’'104300',

46)

A7)’

48
49
50
51
52

! DM CODE STARTS HERE

! THIS IS THE PROGRAM VERSION
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

- %er000000-|
%0'003151',
wo'104207',
w%0'003127',
%o'104201',

! NEXT 3 WORDS = PROGRAH NAME (ASCII)
! PROGRAM NAME IS 'TEST

- %or000000"
.
.
"

=
=
=
=

]

! THIS IS THE DM OVERLAY BYTE COUNT,

%0'003130,

#o'114000°,

« %0'003131",
%o'023006',
= %o'104200",
*
o' 000104",
* %0'003126',
«

e
e~
el
G
et

VAX-11 Bli 16
579
USER#$1: [AZ CZRCFC ]ZRCFC4 816;3

SEQ 0363

rege

15
(8 )

B13

s o s s P Pt
so
s s o s s e s s o sP e s s o
T Bt et s et s s B et et s s e s s o s s e ot s s s e s it o s s e s s o

““““.‘.‘......“...0...'.0.'.'...O.....fl.....................'...l""“““.’“““.‘“““.‘“““.’““““

CZRCFCO RC2S FR END TEST
HEAD SMITCH TEST
[S3)
[S4]
[5S]
'56'
[57]
[S8]
59
60]

=
=
=
e
=
=
=
=

%0'003047',
%o'104200',
wo'000012'
“'&3132.0
%o'104307
wo'003127',

61
[62]
63]
[64]
[(65]

=
=
=
=
=

%0'104301',
w0'003130',
%o'104302'
%0'003131',
%0'060015',
%0'103207',
%0'177740',

[67])
[68])
[69]
[70]

=
=
=
=

%0'053036',
w%o'103201',
%0'177637',
%0'106301',

[72]

[66]

[71]

(73]
[74]
[75]
[76]

78]

(79]

(80]
[81]
[82]
(83]
[(84]

=
=
=
=

w%o'115007',

%0'003130',

%o'053036',

%o’ 106302'
%0'003131',
%0'053036',
%o:023055,

= %o’'117400',

s%o'003132',

=
=
=
=
=

wo’'115000',
wo'003132,
%0'073044',
%0'003011',
w%o’'104200',

[86]

%o'003126',

[(88]
(89]
[90]

=
=
=

%0'003126',
%o'104201',
%o’ 000005

(85]

[87]

[91]
(92]
93]
[(94]
[95)

(96)
[97]
98]

[99]

=
=
=
=
=

=
=
=

%o'000106',

%o0'104207°,

%o’060022',
%0'060010',
%o’114000',
%0'003133',
%o'104307',

so'003127',
%o'060014',
%0’'103207',

%o'177740',

[100]
101]
[102]
103]

=
=
=
=

%o'115007",
®o'053112,
%0'104110',
%0'003136',

105]
106]
107]
[108]

=
=
=
=

%o’ 000040’ ,
%0'003130',
%0’'053101°,
o’ 106200°
,

104]

[109]

%o’'102200',

%o’ 000040",

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-11
liss-16 V4.0 579
USER#1:(AZTEC. CZRCFC]ZRCFC4 816;3

SEQ 0364

Pege

(8 )

C13

s i s s s s s s o e e
i o o
s i s i s o P sP
s s s e o et s o s s i s i o o s e s o
0 Bt s P

.C...0...‘.......O...l.l.....l.'.......C...C.l.l.. W B0 B0 B0 90 90 B0 S0 S8 G0 G0 S0 0 G0 S0 G0 B B0 S S0 98 9

CZRCFCO RC2S FR END TEST
HEAD SWITCH TEST
[110)
[111]
112]
113]
[114]
[115]
(116]
(117]
118]
(119]
120]

=
=
=
=
=
=
=
=
=
=
=

[121]
(122]
[123]
124)
[125]
¥
12/,
128]

=
=
=

%0'073121',
%o'115400°,
wo'003133',
%o0'106200°,
o' 000024"
%0'003133',
%o'033057",
%o0'003122,

[130]
[131]

=
=

so'104200',
#0'000106',

133]
134]
135])
136)
[137]
[138]
[139]

=
=
=
=
=
=
=

%0'003047',
%0'000000',
o' 000000’,
%o'000000’,
%o’ 000000",
%o’ 000000°
,
%0’ 000000°,

'129‘

=
=

%o'003136',
so'033121',
%0'003112',
%0'106200',
o' 000437",
wo'003136',
®o0'033121',
%0'003112',
%0'106200',
%o0'000377",
%0'003136',

=
=
=

]

(140]
[141]
142]

=
=
=

%o’ 000000"
,
o' 000000’
,
%0’'000000",

[144]
[145]

=
=

%o'000000",
%o’ 000000',

143]

(146]

[147]
148]
149]

150]
[151]
[152]
153]
154]

[155]

%o’ 000000’,
%0’'000000",

=
=
=

%0'000000*,
%o’ 000000",
%o’ 000000"
,

%0'000000'
);

=
=
=
=
=

%o’ 000000' ,
%o’ 000000’
,
%o’ 000000',
%o0'000000',
%0’'044310"

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-11 Bliss-16 V4.0-579
USER$1:[AZTEC.CZRCFCIZRCFC4.816;3

SEQ 0365
P age

(8)

D13
ZRCFB4
v03.0

0 s et e

s e s s s Pt e o e s e s s e s s e Pt s et s o e s e s e e o s P

s s s e s i s e i s Pt s e s s P

s s s e s

CZRCFCO RC25 FR END TEST
BLOCK TRANSFER TEST
ssbttl

'BLOCK TRANSFER TEST'

global
w
DM_21
[0
=
[2
'3

=
=

=9
'10‘
(11
3

rl‘i

1S]
[ 16
[17]
(18]
19]
20

[22]

(23]
(28]
[25]
'261

vector
tor

(213 +«

#%0'000000',
%o'000000",

! THIS IS THE DM OVERLAY BYTE COUNT.

%0'042524',

%0'052123',

10:126‘11:.

‘O“
'.
loOOOOOOO..

‘o,

* 000000’

OWI.

%0'000000',
#%0'104206',
o' 003223,
%o'104207',
%0’'003176',
sorl0d20L,

%0'060023',

%o'114000
w0'003206',
%o’'104200',

(28]
[29]
30]
[31]
[32]
[33]
[34]
[35]

=
=
=
=
=
=
=
=

so'102200',
%0'000001',
%0'003176',
%0'012771°,
%0'104200°,
%0'000100',
%0'003206',
%0’'104200',

[37]

[36]

“‘

o'.

%0'003207°,

wo’000140',

(38]
[39]
40]

=
=
=

%0'104200',
%o’'144000',
so’'003202',

[42]

[41]

%0'003207",

%o'104300',

[43]
44]
45]
[46]

=
=
=
=

%0'003205',
%0'104300',
%o’'003206',
%0'003177',

48]
[49]

=
=

%o’'003205',
%0'053005',

[47]

[S0]
[S1]
[S2]

=
=
=

! NEXT 3 WORDS = PROGRAH NAHE (ASCII)

! PROGRAM NAME IS 'TEST21'

! THIS IS THE PROGRAM VERSION

! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

=
=
=
=
=
-

IS THE DH PROGRAM BYTE COUNT,

'000000'.

=
=
=
e

[27]

? reset

! THIS

%0'030462°',

WORr d)

%0'000650',

27-Mar-1985 15:33:05
11-Jan-1985 08:19:20

#0'003177',

w0’'115000°,
wo’'104300',
%0'003207',
#0'003177',

! DM CODE STARTS HERE

VAX-1 18 li 89-16 V4,0-579
USER# 1:( AZTEC. CZRCFC]ZRCFC4 b16;3

SE0P0366 1
age

(9)

E13
ZRCFR4
v03.0

CZRCFCO RC2S FR_END TEST
BLOCK TRANSFER TEST

;2324

[S3]

®o'114000',

i
2326
;2327
;2328
;2329

1
1
1
1

[SS]
[56]
[57]
58]

=
=
=
=

%0'023015',
wo'023045,
%o'104200',
wo'000104',

[61]

;2325

;2330
;2331

;2332

:
2333
;2334
;2335
;2336
;2337
:
2338
;2339
;2340
;2341

[54]

1
1

[S9]
(60]

1
1
1
1
1
1
1
1
1

[62]
[63]
[64]
[65]
[(66]
[67]
(68]
[69]
[70]

wo'003200',

=
=

%0'003175',
%0'003167',

=
=
=
=
=
=
=
=
=

%0'003203',
w%o'104307
%0'003176',
%o'104301',
%0'003177',
%0’'104302',
%o’ 003200
%0'060015"
w%0'103207',

=
=
=

%0'003200',
%0'053036',
%0'115007",

;2342
;2343
;2364

1
1

[71]
[72]

;2347
;2348
:
2349
;2350
;2351
;2352

1
1
1
1
1
1

[76]
(77]
(78]
[79]
[80]
[81]

=
=
=
=
=

w%o'053036',
.
w%o’'115400',
wo’'003203',
%o'106200',
w%o'000012',

;2354
;2355
:
2356

1
1
1

[83]
[(84]
[85]

=
=
=

%0'033017',
wo'003164',
w®o’'104200',

;2345
;2346

;2353

;2357
2358
:
;2359
;2360
;2361
;2362
;2363
;2368

1
1
1

1
1
1
1
1
1
1
1

(73]
(78]
(7S]

[82]

[(86]
87]
(88]
(89]
[90]
[91]
92]
93]

=
=

wo’'114000',

=
=
=
=
=
=
=
=

wo'177740',
%o'106020',

%0'003203',

wo’'000040",
%0'003204°,
wso’'023121',
%o'114000°,
w%o'003210',
%0’'104200',
%0’'100000',
wmo’'003242',

;2365
;2366
;2367
;2368
;2369
;2370
;2311
;2372

1
1
1
1
1
1
1
1

[94]
[95]
[96]
[97]
(98]
[99]
100]
101]

=
=
=
=
=
=
=
=

%o’'104200',
#0'003256',
®o’'0032a5',
%o'104300',
%0’'003201',
%0'003246',
w®o’'104300',
wo’'003202',

;2378
;23715
;2376
i
2317
i
0318

1
1
1
1
1

103]
[104]
105]
(106]
107]

=
=
=
=
=

so’104300
%0’'003201',
w%o’'003254",
%0’'104300',
o’ 003202',

;2373

i
i

2319
2380

1
1

102]

108]
109]

=
=

o' 003247,

o' 003255,
%o'104307',

27-Mer-1985 15:33:05
T1-Jen-1983 08:19:20

SEQ 0367

VAX-11 Blis
0-579
USER#L:(AZTEC. CZRCFCIZREFCA, B16:3

Page

19
(9

F13
CZRCFCO RC25 FR END TEST
BLOCK TRANSFER TEST

ZRCFB4

0 Bt e et et o et et et et e e s e et e s o s s o s s s s o o o o s s B s e s s s o s s s s i o s s s s i ot s s s s s s

[+ ]

2381
2382
2383
2384
2385
2386

.Q.Q.....Q...l.0.0.!.'0!.0"..".t.l.l...'.lQc.'.a.o.o...l.-...‘.o.0.0.‘.0...‘.0.0..“.000.-.afl.c"..““““.0“

v03.0

[110]

%0'003176',

[111]
[112]
[113]

=
=
=

%0'104201',
%o0'003242',
%0'060002',

[115]
[116]
[117]
118]
[119]

=
=
=
=
=

%o'177740',
%o0'115007',
s%0'013115',
%o'115400',
%0'003210',

114]

120]

%o0'103207',

%0'106200',

[121]
[122]
123]
[124]

=
=
=
=

[126]

= %o’ 003204

[125]

'i§Z‘

[129]

%0'000012',
#0'003210',
%o'033050",

%0'003164',
%o'117400',

::;ossoso'.

= wo’'104307'.

130]
[131]

=
=

134]
[135]
[136]

[137]
Fgg,

=
=
=
=
B

%0'003201',
:g;loezgo;.

140]

+0'003201'

132]
[133]

[141]
142]
[143]
144]
[145]
[146]

=
=

=
=
=
=
=
=

%0'003176',
%0'060014°,

wo'103207',
%0'177740',

so'115007',
s%o'053155',
%o'104110',

»0'033137',
®0'003155',
%0'115401',
%0'104110',
%o’ 003202,
%o'104117',

(147]
148]
149]

=
=
=

151]

%o’'103207',

[153]
[154]
[155]

=
=
=

%0'106207',
%o’ 040000',
w0’'053155',

[157]
158]

=
=

wo’115400°,
%0'003241',

[150]

,152{

[136]

%o'103207',
%o'144000',
%o0'053155',

%o’'104117',
*104

]

%o’000000'
,

159]
[160]

=
=

w0’'106200°,
%o0’'000144",

[162]

#o'033121',

[161]

163]
[164]
[165]
166)

=
=
=
=

%0'003241,

%o'003164",
%o’104200',
%0'000106',
%0'003175',

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

SEQ 0368
P age
20
USER$1:[AZTEC.CZRCFC)ZRCFC4.B16;3
(9)

VAX-11 Bliss-16 V4,0-579

Cl3
CZRCFCO RC25S FR_END TEST
BLOCK TRANSFER TEST
%o' 104207’ ,
%o' 003175,
%o'104201°',
' 000005°
,
%o' 060022,
%o'060010',

223238

sP
it P
sP e e i e e e P
B et Bt et Bt ot et e ot ot e ot Bt ot ot e s s s e P P

2438
2439
2440
244}
2442

s e s e s s s s e s e

ZRCFB4
v03.0

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

SEQ 0369
Page
21
USER$1:[AZT C CZRCFC]ZRCFC4 B16;3
(9)
VAX-11 Blies-16 V4,0-5

H13
ZRCFR4

CZRCFCO RC25S FR END TEST

WRITE DATA TEST

v03.0

ssbttl

2494

2495

2496

2497
2498

o o s se s se o o s so s s s s o

2432
2493

e Bt et et e s et et et et ot et et s < e s e e o e s ot s e s i o

2490
2491

2488
2489

s s i s s s s s s

2485

2486
2487

27-Mar-1985 15:33:05
11-Jen-198S 08:19:20

'
global

'WRITE DATA TEST'

THIS TEST WAS REVISED

VER:C

:ggsgg%vgcwnlus.uoaol

(1
12
(3
(4

=
=
=
=

(S
-

%0'001470',

#0'000000',

=
-

y?
%0'000000',
%0:000000:,

=
=

%0'052123',
%0'033062',

. %0 da000n'.

151
'1a]
is]

[10]
1]

=
=

[19]
[20]
[21]
[22]

=
=
=
=

(23]

(24)

[25]

[26]
27,

(28]
[29]
[30]

[31]
[ 32
[33)

%0'104206',
%0°'003550°,

%0'022777',

%0'023005',
%0'104206',
%0'003550°,
%0'106200°,

%0'177777',

%0'012770',

%0'023043',

=
=

=
=
=

%0'003507',

%0'023030',

%0'104200',
%0'177777°,
%0'003507',

%0'114000',
#%0'003501',
%0'114000',

(34

%0'003477',

(36]

%0'003500',

[35]

%0'114000°,

[37]

=
=

#0'000010',

[40]

0023052’
,

(43 ]

(38,

[41]
(42]

[45]

=
=

%0'104200',

%0'023065',
%0'104200',

%0'177777',

%0'023461',

[46]

%0'060010',

(48]

%0'003506°,

[50]

#%0'000001"',

! THIS IS THE DM OVERLAY BYTE COUNT.

NEXT 3 WORDS = PROGRAM NAME (ASCII)
! PROGRAM NAME IS 'TEST26’
THIS IS THE PROGRAM VERSION

UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

+ 50000000
%0' 000000’ .
- o
'y

[16]
17]

(18]

! THIS IS THE DM PROGRAM BYTE COUNT.

%0’ 000000’,
%0'000000',
%0' 000000’ ,
%0'042524',

#%0'104201°',

! DM CODE STARTS HERE

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFCJZRCFC4.B16;3

SEQ_0370
Page

(10)

113
ZRCFR4

CZRCFCO RC25 FR END TEST
WRITE DATA TEST
B e s e s e s s Bt e et Pt ot et e et e s ot e s s s s et P et et e s s e et P s s s s s o s s e s s e s B B s s s s s o s P

~J
[

.I““.i““.l.‘....“..“.‘..".'.‘.Q.'.‘.....I.....I............“."..'.‘.‘...I““.l.....l.'.’“....““...'“

v03.0

51
lsai

153

%0'060023',

%0’ 000000,

%0'114000°',

%0’ 003504’ ,

r561

=S91
|60,
(61
i621
t634
64,

%0'023160°,
000000°
%0'023177',
%0'023137',
%0’ 023362,
%0°'023116',
%0'023177',
%0’ 023160 ,
000000,
%0’ 104300’

%0’ 003505.
%0’ 003503 |
%0' 023236’

%0
%0°'023177',
%0'023137,
%0'023362',
%0'023116',
%0'023177',
%0’ 023160,
000000’

27-Mer-1985 15:33:05

11-Jan-1985 08:19:20

SEQ 0371
P age 23
USER$1:[AZTEC.CZRCFCIZRCFC4.B16;3
(10)

VAX-I{ ?
1i 89-16 V4.,0-579

J13
CZRCFCO RC2S FR END TEST

ZRCFB4

WRITE DATA TEST
B Bt Bt e et et s e et e s et ot e s s e s o et it s ot e s i s o P e s s s e e s s s s s s s P e s e i s et s s e s ot e s P

v03.0

108)]

%0'104307',

110]
[111]
[112]

=
=
=

%0'104301°,
%0’ 003503,
%0'104302',

109]

[113]

[115]

[114]

%0'003506',

%0'003501',
%0'060015',

%0'104070°,

[116]
[117]
[118]
[119]
120]
[121]
[122]
123]

=
=
=
=
=
=
=
=

%0'003476',
%0'103207",
%0'177740',
%0'115007"
w%0'053115,
%0'106020°,
%0'003501°,

%0:053115:,

[125]

%0'003424°,

126] E
[127]
[128]

=
=
=

[131)

= %0'115407'.

134]

[132]
133]

=
=

141]

[143]

144)
(145]
[146]
[147]
[148]
149]
150]
[151]
[152]
[153]
[154]
[155]

%0'106207',
%0’ 000377

%0'033121"

o a0
a00s0h:
%0’ 060004

1
139]

140]

w0'114007',
%0'104301',
%0'003475°

%0'104010',

%0-004166,

= %0'114007"

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

%0' 003566,
%0'104201',
%0’'000400',

'1“'
[157]

160]

= 0104301

[162]
[163]

=
=

[161]

[164)

%0'104301',
%0'003474',
%0'100671',
%0’ 003566
%0'115407',
%0'106207',
%0'000377',
w0'033142',
%0'104207',

’

%0'104010',

%0'003277°,

%0’ 003566,

%0'114007°,
%0'104672',

27-Mar-1985 15:33:05

11-Jen-1985 08:19:20

VAX-11 Bliss-16 V4.0

5€9 0372

USER$1:[AZTEC. CZRCFC]ZRCFC4 B16;3

(10)

K13
CZRCFCO RC25 FR END TEST

s s s et s s s

WRITE DATA TEST

B 1t Bt Bt s s et Pt et P

s s s et s s s et et et s e ot s s e s o

s sP o o i s s s s e P

s s e s o se o o

2656

[+ ]
w

S5 S5 05 00 00 S0 S0 S5 00 G0 S0 B0 S0 G0 00 S0 S0 G0 S0 S0 G0 S0 G0 G0 S0 96 S0 S S8 G5 S B0 G0 SF S8 G0 S B6 G0 S G5 SF S

6 G6 S S¢ Ss G6 G S¢ S¢ Ss S Se s o

ZRCFR4
v03.0

[165]
[166]

=
=

%0'106012',
w%0'0S3174°,

[168]
[169]
[170]
[171]
[172]
[173]

=
=
=
=
=
=

%0'106207°,
%0'000377°,
%0'033163',
%0'000000"
,
%0'104020',
%0'003500',

[174)

[175]
[176)
[177]
[178]
[179]
[180)

182]
(183]

184]
[185]
[186]
[187]
(188)
189]
190)
191]
[192]
[193)
[194]
[195]
1%]

[198]

%0'104200',
%0'100000',
%0'003552',
%0'104200°,
%0'003566'
.
%0’ 003555,

%0'003556',

+ w0'003467".

=
=
=
=
=
=
=
=
=
=
=
=
-

[201]

202]

w0'104300°,
%0'003470°
%0'003557°,
%0'104300',
%0'003467"
0003564,
%0’ 104300
%0'003470',
%0'003565',
w0'104307°,
%0’ 003506
%0'104201°,
%0:003552:,

= %0'104070'

199]

[200]

%0'003424",

=
=
=
=
=
=

%0'003476°

w0'103207°,

%0'115007

%0'177740',

203]
[208]
[205)

=
=
=

[207]
208]
209]
[210]
[211]
[212]
213]

=
=
=
=
=
=
=

%0’ 114000’
%0'003502',
%0'104307°,
%0'003506',
%0'060014',
%0'104070',
%0'003476',

=
=

%0'177740',
®0'115007°,

[206]

[214)

[215]
[216]

%0'013235',
%0'003424',
0"
;

%0'023074,

%0'103207°,

217)

%0'053361‘,

[221)

%0'000002*,

218]
[219]
220]

=
=
=

%0'114002',
%0'104113',
%0'106613',

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 181 iss-16 V4,0-579
USER$ 1:(AZ7 EC.CZRCFC)ZRCFC4.B16;3

SEQP0373 -

.9.(10)

L19
CZRCFCO RCeS F ? END TEST
WRITE DATA TES
%0'053262',
%0' 106613,
%0’ 000004,

—

—O

O+

§ag%s ;

Wir= B wifow

3
g

3333883552822
5

%0'013306',
%0'106613',
000004°

—

(7]
w

3361

—OreO
ViU

M.‘HMHO‘“F‘F‘H.‘.‘P“.‘O‘O‘F”“.-‘.-.H.‘.-.b-..-..-‘.-'.-..-.HO-CO-OH.‘D‘MM.‘HMM“HU‘MF‘.‘MMMMO‘HH”

[

“““"“.‘.‘“.‘.‘...'...'..“.......'.......l.‘.........'.'.....‘.‘.....'...........'...‘.I.l.‘....““.i“.'.l

v03.0

ZRCFR4

#0'003467',

%0’ 105202,
000000

%0’103202.

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 18 1 i98-16 V4,0-579
USER4 1:( [ ZTEC.CZRCFC)ZRCFC4.B16;3

SEQP0374 28

.9.(10)

i
e
o OATR Tee]
Bl
$08
.0
RITE
o TEST
i
FRE
ZRC

;2713 1
i 2175 11
;2776
;2177 1
;2778 11
;2119
: 2780 1
;2781 1
: 27182 1
: 2183 1
:: 2785
2184 11
: ogner
2786 11
si
5787 1
i 3789 1
i 379 1
:i 2791
1
379 1
i 5798 1
;2794 1
: 2795 1
i 379 1
;2797 1

282]
384]
285
386]
387]
388
5981
390]
301]
1502]
1503]
1504]
393]
29%]
[39]
(98]
[399]
So0]
(301]
(302]
303]
1304]
[303]
306]

- %0 110605+:
- wr1i0608':
%0- 106308"|
-+ 50003473|
- w0 093361
+ 0" 000000|
- 2
A,
+-+ %0
104300|
%0 003566|
- 20" 003437 !
-- %0’
20" 104300
"
140000
+ %0-0035%|
- 50104200
w0104300',
-- w0
0003353
104300
- %0 003467 |
- %0035
. 0104300
- 40003470|
- %0'003557:
. w0 104300
- %0-003a67:.

308)

'312])
1%
3a]
3s]
3161
36)
318)
3s]
'320]
3]
1352]

-- %0’
%0 003506
©
04301
%0 060008
003552 |
-= %0'
- %0’
%0 104070 : .
-- %0
%0’103203
103207 .
%0 013493
115007 ¢°
.=- %0'
%0 003454 |

2199

;2801
: 280% 11

:;: 2804
2803 11
;: 2805
11
2806
;2807
: 2807 11
:;2809
2809 11
:: 2811
11
2812
: 2813 1

:::
::
;
:;
i

:
i

‘

2815 1
2816
1
2817
1
2818 11
2819
2820 1
2822 1
2823 1
2820

2828 1
2025 1
26

w0:108300:,

SN
1310] - %0’
%0’ 003565
003565 .!

'358)
355)
'356]
357]
1358]
329]
1359]
'331)
332
1335]
1338]
’

(335]

‘

%
=«= %0
%0
003471
!°
%0
106200
- 20"
%0' 80050000343y !
= %0- 013433 !
- %0 115400
- %0’ 603503

w0-013435:.

= %0'115800
- %0 003473"
=

‘

%0'114000°.

§1-5

-Mer-1985 13:33:9
15:33:05

§]-Mer-1903

119190

SEQ 0375
VAX-11

?1300-16

USERS1:[AZIEC. BC.CZRCFC
CznCFLIznG
IZRCFCA.B16:3
vV4.,0-57

A. o(10)

N13
F

TEST

.‘.‘h”“.‘.‘”.‘“.‘.‘.‘M.‘“.‘F‘Phh‘.‘.‘.‘“.‘”F‘“.‘MO‘O‘.‘D‘.‘.‘O‘.‘.‘.‘D‘.‘O‘.‘.‘N”MO‘”MMD‘.‘”M

Cm?‘,",:ccg.',‘fii’?:s, ...

EAEE

%0'000004'.
003501 .

[342]

%0'104200'
%0'001473'.

338]
[339]
340]
[341]

=
=«
«

[343]

'ss:;‘

[348]
[349]
350]
[351)
352]

=
=
=
«
«

[354)

hsss'

%0'003501",

. -o'tl)o a7

4
b
1346]

[347]

®0'053450',

003501 '

%0'013455°
.

#0'002744"
#0'117400°
%0'003501°,
w0'023461'.
%0'060010'.

= %0'104207°.

ngz'

[357]

%0'003476'.

:8;1«201;.

%0'060022'.

[358]
[359)
,gg‘

=
=
.

%0'000000'.,
%0'000000°
,
goooooo

362)
[363]

=+
=

%0'140000'.
%0°'000000',

:goooooo

3251

36!

,s’ga'
'3“#3‘

,sni'

000000 ,

‘

» %0’ 000000°,
o fizoooooo:'

= %0’ 000000" .

#m' * %0'000000°,
S
377)

#0'000000'.

378]

%0’ 000000
.

[380)
381]

=
«

®0'000000'
,
%0'000000°,

=
«
=+
+

S00as:*
®0'000000°,
®0'000000".
#0'000000".
#0'000000'.

379]

130a!
384]
385)
386]
387]

%0'000000"
.

'0‘000000'.

3'93

- :8:oooooo:'

392)

391]

=« %0’ 000000.
#0'000000"
.

27-Mer-1985 15:33:05

11-Jen-1985 08:19:20

VAX-11 Bliss-16 V4.0-579

USERS1:(AZTEC.CZRCFCIZRCFCA.B16:3

SEQ 0376

oo (16 )

Bl4
%0' 000000
%0' 000000

396
1397

e
e
e
e
"
®
®
O
e
®
°
8
®
®
&
®

402

1399

1400
401

1398

NA/®

1395

393
1394

258555

o oy e o
lad d ad d od d o d o ol ol d ol Sl S S

B9 G0 S0 S0 G0

S0 G0 G0 G0 S0 GF G0 G0 S0

G0 G0

G0 G

CZRCFCO RC25 FR END TEST
WRITE DATA TEST

27-Mer-1985 15:33:05
11-Jen-198S 08:19:20

VAX-11
USER#$1:

l 8-16 V4.0-579

AZ
EC CZRCFCIZRCFC4.816;3

SEOPO377 29

.9.(10)

Cl4
ZRCFR4

CZRCFCO RC25S FR END TEST
OFFSET TOLERANCE TEST
s P o o e s s s o s P o i o s s s P it P o P o P
s o e o (o P
s e P
B Bt et s e o e e et ot o s s B et s s e o s s P P

““fl““.‘.‘.‘.‘.‘“".‘.‘.‘.’..“...l...I.l.l...'.....‘.0.0.......'...........l“.........‘.’.....'.'““““fl

vV03.0

wsbttl

’

27-Mer-1985 15:33:05

11-Jen-1985 08:19:20

'OFFSET TOLERANCE TEST

lobal

DM_27 : vector (307, word)
= %0'001144',
! THIS gS
THE DH PROGRAM BYTE COUNT,

[0
[1
[2
3
4
S

=
*
=
=
=

%o'000000',
%0'000000',
o' 000000’ ,
%o0'042524',
%o'052123',

= o' 000000|

[12]

%o!000000",

[1S]

%o’ 000000',

[17]

%0'003377°,

[11]
1151

:izt
b

[16]

18]
[19]

%o'000000',

#o'126411',

%0'104206',

wo'060010',

[25]

%0’'003320',

[24]

%o'023305,

%0'104207',

[27)

%o’'000001"

[30]

®o'114000',

%0:108200:,

39]

[31]

32]

[33)
[34]
[35]

[36]

+ %or 000000.

=
=

wo'003321',

000040" ,
s%o’'003322',
s%o’102200',

%0'000001',

[37]
8]

=
-

[41]

- %o' 003321 |

43]
[44]
45
,‘6‘
47]

=
=
=
=
=

wo'000140',
%o'003322',
%o
#0'114000',
%0'003330',

[49]

#o'003332',

[42]

48]

[S0]
[51]
[52]

=
=
=

THIS IS THE PROGRAM VERSION
! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

t23i

[21]

::'000000'.

%0'022750',
%0'022756',
%0'022776',
#0'023040',

[22])

! NEXT 3 WORDS = PROGRAM vAHE (ASCII)
! PROGRAM NAME IS 'TEST27

0’00000,
;
8

=
=
=
=

[20]

! THIS IS THE DM OVERLAY BYTE COUNT.

%0'003320',
woxz‘ns'

%0'104200',

%o0’114000',

®o’'104300°,
w®o'003321',
%0'003336',

! DM CODE STARTS HERE

VAX-11 Blies-16 V4,0-579

USER#1:(AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ 0378
Page

(11)

ZRCFRA
v03.0

CZRCFCO_RC25 FR END TEST
OFFSET TOLERANCE TEST

;2962

[53)

%0'023170',

i
i

2%7
2%8

1
1

(58]
[S9]

=
=

w®o0'053021',
%0'115400',

[61]

2972
2973

1
1

63]
(64]

=
=

;2975

(66]

:
2980
;2981
;2982

1
1
1

[71]
[72]
73]

=
=
=

29%9

i
s
:

i
2976
;2977
;2978
i
2979

1
1
1
1

[60]

[62]
[65]

(67]
(68]
[69]
[70]

w%0'003330',

%0'001000',

=
=
=
=

%0'003330',
%o’ 033006,
%o0'023225',

wo’'115000

%0'003316',
%0'053030',
w%o’'115000',
%0'003317°,

wo'013037,
wo’'115400
%o'003332',

1.
1

[7a]
[75]

=
=

;2986
;2987

1
1

[77]
(78]

=
=

%0’'033002',
%0'003300',

2990

81]

wo’'114000'

;2992
;2993
:
2994

1
1
1

=
=
=

so’'114000'
%0'003325',
%o0’'115400',

:
i

2985

5389 1

;2991

[76]

[80]

[82]

;2995
i
29%

1
1

(86]
[87]

=
=

;2998
;2999
:
3000

1
1
1

(89]
(90]
(91]

=
=
=

;2997

;3001
3002
;3003
;3004
;3005
;3006
:

;3007

;
3008
;3009
;3010
;3011
;3012
;3013
;3014

;3015
;3016
;3017
;3018

1
1
1
1
1
1

1
1
1
1
1
1
1

1
1
1
1

[92]
93]
(94]
95
(96,
97

99
(100]
101]
102]
[103]
(104]
105]

[106]
[107]
(108]
109]

%o'106200',
o' 001000’

w%o’'003332',

-= w0'023170',
we0estio:

[83]
[(84]
[85]

VAX-11
Bliiss-16 V4,0-579
o
USER#1:(AZTEC.CZRCFCIZRCFCA.B16:3 @“o%(11

%o'106200',

;
2983
;2984

D14
27-Mer-1985 15:33:05
11-Jan-1985 08:19:20

=
=
=
=
=
=

=
=
=
=
=
=
=

=
=
=
=

wo'003324',

w®o'003324',
%o'107200',
%0’'000001’,

%0’'003325',
®o’'104300',
wo’'003324',

%0'003326',
w%0’'023100',
wo’'023225',
%0'115000',
w%o’'003316',
%0'053077',

%0'023170',

%o'104300',
%o’'003325',
%0’'003326',
%0'023100',
wc'023225',
#0'115000',
%o’'003316',

%0'053077¢,
%o'104300',
wo’'003324',
®o'003334’,

'
B
"
4
3
0
‘
2
0
1
‘
P
o
1
]
8
1
;‘: 0g308%2 | ti g‘ . o'lozg ;.
.
o
m
.
z
.
:
11
*1
i
22
; 30
\Z’ggFBQ
ord

CZRCFC
e

| .:o

OFFSETOTSEgglngE¥gS}EST

]

HHal s- sl
:10‘301!3.

385 1
¢ 302

'117

: 30303132 11|
:L5

]
7740" .
1720
%o 113007
(122] - %o’
e

:: 30303837 11
;3039 1
;
LRl1
:: 30304647 11
:;. 3050
30 1
3055 11
:;3055
3 30
: 3088 1
;30
3 306

r.
sa
os
[1[12278]] == wo
|
"
012
000
o'
!
39
[129] = #0'00
1 I ko' 104307
Bl 3
it
= “'103207or:!'.
[137) R
*i:g: P. eriuid:!
. 3
o 3143
[145) -= lo'gggi:?'.
1e6]
. : .
[
[1s] .- %o : 104117 3|
. : .
j

3028

s048

3068

119}

'0,104202'.

%o' 177740 |

1139

‘0'115007'.

,154‘

‘0’053161'.

P 3¢9 1 ieo] - “'o‘oooooo‘.
i 3071
6] - 5o s
§3 -8 5l B o' 000144
:

so7

,165
it

.
.

‘:.000144'0
‘003331'.
%o’ 033125,

3
0
0
8
Q
SE
p
9
7
5
0
,
C
4
R
V
v
Z
J
6
C
F
-1
C
R
OO
Z
:19:20 USER‘I-[: A'ZTEC.C FC4.B16;3 .9‘(123

11‘~’M°19g§ (1)3:23:05 VAX-11 Bli
El4

27-Mar-19

167]

[

e
W

[=]

lII'I.lI.Il-I.II..II'.lIIIllIl...Ill.ll.."l'.'l..l.ll...

O
w

[

B Bt 0 e et et s e Bt et s et et e e s Bt s s ot s s s s e P s s s e e s s i o s o s s i s s e s s s e s s e s s o s e o P

v03.0

%o’ 003300" ,
%o’ 100467" ,

%o’ 114000 ,
%o’ 003315 ,
%o’ 104200" ,

%o’ 003400,

Lo|

CZRCFCO_RC25 FR END TEST
OFFSET TOLERANCE TEST

ZRCFB4

W S5 B S5 S0 B0 B0 B0 B0 B0 S0 S0 B0 B B B S8 98 88 S8 e & B S0 80 S0 90 S0 S0 S0 S0 90 S0 9 S0 @ B G0 S0 S0 B0 G0 B0 S0 S S0 90 S0 B8 90 @ S @0 S0 9 9 o

-Mar-19

-Jen-19

nNo
own

—
O

O
aounm

o
v

F14
VAX-11 ?1ioo-16 v4,0-579
USER$1:[AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ 0381
Pege

Gl4
ZRCFR4

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST
s s s s s s s e s s s e

1224)
1225]
[226]
[227]

=
=
=
=

%o’
060002,
%o'103207,
%o0'177740',
%o'115007,

[230]

%o'003316',

[233]

%0'102207',

'
Y
[236]
[237]
[238]

=
=
=

%o'115400° 0!.
%o'003317',
%o'104267',

%o'000106"
.

533]

s s i s i so o s o
so e s s s s s o s e o
B et et s et et s ot Bt s s ot s et s s e ot s s s e o

“““....““.‘...O.‘...l'..‘.....‘.....l.'...l..QO...l.o.........l...l.....l.......0““...‘...‘...I“...O....“

v03.0

;

241]

[242]

- Wor003400:.
'

%o0'003333',

[245]

%o'104207'.

[249]

%o’ 060022",

[253]

%o'000000",

[246]

5331
53]

[257]

[258]
[259]
[260]
[261]

[262]

264]

= %or000000"|
%o'000000"|

=
=
=
=

[267]

[269]

[270]
[271]

%o'000000’,

%o’ 000000,
%o’ 000000’
,
%o’ 000000,
%o’ 000000,

%o’ 000000,

- %o000000

Eggzj
[268]

%o’ 003333,

%o’000000",

%o’000104",

o' 000000'
,

%o’ 000000’ ,

%o’ 000000’,

%o'000000";

5731+ %o 000000.
[274]

%o’ 000000" ,

2151

01000000,

[277]
[278]
279]

=
=
=

%o’ 000000"
,
%o’ 000000 ,
%o'000000"
,

]

[280]

000000' ,

%0'000000",

27-Mar-1985 15:33:05
11-Jan-1985 08:19:20

VAX-11 Bliss-16 V4,0-579

USER$1:(AZTEC.CZRCFC)ZRCFC4.816;3

S€Q 0382 age

(11)

H14
CZRCFCO_RC25 FR END TEST
OFFSET TOLERANCE TEST

ZRSFB‘

s s sP
s s s i s i it o
s i s ot s P
s s it s s o
O 1t et 1

3190
3191

vV03.0

(281]

[283]
[284]
(285]
[286]

=
=
=
=

'000000",
o' 000000,
%o'000000",
s%o'000000',

(288
[289]
(290]

=
=
=

[292]
[293]
298]
[295]
[296]
297]
(298]
[299]
(300]
[301]
(302]
[303)

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

*000000°,
o' 000000,
%o’ 000000’
,
%o'000000',
*000000°,
' 000000°.
o' 000000',
%o’ 000000"
,
%o’ 000000’
,
so'000000',
' 090000°,
%o0'000000’,
w%o’'000000",
wo'000000",
%o’ 000000,
' 000000",

[282]

[(287]

[291]

Porl
[305]
[306]

27-Mar-1985 15:33: 05
11-Jen-1985 08:19: 20

' 000000°,

%o'000000',

= %o’ 000000',
=

AR=
=

o1
A

s%o'120475

wo’000000'
);

end

eludom
ZRCFB4 CZRCFCO RC25 FR END TEST
/V03.0/

DM.09:: .

DM$CODE,
270

0
0

42524

52123
34460
0
-51367

RO ,

GBL

VAX-1 18 1 i98-16 V4,0-5
USER$ 1:( AZ TEC.CZR CFCJZRCFC4.B16;3

SE0P0383 38

.9.(11)

ZRCFR4

CZRCFCO_RC25 FR END TEST

V03.0

000050
000052
000054

’

OFFSET TOLERANCE TEST

104207
003032
104201

.WORD
.WORD
.WORD

103207
177740

.WORD
.WORD

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

012756
003003
114000
003052
104307
003032
104301
003033
104302
003034
104203
003052

.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

000124
000126
000130
000132
000134
000136
000140
000142
000144
000146
000150
000152
000154
000156
000160
000162
000164
000166
000170
000172
000174

177740
115007
013007
115400
003037
1063
00303
003037
032756
104200
000106
003040
003024
104207
003052
104201
125252
104302
003034
106271
053003

WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-40
-62771
13007
-62400
3037
-71500
3035
3037
32756
-73600
106
3040
3024
-73571
3052
-73577
-52526
-73476
3034
-71507
53003

000200
202
204
206
210
212
214
216
220
222
224
226
230

053015
104200
000104
003040
104207
003040
104201
000001
060022
060010
000000
000000
000000

.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
. WORD
.WORD
.WORD
. WORD
.WORD
WORD

53015
-73600
104
3040
-73571

000056
000062
000064

000120
000122

176

3
060023

115007

060020
103207

117402

.WORD
.WORD

.WORD

WORD
WORD

.WORD

-73571
3032
-73577

60023

-74571
-

-62771

12756
00
-64
3052
-73471
3032
-73477
3033
-73476
3034
-73575
3052

60020
-74571

-60376

-73577
60022
60010
O
O

114
27-Mar-1985 15:33:05

11-Jen-1985 08:19:20

VAX-11

Bliss-16_V

579

SEQ 0384

USER4$1:[AZTEC. CZRCFC]ZRCFC4 B16:3

9.(11)

A}
J14
vV03.0

CZRCFCO _RC25 FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jan-1985 08:19:20

DM.10:: :

ZRCFR4

VAX-11 Bli 88-16 V4,0-579
USER$1 :[AZ TEC.C ZRCFC)ZRCFC4.B16;3

S€q 0385

K14
CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

OCOO0OWOoOWO OCO0O0O00O0O0O0O0O0O0O000

ZRCFR4
v03.0

VAX-11 B li 98-16 V4,0-579
USER#$1:( AZTEC. CZRCFC]ZRCFC4 B16;:3
.

SEO 0386

(11)

L14
ZRCFR4
v03.0
000576
000600
000602

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST
104301
003041
104302

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20
.MORD
.WORD
.WORD
.WORD
.WORD
'WORD
.WORD
.WORD

-73477
3041
-73476
023
-73575
3044
60021
-74571

.WORD
.WORD
.WORD
.WORD

-62771
13012
-62400
3046

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.WORD

12
3046
32766
3023
-60374
13027
-72600
2
3040
-73500
3040
3044
2764
-73600
106
3045
3032
-73600
104
3045
-73571
3045
-73577
1
60022
60010
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

.WORD
.MORD
.WORD
.WORD
.HORD

0
0

VAX-11 Bliss-16 V4.0-579
USER#$1:[AZT C CZRCFC]ZRCFC4 B16;:3

SEQ 0387

Page

39
(11)

ZRCFR4

CZRCFCO_RC25 FR END TEST

v03.0

OFFSET

000760
000762
000764
000766
000770
000772
000774

000000
056247
000000
000622
000000
000000
000000

001002
001004
001006
001010
001012
001014
001016
001020
001022
001024
001026
001030
001032
001034
001036
001040
001042
001044
001046
001050
001052
001054

031061
000000
177411
000000
000000
000000
000000
000000
000000
000000
104206
002767
003004
000000
000000
000000
000000
000000
000000
000000
000000
000000

000776
001000

001056
001060
001062
001064
001066
001070
001072
001074
001076
1100
001102
1104
1106
1110
1112
1114
1116
1120
1122
1124
1126
1130
1132
1134
1136
1140

042524
052123

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000104
000106
000000
000000
000000
000000
000000
000000
000000
023016
023031

27-Mer-1985 15:33:05

TOLERANCE TEST

11-Jan-1985 08:19:20

DM.12::

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

O
56247
O
622
O
O
O

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
LWORD
. WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

31061
O
-367
O
O
O
O
O
O

.WORD
.WORD

.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD

42524
52123

-73572
2767

O
O
O
O
O
O
O
O
O
0O
O
O
O
O
O
O
O
O
0
O

0O
0
0
O
104
106
O

O
0O
O
0

O
23016
23031

VAX-11 Bl

0-579

USER#$1:(AZ C CZRCFC]ZRCFC4 816;3

SEO 0388

(11)

N14
CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

§335BEEaEaaaEas

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 18 1 iss-16 V4,0-579
USER$ 1:( A ZTEC.CZRCFC)ZRCFC4.B16;3

SEQ 0389
P

.9‘(11)

B15
CZRCFCO RC25 FR END TEST

27-Mer-1985 15:33:05

OFFSET TOLERANCE TEST

11-Jen-1985 08:19:20

.WORD
.WORD

6002
-74571

.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-62771
13113
-62400
3003
-71600
12
3003

.WORD

~AD
¥JRD

WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD

33067

3203
-73515

-73516
-73517
-73511
©
-73571
2775
-73577
1
60023
0
-73500
2770
2777
-73500
2771
-73477
2772
-73600
-1
3002
23063
-72600
2
2777
-63000
2777
53152
-62400

-60377
53141
O
-73500
2770
2777
-73500
2771
-73477
2772
-64000
3002

VAX-11 Bliss-16 V4,0-579

USER#1:[AZTEC.CZRCFCIZRCFC4.B16;3

SEQ 0390

'9‘“1)

C15
ZRCFR4

CZRCFCO _RC25 FR END TEST

vV03.0

001506
001510

27-Mer-1985 15:33:05

OFFSET TOLERANCE TEST
105200
000002

11-Jen-1985 08:19:20

.WOR
.WOR

-72600

001512
001514
001516
1520
001522

002777
115000
002777
053200
115400

.WORD
.WORD
.WORD
.WORD
.WORD

2777
-63000
2777
53200
-62400

001526
001530

117401
053167

.WORD
.WORD

-60377
53167

001534
001536
001540
001542
001544
001546
001550
001552
001554

104300
002774
002776
023215
060010
104300
002773
002776
023215

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-73500
2774
2776
23215
60010

001560
001562
001564

104207
002776
104201

.WORD
.WORD
.WORD

-73571
776
-73577

001570
001572
001574
001576

060022
103207
177740
115007

.WORGC =
.WORD
.WORD .WORD

60022
-74571
-40
-62771

001524
001532

001556

001

001600
001602
001604
001606
001610
001612
001614
001616

001622
001624
001626
1630

1632

1634
1636
1640
1642
1644
1646
1650
1652
1654
1656
1660
1662
1664
1666

.WORD
.WORD

.WORD

013227
060010
000000

165572

000000
000320
000000

000000

DM.13::

.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

-73500

2773
2776
232'5

13227
60010

-12206
320

042524
052123
031461
000000

.WORD
.WORD
.WORD
. WORD

42524
52123
31461

000000
000000
000000
000000
000000
000000
000000
104206
003065
002743
104200
000104
003045

.HORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

O
O
O
O
O
O

126411

104207

.WORD

WORD

-51367

-73572
3065
2743
-73600

3045
-73571

VAX-11 Bliss-16 V4.0-579

USER$1:[AZTEC.CZRCFC)ZRCFC4.816;3

SEQ 0391

'9‘(1“

D15

708.0°
001670
001672
001674
001676
001700

ZRCFCO_RC25S FR END TEST
FSET

TOLERANCE TEST

27-Mar-198
11-Jen-198

65:33:05

8:19:20

VAX-

USER

1 Bliss-16 V4,0-579
R
e it ca 16,3it
P29Y4

ZRCFB4

CZRCFCO RC25 FR END TEST

v03.0

27-Mer-1985 15:33:05

OFFSET TOLERANCE TEST

11-Jen-1985 08:19:20

002743
104200
000106
003045
003033
000104

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
113606
000000

000466
000010
000000
000000
042524

052123
034461
000000
126411
000000
000000
000000
000000
000000
000000
000000
104206
003151
104207
003127
104201
000001
060023
114000
003134
104200

000040
003135
102200
000001
003127
012766

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

DM.19::

.WORD
.WORD
WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

2743
-73600
1
3045
3033
104

O
O
O
O
O
O
O
O
O
O
0
O
O
O
0
O
O
-64172
O

466
O
O
O
42524

52123
34461

-51367
O
O
O
O
O
O

-73572
315
-73571
3127
-73577
1
60023
-64000
3134
-73600

40
3135
-75600
1
3127
12766

VAX-11 Bliss-16 _V4,0-579

- 0393 45

USER$1:[AZTEC.CZRCFC)ZRCFC4.816;3

(11)

F15
ZRCFB4
v03.0

CZRCFCO RC2S FR END TEST
OFFSET TOLERANCE TEST

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20
.WORD
.WORD

-73600
100

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

3134
-73600
140
3135
-73500
3134
3130

.WORD
.WORD
.WORD
.WORD
.WORD

3131
27006
-,3500
3135
3130

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

3131
23006
-73600
104
3126
3047
-73600
12
3132
-73471
3127
-73477
3130
-73476
3131
60015
-74571

.WORD
.WORD
.WORD

-62771
53036
-74577

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

3130
53036
-71476
3131
53036
23055
O
-60400
3132
-63000
3132
73044
3011
-73600
106

WORD

3126

-73571

VAX-11 Bliss-16 V4.,0-579
USER$1: [AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ 0394

Page

46
(11)

ZRCFB4

G15

CZRCFCO RC25 FR END TEST

v03.0

27-Mer-1985 15:33:05

OFFSET TOLERANCE TEST
104201
000005
060022
060010
114000
003133
104307
003127
060014
103207
177740
115007
053112
104110
003136
102200
0
003130
053101
0
003136
033121
003112
106200
000437

11-Jen-1985 08:19:20

.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD_
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-73577
5
60022
60010
-64
3133
-73471
3127
60014
-74571
-62771
53112
-73670
3136
-75600
40
3130
53101
-71600
40
3136

33121
3112
-71600
437
3136
33121
3112
-71600

003136
033121
003112
106200
000377
003136
073121
115400
003133
106200

.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

003133
033057
003122

.WORD
.WORD
.WORD

3133
33057
3122

104200
000106
003126
003047
000000
000000

.WORD
.WORD
.WORD
.WORD
.WORD
WORD

-73600
106
3126
3047
O
O

000000
000000
000000

WORD
WORD
WORD

000024

000000
000000
000000
000000
000000
000000
000000

.WORD

WORD
WORD
WORD
WORD
WORD
WORD
WORD

3136
73121
-62400
3133
-71600

O
O
O
O
O
O
O
O
O
O

VAX-11 Bliss-16 V4.0-579

USER$1:(AZ EC.CZRCFC]ZRCFC4.B16;3

SEQ

039

QPogcs 47

(11)

H15

DM.21:: :

27-Mer-1985 15:33:05
11-Jan-1985 08:19:20

[

v03.0

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

OOOO‘O:OOOOOOOO

ZRCFB4

VAX-1 18 1 i9s-1 6_V4.0-579
USER$ 1:( A ZTEC. CZRCFC)ZRCFC4.B16;3

s€q 0396
a

*a 1)

115
ZRCFR4

v03.0

002762
002764
002766
002770
002772
002774
002776

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 18 1 is9-16 V4,0-579
USER# 1:(
:[(A ZTEC.CZRCFC)ZRCFC4.816;:3

SEOP0397 o

090(11)

J15
ZRCFR4

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

vV03.0

00320
033137
104110
003202

104117
103207

053155
104117

103207

106207
040000
053155
000000
115400
003241
106200
000144

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

- 1 1 8 liss- 16 _v4.,0-579
VAX
AZTEC. CZRCFC]ZRCFC4 816;3
USER 4 r: (AZ

SEQP0398 %0

.9.(11)

CZRCFCO_RC25 FR END TEST
OFFSET TOLERANCE TEST

ZRCFB4

OCOO0O0O0O0O0O0O0O0O0O0O0O0CO0O0O0O0O0O0O0O0O0O0O0O00 ! OO0O

v03.0

VAX-11
USER$1:

042524

HOOOr
o

001470

—

O§O°O°°

40000

2524

Thz EC .CZRCFC JZRCFC4.816;3
9 .- 16_v4.0 -579
T

5€0,0399

oaun

L15
ZRCFB4

CZRCFCO RC25 FR END TEST

v03.0

27-Mar-1985 15:33:05

OFFSET TOLERANCE TEST

11-Jen-1985 08:19:20

003510
003512
003514
003516
003520
003522
003524
003526
003530
003532
003534
003536
003540
003542
003544
003546
003550
003552
003554
003556
003560
003562
003564

052123
033062
000000
126411
000000
000000
000000
000000
000000
000000
000000
104206
003550
022777
023005
104206
003550
1
177777
003507
012770
023030
023043

003570
003572
003574
003576
003600

177777
003507
114000
003501
114000

WORD
.WORD
.WORD
.WORD
.WORD

003612
003614
003616
003620
003622
003628
003626
3630
003632
3634
3636
3640
3642
3644
3646
3650
3652
3654

000010
003473
023052
023065
104200
177777
003476
023461
060010
104207
003506
104201
000001
060023
000000
114000
003504
104200

.WORD
WORD
.WORD
.WORD
'WORD
JMORD
'WORD
JWORD
.HORD
'WORD
-WORD
MORD
-WORD
.WORD
-WORD
WORD
WORD
"MORD

3660
3662
3664
3666
3670

003505
102200
000001
003506
013027

.WORD
WORD
-WORD
.MORD
.WORD

003602
003604
003606
003610

3656

04200

003477
114000
003500
104200

.MORD
.WORD
.WORD
.WORD
JWORD
\WORD
.WORD
.WORD
WORD
.WORD
.WORD
'WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD

"WORD

.WORD
.WORD
'WORD
WORD

'WORD

52123
33062
O
-51367
O
O
0
0
O
0
-73572
3550
22777
23005
-73572
3550
-71600
3507
12770
23030
23043

-73600

-1
3507
-64
3501
-64000
3477
-64
3500

-73600

3473
23052
23065

-73600
-1
3476
23461
60010

-73571

-73577

60023
-64
3504
-73600

3505
-75600

3506
13027

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFCIZRCFC4.B16:3

SEQ voo

o (11)

CZRCFCO RC25 FR END TEST

27-Mer-1985 15:33:05

OFFSET TOLERANCE TEST

11-Jen-1985 08:19:20

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

-73600
100
3504
-73600
140
3505
-73600
-34000
3472
O
-73500
3
3503
23236
23177
23116
23362
23137
23177
23160
O
23177
23137
23362
23116
23177
23160
O
-73500
3505
3503
23236
23177
23116
23362
23137
23177
23160

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

23177
23137
23362
23116
23177
23160
0
-7347)
3506
-73477
3503

.WORD
.WORD
.WORD
.WORD

3501
60015
-73710
3476

.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD

.WORD
.WORD
.WORD
.WORD

VAX-11 Blies-16 V4.0-579

USER$1:[AZTEC.CZRCFCIZRCFC4.B16;3

SEO 0401

(11)

N15
CZRCFCO_RC2S

FR END TEST
OFFSEQ TOLERANCE
TEST

27-Mer-1985 15:33:05

11-Jen-1985 08:19:20

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-62771
53115
-71760
350
53115
O
3424
-63771

.WORD

3475

.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.HORD

3
-62371
-71571
377
33121
-73571
3
-73577
400

-73770
4166
O
-63771
-73477
3474

.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD

3
-62371
-71571
377
33142
-73571
3566
-73577
400

.WORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
.WORD
.WORD

4166
0
-73477
3477
-63771
-73106
566
-71766
53174
-62371
7%571
37
33163
0O

.WORD
'MORD

3500
3424
73600

ZRCFRa

V0§.0

VAX-11

Bliss-16

V4,0-579

USER41:?AZ
TeC.CZ CFCIZRCFC4.816;3

.9‘(1?;

Bl6
ZRCFB4

v03.0

CZRCFCO_RC25 FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jen-198S 08:19:20

VAX-1 18 li 99-16 V4,0-579
USERO :(AZ TEC.CZRCFCJZRCFC4.B16;3

SEQ 0403
Page

(11)

Cl6

ZRCFBR4
v03.0

27-Mer-1985 1 5:33:05
s 3:05

CZRCFCO RC2S FR END TEST

OFFSET

TOLERANCE TEST

11-Jan-1985 0

13833

§3276

.3838

871165

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

13306
-73165
2
-71165
4
53361
-71165
6
53361
-62776
53316
-73750
3467
-62377
-73576
-1
3253
-73750
3470
-73500
3467
3502
-74600

.WORD

3502

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

1
3467
53361
-75600
10000
3470
53361
-71500
3472
3470
53361
-73476
3467
-72576
O
-74576
37
-67176
-67176
-67176
-67176
-67176
-71476
3473
53361
O

8:19:20

VAX-11 Bliss-16
8V4.0 -579
e)
USER$1:[
AZTEC.CZRCFC)ZRCFC4.B16;3
Bas
a1
-

ZRCFBA4

CZRCFCO RC25 FR END TEST

v03.0

004602
004604

D16
27-Mar-1985 15:33:05

OFFSET TOLERANCE TEST

MORD
'WORD

-73500
3566

104200
140000
003552
104200

.WORD
'WORD
.WORD
.WORD

-73600
-400
3552
-73600

003555
104300

.WORD
WORD

3555
-73500

003556
104300
003470
003557
104300
003467
003564
104300

MORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

3556
-73500
3470
3557
-73500
3467
3564
-73500

004652
004654
004656
004660
004662
004664
004666
004670
004672
004674
004676
004700
004702

003565
104307
003506
104201
003552
060003
104070
003476
103207
177740
115007
013423
003424

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

3565
-73471

004706
004710
004712
004714

115400
003471
106200
000100

WORD
WORD
WORD
-WORD

004610
004612
004614
004616
004622
004624
004630
004632
004634
004636
004640
004642
004644
004646

104300
003566

11-Jan-1985 08:19:20

003477

.WORD

003566

WORD

003467

WORD

004650 003470

004704
004716
004720
004722
004724
004726
004730

003471
013433
002744
115400
003501
115400

732

003473

736
780
782
744
746
750
752
754

003471
106200

004734

756
760

762

114000

003501

053450
104200

001473
003501
106200
001477

003501

WORD

;

3477

3566

3467

-73577
3552
60003
-73710
347
-74571
-62771
13423
3424

WORD

'WORD
.MORD
‘WORD
.WORD
.WORD
WORD

3471
13433
2744
-62400
3501
-62400

WORD

.WORD

-62400
3471
-71600

3473

-64000

‘WORD
‘WORD
- WORD
.WORD
.WORD
‘WORD
‘WORD
WORD

1473
3501

WORD

3501

WORD
WORD

3471
-71600
3501

53450
-73600

-71600
1477

VAX-11 Bliss-16 V4,0-579

USER$1:([AZTEC.CZRCFCIZRCFC4.B16;3

SEQ_04

Poge” 57
(11)

E16
ZRCFB4
vV03.0

27-Mar-1985 15:33:05

11-Jen-198S 08:19:20

013455
002744

117400
003501

-1

OCOO0O0O0OCO00O0O00O00O00O0O0O0COO0O0O0O0O0OO0O0O0O0OO0O0O0OO000

004764
004766

CZRCFCO _RC25 FR END TEST
OFFSET TOLERANCE TEST

SEO 0406
VAX-1 18 li 8s-16 V4,0-579
58
USER$ 1:( AZTEC.CZRCFCJZRCFC4.B16;3

(11)

ZRCFB4

v03.0

CZRCFCO RC2S FR END TEST

27-Mer-1985 15:33:05

OFFSET TOLERANCE TEST

11-Jen-1985 08:19:20

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
DM.27:: .WORD
.WORD
.WORD
LWORD
LWORD
LWORD
LWORD
LWORD
.WORD
LHORD
LWORD
LWMORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
O
O
O
44552
O
1144
O
O
O
42524
S2123
33462
O
-S51367
O
O
O
O
O
O
O
-73572
3377
22750
22756
22776
23040
23305
60010
-73571
3320
-73577
1
60023
O
-64000
3321

.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
.WORD
LWORD
.WORD

40
3322
-75600
1
3320
12775
-73600
100
3321
-73600
140
3322
O
-64000

VAX-11 Bliss-16 V4,0-579

USER$1:[AZTEC.CZRCFC)ZNCFC4.B16;3

SEQ 0407

Page

(11)

G1l6

—

ZR CFR4
v03.0

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 18Bli
USER$

8s-16 V4.0

1:(AZTEC. CZRCFC]ZRCFC4 816;3

SEQ 0406 60
(11)

H16
ZRCFB4

vV03.0

005512
005514
005516
005520

CZRCFCO RC25 FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jen-1985 08.19:20

SEQ_0409
p
VAX-1 18 1 iss-16 V4,0-579
61
USER$ 1:( A ZTEC.CZRCFCJZRCFC4.816;3

gg.(11)

116
ZRCFR4
vV03.0

CZRCFCO RC2S FR END TEST
OFFSET TOLERANCE TEST

27-Mar-1985 15:33:05
11-Jen-1985 08:19:20

VAX-1 18 1 iss-16 V4,0-579
USER$ 1:( 4 ZTEC.CZRCFC)ZRCFC4.B16;3

SEOP0410 62

090(11)

J16
ZRCFB4

v03.0

CZRCFCO_RC25 FR END TEST

27-Mer-1985 15:33:05
11-Jan-1985 08:19:20

OFFSET TOLERANCE TEST

ooon

006056
006060

OCO0OO0O0O0O00O—0O00 OCOO0O0O0O0O0O0O0CO

-40000

VAX-1 18l iss-16 V4, 0-579
USER$ 1:(AZ TEC.CZRCF CJZRCFC4.B16;3

SEOPOCII 63

.9.(11)

K16
ZRCFB4
v03.0
006240
006242
006244
006246
006250
006252
006254
006256
006260
006262
006264
006266
006270
006272
006274
006276
006300
006302
006304
006306
006310
006312
006314
006316
006320
006322
006324
006326
006330
006332
006334

CZRCFCO RC2S FR END TEST
OFFSET TOLERANCE TEST
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
120475

LWORD
.WORD
WORD
WORD
LWORD
LWORD
LWORD
LWORD
LWORD
.WORD
.WORD
.WORD
LWORD
LWORD
.WORD
LHORD
.WORD
.WORD
LWORD
LMORD
.WORD
LWORD
L.WORD
LWORD
L.WORD
LMORD
LWORD
LWORD
LWORD
.WORD
L.WORD

Psect Name
DM$CODE

;

3
;

VAX-11 Bl igs-16 V4.0 579
USER$1:(AZ TEC.CZRCFC JZRCFC4.816;3

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
-57303
O

PSECT SUMMARY

3
:
s

27-Mer-1985 15:33:05
11-Jen-1985 08:19:20

Words
1647

Attributes
N, 0 ,

GBL,

REL,

CON

Librery Stetistics

File

1k e e AT

D G g

USER$1:[AZTEC.CZRCFCJAZTECO.L16;2

O,L Symbols

Toteal

Loaded

Percent

485

COMMAND QUALIFIERS

Pages

Processing

00:00.2

Mapped

Time

SEQ 0412
P age
64

(11)

L16
ZRCFBR4

CZRCFCO RC2S FR END TEST

v03.0

®0

OFFSET TOLERANCE TEST

BLISS/PDP11/LIST ZRCFC4.B16/7EN:NOEIS
Size:

Run Time:

0 code + 1647 data words
03:08.2

03:20.4
Elapsed Time:
Lines/CPU Min:
1026
Lexemes/CPU-Min: 20841
Memory

Used:

442 pages

Compilation Complete

27-Mar-1985 15:33:05

11-Jen-1985 08:19:20

VAX-11 Bliss-16 V4,0-57

USER$1:[AZTEC.CZRCFC)ZRCFC4.B16;3

SEQ 0413

Page

(11)

[+
1V}

-Mer-19
-Jen-19

VAX-11
USER$1:

Thz

MODULE ZRCFBS =
BEGIN

0001
0002

—_——

ZRCFRS

TMTM
v

M16
88-1 6 V4 0-579
TEC.CZRCF
c
CJZRCFCS.B16;1

SEQ 0414

Page

(1)

Bl
ZRCFBS

;
;.
:
:
:
3

LASTAD AND SETULP

0003
0004
0005
0006
0007
1496

1
1
1

27-Mer-1985 15:36:31
11-Jen-198S 08:19:21

LIBRARY

;.
;.

1499
1500

)
2

#SBTTL 'LAST ADDRESS AND SETUP SECTION'
LASTAD;

1502

ENDSETUP;

1501 2

'AZTECO';

BGNSETU’ (0);

.TITLE

000000

000002

LPSECT

000000

TSFREE

000000

TS$FREE:: .WORD

000004 '
000000

LSLAST==
T$PTHV==

000207

$END.LINK::

LHORD

1503
1504
1505

1
O

1 word,

Routine Base:

0 words

1497

$XYZ$ « 0006

END
ELUDOM

PSECT SUMMARY

Psect Neme

Words

;
3

<<TSFREE-<BL$LAS+4>>/2>

BLSLAS-4
0

RTS

.SOfiL $END.LINK LAST ADDRESS AND SETUP SECTION

; Maximum stack depth per invocation:

;

#XYZ$,

BLSLAS::.WORD

; Routine Size:

:
:
;

ZRCFBS LASTAD AND SETUP

000004’

000000C

000004

Attributes

Library Statistics

File

s (2)

REQUIRE 'BLSMAC.REQ';

STITLE 'LASTAD AND SETUP'
!
!

i:gz

SEOPOMS

VAX-11 Bli 98-16
579
USER$1:(AZ TEC. CZRCFC)ZRCFCS B816;1

Rl T S

USER$1:[AZTEC.CZRCFC)AZTECO.L16;2

L T T e Symbols -------Totel

Loaded

Percent

485

Pages

Processing

00:00.3

Mapped
.

Time

Cl
ZRCFBS

LASTAD AND SETUP
LAST ADDRESS AND SETUP SECTION

COMMAND QUALIFIERS

®0

®¢

BLISS/PDP11/LIST ZRCFCS.B16/EN:NOEIS

£l

Time:

Lines/CPU Min:

a1 Sememotens
00:20.3

47 2

Lexemes/CPU-Min: 24031
Memory Used:
95 pages

Co-piI-tion Complete

27-Mar-1985 15:36:31
11-Jen-1985 08:19:21

VAX-11 Bliss-16 V4,0-579

USER$1: [AZTEC.CZRCFC)ZRCFCS.B16:1

(2)