Digital PDFs

AH-F118C-MC

June 1980

173 pages

Original

91MB

view download

OCR Version

123MB

view download

Document:	CZRLIC0 RL11,RLV11 RL01-02 DRIVE TST 1 JUN 1980 bw
Order Number:	AH-F118C-MC
Revision:	000
Pages:	173
Original Filename:	CZRLIC0__RL11,RLV11__RL01-02_DRIVE_TST_1__AH-F118C-MC__JUN_1980_gray.pdf

OCR Text

RL11,RLVI

RLOL1 /02
CZRLICO

DRIVME

957

AHAEEIOCORC,

e HHEN
it

SEQ 0001

IDENTIFICATION

THE

PRODUCT CODE:

AC=F119C-MC

PRODUCT NAME:

CZRLICO RLO1/02 DRIVE

DATE CREATED:

S<JAN-79

REVISED:

27-FEB-80

MAINTAINER:

DIAGNOSTIC ENGINEERING

AUTHORS :

D. DEKNIS, C. CAMPBELL

INFORMATION IN THIS

DOCUMENT

SUBJECT

TEST

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
SYSTEM,
EXCEPT AS MAY OTHERWISE BE PROVIDED IN
WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?G?gk'{ABILXTY OF

ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY

1977,1980 DIGITAL EQUIPMENT CORPORATION

;

«
B

-0

—

n—

N —

e g—

.
-

mrornorno

VS
PRN WA =

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION

SAMPLE RUN-THROUGH

(LS T

)
I
L

ERROR INFORMATION
ERROR REPORTING
SPECIFIC OPERATION MESSAGES
SPECIFIC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS
PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES

TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAMETERS
SOF TWARE PARAMETERS

—

DETAILS OF COMMANDS AND SYNTAX

N —

N NN~

W
&HfrO

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS
HARDWARE REQUIREMENTS
SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES
ASSUMPTIONS

PROGRAM ABSTRACT

CHAIN MODE OPERATION

&
H

)

CONTENTS

GENERAL INFORMATION

SN
DAN) = aa

TABLE OF

Page 2

SEQ 0002

Page 3
1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

$ata¥

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC

IS COMPATIBLE WITH BOTH XXDP+ AND ACT.

(AN

APT

(SEE 2.2 ''CHAIN

DETAILS

RUN STANDALONE UNDER XXDP+, AND CAN BE CHAINED UNDER XXDP+, ACT AND
IN ACT MODE

MODE

OPERATION''

FOR

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
SUPERVISOR

DIAGNOSTIC
IS
STARTED,
CONTROL
GOES
FIRST
TO
THE
PORTION,
WHICH
WILL ASK CERTAIN "HARD CORE'‘
QUESTIONS

ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE,
INDICATED
BY
A
PROMPT
C(CHARACTER
(DR>).
AT COMMAND MODE THE OPERATOR MAY
?figg:uglmog“ 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/RLVI11

CONTROLLERS
(4
DRIVES PER CONTROLLER).
THE ENTIRE PROGRAM IS RUN
ON THE FIRST DRIVE BEFORE STARTING ON
THE
SECOND.
THE
PROGRAM
STARTS BY
TESTING
THE
SIMPLEST
FUNCTIONS FIRST USING THE LOGIC
TESTED IN EARLIER TESTS
TO_
TEST
MORE
COMPLEX
FUNCTIONS.
THIS
PROGRAM

TESTS

THE

RL01/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

STATES.

ALL

THE

CONDITIONS

TESTS REQUIRING MANUAL

1.2

OF HEADS OUT, BRUSH HOME, AND DRIVE

THE PROGRAM CAN BE RUN IN AUTOMATIC MODE IN WHICH CASE ALL
INTERVENTION ARE BYPASSED.

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

‘'BAD

1 = 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING
SECTOR FILE®

‘'BAD

SECTOR FILE'

* KW11P CLOCK

* LINE PRINTER (OPTIONAL)

1.2.2

SOF TWARE REQUIREMENTS

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

1.3

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

1.4

(EK=RL012-UG-002)

DIAGNOSTIC HIERARCHY PREREQUISITES

THE .RL01/02 SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE

PROGRAMS
:

CVRLABO
CZRLGBO
CZRLHBO
1.9

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

ASSUMPT IONS
THE HARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM IS
ASSUMED
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR,

NGT FUNCTION PROPERLY.

2.0

FOLLOWING

OPERATING INSTRUCTIONS

TO
WORK
ETC., DO

SEQ 0004

Page 5

2.1

HOW TO RUN THIS DIAGNOSTIC

2.1.1

THE FIVE STEPS OF EXECUTION

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
%3?132.
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR
THE
XXDP+

CHMDKAO 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
22 E[T)HE
MONITOR
IS PRINTED.
THEN THE FOLLOWING TWO QUESTIONS ARE
KED:

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:

L222222222

* STEP
1 »
Li222222
d 2

THE DIAGNOSTIC WILL ISSUE THE PROMPT ‘DR>''.
FROM THIS POINT
UNTIL
THE
TIME
WHEN
YOU
RESTART
XXDP+,
YOU
WILL
BE TALKING TO THE
DIAGNOSTIC, NOT XXDP+.
WE WILL
REFER
TO
THE
PRESENCE
OF
THIS
IERGPT
’A(S»FBEING
IN
DIAGNOSTIC COMMAND MODE, AS OPPOSED TO XXDP+
AT THIS POINT YOU WILL ENTER A ''START'' COMMAND.

THIS

NOT

THE

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

(——————

s 9

Page 6

SEQ 0006
THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF

THIS OR ANY

C(OMMAND

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

THE "DR>'" LEVEL NEED TO BE TYPED.

PASS

CONSISTS

RUNNING THE FULL DIAGNOSTIC AGAINST ALL

UNITS BEING TESTED (THIS WILL BE EXPLAINED

PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE 'FLAGS'' SWITCH MAY SPECIFY ANY OF

BUT THE MAIN USEFUL ONES ARE:

PNT
LOE

HOE

IER

SHORTLY).

NUMBER

ONE

FLAGS,

PRINT NUMBER OF TEST BEING EXECUTED

LOOP ON ERROR

HALT ON ERROR

INHIBIT ERROR PRINTOUT

THE HOE FLAG IS SPECIFIED
WHY SHORTLY).

IN THE ABOVE EXAMPLE

(WE'LL

SEE

KA
A A AR AN

* STEP 2 «
L2222

22223

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:
THE NUMBER OF UNITS DEPENDS ON THE
TARGET
DEVICE
OF
THE
ODIAGNOSTIC.
FOR
EXAMPLE,
IF
THE DIAGNOSTIC IS
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF
UNITS
WOULD
BE
THE
NUMBER
OF
DRIVES
TO BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD
BE
THE
NUMBER
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.
La s 2222
s s

* STEP 3 «

L2222

2222

WHEN YOU HAVE TYPED IN THE
NUMBER
OF
UNITS
TO
BE
TESTED,
THE
DIAGNOSTIC
WILL
ASK YOU THE 'HARDWARE QUESTIONS''.
THE ANSWERS TO
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED
‘‘HARDWARE

?Eg%ES".

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

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

Page 7
THIS

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC

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.

LA222222
s 2

* STEP 4 *
L2222 22222

AFTER_YOU
ALL
THE
ASKED THE
PROGRAM,

HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
UNITS,
YOU
WILL BE ASKED '‘CHANGE SW?'‘' IF YOU WANT TO BE
SOF TWARE QUESTIONS THAT DETERMINE THE
BEHAVIOR
OF
THIS
TYPE
'Y''.
IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE

QUESTIONS, TYPE W',

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.

L2 2 222222
3

* STEP 5 «
L2282

22223

AFTER YOU HAVE ANSWERED THE SOF TWARE QUESTIONS,

THE DIAGNOSTIC WILL

THAT CAN HAPPEN NEXT, DEPENDING ON

HARDWARE

BEGIN

TO EXECUTE THE HARDWARE TEST CODE.

WHETHER

THERE ARE SEVERAL THINGS
A

ERROR

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

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY
EXECUTE
THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND
MODE (PROMPT DR>).

IF AN ERROR

ENCOUNTERED,

THEN

ONE

mggNS.

DEPENDING

HOE SET:

THE ERROR WILL BE REPORTED ON THE

THE

SETTINGS

DIAGNOSTIC WILL RETURN TO COMMAND MODE.

THREE

THINGS

THE HOE AND LOE

CONSOLE AND THE

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

THE

BLOCK

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON THE
CC)(C)E‘LSJSIF}EDAND NORMAL EXECUTION WILL RESUME AS IF NO ERRCR HAD
-

SEQ 0007

T
2.1.2

Page 8

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,

PROMPT WILL BE REISSUED

THE ERROR WILL BE REPORTED AND

(BECAUSE

THE HOE FLAG IS SET).

28{% xgl}g ARE FOUR DIFFERENT WAYS YOU
1.

2.
3.

THE

PROGRAM

ISSUE ANOTHER ''START'' COMMAND (THUS GOING THRU ALL OF STEPS

ISSUE A "RESTART'' COMMAND (SAME

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED).

ISSUE A '‘CONTINUE'' COMMAND (EXECUTION WILL

BEGINNING OF

THE PARTICULAR HARDWARE TEST

CONSIST OF A NUMBER OF THESE)

THE MOST

GET

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

HALT OCCURED.

CAN

THE

AT THIS

COMMAND
RESUME

EXCEPT
AT

THE

(MOST DIAGNOSTICS

THAT IT WAS IN WHEN THE ERROR

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.

IS TO ISSUE

THE PROCEED, BUT WITH

PROBABLY YOU WOULD WANT TO SAY:

PRO/FLAGS: IER:LQE :HOE=0

THIS WILL DO THE FOLLOWING:
1.

TURN ON THE IER

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

(INHIBIT ERROR PRINTOUT)

FLAG

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.

SEQ 0008

Page 9

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WILL TAKE YOU
OUT
OF
THE LOOP AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE
THREE CHOICES:

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

ORIGINAL

VALUES

AND

RESUME

BEGINNING OF THE HARDWARE TEST YOU WERE IN.

THE ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU
THE NEXT ERROR OR TO END OF PASS.

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC

TWO CHOICES:

START

RESTART

AGAIN,

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED
HARDWARE QUESTIONS AGAIN.

YOU

HAVE

TO ANSWER THE

SEQ 0009

K
B

THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE
{0=0PERATOR, D=DIAGNOSTIC):

MIGHT

LOOK

O
O
olejolelelo]

RL1T (L) Y ?
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLOT1 (L) Y ?
BR LEVEL (0) 5 ?

UNIT 1
RL1T (L) Y ?
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160
?
DRIVE (0) 0 ? 1
DRIVE TYPE
= RLO1 (L) ? N
BR LEVEL (0) 5 ?

T
I
T
I
L

)
T
T
T
T
L

O
O000

U
Y
T
I

EXECUTE DRIVE SELECT TESTS (L) N ?
EXECUTE HEAD ALIGNMENT SUPPORT (L) N ?
DO MANUAL INTERVENTION TESTS (L) N ? Y
INPUT ERROR LIMIT (D) 20 ?

O0O00

? N

CHANGE SW (L)

)

UNIT O

O0O00O0O0o

? 2

OUUUDODDD

(D)

OU0OO0OUUD0

# UNITS

? ¥

CHANGE HW (L)

DR>STA/
: 1/FPASS
LAGS : HOE

AND BASIC: DRIVE LOGIC

UNIT IS RLO1, RLO2

.R CZRLIC
DRS LOADED
DIAG. RUN-TIME SERVICES REV. D APR-79
CZRLI-C-C
CZRLI TESTS THE RLO1-02 INTERFACE

O0O9O9D0

BY
WHOM
ENTERED:

CZRLI HRD ERR 00004 TST 003 SuB 002 PC:004130

ERR HLT

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

D.O

(N=RL0O2)

Page 10

THIS

SEQ 0010

AR R R

R AR RN R A AR RN R AR R AR

AT THIS POINT THE DIAGNOSTIC

YOU CAN SCOPE

THE ERROR UNTIL YOU HAVE LOCATED IT,
AR

ddddd

isi

RARRRANNRR

IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
LA

THEN “C OUT

i sisisiiiississssssy

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

CHANGE SW (L)

? N

ggnu EOP 1

DR>RESTART/PASS : 1

D.O

CHANGE SW (L)

D.O

2.2

Page 11

? 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.
THE
BIC FILES ARE CREATED BY USING THE SETUP UTILITY PROGRAM WHICH
IS

USED
T PARAMETERIZE THE DIAGNOSTIC PRIOR TO ITS EXECUTION.
SETUP
PROMPT* THE OPERATOR WITH THE HARDWARE AND SOF TWARE QUESTIONS.
THE
RESPONSZ TO THESE QUESTIONS ARE USED TO BUILD P-TABLES.
THE RESULT
OF THE SETUP PROCESS IS A FILE WHICH INCLUDES THE
DIAGNOSTIC
WITH

APPENDED P-TABLES.
REFER TO THE XXDP+/SUPERVISOR USER'S MANUAL FOR
A COMPLETE DESCRIPTION OF THE SETUP UTILITY.

TO RUN CHAIN MODE, THE XXDP+ MONITOR USES AN ASCII FILE (KNCWN 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

ézCGTNHgERegc”

FILE

ARE

TO EXECUTE A CHAIN FILE

€ FILNAM <CR> OR

C FILNAM/QV

<CR>

EXECUTED

IN THE ORDER IN WHICH THEY ARE

THE USER TYPES:

SEQ 0011

M1
Page 12
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.

WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE HARDWARE/SOF TWARE
SWITCH
REGISTERS
SHOULD
BE SET TO 000000.
THE XXDP+ MONITOR PRINTS EACH
COMMAND TAKEN FROM THE CHAIN FILE AND THEN EXECUTES
THE
COMMAND.
WHEN
THE
LAST
COMMAND
OTHER
THAN ANOTHER
C
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

COMMAND

MODE,

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.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3 1

TABLE OF COMMAND VALIDITY

THERE ARE FOUR

WAYS

ENTERING

DIAGNOSTIC

AND

DIFFERENT SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH:

HOW ENTERED
.

OPERATOR ENTERED 'RUN DIAG'

LEGAL COMMANDS
START
PRINT

DISPLAY
FLAGS

ZFLAGS
EXIT

-3

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START

RESTART
PRINT

DISPLAY

FLAGS

ZFLAGS
EXIT

SEQ 0012

OPERATOR INTERRUPTED THE

1
Page 13

START

DIAGNOSTIC WITH CTRL/C

RESTART
CONT INUE

DISPLAY
FLAGS

ZFLAGS
EXIT
4.

AN ERFOR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START
RESTART
CONT INUE
PROCEED
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

2.3.2
LA

COMMAND SYNTAX
R

RS S

dad

ittt sttt

sttt

ittt

22222

2822

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

At d

ettt

ddd

ittt

222223

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE
SWITCHES
SPECIFIED.
THE
MESSAGE '# UNITS?'' IS PRINTED.
THE START COMMAND
MAY BE 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

WHEN IT IS COMPLETED,

SW?'' IS ISSUED, AND THE ANSWERS, IF GIVEN,

BECOME THE NEW DEFAULTS.
THEREFORE IT IS NECESSARY TO
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.

RELOAD

THE

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

SEQ 0013

‘B8
2

HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE ENTERED
ERROR IS ENCOUNTERED

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP

WHEN

CONTINUOUSLY

ERROR ' o (oroens
THEING
'OR TEST) COTAIN
SUBTEST,

IER INHIBIT ERROR REPORTING

IBE INHIBIT BASIC ERROR REPORTS

IXE INHIBIT EXTENDED ERROR REPORTS
PRI DIRECT ALL MESSAGES TO A LINE 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 O ARE
%EAZ?\)IEN ACLFIF_CEGASD;REPE&;’I‘EBIS CLEARED.
IF THE FLAGS SWITCH IS
"EOP-INCR'' IS A DECIMAL NUMBER INDICATING HOW OFTEN
(IN TERMS OF
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED.
THE
DEFAULT IS AT THE END OF EVERY PASS.
2223222222232 3323323323333

3333323323323 2223222322233323322332323322322223
2233

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

2 2322222223222 233223232223 3222333233323

2332323222222 02%003%03%32)

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
E&g:&?/cvu A)
DIAGNOSTIC
IS FINISHED B) HALT ON ERROR ()
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

SEQ 0014
ke

Page 14

SEQ 0015
1.

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

DESIGNATES

THE

LOGICAL

NOT

NUMBER

POSITION OF THE P-TABLE IN CORE, ACCORDING

HAVE

BEEN DROPPED BY THE OPERATOR DROP COMMAND.

TO THE ORDER IN WHICH THEY WERE BUILT.

MUST

UNIT

THE

THE UNITS SPECIFIED

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
AUTOMATICALLY
RESET
TO

"ALL'") OR THE NEXT RESTART.

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

LAR ARt

ii i

sslssy

CONCTINUE) /PASS : <PASS=CNT/FLAGS : <FLAG=LIST>
LA

d sttt
it
iiississssssy

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

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PREVIOUS START OR RESTART

AR RAA AR AR AR AR A

FROM

THE

AR A

PRO(CEED) /FLAGS : <F LAG=LIST>
AR

AR A AR AT AARA R AR A AR

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A
HALT
ON
ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO BEGIN EXECUTION AT THE LOCATION
:I%LgEJHA‘LGTE:EDERRm CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE THE SAME AS THE

START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

2 2
LE

EXIT
LA
2 24

RETURN TO XXDP+ PROMPT MODE.

————————————————
e

Page 16

RA AR
N

DRO(P) /UNITS:UNIT=LIST
AR
AR AT AR AN

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY
ARE
ADDED
gcc: ngctéagu 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.
AEARAA
AR AN

ADD/UNITS :UNIT-LIST
Ak

AR AR AR

A AR

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN LPREVIOUSLY

DROPPED BY
THE DROP COMMAND)
BE FOLLOWED BY A PROCEED.

TO THE TEST SEQUENCE.

AN ADD CANNOT

L2 4 228344

PRI(NT)
LA 2

ALL STATISTICS TABLES ACCUMULATED BY THE
DIAGNOSTIC
ARE
THE ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED.
AR

A AR

PRINTED.

AR AR ARk

DIS(PLAY)/UNITS:<UNIT=LIST>
AR

AR AR A A AR A AR AR AN

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

2233

FLA(GS)
LA 2

2 222

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
L2 2

8 822
3

ZFL (AGS)
LA 88

82 24

ALL FLAGS ARE

2.4

CLEARED.

EXTENDED P-TABLE DIALOGUE

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

REVEALED

THE

SEQ 0016

SEQ 0017
AS SOON AS THE QUESTION '# UNITS?'' IS ANSWERED (WITH THE NUMBER N),
SPACE
IN_CORE IS ALLOCATED FOR 'N'' P-TABLES.
ALL OF THE P=-TABLES

ARE OF

BETWEEN

THE SAME FORMAT, AND THERE

THE

HARDWARE

P-TABLE FORMAT.

PARAMETER

IN GIVING

ONE-TO-ONE

QUESTIONS

STRING

AND

VALUES,

CORRESPONDENCE

THE SLOTS IN THE
COMMAS

WITHOUT

INTESVS%{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 HAVE 8 RL UNITS, AND THAT THERE

ARE FIVE (5) HARDWARE PARAMETERS FOR EACH (5 SLOTS IN THE
5 HARDWARE QUESTIONS IN THE DIALOGUE).

FOLLOWING IS THE DIALOGUE FOR

THIS

RLOX

DRIVE

P-TABLE,

SYSTEM.

THIS

SYSTEM HAS
TWO
(2)
RL11
TYPE
CONTROLLERS ALL TO BE SET AT 'BR
LEVEL'' 5.
THE FIRST 4 DRIVES ARE RLO1'S AND THE LAST 4 DRIVES ARE
RLO2'S (ON THE SECOND CONTROLLER):

# UNITS (D) ? 8
UNIT O
RL1T

(L)

Y ?

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 = RLO1 (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.

THE SECOND TIME

THE

THRU THE P-TABLE QUESTIONS

SECOND CONTROLLER),

TYPE CONTROLLER.

(FOR THE RLO2 ASSIGNMENT

THE FIRST QUESTION DEFAULTED TO ‘RL11"'

THE SECOND QUESTION WAS ANSWERED TO

REFLECT

THE

CHANGE IN CSR ADDRESS FOR THE RLO2 CONTROLLER (175400).
THE SECOND
CONTROLLER'S VECTOR WAS ALSN 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 4 UNITS
IN
QUESTION #5.
THE LAST QUESTION WAS DEFAULTED USING THE ‘BR LEVEL''
FROM THE FIRST PASS.

HARDWARE PARAMETERS
THE FOLLOWING QUESTIONS WILL BE ASKED

VALUE LOCATED TO THE LEFT OF
THAT WILL BE

RL1T

(L)

START

(OMMAND.

THE

TAKEN ON A CARRIAGE RETURN RESPONCE.

CONTROLLER.

BUS ADDRESS (0)

YOU HAVE AN RL11

VECTOR (0)

CONTROLLER, NO(N)

YOU HAVE

174400?

ANSWER WITH THE BUS ADDRESS OF

THE CONTROLLER.

160?

ANSWER WITH THE

DRIVE

¥?

ANSWER YES(Y)

RLV11

THE QUESTION MARK IS THE DEFAULT VALUE

INTERRUPT VECTOR OF

THE CONTROLLER.

(0) 0?

ANSWER WITH THE DRIVE(S)

DRIVE TYPE = RLO1
ANSWER NO (N)

BR LEVEL

(0)

IF DRIVE

CONTROLLER

?
IS AN RLOZ2

ANSWER WITH THE

2.6

(L)

CONNECTED TO THE

INTERRUPT PRIORITY OF

THE CONTROLLER.

SOF TWARE PARAMETERS
THE FOLLOWING QUESTIONS ARE ASKED

IF REQUESTED ON A START,

RESTART,

(Y)ES

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
CAN
BE MODIFIED ON A START,
OR CONTINUE BY ANSWERING

(HANGE S.W.

TO THE FOLLOWING QUESTION:

a————

SEQ 0018

o
st

Page 18

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
?r‘u?v(gzg'reg?'mm Z (*2) WILL DEFAULT ALL REMAINING QUESTIONS AND

EXECUTE DRIVE SELECT TESTS

IF "*YES'' TESTS 5 AND 6 ARE

PROGRAM.

THESE

EXECUTED

TESTS REQUIRE MANUAL

(N)?

THE

FIRST

PASS

PLUGS AND REQUIRE A FULL COMPLEMENT OF ADDRESS PLUGS

EXECUTE HEAD ALIGNMENT SUPPORT

IF "YES'', TEST 11

(0 - 3).

(N)?

INTERVENIION TESTS

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

THE

IS EXECUTED IN THE FIRST PASS.

EXECUTE MANUAL
éNTEREgCE

INTERVENTION TO CHANGE ADDRESS

ARE

(N)?

EXECUTED

HEAD LOADING, HEAD UNLOADING,

SPECIFY ERROR LIMIT

(DECIMAL)

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, THE DRIVE IS DROPPED FROM FURTHER TESTING.
THIS

3.0

ERROR IMFORMATION

ALL ERRORS ARE PRINTED
VIA
C(ONSOLE
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

(1)

(2)

(3)

PROG NAME

THE FOLLOWING FORMAT,

ERR NUM

TEST NUM

ROUTINE TRACE SEQ (IN SEQ CALLED)

(ADDRESS)

TEST DESCRIPTION

OPERATION:

(6)

ADDRESS OF UNIT UNDER TEST

(7)
(8)
(9)
(10)
(1)
(12)

ERR PC

(ADDRESS)
(ADDRESS)

(4)

(5)

SUBTEST NUM

RESULT:

RLCS
RLDA
RLBA
RLMP
cyL
OP INIT
OP DONE
DRIVE STATUS
WORD NUM IS (XXXXXX) SB (YYYYYY)
TOTAL COMPARE ERRS: (2Z1) OF (128)

SEQ 0019

SEQ 0020
THE ONLY EXCEPTION TO THE ABOVE FORMAT IS PURE
DATA
(OMPARE
ERRORS
(NOT
QSTECTED
BY READ ERROR).
THEN THE FORMAT DOES NOT INCLUDE LINES 5 THROUGH

LINE 1

IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR.

é)S(EClIJ[T)EgTIFIED 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
AN
INCREMENTAL
TYPE OF OPERATION (SUCH AS INCREMENTAL SEEKS,
READ ALL HEADERS FROM BOTH SURFACES, ETC.) THE SUBTEST WILL BE
DESCRIPTIVE
OF WHERE IN THE TEST THE ERROR OCCURRED.
THE ERROR P.C.

IS THE PHYSICAL MEMORY LOCATION WHERE

THE ERROR REPORT

WAS

INITIATED.

~ SINCE_MANY FUNCTIONS ARE SUBROUTINED, AND ERRORS ARE REPORTED

LOCATION OF

THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE IS PROVIDED.

FROM SUBROUTINES,

THE

ERROR

P.C.

LINE 2 IS THE ROUTINE TRACE SEQUENCE.

WITHIN
THE
TEST
REPORT IS OMITTED.

NOT

SUFFICIENT

IDENTIFY

IF THE ERROR CALL IS INITIATED

THE

FROM

(AS
OPPOSED
TO
WITHIN A ROUTINE), THIS PORTION OF THE
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
ACTUAL
LOCATION
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.

THE

LINE 4 IDENTIFIES THE ACTUAL HARDWARE FUNCTION
THAT
IS BEING PERFORMED.
ADDITIONAL
INFORMATION ON THIS LINE IS DESCRIPTIVE OF SPECIFIC USE OF THE
FUNCTION.

FOR EXAMPLE,

THE OPERATION LINE WILL READ ‘READ HEADERS

FOR

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
IT
SHOULD
BE.
REPEATED IF MORE THAN ONE TESTED ITEM IS FOUND IN ERROR.

LINE

IN ADDITION LINE 5

ERRORS

WILL

REPORT

ANY

HARDWARE

DETECTED

MAY

SUCH

OPERATION INCOMPLETE, HEADER CRC, ETC.
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:
HNF/DLT

DCRC/HCRC

OPI

HDR NOT FND ERROR

DATA LATE ERROR

0
0

ILINE 6 IDENTIFIES THE PHYSICAL

ADDRESS IS BY UNIBUS ADDRESS OF

ME SSAGE

HDR NOT FND/HDR CRC/0P] ERROR

HDR CRC ERROR

DATA CRC ERROR

ADDRESS

THE

UNIT

UNDER

TEST.

THE CONTROLLER AND DRIVE NUMBEK.

THIS

SEQ 0021

LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND

ARE APPLICABLE

IN THE REPORT)

HEAD

TO BE REPORTED.

WHERE

THESE

%g"filgTE’gOVIDES 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

SEEK

WAS

BEING

THE

RLMP

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

REPORTED

STATUS.

LINE 171 AND LINE 12 ARE REPORTED IF THE ERROR WAS

OPERATION,

EITHER

DATA

REPORTED FOR ALL READ ERRORS.

3.1.1

DETECTED

ADDITION,

COMPARE

GOOD AND BAD DATA IS

SPECIFIC OPERATION MESSAGES

THE OPERATION MESSAGE
THE

HEADERS.

SUBSYSTEM

(LINE 4)

FUNCTION

BEING

IS GENERATED IN A DYNAMIC
EXECUTED

STATE OF
THE
FLAGS
IN
THE
LOCATION
OPERATION MESSAGES ARE GIVEN BELOW.

THE

TAGGED

TIME OF

MANNER

BASED

THE ERROR AND THE

‘''OPFLAGS''.

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
A
SEEK
IS
IN
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

ERROR

WAS

DETECTED

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.

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 -

EAD HEADER FOR 40 HEADERS EAD HEADER FOR 40 HEADERS WITH HEADER COMPARE VE 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

WRITE DATA RESET -

THE HEADER DATA ITSELF

WAS

St o

SEQ 0022

IN ERROR.

GET STATUS GET STATUS WITH RESET =
ARE ALL BASIC OPERATIONS.
AS BEFORE, THE ERROR
DETECTION
CAN BE
EITHER
PT*QERD:E\RHE:RTOR SOFTWARE.
THE RESULT LINE (LINE 5) 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
IN
SPECIFIC
TESTS.
THESE
TESTS
ARE
THE WRITE/READ TEST PART 2,

OVERWRITE TEST, AND THE ADJACENT CYLINDER INTERFERENCE TEST.

OPERATION

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 MEANINGF
UL
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.

THE QUALIFIER "'ADJ CYL WRITTEN AFTER FWD SK'‘ AND ‘‘ADJ CYL WRITTEN AFTER REV

SK'*

WILL

REPORTED

ONLY

THE ADJACENT CYLINDER INTERFERENCE TEST.

THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON THE CYLINDER UNDER
TEST
m &?;{g‘
THE
DIRECTION THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER

THE QUALIFIERS ‘'SK FWD, WRT-SK REV,

OVERWRT''

WILL

REPORTED

gEVE%IPEGE DIRECTION OF HEAD

OVERWRT''

AND

''SK

THE

INITIAL

ONLY IN THE OVERWRITE TEST.

MOTION

BEFORE

REV,

WRT-SK

FWD,

THESE QUALIFIERS
WRITE

AND

o/®

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

Page 23

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE

EXPECTED

RESULT

(LINE 5)

IS GENERATED DYNAMICALLY BASED

THE OPERATION BEING TESTED.

THE

SINCE OPERATIONS

ARE MONITORED DURING EXECUTION THE RESULT
MESSAGE
MAY
REPORT
AN
ERROR
DETECTED
DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
LEE EAnggF THE OPERATION.
ONLY THE FIRST ERROR SEEN IS REPORTED IN
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

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

HDR NOT FND

(HEADER NOT FOUND)

HDR NOT FND/HDR CRC/OPI
DRV _RDY

(ALL 3 BITS SET)
(DRIVE READY)

DATA LATE

SELECTED HEAD
VOL CHK
COVER OPEN
BRUSH HME
WRT LCK

(BRUSH HOME)
(WRITE LOCK)

HDS OUT
DRV SEL ERR
DRV STATE
SPIN TIMEOUT
WRT GAT ERR

(HEADS 0UT)
(DRIVE SELECT ERROR)
(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)

(VOLUME CHECK)

SEEK TIMEOUT

(SKTO _ERROR)

CUR HEAD ERR
WRT DAT ERR
OP INCOMPLETE
HDR/DAT ERR

(OPI ERROR)
(HDR CRC OR DATA CRC ERROR

HDR NOT FND/DAT LATE

(HDR NOT FOUND OR DATA LATE

(CURRENT IN HEAD ERROR)
(WRITE DATA ERROR)

BIT 11 OF CS REGISTER)

ERROR BIT 12 OF CS REGISTER)
(CYLINDER WHEN REPORTING A
SEEK ERROR)

cvL

\l/gRIABLE 2 WILL BE A VALUE THAT DEFINES WHAT
THIS CAN BE

NUMBER

(OCTAL)

A 1 OR 0 TO INDICATE A

SET

THE

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
2
SHOULD BE.
THE
OPTIONAL
QUALIFIER IS PROVIDED WHEN IT IS USEFUL TO KNOW WHEN
THE ERROR WAS DETECTED IN

THE

OPERATION

BEING

QUALIFIER IS USED TO REPORT RESULTS SUCH AS:

PERFORMED.

THIS

SEQ 0023

Page 24

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 O IN SEEK W/0 MOTION
DRV RDY
IS O SB 1 IN 10MS
DRV RDY
IS O SB 1 IN 500MS
DRV RDY
IS O SB 1 IN 5SECONDS
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 OUuT''
THIS IS REPORTED WHEN THE PROGRAM CANNOT DETERMINE THE DRIVE
OR STATUS.

STATE

*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 REQUIRED TO REPORT AN ERROR.

"OPI SET-NO DRIVE RESPONSE'’

THIS IS REPORTED AS THE RESULT WHEN Tl.lf 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

SEQ 0024

Page 25

"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

%bEJER INFORMATICN IS REPORTED UNDER VARIOUS

"BAD SEC FILES NOT STRD.

CIRCUMSTANCES.

THESE

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 IS
REPORTED
(WITH
THE
UNIT
NUMBER)
WHEN MORE
THAN
THE
g:EsgIFIED NUMBER OF ERRORS (DEFAULT 20) HAVE OCCURED IN ANY SINGLE

3.2

ERROR HALTS
ERROR HALTS ARE SUPPORTED PER DESCRIBED
IN
WITH /FLAG:HOE.
THERE ARE NO OTHER HALTS.

4.0

PERFORMANCE AND PROGRESS REPORTS

THE

SECTION

SEQ 0025

4.1

Page 26

PERFORMANCE REPORTS
THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

4.2

PROGRESS REPORTS
THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.

5.0

DEVICE INFORMATION TABLES
THE RLT1/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
RLCS = CONTROL AND STATUS REGISTER (XXXXXO0)

BIT 15 - COMPOSITE ERROR
BIT 14 - DRIVE ERROR

BIT 13 = NON EXISTANT MEMORY ERROR
BIT 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
BIT 9/8 - DRIVE SELECT (0-3)
BIT
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 0 SHOULD BE 0
RLDA - DISK ADDRESS REGISTER

(XXXXX4)

REGISTERS

FOR

SEQ 0026

=4
—f

@om

—t
—

FOR READ/WRITE FUNCTIONS

15-7 = CYLINDER ADDRESS FOR TRANSFER
6 = SURFACE FOR TRANSFER

5-0 - SECTOR FOR TRANSFER (1-40.)

FOR SEEK FUNCTION

BIT
BIT
BIT
BIT
BIT
BIT
BIT

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

FOR GET STATUS FUNCTION

BIT
BIT
BIT
BIT
BIT

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

3
2
1
O

RLMP - MULTIPURPOSE REGISTER
FOR READ/WRITE FUNCTION

BIT 15 = O - 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
BIT
BIT
BIT
BIT

15 = WRITE DATA ERROR
14 = CURRENT HEAD ERROR (CHE)
13 - WRITE LOCK STATUS (WL)
12 - SEEK TIME OUT (SKTO)
11 - SPIN ERROR (SPE)
10 = WRITE GATE ERROR (WGE)
9 - VOLUME CHECK (VC(C)
8 - DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE IS RLO2 IF SET
6 - SURFACE (0=UPPPER, 1=LOWER)

3
Page 27

SEQ 0027

(alal

Page 28

BIT 5 - COVER OPEN
BIT &4 - HEADS HOME
BIT
_3 = BRUSHES HOME
BIT 2-0 -STATE BITS
0 = LCAD STATE
1

- SPIN UP

2 = BRUSH CYCLE
3 = LOAD HEADS
4 = SEEK = TRACK COUNTING
5 = SEEK = LINEAR MODE
6 = UNLOAD HEADS
7 = SPIN DOWN

TEST SUMMARIES

6.0
TEST 1

BASIC INTERFACE TEST

LOAD IN DRIVE NUMBER.

(PART 1)

DO GET STATUS WITH RESET.

DRIVE INTERFACE IS DEAD

IF OPI SETS:

DRIVE COMMAND SHIFT REGISTER NOT LOADING/SHIFTING

MARKER DETECTION FAILED

DRIVE IS NOT SELECTING OR AC LOW IS SET
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:
BAD STATUS DATA LINE
BAD COVER SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWITCH OR LOGIC

COVER

OPEN

IF NOT:
CHECK WRITE LOCK STATUS BIT SET.
BAD SWITCH OR WRITE LOCK LOGIC
DRIVE COMMAND SHIFT REGISTER

CHECK STATE FOR 0.

IF NOT:

BAD STATE ROM
DRIVE COMMAND SHIFT REGISTER

IF NOT:
(HECK VOLUME CHECK RESET.
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:

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 0028

SEQ 0029
TEST 2

BASIC INTERFACE TEST

REQUEST OPERATOR TO CLOSE

(PART 2)
COVER AND RESET WRITE LOCK.

DO GET STATUS LOOP
CHECKING
IF
COVER
OPEN OR
WRITE
LOCK
RESETS.
WAIT
15
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.

TEST 3

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 RESET S SECONDS CR LESS

IS 2.

IF NOT:

AFTER

STATE

E 3

Page 30

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,
BAD
BAD
BAD
BAD

CHECK HEADS OUT IS SET.

IF NOT:

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVO

CHECK VOLUME CHECK IS SET.

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

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

IF NOT:

INTEGRATOR OR NULL DETECTION FAILURE

READY ONE SHOT BAD

ENABLE TIMEOUT H NOT SETTING OR COUNT LOGIC BAD
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.

TEST 4

HEAD UNLOADING TEST

(P-CLOCK REQUIRED)

CHECK DRIVE

DRIVE READY.

IS READY.

IF NOT REPORT AND ASK OPERATOR TO

REQUEST OPERATOR TO UNLOAD DRIVE.

MAKE

SEQ 0030

oy LOOP ON GET STATUS WAITING FOR STATE TO CHANGE
:
CHANGE

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

BAD STATE ROM
BAD SWITCH
WAIT 300 MS FOR STATE TO CHANGE TO 7.

IF NO CHANGE:

BAD STATE ROM

NO BRAKING
BAD AC SERVO
zgggEST OPERATOR TO LOAD

NOTE:

TEST 5

DRIVE.

WAIT

UNTIL

DRIVE

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

ERRORS

ARE

REPORTED.

SEQUENTIAL

ADDRESSES AND CHECK THAT OPI SETS.
REPEAT FOR ALL DRIVE ADDRESSES

AFTER 3).
NOTE:

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

DRIVES

REQUEST

TO GET STATUS AND
C(HECK
FOR
DRIVE
SELE A
ERROR.
THEN
RESET
THAT
DRIVE AND VERIFY THAT DRIVE SELECT
ERROR IS NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE DRIVE

SEQ 0031

)

SELECT
TO A DIFFERENT
ERROR SHOULD SET AGAIN.

NUMBER AND BACK AGAIN.

OPERATOR SHOULD SEE THE FAULT LIGHT ON
INDICATOR IS NOT SEEN ON A DRIVE:

DRIVE SELECT

BOTH

DRIVES.

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

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 7

INITIAL STATE

TEST

(P=CLOCK REQUIRED)

'}?{ET?gg OPERATOR TO GO THROUGH A LOAD HEADS CYCLE

TO INITIALIZE

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.
IF INTERRUPT OCCURS WITHOUT OPI, CHECK DRIVE READY.
‘I‘ggigzégs
HEADS
ARE
LOADED
AND
ARE
TRACKING

IF MANUAL
SELECTED.

INTERVENTION TESTS WERE RUN,
IF NOT:

CHECK THAT

READY SET
<{POSITION

HEAD

DRIVE CYCLE UP DID NOT SELECT HEAD 0
IF DRIVE READY IS SET, CHECK STATUS HESSAGE
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

PASS CHECK

INTERVENTION TESTS WERE RUN AND THIS
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 0032

NOTE:

3
Page 33

THIS TEST IS EXECUTED IF PROGRAM MODE 2 IS SELECTED,

MANUAL INTERVENTION TESTING IS REQUESTED, AND IS RUN
IN FIRST PASS ONLY.

TEST 8

|INITIAL RESET STATE TEST

DO GET STATUS HEAD SELECT = 0, WAIT FOR INTERRUPT.

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

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

NOTE:

TEST 9

THIS TEST IS EXECUTED IF PROGRAM MODE 2 IS SELECTED,

MANUAL INTERVENTION TESTING IS REQUESTED, AND IS RUN
IN FIRST PASS ONLY.

DRIVE READY TEST

(P-CLOCK REQUIRED)

SEEK

INTERRUPT.

WITH

O DIFFERENCE,
SIGN 0,
HEAD 0.
IF NOT:
CHECK STATE IS 5.
GET STATUS.

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 0033

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

DO
SEEK
WITH
DIFFERENCE
O,
SIGN
INTERRUPT.
GET STATUS AND CHECK STATE

HEAD
0.
WAIT
is 5.
IF NOT:

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 11

OPPOSITE

SIGN,

HEAD

REPEAT

HEAD ALIGNMENT SUPPORT ROUTINE

THIS TEST IS EXECUTED WHEN HEAD ALIGNMENT SUPPORT
AND IN THE FIRST PASS ONLY.
THIS TEST SELECTS THE DRIVE UNDER TEST

AND

IS REQUESTED,

LOOPS

GET

TYPING A CARRIAGE RETURN ON THE CONSOLE
WILL
TERMINATE
TEST
ON
THE
DRIVE UNDER TEST.
BEFORE TERMINATING, THE

THIS
TEST

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.

WILL CHECK THAT WRITE LOCK IS RESET.
WILL BE REQUESTED TO RESET WRITE LOCK.

NOT,

THE

OPERATOR

TEST 12 HEAD SWITCHING TEST

(P=CLOCK REQUIRED)

DO
SEEK
WITH
O
DIFFERENCE,
SIGN
0,
HEAD
1.
WAIT
INTERRUPT.
GET STATUS AND CHECK STATE IS 5.
IF NOT:

DIFFERENCE COUNTER IS PICKING UP BITS
ASSOCIATED CIRCUITRY IS BAD
VERIFY DRIVE READY RESET.

IF NOT:

FOR

SEQ 0034

Page 35

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.

IF NOT:

DO GET STATUS, CHECK HEAD SELECT IS CORRECT.
HEAD SELECT REGISTER BAD
DRIVE COMMAND SHIFT REGISTER BAD

ggs§§EK 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.

IF SET:

READ/WRITE BOARD BAD
READ DATA LINE BAD

S?EfisTIF 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 AL IGNMENT TESTS
WERE NOT RUN,
CHECK THAT HEADER WORD O INDICATES HEADS ARE
POSITIONED OVER CYLINDER O.
STORE HEADER WORD 1.
REPEAT TESTS USING HEAD 1.

CHECK THAT CYLINDER PORTION OF STORED HEADER
SAME AS HEADER WORD 1 OF THIS HEADER.

IF NOT:

WORD

IS’ THE

HEADS ARE MISAL IGNED

TEST 14 READ HEADER TEST

(PART 2)

DO SEEK WITH DIFFERENCE O,
INTERRUPT.,
WAIT FOR READY.

SIGN

HEAD

WAIT

FOR

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

SEQ 0035

Page 36

READ.

CHECK ALL HEADERS FOR SEQUENCE AND CONTENT

BIT 15 WORD 1 AND 3 IS O, HS BIT WORD 1

(WORD 2

IS 0).

ALL

IF NOT:

ZERO,

BAD READ/WRITE BOARD
BAD PACK
DO SEEK WITH DIFFERENCE O,
FOR HEAD 1.

TEST 15

DIFFERENCE OF

SIGN O, HEAD 1.

SEEK TEST

REPEAT ABOVE

TEST

(PART 1)

(P=CLOCK REQUIRED)

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

(HECK

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.

TEST DRIVE READY.

IF SET:

FAILURE IN READY LATCH OR INTEGRATOR

WAIT APPROX 5 MS LONGER.
FAILURE

TEST READY.

IF RESET:

IN INTEGRATOR

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

REPEAT

NOTE:

TEST 16

REPEAT

ALL

TEST USING HEAD 1.

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.
DIFFERENCE OF

SEEK TEST

(PART 2)

DO READ HEADER, WAIT FOR INTERRUPT.

STORE WORD 1 OF HEADER.

SEQ 0036

Page 37

00 SEEK WITH DIFFERENCE OF 1, HEAD 0.
IF CYLINDER OF
STORED
HEADER WORD IS NOT “HILIMIT'' THEN SIGN BIT 1, ELSE SIGN BIT 0.
WAIT FOR INTERRUPT, WAIT FOR DRIVE READY.
DO READ HEADER, WAIT FOR INTERRUPT.
COMPARE CYLINDER OF
THIS
?EA&S?
WITH
CYLINDER OF STORED HEADER FOR DIFFERENCE OF ONE.

COUNT LOGIC BAD
INTEGRATOR FAILED
§S$CK THAT HEADS MOVED FORWARD OR

REVERSE

EXPECTED.

SEEK ROM FAILED
DO SEEK WITH DIFFERENCE OF
ALL TESTS AS ABOVE.
REPEAT

NOTE:

TEST USING HEAD 1.

1, OPPOSITE SIGN, HEAD

REPEAT

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 0037

MAIN.
MACY1? 30A(1052)
24-MAR-B0
CZRLIC.MAC
24-MAR-80 15:27

15:35

TABLE OF

CONTENTS

BIT AND OFFSET DEFINITIONS

MACRO DEF INITIONS
GLOBAL DATA AND CONSTANTS

GLOBAL MESSAGES
ERROR ME SSAGES

d e

2
3

b cd e

*TEST
*«TEST
«TEST
«TEST
«TEST
«TEST
«TEST
*«TEST
«TEST
«TEST
*TEST
«TEST
*TEST
«TEST

OOQVOU\J\WN-‘

INITIALIZATION CODE
AUTO DROP SECTION
INTERRUPT SERVICE ROUTINES
GLOBAL SUBROUTINES
*TEST
BASIC INTERFACE (PART 1)
*TEST
BASIC INTERFACE (PART 2)

HEAD LOADING
HEAD UNLOAD ING
DRIVE SELECT
DRIVE SELECT ERROR TEST

INITIAL STATE
INITIAL RESET STATE

DRIVE READY
SEEK SIGN SWITCH
HEAD ALIGNMENT SUPPORT
HEAD SWITCHING
READ HEADER (PART 1)

—f

READ HEADER (PART 2)
5
DIFFERENCE OF 1 SEEK (PART 1)
6
DIFFERENCE OF 1 SEEK (PART 2)
PARAME E R CODING

SEQ 0038

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=-MAR-80

PART1==

002000

.NLIST

CND

.MCALL

SVC

15:35

PAGE 1

SvC

SVCBGL=1

SVCINS=0
SVCTAG=0

POINTER BGNSW,BGNSFT,BGNDU

b
b
b
-

e
A
=]
- MNOVW

OOV

24-MAR-80

SVCTST=1
svcsuB=1

—

WN =0V

NO VNS WD

000001

MACY11 30A(1052)

BGNMOD
HEADER

MDHEDR

CZRLI,C,0,1,0
LASCII 7C/
LASCII 72/
.ASCII /R/
LASCII /L/
LASCII /17
.BYTE
0
.BYTE
0
.BYTE
0
/C/
LASCII
LASCIT
70/
.WORD
0
WORD
1
.WORD
LS$HARD
.WORD
LSSOFT
.WORD
LSHW
.WORD
LS$SW
LSLAST
.WORD
WORD
O
.WORD
WORD
O
WORD
O
.WORD
LSDISPATCH
WORD
0
WORD
8

SEQ 0039

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15: 27
(4)
(4)
(4)
(4)
(4)
(4)

MACY11 30A(1052)

000000
014266

ENDMOD

DESCRIPT

055103
042524
044124
030460
047111
041501

020104
020103
020105
000103

046122

030114

24=MAR-80
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD

LASCIZ

15:35

PAGE 1-1

0
LSINIT
LSCLEAN
L$AUTO
LS$PROT
0
0
O
<CZRLI

/CZRLI

TESTS THE RLO1-02 INTERFACE AND BASIC DRIVE LOGIC>

TESTS THE RLO1-02 INTERFACE AND BASIC DRIVE LOGIC/

044507
.EVEN

030460
000062

051054

DEVTYP
.ASCIZ

<RLO1,RLO02>
/RLO1,RLO2/

.EVEN

:COPYRIGHT (C) 1979
sTHIS SOFTWARE IS FURNISHED UNDER LICENSE FOR USE ONLY
;ON 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
:OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON EXCEPT

:FOR USE ON SUCH SYSTEM, AND TO ONE WHO AGREES TO THESE
:LICENSE 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 0040

24~MAR-B0 15:27

2'6’

MACY11 30A(1052)

GLBEQAT

BGNMOD

(?}

002224

EQUALS

100000
040000
020000
010000

BIT15==
BIT14==
BI1T13==
BIT12==

004000

BIT11== 4000

1)
)
1)
1)
1)
1)
(1)
1)
1)
fl;

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

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

002000
001000
000400
000200
000100
000049
000020
000010
000004
000002
000001

(1)

BI1T10== 2000
BI1T09== 1000
BI1T08== 400
BIT07== 200
BIT06== 100
BIT05== 40
BIT04== 20
BIT03== 10
BIT02== &
BITO01== 2
BIT00== 1
BIT09
BITO08
BIT07
BIT06
BITOS
BIT04
BITO03
BIT02
BITO1
BITO00

s EVENT FLAG _DEF INITIONS

((B

000040
000037

000036
000035
000034

(1M
g;

(1)
1M
(1)
(1)
(1)
(1)
(1)
(1)

100000
40000
20000
10000

(1)
1)
flg

SEQ 0041

s BIT DIFINITIONS

fl;

(1)
1)

PAGE 1-2

BIT AND OFFSET DEFINITIONS

002224

1)
1)
)
1)
1)
(1)
)
)
)
1)
fl;

15:35

.SBTTL

lsog

(1)
)
(1)
(1)

24-MAR-80

BIT AND OFFSET DEFINITIONS

EF .START==
EF .RESTART==

EF.CONTINUE==
EF .NEW==
EF .PWR==
:
;

000340
000300
000240
000200
000140
000100
000040
000000

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

30.
29.
28.

PRIORITY LEVEL DEFINITIONS

PRIO7== 340
PR106== 300
PRI0S== 240
PRI04== 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

lals

CZRLICO RLO1/02 DRIVE TEST 1

CZRLIC.MAC

24=MAR-80

15:35

BIT AND OFFSET DEFINITIONS

4
PAGE 1-3

—

d od o

200

208

od o

]

40
100

IDU==
ISR==

g
ornmx:o;
MM OMMe
st
P

e
e
d e cd e
o
NN

CSR
VECT

PRIOR
TYPDR

DRSB
CNT

MISWI

LOLIM
HILIM

HEAD

ERLIM
DCLIM

400
1000

2000

4000
10000
20000
40000
100000
OFFSETS FOR HARDWARE P-TABLE

=0
=2

=6
=10

=12

:BUS ADDRESS
:VECTOR ADDRESS

;PRIORITY

:DRIVE TYPE
:DRIVE SELECT
;CONTROLLER TYPE

OFFSETS FOR SOF TWARE P-TABLE

=2
-

=10
=12

s SOF TWARE PARAMETERS SWITCHES
sCYLINDER LOWER LIMIT
sCYLINDER HIGH LIMIT
sSELECTED HEAD FOR RUNNING TESTS
JERROR LIMIT
;DATA COMPARE ERROR LIMIT

BIT ASSIGNMENTS FOR SOF TWARE P-TABLE SWITCHES
=BIT00
sUSE ALL CYLINDERS
=BIT01
sUSE ALL SECTORS
DRSELT
=BITQ2
JEXECUTE DRIVE SELECT TEST
HDAL IGN =BITO3
JEXECUTE HEAD ALIGNMENT TEST
HEADLM
=BIT12
JHEAD LIMIT SPECIFIED FLAG
HICYL
=BIT13
sH1 LIMIT SPECIFIED FLAG
LOCYL
=BIT14
sLO LIMIT SPECIFIED
ALLCYL
ALLSEC

83FI38RR

§ Sgeeeses

MITEST

=BIT15

SUBSYSTEM FUNCTIONS
=102
=104
=106
=110
=112

JEXECUTE MANUAL INTERVENTION TESTS

RDHEAD
WTDATA
RDDATA
RDNOHR
NOOP

=100

JWRITE CHECK
;GET STATUS
: SEEK
sREAD HEADER
;WRITE DATA
sREAD DATA
;READ DATA, IGNORE HEADERS
:NO OPERATION

COMPOP

OPERATION FLAGS
=7777

;COMPOSITE OPERATION FLAGS

CKDATA
GTSTAT
SEEK

=114
=116

EvL==

nuwuwnuwunn

ot et

(Tl

MACY11 30A(1052)

‘OPERATOR FLAG BITS

v N N S N N N N

PN PNPNPNINPNPNPNPNPNPNPN NN NP

d i ol

L01/02 DRIVE TE ST 1
C
24=-MAR-80 15:
5:27

NN S " N S v v S N

CZ R
2R

SEQ 0042

CZRLICO RLO1/702 DRIVE TES T
CZRLIC.MAC
24-MAR-80 15 27
.

000002
000001

MACY11

30A(1052)

O~mbum—*08m\lgm

00000

D e

WOV~

FRROKZEY NV

g— — e

d e

oo NNV
B am Lt aaaawa

Y[
S
S
SO
T
T
e

15:35

BIT AND OFFSET DEFINITIONS
HDRCMP =BIT01
DATACMP =BIT00

CYLUP
ULOAD

INOUTS
OUTINS

104

24=MAR-80

FOLWRT
REVSKS
FWDSKS
REVSKO
FWDSKO
BADADD
SEEKOP
RORWOP
RELDWT

HDR40

MQUALS

=BIT0?
=BIT03
=BIT04
=BITO05
=BIT06
=BIT07
=BIT08
=BIT09
=BIT10

=BITN
=BIT12
=BIT13
=BIT14
=BIT15

4
PAGE 1-4
SEQ 0043

sHEADER COMPARE OPERATION
;DATA COMPARE OPERATION
;CYCLE UP OPERATION
sUNLOAD OPERATION
s IN=OUT SEEK OPERATION
;OUT=IN SEEK OPERATION
;FOLLOWING WRITE OPERATION
;REV SEEK SEQ (ADJ INTERFERENCE)
;FWD SEEK SEQ (ADJ INTERFERENCE)
sREV SEEK SEQ (OVERWRITE)
;FWD SEEK SEQ (OVERWRITE)
;BAD DISK ADDRESS
s SEEK OPERATION
sREAD OR WRITE OPERATION
JRELOAD WAIT
;40 HEADER OPERATION

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

ERROR FLAGS FROM SUBROUTINES

TOSLOW
NOIRPT

=BIT00
=BITO1
=BIT02
=BIT03

;OPERATION TOOK TOO LONG
sNO INTERRUPT FROM OPERATION
s CONTROLLER HUNG
;BAD CONTROLLER CLEAR

RLCS
RLBA
RLDA
RLMP

=0
=2

;CONTROL AND STATUS REGISTER
;BUS ADDRESS REGISTER

CONHNG
NOCLR

RLCSR
ANYERR
DRVERR
NXMERR

DLTERR
HNF ERR
DCKERR
HCRCERR
OPIERR

DSMSK
CRDYMSK
INTEBL
BAMSK

;DISK ADDRESS REGISTER

;MULTI-PURPOSE REGISTER

=0
=100000

=40000

=20000

=10000

=10000
=4000
=4000
=2000

=1400

=200
=100
=60

DRDYMSK =1

sCONTROL AND STATUS REGISTER
sANY ERROR BIT

;DRIVE ERROR BIT

sNON-EXISTENT MEMORY ERROR

;DATA LATE ERROR

sHEADER NOT FOUND ERROR
;DATA CHECK ERROR
;HEADER CHECK ERROR
;OPERATION INCOMPLETE ERROR

;DRIVE SELECT MASK

sCONTROLLER READY MASK
: INTERRUPT ENABLE MASK
;BUS ADDRESS UPPER MASK

;DRIVE READY MASK

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=MAR-80 15:27

138

172
173

174
175
176

000003
000010

GETSTAT =3

DRSET

017777

WCMSK

HSMSK

DIRBIT

HDSEL

=20

:HEAD SELECT BIT

160000

WCRNG

000077
000100

HDSEC

HDHSEL

STAMSK
BHSTAT
HOSTAT
COSTAT
HSSTAT
DSESTAT
VCSTAT
WGESTAT
SPDSTAT
STOSTAT
WLSTAT

=10

ENDMOD

;GET STATUS SETUP
:DRIVE RESET MASK

=17777
=160000

sWORD COUNT MASK
:WORD COUNT RANGE MASK

=77
=100

:SECTOR MASK
JHEAD SELECT MASK

=7
=10

=20

=40
=100
=400
=1000
=2000
=4000
=10000

=20000

HCESTAT =40000
WDESTAT =100000

002224

PAGE 1-5

MBSETO

000007
000010
000020
000040

167
168
169
179
171

000001
000004
000020

143

166

24=MAR-80 15:35
BIT AND OFFSET DEFINITIONS

000077
000100

144
145
146
147
148
149
150
15
152
153
154
155
156
157
158
159
160
161
162
163
164
165

30A(1052)

SAMSK

139
140

141
142

MACY11

:STATE MASK
;BRUSH HOME STATUS

sHEADS OUT STATUS

;COVER OPEN STATUS
JHEAD SELECT STATUS
;DRIVE SELECT ERROR STATUS
:VOLUME CHECK STATUS
JWRITE GATE ERROR STATUS
;SPIN ERROR STATUS
;SEEK _TIMEOUT ERROR STATUS

;WRITE LOCK STATUS

JHEAD CURRENT ERROR STATUS
;WRITE DATA ERROR STATUS

SEQ 0044

oD
D
)
D ol

15:35

.SBTTL

PAGE 1-6

SEQ 0045

MACRO DEFINITIONS

;DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MILLISECOND TIME COUNTS.
'5?#?»43&%"6 IS PERFORMED BY SOF TWARE USING CPU TIMING AND IS HIGHLY MACHINE
.MACRO

WAIT:

—-

WAITMS
MOV
ASL
ASL
DELAY
DEC
BNE

ARG,?WAIT
#ARG,DLYCNT
DLYCNT
DLYCNT
#250.
DLYCNT
WAIT

;INITIALIZE DELAY COUNTER
sMULTIPLY ARGUMENT BY 2
JMULTIPLY ARGUMENT BY 2 AGAIN
s IMPLEMENT 25-MS TIME DELAY
;DECREMENT DELAY COUNT
;BRANCH IF TIME DELAY NOT EXPIRED

;DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS.
;THIS TIMING IS PERFORMED BY SOF TWARE USING CPU TIMING AND IS HIGHLY MACHINE

;DEPENDENT.
.MACRO

WAITUS

DELAY

ARG

#ARG

; IMPLEMENT 100-US TIME DELAY

;DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS
sJUSING A KW11-P PROGRAMMABLE CLOCK.

VIS
W —=O

CSt

.MACRO

WAIT:
-

TIMDLY
SETVEC

ARG,?WAIT

MOV
MOV

#1704 ,#CLKINT
#4340 ;SET P-CLOCK INTERRUPT VECTOR
;INITIALIZE DELAY COUNT
#ARG,DLYCNT
#1,a4172542
JINITIALIZE CLOCK COUNT SET BUFFER REGISTER

MOV

#113,a#172540

TST

BNE
(LR

DLYCNT

WAIT
172540

:/FOR 1

INTERRUPT PER 100 MICRO SECONDS

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

;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

Ain
s

24-MAR-80

BIT AND OFFSET DEFINITIONS

)

MACY11 30A(1052)

)
)
) i

-l
b b—

195

b csd

cald

rRororOrRONONY

REN2 SBRLRRRISZEI

)

CZRLICO RLO1/702 DRIVE TEST 1
24-MAR-80 15: 27
CZRLIC.MAC

lalal

—————————

MACRO DEF INITIONS

- SEQ 0046

BGNMOD

GLBDAT

OPMSGS:

TABLE OF OPERATION MESSAGES
.WORD
O
JFILLER

.WORD
.WORD

MWRCHK
MGTSTA

.WORD
.WORD

MWRITE
MREAD

T.DRIVE:

JJJ:

HLMTW:

MSEEK
MREADH

3
3
:
3

MWRSET
MDATCP
MHDRCP
MCYLUP
MULOAD
MINOUT
MOUTIN
MFOLWRT
MREVSK

:
:
3
a
3
:
:
.
:

.WORD

MFWSKO

.WORD

WORD

_.WORD

MFWDSK
MRESKO
MBADAD

M4OHDR
0O

WRITE DATA
READ DATA

WITH RESET
WITH DATA COMPARE
WITH HEADER COMPARE
LOAD HEADS
UNLOAD HEADS
IN=-QUT SEQ
OUT=IN SEQ
FOLLOWING WRITE
REV SEEK
FWD SEEK
REV SEEK

FWD SEEK

0
O

CAMSK:
DIRMSK:

.WORD
.WORD

0
0

40 HEADER OPERATION

HDCYL:

.WORD

TABLE OF RESULT NAME MESSAGE ADDRESSES

RESTBL:

.WORD

BAD DISK ADD FOR WRITE

.WORD
.WORD

.WORD

:
i

SEEK
READ HEADER

CLRBYT:
NXTHL:

GBND :

MESSAGE FOR WRITE CHECK
:
GET STATUS

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

.WORD

010642
010733

PAGE 1-7

GLOBAL DATA AND CONSTANTS

.WORD
.WORD

002332
002334
002336

.SBTTL

.WORD
.WORD

261
262

15:35

MCERR

;CONTROLLER ERROR

"WORD
.WORD
.WORD
"WORD
.WORD
.fig

MDRERR
MNEERR
MFLERR
MHDERR
MOPERR
ug\nonsr

*DRIVE ERROR
*NON-EXISTENT MEMORY ERROR
*HEADER NOT FOUND-DATA LATE
*HEADER OR DATA ERROR
*OPERATION INCOMPLETE
*NO DRIVE STATUS AVAILABLE

.WORD

MWDERR

;WRITE DATA ERROR

.WORD

MSTERR
MSPERR
BNGERR

*SPINDLE ERROR
*WRITE GATE ERROR

.WwORD

MDSERR

:DRIVE SELECT ERROR

.xg

.WORD
.fig

IC')HCERR

*HEAD CURRENT ERROR

:SEEK TIMEOUT ERROR

Y rn

24=MAR-80

————————)

MACY11 30A(1052)

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

MACY11

30A(1052)

24-MAR-80

15:35

GLOBAL DATA AND CONSTANTS

PATTBL:

.WORD

.WORD
.WORD

.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD

PAT]

PAT?
PAT3

PAT4
PATS
PAT6
PAT?7
PATS8
PAT9
PAT10

T25TBL:

b ccd and wsb wucd
b
b
b acbd
d

OVRNOWVSWN=O

CRIRERE wwwwwwwuwww 35

.WORD
WORD
.WORD

.WORD
.WORD
.WORD
.WORD

:OON-<

sRLOT TABLE OF C LINDERS

WNNANWN

4
PAGE 1-8

SUBROUTINE CALLING STACK

SUBSTK:

PATTERN TABLE

elelololelelolelsle)

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

;STACK IS 12 WORDS LONG

;TABLE OF DIFFERENCES

12.
17,

34.
41,
128.

255.

:RLO2 TABLE OF CYLINDERS

T25TB2:

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

TABLE TO BE USED TO BUILD AND STORE THE CYLINDERS

T33TBL:

.BLKW

TBT:

.BLKW

4
12.
18
24
34
44
54
68
82
256.
5N

16.

SEQ 0047

2604
002605
2606
002607
002610

002
007
016
024
033

339

002615

072

’

s
s
s
i
s
sl
il
o
il
i

002630

NOWVNSBSWN
=
O=frRr=WHNO
=

N
W

350

177

CYLTBL:

.BYTE

BYTE
BYTE
.BYTE

.BYTE
.BYTE

14.
20.
27.
33,
38.

.BYTE
.BYTE

58.
65.

BYIE
.BYTE
.BYTE

U7,
84.
91.

.BYTE

102.

.BYTE
.BYTE

113,
120.

BYTE

AYIE

127,

.BYTE

146.

BYTE
JHYTE

2660
002664
2666

000«06
000415
000423
000432

134,
1MW,

.BYTE
.BYTE

152.
157.

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
BYTE

170.
177.
184.
189.
195.
202.

.BYTE

214

.BYTE
.BYTE
BYTE
BYTE
.BYTE

227
234
241
247
253,

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

257,
262.
6
275
282
%93
00.

.BYTE

373
374
375
376

J 4

30A(1052)
24-MAR-80
15:35 " PAGE 1-9
GLOBAL DATA AND CONSTANTS

=ONO

328
329
330
331
332
333
34

MACY11

.WORD
.WORD
.WORD
WORD

164.

307.
313,
320.
327
332

s TABLE OF DEFAULT CYLINDERS

SEQ 0048

TMTM

CZRLICO RLO1/702 DRIVE TES
CZRLIC.MAC
24-MAR-80 15 1e?

CZRLICO RLO1/702 DRIVE TEST 1
CZ LIC.MAC
24-MAR-80 15:27
384
385
387
388
389

002706
002710
002712
002714
002716
002720
002722

391
392
393
394

002724
002726
002730
002732

400
401
402
403
404
405
406
407
408
409
410
411
412
413
fig
416
417
418
419
420
421
422

395
396
397
398
399

000667
000674
000702
000711
000716
000725
000733
000742
000751
000760
000766
000774
000774
000000
000000

WORD
WORD
WORD

SSINDX:

003004
003006
003010
003012
003014
003016

000000
000000
000000
000000
000000
000000

:
OPERATIONAL FLAGS
OPFLAG: .WORD
O
DONE:
.WORD
O
HADONE:
.WORD
0
ERHEAD:
.WORD
0
MORECE:
.WORD
0
ERRSWI:
.WORD
0

003026

437
438
439

003032

003034
003036
003040
003042
003050
003052
003052

000627
000634
000643
000651
000660

000000
000000
000000
000000

WORD
.WORD
WORD
.WORD
WORD

WORD

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

BSFLAG:
WRTSWI:
TBLSTR:
RLBAS:

.WORD
.WORD

.WORD
.WORD
.WORD

.WORD

PAGE 1-10

339
346
352
357
363
368
375
382
389
394
401
407
412
419
425
432.

002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772
002774
002776
003000
003002

002734
002736
002740
002742
002744

427

435
436

WORD
WORD
WORD
WORD
WORD
WORD
WORD

WORD
WORD
WORD
.WORD

003020
003022
003024

431
432
433
434

000523
000532
000540
000545
000553
000560
000567

000576
000605
000612
000621

423
424
2%2

428
223‘9)

MACY11 30A(1052)
24-MAR-80
15:35
GLOBAL DATA AND CONSTANTS

439
444
450
457
462
469
475
482
489
496
502.

508.
0
O

0
O
O

;SUBROUTINE STACK INDEX POINTER
;OPERATION FLAGS
;OPERATION COMPLETE FLAG
sHEAD ALIGNMENT DONE FLAG
;ADDRESS OF ERROR HEADER
sMORE THAN 1 COMPARE ERROR
;ERROR RETURN SWITCH

:BAD SECTOR FLAGS
;WRITE SWITCH
: TABLE STORAGE

sRL11 BASE ADDRESS

000000
000000

RLVEC:
RLDRV:

.WORD
.WORD

O
O

sRL11 VECTOR ADDRESS
;DRIVE NUMBER UNDER TEST

000000
000000
000000
000000
000000

L.CS
L.BA
L.DA
L.MP
T.CS

WORD
WORD
.WORD
.WORD

0
0
0
0
0

;CONTROLLER REGISTER STORAGE
;BEFORE OPERATION

000000

T.DA
T.MP
HDWRD1:

000000
000000

T.BA

.WORD
.WORD

.WORD

;CONTROLLER REGISTER STORAGE
:
AFTER OPERATION

.WORD

;HEADER WORD STORAGE

- SEQ 0049

MACY11

30A(1052)
24-MAR-80
15:35
GLOBAL DATA AND CONSTANTS

4
PAGE 1-11

440
22;

003054
003056

000000
000000

HDWRDZ:
HDWRD3:

.WORD
.WORD

0
0

222

003060

000000

T.STAT:

.WORD

;DRIVE STATE STORAGE

445
446
447
448
2‘5’3

003062
003064
003066
003070
003072

000000
000000
000000
000000
000000

RESPARM:

.WORD
.WORD
WORD
WORD
WORD

0
0
O
O
O

;PARAM BLOCK FOR REASON REPORT

451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
501
502
503
55815

003074
003076
003100
003102
003104
003106
003110
003112
003114
003116
003120
003122
003124
003126
003130
003132
003134
003136
003140
003142
003144
003146

000000
000000
000000
000000
000000
000000
000000
000009
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000004
000000
000000
000000

DRVCNT:
DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:
DESDIF:
DESSGN:
DESHD:
DESSEC:
TEMPO:
TEMP1:
TEMP2:
TEMP3:
TEMP4:
TEMP5:
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

O
O
O
0
0
O
0
0
0
0
O
O
O
O
0
O
0
0
4
O
O
0

sDRIVE COUNT FOR DRIVES UNDER TEST
sDIFFERENCE ARGUMENT FOR SEEK
;OLD CYLINDER
sNEW CYLINDER
s CURRENT CYLINDER
sDESIRED DIFFERENCE
;DESIRED SIGN
;DESIRED HEAD
;DESIRED SECTOR
: TEMPORARY STORAGE
: TEMPORARY STARAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
: TEMPORARY STORAGE
;ERROR VECTOR
;DELAY COUNTER USED IN TIMING MACROS
:FLAG_INDICATING PRESENCE OF A P=CLOCK
;POINTER TO DIAGNOSTIC MONITOR CLOCK TABLE

003150
003152
003154
003156
003356

000000
000000
000000
000100
000000

PASCNT: .WORD
COUNT:
.WORD
ERRPOINT: .WORD
ERRCNT: .BLKW
PASNUM: .WORD

MISCELLANEOUS COUNTERS

506
507
508
509
510
511

O
0
0
64.
O

;PASS COUNTER (LOCAL TO A TEST)
sA COUNTER (LOCAL TO A TEST)
;ERROR POINTER
;ERROR COUNTER FOR PROGRAM
;PASS NUMBER FOR PROGRAM
sCOUNTER FOR PARAMETER SET NUMBER IN USE

512
513
514
515
g}g

003360
003362
003363
003364
003366

000000
000
000
000000
000000

PSETNM: .WORD
LOCERR: .BYTE
NOERCT: .BYTE
TRPFLG: .WORD
PWRFLG: .WORD

518
g}g

003370

000000

H
BAD SECTOR TABLES AND POINTERS
BSFVAL: .WORD
0
;BAD SECTORS FILES VALID FLAG

521
2%%

003372
003566

000076
000076

SBSFIL:
FBSFIL:

.BLKW
.BLKW

76
76

s SOFTWARE BAD SECTOR FILE
sFACTORY BAD SECTOR FILE

524
gsg

003762
004362

000200
000200

IBUFF:
OBUFF:

.BLkW
.BLKW

200
200

: INPUT BUFFER
;OUTPUT BUFFER

527

004762

000000

PAT1:

_WORD

;PATTERN1 (ALL ZEROCS)

0
O
0
0
O

sLOCAL ERROR COUNTER
sINHIBIT ERROR COUNTING FLAG

+HARDWARE TRAP FLAG
;POWER FAILURE FLAG

- SEQ 0050

YTM

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24=MAR-B0 15:27

MACY11 30A(1052)

24~MAR-80

15:35

GLOBAL DATA AND CONSTANTS
PATZ2:

PAT3:

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

000000
177777
PAT4:

577

005122

125252

579
580

005124
005126

PATS:

582
583

155555
133333
066666

005132

121105

PAT6:

25252

PAGE 1-12

- SEQ 0051

YTM

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-B0 15:27

CZRLICO RLO1/702 DRIVE TEST 1
24-MAR-B0 15:27
CZRLIC.MAC

MACY11 30A(1052)

24-MAR-80

WORD
.WORD

150442
064221
132110
055044
026442
013211
105504
042642
021321
110550
044264
022132
011055
104426
042213

WORD
WORD
WORD
WORD

617

005172

177777

PAT7:

.WORD

177777

005174

045513

PAT8:

.WORD
WORD

045513
122645

005232

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

113226
PAT9:

.WORD

125252

621
622
623
624
625
626
627
631
632
633
634
635

PAT10:

.WORD

155555

.SBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

MDATCP:
MHDRCP:
M4OHDR:
MWRSET:
MOPER:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

637
639
641
642

005236

155555

PAGE 1-13

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

619 005234 125252
620

GLOBAL DATA AND CONSTANTS

LWORD
.WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

602

15:35

005240

005240
005240
005246
005257

005267

042523
042122
122
127

045505
042040
020104
052122

005313

107

052105

005301

005325

344
5362
005376
005412

127

044527
047506
044527
050117

052122

052111

044124
020122
044124
051105

000040
052101
042110
041440
042040
051440

020110
044040
030064
051040
020072

MSEEK:
MREAD:
MREADH:
MWRCHK:
MWRITE:
MGTSTA:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

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

/WITH DATA CMP /
/WITH HDR CMP /
/FOR 40 HDRS/
/WITH RESET /
/OPER: /

SEQ 0052

NSNS
N=OCWWNS
~Armasa

------

-bd ab

05
05

- ed \ S

RRRR I

b
e
b

110

046125
042040
051104

MRSLT:
MULOAD:
MCYLUP:
MOUTIN:

MINOUT:

043111
020124
020126
053122

.ASCIZ

/RESULT:

/UNLD DRV/

5
PAGE 1-14
/

/LD DRV /

/FOL O TO CC SEEK/
/FOL 255 TO CC SEEK/

MFOLWRT: .ASCIZ /FOL WRT (NO SEEK)/
MREVSK: .ASCIZ /ADJ CYL WRTTN AFTER REV SK/
MFWDSK:
MFWSKO:

MRESKO:
MBADAD:
MBADSF:

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

MFMTER: .ASCIZ
MTMBS:
L.ASCIZ
BASADD: .ASCIZ
DRVNAM: .ASCIZ
NOPWR:
.ASCIZ
CSNAM:
.ASCIZ
BANAM:
.ASCIZ
DANAM:
_ASCIZ
MPNAM:
_ASCIZ
LAB1:
LASCIZ
LABZ:
LASCIZ
MWORD:
.ASCIZ
MTOSLOW: .ASCIZ
MDRRES: .ASCIZ
MNOINT: .ASCIZ
MCONMNG: .ASCIZ
MNOCLR: .ASCIZ
VCNRST: .ASCIZ
UNXERR: .ASCIZ
TSTLAB:
.ASCIZ
MISTST: .ASCIZ
NSTACHG: .ASCIZ
SPDERR: .ASCIZ
GSTER1:
.ASCIZ
INITST:
.ASCIZ
TOSERR:
.ASCIZ
TO9ERR:
.ASCIZ
T10ERR:
.ASCIZ
T12ERR:
.ASCIZ

T13ERR:

052122

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

15:35

T14ERR:
T16ERR:
P2TO1E:

P2TO2E:
NOTST:
NOCTLR:
NOTRDY:

/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/
/TO0 MANY BAD SEC /
/BUS ADD=/
/DRV=/
/DRV DID NOT REC'R FROM PWR FAIL/
/RLCS/
/RLBA/
/RLDA/
/RLMP/
/
/0P INIT
/0P DONE = /
/WORD /
/INTRPT TOO LATE/
/NO DRV RESPONSE/

.ASCIZ
.ASCIZ

/NO INTRPT ON CMND COMPLETE/
/CNTLR HUNG /
/ERR DID NOT CLR/
/VOL CHK NOT RSET/
/UNXPCTED ERR/
/ TEST/
/MAN INTERVENT STAT/
/STATE CHG/
/SPNDL TIMEOUT FAILED TO SET/
/FAIL FORCING DRV SEL ERR/
/INIT STATE/
/DRV SELECT/
/DRV RDY/
/SEEK SGN SWITCH/
/HD SWITCH/
/RD HDR (P1)/
/RD HDR (P2)/
/WRT LCK/

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

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

.ASCIZ

SEQ 0053

24-MAR-80
MACY11 30A(1052)
GLOBAL MESSAGES

CZRLICO RLO1/02 DRIVE TEST
CZRLIC.MAC
24~-MAR-80
1

728
730
731
732

24-MAR-80 15:27

007005
007044
007130
007213

110
054503
042510

737
738
739

007445
007477
007513
007555

103
120
120

749
750
751
752
753
754
755
756
757
758
759

010025
010040
010055
010063
010070
010074
010101
010106
010114
010127
010152

733

735

740
741
742
743
764
746
747
748

760
761

007317
007344
007367

101
040527

007610
007637
007656
007673
007741
007772
010011
010015

042522
111
047111
111
122
042522
117
117

010163
010237

763
764
765
766
767
768
769

010260
010271
010303
010313
010324
010340

77%

010425

770
771
773
775
776
777
778

780
781
782
783
78,
785
786
787

010352
010402
010413
010436
010451
010464
010475

010506
010523
010536
010554
010571
010607
010625
010642

MACY11 30A(1052)

24-MAR-80

GLOBAL MESSAGES

15:35

PAGE 2

051504
020114
042101
050131

043040
047520
040440
020105

HDMOVF:
CYLPER:
HAMES1:
HAMES2:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/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 HD 0, SET FOR HD 1/
R
&TYPE "“CTL/C'' TO GET BACK TO SUPVR CMD MODE AND THEN TYPE '‘CONT''

051514
042522
042522
049522

020105
051523
051503
051523

OPR2:
OPR3:
OPR5:
OPR&:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/CLSE COVER & RST WRT L(K /
/PRESS LOAD /
/PRESS LOAD & WAIT FOR LOAD LIGHT /
/PRESS LOAD & WAIT FOR RDY /

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

047502
020123
045510

047515
051516
040440
051516
046120
042523
020116
020116

042526
047514
042040

042506
052122
046114
043125
042503
02012

OPROOZ: .ASCIZ
OPROO3: .ASCIZ
OPR1:
.ASCIZ

OPR7:
OPR8:
OPR9:
OPR10:
OPR11:
OPR12:
OPRIA:
OPR1B:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/ABOVE CONDITIONS MET/
/WAS LOAD DEPRESSED/
/CHK DRV IS UNLDED, COVER OPN, AND WRTE LCKED /

/REMOVE ADD PLGS EXCPT /
/INSRT ADD PLG /
/IN ALL DRVS /
/INSUFFICIENT DRVS FOR DRV SEL ERR TST/
/RPLCE ADD PLGS AS BEFORE/
/RESET WRT LCK /
/ON /
/ON DRV /

042116
020124
043111
047107

031104
051105
051127
0;0106
000040

020103
046131
046517
050131
052517
020126

700
000040
O
051501
044524
052123

UNDTST:
OPROD4:
DIFWD:
SGNWD:
HDWD:
SECWD:
CYLWD:
FRMWD:
BYPSNM:
SEQMES:
STAMES:

051104
103
110
104
042110
040504

020126
047117
051104
052101
020122
040524

042122
020124
041440
020101
047516
046040

:
MDRDY:
MCERR:
MHCRC:
MDCRC:
MHNF:
MDLT:

RESULT NAMES
.ASCIZ
/DRV RDY /
.ASCIZ /CONT ERR /
.ASCIZ /HDR CRC/
.ASCIZ /DATA CRC/
.ASCIZ /HDR NOT FND/
.ASCIZ /DATA LATE/

126

046117

041440

MVOLCK:

.ASCIZ

MDSERR:
MDRVST:
MSPERR:
MJGERR:
MSTERR:
MHCERR:
MWDERR:
MOPERR:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

125
042523
104
123
042110
042523
103
051106
041040
122
051104

102
124

042110
051104
123
047503
102
051127
110

051104
104
050123
051127
123
110
127
050117

042101
052117

020122
020126
046105

042526
052522
020124
051504

020126
053122
047111
020124
042505
040505
052122
026522

051440
046101

047516
051105
042047
020122
044123
041514
047440

042523
051440
052040
040507
020113
020104
042040
047111

BSNSTR:
TCERR:

.ASCIZ
.ASCIZ

/UNDER TEST/
/SET WRT L(K /
/DIFF /
/SGN /
/HD /
/SEC /
/CYL /
/FROM /
/ BYPASSED /
/ROUTINE TRACE SEQ:/
/DRV STAT/

/BAD SEC FILES NOT STRD. ALL SEC ASSUMED OK./
/TOTAL CMP ERRS: /

MHFCRC: .ASCIZ
MDRERR: .ASCIZ
MHSTA:
_ASCIZ

RHDR NOT FND/HDR CRC/OPIZ
/DRV ERR /
/SEL'D HD /

MCOSTA:
MBHSTA:
MJLSTA:
MHOSTA:

/COVER OPN /
/BRUSH HME /
/WRT LCK /
/HDS OUT /

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/VOL CHK /

/DRV SEL ERR /
/DRV STATE /
/SPIN TIMEOUT /
/WRT GAT ERR /
/SEEK TIMEOUT /
/HEAD CUR ERR /
/WRT DAT ERR /
/OPR-INC/

SEQ 0054

i Wan

CZRLICO RLO1/02 DRIVE TEST 1

CZRLIC.MAC

~—

!CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC

788

789

790
791
792
793
794
795
796
797
?733

800
801
£§

804

805
806
807
808
809
811
813

24~MAR-80 15:27
042110

010715
010726
010733
010757
011024
011065
011101
011141
011150

116
054503
103
125
040506
127
040

177607

054055
020114
047101
045516
046111
052122
053117
051105
000377

011154
011160

051511
051440

000040
020102

000

RESE3:
RESE4:

011165
011172
011177
011207
011217
011227
011247

040
047440
123
123
123
123
061

047111
020106
040524
040524
040524
042505
052123

000040
000
042524
042524
042524
020113
031440

RESES:
RESE6:
STATE2:
STATE3:
STATES:
CDRDY:
C10MS:

020105
020101
000103

CCYLUP:
CAFDT:
CSSEC:

110

051104

040504

MHDERR: .ASCIZ

&HDR/DAT ERR &

046455
000
047516
020116
052040
040440
051105
047522

MNEERR:
MCYLOC:
MNDRST:
MUNDEF:
MRLFAL:
MWRTAB:
MEXERS:
MERRS:
BELL:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/N=X-MEM
/
/CvyL /
/CANNOT GET DRV STAT/
/UNKN DRV STATE=NO RDY,NO ERR,HDS OUT/
/FAIL TO RELD HDS AFTER ERR CLEAR/
/WRT ABORTED/
/ OVER ERR LIMIT = UNIT DROPPED /
/ ERROR/
<207><377><377>

RESULT SETTINGS

RESULT CONDITIONS

CSOOMS:

.ASCIZ

/S500MS/

FMTOP1:

.ASCIZ

/INXTINZTXTZO6XSXTZO1IN/

047040

814

011260

030065

046460

000123

819

011316

047045

052045

047045

824

011424

815
816
g}g

820
821
822
823
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845

011266
011277
011310

011345
011367
011410
011415
011427
011432
011443
011463
011525
011575
011627
011634
011642
011650
011714
011746
012002
012013
012035
012067
012126
012154
012177
012233
012247

054503
104
020065

046103
052101
042523

045
045
052045
045

022516
022516
052045
022516

045
047045
045
045
045
045
045
052045
052045
047045
047045
047045
047045
045
045
045
052045
052045
045
045
045

000116
052045
022516
022516
022516
022516
022516
047445
047445
051445
052045
051445
051445
030523
022516
022524
051445
051445
022516
022524
022516

052045

000

GLOBAL MESSAGES

010652

010667

027522

MACY11 30A(1052) 24-MAR-80 15:35 PAGE 2-1

022524
022524
000
022524
052045
022524
030523
022524
022524
000124
000061
000063
030461
052045
030461
022465

022460

030523
032123
022462
031061

030523
022524
000124

MFLERR:

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

B&HDR NOT FND/DAT LATE &

/IS
/
/ SB
/

/ IN
/
/ OF /
/STATE 2/
/STATE 3/
/STATE 5/
&SEEK W/0 MOTIONE
/1ST 3 MS/
/CYCLE up/
/DATA XFR/
/S SEC/

FMTOP2:
FMTOP3:
FMT1:
FMT1.1:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/INXTX01%S1XTZ013IN/
/INXTZO1%S1XTXTIN/
/X%T%1/
/INITXT/

FMT3:
FMT4:
FMTS:
FMT6:
FMT7:
FMT8:
FMT9:
FMT11:
FMT12:
FMT13:
FMT14:
FMT15:
FMT16:
FMT17:
FMT18:
FMT19:
FMT20:
FMT21:
FMT22:
FMT23:
FMT24:

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

/IN/
/INITXTIN/
/INXTX06X%S1%TX01/
/INZSTI1XTXS4XTXSLXTYSLXTXSLXTXS2XT/
/INXTX06XS2%06%S2%06%S2%06%S3%03%52%01
%N/
/INXTX06%S2%X06%S2%06%S2%06/
/INXIT/
/X%T201/
/%T%03/
/INZST11XTX03%S1XTX03%S1%XTX01%S1XT%01/
/INXTXTXD3%S1XTX06%S1XT%06/
/INXS11XTZD3XS1XT206%S1XTX06/
/INXS5X06/
/%S10XTINZS11%06IN/
/INXS1SXTXSSXTXSLXTISSITIN/
/XTXS4XDOXS4XD6XSLIDOXS4IDEIN/
/XTXS2%D6ZS14XD6XS4XD6IN/
/%TZS12%D6XS14XDEIN/
/INXS11XTZ03XS1XTX01%S1XT%02/
/XTXTXTXO1IN/
/3INXT/

FMT2:

_ASCIZ

/XT/

~ SEQ 0055

846
847
848
849
850
855
856
ggg

012254
012264
012310
012327
012340

859

012340

860
gg;

047045
047045
047045
045

042045
051445
052045
022516

MACY11 30A(1052)

24-MAR-80

GLOBAL MESSAGES

022462
022461
042045
022524

15:35

FMT2S:
FMT26:
FMT27:
FMT28:
ENDMOD

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.SBTTL

ERROR MESSAGES

BGNMOD

GLBERR

5
PAGE 2-2

/INXD2XT/
/INXST1XTXD4XTXTXD3AN/
/XNXTXD3XTXD3IAN/
/INXTXTXT/

ERR1

R3 POINTS TO RESULT MESSAGE
RESULT:

(R3)

863

ERR?2

R3 POINTS TO RESULT NAME

866

ERR3

R3 POINTS TO RESULT NAME

869

ERR4

R3 POINTS TO RESULT NAME

g;}

ggg

870

:
:

2
:

ERRS

877
878

3
2

ERR6

881
882
883

:
:
:

ERR7

886
887
888

2
3
2

ERR8

891
892

:
:

ERRO

3873

ggg

(R3) IS 1 SB 0 (R4)

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

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

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

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
RS POINTS TO VALUE 2

RESULT: (R3-NAME) IS (R4-VALUE 1) SB (RS=VALUE 2)

898
899
900
901

:
:
:
2

ERR10

904

NLIST

MD.ME

902
903

R4 POINTS TO RESULT CONDITIONS

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

897

ggg

(R3) IS O SB 1

RESULT: "ERROR'' IS 1 SB 0

:
2

(R3) IS 1 SB 0

RESULT: (R3) IS 0 SB 1 (R4)

893
894

RESULT:

873
874

g;g

RESULT:

COMPARE ERROR REPORT

R3 CONTAINS THE BAD WORD NUMBER
R4 POINTS TO BAD WORD
RS POINTS TO GOOD WORD
RESULT: WORD (R3) IS (R4) SB (RS)

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 19:27

SEQ 0056

|CZRLICO RLO1/02 DRIVE TEST 1

24-MAR-80
115:27

105737

003363

-lb

170602

P4
P
P
P
B
o
P
B

NOWVESWN=O

VOOV
OOV OO0

$888|

CZRLIC.MAC

023356
000001

MACY11 30A(1052)

ERROR MESSAGES

BGNMSG

1%:

024144
024352

016126

24=MAR-80

ENDMSG

ERR1

TSTB
BNE
INC
MOV

JSR

MOV
MOV
JSR
JSR
MOV
JSR

L10000:

170542

BGNMSG

935
936

012454
012454

PC.RPTRES
PC,RPTREM

(SP)+ ,R1

PC,CKERLM

ENDMSG

000001

5
PAGE 2-3

sTEST IF ERROR COUNTING INHIBITED
sYES = SKIP

:ELSE BU’P ERROR COUNT

:STORE
R

sREPORT OPERATION

:SET PARAM NUMBER
s INSERT MESSAGE ADDRESS POINTER
sREPORT 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

;SET SB VALUE

;REPORT RESULTS

sREPORT REMAINDER
;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

C$MSG

BGNMSG

@ERRPOINT
R1,-(SP)
PC,RPTOP
#3,(R1)+

R3,(R1)+
(R1)+

#1,(R1)+
PC.RPTRES
PC ,RPTREM
(SP)+ ,R1
PC,CKERLM

ENDMSG

L10002:

023356
000004

(SP)+,R1

PC,CKERLM

R3,(R1)+

00000|
024144
024352

170426

PC,RPTRES
PC ,RPTREM

#1,(R1)+
(R1)+

023356
000003

016126

R3,(R1)+

PC,RPTOP

L10001:

170474

PC.RPTOP
#1,(R1)+

#3,(R1)+

024144
024352

012452

QERRPQINT
R1,=(SP)

QERRPOINT
R1,-(SP)

000001

(3)

?gERCT

CSMSG

023356
000003

016126

15:35

;BUMP ERROR COUNT

:STORE R1
sREPORT OPERATION
;SET_PARAM NUMBER
: INSERT NAME ADD POINTER
sSET IS VALUE
;SET SB VALUE

;REPORT RESULTS

sREPORT REMAINDER

sRESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

($MSG

BGNMSG
JSR

@ERRPQINT
R1,-(SP)

PC,RPTOP
#4,(R1)+

R3,(R1)+

#1,(R1)+

;BUMP ERROR COUNT

;STORE R1

sREPORT OPERATION

;SET PARAM NUMBER

s INSERT NAME ADD POINTER
;SET IS VALUE

~ SEQ 0057

|CZRLICO RLO1/02 DRIVE TEST 1
{CZRLIC.MAC

24-MAR-80 15:27

012546

CLR

005021

956
.
957
958
|
|
959

012550
012552
012556

010411
004737
004737

024144

961
%2

012564
012570

004737

016126

960 012562 012601
(3)

012570

963
%4
95
%6

012570

104423

012572
012572
012576

005277

(3)

010146

967 012600 004737

MOV

024352

L10003:
BGNMSG

170356

023356
000004
000001

024144
024352
016126

ENDMSG

L10004:

980

981
982
983

984

012642

012646
012650
012654

012656

105737

001002
005277
010146

BGNMSG

003363
170300

17%:

010346

023356

;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

PC,CKERLM

TRAP

C$MSG

INC
MOV
JSR
MOV

@ERRPOINT
R1,-(SP)

CLR

(R1)+
#1,(R1)+
R4, (R1)
PC,RPTRES
PC,RPTREM

MOV
MOV

JSR
JSR
MOV
JSR

PC,RPTOP
#4,(R1)+

R3,(R1)+

(SP)+,R1

PC,CKERLM

JTEST IF ERROR COUNTING INHIBITED
JYES - SKIP
sELSE BUMP ERROR COUNT
;STORE R1
;STORE R3

#3,(R1)+
#1,2(R1)
TEMP3

:SET PARAM NUMBER
;s INSERT IS VALUE
:CLEAR FOR STATUS STORAGE
:GET T.CS
JAND CLEAR ALL BUT FUNCTION
:CHECK IF IT WAS GET STATUS

T.CS,R3

#4 ,R3
1%

;STORE R4

:STORE RS

sREPORT OPERATION

:YES - STATUS IS IN T.MP,

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

RLDRV,R3
R3,RLCS(R2)

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

NOERCT
17%
@ERRPOINT
R1,-(SP)
R3,-(SP)
R4 ,=(SP)
R5,=(SP)

#177761,R3
000004

JREPORT RESULTS
sREPORT REMAINDER

C$MSG

PC.RPTOP

000002

SEQ 0058

(SP)+,R1

JSR

MOV

PAGE 2-4

;SET _SB VALUE
; INSERT ADD OF CONDITION POINTER

PC,RPTRES
PC,RPTREM

ERRS

(R1)+
R4, (R1)

JSR
JSR

MOV

ENDMSG

15:35

10,

MACY11 30A(1052)
24=MAR-80
ERROR MESSAGES

000012

6‘#10..(PC)*

002116

bSDLY.(PC)'

177772

-62PC)

177756

<22(PC)
.=20

JWAIT FOR CONTROLLER READY

SKIP

012776

30A(1052)

000000

000006
003124
003125

10%:

il
D

~NONn

:
9%

D il

001000

003053

i
i s
ol
i

#CRDYMSK ,RLCS(R2)
;TEST IF READY
108
;YES - SKIP

#BIT9,R3
2%
2%"?§:§§,R3

sELSE SET NO DRIVE STATUS BIT
s IN MESSAGE WORD AND SKIP
*STORE STATUS FOR REPORT

}ggps+1.ns

;GET ERROR BITS IN PROPER POSITION
:GET ERROR BITS FROM MP REG

#177442 ,R3

:CLEAR UNUSED BITS

#1777 R4

:CLEAR UNUSED BITS

*GET ERROR BITS FROM CS REG

R4 ,R3
#OPIERR,R3
115$%

*MAKE ONE WORD OF POSSIBLE ERRORS
“TEST IF OPI
SET
‘NO
- SKIP

107

“YES - SKIP

#HCRCERR,R3

*TEST IF HDR CRC ERR

012704

010642

#MOPERR ,Ré4

*SET OPI ALONE MESSAGE

012746
010446
012746
012746

011141

)

004000

105%

100%:

R4, =(SP)

000012

#12,SP

SP,RO
CSPNTB

1208

010303

105%:

188§Rc.n4

004000

107%:

#HCRCERR,R3

109$

133@’-“‘

010352

109%:

#MHF CRC ,R4

004000

115%:

#DCKERR,R3

010313

1008

118%:

3%:
(%:

*MESSAGE HEADER NOT FOUND

:HNF AND HCRC MESSAGE

*SKIP

:TEST IF

DATA CHECK SET, NOT OPI

:SKIP
STEST IF DATA LATE ERROR
‘NO - SKIP

1008
#BIT15,RS

Ré
RS.R3
6%
(R4) +

6%:

;TEST IF HCRC WITH HDR NOT FND

‘YES - SKIP

1008
#DLTERR,R3
1208

002320

*HDR CRC MESSAGE

*NO - SKIP

AMDL T ,R4

120%:

;SKIP

1188

#MDCRC ,R4

010340
100000

‘YES - SKIP

#MERRS.~ (SP)

#MRSLT,=(SP)
#FMT28
.~ (SP)
#4,~(SP)

010000

:TEST IF HDR NOT FOUND ERROR

#FMT28 ,#MRSLT ,R4. #MERRS :REPORT ERROR

005421
012327
000004

010324

013242

- SEQ 0059

#HNF ERR ,R3

5
PAGE &3

010000

s
sl

T.CS,R4

002000

——
i

15:35

T.MP+1,R3

177442
003044
001777

OCOO
A~ A~AAAA~AA~ -~
NN
WOV
O — (\) b b b ad b i i i e uuh
WM == " o o o o N
o OVONONESWN=O

24=MAR-80

ERROR MESSAGES

sl i

000200

MACY11

8888

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

RESTBL
(R4) , (R1)

*SET MESSAGE DATA CHECK

:SET MESSAGE DATA LATE

*SKIP
“SET BIT POINTER FOR TEST

:CLEAR R4 FOR TABLE COUNT
“TEST IF BIT IS SET
“YES = SKIP TO REPORT
*ELSE BUMP TABLE POINTER

:CLEAR CARRY

SSHIFT BIT POINTER TO NEXT BIT

SLOOP IF NOT 0

:ELSE REPORT REMAINDER
s INSERT NAME ADDRESS

[

024144

024352
003124

7%:

002000

003044

:::fl3:352§?2§8
~

O=NWNOWN

s
b
i
ad

PC,RPTREM

sREPORT REMAINDER

15%

:NO_- SKIP

TEMP3

15%:

#10,SP
#DCKERR,T.CS

:YES - SKIP

104414

;CLEAR COMPARE ERROR COUNT
;SET COMPARE LENGTH

sSET WORD COUNT

#1BUFF ,R4

;SET TEST WORD POINTER

19%
MORECE ,#10.

:GOOD - SKIP
:TEST IF COMPARE LIMIT REACHED

(RS), (R4)

20%

;SET GOOD WORD POINTER

s CHECK WORD

:YES = SKIP

#FMT15, #MJORD ,R3, #RESE3, (R4) ,#RESE4, (RS)
(RS) ,=(SP)

011160

#RESE4 ,=(SP)

(R4) ,=(SP)
#RESE3,-(SP)
R3,-(SP)

011154

006170
011746
000007

#MWORD
, - (SP)

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

SP,RO
CSPNTB

20%:
19%:

25%:

062706

;TEST IF OPI SET

#1,R3’

#OBUFF ,RS

000012

DATA CHECK ERROR

25%

#OPIERR,T.CS

18%:

;TEST IF

:NO - SKIP

#20,SP
MORE CE

(R5)+,(R4)+
R3
R1

010146
012746
013746
012746
012746
012746
010600

sTEST IF ANY NEW STATUS

25%

MOREC
#128. R1

003762

012701

JREPORT RESULTS

;GET NEXT BIT

#3,-(SP)
S°,R0
CSPNTB

003044

000020
003014

TEMP3,~(SP)

003014
000200
000001
004362

011546
012746
011446
012746
010346
012746
012746
012746

PC.RPTRES

#STAMES = (SP)
#EMT17,=(SP)

000010
004000

003014

5
PAGE 2-6

#FMT17 ,#STAMES, TEMP3

003124
010152
012013
000003

1063

JSR
BR

18%

MORECE

#128

:BUMP ERROR COUNTER
:BUMP POINTERS
BUMP COUNTER
;DEC_LENGTH_COUNT
:LOOP IF NOT DONE

Se NN,

013246

ERROR MESSAGES

15:35

24-MAR-80 15:

24=MAR-80

ES IF ANY COMPARE ERRORS

CZRLIC.MAC

MACY11 30A(1052)

L) I

|CZRLICO RLO1/02 DRIVE TEST ;7

- SKIP

ser COMPARE LENGTH

:;mgg/)ncsnnLMORECE ,#RESE6,R1
#RESE6,
- (SP)
MORECE ,=(SP)
#TCERR.=(SP)

#FMT27
.= (SP)
#5,-(SP)
SP,RO

CSPNTB

#14,SP

SEQ 0060

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

013524
013526
013530

013540
013542
013542

012605
012604
012603
012601
004737

27%:

016126

MOV
MOV
MOV
JSR

L10005:

104423

005277
010146
004737
012721
012721
013721

ENDMSG

MOV

167406

BGNMSG

ERR7

023356
000003
010523
003060

016126

PC,CKERLM

(SP)+,R1

ENDMSG

D
D

ERR8

@ERRPOINT
R1,-(SP)

R3,-(SP)

PC.RPTOP

CLC

#3,(R1)+
#MCYLOC, (R1)+
HDWRD1, (R1)
#7.R3

;GO CHECK IF ERROR COUNT EXCEEDED

+BUMP ERROR COUNT
:STORE R1
sREPORT OPERATION
:SET PARAM NUMBER
s INSERT NAME ADD POINTER
s INSERT IS VALUE
s INSERT SB VALUE
sREPORT RESULTS
;REPORT REMAINDER
;RESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

;BUMP ERROR COUNT
;STORE R1
;STORE R3

sREPORT OPERATION
:SET _PARAM NUMBER
s INSERT NAME ADD POINTER
:GET HEADER WORD

:SET SHIFT COUNT

003102

(R1)+
NEWCYL, (R1)
PC.RPTRES
PC,RPTREM

;BUMP PARAM POINTER
s INSERT SB VALUE
sREPORT RESULTS
;REPORT REMAINDER

016126

(SP)
+ ,R1
PC,CKERLM

;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

024144
024352

Iarr
RORURN RS

D e
d
D
D
d
—d

b
i
b s i
b

— e

AS IS VALUE

(SP)+,R3

ENDMSG

L10007:

167242

023356
000003
013726

BGNMSG

;RESTORE R3

C$MSG

R )
S
R
[

;ALIGN CHAR FOR PRINTING

)

3%:

;RESTORE RS, 4,

- SEQ 0061

C$MSG

D e
e

023356
00000 3
010726
003052
000007

D e

@ERRPOINT
R1,-(SP)
PC.RPTOP
#3,(R1)+
#MDRVST (R1)+
T.STAT,(R1)+
PC,RPTRES

L10006:

PC,CKERLM

PC.RPTREM

BGNMSG

PAGE 2-7

(SP)+,RS
(SP)+ ,R4
(SP)+,R3
(SP) +,R1

024352

167336

R3, (R1)

024144

D e

15:35

C$MSG

-0 38 AIRIRAC2S 33353 EENEREEL A BAG

228

1077
1078
1079

MACY11 30A(1052)
24=MAR-80
ERROR MESSAGES

ERR9

@ERRPOINT
R1,-(SP)

PC,.RPTOP

#3,(R1)+

R3.(R1)+
R4, (R1)+

;BUMP ERROR COUNT

:STORE R1
+REPORT OPERATION
;SET _PARAM NUMBER
: INSERT NAME ADD POINTER
;SET IS VALUE

bbb
s

NON)

alal
NN

COR L01/02 DRIVE TEST 1

C.MAC
7

013730

—_,
NN

) 014000

003014

004737

023356

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

014004
014010
014014
014020
014024
014026
014030

012746
012746
010600
104414
062706

014034

011546

014034

014036
014042
014044
014050

012746
011446
012746
010346

014056
014062

012746
012746

014052

MOV

ENDMSG
L10010:
BGNMSG

010146
005737
001051

005046
153716
012746
013745
012746

013766
013772

016126

24-MAR-80

ERROR MESSAGES

024144
024352

104423

) 013772
) 013774

S NWONNOOO —
O W
v
o—h—l

N PN

010521

004737
004737
012601
004737

005277

—

013732
013736
013742
013744
013750
013750
013750
013752
013752
013754
013760
013762

i il i PN PN i i o

BEIFRRULLR
LS

24-MAR-80 15:27

MACY11 30A(1052)

167166

006051

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

TRAP
ERR10
MOV
TST
BNE
INC
JSR
PRINTB

CSMSG

MOV

003026
006040
011443
000005

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

000014

PRINTB

MOV

011160

MOV
MOV
MoV
MOV

011154

R1,=(SP)
MORECE
3%

@ERRPOINT

HFMTS5 ,-(SP)
#5,-(SP)
SP,RO
CSPNTB
#14
,SP

#FMT14,#MRSLT,#MJORD ,R3,#RESE3, (R4) ,#RESES, (RS)
(RS) ,=(SP)

#RESE4 - (SP)
(R4) ,=(SP)
#RESE3,-(SP)
R3,-(SP)

014066
014072

012746
010600

000010

MOV
MOV

#10,-(SP)
SP,RO

014076
014102

062706
000421

ADD
BR

#22,SP
4%

(13) 014104
) 014106
) 014112

011546
012746
011446

MOV
MOV
MOV

(RS) ,=(SP)
#RESE4 - (SP)
(R4) ,=(SP)

014104

) 0164114

014120
014122
014126
014132

014136

1146

014140
014142
014146
014152
014154

014160

012746

38:
011160

011154

010346
012746
012746
012746

011746
000007

005237

003014

01
104414
062706

012601
004737

TRAP

000022

016126

48:
ENDMSG

L10011

#MRSLT,=(SP)
#FMT14 ,-(SP)
CSPNTB

#FMT15, #WORD R3,#RESE3, (R4) ,#RESE4, (RS) ;REPORT DATA

MOV

#RESE3,~(SP)

MOV
TRAP
ADD

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

MOV
MOV
MOV
MOV

00617C

000020

PRINTB

INC

MOV
JSR

:BUMP ERROR COUNT

RLBAS ,-(SP)
#BASADD ,~(SP)

#MWORD , - (SP)

104414

:STORE R1
STEST IF 2ND BAD LINE
:YES - SKIP

#DRVNAM.,
- (SP)

MOV

014074

sREPORT RESULTS
sREPORT REMAINDER
;RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

-(SP)
RLDRV+1, (SP}

006170

MOV
MOV

;SET SB VALUE

PC,RPTOP
;REPORT OPERATION
AFMTS,#BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1> sREPORT ID

012746

005421
011714

5
PAGE 2-8

R5,(R1)+

JSR
JSR
MOV
JSR

CLR
BISB

003033

15:35

R3,-(5P)
#MUORD, = (SP)

MORECE

(SP)+,R1
PC, CKERLM

s INC_COMPARE ERROR COUNT

sRESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

~ SEQ 0062

ERROR MESSAGES

ENDMOD

ENDHW

TRAP

HPTCODE

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

L10012-L$HW/2

174400
160
240

;TYPE OF DRIVE, RLO1=1, RLOZ2=2

;DRIVE NUMBER DEFAULT
;RL11 CONTROLLER

b
S

G
e b

ERLIMW:
DCLIMW:
ENDSW

~
N

—3

USE ALL CYLINDERS
USE ALL SECTORS
EXECUTE DRIVE SELECT TEST
EXECUTE HEAD ALIGNMENT
HEAD SELECT SUPPLIED FLAG
HILIMIT SPECIFIED FLAG
LO LIMIT SPECIFIED FLAG
DO MANUAL INTERVENTION

sERROR LIMIT
;COMPARE ERROR LIMIT

L10013:

LOLIMW:
HILIMW:
HEADW:

—SLa AW
—=O
wvisHwirn
nunun
nmunn

610013-L$SU/2

g b

.WORD
.WORD

MISWIW:

SPTCODE

BGNMOD
BGNSW

OO
NNWNNNNN
—t

;CSR_BASE ADDRESS DEFAULT
sVECTOR DEFAULT
sPRIORITY DEFAULT

ENDMOD

BGNMOD
DSPCODE
DISPATCH

e b

—
e
e i = D)
oS W= O

014256

.EVEN

il i i il
i
D
i and i
i -

+ ]

PAGE 2-9

L10012:

000000
000377
000000
000024
000012

el
i
i el i
N il e
) ) e
—

C$MSG

(6)

15:35

—_O —

24=MAR-80

D 00 0 00 B o 0 B

MACY11 30A(1052)

BGNMOD
BGNHW

—_

pa—

014200
014200
014200
014202

i
D

014176
014200
014200
014200

i
i
) D P
) - d D o

104423

014162

VNN NN

VS WN =000~ ~r

014160
014162

ONWORONO

il i i i
il ) i il s
) i ) i D A—l—d-—l.—l—lfi

VIV NTWNWNIWNLES
SN o W

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27

SEQ 0063

HN
n

MACY11 30A(1052)

.SBTTL

N
N

b
ooy

BAA
WW

D i
—
—

— e 1\ b N N =D d d e ) b N (N =
b

;P-TABLE OFFSET OF (SR
sNOT A MASS-BUSS DRIVE
;P-TABLE OFFSET OF DRIVE

INITIALIZATION CODE

sCHECK FOR PRESENCE OF A P-CLOCK

005037

003144

012700

000120

MOV

003146

MOV

RO, CLKADR

INC
SETPRI
MOV

CLKFLG
#340
#340,R0

104462
010037

005237

003144

012700

000340

CLR
CLOCK
TRAP

100014

005037

003002

012700

000034

103005

013737
000137
012700
104447

1%:

TRAP
MANUAL
TRAP

014202

2%:

002012
014766

003366

sGG
Ro'd

-b
b
b

000040

003074

RSTRT:

003154

sBRANCH IF NO P-CLOCK

s INDICATE PRESENCE OF A P-CLOCK
sSET PRIORITY TO 7 TO INHIBIT INTERRUPTS

C$SPRI

;CHECK IF MANUAL INTERVENTION ALLOWED

;YES - SKIP

BIC

A#MITEST!DRSELT!HDALIGN,MISWIW ;CLEAR ALL MANUAL

CLR

SSINDX

READEF
MOV
TRAP

#EF .PWR
#EF .PWR RO
CSREFG

ass

JMP

PWCON

LSUNIT PWRFLG

;' 'START'' COMMAND SEQUENCE

A H

;CLEAR CLOCK FLAG
;P=CLOCK?

C$CLCK

BNCOMPLETE

1$:

012737

#'P,RO

g?EOHPLE{E

103034

013737

CLKFLG
P,CLKADR

CSMAN]
gEgHPLEYSs

103403
042737

104447

(=lele]

)
—_—

—
2

- SEQ 0064

BGNMOD
INITCODE
BGNINIT

104450

3 e

M5
PAGE 2-10

éLOAD PROTECTION TABLE
GNPROT
.WORD
0
.WORD
10
. WORD
ENDPROT

000000
177777
000010

104441

—

15:35

ENDMOD

103002

PONININON
AN A ANIPNININ AN A ANN

24-MAR-80

ERROR MESSAGES

D i

—

D i ol

014260

d e

014260

) D i

e
e e8BEIR
CRS88BIRI
R0

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24=MAR 80 15:27

: INTERVENTION FLAGS

;CLEAR SUBROUTINE STACK INDEX

;POWER FAILURE?

:NO, GO CHECK NEW PASS

;SET POWER FAIL FLAG

;GO SERVICE POWER FAIL

READEF
#EF .START
;CHECK IF START
MOV
#EF .START
RO
TRAP
CSREFG
BNCOMPLETE
RESTART ;NO - SKIP
BCC
RESTART
ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR INTERNAL
PASS COUNT, AND ERROR COUNT
MOV
LSONIT,DRVCNT ~ ;SET UP UNIT COUNT
CLR
PASNUM
*CLEAR PASS NUMBER
MOV
#ERRCNT
RO
MOV
. .R1
;GET A COUNT
CLR
é?O)*
sCLEAR ERROR COUNTER STORAGE AREA
DEC
BNE
18
;LOOP TILL ALL CLEARED
#ERRCNT=2,ERRPOINT ;INIT ERROR POINTER
MOV

AANNNNANA AN

<MAC

—d
—_—

p—g

AT
E T et et 1 N’-'F-'
®
o

lals
NN

CO RLO1/02 DRIVE TEST 1
014426

24-MAR-80 15:27

012737

177777
177777
040000

MACY11 30A(1052)
24-MAR-80
INITIALIZATION CODE

003360
003010
014202

014204

LAB:

5% :

014466

014470
014470
014470

014474
014476
014476

014500

BNE
CLR
BR

13
LOL IMw
SETDON

:YES = SKIP
;ELSE CLEAR LO LIMIT

READEF

TRAP

BCS

104447

#EF .RESTART

#EF .RESTART,RO
CSREFG

RSTRT

#EF.CONTINUE

TRAP

CSREFG

#EF . CONTINUE
,RO

BCOMPLETE
:

BCS

PWCON

TRAP

NXTPAS :
003154
003074
003360

#EF .NEW

CSREFG

PASNEW

TST

DRVCNT

;TEST IF CONTINUE

;CHECK IF STARTING NEW PASS

PASNEW

;TEST IF ALL UNITS CHECKED

SETDON

ADD
MOV
MOV

TRAP

C$GPHRD

MOV
MOV
MOV
SETDON: INC
DEC

GPHARD

RO,R1

MOV

RO.R1

PWRFLG

g(c:gmur;s

BEQ

NXTPAS

:NO

:SKIP IF GOOD PARAM

;RECENT POWER FAILURE

DEC
PWRFLG
;ACCOUNT FOR DRIVE
BR
NXTPAS
-MOVE P—TABLE camems TO LOCAL STORAGE

003366

7$:

012122

000001

002276

000776

002306

(R1)+,(R2)+

:STORE CSR

nov

(R1)+.(R2)+

*STORE VECTOR

MOV

(R1)+,T.DRIVE

;STORE DRIVE TYPE

CMP
BEQ

#1,7T.DRIVE
658°

MOV

#510. ,NXTHL

TST

002276

012737

:NO = SKIP

*NO = SKIP
PASNUM
*ELSE BUMP PASS COUNT
#ERRCNT=2,ERRPOINT ; INIT ERROR POINTER
LSUNIT,DRVCNT
;GET ALL DRIVES
#-1,PSETNM
*SET PARAM SELECT TO INITIAL
PSETAM
SNEXT SET OF PARAMETERS
DRVCNT
:DOWN COUNT DRIVE TOTAL
cz ERRPOINT
:UPDATE THE ERROR POINTER
PSETNM, RO
:SET UP TO GET PARAMETERS
#RLBAS .R2
:GET POINTER TO RL11 BASE ADDRESS

PASNEW: INC

003154

014614

;CHECK IF RESTART

PWCON

#EF .NEW,RO

BCOMPLETE
BNE

814616

:TEST IF LO LIMIT SET

ON CONTINUE PICK UP UNIT LAST UNDER TEST

READEF

MOV

000035

103403

014612

RSTRT

READEF

MOV

000036

103533

012700

#LOCYL ,MISWIW

;"'CONTINUE'* COMMAND SEQUENCE

CONT INUE :

012700

SEQ 0065

;SET PARAM SELECT TO INITIAL VALUE
;PRESET HEAD ALIGN DONE FLAG

BCOMPLETE

103743

5
PAGE 2-11

#=1,PSETNM
#=1,HADONE

MOV

000037

MOV
MOV

BIT

RESTART:

15:35

MOV

(R1)+"

(R1)+,(R2)+

;INITIALIZE RLO2 PARAMETERS

*BUMP PAST PRIORITY

CZRLICO RLO1/02 DRIVE TEST 1

CZRLIC.MAC

24-MAR-80 15:27

MACY11 30A(1052)

INITIALIZATION CODE

1272
1273

014646
014654

012737
012737

000777
001000

002302
002310

1275
1276
1277

014670
014676
014704

012737
012737
012737

177600
177600
177000

002314
002316
002304

1276

014662

012737

177600 002312

1279
1280
1281

1278 014712

000425

014714
014722

012737
012737

000377
000400

002302
002310

1283
1284
1285

014736
014744
014752

012737
012737
012737

077600
077600
000376

002314
002316
002306

1282

014730

012737

077600

002312

}ggg

014760

012737

1288
1289
1290
1291
(7)
(6)

014766
014774
014776
015004
015004
015010

032737
001003
013737

020000

014202

002302

014206

012746
012746

000340
016052

(4)
(3)
(2)
1292
(3)
(3)

015020
015024
015026
015032
015032
015036

012746
104437
062706

000003

1295
1297
1298
(3)
1299
1§56

015044
015044
015046
015046

103004

1301
1302

015050
015054

005737
001001

(5)

}332

1332

015014

015040

015056

013746

012700
104441

013702

177400

#177600
.0 IRMSK
#177600.HDC
YL
#177000, CLRBYT

SEQ 0066

#177600
., CAMSK

PWCON

PWCON:

1%:

#77600, CAMSK

MOV
MOV
MOV

#77600.DIRMSK
#77600
. HDCYL
#254. NXTHL

BIT
BNE
MOV
SETVEC
MOV
MOV

AHICYL MISWIW
18
HLMTW,
HIL IMW
RLVEC,#INTHLR,#340
#340,=(SP)
#INTHLR,
- (SP)

MOV
TRAP
ADD
SETPRI
MOV
TRAP

#3,-(5P)
CSSVEC
#10,SP
#0
#0,RO
($SPRI

MOV

003026

MOV

#177400, CLRBYT

003356

TST
BNE

000520

B8R

;SET UP INTERRUPT VECTOR FOR DRIVE

RLVEC,-(SP)

JSET PRIORITY TO O TO ALLOW INTERRUPTS

RLBAS ,R2

MANUAL
TRAP
CSMANI
BNCOMPLETE
BCC
4

104450

;SET RL11 BASE ADDRESS POINTER

;MANUAL INTERVENTION ALLOWED?
4

PASNUM
43

:NO

JYES, CHECK PASS NUMBER
*NOT FIRST PASS, NEED DRIVE UP

*FIRST PASS, PROGRAM WILL INSTRUCT USER

;CHECK IF POWER FAILURE WAIT IS NEEDED
003366

1311

015066

013705

003032

1318
1319

MOV
MOV
MOV

MOV

000000

005737

}g}g

6
PAGE 2-12

#511. ,HLMTW
#512. . GBND

B8R

000010

015060

1314
1315

;INITIALIZE RLO1 PARAMETERS
658:
MOV
#255. ,HLMTW
MOV
#256. .GBND

003030

1308

1312
1313

15:35

MOV
MOV

MOV

002304

}ggg
};98

24-MAR-80

015064

015072
015076

015102
015106
015114

015116

001515

052705
010562

012701
032762
001101

48:

MOV

000200
000000

000170
000001

BEQ
BIS
MOV

000000

9$:
LLIST

MOV
BIT
BNE
ME
WAITMS

PWRFLG

:NEEDED?

RLDRV.,RS

:DRIVE SELECT

:NO, SKIP

#CRDYMSK ,RS
RS,RLCS (R2)

*SET CRDY
*SELECT DRIVE

:YES START TEST

#10.

;WAIT A SECOND

#120. R
INITIALIZE WAIT COUNT
#DRDYMSK ,RLCS (R2)
:DRIVE UP YET

RLICO
RLO1/02 DRIVE TEST 1.
RLIC.MAC
24~MAR-80 15:27

(1)
(1)
(1)
(1)
(2>

015116
015153
015130
015134
015134

012737
006337
006337

000012
003142
003142

000372

015134

012727

(2
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)

015140
015140

000000

015142
015142

013727

015146
015146

000000

(2)

(3)
3

(3)
(3)
(2)
(3)
(3)
(2)

(3)
(3)
(1)

(1)
1320
1321
1322
1323
(8)
(7)
(6)
(3)
(4)

(4)

015150

015154

001375

015156
015156

005367

015162

001367

015164
015170

005337
001361

015172
015174
015176
015176
015202
015206
015212
015214

005301
001344

015216

1324
(11)
(11)
(10)
(9)
(8)

015222
015222
015224
015230
015234
015240

(4)
(4)
1325
1326
(7)
(6)
(3)

015256
015

gz;

005367

8125?3

015264
015264
015270
015274

012746
012746
012746
010600
104417

002116
"

177772

177756

003142

006056
012247
000002

000006

005046
153716
012746
013746
012746

003033
006051
003026
006040

012746
012746
010600

30A(1052)
24-MAR-80
INITIALIZATION CODE

003142

MOV
ASL
ASL
64$:
DELAY
MSGNINS <MOV

wextr

011443
000005

000014
011427
000001

15:35

PAGE 2-13

##10. ,DLYCNT
DLYCNT
DLYCNT
#250.
##250.,(PC)+>

SEQ 0067

;INITIALIZE DELAY COUNTER
:MULTIPLY ARGUMENT BY 2
:MULTIPLY ARGUMENT BY 2 AGAIN
: IMPLEMENT 25-MS TIME DELAY

#4250, , (PC)+

MSGNINS <.WORD
0>
.WORD
0
MEXIT
MSGNINS <MOV LSDLY, (PC)+>
MOV
LSDLY, (PC)+
MEXIT
MSGNINS <.WORD
0>
.WORD
0
MEXIT
MSGNINS <DEC
=6(PC)>

MEXIT

DEC

MSGNINS <BNE

062706

012746
12746
10600
104417
062706

MACY11

BNE
MEXIT
MSGNINS <DEC
DEC
MEXIT
MSGNINS <BNE
BNE
MEXIT
DEC
BNE
NLIST
ME
DEC
BNE
PRINTF
MOV
MOV
MOV
MOV
TRAP

ADD

PRINTF
CLR
BISB
MOV
MOV
MOV

-6(PC)
.=4>

=4
=22(PC)>
-22(PC)
.-20>

.=20
DLYCNT
648

:DECREMENT DELAY COUNT
:BRANCH IF TIME DELAY NOT EXPIRED

R
93
#FMT24,#NOPWR
#NOPWR
. = (SP)
#FMT24
= (SP)
#2,-(SP)
SP RO
CSPNTF

:SIXTY GONE BY
:NO
.
:REPORT ‘DRV DID NOT REC'R FROM PWR FAIL''

#6,SP

#FMTS,#B
,RLBAS ,#DRVNAM,
ASAD
<B,RLDRV+1>
D ;REPORT DRIVE UNIBUS
-(SP)
RLDRV+1,(SP)
#DRVNAM
. - (SP)
RLBAS
, - (SP)
#BASADD
, - (SP)

MOV
MOV
MOV
TRAP
ADD

#EMTS = (SP)
#5,-(SP)
SP.RO
CSPNTF
#14,SP

PRINTF
MOV
MOV
MOV

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

sNEW LINE

:/ADDRESS AND DRIVE NUMBER

r—

'CZRLICO RLO1/02 DRIVE TEST

1
24=MAR-80 15:27

RRES
oo

il e

005037

a0 W

N
N
N

DODU
MOV

TRAP
DOCLN
TRAP

15:35

6
PAGE 2-14

SEQ 0068

CSPNTF
4 ,SP

PSETNM
PSETNM,RO

;DO DROP UNIT ON DRIVE

C$DODU

s INVOKE CLEAN-UP CODE

CSDCLN

CLR

ERRVEC

TRAP

CSINIT

TO RESTORE DRIVE

;/TO STATIC STATE

;CLEAR ERROR VECTOR

8%:
ENDINIT

L10015:

104411

015322

ENDMOD

.SBTTL

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.
:1F THE DRIVE IS NOT READY IT IS DROPPED FROM THE TEST CYCLE AND THE NEXT
;DRIVE IS ACCESSED. IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED
;AFTER WHICH THE NEXT DRIVE

015322
015322
015326

015326
015332

015336
015342

015346
015350

015354

BGNAUTO

005037

003364

012746
012746
013746
012746

000340
016120
003140
000003

MOV
MOV

062706

000010

ADD

#10,SP

MOV

RLBAS ,R2

BEQ

104437

013702
005762
005737
001447
012746
012746
012746
010600
104417

TRAP
ADD

003140

W
no

015320

30A(1052)
24-MAR-80
INITIALIZATION CODE

104444

i
b
-d

_— 2

vV
WWW

104451

003360

[elelelelelels]

013700

Vi owv
W
W
N
=

000004

Vi i

[« NV I NV ¥} Py

V==
NS WONN0

WA
=

I3R I1Y S30S 3aN Nre
TCUORTEE
3
L

(8)

104417
062706

015320

ARG

—
D PN

WNWWW
A A NN WW
WWW

d —_
d —d —d

WWWWIWN W

—

e lalal’. alalalalal"

1357

CZRLIC.MAC

MACYT1

062706
00504¢

153716

012746
013746
012746

003026
000000
003364

006730
012247
000002

CLR

SETVEC

TRPFLG

#340,-(SP)

MOV

#3,-(SP)

TST
TST

;SET UP TRAP VECTOR TO DETECT

#TRPHAN,
- (SP)
ERRVEC,~(SP)
CSSVEC

RLCS(R2)
TRPFLG

PRINTF #FMT24 ,#NOCTLR
MOV
#NOCTLR,=(SP)

MOV
MOV

: CLEAR TRAP FLAG

ERRVEC,#TRPHAN,
4340

MOV

TRAP

IS ACCESSED.

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

s /NON=-EXISTENT CONTROLLER UNIBUS

: /ADDRESS

;GET RL11 BASE ADDRESS

sACCESS DRIVE CONTROLLER UNIBUS ADDRESS
:DID TRAP OCCUR?

;BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR

ELSE, PRINT MSG.

‘DRV DROPPED = NO CNTLR'

MOV
TRAP
ADD
?féNTF

SP,RO
CSPNTF
#6,SP
#Qg;?,lBASADD,RLBAS,lDRVNAM.(B.RLDRV*1>

BISB
MOV
MOV
MOV

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

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC

24-MAR-80 15:27

(7)
(6)
(3)
(4)
1§§$

015440
015444
015450
015452
015454

1360
(7)
(6)
(3)
(4)
(4)
1361
(3)
(3)
1362
1363
1364
1365
1366
1367
1368
(8)
(7)
(6)
(3)
(4)
(4)

015460
015460
015464
015470
015472
015474
015500
015500
015504
015506
015510
015514
015520
015524
015532
015534
015534
015540
015544
015550
015552
015554

1369
(11)
(11)
(10)
(9)

015560
015560
015562
015566
015572

(8)
(7)
(6)
(3)
(4)
1§;6

015576
015602
015606
015612
015614
015616

1371
(7)
(6)
(3)
(4)
(4)
1372
(3)
(3)
1373
(3)
(3)
1374
(3)
(3)

015622
015622
015626
015632
015634
015636
015642
015642
015646
015650
015650
015654
015656
015656
015656

012746
012746
010600
104417
062706

MACY11 30A(1052)

24-MAR-80

AUTO DROP SECTION

011443
000005

MOV
MOV
MOV
TRAP
ADD

000014

15:35

PAGE 2=15

#FMTS5,=(SP)
#5,<(SP)
SP,RO
CSPNTF

#14,SP

sPRINT DRIVE INFORMATION

012746
012746
010600
104417
062706

013700
104451
000460
013705
052705
010562
032762
001046
012746
012746
012746
010600
104417
062706
005046
153716
012746
013746

012746
012746
012746
010600
104417
062706

011427

000004

003360
003032
000200
000000
000001

000000

006757
012247
000002
000006

PRINTF
CLR
BISB
MOV
MOV

003033
006051
003026

04
011443

000014

012746
012746
010600
104417
062706

011427
000001

013700
104451

003360

013700
104436

003140

104461

1$:

PRINTF
#FMT3
MOV
#FMT3,-(SP)
MOV
#1,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#4 ,SP
DODU
PSETNM
;DO DROP UNIT ON DRIVE
MOV
PSETNM,RO
TRAP
C$DODU
BR
2%
BRANCH TO EXIT
MOV
RLDRV,RS
ELSE GET DRIVE NUMBER
BIS
#CRDYMSK
,R5
:SET CONTROLLER READY
MOV
R5,RLCS(R2)
:LOAD IN THE DRIVE NUMBER
BIT
#DRDYMSK ,RLCS (R2)
;1S DRIVE READY?
BNE
2%
sBRANCH TO PERFORM TESTS IF DRIVE IS READY
PRINTF #FMT24 ,#NOTRDY
JPRINT MSG. "DRV DROPPED - NOT RDY''
MOV
#NOTRDY ,~(SP)
MOV
#FMT24 ,-(SP)
MOV
#2,-(SP)
MOV
SP,RO
TRAP
CSPNTF
ADD
#6,SP

000004

2%:

ENDAUTO
L10016:

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

MOV
MOV
MOV
MOV
TRAP
ADD

#BASADD,
- (SP)
HFMTS ,~(SP)
#5,-(SP)
SP,RO
CSPNTF
#14,SP

PRINTF
MOV
MOv
MOV
TRAP
ADD
DODU
MOV
TRAP
CLRVEC
MOV
TRAP

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

TRAP

($AUTO

;PRINT DRIVE INFORMATION

;DO DROP UNIT ON DRIVE
JRELEASE THE ERROR VECTOR

SEQ 0069

——

l(ZRLXCO RLO1/702 DRIVE TEST 1
CZRLIC.MAC

24-MAR-80 15:27

MACY11

30A(1052)

24=MAR-80

AUTO DROP SECTION

15:35

PAGE 2-16

SEQ 0070

1376
BGNMOD
BGNCLN

062706

000010

TRAP
ADD

012700

000007

SETPR] #7
MOV
#7 RO

;SET PRIORITY TO 7

032762
001407
053762
032762
001026

000200

000000

003032
000001

000000
000000

BEQ
BIS

33
RLDRV,RLCS(R2)

:NO LOOP UNTIL READY
;SET DRIVE NUMBER

;NO - skipP

JWAIT 300 MS

DLYCNT
DLYCNT

MULTIPLY ARGUMENT BY 2
;MULTIPLY ARGUMENT BY 2 AGAIN

N
OV
W
=

SS
Y
e

S
~

015740
015742
015742
015750
015754
015760
015760
015760

012727

015764
015764

000000

015766
015766

013727

012737

015772

0000C0

015774
015774

005367

016000
016000

001375

016002
016002

005367

016006
016006

001367

016010
016014

005337
001361

016016

ERRVEC,#TRPHAN,#340

000340
016120
003140
000003

104441

015772

SETVEC

012746
012746
013746
012746
104437

(3)

CLNCODE

000372

002116

177772

177756

003142

#340, -(SP)

MOV

#3,-(SP)

MOV
MOV

LLIST

000003
003142
003142

MOV

003142

3%:

lTRPHAN -(SP)
ERRVEC,-(SP)

C$SVEC
#10,SP

TRAP
BIT

C$SPR1
#CRDYMSK ,RLCS(R2)

JTEST IF

BIT

#DRDYMSK ,RLCS (R2)

sTEST IF DRIVE BUSY

ag&

WAITMS

MOV

ASL
ASL

64%:
DELAY
MSGNINS <MOV
MOV
MEXIT
MSGNINS <.WORD
WORD
MEXIT
MSGNINS <MOV
MOV
MEXIT
M$GNINS <.WORD
WORD
JMEXIT
MSGNINS <DEC
DEC
MEXIT
M$GNINS <BNE
BNE
MEXIT
MSGNINS <DEC
DEC
LMEXIT
MS$GNINS <BNE
BNE
MEXIT
DEC
agf
NLIST
5%:
CLRVEC

#43 DLYCNT
#250.

##250., (PC)+>

CONTROLLER READY

sINITIALIZE DELAY COUNTER

; IMPLEMENT 25-MS TIME DELAY

#n250.,(PC)+
0>

LSDLY, (PC)+>
LSDLY, (PC)+
O>

-6(PC)>

-6(PC)

~4>
.~
=22(PC)>

=22(PC)
~20>
.~20
DLYCNT
64%

;DECREMENT DELAY COUNT
sBRANCH IF TIME DELAY NOT EXPIRED

RLVEC

JRELEASE DRIVE VECTOR

CZRLICO RLO1/02 DRIVE TEST 1_
CZRLIC.MAC
24-MAR-80 15:27

(3)
(3)
1394
1395
1396
1397
(3)
(3)
1396
(3)
1§3$

016016
016022
016024
016030
016032
016036
016036
016042
016044
016044
016044

1400
1401
1402
(3)

016046
016046
016050
016050

128;

016050

1404
1405
1406
1407

016052

013700
104436

MACY11 30A(1052)
24-MAR-80
AUTO DROP SECTION

003030

005737
001402
005337

003366

013700
104436

003140

MOV
TRAP

003366

7%:

ENDCLN
L10017:

104412

BGNDU

000240

ENDDU
L10020:

104453

.SBTTL
016052

1413
1414

005037
012237
012237
012237

003142
003044
003046
003050

1417
1418
1419

016076
016104
016110

012737
013702

177777
003026

(3)
1256

1421
1422
1423
1424
1425

(3)
125&

1427
1428
1429
1430
1431

(3)
(2)
1432
1433

016072

016110
016110

016112
016112
016116

016116
016116

016120
016120
016124
016124
016124

PWRFLG
7$
PWRFLG
ERRVEC
ERRVEC,RO

TRAP

CSCLEAN

TRAP

PAGE 217

SEQ 0071

;PWR FAIL SET
:NO

C$CVEC

NOP

C$bU

ENDMOD

016052
Q16056
016062
016066

1415
1416

RLVEC,RO
CSCVEC

TST
BEQ
DEC
CLRVEC
MOV

TRAP

}283
1410
1411
1412

15:35

G_6

011237

003052

005337

003142

000002

003364

MOV
MOV
MOV

(R2)+,T.CS
(R2)+.T.BA
(R2)+,T.DA

:STORE RL REGISTERS

MOV
MOV

#-1,DONE
RLBAS ,R2

;SET DONE FLAG
JRESTORE RZ2

MOV

003006
ENDSRV

REGISTERS

(R2),T.MP

RTI

: INTERRUPT SERVICE ROUTINE FOR P-CLOCK DECREMENTS DELAY COUNTER AT 100-MICROSECOND
: TIME INTERVALS
BGNSRV
CLKINT
DEC
DLYCNT
;DECREMENT CLOCK DELAY COUNTER
ENDSRV

L10022:

000002

005237

BGNSRV
INTHLR
: INTERRUPT HANDLER FOR DRIVE ABORTS WAIT TIMER AND STORES ALL RL11
CLR
DLYCNT
s CLEAR UNELAPSED DELAY COUNT

L10021:

000002

INTERRUPT SERVICE ROUTINES

RTI

s INTERRUPT SERVICE ROUTINE SETS TRAP FLAG WHEN A NON-EXISTENT UNIBUS ADDRESS IS
ACCESSED
BGNSRV
TRPHAN
INC
TRPFLG
;INDICATE THAT TRAP OCCURRED
ENDSRV

L10023:

RTI

[

—————————————

| CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC

24=MAR=-80 15:27

MACY11 30A(1052)

GLOBAL SUBROUTINES

1435
016126

1440
1441
1442

1443
1444

1465

016126

01613

1446 016136

027737

002453

(3)

016136

104420

(2)

016140

103451

1447 016140
|

1468
(9)
(8)
(7)
(6)

016142
016142
016146
016152
016156

(4)
1449
(11)
(11)
(10)
(9)
(8)
(7)

016166
016172
016172
016174
016200
016204
016210
016214

(3)
(4)
(4)
1450
(7)
(6)

016224
016226
016230
016234
016234
016240

(3)
(4)

(6)

(3)

(4)
(4)
1451

(3)
(3)
1452
(3)
1453

1454
1455
1456
1457
1458
16459
1460
1461
1462
1463

15:35

PAGE 2-18
SEQ 0072

.SBTTL GLOBAL SUBROUTINES

1436

1437
1438
1439

24-MAR-80

016162
016164

016220

016244

016246
016250
016254

012746
013746
01274%
012746
010600
104417
062706
005046
153716
012746
013746
012746
012746
012746

010600
104417
062706

012746
012746

010600

104417
062706

016254
016260
016262
016262
016264

104444
000207

016266
016274
016302
016310
016316

016237
016237
016237
016237
000207

013700
104451

165022

014212

BGNMOD

GLBSUB

;
:

ERROR LIMIT CHECKING ROUTINE
DROPS DRIVE IF ERROR LIMIT EXCEEDED

CKERLM:

CMP _

BLT

INLOOP

RERRPOINT .ERLIMW

TRAP

CSINLP

BCS

BCOMPLETE

MOV

MOV
MOV
MOV
TRAP
ADD
PRINTF
CLR
BISB
MOV
MOV
MOV
MOV

000010

003033
006051
003026
006040
011443

000005

MOV

000014

011427
000001
000004

003360

1$:

003044
003046
003050
003052

#FMT25,-(SP)
#3,-(SP)
SP,RO
CSPNTF
#10,SP
lFMTS #BASADD ,RLBAS ,#DRVNAM, ;PRINT DRIVE
=(SP)
RLDRV+1, (SP)
#DRVNAM
, - (SP)
RLBAS,~(SP)
#BASADD
, - (SP)
HFMTS5,-(SP)

#5,-(SP)

SP,RO
CSPNTF
#14,SP
#FMT3
#FMT3,-(SP)
#1,-(SP)

TRAP
ADD
DODU

CSPNTF
#4,SP
PSETNM

MOV
TRAP
DOCLN
TRAP
RTS

'‘OVER ERROR LIMIT - UNIT DROPPED''

ERL IMW,~(SP)

MOov
TRAP
ADD
PRINTF
MOV
MOV

MOV

ERROR LIMIT EXCEEDED

*CHECK IF IN ERROR LOOP
:YES - SKIP

PRINTF #FMT25 ERLIMW,#MEXERS :PRINT MSG.
MOV
#MEXERS ,-(SP)

01110 1
01421 2
01225 4
00000 3

000000
000002
000004
000006

:TEST

:NO - SKiP

SP,RO

PSETNM,RO
C$DODU

CS$DCLN
PC

:DROP DRIVE

;GO TO CLEAN UP

2
READ AND STORE ALL RL11 REGISTERS
READRL: MOV
RLCSR(R2) ,T.CS
;GET CS REG
MOV
RLBA(R2) ,T.BA
;GET BUS ADDRESS REG
MOV
RLDA(RZ2) ,T.DA
;GET DISK ADDRESS
MOV
RLMP(R2) ,T.MP
;GET MULTI-PURPOSE REG
RTS
PC
JRETURN

INFORMATION

f—'

| CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
1464
1465
1666

1467

1468
1469

1470
1471
1472
1473

016320

016322
016326

01633
016336
016342
016346

011646

005066
032762

001420
004737
005737
001453

000002
000200

30A(1052)

000000

016266
003006

1484

016422

1486

016430

005367

177772

1488

016436

005367

177756

1490

016444

032762

000200

1492

010454

004737

016266

1495

016470

005737

003006

1497
1498

016476
016502

004737
012766

016266
006236

005037

003004
003363

TSTINT:

22
26

005037
105037

016530
016534

013746
012737
000412
013746
012737
000404
013746
005037

003126
000013

003126

GSTATR:

003126
000003

003126

016460

)
—

— e

&H
~

—

)

) —d —

Yele JENTe NV F NPT V=)

—d — —d —d —d

b —d

o onwonawnnanaonaog

12
16

016550
016560
016564

012766

006176
002000

000002

006216

000002

000001
003142
003142
000012

003142

003044

1%:

2%:

4%:

002116

006271

6
PAGE 2-19

000000
000002

3%:
000002

5%:

2(SP}

SEQ 0073

LEAR FOR _POINTER

#CRDYMSK , RLCSR(R?)

TST

DONE

4%
PC,READRL

;TEST IF CONTROLLER READY

:NO - SKIP TO WAIT
sREAD ALL RL REGS

sTEST IF INTERRUPT OCCURRED

BEQ
MOV

5%
A#MTOSLOW,2(SP)

:NO = GO SET NO INTERRUPT ERR FLAG
;ELSE SET TOO SLOW ERROR POINTER

BEQ

:NO - SKIP

BIT

MOV
RTS
MOV
ASL
ASL
MOV
. WORD
MOV
.WORD
DEC
BNE

DEC
BNE
BIT
BNE

003014

003126
003126

BIT

BEQ
JSR

012766
032737
001403
012766
000207
012737
006337
006337
012727
000000
013727

1493

15:35

WAIT FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUT INE
(SP) ,-(SP)
MAKE ROOM FOR ERROR POINTER

WAITIN: MOV
CLR

016350
016356
016364
016366
016374
016376
016404
016410
016414

000000

24-MAR-80

GLOBAL SUBROUTINES

1474
1475
1476
1477
1478
1479
1480
1481
1482

24=MAR-80 15:27

MACYT1

#OPIERR,T.CS

#MDRRES ,2(SP)
PC
#1,DLYCNT
DLYCNT
DLYCNT
810..(PC)*

;TEST IF OPI

SET

;SET MESSAGE FOR NO DRIVE RESPONSE
:RETURN

:INITIALIZE DELAY COUNT
;MULTIPLY BY 2
JMULTIPLY BY 2 AGAIN
; IMPLEMENT TIME DELAY LOOP

LSDLY, (PC)+
0
=6(PC)
.4
=22(PC)
.=20
#CRDYMSK ,RLCS(R2) ;TEST IF READY NOW SET
3s
;YES = SKIP

JSR
ggv

PC ,READRL
5§CONHNG.2(SP)

;READ RL REGS
:gE}PHESSAGE FOR CONTROLLER HUNG

TST
BNE
JSR
MOV
8R

DONE
1$
PC ,READRL
#MNOINT ,2(SP)

JELSE CHECK IF INTERRUPT OCCURRED
;YES = SKIP TO SET TOO SLOW
;READ RL REGS
;ELSE SET NO INTERRUPT FLAG
;GO TO RETURN

OPERATION AND TEST
CLR
OPF LAG
CLRB
NOERCT
g%g
E?RECE

INITIALIZE ROUTINE
;CLEAR OPERATION FLAGS
JRESET INHIBIT ERROR COUNTING
;RESET MORE COMPARE ERRORS

SST STATUS AND GET STATUS WITH RESET ROUTINE

MOV
BR
GSTATC: MOV
MOV
BR
GSTAT:
MOV
CLR

TEMP4 ,~(SP)
:STORE TEMP4
#GETSTAT!DRSET, TEMP4
sSET FOR RESET
GSTATG
TEMP4 ,-(SP)
;STORE TEMP4
HGETSTAT,TEMP4
:SET FOR NO RESET
GSTATG
TEMP4, - (SP)
:STORE TEMP4
TEMP4
;SET FOR SAVE L. AND T. REGS

(CZRLICO RLO1/02 DRIVE TEST15:271
016570
016572
016576
016600

24-MAR-80
010346

003002

GSTATG: MOV

003016
003126

040000

000000

WWNN
= b e

N
N
N
N
N

VB WN=O0

SIEN

KX &\h\h\h\h
SN ~

W
T
R
e
e
S

(1)

013727

#DRSET, TEMP4

016702
016702

000000

016704
016704

005367

016710
016710

001375

016712
016712

005367

016716
016716

001367

016720
016724

005337
001361

003142

016726

012701

000030
016560

001010
032737

MEXIT
M$GNINS

002116

MEXIT
MSGNINS

LMEXIT
MSGNINS

177772

MEXIT
MSGNINS

177756

SEQ 0074

;STORE R3
:GET SUBROUTINE INDEX
:BUMP IT FOR NEXT ENTRY

MEXIT
MSGNINS

MEXIT
.NLIST
:
(9%

50%:

;ADJUST IT TO CALLING LOCATION

:STORE IT BACK

:STORE RO
:STORE R1
sSET FOR NO ERROR RETURN
sTEST IF DRIVE RESET

11$
:NO
- SKIP
#DRVERR ,RLCS(R2)
;TESTSI; DRIVE ERROR SET
49%
l

JWAIT FOR DRIVE TO SETTLE

DLYCNT
DLYCNT
#250.
##250.,(PC)+>
#n250.,(PC)+

JMULTIPLY ARGUMENT BY 2
sMULTIPLY ARGUMENT BY 2 AGAIN
; IMPLEMENT 25-MS TIME DELAY

##41,DLYCNT

MEXIT
MSGNINS

000000

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

RO,=(SP)
R1,=(SP)
#2 ,ERRSWI

64%:
MSGNINS

(2)

PAGE 2-20

R3.SSINDX

003142

000372

#4, SUBSTK (R3)

LLIST

012727

15:35

4(SP),SUBSTK (R3)" ; INSERT THIS CALL

002404
002404

000002
000010

000001
003142
003142

24=-MAR-80

GLOBAL SUBROUTINES

003002
000004
000004

i cnd i

sl i

sl il i

viviwviwvawviviog

CZRLIC.MAC

MACY11 30A(1052)

sINITIALIZE DELAY COUNTER

0>
0

LEDLY, (PC) +>
LSDLY, (PC)+
0>
0
-6(PC)>
-6(PC)
.~4

=22(PC)>
=22(PC)
.~20>
.~20
DLYCNT

64%

#24. ,R1

;DECREMENT DELAY COUNT

sBRANCH IF TIME DELAY NOT EXPIRED
JINITIALIZE WAIT COUNTER

PC,GSTAT

;GET DRIVE STATUS

000001

003044

#DRDYMSK ,T.CS

;TEST

IF DRIVE READY

000020

003052

AHOSTAT ,T.MP

ELSE

TEST IF HEADS OUT

144000

003052

lSPDSTAT'HCESTAT'UDESTAT T.MP ;TEST

51%

;YES = GO DO CLEAR

YES = BYPASS RELOAD WAIT FLAG SETTING
IF

DRIVE HAS ERROR

: THAT CAUSED HEADS TO

*UNLOAD

CZRLICO RLO1/02 DRIVE TEST 1

CZRLIC.MAC

24-MAR-80 15:27

1546
1547
1548
1549

016766
016770
016776
017000

1552
(1)
(1)
(1)
(1>
(2)
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)
(2)

017010
017010
017016
017022
017026
017026
017026

017032
017032

000000

017034
017034

013727

}gg?

(3)
(3)

(2)
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)
(1)
(1)
1553
1554
1555
1556
1557
(4)
(5)
(5)
(5)
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567

017006

017040

001466
052737
000462
032737

003004

040000

003044

012737
006337
006337

000001
003142
003142

003142

012727

000372

001056

000000

017042
017042

005367

017046
017046

001375

017050
017050

005367

017054

001367

017056
017062

005337
001361

017064
017066
017070
017074
017074
017076
017100
017102
017104
017110
017114
017116
017122
017126
017130
017132
017134
017142

005301
001321
012703
104456
023421
000000
012340
000137
005737
001013
012701
012703
014346
005301
001375
012737
000403

002116

51%:
LIST

BEQ
BIS
BR
BIT

gNEE

WAITMS
MOV
ASL
ASL
65%:
DELAY
MSGNINS <MOV
MoV
MEXIT
MSGNINS <.WORD
.WORD
MEXIT
MSGNINS <MOV
MOV
MEXIT
MSGNINS <.WORD

.WORD
MEXIT
MSGNINS <DEC
DEC
MEXIT
MSGNINS <BNE
BNE
MEXIT
MSGNINS <DEC

177772

177756

MEXIT
.NLIST

010757

017560
003126

118:

000004
003044

8%:
003040

15:35

K 6

PAGE 2-21

5%
#RELDWT ,OPFLAG
5%
#DRVERR,T.CS

:NO ELSE
;SKIP
;TEST

SEQ 0075
SKIP
SET WAIT FLAG
TO CLEAR
IF DRIVE ERROR NOW

;YES = SKIP TO CLEAR

#
#41 ,DLYCNT
DLYCNT
DLYCNT
#250.
#4250,
, (PC)+>
##250.,(PC)+

;WAIT FOR DRIVE TO GET ERROR, READY, OR HEADS OUT
sINITIALIZE DELAY COUNTER
sMULTIPLY ARGUMENT BY 2
;sMULTIPLY ARGUMENT BY 2 AGAIN
s IMPLEMENT 25-MS TIME DELAY

0>
O
LSDLY, (PC) +>
LSDLY, (PC)+
0>

0
=6(PC)>
=6(FC)

.~4>
.~4

DEC

=22(PC)>
=22(PC)

BNE

.=20

DEC
BNE
ME
DEC
BNE
MOV
ERRHRD
TRAP
.WORD
.WORD
.WORD
JMP
TST
BNE
MOV
MOV
MOV
DEC
BNE
MOV
BR

DLYCNT
65%

sDECREMENT DELAY COUNT
;BRANCH IF TIME DELAY NOT EXPIRED

R1
508
#MUNDEF ,R3
10001., ,ERR1
CS$ERHRD
10001
0
ERR1
14$
TEMP4
5%
#4 ,R1
#L.MP+2,R3
=(R3) ,-(SP)
R1
8$
W#GETSTAT,L.DA
6%

;DEC WAIT COUNTER
:1F NOT DONE, LOOP
;MESSAGE FOR UNDEF INED STATE

MEXIT
MSGNINS <BNE

003142

000003

24-MAR-80

GLOBAL SUBROUTINES

040000

017040

017054

MACY11 30A(1052)

.=20>

JEXIT
sTEST IF SAVE REGISTERS
;NO_SKIP
sSET SAVE COUNT
sSET ADDRESS OF FIRST SAVE
sPUT REG ON STACK
sDEC_COUNT
;LOOP UNTIL ALL SAVED
;SET FOR GET STATUS
:SKIP

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=MAR-80 15:27

MACY11 30A(1052)
24-MAR-80
GLOBAL SUBROUTINES

15:35

PAGE 2-22

Efi &fl%

013737 003126

003040 g:

MOV

TEMP4, L .DA

; INSERT PRESET FOR STATUS

1570
1571

017152
017156

005037
013737

003006
003032

003034

CLR
MOV

DONE
RLDRV,L.CS

sCLEAR INTERRUPT FLAG
JSET UP TO GET STATUS

1573
1576
1575
1576
(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587

017172
017200
017206
017214
017214
017220
017222
017226
017230
01723¢
017236
017242
017244
017250
017252
017260
017266
017274
017276
017304
017306
017312
017320

052737
013762
013762

000104
003040
003034

012727
000000
013727
000000
005367
001375
005367
001367

000001

1589
(1)
(1)
(1)
(1)
(2)
(3)
(3
(2)
(3)
(3
(2)
(3)
(3
(2)
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)
(2)

017322
017322
017330
017334
017340
017340
017340

012737
006337
006337

000001
003142
003142

012727

000372

017344
017344

000000

017346
017346

013727

017352
017352

000000

017354
017354

005367

1572

1588

017164

042737

005737
001534
013737
042737
032737
001533
032737
001450
012701
032762
001042

017360
017360

001375

gg;

017362
017362

005367

(2)

017366

002000

003034

BIC

003034
000004
000000

002116
177772

177756
003006

003052
177770
000010

003060
003060
003040

040000

003004

000144
000001

000000

4$:

13$:

JA1IST

002116

177772

177756

9003142

BIS
MOV
MOV
WAITUS
MOV
LWORD
MOV
WORD
DEC
BNE
DEC
BNE
TST
BEQ
MOV
BIC
BIT
BEQ
BIT
BEQ
MOV
BIT
BNE

WAITMS
Mov
ASL
ASL
66%:
DELAY
MSGNINS <MOV
MOV
MEXIT
MSGNINS <.WORD
.WORD
MEXIT
MSGNINS <MOV
MOV
JMEXIT
MSGNINS <.WORD
WORD
MEXIT
MSGNINS <DEC
DEC
MEXIT
MS$GNINS <BNE
BNE
MEXIT
MS$GNINS <DEC

DEC

MSGNINS <BNE

#1T10,L.CS

:CLEAR FOR DRIVE 4 - 7 SPEC'D

#GTSTAT,L.CS
L.DA.RLDA(R.?)
;LOAD RL REGS
L.CS.RLCSR(R2)
:LOAD CS REG
M7
JWAIT 100 US FOR INTERRUPT
#aR1, (PC)+
O
LSDLY, (PC)+
O
-6(PC)
.4
222(PC)
.=20
DONE
JCHECK IF INTERRUPT OCCURRED
1%
*NO
- SKIP
T.MP,T.STAT
*STORE MP REGISTER
#*C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE
#DRSET,L.DA
'TEST IF RESET WAS SPECIFIED
3$
*NO - SKIP TO EXIT
#RELDWT ,OPFLAG
;TEST IF RELOAD WAIT FLAG SET
12$
*NO - SKIP
#100. ,R1
“INITIALIZE WAIT COUNTER
#DRDYMSK ,RLCS(R2) ;TEST IF DRIVE NOW READY
12%
JYES - SKIP
#1
#4171 ,DLYCNT
DLYCNT
DLYCNT
#250.
##250.,(PC)+>
##250.
. (PC)+
0>
0

LSDLY, (PC)+>
LSDLY. (PC)+
0>
O
-6(P()>
-6(PC)

~4>
=4
=22(PC)>
=22(PC)
.~20>

sCALL WAIT
JINITIALIZE DELAY COUNTER
sMULTIPLY ARGUMENT BY 2
sMULTIPLY ARGUMENT BY 2 AGAIN
; IMPLEMENT 25-MS TIME DELAY

SEQ 0076

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=MAR-80 1 5:27

017366

001367

017370
017374

005337
001361

MACY11 30A(1052)

GLOBAL SUBROUTINES
MEXIT

003142

.NLIST

017376
016560

012703

011024

104456

12%:

000005
002116

177772
177756
1599

016560

001000

003052

006325
040000

b b cd cd a2 NN N N
NS NN) = O v v

AAAONONONONONONA
A A

= OV~

b och

o Yo Yo No

DLYCNT

;DECREMENT DELAY COUNT
;BRANCH IF TIME DELAY NOT EXPIiRED

BNE

R]
13%

MOV
ERRHRD
TRAP
.WORD
WORD
.WORD
BR

#MRLFAL ,R3
10003., ,ERR1
CSERHRD
10003
0
ERR1
148

sDEC_COUNT
;LOOP IF NOT O
;GET DRIVE STATUS
sERROR RETURN
sSET RESULT MESSAGE POINTER

BNE

ME
DEC

WAITUS
MOV
.WORD
MoV

7%:

006346

9%:

016320

1$:

2%:

003016
003126
012701
012623

003034
000004

148:

38:

208:

66%

PC,GSTAT

#5
H#ARS, (PC)+
0
LSDLY, (PC)+

;GO TO EXIT
sWAIT

.WORD
DEC
BNE
DEC
BNE

-22(PC)
=20

PC,GSTAT

;GET DRIVE STATUS

BIT

#ANYERR,T.CS

;TEST IF ANY ERROR
:NO - SKIP

BEQ
BIT
BEQ
MOV
BR
BIT
BEQ
ERRHRD
.WORD

(5)

b cd

003044

6
PAGE 2-23

DEC

TRAP

VIV
NN N

—_—t
e
=

003044

=20

égk

100000

15:35

BNE

égR

023423
000000
012340
000455

012727
000009

24-MAR-80

WORD
.WORD
BR

0
-6(PC)

3%
#VCSTAT,T.MP
7$
#VCNRST ,R3
2%
#DRVERR,T.CS
9%
10004., ,ERR6
10004

0
ERR6
14%

#UNXERR ,R3
2%
PC,WAITIN
(SP)+,R3
10002., ,ERR1

.WORD
.WORD
.WORD

10002
0
ERR1

TST
BNE
MOV
MOV
MOV

TEMP4
22%
#L.CS.R3
#4 ,R1
(SP)+,(R3)+

CLR

:NO - SKIP

CSERHRD

MOV
BR
JSR
MOV
ERRHRD
TRAP

;CHECK IF VOLUME CHECK RESET
;YES SKIP
:SET REASON POINTER
SEXIT
;CHECK IF DRIVE ERROR

JEXIT
;SET _REASON POINTER
SEXIT
;WAIT FOR INTERRUPT
:STORE REASON POINTER FOR RETURN

CSERHRD

ERRSWI

;CLEAR FOR ERROR RETURN
LSST gFlgEGISTERS WERE SAVED

:SET POINTER TO RESTORE
sSET _REGISTER COUNT

:RESTORE REG

SEQ 0077

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 1 5:27

000002

MACY11 30A(1052)
24 ~MAR-80
GLOBAL SUBROUTINES

003002

22%:

6
PAGE 2-24

sDEC_COUNT

#2,SSINDX
(SP)+,R1
(SP)+,RO
(SP)+,R3

:REMOVE ENTRY FROM SUBROUTINE STACK
:RESTORE
R1
:RESTORE RO
;RESTORE R3

(SP) +,TEMP4
ERRSWI
99%
E?RSUI.(SP)

003016
000000

017652
017654

208

003126
003016

017650

15:35

99%:

géSP).(SP)

DRIVE_STATE ROUTINE

GDRSTA:

000004
003044

sRESTORE TEMP4
sTEST IF ERROR RETURN

:YES = SKIP

;ADD IN ERROR RETURN

;SET ERROR RETURN ADDRESS

R3,=(SP)

;SAVE R3

=(R3) ,~(SP)

;SAVE REGISTER ON STACK

#4 ,R1
#L.MP+2 R3

1%:

:LOOP UNTIL ALL ARE RESTORED

sINITIALIZE REGISTER SAVE COUNT
sINITIALIZE ADDRESS OF FIRST SAVE

;DECREMENT REGISTER SAVE COUNT

;LOOP UNTIL ALL 4 REGISTERS ARE SAVED

017672

012737

000003

003040

HGETSTAT,L.DA

017700
017704

005037
013737

003006
003032

003034

DONE
RLDRV,L.CS

;CLEAR INTERRUPT FLAG
sSET UP CONTROL STATUS REGISTER WITH

017712
017720

042737
052737

002000
000104

003034
003034

#BIT10,L.CS

#GTSTAT,L.CS

;CLEAR FOR DRIVES 4~7 SPECIFIED

017726

013762

003040

000004

L.DA,RLDA(R2)

017734

013762

003034

000000

L.CS.RLCSR(R2)

105762

000000

017742
017746
017750
017754
017756

001775
005737

5%:

RLCS(R2)
5%
DONE

003006
003052
177770
003034
000004

003060
003060

3%:

012737
000402

177777

4%:

003120

:/DRIVE NUMBER

sINITIALIZE CONTROL STATUS REGISTER FOR

:/GET STATUS COMMAND

;INITIALIZE DISK ADDRESS REGISTER FOR

:/GET STATUS COMMAND

:LOAD CONTROL STATUS REGISTER TO EXECUTE
:/GET STATUS COMMAND

;WAIT FOR CONTROLLER READY INDICATING
;/RECEIPT OF GET STATUS COMMAND
: INTERRUPT OCCURRED?

sBRANCH IF NOT

T.MP,T.STAT
;GET CONTENTS OF MULTI-PURPOSE REGISTER
#*C<STAMSK>,T.STAT ;CLEAR ALL BUT STATE DRIVE BITS
#L.CS,R3
sINITIALIZE POINTER TO RESTORE RL REGISTERS
#4 ,R1
sINITIALIZE REGISTER SAVE COUNT
(SP)+,(R3)+
sRESTORE REGISTERS

2%:

016320

;SET UP DISK ADDRESS REGISTER FOR GET STATUS

; / COMMAND

PC,WAITIN

RTS

(SP)+,R3

SEEK ROUT INE

XSEEKT MOV
BR

#-1,TEMP1

XSEEK1

;DECREMENT REGISTER SAVE COUNT

;LOOP UNTIL ALL 4 REGISTERS ARE RESTORED

;WAIT FOR INTERRUPT

;RESTORE R3
sRETURN

;SET SPECIAL TIMING SEEK FLAG

SEQ 0078

CZRLICO RLO1/702 DRIVE TEST 1

CZRLIC.MAC
1678
1679

24=MAR-80 15:27

020032
020036

005037
o1g

MACY11 30A(1052)

GLOBAL SUBROUTINES

003120

XSEEK:
CLR
XSEEK1: MOV

1680
1681
125%
1
1684
1685
1686
1687
1688
1689

020040
020044
020046
020054
020062
020066
020070
020072
020074
020102

013703
00572
016663
162763
010337
010046
010146
010546
012737
005037

000002
000004
003002

002404
002404

000002
003076

003016

1691

020106

004737

022662

1693
1694

020114
020122

013737
023737

003104
003102

1696
1697
1698
1699

020132
020140
020146
020154

163737
013737
013737
022737

1690

1692

1695

1700

020112

020130

020162

020562

003427

001424

1701
1702
1703
1704

020164
020172
020200
020206

162737
012737
012737
000451

1706
1707
1708

020214
020216
020222

100007
005437
013737

1705

1709

020210

020230

005737

005037

1710
1711
1712
1713

020234
020240
020244
020246

013705
163705
100005
012737

1715
1716

020256
020260

000402
005037

1714

020254

005405

1717

020264

010537

1719

020274

001416

1718

020270

005737

1720
1721
1722

020276
020304
020306

023737
001007
012737

1724
1725

020314
020322

022737
001003

1723

1726
1727

020324
020332

003002

003100
002302

MOV
CMP

CURCYL,OLDCYL
NEWCYL.HLMTW

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

002302
003102
002302
000001

003102
003076
003102
002276

SuB
MOV
MOV
cMP

HLMTW, NEWCYL
NEWCYL,DIFAUG
HLMTW, NEWCYL
#1,T.DRIVE

000001
000001
000001

003102
003110
003106

suB
MOV
MOV
BR

003102

003102
003102

003102

000001

003110
13$:

002302

000001

003110

000001

002276

063737

003076

003106

013715

003106

005025

003032

17%:
188%:

BEQ

£3

TST

NEWCYL

#1 NEWCYL
#1.DESSGN
#1.DESDIF
18§

PAST GUARD BAND)

:NO = SKIP

:ELSE SUBTRACT 255.
:STORE DIFFERENCE AS ARGUMENT
:SET NEWCYL AS 255.

JTEST IF NEWCYL HAS NEGATIVE VALUE

BPL
NEG
MOV

X3
NEWCYL
NEWCYL,.DIFAUG

MOV
SUB
BPL
MOV

CURCYL ,RS
NEWCYL .RS
138
#1,DESSGN

:COMPUTE DIFFERENCE AND NEW CYLINDER
:SUB NEWCYL FROM CURCYL
:IF DIFF IS POSITIVE - SKIP(REV SEEK)
:ELSE SET SIGN FOR FORWARD

BR
CLR

148
DESSGN

*SKIP
*SET SIGN FOR REVERSE

CLR

NEG

148:

003076

002000

020352

6$:

003110

042725

BLE

003076

003106

346

65%

3%:

003104
003102

1731

020354

:CLEAR SPECIAL TIMING SEEK FLAG
:STORE R3

:GET PRESENT POSITION

003034
000106

1732

TEMP1
R3,~(SP)

PC,GETPOS

012705
012715

1733

PAGE 2-25

JSR

003102

053715

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)
R1,=(SP)
RS,=(SP)
:STORE REG
#2.ERRSWI
:SET FOR NO ERROR RETURN
DIFAUG
:CLEAR DIFFERENCE ARGUMENT (FOR SEEKING

020332
020336
020342

15:35

MOV
ST
MOV
SuB
MOV
MOV
MOV
MOV
MOV
CLR

1728
1729
1730

24-MAR-B0

NEWCYL

*NO - SKIP
:ELSE MAKE IT POSITIVE
:AND STORE IT AS ARGUMENT

:AND SET NEWCYL TO 0

*MAKE DIFFERENCE POSITIVE

MOV

RS,DESDIF

*STORE DIFFERENCE

BEQ

18%

:NO
= SKIP

DI1FAUG

:1S THERE A DIFFERENCE ARGUMENT

CMP
BNE
MOV

NEWCYL,HLMTW
17%
#1,DESSGN

cMP
BNE

#1,T.DRIVE
18%

MOV
MOV

#L.CS.RS
#SEEK . (RS)

:GET RL REG ADDRESS
*SET FOR SEEK

BIC

#8IT10,(RS)+

:CLEAR IF DRIVE 4 - 7 SPEC'D

MOV

DESDIF, (RS)

ADD

BIS
CLR

:CHECK IF NEW CYL IS 255.
:NO = SKIP
:ELSE FORCE SIGN FOR FORWARD

:(INNER GUARD BAND)

DIFAUG,DESDIF

RLDRV, (RS)
(RS)+

:INSERT DRIVE NUMBER

:CLEAR BUS ADDRESS

*LOAD DIFFERENCE

SEQ 0079

8%&%&&&

—t

e T

NNNNNNN

s Y Y

CZRL iC0 RLOVOZ DRIVE TEST 1
CZRLIC.MA
24-MAR-80 15:

MACY11 30A(1052)
24~MAR-80
GLOBAL SUBROUT INES

020360

218:

238:

000020
000001
021132

258:

30%:

000001
002116

DESSGN

BIS

#DIRBIT, (RS)

BIS

#HDSEL , (RS)

JSR

PC,RDYCHK

TST
BEQ

BIS

BNE
MOV
MOV
MOV
WAITUS
MOV
WORD

MOV
LWORD
DEC
BNE
DEC
BNE

177772

177756

003006

003016
003044

32¢:

003002

658:

218

238

DE SHD
258

#MBSETO, (RS)+
DONE
TEMP1

65%
-(RS5) ,RLDA(R2)
-(R5) _RLBA(R2)
-(R5) _RLCS(R2)
#1
#RR1, (PC)+
O

<22(PC)
=20

PC.WAITIN
(SP)+,R3

ADD

sSET TO SHIFT DIFFERENCE
;LOOP UNTIL ALIGNED

;TEST SIGN
;SKIP IF 0
JELSE INSERT SIGN
sTEST IF HEAD 0
;YES = SKIP
sELSE SET HEAD BIT
;INSERT MARKER BIT
;CHECK IF DRIVE READY
:CLEAR INTERRUPT FLAG
sCHECK IF SPECIAL SEEK FLAG SET
;YES = SKIP, DO NOT START SEEK
;LOAD RL REGISTERS
;PERFORM SEEK OPERATION
;ALLOW TIME FOR RECEIPT OF SEEK COMMAND

-6(PC)
b

JSR
MOV
ERRHRD
TRAP
.WORD
WORD
-WORD
CLR
BR
TST
BPL
ERRHRD
TRAP
.WORD
WORD
.WORD
CLR
SUB
MOV
MOV
MOV
MOV

BEQ

SEQ 0080

LSDLY, (PC)+
O

DONE

PAGE 2-26

(RS)

BNE

016320

003016

CLR
ST

000004
000002
000000

003016

DEC

658

003006
003120

003016
00000

#7.RO

ASL

BEQ

000004
003112

MOV
BNE

003110

15:35

328

10005.
, .ERR1

sTEST IF INTERRUPT DONE
;YES - SKIP
;GO WAIT FOR INTERRUPT
sGET RESULT MESSAGE POINTER

CSERHRD

10005
0
ERR1
ERRSWI
65%
T.CS
658
10006.
, ,ERR6

;CLEAR FOR ERROR RETURN
;TEST

IF ANY ERROR

:NO - SKIP

CSERHRD

10006
O
ERR6
ERRSWI
#2,SSINDX
(SP)+,RS
(SP)+.R1
(SP)+.R0O
(SP)+.R3
ERRSW]

998
ERRSWI, (SP)

;CLEAR FOR ERROR RETURN
sREMOVE ENTRY FROM SUBROUTINE STACK
;RESTORE REGISTER

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

' CZRLICO RLO1/02 DRIVE TEST 1
}CZRLIC.HAC
24~MAR-80 15:27
17764
1775
1776
1778
1779
1780
1781
178%
1783
1786
1785
1786
1787
1788
1789
1790
1791
1792
1793

020614
020620

017616
000207

0
2
0
4
020630
020632
020640
020646
020652
020654
020656
020664
020670
020672
020676
020702

010346
013703
005722
016663
162763
010337
010046
010446
012737
004737
021074
012704
012714
053714

1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806

020712
020714
020720
020724
020726
020730
020732
020736
020740
020744
020750
020752

005024
013714
012703
006314
005303
001375
005737
001402
052714
005737
001402
052714

1808
1809
1810
1811
1812
1813
1814
1815
1816
1817
(3)
(3)
(3)
(3)

020762
020766
020772
020776
021002
021006
021012
021014
021016
021020
021020
021024
021026
021032

1794

1807

(3)
(3)
(3)
(3)

1818
1819
1820
1821
(4)

020706

020756

021034
021040
021042
021046

021050
021052
021056
021060
021060

042724

052724

000000

000002
000004
003002

002404
002404

000002
021132

003016

003034
000106
003032

002000
003106
000007

000004
003112
000020

000001

012727
000000
013727
000000

000001

104456

8IC

3%:

5%:

7%:

108:

002116

177772

CLR
MOV
MOV
ASL
DEC
BNE
TST
BEQ
BIS
TST
BEQ
BIS

BIS

CLR
MOV
MOV
MOV
MOV
TST
BNE
DEC
BEQ
WAITUS
MOV
.WORD
MOV
.WORD

DEC
BNE
DEC
BNE

177756

016320

MOV
RTS

SIMSEK: MOV
MOV
TST
MOV
SuB
MOV
MOV
MOV
MOV
JSR
65%
MOV
MOV
BIS

003110

003006
000012
000004
000002
000000
003006

000756
004737
012603

99%:

003002

005037
012701
014462
014462
014462
005737
001030
005301
001415

005367
001375
005367
001367

MACY11 30A(1052)
24-MAR-80
GLOBAL SUBROUTINES

138:

BR
JSR
MOV
ERRHRD
TRAP

15:35

PAGE 2-27

a(SP), (SP)
PC

sSET ERROR RETURN ADDRESS

R3,=(SP)
sSTORE REGISTERS
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)
R4 ,-(SP)
#2 ,ERRSWI
;SET FOR NO ERROR RETURN
PC,RDYCHK
;CHECK IF DRIVE READY

#L.CS,R4
#SEEK, (R4)
RLDRV, (R4)

;GET POINTER TO L REGS
;SET FOR SEEK
s INSERT DRIVE NUMBER

(R4)+
DESDIF, (R4)
#7,R3
(R&)
R3
3%
DESSGN
5%
#DIRBIT, (R4)
DESHD
7%
#HDSEL , (R4)

:CLEAR BUS ADDRESS
;LOAD DIFFERENCE
;SET COUNT FOR SHIFT TO ALIGN
sALIGN DIFFERENCE IN DA

#B8IT10, (R&)+

#MBSETO, (R4)+

DONE
#10. R1
=(R4) ,RLDA(R2)
=(R4) ,RLBA(R2)
=(R4) ,RLCS(R2)
DONE
65%
R]
13%
#1
#AR1, (PC)+
0
LSDLY, (PC)+
O

~6(PC)
=4
=22(PC)
.=20

108
PC,WAITIN
(SP)+,R3
10011, ,ERR1
CSERHRD

;CLEAR FOR DRIVE 4 - 7 SPEC'D

sTEST IF SIGN SET
;NO - SKIP
s INSERT SIGN
;TEST IF HEAD 0
;YES = SKIP
: INSERT HEAD BIT

:INSERT MARKER BIT

:CLEAR INTERRUPT FLAG
sSET WAIT COUNT FOR 800US
;LOAD RL REGISTERS
;CHECK IF INTERRUPTED
;YES - SKIP
;DEC WAIT COUNT
.IF 0 - SKIP

;GO CHECK DONE
;GO WAIT FOR TIMEOUT
sGET RESULT MESSAGE POINTER

SEQ 0081

—

CZRLICO RLO1/02 DRIVE TE?T 1
CZRLIC.MAC
24=MAR-B0 15:27
(5)
(5)
(5)

021062
021064
021066

}g%%

85}8;2

1824

021074

1825
1826
1827

005037

003016

162737

000002

005737

003016

063716
000207
017616
000207

003016

021102
021104
021106

012604
012600
012603

021114

001403

1828

021110

1830
1831
1832
1833
1835

021116
021122
021124
021130

1829

023433
000000
012340

MACY11 30A(1052)
24-MAR-80
GLOBAL SUBROUTINES

.
003002

99%:

1913

;

1914
1915

021132

010346

1917

021140

005723

1918
1919
1920
1921
1922
1923
1924
1925

1926
1927
1928

1929

1930

(3)

021134

021142
021150
021156
021162
021164
021166
021170
021176

021202
021206
021210

021216

021220

021224

021226

003002

016663
162763
010337
010046
010146
010446
012737
012701

000002
000004
003002

002404
002404

000002
011610

003016

000001

003044

001375

021246

001367

1932

021252

001353

1934

021260

012704

021264
021264
021266
021270
021272

} 37

021300

1936

021274

104456
023432
000000
012572

012701

004737

177772

000030

(R3)+

JSR
48
BIT

#DRDYMSK,T.CS

WAITUS

.WORD

LWORD
DEC

O
-6(PC)

DEC

<22(PC)

DEC

MOV

#MDRDY ,R3

ERRHRD
TRAP
.WORD
WORD
.WORD

10010. , .ERRS
CSERHRD
10010
O
ERRS

MOV

IF NOT. WAIT

:STORE REGS

2(SP) ,SUBSTK(R3) " ; INSERT THIS CALL
#4,SUBSTK(R3)
;ADJUST IT TO CALLING LOCA7 ION
R3.SSINDX
:STORE IT BACK
RO.=(SP)
R1.,=(SP)
Ré&.=(SP)
#2.ERRSWI
;SET FOR NO ERROR RETURN
#5000. ,R1
SSET WAIT COUNT

BNE

011260

;SET ERROR RETURN ADDRESS

MOV
SUB
MOV
MOV
MOV
MOV
MOV
MOV

BNE

010260

SYES = SKIP

SSINDX,R3

BNE

177756

016560

998

*RESTORE REGS

MOV

BNE

005301

012703

(SP)+,R4
(SP)+.RO
(SP)+.R3

DRIVE READY TEST ROUTINE. CHECKS DRIVE IS READY.

MOV

(3)

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

;ADD IN ERROR RETURN

002116

005367

021254

ERRSWI , (SP)
PC
a(SP), (SP)
PC

ADD
RTS
MOV
RTS

013727

021242

1933

;TEST IF ERROR RETURN

MOV

(3)

021250

ERRSW]

000001

000000
005367

1931

;REMOVE ENTRY FROM SUBROUT STACK

012727

021232
021234

021240

#2,SSINDX

016560

(3)
(3)

(3)

MOV
MOV
MOV

TST

1$:

SEQ 0082

;CLEAR FOR ERROR RETURN

004737
021422
032737

000000

10011
0
.
ERR1

3
SOOMS FOR READY TO SET.
RDYCHK: MOV
R3,=(SP)

013703

001103

PAGE 2-28

ERRSWI

000000

CLR

BEQ

1916

65%:

LWORD
LWORD
.WORD

15:35

MOV
JSR

PC.GSTAT

*GET SUBROUTINE INDEX

;BUMP IT FOR NEXT ENTRY

*GET DRIVE STATUS

;TEST IF DRIVE READY

SYES - EXIT

AR, (PC)+

LSDLY, (PC)+

.~4

.=20

#C500MS , R4

#24. R

PC,GSTAT

:DEC WAIT COUNT

*LOOP IF NOT 0

JSET RESULT MESSAGE POINTER

:SET CONDITION MESSAGE POINTER

;INITIALIZE WAIT COUNT

*GET DRIVE STATUS

‘

|CZRLICO RLO1/02 DRIVE TEST 1

MACY11 30A(1052)

003044

| CZRLIC.MAC
i
|

1939 021306 032737 000001

1940
1941

021314

1942

021316

(1)
(1)
(1)
(2)

021324
021330
021334
021334

24-MAR-80 15:27

(1)

021334

(2)

021340

(3)
(3)
(1)

(1)

1943

012727

021340

000000

021342
021342

013727

021346
021346

000009

021350
021350

005367

021354
021354

001375

021356
021356

005367

021362
021362

001367

021364

005337

021370

1944
1945
1946
1947
1948
(4)
(5)
(5)
(5)
1949
1929
195
1952
1953
1954
1955
1956

021372
021374
021376
021404
021406
021406
021410
021412
021414
021416
021422
021426
021434
021436
021440
021442
021444

1958
1959
1960

021452
021456

1957

006337
006337

021450

021460

001361

005301
001341
032737
001406

104456
023433
000000
012642
005337
005037
162737
012604
012601
012600
012603
005737
001403
063716
000207
01761€¢

003142
003142

003142

000372

BIT

#DRDYMSK,T.(S

WAITMS

BNE
ME

MOV

ASL
ASL
64%:
DELAY
MSGNINS <MOV

—

MoV

MSGNINS <.WORD

.WORD
JMEXIT
MSGNINS <MOV
MOV
MEXIT
MSGNINS <.WORD
.WORD
MEXIT
MSGNINS <DEC
DEC
JMEXIT
MSGNINS <BNE
BNE
MEXIT
MISNINS <DEC
DEC
LMEXIT
MSGNINS <BNE
BNE
MEXIT
DEC
BNE

002116

177772

177756

003142

.NLIST

100000

003156
003016
000002

003044

3$:

003002

4%:
S$%:

003016

99%:

#41,DLYCNT
DLYCNT
DLYCNT

#250.

##250.,(PC)+>

;TEST IF DRIVE READY
;YES = SKIP

;WAIT FOR_100MS

sINITIALIZE DELAY COUNTER

sMULTIPLY ARGUMENT BY 2
sMULTIPLY ARGUMENT BY 2 AGAIN
; IMPLEMENT 25-MS TIME DELAY

#4250.,(PC)+
0>

0
LSDLY, (PC)+>
LSDLY, (PC)+
0>
O
=6(PC)>
-6(PC)

.=4>
.~4
=22(PC)>
=22(PC)
.=20>
-~<0
DLYCNT

;DECREMENT DELAY COUNT

648

;BRANCH IF TIME DELAY NOT EXPIRED

DEC
BNE
BIT
BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD
DEC
CLR
SuB
MOV
MOV
MOV
MOV
TST

R1
2%
#ANYERR,T.CS
43
10011., ,ERR6
CSERHRD
10011
0
ERR6
ERRCNT
ERRSWI
#2,SSINDX
(SP)+,R4
(SP)+,R1
(SP)+,R0
(SP)+,R3
ERRSWI

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

ADD
RTS

ERRSWI, (SP)
PC

BEQ

003016
000000

GLOBAL SUBROUTINES

LLIST

021316 012737 000001

g;
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3)
(2)
(3)
(3
(2)
(3)
(3)
(2)

001030

24=MAR-80 15:35 PAGE 2-29

MOV

99%

a(SP), (SP)

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

;TEST IF ERROR RETURN
sYES = KPP
JADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

SEQ 0083

021464

MACY11

Dy
D
D
D

e
—

021466
021472
021500
021502
021510

021512
021520
021522
021526
021530
021536
021542
021544
021550

30A(1052)
24-MAR-80
GLOBAL SUBRCUTINES

000207

RTS

2RF2R2LR!

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

005037
032737
001403
013737
000207

032737
001011
005737
001006
012737
062716
000207
017616
000207

021552

003112
010000

014202

014210

003112

010000

014202

003112
000001
000002

15:35

PAGE 2-30

SEQ 0084

CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS
SELECTED BY SOF TWARE PARAMETER.
: CLR
CHOSHD
DE SHD
:CLEAR TO HEAD 0
sTEST IF HEAD SPECIFIED
BIT
ngADLHMISWIW
BEQ
:NO
= SKIP
HEAD
DEW,
MOV
SHD
s INSERT SPECIFIED HEAD
PC
RTS
1%:

SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1
UNLESS HEAD O SPECIFICALLY SELECTED BY SOF TWARE PARAMETER.
: BIT
SWAPHD
5?EADLH.HISUXU
sTEST IF HEAD SPECIFIED
BNE
;YES = TAKE ABORT EXIT
TST
sTEST IF HEAD ONE USED
DESHD
BNE
MOV
ADD

003112

2%:
3%:

#1,DESHD
#2,(SP)

RTS

MOV

a(SP), (SP)

;YES = TAKE ABORT EXIT

;ELSE SET FOR HEAD ONE
BUP PAST ABORT RETURN
; RETURN
:GET ABORT DESTINATION

003100
003102
003102

003100

SWAP 0OLD CYL{?D;R AND NEW CYLINDER ROUTINE.
RO
ONSWAP: MOV
:STORE RO
MOV
OLDCYL ,RO
sMOVE OLD TO RO
MOV
NEWCYL,OLDCYL
:MOVE NEW TO OLD
RO,NEWCYL
MOV
sPUT OLD IN NEW
MOV
(SP)+ RO
JRESTORE RO
RTS
PC

000001

003126

XRDHDC:

021576

012737
000402
005037
010346
013703

003126

XRDHD:
XRDHDG:

003002

000002
003002

000002
003126

003044
000004
021676

READ HEADERS ROUTINE.
#1,TEMP4
XRDHDG

;SET FLAG TO BYPASS REG STORAGE
;GO DO IT

TEMP4
R3,-(SP)
SSINDX,R3

;GET SUBROUTINE INDEX

RO,-(SP)
R1,-(SP)
R4 ,-(SP)
#2 ,ERRSWI
TEMP4

sTEST

sSET FLAG TO SAVE
:STORE REGISTERS

AND L.

REGS

(R3)+
:BUMP IT FOR NEXT ENTRY
2(SP) ,SUBSTK(R3) s INSERT THIS CALL
#4,SUBSTK (R3)
;ADJUST IT TO CALLING LOCATION * "~
R3,SSINDX
:STORE 1T BACK

SIS SIS
So® NOWNESWN=O

021574

002404
002404

003016

1%:

-(R3) ,=(SP)
R1

sSET _FOR NO ERROR RETURN
IF REGISTERS TO BE

INO - SKIP

;SET POINTER FOR REGS
sSET _COUNT

:SAVE REGISTER
;DEC COUNT

SAVED

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=MAR-80 15:27

2031
2032

021700
021702

001375
004737

MACY11

021132

30A(1052)
24~MAR-80
GLOBAL SUBROUTINES

2%:

BNE
JSR

65%
CLR

MOV
MOV
BIC
BIS

3%:

000000

15:35

PAGE 2-31

SEQ 0085

sLOOP UNTIL ALL ARE SAVED
;CHECK DRIVE READY

DONE

;CLEAR INTERRUPT FLAG
;GET ADDRESS OF LOAD REGS
;LOAD DRIVE NUMBER
sCLEAR FOR DRIVE 4 - 7 SPEC'D
s INSERT COMMAND
;CLEAR BA
;CLEAR DA
;LOAD RL11 REGS

PC,RDYCHK
#L.CS,R1
RLDRV . (R1)

#81T10, (R1)

#RDHEAD
, (R1)+

(R1)+
(R1)+
=(R1) ,RLDA(R2)
=(R1) .RLBA(R?)
-(R1) .RLCSR(R2)
#am10.,(PC)+

SWAIT 1 MS FOR INTERRUPT

(3)

021762

013727

002116

0
bSDLY.(PC)*

(3)

021770

005367

177772

=6(PC)

(3)

021776

005367

177756

=22(PC)

2045

022004

885725

003006

2047

022012
2020

032737

000001

DONE
14%

sTEST IF INTERRUPT FLAG SET
:NO
- SKIP

108
#MDRDY ,R3

JYES - SKIP

2049
2050

022022
022026

000000

012703
012704

022042
022046

012701
004737

000030
016560

2055

022054

032737

000001

2060
2061

(5)
(5)

022064

005037

022076

001364
012704

022114

000426
005737

022126
022130

006000
012642

003044

5%:

010260
011277

2052
2053

2057

.~4

4%:

003044

10%:

DRIVE READY

#24. ,R1
PC,GSTAT

JINITIALIZE WAIT COUNT
;GET STATUS

11%
ERRSWI

011310

:SET NO READY MESSAGE
;CONDITION OF AFTER DATA XFER

#DRDYMSK, T.CS

11%:

;TEST

#CAFDT R4

10017., ,ERRS
CSERHRD
10017
0
ERRS

003016

003044

#DRDYMSK,T.CS

108

4%
#C5SEC,R4
10014., ,ERRS
C$ERHRD
60014

ERRS
60%
T.CS

12%
10016., .ERR6
C$ERHRD

60016
ERR6

;TEST

DRIVE HAS COME

:NO - SKIP
:CLEAR ERROR SWITCH
:SKIP

READY

:DEC WAIT COUNT
;LOOP UNTIL TIME DONE
sSET CONDITION AFTER 5 SECONDS

JEXIT

;CHECK FOR ANY ERRORS
:NO - SKIP

;REPORT ALL

ERRORS

CZRLI(O RLO1/02 DRIVE TEST 1
| CZRUIC.MAC
24-MAR-80 15:27

022132

MACY11 30A(1052)
24=-MAR-80
GLOBAL SUBROUTINES

003054
000006
000006

12%:

016320

14%:

003034
000004

003002

000000

SR8 BRIRA

USLSTSLSLNT NSNS

010346

005723
016663
162763

:REPORT

;CLEAR FOR ERROR RETURN

(SP)+ (R3)+
N

:RESTORE REGISTER
sDEC COUNT

22%:

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

20%

RTS

C
a(SP), (SP)

IF REGISTERS WERE SAVED

;NO - SKIP
;SET POINTER TO RESTORE REGS
sSET _COUNT

;LOOP UNTIL ALL ARE RESTORED
sREMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGS

sTEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN
;SET ERROR RETURN ADDRESS

POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
HDWRD1,R5
:g;?gT FOR POSITION HD BIT IN WD 1
BR
POSHDO
POSHSB: MOV
T.MP RS
sSTART FOR POSITION HD BIT IN MP
POSHDO: MOV
R1,-(SP)
:STORE R1
#*CHSSTAT
BIC
RS
;CLEAR ALL BUT HEAD SEL BIT
#6.R1
MOV
sSET SHIFT COUNT
1%:
R5
JSHIFT FOR RIGHT JUSTIFY
R1
1%
(SP)+ R1
JRESTORE R1

POSHW1: MOV

003052
177677

RDYWAIT:

003002
000004

JEXIT

:WAIT FOR INTERRUPT
sGET RESULTS

20%:

99%:

003052

000002

;GET POINTER

;STORE LAST TWO HEADER WORDS

;TEST

013703

SEQ 0086

TEMP4

ERRSUI,(SP)

022314

022316

#HDWRD?Z
,R1
RLMP(R2)
, (R1)+
RLMP(R2), (R1)+

(SP)+,R3
ERRSWI
99%

000006

2184

608

(SP)+ ,R3
10015., ,ERR1
C$ERHRD
10015
0
ERR1
ERRSWI

003016

013705
000402
013705
010146

PAGE 2-32

65%

003016

022252

PC,WAITIN

60%:
65%:

003016
003126

000002

MOV

15:35

002404

;RETURN

WAIT FOR READY ROUTINE. DURATION OF WAIT PASSED TO THE ROUTINE
FROM THE CALLING ROUTINE IN R1.

MOV
TST

MOV
SuB

MOV
R3,-(SP)
;STORE R3
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

CZRLICO RLOT/02 DRIVE TEST 1
CZRUIC.MAC
24-MAR-80 15:27

219¢
2195
2196
2197
2198
2199
2200
2201
2202
2203
2204
2205

(3)
(3)
(3)
(3)
(3)
(3)
(3)
(3)
2206
2207
2208
(4)
(5)
(3)

(5)
2209
2210
2211
2212

2213
2214
2215
(1)
(1)
(1)
(1)
(2)
(3)
(3)
(2)

(3)

(3)
(2)
(3)
(3)
(2)

(3)

(3)
(2)

(3)
(3)
(2)
(3)
3

022342
022346
022350
022352
022354
022
022366
022370
022376
022400
022402
022404
022404
022410
022412
022416
022420
022424

022426
022432
022434
022436
022442
022442
022444
022446

022450
022452
022456
022462
022464

022472

022474

022474
022502
022506
022512
022512
022512

022516

010337
010046
01074
010446
012737
004737
022616
032737
001111
005301
001415

003002

012727

000001

013727
00"
005367
001375
005367
001367
000752
012703

002116

012454
012701
004737
022616
032737

001037

003016
_
003044

177756

010260

7$:

000030
016560
000001

000372

005367

022532
022532

001375

003044

003142

_WORD
MOV
JSR
108
BIT

BNE
ME
WAITMS

MOV
ASL
ASL
648:
DELAY
MSGNINS <MOV
MOV
LMEXIT
MSGNINS <.WORD

.WORD

002116

000000

022526

LIST

012727

013727

DEC
BNE
BR
MOV
ERRHRD
TRAP
.WORD
"WORD

000001
003142
003142

022520
022520

022526

MOV
MOV
MOV
MOV
MOV
JSR
108
BIT
BNE
DEC
BEG
WAITUS
MOV
.WORD
MOV
WORD
DEC
BNE

177772

012737
006337
006337

000000

022524

000001

30A(1052)
~24-MAR-80
GLOBAL SUBROUT INES

104456
023444
000000

022516

022524

000002
016560

MACY1T

177772

LMEXIT
MSGNINS <MOV
MOV
LMEXIT
MSGNINS <.WORD

PAGE 2-33

ADRDYMSK,T.CS
98
R
7%
41
Rl (PC)+
0
LSDLY,(PC)+
0
=6(PC)
.-

:STORE 1T BACK

sSET FOR NO ERROR RETURN
;GET DRIVE STATUS
;CHECK IF READY
:YES - SKIP
:DEC WAIT COUNT
:SKIP IF 0

=22(PC)
.-20

5g
AMDRDY,R3
10020.,.ERR3

:SET NAME MESSAGE PTR
sREPORT READY ERROR

ERR3
#24. ,R1
PC,GSTAT

JINITIALIZE WAIT COUNT
:GET DRIVE STATUS

#DRDYMSK,T.CS

;TEST IF DRIVE READY

;WAIT 100 MS

CSERHRD
10020
0

##1,DLYCNT
DLYCNT
DLYCNT
#250,
#4250, , (PC) +>
##250. . (PC)+
0>

0
LSDLY, (PC)+>
LSDLY.(PO)+
0>

DEC

=6(PC)

LMEXIT
MSGNINS <BNE
BNE

R3,SSINDX
RO.=(SP)
R1.=(SP)
Ré4.=(SP)
#2 ,ERRSWI
PC,GSTAT

.WORD

LMEXIT
MSGNINS <DEC

MEXIT

15:35

-6(P()>

.-4>
-4

:YES = SKIP

:INITIALIZE DELAY COUNTER
sMULTIPLY ARGUMENT BY 2
MULTIPLY ARGUMENT BY 2 AGAIN
: IMPLEMENT 25-MS TIME DELAY

SEQ 0087

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27
(2)
(3)
(3)
(2)

(1)
(1)
2216
2217

2218
2219
2220
(4)
(5)

(5)
(5)

022534
022534
022540

022540

001367

022542
022546

005337
001361

022550
022552
022554
022560

005301
001341
012704

022560
022562
022564
022566

2221
2222
2223
2224

022570
022572
022600
022602

2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238

022612
022616
022622
022630
022632
022634
022636
022640
(022644
022646
022652
022654
022660

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

005367

022602
022604
022606
022610

MACY11

MSGNINS <DEC
DEC
MEXIT
MSGNINS <BNE

177756

—

003142

NLIST
011310

104456
023445
000000
012572

000410
032737
001406
104456
023446
000000
012642

005337
005037
162737
012604
012601
012600
012603
005737
001403
063716
000207
017616
000207

100000

003156
003016
000002

003044

003002

2252
2253
2254
2255

8%:

11%:
108:
9%:

003016

003016
000000

99%:

5540
2243

:
:
022662
022664
022670
022672
022700
022706
022712
022714

022716
022722
022724
022730

010346
013703
005723
016663
162763
010337
010046
010546

004737
022752
013703
012705

BNE

DEC
BNE

ME
DEC
BNE
MOV
ERRHRD
TRAP
.WORD

2241
2242

2244
2245
2246
2247
2248
2249
2250
2251

30A(1052)
24-MAR-80
GLOBAL SUBROUTINES

003002

000002
000004
003002

021606
003052
000007

002404
002404

.WORD
.WORD
BR
BIT
BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD

DEC
CLR
suB
MOV
MOV
MOV
MOV
TST
BEQ
ADD
RTS
MOV
RTS

15:35

7
PAGE 2-34

SEQ 0088

=22(PC)>
=22(PC)
.~20>

.=20

DLYCNT
648

;DECREMENT DELAY COUNT
;BRANCH IF TIME DELAY NOT EXPIRED

R1
6%
#C5SEC R4
10021., ,ERRS

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

CS$ERHRD
10021

0
ERRS

11$%
#ANYERR,T.CS
108
10022.,.ERR6

JEXIT
sTEST IF ANY ERROR SET
;:NO - SKIP
;REPORT ALL ERRORS

ERRCNT
ERRSWI
#2,SSINDX
(SP)+,R4
(SP)+,R1
(SP)+,R0O
(SP)+,R3
ERRSWI
99%
ERRSWI, (SP)
PC
a(SP), (SP)
PC

;DECREMENT FOR DOUBLE ERROR REPORT
;CLEAR FOR ERROR ERROR RETURN
;REMOVE ENTRY FROM SUBROUT STACK
;RESTORE REGISTERS

CSERHRD
10022
0
ERR6

;RESTORE R3
;TEST IF ERROR RETURN
;YES - SKIP
;ADD IN ERROR RETURN
sSET ERROR RETURN ADDRESS

GET POSITION ROUTINE. READS A HEADER FROM CURRENT CYLINDER
(WHERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER

NUMBER IN_CURCYL.
R3,-(SP)
:STORE REGISTERS
SSINDX,R3
sGET 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)
R5.=(SP)
JSR
PC,XRDHD
;DO READ HEADER
65%
MOV
HDWRD1,R3
;GET HEADER WORD
MoV
#7 ,R5
sSET SHIFT COUNT

GETPOS: MOV
MOV
TST
MOV
suB
MOV
MOV
MOV

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 1 5:27

MACY11 30A(1052)

264=MAR-80

GLOBAL SUBROUTINES
ASR

7
PAGE 2-35

sg
A3
#177000,R3

177000

003104
000002

15:35

003002

R3,CURCYL
#2,SSINDX
(SP)+,RS
(SP)+,R0O
(SP)+,R3
ERRSWI
99%

65%:

003016

SEQ 0089

JSHIFT TO RIGHT JUSTIFY

;STORE AS CURRENT CYLINDER
JREMOVE ENTRY FROM SUBROUT STACK
JRESTORE REGISTERS
sTEST IF ERROR RETURN
JYES - SKIP

003016

E?RSUI.(SP)

;ADD IN ERROR RETURN

000000

géSP).(SP)

;SET ERROR RETURN ADDRESS

READ ALL HEADERS ROUTINE.
IN IBUFF.

RDALHD: MOV
002404
002404

003016

BIS
MOV

#HDR40,0PFLAG
#1BUFF _R3

MOV
BIS

#10,L.CS
RLDRV,L.CS

BIC

000000

6%:

000000

7%:

RLBAS , R4
#RLMP . R4

#81T10.L.CS

:SET HEADER COUNT

-SET 40 HDR OP FLAG
*SET POINTER TO STORE HDRS

:GET BASE ADDRESS
*MAKE IT POINT TO MP REG

:LOAD FOR READ HEADER, NO INTERRUPT
*INSERT DRIVE NUMBER

:CLEAR FOR DRIVE 4 - 7 SPEC'D

L.BA
L.DA
DESHD

BIS
MOV
MOV

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

*ELSE INSERT HEAD 0
:LOAD RLDA REG
:LOAD RLBA

:YES - SKIP

L.CS,RLCS(R2)

;LOAD RLCS REG

8$
RO
7

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

:CLEAR BA
*CLEAR DA
*TEST IF HEAD 0

*YES - SKIP

BIT

#CRDYMSK ,RLCS (R2)

i?@

PC,RDYCHK

BNE

021132

#40. R

CLR
CLR
ST

BEQ

003040
000004
000002
000000

016266

R3,=(SP)
;STORE REGISTERS
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 LOCAiION
R3.SSINDX
:STORE IT BACK
RO,=(SP)
R1,=(SP)
R4, =(SP)
#2 . ERRSWI
;SET FOR NO ERROR RETURN

MOV
ADD

003034
003034
003034

003034
077777
000200

MOV
ST
MOV
suB
MOV
MOV
MOV
MOV
MOV

MOV

003004

40 HEADERS ARE READ AND STORED

MOV

;TEST IF CONTROLLER READY

*ELSE CHECK READY

MOV
BIT

#77777 .RO
:SET COUNT FOR WAIT
#CRDYMSK ,RLCS(R2) : CHECK THAT OPERATION COMPLETED

JSR

PC ,READRL

BNE
DEC
BNE

*ELSE GET ALL REGISTERS

CZRLICO RLO1/02 DRIVE TES; 57
CZRLIC.MAC
24-MAR-80
1

004737
012603

MACY11 30A(1052)

24=-MAR-80

GLOBAL SUBROUTINES

016320

JSR

104456

023451
000000
012340
005037
000417
005737
100007

104456
023452
000000
012642
005037
000405
011423

7
PAGE 2-36

PC,WAITIN

(SP)+,R3
10025. ..ERR1

SEQ 0090

;ELSE WAIT FOR TIMEOUT
;GET RESULT MESSAGE POINTER

CSERHRD
50025
ERR1
ERRSWI

003016

65%

8%:

003044

1,CS

128
10026 ..ERR6

CSER
10026
0
ERR6

003016

003002

;STORE HEADER WORDS

(SP)+,R3
ERRSWI
99%

003016
000000

(R4), (R3)+
(R4)
, (R3)+
é?4),(R3)+
#2,SSINDX
(SP)+ R4
(SP)
+ ,R1
(SP)+,R0

003016

99%:

RTS

;TEST FOR ANY ERRORS
JNO - SKIP

;CLEAR FOR ERROR RETURN

65%:

:CLEAR FOR ERROR RETURN

ERRSWI

65%

12%:

000002

023354

15:35

;DEC HEADER COUNT
REMOVE ENTRY FROM SUBROUT STACK

sRESTORE REGISTERS

S?RSUI.(SP)

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

a(SP), (SP)

;SET ERROR RETURN ADDRESS

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

023356

003002

RPTOP:

010127
011627
000002

002404
012002
000002

TST

BEQ
MOV
PRINTB
MOV
MOV
MOV
MOV
TRAP

000002

000006

SSROR MESSAGES.

3%:

ADD
PRINTB
MOV
MOV

MOV
MOV

R4 ,-(SP)
ssinDX
1%

#2,Ré4
#FMT9 #SEQMES
#SEQMES ,-(SP)

;TEST SUBROUTINE INDEX 0
JSKIP IF O
;SET INDEXER TO FIRST ENTRY

sPRINT '‘SUBROUTINE CALL SEQ''

H#FMT9,~(SP)
#2,-(SP)
SP,RO

CSPNTB
#6,SP
#FMT16,SUBSTK (R4)
SUBSTK (R&4) ,~(SP)
#EMT16,~(SP)

#2,-(SP)
SP.RO

sPRINT CALLING LOCATION

CZRLICO RLO1/702 DRIVE TES T1
CZRLIC.MAC
24~MAR-80 15:27

MACY11 30A(1052)

24~MAR-80

GLOBAL SUBROUTINES

15:35

7
PAGE 2-37

CSPNTB
#6,SP

#2.R4
R&.SSINDX

(9)
(8)
(7)

023454
023460
023464

012746
013746
012746

1%:

006363
003012
011432

38’

ATSTLAB,-(SP)
#3,-(5P)
SP_RO
CSANTB

003004

020000

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

023566
023572
023576
023602

016146
012746
012746
012746

002224
005412
011410
000003

(4)

023606

023610

010600

2622
2623

023616

062706
020127
001007

#10,5P
#SEEKOP 'RORWOP,OPFLAG

L.CS,R1

003004

#177741 R

:STRIP ALL BUT FUNCTION CODE

20$

:NO - SKIP

2%:

20%:

#RORWOP ,OPFLAG
#14.R1

22%:

#RORWOP ,OPFLAG
;SET RD OR WRT FLAG
#FMT1, #MOPER,0PMSGS (R1) ;PRINT OPERATION

21.#4

003004

002224
011424
000002

2638

023722

062706
032737

000006
100000

;SET RD OR WRT FLAG
;TEST IF READ

:NO - SKIP

OPMSGS (R1) ,=(SP)

#3,-(SP)
SP,RO
CSPNTB
#10,SP

003040

016146
012746

22%

OPERATION
SKIP
SET SEEK FLAG
IF WRITE

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

000004

023676
023702

;CLEAR SK & RD OR WRT FLAG

:GET COMMAND EXECUTED

";TEST IF SEEK
:NO #SEEKOP ,OPFLAG
ELSE
#12.R1
sTEST

104414

(8)
(7)

;PRINT ERROR HEADER

ERHEAD, = (SP)

003004

00
052737

LOOP IF NOT ALL PRINTED YET

¥FMT4, ERHEAD ATSTLAB

gg.R1

023560

;BUMP INDEX
;CHECK IF ALL PRINTED

#FMT4 ,~(SP)

003004

2620

SEQ 0091

#DRSET,L.DA

43
316.R1
4%:

#COMPOP,OPFLAG

OPFLAG,R4
#20,R1

5%:

#BITOO R4

6%:

5
#FMT2,0PMSGS (R1)
OPMSGS (R1) ,-(SP)

6%
ézl)*

;CHECK IF GET STATUS
:NO
= SKIP

sTEST IF RESET INCLUDED

:NO
- SKIP
JSET TO PRINT WITH RESET
;TEST IF ANY OTHER OPERATION

JNO - SKIP

sSET UP TO DETERMINE WHICH ONE
JPRESET THE POINTER

;CHECK THE BIT

;IF SET - SKIP
;BUMP POINTER

#FMT2, - (SP}

#2,-(5P)

003004

#HDR40,OPFLAG

;TEST IF 40 HEADER OPERATION

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=MAR-80 15:27

2639

023730

2641

0237

2640 023732
(8)

(7)

(6)
(3)
(&)

(4)
2642

001415

012701

000050

023736

016146

002224

023746
023752
023754

012746
010600
104414

000002

023742

012746

023756
023762

062706
000434

2644 023772
264S 023774
(15) 023774

001430

264

023764

032737

010000

013746
012746
013746
012746
013746
012745
013746
012746

003112
010070
003110
010063
003106
010055
003100
010106

(6)
(3)
(4)
(4)

0264040
024044
024046
024050

012746
010600
104414
062706

000011

(12)
(11)
(10)
(9)
(8)
(7)
(6)

024070
024074
024100
024104
024110
024114
024120

012746
013746
012746
013746
012746
012746
012746

(&)

024126

104414

2646
2647
2648
(13)

(3)

(4)
2649

2650
2651
2652
2653
2654
2655

2656

2657

2658
2659
2660
2661
2662
(9)
(8)

024054
024062
024064
024064

024124

024130
024134

024140
024142

012746

032737
001424

013746

010600

062706
004737

012604
000207

98:

003004

10%:

011650

000024

020000

15%:

003114

010074
003112
010070
003104
010101
012177
000007

000020
024606

024144

024146
024150

024152
024156
024160

024160
024162

010146

010346
010446

012701
012103

011146
012746

#EMT2,=(SP)

ADD
BR

#6,SP
15§

#SEEKOP,OPFLAG

MOV
MOV
MOV
MOV
MOV
MOV
MOV

#HDWD. - (SP)
DESSGN, =(SP)
#SGNWD
.= (SP)
DESDIF .=(SP)
#DIFWD,=(SP)
OLDCYL .~(SP)
#FRMWD
. = (SP)

BEQ
PRINTB
MOV

MOV
MOV
TRAP
ADD

BIT
BEQ
PRINTB
MOV

ADD
JSR

MOV
RTS

005421

:NO = SKIP

*ELSE PRINT IT

#2,-(5P)
SP.RO
CSPNTB

BIT

:SKIP

;TEST IF SEEK

158
‘NO
- SKIP
#FMT13,#FRMWD, OLDCYL ADIFWD ,DESDIF ,#SGNWD ,DESSGN, #HDWD, DE SHD
DESHD,=(SP)

#FMT13.~(SP)

#11,-(SP)
SP,RO
CSPNTB
#24,SP

moauop OPFLAG ;TEST IF READ OR WRITE SET
17%
‘NO
- SKIP
#FMT22,#CYLWD, CLRCYL AHDWD ,DESHD ,#SECWD ,DESSEC
DESSEC,-(SP)

#SECWD
.~ (SP)
DESHD,
= (SP)
#HDWD
. - (SP)
CURCYL ,=(SP)
#CYLWD. ~(SP)
HEMT22.~ (SP)
#7.,-(SP)

SP.RO

CSPNTB

#20,SP
PC,CLRPARM

(SP)+ R4
PC

;CLEAR PARAM TABLE
JRESTORE R4

REPORT REASON ROUTINE

PRINTS REASON PORTION FOR ALL ERROR REPORTS.

RPTRES: MOV

003062

A#FMT2,0PMSGS(R1)

MOV

TRAP

108

0PMSGS (R1) ,=(SP)

PRINTB

MOV

8
PAGE 2-38

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV

17%:

#50,R1

MOV

003004

15:35

MOV

MOV
MOV
TRAP

000006

024000
024004
024010
024014
024020
024026
024030

024034

BEQ

011424

(14)
(13)
(12)
(11)
(10)
(9)
(8)

(7)

MACY11 30A(1052)
24-MAR-80
GLOBAL SUBROUT INES

MOV
MOV

MOV
MOV
PRINTB

MOV
MOV

R1,-(SP)

R3.-(SP)
R&.=(SP)

;STORE R1

*STORE R3
*STORE Ré&

#RESPARM,R1
;GET START OF PARAM
(R1)+,R3
*GET NUMBER OF PARAM
#FMT1.1,#MRSLT,
(R1)
;PRINT NAME
(R1) ,=(SP)
#MRSLT,.-(SP)

SEQ 0092

CZRLICO RLO1/02 DRIVE TEST T 1

CZRLIC.MAC

24~MAR-80 15: 27

MACY11 30A(1052)
24-MAR-80
GLOBAL SUBROUTINES

15:35

8
PAGE 2-39

(7)
(6)
(3)

024166 012746
034172 012746
024176 010600

011415
000003

MOV
MOV
MOV

#FMT1.1,=(SP)
#3,-(5P)
SP,RO

(4)
2663

024.202
024206

062706
021127

000010
010733

ADD
CMP

#10,SP
(R1) ,#MNDRST

2665
2666
2667
2668

0242164
024220
024224
0246226

012704 011634
022127 010726
001002
012704 011642

MOV
cMP
BNE
MOV

(9)
(8)

024236 012146
024240 012746

011154

MOV
MOV

(R1)+,=-(SP)
#RESES,-(SP)

(6)
(3)

024246
024252

012746
010600

000003

MOV
MOV

#3.-(SP)
SP.RO

024256

062706

000010

ADD

#10,SP

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

026262
024264
024270
024272
024276

012146
012746
010446
012746
010600

MOV
MOV
MOV
MOV
MOV

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

(4)
2673

024302
024306

062706
162703

ADD
SUB

#10,SP
cz R3

2664

2669
2670
2671
(7)

024212

0264232
024234
024236

024244

(&)

024254

2672

024262

(4)

2674
2675
(9)

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

(4)

(4)
2676
2677
2678

2679
2680
2681
2682

2683
2684
2685

024300

024312
024314
024314

104414

001453

005303
001442

010446

104414

001413

012146

TRAP

3$:

DEC
BEQ
PRINTB

R3
oec PARAM COUNT
X
IF 0 - EXIT
R4, #RESE3,(R1)+' :REPORT 1S VALUE

TRAP

PRINTB

000003

TRAP

000010
000002

#FMT11.RG
(R1)+,#MCYLOC
3$
#FMT12,R4

R4, #RESE4,(R1)+

YIF 0 - EXIT
A‘FHT‘I JARESES, (R1)0
JREPORT CONDITION

MOV

(R1)+,-(SP)

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

024336
024342
024344
024346

062706
012604
012603
012601

000010

ADD
MOV
MOV
MOV

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

024352

(11) 024352
(11) 024354

(10) 024360
(9) 024364
(8) 024370
(7) 024376
(6) 024400

TRAP

000207

RTS

:
:

005046
153716

012746
013746
012746
012746
012746

006051
003026
006040
011443
000005

CSPNTB

;RESTORE REGS
JRETURN

REPORT PHYSICAL ADDRESS OF DEVICE UNDER TEST
AND ALL REGISTER CONTENTS.

RPTREM: PRINTB
003033

:DEC PARAM COUNT

BEQ
PRINTB

MOV
MOV
MOV
MOV

024350

:REPORT SB VALUE

CSPNTB

011165
011410
000003

6$:

:PRESET FOR FORMAT 11
:CHECK IF REPORTING CYLINDER LOC
‘NO= SKIP
“ELSE CHANGE TO FORMAT 12

CSPNTB

012746
012746
012746
01
104414

:YES = SKIP REST OF REPORT

R4, -(SP)

024316
024322
024326
024332

024334

;TEST IF MESSAGE IS NO DRV STATUS

BEQ

MOV

011160

(CSPNTB

CLR
BISB

MOV
MOV
MOV
MOV
MOV

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

-(SP)
RLDRV+1, (SP)

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

SEQ 0093

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27
(3)

012746
012746

NWOOWWn-=0O

28
S
P o O Y

8
PAGE 2-40

SP,RO
CSPNTB

#FMTE,
= (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)

013746
013745
013746
013746
012746
012746
012746
010600

SP.RO
CSPNTB

104414

062706

#FMT7 ,#LAB2,T.CS,T.DA,T.BA,T.MP,CURCYL
.DESHD
DESHD
.~ (SP)
CURCYL ,-(SP)
T.MP,=(SP)

013746
013746
013746
013746
013746
013746
012746
012746
012746
010600

T.BA.=(SP)
T.DA.-(SP)

T.CS.=(SP)

#LAB2,-(SP)

#FMT7. -(SP)
#10,-(SP)
SP,RO
CSPNTB
#22,SP

104414

062706
000207

010546

15:35

#14,SP
ADD
REPORT RL11 REGISTERS
PRINTB
#FMT6, ccsuan ADANAM, #BANAM, #MPNAM, #( YL WD , #HDWD
#HDWD . = (SP)
MOV
#CYLWD = (SP)
MOV
#MPNAM. - (SP)
MOV
ABANAM.
= (SP)
#DANAM.
= (SP)
#CSNAM.
= (SP)

O\ = NNWNO
N

062706

TRAP

024414
024414

MOV

024410

104414

—

2687

010600

(ole

(4)
(4)

MACYi* 30A(1052)
24=MAR-80
GLOBAL SUBROUTINES

003062
000005

CLRPARM:
2%:

003062

ChSAR PARAMETER BLOCK FOR REPORTING
R5,-(SP)
STORE RS

MOV

#RE SPARM,R1

:GET ADDRESS OF BLOCK

CLR

(R1)+

;CLEAR UORD

MOV
DEC
BNE
MOV

g?g

ENDMOD

#5,R5

RS
2%
#RESPARM,R1
égP)*.RS

;587
€

:DEC_COUNT
sLOOP UNTIL O
sRESET POINTER
JRESTORE R5

SEQ 0094

24=MAR-80

GLOBAL SUBROUTINES

LTITLE

15:35

E 8
PAGE 2-41

CZRLICO RLO1/02 DRIVE TEST 1

'DISK STATE FUNCTIONS

:BITS 0-2 OF THE MULTIPURPOSE REGISTER DURING GET STATUS COMMAND DEF INE THE
THE DRIVE

STATE
STATE
STATE
STATE
STATE
STATE
STATE
STATE

NOWVNSBWN—=O

STATE OF

N I TN

24=MAR-80 15:27

MACY11 30A(1052)

£2

L01702 DRIVE YEST 1

LOAD STATE
SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK
LOCK ON
UNLOAD HEADS
SPIN DOWN

SEQ 0095

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27

MACY11 30A(1052)
24=MAR-80
GLOBAL SUBROUTINES

024636

BGNMOD

HRDWTST

.SBTTL

*TEST 1

15:35

014202

012737

006371

100121

003356

INTERFACE

SEQ 0096

(PART 1)

sTESTON
TST

PASNUM

65%

MISWIW

65%

003012

PAGE 2-42

BASIC

BGNTST

005737
001124
005737

;CHECK IF

FIRST PASS

JEXIT IF NO

sCHECK IF MANUAL

sNO = EXIT TEST

EER

INTERVENTION

A#MISTST ,ERHEAD
;LOAD ERR HEADER
#?g;?P1.#OPR1,#0PR1A, #BASADD ,RLBAS,#/DRVNAM,

005046
153716

RLDRV+1, (SP)

H#DRVNAM,
- (SP)

RLBAS ,~-(SP)
#BASADD
, - (SP)
#OPR1A ,=(SP)
#0PR1,-(SP)
#FMTOP1,-(SP)
#7,-(SP)

000020
004362

OBUFF

. CLEAR FOR RESPONSE

OPR002,0BUFF ,1,NO
CSGMAN
10000%

OBUFF
T$CODE
?PROOZ
10000$:

025114
032737
001006
012703

016512
016544

000040

1%:

003052

104456

000146
000000
012454

010451

003052

PC,TSTINT
PC.GSTATC

JINITIALIZE TEST
;GO GET STATUS (NO RESET)

7%
#MCOSTA ,R3
101.,,ERR3

010436

000010

;TEST RESPONSE YES

#COSTAT,T.MP

000145
000000

012454
032737
001006
012703

OBUFF

7%:

CS$ERHRD
101
0
ERR3

#BHSTAT ,T.MP

#MBHSTA ,R3

102., ,ERR3

CSSRHRD

oO—
o

004362

ERR3

;YES = SKIP

;CHECK

COVER OPEN SET

;YES - SKIP
;SET NAME POINTER

;TEST IF BRUSHES HOME

JYES = SKIP

;SET POINTER FOR BRUSH HOME ERROR

1 €2 RLICO RLO1/02 DRIVE TEST 1
| CZ RLIC.MAC
24-MAR-80 15:27

|
n

|
|

2759
2760
2761
2762

020000

012703

010464

*TEST

003052

24=MAR-80

BASIC

9%:

000147
000000
012454
005737
001405
005003

2763
2764

2765

2766
(4)
(%)
(%)
(5)

025114
025114
025114
025114

025114

003060

INTERFACE

(PART 1)

SEQ 0097

MILSTAT,T.MP

JTEST

IF WRITE LOCK SET

AMWLSTA,R3

sSET NAME POINTER

JYES = SKIP

ERR3

11%:

T.STAT

sTEST

15%
R3

STATE

ZERO

JYES - SKIP
;SET STATE EXPECTED

104., ,ERR7

C$ERHRD

016530

104
0
ERR7

15%:

PC,GSTATR

;DO DRIVE

RESET

65%:

ENDTST

L10024:

104401

.SBTTL

TRAP

CSETST

*TEST 2

BASIC

BGNTST

005737
001077
005737
100074
012737
005046
153716

012746
013746
012746
012746
012746
012746
012746
010600

003356

006371

003012

2%:

¥&:s

PASNUM

TST
BPL
MOV

MISWIW

PRINTF
CLR

#?g;?P1,IOPRZ.IOPR1A,#BASADD,RLBAS.fiDRVNAM,<B,RLDRV*1>

65%

#MISTST ,ERHEAD

JTEST

sTEST

IF MANUAL

PASS 0

;NO - SKIP

:NO = S KIP

INTERVENTION

;SET ERROR HEADER

RLDRV+1, (SP)

#DRVNAM,
- (SP)

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

#OPR2,=(SP)

#FMTOP1,-(SP)

062706

104417

005037

OBUFF

104443

CSGMAN
10000%
F
OBUF
T$CODE

000120
007317

(PART 2)

TST

BNE

014202

INTERFACE

+TESY 2

#7,-(SP)
SP,RO
CSPNTF
#20,SP

025226

8
PAGE 2-43

C$ERHRD
103
0

2773
2774
2775
2776
(3)

103., ,ERR3

104456
000150
000000

2767

15:35

104456

(4)

(5)
(%)
(5)

2768
2769
2770
(3)
(3)
2771
2772

032737

001006

MACY11 30A(1052)

OPR0O0?

;COVER AND RESET WRITE LOCK
. CLEAR FOR RESPONSE

;REQUEST CLOSE

H 8
15:35
PAGE 2-44
BASIC INTERFACE (PART 2)

| CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80
115:27
(5)
(3)

025230
025232
025232
025236

025240
025244
025250
025252
025260
025262
025266
025266
025270
025272
025274

025276

MACY11 30A(1052)
*TEST 2

000001

005737
001740

100008:

004362

001406
012703

1%:

010436

OBUFF

;NO = SKIP

JSR
JSR

PC,TSTINT
PC.GSTATR

sINITIALIZE TEST
;GET STATUS WITH RESET

BIT
BEQ
MOV

#COSTAT,T.MP
9
#MCOSTA,R3

;TEST IF COVER OPEN RESET
;YES - SKIP
;SET NAME MESSAGE POINTER

ERRHRD

104456
000311

TRAP

000000
012406

032737
001405
012703

65%

003052

020000

003052

9$:

010464

;TEST

201.,,ERR2

201
O
ERR2

BIT

HWLSTAT,T.MP

MOV

AMWLSTA,R3

BEQ
TRAP

RESPONSE

YES

(SERHRD

.WORD
WORD
.WORD

ERRHRD

65%:

SEQ 0098

WORD

BEQ

016512
016530
000040

24-MAR-80

202.,.ERR2

sTEST

IF WRITE LOCK RESET

:YES = SKIP
;SET NAME MESSAGE POINTER

CSERHRD

.WORD
WORD
.WORD

202
O
ERR2

TRAP

CSETST

ENDTST

L10025:

025322

025324
025324

.SBTTL

BGNTST

003356

=TEST 3

4%:

PASNUM

MISWIW

EXIT
TRAP

TST
CSEXIT

BMI

LWORD

000063
006662
011627
000002
025414

000006

4$
5

;TEST

IF PASS O

| &°F

;NO - SKIP
sTEST IF MANUAL INTERVENTION
;YES - SKIP

L10026~.

:CHECK FOR PRESENCE OF A P-CLOCK..
5 ?ZS?ES TEST IF NOT AVAILABLE

003144

006662

;TESTO3

BNE

014202

HEAD LOADING

000004
000005

TST

BNE
MOV
MOV
MOVB
MOVB

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

CLKFLG

7$
R2,-(SP)
ANOTST ,R2
#'0.4(R2)
#'3.5(R2)

#FMT9,ANOTST
#NOTST,-(SP)

#FMT9,
= (SP)
#2,-(SP)
SP.RO

CSPNTF
#6,SP

:BRANCH_TO PERFORM TEST

CLOCK IS PRESENT

*SAVE R2
JINITIALIZE POINTER TO TEST MSG.
s INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.
;PRINT MSG. "'TST 3 CANNOT BE PERFORMED...

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

012602

MACY11

027470
016512
016530

30A(1052)
*TEST 3

7%:

24=MAR-80

MOV
JMP
JSR
JSR
TST

1%:

HEAD LOADING

T365%

003060

15:35

8
PAGE 2-45

SEQ 0099

(SP)+,R2

:/NO P=CLK"'
JRESTORE R2

PC,TSTINT
PC.GSTATR

;INITIALIZE TEST
;GET STATUS

T.STAT

;TEST

100%

;BRANCH TO MAKE DRIVE READY FOR SUBSEQUENT TESTS

STATE 0O

:YES - SKIP

lig;?P1HOPRS ,#OPR1A, #BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1>

RLDRV+1, (SP)

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

#0PR1A,-(SP)
#OPR5,=(SP)

025512
025514
025520

H#FMTOP1,-(SP)
#7,-(SP)
SP,RO
CSPNTF

000020

005037

#20,SP

004362

000404
004362
000120
007317
000001

005046
153716
012746

100008%:

004362

2%:
003033

025620

012737
012703
012737

LSST g;lRESPONSE

YES

lig;?Pl.#OPR3,#OPR1A, #BASADD ,RLBAS,#/DRVNAM,

#OPR3,-(SP)
#FMTOP1,-(SP)
#7,-(SP)

SP,RO
CSPNTF
#20,SP

016544

025656

?gUFF

#OPR1A,=(SP)

104417

062706

.CLEAR FOR RESPONSE

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

013746
012746
012746
012746
012746
012746
01 0600

025614

;/LOAD LIGHT''

O0BUFF

OPR002,0BUFF ,1,NO
CSGMAN
10000%
OBUFF
T$CODE
?PROO?

104443

005737
001740

;PROMPT OPERATOR TO 'PRESS LOAD & WAIT FOR

003060

;PROMPT OPERATOR TO 'PRESS LOAD"'
;SET CYCLE UP FLAG

003004

#CYLUP ,OPFLAG

003012

#NSTACHG,ERHEAD :SET ERROR HEADER

#1,R3

3%:

#300. ,R1

sSET EXPECTED STATE VALUE

sSET WAIT CCUNT FOR 30 SECONDS

PC,GSTATC

;GET STATUS

T.STAT

JTEST

10%

STATE

JNO - SKIP

IS STILL O

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

025660
025662

005301
001432

MACY11

30A(1052)
*TEST 3

—

LIST

000340

025670
025670
025670

012746

016112

025674
025674
025674

012746

000104

025700
025700
025700

012746

000003

025706
025706

062706

000010

025712
025720

012737
012737

001750
000001

003142
172542

025726

012737

000113

172540

025734
025740
025742

005737
001375
005037

003142

025746
025750
025754
025754

000736
005037

) e

N
N

—

sDEC WAIT COUNT

JEXIT IF WAIT DONE

<ICLK1NT> <H340>,<,<,<, <> <> <> <>
<#340>,<>,<,<, <> <> <> <> <>
#340
#340,-(SP)>
<MOV

<#104> <#CLKINT> <H340>,<,<>,$,<,0,0

MOV

#CLKINT,=(SP)

MOV

#104,-(SP)>
#104,-(SP)

MEXIT
MSPUT1
#3
MSGNINS <MOV
MOV

#3,-(SP)>
#3,-(SP)

MSSVC
CSSVEC
MSTSTLAB
LMEXIT
MSGNINS <TRAP

C$SVEC>

JMEXIT
MSGNINS <ADD
MEXIT

C$SVEC

#10,SP>

ADD

#10,SP

MOV
MOV

##1000. ,DLYCNT
#1,a4172542
#113,a#172540

64%:

TST

.NLIST

6%:

CLR

DLYCNT

648
a#172540

;INITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER REGISTER
:/FOR 1 _INTERRUPT PER 100 MICRO SECONDS
;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,
:/10 KHZ RATE,START THE CLOCK
:DELAY COUNT EXPIRED?

;BRANCH IF TIME NOT ELAPSED
:STOP THE CLOCK

OBUFF
:CLEAR FOR RESPONSE
OPR0O03,0BUFF ,1,NO

CSGMAN
10001%

OBUFF
T$CODE

?PROO3
004362

025776

M$PUT
MSPUT
MSPUT1
MSGNINS

TRAP

104443
000404
004362
000120
007344
000001

8
PAGE 2-46

MSPUT

DEC
BEQ
ME

MEXIT

104437

D d

PNN NN\
N

HEAD LOADING

MEXIT
MSPUT1
#104
MSGNINS <MOV

025704
025704

004362

#340,-(SP)
MOV
MEXIT
M$PUT1
#CLKINT
MSGNINS <MOV
H#CLKINT ,=(SP)>

025704
025704

172540

15:35

#1000.
TIMDLY
#104 #CLKINT,#340 ;SET P-CLOCK INTERRUPT VECTOR
SETVEC
#3 4104 ACLKINT,#340

MS$PUT

012746

24=MAR-80

025446

100018:

OBUFF
}13

sTEST IF RESPONSE YES
;YES = REPORT

SEQ 0100

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

2858
2859
2860

020337

001406

003060

MACY11 30A(1052)
*JEST 3

108%:
11%:

104456

000455
000000
013542

000454
000002
016544

13%:

14%:

003060

000
013542

17%:
£ IST

026072
026072

012746

000340

026076
026076
026076

012746

016112

026102
026102
026102

012746

000104

026106
026106
026106

012746

000003

026112
026112

104437

15:35

HEAD LOADING

CMP

BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT

TRAP
.WORD
MOV
MOV

JSR
T365%
CMP
BEQ
BHI

R3,T.STAT

13$

301., ,ERR7
CSERMRD
301
0
ERR7

;CHECK IF NOW STATE 1

*YES = SKIP

#300. ,R1
#2,R3
PC,GSTATC

sINITIALIZE WAIT COUNT FOR 30 SECONDS
;SET EXPECTED STATE VALUE
;GET STATUS

R3,T.STAT
20%
17%

;CHECK IF STATE 2
;YES - SKIP
;CHECK IF NO CHANGE - YES - SKIP

., ,ERR7
302.

302
0
ERR7

TRAP
.WORD

CSEXIT
L10026~.

DEC
BEQ
ME

8
PAGE 2-47

TST

CSEXIT
L10026~.

ERRHRD
TRAP
.WORD
.WORD
.WORD

EXIT

104432
001526
005301
001432

026112
026112

24=MAR-80

CS$ERHRD

TST

R1
18%

;DEC WAIT COUNT
;SKIP IF 0

#1000.
TIMDLY
#104 ,#CLKINT ,#340 ;SET P-CLOCK INTERRUPT VECTOR
SETVEC
#3.4104 tCLKINT #340
<#104> <ICLKINT> <H340>,<>,<,<,<,0,0

M$PUT
MS$PUT
<lCLK1NT> <H340>,<,<,<0, <> <> <> <>
M$PUT
MS$PUT
<#340>,<>,<,<,<, <> <> <> >
MSPUTT
#340
MSGNINS <MOV
#340,-(SP)>
MOV
#340,-(SP)
LMEXIT
MSPUT1
#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>
#CLKINT,=(SP
MOV
)
MEXIT
MSPUT1
#104
MSGNINS <MOV
#104,-(SP)>
#104,-(SP)
MOV
MEXIT
MS$PUT1
#3
MSGNINS <MOV
#3,-(SP)>
#3,-(SP)
MOV
MEXIT
MS$SVC
CSSVEC
MS$TSTLAB
MEXIT
MSGNINS <TRAP
C$SVEC>
TRAP
C$SVEC
MEXIT

SEQ 0101

p——

062706

000010

026120
026126

012737
012737

001750
000001

003142

d e

026134

012737

000113

172540

026142
026146
026150

005737
001375
005037

003142

026154
026156
026156
026160
026162
026164
026166
026174
026176
026204
026210
026210
026212
026214
026216
026220

000727

17254

15:35

L 8

HEAD LOADING

MSGNINS <ADD

N
N
N
o N

24-MAR-80

PAGE 2-48

ADD

#10,5P>
#10,SP

MOV
MOV

#1,a4172542

MOV

#113,a#172540

65%:

TST

DLYCNT

NLIST

ME
BR

MEXIT

##1000. ,DLYCNT

—

=2
o

Nt N

NN PN PNN

NN ~

N ~r

026114
026114

wids

2877
~~

MACY11 30A(1052)
*TEST 3

d d = (NN ~

' CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-B0 15:27

172540

18%:

104456

000457
000000
013542
032737
001011
012737
012703

65%
a#172540

003052

#SPDSTAT,T.MP

006426
010536

003012

#SPDERR ,ERHEAD

19%

#MSPERR ,R3

006371
011177
010451
000010

003012

:/FOR 1

INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,

:/10 KHZ RATE,START THE CLOCK

sDELAY COUNT EXPIRED?
;BRANCH IF TIME NOT ELAPSED
:STOP THE CLOCK

;TEST IF

SPINDLE

TIMEOUT

;YES = KIP
;SET ERROR HEADER
sSET NAME MESSAGE POINTER

CS$ERHRD
304
0
ERR3

19%:

104432

sINITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER REGISTER

14%

303., ,ERR7
C$ERHRD
303
0
ERR7

004000

104456
000460
000000
012454

SEQ 0102

TST

CSEXIT
L10026~.

20%:

#MISTST ,ERHEAD
#STATEZ
R4
2
#MBHSTA ,R3
figHSTAT,T.HP

003052

22%
305.
., ,ERRS
CS$ERHRD

;SET ERROR HEADER
;SET CONDITION MESSAGE POINTER
:SET NAME MESSAGE POINTER
sTEST IF BRUSH HOME STILL SET
sYES - SKIP

0
ERR5
TST

CSEXIT

22%:
23%:

000062
016544

0
026310
026312

026314
026314
026314
026314
026314

000010

L10026~.
JSR

003052

PC,GSTATC

#BHSTAT,T.MP

27%

R1
LIST

MSPUT
M$PUT
MSPUT

ME
TIMDLY

26%

;SET WAIT COUNT FOR 5 SECONDS
;GET STATUS
sTEST IF BRUSH HOME RESET
;YES - SKIP
;DEC WAIT COUNT
;SKIP IF ZERO

#1000.

SETVEC #104 #CLKINT
#340 ;SET P-CLOCK INTERRUPT VECTOR
#3, 4104 ,#CLKINT ,#340

<li04>,<tCLKINT>,<l340>,<>,<>,<>,<>,<>,<>
<HCLKINT> <#340>,<>,<>,<>,<>,<,<,
<O

CZRLICO RLO1/02 DRIVE TES 1
CZRLIC.MAC
24-MAR-80 15:27
(5)
(6)
(7)

(8)

(8)
(5)
(6)
(7)
(7)
(4)
(5)
(6)
(6)

(3)

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

(3)

(4)

(3)

026314
026314
026314

MSPUT
MSPUT1

026314

012746

000340

026320
026320
026320

012746

016112

012746

000104

026324
026324
026324

012746

026334

MSGNINS <TRAP

026342

012737

001750

(3)

2904
2905

2906
2907
2908
2909
2910
2911
2912
(1)
(2)
(3)

026336

026350

104437

012737

000001

012737

000113

026364
026370
026372

005737
001375
005037

003142

026376
026400

000735

026410
026410

026412

026414
026420

026424
026426
026434
026436
026440

026442

026442
026442
026442

C$SVEC

MEXIT
MSGNINS <ADD

—

003142

MOV

172540

MOV
66%:

172540

#10,SP>

ADD

#10,SP

MOV

172542

NLIST

26%:

104456
000462
000000
012522

104432
001200
012701
004737
027612
032737
001042
005301
001432

CS$SVEC>

TRAP

026356

026400
026402
026404
026406

#3,-(SP)>
#3,-(SP)

MEXIT

(1)

2903
(3)

MSGNINS <MOV
MOV
MEXIT
M$SVC
C$SVEC

MS$TSTLAB

000010

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

#1064 ,-(SP)

026334

062706

2901
2902

MOV

MEXIT

026334

026336

1)
(1)
(1)
(1)
(1)
(1)
2900

#340.-(SP)

MEXIT
MSPUT1
A#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>
MOV
#CLKINT ,=(SP)
MEXIT
MSPUTT
#104
MSGNINS <MOV
#104,-(SP)>

000003

026334

(1)

#340,-(SP)>

MOV

M$PUT1

(4)
(4)
(2)

2%;

<l340> <,<,<,$,4,80,0,0
#4340

MSGNINS <MOV

026330

026330
026330

m 8
24-MAR-80 15:35 PAGE 2-49
HEAD LOADING

MACY11 30A(1052)
«TEST 3

TST
BNE
CLR
ME

BR
ERRHRD
TRAP
.WORD
WORD
.WORD

EXIT
TRAP
000454
016544
000010

27%:
28%:
003052

LIST
MSPUT
M$PUT

.WORD

MOV
JSR

T365%
BIT
BNE
DEC
BEQ
ME
TIMDLY

##1000. ,DLYCNT

;INITIALIZE DELAY COUNT

#113,a#172540
’
DLYCNT
66%
172540

/FOR 1 INTERRUPT PER 100 MICRO SECONDS
;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,
/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED’
:BRANCH IF TIME NOT ELAPSED
:STOP THE CLOCK

#1, 4172542

23%
306 . .ERR4

JINITIALIZE CLOCK COUNT SET BUFFER REGISTER

;LOOP

$ERHRD
306
0
ERR4

TST
CSEXIT
L10026~-.
#300. ,R1
PC,GSTATC
#BHSTAT,T.MP
32%
R1
308

#1000.

JINITIALIZE WAIT COUNT FOR 30 SECONDS
;GET STATUS
sTEST IF BRUSH HOME SF| AGAIN
;JYES = SKIP

JELSE DEC WAIT COUNT
:SKIP IF 0

SETVEC
#104 #CLKINT, d340 JSET P=-CLOCK INTERRUPT VECTOR
#3, 4104 #CLKINT,#340
<l104> <#CLKINT> <H340>,<,<,<,<,<,0

SEQ 0103

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

012746

MACY11 30A(1052)
*TEST 3
M$PUT
MSPUT
M$PUT1
MSGNINS

000340

24=-MAR-80

HEAD LOADING

012746

000003

012737
012737

001750
000001

003142

026504

012737

000113

172540

026512
026516
026520

005737

003142

005037

172540

026524
026526

000735

SwON

NN N

W=UVWINVN
S maaaaaaaas

000010

026576

172542

MOV

#3,-(SP)>
#3,-(SP)

NLIST

003012

CSSVEC>
C$SVEC

ADD

#10,SP>
#10,SP

MOV
MOV

##1000. ,DLYCNT
#1,a4172542

#113,a#172540

67%:

104456
000463
000000
012572

000000
013542

MEXIT

30%:

003060

#104,-(SP)>
#104,-(SP)

MEXIT
M$SVC
C$SVEC
M$TSTLAB
MEXIT
M$GNINS <TRAP
TRAP
MEXIT
MSGNINS <ADD

062706

006414
000003
016544

<MOV
MOV

MEXIT
#3
M$PUT1
M$GNINS <MOV

104437

001375

8
PAGE 2-50

<HCLKINT>,<#340>,<>,<>,<>,<>,<>,<>, <O
<H340>,<,<,<, <> <> <> <> <>
#340
<MOV
#340,-(SP)>
#340,-(SP)
MOV

#104

000104

#CLKINT
<MOV
#CLKINT,=(SP)>
#CLKINT ,=(SP)
MoV

016112

012746

15:35

32%:

DLYCNT

67%
a#172540

sINITIALIZE DELAY COUNT

sINITIALIZE CLOCK COUNT SET BUFFER REGISTER
:/FOR 1 INTERRUPT PER 100 MICRO SECONDS
;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,

:/10 KHZ RATE,START THE CLOCK

:DELAY COUNT EXPIRED?
:BRANCH IF TIME NOT ELAPSED
:STOP THE CLOCK

28%
CS;RHRD

lgSTgCHG.ERHEAD sSET ERROR HEADER
sSET EXPECTED STATE VALUE
PC,GSTATC
;GET STATUS

R3,T.STAT

368
., ,ERR7
308.
C$ERHRD
308
0
ERR7

;CHECK IF STATE 3

;YES
= SKIP

SEQ 0104

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27

MACY11 30A(105§)
«TEST

24-MAR-80 15: 35
HEAD LOAD
EXIT

TRAP

006371
011207
010475
016544

003012

000020

003052

368:

WORD

#MHOSTA,R3
PC.GSTAYC

JGET STATUS

BIT

#HOSTAT,T.MP

sTEST IF HEADS OUT SET

TRAP
.WORD
.WORD
.WORD
EXIT

CS$ERHRD

ERRS
TST

.WORD
MOV

L10026~-.
#10..R1

012746

000104

104437

:SET CONDITION MESSAGE POINTER
sSET NAME MESSAGE POINTER

JYES = SKIP

CSEXIT

<lCLK1NT> <H340>,<,<,0, <> <> <> <>
<#340>,<,<,<, <> <> <> <> <
#340

MSPUT1

#CLKINT

<0104> <lCLKINT> <H340>,<>,$0,<,0,0,0
#340,-(SP)>
#340.-(SP)

MSGNINS <MOV

MCLKINT,-(SP)>

MSPUT1
#104
MSGNINS <MOV
MOV

#104,-(SP)>
#104,-(SP)

MSPUT1
#3
MSGNINS <MOV
MOV
JMEXIT
MSSVC
CSSVEC
MSTSTLAB
JMEXIT
MSGNINS <TRAP

000003

38%
309...ERRS

;SET ERROR HEADER

MSPUT
MSPUT
MSPUT1

MOV

016112

#STATE3 R4

MS$PUT

MSGNINS <MOV
MOV

000340

L10026~.

TIMDLY #1
SETVEC #1064, #CLKINT #3460 ;SET P-CLOCK INTERRUPT VECTOR
#3.4104 fiCLKINT #340

MSPUT

012746

TST

CSEXIT

MOV

TRAP

381%:

SEQ 0105

MMISTST ERHEAD

BNE
ERRHRD

38%:

PAGE 2=51

MOV

'r’ggss

000012

TRAP

LMEXIT
MSGNINS <ADD
ADD

#CLKINT .=(SP)

#3,-(SP)>
#3,-(SP)

(SSVE(>

CSSVEC

026702
026702

062706

000010

026706
026714

012737
012737

000001
000001

003142
172542

MOV
MOV

#41,DLYCNT
#1,a8172542

sINITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER REGISTER

026722

012737

000113

172540

MOV

#113,a#172540

;SET INTERRUPT ENABLE ,REPEAT INTERRUPT MODE,

#10,5P>
#10,SP

:/FOR 1

INTERRUPT PER 100 MICRO SECONDS

:710 KHZ RATE,START THE CLOCK

LICO RLO1/02 DRIVE TEST 1
L 1C.MAC

)
)

;
9
0

24-MAR-80 15:27

026730
026734

003142

026736

005737
001375

005037

172540

026742
026746
026752
026754
026762
026764
026766
026770
026774
026776
026776
027000
027002

012700
004737
027612
032737
001012
005301
001334
012703

000001
016544

027004

001000

MACY11 SOA(‘IOSg)
«TEST

68%:

m it

003052

010425

104456
000466
000000
012572

TST
BNE

172540

MOV
JSR
1365%
BIT
BNE
DEC
BNE
MOV
ERRHRD
TRAP
.WORD
.WORD
.WORD

#1,R0
PC,GSTATC

JGET THE STATUS AFTER SHORT DELAY

#VCSTAT,T.MP
408
R1
381%
#MVOLCK ,R3
310.,.ERRS
CSERHRD
310
O
ERRS
CSEXIT
L10026~-.
#DRVERR,T.CS
42%
#MDRERR,R3
311.,.ERRS
CSERHRD
311
O
ERRS

CSEXIT
L10026~-.
#3000. ,R1
:SET WAIT COUNT FOR 300 MS
#NSTACHG,ERHEAD ;SET ERROR HEADER
#4 ,R3
sSET EXPECTED STATE VALUE
PC.GSTAT(C
;GET STATUS

104456
000467
000000
012572

027034
027036
027040
027044
027052
027056
027062
027064
027070
027072
027074

104432
000554
012701
012737
012703
004737
027612
020337
001442
005301
001432

TRAP
.WORD
MOV
MOV
MOV
JSR
T365%
CMP
BEQ
DEC
BEQ

010402

EXIT

005670
006414
000004
016544

027102
027102
027102

027106

012746

42%:
43%:

L187T

;STOP THE CLOCK

sTEST IF VOLUME CHECK SET
sDECREMENT COUNTER
sTRY FOR 'VC' AGAIN IF MORE TIME LEFT
sSET NAME MESSAGE POINTER

TST

sTEST IF DRIVE ERROR SET
JYES = SKIP
;SET NAME MESSAGE POINTER

TST

R3,T.STAT
49%
R1
47%

JCHECK IF STATE 4
JYES - SKIP
;DEC WAIT COUNT
;SKIP IF O

000340

ME
TIMDLY #
SETVEC #1064 ,#CLKINT #3400 ;SET P-CLOCK INTERRUPT VECTOR
MSPUT
43,4104 #CLKINT,#340
MSPUT
a104> aCLKINb <H340>,<>,$>,,<0,0,0
MSPUT
aCLKINb <H3460>,,<,0, <O <> <> <>
MSPUT
<#340>,<>,<>,<>,<>, <> 5,O, 0
MSPUT1
#340
MSGNINS <MOV
#340,-(SP)>
T MOV
#340,-(SP)

016112

MSPUT1
#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>
MOV
#CLKINT ,=(SP)

027076

012746

003012

003060

027076
027076
027076
027076

40%:

9
PAGE 2-52
;DELAY COUNT EXPIRED?
JBRANCH IF TIME NOT ELAPSED

TRAP
.WORD
BIT
BNE
MOV
ERRHRD
TRAP
.WORD
.WORD
.WORD

003044

DLYCNT
68%

EXIT

040000

15:35

HEAD LOADING

027004
027006
027010
027016
027020
027024
027024
027026
027030
027032

027034

104432
000604
032737
001010
012703

24-MAR-B0

CMEXIT

MSPUT1

#104

SEQ 0106

' CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC

|
|

24~MAR-80 15:27

(5)

027106
027106

012746

000104

(3)

027112
027112
027112

012746

000003

(6)
(6)

(4)

MACY11 30A(105§)
*TEST

027116
027116

104437

027120
027120

062706

000010

027124
027132

012737
012737

000001
000001

003142

027140

012737

000113

172540

027146
027152
027154

005737
001375
005037

003142

027160
027162
027162
027164
027166
027170
027172
027172
027174

000736

172542

MSSVC
CSSVEC
MSTSTLAB
LMEXIT
MSGNINS <TRAP
TRAP
LMEXIT
MSGNINS <ADD
ADD
MEXIT
MOV
MOV

69%:
NLIST

47%:

104456

000470
000000
013542

000416

012701
012703

004737
027612
020337

49%:

50%:

003060

LIST

027226

(SSVE(>
C$SVEC
#10,SP>
#10,SP
#4171 ,DLYCNT
#1,a4172542

ERRHRD

312...ERR7

.WORD
.WORD
.WORD

312
0
ERR7
TST

.WORD

MOV

INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,

:/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED?
;BRANCH IF TIME NOT ELAPSED
:STOP THE CLOCK

L10026-.

#300. ,R1

;SET WAIT COUNT FOR 30 MS
sSET EXPECTED STATE VALUE
;GET STATUS

R3,T.STAT
55%

;CHECK IF STATE S
;YES = SKIP
;DEC WAIT COUNT
JELSE SKIP

BEQ
ME

518

TIMDLY

;/FOR 1

CSEXIT

#5,R3
PC,GSTATC

SETVEC

sINITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER REGISTER

CSERHRD

MOV
JSR
1365%
CMP
BEQ
DEC

027224

#3,-(SP)>
#3,-(SP)

DLYCNT
69%
a#172540

TRAP

SEQ 0107

#104,=(SP)>
#104,-(SP)

TST
BNE
CLR

ME
BR

PAGE 2-53

#113,a#172540

TRAP

000454
000005
016544

MOV

EXIT

104432

15:35

HEAD LOADING

MSGNINS <MOV
MOV
JMEXIT
MSPUTT1
#3
MSGNINS <MOV
MOV
MEXIT

027116
027116

172540

24~MAR-80

#1704 #CLKINT #340 ;SET P-CLOCK INTERRUPT VECTOR

#3.8104, #CLKINT #340

<#104> <#cLK1NT> <H340>,<>,<0,<K0,$,<0,0

027226

012746

000340

027232
027232
027232

012746

016112

#340
MSGNINS <MOV
MOV
MEXIT
M$PUT1
#CLKINT
MSGNINS <MOV
MOV

#340,-(SP)>
#340,-(SP)
#CLKINT,=(SP)>
#CLKINT ,=-(SP)

}
CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC

(7)

(&)
(5)
(6)
(6)
(3)
(4)
(5)
(5)
(2)
(3)
(4)
(3)
(&)
(4)
(2)

é%;

24-MAR-80 15:27

012746

000104

027242
027242
027242

012746

000003

027246
027246
027250

104437

027250

062706

000010

027254
027262

012737
012737

000001
000001

027270

012737

000113

027276
027302

005737
001375

003142

104456
000471
000000
013542

(3)
(3)

027322
027324

104432
000266

027304

027310
027312
027312

027322

2982 027326
2983 027332
2984 027336
2985 027340
2986 -022346
2987 027350
2988 027352
(1)
(2)

(3)

(4)

(5)

(6)
(7)
(8)
(8)
(5)
(6)

005037

_—_—

#4171 ,DLYCNT
#1,a4172542

172540

MOV

#113,a#172540

TST
BNE

DLYCNT
70%

70%:

.NLIST

000120
016544

55%:
56%:
003044

.WORD
.WORD
.WORD

313
O
ERR7

TRAP
.WORD

MOV
JSR
1365%
BIT
BNE
DEC
BEQ

CSEXIT
L10026~.
#80. .R1
PC,GSTATC

:SET WAIT FOR 8 MS
:GET STATUS

#DRDYMSK,T.CS
102%
R1
60%

sCHECK IF DRIVE READY
:YES = SKIP
;JDEC COUNT
:SKIP IF O

TIMDLY

TST

MSPUT

027354

MSPUT

027360
027360

508
313.,,ERR7
CSERHRD

SETVEC
#7104 ,#CLKINT,#340 ;SET P-CLOCK INTERRUPT VECTOR
#3%, 4104 #CLKINT,#340

MSPUT

000340

aw172540

MSPUT

012746

CLR
ME
BR
ERRHRD
TRAP

JINITIALIZE DELAY COUNT
JINITIALIZE CLOCK COUNT SET BUFFER REGISTER
;/FOR 1 INTERRUPT PER 100 MICRO SECONDS
;sSET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,
/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED’
;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

LIST

027354

#10,SP>

MOV
MOV

EXIT

027354
027354

C$SVEC>
CS$SVEC

003142
172542

51%:

000001

#3,-(SP)>
#3,-(SP)

#10,SP

000736

012701
004737
027612
032737
001121
005301
001432

#104,-(SP)>
#104,-(SP)

ADD

172540

027354

027354
027354
027354

HEAD LOADING

MSPUT1
#104
MSGNINS <MOV
MOV
MEXIT
MSPUT1
#3
MSGNINS <MOV
MOV
MEXIT
MSSVC
C$SVEC
MSTSTLAB
JMEXIT
MSGNINS <TRAP
TRAP
MEXIT
MSEGNINS <ADD

027246
027246

027314
027316
027320

2989

«TEST 3

MEXIT

027236
027236
027236

(1)
(1)
1)
(1)
1)
(1)
(1)
(1)
2978
2979
2980
(4)
(5)
(5)
(5)

2981

9
MACY11 30A(1052) 24-MAR-B0 15:35 E PAGE
2-54

~#104>, <lCLK1NT> <H340>,<>,$,<>,0,0,0
r('\INT> H360>.<>,<>, <, <, <> <> <>

<#742>,<,0,<0 <> <> <> <> <>

MSPUT1
#4340
MSGNINS <MOV
#340,-(SP)>
MOV
#340,-(SP)
MEXIT
MSPUT1
#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>

SEQ 0108

—

' CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
(7)
(7)

027360

012746

5
(6)
(6)
(3)

016112

MEXIT

(4)

S
(5
2)
(3)

027370
027370
027370

000104

012746

000003

027374

104437

027376
027376

062706

000010

027402
027410

012737
012737

000001
000001

003142

027416

012737

000113

172540

027424
027430
027432

005737
001375
005037

003142

027436
027440
027446
027452
027456

000735
012737
012704
012703

—

NN ~~~

i D WM
&~
N
v v

027374
027374

027374

027470
027474
027500
027502
027510
027512
027512
027514
027520

N =

172540

006371
011217
010260

004737
004737
027612
032737
001040

027540

027554
027556

104417

MOV

#104

MSGNINS <ADD
ADD
MEXIT
MOV

71%:
NLIST

003012

104456
000472
000000
012572
000451

005046
153716
012746
013746
012746
012746
012746

027544
027550

172542

60%:

PAGE 2-55

SEQ 0109

#CLKINT ,=(SP)

#104,-(SP)>
#104,-(SP)
#3.-(SP)>
#3,-(SP)

(SSVE(>
C$SVEC
#10,SP>
#10,SP

#41,DLYCNT
#1,a8172542

MOV

#113,a#172540

TST

DLYCNT

sINITIALIZE DELAY COUNT
JINITIALIZE CLOCK COUNT SET BUFFER REGISTER

:/FOR 1

INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT iNTERRUPT MODE,

:/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED?

BNE
CLR

71%
a#172540

BR
MOV
MOV
MOV
ERRHRD

56%
#MISTST ,ERHEAD
#STATES R4
#MDRDY ,R3
314, ,ERRS

.WORD
.WORD
.WORD

314
O
ERR5
102%

SEXIT TEST

JSR

PC,TSTINT

sINITIALIZE TEST

BIT
BNE

#DRDYMSK ,T.CS
102%

;CHECK IF DRIVE IS READY
:BRANCH IF DRIVE 1S READY

;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

;SET ERROR HEADER
sSET CONDITION MESSAGE POINTER
;SET NAME MESSAGE POINTER

CSERHRD

;MAKE DRIVE READY FOR SUBSEQUENT TESTS

016512
016530

1008:

003044

1018%:

011316
000007

MOV

TRAP

000001

15:35

HEAD LOADING

MSGNINS <MOV
MOV
MEXIT
MSPUTT1
#3
MSGNINS <MOV
MOV
MEXIT
MSSVC
CSSVEC
MSTSTLAB
MEXIT
MSGNINS <TRAP
TRAP
MEXIT

(%)
3
(4)

MSPUT1

012746

24=MAR-80

*TEST

(4)

S A 33

24~MAR-80 15:27

MACYTT 30A(105§)

%ggss

PC,.GSTATR

;GET STATUS WITH RESET

?fANTF

#ig;?Pl.#OPR6,#OPR1A,#BASADD ,RLBAS,#DRVNAM,

BISB
MOV
MOV
MOV

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

MOV
MOV
MOV
MOV
MOV

TRAP

#OPR1A,-(SP)
#OPR6,
= (SP)
#FMTOP1 ,-(SP)
#7,-(SP)
SP,RO
CSPNTF

CZRLICO RLOT/02 DRIV TEST 1
| CZRLIC.MAC
24~MAR-80 15:27
|
(4)
3005

G 9

24-MAR-BO 15:35 PAGE 2-5¢
HEAD LOADING

MACYTT 30A(1052)
]

SE@ 0110

027560

062706

000020

ADD

#20,5P

3006
.
3007
'
3008
L
(3)

027564
027570
027570

005037

004362

CLR
GMANIL
TRAP

:/8 WAIT FOR READY'
OBUFF
:CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO
:PROMPT OPERATOR FOR RESPONSE
CSGMAN

027574

004362

.WORD

OBUFF

ST
BEQ

OBUFF
1018

(3)

(4)

(S)
(5)
(5)
(3)

027572

3009
3010
3011
3012

027576
027600
027602
027604
027604
027610
027612
027612

(3)

027612

3018
(3)
3019
3020

027614
027614
027614
027620

3022
3023

027626
027630

3013

(3)
3014
3015
3016
3017

3021

(3)

(3)
3024
3025

104443

000404

000120
007317
000001

.WORD
.WORD
.WORD

005737
001740

102%:
T365%:

027612

027622

027630

104401

LSBTTL

.
005737
001003

BGNTST
003356

100402

8%:

104432

027634
027640
027642
027646
027654
027662

005737
001024
012702
112762
112762

003144

(8) " 62766~ 012746
(7)
027666 012746
(6)
027672 012746
(3)
027676 010600
(4)
027700 104417
(4)
027702 062706

006662
011627

ggg%

027706

3034
(3)
(3)

027710
027710
027710

3035
3036
3037
3038
3039

027712
027720
027724
027730
027732

TSCODE
OPRO02
1

:TEST IF RESPONSE IS YES
“BRANCH IF NOT READY

006662
000060
000064

%
TRAP

CSETST

*TEST 4

TST
BNE

005737 014202
001054

3031

10002%

ENDTST

L10026:

027632

3026
3027
3028
3029
3030

10002$:

004362

:ELSE, PROMPT OPERATOR TO ‘PRESS LOAD

HEAD UNLOAD ING

STESTO04

PASNUM
8s

:TEST IF FIRST PASS
:NO - SKIP

108
TST

:YES = SKIP

TST

MISWIwW

TRAP

CSEXIT

BM]
EXIT

STEST IF MANUAL INTERVENTION

.WORD
L10027-.
:CHECK FOR PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE
108:
TST
CLKFLG
:P=CLOCK?

BNE
TST4
MOV
#NOTST ,R2
MOVB
#'0,4(R2)
MOVB
#'4,5(R2)
PRINTF #FMTO, ANOTST

000004
000005

000002

MOV
MOV

#NOTST,=(SP)
#FMT9,~(SP)

ADD

#6,SP

MOV
MOV
TRAP

000006

000750

:BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
INITIALIZE POINTER FOR TEST MSG.
:INSERT TEST NUMBER INTO MSG.
:INSERT TEST NUMBER INTO MSG.
:PRINT MSG. ''TST 4 CANNOT BE PERFORMED...

#2,-(SP)
SP,RO
CSPNTF

B8R

TRAP

C$85UB

:/NO P=-CLK""

SEXIT TEST

BGNSUB
104402

012737
004737
004737
030576
032737

T4::

006414
016512
016530

003012

000001

003044

TST4:

MOV
JSR
JSR
T465%
BIT

T4.1:

#NSTACHG,ERHEAD ;SET ERROR HEADER
PC,TSTINT
sINITIALIZE TEST
PC,GSTATR
:GET STATUS
#DRDYMSK,T.CS

;CHECK IF DRIVE READY

| CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-B0 15:27

3040
3041
(13)
(13)
(12)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)

3042
3043
(3)
(3)
(4)
(5)
(5)
(5)
(3)
3044
5822

027740
027742
027742
027744
027750

3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
3061
ggg%
3064

005046
153716
012746

013746
012746
012746
012746
012746
012746
01
104417
062706
005037

030020
030022
030024
030026
030030
030032
030034
030034
030040

104443
000404
004362
000120
007317
000001

3047 030042
3048 030050
(13) 030050

(13)
(12)
(11)
(10)
(9)
(8)
(7)
(6)
(3)
(4)
(4)
3049

001040

027754
027760
027764
027770
027774
030000
030004
030006
030010
030014

030020

030052
030056
030062
030066
030072
030076
030102
030106
030112
030114
030116
030122

030126
030132
030136
030142
030144
030150
030152
030160
030162
030164
0301
030170
030172
030176

MACY11

1%:
003033
006051
003026
006040
010011
007555
011316
000007
000020

004362

052737

000010

012746
013746
012746
012746
012746

012746
012746
01
104417
062706
012703

012704
012701
004737
030576
020337
001465
022737
001053
005304
1
005301
001434
012704

10000$:

003004

3$:
4%:

003033
006051
003026
006040
010011
007477
011316
000007

000144
001274
016544

5%:

003060
003060

8%:

000144
.L

g2a

6%:

15:35

PAGE 2-57

HEAD UNLOADING

BNE
PRINTF
CLR

3s
YES
= SKIP
#FMTOP1,#0PR6, dOPR1A +ABASADD ,RLBAS , #DRVNAM, <B,RLDRV+1>
=(SP)
RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS,~(SP)
#BASADD ,~(SP)
#OPR1A,~(SP)
#OPR6,=(SP)
#FMTOP1,~(SP)
#7,<(SP)
SP,RO
CSPNTF

ADD

#20,SP

CLR
GMANIL
TRAP
BR
.WORD
.WORD
.WORD
.WORD

OBUF F
:CLEAR FOR RESPONSE
OPR0O0Z2,0BUFF,1,NO
CSGMAN
10000%
OBUFF
TSCODE
OPRO0OZ2
1

TST
BEQ

OBUFF
1%

BIS
PRINTF
CLR

#ULOAD ,OPFLAG
;SET UNLOAD OPERATION
#FMTOP1,#OPR3,#OPRTA, #BASADD ,RiBAS,/DRVNAM, <B,RLDRV+1>
-(SP)

BISB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV

000020
000006

000005

24=MAR-80

BISB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
TRAP

004362

005737
001740

005046
153716

30A(1052)
*TEST &

RLDRV+1, (SP)
#DRVNAM,
- (SP)
RLBAS ,-(SP)
#BASADD
, - (SP)
#OPR1A,=(SP)
#OPR3,-(SP)
#FMTOP1,-(SP)
#7,-(SP)
SP,RO
CSPNTF
#20,SP
#6,R3

:TST RESPONSE YES
;NO - SKIP

;SET EXPECTED STATE VALUE

MOV
MOV
JSR
T465%
CMP
BEQ
CMP
BNE
DEC
BNE
DEC
BEQ
:gv

#100. ,R4
#700. ,R1
PC,GSTATC

sSET SECOND LEVEL COUNT
sSET WAIT COUNT FOR 30 SECONDS
;GET STATUS

R3,T.STAT
11$
#5,T.STAT
9%
R4
6%
R1
7$
#100. R4

sCHECK IF STATE 6
;YES - SKIP
;TEST IF STATE 5
;NO - REPORT WRONG STATE
;DEC_2ND LEVEL COUNT
;SKIP IF NOT O
:ELSE DEC 1ST LEVEL COUNT
:IF 0 = SKIP _TO QUESTION
JELSE RESET 2ND LEVEL

TIMDLY

;WAIT 100 US

SEQ 01N

RLO1/02 DRIVE TEST 1

<MAC

24-MAR-80 15:27

MACY11

000340

030202
030202
030202

012746

016112

030206
030206
030206

012746

000104

MOV
MEXIT
M$PUT1
#104
MSGNINS <MOV
MOV

000003

M$PUTT
#3
MSGNINS <MOV
MOV
M$SVC
C$SVEC
MS$TSTLAB
MEXIT
MSGNINS <TRAP
TRAP
MEXIT
MS$GNINS <ADD
ADD

b
d

062706

000010

030224
030232

012737
012737

000001
000001

003142
172542

030240

012737

000113

172540

030246
030252
030254

005737
001375
005037

003142

MSPUT

<#340>,<>,<>,<>, <> <> <> <> <>

MEXIT

64%:
NLIST

7%:

013542

#3,-(SP)>
#3,-(SP)

C$SVEC>

C$SVEC

#10,SP>
#10,SP

MOV

#113,a#172540

TST
BNE
CLR
ME
BR
CLR
GMANIL

DLYCNT
64%
a#172540

.WORD
.WORD

09%:

#104,-(SP)>
#104,-(SP)

##1 ,DLYCNT
#1,a4172542

TRAP

10001%:

#CLKINT,=-(SP)

MOV
MOV

004362

#4104 ,#CLKINT, #340 ;SET P=-CLOCK INTERRUPT VECTOR

MEXIT

030220
030220

N
N

d ek
d

SETVEC

SEQ 0112

#3.4104 fiCLKlNT #340°

MEXIT

104437

004362

9
PAGE 2-58

MSPUT1
#340
MEGNINS <MOV
#340,-(SP)>
MOV
#340,-(SP)
CMEXIT
MSPUTT
#CLKINT
MEGNINS <MOV
#CLKINT ,=(SP)>

030216
030216

000726
005037

HEAD UNLOADING

012746

172540

15:35

MSPUT

N
S

d
d

N
VI N

—

«TEST
&

MSPUT
MSPUT

030216
030216

RGGRRER

24=MAR-80

030176
030176
030176
030176
030176
030176
030176
030176

012746

PNINANNPN

30A(1052)

OPRO03
1

TST

OBUFF

ERRHRD

401., ,ERR7

.WORD
.WORD
.WORD

401
0
ERR7

TRAP

sSET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,

/10 KHZ RATE,START THE CLOCK
;DELAY COUNT EXPIRED’
*BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

b} 3
OBUFF
;CLEAR FOR RESPONSE
OPROO3,0BUFF ,1 NO
CSGMAN
10001$
OBUFF
T$CODE

.WORD
WORD

BEQ

JINITIALIZE DELAY COUNT
JINITIALIZE CLOCK COUNT SET BUFFER REGISTER
;/FOR 1 INTERRUPT PER 100 MICRO SECONDS

C$ERHRD

sTEST

IF RESPONSE

NO SKIP

YES

JELSE REPORT STATE CHANGE WRONG

—

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27
104432
000

MACYTT

30A(105£)
*TEST

TRAP

000007
005670
016544

012746

000340

012746

016112

012746

000104

012746

000003

MOV

12%:

JSR
T465%

LMEXIT

d —d — —— — — - (NN
—

MEXIT

SuB

CSEXIT

L10030-.

#7 ,R3

sSET EXPECTED STATE VALUE

#3000. ,R1

PC,GSTATC

;JGET STATUS

CMP

R3,T.STAT

sCHECK IF STATE 7

BEQ
DEC
BEQ

18%
R1
16%

*SET COUNT FOR 300MS

;JYES - SKIP
sDEC WAIT COUNT
JSKIP IF O

ME
TIMDLY
#1
SETVEC
#104 #CLKINT
#340 ;SET P-CLOCK INTERRUPT VECTOR
43,8104 ,#CLKINT ,#340
<#104>,<HCLKINT>,<#340>,<>,<>,<>,0,
<0, <O
<HCLKINT>,<#340>,<>,<>,<>,<>,<>,<>,
<O
<#340>,<>,<>,<>,<>,<>,<,<0,0

MOV

MSSVC
CSSVEC
MSTSTLAB
LMEXIT
MSGNINS <TRAP

104437

SEQ 0113

MOV

M$PUT
MSPUT
MSPUT
MSPUT
MSPUT1
#4340
MSGNINS <MOV
MOV
LMEXIT
MSPUT1
#CLKINT
MSGNINS <MOV
MOV
CMEXIT
MSPUT1
#104
MSGNINS <MOV
MOV
MEXIT
MSPUT1
#3
MSGNINS <MOV

030374
030374

.WORD

11%:

LIST

J 9

15:35 ~PAGE 2-59

HEAD UNLOAD ING

EXIT

003060

030370
03037C
030370

24-MAR-80

TRAP

#340,-(SP)>
#340,-(SP)
#CLKINT,=(SP)>
#CLKINT,=(SP)
#1064 ,~(SP)>
#104,-(SP)

#3,-(SP)>

#3,-(SP)

(SSVEC>

CS$SVEC

030376
030376

062706

000010

030402
030410

012737
012737

000001
000001

003142

172542

MOV

#1,a4172542

030416

012737

000113

172540

MOV

#113,a#172540

TST
BNE
CLR

DLYCNT
65%
a#172540

sDELAY COUNT EXPIRED?
;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

12%
402.,,ERR7
C$ERHRD
402

;JREPORT WRONG STATE CHANGE

005737
001375
005037
000736
104456

000622

003142
172540

MSGNINS <ADD
ADD
MEXIT

65%:
NLIST

16%:

MOV

ME
BR
ERRHRD
TRAP

.WORD

#10,SP>
#10,SP

#4171 ,DLYCNT

JINITIALIZE DELAY COUNT

JINITIALIZE CLOCK COUNT SET BUFFER REGISTER
:/FOR 1 INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE
.

:/10 KHZ RATE,START THE CLOCK

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27
(5)
(5)
3086
(3)
(3)
3087
3088
3089
3090
3091
3092
3093

030444
030446
030450
030450
030452
030454
030456
030462
030466
030470
030474
030476
030500

3095
3096
(1)

030502
030502

(3)
(4)
(5)

030502
030502
030502

(2)

(6)
(7)
(8)
(8)
(5)
(6)
(7)
(7)
(4)
(5)
(6)
6)

MACY11

30A(1052)
«TEST 4

000000
013542
104432
000132
005003

012701

004737
030576
005737
001440
005301
(€01432

K 9
24-MAR-80
15:35 PAGE 2-60
HEAD UNLOAD ING
WORD
.WORD

O
ERR7

TRAP
.WORD
CLR

CSEXIT
L10030~-.
R3

EXIT
18%:

001130
016544

20%:

003060

LIST

030502

MSPUT

MSPUT
MS$PUT
MSPUT

030502
030502
030502

012746

030506
030506
030506

012746

016112

030512
030512
030512

012746

000104

MOV

JSR
T465%
TST
BEQ
DEC
BEQ
ME
TIMDLY
SETVEC

LMEXIT

030522
030522

MSPUTT1
#3
MSGNINS <MOvV
MOV
MEXIT
MESVC
C$SVEC
MSTSTLAB

(3)

030522

MSGNINS <TRAP

(4)

(4)
4)

(2)

030522

030524

012746

000003

MEXIT

104437

MEXIT

gg;

030524

062706

000010

(1)

030530

012737

001750

(1)

030536

012737

000001

(1)

030544

012737

000113

(1)

030552

005737

003142

(1)

(1)
(1)

3097
3098
3099

030556
030560

001375
005037

030564
030566

000736

172540

TRAP

MSGNINS <ADD

003142

#600. ,R1

PC,GSTATC

JSET EXPECTED STATE VALUE
JSET WAIT COUNT FOR 60 SECONDS
;GET STATUS

T.STAT
24%
R1
22%

:CHECK IF STATE 0
JYES = SKIP
sDEC WAIT COUNT
;SKIP IF O

#1000.
#104,#CLKINT, #340 ;SET P=-CLOCK INTERRUPT VECTOR

<#104> <ICLK1NT> <H340>,<>,$>,<>,0,80,0
<fiCLK1NT> <H340>,<,<, <> <> <> <> <>
<#340>,<>,<>,<>,<>, <> <> <> <>

(3)
(4)
(5)
(5)
(2)
(3)

030516
030516
030516

SuB

#3.4#104, #CLKINT #340°

MSPUT1
#4340
MSGNINS <MOV
MOV
JMEXIT
MSPUT1
A#CLKINT
MSGNINS <MOV
MOV
MEXIT
MSPUTT
#104
MSGNINS <MOV
MOV

000340

ADD

MOV

#340,-(SP)>
#340,-(SP)
#CLKINT ,=(SP)>
#CLKINT ,=(SP)
#104,-(SP)>
#104,-(SP)
#3,-(SP)>
#3,-(SP)

C$SVEC>
C$SVEC
#10,SP>

#10,SP
##1000. ,DLYCNT

172542

MOV

#1 a#172542

172540

MOV

#113,a#172540

TST

DLYCNT

66%:

NLIST

22%:

SEQ 0114

BNE
CLR

ME
BR
ERRHRD

;INITIALIZE DELAY COUNT

JINITIALIZE CLOCK COUNT SET BUFFER REGISTER

;/FOR 1

INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE
.,

/10 KHZ RATE,START THE CLOCK

*DELAY COUNT EXPIRED?

66%
a#172540

*BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

20%
403.,.ERR7

JREPORT WRONG STATE CHANGE

030566
030570

MACY11

104456
000623
000000
013542

012737

000002

003016

N
N
N

15:35

PAGE 2-61

HEAD UNLOADING

TRAP

.WORD
.WORD
.WORD

C$ERHRD
403
0
ERR7

MOV

#2 ,ERRSWI

L10030:

104403

SEQ 0115

sINIT ERROR SWITCH

C$ESUB

26%:

005046
153716
012746
013746

#?g;?P1,IOPR6,#0PR1A.#BASADD.RLBAS,#DRVNAM.<B.RLDRV*1> ;REQUEST CYCLE uP

RLDRV+1, (SP)

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

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

S S WONN00 Lo B e e e

W
NN NN o, D N
AN
A PN

Y2038 ummmbwwg

AAAA’\A’\E—NG

#7,=(SP)
SP,RO
CSPNTF
#20,SP
OBUFF
. CLEAR FOR RESPONSE
OPR0O02,0BUFF ,1,NO
CSGMAN
10000%
OBUFF
T$CODE
?PROOZ

06
005037
104443
000404
004362
000120
007317
000001

005737
001740

:
10000$

004362

OBUFF

sTEST IF RESPONSE YES

26$%

29%:

:NO - SKIP

ENDTST

L10027:

104401

TRAP

CSETST

.SBTTL
BGNTST

SO OBV

(N = =

N
N
N
N

d e e

NINDND =

d o

WWWWWW

o, d e

N R AN

d o P

b s (N

D o cd e

WWWWW

24%:
T465%:

24=MAR-80

#FMTOP1,~(SP)

3105

WWWWW

30A(1052)
*TEST 4

ENDSUB

N i

WWWW

i o

WWOOOSU‘U‘MJ‘
VOJNWW?V
~ (NN —

CZRLICO RLO1/02 DRIVE TE ST 1
CZRLIC.MAC
24~MAR-80 19:
5:27

012737
005737
001173
032737
00:567
005046
153716

012746
013746
012746

003016

*TEST 5
MOV
TST
BNE

014202
1%:

DRIVE SELECT

;TESTOS

#2 ,ERRSWI
PASNUM

EXTO5

#DRSELT MISWIW

EXTO5

;SET FOR NO ERROR RETURN
sTEST IF FIRST PASS
3;NO - SKIP
TEST IF SELECT TESTS

:NO - SKIP

1S8::

#?g;9P1,#0PR7,#0PR1A,#8ASADD,RLBAS,#DRVNAM.<B.RLDRV*1>

RLDRV+1, (SP)

#DRVNAM,
- (SP)

RLBAS ,-(SP)
#BASADD,
- (SP)

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

MACY11

30A(1052)
*TEST 5

030756

24=MAR-80

15:35

———

CZRLICO RLO1/02 DRIVE TES
CZRLIC.MAC
24~MAR-80

M9
PAGE 2-62

DRIVE SELECT

SEQ 0116

#OPR1A,=(SP)

#OPR7 = (SP)

#EMTOP1,=(SP)

#7,-(SP)

SP,R0
CSPNTF

(4)
(4)

#20,SP
OBUFF

;REQUEST 'REMOVE ADD PLGS EXCPT *'
:CLEAR FOR RESPONSE

OPR002,0BUFF ,1,NO
CSGMAN

100008
OBUFF
T$CODE
?PROOZ
100008:

—

—_—

j=]
W

_—

)

AISFXRBBR SERERERNFRRR

004362
006526
016512
016544

003012

003032
003032
000004
000400
002000

003116

010137

003032

012746
012746
00

010025
010015

3%:

LPTOS:

A ¥

5%:

OBUFF
1%
#TOSERR,ERHEAD

;TEST RESPONSE YES
*NO - SKIP
-SET ERROR HEADER MESSAGE

RLDRV, TEMPO
RLDRV .R1
P

:STORE ORIGINAL DRIVE NUMBER
*PUT IT IN R1
*SET COUNT FOR NUMBER OF PLUGS

PC,TSTINT
PC.GSTATC

#400,R1
02006 R1

R1
R1,RLDRV

SINITIALIZE TEST
*DO SELECT AND GET STATUS

*BUMP TO NEXT DRIVE
*CHECK IF TO LARGE

‘NO - SKIP
*ELSE CLEAR TO DRIVE 0
*PUT IT BACK IN RLDRV

#FMTOP3, #OPRS, <B.RLDRV+1>,#OPR1B, #UNDTST
#UNDTST.~ (SP)
#OPR1B, - (SP)
-(SP)
RLDRV+1, (SP)

003033
007637
011367
000005

#FMTOP3,~(SP)
#5,=(SP)

000014

#14,SP

004362

OBUFF

#OPR8,
- (SP)
SP.RO
CSPNTF

s INSERT PLUG REQUEST
:CLEAR FOR RESPONSE

OPR002,0BUFF ,1,NO
CSGMAN
10001$
OBUFF

T$CODE
?PROOZ

004362

10001$%:
BGNSUB

OBUFF
5%

;TEST RESPONSE YES
JNO - SKIP
15.1:

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 1 5:27

031202
031204
031210
- 031212

104402
004737
031212
012737

MACY11 30A(1052)
*TEST 5

003016

031220

60%:

15:35

DRIVE SELECT

TRAP

016544

000002

24-MAR-80

9
PAGE 2-63

($85U8

SEQ 0117

ggg

PC,GSTATC

;GET STATUS = REPORT ANY ERROR

MOV

#2 ,ERRSWI

sINIT ERROR SWITCH

TRAP
DEC

C$ESUB
R4

sDEC_COUNT

ENDSUB

L10032:

013737

003116

003032

012746

T504%:
A ¥

BNE
MOV

PRINTF

MOV
MOV
MOV

MOV

#OPR9,~(SP)
#OPR8,~-(SP)
#FMT4 ,-(SP)

#3,-(SP)

GMANIL

OPROOZ OBUFF ,1,NO

TRAP

EXTO5:

#FMT4 ,#0PR8,#0PR9

SP,RO
CSPNTF
#10,SP

10000%:

:LOOP IF NOT ZERO
;ELSE RESTORE RLDRV

MOV
TRAP
ADD

CLR

004362

LPTO5
TEMPO ,RLDRV

O0BUFF

:CLEAR FOR RESPONSE

CSGMAN

100008

.WORD
.WORD
.WORD
WORD

OBUFF
TSCODE
OPR0O0Z2
1

TST
BEQ

OBUFF
4%

TRAP

CSETS)

sTEST IF RESPONSE YES
:NO - SKIP

ENDTST

L10031:

.SBTTL
BGNTST

003356

000004

*TEST 6
TST

014202
1%:

BNE
BIT
BNE
EXIT
TRAP

.WORD

112762

012746

006662

;TESTO6

PASNUM

1%
#DRSELT ,MISWIW
4%
TST
CSEXIT

;CHECK IF

FIRST PASS

:NO
- SKIP
;CHECK IF TEST DRIVE SELECT
;YES
= SKIP

L10033-.

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

4$:

003144
006662
000060
000066

DRIVE SELECT ERROR TEST

000004
000005

TST

BNE
MOV

CLKFLG

6%
#NOTST ,R2

MOVB

#'0,4 (R2)

PRINTF

#FMT9,#NOTST

MOvB

MOv

#'6,5(R2)

#NOTST ,~(SP)

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

;PRINT MSG. '‘TST 6 CANNOT BE PERFORMED...

‘ClRLlCO RLO1/702 DRIVE TEST 1
| CZRUIC.MAC

24-MAR~80 15:27

{

012746
012746
010600

011627
000002

062706

000006

031410

000750
012737
004

104417

006462
016512
003360
002012
002012

«TEST 6

003012

6%:

000001

2%:

103370

3193

031516

010004
021437
001364
005037
012737
056437
012737
013762
013762

012746

000340

031536
031536
031536

012746

016112

031542
031542
031542

012746

000104

031546
031546
031546

012746

000003

8 10
PAGE 2-64

#FEMT9,~(SP)
#2,-(SP)

MOV
TRAP
ADD

SP,RO
CSPNTF
#6,SP

BR
MOV

1%
#GSTER1 ,ERHEAD

MOV
MP
BLOS
INC
MP
BLOS
CLR
GPHARD
MOV

PSETNM,R3
LSUNIT M
5%
R3
R3.LSUNIT
3%
R3
R3,R0O
R3,RO

JSR

PC,TSTINT

;/NO P=CLK''

JEXIT TEST
;SET ERROR HEADER
JINITIALIZE TEST

GE PARAM SET NUMBER
JTEST IF MORE THAN 1 UNIT
:NO - SKIP
;BUMP PARAMETER SET NUMBER
sCHECK IF PAST VALID PARAMETER TABLE
JNO - SKIP
JELSE CLEAR TO POINT TO ENTRY 0

TRAP
C$GPHRD
g?EOHPLESE
2%

;SKIP IF NOT AVAILABLE

MOV

RO.R4

;PUT POINTER INTO Ré

BNE
CLR
MOV
BIS

2%
DONE
#GTSTAT,L.CS
10(R4) ,L.CS

JNO - SKIP
;CLEAR DONE FLAG
;LOAD GET STATUS
s INSERT DRIVE

L.CS.RLCS(R2)

;LOAD CS REG

MOV
MOV

031532

15:35

DRIVE SELECT ERROR TEST

cMP

(R&) .RLBAS

sCHECK IF SAME CONTROLLER

#GETSTAT'!DRSET,L.DA
;SET UP TO CLEAR DRIVE
L.DA,_RLDA(R2)
;LOAD DA REG

LIST

MOV
ME
TIMDLY

MS$PUT

#3,8104 #CLKINT t340

MSPUT
MSPUT

031552
031552

264=MAR-80
MOV
MOV

3%:

o P N

o~~~

SEBEIRRRER2Z

WPt

(%)

031370
031374
031400
031402
031404

MACY11 30A(1052)

#30.

3 MS

SETVEC #104,#CLKINT, 0346SET P-CLOCK INTERRUPT VECTOR

<fi104> <lCLKlNT> <H340>,<>,<,<,0,0,0
<#CLK1NT> <H340>,<>,0,0, <> <> <> <>
MSPUT
<#340>,<,<,<>, <> <> <> <> <>
MSPUT1
#340
MSGNINS <MOV
#340,-(SP)>

MOV

#340,-(SP)

MOV

#3,-(SP)

MEXIT
MSPUT1
#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>
MOV
#CLKINT,~(SP)
MEXIT
MSPUTT
#104
MSGNINS <MOV
#104,-(SP)>
MOV
#104,-(SP)
MEXIT
MSPUT1
#3
MSGNINS <MOV
#3,-(SP)>
MEXIT
M$SVC
CSSVEC
MSTSTLAB
MEXIT

SEQ 0118

MACY11

c 10

30%;?52)

264-MAR-80
15:35 PAGE 2-65
DRIVE SELECT ERROR TEST

031552
031552

(2)

0315564

031554

062706

000010

(1)
(1)

031560
031566

012737
012737

000036
000001

003142
172542

MOV
MOV

##30. ,DLYCNT
#1, 4172542

;INITIALIZE DELAY COUNT
:INITIALIZE CLOCK COUNT SET BUFFER REGISTER

(1)

(1)
(1)

031574

012737

000113

172540

MOV

#113,a#172540

:SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE.

031602

005737

003142

(1)

031610

005037

172540

005737

003006

(4)

(1)

3204
3205

3206
3207
3208

031606

031614

031620
031622
031630

001375

001707
032737
001415

100000

000702

(8)
(7)
(6)

012746
012746
012746

007673
011627
000002

062706

000006

031634

031634
031640
031644

(3)
(4)

031650
031652

3211
3212

031660
031664

3214
3215

031672
031676

013700
013705

031706

042705

(4)

3213

031654

3216

031702

3218

010600
104417

000137
016437

MSGNINS <ADD

#10,SP>

JMEXIT

3209 031632
3210

(SSVEC>
($SVEC

032466
000010

003032
003120

648:

003044
5%:

003120

208:

3220
3221

031720
031722

005005
062705

000400

218:

3223

031730

031726

3224

031732

3226

031742

3225

031736

(11) 031742
(11) 031744

(10) 031750

(9)
(9)

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

031754
031756

031762
031766
031772
031776

(4)

032000

3227
3228

032006
032012

(4)

032002

020500

001770

052705

010562

005046
153716

012746

005046
153716

000200

ADD

#6,SP

RLDRV.RO
TEMP1 .RS

(MP

RS, #1400

BNE

#2000 .RS

:STORE NEW ADDRESS

;ASK FOR PLUG CHANGE

*GET DRIVE UNDER TEST
*GET NEW ADDRESS

*CLEAR FOR ADDRESS 0 TO 3
;TEST IF DRIVE NUMBER 3

JELSE SET TO DRIVE NUMBER 0
:BUMP TO NEXT ADDRESS

SYES = SKIP

BIS

#CRDYMSK ,RS

PRINTF

#FMTOP2,#OPR8,<B_RLDRV+1>,#0PR1B,<B, TEMP1+1>

003121

RS,RLCS (R2)

MOV

#OPR1B,~(SP)

CLR
BISB

-(SP)
RLDRV+1, (SP)

#OPR8, - (SP)
#FMTOP2,-(SP)
#5,-(SP)
SP.RO

062706

00001

ADD

214, sp

TRAP

CLR
GMANIL

ELSE SET CONTROLLER READY BIT

*AND LOAD CS REG

-(SP)
TEMP1+1,(SP)

MOV
MOV
MOV
MOV

00436

REPORT CAN'T FIND 2ND DRIVE

:THIS EQUAL TO NEW ADDRESS?

20§

007637
011345
000005

005037

*ELSE CHECK ~5xr DRIVE

RS ,.RO

BEQ

012746
012746
012746
01
104417

‘NO = SKIP
JTEST IF ANY ERROR SET
‘NO
- GO TEST

*NO
- SKIP

RS
#400,RS

CMP

IF INTERRUPT

21%

CLR
ADD

CLR
BISB

003033

LCLEXT
10(R4),TEMP1

#2000.R0

BIC

:STOP THE CLOCK

SP,RO
CSPNTF

BIC

MOV

010015

#0PR10,~-(SP)
#FEMT9, = (SP)
#2,-(SP)

000000

no &S~

3222

:TEST

MOV
MOV
MOV

MOV
MOV

/10 KHZ RATE,START THE CLOCK
*DELAY COUNT EXPIRED?

DONE

#FMT9,#0PR10

98 :

INTERRUPT PER 100 MICRO SECONDS

*BRANCH IF TIME NOT ELAPSED

172540

PRINTF

B8R

7%:

001400

001001

DLYCNT

:/FOR 1

64$

2
#ANYERR,T.CS
7%

JMP
MOV

020527

#10.5P

BEQ
BIT
BEQ

MOV
TRAP

031712

3219 031716

BNE

NLIST ME

002000
002000

TST

CLR

042700

3217

ADD

(3)
(&)

104437

MSGNINS <TRAP
TRAP

SEQ 0119

————————

CZRLICO RLO1/02 DRIVE TEST 1
cznuc MAC
24-MAR-80 15:27

C$PNTF

OBUFF
. CLEAR FOR RESPONSE
OPR002,0BUFF,1,NO

CZRLXCO RLO1/702 DRIVE TESY 1
{CZRLIC.MAC
24~MAR-80 15:27

(3)
(3)

(4)

032012
032014

032016

104443
000404
004362
000120
007317
000001

005737
001717
012704

104402

013737
013762

000012

003032
003034

012746

000340

012746

016112

012746

000104

012746

000003

(2)
(3)

032076
032076

(3)
(4)

032076
032076

(2)

032100

062706

000010

)

032104

012737
012737

000144
000001

032112

TRAP

(SGMAN

.WORD

OBUFF

.WORD
.WORD

OPROOZ2
1

TST

OBUFF

003034
000000

MSPUT
MSPUT
MSPUT
MSPUT
MSPUT1
MSGNINS

012737

000113

;

032126

005737
001375
005037

003142
172540

TSCODE

B
#10. R4

TRAP

($85LUB

MOV
:gv

RLDRV,L.CS
L.CS,RLCSR(R2)

TIMDLY

#100.

SETVEC

SEQ 0120

100008

BEQ
MOV

sTEST IF RESPONSE

JNO - SKIP
JSET COUNT

YES

76.1:

sSET UP TO SELECT MULTIPLE DRIVES
:DO IT

#1704 #CLKINT #340 ;SET P-CLOCK INTERRUPT VECTOR

#3,.48104 lCLKINT #340
<#104> <#CLK1NT> <H340>,<>,<,<$,<,<0,0
<fiCLKINT> <H340>,<>,<, <> <> <> <> <>
<#340>,<>,<,<,<O <> <> <> <>
#340
<MOV
#340,-(SP)>

MOV

#340,-(SP)

JMEXIT
MSPUTT
#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>
MOV
#CLKINT ,=(SP)
MSPUTT1
#104
MSGNINS <MOV

MOV

MEXIT
MSPUT1
#3
MSGNINS <MOV
MOV
MEXIT
MSSVC
CSSVEC
MSTSTLAB
MEXIT
MSGNINS <TRAP
TRAP

032120

032132
032134

BGNSUB

104437

;

)
7

«TEST 6

100008:

004362

0 10

15:35 PAGE 2-66
DRIVE SELECT ERROR TEST

24-MAR-80

.WORD

032072
032072
032072

;

30A(1052)

(3)
(4)
(5)

)
)

MACY11

003142

172542

MSGNINS <ADD
ADD
LMEXIT
MOV

MOV

172540

648
CNLIST

#104,-(SP)>
#104,-(SP)
#3,-(SP)>

#3,-(SP)

CS$SVEC>

C$SVEC

#10,SP>
#10,SP
##100. ,DLYCNT

2, 172542

MOV

#113,a#172540

TST

DLYCNT

CLR
ME

a#172540

BNE

64%

;INITIALIZE DELAY COUNT

JINITIALIZE CLOCK COUNT SET BUFFER REGISTER

;/FOR 1

INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE
.,

/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED’

*BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

'CZRLICO RLO1/02 DRIVE TE
| CZRLIC.MAC

24-MAR-80

3238

052737
012737

032140
032746

MACYTT 30A(1052)

24=MAR-80

*TEST
6

003034
003040

15:35

E 10
PAGE 2-67

DRIVE SELECT ERROR TEST

BIS
MOV

SEQ 0121

#GTSTAT,L.CS
sSET GET STATUS
#GETSTAT!DRSET,L.DA
sSET RESET BIT 3 IN THE DA REG FOR THE
:/DRIVE TO CLEAR ITS ERROR REGISTER

;/BEFORE SENDING A STATUS WORD TO THE
:/MP REG DURING GET STATUS COMMAND

032154

013762

000004

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

000000

#1
6’#1,(PC)0

002116

;DO GET STATUS

;WAIT FOR INTERRUPT

bSDLY,(PC)4

177772

177756

003006

DONE

016320

PC,WAITIN

12%

(SP)+,R3
12%

601. ,GSTER1 ,ERR1
ggERHRD

sCHECK IF

INTERRUPTED

sYES = SKIP

;WAIT FOR TIMEOUT

;GET ERROR POINTER
;SKIP IF O

GSTER1

ERR1

SuB
CSEXIT

032254

032256
032256
032256
032256
032256
032256
032256
032256
032256
032262
032262
032262

032266
032266
032266

(5)
(5)

032272
032272
032272
032276
032276

128:

012746

000340

016112

MSPUT

MSPUT1

#CLKINT

012746

<#104> <lCLKINT> <H340>,<>,<,<,0,0,0

MSPUT
<H340>,<>,<,<,<, <> <> <> <>
MSPUT1
#340
MSGNINS <MOV
#340,-(SP)>
#340,-(SP)
MOV

MSGNINS <MOV
MOV

MSPUT1

012746

L10034~.

TIMDLY
#20.
;WAIT FOR DSE TO SET
#104 #CLKINT,#340 ;SET P-CLOCK INTERRUPT
SETVEC
#3, 4104 ACLKINT,#340

MS$PUT

012746

#104

000104

MSGNINS <MOV
MOV

000003

MSPUT1
#3
MSGNINS <MOV
MOV
MEXIT
MESVC
(SSVEC

M$TSTLAB

HCLKINT ,=(SP)>
#CLKINT ,=(SP)

#104,~(SP)>
#104,-(SP)

#3,-(SP)>

#3,-(SP)

VECTOR

CZRLICO RLO1/02 DRIVE TEST 1
| CZRUIC.MAC
24=MAR-B0 15:27
(&)

(3)

(4)
(&)

NN
N

104437

032300
032300

062706

000010

032304
032312

012737
012737

000024
000001

003142

032320

012737

000113

172540

032326
032332
032334

005737
001375
005037

003142

004737
032737
001019
012703

017652
000400

172542

F 10

PAGE 2-68

DRIVE SELECT ERROR TEST

65%:

172540

CNLIST

003052

CSSVEC>

C$SVEC

ADD

#10,SP>
#10,SP

MOV
MOV

##20. ,DLYCNT
#1, 4172542

sINITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER REGISTER

#113,a#172540

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

;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

PC,GDRSTA
#DSESTAT,T.MP

;GET STATUS
JTEST IF DRIVE SELECT ERROR SET

JYES - SKIP
;SET NAME MESSAGE POINTER

SUB

000002

003016

012746
012746
012746
010600

007741
011627
000002

062706
005037

000006
004362

CSEXIT
L10034~.

16%:

RS.RLCS(R2)
R4

;LOAD IN DIFFERENT ADDRESS
;DEC COUNT

60%:
ENDSUB

#2 ,ERRSWI

JINIT ERROR SWITCH

15%:

#FMT9 ,#0PR11
#0PR11,-(SP)
#FMT9,-(SP)
#2,-(SP)

L10034:

104403

104417

;/FOR 1 INTERRUPT PER 100 MICRO SECONDS

65%
a#172540

602., ,ERR3
CS$ERHRD
602
0
ERR3

104456
001132
000000
012454

104432
000020
010562
005304
001217
012737

DLYCNT

16%
#MDSERR,R3

010506

SEQ 0122

TRAP

LMEXIT
MSGNINS <ADD

LMEXIT

15:35

S
N

*TEST 6

24-MAR-80

JMEXIT
MSGNINS <TRAP

032276
032276

30A(1052)

N
N
N
N

e ad h e

kb (N

(2)
(3)

MACY1]

C$ESUB

;LOOP IF NOT ZERC

JREQUEST PLUG CHANGE

SP,RO
CSPNTF

#6,SP
OBUFF

sCLEAR FOR RESPONSE

OPRO0Z2,08UFF ,1,NO
CSGMAN

104443

10000%
F
OBUF
T$CODE
QPROOZ

004362

100008:
LCLEXT:
ENDTST

L10033:

OBUF F

15%

JTEST

RESPONSE

JNO - SKIP

YES

(IR LICO RLOY1/702 DRIVE TEST 1
(ZR LIC.MAC
24=MAR-80
1 5:27

032466

032470
032470
032470
032474

005737
001003
005737

104432
000664

032510
032514

005737
001023
012702
112762
112762

24=MAR-80

*TEST
6

003356

1%:

G 10
PAGE 2-69

INITIAL STATE

JTEST 07
PASNUM

CHECK

TST

MISWIW

CHECK

IF MANUAL

BM]
EXIT

2%
TST

FIRST PASS

- EXIT TEST

INTERVENTION

PERFORH TEST IF MANUAL INTERVENTION

TRAP
CSEXIT
. WORD
2§HECK
FOR PRESENCE OF A P=-CLOCK.. .BYPASS TEST IF NOT AVAILABLE
:P=CLOCK?
CLKFLG
38
:BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
MOV
#NOTST ,R2
:INITIALIZE POINTER FOR TEST MSG.

MOvB
MOvB

#'0,4(R2)
#'7,5(R2)

PRINTF
MOV

#FMT9,A#NOTST
#NOTST ,-(SP)

MOV

SP,RO

032556

062706

ADD

#6,SP

032562
032564
032572

000750
012737
004737

032616
032616

TST

012746
012746
012746
010600

032612
032612
032612

SEQ 0123

CSETST

«TEST 7

BNE

014202

15:35

DRIVE SELECT ERROR TEST

TRAP

.SBTTL
BGNTST

032504

032576
032576
032576
032576
032576
032576
032576
032576
032576

(3)

30A(1052)

104401

100402

032506

MACYTT

MOV
MOV

104417

TRAP

003012

3%:
A 15T

012746

000340

012746

016112

012746

000104

012746

000003

MS$PUT
MSPUT
MSPUT
M$PUT
M$PUT1
MSGNINS

s INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.
;PRINT MSG. “TST 7 CANNOT BE PERFORMED...

#FMT9,-(SP)
#2,-(SP)
CSPNTF

;/NO P-CLK"'
SEXIT TEST
;SET _ERROR HEADER

MOV
JSR

#INITST ,ERHEAD
PC,TSTINT

JINITIALIZE TEST

TIMDLY

#10.

;WAIT 1 MS

SETVEC

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

#3,4104, #CLKINT ,#340
<fi104> <#CLKINT> <H340>,<,<,$>,<0,0,0°

<#CLK1NT> <H340>,0,0,0 <> <> <> <>

#340
<MOV
MOV

#340,-(SP)>
#340,-(SP)

MEXIT
M$PUT1
#CLKINT
MSGNINS <MOV
HCLKINT ,=~(SP)>
MOV
HCLKINT ,=(SP)
MEXIT
#104
M$PUT1
MSGNINS <MOV
#104,-(SP)>

MOV
MEXIT
#3
M$PUT1
MSGNINS <MOV

MOV

JMEXIT
M$SV(
C$SVEC
MSTSTLAB

#104,-(SP)
#3,-(SP)>

#3,-(SP)

(&)

(3)

N
N

MACY11

032616
032616

104437

032620
032620

062706

000010

032624
032632

012737
012737

000012
000001

003142

032640

012737

000113

172540

032646
032652
032654

C05737
001375
005037

003142

016530

0
032674

004737
033372
032737
001432

032676

052737

30A(1052)
*TEST 7

H 10
264=MAR-80 15:35 PAGE 2-70
INITIAL STATE

MSGNINS <TRAP
TRAP

172542

MEXIT
MSGNINS <ADD
ADD
MEXIT
MOV
MOV

N
N
N

- N NN

RALERES :

Nt N

NN
NN

005046
153716
012746

Nt N

— e
k

MOV

013746
012746

(10)
N
N

64%:

172540

.NLIST

000001

003044

000010

003004

TST

BNE
CLR

SEQ 0124

CSSVEC>
C$SVEC
#10,SP>
#10,SP
##10. ,DLYCNT
#1,a4172542

e e e

(4)

S WO
O

A~~~

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27

#113,a#172540

DLYCNT

649
a#172540

sINITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER 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

PC,GSTATR

sGET STATUS WITH RESET

#DRDYMSK ,T.CS

;CHECK IF

#ULOAD ,OPFLAG

;SET UNLOAD OPERATION

208

DRIVE

IS READY

;BRANCH IF DRIVE IS NOT READY

#ig;?P1.#OPR3,#OPR1A, #BASADD ,RLBAS,#DRVNAM, <B,RLDRV+1>

003033
006051
003026
006040
010011
007477
011316
000007

#7,-(SP)

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

032732
032736
032742
032746
032750
032752

012746
012746
012746
012746
010600
104417
062706

000020

#20,SP

032756

012703

000000

#0,R3

;SET "LOAD CARTRIDGE'® STATE VALUE 0

032762
032766
032770
032770
032772
033000

004737
033372

016544

PC,GSTATC

;GET STATUS

104422

022737
001370

000000

#OPR3,-(SP)

#FMTOP1,-(SP)

SP,RO
CSPNTF

20%:

C$BRK

003060

#0,T.STAT

208

21%:

;PROMPT OPERATOR TO 'PRESS LOAD"'

;JMAKE A SUPERVISOR CALL
;TEST IF STATE O

;WAIT FOR STATE 0

#;gT?P1.#OPR6 ,#OPR1A, #BASADD ,RLBAS,#DRVNAM,

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

#OPR6,~(SP)

#FMTOP1,-(SP)

#7,-(SP)

SP.RO

———————————————————————————
o
At~

e e

’CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27
|

(4)
(&)

3317
3318
3319
3320
(3)
(3

033046
033050

104417

062706

000020

005037

004362

MACY11

Attt

CSPNTF
#20,SP

CLR
GMANIL

F
OBUF

.WORD

004362

033102
033106
033110
033110
033112
033120

004737

016544

033122

013701
032701
001003
012703
000405
032701
001010
012703

10000$:

.WORD
.WORD
.WORD

22%:

022737 000005
001370 003052
000020
010475
000010

010451

104456

. 7%:

9%:

001276
000000
012454
104432

10%:

010413
011266

;GET STATUS

C$BRK

sMAKE A SUPERVISOR CALL

CMP
BNE

#5,T.STAT
22%

;CHECK IF STATE 5
;WAIT FOR STATE 5

MOV
BIT

T.MP,R1
#HOSTAT ,R1

;GET MP REG
s CHECK HEADS OuT
s YES-SKIP
;SET NAME MESSAGE PTR
;GO _REPORT

BNE
MOV
BR
BIT
BNE
MOV
ERRHRD

7$
#MHOSTA
R3
9%
#BHSTAT ,R1
108
#MBHSTA
R3
702.,,ERR3

.WORD
.WORD
.WORD
EXIT

702
0
ERR3
TST

TRAP

.WORD

CSERHRD

CSEXIT

L10035-.

;CHECK BRUSH HOME SET
:YES-SKIP
:SET NAME MESSAGE PTR
;REPORT ERROR

JEXIT

TST

MISWIW

JTEST IF MANUAL INTERVENTION RUN

TST

PASNUM

JCHECK IF FIRST PASS
sNO-SKIP
JELSE CHECK HD O SELECTED
JYES-SKIP
;SET NAME MESSAGE PTR
sSET CONDITION POINTER
;REPORT ERROR

MOV

ERRHRD
.WORD

.WORD
.WORD
EXIT
TRAP

13%:

TSCODE
OPRO0OZ2
1

PC.GSTATC

TRAP

001000

OBUFF

JSR

65%

BNE
BIT
BEQ
MOV

000100

;PROMPT OPERATOR FOR RESPONSE

;TEST IF RESPONSE IS YES
;BRANCH IF NOT READY

BPL

003356

; CLEAR FOR RESPONSE

OPRO02,0BUFF ,1,NO
CSGMAN
- 100008

21%

TRAP

014202

;PROMPT OPERATOR TO "PRESS LOAD &
;/WAIT FOR READY''

O0BUFF

TRAP

003060

SEQ 0125

TST

BEQ

BREAK

104422

000204
005737

TRAP
ADD

TRAP

005737
001740

033372

24-MAR-80 15:35 PAGE 2-71
INITIAL STATE

«TEST

033100

110

30A(1052)

104443

(4)

.WORD

BIT

16$

16$
#HSSTAT ,R1
13%
#MHSTA ,R3

#CCYLUP,R4

703., ,ERR4

CSERHRD

;NO=-SKIP

703

0
ERRé4
TST

CSEXIT

L10035-.

#VCSTAT
R1

JEXIT

;CHECK VOL CHECK SET

CZRLICO RLO1/02 DRIVE

CZRLlC MA(

033242

TEST 1

24-MAR-80 15:27
001003

MACY11

30A(1052)
*TEST 7

010425

040000

003044

15%:

010402

06
012703

020000

16%:

010464

104456

001301
000000
012406

BNE
MOV

158
AMVOL
CK ,R3

BIT

#DRVERR,T.CS

B8R

BNE
MOV
BR

BIT

BEQ
MOV
ERRHRD
TRAP

021177
002276

000001

17%:

000200
99%:
18¢%:

.WORD
.WORD
.WORD
BIC
CMP
BEQ
CMP
BEQ
BR

1641777

705.,,ERR2

705
0
ERR2
#21177.R1
T.DRIVE
,#1
99$
#200,R1
198
18%

(C$ERHRD

19%
704.
. ,ERR6

; YES=SKIP

JELSE SET NAME MESSAGE PTR

;GO REPORT
;TEST DRIVE ERROR SET
YES-SKIP

:ELSE SET NAME MESSAGE PTR
;GO _REPORT
;CHECK WRITE LOCK STATUS
;SKIP IF RESET
;ELSE SET NAME MESSAGE PTR

;CLEAR STAUS EXCEPT FOR ERROR BITS

sNO=SKIP'
;ELSE REPORT ALL ERRORS

704
0

.WORD
EXIT

ERR6
TST

.WORD

L10035-.

BIC

#141777.R1

BNE

188

MOV

SEQ 0126

($ERHRD

TRAP

25%:
65%:

16$
#MDRERR ,R3
9%
MILSTAT
,R1
17%
AMJLSTA,R3

BEQ
ERRHRD

TRAP

19%:

.WORD
.WORD

003044

J 10

15:35
PAGE 2-72
INITIAL STATE

24-MAR-80

JEXIT

CSEXIT

T.CS,R1

;GET CS REG

sTEST

;CLEAR ALL BUT ERROR BITS
IF

ANY ERROR SET

;YES=SKIP TO REPORT

ENDTST

033372

033374
033374
033374
033402

L10035:

104407

.SBTTL
BGNTST

012737
004737

006513
016512

003012

016530

000100

003052

INITIAL RESET

;TEST 8

STATE
18::

MOV
JSR

#INITST,ERHEAD
PC,TSTINT

JINITIALIZE TEST

JSR

PC,GSTATR

JGET STATUS WITH RESET

MISWIW

TST

PASNUM

BIT

#HSSTAT,T.MP

JCHECK ]F MAN INTERVENTION WAS RUN
NO SKIP
JCHECK IF 1ST PASS
NO'S 1P
;CHECK HD SELECT STILL O

BPL

003356

CSETST

«TEST 8

65%

014202
001014
032737

TRAP

BNE

43
43

CZRLICO RLO1/02 DRIVE TEST 1

(CZRUIC.MAC

.
|
L
.

24-MAR-80 15:27

3394 033436 001410

3395
3396
3397
(%)
(S)
(5)
(5)

3308
3399
3200
(3)
(3)

34,01

3402
3,03
3404

033440
033444
033450

033450
033452
033454
03356

104456
001441
000000
012522

033460
033460

104401

033460
033460
033460

3405
(3)

033462
033462

3,07
3,08
3,09
3,10
3,11
312
(8)

033462
033466
033470
033474
033502
033510
033510

34,06

(7)
(6)
(3)
(&)
(4)

3413
3,14
(3)
(3)
3,15
3416
3,17
3,18
3,19

3,20

321
322
3,23
3,24
3,25
3406
3,27
3,08

3429
330
331
3432
3,33

3,34

012703
012704

033514
033520
033524
033526
033530

033534

033534
033536
033540
033546
033552

033554
033556
033560
033562
033566
033572
033574
033600
033604
033610
033612
033616
033622
033626
033630
033636
033640

MACY11

30A(1052)

*TEST 8

MOV
MOV
ERRHRD

4$:
65%:
ENDTST

L10036:

012746

012746
012746
010600
104417
062706

104432
000370
012737
012701
005021

005021
005021
005011
004737
004737
034126
004737
010537
004737
034126
012703
012704
004737
034126
032737
001406

000004
000005

006662

000006

003012

016512
016530

022266
003112
020622
010260
011027
016560

000001

#MHSTA ,R3
#CCYLUP,RG
801.
. ,ERR4

TRAP
.WORD
"WORD
‘WORD

(SERHRD
801
0
ERR&

TRAP

CSETST

*TEST 9

SEQ 0127

;YES=SKIP

*SET NAME MESSAGE PTR
*SET CONDITION POINTER
‘REPORT ERROR

DRIVE READY
STEST 9

ST
CLKFLG
BNE
1
MOV
#NOTST ,R2
MOVB
#'0.4(R2)
MOVB
#'9 S(R2)
PRINTF
#FMT9,#NOTST
MOV
ANOTST
- (SP)

011627
000002

006541
003102

K 10
PAGE 2-73

19::

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

003144

006662
000060
000071

15:35

INITIAL RESET STATE

BEQ

010413
011266

.SBTTL
BGNTST
005737
001024
012702
112762
112762

24-MAR-80

003044

1%:

MOV
MOV
MOV

TRAP
ADD

#FMTO, (SP)
#2,-(5P)
SP.RO
CSANTF
#6,SP

EXIT

TST

TRAP
.WORD
MOV
MOV
CLR

CLR
CLR
CLR
JSR
JSR
65$
JSR
MOV
JSR
65$
MOV
MOV
JSR
65$%
BIT
BEQ
ERRHRD

CSEXIT
L10037-.
#TO9ERR.ERHEAD
ANEWCYL -R1
(R1)+

(R1)+
(R1)+
(R1)
PC,TSTINT
PC.GSTATR

:P=CLOCK?
*BRANCH TO PERFORM TEST IF P=CLOCK IS PRESENT
*INITIALIZE POINTER FOR TEST MSG.
*INSERT TEST NUMBER INTO MSG.
*INSERT TEST NUMBER INTO MSG.
:PRINT MSG. '‘TST 9 CANNOT BE PERFORMED...

:/NO P=CLK"*

:SET ERROR HEADER
*GET POINTER TO DESIRED LOC
*CLEAR NEW CYL
*CLEAR CURRENT CYL
:
DIFFERENCE

SIGN

“INITIALIZE TEST
*GET STATUS WITH RESET

PC,POSHSB
RS . DE SHD
PC . SIMSEK

:POSITION HEAD SELECTED BIT
*STORE AS DESIRED HEAD
*EXECUTE SIMPLE SEEK

#MDRDY ,R3
#CDRDY _Ré
PC,GSTAT

:SET NAME MESSAGE PTR
*SET CONDITION POINTER
*GET STATUS

#DRDYMSK,T.CS
48
901...ERR4

:TEST READY SET
*NO-SKIP
*REPORT READY ERROR
-

—

MACY1T 30A(1052)
«TEST O

104456

TRAP

001605
000000
012522

000121
016560

4%:

5%:

000005
003060

901
O

TRAP

CSEXIT

.WORD

MOV

033732

033734
033734

MSPUT
M$PUT

M$PUT

012746

000340

033740
033740
033740

012746

016112

033744
033744
033744

012746

033750
033750
033750

012746

033754
033754

;SET WAIT COUNT
;GET STATUS

#5,R3
1.STAT,R3
7%
902.,,ERR?7

sSET EXPECTED STATE VALUE
;CHECK STATE IS 5
;YES=SKIP
;ELSE REPORT

.WORD
.WORD
.WORD
EXIT

902
0
ERR7
TST

.WORD

L10037-.

033756

MOV
BIT

C$ERHRD

CSEXIT

#MDRDY ,R3
#DRDYMSK,T.CS

12%
R1

;CHECK READY SET
:YES-SKIP
sELSE DEC WAIT COUNT
sSKIP IF O

BEQ
9%
ME
TIMDLY
#1
#104 #CLKINT ,#340 ;SET P-CLOCK INTERRUPT VECTOR
SETVEC
#3 4104, #CLKINT ,#340
<1104> <lCLKINT> <H340>,<>,<>,<,<,<0,0

MSPUT
<H340>,<,<,<, <> <> <> <> <>
MSPUT1
#340
MSGNINS <MOV
#340,-(SP)>
#340,~(SP)
MOV

MSPUT1
#CLKINT
MSGNINS <MOV
#CLKINT ,=(SP)>

000104

MOV
MEXIT
MSFUT1
#104
MSGNINS <MOV
MOV

#104,-(SP)>
#104,-(SP)

000003

MSPUTT
#3
MSGNINS <MOV
MOV

#3,-(SP)

MEXIT

H#CLKINT,=(SP)

#3,-(SP)>

MSSVC
CSSVEC
MSTSTLAB
104437

PC,GSTAT

BNE
DEC

LIST

033734

033734
033734
033734
033734
033734
033734

7%:

L10037-.

JEXIT

JSR
65%
MOV
CMP
BEQ
ERRHRD

TRAP

003044

ERR4
TST

#81. .R1

TRAP

010260
000001

C$ERHRD

.WORD
.WORD

.WORD
EXIT

104432

L 10

15:35 PAGE 2-74
DRIVE READY

24=-MAR-80

MSGNINS <TRAP
TRAP

MEXIT
MSGNINS <ADD

CSSVEC>
CSSVEC
#10,SP>

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

SEQ 0128

M 10

——

| CZRL €O RLOT/02 DRIVE TEST 1
CZRLIC.MAC

24-MAR-B0 15:27

((g))

033756

062706

000010

(1)
(1)

033762
033770

012737
012737

000001
000001

(1)
(1
(1)
(1)
(1)

033776

012737

000113

034004
034010
034012

005737
001375
005037

003142

3452
3453

034016
034020

000720

3454
(3)
3‘(. g %

034030
034030
034032

3451

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

3456
3457
3458
(4)
(5)
(5)
(5)
3459
(3)
(3)
3460
3461
3462

3463
3464
3465
3466

(4)
(5)
(5)
(5)
3467
(3)
(3)
3468
(4)
(5)
(5)
(5)
3469

3470
3471
(3)
32;%

034020
034022
034024
034026

034034
034040

034042
034042
034044
034046
034050
034052
034052
034054
034056
034062
034066

034072
034074
034100
034102

034102
034104
034106
034110
034112
034112
034114
034116
034116
034120
034122
034124
034126

034126
034126
034126
034126

172540

MACY1] 30AC1052)
]

—

#10,SP

003142
172542

MOV
MOov

##1,DLYCNT
#1,a4172542

172540

MOV

#113,a#172540

TST
BNE
CLR

DLYCNT
64$
a#172540

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,
:/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED?
;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

BR
ERRHRD

5%
903.,,ERRS

;REPORT READY ERROR

64%:

NLIST

003044

12%:

104456

001610
000000
012642

104432
000052
012703
004737
020537

001415
005737
001406

010413
022266
003112

15%:

104456

001612
000000
012406

104401

'
208:
65%:
ENDTST
L10037:

_INTERRUPT PER 100 MICRO SECONDS

TST
BPL

T.CS
15%

sTEST IF ANY ERRCR
;NO-SKIP

208
DESHD
17%
905., ,ERR3

:
sSET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT FOR TEST
;CHECK IF CORRECT HEAD SELECTED
: YES-SKIP
;ELSE TEST IF 1 DESIRED
:NO-REPORT SB
0
;ELSE REPORT SB 1

ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.WORD
MOV
JSR
cMP

TST
CSEXIT
L10037-.

904.,,ERR6
CSERHRD
904
0
ERR6
TST
CSEXIT
L10037-.
#MHSTA ,R3
PC.POSHSB
R5 ,DESHD

CSERHRD

.WORD
ERRHRD
TRAP
.WORD
.WORD
.WORD

0
ERR3
TST
CSEXIT
L10037-.
906., ,ERR2
CSERHRD
906
0
ERR2

TRAP

CSETST

EXIT
TRAP

17%:

:/FOR 1

C$ERHRD
903
0
ERR5

TRAP
. WORD
.WORD
.WORD

104432

sINITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SET BUFFER REGISTER

TRAP
.WORD
.WORD
.WORD

BEQ
TST
BEQ
ERRHRD

003112

104456
001611
000000
012454
000012

EXIT
TRAP
.WORD

104432
000074

005737
100006

SEQ 0129

ADD

9%:

104456
001607
000000
012572

24-MAR-80
15:35 "PAGE 2-75
DRIVE READY

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15: 27

MACY11 30A(1052)
«TEST 9

LSBTTL

BGNTST

005737
001024
012702
112762
112762

012746
012746
012746
010600
104417
062706
104432
000412
012737
012701
005021
005021
005021

052721
004737
010521

003144
006662
000060

000004
000005

DRIVE READY

«TEST 10

#'0,5(R2)

MOV
MOV
MOV

#FMT9,-(SP)
#2,-(SP)
SP,RO

TRAP

1%:

EXIT

TST

.WORD

MOV
MOV

JSR

T104$%:
BGNSUB

MOV

TRAP
JSR
JSR

016530

010260
011227
016560

104432
000254
A ¥

#T10ERR ,ERHEAD
ANEWCYL ,R1

(R1)+
(R1)+
(R1)+
#8ITO,(R1)+
PC,POSHSB

RS.(R1)+

:SET ERROR HEADER
;CLEAR NEW CYL
;CLEAR CURRENT CYLINDER

sCLEAR DIFFERENCE
sSET FOR SIGN OF 1
sGET SELECTED HEAD
;SET AS DESIRED HEAD

7110.1:

;DO SEEK

#MDRDY ,R3

sSET NAME MESSAGE PTR
sSET CONDITION MESSAGE PTR
;GET STATUS

BIT
BEQ
ERRHRD
TRAP
.WORD
WORD
.WORD
EXIT

#DRDYMSK ,T.CS
4% 1001.,.ERR4
C$ERHRD
1001
O
ERR4
SuB

;CHECK READY RESET
: YES-SKIP
;REPORT READY ERROR

.WORD

L10041~-.

MOV

#81..R1

TRAP

000121

CSEXIT

L10040-.

PC,SIMSEK

60%

000000
012522

;/NO P=CLK"'

sINITIALIZE TEST
;GET STATUS

MOV
JSR

003044

:INSERT TEST NUMBER INTO MSG.
sPRINT MSG. "TST 10 CANNOT BE PERFORMED...

($8sSuUB
PC,TSTINT
PC,GSTATR

60%
JSR
60%
MOV

020622

000001

SEQ 0130

CSPNTF

#6,SP

CLR
CLR
CLR
BIS

000001
022266

#FMT9 ,#NOTST
#NOTST,~(SP)

ADD

TRAP

003012

N 10
PAGE 2-76

SEEK_SIGN SWITCH
;TEST 10

MOVB

PRINTF
MOV

006662
011627
000002

006551
003102

15:35

T10::
;CHECK FOR PRESENCE OF A P-CLOCK. ..BYPASS TEST IF NOT AVAILABLE
;P=-CLOCK?
TST
CLKFLG
BNE
1%
*BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
MOV
#NOTST ,R2
JINITIALIZE POINTER FOR TEST MSG.
#'1,6(R2)
MOVB
s INSERT TEST NUMBER INTO MSG.

016512

012701

24=-MAR-80

#CDRDY ,R4
PC,GSTAT

CSEXIT

JEXIT SUBTEST

;SET WAIT COUNT

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

3512
3513
3514
3515
3516
3517

034330
034334
034336
034342
034346
034350

004737
034576
012703
020337
001406

016560

034350
034352
034354
034356
034360
034360
034362
034364
034370
034376

3525
(1)
(2)
(3)
(4)
(5)
(6)
(7)
(8)

034404
034404
034404
034404
034404
034404
034404
034404
034404

(5)

034410

(7)
(7)
(4)
(5)
(6)

034410

012746

016112

034414
034414
034414

012746

000104

012746

000003

(8)

(6)

(6)
(3)
(4)
(5)
(S)
(2)

034400
034402

034410

»
034420
034420
034420

5%:

104456
001752
000000
013542

104432
000214
012703
032737
001042

010260
000001

003044

005301
001432

012746

BN
264=MAR-80 15:35 PAGE 2-77
SEEK SIGN SWITCH

JSR
608
MOV
cMP
BEQ
ERRHRD

000005
003060

(4)
(5)
(5)
(5)
3518
(3)
(3)
3519
3520
3521

3522
3523
3524

MACY11 30A(1052)
«TEST 10

TRAP
.WORD
WORD
.WORD
EXIT
TRAP
WORD

7%:

MOV
BIT
BNE
DEC
BEQ
ME
TIMDLY

LIST

PC,GSTAT

sGET STATUS

#5,R3
R3,T.STAT
7%
1002.,,ERR7

sSET EXPECTED STATE
:CHECK STATE IS S5
JYES-SKIP
JREPORT STATE ERROR

C$ERHRD
1002
O
ERR7
SuB
CSEXIT
L10041~,

#MDRDY ,R3
#DRDYMSK ,T.CS
12%
R1
5%

000340

MEXIT

MSPUT1

#CLKINT

MSGNINS <MOV

MOV

MEXIT
MSPUT1
#104
MSGNINS <MOV
MOV

#CLKINT ,=(SP)>

#104,-(SP)>
#1046 ,-(SP)

(3)
(4)

034424
034424

MSGNINS <TRAP
TRAP

(CSSVEC>
C$SVEC

(2)

034426

MSGNINS <ADD

#10,SP>

(4)

034424

MEXIT

104437

MEXIT

034426

062706

000010

(1)
(1)

034432
034440

012737
012737

000001
000001

(1)

034446

012737

000113

(1)

034454

005737

003142

(1)

#3,-(SP)>
#3,-(SP)

MSTSTLAB

gg;

(1)

;SET NAME MESSAGE PTR
;CHECK READY SET
;YES=-SKIP
;DO WAIT COUNT
JSKIP IF O

#CLKINT ,=(SP)

034424

(4)

JEXIT

#1
SETVEC
#1064 ,#CLKINT #340 ;SET P=CLOCK INTERRUPT VECTOR
MSPUT
#3.4104, JCLKINT #340
MSPUT
<#104> <JCLK1NT> <H340>,<>,<0,<,0,0,0
MS$PUT
<lCLKINT> <H340>,<>,<,<, <> <> <> <>
MSPUT
<#340>,<>,<>,<, <> <> <> <> <>
MSPUT1
#340
MSGNINS <MOV
#340,-(SP)>
MOV
#340,-(SP)

LMEXIT
MSPUT1
#3
MSGNINS <MOV
MOV
MEXIT
MSSVC
CSSVEC

(3)

SEQ 0131

ADD

#10,SP

003142
172542

MOV
MOV

#41 ,DLYCNT
#1,a4172542

172540

MOV

#113,a#172540

TST

DLYCNT

64%:

JINITIALIZE DELAY COUNT
JINITIALIZE CLOCK COUNT SET BUFFER REGISTER

;/FOR 1

INTERRUPT PER 100 MICRO SECONDS

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE
.,

/10 KHZ RATE,START THE CLOCK

*DELAY COUNT EXPIRED?

CZRLICO RLO1/0 2 DRIVE TEST 1
CZRLIC.MAC
24-MAR-B0 15:
5:27

034460
034462

001375
005037

034466

000720

172540

MACY11 30A(1052)

*TEST 10

NLIST

9%:

104456

001753
000000
012572

100006

12%:

104456

001754
000009
012642

ERRHRD

010473
022266
003112

15%:

104456

104432

EXIT

SEXIT

.WORD

L10041-.

BPL
ERRHRD

158
1004., ,ERR6

;REPORT ALL ERRORS

suB

JEXIT

TST

17%:

104456

001756
000000
012406

C$ERHRD

CSEXIT

T.CS

TRAP
.WORD
.WORD
.WORD

CSERHRD
1004
0
ERR6

TRAP

CSEXIT

LWORD

L10041-.

MOV
JSR

#MHSTA ,R3
PC,POSHSB

TST

DESHD

TRAP

CSERHRD

R5 ,DESHD
20%

17%
1005.,,ERR3

.WORD
.WORD
.WORD
EXIT

1005
0
ERR3
SuB

.WORD
ERRHRD

L10041~-.
1006., ,ERR2

.WORD
.WORD
.WORD

1006
0
ERRZ

TRAP
TST

($ESUB
DESSGN

TRAP

000012

1003
0
ERR5
SuB

BEQ
ERRHRD

001755
000000
012454

;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

;REPORT READY ERROR

CMP
BEQ

003112

648
a#172540

SEQ 0132

1003., ,ERRS

TRAP

EXIT

104432
000052

012703
004737
020537
001415
005737
001406

BNE
CLR
ME
BR

TRAP

003044

15:35 PAGE 2-78
SEEK SIGN SWITCH

.WORD
.WORD
.WORD

104432

000074
005737

24~MAR-80

TRAP

sTEST

IF ANY OTHER ERROR

sNO-SKIP

sSET NAME MESSAGE PTR
sGET SELECTED HEAD BIT
sCHECK IF CORRECT
;YES = SKIP
JWAS IT SET
;NO-SKIP
sREPORT SB 1

CSEXIT

CS$ERHRD

JREPORT SB 0

20%:
60%:

ENDSUB

104403

005737
001404
005037
000137

L10041:
003110

003110
034240

25%:

ENDTST

L10040:

BEQ
CLR
JMP

25%
DESSGN
T104%

sCHECK IF BOTH SIGN USED
;YES-SKIP

;SET FOR SIGN OF 0
;DO TEST AGAIN

|CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

034616

MACY11 30A(1052)

*TES T 10

104401

000010

014202

003356
003032

003010

035270

003032

D11
PAGE 2-79

2%:

005046
153716
012746
013746
012746
012746
012746

SEQ 0133

CSETST

«TEST 1N

HEAD AL IGNMENT SUPPORT
;TEST 11

"s
T

#HDALIGN MISWIW
1%
PASNUM
1%
RLDRV, HADONE

;CHECK IF RUN HEAD ALIGNHENT
INO=-EXIT
;TEST IF PASS 0
:NO=EXIT
;TEST IF HEAD ALIGN DONE THIS DRIVE

;;}53

;GO CHECK WRITE LOCK

1%:

003010

15:35

SEEK SIGN SWITCH

TRAP

.SBTTL
BGNTST

013737

24=MAR-80

:NO - SKIP

CSEXIT
L10042~-.

RLDRV, HADONE
;SET HEAD ALIGN DONE FLAG
#ig;S.#BASADD ,RLBAS,#DRVNAM,

RLDRV+1, (SP)

#DRVNAM
, - (SP)

RLBAS ,~(SP)
#BASADD ,~(SP)
HFMTS,-(SP)
#5,-(SP)

010600

SP,RO
CSPNTF

104417
062706

#14,SP
HFMT9
, #HAME ST
#HAMES1,-(SP)
HFMT9,~(SP)
#2,-(SP)

012746
012746
012746
010600

:TYPE

INSTRUCTIONS

SP,RO
CSPNTF

104417

062706

#6,SP
HFMT
, #HAMES
S2
H#HAMES2 ,-(SP)
#FMT9,~(SP)
#2,-(SP)

012746
012746
012746
010600

SP,RO
CSPNTF
#6,SP

104417

062706

BGNSUB

016512
006

035054

000
003142

3%:

003034
003034
003040
000004
000000
003142

($8SUB

PC,TSTINT

DONE
RLDRV,L.CS

.1
JINITIALIZE

;CLEAR DONE

TEST

;SET UP FOR GET STATUS

#GTSTAT,L.CS
#GETSTAT !DRSET,L.DA

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

#25. ,DLYCNT
DLYCNT

;DO GET STATUS

sINITIALIZE DELAY COUNT
sMULTIPLY ARGUMENT BY 2

| CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=-MAR-80 15:27

MACY11 30A(1052)
*TEST 1

E 1

24=MAR-80
15:35 PAGE 2-80
HEAD AL IGNMENT SUPPORT

3583
3584
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
3585
3586
(3)
3587
3588
3589
%gg?

035060
035064
035064
035070
035072
035076
035100
035104
035106
035112
035114
035120
035120

006337

003142

012727
000000
013727
000000
005367
001375
005367
001367
005337

000372

104422

BREAK
TRAP

035122
035124
035130

001360
005737
001723

BNE
TST
BEQ

4%
DONE
33

3592
3593
3594
3595
3596
3597
3598
3599
3600
3601
3602
3603
3604
(2)
(2)
(2)
(2)
(2)
(2)
(2)
(2)
3605
3606
(3)

035132
035140
035146
035150
035156
035164
035172
035200
035206
035214
035220
035224
035224
035230
035232
035236
035240
035244
035246
035252
035254
035260
035260

012737
032737
001003
042737
013737
052737
013762
013762
012737
006337
006337

104422

MOV
BIT
BNE
BIC
MOV
BIS
MOV
MOov
MOV
ASL
ASL
DELAY
MoV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
DEC
BREAK
TRAP

#HDSEL !MBSETO,L.DA;LOAD FOR HEAD 1
MWLSTAT,T.MP
sCHECK IF WRITE LOCK SET
12$
;YES=SKIP
#HDSEL ,L .DA
;ELSE CLEAR TO HEAD 0
RLDRV,L.CS
;LOAD IN DRIVE NUMBER
#SEEK,L.CS
;SET FOR SEEK
L.DA,RLDA(R2)
;LOAD & EXECUTE SEEK
L.CS,RLCSR(R2)
#15. DLYCNT
sINITIALIZE DELAY COUNT
DLYCNT
sMULTIPLY ARGUMENT BY 2
DLYCNT
sMULTIPLY ARGUMENT BY 2 AGAIN
#250.
; IMPLEMENT TIME DELAY
##250., (PC)+
0
LSDLY, (PC)+
0
=6(PC)
o6
=22(PC)
.=20
DLYCNT
;DECREMENT DELAY COUNT
JALLOW OPERATOR TO INTERRUPT PROGRAM TO GET
C$BRK

3608
3609
3610

035262
035264
035266

001360
000645

BNE
BR

2%
3%

TRAP

C$ESUB

TRAP

($85UB

3607

3611
(3)
(3)

3612
3613
(3)
(3)

3614
3615
3616

012727
000000

013727
000000
005367
001375
005367
001367
005337

035266
035266
035266

104403

035270
035270

104402

035270
035270
035272
035276
035302

004737
004737
035366

4%:

002116
177772
177756

BNE
DEC

003142

003006

000021
020000

003040
003052

000020
003032
000106
003040
003034
000017
003142
003142

003040
003C34
003034
000004
000000

000372

10$:

12%:

003142

5%:

002116
177772
177756

003142

59%:
ENDSUB
L10043:

T115%:
BGNSUB
016512
016530

ASL
DELAY
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC

JSR
JSR
60%

DLYCNT
#250.
#4250, ,(PC)+
0
LSDLY, (PC)+
0
-6(PC)
.4
=22(PC)
=20
DLYCNT

SEQ 0134

C$BRK

PC,TSTINT
PC,GSTATR

sMULTIPLY ARGUMENT BY 2 AGAIN
s IMPLEMENT TIME DELAY

;DECREMENT DELAY COUNT
;ALLOW OPERATOR TO INTERRUPT PROGRAM TO GET
;/BACK TO SUPERVISOR COMMAND MODE
;BRANCH IF TIME DELAY NOT EXPIRED
;CHECK IF DONE
sNO=-GO CLR CONTROLLER

:/BACK TO SUPERVISOR COMMAND MODE

;BRANCH IF TIME DELAY NOT EXPIRED
.LOOP

T11.2:

;INITIALIZE TEST
:CLEAR DRIVE

PRINTF

#OPR12,~(SP)

sCHECK WRITE LOCK RESET
; YES-SKIP
sREQUEST WRITE LOCK RESET

#EMTS,
= (SP)
#2,-(SP)

PRI

SP.RO
CSPNTF
#6,SP

000006
004362

OBUFF

P91 s

:CLEAR FOR RESPONSE
OPRO0Z2,0BUFF ,1,NO
;GET RESPONSE
CSGMAN

20%:

O0BUFF
18%

TRAP

(3ESUB

TRAP

CSETST

;WAS ANSWER YES

;NO-REPEAT REQUEST

P FTY P

L10044:

104403

TST

19%:
60%:
ENDSUB

BEQ

e P

100008
:

004362

P11 PT PT 00 PP 0o 0o s

10000%
OBUFF
T$CODE
?PROOZ

005737
001753

035444
035444
035446
035450
035456
035462
035464

006662
000061
000062

012746
012746
012746

006662
011627
000002

003144
000004
000005

HFMT9 ANOTST
#NOTST ,=(SP)
HFMT9,~(SP)
#2,-(SP)

SP,RO
CSPNTF
#6,SP

005021

003012

T1e::

s CHECK FOR PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE
TST
CLKFLG
;P=CLOCK?
1%
;BRANCH TO PERFORM TEST IF CLOCK IS PRESENT
#NOTST ,R2
sINITIALIZE POINTER FOR TEST MSG.
#'1,4(R2)
s INSERT TEST NUMBER INTO MSG.
s INSERT TEST NUMBER INTO MSG.

000006

006571
003102

;TEST 1

1%:

CSEXIT
L10045~-.

#T12ERR ,ERHEAD
ANEWCYL ,R1
(R1)+
(R1)+

;PRINT MSG.

"‘TST 12 CANNOT BE PERFORMED...

005737
001024
012702
112762
112762

HEAD SU%TCHING

;/NO P-CLK"’

035372
035376
035400
035404
035412
035420
035420
035424
035430
035434
035436
035440

*TEST 12

PT P

.SBTTL
BGNTST

035372
035372

L10042:

104401

P71 P PP P

ENDTST

035370

19%
#FMT9, #OPR12

18%:

MWLSTAT,T.MP

007772
011627
000002

BIT
BEQ

SEQ 0135

P P

012746
012746
012746

003052

PAGE 2-81

HEAD AL IGNMENT SUPPORT

020000

15:35

TR PR PR I\ I P71 P

032737
001425

«TEST

24-MAR-80

;SET ERROR HEADER
;GET POINTER TO DESIRED LOCATION
;CLEAR NEW CYLINDER
;CLEAR CURRENT CYL.

e e

3618

MACY11 30A(105$%

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27

3673
(3)
3é;z

035616
035616
035620

104432
000214

3675
3676
3677
3678
3679
3680
3681

035622
035626
035634
035636
035640

012703
032737
001042
005301
001432

(1)
(2)
(3)
(4)
(5)
(6>
(7)

035642
035642
035642
035642

000121
016560

010260
000001

5%:
6%:

003044

LLIST

.
amm
LEm
SiS

SEN

sSET NAME MESSAGE PTR
s CHECK DRIVE READY
; YES-SKIP
sDEC WAIT COUNT
JSKIP IF 0

MOV
BIT
BNE
DEC
BEQ
ME
TIMDLY

ASh

#MDRDY ,R3
#DRDYMSK ,T.CS
12%
R1
9%

JEXIT

BEQ
JYES-SKIP
ERRHRD
JREPORT STATE ERROR
TRAP
C$ERHRD
.WORD
1202
.WORD
0
L R
EXIT
SuB
TRAP
CSEXIT
.WORD
L10046~.

7%:

aEn

JSET EXPECTED STATE VALUE
;CHECK IF STATE IS S

4fh

#5,R3
R3,T.STAT
7%
1202., ,ERR7

——

;SET WAIT COUNT
;GET STATUS

4NN

#81. ,R1
PC,GSTAT

MOV
JSR
60%
MOV
(MP

;REPORT READY ERROR

104456
002262
000000
0713542

001406

;CHECK IF READY
;NO-SKIP

PC,GSTAT

AEh

035606
035610
5612
614

003044

104456
002261
000000
012522

000005
003060

#DRDYMSK,T.CS
5%
1201.,,ERRS4
C$ERHRD
1201
0
ERR4
SuB
CSEXIT
L10046~.

JSR
60%
BIT
BEQ
ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.WORD

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

035604
035606

016560

012701
004737
036034
012703
020337

;SET NAME MESSAGE PTR
sSET CONDITION POINTER
;GET STATUS

AEh

035562
035566
035572
035574
035600

#MDRDY ,R3
#CDRDY ,R4

3666
3667
3668
3669
3670

010260
011227
000001

;DO SEEK

AEh

104432
000254

3671
3672

004737
036034
032737
001406

PC,SIMSEK

AED

035530
035534
035536
035544
035546
035546
035550
035552
035554
035556
035556
035560

JSR
60%
MOV
MOV

60%

020622

3659
3660
3661
3662
3663
(4)
(5)
(5)
(5)
3664
(3)
Ségg

sINITIALIZE TEST
JGET STATUS WITH RESET

sEn

036034

PC,GSTATR

004737
036034
012703
012704

035510

JSR

035512
035516
035520
035524

3654

3655
3656
3657
3658

016512
016530

112.11

004737

($8SUB
PC,TSTINT

SETVEC
#104 ,#CLKINT
#4340 ;SET P-CLOCK INTERRUPT VECTOR
MSPUT #3, 4104 ,#CLKINT,#340
MSPUT
<H104>,<HCLKINT> ,<#340>,<>,<>,<>,<>,<>, <
MSPUT
<HCLKINT>,<#340>,<>,<>,<>,<>,<>,<>,<
MSPUT
<#340>,<>,<>,<>,<>,<>,<,
<, <>
MSPUT1
#340
M$GNINS <MOV
#340,-(SP)>

035504

TRAP
JSR

;CLEAR DIFFERENCE
;CLEAR SIGN
;SET FOR HEAD 1

3653

T124%:
BGNSUB

(R1)+
#1,(R1)+

104402
004737

035476

000001

(R1)+

035476
035500

(3)

CLR

CLR
MOV

4En

(3)
3652

005021

005021
012721

SEQ 0136

4AiD

|
|

035466

035470
035472
035476
035476

PAGE 2-82

HEAD SWITCHING

sun

3648
3649
3650
3651

G 11

4ih

3647

|
|
|
|

15:35

SSn

*TEST 12

24~-MAR-80

24~-MAR-80 15:27

30A(1052)

QCZRLIC.HAC

mMACYT1

PR
—_—

'CZRLICO RLO1/702 DRIVE TEST 1

MSPUT1
#3
MEGNINS <MOV
MOV
MEXIT
M$SVC
C$SVEC
MSTSTLAR
LMEXIT
MSGNINS <TRAP

000003

(3)

035662
035662

(3)
(4)

035662

104437

035664
035664

062706

000010

035670
035676

012737
012737

000001
000001

003142
172542

035704

012737

000113

172540

035712
035716
035720

005737
001375
005037

003142

035724

000720

(4)

035662

035726

TRAP

172540

MEXIT
MS$GNINS <ADD
MEXIT

64%:
NLIST

9%:

104456

002263
000000
012572
104432

035740

000074

035742
035746
035750
035750
035752

005737

035754

035774

100006

003044

12%:

104456
002264
000000
012642
104432
000052
012703
004737
023705

ADD

C$SVECD>
C$SVEC
#10,SP>

#10,SP

#4171 ,DLYCNT
#1,a8172542

MOV

#113,a#4172540

TST
BNE
CLR
ME
BR

DLYCNT
649

ERRHRD
TRAP
.WORD
.WORD
.WORD
EXIT
TRAP
.WORD
TST
BPL
ERRHRD

.WORD
.WORD
EXIT
TRAP

15%:

#3,-(SP)>
#3,-(SP)

MOV
MOV

TRAP
.WORD

010413
022266
003112

#104,-(SP)>
#104,-(SP)

.WORD
MOV
JSR
CMP

000104

AEh

012746

#104
MSGNINS <MOV
MOV
MEXIT

#CLKINT ,=(SP)

SED.

035656
035656
035656

012746

MOV

(2)

035652
035652
035652

MEXIT
MSPUT1

a#172540

(5)
(5)

016112

s INITIALIZE DELAY COUNT
sINITIALIZE CLOCK COUNT SEi BUFFER REGISTER

:/FOR 1

INTERRUPT PER 100 MICRO SECONDS

sSET INTERRUPT ENABLE ,REPEAT INTERRUPT MODE,
:/10 KHZ RATE,START THE CLOCK
sDELAY COUNT EXPIRED?

;BRANCH IF TIME NOT ELAPSED
;STOP THE CLOCK

6%
1203., ,ERRS
CS$ERHRD
1203
0
ERRS

;REPORT READY ERROR

Su8

JEXIT

T.CS

sTEST IF ANY ERROR
;NO-SKIP

CSEXIT
L10046~.
15%
1204., ,ERRS
C$ERHRD
1204
0
ERR6

;REPORT ALL ERRORS

suB
CSEXIT

L10046~.

#MHSTA ,R3
PC,POSHSB

DESHD,R5

;SET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT
;CHECK IF CORRECT HEAD SELECTED

omm

(4)

012746

#340,-(SP)_
MOV
MEXIT
MSPUTT
#CLKINT
#CLKINT ,=(SP)>
MSGNINS <MOV

AEn

(6)
(3)

035646
035646
035646

SEQ 0137

(6)

000340

15:35

AEh

(5)

012746

«TEST 12

H 11
PAGE 2-83
HEAD SWITCHING

24=MAR-80

AEn

(4)

035642

30A(1052)

4Eh

(8)
(8)
(5)
(6)
(7)
(7)

MACY11

“En

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15:27

g ——————

CZRLI(O RLO1/02 DRIVE TEST 1
| CZRUIC.MAC
24~MAR-80 15:27

(4)

(5)
(5)
(5)
3699
(3)
(3)
3700
(4)

(5)
(%)
(5)
3701
3702

001415
005737
001406

«TEST

EXIT
TRAP

104456

002266
000 000
012406

20%:
60%:
ENDSUB
L10046:

104403

003112
003112
035476

25%:

1205
O
ERR3
SuB

JEXIT

.WORD

L10046~.

TRAP

C$ERHRD

1206., ,ERR2

.WORD
WORD
.WORD

1206
O
ERRZ2

TRAP
TST

C$ESUB
DESHD

CLR
JMP

DESHD
T124%

BEQ

s YES=SKIP
;WAS HEAD O SELECTED

;REPORT HEAD SB 1

CSEXIT

ERRHRD

SEQ 0138

17%
1205., .ERR3

C$ERHRD

.WORD
.WORD
.WORD

17%:

PAGE 2-84

20%

TRAP

000012

DE SHD

BEQ
ERRHRD

104432

15:35

HEAD SWITCHING

TST

104456
002265
000000
012454

005737
001404
005037
000137

24-MAR-80
BEQ

003112

3703

3704
(3)
(3)

30A(1052)

;YES-SKIP

;ELSE REPORT HEAD SB 0

sCHECK IF HD O WAS DONE
: YES=SKIP
JELSE SET TO HEAD 0
;REDO TEST

25%

ENDTST

L10045:

104401

LSBTTL
BGNTST

012737

006603
003102

003012

T134%:

TRAP

CSETST

«TEST 13

READ HEADER
;TEST 13

MOV
MOV
CLR
CLR
CLR
CLR
CLR

#T13ERR ,ERHEAD
#NEWCYL
,R1
(R1)+
(R1)+
(R1)+
(R1)+
(R1)+

TRAP

C$8suB

(PART

T13::

;SET ERROR HEADER
;GET ADDRESS OF DESIRED LOCATIONS
;CLEAR NEW CYL
;CLEAR CURRENT CYL
;CLEAR DIFF
;CLEAR SIGN
;CLEAR HEAD

BGNSUB

T13.1:

016512

JSR
JSR

PC,TSTINT
PC,GSTATR

JINITIALIZE TEST
;GET STATUS W/RESET

020622

JSR

PC,SIMSEK

;DO SEEK

MOV
JSR

#81. .R1
PC,RDYWAIT

sSET WAIT COUNT
;WAIT FOR READY

016530

000121
022316

60%

L
R
LY Ny —e—

3695
3696
3697
3698

MACY11

| CZRLICO RLO1/02 DRIVE TEST 1

(5)
(5)
(5)
3741
(3)
(3)
3742
(4)
(5)

(5)
(5)
3743
3744
3745
3746
(3)
(3)
3747
3748
3749
3750
3751
3752

3753
3754
3755
3756
3757

JSR

PC,XRDHDC

;DO READ HEADER

MOV

#MHSTA,R3

;SET NAME MESSAGE PTR

CMP

RS . DESHD

*CHECK IF HEAD CORRECT

010413
022260
003112

JSR

BEQ

ERRHRD

104456

TRAP

002425
000000
012454

104456

1301.,,ERR3

CSERHRD

1301
O
ERR3

.WORD
ERRHRD

L10050-.
1302., ,ERR2

.WORD
.WORD
.WORD

1302
0
ERRZ2

TRAP
TST

CSESUB
DESHD

TRAP

002426
000000
012405

15$

.WORD
.WORD
.WORD

EXIT
TRAP

104432
000012

PC,POSHWI

*POSITION HS BIT IN HD WRD 1

SYES=SKIP

*REPORT SB 1

SuB
CSEXIT

C$ERHRD

;REPORT SB 0

15%:

60%:

ENDSUB

L10050:

005737

003112

013737

000001
003052

042737
042737
023737

000177
000177
003116

012703

007044

003112
003116

003116
003052
003052

()
(5)
(5)
(5)

22%:

HEAD 1

DONE

20%
#1,DESHD

;YES-SKIP
sELSE SET TO HEAD 1

BR
BIC
BIC
cMP
BEQ
MOV
ERRHRD

T134%
#177 ,TEMPO
#177 ,HDWRD
TEMPO ,HDWRD1
22%
#CYLPER,R3
1306., ,ERR1

;DO _TEST AGAIN
;CLEAR ALL BUT CYLINDER IN 1ST HEADER
;CLEAR ALL BY CYL IN 2ND HEADER
:COMPARE IF EQUAL
; YES-SKIP
:SET NAME MESSAGE PTR
sREPORT HEAD ALIGNMENT PROBLEM

.WORD
.WORD
.WORD

1306
O
ERR1

TRAP

CSETST

TRAP

3758

;TEST IF

BNE
MOV
MOV

20%:

R W

10%:

I I I IR IR IR ewen IR IR IR WL MR IR IR WL M

(4)

021576

SEQ 0139

IR I e

3738
3739
3740

004737
036206
012703
004737
020537
001412

READ HEADER (PART 1)

3737

036136

15:35 " PAGE 2-85

HDWRD1, TEMPO

C$ERHRD

;STORE HDR WORD 1

R R YR WA YWR WM s

3734
3735
3736

24-MAR-80

ENDTST

L10047:

24~MAR-B0 15:27

30A (1052 )
*TEST 1 3

CZRLIC.MAC

MACY11

J 1

—

.SBTTL
BGNTST

012737
012701
005021
005021
005021
005021

0066 1Z
00310

003012

*TEST 14

MOV

MOV
CLR
CLR
CLR
CLR

;TEST 14

READ HEADER

#T14ERR,ERHEAD

#CURCYL ,R1
(R1)+
(R1)+
(R1)+
(R1)+

(PART 2)

;SET ERROR HEADER

;GET ADDRESS OF DESIRED VALUE

;CLEAR
;CLEAR
;CLEAR
;CLEAR

CURRENT CYL
DESIRED DIFF
SIGN
DESIRED HEAD

3771
3772
(3)
(3)
3773
3774
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
%;gg

036320
036320
036320
036320 104402
036322 004737
036326. 004737
036332 036532
036334 004737
036340 036532
036342 012701
036346 004737
036352 036532
036354 004737
036360 036532
036362 005037
036366 052737
036374 005003
036376 012704
036402 012705
036406 012701
036412 011415

3791
3792
3793
3794
3795

036414
036420
036424
036426
036432

3797
3798

036440
036442

3796

3799
(4)
(5)
(5)
(5)
3800
3801

3802
3803

3804
3805
(4)
(5)
(5)
(5)
3806

3807
3808
3809
3810
3811
3812
3813
3814
3815
3816

036436

036444
036444

036446
036450

036452

036454
036456
036460
036462
036464
036466
036466
036470
036472
036474
036476
036500
036502
036504
036506
036510

036514
036520
036522
036526
036530

042715
005737
001404
052715
005065

021524

MACY11 30A(1052)
*TEST 14

T1538:
BGNSUB
016512
016530

020622
000310
022316
023010
003014
000002

003004

003762
003116
000050

000100
003112
000100
000002

001406
005744

108:

104456

002735
000000

013752

005724
005203
005724
001406
022544
104456
002735
000000
013752
024524
005724
005203
005215
011500
042700

022700
001002
042715
005301
001342

K 11
24-MAR-80
15:35 PAGE 2-86
READ HEADER (PART 2)

13%:

15%:

177700
000050

000077

17%:

TRAP
JSR
JSR
60%
JSR
60%
mMov
JSR
60%
JSR
60%
CLR
BIS
CLR
MOV
MOV
MOV
MOV

SEQ 0140

T14.1:

($35UB
PC,TSTINT
PC,GSTATR

sINITIALIZE TEST
sCLEAR DRIVE

PC,SIMSEK

;DO SEEK

#200. ,R1
PC.RDYWAIT

;SET WAIT COUNT FOR 20 MS
;WAIT FOR READY

PC.,RDALHD

;DO READ HEADER ALL HEADERS

MORECE
#HDRCMP ,OPFLAG
R3
#1BUFF ,R4
#TEMPO RS
#40. ,R1
(R4), (RS)

;CLEAR MORE COMPARE ERRORS FOR REPORT
;SET HDR COMPARE FLAG
;CLEAR FOR HDR COUNT
;GET POINTER FOR HDR TO BE CHECKED
;GET POINTER TO TEST AREA
;SET HDR COUNT
JGET FIRST HEADER WORD

BIC
TST
BEQ
BIS
CLR

#HDHSEL , (R5)
DESHD
108
#HDHSEL
, (RS)
2(R5)

;TEST IF HD O DESIRED
s YES=SKIP
;ELSE SET HEAD BIT
;CLEAR 2ND WORD OF TEST AREA

BEQ
TST

138
=(R4)

:SKIP IF OK
;ELSE POSITION R4 TO BAD WORD

CMP

(R5),(R4)+

ERRHRD
TRAP
.WORD
.WORD
.WORD
TST
INC

(R4) +
R3

cMP
ERRHRD
TRAP
.WORD
.WORD
.WORD
CMP
TST
INC
INC
MOV
8IC

(R5)+,-(R4)
1501., ,ERR10
CS$ERHRD
1501
0
ERR10
=(R5),(R4)+
(R4)+
R3
(RS)
(R5) ,RO
#*CHDSEC,RO

TST
BEQ

CMP
BNE
BIC
DEC
BNE

1501.,,ERR10
CS$ERHRD

; COMPARE HEADER WORD

;REPORT ERROR

1501
0

ERR10

(R4) +
158

#40. RO
17%
#HDSEC, (RS)
R1
108

;BUMP R4 TO NEXT WORD
;BUMP WORD COUNT
sTEST 2ND WORD IS 0
;YES = SKIP
;POSITION PTRS FOR REPORT
;REPORT ERROR

sREPOSITION POINTER
;POSITION R4 PAST ECC WORD
;BUMP WORD COUNT
;BUMP SECTOR COUNT
;CHECK IF SECTOR IS PAST LAST SECTOR

;NO-SKIP
JELSE CLEAR SECTOR TO O
sDEC HDR COUNT
:YES-SKIP

—

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC MAC
24-MAR-8015:27

| CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

MACY11 30A(1052)

*TEST 14

3817

24-MAR-80

15:35

LN
PAGE 2-87

READ HEADER (PART 2)

SEQ 0141

60%:

ENDSUB

005737
001005
012737
000137

L10052:

003112
000001
036320

003112
20%:

TRAP
ST

(SESUB
DESHD

BNE
MOV

208
#1,DESHD

TRAP

CSETST

JMP

JCHECK IF HD 1 TESTED
sYES=-SKIP
JELSE SET TO HEAD 1
JREDO TEST

T153%

104403

ENDTST

L10051:

104401

SEEK

(PART 1)

115::

062706

000006

ADD

#6,SP

EXIT

TST

104432

TRAP

006643
000004
016512
016530

003012
003116

000001

002276

012737

177776

003122

000403
012737
012704
012705
004737

177777
003104
003102
021466

003122

1$:

28:
5% :
T172%:

.WORD

MOV

#P2TO1E .ERHEAD

JSR
JSR
T1765%
CMP
BEQ
MOV

PC.TSTINT
PC.GSTATR

#-2,TEMP2

*ELSE,

BR
MOV
MOV

59
#=1,TEMP2
#CURCYL ,Ré4

;SET =1 INTO DIFF ARGUMENT FOR -1 SEEK
:SET POINTERS

MOV

MOV
JSR

#4, TEMPO

#1,T.DRIVE

#NEWCYL .RS
PC, CHOSHD

:SET ERROR HEADER
:SET _PASS COUNT
sINITIALIZE TEST
;GET STATUS
:RLOT OR RLO2?

*BRANCH TO SET UP DIFF ARGUMENT FOR RLO1

SET =2 INTO DIFF ARGUMENT FOR RLO2

:/(RLO2 HAS DOUBLE THE TRACK DENSITY OF RLOT)

;GO CHOOSE HEAD

BGNSUB

104402

004737

022662

TRAP
JSR

($BSUB
PC.,GETPOS

;/NO P-CLK"'

CSEXIT

L10053-.

CSPNTF

TRAP

104417

006662
011627
000002

s INSERT TEST NUMBER INTO MSG.
;PRINT MSG. "TST 15 CANNOT BE PERFORMED...

012746
012746
012746
010600

#FMT9,#NOTST
ANOTST,=(SP)
#FMTS,
= (SP)
#2,-(SP)
SP.RO

#'S5.5(R2)

PRINTF
MOV
MOV
MOV
MOV

MOVB

000004
000005

006662
000061
000065

;CHECK FOR_PRESENCE OF A P-CLOCK...BYPASS TEST IF NOT AVAILABLE
ST
CLKFLG
sP=CLOCK?
BNE
1%
;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.

112762
112762

003144

715.1:

;GET POSITION

[

005737
001024
012702

DIFFERENCE OF
;TEST 15

=*TEST 15

.SBTTL

BGNTST

—

4%:

002302
000001

002276

177776

003122

177777

003122

037112

MOV

#-1,TEMP2

BR
TST

8%
(R4)

8%
#1,T.DRIVE

000002

003122

Bflgv

gg.TEMPZ

000001
003122

003122

BEQ

11%

:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR

:NO = SKIP
:RLOT OR RLOZ2?
JBRANCH IF RLO1
JELSE, SET UP DIFF ARGUMENT FOR RLOZ2

;AT MAX CYL, MAKE NEXT SEEK REV

+SKIP
JTEST IF CURRENT AT 0

sNO - SKIP
JRLOT OR RLO2?

BRANCH IF RLO1

.'ELSE, SET UP DIFF ARGUMENT FOR RLOZ2

8%:

ADD

MOV

#1,TEMP2

TEMPZ2, (RS)

sADD DIFF TO NEW CYL (+1 OR =1 FOR RLO1,

9%:

ggg

PC ,XSEEK

;DO SEEK

017652

JSR

PC,GDRSTA

;GET DRIVE STATE

000004
003060

MOV
CMP
BEQ
ERRHRD

#4 ,R3
R3,T.STAT
108
101.,.,ERR7

;SET EXPECTED STATE
sCHECK DRIVE STATE
JYES-SKIP
JREPORT STATE ERROR

.WORD
.WORD
.WORD

BR
:gv

101
0
ERR7
16%
#5,R3

JEXIT TEST
sSET EXPECTED STATE

TIMDLY

#50.

WAIT 5 MS FOR DRIVE STATE CHANGE FROM 4 TO S

TRAP

000005

037116
037116
037116
037116
037116

18?;7

MSPUT
MSPUT

037116
037116
037116
037116

012746

000340

037122
037122
037122

012746

016112

SETVEC

CSERHRD

;AT CYL 0, MAKE NEXT SEEK FWRD

;/+2 OR =2 FOR RLO2)

#104,#CLKINT,#340-SET P-CLOCK INTERRUPT VECTOR

#3.48104 ICLKINT #340
<fi104> <#CLKINT> <H3460>,<,,0,0,0,0
<#CLK1NT> <H340>,<,<, <> <> <> <> <>

MSPUT
MSPUT
<#340>,<>,<>,<>,<, <> <> <> <>
MSPUT1
#4340
MS$GNINS <MOV
#340,-(SP)>

MOV

#340,-(SP)

MEXIT
MSPUT1
#CLKINT
MS$GNINS <MOV
#CLKINT ,=(SP)>
MOV
#CLKINT,=(SP)

sNO - SKIP

Dl Dt Bt Wi

ggv

7%
#1,T.DRIVE
6%
g;Z.TEMPZ

BNE
CMP

104456

000145
000000
013542
000444
012703

(R4), (RS)
HLMTW, (R4)

002276

020032

012703
020337
001405

+MOVE CURRENT INTC OLD
sCHECK IF CURRENT AT 255

TEMP2

000001

11%:

IN ERROR LOOP

MOV
CMP

BEQ

7%:

JCHECK IF

sCHECK IF CURRENT
= NEW
‘NO
= SKIP
JELSE SWAP OLD AND NEW
+SKIP TO SEEK

BNE
CMP

6%:

CSINLP

BNCOMPLETE
3%
BCC
3%
CMP
(R&) , (RS)
BNE
48
JSR
PC,ONSWAP
BR
9%

NEG

SEQ 0142

003122

SEEK (PART 1)

r—

021552

021415

037066
037072

DIFFERENCE OF

INLOOP
TRAP

103005

037054
037060
037062

MmN
PAGE 2-88

60%

104420

037050

15:35

037234

24~MAR-80

MACY11 SOA(05

ol el

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

037136
037136

104437

037140
037140

062706

000010

037144
037152

012737
012737

000062
000001

003142
172542

037160

012737

000113

172540

037166
037172
037174

005737
001375
005037

003142

004737
020337
001404

017652
003G60

NN
~

= di
d =D
N N N N N N N N

e lalele
Lo Lo Lo Ry

037136
037136

104456
000146
000000
013542
012701
004737
037234
012737

TRAP

000062
022316
003016

037254

104410
000030
005337
001410

037256

032737

TST

##50. ,DLYCNT
#1,a4172542

DLYCNT

648

sINITIALIZE CLOCK COUNT SET BUFFER REGISTER
;/FOR 1 INTERRUPT PER 100 MICRO SECONDS
sSET INTERRUPT ENABLE ,REPEAT INTERRUPT MODE,

:/10 KHZ RATE,START THE CLOCK
:DELAY COUNT EXPIRED?

a#172540

:BRANCH IF TIME NOT ELAPSED
:STOP THE CLOCK

168

:GET DRIVE STATE
;1S STATE 5?
: YES=SKIP
;REPORT STATE ERROR

14%:

ERRHRD

16%:

MOV

#50. ,R1

PC.RDYWAIT

sINITIALIZE WAIT COUNT
;GO WAIT FOR DRIVE READY

60%:

MOV

#2 ,ERRSWI

sINIT ERROR SWITCH

ENDSUB

102., ,ERR7
C$ERHRD
102
0
ERR7

CSESUB
TST

CSESCAPE
L10053~.
TEMPO

003116

000001

s INITIALIZE DELAY COUNT

ME
JSR

003116

#8170, TEMPO

23%

021512

PC, SWAPHD

23%:
24%:

037276

#10,SP>
#10,SP

NLIST
12%:

L10054:

104403

CS$SVEC>
C$SVEC

#113,a#172540
64%:

172540

000002

MEXIT
*$GNINS <ADD
ADD
MEXIT
MOV
MOV

#3,-(SP)>
#3,-(SP)

T1765%:
ENDTST

T172%

el oT el a1
rs

000003

#104,-(SP)>
#104,-(SP)

012746

JMEXIT
MSPUTT
#4104
MSGNINS <MOV
MOV
MEXIT
MSPUT1
#3
MSGNINS <MOV
MOV
MEXIT
MSSV(C
C$SVEC
MS$TSTLAB
MEXIT
MSGNINS <TRAP

SEQ 0143

037132
037132
037132

PAGE 2-89

DIFFERENCE OF 1 SEEK (PART 1)

000104

el el

012746

15:35

SEXIT TEST IF ERROR

;DEC_PASS COUNT
:SKIP IF 0-DONE

;TEST IF PASS=2
sNO-SKIP
;GO SWAP TO HEAD 1 OR END TEST
sABORT RETURN

ol el el ol

037126
037126
037126

24-MAR-80

(7)

MACY11 30A(1052)
*TEST 15

[EEEEE
R

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

DIFFERENCE OF 1 SEEK (PART 1)

«TEST 16

MOV
MOV

#P2T02E ,ERHEAD
#4, TEMPO

MOV
MOV
MOV
MOV

#-1,TEMP2
ANEWCYL ,R3
#CURCYL
R4
#OLDCYL .RS

TRAP

($BSUB

3%:

002302
177777

003122
7%:

000001

003122
020032

003122

98:

000226
022316

037510

022701

000001

(REVERSE)

MOV

#150. ,R1

608

;GET CURRENT POSITION

sCHECK IF IN ERROR LOOP
:NO - SKIP
;CHECK IF CURRENT
= NEW
INO
- SKIP

;ELSE SWAP OLD AND NEW
:SKIP TO SEEK

:CHANGE DIFF ARGUMENT FOR OPPOSITE DIR
sMOV CURRENT INTO NEW

sCHECK IF CURRENT AT 255
:NO - SKIP

gllg”( CYL, MAKE NEXT SEEK REV
;TEST

CURRENT AT 0

:NO - SKIP
;AT CYL O, MAKE NEXT SEEK FWRD

:ADD DIFF TO NEW CYL (+1 OR =1)
;DO SEEK

PC,RDYWAIT

sSET WAIT COUNT FOR 15 MS
:WAIT FOR READY

JSR

PC,GETPOS

sSTORE POSITION

MOV
SUB

(RS) ,R1
(R&) R1

DESSGN

MOV
SUB
CMP

(R4) .R1
(RS) .R1
#1.Ri

BEQ

108

116.1:

PC,XSEEK

608

10%:

CSINLP

JSR

608

003110

PC.GETPOS

BNCOMPLETE
38
BCC
3s
CMP
(R4)
. (R3)
BNE
4$
JSR
PC, ONSWAP
B8R
98
NEG
TEMP2
MOV
(R4)
, (R3)
CMP
HLMTW, (R4)
BNE
78
MOV
#-1,TEMP2
B8R
8s
ST
(R4)
BNE
3%
MOV
#1,TEMP2
ADD
TEMP2, (R3)
JSR

022662

;GO _CHOOSE HEAD
;SET DIFF ARGUMENT TO -1
;GET ADDRESSES

INLOOP

TRAP

A ¥

PC, CHOSHD

T16::

;GET OLD POSITION
sSUBTRACT FROM NEW POINTER (FCRWARD)
sCHECK IF SIGN FORWARD
;YES-SKIP, ELSE SUB FOR SEEK REVERSE
;GET NEW CYLINDER
sSUBTRACT FROM OLD CYL
sCHECK IF RESULT IS DIFFERENCE OF 1

608

003122

PC.TSTINT
PC.GSTATR

;SET ERROR HEADER
sSET _PASS COUNT
sINITIALIZE TEST
;GET STATUS, CLEAR DRIVE

JSR

021552

DIE;EREgCE OF 1 SEEK (PART 2)

022662

CSETST

T187%:
BGNSUB

SEQ 0144

YT~

TRAP

JSR
JSR
T1865%
JSR

003122

8 12
PAGE 2-90

.SBTTL
BGNTST

15:35

kR EEEE RT3

L10C53:

104401

264=MAR-80

A A

037276
037276

30A(1052 )
*TEST 1 5

(3)
(3)

MACY11

———--

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24~-MAR-80 15:27
037514

MACY11 30A(1052)
«TEST

001404
104456

000002

0030716

12%:

60%:

ENDSUB

L10056:

104403

104410

037550
037556
037560
037564
037566
037570
037570
037570
037570
037570
037572

000030
005337
001410

003116

032737

000001

003116

021512
30%:

c 12

PAGE 2=91
1 SEEK (PART 2)

BEQ
ERRHRD

12%
201., ,ERR8

.WORD
.WORD
.WUORD

201
O
ERRS

MOV

#2 ,ERRSWI

sINIT ERROR SWITCH

TRAP
ESCAPE
TRAP

(SESUB
TST
CSESCAPE

SEXIT TEST IF ERROR

CSERHRD

.WORD
DEC
BEQ

L10055-.
TEMPO
308

BIT
BNE

#1T0,TEMPO
208

JSR

20%:

15:35

DIFFERENCE OF

TRAP

000311
000000
013612

012737

24-MAR-80

30%

PC,SWAPHD

B8R

T187%

TRAP

CS$ETST

s YES=SKIP
;ELSE REPORT ERROR

sDEC _PASS COUNT
SEXIT IF DONE
sTEST IF PASS 1 OR 3

;YES=SKIP

;GO SWAP TO HEAD 1 OR END TEST
;ABORT RETURN

;LOOP

T1865%:
ENDTST
104401

037572
037572
037572

000030

037574
037574
037576
037600

005130
037740
000001

037602
037602
037604
037606
037610

000031
037654
160000
177776

037612
037612
037614
037616
037620

001031
037670
000000
000776

037622
037622
037624
037626
037630

004032
037732
003400
000000

L10055:
ENDMOD

.SBTTL
BGNMOD
BGNHRD

PARAMETER CODING
HRDPRM

GPRML

CNTYPE,CNT,1,YES
.WORD
T$CODE
. WORD
CNTYPE
1
.WORD

GPRMA

(SRMSG,CSR,0,160000,177776,YES
.WORD
TS$CODE
.WORD
(CSRMSG
.WORD
TSLOL IM
.WORD
TSHILIM

GPRMA

VE(CMSG,VECT,0,0,776,YES
.WORD
T$CODE
.WORD
VECMSG

.WORD L10057-L$HARD/2

"WORD
.WORD

GPRMD

TSLOLIM
TSHILIM

DRMSG,DRSB,0,3400,0,7,YES
.WORD
TS$CODE
.WORD
DRMSG
"WORD
3400
.WORD
TSLOLIM

SEQ 0145

2 2

LIC.MAC

24-MAR-80 15:27
000007

037634
037634
037636
037640

003130
037710
000001

037642
037642
037644
037646
037650
037652

002032
037677
000340
000000
000007

24-MAR-80

PARAMETER CODING

.WORD

15:35

D 12

PAGE 2-92

TSHILIM

GPRML

DRTYPE,TYPDR,1,YES
.WORD
TSCODE
.WORD
DRTYPE
1
.WORD

GPRMD

BRMSG,PRIOR,0,340,0,7,YES
.WORD
TSCODE
.WORD

BRMSG

.WORD
.WORD
.WORD

340
TSLOLIM
TSHILIM

L10057:

037654

052502

020123

051505

042101
000123

CSRMSG:

.ASCIZ

/BUS ADDRESS/

4008

037670

042526

052103

051117

VECMSG:

.ASCIZ

/VECTOR/

4009
4010

037677

037704

042526

102

020122

042514

BRMSG:

.ASCIZ

/BR LEVEL/

4012

037710

051104

053111

042520
030114

020105
036440
000061

DRTYPE:

.ASCIZ

/DRIVE

013

037716
037724

28}2

037732

051104

053111

000105

DRMSG:

.ASCIZ

/DRIVE/

28}9

037740

046122

030461

000

:
CNTYPE

LASCIZ

/RL11/

4018
4019
4020
4021
4022
4023

037745

ppon

(3)

4024
4025

(4)
(4)
(4)

4026
4027
(4)
(4)
(4)
4028
4029

Faa B

037654

.EVEN

037662

037676

0571104

000

054524
051040

037746

000016

037750
037750
037752
037754

000130
040004
000004

037756
037756
037760
037762

000130
040037
000010

037764

TYPE = RLO1/

ENDMOD

037746

037746
037746

000114

.EVEN
BGNMOD
T
BGNSF

SFTPRM

GPRML

SELQ MISWI,4,YES
.WORD
TSCODE
.WORD
SELQ
.WORD
4

GPRML

ALGNQ MISWI,10,YES

.WORD L10060-L$SOFT/2

.WORD

.WORD
GPRML

T$CODE

ALGNQ

MANQ MISWI, 100000, YES

P T eT

ENDHRD

o To T

037654

(3)
4003
4004
4005
4006

007

SEQ 0146

)

037632

MACY11 30A(1052)

(4)
(4)
(4)
3999
4000
(4>
(4)
(4)
(4)
(4)
4001
4?8%

v Y v Y PV VoVl
aYo Y Y
~~
P YoY
e tatalala
a9

(4)
3997
3998

TEST

————

e lel
NN

RLICO RLO1/02 DRIVE

CZRLICO RLO1/02 DRIVE TEST 1

(CZRLIC.MAC

24-MAR-80 15:27

(4)

037764
037766
037770

000130
040076
100000

(4)
(&)
(%)
(4)
(4)

037772
037772
037774
037776
040000
040002

004052
040133
00C377
0000u2
000377

4030
4031

30A(1052)

24=MAR-80

PARAMETER CODING

3%:

040004

ENDSFT

040004

L10060:

15:35

E 12
PAGE 2-93

SEQ 0147

.WORD
.WORD
.WORD

T$CODE
MANQ

GPRMD
.WORD
-WORD
.WORD
.WORD
.WORD

ERLIMQ,ERLIM,D,377,0,377,YES
T$CODE
ERLIMQ
377

100000

TSLOLIM
TSHILIM

.EVEN

054105
020105
020105
052103
051524

041505

052125
053111
042514
051505

SELQ:

LASCIZ

" /EXECUTE DRIVE

105

042530
044040
046101
047105
050120

052503
040505
043511
020124
051117

ALGNQ:

LASCIZ

/EXECUTE HEAD ALIGNMENT SUPPORT/

046440
020114
053122
047117
051524

047101
047111
047105
052040
000

MANQ:

.ASCI1Z

/DO MANUAL

050116
051122
046511

052125
051117
052111

ERLIMQ:

.ASCIZ " /INPUT ERROR LIMIT/

042524

051505
m

042440

046040
000
040156
040156

.EVEN

ENDMOD
LASTAD

000000
000000

LSLAST::
.EVEN

040162

LSLAST::
000001

.END

.EVEN
.WORD
.WORD

(4)
(4)

MACY11

SELECT

TESTS/

INTERVENTION TESTS/

—

amh

3335

2743

2037

2321

2783

2830

2837

1131

1145

14444

3478

3635
3064

3833
3082

3004

3041

3096

3203

ams

2907

2685

Gmn

3569

3316

———

1449

——m

1369

3104

1139

SMh

2632

G
G
G
G
BITO3 = 000010 G
BITO4 = 000020 G
BITOS = 000040 G
BITO6 = 000100 G
BITO7 = 000200 G
BITO8 = 000400 G
B8I1T09 = 001000 G
BIT1
= 000002 G
BIT10 = 002000 G
BIT11 = 004000 G
BIT12 = 010000 G
BIT1
= 020000
3
G
BIT14 = 040000 G
BIT1S = 100000 G
BIT2"
= 000004 G
BIT3 = 000010 G
BIT4 = 000020 G
= 000040 G
= 000100 G
= 000200 G
= 000400 G
= 001000 G
= 000400 G
037677
003020
003370
010163
010114
011277
002312
011266
011227
021466
= 000102
016126
003146
CLKFLG 003144
CLKINT
016112 G

2687

011150
000010
000001
000001
000002
000004

3207

BELL _
BHSTAT=
BITO =
BITO0 =
BITO1 =
BITO2 =

2222

B4k

004000
000060
006123
006040

1946

BADADD=
BAMSK =
BANAM
BASADD

1601

SIS

ASSEMB= 000010

403%%

ANYERR= 100000

SEQ 0148

1572

1650

1731

1794

= 000020 G

040037
ALGNQ
ALLCYL= 000001
ALLSEC= 000002

CROSS REFERENCE TABLE == USER SYMBOLS

SRR

|ADR

24-MAR-B0 15:27

F 1

103
104
106

CZRLIC.MAC

MACY11 30A(1052) 24-MAR-B0 15:35 ' PAGE 3

1038

YYYrYvrYrs

CZRLICO RLOT/02 DRIVE TEST 1.

1002
40104

2050

1274%

3347
3429
3854

932
1202+
1201+

2
3256

3658
961

1081

117

2815
2899
3450

3174
2936
3681

2977

3407

2990

CZRLICO RLO1/02 DRIVE TEST 1
(CZRLIC. MA(
24-MAR-80 15:27

| CLNCOD
| CLRBYT
CLRPAR

015660 G
002304
024606
000012
037740
007777
000004
014470
000040
003152
000200
006116
000000
037654
003104
007044
002604

13794

MACYT1

1277

26954
3990

G 12
30A(1052)
15:35
PAGE 3-1
24-MAR-80
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0149

1286+

4064

2628

2751

2793

1000

1312

1364

1385

1469

1490

2329

2335

40064
1693

1710

2260+

2648

2689

3766

3852

3931

1374
3312

3586

3606

3034

3232

3495

3573

3613

3651

3724

2687
3992
3756

3224

2839
2648

3772

3856

3934

1202
1398

1451

C$ERHR=

2051
2796

gy G

)

3434
3672

($GE TB= 000026
C$GE Tw= 000027

pier gamey g

e g

3971
3628

3710

2947
3371
3567

2952
3414
3642

2967
3435
3664

CSEXIT=

3759
8
2981
3443
3673

3905
3554

C$ERSO=
CSESCA=
($ESEG=
($ESUB=
CSETST=

C$ERRO=
C$ERSF=

| C$GPHR= 000042
C$GPLO=
C$GPRI=
CSINIT=
CSINLP=
CSMANI=
CSMEM =
CSMSG =
CSOPEN=
CSPNTB=

000030
000040
000011
000020
000050
000031
000023
000034
000014

C$PNTF= 000017

| CSGMAN= 000043

S
TTETTICEEY 2?‘?

’CZRLICO RLO1/02 DRIVE TEST 1
(CZRLIC.MAC
24-MAR-80 15:27

MACY11
2745

3320

1256

1334

1446

1206

H 12
30A(1052)
15:35 PAGE 3-2
24~MAR-80
CROSS REFERENCE TABLE == USER SYMBOLS

2786
3621
3191

283

3859

3937

933

1053

1067

1298

2854

3008

962
1076

3043

3125

977

1118

1132

2603
2687

2604
2688

2671

2830
3269

2837
3292

1139
2672
1358
3004
3306

1216

1235

1239

1242

1292
1350

1384
1382
3236

2850
3256

2874
3298

2899
3450

1717
1804

1733
1968
3696

1796
1977

2645

3540

1726%
1965%
3694

3705

1713+

1716%

1722

1738

1697«

1708«

1718

1726

1357

3068

3106

2662
1326

SEQ 0150

1369

3048
3483

1371
3104
3569

2912
3525

2936
3681

2963
3895

3707

1979«

2324
3738

2645
3747

1801

2645

3143

3158

3228

2621

2637

1449

1450

3140
3571

3156
3619

2977

2990

3064

2648
3749«

2689
3792

3425+
3820

3462
3822+

3549

3551«

3962

1552+

CSPNTS= 000016
CSPNTX= 000015
($QI0 = 000377

C$RDBU=
CSREFG=
CSRESE=
CSREVI=

000007
000047
000033
000003

CSRFLA= 000021

C$RPT = 000025
(C$SEFG= 000046

{C$SPRI= 000041

C$SVEC= 000037

C$TPRI= 000013
C1OMs
011247
C5SEC
011310
C500MSs 011260
DANAM
006130
DATACM= 000001
DCKERR= 004000
DCLIM = 000012
DCLIMW 014214
DESDIF
003106
DESHD
003112
DESSEC
003114
DESSGN 003110
DIAGMC= 000000
DIFAUG 003076
DIFWD
010055
DIRBIT= 000004
[DIRMSK 002314
DLTERR= 010000
[DLYCNT
003142

DONE

003006

1205

3096

3203

2219

1054

1803
1283«

1391«

1412«

2899+
3450+

2912+
3525«

1472

1495

3205

3245+

1424+

2936+
3581%
1570

3248

1480+

2977+
3583«

2990+
3585«

1481%

1534«
3064
3601«

3082+
3602+

3096+
3603+

1589+

1942+

3203+
3605+

2215+
3236+
3681+

1647

1659

1747+

1754

1808+

1813

2034

3589

' CZRLICO RLO1/02 DRIVE TEST ;7
CZRLIC.MAC

24=MAR-80 15

DRDYMS= 000001
DRMSG

1366

037732

000010
000004
000010
DRTYPE
037710
DRVCNT
003074
DRVERR= 040000
DRVNAM
006051
DSESTA= 000400
DSMSK = 001400
DSPCOD
014216

EF .CON=
EF .NEW=
EF .PWR=
EF .RES=

000036
000035
000034
000037
EF .STA= 000040
ERHEAD
003012
ERLIM =
ERLIMQ
ERL IMW
ERRCNT
ERRPOI

000010
040133
014212
003156

ERRSWI

003016

oo
O

ERR8
ERR9
EVL

1539

1586
3505

1928

3520

3661

3120

1529

3170
1581

2624

3199

3239

3578

1245
1549
1324

1249+
1607
1358

1252«
2948
1369

3354

2685

2781
3415«

2841«
3486+

1248

1949+

3306

1629
1956

012642
013542

013612
013706
= 000004

ERR7

3445

936«

012572

012522

ERR6

3432

3122

OO0

ERR1
ERR10
ERR2
ERR3
ERR4
ERRS

3302

003154

003140
012340
013752
012406
012454

ERRVEC

1388

SEQ 0151

3316

1449

3569

2047
3676

2055

2201

2212

2985

2743

2783

2830

2837

3004

3041

2917+
3765«

2925+
3841+

2954+
3923+

2993

3035+

3128+

1085+

1099+

1121+

1137+

1227+

1248+

1770

1772

1788+

1939

[(alalalalala)

DRSB
DRSELT
DRSET

I 12

MACY11 30A(1052)
24-MAR-80 15:35 PAGE 3-3
CROSS REFERENCE TABLE == USER SYMBOLS

950+

1631
1958

1764

1822+

2313

2343«

1373
1615

1382
1758

2342

3253

3757

3361
2758
3397
2062

3468
2762
3434
2220

3742
3338

3466

3542

3698

3740

2932

2946

2951

2996

3453

3529

3370
2980

3458
3071

3533
3085

3690
3099

3442

3517

3048

3104

3122

3306

3316

1948

2066

2869

2877

2830

2837

2088
3101+

3117+

2198+
3149+

2226+
3267+

FMT1
FMT1.1
FMT11
FMT12

REE i

FMTOP3

nRHNO NN

EXTOS
ESEND =
IESLOAD=
FBSFIL
FMTOP1
FMTOP2

2783
2675

1828

2075
2362

3004

3041

2232
3904+

83#

1067

1142

2637

2641

FMT24
FMT2S
FMT26
FMT27
FMT28
FMTS
FMTG
FMTS
FMT6
FMT7Z
FMT8
FMT9

012247
012254
012264
012310
012327
011427
011432
011443

845#
B46#
8474
848%4
849#
825#
8264
827#

8294
8304
3223'

FMT23

012233

011463

011525
011575
011627

FOLWRT= 000100

010106
002000
000400
000015
000020
000040

8084

974

7564
1014
%
84
8%
84

2648
1323
1448

1357

1368

1076
1020
1326
2608
1139

1360
3156
1324

1371

1450

1358

1369

1449

2685

3569

2689
0688
§3§§

2821

3030

3179

3210

3269

3292

3412

3483

3570

3571

3619

1348
16

1374
23

174

220

623

631

850

859

907

921

935

1380

1398

49
1096
1336

174
1118
1374

220
1132
1379

623
1146
1398

631
1147
1402

850
1150
1404

859
1159
1419

919
1161
1425

933
1177
1431

947
1179
1438

2687

107

2645
107
107

2705
2916
3103
3280
3459
3559
3691
3830

2731
2924
3111
3285
3467
3567
3699
3840

23
1082
1334

2737
2933
3116
3339
3471
3573
3704
3856

EET

2770
2947
3146
3349
3476
3611
3710
3905

2776
2952
3151
337
3485
3613
3715
3906

2803
2967
3162
3378
3495
3626
3724
3917

2808
2981
3167
3383
3508
3628
3741
3922

2813
3013
3172
3400
3518
3633
3746
3934

2861
3018
3232
3405
3530
3642
3759
3971

1402

2870
3023
3254
3414
3534
3651
3764
3972

288°
3034
3263
3435
3543
3664
3772
3983

2890
3072
3268
3443
3548
3673
3819
3984

2903
3086
3275
3454
3554
3686
3825
3987

16
977
1198

s PSS

8#
962
1186

1400

FSEND = 000041

= 000016

FSCLEA= 000007

F$DU

sy pE

PESS

Py IS

Trae

FRMWD
FWDSKO=
FWDSKS=
FSAU
=
FSAUTO=
FS$BGN =

844K

2604
1053

R<Pl

8374
838#
8304
8404
B24H
8414
8424
8434

012002
012013
012035
012067
011424
012124
012154
012177

FMT16
FMT17
FMT18
FMT19
FMT2
FMT20
FMT21
FMT22

1140

011746

2645

SEQ 0152

0 g

FMTIS

8344

8354

J 12

ey b

011714

011650

(FMT14

30A(1052)
24-MAR-80
15:35
PAGE 3-4
CROSS REFERENCE TABLE =-- USER SYMBOLS

Jows whos gaw

| EMTI3

MACY11

et geSnr (RS PSns (e

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24=MAR-80 15:27

—

GSTATC

016544

GSTATG
GSTATR

016570
016530

GSTER1
GTSTAT=
GSCNTO=
GSDELM=

006462
000104
000200
000372

GSDISP= 000003

IGSEXCP= 000400

GSHILI= 000002
GSLOLI= 000001
SNO = 000000

GSOFFS= 000400
GSOFSI= 000376

1404

631

859
2705

2731

1147

1150
3984

3987

921
1118

933
1120

1146

949

964

977

979

1082

3651

1423
3146
3746

1425
3151
3772

3495
3905

3548
3934

3573
3971

3611

3626

3280
3759

2776
3400
3830

2803
3405
3917

3018
3554

3111
3559

3116
3628

3162
3633

3275
3715

3897
3935

3958

3239

3578

1599

1926

1937

2053

2199

2210

3430

3437

3503

3512

2864
3147

2892
3310

2905
3324

2919

2928

2939

2956

2970

2983

3052

2826

3000

3037

3300

3387

3422

3497

3615

3653

3726

3197

3238

3577
1576

1589

1598

1753

1817

1930

1942

1159

249n
16394
1691
1484
2204
L8
8594
14384
6314
15184
3659
15154
3075
1514
15124
3774
6794
814
84
84
2044
84

1566

1391

1534

1552

3247

3584

2834

2854

3143

2834
3990
2834
3990

2854
3992
2854
3992

4027

3604

84
84
84
3271
84
3271
84
3271

1516

84
84

8#
84

84
8#
84
84

p—

1198

1186

1161
4018
84
1084
84

2967
3435
3664

3414
3642

GBND
002310
GDRSTA 017652
GETPOS 022662
GETSTA= 000003
GLBDAT
002224 G
GLBEQA 002224 G
GLBERR 012340 G
GLBSUB 016126 G
GLBTXT
005240 G
GSTAT
016560

2952

FSSW
= 000014
FSTEST= 000001

2947
3371
3567

000003
000005
000010
000002

2933
3349
3543

3172
3485
3741
174

FSSEG =
F$SOFT=
FSSRV =
FSSUB =

2916
3285
3530

3086
3467
3699
49

FSPROT= 000021
FSPWR = 000017
FSRPT = 000012

2883

2981
3443
3673

FSMSG = 000011

2870

FSMOD = 000000

4047

FSJMP = 000050

4033

84
84

FSINIT= 000006

4002

SEQ 0153

3143

4027

|FSHARD= 000004
FSHW
= 000013

K 12
MACY11 30A(1052)
15:35 PAGE 3-5
24-MAR-80
CROSS REFERENCE TABLE == USER SYMBOLS

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-B0 15:27

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-80 15: 27
GSPRMA=
GSPRMD=
GSPRML
=

L 12

MACY11 30A(1052)
24=MAR-80 15:35 PAGE 3-6
CROSS REFERENCE TABLE == USER SYMBOLS

3992

SEQ 0154

3994

GSRADA=
GSRADB=
GSRADD=
GBRADL
=

GSRADO=
GSXFER= 000004
GSYES =

2854
3998

4025

2854
3998

4025

4027

4029

3996

3998

4000

3593

3596

3750

3753«

3754

1694

1696

1698

4000

HADONE
HAMES1

3008

3043

4027

3043 -

3068

3106

3125

3143

3158

3228

3068

3106

3125

3143

3158

3228

4025

4027

4029

4031

1720

3867

3945

4029

HAMES?2

HCESTA=
HCRCER=
HDAL I1G=
HDCYL
HDHSEL=
HDMOVF
HDRCMP=

HDR40

HDSEC
HDSEL

HDWRD1

2173

1975

1290

2930

3331

2177

3344

3393

1062

2316

3786

3295
107

3384

14104

TS0
7~ 7~

ooe

1280~

M 12

MACY11 30A(1052)
24-MAR-80 15:35 PAGE 3-7
CROSS REFERENCE TABLE == USER SYMBOLS

I$AUTO= 000041
ISCLN = 000041
I$DU = 000041
I$HRD = 000041
I$INIT= 000041
I$MOD = 000041

13484
13804
14004
4002#
11994

134 £33+

CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

164

1177#
40224
9074
10964

I$MSG = 000041

I$PROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041

6234
13794

SEQ 0155

6314

14044

§504

14384
9624

9644

118%#

2737
3495
3934

I$SETU= 000041
I$SFT = 000041

I$SRV = 000041
I$SUB = 000041

I$TST = 000041

3167
3724

3232
3764

31034
34954
36514
38194

3116
3508

2870
3023
3349
34764

2883
3034
3371
3485

3972

39834

37154

006155

LOCYL =
LOE
=
LOLIM =
LOLIMW
LOT
=

040000
040000 G
000002
014204
000010 G

SEE
T TSR

JJJ
002300
JSJMP = 000167
LAB
014442
LAB1
006142

LAB2

184

$DISP

060 G

014220 G

8594

27054

3830

3724

11474

11504

11594

27314

39844

39874

977H

9794

1082#

e U3 3at 333000 11 S £330 St S $ 30l 3433 g S S

LSDTP
LSDTYP
L$DU
LSDUT
LSOVTY

LSEF

LSENVI
LSETP
LSEXP1
LSEXP4
LSEXPS
LSHARD
LSHIME
LSHPCP
LSHPTP

LSHW
LSICP
LSINIT
LSLADP
LSLAST
L$LOAD

LSLUN
LSMREV

L SNAME
L$PRIO
LSPROT
LSPRT

LSREPP
LSREV
T
LSSOF
L$SPC
L$SPCP

[LSSPTP
LSSTA

LSSW
LSTEST

LSTIML

LSUNIT
le

MACY11 30A(1052)

15:35

R
PAGE 3-8

CROSS REFERENCE TABLE == USER SYMBOLS

999

2044

1319

2205

1391

1484

1534

2215

3247

3584

1249

3185

3188

1552

3604

SEQ 0156
1576

1589

1598

1753

1817.

3197%

1651«

1655
3198+

1663
3201

3233«

3234

2326«

2327

2624

2688

3199+

1930

14004

274

39884

11514
1195#

40454

4052#

1185#

40234

1220
1572«

013704
013750

24-MAR-80

1573«

1575

1619

- ">

002116 G

LSDLY

dd—l—l—l—l-—l—l-d—l—l-J—.—l—l—l—l—l—l—l—l-—l—)—l—l—l—ld—l—l—l—l—ld—‘—ld a1

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27

1648*

2319«
3576

2320+
3577«

2321+«
3580

2333
3597«

2610
3598+

3244

3578+

3579

3593«

3596%

1574

1581

1645«

1653

1650

2688
3600

2323«

3599

1728

1791

RLO1/02 DRIVE TEST 1

MAC

24-MAR-80 15:27

B 13

MACY11 30A(1052)
24-MAR-80 15:35 PAGE 3-9
CROSS REFERENCE TABLE == USER SYMBOLS

014160
014200
014216

11464
1151
1162

1158#
11764

016050
016110
016116
016124
025114
025322
027612

13744
13984
14024
14194
14254
14314
27704
28034
%8}%0

2861

2870

31114
3086

3103#

32754
3263
3339

015320
015656
016044

030706
031312
031220
032466
032412
033372
033460
034126
034616
034576
035370
035266
035366
036054
036034
036274

036554
036532
037276
037242
037570
037534
037654
040076
005717
005740
010451
SETO= 000001
010271
006271
010436
010726
005443
005325
010313 .

010340
010260
010402

13344

3023
3072
31624
31514
3172
3254
3285
34004
3414
3485
3508
3567
36114
36264
3642
3664
3759
3741
38254
38194
3840
39054
3972
39714
3988
4023
4029
242
6544
7764
1434
255
6704
7758
791#
233
231
7?7#

2757
1744
7654
1493
2753
1104
6454
6384
1032

769%
7644
256

1036
1933
7714

3435
35544
3518
3628#

37104
3673

2883

2890

2903

2916

3268#
3349

3371

33784

3443

3454

3459

3467

34714

3530

3534

3543

35484

3686

3691

3699

37044

2995

3428

SEQ 0157

2924

2933

2947

2952

3501

3519

3657

3675

37464
3906

39174

39834
40024
40334
40414
6534
2886
1807

3337
3593

2795
2666

2049
2950

2207
3356

3444

2967

2981

—

MDRRES
MDRVST
MDSERR
MERRS
MEXERS
MFLERR
MFMTER
MFOLWR

1020

PAGE 3-10

SEQ 0158

3261

648#
6504
6514
6374

MGTSTA

MHOSTA

006371

MISWI = 000000
MISWIW
014202
MITEST=

c13

1448
7854

MHCERR
MHCRC
MHDERR
MHDRCP
MHF CRC
MHNF

MISTST

15:35

CROSS REFERENCE TABLE == USER SYMBOLS

1477
1089
7804

MFWDSK
MFWSKO

MHSTA
MINOUT

24-MAR-80

—

MACYT1 30A(1052)

——

CZRLICO RLO1/02 DRIVE YEST 1
CZRLIC.MAC
24=MAR-80 15:27

3460

3536

3692

2884

2925

2993

1966

1975

2740

2779

2811

3021

1073

1076

1135

1143+

15 0o~

3783+

4029
1288

3736

1068+

1140

2881

230

6414

2662

3120

3170

3283

]

| CZRLICO RLO1/02 DRIVE TEST 1
| CZRLIC..MAC

24-MAR-80 15:27

| MJRTAB

795#
243

|MLOHDR
NEWC YL

4S54m
1990
1144

NOCLR =
NOCTLR
NOERCT

6914
S144
1124
874
6594
6924
6904
3637
67748

NOIRPT=

=
NOOP
NOPWR

NOTRDY
NCTST

NSTACH
NXMERR=
NXTHL
NXTPAS
OBUF F

1254

2484

12444

MACYTT

D 13

30A(1052)
24=MAR-80 15:35 PAGE 3-11
CROSS REFERENCE TABLE == USER SYMBOLS

6404

1112

1696+
3487

»
1991

1357
908

1697

1698+

SEQ 0159

3644

3717

3853

1701+

1705
3930

1707=

1708

1709+

171

1720

3030

3176

3179

3289

3292

3409

3412

3480

3483

2746
3042%
3143
3321
2645

2785+
3043
3144
3620+
3932

2786
3044
3157%
3621

2787
3067+
3158
3622

2835
3105+
3228

2853+

2315«

2609%

2614*

2617

2630

2638

3008

3043

3106

3125

3228

3271

2837

3004

3041

3048

3306

3316

1505+

1323

1368

2818
3640
2841
1271
1259

OLDCYL
ONSWAP
OPFLAG

3229

OPIERR=
OPMSGS

OPR002

(o
e R e
e
e e L
O~ 00 & & 00 & £ 000000
xR
ux

L4222 2 ]

CITITTIILEY

2830

3048

3306

3041

3104

3156

3226

1183

3104

3316

1296

2272

1777

2368

3122

3320

'CZRLICO RLO1/02 DRIVE TEST 1
fCZRLlc.nAc
24-MAR-B80 15:27

| PASCNT

003150

S507#

)

|PASNEW
PASNUM

014516
003356

1243
sgl}c

12474
1221«

PATTBL
'PAT1
PAT10

002360
004762
005236

274m
274
283

527#
6214

276

5454

PAT?2

004764

PAT3

275

005024

PATS
PATS
PAT6

005064
005124
005132

PAT7
PAT8
PAT9
PNT
=
POSHDO
POSHSB

005172
005174
005234
001000 G
022272
022266

PRI
=
PRIOR =
PRIOO =
PRIOT =
PRIOZ2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIO6 =
PRIO7 =
PSETNM

002000
000004
000000
000040
000100
000140
000200
000240
000300
000340
003360

POSHW1

PWCON

022260

014766

G
G
G

G
G
G
G
G

277
278
279

280
281
282
514
2174
2175#

21734
514
Sé#
514
514
51#%
514
514
514
S51#
514
S124

1214

£ 13

MACY11 30A(1052)
24=MAR-80
15:35 PAGE 3-12
CROSS REFERENCE TABLE == USER SYMBOLS

1247+«

1301

2738

2777

3461

3492

3537

3693

1250+«
1278

1254

1258

1251«
12884

1260

1308

2331
3956
2339

2809

3019

3118

3168

1327

1361

1372

1451

3184

1394

1396+

21764
3424
3737

1228+
1240

1789
3731
1471
1547

19154
3779
1492
1583

2032
3902
1497

RESE4

011160

802#

1067

1140

1142

2671

1140

1142

2672

2696

2701

1751«
1255

1811«
1293

2042+«
1324

2328+
1353

1313«
1812«

1315
2329

1354
2333«

RLCS

011165
011172
003062
014460
002320
001000
000200
000002
003026

= 000000

805#
806#
4454
1217
2554
1004
984
11748
4274

2783

1164
1586

1449

2317

2685

2743

1387«
3264+

1388

1490

1531

4000

2038

RESES
RESE6
RESPAR
RESTAR
RESTBL
REVSKO=
REVSKS=
RLBA =
RLBAS

3391

6004
6024
6194

5164
6884
6894
23044
854
834
864
1745
2189%
14584
105#

8014

3342

5624
5794
5834

003366
006643
006643
023010
000114
000110
000116
021132
022316
016266
040000

011154

3281

528#

PWRFLG
P2TOTE
P2T02E
RDALHD
RDDATA=
RDHEAD=
RDNOHR=
RDYCHK
RDYWAI
READRL
RELDWT=

RESE3

SEQ 0160

1213
3841
3923
3781

1067

2675
1076
2660
12344
1047
107
107
1459
1139

2830

998+
1657

2837

1000
1752«

3004

3041

3048

1358

3104

1365«
2335

1369

3122

1366
3201«

1418

3194

1385
3225+

3306

3316

3569

——

2318

2620
952

2646
967

958

974

973

987
1050
1048

3655

3728

3776

1525«

1624+

3244

3579+

3306

3041
3316

3048
3564

3104
3568

1138
26854
26574

25994

1387

2830
3226

1087
1093

1092

2070

3600+
3200+

nonoN
o OW

2069

3580+
2327+

il
s
sl

2783
3214

1810+
1363

1449

1571

1648

3599+
1730

3122
3569

3598
2643

12514

3499

2878
1521

2020+

2083~

2190

1680

2194+

1684
%

2227+

1765+

2245

1781

2249+

1785+

2261

1824+

2305

1916

2309+

1920+

2355+

1662

1098
1379

1096
1206
1257

1357
1393
1452
1817

1683«

1784~

2604

1120
1380

1118
1207
1291

1358
1397
1534
1821

2215

2¢20

2766
2854
2903

2770
2860
2912

2662

2671

2193«
W——

1682«

2308~

NNOOPOPON

SVCINS= 000000

2743
3154~

3234

H-=0n
rownw

SVCBGL= 000001
SV(GBL= 000000

1792

2614

1750+
1358

2685
3140

959

12214
139#

2043+

—_—

011177
011207
011217
STOSTA= 010000
SUBSTK
002404
STATEZ2
STATE3
STATES

119#
428#
1044
912
916
915

1655+
1653«
1324

WOV
WO
=0
BB Y=ONO—=HS

STAMES
010152
STAMSK= 00000 7

1575«
1574
131

SEQ 0161

N
e D et

RLMP
RLVEC
RORWOP=
RPTOP
RPTREM
RPTRES
RSTRT
SAMSK =
SBSF IL
SECWD
SEEK
=
SEEKOP=
SELQ
SEQMES
SETDON
SFTPRM
SGNWD
SIMSEK
SPDERR
SPDSTA=
SPTCOD
SSINDX

429
1793
3132
3576

1458
995+

H =0
=
OO0

-RLDRV

122#
118#

F 13
30A(1052)
24=MAR-80 15:35 PAGE 3-13
CROSS REFERENCE TABLE == USER SYMBOLS

—_——

1RLCSR

RLDA

MACY11

WOWNEH
WO
=0
S NWNNOONO =W
NN
—=00NOW

CZRLICO RLO1/02 DRIV TEST 1
,cz LIC.MAC
24-MAR-80 5:27

2685

949
1189

3988
1053
1181

1240
1327
1374
1448
1615

2066
2637
2745
2830
2946

|CZRLICO RLO1/02 DRIVE TEST 1
(CZRUIC.MAC

04~MAR-80 15:27

MACY11 30A(1052)

24-MAR-80

2947

2951

2952

2963

3086

3096

3099

3103

3013

3156

SvCsus= 000001
SVCTAG= 000000

8#
84

2854
SVCTST= 000001
SWAPHD
021512
S$LSYM= 010000

3633

PAGE 3-14

CROSS REFERENCE TABLE -- USER SYMBOLS

6 13

15:35

3023

3030

3158

3162

104
134

3008
o

3715

3034

2966

2967

2977

3104

3106

3041

3043

3179

3034
919

3146
933

3232
947

3495
962

3573
977

3013

3043

3068

3103

3106

2737

2776

2808

3018

3116

9474
1402¢

9624
14192

977#
14254

10824
14314

3830

3922

3008

3048

3172

3764

3191

SEQ 0162

3192

1975#
8#
13344

3912
9194
137644

3978
9334
13984

30434
32754
37468

30684
33204
3759#

31034
3378#
38194

31064
34004
38254

31114
34714
39054

1076
3132«
1676
3848+

3154
1678+
3851*

3750«
1748
3865+

3752«
3212«
3871+

3754
3215
3873x«

3787
3226
3879«

3842«

3973

3976

3881«

3947+

3951«

1005«
1513«
2076

1006
1515

1051
1516

1053
1518

1519«

1529

1628+

2012+

1355
14294
2790

1430~
2825

2999

3036

3129

3183

3496

3574

10534
13694

1067#
13714

10764
14484

1139
14494

1 404
14

3008#
3268%
37044

TBLSTR
TBT
TCERR
TEMPO
TEMP1
TEMP2

003024
002544
010237
003116
003120
003122

4254
3274
7614
4604
4614
3325#

TEMP3
TEMP4

003124
003126

TEMPS
TEMP6
TEMP7
TEMP8
TOSLOW=
TRPFLG
TRPHAN
TSTINT

003130
003132
003134
003136
000001
003364
016120 G
016512

4634
464k
2014~
465K
LO6#
L4678
4684

TSTLAB
TST4
TYPDR =
T$ARGC=

006363
027712
000006
000002

1114
SI5#
1350
15044

3614

674%
3026
574
184
13604

645K
28304
3269#

30134
32714
37104

990+
1512

2025

1349+
1382
2748

3652

2608
30354

3998
10204
13684

2648BF
28374
32924

3725

26624
3004#
33064

3773

26714
30304
33164

3843

26728
30414
3412#¢

3925

26754
30484
34834

26854
31
35

11424

26034
26874
31224
35704

3296

3385

3421

13264

26214
27434
3179
36404

13574

26374
27834
3210#
38384

13584

26414
2821#
32264

CZRLICO RLO1/702 DRIVE TEST 1
| CZRLIC.MAC
24=MAR-80 15:27

T$CODE= 004052
TSERRN= 000311
|

{

27454
33204
84

MACY11

30A(1052)
24-MAR-80
15:35 PAGE 3-15
CROSS REFERENCE TABLE -- USER SYMBOLS

28544
39924

27864
36214
1557#

16054

22084
28774
30854
34664

| TSEXCP= 000000
| T$FLAG= 000040

30084
39944
16154

23424
29024
32624
35174
37574

SEQ 0163

31584

32714

20514
27964
29664
34344
36724

20664

40294

29524
34144
36424

| TeGMAN= 000000
TSHIL1= 000377
TSLAST= 000001

000000

gm.sw: 010000

1146

3628
T$L TNO= 000020
TENEST= 177777

9194
10984
11764

27314
31514
34954
37154
39344
T$NSO

TENST

1159
14104

000005

1082
11994

31
35594

4002
TSNS2

000002

TSPTNU=
T$SAVL
=
T$SEGL
=
T$SUBN=

000000
177777
177777
000001

T$TAGL
= 177777
T$TAGN= 010061

TS$TEMP= 000000

3626

32804
37724
9214

11334

34054
38564
11624

37244

28084
35734

40234

30344
36334

11584

13364

1132#
1398#

CZRLICO RLO1/702 DRIVE TEST 1
' CZRLIC.MAC

MACY11 30A(1052)

24=-MAR-80 15:27

24-MAR-80

15:35

113
PAGE 3-16

CROSS REFERENCE TABLE == USER SYMBOLS

.
.

16028
28614
30134

14064
28704
30234

146194
28834
30434

14254
28904
30684

14314
29034
30724

27054
29164
30864

27458
29244

33784

34004

3474

34354

34438

3454m

36914
39714

36994
39724

37044
39834

37104
39844

37414
39904

37464
39924

37594
39944

27378

27764

28084

30184

3034

31624

éT&TEST= 000020
ETSTSTM: 177777

31728

32284

919

933

3254

947

32634

962

326Br

SEQ 0164

31034

2770
2933
31064

27864
29474

28034
29528

28134
2967#

2834k
29814

2854k
30084

3459

34674

32854

34714

33204

34854

33394

3349

33714

38194
39964

38254
39984

38404
40004

39054
4002#

39064
40184

35304
36864
39174
40254

31164

3146

31674

3232

32804

33834

34054

32714

32754

31114

31254

31434

35084

31514

35184

31584

1132

1139

1140

1142

1146

1202 -

977

1020

1053

1067
1211

1216

1076

1082

1096

1239

1118
1242

1360

1361

1368

1369

1371

1372

1373

1374

1382

1384

1393

1397

1398

2604

2608

2621

2637

2641

2645

2648

2662

2671

2672

2675

2685

2687

27374

27764

28084

30184

31164

31674

32804

33834

34054

34764

35594

36334

9494

962

9644

977

979#

1082

10844

32328
36134

3254
3626

3263
36514

3268
3664

3495#
3673

3508
3686

3518
3691

2861

2870

2883

2890

2903

2916

2924

T$TSTS= 000001
T$$AUT=
T$$CLE=
T$$DU =
T$$HAR=
T$$HW =
T$$INI=
T$$MSG=

010016
010017
010020
010057
010012
010015
010011

T$$PRO= 010014
T$$SOF= 01006
T$$SRV= 010023

T$$SUB= 010056

37154

3764#

13484
13804
14004
3988#
11514
11994
9074

38304

1374
1398
1402
4002
1158
1334
91%

1096

9214

10984

1189
40234
14104
3034#

4033
1419

3072

39224

933

9354

1118

11204

1132

14234
3086

1425
3103

14294
31464

947

1133

T$$TES= 0100

r-.....

1146

1206

1235

T$$SW = 0100

1205

3819

30184
3378

38564

3023
33834

3905

31
3400

39344

31164
34054

3971

3162
3414

31678
3435

3172
3443

BT,

| CZR LICO RLO1/02 DRIVE TEST 1
l
(CZRUIC.MAC
24=-MAR-80 15:27

34564

'1.BA
T.CS

003046
003044

3459

3467

1414+
991

3715#

3759

1928

1939

4364
435#

J 13

MACY11 30A(1052)
24<MAR-80
15:35
~PAGE 3-17
CROSS REFERENCE TABLE == USER SYMBOLS
3764w

3471

34764

438
gg?g

1008
2793

1416~
2798

1461x
2878

4634

1090

1579«

1580~

3077

3091

2844
3018«

2865

3053
31164

3076

681#

682#
1181
1181

T10.1
T1048

034240
034240

34954
34944

T11.1
111.2
T1158
T12
T12ERR
T12.1
T1248
113
T13ERR
T13.1
T1348
114
T14ERR
T14.1

034776
035270
035270
035372 G
006571
035476
035476
036056 G
006603
036102
036102
036276 G
006617
036320

35734
36134
3566
1181
6844
36514
36504
1181
6854
3724
37234
1181
6864
37724

T10ERR

155

115
T15.1
T1538
T16
T16ERR
116.1
11728

117658
118658
11878
12

T25TBL
125782
13
T331BL
13658
T4
T4.1
14658
15

006551

034620 G

036556 G
035724
036320
037300 6
006633
037354
036724

037276
037570
037354
025116 G

002430
002456
025324 G
002504
027612
027614 6

027710
030576
030710 G

6834

1181

1181
38564
37714
1181
6874
39344
3855#4

3845
3927
39334
1181

2994
3124
1181
3264
2827
1181
30344
3038
1181

3128

1601

1607

1761

2222

2345

2689

2948

2985

3869

3877

1661
2941

2175
3259

2689
3330

2751
3393

2755
359

2845

2858

2866

2921

2958

2957

2971

2984

3001

3012«

3846

003052

006526

1549

3363

|T.MP
|

0N6541
024636 G
034130 G

1539

1724

3354

2689

TOSERR

1475
2212

1413+
2064

1460*

TO9ERR
11
110

1458+
2201

1056

3302

3054

3710

2055

3207

2972

3642

2047

1415+

003060

3633¢

1946

4374

T.STAT

3628

2689
1054

gggg

1266*

3567

1459+
1010

gggg

246k

35594

38304

003050

002276

3554

3825

'T.DA

' T.DRIV

3485

1268

3056

1699

3840

3372

SEQ 0165

3906

3432

3917

3445

1541
2887

1543
289

1579
2907

1603
2930

1661+

1662«

2763

2828

2893

2906

2920

2929

2940

3090

31014

3313

3327

3922#¢

3440

3456

3515

3972

3505

3670

3983

3520

3889

3531

3898

3661

3415
27374
34764

3486
3552

35594
3612#
3633
3643
3708
37154
3716

3751
37644
3765

38304
3823
39224

3914
39164
39824
3980
27764

28084

L01/702 DRIVE TE T1
24-MAR-80 5:27

031202

31464
313

MACY11

31674

1181
1181
1181

32R0#
33834
34054

Si#
94k
76494

673%#
672#
1664

3994
554

14674
1524
1534
1724
1674
1704
4244

84k
20144
20124
2013
16784
16764
1677

8#
8#
8#
8#
S#

1534

2861
3072
3454

K 13

SEQ 0166

31554

1181

32324

30A(1052)
24-MAR-80
15:35
PAGE 3-18
CROSS REFERENCE TABLE == USER SYMBOLS

3047
3140

3305

1603

2941

3350

1613

1669

1756

1819

2072

2798

3358

3594

3617

5214

3224
1753

1611
1605

40084
3994

2340

3250

1543
2759

2252
3734
20154
3884

3953

16794

3264
1552

2870
3086
3459

3274
1576

5104

1589

2890
3247
3485
3691

1598

2903
3254
3508
3699

2916
3263
3518
3741

5244
1817

5254-

999

1391

2205
2967
3414
3584

40454

1487

2215
2981
3435

1489

2813
3023
3443
3642

| CZRLICO RLO1/702 DRIVE TEST 1
CZRLIC.MAC

BCOMPL
BGNAUT
BGNCLN

24~MAR-80 15:27

1207
1348
1380

MACY11 30A(1052)

24-MAR-80

15:35

L 13

PAGE &

CROSS REFERENCE TABLE == MACRO NAMES

1236

1240

1243

1257

1447

SEQ 0167

BGNDU
BGNHRD
BGNHW
BGNINI

1400
3988
1151
1199

BGNMSG

907

921

220

631

859

1150

1161

1179

1198

1379

1438

BGNSRV
BGNSUB
BGNSW

1410
3034
1162

1423
3146

1429
3232

3495

3573

3613

3651

3724

3772

3856

3934

2776

2808

3018

3116

3167

3280

3383

3405

3476

1299

3192

3860

3938

1391

1534

1552

1576

1589

1598

1753

BGNMOD

BGNTST

BNCOMP

%;35
1203

BREAK

3312

CLRVEC

1373

DELAY

1212

935

1217

3326

3586

1393

1397

3584

3604

949

3606

964

979

1084

1098

1120

2731

3987

4022

3559

3633

3715

3764

3830

1817

1930

1942

2044

2205

2215

1133

999

1319

1452
1361

1372

16451

ENDHRD
ENDHW
ENDINI
ENDMOD

1328
1327
1374
1398
1402
4002
1158
1334
23

623
947

850
962

1147
977

1159
1082

1177
1096

1186
1118

1336
1132

1404
1146

3984

4018

4047

1193
4033

174
933

2705

ENDPRO
ENDSFT

919

ENDTST

2770

2803

3013

3162

3275

3378

3400

3471

3554

3628

3710

3759

3825

3917

ERRHRD

1557

1596

1609

1615

1758

1763

1821

1935

1948

2051

2062

2066

2074

2208

5%88

;882

gg;g

3685

3690

3698

3700

3740

3742

3466

3468

3757

3799

3805

3891

3900

3968

3542

3544

EXIT

2813
3086
3508

2861
3172
3518

2870
3254
3530

2883
3263
3534

2890
3285
3543

2903
3339
3567

2916
3349
3642

2924
3371
3664

2933
3414
3673

2947
3435
3686

2952
3443
3691

2967
3454
3699

2981
3459
3741

3023
3467
3840

3072
3485

DOCLN
DODU

ENDAUT
ENDCLN
ENDDU

ENDMSG

GMANIL

GPRMA
RMD

324;

3361

2745

3992
3996

3370

2786

3994

4000

3397

2834

4031

3434

2854

3442

3008

3453

3043

3458

3068

3106

3125

3507

3143

3517

3158

3529

3228

3533

3271

3320

3621

CZRLICO RLO1/02 DRIVE TEST 1
|CZRLIC.MAC
24~MAR-80 15:27
GPRML

HEADER
INLOOP
LASTAD
MANUAL
MSBYTE
M$CHEC
MSCNTO

MSCOUN

2834

27864
3998

4025

3859

3937

MACY11 30A(1052)
24-MAR-80
15:35 PAGE 4=1
CROSS REFERENCE TABLE -- MACRO NAMES

28544

4027

30084
4029

30434

30684

31064

31254

SEQ 0168

31434

31584

32284

32714

33204

36214

1298

28614

28704
32544

29814
34554
37414
32714
13604

26624
35654
MSDATA
M$DECR

M$DEFA

MSENDE

MSERRI

MSESCA
MSESCS
MSEXCP
MSEXIT

30724
34854

M$EXSE

30724
34854

MSEXTJ

30724
34854

M$GEN

11514

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24-MAR-80 15:27
MSGENB
MSGETS

MSGNGB
MSGNIN

27864
1744
1159

2834
6234
11764

28544
8504
11774

30134
3704k

31034
3710

31114
37464

31514
37594

31624
38194

32684
38254

32754
39054

33784
39174

34004
39714

34714
39834

35484
39844

35544
40024

%P13#

28614

28704

28334

28904

29034

29164

29244

29334

29478

29524

29674

29814

30234

30724

339%:

3518%

35304

35344

35434

35678

36424

3664

36738

36864

36914

3699%

37414

38404

9064

16#

27704
3626¢

184

28034
3628¢

254

274

30084
9194
11864

30434
9334
11934

2204

1098%
164004

11204
146104

11334
14234

11504
14294

11514
1438¢

11614
27314

1118%
1212¢
13194
13724

11324
12164
13234
13738

11394
12174
13244
137644

11404
1235#
13264
13824

11424
12
13274
13844

11464
12398
13284
13914

28134

28214

184

7964

254

28014

27K

28034

9194

9334

%74

28304

30684
%74
13344

6314

11624
39874

9624

29024

34544
35294
35864
36734
37464

34584
35304
36044
36814
37574
39054

3459
35334

66
3534M
36114

MSGNLS
MSGNSU
MSGNTA

27454
3034
9194

[MSGNTE

27374

23420
2687#

32714
11324
14198

9644

33204
11464
14254

9794

36214
11474
14314

10844

11994

13484

13794

13804

10204

10534

10674

10764

10824

10964

28504

28994
29634
304

9354

32284
11184
1404

11984
40494

28374

8
29524
30414

9214

31584
10964
14028

11894
40234

2834H

28894
2951
30344

164

9774

9074

31434
10824
13984

11814
40224

11814
12434
13574
13984

28834
2947K
30304

9794
11426
1235
13574
13974
15964

8554

11794
39884

31254
9774
13744

1162#
12424
13504
13974

28824
29464
30234

39224

31064
9624
13364

11514
12404
13344
13934

28774
29368
30134

thNCR

SEQ 0169

27454
234
1158#

g705#
36114

MSGETT

N 13

MACY11 30A(1052)
24-MAR-80
15:35 PAGE 4=2
CROSS REFERENCE TABLE == MACRG NAMES

12024
12564
13584
14024

2854k

12034
12574
13604
14194

12054
12914
13614
14258

28614

1
12924
1
14314

28694

2912#¢
29778
30684

29158
29804
30714

29164
29814
30724

29234

2924

30484

29034
2967K
30644

30824

30854

34684
35438
36194
36914
38054
39374

34714
3544k
36214
36984
38194
39384

3548
36264
3699%
38254
9684

34854
3554
36284
37004
38384
39714

34954
3567
4
37044
38404
39724

35074
3569%
36424
37104
38564
39834

35084
35704
36514
37244
38594
39884

1207#
12984
13694
1446

28704

12114

12994
13714
14474

28744

293284
'

29334

35174
35714
36634
37404
38604
39904

35184
35734
N
37414
38914
39924

35254
3584w
36724
37424
38954
39944

39064

39174

34678
35424
1
36904
37994
39344

27864
31464
9334

2B34#
323524
%474

28544
34954
9624

30084
35734
9774

30434
36134
10824

30684
36514
10964

31064
37248
11184

31254
37724
1132¢

31434
38564
11464

31584
3934k
11584

32284

32714

33204

36214

11764

13344

13744

;288:

27764

28084

30184

31164

31674

32804

33834

34054

34764

35594

36334

37154

37644

38304

10204
11464
12394
1358%
13984
16094

2347H
268BN

3,854
37594

2204

10534
11504
12626
13604
14004
16154

26034
26894

37724

6314

10674
11514
12564
13614
1402#¢
1758#¢

2604k
2731

8594

10764
11614
12914
13684
14104
17634

26084
2737

9074

1082#
1162¢
12924
13694
14234
18214

26214
27438

9194

10844
11794
12984
13714
1429
19354

26374
27458

9214

10964
1189
13234
13724
1438%
19484

26418
2754

9334

10984
11984
13244
13734
14464
20514

2645H
27584

9354

11184
1199%
13264
13744
14488
20624

2648
27624

%74

11204
12024
13274
1379#
14498

26628
2766

9494

11324
12054
13284
13804
14504
20744

26718
27708

9624

11334
12064
1334k
13824
14514
22084

26728
27764

964#

1139%¢
12114
1
13844
1452#
2220

26758
278384

9774

1140#
12164
13504
13934
1557#
22244

26854
27864

CZRLICO RLO1/02 DRIVE TEST 1
CZRLIC.MAC
24~MAR-B0 15:27

27964
28744
29334
3008#

28014
28774
29364
30134

28034
28824
2946H
30184

31584
32624
33384
36350
36954
35594

31624
32634
33394
36424
35074
35674
36420

31674
3268
33484
34434
35084
3569%
36514

B 14
MACY11 30A(1052)
24-MAR-80 15:35 PAGE 4-3
CROSS REFERENCE TABLE == MACRO NAMES

28084
28834
8
234
31034
3172¢
32694
33494
3450
35174
3570

28134
2889
29518
30304
31044
3179%
32714
33614
34538
35184
3571
#

28214
28904
29528
30344
31064
31914
32754
33704
3454
35254
35734
36724

28304
28994
29634
30414
31114
32034
3280
33714
3458
35294
35864
36734

2B34W
29024
34
1164
32104
32854
33784
3459
35304
36064
36814

28374
29034
29674
30484
31224
322
32924
33834

SEQ 0170

35334
36114
36854

28504
29128
§97 N
30644
31254
32284
32984
33974
34678
3534
36134
36864

2854#
29154
29804
30684
1608
2328
33064
004
34688
35428
36194

28604
29164
814
el
31434
32364
33124
34054
34718
35438
3621
36914

28614
2923
gg%l
724
31464
32538
3316#
34124
3476
3544
36264
36984

2869
2924k
%ggg'
#
31514
3254

36994

30854
31564
32564
33264
34
34854
35544
36334
37004

13724

13734

1384w

13934

184

1132#8

11464

1147

34144
34834
35484

28704
;3320

MSLDRO

1202#

12054

12114

12164

12354

12394

1242#

12564

1292#

1327#

13614

MSMCHI
MSMCLO
M$POP

8»
3u

1744

6234

8504

9194

9334

%74

9624

9778

10824

MSPRIN

10204

10534

1067#

10764

1139%

11404

11424

13234

13244

13264

1357#

13584

13604

13684

13654

M$PUSH

16#

458

2204

6314

8594

9074

9214

9354

9494

964#

9794

10844

10984

11204

11334

MSPUT

10204

10534

10674

10764

11394

11404

11424

12914

13234

1324

13264

13504

1357#

13584

13604

MSPUTT

10204

10534

10674

10764

11394

11404

12914

13234

13244

13264

13504

1357#

1358#¢

13604

2899%

29124

31564

31794

32034

32104

32264

28544

30084

30434

2204

6314

8594

9074

27374

27764

28084

30184

31404

34834

35254

35694

MSRADI

27454

27864

28344

MSRNRO

12024

12564

31914

SETS

39904

164

1438¢

gégg:

MSSsvC

9194

11428

L“on

27314

Z(S)gg‘

9334

11464

28533:

%474

1202¢

35704

36134

9624

12054

29778
35714

36334

977#

12064

36194

36514

10204

12114

364

11424

30044

30414

30484

32564

32694

32924

32984

30824

30964
33164

34124

34504

106#

31254

31434

31584

3228¢

32714

33204

36214

9214

9354

9644

9794

10844

10984

11204

1133«

30344

31164

31464

31674

32324

32804

33834

34054

34764

11184

11324

36404

37154

10534

12164

36814

3724k

10674

12354

38384

3764

10764

1239#

38954

3772¢

1082#¢

12424

38304

10964

12564

38564
12914

39224
1292#

31044

39344

11394

1298%

31224

39874

11404

1323#

—_

CZRLICO RLO1/02 DRIVE TE
CZRLIC.MAC
24-MAR-80
13244
137644

1609
2347
26884
28214
28904
29524
30414
31114
32264
329
34
34714
3544
36284

|
MSTLAB

1615
26034
26894
28304
28994
29634
30434
31224
32284
34124
34834
35484
36404
37044

3700
38384

38404

914
11428
13244

9334
11464
13264

23478
26884
28214
28904
29524
30414

26034
26894
28304
28994
29634
3
31224
32284

3983#4

13744
1609#

MSTSTL

13264
13824

31114
32264
32984
34004
34714
35444
36284
37004
38384
39834
9%
11424
13244
13744
1609¢

23478
26884
28214
28904
29524
30414
31114
32264
32984
34004
34714

13824
16154

34124
34834
35484
36404
37044
38404
9334
11464
13264
13824
1615#

26034
26894
28304
28994
29634
k%4
31224
32284
3064
34124
34834

€ 14
MACYT1 30A(1052)
24-MAR-B0 15:35 PAGE 4=4
CROSS REFERENCE TABLE == MACRO NAMES

SEQ 0171

' CZRLICO RLO1/02 DRIVE

{ CZRLIC.MAC

24~-MAR-80 15:27

35444

'MSWORD

POINTE
PRINTB

PRINTF

TEST 1

ggzaa

3554%

MACYT1 30A(1052)

35674

35694

O
37044
38404

36428
3710
38564

36514
3724
38594

11814

15574
2224
2B6IN

2342M
2869

2347K
28704

33304

2220
28604

15964

36634
37408
38914
16094

36644
37418
38954
16154

2745K
28774

35714

36724
37428
39004
17584

2754M
28824

30684
32634

32714

32854

33204

30864
33384

35304
36904

35334
36914

3536
36984

35428
§699l

35434
37004

3544M
376408

33484
34664
3567
37414

14
1020

1053

1067

1076

1139

1140

1142

1323

1324

1326

1357

2662

1358

36264

36994
38254
39724

20664

2074m

2786
29024

27964
29034

20514

20624

3349
34674
36214
37420

1434
33614
34684
36428
3757

31584
33704
34854
36634
37994

3172
33714
35074
3664M
38054

29964
32284
33974
35084
36724
38404

3253
3414k
35174
36734
38914

3254
3434w
35184
36854
39004

32624
34354
3529#
36864
39684

2603

2604

2608

2621

2637

2641

2645

2648

1449

28014
%915'

0084

28134
29164

2834
ggzg:

1450

2743

2783

2821

2874

2899

2912

2936

2963

2977

2990

3064

3082

3096

3203

2899

2912

2936

2963

2977

2990

3064

3082

3096

3203

3236

3256

1534
1598
28834

1552
1753
28904

1589
1817
29034

1942
1930
29164

2215
2044
2924

2205
29334

3247
29474

29528

2967

29814

1216

1235

1384
1382

1239

1242

2850

svC
TIMDLY

o
2024

8
2850

2874

WA TMS
WAITUS
XFER

1844
1964
28134

1319
999
28614

1391
1576
28704

32634
3534

000
O

LCZRLIC.LST/CRF=SVC33/ML,CZRLIC.MAC

RUN-TIME: 149 152 14 SECONDS
RUN-TIME RATIO: 608/317=1.9
CORE USED:
17k
(33 PAGES)

36214

36984
38194
39714

3210

1292
1350

ERRORS DETECTED:

3619

36914
38054
39684

27664
28904

1448

19484

36134

36904
37994
39374

3179

1205
1291

040162

36864
37724
39344

27628
28894

1371

19354

36114

3156

SETPRI
SETVEC

3254
35304

36854
3759
39174

2758
Sggg‘

1369

18214

3606

3140

3041

31724
35184

1368

17634

35864

36814
3757
39064

3122

3030

3086
3508#

1360

35734

36734
3746
39054

SEQ 0172

3104

3004

1211

D 14
PAGE 4=5

3048

2837

. ABS.

3570

36284
37004
ggg%:

22084
28544

15:35

CROSS REFERENCE TABLE == MACRO NAMES

2830
306

READEF

24-MAR-80

32854
35434

33394
35674

33494
36428

33714
3664K

3414
36734

34354
36864

34434
36914

3454
36994

3226

34594
37414

3269

30234

34678
38404

3292

30724

34854