Digital PDFs

AH-F118B-MC

March 1980

167 pages

Original

88MB

view download

OCR Version

129MB

view download

Document:	CZRLIB0 RL11,RLV11 RL01,02 DRIVE TEST1 MAR 1980 bw
Order Number:	AH-F118B-MC
Revision:	000
Pages:	167
Original Filename:	CZRLIB0__RL11,RLV11__RL01,02_DRIVE_TEST1__AH-F118B-MC__MAR_1980_gray.pdf

OCR Text

RL1L,RLVLL

RLO1/02 DRIVE TESTI
CZRLIBO

AH-F118B-MC

EEEHES SO

EAT

MAR

980

MADE

USA

8¢

.REM 3

SEQ 0001

IDENTIFICATION

THE

PRODUCT CODE:

AC=F1198-M(

PRODUCT NAME:

(CZRLIBO RLO1/02 DRIVE TEST 1

DATE CREATED:

5-JAN-79

REVISED:

7-DEC~79

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

D. DEKNIS, C. CAMPBELL

INFORMATION IN THIS

DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE
AND
SHOULD
NOT
BE
CONSTRUED
AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT
CORPORATION ASSUMES
NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOFTWARE
DESCRIBED
IN
THIS
DOCUMENT
IS
FURNISHED
TO
THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND
CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT
NOTICE)
ONLY

FOR_
USE
IN
SUCH
WRITING BY DIGITAL.

SYSTEM,

EXCEPT AS MAY OTHERWISE BE PROVIDED IN

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
&?Gfik{ABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

1979, DIGITAL EQUIPMENT CORPORATION

€.

TABLE OF CONTENTS

1.0
1.1
1.1.1

1.1.2

1.2
1.2.1
1.2.2
1.3
1.4
1.5

GENERAL INFORMATION
PROGRAM ABSTRACT

- STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

2.0
2.1
2.1 .1
Entel
2.2
2.3
2.3.1
2.3.2
2.4
2.5
2.6

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

3.0
>3
3.1.1
3.1.2
3.1.3
3.2

ERROR INFORMATION
ERROR REPORT ING
SPECIFIC OPERATION MESSAGES
SPECIFIC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS

4.0
4.1
‘.2

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

5.0

DEVICE INFORMATION TABLES

6.0

TEST SUMMARIES

THE FIVE STEPS OF EXECUTION

SAMPLE RUN-THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS

PAGE 2

SEQ 0002

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF PROGRAM

PAGE 3

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH XXDP+ AND ACT.
IT
CAN BE
RUN
STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP, ACT AND
APT IN ACT MODE (SEE 2.2 ''CHAIN MODE
OPERATION'' FOR DETAILS
OF
CHAINING PROCEDURE).
IT IS A SINGLE PROGRAM FROM THE STANDPOINT OF
THE DIAGNOSTIC USER, WHICH AT RUN TIME
IS
APPENDED
TO A
COMMON
FRONT-END PIECE OF SUPERVISOR SOF TWARE THROUGH WHICH THE DIAGNOSTIC
PROGRAM INTERFACES TO THE ENVIRONMENT AS IT EXECUTES.
WHEN

THIS

DIAGNOSTIC

STARTED,

CONTROL

GOES

FIRST

THE

SUPERVISOR PORTION,
WHI(H WILL ASK CERTAIN 'HARD CORE’'‘ QUESTIONS
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
INDICATED
BY
A PROMPT
CHARACTER
(DR>).
AT COMMAND MODE THE OPERATOR MAY
?;g;:uaqa(ag” SEVERAL
COMMANDS AS
DESCRIBED
IN 2.0 ‘OPERATING
THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWER 8K
OF
MEMORY.
THE
DIAGNOSTIC
SUPERVISOR
CODING
OCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE XXDP+ MONITOR WHICH RESIDES IN THE
UPPERMOST

1.5K OF MEMORY SPACE.

1.1.2

DIAGNOSTIC INFORMATION

THIS PROGRAM TESTS AND EXERCISES
RL01/02
DISK
DRIVES
RL11/RLV11
CONTROLLERS
(4
DRIVES PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN
ON THE FIRST DRIVE BEFORE STARTING ON
THE
SECOND.
THE
PROGRAM

STARTS

TESTING

THE

SIMPLEST

FUNCTIONS FIRST USING THE LOGIC

TESTED IN EARLIER TESTS
TO_
TEST
MORE
COMPLEX
FUNCTIONS.
THIS
PROGRAM
TESTS
THE
RLO1/02
INTERFACE AND BASIC DRIVE LOGIC.
GET
STATUS WITH RESET, GET STATUS, SEEK, AND READ HEADER ARE
THE
ONLY

COMMANDS EXECUTED IN THE PROGRAM.
ONLY SEEKS WITH O DIFFERENCE ARE
USED SO NO HEAD MOVEMENT IS REQUIRED.
A SIGNIFICANT PORTION OF THE
PROGRAM REQUIRES
MANUAL INTERVENTION.
THESE TESTS TEST THE COVER
OPEN AND WRITE LOCK STATUS.
THE DRIVE MUST BE LOADED AND
UNLOADED
TO
TEST
ALL
THE
CONDITIONS
OF HEADS OUT, BRUSH HOME, AND DRIVE
STATES.
THE PROGRAM CAN BE RUN IN AUTOMATIC MODE IN WHICH CASE ALL
TESTS REQUIRING MANUAL INTERVENTION ARE BYPASSED.
1.2

SYSTEM REQUIREMENTS

SEQ 0003

1.2.1

PAGE 4

HARDWARE REQUIREMENTS

* PDP=11/LSI=11 PROCESSOR WITH 16K OR MORE OF MEMORY

* CONSOLE DEVICE (LA30,LA36,VT50,ETC.)
* 1

OR 2 RL11/RLV11

CONTROLLER(S) WITH:

= 8 RLO1 DRIVES WITH RLOTK CARTRIDGES CONTAINING
SECTOR FILE'
1 = 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING
SECTOR FILE'

'BAD

* KW11P CLOCK
* LINE PRINTER (OPTIONAL)
1.4.2

SOF TWARE REQUIREMENTS

CZRLIBO RLO1/02 DRIVE TEST 1
(FORMERLY CZRL(B)

1.3

RELATED DOCUMENTS AND STANDARDS
RLOT DISK SUBSYSTEM USER'S GUIDE
XXDP+/USER'S MANUAL

1.4

(EK-RLO1-UG-002)

DIAGNOSTIC HIERARCHY PREREQUISITES

THE RLO1/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS
:

CVRLABO
CZRLGBO
CZRLHBO
R

RUN

THE

FOLLOWING

RLV11 RLO1 DISKLESS TEST (RLV11 ONLY)
RL11/RLV11 RLO1/02 CONTROLLER TEST (PART 1)
RL11/RLV1T RLO1/02 CONTROLLER TEST (PART 2)

ASSUMPT IONS
THE HARDWARE OTHER THAN THE RL01/02 SUBSYSTEM IS
ASSUMED
TO
WORK
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., DO

NOT FUNCTION PROPERLY.

2.0

OPERATING INSTRUCTIONS

SEQ 0004

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

1
PAGE 5

THIS DIAGNOSTIC PROGRAM SHOULD BE LOADED AND STARTED
USING
NORMAL
XXDP+
PROCEDURES.
START
THE
EXECUTION
OF THE XXDP+ MONITOR BY

USING THE APPROPRIATE BOOTSTRAP PROGRAM.
THE MONITOR WILL PRINT
A
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
EINJTU?;’E!D?
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR
THE
XXDP+

CHMDKAQO XXDP+ DK MONITOR NNK
BOOTED VIA UNIT O
ENTER DATE (DD-MMM-YY):
AFTER THE DATE HAS BEEN ACCEPTED BY THE MONITOR THE RESTART ADDRESS

(A)gKE[T)HE

MONITOR

IS PRINTED.

THEN THE FOLLOWING TWO QUESTIONS ARE

50 HZ ? N

LSI

THE DEFAULTS ARE BOTH 'NO''.
TYPE 'R'' AND THE PROGRAM NAME
THE PROGRAM.
DO NOT TYPE THE EXTENSION.
WHEN THIS DIAGNOSTIC

RUN

IS STARTED THE FOLLOWING STEPS WILL OCCUR:

(2222222224

*« STEP 1

L2282
2 3323

THE DIAGNOSTIC WILL ISSUE THE PROMPT 'DR>''.
THE
TIME
WHEN
YOU
RESTART
XXDP+,
YOU

DIAGNOSTIC, NOT XXDP+.
E’RGPT

%EBEING

WE WILL

REFER

FROM THIS POINT
UNTIL
WILL
BE TALKING TO THE

THE

PRESENCE

THIS

NOT

THE

DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+

AT THIS POINT YOU WILL ENTER A "'START'' COMMAND.

SAME
AS
THE
XXDP+
°‘'START'' COMMAND, WHICH YOU ALREADY ISSUED IN
RESPONSE TO THE XXDP+ DOT PROMPT.
THIS ''START'' COMMAND CAN TAKE
A
NUMBER OF
SWITCHES
AND
FLAGS
(ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
IN °2.3
DETAILS
OF
COMMANDS
AND
SYNTAX'',
HOWEVER,
IN
ORDER
TO
USE
THE
PROGRAM,
ALL YOU NEED TO SAY IS
SOMETHING LIKE THIS:

STA/PASS:1/FLAGS
:HOE

SEQ 0005

PAGE 6

THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF
THE "DR>'' LEVEL NEED TO BE TYPED.

COMMAND

THE "PASS'' SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE.

PASS

CONSISTS

THIS OR ANY

RUNNING THE FULL DIAGNOSTIC AGAINST ALL

UNITS BEING TESTED (THIS WILL BE EXPLAINED
PASS IS SPECIFIED

SHORTLY).

IN THE ABOVE EXAMPLE.

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF

BUT THE MAIN USEFUL ONES ARE:

NUMBER

PNT

PRINT NUMBER OF TEST BEING EXECUTED

HOE

HALT ON ERROR

LOE

FLAGS,

LOOP ON ERROR

IER

THE HOE

ONE

INHIBIT ERROR PRINTOUT

FLAG

WHY SHORTLY).

IS SPECIFIED

L2222

IN THE

ABOVE

EXAMPLE

(WE'LL

SEE

232224

* STEP 2 «
(2222222234

WHEN YOU HAVE TYPED IN A "'START'' COMMAND, THE DIAGNOSTIC WILL
COME
BACK
WITH
THE
QUESTION "% UNITS?'' TO WHICH YOU SHOULD RESPOND BY
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.
A WORD OF WARNING HERE:

DEVICE
OF
DIRECTED AT
NUMBER
OF
DIRECTED AT
THE

NUMBER

THE NUMBER OF UNITS DEPENDS ON THE

TARGET

THE
DIAGNOSTIC.
FOR
EXAMPLE,
IF
THE DIAGNOSTIC IS
A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
DRIVES
TO BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD
BE
OF

CONTROLLERS.

THE

TARGET DEVICE OF A DIAGNOSTIC CAN

ALWAYS BE DETERMINED BY INSPECTING THE 'HEADER'' STATEMENT NEAR

THE

BEGINNING OF THE SOURCE CODE.
ONE OF THE OPERANDS OF THIS 'HEADER''
STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.

L222222322

* STEP 3 «
L322

WHEN YOU HAVE TYPED IN THE

DIAGNOSTIC

WILL

223222

NUMBER

UNITS

ASK YOU THE 'HARDWARE QUESTIONS''.

THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE,

?Eg%ES".

TESTED,

THE

THE ANSWERS TO

CALLED

‘‘HARDWARE

ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE

POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

SERIES WILL

SEQ 0006

THIS

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

1
PAGE 7

ENGINEERING.

DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME
STANDARD ADDRESSES:
INSTEAD, THEY WILL ASK THE
OPERATOR
FOR
ALL
THE INFORMATION THEY NEED TO TEST THE DEVICE.

L2222 2232

* STEP 4 «

LA s

A2sl

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS

ALL

THE

UNITS,

YOU

WILL BE ASKED ''CHANGE SW?'' IF

(SEC

2.5)

FOR

YOU WANT TO BE

ASKED THE SOF TWARE QUESTIONS THAT DETERMINE THE
BEWAVIOR
OF
THIS
PROGRAM,
TYPE
'Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE

QUESTIONS, TYPE 'N''.

YOU

TYPE

'Y'"

YOU

WILL

ASKED

THE

SOF TWARE
QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOF TWARE P-TABLE IN THE PROGRAM.
THE SERIES OF QUESTIONS
WILL
BE

ASKED JUST ONCE,

REGARDLESS OF

THE NUMBER OF UNITS TO BE

TESTED.

Ahkkhhhhkhk

* STEP 5 «

L222223223

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS, THE DIAGNOSTIC WILL
BEGIN
TO EXECUTE THE HARDWARE TEST CODE.
THERE ARE SEVERAL THINGS
THAT CAN HAPPEN NEXT, DEPENDING ON
WHETHER
A
HARDWARE
ERROR
IS

ENCOUNTERED
AND
ALSO
ON WHAT
SWITCH VALUES YOU SELECTED ON THE
START COMMAND.
CONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED,

THEN THE DIAGNOSTIC WILL SIMPLY

EXECUTE
THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND
MODE (PROMPT DR>).
S
b

IF AN ERROR

ENCOUNTERED,,~THEN
ON

ONE

THE'“SETTINGS

THREE

THINGS

HAPPENS,

DEPENDING

OF ' THE HOE AND LOE

HOE SET:

THE ERROR U‘l'éb-BE REPORTED ON THE CONSOLE AND THE

DIAGNOSTIC WILL RETURN TO COMMAND MODE.

LOE SET:
THE DIAGNOSTIC WILL LOOP ENDLESSLY ON
OF CODE THAT DETECTED THE ERROR.
NEITHER HOE NOR LOE SET:

THE

BLOCK

THE ERROR WILL BE REPORTED ON THE

(C)(CJ&SS%DAND NORMAL EXECUTION WILL RESUME AS

NO ERROR HAD

SEQ 0007

1
PAGE 8

2.1.2

SEQ 0008

SAMPLE RUN-THROUGH

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL
THAT
WE ENTERED THE COMMAND ''STA/PASS:1/FLAGS:HOE''.
THIS WOULD BE A
VERY TYPICAL WAY TO RUN
THE
DIAGNOSTIC.
IF
NO ERRORS
ARE
ENCOUNTERED, THE SINGLE REQUESTED PASS WILL BE EXECUTED AND THE

PROMPT WILL BE RE-ISSUED.

IF AN ERROR IS ENCOUNTERED,

THE ERROR WILL BE REPORTED AND

PROMPT WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET).
g}% Igi?s ARE FOUR DIFFERENT WAYS YOU
CAN
GET
THE

ISSUE ANOTHER ''START'' COMMAND

ISSUE A "RESTART'' COMMAND (SAME

THE MOST

1, 2. 3. 4, AND 5 AGAIN)

THE

AT THIS
PROGRAM

(THUS GOING THRU ALL OF STEPS

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

ISSUE A ''CONTINUE'' COMMAND (EXECUTION WILL

(OMMAND

RESUME

EXCEPT

THE

BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR
HALT OCCURED.
NO QUESTIONS ASKED.
ISSUE A 'PROCEED'' COMMAND:
EXECUTION WILL
RESUME
AT
THE
INSTRUCTION
FOLLOWING
THE ERROR REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).
TYPICAL

THING TO DO HERE

DIFFERENT FLAG SETTINGS.

TO ISSUE

THE PROCEED,

PROBABLY YOU WOULD WANT

TO SAY:

BUT WITH

PRO/
: FLAG
IER:LOE : HOE=0
S
THIS WILL DO THE

FOLLOWING:

TURN ON THE IER (INHIBIT ERROR PRINTOUT)

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT

FLAG

INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.
THUS YOU CAN

STUDY THE ERROR OR SCOPE

IT OR WHATEVER.

PAGE 9

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WILL TAKE YOU
(T)HFT?EEOEHO}?ESLOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
1.

START

RESTART

CONTINUE

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
RUNNING THE

DIAGNOSTIC.

YOU WOULD

TYPE

CON/FLAGS
:HOE : IER=0:LOE=0
THIS WILL RESTORE

EXECUTION

THE

THE FLAGS TO THEIR

BEGINNING OF

ORIGINAL

THE ERROR DOES NOT RECUR, THE EXECUTION WILL
THE NEXT ERROR OR TO END OF PASS.

IF AT END OF
TWO CHOICES:
START

RESTART

YOU WOULD CHOOSE ONE,

AND

RESUME

IN.

FLOW RIGHT ON THRU

PASS YOU WANT TO RUN THE DIAGNOSTIC

VALUES

THE HARDWARE TEST YOU WERE

AGAIN,

YOU

HAVE

DEPENDING ON WHETHER YOU WANTED TO ANSWER THE

HARDWARE QUESTIONS AGAIN.

SEQ 0009

.
WSS

T
R
T
T

5
S
%

? N

CHANGE SW (L)

(L)

DRIVE TYPE = RLOT
BR LEVEL (0) 5 ?

EXECUTE DRIVE SELECT TESTS (L) N ?
EXECUTE HEAD ALIGNMENT SUPPORT (L) N ?
DO MANUAL

INTERVENTION TESTS

INPUT ERROR LIMIT (D) 20 ?

OO00000

Y ?

(L)

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1

UNIT 1

RL11

UD00D0D0D0D

174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLO1 (L) Y ?
BR LEVEL (D) 5 ?

0O0000Oo

UNIT O
RL1T (L) Y ?
BUS ADDRESS (0)

O0O0U0DUD0O0

? 2

(D)

O000

# UNITS

? Y

O000

CHANGE HW (L)

UNIT IS RLO1, RLOZ2
DR>STA/PASS
: 1/F LAGS : HOE

O9900

CZRLI TESTS THE RLO1-02 INTERFACE

AND BASIC DRIVE LOGIC

(L) N ? Y

CZRLI HRD ERR 00004 TST 003 suB 002 PC:004130
ERR HLT
DR>PRO/FLAGS
: IER: LOE : HOE=0

LOOK

D APR-79

MIGHT

.R CZRLIB
DRS LOADED
DIAG. RUN-TIME SERVICES REV.
CZRLI-B-0

DIALOGUE

THE FULL PRINT-OUT FROM THE ABOVE
(O=OPERATOR, D=DIAGNOSTIC):

D.O

(N=RL0O2)

PAGE 10

THIS

SEQ 0010

PAGE

LA A

diat

ittt

ittt iiiiiistisisld
]

AT THIS POINT THE DIAGNOSTIC

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.

YOU CAN SCOPE

THE ERROR UNTIL YOU HAVE LOCATED IT,

2.2

AR AR R AR RN

A R AR

THEN “C Our

AR AR R AR AR AR A AR AR AR A

AR AR

DR>CON/FLAGS :HOE : IER:LOE=0

D.O

CHANGE SW (L)

D.0

? N

E%RLI EOP 1

DR>RESTART/PASS:1

D.O

CHANGE SW (L)

D.0

? N

CHAIN MODE OPERATION
CHAIN MODE
OPERATION
CONSISTS
OF
THE
SEQUENTIAL
EXECUTION
OF
PROGRAMS
WITHOUT
OPERATOR
INTERVENTION.
ONLY PROGRAMS THAT HAVE

BEEN MODIFIED TO RUN IN
CHAIN MODE
CAN BE
CHAINED.
CHAINABLE
PROGRAMS ARE IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.

TO RUN CHAIN MODE, THE XXDP+ MONITOR USES AN ASCII FILE (KNOWN AS A
CHAIN FILE) LISTING THE PROGRAMS TO BE RUN AND THE NUMBER OF PASSES
EACH PROGRAM SHOULD RUN.
THIS FILE MUST BE ON THE SYSTEM DEVICE.
A CHAIN FILE MAY BE GENERATED BY USE
OF
THE
XTECO
TEXT
EDITOR.
THIS
FILE
MUST
HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN
ANY OF THE COMMANDS SUPPORTED BY THE XXDP+ MONITOR.
THE
COMMANDS
ézCQ%ERegC“
FILE
ARE
EXECUTED
IN THE ORDER IN WHICH THEY ARE
TO EXECUTED A CHAIN FILE

THE USER TYPES:

C FILNAM <CR> OR
<CR>
C FILNAM/QV
IN THE FIRST CASE THE PASS COUNT SPECIFIED IN
THE
CHAIN
FILE
IS
USED BY
THE
XXDP+ MONITOR
TO DETERMINE THE NUMBER OF PASSES TO
EXECUTE EACH PROGRAM.
IN THE SECOND CASE THE PROGRAM COUNT IS NOT
USED
AND
EACH
PROGRAM
IS
EXECUTED
ONLY
ONCE.
THE /QV SWITCH
PROVIDES A SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.

SEQ 0011

M
PAGE 12
WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE
HARDWARE/SOF
TWARE
SWITCH
REGISTERS
SHOULD BE SET TO 00C000.
THE XXDP+ MONITOR PRINTS EACH
COMMAND TAKEN FROM THE CHAIN FILE AND THEN
EXECUTES
THE
COMMAND.

WHEN

THE

LAST

COMMAND

OTHER

THAN

ANOTHER

COMMAND HAS BEEN

EXECUTED THE XXDP+ MONITOR TERMINATES CHAIN MODE AND TYPES A PROMPT

(.).
IT
IS READY TO ACCEPT ANOTHER COMMAND FROM THE CONSOLE.
IF
THE LAST COMMAND IS ANOTHER C COMMAND, THE CHAIN MODE WILL CONTINUE
AND THE CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

IF THE USER WISHES

TERMINATE

CHAIN

MODE

BEFORE

ITS

NORMAL

TERMINATION
HE
MAY
DO
SO BY
TYPING
A CONTROL/C.
HOWEVER, THE
MONITOR WILL NOT ABORT THE CHAIN MODE
UNTIL
IT
RECEIVES
PROGRAM
CONTROL FROM THE PROGRAM CURRENTLY RUNNING.

g.3

DETAILS OF

2.3. 1

TABLE OF

COMMANDS AND SYNTAX

COMMAND VALIDITY

THERE AREC FOUR
WAYS
OF
ENTERING
DIAGNOSTIC
COMMAND
MODE,
AND
DIFFERENT SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:

HOW ENTERED
t.

OPERATOR ENTERED

LEGAL COMMANDS
'RUN DIAG'

START
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

25%?;27

START

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART

SEQ 0012

“.

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

1
PAGE 13

START
RESTART

CONT INUE

PROCEED

PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

2.3.2
LA

COMMAND SYNTAX
AR RS

sttt

ittt

idi

ittt

iiisiisisissyy

STA(RT) /TESTS:TEST=LIST/PASS :PASS=CNT/FLAGS : FLAG=LIST/EOP: EOP-INCR
LAA AR A

ittt it

THE DIAGNOSTIC

SPECIFIED.

MAY BE

iids

IN CORE

THE

ittt

ettt

iissaiisiisslsy

IS EXECUTED IN ACCORDANCE WITH THE

MESSAGE '# UNITS?'' IS PRINTED.

SWITCHES

THE START COMMAND

ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THE FOLLOWING:

A) OPERATOR TYPED ‘RUN DIAGNOSTIC'' B) DIAGNOSTIC

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE
FLAG
SET
D)
OPERATOR
ENTERED
CONTROL/C.
AFTER
THE
OPERATOR RESPONDS TO ‘%

UNITS?'', THE HARDWARE DIALOGUE IS INITIATED.

THE
QUESTIONS
°'CHANGE
BECOME THE NEW DEFAULTS.

WHEN IT IS COMPLETED,

SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,
THEREFORE IT IS NECESSARY TO RELOAD
THE

PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.

THE SWITCH ARGUMENTS ARE AS FOLLOWS:

"TEST=LIST'' IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)
OR
RANGES
OF
DECIMAL NUMBERS
(1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE
EXECUTED.
THE NUMBERS ARE SEPARATED BY COLONS.
THE NUMBERS RANGE
FROM 1
TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.
THEY MAY BE
SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN NUMERICAL
ORDER
REGARDLESS
OF
THE
ORDER
OF
SPECIFICATION.
THE
DEFAULT IS TO
EXECUTE ALL TESTS.
"PASS=CNT'* IS A DECIMAL NUMBER INDICATING
THE
DESIRED NUMBER
OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC
(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAULT
IS
NON-ENDING
TEST
EXECUTION.
‘FLAG-LIST'' IS A SEQUENCE OF ELEMENTS
OF THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED BY
COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:
HOE HALT ON ERROR,

CAUSING COMMAND MODE TO BE ENTERED

ERROR IS ENCOUNTERED

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
WITHIN
THE
SMALLEST
DEFINED
BLOCK
OF
SUBTEST, OR TEST) CONTAINING THE ERROR

WHEN

CONTINUOUSLY

CODING (SEGMENT,

SEQ 0013

PAGE 14

IER INHIBIT ERROR REPORTING
IBE

INMIBIT BASIC ERROR REPORTS

IXE INHIBIT EXTENDED ERROR REPOFTS
PRI DIRECT ALL MESSAGES TO A LINZ PRINTER

PNT PRINT NUMBER OF

TEST BEING EXECUTED

BOE BELL ON ERROR

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS
ISR INHIBIT STATISTICAL REPORTS
IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC
ADR EXECUTE AUTODROP CODE

LOT LOOP ON TEST
EVL EVALUATE
THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE
EQUATED
TO
0
ARE
%gNé?eEN AtLF%tgng;Rgpsfé:}!Egls CLEARED.
IF THE FLAGS SWITCH IS

"EOP=INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN

(IN

TERMS

PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
DEFAULT IS AT THE END OF EVERY PASS.
LAAAAA

SR A

ittt

iii

ittt

ettt

THE

aiisigissssy

RES(TART) /TEST: TEST=LIST/PASS :PASS=CNT/FLAGS : FLAG-LIST/EOP:EOP-INCR/UNITS :UNIT=LIST
AR

AR AR

A AR AR

A AR A AR AR A A AR AR

AR A A AR AR

A AR AR AR

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE
SWITCHES
SPECIFIED.
HOWEVER,
NEW 'P-TABLES'' ARE NOT BUILT.
INSTEAD, THE
ONES IN CORE ARE USED.

THE QUESTION ''CHANGE SW?'' IS ASKED AND THE ANSWERS GIVEN BECOME THE
NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
Eg;:gg/cvu
A)
DIAGNOSTIC
IS
FINISHED
B)
HALT
ON
ERROR
()

SEQ 0014

PAGE 15

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

"UNIT=LIST'' IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING

WHICH UNITS ARE TO BE
TESTED.
THE
LOGICAL
UNIT
NUMBER
DESIGNATES
THE
POSITION OF THE P-TABLE IN CORE, ACCORDING
TO THE ORDER IN WHICH THEY WERE BUILT.
THE UNITS SPECIFIED
MUST NOT HAVE
BEEN DROPPED BY THE OPERATOR DROP COMMAND.

THE UNIT-LIST DEFAULTS TO 'ALL THAT HAVE NOT BEEN DROPPED
BY OPERATOR COMMAND''.
THE EFFECT OF THE UNIT-LIST LASTS
UNTIL THE NEXT START (WHERE IT IS

“ALL'") OR THE NEXT RESTART.

2.
LA

add

AUTOMATICALLY

RESET

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.
it

i d

dddt ittt adtiitidsiisiissddsy

CON(TINUE) /PASS : <PASS=CNT/FLAGS : <FLAG-LIST>
LAA AR

ddd

i iddiidiiiiisididiiiiiissisddsdsy

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT
ON
ERROR
OR
A
CONTROL/C.
THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINMING OF
THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE CHANGED.
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

DEFAULT FOR PASS=CNT IS THE UNSATISFIED PASS-CNT
PREVIOUS START OR RESTART

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

AR AR AT

AR AR AR A AR AR

FROM

THE

PRO(CEED) /FLAGS : <FLAG-LIST>
AARAAAAAAA
A AR AR AN Ak

COMMAND MODE MUST HAVE BEEN ENTERED
VIA A
HALT
ON
ERROR.
THE
EFFECT OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION
%L&fl;{iég‘%bfm CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

1.
L

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

EXIT
ARk
%

RETURN TO XXDP+ PROMPT MODE.

SEQ 0015

L2332

222223222332

PAGE 16

2223]

DRO(P) /UNITS:UNIT=LIST
LA

a2t

iadiidiisdddd

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gccn: Pi%ClE’E‘[T)IL A START COMMAND IS GIVEN.
A DROP CANNOT BE FOLLOWED

THERE IS ALSO A "DROP'' MACRO

INTERNAL

TO_

THE

DIAGNOSTIC,

WHICH

GIVES
THE
FACILITY
OF
AUTO-DROPPING.
THE DURATION OF A PROGRAM
DROP, HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART.
LA a s d

i ddidddddd
]y

ADD/UNITS :UNIT-LIST
222222

ddddddddssds

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN
PREVIOUSLY
DROPPED
BY
THE DROP COMMAND) TO THE TEST SEQUENCE.
AN ADD CANNOT

BE FOLLOWED BY A PROCEED.
L2 2 2223

PRI(NT)
LA 2

2 33

ALL STATISTICS TABLES ACCUMULATED BY THE
THE

ISR

(INHIBIT STATISTICAL REPORTING)

AR A AR AR

AR AR AR

DIAGNOSTIC

ARE

FLAG IS CLEARED.

PRINTED.

DIS(PLAY) /UNITS:<UNIT-LIST>
AR AR AR A AR AT AN A AR AR RS

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED
OUT
IN
THE FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED

BY THE OPERATOR ‘DROP'' COMMAND ARE SO DESIGNATED.
L

3 3324

FLA(GS)
La 2

2 3324

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

LA A

2 2423

ZFL (AGS)
LA 2

2 2223

ALL FLAGS ARE CLEARED.

SEQ 0016

2.4

PAGE 17

EXTENDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE
IS
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALED

THE

AS SOON AS THE QUESTION "W UNITS?'' IS ANSWERED (WITH THE NUMBER N),
SPACE
IN_ CORE IS ALLOCATED FOR 'N'' P-TABLES.
ALL OF THE P-TABLES
ARE OF THE SAME FORMAT, AND THERE IS A_ONE-TO-ONE
CORRESPONDENCE
BETWEEN
THE
HARDWARE
PARAMETER QUESTIONS AND
THE SLOTS IN THE
P-TABLE FORMAT.

IN GIVING

STRING

VALUES,

COMMAS

WITHOUT

INTESVSZ{LNEG VALUES MAY BE USED TO INDICATE A REPETITION OF THE LAST

A STRING OF VALUES MAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE).
IF
THE
VALUES
REPRESENT
PURE
NUMERICAL
DATA,
THIS
SAMPLE
RANGE
TRANSLATES TO THE STRING 6,7.8,9,10 (AN INCREMENT OF
1).
IF
THE
VALUES
ARE
ADDRESSES,
THE
SAMPLE RANGE TRANSLATES TO THE STRING

6.8.10 (AN INCREMENT OF 2).

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO
CONSTRUCT
A
SET
OF
P-TABLES.
ASSUME THAT WE AAVE 8 RL UNITS, AND THAT THERE
ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE
P-TABLE,
5 HARDWARE QUESTIONS IN THE DIALOGUE).
FOLLOWING IS THE DIALOGUE FOR

SYSTEM

HAS

LEVEL'' 5.

TWO

(2)

RL11

THIS

TYPE

RLOX

DRIVE

SYSTEM.

THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST 4 DRIVES

RLO2'S (ON THE SECOND CONTROLLER):
# UNITS

UNIT 0

RL1T

(L)

(D)

THIS

CONTROLLERS ALL TO BE SET AT 'BR

ARE

? 8

¥ ?

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOT1 (L) Y ?
BR LEVEL (0) 5 ?
UNIT &
RL1T (L) Y ?
BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOT (L) Y ? N

BR LEVEL (0) 5 ?

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE

DEFAULT

VALUES

ARE

USED
FOR
THE
CONTROLLER
TYPE
(QUESTION #1), CSR ADDRESS OF THE
CONTROLLER
(QUESTION #2),
THE
CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #3),
THE
DRIVE
TYPE (QUESTION #5), AND THE 'BR LEVEL''
(QUESTION #6).
THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR
QUESTION

#4 WAS ASSIGNED O THRU 3 FOR THE FIRST 4 P-TABLE SLOTS.

SEQ 0017

PAGE 18

THE SECOND TIME THRU THE P-TABLE QUESTIONS

THE'

(FOR THE RLO2 ASSIGNMENT

SECOND CONTROLLER), THE FIRST QUESTION DEFAULTED TO 'RL11"

TYPE CONTROLLER.

THE SECOND QUESTION WAS ANSWERED TO

REFLECT

THE

CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400).
THE SECOND
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION #3.
THE
RLO2
TEST UNIT NUMBERS WERE ASSIGNED VALUES O TO 3 IN QUESTION #4

AND THE DRIVE TYPE WAS SET FOR RLO2'S FOR THE REMAINING & UNITS
IN
QUESTION #5.
THE LAST QUESTION WAS DEFAULTED USING THE 'BR LEVEL''
FROM THE FIRST PASS.

2.5

HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS WILL BE ASKED
ON
A
START
COMMAND.
THE
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RL1T

(L) ¥?

ANSWER YES(Y) IF YOU HAVE AN RL11
RLV11 CONTROLLER.

BUS ADDRESS (0)

THE CONTROLLER.

INTERRUPT VECTOR OF

THE CONTROLLER.

(0) 0?

ANSWER WITH THE DRIVE(S)

DRIVE TYPE = RLOT1
ANSWER NO (N)

BR LEVEL

(0)

(L)

IF DRIVE

CONNECTED TO THE

CONTROLLER

?
IS AN RLOZ2

ANSWER WITH THE

2.6

YOU HAVE

160?

ANSWER WITH THE

DRIVE

174400?

ANSWER WITH THE BUS ADDRESS OF

VECTOR (0)

CONTROLLER, NO(N)

INTERRUPT PRIORITY OF

THE

CONTROLLER.

SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START,

RESTART,

OR
CONTINUE.
THEY
ALLOW
FLEXIBILITY
IN
THE
WAY
THE PROGRAM
BEHAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY
IN
THE
WAY
IT
RUNS.
THE
PARAMETERS
(AN BE MODIFIED ON A START,
RESTART, OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:

CHANGE S.W.

SEQ 0018

PAGE 19

A YES ANSWER WILL ASK THE FOLLOWING SOF TWARE
PARAMETER
QUESTIONS,
WITH
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS
TAKEN
g#AaT((TZzE.TEg(TNTROL Z

(*Z)

WILL

DEFAULT ALL REMAINING QUESTIONS AND

EXECUTE DRIVE SELECT TESTS (N)?

IF "'YES'' TESTS 5 AND 6 ARE EXECUTED IN THE FIRST PASS

THE

PROGRAM.
THESE TESTS REQUIRE MANUAL INTERVENTION TO CHANGE ADDRESS
PLUGS AND REQUIRE A FULL COMPLEMENT OF ADDRESS PLUGS (0 = 3).

EXECUTE HEAD ALIGNMENT SUPPORT (N)?

IF "YES'', TEST 11

IS EXECUTED IN THE FIRST PASS.

EXECUTE MANUAL INTERVENTION TESTS

;

IF "*YES'', TESTS 1, 2, 3, AND 4

éNTERE‘S\CE

OPERATIONS,

HEAD LOADING,

ARE

TEST

BASIC

AND ALL STATE

(20)?

THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF ERRORS ALLOWED.
LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS.
IF THE ERROR

LIMIT IS EXCEEDED,

3.0

EXECUTED

HEAD UNLOADING,

SPECIFY ERROR LIMIT (DECIMAL)
THIS

(N)?

THE DRIVE

IS DROPPED FROM FURTHER TESTING.

ERROR INFORMATION

ALL ERRORS ARE PRINTED
VIA
CONSOLE
DEVICE.
THE
ERROR
INCLUDES
ERROR
NUMBER,
TYPE AND PROGRAM LOCATION.
ERRORS INCLUDE REGISTERS BEFORE AND AT
ERROR WITH RELEVANT DATA.

3.1

ERROR REPORTING

MOST ERROR REPORTS HAVE

THE FOLLOWING FORMAT.

(1)
(2)

PROG NAME
ERR NUM
TEST NUM
SUBTEST NUM
ROUTINE TRACE SEQ (IN SEQ CALLED)
(ADDRESS)
(ADDRESS)

(3)

TEST DESCRIPTION

(4)

(ADDRESS)

OPERATION:

ERR PC

SEQ 0019

(5)
(6)
(7)
(8)
(9)
(10)
an

RESULT:
ADDRESS OF UNIT UNDER TEST
RLCS
RLDA
RLBA
RLMP
cyL
OP INIT
OP DONE
DRIVE STATUS
WORD NUM IS (XXXXXX) SB (YYYYYY)

(12)

TOTAL COMPARE ERRS:

(2Z2)

PAGE 20

(128)

THE ONLY EXCEPTION TO THE ABOVE FORMAT IS PURE
DATA
COMPARE
ERRORS
(NOT
[l)(E)TECTED
BY READ ERROR).
THEN THE FORMAT DOES NOT INCLUDE LINES 5 THROUGH

LINE 1

IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR.

éiECLIJlT)EgTI”ED BY NAME WITH THE NUMBER OF

THE

PROGRAM

TEST AND SUB TEST PRESENTLY BEING

THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES NOT REFER TO A
PHYSICAL
SUBTEST
WITHIN
A
GIVEN TEST.
RATHER IT REFLECTS THE NUMBER OF
TIMES A SUBTEST HAS BEEN EXECUTED WITHIN A TEST.
CONSEQUENTLY, ON
A
TEST
THAT

TESTS

INCREMENTAL

TYPE OF OPERATION

READ ALL HEADERS FROM BOTH SURFACES, ETC.)
OF WHERE IN THE TEST THE ERROR OCCURRED.
THE ERROR P.C.

(SUCH AS

INCREMENTAL SEEKS,

THE SUBTEST WILL BE

THE ERROR REPORT

WAS

FROM SUBROUTINES, THE
ERROR
P.C.
IS
NOT
SUFFICIENT
TO
IDENTIFY
LOCATION OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE IS PROVIDED.

THE

INITIATED.

IS THE PHYSICAL MEMORY LOCATION WHERE

DESCRIPTIVE

~ SINCE

MANY FUNCTIONS ARE SUBROUTINED, AND ERRORS ARE REPORTED

LINE 2 IS THE ROUTINE TRACE SEQUENCE.

WITHIN

THE

TEST

ACTUAL

LOCATION

(AS

OPPOSED

IF THE ERROR CALL IS INITIATED

WITHIN A ROUTINE),

THIS PORTION OF

FROM
THE

REPORT IS OMITTED.
IF THE CALL IS INITIATED FROM A ROUTINE (WHICH MAY
BE
CALLED BY
ANOTHER
ROUTINE,
WHICH MAY BE CALLED BY ANOTHER ROUTINE, ETC.
SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE PROVIDES
A
TRAIL
TO
THE
WITHIN THE

TEST THAT CALLED THE FIRST ROUTINE.

THE FIRST

ENTRY LISTED IS THE LOCATION WHERE THE FIRST ROUTINE WAS CALLED.

LINE 3 IS THE TEST DESCRIPTION AND IS ROUGHLY IDENTICAL TO THE NAME OF
TEST BEING PERFORMED.

LINE & IDENTIFIES THE ACTUAL HARDWARE FUNCTION

THAT

BEING

THE

PERFORMED.

ADDITIONAL
INFORMATION
ON THIS LINE IS DESCRIPTIVE OF SPECIFIC USE OF THE
FUNCTION.
FOR EXAMPLE, THE OPERATION LINE WILL READ ‘READ HEADERS
FOR
40

HEADERS'' WHEN ALL HEADERS ARE BEING READ FROM A TRACK.

LINE 5 IDENTIFIES THE ERROR THAT HAS BEEN DETECTED.
THE CONTENT OF LINE
5
IDENTIFIES WHAT
WAS BENG
TESTED (SUCH AS DRIVE READY, CONTROLLER ERROR,
DRIVE STATE, ETC.), WHAT IT IS AND WHAT

SHOULD

BE.

REPEATED IF MORE THAN ONE

TESTED ITEM IS FOUND IN ERROR.

IN ADDITION LINE 5

REPORT

WILL

ANY

OPERATION INCOMPLETE, HEADER CRC, ETC.

HARDWARE

DETECTED

LINE

ERRORS

MAY

SUCH

IN THIS CASE THE FIRST LINE PRINTED

AS RESULT WILL BE DETERMINED BY THE THREE
ERROR
BITS
OPI,
HNF/DLT,
AND
HCRC/DCRC.
THE LINE WILL BE DETERMINED AS IN THE FOLLOWING TRUTH TABLE:

SEQ 0020

HNF/DLT
1

DCRC/HCRC
1

OPI
1

1
0
1

0
1
0

1
0
0

LINE 6 IDENTIFIES THE PHYSICAL

ADDRESS IS BY UNIBUS ADDRESS OF

ME SSAGE
HDR NOT FND/HDR CRC/0PI

HDR NOT FND ERROR
DATA CRC ERROR
DATA LATE ERROR

THE

UNIT

UNDER

TEST.

THIS

HEAD

WHERE

THESE

CONTROLLER AND DRIVE NUMBER.

LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND
ARE APPLICABLE

IN THE REPORT)

ERROR

HDR CRC ERROR

ADDRESS
THE

PAGE 21

TO BE REPORTED.

%g‘filnggOVIDES THE CONTENTS OF CONTROLLER REGISTERS WHEN THE OPERATION WAS
LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER

REGISTERS

WHEN

THE

ERROR

BEING REPORTED
WAS DETECTED.
FREQUENTLY THE REGISTER CONTENTS OF OP INIT
AND OP DONE WILL BE DIFFERENT.
OP INIT
MAY
INDICATE
A
SEEK
WAS
BEING
PERFORMED BUT OP DONE MAY INDICATE THE ERROR WAS DETECTED BY A READ HEADER.
THE REASON IS THAT A SEEK WAS EXECUTED AND DID NOT PROPERLY POSITION
HEADS
AND WHEN THE READ HEADER WAS DONE THE HEADS WERE ON THE WRONG CYLINDER.

LINE 10 IS THE DRIVE STATUS.

THIS

LINE

ONLY

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS
OPERATION,
EITHER
DATA
OR
REPORTED FOR ALL READ ERRORS.

3.1.1

HEADERS.

REPORTED

DETECTED

ADDITION,

THE
A

RLMP

COMPARE

GOOD AND BAD DATA IS

SPECIFIC OPERATION MESSAGES

THE OPERATION MESSAGE (LINE 4) IS GENERATED IN A DYNAMIC
MANNER
BASED
THE
SUBSYSTEM
FUNCTION
BEING
EXECUTED
AT THE TIME OF THE ERROR AND

STATE OF

THE

FLAGS

THE

LOCATION

OPERATION MESSAGES ARE GIVEN BELOW.

TAGGED

‘OPFLAGS''.

THE

ON
THE

POSSIBLE

SEEK FROM (CYL NUM) DIFF (CYL DIFF) SGN (0O OR 1) HD (0 OR 1)
WHERE
THE
VALUES
ARE
GIVEN
IN
OCTAL.
THIS MESSAGE IS THE RESULT OF A SEEK OPERATION THAT
WAS VERIFIED BY A READ HEADER AND THE HEAD POSITION

AFTER

SEEK

ERROR.
(THE
ACTUAL HEAD POSITION IN THIS ERROR SITUATION IS GIVEN IN THE
RESULT LINE, LINE 5.)

READ DATA IS A READ DATA OPERATION WHERE SOME FORM OF
ERROR WAS
DETECTED
IN
THE
ACTUAL
READ OPERATION.
THIS ERROR COULD BE HARDWARE DETECTED SUCH AS DATA
CRC, HEADER CRC, HEADER NOT FOUND, ETC., OR A SOFTWARE DETECTED ERROR
SUCH
AS DRIVE READY RESET AFTER A READ DATA COMPLETED.

SEQ 0021

PAGE 22

READ DATA WITH DATA COMPARE IS AN ERROR THAT WAS DETECTED AS BAD DATA IN THE BUFFER AFTER A
READ
DATA
OPERATION.
WHEN
THIS
OPERATION IS REPORTED IT INDICATES THE ACTUAL READ
DATA OPERATION COMPLETED WITH NO DETECTED ERRORS BUT THE DATA WAS WRONG.
READ HEADER READ HEADER FOR 40 HEADERS =
READ HEADER FOR 40 HEADERS WITH HEADER COMPARE HAVE THE SAME GENERAL MEANING AS THE READ DATA

AND

READ

DATA

WITH

DATA

COMPARE.
MESSAGES HAVING THE OPERATION OF READ HEADER OR READ HEADER FOR
40 HEADERS ARE THE RESULT OF ERRORS DETECTED IN THE ACTUAL OPERATION WHILE
THE
READ
HEADER
FOR 40 HEADERS WITH HEADER COMPARE INDICATES NO ERROR IN

THE ACTUAL OPERATION BUT THE HEADER DATA ITSELF WAS
WRITE DATA RESET -

GET STATUS GET STATUS WITH RESET =

ARE ALL BASIC OPERATIONS.
AS BEFORE, THE ERROR
?}A{RD:Q!;&TGR SOFTWARE.
THE RESULT LINE (LINE 5)

IN ERROR.

DETECTION
CAN
BE
EITHER
WILL DEFINE THE REASON FOR

LD DRV UNLD DRV =
ARE OPERATION MESSAGES THAT WILL APPEAR IN THE REPORT WHEN THE
AND UNLOAD SEQUENCE IS BEING TESTED.

DRIVE

LOAD

ANOTHER GROUP OF OPERATION QUALIFIERS WILL BE REPORTED FOR OPERATIONS

THAT

FAIL

SPECIFIC

TESTS.

THESE

TESTS

ARE

THE WRITE/READ

OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE TEST.

OPERATION

TEST PART 2,

QUALIFIER

READ DATA WITH DATA COMPARE
READ DATA
WRITE DATA
READ HEADER
’

FOL O TO CC SEEK
FOL 255 TO CC SEEK
FOL WRITE (NO SEEK)
ADJ. CYL WRITTEN AFTER FWD SK
ADJ. CYL WRITTEN AFTER REV SK
SK FWD, WRT=SK REV, OVERWRT
SK REV, WRT=SK FWD, OVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF

THE QUALIFIERS.

THE

QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE THE REPORT MORE MEANINGFUL
BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF OPERATIONS BEING DONE.

THE QUALIFIERS 'FOL O TO CC SEEK'' AND 'FOL 255 TO CC
SEEK'® INDICATE
THAT
THE
SEQUENCE
OF
OPERATIONS
INCLUDED
A SEEK OF A GIVEN DIRECTION TO THE
CYLINDER WHERE THE TEST IS BEING PERFORMED.
THE "FOL WRITE

(NO SEEK)'' QUALIFIER MEANS THAT THE OPERATION WAS DONE AFTER

A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ.

SEQ 0022

PAGE 23

THE QUALIFIER '"'ADJ CYL WRITTEN AFTER FWD SK'' AND "‘ADJ CYL WRITTEN AFTER REV
SK'' WILL BE_
REPORTED ONLY
IN
THE ADJACENT CYLINDER INTERFERENCE TEST.

THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON THE CYLINDER UNDER
TEST
UA:% fi?;%gfi
THE
DIRECTION THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER

THE QUALIFIERS *'SK FWD, WRT=SK REV,

OVERWRT''

AND

°''SK

SEVEFIQ\%I?E‘E DIRECTION OF HEAD

BEFORE

THE

INITIAL

OVERWRT''

WILL

REPORTED

ONLY IN THE OVERWRITE TEST.
MOTION

REY,

WRT=-SK

FWD,

THESE QUALIFIERS
WRITE

AND

THE

THE QUALIFIER 'ON BAD SEC FILES'' WILL
BE
REPORTED
WITH
THE
WRITE
DATA
COMMAND
IF
THE
PROGRAM ABORTS THAT COMMAND BECAUSE THE WRITE wOULD BE ON
THE BAD SECTOR FILES.

3.1.2

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE (LINE 5) IS GENERATED DYNAMICALLY BASED
ON
THE
EXPECTED
RESULT
OF
THE OPERATION BEING TESTED.
SINCE OPERATIONS
ARE MONITORED DURING EXECUTION THE RESULT
MESSAGE
MAY
REPORT
AN
ERROR
DETECTED
DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
mE E%Eg’:

THE OPERATION.

ONLY THE FIRST ERROR SEEN IS REPORTED

THE GENERAL FORMAT FOR THE RESULT LINE

RESULT: (VAR 1)
WHERE VARIABLE

IS:

IS (VAR 2) SB (VAR 3) (OPTIONAL QUALIFIER)
1 CAN BE ONE OF THE FOLLOWING:

CONT ERR
DRV ERR
NON-EXSTNT MEM

HDR CRC
DATA CRC
HDR NOT FND
DATA LATE
HDR NOT FND/HDR CRC/OPI
DRV _RDY
SELECTED HEAD
VOL CHK

COVER OPEN
BRUSH HME

(CONTROLLER ERROR)
(DRIVE ERROR)
(NON-EXISTENT MEMORY)
(HEADER CRC ERROR)

(HEADER NOT FOUND)

(ALL 3 BITS SET)
(DRIVE READY)
(VOLUME CHECK)

WRT LCK

(BRUSH HOME)
(WRITE LOCK)

HDS OUT
DRV SEL ERR
DRV STATE
SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUT
CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE

(HEADS 0OUT)
(DRIVE SELECT ERROR)
(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)
(SKTO ERROR)
(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)
(OPI ERROR)

SEQ 0023

HDR/DAT ERR

(HDR CRC OR DATA CRC ERROR

HDR NOT FND/DAT LATE

(HDR NOT FOUND OR DATA LATE

cyL

(CYLINDER WHEN REPORTING A
SEEK ERROR)

BIT 11 OF CS REGISTER)

ERROR BIT 12 OF (S REGISTER)

\IIgRIABLE 2 WILL BE A VALUE THAT DEFINES WHAT
THIS CAN BE A 1 OR O TO INDICATE A

NUMBER

PAGE 24

(OCTAL)

SET

THE
RESULT

RESULT

ACTUALLY

CONDITIONS,

TO INDICATE THE DRIVE STATE, OR A NUMBER 0 TO 377

TO IDENTIFY A CYLINDER NUMBER.

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE

SHOULD

BE.

THE
OPTIONAL
QUALIFIER IS PROVIDED WHEN IT IS USEFUL TO KNOW WHEN
THE ERROR WAS DETECTED IN
THE
OPERATION BEING
PERFORMED.
THIS
QUALIFIER IS USED TO REPORT RESULTS SUCH AS:

BRUSH HME IS 1 SB
O IN STATE 2
HEADS OUT IS O SB 1 IN STATE 3
DRV RDY
IS O SB 1 IN DATA XFER
SELECTED HEAD IS 1 SB O IN CYCLE UP
DRV RDY
IS O SB 1 IN STATE 5
DRV RDY
IS 1 SB 0 IN SEEK W/0 MOTION
DRV RDY
IS O SB 1 IN 10MS
DRV RDY
IS 0 SB 1 IN 500MS
DRV RDY
IS O SB 1 IN SSECONDS
THESE RESULTS, WHEN SEEN WITH THE OPERATION MESSAGE, WILL
EXPLANATORY.

SELF

OTHER RESULT MESSAGES THAT CAN BE PART OF AN ERROR REPORT ARE:

"'INTERRUPT TOO LATE''
WHICH INDICATES THAT THE OPERATION BEING PERFORMED DID NOT COMPLETE
IN
THE
EXPECTED AMOUNT OF TIME.
THIS RESULT CAN BE CAUSED BY THE
DRIVE LOSING READY BEFORE STARTING A READ HEADER AND THEREFORE
NOT
COMPLETING THE READ HEADER IN 1MS.

"FAIL TO RELOAD HEADS AFTER ERR CLEAR''
THIS IS REPORTED WHEN AN ERROR CAUSES HEADS TO UNLOAD AND AFTER THE

ERROR IS CLEARED THE HEADS DO NOT RELOAD.

"UNKN DRV STATE-NO RDY, NO ERR, HDS OUT''
THIS

IS REPORTED WHEN THE PROGRAM CANNOT DETERMINE

OR STATUS.

THE DRIVE

STATE

SEQ 0024

PAGE 25

"WRITE ABORTED''
THIS IS REPORTED WHEN THE PROGRAM ABORTS A WRITE TO PROTECT THE BAD

SECTOR FILES.

"'COULD NOT RETRIEVE DRIVE STATUS'
THIS IS REPORTED IF

THE

GET

STATUS

COMMAND

DOES

NOT

COMPLETE

SUCCESSFULLY WHEN THE STATUS IS REQUIRtD TO REPORT AN ERROR.

"OP1 SET-NO DRIVE RESPONSE''
THIS IS REPORTED AS THE RESULT WHEN THE GET STATUS COMMAND IS TIMED
OUT
(OPI_
SETS) WHEN THAT COMMAND IS BEING USED IN THE EARLY TESTS
TO CHECK THE DRIVE

INTERFACE.

"NO INTERRUPT ON CMND COMPLETE''
THIS IS REPORTED WHEN THE COMMAND SUCCESSFULLY
CONTROLLER HAS NOT GENERATED AN INTERRUPT.

COMPLETES

BUT

THE

"ERR DID NOT CLEAR''
THIS IS
REPORTED
WHEN
THE
RESET
COMMAND
DOES
NOT
CLEAR
THE
CONTROLLER
ERRORS.
THIS
IS
A
CONTROLER RELATED PROBLEM BUT IS
REPORTED IF SEEN IN THE DRIVE TEST PROGRAMS.

"DRV ERR IS NOT CLEARED'
THIS IS REPORTED WHEN THE GET STATUS W/RESET COMMAND DOES NOT CLEAR

ALL DRIVE ERRORS.

"UNEXPECTED ERR''
THIS IS REPORTED WHEN THE CONTROLLER SENSES AN ERROR BUT
BITS ARE SET.

ERROR

"BAD SEC FILE FMT ERR''
THIS IS REPORTED IF THE CONTENTS OF THE FILES DO NO
CORRESPOND
TO
THE
EXPECTED
FORMAT.
(REFER
TO
DEC
STANDARD
144
FOR FORMAT

SPECIFICS.)

3.1.3

OTHER MESSAGES

%rgfn INFORMATION IS REPORTED UNDER VARI,OUS

CIRCUMSTANCES.

THESE

SEQ 0025

"BAD SEC FILES NOT STRD.

PAGE 26

ALL SEC ASSUMED GOOD.''

THIS MESSAGE IS PRINTED WHEN A PARTICULAR
TEST
REQUIRES
THE
BAD
SECTOR
FILES BUT
THEY HAVE NOT BEEN STORED.
THIS SITUATION WILL
OCCUR IF THIS TEST IS STARTED OUT OF THE NORMAL PROGRAM SEQUENCE OR
IF THE BAD SECTOR FILES COULD NOT BE READ.

"ERROR LIMIT EXCEEDED-UNIT DROPPED''
THIS

g:ES(SZIFIED

3.2

REPORTED

(WITH

THE

NUMBER OF ERRORS

UNIT

NUMBER)

WHEN

THAN

THE

(DEFAULT 20) HAVE OCCURED IN ANY SINGLE

ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED
WITH /FLAG:HOE.

THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THE

SECTION

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

4.2

PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

5.0

DEVICE INFORMATION TA3LES
THE RL11/RLV11

CONTROLLER HAS THE FOLLOWING FOUR(4)

CONTROL OF THE SUBSYSTEM.

RLCS = CONTROL AND STATUS REGISTER (XXXXX0)

BIT
BIT
BIT
BIT

15 - COMPOSITE ERROR
14 - DRIVE ERROR

13 = NON EXISTANT MEMORY ERROR
12 = HEADER NOT FOUND (WITH BIT 10 SET)
= DATA LATE

(WITH BIT 10 CLEAR)

BIT 11 - HEADER CRC (WITH BIT 10 SET)
= DATA CRC (WITH BIT 10 CLEAR)
BIT 10 - OPERATION INCOMPLETE

REGISTERS

FOR

SEQ 0026

BIT
BIT

9/8 - DRIVE SELECT (0-3)
7 = CONTROLLER READY

BIT 6 = INTERRUPT ENABLE
BIT
5 - EXTENDED BUS ADDRESS (BIT 17)
BIT & - EXTENDED BUS ADDRESS (BIT 16)
BIT 3=1 = FUNCTION CODE
0 = NOP _(PDP=11) MAINT (LSI-11)
1 = WRITE CHECK

2 = GET DRIVE STATUS
3 - SEEK

4 = READ HEADER
5 = WRITE DATA

6 = READ DATA
7 = READ WITHOUT HEADER COMPARE
BIT

0 - DRIVE READY

RLBA = BUS ADDRESS REGISTER (XXXXX2)

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT O SHOULD BE 0
RLDA - DISK ADDRESS REGISTER

(XXXXX&)

FOR READ/WRITE FUNCTIONS

BIT 15-7 - CYLINDER ADDRESS FOR TRANSFER
BIT 6 = SURFACE FOR TRANSFER
BIT 5-0 - SECTOR FOR TRANSFER (1-40.)
FOR S SEEK FUNCTION

BIT 15-7 - DIFFERENCE TO NEW CYLINDER
BIT 6-5 - MUST BE ZERO (0)
BIT & - SURFACE (O=UPPER, 1=LOWER)
BIT 3 - MUST BE ZERO (0)
BIT 2 - SEEK DIRECTION( 1=IN / 0=0UT )
BIT 1 - MUST BE ZERO (0)
BIT 0 - MUST BE ONE (1)
FOR GET STATUS FUNCTION

BIT
BIT
BIT
BIT
BIT

15-4 - IGNORED SHOULD BE ZERO (0)
3 - DRIVE RESET
2 - MUST BE ZERO (0)
1 - MUST BE ONE (1)

0 - MUST BE ONE (1)

PAGE 27

SEQ 0027

PAGE 28

RLMP = MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION

BIT 15 = 0 = WORD COUNT

(TWO'S COMPLEMENT)

FOR READ HEADER FUNCTION

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ)
= ZERO WORD (SECOND READ)
= HEADER CRC (THIRD READ)
FOR GET STATUS FUNCTION

HAS DRIVE STATUS

BIT
BIT
BIT
BIT

BIT
BIT

15
14
13
12
11
10
9
8
7
6

BIT

& - HEADS HOME

BIT
BIT
BIT
BIT
BIT

= WRITE DATA ERROR
= CURRENT HEAD ERROR (CHE)
= WRITE LOCK STATUS (WL)
- SEEK TIME OUT (SKTO)
- SPIN ERROR (SPE)
- WRITE GATE ERROR (WGE)

=
5 -

VOLUME CHECK (VC)
DRIVE SELECT ERROR (DSE)
DRIVE TYPE IS RLO2 IF SET
SURFACE (0=UPPPER, 1=LOWER)
COVER OPEN

BIT _3 - BRUSHES
BIT 2-0 -STATE BITS

= LOAD STATE
1 - SPIN UP

2 = BRUSH CYCLE
3 - LOAD HEADS

4 - SEEK = TRACK COUNTING

5 = SEEK = LINEAR MODE
6 = UNLOAD HEADS
7 = SPIN DOWN

6.0

TEST SUMMARIES

TEST 1

BASIC INTERFACE TEST (PART 1)

LOAD IN DRIVE NUMBER.
DO GET STATUS WITH RESET.
IF OPI SETS:
DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
MARKER DETECTION FAILED
DRIVE IS NOT SELECTING OR AC LOW IS SET

SEQ 0028

PAGE 29

SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.
IF

_INTERRUPT WITH NO OPI, CHECK STATUS RECEIVED.

AND BRUSH HOME SHOULD BE SET.

IF NOT:

COVER

OPEN

BAD STATUS DATA LINE
BAD COVER SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWITCH OR LOGIC

CHECK WRITE LOCK STATUS BIT SET.
IF NOT:
BAD SWITCH OR WRITE LOCK LOGIC
DRIVE COMMAND SHIFT REGISTER
CHECK STATE FOR 0.
IF NOT:
BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER
CHECK VOLUME CHECK RESET.
IF NOT:
BAD RESET DETECTION
BAD VOLUME CHECK LOGIC

DRIVE COMMAND SHIFT REGISTER

CHECK DRIVE ERROR RESET.

IF NOT:

BAD DRIVE ERROR INTERFACE
SOME OTHER ERROR STUCK ON. REPORT WHICH ERROR.
NOTE:

TEST 2

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

BASIC INTERFACE TEST (PART 2)

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE LOCK.

DO GET STATUS LOOP
RESETS.
WAIT
15

(CHECKING
IF
COVER
OPEN OR
WRITE
LOCK
SECONDS FOR BOTH TO CHANGE.
IF NO CHANGE,

ASK OPERATOR TO TYPE CR IF PROCEDURE WAS FOLLOWED.

IF ONE CHANGED BUT NOT THE OTHER, REPORT WHICH FAILURE:
WRITE LOCK SWITCH OR LOGIC
(OR) COVER OPEN SWITCH OR LOGIC

DRIVE COMMAND SHIFT REGISTER

IF NEITHER CHANGED, REPORT BOTH FAILURES.
NOTE:

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

SEQ 0029

TEST 3

PAGE 30

HEAD LOADING TEST

(P=CLOCK REQUIRED)
REQUEST OPERATOR TO PRESS LOAD SWITCH.

DO GET STATUS LOOP CHECKING FOR STATE TO GO
TO
1.
WAIT
30
SECONDS
FOR
CHANGE.
IF
NO CHANGE, ASK OPERATOR TO CONFIRM
ACTION BY TYPING CR.

IF LOAD WAS PRESSED:

BAD STATE ROM
BAD LOAD SWITCH OR LOGIC

CHECK THAT STATE 1 REMAINS FOR LESS THAN 30 SECONDS.

IF NOT:

SPINDLE NOT TURNING OR TOO SLOW (AC SERVO)
SECTOR PULSE DETECTION OR LOGIC BAD
BAD CLOCK SHIFT REGISTER IN SPEED CONTROL
BAD DISK ON SPEED LOGIC
BAD STATE ROM
AND CHECK IF

SPINUP TIMEOUT ERROR SET.

IF NOT:

BAD STATE ROM
BAD TIMEOUT DETECTION LOGIC

CHECK THAT STATE GOES TO 2.

IF NOT:

BAD STATE ROM
CHECK THAT BRUSH HOME

IS 2.

IF NOT:

IS RESET 5 SECONDS OR LESS

BAD BRUSH HOME SWITCH OR LOGIC
BAD BRUSH MOTOR (AC SERVO)

WAIT 30 SECONDS FOR BRUSH HOME TO SET.

IF NOT:

BAD AC SERVO
BAD SWITCH OR LATCH

CHECK THAT STATE HAS CHANGED TO 3.

IF NOT:

BAD STATE ROM
AFTER STATE IS 3,

CHECK HEADS OUT IS SET.

BAD SEEK CONTROL ROM
BAD VELOCITY ROM
BAD DC SERVO

IF NOT:

AFTER

STATE

SEQ 0030

CHECK VOLUME CHECK IS SET.

PAGE 31

IF NOT:

BAD VOLUME CHECK LOGIC
CHECK IF DRIVE ERROR IS SET.

IF NOT:

BAD DRIVE ERROR LOGIC OR INTERFACE
WAIT 300 MS FOR STATE TO CHANGE TO 4.

IT DOESN'T

CHANGE
:

STATE ROM BAD
SEEK _ROM
VEL ROM
GUARD BAND DETECTION
WAIT 15 MS FOR STATE TO CHANGE TO 5.

8 MS AFTER STATE GOES TO 5, DRIVE READY SHOULD SET.

IF NOT:

INTEGRATOR OR NULL DETECTION FAILURE

READY ONE SHOT BAD

ENABLE TIMEOUT H NOT SETTING OR COUNT LOGIC BAD
NOTE:

TEST 4

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

HEAD UNLOADING TEST

(P=CLOCK REQUIRED)

CHECK DRIVE IS READY.
DRIVE READY.

IF NOT REPORT AND ASK OPERATOR TO

MAKE

REQUEST OPERATOR TO UNLOAD DRIVE.

LOOP ON GET STATUS WAITING FOR STATE
:
CHANGE

TO CHANGE

TO STATE

BAD STATE ROM
BAD SWITCH

WAIT 300 MS FOR STATE TO CHANGE TO 7.

IF NO CHANGE:

BAD STATE ROM
AFTER STATE IS 7, WAIT 30 SEC FOR STATE
:
IF NO CHANGE

NO BRAKING
BAD AC SERVO

TO CHANGE

SEQ 0031

SEEBISST OPERATOR TO LOAD
NOTE:

TEST S

DRIVE.

WAIT

UNTIL

DRIVE

PAGE 32

BECOMES

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,
AND IS RUN IN FIRST PASS ONLY.

DRIVE SELECT TEST

INSTRUCT THE OPERATOR TO REMOVE DRIVE ADDRESS PLUGS
FROM ALL
DRIVES
EXCEPT THE DRIVE UNDER TEST.
ASK THAT CARRIAGE RETURN
BE TYPED WHEN DONE.
DO GET STATUS TO ADDRESS OF DRIVE UNDER TEST.
CHECK
THAT
NO
ERRORS ARE REPORTED.
DO GET STATUS TO ALL OTHER ADDRESSES AND
CHECK THAT OPI SETS FOR ALL OTHER ADDRESSES.
DO GET STATUS TO ADDRESS OF NEXT

THAT
NO
ERRORS
ARE
REPORTED.
ADDRESSES AND CHECK THAT OPI SETS.
REPEAT FOR ALL DRIVE ADDRESSES

AFTER 3).

NOTE:

SEQUENTIAL
DO

ADDRESS.

CHECK

GET STATUS TO ALL OTHER

(0,1,2,3

SEQUENTIAL

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND IS

RUN IN FIRST PASS ONLY.

TEST 6

DRIVE

SELECT ERROR TEST

(P-CLOCK REQUIRED)
REQUEST OPERATOR

INSERT

IDENTICAL ADDRESS PLUGS

IN TWO

(MUST
BE_
IDENTICAL
TO
NUMBER
SPECIFIED EARLIER).
OPERATOR TYPE CARRIAGE RETURN WHEN READY.
PROCEDURE WILL BE

TO GET STATUS AND

CHECK

FOR

DRIVE

DRIVES

REQUEST

SELECT

ERROR.
THEN RESET
THAT
DRIVE AND VERIFY THAT DRIVE SELECT
ERROR IS NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE DRIVE
SELECT
TO A
DIFFERENT
NUMBER AND BACK AGAIN.
DRIVE SELECT
ERROR SHOULD SET AGAIN.
OPERATOR SHOULD SEE THE FAULT LIGHT ON
INDICATOR IS NOT SEEN ON A DRIVE:

BOTH

DRIVES.

DRIVE SELECT ERROR DETECTION IS BAD IN THAT DRIVE.
NOTE:

THIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE .s?
IS SELECTED, DRIVE SELECT TESTING IS REQUESTED, AND I
RUN IN FIRST PASS ONLY.

SEQ 0032

PAGE 33

L3222
2d 222

STANDARD TESTS
LAARl
ddd ]

_THE PROGRAM OPERATION MODE 1

IS SELECTED,

THIS WILL BE

FIRST
TEST
EXECUTED.
THE
DRIVE(S)
TO
BE
POWERED UP, HEADS LOADED, AND WRITE LOCK RESET.

TEST 7

THE

TESTED MUST BE

INITIAL STATE TEST

(P=CLOCK REQUIRED)

DO GET STATUS, WAIT FOR INTERRUPT.

IF OPI OCCURS:

DRIVE INTERFACE IS DEAD
DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
DRIVE IS NOT SELECTING OR AC LOW IS SET
SYSTEM OR STATUS CLOCKS NOT OPERATIONAL
GET STATUS DETECTION FAILED.

_INTERRUPT OCCURS WITHOUT OPI, CHECK DRIVE READY.

ng:‘gs

HEADS

ARE

LOADED

AND

IF MANUAL INTERVENTI(N TESTS WERE RUN,
SELECTED.
IF NOT:

ARE

READY SET

TRACKING

CHECK THAT

(POSITION

HEAD

DRIVE CYCLE UP DID NOT SELECT HEAD 0
IF DRIVE READY IS SET, CHECK STATUS MESSAGE
OUT AND BRUSH HOME MUST BE SET.
IF NOT:

RECEIVED.

HEADS

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING
HEADS OUT OR BRUSH HOME SWITCH OR ASSOCIATED
CIRCUITRY BAD
STATUS DATA BAD
IF MANUAL

INTERVENTION TESTS WERE RUN AND THIS

PASS CHECK THAT VOLUME

CHECK AND DRIVE ERROR ARE

CHECK ALL ERROR BITS ARE 0.

CHECK STATE IS 5.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD

THE

SET.

FIRST

SEQ 0033

TEST 8

INITIAL RESET STATE

PAGE 34

TEST

DO GET STATUS HEAD SELECT = 0, WAIT FOR INTERRUPT.
DO GET STATUS WITH RESET,
WAIT
FOR
INTERRUPT.
BOTH
ERROR AND VOLUME CHECK SHOULD NOW BE RESET.
IF NOT:

DRIVE

RESET DETECTION, RESET ERROR, OR VOLUME CHECK FLOP BAD
DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECTED BIT SHOULD STILL BE ZERO.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECT SHIFT REGISTER NOT LOADING
TEST 9

DRIVE READY TEST

(P=CLOCK REQUIRED)

DO
SEEK WITH O DIFFERENCE,
SIGN 0,
HEAD
0.
INTERRUPT.
GET STATUS.
C(HECK STATE IS 5.
IF NOT:

WAIT

FOR

DIFFERENCE COUNTER PICKING UP BITS
COUNTER CIRCUITRY IS NOT INDICATING O DIFFERENCE
CHECK DRIVE READY IS RESET.

IF NOT:

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD
WAIT APPROX 8 MS FOR READY TO SET.

DOESN'T SET AT ALL:

TAKES

LONGER

HEADS MAY HAVE MOVED (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED

CHECK DRIVE ERROR DID NOT SET.

REPORT WHICH ERROR.

VERIFY HEAD SELECT IS ZERO.

IT SET, DO GET

STATUS

AND

SEQ 0034

PAGE 35

TEST 10 SEEK SIGN SWITCH TEST
(P=CLOCK REQUIRED)

SEEK

INTERRUPT.

WITH

DIFFERENCE

SIGN

HEAD

GET STATUS AND CHECK STATE is '5

IF NOT:

WAIT

FOR

COUNT ROM

DIFFERENCE COUNTER PICKING UP BITS

COUNTER CIRCUITRY IS NOT INDICATING O DIFFERENCE

VERIFY DRIVE IS NOT READY
WAIT APPROX 8 MS FOR READY TO SET.
DOESN'T SET AT ALL:

TAKES

LONGER

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED
COUNT ROM

VERIFY DRIVE ERROR DID NOT SET
VERIFY HEAD SELECT

IS ZERO.

DO SEEK WITH O DIFFERENCE,
ABOVE TESTS.
TEST

OPPOSITE

SIGN,

HEAD

REPEAT

11 HEAD ALIGNMENT SUPPORT ROUTINE
THIS TEST IS EXECUTED WHEN HEAD ALIGNMENT SUPPORT
AND IN THE FIRST PASS ONLY.

IS REQUESTED,

THIS TEST SELECTS THE DRIVE UNDER TEST
AND
LOOPS
ON
A
GET
STATUS
WITH
RESET.
THE WRITE LOCK BIT IS MONITORED AND WHEN
WRITE LOCK IS RESET HEAD O IS SELECTED AND WHEN WRITE LOCK
IS

SET HEAD
1
IS
SELECTED.
THIS WILL PERMIT THE HEADS TO BE
ALIGNED IN KEEPING WITH THE PRESENT HEAD ALIGNMENT
PROCEDURE

WITHOUT RETURNING TO THE CONSOLE.

TYPING A CARRIAGE RETURN ON THE CONSOLE
WILL
TERMINATE
THIS
TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING, THE TEST
WILL CHECK THAT WRITE LOCK IS RESET.
IF
NOT,
THE
OPERATOR
WILL BE REQUESTED TO RESET WRITE LOCK.

TEST 12 HEAD SWITCHING TEST
(P=CLOCK REQUIRED)

SEEK

INTERRUPT.

WITH

DIFFERENCE,

SIGN

HEAD

GET STATUS AND CHECK STATE 1S 5.

IF NOT:

DIFFERENCE COUNTER IS PICKING UP BITS

ASSOCIATED CIRCUITRY IS BAD
VERIFY DRIVE READY RESET.

IF NOT:

WAIT

FOR

SEQ 0035

3
PAGE 36

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD
WAIT APPROX 8 MS FOR READY TO SET.

DOESN'T SET AT ALL:

TAKES

LONGER

HEADS ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED
DRIVE CANNOT TRACK WITH THIS HEAD
VERIFY DRIVE ERROR DID NOT SET.

DO GET STATUS,

CHECK HEAD SELECT IS CORRECT.

IF NOT:

HEAD SELECT REGISTER BAD

DRIVE COMMAND SHIFT REGISTER BAD
?gs'.TiEEK WITH O DIFFERENCE,

TEST 13 READ HEADER TEST

SIGN

HEAD

REPEAT

ABOVE

(PART 1)

DO SEEK WITH DIFFERENCE O, HEAD O, SIGN 0.
AND WAIT FOR DRIVE READY.

WAIT FOR INTERRUPT

DO READ HEADER, WAIT FOR INTERRUPT.
CHECK IF HEADER CRC ERROR SET.

SET:

READ/WRITE BOARD BAD
READ DATA LINE BAD

E;‘E&K)TIF BIT 6 OF WORD 1

IS SAME AS HEAD SELECT BIT

IN STATUS.

HEADS ARE SWITCHED (CABLE)
HEAD SELECT LOGIC
IF MANUAL INTERVENTION TESTS WERE RUN AND HEAD ALIGNMENT TESTS
WERE
NOT
RUN,
CHECK
THAT HEADER WORD O INDICATES HEADS ARE
POSITIONED OVER CYLINDER 0.
STORE HEADER WORD 1.

REPEAT TESTS USING HEAC 1.
CHECK THAT CYLINDER PORTION OF STORED HEADER WORD
SAME AS HEADER WORD 1 OF THIS HEADER.
IF NOT:

THE

WAIT

FOR

HEADS ARE MISAL IGNED
TEST 14 READ HEADER TEST

SEEK

INTERRUPT.

WITH

(PART 2)

DIFFERENCE

WAIT FOR READY.

SIGN

HEAD

DO 40 CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH

SEQ 0036

PAGE 37

READ.

CHECK ALL HEADERS FOR SEQUENCE AND CONTENT (WORD 2 ALL
BIT 15 WORD 1 AND 3 IS O, HS BIT WORD 1 IS 0).
IF NO

ZERO,

BAD READ/WRITE BOARD
BAD PACK

DO SEEK WITH DIFFERENCE O, SIGN O, HEAD 1.
FOR HEAD 1.
TEST 15

DIFFERENCE OF

SEEK TEST

REPEAT ABOVE

TEST

(PART 1)

DO READ HEADER, WAIT FOR INTERRUPT.
STORE WORD 1 OF HEADER.
DO SEEK WITH DIFFERENCE OF 1, HEAD 0.
IF CYLINDER OF
STORED

HEADER WORD IS NOT 255 THEN SIGN BIT 1, ELSE SIGN BIT 0.
WAIT
F(fi INTERRUPT.
DO GET STATUS, WAIT FOR INTERRUPT.
CHECK STATE IS 4.
IF NOT:
DRIVE COMMAND SHIFT REGISTER BAD
DIFFERENCE REGISTER DROPPED BIT
STATE ROM FAILED
WAIT APPROX 5 MS.

STATE IS 5.

DO GET STATUS, WAIT FOR

IF NOT:

INTERRUPT.

CHECK

DIFFERENCE REGISTER NOT COUNTING
COUNT PULSE NOT GENERATED (COUNT LOGIC)
SEEK ROM FAILED

FAILURE

IN DC SERVO

NO TACH FEEDBACK
WAIT APPROX 5 MS LONGER.
FAILURE

TEST DRIVE READY.

SET:

IN READY LATCH OR INTEGRATOR

WAIT APPROX 5 MS LONGER.

TEST READY.

IF RESET:

FAILURE IN INTEGRATOR

UNEXPECTED GUARD BAND DETECTED
DO SEEK WITH DIFFERENCE 1, OPPOSITE SIGN, HEAD 0.
TESTS AS ABOVE.

REPEAT

ALL

REPEAT TEST USING HEAD 1.
NOTE:

THIS TEST IS PERFORMED AT THE CYLINDER POSITION
FOUND
IN
THE
DRIVE
WHEN
THE
TEST
EXECUTES.
CHOOSING A

SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE.
TEST 16

DIFFERENCE OF

SEEK TEST

(PART 2)

DO READ HEADER, WAIT FOR INTERRUPT.
DO SEEK WITH DIFFERENCE
OF 1, HEAD 0.

STORE WORD 1 OF HEADER.
IF CYLMDER

STORED

HEADER WORD IS NOT “MILIMIT'“THEN SIGN BIT1, ELSE SIGN BIT

SEQ 0037

3
PAGE 38

WAIT FOR INTERRUPT, WAIT FOR DRIVE READY.

DO READ HEADER, WAIT FOR INTERRUPT.
?EA%?

WITH

CYLINDER OF

COMPARE CYLINDER OF

THIS

STORED HEADER FOR DIFFERENCE OF ONE.

COUNT LOGIC BAD
INTEGRATOR FAILED
%CK THAT HEADS MOVED FORWARD OR

REVERSE

EXPECTED.

SEEK ROM FAILED

DO SEEK WITH DIFFERENCE OF
ALL TESTS AS ABOVE.

1, OPPOSITE SIGN, HEAD

REPEAT

REPEAT TEST USING HEAD 1.

NOTE:

THIS TEST IS PERFORMED AT THE CYLINDER POSITION
FOUND
IN
THE
DRIVE
WHEN
THE
TEST
EXECUTES.
CHOOSING A
SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE.

SEQ 0038

.MAIN, MCY‘H 0A(10
CZRLIB.MAC
12-DEC~
14

)

17-DEC-79

13:08
TABLE OF CONTENTS

BIT AND OFFSET DEFINITIONS

179
218

MACRO DEF INITIONS
GLOBAL DATA AND CONSTANTS

857
1196

ERROR MESSAGES
INITIALIZATION CODE

626

1338
1408

GLOBAL MESSAGES

AUTO DROP SECTION
INTERRUPT SERVICE ROUTINES

1435

GLOBAL SUBROUTINES

2718
2747

*TEST 2
*TEST 3

*TEST 1

BASIC INTERFACE

2930
3020
3070

*TEST 4
«TEST 5
*TEST 6

HEAD UNLOAD ING
DRIVE SELECT
DRIVE SELECT TEST

3250
3273
3340
3421
3495

«TEST 8
*TEST 9
*TEST 10
*TEST 11
*TEST 12

INITIAL RESET STATE
DRIVE READY
SEEK SIGN SWITCH
HEAD AL IGNMENT SUPPORT
HEAD SWITCHING

*TEST 14
*TEST 15

READ HEADER (PART 2)
DIFFERENCE OF 1 SEEK (PART 1)

3172

3575

3622
3686
3774

3839

«TEST 7

*TEST 13

*TEST 16

PARAMETER CODING

(PART 1)

BASIC INTERFACE (PART 2)
HEAD LOADING

INITIAL STATE

READ HEADER (PART 1)

DIFFERENCE OF 1 SEEK (PART 2)

SEQ 0039

W=
NN

PART1==

17-DEC-79

13:08

&
PAGE
1

.NLIST
CND
.ENABLE ABS
.ENABLE AMA

=2000

MCALL SVC
SvC
SVCTST=1

SvCsSuB=1
SVCBGL=1
SVCINS=0
SVCTAG=0
POINTER BGNSW,3GNSFT,BGNDU
MDHEDR

.BYTE
.BYTE
.BYTE

/C/
72/
/R/
/L/
71/
0
0
0

LASCII
WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

70/
O
1
LSHARD
LSSOFT
LSHW
LSSW
LSLAST
0

016052
000000
002122
104035

. WORD

EMT

002212

.WORD
.WORD
WORD
WORD
WORD
.BYTE
.BYTE
.WORD
WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD

0
0
LSDISPATCH
0
0
0
CSREVISION
CSEDIT
0
0

LSDVTYP
0
0
0

O
(L)‘DU

w
s}

. WORD
WORD

/B/

LASCII

ad
4

LASCII
LASCII
.ASCII
LASCII
LASCII

b
e
d
b

—-=PN)WO
- SN

—

assaag
o R888

BGNMOD
HEADER

ESLOAD

SEQ 0040

~n~

MACY11 30A(1052)

002000

WN = OV

D
b
—0—d

000001

OOV

CZRLIBL RLO1/02 DRIVE_TEST 1
12-DEC-79
CZRLIB.MAC

3
.

’

CZRLIBO RLO1/02 _DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

MACY11 30A(1052)

000000

014272
015664
015326
014264
000000
000000
000000

ENDMOD
DESCRIPT

055103
042524
044124
030460

17-DEC-79

13:08

&
PAGE 1-1

WORD
.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD

0
LSINIT
LSCLEAN
LSAUTO
LSPROT
0
0
0

.ASCIZ

<CZRLI TESTS THE RLO1-02 INTERFACE AND BASI C DRIVE LOGIC>
/CZRLI TESTS THE RLO1-02 INTERFACE AND BASI C DRIVE LOGIC/

.EVEN

030460
000062

051054

DEVTYP
.ASCIZ

<RLO1,RLO2>
/RLO1,RLO2/

.EVEN

sTHIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
sON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
sTHE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS
;SOFTWARE, OR ANY COPIES THEREOF, MAY NOT BE PROVIDED
sOR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT
sFOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE
sLICENSE TERMS. TITLE TO OWNERSHIP OF THE SOF TWARE SHALL
;AT ALL TIMES REMAIN IN DEC.

:THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

sWITHOUT NOTICE AND SHALL NOT BE CONSTRUED AS A COMMITMENT
;BY DIGITAL EQUIPMENT CORPORATION.

:DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

;OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

SEQ 0041

CZRLIBO RLO1/02_DRIVE E 1
12-DEC~79 4:02
CZRLIB.MAC

N NNPNNNININININNININONINNNINONTNNININNONONONTNON
NN PN PN PN PN PN~

S
vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv—oo 000

MACY11 30A(1052)
17-DEC=79 13:08
BIT AND OFFSET DEFINITIONS

PAGE 1=2

.SBTTL

BIT AND OFFSET DEF INITIONS

002224

BGNMOD

GLBEQAT

002224

EQUALS

SEQ 0042

; BIT DIFINITIONS
BIT15== 100000
BIT14== 40000
BIT13== 20000
B8IT12== 10000
BIT11== 4000
BIT10== 2000
B8IT09== 1000
BITO8== 400
BITO07== 200
BITO6== 100
BITO5== 40
BITO4== 20
BIT03== 10
BIT02== 4
BITO1== 2
BIT00== 1

BIT9==
BIT8==
BIT7==
BITé==
BIT5==
BIT4==
BIT3==
BIT2==
BIT1==

BITO==

BIT09
BITO8
BIT07
BIT06
BIT05
BIT04
BITO3
BITOZ
BITO1
BITO0

* EVENT FLAG DEFINITIONS
;
000040
000037
000036
000035
000034

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

EF .START==
EF .RESTART==
EF.CONTINUE==
EF .NEW==
EF
.PWR==

32.
31.
30.
29.
28.

* PRIORITY LEVEL DEFINITIONS
PRIO7==
PRI06==
PRI0S==
PRI04==

340
300
240
200

PRI03== 140

PRI02== 100
PRIO1== 40
PRI00== 0

; START COMMAND WAS ISSUED
; RESTART COMMAND WAS ISSUED
; CONTINUE COMMAND WAS ISSUED
; A NEW PASS HAS BEEN STARTED
;

A POWER-FAIL/POWER-UP OCCURRED

CZRLIBO RLO1/702 DRIVE TEST 1

CZRLIB.MAC

12=-DEC=79 14:02

53
54
55

56
57
58
28
61

62
63
64
65
66
gg
69

70
71
72
73
74
75
76
77;

17-DEC=79

13:08

BIT AND OFFSET DEFINITIONS

4
PAGE 1-3

fl;

1)
1)
1)
1)
)
1)
1)
1)
1)
G P)
1)
(¢
(§p
(;%

MACY11 30A(1052)

JOPERATOR FLAG BITS
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

EVlL==
LOT==
ADR==
IDU==
ISR==
UAM==
BOE==
PNT==
PR]==
IXE==
IBE==
1ER==
LOE==
HOE==

4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

000000
000002
000004
000006
000010
000012

2
CSR
VECT
PRIOR
TYPDR
DRSB
CNT

OFFSETS FOR HARDWARE P-TABLE
=0
;BUS ADDRESS
=
JVECTOR ADDRESS

000000
000002
000004
000006
000010
000012

MISWI
LOoLIM
HILIM
HEAD
ERLIM
DCLIM

OFFSETS FOR SOF TWARE P-TABLE

000001
000002
000004
000010

ALLCYL =BIT00
ALLSEC =BIT01
DRSELT =BIT02
HDALIGN =BIT03

BIT ASSIGNMENTS FOR SOF TWARE P-TABLE SWITCHES

010000
020000
040000

=
=
=10
=12

=0
=
=
=
=10
=12

JPRIORITY
sDRIVE TYPE
sDRIVE SELECT
sCONTROLLER TYPE

s SOF TWARE PARAMETERS SWITCHES
sCYLINDER LOWER LIMIT
JCYLINDER HIGH LIMIT
sSELECTED HEAD FOR RUNNING TESTS
JERROR LIMIT
sDATA COMPARE ERROR LIMIT
JUSE ALL CYLINDERS

JUSE ALL SECTORS

JEXECUTE DRIVE SELECT TEST
JEXECUTE HEAD AL IGNMENT TEST

100000

HEADLM
HICYL
LOCYL

MITEST

=BIT12
=BIT13
=BIT14

JHEAD LIMIT SPECIFIED FLAG
JHI LIMIT SPECIFIED FLAG
;LO LIMIT SPECIFIED

79
80
81
82
83
84
85
86
gg

000102
000104
000106
000110
000112
000114
000116
000100

2
CKDATA
GTSTAT
SEEK
RDHEAD
WTDATA
RDDATA
RDNOHR
NOOP

SUBSYSTEM FUNCTIONS
=102
=104
=106
=110
=112
=114
=116
=100

JWRITE CHECK
JGET STATUS
s SEEK
JREAD HEADER
JWRITE DATA
JREAD DATA
JREAD DATA, IGNORE HEADERS
JNO OPERATION

89
90

007777

2
COMPOP

OPERATION FLAGS
=7777

JCOMPOSITE OPERATION FLAGS

=BIT1S5

JEXECUTE MANUAL INTERVENTION TESTS

SEQ 0043

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC

12-DEC=79 14:02

MACY11 30A(1052)
17-DEC=79 13:08
BIT AND OFFSET DEFINITIONS

PAGE 1-4

100000

=8IT01
=B8IT00
=8IT02
=8IT03
=BIT04
=BIT05
=BIT06
=8IT107
=BIT08
=BIT09
=8IT10
=BIT11
=BIT12
=BIT13
=BIT14
=BIT15

000001
000002

=BIT00
=BIT01

sOPERATION TOOK TOO LONG
sNO INTERRUPT FROM OPERATION

HIS.

000010

=BIT03

;BAD CONTROLLER CLEAR

116
117
118
119
120

000000
000002
000004
000006

=
=

000002

000010

92
93

000001
000004

000020

000100

101
102
103

002000
004000
010000

98
99
100

104

105

106

107
108
109
110
m
112
113

000040

000200
000400
001000

020000

040000
003760

000004

121
122
123
124
125
126
127
128

000000
100000
040000
020000
010000
010000
004000

131

001400

129
130

132
133

134

135
136

000
002000

000200
000100

000060
000001

HDRCMP
DATACMP

CYLUP
ULOAD
INOUTS
OUTINS

FOLWRT
REVSKS
FWDSKS
REVSKO
FWDSKO

sHEADER COMPARE OPERATION
;DATA COMPARE OPERATION
sCYCLE UP OPERATION
sUNLOAD OPERATION
s IN=OUT SEEK OPERATION
;OUT=IN SEEK OPERATION
sFOLLOWING WRITE OPERATION
sREV SEEK SEQ (ADJ INTERFERENCE)
sFWD SEEK SEQ (ADJ INTERFERENCE)
sREV SEEK SEQ (OVERWRITE)
sFWD SEEK SEQ (OVERWRITE)
;BAD DISK ADDRESS
s SEEK OPERATION
:READ OR lfiITE OPERATION
sRELOAD WAIT
:40 HEADER OPERATION

=OUTINS! INOUTS! FOLWRT !REVSKS! FWDSKS 'REVSKO! FWDSKO
JMESSAGE QUALIFIER BITS

ERROR FLAGS FROM SUBROUTINES

=BIT02

;CONTROLLER HUNG

;CONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTER

:DISK ADDRESS REGISTER

:MULTI-PURPOSE REGISTER

RSGISTER BIT DEFINITIONS = CONTROL STATUS REGISTER
=100000
=40000
=20000
=10000
=10000
DCKERR
=4000
HCRCERR =4000
OPIERR =2000
=1400
DSMSK
CRDYMSK =200

=100
INTEBL
BAMSK
=60
DRD YMSK =1

;CONTROL AND STATUS REGISTER

:ANY ERROR BIT
;DRIVE ERROR BIT
sNON-EXISTENT MEMORY ERROR
;DATA LATE ERROR
:HEADER NOT FOUND ERROR
:DATA CHECK ERROR
sHEADER CHECK ERROR
;OPERATION INCOMPLETE ERROR
;DRIVE SELECT MASK
s CONTROLLER READY MASK
; INTERRUPT ENABLE MASK

;BUS ADDRESS UPPER MASK
;DRIVE READY MASK

SEQ 0044

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02
138

MACY11

30A(1052)
17-DEC=79
13:08
BIT AND OFFSET DEFINITIONS

SAMSK

139
140
141
142

000077
000100

HSMSK

144

000001

000004

MBSETO

000020

HDSEL

000003
000010

GETSTAT

017777
160000

WCMSK

143

145
146
147
148
149
150
151
152

153
154
155

156
157
158
159
160
161

000007
000010

STAMSK
BHSTAT
HOSTAT
COSTAT
HSSTAT
DSESTAT
VCSTAT

165

000400

167
168
169
170
17
172
173
174
175

000100

176

001000

002000
004000
010000
020000
040000
100000
002224

WCRNG

HDSEC

000020
000040

166

DRSET

000077
000100

162
163
164

DIRBIT

HDHSEL

WGESTAT
SPDSTAT
STOSTAT
WLSTAT

PAGE 1-5

R;gISTER BIT DEFINITIONS - DISK ADDRESS FOR DATA XFER
sSECTOR _ADDRESS MASK
=100
:HEAD SELECT MASK
RgGISTER BIT DEFINITIONS = DISK ADDRESS FOR SEEK
=4

=20

;sMUST BE SET, BIT 0
:DIRECTION BIT
:HEAD SELECT BIT

=10

;GET STATUS SETUP
;DRIVE RESET MASK

=17777

=160000

sWORD COUNT MASK
sWORD COUNT RANGE MASK

=77
=100

;SECTOR MASK
JHEAD SELECT MASK

=10

=20

=40
=100
=400
=1000

=2000

=4000
=10000

=20000

HCESTAT =40000
WDESTAT =100000

ENDMOD

;BRUSH HOME STATUS
sHEADS OUT STATUS
:COVER OPEN STATUS
sHEAD SELECT STATUS
;DRIVE SELECT ERROR STATUS
;VOLUME CHECK STATUS
;WRITE GATE ERROR STATUS
:SPIN ERROR STATUS
;SEEK TIMEOUT ERROR STATUS
;WRITE LOCK STATUS
sHEAD CURRENT ERROR STATUS
;WRITE DATA ERROR STATUS

SEQ 0045

30A(1052)
17-DEC-79
13:08
BIT AND OFFSET DEFINITIONS

PAGE 1-6

SEQ 0046

MACY11

.SBTTL

MACRO DEFINITIONS

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MILLISECOND TIME COUNTS.
:THIS TIMING IS PERFORMED BY SOF TWARE USING CPU TIMING AND IS HIGHLY MACHINE

- DEPENDENT.
.MACRO

WAIT:

—

WAITMS

ARG,?WAIT

ASL
ASL

DLYCNT
DLYCNT

MOV

DELAY
DEC

BNE

#ARG ,DLYCNT

sINITIALIZE DELAY COUNTER

#250.
DLYCNT

: IMPLEMENT 25-MS TIME DELAY
;DECREMENT DELAY COUNT

WAIT

:MULTIPLY ARGUMENT BY 2
sMULTIPLY ARGUMENT BY 2 AGAIN

sBRANCH IF TIME DELAY NOT EXPIRED

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS.
sTHIS TIMING IS PERFORMED BY SOF TWARE USING CPU TIMING AND

s DEPENDENT.
MACRO
—

WAITUS
DELAY

ARG
#ARG

IS HIGHLY MACHINE

s IMPLEMENT 100-US TIME DELAY

b i

WS LSS
T NT.N1,8

PR SUREREC2EBRIRRREIZSI

)

CZRLIBO RLO1/02 DRIVE TEST 1
12-DEC=79 14:02
CZRLIB.MAC

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS
;USING A KW11-P PROGRAMMABLE CLOCK.
.MACRO

TIMDLY

ARG,?WAIT

MOV

#ARG ,DLYCNT

SETVEC

MoV

WAIT:

—

#7104 ,#CLKINT
#340 ;SET P-CLOCK INTERRUPT VECTOR

#1,a4172542

MOV

#113,a#172540

TST

DLYCNT

BNE
CLR

WAIT
a#172540

sINITIALIZE DELAY COUNT

INITIALIZE CLOCK COUNT SET BUFFFER REGISTER
:/FOR 1

_INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE ,REPEAT INTERRUPT MODE,
:710 KHZ RATE,START THE CLOCK
:DELAY COUNT EXPIRED?

;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

CZRLIBO RLO1/02 DRIVE TEST 1

CZRLIB.MAC

12-DEC=79 14:02

217

%}g

55(1)

002224

222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
2640
241
242
263
244
245
246
247
248
249
250
251
gg%

002224
002226
002230
002232
002234
002236
002240
002242
002244
002246
002250
002252
002254
002256
002260
002262
002264
002266
270
002272
002274
002276
002300
002302
002304
002306
002310
002312
002314
002316

000000
005267
005313
005240
005257
005301
005246
005376
005325
005344
005443
005432
005474
005453
005517
005541
005574
005663
005627
005717
005362
000000
000000
000000
000000
000000
000000
000000
000000
000000

255
256
257
258
259
260
261
262
263
264

002320
002322
002324
002326
002330
002332
002334
002336
002340
002342

010274
010405
010720
010672
010655
010645
010736
000000
010630
010612

266

002346

010574

268
269
270

002352
002354
002356

010557
000000
010511

254

265

267

2344

2350

000000

010541

MACY11

30A(1052)

17-DEC-79

MACRO DEF INITIONS

13:08

PAGE 1-7

.SBTTL

GLOBAL DATA AND CONSTANTS

BGNMOD

GLBDAT

:
TABLE OF OPERATION MESSAGES
OPMSGS: .WORD
O
JFILLER
.WORD
MWRCHK
JMESSAGE FOR WRITE CHECK
.WORD
MGTSTA
3
GET STATUS
.WORD
MSEEK
:
SEEK
.WORD
MREADH
:
READ HEADER
.WORD
MWRITE
;
WRITE DATA
.WORD
MREAD
;
READ DATA
.WORD
MWRSET
:
WITH RESET
.WORD
MDATCP
:
WITH DATA COMPARE
.WORD
MHDRCP
:
WITH HEADER COMPARE
WORD
MCYLUP
:
LOAD HEADS
.WORD
MULOAD
:
UNLOAD HEADS
.WORD
MINOUT
:
IN-OUT SEQ
.WORD
MOUTIN
:
OUT-IN SEQ
.WORD
MFOLWRT
:
FOLLOWING WRITE
.WORD
MREVSK
H
REV SEEK
.WORD
MFWDSK
:
FWD SEEK
.WORD
MRESKO
:
REV SEEK
.WORD
MFWSKO
:
FWD SEEK
.WORD
MBADAD
:
BAD DISK ADD FOR WRITE
.WORD
M4OHDR
:
40 HEADER OPERATION
T.DRIVE: .WORD 0
JJJ:
LWORD
0
HLMTW:
.WORD
O
CLRBYT: .WORD
0
NXTHL:
.WORD
O
GBND:
.WORD
O
CAMSK:
.WORD
0
DIRMSK: .WORD
O
HDCYL:
.WORD
O

RESTBL:

TABLE OF RESULT NAME MESSAGE ADDRESSES
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

MCERR
MDRERR
MNEERR
MFLERR
MHDERR
MOPERR
MNDRST
0
MWDERR
MHCERR

.WORD

MSTERR

.WORD
.WORD
.WORDP

MWGERR
0
MDSERR

.WORD

MSPERR

;CONTROLLER ERROR
:DRIVE ERROR
sNON-EXISTENT MEMORY ERROR
;HEADER NOT FOUND-DATA LATE
sHEADER OR DATA ERROR
;OPERATION INCOMPLETE
:NO DRIVE STATUS AVAILABLE

;WRITE DATA ERROR
sHEAD CURRENT ERROR

sSEEK TIMEOUT ERROR

sSPINDLE ERROR

JWRITE GATE ERROR
;DRIVE SELECT ERROR

SEQ 0047

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC
272
273
274
275
276
277
278
279
280
281
282
ggz

12-DEC=79 14:02

MACY11

30A(1052)

002404
002406
002410
002412
002414
002416
002420
002422
002424
002426

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SUBSTK:

000002
000006
000011
000014
000021
000026
000033

T25TBL:

305

002430
002432
002434
002436
002440
002442
002444

307
308
g%

002450
002452
002454

000051
000200
000377

31
312
313
314

002456
002460
462

316
317
318
319
320

002466
002470
002472
002474
002476

287
288
289
291
292
293
295
2283

298
299
300
301
303

315

321
85

446

002500
002502

000030

002504
002544

.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

0
O
0
O
O
0

:STACK IS 12 WORDS LONG

0
O
0
O

.WORD.
.WORD
WORD
LWORD
WORD
.WORD
.WORD

2
6
9,
12.
17.
22.
27,

WORD
.WORD
WORD

41,
128.
255.

WORD

;TABLE OF DIFFERENCES

34,

;RLO2 TABLE OF CYLINDERS
T25182:
.
.WORD
12
.WORD
18

.WORD

.WORD
WORD
WORD
WORD
.WORD

.WORD
.WORD

000777
000020
000020

&4
PAGE 1-8

SUBROUTINE CALLING STACK

;RLO1 TABLE OF CYLINDERS

000042
000054
000066
000104
000122

32§
327

000042

000004
000014
000022

:
PATTERN TABLE
PATTBL: .WORD
PAT1
.WORD
PAT?
.WORD
PAT3
.WORD
PAT&
.WORD
PATS
.WORD
PATé
.WORD
PAT?7
.WORD
PATS8
.WORD
PAT9
.WORD
PAT10

004762
004764
005024
005064
005124
005132
005172
005174
005234
005236

285

13:08

GLOBAL DATA AND CONSTANTS

002360
002362
002364
002366
002370
002372
002374
002376
002400
002402

286

17-DEC-79

&4
54
68
82.

;6.
1.

TABLE TO BE USED TO BUILD AND STORE THE CYLINDERS

T331BL:
TBT:

.BLKW
BLKW

16.
16,

SEQ 0048

ONN W BS WNWNNOND
—
N
VOO
WD WO &

o
K3
o
k3
B
)
k3
EREEEREE

OHNOWN):

PRSFISH

b e

¢+

72.

&
PAGE 1-9

sTABLE OF DEFAULT CYLINDERS

SRS
SS

O\ NNOW

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

WP
A

SN-‘ ~N BO\nbwa-c—n

b d e
d e e
d
i d
AN AN 1,8 oo
VS
W
LAS
T AV, ]
NWONN
=8O =WSWNO

3
-t

geges
SNA& SSIEEARUK

13:08

GLOBAL DATA AND CONSTANTS

CYLTBL:

072
101

17<-DEC-79

23S

328
329

MACY11 30A(1052)

T Tm—

CZRLIBO RLO1/702 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

SEQ 0049

416
417

418

003000
003002

000000

003004
3006

000000
000000

&
PAGE 1-10

:SUBROUTINE STACK INDEX POINTER
OPERATIONAL FLAGS

WORD

e leleleleleleielelelelelelelelelelele)

413
414
415

12-DEC=79 14:02

(=l

CZRLIB.MAC

MACY11 30A(1052)
17-DEC=79 13:08
GLOBAL DATA AND CONSTANTS

§ §338888 589 5asss

CZRLIBO RLO1/02 DRIVE_TEST 1

;OPERATION FLAGS
;OPERATION COMPLETE FLAG
sHEAD ALIGNMENT DONE FLAG
sADDRESS OF ERROR HEADER
sMORE THAN 1 COMPARE ERROR
sERROR RETURN SWITCH
;BAD SECTOR FLAGS
;WRITE SWITCH

:TABLE STORAGE

;RL11 BASE ADDRESS
sRL11 VECTOR ADDRESS

;DRIVE NUMBER UNDER TEST

;CONTROLLER REGISTER STORAGE
;BEFORE OPERATION
;CONTROLLER REGISTER STORAGE

AFTER OPERATION

JHEADER WORD STORAGE

SEQ@ 0050

CZRLIBO RL01/02 DRIVE TE 1
CZRLIB.MAC

L)
PAGE 1-11

441

003056

003054

000000

HDWRD2:
HDWRD3:

.WORD
.WORD

BNele]

SEQ 0051

443

003060

000000

T.STAT:

.WORD

17-DEC=79 13: 08
GLOBAL DATA AND CONSTANTS

;DRIVE STATE STORAGE

446
447
448

003064
003066
3070

000000
000000
000000

(=leleldelelelelelelelelelelelelalolelsleleslelelelele

440

12<DEC=79
1 4:02

MACY11 30A(1052)

;PARAM BLOCK FOR REASON REPORT

003122
003124
003126

000000
000000
000000

DRVCNT:
DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMP1:
TEMP2:
TEMP3:
TEMP4:
TEMPS:
TEMP6:
TEMP7:
TEMP8:
ERRVEC:
DLYCNT:
CLKFLG:
CLKADR:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

MISCELLANEOUS COUNTERS
LWORD
0
COUNT:
.
D
ERRPOINT: .WORDO
ERRCNT: .BLKW
64
PASNUM: .WORD
0
PSETNM: .WORD
0
LOCERR: .BYTE
0
NOERCT: .BYTE
0
TRPFLG: .WORD
0
PWRFLG: .WORD
PASCNT:

b
b
b

RO Y

.WORD

.WORD
.WORD
.WORD
.WORD

ViAWY

§3-~ 3Lele RNT AV PAVTNE
-] $589088

463

000000
000000
000000
000000
000000
000000

461

003106
003110
003112
003114
003116
003120

456
457
458
459

RESPARM:

sDRIVE COUNT FOR DRIVES UNDER TEST
;DIFFERENCE ARGUMENT FOR SEEK
;OLD CYLINDER
sNEW CYLINDER
s CURRENT CYLINDER
sDESIRED DIFFERENCE
sDESIRED SIGN
sDESIRED HEAD

:DESIRED sscroa
31

ORA

DELAY COUNTER USED IN TIMING MACROS

:FLAG_INDICATING PRESENCE OF A P-CLOCK

:POINTER TO DIAGNOSTIC MONITOR CLOCK TABLE

;PASS COUNTER (LOCAL TO A TEST)
sA COUNTER (LOCAL TO A TEST)
sERROR POINTER
sERROR COUNTER FOR PROGRAM
sPASS NUMBER FOR PROGRAM

;COUNTER FOR PARAMETER SET NUMBER IN USE
sLOCAL ERROR COUNTER
s INHIBIT ERROR CCINTING FLAG
: HARDWARE TRAP FLAG
:POWER FAILURE FLAG

BAD SECTOR TABLES AND POINTERS
O
;BAD SECTORS FILES VALID FLAG

003370

000000

BSFVAL: WORD

003372
003566

000076
000076

FBSFIL:

.BLKW

76
76

s SOFTWARE BAD SECTOR FILE
sFACTORY BAD SECTOR FILE

003;8
004

000200
000200

IBUFF:
OBUFF:

.BLKW
.BLKW

500

s INPUT BUFFER
;OUTPUT BUFFER

PAT1:

. WORD

;PATTERN 1 (ALL ZEROS)

g?? 004762 000000

SBSFIL:

CZRLIBO RLO1/02_DRIVE TES 1
12-DEC-79 14:02
CZRLIB.MAC

177772
177777

Nvld\fl\h\l
VINONINONO N

WV S AV

N
o

—uO—OO——
-

PATZ:

NIV IV, LN}

17777
17777
177777
052525
052525
052525
7777
~ NNV NN
NN NRR~

528

17-DEC=79 13: 08
MACY11 30A(1052)
GLOBAL DATA AND CONSTANTS

025252

PAT4:

PAT3:

000003
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

125252

155555
133333
066666

PATS:

121105

PAT6:

ViR

EREEIIISININISEEEE

172765

4
PAGE 1-12

SEQ 0052

CZRLIBO RLO1/02 DRIVE _TEST 1

CZRLIB.MAC

12<DEC=79 14:02

005134

150442

591
592
593
59
595
59
597
398

005140
005142
005144
005146
005150
005152
005154
005156
005160
005162
005164
005166
005170

132110
055044
026442
013211
105504
042642
021321
110550
0442
022132
011055
104426
042213

005172

177777

602
603

610
611
612
613
614
615
616
617

005174
005176
5200
005202
005204
005206
005210
005212
005214
005216
005220
005222
005226
005226
005230
005232

619

MACY11 30A(1052)

17-DEC-79

13:08

GLOBAL DATA AND CONSTANTS
WORD

150442

.WORD
-WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
CWORD
.WORD
WORD
WORD
WORD

132110
055044
026442
013211
105504
042642
021321
170550
0442
022132
011035
104426
042213

PAT7:

.WORD

177777

045513
122645
151322
064551
132264
055132
026455
113226
045513
122645
151322
064551
132264
055132
026455
113226

PAT8:

.WORD
.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
.WORD
.WORD

045513
122645
151322
064551
132264
0355132
026455
113226
045513
122645
151322
064551
132264
055132
026435
113226

005234

125252

PAT9:

.WORD

125252

621

005236

155555

PAT10:

.WORD

155555

623
624
625

005240

631
632
633
63
635
636
637

005240
005240
005246‘6
005257
005267
005301
005313

585 005136
587

605
606
607
608

084221

-WORD

640
642

5
PAGE 1-13

221

.SBTTL GLOBAL MESSAGES
042523
042122
122
127
127
107

045505
042040
020104
052122
052122
052105

000040
052101
042110
041440
042040
051440

BGNMOD
MSEEK:
MREAD:MREADH:
MWRCHK:
MRITE:
MGTSTA:

005362

047506

020122

030064

M4OHDR: ASCIZ

/FOR 40 HORS/

005412

050117

051105

020072

MOPER:

/OPER: /

005344

SEQ@ 0053

ENDMOD

626

638

GLBTXT
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/SEEK /
/RD DATA /
/RD HDR /
/WRT CHECK/
/WRT DATA /
/GET STAT /

: .ASCIZ /WITH DATA CMP /
: .ASCIZ /WITH HDR CMP /
$

.AS (12

/WITH RESET /

)
:

. xfig
bz 325
ON)

b O = O
— e

S ONININ) = O = b b b b

2 D b B
AS) =D

MACY 30A(1052)
17-DEC-79
GLOBAL MESSAGES

RASRIES

33 RRSSSSETRTRTS
d e D D D B D D 2 B )

A
A
A A AN
--NNNNONNON

0000

)

KRS
RIORREIUTS2RKKRUN

R R
W

NN
-

-t

wvi

s\ b

) b cd e

b \) e e e

CZRLIBO RLO1/02 DRI
12-DE
CZRLIB.MAC

MRSLT:
.ASCIZ
MULOAD: .ASCIZ
MCYLUP: .ASCIZ
MOUTIN: .ASCIZ
MINOUT: .ASCIZ
MFOLWRT: .ASCIZ
MREVSK:
.ASCIZ
MFWDSK: .ASCIZ
MFWSKO: .ASCIZ

MRESKO:

MBADAD:
MBADSF:
MFMTER:
MTMBS:
BASADD:
DRVNAM:
NOPWR:
CSNAM:
BANAM:
DANAM:
MPNAM:

LAB1
LAB2

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

ASCIZ
ASCIZ

13:08

€

9
PAGE 1-14

/RESULT:
/
/UNLD DRV/
/LD DRV /
/FOL O _TO CC SEEK/
/FOL 255 TO CC SEEK/

/FOL WRT (NO SEEK)/
/ADJ CYL WRTTN AFTER REV SK/
/ADJ CYL WRTTN AFTER FWD SK/
/SK FWD,WRT = SK REV,OVERWRT/

/SK REV,WRT = SK FWD,OVERWRT/

/ON BAD SEC FILES/
/CANNOT GET BAD SEC FILES/
/BAD SEC FILE FMT ERR/
/TOO MANY BAD SEC /
/BUS ADD=/
/DRv=/
/DRV DID NOT REC'R FROM PWR FAIL/
/RLCS/
/RLBA/
/RLDA/
/RLMP/

/0P INIT =/
;W DONE = /

MWORD:
.
WORD /
MTOSLOW: .ASCIZ /INTRPT TOO LATE/
MDRRES: .ASCIZ
/NO DRV RESPONSE/
MNOINT: .ASCIZ_
/NO INTRPT ON CMND COMPLETE/

GSTER1:
INITST:
ngERR:

.ASCIZ
.ASCIZ
.ASC}Z

/FAIL FORCING DRV SEL ERR/
/INIT STATE/
/DRV SELECT/

123

NVVNO

T10ERR:
T12ERR:
T13ERR:
T14ERR:
;1?5?2:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

/SEEK SGN SWITCH/
/HD SWITCH/
/RD HDR (P1)/
/RD HDR (P2)/
/WRT LCK/

/CNTLR HUNG /
/ERR DID NOT CLR/
/VOL CHK NOT RSET/
/UNXPCTED ERR/
TSTLAB: .ASCIZ
/ TEST/
MISTST: .ASCIZ_
/MAN INTERVENT STAT/
NSTACHG: .ASCIZ /STATE CHG/
SPDERR: .ASCIZ /SPNDL TIMEOUT FAILED TO SET/

) d

b
—

(=le]

b
e e e e e
\)

MCONHNG: .ASCIZ
MNOCLR: .ASCIZ
VCNRST: .ASCIZ
UNXERR: .ASCIZ

P2TO2E:
NOTST:
NOCTLR:

.ASCIZ
.ASCIZ
.ASCIZ

TO9ERR:

053122

NOTRDY:

.ASCIZ

/DRV RDY/

/DIFF OF 1 SEEK/
/TST
CANNOT BE PERFORMED...NO P-CLK/
/DRV DROPPED - NO CNTLR/
/DRV DROPPED - NOT RDY/

SEQ 0054

CZRLIBO RLO1/02 DRIVE_TES T1

CZRLIB.MAC
728
730
731

732
733
73
735
736
737
738
739
740
741

007005
007044
007130

007213
007322
007347
007372
007450
007502
007516
007560
007613
007642

762

007661

748
749

010020
010030

751
752

010060
01

743
764
766
747
750

753
754

755
756
757
758
759
760

762
763
764

007676
007744
007775
010014

010043

010073
010077
010104
010111
010117
010132
010155
010166

110
054503
042510
124
041101
127
044103
046103
051120
051120
051120
122

047111
111
047111
050122
122
047117
047117
047125
123
044504
043523

110
123

054503
106
0
047522
040502

010263

768
769
770
771

010327
010343
010355
010405

774
775
776
777
778

010430
010441
010454
010467
010500

780
781
782
783
784
785
786
787

12-DEC=79 14:02

010416

010511
010526
010541
010557
010574
010612
010630
010645

051504
020114
042101

MACY11 30A(1052)
17-DEC-79
GL OBAL MESSAGES
3

043040
047520
040440

050131
053117
051501
020113
042523
051505
051505
051505

020105
020105
046040
051106
041440
020123
020123
020193

020118

046101

042040
042504

053122
020122

U431
020116

046505
051123

052523
041514
051505
000040

052105

020104
041505

020114
047522
054502
052125
053122
020104

053122

053117
020126

043106
020105
052105

053440

000040

HDMOVF:
CYLPER:
HAMES1:

.ASCIZ 4
.ASCIZ 4
.ASCIZ 4
HAMES2: .ASCIZ 4
OPROOQ: .ASCIZ 4
OPROO3: .ASCIZ 4
OPR1:
.ASCIZ 4
OPR2:
.ASCIZ 4
OPR3:
.ASCIZ 4
OPRS:
.ASCIZ 4
OPR6:
.ASCIZ 4
OPR7:
.ASCIZ 4
OPR8:
.ASCIZ P4
OPR9:
.ASCIZ 4
OPR10:
.ASCIZ 4
OPR11:
.ASCIZ 4
OPR12:
.ASCIZ 4
OPRIA:
.ASCIZ 4
OPRIB:
.ASCIZ 4
UNDTST: .ASCIZ 4
OPROO4:
.ASCIZ 4
DIFWD:
.ASCIZ 4
SGMD:
.ASCIZ 4
HDWD:
.ASCIZ 4
SECWD:
.ASCIZ 4
CYLWD:
.ASCIZ %

/SET WRT LCK /

/DIFF /
/SGN /

/HD /
/SEC /
/CYL /
/FROM
/

MDRDY:

RESULT T NAMES
.ASCIZ z /DRV RDY /
% /CONT ERR /

020114
053117
051525
052122
0201%

044103
051105
020110
04
052517

MvOLCK:
MCOSTA:
MBHSTA:
MWLSTA:
MHOSTA:

053122
020126
044520
05%15;
b
042101
020124
051120

/ON DRV /
/UNDER TEST/

051040

047526

106
051106
123
127
042523
042510
051127
117

/INSUFFICIENT DRVS FOR DRV SEL ERR TST/
/RPLCE ADD PLGS AS BEFORE/
/RESET WRT LCK /
/ON
/

042523

MHNF:
MDLT
MHFCRC:
MDRERR:

051102
1
042110

/IN ALL DRVS /

SEQMES:
STAMES:
BSNSTR:

047040
020101
047040
042440

023514

/REMOVE ADD PLGS EXCPT /
/INSRT ADD PLG /

.ASCIZ
.ASCI %
.ASCIZ
.ASCIZ 4
.ASCIZ 4
b4

0517104
052101
051106
053122

020104

051440
052123
020116
043440
052040
041440
040504
044455

MHSTA

_ASCIZ
+ASCIZ P4
.ASCIZ 4
.ASCIZ 4
ASCIZ b4
.ASCIZ 4
.ASCIZ 4
.ASCIZ 4
.ASCIZ 4
.ASCIZ 4
.ASCIZ 4

MDSERR:
MDRVST: .ASCIZ 4
MSPERR: .ASCIZ 4
MWGERR: .ASCIZ 4
MSTERR:
.ASCIZ 4
MHCERR:
.ASCIZ 4
MWDERR: .ASCIZ 4
MOPERR: .ASCIZ 4

PAGE 2

&TYPE "‘CTL/C'' TO GET BACK TO SUPVR COMMAND MODE AND THEN TYPE
/ABOVE CONDITIONS MET/
/WAS LOAD DEPRESSED/
/CHK DRV IS UNLDED, COVER OPN, AND WRTE LCKED /
/CLSE COVER & RST WRT LCK /
/PRESS LOAD /
/PRESS LOAD
& WAIT FOR LOAD LIGHT /
/PRESS LOAD
& WAIT FOR RDY /

FRMD:
BYPSNM:

/HDS FAILED TO MOVE IN 10 TRIES/
/CYL PORTION OF HDRS DIFFER WHEN READ FROM TRK 0 & 1/
/HEAD ALIGN. RSET WRT LCK TO SEL WD O, SET FOR HD 1/

020115
040520
047111
051440

110
106
110
106

042523

13:08

/ BYPASSED /
/ROUTINE TRACE SEQ:/
/DRV STAT/
/BAD SEC FILES NOT STRD. ALL SEC ASSUMED OK./
/TOTAL CMP ERRS: /

/HDR CRC/

/DATA CRC/
/HDR NOT FND/
/DATA LATE/
EHDR NOT FND/HDR CRC/OPI®
/DRV ERR /

/SEL'D HD /

/VOL CHK /
/COVER OPN /
/BRUSH HME /
/WRT LCK /
/HDS OUT /
/DRV SEL ERR /
/DRV STATE /
/SPIN TIMEOUT /
/WRT GAT ERR /
/SEEK TIMEOUT /
/HEAD CUR ERR /
/WRT DAT ERR /
/OPR=INC/

SEQ 0055

g
'CON'*

CZRLIBO RLO1/02 _DRIVE _TEST 1
CZRLIB.MAC
12-DEC=79 14:02
788
789
790

791
792
793

010655
010672
010720
010731
010736
010762

110
110
026516

051104
020122
0265

042057
047516
042515

020114

103
503
047125

046131
047116
047113

13:08

5
PAGE 2-1

MHDERR:
MFLERR:
MNEERR:

ASCIZ
.ASCIZ
.ASCIZ

EHDR/DAT ERR §
&HDR NOT FND/DAT LATE &
/N=X-MEM /

MRLFAL:

.ASCIZ

/FAIL TO RELD HDS AFTER ERR CLEAR/

000040
052117
042040

MCYLOC:
MNDRST:
MUNDEF:

.ASCIZ
.ASCIZ
.ASCIZ

/CYL /
/CANNOT GET DRV STAT/
/UNKN DRV STATE=-NO RDY,NO ERR,HDS OUT/

011070
011104
011144
011153

051127
047440
042440
207

106

044501

020124
042526
051122
177777

041101
020122
051117
000

MWRTAB:
MEXERS
MERRS:
BELL:

.ASCIZ
CIZ
.ASCIZ
.ASCIZ

011157
011163

111
040

020123
041123

000
000040

RESE3:
RESE4:

RESULT SETTINGS

805
806
807
808
809
811
813
814
815
816
g};

011170
011175
011202
011212
011222
011232
011252
011563
011271
011302
011313

044440
040
052123
052123
052123
042523
051461
065
103
040504
065

020116
043117
052101
052101
052101
045505
020124
030060
041531
040524
051440

000
000040
020105
020105
020105
053440
020063
051515
042514
054040
041505

RESES5:
RESE6:
STATE2:
STATE3:
STATES:
CDRDY:
C1OMS:
C500MS:
CCYLUP:
CAFDT:
CS5SEC:

RESULT CONDITIONS
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/ IN/
/ OF /
/STATE 2/
/STATE 3/
/STATE 5/
BRSEEK_W/0 MOTIONE
/1ST 3 MS/
/500MS/
/CYCLE UP/
/DATA XFR/
/5 SEC/

819
820
821
822
823

011321
011350
011372
011413
011420

045
7045
047045

022516
052045
052045
022524
O

022524
047445
047445
000124
052045

FMTOP1:
FMTOP2:
FMTOP3:
FMT1:
FMT1.1:

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

/INXTINXTXTR06XSXTX01%N/
/INXTXO1XS1XTX01IN/
/INXTXO1XST1XTXTIN/
/XTXT/
/INXTXT/

FMT8:
FMT9:
FMT11:
FMT12:
FMT13:

ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ

795
796
797
7738

800
801
?“9%

804

824
825
826
827
828
829

831
832
833
834
835
836

837

838
839
840
841
842
843
844
845

1027

MACY11 30A(1052)
17-DEC=79
GLOBAL MESSAGES

011427
011432
011435
011446
011466
011530

011600
011632
011637
011645
011653

077
011751
012005
012016
012040
012072
01212
012157
012202
012236
012252

047045

047045
045
047045
047045
047045
047045
047045
045
045
045
045
045
045
051445
047045
052045
045
045
047045
052045
047045

000124
000
022516
052045
051445
052045
052045
052045
022524
022526
022516

022516
022516
0%2516
0
1
051445
051445
022524
022524
051445
052045
052045

022524
047445
(30461
047445
047445
030517
031517
030523
oggs 4
0305 g

032523

052045
032461
022464
031123
030523
030461
052045

FMT2:
FMT3:
FMT4:
FMTS:
FMT6:
FMT7:

FMT14:

FMT15:

FMT16:
FMT17:
FMT18:
FMT19:
FMT
FMT21:
FMT2
FMT2
FMT24:

.ASCIZ
.ASCIZ

/WRT ABORTED/
/ OVER ERR LIMIT = UNIT DROPPED /
/_ERROR/
<207><377><377>
/IS /
/ SB /

.ASCIZ
_ASCIZ
ASCIZ
ASCIZ
.ASCIZ
ASCIZ

/XT/
/IN/
/INXTXTIN/
/INXTX06XS1XT7X01/
/INXST1XTXS4XTXS4XTXSLXTISLXTXS2XT/
/INXTX06XS2%06XS2%06XS2X06%S3%03X52%01 %N/

_ASCIZ
LASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
ASCIZ
.ASCIZ
LASCIZ
LASCIZ
_ASCIZ

/INXTXTXD3XS1XTX06XS1XT206/
/INXS11XTXD3XS1XTZ06XS1XTX06/
/INXSS5%06/
/XS10XTINXS11Z06XN/
/INXS1SXTXSSITXS4XTISSXTIN/
/XTXS4XDEXSLIDE6XSLIDEXSLIDEIN/
/ !T!SZ!N!SMM!S‘!IMW
/XTXS12XD6XS14XD6IN/
/INXS11XTX03XS1XTX01XS1XT%02/
/XTXTXTXO1IN/
/3NXT/

/INXTX06XS2%06252206252%06/
/INXT/
/%T%01/
/%XTX03/
/INXS11XTX03XS1XTX03XS1XTX01XS1XT%01/

SEQ 0056

CZRLIBO RLO1/02 DRIVE TEST 1

CZRLIB.MAC
846
847
848
849
850
855
856
g%

012257
012267
012313
012332
012343

859

012344

860
gg;

12-DEC=79 14:02
045
045
045
047045

022516
022516
022516
052045
.

MACY11 30A(1052)

17-DEC-79

GLOBAL MESSAGES

031104
030523
022524
052045

13:08

FMT25:
FMT26:
FMT27:
FMT28:
ENDMOD

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.SBTTL

ERROR MESSAGES

BGNMOD

GLBERR

5
PAGE 2-2

SEQ 0057

/INXD2XT/
/INXSTXTXD4XTXTID3IN/
/INXTXD3XTXD3IN/
/INXTXTXT/

ERR1

R3 POINTS TO RESULT MESSAGE
RESULT: (R3)

863

ERR2

R3 POINTS TO RESULT NAME

866

ERR3

R3 POINTS TO RESULT NAME

869

ERR&

g;}

ggg
%g
870

:
:
:

:
:

ERRS

877
878

:
:

ERR6

881
882
883

:
:
:

ERR7?

886
887
888

:
:
:

ERR8

891
892
893
894

;
:
:
:

ERR9

897

ERR10

38.7?

ggg

898
899
900
gg}

903

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

(R4)

RESULT ROUTINE DETERMINES WHICH ERROR(S) ARE SET AND
REPORTS ALL

RESULT: "ERROR'* IS 1 S8 0

DRIVE STATE ERROR REPORT
R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE

RESULT: DRIVE STATE IS (T.STAT) SB (R3)

HEAD POSITIONING ERROR REPORT
NEWCYL CONTAINS EXPECTED CYLINDER
HDWRD1 CONTAINS BAD CYLINDER

RESULT: CYLINDER IS (HDWRD1) SB (NEWCYL)

UTILITY RESULT REPORT
R3 POINTS TO RESULT NAME
R4 POINTS TO VALUE 1
R5 POINTS TO VALUE 2
RESULT:

NLIST

R3 POINTS TO RESULT NAME

R4 POINTS TO RESULT CONDITIONS

RESULT: (R3) IS 0 SB 1

:
:
:

RESULT: (R3) IS 0 S8 1

RESULT: (R3) IS 1 SB 0 (R&4)

873
874

g;g

RESULT: (R3) IS 1 SB 0

(R3-NAME)

(R4-VALUE 1)

COMPARE ERROR REPORT
R3 CONTAINS THE BAD WORD NUMBER
R4 POINTS TO BAD WORD
R5 POINTS TO GOOD WORD
RESULT: WORD (R3)

MD,ME

IS (R4)

SB (RS)

SB (RS5-VALUE 2)

CZRLIBO RLO1/02 DRIVE _TEST 1

12-DEC-79 14:02

105737

003363

170576

i
i
il
sl
i
D
D ol

NOWVSWN=O

VO OVO VOO0

585

CZRLIB.MAC

023362
000001

MACY11

30A(1052)
17=DEC=79
ERROR MESSAGES
BGNMSG

1%:

024150
024356

016132
(3)
(3)

012410
012410

921

012412

ENDMSG

L10000:

170536

BGNMSG

023362
000003

NOERCT
1%
9ERRPOINT
R1,=-(SP)

PC,RPTOP
#1,(R1)+

R3,(R1)+

PC,RPTRES
PC ,RPTREM

(SP)+ ,R1

PC,CKERLM

ENDMSG

L10001:
BGNMSG

023362
000003

@ERRPOINT
R1,-(SP)

PC_,RPTRES
PC ,RPTREM
(SP)+ ,R1
PC,CKERLM

@ERRPOINT
R1,-(SP)

PC.RPTOP

R3,(R1)+
(R1)+

000001
024150
024356

#1,(R1)+

016132

PC,CKERLM

PC.RPTRES
PC.RPTREM

(SP)+ ,R1

ENDMSG

170422

023362
000004
000001

BGNMSG

PAGE 2-3

sTEST IF ERROR COUNTING INHIBITED
sYES - SKIP
JELSE BUMP ERROR COUNT
:STORE R1
sREPORT OPERATION
:SET PARAM NUMBER
s INSERT MESSAGE ADDRESS POINTER
JREPORT RESULTS
;REPORT REMAINDER
;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
:STORE R1
sREPORT OPERATION
;SET _PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE
sSET SB VALUE
sREPORT RESULTS
;REPORT REMAINDER
sRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

C$MSG

#3,(R1)+

L10002:

CSMSG

PC,RPTOP

024150
024356

170470

TSTB
BNE
INC
MOV
JSR
MOV
MOV
JSR
JSR
MOV
JSR

#3,(R1)+
R3,(R1)+
#1,(R1)+
(R1)+

000001

016132

ERR1

13:08

;BUMP ERROR COUNT
:STORE R1
+REPORT OPERATION
;SET _PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE
;SET SB VALUE
sREPORT RESULTS
sREPORT REMAINDER
sRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

C$MSG

aERRPOINT
R1,-(SP)

PC,RPTOP
#5,(R1)+

R3,(R1)+
#1,(R1)+

;BUMP ERROR COUNT
;STORE R1
sREPORT OPERATION
:SET_PARAM NUMBER
s INSERT NAME ADD POINTER
sSET IS VALUE

SEQ 0058

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12<DEC=79 14:02
956

012552

005021

958
959

012556
012562

004737
004737

024150
024356

91
9%2
(3)
g%

012570
012574
012574
012574

004737

016132

9%4

012576

967

012604

957

012554

010411

012566 012601

005277
010146

968

012721

9%9 012614
970

012616

973
974

012626
012632

976
977

012640
012644

971
972

975

012620
012624

012636

004737

010321

005021

012721
010411

979
980

012646
012646

105737

012652
012654

001002
005277

984

012662

010346

986
987
988
989
990
991

012666
012670
012674
012700
012706
012712

010546
004737
012721
012761
005037
013703

993
99

012722
012726

985

992

995
996

012660

012664

012716

012730
012736

997

012742

999

012752

998
(3)

(3)

012746
012752

012756

012760

(3)
(3)

012764
012766

(3)

012774

(3)

010146

022703
001443

JSR

PC,CKERLM

:GO CHECK IF ERROR COUNT EXCEEDED

TRAP

CSMSG

ERRS

MOV

#4,(R1)+

JSR
JSR

MOV

BGNMSG

170274

178:

000002

177761

SCHECK IF IT WAS GET STATUS
YES = STATUS IS IN T.MP, SKIP

MOV

001367

*STORE R1

#4,R3
13

002116

SYES - SKIP
*ELSE BUMP ERROR COUNT

P
BEQ

013727

177756

;TEST IF ERROR COUNTING INHIBITED

*STORE RS
*REPORT OPERATION
*SET PARAM NUMBER
*INSERT IS VALUE
*CLEAR FOR STATUS STORAGE
“GET T.CS

MOV

005367

2GO CHECK IF ERROR COUNT EXCEEDED

RS, =(SP)
PC.RPTOP
#3.(R1)+
#1.2(R1)
TEMP3
T.CS,R3

000012

001375

R1,=(SP)

*RESTORE R1

MOV
JSR
MOV
MOV
CLR
MOV

012727

012772

17$
@ERRPOINT

JREPORT RESULTS
JREPORT REMAINDER

*STORTM R3

MOV

177772

(SP)+,R1

*SET IS VALUE

R3,=(SP)

000000

000000
005367

PC,RPTRES
PC,RPTREM

;SET PARAM NUMBER

MOV

010362
000000

*SET SB VALUE
*INSERT ADD OF CONDITION POINTER

(R1)+

NOERCT

000003
000004
003032

#1,(R1)+
R4. (R1)

ERR6
TSTB

012762
012703

053703

000004

*INSERT NAME ADD POINTER

CMSG

BIC

000004

;BUMP ERROR COUNT
*STORE R1

R3. (R1)+

TRAP

MOV

*RESTORE R1

*REPORT OPERATION

PC,CKERLM

BNE
INC

:INSERT ADD OF CONDITION POINTER

PC.RPTOP

JSR

MOV

023362
000003
000001
003124
003044

(SP)+,R1

QERRPOINT
R1,=(SP)

CLR

003363

R4, (R1)

INC
MOV

MOV
MOV

010446

042703

*REPORT RESULTS
*REPORT REMAINDER

MOV

ENDMSG
L 10004:

5
PAGE 2-4

PC.RPTRES
PC.RPTREM

JSR

000001

016132

104423

983

023362

000004

004737

012644
012644

BGNMSG

170352

:SET SB VALUE

MOV
ENDMSG

13:08

(R1)+

JSR
JSR

L10003:

024150
024356

(3)
‘(??7%

981
982

CLR

004737
004737

012601

30A(1052)
17-DEC-79
ERROR MESSAGES

MOV

104423

95 012576
966 012602

012610

MACY11

MOV
MOV
BIS

R4 ,-(SP)

#177761,R3

RLDRV,R3

R3,RLCS(R2)

#10.

LWORD

aani0.,(PC)+
LSDLY, (PC)+

.WORD
DEC

O
-6(PC)

DEC

=22(PC)

BNE

:AND CLEAR ALL BUT FUNCTION

#GETSTAT ,RLDA(R2) ;ELSE DO GET STATUS
#4 ,R3

WAITUS

BNE

;STORE R4

=20

:WAIT FOR CONTROLLER READY

SEQ 0059

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC-79 14:02

032762
001
012703
0004

000200
001000

000000
.

9%:

10%:

)
B
)

PAGE 2=5

#BIT9,R3
g
RLMP(R2)
,R3
R3,TEMP3
TEMP3+1,R3
138
T.MP+1 K3

0600

sELSE _SET NO DRIVE STATUS BIT
s IN MESSAGE WORD AND SKIP

:STORE STATUS FOR REPORT

;GET ERROR BITS IN PROPER POSITION

:
1008

)

012746
010446
012746
012746
012746

SKTEST IF READY

1
:YES - SKIP
#HCRCERR,R3
;TEST IF HDR CRC ERR
105%
:YES = SKIP
#MOPERR R4
:SET OP]1 ALONE MESSAGE
#FMT28, AMRSLT R4,+M#MERRS ;REPORT ERROR

i
i
il
ot
il

(10)

001026
032703
001020
012704

SEQ 0060

#177442 ,R3

i
i
il
i
e
e
i
il
-

18:
133

(ole) OOO0O0O0O0O000

13:08

18§DYHSK.RLCS(R2) :

3 VWONOWVSWN=O g8RS2

) e

1000
1001
1002

17-DEC-79
MACY11 30A(1052)
ERROR MESSAGES

;GET ERROR BITS FROM MP REG
sCLEAR UNUSED BITS

;GET ERROR BITS FROM (S REG
CLEAR UNUSED BITS
MAKE ONE WORD OF POSSIBLE ERRORS
:TEST IF OPI SET
:NO - SKIP

sTEST IF HDR NOT FOUND ERROR

010645

011144

#MERRS ,-(SP)

R4, ~(SP)

005421
012332
000004

#MRSLT ,~(SP)

N#FMT28,-(SP)

#4,-(SP)

000012

:SKIP

010306

105%:

sHDR CRC MESSAGE

004000

107%:

;ng

010327

MESSAGE HEADER NOT FOUND

010355

109%:

004000

115%:

010316
010000

118%:

010343
100000

nggERR.RS
#MDCRC R4
1008

#DLTERR,R3
1208

#MDLT R4

1008

120%:

#BIT15,RS

3s:

R5,R3
6%
(R4)+

A ¥

002320

IgKHCRC WITH HDR NOT FND

6%:

EWPM HCRC MESSAGE
Kl
TEST é;IDATA CHECK SET, NOT OPI

SETPHESSAGE DATA CHECK
: SK1
sTEST IF DATA LATE ERROR
:NO - SKIP
sSET MESSAGE DATA LATE

:SKIP
:SET BIT POINTER FOR TEST
;CLEAR R4 FCR TABLE COUNT

:TEST IF BIT IS SET
:YES = SKIP TO REPORT
;ELSE BUMP TABLE POINTER
:CLEAR CARRY
sSHIFT BIT PO&NTER TO NEXT BIT

RESTBL (R4), (R1)

:ELSE REPORT REMAINDER
s INSERT NAME ADDRESS

3
’$

;LOOP IF NOT

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12=DEC=79 14:02

MACY11

17-DEC=79
30A(1052)
ERROR MESSAGES

uguSOINNIR

D o

OCOO0O0O0O000

024150
024356
003124

PC,RPTRES
4%
PC ,RPTREM

158

#FMT17

003124
010155
012016
000003

062706

000010
004000

003044

002000

003044

25ghZRERRRS

,#STAMES, TEW3

SP,RO
CSPNTB

15%:

#10,SP
#DCKERR,T.CS

25%

#OPIERR,T.CS

258

BEERrCBE LR

RRY
PN

2
)
3
b
D
D
b e
D
b
D
D
D
D e
D

RS
S

B
b
D

(RS)
, (R4)

1 9%

TEST IF DATA CHECK ERROR
SKIP
TEST IF OPI SET

;YES = SKIP
:CLEAR COMPARE ERROR COUNT
:SET COMPARE LENGTH

:SET WORD COUNT
:SET GOOD WORD POINTER
sSET TEST WORD POINTER
s CHECK WORD
:GOOD
= SKIP
TEST IF

COMPARE LIMIT REACHED

= SKI
;YES
#FMT15, #MJORD ,R3, #RESE2 . (R4) ,ARESES, (RS)
(RS) ,=(SP)
#RESE4, =~ (SP)
(R&) ,=(SP)

W#RESE3,~(SP)

011157

B =

#IBUFF R4

MORECE.#10.
208

011163

NN
NN N NN

sREPORT REMAINDER
TEST IF ANY NEW STATUS
- SKIP

#FMT17,=(SP)
#3,-(SP)

000012

jolelelelelelelelelelelelelelelelelelelelelele)

sREPORT RESULTS

:GET NEXT BIT

#STAMES, = (SP)

18%:

—_——

SEQ 0061

TEMP3,=(SP)

MOREC
0128..R1
#1,R3
#OBUFF ,RS

013420

PAGE 2-6

TEMP3

013746
012746
012746
012746
010600
104414

NN~

JSR

13:08

R3,=(SP)

006170
011751
000007

#MUORD
, - (SP)

#FMT15,-(SP)
#7,-(SP)

SP,RO
CSPNTB
#20,SP

000020
003014

MORE CE
(R5)+,(R4)+

25%:

R3
R1
18%
MORECE

27%

#128. .R1

;BUMP ERROR COUNTER

:BUMP POINTERS
:BUMP COUNTER

sDEC_LENGTH COUNT
:LOOP IF NOT DONE

sTEST IF ANY COMPARE ERRORS
:NO - SKIP

; SET COMPARE LENGTH

mnzg’TCERRJMORECE,#RESE® R

CZRLIBO RLO'I/OZ DRIVE _TEST 1
CZRLIB.MAC
12-DEC =79 14:02
1077
1078
1079
1080
1081
1082
(3)
. (()gi

013530
013532
013534
013536
013540
013544
013544
013544

1084

013546

1085
1086

1087

1088

1089
1090
1091
109%
1093

013546
013552

012605
012604
012603
012601
737

27%:

016132

167402

013554

004737

023362

013564
013570
013574
013576
013602

012721
013721
010311
004737
004737

010526
003060

013560

1096
1095
1096
(3)
. (("3’;

013606
013610
013614
013614
013614

1098
1099
1100

013616
013616
013622

1106
1105
1106
1107
1108
1109
1110
1111
‘lflg
1113
11164
1115
1" 19
111
1118
(3)

013636
013642
013646
013652
013654
013656
013660
013662
013664
013670
013674
0 3%
81 g
137064
013710
013710

1119
1150

01 3715

1 15§
1123
1 lgg
n

01371
0137
01
01

012721

012601
004737

ENDMSG

L10005:

104423

005277
010146

17-DEC=79
MACY11 30A(1052)
ERROR MESSAGES

BGNMSG

000003

024150
024356
016132

ENDMSG

005277
010146

167332

012721
013711
012703
000241
006011
005303
001374
005721
013711
004737
004737
012603
012601
004737

010731
003052
000007

BGNMSG

g
.
118§ 013632 012721 00000%

(3)

1121

1126

013710

013712

013732

016132

10169
73
012721
810 1

010421

PC,CKERLM

;GO CHECK IF ERROR COUNT EXCEEDED

TRAP

(SMSG

ERR?7
INC

SERRPOINT

L10007:

167236
88336§

BGNMSG

(SP)+.R&
(SP)+.R3
(SP)+.R1

MOV
JSR
MOV
MOV
MOV
MOV
JSR

R1,-(SP)
PC.RPTOP
#3.(R1)+
AMDRVST, (R1)+
r STAT, (R1)+
3, (R1)
PC"RPTRES

MOV
JSR

(SP)+ ,R1
PC, CKERLM

TRAP

(SMSG

ERRS
INC

@ERRPOINT

MOV
MOV
JSR
MOV
MOV
MOV
MOV
CLC

ROR
ST

ENDMSG

SEQ 0062

JSR

BNE
003102
024150
024356

PAGE 2-7
;RESTORE RS, 4, 3,

DEC

104423

005277

3%:

(SP)+,RS

MOV
MOV
MOV

JSR

L10006:

104423

MOV

13:08

PC.RPTREM

:REPORT OPERATION

:SET PARAM NUMBER
s INSERT NAME ADD POINTER
¢ INSERT IS VALUE
s INSERT SB VALUE
sREPORT RESULTS
sREPORT REMAINDER
;RESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT

:SET SHIFT COUNT

(R1)

;ALIGN CHAR FOR PRINTING

(R1)+

NEWCYL , (R1)
PC,RPTRES
PC.RPTREM
(SP)+.R
(SP)+ _R1
PC,CKERLM

TRAP

(SMSG

INC
MOV
JSR
MOV
MOV
MOV

;BUMP ERROR COUNT
;STORE R1

R1,=(SP)
n3 -(SP)
"RPTOP
.(nm
#MCYLOC, (R1)+
HDWRD1, (R1)
#7.R3

MOV
JSR
JSR
MOV
MOV
JSR

ERR9

SERRPOINT
R1,=(SP)
PC.RPTOP
#3.(R1)+
R3.(R1)+
R&. (R1)+

NUMBER

INSERT NAME ADD POINTER
:GET HEADER WORD

AS IS VALUE

;BUMP PARAM POINTER
s INSERT SB VALUE

:REPORT RESULTS
:REPORT REMAINDER

:RESTORE R3
:RESTORE R1

:GO CHECK IF ERROR COUNT EXCEEDED

CZRLIBO RLO1/02 DRIVE _TEST 1

CZRLIB.MAC

1127 013734
1128
1129

013736
013742

1131

013750

12-DEC=79 14:02

010521

004737
004737

024150
024356

004737

016132

1130 013746 012601
132
(3)
(3)

013754
013754
013754

1134
1135
1136
1137
1138

013756
013760
013764
013766
013772

1133

1139

013756

013776

(11) 013776
(11) 014000

104423

010146
005737 003014
001051
005277 167162
004737 023362
005046
153716

012746
013746
012746
012746
012746
010600

006051
003026
006040
011446
000005

(4)

014034

062706

000014

(14) 014040
(13) 014042
(12) 014046
(11) 014050
(10) 014054
(9) 014056
(8) 014062

011546
012746
011446
012746
010346
012746
012746

014032

1140

014040

(7)

014066

104414

012746

1142

ENDMSG
L10010:
BGNMSG

014110

(13) 014110 011546
(12) 014112 012746 011163

CLR
BISB

-(SP)
RLDRV+1,(SP)

MOV
MOV
TRAP
ADD
B8R

#10,~(5P)
SP,RO
CSPNTB
#22,5P
48
#FMT15,#MJORD ,R3,#RESE3, (R4) ,#RESE4, (RS)
(RS) ,~(SP)
#RESE4, ~(SP)
(R4) ,=(SP)
#RESE3, - (SP)

PRINTB

oml.g oeg

000020

ADD

1143
1144
1145

1146
(3)

014144

1046414

014152
014156
014160
014164
014164

005237
012901
004737

003014

MOV
MOV
MOV
MOV

016132

MOV

TRAP

48:
ENDMSG
L10011:

#FMTS,#BASADD
,RLBAS ,#DRVNAM, <B,RLDRV+1> :REPORT ID

(R5) ,~(SP)
#RESE4, ~(SP)
(R&) ,=(SP)
#RESE3,~(SP)
R3,~(SP)
#MJORD
, = (SP)
#MRSLT
. ~(SP)

MOV
MOV

(%)

;STORE R1
STEST IF 2ND BAD LINE
‘YES = SKIP
*BUMP ERROR COUNT
*REPORT OPERAT ION

MOV
MOV
MOV
MOV
MOV
MOV
MOV

000007

81 746
010600

*G0 CHECK IF ERROR COUNT EXCEEDED

#DRVNAM
. = (SP)
RLBAS
, = (SP)
#BASADD
, = (SP)
#FMTS
= (SP)
#5,-(5P)
SP.
CSPNTB
#14,SP

MOV
MOV

INC
MOV
JSR

SEQ 0063

*REPORT RESULTS
*REPORT REMAINDER

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

014136
014142

015746 011751

*RESTORE R1

R1,=(SP)
MORE CE
3s
SERRPOINT
PC ,RPTOP

6)
(3)

0141

(SP)+,R1

MOV
ST
BNE
INC
JSR

011157

(7)

;SET SB VALUE

CSMSG

(11) 014116 011446
(10) omso 012746
(9) 014126 010346
(8) omgg 012746

006170

PAGE 2-8

PC.RPTRES
PC _RPTREM

TRAP
ERR10

MOV

3s:

RS, (R1)+

PC, CKERLM

PRINTB

000022

13:08

JSR

PRINTB

011717

014102 062706
014106 000421

104414

MOV

006170
005421

(4)
1141

014100

JSR
JSR

011157

014072 012746 000010
014076 010600

(2)

MOV

011163

(6)
(3)

17-DEC-79

ERROR MESSAGES

003033

(10) 014004
(9) 014010
(8) 014014
(7) 014020
(6) 014026
(3) 014030
(4)

MACY11 30A(1052)

#FMT14_ #MRSLT ,#MWORD ,R3,#RESE3, (R4) ,#RESESL, (RS)

#FMT14,-(SP)

;REPORT DATA

.~(5P)
#MJORD
, = (SP)

#FMT15 .= (SP)
#7,-(5P)
SP.RO
CSPNTB

#20,SP

MORE CE
(SP)+ ,R1
PC,CKERLM

;INC COMPARE ERROR COUNT
*RESTORE R1
*GO CHECK IF ERROR COUNT EXCEEDED

)
i

HPTCODE

.WORD
WORD
.WORD
.WORD
.WORD
.WORD
.WORD

i P

ek
e
e
S

sCSR BASE ADDRESS DEFAULT
sVECTOR DEFAULT
¢PRIORITY DEFAULT

sTYPE OF DRIVE, RLO1=1, RLO2=2

;DRIVE NUMBER DEFAULT
sRL11 CONTROLLER

51 0013-L8SwW/2
g bt b
b
bt b

LOLIMW:

HILIMW:

HEADW:
ERLIMW:
DCLIMW:
ENDSW

.WORD

=
=
=
=

USE ALL CYLINDERS
USE ALL SECTORS
EXECUTE DRIVE SELECT TEST
EXECUTE HEAD AL IGNMENT
HEAD SELECT SUPPLIED FLAG

Hunnn

.WORD

2 N

.WORD

MISWIW:

—

SPTCODE

D e

000000
000377
000000
000024

000012

OO
OO

L10012-LSHW/2
174400
160
240

wvawnn

D il
D P

BGNMOD
BGNSW

i e
D i

d D

014210
014212
014214

— e

CSMSG

ENDMOD

N
el
e

— b -3

o~ —

SEQ 0064

L10012:

R e

ENDHW

PAGE 2-9

.EVEN

D e

e D D d D D D D

BGNMOD
BGNHW

TRAP

—_,

) i

000240
000001
000000
000001

ENDMOD

13:08

]
=

b Dl

—

D i

000006
174400

MACY11 30A(1052)
17<-DEC-79
ERROR MESSAGES

Y,y

104423

JBJILTAANANIITEIS SRECRIIERIFURULEZBSELE

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

HILIMIT SPECIFIED FLAG

LO LIMIT SPECIFIED FLAG
DO MANUAL INTERVENTION

.WORD

.WORD
.WORD
.WORD

L10013:

014222

ENDMOD

014222

BGNMOD
DSPCODE
DISPATCH
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

sERROR LIMIT
:COMPARE ERROR LIMIT

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC

12-DEC=79 14:02

MACY11 30A(1052)

ERROR MESSAGES

Hgg 014264
1188
014264

1191
1192
1193
1194
1195
ugg

014266
014270
014272

1198
1199

014272
014272

1201
1202

014272
014276

005037

003144

(3)

014302

014276

012700

000120

010037 003146

(2)
1204
1205

014304
014310

104462

014310
014312
014316

103002
005237

003144

(3)

014322

014316 012700
104441

000340

(3)

014324

104450

014326
014330

103403
042737

1200
(3)

(3)
1203
(3)

1206 014324
1207

(2)
1208

1209

014326

BGNPROT

000000

.WORD

177777
000010

014342

(3)
1212
(2)

014346
014350
014350

(3)

1213
1214

1215
1216

(3)

014342

014352
014
014364

014364

012700

104447

012700

(2)

014372

103034

1220 0143764
1221 014402
122; ow.og
1223 014412

013737
005037
012700
012701

1525

005301

104447

1224 814.416 00
mgg

1226 014422
1227 0144264

SEQ 0065

:P-TABLE OFFSET OF CSR

=1
10

*NOT A MASS-BUSS DRIVE
*P-TABLE OFFSET OF DRIVE

.SBTTL

INITIALIZATION CODE

;CHECK FOR PRESENCE OF A P-CLOCK
CLR
CLOCK

MOV

TRAP

001375
012737

CLKFLG
P,CLKADR

#'P RO

18:

BCC
INC
SETPRI

18
CLKFLG
#340

TRAP

(S$SPRI

MOV

100014

014206

2s:

000034

#340,R0
CSMANI

BCS
BIC

28
.
#MITEST 'DRSELT 'HDAL IGN,MISWIW ;CLEAR ALL MANUAL

CLR

SSINDX

MOV

#EF .PWR RO

003154

* INTERVENTION FLAGS

LSUNIT,PWRFLG
PWCON

MOV

#EF . START
RO
CSREFG

003074

:
:

RSTRT:

18:
003154

*POWER FAILURE?

;NO, GO CHECK NEW PASS

MOV
JwP

TRAP

:YES = SKIP

;CLEAR SUBROUTINE STACK INDEX

READEF #EF .PWR

BNCOMPLETE
002012
003356
003156
000100

;CHECK IF MANUAL INTERVENTION ALLOWED

TRAP

:"'START'* COMMAND SEQUENCE
is:
READEF #EF .START

000040

;BRANCH IF NO P=CLOCK
;INDICATE PRESENCE OF A P=-CLOCK
“SET PRIORITY TO 7 TO INHIBIT INTERRUPTS

TRAP
CSREFG
BNCOMPLETE
4$
BCC
4

003366

;CLEAR CLOCK FLAG
*P=CLOCK?

CSCLCK

MOV
RO, CLKADR
BNCOMPLETE
18

BCOMPLETE

013737 002012
000137 014772

014370

1218
1219

5
PAGE 2-10

WORD
WORD
ENDPROT

MANUAL

103005

(3)

1217 014372

BGNMOD
INITCODE
BGNINIT

1210 014336 005037 003002

1211

13:08

ENDMOD
:LOAD PROTECTION TABLE

1189

1190 014264

17-DEC-79

;SET POWER FAIL FLAG
:GO SERVICE POWER FAIL
;CHECK IF START

RESTART ;NO - SKIP

BCC

RESTART

MOV
CLR
MOV
MOV

LSUNIT,DRVCNT ~ ;SET UP UNIT COUNT
PASNUM
:CLEAR PASS NUMBER
#ERRCNT ,RO
#64. R
:GET A COUNT

DEC

ON START INITIALIZE TO START AT FIRST DRIVE. CLEAR INTERNAL
PASS COUNT, AND ERROR COUNT.

CLR

BNE
MOV

(RO) +

*CLEAR ERROR COUNTER STORAGE AREA

18
:LOOP TILL ALL CLEARED
#ERRCNT=2,ERRPOINT ;INIT ERROR POINTER

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

1228 014432 57
1229 014440
1230

1231
1232
1233

014446

123%
1235

014464
014464

(3)

014470

(2)
1237
1238
1239

014472

(3)

1236

(3)

1240

(2)
1241
1262

(3)

1243

(2)
1244
12645

1246

12647

1248
1249
1250
1251
1252
1253
1254
1255

014464

014472
014474
014474

014474

014500

014502

014502
014504

014504

014510

014512

014210

104447

000036

104447

014602

1258 014604
1259 014610
1260 014612
1261 014616

005737
001741
005337
000736

1263
1264

012122
012122

014620
014622
014624

103406

READEF

#EF .RESTART

;CHECK IF RESTART

TRAP

CSREFG

#LOCYL MISWIW

#EF .RESTART
RO

003154
002012
177777
003360
003074
000002
003360
003026

RSTRT

#EF . CONTINUE
,RO
(SREFG

NXTPAS:

003154
003074
003360
003154

PASNEW:

sTEST IF CONTINUE

PWCON

#EF .NEW,RO
(CSREFG

PASNEW

TST

DRVCNT

;TEST IF ALL UNITS CHECKED

INC

PASNUM

;ELSE BUMP PASS COUNT

BNE

GPHARD
TRAP

SETDON

*NO= SKIP

#ERRCNT=2,ERRPOINT :INIT ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES
#-1,PSETNM
*SET PARAM SELECT TO INITIAL
PSE TNM
*NEXT SET OF PARAMETERS
DRVCNT
*DOWN COUNT DRIVE TOTAL
#2 ,ERRPOINT
:UPDATE THE ERROR POINTER
PSETNM, RO
*SET UP TO GET PARAMETERS
#RLBAS ,R2
*GET POINTER TO RL11 BASE ADDRESS
RO,R1

MOV
RO,R1
BCOMPLETE

TST
BEQ
DEC
BR

PWRFLG
NXTPAS
PWRFLG
NXTPAS

:NO

MOV
MOV

(R1)+,(R2)+
(R1)+. (R2)+

:STORE CSR
:STORE VECTOR

MOV

(R1)+,T.DRIVE

:STORE DRIVE TYPE

BCS

003366

:NO = SKIP

BCS

MOV
MOV
MOV
SETDON: INC
DEC
ADD
MOV
MOV

003366

GTEST IF LO LIMIT SET

BCS
PWCON
ON CONTINUE PICK UP UNIT LAST UNDER TEST
READEF
#EF .NEW
;:CHECK IF STARTING NEW PASS

BCOMPLETE

:SKIP IF GOOD PARAM

;RECENT POWER FAILURE
;ACCOUNT FOR DRIVE

-MOVE P-TABLE CONTENTS TO LOCAL STORAGE

7s:

005721

1267 01
1268 014634
1269 014642

01212
022737
001426

000001

002276

1271

012737

000776

002306

014644

YES
= SKIP
:ELSE CLEAR LO LIMIT

TRAP

1266 01%3 012137 002276

1270

(13
LOL IMW
SETDON

BIT

MOV

104442

010001

BNE
CLR
BR

TRAP

000035

003356

012737
013737
012737
005237
005337
062737
013700
012702

:SET PARAM SELECT TO INITIAL VALUE
*PRESET HEAD ALIGN DONE FLAG

BCOMPLETE

103403

001013

#<1,PSETNM
#-1 . HADONE

MOV

PAGE 2-11

BCS
RSTRT
;" 'CONTINUE'
COMMAND SEQUENCE
CONTINUE:
READEF
#EF.CONTINUE

103533

012700

MOV
MOV

MOV

103743

012700

13:08

BCOMPLETE

005237

(2)

104447

014522

014526
014534
014542
014550
014554
014560
014566
014572

LAB:

RESTART:

003074

014520

014206

012700 000037

014600
014602

1265

040000

005737

014576
014576

1262

177777 003360
177777 003010

014512
014514
014514

1256
(3)

(3)
1257

0327

014456 001002
014456 005037
014462

MACY11 30A(1052)
17-DEC-79
INITIALIZATION CODE

(R1)+

MOV
cTMP
BEQ

(R1)+.(R2)+
#1,T.0RIVE
65§

MOV

#510. ,NXTHL

;INITIALIZE RLO2 PARAMETERS

*BUMP PAST PRIORITY

SEQ 0066

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC

1272
1273
1276
1275
1276

1277

014652
014660
014666
014676
014702
014710

12-DEC=79 14:02

012737

1280

177000

MOV
MOV
MOV
MOV
MOV

002304

MOV

B8R

014720

014726 012737 000400 002310
014734 012737 077600 002312
014742 012737 077600 002314
014750 012737 077600 002316
014756 012737 000376 002306
014764 012737 177400 002304

012737

000377

002302

6&58:

1288

014772

032737

020000

014206

PWCON:

002302

014212

1291

015010

(3)

015030

1292

015036

(7)
(6)
(5)
(&)
(2)

(3)

015010
015014
015020
015026

012746
012746
013746
012746

000340
016056
003030
000003

015032

062706

015036

015044

(3)

015042

1298

015050

}2232

(3)

001003
013737

PWCON

18:

MOV

#255. ,HLMTW

MOV
MOV
MOV
MOV
MOV
MOV

#256. .GBND
#77600, CAMSK
#77600,D1RMSK
#77600
. HDC YL
#254. NXTHL
#177400,CLRBYT

BIT

MHICYL ,MISWIW

BNE
MOV

SETVEC

18
HLMTW,
HIL IMW

RLVEC.#INTHLR,#340

#10,5P

012700

000000

MOV

#0,RO

013702

003026

MOV

RLBAS,R2

015052

103004

1301
1302

015054
015060

005737
001001

015062

#177000,CLRBYT

ADD

104441

000520

TRAP

SETPRI

TRAP

MANUAL

003356
»

;SET PRIORITY TO O TO ALLOW INTERRUPTS

($SPRI

TRAP

CSMANI

BCC

ST
BNE

PASNUM
4$

;SET UP INTERRUPT VECTOR FOR DRIVE

CSSVEC

BNCOMPLETE

}3389

SEQ 0067

#511. HLMTW
mg. GBND
#177600, CAMSK
#177600.DIRMSK
#177600
. HDCYL

000010

104437

}3382

6
PAGE 2-12

#340,=(SP)
#INTHLR,
= (SP)
RLVEC,~(SP)
#3,-(SP)

104450

015052

MOV
MOV
MOV
MOV

015050

1299

13:08

:INITIALIZE RLO1 PARAMETERS

1281
1282
1283
1284
1285
}ggg

1289 015000
1290 015002

17-DEC-79

INITIALIZATION CODE

012737 000777 002302
012737 001000 002310
012737 177600 002312
012737 177600 002314
012737 177600 002316

1278 014716 000425

1279

MACY11 30A(1052)

;SET RL11 BASE ADDRESS POINTER
;MANUAL INTERVENTION ALLOWED?

;NO
:YES, CHECK PASS NUMBER
:NOT FIRST PASS, NEED DRIVE UP

JFIRST PASS, PROGRAM WILL INSTRUCT USER

;CHECK IF POWER FAILURE WAIT IS NEEDED

1308
};(1»3

015064
015070

005737
001515

003366

1311

015072

013705

003032

MOV

1313
015102
1314 015106
1315 015155
g;g 015120

010562
012701
032762
001101

000000
000170
000001

MOV
MOV
BIT
BNE

RS, RLCS (R2)
*SELECT DRIVE
#120. ,R1
-INITIALIZE WAIT COUNT
#DRDYMSK ,RLCS (R2}
:DRIVE UP YET
RS
;YES START TEST

1318
(3)

012727

000372

WAITMS
MOV

ng.
#4250, ,(PC)+

131;

015076

015122
015140

052705

48:

000200

ST
BEQ
BIS

000000

9$:

PWRFLG
8s

;NEEDED?
:NO, SKIP

RLDRV,RS

;DRIVE SELECT

#CRDYMSK ,RS

*SET CRDY

;WAIT A SECOND

VIV
oS

MACY11 30A(1052)
17-DEC-79
INITIALIZATION CODE

0
bSDLY.(PC)+

177772

-6£PC)

177756

<22(PC)
=20

000006

003033

RLDRV+1, (SP)

WFMT5,=(SP)
#5,-(SP)

000014

#14,SP

062706

000004

013700

003360

#FMT3
#FMT3,-(SP)

*REPORT DRV DID NOT REC'R FROM PWR FAIL''

JNEW LINE

;/ADDRESS AND DRIVE NUMBER

#1,-(SP)

SP,RO

CSPNTF

#4 ,SP
PSETNM
PSETNM,RO

C$DODU

CSDCLN

003140

ERRVEC

8%:
ENDINIT

104411

:56xrv GONE BY

SP,RO
CSPNTF

104444

005037

SEQ 0068

‘ig;;.CBASADD.RLBAS.IDRVNAH.<B.RLDRV*1> ;REPORT DRIVE UNIBUS

006051
003026
006040
011446
000005

011432
000001

104451

#NOPWR ,=(SP)
W#FMT24 ,-(SP)

#2,-(SP)
SP,RO
CSPNTF
#6,SP

012746
012746
010600
104417

D6
PAGE 2-13

R1
9s
#FMT24 ,ANOPWR

006056
012252
000002

012746
010600
104417
062706

13:08

002116

S
EERER
SBREXTEE

o
e
o
o
D e
d D
e-

Vi AV AV LIV IV LV IV LV VIV, |

o [elelelelelelelolels]

CZRLIBO RLO1/02 DRIVE_TE ST 1
CZRLIB.MAC
12-DEC-79 14:02

L10015:

ENDMOD

TRAP

CSINIT

;DO DROP UNIT ON DRIVE
s INVOKE CLEAN-UP CODE TO RESTORE DRIVE

:/TO STATIC STATE
;CLEAR ERROR VECTOR

1
CZRLIBO RLO1/02 DRIVE_TE ST
CZRLIB.MAC

12-DEC-79 14:02

wVior

NN
N

SEELELRELEES

1338

MACY11 30A(1052)

17-DEC-79

AUTO DROP SECTION

.SBTTL

13:08

6
PAGE 2-14

SEQ 0069

AUTO DROP SECTION

:THE AUTO DROP SECTION IS INVOKED BY THE DIAGNOSTIC SUPERVISOR WHENEVER THE
:"ADR"' FLAG IS SET BY THE OPERATOR. IT IS EXECUTED AFTER THE INITIALIZATION
;CODE AND CHECKS THE DRIVE TO DETERMINE IF IT IS READY TO RECEIVE A COMMAND.
;IF THE DRIVE IS NOT READY IT IS DROPPED FROM THE TEST CYCLE AND THE NEXT
sDRIVE 1S ACCESSED. IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED
sAFTER WHICH THE NEXT DRIVE IS ACCESSED.

015326

005037

003364

012746
012746
013746
012746
104437
062706

000340
016124
003140
000003

013702
005762
005737
001447

003026
000000
003364

012746
012746
012746
010600

006730
012252
000002

BGNAUTO

SETVEC

000010

000014
011432
000001

062706

000004

013700

003360

000460
013705
052705
010562

003032
000200
000000

104417

104451

MOV

RLBAS ,R2

TRPFLG

MOV
MOV
MOV
MOV
TRAP
ADD

010600

012746
012746
010600

#340,-(SP)
#TRPHAN, - (SP)
ERRVEC,=(SP)
#3,-(SP)
CSSVEC
#10,SP

RLCS(R2)

BEQ
18
PRINTF #FMT24 ,#NOCTLR

005046
153716

104417

TRPFLG

1$:

-CLEAR TRAP FLAG

ERRVEC,#TRPHAN,#340

MOV
MOV
MOV
MOV
TRAP
ADD

TST

104417
062706

062706

CLR

#NOCTLR,-(SP)
#FMT24 ,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

:SET UP TRAP VECTOR TO DETECT

:/MN-D E)S%STENT CONTROLLER UNIBUS
/ADDRE

;GET RL11 BASE ADDRESS

*ACCESS DRIVE CONTROLLER UNIBUS ADDRESS
:DID TRAP OCCUR?

:BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR
;ELSE, PRINT MSG. 'DRV DROPPED = NO CNTLR'

?E’I‘NTF

‘;g;;JBASADD.RLBAS.‘DRVMM.G.RLDRV*D

BIS8
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS ,-(SP)
#BASADD ,~(SP)
#FMT5,-(SP)
#5,-(SP)
SP,RO
.
CSPNTF
#14,SP

PRINTF

#FMT3

MOV
MoV
MOV
TRAP
ADD
DODU
MOV
TRAP

#FMT3,-(SP)
#1,-(SP)
SP,RO
CSPNTF
#4,SP
PSETNM
PSETNM,RO
C$DODU

MOV
BIS

RLDRV,R5
#CRDYMSK RS

MOV

;PRINT DRIVE INFORMATION

;DO DROP UNIT ON DRIVE

sBRANCH TO EXIT

R5.RLCS(R2)

;LOAD IN THE DRIVE NUMBER

;ELSE, GET DRIVE NUMBER
sSET CONTROLLER READY

RLIBO RLO1/02 DRIVE_TEST 1
RLIB.MAC
12-DEC=79 14:02

MACY11

1365
1
1367
(8)

000000

(7)

(6)
(3)
(4)
1;2%

0155;2
0155
015540

032762
001046

000001

015540- 012746
015544 012746
015550 012746
015554 010600
015556 104417
015560 062706

006757
012252
000002

1369 015564
(11) 015564

(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
1§;6

015566
015572
015576
015602
015606
015612
015616
015620
015622

1371
(7)
(6)
(3)
(4)
(4)
1372
(3)
(3)
1373
(3)
(3)
1374
(3)
(3)
1375
1376
1377

015626
015626
015632
015636
015640
015642
015646
015646
015652
015654
015654
015660
015662
015662
015662

005046
153716
012746
013746
012746
012746
012746
01
104417
062706

003360

013700
104436

003140

6
PAGE 2-15

#FMT24 ,ANOTRDY

SEQ 0070
: 1S DRIVE READY?

;BRANCH TO PERFORM TESTS IF DRIVE 1S READY
:PRINT MSG. "DRV DROPPED - NOT RDY''

W#FMT24 ,-(SP)
#2,-(SP)

SP,RO
CSPNTF
#6,SP

:/WITH 'READY""’

#FMTS,#BASADD ,RLBAS,#DRVNAM, 
=(SP)
RLDRV+1, (SP)

#DRVNAM
, - (SP)
RLBAS ,-(SP)
#BASADD,-(SP)
WFMTS5,-(SP)
#5,-(SP)
SP,RO
CSPNTF

000014

013700
104451

#NOTRDY ,=(SP)

003033
006051
003026
006040
011446

011432
000001

13:08

ggRDYHSK+RLCS(R2)

000006

012746
012746
01
104417
062706

104461

17-DEC-79
AUTO DROP SECTION

30A(1052)

#14,SP

#FMT3
#FMT3,-(SP)
#1,-(SP)

sPRINT DRIVE INFORMATION

SP,RO
CSPNTF

000004

#4,SP
PSETNM
PSETNM,RO

2%:
ENDAUTO
L10016:

C$DODU
ERRVEC
ERRVEC RO
CSCVEC
CSAUTO

;DO DROP UNIT ON DRIVE

;RELEASE THE ERROR VECTOR

(3)

MACY11 30A(1052)
BGNMOD
BGNCLN

012746
012746
013746
012746

104437
062706

000010

000000

2$:

000000
000000

000372

6
PAGE 2-16

SEQ 0071

ERRVEC ,#TRPHAN,#340

#340,-(SP)

#TRPHAN
= (SP)

3%:

n7
#7 RO
C$SPRI

;SET PRIORITY TO 7

#CRDYMSK ,RLCS(R2)

JTEST

CONTROLLER READY

sNO LOOP UNTIL READY

RLDRV,RLCS(R2)
;SET DRIVE NUMBER
#DRDYMSK ,RLCS(R2)
sTEST IF DRIVE BUSY
5%
sNO - SKIP
#3
JWAIT 300 ms
60250..(PC)+

002116

6$DLY.(PC)+

177772

-6(PC)

177756

-22(PC)
.~20

003030

ERRVEC,=(SP)
#3,-(SP)
CSSVEC
#10,SP

000007

012727
000000
013727
000000
005367

13:08

CLNCODE

SETVEC

000340
01€124
003140
000003

000200

17-DEC-79

AUTO DROP SECTION

015664
015664

s
N

—

e
v |

Af\g §NWJ\MOV
PN NN NN~
CEL A WW
£EE

CZRLIBO RLO1/02 DRIVE _TE ST 1
12-DEC-79 14:02
CZRLIB.MAC

5%:

RLVEC
RLVEC,RO
(SCVEC

JRELEASE DRIVE VECTOR

;NO

003366

PWRFLG

003366

PWRFLG

ERRVEC
ERRVEC,RO
CSCVEC

003140

CSCLEAN

ENDDU

L10020:
ENDMOD

C$bU

;PWR FAIL SET

]

J\—O

CZRLIBO RLO1/02_DRIVE TES
CZRLIB.MAC
12-DEC-79

MACY11

016056

30A(1052)
17-DEC=79 13:08
INTERRUPT SERVICE ROUTINES

6
PAGE 2-17

.SBTTL

INTERRUPT SERVICE ROUTINES

BGNSRV

INTHLR

SEQ 0072

s INTERRUPT HANDLER FOR DRIVE ABORTS WAIT TIMER AND STORES ALL RL11 REGISTERS

005037
012237
012237
012237
011237
012737
013702

CLR

003006
ENDSRV

L10021:

000002

DLYCNT

MOV
MOV
MOV
MOV
MOV
MOV

s CLEAR UNELAPSED DELAY COUNT

(R2)+,7.CS
(R2)+,7.BA
(R2)+,T.DA
(R2),T.MP
#-1,DONE
RLBAS ,R2

sSTORE RL REGISTERS

;SET DONE FLAG
JRESTORE RZ2

RTI

s INTERRUPT SERVICE ROUTINE FOR P=CLOCK DECREMENTS DELAY COUNTER AT 100-MICROSECOND
;TIME INTERVALS

005337
016122

003142

BGNSRV

ENDSRV

L10022:

000002

CLKINT
DEC

005237
000002

003364

BGNSRV
ENDSRV

L10023:

sDECREMENT CLOCK DELAY COUNTER

RTI

;i?zgggggr

016124
016124
016130
016130
016130

DLYCNT

SERVICE ROUTINE

TRPHAN
INC

RTI

TRPFLG

SETS

TRAP FLAG WHEN A NON-EXISTENT UNIBUS ADDRESS

;INDICATE

THAT TRAP OCCURRED

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC

12-DEC-79 14:02

MACY11 30A(1052)

GLOBAL SUBROUTINES

016132

016132
016140
016142
016142
010144
016144
016146
016146
016152
016156
016162

016166

016170

027737
002453

165016

014216

13:08

BGNMOD

GLBSUB

;
:

ERROR LIMIT CHECKING ROUTINE
DROPS DRIVE IF ERROR LIMIT EXCEEDED

CKERLM: 5{'7’

?gnnpom.snum LR Iresr IF ERROR LIMIT EXCEEDED

INLOOP
TRAP
CSINLP
gggHPLETgs

011104
014216

#FMT25,-(SP)
#3, -(SP)
SP,RO
CSPNTF

BISB
MOV
MOV
MOV
MOV

RLDRV+1,(SP)
#DRVNAM
. - (SP)
RLBAS
, = (SP)
#BASADD
, - (SP)
#FMTS,
= (SP)

062706

000014

MOV
TRAP
ADD

SP.RO
CSPNTF
#14,SP

012746
012746
010600
104417
062706

011432

MOV

104451

MOV

18:

000000

000002
000004
000006

003044

003046
003050
003052

000200

#FMT3

MOV
MOV
TRAP
ADD

#1,-(SP)
SP.RO
CSPNTF
#4,SP

TRAP
DOCLN
TRAP
RTS

C$DODU

MOV
MOV
MOV
RTS

#FMT3,-(SP)

PSETNM
PSETNM_
RO
CSDCLN
PC

;DROP DRIVE
;GO TO CLEAN UP

RLBA(R2),T.BA
RLDA(RZ2) ,T.DA
RLMP(R2).T.MP

:GET BUS ADDRESS REG
:GET DISK ADDRESS
:GET MULTI-PURPOSE REG

*RETURN

WAIT FOR CONTROLLER nnsour TO FORCE INTERRUPT ROUT INE

WAITIN: MOV

000000

#5,-(SP)

:
READ AND STORE ALL RL11 REGISTERS
READRL: MOV
RLCSR(R2),T.CS :GET CS REG

000002

'OVER ERROR LIMIT = UNIT DROPPED''

0?2;5,#BASADD ,RLBAS ,#DRVNAM, :PRINT DRIVE

PRINTF

pDODU
MOV

003360

JYES = SKIP

#MEXERS ,-(SP)
ERLIMW, = (SP)

003033
006051
003026
040
011446

000004

IN ERROR LOOP

MOV
MOV
MOV
TRAP
?EANTF

000001

SKIP

#FMT25,ERLIMW AMEXERS ;PRINT MSG.

#10,SP

013700

000010

PRINTF

MOV
MOV

012257

JCHECK IF

ADD

104417

SEQ 0073

GLOBAL SUBROUTINES

103451

005046
153716
012746
013746
012746
012746
012746
010600

PAGE 2-18

.SBTTL

104420

012746
013746
012746
012746
010600
104417
062706

17-DEC-79

CLR

BIT

BEQ

(SP) ,~(SP)

£ ROOM FOR ERROR POINTER

2(SP}

CLEAR FOR POINTER

:NO - SKIP TO WAIT

#CRDYMSK , mcsmé)

:TEST IF CONTROLLER READY

INFORMATION

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC

12-DEC-79 14:02

MACY11 30A(1052)
17-DEC=79
GLOBAL SUBROUTINES

1464
1465

016342
016346

004737
005737

016272
003006

1467
1468

016354
016362

012766
032737

006176
002000

003044

1470

016372

012766

006216

000002

006337

000001
003142

003142

1473

016410

00020

JSR

000002

1$:

TST
BEQ
MOV

4$:

#1,DLYCNT
610. L(PO)+

ASL
ASL

1477

016426

013727

002116

MOV

1479

016434

005367

177772

1481

016442

005367

177756

1483

016450

032762

000200

000000

1485
1486

016460
016464

004737
012766

016272
006271

000002

1488

016474

005737

003006

1490
1491

016502
016506

004737
012766

016272
006236

1495
1496
1497

016516
016522
016526

005037
105037
005037

003004
003363
003014

.WORD
DEC

—

016564
016570

000404
013746
005037

003126
000003

003126

003126
003126

\NION

WNN

nNoO

b
h S

003002

000008
00001

002404
002404

003016
003126

sMULTIPLY BY 2 AGAIN

s IMPLEMENT TIME DELAY LOOP

LSDLY, (PC)+

0
-6(PC)

gCWNG.Z(SP)

TST
BNE

JSR

MOV
BR

=22(PC)

PC ,READRL

:READ RL REGS

DONE
1$
PC ,READRL

sELSE CHECK IF INTERRUPT OCCURRED
:YES = SKIP TO SET TOO SLOW
;READ RL REGS

#MNOINT ,2(SP)
2%

g’EJPFfSSAGE FOR CONTROLLER HUNG

;ELSE SET NO INTERRUPT FLAG

;GO TO RETURN

OPERATION AND TEST INITIALIZE ROUTINE

CLRB
CLR

003126

:INITIALIZE DELAY COUNT
sMULTIPLY BY 2

B"KR?V

JSR

DLYCNT
DLYCNT

:RETURN

.=20
#CRDYMSK ,RLCS(R2) ;TEST IF READY NOW SET
38
;YES
= SKIP

TSTINT: CLR

000013

003002

%xggag&

013703
=lelelelel
le]

016576
6602
016604

013746

016550

(elelelelelele]

BRIRIRGN 3
d
i

VRNV

e I

WN—=O

ey
e
i
N
e
e S
e

003126

BNE
DEC
BNE
BIT
BNE

RTS

1500

:NO - SKIP

MOV

. WORD

;ELSE SET TOO SLOW ERROR POINTER

;SET MESSAGE FOR NO DRIVE RESPONSE

RTS

MOV

5%:

sTEST IF INTERRUPT OCCURRED
:NO - GO SET NO INTERRUPT ERR FLAG

#MDRRES ,2(SP)

003142
000012

000002

sREAD ALL RL REGS

DONE
5%
#MTOSLOW,2(SP)

MOV

006337
012727

38:

PC ,READRL

SEQ 0074

sTEST IF OPI SET

016414
016420

000000

6
PAGE 2-19

#OPIERR,T.CS

1476
1475

000000

BIT

BEQ
2$:

13:08

OPF LAG

NOERCT
MORE CE
PC

;CLEAR OPERATION FLAGS

JRESET INHISIT ERROR COUNTING
sRESET MORE COMPARE ERRORS

GET STATUS AND GET STATUS WITH RESET ROUTINE

GSTATR: MOV

MOV

GSTATC: MOV

MOV

BR
GSTAT: MoV
CLR
GSTATG: MOV
MOV
TST

TEMP4 ,~(SP)

:STORE TEMP4

#GETSTAT!DRSET, TEMP4
GSTATG

TEMP4 - (SP)

#GETSTAT,TEMP4
GSTATG
TEMP4 - (SP)
TEMP4
R3,-(SP)
SSINDX ,R3
(R3)+

;SET FOR RESET

;STORE TEMP4

:SET FOR NO RESET
:STORE TEMP4

sSET FOR_SAVE L. AND T. REGS
:STORE R3

MOV
SuB

:GET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY
4(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION

MOV

RO,=(SP)

MOV
MOV

MOV
BIT
BEQ

R3.SSINDX

:STORE IT BACK

R1.=(SP)

:STORE R1

#2 ERRSWI
#DRSET , TEMPS
118

:STORE RO

sSET _FOR NO ERROR RETURN
sTEST IF DRIVE RESET
:NO - SKIP

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC

12-DEC=79 14:02

1520
1521
1522
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
1523
1526
1525
1526
1527

016646
016654
016656
016674
016700
016702
016706
016710
016714
016716
016722
016732
016736
016742
016744
016752

032762
001426

040000

012727
000000
013727
000000
005367
001375
005367
001367
012701
004737
017570
032737
001076

000372

1530
1531

016764

032737

1528
1529

1532

1533

1534
1535
1536
1537
1538
(3)
(3)
(3)
(3)
(3)
(3)
(3)

(3)
1539

1540
1541
1542
(4)
(5)
(5)

(5)
1543
1544

1545

016754
016762

016772

016774
017002
017004
017012
017014
017032
017036
017040
017044
017046
017052
017054

017060
017070

017072
017074
017100
017100
017102
017104

0171%
81711
017114

177772

177756
000030
016564

49%:
508:

000001

003044

000020

003052

144000

003052

040000

003044

012727
000000
013727
000000
005367
001375
005367

000372

001321
012703

012344
%1 7
7

518:

002116
177772
177756

01%701

14346

;gg‘

01N
0171
017140
0171?8

8};}“

005301
()O‘l;3
815 7
g;

1555

017156

017564

000004

003044

118:

8s:

000003

003040

0137

003126

003040

005037

003006

13:08

6
PAGE 2-20

SEQ 0075

#DRVERR,RLCS(R2) ;TEST IF DRIVE ERROR SET
498
:NO
= SKIP
:WAIT FOR DRIVE TO SETTLE
filZSO. L(PC)+
0
LSDLY, (PC)+
0
=-6(PC)
=4
=22(PC)
.=20
#24. ,R1
sINITIALIZE WAIT COUNTER
PC,GSTAT
;GET DRIVE STATUS

BIT
BNE

#DRDYMSK,T.CS
;TEST IF DRIVE READY
5%
:YES - GO DO CLEAR
#HOSTAT ,T.MP
:ELSE TEST IF HEADS OUT
518
:YES = BYPASS RELOAD WAIT FLAG SETTING
#SPDSTAT 'HCESTAT'WDESTAT,T.MP ;TEST IF DRIVE HAS ERROR
:THAT CAUSED HEADS TO

BEQ

BIS
BR
BIT
BNE
WAITMS
MoV
LWORD
MOV
LWORD
DEC
BNE
DEC

#RELDWT ,OPFLAG
5%
#DRVERR,T.CS
5%
M
#4250, ,(PC)+
0
LSDLY, (PC)+
0
=-6(PC)
=4
=22(PC)

BNE
MOV
ERRHRD
TRAP
.WORD
WORD

R1
508
#MUNDEF ,R3
10001., .ERR1
CSERHRD
10001
0

TST

TEMPS

BNE
DEC

010762

003126

BIT
BEQ
WAITMS
MoV
LWORD
MOV
.WORD
DEC
BNE
DEC
BNE
MOV
JSR
38
BIT
BNE
BIT

104456
023421
000000

81 703

8171

002116

003004

0171

1548

000000

040000

1367
005301

17-DEC-79

GLOBAL SUBROUTINES

052737
000462
032737
001056

001013

017122

1549
1550
1551
155§

001466

0171

1546

1547

032737
001010

MACY11 30A(1052)

.WORD
JMP

BNE

.=20

;NO = SKIP

UNLOAD

ELSE SET WAIT FLAG
;SKIP TO CLEAR
:TEST IF DRIVE ERROR NOW
sYES = SKIP TO CLEAR
;WAIT FOR DRIVE TO GET ERROR, READY, OR HEADS OUT

;DEC WAIT COUNTER
:IF NOT DONE, LOOP
JMESSAGE FOR UNDEF INED STATE

ERR1
148

JEXIT

sNO_SKIP

sTEST IF SAVE REGISTERS

MOV

#6 R

sSET SAVE COUNT

MOV

-(R3) ,~(SP)

;PUT REG ON STACK

MOV

#L.MP+2 R3

sSET ADDRESS OF FIRST SAVE

DEC
BNE
MOV
BR

R1
8s
#GETSTAT,L.DA
63

TEMP4,L.DA

:INSERT PRESET FOR STATUS

CLR

DONE

;CLEAR INTERRUPT FLAG

MOV

sDEC_COUNT
:LOOP UNTIL ALL SAVED
SEY FOR GET STATUS
SKIP

CZRLIBO RLO1/02 _DRIVE_TEST 1

CZRLIB.MAC

12-DEC=79 14:02

MACY11 30A(1052)

17-DEC=79

GLOBAL SUBROUTINES

1556 017162

013737 003032

003034

MOV

1559 017204
1560 017212

013762
013762

000004
000000

MOV
MOV

1557
1558

017170
017176

1561

017220

(3)

017224

000000

(3)
(3)

017232
01723%

000000
005367

177772

(3)

017242

005367

177756

1563

017254

001534

017264
017272
017300
017302

042737
032737
001533
032737

177770
000010

1570

017312

012701

000144

1572

0173264

001042

(3)

042737
052737

002000
000104

017220 012727

000001

MOV

017226 013727 002116

MOV

017240 001375

003040
003034

003034
003034

1564

1565
1566
1567
1568

003060

040000

003004

1569 017310 001450

1571

1573

(3)

017316
017326

017344

032762

001375

005367

(3)

017372 001367

1575
1576

017404
017406

1574

1577

017402

017412

1578 017414
1579
(4)
(5)
(5)

(5)

017420
017420
0172422
017426

1581

(3)

0174

017432

*STORE MP REGISTER

MOV

#100. .R1

BIT

BNE

128

12%

DEC

=20

#MRLFAL ,R3

.WORD

ERR1

104456
023423
000000

000455

B8R

012727

000005

013727

002116

005367

177756

004737
017570

016564

ootgs

001367

177772

WAITUS

138
PC.GSTAT
10003.
, .ERR1
CSERHRD
10003
0

148

MOV

#ANS, (PC)+

MOV

5sou.(mo

.WORD

.WORD
DEC

BNE

:DEC COUNT

*LOOP IF NOT 0
*GET DRIVE STATUS
*ERROR RE TURN

*SET RESULT MESSAGE POINTER

;GO TO EXIT

TWAIT

-6(PC)

DEC

=22(PC)

isa
$

PC,GSTAT

BNE

:YES = SKIP

JCALL WAIT

0
-6(PC)

=22(PC)

ERRHRD
TRAP
.WORD
WORD

;INITIALIZE WAIT COUNTER

DEC

*NO- SKIP

ODRDYHSK.RLCS(st sTEST IF DRIVE NOW READY

MOV

128:

*NO
= SKIP

#*C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE
#DRSET.L.DA
JTEST IF RESET WAS SPECIFIED
3s
JNO = SKIP TO EXIT
#RELDWT ,OPFLAG
;TEST IF RELOAD WAIT FLAG SET

011027

0174564

017

T.MP,T.STAT

012703

(3)

017
017466

;CHECK IF INTERRUPT OCCURRED

016564

ooooog
005367

=20
DONE

BNE
JSR

017444
012

1582
1583

001344
004737
017570

JWAIT 100 US FOR INTERRUPT

BIC
BIT
BEQ
BIT

BNE

005301

(3)
(3

01745

BNE

177756

ooooog

(3)

BEQ

.WORD
DEC

177772

017436

017

=22(PC)

WORD

002116

(3)

<§)

DEC

WAITMS

omg 012344

1580 017430

0
-6(PC)

MOV

*CLEAR FOR DRIVE & = 7 SPEC'D

LSDLY, (PC) +

.WORD
DEC

LSDLY, (PC)+

000000
005367

017366

MOV

017356
017360

017364

.WORD

AR, (PC)+

013727

(3)
(3)
(3)

#4250, ,(PC)+

000000

(3)

;LOAD RL REGS
:LOAD CS REG

WAITUS

BEQ
13%:

L.DA,RLDA(R2)
L.CS.RLCSR(R2)

MOV

017350

017352

000000

;SET UP TO GET STATUS

012727 000372

(3)

000001

003060
003040

4$:

PAGE 2-21

RLDRV,L.CS

#I1710,0.CS
#GTSTAT,L.CS

BNE
ST

017256 013737 003052

BIC
BIS

BNE

(3) 017246 001367
1se§ 017250 005737 003006

13:08

;GET DRIVE STATUS

SEQ 0076

CZRLIBO RLO1/02 DRIVE _TEST 1
12-DEC=79 14:02
CZRLIB.MAC

032737
001434
032737
001403
01 27(1);
032737
001405

MACY11 30A(1052)

17-DEC=79
GLOBAL SUBROUTINES

003044

gé;

leNYERR,T.CS

001000

003052

BIT

#VCSTAT,T.MP

BEQ
BP?V

006325
040000

003044

7%:

006346

016324

18:

28:

023422

012603
012637
005737
001403
063716
000207
01 7619

010346
0 SIOI
12703
14346
301
001375
012737

003016
003126

148:

38:

003034
000004

000002

208:
003002

22s%:

#DRVERR,T.CS
9%
10004., ,ERRG
CSERHRD
10004

BR
MOV
BR

148
#UNXERR ,R3
2%

MOV
ERRHRD
TRAP

(SP)+,R3
10002., .ERR1
CSERHRD

JSR

.WORD
LWORD
.WORD

998 :

000000

000004

003044

PC,WAITIN

10002
0
ERR1

ERRSWI

BNE

22%

TST

TEMPS

MOV
MOV
MOV
DEC
BNE
suB
MOV
MOV

#L.CS.R3
#4 ,R1
(SP)+,(R3)+
R1
208
#2,SSINDX
(SP)+,R1
(SP)+,RO

MOV

(SP)+,TEMP4

(SP)+.R3

TST

ERRSW]

RTS

BEQ
ADD

003016

O
ERR6

CLR

MOV

003126
003016

7$
0¥CMST.R3

BIT
BEQ
ERRHRD
TRAP
.WORD
WORD
.WORD

104456

012344
005037
005737
001007
012703
012701
012623
005301
001375
162737
012601
012600

M6
PAGE 2-22

100000

104456
023424

012646
000412
012703
000403
004737
012603

13:08

MOV

99%
ERRSWI
, (SP)

a(SP), (SP)

;TEST IF ANY ERROR

:NO
= SKIP

C'ggCK }F VOLUME CHECK RESET

EE}TREAS(N POINTER
sCHECK IF DRIVE ERROR
:NO = SKIP

JEXIT

EE}TREASW POINTER
:WAIT FOR INTERRUPT
sSTORE REASON POINTER FOR RETURN

;CLEAR FOR ERROR RETURN

TEST &]REGISTERS WERE SAVED

SET POINTER TO RESTORE
;SET REGISTER COUNT

:RESTORE REG

sDEC_COUNT
:LOOP UNTIL ALL ARE RESTORED
REMVE EN{RY FROM SUBROUTINE STACK

:RESTORE TEMP4
sTEST IF ERROR RETURN

YES - SKIP
sADD IN ERROR RETURN

sSET ERROR RETURN ADDRESS

:
GET DRIVE_STATE ROUTINE
GDRSTA: MOV
R3,-(SP)
:SAVE R3
MOV
#6 R
sINITIALIZE REGISTER SAVE COUNT
MOV
#L.MP+2 R3
:INITIALIZE ADDRESS OF FIRST SAVE
18:
MOV
-(R3) ,~(SP)
:SAVE REGISTER ON STACK
DEC
R1
sDECREMENT REGISTER SAVE COUNT
BNE
1$
:LOOP UNTIL ALL 4 REGISTERS ARE SAVED
MOV
#GETSTAT,L.DA
SET UP DISK ADDRESS REGISTER FOR GET STATUS

000003

003040

005037
013737

003006
003032

003034

MOV

RLDRV,L.CS

DONE

:CLEAR INTERRUPT FLAG

042737

002000

003034

BIC

#IT10,L.CS

IVE_NUMBER
:CLEAR FOR DRIVES 4=7 SPECIFIED

CLR

%'T‘ ‘V{ CONTROL STATUS REGISTER WITH

SEQ 0077

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02

MACY11 30A(1052)
17<-DEC=79
GLOBAL SUBROUTINES

13:08

6
PAGE 2-23

017724

052737

000104

003034

BIS

WGTSTAT,L.CS

017732

013762

003040

000004

MOV

L.DA,RLDA(R2)

017740

003034

000000

017746

000000

L.CS,RLCSRC(R2)

5%:

RLCS(R2)
58

DONE
3s
T.MP,T.STAT

003006

003052
177770
003034

003060
003060

177777

A ¥

003120

003120
003002

NN=NNNS NNNNNN

b e

b ek

d =D ed

SARRIIZBRF RSN &

3%525598898585888 &§°

020066
020072

000002
000004
003002

002404
002404

000002
003076

003016

SWAIT FOR CONTROLLER READY INDICATING
*/RECEIPT OF GET STATUS COMMAND

* INTERRUPT OCCURRED?
*BRANCH IF NOT
+GET CONTENTS OF MULTI-PURPOSE REGISTER

RTS

;CLEAR ALL BUT STATE DRIVE BITS

#L.CS.R3
#4 R
'
(SP)+,(R3)+

;INITIALIZE POINTER TO RESTORE RL REGISTERS
sINITIALIZE REGISTER SAVE COUNT
*RESTORE REGISTERS

:LOOP UNTIL AL &4 REGISTERS ARE RESTORED

3s:

016324

;INITIALIZE CONTROL STATUS REGISTER FOR

:/GET STATUS COMMAND
:INITIALIZE DISK ADDRESS REGISTER FOR
+/GET STATUS COMMAND
:LOAD CONTROL STATUS REGISTER TO EXECUTE
:/GET STATUS COMMAND

#*C<STAMSK>,T.STAT

2$:

SEQ 0078

PC,WAITIN
(SP)+,R3
PC

:DECREMENT REISTER SAVE COUNT

;WAIT FOR INTERRUPT
*RESTORE R3
*RETURN

SEEK ROUT INE
:;gézgm
;SET SPECIAL TIMING SEEK FLAG
BR
XSEEK:
TEMP1
;CLEAR SPECIAL TIMING SEEK FLAG
CLR
XSEEK1: MOV
R3,~(SP)
:STORE R3
MOV
SSINDX,R3
*GET SUBROUTINE INDEX
TST
(R3)+
*BUMP IT FOR NEXT ENTRY
MOV
2(SP) ,SUBSTK(R3) " ; INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
suB
R3.SSINDX
MOV
:STORE 1T BACK

XSEEKT: MOv

RO.=(SP)
R1.=(SP)
RS.=(SP)

:STORE REG

#2.ERRSWI
DIFAUG

*SET FOR NO ERROR RETURN
:CLEAR DIFFERENCE ARGUMENT (FOR SEEKING

022666

PC,GETPOS

*GET PRESENT POSITION

003104
003102

CURCYL,OLDCYL
NEWCYL .HLMTW

0051

HLMTW,NEWCYL
NEWCY(L,DIFAUG

00230
000001

HLMTW, NEWCYL

#1,7.DRIVE

PAST GUARD BAND)

:MOVE CURRENT TO OLD CYLINDER
:TEST IF NEW IS GREATER THAN 255

JNO - SKIP
:ELSE SUBTRACT 255.
:STORE DIFFERENCE

AS ARGUMENT

;SET NEWCYL AS 255.

000001

#1 . NEWCYL
#1.DESSGN

000001

003102

%‘ossoxr

3s:

NEWC YL
6%

sTEST IF NEWCYL HAS NEGATIVE VALUE
JNO

= SKIP

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

MACY11 30A (1052)
17-DEC-79
GL OBAL SUBROUTINES

003076
6$:

003110

13:08

7
PAGE 2-24

NEWCYL
NEWCYL ,DIFAUG
NEWCYL

CURCYL ,RS
WCYL RS
138

#1.DESSGN
RS

148

DESSGN

RS,DESDIF
DIFAUG

003110

18$
NEWCYL ,HLMTW
17
#1,DESSGN

002276

#1,T.DRIVE

003106

DIFAUG,DESDIF

002302

001007
012737
022737
001003
063737

#L.CS.RS

VONOWVSWN=O

ERNENNNNRNANARK et
~~ o~

N N
VAN
N N N

ufit\fl\nf\
WWNWWW W

#SEEK
. (RS)
RLDRV , (R5)

081;16.(RS)+
+

21%:

003110
000004
003112
000020
000001
021136

238:
25%:

003006
003120
000004
000002
000000

000001

;ELSE MAKE IT POSITIVE
sAND STORE IT AS ARGUMENT
sAND SET NEWCYL TO 0
;COMPUTE DIFFERENCE AND NEW CYLINDER
sSUB NEWCYL FROM CURCYL
:IF DIFF IS POSITIVE = SKIP(REV SEEK)
;ELSE SET SIGN FOR FORWARD
:MK'E, DIFFERENCE POSITIVE
sSET SIGN FOR REVERSE
sSTORE DIFFERENCE
:1S THERE A DIFFERENCE ARGUMENT
:NO - SKIP
sCHECK IF NEW CYL IS 255.
:NO - SKIP
sELSE FORCE SIGN FOR FORWARD
s (INNER GUARD BAND)

18§

Sttt

3BIRIRAIZ

1699

SEQ@ 0079

DESDIF, (R5)
#7
RO

2
#DIRBIT, (R5)
DESHD

258

#HDSEL , (RS)

MBSET0, (RS)+
PC,RDYCHK

sLOOP UNTIL ALIGNED
;TEST SIGN

sSKIP IF 0

sELSE INSERT SIGN

sTEST IF HEAD 0
:YES - SKIP

;ELSE SET HEAD BIT
s INSERT MARKER BIT
sCHECK IF DRIVE READY

DONE
TEMP1

;CLEAR INTERRUPT FLAG
sCHECK IF SPECIAL SEEK FLAG SET
sYES = SKIP, DO NOT START SEEK
;LOAD RL REGISTERS

;gRS).RLCS(RZ)

sPERFORM SEEK OPERATION
sALLOW TIME FOR RECEIPT OF SEEK COMMAND

658
=(RS) ,RLD2.(R2)
-(R5) _RLBA(R2)
30s:

;GET L REG_ADDRESS
:SET FOR SEEK
- INSERT DRIVE NUMBER
sCLEAR IF DRIVE 4 - 7 SPEC'D
:CLEAR BUS ADDRESS
;LOAD DIFFERENCE
sSET TO SHIFT DIFFERENCE

6##1.(PC)4

002116

bsoLv.(Pc>+

177772

-6£PC)

177756

222(PC)

003006

DONE

.=20

sTEST IF

INTERRUPT DONE

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

1736

020516

001012

1738 020524
1739 020526

012603

1737
(&)

(5)

020520

020526

020530

004737

000000
012344

1742

020544

005737

1744
(4)
(5)
(5)
(5)

020552
020552
020554
020556
020560

1743 020550

005037
000411

100006

104456
023426
000000
012646

1745 020562
1746 020566
1747 020574
1748 020576
1749 020600
1750 020602
1751 020604
1752 020610
1753 020612

005037
162737
012605
012601
012600
012603
005737
001403
063716

1755

020620

017616

1759

020626

1754

020616

;;;g 020624
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769

020630
020634
020636
020644
020652
020656
020660
020662
020670
020674

000207

010346

013703
005723
016663
63
010337
010046
010446
012737
004737

021100

003044

003016
000002

328:

658:

003016
003016

000000

998

000002
000004
003002

002404
002404

000002
021136

003016

(SP)+,R3
10005...m1

:GET RESULT MESSAGE POINTER

(SERH

WORD
.WORD

O
ERR1

1ooos

ERRSWI
658

;CLEAR FOR ERROR RETURN

8PL

658

‘NO = SKIP

CLR
SUB
MOV
MOV
MOV
MOV
TST
BEQ
ADD

ERRSWI
#2,SSINDX
(SP)+,RS
(SP)+.R1
(SP)+.RO
(SP)+.R3
ERRSWI
998
ERRSWI , (SP)

:RESTORE R3
*TEST IF ERROR RETURN
*YES - SKIP
*ADD IN ERROR RETURN

MOV

a(sP), (SP)

;SET ERROR RETURN ADDRESS

R3,=(SP)

:STORE REGISTERS

:GET POINTER TO L REGS
:SET FOR SEEK

TST

RTS

MOV
TST
MOV
su8
MOV
MOV
MOV
MOV
JSR
658

T.CS

10006.
, ,ERR6
CSERHRD
10006
0
ERR6

020676
020702

012704
012714

003034
000106

MOV
MOV

#L.CS.R4
#SEEK. (R&)

020712

042724

002000

BIC

#MIT10,(R4)+

MOV
MOV

oesogr.(m
#7.R

DEC

DESSGN

BIS

#DIRBIT,(R4)

1774

020706
020716

1775
1776

020720
020724

1778

020732

053714
005024

013714
012703

003032

003106
000007

BIS

CLR

1777 020

006314

1779

020734

001375

BNE

1781

020742

001402

BEQ

1783
1784

020750
020754

1780

1782

020744

005303

38:

005737 003110

052714

005737
001402

000004

003112

5%:

ASL

TsT
BEQ

;TEST IF ANY ERROR

;CLEAR FOR ERROR RETURN
*REMOVE ENTRY FROM SUBROUTINE STACK
*RESTORE REGISTER

SSINDX,R3
*GET SUBROUTINE INDEX
(R3)+
*BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) " ; INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3.SSINDX
*STORE IT BACK
RO.=(SP)
R&.=-(SP)
#2.ERRSWI
:SET FOR NO ERROR RETURN
PC .RDYCHK
*CHECK IF DRIVE READY

1770
1771

1;775

:GO WAIT FOR INTERRUPT

CLR
BR

SIMSEK: MOV

003002

PAGE 2-25

:YES = SKIP

TRAP

ERRHRD
TRAP
.WORD
WORD
.WORD

003002

328

PC,WAITIN

.WORD

003016

13:08

JSR

MOV
ERRHRD

104456

020532
020534

020536
020542

BNE

016324

023425

(5)
(5)

1740
1741

MACY11 30A(1052)
17-DEC=79
GLOBAL SUBROUTINES

RLDRV ; (R&)
(R4) +

(R&)

*INSERT DRIVE NUMBER

:CLEAR FOR DRIVE 4 - 7 SPEC'D

:CLEAR BUS ADDRESS

:LOAD DIFFERENCE
:SET COUNT FOR SHIFT TO ALIGN

*ALIGN DIFFERENCE IN DA

;TEST IF SIGN SET

*NO= SKIP

DE SHD
78

STEST IF HEAD 0
*YES - SKIP

:INSERT SIGN

SEQ 0080

CZRLIBO RLO1/02 DRIVE _TEST 1
12-DEC=79 14:02
CZRLIB.MAC

MHDSEL , (R4)

DONE
#10. ,R1

=(R4) .RLBA(R2)
-(R4) .RLCS (R2)
DONE

108:

658

pry

lelele]

000001

n
8##1,(PC)0

002116

8$DLY.(PC)+

177772

-6(PC)

177756

- =22(PC)

-d
-

s INSERT HEAD BIT
: INSERT MARKER BIT
sCLEAR INTERRUPT FLAG
sSET WAIT COUNT FOR 800US
sLOAD RL REGISTERS
sCHECK IF INTERRUPTED
sYES - SKIP

sDEC WAIT COUNT
JIF 0 - SKIP

;GO CHECK DONE

13%:

;GO WAIT FOR TIMEOUT
sGET RESULT MESSAGE POINTER

N = " " o

R 8!\4\’\’\

SEQ 0081

—

PAGE 2-26

=(R&) ,RLDA(R2)

016324

003016

d =D

) D

MBSETO, (R4)+

7%:

000020
000001
003006
000012
000004
000002
000000
003006

052714

13:08

3/\&’\’\’\’\;\’\

#3323

020756
762

MACY11 30A(1052)
17-DEC-79
G LOBAL SUBROUTINES

65%:

;REMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGS

003016

ERRSWI

sTEST IF ERROR RETURN

003016

S?RSUI.(SP)

:ADD IN ERROR RETURN

(SP)+,R3

998

#2,SSINDX
(SP)
+ R4
(SP)+,RO

d —d

003002

000002

;CLEAR FOR ERROR RETURN

14%:

a(SP), (SP)

RDYCHK:
002404
002404

003016

frhry

ON—
Vo

000002
000004
003002

'S on

003002

& NIFRREREY
—

—

) d

d d

d D

d d

D e

D d e

;YES = SKIP

sSET ERROR RETURN ADDRESS

DRIVE READY TEST ROUTINE.
S00Ms F OR_READY TO SET.
Vv

CHECKS DRIVE IS READY.

R3,-(SP)
SSINDX ,R3
(R3)+

;STORE REGS
:GET SUBROUTINE INDEX
;BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) ;INSERT THIS CALL
#4,SUBSTK(R3)
sADJUST IT TO CALLING LOCATION
R3.SSINDX
sSTORE IT BACK
RO,=(SP)
R1,-(SP)

oS’ EARSUL
1%:

IF NOT, WAIT

#5000.
R
PC,GSTAT

sSET FOR_NO ERROR RETURN
sSET WAIT COUNT
sGET DRIVE STATUS

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

13:08

032737
001103

000001

012727
000000
013727
000000

000001

"
5’#1,(PC)*

002116

LSDLY, (PO)+

177772

-6(PC)

177756

=22(PC)
20

003044

BIT
BNE

#DRDYMSK,T.CS

s
il

010263
011263

PAGE 2-27

SEQ 0082

sTEST IF DRIVE READY
YES - EXIT

“333333333?333§§GG
N VIS WYY wenN=O
~~

021214

MACY11 30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

#MDRDY ,R3
#C500MS R4
10010...ERRS
CSERHRD

;DEC WAIT COUNT

;LOOP IF NOT O
sSET RESULT MESSAGE POINTER
sSET CONDITION MESSAGE POINTER

80010

ERRS

000030
016564
003044

sINITIALIZE WAIT COUNT
;GET DRIVE STATUS

#DRDYMSK,T.CS

;TEST IF DRIVE READY
;YE S = SKIP
:WAIT FOR 100MS

000001

2%:

#24. ,R1
PC,GSTAT

000372

50250..(PC)+

002116

5SDLY.(PC)+

177772

-6(PC)

177756

=22(PC)
.=20

100000

003044

3s:

#ANYERR,T.CS

43
10011., .ERR6

CSERHRD
10011

003156
003016
00000

003016
003016
021470

003002

4%:

ERR6
ERRCNT
ERRSWI
#2,SSINDX
(SP)+ R4
(SP)+ ,R1
(SP)+,R0O
(SP)+ ,R3
ERRSWI
99%
E?RSUI.(SP)

a(SP), (SP)

;DEC WAIT COUNTER
sLOOP UNTIL TIME DONE
sTEST IF ANYERR SET
:NO - SKIP
sREPORT ALL ERRORS

sREDUCE ERROR COUNT FOR DUAL ERRORS
;CLEAR FOR ERROR RETURN
sREMOVE ENTRY FROM SUBROUT STACK
JRESTORE REGS

sTEST IF ERROR RETURN
;YES = SKIP

:ADD IN ERROR RETURN

;

sSET ERROR RETURN ADDRESS

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC~ 79 14:02
CZRLIB.MAC

NOAVN SN =

LSS CEERENEREREERF
B3 EREERIEREE:
2% 333333333338
SEIPIRIRIZEE ERRLPLR

1937
1938
1939
1940

021472

021514

MACY11 30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003112
010000

014206

014214

003112

13:08

7
PAGE 2-28

CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS
SELECTEDDBV SOF TWARE PARAMETER.
ESHD
CHOSHD: CLR
;CLEAR TO HEAD 0
BIT
#HEADLM MISWIW LSST §F1HEAD SPECIFIED
BEQ
1$
MOV
HEADW,
DE SHD
s INSERT SPECIFIED HEAD
1%:
RTS
PC
SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1

021516
021524

010000

014206

UNLESS HEAD O SPECIFICALLY SELECTED BY SOF TWARE PARAMETER.

SWAPHD: BIT

BNE

003112
000001

BNE

003112

MOV
ADD

2%:
3s:

021554

#HEADLM,MISWIW

sTEST IF HEAD SPECIFIED

DE SHD

;TEST IF HEAD ONE USED
;YES = TAKE ABORT EXIT

2$
2s

#1,DESHD
#2,(SP)

RTS

MOV

a(SP), (SP)

:YES = TAKE ABORT EXIT

;ELSE SET FOR HEAD ONE
;BUMP PAST ABORT RETURN

sRETURN
;GET ABORT DESTINATION

SWAP OLD CYLINDER AND NEW CYLINDER ROUTINE.
0, =(SP)
:STORE RO
MOV
OLDCYL ,RO
:MOVE OLD TO RO
MOV
NEWCYL .OLDCYL
sMOVE NEW TO OLD

ONSWAP : MOV

021556
021560
021564

003100

MOV

RO, NEWCYL

RTS

MOV

000001

003126

000002

000004
003002

000002
003126

003044
000004

021136
003006
003034
003032
002000

READ HEADERS ROUTINE.

XRDHDC: MOV
BR
CLR

#1,TEMPS
XRDHDG
TEMP4

MOV
ST
MOV

(R3)+
2(SP),SUBSTK (R3)

:
XRDHD
XRDHDG: MOV

003002

(SP)+,R0

002404
002404

SUB

#4,SUBSTK (R3)

MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R4 ,=(SP)

MOV

003016

BNE

1%:

2$:

R3,-(SP)
SSINDX,R3

R3.SSINDX

#2.ERRSWI
TEMP4

MOV

#L.MP+2,R3

MOV
DEC
BNE
JSR

-(R3),=(SP)
R1
18
PC,RDYCHK

MOV

65$

CLR
MOV
MOV

BIC

#4 R

DONE
#L.CS,R1
RLDRV . (R1)

#1710, (R1)

sPUT OLD IN NEW

;RESTORE RO

;SET FLAG TO BYPASS REG STORAGE
;GO DO IT

;SET FLAG TO SAVE T. AND L. REGS
:STORE REGISTERS
;GET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY

: INSERT THIS CALL
;ADJUST IT TO CALLING LOCATION
:STORE IT BACK

sSET _FOR NO ERROR RETURN
TEST g;lgEGISTERS TO BE SAVED
SET POINTER FOR REGS
SSET_COUNT
:SAVE REGISTER
:DEC_COUNT
:LOOP UNTIL ALL ARE SAVED

sCHECK DRIVE READY

;CLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS
;LOAD DRIVE NUMBER
sCLEAR FOR DRIVE 4 - 7 SPEC'D

SEQ 0083

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

052721

2007

014162
WWWWWWWW

014162

000110

BIS
CLR

000004

560006
000012

177772

003044

5%:

010263
011302

4%:

003044

s INSERT COMMAND
;CLEAR BA
sCLEAR DA
sLOAD RL11 REGS

#10.
#AR10.,(PC)+

;WAIT 1 MS FOR INTERRUPT

(R1)+
=(R1) ,RLDA(R2)
=(R1) ,RLBA(R2)
=(R1) ,RLCSR(R2)

DONE
148
#DRDYMSK,T.CS
108
#MDRDY ,R3
#CAFDT
R4

PC,GSTAT

#DRDYMSK,T.CS
11$

003016
11%:

011313

108:

ERRSWI
108
R1
4$
#C5SEC,R4
10014.
, ,ERRS

CSERHRD
10014
0
ERRS
60%
T.CS

12%

003054
000006
000006

12%:

016324

14%:

sTEST

INTERRUPT FLAG SET

:NO
= SKIP
;TEST IF DRIVE READY
SYES - SKIP

:SET NO READY MESSAGE
;CONDITION OF AFTER DATA XFER

sINITIALIZE WAIT COUNT
;GET STATUS

sTEST IF DRIVE HAS COME READY
:NO = SKIP

:CLEAR ERROR SWITCH
:SKIP

sDEC WAIT COUNT
sLOOP UNTIL TIME DONE
sSET CONDITION AFTER 5 SECONDS

JEXIT

;CHECK FOR ANY ERRORS
:NO - SKIP

10016., .ERR6

sREPORT ALL ERRORS

ERR6
608
,R1
#HDWRDZ2
RLMP(R2), (R1)+
RLMP(R2) ,(R1)+
65%

;GET POINTER
sSTORE LAST TWO HEADER WORDS

CSERHRD
60016

022162

SEQ 0084

#RDHEAD, (R1)+
(R1)+

10017., ,ERRS
CSERHRD
60017

000030
016564

003044

PAGE 2-29

=22(PC)
.=20

003006

000001

-6(PC)
.4

177756

000001

13:08

0
5$DLY.(PC)#

002116

012727
000000
013727
000000

MACY11 30A(1052)
17-DEC=79
GLOBAL SUBROUTINES

PC,WAITIN

(SP)+,R3

JEXIT
;WAIT FOR INTERRUPT
;GET RESULTS

CZRLIBO RLO1/02 DRIVE TES 1
CZRLIB.MAC
12-DEC=79 14:02

2043

022164

2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
22062063

022174
022200
022204
022206
022212
022216
022220
022222
022224
022232
022234
022236
022240
022242
022246
022250
022254
022256
022262

005037
005737
001007
012703
012701
012623
005301
001375
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
g]l g?

022264
022270
022272
022276
022300
022304
022310
022312
022314
022316
022320

013705
000402
013705
010146
042705
012701
006205
005301
001375
012601
000207

(4)
(5)
(5)
(5)

022164
022166
022170
022172

2152
2153
2154
2155

022322
022324

2157

022332

2156

2158

2159

2160
2161
2162

2163
2164
2165
2166
2167
2168
2169

104456
023437
000000
012344

022360
022366
022372
022374
022402
022404
022406

000002

000000

22%:

99%:

003052
177677
000006

000004

TRAP
.WORD
.WORD
.WORD

CLR
TST
BNE
MOV
MOV
MOV
DEC
BNE
SuB
MOV
MOV
MOV
MoV
TST
BEQ
ADD
RTS
MOV
RTS

13:08

7
PAGE 2-30

10015., ,ERR1

;REPORT

ERRSWI
TEMP4
22%
#L.CS,R3
#4 ,R1
(SP)+, (R3)+
R1
208
#2,SSINDX
(SP)+,R4
(SP)+ ,R1
(SP)+,R0
(SP)+,R3
ERRSWI
99%
ERRSWI , (SP)
PC
a(SP), (SP)
PC

;CLEAR FOR ERROR RETURN
sTEST IF REGISTERS WERE SAVED
:NO = SKIP
;SET POINTER TO RESTORE REGS
sSET_COUNT
:RESTORE REGISTER
sDEC COUNT
sLOOP UNTIL ALL ARE RESTORED
sREMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGS

C$ERHRD
10015
0
ERR1

;TEST IF ERROR RETURN
:YES = SKIP
:ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

:
POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
POSHW1: MOV
HDWRD1 ,R5
;START FOR POSITION HD BIT IN WD 1
BR
POSHDO
:SKIP
POSHSB: MOV
T.MP,R5
sSTART FOR POSITION HD BIT IN MP
POSHDO: MOV
R1,-(SP)
;STORE R1
BIC
#“CHSSTAT RS
sCLEAR ALL BUT HEAD SEL BIT
MOV
#6.R1
sSET SHIFT COUNT
1$:
ASR
R5
sSHIFT FOR RIGHT JUSTIFY
DEC
R1
8NE
18
MOV
(SP) + ,R1
;RESTORE R1
RTS
PC
;RETURN

003052

003002

012737
004737
022622
032737
001111
005301
001415

003002

003016

010337

010046
010746
010446

208:

003016

000002

162763

60$:
65%:

003034
000004

016663

022340
022352
022354
022356

003016
003126

003002

005723

022346

ERRHRD

010346
013703

022330

MACY11 30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

:
WAIT FOR READY ROUTINE. DURATION OF WAIT PASSED TO THE ROUTINE
2
FROM THE CALLING ROUTINE IN R1.
RDYWAIT:
MOV
R3,-(SP)
;STORE R3
MoV
SSINDX ,R3
:GET SUBROUTINE INDEX
TST

002404

MOV

002404

000002
016564

003016

000001

003044

:BUMP IT FOR NEXT ENTRY

R3.SSINDX

;STORE IT BACK

#2 ,ERRSWI
PC,GSTAT

;SET FOR NO ERROR RETURN
;GET DRIVE STATUS

#DRDYMSK,T.CS
9%
R1
7%

CHE (K IF READY
;YES = SKIP
:DEC WAIT COUNT
;SKIP IF 0

SuB

;INSERT THIS CALL
#4,SUBSTK(R3) ~ ;ADJUST IT TO CALLING LOCATION

MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R4 ,~(SP)

MOV

5%:

(R3)+

MOV
JSR
108
BIT
BNE
DEC
BEQ

2(SP) ,SUBSTK(R3)

SEQ 0085

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC~79 14:02

022410
022410
022414
022416
022422
022424
022430
022432

17-DEC=79
MACY11 30A(1052)
GLOBAL SUBROUTINES
WAITUS

000001

012703

0
b$DLY,(PC)+

177772

-6(PC)

177756

=22(PC)
7 $:

#MDRDY ,R3
10020.
, ,ERR3

CSERHRD
60020
ERR3

000030
016564

6 $:

003044

#DRDYMSK,T.CS

;TEST IF DRIVE READY
;YES = SKIP

3#250..(PC)*

bSDLY,(PC)¢

177772

=6(PC)
=4

177756

6%
#C5SEC,R4
10021., ,ERRS
CSERHRD
60021

011313

ERRS
003044

QRERAC28B&RYL

Dk =D~
—

d —d

LSS LS LS LS LN TNTAN TN 1S ]

003016

003002

11%:
108
:

9%:

;DEC WAIT COUNT

;LOOP UNTIL TIME DONE

;SET CONDITION AFTER 5 SECDS

118

JEXIT

0s
10022., .ERR6
CSERHRD
60022

:NO - SKIP
;REPORT ALL ERRORS

:ANYERR.T.CS

(5)

022652

;WAIT 100 MS

=22(PC)
R1

003016

sSET NAME MESSAGE PTR
;REPORT READY ERROR

sINITIALIZE WAIT COUNT
;GET DRIVE STATUS

PC,GSTAT

002116

003156
003016
000002

SEQ 0086

#24. ,R1

000372

100000

PAGE 2-31

.~4

010263

000001
012727
000000
013727
000000

a1
AR, (PC)+

002116

104456

023444
000000
012460

13:08

ERR6
ERRCNT
ERRSWI

#2,SSINDX
(SP)+ R4
(SP) +,R1

(SP)+,R0O
(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)

sTEST

ANY ERROR SET

sDECREMENT FOR DOUBLE ERROR REPORT
;CLEAR FOR ERROR ERROR RETURN
sREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

;RESTORE R3
sTEST IF ERROR RETURN
;YES = SKIP
;ADD IN ERROR RETURN

CZRLIBO RLO1/02 DRIVE_TEST
12-DEC=79 14:02
CZRLIB.MAC
)

022656

000207
017616
000207

MACY11 30A(1052)

17-DEC=79
GLOBAL SUBROUTINES

000000

99%:

RTS
MOV
RTS

13:08

PAGE 2-32

a(SP), (SP)

;SET ERROR RETURN ADDRESS

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER

003002

000002
000004

003002

002404
002404

(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
NUMBER IN_CURCYL.
R3,-(SP)
;STORE REGISTERS
GETPOS: MOV
MOV
SSINDX,R3
;GET SUBROUTINE INDEX
TST
(R3)+
:BUMP IT FOR NEXT ENTRY
MOV
2(SP),SUBSTK (R3)" : INSERT THIS CALL

SuB

021612

#4,SUBSTK (R3)
R3.SSINDX
RO,=(SP)
R5,=(SP)

65%
MOV
MOV

PC.,XRDHD

;DO READ HEADER

HDWRD1,R3
#7 ,R5

;GET HEADER WORD
sSET SHIFT COUNT
sSHIFT TO RIGHT JUSTIFY

JSR

003052
000007

4%:

ASR
DEC

BNE

177000

003104
000002

MOV
MOV
MOV

003002

65%:

003016

99%:

BIC
MOV

#177000,R3
R3,CURCYL

TST

ERRSWI

ADD

ERRSWI, (SP)

sTEST IF ERROR RETURN
:YES = SKIP
;ADD IN ERROR RETURN

a(SP), (SP)

sSET ERROR RETURN ADDRESS

SuB
MOV
MOV
MOV
BEQ

003016

R3
R5

;ADJUST IT TO CALLING LOCATION

:STORE IT BACK

RTS

MOV
RTS

#2,SSINDX
(SP)+ ,R5
(SP)+,R0O
(SP)+,R3
99%
PC

;STORE AS CURRENT CYLINDER
sREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

READ ALL HEADERS ROUTINE.
IN IBUFF.

RDALHD : MOV

003002

000002
000004
003002

MoV

002404
002404

003016

00000
003762
003026
000006

000010
003032
002000
003036

003004

003034
003034
003034

TST

MOV

40 HEADERS ARE READ AND STORED

R3,-(SP)
SSINDX,R3

:STORE REGISTERS

#2 ERRSWI
#40. R
cnon4o OPFLAG

;SET FOR NO ERROR RETURN
sSET HEADER COUNT

sGET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK (R3) : INSERT THIS CALL
#4,SUBSTK (R3)
;ADJUST IT TO CALLING LOCATION
R3.SSINDX
:STORE IT BACK
RO.=(SP)
R1.=-(SP)
R4.=(SP)

(R3)+

#1BUFF .R3
, R4
RLBAS
#RLMP R4
#10,L.CS
RLDRV.L.CS

#81710,0.CS
L.BA

sSET 40 HDR OP FLAG

:SET POINTER TO STORE HDRS
;GET BASE ADDRESS

sMAKE IT POINT TO MP REG
;LOAD FOR READ HEADER, NO INTERRUPT

; INSERT DRIVE NUMBER
:CLEAR FOR DRIVE 4 = 7 SPEC'D

:CLEAR BA

SEQ 0087

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

MACY11 30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003040
003112
000020
003040

003036
000200

003040
000004
000002
000000

3%:

021136
003034
077777
000200

000000

6%:

000000

7%:

13:08

7
PAGE 2-33

SEQ 0088

CLR
TST
BEQ
BIS
MOV
MOV
BIT
BNE
JSR

PC,RDYCHK

*ELSE CHECK READY

MoV
MOV
BIT

#77777 R0
SET COUNT FOR WAIT
#CRDYMSK ,RLCS(R2) ; CHECK THAT OPERATION COMPLETED

L.CS,RLCS(R2)

:LOAD RLCS REG

8%
RO
78

;YES - SKIP
*DEC COUNT
*SKIP IF NOT YET 0

(SP)+,R3
10025.
, ,ERR1
CSERHRD
10025
0
ERR1

*GET RESULT MESSAGE POINTER

65%

BNE
DEC

L.DA
DESHD

sCLEAR DA
sTEST IF HEAD 0

#HDSEL ,L.DA

cELSE

L.DA,RLDA(R2)
L.BA.RLBA(R2)

;YES - SKIP

#CRDYMSK ,RLCS (R2)
6%

INSERT HEAD 0

;LOAD RLDA REG
:LOAD RLBA

STEST IF CONTROLLER READY

:YES = SKIP

01 6272
016324

PC,READRL
PC.WAITIN

003016

gggsux

;CLEAR FOR ERROR RETURN

T.CS
12%
10026.
, ,ERR6

;TEST FOR ANY ERRORS
sNO - SKIP

8%:

003044

*ELSE GET ALL REGISTERS
*ELSE WAIT FOR TIMEOUT

CSERHRD

(1)0026
ERR6

003016
12%:

gggsul

:CLEAR FOR ERROR RETURN

(R4), (R3)+
(R4), (R3)+
(R4)
, (R3)+

:STORE HEADER WORDS

2}
000002

003002

65%:

(SP) +,Ré4

(SP) +.R1
(SP) +.RO
(SP)+.R3
ERRSWI
99%
ggnsux.(sp)

003016
003016
000000

#2,SSINDX

99%:

2ésp>.(sp)

:DEC HEADER COUNT
:REMOVE ENTRY FROM SUBROUT STACK

:RESTORE REGISTERS

;TEST IF ERROR RETURN
*YES - SKIP
*ADD IN ERROR RETURN

:SET ERROR RETURN ADDRESS

REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND
OPERATION BEING PERFORMED PORTION OF ALL

ERROR MESSAGES.

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC-79 14:02

MACY11 30A(1052)

GLOBAL SUBROUTINES

RPTOP:

003002

000002
012746
012746
012746
010600

104414
062706

010132
011632
000002
000006

3%:

002404
012005
000002

PAGE 2-34

Ré,=(SP)
SSINDX
1%
#2 R4
HFMT9 ,#SEQMES
#SEQMES ,~(SP)
#FMT9,~(SP)
#2,-(SP)
SP,RO

SEQ 0089

s TEST SUBROUTINE INDEX 0

;SKIP IF 0

SET INDEXER TO FIRST ENTRY

:PRINT "‘SUBROUTINE CALL SEQ'*

(CSPNTB
#6,SP

H#FMT16,SUBSTK
(R4)

sPRINT CALLING LOCATION

SUBSTK(R4) ,=(SP)

SP,RO
CSPNTB

#6,SP
#2.R4
R4
. SSINDX
1%:

006 363
003012
011435
000003

3$°

;BUMP INDEX
;CHECK IF ALL PRINTED

LOOP IF NOT ALL PRINTED YET

#FMT4 ,ERHEAD, nsn.Ae

#TSTLAB,-(SP)

:PRINT ERROR HEADFR

(SP)
, =AD
ERHE

#FMT4
= (SP)
#3,-(SP)

SP,RO
CSPNTB
#10,SP

104414

062706

MoV
TST
BEQ
MO

13:08

W#FMT16,-(SP)
#2,-(SP)

000006
000002
003002
012746
013746
012746
012746
010600

17-DEC=79

003004

#SEEKOP 'RORWOP,OPFLAG

L.CS,R1

#177741.R1
003004
003004
003004

#6.,R1
2$

;CLEAR SK & RD OR WRT FLAG

:GET COMMAND EXECUTED

*STRIP ALL BUT FUNCTION CODE

;TEST IF SEEK OPERATION
:NO - SKIP

2%:

#SEEKOP,OPFLAG
#12.R1

-ELSE SET SEEK FLAG
*TEST IF WRITE

:
208

#RORWOP ,OPFLAG
#14 ,R1

:SET RD OR WRT FLAG
:TEST IF READ

22%:

#RORWOP ,OPFLAG
:SET RD OR WRT FLAG
#FMT1,#MOPER,OPMSGS
(R1) :PRINT OPERATION

208

*NO - SKIP

OPMSGS
(R1) ,~(SP)

#MOPER,
- (SP)
#FMT1,=(SP)

#3,-(SP)
SP_RO
CSPNTB

000010

000436
032737

003004

;CHECK IF GET STATUS
*NO
= SKIP

4$
gs.m

*NO
= SKIP
*SET TO PRINT WITH RESET

#COMPOP,OPFLAG

;TEST

#DRSET,L.DA

003040

000016
007777

#10,SP
R1,#4
4$

4$:

STEST IF RESET INCLUDED

IF ANY OTHER OPERATION

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12=-DEC=79 14:02

2587
2588
2589
2590
2591
2592
2593

2594

2595

(8)
(7)
(6)
(3)
(&)
(4)
2596

2597
2598

2599
(8)
(7)
(6)
(3)
(4)
(4)

023654
023656
023662
023666
023672
023674
023676

001424
013704
012701
032704
001003
005721
006204

023702
023706
023712
023716
023720
023722
023726

023734
023736

023742

016146
012746
012746
010600
104414
062706
032737

001415
012701

000006
100000

016146
012746
012746
010600
104414
062706

002224
011427
000002

023770
023776
024000
024000

032737
001430

010000

024004
024010
024014
024020

012746
013746
012746
013746

010073
003110
010066
003106

(9)

024030

013746

003100

(7)

024040

(10) 024026

(6)

(3)

(4)
(4)

024034

024044

024050
024052
024054

2604
2605
2606
(13)
(12)

024060
024066
024070
024070
024074

(10)
(9)
(8)
(7)
(6)

0241064
024110
024114
024120
024124

(11) 024100

(3)

024130

012746

8$:

9s:

000006

(14)
(13)
(12)
(11)

013746

003004

000050

023742
023746
023752
023756
023760
023762

000434

6%:

002224
011427
000002

023766

(8)

023700 000772

023702

17-DEC-79

GLOBAL SUBROUT INES

003004
000020
000001

2600

2601
2602
2603
(15)

MACY11 30A(1052)

003004

10$:

003112

13:08

M7
PAGE 2-35

BEQ
MOV
MOV
BIT
BNE
TST
ASR

13
OPFLAG,R4
#20,R1
#81700,R4
6$
(R1)+
Ré&

PRINTB

#FMTZ2,0PMSGS(R1)

B8R

MOV
MOV
MOV
MOV
TRAP
ADD
BIT

OPMSGS(RU -(SP)
#FMT2, - (SP)
#2,-(SP)
SP.RO
CSPNTB
#6,SP
#HDR4GO,OPFLAG
;TEST IF 40 HEADER OPERATION

BEQ
MOV

108
#50,R1

MOV
MOV
MOV
MOV
TRAP
ADD

OPMSGS
(R1) ,-(SP)
#FMT2,~(SP)
#2,-(SP)
SP.RO
CSPNTB
#6,SP

BIT
BEQ
PRINTB
MOV

#SEEKOP,OPFLAG :TEST IF SEEK
158
‘NO
- SKIP
#FMT13_#FRMWD, OI.DCYL H#DIFWD ,DESDIF ,#SGNWD ,DESSGN,#HDWD, DE SHD
DESHD, = (SP)

PRINTB

MOV
MOV
MOV
MOV

15§

010111

MOV

#FRMJD. - (SP)

000011

MOV

#11,-(5P)

104414
062706

000024

TRAP
ADD

013746
012746

003114
010077

012746
013746
012746
012746
012746

010073
003104
010104
012202
000007

012746

010600

032737
001424

013746

010600

011653

020000

003112

MOV

003004

158:

BIT
BEQ
PRINTB
MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV

MOV

;SKIP

#HDWD
, = (SP)
DESSGN, =(SP)
#SGNWD
. = (SP)
DESDIF .=(SP)

MOV

‘NO - SKIP
*ELSE PRINT IT

#FMT2,0PMSGS(R1)"

010060

012746

:NO
= SKIP
*SET UP TO DETERMINE WHICH ONE
*PRESET THE POINTER
*CHECK THE BIT
*IF SET - SKIP
;BUMP POINTER

#DIFWD.-(SP)

OLDCYL ,~(SP)

#FMT13.-(SP)

SP,RO

CSPNTB
#24,SP

#RORWOP,OPFLAG :;TEST IF READ OR WRITE SET
17%
*NO
- SKIP
#FMT22,#CLWD,CURCYL,#HDWD, DE SHD,#SECWD.DESSEC
DESSEC.=(SP)
#SECWD
.~ (SP)

DESHD, =(SP)

#HDWD
, = (SP)
CURCYL ,=(SP)
#CYLWD.~ (SP)
#FMT22.~(SP)
#7.-(SP)

SP.RO

SEQ 0090

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02

2607

024140

004737

222?3

024146

000207

2608 024144 012604

024612

2611

2612
2613

024150

010146

024152
024154
024156
024162

010346
010446
012701 003062
012103

(9)
(8)
(7)
(6)
(3)

024164
024166
024172
024176
026202

011146
012746 005421
012746 011420
012746 000003
010600

024164

(&)

0246204

2619
2620
2621
2622
2623
2624

024212
024216
024220
024224
024230
024232

021127
001453
012704
022127
001002
012704

2626 024240

001442

(4)

2625

2627

178:

2614
2615
2616
2617

2618

MACY11 30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

104414

026206 062706

024236

024242

005303

JSR

PC,CLRPARM

RTS

MOV

(SP)+,Ré4

MOV
MOV
MOV
MOV

R3.=(SP)
R&.=(SP)
#RESPARM,R1
(R1)+,R3

MOV
MOV
MOV
MOV
MOV

(R1) ,=(SP)
MRSLT,~(SP)
mmi-(SP)
#3,-(SP)
SP.RO

ADD

#10,5P

PRINTB

TRAP

010736

011637
010731
38:

;TEST IF MESSAGE IS NO DRV STATUS
*YES = SKIP REST OF REPORT
*PRESET FOR FORMAT 11
:CHECK IF REPORTING CYLINDER LOC
*NO = SKIP
*ELSE CHANGE TO FORMAT 12

BEQ

SIF 0 = EXIT

(4)

024262

062706

ADD

#10,SP

024266
024270
024274
024276
024302

012146
012746
010446
012746
010600

MOV
MOV
MOV
MOV
MOV

(R1)+,=(SP)
#RESEL ,~(SP)
R4, =(SP)
#3.-(SP)
SP.RO

(4) 024306
2629 024312
2630 024316

062706
162703
001413

(9)
(8)
(7)
(6)
(3)
(4)

2631

(9)
(8)
(7)
(6)
(3)
(4)

(4)
2632
2633
2634

024266

024304

024320

104414

024320 012146
024322 012746
024326 012746
024332 012746
024336 010600

026340

024342
024346
024350
024352

104414

062706
012604
012603
012601

TRAP

PRINTB

011163
000003

TRAP

CSPNTB

R&4 #RESE4,(R1)+

ADD
SUB
BEQ

#10,SP
#2.R3
I3

011170
011413
000003

MOV
MOV
MOV
MOV
MOV

(R1)+.=(SP)
#RESES,~(SP)
#FMT1,=(SP)
#3,-(5P)
SP.RO

ADD
MOV
MOV
MOV

#10,SP
(SPS+,R4
(SP)+.R3
(SP)+.R1

000010

TRAP

6$:

:REPORT SB VALUE

CSPNTB

000010
000002

PRINTB

*DEC PARAM COUNT

R4, #RESE3,(R1)+ ' :REPORT IS VALUE

(R1)+,=-(SP)
#RESES,-(SP)
R4, =(SP)
#3.-(SP)
SP.RO

2628

;PRINT NAME

(R1) ,#MNDRST
6$
#FMT11,R4
(R1)+,#MCYLOC
3s
#FMT12 R4

PRINTB

000010

*STORE R3
*STORE Ré&
*GET START OF PARAM
*GET NUMBER OF PARAM

CSPNTB

MOV
MOV
MOV
MOV
MOV

104414

*RESTORE R4

CMP
BEQ
MOV
cTMP
BNE
MOV
DEC

SEQ 0091

;CLEAR PARAM TABLE

#FMT1.1,#MRSLT, (R1)

024242 012146
024244 012746 011157
024250 010446
026252 012746 000003
024256 010600
024260

REPORT REASON ROUT INE

(9)
(8)
(7)
(6)
(3)
(4)

PAGE 2-36

;
PRINTS REASON PORTION FOR ALL ERROR REPORTS.
RPTRES: - MOV
R1,=(SP)
:STORE R1

000010

011645

13:08

:DEC PARAM COUNT
“IF 0 - EXIT

#FMT1 neses (R13+

;REPORT CONDITION

CSPNTB

;RESTORE REGS

CZRLIBO RLO1/02 DRIVE _TEST 1
12-DEC=79 1 4:02
CZRLIB.MAC

26%2

024354

17-DEC-79
MACY11 30A(1052)
GLOBAL SUBROUTINES

000207

RTS

13:08

8
PAGE 2-37

SEQ 0092

sRETURN

REPORT PHYSICAL ADDRESS OF DEVICE UNDER TEST
AND ALL REGISTER CONTENTS

RPTREM: ?L!'I‘NTB
BIS8
MOV
MOV

MOV
MOV
MOV
TRAP
ADD

fi?HTS,#BASADD ,RLBAS,ADRVNAM, 
SP)
RLDRV+1, (SP)
#DRVNAM. - (SP)
RLBAS
- (SP)
#BASADD
, = (SP)

#FMTS,=(SP)
#5,-(5P)
SP.RO
CSPNTB
#14,SP

REPORT RL11 REGISTERS
PRINTB #FMTE, #CSNAM, #DANAM , SBANAM , AMPNAM , #C YL WD , #HDWD

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#HDWD
. = (SP)
#CYLWD,=(SP)
MMPNAM
- (SP)
#BANAM
- (SP)
#DANAM
. = (SP)
#CSNAM
. = (SP)
#FMT6,
= (SP)
#7.,-(SP)
SP.RO
(CSPNTB
#20,SP
#FMT8,#LAB1,L.CS.L.DA,L.BA,L.MP
L.MP,=(SP)
L.BA.~(SP)
L DA.=(SP)
L.CS.=(SP)
#LABT,-(SP)
#FMT8.~ (SP)
#6,-(SP)

TRAP

CSPNTB

ADD
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#16,SP
mnr? mz T.CS.T.DA,T.BA,T.MP,CURCYL .DESHD
DESHD.~ (SP)
CURCYL ,=(SP)
T.MP,=(SP)
T.BA.~(SP)
T.DA.=-(SP)
T.CS.~(SP)
#LABZ, - (SP)
#FMT7.~ (SP)
#10,-(SP)

TRAP
ADD

CSPNTB
#22,SP

MOV

0
024610
024612

RTS

010546

CLRPARM:

SP.RO

SP,RO

CLEAR PARAMETER BLOCK FOR REPORTING

MOV

R5,=(SP)

:STORE RS

Sfil

2653
56

024614

024620

024632
0

012701

012705

b
012701
5

MACY11 30A(1052)
17-DEC-79
GLOBAL SUBROUTINES

003062

000005

2$:

MOV
MOV
CLR
DEC

003062

13:08

lRESPARH R1

<ni)+
RS

#RESPARM,R1

(SP)+,R5

PAGE 2-38
;GET ADDRESS OF BLOCK
S ET COUNT
:CLEAR WORD
*DEC COUNT

*LOOP UNTIL 0
JRESET POINTER
;RESTORE RS

ENDMOD

.TITLE

CZRLIBO RLO1/02 DRIVE TEST 1

;DISK STATE FUNCTIONS

:BITS 0-2 OF THE MULTIPURPOSE REGISTER DURING GET STATUS COMMAND DEFINE THE
;STATE OF THE DRIVE
STATE
STATE
STATE
STATE
STATE
STATE
STATE
STATE

NOWVMSWN=O

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12=DEC-79 14:02

LOAD CARTRIDGE
SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK
LOCKON
UNLOAD HEADS
SPIN DOWN

SEQ 0093

CZRLIBO RLO1/02_DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02

2679

024642

(3)
2683
2684
2685
2686
2687
2688
(13)
(13)

024642
004642
024646
024650
024654
024656
024664
024664
024666

(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
2689
2690
(3)

024702
024706
024712
024716
024722
024726
024730
024732
024736
024742
024742

012746
012746
012746
012746
012746
010600
104417
062706
005037

024746

004362

MACY11 30A(1052)

GLOBAL SUBROUT INES

BGNMOD

2680
2682 024642

(12) 024672
(11) 024676

(3)

17-DEC-79

13:08

HRDWTST

.SBTTL +TEST 1
BGNTST
005737
001124
005737
100121
012737

006371

005046
153716

003033

012746
013746

003356
014206
003012

28:

006051
003026
006040
010014
007372
011321
000007

TST
BNE
IST
BPL
MOV _
PRINTF
(LR
BISB

MOV
MOV

000020

004362

104443

8
PAGE 2-39

BASIC INTERFACE (PART 1)
; TESTO1
PASNUM
:CHECK IF FIRST PASS
658
:EXIT IF NO
MISWIW
:CHECK IF MANUAL INTERVENTION
658
INO = EXIT TEST
AMISTST,ERHEAD :LOAD ERR HEADER
AFMTCP1.#OPR1,#OPR1A,#BASADD ,RLBAS,#DRVNAM, 
=(SP)
RLDRV+1,(SP)

#DRVNAM.-(SP)
RLBAS,-(SP)

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
CLR
GRANIL
TRAP

WBASABD,-(SP)
NOPR1A,=(SP)
#OPR1,=(SP)
AFMTOP1,-(SP)
#7,-(SP}
SP.RO
CSPNTF
#20,SP
OBUFF
;CLEAR FOR RESPONSE
QPRO02,0BUFF ,1.ND
CSGMAN

.WORD

OBUFF

024744 000404

(5)
(5)
(5)
(3)
2691
2692
2693
269
2695
2696
2697
2698
2699
(4)
(5)
(5)
(5)
2700
2701

024750
024752
024754
024756
024756
024762
024764
024770
024774
024776
025004
025006
025012
025012
025014
025016
025020
025022
025030

"WORD
.WORD
"WORD

TSCODE
OPR002
1

TST
BEQ
JSR
JSR
658
BIT
BNE
MOV
ERRHRD
TRAP
.WORD
WORD
.WORD
BIT
BNE

OBUFF
2%
PC,TSTINT
PC.GSTATC

:TEST RESPONSE YES
:YES = SKIP
:INITIALIZE TEST
:GO GET STATUS (NO RESET)

WCOSTAT,T.MP
78
AMCOSTA,R3
101., ,ERR3
CSERFRD
101
0
ERR3
WBHSTAT,T.MP
98

:CHECK IF COVER OPEN SET
:YES = SKIP
:SET NAME POINTER

2703

025036

(1)

2702
(4)
(5)
(5)
(5)

2704
2705
2706

025032

025036
025040
025042
025044

025046
025054
025056

000120
007322
000001
005737
001740
004737
004737
025120
u3z737
001006
012703
104456
000145
000000
012460
032737
001006

012703

104456
000146
000000
012460

100008:

004362

016516
016550
000040

1$:
003052

010441

000010

003052

7$:

010454

032737 020000
001006
012703 010467

MOV

ERRHRD

003052

9$:

TRAP
.WORD
"WORD
.WORD

BIT
BNE
MOV

100008

AMBHSTA,R3

102., ,ERR3

CSERARD
102
0
ERR3

MJLSTAT,T.MP
118
#MJLSTA R3

;TEST IF BRUSHES HOME
:YES = SKIP
:SET POINTER FOR BRUSH HOME ERROR

:TEST IF WRITE LOCK SET
:YES = SKIP
;SET NAME POINTER

SEQ 0094

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

MACY11 30A(1052)
«TEST 1

ERRHRD

104456

000147
000000
012460
005737
001405
005003
104456
000150
000000
013549
00473
025120

104401

TRAP

003060

11%:

103
0
ERR3

BEQ
CLR
ERRHRD

15%
R3
104., ,ERR7

TST

.WORD

15%:

65%:

ENDTST
L10024:

103.,,ERR3

CSERHRD

.WORD
.WORD
.WORD

TRAP

016534

17<DEC=79 13:08 PAGE 2-40
BASIC INTERFACE (PART 1)

.WORD

T,STAT

;YES = SKIP
sSET STATE EXPECTED

CSERHRD

104

ERR7

JSR

PC,GSTATR

TRAP

CSETST

65%

sTEST IF STATE ZERO

;DO DRIVE RESET

SEQ 0095

CZRLIBO RLO1/02_DRIVE TES 1
12-DEC-79 14:02
CZRLIB.MAC

MACY11 30A(1052)
*TEST 2

.SBTTL

F
8
17-DEC-79 13:08 PAGE 2-41
BASIC INTERFACE (PART 2)
«TEST 2

BASIC INTERFACE

TST

014206
006371

12::

PASNUM

JTEST IF PASS 0

MISWIW

JTEST IF MANUAL

#MISTST ,ERHEAD

;SET ERROR HEADER

65%
65%

003012

(PART 2)

sTEST 2

BGNTST

003356

SEQ 0096

NO SKIP

'NO - SKIP

INTERVENTION

#;g;?P1.IOPR2.IOPR1A+ABASADD ,RLBAS ,#DRVNAM,

RLDRV+1, (SP)
#DRVNAM
- (SP)
RLBAS ,-(SP)

#BASADD ,~(SP)
#OPR1A,=(SP)
#OPR2,=(SP)
#FMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF

025212

#20,SP

;COVER AND RESET WRITE LOCK
O0BUF F
:CLEAR FOR RESPONSE
OPR00Z2 ,0BUFF ,1,NO

025216

CSGMAN
10000%

OBUFF
T$CODE

?PROOZ

100008:

004362

016516
016534
001406
012703

000040

1%:

003052

010441

104456
000312
000000
012412

025326
025326

020000

003052

9%:

010467

65%:

ENDTST

L10025:

;TEST IF RESPONSE YES

:NO = SKIP

#COSTAT,T.MP

sTEST IF

PC,TSTINT
PC.GSTATR

9%
#MCOSTA,R3
201., ,ERR2
CSERHRD

104456

000311
000000
012412
032737
001406
012703

OBUFF

201
0
ERR2

MILSTAT,T.MP

65%
#MWLSTA R3
202., ,ERR2
CSERHRD

202
0
ERRZ

sINITIALIZE TEST
:GET STATUS WITH RESET
COVER OPEN RESET

;YES - SKIP
sSET NAME MESSAGE POINTER

sTEST IF WRITE LOCK RESET

;YES - SKIP
sSET NAME MESSAGE POINTER

;REQUEST CLOSE

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02
(3)
2745

025326

104401

MACY11

30A(1052)
*TEST 2

17-DEC=79
13:08 PAGE 2-42
BASIC INTERFACE (PART 2)
TRAP

CSETST

SEQ 0097

CZRLIBO RLO1/02 DRIVE _TEST 1
CZRLIB.MAC
12-DEC=79 14:02

«TEST 3

.SBTTL

BGNTST

2749

025330

005737

003356

2751

025336

005737

014206

2754
2755

025350
025354

004737
004737

016516
016534

2757

025362

005737

003060

17-DEC-79

MACY11 30A(1052)

«TEST 3

PASNUM

TST

MISWIW

4%:
7%:

.WORD
JSR

TRAP

JSR
TST

BEQ

PRINTF

CLR
BISB
MOV
MOV

TRAP

012701

T.STAT

sTEST IF

#7,-(SP)
SP,RO
CSPNTF

#20,SP
OBUFF
:CLEAR FOR RESPONSE
OPR0O0Z2,0BUFF,1,NO
CSGMAN

10000%

RLDRV+1,(SP)

#DRVNAM
. - (SP)
RLBAS,~(SP)
#BASADD
, - (SP)
#OPR1A,=(SP)
#OPR3,-(SP)
#FMTOP1,~(SP)
#7.-(SP)
SP,RO

CSPNTF

#1,R3

MOV
MOV

sTEST IF RESPONSE YES
:NO - SKIP

fl(’fislg?fl.IOPRS.IOPRM.#BASADD.RLBAS.#DRVNM.<B.RLDRV¢‘I>

MOV

003012

STATE 0

:YES - SKIP

#OPR5 ,~(SP)

#20,SP

MOV

;GET STATUS

#FMTOP1,#0PRS,#0PR1A
,#BASADD ,RLBAS , #DRVNAM, <B,RLDRV+1> ;REQUEST DRIVE BE

ADD

003004

INTERVENTION

=(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS ,~(SP)

OBUFF
1%

TRAP

025562

sINITIALIZE TEST

PC,GSTATR

TST
BEQ
Fgf’{NTF

MOV

IF MANUAL

CSEXIT

OBUFF
TSCODE
OPRO02
1

BISB

sTEST

L10026~-.
PC,TSTINT

.WORD
.WORD
.WORD
.WORD

MOV
MOV
MOV
MOV
MOV
MOV
MOV

2768

;YES = SKIP

#FMTOP1 ,-(SP)

TRAP

:TEST IF PASS 0

7%
TST

MOV

ADD
CLR
GMANIL

INO SKIP

#BASADD
, - (SP)
#OPR1A,=(SP)

MOV
MOV

SEQ 0098

MOV
MOV

MOV

2%:

8
PAGE 2-43

HEAD LOADING
;TESTO3

BMI
EXIT

10000%:

HEAD LOADING

BNE

1%:

13:08

#CYLUP,OPFLAG

;SET CYCLE UP FLAG

sSET EXPECTED STATE VALUE

#NSTACHG,ERHEAD :SET ERROR HEADER
#300. ,R1
*SET WAIT COUNT FOR 30 SECONDS

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC -~
12=DEC=79 14:02

2769
2770
2771
2772
2773
2774
2775
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)

2776

2777
2778
(3)
(3)
(4)
(5)
(5)
(5)
(3)

2779
2780
2781
2782
2783
2784

025566
025572
025574
025600
025602
025604
025606

004737
027512
005737
001046
005301
001427

016550

025624
025630
025632
025636
025640
025644
025646
025652

012727
000000
013727
000000
005367
001375
005367
001367

000372

025664
025670
025670
025672

005037

025662

025674
025676
025700
025702
025704

025704
025710
025712
025716
025722
025724

000741

005737
001005
000137
020337
001406

025724
025726
025730
025732

104456
000455
000000
013546

(3)
(3)

025734
025736

104432
001554

2786

2787

025734

025740

005737

2788
2789

025744
025746

001002
000137

2791
2792
2793
279
2795
2796
2797

025756
025762
025766
025770
025774
025776
026000

012703
004737
027512
020337
001466
101006

2790

025752

012701

(4)
(5)
(5)
(5)

026000
026002
026004
026006

104456
000456
000000
013546

(3)

026010

104432

2798

026010

30A(1052)
«TEST 3

3$:

003060

002116

177772
177756

004362

6$:

104443
000404
004362
000120
007347
000001

(4)
(5)
(5)
(5)

2785

MACY11

10001$:

004362
025370
003060

10%:
118:

17-DEC-79 13:08 PAGE 2-44
HEAD LOADING

JSR
T365$
ST
BNE
DEC
BEQ
WAITMS

PC,GSTATC

;GET STATUS

T.STAT
108
R1
6$
#1

sTEST IF STATE IS STILL O
*NO = SKIP
*DEC WAIT COUNT
CEXIT IF WAIT DONE

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

#4#250., (PC)+
O
LSDLY, (PC)+
O
-6(PC)
=4
<22(PC)
.=20

CLR
GMANIL
TRAP
BR

OBUFF
:CLEAR FOR RESPONSE
OPR003,0BUFF,1,NO
CSGMAN
10001$

B8R

.WORD
.WORD
.WORD
WORD

OBUFF
TSCODE
OPR0OO3
1

ST
BNE
JMP
CMP
BEQ
ERRHRD

OBUFF
11%
1%
R3,T.STAT
5%
301...ERR7

TRAP
.WORD
WORD
.WORD

CSERHRD
301
O
ERR7

TRAP
.WORD

CSEXIT
L10026~.

TST

CLKFLG

EXIT

:TEST IF RESPONSE YES
*YES - REPORT
;CHECK IF NOW STATE 1
*YES - SKIP

TST

.
:CHECK FOR PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE

003144

5¢:

027416

000454

138:

000002
016550

148:

003060
,

BNE
JMP

MOV

MOV
JSR
T365$
CMP
BEQ
BHI
ERRHRD

:BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
*ELSE, REPORT THAT TEST CANNOT BE PERFORMED

#2.R3
PC.GSTATC

*SET EXPECTED STATE VALUE
*GET STATUS

200, ,R1

R3,T.STAT
208
17%
302.,,ERR7

TRAP
.WORD
WORD
.WORD

CSERHRD
302
O
ERR7

TRAP

CSEXIT

EXIT

;P=CLOCK?

138
1008

TST

SINITIALIZE WAIT COUNT FOR 30 SECONDS
:CHECK IF STATE 2
*YES -~ SKIP
*CHECK IF NO CHANGE - YES - SKIP

SEQ 0099

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

MACY11 30A(1052)
«TEST 3

001500
005301
001432
012746
012746

17%:

HEAD LOADING

PAGE 2-45

L}0026-.

18%

sDEC WAIT COUNT
;SKIP IF 0

#340,-(SP)

#CLKINT ,=(SP)

#104,-(SP)
#3,-(SP)

CS$SVEC

18%:

004000

003052

006426
010541

003012

000000
012460

003012

#10,SP
148

303.
., ,ERR7
CSERHRD
303
0
ERR7

#SPDSTAT,T.MP

19%

#SPDERR ,ERHEAD

#MSPERR ,R3

19%:

006371
011202
010454
000010

13:08

#1000.

000340
016116
000104
000003
000010

104432
00

17-DEC-79

20%:

003052

304.
, ,ERR3
CSERHRD
304
0
ERR3

;TEST IF SPINDLE TIMEOUT
;YES = SKIP
;SET ERROR HEADER
sSET NAME MESSAGE POINTER

TST

CSEXIT

L10026~.

#MISTST ,ERHEAD
#STATEZ2
R4
#MBHSTA
R3
flgHSTAT,T.HP

228
305.
., ,ERRS

;SET ERROR HEADER
sSET CONDITION MESSAGE POINTER
:SET _NAME MESSAGE POINTER
sTEST IF BRUSH HOME STILL SET
;YES = SKIP

CSERHRD

305
0
ERRS

000000
012576
104432
1300

TST

22%:
23%:

000062
016550
000010

003052

CSEXIT
L10026~.
#50. ,R1

PC,GSTATC

JSET WAIT COUNT FOR S SECONDS
sGET STATUS

#BHSTAT,T.MP

sTEST IF BRUSH HOME RESET

27%

26%

012746
012746
012746
012746

026324

000340
016116

000003
000010

;YES = SKIP
;DEC WAIT COUNT
:SKIP IF ZERO

#340,-(SP)

#CLKINT ,-(SP)

#104,-(SP)
#3,-(SP)
C$SVEC
#10,SP

23%

;LOOP

SEQ 0100

CZRLIBO RLO1/02 DRIVE TE?T 1
12-DEC-79 4:02
CZRLIB.MAC

026326

MACY11 30A(1052)
*TEST 3

26%:

104456

000462
000000
012526

17-DEC-79

000010

012746
012746
012746
012746
104437
062706
000735

27%:
28%:
003052

ERRHRD

306.,,ERR4

.WORD
.WORD
.WORD
EXIT

306
O
ERR4
TST

.WORD
MOV

L10026~.
#300. ,R1

TRAP

JSR

1365%

BIT

BNE
DEC
BEQ

CSERHRD

CSEXIT

PC,GSTATC
#BHSTAT,T.MP

328
R1
308

TIMDLY

#1000.

MOV

#CLKINT,=(SP)

JINITIALIZE WAIT COUNT FOR 30 SECONDS
sGET STATUS
sTEST IF BRUSH HOME
:YES - SKIP

SET AGAIN

sELSE DEC WAIT COUNT

;SKIP IF 0

MOV
MOV

#104 - (SP)
#3,-(SP)

000010

ADD
BR
ERRHRD

#10,SP
28%
307.,,.ERRS

.WORD
WORD
.WORD
EXIT

307
0
ERR5
TST

.WORD

L10026~-.

MOV
JSR
1365%
cMP
BEQ
ERRHRD

#3,R3
PC,.GSTATC

sSET EXPECTED STATE VALUE
;GET STATUS

R3,T.STAT
369
308.,,ERR7

;CHECK IF STATE 3
;YES = SKIP

.WORD
.WORD
.WORD
EXIT

308
0
ERR7
TST

.WORD

L10026~.

TRAP

30%:

TRAP

00641§
00000
016550

003012

32%:

003060

104456
000464
000000
013546

MOV

TRAP

00637;

003012

016550
000020

026572

SEQ 0101

MOV

000463
000000
012576

104432
000762

8
PAGE 2-46

000340
016116
000104
000003

104456

004
027512
020337
001406

HEAD LOADING

TRAP

000454
016550

13:08

003052

36%:

#340,-(SP)

CSSVEC

CSERHRD

CSEXIT

#NSTACHG, ERHEAD ;SET ERROR HEADER

CSERHRD

CSEXIT

MOV

#MISTST ,ERHEAD

MOV

#MHOSTA
R3
PC,GSTATC

:SET ERROR HEADER
;SET CONDITION MESSAGE POINTER
sSET NAME MESSAGE POINTER
:GET STATUS

BIT

#HOSTAT,T.MP

JTEST IF HEADS OUT SET

TRAP

CSERHRD

MOV
JSR
13658

BNE
ERRHRD

.WORD
.WORD

#STATE3 R4

38%
309.,,ERRS

309
0

JYES - SKIP

CZRLIBO RLO1/02 DRIVE_TEST
CZRLIB.MAC
12-DEC=79 14:02
;

(5)

026574

MACY11 30A(1052)
«TEST 3

012576

012701

000012

012746
012746
012746
012746

000340
016116
000104
000003

104437
06

012703

38%:
381%:

TRAP

.WORD
.WORD
.WORD

EXIT
TRAP

040000

003044

:
408

010405

104432
000526
012701

003060

012746
012746

003012

42%:

43%:

CSSVEC

PC,GSTATC

;GET THE STATUS AFTER SHORT DELAY

#VCSTAT,T.MP

sTEST IF VOLUME CHECK SET

408
R1
381%
#MVOLCK ,R3
310.,,ERRS

428

311., ,ERRS

.WORD
MOV

L10026~.
#3000. ,R1

00034
016116
000
000003

MOV

#340,-(SP)

MOV
MOV

#104,
#3, -(SP)

000010

ADD

;SET WAIT COUNT FOR 300 MS

#NSTACHG,ERHEAD :SET ERROR HEADER
#4 ,R3
sSET EXPECTED STATE VALUE
PC,.GSTATC
:GET STATUS

R1
47%

TRAP

sTEST IF DRIVE ERROR SET
:YES - SKIP
:SET NAME MESSAGE POINTER

CSEXIT

CMP
BEQ
DEC
BEQ
MOV

TIME LEFT

CSERHRD

3N
O
ERRS
TST

TIMDLY

"VC' AGAIN IF MORE

sSET NAME MESSAGE POINTER

CSEXIT

WORD
.WORD
.WORD
EXIT

MOV
JSR
T365%

sTRY FOR

310
0
ERRS
TST

#MDRERR ,R3

MOV

sDECREMENT COUNTER

CSERHRD

MOV

TRAP

005670
006414
000004
016550

#CLKINT,=(SP)

#DRVERR,T.CS

BNE

TRAP

000000
012576

#340,-(SP)

BIT

ERRHRD

104456
000467

#10,SP
#1.RO

BNE
DEC
BNE
MOV
ERRHRD

SEQ 0102

CSEXIT

ADD
MOV
BIT

PAGE 2-47

L10026-.
#10. ,R1

#104,-(SP)
#3,-(SP)

1365%

010430

ERR5
TST

MOV
MOV

JSR

104456
000466
000000
012576

012703

.WORD
EXIT
TRAP
.WORD
MOV
TIMDLY
MOV

TRAP

003052

13:08

HEAD LOADING

MOV

000010
000001
016550

001000

17-DEC-79

R3,T.STAT
498
#1

#CLKINY -(SP)

CSSVEC

#10,SP

43%

sCHECK IF

STATE 4

;YES
- SKIP
:DEC WAIT COUNT
JSKIP IF 0

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

MACY11

30A(1052)
«TEST 3
47%:

104456

000470
000000
013546

CSERHRD
312
0
ERR7
TST

000454
000005
016550

49%:
508:

003060

CSEXIT
L10026~-.
#300. ,R1

#5,R3

PC.GSTATC

R3,T.STAT

558

518

012746
012746
012746
012746

104437
062706
000736

17-DEC-79 13:08 PAGE 2-48
HEAD LOADING

”
#340,-(SP)

000340
016116
000104
000003

#104,-(SP)
#3,-(SP)

000010

#10,SP

;SET WAIT COUNT FOR 30 MS
sSET EXPECTED STATE VALUE
;GET STATUS

;CHECK IF STATE 5
:YES = SKIP

sDEC WAIT COUNT
;ELSE SKIP

#CLKINT,=(SP)

CSSVEC

51%:

104456

000471
000000
013546

508
313.,.ERR7

CSERHRD
313
0
ERR?7
TST

CSEXIT

55%:
56%:

000120
016550

000001

003044

#DRDYMSK,T.CS

102%
R1
60$

LAl

000340
016116
000104
000003

027414

;CHECK IF DRIVE READY
;YES - SKIP
sDEC_COUNT

;SKIP IF 0

#340,-(SP)

#CLKINT ,=(SP)
#104,-(SP)
#3,-(SP)

CSSVEC
#10,SP

000010
006371
011222
010263

;SET WAIT FOR 8 MS
;GET STATUS

003012

60$:

56%

#STATES
,R4
#MDRDY ,R3

:SET ERROR HEADER
sSET CONDITION MESSAGE POINTER
sSET NAME MESSAGE POINTER

1028

JEXIT TEST

#MISTST ,ERHEAD

314, .ERRS
CSERHRD
314
0
ERRS

SEQ 0103

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

027416

2
000060
000063

MACY11 30A(1052)
«TEST 3

027512

013702
013705
052705
010562
032762
001774

000004
000005

MoV
MOVB

#NOTST ,R2
#'0, 4(R2)

JINITIALIZE POINTER FOR TEST MESSAGE
INSERT TEST NUMBER INTO MSG.

0FHT9.'NOTST

JPRINT MSG. "‘TST 3 CANNOT BE PERFORMED...

MOVB

#'3,5(R2)

MOV
MOV
MOV
MOV
TRAP
ADD

#NOTST,~(SP)
#FMT9,=(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

PRINTF

;INSERT TEST NUMBER INTO MSG.

;/NO P=-CLK"'

:MAKE DRIVE READY FOR SUBSEQUENT TESTS

MOV

RLBAS ,R2

BIS
MOV
BIT
BEQ

OCRDYHSK RS
;SET CONTROLLER READY
RS.RLCS(RZ)
;LOAD CONTROL STATUS REGISTER
#DRDYMSK ,RLCS(R2) ;IS DRIVE READY?
101%
JREMAIN IN WAIT LOCP UNTIL DRIVE IS READY

TRAP

CSETST

MOV
101$:
1028

000000
-

104401

;REPORT THAT TEST CANNOT BE PERFORMED

1008:

027456
027462
027466
027472
027476
027502
027510
027512
027512
027512
027512

17-DEC=79 13:08 PAGE 2-49
HEAD LOADING

RLDRV,‘RS

T365%:
ENDTST

L10026:

JGET RL11 BASE ADDRESS

;GET DRIVE NUMBER

SEQ 0104

CZRLIBO RLO1/02 DRIVE_TEST
CZRLIB.MAC
12-DEC=79 14:02
1

8 9
17-DEC-79 13:08 PAGE 2-50
HEAD UNLOADING

MACY11 30A(1052)
«TEST &

.SBTTL
BGNTST

003356

014206

*TEST &

HEAD_UNLOADING

;TESTO4

ST
BNE

PASNUM
8s

;TEST IF FIRST PASS
‘NO= SKIP

8MI
EXIT
TRAP

108
TST
cssxn

SYES -

SEQ@ 0105

MISWIW

STEST 1r nmw. INTERVENT
ION

.WORD

10027~

TST

CLKFLG

:P=CLOCK?

#'0,4(R2)
#'4.5(R2)
#FMTO,#NOTST

*INSERT TEST NUMBER INTO nsc
*INSERT TEST NUMBER INTO MSG.
:PRINT MSG. '‘TST 4 CANNOT BE PERFORMED...

:CHECK FOR PRESENCE OF A P=CLOCK...BYPASS TEST IF NOT AVAILABLE

108:

N
N
N

NN PNININININPN

CEER e ENEN S T TS RPN

291

(4)

000004
000005

BNE
MOV

TST4
NOTST,R2

MOV
MOV
MOV
MOV

MNOTST,=(SP)
#FMTS,
= (SP)
#2,-(5P)
SP,RO

MOVB
MOVB
PRINTF

TRAP

*BRANCH TO PERFORM TEST IF cwcx IS PRESENT
;INITIALIZE POINTER FOR TEST

CSPNTF

ADD
BR

#6,SP
-]

TRAP

($8SUB

:/NO P=CLK"*

“EXIT TEST

BGNSUB

003012

TST4:

003044

MOV

JSR
47?253

BIT

1%:

#NSTACHG ,ERHEAD ;SET ERROR HEADER
PC,TSTINT
PC.GSTATR

SINITIALIZE TEST
*GET STATUS

#DRDYMSK,T.CS

;CHECK IF DRIVE READY

BNE

BISB

RLDRV+1,(SP)

aa'ximr

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

TRAP

#DRVNAM
= (SP)
RLBAS
, = (SP)
#BASADD
, - (SP)
#OPR1A, = (SP)
#OPR6,
= (SP)
#FMTOP1 ,~(SP)
#7,-(SP}
SP,RO
CSPNTF

#20,SP
OBUF F

TRAP

CSGMAN

.WORD
.WORD
.WORD

YES- SKIP

c;g;c)mLWOPR6, #OPRTA,#BASADD ,RLBAS,ADRVNAM,

ADD
CLR

GMANIL

T4.1:

OPR002,0BUFF,1

100008

OBUFF
TSCODE
OPR002

:CLEAR FOR RESPONSE

RLIBO RLO1/02 DRIVE YES 1
RLIB.MAC
12-DEC=79 14:02
(3)
2957
gggg

027734
027734
027740

2960
2961
(13)
(13)
(12)
(11)

027742
027750
027750
027752
027756
027762

(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)

2962
2963
2964
2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
(8)
(7)
(6)
(5)
(4)
(3)

2977
2978
2979
(3)
(3)

027766
027772
027776
030002
030006
030012
030014
030016

030022
030026
030032
030036
030042
030044
030050
030052
030060
030062
030064
030066
030070
030072
030076

030076
030102
030106
030112
030116
030120

030160
030162
030166
030166
030170

005737
001740

004362

052737

000010

005
153716
012746
013746

003033
006051
003026

012746
012746
012746
012746
012746
010600
104417
062706

012746
012746
012746
012746
104437
062706

000340
016116
000104
000003

005737

(4)

030210

104456

2981
2982
(5)
(5)
(5)

030206
030210
030212
030214
030216

001660

000621
000000
013546

003004

3s:

A ¥

000005

17-DEC=79

13:08

HEAD UNLOADING

TST
BEQ

OBUFF
18

;TST RESPONSE YES
:NO = SKIP

OPFLAG

RLDRV+1, (SP)

#BASADD, - (SP)

#OPR1A,
= (SP)
#OPR3, = (SP)

#EMTOP1,=(SP)

#7.,-(SP)
SP.RO
CSPNTF

#20,SP

5%:

#6_R3

:SET EXPECTED STATE VALUE

PC,GSTATC

*GET STATUS

#100. R4
#700. .R1

;CHECK IF STATE 6

#5,T.STAT

STEST IF STATE §

11$

003060

9%
R1
7%

6%:

*SET SECOND LEVEL COUNT
*SET WAIT COUNT FOR 30 SECONDS

R3,T.STAT

#100. R4

”
#340,~(SP)

*YES = SKIP

*NO - REPORT WRONG STATE
*DEC 2ND LEVEL COUNT
*SKIP IF NOT 0

*ELSE DEC 1ST LEVEL COUNT
“IF 0 - SKIP TO QUESTION

*ELSE RESET 2ND LEVEL
:WAIT 100 US

#CLKINT,=(SP)

#104,-(SP)
#3,-(SP)
CSSVEC
g1o,SP

000010

004362

SET UNLOAD OPERATION

lig;?Pi #OPR3, lOleA W#BASADD ,RLBAS ,#DRVNAM,

000144

PAGE 2-51

#DRVNAM
= (SP)
RLBAS
, = (SP)

003060

104443
000404
004362
000120
007347
000001

030172
030174
030176
030200
030202
030202

10000$:

000020

000006
000144
001274
016550

(4)
(5)
(5)
(5)
(3)
2980

«TEST &

0
010014
007502
011321

012703
012704
012701
004737
030476
020337
001465
022737
001053
5304
001004
005301
001434
012704

000726
005037

MACY11 30A(1052)

7%:

0BUFF

:CLEAR FOR RESPONSE

0PR0O03,08UFF ,1,NO
CSGMAN
10001$
O0BUF
TSCODE

?Pnoos
004362

:
100018

9%:

0BUFF

48
401., .ERR7
Essnuao

0
ERR7

;TEST IF RESPONSE YES

‘NO
- SKIP
*ELSE REPORT STATE CHANGE WRONG

SEQ 0106

CZRLIBO RLO1702 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

2983
(3)
(3)
2984

030220
030220
030222
030226

104432
ooozeg
012703

2986
2987
2988

030234
030240
030242

004737
030476
020337

2990

030250

005301

2985 030230

012701

2989 030246 001442

2991

2992

(8)
(7)
(6)
(5)

MACY11 30A(1052)
«TEST 4

000007

118:

016550

128:

005670
003060

030254

MOV

JSR
T465$
CMP

;SET EXPECTED STATE VALUE

PC,GSTATC

*GET STATUS

#3000. ,R1

R3,T.STAT

168

“SKIP IF 0

TIMDLY

#340,~(SP)
#CLKINT,-(SP)
#104 ,-(SP)
#3,-(SP)

(3) 030276 062706 000010
2993 030336 000736

ADD
B8R

#10,SP
128

TRAP
LWORD
WORD
.WORD
EXIT
TRAP
.WORD

CSERHRD
402
0
ERR7
SuB
CSEXIT
L10030-.

2994

(4)
(5)
(5)
(5)
2995
(3)
(3)

030340

030340
030342
030344
030346
030350
030350
030352

2996
2997
2998
2999
3000

030354
030356
030362
030366
030370

2002
3003
3004

030376
030400
030402

3001
(8)
(7)
(6)
(5)

030374

16%:

104456
000622
000000
013546

104432
000132
005003
012701
004737
030476
005737

001440

;
001130
016550

18%:
20%:

003060

ERRHRD

402.,.ERR7

;REPORT WRONG STATE CHANGE

CLR
MOV
JSR
T465$
TST

R3
#600. ,R1
PC,GSTATC

;SET EXPECTED STATE VALUE
;SET WAIT COUNT FOR 60 SECONDS
JGET STATUS

T.STAT

;CHECK IF STATE 0

DEC
BEQ
TIMDLY

R1
22%
#1000.

DEC WAIT COUNT
‘SKIP IF 0

BEQ

005301
001432

CSSVEC

248

*YES = SKIP

012746
012746
012746
012746

000340
016116
000104
000003

MOV
MOV
MOV
MOV

#340,~(SP)
#CLKINT,=(SP)
#104,-(SP)
#3,-(SP)

030426
030464

062706
000736

000010

ADD
BR

#10,SP
208

030466
030470
030472
030474

104456
000623
000000
013546

TRAP
.WORD
WORD
.WORD

403.,.ERR7

CSERHRD
403
0
ERR7

;REPORT WRONG STATE CHANGE

MOV

#2,ERRSWI

;INIT ERROR SWITCH

TRAP
PRINTF
CLR

(SESUB
#FMTOP1,#0PR6,#OPR1A,#BASADD ,RLBAS ,#DRVNAM, <B,RLDRV+1> ;REQUEST CYCLE UP
-(SP)

030422

3006

030466

3007
3008

030476
030476

(3)
(3)
3011
(13)

030504
030504
030506
030506

(4)
(5)
(5)
(5)

TRAP

DEC WAIT COUNT

030402
030406
030412
030416

(4)

(3)
3005

104437

;CHECK IF STATE 7

*YES = SKIP

DEC

BEQ

SEQ 0107

*SET COUNT FOR 300MS

18§

MOV
MOV
MOV
MOV

0302746

suB
CSEXIT
L10030-.
#7 .R3

000340
016116
000104
000003

(4)

012746
012746
012746
012746

EXIT
TRAP
.WORD
MOV

BEQ

030252 001432
030254
030260
030264
030270

17-DEC-79 13:08 PAGE 2-52
HEAD UNLOADING

z.o3:1:0 030504

104437

012737

104403
005046

TRAP

22%:

000002

003016

24$:
T4658:

ENDSUB

L10030:

26$:

ERRHRD

CSSVEC

B0 RL01/02 DRIVE TEST 1
B.MAC
12-DEC~79 14:02

MACY11 30A(1052)
«TEST &

E 9
17-DEC-79 13:08 PAGE 2-53
HEAD UNLOADING

3) 030510
2) 030514

1)
0)
)
(8)
(7)
(6)
(3)
(4)
(4)
3012
3013
(3)
(3)
(4)
(5)
(5)
(5)
(3)
3014
3015

153716
012746

003033
006051

BISB
MoV

030526
030530
030534
030540
030544
030550
030552
030554
030560
030564
030564
030566
030570
030572
030574
030576
030600
030600
030604

012746
012746
012746
012746
012746
010600
104417
062706
005037

0
010014
007560
011321
000007

8
)

030606
030606

3019

)

030520

030606

013746

003026

000020
004362

104443
000404
004362
000120
007322
000001

005737
001740

104401

004362

100008:

29%:
ENDTST
L10027:

RLDRV+1, (SP)
#DRVNAM
- (SP)

MOV

MOV
MOV
MOV
MOV
MOV
MoV
TRAP
ADD
CLR
GMANIL
TRAP
BR
.WORD
.WORD
.WORD
WORD

RLBAS,~(SP)
#BASADD ,-(SP)
#OPR1A,=(SP)
#OPR6 ,=(SP)
#EMTOP1,=(SP)
#7,-(SP}
SP,RO
CSPNTF
#20, SP
OBUF F
:CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO
CSGMAN
10000%
OBUFF
T$CODE
OPROOZ
1

TST
BEQ

OBUFF
26$%

TRAP

CSETST

;TEST RESPONSE YES
:NO - SKIP

SEQ 0108

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

3020
3021 030610
(3)

030610

3025
3026
3027
(13)
(13)

030626
030632
030634
030634
030636

(4)

030700

LSBTTL
BGNTST

3022 030610 012737 000002 003016
3023 030616 005737 003356
3024 030622 001173

(12) 030642
(11) 030646
(10) 030652
(9) 030656
(8) 030662
(7) 030666
(6) 030672
(3) 030676
(4)

032737
001567
005046
153716

012746
013746
012746
012746
012746
012746
012746
010600

000004

014206

1%:
003033

030702 062706 000020

ADD

#20,SP

CLR

OBUFF

104417

TRAP

030716
030720
030722
030724
030726

004362
000120
007322
000001

030732

001740

3034
3035
3036

030742
030746
030752

004737
004737
031134

3040

030772

062701

3043

031006

005001

3045

031012

030714

000404

B8R

030726 005737 004362

2033 030734 012737 006526 003012
016516
016550

3037 030754 013737 003032 003116
3038 030762 013701 003032
3039 030766 012704 000004
3041 030776 022701
3042 031002 001001

000400

002000

031006 010137 003032

(11) 031012 012746
(10) 031016 012746
(9)
(9)

031022
031024

005046
153716

(4)
(4)

031046
031050

104417
062706

(8)
(7)
(6)
(3)

031030
031034
031040
031044

GMANIL
TRAP

104443

010030
010020
003033

012746 007642
012746 011372
012746 000005
010600
000014

100008:

3$:

LPTOS:

48:
5$:

;SET FOR NO ERROR RETURN
*TEST IF FIRST PASS
‘NO = SKIP

SEQ 0109

T5::

#DRSELT MISWIW :TEST xr SELECT TESTS
EXTOS
‘NO
- SKIP
#FMTOP1,#OPR7 ,#OPR1A, #BASADD ,RLBAS,#/DRVNAM, <B,RLDRV+1>
-(SP)
RLDRV+1,(SP)

#DRVNAM
. = (SP)
RLBAS
, = (SP)
#BASADD
, = (SP)
#OPR1A,
= (SP)
#OPR7 ,=(SP)
#FMTOP1 ,~(SP)
#7,-(SP)
SP.RO

(%)
(5)
(5)
(5)
(3)

3044

#2 ,ERRSWI
PASNUM
EXTOS

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

030712
030712

3032

BIT
BEQ
PRINTF
CLR
BISB

DRIVE SELECT
:TESTOS

006051
003026
006040
010014
007613
011321
000007

3030
(3)

3031

+TEST §
MOV
ST
BNE

3028
3029 030706 005037 004362
(3)

F 9
17-DEC-79 13:08 PAGE 2-54
DRIVE SELECT

MACY11 30A(1052)
«TEST S

CSPNTF

;REQUEST 'REMOVE ADD PLGS EXCPT **
“CLEAR FOR RESPONSE

OPR002,0BUFF,1,NO
CSGMAN

10000%

.WORD
"WORD
.WORD
JWORD

OBUFF
TSCODE
OPR002
1

OBUFF

:TEST RESPONSE YES

MOV

#TOSERR,ERHEAD

:SET ERROR HEADER MESSAGE

MOV
MOV
MOV

RLDRV, TEMPO
RLDRV .R1
#4 R4

;STORE ORIGINAL DRIVE NUMBER
*PUT IT IN R1
*SET COUNT FOR NUMBER OF PLUGS

CMP
BNE

czooé R1

*CHECK IF TO LARGE
*NO= SKIP

BEQ

JSR
JSR
15048

ADD

PC,TSTINT
PC.GSTATC

#400,R1

*NO - SKIP

SINITIALIZE TEST
:DO SELECT AND GET STATUS

*BUMP TO NEXT DRIVE

CLR

PRINTF

#FMTOP3,#OPR8,<B.RLDRV+1>,#0PR1B,#UNDTST

MOV

MOV
MOV

CLR
BISB

MOV
MOV
MOV
MOV

TRAP
ADD

R1,RLDRV

SUNDTST.- (SP)
#OPR1B,~(SP)

-(SP)
RLDRV+1, (SP)

#OPR8
, - (SP)
#FMTOP3,
= (SP)
#5,-(SP)
SP.RO

CSPNTF
#14,SP

*ELSE CLEAR TO DRIVE 0

*PUT IT BACK IN RLDRV

CZRLIBO RLO1/02 DRIVE TEST 1

CZRLIB.MAC

3046

3047
3048
(3)
(3)
(4)
(5)

(5)
(5)
(3)
3049
3050
3051
(3)
(3)

031054
031060
031060
031062

031064
031066

031070
031072
031074
031074
031100
031102

031102
031102

3052
3053
3382‘;

031104
031110
031112

3056

031120

(3)
(3)

3057
3058
3059
3060
3061

031120
031120

031122
031124
031126
031134
031134

(9)
(8)
(7)
(6)
(3)
(4)
(4)

031134
031140
031144
031150
031154
031156
031160

(3)
(3)
(4)
(5)
(5)
(5)
(3)

031170
031172
031174
031176
031200
031202
031204

3062
3063

3064
3065
3066
3067
(3)
(3)

031164
031170

031204
031210
031212
031212
031212
031212

12-DEC=79 14:02
005037

MACY11 30A(1052)
*TEST 5

004362

104402
004737
031112
012737

10001$:

004362

BGNSUB
016550
000002

003016

60%:

13:08

DRIVE SELECT

CLR
GMANIL
TRAP
BR

104443
000404
004362
000120
007322
000001

005737
001744

17-DEC=79

PAGE 2-55

s INSERT PLUG REQUEST

OBUF F
:CLEAR FOR RESPONSE
OPROOZ2,0BUFF,1,NO
CSGMAN
10001$

.WORD
.WORD

OBUFF
TSCODE

TST
BEQ

OBUFF
5%

TRAP
JSR
608
MOV

($8SUB
PC,GSTATC

;GET STATUS = REPORT ANY ERROR

#2 ,ERRSWI

;INIT ERROR SWITCH

TRAP
DEC
BNE
MoV

C$ESUB
R4
LPTO5
TEMPO ,RLDRV

sDEC_COUNT
;LOOP IF NOT ZERO
;ELSE RESTORE RLDRV

.WORD
WORD

OPRO0Z2
1
sTEST RESPONSE YES
:NO = SKIP
15.1:

ENDSUB

L10032:

104403

005304
001322
013737
012746
012746
012746
012746
010600
104417
062706

005037

003116
007661
007642
011435
000003

104401

T5048:
4%:

PRINTF #FMT4 ,#OPR8,#0PR9

MoV
MOV
MOV
MOV
MOV
TRAP
ADD

:CLEAR FOR RESPONSE

TRAP
BR
.WORD
.WORD
.WORD
.WORD

#OPR9,~(SP)
#OPR8 ,~(SP)
WNFEMT4
= (SP)
#3,-(SP)
SP,RO
CSPNTF
#10,SP
OBUF F
OPR0O0Z2,0BUFF,1,
c$
10000%
OBUFF
TSCODE
OPROOZ
1

TST
BEQ

OBUFF
4%

s TEST RESPONSE YES
:NO - SKIP

. TRAP

CSETST

000010

004362

104443
000404
004362
000120
007322
000001

005737
001751

003032

004362

CLR
GMANIL

100008:

EXTOS:
ENDTST
L10031:

SEQ 0110

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

MACY11

30A(1052)
«TEST 6

.SBTTL
BGNTST

003356
000004

H 9
17-DEC-79 13:08 PAGE 2-56
DRIVE SELECT TEST

014206
1%:

112762

000066

012746
012746
012746
010600

006662
011632
000002

000004
000005

104417

003012

2%:

3%:

010300
104442

6%
#NOTST ,R2
#'0,4(R2)
#'6,5(R2)
#FMT9,#NOTST

MOV
MOV
MoV

HFMT9,-(SP)
#2,-(SP)
SP,RO

BR
MOV

1%
#GSTER1,ERHEAD

MOV
CMP
BLOS
INC
CMP
BLOS
CLR
GPHARD
MOV

PSETNM,R3
LSUNIT M
5%
R3
R3.LSUNIT
3$
R3
R3.R0O
R3,RO

JSR

TRAP

#NOTST,=(SP)

CSPNTF
#6,SP

PC,TSTINT

C$GPHRD

S?EOMPLEEE

103370
010004
021437
001364

013762

000340

T6::

CHECK IF TEST DRIVE SELECT
;YES = SKIP

:BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
:INITIALIZE POINTER FOR TEST MSG.

s INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.

sPRINT MSG. '‘TST 6 CANNOT BE PERFORMED...

;/NO P=CLK"’
SEXIT TEST
;SET ERROR HEADER
sINITIALIZE TEST

;GET PARAM SET NUMBER
sTEST IF MORE THAN 1 UNIT
:NO - SKIP
;BUMP PARAMETER SET NUMBER
;CHECK IF PAST VALID PARAMETER TABLE
:NO
= SKIP
;ELSE CLEAR TO POINT TO ENTRY 0

;SKIP IF NOT AVAILABLE

MOV

RO,R4

;PUT POINTER INTO R4

BNE

:NO - SKIP

CMP

003034

031454
031514

6%:

000001

012746
012746

MOV
MOVB
MOvB
PRINTF

TRAP
ADD

000750

1%
#DRSELT ,MISWIW
4$
TST

s CHECK IFPFIRST PASS
:NO
- SKI

CSEXIT
L10033-.

MOV

062706
031310
031312
031320
031324
031330
031336
031340
031342
031346
031350
031352

PASNUM

gHECK FOR_PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE
sP=CLOCK?
TST
CLKFLG

003144
006662
000060

DRIVE SELECT TEST
;TESTO06

*TEST 6

TST

SEQ 011

(R4) ,RLBAS

;CHECK IF SAME CONTROLLER

CLR
MOV

DONE
#GTSTAT,L.CS

MOV

#GETSTAT!DRSET,L.DA

MOV

#CLKINT ,-(SP)

BIS

MOV
MOV
TIMDLY
MOV

10(R4),L.CS

L.DA,RLDA(R2)
L.CS,RLCS(R2)
#3
#340,-(SP)

MOV
MOV

#104,-(SP)
#3,-(SP)

TST

DONE

TRAP
ADD

CSSVEC
#10,SP

;CLEAR DONE FLAG
:LOAD GET STATUS

: INSERT DRIVE

sSET UP TO CLEAR DRIVE

:LOAD DA REG
;LOAD CS REG
;WAIT 300 uS

sTEST

INTERRUPT

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC
031520

001707
032737
001415
000702

o
o
b o

031576

5%:

17-DEC=79 13:08 PAGE 2-57
DRIVE SELECT TEST
BEQ

003044

007676
011632
000002

032370
000010

e
—

*TEST 6

SEQ 0112

:NO = SKIP

7%
28
#FMT9 #OPR10

*NO = GO TEST
*ELSE CHECK NEXT DRIVE
:REPORT CAN'T FIND 2ND DRIVE

WANYERR,T.CS

#0PR10,~(SP)

:TEST IF ANY ERROR SET

#FMTS,
= (SP)
#2,-(SP)
SP.R0

CSPNTF

000006

WWWWWWWW

012746
012746

100000

MACY11 30A(1052)

003120

7%:

9%:

#6,SP
LCLEXT
10(R4) , TEMPT
RLDRV,RO
TEMP1.RS

;STORE NEW ADDRESS
sASK FOR PLUG CHANGE
*GET DRIVE UNDER TEST
*GET NEW ADDRESS

21%

*NO - SKIP

RS.RO

*THIS EQUAL TO NEW ADDRESS?

003032
003120
002000
002000
001400

20%:

#2000. RO
#2000 .RS
RS, #1400

000400

218:

RS
#400,RS

208

#CRDYMSK RS
R5 ,RLCS(R2)

010562

*CLEAR FOR ADDRESS 0 TO 3
:TEST IF DRIVE NUMBER 3

*ELSE SET TO DRIVE NUMBER 0
*BUMP TO NEXT ADDRESS

‘YES - SKIP

sELSE SET CONTROLLER READY BIT
sAND LOAD CS REG

lig;?PZ.IOPRS.<B.RLDRV*1>.#OPR1B.<B,TEMP1+1>

005046
153716

TEMP1+1, (SP)
#0PR1B,~(SP)
-(SP)
RLDRV+1, (SP)
#OPR8,~(SP)

#FMTOP2 ,~(SP)
#5,-(SP)

SP,RO
CSPNTF

#14,SP

OBUF F

:CLEAR FOR RESPONSE

OPR002 ,0BUFF ,1,NO
CSGMAN
100008

OBUFF
T$CODE
?PROOZ
100008:

004362
000012
104402

013737

031756

013762

003032

003034

BGNSUB

003034

000000

8%:

OBUFF
9%
#10. R4

($8SuUB

RLDRV,L.CS

biSS.RLCSR(R2)

JTEST IF RESPONSE YES
;NO - SKIP
JSET COUNT
T16.1:
sSET UP TO SELECT MULTIPLE DRIVES

;00 IT

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

031756

012746
012746

MACY11 30A(1052)
*TEST 6

000340
016116
000104
000003

MOV
MOV
MOV
MOV
TRAP
ADD

003034
003040
000004
013762

012727
000000
013727
000000

17-DEC-79
13:08 PAGE 2-58
DRIVE SELECT TEST

SEQ 0113

#340,-(SP)

#CLKINT,=(SP)
#104,-(SP)

#3,-(SP)
C$SVEC
#10,SP

#GTSTAT,L.CS
#GETSTAT,L.DA

sSET GET STATUS

L.De.RLDA(RZ)

DON

%iCS.RLCSR(RZ)

000000

6##1,(PC)+

002116

bSDLY.(PC)+

177772

-6(PC)
.<4

=22(PC)
.=20

177756

003006

DONE
12%

016324

PC,WAITIN

;DO GET STATUS

sWAIT FOR INTERRUPT

sCHECK IF INTERRUPTED
s YES = SKIP

;WAIT FOR TIMEOUT

(S:)*,RS
;GET ERROR POINTER
12
;SKIP IF 0
601. ,GSTER1 ,ERR1
C$ERHRD
601
GSTER1
ERR1
sSuB

012746
012746
012746
012746
104437

#2
#340,-(SP)
#CLKINT ,=(SP)
#104,-(SP)

C$SVEC
#10,SP

000010
016564
000400

012703

12%:

000340
016116
000104
000003

CSEXIT
L10034~.

003052

010511

PC,GSTAT

;GET STATUS

#DSESTAT,T.MP
168
#MDSERR ,R3

;YES - SKIP

602.
., .ERR3
CSERHRD
602
0
ERR3

104456

001132
000000
012460

;WAIT FOR DSE

TO SET

sTEST IF DRIVE SELECT ERROR SET
sSET NAME MESSAGE POINTER

104432

000020
010562
005304
001216

16%:

R5,RLCS(R2)
R4

;LOAD IN DIFFERENT ADDRESS
sDEC COUNT
;LOOP IF NOT ZERO

CZRLIBO RLO1/02 DRIVE TEST 1

CZRLIB.MAC
3162
3163

(3)
(3)
3164
(8)
(7)
(6)
(3)
(4)
(4)
3165
3166
(3)
(3)
(4)
(5)
(5)
(5)
(3)

3167
3168
3169
3170
(3)
(3)

032306
032314

032314
032314
032316
032316
032322
032326
032332
032334
032336
032342
032346
032346
032350
032352
032354

032356
032360
032362

032362
032366
032370
032370
032370
032370

12-DEC=79 14:02
012737

000002

005037

007744
011632
000002

104401

003016

60$:
ENDSUB

MOV

15%:

PRINTF

*TEST 6

000006

004362

104443
000404
004362
000120
007322
000001

005737
001753

30A(1052)

L10034:

104403
012746
012746
012746
010600
104417
062706

MACY11

004362

17-DEC-79

LCLEXT:
ENDTST
L10033:

9
PAGE 2-59

DRIVE SELECT TEST

TRAP

MOV
MOV
MOV
MOV
TRAP
ADD

CLR
GMANIL
TRAP

100008:

13:08

BR
.WORD
.WORD
.WORD
.WORD

#2 ,ERRSWI
CSESUB

#FMT9,#0PR11

#O0PR11,-(SP)
#FMT9,=(SP)
#2,-(SP)
SP,R0
CSPNTF
#6,SP

sINIT ERROR SWITCH

;REQUEST PLUG CHANGE

OBUF F
;:CLEAR FOR RESPONSE
OPRO0Z2,0BUFF,1,NO
CSGMAN
10000%
OBUFF
TS$CODE

OPRO0Z2
1

TST
BEQ

OBUFF
15%

TRAP

CSETST

;TEST RESPONSE YES
:NO = SKIP

SEQ 0114

CZRLIBO RLO1/02 DRIVE _TEST 1
12-DEC-79 14:02
CZRLIB.MAC

3172
3173

«TEST

.SBTTL
BGNTST

032372
032372

006662

000067

*TEST 7

012746
012746
012746

000004
000005

0004
012703

020337
001406

003012

MOV
MOV
MOV

#FMTS,
< (SP)
#2,-(SP)
SP.RO

EXIT
TRAP

TST
CSEXIT

PRINTF
MOV

1$:

.WORD

MOV
JSR

TIMoLY

MOV
MOV
MOV
MOV

000010
016550

ADD

000005

3%:

003060

MOV

#MDRDY ,R3

MOV

#5.R3

cTMP

R3,T.STAT

B8R

000010

032650

012703

010454

7%:

98:

:INITIALIZE POINTER FOR TEST MSG.
s INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.
;PRINT MSG. '‘TST 7 CANNOT BE PERFORMED...

;/NO P=CLK"'

sSET ERROR HEADER
JINITIALIZE TEST
JWAIT 1 MS

;GET STATUS
;CHECK IF DRIVE READY

:YES-SKIP

sSET NAME MESSAGE POINTER
;GO _REPORT
sSET EXPECTED STATE VALUE

EXIT

701
0
ERR?
TST

JEXIT

.WORD
MOV
BIT
BNE
MOV
BR

L10035-.
T.MP,R1
#HOSTAT
.R1
78
#MHOSTA ,R3
9%

BNE
MOV

108
#MBHSTA R3

TRAP

010500

BRANCH TO PERFORM TEST IF CLOCK IS PRESENT

701.,,ERR7

.WORD
WORD
.WORD

P-CLOCK

sCHECK IF STATE OK
; YES-SKIP
;ELSE REPORT STATE ERROR

TRAP

003052
000020

#10.

#DRDYMSK,T.CS
3

ERRHRD

001275
000000
013546

L10035-.

#INITST .ERHEAD
PC,TSTINT

BIT
BNE

BEQ

104456

CSPNTF
#6,SP

JSR

65%

010263

#FMTO,#NOTST
ANOTST,=(SP)

#340,-(SP)
#CLKINT,=(SP)
#104,~(SP)
#3,-(SP)
(CSSVEC
#10,SP
PC.GSTATC

TRAP

003044

CLKFLG

1%
#NOTST,R2
#'0,4(R2)
#'7.5(R2)

000340
016116
000104
000003

000001

PAGE 2-60

INITIAL STATE
;TEST 07

BNE
MOV
MOVB
VB

TRAP
ADD

006513
016516

INITIAL STATE

006662
011632
000002

104432
000420
012737
004737

13:08

T7 e
:CHECK FOR PRESENCE OF A P=-CLOCK.. .BYPASS TEST IF NOT AVAILABLE

003144

032372

17<DEC~79

MACYTT 30A(1052)

BIT

ERRHRD

CSERHRD

CSEXIT

#BHSTAT ,R1

702. ..ERR3

:GET MP REG
s CHECK HEADS OUT
:YES-SKIP
sSET NAME MESSAGE PTR
;GO _REPORT
sCHECK BRUSH HOME SET
;YES-SKIP
sSET NAME MESSAGE PTR
sREPORT ERROR

SEQ 0115

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC
(4)

MACY11 30A(1052)
«TEST 7

104456
001276
000000

M9
1 7-DEC=79 13:08 PAGE 2-61
INITIAL STATE

CSERHRD
702
0

ERR3
TST

NV
NN
NN = O

W=V
Db bbb

AR~ ~ ~ ~ KKK

CSEXIT

014206

108:

003356

16$
#HSSTAT ,R1

13$

010416
011271

#MHSTA
R3

#CCYLUP,R4

703., ,ERR4
CSERHRD
703
0
ERRS4

000000
012526

03€701

TST

CSEXIT

001000

040000

003044

#VCSTAT
R1

15%:

#DRVERR,T.CS
168
#MDRERR ,R3

16$%:

MILSTAT
R1

010405

020000
010467

104456
001301
000000

021177
002276

000001

L10035-.

138:

010430

012703

16$

PASNUM

000100

104432
136

L10035-.

MISWIW

17%:

158
gVDLCK.RZ'»

17%
#MJLSTA
R3
705., ,ERR2

CSERHRD
705
0
ERR?
#21177
R

T.DRIVE
. #1

JEXIT
sTEST IF MANUAL INTERVENTION RUN

;NO=SKIP
sCHECK IF FIRST PASS
:NO-SKIP
sELSE CHECK HD O SELECTED
: YES-SKIP
sSET NAME MESSAGE PTR
;SET CONDITION POINTER
sREPORT ERROR

SEXIT
sCHECK VOL CHECK SET
sYES-SKIP
sELSE SET NAME MESSAGE PTR
;GO REPORT
sTEST DRIVE ERROR SET
: YES-SKIP
;ELSE SET NAME MESSAGE PTR
;GO _REPORT
sCHECK WRITE LOCK STATUS
sSKIP IF RESET
sELSE SET NAME MESSAGE PTR

;CLEAR STAUS EXCEPT FOR ERROR BITS

998

000200

198
18%

18%:

198
704., ,ERR6

CSERHRD

sNO-SKIP
;ELSE REPORT ALL ERRORS

704

0
ERR6

000016
013701

003044

19%:

TST

JEXIT

T.CS.R1

;GET CS REG

CSEXIT
L10035~.

SEQ 0116

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02

3241
3243

033056
033062
033064

(3)

066
033066

042701
005701
001364

MACYT 30A(1052)
*TEST 7

141777
25%:
65%:

BIC
TST
BNE

#1461777
,R1
R1
18%

TRAP

CSETST

ENDTST

104401

L10035:

17-DEC=79_ 13:08 PAGE 2-62
INITIAL STATE

sCLEAR ALL BUT ERROR BiTS

sTEST IF ANY ERROR SET

sYES=SKIP TO REPORT

SEQ@ 0117

CZRLIBO RL 01/0%20R1VE
TE ST 1
79 14:02
CZRLIB.MAC

MACY11 SOA(1OS;)
«TEST

.SBTTL
BGNTST

0%3070
006513
016516
cnd

016534

e
e

003356

«TEST 8

PC,GSTATR

;GET STATUS WITH RESET

TST
BPL
TST

MISWIv

CFEE:IIF MAN INTERVENTION WAS RUN

PASNUM

:CHECK IF 1ST PASS
N0~ SK1P
sCHECK HD SELECT STILL O

e
e
e

104401

MHSSTAT,T.
WP

4%
#MHSTA R3S

#CCYLUP,RG

TRAP

S?RHRD

801...ERR4
0
ERRS

A ¥

65%:
ENDTST
L10036:

MOV
MOV

ERRHRD

e
b e

033154

000000
012526

T8::

JSR

BEQ

010416
011271

INITIAL RESET STATE

;TEST 8
#INITST ,ERHEAD
PC,TSTINT

003052

000100

SEQ@ 0118

MOV
JSR

658

014206

W
waw

OO0O0O

003012

8 10
17-DEC=79_13:08 PAGE 2-63
INITIAL STATE

TRAP

CSETST

JINITIALIZE TEST

:YES-SKIP

:SET NAME MESSAGE PTR
;SET CONDITION POINTER
;REPORT ERROR

CZRL1BO RL01/02 DRIVE _TEST 1
CZRLIB.MAC

=-DEC=-79 14:02
12-DE

MACYT 30A(1052)
*TEST

.SBTTL
BGNTST

DR!VE READY
;TEST 9

«TEST 9

CLKFLG
1s
MNOTST,R2

#°0,4(R )

000004
000005

#'9.5(R2)
#FMTO, ANOTST
MNOTST,=(SP)

006662
011632
000002

:INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.
sPRINT MSG. "‘TEST 9 CANNOT BE PERFORMED...

SP.RO
CSPNTF
#6,SP

003012

lTO9ERR ERHEAD

1%:

MNEWCYL R

(R1)+
(R1)+
(R1)+
(R1)

:/NO P=CLK"’

;SET ERROR HEADER

:GET POINTER TO DESIRED LOC
sCLEAR NEW CYL
:CLEAR CURRENT (YL

DIFFERENCE
SIGN

016516
016534

PC,TSTINT
PC,GSTATR

.’INITIALIZE TEST
:GET STATUS WITH RESET

022272
003112
020626

R5,DESHD

PC ,POSHSB

;POSITION HEAD SELECTED BIT
sSTORE AS DESIRED HEAD
sEXECUTE SIMPLE SEEK

000001

PC,SIMSEK

#MDRDY ,R3
#CDRDY R4
PC,GSTAT

003044

zgRDYHSK.T.CS

CSERHRD

3
033374

sP=CLOCK?
:BRANCH TO PERFORM TEST IF P=-CLOCK IS PRESENT
sINITIALIZE POINTER FOR TEST MSG.

#FMTO, = (SP)

010263
011232
016564

3
3311

T9::

#2,-(5P)

006541
003102

SEQ 0119

s CHECK roa PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE

003144

000071

17-DEC=79_ 13:08 PAGE 2
INITIAL RESET STATE

000000
012526

0
ERRé

104432
000254
012701
004737
033622
012703
023703
001406

CSEXIT
L10037-.

000121
016564

($:
5%:

000005
003060
ERRHRD

;SET NAME MESSAGE PTR
;SET CONDITION POINTER
;GET STATUS

;TEST READY SET
:NO=SKIP
;REPORT READY ERROR

TST

JEXIT

PC,GSTAT

sSET WAIT COUNT
;GET STATUS

#5,R3
T.STAT ,R3
7$

sSET EXPECTED STATE VALUE
;CHECK STATE IS 5
; YES=-SKIP

902., .ERR7

:ELSE REPORT

WW
W
WW A AW
A~ ~
-t
NN =NNN &H
~
VIS N
N
o

CZRLIBO RLO1/02_DRIVE TE?T 1
12-DEC-79 4:02
CZRLIB.MAC

033374
033376
00

MACY11 30A(1052)
*TEST 9

104456
001606
000000
013546

010263

000001

331

003044

7%:

000010

104456
001607
000000
012576
104432
000074

005737
100006

003044

12%:

104456
001610
000000
012646

001406

010416
022272
003112

15%:

003112

104456
01612

BNE

128

8IT

R1
98

MOV
MOV
MOV
MOV
TRAP
ADD
BR
ERRHRD
TRAP
.WORD
WORD
.WORD
EXIT
TRAP
.WORD

#340,-(SP)
#CLKINT ,-(SP)
#104,-(SP)
#3,-(SP)
CSSVEC
#10,SP
58
903.,,.ERRS
CSERHRD
903
0
ERR5
TST
CSEXIT
L10037-.

TST

T.CS

BPL
ERRHRD
TRAP

15%
904. ., .ERRG
CSERHRD

.WORD
.WORD
.WORD

904
0
ERR6

TRAP
.WORD
MOV
JSR
P
BEQ

CSEXIT
L10037-.
#MHSTA
R3
PC ,POSHSB
RS ,DESHD
208

BEQ
ERRHRD
TRAP
LWORD

178
905.,,ERR3
CSERHRD
905

WORD

17%:

#DRDYMSK ,T.(CS

DEC
BEQ

TST

104456
001611
000000
012460

104432
000012

CSERHRD
902
0
ERR7
TST
CSEXIT
L10037-.
#MDRDY ,R3

EXIT

104432

000052
012703
737

TRAP
.WORD
WORD
.WORD
EXIT
TRAP
.WORD
MOV

TIMDLY

000340
016116
000104
000003
000720

0 10

17-DEC=79 13:08 PAGE 2-65
DRIVE READY

.WORD
EXIT
TRAP
.WORD
ERRHRD
TRAP

;CHECK READY SET

: YES=SKIP

sELSE DEC WAIT COUNT
IP IF 0

;REPORT READY ERROR

;TEST IF ANY ERROR
:NO-SKIP

TST

DE SHD

ERR3
TST
CSEXIT
L10037-.
906. , ,ERR?
CSERHRD

;SET NAME MESSAGE PTR
JPOSITION HEAD SELECT BIT FOR TEST
;sCHECK IF CORRECT HEAD SELECTED
JYES-SKIP

JELSE TEST IF 1 DESIRED
;NO-REPORT SB 0
sELSE REPORT SB 1

SEQ 0120

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC
(5)
(5)

3336
3337
3338
(3)
(3)

033616
033620

033622
033622
033622
033622
033622

12-DEC-79 14:02
000000
012412

104401

MACY11 30A(1052)

*TEST 9

208:
65%:
ENDTST

L10037:

17-DEC-79

13:08

DRIVE READY

.WORD
.WORD

0
ERRZ

TRAP

CSETST

E 10
PAGE 2-66

SEQ 0121

CZRLIBO RLO1/02_DRIVE ES 1
12-DEC-79 14:02
CZRLIB.MAC

MACY11

30A(1052)

«TEST 10

.SBTTL
BGNTST

033624
033624
003144

000005

F 10
13:08 PAGE 2-67
SEEK SIGN SWITCH

17-DEC-79
+TEST 10

MOvB

#'0.5(R2)

MOV
MOV
MOV

#FMT9,=(SP)
#2,-(SP)
SP,RO

ADD

#6,SP

EXIT

TST

PRINTF
MOV

TRAP

003012

1$:

000001
022272
T1048:
BGNSUB

016516
016534

.WORD

MOV

012701

48:

5%:

;CLEAR NEW CYL
;CLEAR CURRENT CYLINDER
;CLEAR DIFFERENCE
sSET FOR SIGN OF 1
;GET SELECTED HEAD
;SET AS DESIRED HEAD
710.1:

sINITIALIZE TEST
;GET STATUS

JSR

PC,SIMSEK

;DO SEEK

#MDRDY ,R3

;SET NAME MESSAGE PTR
;SET CONDITION MESSAGE PTR
;GET STATUS

BIT
BEQ

#DRDYMSK,T.(CS
4%

TRAP

CSERHRD

;CHECK READY RESET
; YES-SKIP
;REPORT READY ERROR

#CDRDY
R4
PC,GSTAT

1001., ,ERR4

.WORD
.WORD

1001
0

TRAP

CSEXIT

.WORD
EXIT

000121
016564

(R1)+
(R1)+
(R1)+
#BITO0, (R1)+
PC .POSHSB
R5.(R1)+

PC,TSTINT
PC,GSTATR

ERRHRD

104432
000254

;SET ERROR HEADER

JSR
JSR

60%

000000
012526

:/NO P=CLK"'

#T10ERR ,ERHEAD

($85UB

MOV
JSR

003044

;PRINT MSG. '‘TST 10 CANNOT BE PERFORMED...

CSEXIT

L10040-.

TRAP

CLR
CLR
CLR
)
JSR
MOV

s INSERT TEST NUMBER INTO MSG.

CSPNTF

#NEWCYL ,R1

608
MOV

010263
011232
016564

#FMT9,#NOTST
#NOTST ,-(SP)

MOV

60%

020626

000001

SEEK _SIGN SWITCH
;TEST 10

T10::
;CHECK FOR PRESENCE 02 A P=CLOCK. ..BYPASS TEST IF NOT AVAILABLE
sP=CLOCK?
TST
CLKF
18
BNE
:BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
MOV
#NOTST ,R2
:INITIALIZE POINTER FOR TEST MSG.
MOVB
#'1,4(R2)
s INSERT TEST NUMBER INTO MSG.

TRAP

006551
003102

‘

SEQ 0122

ERRé
SuB

.WORD

L10041-,

MOV

#81. ,R1

JSR

PC,GSTAT

JEXIT SUBTEST

sSET WAIT COUNT
;GET STATUS

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC

12-DEC=79 14:02

012703
020337
001406

MACY11

30A(1052)

«TEST 10

MOV

000005
003060

cMP
BECQ
ERRHRD

104456

TRAP

001752
000000
013546

012746
012746
012746
012746
104437
062706
000720

003044

ERR7
suB

.WORD
MOV

L10041-.
#MDRDY ,R3

TIMDLY

BIT
BNE
DEC
BEQ

ADD
BR

#10,SP
5%

9%:

003044

12%:

TRAP

104432
000052

003112

15%:

SEXIT

;SET NAME MESSAGE PTR
;CHECK READY SET
;YES=SKIP
;DO WAIT COUNT
:SKIP IF O

#340,-(SP)

#CLKINT ,-(SP)
CSSVEC

1003.,,ERRS

CSERHRD

;REPORT READY ERROR

1003
0

.WORD

L10041-.

BPL
ERRHRD

158
1004.,.ERR6

sREPORT ALL ERRORS

.WORD
.WORD
.WORD
EXIT

1
0
ERR6
SuB

JEXIT

.WORD

L10041~.

MOV

#MHSTA
R3

P
BEQ

RS ,DESHD
208

TST

TRAP

010416
022272
003112

;REPORT STATE ERROR

.WORD
.WORD
.WORD
EXIT

TRAP

000000
012646

001755
000000
012460

ERRHRD

TRAP

104456
001754

104456

#DRDYMSK, T.CS
12%
R1
9s

000010

104432

012703
004737
020537
001415
005737
001406

CSEXIT

#104,-(SP)
#3,-(SP)

TRAP

;SET EXPECTED STATE
sCHECK STATE IS 5
;YES-SKIP

1002

MOV
MOV

MOV

SEQ 0123

MOV

001753
000000
012576

100006

CSERHRD

000340
016116
000104
000003

104456

000074
005737

#5,R3
R3,T.STAT
78
1002., ,ERR7

.WORD
.WORD
.WORD
EXIT
TRAP

010263
000001

G 10

13:08 PAGE 2-68
SEEK SIGN SWITCH

17-DEC=79

JSR

ERRS
SuB

CSEXIT
T.CS

CSERHRD

CSEXIT

PC,POSHSB

TST

DE SHD

TRAP

CSERHRD

BEQ
ERRHRD

17%
1005., ,ERR3

.WORD
.WORD

1005
0

EXIT

SuB

.WORD

ERR3

SEXIT
sTEST

IF ANY OTHER ERROR

:NO-SKIP

sSET NAME MESSAGE PTR
;GET SELECTED HEAD BIT
sCHECK IF CORRECT
;YES = SKIP
SWAS IT SET
:NO-SKIP
;REPORT SB 1

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC=79 14:02

(3)
(3)
3407
(4)
(%)
(5

(5)

~~RRRRRR
K£

SN NN

S NN W

WW=
D aaa s W=

30A(1052)
*TEST

104432

000012

17%:

104456

001756

H 10
17-DEC=79
13:08 PAGE 2-69
SEEK SIGN SWITCH
TRAP

CSEXIT

TRAP

CSERHRD

.WORD
.WORD

0
ERR?

TRAP
TST

DESSGN

;CHECK IF BOTH SIGN USED

DESSGN
T104%

JSET FOR SIGN OF 0
.DO TEST AGAIN

. WORD
ERRHRD
. WORD

000000
012412

1006. , ,ERR2

JREPORT SB 0

1006

208:
60%:

3408
3409

MACY11

ENDSUB

104403

005737
001404
005037
000137

L10041:

003110
003110
033734

25%:

BEQ
CLR
JMP

(SESUB

25%

ENDTST

104401

L1C040:

TRAP

CSETST

JYES=SKIP

SEQ 0124

CZRLIBO RLO1/02 DRIVE TEST 1
12-DEC=79 14:02
CZRLIB.MAC

MACY11

30A(1052)
*TEST

.SBTTL
BGNTST

032737
001411
005737
001006
023737
001004
000137

000010

014206

*TEST

TST

003010

034764

013737

BIT
BEQ

003356
003032

110

17-DEC=79
13:08 PAGE 2-70
SEEK SIGN SWITCH

HEAD AL IGNMENT SUPPORT
;TEST 1
#HDAL
IGN, MISWIW ;CHECK

PASNUM

RLDRV ,HADONE

1%:

003010

2%:

005046
153716
012746

SEQ 0125

;;}53

itz
RUN HEAD AL IGNMENT

JNO=-EXIT

;TEST

PASS 0

sTEST

HEAD ALIGN DONE

JNO=-EXIT

THIS DRIVE

JNO - SKIP

;GO0 CHECK WRITE LOCK

CSEXIT

L10042~-.

RLDRV , HADONE

:SET HEAD ALIGN DONE FLAG

liggg.UBASADD.RLBAS.IDRVNAH.<B.RLDRV01>
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS ,-(SP)
#BASADD ,~(SP)
#FMTS ,~-(SP)
#5,-(SP)

013746
012746
012746
012746
010600

SP,RO
CSPNTF

104417
062706

#14,SP
#FMTO, MHAME S
#HAMEST ,-(SP)
#FMT9,~(SP)
#2,.-(SP)

012746
012746
012746
010600
104417
062706

;TYPE

INSTRUCTIONS

SP,RO
CSPNTF

#FM
, #HAME
TO
S2

012746
012746
012746
010600

(SP)
- S?
#HAME

#FMT9,-(SP)
#2,-(SP)

SP.RO
CSPNTF

104417

062706

BGNSUB

016516
006

3%:

($8SuUB

PC,TSTINT

DONE
RLDRV,L.CS
#GTSTAT,L.CS

T
JINITIALIZE

;CLEAR DONE

TEST

;SET UP FOR GET STATUS

#GETSTAT!DRSET,L.DA

L.DA,RLDA(R2)
L.CS.RLCSR(R2)
#25. ,DLYCNT

4%:

DLYCNT
DLYCNT
#250.

;DO GET STATUS

sINITIALIZE DELAY COUNT
JMULTIPLY ARGUMENT BY 2

JMULTIPLY ARGUMENT BY 2 AGAIN

s IMPLEMENT TIME DELAY

CZRLIBO RLO1/02 DRIVE _TEST 1

CZRLIB.MAC
(2)
(2)
(2)

(2)
(2)
(2)
(2)
(2)

3448
3449
(3)

3450

034560
034564
034566

034572
034574
034600
034602
034606

034610
034614
034614

12-DEC=79 14:02
012727
000000
013727
000000
005367
001375
005367
001367
005337

3470

177756

#HDSEL !MBSETO,L.DA;LOAD FOR HEAD 1
MILSTAT,T.MP
sCHECK IF WRITE LOCK SET
128
: YES-SKIP
#HDSEL ,L.DA
;ELSE CLEAR TO HEAD 0O
RLDRV,L.CS
;LOAD IN DRIVE NUMBER
#SEEK,L.CS
;SET FOR SEEK
L.DA_RLDA(RZ2)
:LOAD & EXECUTE SEEK
L.CS.RLCSR(R2)
#15. ,DLYCNT
sINITIALIZE DELAY COUNT
DLYCNT
JMULTIPLY ARGUMENT BY 2
DLYCNT
JMULTIPLY ARGUMENT BY 2 AGAIN
#250.
s IMPLEMENT TIME DELAY

DLYCNT

104422

DEC
BREAK
TRAP

BNE
BR

58
3s

TRAP

C$ESUB

TRAP
JSR
JSR
608
BIT
BEQ

($85UB
PC,TSTINT
PC,GSTATR

sINITIALIZE TEST
;CLEAR DRIVE

MILSTAT,T.MP
19%

sCHECK WRITE LOCK RESET
;YES-SKIP

012727
000000
013727
000000
005367
001375
005367
001367

005337

001360
000645

(3)
3477
3478
3479
3480
3481

034764
034766
034772
034776
035000
035006

104402
004737
004737
035062
032737
001425

003142

0
-6(PC)
=4
=22(PC)
s =€V

MOV
BIT
BNE
8IC
MOV
BIS
MOV
MOV
MOV
ASL
ASL
DELAY

034756
034760
034762
034762
034762
034762
034764
034764
034764

.WORD
DEC
BNE
DEC
BNE

#4250, ,(PC)+
0
LSDLY, (PC)+

6%
DONE
3s

3471
3472
3473
3474
(3)
(3)
3475
3476
(3)

177772

SEQ 0126

HEAD AL IGNMENT SUPPORT

MOV
.WORD
MOV

002116

J 10
PAGE 2-71

BNE
TST
BEQ

034626 012737
034634 032737
034642 001003
034644 042737
034652 013737
034660 052737
034666 013762
034674 013762
034702 012737
034710 006337
034714 006337
034720 -

034750
034754
034754

000372

13:08

001360
005737
001723

3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467

3468
3469
(3)

«TEST N

17-DEC-79

104422

034616
034620
034626

034720
034724
034726
034732
034734
034740
034742
034746

30A(1052)

DEC
BREAK
TRAP

3451
3452
33222

(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)

MACY11

003006

000021
020000

003040
003052

000020
003032
000106
003040
003034
000017
003142
003142

003040
003034
003034
000004
000000
003142

10%:

12%:

5%:

000372

002116
177772
177756

003142

59%:
ENDSUB
L10043:

104403

T115%:
BGNSUB
016516
016534
020000

003052

MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

DLYCNT
C$BRK

#x250., (PC)+
0
LSDLY, (PC)+
0
-6(PC)
.=
=22(PC)
.=20

C$BRK

;DECREMENT DELAY COUNT
;ALLOW OPERATOR TO INTERRUPT PROGRAM TO GET

;/BACK TO SUPERVISOR COMMAND MODE

sBRANCH IF TIME DELAY NOT EXPIRED
;CHECK IF DONE
:NO=GO CLR CONTROLLER

sDECREMENT DELAY COUNT
;ALLOW OPERATOR TO INTERRUPT PROGRAM TO GET

;/BACK TO SUPERVISOR COMMAND MODE

sBRANCH IF TIME DELAY NOT EXPIRED
;LOOP

ni.e:

CZRLIBO RLO1/02 DRIVE TEST 1
12-DEC=79 14:02
CZRLIB.MAC
3482
(8)
(7)
(6)
(3)
(4)
(4)

3483
3484
(3)
(3)

035010
035010

007775
011632
000002

MACY11

30A(1 052)
«TES TM

18%:

000006
004362

K 10

17-DEC-79 13:08 PAGE 2-72
HEAD AL IGNMENT SUPPORT
PRINTF
MOV
MOV
MOV
MOV
TRAP

#FMTO #OPR12

#OPR12,=(SP)

;REQUEST WRITE LOCK RESET

#FMTY, =(SP)
#2,~(5P)

SP_RO
CSPNTF
#6,SP
0BUF F

:CLEAR FOR RESPONSE

OPRO02,0BUFF ., 1.NO

CSGMAN
100008
F
OBUF

(4)
(5)

SEQ 0127

:GET RESPONSE

T$CODE
?PROO?

004362

10000%:

OBUF F

18%

19%:

:
608
ENDSUB
L10044:
20%:

TRAP

($ESUB

TRAP

CSETST

ENDTST

L10042:

;WAS ANSWER YES

:NO-REPEAT REQUEST

CZRLIBO RLO1/02 DRIVE_TEST 1

CZRLIB.MAC

12-DEC=79 14:02

MACY11

3493
3494

3495

3496
(3)

035066
035066

3498
3499
3500
3501
3502
3503

035066
035072
035074
035100
035106
035114

3497

(8)
(7)
(6)
(3)
(4)
(4)

035114
035120
035126
035130
035132
035134

3505

035140

3504
(3)
(3)

035140
035142

LSBTTL

005737
001024
012702
112762
112762
012746
012746
012746
010600
104417
062706
104432
000406
012737
012701
005021
005021
005021
005021
012721

035144
035152
035156
035160
035162
035164
035166
035172
035172
035172
035172 104402
035174 004737
035200 004737
035204 035530
035206 004737
035212 035530
035214 012703
035220 012704
035224 004737
035230 035530
035232 032737
035240 001406
035242
035242 104456
035244 002261
035246 000000

3527
(3)
3 g g&

035252
035252
035254

3529
3530
3531

035250

035256
035262
035266

«TEST N

BGNTST

3506
3507
3508
3509
3510
3511
3512
3513
3514
(3)
(3)
3515
3516
3517
3518
3519
3520
3521
3522
3523
3524
3525
3526
(4)
(5)
(5)
(5)

30A(1052)

13:08

L 10

PAGE 2-73

003144

*TEST 12

TST
BNE
MOV
MOVB
MOVB
PRINTF

006662
000061
000004
000062 - 000005
006662
011632
000002

HEAD SWITCHING
sTEST 12

CLKFLG
18
#NOTST ,R2
#°'1,4(R2)
#'2,5(R2)
#FMT9,#NOTST

MOV
MOV
MOV
MOV
TRAP
ADD

000006

#NOTST ,=(SP)
#FMT9,-(SP)
#2,-(SP)
SP,RO
CSPNTF
#6,SP

EXIT TST
006571
003102

003012

000001

1%:

T1248:
BGNSUB

TRAP
LWORD

MOV
MOV
CLR
CLR
CLR
CLR
MOV

TRAP
JSR
JSR
608
JSR
60%
MOV
MOV
JSR
608
BIT
BEQ
ERRHRD
TRAP
LWORD
.WORD

016516
016534

020626
010263
011232
016564
000001

003044

.WORD

EXIT
TRAP
.WORD

104432
000254

000121
016564

SEQ 0128

HEAD AL IGNMENT SUPPORT

T1¢:¢

s CHECK FOR PRESENCE OF A P-CLOCK .BYPASS TEST IF NOT AVAILABLE

012526

012701
004737
035530

17-DEC-79

5%:
6$:

MOV
JSR
60%

CSEXIT
L10045-.
#T12ERR ERHEAD
#NEWCYL R1
(R1)+
(R1)+
(R1)+
(R1)+
#1,(R1)+

:P=CLOCK?
:BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
:INITIALIZE POINTER FOR TEST MSG.
s INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.
JPRINT MSG. '‘TST 12 CANNOT BE PERFORMED...

:/NO P=CLK"’

;SET ERROR HEA’ ZR
:GET POINTER TO DESIRED LOCATION
;CLEAR NEW CYLINDER
;CLEAR CURRENT CYL.
;CLEAR DIFFERENCE
;CLEAR SIGN
:SET FOR HEAD 1
112.1:

($85UB
PC,TSTINT
PC.GSTATR

sINITIALIZE TEST
;GET STATUS WITH RESET

PC.,SIMSEK

;DO SEEK

#MDRDY ,R3
#CDRDY R4
PC,GSTAT

sSET NAME MESSAGE PTR
sSET CONDITION POINTER
;GET STATUS

#DRDYMSK ,T.CS
5%
1201., .ERR4
CSERHRD
1201
0

;CHECK IF READY
:NO-SK]P
;REPORT READY ERROR

suB
CSEXIT
L10046~.

JEXIT

#81. .R1
PC,GSTAT

sSET WAIT COUNT
;GET STATUS

ERRé

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC

12-DEC=79 14:02

012703
020337
001406

000005
003060

104456
002262
000000
013546

035314
035316

035422

104432
000214

012703
032737
001042
005301
001432

010263
000001

012746
012746
012746
012746
104437
062706
000720

000340
016116

003044

7%:

000003
000010

000074

12%:

104456

002264

000000
012646

104432
000052

010416
022272
003112
003112

035512

CSERHRD
1202
O
ERR7
SuB
CSEXIT
L10046~.

MOV

#MDRDY ,R3

15%:

#5,R3
R3 T.STAT

1202 . ,ERR7

sSET EXPECTED STATE VALUE
sCHECK IF STATE IS 5
s YES-SKIP
sREPORT STATE ERROR

#DRDYMSK,T.(CS

;SET NAME MESSAGE PTR
;CHECK DRIVE READY

DEC
BEQ

R1
9s

sDEC WAIT COUNT
;SKIP IF O

MOV
MOV
MOV
MOV
TRAP
ADD

#340,-(SP)
#CLKINT ,-(SP)
#104,-(SP)
#3,-(SP)
CSSVEC
#10,SP

ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.WORD

1203., ERRS
CSERHRD
1203
O
ERRS
SuB
CSEXIT
L10046~.

TST

T.CS

ERRHRD
TRAP
WORD
.WORD
.WORD
EXIT
TRAP
.WORD

1204., .ERRG
CSERHRD
1204
0

BIT

104432

003044

MOV
cMP
BEQ
ERRHRD
TRAP
.WORD
WORD
.WORD
EXIT
TRAP
LWORD

TIMDLY

002263
000000
012576

100006

17-DEC-79
13:08 PAGE 2-74
HEAD SWITCHING

BNE

104456

005737

m10

MACY11 SOA(
105%5

BPL

MOV
JSR

BEQ

12%

15%

;REPORT READY ERROR

SEXIT

JTEST IF ANY ERROR

;NO-SKIP

;REPORT ALL ERRORS

ERR6
SuB

CSEXIT
L10046~.

#MHSTA R3
PC,POSHSB
DESHD,R5

208

TST

DE SHD

ERRHRD
TRAP
.WORD
.WORD
.WORD

1205., .ERR3
CSERHRD
1205
O
ERR3

BEQ

JYES=-SKIP

17%

;SET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT
sCHECK IF CORRECT HEAD SELECTED
: YES-SKIP
;WAS HEAD O SELECTED
: YES-SKIP
sREPORT HEAD SB 1

SEQ 0129

CZRLIBO RLO1/02 DRIVE _TEST 1
CZRLIB.MAC
12-DEC=79 14:02

3560
(3)
(3)
3561
(4)
(5)
(5)
3;25

035514
035514
035516
035520
035520
035522
035524
035526

3563
3564
3565
(3)
(3)
3566

035530
035530
035530
035530
035530
035532

3567
3568
3569
3570
3571
(3)
(3)

035536
035540
035544
035550
035550
035550
035550

104432
000012

005737
001404
005037
000137

104401

30A(1052)
«TEST 12

178:

104456
002266
000000
012412

104403

MACY11

208:
608
:
ENDSUB
L10046:

003112
003112
035172

25%:
ENDTST
L10045:

N 10
17-DEC-79 13:08 PAGE 2-75
HEAD SWITCHING
EXIT
TRAP
.WORD
ERRHRD
TRAP
.WORD
.WORD
.WORD

suB
CSEXIT
L10046~.
1206., ,ERR2
CS$ERHRD
1206
O
ERRZ2

TRAP

TST
BEQ
CLR
JMP

($ESUB
DESHD
25$%
DESHD
T124%

TRAP

CSETST

JEXIT
;ELSE REPORT HEAD SB 0

;CHECK IF HD O WAS DONE
;YES=SKIP
JELSE SET TO HEAD 0
;REDO TEST

SEQ 0130

CZRLIBO RLO1/02 DRIVE TE ?T 1
CZRLIB.MAC
12-DEC-79 4:02

MACY11 30A(1052)
«TEST 12

LSBTTL
BGNTST

006603
003102

003012

T1348:
BGNSUB

016516
016534
020626

3593

035630

004737
035702

3596
3597

035636
035640
035644
035650
035654

004737
035702
012703
004737
020537
001412

3599

3600
3601
(4)
(5)

035656
035660

(5)

035664

012460

035666
035670

104432
000012

(4)
(5)

035672
035674

104456
002426

(5)
3604

035700

«TEST 13

000121
022322

TRAP

($8SUB

PC,TSTINT
PC.GSTATR
PC,SIMSEK

MOV

#81. ,R1

608

108:

010416
022264
003112

PC , XRDHDC
#MHSTA R3
PC,POSHW
RS . DESHD

ERRHRD

1301.,,ERR3

TRAP

158

CSERHRD

LWORD
WORD
.WORD
EXIT

1301
0

.WORD

L10050-.

TRAP

CSERHRD

TRAP

000000
012412

PC,RDYWAIT

JSR
608
MOV
JSR
cTMP
BEQ

17%:

(R1)+
(R1)+
(R1)+
(R1)+
(R1)+

JSR
JSR
608
JSR
JSR

021602

;TEST 13

#T13ERR
, ERHEAD
MNEWCYL
.R1

CLR
CLR
CLR
CLR
CLR

ERRHRD

SEQ 0131

READ HEADER (PART 1)

MOV
MOV

608

104456
002425
000000

3602
(3)
(3)

17-DEC-79 13:08 PAGE 2-76
HEAD SWITCHING

T13::
;SET ERROR HEADER
;GET ADDRESS OF DESIRED LOCATIONS
sCLEAR NEW CYL
sCLEAR CURRENT CYL
;CLEAR DIFF
sCLEAR SIGN
;CLEAR HEAD
T13.1:

sINITIALIZE TEST
;GET STATUS W/RESET
;DO SEEK
sSET WAIT COUNT
;WAIT FOR READY
;DO READ HEADER
sSET NAME MESSAGE PTR
sPOSITION HS BIT IN HD WRD 1
sCHECK IF HEAD CORRECT
; YES-SKIP
;REPORT SB 1

ERR3
SuB

CSEXIT

1302.,,ERR2

.WORD
WORD
.WORD

1302
O
ERR2

TRAP
ST

CSESUB
DE SHD

;REPORT SB 0

15%:

ENDSUB

3
g

L10050:

Vvt

b
b
b
-

WN=O

g8aa

:
608

003112
000001
003052

003112
003116

000177

003116

208:

BNE
MOV
MOV
B8R

208
#1,DESHD
HDWRD1, TEMPO
T 134$

#177 ,TEMPO

sTEST IF HEAD 1 DONE
: YES-SKIP
sELSE SET TO HEAD 1
sSTORE HDR WORD 1
;DO _TEST AGAIN
sCLEAR ALL BUT CYLINDER IN 1ST HEADER

B0 RLO1/702 DRIVE_TEST 1
MAC
12-DEC-79 14:02

§7§7

000177

01 2703

007044

003116

MACY11 30A(1052)
*TES T13

13:08

55»6 HOWRD1

003052

#CYLPER,R3
1306. , ,ERR1

22%:

CSERHRD
1306
0
ERR1

ENDTST

104401

cn
PAGE 2-77

READ HEADER (PART 1)

#177 ,HOWRD1

003052

104456
002432
000000

012344

17-DEC=79

L10047:

CSETST

;CLEAR ALL BY CYL IN 2ND HEADER

;COMPARE IF EQUAL
:YES-SKIP
:SET NAME MESSAGE PTR

:REPORT HEAD ALIGNMENT PROBLEM

SEQ 0132

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC~79 14:02
CZRLIB.MAC

MACY11 30A(1052)

*TEST 14

.SBTTL
BGNTST

012737
012701

006617
003104

D 1N

003012

17-DEC-79 13:08 PAGE 2-78
READ HEADER (PART 2)
*TEST 14

1‘READ HEADER (PART 2)
T14::

;SET ERROR HEADER
;GET ADDRESS OF DESIRED VALUE
;CLEAR CURRENT CYL
sCLEAR DESIRED DIFF
sCLEAR SIGN
sCLEAR DESIRED HEAD

MOV
MOV
CLR
CLR
CLR
CLR

#T14ERR ,ERHEAD
#CURCYL ,R1
(R1)+
(R1)+
(R1)+
(R1)+

TRAP
JSR
JSR

($8SUB
PC,TSTINT
PC,GSTATR

sINITIALIZE TEST
:CLEAR DRIVE

PC,SIMSEK

;DO SEEK

#200. ,R1

PC.RDYWAIT

;SET WAIT COUNT FOR 20 MS
;WAIT FOR READY

JSR

PC_,RDALHD

;DO READ HEADER ALL HEADERS

CLR
BIS

MORE CE
#HDRCMP
,OPF LAG

:CLEAR MORE COMPARE ERRORS FOR REPORT

003762
003116
000050

MOV

#IBUFF ,R4

000100
003112

BIC

#HDHSEL
, (R5)

BEQ
BIS
CLR
P
BEQ

108
#HDHSEL
, (R5)
2(R5)
(R5),(R4)+
138

T153%:

BGNSUB

016516
016534

60$
JSR
608
MOV

020626

000310
022322

JSR

608

023014

003014
000002

011415

042715
005737

000100
000002

608

003004

CLR

MOV
MOV
MOV
TST

108:

TST

ERRHRD
TRAP

13%:

001406
022544
104456
002735
000000
013756
024524
005724

SEQ 0133

#TEMPO
RS
#40. ,R1
(R4)
, (RS)
DESHD

=(R4)

1501., ,ERR10

CSERHRD

.WORD
WORD
.WORD

1501
O
ERR10

INC

BEQ
cMP
ERRHRD

15%
(R5)+,-(R4)
1501., ,ERR10

TST

TRAP

15%:

.WORD
.WORD
.WORD
cMP
TST

(R4)+

(R4)
+

CSERHRD

1501
0
ERR10
=(R5),(R4)+
(R4)+

T14.1:

;SET HDR COMPARE FLAG
;CLEAR FOR HDR COUNT
:GET POINTER FOR HDR TO BE CHECKED
;GET POINTER TO TEST AREA
:SET HDR COUNT
:GET FIRST HEADER WORD

;TEST IF HD O DESIRED
:YES-SKIP
sELSE SET HEAD BIT
sCLEAR 2ND WORD OF TEST AREA
; COMPARE HEADER WORD
;SKIP IF OK
sELSE POSITION R4 TO BAD WORD
sREPORT ERROR

;BUMP R4 TO NEXT WORD
;BUMP WORD COUNT
sTEST 2ND WORD IS 0
:YES = SKIP
;POSITION PTRS FOR REPORT
sREPORT ERROR

sREPOSITION POINTER
sPOSITION R4 PAST ECC WORD

CZRLIBO RL01/02 D
CZRLIB.MAC
12-D

MACY11

3667

30A(1052)
*TEST 14

036176

17=DEC=79

MOV
BIC
CMP
BNE

000077

17%:

EN
PAGE 2-79

READ HEADER (PART 2)

INC
INC

177700
000050

13:08

R3
(RS)

(RS) ,R
#40. RO
17$

rcnbssc RO

BIC
DEC

#HDSEC, (RS)
R1

TRAP
ST

CSESUB
DE SHD

BNE

108

sBUMP WORD COUNT
:BUMP SECTOR COUNT
s CHECK IF SECTOR IS PAST LAST SECTOR
;NO-SKIP
JELSE CLEAR SECTOR TO 0
:DEC HDR COUNT
;YES-SKIP

60%:

ENDSUB

L10052:
003112

000001
036014

003112
20%:

BNE
MOV
JMP

208
#1,DESHD
T153$

TRAP

CSETST

ENDTST

L10051:

sCHECK IF HD 1 TESTED
;YES-SKIP
sELSE SET TO HEAD 1
sREDO TEST

SEQ 0134

CZRL1BO RL01/02 DRIVE TEST1
CZRLIB.MAC
12-DEC-79 14:02

MACY11

30A(1052)

«TEST 15

.SBTTL
BGNTST

036252
036252

005737

003144

012702

006662

001024

112762
112762

000065

000004
000005

17-DEC-79

13:08

F1N
PAGE 2-80

DIFFERENCE OF

«TEST 15

MOVB

#'S.5(R2)

PRINTF

#FMTO,#NOTST

MOV
MOV
MOV
MOV

062706

000006

ADD

#NOTST,=(SP)
#FMTY,
< (SP)
#2,-(5P)
SP.RO
CSPNTF
#6,SP

EXIT

TST

TRAP

104432
003012
003116

000001

002276

012737

177776

003122

000403
012737
012704
012705
004737

177777
003104
003102
021472

003122

1$:

.WORD

MOV
MOV

3g:
4$:

:/NO P=CLK'"

#1,T.DRIVE
2
#=2,TEMP2

;RLOT OR RLO2?
*BRANCH TO SET UP DIFF ARGUMENT FOR RLO1
*ELSE, SET =2 INTO DIFF ARGUMENT FOR RLO2

MOV
MOV
MOV
JSR

#-1,TEMP2
#CURCYL ,R4
ANEWCYL .RS
PC, CHOSHD

;SET =1 INTO DIFF ARGUMENT FOR =1 SFEK
*SET POINTERS

TRAP

($BSUB

ggg

021556

:PRINT MSG. '‘TST 15 CANNOT BE PERFORMED...

CMP
BEQ
MOV
»

28:
5$:

:INSERT TEST NUMBER INTO MSG.

csexn

L10053-.

PC.TSTINT
PC.GSTATR

PC.GETPOS

INLOOP
CSINLP
BNCOMPLETE
3s
BCC
3$
CMP
(R4) , (RS)
BNE
48
JSR
PC , ONSWAP
B8R
9
TRAP

012737

T1S::

;SET ERROR HEADER
:SET PASS COUNT

T1765%

022666

NEG
MOV

000001

002276

CMP
BNE
CMP

177776

003122

MOV

002302

SEEK (PART 1)

npzrme ERHEAD
#4, TEMPO

JSR
JSR

T172%:
BGNSUB

003122

sCHECK FOR PRESENCE OF A P-CLOCK BYPASS TEST IF NOT AVAILABLE
TST
CLKFLG
:P=CLOCK?
1%
BNE
:BRANCH TO PERFORM TEST IF CLOCE IS PRESENT
MOV
#NOTST ,R2
:INITIALIZE POINTER FOR TEST MSG.
MOVB
#'1,4(R2)
:INSERT TEST NUMBER INTO MSG.

006662
011632
000002

006643
000004
016516
016534

SEQ 0135

SEEK (PART 1)

DIFFERENCE OF
;TEST 15

012746
012746
012746
01 0600
104417

BEQ

TEMP2
(R4) , (RS)

HLMTW, (R4)
78
#1,T.DRIVE
6$
#=2,TEMP?

*INITIALIZE TEST
*GET STATUS

:/(RLO2 HAS DOUBLE THE TRACK DENSITY OF RLO1)

;GO CHOOSE HEAD
T15.1:

:GET POSITION

;CHECK IF IN ERROR LOOP
:NO = SKIP
;CHECK IF CURRENT = NEW
*NO - SKIP
*ELSE SWAP OLD AND NEW
*SKIP TO SEEK

:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR
*MOVE CURRENT INTO OLD

*CHECK IF CURRENT AT 255
‘NO = SKIP
*RLOT OR RL02?
*BRANCH IF RLO1
“ELSE. SET UP DIFF ARGUMENT FOR RLO2

CZRLIBO RLO1/02 DRIVE TEST 1
CZRLIB.MAC
12-DEC~79 14:02
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
?3»;22

036500
036502
036510
036512
036514
036516
036524
036526
036534
036536
036544

000421
012737
000415
005714
001013
022737
001404
012737
002403
012737
063715

036550
036554
036556

004737
036730
004737

020036

3745
3746
3747
3748
(4)
(5)
(5)
(5)
3749
3750
3751
(8)
(7)
(6)

036562
036566
036572
036574
036574
036576
036600
036602
036604
036606
036612
036612
036616
036622

012703
020337
001405

000004
003060

(3)
3752
3753
3754
3755
(4)

036634
036674

3756
3757
3758
3759
3760
(3)
(3)
3761
(3)
(3)
3762
g;gz

036716
036722
036726
036730
036736
036736
036736
036740
036740
036742
036744
036750

012701
004737
036730
012737

005337
001410

003116

3765
3766

036752
036760

032737
001003

000001

(5)
(4)

(5)
(5)
(5)

036626
036632

036700
036704
036706
036706

036710
036712
036714

177777

MACY11 30A(1052)
«TEST 15
003122

¢68:
7%:

000001

002276

000002

003122

000001
003122

003122

11$:
8$:
9%:

017656

104456
000145
000000
01 3546

000444
012703

012746
012746
012746
012746
104437
062706

004737
020337
001404
104456
000146
000000
013546

000005

108:

000340
016116
000104
000003

12%:
148:

000062
022322

16%:
003016

104403
104410
000030

BR
MOov
BR
TST
BNE
CMP
BEQ
MOV
BR
MOV
ADD

8s
#-1,TEMP2
8$
(R&)
8%
#1,T.DRIVE
118
#2,TEMP2
8s
#1,TEMP2
TEMP2, (RS)

JSR
60%
JSR

PC ,XSEEK

;AT CYL 0, MAKE NEXT SEEK FWRD
;ADD DIFF _TO NEW CYL (+1 OR =1 FOR RLO1,
:/+2 OR =2 FOR RLO2)
;DO SEEK

PC,.GDRSTA

;GET DRIVE STATE

Mov
cMP
BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD
BR
MOV
TIMDLY
MOV
MOV
MOV

#4 ,R3
R3,T.STAT
108
101., ,ERR7
C$ERHRD
1017
O
ERR7
16%
#5,R3
#50.
#340,-(SP)
#CLKINT ,-(SP)
#104,-(SP)

sSET EXPECTED STATE
;CHECK DRIVE STATE
;YES-SKIP
;REPORT STATE ERROR

ADD
JSR

#10,SP
-? GDRSTA

.WORD
.WORD
.WORD

102
0
ERR7

MOV
TRAP

000010
017656
003060

000002

G 1
17-DEC-79 13:08 PAGE 2-81
DIFFERENCE OF 1 SEEK (PART 1)

003116

60$%:
ENDSUB
L10054:

cMP
BEQ
ERRHRD
TRAP

;AT MAX CYL, MAKE NEXT SEEK REV
;SKIP
sTEST IF CURRENT AT 0
:NO = SKIP
:RLOT OR RLO2?
:BRANCH IF RLO1
;ELSE, SET UP DIFF ARGUMENT FOR RLOZ2

SEXIT TEST
;SET EXPECTED STATE
;WAIT 5 MS FOR DRIVE STATE CHANGE FROM 4 TO 5

#3,-(SP)
C$SVEC

R3 .STAT
16$
102.,,ERR7
CSERHRD

;GET DRIVE STATE
;1S STATE 5?
;YES=-SKIP
;REPORT STATE ERROR

MOV
JSR
608
Mov

#50. ,R1
PC,RDYWAIT

JINITIALIZE WAIT COUNT
;GO WAIT FOR DRIVE READY

#2 ,ERRSWI

sINIT ERROR SWITCH

TRAP
ESCAPE
TRAP
.WORD
DEC
BEQ

CSESUB
TST
CSESCAPE
L10053-.

TEMPO
249

;DEC _PASS COUNT
:SKIP IF 0-DONE

BIT
BNE

#8170, TEMPO
23%

;TEST IF PASS=?2
sNO-SKIP

SEXIT TEST IF ERROR

SEQ 0136

CZRLIBO RLO1/02 DRIVE _TEST 1
CZRLIB.MAC
12-DEC=79 14:02

3767
3768
3769
3770
3771
3772
(3)
(3)

036762
036766
036770
036772
036772
036772

036772
036772

004737
036772
000613

104401

MACY11

H1
17-DEC-79
13:08 PAGE 2-82
DIFFERENCE OF 1 SEEK (PART 1)

30A(1052)
*TEST 15

021516
23%:

24%:
T1765%:
ENDTST

L10053:

JSR
24%

PC, SWAPHD

T172%

TRAP

CSETST

;GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN

SEQ 0137

CZRLIBO RLO1/02 DRIVE _TEST 1
12-DEC=79 14:02
CZRLIB.MAC

3774

036774
036774
036774
037002
037010
037014
037020
037022
037026

006643
000004
016516
016534

021472
177777
003102
003104
003100

037222

PC.TSTINT
PC.GSTATR

003122

MOV
MOV
MOV
MOV

JSR

PC, CHOSHD

#-1,TEMP2
#NEWCYL ,R3
#CURCYL .R&
#OLDCYL .RS

;GO CHOOSE HEAD

TRAP
JSR

($BSUB
PC.,GETPOS

INLOOP
TRAP

CSINLP

BCC
CMP
BNE

3$
(R4)
, (R3)
4$

MOV

T187%:
BGNSUB

022666

60%

BNCOMPLETE

177777

JSR

3%:

4%:

003122
7%:

000001
003122
020036

003122

8%:

000001

, (R3)
(R&4)

CMP

(REVERSE)

T16.1:

;GET CURRENT POSITION

TEMP2

HLMTW, (R4)

:NO - SKIP

;CHECK IF CURRENT
= NEW
:NO - SKIP
;ELSE SWAP OLD AND NEW
:SKIP TO SEEK

:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR
MOV CURRENT INTO NEW
;CHECK IF CURRENT AT 255

7$
#-1.TEMP2
8s

BNE
MOV

8$
#1,TEMP2

sTEST IF CURRENT AT 0
:NO - SKIP
;AT CYL O, MAKE NEXT SEEK FWRD

JSR

PC,XSEEK

:D0 SEEK

ADD

JSR

608
MOV

(R&)

TEMP2, (R3)

PC.GETPOS

;STORE POSITION

(RS) ,R1

;GET OLD POSITION
;SUBTRACT FROM NEW POINTER (FORWARD)
sCHECK IF SIGN FORWARD

MOV
SUB
cMP

(R&) ,R1
(RS) .R1
#1.Ri

TRAP

CSERHRD

.WORD
WORD

:ADD DIFF TO NEW CYL (+1 OR =1)

;SET WAIT COUNT FOR 15 MS

PC,RDYWAIT

(R&) .R1
DESSGN

BEQ
ERRHRD

:NO - SKIP
g;lgAX CYL, MAKE NEXT SEEK REV

#150. ,R1

SuB
ST

BEQ
108:

;SET DIFF ARGUMENT TO =1
;GET ADDRESSES

BNE
MOV
BR

60$

003110

PC , ONSWAP

MOV

JSR

022666

NEG

T16::

sCHECK IF IN ERROR LOOP

B8R

608
MOV

000226
022322

#4, TEMPO

SEQ 0138

SEEK (PART 2)

JSR
JSR
T1865%

002302

;TEST 16

;SET ERROR HEADER
;sSET PASS COUNT
JINITIALIZE TEST
sGET STATUS, CLEAR DRIVE

003122

DIFFERENCE OF 1

#P2TO2E ,ERHEAD

021556

’\Afi EEBRRECEES

MOV

103005

037216

«TEST

003012
003116

104420

17-DEC-79
13:08 PAGE 2-83
DIFFERENCE OF 1 SEEK (PART 2)

*TEST 16

.SBTTL
BGNTST

012737
012737
004737
004737

I N

MACY11 30A(1052)

108

12%
201.,,ERR8

201
O

;WAIT FOR READY

;YES-SKIP,

ELSE SUB FOR SEEK REVERSE

:GET NEW CYLINDER
s SUBTRACT FROM OLD CYL
sCHECK IF RESULT IS DIFFERENCE OF
:YES=SKIP

:ELSE REPORT ERROR

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

037220

MACY11 30A(1052)

*TEST 16

013616

012737

000002

003016

12%:

60%:

ENDSUB

L10056:

104403
104410

037242
037244
037252
037254
037260
037262
037264
037264
037264
037264
037264
037266

000030
005337
001410

032737
001003
004737
037264
000672

104401

037266
037266
037266

000030

037270
037270
037272
037274

005130
037434
000001

037276

000031
037350
160000
177776

037314

001031
037364
000000
000776

037316
037316
037320
037322
037324
037326

004032
037426
003400
000000
000007

037330
037330
037332

003130
037404

J 1
13:08 PAGE 2-84
1 7-DEC-79
DIFFERENCE OF 1 SEEK (PART 2)

.WORD

ERR8

MOV

#2 ,ERRSWI

sINIT ERROR SWITCH

TRAP
ESCAPE

C$ESUB
TST
CSESCAPE

SEXIT TEST IF ERROR

TRAP

003116
000001

003116

021516

208:
30%:
T1865%:

ENDTST
L10055:
ENDMOD

.WORD
DEC
BEQ

L10055-.
TEMPO
308

;DEC _PASS COUNT
SEXIT IF DONE

BIT
BNE

#8170, TEMPO
208

sTEST IF PASS
: YES-SKIP

JSR
30%
BR

TRAP

PC.,SWAPHD
T187%

PARAMETER CODING
HRDPRM

GPRML

CNTYPE,CNT,1,YES
.WORD
TS$CODE

.WORD L10057~L$HARD/2

.WORD

WORD

.WORD

GPRMA

.WORD
.WORD

CSRMSG
TSLOLIM

TSHILIM

VECMSG

TSLOLIM
TSHILIM

DRMSG,DRSB,0,3400,0,7,YES
.WORD
TSCODE
.WORD

DRMSG

.WORD

TSHILIM

.WORD
.WORD

GPRML

VECMSG,VECT,0,0,776,YES
.WORD
TSCODE
.WORD

GPRMD

CNTYPE

CSRMSG,CSR,0,160000,177776
,YES
.WORD
TSCODE
.WORD
.WORD

3400
TSLOLIM

DRTYPE,TYPDR,1,YES
.WORD
T$CODE
.WORD
DRTYPE

1 OR 3

;GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN
;LOOP

CSETST

.SBTTL
BGNMOD
BGNHRD

GPRMA

SEQ 0139

CZRLIBO RLO1/02 DRIVE TEST 1
12-DEC=79 14:02
CZRLIB.MAC

037334

MACY11 30A(1052)

17-DEC-79

PARAMETER CODING

000001

.WORD

K11
PAGE 2-85

BRMSG,PRIOR,0,340,0,7,YES
.WORD
T$CODE

GPRMD

002032

13:08

037373

000340
000000
000007

.WORD

BRMSG

WORD

TSHILIM

.WORD
.WORD

037350

ENDHRD

037350

L10057:

340
TSLOLIM

.EVEN

037350
037356

052502
051104

020123
051505

042101
000123

CSRMSG:

.ASCIZ

/BUS ADDRESS/

037364
037372

042526
000

052103

051117

VECMSG:

.ASCIZ

/VECTOR/

037373
037400

102

042526

020122
000114

042514

BRMSG:

.ASCIZ

/BR LEVEL/

037404
037412
037420

051104
054524
051040

053111
042520
030114

020105

DRTYPE:

.ASCIZ

/DRIVE TYPE = RLO1/

037426

051104

0531

000105

DRMSG:

.ASCIZ

/DRIVE/

037434

046122

030461

000

CNTYPE:

LASCIZ

/RL11/

037441

036440
000061

ENDMOD

037442
037442
037442
037442

000016

037444
037444
037446
037450

000130
037500
000004

037452
037452
037454
037456

000130
037533
000010

037460
037460
037462
037464
037466

000130
037572

BGNMOD
BGNSFT

SFTPRM

GPRML

SELQ _MISWI 4, YES
.WORD
TSCODE
.WORD
SELQ
WORD
4

GPRML

ALGNQ MISWI,10,YES
.WORD
T$CODE

.WORD L10060-L$SOFT/2

.WORD

.WORD
GPRML

100000

3%:

ALGNQ

MANQ_ MISWI, 100000, YES
.WORD
TSCODE
.WORD
MANQ
.WORD
100000

GPRMD

ERLIMQ,.ERLIM,D,377,0,377,YES

SEQ 0140

CZRLIBO RLO1/02 DRIVE _TEST 1
CZRLIB.MAC
12-DEC=79 14:02

MACY11 30A(1052)
17-DEC-79
PARAMETER CODING

(4)
(4)
(4)
(4)

037466
037470
037472
037474

3886

037500

ENDSFT

037500

L10060:

Ség%
(2)
(3)

3887
%ggg
3890

037476

004052
037627
000377
000000

.WORD
.WORD
.WORD
.WORD

000377

.WORD

13:08

PAGE 2-86

TSCODE
ERLIMQ
377
TSLOLIM

TSHILIM

.EVEN

.EVEN
037500
037506

054105
020105

041505
051104

052125
053111

SELQ:

.ASCIZ

/EXECUTE DRIVE SELECT TESTS/

037514
037522
037530

020105
052103
051524

042523
052040
000

042514
051505

105
042524
020104
046516
052523
000124

042530
044040
046101
047105
050120

0525
0405
0435
0201
0511

ALGNQ:

.ASCIZ

/EXECUTE HEAD ALIGNMENT SUPPORT/

3893

037533
037540
037546
037554
037562
037570

3894

037572

047504

046440

047101

MANQ:

.ASCIZ

/DO MANUAL INTERVENTION TESTS/

037622

051505

051524

000

037627
037634
037642
037650

111
042440
046040
000

050116
051122
046511

052125
051117
052111

ERLIMQ:

.ASCIZ

/INPUT ERROR LIMIT/

.EVEN
WORD
.WORD

O
0

3891
3892

3895
3896

3897
3898
3899
3900
3901
3902
2)
(4)
(4)
(3)

3903
3904
3905
3906
3907

037652

.EVEN

037652

ENDMOD

037652

LASTAD

037652
037654
037656

000000
000000

L.SLAST::

.EVEN

037656

LSLAST::

000001

.END

SEQ 0141

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC
ADR

ALGNQ

= 000020 G

037533

ALLCYL= 000001
ALLSEC= 000002
ANYERR= 100000
ASSEMB= 000010
BADADD= 004000
BAMSK = 000060
BANAM
006123
BASADD 006040

BIT11 = 004000

BIT12
BIT13
BIT14
BIT15
BIT2

= 010000
= 020000

= 040000

704
714
1234

1584

1921

2185

1139

3027

= 100000
=
BIT3 = 000010
BIT4 = 000020
BITS = 000040
BIT6é = 000100
BIT7 = 000200
BIT8 = 000400
BIT9 = 001000
BOE
= 000400
BRMSG
037373
BSFLAG 003020
BSFVAL 003370
BSNSTR 0107166
BYPSNM 010117
CAFDT
011302
CAMSK
002312
cCyLup 011271
CDRDY
011232
CHOSHD 021472
CKDATA= 000102
CKERLM 016132
CLKADR 003146
CLKFLG 003144
CLKINT 016116 G

SEQ 0142

38924

2641

(qlalalalalalalalalalalalalalalalalalalalalalalalalalal

BELL
011153
BHSTAT= 000010
BITO = 000001
BITO0 = 000001
BITO1 = 000002
BITO2 = 000004
BITO3 = 000010
BITO4 = 000020
BITOS = 000040
BITO6 = 000100
BITO7 = 000200
BITO8 = 000400
BITO9 = 001000
BIT1
= 000002
BIT10 = 002000

S1#
3880

MmN
MACY11 30A(1052)
17-DEC=79 13:08 PAGE 3
CROSS REFERENCE TABLE == USER SYMBOLS

3109

1369

1446

2831

3203

2639

2688

2006

2280

1095

3175
2894

2726

2759

2764

117

LREY

1145

14414

3276
2905

3343
2976

3498
2992

3690
3004

2954

2961

3106

3137

2590

1631

1712

1773

1038

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

N 11
MACY11 30A(1052)
17-DEC-79 13:08 PAGE 3-1
CROSS REFERENCE TABLE == USER SYMBOLS

CLNCOD 015664 G
CLRBYT 002304
CLRPAR 024612
CNT
= 000012
CNTYPE 037434
COMPOP= 007777
CONHNG= 000004
CONTIN 014474

26474
3843
38694
2586

COSTAT= 000040
COUNT
003152
CRDYMS= 000200
CSNAM
006116
CSR
= 000000
CSRMSG 037350
CURCYL 003104
CYLPER 007044
CYLTBL 002604
CYLUP = 000004

SEQ 0143

1277

1286+

2696

2735

1000

1312

1363

1386

1462

1483

2288

2294

1691

2221«

2606

2643

3625

3709

3784

3134

3360

3436

3476

3514

3585

- 2641
3845

2921

3126

3631

3713

2641
3469

3051

3787

1392

1449
1360

CS$ERHR= 000056

CSERRO= 000060
CSERSF= 000054
CSERSO= 000057
CSESCA= 000010
CSESEG= 000005
CSESUB= 000003
CSETST= 000001

CSEXIT= 000032

C$GETB= 000026
($GETW= 000027

1448

2020
2738
2884
3265
3526
3821

3760
3417

3824
34N

2867
3217
3406

2872
3239
3430

2729

2761

2778

2956

2979

SEQ 0144

3013

3030

3130

3166

2566

2579

2595

1445

1446

1447
3083

8 12
17-DEC-79 13:08 PAGE 3-2
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

1216

1235

1239

1242

2801
3185

2824
3318

2835
3389

2857
3543

2882
3751

2894

1775
1950
3566

2603
1952+
3568+

2283
3599

2603
3608

2606
3610+

2643
3651

1719

1780

2603

3412

3414+

3815

goos

1474+

1522+

1538+

3448+

64
*

003006

1562

1640

DRDYMS= 000001

1571

1916

DLYCNT

DONE

003142

2976

3329
3681+

3465+

1573+
3004
3466+

1918+
3106+
3468+

2179«
3137«
3543+

1728+

1735

1787+

1792

2016

2024

2166

2177

—

329+
3679

2182

DESSEC 003114
DESSGN 003110
DIAGMC= 000000
DIFAUG 003076
DIFWD
010060
DIRBIT= 000004
DIRMSK 002314
DLTERR= 010000

1349
3137

1707

—d

CSTPRI= 000013
cioMs
011252
C5SEC
011313
C500Ms 011263
DANAM
006130
DATACM= 000001
DCKERR= 004000
DCLIM = 000012
DCLIMW 014220
DESDIF 003106
DESHD
003112

1292

—

CSSPRI= 000041
C$SVEC= 000037

3695

—

3045
3503

—

LRTTTTTTE/ERY

CSPNTS= 000016
CSPNTX= 000015
C$QI0 = 000377
CSRDBU= 000007
CSREFG= 000047
CSRESE= 000033
CSREVI= 000003
CSRFLA= 000021

CSPNTF= 000017

CSPNTB= 000014

1146

o
—d —d 4

)

CSGMAN= 000043

By Spererererere O

CZRLIBO RLO1/02 DRIVE_TE
12-DEC~79
CZRLIB.MAC

1472%

2901

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

3301

ERLIM = 000010

ERLIMQ
ERL IMW
ERRCNT
ERRPCI

012646
013546

013616
013712
000004

OO0

oo
do

ERRSWI

012576

25 &
~N

3314

3370

3385

2582

3103

3441

1252+
2868
1369

3222
1446

2639

SEQ 0145

3524

3539

2688

2726

2759

2764

2954

(211212l

003012

ERHEAD

DRVCNT 003074
DRVERR= 040000
DRVNAM 006051
DSESTA= 000400
DSMSK = 001400
DSPCOD 014222

WU"‘\\) wno
&»H

037426

DRMSG

c 12
17-DEC=79 13:08 ~PAGE 3-3
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

2687+
3252+

2806+
3506+

2839+
3624+

2847+
3698«

2874+
3776+

2907+«

2948+

3033«

1445
1227
922+

2188+
965+

1085+

1099+

1121=

1137%

1227+

1248+

1599«
1925+

1669+
1993+

1751

2057
3008+

1753

2059
3022+

1767+
2163+
3054+

1801+
2189+
3162+

1807
2195
3759+

2228

2307

1745+
2044«
2321

1349
1579
3664

1396
1800

2301

3149

3618

2742

3216
2020
1744

3748

3407
2808
3372
2815

3603
3206

3333

3405

3559

2854

2866

2871

2910

3320

3392

2187
2845

3238
2896

3325
2982

3396
2994

3551
3006

3196

331

3011

3027

30664

2726

2631

2759

2764

2954

2961

1367

2639

3432

2943

3083

3112

3164

3180

3281

3348

3433

3434

3482

1446

&—‘Na NN

1369

wrwu N — =

1357

1447

W
~

1371

FSCLEA= 000007
FSOU = 000016
FSEND = 000041

1356

000100
010111
002000
000400
000015
000020
000040

2599

FOLWRT=
FRMWD
FWDSKO=
FWDSKS=
F$AU =
FSAUTO=
F$BGN =

1142

011530
011600
011632

011466

SEQ 0146

~N & —00
Woo
O W
—NNO
O

FMT7
FMT8
FMT9

FMT6

8354
8364

13:08

3
Sgyrnau
SRESH

011717
011751
012005
012016
012040
012072
011427
012127
012157
012202
012236
012252
012257
012267
012313
012332
011432
011435
011446

17-DEC-79

NO
O NWNN

FMT14
FMT15
FMT16
FMT17
FMT18
FMT19
FMT2
FMT20
FMT21
FMT22
FMT23
FMT24
FMT25
FMT26
FMT27
FMT28
FMT3
FMT4
FMTS

D 12
PAGE 3-4
CROSS REFERENCE TABLE == USER SYMBOLS

MACY11 30A(1052)

NNNNNNNDN)
— —

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
EC=79 14:02

FSMOD = 000000

-0

F$MSG = 000011

vn e

F$INIT=
000006
FSJMP = 000050

3R SN

000004

= 000013

FSPROT= 000021
FSPWR = 000017
FSRPT = 000012
FS$SEG = 000003
F$SOF
T= 000005
F$SRV = 000010
F$SUB = 000002

1425

002310

016574
016534

GSTER1
GTSTAT=
GSCNTO=
GSDELM=

006462
000104
000200
000372

GSDISP= 000003
GSEXCP= 000400
GSHILI= 000002
GSLOLI= 000001
GSNO = 000000
GSOFFS= 000400
GS$OFSI= 000376

GSPRMA= 000001

1147

1150
3837

977

979

3474

3476

3489

3436
3824

2744
3274
3772

2931
3417

3018
3422

3021
3491

3496

3067

3071
3571

3170
3576

3139

3441

3368

N —

1582

1903

2022

2164

2175

3152

3299

3306

2792
3052

2818
3186

2841

2850

2859

2876

2888

2899

2755

2950

3291

3362

3478

3516

3587

3633

3701

3101

3138
1561

1573

1581

1734

1796

1907

1918

3048

3063

3130

3166

3048
3882
3048
3882

3063

3130

3166

3130

3166

1391

erefefrrrre

GSTATG
GSTATR

E ¥R

016550

W
H

GSTATC

2679

3411
3787

- N
oo

017656
02266%

2872
3239
3430

3360
3760

[alalalaTA)

GDRSTA
GETPOS

2867
3217
3406

3056
3631

—_—

F$SW = 000014
FSTEST= 000001

GBND

SEQ 0147

8 &= LUBNoo®

FSHARD=

F$HW

E 12
17-DEC=79 13:08 PAGE 3-5
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS
= N

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC~79 14:02
CZRLIB.MAC

2775

1522

3143

3467

3884

GSRADA=
GSRADB=
GSRADD =
GSRADL=

000140
000000
000040
0001<0

000002
000000

F 12
MACY11 30A(1052)
17-DEC-79 13:08 PAGE 3-6
CROSS REFERENCE TABLE == USER SYMBOLS

- 3849

2778
3880

3843

SEQ 0148

2956
3882

2979

3013

3030

3048

3063

3130

3166

2956
3882

2979

3013

3030

3048

3063

3130

3166

3851

3853

3878

3880

3882

3884

1701

3724

3798

HAMES2 007213
HCESTA= 040000

N = - -

N=-N)

—

HCRCER= 004000

NP S ghg QQ‘Q!?

NWW
=
—lf\)—l

GSPRMD=
GSPRML=

ceeefrreeFee S

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC~79 14:0
CZRLIB.MAC

2285
2641
2215

3456

3459

3611

3614

3615

1280%

1290

1675

1677

1679

2852

3199

2144

3212

3261

1062

2275

3645

3183
107

3252

439

HDWRD3 003056
HEAD = 000006
HEADLM= 010000

HICYL = 020000
HILIM = 000004
HILIMJ 014212

IER

INITCO

037266
024642

HRDPRM
HRDWTS

014166

014272
INITST 006513
INOUTS= 000020
INTEBL= 000100
INTHLR 016056
ISR
= 000100
IXE
= 004000
ISAU = 000041
I$AUTO= 000041

[(alala)

HPTCOD

754

HLMTW
002302
HNFERR= 010000
HOE
= 100000
HOSTAT= 000020

—

014214

—2

HEADW

4an

14104

13474

13744

G 12

CZRLIBO RLO1/02 DRIVE _TEST 1

ISPROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041
I$SETU=
ISSFT =
I$SRV =
I$SUB =

LTS
LL
—

L R

—

O
NO,

eeeeeLe

ISMSG = 000041

000041
000041
000041
000041
000041

ISCLN =
ISOU =
ISHRD =
ISINIT=
ISMOD =

12-DEC~79 14:02

CZRLIB.MAC

17-DEC=79
13:08 PAGE 3-7
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

1381#
13994
38554

13974
14014

11994
164
11774

13324

10964
118%#

10984

38754
9074

11794

39004
9194

000041
000041
000041
000041

L8
11864

9214

JJJ
002300
JSJMP = 000167
LAB
014446
LAB1
006142
LAB2
006155

1744
11984

9334

2204
13344

14034

14374

8504

859
26574

26794

38374

38404

9624

964#

9774

9794

1082#

6314

11204

11324

1133#

9474

9494
11464

2748
3436

2931
3476

2947
3496

3021
3514

3051
3576

14254

9354

6234
13804

11184

14234

I$TST = 000041

1429%

11474

11504

11594

14314

2748
31634
34364
35854

2931
3173
34748
3602

29478
3251
34768
36074

2983
3274
3489
3623

27204
2872
3134
3304
3476
3697

2744k
2885
31704
3312
34914
3713

27488
2897
31734
3321
34964
3761

2753
29274
3182
3326
3505
37724

139

1477

1522

1538

184

§SEEEEETE

LCLEXT 032370
LOCERR 003362
LOCYL = 040000
LOE
= 040000 G
LOLIM = 000002
LOLIMW 014210
LOT
= 000010 G
LPTO5
030772
LSACP
002110 G
LSAPT
002036 G
LSAUT
002070 G
LSAUTO 015326 G
LSCCP
002106 G
LSCLEA 015664 G
L$CO
002032 G
LSDEPO 002011 G
LSDESC 002122 G
LSDESP 002076 G
LSDEVP 002060 G
LSDISP 014224 G
LSDLY
002116 G

SEQ 0149

254
11814
999

1318

1561

1573

1581

1734

1796

1907

O—
-

2013
13994

RTITLR R eI

2179

2775

3143

1249
2642
1558+«
2279«
3440%
1559
3441+
1996

3089

3092

3447

3467

274

38414

e R R

TR R ITT

2170

SEQ 0150

11514
11994

3902#

39054

e T

e R

002040 G
002034
016052
002072
002212
002052
002044
002102
002046
002064
002066
037270
002120
002016
002022
014170
002104
014272

H 12
MACY11 30A(1052)
17-DEC-79
13:08 PAGE 3-8
CROSS REFERENCE TABLE == USER SYMBOLS

LSDTP
LSDTYP
LSDU
LSOUT
LSOVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXPS
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP
LSHW
LSICP
LSINIT

CZRLIBO RLO1/02 DRIVE TESY
CZRLIB.MAC
12-DEC=79 14:

118%#

L.DA

003040

L.MP
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011

003042
012410
012456
012524
012574
012644
013544
013614
013710
013754
014164

4334
3104
4340
9194
9334
%74
9624
9774
10824
10964
11184
11324
11464

1551~
?139'
547

1553«
3140
1622

»
»

W
Hr

WN
O 0o

1220
2287
1557+«

1213
2281~
1556

Q_I.HN

W
o

[ L

8
8

—

e e

38764

1560

2280+
3443
1566
3442
2642

1602

2292
3460%
1626
3456+

1629+

2568
3461+
1634
3459+

1631+

2642
3463
2282«
3462

1632«

1636

1644

1709

1770

3101«

3102«

3105

3135«

3136

2285«

2286

2582

2642

3103«

CZRLIBO RLO1/02 DRIVE TE
12-DEC-79
CZRLIB.MAC

L10012
L10013
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024

014204

027512
030606
030504
031212
031120
032370
032314
033066
033154
033622

I 12

17-DEC=79
13:08 PAGE 3-9
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ@ 0151

11584
11764

2798

2809

2816

2827

31634
3207

3217

3239

32464

3312

3321

3326

3334

3393

3397

3406

34114

3547

3552

3560

35654

2909

3190

2838

2846

2855

2867

2872

2885

3313

3366

3384

3520

3538

30104

33384

37724

2812

1786

3205
3456

2737
2622

2172
4

3297

2897

CZRLIBO RLO1/02 DRIVE _TEST 1
CZRLIB.MAC
MDRVST
MDSERR
MERRS
MEXERS

MFLERR
MFMTER
MFOLWR
MFWDSK
MFWSKO

MGTSTA
MHCERR

010526
010511
011144
011104
010672
005771
005517
005574
005627
005313

MHCRC
MHDERR
MHDRCP

12-DEC-79 14:02

MACY11
1089
7804
1020
1445
7894

J 12
30A(1052)
17-DEC=79 13:08 PAGE 3-10
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0152

3156

6484
6504
6514

6374

7854
1022
7884

6394

1028

MHF CRC
MHNF

MHOSTA
MHSTA
MINOUT
MISTST
MISWI = 000000
MISWIW

MITEST=
MNDRST
MNEERR
MNOCLR
MNOINT
MOPER
MOPERR
MORECE
MOUTIN

1140

2807

011070

3327

3399

3553

2810

2847

2907

1288

1941

1948

2685

2723

2751

2934

1068«

1073

1076

1135

1143«

1497

3642+

2618

3597

3025

3074

3208

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC
M4OHDR
NEWCYL

005362
003102

243

L454m
1961
1144

NOCLR = 000010

NOCTLR
NOERCT

MACY11
6404
1112
1962+

6914
5144

006730
003363

K 12
30A(1052)
17-DEC-79
13:08 PAGE 3-11
CROSS REFERENCE TABLE == USER SYMBOLS
1675
3285

1677%
3352

980

1496

NOPWR
NOTRDY
NOTST

SEQ 0153

1678
3507

1679
3578

1682+
3710

3783

1686

1688«

1689

1690+

1692

1701

2943

3080

3083

3177

3180

3278

3281

3345

3348

2729
2980
3129+

2730
3012+
3130

2760+
3013
313

2761
3014
3165+

2762
3029+
3166

2777
3030
3167

2778
3031
3483+

2601

NSTACH
NXMERR=

2948

OBUFF

2691
2978«
3063

2728«
2979
3064

2603

3785

2274%

2567x

2572%

2575%

2578+

2586

2588

2596

2956

3013

3030

3048

3063

3130

3166

3484

2764

2954

2961

3011

3027

NXTHL
NXTPAS

OLDCYL
ONSWAP
OPFLAG

OPIERR= 002000
OPMSGS

OPROO3
OPR1

2961

003150
014522

1243

729
1183

3128

ON—— -2
O N OO & £ 00
£ 000000

12474

3061

8d—l —_—
?\l
VRO
G000

PASCNT
PASNEW

S
SSee PRTRLRLE

PART2 = tanxanw

3011

772

1815

810

1966

1180

2064

1758

2327

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02
PASNUM
PATTBL
PAT1
PAT10
PAT?
PAT3
PATS
PATS
PAT6

PAT?7

PAT8
PAT9
PNT

003356
002360
004762
005236
004764
005024
005064
005124
005132

S11#
274K
274
283
275
276
277
278
279

1221«

005174
005234
= 001000 G

281
282
S1#

6024
6194

005172

POSHDO 022276
POSHSB 022272
POSHW1
022264
PRI
= 002000
PRIOR = 000004
PRIOO = 000000
PRIO1 = 000040
PRIO2 = 000100
PRIO3 = 000140
PRIO4 = 000200
PRIOS = 000240

PRIO6 = 000300
PRIO7 = 000340
PSETNM 003360
PWCON
PWRFLG
P2TO1E
P2TO2E

RDALHD
RDDATA=
RDHEAD=
RDNOHR=
RDYCHK
RDYWAI

014772
003366
006643
006643

023014
000114
000110
000116
021136
022322
READRL 016272
RELDWT= 040000
RESE3
011157
RESE4
011163
RESE5S
011170
RESE6
011175
RESPAR 003062
RESTAR 014464

RESTBL 002320
REVSKO= 001000
REVSKS= 000200
RLBA = 000002
RLBAS
003026
RLCS

L 12

MACY11 30A(1052)
17-DEC=79 13:08 PAGE 3-12
CROSS REFERENCE TABLE == USER SYMBOLS

= 000000

RLCSR = 000000
RLDA = 000004
RLDRV
003032

G
G
G
G
G
G
G
G
G

1247+«

1301

2683

2721

3328

3357

3400

3554

1250
1278
1258

1251%
12884
- 1260«

1254
1308

1892#
3638
1485
1568
1140
1140

2001
3757
1490

2290
3809
2298

1142
1142

2627
2628

2648

2653

1732«
1255
2764
1000
1733«
1462
1455
1139

1790«
1293
2919
1313«
1791~
1560
1559«
13N

SEQ 0154

2749

2932

3023

3072

1325

1360

1372

1448

3088

1393

1395«

2287+
1352
2961
1353
2292+
2012+
1731+
1357

1357
3011
1364
2294
3136
1789
1362

1369
3027
1365
2922+
3142+
2010+
1369

1418
3098
1386
923
43%
2286
1388

1446
3432
1388+
3105«
3463+
3104*
1446

3210

3259

3425

2276

2639

2688

1389
3127«

1483
3159«

1520

3140+
1556

3442+
1629

3462+
17N

5274
6214
5284
5454
5624
5794
5834

280

6004

2141
21424
21404
S1#
Sé#
S1#
S#
Sia
S1#

21434
3293
3598
3853

S14
S1a

S1#
S#
5124

1214
S164
6884
6894

22634
854
834
864
1726
21544
14534
1054
8014
8024
8054
8064
4458
1217

2554
1004
98#
1174
4274
2726
1164
1571
1228
1184
L2

1228+
1240
1213«
3698
3776
3640

2007
1768
3592
1464
1534
1067
1067
2631
1076
2616
12344

1047
107
107
1454
1139
2759
998«
1638
1453
995+
997

2011«
1322
2954
1315
2288
1636+
1634+
1322

RPTREM

1004

2639
3045
2038

2688
3059+«
2039

023362

024356

RPTRES 024150
RSTRT
014402
SAMSK = 000077

SBSFIL 003372
SECWD
010077
SEEK = 000106
SEEKOP= 010000
SELQ
037500

2726
3116
2277

2759
3128

2920
3427

987
1050
1048

1087
1093
1092

—

RPTOP

2005
3038

SEQ 0155

oo
CO\OW

RLMP = 000006
RLVEC
003030
RORWOP= 020000

M 12
MACY11 30A(1052)
17-DEC-79 13:08 PAGE 3-13
CROSS REFERENCE TABLE == USER SYMBOLS

b
b
b

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC

2954
3431

2961
3432

1138

25574

26394
26134

3027
3460

1893
2268+

2314*

3461
2601

3518

3589

1514%
2052+

2155

2159+

2190*

1664+

1762+

1763«

1607+

3635

1661

1665

1746%

2206

1760

2210+

1764

2222+

1803«

2264

NRETE AN

ON=0

N -

PONONININON)
—b b b b b
OO
~NOWNOW ~ W) —
>
NOSHONNOWW
-W

2641

WW
-

2627

NON ==
OO
=0
SWJ\
WO

N=Noo~N

) = = e d d e d
= 00WNINWNIN)
=

23R

NON = NS W
H0

PONININD)
= = —d b e d

—=O

SVCBGL= 000001
SvCGBL= 000000

1988+

2562

WVINWNIN
=0

STATE3 011212
STATES 011222
STOSTA= 010000
SUBSTK 002404

STAMES 010155
STAMSK= 000007
STATE2 011202

SVCINS= 000000

3011
3439

1897«

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC

N 12
MACY11 30A(1052)
17-DEC=79 13:08 PAGE 3-14
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0156

3164

3
3

SvCsus= 000001
SVCTAG= 000000

SVCTST= 000001
SWAPHD

021516

S$LSYM= 010000

11764

35714
TBLSTR
8T
TCERR
TEMPO
TEMP1
TEMP2

003024
002544
010242
003116
003120
003122

TEMP3
TEMPG

003124
003126

TEMPS
TEMP6
TEMP7
TEMP8
TOSLOW=
TRPFLG
TRPHAN
TSTINT

003130
003132
003134
003136
000001
003364
016124
016516

TSTLAB
TST4
TYPDR =
T$SARGC=

006363
027612
000006
000002

3059

3762+

3777«

3708«

3739

3796+

3804~

1005+
1502+

1544

1600

1981+

2045

3034

3087

3184

3253

3290

13224
664

30834
T$CODE= 004052
TSERRN= 000311

30634
3884 2
19234
27114

3361

13244

3437

3477

13574

25794
26884
31124

2759
31644

31304

34844

20204
27384

20354
27844

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02

TSEXCP= 000000
TSFLAG= 000040

TSGMAN= 000000
TSHILI= 000377
TSLAST= 000001
TSLOLI= 000000

TSLSYM= 010000

TSLTNO= 000020

TSNEST= 177777

TSNSO = 000000
TSNS1 = 000005

7974
#
3204
35514

TSTAGL= 177777
TSTAGN= 010061

TSTEMP= 000000

8084

33
614

8154
1494
3354
1L

0;60
1574
728
3

8374
1964
3824
8#

28454
506’

254
S5

8164

8384

3734
36974

33834
3761

33934
38254

33974

977
1425

1082
1431

1096
2715

1118
2744

92N
584

054
7484

8714
32384
34074
37554

ig&l
654
35264
38214

8554

28674

22N

§91
33114

28724

28854

28974

34304

35054

3527

1132
2927

1146
3010

3491

1158
3018

3565

3571

07
10964
1162¢
1
26578
30514
33414
35714
37754

@ N®
10984
11764
13814
26794
30564

9214
11184
1177
1397#
”
3067#
34114
35854
o

11504
1403
38754

1159
14104
3900

1176

11994

27984

33120
3536#

33214
S47H

3264
35528

33344
35604

33504
36024

38474
39024
38474

3B4S4

38534

3884#

3849

38534

3884N

3067
3607

3163

3170
3678

3246

3268
3760

3772

341
3824

3417
3836

3474
3855

-4
9334
11204
11794
13994
27154
30714
36178
36074
38364
16#
1177
14234

164
9354
11324
11864
146014
27204
31344
34208
36204
38374
23
1179
1425

234
%74
11334
11894
14034
744N
1634
3436M
36234
38404
“on
1186
1429

4N
N
11464
11934
14104
2748
31704
34748
36314
38414
174
1189%
1431

1744
628
11474
11984
14194
27h
1734
3476
784
38554
2204
1193
164378

2204
964N
11504
11994
14238
314
324684
348
36844
38714
623
1198»
2657

6234
977F
11514
13324
14254
g%?#
32514
34918
78
38754
6314
1334
26794

6314
9794
1158¢
13344
14298
30104
32684
34
37134
3876w
850
13474

BSOF
10824
11594
13474
14318
30184
32744
35144
37608
8594
1374
o4

BS54
10844
11614
13764
1437H
30214
33384
35654
37724
39004
1147
13804
3871

1096

1098#

1118

11204

1132

1133

1146

11514

1158

1162

3067

30714

3170

31734

32514

3268

29474
3565
-

3010
3585

30514
3607

3056
36314

3134
3678

Y
4
8

26824

2720

274BN

37754

3787

9214
13474

9354
13814

29364

8
38454
8
38454

1332

39024

074

33414
Y
s
1189

919
1374

919

1397

3571

9074
11994

933
1397

9214

1399

35764

34224

30214
35144
234

30514
35764
1744

30714
35854

27854
29364
30764

27984
29564
31304

28094
29794
31504

16464
16014

11474
14034

11584
14194

s34

2854N
g‘l“

w
27854

3496#

T$SPTNU= 000000
T$SAVL= 177777
TSSEGL= 177777
TS$SUBN= 000001

8034

SEQ@ 0157

38454
27534

13814

T$NS2 = 000002

8 13

MACY11 30A(1052)
17-DEC=79 13:08 PAGE 3-15
CROSS REFERENCE TABLE == USER SYMBOLS

764

947
1401

933

150#

962
1419

9354

1584

947

1401

2682

2715

3620

36234

3684

o ad

1974

2078

7208

2744

27484

36874

3772

37754

3163
3713»

3760

3411
37878

3824

29314

2947H

30214

30514

964N
14104

9794
14234

3246

34764

31344
36234
8504

31734
36314
9194

28164
834
1584

28274

11594
14254

1824

11764
14318

1634

34964

32514
36874
9334

11774
26578

28384
104
31664

3514

3274w

3489
3886

977

2927

33414

394

35764
37874

1176
56

11614
1419

1082

1084#

2931#

3018

3021#

38414

3855

38764

346228

1332

349

3474

34764

3489

35144

30714

31344

31734

32514

3274

10844
14294

1
222‘2):

11204
7208

11334
27488

11514
29318

11624
2947

11864
2715

11934
2729M

13324
2744

13344
27538

3576

3274
37134
947

33414
37754
962

58460
134
31704

28554
§01 8¢
1824

11814
26904

3338

32174

35354

35854

3
37874
9774

%8670
30304
31974

36234

228
3841N
1082¢

28724
30484
32074

36314

34364
38764
10964

28854
30564
32178

36874

34768

1118¢

13744
2761

28974
30634
32394

3713

34964

11324

13974
27784

2927
30674
3246w

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02

TSTEST= 000020
TSTSTM= 177777

32684
06
S60#
3825:

32834
114
S65#4
gggzz

ggggl

g;;}z
84

1132
1256
1359
1401
1800
2562
2642

2744

2857
2916
3056
3149
3197
3303
3348

T$SAUT= 010016
TSSCLE= 010017
T$SDU = 010020

3757
919

1139
1291
1360
1443
1912
2566
2643

2753
2815
2927
2995
1
3150
3206
3304
3350
3407

3044
174
5714
38374

33124
304
gz
3

33214
744
1L
S

3264
84
204
38474

7204

;Z‘Gl

314

g947

39820
93

1140
1292
1367
1445
1923
2

2759
2816
2867
2936
3151
3207
331

3547

3551

3411
3489
3552

3755

3760

3761

T$TSTS= 000001

c13

MACY11 30A(1052)
17-DEC=79 13:08 PAGE 3-16
CROSS REFERENCE TABLE == USER SYMBOLS

B¥

35764

13474
13814
1399%

26824

36234

1374
1397
1401
3855
1158
1332

3631

947

1142
1298
1369
1446
2020
2595
90

2761
2824
2871
2943
006
7
3157
3216
3312
3372
3417
3491
3559
3772

962

1146
1321
1371
1447
2031
2599
2699

2764
2826
2872

21¥

3051

30714

3585

36234

1053

1067

977

1020

1206
1325
1374
1542
2173
2618
2711

121
1326
1383
1579
2183
2627
2715

33934
35478
37724
38

33974
35524

3134

N73¢

32514

3274H

1076

1082

1096

1118

1216
1332
1385
1592
2187

2726

3787

3790

3821

3824

3825

3836

947

%94

962

3664

29314

9214

933

9354

3320

3678

30214

30714

3695

31734

2797
2838
2894
2976
3027
3112
3170
3246
3326
3392
3436
3527
3585

33834
35364
37614
38714

3432
3505
3561

3010
3076
3158
3217
3318
3373
3430
3503
3560

2778
2827
2882
2954
3011
3
3163

1205
1324
1373
1449
2043
2606
2707

35764

33734
55270
7
38554

2785
2837
2885
2961
3018
3106
31
3239
3325
3389
34
3526
357

27484

37754

38514

33504
35054
36974
38534

514

33384
914

2784
2835
2884
2956
3013
3095
3164
3238
3321
3383
3433
3514
3565

27204

36878

33344
8o
784
38494

24964

1202
1322
1372
1448
2035
260
2703

SEQ@ 0158

2845
2979

3631

3687¢

3824m
38804
3713

1235
1349
1392
1598
2301
2631
2729

1239
1356
1396
1739
306
2639
2738

1242
1357
1397
1744
2561
2641
2742

2897

2854
2905
2983

2855
2910

2801

5
3130
3182

3051
3137
3196
3283
3338
3405
3476
3546
3607

3128
1
3265
3333
3393
3449
3535

3334
3396
3469
3536

3134
3185
3281
3335
3397
3474
3543

3713

3716

3748

3751

3274m

3341

34228

34964

9644

977

9794

1082

10844

3697

32514

TSSHAR= 010057
TSSHW = 010012
TSSINI= 010015

38414
11514
1199

TSSPRO= 010014

1096
1184

1098

1118

11204

1132

11334

14104
29474
3393
3560

1419
83

14234
2995

1425
3010

14294
30514

1431
3056

3474
36314

31344
34764
3678

3150
3489
3713

3158
35144
3760

3163
3527
37878

33604
3536
3824

3373
3547

3383
3552

2753

2785

2798

2809

2816

2827

2838

2846

T$SMSG= 010011

T$$SOF= 010060

T$SSRV= 010023
T$$SUB= 010056

T$$SW = 010013
T$STES= 010055

T.BA
T.CS

003046
003044

074

38764

9219

11624
26824

1176
2715

35854

3411
3602

2720

2744

2748¢

4364
4354
1905

1414+
991
1916

1454+
1010
1921

2643
1054
2016

2024

2855
3170
3312
3571

3397
3565

2867
31734
3321
35764

2872
3182
3326
3620

2885
3197
3334
36234

3436x
3607

2897
3207
3338
1056

2927
3217
33414
3687#
1413«

2033

1146

314
239
3350

1453«

2166

2936
3246
3417
3761
1468

2177

3018
32514
3422
3772
1526

2185

30214
3268
3430
37754
1536

2304

3067
32744
34N
3825

1584

2643

30714
3283
34964
3836
1590

2868

3076
3304
3505

1742

2901

CZRLIBO RLO1/02 DRIVE_TE
12-DEC-79
CZRLIB.MAC

T.DA

T.DRIV

003050

002276

003052

T.STAT

003060

TOSERR
TO9ERR
T
110
T10ERR
7110.1
T1048
T
T11.1
T11.2
T1158
112
T12ERR
2.1
11248
713
T13ERR
T13.1
T1348
T14
T14ERR
T14.1
115
T15.1
T1538
T16
T16ERR
T16.1
11728
117658

006526
006541
024642 G
033624 G
006551
033734
033734
034314 G
034472
034764
034764
035066 G
006571
035172
035172
035552 G

006617
036014
036252 G
036420
036014
036774 G
006633
037050
036420
036772

11878
12
T25TBL
125TB2
13
T33TBL

037050
025122 G
0024
002456
025330 6
2504

118658

13658

T4
T4.1
T465%
T5
15.1
75048
T6
16.1
T7

D 13
MACY11 30A(1052)
17-DEC-79 13:08 PAGE 3-17
CROSS REFERENCE TABLE == USER SYMBOLS
3314

3323

3370

1455+
1268
1416+
2739

3703
1564
2831

3726

3734

2852

1564+
2969

2708
3309

2851

3109

3188

1415+
1266*
1008

2735

SEQ 0159

3301

3222

3385

3394

3524

3539

2861

2142
3154

2643
3198

2696
3261

2700
3457

2757
3380

2771
3533

2782
3746

27%
3753

2843

2878

2860

2877

2889

2900

29264

035576
035576
035772 G

037264

027512

027514 G
027610
030476
030610 G
031102
031134
031214
031740
032372 6

2966
30214

30604
30714
31734

2793

2819

2830

2987

2999

3008#

2842

E 13

(]

CZRLIBO RLO1/02 DRI
12-DE
CZRLIB.MAC

13:08 PAGE 3-18
17-DEC=79
MACY11 30A(1052)
CROSS REFERENCE TABLE == USER SYMBOLS

18
033070 G
9
033156 G
UAM
000 200 G
ULOAD = 000010
UNDTST 010030
UNXERR 006346
VCNRST 006325
VCSTAT= 001000

2861

3218

WAITIN

016324

1650

1737

1798

2041

WRTSWI
WTDATA=
XRDHD
XRDHDC
XRDHDG

003022
000112
021612
021602
021616

2739

3226

3457

3480

XSEEKT
XSEEK1

020026
020042

5104
1561
2798
2995
3321
3527

5214
1573
2809
3076
3326
3536

5224

VECMSG 037364
VECT = 000002

WCMSK = 017777

XSEEK

220036

X$TRUE= 000020
.
= 037656

2299

SEQ 0160

3146

3806

3264
1522

2775

3304
3467

3274
8

524

5254

1796

2838
3158
3373
3560

8524
1907
2846
3182
3383
3602

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC
BCOMPL
BGNAUT
BGNCLN
BGNDU
BGNHRD

1207
1347
1381
1399
3841

BGNINI

1199

BNCOMP
BREAK
CLOCK
CLRVEC

3775
1203
3449

DESCRI
DEVTYP
DISPAT
DOCLN
DODU
ENDAUT
ENDCLN
ENDDU
ENDHRD

25
27
1181
1326
1325
1374
1397
1401
3855

ENDINI
ENDMOD
ENDMSG
ENDPRO
ENDSFT
ENDSRV
ENDSUB

1332
23
919
1193
3886
1419
3010

EQUALS
ERRHRD

ESCAPE
EXIT
GMANIL
GPHARD
GPRMA
GPRMD

1257

1444

220

631

859
964

1150
979

2775

3051

3134

3360

3436

3476

3631

3787

2720

2748

2931

3021

3071

3274

3422

3496

3576

3623

3687

1212

1217

1299

3096

3717

1392
1318
3143

1396
1391

1522

1538

1561

1907

1918

2013

2170

2179

1372

1448

2657

3837

3871

1423

3469

1449
1360

935

1429

3447

949

3467

1581

1437

921

16
907
1189
3876
1410
2947
1162
2682

DELAY

ENDSW
ENDTST

1243

1151

1202
1373
999

ENDHW

1240

SEQ 0161

O
(=1
)

BGNPRO
BGNSFT
BGNSRV
BGNSUB
BGNSW
BGNTST

1236

BGNMOD
BGNMSG

F13

30A(1052)
17-DEC-79
13:08 PAGE 4
CROSS REFERENCE TABLE == MACRO NAMES

—

BGNHW

MACY11

1734

1796

2679

3840

3875

1158

1176
2715
3836
51
1542
2187
2837
3216
3407
3761
2753
2995
3350
2690
1256
3845
3849

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC-79 14:02
CZRLIB.MAC
GPRML

HEADER
INLOOP
LASTAD

MANUAL

MSBYTE
MSCHEC

27294
3880

27614
3882

3716

3790

G 13

MACY11 30A(1052)

17-DEC=79
13:08 PAGE 4-1
CROSS REFERENCE TABLE == MACRO NAMES

27784

29564

29794

30134

30304

30484

SEQ 0162

30634

31304

31664

34844

1298

MSCNTO
MSCOUN

MSDATA
MS$DECR

MSDEFA
MSENDE

MSERRI

MSESCA

MSESCS
MSEXCP
MSEXIT

MS$E XSE
MSEXTJ
M$GEN

37484

28974
33214
35604
28974
33214
35604
28974
§321l
9354

11464

13804
27154
30214
32514
34964
37724
M$GENB

34844

3843

3851

CZRLIBO RLO1/02 DRIVE_TEST 1
12-DEC=79 14:02
CZRLIB.MAC
MSGETS

234
11584

26578
34740
38714

1744
1159#

27154
34894
38864

6234

11764

2744K

H13
MACY11 30A(1052)
17-DEC-79 13:08 PAGE 4-2
CROSS REFERENCE TABLE == MACRO NAMES
8504
11774
29274
35654

9334

9624

%74
13220
30564
36204

13344
30674
36784

9774

SEQ 0163
11464
14254

38374

11474
14314

34174
38554

MSGETT

27534

27854

2838#
32074
34304

28464
32174
35054

29834
33344
3697%

MSGNGB

164
10984
1399#
184
1118¢
1212
13184
13724
14458
17398
2179%
26284

1
11204
14104
254
11324
1216#
13214
13734
14460
17440
21834
26314

6314

8594
1179
38414
9774
11624
12424
13494
13964

1084#
1381#

MSGNIN

29954
33504
37614

27388
28084
28664
29438
30114
31664
32654
33354
34064
3482
35524
36644
37904

30764
33734
38254

27424
28094
2B67#
2947H
30134
31064
31704
32684
33384
34074
34
3559#
36784
37914
38804

MSGNLS

26904

27294

MSGNTA

9194
14014

9334
1415#

33384
38364

MSGNTE

2682#

MSHAPT

18#

M$INCR

37754
164
9794
11424
12354
13564
13964
15794

23014
26418
27388

34114
3855#4

27204

“on
10204
11464
1239
13574
13974
15924

23064
26424
27424

10964
12114
12994

13714

14444

CZRLIBO RLO1/02 DRIVE TE? T1
CZRLIB.MAC
12-DEC=79 14:02

MACY11

113

30A(1052)
17-DEC-79
13:08 PAGE 4-3
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0164

28084
2866

28094
2B67M

281 SK
2871k

2B164
2872

2824w
28824

28264
2BB4w

28274
28BS5H

28354
28944

28374
28964

2838
28974

2845H
29054

2846H
29104

2854w
29164

28554
29274

2857
29314

MSLDRO

1202#

12054

12114

12164

12354

12394

12424

12564

12924

13254

13604

13724

13734

13854

13924

MSMCHI
MSMCLO
M$POP

8»
8»
234

1744

6234

8504

9194

9334

%74

9624

9774

10824

10964

11184

11324

11464

1147

3489
38864

34914

35654

35714

36074

36204

36784

3684w

3760

37728

38244

38364

38374

38554

1464658

14468

347640
MSPRIN

10204

10534

10674

10764

14478

25618

25628

25664

2579

25954

25994

26034

26064

26184

26278

26284

MSPUSH

164

2204

6314

859

9074

9214

9354

%44

9644

9794

10844

10984

11204

11334

MSPUT

10204

10534

10674

10764

11394

11404

11424

12914

13214

13224

13244

13494

13564

13574

13594

MSPUTT

10204

10534

10674

10764

11394

11404

1142¢

12914

13214

13224

13244

13494

13564

1357#

}359#

MSRADI

26904

27294

27614

2778F¢

29564

29794

30134

30304

3048#

30634

31304

31664

34844

38434

38454

MSRNRO

1202#

12564

3095#

11504
14370

11514
26794

11614
26824

9794

10844

10984

11204

11334

3687&

37134

MSSETS

13714

164

;gzgz

mMSSVC

9194

17420
13228
137644

4“on

gg;g:

9334

11464
13244
13834

2204

gg;g:

%74

12024
13254
13854

6314

11624
2720

34764

9624

12054
13264
13924

11394

8594

11404

9074

1142¢

9214

13214

9354

1322¢

13244

13564

11794
27484

11894
29314

11984
2947#

11994
30214

13474
30514

13804
30714

13814
31344

9778

10204

10534

10674

10764

10824

10964

34964
12064
13324
13964

35144
12114
13494
13978

35764

12164
13564
14014

35854

12358
13574
14438

36238

12394
13594
146458

36314

12424
13604
14468

12564
13674
14478

13574

13994
31734 -

11184

12914
13694
144BR

13594

13674

13654

14104
32514

14234
3274

14294
33\#

11324

11394

11404

37754
12924
13714
14498

37878
12984
1372#
1542

38404

13214
13734
1579

CZRLIBO RLO1/02 DRIVE _TEST 1
CZRLIB.MAC
12-DEC=79 14:02
1592

2306
26428
27598
2826
2884
%3Z6#
#
31374
3312
34
3535
3603
MSTLAB

9154

26428
275
28264
29764
S
31374

33120
33824
34340
35354
MSTSTL

37554
9194
11420
13224
13744
15924

26428
2759
28264
29768
30454
31374
33124
33824
34340
35354

1598

J 13
MACY11 30A(1052)
17-DEC=79 13:08 PAGE 4-4
CROSS REFERENCE TABLE == MACRO NAMES

1739
25624
2688
2764N
28354
2894#
2982
30514
31504
3216
3320
33894

1800
2579
2699
2784
28384
28974
29924
30614
3157

35364
36074

34498
35434
3618

1744
25664
26904
27788
2837
2896
29834
30564
31514
32174
33214
3392

9334

%74

9624

9774

25614
26434
27618
2827h
28854
29
30484
31494
32074
33184
33834

25628

25664

2764LN
2B35M
2894#
29824
30514
31504
32164
33204
33894
36498
35434
36184
37614
9474

2778
2837

2579
26994
278B4A
2838
28974
29924
30614
31574
32294
33254
33934
3474M
3547
36314
37878
9774

25628

25664

7
2835
2B94N
29824
30514
31504
32164
33204
33894
34498
35434
36184

27788
2B37M
2B9GN
29838
30564
31514
321784
33214
33924
34698
35464
04

25614
26434
2761r
28274
28854
ggzg:
3149
32074
33184
33834

35364
36074
37604
9334

11464
132644
13834
15984

25614
26434
27614
28274
28B5H
2979K
30484
31494

32074
33184
33834
35364
36074

12024
13254
13854
17394

34698
3546

29838
30564
31514

32174
33214
33924
34698
35464
36204
37724
9624

12054
13264
13924
17444

3325
33934
3474M
35474
36314

12064
13324
18004

25794
26994
2784
2B3BF
28978
29928
30614
31574

3229
33254
33934
3474
3547k
36314

1912
25954
2703
278548
2845
29054
2994
30634
31584
3238
33264

1923
2599¢
2707
2797
28464
2910
29954
30674
31634
32394
3333
33974

2020

10534

7
35514
S84
37904
10204

25994
27074
2797
2B46N
29104
29954
30674
31634
32394
33334
33974
34824
35524
#
38214
10534

25954
27034
278B5H
2845
2905H
2994#
30634
31584

25
27074
27978
2B46N
2910
29954
30674
31634

3476
3551
3658
37904
10204

25954
27034
2785K
2B4SKH
29054
30634
31584

32384
33264

12114
13494
13978
19124

32384
33264
33964
34768
3551
36584

34828
3552¢

26034
2711
27984
2854
2164
30044
30764
31644
32464
33344
3405

2031

SEQ 0165
2035

2043

2173

26284
2738
28094
28674
2947H
30134
31124
31824
32834
33504
36174

26318
2742
2815
2871
2954
30184
31284
31854
3
33604
304

2187
26394
27448
28164
28724
29564
30274
31304
3196
3044
3372
34324

2301

34914
3561
36954

34114
35034
35654
36974

35054
35714
37134

10764

10824

10964

11184

11324

11394

11404

26
2715
28014
2855
29274

26184
27264
28034
28574
29
30104
30954
31704
32684
33384
34074
34914
35614
36954
38364
10824

26278

26284
27388
28094
28678
2947
30134
31124
31824
32834
33504
34174
35054
35714
3N

26314
27428
28154
28714
2954k
30184
31284
31854
33034
33604
304
35144
35854
37164

2639
2744M
2B16#
28724
29564
30274
31304
31964
33724
34324
35264
36014
3748%

26414
27534
2B24#
28824
29614
30304
31344
31974
33114
33734
34334
35274
3602#
37514

26184
2726
8034
2B57A
2936H
30104
30954
31704

26274
2729
28084

11184
12914
136
144BF
21734
26284

11324
1292¢
13714
14458
21834
26314

11394
1298¢
1372
15428
21874
2639

11404
13214
13734
1579
2301#
26414

26064
2715
28014
28554
29278
3006
30834
31664
3265
3335
34064

26184
27268
2803
285784
2936
30104
30954
31704

34894
35604
844

10674

26034
27114
27984
2B54M
29164
0044
30764
31644
32464
33344
34054
84n
35594
36784
38244
10674

3484w
3559
36784

12164
13564
16014
19234

12354
13574
14438
20204

32394
33334
33974
34824
3552¢
#

2711a
2798&
2854k
29164
30044
30764
31644
32464
3334k
34054
@
35594
36784

30834
31664

32654
33354
3406*
34894
35604
84k
38258
10764

12394
13594
14458
20314

064
2715
28014
2855
29278
30064
30834
1664
32654
33354

894
35604
3684r

33384

12424
13604
146468
20354

32684
33384
34074
34914
35614
36954

2627
2729%
2808
2866
2943K
gO11t
1064
31804
32814

28084
38

30114
31064
31804

32814
33484
34114
35034
35654
36978
10964
12564
13674
14478

2943
30114
31064
31804
32814
33484
34114
35034
35654
36978

27
2
28678
2947
30134
31124
31824
32834
33504
34174
35054
35714
371384

2183

3514
35854
3716w

27428
28154
28714
2054
30184
G128¢
31854
33034
35144
35854
37164

3526
1
3748

2744M
28164
28728
29504
30274
31304
31964
33044
33728
34324
35264
36014
37488

26414
27534
28244
28824
29614
30304
31344
3197#
3311
33734
34334
35274
36024
37514

27534
2B24n
2882«
29614
30304
31344
31974
33114
33734
334
3527#
36024
37514

CZRLIBO RLO1/02 DRIVE_TEST 1
CZRLIB.MAC
12-DEC=79 14:02
M$WORD

18#

11814

21734
2778%
2846
29824
31664
33114
33934
35514
38?20

PRINTB

1020

PRINTF

1321

2764

2916

READEF

1211

1216

3151

3185

SETPRI
SETVEC
TIMDLY
WAITMS
WAITUS

1205
1291
o

15424

K13

MACY11 30A(1052)
17-DEC-79
13:08 PAGE 4-5
CROSS REFERENCE TABLE == MACRO NAMES
15794

15924

15984

17394

1744F

18004

19234

20204

20314

20354

20434

21874
2785K
2B55H
2994H
31964
33204
33974
35594
38474

23014
27978
2BGOH
29954
31974
33214
34054
35604
3849

23064
2798¢
2B67A
30064
32064
33254
34064
35614
38514

26904
28034
28714
30134
32074
33264
34074
36014
38534

26994
2B0BH
2B72M
30304
32164
33334
34304
36024
38784

27034
28094
28B4A
30484
3217&
33344
3484x
36034
38804

27074
28154
2BBSA
30634
32294
33354
35054
36184
3882¢

2711k
28164
2B9GH
30764
3238
33504
35264
36584
38844

27294
28264
28974
31304
3239
33724
35274
3664#
3902

2738R
28274
29104
31494
32654
33734
35354
36974

27428
28374
2936
31504
32834
33824
35364
37484

1053

1067

1076

1139

1140

1142

2561

2562

2566

2579

2595

2599

2603

2606

1322

1324

1292
1349
8

1356

1357

3045

3061

3083

3112

3128

1447

2688

2726

2759

2824
3543

2835
3751

2857

2882

2894

2905

2976

2992

3004

3106

3137

2992

3004

3106

3137

3151

3185

28724
33044
35478

28BSA
33124
35524

28974
33214
35604

29364
33264
36024

29834
3334k
3697#

2961

1235

1239

1242

3318

2801
3389

1385
1383

1367

1369

1371

2824

2835

2857

2882

2894

2905

2976

1844
1964

1318
999

1391

1522

1538

28094
31584
33934

2B164
31824
33974

1573
1796

1918
1907

2179
2013

2775
2170

3389

XFER

27538
2995#
33504

27854
30764
33734

. ABS.

037656

000

3543

2798&
31504
33834

3751

,CZRLIB.LST/CRF=SVC33/ML,CZRLIB.MAC

RUN-TIME: 144 147 14 SECONDS
RUN-TIME RATIO: 596/307=1.9
CORE USED:
17k
(33 PAGES)

28274
31974
34064

28384
32074
34304

2B46H
32178
35054

28554
32394
35274

1445

3143

28678
32834
35364

1446

27614
28454
29794
31584
33044
33924
35474
38214

3027

2954

1359

27534
28384
29564
31574
33034
33834
35464
37554

3011

2943

2801

ERRORS DETECTED:

19124

21834
2784
2B54N
29834
31824
33124
33964
35524
38454

202#

3318

SEQ 0166

3164

3180

3281