Digital PDFs

AH-T267A-MC

October 1983

344 pages

Original

15MB

view download

OCR Version

13MB

view download

Document:	CZRCDA0 RC25 RC25 DISK EXERCISER OCT 1983 bw
Order Number:	AH-T267A-MC
Revision:	000
Pages:	344
Original Filename:	CZRCDA0__RC25__RC25_DISK_EXERCISER__AH-T267A-MC__OCT_1983_bw.pdf

OCR Text

AH-T267A-MC

o i3

ey Efififi.’;fif?‘??? : Emm-:,1,&.5,,2,,,&'%&&@@BE

Jicas Di3RchAG o0k

CHE Bo s e
eG
-

ocT

SE@ 0001
X(

IDENTIFICATION
PRODUCT CODE:

AC-T266A-M(C

PRODUCT NAME:

CZRCDAO RC25 DISK EXERCISER

PRODUCT DATE:

JuLY 13, 1983

MAINTAINER:

SMALL STORAGE SYSTEMS DIAGNOSTICS

AUTHOR:

JAMES S. DOUCETTE

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A SINGLE
COMPUTER SYSTEM AND MAY BE (OPIED ONLY WITH THE INCLUSION OF THE
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON
EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE
;E::?Q lng%E TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
éggpg:Rg%%N NOT BE CONSTRUED AS A COMMITMENT B8Y DIGITAL EQUIPMENT

DEC ASSUMES

RESPONSIBILITY

FOR

THE USE OR

RELIABILITY OF ITS

SOF TWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEL.

SEQ 0902

PERFORMANCE AND PROGRESS REPCRTS

DEVICE INFORMATION TABLES

b b b od ocd b

[]

o«

WWW

[]

NOWVSBWNN—=O

NONONMNNNININ

MN=O
O

ASSUMPTIONS

ERROR INFORMATION

[

SYSTEM REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
OPERATING INSTRUCTIONS

SENERAL INFORMATION

PROGRAM ABSTRACT

WVHWLV=0

TABLE OF CONTENTS

6.0

COMMANDS
SWITCHES
FLAGS

HARDWARE QUESTIONS
SOF TWARE QUESTIONS

EXTENDED P-~TABLE DIALOGUE
QUICK STARTUP PROCEDURE

TYPES OF ERROR MESSAGES

SPECIFIC ERROR MESSAGES

SUBTEST SUMMARIES

APPENDIX A - DATA PATTERNS
APPENDIX B = GLOSSARY

SEQ 0003
1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

.HE RC2S DISK EXERCISER IS DESIGNED TO VERIFY THE INTEGRITY OF THE
DRIVE(S) UNDER TEST, AND TO DETECT FAULTS AT THE FUNCTIONAL LEVEL ONLY.
UNDER THE MULTI-DRIVE SUBTEST, THE PROGRAM SHOULD GIVE A CLEAR
INDICATION AS TO HOW AN RC25 DRIVE WILL FUNCTION EITHER ALONE OR WITH
OTHER RC2S ORIVES UNJER STRESSFUL OPERATING SYSTEM CONDITIONS. THESE
CONDITJOINS ARE CREATED BY ISSUING A HEAVY LOAD OF MSCP 1/0 COMMANDS TO
ALL ON_INE UNITS. THE USER CAN CONTROL MANY OF THE 1/0 COMMAND
PARAMETFRS THROUGH THE HARDWARE AND SOF TWARE QUESTIONS, INCLUDING
FUNCTIO. (WRITE-ONLY, READ-ONLY, WRITES AND READS, WRITE-COMPARES,
READ-COMPARES), DISK BLOCK SELECTION (RANDOM VS. SEQUENTIAL), TRACK
NUMBER LIMITS, AND THE SELECTION OF DATA PATTERNS. IN ADDITION, THE
USER CAN CHOOSE INSTEAD TO RUN THE DM EXERCISER SUBTEST. THIS SUBTEST
CONSISTS OF THE ROM-RESIDENT FRONT PANEL EXERCISER RUNNING IN THE DM
(DIAGNOSTIC MACHINE) UNDER HOST CONTROL. SEE SECTION 6.0 FOR MORE
INFORMATION ON EACH EXERCISER SUBTEST.

THIS EXERCISER CAN TEST UP TO & CONTROLLERS (4 DIFFERENT IP ADDRESSES),
EACH CONTROLLER HAVING UP TO 2 DRIVES, AND EACH DRIVE WITH 2 PLATTERS.
THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME
SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE
TO THE OPERATOR AND TO THE SOF TWARE ENVIRONMENT. THIS PROGRAM (AN BE
USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE
DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL.

}n?gEoéguaEg$IEF DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF
1.2

SYSTEM REQUIREMENTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RC25 DISK EXERCISER:
+ PDP-11

CPU

* 28K WORDS OF MEMORY (MEMORY ABOVE 28K, IF AVAILABLE, WILL BE USED FOR
DATA TRANSFERS)

* FROM 1 TO 4 RC25 CONTROLLERS WITH UP TO 2 DRIVES PER CONTROLLER AND
EXACTLY 2 PLATTERS PER DRIVE (1.E., A REMOVABLE CARTRIDGE MUST
?SEP$E§$?T IN EACH DRIVE, ALTHOUGH IT NEED NOT PARTICIPATE IN
+ XXDP+ MEDIA DEVICE (1.E., RKO5, RLO2)

+ «W11=-L OR KW11-P CLOCK
* CONSOLE TERMINAL

1.3

RECATED DOCUMENTS AND STANDARDS

« CHQUS - XXDP+ USER'S MANUAL

« UNIBUS/Q-BUS STORAGE SYSTEMS PORT (UQSSP), V1.5
« MASS STORAGE COMMUNICATION PROTOCOL (MSCP),

vi.2

« DIAGNOSTIC AND UTILITIES PROTOCOL (DUP), v0.S

« FRONT PANEL FXERCISER DIAGNOSTIC SPECIFICATION, REV 1.2
« RC2S AZTEC ENGINEERING SPECIFICATION, REV S

SEQ 0004

1.4

DIAGNOSTIC HIERARCHY PREREQUISITES

ALL RC2S DRIVE=UNITS TO BE EXERCISED BY THIS PROGRAM MUST HAVE BEEN
SUCCESSFULLY VERIFIED BY THE RC25 AZTEC FRONT-END / HOST DIAGNOSTIC.
THE FRONT-END / HOST DIAGNOSTIC REQUIRES THAT THE BUS, HOST PROCESSOR,
MEMORY, SYSTEM CLOCK AND CONSOLE TERMINAL ARE ALL FUNCTIONING PROPERLY.
1.5

ASSUMPTIONS

* RE"DVAE&ERE??ESIDGE IS PRESENT IN ALL RC25 DRIVE-UNITS TO BE

* ALL RC2S DRIVE=UNITS HAVE BEEN SUCCESSFULLY SPUN-UP
+ ALL RC25 CONTROLLERS WILL INTERRUPT THE HOST AT BR LEVEL 5 OR LESS.
2.0

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES.
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS).
2.1

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES
(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY BRIEF
DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS.
COMMAND

EFFECT

START
RESTART

CONTINUE

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (BY “C)

EXIT
ADD

RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

DROP
PRINT

DEACTIVATE A UNIT
PRINT STATISTICAL INFORMATION (IF IMPLEMENTED
BY THE DIAGNOSTIC = SECTION 4.0)
'YPE A LIST OF ALL DEVICE INFORMATION

PROCEED

DISPLAY

FLAGS
ZFLAGS

CONTINUE FROM AN ERROR HALT

CONSIDERED TO BE ACTIVE AT START TIME)

TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)
CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE °'STA'* INSTEAD OF °''START''.

SO YOU MAY,

FOR THE RC25 DISK EXERCISER, THE START, RESTART, AND CONTINUE COMMANDS
SEEBSRM SIMILAR FUNCTIONS. THE DIFFERENCES ARE SUMMARIZED IN THE TABLE

START
ALLOW CHANGES TO HARDWARE
CONF IGURATION

RESTART

CONTINUE

CLEAR ELAPSED TIME OF EXERCISER
10 00:00:00

SAVE STATISTICS ACCUMULATED

gxggNG THE LAST INCOMPLETE

RESET THE COMMAND REFERENCE

NUMBER USED IN MSCP COMMANDS

IF SEQUENTIAL LBN MODE, RESET

THE STARTING BLOCK NUMBER USED
IN 1/0 OPERATIONS
2.2

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED 70 MODIFY SUPERVISOR
OPERATION. THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF
E:EHLEGAL SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED 8Y 'DDDDD''.
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE TESTS SPECIFIED IN THE LIST.

/PASS :DDDDD
/FLAGS:FLGS

EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPEC%E%;?OZLSGg. FLAGS ARE DESCRIBED IN

/EOP:DDDDD

REPORT END-OF-PASS MESSAGE AFTER EVERY DDDDD
(DDDDD = 1 TO 64000)
PASSES ONLY.
UNITS SPECIFIED IN THE
THOSE
ONLY
TEST/ADD/DROP

JUNITS:LIST

LIST IS A STRING OF TEST NUMBERS, FOR
EXAMPLE = /TESTS:1:5:7-10. THIS LIST
WILL CAUSE TESTS 1,5,7,8,9,10 TO BE
RUN.

ALL OTHER TESTS WILL NOT BE RUN.

LIST. LIST EXAMPLE = /UNITS:0:5:1G-12
USE UNITS 0,5,10,11,12.

EXAMPLE OF SWITCH USAGE:

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

THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END-OF-PASS

MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A SWITCH CAN BE
RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, FOR EXAMPLE, TYPE
“/TES:1-5"" INSTEAD OF '‘/TESTS:1=5"",

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED B
COMMAND.

"ACH

SEQ 0005

START
RESTART
CONTINUE

TESTS

PASS

FLAGS

EOP

X
X

X
X
X

PROCEED

DROP
ADD

UNITS
X
X

X
X
X

DISPLAY
FLAGS

ZFLAGS
EXIT

FOR THE RC25 DISK EXERCISER, THE /TESTS SWITCH IS MEANINGLESS SINCE
THERE IS ONLY ONE TEST.

2.3

FLAGS

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH A L OOPING
ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN CLEARED UNTIL
EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS ARE _ALSO CLEARED AFTER A
START COMMAND UNLESS SET USING THE FLAG SWITCH. THE ZFLAGS COMMAND MAY
ALSO BE USED TO CLEAR ALL FLAGS. WITH THE EXCEPTION OF THE START AND
2FLAGS COMMANDS, NO COMMANDS AFFECT THE STATE OF THE FLAGS: THEY REMAIN
SET OR CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.
FLAG

EFFECY

HOE

HALT ON ERROR = CONTROL IS RETURNED TO RUNTIME

LOE

IER«

SERVICES COMMAND MODE
ERROR
ON
LOOP

INHIBIT ALL ERROR REPORTS (GENERAL, BASIC, AND
EXTENDED)

INHIBIT BASIC AND EXTENDED ERROR REPORTS
INHIBIT EXTENDED ERROR REPORTS

IBR+
IXR*
PRI
PNT
80E

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

ADR
Lot

EXECUTE AUTODROP CODE
LOOP ON TEST

UAM
ISR
IDR

‘BELL'' ON ERROR
UNATTENDED MODE (NO MANUAL INTERVENTION)
INHIBIT STATISTICAL REPORTS
INHIBIT PROGRAM DROPPING OF UNITS

EVL

EXECUTE EVALUATION (ON DIAGNOSTICS WHICH HAVE
EVALUATION SUPPORT)

* ERROR MESSAGES ARE DESCRIBED I~ SECTION 3.1

SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. _YOU MAY SPECIFY
MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, TO CAUSE THE
PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS AND TYPE A "BELL'' ON
ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE: IER:BOE

:gg EUE RC2S DISK EXERCISER, THE FOLLOWING FLAGS HAVE NO EFFECT: ADR

SEQ 0006

SEQ 0007
2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT THE USER
FOR HARDWARE INFORMATION BY TYPING °''CHANGE HW (L) ?''. YOU MUST ANSWER
"Y' AFTER A START COMMAND UNLESS (A) THE HARDWARE INFORMATION HAS BEEN
"PRELOADED’* USING THE SETUP UTILITY (SEE CHAPTER 6 OF THE XXDP+ USER'S
MANUAL), OR (B) YOU WISH TO USE THE DEFAULT HARDWARE CONFIGURATION THAT
1S SUPPLIED WITH THE PROGRAM (SEE BELOW). WHEN YOU ANSWER THIS QUESTION
WITH A "Y', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER OF UNITS (IN
DECIMAL). YOU WILL THEN BE ASKED THE HARDWARE QUESTIONS FOR EACH UNIT.
UNDER THIS PROGRAM, A UNIT IS DEFINED TO BE ONE DISK PLATTER.
A WORD ABOUT SEMANTICS: IN ALL MESSAGES OUTPUT BY THE RC25 EXERCISER,

AS WELL AS IN THE DOCUMENTATION, THE PHRASES 'UNIT X'' AND ‘UNIT NUMBER''
REFER TO THE SEQUENTIALLY-ASSIGNED UNIT NUMBER GIVEN BY THE DIAGNOSTIC

SUPERVISOR. THE PHRASES ‘PLATTER X'*' AND ‘PLATTER ADDRESS'' REFER TO THE
UNIT NUMBER ASSIGNED TO THE DISK THROUGH THE UNIT PLUG ON THE FRONT OF
THE DRIVE. THESE TWO NUMBERS ARE NOT RELATED.

DEFAULT ANSWERS APPEAR WITH QUESTIONS FOR WHICH THE USER MAY SIMPLY
TYPE A CARRIAGE RETURN.

1P ADDRESS (0)

172150 ?

ENTER THE ADDRESS OF THE IP REGISTER OF ONE RC25 AS ADDRESSED
BY THE PROCESSOR WITH MEMORY MANAGEMENT TURNED OFF. THE PROGRAM
g;;ggzs AN EVEN 16-BIT ADDRESS IN THE RANGE OF 160000 TO

VECTOR (0)

154 ?

ANSWER WITH THE INTERRUPT VECTOR OF THE SAME RC25 IN THE ABOVE
QUESTION. AN EVEN VECTOR ADDRESS IN THE RANGE OF 4 TO 774 WILL
BE ACCEPTED. SINCE RC25 VECTOR ADDRESSES ARE PROGRAMMABLE AND
NOT HARDWIRED, CARE MUST BE TAKEN NOT TO SPECIFIY A VECTOR

WHICH IS USED FOR ANOTHER PERIPHERAL DEVICE.
5 ?
BR LEVEL (0)

ANSWER WITH THE BUS REQUEST INTERRUPT LEVEL USED BY THE ABOVE
RC2S. LEVELS 4 THORUGH 7 ARE ACCEPTABLE. (NOTE: THE PROGRAM

EXPECTS THAT ALL RC25°'S WILL BE AT BR LEVEL 5 OR LESS. Ir

THIS IS NOT THE CASE, THEN ONLY ONE RC25 CONTROLLER WITH UP
YO FOUR UNITS MAY BE EXERCISED AT A TIME).
PLATTER ADDRESS (UNIT PLUG) (D)
0 ?

ENTER A NUMBER BETWEEN O AND 253 FOR ONE DISK WHICH CORRESPONDS
TO THE UNIT PLUG ON THE FRONT OF THE DEVICE. EVEN NUMBERS

DESIGNATE THE REMOVABLE PLATTER (UPPER DISK), ODD NUMBERS REFER
TO THE FIXED PLATTER (LOWER DISK).

ALLOW WRITES TO CUSTOMER DATA AREA ON THIS PLATTER (L)

NO DEFAULT. IF THE MULTI-DRIVE SUBTEST IS BEING RUN, A 'NO*’

ANSWER HERE WILL FORCE THE EXERCISER TO PERFORM READ-ONLY
OPERATIONS TO THE CUSTOMER DATA AREA OF THIS UNIT. IF THE DM

EXERCISER IS BEING RUN, THIS QUESTION HAS NO EFFECT, SINCE THE
OM EXERCISER WRITES ON THE DIAGNOSTIC TRACKS ONLY. IN ANY CASE,
IF YOU ANSWER '‘YES'', THE FOLLOWING QUESTION WILL APPEAR.
«« WARNING = CUSTOMER DATA AREA MAY BE OVERWRITTEN! ... CONFIRM (L) 2
NO DEFAULT. A '‘YES'' ANSWER IS EXPECTED, BUT A "NO'' ANSWER WILL
PREVENT THE CUSTOMER DATA AREA FROM BEING OVERWRITTEN.

SEQ 0008
EXAMPLE OF HARDWARE DIALOG:
? Y<(R>

CHANGE HW (L)

# UNITS (D)

? 2<CR>

UNIT 0

IP ADDRESS (0)

172150 ? <(R>

154 ? <(CR>
VECTOR (0)
BR LEVEL (0) 5 ? <(R>
PLATTER ADDRESS ... (D) 0 ? 252<(R>
? Y<CR>
ALLOW WRITES ... (L)

+* WYARNING = ... CONFIRM (L)

UNIT 1

IP ADDRESS (0)

? N<CR>

! USER REVERSES ANSWER

172150 ? <(R>

VECTOR (0) 154 ? <(R>
BR LEVEL (0) 5 ? <(R>
PLATTER ADDRESS ... (D) 252 ? 253<(R>
ALLOW WRITES ... (L) ? Y<(R>
? Y<CR>
*+ WARNING = ... CONFIRM (L)

AS MENTIONED ABOVE, THERE IS A DEFAULT HARDWARE CONFIGURATION THAT IS
SUPPLIED WITH THE PROGRAM. IT CONSISTS OF TWO UNITS AS FOLLOWS:
UNIT 0
IP ADDRESS:
VECTOR:
BR LEVEL:
PLATTER ADDRESS:

1
1
5
0

UNIT 1
IP ADDRESS:
VECTOR:
BR LEVEL:
PLATTER ADDRESS:

1 72150
1 54
5
1

ALLOW WRITES?

THIS CONFIGURATION TAKES EFFECT IF THE USER DOES NOT USE THE SETUP
g}ég%Tgrgg?EgAS BYPASSED THE HARDWARE QUESTIONS WHEN THE PROGRAM IS
2.5

SOFTWARE QUESTIONS

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART OR
CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOF TWARE
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC

OPERATION MODES. YOU WILL BE PROMPTED BY °"'CHANGE SW (L) ?''. IF YOU
WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING ‘'v'’. THE SOF TWARE
QUESTIONS AND THE DEFAULT VALUES ARE D_SCRIBED BELOW:

ERROR LIMIT (O FOR NO LIMIT) (D) 32 ?
ENTER THE NUMBER OF HARD ERRORS ALLOWED PER UNIT PER PASS
BEFORE THE UNIT IS DROPPED FROM TESTING. A NUMBER IN THE
RANGE OF 0 TO 65535 WILL BE ACCEPTED.

TRANSFER LIMIT IN MEGABYTES (O FOR NO LIMIT) (D) 2 ?
ENTER THE NUMBER OF MEGABYTES TO BE TRANSFERRED TO / FROM EACH
UNIT BEFORE AN END-OF-PASS IS DECLAKED. A NUMBER IN THE RANGE
OF 0 TO 65535 WILL BE ACCEPTED. AS A REFERENCE, ON A SYSTEM
CONF IGURED WITH ONE DRIVE (TWO UNITS) AND 128K OF MEMORY, THE
MULTI-DRIVE SUBTEST WILL REACH A 10 MEGABYTE TRANSFER LIMIT IN
APPROXIMATELY 8 MINUTES. FOR THE SAME SYSTEM, THE DM EXERCISER
a?gaggg WILL REACH A 2 MEGABYTE LIMIT IN APPROXIMATELY 20
SUPPRESS PRINTING ERROR LOG MESSAGES (L) Y ?
ERROR LOG MESSAGES USUALLY DESCRIBE MINOR ERRORS ENCOUNTERED

DURING 1/0 OPERATIONS, SUCH AS ECC SYMBOL ERRORS. ANSWER 'N
TO SEE ALL ERROR LOG MESSAGES.

RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST (L) N ?
THIS QUESTION DETERMINES WHICH OF THE TWO EXERCISER SUBTESTS
WILL BE RUN. THE MULTI-DRIVE SUBTEST IS HOST-DRIVEN WHILE THE
OM EXERCISER IS THE FRONT PANEL TEST EXECUTING IN THE
DIAGNOSTIC MACHINE AT THE DEVICE. SEE SECTION 6.0 FOR MORE
INFORMATION. THE REMAINING QUESTIONS WILL ONLY BE ASKED IF THE
MULTI-DRIVE SUBTEST IS BEING RUN.
RANDOM SEEK MODE (L) Y ?

ANSWERING '‘Y** WILL CAUSE EACH 1/0 OPERATION TO SELECT A RANDOM
STARTING DISK BLOCK NUMBER. ANSWER ‘N'' TO HAVE STARTING BLOCK
NUMBERS SELECTED SEQUENTIALLY ON EACH PLATTER.

STARTING TRACK (D)

0 ?

ENTER THE STARTING TRACK NUMBER OF THE DISK AREA YOU WISH TO

TEST. A NUMBER IN THE RANGE O TO 1641 WILL BE ACCEPTED.
1641 ?
ENDING TRACK (D)

§2§$R THE ENDING TRACK NUMBER OF THE DISK AREA YOU WISH TO

READ-COMPARES PERFORMED AT THE CONTROLLER (L) Y ?
A *'YES'' ANSWER WILL CAUSE ALL READ OPERATIONS TO BE CHANGED TO
READ-COMPARE. THIS ESSENTIALLY FORCES THE CONTROLLER TO PERFORM
TWO READ OPERATIONS ON THE SAME DISK SECTORS AND TO COMPARE THE
gsggkgg. AFTER ANSWERING THIS QUESTION, THE FOLLOWING MESSAGE
THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED PLATTERS.
WRITE ONLY (L) N ?

ANSWER ''Y'* FOR WRITES ONLY; OTHERWISE THE PROGRAM WILL CHOOSE
WRITES AND READS ON A RANDOM BASIS.

WRITE-COMPARES PERFORMED AT THE CONTROLLER (L) Y ?
ANSWERING °‘*YES'' CAUSES ALL WRITE 1/0 REQUESTS TO BE CHANGED TO
WRITE=COMPARE. IN THIS SITUATION, AFTER EACH WRITE, THE
CONTROLLER WILL READ BACK THE DATA FROM THE MEDIA AND COMPARE
IT TO THE ORIGINAL DATA RE-OBTAINED FROM THE HOST.
CHECK ALL WRITES AT HOST BY READING (L) N ?
THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS
ANSWERED °NO'‘. A "'YES'' ANSWER HERE CAUSES EACH HOST WRITE
REQUEST TO BE FOLLOWED BY A READ REQUEST. WHEN BOTH OPERATIONS
HAVE COMPLETED, THE HOST WILL COMPARE THE DATA STORED IN THE
TWO 1/0 BUFFERS. THERE ARE SOME UNDESIRABLE IMPLICATIONS IN
CHOOSING THIS OPTION, INCLUDING THE CONSUMPTION OF EXTRA CPU
TIME, AND THE OVERRIDING CF THE CONTROLLER'S NORMAL

OPTIMIZATION POLICIES (DUE TO THE 'EXPRESS REQUEST'' COMMAND
MODIFIER WHICH MUST BE SET FOR EACH WRITE-READ PAIR).

SEQ 0009

SEQ 0010

USER-DEF INED DATA PATTERN (L) N ?

AN ANSWER OF “‘YES'' ALLOWS YOU TO DEFINE YOUR OWN DATA PATTERN
(UP TO 16 WORDS) TO BE USED IN ALL WRITE OPERATIONS. A 'NO'’
ANSWER ALLOWS THE USE OF OTHER PRE=DEFINED DATA PATTERNS WHICH
MAY BE SELECTED IN THE NEXT QUESTION.

SELECT PRE=DEF INED DATA PATTERN (0 FOR JEQUENTIAL SELECTION) (D)

0 ?

THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS
ANSWERED ‘NO''. THE 21 PRE=DEFINED DATA PATTERNS ARE SHOWN IN
APPENDIX A. AN ANSWER OF ‘0'* CAUSES EACH OF THE 21 PATTERNS TO
BE SELECTED SEQUENTIALLY ON EACH UNIT. NOTE THAT PATTERN 1
CONSISTS ENTIRELY OF RANDOM NUMBERS. THIS COMPLETES THE SOFTWARE QUESTIONING; THE FOLLOWING QUESTIONS ARE ASKED ONLY IF YOU
CHOSE TO DEFINE YOUR OWN DATA PATTERN,

NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM) (D)
PATTERN VALUE (0)

16 ?

THIS QUESTION REPEATED AS APPROPRIATE.

2.6

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES IN A
TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST WAY TO BUILD
THIS TABLE 1S TO ANSWER ALL QUESTIONS FOR EACH UNIT TO BE TESTED. IF
YOU HAVE A MULTIPLEXED DEVICE SUCH AS A MASS STORAGE CONTROLLER WITH
SEVERAL DRIVES OR A COMMUNICATION DEVICE WITH SEVERAL LINES, THIS
BECOMES TEDIOUS SINCE MOST OF THE ANSWERS ARE REPETITIOUS.
TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARFE TESTING A
FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF A CONTROL
MODULE WITH EIGHT UNITS (SUB=-DEVICES) ATTACHED TO IT. THESE UNITS ARE
DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7. THERE IS ONE HARDWARE
PARAMETER THAT CAN VARY AMONG UNITS CALLED THE Q-FACTOR. THIS Q=FACTOR
MAY BE 0 OR 1. BELOW IS A SIMPLE WAY TO BUILD A TABLE FOR ONE XY11
WITH EIGHT UNITS.

# UNITS (D) ?

8<(CR>

UNIT 1

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? O<CR>
Q-FACTOR (0) 0 ? 1<CR>

UNIT 2
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 1<CR>
Q-FACTOR (0) 1 ? O0<CR>

UNIT 3
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 2<CR>
Q-FACTOR (0) 0 ?

<(CR>

UNIT &

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 3<CR>

Q-FACTOR (0) 0 ?

<(R>

SE@ 0011

UNIT §

CSR ADDRESS (0) ?

160000<CR>

SUB-DEVICE # (0) ? 4<(R>
Q-FACTOR (0) 0 ? <CR>
UNIT 6

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 5<(R>

Q-FACTOR (0) 0 ?

<CR>

UNIT 7

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 6<(R>

Q-FACTOR (0) 0 ?

1<CR>

UNIT 8

CSR ADDRESS (0) 160000<CR>
SUB-DEVICE # (0) ? 7<CR>

Q-FACTOR (0) 1 2

<(CR>

NOTICE THAT THE DEFAULT VALUE FCOR THE Q=FACTOR CHANGES WHEN A
38?;2§FAULT RESPONSE IS GIVEN. Bt rAREFUN. WHEN SPECIFYING MULTIPLE
AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS DO NOT

g??}c§é3¥IFICANTLY FROM UNIT TO UNIT.

THE PROCEDURE SHOWN IS NOT VERY

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
LET®S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION FEATURE.
# UNITS (D) ?

B<CR>

UNIT 1

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 0,1<CR>

Q-FACTOR (0) 0 ?

1,0<CR>

UNIT 3
CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 2=5<(CR>
Q-FACTOR (0) 0 ? O<CR>
UNIT 7

CSR ADDRESS (0) ? 160000<CR>
SUB-DEVICE # (0) ? 6,7<CR>
Q-FACTOR (0) 0 ? 1<CR>

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL BUILD
AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY ONE PASS
THROUGH THE QUESTIONS. [N THE FIRST PASS, TWO ENTRIES ARE BUILT SINCE
TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE SERVICES ASSUME THAT
THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS. FOUR ENTRIES WERE BUILT. THIS IS BECAUSE FOUR
SUB-DEVICES WERE SPECIFIED. THE ‘’~'* CONSTRUCT TELLS THE RUNTIME
SERVICES TO INCREMENT THE DATA FROM THE FIRST NUMBER TO THE SECOND. IN
THIS CASE, SUB-DEVICES 2, 3. 4 AND 5 WERE SPECIFIED. (IF THE SUB-DEVICE
WERE SPECIFIED BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE

ADDRESSES MUST BE ON AN EVEN BOUNDARY). THE CSR ADDRESSES AND Q-FACTORS
FOR THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY SINCE
THEY WERE ONLY SPECIFIED ONCE. THE LAST TWU UNITS ARE SPECIFIED IN THE
THIRD PASS.

EEEO:HOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS SHOWN
# UNITS (D) ?

B<(R>

UNIT 1

CSR ADDRESS (0) ? 160000<CR>
SUB=DEVICE # (0) ? 0-7<CR>

AS YOU CAN SEE FRUM THIS:EXAMPLE, NULL REPLJES (COMMAS ENCLOSING A NULL
FIELD) TELL THE RUNTIME SERVICES TO REPEAT 1HE LAST REPLY.

2.7 QUICK START=-UP PROCEDURE

(XXDP+)

TO START-UP THIS PROGRAM:
1. BOOT XXDP+

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE IS A
CLOCK) QUESTIONS

3. TYPE ‘R NAME'', WHERE NAME IS THE NAME OF THE BIN OR BIC FILE
FOR THIS PROGRAM

4. TYPE "'START"

5. ANSWER THE '‘CHANGE HW'' QUESTION WITH ‘'‘v*’
6. ANSWER ALL THE HARDWARE QUESTIONS

7. ANSWER THE ‘''CHANGE SW'® QUESTION WITH 'N'

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS FOR
5L§G§~SN3 gOFTHARE PARAMETERS. THESE DEFAULTS ARE DESCRIBED IN SECTIONS

SEQ 0012

SEQ 0013
3.0 ERROR INFORMATION

3.1 TYPEC OF ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY A

DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES ARE
ALWAYS PRINTED UNLESS THE ‘'IER'* FLAG IS SET (SECTION 2.3). THE GENERAL
ERROR MESSAGE IS OF THE FORM:

NAME

TYPE

NUMBER

ERROR MESSAGE

ON UNIT NUMBER

TST NUMBER PC:XXXXXX

LWHERE; NAME = DJAGNOSTIC NAME
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER

UNIT NUMBER = 0 = (N=1) (N IS THE NUMBER OF UNITS CONFIGURED)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL

INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS THE ''IER"

OR ''IBR'* FLAGS ARE SET (SECTION 2.3).

THESE MESSAGES ARE PRINTED AFTER

THE ASSOCIATED GENERAL MESSAGE. FOR THE RC25 DISK EXERCISER, ALL BASIC
Eg:g:~g§SSAGES CONTAIN THE ELAPSED TIME (THE TIME SINCE THE LAST START

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION SUCH AS
REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS PRINTED UNLESS
THE *'IER'’, *'IBR'* OR ''IXR'' FLAGS ARE SET (SECTION 2.3). THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR MESSAGE AND ANY
ASSOCIATED BASIC ERROR MESSAGES.
3.2 SPECIFIC ERROR MESSAGES

THIS LIST OF RC25 EXERCISER ERROR MESSAGES IS ARRANGED BY ERROR NUMBER.
THE LETTERS G, B, AND X REFER TO THE GENERAL, BASIC, AND EXTENDED TEXT
OF THE ERROR MESSAGE, RESPECTIVELY. ALL NUMERIC VALUES ARE IN OCTAL
gsgng FOR THE ELAPSED TIME OR WHEN THE NUMBER IS FOLLOWED BY A DECIMAL
3.2.1 SYSTEM-FATAL ERROR MESSAGES

THESE CONDITIONS WILL CAUSE THE DIAGNOSTIC TO BE ABORTED. THEY WILL

APPEAR AFTER THE SOFTWARE DIALOG.
1

TOO MANY UNITS

MORE THAN 16. UNITS SPECIFIED

XX:XX:XX

NEITHER P NOR L CLOCK WAS FOUND ON THE SYSTEM

3.2.2 CONFIGURATION ERROR MESSAGES

CONF IGURATION ERRORS INDICATE ILLEGAL HARDWARE CONFIGURATIONS. THESE
SITUATIONS ARE DETECTED BEFORE ANY ACTUAL TESTING TAKES PLACE. AS SUCH,
THEY ARE SPECIAL IN THAT THERE IS NO ERROR NUMBER ASSOCIATED WITH THEM,
AND THEY ARE NOT INCLUDED IN THE SUMMARY REPORT NOR THE END-OF=-PASS

MESSAGE. ANY UNITS INVOLVED ARE IMMEDIATELY DROPPED.

IF YOU TRY TO CONFIGURE MORE THAN & UNITS AT THE SAME IP ADDRESS, THE

FOLLOWING MESSAGE WILL APPEAR:

ALREADY & UNITS AT [P XXXXXX(0)

THE REMAINING UNITS (OVER &) WILL BE DROPPED. IF YOU TRY TO CONFIGURE
MORE THAN & CONTROLLERS, THE FOLLOWING MESSAGE WILL APPEAR.
MORE THAN & DIFFERENT IP ADDRESSES

ALL UNITS ASSOCIATED WITH THE STH (AND HIGHER) CONTROLLERS WILL BE
DROPPED. FINALLY, IF YOU SPECIFY IDENTICAL PLATTER ADDRESSES UNDER
ONE CONTROLLER (IP ADDRESS), THE FOLLOWING MESSAGE WILL APPEAR:
DUPLICATE PLATTER ADDRESS XXX. AT IP XXXXXX(0)

SthggéTS (BEYOND THE FIRST) WITH IDENTICAL PLATTER ADDRESSES WILL BE
3.2.3 DEVICE-FATAL ERROR MESSAGES

IF THE ERROR PFRTAINS TO A CONTROLLER, THEN ALL THE UNITS ATTACHED TO

THE CONTROLLER WILL BE DROPPED. OTHERWISE, THE ERROR PERTAINS TO A
SINGLE UNIT, AND ONLY THAT UNIT IS DROPPED.
10

XX:XX:XX

NO RESPONSE AT ADDRESS XXXXXX(0)

ABOUT TO VERIFY VECTOR XXX(0) FOR DEVICE XXXXXX(0) ...

(FOLLOWED BY EITHER NOTHING OR)
VECTOR TEST FAILED

BR LEVEL TEST FAILED

XX:XX:XX

INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX(0)

ERROR 13 REFERS TO THE FOUR STEP HARD INITIALIZE SEQUENCE DESCRIBED IN
THE UNIBUS / Q-BUS STORAGE SYSTEMS PORT (UQSSP) SPEC. THE SA REGISTER
CODE IS PROVIDED TO ASSIST IN DIAGNOSIS.
13

B
X

INIT SEQUENCE FAILED

XX:XX:XX

STEP X READ ERROR ON DEVICE XXXXXX(0)

SA: XXXXXX(0)

ERROR 14 MEANS THAT THE ERROR BIT (BIT 15) OF A DFVICE'S SA REGISTER
WAS FOUND SET TO 1. THE LOW-ORDER 11 BITS DESCRIBE THE ERROR.
14

B
X

FATAL PORT / CONTROLLER ERROR

XX:XX:XX

ERROR CODE RECEIVED IN SA REGISTER OF DEVICE

SA: XXXXXX(0)

XXXXXX(0)

SEQ@ 0014

ERROR 15 1S REPORTED WHEN THE RC25 FAILS TO RESPOND TO ONE OF THE
LISTED MSCP COMMANDS.
15

MESSAGE RESPONSE TIMEOQUT

XX:XX:XX

FAILED TO RECEIVE END MESSAGE FROM DEVICE
XXXXXX(0)

COMMAND: SET CTLR CHAR (OR)

ONLINE (OR)

EXECUTE SUPPLIED PROGRAM (OR)
SEND DATA

ERROR 16 REFERS TO THE MICP ‘ONLINE'' MESSAGE SENT TO EACH UNIT DURING
THE INITIALIZATION SUBTEST. THE STATUS CODE AND SUB-CODE ARE TAKEN
FROM THE MSCP END MESSAGE (AS THEY ARE IN ALL ERROR MESSAGES).
16

ONLINE FAILED

XX:XX:XX

ERROR IN RESPONSE TO ONLINE COMMAND FOR
PLATTER XXX.

STATUS CODE: XX(0)
SUB-CODE: XXXX(0)

X
X

ERROR 17 IMPLIES THAT (A) YOU HAVE ALLOWED WRITES TO THE CUSTOMER DATA
AREA THROUGH THE HARDWARE QUESTION, AND (B) THE WRITE-PROTECT

PUSHBUTTON FOR THE UNIT IS ENGAGED.

WRITE-PROTECT CONFLICT

XX:XX:XX

PLATTER XXX. 1S SW WRiTE-ENABLED BUT HW
WRITE-PROTECTED

ERROR 18 REFERS TO THE MSCP °‘‘ACCESS’'' COMMANDS WHICH ARE ISSUED TO EACH
UNIT AS PART OF THE INITIALIZATION SUBTEST. IF EXTENDED ERROR MESSAGES
ARE ENABLED AND THE STATUS CODE AND SUB-CODE DO NOT APPEAR, THEN THE
ACCESS COMMAND HAS TIMED OUT (I.E., NO RESPONSE RECEIVED WITHIN THE
REQUIRED INTERVAL).
18

B
X
X

ACCESS FAILED

XX:XX:XX

ACCESS FAILED UN PLATTER XXX.

STATUS CODE: XX(0)
SUB-CODE: XXXX(0)

ERROR 19 OCCURS WHEN AN MSCP 1/0 COMMAND RESULTS IN AN END MESSAGE WITH
THE 'UNIT OFFLINE'' STATUS CODE.
G

2K 2

B
X
X
X

2C 2

FATAL 1/0 ERROR

XX:XX:XX PLATTER XXX. WENT OFFLINE
CMD REF NUM: XXXXXX(0)
SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ=COMPARE (OR)
WRITE (OR)
WRITE=COMPARF (OR)
XXX (0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

SEQ 0015

D
20

CONTROLLER TIMEOUT

XX:XX:XX PREXégg XXXXXX(0) NOT PROCES {NG COMMAND

ERROR 21 ARISES IF YOU ARE RUNNING THE DM EXERCISER SUBTEST, AND ONE OF
THE INITIAL DUP COMMANDS WAS REJECTED WITH A STATUS CODE OTHER THAN
"'SUCCESS''. NOTE THAT THE STATUS CODE IS NOT FROM MSC>.
21

B
X

X
X

DUP COMMAND FAILED

XX:XX:XX

HESSAGExziiigzgg 8Y DUP DERVER ON DEVICE

COMMAND: EXECUTE SUPPLIED PROGRAM (OR)

SEND DATA
DUP STATUS CODE: X.

ERROR 22 IS ALSO RELATED TO THE DM EXERCISER SUSTEST. IT INDICATES THAT
THE FRONT PANEL TEST (EXECUTING UNDER HOST CONTROL IN THE DM) HAS
FAILED TO PROVIDE THE HOST WITH A SET OF OPERATING STATISTICS WITHIN A
PRE~DETERMINED TIME INTERVAL. THE FPT IS ASSUMED TO BE DEAD.
22

DM EXERCISER TIMEOUT

XX:XX:XX

NO RESPONSE FROM FRONT PANEL TEST EXECUTING IN
DEVICE XXXXXX(0)

3.2.4 HARD ERROR MESSAGES

MOST HARD ERRORS ARE REPORTED TO THE HOST THROUGH THE END MESSAGES
ASSOCIATED WITH MSCP READ AND WRITE COMMANDS. ERROR NUMBERS 31 - 41
ARE BASED ON MSCP STATUS CODES 1 - 11.

M
3 2 3 3¢ X

XPDME

32X

X
X
X

1/0 REQUEST FAILED

XX:XX:XX

PLATTER XXX. = STATUS CODE: XX(0)

CMD REF NUM: XXXXXX(0)
SUB~CODE: XXXX(0)
COMMAND: READ (OR)
READ=COMPARE (OR)

WRITE (OR)
WRITE-COMPARE (OR)
XXX(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

170 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

1/0 REQUEST FAILED
XX:XX:XX PLATTER X/X., = INVALID COMMAND
CMD REF NUM: X£.4XXX(0)
SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ=COMPARE (OR)
WRITE (OR)
WRITE-COMPARE (OR)
XXXx(0)

BAD BLOCK REPORTED: xXXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

SEQ 0016

E
32

B
X

XXXIDME

€3>

X
X

1/0 REQUEST FAILED

XX:XX:XX PLATTER XXX. = COMMAND ABORTED
CMD REF NUM: XXXXXX(O)
SL3-CODE: XXXX(0)
COMMAND: READ (OR)
READ=-COMPARE (OR)
WRITE (OR)
WRITE~COMPARE (OR)
XXX(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EiTHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

1/0 REQUEST FAILED

XX:XX:XX PLATTER XXX. = UNIT-AVAILABLE
CMD REF NUM: XXXXXX(O0)
SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ-COMPARE (OR)
WRITE (OR)

XM MIMEO)

I XXX

WR]TE=-COMPARE (OR)
XXX(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

1/0 REQUEST FAILED
XX:XX:XX PLATTER XXX. = MEDIA FORMAT ERROR
CMD REF NUM: XXXXXX(0)
SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ-COMPARE (OR)
WRITE (OR)

¢ > > X
3¢

XX>XDMEY

32X
X

WRITE=COMPARE (OR)
XXX(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.
BYTE COUNT IN COMMAND: XXXXX.

! EITHER THIS
OR THIS
!

ACTUAL # BYTES TRANSFERRED: XXXXX.

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

1/0 REQUEST FAILED
XX:XX:XX PLATTER XXX. = WRITE-PROTECTED
CMD REF NUM: XXXXXX(0)
SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ-COMPARE (OR)
WRITE (OR)
WRITE-COMPARE (OR)
XXX(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

' EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

SEQ 0017

F
37

G
8

PLATTER XXX. = DEVICE COMPARE ERROR

CMD REF NUM: XXXXXX(0)
SUB=-CODE: XXXX(0)
COMMAND: READ (OR)
READ=COMPARE (OR)
WRITE (OR)
WRITE=-COMPARE (OR)
XXX(0)

€I
X > X

1/0 REQUEST FAILED

XX:XX:XX

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

MXXMITME

X
X
X

1/0 REQUEST FAILED
XX:XX:XX PLATTER XXX. = DATA ERROR
CMD REF NUM: XXXXXX(0)
SUB~CODE: XXXX(0)
COMMAND: READ (OR)

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

READ-COMPARE (OR)
WRITE (OR)

X
>
>
3 2

22> DME

>3
X > X

XM IMXMEY

32>
X

WR1TE~COMPARE (OR)
XXx(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

1/0 REQUEST FAILED

XX:XX:XX

PLATTER XXX. = HOST BUFFER ACCESS ERROR

CMD REF NUM: XXXXXX(0)
SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ-COMPARE (OR)
WRITE (OR)
WRITE=-COMPARE
XXX€0)

(OR)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

1/0 REQUEST FAILED
XX:XX:XX PLATTER XXX. = CONTROLLER ERROR
CMD REF NUM: XXXXXX(0)
SUB=-CODE: XXXX(0)
COMMAND: READ (OR)
READ=COMPARE (OR)
WRITE (OR)
WRITE-COMPARE (OR)
XXX(0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.

ACTUAL # BYTES TRANSFERRED: XXXXX.

! EITHER THIS
OR THIS
!

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

SEQ 0018

SEQ 0019
41

B
X

SUB-CODE: XXXX(0)
COMMAND: READ (OR)
READ=COMPARE (OR)
WRITE (OR)
WRITE-COMPARE (OR)
XXX (0)

BAD BLOCK REPORTED: XXXXX.
LBN: XXXXX.

€ 3K > > >

X
X

1/0 REQUEST FAILED

XX:XX:XX_ PLATTER XXX, = DRIVE ERROR
CMD REF NUM: XXXXXX(0)

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

: EVTPIR [HIS
i 7 o0 THIS

1/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(0)

ERROR 42 1S DETECTED AT THE HOST. IT CAN ARISE IF THE USER HAS CHOSEN
THE OPTION TO CHECK ALL WRITES AT THE HOST BY FOLLOWING EACH WITH A
READ TO THE SAME DISK ADDRESS.

1/0 REQUEST FAILED

XX:XX:XX

PLATTERE');')%F.Q = HOS1=-DETECTED WRITE-COMPARE

LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.
ACTUAL # BYTES TRANSFERRED: XXXXX.

X
X

ERROR 43 DESCRIBES A SINGLE I/0 COMMAND FOR WHICH NO MSCP END MESSAGE
WAS EVER RECEIVED.

B
X
X

1/0 REQUEST FAILED

XX:XX:XX

PLATTER XXX. = COMMAND TIMEOUT

CMD REF NUM: XXXXXX(0)
COMMAND: READ (OR)
READ-COMPARE (OR)
WRITE (OR)

WRITE-COMPARE (OR)
XXxx(0)

LBN: XXXXX.

BYTE COUNT IN COMMAND: XXXXX.

I/0 BUFFER DESCRIPTOR: XXXXXX(0) XXXXXX(O)

3.2.5 ERROR LOG MESSAGES

ERROR LOG MESSAGES (DATAGRAMS) DESCRIBE MINOR ERRORS ENCOUNTERED BY THE
CONTROLLER. THEIR OCCAISIONAL OCCURRENCE IS NORMAL. RELEVANT FIELDS Of
A DATAGRAM ARE PRINTED (A) IF THE USER IS RUNNING THE PROGRAM IN
ATTENDED MODE, AND (B) IF NOT SUPPRESSED BY THE USER DURING THE SW

DIALOG. ONE OF THESE FIELDS, THE COMMAND REFERENCE NUMBER, CAN LINK THE
DATAGRAM WITH A HARD ERROR.

ERROR LOG MESSAGES ARE NOT INCLUDED IN THE CUMULATIVE ERROR COUNT WHICH
APPEARS WITH THE END-OF-PASS MESSAGE. HOWEVER, IF THE MULTI-DRIVE
SUBTEST IS BEING RUN, THEN DATAGRAMS WHICH APPLY TO A PARTICULAR UNIT
(AS OPPOSED TO THE CONTROLLER) ARE TALLIED FOR THE STATISTICAL REPORT
256?8?%5&2 OF WHETHER THEIR PRINTING HAS BEEN SUPPRESSED. THE FORMAT IS

ERROR LOG MESSAGE RECEIVED:
CMD REF NUM: XXXXXX(0)
! FUR SMALL DISK ERRORS ONLY
PLATTER: XXX.
FORMAT: CONTROLLER ERROR (OR)
HOST MEMORY ACCESS ERROR (OR)
SMALL DISK ERROR (OR)
XXX (0)

EVENT CODE: SUCCESS (OR)
INVALID COMMAND (OR)
COMMAND ABORTED (OR)
UNIT-OFFLINE (OR)
UNIT-AVAILABLE (OR)
MEDIA FORMAT ERROR (OR)
WRITE~PROTECTED (OR)

DEVICE COMPARE ERROR (OR)
DATA ERROR (OR)
HOST BUFFER ACCESS ERROR (OR)
CONTROLLER ERROR (OR)
DRIVE ERROR (OR)

XXX (0)
SUB=CODE: XXXX(0)

HOST MEM ADDR: XXXXXX(0) XXXXXX(0) ! HOST MEM ACC ERR ONLY
4.0 PERFORMANCE AND PROGRESS REPORTS

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE TOTAL
NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. THIS ERROR
COUNT DOES NOT INCLUDE ERROR LOG MESSAGES (SECTION 3.2.5).
CONF IGURATION ERRORS (SECTION 3.2.2), NOR ERRORS DETECTED BY THE FRONT
PANEL TEST UNDER THE DM EXERCISER. THE 'EOP'’ SWITCH CAN BE USED TO

CONTROL HOW OF TEN THE END~OF-PASS MESSAGE IS PRINTED.

DESCRIBES SWITCHES.

SECTION 2.2

PRIOR TO THE END-OF=-PASS MESSAGE, THE STATISTICAL SUMMARY REPORT IS
AUTOMATICALLY PRINTED BY THE EXERCISER. ITS FORMAT DEPENDS ON WHICH

SUBTEST (MULTI-DRIVE OR DM EXERCISER) IS BEING RUN. AN ASTERISK ()
APPEARING NEXT TO A NUMBER IN THE FORMAT BELOW REPRESENTS EITHER A
SPACE OR THE LETTER °X’'’. THE ‘X'’ FORMAT WILL BE USED IF THE STATISTIC
IS GREATER THAN 65,000. ALL VALUES ARE IN DECIMAL RADIX.
4.1

MULTI-DRIVE SUBTEST REPORTS

ELAPSED TIME:

NO.

XX:XX:XX

NO.

UNIT
NO.

READS
(K=1000)

WRITES
(k=1000)

MBYTES
READ

MBYTES
WRITTEN

HARD
ERRORS

ERROR
LOGS

XX
XX
XX

XXXXX*
XXXXX*
XXXXX#

XXXXX*
XXXXX*
XXXXX*

XXXXX
XXXXX
XXXXX

SEQ@ 0020

ECC ERRORS ARE REPORTED THROUGH ERROR LOG MESSAGES. THEY ARE TALLIED
REGARDLESS OF WHETHER THE MESSAGE PRINTING HAS BEEN SUPPRESSED.
N SYMBOL ECC ERRORS:

UNIT

NO.
XX
XX
XX

4.2

ECC

N =

XXXXX XXXOK XXXXX XXXXX
XXX XXXXX XXXXX OXXXXX
XXXXX O XXXXX O XXXXX XXXXX

XXXXX
XXXXX
XXXXX

XXAXX XXXXX ~ XXXXX
XNXXX o XXXXX XXXXX
¥AXXX XXXXX XXXXX

XXXXX
XXXXX
XXXXX

FIELD

ONLY

N =

DM EXERCISER SUBTEST REPORT

ELAPSED TIME:

NO.

XX:XX:XX

NO.

UNIT
NO.

READS
(K=1000)

WRITES
(K=1000)

SEEKS
(K=1000)

MBYTES
READ

MBYTES
WRITTEN

NO. HARD
ERRORS

NO. SOFT
ERRORS

XX
XX
XX

XXXXX*
XXXXX*
XXXXX*

XXXXX*
XXXXX#
XXXXX*

XXXXX#
XXXXX*
XXXXX*

XXXXX
XXXXX
XXXXX

5.0 DEVICE INFORMATION TABLES

THE HARDWARE P-TABLE APPEARS AS FOLLOWS FOR EACH UNIT:

tectontectectectectectentactectontontectactentant

IP ADDRESS

VECTOR ADDRESS

B8R LEVEL

temtemtectentectentoctectectentontectantactontant
tectectmntectectectoctoctectectrctectectoctantant
tectectontententectoctrctectententectontentantant

PLATTER ADDRESS

PR - UNIT PROTECTION BIT

DURING THE INITIALIZATION PROCESS AFTER A START, RESTART, OR CONTINUE
COMMAND, THE R(C25 DISK EXERCISER CREATES UP TO FOUR PUN=TIME TABLES
(CALLED CONTROLLER STATUS TABLES, OR CST'S), AND FILLS THEM WITH

INFORMATION DERIVED FROM THE HARDWARE P-TAGBLES OF ALL ACTIVE UNITS.
THFSE TABLES ARE NOT USER-ACCESSIBLE; THEIR FORMAT IS PRESENTED HERE
ONLY TO SHOW THE VIEW OF THE WORLD AS SEEN BY THE EXERCISER. EACH (ST
IS A DYNAMIC 7-WORD BLOCK:

SEQ 0021

]

IP ADDRESS

1CSH
'

NUMBER OF UNITS

VECTOR ADDRESS

BR LEVEL

IPRIUPIUS:

UNIT NUMBER

PLATTER ADDRESS

tPRIUPIUS!

UNIT NUMBER .

PLATTER ADDRESS

IPRIUPIUS!

UNIT NUMBER |

PLATTER ADDRESS

tPRIUPIUS!

UNIT NUMBER

PLATTER ADDRESS

]

CS = CONTROLLER STATUS BIT (ONLINE / OFFLINE)

PR = UNIT PROTECTION BIT

UP = UNIT PRESENT BIT

US = UNIT STATUS BIT (ONLINE / OFFLINE)
6.0 SUBTEST SUMMARIES

THE RC25 DISK EXERCISER CONSISTS OF ONE TEST SUBDIVIDED INTO THREE

SUBTESTS: INITIALIZATION, MULTI-DRIVE, AND DM EXERCISER. IN THE FIRST

PASS FOLLOWING A START, RESTART, OR CONTINUE COMMAND, THE

INITIALIZATION SUBTEST WILL ALWAYS PRECEDE THE EXECUTION OF ANY OTHER
SUBTEST. SUBSEQUENT PASSES WILL NOT INCLUDE THE INITIALIZATION SUBTEST.

6.1

INITIALIZATION SUBTEST

THE PURPOSE OF THE INITIALIZATION SUBTEST IS TO VERIFY THE HARDWARE
CONF IGURATION AS SPECIFIED BY THE OPERATOR, AND TO BRING EACH UNIT
ONLINE. SPECIFICALLY, THE SUBTEST PERFORMS THE FOLLOWING ACTIONS FOR
EACH CONTROLLER IN TURN:

1. A DEVICE REGISTER EXISTENCE TEST = TO VERIFY THAT THE
CONTROLLER'S IP AND SA REGISTERS APPEAR ON THE UNIBUS,
2. A VECTOR INTERRUPT TEST - TO INSURE THAT THE DEVICE CAN
INITIATE VECTORED INTERRUPTS TO THE PROCESSOR,
3. A BR LEVEL TEST = TO VERIFY THAT THE DEVICE INTERRUPT OCCURS
AT THE BR LEVEL SPECIFIED BY THE OPERATOR,
4. A FOUR-STEP HARD INIT SEQUENCE, AS DEFINED IN THE UNIBUS /
Q-BUS STORAGE SYSTEMS PORT SPECIFICATION,

5. THE SE:DING OF THE °‘'SET CONTROLLER CHARACTERISTICS'' COMMAND
SCP),

6. THE SENDING OF THE MSCP ''ONLINE'' COMMAND FOR EACH PLATTER

SPINNING UNDER THE CONTROLLER,
7. THE SENDING OF ONE OR TWO MSCP °‘ACCESS'' COMMANDS FOR EACH
:szEERRgxgER THE CONTROL{ER TO VERIFIY THAT EACH DISK

ANY CONTROLLER-FATAL ERRORS ENCOUNTERED DURING THE INITIALIZATION

SUBTEST WILL CAUSE ALL ITS UNITS TO BE DROPPED FROM TESTING. ANY UNITFATAL ERRORS WILL CAUSE ONLY THE APPROPRIATE UNIT TO BE DROPPED. FOR
ALL SURVIVING CONTROLLERS AND UNITS, THE PROGRAM WILL THEN BEGIN
EXECUTION OF EITHER THE MULTI-DRIVE OR DM EXERCISER SUBTEST.

SEQ 0022

SEQ 0023
6.2

MULTI-DRIVE SUBTEST

THE PURPOSE OF THE MULTI-DRIVE SUBTEST 1S TU EXERCISE THE DISK DRIVES
IN A MANNER SIMILAR TO HEAVY USAGE IN AN OPERATING SYSTEM ENVIRONMENT.
THE SUBTEST ISSUES MSCP 1/0 COMMANDS TO ALL UNITS FAST CNOUGH SO THAT
EACH CONTROLLER HAS SEVERAL COMMANDS QUEUED AT ANY GIVEN TIME. THE 1/0
COMMAND PARAMETERS ARE GOVERNED BY USER RESPCNSES DURING THE SOF TWARE
QUESTIONING, EXCEPT THAT BYTE COUNTS ARE DETERMINED AT RANDOM. AS EACH
1/0 OPERATION COMPLETES, THE PROGRAM UPDATES THE STATISTICAL TALLY
UNTIL THE SPECIFIED NUMBER OF MEGABYTES HAS BEEN TRANSFERRED TO / FROM
EACH UNIT. WHEN THIS HAPPENS, END-OF~PASS 1S DECLARED, AND THE SUMMARY
REPORT IS PRINTED.

IF THE RC25 EXPERIENCES A READ / WRITE ERROR, IT WILL TRY A _VARIABLE
NUMBER OF TIMES TO CORRECT THE ERROR, IF ALL RETRIES FAIL, THEN A HARD
ERROR WILL BE REPORTED TO THE HOST, AN ERROR MESSAGE WILL BE DISPLAYED
ON THE CONSOLE TERMINAL, AND THE ERROR WILL BE TALLIED FOR THE SUMMARY
REPORT. THE UNIT INVOLVED WILL BE DROPPED FROM TESTING IF ITS HARD
ERROR COUNT HAS EXCEEDED THE USER-SPECIFIED LIMIT.
6.3

DM EXERCISER SUBTEST

THE DM EXERCISER CONSISTS OF THE FRONT PANEL TEST (ROM RESICENT ON THE
CONTROLLER BOARD) RUN IN A CONTINUOUS LOOP UNDER HOST SUPERVISION. IT
1S USED TO EXERCISER A DISK BY (A) PERFORMING READS ON ALL TRACKS OF
THE PLATTER, AND (B) FORCING WRITES TO THE DIAGNOSTIC TRACKS ONLY. ALL
ERRORS DETECTED IN THE DIAGNOSTIC MACHINE, BOTH HARD AND SOFT, WILL BE
REPORTED TO THE HOST IN STATISTICAL FORM FOR THE SUMMARY REPORT, BUT
THEY WILL NOT APPEAR IN THE CUMULATIVE ERROR COUNT WITH THE END-OFPASS MESSAGE. THE NUMBER OF SEEKS, READS, AND WRITES WILL ALSO BE
REPORTED AND TALLIED. AS IN THE MULTI-DRIVE SUBTEST, END-OF=-PASS WILL
BE DECLARED WHEN ALL UNITS HAVE REACHED THE MEGABYTE TRANSFER LIMIT
SPECIFIED BY THE USER. (NOTE THAT THIS SUBTEST TAKES MUCH LONGER TO
ACCOMPLISH THE SAME FEAT; IT TAKES ABOUT 10 MINUTES PER UNIT TO REACH A
2 MEGABYTE TRANSEER LIMIT..

THE HOST INITIATES THE FRONT PANEL TEST (FPT) WITH A CROM PRIMER
PROGRAM, WHICH IS DOWNLINE LOADED FROM THE HOST TO THE RC25 VIA THE DUP

COMMAND ‘EXECUTE SUPPLIED PROGRAM''., THE CROM PRIMER IS RESPONSIBLE FOR
LOADING THE FRONT PANEL TEST INTO RC25 RAM SPACE, THEN PASSING CONTROL
TO IT. IF THE “EXECUTE SUPPLIED PROGRAM'' SUCCEEDS, THE HOST RESPONDS 8Y
ISSUING THE DUP COMMAND °'SEND DATA'’. THIS COMMAND TELLS THE FRONT PANEL
TEST THE LOCATION OF THE HOST / FPT COMMUNICATION AREa, A BLOCK OF HOST
MEMORY RESERVED FOR MUTUAL ACCESS.

THE FPT EXERCISES ONE PLATTER AT A TIME PER PASS, AND EACH FPT PASS
TAKES APPROXIMATELY S5 MINUTES. AT THE COMPLETION OF EACH FPT PASS, A
NEW SET OF STATISTICS IS LOADED INTO THE HOST COMMUNICATION AREA, AND
THE rPT GOES ON TO EXERCISE THE NEXT UNIT, IF THE HOST FAILS TO DETECT
A NEW SET OF STATS WITHIN A TIMED INTERVAL, THEN A DEVICE-FATAL ERROR
WILL BE DECLARED, AND ALL UNITS ASSOCIATED WITH THE (ONTROLLER WILL BE
DROPPED. OTHERWISE, THE UNIT NUMBER AND THE NUMBER OF BLOCKS
TRANSFERRED DURING THE FPT PASS WILL BE DISPLAYED TO THE USER (IF IN
ATTENDED MODE).

SEQ 0024
APPENDIX A ~ DATA PATTERNS

THERE ARE 21 PRE=DEFINED DATA PATTERNS SUPPLIED WITH THE MULTI-DRIVE
SUBTEST. THROUGH THE SOF TWARE QUESTIONS, YOU MAY CHOSE ANY ONE PATTERN
TO BE USED FOR_ALL WRITE OPERATIONS, OR_YOU MAY HAVE ALL PATTERNS USED
SEQUENTIALLY. THE ‘‘LBN'' APPEARING IN PATTERNS 17 = 21 REPRESENTS THE
STARTING BLOCK NUMBER OF THE CURRENT WRITE REQUESI.
HEX

RANDOM

NUMBERS

PATTERN 2

0000

000000

0 000 000 000 000 000

PATTERN 3

FFFF

177777

PATTERN &

8888

105613

1 000 101 110 001 011

PATTERN 5

3333

031463

0 011 001 100 110 o1

PATTERN 6

3091

030221

0 011 000 010 010 001

PATTERN 7

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

0 000 000 000

PATTERN 8

177776

OO Dbttt
el b b cd md

PATTERN 1

BINARY

OCTAL

140000
100000

000000

wd wch b

= b b b ed b b b b =d b DO
wdosd o cd cd e b ab b b b = O

OOOOO
b bt b cd
===l =l=] Oedabadad

OOOOOg
QOO0 (= 0O00O

===

=i=l=l=] QOO0

=t b ad
(=l =l OOOO

b ed cud b cd wd wd awd b

wub b b b b wd b = O

bbb
b e md b b =

—d b wd b b cubd aud ad ad

b b and end

b ad anh b wmb b b

bt cb e

b b b b wd ek =D O

b wd b b e —d O O

bbb
b = OOO

OO
St
bt mbad

00 Q)

177760
177740
177700
177600
177400
177000
176000
174000
170000
160000

L= =4 € b o b b b b od e wud b
(=] OO
bt bt
b b b

177774
177770

m mm

0C 000 000 000

SEQ 0025
a « [ — w a =z o

OrO-O
OO0 0
OO

OO
0
OOr OO
OO

—eer- 000 OO OO0 —ere OO~ OO O O OO~

PATTERN 12

00O OO e OOrrrOr
e
OO~ O
0~
O=0O—0O
OO0 OO0~
e r OO0~

PATTERN 11

1 011 011 011 011 001
133331

B6D9
PATTERN 10

PATTERN 13

O O—O
OO0 0
OO
e OO0 OO0 OO —0O
OO rrO0—0O=O—O
—O
0
r ~OOrOrO
OO
= = P NP NP 0P P NP P e P

[laa Al al alasalallallalallalsalalsaloa)

4= - 0
a < (o P w[+

6DB6

066666

0 110 116 110 110 110
[< 4 [
o~
a < o — w4

PATTERN 15

SEQ 0026

——OO0
rrO0000 e
OO0Or OO
—e OO0 mrrO0000 v

00
OO errrO0
O
erO000
QO
OO
0000
—_—rOO0O0rreermOOO000O
r e 0000
OO

o000rrrO0000—r—rer
~r—rrrvr
—rrO0000
—O00rrmr
—_—e OO0 e O0000

-l 3

PATTERN 19

1 000 110 100 110 110
106466

8036
PATTERN (8

- @ =z

PATTERN 17

SEQ 0027

SEQ 0028

-—000000

0 0000

000—O000 000

PATTERN 20

134631

8999
8999

043146
134631
134631
134631

LBN

L8N
4666

LBN

1 011 100 110 011 001

000 r~e—r-O0000—r—rr—r—r

PATTERN 21

8999

LBN

SEQ 0029
APPENDIX B = GLOSSARY

AZTEC - PROJECT NAME FOR THE R(C25

MASS STORAGE COMMUNICATION PROTOCOL (MSCP) = THE METHOD OF

COMMUNICATION USED BETWEEN THF HOST AND RC25 CONTROLLER.

DIAGNOSTIC MACHINE (DM) - AN INTERPRETER BUILT INTO THE RC25 FIRMWARE
THAT 1S USED TO EXECUTE RESIDENT OR DOWNLINE LOADED PROGRAMS.

INITIALIZATION SEQUENCE - THE SERIES OF COMMANDS EXECUTED TO BRING AN
RC2S ONLINE TO THE HOST. THiS SEQUENCE IS A STRICTLY-DEFINED SET OF
g?g? STEPS WHICH INFORMS THE DEVICE OF SUCH THINGS AS RING LOCATION AND

UNIT = A UNIT AS SEEN BY THE DIAGNOSTIC SUPERVISOR; THAT IS, A SINGLE
RC25 DISK PLATTER.

DRIVE-UNIT = A SINGLE RC25 DRIVE WITH A FIXED AND A REMOVABLE PLATTER
ON ONE SPINDLE.

UNIT NUMBER = A NUMBER BETWEEN O AND 15 INCLUSIVE WHICH IDENTIFIES A
PLATTER TO THE DIAGNOSTIC SUPERVISOR. UNIT NUMBERS ARE ASSIGNED

SEQUENTIALLY FROM 0 BY THE DIAGNOSTIC SUPERVISOR DURING THE HARDWARE
CONF IGURATION QUESTIONS. THERE IS NO RELATIONSHIP BETWEEN A DISK'S UNIT

NUMBER AND ITS PLATTER ADDRESS.

PLATTER ADCRESS = A NUMBER BETWEEN 0 AND 253 THAT UNIOQUELY IDENTIFIES
ONE RC2S PLATTER. THIS NUMBER IS ASSIGNED THROUGH THE UNIT PLUG ON THE
FRONT PANEL OF AN RC25. EVEN PLATTER ADDRESSES ALWAYS DESIGNATE THE
SEEEVABLE DISK AND ODD PLATTER ADDRESSES ALWAYS DESIGNATE THE FIXED

CUSTOMER DATA AREA (ALSO HOST APPLICATION AREA) - BLOCKS RESERVED ON AN
RC2S PLATTER FOR FREE USE BY THE CUSTOMER. THIS AREA EXCLUDES THE
DIAGNOSTIC TRACKS (DBN), THE FCT, THE RCT, AND RBN'S.
PROTECTED CUSTOMER DATA AREA = AN R(C25 PLATTER WHOSE CUSTOMER TRACKS
QEEIYSfiTE-PROTECTED BY THE USER THRCUGH THE HARDWARE CONF IGURATION

LBN (LOGICAL BLOCK NUMBER) - GIVEN THAT N IS THE NUMBER OF BLOCKS IN
THE HOST APPLIC/ TION AREA, LBN IS A NUMBER BETWEEN O AND (N - 1)
INCLUSIVE WHICH IDENTIFIES A SINGLE SUCH BLOCK.

CZRCD.EXE

Memory allocation map
11=-JuL-83

TKB M&0.02

08:48

SEQ 0030

Page 1

Partition name : DUMMY

Identification : v01.0
Task UIC
: 305,45]
Task attributes: =HD
Total address windows:

Task

1image

size

4720 words

Task address l1m1ts' 00200 073327

R-W disk blk Limits: 000002 000073 000072 00058.
v+ Root segment: CZRCD1

Limits: 002000 073327 071330 29400.
Disk blk Limits: 000002 000073 000072 00058.

R/W mem

Memory allocation synopsis:
Title

Section

. BLK.:(RW,I,LCL,REL,CON)
:
1,LCL,REL,CON)
(RO,DES
$CO

$FFF® :(RO,I,LCL,REL,CON)
$GGGS : (RO,I,LCL,REL,CON)

$PLITS: (RO,D,LCL,REL,CON)

$xvZ$ :(RO,I,LCL,REL,CON)

002000 000000 00000.
002000 040446 16678.
002000 006550 03432.
010550 011604 04996.
022354 017412 07946.
041766 000034 00028.
042022 000316 00206.
042340 00C106 00070.

Ident

File

CZRCD1
CZRCD?
CZRCD3
B816ABS
B16MUL
B16SAV

CZRCD1.08J;1
CZRCD2.08J:1
CZRCD3.08J;1
AZL18.0LB:1
AILIB.OLB:1
AZL18.0LB;1

042446 023714 10188. CZR(D1

CZRCD1.08J:1

066362 002616 01422. CZR(CD3 v01.0

CZRCD3.08J;1

071200 001716 00974. CZRCD2 v01.0
073116 000150 00104. CZRCD3 v01.0

CZRCD2.08J;1
CZRCD3.0BJ:1

073266 000040 00032. CZRCD4 v01.0

CZRCD4.0BJ;1

042446 023714 10188.

066362 002616 01422.

071200 002066 01078.

073266 000040 00032.

Global symbols:

ADR
BITO
8I1T00

8IT01
81702
81103
BIT04
BITOS
BIT06
81707
BI1T08
8IT09
sIm

000020
000001
000001

000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

BIT10
8IT11
gIT12

8IT13
8IT14
8IT1S
8IT2
8173
BIT4
8I17TS
8IT6
8117
BIT8

002000
004000
010000

020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

001000
8119
BLSABS 042010-R
BLSDIV 042246-R

BLSLAS 073266-R
BLSMOD 042260-R
BLSMUL 042022-R
BLSSGN 041766-R
BLSSHF 042272-R
000400
BOE
BUFF.D 065506-K
BUFF .0 066106-R
BUFF.S 066320-R
CCTLR 066260-R

CER.O1 004140-R
CER.02 004224=-R
CER.03 004270-R
CLK.CS 066330-R
CLK.HE 066326-R
(LK. IN 015020-R
CLL.TY 066324-R
(LK.VE 066332-R
015122-R
CPLAT 066262-R
062756-R
CPT
010442-R
CRLF
CRN
066360-R

042776-R
CST
CST.AD 043066-R
CTLR.C 066266-R

066264-R
043070-R
043200-R
010450-R
DMC.AD 043526-R
DM.COM 043206-R
DROP.
C 016324-R
DRV.CT 016430-R
DUM. CE 004420~R
DUM. HE 004470-R

CUOFF
DCT
DCT.AD
DFPTBL

DUM.IE 004450-R
DUM.UC 004376-R
DUM.UE 004526-R
DUM.00 004344-R
066270-R
DUR
DSPCNT 002122-R
EBD.10 005400-R
EBD 12 005444-R
005526~R
00
00
005766-R
006062-R

EBD.18 006160-R
EBD.19 006224-R
EBD.20 006264~R
EBD.21 006350-R
EBD.22 006436-R
EBH.31 006556-R
EBH.32 000402-R
EBH.34 006659-R
EBH.35 006674-R
EBH.36 006724-R
EBH.37 006750-R
EBH.38 007002-R
EBH.39 007022-R

CZRCD.EXE
CZRCDT

Memory allocation map Btzg M40.02

EBH.40 007060-R
EBH.41 007106-R
EBH.42 007126-R
EBH.43 007174-R

EBS.01 005332-R
EF .CON 000036
EF .NEW 000035
EF .PWR 000034
EF.RES 000C37
EF.STA 000040
EGD.10 004654-R
EGD.11 004714-R
EGD.12 004740-R
EGD.13 004766-R
EGD.14 005014-R
EGD. 15 005052-R
EGD.16 005104-R
EGD.17 005122-R
EGD.18 005152-R
EGD.19 005170-R
EGD.20 005210-R
EGD.21 005234-R
EGD.22 005260-R
EGH.30 005306-R
EGS.01 004556-R
EGS.02 004576-R
EMS.01 020746-R
EMS.10 021010-R
EMS.12 021056-R
EMS.13 021120-R
EMS.14 021172-R
EMS.15 021240-R
EMS.16 021306-R
EMS.17 021360-P
EMS.18 021422-R
EMS.19 021474-R
EMS.20 021542-R
EMS.21 021604-R
EMS.22 021672-R
EMS.30 021734-R
EMS.42 022104-R
EMS.43 022172-R
ENTRY. 066252-R
ENV.US 062302-R

11=-JuL-83

EOP.FL 066254=R
ERRBLK 002134-R
ERRMSG 002132-R
ERRNBR 002130-R
ERRTYP 002126-R
ETIME 010372-R
EVL
000004
007654~R
010012-R
010070-R
007744-R
007474-R
007636-R
007304~-R
007400-R
010150-R
007546-R
010262-R
010242-R
010306-R
EX.LBN 007720-R
007534-R
010356-R
010212-R
007616-R
007256-R
007440-R
007342-R
007514-R
007602-R
007626-R
066316-R

GP$17 011044~R
GP$18 011054-R
GP$19 011064-R
010634-R
GP$2
GP$20 0117102-R
GP$21 011114-R
010646-R
GP$3
010660-R
GP$4
010672-R
GPSS
010702-R
GP$6
010716-R
GP$7
010730-R
GP$8
010742-R
GP$S9
HARD.E 016544-R
HOE
100000
HOURS 066334-R
HWPT.B 010454-R
HWPT.1 010450-R
HWPT.P 010456-R
HWPT.V 010652-R
002136-R
HWQ1
002152-R
HWQ2
002162-R
HWQ3
002174-R
HWQ4
HWaS
002230-R
HWQ6
002314-R
010000
18¢
000040
10U
020000
IER
1IP.FL 066256-R
IN. 10D 016236-R
066206~R
10DQ
10DQ.1 066246-R
10D0Q.0 066250-R
IRC25. 043204-R
000100
ISR
004000
IXE
040000
LOE
000010
LOT
LSACP 002110-R
LSAPT 002036-R
015000-R
LSAU_
002070-R
$AUT
L
LSAUTO 014104-R

vee Task builder statistics:

Total work file references: 73128.
file reads: 0.
work
file writes: 0.
Wwork
Size of core pool: 5486. words (21. pages)

Size of work file: 3840. words (15. pages)
Elapsed time:00:00:23

SEQ 0031
Page 2

L$CCP 002106~R
LSCLEA 014314-R
002032-R
L$CO
LSDEPO 002011-R
LSDESC 010576-R
LSDESP 002076-R
LSDEVP 002060~R
LSDISP 002124=R
L$OLY 002116-R
LSDTP 002040-R
LSDTYP 002034-R
014710-R
LSDU
LSDUT 002072-R
LSDVTY 010550-R
002052-R
LSEF

LSENVI 002044-R

LSERRT 002126-R
LSETP 002102-R
LSEXP1 002046~R
LSEXP4 002064=R
LSEXPS 002066-R
LSHARD 010626-R
LSHIME 002120-R
LSHPCP 002016~-R
LSHPTP 002022-R
LSHRDL 010624-R
LSHW _ 010450-R
LSHWLE 010446-R
LSICP 002104-R
LSINIT 014072-R
LSLADP UG2026-R
LSLAST 073272-R
LSLOAD 002100-R
LSLUN 002074-R
LSMREV 002050~R
LSNAME 002000-R
LSNDHR 010712-R
LSNDHW 010460-R
LSNDSF 011134-R
LSNDSW 010540-R
L$PRIO 002042-R
LSPROT 010542-R
LSPRT 002112-R
LSREPP 002062-R

LSREV 002010-R
LSRPT 012236-R
LSSFTL 010714-R
LSSOFT 010716-R
LSSPC_ 002056-R
L$SPCP 002020-R
LSSPTP 002024-R
LSSTA 002030-R
LSSW _ 010484-R
LSSWLE 010462-R
LSTEST 002114-R
LSTIML 002014-R
LSUNIT 002012-R

MEM.MG 066255-R

MEM.SI 066314-R
MINUTE 066336-R
MSCP E 045502-R
MSG.U: 003466-R
MSG.(2 003520-R
MSG.03 003616-R
MSG.04 003636-R
MSG.0S 003670-R
MSG.06 003730-R
MSG.07 003772-R
MSG.08 004044-R
066356-R
NEX
NEX.TR 015010-R
003464-R
NULL
NUM.BU 066322-R
OCL.X1 044074-R
OCL.X2 044076-R
OF .RC (086352-R
OUTC.L 043574-R
OUTC.T 043674=R
0UT.10 016200-R
OVF.CH 016722-R
PATCH 042446-R
PLATT 010416-R
PNT
001000
PRI
002000
PRIOO 000000
000040
PRIOT1
PRIO2 000100
PRIO3 000140

PRIO4 000200
PRIO5S 000240
PR106 000300
PRIO7 000340
PUTA.B8 016136-R
.E 015600-R
PUT.EN 015564-R
.10 016052-R
PUT.RE 015746-R

066310~-R
Qlo0
RCINTO 037350-R
RCINTY 037366-R
RCINTZ 037406-R
RCINT3 037426-R
RC25.A 043202-R
RETPKT 062442-R
RPS.X1 043570-R
RPS.X2 043572-R
RP.ADD 065504-R
RP.IND 065502-R
RP.SAV 043530-R
RP.USE 065442-R
SA.REG 066354-R
58.C0D 066346-R
SECOND 066340-R
017170-R
SEND
SET.CP 015162-R
SET.UP 015356-R
SFPTBL 010464-R
STC.00 006542-R
STC.01 006556-R
STC.02 006602-R
STC.03 006626-R
STC.04 006650-R
STC.05 006674-R
STC.06 006724-R
STC.07 006750-R
STC.08 007002-R
STC.09 007022-R
STC.10 007060-R
STC.11 007106-R
066350-R
STEP
ST.COD 066344-R
003370-R
SwM1

SWP.DP
SWP.ER
SWP.ET

002576-R
002656-R
002700-R
002720-R
002736-R
003010-R
SWQ9
TALLY 044100-R
TICKS 066342-R
TSFREE 073322-R
TSPTHV 000002
T.ADDR 045500-R
T.FLAG 066253-R
022460-R
LA

000200
UAM
UPD.I0 016634-R
017434-R
WAIT
XFR.CH 016776-R
$END.L 073324-R
$SAVE2 0642340-R
$SAVE3 042354-R
$SAVE4L 042372-R
$SAVES 0642412-R

CZRCD

CREATED BY

ON 11-JuL-83 AT 08:48

TkB

ADR

000020
000001
000001
000002
000004
000010
000020
000040

Pt Pumg Grmg P
S

ol e e el

OO OHOODDODODDODDD

g Pum Prmp Pumg Pt Pumg Prmp Pond Py g
] o e
o = = 4d

[« SV PV
1,V - ed b b b b b O jole)
VIS WN=0O
O oo~

BITO
BIT00
81701
81702
BIT03

100000

000004
000010
000020
000040
000100
000200
000400
001000
042010-R
042246-R
C73266-R
042260-R
042022-R
041766-R
042272-R
000400
065506-R
066106-R
066320-R
066260-R
004140-R
004224-R
004270-R
066330-R
066326-R
015020-R
066324~-R
066332-R
015122-R
066262-R
042756-R
010442-R
066360-R

CZRCD
CZRCD1
CZRCD1
CZRCD1
(2PC01
CZR.D1
CZRCD1
CZRCD1
CZRCD1
CZR(D1
CZRCD1
CZRCD
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
C2RCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1

B16ABS
B816MUL
CZRCD4
B816MUL
B16MUL
B16ABS
B816MUL
CZRCD1

CZR(CD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD2
CZRCD1
CZRCD1
CZRCD2
CZRCD1
CZRCD1
CZRCD1
CZRCD1

CZRCD?
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD?2
CZRCD2
CZRCD2
CZRCD2
CZRCD?
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD?2
CZRCD3
CZRCD3
CZRCD3
CZRCD2
CZRCD3
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD?
CZRCD2
CZRCD2
CZRCD2

CZRCD2
CZRCD2
CZRCD3
CZR(D2
CZRCD?2
CZRCD2
CZRCD2

VALUE
t$3$3$T3T3T3T2T3IITITIT
S22 22 22 2 2 2 2 3 J

SYMBOL

GLOBAL CROSS REFERENCE

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZR(D3
CZRCD3
CZRCD3
CZRCD3
CZR(D3

CZRCD3
CZR(D3
CZRCD3
CZR(CD3
CZRCD3
CZRCD3

CZRCD3
CZRCD3
CZR(CD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3

SEQ 0032

CZRCD

CREATED BY

ON 11-JUL-83 AT 08:48

TkB

006160-R
006224-R
006264-R
006350-R
006436-R
006556-R
006602-R
006650-R
006674=R
006724-R
006750-R
007002-R
007022-R
007060-R
007106-R
007126-R
007174-R
005332-R
000036
000035
000034
000037
000040
004654=-R
004714=-R
006740-R

CZRCD?
CZRCD?
CZRCD2
CZRCD2
CZRCD2
CZRCD2

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3

CZRCD2
CZRCD2

CZRCD3
CZRCD3

CZRCD3
CZRCD3
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2

#
#
#
#
#

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD?

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2

CZRCD3
CZRCD3
CZRCD3

CZRCD3

005526-R
005604-R
005676-R

CZR(CDT
CZRCDY
CZRCD1
CZRCD?
CZRCDT
CZRCDT
CZRCD1
CZRCD1
CZRCDT
CZRCD2
CZRCD2
CZRCD1
CZRCD1
CZRCDY
CZRCDY
CZRCD?
CZRCD
CZRCD1
CZRCD1
CZRCDT
CZR(CD1
CZRCDT
CZRCD1
CZRCDY
CZR(DT
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1T
CZRCD1
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZR(D1
CZR(D1
CZRCDY

042776-R
043066-R
066266-R
066264~R
043070-R
0643200-R
010450-R
043526-R
043206-R
016324-R
016430-R
004420-R
004470-R
004450-R
004376-R
004526-R

¢St
CST.AD
CTLR.C
CUOFF
DCY
OCT.AD
DFPTBL
DMC.AD
OM. COM
DROP.
C
DRV.CY
DuUM.CE
DUM.HE
DUM.IE
DUM.UC
DUM.UE
DUM.00
DUR
DSPCNT

REFERENCES...

L2 2

VALUE

RV RRRRRRRRRRRRRRRRR
R
RS

SYMBOL

PAGE 2
CREF

GLOBAL CROSS REFERENCE

CZRCD3
CZR(D3
CZRCD3
CZRCD3
CZRCD3

SEQ 0033
Vo1

1
CZRCD

CREATED BY

TkB

ON 11-JUL-83 AT 08:48

CREF

GLOBAL CROSS REFERENCE
VALUE

EGD.13
EGD.14
€GD.15
EGD.16
EGD.17
€GD.18
€GD.19
€GD.20
EGD.21
€GD.22
EGH.30
EGS.01
EGS.02

004766-R
005014~R
005052-R
005104~R
005122-R
005152-R
005170~R
005210-R
005234-R
005260-R
005306-R
004556=-R
004576-R
020746-R
021010-R
021056-R
021120-R
021172-R
021240-R
021306-R
021360-R
021422-R
021474-R
021542-R
021604-R
021672-R
021734-R
022104-R
022172-R
066252-R
062302-R
066254-R
002134-R
002132-R
002130-R
002126-R
010372-R
000004
007654-R
010012-R
010070-R
007744-R
007474-R
007636-R
007304-R
007400-R
010150-R
007546-R
010262-R
010242-R
010306-R
007720-R

REFERENCES...

CZRCD1
CZRCD
CZRCDT
CZRCD1
CZRCDT
CZRCDT
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZRCD1
CZRCD1T
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD1
CZRCD1
CZRCDT

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD2
CZRCD2

CZRCD1
CZRCDT
CZRCD1
CZR(CD1
CZRCD
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
C2xCD1
CZRCD1
CZRCDT
CZR(D1
CZRCD1

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD3
CZRCD2
CZRCD3
CZRCD3
CZRCD3
CZRCD2

RNV

SYMBOL

CZRCD1
CZRCD1
CZRCD1
CZRCDT

PAGE 3

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZR(D3
CZRCD3
CZRCD3
CZRCD2
CZRCD2
CZRCD2

CZRCD3
CZRCD3
CZRCD3

# CIRCD3

CZRCD3

vO1

SEQ 0034

CREATED BY

CZRCD

Tk8

ON 11-JUL-83 AT 08:48

REFERENCES...

010454-R
010450-R
010456-R
010452-R
002136-R
002152-R
002162-R
002174-R

002230-R
002314-R
010000
000040
020000

CZRCD2
CZRCD2
CZRCD3
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZR(D2
CZRCD2
CZRCD3
CZRCD3
CZRCD3

CZRCD3

CIRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2

C2RCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD
CZRCD
CZR(D1
CZRCDY
CZRCD1
CZRCD1
CZRCDT
CZRCDT

CZRCD3
# CZRCD2
CZRCD2

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
# CZRCD2
# CZRCDZ
# CZRCD2

# CIR(D3

CZRCD3

[« X o
(]

O
[
020

G
N

b
b
b
b

b b b =o0
N) =

b
b

b () b

d =D
b
b

034-R
044-R
054-R

o—

(elelelelelalolelele]

007602-R
007626-R
066316-R
015454-R
015762-R
015640-R
011022-R
010626-R
010750-R
010760-R
010766-R
011000-R

CZRCD1
CZRCDT
CZRCD1
CIRCDT
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD2
CZRCD2
CZRCD2
CZRCD2

L X X

007534-R
010356-R
010212-R
007616-R
007256=R

RNV
RRRRRR
RS

VALUE

PAGE &

CREF

GLOBAL CROSS REFERENCE

CZRCD3
CZRCD3
CZRCD3

SEQ 0035

VOl

CZRCD

CREATED BY

ON 11-JuUL-83 AT 08:48

TkB

CREF

GLOBAL CROSS REFERENCE

LSNDHR

002032-R
002011-R
010576-R
002076-R
002060-R
002124-R
002116-R
102040-R
002034-R
014710-R
002072-R
010550-R
002052-R
002044-R
002126-R
002102-R
002046-R
002064-R
002066-R
010626=-R
002120-R
002016-R
002022-R
010624=-R
010450-R
010446-R
002104-R
014072-R
002026-R
073272-R
002100-R
002074-R
002050-R
002000-R
010712-R

CZRCD2
CZRCD3
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2

CZRCD3

L2
2 X J

L2
2 2 J
L]

BN
R
B
AR

002110-R
002036~-R
015000-R
002079-R
014104-R
002106~R
014314-R

RRRER

ISR

IRC2S.

CZRCD1
CZRCD?2
CZRCDT
C2RCDY
CZRCD1
CZR(DT
CZRCD
CZRCD1
CZRCDY
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZReD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZRCDY
CZRCDT
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZRCD?2
CZRCD1
CZRCD1
CZRCD1
CZRCD1
CZR(CD1Y
CZR(D1
CZRCD1
CZRCD1
CZRCD1
CZRCDM
CZRCC?2

066256-R
016236-R
066206-R
066246-R
066250-R
043204-R

AR RRR

I11P.FL
IN.10D
10DQ
100Q.1
100Q.0

REFERENCES...

VALUE

RRVR]

SYMBOL

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3

CZRCD2

# CZRCD2

CZRCD2

CZRCD3

# CZRCD2
# CZRCD2

CZRCD2
CZRCD3

# CIRCD2

CZRCD4

CZRCD2

CZRCD3

SEQ 0036

PAGE 5
vO1

CZRCD

CREATED BY

TkB

ON 11-JUL~83 AT 08:48

GLOBAL CROSS REFERENCE
SYMBOL

VALUE

REFERENCES...

LSNDHW
LSNDSF
LSNDSW
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
LSRPY
LSSFTL
T
LSSOF
LSSPC
LSSPCP
LSSPTP
LSSTA
LSS
LSSWLE
LSTEST
LSTIML
LSUNIT

010460-R
011134~R
010540-R
002042~R
010542-R
002112-R
002062-R
002010-R

# CZRCDI
# CZRCD2
# CZRCD1
# CZRCDI
# CZRCD1
# CZRCD?
# CZRCD1
# "ZR(DI

ocL.x1
OCL.X2
OF .RC
ouTC.L
ouTC.T
ouT.lI0
OVF.CH
PATCH
PLATT
PNT
PRI

PRIOO
PRIO1
PRI02
PRIO3
PRI04

002000
000000
000040
000100
000140
000200

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD3
CZRCD3
CZRCD2
CZRCD2
# CZRCD2
# CZRCD2
# CZRCD2
# CZRCD2
# CZRCD2
# CZRCD2
# CZRCD2

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3

CZRCD3

CZR(CD3
3

NULL

NUM.BU

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD2
CZR(CD3
CZRCD2
CZRCD3

NEX
NEX.TR

# CZRCD2

MSG.04
MSG.05
MSG.06
MSG.07
MSG.08

# CZRCD?

MSG.01
MSG.02
MSG.03

002056-R
002020-R
002024~R
002030-R
010464-R
010462-R
002114-R
002014-R
002012-R
066255-R
066314-R
066336-R
045502-R
003466-R
003520-R
003616-R
003636-R
003670-R
003730-R
003772-R
004044-R
066356-R
015010-R
003464=-R
066322-R
044074-R
044076-R
066352-R
043574-R
043674=R
016200-R
016722-R
042446-R
010416-R
001000

ZRCD1
# CZRCD2
CZRCD1
# CZRCD1
# CZRCD?
# CZRCDI
# CZRCD1
# CZRCD?
# CZRCD1
# CZR(D1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZR(D1
# CZR(CD1
# CZR(D1
# CZRCD1
# CZRCD1
# CZR(D1
# CZRCD?2
# CZRCD1
# CZRCD1
# CZRCD1
# CZR(D1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD2
# CZRCD2
# CZRCD1
# CZR(D1
# CZRCDY
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CIRCD1
# CZIRCDT

L2 2

MEM.MG
MEM.SI
MINUTE
MSCP.E

012236-R
010714-R
010716-R

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZR(CD3
CZR(CD3

SEQ 0037

CZRCD

CREATED BY

TkB

ON 11-JUL~83 AT 08:48
vO1

GLOBAL CROSS REFERENCE

PRIOS

000240
000300
000340
016136-R
015600~-R
015564-R
016052-R
015746-R
066310-R
037250-R
037366-R
037406-R
037426-R
043202-R
062442-R
043570-R
043572-R
065504-R
065502-R
043530-R
065442~R
066354-R
066346-R
066340-R
017170-R
015162-R
015356-R

PRI106
PR107

PUTA.B
PUTA.E
PUT.EN
PUT.IO0
PUT.RE
QI0

RCINTO
RCINT
RCINT?
RCINT3
RC25.A
RETPKY

RPS.X1
RPS.X2

RP.ADD
RP.IND
RP.SAV
RP.USE

SA.REG
s8.C0D
SECOND
SEND
SET.CP
SET.UP
SFPTBL
STC.00
STC.01

STC.02
STC.03
STC.04
STC.05
STC.06
STC.07
STC.08
STC.09
STC.10
M1
STc.

STEP
ST.COD
SWM1
SWP.DP
SWP.ER
SWP.ET
SWP.FL
SWP.ST
SWP.UC
SwP.UD
SWP.XF

swal

010464-R

006542-R
006556-R
006602-R
006626-R
006650-R

007022-R
007060-R
007106-R
066350-R
066344-R
003370-R
010475-R

C10464-R

010472-R
010474-R
010470-R
010476-R
010500-R
010466-R
002414-R

REFERENCES...

CZRCD1
CZRCD1
CZRCDY
CZRCD2

# CZRCD2
# CZRCD2
# CZRCD2
CZRCD3

CZRCD2
CZRCD2
CZRCD2
CZRCD1
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCDT
CZRCDZ
CZRCD2
CZRCD2
CZRCD1
CZRCDT
CZR(CD1
CZRCDT
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCD1
CZRCD1T
CZRCD1
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZRCD1
CZRCD1
CZRCDT
CZRCD1
CZR(D1
CZRCD1
CZR(D1
CZRCD1
CZRCD1

CZRCD3
CZRCD3
CZRCD3
CZRCD2

RRRRRRRRRRRRRRUw RN

VALUE

SYMBOL

CZRCD2

SEQ 0038

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZR(D3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD2
CZRCD2
CZRCD2
CZRCD3
CZRCD2
CZRCD2
CZRCD2
CZRCD?
CZRCD3
CZRCD3
CZRCD2
CZRCD2

# CZRCD3
# CZRCD3
# CZRCD3

CZRCD3

CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3
CZRCD3

CZRCD3
CZRCD3

CZR(CD3
CZRCD3
CZRCD3

CZRCD

CREATED BY

TkB

ON 11-JUL-83 AT 08:48

SYMBOL

VALUE

Swa10
Swa1l
Swa1?
Swa13
Swals
swais
SwQ2
swa3

003024-R
003100-R
003144-R
003176-R
003274-R
003352-R
002452-R
002530-R
002576-R
002656-R
002700-R
002720-R
002736-R
003010-R

SWQ4

SWas
SWa6
Swa?
Swa8
Swa9

TALLY

T1CKS
TSFREE
TSPTHV
T.ADDR

T.FLAG

T
UAM
UpPD. 10
WAIT
XFR.CH
$END.L

$SAVE?
$SAVE3
$SAVES
$SAVES

044100-R

066342-R
073322-R
000002
045500-R
066253-R
022460-R
000200
016634-R
017434-R
016776-R
073324-R
042340~R
042354-R
042372-R
042412-R

PAGE 8
CREF

GLOBAL CROSS REFERENCE
REFERENCES...

# CZRCD1
# CZRCD1
# CZRCD1
# CZRCDI
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCDI
# CZRCDT
# CZRCDY
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1
# CZRCD1

CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD?
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2
CZRCD2

CZRCDY1

# CZRCD4
CZRCD2

# CZRCD4

# CZRCDT
# CZRCDT

CZRCD2

CZRCDY
CZRCD2
CZRCD2
CZRCD2

# CZRCD3
# CZRCD2
CZRCD3
CZRCD3
CZRCD3

B16MUL
# B16SAV
# B16SAV
B16MUL

# BI16SAV
CZRCD2
CZRCD2
# B16SAV

#
#
#
#

CZRCD1

# CZRCD4

CZRCD3
CZRCD3

CZRCD3
CZRCD3
CZRCD3

CZRCD?
CZRCD3
CZRCD3
CZRCD2

SEQ 0039

CZRCD3
CZRCD3

vO1

!'tttt'iit'tittttt'tttt'tttttt'tttttfitttt'tttttttttttttfiti'fi.tt""t.t"..fi'ttt

LITERALS

Etttttttttttttt'ttt'tttttttttttttttttttttttttttttttttQtttttttttttt'tttttttttttt
]

gltenAL
g...... HARDWARE LIMITS AND PARAMETERS

MAX_CTLR

)

MAX_UNITS
MAX_TRACK
MAX_SECT
SEC_PER_TRK

BLK_SIZE

=4,

! MAXIMUM NUMBER OF RC2S5 CONTROLLERS ALLOWED

= MAX_CTLR * &,
= 1647,

i MAXIMUM NUMBER OF UNITS TO TEST
i LARGEST TRACK NUMBER IN HOST AREA

= 512,

i NUMBER OF BYTES PER SECTOR

= 30,
= 31

i LARGEST HOST SECTOR NUMBER IN EACH TRACK
i NUMBER OF HOST SECTORS PER TRACK

g...... U/Q PORT RING SIZES
CR_LOG

)

RRTMLOG
CRING_LEN
RRING_LEN

= 3,

=3,
=1 * CR_LOG,
= 1 ~ RRCLOG,

! LOG2 LENGTH OF COMMAND RING

i L0G2 LENGTH OF RESPONSE RING
! COMMAND RING LENGTH
i RESPONSE RING LENGTH

§~~«'-~ TABLE AND OTHER STRUCTURE SIZES

)

HWPT_LEN
COMMTMLEN
csT_CEN

' SIZE (WORDS) OF HW P-TABLE
=4,
* 2) + 4, ! SIZE (WORDS) OF U/Q PORT COMM AREA FOR ONE CTLR
(CRING_LEN
+
2)
*
(RRING_LEN
=
' SIZE (WORDS) OF A CONTROLLER STATUS TABLE
=7,

1003 LEN
MSG_CEN
ENV_LEN
DCT_LEN
BST_LEN

= MAX_CTLR * RRING_LEN,
= 30,
= MSG_LEN + &,
=9,
= 2,

TALCY_LEN
RP_LEN
RPS_LEN

RDM_LEN

DEST_LEN
omMc_CEN
RP_TNT
MAX_UDP_CNT
MAX_BUF ~CNT

ENV_CNT

ouTT _CNT
oP_CRT

= 24,
= 24,
= CRING_LEN,

i SIZE (WORDS) OF A UNIT'S STATISTICS TABLE
' SIZE (WORDS) OF A RETURN PACKET
i SIZE (BYTES) 0F A CONTROLLER'S RETPKT SAVE AREA

= 16,

i SIZE (WORDS) OF THE RANDOM NUMBER TABLE

! NUMBER OF ENTR.ES IN I/0 DONE QUEUE (10DQ)
i SIZE (WORDS) OF AN MSCP MESSAGE (TEXT PORTION)
" SIZE (WORDS) OF AN MSCP ENVELOPE
i SIZE (WORDS) OF A DRIVER CONTROLLER TABLE
i SIZE (WORDS) OF A UNIT'S BLOCK SEQ TABLE ENTRY

i SIZE (WORDS) OF AN I/0 BUFFER DESCRIPTOR
= 2,
i SIZE (WORDS) OF DM_COMM AREA FOR ONE CONTROLLER
= 26,
= MAX_CTLR * RRING_LEN, ! NUMBER OF RETURN PACKETS IN POOL
i MAX SIZE (WORDS) OF USER DATA PATTERN
= 16,
= (CRING LEN * 2) « MAX CTLR, ' MAX NO. OF 1/0 BUFFERS (SIZE OF BUFF_DESC AND BUFF_OWN)

= ((CRING LEN * 2) + RRING_LEN) * MAX CTLR, ' NO. OF MSCP ENVELOPES TN POOL
= CRING_LEN = 2,
= 21,

" RUMBER OF ERTRIES IN A CONTROLLER'S OUTSTANDING CMD LIST
i NUMBER OF PRE-DEFINED DATA PATTERNS

=3,

! WORD OFFSET FROM START OF CST TO FIRST UNIT

ieewsee OFFSETS
[]

;

OF _UN

;...... SW P-TABLE FLAGS (SWP_FLAGS)
'

SWF_SEL
SWF_DM

= %0'1°
= %0°'2°,

! SUPPRESS PRINTING ERROR LOG MESSAGES
i RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST

SWF-CRC

= %0'10

i READ-COMPARES AT CONTROLLER

SWF-RDM

SWF-WO

= 20'4'.
= %0°'20°,

i RANDOM SEEK MODE
! WRITE ONLY

SEQ 0040

SWF _CWC
SWF “HWC
SWF “UDP
SWF “PHWC
leneeee
'

leeetee
[

DU_ CONF

DUCINIT
DU_HERR
DU_FATAL

]

TOZDM

[

44
IX2222
[

leeenee
1

WR_RING
QID_PER_CTLR
ED_OWN

[

i INITIALIZATION ERROR
i HARD ERROR LIMIT REACHED
| UNRECOVERABLE DEVICE ERROR

i CONFIGURATION ERROR

= 120,
= 30,
= 300,

= 360,

' INIT SUBTEST COMMANDS
i DUP COMMANDS
i 1/0 TRANSFER COMMANDS

i ONE FPT PASS (DM EXERCISER SUBTEST)

= 2,

' NUMBER OF HARD INIT ATTEMPTS BEFORE FAILURE IS ASSUMED

= ((%0°200') OR (CR_LOG * 3) OR (RR_LOG)), ' USED IN HARD INIT SEQUENCE
! MAXIMUM NOMBER OF OUTSTANDING QIOS PER CONTROLLER
CRING_LEN « 2,
= %0'100000°,

! OWNERSHIP BIT

=0,
=1,

= 2,
= 3,

! DISK MSCP
! TAPE MSCP

! PIAGNCSTIC AND UTILITIES PROTOCOL
! EXERCISER 'DRIVER"

MESSAGE TYPE VALUES

MT_SEQ
MT_DG
MT_CRD
MT_FATAL
MT_TIMEOUT
lenneen

= 2.
= 3,
=4,

CONNECTION ID VALUES (MSCP_ENV, RETPKT)
(SERVE AS SOURCES AND DESTINATIONS OF MSCP MESSAGES)

cID_DuP
CID_DRIVER

]

! USER COMMAND

MSCP ENVELOPE DESCRIPTOR

CID_DISK
CID_TAPE

Tensene

= 0,

=1,

MISCELLANEOUS LITERALS

INI_ATT

START
RESTART
CONTINUE
POWER FAIL
NEW PASS

!
i
i
i
i

TIMEOUT VALUES (IN SECONDS)

TO_INIT
TO_DUP
10_10
fecenen

=1,
= 2.
= 3,
=4,
=5,

DROP UNIT REASONS (LOADED INTO DUR VECTOR)

DU_USER

leeneee

WRITE-COMPARES AT CONTROLLER
WRITE-COMPARES AT HOST
USER=DEFINED DATA PATTERN
HOST WRITE COMPARES (BIT POSITION)

!
i
i
i

ENTRY_REASON VALUES (HOW CURRENT PASS WAS INVOKED)
START
RESTART
CONT
PWR_FAIL
NEW_PASS

= 30°40°,
= %0'100°%,
= %0°'200°,
= %0'6’,

=0,
=1,
= 2,
= 3,
=4,

!
!
!
!
!

SEQUENTIAL (FROM PORT)
DATAGRAM (FROM PORT)

CREDIT NOTIFICATION (FROM PORT)
FATAL DEVICE ERROR (FROM ‘'DRIVER'")
COMMAND TIMEOUT (FROM ‘DRIVER'")

MSCP COMMAND PACKET OPCODES

oP_SCC

OP_ONL

= %0'4°,

= %0'11°,

! SET CONTROLLER CHARACTERISTICS COMMAND

! ONLINE COMMAND

SEQ 0041

OP_ACC
OP_RD
OP_WRT
OP_MSK
OP_END

= %0'20°,
= 10°41',
= %0'42'
= %0'177¢,
= %0'200°,

!
i
i
i
i

ACCESS COMMAND
READ COMMAND
WKITE COMMAND
OPCODE MASK
ENDCODE DESIGNATOR

g...... DUP COMMAND OPCODES
OP_ESP

OP_SND

= %0°'2°,

= 04",

| EXECUTE SUPPLIED PROGRAM
i SEND DATA

§""" MSCP COMMAND MODIF IERS

MD_EXP

MD_CMP

‘

= %0'100000°,
= %0°40000*,

! EXPRESS REQUEST
i COMPARE

g--~"- MSCP ERROR LOG MESSAGES = FORMAT FIELD CODES
FM_CNT

FM_BAD
FM_SDE

= 0,

=1,
=4,

! CONTROLLER ERROR

i HOST MEMORY ACCESS ERROR
| SMALL DISK ERROR

%...... CONTROLLER FLAGS (IN SET CONTROLLER CHARACTERISTICS COMMAND)

CF_MSC

)

CFTHS

= %0°100°',
= %0°'20°,

! ENABLE MISCELLANEOUS ERROR LOG MESSAGES
I ENABLE THIS HOST'S ERROR LOG MESSAGES

§'-~~'- UNIT FLAGS (IN ONLINE RESPONSE)
UF _WPH

= %0°20000°,

! WRITE PROTECT (HARDWARE)

g...... STATUS / EVENT CODE DEFINITIONS
)
.

ST_SUC
ST-OFL
STDAT

= %0'0°,

= 0°'3°,
= %0°10°,

' SUCCESS

" UNIT OFFLINE
i DATA ERROR

g.'.... END MESSAGE FLAGS
;

EF_BBR

= %0°'200°,

! BAD BLOCK REPORTED

=0,

' IP REGISTER

g...... RC25 LITERALS
'

‘

g
'

;

RCIP

RCSA

i SA REGISTER

SA REGISTER BIT DEFINITIONS
SA_S1

= %0°004000°,

' STEP 1 STATUS BIT

SA_INT
SA_GO

= %0°'000200°,
= %0°'000001°,

" INTERRUPT ENABLE DURING INITIALIZATION
i GO BIT TO START FIRMWARE

SA_S2
SA_S3
SA_S&
SA_ERR

= %0'010000°,
= %0°'020000°,
= %0°'040000°,
= %0°100000°.

INITIALIZATION SEQUENCE READ MASKS

Vs 2
i3
Py &
i ERROR INDICATOR

SEQ 0042

SEQ 0043

S1_MASK
S2MASK
_MASK
$3”
S&_MASK

= %0'176000°,
= %0'174377".
= ¥0°174377°,
= ¥0'174000°.

STEP 1 READ BITS
:
v

3
&

Levaers MEMORY MANAGEMENT (KT=11) REGISTER LOCATIONS

KTPDRO
KTPDR1
KTPDRZ
KTPDR3

=
=
=
=

KTPDRS
KTPDR6
KTPDR?
K TPARQO
KTPAR1

= %0°172312°,
= Y0'172314°,
= %0°172316°,
= Y0°'172340°,
= %0°172342".

KTPDR4G

KTPAR?

KTPAR3
KTPARSG
KTPARS
KTPARG

KTPAR7
MMRO
MMR3

lestene
]

= $0°172310°,

PAGE ADDRESS REGISTERS

= %0°172344",

= Y0°'172346°,
= %0°172350°,
= %0°'172352°.
= %0°172354°,

= %0° 172356'.
= %0°177572°,
= %0°172516°,

YES
NO
TRUE

=1,
=0,
=1,

SUCCESS
FAILURE
FOUND
NOT _FOUND
PRESENT
NOT PRESENT
UNPROTECTED
PROTECTED
ONL INE
OFFLINE

=1,
= 0,
=1,
=0,
=1,
= 0,
=1,
z 0,
=1,
=0,

ALL_ONES

! PAGE DESCRIPTOR REGISTERS

MEMORY MANAGEMENT REGIST ER 0
MEMORY MANAGEMENT RE GISTER 3

LITERALS FOR READABILITY

FALSE

feeeene

%0°172300°,
%0°'172302°',
%0'172304°,
20°172306°.

=0,

= %0°177777°,

CLOCK FLAGS FOR CLK_TYPE
NO_CLOCK

L _tLock

CLOCK

= -1,
=1;

PLATTER IS PRESENT IN CONTROLLER
PLATTER [S NOT PRESENT IN CONTROLLER
PLATTER HAS UNPROTECTED CUSTOMER LBN S
PLATTER HAS PROTECTED CUSTOMER LBN'S

!"tt'tttttttttt'lttt'ittt'tt'i"t.."."'.t.."'.tt.ittt.tl."""tt'titt'ttt'

;

FIELDS

E"'ttttttQtttttttttt'ttttttttittttt.t'ttt"'.tttttttttttt't't'tt"tttfi.ttt'ttt
1

FIELD

g--'-~' HARDWARE P-TASLE FIELDS
RUP_FIEL22T=
HWP_IP_ADDR
HWP_VETTOR
HWPBR_LEVEL
HWP_PLAT
HWP_PLAT_ADDR

?gg PLAT-CP

= [0,
= {1,
= [2.
= [3,
= (3.

0,
0,
0,
0,
0,

16, 01,
16, 0],
16, 0],
16, 03,
8, 0]

= (3. 18, 1, 0]

IP ADDRESS
VECTOR ADDRESS
BUS REQUEST LEVEL
PLATTER (ALL FIELDS)

!
i
!
i
i

PLATTER ADDRESS (MSCP UNIT NO.)

i PROTECT CUSTOMER DATA BIT

]

feseass U/Q PORT COMMUNICATION AREA HEADER FIELDS

COM_FIELDS =
SET

ADAP_CH

= [1, 8. 8, 03

§gg INT

= [3.

CMD_INT

= [2. 0, 16, 03,
0, 16, 0]

| ADAPTER CHANNEL NUMBER FOR PURGES

i COMMAND RING INTERRUPT

i RESPONSE RING INTERRUPT

%...... CUNTROLLER STATUS TABLE (CST) FIELDS

C_FIELDS =

SET

1P _ADDR
VET ADDR

STATE

BR_LEV

' IP ADDRESS
! VECTOR ADDRESS

= (2. 0,°8,°0],

i BUS REQUEST LEVEL

= (1. 15,71, 03,

i CONTROLLER STATUS

= (2. 8. 8, 03,

i NUMBER OF TESTABLE UNITS UNDER THIS CONTROLLER

P1_ALL
P1-ADDR
PITUNIT

= [3, 0, 16, 0],
= [3. 0. 8, 0],
= (3. 8. 5. 0],

' 1ST PLATTER (ALL FIELDS)
i 1ST PLATTER ADDRESS (MSCP UNIT NO.)
i 1ST PLATTER UNIT NUMBER (DRS UNIT NO.)

P1-PRES

= (3. 1%, 1. 01,

i 1ST PLATTER PRESENT BIT

U_CNT

P1STAT

= [0, 0, 16, 03,
= [1, 0, 9, 0]

P1-PROT

= (3. 15,71, 03.
= [3. 15, 1. 0]

" 1ST PLATTER STATUS BIT

i 1ST PLATTER PROTECT CUSTOMER DATA BIT

i
:

THE REMAINING C_FIELDS ARE NOT REFERENCED DIRECTLY, BUT RATHER WITH OFFSETS
AND MACRCS. THE FIELDS ARE DEFINED HERE ONLY FOR DOCUMENTATION PURPOSES.

i
i
;

P2_ALL
P2-ADDR
P2TUNIT

= [4, 0. 16, 0],
= [4, 0, 8, 0],
= (4. 8. 5. 0]

' 2ND PLATTER (ALL FIELDS)
i IND PLATTER ADDRESS (MSCP UNIT NO.)
i IND PLATTER UNIT NUMBER (DRS UNIT NO.)

i
i

P2_PRES
P2-PROT

= [4. 14, 1. 03,
= (4. 15. 1. 01,

i IND PLATTER PRESENT BIT
i IND PLATTER PROTECT CUSTOMER DATA BIT

i
i

P3_ALL
P3-AVDR

P2-STAT

= (4. 15,71, 03,

=[5, 0, 16, 0],
= 5. 0, 8, 03,

i 2ND PLATTER STATUS BIT

I 3RD PLATTER (ALL FIELDS)
i 3RD PLATTER ADDRESS (MSCP UNIT NO.)

SEQ 0044

LI
I Y

bl in
—d

ddlds
o

3RD PLATTER STATUS BIT
3kD PLATTER PRESENT BIT

3RD PLATTER PROTECT CUSTOMER DATA BIT
4TH PLATTER (ALL FIELDS)
4TH PLATTER ADDRESS (MSCP UNIT NO.)
4TH PLATTER UNIT NUMBER (DRS UNIT NO.)

(=l

OOOLILIO

°
9

3RD PLATTER UNIT NUMBER (DRS UNIT NO.)

4TH PLATTER STATUS Bl:

OOO0OW

ALY,
)
%
@

V0D
bt & TN

b b

YY"
Y « Y« JES B SV Y, )

o
&
&
a

NSNS
v o
.
&
°

TES.

PG _ALL
P4 TADDR
P, UNIT
P4 STAT
P4_PRES
P4 PROT

nlanlsisnisnlon BN anlan Lol e

[

P3_UNIT
P3ISTAT
P3-PRES
P3-PROT

[o Yo Yo Yo Yo Yo SRV, [V, [V, IV ]

[

4TH PLATTER PRESENT BIT

4TH PLATTER PROTECT CUSTOMER DATA BIT

ieveves MSCP ENV ELOPE FIELDS

(NOTE: THE FIRST TWO WORDS OF AN MSCP ENVELOPE (ITS BASE
ADDRESS) CONTAIN THE ENVELOPE'S OWN DESCRIPTOR, RATHER THAN THE
MESSAGE BODY (TEXT ¢ 0). THE MESSAGE BODY BEGINS AT WORD &.

i
i

E_FIELDS =
SET

OOn

o
&
&

OO0

(W] W]A

Qo
& &-

VIdse
.

VvV

COMMAND REF NUMBER (LO ORDER)
COMMAND REF NUMBER (HI ORDER)

O
8
&

PLATTER ADDRESS (MSCP UNIT NUMBER)
OPCODE AND ENDCODE
COMMAND MODIFIERS

JIELDS (FOR COMMAND AND END PACKETS)
BYTE COUNT (LO ORDER)
BYTE COUNT (HI ORDER)
1/0 BUFFER DESCRIPIOR

B
&
%

LOGICAL BLOCK NUMBER (LO ORDER)
LOGICAL BLOCK NUMBER (HI ORDER)

0l.
01,
01,
=lelolalelalsl

IR
NI

b
b
b
el enh
—d

(o Yo Yo Yo Ne Yo Xo Yo Jo No

b
b
b wd

0
8
&
&
8%
&
®
T

SR~

OO0V OOOC OO

8
&
%
%
%
%

DESCRIPTOR (LO ORDER)
DESCRIPTOR (HI ORDER = ALL FIELDS)
DESCRIPTOR (HI ORDER UNIBUS BITS)
DESCRIPTOR (K] ORDER Q-BUS BITS)
DESCRIPTOR FLAG BIT
DESCRIPTOR OWNERSHIP BIT

MESSAGE LENGTH
CREDITS
MESSAGE TYPE
CONNECTION 1D

OOO00O0

ENVELOPE
ENVELOPE
ENVELOPE
ENVELOPE
ENVELOPE
ENVELOPi

SN
= =2

WiroOO - = NO OO

8
s
8
8
8
8
&
%
*®
6
%
&
9
*

VOO NV
NN —=O

d ed el ed b
-

COMMAN

Lan Lan Lo Lam Lan Tan T Ton T

b b =d

READ, WRITE, AND ACCES

MODIFY

PL_ADDR
oPTODE

T )
DOO [« XV,

CRN_LO
CRN_HI

L e Lo Lom Lo Lgnm }

GENERIC COMMAND PACKE

(on lononanlanlanlonlasleslesl

CONNID

CREDITS

MSGTYP

mMSGLEN

ENV_LO
ENV_HI
ENV-U
ENV_Q
ENV_F
ENVCO0

nnn

HEADER FIELDS

SET CONTROLLER CHARACTERISTICS COMMAND FIELDS
C_FLAGS

= [11, 0, 16, 01,

CONTROLLER FLAGS

SEQ 0045

SEQ 0046

[ )

-—h

(18,

DDPAR

ONLINE COMMAND FIELDS

DEVICE-DEPENDENT PARAMETERS

OVERLAY BUFFER DESCRIPTOR

bd A A

b A A L

EEEEE
IR

e Al Wl )

[elelelelelelelelelelelalale]

b
S

EIEEIIERIEIEIEIR)
N

BYTE COUNT (LO ORDER)
BYTE COUNT (HI ORDER)
BUFFER DESCRIPTOR

b —bd
b el and and

b cd

b ad el

)

(o Yo Yo Yo Yo Yo No Yo Xo To o o Yo Jo )

[elelolalololalelolalalelel
o)

NSO
OO
R IR

%S
%
&
&
%
%
%
%

W= OV

[

VIS W

=20 NS W

(o o Lon {on I on Lon [ an lan {on [ lan [an | an o

POPININ)
b b b b ared ced b e o aud

NOWVES WO

ODUP COMMAND FIELDS

ERROR LOG MESSAGE FIELDS
FORMAT

FORMAT

sua(
MA_LO
MA_HI

HOST MEMORY ADDRESS (LO ORDER)
HOST MEMORY ADDRESS (HI ORDER)

EVENT CODE
SuUB-CODE

EVENT

iessase RETURN PACKET

(RETPKT) FIELDS

(SIMILAR, BUT NOT IDENTICAL, TO MSCP ENVELOPE FIELDS)

]

RP_FIELDS =

SET

COMMON TO ALL RETURN PACKETS FROM DISK MSCP
MESLEN

= [0, 0, 16, 02,

' MESSAGE LENGTH

MESTYP
CONID

= (1. 4. 4, 03,
= [1. 8. 8. 0]

i MESSAGE TYPE
i CONNECTION ID

CRFHI
PLAT
CMDMOD

= {5, 0, 16, 0],
= [4. 0. 16. 03,

CTLR

CRF_LO

ENDCOD
FLAGS

.
|

STATUS
STSCOD
SUBCOD

= [1, 0, 4, 03,

i CONTROLLER NUMBER (CREDITS OVERWRITTEN)

= [2. 0. 16, 01,

i COMMAND REFERENCE MUMBER (LO ORDER)

=[5, 0, 16, 0],
= (6, 0, 8. 01,
= (6. 8. 8. 0]

i COMMAND MODIF IERS
i END CODE
i FLAGS

= (7. 0, 16, 03,
= (7. 5. 11, 03,

= 7. 0.5, 0]

i COMMAND REFERENCE NUMBER (HI ORDER)
i PLATTER ADDRESS (MSCP UNIT NUMBER)

i STATUS AND SUB-CODE
i STATUS CODE
i SUB-CODE

READ, WRITE, AND ACCESS COMMAND RETURN PACKETS

BCNT_LO
BCNT_HI

BUFF-0

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

= (10, 0, 16, 03,

' BYTE COUNT (LO ORDER)
i BYTE COUNT (HI ORDER)

i 1/0 BUFFER DESCRIPTOR

SEQ 0047
'
'
;

BUFF_1
BUFF -2
BUFF_3
BUFF 4

=
=
=
=

(11,
{12,
(13,
[14,

0,
0,
0,
0,

8BLKLO
SBLK_HI
CBCNY_LO
CBCNT HI
LBN_LD
LBN_HI

=
=
=
=
=
=

(16,
[17,
(18,
{19,
[20,
[21,

0,
0,
0,
0,
0.
0,

16,
16,
16,
16,
16,
16,

16, 0]

BUFFCS

0],
01,
0],
0],
01,
01,

FIRST BAD BLOCK (LO ORDER)
FIRST BAD BLOCK (HI ORDER)

BYTE COUNT FROM CMD PACKET (LO ORDER)
BYTE COUNT FROM CMD PACKET (HI ORDER)
LUGICAL BLOCK NUMBER (LO ORDER)
LOSICAL BLOCK NUMBER (HI ORDER)

uSI1Z_LO
gggz-ux

= (9,

= £20. 0. 16, 0J.
= [21, 0, 16, 03

g
) =

U_FLGS

wmw;m,
S
aud
~NN

UNIT ONLINE RETURN PACKET
g
S
b

0],
01,
0].
0],
0].

SES

16,
16,
16,
16,
= [15, 0, 16,

AGS

E (LO ORDER)
E (HI ORDER)

g-'-'-- STATISTICS TABLE (TALLY) FIELDS
T_FIELDS =

SET

READ_LO
READ_HI
WRITCLO
WRIT HI
SEEK_LO
SEEK HI

=
=
=
=
=
=

MB_READ
B8w_LO

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

MB_WRIT

= (11, 0, 16, 01,

BR_LD

BW_HI

ER_LOG

(0,
1,
(2,
{3,
(4,
[5,

0,
0,
0,
0,
0,
0,

16,
16,
16,
16.
16,
16,

01,
0],
0],
03,
0],
03,

= [6, 0, 16, 0],

= €10, 0, 16. 03.

= (13, 0, 16, 03,

ERTSFT

= [14, 0, 16, 0],

ECC_3
ECC_4
ECC_S
ECC_6
ECCT7

=
=
=
=
=

$gg_0NLv

= [23, 0, 16, 0]

Ect_1

= [15, 0, 16, 01,
[17,
(18,
(19,
(20,
[21.

0,
0,
0,
0,
0.

16,
16,
16,
16,
16,

01,
0].
01,
01,
03,

NUMBER OF
NUMBER OF
NUMBER OF
NUMBER OF
NUMBER OF

READS (LO ORDER)
READS (HI ORDER)
WRITES (LO ORDER)
WRITES (HI ORDER)
DM EXERCISER SEEKS (LO ORDER)

NUMBER OF DM EXERCISER SEEKS (HI ORDER)
NUMBER OF BYTES READ (LO ORDER 1000)
NUMBER OF BYTES READ (HI ORDER 1000)
MEGASYTES READ

NUMBER OF BYTES WRITTEN (LO ORDER 1000)
NUMBER OF BYTES WRITTEN (HI ORDER 1000)
MEGABYTES WRITTEN
NUMBER OF HARD ERRORS
NUMBER OF ERROR LOG MESSAGES
NUMBER OF DM SOFT ERRORS
NUMBER OF 1-SYMBOL ECC ERRORS
NUMBER OF 2-SYMBOL ECC ERRORS
NUMBER OF 3-SYMBOL ECC ERRORS
NUMBER OF 4-SYMBOL ECC ERRORS
NUMBER OF 5-SYMBOL ECC ERRORS
NUMBER OF 6-SYMBOL ECC ERRORS
NUMBER OF 7-SYMBOL ECC ERRORS
NUMBER OF 8-SYMBOL ECC ERRORS
ECC-FIELD-ONLY ERRORS

g...... DRIVER CONTROLLER TABLE (DCT) FIELDS

OC_FIELDS =

SET

WORDO
CRING_CNT

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

STAT
SA_SAVE

= [0, 15, 1, 0],
= [1, 0, 16, 01,

1G_INT

= [0 14, 1. 0],

ALL FIELDS IN WORD 0

NUMBER OF SLOTS IN CRING NOT YET RETURNED TO HOST
IGNORE INTERRUPT BIT
ONLINE / OFFLINE STATUS
SA REGISTER SAVE WORD

0. 16, 01,
0, 16, 01,

[ mlnlslelels)l

00 ~NO N8l

0, 16, 01,
0, 16, 01,

0, 16, 0],
0, 16, 01,
0, 16, 0

Haunnunnn

! FIXED ACORESSES OF START AND
END OF EACH RING
:
:
v

:
!

! ADDR OF NEXT RRING SLOT TO BE POLLED
' ADDR OF NEXT CRING SLOT TO BE POLLED
! ADDR OF NEXT AVAIL CRING SLOT

g""" DM EXERCISER COMMUNICATION AREA (DM_COMM) FIELDS
OMC_FIELDS =
SET

FPT_ACC

HOST_ACC

24, 0, 16, 01,
25, 0, 16, 0]

! FRONT PANEL TEST ACCESS WORD
! HOST ACCESS WORD

0. 16, 03,
0. 16. 03,

i
i

NACSE

16, 0]

' 2ND PLATTER - NO. OF SEEKS

.«

W= O

SEEKS
READS
WRITES
SOFT ERRORS
HARD ERRORS

0. 16. 03.

0. 16. 03,
0. 16, 03,
0. 16. 03,

i 2ND PLATTER - NO. OF READS

i 9ND PLATTER - NO. OF WRITES
i OND PLATTER - NO. OF SOFT ERRORS
i 2ND PLATTER - NO. OF HARD ERRORS

0.
0.
0.
0.
0.

16,
16.
16,
16.
16,

03,
03,
03,
0],
03,

!
i
i
i
i

3RD PLATTER = NO.
3RD PLATTER - NO.
3RD PLATTER - NO.
3RD PLATTER = NO.
3RD PLATTER - NO.

OF
OF
OF
OF
OF

SEEKS
READS
WRITES
SOFT ERRORS
HARD ERRORS

0.
0.
0.
0.
0.

16,
16.
16.
16,
16,

03,
03.
0],
0J.
03

!
i
i
i
i

4TH PLATTER - NO.
4TH PLATTER - NO.
4TH PLATTER - NO.
4TH PLATTER - NO.
4TH PLATTER - NO.

OF
OF
OF
OF
OF

SEEKS
READS
WRITES
SOFT ERRORS
HARD ERRORS

ONOWVIS

TES.

OF
OF
OF
OF
OF

P4_SEEKS
P4 READS
P4 WRITES
P4-SOFT
P4 HARD

1ST PLATTER = NO.
1ST PLATTER - NO.
1ST PLATTER - NO.
1ST PLATTER - NO.
1ST PLATTER - NO.

'
i
i
i
i

P3_SEEKS
P3_READS
P3_WRITES
P3SOFT
P3_HARD

DM-EXERCISED

16. 03.
16. 03,
16. 03.
16. 0.
16. 03,

P2"HARD

NUMBERS) OF DISKS 10 BE

0.
0.
0.
0.
0.

P2 WRITES
T
P2_SOF

WNH=OW

P2READS

0. 16, 03,

P2_SEEKS

(e Low Lo Lan Lo TSR am Lame Lo T Lo TN n T T
T
T on IO g Lom Ty Lo Lo}
OCO~NOWNS
PONONIN)
=
cdadadedad
—daded
bO

P1_SEEKS
P1_READS
P1-WRITES
P12SOFT
P1_HARD

' PLATTER ADDRESSES (UNIT PLUG

~e ~rm

0. 16, 03,

THE REMAINING DMC_FIELDS ARE REFERENCED BY ADDRESS POINTERS. THE FIELDS
ARE DEFINED HERE DNLY FOR DOCUMENTATION PURPOSES.

SEQ 0048

SEQ 0049

g"-'-- BLOCK SEQUENCE TABLE (BST) FIELDS
B_FIELDS =

SET

SECTOR
TRACK

TES.

= [0, 0, 16, 01,

= (1, 0, 16, 0]

' SECTOR

I TRACK

g--~~-- 170 BUFFER DESCRIPTOR FIELDS (BUFF_DESC)
éD_FlELDéE?
80_LO
?ggux

= [0, 0, 16, 0],
= [1, 0, 16, 0]

' LOW-ORDER 16 BITS

! HIGH-ORDER U/Q BITS

g--~«-- RC25 REGISTER FIELDS

RC_REG =

SET

RC_ALL
TES;

= [0, 16, 0]

! DEFINE ALL BITS

!ttttt"ttt'ttttttttt'"'Qittttt'ttttt'tit"ttti'ttittttitifittttttitttttitttttt
%

MACROS

!'ttttt'tti'ttt!t'ttt'tttitttttttttitttttttttit&tttttittttt'tttt"ttitttttitttt
]

@Acno

ieseess ALL FIELDS OF A WORD
ALLBIT

= 0, 16, 0%,

! ALL FIELDS

iesesss CST FIELDS (WORDS 3 = 6)
P_ADDR
PTUNIT

=0, 8, 0%.
=8, 5, 0%

! PLATTER ADDRESS (MSCP UNIT NO.)
i PLATTER UNIT NUMBER (DRS UNIT NO.)

P_PRES
P-PROT

= 14, 1. 0%,
= 15, 1, 0%,

i PLATTER PRESENT BIT
i PLATTER PROTECTION BIT

PISTAT

= 15,71, of.

iesnnes BIT TEST

BIT TST (ADDR, EXPECTED) =

“(IF (.ADDR AND EXPECTED) EQLU EXPECTED
St

FALSE )X,

iesexss RC2S WRITE
1

WRT_RC25 (0, FIELDNAM, IMAGE) =
BEGIN
LOCAL
RC_REG;

RC_REGTM<XF IELDEXPAND (FIELDNAM)> = IMAGE;
éfi§§25_ADDR + (YUPVAL * 0)) = .RC_REG:

' PLATTER STATUS BIT

SEQ 0050

A A A A AL il
A
L
e
s
*

STRUCTURES

!ttt"ttttttttttttttttt'fittttttttttttttttttttttttttititttttittt'tt'ttttt.tififitt
|
)

E"'t*' RC2S ACCESS ALGGRITHM
STRUCTURE
RC25 CO, P, S, E] =
BEGIN
LOCAL
RC_REG;

RC_REG = .(RC25 + XUPVAL * 0) <0, ¥BPVAL, 0>;
<P,

S, E>;

SEQ 0051

CZRCD1

11=Jul=1983 08:42:25
8-Jul=1983 17:04:44

SEQ 0052
VAX=11 Bliss=16 v3=555
Page
_DUA2:[DOUCETTE.CZRCDICZRCD1.SRC;3 (1)

:
:
:
:
:
:
:
.

0001
0002
0003
0004
0005
0006
0007
8822

MODULE CZRCD1 (
XTITLE 'CZRCDAO RCZ5 DISK EXERCISER®
IDENT = *v01.0°,
ADDRESSING MODE ~ (ABSOLUTE)
) =
BEGIN

:
:

0045
?ggg

LIBRARY °'CZRCDL®;
REQUIRE °'BLSMAC.REQ’;

! RC25 EXERCISER GLOBAL LIBRARY
! DIAGNOSTIC SUPERVISOR LIBRARY

;
:

1536
}g%g

LITERAL
DSSNBR_OF _TESTS = 1;

! NUMBER OF TESTS IN THIS DIAGNOSTIC

1539

EQUALS:

1541
1542

POINTER (ALL):;

1544
1245
1546
1547

!
!
!
!

ZSBTTL °'PROGRAM HEADER'

1540

1543

1548

M
:
:
M
:
:

THE PROGRAM HEADER IS THE INTERFACE BETWEEN THE DJAGNOSTIC PROGRAM
AND THE SUPERVISOR. THE ARGUMENTS FOR THE °'‘HEADER'' MACRO ARE: PROGRAM
NAME, REV, PATCH, LONGEST TEST TIME, TYPE (WHERE O = SEQUENTIAL
DIAGNOSTIC, 1 = EXERCISER), AND, OPTIONALLY, THE PROCESSOR PRIORITY TO

SET WHEN STARTING THE DIAGNOSTIC.

}gg;

HEADER (XASCII® CZRCD', XASCII'A', XASCII'0', 65535, 1, PRIOO);

:
:

1553
154

!+
!

:
:

1558
1559

DISPATCH (DSSNBR_OF _TESTS);

:
M

1555
}ggg

!
;

THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST.

IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. THE LITERAL
‘DSSNBR_OF _TESTS'® REPRESENTS THE NUMBER OF TESTS (1) IN THIS PROGRAM.

CZRCDAQO RC25 DISK EXERCISER

CZRCD1

GLOBAL DATA SECTION

v01.0
:

1560

XSBTTL °*GLOBAL DATA SECTION'

%ggz

1360

1565

11=Jul=1983 08:42:25

8=Jul=1983 17:04:44

}ggg

PSECT GLOBAL = 3FFF$ (READ, NOWRITE, EXECUTE, LOCAL, CONCATENATE);

1568

GLOBAL

1570

:
:
:
:
:
:

:
:
:

1569

PATCH : VECTOR [100, WORD],

CPT : VECTOR [MAX UNITS, BYTE],

1577
1578

1576

!
!

DCT : BLOCKVECTOR [MAX _CTLR, DCT_LEN, WORD) FIELD (DC_FIELDS),

DRIVER CONTROLLER TABLES
DCT_ADDR : REF BLOCK [DCT_LEN, WORD] FIELD (DC_FIELDS),

1579

1581
1582

1585

:
:

1587
1588

1590

:
:
:

1592
1593
1594

:
:

1580

1583
1584

1586

1589

! PATCH AREA

CURRENT PASS TESTING (YES / NO) PER UNIT
CST : BLOCKVECTOR [MAX CTLR, CST_LEN, WORD] FIELD (C_FIELDS),
RUN-TIME CONTROLLER STATUS TABLES
CST_ADDR : REF BLOCK [CST_LEN, WORD] FIELD (C FIELD®),
CONTROLLER STATUS TABLE ADDRESS 7F ''CURRERT'* CONTROLLER

1571
1572
1573
1574
1575

ADDRESS OF '‘CURRENT'' BRIVER CONTROLLER TABLE

RC25_ADDR : REF RC25 FIELD (RC REG),

BEVICE ADDRESS OF ‘‘CURRENTTM CONTROLLER
IRr25 _ADDR : REF RC2S FIELD (RC_REG),

OEVICE ADDRESS OF INTERRUPTING CONTROLLER
DM_COMM : BLOCKVECTOR [MAX_CTLR, OMC_LEN, WORD] FIELD (DMC_FIELDS),

DM EXERCISER COMMUNICATION AREA TLINK TO FRONT PANEL TEST)

DMC_ADDR : REF BLOCK [DMC_LEN, WORD] FIELD (DMC_FIELDS),

ADDRESS OF CURRENT CONTROLLER'S DM EXERCISER COMMUNICATION AREA
RP_SAVE : VECTOR [MAX CTLR « RPS_LEN, BYTE, SIGNEDJ],
RETURN PACKET SAVE AREA
! STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA
RPS_X1 : WORD,

RPSTMX2 : WORD,

1591

" ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA

OUTT _LIST : VECTOR [MAX_CTLR * QUTC_CNT, BYTE, SIGNED],
GUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES)
OUTC_TIMR : VECTOR [MAX_CTLR * OUTC_CNT, WORD],
OUTSTANDING COMMANDTMTIMERS

1595

1597

1599

:
:

1601
1602

:
:

1604
1605

MSCP_ENV : BLOCKVECTOR [ENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS),
RSCP ENVELOPE POOL

:
:

1607
1608

MSCP ENVELOPE POOL ALLOCATION TABLE
.
RETPKT : BLOCKVECTOR [RP_CMT, RP_LEN, WORD] FICLD (RP_FIELDS),

:
:

:
:
:
:

:
:
:

1596

1598

1600

1603
1606

1609

1610
1611
1612
1613

1614
1615
1616

OCL_X1

Page

_DUA2:[DOUCETTE.CZRCDICZRCD1.SRC;3 (3)

THE GLOBAL DATA SECTION CONTAINS ALL DYNAMICALLY=-MODIFIED DATA.

VAX=11 Bliss=16 V3-555

SEQ 0053

: WORD,

STARTING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA

OCL_X2 : WORD,

ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA

TALLY : VECTOR [MAX UNITS «~ TALLY_LEN, WORD] FIELD (T_FIELDS),

STATISTICS TABLES
T_ADDR : REF BLOCK [TALLY_LEN, WORD] FIE'D (T _FIELDS),

ADDRESS OF STATISTICS TABLE (TALLY) FOR CORRENT UNIT

ENV_USE : VECTOR [ENV_CNT, BYTE, SIGNED],
RETURN PACKET POOL

RP_USE : VECTOR [RP_CNT, BYTE, SIGNEDJ,
RETURN PACKET POOL ALLOCATION TABLE
! CURRENT RETURN PACKET INDEX
RP_INDX : WORD,
RPZADDR : REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS),

CURRENT RETURN PACKET ADDRESS
BUFF DESC : BLOCKVECTOR [MAX BUF _CNT, DESC_LEN, WORD] FIELD (BD_FIELDS),
TYABLE OF 1/0 BUFFER DESCRIPTDRS

CZRCDAO RC25 DISK EXERCISER

QI0 : VECTOR [MAX_CTLR, BYTE],

MEM_SIZE : WORD,

FREE_MEM_ADDR,
BUFFTSIZE : WORD,
NUM_BUFF : WORD,
CLK_TYPE : WORD,

CLK_HERTZ : WORD,

CLK_CSR,

CLK"VECTOR,

HOURS : WORD,

MINUTES : WORD,

SECONDS : WORD,

TICKS : WORD,
ST_CODE : WORD,
SB_CODE : WORD,

STEP : WORD,

OF _RC : SIGNED WORD,
SA"REG : WORD,

NEX : WORD,
CRN : WORD;

I W IR S E ORI W S W S W ¢ W S w
R I
AR I B IO I I W

DUR T VECTOR [MAX_UNITS, BYTE],

CPLAT : WORD,
CUOFF : WORD,
CTLR_CNT : WORD,

and b e D b
b o wd tad b o
b b b b cad b e

W ViAW
&

1IP FLAG : BYTE,

I AW I

CCTCR : WORD,

000N
o VIS WN=O0 CONO WS WNI=0O

MEM_MGMT : BYTE,

b ) e b e o e e

ENTRY_REASON : BYTE,
T _FLAG : BYTE,
EOP_FLAG : BYTE,

e @r s Gt Rt ER A AN S I O WP P T PR P

10DQ"0UT : WORD,

1/0 DONE QUEUE OUT POINTER
HOW CURRENT PASS WAS INVOKED
ONE SECOND TIMING FLAG
END-OF =PASS FLAG

MEMORY MANAGEMENT FLAG
INITIALIZATION=IN=PROGRESS FLAG
NUMBER OF ‘’CURRENT’' CONTROLLER

CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER)
_
CST OFFSET FOR CURRENT UNIT
TOTAL NUMBER OF CONFIGURED CONTROLLERS
DROP UNIT REASON

NUMBER OF OUTSTANDING QIOS PEX CONTROLLER
AVAILABLE MEMORY (IN WORDS) UP TO 28K
START OF FREE MEMORY BELOW 28K
SIZE (BYTES) OF AN 1/0 BUFFER
NUMBER OF 1/0 BUFFERS
TYPE OF CLOCK ON SYSTEM

(0 = NONE, =1 = L=-CLOCK, 1 = P_CLOCK)

CLOCK HERTZ RATE
CLOCK CSR _ADDRESS
CLOCK VECTOR ADDRESS
ELAPSED TIME - HOURS,
MINUTES,
SECONDS,
T1CKS

CURRENT STATUS CODE
“ODE
CURRENT SL
CURRENT Si.. IN HARD_INIT

OFFSET (0 OR 2) TO READ IP OR SA

STORAGE FOR SA REGISTER READS AND WRITES

NON-EXISTENT MEMORY TRAP INDICATOR

COMMAND REF NUMBER OF LAST COMMAND SENT

THE ERRTBL MACRO IS REQUIRED WHETHER OR NOT THE PROGRAM USES THE
THE ERRTSL MACRO EXPANDS I NTO FOUR WORDS THAT ARE
‘ERROR’’* MACRO.
USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE,
ERROR NUMBER, ADDRESS OF ERROR MESSAGE AND ADDRESS OF MESSAGE
THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM,
IS NOT OPT]ONAL.

ERRTBL.

SEQ 0054

Page
VAX=11 Bliss=16 V3=-555
-DUA?:[DOUCETTE.CZRCDJCZRCD1.SRC:3 (3)

1/0 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES
! 1/0 DONE QUEUE IN POINTER
10DQ_IN : WORD,

BLOCK.
R

5
4

n =Jul=-1983 08
8-Jul- 1983 17

BUFF OWN : VECTOR [MAX BUF _CNT, BYTE, SIGNED],
1/6 BUFFER OWNERSHIP (TONTROLLER NUMBER)
[opQ : VECTOR CIODQ_LEN, BYTE],

D md o

b b b b D D

o NCOOCOOCOOONOONOCOOOOOPOOOONO

N WWNWWNIWNW WA NN NN NN NI NN =3 b b
PARRTRRRRRRRXER W WN OWVIB
NN = OV
NS W
=0V~

GLOBAL DATA SECTION

NEEE

T A

TR R

TR PRTR

R TR TR LR

L T TR

IR X E A

X E

S
Y E TRPR YN

PRPR YR D N LN ¥

CZRCD1
v01.0

THIS SECTION

CZRCDAO RC25 DISK EXERCISER
GLOBAL TEXT SECTION

CZRCD
v01.0
1665

.
:

:
.
:

1668
1669
}g;?

:
:
:
:

1672
1673
1674

:
:
:
:

1677
1678
1679
1680

}2;2

!
!
;

THE GLOBAL TEXT SECTION CONTAINS ALL MESSAGES OUTPUT TO THE OPERATOR
DURING THE OPERATION OF THE EXERCISER. THIS INCLUDES HARDWARE AND
SOF TWARE DIALOG PROMPTS, ERROR MESSAGES, AND DROP UNIT MESSAGES.

GLOBAL BIND
!
%-..... HARDWARE DIALOG

HWQ1 = UPLIT (XASCIZ'IP ADDRESS®),
HWQ2 = UPLIT (ZASCIZ'VECTOR')‘
HWQ3 = UPLIT (XASCIZ°'BR LEVEL'),

HWQ4 = UPLIT (XASCIZ°'PLATTER ADDRESS (UNIT PLUG)'),

HWQS = UPLIT (XASCIZ'ALLOW WRITES TO CUSTOMER DATA AREA ON THIS PLATTER'),
HWQ6 = UPLIT (ZASCIZ°'*+ WARNING - CUSTOMER DATA AREA MAY BE OVERWRITTEN! ... CONFIRM®},

}ggg

;..'... SOF TWARE DIALOG

H
H
:

1686
1687
1688

.
SWQ1 = UPLIT (XASCIZ'ERROR LIMIT (0 FOR NO LIMIT)®),
,
LIMIT)®
NO
FOR
(0
MEGABYTES
IN
LIMIT
SWQ2 = UPLIT (XASCIZ°TRANSFER
MESSAGES'),
LOG
SWA3 = UPLIT (XASCIZ'SUPPRESS PRINTING ERROR

SWQ4 = UPLIT (YASCIZ'RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUF EST'),

1689

SWQS = UPLIT (XASCIZ'RANDOM SEEK MODE'),

1690

1691

SWQ6 = LrlT (XASCIZ'STARTING TRACK®),

1693

SWa8 = UPLIT (XASCIZ'READ-COMPARES PERFORMED AT THE CONTROLLER®),
SWQ9 = UPLIT (XASCIZ'WRITE ONLY'),
SWQ10 = UPLIT (XASCIZ'WRITE~COMPARES PERFORMED AT THE CONTROLLER®),
SWQ11 = UPLIT (XASCIZ®'"HECK ALL WRITES AT HOST BY READING'),

1694

.
:

1695
1696

1698

SWQ7 = UPLIT (XASCIZ'ENDING TRACK'),

1692

SWQ12 = UPLIT (XASCIZ'USER-DEFINED DATA PATTERN'),

1697

SWA13 = UPLIT (XASCIZ*SELECT PRE-DEFINED DATA PATTERN (0 FOR SEQUENTIAL SELECTION)'),

1699

SWQ14é = UPLIT (XASCIZ'NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM)'),

1701

SWM1 = UPLIT (XASCIZ'THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED PLATTERS.'),

};gg

1706

1708

1700

};8%

SWQ15 = UPLIT (XASCIZ'PATTERN VALUE'),

' ADDED TO COVER DRS BUG (NEXT MESSAGE ALSO PRINTED)
;"*"' INFORMATION MESSAGES (IF ATTENDED MODE, THEN PRINTF)
.

NULL = UPLIT (XASCIZ'"),

MSG_01 = UPLIT (XASCIZ'XAPOWER DELAY - WAITINGIN')

1707

MSG_02 = UPLIT (XASCIZ'INXAABOUT TO VERIFY VECTOR iOB!A(O) FOR DEVICE XO06%A(0) ... *),
MSG_03 = UPLIT (XASCIZ'XACOMPLETED.2IN'),

1709

};}2

};}g

;'t*"t CONF IGURATION ERROR MESSAGES (IF ATTENDED MODE, THEN PRINTF)

1717

};}8

‘

1721

!aeexes DROP UNIT MESSAGES

:
:
:

1710
1711
1712

1718

MSG_04 = UPLIT (XASCIZ'INXAINIT SUBTEST STARTEIN'),

MSG_05 = UPLIT (XASCIZ*INXAMULTI-DRIVE SUBTEST STARTIN'),
MSG_06 = UPLIT (XASCIZ'INXADM EXERCISER SUBTEST STARTAN'),
MSG_07 = UPLIT (XASCIZ'XAUNIT XD2XA. - TRANSFER LIMIT REACHEDIN'),

MSG_08 = UPLIT (XASCIZ*XDSZA. BLOCKS TRANSFERRED ON UNIT XD2XA. (PLATTER XD3%A.)IN'),
CER_01 = UPLIT (XASCIZ'INYADUPLICATE PLATTER ADDRESS XD3/A. AT IP X06XA(0)°),
CERZ02 = UPLIT (XASCIZ'XNXAALREADY & UNITS AT 1P Z06%A(0)'),

SEQ 0055

Page
VAX=11 Bliss=16 V3=555
_DUAZ:(DOUfETTE.CZRCDJCZRCD1.SRC;3 (4)

XSBTTL "GLOBAL TEXT SECTION'

1681
}gg%

:
H

11=Jul=1983 08:42:25
8-Jul=1983 17:04:44

CERZO3 = UPLIT (XASCIZ'INYAMORE THAN XD1XA DIFFERENT [P ADDRESSSES'),

CZRCDAO RC25 DISK EXERCISER
GLOBAL TEXT SECTION

CZRCDY
v01.0
1722

;
;
;
;
:
;

1723
1724
1725
1726
1727
};%g

;

};gg
};gg

;

g...... GENERAL ERROR MESSAGES
SYSTEM FATAL (ERRSF)
g
EGS_01 = UPLIT (XASCIZ'TOO MANY UNITS®),
173,
|

;
;

};gg

1748

:
;
:
;
;
:
;
;

11-Jul=1983 08:42:25
8-Jul-1983 17:04:44

E6SI02 = UPLIT (YASCIZ'NEITHER P NOR L {LOCK WAS FOUND ON THE SYSTEM'),

DEVICE FATAL (ERRDF)
EGD_10 = UPLIT (Y¥ASCIZ'REGISTER EXISTENCE TEST FAILED'),

1739~

EGD-11 = UPLIT (¥ASCIZ'VECTOR TEST FAILED'),
EGD-12 = UPLIT (XASCIZ'SR LEVEL TEST FAILED®),
EGD-13 = UPLIT (XASCIZ'INIT SEQUENCE FAILED'),
EGD-14 = UPLIT (XASCIZ'FATAL PORT / CONTROLLER ERROR'),
EGD15 = UPLIT (XASCIZ'MESSAGE RESPONSE TIMEOUT'),
EGD-16 = UPLIT (IASCIZ'ONLINE FAILED®),
EGD-17 = UPLIT (XASCIZ'WRITE=PROTECT CONFLICT'),
EGD-18 = UPLIT (XASCIZ'ACCESS FAILED').

1740
1741
1742
1743
1744
1745
1746
1747

EGD-19 = UPLIT (XASCIZ'FATAL 1/0 ERROR'),

EGD-20 = UPLIT (XASCIZ'CONTROLLER TIMEOUT®),
EGDZ21 = UPLIT (XASCIZ'DUP COMMAND FAILED®).
EGDZ22 = UPLIT (XASCIZ'DM EXERCISER TIMEOUT'),

1749
1750
};g;

;

};gz

};gg

;

;
:
:
;

};gg
};gg
};g}
};gz

fexeevs BASIC ERROR MESSAGES (PRINTB)
SYSTEM FATAL (ERRSF)
i
EBS_01 = UPLIT (IASCIZ'YAMORE THAN XD2¥A. UNITS SPECIFIEDIN'),
"
DEVICE FATAL (ERRDF)
g

1765

1767

EBD-13 = UPLIT (YASCIZ'YIASTEP XD1XA READ ERROR ON DEVICE X06YA(D)IN'),

1770

EBDTM16 = UPLIT (YASCIZ*IAERROR IN RESPONSE TO ONLINE COMMAND FOR PLATTER ID3ZA.fN'),
XN'),

;
:
;

;

:
:

:
:
:
:

1766

HARD (ERRHRD)

1768
1769

EGH_30 = UPLIT (XASCIZ*1/0 REQUEST FAILED'),

EBD_10 = UPLIT (YASCIZ'XANO RESPONSE AT ADDRESS 06YA(0)IN'),

EBD 12 = UPLIT (XASCIZ'XAINCORRECT BR LEVEL GIVEN FOR DEVICE 06IACQ)IIN'),
EBD 14 = UPLIT (XASCIZ'XAERROR CODE RECEIVED IN SA REGISTER OF DEVICE Y06XA(0IIN'),
EBD 15 = UPLIT (XASCIZ'XAFAILED TO RECEIVE END MESSAGE FROM DEVICE YOG6IA(D)IN')

EBD 17 = UPLIT (YASCIZ'XAPLATTER XD3XA. 1S SW WRITE-ENABLED BUT HW WRITE-PROTECTED

1771

1772
1773

1774
1775
};;g

1778

EBD18 = UPLIT
EBD 19 = UPLIT
EBD 20 = UPLIT
EBD
21 = UPLIT

SEG 0056

Page
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD1.SRC;3 (4)

DUM_00 = UPLIT (XASCIZ'SAUNIT XD2%A. DROPPED - *),
DUMTUC = UPLIT (XASCIZ'YAUSER COMMANDIN'),
DUM_CE = UPLIT (XASCIZ'XACONFIGURATION ERRORIN'),
DUMTIE = UPLIT (XASCIZ'XAINIT ERRORIN'),
DUMHE = UPLIT (YASCIZ'YAWARD ERROR LIMIT REACHEDIN'),
DUMZUE = UPLIT (¥ASCIZ'AUNRECOVERABLE ERRORIN'),

};%2

(XASCIZ'XAACCESS FAILED ON PLATTER ID3ZA.IN'),
(XASCIZ'XAPLATTER %D3XA. WENT OFFLINEIN'),
(YASCIZ'YADEVICE ¥06XA(0) NOT PROCESSING COMMAND PACKETSIN'),
(XASCIZ'YAMESSAGE REJECTED BY DUP SERVER ON DEVICE Z06XA(0)IN'),

EBDZ22 = UPLIT (TASCIZ'¥ANO RESPONSE FROM FRONT PANEL TEST EXECUTING IN DEVICE 306XA(DIIN'),
HARD (ERRHRD) = MAINLY BASED ON MSCP STATUS CODES

R LR LR X ®e Ge 00 %0 9o

STC_00 = UPLIT
STCZ01 = UPLIT
STCZ02 = UPLIT
STCZ03 = UPLIT
STCZ0% = UPLIT

(XASCIZ*XASUCCESSIN'),
(IASCIZ'IAINVALID connAnoxu')
(XASCIZ:XACOMMAND ABORTEDIN')
(XASCIZXAUNIT-OFFLINEIND)
(XASCIZ'IAUNIT=AVAILABLEIN')

STCZ06 = UPLIT
STCZ07 = UPLIT
STCZ08 = UPLIT
STC-09 = UPLIT
STCZ10 = UPLIT
STCT11 = UPLIT

(¥ASCIZ'IAWRITE-PROTECTEDIN'),
(XASCIZ'XADEVICE COMPARE ERRORIN'),
(XASCIZ®XADATA ERRORIN'),
(XASCIZ'YAHOST BUFFER ACCESS Enaoaxn ),
(XASCIZ*XACONTROLLER ERROR!N

VAX=11 Bliss=16 V3=-555
_DUA2:[DOUCETTE. CZRCDICZRCD1.SRC;3 (&)

R IR TR IRTR IR

STCT05 = UPLIT (YASCIZ®IAMEDIA FORMAT eanoaiu').

T TR PR TR IR IR

EBH_31 =
EBH-32 =
EBH-34 =
EBH_35 =
EBH-36 =
EBHZ37 =
EBH_38 =
EBHZ39 =
EBH_40 =

(XASCIZ'XADRIVE ERRORIN')

STC_O1,
STCZ02.
STCC04.
STC-0S.
STC-06.
STCZ07,
STC_08.
STCC09.
STC_10,

EBHZ41 = STCC11,

OST-DETECTED WRITE-COMPARE ERRORIN'),
42 = OPLIT (XASCIZ®JAHAILED
EBH
TO RECEIVE END MESSAGE FOR 1/0° COMMANDIN'),

EBHTM43 = UPLIT (XASCIZ'IAF

YRR

b wud wud amb —b

%""" EXTENDED ERROR (PRINTX) AND ERROR LOG (PRINTF) MESSAGES
W —=O000
NN
SNN
— OV

b wed @b

d and b wmd cud b e

QD 0000 ©0 00 LD 0O 0O 0o G O 0B 0O OO CO 0D 0D
PNON) b b b b b wed wrad e b wud o0

M E A
E
RN
RN
A PR PR TRTR R TN X TR
TR ITE A
TR
RN
N E
IEREE
TR IR IR

11-Jul~1983 08:42:2 5
144
8-Jul=1983 17:04:4

CZRCDAO RC25 DISK EXERCISER
GLOBAL TEXT SECTION

CZRCD1
v01.0

EX_SA= UPLIT (XASCIZ'ZA

= UPLIT (2ASCI2° XA
EX_CRN

SA: X06XA(0)XIN'),

CMD REF NUM: TO6XA(0)IN®),

EX_SC
= UPLIT (XASCIZ® 1A
STATUS CODE: X02XA(0)IN'),
DUP STATUS CODE: 1011A INY),
EX_DSC = UPLIT (RASCIZ'XA
SuB-CODE : !04!A(0)!N
= UPLIT (XASCIZ' 1A
EX_SB
COMMAND:
EX_CMD = UPLIT (XASCIZ'ZA
EXZSCC = UPLIT (XASCIZ'ZASET CTLR CHAR' )
EX_ONL = UPLIT (XASCIZ°®XAONLINE®),
EX_ESP = UPLIT (ZASCIZ'!AEXECUTE SUPPLIED PROGRAM') ,
EX_SND = UPLIT (lASCIZ !ASEND DATA®),
EX_RD= UPLIT (XASCIZ‘'ZAREAD')

EX_WRT = UPLIT (XASCIZ® TAWRITE®),

EX_CMP = UPLIT (XASCIZ2® YA-COMPAREIN®) ,
BAD BLOCK REPORTED IDSZA.XIN'),
EX_BB = UPLIT (XASCIZ'ZA
LBN: XDSZA.
EX_LBN = UPLIT (XASCIZ°ZA
BYTE COUNT IN COHHAND IDSZA. AN’
EX_CBC = UPLIT (XASCIZ'ZA

= UPLIT (XASCIZ'ZA
EX_BC
EX_BD = UPLIT (XASCIZ'ZA

ACTUAL # OF BYTES TRANSFERRED: XDSiAIN')

1/0 BUFFER DESCRIPTOR:X07XA(0)X07ZA(0)IN®),

EX_EL = UPLIT (XASCIZ‘®INYAERROR LOG MESSAGE RECEIVED:IN')
PLATTER: XD3XA.IN'),
EX_PA = UPLIT (XASCIZ'ZA
FORMAT: '),
EX_FMT = UPLIT (ZASCIZ'ZA
EVENT CODE: *)
EX_EVC = UPLIT (XASCIZ'ZA

HOST MEM ADDR:fiO?XA(O)!O?!A(O)IN ).
(XASCIZ'XAXA(0)IN'),
UPLIT (XASCIZ'X03
EX_HMA 3 = UPLIT
0
Ex_

g...... MISCELLANEOUS
ETIME = UPLIT (XASCIZ'XD2XA:ID2XA:XD2XA

'),

PLATT = UPLIT (ZASCIZ'IAPLATTER AD3ZA. - '),
CRLF = UPLIT (ZASCIZ'IN®)

SEQ 0057
Pa
ge

CIRCDAO RC25 DISK EXERCISER

CZRCDY

DEFAULT HARDWARE P=TABLE

v01.0
;

1838

[

1820

}gzg

;
:
;

1841
1842
1843

11=Jul=1983 08:42:25

8-Jul-1983 17:064:44

VAX=11 Bliss=16 Vv3-555

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 ACTUAL HARDWARE P-TABLES, WHICH RESIDE IN SUPERVISOR SPACE, AND

!
!

IS USED AS A ‘TEMPLATE'® FOR BUILDING THE P-TABLES.

;

1846

}ggg

1851

HWPT_IP_ADDR : WORD INITIAL (¥0°172150°'),

! IP ADDRESS

;

}ggg

HWPT PLAT : WORD INITIAL (0);

i PLATTER ADDR, PROTECTON BIT

1856 ENDHW;

;
;

:
;

1847
1848

1852
1853

BGNHW (DFPTBL);
GLOBAL

HWPT-VETTOR : WORD INITIAL (%0°154%),
HWPT_BR_LEVEL : WORD INITIAL (5),

i VECTOR ADDRESS
i BR LEVEL

Page

_DUA2:[DOUCETTE.CZRCDICZRCDT.SRC;3 (5)

XSBTTL *DEFAULT HARDWARE P-TABLE'
"

SEQ 0058

CZRCDAO RC2S DISK EXERCISER
SOF TWARE P-TABLE

CZRCDY
v01.0
1857

XSBTTL °'SOFTWARE P-TABLE'

:
:

1860
1861

!
!

:
:
:
:

1864
1865
1866
}gg;

BGNSW (SFPTBL);

.
:

1869
1870

SWP_ERROR : WORD INITIAL (32),
SWP_XFER : WORD INITIAL (2)

1872

SWP_ETRACK : WORD INITIAL (MAX_TRA(CK),

:
:

}ggg

1871

THE SOF TWARE P~TABLE CONTAINS VARIOUS DATA USED BY THE PROGRAM AS
OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET UP AT ASSEMBLY TIME
AND MAY BE VARIED BY THE OPERATOR AT RUN TIME.

;

GLOBAL

SWP_STRACK : WORD INITIAL (6).

1873

SWP_FLAGS : BYTE INITIAL (X0'S55"),

}g;g

SWP_UDPAT : VECTOR [MAX_UDP_UNT, WOkDJ:

1874
1875

1878

11=Jul=1983 08:42:25
8=-Jul=1983 17:04:44

SWP_DPAT : BYTE INITIAL (0),
SWP_UCNT : WORD INITIAL (MAX_UDP_CNT)

ENDSW;

' HARD ERROR LIMIT FOR DROPPING UNIT
! TRANSFER LIMIT PER UNIT PER PASS

! STARTING TRACK
! ENDING TRACK

! FLAGS (SEE DOCUMENTATION)

! DATA PATTERN NUMBER
' USER DATA PATTERN COUNT

! USER DATA PATTERN

SEO 0059

Page 10
VAX-11 Bliss=16 V3-555
(6)
RC;3
DJCZRCDl.S
_DUAZ:[DOUCETIE.CZRC

HN
&Hww

(=2
o
SN

~Oo

SEQ 0060
Page
VAX=11 Bliss=16 V3=-555
(7)
3
_DUA2:[DOUCETTE.CZRCD JCZRCD1.SRC;

THIS TABLE IS USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA.
1ST ARG = BYTE OFFSET INTO P-TABLE FOR CSR ADDRESS
2ND ARG = BYTE OFFSET INTO P-TABLE FOR MASSBUS ADDRESS
3RD ARG = BYTE OFFSET INTO P-TABLE FOR DRIVE NUMBER
BYTE OFFSET REFERS TO THE NUMBER OF DYTES FROM THE BEGINNING OF A
PTABLE ENTRY TO THE ITEM IN QUESTION. IF THE PARTICULAR ITEM DOES NOT
APPLY, THEN ENTRY IS SET TO =1, WHEN THE RUNTIME SERVICES EXECUTES A
GPHARD, IT USES THESE OFFSETS (IF NOT SET TO =1) TO GET THE ITEMS AND
COMPARE WITH THOSE SAVED IN THE XXDP+ MONITOR. IF THE UNIT BEING
REQUESTED MATCHES THE LOAD DEVICE, THEN THE RUNTIME SERVICES RETURN AN

TR TY

XASBTTL 'PROTECTION TABLE'

PP PRI

-t

b b

b e

aed o

b e

00 52,99 55 05 65 00 600 0B

1893

INCOMPLETE FLAG ON THE GPHARD.

BGNPROT (=1, =1, =1);

TR E T ETE

TS I AYA PR PN PR

C O KN

]

PROTECTION TABLE

C2RCDY
v01.0

11=Jul=8-Jul~-

—

CZRCDAQ RC25 DISK EXERCISER

OO0
[
1]
(VLV}

ENDPROT;

END
ELUDOM

LTITLE
.IDENT

—

(==

.ENABL

132
104

.PSECT
LSNAME
: : LASCII
LASCI1

LSREV::

177777

000044
000046

000050
000050
000051
000052

000000
000000

003
003
000000

BYTE
BYTE

LASCII
LASCI1
LSUNIT::.WORD
LSTIML::.WORD
LSHPCP::.WORD
LSSPCP::.WORD
::
., WORD
LSHPTP

. WORD
LSSPTP::
LSLADP: : .WORD
LS$STA:: .WORD
.WORD
L$CO::
LSDTYP: : .WORD
LSAPT:: .WORD
LS$DTP:: .WORD
. WORD
LSPRIO::
LSENV]::.WORD
LSEXP1::.WORD
LSMREV::

LS$EF::

CZRCD1 CZRCDAO RC25 DISK EXERCISER
/V01.0/

AMA

$CODES,

0
O
/A/
70/

-1
LSHARD
LS$SOFT
LSHW
LSSW
LSLAST
0
0
1
0
L$DISPATCH
0
0
O

.BYTE

.WORD

11=Jul=1983 08:42:25
8-Jul=1983 17:04:44

CZRCUAD RC2S DISK EXERCISER
PROTECTION TABLE

CZRCD1
v01.0
000000
000000
00C0006
0000006
000000
000000
0000006
0000006
000000
0000006
104035
000126
000000G
0000006
0000006
006542°
000000
000000
000000
000001
0000006

WORD
L$SPC:: .WORD
::
. WCRD
LSDEVP
:
. WORD
LSREPP:
. WORD
LSEXP4::
. WORD
LSEXPS::
LSAUT:: .WORD
LSDUT:: .WORD
LSLUN:: WORD
. WORD
LSDESP::
LSLOAD::.WORD
LSETP:: .WORD
LSICP:: .WORD
LSCCP:: .WORD
LSACP:: .WORD
LSPRT:: .WORD
LSTEST::.WORD
LSDLY:: WORD
LSHIME::.WORD
DSPCNT::.WORD
LSDISPATCH::

O
O
LSDVTYP
LSRPT
O
O
LSAU
LSDU
O
LSDESC
=73743
LSERRTBL
LSINIT
LSCLEAN
LSAUTO
LS$PROT
O
O
O
1

000126
000130
000132
000134
000136
000141
000144
000147
000152
000155
000160
000162
000165

MM
101
122
123
126
124
000
102
114

ERRTYP: :.BLKW
: .BLKW
ERRNBR:
ERRMSG: : .BLKW
ERRBLK::.BLXW
P.AAA: ASCII
ASCI1
LASCII
LASCIT
P.AAB: .ASCi:1
.ASCIl
LASCI1
P.AAC: .ASCII
LASCIL

1
1
1
1
[/IF /
/A0D/
/AES/
/5/<00><00>
/VEC/
/TOR/
<00><00>
/BR /
/LEV/

000177
000202
000205
000210
000213
000216
000221
000224
000227
000230
000233
000236
000241
000244
000247
000252
000255
000260
000263

124
122
104
105
040
116
040
125
000
101
117
127
124
040
040
123
115
040
124

000054
000056
000060
000062
000064
000066
000070
000072
0000746
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

000170
000173
000174

105
000
120

MWORD

120
104
105
000
105
117
000
122
105

040
104
123
000
103
122

114

000

114
124
040
104
123
050
1M1
120
107

101
105
101
122
123
125
124
114
051

P.AAD:

114
127
122
105
124
103
124
105
104
101

114
040
m
123
117
125
117
122
101
040

P.AAE:

040
126

+SCI1
LANCUL
.ASC)I

LASCi]
LAS.I1
ASCI1
LALCI1
ASCIL
ASCII
LASCI]l
LASCII
ASCII
.ASCII
.ASCI1
LASCII
LASCI1
LASCII
ASCI1
LASCII
LASCI]
LASCII
LASCII

/EL/<00>
<00>
/PLA/
/TTE/
/R A/
/DDR/
/ESS/
/7 (W/
/NIT/
7/ PL/
/UGy/
<00>
/ALL/
/0w /
/WR1/
/TES/
/7 0/
/7 W
/ST0/
/MER/
/7 DN/
/T /

SEQ 0061

Page 12
VAX=-11 Bliss=16 V3-555
_DUAZ:[DOUCETTE.CZRCDJCZRCD1.SRC:3 (7)

000266
000271
000274
000277
000302
000305
000310
000313
00C314
000317
000322
000325
000330
000333
000336
000341
000344
000347
000352
000355
000360
000363
000366
000371
000374
000377
0004902
000405
000410
000413
000414
000417
000422
000425
000430
000433
000436
000441
000444
000447
000452
000455
000460
000463
000466
000471
000474
000477
000502
0006505
000510
000513
000516
000521

000524
000527
000530

11=Jul=1983 08:42:25
8=Jul=1983 17:04:44

CZRCDAO RC25 DISK EXERCISER
PROTECTION TABLE

CZRCDY
v01.0
101
101
116
110
040
101
105
000
0S2
127
116
107
040
123
115
040
124
101
101
101
102
117
122
1M1
105
040
05¢
117
AR
000
105
117
114
1M1
050
106
040
040
115
051
124
116
105
114
m
1M1
115
101
124
040
040
122
117
1M1

124
000
123

122
040
040
"M
120
124
122

105
117
124
123
114
124
000

052
101
m
040
103
1264
105
104
101
122
040
13
105
126
127
124
116
056
040
116
122

040
122
116
055
125
117
122
101
040
105
115
040
040
105
122
124
041
056
103
106
115

P.AAF:

122
122
11
124
060
117
116
114
1M1
000
122
123
122
11
124
116
105
102
105

122
040
115
040
040
122
117
"
124
000
101
106
040
115
040
040
107
131
123

P.AAG:

106
040
040
115

117
116
114
111

050

P.AAH:

060

051

000

125

120

P.AAl:

LASCI] /ARE/
LASCII /A O/
ASCII /N T/
LASCII /HIS/
LASCII 7/ PL/
LASCII /ATV/
LASCII /ER/<00>
LASCII <00>
LASCI1 /evx /
LASCI]l /WAR/
LASCI] /NIN/
LASCI1 /G =/
LASCII /7 Cw/
LASCII /ST0Q/
LASCII /MER/
LASCII 7 DA/
LASCII /TA /
.ASCI1 /ARE/
LASCII /A MW/
LASCII /AY /
LASCI]l /BE /
.ASCJ1 /OVE/
LASCI] /RWR/
LASCI1Y1 /IT1/
LASCII /ENY/
LASCII /7 ../
LASCII /. ¢/
.ASCI] /ONF/
LASCI1 /IRM/
LASCI1 00>
.ASCl] /ERR/
LASCI1 /OR /
LASCII /LIM/
LASCIL /1T /7
LASCII /(0 /
LASCI1 /FOR/
LASCI1 / NO/
LASCII /7 LY/
LASCII /MIT/
LASCII /7)/<00><00>
.ASCl] /TRA/
LASCI1 /NSF/
LASCII /ER /
LASCII /LIMN
LASCI1 /1T /
ASCI1 /IN/
LASCI1 /MEG/
LASCI]1 /ABY/
LASCI] /TES/
LASCI1 7 (O/
LASCI1 7 FO/
LASCI] /R N/
ASCI1 /0 L/
LASCII /IM1/

LASCI1
LASCII
.ASCI1

/1)/<00>
<00>
/Sup/

SEQ 0062

Page
VAX=11 Bliss=16 V3=555
_DUAZ:[DOUCEItE.ClRCDJCZRCD1.SRC:3 (7)

000533
000536
000541
000544
000547
000552
000555
000560
000563
000566
000571
000574
000576
000601
000604
000607
000612
000615
000620
000623
000626
000631
000634
000637
000642
000645
000650
000653
000656
000661
000664
000667
000672
000675
000700
000703
000706
000711
000714
000717
000720
000723
000726
000731
000734
000736
000741
300744
000747
000752
000755
000760
000763
000766
000771
000774
000777

11-Jul=1983 08:42:25
8-Jul=1983 17:04:44

CZRCDAQ RC25 DISK EXERCISER
PROTECTION TABLE

CZRCDY
v01.0
120
123
120
116
116
105
117
114
040
123
107
000
122
040
040
105
m
122
116
105
040
040
114
055
M
040
102
123
122
104
040
105
115
105
123
122
116
124
103
000
105
mnm
040
101
000
122
104
117
101
123
105
117
105
101
124
040
116

122
123
122
124
107
122
122
117
115
123
105
000
125
104
105
122
123
040
123
101
117
115
124
104
126
123
124
124
101
117
123
113
117
000
124
124
107
122
113

105
040
m
m
040
122
040
107
105
101
123
116
115
130
103
105
m
124
104
106
125
11
122
105
125
105
000
116
115
105
040
104
000
101
11
040
101
000

P.AAJ:

116
116
124
103

104
107
122
113

P.AAM:

101
103
120
105
120
106
115
040
040
105
117
122

P.AAN:

000
105

055
115
122
040
122
122
104

124
110
103
124

P.AAK:

P.AAL:

JASCI1
LASCII
.ASCI1
LASCII
LASCLII
.ASCI1
+ASCI1
.ASCI1
CASCI1
+ASCI1
.ASCI1
LASCII
.ASCII
LASCI1
LASCII
.ASCI1
LASCI1
LASCII
LASCII
.ASCI1
LASCII
LASCII
JASCII
LASC1I
LASCII
JLASCIL
.ASCI1
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCI1
.ASCI1
.ASCII
LASCII
LASCII
LASCI1
.ASCII
LASCI1
_ASCII
LASCII
LASCII
+LASCI1
LASCI1
,ASCII
LASCII
+ASCI1
LASCII
LASCI1
LASCII
.ASCI1
+ASCII1
LASCII
LASCII
LASCII
.ASCII

/PRE/
/SS /
/PRI1/
/NTI/
/NG /
/ERR/
/OR /
/L0G/
/ ME/
/SSA/
/GES/
<00><00>
/RUN/
/7 DM/
/7 EX/
/ERC/
/1SE/
/R 1/
/NST/
/EAD/
7/ OF/
/7 MU/
/LT1/
/=DR/
/IVE/
/7 SU/
/BTE/
/ST/<00>
/RAN/
/DOM/
/ SE/
/EK /
/MOD/
/E/<00><00>
/STA/
/RTI/
/NG /
/TRA/
/(CK/<00>
<00>
/END/
/ING/
/ TR/
/ACK/
<00><00>
/REA/
/D=C/
/OMP/
/ARE/
/S P/
/ERF/
/ORM/
/ED /
/AT /
/THE/
/7 €O/
/NTR/

SEQ 0063

Page
VAX=11 Bliss=16 V3=555
(7)
D1.SRC;3
CZRCDICZRC
[DOUCETTE.
_DUA2:

001010
001013
001016
001021
001024
001027
001032
001035
001040
001043
001046
001051
001054
001057
001062
001065
001070
001073
001076
001100
001103
001106
001111
001114
001117
001122
001125
001130
001133
001136
001141
001144
001147
001152
001155
001160
001163
001166
001171
001174
001176
001201
001204
001207
001212
001215
001220
001223
001226
001231
001234
001237
001242
001245
001250

8-Jul=~1983 17:064:4%

PROTECTION TABLE

v01.0

001002
001005

11=-Jul-1983 08:42:25

CZRCDAO RC25 DISK EXERCISER

CZRCD1
117
105

127
124
117
131
127
124
103
120
105
120
106
115
040
040
105
117
122
114
000
103
103
101
040
m
123
124
117
040
040
101
116
125
122
105
116
040
124
120
124
116
123
105
040
105
105
116
040
124
120
124
116
060
117
123
125

114
122

122
105
116
000
122
105
117
101
123
105
117
105
101
124
040
116
17
105
000
110
113
114
127
124
040
040
123
102
122
104
107
123
055
106
105
104
101
101
105
000
105
103
120
055
106
105
104
101
101
105
040
040
122
105
105

114
000

M
040
114
000
m
055
115
122

P.AAO:

105
040
114
122
105
101
110
124
131
105
m
000
105
104
1
104
101
040
124
122

P.AAQ:

114
124
122
104
M
104
101
040
124
122
050

P.AAS:

P.AAP:

040
122
122
104
124
110
103
124
114
122

106
040
121
116

P.AAR:

LASCI1
.ASCII

/0LL/
/ER/<00>

JASCII
.ASCI1
.ASCII
LASCII
LASCII
CLASCII
LASCII
.ASCII
LASCII
LASCII

/ES /
/PER/
/FOR/
/MED/
/7 AT/
/7 TH/
/E C/
/ONT/
/ROL/
/LER/

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

LASCII

,ASCIl
LASCI1
JASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCI1
LASCI1
.ASCI1
LASCII
ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII1
LASCII
.ASCI1
LASCI1
LASCI1
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

LASCI1
LASCII
LASCI1
LASCII

/WRl1/
/TE /
/ONL/
/Y/<00><00>
/WRI/
/TE=/
/COM/
/PAR/

<00><00>

/CHE/
/(K /
/ALL/
/7 WR/
/ITE/
/S A/
/T W/
/0ST/
/ B8Y/
/ RE/
/ADI/
/NG/<00>
/USE/
/R=D/
/EF1/
/NED/
/ DA/
/TA /
/PAT/
/TER/
/N/<00>
/SEL/
/ECT/
/ PR/
/E=D/
/EF1/
/NED/
/ DA/
/TA /
/PAT/
/TER/
/N (/

/0 F/
/OR /
/SEQ/
/UEN/

SEQ 0064

Page
_DUA2: [DOUCETTE.CZRCDICZRCD1.SRC;3 (7)
VAX=-11 Bliss=16 V3=553

101
105
040
114
000
110
122
124
122
126
125
P.AAU:

105
105
P.AAV:

040
105
1M

121
123
117

101
m

040
120
040
040
120

040
123
116

040
114

124
124

105
105

056
000
101
127
040
114
040
127
124
107
000
101
105

000

V55
120
105
104
101

101
1M
045
&

124
122
050
040
130
125
000

116
101
040

122
106
117
123

101
105
040
066
101
115
051

115

105
11
051

123

P.AAT:

m
116

120

124
122

P.AAW:
P.AAX:
.AS

-AS

g g D Smeg St B

g Soumg g g Sy S

Prucp By g Sung Sung Gung g Swp P

Sumg $umg S Brng

Sumg S

g Gumg

g Gumg $uneg fumg Soump Suwp

Bt St Bt Bueg Grug Pt St g Bt B By
Dumeg & = Beg Dovng

g g Srumg Brmg By Bumg G

g St Bt ey Pt S Bt G Smg Bt S Sy By S S Brug et B Py g By Srneg g g Bg S By By G

g Sy Sy D Sumg Sumg Srung Pumg S Gy Bt Suumg $rong Smng g Srung Bumg Sumng Srmg e G Dt Smep Sug Bumg B

wn [V X7 X7 X7 X7 X7 17,17,]
CICICICICICICICICICICICICIOIOIOIOIOI
D alalalalala) EIICIIIOYOIONO CIICIICICIIIICIOICICICICICICIOIHIOHIOIOHIOD

101
114
124
125
122

P>
>> 7)))))))))>>)>.>)>>)>>)>>)))>
X X
X X
X
eX X o X X
X
X
X R Y X T X X7 XV XV X L e R a L el a4

114
124
116
000
125
105
117
127
104

1M1
104
101

101

040

b b b

CZRCD1
v01.0

b () b e

QO—=O—=00
=N
PNONO NWWN S

—

001253
001256
001261
001264
001267
001272

-a-n—.o-a—a—n..noo-n-l—n-a-a—n—h-a-a-b—b—a-n—n—b—n—n-fio-n-A-A.A-a—lo_n-a-no-n
—d
e
b SNON
=B ONIN=OO == = WNNIWN= =S NINO == S NOOC=NINO = 0=
OO = O =2 VNNINVIOWS BB NN
N=O = NO S NNOVO SN = AN OOWNI=an=0On

PROTECTION TABLE

CZRCDAQ RC25 D.SK EXERCISER
11=Jul-1
8-Jul-1

/TIA/
/L S/
/ELE/
/CT1/
/0N)/
<00><00>
/NUM/
/BER/
/ OF/
/ W0/
/RDS/
/ IN/
/ DA/
/TA /
/PAT/
/TER/
/N (/
/16 /
/MAX/
/1My/

<00>
/PAT/
/TER/
/N V/
/ALU/

/M) /7<00>

/€/<00>

/THE/
/ RE/
/MAl/
/NIN/
/6 Q/
/UES/
/710/
/NS /
/ONL/
/Y A/
/PPL/
/Y 1/
/70 U/
/NPR/
/0TE/
/CTE/
/D P/
/LAT/
/TER/

<00><00>
/XAP/
/0WE/
/R D/
/ELA/
/Y =/
/ WA/
/1T1/
/NGX/

/5./<00>

/N/<00>

&SN
&»Hwn

(=T
o
SN

~Go

ol
od
Co o
N

NS
Page
VAX=11 Bliss~16 V3-555
_DUA2:[DOUCETTE.C RCDICZRCD1.SRC;3 ( 7)g

SEQ@ 0065

001520

045

001553
001556

045
045

001523
001526
001531
001534
001537
001542
001545
001550

001561
001564
001567
001572
001575
001600
001603
001606
001611

001614
001616

001621
001624
001627

045

117
101

063
050

101
125
124
126
11
040
103
122

17
106
040
126
105
117
101
031
056

051
17
104
m
040
066
050
040
056

000
045

117
114
105

045
000
045
101
m
123
124

001666
001670
001673
001676

000
045
101
114

001723
001726
001730
001733
001736
001741
001744
001747
001752
001755
001760
001763

122
116
045
101
040
105
11
122
125
105
040
101

001701
001704
001707
001712
001715
001720

116

101
117
040
040
122
131
105
117

001632
001635
001636
001641
001644
001647
001652

001655
001660
001663

11-Jul-1933 08:42:25
8-Jul=1983 17:04:44

CZRCDAQ RC25 DISK EXERCISER
PROTECTION TABLE

CZRCD1
v01.0

124
1264
124

055
1M1
040
102
123
123

000
101
115
105
104

116
116
m
124
125
105
040
101
045
000
116
115
124
104
126
123
124
124
124
124
000
116
104
105
122
123
040
102
123
123
122

102
124
117
105
106
126
124
040

P.AAY:

ASCII

/INX/

LASCI1
LASCII

/%03/
/XA(/

LASCI]
LASTil
LASCII
LASCIL
JASCII
LASCII
LASCII
.ASCII

LASCII
LASCII
LASCII
LASCII
.ASCI1
LASCI1
LASCII
JASCII
LASCII

043
122
105
103
045
045
117
056
040

103
120
124
056
000

P.AAZ:

045
116
040
102
123
123
122
116

P.ABA:

045
125
111
122
105
125
105
040
101
045

P.ABB:

045
115
130
103
105
123
124
124
124
124

P.ABC:

LASCII
.ASCII

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

LASCII
.ASCII

LASCI1
LASCII
.ASCII
LASCI]
LASCII
.ASCII
LASCI1
LASCII
LASCI1

/AAB/
/0UT/
/7 T0/
7/ VE/
/RIF/
/Y V/
/ECT/
/OR_/

/0) /
/FOR/
/ DE/
/VIC/
/E X/
/06%/
/A(0/
/) ./
/.. /

<00><00>
/XAC/
/0MP/
/LET/
/ED./

/XN/<00>
<00>
/XNX/
/AIN/
/1T /
/Su8/
/TES/
/T S/
/TAR/
/TAN/

<00><00>
/INX%/
/AMU/
/LT1/
/=DR/
/IVE/
/7 SU/
/BTE/
/ST /
/STA/
/RTX/

/N/<00>
/INX/
/ADM/
7/ EX/
/ERC/
/ISE/
/R S/
/uBT1/
/EST/
/ ST/
/ART/

SEQ@ 0066

Page 17
VAX=11 Bliss=16 V3-555
(7)
_DUA2:[DOUCETTE.CZRCDICZRCDT.SRC;3

PROTECTION TABLE
116

000

104

101
1M1
0645
045
040
124
116
105
114
1M
122
103
104
000
104
101
102
103
040
101
106
122
040
040
m
045
045
040
114
124
040
063

125
124
106
101
055
122
123
122
11
124
105
110
045
000
065
056
114
113
124
116
105
105
117
125
124
104
101
050
101
105
045
045

045
045
101
120
103
105

116
116
104
114
101
040

000
045
125
111
124
120

001766
001771
001772

045
000
045

002003

062

002036
002041
002044
002047
002052

105
116
045
045
040

001775
002000

002006
002011
002014
002017
002022
002025
002030
002033

002055
002060
002063
002066
002071
002074
002077
002102
002105

002110
002113
002116
002121
002124

002127

002132

002135
002140
002143
002146
002151
002154
002157
002162
002165
002170
002173
002176
002201
002204
002207
002212
002215
002220
002223
002224
002227
002232

11=Jul=1983 08:42:25
8-Jul=1983 17:04:44

CZRCDAQ RC25 DISK EXERCISER

CZRCDY

v01.0

116
040

056
040
101
106
040
115
040
101

117
123
122
123
122
104
116
116
040

062

056
120
124
122
101

114
124
040
104
123
045
045
040
040
040
066
050
000
045
101
122

056

101
105
101
122
123

104
101

101
111
045
045
117

116
101
105

P.ABD:

/XN/<00>
<00>
/%AU/

CLASCI1

/2%A/

ASCI1
JLASCII

.ASCI1
LASCII
.ASCII
LASCII
+ASCII

LASCII
JASCII
<ASCII
LASCII
.ASCI1
.ASCII
LASCII
LASCII1
LASCII

LASCII

LASCII
LASCII
LASCII
LASCII

.ASCI1
JASCII

051

P.ABF:

CLASCI1
.ASCII
JLASCII
LASCI1
LASCII
LASCII1

LASCII
LASCI1
LASCII
.ASCI1
LASCI1

124
122
104
105
040

LASCII
.ASCII

063
056

124
120
117
101
051

045
114
101

LASCI1
LASCII
.ASCII
LASCIL
+ASCI1
ASCI1
LASCI1
LASCID
LASCI1
.ASCI1
LASCII

P.ABE:

P.ABG:

JASCII
JLASCIL
LASCII
.ASCI]
LASCLI
LASCII

.ASCII
LASCI1
.ASCII

/NIT/
/_%D/

/. =/
/ TR/
/ANS/
/FER/
/7 L1/
/MIT/
/ RE/
/ACH/
/EDX/
/N/<00><00>
/XD5/
/%A./
/ BL/
/0CK/
/S T/
/RAN/
/SFE/
/RRE/
/D 0/
/N U/
/N1T/
7/ _XD/
/2%A/
/. (/
/PLA/
/TTE/
/R ¥/
/D3%/
/A.)/
/XN/<00>
/INX/
/ADU/
/PLY/
/CAT/
/E P/
/LAT/
/TER/
/ AD/
/DRE/
/SS_/
/%D3/
/XA./
/ AT/
/ 1IP/
7/ %0/
/6%A/
/(0)/
<00>
/INX/
/AAL/
/REA/

SEQ 0067

Page 18
VAX=11 Bliss=16 V3-555
_DUA2:CDOUCETTE.CZRCDICZRCD1.SRC;3 (7)

002235
002240
002243
002246
002251
002254
002257
002262
002265
002270
002273
002276
002301
002304
002307
002312
002315
002320
002323
002326
002331
002334
002337
002342
002344
002347
002352
002355
002360
002363
002366
002371
002374
002376
002401
002404
002407
002412
002415
002420
002423
002426
002431
002434
002437
002442
002445
002450
002453
002456
524661

00< 464
002467
002470
002473
002476
002501

11=-Jul=1983 08:42:25
8-Jul=1983 17:064:44

CZRCDAQO RC25 DISK EXERCISER
PROTECTION TABLE

CZRCDY
v01.0
104
064
116
123
124
120
117
101
051
045
101
122
1264
116
104
101
M
105
116
m
101
122
123
123
045
116
040
062
056
122
120
040
000
045
123
040
115
116
116
045
117
1M
122
18]
040
122
045
045
116
040
122

131
040
11
040
040
040
066
050
000
116
115
105
110
040
061
040
106
122
124
120
104
105
123
000
101
m
045
045
040
17
105
055
000
101
105
103
115
104
000
101
116
107
101
117
105
117
116
101
111
105
117

040
125
124
101
M
045
065
117
000
045
117
040
101
065
045
104
106
105
040
040
104
123
105

122

101
122
105
117

045
000
045
101
040

116

P.ABH:

125
124
104
101
104
120
104
040

P.ABI:

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

P.ABJ:

110
104
122
122

P.ABM:

P.ABK:

P.ABL:

000

LASCI1
LASCII
LASCII
LASCII
LASCII
ASCI1
LASCI1
LASCII
ASCII
.ASCII
LASCTT
LASCII
LASTI1I
LASLI1
LASCII
LASCII
ASCI1
.ASCII
LASCII
JASCII
LASCII
LASCII
+ASCI1
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
JLASCII
LASCII
JASCIT
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCII
LASCI1
LASCII
LASCIJ
LASCII
.ASCI1
LASCI1
.ASCII
CLASCII
.ASCII
LASCI1

LASCII
LASCII
ASCII
.ASCII
LASCII
+ASCI1

/DY /
/4 U/
/N1T/
/S A/
/T 1/
/P ¥/
/06%/
/A(0/
/3/200><00>
/INX/
fAm0/
/RE /
/THA/
/N X/
/D1%/
/A D/
/IFF/
/ERE/
/NT /
/1P /
/ADD/
/RES/
/SSE/
/5/<00>
/3AU/
/NIT/
/7 XD/
/2%A/
/. D/
/ROP/
/PED/
/1 =/
<00><00>
/XAU/
/SER/
/ CO/
/MMA/
/NDX/
/N/<00><00>
/XAC/
/ONF/
/1GU/
/RAT/
/ION/
/ ER/
/ROR/
/XN/<00>
/X%Al/
/NIT/
/ ER/
/ROR/

/XN/<00>
<00>
/XAH/
/ARD/
/ ER/
/ROR/

SEQ 0068

Page 19
VAX=11 Bliss=16 V3=555
(7)
RC;3
DICZRCDT.S
CETTE.CZRC
_DUA2:[DOU

002504
002507
002512
002515
002520
002523
002526
002531
002534
002537
002542
002545
002550
002553
002556
002561
002564
002567
002572
002575
002576
002601
002604
2607
002612
002615
002620
002623
002626
002631
002634
002637
002642
002645
002650
002653
002654
002657
002662
002665
002670
002673
002676
002701
002704
002707
002712
002714
002717
002722
002725
002730
002733
002736
002740
002743
002746

11=Jul=1983 08:42:25
8=Jul=1983 17:06:44

CZRCDAO RC2S5 DISK EXERCISER
PROTECTION TABLE

CZRCD
v01.0
040
115
040
101
105
116
045
116
103
105
102
040
122
045
124
040
116
125
124
000
116
124
122
040
122
040
117
040
123
17
104
116
110
123
124
000
122
1M1
105
105
123
116
040
123
106
114
000
126
124
040
123
106
114
000
102
114
105

114
MM
122
103
104
000
101
122
117
122
114
105
117
116
117
115
13
116
123

MM
124
105
110
045
000
125
105
126
101
105
122
122
000
117
101
040
M
000

105
110
040
116
040
103
103
127
040
125
040
040
105
13
105

111
105
120
117
114
114
113
101
106
116
"7
124
040
123
115

P.ABP:

105
123
122
130
124
103
124
124
101
105
000
105
117
124
124
101
105
000
122
105
114

107
124
040
m
105
105
105
040
1M1
104

P.ABQ:

103
122
105
040
11
104

P.ABR:

040
126
040

P.ABS:

P.ABN:

P.ABO:

LASCII
LASCII
.ASCI1
LASCII
LASCI1
LASCII
.ASCI]
LASCI1
LASCII
LASCI1
.ASCl]
LASCI1
.ASCI1
JASCII
.ASCII
LASCII
LASCI1
LASCI1
LASCII
LASCII
.ASCII
LASCII1
ASCII

LASCII
LASCII
LASCII
LASCI1
ASCI1I
LASCII
.ASCI]I
LASCI1
LASCII
LASCII
LASCI1
.ASCI11
LASCII
.ASCII
JASCII
.ASCI1
LASCII
LASCII
LASCI]
LASCI1
LASCII
LASCI1
LASCI1
LASCII
.ASCIl
LASCII
ASCII
LASCII
LASCI1
LASCII

LASCII
.ASCIl
LASCII

LASCI1

/7 LY/
/M1T/
/ RE/
/ACH/
/EDX/
/N/<00><00>
/Z%AU/
/NRE/
/COv/
/ERA/
/BLE/
7 ER/
/ROR/
/73N/<00>
/T00/
7 mA/
/NY /
/UNI1/
/71S5/<00>
<00>
/NEl/
/THE/
/R P/
7/ NO/
/R L/
/7 CUL/
/0Ck/
/7 WA/
/S F/
/OUN/
/D 0O/
/N T/
/HE /
/SYS/
/TEM/
<00>

/REG/
/1SV/
V/ER /
/EX1/
/STE/
/NCE/
/7 TE/
/ST /
/FAl/
/LED/
<00><00>
/VEC/
/TOR/
7/ TE/
/ST /
/FAl/
/LED/
<00><00>
/BR /
/LEV/
/EL /

SEQ 0069

Page
VAX=11 Bliss=16 V3=-555
(7)
D1.SRC:3
CZRCDICZRC
_DUA2: [DOUCETTE.

CZRCDAQ RC25 DISK EXERCISER
PROTECTION TABLE

CZRCDY
v01.0
002751
002754
002757
002762
002765
002766
002771
002774
002777
003002
003005
003010
003013
003014
003017
003022

003025

124
126
101
105
000
m
124
105
105
105
101
105
000
106
101
120

124

003030
003033
003036
003041
003044
003047
003052
003055
003060
003063
003066
003071
003074
003077
003102

040
116
117
105
105
117
115
123
105
105
117
105
m
117
000

003120
003122

104
127

003104
003107
003112
003115

003125
003130
003133
003136
003141
003144

003147

003152
003155
003160
003163

003166
003170
003173
003176
003201
003204

003207
003210

11=-Jul=1983 08:42:25
8-Jul=1983 17:04:44

105
040
m
104

123
106
114
000

116
040
121
116
040
m
104

1M1
123
125
103
106
114
000

P.ABT:

101
114
117

124
040
122

P.ABU:

040

103
124
114
122
122
122
105
101
040
123
116
040
115
125
000

P.ABV:

114
105
101
105

P.ABW:

124
120
126
124
117
114

116
116
106
114
000
122
105
122
105
040
116
1M

11
055
117
103
103
106
103

P.ABX:

101
105
040
m

103
123
106
114

103
123
101
105

P.ABY:

124
040

P.ABZ:

117
m
040
m

124

104
106
101
1M1
040
122

000
103

000

000
101
114
057
105

000

117

122
122

117

116

/TES/
/T F/
/AIL/
/ED/<00>
<00>
/INl/
/T S/
/EQU/
/ENC/
/E F/
/AIL/
/ED/<00>
<00>
/FAT/
/AL /
/POR/

LASCII
LASCII
LASCI1
JASCI1
+ASCII
.ASCII
.ASCII
LASCI1
JASCII
LASCII
LASCII
LASCII
LASCII
LASCII
ASCII

/7 €O/
/NTR/
/0LL/
/ER /
/ERR/
/0OR/<00>
/MES/
/SAG/
/E R/
/ESP/
/ONS/
/E 1/
/IME/
/0Ut/
<00><00>

CASCII

057

117
122
114
040
122
000
123
107
122
120
123
124
105
124

LASCI1
CLASCII
LASCII
LASCII
LASCII
.ASCII
LASCIL
LASCI1
LASCII
LASCII
JASCII
.ASCI1
LASCII
.ASCII
LASCII1
.ASCI1

.ASCII
LASCII
JASCII
LASCII
.ASCI1
.ASCII
LASCI1
.ASCII
LASCII
LASCII
.ASCIl
LASCII

LASCII

ASCII
JASCII
LASCII
LASCI1

.ASCII
.ASCIl
LASCII
LASCII
LASCI1

LASCII

P.ACA:

LASCII
,ASCI1

/T /<57>

/ONL/
/INE/
7/ FA/
/ILE/
/D/<00>
/WRl/
/TE=~/
/PRO/
/TEC/
/T C/
/ONF/
/LIC/

/1/<00><00>
/ACC/
/ESS/
/7 FA/
/ILE/

/D/<00>
/FAT/
/AL /
/71/<57>/0/
/ ER/
/ROR/

<00>
/CON/

SEQ 0070

Page 21
VAX=11 Bliss=16 V3=555
_DUA2: EDOUCETTE.CZRCDICZRCD1.SRC:3 (7)

VAX=-11 Bliss=16 V3-555

CZRCDAO RC25 DISK EXERCISER

CZRCD1
v01.0

P.ACE:

116
122

P.ACF:

101
040
123
116

040
040
104
123
045
045
117
116
101
103
122
124

>» P2 2. 2. 3. 20

105
110
040
062
056
116
123
120
11
105
116

120

123
101
101
122
123
117
101
051
000
m
117
105
040

P.ACG:

.AS

g Big Pt Bmeg $g g g $rneg B St by $mep

115

122
124
116
104
101
125
124
123
103
1M1
045
000

104

g Bt g g Brung S Guump B S B

101

105
000

g S Smiep Bueg g g Py Deg B S

P.ACD:

Sy g g G

117
105
105
040
m

e BEEBEBBI
P »>>

057
122
125
124
101

124

122
m
117
000

w nununununuLLIVILIKLKLILIL wVvwmumunuvsnuLnIuvInVnunnnnwm wunn
D
CVNIIVNCICIICICICIOIOICICIOHNAON
VYOI D alalalalalalalalslalalsl IACICICIIOIIOIOIOIOIOICIOIOIOIOINOIOIOIOION
g Sumg Sy Srmp Gumeg g S Sumng Gumeg By ey Sump g g Smg Guumg St S Sumg g $rumg Buneg St Sy B mng Gmep Sy g Bung P Smag g g Poug g $meg Gumrg) Sy Bt g Srumg Guang Puumg Gup Prua et P S By Prg St Bung g g G Bume

105
124
105

P.ACC:

103

040
105

11
104

ONO=O—

045

000
115
130

P.A(B:

o—ho-noo—A_._a-no-no_.-ao_._l-h-ao_.-a_n—no—ao_a—-_...._a
SOR RO =ONNDSDON=H/NVNOOO~O
=200 ===
V=2 ONWVO SO W=O=OVVVIOWNIWMEOSOOVNOSON=NES
S

045

101
105

17
105
124
105
126
120
117
101
040

Page

_DUA2: [DOUCETTE.CZRCDICZRCD1.SRC;3 (7)

PROTECTION TABLE

122
114
040
115
125
000
125
103
115
104

SEQ 0071

/TRO/
/LLE/
/R 1/
/IME/
/0Ut/
<00><00>
/DUP/
/ €0/
/MMA/
/ND /
/FAl/
/LED/
<00><00>
/DM /

/EXE/
/RC1/
/SER/
/ 11/
/MEQ/

/UT/<00>

<00>

/11/<57>/0/
/ RE/

/QUE/
/5T /
/FAl/
/LED/
<00><00>

/TAM/

/ORE/
/ TH/
/AN /
/%D2/
/%A./
/ UN/
7118/
/ SP/
/EC1/
/FI1E/
/DAN/
<00><00>
/XAN/
/0 R/
/ESP/
/0ONS/
/E A/
/T A
/DDR/
/ESS/
/ X0/

/6%A/
/(0)/

/IN/<00>
/XA1/
/NCO/
/RRE/
/CT /

003460
003463
003466
003471
003474
003477
003502
003505
003510
003513
003516
003521
003524
003526
003531
003534
003537
003542
003545
003550
003553
003556
003561
003564
003567
003572
003575
003600
003603
003604
003607
003612
003615
003620
003623
003626
003631
003634
003637
003642
003645
003650
003653
003656
003661
3664
003667
003672
003675
003676
003701
003704
003707
003712
003715
003720
003723

11-Jul=-1983 08:42:25
8-Jul=1983 17:04:44

CZRCDAQ RC25 DISK EXERCISER
PROTECTION TABLE

CZRCD
v01.0
102
114
105
107
105
106
040
126
105
17
101
051
000
045
124
040
061
040
0
105
117
117
104
1M
040
066
050
045
000
045
122
122
117
040
103
126
040
040
040
107
124
040
040
126
105
117
101
051
000
045
101
105
124
122
105
105
116

122
105
114
m
116
117
104
m
040
066
050
045
000
101
105
045
045
122
104
122
122
116
105
103
065
045
17
116

040
126
040
126
040
122
105
103
045
045
117
116
123
120
104
101
105
040
122
040
040
126
105
117
101
051
000

P.ACH:

101
122
040
104
122
105
105
m
123
122
mnm
105
117
104
M
040
066
050
045

105
117
103
105
105
1M
104
116
101
105
123
122
106
105
103
045
045
117
116

P.ACI:

101

106

P.ACJ:

104
117
105
11
040
104

040
040
103
126
105
040

114

.ASCI1l
LASCIT
LASCII
LASCIT
.ASCI1
LASCI1
LASCII
LASCII
.ASCI1
.ASCII
LASCII
LASCI1
LASCI1
.ASCII
LASCII
LASCII
LASCII
.ASCI1
LASCII1
+ASCI1
.ASCI1
.ASCI1
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
.ASCII
.ASCI1
LASCII
+LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCII
JASCII
LASCII
LASCII
LASCI1
LASCII
JASCIL
LASCII
LASCI1
LASCI1l
LASCII
LASCII
.ASCIl
LASCII
.ASCII
LASCII
.ASCI1
LASCII
CLASCII
LASCII

/BR /
/LEV/
/EL /
/GIV/
/EN /
/FOR/
/ DE/
/VIC/
/E %/
/06%/
/ACO/
/)XN/
<00><00>
/%AS/
/TEP/
/7 XD/
/1XA/
/ RE/
/AD /
/ERR/
/OR /
/ON /
/DEV/
/ICE/
/ %0/
/6%A/
/7¢0)/
/XIN/<00>
<00>
/ZXAE/
/RRO/
/R C/
/ODE/
/ RE/
/CEL/
/VED/
/ IN/
/ SA/
/ RE/
/G1S/
/TER/
/ OF/
/ DE/
/VIC/
/E %/
/706%/
/AC0/
/)XN/
<00>
/ZAF/
/AIL/
/ED /
/70 /
/REC/
/EIV/
/E B/
/ND /

SE@ 0072

Page 23
VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD1.SRC;3 (7)

8-Jul=1983 17:06:44

PROTECTION TABLE

v01.0

003726
003731
003734
003737
003742
003745
003750
003753
003756
003761
003764
003766
003771
003774
003777
00400
004005
004010
004013
004016
004021
004024
004027
004032
004035
004040
004043
00404
004051
004054
004057
004062
004065
004070
004073
004076
004101
004104
004107
004112

115
123
105
122
040
126
105
117
101
051
000
045
122
122
116
105
117
105
117
116
116
103
115
104
117
120
124
122
104
101
116
045
114
124
049
063
056
123
127
122

105
101
040
117
104
m
040
066
050
045
000
101
122
040
040
123
116
040
040
114
105
117
101
040
122
114
124
040
063
056
000
101
101
105
045
045
040
040
040
1

004131
004134
004137
004142
004145
004150
004153
004156
004160
004163
004166
004171
004174

124
127
122
105
122
105
105
116
045
103
123
106
114

040
040
M
055
117
103
104
000
101
103
123
101
105

004115
004120
004123
004126

11-Jul~1983 08:42:25

CZRCDAO RC25 DISK EXERCISER

CZRCDY

105
116
114
040

055
101
105
102

123
107
106
115
105
103
045
045
117
116

105
117
11
122
120
123
124
117
111

P.ACK:

040
115
116
106
040
101
105
045

045
045
000
120
1264

P.ACL:

122
104

101

11
123
127
124
105
102
104
125
110
127
124
120
124
124
045

101
105
040
1m
104

LASCII
ASCII
.ASCI1
+ASCI1
+ASCI1
LASCII
LASCII
LASCI1
+ASCI1
LASCI1
ASCII
.ASCII
LASCII
LASCII
JASCII
LASCI1
.ASCI]
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCI1
LASCII
LASCII
LASCI1
LASCII
LASCII
LASCII
LASCI1
.ASCI1
.ASCII
JASCII
LASCII
JASCII
LASCII
JASCII
LASCII
LASCII
LASCII

/MES/
/SAG/
/E F/
/ROM/
/ DE/
/VIC/
/E X/
/06%/
/A(0/
/)XN/
<00><00>
/XAE/
/RRO/
/R 1/
/N R/
/ESP/
/ONS/
/E 1/
/0 O/
/NLI/
/NE /
/COM/
/MAN/
/D F/
/OR /
/PLA/
/TTE/
/R %/
/D3%/
/A.%/
/N/<00><00>
/XAP/
/LAT/
/TER/
/7 XD/
/3%A/
/. 1/
/S S/
/W W/
/RIT/

LASCI1
LASCIL
LASCI1
LASCI1
.ASCI1
LASCII
LASCI1
LASCII
L.ASCII
+ASCI1
LASCI1
LASCIL1
LASCIl

/T H/
/M W/
/RIT/
/E=-P/
/ROT/
/ECT/
/EDX/
/N/<30>
/XAAN/
/CCE/
/SS /
/FAl/
/LED/

LASCI1
+ASCI1
JASCII
LASCII

P.ACM:

/E-E/
/NAB/
/LED/
/ BU/

SEQ 0073

Page
(7)
_DUA2: [DOUCETTE.CZRCDICZRCDI.SRC;3
VAX=-11 Bliss=16 V3-555

004213
004216
004221
004224

004227
004232
004235
004240
004243
004246
004251
004254
004257
004262
004264
004267
004272
004275
004300
004303
004306
004311
004314
004317
004322
004325
004330
004333
004336
004341
004344
004347
004350
004353
004356
004361
004364
004367
004372
004375
004400
004403
004406
004411
004414
004417
004422
004425
004430
004433
004436
004441
004444

8-Jul=1983 17:064:44

PROTECTION TABLE

v01l.0

004177
004202
004205
004210

11-Jul=1983 08:42:25

CZRCDAQ RC25 DISK EXERCISER

CZRCD1
040
040
101
105

117
120
124
122

114
124
040
063
056
105
040
106
116
116
045
105
103
045
045
17
116
040
117
123
116
103
115
104
101
105
045
000
045
105
101
040
112
124
040
040
120
105
105
117
104
m
040
066
050
045
045
117
105

101
105
045
045
040
116
117
114
105
000
101
126
105
117
101
051
117
120
103
123
107
117
101
040
103
124
116

045
065
045
045

104
101
116
101

101
123
107
122
105
105
102
104
040
122
122
116
105
103
045
045
117
116
101
040
123

116
114
124
0490

063
056
000
120
124
122
104
101
127
1264
106
11
045

P.ACN:

104
11
040
066
050
040
124
122
105
MM
040
115
116
120
113
123
000

P.ACG:

115
123
105
105
103
104
131
125
123
126
040
040
126
105
117
101
051
000
116
122
120

P.ACP:

P.ACQ:

LASCI1
LASCII
LASCII
.ASCII

7/ ON/
/7 PL/
/ATT/
/ER_/

LASCI1
LASCII
LASCI1
LASCI1
LASCII
LASCI1
LASCII
LASCII
.ASCI1
.ASCII
.ASCII
LASCII
LASCII
LASCI1
CLASCII
JASCII
LASCII
LASCI1
+ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
JASCII
LASCII
LASCII1
LASCI1
.ASCII
.ASCI1
.ASCI1
.ASCII
LASCII
LASCI1
.ASCI1
LASCI1
LASCII
LASCII
LASCII
.ASCI1
.ASCI1
LASCI1
LASCII
LASCII
JASCIT
LASCII
ASCII
LASCI1
LASCI1

/LAT/
/TER/
/7 XD/
/3%A/
/. W/
/ENT/
/ OF/
/FL1/
/NEX/
/N/<00>
/%AD/
/EVI/
/CE /
/%06/
/XA(/
/0) /
/NOT/
/ PR/
/0CE/
/SS1/
/NG /
/COM/
/MAN/
/D P/
/ACK/
/ETS/
/XN/<00>
<00>
/XAM/
/ESS/
/AGE/
/ RE/
/JEC/
/TED/
/ BY/
/ DU/
/P S/
/ERV/
/ER /
/ON /
/DEV/
/ICE/
/7 %0/
/6%A/
/(0)/
/XN/<00>
/XAN/
/0 R/
/ESP/

LASCI]
LASCIT
LASCII
.ASCII

/%D3/
/ZA./
/IN/<00>
/XAP/

VAX=-11 Bliss=16 V3-555

SEQ 0074

Page

_DUA2:[DOUCETTE.CZRCDICZRCD1.SRC;3 (7)

CZRCDAQ RCC5> DISK EXERCISER
PROTECTION TABLE

CZRCDY
v01.0
004447
004452
004455
004460
004463
004466
004471
004474
004477
004502
004505
004510
004513
004516
004521
004524
004527
004532
004535
004540
004542
004545
004550
004553
004556
004561
004564
004567
004572
004575
004600
004602
004605
004610
004613
004616
004621
004624
004626
004631
004634
004637
004642
004645
004650
004653
004656
004661
004664
004667
004672
004674
004677
004702
004705
004710
004713

117
105
122
040
117
040
116
040
123
105
103
11
040
040
126
105
117
101
051
000
045
125
105
045
045
116
114
040
115
116
116
045
117
101
040
117
105
116
045
116
055
106
116
116
045
116
055
1079
101
105
000
045
105
101
117
101
105

116
040
17
106
116
120
105
124
124
130
125
116
m
104
M
040
066
050
045
000
101
103
123
116
101
126
11
103
115
104
000
101
115
116
101
122
104
000
101
m
117
114
105
000
101
11
101
111
102
045
000
101
104
040
122
124
122

123
106
115
122
124
101
114
105
040
105
124
107
116
105
103
045
045
117
116
123
103
123
000
m
101
104
117
101
045

P.ACR:

103
115
104
102
124
045

P.ACT:

125
124
106
1M1
045
000
125
124
126
114
114
116

P.ACU:

115
1M1
106
115
040
122

P.ACW:

P.ACS:

P.ACV:

11-Jul=-1983 08:42:25
8-Jul=1983 17:04:44
LASCII /ONS/
LASCII /E F/
LASCII /ROM/
LASCII / FR/
LASCI1 /ONT/
LASCII / PA/
.ASCII /NEL/
LASCI1 / TE/
LASCI1 /ST /
JASCII /EXE/
LASCII /CUT/
LASCI1 /ING/
LASCIL1 / IN/
+ASCII / DE/
LASCI1 /vIC/
LASCI1 /E %/
.ASCI1 /06%/
LASCII /A(0/
LASCII /)XN/
ASCII <00><00>
.ASCII /XAS/
LASCII /UCC/
LASCII /ESS/
LASCII /XIN/<00>
.ASCII /XAl/
LASCI1 /NVA/
LASCII /L1D/
JASCII / CO/
LASCI1 /MMA/
LASCII /NDX/
LASCII /N/<00>
LASCII /XAC/
JASCII /0MM/
LASCI1 /AND/
LASCI1 / A8/
+ASCI1 /ORT/
+ASCI1 /EDX/
LASCII /N/<00>
.ASCII /3AUV/
LASCII /NIT/
LASCI1 /=OF/
LASCI1 /FL1/
LASCI1 /NEX/
LASCII /N/<00><00>
L.ASCII /3AW/
LASCI1 /NIT/
LASCII /=AV/
LASCII /AIL/
LASCII /ABL/
LASCII /EXN/
LASCII <00><00>
.ASCII /XAM/
LASCII /EDI/
LASCII /A F/
.ASCI11 /ORM/
LASCIL /AT /
LASCII /ERR/

SEQ 0075

Page
VAX=-11 Bliss=16 V3-555
(7)
RC;3
RCDICZRCD1.S
_DUA2: [DOUCETTE.CZ

004716
004721
004724
004727

117
116
045
122

0064743
004746
004750
004753
004756
004761
004764
004767

105
116
045
105
103
103
120
105

004732
004735
004740

004772
004775
005000
005002
005005
005010
005013

005016
005021
005022
005025

005030
005033
005036
005041
005044
005047
005052

005055
005060
005063
005066

005071
005074
005077
05102
005105
005106
005111
005114
005117
005122

005125
005126
005131
005134
005137
005142
005145
005150
005153
005156

11-Jul=1983 08:42:25
8=Jul=1983 17:06:44

CZRCDAQ RC25 DISK EXERCISER
PROTECTION TABLE

CZRCD1
v01.0

105
122
105

122
122
000
045
101
040
122

045
000
045
117

040
106
122
103
123
105
117

116
045
117
122
114
040
122
045
000
04
122
105
122
122
000
045
117
055
124
124
040
m
055
115

122
000
101
M

045
000
127
124

104
000
101
126
105
117
101
040

045

055
117
103

P.ACX:

104
1M1
040
115
122
105
117
116

P.ACY:

P.ACZ:

116

104
101
122
122
000

101
123
102
106
040
103
123
122
122
000
101
116
117
105
105
117
116

110
1264
125
105
101
105
040
122
045
000
103
124
114
122
122
122
000

P.ADA:

101
m
040
122
045

104
126
105
117
116

P.ADC:

101
123
104
105
105
127
124
103
120

110
124
105
103
104
122
105
117
101

P.ADD:

122
045
000
101
124
105
117

LASCII
LASCII
.ASCII
ASCI1

/OR%/
/N/<00><00>
/XAW/
/RIT/

.ASCI1
LASCII
.ASCII
LASCI1
LASCII
LASCII
LASCI1
LASCI1

/EDX/
/N/<00>
/XAD/
/EV1/
/CE /
/7COM/
/PAR/
/E E/

ASCI1
ASCII
LASCI1

120
124
124

P.ADB:

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

ASCII
.ASCII
.ASCII
.ASCI1

LASCII
LASCI1
.ASCIl
LASCII
LASCII
.ASCI1
.ASCII
LASCII
.ASCIl
.ASCII1
LASCII
LASCI1
LASCI1
LASCI1
LASCII
.ASCII
.ASCII
LASCII
LASCII
.ASCI1
.ASCI]
.ASCI1
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCII
JASCID
LASCII
LASCI1

/E-P/
/ROT/
/ECT/

/RRO/
/RXN/
<00><00>
/XAD/
/ATA/
/ ER/
/ROR/

/XN/<00>
<00>
/XAH/
/0ST1/

/ BU/
/FFE/
/R A/
/CCE/
/SS /
/ERR/
/ORX/
/N/<00><00>
/XAC/
/ONT/
/ROL/
/LER/
/ ER/
/ROR/
/XN/<00>
<00>
/XAD/
/RIV/
/E E/
/RRO/
/RXN/
<00>
/XAW/
/0ST/
/=DE/
/TEC/
/TED/
/ WR/
/ITE/
/=C0/
/MPA/

SEQ@ 0076

Page
VAX=11 Bliss=16 V3=555
(7)
RC;3
_DUA2:[DOUCETTE.CZRCDICZRCD1.S

005161
005164
005167

005172
005174

005177
005202
005205
005210
005213
005216
005221
005224
005227
005232
005235
005240
005243
005246
005251
005254
005256
005261
005264
005267
005272
005275
005300
005303
005304
005307
005312
005315
005320
005323
005326
005331
005334
005337
005342
005345
005350
005353
005356
005361
005364

005367
005372
005375
005400

005403
005406
005411
005414
005417
005422
005425

11=-Jul=1983 08:42:25
8-Jul=1983 17:04:44

CZRCDAO RC25 DISK EXERCISER
PROTECTION TABLE

CZRCD1
v01.0
122
105
117

116
045

101
105
124
122
105
105
116
115
123
105
117
m
040
115
116
116
045
040
123
040
066
050
045
000
045
040
103
040
106
125
040
066
050
045
045
040
123
124
040
104
040

062
050
045
045

040
104
040
101
123
117
072

105
122
122

000
101

11
104
117
105
11
040
104
105
101
040
122
057
103
115
104
000
101
040
101
045
045
17
116

101
040
115
122
040
115
045
045
117
116
101
040
124
125
103
105
045

045
117
116
101

040
125
123
124
040
104
040

040
122
045

106
114
040
040
103
126
105
040
123
107
106
040
117
117
101
045

P.ADE:

040
040
072
117
101
051
000

P.ADF:

040
040
104
105
116
072
117
101
051
000
040
040
101
123
117
072
117
101
051
000
040
040
120
124
125
103
105
045

P.ADG:

P.ADH:

P.AD1:

+ASCII
.ASCII1
.ASCII

/RE /
/ERR/
/OR%/

LASCII
LASCI1
LASCII
LASCII
LASCII
LASCI1
.ASCII
LASCI1
LASCI1
LASCII
LASCII
LASCI1
LASCI1
LASCII
LASCI1
LASCII
.ASCI1
JASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
JASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
LASCII
LASCII
.ASCII
LASCIL
LASCI]
LASCII
LASCII
.ASCI1
LASCIl

/AIL/
/ED /
/70 /
/REC/
/EIV/
/E E/
/ND /
/MES/
/SAG/
/E F/
/OR /
/1/<57>/0/
/ CO/
/MMA/
/NDR/
/N/<00>
/XA /
/
/
/SA:/
/ %0/
/6%A/
/7€0)/
/7%N/<00>
<00>
/XA /
/
/1
/CMD/
/ RE/
/F N/
/UM:/
/7 %0/
/6%A/
/¢0)/
/XN/<00>
/XA /
/
/7
/STA/
/TUS/
/7 CO
/DE:/
/_ 20

LASCII
.ASCII

LASCI1
LASCII
LASCII
LASCII

LASCII
LASCII
LASCII
LASCII
LASCII
-ASCI1
LASCIL

/N/<00>
/XAF/

/2%A/
7(0)/
/IN/<00>
/XA /
[/
/4
/DUP/
/ ST/
/ATU/
/S C/
/ODE/
/: ¥/

SEQ 0077

Page 28
VAX=11 Bliss=16 V3-555
(7)
T.SRC;3
RCDICZRCD
UCETTE.CZ
_DUA2:[DO

CZRCDAQ RC25 DISK EXERCISER

CZRCD1

005430
005433
005436
005440
005443
005446
005451
005454
005457
005462
005465
005470
005473
005474

104
101
116
045
040
123
055
104
040
064
050
045
000
045

005513
005514

000
045

005517
005522
005525
005530
005533
005534
005537

005542

040
103
115
104

105
103
122
110
000
045
116

116

005545
005546
005551
005554
005557
005562
005565
005570
005573
005576
005601
005602
005605
005610
005613
005616
005621
005624
005626
005631

000
045
130
125
040
120
1M
040
117
101
000
045
105
040
124
045
105
000
045
122

005636
005641
005644
005647
005652
005654
005657
005662

045
103
120
105
000
045
040
102

005634

8-Jul=1983 17:04:44

PROTECTION TABLE

v01.0

005477
005502
005505
005510

11-Jul=1983 08:42:25

105

061
056
000
101
040
125
103
105
045
045
117
116

045
045
040
040
102
117
072
117
101
051
000

P.ADJ:

101
040
117
101
072

040
040
115
116
040

P.ADK:

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

101
124
124
040
101

123
040
114
103
122

P.ADL:

LASCII
.ASCII

101
114

117
1M1

P.ADM:

000

101
105
124
123
120
105
120
107
115

105
103
105
125
114
104
122
122
000

P.ADN:

101
116
104
1)1
101
101
000
101
11

123
104
101
000
122
104

P.ADO:

127
124

P.ADQ:

101
117
101
045
000
101
040
101

055
115
122
116

P.ADR:

040
040
104

P.ADS:

000

LASCII
JLASCIL
LASCII
LAST11
LASCII
.ASCII
LASCII

/
/7
/COM/
/MAN/
/D: /
<00>
/XAS/
/ET /
/CTL/
/R C/
/HAR/
<00>
/XA0/
/NL1/

LASCII
.ASCII
LASCII
LASCI1
LASCII
JASCII
LASCI1
LASCIl
.ASCII
LASCII
LASCII
.ASCII
LASCI1
.ASCII
LASCII
,ASCII
LASCII
LASCII
ASCII
LASCIL1

<00>
/XAE/
/XEC/
/UTE/
/7 SU/
/PPL/
/IED/
/ PR/
/0GR/
/AM/<00>
<00>
/XAS/
/END/
/ DA/
/TA/<00>
/XAR/
/EAD/
<00><00>
/XAW/
/RIT/

.ASCII
LASCII
LASCII
LASCII
LASCII
.ASCII
LASCIL
LASCII

/XA=/
/COM/
/PAR/
/EXN/
<00><00>
/XA /
/0
/BAD/

LASCIL
LASCII
LASCI1
LASCIL

LASCI1

105

P.ADP:

/D1%/
/A.%/
/N/<00>
/XA /
/
/4
/Su8/
/=-C0/
/DE:/
/ %0/
/4%A/
/7¢0)/
/XN/<00>
<00>
/%A /

LASCII

/NE/<00>

/E/<00>

VAX-11 Biiss=16 V3=555

SEQ 0078

Page

_DUA2: [DOUCETTE.CZRCDICZRCD1.SRC;3 (7)

PROTECTION TABLE

v01.0

005665
005670
005673
005676
005701
005706
005707
005712
005715
005720
005723
005726
005731
00573¢
005737
005742
0057644
005747
005752
005755
005760
005763
005766

040
117
040
120
126
072
106
101
116
045
040
114
072
104
101
116
045
040
102
105
117
1264
116

102
103
122
117
105
040
065
056
00
101
040
102
040
065
056
000
101
040
131
040
125
040
040

005777
006002
006005
006010
006012
006015
006020
006023
006026
006031
0060
006037
006042
006045
006050
006053
006056
061
006064
006067
006070
006073
006076
006101
006106
006107
006112
006115
006120
006123
006126
006131

072
104
101
116
045
040
101
125
040
117
102
105
126
116
105
105
040
065
056
000
045
040
111
040
106
122
105
122
1264
072
067
050

040
065
056
000
101
040
103
101
043
106
131
123
122
123
122
104
045
045
045

005771
005776

8-Jul-1983 17:04:44

17
101

115
116

101
040
057
102
106
040
123
111
117
045
045
117

114
113
105
122
104
045
045
045
000
040
040
116
045
045
045

P.ADT:

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

P.ADU:

040
040
124
114
040
040
124
040
101
106
122
072
104
101
116

P.ADV:

040
040
117
125
105
104
103
120
122
117
101
051

P.ADW:

.ASCII
"ASCII
"ASCII
"ASCII
"ASCII
ASCIT
"ASCII
ASCII
TASCII
.ASCII
ASCI
TASCII
ASCID
"ASCII
"ASCII
"ASCII
.ASCI]
ASCIL
"ASCII
"ASCII
"ASCII
TASCII
TASCIT

"ASCII
"ASCII

CASCID
"ASCIT
"ASCII
"ASCII
.ASCII
ASCIT
TASCII
"ASCII
CASCIT
"ASCII
"ASCII
"ASCII
"ASCII
"ASCII
"ASCII
"ASCI1
TASCIT
TASCII
CASCIT
"ASCII
.ASCI]
‘ASCIT
TASCIT
"ASCII
"ASCII
"ASCII
"ASCII
"ASCII
"ASCII
"ASCII
CASCIT
"ASCII

7/ BL/
/0CK/
/ RE/
/POR/
/TED/
/: %/
/DSX/
/A.%/
/N7<00><00>
/%A /
7/
/LBN/
/: %/
/DS%/
/A.%/
/N7<00>
/%A /
/7
/BYT/
/E C/
/OUN/
/T 1/
/N C/
/OMM/
/AND/
/: %/
/D5%/
/A.%/
/N7<00>
/%A /
/7
/ACT/
/UAL/
/ 4/
/OF /
/BYT/
/ES /
/TRA/
/NSF/
/ERR/
/ED:/
/7 %D/
/S%A/
7,XN/
<00>
/%A /
7/

71/<57>/0/
7/ Bu/
/FFE/
/R D/
/ESC/
/RIP/
/TOR/

/:%0/
/7%A/
7(0)/

SEQ 0079

Page
_DUA2:IDOUCETTE.CZRCDICZRCD1.SRC;3 (7)

11-Jul-1983 08:42:25 VAX=11 Eliss=16 V3=555

CZRCDAO RC25 DISK EXERCISER

CZRCD1

006172
175
006200
006203
006206
006211
006212
006215
006220
006223
006226
006231
006234
006237
006242
006245
006250
006253

006256
006261

006262
006265
006270
273
006276
006301
006304
006306
006311
006314
006317
006322
006325
006330
006333
006336
006341
006344
006347
006352
006355
006356
006361
006364

006367
006372
006375

8-Jul=1983 17:04:44

PROTECTION ~ 3LE

v01.0

006134
006137
006142
006145
006150
006153
006156
006161
006164
006167

11=Jul=-1983 08:42:25

CZRCDAO RC25 NISK EXERCISER

CZRCDY
045
045
117
116
045
101
122
040
107
105

101
040
103
126
072
000
045
040
120
124
122
045
045
045
045
040
106
115

072
000

045
040
105
116
103
105
000
045
040
110
1264
105
10
122
117
101
051
067
050
045
000
045
045
117

116
045
045

117
101
051
000
116
105
117
114
040
123

067
050
045
000
045
122
122
117
115
123

101
040
114
124
072
104
101
116
101
040
117
101

040
040
101
105
040
063
056
000
040
040
122
124

P.ADY:

101
040
126
124
117
072
000
101
040
117
040
115§
104
072
067
050
045
045
117
116

040
040
105
040
104
040

P.AEA:

040
040
123
115
040
104
045
045
117
117
101
051
000

P.AEB:

117
101
051
000
104
101

063
050
045
000
062
072

P.AEC:

107
122
105
105
045

040

P.ADX:

105
105
1M
104
116

P.ADZ:

000

P.AED:

LASCI11
LASCII
LASCII
JASCI1
.ASLII
.ASCI1
.ASCII
LASCII
LASCII
LASCII

LASCI]1
LASCI1
LASCI1
.ASCI1
LASCII
LASCII
LASCI1
ASCII
ASCI1
.ASCI1
LASCII
LASCI1
ASCI1
LASCII
.ASCII
LASCII
LASCII1
LASCI1

/%X07/
/%A(/
/70)%/
/N/<00><00>
/INX/
/AER/
/ROR/
7/ LO/
/G W/
/ESS/
/AGE/
/ RE/
/CEl/
/VED/
/:3N/
<00>
/%A /
/7
/7
/PLA/
/TTE/
/R: /
/%XD3/
/XA./
/IN/<OO>
/XA /
/
/
/FOR/
/MAT/

LASCII /: /7<00>
LASCII <00>
JASCII /XA /
/
ASCII /
.ASCI]1 /EVE/
.ASCII /NT /
LASCII /COD/
LASCII. /E: /
LASCII <00><00>
.ASCII /XA /
/
LASCII /
LASCII /HOS/
LASCII /T W/
ASCI]1 /EM /
LASCII /ADD/
LASCII /R:¥/
LASCII /707%/
ASC1I /A(0/
LASCI1I /)%0/
LASCI1 /77%A/
LASCII /(0)/
LASCII 73N/<00>
LASCII <00>
.ASCII /%03/
LASCII /7%A(/
LASCII /0G)%/

LASCII
.ASCII
LASCII

/N/<00><00>
/%D2/
/%A:/

VAX=11 Bliss=16 V3=-555

SEQ 0080

Page

_DUAZ:[DOUCETTE.CZRCDJCZRCD1.SRC:3 (7))

CZRCDAQ RC25 DISK EXERCISER

CZRCDY
v01.0

006440

P.AEF:

006446

000003C

006450

172150

006452

000154

006454

000005

006456

000000

006460
006462

000000C

006464

000040

006466

000002

006470

000000

006472

003151

006474

055

006475

000

006476

€00020

006500

006540
006542
006544
006546

177777
177777
177777

LASCl1
LASCII
LASCII
LASCI1]
LASCII
.ASCII
LASCII
LASCI1
LASCII
LASC11]
.ASCI!
.ASCI1

.ASCII

.ASCI1
LSHWLEN::
W0
HWPT.IP.ADDR::
ORD
HWPT. VECTOR
ORD
HWPT.BR. LEVEL::
.WORD
HUPT.PLAT::
.WORD
LSNDHW:
: .BLKW
LSSWLEN::
.WORD
:
SWP.ERROR:
.WORD
SWP_XFER::
.WORD
SUP.STRACK::D
.WOR
SWP.ETRACK::
W0 RD
SWP.FLAGS::
.BYTE
SWP.DPAT::
.8Y
SWP.UCNT::
.WOR
SWP.UDPAT::
.BLKW
: .BLKW
LSNDSW:

PATCH::
CPT::
CST::

€00422

DCT::

/ /<00>

/IN/<00>

<00>

<<LSNDHW=LSHWLEN>/2>

=5630
154

5
0
1

<<LSNDSW=LSSWLEN>/2>
40

2
0

3151
55
0

.WORD
.WORD

1
-1
-1
-1

PSECT

SFFF$,

T:
: .WORD
L$PRO

000000
000000
000310
000330
000420

SEQ 0081

Page

_DUA2: [DOUCETTE.CZRCDICZRCD1.SRC;3 (7)

PROTECTION TABLE

P.AEE:

006442
006445

VAX-11 Bliss=16 V3-555

.BLKW
.BLKW
.BLKW

CST.ADDR::

.BLKW
.BLKW

34
44

CZRCD
v01.0

11=Jul=1983 08:42:25
8=Jul=1983 17:04:44

CZRCDAO RC2S DISK EXERCISER
PROTECTION TABLE

000532

DCT.ADDR::

000534

RC2S.ADDR::

000536

IRC25.ADDR::

000540

DM.COMM:

001060
001062

001122

001124

001126

001226

001426
001430

001432
00303¢

003034

017634

017774
022774
023034
023036

07230450
023440

023540

023600

BLKW

.BLKW

BLKW

.BLK
DMC.ADDR::

BLKW

RPS.X2::.8BLKW

RPS.X1::.BLkW

QUTC.LIST::
.BLKW
QUTC.TIMR::
BLKW

OCL.X1::.BLkW
OCL.X2::.BLkW

40
100

1
1

TALLY:: .BLKW

600

MSCP.ENV::
BLKW
ENV.USE::
BLKW

6300

T.ADDR::.BLKW

RETPKT::.BLKW
RP.USE::.BLkKW
RP.INDX::

.BLKW
RP.ADDR::
.BLKW
BUFF.DESC::
.8LK
BUFF .OWN: :
BLKW

J0DQ::

.BLKW

10DQ.IN::

1400
20
1
1
200

.BLK

.BLKW

BLkB

EOP.FLAG::
.BLK

10DQ.0UT::

023604

ENTRY .REASON: :

023605

T.FLAG::.BLKB

023607

RP.SAVE::
.BLkWw

V¢ 5602

023606

150

MEM.MGMT: :

.BLK

.BLkB
.EVEN

023610

1IP.FLAG::

023612
023614
023616
023620

CCTLR:: .BLKW
CPLAT:: .BLkW
CUOFF:: .BLKW
CTLR.CNT::

023622

DUR::

BLKW

BLkW

1
1
1
1

SEQ 0082

Page
VAX=11 Bliss=16 V3=-55
_DUA2:[DOUCETTE. CZRCDJCZRCD1 SRC:3 (7)

11=Jul=1983 08:42:25
8-Jul=1983 17:046:44

CZRCDAO RC2S DISK EXERCISER
PROTECTION TABLE

CZRCDY
v01.0

QlO0::

023642

.BLKH

BL
MEM.SIZE::

023650

FREE.MEM.SDDR:: :

023652

BUFF.SIZE::

023654

::
NUM.BUFF

BLkw

BLK

BLKW

BLkW

LBLKW

.BLKW

BLKW

.BLKW

.GLOBL
"GLOBL

LS$SOFT. TSPTHV, LSRPT., LSINIT
LSCLEAN, LSLAST, LSHARD, LSDVTYP

023656

CLK.TYPE::

023660

CLK.HERTZ::

023662

CLK.CSR::

023664

CLK.VECTOR::

023666
023670

HOURS:: .BLKW
MINUTES::

023672

SECONDS::

023674
023676

TICKS:: .BLKW
ST.CODE::

023700

SB.CODE::

023702
023704
023706
023710
023712

STEP:: .BLkWw
OF .RC:: .BLKW
SA.REG::.BLkW
BLKW
NEX::
BLKW
CRN::

"GLOBL

000010
000004

000002
000001
001000
000400

1
1
1
1
1

LSDESC, LSDU, L$AU. LSAUTO, T1

BIT15==
BIT14==
BIT13==
BIT12==
BIT11==
BIT10==
BIT09==
B1T08==
BIT07==
81106==
81105==
BIT04==
BIT103==

=100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20

BI1101==
81100==

2
1
1000
400

BIT02==

BIT19==
BIT8==

SEQ 0083

Page 34
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCDT.SRC; 3 (7

023646

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

11°Jul° 983 08 42: 25
8-Jul=1983 17:04:4

CZRCDAO RC25 DISK EXERCISER
PROTECTION TABLE

CZRCD1
v01.0
000200
000100
000040
000020
000010
000004
000002
000001
000040
000037
000036
000035
000034
000340
000300
000240
000200
000140
000100
000040
000000

BIT7==
BITé==
BITS5==
Bivh==
BIT3==
BIT2==
BIT1==
8170==
EF .START==
EF .RESTART==
EF .CONTINUE==
EF .NEW==
EF .PWR==
PRIO7==
PR106==
PRI0S5==
PRIQ4==
PR103==
PRI02==
PRIO1==
PR100==

200
100
40
20
10
4
2
1
40
37
36
35
34
340
300
240
200
140
100
40
0

000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000

LOT
AD
IDU==
I1SR==
UAM==
80E==
PNT==
PR]==
IXE==
I8E==
1ER==

10
20
40
100
200
400
1000
2000
4000
10000
20000

000004

40000
100000
000126
006464°

006450°

EVL==

LOE==
HOE==
LSERRTBL
L$SW==

LSHW==

000011°*
000136
000152°
000162

LSDEPO==
HWQ1==
HWQ2==
HWQ3==

000530°

SWQ@3==

000174°
000230°
000314
000414°
000452°

000576°
000656
000700°*
000720
000736
001010°
001024

001100°
001144°

40000
=100000
ERRTYP

LSSWLEN+2
LSHWLEN+2
LSREV+]

HWQ4==
HWQ5==
HWQ6==
SWQ1==
SWa2==

P.AAA
P.AAB
P.AAC
P.AAD
P.AAE
P.AAF
P.AAG
P.AAH

SWQ4==
SW@5==
SWab==
SWa7==
SWQ8==
SWa9==
SWa10==

P.AAJ
P.AAK
P.AAL
P.AAM
P.AAN
P.AAO
P.AAP

SWwall==
SWQ12==

P.AAl

P.AAQ
P.AAR

SEQ 0084

Page
VAX=-11 Bliss=16 V3-555
(7)
RC;3
DICZRCD1.S
CETTE.CZRC
_DUA2:CDOU

004674

:UUOOOOOUOOOQOMMS 53

(=]

P ]

COoO00
LN NI b o b e e = i b =ed = OO C X e
OQOOOOOONININ)
- d b e e e ced e i
N — CONOWNAES
~
WO — 1T I
MMMMOIOWN)
NS W
=ON =200 CONO VIS NNO —=ON=-=O VO NO VS WN=2ON

CYOIIOIOIAIDVDOOVDTOOOO0O0VOOO0OnMm

Nt == =~ D ODDDODODDOODDONONOHOONONNDOOOHOOL

P.ABZ
CA

CZRCDAO RC25 DISK EXERCISER

PROTECTION TABLE

CEC<C~DVDO
VOB M R =ITOTMOND

e lalnialsiaisialnlnisinlnlialalninlnlinlalisle

vvvvv:v'ovvv:u:o:v:o'u'ovvvvvvv

CZRCDY
v01.0

VuuTVIvIMMmMmMMmMMmMmMMmMmMMmmm mmmmmmmmmmmmmmmmmmo

001176°
7

11=Jul=-19 83 08 4 2: 25
8-Jul- 1983 17 0 4 164
Page
VAX=-11 Bliss=16 V3-555
(7)
.SRC;3
ICZRCDT
_DUA2:[DOUCETTE.CZRCD

SEQ 0085

006262

006464

Psect Name

$CODES
SFFF$
Words
1716
5094

005744
006012°

SFPTBL==

Attributes

RO ,
|

o
©

@
T

pe
[ ]

nwowunnn
n
"
n

o e lnlalnalnlalal-i~1-1algls]
> NAXXMES—DNODPN
<X

R4 VOOVVVOVOVOUVOVOVOVODO
L] L .
.
L] > b P 2 2222223223

l\ S DB WWWWL AWWN
L 20000
XODnNOD>
=2 =2 O 000 O
nHesn &1 1 WL = OO0~ OV

P.ADB
P.ADC

VOVOVOVVOOVVOOVOVOOO '1) "J '17 v :" © :l) :" :!) :l’ :‘7 :l’

nwonnnn

:l:

EBH.

Fun ;E

006416
006442

zox

L] L[] *
f'\ (I! onm (l!

mmmmmm
)‘ )( ¢ ¢ > )‘

004724
004750°
005002°*
005022
060°*

mmm
-t 3¢

cIRCD

CZRCDAQ RC2S DISK EXERCISER

PROTECTION TABLE

VAX=11 Bliss=16 V3=555

LSHWLEN+2
LSSWLEN+?

PSECT SUMMARY

LCL,
LCL,

SEQ 0086

_DUA2: [DOUCETTE.CIRCDICZRCD1.SRC;3 (7)

Page

LIBRARY STATISTICS

11=Jul=1983 08:42:25
8=Jul=-1983 17:06:44

CZRCDAO RC2S DISK EXERCISER
PROTECTION TABLE

CZRCON
v01.0

File

_DUA2:[DOUCETTE.CZRCDICZRCDL.L16:9

emmeeees Symbols -=====--

Blocks

Total

Loaded

Percent

276

138

COMMAND QUALIFIERS

%0 %9 %s 0o

BLISS /PDP11 CZRCD1.SRC/LIST/EN:NOEIS

Size:

0 code + 6810 data words

Run Time:
00:19.0
00:26.0
Elapsed Time:
Hemoq{ Used:
237 pages
Compilation Complete

Read

VAX=11 Bliss=16 V3-55

SEQ 0087

Page

_DUA2: [DOUCETTE.CZRCDJCZRCD1 SRC. 3 (7)

11-Jul=1983 08:42:51
8-Jul-1983 17:46:34

CZRCD2

MODULE CZRCD2 (

XTITLE *CZRCDAO RC25 DISK EXERCISER'

IDENT = *v01.0°,
?oonessx~c_noos (ABSOLUTE)

BEGIN

XSBTTL 'DECLARATIONS'

! RC25 EXERCISER GLOBAL LIBRARY

LIBRARY *CZRCDL':

! DIAGNOSTIC SUPERVISOR LIBRARY

REQUIRE °BLSMAC.REQ';

[ TEATEYREIETE
TR TN

YE YRR

TERIA IR Y

TN NI

FORWARD ROUTINE

NEX_TRAP : L$ISR NOVALUE,
CLKINT_SERV : LSISR NOVALUE,
EMSZ01 T NOVALUE;

EXTERNAL

! PATCH AREA
PATCH : VECTOR [100, WORD],
CPT : VECTOR CMAX UNITS, BYTE],
CURRENT PASS TESTING (YES / NO) PER UNIT

CST : BLOCKVECTOR [MAX CTLR, CST_LEN, WORD) FIELD (C_FIELDS),
RUN-TIME CONTROLLER STATUS TABLES
CST_ADDR : REF BLOCK [CST_LEN, WORD] FIELD (C FIELDS),

CONTROLLER STATUS TABLE ADDRESS 07 °‘‘CURRENT'* CONTROLLER

DCT : BLOCKVECTOR [MAX_CTLR, DCT_LEN, WORD] FIELD (DC_FIELDS),
DRIVER CONTROLLER TABLES
DCT_ADDR : REF BLOCK [DCT_LEN, WORD] FIELD (DC_FIELDS),

ADDRESS OF '‘CURRENT'* BRIVER CONTROLLER TABLE

RC25_ADDR : REF RC25 FIELD (RC _REG),

DEVICE ADDRESS OF °‘'CURRENTTM

CONTROLLER

SEQ 0088

Page
VAX-11 Bliss=16 V3=-555
(1)
5
_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC;

T N T

R R IR

IRR

TE T

TRP

TR PRTR TR YR

oo
VIBIWAOLWDY
WA=
O 000~

=
b e
b md
b
- ed e

WAL

PRPRI AN T DR SR LR LR LN L

SEQ 0089

IRC2S ADDR : REF RC25 FIELD (RC_REG),

DEVICE ADDRESS OF INTERRUPTING CONTROLLER
DM_COMM : BLOCKVECTOR [MAX_CTLR, DMC_LEN, WORD] FIELD (DMC_FIELDS),

DM EXERCISER COMMUNICATION AREA TLINK TO FRONT PANEL TEST)

DMC_ADDR : REF BLOCK [DMC LEN, WORD] FIELD (DMC FIELDS),
ADDRESS OF CURRENT CORTROLLER'S DM EXERCISER COMMUNICATION AREA
RP_SAVE : VECTOR [MAX CTLR * RPS_LEN, BYTE, SIGNEDJ],
RETURN PACKET SAVE AREA

RPS_X1 : WORD,

RPSTMX2 : WORD,

! STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA

i ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA

OUTT_LIST : VECTOR CMAX_CTLR * OUTC_CNT, BYTE, SIGNED],
OUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES)
OUTC_TIMR : VECTOR [MAX_CTLR * OUTC_CNT, WORD],
OUTSTANDING COMMANDTMTIMERS

OCL_X1

: WORD,

ocL §5ART&8201NDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA

ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA
TALLY : VECTOR [MAX UNITS = TALLY_LEN, WORD] FIELD (T_FIELDS),
STATISTICS TABLES
T_ADDR : REF BLOCK CTALLY_LEN, WORD] FIELD (T _FIELDS),

ADDRESS OF STATISTICS TABLE (TALLY) FOR CORRENT UNIT

MSCP_ENV : BLOCKVECTOR [ENV_CNT, ENV_LEN, WORD) FIELD (E_FIELDS),
RSCP ENVELOPE POOL
ENV_USE : VECTOR CENV_CNT, BYTE, SIGNED],
MSCP ENVELOPE POOL ALLOCATION TABLE
RETPKT : BLOCKVECTOR CRP_CNT, RP_LEN, WORD] FIELD (RP_FIELDS),
RETURN PACKST POOL

RP_USE : VECTOR [RP_CNT, BYTE, SIGNED],
RETURN PACKET PDOL ALLOCATION TABLE

RP_INDX : WORD,

! CURRENT RETURN PACKET INDEX

RPZADDR : REF BLOCK TRP_LEN, WORD] FIELD (RP_FIELDS),

CURRENT RETURN PACKET ADDRESS

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

DECLARATIONS

!
!

T/O BUFFER OWNERSHIP (TONTROLLER NUMBER)

10DQ: VECTOR [IODQ_LEN, BYTE],

1/0 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES

: WORD,
10DQ_IN

T_FLAG
: avrs
e0P_ FLAG: BYTE,

MEM_MGMT : BYTE.

I1IPTFLAG: BYTE,
CCTCR : WORD,

CPLAT : WORD,
CUOFF : WORD,
CTLR_ cur : WORD,
DURT VECTOR [MAX_UNITS, BYTEJ,

b e

b sud

b b b b

b wud wd wud b

O%OOOOOOOOOOO‘OO‘
RNONIPIN)
=2 b b ad b wud o b b
HUWNI=OO [« . RoNTe AV P JV 8 L

QI0: VECTOR [MAX_CTLR, BYTE],
MEM SIZE : WORD,
FREE_MEM ADDR
BUFFSIZE: WORD,
NUM_BUFF: WORD,
CLK_TYPE : WORD,

CLK_HERTZ: WORD,
CLK_CSR,

CLK vecron

HOURS: WORD,
MINUTES : WORD,
SECONDS : WORD,
TICKS: WORD,
ST_ CODE : WORD,

SB_CODE : WORD,
STEP : uono
OF _RC : SIGNED WORD,
SA"REG: WORD,
NEX : WORD,
CRN : WORD,
HWQ1,
HWQ2,
HWQ3,

HWQ4,

HWQS,
HWQ6,

swal,
Swaz2,
Swas,
SWas,

SWoS,

SWa6,

swaz,
SwWas,
SWa9,
Swa10,
Swal1,

swWa12,

! 1/0 DONE QUEUE IN POINTER
i 1/0 DONE QUEUE OUT POINTER
! HOW CURRENT PASS WAS INVOKED
! ONE SECOND TIMING FLAG

! END-OF -PASS FLAG

! MEMORY MANAGEMENT FLAG

! INITIALIZATION=-IN=PROGRESS FLAG
! NUMBER OF ‘'CURRENT'’ CONTROLLER
! CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER)
! CST OFFSET FOR CURRENT UNIT
! TOTAL NUMBER OF CONFIGURED CONTROLLERS
! DROP UNIT REASON
! NUMBER OF OUTSTANDING QIOS PER CONTROLLER
! AVAILABLE MEMORY tIN WORDS) UP TO 28K
! START OF FREE MEMORY BELOW 28K
! SIZE (BYTES) OF AN 1/0 BUFFER

! NUMBER OF 1/0 BUFFERS
; TYPE OF CLOCK ON SYSTEM

(0 = NONE, -1 = L=CLOCK, 1 = P_CLOCK)
! CLOCK HERTZ RATE
! CLOCK CSR ADDRESS

! CLOCK VECTOR ADDRESS
!
!
!
!
!
!
!
!
!
!
!

SEQ 0090

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (2)

TABLE OF 1/0 BUFFER DESCRIPTORS
BUFF_OWN: VECTOR [MAX_BUF_CNT, BYTE, SIGNED],

10DQ°0UT : uono

8-Jul=1983 17:46:34

VAX=11 Bliss=16 V3=555

BUFF_DESC: BLOCKVECTOR [MAX BUF CNi, DESC_LE N, WORD] FIELD (BD_FIELDS),

ENTRY REASON : 8YTE,

1 1-Jul=-1983 08:42:531

ELAPSED TIME - HOURS,
MINUTES,
SECONDS,
TI1CKS

CURRENT STATUS CODE
CURRENT SUB-CODE

CURRENT STEP IN HARD_INIT

OFFSET (0 OR 2) TO READ IP OR SA

STORAGE FOR SA REGISTER READS AND WRITES
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT

TR
R A EEE
ME N E S E T E

AT AT A TR A YR

PR YRTRPR PRNN NI NI NI

T K 2 PR
YR R

IR AT AT

LI N ¥

b e

PRTR YR TR
TR PR TR SRLR LA

o
VIV
S SN BN O O
o
o WOONO VNS NN = O V00NN

SOOOO oo

Y b

A XTRTR PR

CZRCD2
v01.0
DECLARATIONS

CZRCDAQ RC25 DISK EXERCISER

swat3,

8-Jul-

Wi
o =b

&
o

—O
~Go

- Y

11=Jul~
e

N
7

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC; 5 (2)

VAX=11 Bliss=16 V3=555
SEQ 0091

VB WNN=00

b b ed b =

W
P
Y

J\J\

e
\lw

: UORD
SWP_XFER
: WORD,
SWPTSTRACK
SWP_ETRACK : WORD,
: BYTE,
SWP_FLAGS
LSLON,
LSUNIT;

b b cnd b b

VAX-11 Bliss=16 V3=555

_DUA2:[DOUCETTE. CZRCDICZRCD2.SRC;S (2)

: WORD,
SWP_ERROR

)

NSNNNNNY

i e b b
e = b md e b b
N~ NN NSNNNNNNN
= b b b
NN NINVPVINININ)
~NO\V S NN=OVONO

11=Jul-1
8=-Jul-1

hodod
OO0
NN

CZRCDAO RC25 DISK EXERCISER
DECLARATIONS

CZRCDZ
v01.0

XSBTTL °*TYPE AND DESCRIPTION'
EQUALS;
'+

THE TEXT WHICH APPEARS IN THESE MACROS IS DISPLAYED TO THE USER WHEN
THE DIAGNOSTIC IS FIRST LOADED AND RUN.

DEVTYP (XASCIZ'SINGLE RC25 PLATTER'):

! "UNIT IS SINGLE RC25 PLATTER'

DESCRIPT (XASCIZ'RC25 DISK EXERCISER®);

TEST DESCRIPTION

SEQ 0092

CZRCDAO RC2S DISK EXERCISER
HARDWARE PARAMETER CODING SECTION

o ~NOr N

b —h
b
b
b
—b

NNNNYN
SNBSS0

ad b b b cd el b cad b b cnd D b b b
~N~N NNSNSNSNSNSNSNSNSNSNNYNY
&H &H S WW NN
N NN NN NN
[58] - oo~[+ JY. P VT, ¥7 - O 000

CZRCD2
v01.0

1749

11=Jul=1983 08:42:51
8-Jul=-1983 17:46:34

Page
VAX=11 Bliss=16 v3-555
4)
RC:5
_DUAZ:[DOUCETTE.CZRCDJCZRCDZ.S

YSBTTL 'HARDWARE PARAMETER CODING SECTION'
s

!
!
!
E

THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS THAT ARE USED BY

THE SUPERVISOR TO BUILD P-TABLES. THE MACROS ARE NOT EXECUTED AS
MACHINE INSTRUCTIONS BUT ARE INTERPRETED BY THE SUPERVISOR AS DATA
STRUCTURES. THE MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNIC/TIONS
WITH THE OPERATOR.

BGNHRD;

GPRMA (HWQ1, 0

GPRMA (HWQ2, 2
GPRMD (HWQ3, g

0, %01 90000'

X0°*177777°, YES, 1);

zo'774', YES, 1)
0. X0'4
0. %0'178777°, %0°4¢*, %0°7°, vES, 1);

! IP ADDRESS

i VECTOR
| BR LEVEL

GPRMD (MWQ4. 6. D. %0'377°', XDECIMAL®0*, XDECIMAL'253', YES, 1); ! PLATTER ADDRESS
AREA
GPRML (HWQS. 6. %0°100000°', NO, 1);
XFERF (HWDONE):
GPRML (HWG6, 6. %0'100000', NO, 1);

$L (HWDONE):
ENDHRD;

SEQ 0093

! WRITE'ON CUST DATA
i NO - DONE
i «« WARNING / CONFIRM

d ed

NNNNNNSNSNSNNSNN
[o [o Yo IV, IV VAV IV IV AV (V, 1V [V ]
N OO
NO VSN =O

d e

win
& =

&~
on

-0
~JGo

CXECUTED AS MACHINE INSTRUCTIONS BUT ARE INTERPRETED BY THE SUPERVISOR
AS DATA STRUCTURES. THE MACROS ALLOW THE SUPERVISOR TO ESTABLISH
COMMUNICATIONS WITH THE OPERATOR.

b cd o
b
b
b

VAX=11 Bliss=16 v3=555

BGNSFT;

D, X0°'1727777°', 0. 65535, VYES, 1)
‘
2 D, X0°177777*, 0, 65535, YES, 1):

(SwQ1,
(SwQ2,
(SwQ3,
(Swaé,
(SW3);
(SWQS5,
(SWQ6,
(SwQ7,

GPRML (SWQ9

GPRMD
GPRMD
GPRML
GPRML
XFERT
GPRML
GPRMD
GPRMD

):
8 ‘ SWF_SEL., YES,
8 SWF_DM, "YES, 1) ;
’
1

SWF _RDM,

YES. 1 1)

D, 0°177777%,°0, MAX_TRACK, YES, 1);

!] ERROR LIMIT
!] TRANSFER LIMIT

!i SUPPRESS ERROR LOG PRINTING

! RUN DM EXERC'SER

[]!
[!]

]

IF YES - DONE

RANDOM SEEK MODE

STARTING TRACK

6 . D, %0°177777*. GPSATLD(4), MAX_TRACK, YES, 1); ! ENDING TRACK

GPRML (SwQ8, 8 SWF_CRC, YES, 1).
).
DISPLAY (SWM1);

! READ=COMPARES AT CONTROLLER
!1 REMAINING QUESTIONS ONLY APPLY ...

GPRML (w10, 8, swF_cwc, YEs, 1);

i WRITE-COMPARES AT CONTROLLER

gPR?g §§0011. 8, SWF_HWC, YES, 1);

!] CHECK WRITES AT HOST 8Y READING

GPRML (SwWQ12, 8, SWF_UDP, YES, 1);
XFERT (SW2).
GPRMD (SWQ13, 8, D, %0'177400', 0, DP_CNT, YES, 1);

USER=DEF INED DATA PATTERN
IF YES, SKIP NEXT QUESTION
! SELECT PRE-DEFINED DATA PATTERN
1); ! NO. OF WORDS IN USER DATA PATTERN

SWF_WO, YES, 1);

XFERT (SW1);

;{E?Ség?k):

(SW1);

GPRMD (SWa14, 10, D, X0°177777°. 1, MAX_UDP_CNT. YES,

$L (SW4):
ENDSFT;

SEQ 0094

Page

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (5)

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS THAT ARE USED BY
THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR SOF TWARE INFORMATION
WHICH WILL BE PLACED IN THE SOFTWARE P-TABLE. THE MACROS ARE NOT

F N
YR T P P Y T A [P ET TEYEYR IR IETIETE IR
P E
TE T
Y
TE
E
R

8-Jul-

E AR

11=Jul-

0O
Q0 oo
W

XSBTTL °*SOF TWARE PARAMETER CODING SECTION'

SOF TWARE PARAMETER CODING SECTION

8
—-—b amd

CZRCDAQ RC25 DISK EXERCISER

N ¥

1 CZRCD2
v01.0

'] WRITE ONLY
]

!] IF YES, SKIP NEXT QUESTION

! DONE

2{"72u§§“°‘5' 12° 0, X0'177777'. 0. %0°'177777*.°N0, 10); ! PATTERN VALUES

XSBTTL °REPORT CODING SECTION'

1792
1793

!
!

};gg

1796
1797
1798
1799

1800

"PRINT'* OR BY THE PROGRAM MACRO 'DORPT'’.

BGNRPT;

BIND

1801

SRCET = UPLIT (XASCIZ'XAELAPSED TIME:

SR_UN = UPLIT
SR_LO = UPLIT
SR_HI = UPLIT
SR_ML = UPLIT

XD2XA:XD2XA:XD2XN'),

(XASCIZXNID3'),
.
(XASCIZ'XD9XA *),
(XASCIZ2'XD9YAK'),
(XASCIZ'XD9XDBXDOXD7"),

SRTEH3 = UPLIT (XASCIZ'INXAUNIT
SRTEM4 = UPLIT (XASCIZ'INXA NO.

FIELD
ONLY

REPORT ravettntanasnenneenveIN'),

NO.'),
NO.
NO.
HARD ERROR'),
WRITES MBYTES MBYTES
READ WRITTEN ERRORS LOGS'),
(k=1000)
ecsccccse ecoces oocsese occess osee= IN'),

NO.
READS
(K=1000)
=ccceccce

SR_EH1 = UPLIT (XASCIZ'ININXAN SYMBOL ECC ERRORS:XN'),
Ecc*),
SR_EH2 = UPLIT (XASCIZ'INXA

N =
2

N =
1

N =
3

N =
4

N =
5

N =
6

N =
7

SR_EL1 = UPLIT (XASCIZ°'INXD3XD8XD7XD7%XD7'),
SR_ELZ = UPLIT (YASCIZ'XD7XD7XD7XD7XD7"*),
NO.
SR_DH1 = UPLIT (XASCIZ'INZA

NO.

NO.'),

MBYTES MBYTES NO. HARD NO. SOFT®),
SEEKS
WRITES
SR_DH2 = UPLIT (XASCIZ'INXAUNIT READS
ERRORS'),
READ WRITTEN ERRORS
(Kk=1000)
(k=1000)
(k=1000)
NO.
SR_DH3 = UPLIT (XASCIZ'INXA
IN°),
o=
ccccces
oscsee
ececcess
sccseccs
=ceccwcce
NJA====
L T (YASCI2'AI
SR_DH4& = UPLI]
SRTDL = UPLIT (%ASCIZ2°'XD9XD8XD10XD10°);

OWN

! ADDR OF LOW-ORDER FIELD OF I1/0 COUNT

ADDR_LO;

THIS ROUTINE IS CALLED FROM THE MAINLINE CODE OF THE REPORY CODING
SECTION WHICH APPEARS BELOW. ITS FURPOSE IS TO PRINT THE HIGH-ORDER

m sttt

ROUTINE HI_LO : NOVALUE =

FIELD OF ONE OF THE 1/0 COUNTS IF THE FIELD IS NON-ZERO. OTHERWISE, THE

mt @t

LOW-ORDER FIELD IS PRINTED.
IMPLICIT INPUTS:

ADDR_LO - ADDRESS OF THE LOW-ORDER FIELD OF AN I/0 COUNT

BEGIN

LOCAL

! ADDR OF HIGH=-O"DER FIELD OF 1/0 COUNT

ADDR_H] = .ADDR_LO + 2;

! GET HIGH-ORDER FIELD ADDRESS

845

THEN

' THEN

844

='),
8*)

SRTEHS = UPLIT (JASCIZ'INIA==== ==c== ecces cecec smcee —ceoe oooee ceeee =mcee escee IN*),

WWNWWNRIRININIRINININIRIN)
= =t b b b b el = d = O
SNR = OOV NN
NN 2O OO NO NS WNN=OO

D G0 00 00 00 00 0 00 00 G0 G 0o 0o 0O OO 00 GO 0o GO G0 0o GO 0o G 0o OO OB 0B OB ©O 0o G GO 00 0O

37
38
39

SR HD = UPLIT (XASCIZ'AINXAttrnnnanannannttnnete SUMMARY

SR_MH1 = UPLIT (XASCIZ*INXA
SR_MH2 = UPLIT (XASCIZ*INZAUNIT
SR_MH3 = UPLIT (YASCIZ'INXA NO.
SR_MH4 = UPLI T (ZASCIZ'INIA====

1806
1807
1808

THE REPORT CODING SECTION CONTAINS THE °'‘PRINTS'' CALLS THAT GENERATE
STATISTICAL REPORTS. THIS SECTION 1S EXECUTED BY THE OPERATOR COMMAND

;

1802
1803
1804
1805
_A—a—l-.—A—l—J—A—._‘-fl—.—l—.—l—.—l—l—ld—.—ld—b-‘-‘dd-—.-—l-.-ld—.-.-b-l

s 8s e Be e B0 Be VU0, T Te0e0, 000,y %0%000000,%000 0700500, 00, e 8000000 Ve s Ve Be Vs Wt VIV V0000000005 080000000%0 00000,

1789

Page
VAX-11 Bliss=16 V3=555
_DUAZ:[DOUCETTE.CZRCD]CZRCDZ.SRC:S (6)

11=-Jul=1983 08:42:51
8-Jul=1983 17:46:34

CZRCDAO RC25 DISK EXERCISER
REPORT CODING SECTION

CZRCD?2
v01.0

SEa 0095

ADDR_HI;

IF .TADDR_HI EQ[U 0

' IF HIGH-ORDER FIELD IS ZERO

8-Jul-1983 17:46:3¢

REPORT CODING SECTION

v01.0
;
;

11=Jul=1983 08:42:51

CZRCDAO RC25 DISK EXERCISER

CZRCD2
1846
1847

ELSE

}gzg

;

1850 END;

' ROUTINE HI_LO

000003
000006

000011

000014
000017

000022
000024

000026

000031
000034
000037
000042
000045
000050
00005¢
000054

123

116

107
040

114
122

105
103

062

065

122

oon

122

103

120
124

065
1M1
040
105
1M1
122
000000C

000114
000116
000120
000122
000124
000126

000031
0000006G
160000
177777
001031
0000006
000004
000774
002032
0000006
177777
000004
000007
003052
0000006
000377
000000
000375
003120
0000006
100000

000132
000134
000136

003120
0000006
100000

000056
000060
000062
000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112

000130

000000C

114
126

£x21.0/

.PSECT

$CODES,

LASCI1

/SIN/

040
123
105
122
123
000

LSDVTYP::

LASCI1
LASCI1

LASCII

040
101
105

062

104
113
130
103
105

BLKB

ASCI1
CASCI1
LASCI1]1
.ASCII
LASCII
LASCII
.BLkB
LSHRDLN::
JWORD
GP$1:: .WORD
.WORD
.WORD
WORD
GP$2:: .WORD
.WORD
WORD
.WORD
GP$3:: .WORD
LWORD
WORD
.WORD
WORD
GP$4:: .WORD
WORD

/R/<00>
/RC2/

/5 O/
/ISK/
7/ EX/
/ERC/
/1SE/
/R/<00>
2
<<<LSNDHRD=LSHRDLN>/2>=1>
31
HWQ1

.WORD
WORD
.WORD
.WORD
.WORD
WORD

=20000
-1
1031
HWQ2
&
774
2032
HWQ3
-1
&
7
3052
HWQ4
377
O
375
3120
HWQS
=100000

.WORD
.WORD
.WORD

3120
HWQ6
=100000

SHWDONE: .WORD
GP$6::

/725 /

/PLA/
/TTE/

LSDESC: :.ASCII

/GLE/
7 RC/

LASCI1
LASCII

LASCII

GP$5::

CZRCD2 CZRCDAO RC25 DISK EXERCISER

. IDENT

SEQ 0096

_DUA2:CDOUCETTE.CZRCDICZRCD2.SRC;S (6)

i PRINT HIGH-ORDER FIELD (THOUSANDS)

PRINTS (SR_HI, ..ADDR_HI);

.ENABL

000000

VAX=11 Bliss=16 V3=555

' PRINT LOW-ORDER FIELD
i OTHERWISE

PRINTS (SR_LO, ..ADPR_LO)

LTITLE

000000

+40>
DONE>
*400>+4>
<<<<SLHWDONE=SHW

REPORT CODING SECTJION

000140 091004
000142
000144

000000¢

000146
000150
000152
000154
000156
000160
000162

000052
0000006
177777
000000
177777
001052
00000G6

:
$SLHWDONE
. W0
LSNDHR:D:
.BLKW
LSSFTLN::
.WORD

GP$7::

177777

000000
177777

GP$9::
GP$10::
$SwW3:
GPS$11::

GP$12::

GP$13::
0
2
003151
000001
004130
0000006
000010
000003
0000006

GP$14::

GP$15::

$Swl:

GP$17::
$LSWI:

0000006

000200

.WORD

.WORD
.WORD

-WORD
-WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.UORD
.WORD
.WORD

.WORD
.WORD
-WORD
.WORD
.UORD

.WORD
.WORD
GPSDISP::

GP$16::

000306
000310

.WORD

+WORD
.WORD

GP$8::

GP$18::

SEQ 0097

Page

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

CZRCDAO RC2S DISK EXERCISER

CZRCD2
v01.0

000164

VAX=-11 Bliss=16 V3=555

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

-WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD

1004

§§<LSNDSFT-LSSFTLN>/2>-1>
Swa?
-1

-1

1052
Swa?l

-1

-1
4130
?u03

4130
SWaé
2
<<<<SLSWI=-8SW3I>*400>+4>420>
4130
SWaSs
4

2052
S?Oé
3151
3452
swa7
2
3151

1
4130
Swas
10

3
SwM1
4130
sSwa9
20
4130
swa1(
40

<C<<SL SW1=-8SW1>2400>+44>+20>

11=-Jul=1983 08:42:51
8-Jul=1983 17:46:34

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

REPORT CODING SECTION

$SW2:

-WORD

GP$19:: .WORD

.WORD
.WORD
-WORD
-WORD
4:
-WORD
$SW
SLSWZ2:
-WORD
:
20:
-WORD
GP$
-WORD
.WORD
«WORD
-WORD
1::
-WORD
GPS$2
-WORD
-WORD
-WORD
-WORD
.WORD

0000006
177777
000000
177777
000005
001004
001004

$LSW3:

<<<<SLSW2=8SW2>*400>+4>+20>
4052
Swa13
~400
0

<<<2LSUA-SSHL>t400>¢L>

_WORD

.WORD
$LSW4:
LSNDSFT::
.BLKW
ADDR.LO: .BLKW

SPLITS,
/INY/

P.AAA:

/Ar/

/ean/

/ann/
/ann/
/ann/
/enn/
/aen/

/v S/
/ VU /

P.AAB:

>»

[

/M N/
/ A/
/R Y/

—_, e ad OO0 =O=O—EO—O—O0000000

-t
b = O OO OO0
OOO =NV

= ONPUNINOPONOR .Y

(=]

000000

OMNOOWVMIWVIVIWVAWWNIWNESN £ OB WEH s oIS
W
£2OWVNONLNINMNLNINONLONIO
W O =0wvVioOwnNnnNNN

000366

RO,

VAX-11 Bliss=16 V3-55

SEQ 0098

_DUA2:[DOUCETTE. CZRCDJCZRCDZ SRC;5 (6)

= =200

-AS

NNLONOO
S WVIW—=OW
O=OWOOWV

— Sl
bt

NSO

NO=SNIWESN

== O—OO === O—
OO
=IO O

=
o

=
b
EN
NN

/0./<00>

P.AAD:

000376

LS S

P4
o

040

o
)

e
S

P.AAC:

.
N MNNNNNN
~ NN

O= NN

/N/<00><00>
/IN%/

P.AAE:

.AS

wiwn
gy

r
or

-0
~Go

REPORT CODING SECTION

o—n?—a—n—n—n.a—ao_ao
HOH=2O00O00O0H
-5

000127
000132
000135
000140
000143
000146
000151
000154

11=Jul=1
8-Jul-1

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

8
Qo000
Wi

SEQ 0099

Page
VAX=11 Bliss=16 V3=555
(6)
RC:S
RCD?.S
RCDJCZ
_DUAZ:[DOUCETTE.CZ

CZRCDAO RC25 DISK EXERCISER
REPORT CODING SECTION

CZRCD2
v01.0
000401
000404
000407

1
000415
000420
000423
000426
000431
000634
000437
000442

000445
000450
000453
000456

000461
000464
67
000472
000475
000500
000503
000506
000511
000514
000517
000522
000525
0NNS30
000533
000536
000541
000544
000547
000550
000553
000556
000561
000564
000566
000571

000574
000576
000601
000604
607
000612
000614
000617
000622
000625
000630
000633
000636
000641
000644

11-Jul=1983 08:42:51
8-Jul=1983 17:46:34

113
060
051

075
060
040

040
122
124
040
122
122
040
107
045
101
055
040
055
055
040
055
055
055
055
055
040
055
055
040
0ss
055
040
055
045
000
045
104
045
045
000
045
045
000
045
045
045
045

040
m
105
040
122
123
114
123
116
055
055
055
055
055
040
055
055
040
055
055
040
055
055
040
055
055
055
055
116

040
101

000
045
116

11€
1?1
117
105
040
122

123

122
104

116
063
104
101
000
104
101
000
104
104
104
104
000
116
045
040
115
114
103
105
117
072

061
060
040

/K=1/
7000/
/) /

LASCII
LASCI1
LASCII
JASCII
.ASCII1
+ASCI1
LASCII
LASCII
_ASCII
LASCIL
LASCIL
JASCIL
LASCII
JASCIL
LASCII
JASCIL
JASCIL
JASCIL
JASCIL
JASCIL
LASCIL
LASCIl
LASCIL
LASCII
CASCIL
LASCIL
LASCIL
LASCIL
LASCI1
LASCII
.ASCII
LASCII
.ASCII
.ASCI1
LASCII
.ASCII
.ASCII
LASCII
ASCII
LASCII
LASCII
LASCI1

/7 W/
/RIT/
/TEN/
/ E/
/RRO/
/RS /
/7 LO/
/GS/<00>
/XNX/
/A==/
/== /
/1 ==/
/===/
/==</
/7 =/
/===/
/===/
/= /
/===/
/===/
/ =/
/===/
/===/
/ =/
/==</
/== /
/ ==/
/===/
/IN/<00>
<00>
/XNX/
/D3/<00>
/XD9/
/XA /
<00><00>
/XD9/
/%AK/
<00><00>
/XD9/
/%XD8/
/%D9/
/XD?7/

LASCII
LASCII

105
040
127
124
116
105
117
040
117

000
045
055
040

LASCIT
.ASCII
ASCIl

P.AAF:

055
055
055
055
055
055
040
055
055
055
055
055
055
055
040
055
055
000

045
000
071
040

P.AAG:

071
113

P.AAl:

071
070
071
067

P.AAJ:

045
101
123
102
040
103
122
122
045

P.AAK:

P.AAH:

LASCII
LASCII
LASCII

LASCII
LASCI1
LASCII
LASCI11
.ASCI1
.ASCII

LASCIT

/ RE/
/AD /

<00><00>
/INX/
/NXA/
/N S/
/YM8/
/0L /
/ECC/
/ ER/
/ROR/

/S:%/

SEQ 0100

Page
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

g G Soning Bomag

g g

g S

Song G

P.AAN:

P.AAO:
Gong Sneg fumg S

.AS
D

Pug

g g Bug rng Beug & 4 g Sumg $rumg Sy $emg $unp B St S B

- 4IR " R 4LN ]

<00>

/IN%/
/AUN/
/1T /
/ Fl/
/ELD/
/
/

3
3
\\;\\\\\\\\\\\\\
2
n_
2

g By g Sg Svesg Gumg Bt (uing st S Sy Bt S By S S Sy g (oemp Drong Sumg B S

Sreng Bug Gumg oy Dt Soeg B g Gung S

P.AAM:

g S

P.AAL:

Oy Pumeg Srg g Sung Do Puug (umeg ineg Pnemg ey $umeg Pung Sumg g Sug Sug G

000647
000652
000655
000660
000663
000666

CZRCD2
v01.0

REPORT CODING SECTION

CZRCDAO RC25 DISK EXERCISER

VAX=11 Bliss=16 Vv3=-555

_DUA2:[DOUCETTE. CZRCDICZRCD2.SRC;S (6)

/ANX/

/N/<00><00>
/A /
/
/
E/
/

/7€C/<00>

/=/<00><00>

SEQ 0101

Page

104
104
104
104
104

001363
055
055
055
040
055
040
055
055
055
055
040
055
040
055
055
055
055
040
055
040
055
055
000
116
063
070
067
067
067
040
055
055
055
055
040
055
040
055
055
055
055
040
055
040
055
055
055
055
040
055
045

117

040
040
117
040
040
116
000
045
116
040
122
104
040
040
11
123
040
P.AAS:
)

vt G (g Gumg g Somg S Sremg Duneg g g B

e (g Gumng Sy Shueg St g Smnp Soeug G

g B Bt Pt g B

g St Bt ot B Bumg g Gumg et Do

nunuLLHLILLLLVLINOVLOLOV LLwurmunmununnunumTununnmwm
7 wumumn VnuLUuNLILVIKILLNLKLLLLLLILLL w nununnn w wnununnm
OO O
CIICIICICICIOICICICICIOIOIOIOIOOD 2 lalalalatalalalslialnlal CNCICICICIEICICIICICICICICIOICIOIIOIOIOIOYOIOI
g Gmug Sumeg Bumg g Sumeg g Bt Sumg Buvng Brang Suumg Sy B umg By Sy oo B St Sueg S Gy BmgSmg g By Purmg Gung By S Pup Pumng Sumg Brang Brumg Bumep Gt g S B Py et B S et Gt S Pt e P Bt Bonug g g g B

2.
2. 24 > > DI > b 2 2.2

056

[ ] [ ] [ ] [ ] [] [] [ ] [ ] L[] [ ] [ ) [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [ ] [] [] [ ]
TI I
T I IT I
P> T3 T

040
040
116
040
040
040
056
116
125
124
040
101
040
040
122
105
040
.

P.AAR:
L]

045
040
040
040
o

116
040
040
040
0

P.AAQ:

067
067
067
067
067

045
045
000

P.AAP:

045
045
045

>b 2

CZRCD2
v01.0
REPORT CODING SECTION

wwn
& =d

S
on

~Co

00
0000
W

CZRCDAO RC25 DISK EXERCISER

_DUA2:[DOUCETTE. CZRCDJCZRCDZ SRC;S (6)

VAX=11 Bliss=16 V3=55
SEQ 0102

8-Jul=-1983 17:46:34

REPORT CODING SECTION

v01.0

001366
001371
001374
001377
001402
001405
001410
001413
001416
001421
001424
001427
001432
001435
001440
001443
001444

040
105
040
040
131
123
115
124
040
116
040
122
040
056
117
000
045

123
113
040
115
124
040
102
105
040
17
110
104
116
040
106

105
123
040
102
105
040
13
123
040
056
101
040
117
123
126

116

045

001460
001463
001466
001471
001474
001477
001502
001505
001510
001513
001516
001521
001524
001527
001532
001535
001540
001543
001546
001551
001554
001557
001560
001563
001566
001571
001574
001577
001602
001605
001610
001613
001616
001621
001624
001627
001632

075
060
040
113
060
051
050
061
060
040
105
040
127
124
116
040
122
122
040
122
122
000
045
101
055
040
055
055
040
055
055
055
055
055
055
040
055

061
060
040
075
060
040
113
060
051
040
101
040
122
124
040
105
117
040
040
122
123

060
051
050
061
060
040
075
060
040
122
104
040
m
105
040
122
122
040
105
117
000

001447
0031452
001455

11=-Jul=-1983 08:42:51

CZRCDAO RC25 DISK EXERCISER

CZRCD2

101
11?7
040

040
056
050

116
055
055
055
055
055
040
055
055
040
055
055
055
055
055

116
040
113

045
055
040
035
055
055
055
055
055
040
055
055
040
055
055

P.AAT:

P.AAU:

LASCI1
.ASCI1
LASCIL
LASCII
LASCI1
JASCII
-ASCII
LASCII
JASCIL
.ASCII
LASCI1
LASCII
LASCI1
LASCI1
LASCII
ASCII
,ASCII

LASCII
LASCI1
JASCIT

LASCII
LASCII
LASCII
JASCII
-ASCII
LASCII
LASCII
+ASCII
JASCIT
LASCI!
ASCI1
LASCIL
ASCI1
LASCII
LASCII
LASCII
.ASCII
LASCIT
LASCII
LASCII
.ASCII
LASCII
.ASCII
LASCII
LASCIL
CASCIL
JASCIL
LASCIL
JASCIL
ASCII
nSCIL
LASCIL
ASCIL
JASCIL
JASCIL
LASCIL
LASCIL

/ SE/
/EKS/
/
/7
7/ M8/
/YTE/
/S /
/MBY/
/TES/
/
/7
/NO./
/ HA/
/RD /
7/ NO/
/. S/
/0FT/
<00>
/INX/

/A N/
/0. /
/7 (K/
/=10/
/00)/
/7 (/
/K=1/
7000/
/) /
/7(K=/
/100/
/0) /
/ R/
/EAD/
/
/
/WR1/
/TTE/
/N_/
/ ER/
/ROR/
/S /
/ E/
/RRO/
/RS/<00>
<00>
/XNX/
/A==/
/== /
7/ =</
/===/
/===/
/1 =/
/===/
/===/
/= /
===/
/===/
/== /
/1 ==/
/===/

VAX=11 Bliss=16 V3-555

SEQ 0103

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

001635
001640
001643
001646
001651
001654
001657
001662
001665
001670
001673
001676
001701
001704
001707

001712
001715

11-Jul=1983 08:42:51

8-Jul=1983 17:46:34

CZRCDAO RC25 DISK EXERCISER
CODING SECTION
REPORT

CZRCD2
v01.0
055
055
055
055
055
055
055
040
055
055
045
045
045
045
060
061
000

040
055
055
040
055
055
055
055
055
055
116
104
104
104
045

060

040
055
055
040
055
055
040
055
055
055
000
071
070
061
104
000

P.AAV:

VAX=-11 Bliss=16 V3=555

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

ASCII
JASCIL
LASCIL
LASCIY
JASCIL
LASCIL
JASCIL
JASCIL
JASCIL
JASCIL
LASCII
.ASCII
LASCII
LASCII
<ASCII
LASCII
LASCI]

/= /
/==</
===/
/= /
/===/
/===/
/== /
/ ==/
/==</
/===/
/XIN/<00>
/%DY/
/%D8/
/%D1/
/0%D/
/10/<00>
<00>

.GLOBL

PATCH, CPT, CST. CST.ADDR,

"GLOBL
"GLOBL

DM.COMM, ‘DMC.ADDR, RP.SAVE. RPS.X1
RPS.X2, OUTC.LIST. OUTC.TIMR, OCL.X1

DCT

"GLOBL DCT.ADDR, RC25.ADDR, IRC25.ADDR
TGLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL
"GLOBL

OCL.X2. TALLY, T.ADDR, MSCP.ENV
ENV.USE. RETPKT, RP.USE, RP.INDX
RP.ADDR. BUFF.DESC, BUFF.OWN, 10DQ
10DQ.IN. 10DQ.OUT, ENTRY.REASON
T.FLAG, EOP.FLAG, MEM.MGMT, IIP.FLAG
CCTLR, CPLAT, CUOFF, CTLR.CNT
DUR, QI10, MEM.SIZE. FREE.MEM.ADDR
BUFF.SIZE., NUM.BUFF, CLK.TYPE
CLK.HERTZ. CLK.CSR, CLK.VECTOR
HOURS, MINUTES. SECONDS. TICKS
ST.CODE, SB.CODE, STEP, OF.RC

.GLOBL

HWQ4, HUQS HWQ6, SWAl, SwWa?2, SWa3

"GLOBL

SA.REG, NEX. CRN. HWQ1. HWQ2, HWQ3
SWQ4.

SWQ5. SWaé. SWa7. SWa8, SWQd

"GLOBL Swa1d, swail, swd12, swol3, Swaié
"GLOBL SWQ15. SwM1, MSG.01. MSG.07. CER.O1
"GLOBL CER.03, CER.03. DUM.00, DUM.UC
"GLOBL
"GLOBL

DUM.CE. DUM.IE. DUM.HE. DUM.UE
EGS.01. EGS.02. EBS.01, EBD.10

"GLOBL
"GLOBL
"GLOBL
GLOBL
"GLOBL
"GLOBL
"GLOBL

LSLUN, LSUNIT

"GLOBL
"GLOBL
.GLOBL
"GLOBL
-GLOBL
"GLOBL

EBD.13. EBD.14. EBD.15
EBD.17. EBD.18. EBD.19
EBD.21. EBD.22. EBH.31
EBH.34. EBH.35. EBH.36
EBH.38, EBH.39, EBH. 40
EBH.L2. EBH.43, EX
EX.CRN. EX.SC. EX.DSC, EX. sa EX.CMD
EX.SCC. EX.ONL, EX.ESP, EX.SND
EX.RD, EX.WRT, EX.CMP, EX.BB, EX.LBN
EX.cBC, EX.BC. EX.BD, EX.03, ETIME
PLATT, CRLF, SWP.ERROR, SWP.XFER
SWP.STRACK, SWP.ETRACK. SWP.FLAGS

EBD.12.
EBD.16.
EBD.20.
EBH.32.
EBH.37.
EBH.41.

SEQ 0104

m
"

X
o

;MOO

C oo FMPYPOVDIOIVOOO
O<VDIDVDVDDOD
DC
D et TM g g Do Bt Gt Do Dt
(olelel=lele
e
HHIHO=NWHWNO

000116*
1]
1]

)

Prg P

g mf e =

Prgp Pune P

EQWWWGQGO
=] —f = el e o

g Bt o Pumg Gt B

ninn

CS =b —d b
b =d
VO OO0 QOO
HwouunuNnnnnoO=NW SN NOOVO =W
nuuwonnun
o
nn

O =2 POWH VO N

on an

DOOD DODODOOmOOOD

100000

=)
= =4 ) o

o Bumg g fang $umeg Gumg
g Guimg brumg bemg g

CZRCD2
v01.0

CZRCDAO RC25 DISK EXERCISER

REPORT CODING SECTION

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

VAX=11 Bliss=16 v3=555

=100000
40000

EF.START==
EF .RESTART==
EF .CONTINUE==
EF .NEW==
EF .PWR==
PRI07

40
-100000

LSHRDLN+2
LSSFTLN+2

P.AAA
P.AAB

SEQ 0105

:51
134

CZRCDAO RC25 DISK EXERCISER

CZR(D2

REPORT CODING SECTION

v01.0

SEQ 0106
Page
VAX=-11 Bliss=16 V3=532
_DUA2:[DOUCETTE.CZRCD] CZKCD2.SRC;5 (&)

SR.MH1=
SR.MH2=
SR.MH3=
SR.MHé4=

000162'

P.AAJ
P.AAK
P.AAL
P.AAM

P.AAN
P.AAO
P.AAP
P.AAQ
P.AAR

P.AAS
P.AAT
P.AAU
P.AAV

001560°*
001676°

000370
000000
000004
000010
000012
000014
000020
000024
00003g

013700
062700
005710
001011
017746
012746
012746
010600

H1.LO:

000366
000002

HI.LO REPORT CODING SECTION
$CODES, RO

MOV
ADD
TST

ADDR.LO,RO
#2,R0
(RO)

BNE
MOV
MOV
MOV

177756
000556°
000002

MOV

18
®ADDR.LO,=(SP)
#SR.LO,=(SP)
#2,-(SP)
SP,RO

B8R
MoV
MOV

2%
(RO) ,-(SP)
H]
., =-(SP)
#SR.

MOV

SP,RO

TRAP

18:

000566°
000002
062706
000207

.SBTTL
.PSECT

MOV

2$:

000006

TRAP
ADD
RTS

1843

1846

H
; ADDR.H],*

#2,-(SP)

: SP,s
H
;

Routine Base: $CODES + 0370
25 words,
5 words
; Maximum stack depth per invocation:
OV NOWNI
NN =

[ SV IV, IVAV IV IV AV, IV

b
=
b wnd ol
b and
—b wud ad

Q000 0o 00 Co 0o 0o 0o O OO

; Routine Size:

LOCAL

TA : REF BLOCK CTALLY_LEN] FIELD (T_FIELDS);

PRINTS (SR_HD);

PRINTS (SRZET,

.HOURS,

.MINUTES . -SECONDS);

%zfgxr_rsr (SWP_FLAGS, SWF_DM)

1844

; SP,»

16
#6,SP

: *,ADDR.H!
; ~,ADDR.HI
; ADDR.HI

! ADDRESS OF A UNIT'S TALLY BLOCK
SUMMARY REPORT HEADER
ELAPSED TIME

%LE%M EXERCISER IS BEING RUN

1838
1826

CZRCDAO RC25 DISK EXERCISER

EEREFERE

b
d
B
b ad
b

PRINTS (SR DHZ)'

7:46:34

INCR UNIT FROM O TO (.LSUNIT = 1) 0O
BEGIN

! FOR EACH UNIT

TA = TALLY + (LUNIT * TALLY_LEN * 2);

! CALCULATE UNIT'S TALLY BLOCK ADDR

ADDR LO TA [READ_LOJ;
HI_L

! SET LOW-ORDER ADDR OF READ COUNT
! PRINT EITHER LOW~ OR HIGH-ORDER FIELD

HI LD O
ADBR_LO = .ADDR_LO + &;
HI_LD O

! PRINT EITHER LOW= OR HIGH-ORDER
! ADVANCE TO LOW-ORDER ADDR OF SEEK COUNT
! PRINT EITHER LOW=- OR HIGH~ORDER FIELD

! PRINT UNIT NUMBER

COUNT
! ADVANCE TO LOW=-ORDER ADDR OF WRITE
FIELD

PRINTS (SR_DL, .TA [MB_READ], .TA [MB_WRIT], .TA [ER_HRD], .TA [ER_SFT));
! UNIT LOOP

END;
END

! ELSE = MULTI-DRIVE SUBTEST IS BEING RUN

BEGIN

PRINTS (SR_MH1);
PRINTS (SR_MH2);

! PRINT HEADER FOR MULTI-DRIVE
SUBTEST BASIC STATS
!

INCR UNIT FROM O TO (.LSUNIT - 1) DO

! FOR EACH UNIT

PRINTS (SRZMH3);
PRINTS (SRTMH4):

PR TR TR P TR X) R PRTRIR A A

BEGIN

TA = TALLY + (LUNIT « TALLY_LEN * 2);
PRINTS (SR_UN, .UNIT);
ADDR_LO = TA [READ_LOJ;

HI LO

ADDR_LO = .ADDR_LO + 4;
HI_LD O;
PRINTS (SR_ML,

b —_—
b

b el and

NOWVIS
W =OO

b nd

VOO0V
O VOO0O

PRINTS (SR_EH1);

! CALCULATE UNIT'S TALLY BLOCK ADDR
! PRINT UNIT NUMBER
SET LOW-ORDER ADDR OF READ COUNT
PRINT EITHER LOW- OR HIGH-ORDER FIELD
ADVANCE TO LOW-ORDER ADDR OF WRITE COUNT
PRINT EITHER LOW- OR HIGH-ORDER FIELD

.TA [MB_READ], .TA [MB_WRIT], .TA [ER_HRD], .TA [ER_LOG]);

END;

TEH2):
PRINTS (SR_

! UNIT LOOP

! PRINT HEADER FOR ECC ERROR STATS

PRINTS (SR EHS)'
PRINTS (SRZEH4);
PRINTS (SRZEHS),

INCR UNIT FROM O TO (.LSUNIT = 1) DO
BEGIN

TA = TALLY + (L,UNIT » TALLY LEN * 2):

SEQ 0107

_DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;5 (6)

PRINTS (SR DHS)'

PRINTS (SRIDH4);

b
- —d

8=Jul=19 831

! PRINT HEADER FOR DM EXERCISER STATS

PRINTS (SR_DH1);

A05R Lo = <ADDR_LO ¢ &;

PR TR TRIR
IAIAIR IR TE
AR
YR IR

11-Jul=~1983 08:42:51

VAX=11 Bliss=16 V3=555

BEGIN

PRINTS (SR_UN, .UNIT);

X
R I

TP IR T R TR IRPRI ATRTR YN TN N (TR PN TR TR X

P YTAITEITE TR LR LN T

REPORT CODING SECTION

' FOR EACH UNIT
! CALCULATE UNIT'S TALLY BLOCK ADDR

PRINTS (SR_EL1, .UNIT, .TA TECC ONLY), .TA CECC 1], .TA fcécc 2], .TA CECC 3D

PRINTS (SRTEL2. .TA LECC _41, TR [ECC_ 53, .TA CECC 6] .TA [ECC 7] JTA CECC 8])

<o
N

NINONINININ)
— —
VIS NN =2 O 000

i
b
b
b
oo
D

20 OV 000000

v01.0

! PRINT <CRO<LF>

PRINTS (CRLF);
ENDRPT;

LRPT REPORT CODING SECTION

R1,$SAVE3
#SR.4),=(SP)
#1,-(SP)

MOV
MOV
MOV
MOV
MOV

SECONDS, (SP)
., =(SP)
MINUTES
, = (SP)
HOURS
#SR.ET,-(SP)
#4,-(SP)

gége

g%.SHP.FLAGS

1859

001264°
000001

MOV
MOV

#SR.DH1, (SP)
#1,-(SP)

1863

001330°
000001

MOV
MOV

#SR.DH2, (SP)
#1,-(SP)

1864

LRPT:

MOV
TRAP

0000006

MOV
TRAP
MOV

TRAP

MOV
MOV

001444 *
000001

MOV

TRAP

MOV
MOV

001560°
000001

000216

.SBTTL

JSR
MOV
MOV

000002

010237
004737
062737

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

END;

0000006
0000006
0000006
000116
000004

104416

VAX=11 Bliss=16 V3-555

S€a 0108

' UNIT LOOP

END;

0000006
000000*
000001

010002
010116
012746
012746
010600

11-Jul=1983 08:42:51
8-Jul=-1983 17:46:34

CZRCDAO RC2S DISK EXERCISER
REPORT CODING SECTION

(=)

P-

MOV

TRAP

SP.RO
16

SP,e

SP.RO
16

SP,e

SP,RO
16

SP.RO
16

#SR.DH3, (SP)
#1,-(SP)

SP,e

1865

SP.RO
16

#SR.DH4, (SP)
#1,-(SP)

1866

SP.RO
16

0000006

MOV

LSUNIT,R3

1867

000060

B8R
MOV
MOV

2
R1, (SP)
#60,~(SP)

1870

MOV

RO,R2

0000006
0000006

000550°
000002
000366
000370°
000004 000366°

CLR

1$:

JSR
ADD

MOV

MOV
MOV
MOV

TRAP

MOV
JSR
ADD

PC,BLSMUL
#TALLY,RO

R1, (SP)

,
= (SP)
#SR.UN
#2,-(SP)
SP.RO
16

R2,ADDR.LO
PC.HI.LO
#4 ADDR.LO

187

000370°
000004 000366°
000370°*

JSR
ADD
JSR

001676°
000005

MOV
MoV
MOV
MOV
MOV
MOV

000020

TRAP
ADD

2%:

001444’

000162°*
000001

3s:

000256°
000001

000354
000001

000450°
000001
0000006

000060
0000006
0000006
000550°
000002
000366°

000004 000366°

000005

INC
CMP
BLY
JMP

MoV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
MOV
MOV
MOV
TRAP
Mov
CLR
MOV
MOV

JSR
ADD
MoV

34 R2),(SP)
30(R2) ,=(SP)
26(R2) ,=(SP)
20(R2) ,~(SP)
#SR.DL ,=(SP)

#5,=-(SP)

S:.RO
1

1868
1867

#20,SP
R1
R1,R3
1$

1859
1888

#SR.MH1, (SP)
#1,~(SP)

SP,RO
16

; SP,+
1889

#SR.MH2, (SP)
#1,-(SP)

SP,RO

s SP,t
1890

#SR.MH3, (SP)
#1,-(SP)

SP,RO
16

: SP,*
1891

#SR.MH&4, (SP)
#1,-(SP)

?P.RO

6
L?UNIT.R3

5%
R1, (SP)

#60.~(SP)

UNIT

1892

UNIT,
e

1895

+,TA
UNIT,®

1896

PC,BLSMUL

#TALLY,RO

R2,ADDR.LO

JSR

PC.4HI.LC

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP

VAX-11 Bliss=16 V3=-555

PC,H1.LO
#4 ,ADDR.LO
PC HI.LO

MOV
MOV
MOV
MOV
TRAP
MOV

JSR

_DUAZ CDOUCETTE.CZRCDICZRCD2.SRC; 5 (6)

PC,HI.LO
#4 ,/00R.LO

32(R2),(SP)
30(R2) ,~(SP)
26(R2) ,~(SP)
20(R2) ,~(SP)

#SR.ML,=(SP)
#5,-(SP)

SP,RO
16

32
228332

000224
000230
36

SEQ 0109

REPORT CODING SECTION

000516

11-Jul-1983 08:42:
8-JuL=1983 17:46

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

CZRCDAO RC25 DISK EXERCISER
CZRCD2
REPORT CODING SECTION
v01.0
000520 062706 000020
000524 005201
000526

000530

020103

5¢:

002725

11-Jul~1983 08:42:51
8-Jul=1983 17:46:34

ADD
INC

#20,SP
R1

:
L OUNIT

1893
1892

BLT

;

1907

CMP

000532 012716 000614

MOV

000542

MOV

000536 012746 000001
000544

010600

104416

R1,R3

#SR.EH1, (SP)

MOV

»,~(sp}

TRAP

MOV

000546 012716 000652°

SP.RO

#SR.EH2, (SP)

000552 012746 000001

MOV

#1,=(SP)

104416

TRAP

000556

000560

010600

MOV

000562 012716 000672°

SP.RO

TRAP

000576 012716 001002°

MOV

#SR.EHG, (SP)

000606

MOV

SP.RO

000602
000610

012746

010600

MOV

000001

TRAP

104416

000612 012716 001110°
000616

000622

000626

012746

010600

MOV

SP.RO

; SP,e

#1,-(SP)
16

000626 013703 0000006

MOV

LSUNIT,R3

000452

000632

000636

005001

000636 010116

000640 012746 000060

000644
000650

000654

004737
062700

010002

CLR

68:

0000006
0000006

000662
000666
000672
000676

000700

016246
016246
016246
010146

012746

000040
000036
000056

000712

TRAP

MOV

000750

000752

000762

54(R2), (SP)

016246
016246
016246
016246

012746

000006

MOV

#6,~(SP)

TRAP

010600

MOV

104416

020103
002724

000766 062706 000012
000772 012716 0000006
000776

: SP,*

52(R2) .=(SP)
50(R2) .=(SP)
46(R2) .~(SP)
44 (R2) - (SP)

000754 062706 000032
000760 005201
000764

SP.RO

MOV
MOV
MOV
MOV

012746

000001

78:

8s:

#SR.EL2,~(SP)

1911

1915

oe
P a(TA)
e
P a(TA)
e
P e(TA)
S OUNIT,*

1910

; UNIT,®

s UNIT

40(R2) .~(SP)
36(R2) .= (SP)
56(R2) .= (SP)
R1,=(SP)

#SR.EL1,-(SP)

1909

1912

: ¢, TA

#6,-(SP)

1908

RO, R2

000052
000050
000046
000044

000740 012746 001244°

000744

42(R2), (SP)

MOV

104416

000714 016216 000054
000720
000724
000730
000734

MOV

010600

R1, (SP)

#60,=(SP)

PC.BLSMUL
#TALLY,RO

MOV

001222°

JSR
ADD

MOV
MOV
MOV
MOV

000704 012746 000006
000710

MOV

MOV
MOV

000656 016216 000042

: SP,e

#SR.EHS, (SP)

TRAP

104416

# ,-(SP)

MOV

000001

: SP,*

: SP,¢

104416

000574

SP.RO

#,=(sP)

MOV

: SP,*

MOV

010600

: UNIT,s

#SR.EH3, (SP)

000566 012746 000001

000572

$EQ 0110

Page
VAX=11 Bliss=16 V3=-555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;S (6)

P e(TA),*

: #(TA),*

s
2
t
P

v
«(TA)
«(TA).*
e(TA) .+
e
a(TA)

1916

1917

SP.RO

: SP,*

ADD
INC

#32,SP
R1

:
Y UNIT

1913
1912

BLT

:
:

1886
1923

CMP

ADD
MOV

MoV

R1,R3

M2,5P
#CRLF, (SP)

#1,-{SP)

: UNIT,e

CZRCDAO RC25 DISK EXERCISER
REPORT CODING SECTION

CZRCD?
v01.0
001002
001006
001006

001012

11=-Jul=1983 08:42:51
8-Jul=-1983 17:46:34

010600
104416
062706
000207

: Routine Size:

MOV
TRAP
ADD

000026
262 words,

RTS

Routine Base:

34 words

000000

.SBTTL
LSRPT:: JSR

000004
000006

104425
000207

: Routine Size:

000452°

& words,

TRAP
RTS

Routine Base:

: Maximum stack depth per invocation:

2 words

; SP,»
1788

$CODES + 0452

: Maximum stack depth per invocation:

004737

SP,R0
16
#26,SP

SEQ 01N

Page
VAX=-11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (6)

LSRPT REPORT CODING SECTION
PC,LRPT

25
PC

$SCODES + 1466

1923

START COMMAND
RESTART COMMAND
CONTINUE COMMAND

POWERDOWN/POWERUP
NE W PASS

EXAMPLE OF EVENT FLAG USE:

W
& wb

&
o

=4
~Oo

EF.START
EF .RESTARTY
EF . CONTINUE
EF .PWR
EF .NEW

IF READEF (EF.START) THEN START_FLAG = 1;

DURING THE INIT CODE, THE °‘'GPHARD'' MACRO IS USED TO OBTAIN P-TABLE

INFORMATION FOR ALL DEVICES. THE NUMBER OF UNITS AVAILABLE IS IN THE

b
—d

hodod
Co o

I mImimi@mimiGImimimemimems
=

W WWNWNINIWWWIWWNI
N NN
el 1. t]e g
-~J [« 3P AV S

THE INITIALIZE CODE 1S EXECUTED UNDER FIVE CONDITIONS. THERE ARE
SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE DIAGNOSTIC KNOW UNDER
THE EXECUTION IS TAKING PLACE. THE EVENT FLAGS ARE
WHICH CONDITION
READ USING THE '‘READEF’' MACRO. THE CONDITIONS UNDER WHICH THE INIT CODE
IS EXECUTED AND THE CORKRESPONDING EVENT FLAGS ARE:

d wrh

D e

b amd

b
b
b

N0 O O O 0 O 00 0VO OO

PRP PR YR PR TR LA L LN ¥
R
TR A
EM E N E I E A
E T
IR AR
IR IR
YRLR ¥ ) (TR
I

SEQ 0112
Page
VAX=-11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC;5 (7)

XSBTTL *INITIALIZE SECTION'

HEADER WORD ‘LSUNIT'.

BGNINIT;
LOCAL

FLAGZ2 : BYTE,
DELAY_MULT : WORD,

CLK_ADR,
HWPT_REF : REF BLOCK [HWPT_LEN, WORD] FIELD (HWP_FIELDS);

SETPRI (PRIO7);

! PRIORITY 7 = NO INTERRUPTS ALLOWED DURING INIT

%FEZEADEF

A TR TR
IR TR PR TR P
RS
T AR
AR E R
T E E ME
EEEEEIEE
TR

8-Jul-

—

CZRCDAO RC25 DISK EXERCISER
INITIALIZE SECTION

CZRCD2
v01.0

11=Jul~

(EF _NEW)

ENTRY_REASON = NEW_PASS;
IF READEF (EF_CONTINUE)

THEN

FIRST IN CASE MULTIPLE FLAGS ARE
SET, E.G., START AND NEW_PASS)

! IS THIS A CONTINUE?

ENTRY_REASON = CONT;

IF READEF (EF_PWR)

THEN

IS THIS A NEW PASS? (ASK NEW_PASS

! IS THIS A POWER FAIL?

BEGIN

ENTRY_REASON = PWR_FAIL:

IF MANUAL

THEN

PRINTF (MSG_01);

INCR COUNT FROM 0 TO 60 DO
BEGIN

DELAY_MULT = 333;
DELAY (.DELAY_MULT);
BREAK;
END;

! IF _ATTENDED
THEN

! "POWER DELAY - WAITING'

! WAIT APPROX. 60 SECONDS

! BREAK FOR ACT

END;

IF READEF (EF_RESTART)

! IS THIS A RESTART?

TR IR
AR R EE T E M E A

AT N TR P PR PR PR AT PR LA PR LRLR
X TR IR

YA IR A PR TRTR PR PR PR TR LR T TR T L] LI TR IR FE PN Y

CZRCD2
v01.0

11-Jul=1983 08:42:51
8-Jul-1983 17:46:3¢

CZRCDAQ RC25 DISK EXERCIScR
INITIALIZE SECTION
HEN

ENTRY_REASON = RESTART;

IF READEF (EF_START)

THEN

! IS THIS A START?

BEGIN

ENTRY_REASON = STARTM;

HOLRS TM= MINUTES = S:CONDS = TICKS = 0;
‘e

' INIT ELAPSED TIME TO 00:00:00:00

MAKE SURE THAT NOT MORE THAN MAX UNITS HAVE BEEN SPECIFIED.

;

(DIAGNOSTIC IS ABORTED).

IF THERE ARE T(O MANY, NOTIFY USER AND RETURN TO SUPERVISOR.

IF .LSUNIT GTRU MAX_UNITS

THEN
BEGIN

ERRSF (1, EGS_01, EMS_01);
DOCLN;
END;

! ''TO0 MANY UNITS''

CHECK TO MAKE SURE THERE IS A CLOCK ON THE SYSTEM.

;

AN L OR P CLOCK, AND SET UP PARAMETERS.

IF NO_CLOCK,

THEN ABORT TO SUPERVISOR. OTHERWISE, DETERMINE WHETHER CLOCK IS

CLK_TYPE = NO_CLOCK;

' SET FLAG FOR NO CLOCK

IF CLOCK (P, CLK_ADR)

! IS THERE A P_CLOCK?

THEN

BEGIN

CLK_TYPE = P_CLOCK;

' SET TYPE T0 P_CLOCK

gfiBE-CSR = %0°'105°;

! ENABLE INTERRUPTS

CLK"CSR = ..TLK_ADR;

ELSE

! SAVE THE CSR ADDRESS

BEGIN

IF CLOCK (L, CLK_ADR)
THEN

BEGIN

' IS THERE AN L_CLOCK?

CLK_TYPE = L_CLOCK;

! SET TYPE TO L_CLOCK

.CLR_CSR = %0'100°;

! ENABLE INTERRUPTS

CLK"CSR = ..CLK_ADR;

END;

! SAVE THE CSR ADDRESS

END;

%zEfiCLK_TYPE EQLU NO_CLOCK
BEGIN

ERRSF (2, EGS_22, 0);
gggLN;

' IF NO CLOCK WAS FOUND

' *NEITHER P NOR L CLOCK WAS FOUND''

! ABORT THE PROGRAM

SEQ 0113

Page
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (7)

8=-Jul=1983 17:46:34

INITIALIZE SECTION

ELSE

BEGIN

= .(.CLK ADR +4);
CLK_VECTOR
CLK HERTZ = .(.CLK_ADR + 6);

ésgVEc CLK_"VECTOR, CLK INT_SERV, PRI06);
‘¢

VAX=11 Bliss~16 V3=555

! CLOCK VECTOR ADDRESS
! CLOCK HERTZ RATE

! SET CLOCK VECTOR ADDR

THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS EXCEPT NEW_PASS.

LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P-TABLES.

IF .ENTRY_REASON NEQU NEW_PASS

THEN

BEGIN

INCR COUNT FRGM 0 TO ((MAX_CTLR » CST_LEN + 2) - 2) BY 2 DO
(CST + .COUNT) = 0;

I~CReg2{L FROM 0 TO (.LSUNIT = 1) DO
cPT L. UNITJ =

%;ESPHARD UNIT HWPT_REF) NEOA 0

! LOOP THROUGH ALL UNITS
¢ INIT CURRENT PASS TESTING VECTOR
! IF HWP TABLE FOUND

BEGIN

FLAG!= NOT_FOUND;

! NO EXISTING IP ADDRESS MATCH YET

INCRBgé%z FROM O TO (MAX_CTLR - 1) DO! LOOP THROUGH ALL CST'S

If .CST C.CTLR, IP_ADDR] EQLA HUPT REF [HWP_IP_ADDR]
* IF 1P ADDRTALREADY EXISTS
THEN
BEGIN

FLAGT = rou~o

FLAG2 = NOT_FOUND;

! FLAG INDICATING PLATTER SLOT AVAILABILITY

INCRnggas' FROM (0 + OF_UN) TO (3 + OF_UN) DO' LOOP THROUGH EACH PLATTER SLOT
IfF .CST [.CTLR, .OFFSET, P PRES] EQLU NOT_PRESENT

THEN

BEGIN

' TF EMPTY SLOT FOUND

FLAG2 = FOUND;

CST C.CTLR, .OFFSET, ALLBIT) = .HWPT _REF [HWP PLAT];
1 COPY PLATTER ABDR AND PROT BIT
CST [.CTLR, .OFFSET, P_UNIT] = .UNIT;

CST C.CTLR, .OFFSET, P-PRES] = PRESENT;

EXITLOOP;

ELSE

END
BEGIN

SEQ 0114

Page

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (7)

ALL RUN-TIME CONTROLLER STATUS TABLES (CST'S) ARE CLEARED TO 0, THEN

A
R IIENEEEEE

11=Jul=1983 oa 42:51

CZRCDAQ RC2S DISX EXERCISER

R E

T E TRIR A

PR PR PRTR TR

PR PRLR LR LR

YN X PRI

TE I ST ETESETE TR YR

E RTR NN P R T KA KN ¥

CZRCD2
v01.0

! END - IF PLATTER SLOT FOUND
! OTHERWISE = SLOT IS OCCUPIED

IF .CST [.CTLR, .OFFSEY, P_ADDR] EQLU .HWPT_REF [HWP_PLAT_ADDR)

11=-Jul=1983 08:42:51
8-Jul=1983 17:46:34

CZRCDAQ RC2S DISK EXERCISER
INITIALIZE SECTION

CZR{D2
v01.0
:
:

2097
5833

2100

IF MANUAL
THEN
PRINTF (CER_01,

2101
2102
P 2103

2105

DUR C.UNIT] ="DU_CONF;

%}85

EXITLOOP;
END;

DODU (.UNIT);

2106

%}Qg

%}}}

%}}2

2115

2118

2121

:
:

.HWPT_REF fHUP_IP_ADDRJ):

2104

:
:

! PLATTER ADDR SLOT ALREADY EXISTS

! IF ATTENDED
! THEN
.HWPT_REF [HWP_PLAT_ADDR],

:
:
:

Page 29
VAX=11 Bliss=16 Vv3=555
(7)
RC;5
_DUA2: [DOUCETTE.CZRCDICZRCD2.S

THEN
BEGIN

FLAG2 = FOUND;

! LOAD REASON FOR DROPPING UNIT
! DROP UNIT
! DON'T LOOK AT ANY MORE SLOTS
' IF PLATTER ADDR ALREADY EXISTS

! PLATTER SLOT SEARCH LOOP

END;

IF .FLAG2 EQLU NOT_FOUND

2116
2117

' "DUPLICATE PLATTER ADDRESS XXX. AT IP XXXX

! IF SLOT IS CCCUPIED

END;

THEN

SEQ 0115

' IF PLATTER SLOT NOT AVAILABLE

BEGIN

2119
2120

IF MANUAL
THEN

' IF ATTENDED
! THEN

2122
2123

DUR [.UNIT) = DU_CONF;
DODU (.UNIT);

! CONFIGURATION ERROR
' DROP UNIT

2125

END;

:
.

2127
2128

EXITLOOP;

S}%}

2133

:
:

2137
2138

2141

:
:

2124

2126

2134
g}gg

g}gg
2142

2143

2144

:
:

2146
2147

! IF EXISTING CST TABLE FOUND

END;

3}%8

PRINTF (CER_02, .HWPT_REF [HWP_IP_ADDR]); ' “'ALREADY & UNITS AT IP XXXXXX(0)*'

' CST TABLE SEARCH LOOP

END;

IF .FLAG1 EQLU NOT_FOUND

THEN
BEGIN

' IF NO IP ADDR MATCH TO EXISTING CST

! FLAG INDICATING EMPTY CST AVAILABILITY
FLAG2 = NOT_FOUND;
INCR CTLR FROM 0 TO (MAX_CTLR = 1) DO ! LOOP THROUGH EACH (ST
BEGIN

IF .CST [.CTLR, IP_ADDR] EQLA O ! IF EMPTY (ST FOUND

THEN

BEGIN

2145

FLAG2 = FOUND;

5}23

€ST [.CTLR, BR_CEV) = .HWPT_REF [HWP_BR_LEVELI];

CST [.CTLR, IP_ADDR] = .HWPT_REF [HWP_IP _ADDR];
€ST C.CTLR, VET ADDR] = .HWPT REF [HWP vECTOR]:

:
:

2150
2151

CST [.CTLR, P1_ALL) = .HWPT_REF [HWP_PLAT]; !PLAT ADDR, PROT BIT
€ST L.CTLR, PI_UNIT) = .UNIT;

2153

EXITLOOP;

2152

CST [.CTLR, P1_PRES] = PRESENT;

M9
CZRCD2
v01.0

CZRCDAO RC2S5 DISK EXERCISER

11=Jul=1983 08:42:51

END;

' IF EMPTY CST FOUND

WA 2O 000NN S
= O OO NO NS W= O 000 NOCVESWN = O V00NN

END;
%;EfiFLAGZ EQLU NOT_FOUND

-DUAZ:[DOUCETTE.CZRCDJCZRCDZ.SRC;S (

! EMPTY (ST SEARCH LOOP
! IF NO EMPTY CST FOUND

IF MANUAL

THEN

! IF ATTENDED
! THEN

PRINTF (CER_03, MAX_CTLR); ! "MORE THAN X DIFFERENT IP ADDRESSES.''
! CONFIGURATION ERROR
DUR [.UNIT] = DO_CONF;
DODU (.UNIT);

! DROP UNIT

END;

' IF NO IP ADDR MATCH IN CST

END;

! 1F GPHARD RETURNED A HWP TABLE

END;

! UNIT LOOP

END;

ELSE

END

! OTHERWISE, FOR EACH NEW PASS

BEGIN

INCR UNIT FROM O TO (.LSUNIT - 1) DO
BEGI N

IF GPHARD (.UNIT, HWPT_REF) NEQA 0

! FOR EACH UNIT

! IF UNIT HAS NOT BEEN DROPPED
!

THEN

! 0.K. TO TEST UNIT

CPT [.UNIT] = YES;
INCR CTLR FROM 0 TO (MAX_CTLR - 1) DO

! FIND UNIT'S CONTROLLER

BEGIN

%ZE&CST C.CTLR, IP_ADDR] EQLA .HWPT_REF [HWP_IP_ADDR]
! FOUND IT

BEGIN

CST L.CTLR, U_CNT] = .CST [.CTLR, U_CNT] + 1;
EXITLOOP;

END;

I
E T

END;

! CONTROLLER LOOP

END;

IF _ENTRY_REASON LEQU RESTART

THEN

IF UNIT NOT DROPPED

! UNIT LOOP

! END - IF NEW PASS

! IF_START OR RESTART
!

THEN

INCREMENT NO. OF TESTABLE UNITS

! DONE

8=-Jul=1983 17:46:34

SEQ 0116

BEGIN

~ VRN

OO0 OOV 000000000 00000000 N NN NNNNNNN oo

AN
NINLNIAIAININININL
Nek b
NN
AN NN N NN AN NN b
NNb wd
ANb AN
NN NN NN NN NN
o e b cad i mod b oD oD e i
b b b b b b cad d b i b b b e
b
b
b ed D b b ek b b

PRI

PR T

PRTR

PR PR TRLR

R LN X TETETYRIERTIE TR TR

YNYL KN ¥

ONONONONONON VNNV

INITIALIZE SECTION

VAX=11 Bliss=16 V3-555

Page

CZRCDAQ RC25 DISK EXERCISER
INITIALIZE SECTION
2211
2212

BEGIN

2215

INCRTCTLR FROM O TO (MAX_CTLR - 1) DO

2213
2214

CRN = 0;
CTLR_CNT = 0.

%g}g

BEGIN

2218

CTLR_CNT = .CTLR_CNT + 1;

! INCREMENT CONTRCLLER COUNT

2222

END;

2223

! COMMAND REFERENCE NUMBER
! NUMBER OF CONFIGURED CONTROLLERS
! IF CONTROLLER IS PRESENT

THEN

%sg?

11=Jul=1983 08:42:51
8-Jul=1983 17:46:34

! THEN

! GET START OF FREE MEMORY
' GET FREE MEMORY SIZE

2224
%5%2

MEMORY (FREE_MEM_ADDR);
MEM_SI1Zt = ..FREE_MEH_ADDR:

2227
gggg

INCR COUNT FROM 0 TO ((MAX_UNITS * TALLY_LEN) - 1 dO
TALLY [.COUNT] = 0;

%ggg

END;

2232

' INITIALIZE
! STATISTICS

' END OF START/RESTART INITIALIZATION
MISCELLANEOUS INITIALIZATON

2233

2236

INCR CTLR FROM 0 TO (MAX_CTLR - 1) DO

' INITIALIZE NO. OF QUTSTANDING QJOS

2238

INCR COUNT FROM O TO (RP_CNT - 1) DO

' INITIALIZE RETURN PACKET POOL

2240
2241

100Q_IR = 10DQ_OUT = 0;:
IF (TBIT TST (SwP FLAGS, SWF_HW(C)) AND

3 O

2237

2242
2243
Sszg

QIO [.CTLR] = 0;

RP_USE [.COUNT] = =1;

THEN

2246

2253
2254
2255

!
'~

2247
2248
2249
2250
2251
2252

(BIT_TST (SWP_FLAGS, SWF_CW()))

SWP_FLAGS <SWF_PHW(C,1> = 0.

]

INITIALIZE 1/0 DONE QUEUE POINTERS

IF USER CHANGED FROM HOST WRITE-CHECKS TO

CONTROLLER WRITE=~CHECKS
!
' THEN (BOTH BITS WOULD BE SET)
! CLEAR HOST WRITE-CHECKS

THE FOLLOWING SITUATION (STARTING TRACK NUMBER GREATER THAN ENDING
TRACK NUMBER) CAN OCCUR DUE TO ANOTHER DRS BUG. IF THE USER ENTERS LOW
TRACK LIMITS FOR ONE PASS, THEN ENTERS A HIGH STARTING TRACK NUMBER
AFTER A RESTART OR CONTINUE COMMAND, DRS WILL NOT GIVE AN ERROR IF THE
ENDING TRACK NUMBER IS DEFAULTED TO THE PREVIOUS LOW TRACK NUMBER. AN
ERRONEOUS LBN WOULD BE GENERATED IN QIO_LBN IF THIS SITUATION WERE

!
!
!
!
!
!

ALLOWED.

2256
2257
2258
2259

IF .SWP_STRACK GEQU .SWP_ETRACK
THEN
BEGIN

2260
gsg;

LOCAL
TEMP : WORD;

2263
2264

TEMP = ,SWP_STRA(K;
SWP_STRA(K = ,SWP_ETRA(CK;

5322

SWP_ETRACK = .TEMP;

2267

END;

SEQ 0117

Page
VAX=-11 Bliss=16 V3=555
(7)
;5
RCDZ.SRC
CZRCDJCZ
OUCE?TE.
-DUAZ:(D

IF .CST [.CTLR, IP_ADDR] NEQA 0

2219

n
no

TR TEEIETEFETEFETE
TR FE P P T I T ITR I E I TN P
T P PN R NNT

e ®s %0 0. %008, 90%0
0000V 8,3 0, %000,
0 (YEIR I E FEYRR
N

CZRCD2
v01.0

! REVERSE STARTING AND ENDING
TRACK NUMBERS
!

51
134

CZRCDAO RC25 DISK EXERCISER
INITIALIZE SECTION

CZRCD2
v01.0

SEQ 0118
VAX=11 Bliss=16 V3=555
Page
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (7)

! SET PROGRAM PRIORITY TO 0

SETPRI (PR100);
ENDINIT;

004137
162706
012700

0000006
000010
000340

012700

000035

104441

000005
000036
000003
000034

000004

LINIT:

0000006

000000G

TTL
.
.

LINIT INITIALIZE SECTION
R1,$SAVES

su8
MOV

:
:

1959
1961

2s:

BHIS
MOVB
TRAP
BHIS
MOV
MOV

9%
#4.ENTRY.REASON
5¢

;
H

1968
1969

;

1971

TRAP

TRAP
CMP

38
#MSG.01,~(SP)
#1,-(SP)
SP.RO
17
(SP)+,(SP)+

MOV

R3,R1

MOV
MOV

5%:

BEQ

8s:
9%:

000001 (000006
0000 006
0000006

1957

1963
1965

7%:

0000006

:
:

6$:

000037

1955

2%
#3,ENTRY.REASON
#34.R0

3$:

000006

BHIS
MOVB
MOV

MOV

0000006

1925

1$8:

0000006

000075
000515

#10,5P
#340 RO

1
#35.R0
7
1%
#5,ENTRY.REASON
#36.R0

000001

000216

LSDLY

TRAP
MOV
TRAP
BHIS
MOVB
MOV

0000006

000092
000040

.GLOBL

10%:

#75,.RS
#515 R3
88

; *,COUNT
: «.DELAY.MULT

* DELAY.MULT,SSTMP2

MOV

LSDLY,RO

; *,$8TMP

CLR
DEC

6(SP)
RO

; $STMP
P $STMPI

DEC

; $$TMP2

8EQ
BNE

B8R

TRAP

BNE
MOV
TRAP
BHIS
MOVB

48
#37,R0
7
108
#2 ENTRY.REASON

DEC

MOV

TRAP
BHIS
MOVB
CLR

CLR

#40.R0

47
118
#1,ENTRY.REASON
TICKS

SECONDS

1973
1975
1976

: COUNT

1973

1982

;

1984
1986

:
:

VAX=11 Bliss=16 V3-555

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (7)

CZRCDAO RC25 DISK EXERCISER
INITIALIZE SECTION

CZRCD2
v01.0

005037

0000006
0000006

0000006 000020

11$:

MINUTES
HOURS

LSUNIT,#20
12$
56
1

EGS.01

EMS.01

12$:

0000006
000120

CLK.TYPE
#120,R0

#1,CLK.TYPE
(R1) ,CLK.CSR

13%:

000114

62
13$
RO,R1

0000006
000001
0000006
000105 0000006

qZOS.OCLK.CSR
$
#1146 ,R0
62
148

c-i CLK.TYPE

177777 0000006
0000006

000100
0000006

0000006

148:

(R1),CLK.CSR
#100.aCLK.CSR

RO,CLK.ADR

CLK.ADR,

RO,CLK.ADR

*
CLK.ADR,

CLK. TYPE
158
54

2
£G6S.02
0
44

000004 0000006
000006 0000006
000300
000000V
0000006
000003

000010

0000006

15$:

0000006
000002
000066

010400
000512

104442

010066

002770°
0000006
000004

6(R1) ,CLK.HERTZ

)
*(CLK.ADR,*
*(CLK.ADR),*

CLK.VECTOR,=(SP)
;.-(SP)
3

#10,SP

LSUNIT, (SP)
(SP)

sNTRY.REASON.lS

0000006 000005
003002°

16$
4(R1),CLK.VECTOR
#300,~(SP)
#CLK. INT.SERV,=(SP)

16%:

S€a 0119

COUNT
«(CCUNT)

188

~, COUNT

COUNT ,»

: UNIT

; *(UNIT)

19%:
42
RO,4(SP)

=
: UNIT,

: =, HWPT REF

VAX=11 Bliss=16 V3~555

CZRCDAO RC25 DISK EXERCISER
INITIALIZE SECTION

CZRCD2
v01.0

002766°

000016
0000006

#16,-(SP)
PC.BLSMUL
(SP)+, (SP)+

288

000001
000007
0000006
000006

#7,-(SP)
PC.BLSMUL

000003

#3,R1

22%:

2078
2081

R1.R0

2(8P) RO

#40000, (RO)
23s

#1,R2
4(SP) ,=(SP)
46, (SP)

8(SP)+, (RO)
R4 ,-(SP)
(SP)
#160377. (SP)
#17400, (RO)
(SP)+, (RO)

160377

017400

REF ,+
: HW. PT

: «,FLAG?

2085
2086

: UNIT,»

2088

l4g006.(R0)

040000

238%:

000004

000006

26
4(SP) ,=(SP)

#6, (SP)

2089
; HWPT.REF,*

2096

(RO),a(sP)+

258

#1,.R2

000001

000010
000006

50
248
a4 (SP) ,=(5P)
-(SP)
10(SP) .RO
6(RO) , (SP)

000003

#3,-(SP)

000004

#CER.01,-(SP)

0000006

000006

2076
2077
2081

RO
#CST,RO

000001
000004
000006

000001

; *,HWPT.REF

RO,6(SP)
(SP)+,(SP)+

0000006
040000

000010

: CTLR
; CTLR,*

R2
R3,-(SP)

000002

020127

: FLAGT

)
.34 (SP)
CST(RD

0000006 000004

Page

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (7)

20$:
21s:

SEQ 0120

SP.RO
17

0000006

248:

25$:

#10,SP
#1,DUR(R4)

R4 RO

: +,FLAGZ
; HWPT.REF,*

: HWPT_REF,»

: *(HWPT,REF),*

: SP,¢

s *,«(UNIT)
¢ UNIT,»

s OFFSET
: OFFSET o

2105
2106
2098
2078

VAX=-11 Bliss=16 V3-555

CZRCDAO RC25 DISK EXERCISER
INITIALIZE SECTION
003703

26$:

SEQ 0121

Page

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (7)
228

FLAGZ

2115
2119

278
84(SP) ,-(SP)

000004
0000006
000002

000000G

000003

27%:

28$%:
29%:

0000006

308:

000001
000004 0000006
000004
000002
177000
000777 0000026
0000026

26.SP
#1.DUR(R&)
ga.ao
1

».R2
84 (SP) ,CST(RO)
4(SP) ,R3
2(R3) .R1

* FLAGZ
HWPT .REF ,*(CTLR)

318

+, «(CTLR)

,+
HWPT.REF

PT
.REF) ,*(CTLR)
*(HWU

CTLR,*
HWPT .REF ,*
*(HWPT .REF) ,«
UNIT
¢+

#17400, (R3)
R1, (R3)

#40000, (R3)

040000

318:

328

#16,R0

RO,#52

«,CTLR

CTLR,*

FLAG2

32%:

000006

REF ,*
HW. PT
,*
*(HWPT.REF)

FETRTE TR

160377

062706

FLAGT

*(CTLR)

R4 ,R1
R1
#160377.R1

017400

001252

CTLR
CTLR,*

CST(RO)

#777.CST+2(RO)
R1,CST+2(RO)
R3,R1
4(R1),CST+4(RO)

000004
000006

000004
0000006
000002

*, «(UNIT)

UNIT,»

29%
R3
R3,43
218
RS
348
R2
RO

#177000,R1

000004 0000046
0000066

000016
000052

SP,*

SP.RO
17

YRYR YR TR ¥)

000001

#CER.02,~(SP)
#2.-(sP}

[

000006

HWPT.REF
,*

#%,=(SP)

#CER.03,~(SP)

#2.-(SP}
SP.RO
17

#6,SP

SP,*

121

001272

020416

001274
001302
001304
001306
001310

003002
000137
000432
005002
000426
010200

001314

010066

000004

001322
001330
001332
001340
001342
001346
001350

112762
005000
026076
001003
105260
000405
062700

000001

001276

001312
001320

001354

104442

001420

020027

001360 003764

002200°

0000006 000004
0000056G
000016
000052

001430

101034

020027

001434 003766
001436

001440

104/ 31

010037

398:
408:

438:

0000006
0000006
0000006

448:

0000006G
000016

458:

000052

020027
003771

001500

020027
003772

001520

020027

001526

005037 0000006

001532

003771

005037

468:

#1,CPT(R2)
RO
CST(RO) , @4 (SP)

; %, «(UNIT)
: CTLR
* «(CTLR) ,HWPT.REF

CST+5(RO)
41
#16,R0

BLE

RO,#52

; «(CTLR)
:
: *,CTLR

2188
2189
2192
2196
2194
2189

39§

(MP

R2, (SP)

:OUNIT,*

; UNIT

2181

CMPB

ENTRY.REASON,#2

;

2209

CLR
CLR
CLR
TST
BEQ
INC
ADD

CRN
CTLR.CNT
RO
CST(RO)
458
CTLR.CNT
#16,R0

:
:
P CTLR
: «(CTLR)

2213
2214
2215
2218

;
P« CTLR

2220
2215

;

2224

(RO) ,MEM.SIZE

: FREE.MEM.ADDR,

RO #1376

: COUNT,w

000037

0000006

CMP

INC

BLE
8HI

CMP

478:
488:

41$

408

38$

478

RO,#52

468

RO,FREE .MEM.ADDR

CLR
CLR
ADD

RO
TALLY (RO)
#2.R0

BLE

46%

CMP

RO,#3

CLR
CLRB
INC

BLE

498:

MOV

CMP

000003

001506 005000
001510 112760 000377 0000006
001516 005200
0015264

MOVB
CLR
(MP
BNE
INCB
8R
ADD

MOV

001376

001470 005000
001472 105060 0000006
001476 005200
001504

; *,HWPT.REF

TRAP

0000006

001450 005000
001452 005060 0000006
001456 062700 000002
001466

RO,4(SP)

TRAP

BLE

001444 011037 0000006
001462

MOV
8EQ

428:

020216

005037
005037
005000
005760
001402
005237
062700

358:

418:

001370 123727 0000006 000002
001376

368:

0000006

001366 003750
001400
001404
001410
001412
001416
001420
001424

338:

36$:
37$:
388:

001362 005202
001364

MOVB
MOV
TRAP
INC
(MP
8GT
JMP
BR
(LR
B8R
MOV

Page 36
VAX=11 Bliss=16 V3-555
(7)
RC;S
_DUA2:[POUCETTE.CZRCDICZRCD2.S
2166
; ¢ (UNIT)
2167
S OUNIT,®
2060
: UNIT

CZRCDAO RC25 DISK EXERCISER

CZRCD2

INITIALIZE SECTION
v01.0
001256 112764 000001 0300006
001264 010400
001266 104451
001270 005204

SEQ 0122

11=Jul=1983 08:42:51
8-Jul=1983 17:46:34
#1,DUR(R4)
R4 .RC
51
R4
R&, (SP)
36$
198
438
R2
428
R2,RO

CLR
MOVB
INC
(MP

BLE

CLR

RO
0QIO(RO)
RO
48%

RO
#377,RP.USE(RO)
RO
RO,#37
49%

10D0.0UT
1000, IN

S OUNIT,®

;
: UNIT
; UNIT,®

P CTLR,

P CTLR,*

: COUNT
* «(COUNT)
: «,COUNT

2053
2181
2184

2225

2227
2228
2227

: CTLR
: «(CTLR)
. CTLR

2236
2237
2236

: COUNT
* «, 4 (COUNT
: COUNT

2238
2239
2238

;

2240

: CTLR,*

. COUNT,*

CZRCDAO RC25 DISK EXERCISER
INITIALIZE SECTION
132737

000100

0000006

132737

000040

0000006

023737

000100 0000006
0000006 0000006

001407
001403
142737

103407

013700
013737
010037
005000
104441
062706

000207

: Rougine Size:

000010

2241

#100, SWP.FLAGS

2244
2256

SWP.STRACK,RO
SWP.ETRACK, SWP.STRACK

51$:

CLR

TRAP
ADD
RTS

Page

#100,SWP.FLAGS
508
#40,SWP
. FLAGS

2242

gg:.STRACK.SUP.ETRACK

50%:

SeQ 0123

_DUA2: CDOUCETTE.CZRCDICZRCD2.SRC;5 (7)

508

0000006

0000006 0000006
0000006

VAX=11 Bliss=16 V3-555

RO,SWP.ETRACK
RO
41

#10,SP

®e e ®o O,

CZRCD2
v01.0

001536
001544
001546
001554
001556
001564
001572
001574
001600
001606
001612
001614
001616
001622

11-Jul~1983 08 42:51
8-Jul=1983 17:46:34

«,TEMP

2263

TEMP,*

2265
2269
1925

$CODES + 1476
Routine Base:
458 words,.
16 words
invocation:

: Maximum stack depth ¢~r

000000
000004
0000C6

004737
104411
000207

001476°

.SBTTL
LSINIT: :JSR
TRAP
RTS

LSINIT INITIALIZE SECTION

?g.LINIT
PC

Routine Base:
$CODES + 3322
4 words, )
: Rougine Size:
2 words
: Maximum stack depth per ‘nvocation:

2269

H 10

CZRCDAO RC2S DISK
SECTION
AUTODROP

CZRCD?
v01.0

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

000000

2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
2283
2284

: Routine Size:

000000
000004
000006

004737
104461
000207

; Routine Size:

; Maximum stack

8=Jul=1983 17:46:34

SEQ 0124

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC; 5 (8)

XSBTTL 'AUTODROP SECTION'
‘e

'
!
;

THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE ]F THE
““ADR’* FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO SEE IF THEY
WILL RESPOND. THOSE THAT DON'T ARE IMMEDIATELY DROPPED FROM TESTING.

BGNAUTO,;
RETURN;

ENDAUTO;

LAUTO:

000207

; Maximum stack

11=Jul=1983 08:42:51

EXERCISER

VAX=11 Bliss=16 V3-555

.SBTTL
RTS

LAUTO AUTODROP SECTION
PC

2271

;

2282

1 word,
Routine Base: $CODES + 3332
depth per invocation: 0 words

003332°

.SBTTL
LSAUTO: : JSR
TRAP
RTS

LSAUTO AUTODROP SECTION
PC.LAUTO
61
PC

4 words,
Routine Base: $CODES + 3334
depth per invocation: 2 words

(V.1V}
ragiy

o8
o

=1
11=Jul
8-Jul-1

~GCo

CZRCDAOQ RC25 DISK EXERCISER
CLEANUP CODING SECTION

CZRCD2
v01.0

OO
(1]
NN

110

TR SRTR TR DN PN PN PR PN PR TR DN RN ¥

XSBTTL 'CLEANUP CODING SECTION'
'+

THE CLEANUP CODING SECTION CONTAINS THE CODING THAT 1S PERFORMED UNDER
ONE OF THREE CONDITIONS: (A) AFTER EACH COMPLETE PASS, (B) WHENEVER
THE ‘DOCLN'' MACRO IS ENCOUNTERED, AND (C) WHEN THE OPERATOR TYPES
“SCTRL=C>''. SOME OF THE CODE IN THIS SECTION IS NOT PERFORMED IF THE

!
!
'
¢
;

REASON FOR ENTRY IS END-OF=-PASS ((A) ABOVE).

BGNCLN;

IF .CLK_TYPE EQLU NO_CLOCK

YTEITEYE

THEN
RETURN

ELSE

.CLK_CSR = 0;
CLRVEC (.CLK_VECTOR):

! IF THERE IS NO CLOCK

! THEN
! RETURN

! OTHERWISE

BEGIN

' TURN OFF CLOCK
' CLEAR CLOCK VECTOR

T E

THEN

-~ OO0 NN

2312
PNOND ==b ed b ood o

AT PRYA TR TR P PO PRYR TR PR R PR R

A T X TR

END;

IF NOT .EOP_FLAG

2322

BEGIN

SETVEC (4., NEX_TRAP, PRI07);
INCR CTLR FROMTM0 TO (MAX_CTLR = 1) DO
BEGIN

' IF INVOKED BY “C OR DOCLN
! THEN

' IN CASE USER GAVE BAD IP ADDRESS
! FOR EACH CONTROLLER

{zréRCZS_ADDR = ,CST [.CTLR, IP_ADDR]) NEQA 0

) WRT_RC25 (RCIP, RC_ALL, ALL_ONES);

; {zegourROLLen EXISTS

" WRITE IP TO STOP DEVICE

END;

CLRVEC (4);

! RETURN TRAP 4 TO DIAGNOSTIC SUPERVISOR

END;

' IF NOT END OF PASS

INCR UNIT FROM O TO (MAX_UNITS - 1) DO

' INITIALIZE DROP UNIT REASON VECTOR

IF .MEM_MGMT

' IF SYSTEM HAS MEMORY MANAGEMENT

DUR [.UNIT] = 0;

THEN

BEGIN

' THEN

KTPARSG = X0°1000°;

! RESTORE PAR'S

MMRO = 0;

! TURN OFF MEMORY MANAGEMENT

KTPARS = %0°1200°;
END;

EOP_FLAG = FALSE;
ENDCLN;

SEQ@ 0125

Page
VAX=-11 Bliss=16 V3=-55 5
(9)
C;5
D2.SR
JCZRC
CZRCD
.
_DUA2:LDOUCETTE

' CLEAR END-OF-PASS FLAG

CZRCDAQ RC25 DISK EXERCISER
CLEANUP CODING SECTION

104436
132737

001034
012746
012746
012746
012746
104437
005001
016137
001404
012700
010071
062701
020127
003763

.SBTTL

LCLEAN: HOV
IS8T

0000006

8EQ
CLR
MOV
TRAP
BITB
BNE
MOV
MOV
MOV
MOV
TRAP
CLR
MOV
BEQ

0000006
0000006

000001

0000006

000340

000000V
000004
000003

0000006 0000006
1727777
2$:

000052
000004

3s:

0000006

000017

012601
000207

000001

0000006

001000
001200

172350
172352

CST(R1) ,RC25.ADDR
2

ADD
CLR

#10,SP
RO

CMP

ao n7

BIT8
BEQ

01 ,MEM.MGMT
58

CLR

aw177872

CLRB
INC

MOV
MOV

CLRB
MOV
RTS

2284
2297
2299
2303
2304
2308

2312

; CTLR

,*
*(CTLR)

* ,RC.REG

RO,3CST(R1)
#16,R1

R1,#52
18
#4,RO0

CMP

BLE

5%:
6%:

R1
CLK.TYPE
6$
aCLK.CSR
CLK.VECTOR,RO
36
#1,EOP.FLAG
3s
#340,-(SP)
#NEX.TRAP,=(SP)
#4,-(SP)
#3,-(SP)
37
R1

BLE
MOV

TRAP

000010

177572
0000006

MOV
ADD

LCLE?gPCLEANUP CODING SECTION

RC.REG,
*,(TLR
CTLR,*

DUR(RO)
RO

Co %o o By Oy

010146
005737
001472
005077
013700

UNIT
*{UNIT)
UNIT
UNIT,«

LX)

CZRCD2
v01.0

SEQ 0126

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC; 5 (9)g
VAX=11 Bliss=16 V3-555

#1000,34172350
#1200.3#172352
EOP.FLAG
(SP)+,R1

Routine Base: $CODES + 3344
; Routine Size:
64 words,
7 words
: Maximum stack depth per invocation:

000000
000004
000006

004737
104412

000207

003344

.SBTTL
LSCLEAN::
JSR
TRAP
RTS

LSCLEAN CLEANUP CODING SECTION
PC,LCLEAN

Routine Base:
SCODES + 3544
4 words,
; Routine Size:
2 words
; Maximum stack depth per invocation:

2339

K 10

CZRCDAO RC25 DISK EXERCISER

DROP UNIT SECTION

R
A TE TR PR TR FN YR X TR YRR AR
I AT PRI YR PRIR PRLR X (Y TEYRIEAIE
A T E
TR
R RN A E
PR

11-Jul-1 983 08:42: 51
17:46:3¢4
8~Jul=1983 17:46

Pa?e
VAX=11 Bliss=16 V3-555
_DUA2: [DOUCETTE.CZRCDIC IRCD2.SRC;5 (10

%SBTTL 'DROP UNIT SECTION’

THE DROP=-UNIT SECTION CONTAINS THE CODING THAT CAUSES A PLATTER TO NO
LONGER BE TESTED. IT 1S EXECUTED WHENEVER THE MACRO 'DODU'’ IS
Egfig%?fififigbx!” THE PROGRAM, OR WHEN THE OPERATOR TYPES THE COMMAND
THE PROGRAM WILL DROP A UNIT FOR ONE OF SEVERAL REASONS:
1. A CONTROLLER CANNOT BE BROUGHT ONLINE,

2. A PLATTER CANNOT BE BROUGHT ONLINE TO ITS CONTROLLER,
3. AN UNRECOVERABLE PORT OR CONTROLLER ERROR HAS BEEN DETECTED,

4. A PLATTER HAS REACHED THE HARD ERROR LIMIT, OR

YR TE T

R NNTR L LN N NN T e Be e a,

CZRCD2
v01.0

5. AN MSCP END MESSAGE CONTAINS A "UNIT-OFFLINE'' STATUS CODE.

BGNDU;
OWN

DUM_TBL : VECTOR [5] INITIAL (DUM_UC, DUM_CE,
DUM_IE, DUM_HE, DUM_UE):

LOCAL

UNIT : WORD,
PRINT : WORD;

! ADDRESS TABLE FOR DROP UNIT MESSAGES

! NUMBER OF UNIT BEING DROPPED
' 0.K TO PRINT DROP UNIT MESSAGE

LABEL
SEARCH;

BEGIN

' UNIT NUMBER APPEARS IN RO UPON ENTRY

INPUT = 0;

i GET UNIT NUMBER

UNIT = . INPUT;

END;

! UNDECLARE REGISTER

PRINT = FALSE;

t ASSUME NO PRINTING OF MESSAGE

SEARCH:

! BEGIN SEARCH BLOCK

BEGIN

INCR CTLR FROM O TO (MAX_CTLR = 1) DO
BEGIN

INCRB?%EzET FROM (0 + OF_UN) TO (3 + OF_UN) DO

' FOR EACH CST

! FOR EACH UNIT ENTRY IN CST

IF (¢.CST [.CTLR, .OFFSET, P_PRES] EQLU PRESENT) AND ! IF UNIT EXISTS AND
UNIT MATCHES CST ENTRY
!
(.CST C.CTLR, .OFFSET, P_UNIT] EQLU .UNIT))
THEN

BEGIN

IF .CST C.CTLR, .OFFSET, P_STAT] EQLU ONLINE
THENBEGIN

! THEN

! IF UNIT IS ONLINE
! THEN

SEQ 0127

11=Jul=-1983 08 42:51
8=Jul=1983 17:46:34

CZRCDAO RC2S DISK EXERCISER
DROP UNIT SECTION

CZRCD2
v01.0

PRINT = TRUE;
I PN

CST C.CTLR, .OFFSET, P_STAT)= OFFLINE;
IF .CPT C.UNIT) EGLU YES

PN TN X AR FN YN TN

THEN

SEQ 0128

Pa?e 42
VAX=-11 Bliss=16 V3-555
(10
_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5

! 0.K. TO PRINT MESSAGE

i MARK UNIT OFFLINE

i IF UNIT IS UNDER TEST

! THEN

BEGIN

CPT [.UNIT] = NO;

- 1CST C.CTLR, U CNT) = .CST [.CTLR, U_CNT]

DM_comM C. CTLR, .OFFSET - OF_UN, AL[BIT] = -1;

! NO FURTHER TESTING

! DECREMENT UNIT COUNT

! IF DM EXER, TELL FPT

R LR

LEAVE SEARCH;

' EXIT SEARCH BLOCK

END;

' IF UNIT EXISTS AND MATCHES

' IF UNIT WAS ONLINE

END;

LRTR

END;

! CST UNIT LOOP

TRYR

END;

! CONTROLLER LOOP

YE I E T

END;

! SEARCH BLOCK

END;

IF MANUAL AND (.PRINT OR (.DUR [.UNIT) LEQU DU_INIT))

M E I E T EE

I E

THEN

! IF 0.K. TO PRINT MESSAGE

! THEN

BEGIN

1 CCROCLFY
PRINTF (CRLF);
PRINTF (ETIME, hJURS .MINUTES, .SECONDS); ' ELAPSED TIME

I E

PRINTF (DUM 00, u~1

! “UNIT XX. DROPPED - '

PRINTF (.DUM_ 8L C DUR [ UNITID);

! REASON

END;

003554
003556
003560
003562
003564

000000

ENDDU;

DUM.TBL:.WORD
.WORD
.WORD
.WORD
.WORD

0000006
0000006
0000006
000000G
0000006

006137
010002
005003
005004
010446
012746
004737
010005
012701
010500
060100

0000006

000007
0000006
000003

LDU:
1$:

.SBTTL

LDU DROP UNIT SECTION

JSR

R1,$SAVES

MOV
JSR

#7.-(SP)
PC.BLEMUL

MOV
CLR
CLR
MOV
MOV

2%:

DUM.UC
DUM.CE
[DUM.IE
DUM.HE
DUM.UE

MOV

ADD

RO,R?
R3
Ré
R4,=(SP)
RO.RS

;

:
:
:
:

INPUT,UNIT
PRINT
CTLR
CTLR,*

#3,R1

: «,0FFSET

R1.R0

: OFFSET,«

RS,R0

2341

2375
2379
2384
2390

2387

2390

SEQ 0129

CZRCDAO RC25 DISK EXERCISER
DROP UNIT SECTION

CZRCD2

v01.0

000036
000040
000044
000050

Pa?e
VAX-11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCD JCZRCD2 SRC;5 (10

006300
062700
032710
001450
010246
011046

caoobo (RO)

0000006
040000

RZ =(SP)
(RO) -(SP)
(SP)
#177740, (SP)
(SP)+,(SP)+

177740

#20000, (RO)
3s
#,R3

020000
000001
020000
0000006

#20000, (RO)

CPT(R2) ,R3
3s
CPT(R2)
R4, (SP)

0000006

#16,~(SP)
PC.BLSMUL
(SP)+

000016
000000G

CST+5(RO)

0000056

R&, (SP)

#32,-(SP)

200032
0000006

177777

; UNIT,»

1777726

000006

PC.BLSMUL
(SP)+
R1,RO
RO

38:
A ¥

000003

2395
: = ,PRINT

=
: *(UNIT)

¢ CTLR,*

2405
2406

: CTLR,*

2407

; OFFSET,«
2393

;gP)*.(SP)f

s OFFSET

s OFFSET,+
; CTLR
: CTLR,*

0000006
000001

9UR(R2).#2

0000006
0000006
0000006
0000006

000300
000302

6%:

2387

2385
2384
2423

5%:

0000006 000002

2399
2400
2401

: *(UNIT)

#-1,DM. COMM-6(R0)
R1
R1,4#6
2%
(SP)+,(SP)+
R4
R4 ,#3

239N

$
#CRLF ,=(SP)
#1,-(SP)

: PRINT
: *(UNIT),»

2427

SP,RO
17
SECONDS, (SP)
MINUTES,=(SP)
(SP)
, =RS
HOU

: SP,»

SP,RO

s SP,¢

000004

#ETIME,~(SP)
#4,=(SP)

0000006

17
R2,(SP)
#DUM. 00, - (SP)

2428

s UNIT,»

2429

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

000306

000350

DROP UNIT SECTION

012746

010600
104417
116202
042702
006302
016216
012746
010600
104417
062706
000207

: Routine Size:

000002
000000G
177400

00355¢4"
000001

000022
117 words,

7%:

Routine Base:

: Maximum stack depth per invocation:

000000
000004
000006

SEQ 0130

Pa?e
VAX=-11 Bliss=16 V3=-555
(10
SRC;5
JCZRCD2.
CZRCD
_DUA2:[DOUCETTE.

004737
104453
000207

003566°

17 words

L$DU::

MOV
MOV
TRAP
MovB
BIC
ASL
MoV
MoV
MoV
TRAP
ADD
RTS

#2,~(SP)

SP,RO
17
DUR(R2) ,R2

#177400,R2
R2

: SP,x
,»
: *(UNIT)

2430

(SP)
DUM. TBL (R2),

#1,-(SP)

SP,RO

17
#22,SP
PC

: SP,+
2425
2341

$CODES + 3566

.SBTTL

JSR
TRAP
RTS

LSDU DROP UNIT SECTION

PC,LDU

Base:
)
$CODES + 4140
Routine
4 words, .
; Routine Size:
2 words
: Maximum stack depth per invocation:

2432

8 11

C2RCD2
v01.0
:

:
:
:

2435

2438
2439
2440
2L41
2642
2443
2444
2445
2446

:
:
:
:
:
:

2447

:
:
:
:

XSBTTL "ADD UNIT SECTION'
"

“"ADD/UNIT:X"".

!
-

BGNAU;

LOCAL

' NUMBER OF UNIT BEING ADDED

UNIT : WORD,

STINDX : WORD,

2448

2454

ENDIDX : WORD;

BEGIN
REGISTER

! UNIT NUMBER APPEARS IN RO UPON ENTRY

INPUT = 0;

' GET UNIT NUMBER

gzgg

UNIT = INPUT;

gzgg

END;

:
:
;
.
M

2459 DUR [.UNIT] = 0;
2460 STINDX = ,UNIT « TALLY_LEN;
2461 ENDIDX = .STINDX + TALLY LEN - 1;
2462 INCR COUNT FROM .STINDX YO .ENDIDX DO
TALLY [.COUNT] = 0;
gzgz

2465

! UNDECLARE REGISTER

ENDAU;

LAU:

000000 004137 0000006
000004 105060 0000006
000010 010046

.SBTTL

H
: «(UNIT)
: UNIT,»

2434
2459
2460

JSR

oC,BLSMUL

RO,R2

: STINDX,ENDIDX

2461

RO,R1

: STINDX,COUNT

2462

000022 010002

MOV

0000006

ADD

000024 062702 000027
000030 010001

MOV

000034

000404

000040
000042

006300
005060

000032

DEC

005301

1$:

000036 010100
000046 005201
000050
000052

000054

000000G

2%:

020102

022626

#30,-(5P)
#27 ,R2
R1

000004

104452

000006 000207

: Routine Size:

& words,

LSAU::

Routine Base:

: Maximum stack depth per invocation:

2 words

: COUNT

R1.RO

: COUNT,+

2463

INC

s COUNT

2462

ASL
CLR

RO
TALLY(RO)

; COUNT,ENDIDX

CMP

R1,R2

CMP

(SP)+,(SP)+

2434

JSR

PC,LAU

2463

RTS

PC
RTS
)
000056 000207
: Routine Size: 24 words,
Routine Base: $CODES + 4150
: Maximum stack depth per invocation: 6 words
.SBTTL LSAU ADD UNIT SECTION

000000 004737 004150°

: « ENDIDX

MOV

BLE

003771

LAU ADD UNIT SECTION

R1,$SAVE?2
DUR(RO)
RO,=(SP)

MOV

004737

! ZERO OUT DROP UNIT REASON
! ZERO OUT
ADDED
!
UNIT'S
'
STATISTICS
!

JSR
CLRB
MOV

000012 012746 000030

000016

Pa?e 4
VAX=11 Bliss=16 V3=555
(11
RCD2.SRC;5
_DUA2:[DOUCETTE.CZRCDICZ

THE ADD=-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES TO BE
EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK TO THE TEST
CYCLE. THIS CODE WILL BE EXECUTED AFTER THE OPERATOR COMMAND

!
!
!

2449

2450
2451
2452
2453

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAQ RC2S5 DISK EXERCISER
ADD UNIT SECTION

SEQ 0131

TRAP

$CODES + 4230

&~
o
oo

@
s
®e

wwn
& =d

~Go

—O

SEQ 0132

Pa?e
VAX=11 Bliss=16 V3=535
(12
.SRC:5
_DUAZ:[DOUCETTE.CZRCDJCZRCDZ

YSBTTL *NON-EXISTENT MEMORY TRAP HANDLER'

no
&~
~
o

®e

[FE YRR TR TR TN PN

11=Jul=1
8-Jul-1

CZRCDAO RC25 DISK EXERCISER
NON-EXISTENT MEMORY TRAP HANDLER

CZRCD2
v01.0

00
©c0C0
W

2479

000000

012737

000006

000002

:
'
:
!

THIS TRAP HANDLER IS VECTORED FROM LOCATION 4 FOR ALL UNIBUS TIMEOUT
ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON-EXISTENT
MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET A FLAG FOR THE RC11
REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER.

BGNSRV (NEX_TRAP);

! NEX TRAP OCCURRED

NEX = TRUE;
ENDSRV;

000001

0000006

JSBTTL

NEX.TRAP NON-EXISTENT MEMORY TRAP HANDLER

mov
RT1]

#1 NEX

NEX.TRAP::

Routine Base: $SCODES + 4240
4 words,
0 words
invocation:
per
depth
stack
: Maximum
: Routine Size:

M
:

2477
2475

0 11

CZRCDAO RC2S5 DISK EXERCISER
CLOCK INTERRUPT SERVICE ROUTINE

CZRCD2
v01.0
:

2480

;

2486

:
:
:

2483
2484
2485

‘e

THE CLOCK INTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK HERTZ RATE
(50 OR 60 TIMES PER SECOND). ITS PURPOSE IS TO MAINTAIN THE ELAPSED
TIME OF THE EXERCISER AND, IF ONE SECOND HAS ELAPSED, TO FLAG THE

!
!
!

T FLAG TO ''TRUE''.
EVENT BY SETTING

:
:
:
:

2490
2491

:
:
:

2493
2494
2495

THEN
BFGIN

:
:
:

2499
2500
2501

THLN

:
:
:

2489

2492

2496
2497
2498

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

2502
2503
2504
2505
2506
2507
2508
2509
2510
2511
2512
2513
2514

2517

;
:

H
:

2515
2516

2518
Sg;g

2521

BGNSRV (CLK_INT_SERV);
TICKS = .TICKS + 1;

IF .TICKS EQLU .CLK_HERTZ
T{CKS= 0;
SLCONDS = .SECONDS + 1;
It .SECONDS EQLU 60
sEGIN

= O;
SECONDS
MINUTES = .MINUTES + 1;
IF .MINUTES EQLU 60
THEN
BEGIN

MINUTES = 0;

HOURS = .HOURS + 1;

END;
END;
END;

IfF .TICKS EQLU O
THEN

T_FLAG = TRUE;

ENDSRV;

! IF ONE SECOND HAS ELAPSED

| THEN
i FLAG THE EVENT

SEQ 0133

ge
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC; 5 (13

XSBTTL °*CLOCK INTERRUPT SERVICE ROUTINE'

2487
2488

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

E 11

11-Jul-1983 08:42:51
8-Jul=-1983 17:46:%6

CZRCDAO RC25 DISK EXERCISER
CLOCK INTERRUPT SERVICE ROUTINE

CZRCD2
v01.0

.SBTTL

CLK.INT.?S@V::

CLK.INT.SERV CLOCK INTERRUPT SERVICE ROUTINE

000000

005237

0000006

000004
000012
000014
000020
000024
000032
000034
000040
000044
000052
000054
000060
000064
000070
000072
000100

023737
001024
005037
005237
023727
001014
005037
005237
023727
001004
005037
005237
005737
001003

000000G 0000006

gng

0000006
0000006
0000006 000074

(LR
INC
gzg

0000006
0000006
000000G 000074

CLR
INC
gzg

0000006
0000006
0000006

MINUTES

1$:

CLR
INC
;gg

2s:

MovBe
RT]

#1,T.FLAG

112737
000002

000001

000000G

SEQ 0134

?e
VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD 2.SRC;5 (13

TICKS

{iCKS.CLK.HERTZ

TICKS

;

SECONDS

?gCONDS.l74
SECONDS

MINUTES

MINUTES,#74
1$

HOURS
T1CKS

$CODES + 4250
Routine Base:
: Routine Size:
33 words.,
O words
: Maximum stack depth per invocation:

2491
2492

2496
2497
2498
2502
2503
2504

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAO RCZS DISK EXERCISER
GLOBAL ROUTINES

NNV WALV

WIN W W NN RN NI NNV PO
NN
= OO0 NS
N

NOAIRINNIN
NN NN

CZRCD?
v01.0

SEQ 0135

Pa?e
VAX=11 Bliss=16 V3=-555
(14
2.SRC;5
RCDICZRCD
UCETTE.CZ
_DUA2:[DO

XSBYTL 'GLOBAL ROUTINES'

GLOBAL ROUTINE COPY_BLK (SRC, DST, NWRDS) : NOVALUE =
(S

THE PURPOSE OF THIS ROUTINE IS TO TRANSFER A BLOCK OF MEMORY OF LENGTH

*NWRDS'' FROM °*'SRC'' TO ‘DST''.

! FOR EACH WORD IN BLOCK

INCR I FROM 1 TO .NWRDS DO
BEGIN

! TRANSFER WORD FROM SOURCE TO DESTINATION
! ADVANCE DESTINATION ADDRESS

DST = ,.SRC:
DST = .DST + 2;
SRC =

.SRC + 2;

' ADVANCE SOURCE ADDRESS

END;

000000

005000

000006 000004
000002 000004
000002 000006
000002
000036

000207

.SBTTL

COPY.BLK GLOBAL ROUTINES

gkR

2531

MOV
ADD
ADD

?6(SP) ,a4(SP)
#2,4(SP)
#2,6(SP)

; SRC,DST
: *,DST
: *,SRC

2534
2535
2536

CMP

RO,2(SP)

: 1,NWRDS

RTS

COPY.BLK::

1%:
28:

INC

BLE

16 words,
Routine Base: SCODES + 4352
; Routine Size:
: Maximum stack depth per invocation: 0 words

0 1

;

531

25264

W
raguiy

8-Jul-1

GLOBAL ROUTINES

CZRCD2
v01.0

11=Jul=1

—_
NGO

CZRCDAO RC25 DISK EXERCISER

0O
o0 Qo
bwetve]

VAX=11 Bliss=16 V3-55
_DUAZ:{DOUCETTE.CZRCD

s€a 0136

3czRep2.5RC:S (193

[

FOR THE GIVEN CONTROLLER NUMBER.
INPUTS:

CTLR - CONTROLLER NUMBER

IMPLICIT OUTPUTS:

CCTLR = CURRENT CONTROLLER NUMBER
CST_ADDR ~ ADDRESS OF CONTROLLER'S STATUS TABLE

DCT_ADDR - ADDRESS OF CONTROLLER' $ ORIVER TABLE
«(25_ADDR - ADDRESS OF CONTROLLER S IP REGISTER
OMC_ADDR = ADDRESS OF CONTROLLER'S DM_COMM AREA

mimimiI @t

momtm I @imimimi@msmees
=ow

THIS ROUTINE SETS UP THE COMMONLY~USED CONTROLLER-RELATED DATA ITEMS

OCL_X1,2 = STARTING/ENDING INDECES OF CONTROLLER'S OUTSTANDING
COMMAND AREA (OUTC_LIST, OUTC_TIMR)

RPS_X1,2 = STARTING/ENDING INDECES OF CONTROLCER'S RETURN
PACKET SAVE AREA (RP_SAVE)

Velo . RN To SV, P VTN P

NN
NN
NN

ViV
I
Vi

GLOBAL ROUTINE SET_CPAR (CTLR) : NOVALUE =

BEGIN

! SET CURRENT CONTROLLER NUMBER
i CALCULATE ADDRESS OF € ONTROLLER'S (ST
DCT_ADD R = DCT ¢+ (.CTLR * DCT_LEN + 2); ! CALCULATE ADDRESS OF ( ONTROLLER®S DCY
i GET CONTROLLER'S DEVIC E ADDRESS
RC2S ADDR = .CST_ADDR CIP_ADDR];
OM_COMM + (.CTCR * DMC_LEN ¢ 2); ! CALCULATE ADDRESS of CONTROLLER'S DM_COMM AREA
' STARTING INDEX OF CTLR S OUTC AREA
CTLR * QUTC _CNT;

CCTLR = CTLR:
CST_ADD R = CST + (.CTLR * CST_LEN * 2);

~OCL_X1 + OUTC_CNT = 1;
.CTLR « RPS_LER;
.RPS_X1 + RPS_ LEN - 1;

.S8T
SET.CPAR::

010146

00066

000072
000076
000102

016601
010137
010146
012746
004737
062700
010037
010116
012746
004737
062700
010037
017737
010116
012746
004737
062700
010037

i ENDING INDEX OF CTLR'S OUTC AREA
i STARTING INDEX OF CTLR' S RETPKT SAVE AREA
! ENDING INDEX OF CTLR'S RETPKT SAVE AREA

000004
0000006

000016
0000006

0000006
0000006
000022
0000006
0000006
0000006
0000006 0000006

000064
0000006
0000006
0000006

MOV
MOV
MOV
MOV
MOV

JSR
ADD
Mov
Mov
MOov
JSR
ADD
MOV
Mov
MOV
MoV

JSR

ADD
MOV

SET.CPAR GLOBAL ROUTINES
R1,=(SP)
4(SP) ,R1
R1,CCTLR
R1,-(SP)
#16,-(SP)
PC,BLSMUL

1 CTLR,®

2539
25¢.

2563

2564
PC,BLSMUL

#0CT, RO

RO,.DCT.ADDR

acsT. ADDR RC25.ADDR
R1,(SP

#6h, -(SP)
PC,BLSMUL

#DM. COMM, RO
RO, DMC.ADDR

2565
2566

SEQ 0137
Pa?e
VAX=11 Bliss=16 v3-55 S
(15
C;S5
D2.SR
_DUA2:[DOUCETTE .CZRCD JCZRC

CZRCOAO RC25 DISK EXERCISER
GLOBAL ROUTINES
010100

0000006
0000006

000017

012601
000207

0000006

0000006
000000G
000007 0000006
000010

2567

MoV
ASL
ASL
ASL
ASL
MOV
MOV
ADD
MOV
ASL
ASL
ASL

MOV
MoV
ADD
ADD
MOV
RTS

oCL.X1,*

2568
2569

RO.RPS.X2
#7 .RPS.X2

#10,5P

(SP3+,R1

Routine Base: SCODES + 4412
: Routine Size:
62 words,
6 words
: Maximum stack depth per 1nvocation:

RPS.X1,*

2570
2560
2539

WN =200V
~NOWVIS
W

INRPUTS:

OFFSET = WORD OFFSET INTO CURRENT CONTROLLER'S (ST WHICH
DESCRIBES A UNIT

IMPLICIT INPUTS:

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

VTN NIV

0000000000000
NN NNNNN

VIV

aSLS ST NT ST N1 ST ST NT ST N N VTN

LRL LN ¥
DRR TR
R T PR PR TR
PR

THIS ROUTINE SETS UP THE COMMONLY-USED UNIT-RELATED DATA ITEMS FOR
THE CURRENT CONTROLLER AND GIVEN CST OFFSET.

IMPLICIT OUTPUTS:

CUOFF = CURRENT UNIT'S CST OFFSET
CPLAT = CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER)
LSLUN = CURRENT UNIT NUMBER (DS UNIT NUMBER)
T_ADDR ~ ADDRESS OF CURRENT UNIT'S STATISTICS 5SLOCK (TALLY )

2587

X
TE
E

GLOBAL ROUTINE SET_UPAR (OFFSET) : NOVALUE =

GLOBAL ROUTINES

BEGIN

ERE

CUOFF = .OFFSET;

TR IR

CPLAT = .CST_ADDR C.OFFSET, P_ADDR]:
LSLUN = .CST_ADDR [.OFFSET, PUNIT];

T_ADDR = TALLY + (.LSLUN = TACLY_LEN * 2);

END;

000000

010146

000002
000010
000014
000016
000022

016637
016600
006300
063700
111037

.SBTTL

000004
000004

MOV
MOV
ASL

SET.UPAR GLOBAL ROUTINES

,»
: CUOFF

: OFFSET,w

2573
2595
2596

(RO) ,R1
R1

2597

R1,=-(SP)

: LSLUN,*

2598

:
:

2593
2573

R1,-(SP)

4(SP) ,CUOFF
4(SP) ,RO
RO

ADD
MOVB
CLRB

177740
€C00006

8IC
MOV

#177740,R1
R1,LSLUN

MOV

#60,-(SP)

CMP
MOV

(SP)+, (SP)+
(SP)+,R1

0000006
0000006
0000006

000207

000000G

SET.UPAR::
MOV

0000006
0000006
0000016

000060

000074

:42:51
:466:34

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

SEQ 0138
Pa?e
V3-555
VAX-11 Bliss=16
(16
SRC;5
_DUA2:[DOUCETTE.CZRCD JCZRCD2.

MOV
SWAB
MOV

JSR
ADD
MOV
RTS

CST.ADDR.RO
(RO) ,CPLAT
CPLAT+1

PC,BLSMUL
#TALLY RO
RO,T.ADDR
PC

Routine Base: $CODES + 4606
31 words,
: Maximum stack depth per invocation: & words

: Routine Size:

J 1"

11=Jul=1983 08:42:51

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

8-Jul=-1983 17:46:3¢

GLOBAL ROUTINES

VAX=11 Bliss=16 V3-555

PRTN FN PR PR LR LR TN ¥

THIS ROUTINE SEARCHES THE MSCP ENVELOPE POOL ALLOCATION TABLE (ENV_USE)

FOR A FREE MSCP ENVELOPE TO ALLOCATE TO THE GIVEN CONTROLLER. IF ORE IS

;

T0 THE CALLER. OTHERWISE, A =1 IS RETURNED INDICATING NONE AVAILABLE.

FOUND, THE ENVELOPE IS ZEROED OUT, AND THE ENVELOPE INDEX IS RETURNED

INPUTS:

A R D D O 2 I TETETE

;

CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION

BEGIN
LOCAL

INDEX : WORD:

INDEX = -1;

' FOR EACH ENTRY IN ALLOCATION TABLE

AT EYE YR IR TR PR TR

1~cnegg?zr FROM 0 TO (ENV_CNT = 1) DO

' IF ENTRY INDICATES FREE ENVELOPE

IF .ENV_USE [.COUNT] LSS 0

THEN

i THEN

BEGIN

T E M ETR

ENV_USE [.COUNT) = .CTLR:
INDEX = .COUNT;
INCR J FROM 2 TO (ENV_LEN - 1) DO

N E I

MSCP_ENV [.COUNT,”.J, ALLBIT] = 0;
EXITLOOP:

| ALLOCATE ENVELOPE TO CONTROLLER
! 2ERO OUT ENVELOPE
! DONE

END;

RETURN . INDEX;

END;

004137

0000006

012704
005003
105763
002026
116663

177777

.SBTTL
GET.ENV::
JSR

MOV

1$:

0000006
000014

MOV
MOV

MOV

0000006

000052

060201

égge
MOVB

0000006

000042

000002

CLR

R1,$SAVE4

: COUNT

ggv.USE(RS)
14(SP) ,ENV.USE (R3)
R3.R%
R3 =(SP)

442 ,~(SP)

JSR

PC.BLSMUL

MOV

#2.R2

CMP

28:

GET.ENV GLOBAL ROUTINES

#-1,Ré%

MOV
ADD

(SP)+, (SP)+

RO.R1
R2.R1

Pa ?e

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (17

GLOBAL ROUTINE GET_ENV (CTLR) =

SEQ 0139

; «, INDEX

: «(COUNT)
: CTLR,*(COUNT)
: COUNT, INDEX
* COUNT.®

;o)

:
HENA

K 11

11-Jul=~1983 08:42: 51
8-Jul-1983 17:46: 34

CZRCDAO RC2S DISK EXERCISER

CZRCD2
v01.0

GLOBAL ROUTINES

006301
005061
005202
020227
003767
000404
005203
020327
003743
010400
000207

ASL
CLR
INC

0000006
000041

000137

3s:
48

CMP
BLE
B8R
INC
CMP
BLE
MoV

RTS

VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD

SEa 0140

2.5R¢:5 (179

MSCP.ENV(R1)
R2
R2,#41
23
43
R3
R3.#137
1$

R4 ,RO

SCODES + 4704
Routine Base:
: Routine Size:
36 words,
8 words
: Maximum stack depth per invocation:

J
J,*

: COUNT

s COUNT,»

s INDEX,»

2629
2625
2620
2613
2601

GLOBAL ROUTINE PUT_ENV (INDEX) : NOVALUE =

IR T

THE MSCP ENVELOPE DESIGNATED BY "'INDEX'' IS RETURNED TO THE POOL BY THIS

ROUTINE.

n
o
&H

R T
R
R IR

000004
000012

8-Jul=-1983 17:46:34

GLOBAL ROUTINES

BEGIN

ENV_USE [.INDEX] = =1;

000000

11=Jul=1983 08:42:51

CZRCDAD RC2S DISK EXERCISER

CZRCD2
v01.0

SEQ 0141
Pa?e
(18
.SRC;S5
_DUA2:[DOUCETTE.C2RCD JCZRCD2

VAX=11 Bliss=16 V3-55 5

END;

016600
112760
000207

000002

000377

0000006

.SBTTL
PUT.ENV::
Mov

MOVB
RTS

PUT.ENV GLOBAL ROUTINES

2(SP) .RO

s INDEX,*

2649

2640

#377 ,ENV.USE(RO)

Routine Base: $CODES + 5014
6 words,
: Maximum stack depth per invocation: 0 words
: Routine Size:

11-Jul=1983 08:42:51
8-Jul-1983 17:46:34

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

M1
v01.0

SEQ 0142

Pa?e 57
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (19

GLOBAL ROUTINE PUTA_ENV (CTLR) : NOVALUE =
‘e

THIS ROUTINE DEALLOCATES ALL MSCP ENVELOPES WHICH HAVE BEEN ALLOCATED

INPUTS:

;

TO A PARTICULAR CONTROLLER.

;

CTLR - CONTROLLER NUMBER

BEGIN

! FOR EACH ENTRY IN ALLOCATION TABLE

1~ca8gggzr FROM O TO (ENV_CNT - 1) DO

! %FEENVELOPE IS ALLOCATED TO GIVEN CONTROLLER

%LE&ENV_USE C.COUNT] EQLU .CTLR

i DEALLOCATE IT

ENV_USE [.COUNT] = END;

! ROUTINE PUTA_ENV

END;

000000

010146

000002
000004
000010
000014
000016
000024
000026
000032
000034
000036

005000
116001
020166
001003
112760

005200
020027
003764

012601
000207

.SBTTL

PUTA.ENV GLOBAL ROUTINES

MOV

R1,-(SP)

;

gng

glL4(SP)

: «,CTLR

MOVB

#377.ENV.USE(RO)

; «,%(COUNT)

CMP

RO,#137

: COUNT,*

(SP)+,R1

PUTA.ENV::

0000006
000004

000377 0000006
000137

1$:
2s:

CLR
MOVB
INC

BLE

MOV

RTS

RO
ENV.USE(RO),R1
RO

16 words,
Rcutine Base: $CODES + 5030
; Routine Size:
2 words
invocation:
; Maximum stack depth per

: COUNT
. «(COUNT),*
: COUNT

2652

2664
2667
2669
2664

2652

N 11

2674

Page 58
VAX=-11 Bliss=16 V3=555
_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (20

GLOBAL ROUTINE GET_RETPKT (CTLR) =

2677

2678
2681

THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION TABLE (RP_USE)

FOUND, THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED TO
THE CALLER. OTHERWISE, A =1 IS RETURNED INDICATING NONE AVAILABLE.

FOR A FREE RETURN PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS

i
i

INPUTS:

CTLR = CONTROLLER NUMBER REQUESTING ALLOCATION

BEGIN

2688
2689

LOCAL
INDEX : WORD;

2691

INDEX = =1;

! ASSUME NONE AVAILABLE

INCR COUNT FROM O TO (RP_CNT = 1) DO

! FOR EACH ENTRY IN TABLE

o
O

2686

2694

BEGIN

! IF FREE RETPKT IS FOUND

IF .RP_USE [.COUNT] LSS 0

2696

THEN

2697
2698

BEGIN

2700

RP_USE [.COUNT] = .(CTLR;

¢ ALLOCATE RETURN PACKET TO CONTROLLER

2702

INCk J FROM 0 TO (RP_LEN - 1) DO

! ZERO OUT RETPKT

2703
2704

RETPKT L[.COUNT, .J, ALLBIT] = 0;
EXITLOOP;

2706

END;

2708

END;

2710

RETURN .INDEX;

2712

END;

! DONE

INDEX = .COUNT;

2701

I EYR

YA TR PRTR TR TR XN X A4 [T E R IR I A R I E T R IR I EYETETE TR IR R

11-Jul~1983 08:42:51
8-Jul=~1983 17:46:34

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0

SEQ 0143

000000

000004
000010
000012
000016

004137

012704
005003
105763
002025

.SBTTL
GET.RETPKT::
JSR

0000006

177777

1%:

0000006

000025 116663 000014
000026 010304
000030 010346

' RETURN PACKET INDEX (OR =1) TO CALLER

000032 012746 000030

000036
000042

004737
022626

000044 005002
000046 010001
000050

060201

#-1,R4
R3
RP.USE (R3)
3$

MOV

#30,-(SP)

CLR
MOV

R2
RO,R1

JSR
CMP

0000006

2%:

R1,$SAVEL

MOV
CLR
TSTB
BGE

MOVB
MOV
MOV

000000G

GET.RETPKT GLOBAL ROUTINES

ADD

14(SP),RP.USE(R3)
R3,R4
R3 =(SP)
PC.BLSMUL
(SP)+,(SP)+
R2.R1

*, INDEX
COUNT
«(COUNT)

2674

269
2693

2696

CTLR, *(COUNT)
* COUNT, INDEX
S COUNT,®

2700
2701
2703

:J
;

2702
2703

SEQ 0144

Pa?e
VAX=11 Bliss=16 V3=555
_DUA2: [DOUCETTE.CZRCDICZRCD 2.SRC;5 (20

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
0

006301
005061
005202
020227
003767

000027

000037
000207

R1
RETPKT(R1)
R2
R2.427
28
48
R3
R3,437

0000006G

3s:
A ¥

RTS

R&RO

$CODES + 5070
Routine Base:
35 words,
: Routine Size:
8 words
: Maximum stack depth per invocation:

HEN |
s Jo*

COUNT

: COUNT,w

s INDEX,*

2702

2698
2693
2686
2674

c 1

OOV~
W

NN NNNNY
M) b b d b b b b

LSS T,NT N1,N1,¥1,C1,¥)

Y
N
N TI
PR
[ TEYEEE TR TR PR FI

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAO RC2S5 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0

SEQ 0145

Pa?e 60
VAX=11 Bliss=16 V3-555
(21
RC;5
DICZRCD2.S
_DUA2:[DOUCETTE.CZRC

GLOBAL ROUTINE PUT_RETPKT (INDEX) : NOVALUE =
'y

THE RETURN PACKET DESIGNATED BY ‘'INDEX'' IS RETURNED TO THE POOL BY THIS

ROUTINE.

BEGIN

RP_USE [.INDEX] = =1;
END;

000000

016600

000002

000004
000012

112760
000207

000377

.SBTTL
PUT.RETPKT::

000000G

: Routine Size:
6 words,
Routine Base:
0 words
; Maximum stack depth per invocation:

MOV

MOVB

RTS

PUT.RETPKT GLOBAL ROUTINES

2(SP) ,RO

; INDEX,*

2722

2713

#377 ,RP.USE (RO)

$CODES + 5176

D 12

[, 8]
~J
N
~

"INE GET_IO_BUFF (ADDR) : NOVALUE =

GLOBAL R
‘e

11-Jul=1983 08:42:51
8-Jul-1983 17:46:34

LS&E ROUTINE HANDLES THE ALLOCATION OF AN [/0 BUFFER FROM THE BUFFER

;

[]

i
;

INPUTS:

IMPLICIT INPUTS:

i
i
i

OUTPUTS:

ADDR - ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR
CCTLR - CURRENT CONTROLLER NUMBER

TR
IRIEAIEIEIE

TNFE
TR PRPN
PRTR
DRP

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

THE ALLOCATED BUFFER'S DESCRIPTOR IS LOADED INTO THE TWO
WORDS AT “‘ADDR'* AND ''ADDR + 2'‘. OTHERWISE, A ‘*-1'' IS RETURNED
AT “ADDR'* IF NO BUFFERS ARE AVAILABLE.

;

! ASSUME FAILURE

]

BEGIN
LADDR = =1;

PR PR TR YR PR TR D

! IF BUFFER IS FREE

IF .BUFF_OWN C.COUNT] LSS 0

N
~

THEN

i THEN

BEGIN

BUFF OWN [.COUNT] = .CCTLR;
.ADDR = .BUFF_DESC [.COUNT, BD_LOJ;

i FOR EACH ENTRY IN BUFFER TABLE

INCRBEg?zT FROM O TO (.NUM_BUFF - 1) DO

ALLOCATE BUFFER TO CONTROLLER
: RETURN BUFFER DESCRIPTOR

(.ADDR + 2) =".BUFF_DESC [.COUNT, BD_HIJ;
' DONE
EXITLOOP;

R IR E
TR IR

SEQ@ 0146

Pa?e
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (22

END;

' BUFFER TABLE LOOP

END;
2762

END;

000000

004137

0000006

000004
000010
000014

016601
012711
005002

000010

JSR
MOV

R1,$SAVE?2
10(SP) ,R1

:
. ADDR,*

2725
2745

gkn

: COUNT

2746

gg;e

ggrr.oun<n2)

: *(COUNT)

2749

MOVB

CCTLR,BUFF.OWN(R2)

GET.10.BUFF::

MOV

177777

1$:

0000006

0000006 0000006

#-1, (R1)

MOV

R2,R0

0000006

MOV

BUFF .DESC(RO), (R1)

0000006

RTS
INC
CMP

PC
R2
R2,NUM.BUFF

ASL
ASL

MOV

0000026 000002

000066 . 000207

.SBTTL

! ROUTINE GET_IO_BUFF
GET.i0.BUFF GLOBAL RODTIRES

28:

3$:

BLT

RTS

RO
RO

BUFF .DESC+2(RO),2(R1)
1$

Routine Base: $CODES + 5212
28 words,
& words
invocation:
per
depth
stack
: Maximum
: Routine Size:

; «,«(COUNT)

2753

: COUNT,+

2754

2755

;

2725

;
: COUNT
: COUNT,*

2751
2746

E 12

11=-Jul=1983 08:42:51
8=-Jul=1983 17:46:34

CZRCDAQ RCZS DISK EXERCISER
GLOBAL ROUTINES

C2RCD2
v01.0
;

g;gz

GLOBAL ROUTINE PUT_IO_BUFF (ADDR) : NOVALUE =

2765

:
:
:

2767
2768
2769

!
!
!

:
:
:
N

2771
2’72
2773
S;;g

BEGIN

2776

INCR COUNT FROM O TO (.NUM_BUFF - 1) DO

:
H
:

2779
2780
2781

.
H

2784
2785

H
:

:
:
H

:
000000

2766

2770

g;;g

TO THE BUFFER POOL.
INPUTS:

!
!~

ADDR =~ ADDRESS OF THE 2-WORD BUFFER DESCRIPTOR TO BE
DEALLOCATED

' IF THIS IS THE BUFFER'S ENTRY
IfF ((.BUFF_DESC C.COUNT, BD _LO) EQLA ..ADDR) AND
(.BUFF DESC [.COUNT, BD HIJ EQLU .C(.ADDR ¢+ 2)))
' THEN
THEN
BEGIN

END;

! BUFFER TABLE SEARCH LOOP

END;

! ROUTINE PUT_IO0_BUFF

END;
SBTTL
PUT.10.BUFF:

0000006

JSR

CLR

000004 005002

000422

000012
000014

006301
006301

0000246

001012

1%:

000010 010201
000016

026176

0000006 000010

000032 026160 000002G 000002
001004

000054

020237

000062

002753

2%:

0000006

3s:

000207

: Routine Size:

26 words,

Routine Eaze:

& words

R1,$SAVE?

R2’
3

2763

2779

: COUNT

2776

R2,.R1

; COUNT,s

CMP

BUFF.DESC(R1),a10(SP)

; +,ADDR

MoV

10(SP) ,RO

: ADDR,*

2780

: «,«(COUNT)
:
; COUNT

2784
2782
2776

2763

ASL
ASL

R1
R1

CMP

BUFF.DESC+2(R1),2(R0)

MOVB
RTS
INC

#377.,8UFF .OWN(R2)
PC
R2

BLT

CMP

RTS

: Maximum stack depth per invocation:

PUT.I0.BUFF GLOBAL ROUTINES

MoV

BNE

000042 112762 000377 0000006
000050 000207
000052 005202
000060

B8R

BNE

000026 016600 000010
000040

! DEALLOCATE BUFFER
! DONE

BUFF _OWN [.COUNT] = -1;
ExITCOOP;

g;gg

000006

' FOR EACH ENTRY IN BUFFER TABLE

BEGIN

2786
2787
2788

004137

THIS ROUTINE HANDLES THE DEALLOCATION OF AN 1/0 BUFFER, RETURNING 17V

2782
2783

2791

SEQ 0147

Pa?e
VAX=11 Bliss=16 V3=555
_DUAZ:TDOUCETTE. CZRCDICZRCN2.SRC;S (23

R2 ,NUM.BUFF

$CODES + 5302

; COUNT,»

F 12

XN TN Y

Pa?e

_DUA2:CDOUCETTE.CZRCDICZRCD2.SRC;S (24

THIS ROUTINE DEALLOCATES ALL I/0 BUFFERS WHICH HAVE BEEN ALLOCATED TO

THE CURRENT CONTROLLER (CCTLR).

PN TN TN TR

5
BEGIN

! %ZELHIS BUFFER IS ALLOCATED TO THE CURRENT CONTROLLER

1rE.BUFF_OWN [.COUNT] EQLU .CCTLR

N
oo
o

' FOR EACH ENTRY IN BUFFER TABLE

'NCR3§2?:T FROM 0 TO (.NUM_BUFF - 1) DO

i DEALLOCATE IT

BUFF_OWN [.COUNT]=

! BUFFER TABLE ENTRY LOOP

END;

! ROUTINE PUTA_BUFF

END;
.SBTTL

PU I'A.BUF:‘(:J:

010146

005000
000411
116001

0000006

0000006
012601
000207

0000006

000377
000036
000040

VAX-11 Bliss=16 Vv3-555

GLOBAL ROUTINE PUTA_BUFF : NOVALUE =

T
ETE YR I

000002
000004
000006

8-Jul=1983 17:46:34¢

GLOBAL POUTINES

YR PR IE IR

000000

11-Jul=1983 08:42:51

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

SEQ 0148

0000006

i ¥
3s:

PUTA.BUFF GLOBAL ROUTINES
R1,=(SP)

2792
2801

gkR

; COUNT

Movse

BUFF .OWN(RD) ,R1

,»
;s *(COUNT)

2804

Movs

#377 ,8BUFF .0WUN(RO)

: +,«(COUNT)

2806
2801

BLT
MOV

1%
(SP)+ R1

2792

gn:

INC
CMP

RTS

3;.CCTLR

RO
RO.NUM . BUFF
PC

17 words,
Routine Base: $CODES + 5366
: Routine Size:
2 words
; Maximum stack depth pe~ invocation:

: COUNT
: COUNT,»

G 12

o
D e
e
o
b
b ond

OO NONNE
NN =

PNININDRNLININININ)
(o -To -Jo To To To Jo To)

VAX=11 Bliss=16 V3=555

Pa?e

_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC;S5 (25

GLOBAL ROUTINE OUT_I0DQ =
e

THIS ROUTINE RETURNS TO THE CALLER THE NEXT RETPKT INDEX TO BE
PROCESSED FROM THE 1/0 DONE QUEUE (10DQ). THE ''OUT’* POINTER TO THE

i
i
i

QUEUE IS ALSO UPDATED.

INPUTS:

;

OUTPUTS:

;

THE INDEX OF THE NEXT RETPKT TO BE PROCESSED.

N
»

N
oo

e 8o 8o ®oeBeB®s8s®e B¢ SsB00eBe e, 000000 :80000s0e%s0c0s0,

8-Jul=1983 17:46:34

GLOBAL ROUTINES

BEGIN

LOC AL

INDEX : WORD;

GET NEXT RETPKT INDEX
ADVANCE °‘'OUT'’ POINTER
%;ESEYOND END OF QUEUE

INDEX = .10DQ [.I0DQ_OUTI;
J0DQ_OUT = .I0DQ OUT + 1;

{ZEQY°°°-°“T GEQD I0DQ_LEN

SET POINTER TO BEGINNING OF QUEUE

10p@_ouT = 0;

RETURN .INDEX;

RETURN INDEX TO CALLER

END;

.SBTTL
ourt.100Q::
Mov

0000006

023727
103402
005037
000207

; Routine Size:

O0UT.I0DQ GLOBAL ROUTINES
10DQ.0UT RO

2830

100Q.0UT

2831
2832

2834
281

MUVB
8IC

10DQ(RO) ,RO
#177400,R0

000000G 000040

grg

%200.0UT.#40

0000006

CLR

0000006
177400
000020
000026
000030
000034

11=Jul=1983 08:42:51

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

SEQ 0149

0000006

15 words,

: Maximum stack depth per

INC

1%:

RTS

10p@.0UT

Routine Base: $CODES ¢+ 5430
invocation: O words

: «,INDEX
. «,INDEX
:
M

:
:
:
:
:
:

2838
2839
2840
2841
2842
2843

GLOBAL ROUTINE IN_IODQ (INDEX) ¢ NOVALUE =

:
:
:
:
:
:
:
:
:
:
:
;
:
:
:
:

2845
2846
2847
2848
2849
2850
2851
2852
2853
2854
2855
2856
2857
2858
2859
2860

BEGIN

2844

000000

010146

000002
000006
000010
000012
000016
000020
000022
00026
000032
000034
000042
000046
54

013701
010100
005200
020037
001421
010100
162700
020037
001413
116661
005237
023727
103402

000064

W
& =b

VAX-11 Bliss=16 Vv3-555

SEQ 0150

_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC;S (26

THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE 1/0 DONE QUEUE, AND

UPDATES THE 10DQ_IN POINTER.

IF ((( I0DQ_IN + 1) NEQU .10DQ_OUT) AND
THEN

.I0DQ_IN - (I0DQ LEQ - 17 NEQU .10DQ OUT))

! IF 1/0 DONE QUEUE IS NOT FULL
THEN

BEGIN

LOAD INDEX INTO QUEUE
ADVANCE ‘‘IN'' POINTER

= ,INDEX;
10pQ [.I0DQ IN]

IODO IN= . JODQIN + 1;
TODQ IN GEQD 10DQ_LEN
HEN

%;EBEVOND END OF QUEUE

CYCLE BACK TO BEGINNING OF QUEUE

10DQ_IN = 0;
'

END;

IF J0DQ IS NOT FULL

END;
.SBTTL
IN.10DQ::
Mov
MOV
MOV

0000006

INC
CMP
BEQ

0000006

000004 0000006
0000006
0000006 000040

000000G

27 words,

IN.10DQ GLOBAL ROUTINES
2838

R1,-(SP)

2847

10DQ, IN,R1
21.R0
0

RO 10DQ.0UT

MOV

000037
000000G

1$:

000207

; Routine Size:

GLOBAL ROUTINES

~N®

11=Jul=1
8-Jul-1

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

0O
Q000
W

H 12

sus
CMP
8EQ
MOvVB
INC
CMP
8L0O
CLR
MOV
RTS

RO, foDa.ouT
18

4(SP),100Q(R1)
10DQ. IN
{gbO.:N.léO
100Q. IN
(SP)+,R1

Routine Base: $CODES + 5466
2 words

: Maximum stack depth per invocation:

INDEX,*

112

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAO RC2S DISK EXERCISER

CZRCD2
v01.0

GLOBAL ROUTINES

gggg

GLOBAL ROUTINE DROP_CTLR (CTLR, REASON) : NOVALUE =

2863

:
:
:
:
:
.
:

2867
2868
2869
2870
2871
2872
%g;z

!
!~

BEGIN

2875

INCR OFFSET FROM (0 + OF_UN) TO (3 + OF_UN) DO

2878

:
:
.

H
:

.
M
.

:
H
:
:
:
:

000000

000004

2864
2865
2866

%g;g

THIS ROUTINE DROPS ALL UNITS ASSOCIATED WITH THE CONTROLLER DESIGNATED
BY ‘'CTLR'’. THE REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR
VECTOR FOR EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THE DROP UNIT

!
!
!

SECTION.

LOCAL
UNIT;
BEGIN

012746
004737
010003

000030

060200

END;

.SBTTL
DROP.CTLR::

000000G

006300
032760
001412

000050
000052

000301
042701

000044

000056
000064

000066

016001

000076

000000G

000000G
177740

116661 000016
010100
020227
003753

0000006

MOV
JSR
MoV

#7,-(SP)
PC,BLSMUL
RO,R3

ADD

R2.R0O

MOV
MOV

2$:

000006

Routine Base:

: Maximum stack depth per invocation:

8 words

#3,R2
R3.RO

: =, 0OFFSET
:

2875
2878

CST(RO) R

;s *,UNIT

2882

16(SP) ,DUR(R1)
R1,.RC

2 REASON,*(UNIT)
: UNIT,«

2883
2884

: OFFSET

2875

H
:

2870
2861

R1
#177740,R1
51

INC

BLE

CMP
RTS

34 words,

14(SP) ,=(SP)

SWAB
8IC

CMP

2861

2878

RO
#40000,CST(RO)
2%

TRAP

: CTLR,»

ASL
8IT
BEQ

MOV8
MOV

000100 022626
000102 000207
: Routine Size:

R1,$SAVE3

MOV

104451

000070 005202
000072

040000

1$:

DROP.CTLR GLOBAL ROUTINES

JSR

MOV

000007
000000G

000022 012702 000003
000026 010300
000032
000034
000042

' GET DS UNIT NUMBER
' SET REASON FOR DROPPING UNIT
! DROP UNIT

END;

016646 000014

000010
000014
000020

' IF UNIT IS CONFIGURED

BEGIN

UNIT = .CST C.CTLR, .OFFSET, P_UNIT];
DUR [.UNIT] = .REASON;
DODU (.UNIT):

2882
2883
2884

004137

! FOR EACH UNIT IN CST

IF .CST [.CTLR, .OFFSET, P_PRES] EQLU PRESENT

THEN

2879
ggg?

2885
2886
2887
2888
2889
2890

SEQ 0151

Pa?e 67
VAX=11 Bliss=16 V3-555
(27
RCD2.SRC;5
TTE.CZRCDICZ
_DUA2:[DOUCE

R2.,#6

(SP)+,(SP)+
PC

$CODES ¢+ 5554

: OFFSET,»

: UNIT
: «, UNIT

: OFFSET,«

J 12

AR R

TR A I

YRPR

289%
2895
2896
2897
2898
sggg

2901

2902

2903

2904
2905
2906
2907

2908

!
!
!
!
!

RING AND OUTSTANDING COMMAND AREA (OUTC_LIST).
INPUTS:

CTLR - DYING CONTROLLER NUMBER

BEGIN

LOCAL

! CONTROLLER'S DCT ADDRESS
?NSEQR :ugss BLOCK [DCT_LEN, WORD] FIELD (DC_FIELDS),
! STARTING OUTC INDEX
STIDX : WORD,
! ENDING OUTC INDEX
ENDIDX : WORD;

2914
2915
2916

THIS ROUTINE IS CALLED BY DRV_TIMCHK AND FATAL _ERROR WHENEVER AN
UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETECTED. ITS PURPOSE IS TO
CLEAN UP ALL CONTROLLER-RELATED DATA IN THE ‘DRIVER'' PORTION OF THE
PROGRAM. THIS INCLUDES MARKING THE CONTROLLER OFFLINE, CLEARING THE
C-RING COUNT, AND DEALLOCATING MSCP ENVELOPES DESCRIBED IN THE RESPONSE

2910
53}5
2913

GET CONTROLLER'S DCT ADDR
MARK DCT OFFLINE AND CLEAR CRING_(NT

D_ADDR = DCT + (.CTLR « DCT_LEN « 2);
D ADDR C[WORDO] = 0;
POTA_ENV (.CTLR);
STIDR = .CTLR ~ OUTC CNT;

RELEASE ALL ENVELOPES ALLOCATED TO CONTROLLER
START OF CTLR'S OUTC_LIST AND _TIMR

ENDIDX = .STIDX + OUTC_CNT - 1;

END OF OUTC
FOR EACH OUTC ENTRY

2921
gggg

OUTC_TIMR [.COUNT] = O;
OUTCTLIST [.COUNT] = -1;

' TURN OF COMMAND TIMER
i INIT SLOT

gggg

END;

' QUTC SLOT LOOP

2917

2918
gggg

2926
004137

Pa?e 6
VAX=11 Bliss=16 V3-555
(28
2.SRC;5
RCDICZRCD
_DUA2:[DOUCETTE.CZ

GLOBAL ROUTINE DRV_CTLERR (CTLR) : NOVALUE =

SNR L L L (AR IR IEIEYEYETEIEIE

TRER NI NN

2891

000000

11-Jul=1983 08:42:51
8-Jul=1983 17:46:34

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCDZ
v01.0

SEQ 0152

INCR COUNT FROM .STIDX TO .ENDIDX DO
BEGIN

! ROUTINE DRV_CTLERR

END:
0000006

_SBTTL
DRV.CTLERR::

DRV.CTLERR GLOBAL ROUTINES

0000046 016601 000010
000010 010146
000012 012746 000022

JSR
MOV
MOV
MOV

R1.$SAVE?2
10(SP) .R1
R1,=(SP)
#22,-(SP)

;
* CTLR,*

2891
2913

000026 005010
000030 010116
000032 004737
000036 010100

CLR
MOV
JSR
MOV

(RO)
R1, (SP)
PC.PUTA.ENV
R1.RO

: D.ADDR
;
;

2914
2915
2916

RO,R2
#17,R2
RO.R1

: STIDX,ENDIDX
=, ENDIDX
: STIDX,COUNT

2917
2918

000016
000022

000040
000042
000044
000046

004737
062700

006300
006300
006300
006300

0000006
0000006
005030°

000050 010002
000052 062702 (00017
000056 010001

JSR
ADD

ASL
ASL
ASL
ASL

MOV
ADD
Mov

PC,BLIMUL
#DCT,RO

RO
RO
RO
RO

CZRCDAO RC2S DISK EXERCISER
GLOBAL ROUTINES

C2RCD2
v01.0
000060
000062

005301

000407

1$:

000064 010100
000066
000070

006300
005060

000074 112761
000102 005201
000104

000106

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

0000006

000377 000000G

2%:

020102

003766

: Routine Size:

DEC

: COUNT

MOV

R1.R0

; COUNT,+

2921

MOVB
INC

#377,0UTC.LIST(RT)
R1
1

; COUNT,ENDIDX

2922
2918

BLE

R1,R2

; *,*(COUNT)
: COUNT

(SP)+,(SP)+
PC

H
:

2905
2891

ASL
CLR

CMP

CMP
RTS

000110 0:2626
000112 00C207
38 words,

Routine Base:

: Maximum stack depth per invocation:

6 words

SEQ 0153

?e
VAX=11 Bliss=16 Vv3=555
_DUA2:[DOUCETTE. CZRCDICZRCD2.SRC;S (28

RO
QUTC.TIMR(RO)

$CODES + 5660

PRLN TN

HYH
4

W
raguiy

GLOBAL ROUTINE HARD_ERR (ERRCNT) : NOVALUE =

4
~Co

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0
N I

11=Jul-1
8=Jul=1

VO
oo Co
N

SEQ 0154

Pa?e
VAX=11 Bliss="S v3=555
_DUA2:CDOUCETTE.CZRCD JCZRCD2.SRC;5 (29

THIS ROUTINE 1S CALLED BY IO_RETPKT, DM_TALLY, AND OTHERS TO UPDATE THE

HARD ERROR STATISTIC FIELD FOR THE CURRENT UNIT. IF THE HARD ERROR

A TR PRPR PR

COUNT HAS EXCEEDED THE OPERATOR-SPECIFIED LIMIT, THEN THE UNIT IS

DROPPED FROM TESTING.

I EYE

INPUTS:

ERRCNT - NUMBER OF HARD ERRORS TO ADD TO CURRENT TOTAL

IMPLICIT INPUTS:

LSLUN = CURRENT UNIT NUMBER

IR IR R

IR AR

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S CST
CUOFF = CST OFFSET FOR CURRENT UNIT
T_ADDR = ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK (TALLY)

PR PRI LN T PN ¥ [P E P

BEGIN

T_ADDR [ER_HRD] = .T_ADDR [ER_HRD] + .crmcNT;
IF .SWP_ERROR NEQU 0
THENBEGIN

! THEN

! TF HARD ERROK ' TMIT REACHED

IF .T_ADDR [ER_HRD] GEQU .SWP_ERROR

! THEN

THENBEGIN

PRTR TR

! UPDATE UNIT'S HARD FRROR COUNT
! IF THE USER SPECIFIED A HARD ERROR LIMIT

IF _.CST_ADDR [.CUOFF, P_STAT] EQLU ONLINE

! THEN

END;

I R R

PUR [.LSLUN] = DU_HERR;
DODU (.LSLUN);

THENBEGIN

! IF UNIT IS STILL ONLINE

000000

! IF HARD ERROR LIMIT REACr4ED

END;

! IF THE USER SPECIFIED A HARD ERROR LIMIT

END;
2969

.SBTTL

HARD.ERR GLOBAL ROUTINES

MOV

R1,-(SP)

ADD

4(SP), $0(R1)

CMP

30(R1) ,RO

2952

CUOFF ,RO

2956

HARD.ERR::

0000006

000004 000030
0000006

000030

0000006
063700

! ROUTINE HARD_ERR

END;

010146
013701
066661
013700

000036

! LOAD REASON TO DRCP UNIT
! DROP UNIT

0000006

MOV

S?X
BLO

MOV
ASL

ADD

T.ADDR,R1

»
ERRCNT,

?gp.snnon.no
1s

CST.ADDR,RO

2927
2947
2948

000042
000046
000050
000054
000062
000064
000066

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0
032710
001406
013700
112760
104451
012601
000207

: Routine Size:

: Maximum stack

SEQ 0155
Pa?e
VAX=-11 Bliss=16 V3-555
(29
C;5
D2.SR
_DUA2: [DOUCETTE . CZRCD JCZRC

020000

8IT

#20000, (RO)

0000006

MOV

LSLUN,RO

2960

51
(SP)+ ,R1

2961
2927

000003

8EQ

0000006
1$:

28 words,

Routine Base:

depth per invocation:

3 words

MOvVB

#3,DUR(R0D)

RTS

TRAP
MOV

$CODES + 5774

N 12

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES
'+

THIS ROUTINE IS CALLED (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY

FOR ALL 1/0 TRANSFER RETURN PACKETS WITH ‘'SUCCESS'* STATUS CODES, AND
(B) DURING THE DM EXERCISER SUBTEST FROM DM_TALLY WHEN EXAMINING THE

COMMUNICATION AREA (DM _COMM). ITS PURPOSE IS TO UPDATE THE I/0 COUNT
(NUMBER OF READS, WRITES, OR SEEKS) FOR THE CURRENT UNIT.

AFTER THE LOW-ORDER FIELD OF THE APPROPRIATE COUNT IS UPDATED, THIS
ROUTINE CHECKS FOR ONE OF TWO OVERFLOW CONDITIONS: (A) IF THE
HIGH-ORDER FIELD OF THE COUNT IS ZERO, THEN THE LOW-ORDER FIELD IS
CHECKED FOR EXCEEDING 65,000. I1f TRUE, THEN THE HIGH=ORDER FIELD IS
LOADED WITH 65 (FOR 65,000) AND THE LOW-ORDER FIELD IS REDUCED BY
65,000. (B) IF THE HIGH-ORDER FIELD OF THE UPDATED COUNT IS NON-ZERO,
THEN THE LOW-ORDER FIELD ]S CHECKED FOR EXCEEDING 1000. IF TRUE, THEN
THE HIGH-ORDER FIELD IS INCREMENTED BY 1 FOR EACH 1000 SUBTRACTED FROM
ADDR - ADDRESS OF THE LOW-ORDER FIELD OF THE 1/0 COUNT TO BE

UPDATED (IN THE CURRENT UNIT'S STATISTICS TABLE (TALLY))

COUNT = AMOUNT TO BE ADDED TO THE 1/0 COUNT
BEGIN

.ADDR = ..ADDR + .COUNT;
IF .(.ADDR + 2) EQLU O

THEN

PRT PRTR

PR PR YALR S ELR LR LR ER T A TR

THE LOW-ORDER FIELD.
INPUTS:

BEGIN

IF ..ADDR GEQU 65000

THEN

BEGIN

ENV;

AR IR R

(.ADDR + 2) = 65;

E R

LADDR = ..ADDR = 65000;

ELSE

END

BEGIN

! UPDAIE THE COUNT (LOW=-ORDER FIELD)
! IF HIGH-ORDER FIELD IS ZERO
' THEN

! If LOW=ORDER FIELD EXCEEDS 65,000

! THEN

! BECOMES LOW-ORDER 1000

' HIGH-ORDER (TIMES 1000)

' ELSE ~ HIGH-ORDER FIELD IS X1000

UHILgEéizDDR GEQU 1000 DO

! WHILE LOW-ORDER FIELD EXCEEDS 1000

.ADDR = ..ADDR - 1000;

! SUBTRACT 1000 FROM LOW-ORDER FIELD

(.ADDR + 2) = .(LADDR + 2) + 1;

! INCREMENT HIGH-ORDER FIELD

END;
END;

ENC;

! ROUTINE UPD_IOC

SEQ 01 56

VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 ( 309"

GLOBAL ROUTINE UPD_I0C (ADDR, COUNT) : NOVALUE =

IR AT

R PR PR TR YRPRAN LN TN X

CZRCD2
v01.0

11-Jul-1983 08:42:51
8-Jul-1983 17:46:34

SEQ 0157

Pa?e
VAX=11 Bliss=16 V3=555
(30
5
.SRC;S
_DUA2:[DOUCETTE.CZRCD] CZRCD2

CZRCDAO €25 DISK EXERCISER

CZRCD2
v01.0

GLOBAL ROUTINES

uPD.10C:

010146

016600

000006
000004
000002

176750

001030
000101

001750

18:

001750

000207

2$:

.SBTTL

UPD.IOC GLOBAL ROUTINES

MoV
MoV
ADD
MoV
ADD
TST
BNE
CMP
BLO
ADD
MoV
BR
cMp
BLO
sus
INC
BR
MoV

R1,=(SP)
6(SP) ,RO
4(SP), (RO)
#2,R1
RO,R1
(R1)
18
)
, 4176750
(RO
23
#1030, (RO)
#101,(R1)
2%
(RO) ,#1750
$
#1750, (RO)
(R1)
1$
(SP)+,R1

RTS

Routine Base: $CODES + 6064
27 words,
: Routine Size:
2 words
: Maximum stac k depth per invocation:

ADDR,«

COUNT
,«

c13

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAO RC2S DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0
.

ggg?

GLOBAL ROUTINE OVF_CHK (ADDR) : NOVALUE =

3028

:
.
H

3030
3031
3032

!
!
!

H
N
N

3029

3033
3034
3035

THIS ROUTINE IS CALLED (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY
FOR ALL I/0 TRANSFER RETURN PACKETS WITH ‘‘SUCCESS'®' STATUS CODES, AND
(B) DURING THE DM EXERCISER SUBTEST FROM DM _TALLY WHEN EXAMINING THE

COMMUNICATION AREA (DM_COMM). ITS PURPOSE IS TO CHECK FOR GVERFLOW IN

!
!
!

CERTAIN STATISTICAL FIELDS OF THE CURRENT UNIT. SPECIFICALLY, THE
LOW~ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR
EXCEEDING 1000. IF TRUE, THEN THE HIGH-ORDER COUNT IS INCREMENTED. IF

INPUTS:

THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT IS INCREMENTED.

gggg

3038

3039
%82?

!
:

:
:

3042
ggzz

BEGIN

3045

WHILE ..ADDR GEQU 1000 DO

3048

.ADDR = ,.ADDR = 1000;

H
:

3051
3052

END;

gggg

.
:

H
.

ggzg

ADDR = ADDRESS OF THE BR _LO OR BW_LO FIELD FOR THE CURRENT UNIT
(SEE STATISTIC TABLE (TALLCY) LAYOUT)

' 1IF LO-ORDER OVERFLOW
‘

BEGIN

! If HI-ORDER OVERFLOW
! THEN

BEGIN

3057
gggg

(.ADDR + 2) = .(.ADDR + 2) - 1000;
(.ADDR + &) = .(.ADDR + &) + 1;

.
H

3060
3061

END;

3062

000000

010146

000002

016607

000006
000012

012701
060001

103404
162710
005211
000771
021127
103404
162711

000050

012601

000044

005260

! SUBTRACT 1000
! INCREMENT MBYTES
! ROUTINE OVF_CHK

END;
.SBTTL
OVF .CHK ::

000004

1$:

001750

2s:

001750

000004

3s:

OVF.CHK GLOBAL ROUTINES

MoV

R1,-(SP)

MoV
ADD

#2.R1
RO,R1

MOV

000002

000014 021027 001750
000020
000022
000026
000030
000032
000036
000040

! INCR HI-ORDER

IF .(.ADDR + 2) GEQU 1000
THEN

M
.
:

! SUBTRACT 1000

(.ADDR + 2) = .(.ADDR + 2) + 1;

gggg

3053
3054

SEQ 0158
Pa?e
VAX-11 Bliss=16 V3=555
(31
;S
_DUA2:[DOUCETTE.CZRCD] CZRCD2.SRC

CMP

4(SP) RO

(RO) #1750

sSuBs

23
#1750, (RO)
(R1)
1$
(R1),#1750
3$
#1750, (R1)

MOV

(SP)+,R1

BLO
suB
INC
BR
cMP
8Lo

INC

4(R0O)

PC
RIS
.
000052 000207
: Routine Size: 22 words,
Routine Base: $CODES ¢+ 6152
: Maximum stack depth per invocation: 2 words

: ADDR,*

:
H
:
:
:

W
& =2

~Co

SEQ 0159

Pa?e
VAX=11 Bliss=16 V3=-555
(32
.SRC:5
-DUAZ:[DOUCETTE.CZRCDJCZRCDZ

GLOBAL ROUTINE XFR_CHK : NOVALUE =
'+

THIS ROUTINE IS CALLED (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY

FOR ALL 1/0 TRAWSFER RETURN PACKETS WITH ''SUCCESS'' STATUS CODES, AND
(B) DURING THE DM EXERCISER SUBTEST FROM DM_TALLY WHEN EXAMINING THE
COMMUNICATION AREA (DM_COMM). 1TM~ PURPOSE IS TO CALCULATE THE TOTAL

NUMBER OF BYTES TRANSFERRED THL.5 FAR ON THE CURRENT UNIT, AND TO CHECK
THIS SUM AGAINST THE OPERATOR=:PLCIFIED LIMIT. IF THE LIMIT HAS BEEN
REACHED, THEN THE UNIT IS REMOVED FROM THE CURRENT PASS.
IMPLICIT INPUTS:

T ADDR = ADDRESS OF THE CURRENT UNIT®S STATISTICS BLOCK (TALLY)
LSLUN = CURRENT UNIT NUMBER
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (ST
DMC"ADDR - ADDRESS OF CURRENT CONTROLLER'S DM_COMM AREA
CUOFF = (ST OFFSET FOR CURRENT UNIT

BEGIN
LOCAL

! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT

IF .SWP_XFER NEQU 0

' IF A TRANSFER LIMIT WAS SPECIFIED

(=1
oo
0

SUM : WORD:

THEN

' THEN

BEGIN

! TOTAL BYTES TRANSFERRED
! IF TRANSFER LIMIT IS REACHED

SUM = ,T_ADDR [MB_READ] + .T_ADDR [MB_WRIT];
IF .SUM GEQU .SWP_XFER
THEN

' THEN

BEGIN

CPT [.LSLUN] = NO;
CST_ADDR [U_CNT) = .CST _ADDR [U_CNT] = 1;
DMCTADDR [.TUOFF - OF_UN, ALLBIT] = -1;
IF MANUAL
THEN

BEGIN
PRINTF

.HOURS, .MINUTES, .SECONDS);

PRINTF (MSG_07. .LSLUN);

!
!
'
'

MARK UNIT INACTIVE
DECREMENT ACTIVE UNIT COUNT
IF DM EXER, STOP FPT ON UNIT
IF ATTENDED

ELAPSED TIME

! THEN

i "UNIT XX. = TRANSFER LIMIT REACHED'’

END;

b
b

(CRLF);

PRINTF (ETIME,

AN NN N NN NN

s 8e®eBeBa e 05 8e0s®e®eBe0s0s 80800000000 8:0,%000 000000009090 000000000000000¢%9¢0s000s0080050,%¢080000,

11=Jul=1
8-Jul=1

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0

V0
(o1]

D13

' IF A TRANSFER LIMIT WAS SPECIFIED
! ROUTINE XFR_CHK

END;

00000TM

004137

0000006

005004

013702

0000006

.SBTTL
XFR.CHK::
JSR

Mov

XFR.CHK GLOBAL ROUTINES

R1,$SAVE?

SWP.XFER,R2

3063

3087

SEQ 0160
Page
VAX=11 Bliss=16 v3=555
(32
2.SRC.;5
JCZRCD
E.CZRCD
DOUCETT
_DUA?:[

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0

001467
013701
010100
016101

1%
T.ADDR,R1

0000006

R1,R0
20(R1) ,R1
26(RO) ,R1
R1,R2
18
LSLUN,RO

000020
000026
0000006
0000006
0000006
000005
0000006

SEEEEREE SEEEEEEE

SIBRERRE FERIEI3R

000100

010600

104417

3098

0000006
0000006
0000006
000000G
000004

SP.RO
17
LSLUN, (SP)

SP,¢

msG.07,-(sP)

RTS

3103
SP,*

#ETIME,=(SP)
#6,-(SP)

18:

3099

SP.RO
17
SECONDS, (SP)
MINUTES,=(SP)
HOURS ,=(SP)

#2,-(SP)
?P.RO
4
#20,SP
PC

$CODES + 6226
Routine Base:
61 words,
words
13
; Maximum stack depth per invocation:
: Routine Size:

3097

DMC.ADDR ,RO
18
#CRLF ,=(SP)
#1,-(SP)

000020

104417

3092

0000006
000001

062706
000207

3091

3096

CPT(RO)

g51.-6(R6)

0000006
0000006
000002

*,S5UM
+,SUM
*
SUM,

CST.ADDR,RO
5(R0)
cgorr.no

0000006
1777727 177772

013716
012746
012746
010600

T.ADDR,

3104

3105

3101
3063

D o

D i

N N N N N NN NN

b
8

b cond

b e

e cnd

N N NN N N N O AN N AN N U

D DD DD NANL N
NWWNIN NI NN NI NI NN NN
= = b b = o
000 NO . SN = OO 00 NO VN ESNN =2 O 000 NO Y

~JOo

THE CALLER, AND NO ACTION IS TAKEN.

INDEX - égbgéN?F MSCP ENVELOPE CONTAINING THE COMMAND TO

IMPLICIT INPUTS:

b b

CCTLR = CURRENT CONTROLLER NUMBER
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S D(CT
OCL_X1, OCL_X2 = STARTING/ENDING INDECES OF CURRENT
CONTROLLER'S OUTSTANDING COMMAND AREA

b d wd wmd b
b
b

TIMER IS STARTED IN THE OUTSTANDING COMMAND TIMER (OUTC TIMR). IF THE
CURRENT RC25 IN NOT ONLINE, THEN A FAILURE INDICATION IS RETURNED TO

LOCA L
SLOT_ADDR,
TEMP : WORD;

IF ((.DCT_ADDR [STAT] EQLU ONLINE) AND
T“EN(.DCT_ADDR CCRING_CNT] LSSU CRING_LEN))

! IF DEVICE IS ONLINE AND
! ITS CRING IS NOT FULL

BEGIN

s
3150

MSCP_ENV [.INDEX, CRN_LO] = (CRN = .(RN + 1);
SLOT_ADDR = .DCT_ADDR [CR_NEXTJ;

3155

THEN

emd

IF THE CURRENT RC25 IS ONLINE AND ITS CRING IS NOT FULL, THEN THIS
ROUTINE '‘SENDS'' A COMMAND TO THE RC25 BY LOADING THE ENVELOPE
DESCRIPTOR OF AN MSCP ENVELOPE INTO THE COMMAND RING AND RE2VING THE
DEVICE'S IP REGISTER. A RECORD OF THE SENT COMMAND IS MADF IN THE
CONTROLLER'S OWN OUTSTANDING COMMAND LIST (OUTC LIST), AMD A COMMAND

SculN

wh and b eud wmd amd b md b md o

A TRPRTR R PEPR TRR IR AR TR IE NE TR YN YN PN TN X Ve ®e %0 %0 0,
YR
PR FR TR TR N P I
L] TR IR

GLOBAL ROUTINE SEND (INDEX) =

INPUTS:

CMD REF NUM
= ASSIGN
ADDR OF NEXT COMMAND SLOT
(LO) INTO COMMAND SLOT

LOAD ENV DESC
ADVANCE TO NEXT WORD
LOAD ENV DESC (HI) INTO COMMAND SLOT
ADVANCE TO NEXT COMMAND SLOT
IF BEYOND END OF CRING

3151
3152
3153
3154

.SLOT_ADDR = .MSTP_ENV [.INDEX, ENV_LO];
SLOT_ADDR = .SLOT_ADDR + 2;
.SLOT_ADDR = .MSCP_ENV [.INDEX, ENV_HI];
SLOT_ADDR = .SLOT_ADDR + 2;
1f .SLOT_ADDR GTRA .DCT_ADDR [CR_END]

!
!
!
!
!

3156
3157

SLOT_ADDR = .DCT_ADDR [CR_BEG];
DCT_ADDRTMLCR_NEXT) =~.SLOT_ADDBR;

! CYCLE BACK TO SEGINNING
! RESTORE CR_NEXT POINTER IN DCT

3160

INCR COUNT FROM .0CL_X1 TO .0CL_X2 DO

IF .0UTC_LIST [.COUNT] LSS O

DCT_ADDR CCRING_CNT] = .DCT_ADDR [CRING_CNT] + 1;

! INCR # OF TOMMANDS IN CRING
! FOR EACH OUTC ENTRY

g}g}

3163

3167

QUTC_LIST [.COUNT] = .INDEX;

! LOAD MSCP_ENV INDEX

3169

THEN

! THEN

TE R

BEGIN

! THEN

AR IR T

g}gg

3164
%}gg

3168

3170

THEN
BEGIN

IF .TIP_FLAG

OUTC_TIMR [.COUNT] = TO_INIT

SEQ 0161

Pa?e
VAX=-11 Bliss=16 V3=-555
(33
.SRC;5
ICZRCD2
_DUA2:[DOUCETTE.CZRCD

R AR A

T E T YR

3
3
3
3
3140
3141
3142
3143
3144
3145
3146
3147

11=Jul8-Jul-

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

CZRCD2
v01.0

Lelle]
[+ 1]

F 13

! IF A SPARE SLOT IS FOUND

! IF INIT SOBTEST IN PROGRESS
! SET INIT SUBTEST COMMAND TIMER

G 13

11=-Jul=1983 08:42:51
8-Jul=-1983 17:46:34

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

ELSE

D b

! OTHERWISE

BEGIN

IF DM EXERCISER IS BEING RUN

i e e

1F BIT_TST (SWP_FLAGS, SWF_DM)

seourc_rxnn [.COUNT]

TO_DUP

OUTC_TIMR [.COUNT]

10_10;

D e

THEN

SET DUP COMMAND TIMER

OTHERWISE

SET 1/0 TRANSFER COMMANC TIMER

D ed e

END;

[e ]

EXITLOOP;

! OUTC_LIST SEARCH LOOP

END

! IF DEVICE IS NOT ONLINE

RETURN FAILURE;

! ROUTINE SEND

END;

SEND::

0000006

3114

DCT.ADDR,R1

3143

=(SP)

(R1)
7%
(R1),M0
7%
12(SP) ,=(SP)
#104,-(SP)
PC,BLSMUL

000010
000012
000104
000000G
0000006

3144

; INDEX,*

3148

CRN,R2

000010
000020

18:

10(R1) ,R2
R2,20(R1)
(R1)

ocL.x1,R?

0000006

2$:

0000006
0000006

+,SLOT.ADDR
SLOT.ADDR,
*
*, COUNT

+,SLOT.ADDR
*,SLOT.ADDR
+,SLOT.ADDR
*
SLOT.ADDR,

(V.]
-~

R2,MSCP.ENV+10(RO)
20(R1) ,R2
MSCP.ENV(RO),(R2)¢
(R2)+
MSCP.ENV+2(R0),
?2.12(R1)

WWWWNW

R2
R2.CRN

0000006
0000106
000020
0000006
0000026
000012

000016

SEND GLOBAL ROUTINES
R1,$SAVE2

b aubd gud e=bd

0000006

010100

! READ IP TO FORCE PORT T0 POLL

TEMP = _RC25_ADDR [RCIP, RC_ALLJ;
RETURN SUCCESS:;

b e

tNv,

b e
D
d e oh

! IF A SPARE SLOT IS FOUND

END;

i e

D wed

Pa?e
VAX=11 Bliss=16 V3=555
(33
5
2.SRC;
_DUA2:[DOUCETTE.CZRCD JCZRCD

®e Oy s e

W W N AN U U U N U AN N NN AN N AN AN AN AN N N NN NN

GLOBAL ROUTINES

SEQ 0162

COUNT

OgTC.LIST(R1)

;s *(COUNT)

3163

16(SP) ,0UTC.LIST(RT)
R1.RO

: INDEX,*(COUNT)

3167
3170

11=-Jul=1983 08:42:51
8-Jul=1983 17:46:34

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

GLOBAL ROUTINES

006300
062700
132737
001403
012710
000416
132737
001403
012710
000407
012710
000404
005201
020137
003741
017766
022626
012700
000401
005000
005726
000207

: Routine Size:

0000006
000001 0000006
000170

000002

3s:

0000006

000036

48:

000454

0000006

000000G 000004

6$8:

000001

B!
82 words,

Routine Base:

; Maximum stack depth per invocation:

7 words

ASL
ADD
81718
8EQ
MOV
B8R
BITB
8EQ
MOV
B8R
MOV
BR
INC
CMP
BLE
MOV
CMP
MOV
BR
CLR
TST
RTS

RO
#OUTC.TIMR,RO
#1,11P.FLAG
3s
#170,(RO)
6$
P
. FLAGS
#2,5W
43
#36,(RO)
63
#4654, (RO)
6$
R1
R1,0CL.X2
2%
aRC25.ADDR,4(SP)
(SP)+,(SP)+
#1,R0
8s
RO
(SP)+
PC

$CODES + 6420

SEQ 0163

_DUA2:[DOUCETTE.CZR(D JC2RCD2.SRC:S (333

VAX-11 Bliss=16 v3=-555

COUNT
,«
COUNT

; *,RC.REG

[

W
iy

11=Jul=1
8-Jul-1

CZRCDAO RC25 DISK EXERCISER
GLOBAL ROUTINES

~OCo

CZRCD2
v01.0

0O
©0Co

113

Page
VAX=-11 Bliss=16 V3=555
(34
RC;5
RCD2.S
_DUA2:[DOUCETTE.CZRCDICZ

GLOBAL ROUTINE WAIT : NOVALUE =

L4
.

LJ
.

THIS ROUTINE IS CALLED DURING THE INITIALIZATION SUBTEST AFTER EACH
MSCP MESSAGE IS SENT TO A DEVICE. ITS PURPOSE IS TO LOCATE THE LONE

[
.
.

OUTSTANDING COMMAND AND TO MAINTAIN IT, TIMER UNITL EITHER (A) THE
DEVICE RESPONDS TO THE COMMAND THROUGH AN RC25 INTERRUPT, RESULTING IN
A RETURN PACKET BEING DEPOSITED INTO THE 1/0 DONE QUEUE (10DQ@), OR (B)

[4
-

[
)

[
[4

THE COMMAND MESSAGE TIMER EXPIRES.

[J
.

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER
OCL_X1, OCL_X2 ~ STARTING/ENDING INDECES OF CURRENT
CONTROLLER'S OUTSTANDING COMMAND AREA

[4
-

4
4
.

[
[4
[4

BEGIN

L4
.

LOCAL

CX : SIGNED WORD,

! OUTSTANDING COMMAND®S OUTC _LIST INDEX

RX : WORD,
M _ADDR

! RETURN PACKET INDEX
! MSCP ENV ADDRESS

! INDEX OF MSCP COMMAND ENVELOPE

MX : WORD,

[4
-

[4
.

[
.

RCADDR: REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS); ! RETURN PACKET ADDRESS

LJ
-

L4
.

[4
.

[
[

CX = =1;
INCR COUNT FROM .0CL_X1 TO .0CL_X2 DO

BEGIN

[
-

IF .OUTC_LIST [.COUNT] GEQ 0

[4
.

[

THEN

[4
[

BEGIN

£X = .COUNT;
EXITLOOP;

[4
.

[J
.

[
[

! ASSUME COMMAND NOT FOUND
! SEARCH OUTC_LIST FOR THE

OUTSTANDING COMMAND

' IF THIS IS IT

! THEN

! SAVE OUTC INDEX OF COMMAND
' DONE HERE

END;

[
.

END;

[4
.

[
.

[4
[4
.

[4
-

[4
.

T FLAG = FALSE;

(1))

BEGIN

IF .T_FLAG

THEN

BEGIN

[4
.

[4
-

[
.

[

IF .CX GEQ O
THEN

BEGIN

[4
.

[4
[4
[4

! CLEAR ONE SECOND TIMING FLAG

! REPEAT UNITL RC25 INTERRUPT

OR TIMEOUT

' IF ONE SECOND HAS ELAPSED

! THEN

' IF OUTSTANDING COMMAND WAS FOUND
' THEN

SETPRI (PRIO0S):

' LOCK OUT RC25 INTERRUPTS

THEN

! THEN

1F .OUTC_TIMR £.Cx3 GTRU O

' IF TIMER STILL ACTIVE

SEQ 0164

J 13

11=-Jul=1983 08:42:51

CZRCDAO RC25 DISK EXERCISER

8-Jul=1983 17:46:34

GLOBAL ROUTINES

VAX=-11 Bliss~16 V3-555

OUTC TIMR C.CX] = .OUTC_TIMR [.CX) - 1; ! DECREMENT TIMER
i IF MESSAGE HAS TIMED OUT
0
IF .OUTC_TIMR [.cx] €oL0

3253
3254

gggg

:
:
:

3258
3259
3260

RX = GET RETPKT (.CCTLR);
= .OUTC_LIST [.CXJ;
R_ADDR = RETPKT + (. RX « RP_LEN *+ 2);

! GET A RETURN PACKET
! GET COMMAND ENV INDEX
! CALCULATE RETPKT ADDRESS

:
:

3263
3264

R_ADBR CCONIB) = CID_DRIVER;
RZADDR [MESTYP]= MT_ TIMEOUT;

! SET PACKET SOURCE AS ‘DRIVER'
! COMMAND TIMEOUT

gg;?

gg;%

%%;g

SETPRI (PRI00);

! RESTORE INIT SUBTEST PRIORITY

gg;g

END;

' IF OUTSTANDING COMMAND WAS FOUND

gg;g

T_FLAG = FALSE;

! CLEAR ONE SECOND TIMING FLAG

ggg?

END;

' IF ONE SECOND HAS ELAPSED

:
:

END
3282
gggz UNTIL .10DQ_IN NEQU .10DQ_OUT;

3285

:
:

:
:
:
:

000000
000004
000010
000014
000026

105760

002402

000026

010001

000032
000034

005200
(20037

000030 000404
000040

003767

000046
000054
000056
000060
000062
000066

132737
001510
005701
002504
012700
104441

000042

000070
000072

! CONTROLLER NUMBER
! “'SEND'* THE PACKET
! RETURN COMMAND ENV TO POOL
! INIT OUTC_LIST ENTRY

' IF TIMER STILL ACTIVE

END;

! UNTIL A PACKET IS ''SENT'’ FROM HERE
OR RC25 INTERRUPT PROCESSING
!
! ROUTINE WAIT

END;
0000006
177777
0000006

WAIT::

0000006

1$:
28:

)
(0000006
000001

000240

! CALCULATE ENV ADDR
! COPY COMMAND TO RETPKT

' IF MESSAGE TIMER EXPIRED

END;

105037 0000006

010100
006300

BEGIN

RTMADDR CCTLR] = .CCTLR;
IR_10DQ(.RX);
PUT_ENV (.MX);
outt_LIST[.Cx] = -

3265
3266
3267
gggg

004137
012701
013700
060100

! THEN

M"ADDR = MSCP_ENV + (.MX « ENV_LEN * 2)cOPY BLK (.M ADDR + 4, .R_ADDR; RP_LEN);

3261
3262

000016 000405

000020

THEN

3255

3s:

4S:

0000006

.SBTTL

WAIT GLOBAL ROUTINES

JSR
MOV
MOV
ADD

R1,$SAVES
#-1,R1

1S18

OUTC.LIST(RO)

: ~(COUNT)

MOV

RO,R1

: COUNT,CX

INC
CMP

)
RO,OCL.X2

: COUNT
; COUNT,*

T.FLAG

B8R

BLT

B8R

BLE

CLRB

BIT8
BEQ
TST
BLT
MOV
TRAP

MoV
ASL

ocL.X1,RO
R1,RO

#1,T.FLAG
7%
R1
63
#240,R0
41

R1,R0
RO

Pa?e

_DUA2: [DOUCETTE.CZRCDICZRCD2.SRC;5 (34

;
:

SEQ 0165

:
: %, CX

; +,COUNT
: ~,COUNT

: CX
:

: CX,

000074
000100
000102
000104
000106
000110

11-Jul-1983 08 42:51
8-Jul=-1983 17:46:34

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

GLOBAL ROUTINES

062700

#OUTC.TIMR,RO
(RO)
5%
(RO)
5%

0000006

PC,GET.RETPKT
RO,RS

= ,R.ADDR

3261

#%SCP.ENV,RO
RO,R3
R3. (SP)

: *,M.ADDR
: M.ADDR,*

3262

R2.=(SP)

: R.ADDR,*

: RX,t

PCcgpv.BLK
[J

nz.no
#3.1(R0)
CCTLR,=(SP)

000003 000001
0000006
177760
000100

: R.ADDR,*

(SP)+, (RO)

RS, (SP)

s RX,*

RG. (sp

M,«

PC.IN.IODQ

0377OUTC.LIST(R1)
PC PUT.ENV

#12,5P
RO
41

5%:

6%:
7$:

T.FLAG

OUT
I10DQ..
DQ
IN,
10

RTS

‘s

Base:
)
$CODES + 6664
Routine
100 words,
; Routine Size:
2 words
; Maximum stack depth per invocation:

3263

3265

#177760, (SP)
#100, (RO)

005466°

000207

s MX,«

#30,-(SP)

000030
004352°
000002

0000006
0000006 0000006

;

¥4, (SP)

000004

005014"
000377 000000G
000012

PC,BLSMUL
ARETPKT RO
RO,R2
R4 . (SP)

#104,-(SP)
PC.,BLSMUL

000104
0000006
0000006

3259
3260

«(CX) ,MX

#60.-(SP)

000060
0000006
0000006

: *,RX
:

R4
OUTC.LIST(RY)
RS, (SP)

0000006

[

3253
3254
3258

CCTLR,=(SP)

0000006
005070

SEQ 0166

_DUA2:[DOUCETTE.CZR(CD JCZRCD2.SRC;S (33

VAX=11 Bliss=16 V3=555

«, «((X)

[ YETETIETITELIE XN PR FE PN ¥

W
F
o)

J\J\

THIS ROUTINE PRINTS THE ELAPSED TIME THAT PRECEDES ALL BASIC ERROR

MESSAGES.

PRINTB (ETIME, .HOURS, .MINUTES, .SECONDS);

062706
000207

3296
3297
3298
3299
3300
3301
3302
3303

013746
012746
012746
010600
104415
062706
000207

.SBTTL

EMS.ET ERROR MESSAGE SUBROUTINES

MOV
MOV
MOV
MOV

MINUTES,=(SP)
HOURS.-(SP)
NETIME,-(SP)
#4,-(SP)

EMS.ET: MOV

0000006

000000G
0000006
0000006
000004

MOV

TRAP

ADD

000012

RTS

Routine_Base:
15 words,
: Rougine Size:
7 words
: Maximum stack depth per invocation:

SECONDS ,-(SP)

SP,RO

: SP,x

#12,SP
PC

3295

3288

$CODES ¢ 7174

ROUTINE EMS_SA : NOVALUE =
I+

THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM ‘'SA_REG'® WHICH CONTAINS

THE CONTENTS OF THE SA REGISTER.

PRINTX (EX_SA, .SA_REG):;
0000006
0000006

000002

.SBTTL
EMS.SA: MOV
Mov

Mov
MOV

TRAP

ADD

000006

RTS

11 words,
Routine Base:
: Routine Size:
5 words
: Maximum stack depth per invocation:
Ve 8y e ®e Vo B, 8,

ROUTINE EMS_ET : NOVALUE =

104414

000000
000004
000010
000014
000016
000020
000024

SEQ 0167

Pa?e
VAX=11 Bliss=16 V3=555
(35
C;5
D2.SR
ICZRC
CZRCD
TTE.
[DOUCE
_DUA2:

%SBTTL 'ERROR MESSAGE SUBROUTINES'

013746
013746
013746
012746
012746
010600
000034

11=Jul=1
8=Jul=~1

CZRCDAO RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

b
od
G0 Qo
(V. [V ]

L 13

SA: XXXXXX(0)*'*

EMS.SA ERROR MESSAGE SUBROUTINES
:
SA.REG,~(SP)
#EX.SA,=(SP)

#2.,-(SP)
SP,RO
15

#6,5P
PC

: SP,»
:

$CODES + 7232

ROUTINE EMS_CRN : NOVALUE =
'+

!
!

3303

THIS ROUTINE PRINTS (EXTENDED) THE COMMAND REFERENCE NUMBER OF THE
CURRENT RETURN PACKET. ONLY THE LOW-ORDER WORD IS SIGNIFICANT.

3296

CZRCD2
v01.0
:

3311

CZRCDAO RC2S DISK EXERCISER
ERROR MESSAGE SUBROUTINES

11=Jul=1983 08:42:51
8-Jul=1983 17:46:34

PRINTX (EX_CRN, .RP_ADDR [CRF_L0J);

.SBTTL

000000 013700 000000G

EMS.CRN:MOV

000014 012746 000002

MOV

000006

ADD

000004
000010

016046
012746

000020
000022

010600
104415

000024

062706

000030 000207

000004
0000006

; Routine Size:

13 words,

Routine Base:

:
[]

3312

3315

:
:
:

3318
3319
3320

;

3316

3321

000004

001411

000010
000014
000020
000022
000024

012746
012746
010600
104415
062706

000030 000207

CMD REF NUM: XXXXXX(0)''

EMS.CRN ERROR MESSAGE SUBROUTINES

RP.ADDR,RO

4(R0O) ,~(SP)
#EX.CRN,=(SP)

MOV
TRAP

SP,RO
15

: SP,x

#2,=(SP}
#6,SP

IF IT IS NON-ZERO.

IF .ST_CODE NEQU O
THEN

.SBTTL

EMS.STC:MOV
BEQ

MOV

MOV
MOV

0000006
000002
000006

MOV
TRAP

1$:

STATUS CODE: XX(0)''

PRINTX (EX_SC, .ST_CODE);

ADD

RTS

ROUTINE EMS_SBC : NOVALUE =

3326

EMS.STC ERROR MESSAGE SUBROUTINES

ST.CODE RO
1%

RO,=-(SP)

)

#EX.SC,-(SP)
#2,-(SP)
SP,RO
15
#6,SP

3319

3321

: SP,¢

THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM °''SB_CODE'' (SUB=-CODE) IF

3325

:
:

3327
gggg

|
;

;
:
;

3330
3331

IF (.ST_CODE OR .SB_CODE) NEQU 0

3333

PRINTX (EX_SB, .SB_CODE);

3332

3304

THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM ‘'ST_CODE'’ (STATUS CODE)

3322

3353

3311

$CODES + 7260

: Routine Size: 13 words,
Routine Base: $CODES + 7312
: Maximum stack depth per invocation:
5 words

ROUTINE EMS_STC : NOVALUE =

000000 013700 0000006
000006 010046

5 words

_Pa?e
VAX=11 Bliss=16 V3-555
(35
RC;5
_DUA2: [DOUCETTE.CZRCDICZRCD2.S

MOV
MOV

RTS

: Maximum stack depth per invocation:

SEQ 0168

THEN

EITHER THE STATUS CODE (ST CODE) OR THE SUB=CODE IS NON-ZERO. (A

NON-ZERO SUB-CODE ALWAYS HAS SIGNIFICANCE, WHEREAS A ZERO SUB~CODE ONLY
HAS MEANING WITH A NON-ZERO STATUS CODE).

SUB=CODE: XXXX(0)''

3312

N 13

CZRCDAO RC25 DISK EXERCISER

CZRCD2
v01.0

000000

000036

11=Jul=1983 08:42:51

8~Jul=1983 17:46:34

ERROR MESSAGE SUBROUTINES

013700
053700
001412
013746
012746
012746
010600
104415
062706
000207

EMS.SBC ERROR MESSAGE SUBROUTINES

BEQ

1} ]

EMS.SBC:MOV
8IS

0000006

MOV

000006

1$:

3331

S8.CODE,=-(SP)

3333

SP,RO

; SP,»

#EX.SB,=(SP)
#2,-(SP)

TRAP

ADD
RTS

#6,SP
PC

I EYTEYE TR IR T X 1)

Routine Base: $CODES + 7344
16 words,
: Routine Size:
5 words
: Maximum stack depth per invocation:
ROUTINE EMS_CMD : NOVALUE =
| +

THIS ROUTINE PRINTS (EXTENDED) THE OPCODE AND COMMAND MODIFIER (IF

PRESENT) OF (HE CURRENT RETURN PACKET. THESE FIELDS ARE “‘TRANSLATED'

}

INTO ENGLISH TEXT RATHER THAN PRINTED AS RAW NUMBERS.

]
.

|
.

IMPLICIT INPUTS:

]

RP_ADDR -~ ADDRESS OF THE CURRENT RETURN PACKET

]

]
.

BEGIN

AR A E M

I EE

AT ATETETE

TR LASR PR

PR PR AN 1) (T E

YRR

LOCAL

! COMMAND OPCODE

COMMAND : WORD;

PRINTX (EX_CMD);
COMMAND = “RP_ADDR [ENDCOD] AND OP_MSK;
SELECTONEU .COMMAND OF

COMMAND: °'
!
' GET OPCODE ALONE

SET

LOP_ESP]

forP-scc)

: PRINTX (EX_ESP);
: IF . I1IP_FLAG
THEN
SE

COP_ONL]
COP_RD]
COP_WRT]
COTRERWISE]

PRINTX (EX_SCC)
PRINTX (EX_SND);

: PRINTX
: PRINTX
: PRINTX
: PRINTX

Pa?e

ST.CODE RO
SB8.CODE,RO

MOV
MOV

MOV

SEQ 0169

DUAC : [DOUCETTE.CZRCD JCZRCD2.SRC;5 (35

.SBTTL

0000006
0000006
0000006
000002

vax=-11 BlLiss=16 v3=555

' *EXECUTE SUPPLIED PROGRAM''

' IF INIT SUBTEST IN PROGRESS
' THEN (THESE 2 OPCODES ARE THE SAME)
! *'SET CTLR CHAR''
! OTHERWISE
! “'SEND DATA'

! "ONLINE"’
(EX_ONLY;
! *READ''
(EXZRD);
! "WRITE"
(EX_WRT);
(EXZ03, .RP_ADDR [.MDCOD]); ! "XXX(0)*'

TES:

IF (((.COMMAND "QLU OP_RD) OR (.COMMAND EQLU OP_WRT)) AND

N (BIT_TST (RP_ADDRTM[CMDMOD], MD_CMP)))

! %LsfionPARE MODIFIER IS PRESENT

PRINTX (EX_CMP)

i *'-COMPARE<CR><LF>"*

PRINTX (CRLF);

! <CR><LF>

! OTHERWISE

3322

B 14
CZRCD2

v01.0

3374
3375

004137
012746
012746

CZRCDAO RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

11=Jul-198 3 08:42:51
8-Jul-198 3 17:46: 3

END;

! ROUTINE EMS_CMD

EMS.CMD:

0000006
000000G
000001

15
RP.ADDR,R1
14(R1) R2

#177600,R2
R2,#2

0000006
000001

000004

15
78
R2 . #4

SP,RO

3334
3350

.
:

: SP,«
2
:; +,COMMAND

3351

:; COMMAN,D*

3352

3355

*, COMMAND

: SP,*

#1,11P.FLAG

;

3356

0000006
000001

#EX.SCC, (SP)
#1,=-(SP)

3358

0000006
000001

7%
#EX.SND, (SP)
#1,=-(SP)

:
:

7%
R2.#11
4
#EX.ONL, (SP)

:
: COMMAND
, «

3352

3361

SP,RO
15

H SP,»

000041

1%:

0000006

000042

SP,RO
15

2$%:

SP,RO
15

3s:

#1,~(SP}

4$:

5%:

0000006
000001

000014

0000096
000001

116116

Jczrep2.5RC;S (393°

3352

0000006
000001

000230

sEa 0170

.
, *
: COMMAND

000011

000226

R1,$SAVE?2
#EX CMD,~(SP)
#1.-(SP)

18
#EX.ESP, (SP)
M ,=-(SP)

000001

104415
000412
005016

_DUA2:[DOUCETTE.CZRCD

EMS.CMD ERROR MESSAGE SUBROUTINES

SP,RC

0000006
000014
177600
000002

VAX=-11 Bliss=16 V3=-555

6$:

7%
R2,#41
b} 3
#EX.RD, (SP)
#1,=-(SP)

: SP,*

:
, *
: COMMAND

3352

3362

SP,RO

H SP,x

15
7%

3356
3360

22M2

, »
: COMMAND

3352

lEXHRTs(SP)

3363

SP‘RO

H SP,»

15
7%
(SP)
14(R1),(SP)

3352
3364

C 14

11=Jul=1983 08:42:51

CZRCDAO RC2S DISK EXERCISER

CZRCD?
v01.0

8-Jul=1983 17:46:34

ERROR MESSAGE SUBROUTINES
012746
012746
010600

0000006
000002

7%:

000041
000042

0000006
040000 000012
0000006
000001

8s:

9%:

000001

000207

TRAP
TST

15
(SP)+

; SP,+

ggg

g%.#41

: COMMAND,«

gn:

83.042

. COMMAND,~

MOV
8.’;5
mov
MOV

RP.ADDR,RO
ggoooo.imo»
#EX.CMP, (SP)
#1,-(sP}

TRAP

108:

000010

3371

108

MOV
MOV

#1,=-(SP)
SP,RO

: SP,«

ADD

nMo,sp

TRAP

RTS

#CRLF , (SP)
15

:
H

3368
3369

;s SP,*

MOV

Pa?e

SP.RO

B8R

SEQ 0171

_DUAZ:[DOUCETTE.CZRCDJCZRCDZ.SRC:5 (35

SP,RO

MoV

0000006
062706

#EX.03,-(SP)
#2,-(SP)

MOV

104415

005726
020227
001403
020227
001015
013700
032760
001407
012716
012746
010600
106415

MOV
MOV

VAX-11 Bliss=16 V3=555

3368

3373

3345
3334

Routine Base: $CODES + 7404
113 words,
; Routine ize:
9 words
s Maximum stack depth per invocation:

‘e

!
!
!
!
!

THIS ROUTINE PRINTS (EXTENDED) ONE OF TWO BLOCK NUMBERS AFPEARING IN
THE CURRENT RETURN PACKET. NORMALLY, THE LBN FICLD IS PRINTED; THIS
FIELD WAS COPIED INTO THE RETURN PACKEY FROM THE ASSOCIATED COMMAND
ENVELOPE. HOWEVER, IF THE ‘'FLAGS'' FIELD OF [HE CURRENT RETURN PACKET
INDICATES ‘BAD BLOCK REPORTED'', THEN THE ‘‘FIRST BAD BLOCK'® FIELD IS

IMPLICIT INPUTS:

v
N

]
~

PRINTED.

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

;

BEGIN

T P O TR
PR PR PRPR
PRPR

TRTR
TR B

ROUTINE EMS_LBN : NOVALUE =

T
T
A

000000
000004
000010

; %;ESAD B8LOCK REPORTED

%:EEIT_TST (RP_ADDR L[FLAGS], EF_BBR)

PRINTX (EX_BB, .RP_ADDR [BBLK_L0J)

i **

BAD BLOCK REPORTED: XXXXX.''

PRINTX (EX_LBN, .RP_ADDR [LBN_L0));

LBN: XXXXX.'*

! OTHERWISE

! ROUTINE EMS_LBN

END;
013700
005769
100011

0000006
000014

.SBTTL

EMS.LBN:MOV
ggl

EMS.LBN ERROR MESSAGE SUBROUTINES

RP.ADDR,RO
}:(RO)

3392

CZRCDAO RC2S DISK EXERCISER
ERROR MESSAGE SUBROUTINES
000040

CZRCD2
v01.0

0000006
000002

1$:

0000006
000002

000054
000060

000207

2s:

000006

Routine Base:
; Routine Size:
25 words,
5 words
invocation:
per
: Maximum stack depth
3399
34600
3401
3402
3403
3404

ROUTINE EMS_BC
‘e

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34
40(R0) ,=(SP)
SP,RO

s SP,x

B8R

MOV
MOV

#EX.LBN,=-(SP)
#2,-(SP)

ADD

#6,SP

MOV

MOV
MOV

#EX.BB,~-(SP)
#2,-(SP)

TRAP

MOV

000050

SEQ 0172

Pa?e
VAX=11 Bliss=16 V3=555
(35
RC:S
DJCZRCDZ.S
,DUAZ:[DOUCETYE.CZRC

MOV

MOV
TRAP

RTS

SO(RO) ,-(SP)
SP,RO
15

: SP,t

0
3394

3392

3396
3390
3376

S$CODES + 7746

: NOVALUE =

THIS ROUTINE PRINTS (EXTENDED) BOTH BYTE COUNT FIELDS OF THE CURRENT
RETURN PACKET: THE BYTE COUNT FROM THE COMMAND ENVELOPE AND THE
ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THE RESPONSE ENVELOPE).
IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

BEGIN

PRINTX (EX_CBC, .RP_ADDR (CBCNT_LOY):
PRINTX (EX_BC, .RP_ADDR C[BCNT_LDJ);

'
i **

END;

! ROUTINE EMS_BC

EMS.BC: MOV

000002

MOV

#2,-(SP}

TRAP

1§

0000006

000020
0000006
000002

062706
000207

000012

; Routine Size:
23 words,
Routine Base:
7 words
; Maximum stack depth per invocation:

3416

EMS.BC ERROR MESSAGE SUBROUTINES

0000006

000044
000000G

000050
000054

.SBTTL

ROUTINE EMS_BD : NOVALUE =

MoV
Mov

MOV

BYTE COUNT IN COMMAND: XXXXX.''
ACTUAL # OF BYTES TRANSFERRED: XXXXX.''

RP.ADDR.RO

44 (R0O) ,=(SP)
#EX.CBC,=-(SP)

3412

SP.RO

;s SP,»

MOV

RP.ADDR,RO

3413

TRAP

3410

MOV
MOV
MoV

ADD

RTS

, (SP)
20(R0O)
#EX.BC,=-(SP)
#2,-(SP)

#12,SP
PC

$CODES + 10030

3399

E 14

11-Jul-1983 08 42:51
8-Jul-1983 3 17 :46:364

CZRCDAQ RC25 DISK EXER C ISER
ERROR MESSAGE SUBROUTIN ES

CZRCD2
v01.0

VAX=11 Blfes=16 V3=55

SEQ 0173
Pa?e

_DUA2:[DOUCETTE. CZRCDJCZRCDZ.SRC:S (35

THIS ROUTINE PRINTS (EXTENDED) THE TWO-WORD [/0 BUFFER DESCRIPTOR

APPEARING IN THE CURRENT RETURN PACKET.
IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

PRINTX (EX_B8D, .RP_ADDR [BUFF_0], .RP_ADDR [BUFF_11);

013700
016046
016046
012746
012746
010600

0000006
000026
000024
000000G
000003

062706
000207

000010

104415

! *'

1/0 BUFFE R DESCRIPTOR: XXXXXX(0) XXXXXX(0)''

.SBTTL

EMS.BD ERROR MESSAGE SUBROUTINES

MOV
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

26(R0) ,=(SP)
24(R0O) ,=(SP)
#EX.BD,=(SP)

EMS.BD: MOV

3426

RP .ADDR,RO

#3,-(SP)

: SP,«

SP.RO

15
#10,SP

3416

$CODES + 10106
Routine Base:
15 words,
6 words
; Maximum stack depth per invocation:

[ I EYR
TR PRIERIETYEIE
TRIR PR TN P

I NI NN X

: Routine Size:

000000
000004
000010
000014
000020
000024
000030

3427
3428
3429
3430

ROUTINE EMS_RP : NOVALUE =
¢

:
!

THIS ROUTINE IS RESPONSIBLE FOR PRINTING (EXTENDED) THE RELEVANT FIELDS
OF THE CURRENT RETURN PACKET.

BEGIN

COMMAND REFERENCE NUMBER
SuB-CODE

COMMAND (AND MODIFIER)
LBN OR BAD BLOCK NUMBE R
BYTE COUNTS
1/0 BUFFER DESCRIPTOR
' ROUTINE EMS_RP

3443

004737

000207

: Routine Size:

.SBTTL
EMS.RP: JSR
JSR
JSR
JSR
JSR
JSR
RTS

007260
007344
007404
007746
010030°
010106
13 words,

Routine Base:

; Maximum stack depth per invocation:

word

EMS.RP ERROR MESSAGE SUBROUTINES

PC.EMS.CRN
PC,EMS.SBC
PC.EMS.CMD
PC,EMS.LBN
PC,EMS.BC
PC,EMS.BD

SCODES + 10144

3444

;

000000
000004
000006

004737
104423
000207

W
gy

8-Jul-1

11=Jul-1

CZRCDAO RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

OO0
[T
W

F 14

VAX=11 Bliss=16 V3=55

SEQ 0174

_DUA2:[DOUCETTE. CZRCDJCZRCDZ SRC:S (36

BGNMSG (EMS_O1);
LSB8TTL

EMS.01 ERROR MESSAGE SUBROUTINES

TRAF
RTS

EMS.01: :JSP

000000V

Pg_MSEMS .01

3444

R LR X

Routine Base: $SCODES + 10176
: Routine Size: 4 words,
2 words
; Maximum stack depth per invocation:
3445
3446
Juld?
3448
3449

004737

i "MORE THAN XX. UNITS SPECIFIED'

PRINTB (EBS _01, MAX_UNITS);

ENDMSG;

000020
0000006
000002

062706
000207

000006

.SBTTL

MS$EMS.01 ERROR MESSAGE SUBROUTINES

JSR

PC,EMS.ET

MSEMS.01:

007174°

012746
012746
012746
010600
104414

ELAPSED TIME

EMS ET ();

MOV
MOV
MOV

MOV
TRAP

ADD

RTS

#20,~(SP)

#EBS.01,=(SP)
#2,-(SP)

3446

3447

SP.RO

; SP,*

#6,5P

3444

;

3450

Routine Base: $CODES + 10206
13 words,
; Routine Size:
5 words
: Maximum stack depth per invocation:

:
000000
000004
000006

3450
004737
104423
000207

: Routine Size:

BGNMSG (EMS_10);
.SB8TTL

EMS.10::JSR

000000V

TRAP

RTS

4 words,

EMS.10 ERROR MESSAGE SUBROUTINES

10
PC,MSEMS.
23

Routine Base: $SCODES + 10240
2 words

000000
000004

Y
&H

YR YRR

; Maximum stack depth per invocation:

PRINTB (EBD 10, .RC25_ADDR + .OF_R().

EMS

ELAPSED TIME

| "NO RESPONSE AT ADDRESS XXXXXX(0)*'

ENDMSG;

004737
013746

007174*
0000006

MSEMS.10:

JSR

MOV

MSEMS.10 ERROR MESSAGE SUBROUTINES

PC,EMS.ET

RC2S.ADDR, =(SP)

;

3452

3453

CZRCDAO RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2

v01.0

000010
000016
000020
000024
000026
000030
000034

063716
012746
012746
010600
104414
062706
000207

: Routine Size:
:

Maximum stack

3456

000000
000004
000006

004737
104423
000207

ADD
MOV
MOV
MOV
TRAP
ADD
RTS

0000006
000000y

000002

000006
15 words,

Routine Base:

depth per invocation:

5 words

SEQ 0175

JCZRCD2.SRC;5 (36?

VAX-11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZR(CD
OF .RC, (SP)

peeo 10,=(SP)

2.-(SP}
§p‘RO

: SP,x
3450

#6,SP
PC

$CODES + 10250

BGNMSG (EMS_12);
.58 T

000000V

EMS.i2: :JSR

TRAP
RTS

EMS.12 ERRgR MESSAGE SUBROUTINES

PC,MSEMS.1

3456

$CODES + 10306
Routine Base:
4 words,
: Routine Size:
2 words
: Maximum stack depth per invocation:

3457
3458
3459
3460
61

EMS ET

! ELAPSED TIME

();

i "INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXXX(0)'’

PRIRTB (EBD _12, .RC25_ADDR);

ENDMSG;

000000

004737

007174*

000004
000010
000014
000020
000022
000024
000030

013746
012746
012746
010600
104474
062706
000207

0000006
0000006
000002

000006

.SBTTL
MSEMS.12:
JSR
MOV
MOV
MOV
MOV
TRAP
ADD
RTS

MSEMS.12 ERROR MESSAGE SUBROUTINES
PC,EMS.ET

RC25.ADDR,~(SP)

#EBD.12,-(SP)

3458
3459

#2,-(SP)

SP.RO

14
#6,5P

3456

Base:
$CODES + 10316
Routine
13 words,
)
Routlne Size:
n:
S words
; Maximum stack depth per invocatio

.
000000
000004
000006

3462
(004737
104423
000207

BGNMSG (EMS_13);

000000V

.SBTTL
EMS.13::JSR
TRAP
RTS

EMS.13 ERR%R MESSAGE SUBROUTINES
PC.MSEMS.1

Base:
Routine
$CODES + 10350
.
n:
words
2
invocatio
per
: Maximum stack depth

; Routine Size:

3463

4 words,

3462

H 14

CZRCD2
v01.0

CZRCDAQ RC25 DISK EXERC!ISER
ERROR MESSAGE SUBROUTINES

11-Jul=-1983 08:42:51
8-Jul=1983 17:46:34

EMS ET ():

! ELAPSED TIME

EMS_SA ()

! PRINTX SA CONTENTS

VAX=-11 Bliss=16 V3=555

SEQ 0176

PB?C

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;5 (36

! “'STEP X READ ERROR ON DEVICE XXXXXX(0)''

PRINTB (EBD_13, .STEP, .RC25_ADDR);

ENDMSG;

004737
013746
013746
012746
012746
010600
104414
004737
062706
000207

.SBTTL

MSEMS.13jSR

007174
0000006
0000006
0000006
000003

MOV
MOV
MOV
MOV

007232°
000010

JSR
ADD

MOV
TRAP
RTS

MSEMS.13 ERROR MESSAGE SUBROUTINES
PCEMS.ET

RC2S.ADDR, = (SP)
STEP,=(SP)

#EBD.13,-(SP)
#3,-(SP)

SP.RO

14
PC,EMS.SA

R
&/

3465

: SP,»

;

3466
3462

EMS.14 ERROR MESSAGE SUBROUTINES
gg.HSEHS.14
:

34c9

#10,5P

;

17 words.
Routine Base: $CODES + 10360
: Routine Size:
6 words
; Maximum stack depth per invocation:
3469

000000
000004
000006

004737
104423

BGNMSG (EMS_14);
LSBTTL

EMS.14::JSR

000000V

TRAP
RTS

000207

: Routine Size:

4 words,

Routine Base: $CODES + 10422
2 words

; Maximum stack depth per invocation:

3470
3471
3472
3473
3474

000024
000030
000034

EMS ET ();

! ELAPSED TIME

EMS_SA ();

! PRINTX SA REGISTER CONTENTS

3475

ENDMSG;

004737

007174°

013746
012746
012746
010600
104414
004737
062706
000207

: Routine Size:

! ERROR CODE RECEIVED IN SA REGISTER OF DEVICE XXXXXX(0)'

PRINTB (EBD_14, .IRC25_ADDR);

MSEMS.14 ERROR MESSAGE SUBROUTINES

JSR

PC,EMS_ET

MOV
MOV
MOV

0000006
0000006
000002

Mov
TRAP

007232°
000006
15 words,

.SBTT

MSEMS.14:

JSR
A.D
RTS

Routine Base:

IRC2S5.ADDR,-(SP)

#EBD.14,-(SP)

#2,-(SP}
SP,RO

14
PC,EMS.SA

#6,5P
PC

$CODES + 10432

347
3472

: SP,*
:
:

3473
3469

CZRCDAD RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

; Maximum stack depth per invocation:

000000
000004
000006

VAX=11 Bliss=16 V3=55

3476

004737
104423
000207

: Routine Size:

004737

5 words

.SBTTL
EMS.15: :JSR

000000V

TRAP

RTS

4 words,

Routine Base:

2 words

EMS.15 ERROR MESSAGE SUBROUTINES
:
PC,MSEMS.15

3476

$CODES + 10470

! ELAPSED TIME

EMS ET (),

" “FAILED TO RECEIVE END MESSAGE FROM DEVICE XXXXXX(0)''

PRINTB (EBD_15, .RC25_ADDR);

' PRINTX COMMAND

EMS_CMD ().

ENDMSG;

LSBTTL
MSEMS.15:

007174°

013746
012746
012746
010600

000000G
000000G
000002

004737
062706
000207

007404°
000006

104414

_DUA2:[DOUCETTE. CZRCDJCZRCDZ SRC:S (36

BGNMSG (EMS_15);

: Maximum stack depth per invocation:

3477
3478
3479
3480
3481
3482

SEQ 0177
?

MSEMS.15 ERROR MESSAGE SURRUUTINES

JSR

PC,EMS.ET

TRAP

MOV
MOV
MOV
MOV

JSR
ADD
RTS

3478
3479

RC25.ADDR,=-(SP)
#EBD.15,-(SP)
#2,-(SP)
SP,RO

: SP,»

PC,EMS.CMD
#6,SP

H
:

3480
3476

EMS.16 ERROR MESSAGE SUBROUTINES
PC,MSEMS.16
H

3483

15 words,
Routine Base: $CODES + 10500
: Routine Size:
5 words
; Maximum stack depth per invocation:

H
000000
000004
000006

3483
004737
104423
000207

; Routine Size:

BGNMSG (EMS_16);

.SBTTL
EMS.16::JSR

000000V

TRAP

RTS

& words,

Routine Base: $CODES + 1053¢
2 words

o
O

W
&H

TR
TR
IR

; Maximum stack depth per invocation:

EMS ET ();

! ELAPSED TIME

EMS_STC ();
EMS_s8C ();

' PRINTX STATUS CODE IF NOT Z2ERO
' PRINTX SUB~CODE

PRIRTB (EBD_16, .CPLAT);

I “ERROR IN RESPONSE TO ONLINE COMMAND FOR PLATTER XxXxX.''

3490

ENDMSG;

004737

007174

013746
012746
012746
010600

0000006
0000006

004737
004737
062706
000207

007312"
007344
000006

104414

: Routine Size:

3691

004737
104423

MOV
MOV

000002

17 words,_

Routine Base:

5 words

N
gy

won

SEQ 0178

Pa?e

_DUA2:CDOUCETTE.CZRCDICZRCD2.SRC;5 36

PC,EMS.ET

CPLAT,=(SP)
#EBD.16,~(SP)

SP.RO
14

: SP,
¢

#2,-(SP}

JSR
JSR
ADD

PC,EMS.STC
PC.EMS. SBC
#6.SP

RTS

VAX=11 Bliss=16 V3=555

MSEMS.16 ERROR MESSAGE SUBROUTINES

MOV

MOV
TRAP

3485
3486

:
:
:

3487
3488
3483

3491

S$CODES + 10546

BGNMSG (EMS_17);

.SBTTL

EMS.17::JSR

000000V

TRAP

000207

: Routine Size:

8-Jul-1

.SBTTL
MSEMS.16:

. Maximum stack depth per invocation:

000000
000004
070006

11=Jul=1

CZRCDAQ RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

00
[1o
-]
W

J 14

RTS

4 words,

EMS.17 ERROR MESSAGE SUBROUTINES

PC HSEHS.17
23
PC

Routine Base: $CODES + 10610
2 words

: Maximum stack depth per invocation:

! ELAPSED TIME

0:;

PRINTB (EBD 17, .CPLAT);
EMS

! “PLATTER XXX. IS SW WRITE-ENABLED BUT HW WRITE~PROTECTED''

ENDMSG;

004737

000024
000030

007174

013746
012746
012746
010600

0000006
0000006
000002

062706
000207

000006

104414

; Routine Size:
: Maximum stach

3497

.SBTTL
MSEMS.17:

13 words,

JSR

BGNMSG (EMS_18);

CPLAT,=(SP)
#EBD.17,-(SP)
#2,-(SP)

TRAP

ADD
RTS

Routine Base:

5 words

PC,EMS.ET

MOV
MOV
MOV

MOV

depth per invocation:

MSEMS.17 ERROR MESSAGE SUBROUTINES
:

SP,RO

: SP,*

#6,SP

$CODES + 10620

3492
3494

34N

K 14

000000
000004
000006

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34

CZRCDAQ RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

004737
104423
000207

.SBTTL
EMS.18: :JSR

000000V

TRAP
RTS

SEQ 0179
Pa?e
VAX=11 Bliss=16 v3-555
_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC;S5 (36

EMS.18 ERROR MESSAGE SUBROUTINES
PC,MSEMS.18
:

3497

23
PC

$CODES + 10652
Routine Base:
4 words,
2 words
: Maximum stack depth per invocation:

' ELAPSED TIME

EMS ET ();
W

TR
YE IR LEY

; Routine Size:

i "ACCESS FAILED ON PLATTER XXX.'*

PRINTB (EBD_18, .CPLAT);

i PRINTX STATUS CODE IF NOT ZERO
i PRINTX SUB-CODE

EMS_STC ();

EMS_SBC ();

ENDMSG;

004737

007174

013746
012746
012746
010600

0000006
0000006
000002

004737
004737
062706
000207

007312°*
007344°
000006

104414

MSEMS.1

8.sam

MSEMS.18 ERROR MESSAGE SUBROUTINES

JSR

PCEMS.ET

MOV
MOV

#EBD.18,-(SP)
#2.-(SP}

TRAP

MOV

JSR
JSR
ADD

RTS

3499
3500

CPLAT,=(SP)

SP.RO

: SP,*

PC,EMS.STC
PC.EMS. SBC
#6,SP

:
:
:

3501
3502

;

3505

3497

$CODES + 10662
Routine Base:
17 words,
; Routine Size:
5 words
: Maximum stack depth per invocation:

H
000000
000004
000006

3505
004737
104423
000207

: Routine Size:

BGNMSG (EMS_19);

000000V

4 words,

LSBTTL

EMS.19 ERROR MESSAGE SUBROUTINES

RTS

EMS.19: :JSR
TRAP

PC ,M$EMS.19
23

$CODES + 10724
Routine Base:
2 words

N
N

o
0

3506
3507

; Maximum stack depth per invocation:

000000

EMS_ET ();

! ELAPSED TIME

EMS_RP ().

i PRINTX RELEVANT RETPKT FIELDS

i TPLATTER XXX. WENT OFFLINE"

PRINTB (EBD_19, .CPLAT):
ENDMSG:

004737

007174°

.SBTTL

MSEMS.19:

MS$EMS.19 ERROR MESSAGE SUBROUTINES

CZRCDAQ RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

000004

013746
012746
012746
010600

0000006
0000006
000002

004737
062706
000207

010144"
000006

104414

000034

11=Jul=1983 08:42:51
8=Jul=1983 17:46:34
JSR

MOV
MOV
MOV

MoV
TRAP

JSR
ADD
RTS

SEQ@ 0180

Pa?e
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC;S (36
3507
3508

PC,EMS.ET

CPLAT,=(SP)

ceao 19,~(sP)

2.~(SP}
sp‘RO

14
PC,EMS.RP

: SP,x

#6,SP

3509
3505

15 words,
Routine Base:
$CODES + 10734
: Routine Size:
words
5
invocation:
; Maximum stack depth per

000000
000004
000006

3512

004737
104423
L0207

BGNMSG (EMS_20);

000000V

.SBTTL

EMS.20 ERROR MESSAGE SUBROUTINES

TRAP
RTS

EMS.20::JSR

PC,MSEMS.20

23’

3512

b
b
b
-—bd e

VTNV,
¥ VY]

Y 1%1Y,1Y,1Y,

WNNUI
N N

4 words,
Routine Base: $CODES + 10772
: Routine Sir2e:
2 words
: Maximum stack depth per invocation:

ENDMSG;

004737

007174°

000004
000010

013746
012746
012746
010600

000000G
0000006

062706
000207

000006

000024
000030

i TDEVICE XXXXXX{0) NOT PROCESSING COMMAND PACKETS''

PRIRTB (EBD_20, .RC25_ADDR);

000000

104414

! ELAPSED TIME

EMS ET (O);

SBTTL

MSEMS.20 ERROR MESSAGE SUBROUTINES

JSR

PC,EMS.ET

MOV

#EBD. 20, ~(SP)
#2.-(SP)

ADD

#6,SP

M$EMS.20:

MOV
MOV

000002

MOV
TRAP
RTS

RC25.ADDR,~(SP)
SP.RO
14

3512

13 words,
Routine Base:
$CODES + 11002
: Routine Size:
5 words
; Maximum stack depth per invocation:

000000
000004
000006

3518

004737
104423
000207

: Routine Size:

BGNMSG (EMS_21);

000000V

4 words,

LSBTTL

EMS.21 ERROR MESSAGE SUBROUTINES

TRAP
RTS

EMS.21::JSR

Routine Base:

PC,MSEMS.21

$CODES + 11034

5518

LR TR

N FR TR XN X

; Maximum stack depth per invocation:

S8
e

W
-

4\4\

—_O
Nm

VAX=11 Bliss=16 V3-55%

SEQ 0181

Pa?e

_DUA2:CDOUCETTE.CZRCD JCZRCD2.SRC;S (36

2 words

EMS ET ();

PRINTB (EBD 21, .RC25_ADDR);

ELAPSED TIME

EMS _CMD ();

PRINTX (EX_DSC, .ST_CODE);

PRINTX COMMAND

"MESSAGE REJECTED BY DUP SERVER ON DEVICE XXXXXX(0)'
DUP STATUS CODE:

X.l.

ENDMSG;

004737

007174°

013746
012746
012746
010600

0000006
0000006
000002

004737
013716
012746
012746
010600
104415
062706

007404°
0000006
000000G
000002

104414

000050
000054

11=Jul=1
8-Jul-1

CZRCDAQ RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

OO
©0Co
NN

N 14

000207

.SBTTL

MSEMS.21 ERROR MESSAGE SUBROUTINES

JSR

PC.EMS.ET

MOV

#EBD.21,-(SP)
#2,-(SP)
SP.RO

MSEMS.21:

MOV
MOV
MOV
TRAP

JSR
MOV
MOV
MOV

Mov
TRAP

ADD

000012

RTS

3520
3521

RC2S.ADDR,=(SP)
14
PC,EMS.CMD

: SP,+

3522
3523

ST.CODE, (SP)

REX.DSC.~(SP)
#2,-(SP)

SP.RO

15
#12,5P

: SP,»
3518

Routine_Base: $CODES + 11044
23 words,
: Routine Size:
7 words
: Maximum stack depth per invocation:
.

000000
000004
000006

3526

004737
104423
000207

BGNMSG (EMS_22);

000000V

.SBTTL

EMS.22::JSR

TRAP
RTS

EMS.22 ERROR MESSAGE SUBROUTINES
Sg.MSEMS .22

3526

Routine Base: $CODES + 11122
4 words,
2 words
; Maximum stack depth per invocation:
LT TR IR X

: Routine Size:

000000
000004

000010

EMS_ET (),

ELAPSED TIME

! "TMNO RESPONSE FROM FRONT PANEL TEST EXECUTING IN DEVICE XXXXXX(0)'’

PRINTB (EBD 22, .RC25_ADDR);
ENDMSG;

004737

013746
012746

007174°*
0000006
0000006

.SBTTL

MS$EMS.22 ERROR MESSAGE SUBROUTINES

JSR

PC,EMS.ET
RC25.ADDR,=(SP)
#EBD.22,-(SP)

MSEMS.22:

MOV
MOV

3528
3529

N 14

CZRCDAO RCZ5 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0
000014
000020
000022

012746
010600

000002

13 words,

Routine Base:

: Maximum stack depth per invocation:

3532

3533
3534

:
:

3536
%g%g

3535

& words,

Routine Base:

OWN

3543

3544

3545

;

3548

;

2 words

PC,MSEMS.30
23
PC

ELSE

EBH_34, EBH 35 EBH 36,

' ELAPSED TIME
! “PLATTER XXX. = ''

; %;EgTATUS CODE IS WiTHIN RANGE

PRINTB (EX_SC, .ST_CODE);

! JUST PRINT STATUS CODE

! ELSE STATUS CODE OUT OF RANGE
! PRINTX OTHER RETPKT FIELDS

ENDMSG;

011202
011206
011206
011210
011212
011214
011216
011220

000000G
0000006
0000006
0000006
0000006
000000G
0000006
0000006

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000000G
000000

013746

3532

i PRINTB APPROPRIATE MESSAGE

%gzg EMS_RP ();

004737

;

PRINTB (.EBH_TB [.ST_CODE - 1)

EBH.TB: .WORD

000004

EMS.30 ERROR MESSAGE SUBROUTINES

%ZE((.ST_CODE GEQU 1) AND (. ST_CODE LEQU 11))

0000006

000000

3526

$CODES + 11164

011174

011176
011200

41);
EBH_37, EBH_38, EBH ‘39, EBH 40,
! TABLE OF BASIC, HARD ERROR MESSAGE ADDRESSES INDEXED BY STATUS CODE

EBH_TB: VECTOR [11] INITIAL (EBH_31, EBH 32,

3539 EMS ET ();
3540 PRINTB (PLATT, .CPLAT):
ggz;

; SP,¢

$CODES + 11132

TRAP
RTS

;
:
;

S words

EMS.30::JSR

: Maximum stack depth per invocation:

:
;

#6,SP

.SBTTL

104423
000207

; Routine Size:

ADD

SEQ 0182

Pa?e 00
VAX=11 Bliss=16 V3=555
_DUAZ:[DOUCETTE.CZRCDJCZRCD?.SRC:S (36

BGNMSG (EMS_30);

000000 004737 000000V

000004
000006

#2,-(SP)
SP,RO

RTS

000207

;: Routine Size:

MOV
MOV

TRAP

104414

000024 062706 000006
000030

11=Jul=1983 08 42:51
8~Jul=1983 17:46:34

007174°

0000006

EBH.31

.WORD
WORD

EBH.32
O

JSBTTL

M$EMS.30 ERROR MESSAGE SUBROUTINES

M$EMS. 30:
JSR

MoV

EBH.34
EBH.35
EBH.36
EBH.37
EBH.28
EBH.39
EBH.40
EBH.41

PC,EMS.ET

CPLAT,=(SP)

3539

3540

CZRCDAQ RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0
000010

012746
012746
010600
1614
91 .700

001413
020027
101010
006300
016016
012746
010600

0000006
000002

MOV
MOV

0000006

MOV

MOV
TRAP

8EQ

CMP

000013

BHI
ASL

MOV
MOV

011172
000001

104414

000410

010016

012746
012746
010600

1$:

0000006
000002

1044614

000110

SEQ 0183

Pa?e 10
VAX=-11 Bliss=16 v3=553
_DUA2:[DOUCETTE.CZRCD JCZRCD2.SRC.;S (36

005726
004737
062706
000207

010144’
000010

2%:

MOV
TRAP
BR
MOV

MOV
MOV

MOV
TRAP
TST

JSR
ADD
RTS

#PLATT,=(SP)
#2,-(SP)
SP,RO
14

: SP,*
3541

ST.CODE,RO
1$

RO.#13
1$

3543

(SP)
EBH.TB=2(RO),

#1,-(SP)

SP,«

SP,RO
14

3541

RO, (SP)
#EX.SC,=(SP)
#2,-(SP)

S:.RO

1
(SP)+
PC,EMS.RP

3545
SP,¢

3546
3532

#10,sP
PC

Routine_Base: $CODES + 11222
37 words,
: Routine Size:
7 words
: Maximum stack depth per invocation:
3549

000000
000004
000006

004737
104423
000207

BGNMSG (EMS_42);
.SBTT

EMS.42::JSR

000000V

TRAP
RTS

EMS.42 ERRgR MESSAGE SUBROUT!NES

3549

PC,MSEMS.4

000000

000004
000010
000014
000020

NOWVSBWN=O

N NN NN NN W

Viuvanivviwv
ViAW

4 words,
Routine Base: $CODES + 11334
: Routine Size:
2 words
; Maximum stack depth per invocation:

EMS ET ().

PRINTB (PLATT

ELAPSED TIME
“'PLATTER XX«

.CPLAT);

*HOST-DETECTED URITE-COMPARE ERROR'’

PRINTB (EBH_42);

PRINTX LBN

EMS_LBN ();

EMS_BC ();

PRINTX BYTE COUNTS

ENDMSG;

.SBTTL

004737

007174°

HSEMS.AZJSR

013746
012746
012746
010600

0000006
0000006
000002

MOV
MOV
MOV
Mov

MSEMS.42 ERROR MESSAGE SUBROUTINES
PC,EMS.EY

CPLAT,-(SP)

#PLATT,=(SP)
#2,-(SP)

SP,R0

SP,»

c15

000022

000054

104414

000207

000000
000004
00C006

3558

004737
104423
000207

8-Jul-1983 17:46:36¢

TRAP

MOV
MOV

0000006
000001

MOV

TRAP

JSR
JSR
ADD

007746°
010030°*
000010

RTS

Routine Base:
; Routine Size:
23 words,
6 words
: Maximum stack depth per invocation:
:

11-Jul-1983 08:42:51

CZRCDAO RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES

CZRCD2
v01.0

VAX=11 Bliss=16 V3-555

sta o186

v bage 102

_DUA2:[DOUCETTE.CZRCDICZRCD2.SRC;S (76

3553

FEBH.42, (SP)
#,-(SP)

;

?:.RO

: SP,»

PC,EMS.LBN
PC EMS.BC
»10,sP

;
:
:

3554
3555
3549

3558

$CODES ¢+ 11344

BGNMSG (EMS_43);
.SBTTL

EMS.43::JSR

000000V

TRAP
RTS

EMS.43 ERROR MESSAGE SUBROUTINES

SgMSEMS .43
PC

EMS_ET

PRINTB (PLATt

ELAPSED TIME

‘PLATTER XXX.
=

.CPLAT);

*FAILED TO RECE!VE END MESSAGE FOR 1/0 COMMAND''

PRINTB (EBH_45);

PRINTX COMMAND (AND MODIFIER)

EMS CMD ();
PRINTX (EX_LBN, .RP_ADDR [BBLK_LO0J):

PRINTX LBN

PRINTX BYTE COUNT
PRINTX 1/0 BUFFER DESCRIPTOR

EMS_BD ();
ENDMSG;

.SBTTL

MSEMS.43 ERROR MESSAGE SUBROUTINES

MOV

R1,-(SP)
PC,EMS.ET
CPLAT,=(SP)

H
:
H

?Q.RO

: SP,»

#EBH.43, (SP)

JSR

0067174

000054

STATUS FIELD HOLDS MODIFIER (IF ANY)

RP_ADDR [CMDMOD) - .RP_ADDR [STATUS];

MSEMS.43:

000026
000032
000036
000040
000042

PRINTX COMMAND REFERENCE NUMBER

EMS _CRN ();

PRINTX (EX_CBC, .RP“ADDR [BCNT_LOD):

eS80

0800t

Routine Base: $CODES + 11422
4 words,
: Routine Size:
2 words
Haxtmum stack depth per invocation:

012716
012746
010600
104414
4737

0000006
0000006
000002

MOV
MOV
MOV

0000006
000001

MOV
MOV

007269"
0000006

JSR
MOV

PC,EMS.CRN
RP ADDR,R1

MOV

16(R0).12lR1)

000016

MOV
TRAP
MOV
TRAP

000012

MOV

#PLATT ,=-(SP)
#2,-(SP)

"M, -(SP)
?PRO
RO

3558
3560
3561

3562

: SP,»
:
:

: RP.ADDR,*

3563
3564

11-Jul=1983 08:42:51
8-Jul-1983 17:46:36

§°
=33 REEEEEE

0001

(-3 ele

CZRCDAO RC25 DISK EXERCISER
ERROR MESSAGE SUBROUTINES
004737
013700
016C16
012746
012746
010600

007404
0000006
000040
0000006
000002

JSR
MOV
MOV
MOV
MOV
MOV

PC.EMS.CMD
RP.ADDR, RO
40(R0), (SP)
aex LBN, = (SP)
2.-(SP}
sp‘RO

013700
016016
012746
012746
010600

0000006

MOV

RP.ADDR,RO

000002

MOV

004737
062706
012601
000207

010106*
000020

104415

; Routine Size:

53 words,

TRAP

Be ®s S

3571
3572
3573
3574

11 words

MOV

SP.RO

: SP,®

JSR
ADD

PC,EMS.BD
#20,sP

:
.

RTS

#2,~(SP}
15

(SP)+,R1

$SCODES + 11432

END
ELUDOM
0TS external references

.GLOBL
.GLOBL

$SAVES, $SAVE4, $SAVE3, $SAVE?2

BLSMUL

PSECT SUMMARY

Attributes
RO, I .,
RO, D .,

Words
2498
487

Psect Name
$CODES
$PLITS

REL,
REL,

LCL,
LCL,

CON
CON

LIBRARY STATISTICS

File

_DUA2:[DOUCETTE.CZRCDICZRCDL.L16.9

gmmeeees Symbols =======-

Blocks

Total

Loaded

Percent

276

204

COMMAND QUALIFIERS

BLISS /PDP11 CZRCD2.SRC/LIST/EN:NOEIS

: Size:

; Run Time:
; Elapsed Time:

2358 code ¢+ 627 data words
01:28.3
01:58.0

396 pages
: Hemor{ Used:
: Compilation Complete

3565

3566

; SP,*

)
, (SP)
20(R0
#EX.CBC,~(SP)

MOV
Routine Base:

?e 103
VAX-11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD2. sac 5 (36

MOV
MOV

TRAP

: Maximum stack depth per invocation:

SEQ 0185

Read

3567

3568
3558

E 15

CZRCD3
:

11=Jul=1983 08:44:52

8-Jul~1983 17:43:57

0001

0002

0004

IDENT = *v01.0°,

ADDRESSING _MODE * (ABSOLUTE)
BEGIN

)

0006
0007
8822

:
:

0045 LIBRARY *CZRCDL®;
?ggg REQUIRE °*BLSMAC.REQ‘;

} ggg

:
:
:

1538
1539
1540

:
:

1542
1543

1541

1544

:
:

1545
1546

1548

:
:

1547

1549

1550
1551

_DUA2:[D

XTITLE 'czncvo RC2S DISK EXERCISER®

:
:
:

VAX-11 Bliss=16
V3=555
Page
OUCETTE.CZRCDICZRCD3.SRC;3 (1)

(
MODULE CZRCD3

0003

0005

SEQ 0186

XSBTTL "DECLARATIONS'®

! RC25 EXERCISER GLOBAL LIBRARY
' DIAGNOSTIC SUPERVISOR LIBRARY

EQUALS:;

FORWARD ROUTINE
INIT TEST : NOVALUE,

DRIVER _INIT : NOVALUE,

CTCR_INIT : NOVALUE.
INI CTLR DAT : NOVALUE,
REG_EXIST,

VEC_BR TEST,
INTCGER,
HARD_INIT,

IN] RR:NG NOVALUE,

SET"CTLR_CHAR : NOVALUE,

UNIT_INIT : NOVALUE,
ACCESS : NOVALUE,

! ROUTINES APPEAR IN THIS ORDER
!
INDENTATION IMPLIES CALLED SUBROUTINE
! INITIALIZATION SUBTEST

=2 OO0 NOWN
W

d
b o
D
i
i
ed e
b e
b

WA
AWANANNIIWN
OO VYN VWAIWIWAWAWA

8090 0. V099 00 0000 Vs Bs8s Gy Ty 8o O 80 e TR YR IR IEIEIETEYE

R YR YR AR YO NI NI RO KON WY

F 15

DM_EXER : NOVALUE,
DM_INIT : NOVALUE,
DM_QUIT,
DM_RETPKT : NOVALUE,
DM_MSG : NOVALUE,

! DM EXERCISER SUBTEST

DM_ACC,

DM_TALLY : NOVALUE,
UPD_DMBC : NOVALUE,
DM_TIMETM: NOVALUE,

MULTI BRIVE : NOVALUE,
MB_INIT : NOVALUE,

! MULTI-DRIVE SUBTEST

INIT_IO_BUFF : NOVALUE,

Q10_0K,

mp BuIT,
QID_GEN : NOVALUE,

GET_RANDOM : NOVALUE,

QIO_UNIT : NOVALUE,
QIO_FUNC : NOVALUE,
QIO_LBN : NOVALUE,
ADV_BST : NOVALUE,

Q10 SIZE : NOVALUE,
FILL BUFF : NOVALUE,
PROC_RETPKT : NOVALUE,
TO_RETPKT : NOVALUE,

FSET_UPAR : NOVALUE,

MD TALLY : NOVALUE,
HOST WRT CHK : NOVALUE,
TMP_DATA,
SWEEP : NOVALUE,
RPS -

"‘

DR_RETPKT : NOVALUE,

DRV_TIRCHK : NOVALUE,

RCINTO
RCINT1
RCINT2
RCINT3

=
:
:
:

LSISR NOVALUE,
LSISR NOVALUE,
LSISR NOVALUE,
LSISR NOVALUE,

! RC25 INTERRUPT SZRVICE ROUTINES

SEQ 0187

615

CZRCD3
v01.0

;
:

1588
1589

CZRCDAOQ RC25 DISK EXERCISER
DECLARATIONS

: NOVALUE,
RCINT
INT_PROC : NOVALUE,

ISET CPAk : NOVALUE,

1590

FATAC ERROR : NOVALUE,
POLL_CRING : NOVALUE,

1591
1592

:
:

POLL_RRING : NOVALUE,

1593

ENV_TO_RP : NOVALUE,
DATAGMTM: NOVALUE:

1594
}ggg

:
:

11=Jul=1983 08:44:52
8-Jul-1983 17:43:57

}ggg PSECT OWN = $GGGS (READ, NOWRITE, EXECUTE, LOCAL, CONCATENATE);

1599

1600

:
:
:
:

1604
1605
1606
1607

:
:
:

:
:
:
:
:
:
:
:
:
:

OWN

1601 !
1602
1603 !
1608

1609
1610
1611
1612

1613

!
!
!

16146
1615
1616
1617

:
:

1619
1620

:
:
:
:
:

1625
1626
1627
1628
1629

:
:
:
:

1618

1621
1622
1623
1624

1630

COMM AREA : BLOCKVECTOR [MAX CTLR, COMM LEN, WORD] FIELD (COM_FIELDS),

0/Q PORT COMMUNICATIONS XREA BETWEER HOST AND RC25 CONTROCLERS
B8ST : BLOCKVECTOR [MAX UNITS, BST_LEN, WORD] FIELD (B_FIELDS),
BLOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS. RANDDM SEEK) MODE
t DATA PATTERN SEQUENCE TABLE
DPST : VECTOR [MAX UNITS, BYTEJ,
1COM_ADDR : REF BLOCK [COMM_LEN, WORD) FIELD (COM_FIELDS),
XDDRESS OF INTERRUPTING CONTROLLER'S U/Q PORT COMMUNICATION AREA
IENV_ADDR : REF BLOCK CENV_LEN, WORD) FIELD (E_FIELDS),
KDDRESS OF AN MSCP ENVELOPE (INTERRUPT PROTESSING)
1CST ADDR : REF BLOCK CCST_LEN, WORD) FIELD (C_FIELDS),
KDDRESS OF INTERRUPTING CONTROLLER'S CST
IDCT ADDR : REF BLOCK [DCT_LEN, WORD) FIELD (DC_FIELDS),
KDDRESS OF INTERRUPTING CONTROLLER'S DCT

INT_ADDR : VECTOR [MAX_CTLR) INITIAL (RCINTO, RCINT1, RCINT2, RCINT3),
INTERRUPT SERVICE ROUTINE ADDRESS TABLE
! INTERRUPTING CONTROLLER NUMBER
ICTLR : WORD,
MSCP ENV INDEX FOR FIRST QIO
i
MX1 : SIGNED WORD,
MSCP ENV INDEX FOR SECOND QIO
i
MX2 : SIGNED WORD

(E_FIELDS),
MAD1 : REF BLOCK CENV_LEN, WORD] FIELD QI
ADDRESS OF MSCP ERVELOPE FOR FIRST
MAD2 : REF BLOCK CENV_LEN, WORD) FIELD (E_FIELDS),

ADDRESS OF MSCP ERVELOPE FOR SECOND Q10
! CURRENT DEVICE'S VECTOR ADDRESS
VEC_AD : WORD,
i CURRENT DEVICE'S BR LEVEL
BRLEVEL : WORD,
i UNIT SIZE (NO. OF LBN'S)
USIZE : WORD,

DM _TIMR : VECTOR [MAX_CTLR],
SWEEP _FLAG : BYTE,
ROM CRT : WORD INITIAL (RDM_LEN),
RANBOM : VECTOR [RDM_LEN, WORD],
PATO2 : VECTOR [2] IRITIAL (1,
20°000000°),

i TIMERS FOR ONE PASS OF FRONT PANEL TEST (DM EXER)
i CALL 7 DON'T CALL SWEEP () (MULTI-DRIVE SUBTEST)
\ KEEP
i NUMBER OF RANDOM NUMBERS
i RANDOM NUMBER TABLE (PATTERN 1) / TOGETHER
! PATTERN 2

1631

PATO3 : VECTOR [2] INITIAL (1,

! PATTERN 3

1633

PATO4 : VECTOR [2] INITIAL (1,

! PATTERN &

1635

PATOS : VECTOR [2] INITIAL (1,

! PATTERN §

1637

! PATTERN 6

1639

PAT06 : VECTOR [2] INITIAL (1.
%0°030221'),
PATO7 : VECTOR [17] INITTAL (16,

! PATTERN 7

1644

PATO8 : VECTOR [17J INITIAL (16,

! PATTERN 8

:
:

.
:
:
:

1632
1634

1636
1638

1640
1641
1642
1643

20°177777),
20°105613"),

20°031463"),

20°000001°, %0°'. 203', X0'000007°, %0'000017°,
20°000037°, 20°'000077°, %0°000177°, %0°'000377°,
20°000777°, 20°001777', %0°'003777°, %0°'007777°,
20°'017777°, %0°'037777°, X0°'077777*, %20°'177777%),

SEQ 0188

Page
VAX-11 Bliss=16 V3~555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (2)

-®

I MIWN o

VOO NV

SREE

b md b

20°177770°, 20°'177760°,
%0°'177600°, 20'177400°,
20°174000°, X0:170000°
%0°'100000°, 0°000000*5,

20'000000°, 20° 000000' 20°000000°, X0°177777°,
X0 177777°, x0*177777°, %0°'000000°, X0°'000000°,
x0*1727777°, x0°177777°,
%0°'000000°, %0'177777°. !0 000000°, X0'177777°,
X0'000000°, X0°177777°)
PAT10 : VECTOR [2] INITIAL (1,
X0°*133331'
PAT11 : VECTOR [17] INITIAL (16,
20°'052525°, 20°'052525°, %0'125252°,
52, 20'052525°, %0°052525°,

PAT1? :

PAT13 :
PAT14 :

PAT15 :

PAT16 :

PAT17 :

52'),
(20
20°026455°, ’%0°026455°, 20°151322°,
20°151322°, 20°026455°, %0°026455°,
. X0'151322°, 20'026455°, 20°026455°,
20
%0°151322". 20'026455°, 20°151322°', 20°'026455°,
20°'151322°, 20'026455°, %0°151322°, %0°026455°*)
VECTOR [2] INITIAL (1,
20'066666°)
VECTOR [17 17 INITIAL (16,
10°000001°, 20°000002°, 20°000004°, 20°'000010°,
. 20°000100°, 20°000200°,
© 20°'000040°
’ 20°001000°. %0°002000°, 20'004000°,
%0°010000°, 20" ozoooo' 20'040000°, 20°'100000*)
VECTOR_[17 5 INITIAL (16,
20°177776°, 20°177775°, ‘20°177773°, 20°177767°,
20°177757°, 10177737, 20°177677°, 20°177577°,
. X0°175777°, 20’ 173777'
X0'177377°, X0°'176777"
7'
15777
20°'137777°, 20077777
X0'167777° x0°
.16,
VECTOR (17 3 InIT
. %0°'133331°, 20'15555¢4°',
%0°'133331°, 20°
,
. %0°133331°, %0°'133331°,
%0°155554°
X0°1555564°,
. %0°133331°, %0°'15555¢4°,
20°133331°,
°
20°'133331

VECTOR [22.'l

10 106466°, 20°'071311°,
466°, 20°'106466°,
20° 071311' 20°'071311°,
. X0°106466°,

20°000000°,
20'071311°,
20'106466°',
20°'071311°,
. %0°106466".
!0'106466'S
20°106466'
PAT18 : VECTOR [22 17 INITIAL (21,
. !0’071311'
20°106466°, %0°000000°
20°106466°
. 20°106466°, 20°'071311°,
%0°106466°,
,
. 10°'071311°, 0°106466°,
°
1311°
%0'071311
20'07
20°106466"
. 20°'106466°, 20°106466°',
20°'106466°,
,
1311"
0°071311°, 20'071311°,
1311°
20'07
x0°07
11°5,
11°
20°0713
20°'0713
PAT19 : VECTOR (22 5 INITIAL (21

SEa 0189

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (2)

! PATTERN 9

! PATTERN 10

! PATTERN 1"

52°,
52°, 20°052525°, %0'125252°,

b o

o
o

20°177774",
X0°'177700°,
%0°'176000°,
20° 140000'

VAX=11 Bliss=14 V3=553

! PATTERN 12

! PATTERN 13
! PATTERN 14

! PATTERN 15

! PATTERN 16

! PATTERN 17

! PATTERN 18

P He

NNI=20O 000NN

oo~

e
e ood e
b o

b b

b e

oooororOrO OO

TEYRIEIERIATE SRTR YR XN FR FN ¥
PRPR PRYA T E N N [
A
AR
T T E R IR IR

X0°177776°,
20°'177740°,
%0°'177000°,
%0'160000°

: VECTOR [173 INITIAL (16,

X I

E TR

PATQ9

R IRTR
A TR TR PR TR TR PRFR TR
A
S
N
E
AR
EER

8-Jul-1983 17:43:

DECLARATIONS

~Nn

CZRCDAO RC25 DISK EXERCISER

CZRCD3

v01.0

11=Jul=1983 08:44:

wviwn

H 15

! PATTERN 19

115

CZRCDAO RC25 DISK EXERCISER

DECLARATIONS
;

;

:
;
:

1702

1703

1704
1705
1706

1714

:
:
;
:
:

:
:

:
:
:
.

20°'000000°', %0°134631°, %0°134631°, X0°043146°,
20°'063146". 30°043146°. 30°134631°, 10°134631°,
X0°'134631°'. X0'134631°. ¥0°0463146', %0°043146°,
20°'043146°. %0°043146°, %0°063146°, %0°'134631°,
%0°134631", %0'134631°, 20'134631*, 0'134631°,
20°134631°, 20°000000°, %0°043146°,
20°'134631° %0°134631°, X0°134631°, 20°043146°,
20°043146°. %0°043146'. X0°043146°, %0°134631°,
20°134631°'. X0°134631°. %0°134631', %0°134631°,
X0'043146°, %0°043146° xo 043146°. %0°043146°,
20°'043146". 20°043146')

PAT21 : VECTOR [23 INITIAL (1,
20°000000°*)

1715
1716

DPA_TBL : vecroa COP _CNTJ INITIAL
(RDM_CNT, PAT02, PAT03, PATO4, PATOS,

1717
1718

1719
1720
};%}

8-jul=1983

PAT20: VECTOR £22] INITIAL (21,

1709
1710
1711
1712
1713

! PATTERN 20

! PATTERN 21
(LBN)
i

! DATA PATTERN \DDRESS TABLE

PATOZ. PATO7, PATO8, PAT09, PAT10, PAT11,
PAT12. PAT13. PAT14. PAT1S. PAT16. PAT17,
PAT18. PAT19. PAT20. PAT21),

VAX-11 Bliss=16 V3=555
OUCETTE.CZRCDICZRCD3.SRC;3 <2>
_DUA2:[D

11=Jul=1983

20°' 134631

1707

1708

SE@ 0190

1723

THE FOLLOWING CODE IS THE CROM PRIMER WHICH WAS DEVELOPED

};%2

;

“DMCONV'', PRODUCING THIS COMPILABLE VECTOR.

1724

1727

1729

1728

1730
1731

INDEPENDENTLY. ITS BINARY .SAV FILE WAS RUN THROUGH THE PROGRAM

CROMP:VECTORL206,WORD]

PRESET (

(0]

%0'000140',

! THIS IS THE DM PROGRAM BYTE COUNT.

10°000000°,

:
;
:
:

1732
1733
1734
1735

[2)
(3]
(4]
[5)

=
=
=
=

%0'000472'.
%0°'000000°.
20'051103'.
%0°'046517'.

! THIS IS THE DM OVERLAY BYTE COUNT.

:
:

1737
1738

(7]
[8)

=
=

¥0°'000001°.
%0'000013'.

! THIS IS THE PROGRAM VERSION
i UPPER BYTE=TIME OUT VAL. LOWER = FLAGS

1746

[16]

20°104206°,

' DM CODE STARTS HERE

:
:
:
:
:
:
:

:
:
:
:
:
:
:
:
.
:
:
:

1736 [6]

1739
1740
1741
1742
1743
1744
1745

1747
1748
1749
1750
1751
1752
1753
175
1755
1756
1757
1758

9]
(103
[11]
[12
[133
[14]
[15)

[171
[18]
[193
[203
(211
(221
[23]
[24)
[25)
[26]1
[27]
[28]

= %0°'020120°.
=
=
=
=
=
=
=

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

%0°'000000°.
%0°'000000°.
20°'000000°,
%0°'000000'
%0°'000000°.
%0'000000°.
%0°000000°.

%0°007760°.
%0°002754°'.
%0°'000000°,
%0°'000000°.
%0°'000000°,
X%0°'000000°,
%0°000000°.
%0°'000000°.
%0'000235°,
%0°'000000°,
%0'000000°,
20'104204°,

! NEXT 3 WORDS = PROGRAM NAME (ASCII)
| PROGRAM NAME IS ‘CROMP °

£29]
£30]
£31]
€321
[33]
£34)
£35]
£36]
€371
[38]
£39]
£40]
[41]
[42]
£43)
[44]
[45)
[46]
[47]
[48]
[49]
£50]
£51]
£52]
£53]
[542
£55)
£56]
€571
£58]
£59]
£60]
£61]
£62]
[63]
£64]
£65]
[66]
£67]
£68]
£69]
€70]
£71]
[72]
£73]
£74]
£75]
£76]
£771
[781
£79]
£80]
£81]
£82]
[83]
[84]
£851

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

%0°'007774°,
%0'104140°,
%0'002752°,
%0°106204°,
%0'002751°,
%0°104203*,
%0°007000°,
%0'104647°,
%0°'000001°,
X07104641°,
%0'000002°,
%0°104142°,
%0°'060020°,
%0°102207°,
%0'000037°,
X0°'052754°,
%0°'104077°,
20!007006°,
%0'032395°,
%0°000000°.
X0°'000000°,
%0°'000000°.
%0°000000°
%0°000000°,
%0°000000°,
20°104207°,
%0°007000°,
%0°106201°,
%0'000002'.
%0°'104202°,
20°'002740°,
20°'107027°,
X0°'107017°,
%0°'105012°,
X0°'060011°,
%0°'027107°,
20°027203°,
%0°027146°,
20°114000°,
%0'007005°,
%0°'11400C°,
X0°007776°,
X0°'114000°,
20°'007776°,
%0°'104077°,
%0°'104206°,
20'007760°,
%0°104301°,
%0°007005°.
%0°104610°,
%0°'007234°,
20°007767°,
%0°115000°,
%0°'007767°,
20'077076°,
%0'027120°,
%0°104200°,

' DM OVERLAY CODE STARTS HERE

~Nr0

Viwn

-1
11=Jul
8=Jul-1

4
NO

CZRCDAO RC25 DISK EXERCISER
DECLARATIONS

OO
Coon
[V LV ]

J 15

VAX=-11 Bliss=16 v3~-555

Sea 0191

_DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (2)

b wd

L
b

b wd amd b b

=20 000 ~NONWN NN

=, OO0000000

—

£101]

Lob i
L
i L L Lob Le oe Lb L ad L e L ad Lob Lb L
U L L
e cmd e b wed e
b b b b D

VS W

et e o e e e e A e A R o ol Al e e e et e e e e e e e e e e e el L e e b L e e e e d
i

N = O VNS
NN =O

b d b b d b cnd wd

b and wed b

b b —d
£ NN W N NN NN N NN ANININININININININY
FIIIIIINIS O
WA = O 000 ~NO
VANV
NN 2O CO~NOWVIES

CO N
VIS NN = OO0 NS W
u%NNNNNNNNN—d—ld-&—-A-n

b cd

Lo Lo Lt Lo Lam L L

b and wd wed b cod cub

D NWWNN
NN NG IW

b wud cnd wud

BN B

B o on o L L L L

86
8
O ON VAT AL
NN 2O VN
WNO=O Vo~ OV

) b

dd—l—l-fl—l—i—l—l—i—l—l—l—l—.d—l-—l—ld—l b o

[0 Jo Yo Yo Jo To To To To To To 1o

CZRCDAQ RC25 DISK EXERCISER
DECLARATIONS

20°'007051°,
20°002750°,
20°'002740°,
%0°027146°,
%0'115000°,
%0°007265°,
%0'057051°,
20°104200°,
X0°177777°,
20°007004°,
20°'027130°,
20°027146°,
20°'115000°,
20°007265°,
20'017071°,
20°'114000°,
%0°007004°,
20'027130°,
X0'007051°,
X0'027162°,
20°027203°,
20°114000°,
%0°007264°,
20°027216°,
20°'115400°,
20°'007005°,
20°106200°,
20°000003°,
%0°007005°,
20'037031°,
20°114000°,
20°007005°,
20°007031°,
20°104207°,
20'007002°,

20°'104201°,
20°'00N0N5°,
20°060031°,
20'104010°,
20°007001°,
20°000000°,
20104307,
20°'007002°,
20°105207°,
20°000060°,
20°114001°,
20°'104202°,
20°000001°,

~Nr

P 0%

(VP

4
~Oo

heodod
©o 0o
W

11=Jul=1

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (2)

VAX=11 Bliss=16 V3=55
SEQ 0192
Page

20°104203°,
%0°'007004°,

20'007002°,
%0°114001°,
20'104202°,
20°000032°,
20°104203°,
X0'007234°,
20'060020°,
%0'102207°,
20'000037°,
%0°057146°,
20'000000°,
%0'104200°,
20°'000004°,
X0'007000°,
%0°104207°,

%0°002743°,
20°104301°,
%0°007001°,
%0°104272°,
20°105€12°,
20°'007240°,
20'100612°,
20'007240°,
20°115401°,
20°117400°,
20°'007000°,
x0'037171°,
20'000000°,
%0'114000°,
20°002743°,
20°114000°,
20°002744°,
20°114000°,
20°'002745°,
%0°114000°,
20'002746°,
X0'114000°,

NNOOCCOOCOO
OO O NWTVIWVTWN NN S BN SN S8

WR = OO 00NN
WA= O000 O
wmmgmmmmwwwwwwww
NO N NN =000 NN
AR
= OOV
ol o el b o et o e e e e el e el e e el e e e e e e e e el e e e e Ll e W e L L e L e
e e e

e e

00 0OV VOO0
D OO NOMWNA
S NN -—b

V00NN
NN — OVONOWVSNN=O

=d b b b = b =d =
NN ANONONININDN)

d md ed e e e

i e

b e

b wd

OO 00O

b amb mnd i

TR IR I AIAIEITE

IR ISR T

TR YL Y T
X 800000500800V
B Ve VaVe Ve B¢ VeV Ve B 000y [(YETYETIEIERTETSTE IR YR YR TR Y I

20°'007240°,
20°'060021°,

~NrN0

S
(V2

8-Jul-1

~G0o

DECLARATIONS

11=Jul=1

CZRCDAO RC25 DISK EXERCISER

L 15

SEQ 0193
Page
vVAX-11 Bliss=16 V3-55 b)
_DUA2:[DOUCETTE.CZRC DIJCZRCD3.SRC;3 (2)

CZRCDAO RC25 DISK EXERCISER
DECLARATIONS
[200)
£201]
[202]
(203
[204]
{205

CST : BLOCKVECTOR [MAX CTLR, CST_LEN, WORD] FIELD (C_FIELDS),
RUN-TIME CONTROLLER STATUS TABLES
CST_ADDR : REF BLOCK [CST_LEN, WORD] FIELD (C FIELDS),

CONTROLLER STATUS TABLE ADDRESS OF ‘‘CURRERT'* CONTROLLER

DCT : BLOCKVECTOR [MAX_CTLR, DCT_LEN, WORD] FIELD (DC_FIELDS),
DRIVER CONTROLLER TABLES
DCT_ADDR : REF BLOCK [DCT_LEN, WORD] FIELD (D¢ FIELDS),

ADDRESS OF "‘CURRENT'* BRIVER CONTROLLER TABLE

RC25_ADDR : REF RC25 FIELD (RC _REG),

DEVICE ADDRESS OF ‘‘CURRENTTM CONTROLLER
IRC25 ADDR : REF RC25 FIELD (RC_REG),

EEEEE

DEVICE ADDRESS OF INTERRUPTING CONTROLLER
DM_COMM : BLOCKVECTOR [MAX_CTLR, DMC_LEN, WORD] FIELD (DMC FIELDS),

DM EXERCISER COMMUNICATION AREA TLINK TO FRONT PANEL TEST)

DMC_ADDR : REF BLOCK [DMC _LEN, WORD] FIELD (DMC FIELDS),

ADDRESS OF CURRENT CONTROLLER'S OM EXERCISER COMMUNICATION AREA

!
Ba Vg B Ve Ve Ve 0, 0000000085 %% %0%00,0%00%08,96%0 0,0, MR

X0'102207°,
X%0'000037°,
20°057216°,
X0°000000°,
X0°143367°,
%0°'000000°):

! PATCH AREA
PATCH : VECTOR [100, WORD],
CPT : VECTOR [MAX_UNITS, BYTE],
CURRENT PASS TESTING (YES / NO) PER UNIT

e 0

=
=
=
=
=
=

11-Jul=1983 08:44:52
8-Jul=-1983 17:43:57

EXTERNAL

R PR PN PR PRR IR IR SR

A IR S LN ¥

CZRCD3
v01.0

RP_SAVE : VECTOR [MAX_CTLR = RPS_LEN, BYTE, SIGNED],
RETURN PACKET SAVE ARCA

RPS_X1 : WORD,

RPSTMX2 : WORD,

!
!

! STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA

i ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA

OUTT _LIST : VECTOR [MAX_CTLR * OUTC_CNT, BYTE, SIGNEDI],

GUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES)

OUTC_TIMR : VECTOR [MAX_CTLR « OUTC_CNT, WORD],
OUTSTANDING COMMANDTMTIMERS
OCL_X1

: WORD,

ocL ggARraggol~oex OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA

!
!

ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA
TALLY : VECTOR [MAX _UNITS = TALLY_LEN, WOURD] FIELD (T_FIELDS),
STATISTICS TABLES
T_ADDR : REF BLOCK [TALLY_LEN, WORD] FIELD (T FIELDS),

ADDRESS OF STATISTICSTTABLE (TALLY) FOR CORRENT UNIT

MSCP_ENV : BLOCKVECTOR [ENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS),
RSCP ENVELOPE POOL
ENV_USE : VECTOR [ENV_CNT, BYTE, SIGNED],
MSCP ENVELOPE POOL ALLOCATION TABLE
RETPKT : BLOCKVECTOR [RP_CNT, RP_LEN, WORD] FIELD (RP_FIELDS),
RETURN PACKET POOL

RP_USE : VECTOR [RP_CNT, BYTE, SIGNED],

RETURN PACKET POOL ALLOCATION TABLE
RP_INDX : WORD,

! CURRENT RETURN PACKET INDEX

RPCADDR : REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS),

CURRENT RETURN PACKET ADDRESS
BUFF DESC : BLOCKVECTOR [MAX BUF (NT, DESC_LEN, WORD] FIELD (BD_FIELDS),
]
TABLE OF 1/0 BUFFER DESCRIPTORS
BUFF_OWN : VECTOR [MAX_BUF_CNT, BYTE, S'GNED],

SE0 0194

Page
VAX=11 Bliss=16 V3553
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (2)

N 15
CZRCD3

T E R NER

E ME

PR PRTR P TR PN

PRPR YR YR T Y X TR PRI R

IERIEEE T E T A T

TRTR T PR TR PR PR IR

R LR XN LA X e s 8e 0y

v01.0

CZRCDAO RC25 DISK EXERCISER

DECLARATIONS

1 1=Jul=1983 08:44:52

8-Jul=1983 17:43:57

VAX=-11 Bliss=16 v3=555

10DQT0UT : HORD

ENTRY_ REASON BYTE,

T FLAG
: BY’E
£dP_ FLAG: BYTE,
MEM_MGMT : BYTE,
I1IPTFLAG: BYTE,
CCTCR : WORD,
CPLAT : WORD,
CUOFF - WORD,

CTLR_CNT: WORD,

DURT VECTOR [MAX_UNITS, BYTEJ,
Q10: VECTOR [MAX_CTLR, BYTE],
MEM SIZE : WORD,

FREE_MEM ADDR

BUFFTMSIZE: WORD,
NUM_BUFF: WORD,
CLK_TYPE : WORD,
: WORD,
CLK_HERTZ

HOURS :

MINUTES
: WORD,

: WORD,
SECONDS

TICKS : WORD,
ST_CODE : WORD,
SB_CODE : WORD,
STEP : WORD,

OF _RC : SIGNED WORD,

SA_REG: WORD,
NEX : WORD,
:

WORD,

1/0 DONE QUEUE IN POINTER

' 1/0 DONE QUEUE QUT POINTER

!i HOW CURRENT PASS WAS INVOKED
'! ONE SECOND TIMING FLAG
! END=OF =PASS FLAG
i MEMORY MANAGEMENT FLAG
i INITIALIZATION=-IN=PROGRESS FLAG
i NUMBER OF ‘'CURRENT'' CONTROLLER

i CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER)
i CST OFFSET FOR CURRENT UNIT

i TOTAL NUMBER OF CONFIGURED CONTROLLERS

i DROP UNIT REASON
i NUMBER OF OUTSTANDING QIOS PER CONTROLLER
i AVAILABLE MEMORY (IN WORDS) UP TO 28K
i START OF FREE MEMORY BELOW 28K
i! SIZE (BYTES) CF AN 1/0 BUFFER
!! NUMBER OF 1/0 BUFFERS
5 TYPE OF CLOCK ON SYSTEM
(0 = NONE, =1 = L=-CLOCK, 1 = P_CLOCK)

!
!]
![]
1
!

CLOCK HERTZ RATE
CLOCK CSR _ADDRESS
CLOCK VECTOR ADDRESS
ELAPSED TIME - HOURS,

}

SECONDS.

[]

[}

MINUTES,
TICKS

il CURRENT STATUS CODE
l

!
l
l
l
l

Page

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC:3 (2)

170 BUFFER OWNERSHIP (CONTROLLER NUMBER)
jopQ : VECTOR CIODQ_LEN, BYTE],
170 DONE QUEUE = CIRCULAR QUEUE OF RETPKT INDECES

: WORD,
IODQ_IN

SEQ 0195

CURRENT SUB-CODE

CURRENT STEP IN HARD_INIT

OR SA
OFFSET (0 OR 2) TO READ IP

STORAGE FOR SA REGISTER READS AND WRITES
NON-EXISTENT MEMORY TRAP INDICATOR
COMMAND REF NUMBER OF LAST COMMAND SENT

000088 VeV VeV VgV VeV V2V VaBeBeBe Ve

Vs 80s %0 0000, PR

R I RN E T E T ETE S

YTEY RIR TR

R TR TR F R AR N L X [TEITETITETIE TR Y T TR TN ¥

[V, 19, ]

8-Jul-1

1 1=Jul=1

CZRCDAO RC25 DISK EXERCISER
DECLARATIONS

—_
N

CZRCD3
v01.0

0O
0000
W

B 16

VAX=11 Bliss=16 V3-555

_DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (2)

EX_TFMT,

EX_EVC,
EX_HMA,
EX_03,
SWP_ STRACK : WORD,

SwWP_ ETRACK : WORD,
SWP_FLAGS : BYTE,

SWP_DPAT : "BYTE,

SWP_UCNT : WORD,
SWPTUDPAT : VECTOR CMAX_UDP_CNT, WORD],
LSHIMEM,

LSUNIT,
LSLUN;

EXTERNAL ROUTINE
NEX_TRAP : LSISR NOVALUE,

COPY BLK : NOVALUE,
SET_CPAR : NOVALUE,
SET_UPAR: NOVALUE,
GET_ENV,
PUT_ENV: NOVALUE,

GET_“RETPKT,

PUT_RETPKT NOVALUE .

GET_10_BUFF : NOVALUE,
PUT 10eurr : NOVALUE.
PUTA aDrr NOVALUE,

IN_ToDQ: NOVALUE.

DROP CTLR: NOVALUE,
DRV tTLERR NOVALUE,
HARD ERR: NOVALUE,
UPD_YOC : NOVALUE,
OVF”CHK : NOVALUE,
XFRTMCHK : NOVALUE,
SEND,
WAIT : NOVALUE

EMS_10: NOVALUE,

EMS-12 : NOVALUE,
EMS_13
EMS_14
EMS_15
EMS_16

:
:
:
:

NOVALUE,
NOVALUE,
NOVALUE,
NOVALUE,

STARTING TRACK

ENDING TRACK

SEa 0196

FLAGS (SEE DOCUMENTATION)
DATA PATTERN NUMBER
USER DATA PATTERN COUNT
USER DATA PATTERM

c1
1

CZRCDAO RC25 DISK EXERCISER

CZRCD3

DECLARAT IONS

v01.0
:
:
:
:
:
:
:
:
:

2101
2102
2103
2104
2105
2106
2107
2108
2109

EMS_17
EMS"18
EMS_19
EMS-20
EMS_21
EMS_22
EMS-30
EMS-42
EMS_43

: NOVALUE,
: NOVALUE.
: NOVALUE.
: NOVALUE,
: NOVALUE.
: NOVALUE.
: NOVALUE.
: NOVALUE.
: NOVALUE:

11-Jul=1983 08:44:52

8-Jul=1983 17:43:57

SEa 0197

VAX=-11 Bliss=16 V3=555
UCETTE.CZRCDICZRCD3.SRC;3 (2)
_DUA2:[DO

D 16

CZRCDAQ RC25 DISK EXERCISER
TEST SECTION

C2RCD3
v01.0
:

2110

2113

g}}g

2114

2117

2118

2121

H
H

2119
2120

2122

:
:
M

2123
2124
2125

:
:

2128
g}%g

2131

H
:
:

2133
2134
2135

;
:

2138
2139

:
H

2141
2142

.
:

H
:
:

2126
2127

2132

‘e

THIS SECTION CONTAINS THE TOP-LEVEL TEST CODE FOR THE R(C25 DISK
EXERCISER. THE EXERCISER CONSISTS OF ONE TEST WHICH IS SUBDIVIDED INTO
A NUMBER OF SUBTESTS. ALL SUBTESTS ARE DECLARED WITHIN THIS BLOCK.

;

BGNTST;

EOP_FLAG = FALSE;

THEN

BGNSUB;

END,

BEGIN

BGNSUB;

! RUN DM EXERCISER SUBTEST

DM_EXER ();
enDsuB;

ELSE

END

! OTHERWISE

BEGIN

DORPT;

2152

ENDTST;

! THEN

THEN

2146
2147
2148
2149

%}g?

! IF OPERATOR SELECTED DM EXERCISER

IF BIT_TST (SWP_FLAGS, SWF_DM)

:
:
:
H

! INIJTIALIZATION SUBTEST

INIT_TEST ();
ENDSOB;

2143

2144
2145

! THEN

BEGIN

2136
2137
2140

' IF START, RESTART, CONT, OR PWR FAIL

1F _ENTRY_REASON NEQU NEW_PASS

BGNSUB;

! RUN MULTI-DRIVE SUBTEST

MULTI DRIVE ();
ENDSUB;
END;

! PRINT STATISTICS

! SET END-OF-PASS FLAG

EOP_FLAG = TRUE;

.TITLE

CZRCD3 CZRCDAOD RC25 DISK EXERCISER

.ENABL

AMA

PSECT

$GGGS.

BLKW

220

JIDENT

000000

COMM,AREA:

000440
000540

B8ST:
DPST:

000560

.BLKW
BLKW

ICOM.ADDR:

.BLKW

/Vv01.0/

40
10
1

SEQ 0198

Page
VAX=11 Bliss=16 V3=-555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (3)

XSBTTL °*TEST SECTION®

:
H

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

VAX=11 Bliss=16 V3-555

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (3)

DISK EXERCISER

CZRCD3

v01.0

000562

IENV.ADDR:

000564

ICST.ADDR:

000566

IDCT.ADDR:

000570

INT.ADDR:

.BLKW

.BLK

WORD
-WORD
.WORD
.WORD
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

RCINTO

105613
000001
031463
000001
030221
000020
000001

000003
000007
000017

177776
172774
177770
177760

b
P
=

000001
000000
000001
177777
000001

000020

000632
000634
000674
000676

SWEEP.FLAG:
.BLKB
.EVEN
RDM.CNT: .WORD
RANDOM: .BLKW
PATO0Z2:
.WORD
-WORD
PAT03:
-WORD
.WORD
PATO04:
-WORD
-WORD
PATO05:
-WORD
-WORD
PAT06:
.WORD
.WORD
PATO7:
.WORD
-WORD
-WORD
-WORD
-WORD
-WORD
.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
-WORD
.WORD
.WORD
.WORD
.WORD
PAT(08:
.WORD
.WORD
-WORD
+WORD
.WORD

[ =1 =]

.BLKW

MR : .BLKW

DO =NIN)

:.BLKW

AD: .BLKW

) b eed b b D

000000V
000000V
000000V

.BLK

000000V

SEQ 0199

CZRCDAO RC25 DISK EXERCISER

CZRCD3

001050
001052
001056
001056
001060
001062

177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000
000020
000000
000000
000000
177777
177777
177777
000000
000000
177777

001066

177777
000000
177777
000000
177777
000000
177777
000001

001072
001074

000020
052525

001064

001070
001076
001100
001102
001104
001106
001110
001112
001114
001116
001120
001122
001124
001126
001130
001132
001134
001136
001140
001142
001144
001146
001150
001152
001154

8-Jul-1983 17:43:57

TEST SECTION

v01.0

000774
000776
001000
001002
001004
001006
001010
001012
001014
001016
001020
001022
001024
001026
001030
001032
001034
001036
001040
001042
001044
001046

11=Jul=1983 08:44:52

133331

052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
05252,
125252
052525
125252
000024
026455
026455
026455
151322
151322
151322
026455
026455

PAT09:

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
(WORD
WORD
WORD

PAT10:

PATI1:

PAT12:

TWORD
.WORD

=1
0
=1
0
=1
0

=44447

WORD
WORD
WORD
WORD
"WORD
"WORD
TWORD
WORD
'WORD
LWORD
WORD
WORD
WORD
"WORD
WORD
.WORD
"WORD
TWORD
TWORD
TWORD
WORD
"WORD
"WORD
TWORD

52525
52525
525
-52526
=52526
=5252
52525
52525
=52526
=52526
52525
=52526
52525
=52526
5252
=52526
24
26455
26455
26455
=26456
=26456
=26456
26455
26455

SEQ 0200

Page

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC:3 (3)

=40
=100
=200
=400
=1000
~2000
=4000
=10000
=20000
=40000
=100000
0
20
0
0
0
=1
=1
=1
0
0
=1

WORD

.WORD
"WORD

VAX=11 Bliss=16 V3=555

CZRCD3

v01.0

VAX=-11 Bliss=16 V3-555

_DUA2:LDOUCETTE.CZRCDICZRCD3.SRC;3 (3)

CZRCDAO RC25 DISK EXERCISER
TEST SECTION

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

001336

SEQ 0201

.WORD
.WORD
.WORD
.WORD

PAT18:

.WORD

-WORD

PAT19:

043146
-WORD

-WORD
.WORD

-7

b cd

b aoed

0
71311

b o

S NN 1N

b e

d wand

b ad LN NN AN = = =2

[,S 1,8}

=2 =
b b b b N NN

-7
-7

b o
b

b amd "N

b LN NN U

N NN N =

=71

b cnd

.WORD

PAT17:

d—.d—.d—.\j{j\‘ww—._fid-fi

CZRCD3
v01.0

1 ONNNNNNYN
WHES
N
b b =
N NN N NN = b b« od NN
NN
b cd b b b wd LG AN N AN LN =D =d b b L AN
& b
b b b wud b
b b wnd b cud wnd end cmd b b and b
oS~
NN
N
~=~

CZRCDAQ RC25 DISK EXERCISER

TEST SECTION

.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
-WORD
-WORD

-WORD

~Nn0

Viwn

(VR
)

~0oo

G0 o
W

—h

11=Jul8~Jul—

H 16

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC:3 (3)

VAX=11 Bliss=16 V3=-555
SEQ 0202

116

001522

1M=Jul=1 933

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

8-Jul-1 982 17 :43: 5 4

TEST SECTION

043146

PAT20:

PAT21:
DPA.TBL

.WORD

001316°

08 46: 5 2

-WORD

VAX=-11 Bliss=16 V3=-555

SEQ 0203

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC;3 (3)

&H2»
O—

CROMP:

PAT17
PAT18
PAT19
PAT20

O0—=
-\t
N=O
O~NW

N
N

001360°
001434°
001510°
001564
001640°'
000140

-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

002064

000000

-WORD
.WORD
.WORD
.WORD

~Nr0

'S
(VR

—_
~JCo

8-Jul-

TEST SECTION

OOOOOOO==NIH
VOO_—y

001704
001706

11=Jul-

CZRCDAO RC25 DISK EXERCISER

CZRCD3

v01.0

©CoCo
W

J 16

VAX=11 Bliss=16 V3=555

SEQ 0204

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC;3 (3)

002066
002070
002072

-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

002246

007264

.WORD
.WORD
-WORD
.WORD

~Nn0

1%,1%]

8-Jul=1

TEST SECTION

4
NO

11=Jul=1

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

ool
Qo0 Co
N

K 16

S 0205
V3=555
Bliss=16 CZRCDIC
V5~
11 Bliss=-16
ZRCD3.SRC:3 (3)
E.

_DUA2:[DOUCETT
VAX=-11

L 16

11-Jul-1983 08:44:52

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

8-Jul=1983 17:43:57

TEST SECTION

002250
002252
002254
002256
002260
002262
002264
002266
002270
002272
002274
002276
002300
002302
002304
002306
002310
002312

027216
115400
007005
106200
000003
007005
037031
114000
007005
007031
104207
007002
104201
000002
060023
102207
000037
057107

WORD
.WORD
.WORD
.WORD
JWORD
.WORD
.WORD
WORD
.WORD
.WORD
LWORD
JWORD
.WORD
LWORD
.WORD
WORD
.WORD
.WORD

27216
=62400
7005
=71600
3
7005
37031
=64000
7005
7031
=-73571
7002
=73577
2
60023
=75571
37
57107

002316
002320
002322
002324
002326
002330

104307
007005
104201
000005
060031
104010

WORD
.WORD
.WORD
.WORD
.WORD
.WORD

=73471
7005
=73577
5
60031
=73770

002314

002332
002334
002336
002340
002342
002344

000000

007001
000000
104307
007002
105207
000060

002352

114001
104202
000001

002356
002360
002362
002364
002366
002370
002372
002374
002376
002400
002402
002404
002406
002410
002412
002414
002416
002420

007004
060021
102207
000037
057130
000000
104307
007002
114001
104202
000032
104203
007234
060020
102207
000037
057146
000000

002424
002426

000004
007000

002346
002350

002354

002422
002430

JWORD

.WORD
WORD
WORD
.WORD
JWORD
.WORD

WORD
.WORD

.WORD

104203

LWORD

104200

.WORD

104207

.WORD
.WORD
JWORD
.WORD
.WORD
.WORD
LWORD
.WORD
WORD
WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD

WORD

7001
O
=73471
7002
-72571
60

-63777
=73576
1

=73575

7004
60021
=75571
37
57130
0
=73471
7002
-63777
=73576
32
-73575
7234
60020
=75571
37
57146
0

-73600

4
7000

-73571

VAX=-11 Bliss=16 V3-555

sea 0206

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (3)

002432

002743
104301

100612

007240
1154601

200010
114001

104202
000025
104203
007240

060021

102207

000037
057216
000000
1643367

000000

~r0

LV 1Y)

H
(VR

~Co

OO0
Co 0o
[V V]

TEST SECTION

007001
104272
105612
057240

002546
002550

11=Jul=
8-Jul-

CZRCDAQ RC25 DISK EXERCISER

CZRCD3

v01.0

1
—

VAX-11 Bliss=16 V3=555

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC;3 (3)

.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

.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL

PATCH, CPT, CST. CST.ADDR,

DCT

DCT.ADDR, RC25.ADDR, IRC25.ADDR

SEQ 0207

DM.COMM, ‘OMC.ADDR, RP.SAVE. RPS.X1
RPS.X2, OUTC.LIST. OUTC.TIMR, OCL.X1
OCL.X2. TALLY, T.ADDR, MSCP.ENV
ENV.USE, RETPKT, RP.USE., RP.INDX
RP.ADDR. BUFF.DESC, BUFF.OWN, 100Q
10D0. IN. 100Q.0UT, ENTRY.REASON
T.FLAG, EOP.FLAG, MEM.MGMT, I1IP.FLAG
CCTLR, "CPLAT, CUOFF, CTLR.CNT
DUR. @10, MEM.SIZE, FREE.MEM.ADDR
BUFF.SIZE. NUM.BUFF, CLK.TYPE
CLK.HERTZ. CLK.CSR, CLK.VECTOR
HOURS, MINUTES, SECONDS, TICKS
ST.CODE, SB.CODE, STEP, OF.RC

11-Jul=1983 08:44:52
8-Jul=-1983 17:43:57

CZRCDAQ RC25 DISK EXERCISER

CZRCD3
v01.0

TEST SECTION

.GLOBL
.6GLOBL
GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.GLOBL
.6GLOBL
.GLOBL
.GLOBL
.6LOBL
.GLOBL
.GLOBL
100000

040000
020000
010000
004000
002000
001000
000400
000200
000100

8IT15==
BIT14==

SA.REG, NEX, CRN, MSG.02, MSG.03
MSG.04, MSG.05, MSG.06, MSG.08
EGD.10, EGD.11, EGD.12, EGD.13
EGD.14, EGD.15, EGD.16, EGD.17
EGD.18, EGD.19, EGD.20, EGD.21
EGD.22, EGH.%J, STC.00, STC.01
STC.02, S7(.03, STC.04, STC.05
STC.06, STC.07, STC.08, STC.09
x.
STC.10, STC.11, r) EX.CRN, EX.SB
EX.EL. EX.PA, EX.FMT, EX.EVC, EX.HMA
EX.03. SWP.STRACK, SWP.ETRACK
SWP.FLAGS, SWP.DPAT, SWP.UCNT

SWP.UDPAT. LSHIMEM, LSUNIT, LSLUN
NEX.TRAP, COPY.BLK, SET.CPAR, SET.UPAR

GET.ENV, 'PUT.ENV, GET.RETPKT., PUT.RETPKT
GET.I10.BUFF, PUT.10.BUFF, PUTA.BUFF
ouT.100Q, IN.IODP@, DROP.CTLR, DRV.CTLERR
HARD.ERR. UPD.IOC,

=100000

8IT13==

B8IT12==
8IT11==
B8IT10==
81709==
81708==
B1107==
B1706==
B81705==

EF .PWR==

000300

PR1Q7==
PRI06==

ooog

(olelele
lole el

& NONNO

EF .NEW==

B1T73==
BIT2==
8IT1==
B8IT0==
EF .START==
EF .RESTART==
EF .CONTINUE==

BIT4==

AN UNINANN S =P S =P
S =N SN =2 = N &

B8IT04==

81703==
B81102==
81701==
817100==
B8I719==
B1T78==
BIT7==
BITé==
BITS5==

OVF.CHK, XFR.CHK

SEND, WAIT, EMS.10, EMS.12. EMS.13

EMS.i4, EMS.15, EMS.16, EMS.17
EMS.18. EMS.19. EMS.20. EMS.21
EMS.22. EMS.30. EMS.42. EMS.43

SEQ 0208

Page
VAR=-11 Bliss=16 V3=55 5
(3)
C:3
D3.SR
JCZRC
_DUA2:[DOUCETTE.CZRCD

VAX=11 Bliss=16 v3=555

3
E

$T1:

000000G

2%:
3s:

000000V

000060

1046467
006000
103772
104424
112737

000207

A ¥

000000V

000001

004737
104466

000000°*

OP.FLAG

JSR
TRAP
ROR
8LO
8IT?
BEQ
TRAP
JSR

PC,INIT.TEST

TRAP

0000006

5¢:

T1::

18:

ENTRY .REASON,#5
%S

2123
2126

RO
1%
#2,SWP.FLAGS
43

rak]

2133
2136

JSR

PC.MULTI.DRIVE

2141
2144

ROR
BLO
TRAP
MOv8B
RTS

RO
43

.SBTTL

JSR

PC.$T1
66

TRAP

67
24

#1,E0P.FLAG

$CODES + 0000

TRAP

ROR
BLO
RTS

RO
1$
PC

TEST SECTION

Routine Base: $CODES + 0104
6 words,
2 words
; Maximum stack depth per invocation:

: Routine Size:

2120
2121

2
ZC.DM.EXER

TRAP

Routine Base:
; Routine Size:
34 words,
2 words
; Maximum stack depth per invocation:

000008

CLRB
CMPB
BEQ

TRAP
ROR
8CC

103007

000771
104402
004737

.SBTTL
PSECT

000
$71 TEST SECTION
RO
$CODES,

b
b b

000002

18%:

000000V

4000

owne
VO~

0000006
0000006 000005

)|
E
3

105037
123727
001406
104402
004737
104467
006000
103772
132737
001407
104402
004737
104467
006000

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (3)

(=1

Tttt
s DO DMCT oette P MM

PRI
PRI
PRI
PRI
PRI

010000
020000
040000
100000

O =W

PRI

oomcnx:ozo;mooo<
—-MIBDC O~
QOOO0O0CO

TEST SECTION

BO ==
N = SN ANV
Qo
OO~
OO (=l=l=le]
OOOO
(=]
o000

CZRCDAQ RC25 DISK EXERCISER

CZRCu3
v01.C

SEQ 0209

2150

[4
.

[
-

[

[
.

[4
-

[4
[

[4
.

[
.

4
.

[
.

[4
[4
.

[J
.

[4
[4
.

[4
-

[
.

[J
.

o
.

[
.

[
-

L4
.

[4
[4

o wm
@t
et

VAWA

[V TF

e
~Go

ool
©o0 0o
[V LV]

LY, THE DEVICES ARE BROUGHT ONLINE VIA 'DRIVER_INIT'', WHICH IS
BASICA!

INVOKFD IMMEDIATELY. ANY DEVICES WHICH FAIL DURING THIS PHASE WILL BE

mimimem

SUBTEST OR THE DM EXERCISER SUBTEST.

MARKED OFFLINE IN THEIR DCT AND CST. FOR THOSE DEVICES WHICH SURVIVE
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS TO
EACH PLATTER VIA ROUTINE “‘ACCESS’'. THE INITIALIZATION SUBTEST IS DEEMED
A SUCCESS IF A BLOCK ON THE INNER TRACK OF EACH PLATTER CAN BE

i@t

THE INITIALIZATION SUBTEST IS DESIGNED TO VERIFY THE EXISTENCE OF THE
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIALOG, AND TO
BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-DRIVE

ACCESSED.

[

NS WA = OO0 NN W

S OVONO
N NN =O OO NO VNS WNI OO0 N

[
[4

b emd md

D00 0000 0000000000000 N NNNNNNNNNOONOOOCOCO
OO O NN NWIIL

BEGIN

IF ATTENDED

IF _MANUAL

THEN

PRINTF

(MSG_04);

1IP_FLAG = TRUE;

DRIVER INIT ();
INCR CTLR FROM 0 TO (MAX_CTLR = 1) DO

T HEN
“INIT SUBTEST START"'
SET INIT-IN-PROGRESS FLAG
INIT DRIVER DATA AND DEVICES
FOR EACH CONTROLLER

BEGIN

SET_CPAR (.CTLR).

! SET UP COMMONLY-USED CONTROLLER-RELATED DATA ITEMS

THENBEGIN

! THEN

IF .CST_ADDR [STATE] EQLU ONLINE

! IF CONTROLLER IS STILL ALIVE

INCRB?E;SET FROM (0 + OF_UN) TO (3 + OF_UN) DO

! FOR EACH PLATTER

IF ((.CST_ADDR [.OFFSET, P_PRES] EQLU PRESENT) AND
(.CST_ADDR [.OFFSET, P_STAT] EQLU ONLINE))

b oo

[
[4

ROUTINE INIT_TEST : NOVALUE =

THEN
BEGIN

b and

END;

[

END;

! IF UNIT IS PRESENT AND ONLINE
! UNIT LOOP

END;

”
[4

END;

[

! IF CONTROLLER IS ONLINE

! CONTROLLER LOUP

[4
.

[4
[4
[4

IIF_FLAG = FALSE;

! CLEAR INIT-IN-PROGRESS FLAG

END;

! ROUTINE INIT_TEST

SEQ 0210

Page

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC.;3 (&)

[
[

VA'=11 Bliss=16 V3-55 5

XSBTTL "INITIALIZATION SUBTEST ROUTINES'

AORLRLNVAIAIALNININI AN NI AN b
N e
NN
NI AN AININININIAI AN NI AL NI NI NN N NI N NN NN
ond cad amb cmd b and cnd cmd cnd cnd cmd cod cub wmd wmd d D - b b id b b ad e b b

11=-Jul8=Jul-

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

1
-

104450
103007
012746
012746
010600
104417

0000006
000001

000001 0000006
000000V
0000006
0000006
000002
000003

000207

0000006

CMP

MovB
JSR
MOV
JSR
MOV

R2,=(SP)

CLR

3¢:

MOV
MOV
ASL

ADD
BIT

BEQ

BIT

BEQ
MOV

48:

JSR
JSR
INC

CMP

BLE

TST

INC

(MP

BLE

CLRB

RTS

SS.DRIVER.INIT
PC,SET.CPAR

CST.ADDR,RO
2(R0)
5%
#3.R1
R1,RO
RO

2176

CTLR
CTLR,*

PC,ACCESS
R1
R1.4#6

(SP)+
R2

R2, 43
2%
1IP.FLAG
PC

2177
2178
2179
2182

2183
* ,OFFSET

OFFSET,»

CST.ADDR,RO

#40000, (RO)
43
#20000, (RO)
43
R*,(SP)
PC,SET.UPAR

$CODES + 0120
Routine_Base:
54 words,
7 words
: Maximum stack depth per invocation:
: Routine Size:

2155
2174

(SP)+,(SP)+

#1,11P.FLAG

TST

5%:

000003

R1,$SAVE2
50
1%
#MSG.04,-(SP)
#1,-(SP)
SP,RO

8PL

020000

000006

JSR
TRAP
BHIS
MOV
TRAP

0000006
040000

0000006
000000V

INIT.TEST INITIALIZATION SUBTEST ROUTINES

MOV
MOV

2%:

VAX-11 Bliss=16 V3=555
_DUA2: LDOUCETTE.CZRCDICZRCD3.SRC;3 (4)

.SBTTL

INIT.TEST:

1%:

:43: 57

SEQ 0211
Page

0000006

8 44:52

8-Jul- 198 31

004137

022626
112737
004737
005002
010246
004737
013700
005760
100025
012701
010100
006300
063700
032710
001410
032710
001405

000146
000152

11-Jul=1 98 3

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

OFFSET,«

OFFSET

OFFSET,»

CTLR
CTLR,®

2187
2190

D o

e e

VO NOA NS W= O O

d wned e ()

SIS LSHST ST ST S S S IS 23]
AINININININ NN

e S e Be®eBo®eBoteVeBstotoPsVe0eBe8e0s0e0eVs0s0e¥sVetets®r8000e%0%0000,008:%0,080% 00000, IR TR IEIETE TE TRXN DO N

2220

~Nnr

8-Jul-

~Go

INITIALIZATION SUBTEST ROUTINES

11-Jul-

OO
00 Co
N

CZRCDAQO RC25 DISK EXERCISER

CZRCD3
v01.0

1
—

VAX=-11 Bliss=16 V3=555

THIS ROUTINE 1S EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY
POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE
DRIVER DATA, AND TO BRING EACH RC25 CONTROLLER AND UNIT ONLINE.

BEGIN
OCAL

ENV_ADDR;

ENV_ADDR = MSCP_ENV + 8.
INCR COUNT FROM O TO (ENV_CNT - 1) DO

* ADDR (TEXT + 0) OF FIRST MSCP ENVELOPE
! FOR EACH MSCP ENVELOPE

BEGIN

ENV_USE [.COUNT) = =1;
MSCP_ENV C.COUNT, ENV LO% = ,ENV_ADDR;
MSCP_ENV [.COUNT, ENV_HI
0;
MSCP_ENV [.COUNT, ENV_F] = 1;
MSCPTENV [.COUNT, ENV_0] = 1;
ENV_ADDR = .ENV_ADDR # (ENV_LEN * 2)

! MARK ENVELOPE FREE

! LOAD ENVELOPE ADDR INTO ENV DESCRIPTOR
! SET FLAG B8IT
! SET OWNERSHIP BIT

! ADVANCE ADDR TO NEXT ENVELOPE

END;

INCR CTLR FROM 0 TO (MAX_CTLR - 1) DO

! FOR EACH CONTROLLER

BEGIN

IF_.CST [.CTLR, IP_ADDR] NEQA 0
THEN

BEGIN

SET_CPAR (.CTLR);
VECTAD = .CST_ADDR [VEC_ADDRI];

BRLEVEL = .CST_ADDR [BR_LEV] * §5;
CTLR_INIT O);

IF .DCT_ADDR [STAT] EQLU ONLINE

THEN

BEGIN

! IF CONTROLLER IS PRESENT
!

THEN

SET UP CURRENT CONTROLLER PARAMETERS
SET CURRENT CONTROLLER'S VECTOR ADDRESS
SET CURRENT CONTROLLER'S BR LEVEL

INIT DEVICE AND CTLR DATA
IF CONTROLLER IS STILL ALIVE

THEN

INCRegziaET FROM (0 + OF_UN) TO (3 + OF_UN) DO
IF _.CST_ADDR [.OFFSET, P_PRES] EQLU PRESENT

THEN

BEGIN

END;

Page

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;* (5)

ROUTINE DRIVER_INIT : NOVALUE =

i
:
:

SEQ 0212

! FOR EACH UNIT (PLATTER)
! IF _UNIT EXISTS
! THEN

SET_UPAR (.OFFSET);
UNIT_INIT ();

! SET UP UNIT-RELATED DATA ITEMS
! BRING UNIT ONLINE

END;

! IF UNIT EXISTS
! UNIT LOOP

! IF CONTROLLER IS STILL ALIVE

11=Jul=1983 08:44:52

8-Jul=1983 17:43:57

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

0000106

112761

010146
012746
004737
010260
062700
005010
052710

000377

.SBTTL
DRIVER.I?%;:
?Ex

0000006

1%:

MOV
JSR

0000026

ADD

MOV

0000006G

CLR
8IS

140000
000104

ADD

CMP
INC

000137

000016
0000006

2$:

003760

C.BLSMUL

RZ MSCP.ENV(R0Q)

#MSCP.ENV+2,RO
(RO)
#140000 (RO)
#104 ,R2
(?P)+.(SP)+

: ENV.ADDR,*

~ ENV.ADDR

MoV
MOV
JSR

#16,~(SP)

PC.BLSMUL

(SP)+, (SP)+

cgr(nb)

BEQ

JSR

PC.SET.CPAR

000004
000005
0000006
000614*
000000V
000000G

MOVB
MOV
JSR
MOV
JSR
TST

000003

MOV
MOV

BPL

ASL

ADD
8IT

BEQ
MoV

¢164 =(SP)

CTLR
: CTLR,*

MOV
MOV
%{g

0000006
040000

c377.s~v.uss<a1)
R1,-(SP)

R2
R2,~(SP)

CLR

MOV

3s:

* ENV.ADDR

COUNT
*,+(COUNT)
COUNT
,=

R1,m37

TST

0000006G

R1,$SAVE?2
#MSCP ENV+10,n2

COUNT
COUNT

0000006
000002 000612°
177000 000612°'

000006

DRIVER.INIT INITIALIZATION SUBTEST ROUTINES

CMP
BLE

cMpP

0000006

000236

:8&8

000104
0000006

0000006
000000V

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (S)

! ROUTINE DRIVER_INIT

END;

012702
005001

SEQ 0213
Page

! CONTROLLER LOOP

END;

0000006

VAX-11 Bliss=16 V3=555

! If CONTROLLER IS PRESENT

END;

004137

JSR
JSR
INC

cMP

BLE

R2,-(SP)

: CTLR,*

2242

¢ST.ADDR,RO
2(RO),VEC.AD

;

2243

0*77060 VEC.AD

2244

(S2)
4(RO), (SP)
#5,-(SP)

PC.BLSSHF

RO,BRLEVEL
PC,CTLR. INIT
32CT.ADDR

R1.RO
RO

:
:

2245
2246

: OF

2250
2253

: OFFSET,»

2257

2258
2250

CST.ADDR,RO

l:OOOO,(RO)
4

R1, (SP)

PC,SET.UPAR
PC,UNIT.INIT

R1
R1.46
3%

s OFFSET
s OFFSET .

000240
000242
000244
000250
000252

11-Jul=-1983 08:44:52
8-Jul=1983 17:43:57

CDAO RC25 DISK EXERCISER
TIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0
022626
005202
020227
003707
000207

Routine Base:
86 words,
invocation:
per
depth
Max1mum stack
: Routine Size:

CMP
INC
CMP
BLE
RTS

(SP)+,(SP)+
R2
R2.#3

2%
PC

$CODES + 0274

VAX=11 Bliss=16 V3=555

SEQ 0214

_DUA2:CDOUCETTE. CZRCDICZRCD3.SRC;3 (5)
2240
2235

2209

CZRCDAQ RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES
2271

3575
2274
2275

55;9

TO THE HOST. SPECIFICALLY, IT IS WRITTEN TO:

;

2282
2283
2284
2285

!
!
!
!

2286
gsgg

1. INITIALIZE DRIVER CONTROLLER DATA, INCLUDING THE DCT,

!
!
!

2. SET UP THE DEVICE'S INTERRUPT VECTOR ADDRESS, (NOTE THAT RC25
INTERRUPT PROCESSING RUNS AT LEVEL 5 FOR ALL RC25'S. THIS 1S
BASED ON THE ASSUMPTION THAT ALL RC25°'S WILL HAVE A FIXED BR

!
E

ADDRESS AND INTERRUPT REQUEST LEVEL,
S. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE.

LEVEL OF S OR LESS. INTERRUPT PROCESSING CANNOT BE BROKEN WITH
A HIGHER FRIORITY INTERRUPT FROM ANOTHER RC25.)
3. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE,
4. PERFORM A VECTCR AND BR LEVEL TEST TO VERIFY THE DEVICE'S VECTOR

IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE

2289

DEVICE ARE DROPPED.

2292

IMPLICIT INPUTS:

2294
2295
2296
gggg

!
!
!
5

ggg?

2293

2299
2301
2302
2303
2304
2305

CCTLR = CURRENT CONTROLLER NUMBER

VEC_AD - ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER
DCT_ADDR = ADDRESS OF CURRENT CONTROLLER'S DCT
CST_ADDR ~ ADDRESS OF CURRENT CONTROLLER'S (ST
RC25_ADDR =~ ADDRESS OF CURRENT CONTROLLER'S IP REGISTER

BEGIN

LOCAL
RESULT : WORD;

INI_CTLR_DAT ();

2306
2307
g§8g

SETVEC (TVEC_AD, .INT_ADDR [.CCTLR], PRIOS);
DCT_ADDR [IG_INT] = YES;

2310

IF REG_EXIST () EQLU FAILURE

2311

gg}%

2314
2315

2316
S%}S

2319

2320

Sgg}

LSLON = .CST_ADDR [OF_UN, P_UNIT];
THEN

BEGIN

DROP_CTLR (.CCTLR, DU_INIT);
RETURN;
)

INITJALIZE CONTROLLER DATA
SET DEVICE'S ASSUMED VECTOR ADDRESS
SET '‘IGNORE INTERRUPT'' BIT
GET FIRST UNIT NUMBER OF CONTROLLER
(USED BY DRS FOR ERROR REPORTING)
REGISTER EXISTENCE TEST. IF FAILURE

THEN

! DROP ALL CONTROLLER'S UNITS

END;

IF VEC_BR_TEST () EGLU FAILURE
THEN

BEGIN

2323

DROP_CTLR (.CCTLR, DU_INIT);

2325
2326
2327

END;

2324

Page
VAX=-11 Bliss=16 V3=555
(6)
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3

THIS 'DRIVER'® ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONTROLLER
CONFIGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RC25 ONLINE

!
!
!

2279
2280
2281

11=Jul-1983 08:44:52
8-Jul=1983 17:43:57

ROUTINE CTLR_INIT : NOVALUE =

2278

N
W
o
o

e e Ba 8¢ ®eBetote®esVeBsBe0s®eBesetytooto
e e e®etiBe0s0s08e0s8s0s 08005000, %0 08000000000V 00e800s%c000c0ee0r0sn,

CZRCD3
v01.0

RETURN;

SEQ 0215

! VECTOR ADDR AND BR LEVEL TEST. IF FAILURE

' THEN

! DROP ALL CONTROLLER'S UNITS

CZRCD3
;
;
:

;

2328
2329
2330

2331

CZRCDAO RC25 DISK EXERCISER
RESULT = HARD_INIT O);
DCT_ADDR [IG_INT] = NO;
IF RESULT EBLU SUCCESS

! ATTEMPT HARD DEVICE INIT
i CLEAR "'IGNORE INTERRUPT'' BIT
' IF HARD INIT WAS SUCCESSFUL

8-Jul=-1983 17:43:57

BEGIN

gggg

;
;

2334
2335

DCT_ADDR [STAT)= ONLINE;
CSTADDR [STATE]= ONLINE:

:
:

2337
gggg

WRTRC2S (RCSA, RC_ALL, SA_GO):
SET"CTLR_CHAR );

;
:

2340
2361

END

;

3;22

;

;
000000

2342

ELSE

2345

END;

013700
006300
016046
013746
012746
104437

000050
000054
000056
000062

016001
000301
042701
010137

000072

005700

000102
000104

005700
001011

000112
000116

012746
004737

i SET *'G0'* BIT (START CTLR POLLING)
i SET CONTROLLER CHARACTERISTICS
! HARD INIT FAILED

| DROP ALL CONTROLLER'S UNITS

! ROUTINE CTLR_INIT
LSBTTL
CTLR.INIT:

MOV

000202 004737 900000V
000006 012746 000240

000012
000016
000020
000024
000030
000034

i INITIALIZE RESPONSE RING

DROP_CTLR (.CCTLR, DU_INIT);

010146

DUA2 [OOUCETTE.CZRCDICZRCD3.SRC; 3 (6)

! MARK CONTROLLER ONLINE IN 'DRIVER"
i MARK CONTROLLER ONLINE IN '‘PROGRAM

INIZRRING ();

2336

SEQ 0216

i THEN

THEN

;

VAX=11 Bliss=16 V3-555

11-Jul-1983 08:44:52

INITIALIZATION SUBTEST ROUTINES

v01.0

0000006

000036 052777 040000 0000006
000044 013700 0000006

R1,=(SP)

2271

;
;

2305
2306

JSR
MOV

PC.INI.CTLR.DAT
#240,~(SP)

BIS
MOV

#40000,aDCT.ADDR
CST.ADDR,RO

;
:

2307
2308

PC.REG.EXIST

2310

MOV
ASL
MOV
MOV
MOV
TRAP

000570°
000612°
000003

CTLR.INIT INITIALIZATION SUBTEST ROUTINES

CCTLR,RO
RO
INT.ADDR(RO) ,~(SP)
VEC.AD,~(SP)
#3,-(SP)
37
6(R0) ,R1
Rl
#177740.R1
R1,LSLUN

177740
0000006

MOV
SWAB
BIC
MOV

000074 001404
000076 004737 006000V

BEQ
JSR

1$
PC,VEC.BR.TEST

:
:

2314
2319

MOV

CCTLR, (SP)

2323

cé

:
:

2319
2321

000006

JSR

000066 004737 000000V

000106 013716 0000006

000122
000126
000130
000134
000142

000146

000002
0000006

062706 000012
000444
004737 000000V
042777 040000 0000006
020027 000001
001023

000150 052777 100000 0000006
000156 013700 000000¢C

000162 052760 100000 000002
000170 004737 000000V
000174 012701 000001

1$:

28:

TsT
BNE

MOV
JSR

ADD
B8R
JSR
BIC

CMP

BNE

RO
28

#2,-(SP)
PC 'DROP.CTLR

PC HARD. INIT

aabooo aDCT.ADDR
RO, #1
3s

8IS
MOV

w1ooooo aocr ADDR
CST.A

JS?

PC, INI.RRING

8IS

MOov

o1oooooé<n0)
#1.R1

2328

2329

: RESULT,®

2330

;
:

2334
2335

2336

: +,RC.REG

2337

020200
000204
000210
000214
000216
000222
000226
000232
000234
000240
000242

VAX=-11 Bliss=16 v3=55

_DUA2:[DOUCETTE. CZRCDJCZRC03 SRC;3 (6)

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0
0137C0
010160
004737
000407
013716
012746
004737
005726
062706
012601
000207

Mov
MoV
JSR

0000006
000002
000000V

0000006

3s:

000010

000002
0000006

5$:

SEQ 0217

MoV
MOV
JSR
TST
ADD
MOV
RTS

RC25.ADDR,RO

R1,2(R0O)

zg.SET.CTLR.CHAR
CCTLR, (SP)

#2,-(SP)
PC,DROP.CTLR
(SP)+
#10,SP
(SP)+,R1
PC

Base: $CODES + 0550
)
Routine
82 words, ]
: Routine Size:
7
words
: Maximum stack depth per invocation:

RC.REG,*

11=Jul=1983 08:44:52

CZRCDAOD RC25 DISK EXERCISER

CZRCD3
v01.0

8-Jul=1983 17:43:57

INITIALIZATION SUBTEST ROUTINES

VAX=11 Bliss=16 V3-555

SEQ 0218

Page

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (7)

R TN ¥

ROUTINE INI_CTLR_DAT : NOVALUE =

N PN PR PR
PR TR I TN PR TR LR

i
i

THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING ALL CONTROLLER-RELATED
DATA IN THE 'DRIVER'* PORTION OF THE exsacxssa THIS INCLUDES THE

IMPLICIT INPUTS:

CONTROLLER®S DCT AND OUTSTANDING COMMAND LIST

;

CCTLR - CURRENT CONTROLLER NUMBER
OCT_ADDR = ADDRESS OF CURRENT CONTROILER'S DCT
OCLZX1, OCL_X2 = STARTING AND ENDING INDECES OF CURRENT
CONTROLLER'S OUTSTANDING COMMAND AREA

i
i
i

P P T

BEGIN

INCR INDEX FROM .OCL_X1 TO .GCL_X2 DO

T TN

BEGIN

! INIT QUTSTANDING CMD LIST
! ZERO OUT QUTSTANDING CMD TIMERS

OUTC_LIST C.INDEX] = =1;
OUTC_TIMR [.INDEX] = 0;

I T T

END;

DCT_ADDR L[WORDO]
= 0.

DCT_ADDR [RR_BEG]
DCT_ADDR [RRZEND)
DCT_ADDR [CR_BEG]

.DCT_ADDR [LRR BEGJ + ((RRING LEN = 1) « 4);
.DCT_ADDR [RRZEND] + &;
.DCTCADDR [CR7BEG] + ((CRING LEN = 1) « 4);
[CR_END]
DCT_ADDR
DCT_ADDR [RRZPOLL) = .DiT_ADDR [RR _BEG];

DCTADDR CCRZPOLL] = DCT_ADDR [CR_NEXT]= .DCT_ADDR [CR_BEGI;

CLEAR FIRST DCT WORD
START GF RESPONSE RING

LAST SLOT IN RESPONSE RING
START OF COMMAND RING
LAST SLOT IN COMMAND RING

FIRST RRING SLOT TO POLL

CRING POLL AND NEXT COMMAND POINTERS

END;

000000

004137

0000006

000004
000010
000012
000014
000022
000024
000026
000032
000034
000040
000042
000046
000050
000054
000056
000062
000066
000072

013701
005301

0000006

112761

000377

000076

COMM_AREA + 8 + (.CCTLR * COMM_LEN * 2);

009407
010100
006300
005060
005201
020137
003765
013701
005011
012702
060102
013746
012746
004737
062700
210012

0000006

.SBTTL

INI.CTLR.DAT INITIALIZATION SUBTEST ROUTINES

MoV

ocL.X1.R1

18:

MOVB

#377,0UTC.LIST(R1)

; *,*(INDEX)

2365
2366

2%:

CLR
INC
grg

OUTC.TIMR(RO)
R1
q;.OCL.XZ

: INDEX
: INDEX,*

2362

INI.CTLR.DAT:
JSR

gsc

0000006

MOV
ASL

R1,$SAVE2

: INDEX

R1,R0
RO

; *, INDEX

; INDEX,*

2346
2362

0000006

MoV

DCT.ADDR,R1

2370

000004

MOV

#4,R2

23N

0000006
000110
0000006

MoV
MOV
JSR

CCTLR,=(SP)
#110,-(SP)
Pr,BLSMUL

MOV

RO, (R2)

c00010°*

CLR

ADD

(R1)

R1,R2

#COMM.AREA+10,R0

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0
010061

062761
012700
060100
016110
062710
011061
062761
011261
011061
011061
022626
00<207

000004
000034
000010
000006
000004
000012
00034
00014
000020
000016

000006

000012

MOV
ADD
MOV
ADD
MOV
ADD
MOV
ADD
MOV
MOV
MOV
CMP
RTS

RO,6(R1)

034 6(R1)
c1o.no

Routine Size:

2372
2373

1.R0

6(R1) (RO)

$CODES + 1014
Routine Base:
57 words, .
6 words
: Maximum stack cdepth per invocation:
;

SEQ 0219

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (7)g
VAX=11 Bliss=16 V3=555

2374

2375
2376
2360
2346

~Nn

wVi\un

~a
[V
F

~No

11=Jul=1
8-Jul-1

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD>
v01.5

2
00
co000
W

VAX=-11 Bliss=16 V3=555

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC:3 (8)

LR X

ROUTINE REG_EXIST =

THIS IS THE REGISTER EXISTENCE (OR ‘PROBE’') TEST DESIGNED TC VERIFY
THE PRESENCE OF AN RC25 DEVICE. THIS OBJECTIVE IS ACCOMPLISHED 8Y
SETTING UP THE NON-EXISTENT MEMORY (NEX) TRAP VECTOR (LOCATION &) AND
ATTEMPTING TO READ WHAT 1S ASSUMED TO BE THE DEVICE'S SA AND IP
REGISTERS. IF THE NEX TRAP HANDLER IS INVOKED DUE 1O AN ABSENT DEVICE,
THEN THE GLOBAL DATUM ‘NEX'® WILL BE SET TO '‘TRUE''. THIS DATUM
DETERMINES THE SUCCESS / FAILURE VALUE OF THIS ROUTINE.

PR PR SN PR PR PR R

PR TR LA LI I

IMPLICIT INPUTS:

TR PR
IR

RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER

BEGIN
LOCAL
TEMP : WORD,

TEMP FOR READING SA AND [P
AS THE NAME IMPLIES

DUMMY : WORD;

SET UP TO READ SA FIRST

OF _RC
= 2;

YR R

00~

BEGIN

NEX = FALSE;

SETVEC (4, NEX TRAP, PRI107);

= .(.RC25_ADDR + .OF RC)
TEMP

DUMMY
= 0;

YRR Y

CLRVEC (4);
IF_.NEX EQLU TRUE

TR
L

SET TO '‘TRAP NOT RECEIVED'
SET LOCATION 4 TRAP VECTOR ADDRESS
READ REGISTER (THEN TRAP OR CONTINUE)
DUMMY INSTRUCTION TO COVER TRAP RETURN BUG
(TRAP RETURNS TO NEXT INSTRUCTION)
CLEAR LOCATION & TRAP VECTOR ADDRESS
%ZE:EX TRAP OCCURRED

THEN
BEGIN

"REGISTER EXISTENCE TEST FAILED"

ERRDF (10, EGD_10, EMS_10);
RETURN FAILURES
ELSE

END

SET UP FOR IP REG OR QuIT

OF _RC = .OF_RC = 2;

END

UNTIL .OF_RC LSS 0;
RETURN SUCCESS:
END;

012737
005037
012746

000002 000000G
0000006
000340

1$:

MOV
CLR
MOV

REG.EXIST INITIALIZATION SUBTEST ROUTINES
R1,$SAVE?

#2,0F .RC
NEX
#340,-(SP)

s 0

000004
000012
000016

SBTTL

REG.EXISI;R

®e

0000006

000000

004137

SEQ 0220

c
CZRCD3
v01.0
000022
000026
000032
000036
000040
000044

11-Jul=1983 09144 52
8-Jul=1983 17:43:557

CZRCDAO RC25 DISK EXERCISER
1
INITIALIZATION SUBTEST ROUTINES
01
O1
01
10
0O

0000006
000004
000003

g3.~(SP)

0000006
€000006

RCZS ADDR,RO
OF .RC,RO

(50)R

000004

#4,R0

000000G 000001

NEX,#1

36°

2%
55

EGD.10
EMS.10

000010

000126
000130
000134
000136
000140

002331
012700
000207
005000
000207

: Routine Size:

000002 0000006G
000010
0000006

VAX=11 Bliss=16 V3=555

SEQ 0221

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (8)

#NEX. TRAP,=(SP)
#4,-(SP)

162737
062706
005737

#10,SP

2$:

#2,0F .RC
#10,SP
OF .RC

000001

2406
:

«,TEMP

DUMMY

2407
2409

2410
2614

2410
2412
2419
2402
2423
2394

3s:

RTS

49 words,
Routine Base:
$CODES + 1176
9 words
; Maximum stack depth per invocation:

2379

~NN

FIS

—_
~JGo

11=Jul8-Jul-

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

00
0000
tvrtv

CZRCD3

v01.0

2
-l wndd

ROUTINE VEC_BR_TEST =

[4
.

‘e

THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RC25 VECTOR ADDRESS GIVEN
BY THE USER DURING THE HW DIALOG IS VALID, AND (B) THAT THE
USER-SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT. THE FIRST
OBJECTIVE IS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO O AND FORCING
AN RC25 INTERRUPT. IF THE USER SPECIFIED AN INCORRECT VECTOR ADDRESS,

[
.

[4
.

THEN THE RESULT MAY BE UNPREDICTABLE. FOR THIS REASON, THE MESSAGE

4
-

“'ABOUT TO VERIFY VECTOR XXX(0) FOR DEVICE XXXXXX(0) ...'' IS PRINTED

L4
-

BEFORE THE TEST, AND ‘°COMPLETED'' IS PRINTED AT ITS SUCCESSFUL

CONCLUSION. IF THE WORD ‘‘COMPLETED'* DOES NOT APPEAR, AND AN ERROR IS
NOT REPORTED, THEN PROGRAM CONTROL IS ASSUMED LOST AND A FATAL TRAP HAS
LIKELY OCCURRED. AT THIS POINT, THE EXERCISER MUST BE STARTED AGAIN.

[

L4
.

4
.

.
.

IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY SETTING THE

[4
.

PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE
USER. A FORCED INTERRUPT SHOULD NOT OCCUR. THEN, BY LOWERING THE
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOULD OCCUR.
RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER

[
.

L4
.

[
-

4
.

[4
.

[

IMPLICIT INPUTS:

DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT
RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER
VEC_AD - ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER
BRLEVEL - ASSUHEgogggofgggEST INTERRUPT LEVEL OF THE CURRENT

[4
.

[4
-

o
-

[

4
.

BEGIN

[
.

4
.

[
.

*
-

[

1F _MANUAL
THEN

! IF _ATTENDED
! THEN

PRINTF (MSG_02, .VEC_AD, .RC2S_ADDR); ! "'ABOUT TO VERIFY VECTOR..."
! FORCE AN INTERRUPT
IF INT_GEN () EQGLU FALSE

THEN

BEGIN

! IF INTERRUPT DID NOT OCCUR

ERRDF (11, EGD_11, 0);

L[4

RETURN FAJLURE;

[

! "VECTOR TEST FAILED''

L4
-

[4
.

”
.

[

ELSE

END

BEGIN

! INTERRUPT DID OCCUR

[
.

[4
.

[4
-

[
.

[4
.

IF MANUAL

IF _ATTENDED

PRINTF (MSG_03);
SETPRI (.BRLEVED):

“'COMPLETED."’
SET PRIORITY TO ASSUMED BR 1 EVEL
FORCE AN INTERRUPT (SHOULD Nu: OCCUR)
IF INTERRUPT DID NOT OCCUR

THEN

IF INT_GEN () EQLU FALSE

THEN

BEGIN

THEN

[
-

[4
.

[
4

SETPR] (.BRLEVEL = %0'40');
DELAY (1);:
IF _.DCT_ADDR [SA_SAVE] NEQU 0

SEQ 0222

Page
VAX=11 Bliss=16 V3=555
(9
C;3
D3.SR
JCZRC
E.CZRCD
DOUCETT
_DUA2:[

!1 LOWER PRIORITY BY 1
! WAIT
; {ZE£NTERRUPT DID OCCUR (SA_SAVE WOULD BE NON-ZERO)

VAX=11 Bliss=16 V3=555

94 RCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

Page

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (9)

IN ITIALIZATION SUBTEST ROUTINES

N FI YR TN ¥

BEGIN

! RESTORE PROCESSOR PRIORITY TO 0
! ONLY SUCCESSFUL EXIT POINT

SETPRI (PRI00);

RETURN SUCCESS:

[ TETETEYREIEIE ZTEFE FI P FI

END;
END;
END;

! COME HERE ONLY FOR BR TEST FAILURE
"BR LEVEL TEST FAILED"

SETPRI (PRI00);
ERRDF (12, EGD_12, EMS_12);

RETURN FAILURE:

END;

.GLOBL
.SBTTL
VEC.BR.TEST:

010146

MUV

TST

005746
104450

103014
013746
013746
012746
012746
010600
104417
062706
004737
005700
001005
104455

TRAP

BHIS
MOV

0000006
000612°
000000G
000003

000010
000000V

1%:

)
2s:

104450

104441

004737
005700
001032
013700
162700
1044461

VEC.BR.TEST INITIALIZATION SUBTEST ROUTINES
2428

R1,=(SP)
=(SP)

2459

RC25.ADDR,=(SP)
VEC.AD,=(SP)

2461

#MSG.02,-(SP)
#3,-(SP)

SP.RO

17
#10,SP

2462

PC, INT.GEN

2466

TRAP

000013

103007
012746
012746
010600
104417
022626
013700

MOV
MOV
MOV
MOV
TRAP
ADD
JSR
TST

LSOLY

BNE

0000006
000000
000460

000132

SEQ 0223

0000006
000001

°
000614

000000V
000614°
000040

.WORD
.WORD
.WORD
B8R
TRAP
BHIS
Mov
MOV
MOV
TRAP

3s:

CMP

MOV

TRAP

JSR
TST
BNE

MOV

suB

TRAP

2464
2473

2475

#MSG.03,~(SP)
#1,-(SP)

SP,RO
17
(SP)+,(SP)+
quEVEL.RO

: SP,x
2476

PC,INT.GEN

2477

BRLEVEL ,RO
#40,R0

2481

RO
8%
41

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

000134
000140

012701
001410
013700
001403
005016
005300
001375

000001

0000006

¥
A
5%:

6%:

0000006
000002

7%:

000001

9$:
108:

000207

SEQ 0224

Page

_DUA2: (DOUCETTE.CZRCDICZRCD3.SRC;3 (9)
MOV

: *,88TMP?2

MOV

: «,$8TMPY

CLR

: $SSTMP
: $$TMP1

8EQ
BEQ

DEC
BNE
DEC

BR
Mov
TST
8EQ
CLR
TRAP

BR
CLR
TRAP
TRAP
.WORD
-WORD
.WORD
CLR
TST
MOV
RTS

2482

: $$TMP2
2483
2487
2485

MoV

8%:

000230

VAX=11 Bliss=16 V3=555

2496

2497

2428
(SP)+ R

$CODES + 1340
Routine Base:
: Routine Size: 77 words,
: Maximum stack depth per invocation: 8 words

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

VAX=11 Bliss=16 V3-555

SEQ@ 0225

Page

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 ( 109

ROUTINE INT_GEN =

THIS ROUTINE BEGINS AN RC25 INITIALIZATION SEQUENCE, BUT ONLY

OWVS W= OV

WAV IV IV, [V IV [V IV (U, LV JV LV IV, LV LV 1V, 1V
AONI NI RO RN b b b b b b b mad b b

NO NS WO

COMPLETES Tr YUGH THE STEP 1 WRITE. ITS PURPOSE IS TO CREATE AN RC25
INTERRUPT (AT THE COMPLETION OF STEP 1) IN ORDER TO HELP VERIFY THE

MAAININI NN

NI N

) [ PEYRETITEIEIE IR

EYE YR TR

I PN TN Y PR PN XN ¥ ®e Be %o g,

CZRCD3
v01.0

2527

P P P

A R

152

THE USER-SPECIFIED VECTOR ADDRESS AND BUS REQUEST INTERRUPT LEVEL.
A VALUE OF “‘TRUE'® IS RETURNED TO THE CALLER IF AN INTERRUPT OCCURS,
AND ‘‘FALSE'* OTHERWISE. THE INTERRUPT IS VERIFIED BY A NON-ZERO VALUE
IN THE "'SA SAVE'' WORD IN THE DEVICE'S DCT.
IMPLICIT INPUTS:

DCT_ADDR ~ ADDRESS OF CURRENT CONTROLLER'S DCT
RC25_ADDR =~ ADDRESS OF CURRENT CONTROLLER'S IP REGISTER

BEGIN
LOCAL

JE_VEC : WORD,
SA : WORD;

! 1E-BIT-AND~VECTOR-ADDRESS/4 BYTE
! STORAGE FOR STEP 1 READ AND WRITE

DCT_ADDR [SA_SAVE] = 0;

ZERO OUT SA SAVE WORD IN DCT
VEC ADDR / 4 WITH IE = 1
gg};f IP TO START INIT SEQUENCE

SA = .RC25_ADDR [RCSA, RC_ALLJ;

STEP 1 READ
STEP 1 WRITE VALUE
STEP 1 WRITE

IE_VEC = (.VEC_AD ~ =2) OR SA_INT;
WRT_RC25 (RCIP, RC_ALL, ALL_ONES);
DELAY (500);

SA = (WR_RING * 8) OR .IE_VEC:
WRT_RC25 (RCSA, RC_ALL, .5A);
INCR COUNT FROM 1 TO 10 DO

TEN SECOND LIMIT

IR A T E A

TS TE

R YA

BEGIN

533
5
5
5
5
5
5
540
5 41
542
5
5
5
5
5

DELAY (333):
SA = .RC25_ADDR [RCSA, RC_ALLJ;
IF BIT_TSTTM(SA, SA_S2)
THEN

BREAK 0UT

EXITLOOP;

%F SA SAVE WORD WAS NOT TOUCHED

IF .DCT_ADDR [SA_SAVE] EGLU O

THEN

HEN

INTERRUPT DID NOT OCCUR
OTHERWISE
INTERRUPT DID OCCUR

RETURN FALSE
RETURN TRUE;

END;

000006
0000006
000002

000612

006200

IF _STEP 2 HAS BEGUN

THEN

END;

0000006

000026

ABOUT 1 SECOND
READ SA REGISTER

LSBTTL
INT.GEN:JSR
sus
MOV
CLR
MOV
ASR
ASR

INT.GEN INITIALIZATION SUBTEST ROUTINES
R1,$SAVES
:

#6,SP
DCT.ADDR,R4
2(R4)

VEC.AD,RO

RO
RO

2501

2523

2524

VAX=11 Bliss=16 V3=555

CZRCDAD RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

000030

000200
127277
0000006
000764

#200.R3

000004

2%:

LSDLY,RO
38

000002

4$:

000012

000515
000000G

000004

5¢:

(R§),2(sP)
R3,R2

9
LSDLY,RO
8

78:

: $STMP1
2527
* RC.REG

s IE.VEC,SA
s *,S5A
. SA,RC.REG

2528

s *,COUNT
: «,$$TMP2

2530
2533

2529

: «,$8TMP1

: $SSTMP
: $STMP1

: $STMP?

8s:
(R5),(SP)
(SP) .R2

9%:

g1gobo.az

010000

000002

: *,$8TMP1

: $$TMP2

#12 ,R3
x§1§,n1

6$:

2526

R1
1$

#115400,R2
R2,RO
RO. (RS)

115400

*,$$TMP2

: $SSTMP

RC25.ADDR,RO
#2,R5
RO RS

000002

2525

4(SP)
RO

3s:

0000006

,R1

«,JE.VEC
«, JE.VEC
* ,RC.REG

RC.REG,*

RO,aRC25.ADDR

4764
48

Pa?e

_DUAZ:[DOUCETTE.CZRCDJCZRCDS.SRC:3 10
RO,R3

0000006

SEQ 0226

: =,RC.REG
; *,SA
: %, SA

2534

s COUNT

2530

2535

2541

10$:

2517
000216
700222

000207

000001
000006

11%:
12%:

2501
RTS

)
Base:
$CODES + 1572
Routine
; Routine Size: 74 words, .
10 words
: Maximum stack depth per 1nvocation:

=2O VOO NO VNS WNL=20 000
WN

VIV N
o [0 o o

AT
TN AWM
NN
VLI
IV IV IV, IV, IV, TV, 1V, He

LS, ST, ST, ST NINT, ST N1 ST N1, N S1,N 1,91, 97,¥]

PRLR L KN ¥
YA PR PR PR
IRIR
YT AT
IR

~r0

H
W

~ 0o

IMPLICIT INPUTS:

RC25_ADDR = ADDRESS OF CURRENT CONTROLLER'S IP REGISTER
VEC_AD - ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER
DCT_ADDR ~ ADDRESS OF CURRENT CONTROLLER'S DCT

BEGIN

IE_VEC = .VEC_AD * =2.

INCR ATTEMPTS FROM 1 TO INI_ATT DO

! [E-BIT-AND-VECTOR-ADDRESS/4 BYTE
i

(USED IN STEP 1 WRITE AND STEP 3 READ)

! GET VECTOR ADDR/4 (IE = 0)

BEGIN

g
"

WRT_RC25 (RCIP, RC_ALL, ALL_ONES);
DELAY (500);

STEP = 1;

SA_REG = .RC25_ADDR [RCSA, RC_ALLJ;
1F"(.SA_REG AND S1_MASK) EQLU SA_S1
THEN

SA_REG = (WR_RING *~ 8) OR .IE_VEC:
WRY RC25 (RCSA, RC_ALL, .SA_REG);

INCR COUNT FROM 1 T0 10 DO

BEGIN

R E N

DELAY (333);
SA_REG = .RC25_ADDR [RCSA, RC_ALLI;
IF"BIT_TST (SA_REG, SA_S2)
THEN
EX1TLOOP;
'

! WRITE IP TO START INIT SEQUENCE
! WAIT

STEP 1

BEGIN

TR T

P P PR TR IR A TR R PRI LR TR L] IR

V1V]

INITIALIZE AN RC25°'DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY OF

THE FOUR STEPS, THEN A SUCCESS VALUE 1S RETURNED TO THE CALLER.
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE.
IF ALL ATTEMPTS FAIL, A FAILURE INDICATION IS RETURNED.

E
IR
R
R

-t

THIS ROUTINE PERFORMS THE FOUR READ / WRITE STEPS REQUIRED TO

IE_VEC : WORD;

! READ SA
' IfF STEP 1 READ IS 0.K.
! THEN

' STEP 1 WRITE VALUE
! STEP 1 WRITE

! TEN SECOND LIMIT

ABOUT 1 SECOND
READ SA REGISTER
IF STEP 2 HAS BEGUN
THEN

BREAK OUT

END;

STEP 2
STEP = .STEP + 1;

IF (.SA_REG AND S2_MASK) EQLU (SA_S2 OR WR_RING) ! IF STEP 2 READ IS 0.K.

THENBEGIN

WRT_RC25 (RCSA, RC_ALL, .DCT_ADDR [RR_BEG));

SEQ 0227

Pa?e
VAX=11 Bliss=16 V3=555
(11
RC:3
RCD3.S
_DUA2:[DOUCETTE.CZRCDICZ

ROUTINE HARD_INIT =

LOCAL

[NIR

1=Jul8=Jul-

00
©CoCo

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

2
-

! THEN

! RINGBASE-LO, PI = 0

:52

:57

BEGIN

ABOUT 1 SECOND
READ SA REGISTER
IF STEP 3 HAS BEGUN

DELAY (333);

SA_REG = .RC25_ADDR [RCSA, RC_ALLI);

lFEBlT st (SA_REG, SA_ $3)

THEN

BREAK 0OUT

EXITLOOP;
END;

STEP 3

+
STEP = .STEP

IF _(.SA_REG AND 53MASK) EQLU (SA_S3 OR .IE_VEQ)
WRT RC25 (RCSA, RC_ALL,

IF STEP 3 READ IS 0.K.

THEN

! PP, RINGBASE-HI = 0

0);:

i TEN SECOND LIMIT

INCR COUNT FROM 1 T0 10 DO
BEGIN

IFEBIT TST (SA_REG, SA_ 54)

THEN

BREAK OUT

EXITLOOP;

END;

STEP 4

;

++ 1,
STEP = .STEP

)

IF (.SA_REG AND S4 MASK) EQLU SA_Sé
WRT_RC25 (RCSA, RC_ALL, 0);
RETURN SUCCESS:

A T PR PRPR TR SR I A LRI TRTR LR T

SA_REG = .RCZS ADDR [RCSA, RC_ALLI;

! IF STEP 4 READ IS 0.K.
!

THEN

! BURST, LF, GO = 0
! SUCCESS EXIT POINT

END;

AR E

END;
END;

EE
TR

ABOUT 1 SECOND
READ SA REGISTER
IF STEP & HAS BEGUN

DELAY (333);

END;

! TRY AGAIN OR GIVE UP

END;

ERRDF (13, EGD_13, EMS_13);
RETURN FATLURE:

! "'INIT SEQUENCE FAILED"

END;

t ROUTINE HARD_INIT
.SBTTL

SEQ 0228
Pa?e

_DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (11

! TEN SECOND LIMIT

INCR COUNT FROM 1 TO 10 DO

ISR I E A

R TR T TR PRPR PRYR PRLR XN YR X

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

VAX-11 Bliss=16 V3=555

HARD.INIT INITIALIZATION SUBTEST ROUTINES

SEQ 0229

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

000000

004137

0000006

HARD.INII;R

162706
013704
006204
006204
013703
013700
012746
060016
012705
012700
010077
012701
001410
010300
001404

000012
000612°

suB
MOV

#12,5P

0000006
0000006
000002

MOV
MOV
MOV

LSDLY,R3
RC25.ADDR,RO

000002
177777
0000006
000764

MOV
MOV
MOV
MOV
8EQ

005066
005300

001374
005301
000767
012737
017666
016637
016600
042700
020027
001177
010437
952737
013700
010076
012702
012701
001410
010300
001404
005066
005300
001374
005301

000001

000000
000010
000010
001777
004000

ADD

18:
2%:

3%:

000000G

000010
0000006

0000006
115400 (0000006
0000006
000000
000012

000515

CLR

5%:

MOV

MOV
MOV
MOV
8IC
CMP
BNE

6%:

000000G
000004
000000

BEQ

48:

8%:

000006
0000006
000006

MOV

DEC
BNE
gsc

7%:

000012

0000006
0000006
0u3400
010233

010076

ASR
ASR

000072

000000
000006
010000

000276

Pa?e
VAX=11 Bliss=16 V3-555
(1
RC:S
RCDS.S
RCDJCZ
TTE.CZ
_DUAZ:(DOUCE

108:

118

R1,$SAVES

2548

VEC.AD,R4
R4
Ré4

; «, JE.VEC

2569

#2,-(SP)
RO, (SP)
#2,R5
#-1,R0

:
:

2574
2579

: « , ATTEMPTS

2570

#764 ,R1

: *,$8TMP2

RO,aRC25.ADDR
5%
R3.RO

12(SP)
RO
3$
R1
2

#1,STEP

20(SP),10(SP)

10(SP)
. SA.REG
16(SP) .RO

#1777.R0
RO, #4000

24$

: JE.VEC
: 1E.VEC

: *,RC.REG
: RC.REG,*

2573
2574

: «,$$TMP1

: $STMP
; $$TMPI

: $STMP?2

H
: *,RC.REG

2578
2579

: SA.REG,*

2580

: RC.REG,*

MOV
8IS
MOV
MOV
MOV

R4, SA.REG
#115600, SA.REG

: IE.VEC,«

2584

RO.a0(SP)

: *,RC.REG

. RC.REG,~

2585

BEQ

108
R3,RO
9
12(SP)
RO
8s

: =, COUNT
: *,$8TMP2

2586
2589

MOV

8EQ

CLR

DEC
BNE
gst

MOV
MOV
81T
BNE
DEC
BNF

INC
MOV
sl(
CMP
BNE

MOV
MOV
MOV

SA.REG,R0

#12 ,R2
#515,R1

R1
78

a0(SP) ,6(SP)
6(SP) ,SA.REG

q}%OOb.é(SP)

#3400,R0O

RO, #10233
24$

DCT.ADDR,RO

4(RO) ,RO
RO,a0(SP)

; %, 88TMP1

: $STMP
; $STMP1

; $$TMP?2

; *,RC.REG

2590

s *,SA.REG

2591

: COUNT

QSRG

:
:

2599
2600

2604

; RC.REG,*

; *,RC.REG
: RC.REG,*

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

12$:

13%:

14%:
15¢%:

16%:

000004

17%:

0000006
003400

020000

000000
000012

18%:

000575

19%:

208:

000012

21%:

000000
000002
040000

0000006

0000006
00377/
040000

000002
0000006
©£920002

228%:

23%:

000552
000554
000556

000015

000000G
0000006
005000

MOV
MOV

BNE
INC

MOV

BIC
CMP
BNE
CLR

@0(SP) ,4(SP)

4(SP) ,SA.REG
#20000,4 (SP)
17%
R2
12$
STEP

; *,RC.REG

2609

: *,SA.REG

2610

s COUNT

2605

2618
2619

SA.REG,R1

#3400,R1

R4 RO
#20000,R0
R1,RO
243
R

1E.VEC,*

: RC.REG

2623

: «,COUNT

2624
2627

; *,88TMP2
: ,$8TMP]

; $STMP
: $STMP1

: $$TMP2

a0(SP) ,2(SP)
2(SP) ,SA.REG
#40000,2(SP)
23$
R2
18%
STEP

; *,RC.REG
: RC.REG,*
: «,SA.REG

2628

: COUNT

2624

25¢%:

DEC

BEQ
JMP

TRAP

-WORD
.WORD
.WORD
CLR

2629

2637

2638

SA.REG,RO

#3777 ,R0

Rg.#kOOOO
2642
2640

MOV

248:
104455

MOV
8tQ
MOV
BEQ
CLR
DEC
BNE
DEC

2605
2608

: SSTMPZ2

MOV

8IT
BNE

000000
000001

002060°

8IT
BNF.
DEC
BNE
INC
MOV
8IC
MOV
8IS
CMP
BNE
CLR
CLR

: $STMPY

s ATTEMPTS

2570
2655

000000G

MOV
MoV

Page

3.5RC;3 (119

: $STMP

020000

000004
000000G

SEQ 0230

; *,38TMP1

000000
000004

; *,COUNT
: *,$8$TMP2

000012

MoV
MOV
BEQ
MOV
8EQ
CLR
DEC
BNE
DEC

wno

000012
000515

)

012702

DMM
=2 \N=N D
OOV
VWA

CZRCD3
v01.0
000302
03

‘'AX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD

2563

.
000560 062706 000014
000564

11-Jul=1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAD RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

000207

26%:

ADD

RTS

#14,SP
PC

; Routine Size: 187 words,
Routine Base: $CODES + 2016
; Maximum stack depth per invocation: 14 words

SEQ 0231

?c
VAX-11 Bliss=16 V3=555
(11
RCD3.SRC:3
_DUA2:[DOUCETTE.CZRCDICZ

2548

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (

e @
4

AR T NN T
(Y E YR YETETYETYE TR

CONTROLLER=-OWNED.

IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

R IRAN T R
R PRTRIR

DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT

! FIRST RESPONSE RING SLOT

EETE AR

YR PRTR

RRING_ADDR = .DCT_ADDR [RR_BEG];
INCRBEg?zT FROM 1 TO RRING_LEN DD
INDEX = GET_ENV (.CCTLR);

MSCP_ENV [.INDEX, MSGLEN] = MSG_LEN » 2;

.RRING_ADDR = .MSCP_ENV [.INDEX, ENV_LOJ;
RRING_ADDR = .RRING_ADDR + 2;
.RRING_ADDR = .MSCP_ENV [.INDEX, ENV_HI1];
RRING_ADDR = .RRING_ADDR + 2;

R
TR IE

VAX=11 Bliss=16 V3=555

THIS ROUTINE 1S RESPONSIBLE FOR ALLOCATING ENOUGH MSCP ENVELOPES TO
FILL AN RC25 RESPONSE RING. THE ENVELOPE DESCRIPTOR OF EACH ENVELOPE
(LOCATED IN FRONT OF THE ENVELOPE ITSELF) IS LOADED INTO SUCCESSIVE
RRING SLOTS. NOTE THAT THE ENVELOPE DESCRIPTORS HAVE BEEN INITIALIZED
WITH THE FLAG AND OWNERSHIP BITS SET TO '‘1'", MAKING EACH SLOT

LOCAL
INDEX : WORD,
RRING_ADDR:

GET AN MSCP ENVELOPE
SET MESSAGE LENGTH FIELD
LOAD LO-ORDER ENV DESC iINTO SLOT
ADVANCE TO SECOND WORD
LOAD HI-ORDER ENV DESC INTO SLOT

i ADVANCE TO NEXT SLOT

END;

2693

END;

000000

004137

0000006

000004
000010
000014
000020
000024
000030

013700
016002
012701
013746
004737
010003
010316
012746
004737
012760
016022
016022
122626
(95301
091354
000207

0000006

000070

152

ROUTINE INI_RRING : NOVALUE =

BEGIN

000032
000034
000040

11-Jul-1983
8-Jul=1983

CZRCDAQ RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
.01.0

SEQ 0232

.SBTTL

0000006
0000006

000074

0000006

0000026

R1,$SAVE3

MOV
MOV

4(RO) ,R2
#10,R1

: * RRING.ADDR
: *,COUNT

1$:

000104

0000006

INI.RRING:
JSR

MOV

000004
000010

0000046

INI.RRING INITIALIZATION SUBTEST ROUTINES

MOV
JSR
MOV
MOV

DCT.ADDR,RO
CCTLR,=(SP)
PC,GET.ENV
RO.R3
R3. (SP)

MOV

#104.-(sP)

MOV

(RO)
#74 MSCP.ENV+4

MOV

MSCP.ENV+2(R0), (R2)+

DEC

RTS

JSR

MOV

CMP

BNE

2659
2680

2681
2684

: *, INDEX
+ INDEX,*

2685

PC.BLSMUL

MSCP.ENV(RO), (R2)+

: *,RRING.ADDR

(SP)+, (SP) +

: «_RRING.ADDR

+ COJNT
:

Routine_Base: $CODES + 2604
29 words,
Hax\mum stack depth per invocation: 7 words
: Routine Size:

~nN0

wviun

8-Jul-1

11=Jul=1

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

3
OO
©o 0o
W

JczReo3.she:3 (123

VAX=11 Bliss=16 V3-555

_DUA2:[DOUCETTE.CZRCD

sa 0233

CZRCD3
v01.0

CZRCDAO RC2S DISK EXERCISER
INITIALIZATION SIBTEST ROUTINES

11=Jul=1983 08:44:52
8~Jul=1983 17:43:57

2694

ROUTINE SET_CTLR_CHAR : NOVALUE =

2696

2698

2695

2697

gggg

:
:

2701
g;g%

:
:
:
:
:
;

2704
2705
2706
2707
2708
5;?8

:
:

:
:
:
:

SEQ 0234

VAX=-11 Bliss=16 V3-555
?
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (13

THIS ROUTINE IS CALLED BY CTLR_INIT AFTER THE RC25 HAS BEEN HARD-

CHARACTERISTICS'® COMMAND, AND TO VERIFY THAT THE MESSAGE WAS ACCEPTED.

IMPLICIT INPUTS:
CCTLR = CURRENT CONTROLLER NUMBER

INITIALIZED. ITS PURPOSE IS TO FORMAT AND SEND THE ''SET CONTROLLER

BEGIN
LOCAL
REASON : WORD,
M_INDEX : WORD;

' DRC® UNIT REASON
! MSCP ENVELOPE INDEX

2711

M_INDEX
= GET ENV (.CCTLR);

! GET AN MSCP ENVELOPE

2713
2714

MSCPTENV C.M_INDEX,C_FLAGS)= CF_MSC + CF_THS; | CONTROLLER FLAGS
IF SEND (.M_INDEX) EQCU FAILURE
! ATTEMPT SEND; IF CTLR IS OFFLINE

2712 M3CP_ENV [.M_INDEX, OPCODE]= OP_SCC;
2715
2716
2717
2718

THEN

2719

! OPCODE = SET CTLR CHAR

! THEN
! RETURN ENVELOPE TO POOL
! IF SEND WAS SUCCESSFUL

PUT_ENV (.M_INDEX)
BEGIN

:
:

270
2721

WAIT ();
RP_ INDX = OUT_IODQ ()

! WAIT FOR RETPKT RESPONSE
' GET INDEX OF RETPKT

:
:

2723
2724

xr .RP_ ADDR CconIpl €aLl CID_DRIVER
THEN

' IF RETPKT IS FROM ‘DRIVER'
! THEN

2722

RPTADDR = RETPKT + (,RP_INDX * RP_LEN *+ 2); i CALCULATE RETPKT ADDRESS

:
:
:

2725
2726
2727

:
N

2730
2731
2732

5;§2

REASON = DU_I

:
:

2735
2736

END;

:
:

BEGIN

REASON = DU_FATAL;

2728
2729

IF .RP_ADDRTMLMESTYP] EQLU MT_TIMEOUT
THEN
BEGIN

ERRDF (15, EGD15 EMS_15);

gggg

DROP_CTLR (.CCTLR,

3;23

END;

5;25

PUT_RETPKT

5;22

END;

2745

000000

010146

! ASSUME FATAL SA ERROR

' IF (OMMAND TIMED OUT
! THEN
'

SET REASON TO INIT ERROR

DROP CONTROLLER'S UNITS

IF RETPKT IS FROM 'DRIVER''

! *MESSAGE RESPONSE TIMEOUT'

.REASON);

(.RP_INDX);

' IF SEND WAS SUCCESSFUL

END;

! ROUTINE SET_CTLR_CHAR
.SBTTL

SET.CTLR.CHAR INITIALIZATION SUBTEST ROUTINES

MOV

R1,-(SP)

SET.CTLR.CHAR:

2694

000002
000006

012746
004737
010001
010116
012746
004737
112760
012760
010116
004737
005700
001004
010116

000004
000120

PC,GET.ENV

RO.R1
R1.(SP)

#104,-(SP)

0000206
0000266

#150,MSCP.ENV+26(R0)
R1. ($P)

PC.SEND

0000006

18
R1,(SP)
PC,PUT.ENV
43
PC.WAIT
PC.OUT.10DQ
RO.RP. INDX
RO (SP)

0000006

18:

#60,-(SP)

000060

PC.BLSMUL
ARETPKT,RO
RO,RP.ADDR
3(R0O) .43
3s

0000006

0000006
0000006
000003 000003

¥ R1

000004
000002
177417
000100

2(R0) ,RO
#177617,R0
RO,#100
2
#2.R1
55

000002

2s:

3s:

005726
022626
012601
000207

; Routine Size:

2711

4$:

74 words,

; *,M.INDEX
; M.INDEX,*

2712

M. INDEX,*

2713
2714

M. INDEX,*

2716

[

2714
2720

2721

RP.INDX,
*

.WORD

MOV
MOV
JSR
TST
MOV

JSR

TST
CMP
MOV
RTS

CCTLR, (SP)

R1,=(SP)
PC.DROP.CTLR
(SP)+
RP.INDX, (SP)
PC,PUT.RETPKT
(SP)+
(SP)+,(SP)+
(SP)+ R}
PC

Routine Base:
$CODES + 2676
6 words

; Maximum stack depth per invocation:

2722

2723
« ,REASON

2727
2728

* ,REASON

2732
2733

000017
0000006
0000006
013716 0000006
010146
004737 0000006
005726
013716 0000006
004737 0000006

000222

0000006
0000006

104455

Pa?e
VAX-11 Bliss=16 V3=555
(13
3.SRC;3
_DUAZ:fDOUCETTE.CZRCDJCZRCD

PC,BLSMUL
#4°MSCP.ENV+20(R0)

0000006

042700
020027
001006
012701

SEQ@ 0235

CCTLR,=(SP)

0000006
0060006
000104
0000006

INITIALIZATION SUBTEST ROUTINES

~NGo

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

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

3
W

+ REASON,*

2737

2725
2761
2718
2705
2694

CZRCD3
v01.0

CZRCDAO RC2S DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

11-Jul-1983 08:44:52
8-Jul=-1983 17:43:57

ROUTINE UNIT_INIT : NOVALUE =

[4
.

[

‘¢

o
.

L]
.

i
'

THIS ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONFIGURED UNIT
(PLATTER) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED

;

MESSAGE, AND TO VERIFY THE RESPONSE.

IMPLICIT INPUTS:

INITIALIZATION. ITS PURPOSE IS TO FORMAT AND SEND AN “‘ONLINE'’

L4
-

[4
.

Ld
.

[
-

CCTLR - CURRENT CONTROLLER NUMBER

CPLAT = CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER)

o
-

LSLUN = CURRENT (DRS) UNIT NUMBER
CST ADDR - ADDRESS OF CURRENT CONTROLLER'S CST

i
i

[4
-

[

CUOFF = CURRENT UNIT CST GFFSET

;

*
-

[
[

REGIN

[
.

LOCAL

REASON : WORD,
M_INDEX : WORD;

L4
.

[
-

[

M INDEX = GET ENV (.CCTLR):

[
-

4
.

[
-

[4
.

[4
[4
-

[
.

[4
[
[4
.

[4
.

[J
[4
[
[4

MSCP_ENV L[.M_INDEX, PL_ADDR] = .CPLAT;
MSCP_ENV [.M_INDEX, OPTODE] = OP_ONL;

MSCP"ENV [.M_INDEX, DDPAR] = BITDO;
IfF SEND (.M_INDEX) EQLU FAILURE
HEN

ELSE

PUT_ENV (.M_INDEX)

BEGIN

WAIT O);
RP_INDX = QUT_IODQ ();

RPTADDR = RETPKT + (.RP_INDX * RP_LEN * 2);

1F~.RP_ADDR [CONID] EQLD CID_DRIVER
THEN

BEGIN

REASON = DU_FATAL;
IF .RP_ADDR [MESTYP] EQLU MT_TIMEOUT

[4
.

[4
4

THEN

BEGIN

REASON = DU_INIT;

[4
.

ERRDF (15, EGD-1§. EMS_15);

L4
L4

' DROP UNIT REASON
| MSCP ENVELOPE INDEX
rmsmsmimIwimomow

[

GET AN MSCP ENVELOPE

SET PLATTER ADDRESS (MSCP UNIT NUMBER)
OPCODE FOR ‘'ONL INE‘’
SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES
?;;SHPT TO SEND; IF CTLR IS OFFLINE
RETURN ENVELOPE TO POOL

OTHERWISE (SEND WAS SUCCESSFUL)
WAIT FOR RETPKT RESPONSE
GET INDEX OF RETPKT
CALCULATE RETPKT ADDRESS

IF RETPKT IS FROM 'DRIVER''
THEN

' ASSUME FATAL SA ERROR
' IF COMMAND TIMED OUT
! THEN

! SET REASON TO INIT ERROR

! "MESSAGE RESPONSE TIMEOUT''

END;

[4
[
4

DROP_CTLR (CCTLR, .REASON);

' DROP ALL CONTROLLER'S UNITS

END

! OTHERWISE, IF RETPKT IS FROM DISK MSCP

[4
L4
[4

[4
”

[
4

ELSE

BEGIN

ST_CODE = .RP_ADDR [STSCOD].
SB_CODE = .RP_ADDR [SUBCOD].

! GEY STATUS CODE
! GET SuUB-CODE

SEQ 0236

Pa?e 52
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (14

86 80 %0 8000 0e%0 000000000008, 0: 030080 0,%0 8000000, %000000000%0 0087009000050 %080000,0,

11 -Jul-1983 0844:52
8 =Jul=1983 17:43:57

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

BEGIN

DUR C.LSLUN] ="DU_INIT
DODU(.LSLUN);

END

THEN

' STATUS CODE IS 0.K.

BEGIN

IF ((BIT_TST (RP_ADDR CU_FL5S),
THEN

Pa?e
VAX=11 Bliss=16 V3=555
(14
3.SRC;3
RCDICZRCD
_DUA2:[DOUCETTE.CZ

' ‘ONLINE FAILED''
! SET UP REASON FOR DROPPING UNIT
] DROP UNIT

ERRDF (16, EGD_16, Ens 16);

ELSE

SEQ 0237

! IF _STATUS CODE IS NOT SUCCESSFUL

IF .ST_CODE NEQU ST_SUC

THEN

UF_WPH )) AND

(.CST_ADDR [-CUCFF, P_PROT] €alu v NPROTECTED))

!
!:

IF UNIT IS WRITE-PROTECTED AND
THE%SER ALLOWED WRITES

BEGIN

ERRDF (17, EGD_17, EMS_17);

! “WRITE-PROTECT CONFLICT"

DODU (.LSLUN):

! DROP UNIT

! SET REASON TO DROP UNIT

DUR C.LSLUN] ="DU_INIT?

ELSE

END

! WRITE PROTECT SWITCH IS O.K.

BEGIN

UNIT SIZE (NO. OF LBN'S)

USIZE = .RP_ADDR CUSIZ_LOJ;

CST_ADDR [.TUOFF, P srlrJ ONLINE;
CPTTMC.LSLUM] = YES

=" .CST_ADDR CU_CN 1]
CST_ADDR CU_CNT)

MARK UNIT ONLINE
0.K. TO TEST

INCR NO. OF TESTABLE UNITS

END;

' IF STATUS CODE = SUCCESS

END;

' IF RETPKT ORIGINATED AT CONTROLLER

END;
PUT_RETPKT (.RP_INDX);

2842
2843

! ROUTINE UNIT_INIT

END.‘

004137

0000006

013746
004737
010001
010116
012746

0000006
0000006

004737
013760
112760
012760
010116
004737

! IF SEND WAS SUCCESSFUL

END;

000104
0000006

0000006 0000146
000011 0000206
000001 0000446
0000006

.SBTTL
UNIT.INIT:
JSR
MoV
JSR
MOV
MOV

MOV
JSR

MOV
Move
MOV
MOV

JSR

UNIT.INIT INITIALIZATION SUBTEST ROUTINES

R1,$SAVE2
CCTLR,=(SP )
PC,GET.ENV
RO.R1
R1 (sp)

#104,-(SP)
PC.BLSMUL

CPLAT ,MSCP. ENV+14(RO)
#11,MSCP.E NV+20(R0)
#1,MSCP.EN V+44 (RO)
R1. (SP)

PC.SEND

:
: «,M INDEX
: M.INDEX,®

: M.INDEX,*

CZRCDAQO RC25 DISK EXERCISER

CZRCD3
v01.0
000060
000062
000064
000066
000072
000074
000100
000104
000110
000112
000116
000122
000126
000132
000134
000142
000144
000150

SEQ 0238

?e
VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (14

INITIALIZATION SUBTEST ROUTINES

005700
001004
010116
004737
000565

004737
004737
010037
010016
012746
004737
062700
010037
010002

126227
001026
012700
116201
042701
020127
001006
012700
104455

0000006

1$:

0000006
0000006
0000006

2772
2778
2779

: RP.INDX,*

2780

: RP.ADDR,*

2781

; *,REASON
H

2785
2786

2
#2 RO
55

: *,REASON
:

2790
2791

#CCTLR (SP)

2795

6$
16(R2) ,ST.CODE

H
H
:

2783
2781
2801

16(R2)
RO

2802

LSLUN,R1
S;.CODE

H
:

2808
2803

2807

#2,DUR(R)
R1,RO

H
H

2808
2809

g%OOOO.ZZ(RZ)

:
H

2803
2815

CUOFF ,RO

2816

#60,-(5P)
PC,BLSMUL

#RETPKT,RO
RO,RP.ADDR

RO.R2

3(R2) ,#3
3
¥4 RO
2(R2) ,R1

000003

9177417.R1
R;.#100

177417

000100
000002

28:

0000006

RO, °(SP)

PC.DROP.CTLR
(SP)+

0000006

0000006
0000006

3s:

#177740,ST.CODE

#174000,R0
RO,SB.CODE

174000
0000006
0000006
0000006

000002

H
:
:

RO.RP. INDX
RO: (SP)

000004
000002

000016
177740
000016

2774

PC.OUT.10DQ

000060
0000006
0000006
0000006

000003

: M.INDEX,*

R1,(SP)
PC,PUT.ENV
78
PC,WAIT

20
EGD. 16
EMS.16

0000006

51°

020000

000022

48:

0000006
000336

063700

0000006

ADD

CST.ADDR,RO

: REASON,+

000446

000450

(

005710
100012
104455
000021
0000006
0000006
112761
000002 000000G
010100
106451
000421
016237 000050 000616°*
013700 0000006
006300
063700 0000006
00
052710
0000006G
112761
6
013700
105260
013716 000000C
004737 000000G
005726
022626
000207

: Routine Size:

149 words,

NIG’O—I\II“Z?

5
5
4
EGD.17
.1 4
€
U)

000342

3CZRCD3.SRE:3 (143

VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCD

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

# .U R(R1)
R1.RO

51
63
50(R2) ,USIZE
CgOFF.RO

5$:

CST.ADDR,RO

#20000, (RO)

#1,CPT(R1)
6%:

CST.ADDR,RO
5(RO)
RP.INDX, (SP)

78:

(SP)+,(SP)+

Routine Base:

: Maximum stack depth per invocation:

8 words

SEQ 0239

PC,PUT.RETPKT
(SP)+

RTS

$CODES + 3122

[

2820

2821
2822

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

T A A PR PRTR TR TR TR I PR YR PRIR LR YN TN Y X Qe e 8o 0,

ROUTINE ACCESS : NOVALUE =

RESULT = FAILURE;

oo W VaBygUyGoR, 00 %; %

0% 8,3 8,08; % %0030, 8, 8:0e0, 0%, [T

IR R R R

CZRCD3
v01.0

‘e

:57

VAX=11 Bliss=16 V3=555

THIS ROUTINE IS CALLED BY INIT_TEST TO VERIFY THAT THE CURRENT PLATTER
CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTING AND
SENDING ONE OR TWO MSCP ACCESS COMMANDS TO THE PLATTER, AND CHECKING

IMPLICIT INPUTS:

THE STATUS FIELD OF THE RESPONSE MESSAGE(S).
CCTLR - CURRENT CONTROLLER NUMBER

CPLAT - CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER)
LSLUN = CURRENT (DRS) UNIT NUMBER

i
;
BEGIN

LOCAL
M_INDEX : WORD,

RESULT : WORD,
LBN : WORD,

PASS : WORD;
DE
= 0 O0;
=
ST_CODE = SB_CODE

LBN = ((.USIZE ~ =1) AND X0°'77777°*) - 1;
PASS = 1;
DO
BEGIN

GUILTY UNTIL PROVEN INNOCENT
STATUS CODE AND SUB-CODE
START WITH LAST LBN ON TOP SURFACE
LOOP PASS COUNT
LOOP STARTS HERE

M_INDEX = GET_ENV (.CCTLR);

GET AN MSCP ENVELOPE

MSCPTENV [.M_INDEX, LBR_L] = .LBN;
IfF SEND (.M_INDEX) EQLU FAILURE

BYTE COUNT (1 BLOCK)
LOGICAL BLOCK NUMBER
?LE%HPT TO SEND; IF CTLR NOT ONLINE

MSCP_ENV [.M_INDEX, PL_ADDR] = .CPLAT;
MSCP_ENV [.M_INDEX, OPTODE] = OP_ACC:
MSCP_ENV [.M_INDEX, BC LOJ = BLK_SIZE;

SET PLATTER ADDR (MSCP UNIT NUMBER)

ACCESS OPCODE

THEN

BEGIN
PUT_ENV (.M_INDEX);

PASS = 2;
ELSE

END

BEGIN
WAIT ();
RP_INDX = OUT_I0DQ ();

RPCADDR = RETPKT ¢ (.RP_INDX * RP_LEN

1F~.RP_ADDR [CONID] EQLD CID_DRIVER

THEN

ELSE

PASS = 2

BEGIN

ST CODE = .RP_ADDR [STSCOD);

SB_CODE = .RPZADDR [SUBCOD];

IF~.ST_CODE EQLU ST_SuC

RETURN ENVELOPE TO POOL
NO MORE TRIES

IF SEND WAS SUCCESSFUL

2);

Pa?e

_DUA2:[DOUCETTE.CZRCD] CZRCD3.SRC:3 (15

i
]
i
;

SEQ 0240

WAIT FOR RESPONSE
GET RETPKT (RESPONSE) INDEX
CALCULATE RETPKT ADDRESS

IF RETPKT CAME FROM °‘DRIVER"

THEN

NO MORE TRIES

OTHERWISE = CHECK OUT RESPONSE

! GET STATUS CODE FROM PACKET
! GET SUB-CODE FROM PACKET
! If STATUS CODE INDICATES SUCCESS

TR PN

THEN

8EGIN

PN PR YR EE

RESULT = SUCCESS;
PASS = 2;

SEQ 0241
Pa?e
VAX-11 Bliss=16 v3-555
(15
C;3
D3.SR
_DUA2:[DOUCETTE.CZRCD JCZRC

THEN

! NO NEED TO TRY AGAIN

YRLR TN ¥ (Y EYRIEIEIETEIETE

END;

! IF RETPKT ORIGINATED AT CONTROLLER

END;

PUT_RETPKT (.RP_INDX);

! IF SEND WAS SUCCESSFUL

END;

LBN = .LBN ¢+ ?1;
PASS = PASS + 1;

! ADVANCE TO FIRST LBN OF BOTTOM SURFACE

END

! END OF PASS LOOP

! SECOND PASS

R IR

UNTIL .PASS GEQU 3;

PRTR TR IR

IF_.RESULT EQLU FAILURE

THEN

BEGIN

DELAY POSSIBLE ERROR LOG MESSAGE
“’ACCESS FAILED''
RESTORE PROCESSOR PRIOR;TY
SET REASON TO DROP UNIT

IRIR R R

R E A

SETPRI (PRIOS);
ERRDF (18, EGD_18, EMS_18);
SETPRI (PR100);
DUR [.LSLUN] = DU_INIT;
DODU (.LSLUN);

DROP UNIT

END;

004137
005002
005037
005037
013700
006200
010003
¢ 703
005303
012701
013746
004737
010004
010416
012746
004737
013760
112760
012760
010360

0000006
0000006
0000006
000616°*

.SBTTL

ACCESS: JSR
CLR
CLR
CLR

000104
0000006
0000006 0000146
000020 0000206
001000 0000246
0000446

R1,$SAVES

;

2844

: RESULT
:

2867

MOV

USIZE.RO

2868

MOV

RO,R3

; «,LBN

R3
#1.R1
CCTLR,=(SP)

: LBN
1 «,PASS
:

RO.R&
R4 (SP)

: .M, INDEX
. M.INDEX,«

BIC
DEC
1$:

ACCESS INITIALIZATION SUBTEST ROUTINES

ASR

100000

000001
0000006
0000006

IF ACCESS FAILED

! ROUTINE ACCESS

END;

000106

11-Jul=1983 08:44:5 ;
8-Jul=-1983 17:43:5

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

MOV
Mov

JSR

MoV
Mov
MOV
JSR
MOv
MOov8
MOV
MOV

$B. CODE
ST.CODE

#100000,R3

PC,GET.ENV

#104,-(SP)

: «,BN

PC,BLSMUL

(RO)
CPLAT,MSCP.ENV+14

#20,MSCP.ENV+20(RO0)

;

R3,MSCP.ENV+44 (RO)

. LBN,*

#1000, MSEP . ENV+24 (RO)

CZRCDAO RC25 DISK EXERCISER
INITIALIZATION SUBTEST ROUTINES

CZRCD3
v01.0

000112

VAX-11 Bliss=16 V3=555

010416

004737
005700

001006
010416
004737

: *,PASS
H
:
:

2883
2878
2889
2890

: RP.INDX,*

2891

B;RO).JS
3
16(RO) ,ST.CODE

:
:
:

2892
2894
2898

16(R0) ,RS

2899

#174000,R5
R5,S8.CODE
ST.CODE

2900

#2,R1
RP.INDX, (SP)

; *,RESULT
: «,PASS
H

2904
2905
2911

PC,PUT.ENV

2s:

PC,WAIT
PC.OUT.10DQ

RO.RP. INDX
RO (SP)

#60,-(SP)

PC,BLSMUL
#RETPKT,RO
RO,RP.ADDR

000003
0000006

#177740,57.
CODE

0000006

000001
000002

0000006
0000006

4s
#1,R2

3s:
48:

PC,PUT.RETPKT
(SP)+

s RESULT

2922

#240,R0
41
55
22

2926

2927

RO
41

2928

(SP)+,(SP)+
R1,43
18

000240

MoV
TRAP

TRAP
-WORD
.WORD
.WORD
CLR

0000006
000002 000000G
6%:

TRAP
MOV
MovB
TRAP
RTS

2887

2915
2916
2871
2920

000003

; LBN
; PASS
:
; PASS,«

5%:

013700
112760
104451
000207

2882

2%
R&, (SP)

174000
0000006
0000006

000342
000346
000354
000356

: MJ.INDEX,*

PC,SEND

0000006
0000006

177740
000016

2878

0000006

000016

: MJ.INDEX,*

R4, (SP)

0000006
000002

000003

Page

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (15

0000006

000060
0000006
0000006
0000006

SEQ 0242

EGD.18
EMS.18

2929

LSLUN,RO

#2,DUR(RO)
51

$CODES + 3574
Routine Base:
120 words,
: Routine Size:
10
words
; Maximum stack depth per invocation:

H
:

2930
2844

ROUTINE DM_EXER : NOVALUE =

THIS ROUTINE CONTROLS THE OVERALL OPERATION OF THE DM EXERCISER. THE
DM EXERCISER IS A SUBTEST OF THE HOST EXERCISER. ITS BASIC PURPOSE 1S
TO SUPERVISE THE OPERATION OF THE FRONT PANEL TEST WHICH EXECUTES IN
THE DM (DIAGNOSTIC MACHINE).

THE HOST INITIATES THE FRONT PANEL TEST BY DOWN-LINE LOADING THE CROM
PRIMER PROGRAM FROM DM_INIT. THIS PROGRAM HAS THE JOB OF LOADING THE
FRONT PANEL TEST INTO CONTROLLER MEMORY AND PASSING EXECUTION CONTROL
TO IT. WHEN AND IF THIS SUCCEEDS, THE HOST SENDS DOWN THE ADDRESS OF
THE DM EXERCSER / FRONT PANEL TEST COMMUNICATION AREA (DM_COMM). THIS
BLOCK OF MEMORY HOLDS THE UNIT NUMBERS OF DISKS WHICH ARE TO BE
DM-EXERCISED, AS WELL AS UNIT STATISTICS (LOADED BY THE FRONT PANEL
TEST AND READ BY THE HOST).

THIS ROUTINE DISPATCHES PROCESSING TO OTHER ROUTINES ON A REGULAR
BASIS UNTIL ALL UNITS HAVE COMPLETED THE REQUIRED NUMBER OF BYTES
TRANSFERRED. THESE OTHER ROUTINES INCLUDE THE PROCESSING OF DUP END
MESSAGES (DM_RETPKT), UPDATING HOST STATISTICS FROM DM_COMM (DM_TALLY),
AND MAINTAINING COMMAND TIMERS (DRV_TIMCHK).
BEGIN

IF ATTENDED

IF MANUAL
THEN

THEN

‘DM EXERCISER SUBTEST START''
INIT DM_EXER DATA, SEND CROM PRIMER

PRINTF (MSG_06);
ODM_INIT O);

! “EXECUTIVE'® PROCESSING LOOP

BEGIN
BREAK;

DM_RETPKT ();
IF~.T_FLAG EQLU TRUE

INCRBEékz FROM 0 TO (.CTLR_CNT = 1) DO
SET_CPAR (.CTLR);

BREAK IN CASE USER TYPED <CTRL=-(C>
PROCESS ANY DUP END MESSAGES OR 'DRIVER'® ERRORS
%LESNE SECOND HAS ELAPSED

! FOR EACH CONFIGURED CONTROLLER

IF T(.CST_ADDR [STATE) EQLU ONLINE) AND
THEN

(.CST_ADDR [U_CNTJ] NEQU 0))

SET UP CONTROLLER-RELATED DATA ITEMS
IF CONTROLLER IS ONLINE AND
THELHERE IS AT LEAST 1 UNIT UNDER TEST

BEG.N

IF DM_ACC O

THEN

DM_TALLY ().

DM_TIME ();
END;

SEQ 0243

Pa?e
VAX=11 Bliss~16 V3=555
_DUAZ:[DOUCEfTE.CZRCDJCZRCD3.SRC;3 (16

XSBTTL °'DM EXERCISER ROUTINES'

P
T

® e 8o 8e BeBo®s BetoBe®oto®eBee®eBato0s0s0:®0 800000000080 00%0%0 %080000,0¢0000%000080000:0:800:00%09%0000%00, ®e % e
s 0.

CZRCDAQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES

11=-Jul-1983 08:44:5 2
8-JuL=1983 17:43:5 7

CZRCD3

v01.0

%ZEQCCESS GAINED TO DM_COMM AREA

ADD DM_COMM STATS TO HOST TOTALS

CHECK FPT SANITY TIMER FOR CONTROLLER

! IF CTLR IS ONLINE AND AT LEAST ONE UNIT

mn3
11-Jul-1983 08:44:5 2

CZRCDAO R €25 DISK EXE
DM EXERCISER ROUTINES

CZRCD3
v01.0

8-Jul-1983 17:43:5 7

! CONTROLLER LOOP

END:

DRV_TIMCHK ();

! CHECK FOR COMMAND TIMEOUTS

END;

! IF ONE SECOND HAS ELAPSED

! END OF "EXECUTIVE'® LOOP

END

! UNTIL ALL UNITS DONE

UNTIL DM_QUIT O);

! ROUTINE DM_EXER

END;

004137
104450

103007
012746
012746
010600
104417
022626

004737
104422
004737
123727
001035
013702
005001
000425
01014€
004737
013700
005760
100013
105760
001410

0000006
000001

.SBTTL

DM.EXER: JSR
TRAP
BHIS

MOV
MOV
MOV
TRAP

CMP
JSR

000000V

TRAP
JSR
CMPB
BNE

000000V
0000006 000001

MOV

0000006
3%:

000005

004737
006000

000000V

004737
004737
005726
005201
020102
002751
004737
004737
006000
103330
000207

000000V
000000V

103002

000150
000152

0000006

0000006
0000006
000002

CLR
BR

MOV
JSR
MOV
TST
BPL
1ST8

BEQ
JSR
ROR

4%:
5%:

6$:

000000V
000000V

SEQ 0244
Pa?e
_DUAZ:[DOUCETTE.CZRCDJC IRCD3.SRC;3 (16

VAX-11 Bliss=16 Vv3-555

7%:

8CC
JSR
JSR
TST
INC
(MP
BLT
JSR
JSR
ROR
8cC
RTS

DM.EXER DM EXERCISER ROUTINES
R1,$SAVE2
50
1$
#MSG.06,-(SP)
#1,-(SP)

SP,RO
17
(SP)+,(SP)+
PS.DM.INIT
2
PC,DM.RETPKT
T.FLAG,#
7%

CTLR.CNT,R2

R1
6%
R1,-(SP)
PC,SET.CPAR

P CTLR
; CTLR,*

CST.ADDR,RO

2(R0)
5%
5(RO)
5%

PC,DM.ACC
RO
4%

PC,DM.TALLY
PC.DM.TIME
(SP)+

R1
R1,R2

PC.DRV.TIMCHK

SS.DF.OUIT
2%

Base:
$CODES + 4154
Routine
.
54 words,
; Routine Size:
7
words
ion:
invocat
per
: Maximum stack depth

CTLR
CTLR,*

~NnN0

Ha
W&

~Oo

b
b

11=Jul8-Jul-

CZRCDAO RC25 DISK EXERCISER
DM EXERCISER ROUTINES
ROUTINE DM_INIT : NOVALUE =
'+

i @imi@mimimoamy
@y

THIS ROUTINE IS CALLED BY DM_EXER WHEN THE DM EXERCISER IS FIRST

STARTED, ITS PURPOSE IS (A) TO INITIALIZE DM EXERCISER DATA, AND (B)
TO START THE FRONT PANEL TEST EXECUTING IN THE DM.

THE MOST SIGNIFICANT DATA INITIALIZATION OCCURS IN THE COMMUNICATION
AREA (DM_COMM) BETWEEN THE HOST AND THE FRONT PANEL TEST. PLATTER
ADDRESSES TO BE EXERCISED UNDER THE FPT ARE LOADED INTO THIS AREA,
AND ALL STATISTICS AND ACCESS WORDS ARE CLEARED TO ZERO.
TO START THE FPT EXECUTING, THIS PROGRAM CAUSES THE CROM PRIMER TO

BE DOWN-LINE LOADED INTO THE DM VIA DUP'S “‘EXECUTE SUPPLIED PROGRAM''

Pttt

MESSAGE. THE CROM PRIMER THEN LOADS THE FRONT PANEL TEST INTO RAM AND
STARTS ITS EXECUTION. THE SUCCESS / FAILURE OF THIS OPERATION IS
FOMMUNICATED BACK TO THE HOST THROUGH AN END MESSAGE.

BEGIN
LOCAL

! MSCP ENVELOPE INDEX

MX : WORD;

! FOR EACH CONFIGURED CONTROLLER

xNCRBEé%z FROM 0 TO (.CTLR_CNT - 1) DO

! SET UP CONTROLLER-RELATED PARAMETERS
; %;E§0NTR0LLER IS ONLINE

SET_CPAR (.CTLR);
%ZEQCST'ADDR [STATE] EQLU ONLINE

R
PRYR FE FI K] [ IR
TR FELN
FEPR
TR I A R
A
PEIR IR
[P E A

! CLEAR CTLR'S DM_COMM STATS

+ 2) - 2) BY 2 DO
C.L
INCR COUNT FROM 8 TO ((DMC_LEN
(.DMC_ADDR + .COUNT) =70;
1~cnag2§zsl FROM 0 TO 3 DO

! FOR EACH UNIT UNDER CTLR

IF .CST_ADDR [.OFFSET ¢ OF _UN, P_STAT] EQLU ONLINE ! IF UNIT IS ONLINE
AEN
! THEN LOAD PLATTER ADDRESS
SEDMC_ADDR C.OFFSET, ALLBIT] = .CST_ADDR [.OFFSET + OF UN, P_ADDR]
! OTHERWISE
DMC_ADDR [.OFFSET, ALLBIT]

-1;

! DO NOT EXERCISE

' END UNIT LOOP

END;

IF .“NTRY_REASON NEQU NEW_PASS
THEN

BEGIN

DM_TIMR [.CTLR] = 0;

MX“= GET_ENV (.CTLR);
MSCP_ENVTMC.MX, CONNID]
MSCPZENV [.MX, OPCODE]
MSCPTENV
E MX . DBC_LOJ
-

' IF START, REST4RT, CONT, OR PWR FAIL
! THEN

' INIT FPT SANITY TIMER
! GET AN MSCP ENVELOPE

! CONNECTION ID (DUP)
CID _DUP;
! OPCODE = EXECUTE SUPPLIFD PROGRAM
opP_EsP;
! BYTE COUNT
.CROMP [0];
MSCPZENV [.Mx, DBUF_0) = CROMP;
! BUFF DESC OF CROM PRIMER
MSCPTENV C [.MX, OBUF0] = CROMP + .CROMP [0]; ! OVERLAY BUFF DESC

IF SEND (.MX) EQLU FAILURE

SEQ 0245

?gge
VAX=11 Bliss=16 V3-555
_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (

T I A TE

A TR

PRI RAR I LA LR TR TN YR XN X (YR FEYEYRE

PN TN PR LR TN YN ¥

CZRCD3
v01.0

b4
©o 0o
W

' ATTEMPT TO SEND. IF FAILURE

TRNN X

HEN

THEN

! IF START, RESTART, CONT, OR PWR FAIL

FETN PR LN PR LN

! END = IF CTLR IS ONLINE

END;

! END CONTROLLER LOOP

END;

' IF START, RESTART, OR NEW PASS

[TR YRIEIEYEIEIETE IR

IF (C.ENTRY_REASON NEQU CONT) AND
(.ENTRY_REASON NEQU PWR_FAIL))

THEN

INCR COUNT FROM 0 TO ((HAX _UNITS « TALLY_LEN) = 1) DO
TALLY [.COUNT]
=

THEN

! CLEAR ALL STATS

T_FLAG = FALSE;

! CLEAR ONE SECOND TIMING FLAG

END;

! ROUTINE DM_INIT

0000006
0000006

0000006
0000006
000002

000010

0000006

.SBTTL

18:

2%:

3s:

0000006

000003

000000G 000005

177777

Ladad

000006
000001

H
H
: CTLR

3003
3027

: CTLR,»

3030

MOV

CST.ADDR,RO
2(R0O)

3031

TST

#10,R0
RO,R1
DMC.ADDR,R1

s *,COUNT
,»
: COUNT

3035
3036

#2.R0
52,062

s «,COUNT
: COUNT,*

3035

R1
2;.R2

; OFFSET
; OFFSET,e

3037
3042

MOV

DMC.ADDR,R2
26.R0

: OFFSET,»

3040

BIT

CST.ADDR,RO
2%0000.6(R0)

6(R0), (R2)

3042

; OFFSET

3040
3044
3037

CMPB

;gTRY.REASON.JS

3048

Mov
ASL

R3,R0

: CTLR,®

3052

CLR
8R
JSR
MOV

BPL
MOV
MOV

ADD
CLR
ADD
CMP
8LE
CLR
MoV
ASL
ADD
ASL
ADD

0000006
020000 000006

DM.INIT DM EXERCISER ROUTINES

R1,$SAVES
CTLR.CNT RS
R3
8s
R3,=(SP)

DM.INIT:%SC

000002
000062

006300

Pa?e
VAX=11 Bliss=16 v3-555
(17
.
SRC:3
_DUA2:[DOUCETTE.CZRCDICZRCD3

! RETURN ENVELOPE TO POOL

PUT_ENV (.MX);

END;

004137
013704
005003
000531
010346
004737
013700
005760
100117

000154

152
7

DISK EXERCISER
CZRCDAO chg
ROU X ES
DM EXERCISER

CZRCD3
v01.0

SEQ 0246

8EQ
Move
CLRB
BR
MOV
INC
CMP
BLE
8EQ

PC,SET.CPAR

(R1)

1(R2)

#-1,(R2)

51.13

: OFFSET,»

SEQ 0247

Pa?e
VAX-11 Bliss=16 V3-555
(17
.SRC;3
ICZRCD3
_DUA2:[DOUCETTE.CZRCD

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

DM EXERCISER ROUTINES

DM.TIMR(RO)

000620°*

000156
000162

R3,(SP)

PC,GET.ENV

0000006

PC.BLSMUL
", HSCP ENV+7(RO)
#2,MSCP.ENV+20(R0)

:
CROMP ,MSCP. ENV+24 (R0)
H
#CROMP,MSCP. ENV+3C (RO)
:
MSCP.ENV+24 (R0) ,MSCP, ENV+44 (RD) :;

0900246 0000446
001716* 000044G

0000006

s MX,

3061

:
:

3050
3028

1 0$
ENTRY .REASON, #4
108

0000006 000004

0000006
000002
001376

9%:

0000006

108:

116 words,

RO
6%
RS, (SP)

ENTRY.REASON,#3

0000006 000003

RO
TALLY(RO)
#2 R0

RO, #1376

RTS

T.FLAG
PC

Routine Base:
$CODES + 4330
9 words

; Maximum stack depth per invocation:

3055
3056
3057
3058
3059

R3
R3.R4
1$

8s:

3054

: MX,v

PC,PUT.ENV
(SP)+
(SP)+

6$%:
7%:

3053

#CROMP ,MSCP.ENV+44 (RO)
RS,(SP)
PC.SEND

0000006

: Routine Size:

: v ,MX

: MX,

000104
0000006
000002 0000076

000207

; CTLR,»

: CTLR

: CTLR,*

3027

3069

3070

s COUNT
; *(COUNT)
s *,COUNT

3072
3073

:
:

3075
3003

; COUNT,«

3072

CZRCDAQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES

CZRCD3
v01.0

SEQ 0248
Pa ?e
VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD 3.SRC;3 (18

Se ®s 0,

THIS ROUTINE IS CALLED BY THE DM_EXERCISER 'EXECUTIVE' (DM _EXER) TO

A IR PR TR YR Y PN TN PR

DETERMINE WHETHER OR NOT THE DM EXERCISER SUBTEST SHOULD BE TERMINATED.
ITS PURPOSE IS TO EXAMINE THE STATUS OF THE CURRENT PASS TESTING
VECTOR (CPT). IF EACH UNIT'S VALUE IN THIS TABLE IS ‘NO'' (INDICATING
THAT CURRENT PASS TESTING ON THE UNIT IS COMPLETE), THEN THIS ROUTINE
RETURNS A VALUE OF "‘TRUE'' TO ITS CALLER. IF ANY ONE UNIT HAS A VALUE
OF ''YES'', THEN °‘‘FALSE'® IS RETURNED.
IMPLICIT INPUTS:

T A I E TNYE

LSUNIT = NUMBER OF UNITS CONFIGURED FOR TEST

BEGIN

IE
PR PRI RI E

152
57

ROUTINE DM_QUIT =

INCR UNIT FROM 0 TO (.LSUNIT - 1) DO
IF .CPT [.UNIT] EQLU YES

FOR EACH CONFIGURED UNIT

RETURN FALSE;
RETURN TRUE.

TEST NOT FINISHED
ALL UNITS DONE

IF UNIT STILL UNDER TEST

THEN

3100
3101

005000
000405

126027

000032
000034

11-Jul=198
8-Jul-198

001407
005200
020037
002770
012700
000207
005000
000207

; Routine Size:

! ROUTINE DM_QUIT

END:;
.SBTTL
DM.OUIT:gkR

000000G 000001

1%:

0000006

2%:

000001
3s:

15 words,

; Maximum stack depth per

cMPB

DM.QUIT DM EXERCISER ROUTINES
gg

: UNIT

CPT(RO) , M

,»
: *(UNIT)

BEQ
INC

33
RO

?2.LSUNIT

: UNIT,»

MOV

#1,R0

CLR

gr¢
RTS
RTS

Routine Base: $CODES + 4700
invocation: 0 words

:
: UNIT

010146

000002
000010

023737
001506

~NN

VAN

—_
~GCo

00
0 Co
Wl

Pa?e
VAX=11 Bliss=16 Vv3=555
(19
_DUA2: [DOUCETTE.CZRCDICZRCD 3.SRC;3

et tmitmemimomimsmswmo
e

THIS ROUTINE IS CALLED BY DMEXER _TO CHECK FOR AND PROCESS ANY RETURN
PACKETS THAT HAVE BEEN °''SENTTM BY THE 'DRIVER'' PORTION OF THE PROGRAM.
THE 1/0 DONE QUEUE (10DQ) ACTS AS THE LINK BETWEEN THE TWO SPROGRAM
PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH REQUIRE PROCESSING.
ggasgegflE DM EXERCISER SUBTEST, RETURN PACKETS ORIGINATE FROM TwO

1. DUP ~ DESCRIBING AN END MESSAGE RECEIVED FROM THE RC25 IN
RESPONSE TO A HOST COMMAND

2. THE PROGRAM 'DRIVER'' ~ DESCRIBING A CONTROLLER ERROR OR
COMMAND TIMEOUT.

BEGIN

! DO UNTIL 1/0 DONE QUEUE IS EMPTY

UHILEE&}gDO'IN NEQU .I0DQ@_OuT DO

RP_TNDX = OUT_I0DQ ();

GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER

THEN

RPTADDR = RETPKT + (.RP_INDX ~ RP_LEN « 2); ! CALCULATE RETPKT ADDRESS
SET UP CURRENT CONTROLLER PARAMETERS
SET CPAR (.RP_ADDR [CTLR));
UNIT NUMBER OF FIRST UNIT
GET
LSLON = .CST_ADDR [OF _UN, P_UNIT];
IS FROM PROGRAM ‘DRIVER'
RETPKT
IF
CID_DRIVER
EBLU
IF .RP_ADDR TCONID]
BEGIN

IF .RP_ADDR [MESTYP] EQLU MT_TIMEOUT

THEN

ERRDF (15, EGD_15, EMS_15);

DROP_CTLR (.CCTLR, DU FATAD);
CST_ADDR [STATEJ = OFFLINE;

ELSE

IF COMMAND TIMEOUT

THEN
*MESSAGE RESPONSE TIMEOUT"
DROP CONTROLLER'S UNITS

MARK CONTROLLER OFFLINE

END

! OTHERWISE (RETPKT NOT FROM 'DRIVER'®)

BEGIN

! IF RETPKT IS FROM DUP

IF .RP_ADDR [CONID] EQLU CID_DUP

THEN

! THEN

! PROCESS THE END MESSAGE

DM_MSG ();

END;

b wd

N U AN N N N NN W AN G AN N N AN N AN NN NN N W N N W N
N AN NN AW N AN N W NN W LN N WA d b mad i D emd o
b s e e s
D e D e
D b e
D D e
b e
b b b D e b b b b b — b b b cnd b b b o
WVIWA
D BN B
50 8 5 8 B
NN
W N N WWNWWNAN NN NN PNINVMNIIN = D ed d ed D b = b = OO OO OO (=l=]
=200 00 ~NO VNS WA = O 0NN
NN =2 O 000 NS WD
=S OOV NOWVIBWN—=O 0NNV SN

b
b od

000000

SEQ 0249

ROUTINE DM_RETPKT : NOVALUE =

WA LA WA W AN W

R e e ®s e e Be B0 0B B0 0e 0000 000e0a8s0 0000000059000 C00s%0000,000000008:08,0005%008, %0400, LR KR XN ¥

11=Jul=8-Jul-

CZRCDAQ RC25 DISK EXERCISER
OM EXERCISER ROUTINES

CZRCD3
v01.0

4
-—

PUT_RETPKT (.RP_INDX);

' RETURN PACKET TO POOL

END;

! END = UNTIL 1/0 DONE QUEUE IS EMPTY
! ROUTINE DM_RETPKT

END;
.SBTTL

0000006 0000006

DM.RETPKT:
MOV

1$:

ggg

DM.RETPKT DM EXERCISER ROUTINES
R1,-(SP)

ggDO.IN.lODQ.OUT

3102
3120

11=Jul=1983 08:46:52
8-Jul-1983 17:43:57

CZRCDAQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES

000024

004737
010037
010046
012746
004737
062700
010037
116016

042716
004737
013700
016001
000301
042701
010137
013700
126027
001030
116000

042700
020027
001004

0000006
0000006

000003

¢ST.ADDR,RO

MOV
MOV

CMPB

BNE
MOVB

BIC

177417

000100

28:

100000

000002

000003

000002

000000V

0000006
0000006

000666
012601
000207

5%:

77 words,

; Maximum stack depth per

CMP
BNE
TRAP
WORD
"WORD
‘WORD

MOV

MOV
JSR
MOV

BIC
TST
3s:

Routine Base:

invocation:

5 words

2(R0).,(SP)

MOV
BIC

000002

RO,RP.ADDR

BIC

MOV
SWAB

000002

#60.-(SP)

#177760, (SP)

JSR

0000006

; Routine Size:

PC,BLSMUL
#RETPKT,RO

MOVB

000017
000000G

000226
000230

JSR
ADD

MOV

104455

000224

PC,OUT.I10DQ
RO.RP. INDX
RO =(SP)

MOV

000060
0000006
0000006
0000006
000002
177760
0000006
0000006
000006
177740
000000G
0000006

JSR
MOV
MOV

B8R

CMPB

BNE
JSR
MOV
JSR
CMP
BR
MOV
RTS

PC,SET.CPAR
6(R0) ,R1
R]

SEQ 0250
Pa?e
VAX=11 Bliss=16 Vv3-555
(19
C;3
_DUA2: [DOUCETTE.CZRCDICZRCD 3.SR

3123

: RP.INDX,*

3124

3125
3126

#177740,R1

R1,LSLUN
RP.ADDR,RO

3127

3
2(R0O),RO

313

3(RO).#%

M77437.R0
RO,#100
28
S5
17
EGD.1S
EMS.15

CCTLR, (SP)

#6,-(SP)
PC .DROP. can
CST.ADDR,R

é(RO)
c1ooooo
<s
3(R0).l2

A3
PC,DM.MSG
RP. INDX, (SP)
PC.PUT.RETPKT
(SP)+, (SP)+
1%
(SP)+,R1
PC

$CODES + 4736

3133

COMMAND). FOR THE °EXECUTE SUPPLIED PROGRAM'' END MESSAGE, THIS ROUTINE
FORMATS AND SENDS A °'‘SEND DATA'' MESSAGE, PROVIDING THE FRONT PANEL TEST
WITH THE HOST ADDRESS OF THE CURRENT CNTROLLER'S DM EXERCISER
COMMUNICATION BLOCK (DM_COMM).
IMPLICIT INPUTS:

RP _ADDR - ADDRESS OF THE CURRENT RETURN PACKET

CCTLR = CURRENT CONTROLLER NUMBER
DMC_ADDR ~ ADDRESS OF CURRENT CONTROLLER'S DM_COMM AREA

BEGIN

LOCAL

' MSCP ENVELOPE INDEX
! DUP OPCODE

MX : WORD,
DUP OP : WORD,

U U b
U Ub e
U Ub Ub N
AN N AN AN AN N N Nb N
N NN N N N
N N NN N
d eod e b d d oD e
i b e D b e
D o i e e e

THIS ROUTINE IS CALLED BY DM_RETPKT FOR ALL DUP END MESSAGES RECEIVED

THIS ROUTINE FIRST CHECKS THE STATUS CODE OF THE END MESSAGE; IF IT
INDICATES ANYTHING OTHER THAN SUCCESSFUL COMPLETION OF THE COMMAND,
THEN A DEVICE~FATAL ERROR IS DECLARED FOR THE CONTROLLER, AND ALL ITS
UNITS ARE DROPPED. IF THE STATUS CODE INDICATES SUCCESS, THEN
PROCESSING IS DEPENDENT ON THE ENDCODE (OPCODE OF THE ASSOCIATED

! UNIT NUMBER

b =

UNIT : WORD;

' IF STATUS CODE NOT SUCCESS

IF (ST_CODE = .RP_ADDR [STATUS]) NEQU ST_SUC

THEN

! THEN

BEGIN

! *DUP COMMAND FAILED'’

ERROF (21, EGD 21, EMS_21);

' DROP CONTROLLER'S UNITS

DROP_CTLR (.CCTLR, DU_FATAL);

b cnd
b
b cod wmd
e —ad e
—

11=Jul=19
8-Jul=19

SEQ 0251
Page
VAX=11 Bliss=16 V3=555
(20
SRC;3
JCZRCD3.
CZRCD
OUCETTE.
_DUA2:[D

BY THE DM EXERCISER.

b ad avd

QNN N AN N N U N N NN U AN O N U G

XS T E TR A I TR TR I PR
R
EE
AR
Qe Be B VeV 0BV VW B8, 808,08, 0, % 0509, RN

N X (YR YERIEXXE TR LNLN TN ¥

ROUTINE DM_MSG : NOVALUE =

OO NNV
00D N N NN NNNNNN OO ONONONONO
0 OO OO0V V0000000000000
NN
NN — OOV ~NOWNEWIN
~ NN W= O OO NO VNN =2 OO0 NO VIS NN 2OV

C2ZRCDAO RC25 DISK EXERCISER
DM EXERCISER ROUTINES

TRPR TR IRTR TRTR RN T

CZRCD3
v01.0

: ;

ELSE

END

! OTHERWISE - SUCCESS

BEGIN

! GET OPCODE

gup OP = .RP_ADDR [ENDCOD] AND OP_MSK;
ELECTONEU .DUP_OP OF
SET

! IF "EXECUTE SUPPLIED PROGRAM'’

[OP_ESP] : BEGIN
MX = GET_ENV (.CCTLR);

MSCP_ENVTMC.MX, CONNID]

MSCPZENV [.MX, OPCODE]
MSCPTENV [.MX, DBC_LOJ

CID_DUP;

OP_SND;

MSCPTENV [.MX, DBUF 0] = gfiC_ADDR:

IF SEND (.Mx) EQLU FAILUR

THEN

END;

PUT_ENV (.MX);

GET AN MSCP ENVELOPE

CONNECTION ID (DUP)

OPCODE = SEND DATA
BYTE COUNT

ADDR OF ADDR OF CTLR'S DM_COMM AREA

ATTEMPT TO SEND. IF FAILURE
THEN
RETURN ENVELOPE TO POOL

! END = IF "EXECUTE SUPPLIED PROGRAM'’

:
:
:
:
.
:
:

000000
000002

3209
3210
3211
3212
313
3214
3215

010146
013700
016037

TES;

! END - IF STATUS CODE = SUCCESS

END;

! ROUTINE DM_MSG

END;
.SBTTL
DM.MSG: MOV

MoV
MOV

0000006
000016 0000006

BEQ
TRAP

000000G

1%:

000014
177600
000002

MOV

JSR
MOVB
MOVB
MOV

MOV

0000006 0000306
0000006

MoV
JSR

0000006

MOV
JSR

TST
BNE

2$:

3s:

000004
000000G

000550

CMP
BR

CMP

A ¥

000207

70 words,

14(R0O) ,RO
#177600,R0
RO, #2
3s

3186

3183
3192

: «,DUP.OP
; «,DUP.OP
: DUP.OP,*

RO,R1
R1,(SP)

; « MX
; MX,»

PC.BLSMUL
#2,MSCP.ENV+7(RO)
#6 ,MSCP.ENV+20(R0)
#2 ,MSCP.ENV+24(RO)

H
:

#104,=(SP)

#DMC.ADDR,MSCP.EnV+30(R0O)
R1,(SP)
PC,SEND
RO
2%

: MX,»

R1,(SP)
PC,PUT.ENV

»
; MY,

RO, 44

: DUP.OP,*

(SP)+,(SP)+
43

MOV

#550,0M, TIMR(R0D)

RTS

gSTLP.RO
(SP)+,R1

Routine Base: $CODES + 5170
& words

; Maximum stack depth per invocation:

MOV

CCTLR,=-(SP)

PC.GET.ENV

BNE

:gr

000620

RP.ADDR,RO

MOVB
BIC
CMP
JSR

0000006
000002 0000076
000004 0000206
000002 0000246

1%
55

MoV

Mov
MOV

000104

RP.ADDR,RO
16(R0O) ,ST.CODE
25
€GD.21
EMS.21
CCTLR,=(SP)
#6 ,=(SP)
SE.DROP.CTLR

MOV

0000006

DM.MSG DM EXERCISER ROUTINES
R1,-(SP)

.WORD
.WORD
.WORD
MOV
MoV
égR

BNE

0000006

: Routine Size:

SEQ 0252

Pa?e
VAX=11 Bliss=16 v3=555
(20
3.SRC;3
DJCZRCD
_DUAZ:[DOUCETTE.CZRC

' IF ''SEND DATA'', START FPT SANITY TIMER

COF_SND] : DM_TIMR C.CCTLR] = TO_DM;

0000006
000004
0000006

000212

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAD RC2S DISK EXERCISER
DM EXERCISER ROUTINES

C2RCD3

H
M

H
:

3193

3198

SEQ 0253

Pa?e
VAX=11 Bliss=16 V3=555
(21
;3
3.SRC
CZRCD
]
_DUA2:[DOUCETTE.CZRCD

CZRCDAQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES

CZRCD3
v01.0

ROUTINE DM_ACC =

THIS ROUTINE 1S CALLED BY DM_EXER IN ORDER TO ATTEMPT TO GAIN ACCESS
TO THE CURRENT CONTROLLER'S DM_COMM AREA. IF ACCESS IS PERMITTED (I.E.,
IF THE FRONT PANEL TEST (FPT) TS NOT CURRENTLY UPDATING DM_COMM
STATISTICS), THEN THIS ROUTINE RETURNS A VALUE OF '‘SUCCESSTM. OTHERWISE,
ACCESS IS DENIED AT THIS TIME, AND 'FAILURE'' IS RETURNED.
IMPLICIT INPUTS:

DMC_ADDR = ADDRESS OF CURRENT CONTROLLER'S DM_COMM AREA

OQUTPUTS:

"*SUCCESS’* = ACCESS TO DM_COMM IS PERMITTED

“FAILURE'' = ACCESS TO DM_COMM IS DENIED
BEGIN

LOCAL
RESULT : WORD;

RESULT OF ACCESS REQUEST

RESULT = SUCCESS;

ASSUME ACCESS WILL BE GAINED
SET HOST ACCESS WORD

DMC_ADDR [HOST_ACC] = ALL_ONES;

IF -DMC_ADDR CFPT_ACC) NEGU O

THEN

%LE&PT HAS ACCESS NOW

BEGIN

WITHDRAW ACCESS REQUEST
CHANGE RESULT TO FAILURE

DMC_ADDR [HOST_ACC] = O0;

RESOLT = FAILURE;
END;

RETURN .RESULT;

ROUTINE DM_ACC

END;'

004137
012702
013701
012761
¢:10100
005760
001403

000207

0000006
000001
0000006
177777 000062

.SBTTL
DM.ACC: JSR
MOV
MoV
MOV
MOV
TST

000060

DM.ACC DM EXERCISER ROUTINES
R1,$SAVE?2
#1,R2
DMC.ADDR, ?1
#-1,62(R1

* RESULT
DMC.ADDR,
*

8EQ

000062

1$:

CLR
CLR

MoV
RTS

Routine Base: $CODES + 5404
; Routine Size: 18 words,
: Maximum stack depth per invocation: & words

RESULT

RESULT,»

CZRCD3
v01.0

152

CZRCDAQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES

VAX=-11 Bliss=16 v3-555

i
i

[4
.

[

L]
[4

THIS ROUTINE IS CALLED FROM DM EXER AFTER ACCESS HAS BEEN GAINED TO
THE CURRENT CONTROLLER'S DM COMM AREA. ITS PURPOSE IS TO EXTRACT THE

STATISTICAL VALUES STORED TRERE BY THE FRONT PANEL TEST (EXECUTING IN

]

THE DM), AND TO ADD THESE VALUES TO THE HOST-KEPT STATS. THE STATS IN

[
.

;

DM_COMM ARE THEN RESET TO 0.

AFTER UPDATING THE HOST STATS, THE NUMBER OF HARD ERRORS AND THE NUMBER

CURRENT PASS.

[4
.

OF MBYTES TRANSFERRED THUS FAR FOR EACH UNIT IS CHECKED AGAINST THE
LIMITS SPECIFIED IN THE SW P-TABLE. IF THE HARD ERROR LIMIT HAS BEEN
REACHED, THEN THE UNIT 1S DROPPED FROM ALL TESTING. IF THE TRANSFER
LIMIT HAS GZEN REACHED, THEN THE UNIT IS SIMPLY REMOVED FROM THE

i
i
i
i

[
-

[4
4
.

[4
.

IMPLICIT INPUTS:

[
)

[

DMC_ADDR = ADDRESS OF THE CURRENT CONTROLLER'S DM_COMM AREA

;

L4
.

[4
-

BEGIN

[4
.

[

LOCAL

[

ST PIR,

[4
-

NBXFR : WORD:

ST PTR = .DMC_ADDR + 8

[4
[
[
.

INER OFFSET FROM O TO 3 DO
BEGIN

IF _.DMC_ADDR [.OFFSET, 0, 16, 1] GEQ@ 0

[4
[4
[

THENBEGIN

! STATISTICS POINTER IN DM_COMM

i NUMBER OF BLOCKS TRANSFERRED

! POINTS TO STATS FOR FIRST UNIT
FOR EACH UNIT

! IF UNIT IS BEING DM-EXERCISED
THEN

4
.

[4
.

L]
.

[4
.

[
.

.
-

[
-

[4
.

[
.

[4
[4
.

L4
.

[4
.

4
.

[
[

SET_UPAR (.OFFSET + OF _UN);

SET UP UNIT-RELATED PARAMETERS

UPD_LOC (T ADDR [SEEK_LO], ..ST_PTR);

UPDATE NO. OF SEEKS

ST_PTR = .ST_PTR + 2;

ADVANCE DM_COMM POINTER

NBXFR = ..ST_PIR;

NUMBER OF BLOCKS READ (1 BLOCK PER READ)
UPDATE NO. OF READS
UPDATE NO. OF BYTES READ, CHECK FOR OVERFLOW
RESET STAT 10 0
ADVANCE DM_COMM POINTER

UPD_10C (T_ABDR EREAD_LOJ, ..ST_PIR);
uPD_DMBC (Y_ADDR [BR_[0J, ..ST_PIR);
.ST_PTR = 0:

ST_PTR = .ST_PTIR + 2;
NBXFR = .NBXFR + ..ST_PITR;

UPD _10C (T_ADDR [WRITTLOJ, ..ST_PIR);
UPD_DMBC (T_ADDR [BW_[0]1, ..ST_PTR);
.ST_PTR = 0;

ST_PTR = .ST_PTR + 2;

RESET STAT T0 0

ADD NUMBER OF BLOCKS WRITTEN (1 BLOCK PER WRITE)
UPDATE NO. OF WRITES
UPDATE NO. OF BYTES WRITTEN, CHECK FOR OVERFLOW
RESET STAT TO 0
ADVANCE DM_COMM POINTER

L4
0

[
.

[4
[4
[4

! UPDATE NO. OF DM SOFT ERRORS
T_ADDR [ER_SFT) = .T_ADDR [ER_SFT] + .. ST - PTR;
'"RESET STAT 10 0
8T PTR = O;
! ADVANCE DM_COMM POINTER
ST_PTR = .ST_PTR + 2;
HARD_ERR (..ST_PTR);

Pa?e

-DUAZ:[DOUCETTE.CZRCDJCZRCDS.SRC;3 (22

ROUTINE DM_TALLY : NOVALUE =

SEQ 0254

! UPDATE HRD ERR CNT + CHK FOR LIMIT

11-Jul-1983 08:4 4:5 2
8-Jul-1983 17::43:5 ’

CZRCDAOQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES
NN = OO

N AN WA N N AN W AN N N AN AN N AN N
AN LA U U U AN UGN N LN AN NN NN
OINIAIA)
b = o b orid e d vd d = O

CZRCD3
v01.0

ST_BTR = .ST_PTR + 2;
IF _.NBXFR NEQU 0

! IF A COMPLETE PASS HAS BEEN MADE

WN =2 O VOO NIV

IF MANUAL

PRINTF (MSG_08, .NBXFR,

DM_TIMR [.CCTLRY = TO_DM;

.LSLUN, .CPLAT);
;

IF ATTENDED
THEN

! XXXXX. BLOCKS TRANSFERRED ON UNIT XX. (PLATTER XX

! RESET FPT SANITY TIMER

XFR_CHK ();

! CHECK IF TRANSFER LIMIT REACHED

END

! END - IF UNIT IS BEING DM-EXERCISED

ST_PTR = .ST_PIR ¢ 10;

! ADVANCE DM_COMM POINTER TO NEXT BLOCK

! OTHERWISE

! UNIT LOOP

DMC_ADDR [HOST_ACC] = 0;

! TELL FPT THAT WE ARE LEAVING

END;

! ROUTINE DM_TALLY

0000006
0000006
000010

.SBTTL

DM.TALLY:
JSR

1$:

000000G

000003
000000G
0000006
000010

0000006

0000006
0000006
000014
000000V

013716

END;

0000006

000122

Pa?e

! THEN

BEGIN
THEN

SEQ 0255

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (22

! RESET STAT 10 0
! ADVANCE DM_COMM POINTER

END;

013703
062703
005001
010100
006300
063700
005710
002520
010146
062716

VAX-11 Bliss=16 V3=555

.ST_PTR = 0;

THEN

ELSE

004137

0000006

MOV
ADD
CLR
MOV
ASL
ADD

TST
BLT

MOV

ADD
JSR
MoV
ADD
MOV

JSR
CLR

MOV
MOV
Mov

JSR

MOV
ADD
MOV

JSR
CLR

ADD
Mov

DM.TALLY DM EXERCISER ROUTINES
R1,$SAVE3

DMC.ADDR,R3
g}O.RS
R1.RO
RO

+,ST.PTR

3252
3278

OFFSET
OFFSET,«

3279
3282

*,ST.PTR

DMC.ADDR,RO

(RO)
4
R1,-(SP)
#3. (SP)
PC.SET.UPAR
T.ADDR, (SP)
#10, (SP)

«
OFFSET,

(R3),~(SP)

ST.PTR,«

(R$)+

(R3) .R2

ST.PTR
ST.PTR,NBXFR

(R3§,-(SP)

ST.PTR,«

(R$)+

ST.PTR

PC,UPD.10C

T.ADDR, (SP)
R2,=-(SP)
PC.UPD.10C
T.ADDR. (SP)
#14, (SP)

PC,UPD.DMBC

(R3) ,R2
T.ADDR, (SP)

ST.PTR,NOXFR

000126

062716
011346
004737
013716
062716
011346
004737
005023

#4,(SP)

0000006
0000006
000022

PC,UPD.10C
T.ADDR, (SP)
#22,(SP)

000000V

PC,UPD.DMBC

0000006
000034

T.ADDR,RO
(R3),34(RO)
(R3)+
(R3), (SP)
PC,HARD.ERR

(R$),=(SP)

000010
0000006

000003

000207

0000006
000062

L1
)

000012

3301
3304

; ST.PIR

3305

: ST.PIR
: NBXFR

3309
3312

3316

CPLAT, (SP)

3318

R2,=(SP)

: NBXFR,*

104 words,,

: ST.PTR,»

: ST.PTR,*

SP,RO

: SP,»

CCTLR,RO

PC,XFR.CHK
#14,5P

.
:

17
#10,SP

RO
#550,0M. TIMR(RO)

5%
#12,R3
R1
R1,43
1$

DMC.ADDR,RO
62(R0)
PC

)
$CODES + 5450
e Base:
Routin
:
16
words
: Maximum stack depth per invocation
; Routine Size:

ST.PTR,*

: ST.PTR
H

#4,~(SP)

000558 000620°
0000006
000014

3300

(RS+

#MSG.08,-(SP)

2$:

ST.PTR,»

LSLUN,=(SP)

0000006
000004

(R3),=(SP)

(R3)4

0000006
0000006

Pa?e

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (22

000004

0000006

000316

VAX=-11 Bliss=16 V3-555

CZRCDAO RC25 DISK EXERCISER
DM EXERCISER ROUTINES

CZRCD3
v01.0

SEQ 0256

3308

3319

3323

:
; *,ST.PTIR
2 OFFSET

3284
3282
3327
3279

3331

3252

s OFFSET,»

TRN P TN T A [T ETR TR IR TETIETE IR
TNYN
Y

ROUTINE UPD_DMBC (ADDR, COUNT) : NOVALUE =
RS

THIS ROUTINE IS CALLED FROM DM _TALLY TO UPDATE THE TOTAL NUMBER OF
BYTES READ OR WRITTEN BY THE FRONT PANEL TEST (FPT) FOR THE CURRENT
UNIT. IT IS ASSUMED THAT EACH READ OR WRITE OPERATION PERFORMED BY THE
FPT IS EXACTLY ONE BLOCK (512 BYTES) LONG. (A SiMPLE MULTIPLICATION
66%83?7 + BLK_SIZE) IS NOT FEASIBLE BECAUSE A 16-BIT OVERFLOW WOULD

!
'
!
!
;

;

INPUTS:

!
!
E

ADDR = TALLY ACDRESS OF THE LOW-ORDER FIELD OF THE NUMBER OF
BYTES READ OR WRITTEN FOR THE CURRENT UNIT
COUNT = ;g; NUMBER OF READ OR WRITE OPERATIONS PERFORMED BY THE

Y EYR
TR PRIR

BEGIN

' FOR EACH FPT 1/0 OPERATION

INCR I FROM 1 TO .COUNT DO
BEGIN

! UPDATE TOTAL NO. OF BYTES (LOW ORDER)
g %:Ehou ORDER VALUE IS A”PROACHING OVERFLOW

EET R

.ADDR = ..ADDR + BLK_SIZE:;
%;E&.ADDR GEQU 50000

i REDUCE LOW ORDER WORD, UPDATE HIGH ORDER WORDS

NE I

OVF _CHK (.ADDR);

' END - 1/70 OPERATION COUNT LOOP

TE R IR

END;
OVF_CHK (.ADDR);

! ONE MORE TIME

END;

! ROUTINE UPD_DMBC

000000

004137

0000006

000004
000010
000012
000014
000020

016601
005002

000012
001000

141520

.SBTTL
UPD.DMBC:

1%:

000010
0000006
000207

R1,$SAVE?2

CLR

ADD

#1000, (R1)

8LO
MoV

23
R1,-(SP)

CMP

JSR

2$:

UPD.DMBC DM EXERCISER ROUTINES

JSR

MoV

0000006

000054
000056

11=Jul=1983 08:44:52
8=Jul=1983 17:43:57

CZRCDAO RCZS DISK EXERCISER
DM EXERCISER ROUTINES

CZRCD3
v01.0

SEQ 0257
Page
VAX=-11 Bliss=16 V3=-555
_DUA2: [DOUCETTE.CZRCDICZRCD 3.SRC.;3 (23

TST

12(SP) R

(R1),#1461520

PC,OVF.CHK
(SP)+

INC

BLF
MOV

1%
R1,-(SP)

TST
RTS

(SP)+
PC

CMP

JSR

R2,10(SP)
PC,OVF.CHK

Routine Base: $CODES + 5770
24 words,
: Routine Size:
: Maximum stack depth per invocation: 5 words

: ADDR,«*
s 1

s 1,COUNT
H

3363

H
H

3731

3334

11-Jul=1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAO RC25 DISK EXERCISER
DM EXERCISER ROUTINES

CZRCD3
v01.0

SEQ 0258

Pa?e 74
VAX=-11 BlLiss=16 V3-555
(24
RC;3
CZRCD3.S
_DUA2: [DOUCETTE.CZRCDI

ROUTINE DM_TIME : NOVALUE =
IIEAIETEYE
TR IR X

THIS ROUTINE IS CALLED ONCE PER SECOND FOR EACH CONFIGURED CONTROLLER
BY THE DM EXERCISER “EXECUTIVE'' (DM_EXER). ITS PURPOSE IS TO MAINTAIN
THE SANITY TIMER ON THE FRONT PANEL TEST (FPT) WHICH IS EXECUTING IN

E
'
!
'
'

THE FPT IS EXPECTED TO PROVIDE THE HOST WITH A NEW SET OF OPERATING
STATISTICS IN DM_COMM AT REGULAR INTERVALS. EACH CONTROLLER HAS AN
ENTRY IN DM TIMR WHICH CONTAINS THE REMAINING TIME (IN SECONDS) TO
RECEIVE A NEW SET OF STATS. IF THE TIMER FOR THE CURRENT CONTROLLER
IS ACTIVE, THEN THIS ROUTINE DECREMENTS THE TIMER, AND DECLARES AN

INPLICIT INPUTS:

LI NN
N X TR YR
L

CCTLR = CURRENT CONTROLLER NUMBER

000042

ERROR IF THE TIMER REACHES ZERO.

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (ST

TR PR
TR TR TR YR TR R

000000
000002
000006
000010

THE DIAGNOSTIC MACHINE (DM).

BEGIN

! IF TIMER IS ACTIVE

IF .DM_TIMR [.CCTLR] NEQU 0

THEN

E N EETE
ME T E A
TR AR

!
!
!

! THEN

BEGIN

OM_TIMR C.CCTLR] = .DM_TIMR [.CCTLR] - 1;

! DECREMENT

THEN

! THEN

IF~.DM_TIMR [.CCTLR] EGLU O
BEGIN

! IF TIME HAS EXPIRED

LSUNIT = .CST_ADDR [OF_UN, P_UNITJ;

' GET DS UNIT NUMBER OF FIRST PLATTER UNDER CONTROLLER

CST_KDDR [STATE] = OFFLINE;

! MARK CONTROLLER OFFLINE

ERRDF (22, EGD 22, EMS_22);
DROP CTLR (.CCTLR, DU_FATAL);

! ‘DM EXERCISER TIMEOUT'
! DROP ALL CONTROLLER'S UNITS

END;
END;

3406

010146
013700
006300
062700
005710

001’33
005310
001031
013700
016001
000301
042701
010137

! ROUTINE DM_TIME

END;
.SBTTL

0000006
000620°"

DM. T1ME :MOV

MOV
ASL

DM.TIME DM EXERCISER ROUTINES

R1,-(SP)

CCTLR,RO

ADD

#DM.TIMR,RO

DEC
BNE

(RO)
1%

TST
BEQ

(RO)
1%

CST.ADDR,RO

0000006

MOV

6(R0O) ,R1

177740
0000006

BIC
MOV

#177740,R1
R1,LSUNIT

000006

SWAB

3366

3388

:
:

3392
3393

3397

000104
000106
000110

VAX-11 Bliss=16 V3=-555

CZRCDAOQ RC25 DISK EXERCISER
DM EXERCISER ROUTINES

CZRCD3
v01.0

: Routine Size:

37 words,

3398

.WORD
.WORD
. WORD

18:
Routine Base:

Max1mum stack depth per invocation:

4 words

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC;3 (24
TRAP

104455
000026
0000006
000000G
013746
012746
004737
013700 0000006
042760 100000 000002
022626
012601
000207

SEQ 0259

MoV
MOV
JSR
MOV
8IC
CMP
MoV
RTS

3399
PC.DROP.CTLR

¢ST.ADDR,RO

3400

(SP)+,(SP)+
(SP)+.R1

3395
3366

2 (RO)
#100000,
PC

$CODES + 6050

~NN

~Oo

WWw

ROUTINE MULTI_DRIVE : NOVALUE =

THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE
MULTI-DRIVE SUBTEST IS A HOST-CONTROLLED EXERCISER DESIGNED TO GIVE THE
USER AN INDICATION OF HOW ONE OR SEVERAL RC25 DRIVES WOULD PERFORM IN
AN OPERATING SYSTEM ENVIRONMENT.

THIS ROUTINE ACTS AS AN 'EXECUTIVE'® TO THE WHOLE PROCESS. AFTER
INVOKING MD_INIT TO INITIALIZE MULTI-DRIVE SUBTEST DATA, THIS ROUTINE
ENTERS A LOBP WHICH ISSUES QIOS TO ALL ACTIVE CONTROLLERS AND PROCESSES
ANY RESPONSES. IN ADDITION, ALL OUTSTANDING COMMANDS ARE TIMED IN
DRV_TIMCHK WHICH IS INVOKED EVERY SECOND. NORMAL TERMINATION OF THIS
LOOP OCCURS WHEN QIOS ARE NO LONGER BEING ISSUED, AND ALL OUTSTANDING

PNPR

QI0S HAVE COMPLETED.

BEGIN

AR
A
E N E T EE
Qe 0 ®e BB, 8, 000000, 0,8, %2;:8,% 3¢9 8,0, % % 040,09, TR R IR

IF ATTENDED

IF MANUAL

THEN

PRINTF

MD_INIT ();

THEN

"MULTI-DRIVE SUBTEST START"
INIT MULTI-DRIVE SUBTEST DATA

(MSG_05);

! START OF EXECUTIVE LOOP

BEGIN

lNCRBEé%z FROM 0 TO (.CTLR_CNT = 1) DO

SET_CPAR (.(TLR);
%LEBIO-OK () EQLU TRUE
QIO_GEN ().
IF .MX1 GEQ O
THEN

BEGIN

! FOR EACH CONTROLLER

! SET UP CURRENT CONTROLLER PARAMETERS
E %;ES.K. TO ISSUE QIO(S) TO THIS CONTROLLER
! GENERATE 1 OR 2 QIOS
! IF SUCCESS ON FIRST QIO
! THEN

ATTEMPT TO SEND IT. IF SUCCESS

%LE&END (.MX1) EQLU SUCCESS

THEN

INCR OUTSTANDING QIO COUNT

QI0 [.CTLR] = .QI0 [.CTLR] + 1

OTHERWISE
RETURN ENVELOPE TO POOL

EPUT_ENV (.Mx1);
END;

IF _.Mx2 GEQ 0

! IF SUCCESS ON SECOND Q10
!

{zEzEND (.MX2) EQLU SUCCESS

QI0 [.CTLR] = .0I0 [.CTLR] ¢+ 1

SEQ 0260

Pa?e
VAX=11 Bliss=16 V3-55 5
_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (25

TR R

11=Jul8-Jul-

OO0
(o1
-]

%SBTTL °*MULTI-DRIVE SUBTCST ROUTINES'

5
—

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

PRIPRTR
TRDN RT X LNI FY
RN

CZRCD3
v01.0
Y

THEN

E ?LE&HPT TO SEND IT. IF SUCCESS

' INCR OUTSTANDING QIO COUNT

1983 08:44:52

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST RCUTINES

CZRCD3
v01.0

1983 17:43:57

VAX=11 Bliss=16 V3=555

SEQ 0261
?e

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (25

! OTHER

! RETURN ENVELOPE TO POOL

PUT _ENV (. MX2);

END;

! 0.K. TO ISSUE QI0(S)

END;

! IF_CONTROLLER IS ONLINE

IF .DCT_ADDR [STAT] EQLU ONLINE

THEN

! PROCESS ANY INTERRUPTS

INT_PROC ();

! CONTROLLER LOOP

END;
PROC RETPKT ();

PROCESS ANY RETURN PACKETS

THER

;

THEN

! IF ONE SECOND HAS ELAPSED

T_FLAG EQLU TRUE

3
3484
3485
3486

006137

000126
000132

012746
012746
010609
104417
022626
004737
013702
005001
000461
010146
004737
004737
020027
001042
004737
013700
002415
010016
004737
020027
001003
105261
000404
013716
004737
013700
002415

! CHECK OUTSTANDING COMMAND TIMERS

DRV_TIMCHK ();

! EXECUTIVE PROCESSING LOOP

END

UNTIL MD_QUIT ().

! UNTIL ALL UNITS ARE FINISHED

END;

! ROUTINE MULTI_DRIVE

0000006

.SBTTL

MULTI.DRIVE:
JSR

TRAP

104450

103007

BHIS

MOV
MoV
MOV

0000006
000001

TRAP

000000V
0000006

000000G
000000V
000001

1%:
:

3s:

000000V
000602°
0000006
000001

0000006

000602°
0000006
000604"*

A ¥

5%:

CMP
JSR

MoV

CLR
B8R

MOV

JSR
JSR
CMP
BNE
JSR
MOV
BLT
MOV
JSR
CMP
BNE

INCB
8R
MOV
JSR
MOV
BLT

MULTI.DRIVE MULTI-DRIVE SUBTEST ROUTINES
50

3409
3428

MSG.05,~(SP)

3430

R1,$SAVE?2
18

#1,-(SP)

SP,RO
17
(SP)+,(SP)+

; SP,»

PC,MD.INIT

g{LR.CNT ,R2
98
R1,-(SP)
PC,SET.CPAR

: CTLR
; CTLR,*

PC,010.0K

RO,
78
PC,010.GEN
Mx1,R0
5%
RO, (SP)
PC,SEND

RO.M
43
QI0(RY)

5$
MX1, (SP)

PC,PUT.ENV

;xé RO

*(CTLR)

CZRCDAO RC2S DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

000134 010016

000136
000142
000146

000150
000154
000156
000162
000166
000172
000174
000200
000202

004737
020027
001003

105261
000404
013716
004737
005777
100002
004737
005726
005201

000204 020102

000206

002715

000210
000214
000222
000224
000230

004737
123727
001002
00737
004737

000236

103275

000234

006000

0000006
000604°
0000006
000000G
000000V

6%:
7%:
8$%:
9% :

000000V
000000G 000001
000000V
000000V

108:

: Routine Size:

81 words,

Routine Base:

: Maximum stack depth per invocation:

7 words

3461

QI0(R1)
7%
MX2,(SP)
PC,PUT.ENV
aDCT.ADDR
8%
PC,INT.PROC
(SP)+
Rl

; «(CTLR)
:
:
H
H
:
: CTLR

3463
3461
3465
3471
3473
3437
3436

:
:
:
;

3477
3478
3480
3484

3409

RO, (SP)

INCB
BR
MoV
JSR
TST
8PL
JSR
TST
INC
CMP

BLT

PC,SEND
#1
RO,
63

R1,R2

JSR
(MPB
BNE
JSR
JSR

PC,PROC.RETPKT
T.FLAG,#
108
PC,DRV.TIMCHK
PC,MD.QUIT

B8CC

ROR

RTS

000240 000207

MOV

JSR
CMP
BNE

0000006
000001

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

SEQ 0262

Pa?e
VAX=11 Bliss=16 Vv3=555
(25
S.SRC:S
RCDJCZRCD
UCETTE.CZ
_DUAZ:[DO

$CODES + 6162

; CTLR,»

v01.0
N I
A

‘e

N NI A

USED BY THE MULTI-DRIVE SUBTEST.

I EE

;

LR LB

BEGIN

! PARTITION FREE MEMORY INTO I/0 BUFFERS

lNIT 10_BUFF ();

g %;EaTART. RESTART, CONT, PWR FAIL

IEIETE IR I

P PR YR

ENTRY_ REASON NEQU NEW_PASS
INCR UNIT FROM O TO (MAX_UNITS - 1) DO
BEGIN

=2 O 000NN
NN =2 O V0D NO S WL
W

NN AN NN N N NN
N U A AN N N AN
A AN AN U

WIW W

LA U

AN NN NN NN NN

AV LV AV IV IV, RV LV, ]

PRI
LR N N TR ¥ PR
PR IR PR LR PRN
TETR
IE A
AR E

VAX=11 Bliss=16 V3=555

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (26

THIS ROUTINE IS CALLED BY ROUTINE MULTI_DRIVE TO INITIALIZE DATA ITEMS

I E

ROUTINE MD_INIT : NOVALUE =

000022

152

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3

SEQ 0263
Pa?e

004137
004737
005002
153702
020227
001441

! FOR EACH UNIT

IF START OR RESTART OR
! IF USER CHANGED TRACK LIMITS

IF (( ENTRY_REASON LEQU RESTART) OR

THEN

(.BST CTUNIT, TRACK] LSSU .SWP_STRACK) OR
(.BST C.UNIT, TRACK] GTRU .SWP_ETRACK))

THEN

BEGIN

INITIALIZE BLOCK SEQUENCE TABLE
(USED ONLY FOR SEQUENTIAL LBN MODE)
INITIALIZE DATA PATTERN SEQUENCE TABLE
(USED ONLY IF "PATTERN 0'' WAS SELECTED)

= .SWP_STRA(K;
BST [.UNJT, TRACK]
BST [.UNIT, SECTOR] = O;

DPST [. UNIT] = DP_CNT;

END;
! END UNIT LOOP

END;

! END - IF START, RESTART, CONT, PWR FAIL

END;

! IF START, RESTART, OR NEW PASS

IF (( ENTRY_REASON NEQU CONT) AND

THEN (.ENTRY_REASON NEQU PWR_FAIL))

INCR COUNT FROM O TO ((MAX_UNITS * TALLY_LEN) = 1) DO
TALLY [.COUNT] = 0;

THEN

! CLEAR ALL STATS

INCR COUNT FROM 0 TO ((MAX_CTLR * RPS_LEN) = 1) DO ! INITIALIZE RETPKT
RP SAVE [.COUNT] = =1;

SAVE AREA

lNIT%:gI%E 1/0 BUFFER ALLOCATION

INCR COUNT FROM 0 TO (. ~un BUFF - 1) D0

If .MEM_RGMT

i IF SYSTEM HAS MEMORY MANAGEMENT

MMRO =
T_ FLAG = f LSE

! ENABLE RELOCATION
! FLAG TO CALL DRV_TIMCHK EVERY SECOND

=
BUFF _OWN [.COUNT]

THEN

i THEN

! ROUTINE MD_INIT

END;

0000006

000000V
0000006
00005

LSBTTL

MD.INIT MULTI-DRTVE SUBTEST Rourxues

JSR

PC,INIT.10.BUFF

MD.INIT:JSR

CLR

8Is8
CMP
BEQ

rR1,$SAVE2
R2

ENTRY.REASON,R?
.4
R2
43

;

3487

3496

3497

VAX=11 Bliss=16 V3=-555

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CMP

BLO
MOV
ASL
ASL

000442* 0000006

2s:

010100

005201

0000006 00044c’
000440°*
000025 000540°
000017

3:
48:

000003
000004

5$:

0000006
000002

001376

005000

000377

0000006

68:
7$:

000037

000377

0000006

000001

8$:
9s:

0000006
0000006

177572
000001
0000006

CLR
CmP
BLOS
MOV
ASL
ASL

000442° 0000006

108:

Pa?e

_DUA2:[DOUCETTE.CZRCDJCZRCDS.SRC:B (26

CMP
BLOS

MOV
ASL
ASL
MOV

CLR
MOVB
INC
CMP
BLE
CMP
BEQ
CMP
8EQ
(LR

CLR

ADD

CMP
BLE
CLR

MOV8
INC

CMP
BLE
CLR
B8R
MOvVB
INC
CMP
BLT
BIT8
BEQ

MOV
CLRB
RTS

s UNIT
2N
[=2d
]

18:

000002

SEQ 0264

3501

3504

; UNIT,»

3505

; UNIT,»

3506

s UNIT,»

3510

:
: «,«(UNIT)

35N
3512

RO
ggTOZ(RO).SUP.STRACK

R1,R0
RO

BgT*Z(RO).SHP.ETRACK
RO

gBP35§ACK.BST+2(R0O)
025 DPST(R1)

¢ UNIT

3501

R2 a3

3520

RZ w4

3521

s COUNT
: *(COUNT)
s *,COUNT

3523
3524
3523

; COUNT
: *,«(COUNT)
: COUNT

3525
3526
3525

; COUNT

3527

:g??.BUFF.OHN(RO)

; *,«(COUNT)

3528

RO,NUM.BUFF

; COUNT,»

#1,MEM_MGMT

3529

T.FLAG
PC

:
:
:

3531
3532
3487

R1 n7

TALLY(RO)

#2,R0

RO, #1376
5%
RO
gg??.RP.SAVE(RO)
RO, 437

7$
RO
9%

108
1 ,a177572

Routine Base: $CODES + 6424
; Routine Size: 84 words,
n: & words
invocatio
per
depth
stack
Haxlnua

2 UNIT,»

; COUNT,»

,»
; COUNT

. COUNT

3527

CZRCD3
v01.0

CZRCDAO R(Z5 DISK EXERCISER
MULTI~DRIVE SUBTEST ROUTINES

11-Jul~1983 08:44:52
8-Jul=-1983 17:43:57

P E R IR ARIR

E M

A PR PR

THIS ROUTINE IS CALLED BY MD_INIT WHEN THE MULTI-DRIVE SUBTEST 1S FIRST
STARTED. IT IS RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A
COLLECTION OF 1/0 BUFFERS. THE NUMBER OF I/0 BUFFERS IS BASED ON THE

NUMBER OF CONTROLLERS CONFIGURED FOR TESTING.

BRI @I

IF THIS HOST PROCESSOR _HAS MORE THAN 28K (32K) OF MEMORY, THEN ALL
AVAILABLE MEMORY OVER 32K (BUT UNDER 124K) IS DIVIDED £QUALLY AMONG
THE NUMBER OF 1/0 BUFFERS (4K PER BUFFER MAXIMUM). MEMORY MANAGEMENT
REGISTERS ARE SET UP TO MAP ALL VIRTUAL ADDRESSES TO THE SAME PHYSICAL
ADDRESSES (FOR NOW). IF THE HOST PROCESSOR HAS ONLY 28K, THEN THE
a:ggzgngzrsREE MEMORY UNDER 28K IS SIMILARLY DIVIDED (WITHOUT MEMORY

@I Gl

ONCE THE STARTING ADDRESS OF FREE MEMORY IS DETERMINED ALONG WITH THE
BUFFER SIZE, THE BUFFER DESCRIPTOR TABLE (BUFF _DESC) IS INITIALIZED.
THIS TABLE REMAINS FIXED THROUGHOUT THE MULTI-BRIVE SUBTEST. IT

B I

m I

B I

EzegigSESYHE TWO-WORD BUFFER DESCRIPTORS USED IN MSCP COMMAND

IMPLICIT INPUTS:

e I

CTLR_CNT = THE NUMBER OF CONTROLLERS CONFIGURED
LSHIMEM - TOP OF FREE MEMORY (IN PAR FORMAT)

sttt

PRPR PR
TRTRRTR YN T ¥ ] PRI IR IEIE

I EYTE

A T Y P PR IRP Y

N X Y

I @i mIBImidImimimtmd
TMo

ROUTINE INIT_IO_BUFF : NOVALUE =

MEM SIZE - SIZE (IN WORDS) OF FREE MEMORY
FREE_MEM_ADDR = START OF FREE MEMORY

BEGIN
LOCAL

HIMEM : WORD,
BLKS_PER_BUFF : WORD,
80_LOW : WORD,
BD_HIGH : WORD,
TERP : WORD,
KTPDR : WORD;

NUM_BUFF = _CTLR_CNT + QIO_PER_CTLR;
MEM_MGMT = NO;NO;
IF _LSHIMEM GTRU %0°'2000°
THEN

BEGIN

!
!
!
!

TOP OF FREE MEMORY (IN PAR FORMAT)
NO. OF 32-WORD BLOCKS PER BUFFER
BUFFER DESCRIPTOR (LO-ORDER)
BUFFER DESCRIPTOR (HI-ORDER)

! PDR INITIALIZATION WORD

CALCULATE NO. OF 1/0 BUFFERS NEEDED

ASSUME NO MEMORY MANAGEMENT
IF MORE THAN 32K OF MEMORY
THEN

MEM MGMT = YES;

SET MEMORY MANAGEMENT FLAG
GET TOP OF FREE MEMORY

THEN

HIMEM = _LSHIMEM,
IF .HIMEM GTRU %0°'7577°'
HIMEM = 20°7577°;

BLKS_PER_BUFF = (.HIMEM = X0°1777°) / .NUM_BUFF;
IF fiBLKS_PER_BUFF GTRU %0'200°
THE

BLKS_PER_BUFF = %0°200°;
BUFF_SIZE = TBLKS_PER_BUFF * 64;

B8D_LOw = 0;

BD_HIGH = 1;

SEQ 0265

Pa ?e
VAX~11 Bliss=16 V3=555
(27
RC;3
_DUA2:[DOUCETTE.CZRCDICZRCD3.S

IF GREATER THAN 124K

SET LIMIT AT 124K
NO. OF 32-WORD BLOCKS PER BUFFER

! MAX BUFFER SIZE = 4K
! BUFFER SIZE IN BYTES
! BUFFERS START AT 32K

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3

ELSE

END

s€q 0266

3CZReD3.SRC:3 (2F°

VAX=11 Bliss=16 v3=555
_DUA2:[DOUCETTE.CZRCD

! OTHERWISE = ONLY 28K OF MEMORY

BEGIN

BUFF _SIZE = ((.ME M_SIZE * 2) / .NUM_BUFF) AND %0°177776°;
' START OF BUFFER SPACE
= .FREE_ME M_ADDR;
B0 _LOw
BD:HIGH 0;
END;

INCR J FROM O TO (.NUM_BUFF = 1) DO
W

o
Q
o

BEGIN

! FOR EACH BUFF_DESC ENTRY

BUFF_DESC C.J, 8D_LO] = .BD_LOW;
BUFF_DESC C.J, BD_HIJ = .BD_HIGH;

' LOAD LOW=-ORDER WORD
! LOAD HIGH=ORDER WORD

8D_Low = .BD LOW + .BUFF_SIZE;

! ADVANCE TO NEXT BUFFER ADDRESS

TEMPTM= .BD_LOW;

1F~.TEMP GEQD .BD_LOW

THEN

' IF 16~BIT CARRY
! THEN

! ADVANCE HIGH-ORDER WORD

BD_HIGH = .BD_HIGH + 1;

END;

' IF SYSTEM HAS MEMORY MANAGEMENT
' THEN

IF .MEM_MGMT
THEN
BEGIN

' MAKE SURE MEM MGMT IS OFF

MMRO= 0;

e ®e¢ ®

..Q..0.l.O......-.‘l.............a...o.............l..

v01.0

' PDR LOAD VALUE
! LOAD PDR'S

KTPDR = %0°77406°;
KTPDRO = .KTPDR;
KTPDR1 =
KTPDR2 =
KTPDR3 =
KTPDR4 =
KTPDRS =
KTPDR6 =
KTPDR7 =

' LOAD PAR'S

KTPART = 10'200'
KTPAR2 = %0°400°;
KTPAR3 = %0°600°;
KTPARG = %0°1000°;
KTPARS = X0°'1200°;
KTPAR6 = %0°'1400°;
KTPAR? = X0°'7600°;

W
N

3641
3642

.KTPDR:
.KTPDR;
.KTPDR;
.KTPDR;
.KTPDR;
.KTPDR;
.KTPDR;

KTPARO = 0;

(o)

80 80 8e8e8e8e0s0s0s0s8,%: 808c0,0,8,08,8008, 0

:52
I4

END;

! ROUTINE INIT_I0_BUFF

END;

000000

004137

0000006

000004

013700

0000006

.SBTTL

INIT.]0.BUFF:
JSR

MOV

INIT.10.BUFF MULTI-DRIVE SUBTEST ROUTINES
R1,$SAVES

CTLR CNT,RO

3535
3574

VAX=11 Bliss=16 V3-555

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

0000006 002000
0000006
000001
0000 006G
007577

#1,MEM.MGMT

007577

#7577.R0
RO, =(SP)

LSHIMEM,RO

go.a7s77
s

1%:

001777
0000006
000200

000200

2s$:

RS,=(SP)
PC.BLSDIV
RO, #200
s
#200,R0
RO
RO
RO
RO

#1,R3

000001
3s:

0000006

MEM.SI2E,-(SP)
(SP)

0000006

#1,BUFF.SIZE

000001
0000006
000000G
48

5%:

0000006
0000026

FREE.MEM.ADDR,R2
R3

R1
78
R1,RC
RO
RO

gggg

:
: * HIMEM
: HIMEM,»

3580
3581
3582

s *,HIMEM

3576

3584

«
;. HIMEM,

385

; BLKS.PER.BUFF,»

3586

: *,BLKS.PER.BUFF
:

3588
3589

: BD.LOW
; *«,BD.HIGH
:
H

3590
3591
3576
3597

; +,BD.LOW
; BD.HIGH
o J

3598
3599
3603

s J.r

3606

R2,BUFF .DESC(RO)
R3,BUFF .DESC+2(RO)

: BD.LOW,*

BUFF.SIZE
,R2

; ¢, 60.LOW

3609

R3
R1
R1,R5
5%

; BD.HIGH
0 J

3612
3603

3616

3620

R2,Ré4

0000006

R4 ,R?

6$:
7$:

0000006

:e -'fl.". BUFF ..

R5,=(SP)
PC.BLSDIV
RO,BUFF .SIZE

0000006

077406

#1777, (SP)

#77 RO
RO,BUFF.SIZE

000077
0000006

177572

Pa?e

_DUAZ:[DOUCETTE.CZRCDJCZRCDS.SRC:3 (27

RO,NUM.BUFF
MEM.MGMT
RO,R5
%gHIHEH.OZOOO

0000006
0000006

000001

SEQ 0267

#1,MEM_MGMT

8s
N177572

#77406,R0

: BD.HIGH,*
: BD.LOW,TEMP
: TEMP.BD.LOW

s J,®

: *,KTPDR

3607
3608
3610

3621

CZRCD3

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

000264

172300
02

: KTPDR,*

OO &

NNNSNNNWY
PORININIAININD
WV
N NN

v01.0

SEQ 0268

Pa?e
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (27

007600

; Routine Size:

131 words,

8%:
Routine Base:

: Maximum stack depth per invocation:

9 words

RTS

(SP)+,(SP)+

$CODES + 6674

3622

; KTPDR,*
: KTPDR,*

3623
3624

: KTPDR,*

3627

: KIPOUR,*
: KTPDR,*

012737

; KTPDR,*
: KTPDR,*
H
:
:
:
:
:
:
:
:
:

3625
3626

3628
3629
3631
3632
3633
3634
3635
3636
3637
3638
3564
3535

MULTI-DRIVE SUBTEST ROUTINES

R P TR TN X

THIS ROUTINE IS CALLED BY THE MULTI DRIVE *EXECUTIVE'' IN ORDER TO

DETERMINE WHETHER OR NOT A QIO REQUEST (OR QIO PAIR) SHOULD BE
GENERATED TO THE CURRENT CONTROLLER. A VALUE OF ‘‘TRUE'’'

[ Y E YRYERIEIEIEIETETE IR PN PR

THE CONTROLLER MEETS 3 REQUIREMENTS:

1S RETURNED IF

A. THE CONTROLLER IS ONLINE;

B. THE NUMBER OF OUTSTANDING QIOS IS AT LEAST 2 LESS THAN THE
MAXIMUM ALLOWED FOR ANY ONE CONTROLLER;

C. THERE ]S AT LEAST ONE UNIT UNDER THE CONTROLLER WHICH IS
STILL UNDER TEST.

IF ANY OF THESE TESTS FAIL, THEN A VALUE OF '‘FALSE'' IS RETURNED.
IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

PR PR N LR L LN TR

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (ST

BEGIN

' IF CONTROLLER IS ONLINE

%ZE&CST_ADDR [STATE] EQLU ONLINE

YR TR TR

BEGIN

{LE§'°‘° C.CCTLR] + 2) LEQU QIO_PER_CTLR

! IF OUTSTANDING QIO COUNT IS 0.K.

BEGIN

' IF THERE IS VALID UNIT

%zeficsr-Aoon CU_CNTI NEGU O

! “TRUE'* EXIT POINT

R E T E

RETURN TRUE:
END;

END;

IRIR

000044

000050

ROUTINE QIO0_OK =

' “FALSE'* EXIT POINT

RETURN FALSE:

000000

Pa?e
_DUA2:[DOUCETTE.CZRCDICZRCD 3.35RC;3 (28

VAX=-11 Bliss=16 v3=555

11=Jul=1
8

CZRCDAQ RC25 DISK EXERCISER

CZRCD3
voi.0

SEQ 0269

END;

013700
005760
100023
013700
116000
042700
062700
020027
101010
013700
105760
001403

0000006
000002
0000006

0000006

.SBTTL
010.0K: MOV
ST
BPL

MOV

QI0.0K MULTI-DRIVE SUBTEST ROUTINES
CST.ADDR,RO
;
2 (RO)

3666

CCTLR,RO

;

3670

;

3674

Move

Q@I0(rRD).RO

BHI

177400
000002
000020

BIC
ADD
CMP

0000006
000005

MOV
ISTB
BEQ

#177400.R0
#2.R0
RO, #20

CST.ADDR,RO
S(RO)
1$

11=Jul=1983 08 44:52
8-Jul=1983 17:43:57

CZRCDAO RCZ5 DISK EXERCISER
C2RCD3
MULT]I=DRIVE SUBTEST ROUTINES
v01.0
000052 012700 000001
000056 000207
1$:
000060 005000
000062 000207

[ [0]"
RTS
CLR
RTS

: Routine Size:

S$CODES + 7302

26 words,

Routine Base:

: Maximum stack depth per invocation:

0 words

#1,R0
PC
RO
PC

SEQ 0270

Pa?e
VAX=-11 Bliss=16Vv3=555
_DUA2:[DOUCETTE. CZRCDICIRCD3.SRC;3 (28

:
:
:

3676
3664
3643

CZRCDAO RC25 DISK EXFRCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
:
.
:
:
:
:

000000
000002
000004
000006

000012
000016
000020
000024
000026
000032
000034
000036
000042
000044
000050
000052
000054
000056

1
8-

3685
3686
3687
3688
3689
3690
3691
3692
3693
3694
3695
3656
3697
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707
3708
3709
3710
371
3712
3713
3714

010146
005001
(10146
012746

004737
022626
105760
001012
105761
001007
005201
020127
003760
012700
000401
005000
012601
000207

SEQ 0271

Pa?e
VAX=11 Bliss=16 v3=555
_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (29

ROUTINE MD_QUIT =
+

THIS ROUTINE IS CALLED BY THE MULT]_DRIVE EXECUTIVE FOR DETERMINING THE
END OF THE MULTI-DRIVE SUBTEST. ITS PURPOSE IS TO EXAMINE THE NUMBER OF
TESTABLE UNITS REMAINING ON EACH CONTROLLER, AND THE NUMBER OF
OUTSTANDING Q]0S. IF BOTH OF THESE PARAMETERS ARE ZERO FOR ALL

CONTROLLERS, THEN THIS ROUTINE RETURNS A VALUE OF "‘TRUE''. OTHERWISE,

THE MULTI-DRIVE SUBTEST EXECUTIVE LOOP MUST CONTINUE, AND A VALUE OF

"FALSE'' IS RETURNED.
BEGIN

INCR CTLR FROM O TO (MAX_CTLR - 1) DO
BEGIN

s %LEQT LEAST ONE VALID UNIT REMAINS

%thCST [.CTLR, U_CNTJ NEQU O
ELSE

i DON'T TERMINATE MULTI-DRIVE SUBTEST

RETURN FALSE

! OTHERWISE (NO UNITS REMAIN)
' IF AT LEAST ONE QIO OUTSTANDING

If .QI0 [.CTLR] NEQU O

THEN

' DON'T TERMINATE SUBTEST

RETURN FALSE;

END;

RETURN TRUE;

' ALL PARAMETERS ARE ZERO - END OF SUBTEST

END;

' ROUTINE MD_QuUIT
.SBTTL

MD.QUIT MULTI-DRIVE SUBTEST ROUTINES

CLR
Mov
MOV
JSR

R1
R1,-(SP)
#16,-(SP)
PC,.BLSMUL

MD.QUIT:MOV

000016
0000006

1%:

CMP

1ST8

0000056

000003

BNE

2$:
3%:

: CTLR
; CTLR,»

QIO(RY.
R1

: «(CTLR)

: CTLR

: CTLR,*

CMP

R1.%2

ggv

#1,R0

CLR
MOV

Q0
(SP)+,R1

BLE

000001

CST+5(RO)

INC

(SP)+,(SP)+

BNE

1S78

0000006

R1,-(SP)

RTS

)
Base: $CODES + 7366
Routine
24 words, .
; Routine Size:
4
words
invocation:
per
: Maximum stack depth

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
3715

11-Jul=1983 08:44:52
8-Jul=-1983 17:43:57

THIS ROUTINE 1S CALLED BY THE MULTI DRIVE EXECUTIVE FOR AN ONLIME
CONTROLLER ELIGIBLE TO RECEIVE 1/0 TRANSFER REQUESTS, IT IS
RESPONSIBLE FOR SECURING ONE OR TWO MSCP ENVELOPES AND LOADING THEM
WITH VARIOUS PARAMETERS COMPRISING THE 1/0 REQUEST. THE 1/0 REQUEST

!
!

]

3722
g;gz

!
;

:
.

3725
3726

!
!

GENERATED HERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM
THOSE CONF IGURED UNDER THE CURRENT CONTROLLER.
EACH FIELD OF THE ENVELOPE(S) IS LOADED WITHIN INDIVIDUAL ROUTINES
(QI0_FUNC, QIO_LBN, Q10U_SIZE, ETC.). MCST OF THE VALUES SELECTED FOR

:
.
.

3729
3730
3:31

!
!
!

UNDER NORMAL CIRCUMSTANCES, CNLY ONE 1/0 REQUEST IS GENERATED. HOWEVER,
IF THIS 170 REQUEST IS A ‘WRITE'', AND IF THE OPERATOR SELECIED THE
OPTION FOR HOST WRITE-COMPARES, THEN A SECOND ‘READ'’ REQUEST WILL BE

:
.
.
M
M

3734
3735
3736
3737
g;gg

!
!
!
!
5

AFTER THE ENVELOPE(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL
AND ATTEMPTS TO GET ONE OR TWO 1/0 BUFFERS FOR THE ACTUAL DATA
TRANSFERS. THE SUCCESS /7 FAIL STATUS OF THIS ENTIRE OPERATION IS
PASSED BACK iC THE CALLER THROUGH THE GLOBALS ‘MX1°' AND ‘Mx2'’; THEY
CONTAIN VALID MSCP ENVELOPE INDECES, OR -1,

3740

IMPLICIT INPUTS:

.
:
:

3762
3743
g;zg

.
H

37646 Mx2 = -1;
3747 IF (MX1 = GET_ENV (.CCTLR)) LSS O

N
.

3749
3750

%;%g

;;%g

3741

THEN

3754
3755

3759

H
.
:

BEGIN

3751

H
:

CC.LR = CURRENT CONIRGLLER NUMRER

THEN

g;g%

GENERATED WITH THE SAME 1.SN AND BYTE COUNT.

3748

EACH FIELD ARE BASED ON A SET OFf RANDOM NUMBER GENERATED AT THE START.

RETURN;
IF (MX2 = GET_ENV (.CCTLR)) LSS O
BEGIN

PUT_ENV (.MX1);
MX1 = =1;

3756
3757
3758

RETURN;

3762

3763

MSCP_ENV + (.MX1 * ENV_LEN * 2);
MAD2 = MSCPTENV + (.MX2 * ENV_LEN * 2);

GET_RANDOM T);
QIOUNIT ();

3764
3765
3766

QIO_FUNC ();
QlO_LBN (O);
Q@10_SIZE ()

3769
3779

THEN

3767
3768

! THEN

' NO POINT IN CONTINUING
' TRY TO GET 2ND ENVELOPE. IF FAILURE
! THEN

' RETURN 1ST ENVELOPE T0 POOL
! INDICATE FAILURE
! DONE

END;

3760 MAD1
3761

' ASSUME FAILURE IN SECURING 2ND ENVELOPE
! TRY TO GET 1ST EMVELOPE. IF FAILURE

GET_10_BUFF (MAD1 [BUF_01);
IF “Mx2 GEQ 0
BEGIN

Pt mimimiwmemIm
s

:
.

SEQ 0272

,Pa?e 88
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (30

ROUTINE QIO_GEN : NOVALUE =

e
3718
37219
3720
3721

CALCULATE STARTING ADDRESSES
OF BOTH ENVELOPES

GENERATE A SET OF RANDOM NUMBERS
LOAD RANDOM UNIT NUMBER INTO ENVELOPES

LOAD RANDOM FUNCTION CODE (OPCODE)
LOAD LBN (RANDOM OR SEQUENTIAL)
LOAD RANDOM BYTE COUNT
TRY TO GET AN [/0 BUFFER
%;ELHO QIOS ARE TO BE ISSUED

11-Jul=1983 08:44:52
8-Jul=-1983 17.43:57

CZRCDAO RC2S DISK EXERCISER
MULTI-DKiVE SUBTEST ROUTINES

CZRCD3
v01.0
PR R PR IR TR T AN X LR PR TR XN TN PN FE TR TN YN PR TN N

VAX=11 Bliss=16 Vv3=555
_DUA2: CDOUCETTE.CZRCDICZRCD3. SRC; 3 (399°

! THEN

BEGIN

' IF 1ST 170 BUFFER WAS ALLOCATED

IF NOT .MAD1 [BUF_0]

THEN

SEa 0273

' TRY TO GET 2ND 1/0 BUFFER
! IF 2ND BUFFER LOCATION FAILED

GET 10 BULF (MAD2 [BUF_01);
“MAD2 [BUF_01
THEN

| THEN

BEGIN

PUT_I0 aurr (MAD1 [BUF_01);
MADT C[BUF_0] = -1;

' RETURN 1ST 1/0 BUFFER TO POOL
! MARK IT AS FAILED

END;

PUT_ENV (.MX2);
-1;
Mx2"=

' RETURN 2ND ENVELOPE TO POOL
! INDICATE FAILURE

END;

! IF 2NL 1/0 BUFFER ALLOCATION FAILED
' IF TWO QIOS ARE TO BE ISSUED

END;

' IF 1ST 1/0 BUFFER ALLOCATION FAILED

TR PR PRIR

IF .MAD1 [BUF_0)

! THEN

THEN

BEGIN

Y ETE IR

PUT_ENV (.MX1);
MX1"= -1;

PR TR

! RETURN 1ST ENVELOPE TO POOL
! INDICATE FAILURE

END

! OTHERWISE (ALL IS 0.K.)
! %zeasr OPCODE IS A WRITE

%;EQNAD1 COPCODE] EQLU OP_WRT

i FILL 1ST 1/0 BUFFER WITH APPPOPRIATE DATA PATTERN

FILL_BUFF ();

! ROUTINE QIO_GEN

END;
012737
013746
004737
010037
005726
005700
002564
013746
004737
010037
005726
005700
002011
013746
004737

012737
005726
000207
013746

177777 000604"
0000006
0000006
000602

.SBTTL
010.GEN:MOV
MOV
JSR
MOV
ST

TST
BLT
MOV
JSR

0000006
0000006

000604 *

000602
0000006
177777

000602

MOV
TST

: Mx1
H
:

RO,M¥?2
(SP)+

: MX2

MOV
JSR

MX1,=(SP)
PC,PUT.ENV

(SPS+

MOV

1%:

(SP)+

RO
6%
CCTLR,=(SP)
PC,GET.ENV

187

BGE

000602°

QIO.GEN MULTI-DRIVE SUBTEST ROUTINES
#-1,MX2
:
CCTLR,=(SP)
:
PC,GET.ENV
RO,MX1

RTS

MOV

MX1,=(SP)

3746
3747

3749
3750

CZRCDAQ RC25 DISK EXERC'SER
MULTI-DRIVE SUBTEST ROL INES

CZRCDS
v01.0
000100

SEQ 0274

Pa?e
VAX=-11 Bliss-}? v3-555
(30
;3
RCD3.SRC:
TTE.
CZRCDJICZ
[DOUCE
_DUA2:

012746
004737
062700
010037
013716
012746

#104,=(SP)
PC.,BLSMUL

000104

#MSCP.ENV,RO
RO,MAD1

MX2, (SP)

PC.GET.RANDOM
PC.QIO.UNIT
PC.010.FUNC
PC.QI0.LBN
PC.QI0.SIZE
MAD1, (SP)
#30, (SP)
PC,GET.10.BUFF

MX2

00060¢°*

000610°
000030

000000G

000610°
000030
000001

; Routine Size:

000020

38
MAD1,RO

3777

#-1,%0(RO)

PC,PUT.ENV

a1 ,mx2

MAD1,RO

#1,30(R0)

48
Mx1,(SP)
PC,PUT.ENV
#=1,Mx1

000042

000000V
000006
129 words,,

3773

MX2, (SP)

2%:

000602
0000006
177777 000602°
000606°

MAD2,RO

RO, (SP)
PC.PUT.10.BUFF
MAD1,RO

000000G
000606
177777 000030
000604
0000006
177777 000604
000606°
000030
000001

A ¥

5$
MAD1,RO

5%:

PC,FILL.BUFF
#6,SP

6$:
Routine Base:

; Maximum stack depth per invocation:

4 words

gg(né).waz

RTS

3768
3772

#1,30(rRO)

000030

3762
3763
3764
3765
3766
3767

3s
MAD2, (SP)
#30,(SP)

#1,30(RO)

000606
000030
000001

000400

3761

#104,=(SP)
PC.BLSMUL

#MSCP.ENV,RO
RO,MAD2

001002
004737
062706
000207

$CODES + 7446

11-Jul=-1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAOQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

)

SEQ 0275

Pa?e
VAX=11 Bliss=16 V3-555
(31
3
RC;
RCDICZRCD3.S
[DOUCETTE.CZ
_DUA2:

N T

ROUTINE GET_RANDOM : NOVALUE =
te

ERIETIEIEFETEYR IR

!
!
:
:

THIS ROUTINE IS CALLED BY QIO _GEN TO GENERATE A SET OF RANDOM NUMBERS,
AND TO STORE THEM INTO THE RARDOM NUMBER TABLE (RANDOM). THE RANDOM
NUMBERS ARE USED TO SELECT 1/0 REQUEST PARAMETERS FOR THE CURRENT QIO
OR QIO PAIR. IN ADDITION, IF DATA PATTERN #1 IS BEING USED, THESE
RANDOM NUMBERS WILL BE USED IN THE WRITE OPERATION.

;

A TEST IS MADE TO AVOID GENERATING THE RANDOM NUMBER 100000-0CTAL. THIS

NUMBER, IF USED AS THE DIVIDEND IN A "MOD'' OPERATION (E.G., QIO_LBN),
REGARDLESS OF THE DIVISOR, RESULTS IN AN OUT-OF-RANGE REMAINDER.

PR TR NI T L N PR YR

E
BEGIN
OWN

SEED1 : WORD INITIAL (X0°123456');

A TE TR IN PR

PRN

LOCAL
SEED2 : WORD:

SEED2 = ((.MINUTES * 5) OR .SECONDS) * 5 OR .TICKS;
DECR COUNT FROM (RDM_LEN - 1) TO 0 DO

‘

BEGIN

I ETE

REE

AR E M E

SEED1 = (.SEED1 + .SEED2 + 1) * &;
SEED2 = (.SFED2 / &) + ,SEED1;
RANDOM [.COUNT] = .SEED2;
END

UNTIL .RANDOM [.COUNT] NEQU X0'100000°;

TR E N

END;

002552
002552

END;

SEED1:

123456

.PSECT

000000

004137

0000006

000004
000010
000014
000020
000022
000026

013746
012746
004737
010016
053716
012746

0000006

000005

0000006
0000006

000005

=54322

.SBTTL

GET.RANDOM MULTI-DRIVE SUBTEST ROUTINES

-PSECT

010050

$GGGS,

.WORD

GET.RANDOM:
JSR

MOV

MOV
JSR

$CODES,

R1,$SAVE3

MINUTES, = (SP)

#5,-(SP)

PC.BLSSHF

MOV

RO, (SP)

MOV

¥5.<(SP)

BIS

SECONDS, (SP)

3807
3829

SEQ 0276
Pa?e
(
31
.SRC:3
JCZRCDS
E.CZRCD
DOUCETT
_DUAZ:[

VAX=11 Bliss=16 V3=555

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES
004737

0000006
000036

002552"

002552
000004 002552
000904
0000006

002552

000634"°
100000
162702
100343

000146

062706
000207

JSR

0000006

000002

000006

*,SEED2
* SEED2
*,COUNT

MOV

18:

BIS
MOV
MoV
MoV

ADD
ASL
ASL
MOV
ADD
MOV
MOV
JSR
MOV
ADD
MOV
MOV
ST
CMP
8EQ
sus
BPL
ADD
RTS

SEED2,*

3830
3836
3834

3836

SEED2,*
PC,BLSDIV

SEED1,R3

R3.RO
RO.R1
R1,RANDOM(R2)
(SP)+
R1,4#-100000
2%
#2,R2
18
#6,SP
PC

:
Base:
$CODES + 10050
Routine
52 words, )
; Routine Size:
9 words
: Maximum stack depth per invocation:

«,SEED2
SEED2,+*(COUNT)

+,COUNT

3837

G
CZRCD3
v01.0

CZRCDAO RC25 DISK EXERCISER

MULTI-DRIVE SUBTEST ROUTINES

11-Jul=1983 08:44:52

8-Jul-1983 17:43:57

VAX=11 Bliss=16 v3=555

TN E N
I
A
TE
IR IR
R

LI LI IR
PR PR PR IETE PATE PR YR LR AR LR LR L
PR T
P

;

CURRENT QIO OR QIO PAIR. THE UNIT SELECTED IS BASED ON THE NUMBER OF
UNITS ELIGIBLE TO RECEIVE AN 1/0 REQUEST (FROM 1 TO &) AND THE FIRST
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM).

IMPLICIT INPUTS:

]

IMPLICIT OUTPUTS:

CST_ADDR = ADDRESS OF CURRENT CONTROLLER'S (ST

;

THE MSCP UNIT NUMBER (PLATTER ADDRESS) IS LOADED INTO THE
APPROPRIATE FIELD OF BOTH MSCP ENVELOPES.

i
;
BEGIN
LOCAL

UNIT : WORD,
NTH_UNIT : WORD;

! UNIT NUMBER
i ORDINAL NUMBER OF CHOSEN UNIT

CASE .CST_ADDR [U_CNTJ

' DETERMINE ORDINAL UNIT NUMBER

FROM T 10 4 OF
SET

(1] : NTH_UNIT = 1;

£4] : NTHZUNIT = (.RANDOM [OJ AND 3) + 1;

1, 2, §. OR 4

' 10R 2
£2] : NTH_UNIT = (.RANDOM [0 AND 1) + 1;
£3] : NTHCUNIT = ABS (.RANDOM [0J MOD 3)°+ 1; ! 1, 2,
gggrnAnceJ : NTH_UNIT = 1;

OR 3

i IN CASE CONTROLLER JUST WENT DOWN

INCRagzizET FROM (0 + OF_UN) TO (3 + OF_UN) DO

! LOOP THROUGH EACH CST UNIT

IF_.CST_ADDR [.OFFSET, P_PRES] EQLU PRESENT

! IF UNIT IS PRESENT

THENBEGIN

THEN

NTH_UNIT = _NTH_UNIT = 1;
IF UNTH_UNIT EoCu O
THEN

R T T

GET (DRS) UNIT NUMBER
IF THIS UNIT IS ACTIVE
THEN

THIS IS AN ELIGIBLE UNIT

BEGIN

' DECREMENT ORDINAL COUNT
! IF DOWN TO 0
!

THEN

BEGIN

' THIS IS THE CHOSEN UNIT

SET UPAR (.OFFSET);
EXITLOOP;

' SET UP UNIT-RELATED DATA
! DONE

END;

A
P
P

! THEN

UNIT = .CST_ADDR [.OFFSET, P_UNIT);
IF .cPT [.URIT]

EEE

THIS ROUTINE IS CALLED BY QIO _GEN TO RANDOMLY SELECT ONE UNIT
CONFISURED UNDER THE CURRENT TONTROLLER (CCTLR) TO BE USED FOR THE

]
i
|
i

END;

Pa?e

_DUA2:[DOUCETTE.CZRCDIC MD3I.SRC;3 (32

ROUTINE QIO_UNIT : NOVALUE =
e

SEQ 0277

' UNIT IS ACTIVE

11-Jul-1983 08:44:5 2
8-Jul=-1983 17:43:5 I4

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

BOTH MSCP ENVELOPES

! ROUTINE QIO_UNIT

END;

.SBTTL

QIO.UNIT MULTI-DRIVE SUBTEST ROUTINES

MoV

R7.$SAVE3
RO
¢ST.ADDR
5$(R0) ,RO

0000006
000005
177400

move
8IC
DEC
cMP
BHI

000003

ASL

000000°
000001

2%:

00063¢4"*
177776

3%:

000634
000003
000000G

A ¥

5%:

00063¢4°
177774

6$%:

000003

8%:

0000006
040000

000006

JSR
MOV
INC
CMP
BR
MOV

8IC
INC

MOV
Mov
ASL
ADD

2177400,
R0

RO
RO, #3
2%
RO
P.AAA(RO)
,PC
#1,R2
7%
RANDOM,R2
177776 ,R2
63
= (SP)
RANDOM,
#3,-(SP)
PC.BLSMOD
RO, (SP)
PC,BL$ABS
R2
(SP)+,(SP)+
78

RANDOM,
R2
#177774 ,R2
R2
#3,R3
R3,RO
R0
CST.ADDR,RO
gkOOOO.(RO)
$
(RO) ,R1

9$:

Case dispatch
* NTH.UN]T
« NTH.UNIT
* NTH.UNIT

~ NTH.UNIT

NTH.UNIT

* NTH.UNIT
* NTH.UNIT
NTH.UNIT

* OFFSET
OFFSET,*

* UNIT

UNIT

#1,CPT(RT)

*, «(UNIT)

#177740,R1

0000006

005203
020327

BR
MOV
8IC
BR
MoV
MoV
JSR

8IT

000164
000166

000170
000172
000176
000200
000202
000204

MOV

MoV

0000006

000001

ADD

3846
3869

LA TR T YR ¥

QIO.UNITjSR

0000006

177740

! LOAD PLATTER ADDRESS (MSCP UNIT NUMBER)

.CPLAT;
.CPLAT;

R YR TR X

LT YN PTREIE TR FN PN ¥

MAD1 [PL_ADDR)
MAD2 CPL-ADDR]

116000

Pa?e

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (32

! CST UNIT LOOP

END;

013700

SEQ 0278

! UNIT IS PRESENT

END;

004137

VAX=11 Bliss=16 v3-555

LA PR

CZRCD3
v01.0

9$
R2
9s
R3,-(SP)
PC,SET.UPAR
(SP)+
108
R3
R3,#6

* UNIT

NTH.UNIT

: OFFSET,®

3869
3875
3879
3882

SEQ 0279

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

Base:
Routine
:
80 words,
ion:
: Maximum stack depth per invocat
: Routine Size:

MOV
MOV
MOV
MOV
RTS

3907

MADZ2,R0

3908

3846

CPLAT,14(R0)
CPLAT,14(RO)

$CODES +

.PSECT

$SPLITS,

.WORD
.WORD
.WORD
.WORD

Sevs

000000
000006
000020
000052

000000

NN
O
O

000000

MAD1,R0

d b b bt

000606°*
0000006 000014
000610°*
000000G 000014

BLE

NN
D>
[ XX1
17,

003746
013700
013760
013700
013760
000207

[ Lo Lo Toma T §

CZRCD3
v01.0
000210

Pa?e
VAX=-11 Bliss=16 V3-555
(32
RC;3
RCD3.S
RCDICZ
TTE.CZ
LDOUCE
_DUA2:

Table for Q10.UNIT+0032

3869

e Ve Be 8o BaBeBsBo®oBiUy oWy

8500000 0:%0,%0 %0080 %:0,; %000 0,909,090, PR YR

IRITEIE

I ETE TR

PRPR NN PR

LANE LR X Ve ®e

By 00 %o 04 00

CZRCD3
v01.0

11-Jul=1983 08:44:52

CZRCDAO RC25 DISK EXERCISER

8-Jul-1983 17:43:57

MULTI-DRIVE SUBTEST ROUTINES

VAX=11 Bliss=16 V3-555

THIS ROUTINE IS CALLED BY QIO _GEN TO SELECT THE [/0 FUNCTION (OPCODE)
T0 BE USED FOR THE CURRENT QID OR QIO PAIR. THE FUNCTION IS DETERMINED

i
'

BY THE FOLLWING ALGORITHM:

;

IF THE CHOSEN UNIT IS PROTECTED

THEN

FUNCTION = READ
ELSE (UNPROTECTED)

:
i

¥;EgpenAron SELECTED ‘WRITE~ONLY'' OPTION

;

LSE

FUNCTION = WRITE

FUNCTION (WRITE OR READ) IS BASED ON A RANDOM

NUMBER

;

IN ADDITION, IF THE OPERATOR SELECTED THE OPTION OF PERFORMING WRITE=COMPARES AT THE HOST, AND IF A 'WRITE'* FUNCTION WAS CHOSEN ABOVE FOR

i
'

i
!

THE FIRST QIO, THEN A '‘READ'* OPCODE IS LOADED INTO THE SECOND MSCP
ENVELOPE. OTHERWISE, THE SECOND MSCP ENVELOPE IS RETURNED TO THE POOL.

IMPLICIT INPUTS:

;

IMPLICIT OUTPUTS:

CST ADDR - ADDRESS OF CURRENT CONTROLLER'S CST
CUOFF = CURRENT UNIT CST OFFSET

i
;

THE OPCODE FIELD OF ONE OR BOTH MSCP ENVELOPES IS LOADED.

;

BEGIN

LOCAL

' GPCODE (READ OR WRITE)

%zEfiCST_ADDR [.CUOFF, P_PROT] EQLU ®ROTECTED

! %zEgNIT IS PROTECTED

FUNC : WORD;

ELSE

FUNC = OP_RD
BEGIN

%zfglr_rsr (SWP_FLAGS, SWF_W0)
SE

FUNC = OP_WRT
BEGIN

IF (.RANDOM [1] AND 1)

THEN
ELSE
END;

END;

FUNC = OP_RD

FUNC = OP_WRT;

i SET FUNCTION TO READ

i OTHERWISE (UNIT 1S UNPROTECTED)

; %LfigpeaAroa CHOSE WRITE-ONLY OPTION

i SET FUNCTION TO WRITE
i OTHERWISE

' USE 2ND RANDOM NUMBER TO SELECT

i
|
i
'

EITHER
READ
OR
WRITE

Pa?e

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (33

ROUTINE QIO_FUNC : NOVALUE =
e

SEQ 0280

CZRCD3
PNTR LR LR L X LXK Y YN T XN Y

v01.0

SEQ 0281

Pa?e
VAX-11 Bliss=16 v3=555
_DUA2:[DOUCETTE.CZRCDICZRCD 3.SRC;3 (33

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

4:5
11=Jul-198 3 08:44:52
17:43:
57
8-Jul=1198 3

IF (MAD1 [OPCODE] = .FUNC) EQLU OP_WRT

! LOAD CHOSEN OPCODE. IF WRITE

BEGIN

! IFECONTROLLER DOES WRITE-COMPARES

IF BIT_TST (SWP_FLAGS, SWF_CW()

THEN

! ADD COMPARE MODIFIER

MAD1 [MODIFY]) = MD_CMP;

! IF HOST DOES WRITE-COMPARES

IF BIT_TST (SWP_FLAGS, SWF_HKW(C)

PRPR LR AN

THEN

BEGIN

THEN

! SET EXPRESS REQUEST MODIFIER
! SET READ OPCODE INTO 2ND MSCP ENVELOPE
! SET EXPRESS REQUEST MODIFIER

MADT CMODIFY] = MD_EXP;

MAD2 [OPCODE] = OP_RD;
EXP
MAD2 TMODIFY) = MD_

THEN

TR PN

END;
END

! OTHERWISE = FUNCTION IS READ

BEGIN

ELSE

! %ZE§0NTR0LLER DOES READ-COMPARES

%:E%IT_TST (SWP_FLAGS, SWF_CRC)

! ADD COMPARE MODIFIER

MAD1 [MODIFY] = MD_(MP;

EEEEEEEE

END;

IF .MAD2 [OPCODE] EQLU O

THEN

IF NO OPCODE IN 2ND ENVELOPE

THEN

BEGIN

! RETURN 2ND ENVELOPE TO POOL

PUT_ENV (.MX2);
MX2 =
-1;

! MARK IT UNUSED

END;

' ROUTINE QIO_FUNC

END;

.SBTTL
PSECT

010460

QIO.FUNC:

QI0.FUNC MULTI-DRIVE SUBTEST ROUTINES
RO
$CODES,

000000

004137

0000006G

000004

013700
006300
063700
032710

0000006

Mov

000000G
100000

ADD
BIT

0100000 (RO)

S*EB

O%O,SUP.FLAGS

gég

II.RANDOH*Z

MOV

#41,R2
3%

000010

000044
000050

000402

000020

0000006

000001

000636°

C00041

JSR

R1,8SAVE?

ASL

RO
CST.ADDR,RO

BEQ

1%:

B8R

CUOFF RO

s *,FUNC

012702
005001

000042

%g:

013700
110260
020227
001025
032701
001403
012760
032701
001422
012760
013700

0000006

000606°
000020
000042

’

153701

042 R2

040000
000100

; *,FUNC

FLsGS.R1
SUP

>
nz.zb(ao
R2,#42
5%

#40,R1
4

000040

000022

#460000,22(R0O)

#100,R1

43:

63
#-100000, 22 (RO)
MAD2,RO

100000 000022
000610°
000041
000020

100000

005726
000207

8=Jul-19

SEQ 0282

Pa?e
VAX-11 Bliss=16 V3=-555
_DUA2: [DOUCETTE.CZRCDIC ZRCD3.SRC;3 (33

#41,30(RO)

c;1boooo 22(R0O)

000022

000010

5$:

6
#10,R1

040000 000022
000610°
000020

6$:

MAD?2,R0

6
#40000,22(R0O)

20(R0)

HXZ =(SP)

000604
0000006
177777 000604°

PC,PUT.ENV

7%:

TST
RTS

n=1,Mx2
(SP)+

.
$CODES + 10460
74 words, )
Routine
Base:
; Routine Size:
words
S
invocation:
per
depth
; Maximum stack

LX)

000052
000056

11=Jul=19

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3

v01.0

6
Co 0D

8-Jul-1983 17:43:57

MULTI-DRIVE SUBTEST ROUTINES

VAX=11 Bliss=16 v3=555

Pa?e

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC:3 (34

ROUTINE QIO_LBN : NOVALUE =
'+

i
;

THIS ROUTINE IS CALLED BY QIO GEN TO SELECT THE LOGICAL BLOCK NUMBER TO
BE USED FOR THE CURRENT Q10 OR QIO PAIR.

IF THE OPERATOR CHOSE THE RANDOM SEEK MODE OPTION, THEN THE LBN IS

i
i

RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR TRACK AND SECTOR.
OTHERWISE, THE NEXT SEQUENTIAL LBN IS DERIVED FROM THE BLOCK SEQUENCE

IMPLICIT INPUTS:

IMPLICIT OUTPUTS:

;

TABLE

(BST).

LSLUN - CURRENT (DIAGNOSTIC SUPERVIOR) UNIT NUMBER

!
;

THE LBN IS LOADED INTO ONE OR BOTH MSCP ENVELOPES.

BEGIN

W
W

LOCAL

£H

e 8 e ®e ®aBeBoBeBaBetetoho
e Bots®sBototodoBeWeBeB808s% QeUo®eVe8aV0008000000,080%00,%0¢%¢200,0s05%0000, 0000000,

000000

11-Jul=1983 08:44:52

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

SEQ 0283

T_RANGE : WORD,
S"RANGE : WORD,
NTRACK : WORD,
NSECT : WORD,
LBN : WORD;

t
i
i
i
i

' IF RANDOM SEEK MODE

IF BIT_TST (SWP_FLAGS, SWF_RDM)

THEN

PERMISSIBLE RANGE OF TRACK NUMBERS
PERMISSIBLE RANGE OF SECTOR NUMBERS
SELECTED TRACK NUMBER
SELECTED SECTOR NUMBER
LOGICAL BLOCK NUMBER

i THEN

BEGIN

T_RANGE = (.SWP_ETRACK - .SWP_STRACK) + 1;
! RANGE OF TRACK NUMBERS
S”RANGE = MAX_SECT + 1;
i RANGE OF SECTOR NUMBERS
NTRACK = .SWPTSTRACK + ABS (.RANDCM [2] MOD .T_RANGE); ' RANDOM TRACK NUMBER WITHIN RANGE
NSECT = ABS (-RANDOM [3] MOD .S_RANGE);
1 "RANDOM SECTOR NUMBER WITHIN RANGE

ELSE

END

! ELSE - SEQUENTIAL LBN MODE

BEGIN

NTRACK = .BST [.LSLUN, TRACKJ;
NSECT = .BST [.LSLUN, SECTORJ:
ADV_8ST ();

' GET TRACK FROM BST
i GET SECTOR FROM BST
i ADVANCE TO NEXT LBN

END;
]

THEN

i THEN

IF .Mx2 GEQ 0

4059

004137

CALCULATE LBN
LOAD LBN INTO 1ST ENVELOPE

LBN = (.NTRACK * SEC_PER_TRK) + .NSECT;
MAD1 [LBN L] = .LBN;

MAD2 [LBN_L] = .LBN;

i IF 2 QI0S

i LOAD LBN INTO 2ND ENVELOPE
! ROUTINE QIO_LBN

END;

0000006

.SBTTL

010.LBN:JSR

QI0.LBN MULTI-DRIVE SUBTEST ROUTINES

R1,$SAVE2

;

4007

SEQ 0284

CZRCDAD RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
000004
000012
000014
000020
000024
000026
000032
000036
000040
000044
000046
000052
000056
000060
000064
000066
000072
000074
000100
000102
000106
000110
000114
000116
000120
000124
000130
000134
000136
000142
000146
000150
000152
000156
000162
000166
000170
000174
00020¢
000202

?e 100
VAX=11 Bliss=16 V3-555
(34
.SRC;3
CZRCD3
CZRCDI
TTE.
[DOUCE
_DUA2:

132737
001436
013700
163700
005200
012701
013746
010046
004737
010016
004737
063700
010002
013716
010146
004737
010016
004737
010001
062706
000412
013700
006300
006300
016002
016001

004737

010246
012746
004737
060100
010001

013700
010160
005737
002404
013700
010160
022626
000207

000004

0000006

000000G
0000006

000037
000640°*
0000006
000000G
000000G

0000006
0000006
000006

000442'
000440
000000V

000037
0000006

1%:

2%:

JSR

PC.BLSMOD
RO, (SP)
PC,BLSABS

RO
#37 ,R1
RANDOM+4 ,-(SP)
RO,=(SP)

MOV
JSR
ADD
MOV

RO,R2

MOV
JSR
MOV
JSR
MOV
ADD
B8R

MOV
ASL
ASL
MOV
MoV

JSR

MOV
MOV
MOV
MOV
MOV
TST

BLT

3%:

SWP.ETRACK,RO
SWP STRACK,RO

MOV
MoV
MOV

JSR
ADD

000606°
000044
°
000604

000610°
000044

#4,SWP.FLAGS
1%

MOV

000642°

0000006

BIT8
BEQ
MOV
suB
INC

MOV
MOV
CMP
RTS

SWP,STRACK,RO

RANDOM+6, (SP)
R1,=(SP)
PC.BL$MOD
RO, (SP)
PC.BL$ABS
RO,R1
#6,SP

2$
LSLUN,RO

RO
RO

,R2
8ST+2(RO)
BST(RO) ,R1
PC,ADV.BST
R2,~(SP)

#3%,-(SP)

PC.BLSMUL
R1.RO
RO.R1

MAD1,RO
R1,44 (RO)

MX2
3s

MAD2,RO
R1,44(RO)
(SP)+, (SP)+
PC

.
Base:
$CODES + 10704
Routine
66 words, )
; Routine Size:
7
words
n:
inyocatio
per
depth
stack
: Maximum

4034

:
;

4038

: +,S.RANGE
‘

4039
4040

T.RANGE
,+

;

v ,NTRACK

; S.RANGE,*

;

H
:
:

«,NSECT

: « ,NTRACK

s «,NSECT
:

: NTRACK,«

4041

4036
4034
4047

4048
4049
4053

: NSECT,»

; *,LBN

4054

4055

4057

H
H

4025
4007

; LBN,

; LBN,»

4060

ROUTINE ADV_BST : NOVALUE =

4063
4064
4065

!
!
!
:

BOTH VALUES REMAIN WITHIN THE PROPER LIMITS.

4068

IMPLICIT INPUTS:

082 !. ¢

2829

:
.
:
:

8-Jul=1983 17:43:57

MULTI=-DRIVE SUBTEST ROUTINES

v01.0
.

11=-Jul-1 983 08:44:52

CZRCDAQ RC25 DISK EXERCISER

CZRCD3

4069

28;%

BEGIN

:
:

4074 BST C.LSLUN, SECTOR] = .BST [.LSLUN, SECTOR] + 1;
4075 1F .BST [.LSLUN, SECTOR] GTRU MAX_SECT

28;5

4079

28%2

:
:

4085
4086

M
:

000000
000002
000006
000016
000012
000016
000020
000022
000025
000030
000032
000036

000040
000044

000046
000052
000054

4076

THEN

BEGIN

8ST [.LSLUN, SECTOR] = 0.

8ST C[.LSLUN, TRACK] = .BST [.LSLUN, TRACK] + 1;
%:EfiBST C.LSLUN, TRACK] GTRU .SWP_ETRACK

4080
zgg;

4087

010146
013700
006300
006300
012701
060001
005211
021127
101411
005011
062700
005210

BST [.LSLUN, TRACK] = .SWP_STRA(K;

! INCREMENT SECTOR NUMBER
! IF SECTOR IS BEYOND HIGH LIMIT
! THEN

' SET SECTOR TO LOW LIMIT

! INCREMENT TRACK NUMBER
; %ZELRACK 1S BEYOND HIGH LIMIT
! SET TRACK TO LOW LIMIT
! ROUTINE ADV_BST

END:;
.SBTTL
ADV.BST:MOV
MOV
ASL
ASL
Mov
ADD
INC
CMP
BLOS
CLR
ADD
INC

000000G

000440°

000036
000442°

0000006

013710
012601

0000006

CMP

8LOS

1$:

000207

: Routine Size:

Pa?e 101

_DUAZ:(DOUCETTE.CZRCD] CZRCD3.SRC;3 (35

END;

021037
101402

SEQ 0285

LSLUN = CURRENT (DRS) UNIT NUMBER

4071

VAX=11 Bliss=16 V3=555

THIS ROUTINE IS CALLED BY QIO LBN TO ADVANCE THE CURRNET UNIT'S LBN
IN THE BiLOCK SEQUENCE TABLE (BST). THIS IS DONE BY INCREMENTING THE
SECTOR NUMBER (AND TRACK NUMBER, IF NECESSARY), WHILE ENSURING THAT

4070

23 words,

Routine Base:

: Maximum stack depth per invocation:

2 words

MOV
MOV
RTS

ADV.BST MULTI-DRIVE SUBTEST ROUTINES
K
R1,-(SP)
LSLUN,RD
:
RO
RO
#8ST.R1
RO,R1
(R1)
:
(R1) ,#36
1%
:
(R1)
#8ST+2,R0
H
(RO)

4060
4074

4075
4079
4080

(RO) ., SWP . ETRACK

4081

SWP.STRACK, (RO)
(SP)+,R1

:
:

4083
4060

$CODES + 11110

11-Jul=1983 08 44:52
8-Jul-1983 17:43:57

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3

v01.0

SEQ 0286

?e 102
VAX=11 Biiss=16V3555
(36
RCD3.SRC;3
TTE.CZRCDICZ
_DUA2:[DOUCE

PR PR PRPR
PRPR
LRYR TN

ROUTINE QIO_SIZE: NOVALUE =
'+

i
i
i
;

THIC ROUTINE IS CALLEC BY QIO _GEN TO SELECT THE 1/0 TRANSFER BYTE COUNT
10 BE USED FOR THE CURKENT QID OR QIO PAIR. THE BYTE COUNT IS
DETERMINED BY A RANDOM N'JMBER, AND WILL ALWAYS BE AN EVEN NUMBER
BETWEEN O AND THE 1/0 BUI FER SIZE (BUFF_SIZE), INCLUSIVE.

IMPLICIT OUTPUTS:

THE BYTE COUNT I'5 LOADED INTO ONE OR BOTH MSCP ENVELOPES.

PNPR

]

PRP

BEGIN

! BYTE COUNT

SIZE : WORD;

NSWN—=OO
O

b
b

b =D D
b
b

and wd wnd mad
—

4108
Y
Y VY

' ENDING BLOCK NUMBER FOR CURRENT 1/0

END BLK : WORD,

—b e

ETETY IR EE

LOCAL

004137
013746
013746
005216
004737
010016
004737
010003
042703
013701
010316
005316
012746
004737
066100

010002
013700
005300
020200
101410
013700
166100
000300
105000

SIZE = ABS (.RANDOM [4) nD (.BUFF ssz + 1)) AND %0'177776';
END_BLK = .MAD1 LLBN_L] + ((.SIZE ="1) / BLK_SIZE);

IFEENDING BLOCK IS LARGER THAN UNIT SIZE

BLK GTRU(.USIZE - 1)
%LENEND

HEN

SCALE DOWN BYTE COUNT
LOAD SIZE INTO 1ST MSCP ENVELOPE

SIZE = (.USIZE - .MAD1 [LBN_L]) = BLK_SIZE:

MAD1 [BC_LO] =

IF .Mx2 GEQ O

THEN

IF 2 Q]0S

THEN

MAD2 [BC_LOJ = .SIZE:

LOAD SIZE INTO 2ND MSCP ENVELOPE

! ROUTINE QI0_SIZ2E

END:
0000006

000644 "
0000006
0000006

1000006

000001
000606°

! GET BYTE COUNT FROM RANDOM NUMBER
i CALCULATE ENDING BLOCK NUMBER

.SBTTL
Q'0.SI2E:
JSR
MOV
MOV
INC

JSR

MOV

JSR
MOV
8IC
MOV

MOV
DEC

Q10.SIZE MULTI-DRIVE SUBTEST ROUTINES
R1,$SAVE3

RANDOM+10, = (SP)
BUFF.SIZE.=(SP)

(SP)

PC,BLSMOD

RO (SP)

PC.BLSABS
RO.R3
#1.R3
MAD1,R1

R3, (SP)
(SP)

: +,SIZE

: «.SIZE
:

s SIZE,*

001000

MOV

#1000,-(SP)

000044

ADD
MOV
MOV

44(R1),RO
RO,R2
USIZE.RO

: *,END.BLK

R2.RO

: END.BLK,*

USIZE,RO
44 (R1),RO

0000006
000616"

JSR
DEC

CMP

000616°
000044

BLOS

MOV
SUB

SWAB
CLR8B

4088
4106

4107

Pc.BLSDIV
RO

1§

RO
RO

4108

4110

006300
010003
013700
010360
005737
002404
013700
010360
062706
000207

: Routine Size:

18:

000696 *

000024
000604

ASL
MOV
Mov
MOV

TST

BLT

000610
000024

2s:

000006

53 words,

_DUA2:[DOUCETTE. CZRCD

MOV
MOV

ADD
RTS

R3,24(RO)

MX2

28
MAD2,RO
R3,24(RO)
#6.SP
PC

$CODES + 11166
Routine Base:
8 words

: Maximum stack depth per invocation:

Se ®y ®e v,

000112
000114
000116
000122
000126
000132
00N134
000140
000144
000150

VAX-11 Bliss=16 V3=555

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

«,SIZE
SIZE,»

sa 0287

Jczreo3. sre;3 (38

41N

4112
4114

SIZE,*

4100
4088

CZRCDAO RC2S DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
;

4117

ROUTINE FILL_BUFF

.
:

4120
2}55

!
s

2}%2

4125

:
:
;

:
:
:

4126
4127
4128

!
!
!

4131

4129
4130

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

: NOVALUE =

THIS ROUTINE IS CALLED BY QIO GEN TO LOAD THE 1/0 BUFFER DESCRIBED IN
THE FIRST MSCP ENVELOPE WITH THE APPROPRIATE DATA PATTERN.
THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM:
IF THE OPERATOR DEFINED A DATA PATTERN

THEN

ELSE

!
!

SELECT IT

GET DATA PATTERN NUMBER FROM SW P~TABLE
IF DATA PATTERN NUMBER = 0
THEN

:
:

4132
2}%2

4135

GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRY
IN THE DATA PATTERN SEQUENCE TABLE (DPST)
NOTE THAT PATTERN # 1 CONSISTS OF RANDOM NUMBERS, AND PATTERNS # 17 -

4138

2}28

IMPLICIT INPUTS:

:
:

4141
4142

BEGIN

;
R

4145
6146

:
H

:
:

2}%9

4143
4144

2}2;

4153

:
:
:
;

LSLUN = CURRENT (DRS) UNIT NUMBER

LOCAL

DP_NUM : WORD,
DP_ADDR,

! DATA PATTERN NUMBER SELECTED
! ADDR OF DATA PATTERN (LENGTH)

SRC_ADDR,

! WORKING SOURCE ADDRESS

IOE_ADDR.

4148

4149

;
:
:
K

21 USE THE ACTUAL LBN OF THE WRITE REQUEST.

4147

:
:

!
;

DISP : WORD,

4150

4154
4155
4156
2}2;

4159

4160
4161
4162
2}22

PAF : WORD,

COUNT : WORD;

IF BIT_TST (SWP_FLAGS, SWF_UDP)
THEN

ELSE

DP_ADDR = SWP_UCNT
BEGIN

IF .SWP_DPAT NEQU 0
THEN

ELSE

DP_NUM = ,SWP_DPAT
BEGIN

! 170 BUFFER ADDRESS (DESTINATION)
! MEM. MGMT. ADDRESS DISPLACEMENT

! PAGE ADDRESS FIELD

! NO. OF WORDS IN DATA PATTERN
' IF USER DEFINED A DATA PATTERN
! THEN
! SELECT T
! OTHERWISE

! IF USER SELECTED A PRE-DEFINED DATA PATTERN

! THEN
! SELECT IT
! OTHERWISE

4165

DP NUM = DPST [.LSLUN];

! GET PATTERN NUMBER FROM SEQUENCE TABLE

4167

IF .DPST [.LSLUN] GTRU DP_CNT

' CHECK FOR HIGH LIMIT

4169

4173

;

4166

4168

4170

OPST [.LSLUN] = .DPST [.LSLUN] + 1;
THEN

! ADVANCE TO NEXT PATTERN NUMBER

DPST [.LSLUN] = 1;

DP_ADDR = .DPA_TBL [.DP_NUM - 1];

SEQ 0288

Pa?e 104
vAX=11 Bliss=16 V3-555
(37
_D!AZ:[DOUCETTE.CZRCDJCZRCDS.SRC:S

! ADDRESS OF DATA PATTERN (COUNT’

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

Y E YR TR TRTR IEIETE TR

PRLR R TN

NI DI LA IR IR T IEIEIETA TR TR IR TR

6174

VAX=11 Bliss=16 V3=555

BEGIN

.DP_NUM

THEN

6179
4180

SE(.DP_ADDR + 2) = _MAD1 [LBN_L]
(.DP_ADDR + &) = .MAD1 [LBN_LIJ;

IZEZATTERN 17, 19, OR 21
LOAD LBN INTO FIRST WORD OF PATTERN
ELSE = PATTERN 18 OR 20
LOAD LBN INTO SECOND WORD OF PATTERN

END;

10B_ADDR = .MAD1 [BUF_0J;
IF MEM_MGMT
THEN

170 BUFFER ADDRESS
%;EaYSTEH HAS MEMORY MANAGEMENT

BEGIN

DISP = .10B_ADDR AND 20'17777°;
PAF = (.]IOB_ADDR
* =6) AND_%0° 1600°;
KTPARG = (.RAD1 (eur 13~ 10) OR .PAF;

108_ADDR = X0°*100000Y OR .DISP;

1/0 BUFFER DISPLACEMENT ADDRESS

PAGE ADDRESS FIELD
LOAD PAR4

170 BUFFER VIRTUAL ADDRESS

END;

= ..DP_ADDR;
COUNT

+ 2;
SRC_ADDR = .DP_ADDR
INCR N FROM1 TO (.MAD1 [BC_LO] / 2) DO
BEGIN

=
.10B_ADDR

..SRC_ADDR;

108_ADDR
= .IOB ABDR + 2;
SRC CADDR = .SRC_ADDR + 2;
IF “MEM_MGMT
THEN

NO. OF WORDS IN DATA PATTERN
START OF THE ACTUAL DATA PATTERN

FOR EACH WORD IN THIS WRITE REQUEST

MOVE 1 WORD

ADVANCE DESTINATION ADDRESS
ADVANCE SOURCE ADDRESS
%;EaYStE" HAS MEMORY MANAGEMENT

BEGIN

IF (.10B_ADDR AND %0°'17777') EQLU 0

%zeb/o BUFFER CROSSES A 4K PAGE BOUNDARY

THEN

BEGIN

108_ADDR = %0'100000°:
KTPARG
= .KTPAR4L + X0°200°;

RESET VIRTUAL ADDRESS

ADVANCE PAR TO NEXT 4K PAGE

P YRR

IR FE T TR T XN

END;
END;

COUNT = .COUNT = 1;
IF .COUNT EQLU O
THEN

BEGIN

COUNT = ..DP_ADDR;

= .BP_ ADDR + 2;
SRC_ADDR

END = IF MEMJRY MANAGEMENT
DECREMENT COUNT
IF END OF DATA PATTERN
THEN

REPEAT DATA PATTERN

SEQ 0289
?e 105

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (37

IF .DP_NUM GEQU 17

THEN

[(TEYPREIETE TR TR

TNYN ¥

152

SEQ 0290

Pa?e 106
VAX-11 Bliss=16 v3=-555
_DUAZ:(DOUCETTE.CZRCDJCZRCDS.SRC :3 (37

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
RN

END;

WORD TRANSFER LOOP

.MEM_MGMT

{;EzYSTEH HAS MEMORY MANAGEMENT

KTPAR4 = X0°1000°;

RESTORE PAR4

THE N

! ROUTINE FILL_BUFF

END;

000000

004137

000004
000006
000012
000014
000020
000022
000024
000032

024646
105737
100003
012704

000445
005000

153700
005700
001402
010001
000414

0000006
0000006
0000006

1$:

0000006

2$:

0000006
000540°

000001

3s:

001642"
000021

042702

176177

wv
L X ]

000002

000044 000004
000606°
000030
000002
0000006 000002
000001 000002

177772
0000006

JSR
CMP

R1,8SAVES
~(SP) ,=(SP)
SgP.FLAGS

TSTB
8PL
MOV
8R
CLR

BISB
TST
8EQ
MOV
B8R

MOV
ADD

Move
MOV
ASL
MOV

cMP
BLO

000606"

160000

FILL.BUFF MULTI-DRIVE SUBTEST ROUTINES

CLR
BISB
INCB
CMPB
BLOS

000025

000044

.SBTTL

FILL.BUFF:

MOV
ROR
8((C
MOV
BR
MOV
MOV
MOV

CLR
Move
8Iv
BEQ
MOV

8IC

MoV
Mov

JSR

MOV

BIC

1
#SWP
. UCNT R4

5%
RO
SWP.DPAT
RO
RO
2%
RO.R1
3$

4117

4153
+,DP.ADDR

4155
4153
4159

*,DP.NUM

4161
4159
4165

LSLUN,RO

lgPST.RO
R

(RO ,R1
(RO)
(RO) ,#25

DP.NUM
+,DP.NUM

#1,(RO)
R1.RO
RO

,R4
DPA.TBL=2(R0)

R1,421
5%
MAD1,RO
R1

48
44(R0O) ,2(R&)
5%
44(R0) ,4(R4)

MAD1,R1

2(SP
MEM.MGMT ,2(SP)

DP.NUM,
=

* ,DP.ADDR

4166
6167

4169
4173

DP.NUM,
+

4174

DP.NUM

4180
4178

»,+(DP.ADDR)
+,+(DP.ADDR)
+,108.ADDR

4180
4178
4182
4188

6189

z;.Z(SP)

RS ,R3
#160000,R3
R5,-(SP)
#-6,-(SP)

PC.BLSSHF
RO R

#176177,R2

108.ADDR,DISP
+,DISP
I0B.ADDR,«
« PAF
v PAF

4193

6194

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
016100
000300

32(R1) ,RO

000032

RO
RO
RO
RO
R2,=(SP)
RO, (SP)

(§P);.3‘172350

172350

6$:

000C02

000004

000002

000001

000200

000004
000006

172350

000004

364

0372

012737
062706
000207

4191

R&. R2

:; DP.ADDR,*
; *,SRC.ADDR

(R4) R3
#2.R2

000006

001000

172350

R1
93

, (R5)+
84(SP)

#2,4(SP)
#1,6(SP)

8s
#7777
RS
8s
#-100000,R5

8s:

9%:

000001

000010

PC.BL‘D[V

017777
100000

(SP)+, (§P)+

24 (R1),=(SP)
#2,-(SP)

4 ¥

#200,3#172350

R3
9%

(R4) ,R3
R2,4(SP)
R1
R1.RO
I4]

#1,6(SP)

108:

¢
: PAF,

4196

R2. (SP)

000024
000002
000000G

4195

: DISP,108.ADDR

3100000 RS

100000

GU0374
000402
000406

SEQ 0291

?e 107
VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE. CZRCDICIRCD3.SRC;3 (37

108
#1000,a#172350

)
Routine
Base:
$CODES + 11340
132 words,.
; Routine Size:
11 words
; Maximum stack depth per invocation:

: «,108.ADDR

: DP.ADDR,COUNT
H
H

4200
4201
4202

: SRC.ADDR,]OB.ADDR
: «,SRC.ADDR
H

4205
4207
4208

: +~,]108.ADDR

4212

«,]108.ADDR

4216
4217

;
.
;
:
;
:
:

COUNT

DP.ADDR,COUNT
~,SRC.ADDR
N

s N,*

4223
4224
4228
4229
4202

4235

.
.

4237
4117

4240
4241

ROUTINE PROC_RETPKT : NOVALUE =
‘e

4245

i
i

THIS ROUTINE IS CALLED FROM THE MULTI _DRIVE "EXECUTIVE'' TO CHECK FOR
AND PROCESS ANY RETURN PACKETS THAT HMAVE BEEN '‘SENT'' BY THE 'DRIVER''
PORTION OF THE PROGRAM. THE 170 DONE QUEUE (10DQ) ACTS AS THE LINK
BETWEEN THE TWO PROGRAM PARTS:; IT HOLDS INDECES OF RETURN PACKETS WHICH

3385252"‘ MULTI-DRIVE SUBTEST, RETURN PACKETS ORIGINATE FROM TWO

4246

6247

4248
4249
4250
4251
4252
Ve B0 02030080 800, %080 0%0 %00, 0.0,

SEQ 0292

Page 108
VAX=11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (38

4242
6243

6244

4253

6254
4255
4256
4257
4258
4259
4260
6261
4262
4263
4264

i
i

REQUIRE PROCESSING.

;

1. DISK MSCP - THE MORE COMMON, DESCRIBING A COMPLETED 1/0

2. THE PROGRAM ‘DRIVER'* - DESCRIBING A CONTROLLER ERROR OR

OPERATION

COMMAND TIMEOUT.

;

BEGIN

' GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER

SET CPAR (.RP_ADDR [CTLRY);

i SET UP CURRENT CONTROLLER PARAMETERS

RPTMADDR = RETPKT + (.RP_INDX « RP_LEN * 2); ! CALCULATE RETPKT ADDRESS

4266

001444

i CONNECTION ID INDICATES PACKET SOURCE

SELEgE?NEU .RP_ADDR CCONID] oOF

' DISK MSCP (I/0 TRANSFER DONE)
i MESSAGE FROM ‘DRIVER''

[CID_DISK] _ : IO_RETPKT ();
;ggo_onxvea) : DRCRETPKT ()}

4267
4268

4269
4270
627
4272
4273

' DO UNTIL 170 DONE QUEUE IS EMPTY

UHngEé}SDO'IN NEQU .10DQ_OUT DO

4265

023737

' UNITL 1/0 DONE QUEUE IS EMPTY

END;

' ROUTINE PROC_RETPKT

END;
000000G 0000006

_SBTTL

PROC.RETPKT MULTI-DRIVE SUBTEST ROUTINES

g?g

zgoo.xn.xooo.our

;

4259

JSR

PC.OUT.100Q

;

4262

MOV

RO.=(SP)

; RP.INDX,*

4263

PROC.RETPKT:

1$:

004737
010037
010046
012746
004737
062700
010037

0000006

042716

177760
0000006

8Ic
JSR

#177760, (SP)
PC,SET.CPAR

000003
177400

MOv8
BIC
BNE
JSR

3(RO),RO
#177400,R0
28
PC,I0.RETPKT

CMP

#3
RO,

116016

004737
013700

116000

000072
000074
000100
000102

11=-Jul=1983 08:44:52
8-Jul-1983 17:43:57

CZRCDAO RC2S DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

C2RCD3
v01.0

042700
001003
004737
000405
020027

MOV

0000006

000060
000002

#60.,=(SP)

MOVB

2(R0).(SP)

;

4264

RP.ADDR RO

;

4265

4267

MOV

0000006

000000V
000003

MOV

JSR
ADD
MOV

0000006
0000006
0000006

2%:

RO.RP. INDX

PC.BLSMUL
#RETPKT ,RO
RO,RP.ADDR

3¢

;

4265

CZRCDAQ RC25 DISK EXERCISER
MULTI=DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
000106
000110
000114
000116
000120

VAX=11 Bliss=16 v3-555
_DUA2:[DOUCETTE.CZRCDICZRCD3.

001002
004737
022626
000730
000207

000000V

3%:
43:

BNE
JSR

CMP
BR
RTS

PC,DR.RETPKT

(SP)+,(SP)+
1$
PC

$CODES + 11750
; Routine Size: &1 words,
Routine Base:
: Maximum stack depth per invocation:
3 words

SEQ 0293

Page 109

SRC;3 (38?

PRTR AR LI ) [ TEYEYEIEELEFE
T ETEITETE

VAX=11 Bliss=16 V3=-555

ROUTINE IO_RETPKT : NOVALUE =

THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL I/0 TRANSFER

RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY
HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND
PERFORMING HOST WRITE~COMPARES IF REQUIRED.
IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

CCTLR = CURRENT CONTRGLLER NUMBER

BEGIN

INDICATES THAT SWEEP () WILL BE CALLED
FIND UNIT'S ENTRY IN CST AND SET UP UNIT-RELATED DATA
GET STATUS CODE FROM RETPKT

SWEEP_FLAG = TRUE;

FSET_UPAR ();
ST_CODE = .RP_ADDR LSTSCOD];
SB_CODE = .RP_ADDR [SUBCOD]:

GET SUB-CODE, IF ANY

IF STATUS CODE INDICATES ERROR

IF~.ST_CODE NEQU ST_SUC

THEN

BEGIN

IF .ST_CODE EQLU ST_OFL

THEN

' IF UNIT OFFLINE

' THEN

BEGIN

' DROP UNIT

D0DU (.LSLUN);

ELSE

N NN

PRTR LN PN P N (IR

! “FATAL 1/0 ERROR''
' LOAD REASON FOR DROPPING UNIT

ERRDF (19, EGD_19, EMS_19);
DUR C[.LSLUN] ="DU_FATAL;
END

! ELSE = ERROR IS NGT UNIT-OFFLINE

BEGIN

CASE .ST_CODE

gggfl 1 70 11 OF

NE M

I YA

YRS

£1]
[2]
£33
[4)
[5]
[6]
£7]
[8)
[9]
€103

£11]

:
:
:
:
:
:
:
:
:
:

ERRHRD
ERRHRD
:
ERRHRD
ERRHRD
ERRHRD
ERRHRD
ERRHRD
ERRHRD
ERRHRD

(31, EGH_30, EMS_30);
(32, EGH_30, EMS_30);

(34,
(35,
(36,
(37,
(38,
(39,
(40,

EGH_30,
EGH_30,
EGH_30,
EGH_30,
EGH_30,
EGH_30,
EGH_30,

EMS_30):
EMS_30);
EMS_30);
EMS_30);
EMS_30);
EMS_30);
EMS_30);

: ERRHRD (41, EGH_30, EMS_30);

ggUTRANGE] : ERRHRD (30, EGH_30, EMS_30);

SEQ 0294
P a ?e 110

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (39

11=Jul- 1983
8-Jul-1983

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

TN PR FE TI

I RN ¥

CZRCD3
v01.0

: ;

HARD_ERR (1);
END;

END

!
'
¢
'
!
!
!
!
'
!

INVALID COMMAND
COMMAND ABORTED
UNIT OFFLINE (DEVICE-FATAL)
UNIT AVAILABLE
MEDIA FORMAT ERROR
WRITE-PROTECTED
DEVICE COMPARE ERROR
DATA ERROR
HOST BUFFER ACCESS ERROR
CONTROLLER ERROR

! DRIVE ERROR

! UNXNOwN

! INCREMENT HARD ERROR COUNT FOR CURRENT UNIT

VAX=-11 Bliss=16 V3-555

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

11-Jul=-1983 08:44:52
8-Jul-1983 17:43:57

ELSE

! ELSE - 170 WAS SUCCESSFUL

N T NN NN

CZRCD3
v01.0
Y

BEGIN

%L TBIT_TST (SUP FLAGS, SWF_HW()

TN EI PR P TN
[YEYRETEIEIECE

SAVE 1/0 PACKET OR DO WRITE=-CHECK

HOST_WRT_CHK ();

END;

IFESUEEP FLAG IS STILL TRUE

IF .SWEEP_FLAG EQLU TRUE
THEN

DEALLOCATE BUFFER(S) AND RETPKT(S)
DECREMENT NO. OF OUTSTANDING QIOS

(
SWEEP

e1o C. CCTLRJ = ,Q10 C.CCTLR] =~ 1;
4346

! ROUTINE 10_RETPKT

END;

.SBTTL
I0.RETPKT:

010146
112737

004737
013700

116037

042737
016001
006201
006201
006201
006201
006201
042701
010137
013700
001521
020027
001013

MOV

mMove
JSR

000630°
000001
000000V
0000006

000016
177740

000016

MOV

0000006

move
BIC
MOV
ASR
ASR
ASR
ASR
ASR
8IC

0000006

174000
000000G
000000G

MoV
MOV

BEQ
CMP
BNE
TRAP
+WORD
-WORD
.WORD

000003

106455

000023
000000G
0000006
013700 0000006
0000006
112760 000004
104451

000513
005300
020027
101003

006300
066007
104456

000036
0000006

000154

Pa?e

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (39

UPDATE 1/0 STATISTICS
%ZEQOST IS DOING WRITE-COMPARES

MD_TALLY ();
EN

SEQ 0295

0000006
000461
104456

000012
000010°

MOV

Movs

TRAP

1%:

BR
DEC
CMP
BHI

3s:

ASL
ADD
TRAP

4%:

TRAP

.WORD
.WORD
WORD

I0.RETPKT MULTI-DRIVE SUBTEST ROUTINES
R1,-(SP)
#1,SWEEP
. FLAG
PC,FSET.UPAR
RP.ADDR,RO
16(R0) ,ST.CODE
#177740,ST7.CODE
16(R0O)
,R

#174000,R1
R1,58.CODE

ST.CODE,RO
15%
RO,#3

4293

55
23
EGD.19
EMS.19
LSLUN,RO

4301

4297

#4 ,DUR(RO)
b1
16$
RO
RO,#12
3$
RO
P.AAB(RO)
,PC
56

4302

4303
4297
4309

; Case dispatch

4323

4309
6312

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

104456

5%:

TRAP
.WORD
.WORD
.WORD

104456

6$:

TRAP

000040
0000006
0000006
000447
000042
0000006
0000006
000442

.
e

EON
Yl

-WORD
.WORD
.WORD

000037
v00000G
0000006
000454

000156

11=Jul=1
8=-Jul-1
SAN=MIMIN

CIRCD3
v01.0

.WORD
.WORD
WORD

7%:

TRAP
.WORD
.WORD
WORD

8%:

TRAP

-WORD
-WORD
WORD

9¢%:

TRAP

108:

TRAP

118:

TRAP
.WORD
.WORD
.WORD

12%:

TRAP

-WORD
.WORD
WORD
-WORD
.WORD
WORD

-WORD
.WORD

WORD

13%:

000344
000346
000352

123727

000001
0000006

14%:

000000V
000100 0000006

15%:

€00000v
000630 000001

14%:

TRAP
-WORD

.WORD
. WORD

MOV
JSR
TST

PC.HARD.ERR

JSR

PC MD. TALLY

8ITB
BEQ
JSR
(MPB

(SP)+
168

ngo SWP.FLAGS
PC,HOST.WRT.CHK

SWEEP.FLAG,#1

SEQ 0296

?
VAX=11 Bliss=16 V3-555
(39
:3
RCD3.SRC
CZRCDICZ
_DUA2:[DOUCETTE.

.
Routine
Base-

invocation:

3 words

000010

P.AAB:

2s:

4274

; CASE Table for I0.RETPKT+0136

4309

$CODES + 12072

LPSECT

000012
000024
000154
000036
000050
000062
000074
000106
000120
000132
000144

-WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$PLITS,

RO,

129 words,.

Maximum stack depth per

6343
4344

Routine Size:

MoV
RTS

:
H

17%:

BNE
JSR
MOV
DECB

~
e

105360

000000V
0000006
0000006

001002
004737
013700

SEQ 0297
?

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (39

MULTI-DRIVE SUBTEST ROUTINES

012601
000207
;

VAX=11 Bliss=16 V3-555

8. 000,808,808,
0,08, 0

0rC360

CZRCDAQ RC25 DISK EXERCISER

CZRCD3
v01.0

A T YR N
N X N
A ETEYER
R
RE
AR R E

4347
4348
(349
4350
4351
4352
4353
(354
4355
4356
4357
4358
4359
4360
4361
4362
(%63
(364

000020

000024
000026
000030
000034
000036

000056
000060

020360
001005
010246
004737
005726
000207
005202
020227
003754
000207

~NrD

£~

~Co

IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF CURRENT RETURN PACKET
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S (ST

BEGIN

INCReggiaET FROM (0 + OF_UN) TO (3 + OF_UN) DO

! FOR EACH UNIT IN (ST

%LE&CST°ADDP [.OFFSET, P_ADDR] EQLU .RP_ADDR [PLAT] % {:EzETPKY UNIT NUMBER MATCHES CST ENTRY

BEGIN

)

SET UPAR (.OFFSET);

' SET UP UNIT-RELATED DATA

RETORN;

! DONE

END;

! CST UNIT SEARCH LOOP

END;

! ROUTINE FSET_UPAR

END;
.PSECT

151103

DATA PARAMETERS.

.SBTTL

012702
010201
006301
063701
013700
005003

0O
0000
W

THIS ROUTINE IS CALLED BY IO_RETPKT AND OTHERS TO SEARCH THE CURRENT

012474

000004
000010
000012
000014

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (40

CST 1S USED AS INPUT TO SET_UPAR, WHICH SETS UP CURRENT UNIT-RELATED

4370
4371
4372
4373
4374
4375

004137

SEQ 0298
Pa ?e 114

CONTROLLER STATUS TABLE (CSTY FOR THE PLATTER ADDRESS WHICH IS
CONTAINED IN THE CURRENT RETURN PACKET. WHEN FOUND, THE JFFSET INTO THE

4366
4367
(368
(369

4377

VAX=11 Bliss=16 v3-555

ROUTINE FSET_UPAR : NOVALUE =

L365

4376

-l anb

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3

v01.0

000000

11=Jul8-Jul=-

0000006G

000003

FSET.UPAR:
JSR
1%:

ASL

CLR
BISB

000010

Routine Base:
; Routine Size:
25 words,
6 words
; Maximum stack depth per invocation:

; OFFSET,»

CST.ADDR,R1
RP.ADDR,RO

(R1).R3

R3,10(R0O)

MOV
JSR

R2,=(SP)
PC,SET.UPAR

; OFFSET,«

RTS

TST

2$:

R2.R1

: «,OFFSET

CMP

BNE

0000006

000006

#3,.R2

R1,$SAVE3

MOV
ADD
MoV

000000G
0000006

FSET.UPAR MULTI-DRIVE SUBTEST ROUTINES

$CODES,

(SP)+

INC
CMP

R2
R2.#6

> OFFSET
: OFFSET,»

RTS

BLE

$CODES + 12474

4347
4363
4366

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3

v01.9

PNTR LA LA TS
T

‘e

Pa?e 116

_DUA2:[DOUCETTE.CZR(CD JCZRCD3.SRC;3 (41

THIS ROUTINE IS CALLED FROM 10 _RETPKT FOR ALL 1/0 TRANSFER RETURN

PACKETS WITH "*SUCCESS'* STATUS TODES. ITS PURPOSE IS TO UPDATE ALL THE

FROM CURRENT PASS TESTING.

APPROPRIATE STATISTICAL FIELDS FOR THE CURRENT UNIT. A CHECK IS ALSO
MADE ON THE TOTAL NUMBER OF BYTES TRANSFERREC THUS FAR:; IF THE
OPERATOR=-SPECIFIED LIMIT HAS BEEN REACHED, THEN THE UNIT IS REMOVED

PRSR
PRPR TR PR PR PR TR

'
!
'

IMPLICIT INPUTS:

RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET
T KDDR - ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY)
LSLUN - CURRENT (DRS) UNIT NUMBER

P PP TR

!
'
!
BEGIN

IF .RP_ADDR [ENDCOD] EQLU (OP_RD + OP_END)
BEGIN

! IF ENDCODE IS READ
! THEN

P T

THEN

UPD_10C (T_ADDR CREAD_LO],

! INCREMENT NO. OF READS

1);

T_ABDR [BRTLO) = .T_ABDR £BR_LOJ + .RP_ADDR [BCNT_LOJ; ' UPDATE BYTE COUNT

! CHECK FOR FIELD OVERFLOW

T T T

OVF_CHK (T_ADDR [BR_LOJ);
ELSE

T
T
L

SEQ 0299

ROUTINE MD_TALLY : NOVALUE =

013700
126027
001020
013746
012746
004737
013701
013700
066061
012716
000421

! ELSE ENDCODE IS WRITE

BEGIN

UPD_10C (T_ADDR [WRIT_LOJ,

4408
4409
44610
44611

4412
4413
44614
4415
4416
4617
4418

END

! INCREMENT NO. OF WRITES

1);

T_ABDR [BW_LOJ = .T_ABDR £BW_L0] + .RP_ADDR [BCNT_LO); ! UPDATE BYTE COUNT

! CHECK FOR FIELD OVERFLOW

OVF_CHK (T_ADDR [BW_LOJ):
END;

' IF UNIT IS STILL UNDER TEST

IF .CPT [.LSLUN]

THEN

! THEN

! CHECK MBYTES XFR'D AGAINST LIMIT

XFR_CHK ();

! ROUTINE MD_TALLY

END;
.SBTTL

MD.TALLY ML_TI-DRIVE SUBTEST ROUTINES

MOV

R1,-(SP)

4378
4396

MOV
MOV
JSR
MoV
MOV
ADD
ggv

T.ADDR,=(SP)
#1,-(SP)
PC,UPD.10C
T.ADDR,R1
RP.ADDR,RO
20(R0O) ,14(R1)
514.(59)

4400

;

44601

;

4402

MD.TALLY:

010146

000054

VAX=11 Bliss=16 V3=555

0000006
000014 000241
0000006
000001
0000006
0000006
0000006
000020 000014
000014

MOV
gz?e

RP.ADDR,RO
}:(RO).#241

013746
062716
012746
004737
013701
013700
066061
012716

1%:

0000006
000004
000001
0000006

0000006
0000006

000020
000022

0000006
0000006
0000006
000001
0000006

000207

MOV
ADD
MOV

JSR

000022
2s:

MOV
MOV
ADD
MOV
ADD

T.ADDR,=(SP)

#6, (SP)
#1.-(SP)
PC.UPD. 10C
T.ADDR.R1

22(R1)
20(,R0)

JSR

BIT8

#1,CPT(RO)

BEQ
JSR
CMP
MOV
RTS

4408

4409

RP.ADDR, RO

#22,(SP)
R1, (SP)
PC.OVF
. CHK

MoV

3s:

SEQ 0300
Pa ?e 117

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (41

LSLUN,RO
W
L

CZRCD3
v01.0
000056
000062
000066
000072
000076
000102
000106
000114

VAX=-11 Bliss=16 v3=-555

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

PC,XFR.CHK
(SP)+,(SP)+
(SP)+,R1
PC

)
Base:
SCODES + 12556
Routine
54 words, )
: Routine Size:
4 words
: Maximum stack depth per invocation:

4410
4414

4416
439

4378

E
CZRCD3

ARR
A N RAI A
AR

11=Jul=1983 0 B:44: 52

CZRCDAO RC25 DISK EXERCISER

8=Jul=-1983 1 7:43: S?

MULTI-DRIVE SUBTEST ROUTINES

SEQ 0301
Page 1 18
V3=555
VAX=-11 Bliss=16
(42
D3.SRC;3
DICZRC
_DUA2:[DOUCETTE.CZRC

ROUTINE HOST_WRT_CHK : NOVALUE =
'+

THIS ROUTINE 1S CALLED FROM 10_RETPKT FOR ALL 1/0 _TRANSFER RETURN
PACKETS WITH *‘SUCCESS'* STATUS CODES, BUT ONLY IF THE HOST WRITE-COMPARE

OPTION WAS SELECTED BY THE OPERATOR.

IF THE CURRENT RETPKT BEING PROCESSED IS A WRITE FUNCTION, THEN THE
PACKET INDEX (RP_INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE
AREA (RP_SAVE). DTHERWISE, THE PACKET IS A READ, SO ITS ASSOCIATED
WRITE PATKET 1S REMOVED FROM THE SAVE AREA, AND A WORD=-FOR=-WORD
COMPARISON IS PERFORMED ON THE TWO I1/0 BUFFERS. ANY DIFFERENCES
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR.
IMPLICIT INPUTS:

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET
RP_INDX =~ INDEX OF THE CURRENT RETURN PACKET
RPS_X1, RPS_X2 = STARTING / ENDING INDECES OF THE CURRENT

CONTROLLER'S RETPKT SAVE AREA (RP_SAVE)

BEG! N
LOCAL
BUFFW,

! ADDR OF 1/0 BUFFER DESCRIPTOR

IF _.RP_ADDR L[ENDCODJ] EQLU (OP_WRT + OP_END)

E IF WRITE OPERATION

INDEX > SIGNED WORD:

THEN

BEGIN

! LOOK FOR SPARE ENTRY IN
CONTROLLER'S RP_SAVE
!

INCR INDEX FROM .RPS_X1 TO .RPS_X2 DO
BEGIN

! IF SPARE SLOT FOUND
! THEN

IF .RP_SAVE L.INDEX] LSS 0
THEN
BEGIN

! SAVE INDEX OF WRITE RETPKT
! DONE

RP_SAVE [.INDEX] = .RP_INDX;
EXTTLOOP;
END;
END;

! DON'T CALL SWEEP FROM 10_RETPKT

SWEEP_FLAG = FALSE;

A TR TRTR PRPR TR R PR YRTR TR 7 [P TR TR R

XX TE

AT I R

RN PRTR TR

FRIA TN TR PR TRTR TR X T TEXYXIRAIAI TN T

v01.0

ELSE

END
BEGIN

IF (INDEX = RPS_REM ()) GEQ 0
THEN

BEGIN

BUFFW = RETPKT [.INDEX, BUFF_03;
IF CMP_DATA (.BUFFW) EQLU FATLURE

! ELSE ENDCODE IS READ

! IF ASSOCIATED WRITE PACKET IS FOUND
! THEN

! ADDR OF ADDR OF WRITE 1/0 BUFFER
! COMPARE DATA IN BOTH BUFFERS. IF FAILURE

I VN 1
R
TN PN FE
[YRIETYREIELE LR

08 44: 5 2

11=Jul=-198 3
8-Jul=-1983 17 :43: 5 4

CZRCDAD RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
6476
6477
4478
4479
4480
4481
4482
4483
4484
4485
4486
4487
4488
4489
4490
4491

004137

013700

126027

001022
013700
005300
000407
105760

THEN
BEGIN

! "'1/0 REQUEST FAILED'’
! INCR HARD ERROR STATISTIC

END;

PUT_RETPKT (. INDEX) ;

! RETURN WRITE 1/0 BUFFER TO POOL
! PUT BACK WRITE RETPKT

END;

! IF ASSOCIATED WRITE RETPKT WAS FOUND
'

0000006

.SBTTL

HOST.WRT.CHK MULTI-DRIVE SUBTEST ROUTINES

JSR

R1,$SAVE2
RP.ADDR,RO
14(RO) ,#242
48
RPS.X1,RO
RO
2%
R:.SAVE(RO)
2

HOST.WRT.CHK:

000000G
000014 000242

MOV

0000006

MOV

0000006

CMPB
BNE

1%:

2$:

000630°

3%:

000000V

(8:

DEC
BR

1ST8

BGE
Mov8e
BR
INC
CMP
BLE
CLRB
RTS
JSR
MOV
MoV
MOV

000060
0000006
0000246

JSR

ADD
MOV
MoV
JSR
TST

010001
010116
004737 000000V
005700
001010
104456
000052
0000006
000000G
012716 000001

C00000G

IF ENDCODE WAS READ

! ROUTINE HOST_WRT_CHK

BLT

000154

IF COMPARE ERROR

PUT_I10_BUFF (.BUFFW);

END;

0000006

THEN

ERRHRD (42, EGH_30, EMS_42);

0000006 0000006

004737
010116
004737
010216

SEQ 0302
Pa?e
V3=-555
6
VAX=11 Bliss=1
(42
C;3
JCZRCD3.SR
CZRCD
_DUA2:[DOUCETTE.

HARD_ERR (1;

END;

0000006

BNE

TRAP

.WORD
.WORD
. WORD

MOV

5$:

JSR

MOV

JSR

MOV

4419

4446

+, INDEX
INDEX

4450

« (INDEX)

4453

g:.INDX.RP.SAVE(RO)

v, «(INDEX)

INDEX
*
INDEX,

4457
4455
4450

RO,RPS.X2

1%
gUEEP.FLAG
C
PC,RPS.REM
Rg.RZ
6
R2,-(SP)

#60.-(sP)

~, INDEX

4464
4446
4470

INDEX,*

4474

« ,BUFFY
BUFFW,*

4475

PC,BLSMUL

#RETPKT+24 RO
RO,R1
R1.(SP)

PC,CMP.DATA

5
56
52
EGH.30
EMS.42

#1,(SP)
PC,HARD.ERR
R1,(SP)

PC,PUT.10.BUFF
R2,(SP)

4479

4480

BUFFW,*

4684

INDEX,*

4485

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

000156
000162
000164

SEQ 0303
?e 120
VAX=11 Bliss=16 Vv3-555
_DUA2:[DOUCETTE.CZRCDICZRCD 3.SRC;3 (42

004737
022626
000207

0000006
6$:

JSR
cmP
RTS

PC,PUT.RETPKT
;EP)O,(SP)*

Routine Base:
SCODES + 12732
59 words,
7
words
on:
invocati
per
depth
stack
; Maximum
; Routine Size:

4472
4419

ROUTINE CMP_DATA (BUFFW) =

11=Jul=1983 08:44:52

8-Jul-1983 17:43:57

VAX=11 Bliss=16 v3-555

N N
N
I
RPN PR
AL
R
TN
LI

i
i
i
i

THIS ROUTINE IS CALLED BY HOST_WRT CHK TO PERFORM THE ACTUAL WORD-BYWORD COMPARISON BETWEEN THE READ BOFFER DESCRIBED IN THE CURRENT RETURN
PACKET AND ITS ASSOCIATED WRITE BUFFER. A VALUE OF '‘SUCCESS'' IS
RETURNED IF THE TWO BUFFERS ARE IDENTICAL. OTHERWISE, '‘FAILURE'' IS

INPUTS:

IMPLICIT INPUTS:

RE TURNED.

;

BUFFW - ADDRESS OF THE WRITE BUFFER DESCRIPTOR

RP_ADDR = ADDRESS OF THE CURRENT RETURN PACKET (READ OPERATION)

BEGIN
LOCAL

COUNT : WORD:

RESULT = SUCCESS;

wB8DO =z ..BUFFW;
wBD1 = . (.BUFFW ¢+ 2);
RBDO = .RP_ADDR [BUFF_0J;
RBD1 = .RP_ADDR [BUFF_1]:
IF .MEM_MGRT
THEN

BEGIN

! SUCCESS 7/ FAILURE

i
i
i
i
i

WRITE BUFFER DESCRIPTOR (WORD 0)
WRITE BUFFER DESCRIPTOR (WORD 1)
READ BUFFER DESCRIPTOR (WORD 0)
READ BUFFER DESCRIPTOR (WORD 1)
4K PAGE DISPLACEMENT ADDR

i PAGE ADDRESS FIELD

i BUFFER WORD COUNT
]

ASSUME BLUE SKY

!
!
!
!

WRITE BUFFER DESCRIPTOR (WORL 1)
READ BUFFER DESCRIPTOR (WORD Q)
READ BUFFER DESCRIPTOR (WORD 1)
IF SYSTEM HAS MEMORY MANAGEMENT

; WRITE BUFFER DESCRIPTOR (WORD Q)

! THEN

DISP = .wBDO AND X0°17777°;

! WRITE BUFFER DISPLACEMENT

w8DO = 20'100000° OR .DISP;

! WRITE BUFFER VIRTUAL ADDRESS

PAF = (.wBDO * -6) AND 20'1600°;
KTPAR4G = (.wWBD1 * 10) OR .PAF;

! PAGE ADDRESS FIELD
! LOAD PAR&

DISP = .RBDO AND X0°'17777°;

! READ BUFFER DISPLACEMENT

KTPARS = (.RBD1 “ 10) OR .PAF;
RBDO = %0'120000°* OR .DISP;

! LOAD PARS
! READ BUFFER VIRTUAL ADDRESS

PAF = (.RBDO * -6) AND %0'1600°;

R
I
I E N
IR

WORD,
WORD.
WORD,
WORD.
WORD.

PAF : WORD,

! PAGE ADDRESS FIELD

END;

IF (COUNT = .RP_ADDR [BCNT_LO] 7 2) NEQU 0
THEN

:
:
:
:
:

WwBDO
WwBD1
RBDO
RBD1
DISP

TR A

TR IR ITE A

AR TR PR PR N

FE PR PR LR T

TN NN TN

RESULT : WORD,

BEGIN

INCR | FROM 1 TO .COUNT DO
BEGIN

If ..WwBDO EOLU ..RBDO

! IF WORD COUNT IS NON-ZERO

! THEN

! FOR EACH WORD IN BUFFERS
! IF WORDS COMPARE 0.K.

SEQ 0324

a ?e

_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (43

MULTI-DRIVE SUBTEST ROUTINES

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

121

152
57

CZRCDAD R(C25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

Pa?e 1 22
VAX=11 Bliss=16 V3=555
(43
3
_DUA2:[DOUCETTE.CZR(D] CZRCD3.SRC.;

N P TR TN XN I

THEN
BEGIN

ADVANCE WRITE BUFFER ADDRESS
ADVANCE READ BUFFER ADDRESS
%ZEaYSTE" HAS MEMORY MANAGEMENT

wBDO = .Ww8D0 + 2;
RBDO = .RBDO + 2:
1F .MEM_MGMT

[ YETREYERLE XN FI TN

THEN

IF (.WBDO AND X0°'17777°) EQLU 0

THEN

BEGIN

wBD0 = X0°100000°;
KTPAR4 = .KTPARG + %0°200°;

IF WRITE BUFFER CROSSES 4K PAGE BOUNDARY

THEN

RESET VIRTUAL ADDRESS

ADVANCE PAR TO NEXT 4K PAGE

END;

IF (.RBDO AND X0°17777') EQLU 0 : %zEzEAD BUFFER CROSSES 4K PAGE BOUNDARY

THEN

BEGIN

RBDO = %0°120000°;
KTPARS = .KTPARS + %0'200';

RESET VIRTUAL ADDRESS
ADVANCE PAR TO NEXT 4K PAGE

END;

END - IF MEMORY MANAGEMENT

END;
SE

END

OTHERWISE - COMPARE ERROR

BEGIN

FAILED

RESULT = FAILURE;
EXITLOOP;

NO NEED TO CONTINUE

END;

WORD COMPARE LOOP

TN PO TN T R

END;

IF WORD COUNT IS NON-ZERO

END;

THEN

BEGIN

TETR

IF SYSTEM HAS MEMORY MANAGEMENT

.MEM_MGMT

YR IR ERIE

AT EIE

K TPAR4
KTPARS

RESTORL PAR'S

20°'1000°;
20'1200°;

END;

RETURN .RESULT;

4602

ROUTINE CMP_DATA

END;

.SBTTL

SEQ 0305

(MP .DATA MULTI-DRIVE SUBTEST ROUTINES

?e 123
VAX-11 Bliss=16 V3=555
(43
RC;3
ZRCD3.S
_DUA2:[DOUCETTE. CZRCDIC

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0
000000

004137

0000006

000004
000010

012746
017646
016600
016004

000001
000020
000022
000002
0000006
000024
000026

CMP.DATA:
JSR

MOV
MOV
MoV
MOV

0000006
000001

R1,$SAVES
#1.=(SP)

a20(sP),=(sP)
22(SP).RO

H ',UBD1

4492
4520
4521
4522

4523

: +,RBD1
H

4524
4525

4(SP) ,R2

; Ww8D0,DISP

4529

4(SP) ,-(SP)
#-6,=-(SP)
PC.BLSSHF

: WBDO,*

4530

#160000,R2
RO R3

#196177.R3

176177

: BUFFW,*

2(R0) ,R4
RP.ADDR,R1
24(R1),<(SP)
26(R1) .RS
-(SP)
MEM.MGMT, (SP)
#1,(SP)
1s’

000004
160000
000004
177772
0000006

:
s «,RESULT
H BUFFU w8D0

R4 RO

; +,RBDO

; «,DISP

:
:

*,PAF
*,PAF

; WBD1,e

4531

: PAF,+

172350
000010
100000

Ré,30172350
R2.10(S

: DISP,WBD0

4532

6(SP) ,R2
#160000,R2
6(SP), (SP)

: RBDO DISP

4534

H RBDO.'

4535

#100000.10(SP)

000010

#-6,~(SP)

PC BL‘SHF

0000006

0176177 R3

176177

RS.RO

: HBDO

M DISP

:
:

«,PAF
o, PAF

; RBD1,*

4536

: PAF ,»

016146

000262

012746
004737
022626
005700
001452
005001
000445
027676

172352
000010
120000
000006

RO,

a4ac172352

000010

1$:

000020

000002
0000006

: DISP,RBDO

4537

zo<n1>.-(sp)

H
:

4527
4541

PC.BLSDIV
(SP)+,(SP)+
RO

s COUNTY

4545

; WBDO,RBDO

4548

c1éoooo 10(59)
#2,-(SP)

000004

000002

2%:

5%
84 (SP) ,a82(SP)

: +,RBDO

Pa?e 124
VAX=-11 Bliss=16 V3-555
(43
SRC;3
_DUA2:[DOUCETTE.CZR(D] CZRCD3.

CZRCDAOQ RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

000270
000272

SEQ 0307

001036
062766
062766
032716
001430
032766
001006
012766
062737
032766
001012
012766
062737
000403
005066
000403
005201
020100
003730
032716
001406
012737
012737
016600
062706
000207

000002
000002
000001

000004
000002

017777

000004

100000

000004

000200
017777

120000

000200

172350

000002

48
#2,4(SP)
#2,2(SP)
#1,(SP)

5%
l;7777,4(SP)
3
#-100000,4 (SP)

#200,a#172350
#17777,2(SP)

3s:

000002

000006

5%:

000001
001000

001200

963006
000010

4558

; *,WBD0

4562
4563
4567

: *,RBDO

6(SP)
6$

RESULT

R1,RO

1.COUNT

7$
#1000,a#172350
#1200,3#172352

6(SP) ,RO

7$:
RTS

#10,SP

)
$CODES + 13120
Routine
Base:
; Routine Size: 143 words,.
14
words
on:
; Maximum stack depth per invocati

4571
4572
4548
4582
4580
4545

459N

#1,(SP)

172350
172352

; *,WBD0

*,RBDO

6$:

4552
4553
4554

#-60000,2(SP)

g%00,30172352

172352

: *,w8D0
*,RBD0

*
RESULT,

4595
4596
4508
4492

11=-Jul- 1983

CZRCDAQ RC2S DISK EXERCISER

CZRCD3
v01.0

8-Jul-1983

MULTI-DRIVE SUBTEST ROUTINES

: ;

VAX=11 Bliss=16 V3=555

SEQ 0308

P a ?e 125

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (44

ROUTINE SWEEP : NOVALUE =

THIS ROUTINE IS CALLED FROM 10_RETPKT AND OTHERS TO DEALLOCATE THE

RESOURCES ASSOCIATED WITH THE TURRENT RETURN PACKET. THIS INCLUDES THE
PACKET ITSELF AND THE I1/0 BUFFER. IN ADDITION, IF THE HOST IS
PERFORMING WRITE-COMPARES, AND IF THE CURRENT RETURN PACKET IS A READ
FUNCTION, THEN THE CURRENT CONTROLLER'S RP_SAVE AREA IS SEARCHED FOR

;?ELfggggésIED WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO BE
IMPLICIT INPUTS:
RP_ADDR = ADDRESS OF CUSRENT RETURN PACKET
RPZINDX = INDEX OF CURRENT RETURN PACKET

BEGIN

LOCAL

INDEX

: SIGNED WORD;

IF (.~P_ADDR [ENDCOD] AND OP_MSK) EQLU OP_RD

A X

THEN

! IF HOST IS DOING WRITE-COMPARES

P YR ER

If BIT_TST (SWP_FLAGS, SWF_HWC)

e
P I PR P
IR P

THENBEGI

! IF READ OPCODE OR ENDCODE

! THEN

! IF ASSOCIATED WRITE RETPKT IS FOUND

IF (INDEX = RPS_REM ()) GEQ O

! THEN

THEN

PUT_]O_BUFF (RETPKT [.INDEX, BUFF_0]);
PUT_RETPKT (.INDEX);

! RETURN WRITE 1/0 BUFFER TO POOL
! RETURN WRITE PACKET TO POOL

END;

[ P S

END;

000000
000002
000006
000012
000016
000022
000024
000032

L648

010146
013700
116000
042700

020027
001026
132737
001422

PUT_I0_BUFF (RP_ADDR [BUFF_0]);
PUT_RETPKT (.RP_INDX);

! RETURN CURRENT 1/0 BUFFER TO POOL
! RETURN CURRENT RETPKT TO POOL

END;

! ROUTINE SWEEP
SWEEP:

0000006
000014

177600

0000006

SWEEP MULTI-DRIVE SUBTEST ROUTINES

R1,=(SP)

BIC

#177600,R0

MOV
MOVB

CMP

000041

000100

.SBTTL

MOV

BNE

BITB
BEQ

RP.ADDR,RO
14(R0),RO

4603
4624

RO,#41
18

#100,SWP.FLAGS 1$

4628

?e
VAX=11 Bliss=16 v3=555
(44
.SRC;3
ICZRCD3
_DUA2:[DOUCETTE.CZRCD

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

000034
000040
000042
000044
000046
000052
000056
000062
000064
000070
000072
000076
000100
000104
000110
000114
000120
000124
000126
000130

SEQ 0309

004737
010001
002416
010146
012746
004737
062700
010016
004737
010116
004737
022626
013746
062716
004737
013716
004737
005726
012601
000207

JSR

000000V

MoV

BLT

MoV
MOV

000060
0000006
0000246

JSR

ADD
MOV

JSR

0000006

MOV

0000006

0000006
000024

0000006
0000006
0000006

18:

JSR
CMP

MOV
ADD

JSR

MOV

JSR
TST

Mov
RTS

RO R1

: *,INDEX

4632

1 -(SP)

: INDEX,*

4636

: INDEX,«

4637

:
:

4634
4645

4646

H
H

4619
4603

PC,RPS.REM

#66 -(SP)

PC,BLSMUL

#RETPKT+24,R0

RO, (SP)
PC.PUT.10.BUFF
R1.(SP)

PC,PUT.RETPKT
(SP)+,(SP)+
RP.ADDR,=(SP)
#24,(SP)
PC,PUT.10.8UFF
RP.INDX, (SP)
PC,PUT.RETPKT
+
(SP)
(SP)+,R1
PC

.
Base:
$CODES + 13556
Routine
45 words, .
; Routine Size:
4
words
invocation:
per
depth
: Maximum stack

CZRCD3
v01.0

CZRCDAD RC25 DISK EXERCiSER
MULTI-DRIVE SUBTEST ROUTINES

4669

BEGIN

4671
4672
4673

LOCAL
INDEX : SIGNED WORD,
TEMP : SIGNED WORD:

4675

INDEX=

000000
000004
000010

‘e

4652

THIS ROUTINE SEARCHES THE CURRENT CONTROLLER'S RP_SAVE AREA FOR A

RETURN PACKET WHOSE COMMAND REFERENCE NUMBER (CRNY IS ONE LESS THAN THE
CRN OF THE CURRENT RETURN PACKET (].E., SEARCHING FOR THE SAVED WRITE
OPERATION ASSOCIATED WITH THE CURRENT READ OPERATION). IF FOUND, THE
RP_SAVE ENTRY IS CLEARED (TO =1) AND THE RETPKT INDEX OF THE WRITE

&H ~

oo
o AV,
o <]

OPERATION IS RETURNED TO THE CALLER.
IMPLICIT INPUTS:

RP_ADDR = ADDRESS OF

THE CURRENT RETURN PACKET

RFS_X1, RPS_X2 = STARTING / ENDING INDECES OF THE CURRENT
CONTROLLER'S RP_SAVE AREA

ouTeUTS:

4676
4677

4679
4680

4684

4687
4688

INDEX OF

GEQ O

LESS

THE RETPKT CONTAINING

THAN THE

CURRENT

' ASSUME NOT FOUND

' FOR EACH ENTRY IN RP_SAVE
!
!

IF THIS IS A VALID PETPKT INDEX
THEN

CRF_LO] EQLU (.RP_ADDR [CRF_LO] = 1)

BEGIN
INDEX = .TEMP;
RP_SAVE [.COUNT] = -1;

IF CORRECT CRN

INDEX TO BE RETURNED
INIT ENTRY

! THEN

ExTTLOOP;

o
O
o

4689

4691

DONE

END;

4692

2282

004137
012704
013702

THIS ROUTINE) -

A CRN WHICH IS ONE

[.COUNT])

.RETPKT [.TEMP,

THEN

4685

469C

(VALUE OF

IF (TEMP
= _RP_SAVE
THEN

4683

4695
4696
4697
4698

INDEX

INCP cou~r FROM .RPS_X1 TG .@PS_X2 DO
BEGIN

P S

®e Rs 800, %800, 000,008, %

80,0, %

00,0

;
:

{631

SEQ 0310
VAX=11 Bliss=16 Vv3-555
?e
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (45

ROUTINE RPS_REM =

Cs ®s B0 B0 00 B 0. e V050000000805 080000009s00%08) 0,09,

4649

11-Jul=1983 08 44:52
8-Jul-1983 17:43:57

END;
END;

IF VALID RETPKT INDEX

RP_SAVE FNTRY LOOP

ROUTINE RPS_REM

RETURN .INDEX;

END;

0000006
177777
0000006

.SBTTL

RPS.REM:JSR
MoV
Mov

RPS.REM MULTI-DRIVE SUBTEST ROUTINES

R1,$SAVES
#-1,R4
RPS.X1,R2

:
; *,INDEX
s *,COUNT

4649
4675
4676

000014

000016

060402

000426

000020 116203 0000006
000024 002423
000026 010346
000030 012746 000060
000034
000040
000042
000046
000052
000056
000060

004737
022626
013701
016101
005301
026001
001005

1$:

0000006
0000006
000004

0000046

000064 112762 000377 0000006
000072 000404
000074 005202
000076

020237

003746

000104 010400
000106 000207

0000006

ADD

R4 ,R2

; *,COUNT

MOVB
BLT
MOV
MOV

RP.SAVE(R2),R3
28
R3,=(SP)
#60,-(SP)

; «(COUNT),TEMP

4679

: TEMP,+

4683

MOV

R3,R4

: TEMP, INDEX

4687

: COUNT

4676

JSR
CMP
MOV
MOV
DEC
CMP
BNE

000062 010304

000102

11=Jul=1983 08:44:52
8-Jul-1983 17:43:57

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

28:
3$:

SEQ 0311

Pa?e 128
VAX=-11 Bliss=16 V3-555
(45
_DUA2:L[DOUCETTE.CZRCDICZRCD3.SRC;3

PC,BLSMUL
(SP)+,(SP)+
RP.ADDR,R1
4(R1) ,R1
R1
4
(RO) ,R1
RETPKT+
1

MOVB
B8R

#377.RP.SAVE(R2)
33

CMP

R2,RPS.X2

INC

BLE

MOV
RTS

R4 ,RO
PC

: Routine Size: 36 words,
Routine Base: $CODES + 13710
: Maximum stack depth per invocation: 8 words

: «,«(COUNT)
p
: COUNT,»

; INDEX,*
:

4688
4,685

4669
4649

R LN XN TN X e We B g
I NN NN
R Z RR
R
AT YE Y
ETE
IR
K R K (TR YR
FEL A
S
DI T
PN L
I I TS I N
PR P
T A
T
P E I ETETEIETETETE
T

4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710
7N
4712
4713
4714
4715
4716
717
4718
4719
4720
4721
4722
4723
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748
4749
4750
4751
4752
4753
4754
4755
4756

~N0

\Nwn

8
N~

~NGo

8-Jul-

SEQ 0312
Pa?e 1 29
VAX=-11 Bliss=16 V3-555
_DUA2: [DOUCETTE.CZRCD] CZRCD3.SRC;3 (46

ROUTINE DR_RETPKT : NOVALUE =
+

CZRCD3

v01.0

11=Jul-

CZRCDAO RC25 DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

bod

THIS ROUTINE IS CALLED BY PROC_RETPKT FOR ALL PACKETS ORIGINATING AT
THE 'DRIVER'® PORTION OF THE PROGRAM. THIS INCLUDES PACKETS DESCRIBING
FATAL DEVICE ERRORS AND INDIVIDUAL COMMAND TIMEOUTS.
FOR FATAL DEVICE ERRORS, THIS ROUTINE RELEASES ALL RESOURCES HELD BY
THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL
UNITS ATTACHED TO THE CONTROLLER ARE DROPPED. JF THE RETURN PACKET
CcSCRIBES A COMMAND TIMEOUT, THEN A HARD ERROR 1S-DECLARED FOR THE
APPROPRIATE UNIT.

IMPLICIT INPUTS:

RP_INDX = INDEX OF THE CURRENTY RETURN PACKET
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET

RPS_X1 = STARTING / ENDING INDECES OF THE CURRENT CONTROLLER'S
RETPKT SAVE (RP_SAVE) AREA

CST_ADDR ~ ADDRESS OF THE CURRENT CONTROLLER'S (ST
CCTER = CURRENT CONTROLLER NUMBER

BEGIN
LOCAL

INDEX : SIGNED WORD;

IF .RP_ADDR [MESTYP] EQLU MT_FATAL
THENBEGIN

PUTA_RUFF ();

INCRTMCOUNT FROM .RPS_X1 TO .RPS_X2 DO
BEGIN

IF (INDEX = .RP_SAVE [.COUNT]) GEQ O

PUT RETPKT (.INDEX):

RP_SAVE [.COUNT] = =1;

! IF FATAL CONTROLLER ERROR
! THEN

! RELEASE ALL 1/0 BUFFERS HELD BY CONTROLLER
i FOR EACH ENTRY IN CONTROLLER'S RP_SAVE

E IF VALID RETPKT INDEX
THEN

! RETURN RETPKT TO POOL
! INIT ENTRY

END;

END;
10 [.CCTLR] = 0;

CST_ADDR [STATE] = OFFLINE;
DROP_CTLR (.CCTLR, DU_FATAL);
PUT_RETPKT (.RP_INDX);

ELSE

END

BEGIN

FSET_UPAR_();

ERRHRD (43, EGH_30, EMS_43);

! RP_SAVE ENTRY LOOP
!
!
!
!

CLEAR NO. OF QUTSTANDING QIOS

MARK CST OFFLINE

DROP CONTROLLER'S UNITS

PUT BACK RETPKT

5 ELSE - COMMAND TIMEOUT
!

ET UP UNIT-RELATED PARAMETERS

i “I/0 REQUEST FAILED"

;
:

4757
4758

HARD ERR (1);
SWEEP ();

;
;

4761
4762

END;

i DECREMENT NO. OF OUTSTANDING QIOS
! ROUTINE DR_RETPKT

4763 END:

;

000000

004137

0000006

_SBTTL
OR.RETPKT:

DR.RETPKT MULTI-DRIVE SUBTEST ROUTINES

;

4727

PC.PUTA.BUFF
RPS.X2,R3

:
:

4731
4732

: *(COUNT), INDEX
; INDEX,*
: =, «(COUNT)
:
: COUNT

4735
4739
4740
4737
4732

:
:

4746
4747

R:,=-(SP)

4748

RP. INDX. (SP)
PC.PUT.RETPKT
(SP)+
43
PC,FSET.UPAR
56

:
:
:
:
:

4749
4729
4727
4755
4756

#1,-(5P)
PC.HARD.ERR
PC . SWEEP
CCTLR,F)
QI0(RO)
(SP)+
PC

:
:
:
:
:

4757
4758
4759
4722
4700

R1,$SAVE3

000014 042700 177417

B8IC

#177617.R0

000026 004737 0000006
000032 013703 0000006

JSR
MOV

MOVB
BLT
MOV
JSR
MOVB
ST
INC

RP.SAVE(R1),R2
28
R2,-(SP)
PC PUT.RETPKT
#3%7.RP.SAVE(R1)
(SP)+
R1

BLE

MOV
MOVB

007004 013700 0000006
000010 116000 000002
020027
001051

000060

000036 013701
000042 005301

0000006

000044

000046
000052
000054
000056
000062
000070
000072
000074

000076

000412

116102 0000006
002407
010246
004737 0000006
112761 000377 0000006
005726
005201
020103

CMP
BNE

MOV
DEC

1$:

28:

003763

MOV
CLRB
MOV

0001060 013701 0000006
000104 105061 0000006
000110 013700 0000006

000114 042760 100000 000002

000122 010146
000124
000130

000134
000140
000144
000146
000150
000154

000156
000160
000162

000164
000170
000174
000200
000204
000210
000212

012746
004737

000053
0000006
0000006

032746
004737
004737
013700
105360
005726
000207

000001
0000006
013556°
0000006
0000006

3s:

RO, #60
3s

RPS.X1.R1
R1

R1.R3

CCTLR,R1
QIO(R1)
CST.ADDR,RO

#100000, 2(RO)

MOV
JSR

#4.=(SP)
PC.DROP.CTLR

MOV
JSR
TSt
BR
JSR
TRAP

.WORD
.WORD
"WORD

43:

RP.ADDR, RO
2(R0O),RO

BIC

MOV

000004
0000006

013716 0000006
004737 0000006
005726
000420
004737 012474°
104456

CMP

MOV
JSR
JSR
MOV
DECB
ST
RTS

4700

;

JSR

000020
000024

SEQ 0313

Pa?e 130
VAX=11 Bliss=16 V3=-555
(46
D3.SRC;3
ZRCDICZRC
OUCETTE.C
_DUA2:L[D

! INCREMENT HARD ERROR STAT FOR UNIT
i RETURN RESOURCES

QI0 C.CCTLR] = .0I0 [.CCTLR) = 1;

2;28

;

11=-Jul=1983 08:44:52
8-Jul-1983 17:43:57

CZRCDAO RC2S DISK EXERCISER
MULTI-DRIVE SUBTEST ROUTINES

CZRCD3
v01.0

53
EGH.30
EMS.43

Routine Base: $CODES ¢+ 14020
: Routine Size: 70 words,
: Maximum stack depth per invocation: 7 words

%, COUNT
+ COUNT

: COUNT,*

E
CZRCDAQ RC25

CZRCD3
v01.0

MULTI-DR IVE

IRR

E R TR IRA

PPR TR PRLR

ERNN TN X [ IR TEIEIEEITETEIE

TS PR NI

N PR
NN YN NN P YN ¥

4775
4776
4777
4778
4779
4780
4781
4782
4783
4784
4785
4786
4787
4788
4789
4790
4791

4792

4793
4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804

4805

4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820

SUBTEST ROUTINES

11-Jul=1983 08:44:52

8-Jul-1983 17:43:57

VAX=-11 Bliss=16 V3-555

ROUTINE DRV_TIMCHK : NOVALUE =

THIS ROUTINE 1S CALLED ONCE PER SECOND FROM EITHER THE MULTI-DRIVE

SUSTEST EXECUTIVE (MULT] DRIVE) OR THE DM EXERCISER SUBTEST EXECUTIVE
(OM_EXER). ITS PURPOSE IS TO DECREMENT THE TIMING COUNTS FOR ALL
OUTSTANDING COMMANDS, AND TO PROCESS ANY THAT REACH ZERO.
A COMMAND TIMER THAT REACHES ZERO CAN MEAN ONE OF TWO THINGS. IF THE
OWNERSHIP BIT OF THE ENVELOPE DESCRIPTOR OF THE TIMED OUT COMMAND
INDICATES THAT THE SLOT IS STILL CONTROLLER-OWNED, THEM THE CONTROLLER
IS ASSUMED DEAD. A DEVICE-FATAL ERROR IS DECLARED AND ALL CONTROLLERRELATED DATA IN THE 'DRIVER'® ARE INITIALIZED. IF THE AFOREMENTIONED
OWNERSHIP BIT INDICATES THAT THE SLOT HAS BEEN RETURNED TO THE HOST, OR
IF THE ENVELOPE DESCRIPTOR SLOT FOR THE TIMED OUT COMMAND CANNOT BE
FOUND (I.E., OVERWRITTEN WITH ANOTHER DESCRIPTGR), THEN ONLY THE
COMMAND IS ASSUMED LOST.

IN EITHER CASE, A RETURN PACKET IS SET UP WHICH DESCRIBES THE
CONDITION, AND ‘'SENT'' TO THE '‘EXERCISER''.
BEGIN
LOCAL

M_INDEX : SIGNED WORD,
M_ADDR,
CR_ADDR,
TYPE : WORD;

INCR CNTLR FROM 0 TO (MAX_CTLR = 1) DO
BEGIN

SET_CPAR (.CNTLR);
IF .CST_ADDR [SIATE] FQLU ONLINE
THEN

BEGIN

égg?NCOUNT FROM .0CL_X1 TO .OCL_X2 DO

!
!
!
!

MSCP ENVELOPE INDEX
MSCP ENVELOPE ADDRESS
COMMAND RING (C-RING) ADDRESS
TYPE OF ERROR

! FOR EACH CONTROLLER
! SET UP CONTROLLER-RELATED DATA
! IF CONTROLLER IS ONLINE

! THEN

! FOR EACH OUTSTANDING COMMAND ENTRY

IF (M_INDEX = ,OUTC_LIST [.COUNT]) GEQ@ O
THEN

BEGIN

! IF ENTRY HOLDS VALID MSCP INDEX
! THEN

OUTC_TIMR [.COUNT] = .OUTC_TIMR [.COUNT] - 1;
IfF .OUTC_TIMR [.COUNT] EQLD O
THEN

BEGIN

! DECREMENT COMMAND TIMER
!

BEGIN

IF_COMMAND TIMED OUT

! THEN

OUTC_LIST [.COUNT] = ~1;
M_ADDR = MSCP_ENV + (.M_INDEX * ENV_LEN * 2);
CR_ADDR = .DCY_ADDR [CR_BEG];
TYPE = MT_TIMEOUT,
INCR SLOTTFROM 1 TO CRING_LEN DO

SEQ 0314

Pa ?e 13

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (47

4764
4765
4766
6767
4768
4769
4770
Y44
4772
4773
L774

DISK EXERCISER

KILL OUTC ENTRY
CALCULATE MSCP ENV ADDRESS
GET START OF C-RING
ASSUME COMMAND TIMED OUT
FOR EACH CRING SLOT

F
MULTI-DRIVE SUBTEST ROUTINES

vC1.0

! THEN

THEN

BEGIN

! ADVANCE TO HI-ORDER WORD
' JF SLOT IS STILL CTLR~OWNED

¢++ 2;
CR_ADDR = .CR_ADDR
IF BIT 1ST(.TR _ADDR, ED OWN)

! THEN

THE~BEGIN

WRT _RC25 (RCIP, RC_ALL, ALL_ONES):

ERRDF (20, EBD_20, EM3_20);
DRV _CTLERR (.CRTLR);
TYPE = MT_FATAL;

END;

' IF SLOT STILL CTLR-OWNED

T
R
TR R

EXITLOOP;

! EXIT C-RING SLOT SEARCH LOOP

END;

! IF COMMAND SLOT IS FOUND

! ADVANCE TO NEXT C=-RING SLOT

I T TN T X

CR_ADDR = .CR_ADDR + &;
END;

! C-RING SLOT SEARCH LOOP

( RP_INDX
= GET_RETPKT (.CNTLR)) GEQ 0

; %zezsrpxr IS AVAILABLE

BEGIN

)

R FI

THEN

= RETPKT + (.RP_INDX * RP_LEN * 2);
RP_ADDR

1 1F COMMAND TIMEOUT

TETYETETYEYE

IF~.TYPE EQLU MT_ TIMEOUT
THEN

! THEN

BEGIN

N0, s, Yo n, (TR

COPY BLK (.M_ADDR + 4, .RP_ADDR, RP_LEN);
PUT_ENV (.M_INDEX);
RP_ADDR [CTLR] = .CNTLR;

W
BV
®e WLV

END;

TN e

END;

! LOAD CTLR # INTO RETPKT

RPZADDR [MESTYP] = .TYPE;
RPZADDR [CONIDY - CID_DRIVED;

' LOAD TYPE
i LOAD PACKET ORIGINATOR

END;

! IF RETPKT IS AVAILABLE

! PASS RETPKT TO EXERCISER VIA ]0DQ

IF COMMAND TIMER REACHED Z2ERO

! IF OJTC ENTRY HOLDS A COMMAND ENVELOPE INDEX
! OUTSTANDING COMMAND ENTRY LOOP

END;

! COPY COMMAND TO RETPKT
! RETURN COMMAND ENVELOPE TO POOL

" IF TYPE = COMMAND TIMEOUT

END;

INJI0DQ (.RP_INDX);

END;

YR TOE
WL T
LI

WRITE IP TO STOP DEVICE
1ST UNIT # IN CTLR
*'CONTROLLER TIMEOUT"'
CLEAN UP CTLR DATA IN DRIVER
CHANGE TYPE TO FATAL ERROR

!
!
!
!
!

P TUNIT);

LSLON = .CST ADDR [OF_UN,

SEQ 0315

?e 132
VAX=-11 Bliss=16 V3=555
_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (47

' IF THIS SLOT HOLDS TIMED OUT COMMAND

IF ..CR_ADDR EQLA (.M_ADDR ¢ 8)

4821
4822

A A S PR YR PR LR IR TN T ¥

11=Jul=1983 08 44:52
8=Jul=1983 17:463:57

CZRCDAQ RC25 DISK EXERCISER

CZRCD3

4875
4876
4877

END;

T_FLAG
= FALSE;

! IF CONTROLLER IS ONLINE
! CONTROLLER LOOP

! CLEAR ENTRY FLAG

CZRCD3
v01.0

CZRCDAO RC25 DISK EXERCISER

11-Jul=1983 08:44:52

END;

! ROUTINE DRV_TIMCHK

4878
4879

004137
162706

005005
010546
004737
013700
005760
100402

000137

.SBTTL

0000006

000006

)

#6,SP

JSR

PC.SET.CPAR

JSR

1$:

0000006

MOV

0000006

000002

BM]

014744 "

0000006

28:

014730"

38:

4$:

000004

0000006
000010

000010

000004
000010

000010
000010
000002
000004

077777

100000

013700
016046
000316
042716
012637
104455

000004

4764

RS
R5,=(SP)

: CNTLR
: CNTLR,*

479
4797

¢ST.ADDR,RO

;

4798

2(R0)
23

118

MOVEB

OUTC.LIST(R2),RO

; *(COUNT),+

4805

MOV

R2,RO

: COUNT,*

4809

DEC

OUTC.TIMR(RO)

DEC
JMP

gg¥

R2
108

Rg.c(sp)
RO

#377,0UTC.LIST(R2)
4(SP), (SP)

+ COUNT

* «,M.INDEX

t «,«(COUNT)
: M.INDEX,+

MOV

#104,=(SP)

ADD
MOV

JHSCP ENV,RO
RO, 10(SP)

: *,M.ADDR

10(R0),4 (SP)

: «,CR.ADDR

4,810

4814
4815

PC.BLSMUL

;

4816

: «.TYPE
* M_ADDR,*

4817
4821

gg(sp>.a3

; *,SLOT

: CR.ADDR,+

4818

ADD
MOV

#2.,4(SP)
a4 (SP) ,RO

; «,CR.ADDR
. CR.ADDR,*

4825
4826

éfl?

ag,#-100000

MOV

MOV
MOV
58:

000004

4802

MOV

000004

R1,$SAVES

: *,COUNT

JSR

0000006

_DUA2:CDOUCETTE.CZRCDICZRCD3.SRC;3 (47

0CL.X1,R2

MOVB
MOV

0000006

?e 133

MOV

BNE

000104

0000006

JMP

ASL

0000006

000377
000004

CLR
MOV

SEQ 0316

DRV.TIMCHK MULTI-DRIVE SUBTEST ROUTINES

DRV. TIMCHK :

0000006

000254
000256

8-Jul-1983 17:43:57

MULTI~DRIVE SUBTEST ROUTINES

VAX=-11 Bliss=16 v3-555

ADD
MOV

5:?
BIC

DCT.ADDR,RO

#4 R4
10(SP) ,R3

#10,R3’
#10.R1

#77777°R0

4821

177777

MOV

#-1,R0

; *,RC.REG

4830

0000006

MOV

CST.ADDR,RO

4831

4832

: CNTLR,*

4833

0000006
000006

177740

0000006

000024
0000006
0000006
010516
004737 0000006

MOV

RO,3RC25.ADDR

goxa

6(R0) -(SP)

BIC

0177740 (SP)

TRAP

MOV

(SP)+,LSLUN

WORD
WORD

24
EGD.20

MOV

RS, (SP)

"WORD

JSR

EMS.20

PC.DRV.CTLERR

: RC.REG,*

SEQ 0317

Pa?e 134
VAX=11 Bliss=16 V3~555
47
RC:3
RCDS.S
RCDJCZ
TTE.CZ
[DOUCE
_DUAZ:

CZRCDAQ RC25 DISK EXERCISER

CZRCD3
v01.0

MULTI-DRIVE SUBTEST ROUTINES

012704
000405
062766
005301
001327
010516
004737
010037

000003

000004

6$:
7%:

0000006
0000006

JSR

ADD
MOV
CMP

BNE

MOV
ADD
MOV
MOV

JSR

MOV

8s:

0000006
000002

MOV
ADD
MOV

MOV
ASL
ASL
ASL
ASL

8IC

177417

8I(8
B1S8

000360
000001

:
9%
10%:

MOVB
MoV
JSR
TST
ST

INC
CMP

8GT
118:

000003

014246
0000005
000006

JSR
CMP

BIC
8i(8
BIS8

177760
000017

014304°

JSR

BLT

000030
0000006
000014
0000006

0000006G

MOV

MOV
MOV

000012
000004

0000006
0000006

BNE

MOV

000060
0000006
0000006
0000006
000004

000003

MOV
B8R
ADD
DEC

JMP
ST
INC
CMP

BGT

12%:

JMP
CLRB
ADD
RTS

«,TYP

4834

*,CR.ADDR

: ngf ADD

4818

RS, (SP)
PC,GET.RETPKT

s CNTLR,*

4846

RO, (SP)

; RP.INDX,*

4850

PC.,BLSMUL
#RETPKT
RO
RO,RP.ADDR
. #6
RG
8s
12(SP), (SP)

: TYPE,»

4851

: M,ADDR,*

4855

;
;

#60.-(SP)

¥, (SP)

RO, =(SP)

#30,-(sP)

pPC, COPY.BLK

14(SP), (SP)

PC.PUT.ENV
(SP)+,(SP)+

RP.ADDR
RO
#2.R0
RS.R1
#177760,P1

RP.ADDR,«

; MJINDEX,*

4856

H
H

4853
4860

; CNTLR,»

#17, (RO)

R1, (RO)
R4 .R1

; TYPE,«

4861

#177617 ,R1
#360, (RO)
R1,(RO)
#3,1(R0)
RP.INDX, (SP)

.
:

4862
4863

;
:
s COUNT

4848
4812
4802

:
: CNTLR

4795
L4794

H
;

4877
4764

PC,IN.]10DQ
(SP)+
(SP)+

R2
R2,0CL.X2
118
43
(SP)+
RS
R5,43
128
18
T.FLAG
#6,5P
PC

Routine
Base: $SCODES ¢+ 14234
176 words,
)
; Routine Size:
15 words
; Maximum stack depth per invocation:

COUNT ,«

; CNTLR,*

CZRCDAO RC25 DISK EXERCISER
RC2S INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

SEQ 0318
Pa?e 136
VAX=11 Bliss=16 v3-555
_DUA2:[DOUCETTE.CZRCD JCZRCD3.SRC;3 (48

YSBTTL "RC2S INTERRUPT SERVICE ROUTINES'

I PN TN PR PR LR XN ¥
PR TR P TR
[T

000000
000002
000006
000012
000014

:52
11-Jul=1983 08:44:5
8-Jul=1983 17:43:5 7

‘e

THERE EXISTS AN RC25 INTERRUPT SERVICE ROUTINE FOR EACH DEVICE
CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING THE
APPROPRIATE CONTROLLER NUMBER INTO “‘ICTLR'’. ALL SER\ICE ROUTINES THEN

!
:
:

BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE.

BGNSRV (RCINTO);
4891
4892

4893
4894

010046

005037
004737
012600
000002

ICTLR = 0;

RCINT

();

ENDSRV;

.SBTTL

RCINTO RC25 INTERRUPT SERVICE ROUTINES

CLR
JSR

ICTLR
PC,RCINT

RCINTO: :MOV

000600°
000000V

MoV
RT1I

RO.,=(SP)

(SP)+ RO

4889
4891
4892
4889

s %e s

S ®e Wy 0,

Routine Base: $CODES + 14774
7 words,
; Routine Size:
2 words
; Maximum stack depth per invocation:
4895
4896
4897
4898
4899

4900
4901

010046
012737
004737
012600
000002
: Routine Size:

BGNSRV (RCINT1);
ICTLR = 1;

RCINT O;

ENDSRV;

000001 000600°
000000V

8 words,

S e %oy By S, n,
e

BGNSRV (RCINT2);
ICTLR = 2;

RCINT ();

ENDSRV;

RCINT1 RC25 INTERRUPT SERVICE ROUTINES

MOV
JSR

#1,ICTLR
PC,RCINT

:?Y

Routine Base:

; Maximum stack depth per invocation:
4902
4903
4904
4905
4906
4907
4908

.SBTTL

RCINT1::MOV

2 words

RO,=(SP)

4896
4898

(SP)+,RO

4896

$CODES ¢ 15012

000016

LSBTTL

RCINT2: :MOV
MOV
JSR
MOV

010046
012737 000002 000600°
004737 000000V
012600

RTI

000002

: Routine Size:

8 words,

Routine Base:

: Maximum stack depth per invocation:
;

:
H
:

000000
000002
000010
000014

000016

4909

4910
4911

4912

4913
4914
4915

Sea 0319

?e 137
VAX=11 Bliss=16 V3-555
(48
RC;3
RCDICZRCD3.S
_DUA2: [DOUCETTE.CZ

RCINTZ RC25 INTERRUPT SERVICE ROUTINES

RO,=(SP)
#2,ICTLR
PC.RCINT
(SP)+,RO

:
;
:
:

4903
4905
4906
4903

$CODE$ + 15032

BGNSRV (RCINT3);
ICTLR = 3;

RCINT Q);

ENDSRV;

.SBTTL

RCINT3: :MOV
MOV
JSR
MOV

010046
012737 000003 000600°
004737 000000V
012600

RTI

000002

; Routine Size:

2 words

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAO RCZS5S DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0
000000
000002
000010
000014

8 words,

Routine Base:

: Maximum stack depth per invocation:

2 words

RCINT3 RC25 INTERRUPT SERVICE ROUTINES

RO,=(SP)
#3,I1CTLR
PC.RCINT
(SP)+,R0O

$CODES + 15052

:
:
:
:

4910
4912
4913
4910

N N
N
K
R
P
I
S
NI
T
I
I

e ®e 0o 0 e R
X Ve
R
N
P
R DN
P
IEIEIEIE A ETEYE TR FE
(YRR

000000
000002
000004
000010
000014
000020
000024
000030
000034
000036
000044
000046
000054

000056

11-Jul=1983 08:44:52
8-Jul=-1983 17:43:57

CZRCDAD RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0
4916
N7
4918
4919
4520
921
4922
4923
4924
4925
4926
4927
4928
4929
4930
4931
4932

4933

4934
4935

4936

4937
4938
4939
4940
4941
4942
4943
4944
4945

6946
4947
4948
4949
4950
4951
4952
4953
4954
4955

010146
005746

004737
013700
013701
016116
011660
032710
001026
132737
001004
132737
001416
016000

SEQ 032 0

P a ?e 138
VAX~11 Bliss=16 V3-555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (4 9

ROUTINE RCINT : NOVALUE =
'+

THIS IS THE COMMON INTERRUPT SERVICE ROUTINE FOR ALL RC25 CONTROLLERS.

!
!
5

AFTER SETTING UP THE COMMONLY-USED CONTROLLER-RELATED DATA ITEMS, THIS
ROUTINE WILL SAVE THE CURRENT CONTENTS OF THE SA REGISTER IN THE DCT.
THEN, IF THE '‘IGNORE INTERRUPT'* BIT IS SET, NO FURTHER ACTION IS TAKEN.

IF THE INITIALIZATION SUBTEST IS IN PROGRESS OR IF THE DM EXERCISER

SUBTEST BEING RUN, THEN INTERRUPT PROCESSING CONTINUES BY CHECKING THE
ERROR BIT OF THE SA REGISTER, AND POLLING THE COMMAND AND RESPONSE
RINGS. OTHERWISE, THE INTERRURT 1S PROCESSED LATER WHEN INT_PROC IS

!
!
!

CALLED FROM THE MULTI-DRIVE SUBTEST “EXECUTIVE'* (MULTI_DRIVE).

BEGIN

! SET UP CONTROLLER-RELATED PARAMETERS

ISET_CPAR ():

IDCTCADDR [SA_SAVE] = .IRC25_ADDR [RCSA, RC_ALL]; ! SAVE SA REGISTER
! IGNORE INTERRUPT?
%;EfiTDCT_ADDR CIG_INT] EQLU VES

! YES - RETURN

RN; G) OR (BIT_TST (SUP_FLAGS, SWF_DW)) ! [F INIT SUBTEST OR OM EXERCISER
RETUPFLA
IF (C1I
BEGIN

IF BIT_TST (IDCT_ADDR [SA_SAVEJ. SA_ERR)
THEN
FATAL_ERROR ()
ELSE
BEGIN

POLL_CRING );
POLL_RRING ();

!
!
i
i

IF FATAL ERROR
THEN
DECLARE ERROR AND CLEAN UP
OTHERWISE

| POLL COMMAND RING
' POLL RESPONSE RING

END;

' IF INIT SUBTEST OR DM EXERCISER

END;

! ROUTINE RCINT

END;

RCINT:

_SBTTL

MOV
TST

RCINT RC25 INTERRUPT SERVICE ROUTINES
R1,~(SP)

;

4916

;
;

4933
4934

-(SP)

000000V
000566°
0000006

JSR
MOV
MoV

PC.ISET.CPAR
IDCT.ADDR,RO
IRC25.ADDR,R1

000002

MOV

(SP),2(R0)

000002

MOV

2(R1) . (SP)

; *,RC.REG

gég

;goooo.<ao>

* «,IDCT.ADDR

0000601 0000006

géga

11,IIP.FLAG

;

0000006

ggge

g%.SUP.FLAGS

MOV

2(R0) ,RO

040000
000002

000002

1$:

: RC.REG,*

;

4935
4937
4938

4942

000062
000066
000072
000074
000100
000102
000106
000112
000114
000116

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (49?
VAX=-11 Bliss=16 V3-555

CZRCDAO RC25 DISK E XERCISER
RC25 INTERRUPT SERV ICE ROUTINES

CZRCD3
v01.0
042700

0727777
100000

000000V

2$:
35

000000V
000000V

: Routine Size:

BIC
CMP
BNE
JSR
BR
JSR
JSR
TST
MOV
RTS

012601
000207

40 words,

Routine Base:

: Maximum stack depth per invocation:

3 words

Sta 0321

139

#77777 R0

30,#-100000
PC,FATAL .ERROR

PC,POLL.CRING
PC,POLL.RRING
(SP)+
(SP)+ R

$CODES + 15072

4944
4942
4948
4949
4916

~ro

£%1%,

&S
(VP

~Go

b
-

11=Jul8-Jul-

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

SEQ 0322

Page 140
VAX=11 Bliss=16 V3=555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (50

I XN ¥

ROUTINE INT_PROC : NOVALUE =
¢ +

THIS ROUTINE IS CALLED FROM THE '‘EXECUTIVE'' OF THE MULTI-DRIVE SUBTEST
;28$R0CESS ANY RC25 INTERRUPTS WHICH MAY HAVE OCCURRED IN THE RECENT

N TR PR NE

i
i
i

. PR TEITEIRIEIE

i
;
i
i
i
i

IF EITHER THE INITIALIZATION SUBTEST OR DM EXERCISER SUBTEST IS BEING

RUN, THEN INTERRUPTS ARE FULLY PROCESSED AS THEY OCCUR (SEE RCINT).
OTHERWISE, FOR THE MULTI-DRIVE SUBTEST, INTERRUPTS ARE PROCESSED ON A
DELAYED BASIS TO PREVENT PROGRAM PRINTOUTS FROM BEING BROKEN UP 8Y,
SAY, ERROR LOG MESSAGE PRINTOUTS.

]

AFTER SOME INITIALIZATION, THIS ROUTINE CONTINUES AS IF AN INTERRUPT
HAS JUST OCCURRED: IF THE ERROR BIT OF THE SA REGISTER 1S SET, THEN A
FATAL ERROR IS DECLARED. OTHERWISE. TE COMMAND AND RESPONSE RINGS ARE

i
:
;
]

IF NO INTERRUPT HAS OCCURRED IN THE RECENT PAST, THEN THE POLLING

PR P TR

R PR TR

YL R

i
i
i
i
i
i
i
i
i

ROUTINES TAKE NO ACTION.

NOTE: ALL RC25°'S ARE ASSUMMED TO BE HARNY'IRED AT BR LEVEL 5 OR LESS.
INTERRUPT PROCESSING RUNS AT LEVEL 5, AND CANNOT BE BROKEN BY AN
INTERRUPT FROM A SECOND RC25.
IMPLICIT INPUTS:

CCTLR = CURRENT CONTROLLER NUMBER

TR PR R

BEGIN

o P

e S T N

' LOCK OUT ALL RC25 INTERRUPTS
SETPRI (PRIOS):
! FAKE INTERRUPTING CONTROLLER NUMBER
ICTLR = .CCTLR;
SET UP CONTROLLER-RELATED DATA
!
();
ISET_CPAR
! SAVE SA REGISTER
RC_ALL];
[RCSA,
.IRC25_ADDR
=
IDCTADDR [SA_SAVE]
FATAL ERROR
IF
!
SA_ERR)
[SA_SAVE],
(IBCT_ADDR
%:Egrr_rsr
' OTHERWISE

T A P T S S S

BEGIN

SETPRI (PRI00).

ELSE

FATAL_ERROR ()

END;

! POLL COMMAND RING
! POLL RESPONSE RING

POLL_CRING ();
POLL_RRING ();
END;

000000

010146

000002
000004
000010

005746
012700
104441

! RESTORE PROCESSOR PRIORITY
ROUTINE INT_PROC
.SBTTL

INT.PROC R(C25 INTERRUPT SERVICE ROUTINES

MOV

R1,-(SP)

4956

MOV

#240,R0

4987

INT.PROC:

00240

TST

TRAP

-(SP)
41

CZRCD3
v01.0

000012
000020

000024
000030
000034
000040
000044
000046
000022
000056
000060
000064
000066
000072
000076
000106
000102
000104
000106
:

;

CZRCDAQ RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES
013737
004737
013700
013701
016116

0000006 000600°
000000V
000566
°
0000006
000002
000002

042700
020027
001003
004737
000404
004737
004737
005000

077777

011660
011600

MOV
MOV
MOV
MOV

1%:

2$:

005726
012601
000207

Routine Size:

JSR
MOV

000000V

104441

36 words,

Maximum stack depth per

-Jul-1983 17:43:57

MOV

100000

000000V
000000V

11=Jul=1983 08:44:5?

BIC
cMP
BNE
JSR
BR
JSR
JSR
CLR

TRAP
TST
MOV
RTS

SEQ 0323
VAX=11 Bliss=16 v3-555
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (50

59
4988
4989
4990

CCTLR,ICTLR

PC,ISET.CPAR

IDCT.ADDR,RO
IRC25.ADDR,R1
2(R1) . (5P)

(SP),2(RO)
(SP) ‘RO

#77777.R0

; *,RC.REG
: RC.REG,*

4991

RO #-100000
PC FATAL .ERROR

PC,POLL.CRING
PC,POLL.RRING

RO
41
(SP)+
+ ,R1
(SP)

Routine
Base:
$CODES + 15212
)
4 words
invocation:

4993
4991
4997
4998
5002

4956

NI XN ¥

i
Wy WA VAWV

(=] jol=] (elelelolelelolele)
N NS 1, ] —b ed cd cud coh b and b ad
LAV] -0 OO NN
S NN =

FE PRLR
TRPR PR YR
YRR IRTIEIE TR
R
[

~NrN0

Ay)

&
N

~GCo

8-Jul~1

VAX<11 Bliss=16 V3=555

SEQ 0324

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC.3 (

gage 14
14

ROUTINE ISET_CPAR : NOVALUE =

THIS ROUTINE IS CALLED BY RCINT AND INT_PROC TO SET UP THE COMMONLY-

;

USED DATA ITEMS FOR THE INTERRUPTING CORTROLLER.

IMPLICIT INPUTS:

ICTLR = INTERRUPTING CONTROLLER NUMBER

;

BEGIN

! CALCULATE DCT ADDRESS
IDCT_ADDR = DCT + (.ICTLR * DCT_LEN * 2);
i CALCULATE CST ADDRESS
2);
*
CSTTLEN
*
(.ICTLR
+
ICSTADDR = CST
GET RC25 ADDRESS
i
LIP_ADDRI;
ADDR
.ICST
=
ADDR
IRC25
1COM_ADDR = COMM_AREA + (.ITTLR * COMM_LEN = 2); ! CALCULATE COMM_AREA ADDR
! ROUTINE ISET_CPAR

END;
.SBTTL

010146
013701
010146
012746
004737
062700
010037
010116
012746
004737
062700
010037
011037
010116
012746
004737

000600°

R1,=(SP)

MOV

R1,-(SP)

MOV

000022

#22,-(SP)

MOV

R1,(SP)

MOV
JSR
ADD
MOV

000016
0000006
0000006
000564 *

0000006

MOV

MOV
JSR
ADD
MOV

000110
0000006
000000°
000560°

ADD

MOV
RTS

36 words,

Routine Base:

; Maximum stack depth per invocation:

6 words

ICTLR.R1

MOV

JSR
ADD
MOV

0000006
0000006
000566

000207

; Routine Size:

ISET.CPAR RC25 INTERRUPT SERVICE ROUTINES

ISET.CPAR:
MOV

000010

000106

11=Jul=1

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

hodod
[
1e]
V1V]

8 10

PC,BLSMUL
#DCT,RO
RO, IDCT.ADDR

#16,-(SP)
PC,BLSMUL
#CST,RO
RO,ICST.ADDR

(RO) , IRC25.ADDR

R1, (SP)

#110,=(SP)
PC,BLSMUL
#COMM. AREA, RO
RO, 1COM. ADDR

#10,5P

(SP)+,R1

$CODES + 15322

;

5005
5017

;

5018

: 1CST.ADDR,*

5019
5020

5015
5005

~NrN

wviLwna

l\l\

VAX=11 Bliss=16 Vv3-555

SEQ 0325
?e

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (52

R T Yy

ROUTINE FATAL_ERROR : NOVALUE =
‘e

PN FE TR LR TR PR TR TR X1 LR

THIS ROUTINE IS CALLED BY BOTH RCINT AND INT_PROC UPON DETECTING AN
UNRECOVERABLE ERROR T {ROUGH THE DEVICE'S SA REGISTER. ITS PURPOSE 1S TO
CLEAN UP DEVICE DATA IN THE 'DRIVER'' PORTION OF THE EXERCISER, AND TO
INFORM THE ‘PROGRAM'' PORTION OF THE EVENT VIA RETURN PACKET.
IHPLICITIINPUTS

CTLR = INTERRUPTING CONTROLLER NUMBER
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT

TRTR TR YR TR TR TR YR

ICST_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S (ST

BEGIN
LOCAL

INDEX : SIGNED WORD,
U_SAVE : WORD;

T E A

SA_REG = .IDCT _ADDR [SA_SAVt]:
U SAVE = .LSLUR;
LSLUN = .1CST_ADDR [OF_UN, P _UNITI;

SAVE PRE-INTERRUPT CURRENT UNIT NUMBER
SET CURRENT UNIT TO FIRST IN CONTROLLER
“FATAL PORT / CONTROLLER ERROR''
RESTORE PRE-INTERRUPT CURRENT UNIT
CLEAN UP DRIVER DATA FOR CONTROLLER

E N EEE

ERRDF (14, EGD_14, EMS_14);
LSLUN = .U_SAVE;

DRV_CTLERRTM(.ICTLR);
= GET_RETPKT (.ICTLR)) GEQ 0
IF TINDEX
THEN

RPN NIRRTE N E T

000000

11=-Jul=19
8-Jul=-19

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

c10

TRY TO GET A RETPKT; IF SUCCESS

BEGIN

SET CONNECTION ID TO ‘DRIVER"

= CID_DRIVER;
RETPKT [.INDEX, CONID]
RETPKT [.INDEX, HESTYPJ MT_FATAL;
RETPKT [.INDEX, CTLR]
= ICTLR;
IN_10DQ (.INDEX);

FATAL ERROR

CONTROLLER NUMBER
LOAD RETPKT INDEX INTO IODQ

' IF RETPKT WAS ALLOCATED

END;

' ROUTINE FATAL_ERR

END;

004137

0000006

013700 000566
016037 000002 000000G
0000006G
013701
013700 000564
016002 000006
000302
042702 177740
010237 0000006
104455
000016
0000006
0000006
010137 0000006
013746 000600°

LSBTTL

FATAL.ER?gg:

MOV
MOV

MOV

MOV
MOV

SWAB

BIC
MOV

TRAP
.WORD
.WORD
.WORD

MOV
MOV

FATAL.ERROR RC25 INTERRUPT SERVICE ROUTINES

R1,$SAVE?2
IDCT.ADDR,RO

:
:

5023
5043

LSLUN,R1
ICST.ADDR,RO

: *,U.SAVE
H

5044
5045

2(R0) ,SA.REG

6(RO) ,R2

R2
#177740,R2
R2,LSLUN

5046

EGD.14
EMS.14

R1,LSLUN
ICTLR,=(SP)

: U.SAVE,
:

5047
5048

D10

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3

v01.0

004737
013716
004737
010001

013702
042702

112710
150210
010116

000160

11-Jul-1983 08: 44:52
8-Jul-1983 17: 43:57

004737
005726
005726
000207

; Routine Size:

PC,DRV.CTLERR

0000006
000600
0000006

RO,R1

: ~,INDEX

1$
R1, (SP)

#60.-(SP)

PC.BLSMUL
#RETPKT+2,RO
#3.1(R0)

ICTLR,R2

#177760,R2
#60, (RO)
R2, (RO)
R1,(SP)

PC.IN.10DQ

0100006
18:

57 words,

ICTLR,(SP)

PC,GET.RETPKT

000060
0000006
0000026
000003 000001
000600°*
177760
000060

Routine Base:

; Maximum stack depth per invocation:

6 words

RTS

SEQ 0326

Pa?e 144
VAX=-11 Bliss=16 V3=555
_DUAZ:[DOUCETTE.CZRCDJCZRCDS.SRC:B (52

(SP)+
(SP)+

$CODES + 15432

5049

s INDEX,*

5053

5055

; INDEX,®

5056

H
:
H

5051
5037
5023

CZRCDAO RC25 DISK EXERCISER

CZRCD3
v01.0

VAX=11 Bliss=16 V3=555

SEQ@ 0327

Pa?e 145

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (53

RC25 INTERRUPT SERVICE ROUTINES

LR T AN T L L (YA FEYEYETEFEYE FE LR LI

N ¥

ROUTINE POLL_CRING : NOVALUE =

THIS ROUTINE 1S CALLED BY BOTH RCINT AND INT_PROC TO SCAN THE DEVICE'S
COMMAND RING AND CHECK FOR ANY COMMAND SLOTS THAT HAVE BEEN '‘TAKEN'' BY

THE CONTROLLER. SUCH SLOTS HAVE BEEN RETURNED TO THE HOST, INDICATED BY
A ZERO OWNERSHIP BIT. FOR EACH SLOT THAT HAS BEEN RETURNED TO THE HOST,
THE CRING COUNT IS DECREMENTED, AND THE CR_POLL ADDRESS IS ADVANCED TO
THE NEXT SLOT IN THE COMMAND RING.
IMPLICIT INPUTS:

ICTLR = INTERRUPTING CONTROLLER NUMBER
IDCT_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S DCT

ICOM_ADDR = ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA

BEGIN

PRIR

! WHILE # OF COMMANDS IN CRING > O AND
WHILE ((.IDCT_ADDR [CRING_CNT] GTRU 0) AND
! CURRENT SLOT IS HOST=-OWNED
DO
~8£5§217°737 (C.IDCT_ADDR [CR_POLL) + 2), ED_OWN)))
IDCT_ADDR [CR_POLL) = .IDCT_ABDR [CR_POLL] + &;
%zEfiTDCT_ADDR CCR_POLL] GTRA .IDCT_ABDR [CR_END]

! ADVANCE TO NEXT SLOT TO POLL
! gzsgsvouo END OF RING

IDCT_ADDR C[CR_POLL) = .IDCT_ADDR [CR_BEG];

' SET POINTER TO TOP OF CRING

]
IDCT_ADDR [CRING_CNT] = .IDCT_ADDR [CRING_CNT] - 1; ! DECREMENT # CMDS IN CRING

END:

! CLEAR COMMAND INTERRUPT WORD IN RING HEADER

YRR

ICOM_ADDR [CMD_INT] = 0;
END;

004137

0000006

013701
012702
060102
105711
001422

000566
000016
1$:

R1,$SAVE?2
1DCT.ADDR,R1
#16 ,R2

:
:
:

5061
5079
5084

(R1)

5079

16(R1) ,RO

5080

:
:

5083
5084

ADD

TSTB

BEQ

000004

2s:
.

2(R0O) ,RO

DECB
ADD

(R1)
#6,(R2)

8LOS

000560

#77777 RO
RO,#-100000

CMP

000010

R1,R2

BIC
CMP

BEQ

000012

000076

J3R
MOV
MOV

MOV

000002

000004

POLL.CRING RC25 INTERRUPT SERVICE ROUTINES

MOV

000016

077777
100000

005060
000207

.SBTTL

POLL.CRING:

MOV
B8R
MOV
CLR

RTS

(R2),12(R1)

10(R1), (R2)
1$

1COM.ADDR,RO

4 (RO)

)
Base: $CODE$ ¢+ 15614
Routine
32 words, .
; Routine Size:
4
words
: Maximum stack depth per invocation:

5085

:
:

5087
5079

5061

5091

~n0

&H &
[V
R )

~GOo

VAX=11 BlLiss=16 V3=555

HOST (OWNERSHIP BIT = 0). FOR EACH SUCH SLOT, THE ASSOCIATED MESSAGE IS
PROCESSED BASED ON ITS CONNECTION ID (DISK OR DUP) AND MESSAGE TYPE
(SEQUENTIAL OR DATAGRAM). AFTER PROCESSING, THE MESSAGE ENVELOPE IS
RE-INITIALIZED AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET TO 1).
IMPLICIT INPUTS:

IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT

emte

WoimIimimomImoImt
W=

RESPONSE RING AND CHECK FOR ANY SLOTS WHICH HAVE BEEN RETURNED TO THE

BEGIN

! WHILE O = 0

D e

b e canh

= = b —d cd d b = ek = eleleolele]
N W W NN NN PIPINININININ)
NN = O VO NV
W
=20 000NNV
W =00~ OV

AWM WAANV

TH!S ROUTINE IS CALLED 8Y BOTH RCINT AND INT _PROC TO SCAN THE DEVICE'S

UHILgEz?L (BIT_TST ({.IDCT_ADDR [RR_POLL] + 2), ED_OWN)) DO

ADDRESS OF RESPONSE ENVELOPE
IF MESSAGE IS FROM DISK MSCP
THEN

IENV_ADDR = ..IDCT _ADDR [RR_POLL) - 8;

IF .JENV_ADDR [CONRID] EQLU CID_DISK

PROCESS ON MESSAGE TYPE

SELE%E?NEU .IENV_ADDR [MSGTYP] OF

b v

b md

THEN

b md

[MT_SEQ]
(MT-DGI

ELSE

TES

b
b e

b e

THEN

b
b

IDCT_ADDR [RR_POLL] = .IDCT_ADDR [RR_BEGI:

tmrmomoimoemomsw

b
b
b
b med
b

BB DWW NN
SNV = OV
NNV

i THEN

i COPY ENV TO RETPKT

ENV_TO_RP 0);

{E NV_ADDR [MSGLEN] = MSG_LEN ¢ 2;
CT"ADDR [RR POLL) = .IBCT_ADDR [RR_POLL] + 2:
iéDCT ADDR _[RR POLL] = .IENV_ADDR CERV_HIJ;
cT_RODR CRR_POLL) = .IDCT_ADDR [RR POLL] + 2;
IF .JOCT_ADDRTMCRR_POLL) GTRA .IDCT_ABDR [RR_END]

WA AV

' IF MESSAGE IS FROM DUP

END;

RE=INIT MESSAGE LENGTH

ADVANCE TO HI ORDER WORD OF RING SLOT
RETURN SLOT TO CONTROLLER
ADVANCE TO NEXT RRING SLOY
IF BEYOND END OF RING
THEN

CYCLE TO TOP OF RING

! WHILE LOOP

END;

b
b
b
b

' ELSE (MESSAGE NOT FROM DISK MSCP)

BEGIN

IF .IENV_ADDR [CONNID] EQLU CID_DUP

WV WA WA

! SEQUENTIAL
i DATAGRAM

: ENV_TO_RP ();
: DATAGMTM();

! CLEAR RESPONSE INTERRUPT WORD IN RING HEADER

ICOM_ADDR [RSP_INT] = 0.
END;

000000

004137

0000006

000004

013702

000566°

.SBTTL

POLL.RRING RC25 INTERRUPT SERVICE ROUTINES

JSR
MOV

R1,$SAVE?2
IDCT.ADDR,R2

POLL.RRING:

SEQ 0328

Pa ?e 147

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (54

ROUTINE POLL_RRING : NOVALUE =

MAA VAWMV VI

s0s0ss®0 008,80 0s0s%0000:000000000s000000000s0c800800000000,
0o
e e ®s BeBoBoBeBeBoBsBotsBote oty

11=Jul=1
8-Jul-1

CZRCDAQO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

bodod
[o-1e
]
W

F10

:
:

SEQ 0329

?e
VAX=11 Bliss=16 V3-555
(54
;3
.
SRC
ICZRCD3
E.CZRCD
DOUCETT
_DUA2:[

CZRCDAQ RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE RNUTINES
000014

18:

000002
077777
100000

#7777% RO

go,#-100000

000000 000562"
000010 000562°
000562°*
000006
000001

5114

2%
{RO) ,RO
RO
RO
RO
RO
#177760,R0
38
M
RO,
4$
PC.DATAGM

000000V

48
1£R0)M2

000002

000000V
000562°
000074 000004
000566°

PC,ENV.TO.RP

3s:

1ENV.ADDR, RO

A ¥

#74,4(RO)

I1DCT.ADOR,R1

R1,R2

RTS

Base:
$CODES + 15714
Routine
75 words,
)
; Routine Size:
4
words
ion:
invocat
per
stack
depth
s Maxirum

b md

W
LR

1COM.ADDR,RO
6(R0O)

&> =N
nNo&

5%:

000560°*
000006

?§R1).(R2)

000004

000006

(R?)

(Ré) 6(R1)

o
O
»

000000

#2.(R2)
Z(RO) 20(R2)

n, RZ

000014

000220
000224

IENV,ADDR,RO

#6,R0
1(R0)

000001

013700
005060
000207

5113

#10, IENV.ADDR

177760

700001

80(R2), 1ENV.ADDR

[}

CZRCD3
v01.0

THIS ROUTINE IS CALLED BY POLL_RRING FOR (A) DISK MSCP RESPONSE
MESSAGES WITH THE °‘'SEQUENTIAL'“MESSAGE TYPE, AND (B) DUP RESPONSE
MESSAGES. ITS GENERAL PURPOSE IS TO COPY THE CONTENTS OF THE MESSAGE
ENVELOPE INTO A RETURN PACKET SO THAT THE ENVELOPE CAN BE RETURNED TO
THE CONTROLLER. 1F THE RESPONSE MESSAGE HAS AN ASSOCIATED COMMAND IN
THE CONTROLLER'S OUTSTANDING COMMAND LIST (OUTC_LIST), THEN TIMING FOR
THAT COMMAND IS TERMINATED. IN ADDITION, IF THE COMMAND WAS AN 1/0
TRANSFER (READ, WRITE, OR ACCESS), THEN SOME FIELDS OF THE COMMAND
ENVELOPE ARE COPIED INTO THE RETURN PACKET.

AFTER THE RETURN PACKET HAS BEEN LOADED, ITS INDEX IS LOADED INTO THE
é{gGgggglgUEUE (100Q) FOR PROCESSING BY THE ''PROGRAM'' PORTION OF THE
IMPLICIT INPUTS:

JCTLR = INTERRUPTING CONTROLLER NUMBER
IENV_ADDR = AUDRESS OF MSCP ENVELOPE CONTAINING RESPONSE

BEGIN
LOCAL
M_INDEX : SIGNED WORD,
RTINDEX : SIGNED WORD,

STIDX : WORD,

ENDIDX : WORD,

R_ADDR : REF BLOCK CRP_LEN, WORD] FIELD (RP_FIELDS),
TEMP : WORD;
ASSUME NO ASSOCIATED COMMAND PACKET
START OF CONTROLLER'S OUTC_LIST AND _TIMR

M_INDEX = =1;

STIDX = .ICTLR * OUTC_CNT;
ENDIDX = .STIDX + OUTT_CNT - 1;

xncaegggzt FROM .STIDX"TO .ENDIDX DO

{zeaffflP = OUTC_LIST [.COUNT]) GEQ O

END OF QUTC

SEARCH THROUGH EACH OUTC ENTRY

; %angTRY CONTAINS AN OUTSTANDING COMMAND INDEX

IF .MSCP_ENV [.TEMP, CRN_LOJ EQLU .IENV_ADDR [CRN_LO]

EXITLOOP;

END;
END;

END;

[}

OUTC_TIMR [.COUNT]

00TC_LIST [.COUNT]

M_INDEX = .TEMP;

THENBEGIN

! IF THIS IS THE ASSOC CMD
! THEN

SEQ 0330

Pa?e 149
VAX=11 Bliss=16 v3=555
_DUAZ:[DOUCETTE.CZRCDJCZRCD3.SRC:3 (55

ROUTINE ENV_TO_RP : NOVALUE =

—ogmwo\naumdoomNOsflbwm—ooo

NN b ed b d o cd ol oot o b b e b b e ek =
b b b- b b e b
ol oF o
OO OO O O° VTV
AV
S FaZ
o0
00 O O O O ) O O 00 00 0o 00 0o Oo 00 00 00 OO ~ NNNNN ~ ~ ~N~NOONO\ON
CONONWN W N =OOVONO VB WO VDNV WN=OV00NONW

\Il\h\h\h\l‘\h\h\fl\h\h‘h\h\h\h\fl\hm\lflfl\h\h\fl\fl\h\h\l‘\h\hmm\.fl\fl\fl\l‘\fl\.fl\.fl\h\h\fl\fl\fl\h\fl\h\flW\h\fl\h\.fl\fl\fl\fl\}'\h\fl
—d b e b b cd b b ad d D D cnd e o D b i b b D wd b wd i e D b

!!".il..Q.l.........cq.!...t...!!Q.t......!Q........Ot.o

11=Jul=198
8-Jul-198

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

:52
7

INIT ENTRY

! TURN OFF COMMAND TIMER

110
CZRCD3
NI T VARV
VI VIV AWM
NINI NN NINONININON)
N NN
N —d b b e b d e b e i O O [olelalels]
WN—=O 00O ~NOWNES
W
-0 V00NN

R T T

T T PR

PR TRPRI

TNTR PR TR PR PR
LRLR LN TN )

v01.0

RC25 INTERRUPT SERVICE ROUTINES

CZRCDAQ RC25 DISK EXERCISER

11=Jul=1983 08:44:52
8=Jul=1983 17:43:57

%afaa INDEX= GET_RETPKT (.ICTLR)) GEQ 0

! IF RETPKT IS AVAILABLE

SEQ 0331
Pa?e
VAX=11 Bliss=16 Vv3=555
_DUA2:[DOUCETTE.CZRCDICZRCD 3.SR(C;3 (55

BEGIN

R_ADDR = RETPKT + (LR_INDEX * RP_LEN * 2);

! START OF ALLOCATED RETPKT

R_ADBR CCTIR) =", ICTLR;
IF .M_INDEX GEQ 0

' LOAD CONTROLLER NUMBER INTO PACKET
: IF ASSOC. CMD ENV WAS FOUND

COPY BLK (.IENV_ADDR % &, .R_ADDR, RP_LEN}; i COPY RESPONSE ENVELOPE INTO RETURN PACKET

THEN

' THEN

BEGIN

IfF ((.1ENV_ADDR [OPCODE] EQLU (OP_RD + OP_END)) OR
(.JENVCADDR [OPCIDE) EQLU (OP”WRT + OP_END)) OR
(.IENV_ADDR [OP(ODE] EQLU (OPZACC + OP_END)))

THEN

! THEN

BEGIN

R_ADDR [CMDMOD] = .MSCP_ENV [.M_INDEX, MODIFY]).

! COPY

RZADDR CLBN"HIJ = .MSCP_ENV [.M_INDEX, LBN_HJ:
R_ADDR [BUFF_0) = .MSCP_ENV [.M_INDEX, BUF_0]:

! COMMAND
! PACKET

RCADDR [CBCNT_L0) = .MSTP_ENV [.M_INDEX, BC_LOJ:
RZADDR [CBCNT HI) = .MSCPTENV [.M_INDEX, BC_HIJ;
RZADDR CLBN_LO] = .MSCP_ERV C.M_IRDEX, Len_C1;
RCADDR [BUFF-1] = .MSCPCENV C.MZINDEX, BUFZ13;

R RRR R

! IF END MESSAGE IS
READ, WRITE, OR
!
ACCESS
!

! RELEVANT
! FIELDS
! FROM
! TO RETPKT

! IF ENDCODE WAS READ, WRITE, OR ACCESS

END;

! IF ASSOC CMD ENV WAS FOUND

END;

! PUT RETPKT INDEX INTO 10DQ

END;

' IF RETPKT WAS ALLOCATED

I Y

IN_IODQ (.R_INDEX);

! IF ASSOC CMD ENV WAS FOUND

%;ENM INDEX GEQ 0

PUT_ENV (.M_INDEX);

! RETURN COMMAND ENVELOPE TO POOL

! ROUTINE DISK_RSP

END;

004137

0000006

012704
013700
006300
006300
006300

177777
000600"

.SBTTL

ENV.TO.RP RC25 INTERRUPT SERVICE ROUTINES

JSR
MOV
MOV

R1,$SAVES
#-1,R4

ASL

ENV.TO.RP:

000017

RO
RO
RO

MOV

RO,RS

ADD

010346

1$:

M7 ,RS

; STIDX,ENDIDX

5179

; « ENDIDX

MOV

RO,R2

g:.nz

: +,COUNT

: STIDX,COUNT

5180

gf¥a

ggTC.LlST(R2).R3

; *(COUNT),TEMP

5183

MOV

R3,=(SP)

; TEMP,

5187

ago

0000006

ICTLR,RO

ASL
ASL
ASL

:
; *,M.INDEX

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3

v01.0

000050

012746
004737
022626
013701
026061
001011
010304

112762

010200
006300
005060
000403
005202
020205
003745

000104
0000006

MOV

#104,=(SP)
PC,BLSMUL

000562°
0000106 000010

Mov

R
1ENV.ADDR

000377

JSR
CMP

CMP
BNE
MOV

Movs
MOV

0000006

ASL

CLR

0000006

2%:
3%:

000600°
0000006

000030
0000006
000600°
177760

000017
000002

JSR

MOV

BIC
8I(B
81S8
TST
BLY

000002

MOV
MOV8B
BIC
CMP

000562
000020
177400
000241

000242
000220
000104
000000G
0000226 000012
000024G 000044
0000266 000046
0000446 000050

005726

000046G 000052
0000306 000024
0000326 000026

4%:

5191
5192
5193

:
. COUNT

5189
5180

ICTLR,=(SP)

5202

RO.R1

; *,R.INDEX

cs?r.ourc.Lxsr(R2>
R2.RO
RO

OUTC.TIMR(RO)
3$

(SP)+
R1

JSR

000562°*
000004

: TEAP,M. INDEX
; *,«(COUNT)
; COUNT ,»

1ST
13T
BLT

ADD
MOV
MOV
ADD
MOV
MOV

0000006

S;CPENV*10(R0) 10(R1)

INC
CMP
BLE
MOV
JSR

MOV
MOV

0000006

(SP)+, (SP)+

R2
R2.RS

MOV

000060

000360

SEQ 0332

?e 151
VAX=11 Bliss=16 Vv3=555
_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (55

BEQ
CMP
BEQ
CMP
BNE
MoV
MOV

JSR
MOV
MOV
MOV
MOV
MoV
MOV
MOV
TST

PC,GET.RETPKT

6$
R1,-(SP)
#60,-(SP)
PC.BLSMUL
#RETPKT ,RO
RO,R2
IENV.ADDR, (SP)
46, (SP)

R2,=(SP)

#30,-(SP)

PC, COPY.BLK

ICTLR,RO

#177760,R0
#7,2(R2)
RO 2(R2)

: COUNT,ENDIDX

: R.INDEX

: R.INDEX,*
: =,R.ADDR

5206

5207

; R.ADDR,*

:
:

5208
«,«(R,ADDR)

; *,«(R.ADDR)

s M.INDEX

5209

1ENV.ADDR,RO
20(R0) ,RO
#177400,R0
20.#241

5213

RO,#242

5214

gO#220

5¢15

R&, (SP)

; MJINDEX,~

5219

#104.~(SP)
PC.BLSMUL

MSCP. ENV*ZZ(RO) 12(R2)

;s *,*(R.ADDR)

«,+(R.ADDR)
*,+(R.ADDR)
«,+(R.ADDR)

5220
5221
5222

MSCP.ENV+30(R0) 24
.24 (R (R2)
MSCP.ENV+32(R0) 26
.26 (R (R2)

«,+(R.ADDR)

5224
5225
5217

MSCP.ENV+24 (RO) .44 (R2)
MSCP.ENV+26(R0).46 (R2)
.50 (R?2)
MSCP.ENV+44 (RO) 50¢
.52(R2)
MSCP.ENV+46(R0) 52¢(
(SP)+

«,«(R.ADDR)

+,+(R.ADDR)

5223

000406
000410

11=gul=1983 08:44:52
8~Jul=1983 17:43:57

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

010116
004737
062706
005704
002404
010446
004737
005726
000207

0000006
000010

5$:
6%:

000000G
7%:

MOV

JSR
ADD
TST

BLT

MOV
JSR
TST
RTS

VAX=11 Bliss=16 v3-555

SEQ 0333

?e 152

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC.3 (55

R1,(SP)

: R.INDEX,*

5231

#10,SP
R4
7%
R4 ,-(SP)
PC,PUT.ENV
(SP)+

5204

PC,IN.10DQ

$CODES + 16142
Routine Base:
133 words,
; Routine Size:
words
12
invocation:
per
depth
: Maximum stack

; M.INDEX

5235

: M.INDEX,«

5237

5145

VIV

RS TaS AN LS TANTAS TN oY 1aN}
IV AWV
o VIV
o D00 NN WD

I mimtmtm
i m eI momemI
e =TM

N N
PRFRE TR
LRLN
PNFE PR
PR P
P TR PR
PR P
e
T E T
E R
IR IR

)

H e
N &

THIS ROUTINE HANDLES ALL DATAGRAM (ERROR LOG) MESSAGES RECEIVED FROM
THE RC2S. IF THE DATAGRAM REFERENCES A PARTICULAR UNIT (AND IS NOT
CONTROLLER-RELATED), THEN ITS OCCURRENCE IS TALLIED FOR THAT UNIT. IF
THE USER DID NOT SUPPRESS THE PRINTING OF ERROR LOG MESSAGES DURING THE
SW DIALOG, THEN EACH RELEVANT FIELD IS IDENTIFIED AND PRINTED. IF THE
ga}?GRAfl INDICATES AN ECC ERROR, THEN IT IS TALLIED FOR THE APPROPRIATE
IMPLICIT INPUTS:

IENV_ADDR - ADDR%ES OF MSCP ENVELOPE CONTAINING ERROR LOG
SSAGE

LITERAL

! SUB-CODE VALUE FOR 1-SYMBOL ECC ERROR
! SUB-CODE VALUE FOR 8-SYMBOL ECC ERROR
! SUB-CODE VALUE FOR ECC~FIELD-ONLY ERROR

EC1 = 8,
EC8 = 15,
ECO = &4;

BIND

OWN

FMT_CE = UPLIT (XASCIZ'XACONTROLLER ERRORIN'),
FMT_HMA = UPLIT (XASCIZ'XAHOST MEMORY ACCESS ERRORIN'),
FMT_SDE = UPLIT (XASCIZ'XASMALL DISK ERRORIN');

EMT_TB : VECTOR [S] INITIAL (FMT_CE,

FMT_HMA, 0, O,

FMT_SDE),

STCTTB : VECTOR [121 INITIAL (STT 00, STT 01, sfc_062, sTc_03. STC_04,

STC_05. STC_06, STC_07, sTc_08, sTc_09, STc_io, sTc_in);

FMT : WORD,

! FORMAT CODE

! EVENT CODE
EVC : WORD,
! SUB-CODE
SB8C : WORD,
PLAD : WORD,
; PLATTER ADDRESS (MSCP UNIT NO.)
! DRS UNIT NUMBER
UNIT : SIGNED WORD,
TAD : REF BLOCK C[TALLY_LEN, WORD] FIELD (T_FIELDS); !TALLY ADDRESS
= IENV_ADDR [FORMATI];
EVC = .IENV_ADDR [EVENT];
SBC = ,JENV_ADDR [SuBCJ];
IF .FMT EQLD FM_SDE
THEN

BEGIN

! GET FORMAT CODE
! GET EVENT CODE
E GET SuB-CODE

' IF SMALL DISK ERROR
'[} THEN

Sh?? = .{ENV_ADDR [PL_ADDR];

INCR OFFSET FROM (0 + OF_UN) TO (3 + OF_UN) DO
BEGIN

IF .PLAD EQLU .ICST_ADDR [.OFFSET, P_ADDR]
ruf~BEGI~

! GET PLATTER ADDRESS (MSCP UNIT NO.)

! FOR EACH CST UNIT
' IF PLAT ADDR MATCHES (ST ENTRY
! THEN

SEQ 0334

_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (

BEGIN

TR
890,009, TR IR
%
8T 8,00 000,080 0,00%08,900;%008e%

VAX=-11 Bliss=16 V3=555

ROUTINE DATAGM : NOVALUE =

LOCAL

VeV

~Go

v01.0

Vs B8

11=Jul-1
8=Jul-1

CZRCDAQ RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3

OO
o Co
N

L 10

M 10

CZRCDAQ RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

VAX-11 Bliss=16 v3-555

SEQ 0335
?e 154

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC;3 (56

! GET DRS UNIT NUMBER
! DONE SEARCH

EXITLOOP;
END;

PLATTER ADDRESS SEARCH LOOP

END;

IF UNIT NUMBER WAS FOUND

IF .UNIT GEQ O

THEN

BEGIN

CALCULATE UNIT'S TALLY ADDRESS
INCR ERROR LOG COUNT
%;E5VENT CODE = DATA ERROR

TAD = TALLY + (.UNJT ~ TALLY_ LEN * 2);

TAD [ER_LOG) = .TAD [ER_LOG)TM+ 1;
IF .EVCTEQLU ST_DAT

WWW N U U WA WA AN N AN U W AN NN N AN N NN
W) N PONON PORONIND) = b b b b cnd —d rd e —d
W =O
(=2 ], ] ~ OV NN = O VNV

5309

THEN

BEGIN

IF ECC-FIELD-ONLY

%F .SBC EGLU ECO
HEN

I
AT

THEN

BEGIN

TAD = TAD [ECC_ 1J + ((.SBC - 8) + 2)- ! CALCULATE EXACT ADDR OF ECC STAT
INCREMENT STATISTIC

TAD= .. TAD +°1;

EiND;

IF SuB-CODE IS ECC ERROR

! IF NOT ECC~FIELD-ONLY ERROR

END;

= DATA ERROR
IF EVENT CODE

IF UNIT NUMBER WAS FOUND
!

END;

IF FORMAT = SMALL DiSK ERROR

! IF ATTENDED AND ERROR LOG PRINTING WAS NOT SUPPRESSED

IF MANUAL AND (NOT (BIT_TST (SWP_FLAGS, SWwFf SEL)))
THEN
THEN
BEGIN

PRINTF

(EX_EL);

PRINTF (EXZCRN, .IENV_ADDR [CRN_LOD);
%EENF"T EQLU FM_SDE

PRINTF (EX_PA, .PLAD);
PRINTF (EX_FMTT;
SELECTONE -FMT OF

cmsemt
et mo
s -

AT
W
o~
o~

VYV
WTLA

! ¥5E3U8°CODE INDICATES ECC SYMBOL ERROR

IF ((.SBC GEQ EC1) AND (.SBC LEQ EC8))

I
AT VWA UL VI

INCREMENT STAT
OTHERWISE

BEGIN

END;

337

THEN

SETAD [ECC_ONLY] = .TAD [ECC_ONLY] ¢ 1

END;

A AV

TATE

TR TR IR T P RNN
X ] AR R
IRIRAR R I E M ET
R OE X

TS A

E PRPR PR PR
ANIR

TR PN YN
¥ (YN YN
TNPR
TNFE LN FE TN

PNPN ¥

UNIT = _ICST_ADDR [.OFFSET, P_UNIT];

X
A
R TR A A

11~-Jul~1983 08:44:52
8-Jul-1983 17: 43:57

"ERROR LOG MESSAGE RECEIVED: "

CMD REF NUM: XXXXXxX(0)''
= SMALL DISK ERROR
%EEZORHAT CODE

'
"

PLATTER: XXX.''
FORMAT: *'

SET

[FM_CNT, FM_BAD, FM_SDE]: PRINTF (.FMT_12 [.FMT]);

COTRERWISE]TM

TES.;

: PRINTF (EX 03, .FMT);

! PRINT TEXT

PotXXx(0)"’

CZRCD3
v01.0

CZRCDAO RC2S DISK EXERCISER
RC2SINTERRUPT SERVICE ROUTINES

:
:

5354
5355

:
:
:
:
:

5357
5358
5359
5360
5361

ELSE

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

SEQ 0336
VAX=11 Bliss=16 v3=555
?
_DUA2:[DOUCETTE.CZRCDICZRCD3.SRC;3 (56

PRINTF (EX_EVC);

THEN

PRINTF (EX_03, .EVC);
PRINTF (EX_SB,”.SBC);

' THEN
! PRINT EVENT CODE TEXT
! OTHERWISE
I 'XXX(0)""
[
SUB=-CODE: XXXX(0)*'

5363

THEN

! THEN

gggg

END;

5368

5356

5362

000036°'
000064°
000000
000000
000122°
0000006
0000006
0000006

002576
002600
002602
002604
002606
002610
002612
002614

0000006
0000006
000000G
0000006
0000006
0000006
0000006
0000006

000036
000036
000041
000044
000047
000052
000055
000060
000063
000064
000067
000072
000075
000100
000103
000106
000111
000114

PRINTF (.STC_TB L.EVC])

000
045
117
040
115
131
103
123
105
117

! IF HOST MEMORY ACCESS ERROR

PRINTF (EX_HMA, .IENV_ADDR [MA_LOJ], .IENV_ADDR [MA_HIJ);
'

END;

FMT.TB:

STC.TB:

.PSECT
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORCL
.WORD

$GGGS,
RO
FMT.CE
FMT.HMA
O
O
FMT,SDE
STC.00
STC.O01
STC.02

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD

STC.04
STC.0S
STC.06
STC.07
STC.08
STC.09
STC.10
STC.M

.PSECT
.ASC1I
ASCII
.ASCII
ASCII
ASCII
.ASCII
LASCII
LASCII
.ASCII
LASCII
LASCII
LASCII
LASCII
LASCI1
ASCI]
ASCII
.ASCII

SPLITS,
RO,
/%AC/
/ONT/
/ROL/
/LER/
/ FR/
/ROR/
/73IN/<00>
<00>
/%AHW/
/0ST/
7 NE/
/MOR/
/Y A/
/CCE/
/SS /
/ERR/
/OR%/

.WORD

101
116
117
105
105
117
116

103
124
114
122
122
122
000

P.AAC:

101
123
115
117
040
103
123
122
122

110
124
105
122
101
105
040
122
045

P.AAD:

' PRINT HOST ADDRESS

IF PRINTING WAS NOT SUPPRESSED

' ROUTINE DATAGM

0000006

045
117
122
114
040
122
045

EVENT CODE:

' IF EVENT CODE IS KNOUN

IF .FMT EQCU FM_BAD

gggg

002554
002554
002556
002560
002562
002564
002566
002570
002572

002574

IF .EVC LEGU 1M1

STC.03

8 N

g
Sump Bumg

$ueng Goung oung Do
g fumg $ommp P

Svag fmng brmg Srung Gumg P

/ROR/

/XIN/<00>

<00>

P.AAD
P.AAL

2%:

3s:

MOV
MOV
MoV
Mov

ADD
MovB8
CLRB
CMP
BNE
MOV
SWAB
8IC
BR

ADD

CMP
BLE
787

BLT

MOV
MOV

2(SP)
R

¥4

5283

(]

5284

6$’
2(SP)
14(RO)
, (SP)
#-1,R1

5288
5289

RO,R2

5293

#6,R0

JCST.ADDR,R2

(R2) ,~(SP)
1(SP)

2(SP),(SP)+
2%
(R2) ,R1
R1

§177740.R1
$
#2,R0

1$
R1
$
R1,=(SP)

lbb -(SP)

5297
-

177740

000060

#174000,R5

22(R0) ,RS

Omug

1¢:

000001
000002

000002
000014

ASR
ASR
ASR
ASR
ASR
8IC
CLR
CMP
BNE
INC

5282

c
=

000564

2177740, R3

MOV

174000
000002
000004

000002
000014
177777
000006

BIC

177740

000022

20(R0), a4
'R
22(R0)

[+ +]

Move

5281

000020
000022

IENV.ADDR.RO

=(SP) ,=(SP)

CLR
BISB

5240
TR

MOV

R1,$SAVES

L TE IR IR IR

000562°

DATAGM: JSR
CMP

TRTR FER PRYN|

0000006

DATAGM RC25 INTERRUPT SERVICE ROUTINES

S$CODES.,

.SBTTL

002441
010146
012746

/N/<00><00>
/XAS/

P.AAC

.PSECT

004137
024646
013700
005004
156004
116003
042703
016005
006205
006205
006205
006205
006205

VAX=11 Bliss=16 V3=555

SEQ 0337
?e 156

_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;3 (56

XTI
TIR]

FICICIICIIOIOIOD

2
2
0

A
.AS

wumnhnnhunmnunnomwm

OMNINWES

b b wwb b ek

P.AAE:

O NWVHNO
= = 0O

—d b ed ek Qb = D
=S =20ONSOOO

000
12

016554

000160

8-Jul -1983 17 :43: 5 I4

FMT.CE=
FMT.HMA=
FMT.SDE=

000036°
000064
000122°

000000
000004
000006
000012

11=Jul- 1983

DAO RC25 DISK EXERCISER
NTERRUPT SERVICE ROUTINES

D
N

OHN)

0001

OWVINO
= SN0

000117
000122

CZRCD3
v01.0

44 5 2
08

; %, 0FFSET
: OFFSET,+

5295
5290

¢ UNIT

5304

: UNIT,»

5308

v01.0

CZRCD3

CZRCDAO RC25 DISK EXERCISER
RC25 INTERRUPT SERVICE ROUTINES

000164
000170

0000006
0000006

VAX=11 Bliss=16 V3-555

_DUA2:[DOUCETTE. CZRCDICZRCD3.SRC.;3 (56
PC,BLSMUL
#TALLY,RO
RO,R2

32(R2)

000032
000010

R3,#10
5
44
RS,
43
56(R2)
5%
R5,#10
5%
R5.M17
5%
R5,RO
RO

000004

000056

48:

000010
000017

000016

(

(SP)+,(SP)+

: TAD,*
: «,TAD

s «.TAD
: TAD

SP,#
5342

17
;1,12(SP)
$
10(SP), (SP)

000012

5343
5345

#EX.PA,=(SP)
#2,-(SP)

78:

SP,RO
17
(SP)+, (SP)+

N#EX.FMT, (SP)
#1,-(SP)
TRAP

8$%:
9%:
MOV

5346

SP,RO

: SP,*

;s FMT

R4 .M
9$
Ré A4
10$
R4 RO
RO
(SP)
FMT.TB(RO),
#1,-(SP)

s FMT,¢

000001

002554
000001

; SBC,*

#EX.CRN,~(SP)

#2,-(SP)
SP,RO

TRAP

000426
000432

; SBC,*

SP.RO
17
IENV.ADDR,RO
, (SP)
10(R0)

000002

000004

; S8C,+

#1,-(SP)

0000006

020427
001011
010400
006300
016016
012746

; «(TAD)

15§

000010

005704
002403
020427
003403

; S8C,+

#EX.EL ,~(SP)

000562°
000010
000000G
000002

0000006
000001

=, TAD

#1,SWP.FLAGS

0000006

000000G
000001

000001

;

; «(TAD)
s EVC,»

50
158

6%:
000001

SEQ 0338
?e 157

5347

: FMT,»
s FMT,¢

5350

SEQ 0339

000436
000440
000442
000444

?e 158
VAX=11 Bliss=16 V3=555
(56
3
_DUA2: [DOUCETTE.CZRCDICZRCD3.SRC;

CZRCDAQ RC25 DISK EXERCISER

CZRCD3
v01.0

RC25 INTERRUPT SERVICE ROUTINES
010600
104417
000410
010416
012746
012746
010600

0000006
000002

10$:

101010

006303
016316
012746
010600

104417
000410
010316

012746
012746
010600
104417
005726
010516

012746
012746
010600

104417

020427
001016
013700

016016
016046
012746
012746
010600
104417
062706
062706
022626
000207

0000006
000001

118:

12%:

13%:

000002

000001

000562°
000042
000040

0000006

000003

000006

000024

148:

15%:

\l\l\lo*

ANV

END

ELUDOM

5351

: SP,+
(SP)
+
oex EVC

: EVC,*

5356

ASL
MoV
MOV
MOV
TRAP
BR
MoV
MOV
MOV
MOV
TRAP
TST
Mov
MoV
MOV
MOV
TRAP
CMP
BNE
MoV
MOV
MOV
MoV
MOV
MOV
TRAP
ADD
ADD

5358

CMP

RTS

#1,-(SP)
SP.RO

(SP)

12§

STC. TB(R3) (SP)

#1,-(SP)

SP,‘RO

17
138
R3,(SP)

NEX. 03 -(SP)

ne,~(

5355

; SP,x

: SP,«

:
;s EVC,®

5356
5360

SB.“O

: SP,»

R5,(SP)
NEX.SB,=(SP)

: SBC,+

SP,RO
17

: SP,+

: FMT,»

5362

IENV.ADDR,RO

5364

17
(SP)+

#2,-(SP)

R4 .M
149

42(R0), (SP)
40(RO) ,~(SP)

#EX.HMA,=(SP)
#3,-(SP)

SP,RO

: SP,»

.S
(SP)+,(SP)+

:
:

Base:
Routine
$SCODES + 16554
)
; Routine Size:
207 words,
23 words
: Maximum stack depth per invocation:

369
3 O
37
3 2

5347

TST
MOV
MOV
MOV
TRAP
CMP

BHI

002566°
000001

0000006

: FMT,«

MoV
MOV

MOV
TRAP

000013

0000006G
000002

MOV

104417

005726
012716
012746
010600
104417
020327

: SP,*

MOV
TRAP
BR

5361

5339
5240

11=Jul=1983 08:44:52
8-Jul=1983 17:43:57

CZRCDAD RC2S DISK EXERCISER
RC2S INTERRUPT SERVICE ROUTINES

CZRCD3
v01.0

0TS external references

.GLOBL
.GLOBL

.GLOBL

Psect Name
$GGGS
$CODES
SPLITS

words
71
3973
5e

Attributes
RO, 1 .,
RO, 1 ,
RO, D ,

REL,
REL,
REL,

LCL,
LCL,
LCL,

CON
CON
CON

LIBRARY STATISTICS

:
>

BLSMUL

PSECT SUMMARY

:
;
:
:

$SAVES, $SAVE4, $SAVE3S, S$SAVE?

BLSABS, BLSSHF, BLSDIV, BLSMOD

File

e Symbols ======--

Blocks

Total

276

_DUA2:[DOUCETTE.CZRCDICZRCDL.L16:9

oaded

249

COMMAND QUALIFIERS

BLISS /PDP11 CZRCD3.SRC/LIST/EN:NOEIS
3973 code + 763 daca words
02:09.4
Run Time:
02:51.6
Elapsed Time:
328 pages
Hemoc{ Used:
Size:

Compilation Complete

Percent

Read

SEQ 0340

?e159
VAX-11 Bliss=16 v3-555
_DUA2: CDOUCETTE.CZRCDICZRCD3.SRC;3 (56

F 11

11=Jul=1983 08:47:46

CZRCDG
0001

8-Jul=-1983 17:50:02

MODULE CZRCD4 ¢

0002

:
:

0005
0006
0007

BEGIN

8822

YSBTTL °'LASTAD AND SETUP'

?2%2

REQUIRE 'BLSMAC.REQ';

:
:
:

1535
1536
1537

LASTAD

1538

BGNPTAB

1541
1542
P 1543

ENDPTAB

BGNPTAB

1545

ENDPTAB

1547

ENDSETUP

P 1540

P 1544

1546

:
:
:
:

) =

! DIAGNOSTIC SUPERVISOR LIBRARY

BGNSETUP (2);

P 1539

! 1P, VECTOR, BR, PLAT ADDR

X0°172150°*, %0°'154', 5, O

' 1P, VECTOR, BR, PLAT ADDR

X0'172150°', 20'154°*, 5, 1
JTITLE

JIDENT

000000
000000

000002
000004

.ENABL

000034°

PSECT
BLSLAS::.WORD

000024°

P.AAA:

000000C

000006
000010

000004
172150

000022

000004

000012
000014
000016
000020

000024
000026
000030
000032
000034

000154
000005
000000
000000

000000

P.AAB:
P.AAC:

JWORD

C2ZRCD4 CZRCDAO RC2S5 DISK EXERCISER

/Vv01.0/

AMA

$XYZ$,
TSFREE

<<TSFREE=<BLSLAS+4>>/2>

.WORD

LSLAST+20

LWORD
.MWMORD
WORD
.WORD

154
S
O
O

.WORD
.WORD

.WORD

172150
000154
000005
000001
000000

P.AAD:

000004
000002
000004
000010’
000020°

LSLAST==
T$PTHV==
$LAS3=
SREM3=
$SLAS1=

000207

SEND.LINK::

000024’

IDENT = 'v01.0°,
ADDRESSINGMODE~ (ABSOLUTE)

0003
0004

Page

_DUA2:[DOUCETTE.CZRCDICZRCD4.SRC.2 (1)

XTITLE 'CZRCDAO RC2S DISK EXERCISER'’

:
:
:

VAX-11 Bliss=16 v3-555

SEQ 0341

.WORD
WORD
WORD
.WORD
TSFREE::.WORD

&
=5630

: PlLit count word

; PLit count word

]

-5630
154
S
1
O
BLSLAS+4
2
P.AAA
P.AAB
P.AAC

P.AAD

$SREMZ=

LSBTTL

SEND.LINK LASTAD AND SETUP

RTS

Routine Base: $xYZ$% + 0036
: Routine Size: 1 word,
0 words
invocation:
per
depth
; Maximum ?gzgk

1533

1549
1550
1551

END
ELUDOM

PSECT SUMMARY
P

Words
16

sect Name
$XY2$

Attributes
RO, I ,

COMMAND QUALIFIERS

BLISS /PDP11 CZRCD4.SRC/LIST/EN: NOEIS

Size:

Run Time:

Elapsed Time:

1 code + 15 data words
00:06.9

00:11.3

Hemoq{ Used:
96 pages
Complete
Compilation

LCL,

REL.

CON

a8
1 3

U'!b
o~

—O
~NGo

11=Jul=198
8-Jul=-198

CZRCDAQ RC2S DISK EXERCISER
LASTAD AND SETUP

CZRCDS
v01.0

VAX=11 Bliss=16 Vv3=555

SEQ 0342

Page

_DUA2: [DOUCETTE.CZRCDICZRCD4.SRC;2 (2)