Digital PDFs

AH-T748A-MC

April 1984

130 pages

Original

50MB

view download

OCR Version

59MB

view download

Document:	CNRLIA0 11-21,RL01-02 RL01-02 DRIVE TEST 1 APR 1984 gray
Order Number:	AH-T748A-MC
Revision:	000
Pages:	130
Original Filename:	CNRLIA0__11-21,RL01-02__RL01-02_DRIVE_TEST_1__AH-T748A-MC__APR_1984_gray.pdf

OCR Text

AA-T798A-AC
FIGHE

EEnaad
ade

ol T

CNRLTA RLOL1/2 DRIVE

000000

TEST

000001

MACRO M1200

19- DEC 83 09:36

PAGE 2

.TITLE CNRLIA RLO1/2 DRIVE TEST 1

PART1==1

.ENABLE ABS
MC
.LIST
,
TOC
MD,ME,CND
LNLIST
.REM @

IDENTIFICATION

PRODUCT CODE:

AC-T747A-MC

PRODUCT NAME:

CNRLIAO RLO1/2 DRIVE TEST

PRODUCT DATE:

DECEMBER 19, 1983

MAINTAINER:

ISS DIAGNOSTIC SERVICES

AUTHOR :

JAMES S. DOUCETTE

THE INFORMATION IN THIS

ODOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE AND SHOULD NOT BE CUNSTRUED 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

FOR USE
IN SUCH
WRITING BY DIGITAL.

SYSTEM,

NOTICE)

ONLY

EXCEPT AS MAY OTHERWISE BE PROVIDED IN

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
Bfltcfimfl.lTY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
COPYRIGHT (C) 1983, DIGITAL EQUIPMENT CORPORATION

CNRLIA RLOL/¢ DRIVE TEST 1

54
56

MACRO M1200

19-DEC-83 09:36

PAGF 3

>EQ

REVISION HISTORY

oV
:3

CHANGES MADE TO CZRLIDO IN PRODUCING CNRLIAO FOR THE SBC-11/21+ (FALCON-PLUS),
DEC. 19, 1983. CHANGES ARE IDENTIFIED BY ";JSD REV A",

ssg

................

63
64
65
60
67
:g

. CHANGED THE GENERAL OPERATING PRIORITY OF THE PROGRAM FROM LEVEL 7 TO
LEVEL6 TO ALLOW THE "BREAK” KEY TO INVOKE ODT. (THE TRAP
HANDLER AND DEVICE INTERRUPT SERVICE ROUTINES STILL RUN BRIEFLY
AT LEVEL 7). NOTE THAT HARD ERRORS MAY BE REPORTED BY THE
DIAGNOSTIC IF THE USER EXECUTES A "BREAK-AND-PROCEED” SEQUENCE.
HOWEVER, THE ERRORS WILL ONLY PERSIST FOR THE CURRENT PASS.

2. SET VECTOR 140 WITH THE ADDRESS OF ODT IN ROM (170000).

72
73
74
75
76
77
78
;g

3. RE-DEFINED THE “MAITUS” AND “WAITMS” DELAY MACROS. ALSO CHANGED ALL
*TIMDLY” MACRO CALLS TO "WAITUS“, AND REMOVED ALL. REFERENCES TO
THE USE OF CLOCK INTERRUPTS FOR DELAY TIMING. UNDER
FALCON-PLUS, CLOCK OPERATION IS NOT GUARANTEED. CLOCK
INTERRUPTS MAY OR MAY NOT BE HARD-ENABLED, AND EVEN IF THEY
WERE, THE INTERRUPT RATE COULD BE S50, 60, OR 800 HERTZ.
FURTHERMORE, THE DRS “CLOCK” MACROS RETURN MISLEADING
INFORMATION (UNDER FALCON-PLUS).

81
82
83
84

4. CHANGED THE WAIT TIME FOR COMPLETION OF A SEEX COMMAND (ROUTINE
XSEEK) FROM THE AUTHOR'S ASSUMED 100 USEC (ACTUAL TIME MAS
LONGER BECAUSE THE ORIGINAL VERSION OF THE “WAITUS” MACRO WAS

GROSSLY INACCURATE) TO 800 USEC.

000,

CNRLIA RLOL1/2 DRIVE

TEST 1

MACRO M1200

19-DEC-83 09:36

a7
a8
89
90
9.

PAGE 4

SEQ 0002

TABLE OF CONTENTS

92
93
74

95
9%
97
98

100
101
102
103

1.0
1.1
1.1.3
1.1.2
1.2
1.2.1
1.2.2

1.3
1.‘

1.5

b e et e ek B

R et e B pea b

NV BWN

2.0
2'1
2.1.1

120

2.1.2
2.2
2.3
2.3.1
2.5.2
2.4
2.5
2.6

3.0
5.1
35.1.1
3.1.2
5.1.3
3.2

GENERAL INFORMATION
PROGRAM ABSTRACT

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

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC
THE FIVE STEPS OF EXECUTION
SAMPLE RUN- THROUGH
CHAIN MODE OPERATION
DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY
COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDUWARE PARAMETERS
SOF TWARE PARAMETERS

SPECIFIC OPERATION MESSAGES

SPECIFIC RESULT MESSAGES
OTHER MESSAGES
ERROR HALTS

4.0
‘.1

PERFORMANCE AND PROGRESS REPORTS

5.0

DEVICE INFORMATION TABLES

6.0

TEST SUMMARIES

4.2

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE S

SEQ 0004

1.0

GENERAL INFORMATION

1.1

PROGRAM ABSTRACT

1.1.1

STRUCTURE OF PROGRAM

THIS DIAGNOSTIC IS COMPATIBLE WITH BOTH CNDP+ AND ACT.

CAN

RUN STANDALONE UNDER CNDP+, AND CAN BE CHAINED UNDER CNDP., ACT AND
APT IN ACT MODE (SEE 2.2 “CHAIN MODE OPERATION” FOR DETAILS OF CHA-

INING

PROCEDURE).

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.
(IN THIS

DOCUMENT,

“CNDP+” REFERS

TO THE

FALCON-SPECIFIC

XXDP+

SYSTEM).

WHEN THIS DIAGNOSTIC IS STARTED, CONTROL GOES FIRST TO THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN “HARD CORE"” QUESTIONS ABOUT THE
ENVIRONMENT. THEN IT WILL ENTER COMMAND MODE, INDICATED BY A
PROMPT CHARACTER (DR>).

AT COMMAND MODE THE OPERATOR MAY ENTER ANY

OF SEVERAL COMMANDS AS DESCRIBED IN 2.0 “OPERATING INSTRUCTIONS”.
THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWER 8K

MEMORY.

THE

DIAGNOSTIC SUPERVISOR CODING OCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE CNDP+ MONITOR WHICH RESIDES IN THE UPPERMOST
1.5K OF MEMORY SPACE.

1.1.2

DIAGNOSTIC INFORMATION

THIS PROGRAM TESTS AND EXERCISES

RLO1/02

DISK

DRIVES

RL11/RLV11

CONTROLLERS (4 DRIVES
PER CONTROLLER). THE ENTIRE PROGRAM
IS RUN
THE PROGRAM
ON THE FIRST DRIVE BEFORE STARTING ON THE SECOND.
STARTS BY TESTING THE SIMPLEST FUNCTIONS FIRST USING THE LOGIC
TESTED IN EARLIER TESTS TO TEST MORE COMPLEX FUNCTIONS. THIS PROGRAM TESTS THE RLO1/02 INTERFACE AND BASIC DRIVE LOGIC. GET STATUS
WITH RESET, GET STATUS, SEEX, 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 AMND
WRITE LOCK STATUS. THE DRIVE MUST BE LOADED AND UNLOADED TO TEST
ALL THE CONDITIONS OF HEADS OUT, BRUSH HOME, AND DRIVE STATES. THE
PROGRAM CAN BE RUN IN AUTOMATIC MODE IN WHICH CASE ALL TESTS REQUIRING MANUAL INTERVENTION ARE BYPASSED. WITHOUT MANUAL INTERVENTION, THE TEST REQUIRES APPROXIMATELY 80 SECONDS TO RUN.

F1
CNRLIA RLO1/2 DRIVE TEST 1

187
188
189
190

MACRO M1200

19-DEC-83 09:36

PAGF &

SEG 0005

SYSTEM REQUIREMENTS

1.2

191
192

193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208

209

210
211
212
213
214
215
216
217
218
219
220
221
222

¢ SBC-11/21+ PROCESSOR, 28KW MEMORY, JUMPERED FOR MEMORY MAP 0
« CONSOLE DEVICE (LA30,LA36,VTS0,ETC.)
¢ 1 OR 2 RL11/RLV11 CONTROLLER(S) WITH:

1 - 8 RLO1 DRIVES WITH RLO1K CARTRIDGES CONTAINING

'BAD

1 - 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING

'BAD

SECTOR FILE'
SECTOR FILE'

s CNDP+ (XXDP+) LOAD DEVICE (RLO2, RX02, ETC.)
¢ LINE PRINTER (OPTIONAL)

1.2.2

SOF TWARE REQUIREMENTS

CNRLIAO RLO1/02 DRIVE TEST 1

1.3

RELATED DOCUMENTS AND STANDARDS
RLO1/702 DISK SUBSYSTEM USER'S GUIDE (EK-RLO12-UG-002)
XXDP+/USER’'S MANUAL

1.4

DIAGNOSTIC HMIERARCHY PREREQUISITES
THE RLO1/702 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS
:

CVRLA
CNRLG
CNRLH
1.5

RUN

THE

FOLLOWING

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

ASSUMPTIONS

THE HMARDWARE OTHER THAN THE RLO1/02 SUBSYSTEM IS ASSUMED TO WORK
PROPERLY.
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC., DO

CNRLIA RLO1/2 DRIVE TEST 1

240
241
242
243
244
245
246

247

248
249

250
251
252
253
254
255
256
257
258
259
260
261
262
263
265

MACRO M1200

19- DEC-83 09:36

PAGE

Gl
7

SEQ 0006

NOT FUNCTION PROPERLY.

OPERATING INSTRUCTIONS

2.0

2.1

THE FIVE STEPS OF EXECUTION

2.1. 1

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

USING THE APPROPRIATE BOOTSTRAP PROGRAM. THE MONITOR WILL PRINT A
MESSAGE IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
e"a‘tm"m. AN EXAMPLE OF TMPIS MESSAGE IS GIVEN BELOW FOR THE CNDP.
:

CNMDYAO CNDP+ DY MONITOR
BOOTED VIA UNIT O
ENTER DATE (DD-MMM-YY):

AFTER THE DATE HAS BEEN ACCEPTED BY THE MONITOR THE RESTART ADDRESS
M’E MONITOR IS PRINTED. THEN THE FOLLOWING TWO QUESTIONS ARE
s

SOHZ 7N
N
LSI?

THE DEFAULTS ARE BOTH “NO“.
TYPE “R” AND THE PROGRAM NAME
THE PROGRAM.
DO NOT TYPE THE EXTENSION.

RUN

WHEN THIS DIAGNOSTIC IS STARTED THE FOLLOWING STEPS WILL OCCUR:

LY LR

s STEP
1 »
[T

YT Y YT LY

THE DIAGNOSTIC WILL ISSUE THE PROMPT “DR>“, FROM THIS POINT UNTIL
THE TIME WHEN YOU RESTART CNDP+, YOU WILL BE TALKING TO THE DIAGNOSTIC, NOT CNDP+. WE WILL REFER TO THE PRESENCE OF THIS PROMPT AS

BEING IN DIAGNOSTIC COMMAND MODE, AS OPPOSED TO CNDP+ COMMAND MODE.

IS NOT THE
IN RESISSUED
SAME AS THE CNDP. “START” COMMAND, WHICH YOU ALREADY

AT THIS POINT YOU WILL ENTER A “START” COMMAND.
PONSE TO THE CNDP+ DOT PROMPT,

NUMBER

SWITCHES

AND

FLAGS

THIS

COMMAND CAN TAKE A
(ALL OPTIONAL) AND THE DETAILS OF

THIS “START”

H1
CNRLIA RLO1/2 DRIVE

92
293

294
295
296
297

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 8

SEQ 0007

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 SOME
THING LIKE THIS:

STA/PASS: 1/FLAGS : HOE
THINGS TO NOTE HERE:

ONLY THE FIRST THREE CHARACTERS OF THIS OR ANY COMMAND
AT THE “DR>" LEVEL NEED TO BE TYPED.

THE "PASS” SWITCH SPECIFIES HOM MANY

SIRE.

PASSES

YOU

DE-

A PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC

AGAINST ALL UNITS BEING TESTED (THIS WILL BE EXPLAINED
SHORTLY). ONE PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE "FLAGS” SWITCH MAY SPECIFY

ANY

FLAGS, BUT THE MAIN USEFUL ONES ARE:

NUMBER

PNT
LOE

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR

IER

INHIBIT ERROR PRINTOUT

HOE

HALT ON ERROR

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE

SEE WHY SHORTLY).

(WE'LL

e STEP
2 »
sssssssess

WHEN YOU HAVE TYPED IN A “START” COMMAND,

BACK

WITH

THE

THE CIAGNOSTIC WILL

COME

QUESTION “@ UNITS?" TO WHMICH 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 OIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIIECTEDAYAOIQ(MI THEN THE NUMBER OF UNITS WOWLD BE THE

NUMBER OF

T0 BE TESTED. WMEREAS IF THE DIAGNOSTIC
WAS DI-

‘CMATT’EDI!KW THEN THE NUMBER
OF UNITS WOULD BE
OF A DIAGNOSTIC CAN
THE NUMBER OF CONTROLLERS. fl‘! TARGET DEVICE
ALMAYS BE DETERMINED BY INSPECTING THE "HEADER” STATEMENT NEAR THE
THIS "HEADER"
OF DS
OF THE OPERAN
CODE. ONE
OF THME SOURCE
BEGINNING
STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.

CNRLIA RLO1/2 DRIVE TEST 1

342
343
344
345
346
347
348
349

350

MACRO M1200

19-DEC-83 09:36

PAGE 9

SEQ U008

S088b08000

¢ STEP 3 »
YT YT YT

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE OIAGNOSTIC WILL ASK YOU THE “"HARDWARE QUESTIONS”.
THE ANSWERS TO THESE

QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED “"HARDWARE
?é;%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.
THIS

REPRESENTS

NEW

PHILOSOPHY

1IN

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.
shse00bab
&

4 »
s STEP

s86040000s

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS

(SEC

2.5)

FOR

ALL THE UNITS, YOU WILL BE ASKED “CHANGE SW?” IF YOU WANT TO BE
ASKED THE SOFTWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS
PROGRAM,

TYPE

“Y”,

IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE

QUESTIONS, TYPE "N”. IF YOU TYPE “Y* YOU WILL BE ASKED THE
SOFTWARE QUESTIONS (SEC 2.6), AND THE ANSWERS WILL BE PUT INTO THE
SOFTWARE P-TABLE IN T'S PROGRAM.
TME SERIES OF QUESTIONS WILL BE
ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.
S840840000

5 »
s STEP

FYYYYYYYYYS

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL

BEGIN

TO EXECUTE THE HARDWARE TEST CODE.

THINGS
THERE ARE SEVERAL

THAT CAN MAPPEN
NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS

EN-

COUNTERED AND ALSO ON WHMAT SWITCH VALUES YOU SELECTED ON THE START
COMMAND.

CONSIDER THE POSSIBILITIES:

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

IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS
p&gns. DEPENDING ON THE SETTINGS OF THE HOE AND LOE

CNRLIA RLML/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE

J1
10

HOE SET:

SEQ 0009

THE ERROR WILL BE REPORTED

THE

AND THE DIAGNOSTIC WILL RETURN TO COMMAND MODE.

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

CONSOLE
ON

THE

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED
ON THE CONSOLE AND NORMAL EXECUTION WILL RESUME AS IF
NO ERROR HAD OCCURRED.
2.1.2

SAMPLE RUN-THROUGH
.................

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

IF AN ERROR IS ENCOUNTERED, THE ERROR WILL BE REPORTED
AND

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

THE

AT THIS
PROGRAM

ISSUE ANOTHER "STMT' COMMAND (THUS GOING THRU ALL
STEPS 1, 2, 3,
4, AND 5 AGAIN).

ISSUE A "RESTART” COMMAND (SAME AS START COMMAND
CEPT THAT THE HARDWARE QUESTIONS ARE NOT ASKED).

EX-

ISSUE A "CONTINUE" COMMAND (EXECUTION WILL RESUME AT
THE BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST
DIAGNOSTICS CONSIST OF A NUMBER OF THESE) THAT IT WAS
IN WHEN THE ERROR MALT OCCURED.
NO QUESTIONS ASKED.

ISSUE A "PROCEED” COMMAND: EXECUTION WILL RESUME AT
THE INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A
SPECIAL COMMAND AND CAN BE ISSUED ONLY AT A HALT

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY:
PRO/FLAGS
: IER :LOE : HOE=0
THIS WILL DO THE FOLLOWING:

TURN ON THE IER (INWIBIT ERROR PRINTOUT) FLAG

K1
CNRLIA RLO1/2 DRIVE TEST 1

445

446
447
448
449

450
451
452
453
454
455
456
457
458
459

MACRO M1200

19-DEC-83 09:36

PAGE 11

SEQ 0010

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR.
THUS YOU CAN
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 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:
1.

START

RESTART

CONTINUE

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

YOU WOULD TYPE

IER=0:LOE=0
:HOE :LAGS
CON/F

THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME EX-

ECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO 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

HAVE

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE

HARDWARE QUESTIONS AGAIN.

THE FULL PRINT-OQUT FROM THE ABOVE DIALOGUE
(0=OPERATOR, D=DIAGNOSTIC):

MIGHT

LOOK

THIS

CNRLI TESTS THE RLO1-02 INTERFACE

AND BASIC DRIVE LOGIC
UNIT IS RLO1, RLO2
DR>STA/PASS: 1/FLAGS : HOE

? Y
GE
HW (L)
CHAN
@ UNITS
(D) 72 2

UNIT O
RL11 (L) Y ?

8US ADDRESS (0) 174400 ?
VECTOR (0) 160 ?

DRIVE (0) 0 ?
DRIVE TYPE = RLO1 (L) Y ?
BR LEVEL (0) S ?
UNIT 1
RL11 (L) Y ?

BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 72 1
DRIVE TYPE = RLO1 (L) ? N
BR LEVEL (0) 5 7
7 N
GE
SW (L)
CHAN

EXECUTE DRIVE SELECT TESTS (L
IGNMENT
DO MANUAL INTERVENTION TEST

?
m ERROR LIMIT (D) 20

CNRLI HRD ERR 00004 TST 003 SUB 002 PC:

o000 © 0OOCOO

CNRLI-A-0

(N=RLO2)

DIAG. RUN-TIME SERVICES REV. D APR-79

0000000 ©O O .OO 00000
o
O
O
oooooo

R NRLIAO
DRS LOADED

SEQ 0011

0000000

501
502
503

PAGE

©O

498
499

19-DEC-83 09:36

o000

491
492
493
494
495
496
497

MACRO M1200

CNRLIA RLO1/2 DRIVE TEST 1

ERR WLT

DR>PRO/FLAGS:I'

:LOE:HOE=0

0,0

$6004468840044850844400008080400888000080480000080

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.
YOU CAN SCOPE
THE ERROR UNTIL YOU HAVE LOCATED IT, THEN tC OUT

C048804444880000840800504404808808880000000000404

19- DEC-83 09:36

548
549
550

551
552
553
554
555
556
557
558
359
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
375
576
577
578
579

2.2

PAGE 13

SEQ 0012

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

D.0

CHANGE SW (L) 7 N

D.0

(’:::lll EOP 1

DR>RESTART/PASS:1

D.0

CHANGE SW (L) 2 N

D.0

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 T0

PARAMETERIZE THE DIAGNOSTIC PRIOR TO ITS EXECUTION. SETUP PROMPTS
THE OPERATOR WITH THE HARDWARE AND SOFTWARE QUESTIONS.
THE RES-

PONSE 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 CNDP+ MONITOR USES AN ASCII FILE (KNOWN AS A

CHAIN FILE) LISTING THE PROGRAMS TO BE RUN AND THE NUMBER OF PASSES
EACH PROGRAM SHOULD RUN.

THIS FILE MUST BE ON THE SYSTEM DEVICE.

A CHAIN FILE MAY BE GENERATED BY USE OF THE XTECO TEXT EDITOR.
THIS FILE MUST HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN

ANY OF THE COMMANDS SUPPORTED
BY THE CNDP+ MONITOR.
THE COMMANDS
PE ASCII FILE ARE EXECUTED IN THE ORDER IN WHICH THEY ARE ENTO EXECUTE A CHAIN FILE THE USER TYPES:
C FILNAM <CR> OR
C FILNAM/QV <CR>

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN THE CHAIN FILE IS
USED BY THE CNDP+ MONITOR TO DETERMINE THE NUMBER OF PASSES TO EXECUTE EACH PROGRAM. IN THE SECOND CASE THE PROGRAM COUNT IS NOT

E——

MACRO M1200

CNRLIA RLOL/2 DRIVE TEST 1

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19- DEC-83 09:36

" USED

PAGE 14

SEQ 0013

AND EACH PROGRAM IS EXECUTED ONLY ONCE.

THE /QV _SWITCH PRO-

VIDES A SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.
WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE

HARDWARE/SOFTWARE

SWITCH

REGISTERS SHOULD BE SET TO 000000.
THE CNDP+ 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 CNDP+ 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 TO TERMINATE CHAIN MODE BEFORE ITS NORMAL TERMINATION HE MAY DO SO BY TYPING A CONTROL/C.
HOWEVER, THE MONITOR

WILL NOT ABORT THE CHAIN MODE UNTIL
FROM THE PROGRAM CURRENTLY RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3. 1

TABLE OF COMMAND VALIDITY

RECEIVES

PROGRAM

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE,

CONTROL

AND

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

OPERATOR ENTERED ‘'RUN DIAG'

DIAGNOSTIC HAS FINISHED ALL

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

ITS REQUESTED PASSES

DIF-

B‘)

CNRLIA RLOL1/2 DRIVE TEST 1

652
653
654
655
656

657
658
659

MACRO M1200

19- DEC-83 09:36

PAGF

FLAGS

ZFLAGS
EXIT

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

670

671
672
673

674

675
676

677
678

679

680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702

CONTINUE
DISPLAY
FLAGS

663
664
665
666
668
669

START
RESTART

PROCEED
PRINT

660
661
662

667

SEQ 0014

ZFLAGS
EXIT

COMMAND SYNTAX

2.3. 2

0808800880088 08000808008800804008004800880880000888088080800040000000

STACRT)/TESTS: TEST-LIST/PASS:PASS -CNT/FLAGS : FLAG-LIST/EOP : EOP - INCR
008808080880 800080080648000480088800008080088028040008408080008080000000

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

THE

MESSAGE “# UNITS?* IS PRINTED.

SWITCHES

THE START COMMAND

MAY BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE

OF THME FOLLOWING:

A) OPERATOR TYPED “RUN DIAGNOSTIC* B) DIAGNOSTIC

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH MOE

FLAG

SET

AFTER THE OPERATOR RESPONDS TO "¢
OPERATOR ENTERED CONTROL/C.
UNITS?", THE WARDWARE DIALOGUE IS INITIATED. WHEN IT IS COMPLETED,
THE QUESTIONS “CHANGE SW?” IS ISSUED, AND THE ANSWERS, IF GIVEN,
BECOME THE NEM DEFAULTS. THEREFORE IT IS NECESSARY TO RELOAD THE
PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAWLTS.
THE SWITCH ARGUMENTS ARE AS FOLLOMS:

“TEST-LIST” IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.)

RANGES

FROM

THEY MAY BE

OF DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE ExTHE NUMBERS RANGE
ECUTED. THE NUMBERS ARE SEPARATED BY COLONS.
1

70 THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.

SPECTFIED IN ANY ORDER. TESTS WILL BE EXECUTED IN NUMERICAL ORDER
siuws.;bes% THE ORDER OF SPECIFICATION. THE DEFAWLT IS TO EXE“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 DEFAWT IS
“FLAG-LIST” IS A SEQUENCE OF ELEMENTS
NON-ENDING TEST EXECUTION.
OF THE FORM <FLAG>, <FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS,
WHERE <FLAG> MAS ONE OF THE FOLLOWING VALUES:

C”_;

CNRLIA RLO1/¢ DRIVE TEST 1

704
705
706
707
708
709
710
711
712

713

MACRO M1200

19-DEC-83 09:36

PAGE 16

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

WHEN

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

IER INMIBIT ERROR REPORTING

714

IBE INMIBIT BASIC ERROR REPORTS

716
717
718
719

IXE INMIBIT EXTENDED ERROR REPORTS

715

SEQ 001%

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 INMIBIT STATISTICAL REPORTS

IOV INMIBIT 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

CLEARED.

A FLAG NOT SPECIFIED IS CLEARED.

NOT GIVEN ALL FLAGS ARE CLEARED.

EQUATED

ARE

IF THE FLAGS SWITCH IS

“EO0P-INCR” IS A DECIMAL NUMBER INDICATING HOM OFTEN

(IN

TERMS

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

THE

0000000000000000800000008000800000000000800000000080000008008800000000

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

0000000600005 00800000000000000000000000000008000800000880880000000000

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES
HOMEVER, NEW “P-TABLES” ARE NOT BUILT. INSTEAD, THE
SPECIFIED.

ONES IN CORE ARE USED.

THE QUESTION “CHANGE SW?“ IS ASKED AND THE ANSWERS GIVEN BECOME THE

CNRLIA RLOL/2 DRIVE

756
787
758
759
760
761

TEST

MACRO M1200

19-DEC-83 79:36

PAGE

)

SEQ 0016

NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
E'&Yfi:&?/cvll A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C)
THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

762
763

764
765
766
767
768

"UNIT-LIST” IS A

SEQUENCE

LOGICAL

UNIT

NUMBERS

RANGING FROM 1 THRU N (N = NUMBER OF UNITS BEING TEST-

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

769

770
771
772
773
774
775
776
777

DEFAULTS

TO “ALL THAT HAVE NOT BEEN DROPPED BY OPERA-

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

28884888880 088802888804008804480488888008880840

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

000000600000084800000004080080806008008888048

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

PLACE.

CONTROL/C

SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.

PARAMETERS MAY NOT BE CHANGED.

TOOK

HARDWARE

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

797

DEFAULT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

THE PREVIOUS START OR RESTART

FROM

02800004006846046840005080800800

PRO(CEED )/FLAGS: <FLAG-LIST>

0820080000580 08028008808080

COMMAND MODE MUST MAVE BEEN ENTERED VIA A HALT ON ERROR.

THE

EF-

MAY

FECT OF THE COMMAND IS 7O BEGIN EXECUTION AT THE LOCATION FOLLOWING

T&’t ERROR CALL.

NEITHER MARDWARE NOR SOF TWARE

PARAMETERS

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

1.
ERE

PAGE

Ee
18

SEQ 0017

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

EXIT
ssse

RETURN YO CNDP. PROMPT MODE.
6880800844600 85000800000

DRO(P)/UNITS:UNIT-LIST
0648880480008 0000800000

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY

OR UNTIL A START COMMAND IS GIVEN.

ARE

ADDED

A DROP CANNOT BE FOLLOWED

THERE IS ALSO A "DROP” MACRO INTERNAL TO THE DIAGNOSTIC, WHICH
OF A PROGRAM
THE DURATION
GIVES THE FACILITY OF AUTO-DROPPING.
DROP, MOMEVER, IS ONLY UNTIL THE NEXT START OR RESTART.
008000000400000000

ADD/UNITS:UNIT-LIST

bt bdhisbbdberad
oS

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN

DROPPED

THE DROP COMMAND) TO THE TEST SEQUENCE.

BE FOLLOWED BY A PROCEED.

PREVIOUSLY

AN ADD CANNOT

sb0000e

PRI(NT)
sssssse

ALL STATISTICS TABLES ACCUMULATED BY THE

DIAGNOSTIC

ARE

THE ISR (INMIBIT STATISTICAL REPORTING) FLAG IS CLEARED.

PRINTED.

CRBLURELALILREREEOEIAIBELLRS

DISCPLAY)/UNITS: <UNIT-LIST>

$0680880808008080000800004800

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

FLA(GS)

sssssse

133143444

CNRLIA RLO1/2 DRIVE TEST 1

869

MACRO M1200

19-DEC-83 09:36

PAGE

Fe
19

SEQ 0018

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.
S8ttt

ZFL(AGS)

ALL FLAGS ARE CLEARED.

2.4

EXTCNDED P-TABLE DIALOGUE

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE

FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY.

REVEALED

THE

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 THE SAME FORMAT, AND THERE IS A ONE-TO-ONE_ CORRESPONDENCE

BETMEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE
P-TABLE FORMAT.
IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING

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 m wxcu DATA, THIS SAMPLE RANGE TRAN-

SLATES TO THE STRING

INCREMENT OF 1). IF THE VALUES
MMS%2)"‘ snfiz&na (AN
TRANSLATES
TO THE STRING 6,8,10 (AN

NOW LET US SEE MOW WE COULD USE THESE CAPABILITIES TO CONSTRUCT A
SET OF P-TABLES.
ASSUME THAT WE MAVE 8 RL UNITS, AND THAT THERE
ARE FIVE (5) HARDMWARE PARAMETERS FOR EACH (S5 SLOTS IN THE
S HARDMARE QUESTIONS IN THE DIALOGUE).

P-TABLE,

FOLLOWING IS THE DIALOGUE FOR THIS 8 RLOX DRIVE SYSTEM.
THIS SYSTEM HWAS TWO (2) RL11 TYPE CONTROLLERS ALL TO BE SET AT "BR LEVEL"

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

(ON THE SECOND CONTROLLER):
UNITS (D) 7 8

UNIT ©
RL11 (L) Y ?

BUS ADDDRESS (0) 174400 ?

VECTOR (0) 160 7
DRIVE (0) 0 ? 0-3
ORIVE TYPE = RLOL (L) Y ?
BR LEVEL (0) 5 ?

RLO2'S

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19- DEC-83 09:36

912

PAGE 20

SEQ 0019

UNIT 4
RL11 (L) Y ?

913
914
915

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164

916
917

DRIVE (0) 0 ? O-3
DRIVE TYPE = RLOL1 (L) Y 2 N
BR LEVEL (0) 5 ?

918
9219
920
921
922

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

06). 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 THRU THE P-TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT

THE

SECOND CONTROLLER),

TYPE CONTROLLER.

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
THE
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION @3.
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

QUESTION

@5,

THE LAST QUESTION WAS DEFAULTED USING THE “BR LEVEL”

FROM THE FIRST PASS.

2.5

THE FOLLOWING QUESTIONS WILL BE ASKED

START

COMMAND.

THE

VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE
THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE.

RL11 (L) Y?

ANSWER YESC(Y) IF YOU HAVE AN RL11 CONTROLLER, NO(N) IF YOU HAVE
RLV11 CONTROLLER.

BUS ADDRESS (0) 1744007

ANSMER WITH THE BUS ADDRESS OF THE CONTROLLER.
VECTOR (0) 1607

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER.
DRIVE (0) 07

He
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19- DEC-83 09:36

9%3

SEQ 0020

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER

9%4

9%5
966
9%7
968
969

970
971
972
973
974
975
976
977
978

PAGE 21

DRIVE TYPE = RLO1 (L) ?
ANSWER NO (N) IF DRIVE IS AN RLO2
BR LEVEL (0) 57

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER.
SOF TWARE PARAMETERS

2.6

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART,

CONTINUE.

THEY

ALLOW

FLEXIBILITY IN THE WAY THE PROGRAM BE
-

HAVES.
THE SOF TWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE
WAY IT RUNS.
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART,

OR CONTINUE BY ANSWERING (Y)ES TO THE FOLLOWING QUESTION:
CHANGE S.MW.

A YES ANSWER WILL ASK THE FOLLOWING SOFTWARE

WITH

MARK,

PARAMETER

QUESTIONS,

THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAWLT IS

ON A <CR>.

TAKEN

CONTROL Z (tZ) WILL DEFAULT ALL REMAINING QUESTIONS AND

START THE TEST.

EXECUTE DRIVE SELECT TESTS (N)?

IF “YES” TESTS S AND 6 ARE EXECUTED IN THE FIRST PASS OF THE PROGRAM,
THESE TESTS REQUIRE MANUAL INTERVENTION TO CHANGE ADDRESS
PLUGS AND REQUIRE A FULL COMPLEMENT OF ADDRESS PLUGS (0 - 3).
EXECUTE HEAD ALIGNMENT SUPPORT (N)?

IF “YES", TEST 11 IS EXECUTED IN THE FIRST PASS.
EXECUTE MANUAL INTERVENTION TESTS (N)?

IF “YES”, TESTS 1, 2, 5, AND 4 ARE EXECUTED TO TEST BASIC INTERFACE OPERATIONS, HEAD LOADING, HEAD UNLOADING. AND ALL STATE

CHANGES.

SPECIFY ERROR LIMIT (DECIMAL) (20)?
THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF ERRORS ALLOWED.

THIS LIMIT IS ON A PER DRIVE BASIS IN A SINGLE PASS. IF THE ERROR
LIMIT IS EXCEEDED, THE ORIVE IS DROPPED FROM FURTHER TESTING.

CNRLIA RLO1/2 DRIVE TEST 1

1014
1015
1016
1017
1018
1019
1020
1021
1022

1023

1024

1025
1026
1027
1028

MACRO M1200

19-DEC-83 09:36

3.0

1035

1036
1037
1038
1039
1040
1041
1042
1C43
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065

PAGE 22

SEQ 0021

ERROR INFORMATION

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

ERROR REPORTING

3.1

MOST ERROR REPORTS HAVE THE FOLLOWING FORMAT.
(1)
(2)

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

(3)
(4)
(S)

(ADDRESS)
TEST DESCRIPTION
OPERATION:
RESUWT:

(6)

(7)

(8)
(9)

(10)

ERR PC

(ADDRESS)
(ADDRESS)

1029

1030
1031
1032
1033
1034

ADDRESS OF UNIT UNDER TEST

OP INIT
OP DONE

(11)
(12)

RLCS

RLDA

RLBA

RLMP

cyL

DRIVE STATUS

WORD NUM IS (XXXXXX) SB CYYYYYY)
TOTAL COMPARE ERRS: (ZZZ) OF (128)

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

LINE 1 IS THE ERROR HEADER AND IS PROVIDED BY THE SUPERVISOR. THE PROGRAM
égt IDENTIFIED BY NAME WITH THE NUMBER OF TEST AND SUB TEST PRESENTLY BEING
THE SUBTEST NUMBER IS UNIQUE IN THIS PROGRAM IN THAT IT DOES NOT REFER TO A
PHYSICAL SUBTEST WITMIN 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

OF WMERE IN THE TEST THE ERROR OCCURRED
THE ERROR P.C.

INITIATED.

IS THE PHYSICAL MEMORY LOCATION WHERE THE ERROR REPORT

SINCE

FROM SUBROUTINES,

DESCRIPTIVE

WAS

MANY FUNCTIONS ARE SUBROUTINED, AND ERRORS ARE REPORTED

THE ERROR P.C.

IS NOT SUFFICIENT TO IDENTIFY

THE

LOCA-

IF THE ERROR CALL IS INITIATED

FROM

TION OF THE ERROR CALL AND THE ROUTINE TRACE SEQUENCE IS PROVIDED.

LINE 2 IS THE ROUTINE TRACE SEQUENCE.

CNRLIA RLO1/2 DRIVE TEST 1

1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092

MACRO M1200

19-DEC-83 09:36

WITHIN

THE

PAGE 23

SEQ 0022

TEST (AS OPPOSED TO WITHIN A ROUTINE), THIS PORTION OF THE RE-

PORT IS OMITTED.
IF THE CALL IS INITIATED FROM A ROUTINE (WHICH MAY BE
CALLED BY ANOTHER ROUTINE, WHICH MAY BE CALLED BY ANOTHER ROUTINE, ETC.
SEVERAL LEVELS DEEP) THE ROUTINE TRACE SEQUENCE PROVIDES A TRAIL TO THE ACTUAL LOCATION WITHIN THE TEST THAT CALLED THE FIRST ROUTINE.
ENTRY LISTED IS THE LOCATION WHERE THE FIRST ROUTINE WAS CALLED.

THE FIRST

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

THE

LINE 4 IDENTIFIES THE ACTUAL HARDMARE 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 40
HEADERS” WHEN ALL HEADERS ARE BEING READ FROM A TRACK.

LINE S IDENTIFIES THE ERROR THAT HAS BEEN DETECTED. THE CONTENT OF LINE S
IDENTIFIES WHAT WAS BENG TESTED (SUCH AS DRIVE READY, CONTROLLER ERROR,
DRIVE STATE, ETC.), WMAT IT IS AND WHAT IT SHOWLD BE. LINE 5 MAY BE REPEATED IF MORE THAN ONE TESTED ITEM IS FOUND IN ERROR.

IN ADDITION LINE S WILL REPORT ANY HAROWARE DETECTED ERRORS SUCH AS

OPERA-

TION 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/MCRC

OPI

0
1
0
1

1
0
1
0

1
1
0
0

MESSAGE

HDR NOT FND/HDR CRC/OPI ERROR
HOR CRC ERROR
HOR NOT FND ERROR
DATA CRC ERROR
DATA LATE ERROR

LINE 6 IDENTIFIES THE PHYSICAL ADDRESS OF THE UNIT UNDER TEST.
DRESS IS BY UNIBUS ADDRESS OF THE CONTROLLER AND DRIVE NUMBER.
LINE 7 NAMES THE CONTROLLER REGISTERS (AND CYLINDER AND
ARE APPLICABLE IN THE REPORT) TO BE REPORTED.

HEAD

THIS
WHERE

ADTHESE

%I:Y?flwms THE CONTENTS OF CONTROLLER REGISTERS WHEN THE OPERATION WAS
LINE 9 PROVIDES THE CONTENTS OF THE CONTROLLER REGISTERS WMEN THE ERROR
BEING REPORTED WAS DETECTED. FREQUENTLY THE REGISTER CONTENTS OF OP INIT
AND OP DONE WILL BE DIFFERENT. OP INIT MAY INDICATE A SEEK WAS BEING PERFORMED BUT OP DONE MAY INDICATE THE ERROR WAS DETECTED BY A READ HEADER.
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.

CNRLIA RLO1/2 DRIVE

1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129

1130
11351
1132
1133

1134
1135
1136
1137
1138
1139

1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150

1151

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 24

LINE 10 IS THE DRIVE STATUS.

SEQ 0023

THIS LINE IS ONLY REPORTED IF THE RLMP REGIS-

TER DOES NOT CONTAIN THE ACTUAL DRIVE STATUS.

LINE 11 AND LINE 12 ARE REPORTED IF THE ERROR WAS DETECTED AS A COMPARE OPERATION, EITHER DATA OR HEADERS.
1IN ADDITION, GOOD AND BAD DATA IS REPORTED FOR ALL READ ERRORS.

3.1.1

SPECIFIC OPERATION MESSAGES

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

STATE OF THE FLAGS IN THE LOCATION TAGGED "OPFLAGS”.
TION MESSAGES ARE GIVEN BELOW.
SEEK

POSSIBLE

THE

FROM (CYL NUM) DIFF (CYL DIFF) SGN (O OR 1) HD (O OR 1)

WHERE

THE

OPERA-

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 OF ERROR WAS DETECTEC IN THE ACTUAL READ OPERATION. THIS ERROR COULD BE HARDWARE DETECTED SUCH AS DATA CRC,
HEADER CRC, HEADER NOT FOUND, ETC., OR A SOFTWARE DETECTED ERROR SUCH AS
DRIVE READY RESET AFTER A READ DATA COMPLETED.
READ DATA WITH DATA COMPARE -

IS AN ERROR THAT WAS DETECTED AS BAD DATA IN THE BUFFER AFTER A READ DATA

OPERATION.
WHEN THIS OPERATION IS REPORTED IT INDICATES THE ACTUAL READ
DATA OPERATION COMPLETED WITH NO DETECTED ERRORS BUT THE DATA WAS WRONG.
READ HEADER READ HEADER FOR 40 HEADERS -

READ HEADER FOR 40 HEADERS WITH HEADER COMPARE -

HAVE THE SAME GENERAL MEANING AS THE READ DATA AND READ DATA WITH DATA COMMESSAGES HAVING THE OPERATION OF READ HEADER OR READ HEADER FOR 40
PARE.
HEADERS ARE THE RESULT OF ERRORS DETECTED IN THE ACTUAL OPERATION WHILE THE
READ HEADER FOR 40 HEADERS WITH MEADER COMPARE INDICATES NO ERROR IN THE
ACTUAL OPERATION BUT THE HEADER DATA ITSELF WAS IN ERROR.
WRITE DATA -.

1169
1170

RESET GET STATUS GET STATUS WITH RESET -

ARE ALL BASIC OPERATIONS.

AS BEFORE, THE ERROR

DETECTION

CAN

EITHER

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

HARDWARE

OR SOFTWARE.

THE REPORT.

LD DRV UNLD DRV

PAGE 25

SEQ 0024

THE RESULT LINE (LINE S5) WILL DEFINE THE REASON FOR

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

ORIVE

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
READ DATA WITH DATA COMPARE
READ DATA
WRITE DATA

READ HEADER

QUALIFIER
FOL O TO CC SEEK
FOL 255 TO CC SEEK
FOL WRITE (NO SEEK)

ADJ. CYL WRITTEN AFTER FWD SK
ADJ. CYL WRITTEN AFTER REV SK
SK FWD, WRT-SK REV, OVERWRT
SK REV, WRT-SK FWD, OVERWRT

THE ABOVE OPERATIONS CAN BE REPORTED WITH ANY OF THE QUALIFIERS.

THE

QUALIFIERS IN THESE TESTS ARE AN ATTEMPT TO MAKE THE REPORT MORE MEANINGFUL
BY PROVIDING INFORMATION ABOUT THE SEQUENCE OF OPERATIONS BEING DONE.
THE QUALIFIERS “FOL O TO CC SEEK” AND "FOL 255 TO CC SEEK” INDICATE THAT
THE SEQUENCE OF OPERATIONS INCLUDED A SEEK OF A GIVEN DIRECTION TO THE CYLINDER WHERE THE TEST IS BEING PERFORMED.
THE “FOL WRITE (NO SEEK)" QUALIFIER MEANS THAT THE OPERATION WAS DONE AFTER
A WRITE WITH NO HEAD MOVEMENT BETWEEN THE WRITE AND READ.
THE QUALIFIER “ADJ CYL WRITTEN AFTER FWD SK” AND “ADJ CYL WRITTEN AFTER REV

SK* WILL BE REPORTED ONLY IN THE ADJACENT CYLINDER INTERFERENCE TEST.
THESE QUALIFIERS ARE USED WHEN THE ERROR OCCURS ON THE CYLINDER UNDER TEST
H"Ag ‘%% THE ODIRECTION THE HEADS WERE MOVED WHEN THE ADJACENT CYLINDER

THE QUALIFIERS “SK FWD, WRT-SK REV, OVERWRT* AND “SK REV, WRT-SK FWD,
OVERWRT* WILL BE REPORTED ONLY IN THE OVERWRITE TEST. THESE QUALIFIERS DEFINE T;ETEDIRECTI(N OF HEAD MOTION BEFORE THE INITIAL WRITE AND THE
THE QUALIFIER “ON BAD SEC FILES" WILL BE REPORTED WITH THE WRITE DATA COMWSE(I.‘;WT:"IL?S‘MM ABORTS THAT COMMAND BECAUSE THE WRITE WOULD BE ON THE

CNRLIA RLOL1/2 DRIVE TEST 1

1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236

1237
1238
1239
1240
1241

1242
1243
1244
1245

1246

1247

1248
1249

1250
1251
1252
1253
1254
1255
1256
1257

MACRO M1200

19-DEC-83 09:36

3.1.2

PAGE 26

SEQ 0025

SPECIFIC RESULT MESSAGES

THE RESULT MESSAGE (LINE S5) IS GENERATED DYNAMICALLY BASED ON
THE
EXPECTED RESULT
OF
THE OPERATION BEING TESTED.
SINCE OPERATIONS
ARE MONITORED DURING EXECUTION THE RESULT
MESSAGE MAY
REPORT
AN
ERROR DETECTED DURING THE OPERATION AS WELL AS THE ERRORS SEEN AT
THE END OF THE OPERATION.
ONLY THE FIRST ERROR SEEN IS REPORTED IN
ALL CASES.

THE GENERAL FORMAT FOR THE RESULT LINE IS:

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

CONT ERR
DRV ERR
NON-EXSTNT MEM
HOR CRC

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

HOR NOT FND

(HEADER NOT FOUND)

HDR NOT FND/HDR CRC/OPI
DRV _ROY

(ALL 3 BITS SET)
(DRIVE READY)

VOL CHK

(VOLUME CHECK)

BRUSH HME
WRT LCK
HDS OUT
DRV SEL ERR
DRV STATE
SPIN TIMEOUT
WRT GAT ERR
SEEK TIMEOUT

(BRUSH HOME)
(WRITE LOCK)
(HEADS OUT)
(DRIVE SELECT ERROR)
(DRIVE STATE)
(SPINDLE TIMEOUT SPD ERROR)
(WRITE GATE ERROR)
(SKTO ERROR)

WRT DAT ERR
0P INCOMPLETE

(WRITE DATA ERROR)
(OPI ERROR)

DATA CRC

DATA LATE

SELECTED HEAD
COVER OPEN

CUR HEAD ERR

HOR/DAT ERR

(CURRENT IN HEAD ERROR)

(HDR CRC OR DATA CRC ERROR
BIT 11 OF CS REGISTER)

HDR NOT FND/DAT LATE

(HDR NOT FOUND OR DATA LATE

cyL

(CYLINDER WHEN REPORTING A

ERROR BIT 12 OF CS REGISTER)
SEEK ERROR)

¥gfllflL£ 2 WILL BE A VALUE THAT DEFINES WHAT

THE

RESULT

ACTUALLY

THIS CAN BE A 1 OR O TO INDICATE A SET OF RESULT CONDITIONS, A
NUMBER O TO 7 TO INDICATE THE DRIVE STATE, OR A NUMBER O TO 377

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 27

SEQ 0026

1277
1278
1279
1280

VARIABLE 3 DEFINES THAT THE VALUE GIVEN IS VARIABLE

1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292

THE ERROR WAS DETECTED IN THE OPERATION BEING PERFORMED.
QUALIFIER IS USED TO REPORT RESULTS SUCH AS:
BRUSH HME IS 1 SB O IN STATE 2
HEADS OUT IS O SB 1 IN STATE 3
IS O SB 1 IN DATA XFER
DRV RDY
SELECTED HEAD IS 1 SB 0 IN CYCLE wP
IS 0 SB 1 IN STATE S
DRV RDY
IS 1 SB O IN SEEK W/0 MOTION
DRV RDY
DRV RDY
IS O SB 1 IN 10MS
DRV RDY
IS O SB 1 IN S00MS
DRV RDY
IS O SB 1 IN SSECONDS

THIS

THESE RESULTS, WHEN SEEN WITH THE OPERATION MESSAGE, WILL

SELF

1281

(OCTAL) TO IDENTIFY A CYLINDER NUMBER.
THE

OPTIONAL

2 SHOUWLD BE.
QUALIFIER IS PROVIDED WHEN IT IS USEFUL TO KNOW WHEN

EXPLANATORY .

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
THIS RESULT CAN BE CAUSED BY THE
IN THE EXPECTED AMOUNT OF TIME.
DRIVE LOSING READY BEFORE STARTING A READ HEADER AND THEREFORE NOT
COMPLETING THE READ HEADER IN 1MS,
“FAIL TO RELOAD HEADS AFTER ERR CLEAR"

THIS IS REPORTED WHEN AN ERROR CAUSES HEADS TO UNLOAD AND AFTER THE
ERROR IS CLEARED THE HEADS DO NOT RELOAD.

“UNKN DRV STATE-NO RDY, NO ERR, HDS OUT"

THIS IS REPORTED WHEN THE PROGRAM CANNOT DETERMINE 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"

B2
CNRLIA RLO1/2 DRIVE TEST 1

1329

MACRO M1200

19-DEC-83 09:36

PAGE 28

SEQ 00z7

13%0
{;g“l’

THIS IS REPORTED IF THE GET STATUS COMMAND DOES NOT COMPLETE
CESSFULLY WHEN THE STATUS IS REQUIRED TO REPORT AN ERROR.

SUC-

{ggz

“OPI SET7-NO DRIVE RESPONSE"

1335

THIS IS REPORTED AS THE RESULT WHEN THE GET STATUS COMMAND IS TIMED

1336
%gg;

OUT (OPI SETS) WMEN THAT COMMAND IS BEING USED IN THE EARLY TESTS
TO CHECK THE DRIVE INTERFACE.

{33

“NO INTERRUPT ON CMND COMPLETE"

1341
{;:g

THIS IS REPORTED WHEN THE COMMAND SUCCESSFULLY
COMTRCA_LER HAS NOT GENERATED AN INTERRUPT,

}35:;

“ERR DID NOT CLEAR"

1346
1347
%33:.’

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.

1350

1351

3 3P4

13%2

1362

1363
1365
1364

1373

1375

137

BUT

THE

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

ALL DRIVE ERRGRS.

“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 SPECIF-

1368
1369
1370

COMPLETES

.
3.1.3

OTHER MESSAGES

QTHER INFORMATION IS REPORTED UNDER VARIOUS

CIRCWISTANCES.

THESE

ALL SEC ASSUMED GOOD.*

1377

“BAD SEC FILES NOT STRD.

1379

THIS MESSAGE IS PRINTED WHEN A PARTICULAR

TEST

REQUIRES

THE

BAD

]

MACRO M1200

19- DEC-83 09:36

®E®
W h)e

s e

SEQ 00¢5

*®
w

PAGE 29

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.

TEST

e
e e

CNRLIA RLOL1/2 DRIVE

“ERROR LIMIT EXCEEDED-UNIT DROPPED"
THIS IS REPORTED (WITH THE UNIT NUMBER) WHEN MORE THAN
THE
SPECIFIED NUMBER OF ERRORS (DEFAULT 20) HAVE OCCURED IN ANY SINGLE PASS.
3.2

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

4.0

THERE ARE NO OTHER HALTS.

THE

SECTION

PERFORMANCE AND PROGRESS REPORTS

4.1

4.2

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS.
5.0

DEVICE INFORMATION TABLES

THE RL11/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)

REGISTERS

FOR

1434
1435
1436
1437
1428

1439

1440
1441
1442
1443
1444
1445
1446

1447
1448
1449
1450
1451
1452

1453

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE

7 - CONTROLLER READY
BIT
- INTERRUPT ENABLE
6
BIT
BIT S - EXTENDED BUS ADDRESS (BIT 17)
BIT 4 - EXTENDED BUS ADDRESS (BIT 16)
BIT 3-1 - FUC!IW CODE
NOP (PDP-11) MAINT (LSI-11)
NOVBWN=-O

CNRLIA RLOL1/2 DRIVE

BIT

- WRITE CHECK

GET DRIVE STATUS
SEEK
READ HEADER
WRITE DATA
READ DATA
READ WITHOUT HMEADER COMPARE

O - DRIVE READY

RLBA - BUS ADDRESS REGISTER (XXxXx2)

1455

BITS 15-1 BUS ADDRESS OF DATA TRANSFER
BIT O SHOWD BE O

1457

RLDA - DISK ADDRESS REGISTER (XXXXX4)

1454

1456

1458

1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484

.....................................

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

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

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

SEQ 0027

CNRLIA RLO1/2 DRIVE TEST

E3
MACRO M1200 19-DEC-83 09:36 PAGE 31

1486
1487
1488
1489

SEQ 0030

BIT O - MUST BE ONE (1)
RLMP

- MULTIPURPOSE REGISTER

1490

1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504

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 1S - WRITE DATA ERROR
CURRENT HEAD ERROR (CHE)
BIT 13 - WRITE LOCK STATUS (MWL)

BIT 12 - SEEK TIME OUT (SKTO)

BIT 11 - SPIN ERROR (SPE)
BIT 10 - WRITE GATE ERROR (WGE)
BIT 9 - VOLUME CHECK (VC)
BIT 8 - DRIVE SELECT ERROR (DSE)

BIT
BIT

7 - DRIVE TYPE IS RLO2 IF SET
6 - SURFACE (O-UPPPER, 1-LOMER)

BIT S - COVER OPEN
BIT 4 - HEADS HOME
BIT 3 - BRUSHES HOME
B8IT 2-0 -STATE BITS

]
Z
®

6.0

TEST 1

ae
aE
.0

~OVN &N

0 - LOAD STATE

BASIC INTERFACE TEST (PART 1)

F3
CNRLIA RLO1/2 DRIVE TEST 1

1538
1529
1540
1541
1542
1543
1544
1545
1546
1547

MACRO M1200

19-DEC-83 09:36

PAGE

SEQ 0031

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

DRIVE IS NOT SELECTING OR AC LOW IS SET

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

COVER

OPEN

BAD COVER SWITCH OR LOGIC
DRIVE COMMAND SHIFT REGISTER
BAD BRUSH HOME SWITCH OR LOGIC

CHECK WRITE LOCK STATUS BIT SET.
IF NOT:
BAD SWITCH OR WRITE LOCK LOGIC
ORIVE COMMAND SHIFT REGISTER
IF NOT:
CHECK STATE FOR 0.
BAD STATE ROM
ODRIVE COMMAND SHIFT REGISTER
IF NOT:
CHECK 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:

TMIS TEST IS EXECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, MANUAL INTERVENTION TESTING IS REQUESTED,

AND IS RUN IN FIRST PASS ONLY.

TEST 2

BASIC INTERFACE TEST (PART 2)

REQUEST OPERATOR TO CLOSE COVER AND RESET WRITE LOCK.

DO GET STATUS LOOP
WAIT 15

RESETS.,

CHECKING IF COVER OPEN OR_WRITE LOCK
SECONDS FOR BOTH TO CHANGE. IF NO CHANGE,

ASK OPERATOR TO TYPE CR IF PROCEDURE WAS FOLLOMED.

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

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

1589

1590

PAGE 33

SEQ 0032

(OR) COVER OPEN SWITCH OR LOGIC

NRIVE COMMAND SHIFT REGISTER

}g:é
{ggz

IF NEITHER CHANGED, REPORT BOTH FAILURES.

1595
1596
1597

NOTE:

1598
1599

{6‘8‘1’

TEST 3

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

HEAD LOADING TEST

}:gg

REQUEST OPERATOR TO PRESS LOAD SWITCH.

1604
1605
{&

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

1608

IF LOAD WAS PRESSED:

1609

1610

{:ig

iz%z
1615
1616

1617
1618
{C‘g

BAD STATE ROM

BAD LOAD SWITCH OR LOGIC

CHECK THAT STATE 1 REMAINS FOR LESS THAN 30 SECONDS.
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

{85

AND CHECK IF SPINUP TIMEOUT ERROR SET.

1623

BAD STATE ROM

1626
{8:

{:g:

1631
{:g
1634
{:g

IF NOT:

BAD TIMEOUT DETECTION LOGIC

CHECK THAT STATE GOES TO 2 OR 3 (WHICH STATE DEPENDS ON WHETHER
THE DRIVE MAS A BRUSH).

IF NOT:

BAD STATE ROM

IF THE DRIVE HAS A BRUSH, CHECK THAT BRUSH HOME IS RESET S5
SECONDS OR LESS AFTER STATE IS 2. IF NOT:
BAD BRUSH HOME SWITCH OR LOGIC
BAD BRUSH MOTOR (AC SERVO)

{:g‘

WAIT 30 SECONDS FOR BRUSH MOME TO SET.

1639

BAD AC SERVO

IF NOT:

H3
CNRLIA RLO1/¢2 DRIVE

TEST

MACRO M1200

19-DEC-83 09:36

1641
1642

1643

1644
1645
1646

1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663

PAGE

SEQ CO33%

BAD SWITCH OR LATCH

CHECK THAT STATE HAS CHANGED TO 3.

IF NOT:

BAD STATE ROM
AFTER STATE IS 3, CHECK HEADS OUT IS SET.

BAD
BAD
BAD
BAD

IF NOT:

SWITCH
SEEK CONTROL ROM
VELOCITY ROM
DC SERVO

CHECK IF DRIVE ERROR IS SET.

IF NOT:

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

IF IT DOESN'T CHANGE:

STATE ROM BAD
SEEK ROM
VEL ROM
GUARD BAND DETECTION

WAIT 1S MS FOR STATE TO CHANGE TO 5.

CHECK VOLUME CHECK IS SET.

IF NOT:

BAD VOLUME CHECK LOGIC

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

IF NOT:

INTEGRATOR OR NULL DE/ECTION 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

CHECK DRIVE IS READY.
DRIVE READY.

MAKE

IF NOT REPORT AND ASK OPERATOR TO

REQUEST OPERATOR TO UNLOAD DRIVE.

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

CNRLIA RLOL1/2 DRIVE

TEST 1

MACRO M1200

PAGE 35

19-DEC-83 09:36

1693

BAD STATE ROM
BAD SWITCH

1694

1695
1696
1697
1698
1699
1700
1701
1702

1703

1704
1705
1706

1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730

1731
1732
1733
1734
1735

1736
1737
1738
1739
1740
1741
1742

SEQ 0034

WAIT 300 MS FOR STATE TO CHANGE TO 7.

IF NO CHANGE:

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

NO BRAKING
BAD AC SERVO

%%FYST OPERATOR TO LOAD

NOTE:

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

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 MSS OF NEXT

SEQUENTIAL

THAT NO ERRORS
REPORTED.
DO
ADDRESSES AND CHECK ‘I’HAT 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 FYECUTED ONLY IF PROGRAM OPERATION MODE 2
IS SELECTED, L..IVE SELECT TESTING IS REQUESTED, AND IS

RUN IN FIRST PASS ONLY,

TEST 6

DRIVE SELECT ERROR TEST

REQUEST OPERATOR INSERT IDENTICAL ADDRESS PLUGS IN TWO

(MUST

IDENTICAL

NUMBER

SPECIFIED EARLIER).

OPERATOR TYPE CARRIAGE RETURN WHEN READY.

DRIVES
REQUEST

CNRLIA RLO172 DRIVE TEST 1

1744
1745
1746
1747
1748
1749
1750
1751
1752

1753
1754
1755

MACRO M1200

19-DEC-83 09:36

PAGE 36

SEQ 0035

PROCEDURE WILL BE TO GET STATUS AND CHECK
FOR DRIVE
SELECT
ERROR.
THEN RESET
THAT DRIVE AND VERIFY THAT DRIVE SELECT
ERROR IS NOT REPORTED AGAIN.
WAIT 1 SECOND, THEN CHANGE DRIVE

SELECT

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

INSTRUCT OPERATOR TO GO THROUGH A LOAD HEADS CYCLE TO

INITIALIZE
THE TEST.

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.
noxgggs
MEADS
ARE LOADED AND ARE TRACKING

READY SET
(POSITION

IF MANUAL INTERVENTION TESTS WERE RUN, CHECK THAT
IF NOT:
SELECTED.

HEAD

DRIVE CYCLE UP DID NOT SELECT HEAD 0O

IF DRIVE READY IS SET, CHECK STATUS MESSAGE
OUT AND BRUSH HOME MUST BE SET. IF NOT:

RECEIVED.

HEADS

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

IF MANUAL INTERVENTION TESTS WERE RUN AND THIS

THE

FIRST

CNRLIA RLO1/2 DRIVE TEST 1

1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806

1807
1808
1809
1810
1811
1812
1813
1814
1815

MACRO M1200

19-DEC-83 09:36

IK3

PAGE 37

SEQ 0036

PASS CHECK THAT VOLUME CHECK AND DRIVE ERROR ARE SET.

CHECK ALL ERROR BITS ARE O.
CHECK STATE IS S.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD

NOTE:

TEST 8

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

INITIAL RESET STATE TEST

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

DRIVE

RESET DETECTION, RESET ERROR, OR VOLUME CHECK FLOP

BAD

DRIVE COMMAND SHIFT REGISTER BAD

HEAD SELECTED BIT SHOULD STILL BE ZERO.

IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
HEAD SELECT SHIFT REGISTER NOT LOADING

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

SEEK

INTERRUPT,

WITH

DIFFERENCE,

GET STATUS.

SIGN

CHECK STATE IS 5.

HEAD

IF NOT:

WAIT

FOR

DIFFERENCE COUNTER PICKING UP BITS

COUNTER CIRCUITRY IS NOT INDICATING O DIFFERENCE

CHECK DRIVE READY IS RESET.

IF NOT:

ENABLE TIMEOUT OR READY LATCH/ONE SHOT BAD

WAIT APPROX 8 MS FOR READY TO SET.
DOESN'T SET AT ALL:

TAKES

LONGER

HEADS MAY HAVE MOVED (INTEGRATOR OR NULL DETECTION)

READY ONE SHOT FAILED

CNRLIA FLO1/2 DRIVE

1848
1849
1850
1851
1852
1853
1854

1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
1874
1875
1876
1877

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE

L3
38

SEQ 0037

CHECK DRIVE ERROR DID NOT SET.

STATUS

AND

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

FOR

REPORT WHICH ERROR.

1IF IT SET, DO GET

VERIFY HEAD SELECT IS ZERO.
TEST 10 SEEK SIGN SWITCH TEST

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.

OPPOSITE

SIGN,

MEAD

REPEAT

TEST 11 HEAD ALIGNMENT SUPPORT ROUTINE

THIS TEST IS EXECUTED WHEN HEAD ALIGNMENT SUPPORT IS REQUESTED,

AND IN THE FIRST PASS ONLY.
$8008048400040080082000800808008040844480048888804008080888800000800

NOTE:

THE NULL DETECTOR AND SEEK TIMEOUT SHOULD BE
GROUNDED ON THOSE DRIVES WHICH LACK THE HEAD
SELECT TEST POINTS. THE TEST WILL NOT SWITCH
HEADS IF THERE IS A DRIVE FAULT.

$8800808800000804088080800400000408080480808008800848080088080480000000

THIS TEST SELECTS THE DRIVE UNDER TEST

AND

LOOPS

GET

STATUS WITH RESET. THE WRITE LOCK BIT IS MONITORED AND WHEN
WRITE LOCK IS RESET HEAD O IS SELECTED AND WHEN WRITE LOCK IS
THIS WILL PERMIT THE HEADS TO BE
SET HEAD 1 IS SELECTED.
HEAD ALIGNMENT PROCEDURE
PRESENT
THE
WITH
KEEPING
IN
ALIGNED

M3
CNRLIA RLO1/2 DRIVE TEST 1

1899
1900
1901
1902
1903
1904

MACRO M1200

19-DEC-83 09:36

PAGE

SEQ 0038

WITHOUT RETURNING TO THE CONSOLE.

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

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

FOR

DIFFERENCE COUNTER IS PICKING UP BITS
ASSOCIATED CIRCUITRY IS BAD

VERIFY DRIVE READY 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 ARE MOVING (INTEGRATOR OR NULL DETECTION)
READY ONE SHOT FAILED
DRIVE CANNOT TRACK WITH THIS HEAD

VERIFY DRIVE ERROR DID NOT SET.

DO GET STATUS, CHECK MEAD SELECT IS CORRECT.

IF NOT:

HEAD SELECT REGISTER BAD
DRIVE COMMAND SHIFT REGISTER BAD

%S%EK WITH O DIFFERENCE,

SIGN

HEAD

REPEAT

ABOVE

TEST 13 READ HEADER TEST (PART 1)

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

DO READ HEADER, WAIT FOR INTERRUPT.

CHECK IF HEADER CRC ERROR SET.
READ/WRITE BOARD BAD
READ DATA LINE BAD

IF SET:

WAIT FOR INTERRUPT

N3
CNRLIA RLO1/2 DRIVE TEST 1

1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966

1967
1968
1969
1970
1971
1972
1973
1974

1975
1976
1977

MACRO M1200

19-DEC-83 09:36

PAGE 40

SEQ 0039

(I::'E%TIF BIT 6 OF WORD 1 IS SAME AS HEAD SELECT BIT IN STATUS.
HEADS ARE SWITCHED (CABLE)
HEAD SELECT LOGIC

IF MANUAL INTERVENTION TESTS WERE RUN AND HEAD ALIGNMENT TESTS
WERE NOT RUN,
CHECK
THAT HEADER WORD O INDICATES HEADS ARE

POSITIONED OVER CYLINDER 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

THE

WAIT

FOR

HEADS ARE MISALIGNED
TEST 14 READ HEADER TEST (PART 2)

SEEK

INTERRUPT.

WITH

DIFFERENCE

WAIT FOR READY.

SIGN

HEAD

%“4,0 CONSECUTIVE READ HEADER, STORE 3 HEADER WORDS AFTER EACH
CHECK ALL HEADERS FOR SEQUENCE AND CONTENT (WORD 2 ALL
BIT 15 WORD 1 AND 3 IS O, HS BIT WORD 1 IS 0).
IF NOT:

ZERO,

BAD READ/WRITE BOARD
BAD PACK

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

TEST 15

REPEAT ABOVE

TEST

DIFFERENCE OF 1 SEEK TEST (PART 1)

DO READ HEADER, WAIT FOR INTERRUPT.
STORE WORD 1 OF HEADER.
DO SEEK WITH DIFFERENCE OF 1, HEAD O. 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.

1IF NOT:

DRIVE COMMAND SHIFT REGISTER BAD
DIFFERENCE REGISTER DROPPED BIT
STATE ROM FAILED

WAIT APPROX S MS.
STATE IS 5.

DO GET STATUS, WAIT FOR

1IF NOT:

INTERRUPT.

CHECK

CNRLIA RLOL/Z DRIVE

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE a1

SEQ 0040

DIFFERENCE REGISTER NOT COUNTING

COUNT PULSE NOT GENERATED (COUNT LOGIC)
SEEK ROM FAILED

FAILURE

IN DC SERVO

NO TACH FEEDBACK

WAIT APPROX S MS LONGER.

TEST DRIVE READY.

IF SET:

FAILURE IN READY LATCH OR INTEGRATOR

WAIT APPROX S MS LONGER.

TEST READY.

IF RESET:

FAILURE IN INTEGRATOR

UNEXPECTED GUARD BAND DETECTED

DO SEEK WITH DIFFERENCE 1, OPPOSITE SIGN, HEAD 0.
TESTS AS ABOVE.

REPEAT

ALL

REPEAT TEST USING HEAD 1.

NOTE:

TEST 16

THIS TEST IS PERFORMED AT THE CYLINDER POSITION FOUND
CHOOSING A
IN THE DORIVE WHEN THE TEST EXECUTES.
SINGLE SURFACE WILL LIMIT TESTING TO THAT SURFACE.
DIFFERENCE OF 1 SEEK TEST (PART 2)

ggg

DO READ HEADER, WAIT FOR INTERRUPT,

2032
2033

DO SEEX WITH DIFFERENCE OF 1, MEAD O. IF CYLINDER OF STORED
HEADER WORD IS NOT “MILIMIT” THEN SIGN BIT 1, ELSE SIGN BIT O

2036
2037
2038

DO READ HMEADER, WAIT FOR INTERRUPT. COMPARE CYLINDER or THIS
HEADER WITH CYLINDER OF STORED MEADER FOR DIFFERENCE
OF ONE.
IF NOT:

ggg;

2039

COUNT LOGIC BAD

ga;

2045

INTEGRATOR FAILED

CHECK THAT HEADS MOVED FORWARD OR
NOT:

2284"‘}

REVERSE

EXPECTED.

SEEX ROM FAILED

2048

DO SEEX WITH DIFFERENCE OF 1, OPPOSITE SIGN, HEAD O.

REPEAT TEST USING HEAD 1.

2053
2054
2055

NOTE:

WAIT FOR INTERRUPT, WAIT FOR DRIVE READY.

2040

2043
2044

STORE WORD 1 OF MHEADER.

ALL TESTS AS ABOVE.

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.

CNRLIA RLOL1/¢2 DRIVE

TEST

MACRO M1200

19-DEC-83 09:36

PAGE

C4
42

e
U

HEADER

2058
2059
2060
2061
2062 002000

002000

.SBTTL

LMCALL

SVC

svC
SVCTST=1
SvCsSuB=1
SVCBGL =1
SVCINS=0
SVCTAG=0

2063

2064
2065
2066

2067
2068
2069
2070
2071
2072

HEADER
. =2000

POINTER BGNSW,BGNSF T,BGNOU
BGNMOD
HEADER

MOHEDR
CNRLI,A,0,1,0,PRIO06
.ASCII /C/
.ASCII /N/
.ASCII /R/
.ASCII /L/
.ASCII 71/
O
.BYTE
O
.BYTE
0
.BYTE
/A/
.ASCII
/0/
.ASCII
0
1
L $HARD
LSSOFT
LMW
L$SW

LSLAST

002106

0
0
LSDISPATCH
PRIO6
0
0

CIREVISION

CIEDIT

omc O:OOOOI"OOO
S

<=
mm

0
0

LSINIT
LSCLEAN

CNRLIA RLO1/2 DRIVE

TEST

MACRO M1200

19-DEC-83 09:36

PAGE

42-1

HEADER

002110
002112
002114
002116
002120
2073 002122
2074

.WORD
.WORD
.WORD
.WORD
.WORD

015654
014404

2075 002122

.ASCIZ

002122

002125
002130
002133
002136

LS$AUTO
LS$PROT
O
O
O

/CNRLI TESTS THE RLO1-02 INTERFACE AND BASIC DRIVE LOGIC/

002141
002144

002147
002152
002155
002160
002163
002166
002171
002174
002177
002202
002205

002210

.EVEN

2076
2077 002212
002212
002215
002220
002223

DEVTYP

<RLO1,RLO2>

2079

.SBTTL

BIT AND OFFSET DEFINITIONS

2081 002224
2082
2083 002224

BGNMOD

GLBEQAT

2078

LASCIZ

#RLO1,RLO2¢

EQUALS

: BIT DIFINITIONS
]

BIT1Se» 100000
BITid== 40000
BIT13=~ 20000
BIT12== 10000
BIT1lle- 4000
BIT10== 2000
BIT09=~ 1000
BIT08== 400

000010

BIT07== 200
B8IT06=~ 100
BIT0S=» 40
BIT04== 20
BITO3== 10

SEQ 004c

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-2

SEQ 0047

BIT AND OFFSET DEFINITIONS
000004
000002
000001

BITO2== 4
BITO1l== 2
BITO00== 1

001000

B8IT9==
BIT8-=

BITO9
BITO8

BIT6==
BITS==
BIT4==
BIT3==
BIT2==
B8ITi=-=
BITO==

BITO06
BITO5
BITO4
BITO3
BITO2
BITO1
BITOO

BIT7==

BITO7

3+ EVENT FLAC DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000037

000035
000034

EF .START
==
EF .RESTART ==
EF .CONTINUE==

32.
31.
30.

EF .NEW==
EF .PWR==

29.
28.

BIT POSITION IN SECOND STATUS WORD

(100000) START COMMAND WAS ISSUED
(040000) RESTART COMMAND WAS ISSUED
(020000) CONTINUE COMMAND WAS ISSUED

(010000) A NEW PASS HAS BEEN STARTED
(004000) A POMER-FAIL/POWER-UP OCCURRED

s+ PRIORITY LEVEL DEFINITIONS
'

PRIO7==
PRIO6==
PRIOS==
PRIOA==
PRIO3==
PRIO2==
PRIOL==
PRIOO==

340
300
240
200
140
100
40
O

1OPERATOR FLAG BITS
4

LOT==

ADR==
IOY==
ISR==
UAM=»
B0E=~

PNT ==
PRI==
IXEe=

IBE=~
IER==

33t

LOE==

20
40
100
200
400

1000
2000
4000

10000
20000
40000

HOE==

100000

3
CSR
VECT

OFFSETS FOR HARCWARE P-TABLE
1BUS ADDRESS
=0
1VECTOR ADDRESS
2

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-3

SEQ 0044

BIT AND OFFSET DEFINITIONS

PRIOR
"PDR

=4
=6

1PRIORITY
1DRIVE TYPE
1DRIVE SELECT
1CONTROLLER TYPE

2088
2089
2090
%;

000004
000006
000010
000012

2093
2094
2095
2096
2097
2098
gm

000000
000002
000004
000006
000010
000012

3
MISWI
LOLIM
HILIM
HEAD
ERLIM
DCLIM

2101
2102
2103
2104
2105
2106
2107
2108
g{g:

000001
000002
000004
000010
010000
020000
040000
100000

BIT ASSIGNMENTS FOR SOF TWARE P-TABLE SWITCHES
;
ALLCYL +=BITOO
1USE ALL CYLINDERS
ALLSEC =BITO1
tUSE ALL SECTORS
1EXECUTE DRIVE SELECT TEST
DRSELT =BITO2
1EXECUTE HEAD ALIGNMENT TEST
HDALIGN =BITO3
HEADLM =BIT12
sHEAD LIMIT SPECIFIED FLAG
HICYL
=BIT1S
+HI LIMIT SPECIFIED FLAG
LOCYL
=BITi4
sLO LIMIT SPECIFIED
MITEST ~BIT15
sEXECUTE MANUAL INTERVENTION TESTS

2111
2112
2113
2114
2115
2116
2117
2118
gig

000102
000104
000106
000110
000112
000114
000116
000100

5
CKDATA
GTSTAT
SEEK
RDHEAD
WTDATA
RODATA
RDNOHR
NOOP

2122

007777

ém s7777

2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
g%:g

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000
003760

2121

2123
2124
2125
2126
2127

2142

2143
2144

CNT

=10
=12

WFSETS FOR SOF TWARE P-TABLE

-2
=4
=6
=10
=12

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

=100

OPERATION FLAGS

1 SOF TWARE. PARAMETERS SWITCHES
sCYLINDER LOWER LIMIT
sCYLINDER HIGH LIMIT
1 SELECTED HEAD FOR RUNNING TESTS
1ERROR LIMIT
1DATA COMPARE ERROR LIMIT

IWRITE CHECK
sGET STATUS
1 SEEK
1READ HEADER
tWRITE DATA
1READ DATA
tREAD DATA, IGNORE HEADERS
iNO OPERATION

1+COMPOSITE OPERATION FLAGS

000002
000001
000004
000010
000020

HORCMP
DATACMP
CYLUWP
ULOAD
INOUTS

=BITO1
=BITO0O
=BITO2
=BITO3
=BITO4

000001
000002

TOSLOW
NOIRPT

ERROR FLAGS FROM SUBROUTINES

OUTINS
FOLWRT
REVSKS
FUDSKS
REVSKO
FWDSKO
BADADD
SEEKOP
RORWOP
RELOMT
HDR4O
MQUALS

sHEADER COMPARE OPERATION
lDlTA COMPARE OPERATION
1CYCLE UP OPERATION
1UNLOAD OPERATION
1 IN-OUT SEEK OPERATION

=BITOS
1OUT-IN SEEK OPERATION
+=BIT06
1FOLLOWING WRITE OPERATION
«BITO7
sREV SEEK SEQ (ADJ INTERFERENCE)
=BITO8
1FWD SEEK SEQ (ADJ INTERFERENCE)
=BIT09
1REV SEEK SEQ (OVERMWRITE)
+=BIT10
1FWD SEEK SEQ (OVERWRITE)
=BIT11
1BAD DISK ADDRESS
+=BIT12
1 SEEK OPERATION
=BIT13
.asnn OR WRITE OPERATION
=BIT14
.afl.om WAIT
=BIT15
40 HEADER OPERATION
=OUTINS!INOUTS!FOLWRT !IIEVSKS 1FWDSKS !REVSKO ! FWDSKO
MESSAGE QUALIFIER BITS

=BIT00
=BITO1

1OPERATION TOOK TOO LONG
1NO INTERRUPT FROM OPERATION

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19 -DEC-83 09:36

PAGE 42-4

SEQ 0045

BIT AND OFFSET DEFINITIONS
2145
2146
2147
2148
2149

2150
2151
2152
2153
2154
2155
2156
2157
2158
2159
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169
2170
2171
2172
2173
2174
2175
2176
2177
2178

2179

2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193

2194
2195
2196
2197
2198
2199
2200
2201

000004
000010

000000
000002
000004
000006

CONHNG

=BITO2

1CONTROLLER HUNG

RLCS
RLBA
RLDA

=0
=2
=4

1CONTROL AND STATUS REGISTER
1BUS ADDRESS REGISTER
1DISK ADDRESS REGISTER

DLTERR

=10000

NOCLR

RLMP

000000
100000
040000
020000
010000
010000

RLCSR
ANYERR
DRVERR
NXMERR

000077
000100

SAMSK
HSMSK

004000
004000
002000
001400
000200
000100
000060
000001

000001
000004
000020

000003

000010

017777
160000

HNFERR

DCKERR
HCRCERR
OPIERR
DSMSK
CRDYMSK
INTEBL
BAMSK
DRDYMSK

=BITO3

1BAD CONTROLLER CLEAR

sMULTI-PURPQOSE REGISTER

=0
=100000
=40000
=20000

1CONTROL AND STATUS REGISTER
1ANY ERROR BIT
1DRIVE ERROR BIT
sNON-EXISTENT MEMORY ERROR

=10000

tHEADER NOT FOUND ERROR

=4000
=4000
=2000
=1400
=200
=100
=60
=1

1DATA LATE ERROR

1DATA CHECK ERROR
+HEADER CHECK ERROR
sOPERATION INCOMPLETE ERROR
1DRIVE SELECT MASK
sCONTROLLER READY MASK
s INTERRUPT ENABLE MASK
1BUS ADDRESS UPPER MASK
1ORIVE READY MASK

SECTOR ADDRESS MASK
HEAD SELECT MASK

DIRBIT
HDSEL

=4
=20

MBSETO

1MUST BE SET, BIT O
1DIRECTION BIT
sHEAD SELECT BIT

=10

1DRIVE RESET MASK

WCANG

=160000

1WORD COUNT RANGE MASK

IEGISTER BIT DEFINITIONS- MP FOR READ HEADER

DATA XFER
- MP FOR
BIT DEFINITIONS 1WORD
REGISTER
:
COUNT MASK
=17777
WCMSK

000077
000100

HDSEC
HOMSEL

000007
000010
000020
000040
000100
000400
001000
002000
004000
010000
020000

STAMSK

'100

- l' FOR GET STATUS
REGISTER BIT DEFINITIONS

BHSTATY
HOSTAT

-10
=20

=40
=100

DSESTAT =400
VCSTAT =1000
WGESTAT =2000
SPDSTAT =4000
STOSTAT =10000
WLSTAT =20000

lSECTOR MASK
tMEAD SELECT MASK

COSTAT
HSSTAT

STE MASK

|.lUSH HOME STATUS
tHEADS OUT STATUS

1COVER OPEN STATUS
sHEAD SELECT STATUS

+DRIVE SELECT ERROR STATUS
1VOLUME CHECK STATUS
|lflITE GATE ERROR STATUS
1SPIN ERROR STATUS
1 SEEXK TIMEOUT ERROR STATUS
sWRITE LOCK STATUS

H4
19-DEC-83 09:36

PAGE 42-5

SEQ 0046

BIT AND OFFSET DEFINITIONS

sHEAD CURRENT ERROR STATUS
tWRITE DATA ERROR STATUS

ENDMOD

.SBTTL

MACRO DEFINITIONS

LIST

TMMD

THE ORIGINAL CZRLID MACROS ARE COMMENTED OUT.
THEY HAVE BEEN
RE-DEFINED HERE FOR CNRLIA IN ORDER TO IMPROVE PROGRAM DELAYS FOR THE
SBC-11/21+.
TIMING HAS BEEN CHECKED OUT THROUGH BENCHMARKS.
THE
alcil:ll,.g?’ FOR “WAITUS” TAKES APPROXIMATELY 100 MICROSECONDS FOR THE
~

002224

HCESTAT =40000
WOESTAT =100000

MACRO

WAITUS

@ARG, (PC)+

MOV

#5,(PC)e»

DEC
BNE
DEC

-6(PC)
.-4

. WORD

.ENDM

.MACRO
Ll1:

MWAITMS

-22(PC)
¢'2°

ARG,?7L1

MOV

@ARG, DLYCNT

DEC

DLYCNT

WAITUS

BNE

NLIST

ARG

MOV

‘

040000
100000

2202
2203

1000.

TMMD

1DELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MILLISECOND TIME COUNTS.
;THIS TIMING IS PERFORMED BY SOFTWARE USING CPU TIMING AND IS HIGHLY MACHINE

1 .MACRO WAITMS ARG, 7WALT

'
B
sWAIT:
8
'

MOV

ASL
ASL
DELAY
DEC
BNE

#ARG , DL YCNT

DLYCNT
DLYCNT
250,
DLYCN
WAIT

s INITIALIZE DELAY COUNTER

sMULTIPLY ARGUMENT BY 2
sMULTIPLY ARGUMENT BY 2 AGAIN
1 IMPLEMENT 25-MS TIME DELAY
1DECREMENT DELAY COUNT
1BRANCH IF TIME DELAY NOT EXPIRED

}

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

L} DEPENDENT .

1 .MACRO WAITUS

' p—

DELAY

ARG

1 IMPLEMENT ARG+100-US TIME DELAY

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS
sUSING A KW11-P PROGRAMMABLE CLOCK OR A LINE CLOCK. THE TIME DELAY IS INVALID
+IF TOO LARGE AN ARGUMENT IS USED WITH THE LINE CLOCK.

PRPPPRPPIPIPEIPRIIPIBEIPIIIIIIP

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M12C0

19-DEC-83 09:36

PAGE 42-6

SEQ 0047

.MACRO TIMDLY

ARG, 7WAIT, 2CLO, ?2CL1, 2CL2, 2CL 3, 2CLS

MOV

ARG, DLYCNT

s INITIALIZE DELAY COUNT

cHpP
BLT

gtéCLKFLG

+IF NO P-CLOCK, USE THE SOFTWARE LOOP, DELAY.

.NLIST
SETVEC
.LIST
MOV

=
-

2259
2260

--u-—u----uu-n---u

MACRO DEF INITIONS

2104 ,0CLKINT,
0340 ;SET P-CLOCK INTERRUPT VECTOR

01,80172542

sINITIALIZE CLOCK COUNT SET BUFFER REGISTER

0113,80172540

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,
1710 KHZ RATE,START THE CLOCK

DLYCNT

TST

WAIT

+/FOR 1 INTERRUPT PER 100 MICRO SECONDS

+DELAY COUNT EXPIRED?

1BRANCH IF TIME NOT ELAPSED

80172540
CLS

1STOP THE P CLOCK
1SINCE P CLOCK EXISTS, AVOID SOF TWARE LOOP.

R2,-(SP)

1SAVE R2 ON THE STACK.

LBASE ,R2

tPUT THE NUMBER OF SOFTWARE LOOPS INTO COUNTER

01,R2

:THIS IS THE SAME LOOP USED IN INITIALIZATION.

CL3
cL1

$IT IS A SOFTWARE LOOP TO SIMULATE THE P CLOCK
s TIME IS APPROXIMATELY DLYCNT#100 US.

DLYCNT
CcLo

(SP)+,R2

tRESTORE R2 FROM THE STACK.

GLOBAL DATA AND CONSTANTS
T

TABLE WOWEMTIW MESSAGES

MWRCHIK

MGTSTA

MSEEK
MREADH
MURITE
MREAD
MWRSET

MDATCP
MHORCP
MCYLUP
MULOAD
MINOUT
MOUTIN

MFOLWRT
MREVSK
MFWDSK

sFILLER
1MESSAGE FOR WRITE CHECK

3
'

GET STATUS
SEEK

i
'
'
'
'
’
'
'
'

WRITE DATA
READ DATA
WITH RESET
WITH DATA COMPARE
WITH HEADER COMPARE
LOAD HEADS
UNLOAD HEADS
IN-OUT SEQ
OUT-IN SEQ

'
3
'

READ HEADER

FOLLOWING WRITE
REV SEEK
FWD SEEK

J4
CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-7

SEQ 0048

GLOBAL DATA AND CONSTANTS
2316 002266
2317 002270
2318 002272
2319 002274
2320 002276
2321 002300

005665
005631
005721
005364
000000
000000

T.ORIVE:

JJJ:

.HORD
.MORD
.WORD
.WORD

.WORD

.MORD

O
O

GBND :

.HMORD

.WORD

i
3
3
:

REV SEEK
FWD SEEK
BAD DISK ADD FOR WRITE
40 HEADER OPERATION

.WORD
.WORD

O
O
O

CAMSK:
DIRMSK:
HDCYL:

.WORD
.WORD
.WORD

TABLE OF RESULT NAME MESSAGE ADDRESSES

RESTBL:

.WORD
.WORD
.HMORD
.MORD
.WORD
.WORD

MCERR
MDRERR
MNEERR
MFLERR
MHDERR
MOPERR

;CONTROLLER ERROR
sDRIVE ERROR
sNON-EXISTENT MEMORY ERROR
sHEADER NOT FOUND-DATA LATE
sHEADER OR DATA ERROR
sOPERATION INCOMPLETE

.WORD
.mm

MWDERR
omcem

;WRITE DATA ERROR
sHEAD CURRENT ERROR

.HORD
LMORD

MSTERR
MSPERR

FOIGEM

:1SEEK TIMEOUT ERROR
sSPINDLE ERROR
1WRITE GATE ERROR

.WORD

MDSERR

sDRIVE SELECT ERROR

. WORD

PATTBL:

gflST

:NO DRIVE STATUS AVAILABLE

PATTERN TABLE
.WORD

.WORD
LHMORD
.WORD
.HORD
LHORD
.WORD
.WORD
.WORD
.MORD

PAT1

PAT2
PAT3
PAT4
PATS
PATé
PAT7
PATS
PAT9
PAT10

SUBROUTINE CALLING STACK
]
1STACK IS 12 WORDS LONG
0
SUBSTK:
000000000

005134
005174
005176
005236
005240

HLMTW:
CLRBYT:
NXTHL:

2354 002372
2355 002374
2356 002376
2357 002400

MRESKO
MFWSKO
MBADAD
MAOHDR

tRLO1 TABLE OF CYLINDERS

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-8

SEQ 0049

GLOBAL DATA AND CONSTANTS

000002

T25TBL: .WORD

000200
000377

.WORD
.WORD

2392 002472
2393 002474
2394 002476
2395 002500
33,5 002502

000066
000104
000122
000400
000777

ggz.’
2400 002504

2401 002544

.
.
.
.
.

TABLE TO BE USED TO BUILD AND STORE THE CYLINDERS

T33TBL:

.BLKW

.BLKMW

002

CvLTBL: .BYTE

2408 002611
2409 002612

041
046

.BYTE
.BYTE

2410 002613
2411 002614
2412 002615
2413 002616

2414 002617
2415 002620
2416 002621
2417 002622
2418 002623
2419 002624

2420 002625
2421 002626
2422 002627

2423 002630

2424 002631
2425 002632
2426 002633
2427 002634
2428 002635

2429 002636

035
064
072
101

110
115
124
133
141
146

154
161
170
177

206
213
222
230
235

244

54,
68.
82.
256.
S11.

:
T8T:
007
016
024
033

128.
255.

sRLO2 TABLE OF CYLINDERS
4
T25782: .
12.
.

2403 002604

2404 002605
2405 002606
2406 002607
2407 002610

;TABLE OF DIFFERENCES

.BYTE
.BYTE
.BYTE
.BYTE

16.

16.
2

7.
14,
20.
27.

33.
38.

.BYTE
.BYTE
.BYTE
.BYTE

45,
S2.
58.
65.

.BYTE
.BYTE
.BYTE

108.
113.
120.

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

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
BYTE

BYTE

s TABLE OF DEFAULT CYLINDERS

72.
77.
84,
91.
97.
102.

127.

134,
139.
146.
152.
157.

164,

—

000004
000014

6
9.
12.
17.
22.
27.
34.
41.

2385
2386 002456
2387 002460

2382 002452
ggz 002454

.WORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.WORD

000006
000011
000014
000021
000026
000033
000042
000051

33333838388

2373 002430

2374 002432
2375 002434
2376 002436
2377 002440
2378 002442
2379 002444
2380 002446
2381 002450

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

GLOBAL DATA AND CONSTANTS

2430 002637
2431 002640
2432 002641
2433 002642
2434 002643
2435 002644
2436 002645
2437 002646
2438 002647
2439 002650
2440 002651
2441 002652
2442 002653
2443 002654
2444 002655
2445 002656
002660
2447 002662
2448 002664
2449 002666
2450 002670
2451 002672
2452 002674
2453 002676
2454 002700
2455 002702
2456 002704
2457 002706
2458 002710
2459 002712
2460 002714
2461 002716

2462

720

252
261
270
275
303
312
317
326
334
343

352
361
367
375
000
000401
000406
000415
000423
000432
000445
000454
000463
000471
000500
000507
000514
000523
000532
000545
000553

2463 002722
2464 002724
2465 002726
2466 002730
2467 002732
2468 002734

000567
000576

2470 002740
2471 002742
2472 002744
2473 002746
2474 002730
2473 002752
2476 002754
2477 002756
2478 002760
2479 002762
2480 002764

000643
000651

2469

736

2481 002766
2482 002770
2483 002772
2484 002774
2485 002776
2486 003000

000612
000621
000627

000634

000667
000674
000702
000711
000716
000725
000733
000742

000751
000760
000766
000774
000774
000000

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

170.
177.
184,
189.
195.
202.
207.
214.
220.
227.

.MORD
.MORD
.MORD
.MORD
.HORD

262.
269.
275.
282.
293.
300.
307.
313.
320.
327.
332.
339.
346.
352.
357.
363.

.WORD
.MORD
.WORD
.HORD
.WORD
.HORD

375.
382.
389.
394,
401.
407.

.MORD
.HORD
.HORD
LMORD
LMORD
.WORD
.MORD
.HORD
.MORD
.MORD
.WORD

419.
425.
432.
439.
444,
450.
457.
462.
469.
475.
482.

.BYTE
.BYTE
.BYJE
.BYTE
.BYTE
.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.MORD
.MORD
.MORD
.MORD
.WORD

.WORD

.WORD
.MORD
.WORD
.WORD
.WORD
.MORD

234,
241.
247.
253.
0
257.

368.

412.

489.
496.
502.
508.
508.
O

PAGE 42-9

SEQ 0050

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-10

SEQ 0051

GLOBAL DATA AND CONSTANTS

g:gz 003002
2489

000000

SSINDX: .WORD

1SUBROUTINE STACK INDEX POINTER

OPERATIONAL FLAGS

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

O
©
O
O
O
O
O
O
O

1OPERATION FLAGS
1OPERATION COMPLETE FLAG
tHEAD ALIGNMENT DONE FLAG
s ADDRESS OF ERROR HEADER
tMORE THAN 1 COMPARE ERROR
1ERROR RETURN SWITCH
1BAD SECTOR FLAGS
sWRITE SWITCH
1 TABLE STORAGE

2490 003004
2491 003006
2492 003010
2493 003012
2494 003014
2495 003016
2496 003020
2497 003022
;::.’ 003024

000000
000000
000000
000000
000000
000000
000000
000000
000000

OPFLAG:
DONE :
HADONE:
ERHEAD:
MORECE:
ERRSWI:
BSFLAG:
WRTSWI:
TBLSTR:

2500 003026
2501 003030
% 003032

000000
000000
000000

RLBAS:
RLVEC:
RLDORV:

.WORD
.WORD
.WORD

O
O
©

;RL11 BASE ADDRESS
sRL11 VECTOR ADDRESS
1DRIVE NUMBER UNDER TEST

2504 003034
2505 003036
2506 003040
2507 003042
2508 003044
2509 003046

000000
000000
000000
000000
000000
000000

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

.MORD
.HORD
.WORD
.MORD
.WORD
.WORD

O
©
©
O
O
O

s CONTROLLER REGISTER STORAGE
1BEFORE OPERATION

HDWRD1: .WORD

2510 003050
2511 003052

2512 003052

000000

T.MP:

.WORD

2513 003054
g{; 003056

000000
000000

HDWRD2:
HOMRDS:

.WORD
.WORD

O
O

tHEADER WORD STORAGE

g{g 003060

000000

T.STAT: .WORD

;DRIVE STATE STORAGE

2518 003062

000000

RESPARM:

.WORD

+PARAM BLOCK FOR REASON REPORT

2524 003074
2525 003076
2526 003100
2527 003102
2528 003104
2529 003106
2530 003110
2531 003112
2532 003114
2533 003116

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

DRVCNT:
DIFAUG:
OLDCYL:
NEWCYL:
CURCYL:
DESDIF:
DE
:
DESHMD:
DESSEC:
:

.WORD
.WORD
.WORD
.MORD
.WORD
.WORD
LMORD
.WORD
.WORD
.MORD

O
O
O
O
O
O
O
O
O
O

1ORIVE COUNT FOR DRIVES UNDER TEST
1DIFFERENCE ARGUMENT FOR SEEK
;OLD CYLINDER
1NEW CYLINDER
CYLINDER
1DESIRED DIFFERENCE
1DESIRED SIGN
1DESIRED HEAD
1DESIRED SECTOR
s TEMPORARY STORAGE

2519 003064
2520 003066
2521 003070
2522 003072

120
2535 003122
2536 003124
2537 003126
2538 003130
2539 003132
2540 003134
2541 003136

000000

T.DA:

1 CONTROLLER REGISTER STORAGE
+
AFTER OPERATION

000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000

TEMP1:
:
TEMPS:
TEMP4:
TEMPS:
TEMP6:
TEMP7:
TEMPS:

.MORD
.MORD
LHMORD
LMORD

.WORD
.MORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O

O
O
O
O
O
O
O
O

s TEMPORARY STARAGE
1 TEMPORARY STORAGE
1 TEMPORARY STORAGE
s TEMPORARY STORAGE
: TEMPORARY STORAGE
+ TEMPORARY STORAGE
1 TEMPORARY STORAGE
s TEMPORARY STORAGE

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-11

SEQ 0052

GLOBAL DATA AND CONSTANTS

2578 003140

2579 003142
2580 003144
2581 003146
25022“3 003150
2584
2585 003152

000004

000000
000000
000000
000000

ERRVEC:
DLYCNT:
CLKFLG:
CLKADR:
LBASE:

.WORD

.WORD
.WORD
.WORD
.WORD

O
O
O
O

;ERROR VECTOR
sDELAY COUNTER USED IN TIMING MACROS
+FLAG INDICATING PRESENCE OF A L OR P CLOCK
sPOINTER TO DIAGNOSTIC MONITOR CLOCK TABLE
sL CLOCK ITERATION NUMBER TO FAKE P CLOCK

2586 003154
2587 003156
2588 003160
2589 003360
2590 003362
2591 003364
2592 003365
2593 003366
2594 003370

000000
000000
000
000
000000
000000

3
MISCELLANEOUS COUNTERS
PASCNT: .WORD
O
COUNT:
.WORD
O
ERRPOINT: .WORD O
ERRCNT: .BLKW
64,
O
PASNUM: .WORD
PSETNM: .WORD
O
O
LOCERR: .BYTE
O
NOERCT: .BYTE
O
TRPFLG: .WORD
PWRFLG: .WORD
O

2596
223:: 003372

000000

3
BAD SECTOR TABLES AND POINTERS
BSFVAL: .WORD
©
+BAD SECTORS FILES VALID FLAG

000000
000000
000000

1PASS COUNTER (LOCAL TO A TEST)
sA COUNTER (LOCAL TO A TEST)
;ERROR POINTER
;ERROR COUNTER FOR PROGRAM
1PASS NUMBER FOR PROGRAM
1COUNTER FOR PARAMETER SET NUMBER IN USE
sLOCAL ERROR COUNTER
1 INHIBIT ERROR COUNTING FLAG
1HARDMARE TRAP FLAG
;POMER FAILURE FLAG

2599 003374
mzoool 003570

SBSFIL: .BLKW
FBSFIL: .BLKW

76
76

1 SOFTWARE BAD SECTOR FILE
;FACTORY BAD SECTOR FILE

2602 003764
2603 004364

IBUFF:
OBUFF:

.BLKW
.BLKW

200
200

: INPUT BUFFER
1OUTPUT BUFFER

PAT1:

.MORD

sPATTERN 1 (ALL ZEROS)

.WORD
.MORD

0523525
052525

2605 004764

2606 004766
2607 004770
2608 004772
2609 004774
2610 004776
2611 005000
2612 005002
2613 005004

2614
2615

2616 005012
2617 005014
2618 005016

2620 005022
2621 005024

2623
2624

2625 005032
2626 005034
2627 005036
2628 005040
2629 005042
2630 005044
2631 005046
2632 005050
2633 005052
2634 005054

177772
177777
177777

PAT2:

052525
177777
177777
032525
052525
177777

LMORD
LMORD
.MORD
.WORD
.WORD
.WORD
LMORD
LMORD

177252

LMORD
.WORD
.WORD

172765
172765

LMORD
MORD

177252

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

LMORD

PAT3:

.WORD
.WORD

.WORD
LMORD
.MORD
.MORD
.WORD
.WORD
LMORD
LMORD
.WORD
LMORD

177772
177777
177777
052525
032525
052325
177777
177777

177777
0523525
177252

177252

172765
172765

000003
000000

000000
177777
177777
177777
000000
000000
177777
177777
000000
177777

CNRLIA RLOL/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE &42-12

GLOBAL. DATA AND CONSTANTS

2635 005056
2636 005060
2637 005062
gg: 005064

2640 005066

2641 005070
2642 005072
2643 005074
2644 005076
2645 005100
2646 005102
2647 005104
2648 005106
2649 005110
2650 005112
2651 005114

2652 005116
2653 005120
2654 005122

000000
177777
000000
177777

025252

052525
052525
125252
125252
125252

PATA4:

052525
125252
125252
052525
123252
125252
052525

.WORD
.MORD
.WORD
.WORD

000000
177777
000000
177777

.HORD

025252

.WORD
.MORD
.MORD

052525
125252
052525

.MORD
.MORD
.MORD
.HMORD
.WORD
.WORD
.WORD
.MORD
.MORD
.MORD
.MORD

052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252

2657 005126
2658 005130
2““05? 005132

135555
133333

PATS:

.MORD
.MORD
.MORD

155555
133333
066666

2661 005134
2662 005136
2663 005140
2664 005142
2665 005144
2666 005146
2667 005150
2668 005152

121105
150442
064221
132110
055044
026442
013211
105504

PAT6:

LMORD
.MORC
.MORD
.MORD
LMORD
.MORD
LMORD
.WORD

121105
150442
064221
132110
055044
026442
013211
105504

2670 005156
2671 005160
2672 005162
2673 005164
2674 005166
2675 005170
g;"l 005172

021321
110550
044264
022132
011055
104426
042213

.MORD
.MORD
. WORD
LMORD
.MORD
LWMORD
.MORD

O21321
110550

2669 005154

042642

LMORD

042642

022132
011055
104426
042213

g;: 005174

1777Mm7

PATT7:

LMORD

177777

2680 005176
2681 0035200
2682 005202
2683 005204
2684 005206
2685 005210
2686 005212
2687 005214
2688 005216
2689 005220
2690 003222
2691 005224

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

PATS:

.WORD
LHORD
.MORD
.MORD
LHORD
.MORD
.HORD
LHORD
.MORD
MORD
.MORD
.MORD

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

SEO 00%%

MACRO M1200

CNRLIA RLOL1/2 DRIVE TEST 1

19-DEC-83 09:36

PAGE 42-13

GLOBAL DATA AND CONSTANTS

132264
055132
026455
113226

22::; 005236

125252

g"g 005240

155555

.WORD
.WORD
.WORD
.MORD

132264
055132
026455
113226

PAT9:

. WORD

125252

PAT10:

.WORD

155555

2701 005242

ENDMOD

g;gz

.SBTTL

GLOBAL MESSAGES

BGNMOD

GLBTXT

2692 005226
2693 005230
2694 005232
gg 005234

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

2708 005242
2709 005242

123

105

2711 005261

122

104

2714 005315
2715 005327
2716 005346
2717 005364
2718 005400
2719 005414
2720 005423
2721 005434

107
127
127
106
127
117
122
125

105
111
111
117
111
120
105
116

2725 005521

106

117

2710 005250

2712 005271
2713 005303

2722 005445
2725 005455
2724 005476

2727 003576

2728 003631
2729 003665
2730 005721
2731 005742
2732 005773
2733 006020
2734 006042
2735 006053
2736 006060
2737 006120
2738 006125
2739 006132
2740 006137
2741 006144
2742 006157
2743 006172
2744 006200
2745 006220
2746 006240
2747 006273

2748 006307
2749 006327
2730 006350
2751 006365

122

127
127

114
106
106

101

123
123
117
103
102
124
102
104
104
122
122
122
122
117
117
127
111
116
116
103

105
126
125
040

104

122
122

104
117
117

104

113
113
116
101
101
117
125
122
122
114
114
114
114
120
120
117
116
117
117
116

122
117
116
124

SERERERREES

2702

123
114
040
114
114

MSEEX:
MREAD:
MREADM:
MURCHK:

MDATCP:
MHORCP:
MAOHDR:
MURSET:
MOPER:
MRSLT:
MUAOAD:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ

MCYLUP: .ASCIZ
MOUTIN: .ASCIZ
.ASCIZ
MINOUT

/SEEK /
/RD DATA /
/RD HOR /
/WRT CHECK/
/WRT DATA /

/GET STAT /
/MITH DATA CMP /
/WITH HOR CMP /
/FOR 40 HDRS/
/MITH RESET /
/OPER: /
/
/RESWL.T:
/UNLD DRv/

/LD DRV /
/FOL O TO CC SEEKx/
/FOL 255 TO CC SEEK/

114 WFOLMRT: .ASCIZ /FOL WRT (NO SEEK)/
MREVSK : .ASCIZ 7ADJ CYL WRTTN AFTER REV SK/
112

040
040
040
116
104
17
125

126
103

102
104
113
040
040

122
124
040
040
124
122
114
130
105

s LASCIZ

:
:
'
:
+

/ADJ CYL WRTTN AFTER FWD SKk/

&g /SK FMD ,MRT - SK REV,OVERWRT/
/SK REV,MRT - SK FWD,OVERWRT/
.
'% /0N BAD SEC FILES/
/CANNOT GET BAD SEC FILES/
.
.ASCIZ /BAD SEC FILE FMT ERR/
.ASCIZ /70D MANY BAD SEC /
:
BASADD: .ASCIZ /BUS ADD=/
: .ASCIZ /DRV=/
.ASCIZ /DRV DID NOT REC'R FROM PWR FAIL/
NOPWR:
:+
.ASCIZ /RLCS/
:+
.ASCIZ /RLBA/
T
/RLDA/
1
JASCIZ /RLMP/
LAB1:
.ASC
/0P INIT = /
LAB2:
.ASCIZ /0P DONE = /
s
.ASCIZ /WORD /
MTOSLOW: .ASCIZ /INTRPT TOO LATE/
MDRRES: .ASCIZ /ND DRV RESPONSE/
1 .ASCIZ /NO INTRPT ON CMND COMPLETE/
MCONMNG: .ASCIZ /CNTLR HUNG /

+
VONRST:
:
TSTLAB:

.ASCIZ
.ASCIZ
JASCIZ
.ASCIZ

/ERR DID NOT CLR/
/VOL CHX NOT RSET/
/UNXPCTED ERR/
/ TEST/

SEQ 0054

)

MACRO M1200

CNRLIA RLO1/2 DRIVE TEST 1

19-DEC-83 09:36

PAGE 42-14

SEQ 00%%

GLOBAL MESSAGES

2753 006373
2754 006416
2755 006430
2756 006464
2757 006515
2758 006530

115
123
123
106
111
104

101
124
120
101
116
122

116
101
116
111
111
126

126

MISTST: .ASCIZ /MAN INTERVENT STAT/
NSTACHG: .ASCIZ /STATE CHG/
SPDERR: .ASCIZ /SPNDL TIMEOUT FAILED TO SET/
GSTER1: .ASCIZ /FAIL FORCING DRV SEL ERR/
INITST: .ASCIZ /INIT STATE/
TOSERR: .ASCIZ /DRV SELECT/
TO9ERR: .ASCIZ /DRV RDY/

2761 006573
2762 006605
2763 006621
2764 006635

110
122
122
127

104
104
104
122

040
040
040
124

T12ERR:
T13ERR:
T14ERR:
T16ERR:

.ASCIZ

/SEEK SGN SWITCH/

/DIFF OF 1 SEEK/

2759 006543

104

122

105

T10ERR:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

2767 006664
2768 006754

124
104

105
122

111

106

P2TO2E: .ASCIZ

2604 007031
2806 007070
2607 007154
2808 007237
2809 007343
2810 007406

110
103
110
124
111
107

104
131
105
151
106
116

123
114
101
120
040
104

HOMOVF:
CYLPER:
HAMES1:
MAMES2:
HAMESS:
MHAMESA:

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

103
103

110
114

117

113

OPR1:
OPR2:

.ASCIZ
.ASCIZ

2766 006645

2811 007470
2812 007515

2813 007540
2814 007616

104

101
127

102
101

123
126

117
123

NOTST: .ASCIZ
NOCTLR: .ASCIZ

ASCIZ

OPROO2: .ASCIZ
OPROO3: .ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
JASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/HD SWITCHW/
/RD HOR (Pl1)/
/RD HDR (P2)/
/WRT LCK/

/TEST CANNOT BE PERFORMED...NO P CLOCK OR SOF TWARE CLOCK/
/DRV DROPPED - NO CNTLR/
/DRV DROPPED - NOT RDY/

/MDS FAILED TO MOVE IN 10 TRIES/
/CvyL PORTION OF HORS DIFFER WHEN READ FROM TRK O € 1/
/HEAD ALIGN. RSET WRT LCK TO SEL MD O, SET FOR HD 1/
ETYPE “CTL/C” TO GET BACK TO SUPVR CMD MODE AND THEN TYPE “CONT"
/IF HD SEL TP (21, 22) DO NOT EXIST/
/GND NULL DET ON DRV LGC MOD DISABLE SEEK TIME OUT/
/ABOVE CONDITIONS MET/
/WAS LOAD DEPRESSED/

/CHK DRV IS UNLDED, COVER OPN, AND WRTE LCKED /
/CLOSE COVER & RST WRT LCK /
/PRESS LOAD /
/PRESS LOAD & WAIT FOR RDY /
/REMOVE ADR PLGS EXCPT /
/INSRT ADR PLG /
/IN ALL DRVS /
/INSUFFICIENT DRVS FOR DRV SEL ERR TST/
/RPLCE ADR PLGS AS BEFORE/
/RESET WRT LCK /
/SET WRT LCk/
/ON /
/ON DRV /
/UNDER TEST/
/SET WRT LCK /
/DIFF /
/SGN /
/MD /
/SEC /
/CYL /
/FROM /
/ BYPASSED /
/ROUTINE TRACE SEQ:/
/DRV STAT/

2815 007651
2816 007665
2817 007720
2818 007747
2019 007766
2820 010003
2621 010051
2823 010102
2824 010121
2825 010135
2826 010141
20627 010151
2828 010164
2829 010201
2830 010207
2831 010214
2832 010220
2833 010225
2834 010232
2835 010240
2836 010233
2837 010276

120
120
122
111
111
111
122
122
123
117
117
123
123
104
123
110
123
103
106
040
122
104

122
122
105
116
116
116
120
105
105
116
116
116
105
111
107
104
105
1351
122
102
117
122

105
105
115
123
040
123
114
123
124
040
040
104
124

126

OPR3:
OPR6:
OPR7:
OPR8:
OPR9:
OPR10:
OPR11:
OPR12:
OPR12A:
+
OPR1B:
UNDTST:
OPROO4:
DIFWD:
s
i
s+
CvLMD:
s+
BOYPSNM:
:
STAMES:

2839 010363

124

117

124

TCERR:

.ASCIZ

s
MORDY:
MCERR:
MHCRC:

RESULT NAMES
.ASCIZ /DRV RDY /
.ASCIZ /CONT ERR /
.ASCIZ /HOR CRC/

2838 010307

2841
2842 010404
2843 010415
2644 010427

S 010437

102

104
103
110

104

106
116

103
114

117
131

101

104

122
117
104

126
116
122

101

BSNSTR: .ASCIZ

124 MOCRC:

.ASCIZ

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

/DATA CRC/

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-15

GLOBAL MESSAGES

127

110
104
104
123
127
123
110
127

117
110
110
116
103

103
106

127

040
040
207

B223332832 232R200REEE B

>
=3

2872 011150
2873 011211
2874 011225
2875 011265
2.7; 011274

122
124
122
126
114
114

MHNF

MOLT:
MFCRC:
MORERR:
MHSTA:

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

KRRRRRKNRRRRRRRRR

110
104
110
104
123
126
103
102

GRREARARRRARARAZA

2846 010450
2847 010464
2648 010476
2849 010526
2851 010537
2852 010551
2853 010562
2834 010575
26855 010610
2856 010621
2858 010632
2859 010647
2860 010662

/7HDR NOT FND/

/DATA LATE/
EHDR NOT FND/7HDR CRC/0OPIE
/DRV ERR /
/SEL'D HD /
/VNOL CHK /

/COVER OPEN/
/
/BRUSH HOME
/WRT LCK /

/HDS OUT /
/DRV SEL ERR /
/DRV STATE /
/SPIN TIMEOUT

/WRT GAT ERR /

EHDR NOT FND/DAT LATE &
/N-X-MEM /

/CYL /

/CANNOT GET DRV STAT/
/ZUNKN DRV STATE-NO RDY,NO ERR,HDS OUT/
/FAIL TO RELD HDS AFTER ERR CLEAR/
/MRT ABORTED/
/7 OVER ERR LIMIT - UNIT DROPPED /
/ ERROR/

<207><377><377>

SETTINGS
/7
/1S
/7 SB
/

CONDITIONS

/IN/
/7 OF /
/STATE 2/
/STATE 3/
/STATE 5/

ESEEX W/0 MOTIONE
/1ST 3 Ms/

/300MS/

/CYCLE WP/

/OATA XFR/
/S SEC/
TS0 18N/
/9NS TENS T8 TH065S5%
95
18 TS018N/
/8N 1801
/98NS TS0194S 18 THTEN/
/8T87/
/8NTST/
/977
/9N/
/78NS TSTEN/
/9N TH068S 187801/

/8NSS1 18 THSASTESAN THSASTHSASTHS28T /

SEQ 0056

MACRO M1200

CNRLIA RLO1/2 DRIVE TEST 1

19-DEC-83 09:36

PAGE 42-16

GLOBAL MESSAGES

2907 011651
2908 011721
2909 011753
2910 011760
2911 011766
2912 011774
2913 012040
2914 012072
2915 012126
2916 012137
2917 012161
2918 012213
2919 012250
2920 012300

2921 012323
2922 012357
2923 012373
2924
2925
2926
2927
2928

012400
012410
012434
012453
012464

2936 012464

116
116
116

116
116
116
116
116

045

FMT7:
FMT8:
FMT9:
FMT11:

.ASCIZ

/“TWWWSWS“O“SZ‘O 18N/

FMT12:

/98NS T 806485280645 2406%S2%06
/79NST/
/67401/
/8T#03/

FMT19:
FMT20:

S 148D6%SASDESN/
/978524064

/9NuS118Te038S
18 TH038S 18 T8016S 18 TE01/
18 TH06%S 18 T806 /
/78NS T TD36S
/9NsS1
18 TeD 365 18 TH06%S 1% TH06/
/9NSS 5806/
/98
TeNSS
510
1 1506%N/
8
TEN/
/78NS 158 THSSE TESASTESSE
/8 T8SASDESSASDESSASDESSASDEEN/

FMT13:
FMT14:
FMT1S:
FMT16:
FMT17:
FMT18:

/98T8S512068S148D6%N/
TH01%S 1% 7802/
18
18 Te038SS1
/78Nu
/76TuTSTS018N/
/
/9NST
/
/9NsD287
/9NsS 18 TSDAS T8 TS0 3N/
T80 3% TS0 38N/
/9N
/78NSTHTST/

116
116
116
116
116
116

GLBERR
ERR1

R3 POINTS TO RESULT MESSAGE
RESUWLT: (R3)
R3 POINTS TO RESULT NAME

RESWLT: (R3) IS 1 S8 O

R3 POINTS TO RESULT NAME

RESULT: (R3) IS 0 SB 1

R3 POINTS TO RESULT NAME
R4 POINTS TO RESULT CONDITIONS

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

R3 POINTS TO RESWLT NAME
R4 POINTS TO RESULT CONDITIONS

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

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

RESULT:

"ERROR” IS 1 SB O

DRIVE STATE ERROR REPORT

R3 CONTAINS EXPECTED STATE
T.STAT CONTAINS BAD STATE

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

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

RESULT: CYLINDER IS (HOWRD1) SB (NEWCYL)

SEQ 0057

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-17

SEQ 0058

ERROR MESSAGES

2968

2969
2970
2971

3
:
fl

22:;%

ERPR9

2974

3
H
3
[

ERR10

2980

.NLIST

MD,ME

BGNMSG

ERR1

2982 012464

2983 012464
2984 012470
2985 012472
2986 012476
2987 012500
2988 012504
2989 012510
2990 012512
2991 012516
2992 012522
2993 012524
2994 012530

012530

012530
2996 012532

105767
001002
005277
010146
004767
012721
010321
004767
004767
012601
004767

005277
010146
004767
012721
010321

3003 012556
3004 012560
3005 012564
3006 012570
3007 012572

005021
004767
004767
012601
004767

3008 012576

012576
012576

3010 012600

35011 012600

3012 012604
3013 012606
5014 012612
3015 012616
3016 012620
3017 012622
3018 012626
3019 012632
3020 012636

170460
011106
000001

012721

003714

010146
004767
012721
010321
005021
012721
004767
004767
012601

ENDMSG

170420

BGNMSG

011046
000003
000001

003646

ENDMSG

L10001:

170352
011000
000003
000001
011546

011750

MOV
JSR

TRAP

C#MSG

ERR2

BGNMSG

sTEST IF ERROR COUNTING INHIBITED
1YES - SKIP
1ELSE BUMP ERROR COUNT
1STORE R1
sREPORT OPERATION

1SET PARAM NUMBER
1 INSERT MESSAGE ADDRESS POINTER
sREPORT RESULTS
1REPORT REMAINDER

sRESTORE R1
sGO CHECK IF ERROR COUNT EXCEEDED

INC
MOV
JSR
MOV
MOV

SERRPOINT
R1,-(SP)
PC.RPTOP
#3,(R1).
R3,(R1).

1BUMP ERROR COUNT
1STORE R1
sREPORT OPERATION
1SET PARAM NUMBER
1 INSERT NAME ADD POINTER

CLR
JSR
JSR
MOV
JSR

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

1SET SB VALUE
sREPORT RESULTS
sREPORT REMAINDER
1RESTORE R1
;GO CHECK IF ERROR COUNT EXCEEDED

TRAP

CeMSG

MOV

011614
012016

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)

NOERCT
14
SERRPOINT
R1,-(SP)
PC.RPTOP
®1,(R1).
R3,(R1).
PC.RPTRES
PC .RPTREM
(SP)+,R1
PC,.CKERLM

1ST8
BNE
INC
MOV
JSR

MOV
MOV
JSR
JSR

L10000:

104423

005277

14:

011662
012064

104423

2997 012532
2998 012536
2999 012540
3000 012544
3001 012550

3002 012552

170675

R3 POINTS TO RESULT NAME
R4 POINTS TO VALUE 1
RS POINTS TO VALUE 2

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

2975
2976
2977
g;:
2961

UTILITY RESULT REPORT

ERR3

INC

MOV
JSR
MOV
MOV
CLR
MOV
JSR
JSR
MOV

#1,(R1).

SERRPOINT

R1,-(SP)
PC,.RPTOP
#3,(R1).
R3,(R1)
(R1)e
#1,(R1).
PC.RPTRES
PC,.RPTREM
(SP)+,R1

1SET IS VALUE

1BUMP ERROR COUNT

1STORE R1
sREPORT OPERATION
1SET PARAM NUMBER
1 INSERT NAME ADD POINTER
1SET IS VALUE
1SET SB VALUE
stREPORT RESULTS
1REPORT REMAINDER
tRESTORE R1

HS
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-18

SEQ 0059

ERROR MESSAGES

3021 012640

004767

2028 012644

104423

3022 012644
012644
3024 012646

3025 012646
3026 012652
3027 012654
3028 012660
3029 012664

3030 012666
3031 012672
3032 012674
3033 012676
3034 012702
3035 012706
3036 012710
3037 012714
012714

3038 012714

3039 012716

3054 012766

C$MSG

ERR4

SERRPOINT
R1,-(SP)
PC.RPTOP
#4,(R1)+
R3,(R1)+

010411
004767
004767
012601
004767

011476
011700

MOV
JSR
JSR
MOV
JSR

TRAP

C$MSG

170304
010732
000004

CLR

003530

ENDMSG
L10003:

104423

012721

BGNMSG

170234
010662
000004
000001

003460

ENDMSG

L10004;

104423

170373

3057 012774
3058 013000
3059 013002
3060 013004
3061 013006
3062 013010
3063 013014
5064 013020
3065 013026
3066 013032
3067 013036
3068 013042
3069 013046

005277
010146
010346
010446
010546
004767
012721
012761
7
016703
042703
022703
001443

170156

3071 013056

012703

001002

010576
000003
000001
170072
170006

177761
000004

BGNMSG

17%:

000002

1GO CHECK IF ERROR COUNT EXCEEDED

1BUMP ERROR COUNT
1STORE R1
1REPORT OPERATION
1SET PARAM NUMBER
1 INSERT NAME ADD POINTER

1SET IS VALUE
1SET _SB VALUE
s INSERT ADD OF CONDITION POINTER
sREPORT RESULTS
+REPORT REMAINDER
tRESTORE R1
1GO CHECK IF ERROR COUNT EXCEEDED

INC
MOV
JSR
MOV
MOV
CLR

SERRPOINT
R1,-(SP)
PC.RPTOP
#4,(R1).
R3,(R1).
(R1).

1BUMP ERROR COUNT
1STORE R1
sREPORT OPERATION
1SET PARAM NUMBER
1 INSERT NAME ADD POINTER
lSET IS VALUE

MOV
JSR
JSR
MOV
JSR

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

s INSERT ADD OF CONDITION POINTER
sREPORT RESWLTS
sREPORT REMAINDER
tRESTORE R1
1G0 CHECK IF ERROR COUNT EXCEEDED

TRAP

CHMSG

ERR6

#1,(R1).

1SET _SB VALUE

7578

NOERCT

s TEST IF ERROR COUNTING INHIBITED

INC
MOV
MOV
MOV
MOV
JSR
MOV
MOV
CLR
MOV
8IC
cHp
BEQ

SERRPOINT
R1,-(SP)
R3,-(SP)
R4, -(SP)
RS, -(SP)
PC.RPTOP
#3,(R1).
#1,.2(R1)
TEMPS
7.CS,R3
0177761,R3
#4 ,R3
14

sELSE BUMP ERROR COUNT
1STORE R1
1STORE R3
1STORE R4
1STORE R3S
tREPORT OPERATION
lSET PARAM NUMBER
1 INSERT IS VALUE
sCLEAR FOR STATUS STORAGE
fil’ T.CS
1"0 CLEAR ALL BUT FUNCTION
1CHECK IF IT WAS GET STATUS
YES - STATUS IS IN T.MP, SKIP

MOV

4 ,R3

BNE

3070 013050 012762 000003 000004
000004

ERRS

MOV

011426
011630

105767

3056 012772

TRAP

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

010411
004767
004767
012601
004767

35055 012766

PC,CKERLM

000001

5047 012744
3048 012746
3049 012752
3050 012756
3051 012760
012764
012764

BGNMSG

JSR

012721

005021

005277
010146
004767
012721
010321
005021

3052 012764

ENDMSG
L10002:

INC
MOV
JSR
MOV
MOV
MOV

005277
010146
004767
012721
010321

35040 012716
3041 012722
35042 012724
5043 012730
3044 012734
3045 012736

3046 012740

003600

MOV

17¢

1 YES - SKIP

OGETSTAT.RLDA(RZs 1ELSE DO GET STATUS

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-19

SEQ 0060

ERROR MESSAGES

3072
3073
3074
3075
3076
3077

013062
013066
013072
013122
013130

3078 013132

3079 013136
3080 0135140
3081 013144
3082 013150
3083 013154
3084 013156
3085 013162
5086 013166
3087 013172
3088 013176
35089 013200
3090 013204

3091 013206

056703

000000

032762
001003
012703
000413
016203
010367

000200

116703

000402

BIS

167744

010362

000000

BIT

001000

9s:

000006

10%:

167754
167751

116703
042703
016704
042704
050403
032703
001442
032703
001026
032703
001020
012704

167671
177442
167652
001777

012746
010446
012746

011265

000012

13266

3100 013270
3101 013274
5102 013276
5103 01
5104 013304
5105 013310
3106 013312
3107 013316
3108 013320
3109 013324
3110 013326
3111 013332
3112 013334
3113 013340
5114 013342
3115 013346
3116 013350
35117 013352
3118 013354
35119 013356
3120 013360

010427

1054:

004000

107¢:

010450
010476

109¢:

004000

115¢:

010437
010000

118%:

010464

100000

1208:
3¢:
4%

OCflOYHSK RLCSC(R2)

1 TEST IF READY

MOV
gfl

R3, TEMP3
I?‘PSOLRS

;GET ERROR BITS IN PROPER POSITION

MOV

1008:

005423
012453
000004

tWAIT FOR CONTROLLER READY
sWAIT FOR CONTROLLER READY

1YES - SKIP
;ELSE SET NO DRIVE STATUS BIT
+IN MESSAGE WORD AND SKIP

BIT
BNE
BIT
BNE
MOV
PRINTB
MOV
MOV
MOV
MOV
MOV
MOV

004000

R3,RLCS(R2)
10

104
#B8IT9,R3
2¢

MOVB
8IC
MOV

010000

RLDRV,R3

BNE
MOV
BR

18:
13¢:
24:

002000

010766

MOV
WAITUS
WAITUS

RLMP(R2),.R3
T.MP+1,.R3
#177442,R3
7.CS,.R4

B8IC
8IS
BIT
BEQ

#1777.R4
R4 ,R3
#OPIERR,R3
115¢

TRAP

C4PNTB

OHNFERR,R3
1074
OHCRCERR,R3
105¢
SMOPERR, R4

1GET ERROR BITS FROM MP REG
1CLEAR UNUSED BITS
1GET ERROR BITS FROM CS REG

1CLEAR UNUSED BITS
tMAKE ONE WORD OF POSSIBLE ERRORS
ITEST IF OPI SET
- SKIP
iNO

lTESY IF HDR NOT FOUND ERROR
1YES - SKIP
lTEST IF HOR CRC ERR
1 YES - SKIP
|SET OPI ALONE MESSAGE
@FMT28,#MRSLT,R4,OMERRS ;REPORT ERROR
ms.-(sn
R4, -(SP)
OMRSLT, -(SP)
OFHT28, -(SP)
4, -(SP)
SP,RO

i1 SKIP

BIT

OHCRCERR,R3
1094
m.fl‘

s TEST IF HCRC WITH HDR NOT FND
+YES - SKIP
tMESSAGE HEADER NOT FOUND

MOV
BR
BIT
BEQ

¥ CRC,R4
1004

SOCKERR ,R3
1184

tHNF AND HCRC MESSAGE
s SKIP
lTEST IF DATA CHECK SET, NOT OPI
- SKIP
iNO

1204
OLT R4
1004
#BIT15,.RS
R4
RS5,R3
64

- SKIP
1NO
1SET MESSAGE DATA LATE
1 SKIP
|SEY BIT POINTER FOR TEST
1CLEAR R4 FOR TABLE COUNT
sYEST IF BIT IS SET
1YES - SKIP TO REPORT

.ngv

BNE
fgv

MOV
BIT

BEQ
MOV
BR
MOV
CLR
BIT
BNE
ST

cLC

ROR

wc.m

#MOCRC , R4
1004
SOLTERR,R3

(R4).

1STORE STATUS FOR REPORT

n2,sp
1204

ADD
BR

1JSD REV A
1JSD REV A

tHOR CRC MESSAGE

lSET MESSAGE DATA CHECK
1 SKIP
lYEST IF DATA LATE ERROR

1ELSE BUMP TABLE POINTER

1CLEAR CARRY

JSHIFT BIT POINTER TO NEXT BIT

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-20

SEQ 0061

ERROR MESSAGES

3121 013362
3122 013364
3123 013366
3124 013372
3125 013376
5126 013400
3127 013404
35128 013410
5129 013412
013412
013416
013422
013426
013432
013434
013436
3130 013442
3131 013450
3132 013452
3133 013460
3134 013462
3135 013466
3136 013472
35137 013476
5138 013502
5139 013506
5140 013510
3141 013512
3142 013520
5143 013522
013522
013524
013530

BNE

001372
000405
016411
004767
000766
004767
005767
001414

68:
7%:

016746
012746
012746
012746
010600
104414
062706
032767
001453
032767
001047
005067
012701
012703
012705
012704

021514
001427
026727
003021

167374

158:

167364

188:
167276

000012

011304
011300
006172
012072
000007

3144 013564
3145 013570
3146 013572
35147 013574
3148 013576
3149 013600
3150 013604
31351 013606
3152 013612
013612
013614
013620
013624
013630
013634
013640

000020
167224

167210
©00200

010600

011316
167170
010363
012434
000005

208:
19¢:
25¢:

;LOOP IF NOT O

JELSE REPORT REMAINDER
74
B8R
MOV
RESTBL(RA),(R1) ;INSERT NAME ADDRESS
JSR
PC,RPTRES
JREPORT RESULTS
sGET NEXT BIT
as
B8R
JSR
PC,RPTREM
JREPORT REMAINDER
TST
TE'PS
s TEST IF ANY NEW STATUS
iNO- SKIP
15¢
BEQ
PRINTB &FMT17,.0STAMES, TE'PS
MOV
TEMPS, -(SP)
MOV
OSTAMES, -(SP)
MOV
OFMTL7, -(SP)
MOV
03,-(SP)
SP.RO
MOV
TRAP
CHPNTB
ADD
#10,5P
:TEST IF DATA CHECK ERROR
@OCKERR,T.CS
BIT
iNO- SKIP
25¢
BEQ
sTEST IF OPI SET
QOPIERR,T.CS
BIT
1YES - SKIP
254
BNE
;CLEAR COMPARE ERROR COUNT
MORECE
CLR
MOV
0128, .R1
JSET COMPARE LENGTH
+SET WORD COUNT
o1,R3
MOV
1SET GOOD WORD POINTER
S0BUFF ,RS
MOV
MOV
SIBUFF .R4
+SET TEST WORD POINTER
CWP
(RS), (R4)
;CHECK WORD
1G00D- SKIP
19%
BEQ
ce
MORECE, #10.
{TEST IF COMPARE. LINIT REACHED
{YES- SKIP
204
B8GT
PRINTB OFMT1S,OMMORD,R3. ORESES, (R4), ORESEA, (RS)
(RS), -CSP)
MOV
MOV
ORESES, -(SP)
MOV
(R4), -(SP)
MOV
ORESES, -(SP)
RS, -(5P)
MOV
MOV
OMUORD
, -(SP)
OFMTLS, -(SP)
MOV
07,-(5P)
MOV
MOV
7
TRAP
COPNTB
ADD
020, 5P
;BUMP ERROR COUNTER
MORECE
INC
O
(RS)+,(RA)+
1BUMP POINTERS
;BUMP COUNTER
R3
INC
sDEC LENGTH COUNT
R1
DEC
;LOOP IF NOT DONE
184
BNE
TST
MORECE
;TEST IF ANY COMPARE ERRORS
sNO- SKIP
z'n
8EQ
COMPARE LENGTH
+SET
MOV
PRINTS i.m:em MORECE,RESES, R1
lu.-(sn
MOV
MOV
ORESEG, -(SP)
MOV
MORECE
, -(SP)
MOV
#TCERR, -(SP)
MOV
oFMT27, -(SP)
05, -(SP)
MOV
MOV
SP.RO

iKS
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-21

SEQ 0062

3170 013726
3171 013730
3172 013734

L10005:

104423
003277
010146
004767
012721

012721
016721
010311
004767
004767
012601
004767

167264
007712

010647
167144
010456

010660
002510

L10006:

3173
3174 013736
3175 013736
3176 013742
3177 013744
3178 013746
3179 013752
3180 013756

3199 014040
3200 014044
3201 014050

CS$PNTB

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

JSR

013734
013734

3181 013762
3182 013766
3183 013772
3184 013774
3185 013776
3186 014000
3187 014002
3188 014004
3189 014010
3190 014014
3191 014020
3192 014022
3193 014024
3194 014030
014030
014030
3195
3196 014032
3197 014032
3198 014036

27%:

TRAP

ADD
MOV
MOV

167214
007640
000003
011052
167064
000007

167072
010364
010566
002414
L10007:

005277

010146
004767
012721
010321

167120
007546
000003

014,5P

. PC,CKERLM

TRAP

C$MSG

ERR7
INC

SERRPOINT

g3pgdaasd gd

3163 013674
3164 013700
3165 013704
3166 013710
3167 013714
3168 013716
3169 013722

000014

335338 3 5330udaRRanadaiedd F

3159
3160 013666
3161 013666
3162 013672

104414

-4

3153
3154
3155
3156
3157
3158

013642
013644
013650
013652
013654
013656
013660
013664
013664
013664

ERROR MESSAGES

PC.RPTOP
#3,(R1).
OMDRVST,(R1)
T.STAT,(R1).
R3,(R1)
PC,.RPTRES
PC,RPTREM

(SP)+,R1
PC,CKERLM

sRESTORE RS,

:GO CHECK IF ERROR COUNT EXCEEDED

1BUMP ERROR COUNT
1STORE R1

sREPORT OPERATION
:SET PARAM NUMBER
s INSERT NAME ADD POINTER
1 INSERT IS VALUE
s INSERT SB VALUE
sREPORT RESULTS
1REPORT REMAINDER
tRESTORE R1
+GO CHECK IF ERROR COUNT EXCEEDED

CIMSG

SERRPOINT

MCYLOC, (R1)+

, (R1)
HOMRD
#7,R3

1BUMP ERROR COUNT
1STORE R1
1STORE R3
1REPORT OPERATION
:SET PARAM NUMBER

1INSERT NAME ADD POINTER
1GET HEADER WORD
3sSET SHIFT COUNT
1ALIGN CHAR FOR PRINTING
AS IS VALUVE
i+

1BUMP PARAM POINTER

+ INSERT SB VALUE

CIMSG

SERRPOINY

PC,.RPTOP

#3,(R1).
R3,(R1).

1BUMP ERROR COUNT
1STORE R1

;REPORT OPERATION

$1SET PARAM NUMBER
s INSERT NAME ADD POINTER

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-22

SEQ 0063

ERROR MESSAGES
014052
014054
014056
014062
014066
014070
014074

014074

014074
3209 014076

3210 014076

3211 014100
35212 014104
3213 014106
3214 014112
3215 014116
014116
014120
014124

014130
014134
014140

014144
014150
014152
014154
3216 014160
014160
014162
014166
014170
014174
014176
014202
014206
014212
014216
014220
014222
3217 014226
3218 014230
014230
014232

014266

3219 014272
3220 014276
3221 014300
3222 014304
014304

MOV
MOV
JSR

010421

010521
004767
004767
012601
004767

010316
010520
002350

104423

ENDMSG
L10010:

011546
012746
011446
012746
010346
012746
012746
012746
010600

1SET IS VALUE
1SET SB VALUE
sREPORT RESULTS
tREPORT REMAINDER
1RESTORE R1
1GO CHECK IF ERROR COUNT EXCEEDED

1STORE R1
s TEST IF 2ND BAD LINE
1 YES - SKIP

1BUMP ERROR COUNT
;REPORT OPERATION
PC.RPTOP
O:Hs;.')a.fiASAOD.RLBAS.ODRVNM.<8.RLDRVo1> sREPORT ID
RLORV+1,(SP)

014,5P

000014

OFMT14,0MRSLT,
#MWORD ,R3, SRESES, (R4), ORESES, (RS)

011304
011300
006172
005423
000010

011304
011300

006172
012072
000007

104414

062706
005267
012601
004767

PC,CKERLM

005046

011546
012746
011446
012746
010346
012746
012746
012746
012746
010600
104414
062706
000421

PC,RPTREM
(SP)+,R1

BGNMSG

010146
005767
001051
005277
004767

156716
012746
016746
012746
012746
012746
010600
104414
062706

R4 ,(R1)«
RS5,(R1).
PC.RPTRES

§§2§§§§§§§§§§§§’§§§§§§§§§§§§§§

3202
3203
3204
3205
3206
3207
3208

166516
002140

44:

ENDMSG
L10011:

s INC COMPARE ERROR COUNT
+RESTORE R1

;GO CHECK IF ERROR COUNT EXCEEDED

M5
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-23

SEQ 0064

ERROR MESSAGES

104423

3224

3225

BGNMOD

3226 014306

014306

3228 014310
3229 014312
35230 014314
3231 014316
3232 014320
3233 014322
3234 014324
014324

000006

174400
000160
000240
000001
000000
000001

BGNHW

ENDHW
L10012:

TRAP
.EVEN
HPTCODE

.MORD

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

g;z 014324

ENDMOD

3237 014324
3238 014324
014324

000006

BGNMOD
BGNSW

000000

MISWIM: .WORD

3247 014330
3248 014332
3249 014334

000000
000377
000000

LOLIMY:
HILIMM:
HEADM:

3239 014326
3240
3241
3242
3243
3244
3245
3246

3250 014336
3251 014340

- 3252 014342
014342
3253 014342

000024
000012

3255 014342

3257 014342

014342
014344

000020
025072

014362

032372

014346
014350
014352
014354
014356
014360
014364
014366

014370
014372
014374
014376
014400
014402

3262 014404

L10012-L$HW/2

174400
160
240
1
O
1

.WORD

L10013-L$SW/2

.WORD
.WORD
.WORD

O
255.
O

.WORD
.WORD

ENDSHW
L10013:
ENDMOD

DSPCODE

DISPATCH

20.
10.

025352
025560
027300
030202
030606
031574

.
.
.
.
.
.

T2
73
T4
15
16
17

032460
033016

.
.

79
T10

033376
034154
034530
034750
035230
035644

ENOMOD

1CSR BASE ADDRESS DEFAULT
s VECTOR DEFAULT
sPRIORITY DEFAULT
s TYPE OF DRIVE, RLO1=1, RLO2=2
:ORIVE NUMBER DEFAULT
sRL11 CONTROLLER

SPTCODE

ERLIMM:
DCLIMW:

BGNMOD

C$MSG

3227 014306

ENDMOD

014304

3223 014306

1BIT O = USE ALL CYLINDERS
1BIT 1 = USE ALL SECTORS
;BIT 2 = EXECUTE DRIVE SELECT TEST
1BIT 3 = EXECUTE HEAD ALIGNMENT
1BIT 12 = HEAD SELECT SUPPLIED FLAG
1BIT 13 = HILIMIT SPECIFIED FLAG
:BIT 14 = LO LIMIT SPECIFIED FLAG
:BIT 15 = DO MANUAL INTERVENTION
;ERROR LIMIT
1 COMPARE ERROR LIMIT

CNRLIA RLO1/2 DRIVE

TEST

MACRO M1200

19-DEC-83 09:36

PAGE 42-24

SEQ 0065

ERROR MESSAGES

014404
014404
014406
014410
014412

;LOAD PROTECTION TABLE

BGNPROT

. WORD
.WORD
. WORD

000000

177777

000010

ENDPROT

.SBTTL

3273 014412
3274 014412
5275 014412
014412
014416
014422
014426
014432
014434

012746
012746
012746
012746

PCLK:

103004

NOCLK

MOV

¢'P,.RO

1 JUMP AROUND CLOCK INIT CODE

TRAP
MOV

CsCLCK
RO, CLKADR

MOV
BR

¢1,CLKFLG
TCLK

s INDICATE PRESENCE OF A P-CLOCK
+P CLOCK EXISTS, DO NOT USE L CLOCK.

NOPCLK: MOV

OTSTCLK, 804

;TEST FOR L CLOCK. IF NO CLOCK - SKIP.

166466

BCC

166454

NOPCLK

Jep—

:JSD REV A

tjgg :EE\J :

:JSD REV A

1JSD REV A

014606

012767

000011

166432

MOV

#11,CLKFLG

1 INDICATE THE PRESENCE OF AN L CLOCK,

012737

014544

000100

MOV

MLCLK,80100

;L CLOCK VECTOR POINTS TO LCLK.

MOV
MOV

R1,-(SP)
R2,-(SP)

;SAVE

CLR
MOV

&2
€100,80177546

;START THE L CLOCK,

o1.R2

sBUILD SOFTWARE LOOF. USE ADD TO SET FLAGS.

177546

000100

012716
000002
005037
012701

177546

1¢:

062702
000240
000774

3310 014552

WILL BE DONE THROUGH INSTRUCION LOOPS.

1JSD REV A

012737
005737

005002
012737

3311
3312 014556
33513

s1CLEAR CLOCK FLAG

010146
010246

3309 014550

CLKFLG

REMOVE ALL REFERENCES TO AN EXTERNAL CLOCK. DELAY TIMING

000120

CLR

;ODT STARTING ADDR

:
3

012767
000451

INITIALIZATION CODE

4340, -(SP)
MOV
MOV
2170000, -(SP)
MOV
€140, -(SP)
MOV
#3,-(SP)
TRAP
C$SVEC
ADD
#10,SP
sCHECK FOR PRESENCE OF A CLOCK

000340
170000
000140
000003

166500

012700
104462
010067

;P-TABLE OFFSET OF CSR
sNOT A MASS-BUSS DRIVE
;P-TABLE OFFSET OF DRIVE

BGNMOD INITCODE
BGNINIT
SETVEC 140,#170000,#340

000010

014440

]
-1
10

80177546

R1 ANS R2 ON THE STACK.

014552

LCLK:

#LCLK1,8S5P

sMODIFY THE STACK TO RETURN TO LCLK1.

177546

LCLK1:

CLR

80177546

1STOP THE L CLOCK,

MOV

9166. ,R1

s THIS IS THE DIVISOR TO GET 100 US.

|—

3263
3264
3265
3266
3267
3268
3269
3270
3271
3272

B¢,
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-25

SEQ 0066

INITIALIZATION CODE

5314 014562

005067

5315 014566
3316 014572
3317 014574
;g{: 014576

005267
160102
100401
000773

3320 014600

012602

ggg 014604

000403

3321 014672

166362

166356

1%:

24:

012601

CLR

LBASE

LBASE
R1,R2
2%
1s

iLBASE IS THE APPROXIMATE NUMBER OF ITERATIONS
sNEEDED TO GIVE 100 uS.

MOV

(SP)+.R2

iRESTORE R1 AND R2.

TCLK

$1SKIP RTI HANDLER

INC
SuB
BMI
BR
MOV

(SP)+,R1

5324 014606

012716

014614

TSTCLK: MOV

eTCLL,(SP)

sADJUST STACK FOR RTI

3526 014614
3327 014620

005767
001015

166324

TCLK:

TST
BNE
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JP

CLK?LG

3IF THERE IS NO P OR L CLOCK, DO NOT DO THE
:TEST. PRINT A MESSAGE SAYING WHY THE TEST IS

SETPRI

@340

SETPRI
MOV
TRAP

#PRIOE
OPRIO6,RO
CS$SPRI

5325 014612

3328 014622
3329 014626
3330 014632
3531 014636
3332 014640
5335 014642
3334 014646
;ggz 014652

000002

012746
012746
012746
010600
104417
062706
012701
000111

006664
011753
000002
000006
000200

3337

3ls:

3338 014654

5339 014654
5340 014654
014654
014660
3341 014662
014662
5342 014664

18:

NOCLK :

012700
104441

000300

muu.

104450

103403
042767

100014

35345 014674

005067

166102

012700
104447

000034

3346 014700
014700
014704
3347 014706

014706

35348 014710

3349 014716
3350

3351 014722

014722
014726
3352 014730
014730
3353
3354
33355 014732
3356 014740
3357 014744
3358 014750
3359 014754
3360 014756

103005

016767

165076

000167

000406

012700
104447

000040

177432
28:

166452

165054
166414
003160
000100

166134

2¢

RSTRT:

1¢:

3SET PRI TO 7 TO INMIBIT INT'S

1JSD REV A

INEW LABEL
$SET PRI TO 6 TO INMIBIT INT'S

1JSD REV A
1JSD REV A

;CHECK IF MANUAL INTERVENTION ALLOWED
1 YES - SKIP

24
OMITEST!DRSEL
T !HDALIGN,MISWIW ;CLEAR ALL MANUAL

CLR

SSINDX

8CC

READEF
nov

OEF .PWR
#EF .PUR,RO
CHREFG
mere 4%

READEF

3 INTERVENTION FLAGS

sCLEAR SUBROUTINE STACK INDEX
1POMER FAILURE?

iNO, GO CHECK NEW PASS

LOUNIT PURFLG

SET POWER FAIL FLAG

OEF .START

1 FCK IF START

JHP
PWCON
1 “START” COMMAND SEQUENCE

'
'

+ABORTED.

8CS
B8IC

MoV

4%:

103034

016767
005067
012700
012701
005020
005301

MTSY -(SP)
oFMT9, -(SP)
02, -(5P)
SP,RO
CSPNTF
6,SP
#200,R1
8R1

CSMANI
IC”LETE

014664
3343 014665
3344

RTI

1GO SERVICE POWER FAIL

MOV
#EF .START RO
TRAP
COREFG
BNCOMPLETE
RESTART ;NO - SKIP
8CC
RESTART
ON START INITIALIZE TO START AT FIRST DRIVE, CLEAR INTERNAL
PASS COUNT, AND ERROR COUNT.
MOV
LOUNIT,DRVCNT
;SET UP UNIT COUNT
CLR
PASNUM
sCLEAR PASS NUMBER
MOV
OERRCNT
RO
MOV
064, ,R1
1GET A COUNT
CLR
(RO)«
1CLEAR ERROR COUNTER STORAGE AREA
DEC
R1

CNRLIA RLOL/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

Cée

PAGE 42-26

SEQ 007

INITIALIZATION CODE

3361 014760
3362 014762

3363 014770
3364 014776
3365 015004
3366 015012
3367 015014

3368 015020
3369 015022

3370 015022
015022

015026
3371 015030

3372

015030

3373 015032
3374 015032

001375
012767

012767
012767
032767
001002
005067

000432

012700
104447

015040

103533

3376
3377 015042

015042
015046
3378 015050
015050
3379 015052
3380 015052
3381 015056
3382 015060
3383 015064
3384 015072
3385 015100
3386 015106
3387 015112
3380 015116
3389 015124
3390 015130
3391 015134
015134

015136
3392 015140
015140
3393 015142
3394 015146
3395 015150
3396 015154
3397
3398 015156
3399 015160

3400 0135162
3401 015164
3402 015170

177777
177777
040000

166364
166004
177314

177310

LAB:

sLOOP TILL ALL CLEARED
OEllRCNT 2. EMINY 1INIT ERROR POINTER

MOV
MOV
BIT
BNE
CLR

e-1, PSEM
0-1.m
SLOCYL ,MISWIW
Ss
LOLIMW

1SET PARAM SELECT TO INITIAL VALUE
1PRESET HEAD ALIGN DONE FLAG
sTEST IF LO LIMIT SET
1 YES - SKIP
sELSE CLEAR LO LIMIT

READEF
flov

#EF .RESTART
RO
®EF .RESTART

sCHECK IF RESTARTY

Ss:
1
RESTART:

000037

SETDON

CSREFG
OCO'LETE

RSTRY
RSTRT
8CS
+ “CONTINUE* COMMAND SEQUENCE

CONTINUE:
READEF

MOV
TRAP

000036

OEF.CONTINUE

,RO
®EF ,CONTINUE
COREFG

BCOMPLETE

012700 000035

1NO - SKIP

TEST IF CONTINUE

PUCON

8CS
PWCON
ON CONTINUE PICK UP UNIT LAST UNDER TEST
READEF OEF .NEW
,CHECK IF STARTING NEW PASS

MOV
OEF .NEW,RO
CSREFG
TRAP
BCOMPLETE
PASNEW
PASNEW
8CS
103403
NXTPAS:
005767 166016
ST
DRVCNT
sTEST IF ALL UNITS CHECKED
001013
BNE
SETDON
IND - SKIP
005267 166274
PASNEW: INC
PASNUM
;ELSE BUMP PASS COUNT
012767 003156 166064
MOV
GERRCNT -2, emm%MY ERROR POINTER
016767 164714 165774
MOV
LSUNIT,DRVCN
ALL DRIVES
012767 177777 166254
MOV
e-1 'sé .ser PARAM SELECT TO INITIAL
005267 166250
SETDON: INC
PSE TNM
JNEXT SET OF PARAMETERS
103447

005367
062767
016700
012702

165756
000002 166032
166232
003026

104442

010001
103406
005767 166222
001741
005367 166214
000736
012122
012122
005721
012167
012122

DEC
ADD
MOV
MOV

GPHARD
AP

mcm
02, ERRPOINT
PSETNM,RO
ORLBAS ,R2
RO,R1
C

;00MN COUNT DRIVE TOTAL
JUPDATE THE ERROR POINTER
1SET UP TO GET PARAMETERS
sGET POINTER TO RL11 BASE ADDRESS

MOV
RO,R1
B8COMPLETE
7
4SKIP IF GOOD PARAM
8CS
74
ST
PURFLG
JRECENT POWER FAILURE
BEQ
NXTPAS ;NO
DEC
nnn.c
JACCOUNT FOR DRIVE
B8R
TPAS
sMOVE P-TABLE comms TO LOCAL STORAGE
74:
MOV
(R1)e,(R2)¢
1STORE CSR
MOV
(R1)e,C(R2)+
1STORE VECTOR

165106

3403 015172 022767 000001
3405

BNE
MOV

166166

103743

015032
015036

3375 015040

003156

165076

TST
MOV
MoV

(R1).
(R1). .7 DRIVE
(Il.)o (R2)+

T.0RIVE

6
BEQ
+INITIALIZE RLO2 PARAMETERS

1BUMP PAST PRIORITY
;STORE DRIVE TYPE

MACRO M1200

CNRLIA RLOL1/2 DRIVE TEST 1

19-DEC-83 09:36

PAGE 42-27

INITIALIZATION COOE
3406 015202

000776

000777
001000
177600
177600
177600
177000

015256
015264

012767
012767

000377
000400

015300
015306
015314
015322

012767
012767
012767
012767

015330
015336
015340

015346
015352
015356
015362

SORERSRSEs SELEEE §
VE

012767

012767
012767
012767
012767
012767
012767

3407 015210
015216
015224
015232
015240
015246
015254

015272

015366
015370
015374
015400
3428 015402

000425

MOV
MOV
MOV
MOV
MOV

165076
165064
165064
165060
165054

MOV
MOV
B8R

165050
165030

077600
077600
000376
177400

165016
165012
165006
165002
164764
164754

JINITIALIZE RLO1 PARAMETERS
0255. ,HLNTW
MOV
658:

032767
001003
016767

020000

176770

PucON:

164736

176764

012746
012746
016746
012746

000340
016374
165446
000003

012767

104437
062706

012700
104441
016702

015410

103004

3435 015412
3436 015416
3437 015420

005767
001001
000514

&3 o1

3443 01
3444
3445 015430
5446 0135434
3447 015440
3448 015444
3449 015450

3450 015456
3453 015524
3454 015526

165016

077600

14:

000010
000000
165420

165376
000200
000000
000170

005301
001350

r.cxcn.nxsuxu

MOV
SETVEC
MOV
MOV
MOV
MOV
TRAP
ADD
SETPRI
MOV
TRAP
MOV

HLMTW, HILIMY
RLVEC.®INTHLR,#340
sSET UP INTERRUPT VECTOR FOR DRIVE
0340, -(SP)
SINTHLR, -(SP)
RLVEC, -(SP)
o3, -(5P)
CHSVEC
€10,5P
@0
1SET PRIORITY TO O TO ALLOW INTERRUPTS
€0,R0
C#SPRI
RLBAS,R2
4SET RL11 BASE ADDRESS POINTER

016705
032705
010362
012701
001075

BIT

000001

CSMANI

as
BNCOMPLETE
as
8cc
ST
PASNUM
"
BNE

165742

032762

0256
. ,GBND
077600, CAMSK
. DIRMSK
#77600
HOC YL
077600,
0254, NXTHL
€177400,CLRBYT

TRAP

005767

001511

MOV
MOV
MOV
MOV
MOV
MOV

MANUAL

1044%0

3440

0510. ,NXTHL
o511. HLMTW
#512. ,GBND
#177600, CAMSK
#177600,DIRMSK

JMANUAL INTERVENTION ALLOWED?

1NO

JYES, CHECK PASS NUMBER
iNOT FIRST PASS, NEED DRIVE UP
JFIRST PASS, PROGRAM WILL INSTRUCT USER

;CHECK IF POMER FAILURE WAIT IS NEEDED

as:

000000 94:

ST
BEQ
MOV
8IS
MOV
MOV
8IT
BNE
WAITMS

DEC

BNE

PURFLG
JNEEDED?
sNO, SKIP
8¢
;ORIVE SELECT
RLORV,RS
+SET CRDY
OCRDYMSK , RS
1SELECT DRIVE
RS,RLCS(R2)
sINITIALIZE WAIT COUNT
€120. .R1
JORIVE UP YET
#DRDYMSK ,RLCS(R2)
JYES START TEST
8t
10.

R1
94

JMAIT A SECOND

sSIXTY GONE BY
1NO

CNRLIA RLO1/2 DRIVE

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-28

SEQ 0069

INITIALIZATION COOE

015652
015652
015652

§§§§§§§§§§§ §33333385¢C 33ases

3457
3458 015616
015616
015622
015626
015630
015632
3459 015636
015636
015642
3460 013644
015644
3461
3462 015646
3463
3464 015652

012746
012746
012746
010600

006060
012373
000002

104417
062706

156716

012746
016746
012746
012746
012746
010600

104417
062706

012746
012746
010600
104417
062706
016700
104451

PRINTF

165251
006053
165234
006042
011567
000005
000014

011553

000001

000004

165520

104444
005067

015556
015562
015566
015572
015576
015602
015606
015610
015612

PRINTF oFMT24, ONOPWR

3455 015530
015530
015534
015540
015544
015546
015550
3456 015554
015554

165266

ENDINIT
L1001S:

104411

;REPORT

“DRV DID NOT REC'R FROM PWR FAIL"

02, -(SP)

”.m
CSPNTF
#6,SP

wg.MSW.RDAS.OORMJB.RLDfiVOD +REPORT DRIVE UNIBUS

RLDRV+1,(SP)
RLBAS, -(SP)
#BASADD, -(SP)
95, -(SP)
SP,RO
COPNTF
#14,5P

OFNTS

OFMT3, -(SP)

iNEW LINE

3+ /ADDRESS AND DRIVE NUMBER

SP,RO
COPNTF

o4,5SP

PSETNM

PSETNM,RO

C$D00V
CSDCLN

ERRVEC

;100 DROP UNIT ON DRIVE

s INVOKE CLEAN-UP CODE TO RESTORE DRIVE
1/70 STATIC STATE

sCLEAR ERROR VECTOR

COINIT

ENDMOD

015654

.SBTTL

AUTO DROP SECTION

sTHE AUTO DROP SECTION IS INVOKED BY THE DIAGNOSTIC SUPERVISOR WHENEVER THE
+*ADR” FLAG IS SET BY THE OPERATOR. IT IS EXECUTED AFTER THE INITIALIZATION
+CODE AND CHECKS THE DRIVE TO DETERMINE IF IT IS READY TO RECEIVE A COMMAND.
+IF THE DRIVE IS NOT READY IT IS DROPPED FROM THE TEST CYCLE AND THE NEXT
sORIVE IS ACCESSED. IF THE DRIVE IS READY THE HARDWARE TESTS ARE PERFORMED
+AFTER WHICH THE NEXT DRIVE IS ACCESSED.

165506
012746
012746
016746
012746

000340
016436
165244
000003

BGNAUTO

CLR

SETVEC

MOV
MOV
MOV
MOV

TRPFLG

JCLEAR TRAP FLAG

ERRVEC,#TRPHAN, #340

9340, -(SP)
STRPHAN, -(SP)
- (SP)
ERRVEC,
o3, -(SP)

4SET UP TRAP VECTOR TO DETECT

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

F6&

PAGE 42-29

SEQ 0070

AUTO DROP SECTION

015700

3482
3483

TRAP

104437

015702 062706 000010

3484 015706
3485 015712
3486 015716
3487 015722
3488 015724
015724
015730
015734
015740
015742
015744

3489

3490 015750

015750
015752
015756
015762
015766
015772
015776
016002
016004
016006
3491 016012
016012
016016
016022
016024
016026
3492 016032
016032
016036

3493 016040
3494 016042
3495 016046
3496 016052
3497 01605
3498 016064
3499 016066
016066
016072
016076
016102
016104
016106
3500
3501 016112
016112
016114

016120
016124
016130
016134

016702
005762
005767
001447
012746
012746
012746
010600

ADD

165114
000000
165444

MOV
ST
ST
BEQ
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

006754
012373
000002

104417

062706 000006
005046
156716
012746
016746
012746
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
016700

CHSVEC

#10,5P

RLBAS ,R2
RLCSCR2)
TRPFLG
14
OFMT24,ONOCTLR
ONOCTLR, -(SP)
#FMT24, -(SP)
02,-(SP)
SP.RO
CSPNTF
06,5P

JGET RL11 BASE ADORESS
JACCESS
CONTROLLER UNIBUS ADDRESS
OCCUR?
DID TRAPDRIVE
;BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR
ELSE, PRINT MSG. “DRV DROPPED - NO CNTLR*

sPRINT DRIVE INFORMATION

PRINTF @FMTS, 8BASADD ,RLBAS , SORVNAM,

CLR
BISB
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
PRINTF
MOV
MOV
MOV
TRAP
ADD
DODU
HOV

-(SP)
SORVNAM. - (SP)
RLBAS, -(SP)
#BASADD, -(SP)
oFMTS, -(SP)
o5, -(5P)
SP.RO
COPNTF
014,5P
OFMT3
OFNTS, -(SP)
01,-(5P)
SP,RO
COPNTF
o4,5P
PSETNM
PSETNM.
RO
2
RLDRV, RS
@CRDYMSK , RS

012746 012373
012746 000002
010600
104417
062706 000006

B8R
MOV
8IS
MOV
8IT
BNE
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD

005046
156716
012746
016746
012746
012746

MOV
MOV
MOV
MOV

BISB

RLDRV.1,(SP)

104451

1 /NON-EXISTENT CONTROLLER UNIBUS
1 /ADDRESS

165055

006053
165040
006042
011567

000014
011553
000001
000004
165324

016705 164764
052705 000200

010562 000000
032762 000001
001046
012746 007003

164713

006053
164676
006042
011567

TRAP

14;

RLDRV+1,(SP)

CHDODU

;D0 DROP UNIT ON DRIVE

sBRANCH TO EXIT
oELSE GET DRIVE MWMBER
T CONTROLLER
READ
RS,RLCSCR2)
.Loao
IN THE ouxve
MMBER
cubm.n.cscuz)}xs DRIVE READY?
24
O PERFORM TESTS IF DRIVE IS READY
#FMT24
, ONOTRDY .nmr MSG. “DRV DROPPED - NOT RDY*
mmv.-(sr)
24,-(SP)
n.-(si
SP,RO
COPNTF
#6,5P
PRINT DRIVE INFORMATION
PRINTF OFMTS,8BASADD,RLBAS
, 0DRVNAM, <B, RLORV+1>
CLR
-(5P)

SORVNAM
., - (SP)
#BASADD,
- (SP)
OFMTS, -(SP)

RLBAS, -(SP)

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-30

SEQ 0071

AUTO DROP SECTION

012746

010600

000005

MOV

SP,RO

TRAP

CSPNTF

PRINTF

OFMT3

016146
016150

104417
062706

000014

ADD

016154

012746

011553

MOV
MOV
MOV
TRAP
ADD
D00V
MOV
TRAP

OFMT3, -(SP)
01,-(SP)
SP,RO
CSOPNTF
04,SP
PSETNM
PSETNM,RO
C$DODV

MOV

ERRVEC,RO

TRAP

C$AUTO

SETVEC

ERRVEC,@TRPHAN, @340

016160
016164
016166
016170
3503 016174
016174
016200
3504 016202

012746
010600
104417
062706

000001

000004

016700
104451

165162

016202
016206

016700
104436

164732

016210

104461

3505 016210
016210

3506
3507 016212
3508 016212
3509
3510 016212

016212
016216
016222
016226
016232
016234

24:
ENDAUTO
L10016:

012746
012746
016746
012746
104437
062706

MOV
MOV
MOV
MOV
TRAP
ADD

000340
016436
164712
000003
000010

016240

012700

000300

3514 016246

032762

000200

000000

164550
000001

000000

001407
056762
032762
001022

016700

164464
165016

3523 016354

005767
001402
005367

016360
016364

016700
104436

164554

016366

104412

3527 016370
3528 016370
3529 016372

000240

3521 016346

TRAP

ERRVEC

100 DROP UNIT ON DRIVE

;RELEASE THE ERROR VECTOR

C$CVEC

BGNCLN

3515 016254
3516 016256
3517 016264
3518 016272
3519 016274
3520 016340
016340

CLRVEC

014,5P

165010

2%:

000000

3¢:
S¢:

74:
ENDCLN
L10017:
BGNOV

ENDDU

0340, -(SP)
@TRPHAN, -(SP)
ERRVEC, -(SP)
3, -(SP)
CSSVEC
010,5P

SETPRI &7

SETPRI #PRIO6

+SET PRIORITY TO 7

+SET PRIORITY TO 6

MOV

#PRIOG ,RO

8IT
BEQ
BIS
BIT
BNE

s TEST IF CONTROLLER READY
#CRDYMSK ,RLCS(R2)
1NO LOOP UNTIL READY
3¢
RLDRV,RLCS(R2) ;SET DRIVE NUMBER
1 TEST IF DRIVE BUSY
#DRDYMSK ,RLCS(R2)
iNO_- SKIP
S¢
3
RLVEC

1WAIT 300 MS
+RELEASE DRIVE VECTOR

187

PURFLG

1PUR FAIL SET

CLRVEC

ERRVEC

TRAP

WAITHS
CLRVEC

BEQ
DEC

C4SPRI

74
PWRFLG

1NO

>»>»

3502 016154

53
3

016140

016144

H6
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-31

SEQ 0072

AUTO DROP SECTION

016372
3530

016372

L10020:

104453

TRAP

csDU

gg;é 016374

ENDMOD

;ggz

.SBTTL

INTERRUPT SERVICE ROUTINES

3535 016374

BGNSRY

INTHLR

3536

|INYEWT HANDLER FOR DRIVE ABORTS WAIT TIMER AND STORES ALL RL11 REGISTERS

3537
3538 016374

012267

164444

nov

DLYCNT
(R2)+,7.CS

1CLEAR UNELAPSED DELAY COUNT
1STORE RL REGISTERS

3540 016404
3541 016410
3542 016414
3543 016422

012267
011267
012767
016702

164440
164436
177777
164400

MOV
MOV
MOV
MOV

(R2)+,T.DA
(R2),T.MP
@-1,D0NE
RLBAS,R2

1SET _DONE FLAG
sRESTORE R2

016426
. 016426

000002

MOV

3539 016400 012267 164442
3544 016426

164364
ENDSRV

L10021:

3546

3547
3548 016430

005367

016434
— 016434

000002

s TIME INTERVALS
BGNSRV CLKINT

164506

ENDSRV

L10022:

3552

3553
3554 016436

DEC

DLYCNT

sDECREMENT CLOCK DELAY COUNTER

RTI

s INTERRUPT SERVICE ROUTINE SETS TRAP FLAG WHEN A NON-EXISTENT UNIBUS ADDRESS IS

3555 016436

005267

016442
— 016442

000002

3556 016442

RTI

s INTERRUPT SERVICE ROUTINE FOR P-CLOCK DECREMENTS DELAY COUNTER AT 100-MICROSECOND

3549 016430

3550 016434

(R2)+,7.BA

s ACCESSED
BGNSRV
TRPHAN

164724

ENDSRV

L10023:

INC

TRPFLG

;INDICATE THAT TRAP OCCURRED

RTI

ggg:

.SBTTL

GLOBAL SUBROUTINES

gg:g 016444

BGNMOD

GLBSUB

3562
3563

5
ERROR LIMIT CHECKING ROUTINE
3
DROPS DRIVE IF ERROR LIMIT EXCEEDED
CKERLM: CMP
SERRPOINT ,ERLIMW
s TEST IF ERROR LIMIT EXCEEDED
BLT
14
tNO - SKIP
INLOOP
sCHECK IF IN ERROR LOOP
TRAP
CSINLP
BCOMPLETE
1¢
sYES - SKIP
8CS
i

3564 016444

027767

016454
3567 016456
016456

104420

3565 016452
3566 016454

3568 016460
016460
016464
016470
016474

016500
016502
016504

3569 016510

1JSD REV A

002453

164506

103451
012746
016746
012746
012746
010600

104417
062706

011225
1735646
012400
000003

000010

175664

PRINTF
MOV
MOV

OFMT25,ERLIMM,#MEXERS ;PRINT MSG. “OVER ERROR LIMIT - UNIT DROPPED"
SMEXERS, -(SP)
ERLIMM, -(SP)

MOV
TRAP
ADD

SP,RO
COPNTF
#10,SP

MOV
MOV

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

PRINTF OFMTS,#BASADD,RLBAS, DRVNAM, <B,RLDRV+1> ;PRINT DRIVE INFORMATION

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-32

SEG 0073

GLOBAL SUBROUTINES

3573
3574
3575
3576 016604
3577 016612
3578 016620
5579 016626
3580 016634
3581
3582
3583

011553
000001

MOV
MOV
MOV

OFMT3, -(SP)
e1,-(SP)
SP,.RO

000004

ADD
DODV
MOV

#4,SP
PSETNM
PSETNM,RO

012746

012746
012746
010600

104417
062706

012746
012746
010600

104417
062706

016700
104451

000014

PRINTF

TRAP

164564

TRAP

DOCLN

TRAP

104444
000207

RTS

COPNTF

C$DODU
C4DCLN

MOV
MOV
MOV

016267
016267

RTS

CLR
BIT

BEQ
JSR
ST

164142

14:

1GO TO CLEAN WP

RLCSR(R2),T7.CS
RLBA(R2),T7.BA
RLDA(R2),T7.DA
RLMP(R2),T.MP
PC

1GET CS REG
1GET BUS ADDRESS REG
1GET DISK ADDRESS
$GET MULTI-PURPOSE REG
sRETURN

WAIT FOR CONTROLLER TIMEOUT TO FORCE INTERRUPT ROUTINE

WAITIN: MOV

177724
164122

:DROP DRIVE

READ AND STORE ALL RL1

READRL: MOV

016267

032762
001006

OFMT3

sMAKE ROOM FOR ERROR POINTER
sCLEAR FOR POINTER
s TEST IF CONTROLLER READY
OCRDYMSK ,RLCSR (R2)
41
sNO - SKIP TO MAIT

(SP),-(SP)
2(SP)

PC ,READRL
OONE

BEQ
MOV

S¢
OMTOSLOMW, 2(SP)

BEQ
MOV

24
SMDRRES ,2(SP)

MOV
ASL
ASL
MOV

01 ,0LYCNT
DLYCNT
DLYCNT
10.,(PC)

BIT

RTS

LHMORD

MOV

LMORD

DEC
BNE
DEC

n
WAITUS

8IT

BNE

sREAD ALL RL REGS
;TEST IF INTERRUPT OCCURRED
PT
ERR FLAG
iNO - GO SET NO INTERRU

S0PIERR,T.C

sELSE SET TOO SLOW ERROR POINTER
sTEST IF OPI SET
1NO - SKIP
1SET MESSAGE FOR NO DRIVE RESPONSE
1RETURN
sINITIALIZE DELAY COUNT
sMULTIPLY BY 2
sMULTIPLY BY 2 AGAIN
s IMPLEMENT TIME DELAY LOOP

LSDLY,(PC)e
O

-6(PC)
.-4
-22(PC)

.'a
600.

OCRDYMSK ,RLCS( R2

3¢

WAIT 6 MS

sTEST IF READY NOW SET
1YES - SKIP

PPP>

3572

-(SP)
RLDRV+1,(SP)
SQDRVNAM, -(SP)
RLBAS, -(5°)
#BASADD, -(SP)
OFMTS, -(SP)
o5, -(SP)
SP,RO
CSPNTF
#14,5P

222322

3571

CLR
BISB
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

005046
156716
012746
016746

F T ER]

3570

016510
016512
016516
016522
016326
016532
016536
016542
016544
016546
016552
016552
016556
016562
016564
016566
016572
016572
016576
016600
016600
016602

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-33

SEQ 0074

GLOBAL SUBROUTINES

3609 016754
3610 016760
3611 016766
3612 016770
3613 016774
3614 016776
3615 017002
,!:{g 017010
3618

004767
012766
000751
005767
001334
004767
012766
000740

177624
006273

000002

164012
177602
006240

3%:

000002

005067
105067
005067
000207

163766
164343
163766

3624
3625 017030
3626 017034
3627 017042
3628 017044
3629 017050
3630 017056
3631 017060
3632 017064
3633 017070
3634 017072

016746
012767
000412
016746
012767
000404
016746
005067
010346
016703

164072
000013

164064

164056
000003

164050

005723
016663
162763
010367
010046
010146
012767

164042
164036
163704
000004
000004
163662

002404
002404

000002

163664

001513
032762
001422

040000

3648 017216
3649 017222

012701
004767

000062
177632

3651 017230

032767

000001

3647

3650 017226

3652 017236

020034

001072

TST
MOV
SUB
MOV

3665 017346

001462

052767
000456
032767
001052

000000

LNLIST

498
S0¢:

163606

005301
001325

040000

163516

040000

163546

OPFLAG
NOERCT
MORECE
PC

1CLEAR OPERATION FLAGS
sRESET INMIBIT ERROR COUNTING
sRESET MORE COMPARE ERRORS

RO, -(SP)
R1,-(SP)
#2 ,ERRSHI

BEQ
BIT
BEQ
WAITMS

iNO
- SKIP
mvm RLCS(R2) ;TEST IF DRIVE ERROR SET
494
sNO
- SKIP
3
.\lAIT FOR DRIVE TO SETTLE

MOV
JSR

#50. ,R1
PC.GSTAT

sINITIALIZE WAIT COUNTER
1GET DRIVE STATUS

BIT

SDRDYMSK, T.CS

s TEST IF DRIVE READY

ME
3

BNE

8IT
BNE
BIT

BEQ

5S1$:

(R3).
;BUMP IT FOR NEXT ENTRY
4(SP),SUBSTK(R3) ;INSERT THIS CALL
4 ,SUBSTK(RS)
sADJUST IT TO CALLING LOCATION
R!.SSMX
1STORE IT BACK

MOV
MOV
MOV

BIT

3653 017240 032767 000020 163604
3654 017246 001010
3655 017250 032767 144000 163574

3656
3657
3658 017256
3659 017260
3660 017266
3661 017270
3662 017276
3663 017300
5664 017344

1READ RL REGS
;SET MESSAGE FOR CONTROLLER HUNG
1 SKIP
1ELSE CHECK IF INTERRUPT OCCURRED
s YES - SKIP TO SET T0O0 SLOW
sREAD RL REGS
;:ELSE SET NO INTERRUPT FLAG
1GO TO RETURN

GET STATUS AND GET STATUS WITH RESET ROUTINE
3
1 STORE - TEMPA
TEMP4, -(SP)
GSTATR: MOV
1SET FOR RESET
OGETSTAT!DRSET, TEMPA
MOV
BR
GSTATG
1STORE TEMPA
TEMP4, -(SP)
GSTATC: MOV
SGETSTAT,TEMPA ;SET FOR NO RESET
MOV
BR
GSTATG
1STORE TEMP4
TEMP4, -(SP)
GSTAT: MOV
CLR
TEMPSE
$1SET FOR SAVE L. AND T. REGS
GSTATG: MOV
RS, -(SP)
sSTORE R3
MOV
SSINDX ,R3
1GET SUBROUTINE INDEX

3642 017132 032767 000010 163766

3643 017140
3644 017142
3645 017150
3646 017152

PC,READRL
OMCONHNG ,2(SP)
24
DONE
1s
PC ,READRL
OMNOINT ,2(SP)
24

OPERATION AND TEST INITIALIZE ROUTINE

TSTINT: CLR
CLRB
CLR
RTS

3619 017012
3620 017016
3621 017022
3,:225 017026

3635 017076
35636 017100
3637 017106
3638 017114
3639 017120
35640 017122
3641 017124

Ss:

JSR
MOV
B8R
ST
BNE
JSR
MOV
B8R

BIS
BR
BIT
BNE
HWAITMS
DEC
BNE

Ofifif TEMP4

1STORE RO
1STORE R1
$1SET FOR NO ERROR RETURN

sTES'I’ IF DRIVE RESET

1YES - GO DO CLEAR

OHOSTAT, T.MP
nELSE TEST IF HEADS OUT
Si¢
YES
- BYPASS RELOAD WAIT FLAG SETTING
OSPDSTAT!FCESYAT!\OESTAT T.MP ;TEST IF DRIVE HAS ERROR

1)
ORELDWT ,0PFLAG
Ss
SDRVERR,T.CS
5¢
1
R1
50¢

iNO - SKIP

1 THAT CAUSED HEADS TO
1UNLOAD

aELSE SET WAIT FLAG
1SKIP TO CLEAR
nTEST IF DRIVE ERROR NOW
1YES - SKIP TO CLEAR
1WAIT FOR DRIVE TO GET ERROR, READY, OR MEADS OUT
1DEC MWAIT COUNTER
+IF NOT DONE, LOOP

K6
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-34

S5EQ 0075

GLOBAL SUBROUTINES
3666 017350
3667 017354
017354
017356
017360
017362
3668 017364
5669 017370
3670 017374
3671 017376
3672 017402

3673 017406
3674 017410
3675 017412
3676 017414
3677 017422
3678 017424
5679 017432
3680 017432
3681 017436
3682 017444
3683 017452
3684 017460
35685 017466
3686 017474
3687 017524
3688 017530
3689 017532
3690 017540
3691 017546

3703 017660
35704 017664
017664
017666
017670
017672
3705 017674
3706 017676
3707 017726
5708 017732
3709 017734
3710 017742
3711 017744
3712 0177352
3713 017754
3714 017760

012703

104456
023421
000000
012464
000167
005767
001013
012701
012703
014346
005301
001375
012767
000403
016767

011103

TRAP

C$ERHRD

003044

005767
001530
016767
042767
032767
001527
032767
001444
012701
032762
001036

163256

163342

163314
177770

000010

163406

8s:

BNE
MOV
MOV
MOV
DEC
BNE
sngv

-1
04 ,R1
oL.MP+2,R3
-(R3),-(SP)
R1
8¢
:(.ITSTAT.L.DA

2::

MOV

TEMP4,L.DA

1NO SKIP
1SET SAVE COUNT
1SET ADDRESS OF FIRST SAVE
1PUT REG ON STACK
1DEC COUNT
:LOOP UNTIL ALL SAVED
1SET FOR GET STATUS
1 SKIP
s INSERT PRESET FOR STATUS

CLR

DONE

163370
163362
163354
000004
000000
163320

163312

TST

WAITUS
TST

a4:

BEQ

MOV
BIC

BIT
BEQ
BIT
BEQ

163264

000000

JHP

MOV
8IC
8IS
MOV
MOV

163220
001130
000001

10001
O
ERR1

13¢:

MOV

TEMP4

RLDRV,L.CS
#8IT10,L.CS
#GTSTAT,L.CS
L.DA,RLDACR2)
L.CS,RLCSR(R2)
1
DONE

1¢

QORSET,L.DA
3¢
ORELDMT ,OPFLAG
12.

006327

lTEST IF RELOAD MWAIT FLAG SET

- SKIP
iNO
MTI&IIE WAIT COUNTER

124

OMRLFAL ,R3

163100

- SKIP TO EXIT
sNO

ERRMRD
TRAP
.MORD
LMORD
.MORD

001000

s TEST IF RESET WAS SPECIFIED

WAITMS

MOV

163102

1LOAD CS REG
JWAIT FOR INTERRUPT
1CHECK IF INTERRUPT OCCURRED

WYHSK RLCS(R2) |TEST IF DRIVE NOW READY

011150

100000

1LOAD RL REGS

B8IT

BNE

177202

12¢:

1CLEAR INTERRUPT FLAG
+SET UP _TO GET STATUS
+CLEAR FOR DRIVE 4 - 7 SPEC'D

- SKIP
iNO
SY“ MP REGISTER
® C<STAMSK>,T. STAT sCLEAR ALL BUT STATE

&
PC,GSTAT

177126

s TEST IF SAVE REGISTERS

T.MP,T.STAT

DEC
BNE
-3)?'

104456
023423
000000
012464
000455

sMESSAGE FOR UNDEFINED STATE

tEXIT

163416
163476

10001.,.ERR1

144

11%:

163532

163350
163370
002000
000104

004767
020034
032767
001434
032767
001403
012703
000417

OMUNDEF ,R3

ERRHRD
.WORD
.MORD
.WORD

005067
016767
042767
052767
016762
016762

005301
001350
004767
020034
012703

MOV

BR
WAITUS

10003., ,ERR1
Cs
10003
O
ERR1

14¢
10.

PC,GSTAT

BIT

#ANYERR,T.CS

MOV
BR

OVCNRST ,R3
24

BEQ
BIT
BEQ

3¢
OVCSTAT, T.MP
74

1GET DRIVE STATUS
1ERROR RETURN
+SET RESULT MESSAGE POINTER

1GO_TO EXIT

IWAIT

1GET DRIVE STATUS
s TEST IF ANY ERROR
1NO - SKIP
sCHECK IF VOLUME CHECK RESET
1 YES SKIP

1SET REASON POINTER
1EXIT

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-35

SEG 0076

GLOBAL SUBROUTINES

032767
001405

040000

163054

7%:

BIT
BEQ
ERRHRD
TRAP

104456
023424

000000
012766
006350

9¢:

176620

1$:
28:

;?WEM.T.CS
10004., ,ERR6
CS$ERHRD
10004
0
ERR6

3715 017762
3716 017770
3717 017772
017772
017774
017776
020000
3718 020002
5719 020004
5720 020010
5721 020012
3722 020016
3723 020020

144

SUNXERR,R3
2
PC,WAITIN
(SP)+,R3
10002. , ,ERR1
CSERHRD
10002

;CHECK IF DRIVE ERROR
iNO - SKIP

sEXIT

1SET REASON POINTER
$EXIT
sWAIT FOR INTERRUPT
1STORE REASON POINTER FOR RETURN

224¢:

163026
162712
162704

5740 020112
3741 020114
3742 020116
3743 020122
3744 020124
3745

3746
3747 020126

3748 020130
3749 020134
3750 020140
3751 020142
3732 020144
3753 020146
3754
3755 020154
3756 020160

003044

012767

000003

005067

016767

162626
162646

162646

052767

000104

162640
162632

016762

162632

016762

162620

001375

3738 020166 042767
3759 020174

3760
3761 020202
3762

3763 020210

GDRSTA:

010346
012701
012703
014346
005301

14:

162664

37 3RR3IIIR 1§I2QBE233330RRIAEA

162714

#4 ,R1

(SP)+,(R3)e

20¢

#2,SSINDX

(SP)+,R1
(SP)+,RO
(SP)+,R3
(SP)+,TEMPA
ERRSWI
994
ERRSWI, (SP)
PC
8(SP),(SP)

;CLEAR FOR ERROR RETURN
s TEST IF REGISTERS WERE SAVED
iNO - SKIP
1SET POINTER TO RESTORE
1SET REGISTER COUNT
;1RESTORE REG
sDEC COUNT
;LOOP UNTIL ALL ARE RESTORED
sREMOVE ENTRY FROM SUBROUTINE STACK
1RESTORE R1
sRESTORE RO
sRESTORE R3
1RESTORE TEMPA
1 TEST IF ERROR RETURN
:YES - SKIP
sADD IN FOR NO ERROR RETURN

1SET ERROR RETURN ADDRESS

DRIVE STATE ROUTINE
RS, -(SP)
#4,R1
oL .MP+2,R3

-(R3), -(SP)

#GETSTAT,L.DA
DONE
RLDRV,L.CS

8IC

#81710,L.CS
#GTSTAT,L.CS
L.DA,RLDACR2)

20%:

ERR1
ERRSWI
TEMPA
224
8 _.CS.R3

g 8

003034

144
3%:

162762
163066

—~
7

L.CS,RLCSR(R2)

1SAVE R3

1INITIALIZE REGISTER SAVE COUNT

sINITIALIZE ADDRESS OF FIRST SAVE
1SAVE REGISTER ON STACK
1DECREMENT REGISTER SAVE COUNT

;LOOP UNTIL ALL 4 REGISTERS ARE SAVED
1SET UP DISK ADDRESS REGISTER FOR GET STATUS
1+ /COMMAND

1CLEAR INTERRUPT FLAG
1SET UP CONTROL STATUS REGISTER WITH
1 /DRIVE NUMBER
iCLEAR FOR DRIVES 4-7 SPECIFIED
1INITIALIZE CONTROL STATUS REGISTER FOR
1/GET STATUS COMMAND
s INITIALIZE DISK ADDRESS REGISTER FOR
1/GET STATUS COMMAND
;1LOAD CONTROL STATUS REGISTER TO EXECUTE

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-36

SEQ 0077

GLOBAL SUBROUTINES

020232
020240
020246
020252
020256
020260

3775 020262
3776 020264
5777 020266
5778 020272
3779 020274
3780
3781
3782 020276
3783 020304
3784 020306
5785 020312
3786 020314
3787 020320
3788 020322
3789 020330

3793 020346
3794 020350
3795 020356
3796
3797 020362
3798 020366
3799 020370
3800 020376

105762
001775
005767
001416
016767
042767
012703
012701
012623
005301
001375
000402

S%:

162614
177770
003034

004767
012603
000207

176344

012767
000402
005067
010346
016703
005723
016663
162763
010367
010046
010146
010546
012767
005067

177777

162620
162612

162606

162462

016767
026767
003427
166767
016767
016767
022767
001424
162767
012767
012767
000451
005767
100007
005467
016767
005067
016703
166705
100005
012767
005405

3¢
T.MP,T.STAT
lGET CONTENTS OF MULTI-PURPOSE REGISTER
@tC<STAMSK>
, T .STAT ;CLEAR ALL BUT STATE DRIVE BITS
s INITIALIZE POINTER TO RESTORE RL REGISTERS
oL.CS.R3
#4,R1
s INITIALIZE REGISTER SAVE COUNT
(SP)+,(R3)+
sRESTORE REGISTERS
1DECREMENT REGISTER SAVE COUNT
R1
sLOOP UNTIL ALL 4 REGISTERS ARE RESTORED
24
44
PC,WAITIN
sWAIT FOR INTERRUPT
sRESTORE R3
(SP)+,R3

000002
162514

162440

162502
161676

161670
162462
161654

000001

162466
162454
162452
161640

000001
000001
000001

162434
162434
162424

SUB
MOV
MOV
MOV
MOV
MOV
CLR

#4,5UBSTK(R3)
RS, SSINDX
RO, -(SP)
R1,-(SP)
RS, -(SP)
92 ,ERRSWI
DIFAUG

sADJUST IT TO CALLING LOCATION
1STORE IT BACK

JSR

PC,.GETPOS

1STORE REG
+SET FOR NO ERROR RETURN
1CLEAR DIFFERENCE ARGUMENT (FOR SEEKING
___PAST GUARD BAND)
+
1GET PRESENT POSITION

MOV

CURCYL ,0LDCYL

tMOVE CURRENT TO OLD CYLINDER

cHP
BLE
SuB
MOV
MOV
cHP
BEQ
SUB
MOV
MOV

TST

162372
64:

162360

sRETURN

1SET SPECIAL TIMING SEEK FLAG

654

162412

162404
162400
162372
162370
162362

#-1,TEMPL
XSEEK1
TEMPL
RS,-(SP)
SSINDX,R3

BR
XSEEK:
CLR
XSEEK]: MOV
MOV
TST
MOV

162510
162500

DONE

SEEK ROUTINE

004767

021036

BEQ
MOV
B8IC
MOV
MOV
MOV
DEC
BNE
BR
JSR
MOV

XSEEKT : MOV

000002
000004
162440

tWAIT FOR CONTROLLER READY INDICATING
s /RECEIPT OF GET STATUS COMMAND

RLCS(R2)
S$

RTS

162614

1/GET STATUS COMMAND

TSTB
BEQ
TST

162556

5769
3770
3771
3772
3773
3774

020216
020222
020224
020230

o w

3765
3766
3767
3768

3764

BPL
NEG
MOV
CLR
MOV
SUB
BPL
MOV
NEG

(R3).

;CLEAR SPECIAL TIMING SEEK FLAG
1STORE R3
1GET SUBROUTINE INDEX
BUMP IT FOR NEXT ENTRY

2(SP),SUBSTK(RS) . s INSERT THIS CALL

NEWCYL ,HLMTW
3¢
HLMTW,NEWCYL
NEWCYL ,DIFAUG
HLMTW,NEWCYL
#1,7.DRIVE
6¢
#1 ,NEWCYL
#1,DESSGN

lTEST IF NEW IS GREATER THAN 255

- SKIP
INC

lELSE SUBTRACT 255.
1STORE DIFFERENCE AS ARGUMENT
1SET NEMWCYL AS 255.

@1 ,0ESDIF

184

NEWCYL

64
NEWCYL
NEMWCYL ,DIFAUG
NEWCYL
CURCYL ,R5
NEWCYL ,RS
13¢
@1 ,DESSGN
RS

1 TEST IF NEWCYL HAS NEGATIVE VALUE
- SKIP
1NO
1ELSE MAKE IT POSITIVE
sAND STORE IT AS ARGUMENT
sAND SET NEWCYL TO O

1COMPUTE DIFFERENCE AND NEW CYLINDER
1SUB NEWCYL FROM CURCYL

lIF DIFF IS POSITIVE- SKIP(REV SEEK)
1ELSE SET SIGN FOR roaumo

mAKE DIFFERENCE POSITIVE

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

GLOBAL SUBROUTINES

3821 020532 000402

3822 020534
3823 020540
3824 020544
3825 020550
3826 020552
3827 020560
3828 020562

005067
010567
005767
001416
026767
001007
012767

3830 020570
3831 020576
3832 020600

162350
162342
162326

136:
148:

162324

161522

000001

162320

022767
001003
066767

000001

161500

162272

162300

3834 020606
3835 020612
3836 020616
3837 020622
3838 020626
3839 020630
3840 020634
3841 020640

012705
012715
056715
042725
005025
016715
012700
006315

003034
000106
162210
002000

3843 020644
3844 020646

001375
005767

3846 020654
3847 020660
3848 020664
3849 020666
3850 020672
3851 020676
3832 020702

052715
005767
001402
052715
052725
004767
021036

3829

3833 020606

3842 020642

162252
000007

005300

3845 020652 001402

3859
3860 020732

3861 020762
3862 020766

3863

3864

020770

001050
014562
014562
014562

005767
001012
004767

17¢:

e1,T.DRIVE
184
DIFAUG,DESDIF

218:

MOV
MOV
BIS
BIC
CLR
MOV
MOV
ASL

OL.CS.RS
#SEEK.CRS)
RLDRV.(RS)
BIT10.(RS)+
C(RS)e
DESDIF,CRS)
#7.RO
(RS)

JGET RL REG ADDRESS
1SET FOR SEEK
) INSERT DRIVE NUMBER
iCLEAR IF DRIVE 4 - 7 SPEC'D
{CLEAR BUS ADDRESS
{LOAD DIFFERENCE
ISET TO SHIFT DIFFERENCE

BNE
TST

218
DESSGN

;LOOP UNTIL ALIGNED
L TEST SIGN

8IS
TST
BEQ
BIS
BIS
JSR
654

ODIRBIT,(RS)
DESHD
254
OHDSEL,(RS)
OMBSETO.(RS)s
PC,ROYCHK

;ELSE INSERT SIGN
'TEST IF HEAD O
{YES - SKIP
{ELSE SET HEAD BIT
;INSERT MARKER BIT
JCHECK IF DRIVE READY

BNE
MOV

658
-CRS),RLDACR2)

184

020774 012603

3865 020776

020776
021000

104456
023425

021004

021002

3866 021006

000020
000001

254:

3868 021014
3869 021020
3870 021022
021022
021024
021026

308:
308:

MOV
MOV

005767
100006

162024

TST
BNE

DOMNE
TEMPL

-CRS).RLBACR2)
-CRS).RLCSCR2)

JSR

DONE
32¢
PC,WAITIN

ERRMRD

10005,
, ,ERR1

MOV

(SP)+.RS

'SET SIGN FOR REVERSE
i STORE DIFFERENCE
115 THERE A DIFFERENCE ARGUMENT
IND - SKIP
$CHECK IF NEM CYL IS 255.
IND - SKIP
{ELSE FORCE SIGN FOR FORWARD

| CINNER GUARD BAND)

'SKIP IF O

JCLEAR
INTERRUPT FLAG
|CHECK IF SPECIAL SEEK FLAG SET
iYES - SKIP, DO NOT START SEEK
;LOAD RL REGISTERS
;PERFORM SEEK OPERATION

{ALLOW TIME FOR RECEIPT OF SEEK COMMAND ;JSD REV A
'ALLOW TIME FOR RECEIPT OF SEEK COMMAND ;JSD REV A
ITEST IF INTERRUPT DONE
LYES - SKIP
1GO WAIT FOR INTERRUPT

1GET RESULT MESSAGE POINTER

COERHRD
10005

‘WORD

GLR

ERRSMI

,CLEAR FOR ERROR RETURN

T.CS
654

,TEST IF ANY ERROR
IND - SKIP

"WORD

s26:

WAITUS 1
WAITUS 8.

TRAP
MORD

162004

104456
023426
000000

CLR
ST

175642

3867 021012 000411

DEC

8EQ
234:

162020

1 SKIP

M
BNE
ADD

000004
162226

000004
000002
000000

148

SEQ 0078

DESSGN
RS,DESDIF
DIFAUG
18%
NEWCYL.MLMTW
178
1,DESSGN

020704 00S067
162076
005767 162204

3854 020710
3855 020714
3856 020716
3857 020722
3858 020726

PAGE 42-37

CLR
MOV
TST
BEQ
CMP
BNE
MOV

162236

000504

19-DEC-83 09:36

B8R

TIST
BPL

ERRMRD
TRAP
.MORD
'WORD

ERR1

654

10006,
, . ERR6
C#
10006
O

CNRLIA RLOL1/2 DRIVE

TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-38

SEQ 00779

GLOBAL SUBROUTINES

021030

012766

161760

161736

65%:

161730
998:

2202 RORRRSRRRRIRR
B

S
et P gt Pt
—

1146

BRRAS P

2333888555885
£33 33825
5855388E %
(r v X" ]

002404
002404

161656

1132

000106

161712

161676
000004
161666

Ss:
74:

108:

3926 021332
3927 021334

175304

02 ,SSINDX

sREMOVE ENTRY FROM SUBROUTINE STACK

(SP)e.R1
(SP)+.RO
(SP)+.RS
ERRSWI
998
ERRSWI, (SP)

;RESTORE R3
sTEST IF ERROR RETURN
1 YES - SKIP
sADD IN ERROR RETURN

MOV

RTS

MOV

RTS

138:

ERRSWI

(SP)«.RS

#(SP).(SP)

(R4,
DESDIF ,(R4)
o7,.R3
(R&)
R3
3¢
DESSGN
s

8IS
815

CLR
MOV
MOV
MOV
MOV
TST
BNE
DEC
BEQ
WAITUS
8R
JSR
MOV

1SET ERROR RETURN ADDRESS

1STORE REGISTERS
1GET SUBROUTINE INDEX
(R3).
1BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(RS) ; INSERT THIS CALL
84, SUBSTK(RS) +ADJUST IT TO CALLING LOCATION
RS, SSINDX
1STORE IT BACK

CLR
MOV
MOV
ASL
DEC
BNE
ST
8EQ

8EQ

1RESTORE REGISTER

SSINDX,R3

RO, -(SP)
02.ERRSWI
PC . RDYCHX
oL.CS.R4
OSEEK
. (R4)

8IS
ST

1+CLEAR FOR ERROR RETURN

RS, -(SP)

MOV
ST
MOV
SuB
MOV
MOV
MOV
JSR
654
MOV
MOV
8IS
8IC

161650

002000
000007

SuUB

SIMSEK: MOV

161676
000002
000004
161654

ERR6E

MOV
MOV
MOV
1St
BEQ
ADD

161736

3889 021106

. WORD

CLR

RLORV, (R4)
#BIT10,(RA).

SOIRBIT,(RA)
DESHD

, (R4)
SHDSEL
OMBSETO,
(R4 )+

DONE
010. ,R1
-(R4
), ALDACR2
-(R4),RLBA(R2
-(R4),RLCSCR2
DONE
6546
R1
136
1
104
PC,WAITIN
(SP)+,R3
10011, ,ERR1

+SET FOR NO ERROR RETURN

1CHECK IF DRIVE READY

1GET POINTER TO L REGS
1SET FOR SEEK
1+ INSERT DRIVE NUMBER
sCLEAR FOR DRIVE 4 - 7 SPEC'D
sCLEAR BUS ADDRESS
1LOAD DIFFERENCE
1SET COUNT FOR SHIFT TO ALIGN
1ALIGN DIFFERENCE IN DA

1 TEST IF SIGN SEV

- SKIP
iNO

lINSElT SIGN

1 TEST IF HEAD O
INSER

1CLEAR INTERRUPT FLAG
1SET WAIT COUNT FOR 800US
1LOAD RL REGISTERS
1CHECK IF INTERRUPTED
sYES - SKIP
sDEC WAIT COUNT
1IF 0 - SKIP

1GO CHECK DONE
1GO WAIT FOR TIMEOUT
1GET RESULT MESSAGE POINTER

CNRLIA RLOL1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

C7/

PAGE 42-39

GLOBAL SUBROUTINES

021340

021342
021344

TRAP

104456
023433

.WORD
.WORD

.WORD

161446

161424

144

65%:

CLR

161420
99¢:

10011
O
ERR1

1CLEAR FOR ERROR RETURN

MOV
MOV

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

sREMOVE ENTRY FROM SUBROUT STACK
1RESTORE REGS

BEQ
:lrlg

99¢
stfliSUI.(SP)

s YES - SKIP
;ADD IN ERROR RETURN

8(SP),(SP)

1SET ERROR RETURN ADDRESS

SUB
MOV
TST

161426

CSERHRD

ERRSUI

MOV

RTS

ERRSWI

s TEST IF ERROR RETURN

DRIVE READY TEST ROUTINE. CHECKS DRIVE IS READY. IF NOT, WAIT
SO0MS FOR READY TO SET.

MOV
MOV

RS, -(SP)
SSINDX,R3

MOV
SUB
MOV
MOV
MOV
MOV
MOV
MOV
:?

2(SP),SUBSTK(R3) ;INSERT THIS CALL
04 ,SUBSTK(RS)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
$1STORE IT BACK
RO, -(SP)
R1,-(SP)
R4, -(SP)
1SET FOR NO ERROR RETURN
02 ,ERRSUI
WAIT COUNT
1SET
,R1
#5000.
PC,GSTAT
+GET DRIVE STATUS

021334
021336

161366

TST

161344

011610
175376

161344
18:

817

161352

S¢

DEC
BNE

R1
1s

SDROY,R3
#CS00MS , R4

TRAP

CSERMRD

LMORD
LMORD
.MORD

24:

161254

161174

3¢:

10010.,.ERRS

10010
O
ERRS

1BUMP IT FOR NEXT ENTRY

;TEST IF DRIVE READY

1YES - EXIT

1DEC WAIT COUNT
1LOOP IF NOT O

1SET RESULT MESSAGE POINTER
1SET CONDITION MESSAGE POINTER

Hov
g?'

024, .R1
PC.GSTAT

sINITIALIZE MAIT COUNT
1GET DRIVE STATUS

BIT
BNE

QDRDYMSK,T.CS
3¢

TEST IF DRIVE READY
1YES - SKIP

DEC
BNE
8IT
BEQ
ERRMRD

R1
2¢
OANYERR,T.CS
4%
10011.,.ERR6

sDEC WAIT COUNTER
1LOOP UNTIL TIME DONE
s TEST IF ANYERR SET
iNO - SKIP
sREPORT ALL ERRORS

WAITMS

100000

MOV
MOV

ERRMRD

000030
175300

ODRDYMSK,T7.CS

BNE

WAITUS

010404
011404

(R3).

1STORE REGS
1GET SUBROUTINE INDEX

TRAP

tWAIT FOR 100MS

CNRLIA RLOL1/2 DRIVE TEST 1
GLOBAL

MACRO M1200

19-DEC-83 09:36

PAGE 42-40

SEGQ 0081

SUBROUTINES

021654
021656
021660

4052 021662
4053 021666
4054 021672
4055 021700

4056 021702
4057 021704
4058 021706
4059 021710
4060 021714
4061 021716
4062 021722

4063 021724
‘“406; 021730
4066
4067
4068 021732
4069 021736
4070 021744
4071 021746
2;‘;‘ 021754
4074
4075

4076 021756

4077 021764
4078 021766
4079 021772
4080 021774
4081 022002
4082 022006
4083 022010
4084 022014

023433
000000
012766

005367
005067
162767
012604

161272
161124
000002

.WORD
.MORD
.WORD

161102

012601

s TEST IF ERROR RETURN
sYES - SKIP
1ADD IN ERROR RETURN

MOV
RTS

8(SP),(SP)
PC

99 :

161154
010000

172362

161136

i
CHOOSE HEAD ROUTINE. PICKS HEAD O UNLESS SPECIFIC HEAD IS
3
SELECTED BY SOF TWARE PARAMETER.
CHOSHD: CLR
DESHD
1CLEAR _TO HEAD
©
BIT
OHEADLM, MISWIW lTEST IF HEAD SPECIFIED
BEQ
1s
iNO
- SKIP
MOV
HEADM , DESHD
lINSERT SPECIFIED HEAD
1s:
RTS
PC

O0050F7
032767
001403
016767
000207
032767

001011
005767
001006
012767
062716
000207
017616
000207

010000

172342

[
3

3¢:

4111 022050 000402

000001

161056

4118 022102

010367

016663
162763

010046

000002
000004

160674

BNE
ST
BNE
MOV
ADD
RTS
MOV
RTS

MOV
MOV
MOV
RTS

OHEADLM,MISWIW

24
DESHD
24
#1,DESHD
02.(SP)
PC
8(SP),(SP)
PC

002404
002404

RO, -(SP)
u.ocn RO

YL.OLDCYL
(9)-.ao

né

READ HEADERS ROUTINE.

XRDHOC: MOV

TEST IF HEAD SPECIFIED

YES - TAKE ABORT EXIT
i TEST IF HEAD ONE USED
1YES - TAKE ABORT EXIT
JELSE SET FOR HEAD ONE
1BUMP PAST ABORT RETURN
RETURN
JGET ABORT DESTINATION

TENPA
RS, -(SP)

1SET FLAG TO SAVE T. AND L. REGS
1STORE REGISTERS

MOV

SSINDX,RS

MOV
SUB

MOV

sMOVE NEW TO OLD
sPUT OLD IN NEW
JRESTORE RO
1SET FLAG TO BYPASS REG STORAGE

XROHDG

TST

STORE RO
{HOVE OLD TO RO

o1, TENPA

XROMD: CLR
XRDHDG: MOV

4114 022060 016703 160716
005723

1SET ERROR RETURN ADDRESS

SUAP OLD CYLINDER AND NEWSILINDER ROUTINE.

4112 022052 005067 161050
4113 022056 010346
4115 022064

SWAP HEAD ROUTINE. CHANGES SELECTED HEAD TO HEAD 1
UNLESS HEAD O SPECIFICALLY SELECTED BY SOFTWARE PARAMETER.

ONSWAP: MOV
MOV

000207

012767

RTS

SWAPHD: BIT

161120
000001 161110
000002
000000
2¢:

4108

4119 022106

(SP)+.RO
(SP)+,R3
ERRSWI
99
ERRSWI, (SP)

(SP)+,R1

000000

161074

4089 022024 016767 161052 161046
4091 022036 012600

4116 022066
4117 022074

+REDUCE ERROR COUNT FOR DUAL ERRORS
;:CLEAR FOR ERROR RETURN
sREMOVE ENTRY FROM SUBROUT STACK
tRESTORE REGS

017616
000207

000207

4090 022032 010067 161044
4110 022042

ERRCNT
ERRSWI
#2,SSINDX
(SP)+.R4

161102

4087 022016 010046
4088 022020 016700 161054

4109

DEC
CLR
SUB
MOV
MOV
MOV
MOV
TST
BEQ
ADD

012600
012603
005767
001403
066716

4086

4092 022040
4093

4as:
5%:

10011
©
ERR6

(R3)+

GO DO IT

1GET SUBROUTINE INDEX

iBUMP IT FOR NEXT ENTRY

2(SP),SUBSTK(R3) ;INSERT THIS CALL
04,,SUBSTK(R3)
;ADJUST IT TO CALLING LOCATION
R3,SSINDX
1STORE IT BACK
RO, -(SP)

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-41

SEQ 0082

GLOBAL SUBROUTINES

160674

02 ,ERRSWI
TEMPA
24

33005RR33%R -

000002
161000

TST

003044

177234

160626
003034

oL.MP.2,R3

#4,R1

-(R3),-(SP)

R1
1s

PC,RDYCHK

DONE
oL.CS,R1
RLORV,(R1)

#8IT710,(R1 )

8IC
8IS

000110

ORDHEAD,
(R1)e

(R1).
(R1).

000030
174542
160516

#CSSEC,R4
10014., .ERRS
CS$ERMRD

011434

10¢:

- SKIP
1IN0

ISET POINTER FOR REGS
1SET COUNT
1SAVE REGISTER
1DEC COUNT
;LOOP UNTIL ALL ARE SAVED
sCHECK DRIVE READY

sCLEAR INTERRUPT FLAG
1GET ADDRESS OF LOAD REGS
sLOAD DRIVE NUMBER

sCLEAR FOR DRIVE 4 - 7 SPEC'D
1 INSERT COMMAND
1CLEAR BA
1CLEAR DA

sWAIT 1 MS FOR INTERRUPT
s TEST IF INTERRUPT FLAG SET
i1NO- SKIP

lYEST IF DRIVE READY
:YES - SKIP
1SET NO READY MESSAGE
;CONDITION OF AFTER DATA XFER

sINITIALIZE WAIT COUNT
1GET STATUS

118:

160460

10.
DONE
144
SDRDYMSK, T.CS

Uy T e

000001

Ss:

1SET FOR NO ERROR RETURN
1TEST IF REGISTERS TO BE SAVED

sLOAD RL11 REGS
-(R1),RLDA(R2 )
-(R1),RLBA(R2 )
-(R1),RLCSR(R2)

T O

160560

4130 022146
4131 022132
4132 022154
4133 022160
4134 022164
4135 022170
4136 022174
4137 022200
4138 022202
4139 022204
4140 022210
4141 022214
4142 022220
4143 022250

MOV
MOV

010146

010446
012767
005767
001007
012703
012701
014346
005301
001375
004767
022440
005067
012701
016711

bt
1
—~D =i 333cC

022110
022112
022114
022122
022126
022130
022134
022140
022142
022144

It
F
-

4120
4121
4122
4123
4124
4125
4126
4127
4126
4129

10014
0
ERRS
608

1.CS
12¢
10016., ,ERR6
CSERHRD
10016
0
ERR6

s TEST IF DRIVE HAS COME READY
tNO - SKIP
uCLgR ERROR SWITCH
15K
1DEC WAIT COUNT
;LOOP UNTIL TIME DONE
sSET CONDITION AFTER S SECONDS

$EXIT

;CHECK FOR ANY ERRORS
- SKIP
1NO
tREPORT ALL ERRORS

F7
CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-42

S5EG 0083

GLOBAL SUBROUTINES
BR

MOV

003054

G00006
000006

174214

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

104456
023437

160356

60%:
65%:

160462

+REPORT

1CLEAR FOR ERROR RETURN
sTEST IF REGISTERS WERE SAVED
iNO - SKIP
$1SET POINTER TO RESTORE REGS
1SET COUNT
1RESTORE REGISTER
1DEC COUNT
sLOOP UNTIL ALL ARE RESTORED
sREMOVE ENTRY FROM SUBROUT STACK
tRESTORE REGS

POSITION HEAD BIT FROM HEADER OR MULTIPURPOSE REGISTER TO LSB.
HDWRD1 ,RS
.gg‘ FOR POSITION HD BIT IN WD 1

22%:

160310

160302

160314

RTS

8IC

177677

000006

ERRSWI
TEMPA
224
oL.CS.R3
o4 ,R1

1EXIT
tWAIT FOR INTERRUPT
1GET RESULTS

POSHM]:

208%:

160310

0
ERR1

1GET POINTER
1STORE LAST TWO HEADER WORDS

998

003034

160322

604
#HDWRD2,R1
RLMP(R2),(R1)+
RLMP(R2),(R1).
654
PC.WAITIN

§a§§§§§é§=§§

000416
012701
016221
016221
000411
004767
012603

338R733235RR23%R

022400
022404
022410
022414
022416
022422
022424

14 g3 33%3

4166
4167
4168
4169
4170
4171
4172

16:

DEC

RTS

aSP)o(R3)»
204
#2,SSINDX
(SP)O.'“
(SP)e,

(SP)+,R3
ERRSWI
99¢
ERRSMWI,(SP)
PC
8(SP),(SP)
PC

POSHDO
Y 'P.RS

1 TEST IF ERROR RETURN
1YES - SKIP
sADD IN ERROR RETURN
1SET ERROR RETURN ADDRESS

sSTART FOR POSITION HD BIT IN MP
1STORE R1
sCLEAR ALL BUT HMEAD SEL BIT
1SET SHIFT COUNT
$SHIFT FOR RIGHT JUSTIFY

(SP)+,R1
PC

1RESTORE R1
1RETURN

RS
énsstn
n R1

R1
14

WAIT FOR READY ROUTINE. DURATION OF WALT PASSED TO THE ROUTINE
010346
016703
005723

162763

010367

010146
010446

160212

160170

ROYMAILIT;

FROM THE CALLING ROUTINE IN R1.
MOV
TST
MOV
SUB
MOV
MO
MOV
MOV

4165 022376

RS, -(SP)
MOV
1GET
SSINDX,R3

STORE R3
TINE INDEX

1BUMP 1T FOR NEXT ENTRY
(R3).
2( SP),SUBSTK(R3) ;INSERT THIS CALL
sADJUST IT TO CALLING LOCATION
04 ,SUBSTK(RS)
RS, SSINDX
1STORE IT BACK
RO, -(SP)

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-43

GLOBAL SUBROUTINES

023014

160202

7¢:

010404

104456
023444

000000
012600
012701

004767
023052
032767
001033
005301
001345
012704

104456
023445
000000
012716
000410
032767
001406

000030

174132

000001

1SET FOR NO ERROR RETURN
1GET DRIVE STATUS

ODRDYMSK, T.CS

1CHECK IF READY
1YES - SKIP
tDEC WAIT COUNT
1SKIP IF O

9
R1
74
1
54
#MDRDY ,R3

W T

022716
o22722
022726
022730
022736
022740
023004
023006
023010
023014

000001

02 ,ERRSWI

PC,.GSTAT

S¢:

10020., .,ERR3
CS$ERHRD
10020
0
ERR3
#24. ,R1

PC.GSTAT

SORDYMSK,T.CS

160106

8¢
1
R1
64
#CSSEC,.R4

011434

022706
022710
022712
022714

000752
012703

160170

10021., .ERRS
CS$ERHRD
50021

1SET NAME MESSAGE PTR
sREPORT READY ERROR

+ INITIALIZE WAIT COUNT
1GET DRIVE STATUS

s TEST IF DRIVE READY
sYES - SKIP
sWAIT 100 MS
sDEC WAIT COUNT
sLOOP UNTIL TIME DONE
:1SET CONDITION AFTER S SECDS

4304
4305
4306
4307
4308
4309
4310
4311
4312
4313

022632
022634
022642
022644
022646
022650
022700
022702
022706

000002
174226

10000C

160010

8%:

EXIT
:TEST IF ANY ERROR SET
iNO - SKIP
sREPORT ALL ERRORS

DWW

4295
4296
4297
4298
4299
4300
4301
4302
4303

012767
004767
023052
032767
001105
005301
001415

4293 022620
4294 022626

104456

157716

157710
000000

157716

11
10¢:

1DECREMENT FOR DOUBLE ERROR REPORT
1CLEAR FOR ERROR ERROR RETURN
1REMOVE ENTRY FROM SUBROUT STACK
tRESTORE REGISTERS

35882333850

160106
157740

1RESTORE R3
s TEST IF ERROR RETURN

1YES - SKIP

1ADD IN ERROR RETURN

+SET ERROR RETURN ADDRESS

RTS

GET POSITION ROUTINE. READS A MEADER FROM CURRENT CYLINDER
(WMMERE IT IS PRESENTLY POSITIONED) AND STORES CYLINDER
010346
016703
005723

NUMBER IN CURCYL.

157656

8¢

4335 023116
4336 023120
4337 023124

TST

R3,-(SP)

SSINDX,R3
(R3).

1STORE REGISTERS
1GET SUBROUTINE INDEX
1BUMP IT FOR NEXT ENTRY

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-44

SEQ 008%

GLOBAL SUBROUTINES

4338 023126

016663

43%9 023134
4340 023142

162763
010367

4342 0231350

010546

4341 023146

4343 023152
4344 023156

4345 023160
4346 023164
4347 023170
4348 023172
4349 023174
4350 023176

4351 023202
4352 023206

4353 023214
4354 023216

4355 023220
4356 023222
4357 023226
4358 023230
4359 023234

4360 023236

4361 023242

010046

000002

000004
157634

004767

176674

016703
012705
006203
005305
001375

157666
000007

010367
162767

157676
000002

023206

042703

012605
012600
012603
005767
001403
066716
000207

017616
000207

002404

157562
000000

4396 023252
4397 023254

005723
016663

000002

4399 023270

010367

157506

4403 023302
4404 023310

012767
012701

000002
000050

012703

003764

4405 023314

4406 023322

4407 023326
4408 023332
4409 02
4410 023344

4411 023332
4412 023360
4413 023364
4414 023370
4415 023374
4416 023376

4417 023404
4418 023412

4419 023420
4420 023426
4421 023430
4422 023434

65%:

157570

010346

99¢:

052767

016704
062704
012767
056767

042767
0035067
005067
005767
001403
0352767

016762
016762

032762
001003
004767

023552

100000

157474
000006
000010
157462

157452
157450
157316
157430
157420

000200
175732

PC, XRODHD

100 READ HEADER

MOV
MOV
ASR
DEC
BNE

HOWRD1,R3
97,.R5
R3
RS
44

1GET HEADER WORD
1SET SHIFT COUNT
$SHIFT TO RIGHT JUSTIFY

MOV
SuB

R3,CURCYL
02, SSINDX

1STORE AS CURRENT CYLINDER
JREMOVE ENTRY FROM SUBROUT STACK

MOV
TST
BEQ
ADD

(SP)+,R3
ERRSWI
994
ERRSWI,(SP)

s TEST IF ERROR RETURN
s YES - SKIP
1ADD IN ERROR RETURN

MOV

8(SP),(SP)

1SET ERROR RETURN ADDRESS

MOV
MOV

RTS

RS, -(SP)

#177000,R3

(SP)+,RS
(SP)+,.RO

tRESTORE REGISTERS

'
READ ALL HEADERS ROUTINE. 40 HEADERS ARE READ AND STORED
3
IN IBUFF,
RDALMD: MOV
R3,-(SP)
1STORE REGISTERS

MOV

002404

162763 000004 002404

010046
010146
010446

JSR

BIC

157566

1ADJUST IT TO CALLING LOCATION
1STORE IT BACK

RO, -(SP)

654

a4:

2(SP),SUBSTK(R3) ;INSERT THIS CALL

@4 ,SUBSTK(R3)
R3,SSINDX

MOV

4395 023246 016703 157530
4400 023274
4401 023276
4402 023300

SUB
MOV

177000

4392
4393
4394 023244

4398 023262

MOV

002404

157434

000004
000002

8IS

MOV

MOV
ADD
MOV
8IS

000000

3¢:

;ADJUST IT TO CALLING L.OCATION

R3, SSINDX

MOV
MOV

157470
157462
157454

#4,SUBSTK(RS)

MOV

MOV
MOV
MOV

157462

1GET SUBROUTINE INDEX

(R3).
1BUMP IT FOR NEXT ENTRY
2(SP),SUBSTK(R3) ; INSERT THIS CALL

SuUB

157506

SSINDX,R3

TST
MOV

8IC
CLR
CLR
TST
BEQ
8IS
MOV
MOV

BIT

BNE
JSR
65¢

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

1STORE IT BACK

#2,ERRSHI
#40.,R1

1SET FOR NO ERROR RETURN
1SET HEADER COUNT

OIBUFF RS

+SET POINTER TO STORE HDRS

#HDR4AO0,0PFLAG

RLBAS R4
ORLMP R4
#10,L.CS
RLDRV,L.CS

#8IT10,L.CS
L.BA
L.DA
DESHD
3
OHDSEL ,L .DA

L.DA,RLDACR2)
L.BA,RLBACR2)

;SET 40 HOR OP FLAG

1GET BASE ADDRESS
sMAKE IT POINT TO MP REG
1LOAD FOR READ HEADER, NO INTERRUPT
s INSERT DRIVE NUMBER

tCLEAR FOR DRIVE 4 - 7 SPEC'D
1CLEAR BA
1CLEAR DA
s TEST IF HEAD O
1 YES - SKIP
1ELSE INSERT HEAD 0
;LOAD RLDA REG
;LOAD RLBA

OCRDYMSK ,RLCS(R2)
1 TEST IF CONTROLLFR READY
64
1YES - SKIP
PC,ROYCHK
1ELSE CHECK READY

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-45

SEQ 0086

GLOBAL SUBROUTINES

4423 023436 016762 157372 000000 68:

MOV

L.CS.,RLCSCR2)

4425 023450

BIT

OCRDYMSK ,RLCSC(R2) ;CHECK THAT OPERATION COMPLETED

4424 023444

4426 023456
4427 023460
4428 023462
4429 023464
4430 023470
4431 023474
4432 023476

023476
023500
023502
023504

012700

032762

077777

000200

001016
005300
001372
004767 173114
004767 173142
012603

7%:

8s:

023526
023530 012766
4438 023532 005067 157260
4439 023536 000405
4440 023540 011423

4441 023542 011423

12¢:

023544 011423

4443 023546
4444 023550
4445 023552
4446 023560
4447 023562

4448 023564
4449 023566
4450 023570
4451 023574
4452 023576
4453 023602

005301
001332
162767 000002
012604
012601

000207

4455 023610

pr+y]

4685
4686
4687
4688 023612
4689 023614
4690 023620
4691 023622
4692 023626
023626
023632
023636
023642
023644

023646

000207

TRAP
LMORD
"MORD
"WORD

CSERHRD
10025
O
ERR1

CLR
B8R
ST
8PL

'MORD
"WORD
CLR
B8R
MOV

MOV

MOV
157222 658:

012600
012603
005767 157222
001403
066716 157214

4454 023604 017616 000000

8s
RO
7
PC . READRL
PC.WAITIN
(SP)+,R3

ERRHMRD
TRAP
LMORD

104456
023452

DEC
BNE
SUB
MOV
MOV

MOV
MOV
TST
8EQ
ADD

99¢:

'
:
;

#77777,.RO

BNE
DEC
BNE
JSR
JSR
MOV

ERRHRD

104456
023451
000000
012464

4433 023506 005067 157304
4434 023512 000417
4435 023514 005767 157324
4436 023520 100007
4437 023522
023522
023524

000000

MOV

RTS

MOV

RTS

10025., ,ERR1

ERRSWI
654
1.CS
128

10026.
, .ERR6
C$
10026

O
ERR6
ERRSWI
654
(R4),(R3)

(R4),(R3).

R1
64
92, SSINDX
(SP)+,R4
(SP)+.R1

(SP)+,RO
(SP)+,R3
ERRSWI
99
ERRSWI,(SP)
PC

8(SP),(SP)
PC

;LOAD RLCS REG

1SET COUNT FOR WAIT

JYES - SKIP
1DEC COUNT
1SKIP IF NOT YET ©
;ELSE GET ALL REGISTERS
1ELSE WAIT FOR TIMEOUT
+GET RESULT MESSAGE POINTER

;CLEAR FOR ERROR RETURN
;TEST FOR ANY ERRORS

iNO - SKIP

sDEC MEADER COUNT
;REMOVE ENTRY FROM SUBROUT STACK
sRESTORE REGISTERS

;TEST IF ERROR RETURN
JYES - SKIP
1ADD IN ERROR RETURN
1SET ERROR RETURN ADDRESS

012746 010253
012746 011753
012746 000002
010600
062706

ADD

005767 157162
001433
012704 000002

104414

000006

RPTOP:

TRAP

CSPNTB

6,5P

;CLEAR FOR ERROR RETURN
;STORE HEADER WORDS

REPORT OPERATION ROUTINE. PRINTS SUBROUTINE TRACE SEQUENCE AND
OPERATION BEING PERFORMED PORTION OF ALL
ERROR MESSAGES.
MOV
R4, -(SP)
ST
SSINDX
s TEST SUBROUTINE INDEX O
8EQ
1
sSKIP IF O
MOV
2.R4
sSET INDEXER TO FIRST ENTRY
PRINTE OFMT9,0SEGMES
;PRINT “SUBROUTINE CALL SEQ”
MOV
OSEQMES, -(SP)
MOV
OFNT9, -(SP)
MOV
02,-(SP)
MOV
SP,RO

010446

!
.'

CNRLIA RLO172 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-46

SEGQG 0087

GLOBAL SUBROUTINES

4693 023652

023652
023656
023662
023666
023670
023672
4694 023676
4695 023702
4696 023706
4697 023710
023710
023714
023720
023724
023730
023732
023734
4698 023740
4699 023746
4700 023752

4701 023756
4702 023762
4703 023764
4704 023772
4705 023776
4706 024000
4707 024006

016446
012746
012746
010600
104414
062706
062704
020467
003761
012746
016746
012746
012746
010600
104414
062706
042767
016701
042701

000006
000002
157074

000010
157062

030000

157036

177741

4709 024014
4710 024022

052767

020000

002224
005414
011534
000003

4711 024052

016146
012746
012746
012746
010600
104414
062706
020127

024022
024026
024032
024036
024042
024044
024046

18:

006365
157072
011556
000003

022701 000006
001003
052767 010000
022701 000012
001003
052767 020000
022701 000014

4708 024012 001003

3s:

002404
012126
000002

PRINTB

#177741.R1

+STRIP ALL BUT FUNCTION CODE

156776
156762

BNE

224

sNO- SKIP

208:

cwe
BNE
8IS
o
BNE
8IS
O

228:

8IS
PRINTB

2¢:

#6.R1
;TEST IF SEEK OPERATION
24
sNO- SKIP
@SEEKOP ,OPFLAG {ELSE SET SEEK FLAG
e12,.R1
s TEST IF WRITE
204
INO - SKIP
ORORWOP ,OPFLAG ;SET RD OR WRT FLAG
014, ,R1
s TEST IF READ

m OPFLAG
:SET RD OR WMRT FLAG
OFMT1,OMOPER,OPMSGSCR1) ;PRINT OPERATION

000010

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

OPMSGSCR1), -(SP)
OMOPER, -(SP)
FMTL, -(SP)
#3,-(SP)
SP,RO
CIPNTB
€10, 5P

4712 024056 001007
4713 024060 032767 000010
4714 024066 001403
4715 024070 012701 000016

156752

BNE
BIT
8EQ
MOV

mszt L.DA

4717 024076

156700

4716 024074

000436

032767

000004

007777

4718 024104 001424
4719 024106 016704 156672
4720 024112 012701 000020

4721 024116 032704 000001
4722 024122 001003
4723 0241264

4724 024126

S¢:

005721

4725 024130 000772
4726 024132

48:

024132 016146 002224
024136 012746 011550
024142 012746 000002

81T

ax.

m. R1
ocm.ornm

sTEST IF ANY OTHER OPERATION

#81700.R4
64

JCHECK THE BIT
+IF SET - SKIP

s
OPFLAG , R4
020,R1

(R1)+

BIT
BNE
B8R

MOV
MOV
MOV

OPMSGSCR1), -(SP)
OFMT2, -(SP)
02,-(SP)

PRINTB

;CHECK IF GET STATUS

INO - SKIP
;TEST IF RESET INCLUDED
sNO- SKIP
1SET TO PRINT WITH RESET

8EQ
MOV
MOV
ASR

64:

sPRINT CALLING LOCATION

SUBSTK(RA), -(SP)
#FMT16, -(SP)
02,-(SP3
SP,RO
CSPNTB
06,5P
02.R4
;BUMP INDEX
R4 , SSINDX
;CHECK IF ALL PRINTED
34
JLOOP IF NOT ALL PRINTED YET
OFMT4 ERMEAD.OTSTLAB
;PRINT ERROR HEADER
#TSTLAB, -(SP)
ERHEAD, -(SP)
oFMTA, -(SP)
03, -(SP)
SP,RO
CSPNTB
#10,5P
@SEEKOP !RORWOP ,OPFLAG
;CLEAR SK & RD OR WRT FLAG
L.CS,.R1
:GET COMMAND EXECUTED

8IC

157012

oFMT16,SUBSTK{R4)

MOV
MOV
MOV
MOV
TRAP
ADD
ADD
cHP
BLE
PRINTB
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
8IC
MOV

@FMT2,0PMSGS(R1)

{NO - SKIP
sSET UP TO DETERMINE WHICH ONE
JPRESET THE POINTER
1BUMP POINTER

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-47

SEQ 0088

GLOBAL SUBROUTINES

024216
024220
024226

8%:
9%:

002224

011550

156556

10%:

156656
010214
56644
010207

024230
024234

BIT
BEQ
MOV

s TEST IF 40 HEADER OPERATION
iNO - SKIP
;ELSE PRINT IT

PRINTB
MOV

MOV
MOV
TRAP

000002

010000

024230

156620

016146
012746
012746

100000

BIT
BEQ
PRINTB

010201
156614
010232
011774
000011

1 SKIP
s TEST IF SEEK
iNO - SKIP

SFMT13, 0FRMWD ,OLDCYL , #DIFWD ,DESDIF , #SGNWD ,DESSGN , #HDWD , DESHD

-y

156466

15¢:

156570

010220

010214

010225
012323
000007

17%:

s TEST IF READ OR WRITE SET
gNO - SKIP

BIT

§§§§§§§ E §§§§§§§§§§§§§§!

4731
4732
4733
4734

001415
012701

MOV
TRAP
ADD

TZ 33333333333

4727
4728
4729
4730

010600
104414
062706
032767

WD , CURCYL , #HDWD ,DESHD , #SECWD , DESSEC

1CLEAR PARAM TABLE
tRESTORE R4

REASON ROUTINE

TRES:

012701
012103
011146

REASON PORTION FOR ALL ERROR REPORTS.
1STORE R1
1STORE R3
1STORE R4
1GET START OF PARAM

024146

«R3

1GET NUMBER OF PARAM
1PRINT NAME

“Hll.%égrfl.'l.(fll)

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-48

SEQ 00879

GLOBAL SUBROUTINES

012146

024500
024502
024506
024510
024512

010446
012746
010600
104414
062706

024516
024520
024524
024526
024532
024534
024536

4760 024542
4761 024546

024550
024552
024556
024562
024566
024570
024572

024576
024600
024602
024604

012746

012146
012746
010446
012746
010600
104414
062706

162703
001413

012146
012746
012746
012746
010600
104414
062706

012604
012603
012601
000207

SP,RO

TRAP

C$PNTB

000010

ADD
cHP

011760
011052

MOV
cHpP
BNE
MOV
DEC
BEQ

OFMT11,.R4
(R1)+,0MCYLOC
38
#FMT12.R4
R3
64
(R1)+,-(SP)

011057

011766

3%:

PRINTB

011300
000003

000010
011304
000003
000010

000002

011311
011534
000003
000010

sPRESET FOR FORMAT 11

1CHECK IF REPORTING CYLINDER LOC
1NO - SKIP
sELSE CHANGE TO FORMAT 12
1DEC PARAM COUNT
:IF 0 - EXIT

tREPORT IS VALUE

SP,RO

CSPNTB

010,SP

R4 ,ORESE4,(R1)+

(R1)+,-(SP)

1REPORT SB VALUE

ORESEAL, -(SP)

CSPNTB
#10,5P

;DEC PARAM COUNT

#2,R3

64
$IF 0 - EXIT
OFMT1,0RESES,
(R1 )+
JREPORT CONDITION

(R1)+,-(SP)
ORESES, -(SP)
(SP)

+RESTORE REGS
sRETURN

AND ALL REGISTER CONTENTS.

#BASADD ,RLBAS , #DRVNAM,

-(SP)
RLORV+1,(SP)
SDRVNAM, -(SP)
RLBAS, -(SP)
#BASADD, -(SP)
OFMTS, -(SP)
)
o

OFMTS,

CLR
BISB
MOV
MOV
MOV
MOV
MOV
MOV

156217
006053
156202
006042
011567
000005

1YES - SKIP REST OF REPORT

T PHYSICAL ADDRESS OF DEVICE UNDER TEST

156716
012746
016746
012746
012746
012746
010600
104414

s TEST IF MESSAGE IS NO DRV STATUS

@RESES, -(SP)

RPTREM: PRINTB

024610
024614
024620
024624
024630
024634
024640
024642

R4,ORESE3,(R1).

z
-

024472

024474

4763
4764
4765
4766

021127
001453
012704
022127
001002
012704
005303
001442

MOV

024442
024446
024450
024454
024460
024462
024466
024470

000003

4750
4751
4752
4753
4754
4755
4756
4757

012746

-«

010600
104414
062706

024426

OMRSLT, -(SP)
OFMT1.1,-(SP)

LEFFTELLLE
LT LELERIFEEEEE
&
=

024432
024434
024436

MOV
MOV

005423
011541

012746
012746

024416
024422

CNRLIA RLO1/2 DRIVE TEST 1

MACRO M1200

PAGE 42-49

19- DEC-83 09:36

SEQ 0090

GLOBAL SUBROUTINES

016746
016746
016746

648

454
2

$
o

#16,5P

OFMT7,0LAB2,T7.CS,T.DA,T.BA,
T.MP,CURCYL ,DESHD

006144
011721

(2]

3 -3 333333338
FELEELLEE 3333323333383
@
@
-

156116
156106
156104
156074

#20,SP
OFMT8,0LAB1,L.CS,L.DA,L.BA,L.MP

RS,-(SP)

1 STORE RS

(R1)+

1CLEAR WORD
1DEC COUNT
;LOOP UNTIL O
tRESET POINTER

mgnm.m

24
ORESPARM,R1

(SP)+,RS

24:

PARAMETER BLOCK FOR REPORTING

él.”flh

]

A774 024764

012746
012746
012746
012746
012746
012746
012746
012746
010600
104414
062706
016746
016746
016746
016746
012746
012746
012746
010600
104414
062706

014 ,5P

REPORT RL11 REGISTERS
PRINTB
&FMT6,0CSNAM,
ODANAM, #BANAM , OMPNAM, CYLWD , 4HDWD

4773 024720

062706

4771
4772 024650

1GET ADDRESS OF BLOCK

sRESTORE RS

ENDMOD

.TITLE

CNRLIAO RLO1/02 DRIVE TEST 1

1DISK STATE FUNCTIONS

CNRLIAO RLO1/02 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42-50

SEQ 0091

GLOBAL SUBROUTINES

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

4794
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806 025072

;STATE OF THE DRIVE

HRDWTST

4807
4808

156262

167222
006373

005046
156716

mgm

005767
001124
005767
100121
012767

016746

4821

; TESTOL

BGNTST

155676

24:

4819

4820 025114

BASIC INTERFACE (PART 1)

155711
006053

155674

006042
010135
007540
011442
000007

PASNUM

Ti::

;TEST THAT UNLOAD, COVER OPEN AND WRITE PROTECT START
1IN THE PROPER STATE.

654
MISWIW
654
MMISTST,ERHEAD

Wl gggptie sy @

4818

«TEST

1CHECK IF FIRST PASS
$EXIT IF NO
;CHECK IF MANUAL INTERVENTION
1NO - EXIT TEST
;LOAD ERR HEADER

1PROMPT CHK DRV IS UNLDED, COVR OPN, AND
WRTE LCKED

1A, #8ASADD,RLBAS
, #DRVNAM,

07,-(SP)

CHPNTF

020,5P

000020

OBUFF

157172

1CLEAR FOR RESPONSE

OPROO2,0BUFF ,1,NO
CSGMAN
100004
OBUFF
T4CODE

100004 :

157152
171572
171604

000040

1¢:

155616

OBUFF
4
PC,TSTINT

4816 025104
4817 075106

.SBTTL

@
(1%

4809
4810 025072
025072
4811
4812
4813 025072
4814 025076
4815 025100

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

~NOVMB WO

STATE
STATE
STATE
STATE
STATE
STATE
STATE
STATE

PC,GSTATR

OCOSTAT,T.MP
74

s TEST RESPONSE YES
1YES - SKIP
s INITIALIZE TEST
1GO GET STATUS WITH RESET

sCHECK IF COVER OPEN SET

1YES - SKIP

RLO1/02 DRIVE TEST 1

HMACRO M1200

19-DEC-83 09:36

PAGE 42 S)

SEQ 009

BASIC INTERFACE (PART 1)
101.,,.ERRS
CSERMRD

000000

4837 0235276

4838 025304

155572

7%:

010575

020000

155546

9%:

010610

104456

000147
000000
012600
005767
001405
005003

104456
000150
000000
013666
004767
025350

155532

118:

101
0
ERRS

BHSTAT T MP

9
R3S
OMBHSTA,

o =y §;¢.

023270
023272
025274

104456
000146
000009
012600
032767
001006
012703

000010

@
.

104456
000145

012600
032767
001006
012703

sa*i“wss i

OMCOSTA
RS

010562

012703

102.,.ERRS
CSERMRD
102

0
ERR3
OMLSTAT, T .MP

118

OMALSTA,RS

103., .ERRS
CSERHRD

15¢:

654:
ENDTST
L10024:

104401

ERR3

1SET STATE EXPECTED

s YES - SKIP

104
0
ERR7

PC.GSTATR

.SBTTL

BASIC INTERFACE (PART 2)

BGNTST

s TEST 2

012767

006373

OMISTST
. ERMEAD

155416
24:

—_—

JVERIFY THAT COVER OPEN AND WRITE PROTECT WORK,

MISWIW

010135
007616

100 DRIVE RESET

CSETST

166742

155414

sTEST IF WRITE LOCK SET
1YES - SKIP
1SET NAME POINTER

PASNUM

155431

SKIP

;sTEST IF STATE ZERO

154

156002

156716
012746
016746
012746
012746
012746

1SET POINTER FOR BRUSH HOME ERROR

T.STAT

005767
001077
005767

100074

s TEST IF BRUSHES HOME

sYES

303

104., ,ERR7
CSERMRD

171462

sSET NAME POINTER

;TEST IF PASS O
1 TEST IF MANUAL INTERVENTION

(3.1]

sNO - SKIP

654

INO - SKIP

;SET ERROR MEADER

PROMPT CLOSE COVER AND RESET WRITE LOCK.

o:ggn.mz.oohu.msnoo.uns.mm.«n.m.onv.p
RLDRV+1,(SP)
mvumi if"')'"

#BASADD, -(SP)
SOPR1A,
- (SP)

CNRLIAO RLO1/702 DRIVE TEST 1
sTEST 2

MACRO 11200

19-DEC-83 09:36

PAGE 42-52

SEQ 009

BASIC INTERFACE (PART 2)

025426
025432
025436
025440
025442

012746

000007

MOV
MOV

4862 025446

062706
005067

000020
156712

ADD
CLR

025452
025454

104443
000404

TRAP
BR

025460

000120

. WORD

025464

000001

025466

005767

156672

4867 025474
4868 025500

004767
004767

171312
171324

4870 025506

032767

000040

4872 025516

012703

010562

4863 025452

025456

025462

025466
4865 025472

4869 025504

4871 025514

4873 025522

025522

104417

007470

001406

4875 025532

032767

020000

4877 025542

012703

010610

025546

025550
025552
025554
4879 025556

001406

4889 025572
4890 025574

025574

OPROO2,0BUFF ,1,NO

.MORD

OBUFF

T$CO0E

OPROO2

1ST

OBUFF

1 TEST IF RESPONSE YES

JSR
JSR

PC,TSTINT
PC.GSTATR

sINITIALIZE TEST
s1GET STATUS WITH RESET

OCOSTAT,T.MP

s TEST IF COVER OPEN RESEY

MOV

OMCOSTA,R3

1SET NAME MESSAGE POINTER

TRAP

CSERMRD

. WORD

654

BEQ

9¢:

CSGMAN
10000

.WORD

ERRHRD

155312

sCLEAR FOR RESPONSE

GMANIL

BIT

155336

OBUFF

tNO - SKIP

201.,.ERR2

sYES - SKIP

201
O
ERR2

BIY

MNALSTAT, T. WP

s TEST IF WRITE LOCK RESET

MOV

OMALSTA,R3

1SET NAME MESSAGE POINTER

TRAP

CSERHRD

BEQ
ERRMRD
LMORD
LMORD
LWORD

654

202.,.ERR2

sYES - SKIP

202
O
ERR2

ENDTST

L1002S:

104401

.SBTTL
BGNTST

005767
001003
005767
100402

155574

166534
14¢:

104432

025576

001500

4893 025610

027276

4891 025600
025604

1¢:

654:

4882
4883 025560

025560
4888
4885
4886 025560
4887 025564
4888 025566

#20,5P

BEQ

104456

000312
000000
012532

4880 025556

025556
pron 025556

CSPNTF

LMORD
LHMORD
.MORD

000311
000000
012532

4878 025546

10000%:

104456

025524
025526
874 025530
4876 025540

e7,-(SP)
SP,RO

TRAP

004364

001740

oFMTOPL, -(SP)

MOV

011442

012746
010600

004767
004767

171206
171220

24:

TRAP

CSETST

oTEST 3

HEAD LOADING
s TESTO3

TSTY
BNE
TS7
Ml

PASNUM
19
MISWIW
24

TRAP

CeEXIY

EXIT

LWORD

JSR
JSR

73654

T3::
1SPIN UP THE DRIVE. VERIFY THAT THE DRIVE GOES FROM
sSTATE O TO STATE S PROPERLY.
sTEST IF PASS O
sNO - SKIP
1TEST IF MANUAL INTERVENTION

187

L10026-.

PC,TSTINT
PC,.GSTATR

1YES - SKIP

s INITIALIZE TEST
sGET STATUS

CNRLIAD RLO1/702 DRIVE TEST 1
STEST

MACRO M1200

19-DEC-83 09:36

PAGE 42-S3

SEQ 0094

HEAD LOADING

4894 025612

005767

4895 025616 001426

155242

4896 025620
4897 025620

:.0: 025672

012746
012746
012746
012746
012746
010600
104417
062706
104401

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

006042
010135
006350
011442
000007
000020

TRAP

4900 025674

4901 025674

025674
025676
025702
025706
025712
025716
025722
025726
025732
025736
025740
o 025742

4903 025746
4904 025754
4905 025760
4906 025766
4907 025772
4908 025776

4909 026000

as:

005046
156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706

012767
012703
012767
012701
004767

027276

005767

4910 026004 001034
4911 026006 005301
4912 026010 001415

006053
155114
006042
010135
007651
011442
000007
000004
000001
006416
000454
171046

155030

155024

64:

155054

4913

:;g 026042 000753
4917 026044 005067
4918 026050
026050

104443

026054
026056
026060
026062

004364
000120
007515
000001

156314

78:

026052 000404

026064
4919 026064

005767

MOV
MOV
MOV
MOV
JSR

13654

4914 026012

PRINTF

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

155131

000020

PRINTF

CLR
BISB
MOV
MOV

025620 005046
025622 156716 155205
025626 012746 006053
025632 016746 155170

025636
025642
025646
025652
025656
025662
025664
025666

8EQ

10000%:

-(SP)
SORVNAM. -(SP)
RLBAS, -(SP)
RLDRV+1,(SP)

#BASADD, -(SP)
Q0PR1A, -(SP)
- (SP)
SUNXERR,
, -(SP)
#FMTOP1
07,-(SP)
SP,RO
CSPNTF
€20, 5P
CSETST

;PROMPT OPERATOR TO “PRESS LOAD"

#FMTOP1,00PR3,
80PR1A, 8BASADD ,RLBAS , SDRVNAM,

-(SP)
SORVNAM, -(SP)
RLBAS,
- SP)
- (SP)
#BASADD,
QO0PRIA, -(SP)
@OPR3, -(SP)
, -(SP)
OFMTOPL
07,-(SP)
SP,RO
CSPNTF
€20,5P
RLDRV+1,(SP)

oCYLUP,OPFLAG
;SET CYCLE UP FLAG
#1,R3
1SET EXPECTED STATE VALUE
ONSTACHG ,ERHEAD ;SET ERROR HEADER
0300, ,R1
sMAIT COUNT R1sTIMDLY= 30 SECONDS.
PC.GSTATC
sGET STATUS
T.STAT

10
R1
7

WAITUS

1000.

TIMOLY

1000.

CLR

OBUFF

TRAP

CHOGMAN

GMANIL

TEST IF STATE 0

JYES - SKIP

sPRINT UNEXPECTED ERROR AND EXIT TEST
@FMTOP1, 8UNXERR, SOPR1A, #BASADD ,RLBAS , SDRVNAM,

BNE
DEC
8EQ

156274

1.STAT

;TEST IF STATE IS STILL O

iNO - SKIP
sDEC WAIT COUNT
JEXIT IF WAIT DONE

+JSD REV A

;CLEAR FOR RESPONSE

OPROO3S,0BUFF,1,NO

10000

LMORD
'MORD
'WORD
JWORD

OBUFF
TSCODE
OPROO3
1

187

OBUFF

+JSD REV A

s TEST IF RESPONSE YES

CNRLIAO RLO1702 DRIVE TEST 1
STEST

MACRO M1200

19-DEC-83 09:36

PAGE 42-54

SEQ 009

HEAD LOADING

4920 026070

4921 026072
4922 026076

001005

000167
020367

4923 026102 001406

4924 026104

026104

108:
11%:

104456

026106
026110
026112

000455
000000
013666

026114
026116

104432
001160

4929 026134
4930 026136

027276
020367

4925 026114

BNE

177522
154756

4931 026142
4932 026144
4933 026146
4934 026152
4935 026154
4936

136:
148:

154716

001445
002002
000167 000420
005301
001415

17¢:

4937 026156

4938 026206 000750
4939 026210

026210
026212
026214
026216

4940 026220

104456
000457
000000
013666
032767

18:

004000

154624

4944 026242
026242
026244

026246
026250

4945 026252

026252
aong 02624

104432
001022

4947 026256 012701 000005
4948
4949 026262

4954 026322

4955 026324

027276

301...ERR7

TRAP

022767

000003

154526

012767

006373

154444

4956 026332 003002
:gz 026334 000167 000232
4959 026340

4960 026346 012704 011323

IYES - SKIP

CS$ERMRD

.MORD
'MORD
'MORD

301
O
ERR7

TRAP
LMORD

CSEXIT
L10026-.

TST

MOV
MOV
JSR

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

JINITIALIZE WAIT COUNT FOR 30 SECONDS
1SET EXPECTED STATE VALUE
1GET STATUS

BEQ
8GE
e
DEC
8EQ

204
173
324
Rl
188

RS, T.STAT

JCHECK IF STATE 2

WAITUS

1000.

73658
e

TIMOLY 100C.

B8R

ERRMRD

144

303.,.ERR7

{YES - GO TO STATE 2
JCHECK IF NO CHANGE CONTINUE WAIT
1:GO TO STATE 3,
sDEC WAIT COUNT
1SKIP IF O
;CHECK FOR STATE CHANGE

TRAP
LMORD
'MORD
'MORD

C#
303
O
ERR?7

BNE
MOV
MOV

194
JYES - SKIP
#SPDERR ,ERMEAD ;SET ERROR HEADER
SMSPERR .R3S
1SET NAME MESSAGE POINTER

TRAP
LMORD

COERMRD
304

OSPDSTAT,T.MP

MORD
'MORD

1JSD REV A

;TEST IF SPINDLE TIMEOUT

O
ERRS

19¢:

EXIT

208:
218:

MOV
”",R1
TIMDLY 1000.

218:

4950 026312 005301
4951 026314 001362
4953 026316 004767 170522

JCHECK IF NOW STATE 1

ERRMAD 304
., ,ERRS

104456
000460

000000
012600

134

ERRHMRD

8EQ

817

4941 026226 001011
4942 026230 012767 006430 154554
4943 026236 012703 010662

:YES - REPORT

33
R3,T.STAT

EXIT

4926 026120 012701 000454
4927 026124 012703 000002
4928 026130 004767 170710

118

P
W

TRAP
JMORD

WAITUS

R1
214
PC,GSTATC

8GT
N

224
324

MOV

OMISTST,ERMEAD

MOV

JMAIT .5 SECONDS

1000.

DEC
BNE
JSR

73654

22¢:

T1ST

CHEXIT
L 10026-.

1 JSD REV A

JCHECK TO SEE IF STATE 3, IF YES GO TO STATE 3

#3,7.STAT

#STATE2.R4

1 JSD REV A

;SET ERROR MEADER

1SET CONDITION MESSAGE POINTER

CNRLIAO RLO1/02 DRIVE TEST 1
oTEST

MACRO M1200

19-DEC-83 09:36

PAGE 42-55

SEQ 0096

HEAD LOADING

4961 026352
4962 026356
4963 026364

012703
032767
001006

026366

104456

4964 02636¢

026370
026372
026374

000461
000000
012716

026376

104432

4965 026376

010575
000010

000062
170432

4969 026414

032767

000010

4970 026422
4971 026424
4972 026426
4973
4974 026430
4975 026460
4976 026462

026462

001425
005301
001415

026474
4978 026476

000602
012701

4980 026506

027276

4979 026502

4981 026510
4982 026316

004767

032767
001025

005301
001415

026536

104456

026560

026562
026564
4989 026566

026566

027276

4996 026620

026620
026622

026624

000454

27¢:

170336

000010

28%:

154334

i
350¢:

020367
001406

104456

000464

000000

305
O
ERRS

TRAP

CSEXIT

.WORD
MOV
73654

154242

324:

$SET WAIT COUNT FOR S5 SECONDS
1GET STATUS

OBHSTAT, T.MP

:TEST IF BRUSH HOME RESET

TRAP

CSERHRD

LHORD
MOV

JSR

73654

BIv
BNE
DEC
BEQ
TIMDLY

WAITUS
BR

ERRMRD

306...ERR4

1YES - SKIP
tDEC WAIT COUNT
1SKIP IF ZERO
1LOOP

CSEXIT

L10026-.
9300. ,R1

sINITIALIZE WAIT COUNT FOR 30 SECONDS

OBHSTAT, T.MP
324

s TEST IF BRUSH HOME SET AGAIN
1YES - SKIP

PC.GSTATC

R1
30¢
1000.

$GET STATUS

sELSE DEC WAIT COUNT
$1SKIP IF 0O

1000.
288

307.,,.ERRS

LMORD
LMORD
EXIT

LHORD
MOV
MOV

JSR

L10026-.
ONSTACHG ,ERHEAD ;SET ERROR HEADER
o3,R3
1SET EXPECTED STATE VALUE
PC,GSTATC
1GET STATUS

cHP
BEQ

R3,T.STAT
364

TRAP

CS$ERHRD

.MORD

ERRMRD

.MORD

307

CSEXIT

308.,.ERR7

308

+JSD REV A

:JSD REV A

CHERMRD

73654

1JSD REV A
1JSD REV A

O
ERR4
TS7

TRAP

154212

L10026-.
#50. ,R1
PC.GSTATC

278
R1
264
1000.
1000.
244

ERRHRD

1SET NAME MESSAGE POINTER
s TEST IF BRUSH HOME STILL SET
1 YES - SKIP

TST

BEQ
DEC
BEQ
TIMDLY
WAITUS
BR

.MORD

006416
000003
170234

305.,.ERRS

.WORD
.MORD
.WMORD

TRAP

104432

004767

CS$ERHRD

. WORD
LHMORD
.MORD
EXIT

000000
012716

4993 026610

4994 026612
4995 026616

268:

000463

000506
012767
012703

4992 026604

000752

026570
4990 026572
4991 026600

TRAP

BIT

104432

4983 026520
4984 0263522
4985
4986 026524
4987 026554

4988 026556

154430

104456

000462
000000
012646

026472

23%:
24%:

000752

026464
026466
026470
4977 026472

OMBHSTA ,R3
OBHSTAT,T.MP
23¢

EXIT

000676
012701
004767

027276

MOV
BIT
BNE

ERRHRD

026400
4966 026402
4967 026406
4968 026412

154466

sCHECK IF STATE 3
1YES - SKIP

CNRLIAO RLO1/02 DRIVE TEST 1
+TEST 3

MACRO M1200

19-DEC-83 09:36

PAGE 42-56

SEQ 0097

HEAD LOADING

026626

013666

026630

104432

4997 026630

026632
4998 026634

000444
012767

006373

S000 026646
5001 026652

012703
004767

010621
170166

4999 026642

012704

S002 026656

027276

S004 026666

001006

S003 026660
5005 026670

026670
026672
026674

026676

S006 026700

026700
026702

S007 026704
S008 026710
S009 026716
S010 026722
S011 026726

5012 026730
S013 026734
5014 026736
S015 026740
S016
S017 026742
S018 026772
S019 026774

026774

032767

154124

000753

S025 027026
S026 027032

020367
001425

154026

5032 027072

027072

027074
027076

02717C

S033 027102

027102

000753

104456

000471
000000

013666

104432

494

S04 :

:
S24:

OSTATE3.R4

BIT

OHOSTAT, T.MP

ERRHRD

309.,.ERRS

384

TRAP

CS$ERHRD

.WMORD

.WORD

MOV
MOV
MOV
JSR

73654

1SET CONDITION MESSAGE POINTER

1SET NAME MESSAGE POINTER
1GET STATUS
s TEST IF HEADS OUT SET
1 YES - SKIP

ERRS
TST

CSEXIT

L10026-.

#3000. ,R1
1SET WAIT COUNT FOR 300 MS
ONSTACHG,ERHEAD ;SET ERROR HEADER
#4,R3
1SET EXPECTED STATE VALUE
PC,GSTATC
:GET STATUS
"
R3,T.STAT
498
R1
478
1
1
438

TRAP

CSERMRD

ERRHRD

;SET ERROR HEADER

309

cHp
BEQ
DEC
BEQ
TIMDLY
WAITUS
BR

EXIT

000454
000005
170020

005301
001415

OMHOSTA,R3
PC,GSTATC

.WORD
L.HMORD
.WORD

012701
012703
004767

S027 027034
S028 027036
5029
S030 027040
S031 027070

43%:

47%:

104456

027276

154074

38%:

]

5021 027010
5022 027014
S023 027020
S024 027024

MOV
JSR

MOV

TRAP

020367
001425
005301
001415

000270

L10026-.
OMISTST ,ERHEAD

.WORD

005670
006416
000004
170116

187

.WORD
MOV

EXIT

012701
012767
012703
004767

104432

CSEXIT

.WORD

104432

027004

TRAP

BNE

012716

027276

ERR7

73654

154164

000000

000470
000000
013666

027006

000020

36¢%:

104456

026776
027000
027002

5020 027004

011333

154150

000465

000374

.WORD

EXIT

1CHECK IF STATE 4
s YES - SKIP
1DEC WAIT COUNT
1SKIP IF O

312...ERR7

312
O
ERR7
TST

TRAP

CSEXIT

MOV
MOV
JSR

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

1SET WAIT COUNT FOR 30 MS
1SET EXPECTED STATE VALUE
1GET STATUS

cHe
8EQ

R3,T.STAT
538

1CHECK IF STATE S
1YES - SKIP

.WORD

73654

L10026-.

DEC
BEQ
TIMDLY
MAITUS
BR

R1
Sa¢

TRAP

CS$ERMHRD

.MORD

ERR7

ERRHRD
.WORD
L.MORD

EXIT

TRAP

3JSD REV A
3JSD REV A

1
1
504

313.,.ERR7

313
O
TST

CSEXIY

1DEC WAIT COUNT
1ELSE SKIP

1JSD REV A
1JSD REV A

CNRLIAO RLO1/02 DRIVE TEST 1
«TEST

19-DEC-83 09:36

PAGE 42-57

HEAD LOADING

027104
S0%4 027106
5035 027114
S0%6 027116

S037 027122

027122

000172
032767
001010

012703

000466
000000
012716

027134

000142

027132

032767
001010
012703

027152

104456

027154
027156
027160
S043 027162

000473
000000
012716

027164

000112

027162

040000

032767
001033
005301
001415

000001

5057 027264

027264

027266
027270
027272

5058 027274

S059 027276
S060 027276
S061 027276

027276
027276

000752
012767

012704

012703

006373
011343

54%:

TRAP

CS$EXIT

.WORD

O®DRVERR,T.CS
574
#MDRERR,R3

TRAP

CS$ERMHRD

TRAP

CSEXIT

.WORD

L10026-.

®DRDYMSK, T.CS
172¢
R1
S8¢
1

sCHECK IF DRIVE READY
1YES - SKIP
$1DEC COUNT
sSKIP IF O

MOV
MOV

MMISTST ,ERHEAD
#STATES, R4

;SET ERROR HEADER
1SET CONDITION MESSAGE POINTER

ERRHRD

316, .ERRS

S8s:

T365¢

WAITUS
BR
MOV

L10026:
.SBTTL

BGNTST

165014

315
O
ERRS
TST

BIT
BNE
DEC
BEQ
TIMDLY

172%:
T3654:
ENDTST

154054

315...ERRS

s TEST IF DRIVE ERROR SET
s YES - SKIP
$SET NAME MESSAGE POINTER

1SET WAIT FOR 8 MS
sGET STATUS

.WORD
MORD
.WORD

027300

L10026-.

BIT
BNE
MOV

TRAP

104401

310
O
ERRS
TST

#80. ,R1
PC.GSTATC

104456

000400

310.,.ERRS

MOV
JSR

153636

153536

#MVOLCK,R3

s VOLUME CHECK SHOULD BE SET FOR
sSTATE S, IF NOT GIVE ERROR.
1SET NAME MESSAGE POINTER

57%:
S64:

000474
000000
012716

005767
001003
005767
100403

CS$ERHRD

ERRHRD

010404

S064 027300

S067 027300
S068 027304
5069 027306
S070 027312

TRAP

.WORD
.WORD
.MORD
EXIT

SO0A7 027200
S048 027206
5049 027210
S0S0 027212
S0S51

5056 027260

153700

010526

000120
167646

SO0S4 027246
S0SS 027254

L10026- .
QVCSTAT,T.MP
S4¢

ERARHRD

104432

027276

. WORD
BIT
BNE
MOV

.WORD
.WORD
.WORD
EXIT

012701
O00A767

S052 027214
S053 027244

S3s:

010551

S044 027166
S04S 027172
S046 027176

153736

104432

S039 027136
S040 027144
SO41 027146

5042 027152

001000

104456

027124
027126
027130
S038 027132

S065
S066

MACRO M1200

1
S64

#DRDY,R3

$SET NAME MESSAGE POINTER

CS$ERHRD

316
O
ERRS
1724

TRAP

CSETST

oTFST 4

1S7
BiNE
TST
BMI

:+JSD REV A
:+JSD REV A

1EXIT TEST

HEAD UNLOADING

1 TESTOS

PASNUM
Y]
MISWIW
TS74

T4::
1SPIN DOWN AND UNLOAD HEADS. VERIFY THAT THE DRIVE
1GOES FROM STATE S TO STATE 7 PROPERLY.
sTEST IF FIRST PASS
iNO - SKIP
s TEST IF MANUAL INTERVENTION
1 YES - SKIP

CNRLIAO RLO1/702 DRIVE TEST 1
+TEST 4

MACRO M1200

19-DEC-83 09:36

PAGE 42-58

SEQ 0099

HEAD UNLOADING

5071 027314

027314
027316

5072
5073 027320
027320

104402
012767
004767
004767
030070
032767
001040

5081 027352
027352

005046

027416
027420

5082 027424
5083 027430
027430

EXIT
TRAP
.WORD

TST
CSEXIT
L10027-.

BGNSUB

027320
5074 027322
S075 027330
5076 027334
5077 027340
S078 027342
5079 027350

027354
027360
027364
027370
027374
027400
027404
027410
027414

8s:

104432
000662

156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706
005067

006416
167456
167470

000001

153462

TST4:

153453
006053
153436
006042
010135
007665
011442
000007
000020
154734

027432
027434
027436
027440

104443
000404
004364
000120
007470

S084 027444

005767

154714

5086
S087 027452
5088

052767

000010

027462

156716

133345

027476
027502
027506
027512
027516
027522
027524
027526

012746
012746
012746
012746
012746
010600
104417
062706

006042
010135
007651
011442
000007

5091 027532
5092 027536

012703
012704

000006
000144

TRAP

C#BSUB

JSR

PC, TSTINT

sINITIALIZE TEST

BIT
BNE

SDRDYMSK,T.CS
34

;CHECK IF DRIVE READY
{YES - SKIP

BISB

RLDRV+1,(SP)

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
CLR

#BASADD,
- (SP)
SOPR1A,
- (SP)
SOPR6,
- (SP)
#FMTOPL, -(SP)
e7,-(SP)
SP.RO
CHPNTF
€20,5P
0BUFF

MOV

."Izs.

153474

GMANIL
TRAP

000020

153324

T4.1:

ONSTACHG,ERHEAD ;SET ERROR HEADER

PC.GSTATR

{PROMPT PRESS LD AND WAIT FOR RDY

;CLEAR FOR RESPONSE

OPROO2,0BUFF,1,NO
COGMAN

100004

100008:

.MORD
'WORD
"MORD
'WORD

OBUFF
T#CODE
OPROO2
1

ST
8EQ

OBUFF
14

3%:

8IS

SULOAD,OPFLAG

as:

g'x.m

c?ggu.ms.

BIS8

RLDRV+1,(SP)

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV

@BASADD, -(SP)
SOPRIA, -(SP)
OO0PRS, -(SP)
OFMTOP1, -(SP)
#7,-(SP)
RO
COPNTF
#20,5P
#6,R3
0100. R4

1GET STATUS

s TST RESPONSE YES
iNO - SKIP
;SET UNLOAD OPERATION

dfimr PRESS LOAD

1A, 8BASADD , RLBAS , SORVNAM,

I.IASI iifi”

4SET EXPECTED STATE VALUE
1SET SECOND LEVEL COUNT

CNRLIAO RLO1/702 DRIVE TEST 1
oTEST 4

MACRO M1200

19-DEC-83 09:36

PAGE 42-59

SEQ 0100

HEAD UNLOADING

5093 027542
S094 027546
5095 027552
5096 027554
S097 027560
S098 027562
5099 027570
5100 027572
5101 027574
5102 027576
5103 027600
5104 027602
5105
5106 027606
5107 027636
5108 027640
5109 027644

012701
004767
030070
020367
001450
022767
001036
005304
001004
005301
001417
012704

000743
005067

001274
167272

MOV
ms‘

€700. ,R1
PC.GSTATC

:SET WAIT COUNT FOR 30 SECONDS
1GET STATUS

cHP
BEQ

R3,T.STAT
118

sMATCH FOR STATE CHANGE FROM S TO 6
1YES - SKIP

BNE
DEC
BNE
DEC
BEQ
MOV

9
Re
6
R1
7%
€100. .R4

iNO - REPORT WRONG STATE
sDEC 2ND LEVEL COUNT
1SKIP IF NOT O
sELSE DEC 1ST LEVEL COUNT
+IF O - SKIP TO QUESTION
;ELSE RESET 2ND LEVEL

68:

::IYUS

é.

7%:

CLR

OBUFF

St:

153300

000005

153270
8s:

000144

154520

164:

TIMDLY

GMANIL
TRAP

5110 027660
5111 027664
5112 027666
027666
027670
027672

154500

10001¢:

94:

027674

5113 OQ?O;:

5115 027706
5116 027712
5117 027716
5118 027720
S119 027724

114
12¢:

H
164:

5130 030012

013560
167032

204

;MAIT 100 US

100014

s TEST IF RESPONSE YES

ERRHRD

zc.n...enn

;ELSE REPORT STATE CHANGE WRONG

.HORD
.MORD
.MORD
EXIT

401
O
ERR7
SUB

.MORD

L10030-.

MOV
MOV
-'l‘”‘s‘

BEQ
DEC
BEQ
TIMDLY
:ITUS

#7,R3
#3000. ,R1
PC,GSTATC

1SET EXPECTED STATE VALUE
sSET COUNT FOR 300MS
+GET STATUS

R3,T.STAT

1CHECK IF STATE 7

16¢
R1
164
1
{20

402.,.ERR7

.HMORD
L.MORD
.WORD
EXIT

402
O
ERR7
SUB

LWHORD

L10030-.

CLR
MOV
}'?650

iNO - SKIP

COEXIT

ERRMRD

TRAP

1JSD REV A

1CLEAR FOR RESPONSE

OBUFF

BEQ

1JSD REV A

OPROO3,0BUFF,1,NO
CSGMAN

. WORD

TRAP

184:

sWAIT 100 US

OBUFF
TSCODE
OPROO3

153134

sTEST IF STATE S

.WORD
.WORD
.WORD

TRAP

000007
005670
167126

o5,T7.STAT

CSERMRD

1YES - SKIP
1DEC WAIT COUNT
s TIME OUT GIVE ERROR MESSAGE

1JSD REV A

sREPORT WRONG STATE CHANGE

CHIEXIT

R3
#6000. ,R1
PC.GSTATC

1JSD REV A

1SET EXPECTED STATE VALUE
1SET WAIT COUNT FOR 60 SECONDS
1GET STATUS

CNRLIAO RLO1/702 DRIVE TEST 1
oTEST 4

MACRO M1200

19-DEC-83 09:36

SEQ 0101

HEAD UNLOADING

5131 030014

005767

S132 030020 001423
5133 030022 005301
5134 030024 001415

153040

1ST

5135
5136 030026

5138 030060
030060
030062
030064
030066

22%:

5137 030056 000753

5139 030070

104456
000623
000000
013666

248

5142 030076

030076
030076

5144 030100

248
R1
224

B8R

204

TIMDLY
WAITUS
ERRHRD
TRAP
LMORD
'WORD
'WORD

L10030:

104403

005046
156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706
005067

030156

104443

i1SKIP IF ©

1JSD REV A
1 JSD REV A

403.,.ERR7
CSERMRD
403
O
ERR7

sREPORT WRONG STATE CHANGE

02, ERRSWI

;INIT ERROR SWITCH

030162

004364

030170

000001

268:
152725

006053
152710
006042
010135
007665
011442
000007
000020
154206

CSESUB

PRINTF

@FMTOP1,00PR6,#0PR1A,
#BASADD , RLBAS , SORVNAM,

CLR
BIS8
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
CLR

-(SP)
SORVNAM,
- (SP)
RLBAS, -(SP)
#BASADD, -(SP)
S0PR1A, -(SP)
S0PR6,
- (SP)
#FMTOPL , -(SP)
07,-(SP)
SP.RO
COPNTF
€20, 5P
OBUFF

TRAP

COGMAN

GMANIL

B8R

030164
030166

'WORD
'WORD

000120
007470

030172
5148 030172 005767 154166
$149 030176 001740

100008:

5150 030200
5151
5152 030200

i 030200

JYES WAIT
- SKIPCOUNT
sDEC

TRAP

030160 000404

030200

100.
100.

sCHECK IF STATE O

ENDSUB

030100
030102
030106
030112
030116
030122
030126
030132
030136
030142
030144
g1q5 030146
S146 030152

5147 030156

T.STAT

BEQ
DEC
8EQ

3140 030070 012767 000002 152720 T465%: MOV
5143

PAGE 42-60

;PROMPT PRESS LD AND WAIT FOR RDY

RLDRV+1,(SP)

JCLEAR FOR RESPONSE

OPROO2,0BUFF,1,NO

10000%

LMORD

OBUFF

TMORD

TSCODE
OPROO2

ST
BEQ

0BUFF
264

TRAP

CSETST

s TEST IF RESPONSE YES
iNO - SKIP

ENDTST

L10027:

104401

5154
5155 030202

.SBTTL oTEST S
DRIVE SELECT
BGNTST
s TESTOS
030202
1S::
$156 030202 012767 000002 152606
MOV
02, ERRSWI
+SET FOR NO ERROR RETURN
5157 030210 005767 153144
ST
PASNUM
s TEST IF FIRST PASS
: NO - SKIP
5158 030214 001173
BNE
EXTOS
5159 030216

032767

000004

164102

BIT

ODRSELT ,MISWIW

TEST IF SELECT TESTS

CNRLIAO RLO1/02 DRIVE
S

5160
S161

MACRO M1200

19-DEC-83 09:36

001567
005046

18:

BISB

152577

RLDRV+1,(SP)

MOV
MOV
MOV

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

007720
011442
000020

MOV
MOV
MOV
MOV
TRAP
ADD

#0PR7, -(SP)
OFMTOPL, -(SP)
07, -(SP)
SP,RO
CPNTF
020, 5P

154060

CLR

0BUFF

TRAP
BR

.WORD
.WORD
.HORD
JMORD

COGMAN
100004
OBUFF
T$CODE
OPROO2
1

TST

O0BUFF

1 TEST RESPONSE YES

RLDRV , TEMPO

:STORE ORIGINAL DRIVE NUMBER

012746
012746
012746
010600
104417
062706
005067

MOV

000007

GMANIL

104443
000404

004364
000
007470
000001

005767

154040

10000:

14
#TOSERR,ERHEAD
PC, TSTINT
PC.GSTATC

016701
012704
062701
022701
001001
005001
010167

MOV
MOV
ADD .
cHP
BNE
CLR
MOV

152426
012746 010151
012746 010141
005046
156716 152411
012746 007747
012746 011513

LPTOS:

as:

S$:

MOV

062706 000014
005067 153712

SUNDTST
., -(SP)
#OPR18, -(SP)
-(SP)
RLDRV+1,(SP)
#0PRS,
- (SP)
SFMTOPS, -(SP)
o5, -(SP)
y
COPNTF

104443
000404

TRAP
8R

CSGMAN
10001¢

000120
007470

.MORD
.MORD

004364

sREQUEST "REMOVE ADD PLGS EXCPT *

1CLEAR FOR RESPONSE

iNO - SKIP
;SET ERROR HEADER MESSAGE
s INITIALIZE TEST
D0 SELECT AND GET STATUS

sPUT IT IN R1
:SET COUNT FOR NUMBER OF PLUGS
sBUMP TO NEXT DRIVE
JCHECK IF TO LARGE
iNO - SKIP
ELSE CLEAR YO DRIVE O
sPUT IT BACK IN RLDRV

PRINTF @FMTOPS,0PRS, <B,RLDRV+1>, #0PR1B, SUNDTST

MOV
MOV
CLR
B8IS8
MOV
MOV
MOV
MOV
TRAP
ADD
CLR

012746 000005
010600
104417

'
|

OPROO2,0BUFF,1,NO

BEQ
MOV
JSR
SR

152452
000004
000400
002000

SO0PRIA, -(SP)

001740
012767 006530 152456 3§:
004767 166452
8047;1 166500

ouu’v 152460 152542

5180
5181 030446
S182

iNO - SKIP
EXTOS
BEQ
PRINTF
0FMTOP1,00PR7,00PR1A,
#BASADD ,RLBAS , SDRVNAM, 
-(SP)
CLR

012746 006053
016746 152562
012746 006042

012746 010135

5177 030376
S5178 030400
5179 030404
030404
030410
030414

SEQ 0102

ORIVE SELECT

156716

5162
5163
5164

PAGE 42-61

014,5P

.WORD

+INSERT PLUG REQUEST

;CLEAR FOR RESPONSE

0BUFF
,
0BUFF ,1,NO
OPROO2

o+TEST

TEST 1

OBUFF

TSCODE
OPROO2

I
|

M8
CNRLIAO RLO1/702 DRIVE TEST 1
+TEST

DRIVE

030464
030466

5183 030466
5184 030472
5185 030474

030474

000001

005767
001744

BGNSUB

166342

g{:g 030504

012767

000002

030512
5191 030514
5192 030516
5193 030520
5194 030526

5195 030526
030526

030504

104403
005304
001322
016767

030532
030536
030542
030546
030550
030552
5196 030556

012746
012746
012746
012746
010600
104417
062706
005067

030562

104443

5197 030562

030564

000404

030576
5198 030576
5199 030602

005767
001751

030566
030570
030572
030574

5200 030604
5201 030604

030604
030604

10001$:

153672

104402
004767

5190 030512
030512

152304

152372

152304

75044
:

44:

007766
007747
011556
000003
000010
153602

PAGE 42-62

SEQ 0103

100004:

153562

EXTOS:
ENDTST

L10031:

104401

030624

104432

030626

000744

5211 030636
5212 030642
5213 030646
5214 030654

004767
016703
026727
101461

012767

TST
BEQ

OBUFF
S$

TRAP
JSR

csBSuUB
PC,GSTATC

1GET STATUS - REPORT ANY ERROR

MOV

92 ,ERRSWI

s INIT ERROR SWITCH

TRAP
DEC
BNE
MOV

C$ESUB
R4
LPTOS5
TEMPO,RLDRY

:DEC_COUNT
;LOOP IF NOT ZERO
sELSE RESTORE RLDRV

604

006464

166150
152514
151140

152154

000001

OPROO2,08UFF,1,NO

TRAP

CSGMAN

.MORD
.WORD
.WORD
LMORD

OBUFF
T$CODE
OPROO2
1

TST
BEQ

OBUFF
4%

TRAP

CSETST

100004

s TEST IF RESPONSE YES
iNO - SKIP

1s¢:

TST
BNE
8IT
BNE
EXIT

TRAP

COEXIT

64:

MOV

OGSTERL ,ERHEAD

163504

15.1:

PRINTF @FMT4,00PR8, #OPR9
MOV
@0PR9, -(SP)
#0PR8, -(SP)
MOV
MOV
OFMT4, -(SP)
MOV
e3,-(SP)
SP,RO
MOV
CSPNTF
TRAP
ADD
€10,SP
CLR
0BUFF
;CLEAR FOR RESPONSE

«TEST 6

152546
000004

: TEST RESPONSE YES
iNO - SKIP

.SBTTL

BGNTST
005767
001004
032767
001002

004364
000120
007470
000001

5205 030606
5206 030612
5207 030614
5208 030622

.WORD

GMANIL

5203

5210 030630

60%:
ENDSUB
L10032:

5204 °°mm

5209 030624

19-DEC-83 09:36

SELECT

030474
5186 030476

5187 030502

MACRO M1200

.MORD

JSR
MOV
cHP
BLOS

DRIVE SELECT ERROR TEST

1 TESTO6

PASNUM
1
ODRSELT ,MISWIW
64

1CHECK IF FIRST PASS
iNO_- SKIP
;CHECK IF TEST DRIVE SELECT
1YES - SKIP

L10033-.

PC,TSTINT
PSETNM,R3
LSUNIT, 01
S¢

;SET _ERROR HEADER
1 INITIALIZE TEST
1GET PARAM SET NUMBER
s TEST IF MORE THAN 1 UNIT
iNO - SKIP

CNRLIAO RLO1702 DRIVE TEST 1
«TEST 6

MACRO M1200

19-DEC-83 09:36

PAGE 42-63

SEQ 0104

DRIVE SELECT ERROR TEST

5215 030656

005203

5217 030664

101401

5216 030660
5218 030666
5219 030670
030670
030672
5220 030674
030674
5221 030676
5222 030700
5223 030704
5224 030706

5225 030712
5226 030720
5227 030726

5228 030734
5229 030742
5230
52351 030750
5232 031000
5233 031004

5234 031006

5235 031014
5236 031016
5237 031020
031020
031024
031030
031034
031036
031040
5238 031044
5239 031050

020367

2%:

151126

005003

3%:

010300
104442

103370
010004
021467
001364
005067

012767
056467
012767
016762
016762

005767
001724
032767
001415
000717

152122
152074
000104
000010
000013
152100
152066

152114
152106
152104

000004
000000

S5%:

010003
011753
000002

5241 031056
5242 051062
5243 031066

016700
016705
042700

151750
152032
002000

5245 031076

001400

20%:

5244 031072

53‘% 031102

S24
1104
5248 031106
5249 031112
5250 031114
5251 031116

042705

001001

002000

062705

000400

001770
052705

000200

5252 051122 010562 000000
5254 031126
031126
0351130
0311354
031140
031142
0351146
031152
031156

005046
156716
012746

151765
010141

156716
012746

151665
007747

012746
012746

011471
000005

152042

;BUMP PARAMETER SET NUMBER

BLOS

3¢

iNO - SKIP

74:

21¢:

R3,LSUNIT

CLR
R3
GPHARD R3,RO
R3,RO
MOV
C$GPHRD
TRAP
BNCOMPLETE
24
24
8CC
RO,.R4
MOV
(R4),RLBAS
cHp
24
BNE
CLR
DONE
MOV
MOV
TIMDLY
WAITUS
TST
BEQ

BIT

152030

012746
012746
012746
010600
104417
062706
000167
016467

000006
000522
000010

MOV
BIS
MOV

152002

100000

INC

cHP

BEQ
BR
PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD
JHP
MOV

;CHECK IF PAST VALID PARAMETER TABLE
;ELSE CLEAR TO POINT TO ENTRY O
1SKIP IF NOT AVAILABLE

;PUT POINTER INTO R4
1CHECK IF SAME CONTROLLER
tNO - SKIP
sCLEAR DONE FLAG
#GTSTAT,L.CS
sLOAD GET STATUS
10(R4),L.CS
s INSERT DRIVE
OGETSTAT!DRSET,L.DA
+SET UP TO CLEAR DRIVE
L.DA,RLDAC(R2)
;LOAD DA REG
L.CS,RLCS(R2)
;LOAD CS REG
30.
tMAIT 3 MS
30.
sMAIT 3 MS
1 TEST IF INTERRUPT
DONE
24
sNO- SKIP
;TEST IF ANY ERROR SET
@ANYERR, T.CS
74
iNO- GO TEST
24
;ELSE CHECK NEXT DRIVE
OFMT9,00PR10
#0PR10, -(SP)
#FMT9, -(SP)

sREPORT CAN'T FIND 2ND DRIVE

02, -(SP)
SP,RO
CSPNTF
#6,5P
LCLEXT
10(R4),TEMPL

1STORE NEW ADDRESS

MOV
MOV
BIC

RLORV ,RO
TEMP1,.R5
#2000,R0

1GET DRIVE UOER TEST
1GET NEW ADDRESS
+CLEAR FOR ADDRESS O TO 3

cHP

RS, #1400

s TEST IF DRIVE NUMBER 3

CLR
ADD
cHP
BEQ
BIS

RS
#400,R5
R3,R0
204
#CRDYMSK, RS

sEI.SE SET TO DRIVE NUMBER O
1BUMP TO NEXT ADDRESS
1 THIS EQUAL TO NEW ADDRESS?
1YES - SKIP
sELSE SET CONTROLLER READY BIT

PRINTF
CLR
8Is8
MOV
CLR
BISB
MOV

OFMTOP2, MO.tl RLORV+1>,00PR1B,<B,TEMP1+1>
-(SP)
TEMP1+1,(SP)
#0PR18B, -(SP)
-(SP)
RLDRV+1,(SP)
#0PRS, -(SP)

8IC

BNE

MOV

MOV
MOV

#2000,RS

214

RS,RLCS(R2)

OFMTOP2, -(5P)
5, -(SP)

1ASK FOR PLUG CHANGE

tNO
- SKIP

1AND LOAD CS REG

sPROMPT INSRT ADR PLG AN DRV

+JSD REV A
1JSD REV A

CNRLIAO RLO1/02 DRIVE TEST 1
oTEST €

MACRO M1200

19-DEC-83 09:36

PAGE 42-64

SEQ

DRIVE SELECT ERROR TEST

031162 010600
104417
031166 062706 000014
5255 031172 005067 153166

MOV
TRAP
ADD
CLR

031164

$256 031176
031176

104443

031202
031204
031206
031210

004364
000120
007470
000001

GMANIL
TRAP

B8R

031200 000404
031212

10000%:

5257 031212 005767 153146
5258 031216 001717
5259 031220 012704 000012
5260 031224

031224
031224

BGNSUB

104402

5261 031226 016767 151600 151600 8%:
S262 051234 016762 151574 000000

S263
S264 031242
5265 031272

052767

000104

151534

5266 031300 012767 000013 151532

C3GMAN

10000

OBUFF
T$CODE
OPROO2
1

ST
BEQ
MOV

OBUFF
9
010. R4

TRAP

C$BSUB

TIMDLY
WAITUS
8IS

100.
100.
OGTSTAT,L.CS

MOV
MOV

:CLEAR FOR RESPONSE

OPROO2,0BUFF ,1,NO

LMORD
'WORD
'MORD
MORD

MOV

5267
5268

sP,RO
014,5P
OBUFF
CIPNTF

sTEST IF RESPONSE YES
iNO - SKIP
sSET COUNT
16.1:

RLDRV,L.CS
;SET UP TO SELECT MULTIPLE DRIVES
L.CS.RLCSRCR2) ;00 IT
;SET GET STATUS

OGETSTAT !DRSET,L .DA

1JSD REV A
3 JSD REV A

+SET 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

S271 031306
5272 031314
$273 031320
5274 031326
S275 031356
5276 031362
5277 031364
5278 031370
5279 031372

5280 031374
031374
031376
031400
031402
5281 031404
031404
031406

016762
005067
016762
005767
001012
004767
012603
001406

151526 000004
151466
151510 000000
151424
165246

104456
001131
006464
012464

104432
000110

5282
5283 031410
S284 031440 004767 166462
$285 031444 032767 000400
5286 031452 001010
5287 031454 012703 010632
5288 031460
031460
031462

031464
031466
$289 031470

MOV
CLR
MOV
WAITUS
ST
BNE
JSR
MOV

104456
001132
000000
012600

j120:

126:
151400

8EQ

L.DA,RLDACR2)
DONE
L.CS,RLCSRCR2)
1
DONE
124
PC,MAITIN
(SP)e,R3
12¢

;DO GET STATUS
sMAIT FOR INTERRUPT
;CHECK IF INTERRUPTED
JYES - SKIP
JMAIT FOR TIMEOUT
:GET ERROR POINTER

TIMDLY
JSR
8IT
BNE
MOV
ERRMRD

20,
20.
PC.GORSTA
SOSESTAT,T.MP
164
MDSERR ,R3
602, ,ERRS

sMAIT FOR DSE TO SETY
1 JSD REV A
sMAIT FOR DSE TO SET
1JSD REV A
sGET STATUS
;TEST IF DRIVE SELECT ERROR SET
1YES - SKIP
1SET NAME MESSAGE POINTER

'MORD
'MORD
EXIT

O
ERR3
SUB

ERAMRD
TRAP
LMORD
.MORD
.MORD
EXIT
TRAP
LMORD

MAITUS

TRAP
LMORD

601.,GSTERL,ERR1
CSERMRD
601
GSTER1
ERR1
SUB
COEXIT
L10034-,

CSERMRD
602

1SKIP IF O

GLUS

CNRLIAO RLO1/702 DRIVE TEST 1
*TEST 6

MACRO M1200

19-DEC-83 09:36

PAGE 42-65

SEQ 0106

DRIVE SELECT ERROR TEST

031470
031472

5290 031474
5291 031500
5292 031502
5293 031504

5294 031510
5295 031516

031516

5296 031520
031520
031524
031530
031534
031536
031540
5297 031544
5298 031550
031550
031552

031554
031556
031560
031562

031564

5299 031564

5300 031570
5301 031572
5302 031572
031572

: 031572

5304
5305 031574
031574
5306 031574
5307 031600

5308 031602
5309 031606
5310 031610
031610

010562
005304
001402
000167

012767

012746
012746
012746
010600
104417
062706
005067

5321
5322 031702
031702

031704

60%:

ENDSUB

L10034:

15¢:

010051
011753
000002
000006
152614

005767

001753

100008:

152574

LCLEXT:
ENDTST
L10033:

104401

LSBTTL
BGNTST

005767
001003
005767
100402

151560

162520
1s:

104432

012767

.WORD

006515

165164

151170

3¢:

CSEXIT

L10034-.

MOV
DEC
BEQ
JHP

MOV

RS,RLCS(R2)
R4
608
8s
02 ,ERRSKI

TRAP

CS$ESUB

1LOAD IN DIFFERENT ADDRESS
1DEC COUNT
1LOOP IF NOT ZERO
s INIT ERROR SWITCH

PRINTF
MOV
MOV
MOV
MOV
TRAP
ADD
CLR
GMANIL
TRAP
BR

OFMT9,00PR11
sREQUEST PLUG CHANGE
®0PR11, -(SP)
OFMT9, -(SP)
02,-(SP)
SP,RO
CSPNTF
6, SP
OBUFF
;CLEAR FOR RESPONSE
OPROO2,0B8UFF,1,NO
CSGMAN
100004 -

.MORD

.WORD
.MORD
.WORD

000001

004767

5320 031674

151300

004364
000120
007470

5312 031622
5313
5314 031626
5315 031656
5317 031664
ggi: 031672

177516

000002

16$:

104443
000404

000556

5316 031662

000000

104403

031612

5311 031614

TRAP

104432

000024

OBWFF TS$CODE
OPROO2

TST

OBUFF

TRAP

CSETST

BEQ

s TEST IF RESPONSE YES

15%

oTEST 7

sNO - SKIP

INITIAL STATE
1 TEST 07

TST
BNE
TS7
BMI
EXIT
TRAP

PASNUM
i
MISWIW
3¢
157
CSEXIT

MOV

@INITST,ERHEAD

LHORD

L10035-.

JSR
TIMDLY
WAITUS
JSR

PC,TSTINT
10.
10.
PC.GSTATR

T7::
sCHECK IF FIRSY PASS
sNO - EXIT TEST
1CHECK IF MANUAL INTERVENTION
sPERFORM TEST IF MANUAL INTERVENTION

SET ERROR HEADER

s INITIALIZE TEST
IMAIT 1 MS
tHAIT 1 MS
1GET STATUS WITH RESETY

004767

165146

032767
001432

000001

151152

BIT
BEQ

ODRDYMSK,T.CS
20¢

;CHECK IF DRIVE IS READY
1BRANCH IF DRIVE IS NOT READY

052767

000010

151102

BIS

OULOAD,OPFLAG

;SET UNLOAD OPERATION

032370

005046

156716

151123

100¢

1JSD REV A
1JSD REV A

PRINTF

jPROMPT OPERATOR TO “PRESS LOAD“
#FMTOP1,00PRS,
#OPR1A, #BASADD ,RLBAS , #DRVNAM, <B,RLDRV+1>

81s8

RLDRV+1,(SP)

CLR

-(SP)

CNRLIAO RLO1702 DRIVE TEST 1
«TEST

INITIAL

MACRO M1200

19-DEC-83 09:36

MOV

031730 012746 007651

031724

MOV

031744 010600
104417
031750 062706 000020
3323 03174 012703 000000

031734
031740

016746
012746

012746

012746
012746

151106
006042

010135
011442
000007

5326 031764

5327 031766

031766

004767

032370

165060

204 :

SDRVNAM,
- (SP)

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

MOV

#0PRS, -(SP)

MOV
TRAP
ADD
MOV

SP.RO
#20,5P
00,R3

4+SET “LOAD CARTRIDGE" STATE VALUE 0

PC.GSTATC

1GET STATUS

JSR

100

BREAK
TRAP

104422

5328 031770 022767 000000 151062
3329 051776 001370

e
BNE

®OPR1A, -(SP)

OFMTOPL, -(SP)
®7,-(SP)

CSPNTF

CSBRK

€0, T.STAT
204

5331

5332

SEQ OL07

MOV
MOV

031746

5325 031760

PAGE 42-66

STATE

031710 012746 006053
031714
031720

tMAKE A SUPERVISOR CALL

;TEST IF STATE O
JWAIT FOR STATE O
;PROMPT OPERATOR TO “PRESS LOAD &

$333 032000

032000 005046
032002 156716 151025
032006 012746 006053

032012
032016
032022
032026
032032
032036
032042
032044
032046
S334 032052

5335 032056
032056

016746
012746
012746
012746
012746
012746
010600
104417
062706
005067

218:

151010
006042
01013S
007665
011442
000007
000020
152306

104443

004364
000120
007470
000001

032072
5336 032072 005767 152266
5337 032076 001740

3339
032100 004767
164740
5340 032104
032370
$341 032106
032106
$342 032110
gs,:z 032116
5345 032120
5346 032124
5347 032130
S348 032132

104422

022767 000005 150742
001370
016701 150726
032701 000020
001003

012703 010621

CLR
BISB
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
CLR

032060 000404
032062
032064
032066
032070

PRINTF

22¢:

-(SP)

/WAIT FOR READY"”

SBASADD, RLBAS . SORVNAM, <B,RLDRV +1>

RLDRV+1,(SP)

-(SP)
RLBAS, -(SP)
. =(SP)
#0PR1A, -(SP)
#0PR6, - (SP)
FMTOPL, -(SP)
07,-(SP)
SP,RO
COPNTF
020, 5P
0BUFF

;CLEAR FOR RESPONSE

GMANIL
TRAP

OPROO2,0BUFF ,1,NO
CHGMAN

.MORD
'WORD
'MORD
TWORD

OBUFF
THCODE
OPROOZ2
1

ST
BEQ

0BUFF
214

B8R
100006;

@FMTOP1,00PR6,80PR1A,

JSR
1008

BREAK
TRAP
o
BNE
MOV
8IT
BNE
MOV

1PROMPT OPERATOR FOR RESPONSE

100008

PC.GSTATC
CHBRK

#5,7.STAT
224
1.M,R1
#0STAT,R1
74

#MHOSTA RS

sTEST IF RESPONSE IS YES
sBRANCH IF NOT READY

JGET STATUS

JMAKE A SUPERVISOR CALL
JCHECK IF STATE S
JWAIT FOR STATE S
JGET MP REG
;CHECK HEADS OUT
s YES
- SKIP
1SET NAME MESSAGE PTR

CNRLIAO RLO1/02 DRIVE TEST 1
«TEST

5349
5350
5351
5352
5353

032136
032140
032144
032146
032132
032152
032154
032156
032160
5354 032162
032162

032164
5355 032166

MACRO M1200

19-DEC-83 09:36

PAGE 42-67

SEQ 0108

INITIAL STATE

000405

032701
001010
012703

7%:

000010
010575

9¢:

104456

001276
000000
012600

005767
001032
032701
001412
012703
012704

162134

104:

151160

000100
010537
011412

000136

032701

001003
012703
000741
032767
001003
012703
000732
032701
001406
012703

138:

001000
010551
040000

150566

154:

010526
020000

16%:

010610

001301

012532

042701
026727
001404
022701

001411

000402
005701

001406

104456
001300

000000
012766

.WORD
.HMORD
.WORD

702
O
ERR3

TRAP

CSEXIT

000001

174:

000200

TRAP

CS$ERHRD
703
O
ERR4
TST

CSEXIT

BIT

#VCSTAT,R1

LMORD

BNE
MOV
BR
8IT
BNE
MOV
BR
817
BEQ
MOV

L10035-.

15¢
OMVOLCK,R3
94
ODRVERR, T.CS
164
OMDRERR,R3
9
MLSTAT ,R1
17¢
OMULSTA,R3
705.,.ERR2

TRAP

CSERHRD

LMORD

.MORD
8IC
ce
BEQ
c

184:

703.,,.ERR4

TRAP

B8EQ

99¢:

L10035-.
MISWIW
164

PASNUM
164
OHSSTAT,R1
. 138
#MHSTA,R3
eCCYLUP,R4

LMORD

021177
147756

TST

.MORD
TST
BPL
ST
BNE
BIY
BEQ
MOV
MOV

ERRHRD

104456

1REPORT ERROR

CS$ERHRD

EXIT

104432

702..,ERR3

TRAP

ERRHRD

.MORD
.MORD
.MORD

001277
000000
012646

1GO REPORT

OBHSTAT R1
10¢
OMBHSTA,R3

ERRHRD

104456

BIT
BNE
MOV

EXIT

104432

000204
005767
100035

B8R

1EXIT

s TEST IF MANUAL INTERVENTION RUN
1NO-SKIP
1CHECK IF FIRST PASS
- SKIP
+NO
1ELSE CHECK HD O SELECTED
1 YES-SKIP
1SET NAME MESSAGE PTR
1SET CONDITION POINTER
1REPORT ERROR

sEXIT

sCHECK VOL CHECK SET

1 YES-SKIP
1ELSE SET NAME MESSAGE PTR
1GO REPORT
1 TEST DRIVE ERROR SET
s YES -SKIP
sELSE SET NAME MESSAGE PTR
1GC_REPORT
1CHECK WRITE LOCK STATUS
1SKIP IF RESET
1ELSE SET NAME MESSAGE PTR

705

ERR2
#21177,R1
T7.DRIVE,®1
994

sCLEAR STAUS EXCEPT FOR ERROR BITS

#200,R1

19¢

BR
TST

184
R1

.MORD
.MORD

O
ERR6

BEQ
ERRHRD
TRAP
LHMORD

+CHECK BRUSH HOME SET
1 YES-SKIP
1SET NAME MESSAGE PTR

19¢
704.,,.ERR6
CSERMRD
704

1NO -SKIP
;ELSE REPORT ALL ERRORS

F9
CNRLIAO RLO1702 DRIVE TEST 1
oTEST

INITIAL

5386 032350
032350
032352
$387 032354

5388 032360
5389 032364

104432
000016

016701
042701
005701

MACRO M1200

150464
181777

19¢:

5391 032370
5392 032370
5393 032370

032370

258
1008:
ENDTST

L10035:

104401

5395

5396 032372
032372
$397 032372
5398 032400
S400 032404
5401 032410
$402 032412
5403 032416
5404 032420
S405 032424
S406 032426

.SBTTL

012767
004767
004767
032456
005767
100017
005767
001014

032767

006515 150412
164406
164420
161710
150734
000100

5407 032434 001410
5408 032436 012703 010537
S409 032442 012704 011412
S410 032446

032446
032450
032452
032454

S411 032456
5412 032456
5413 032456

032456

104456
001441
000000
012646

PAGE 42-68

STATE

$390 032366 001364

— 032370

19-DEC-83 09:36

BGNTST

150416

EXIT
TRAP
.MORD
MOV

TST
CSEXIT
L10035-.

JEXIT

BNE

188

1YES-SKIP TO REPORT

8IC
ST

T.CS.R1
0141777.R1
R1

TRAP

CSETST

oTEST 8

MOV
JSR
JSR
654
ST
8PL
ST
BNE
8IT

BEQ
MOV
MOV

INITIAL RESET STATE

TEST 8
18::
@INITST,ERMEAD
PC, TSTINT
JINITIALIZE TEST
sGET STATUS WITH RESET
PC.GSTATR
MISWIW
JCHECK IF MAN INTERVENTION WAS RUN
as
sNO-SKIP
PASNUM
;CHECK IF 1ST PASS
as
+NO-SKIP
OHSSTAT,T.MP

as
#MHSTA, R3S
eCCYLUP R4

ERRMRD 801.,,ERR4

as:
658
:
ENDTST

L10036:

JGET CS REG
{CLEAR ALL BUT ERROR BITS
sTEST IF ANY ERROR SET

TRAP
.MORD
MORD
'WORD

CSERMRD
801
O
ERR4

TRAP

CSETST

;CHECK MD SELECT STILL O

1 YES -SKIP
1SET NAME MESSAGE PTR
;SET CONDITION POINTER
JREPORT ERROR

i 032456

104401

5415
S416 032460
032460
S417 032460
S418 032466
S419 032472
S420 032474
S421 032476
S422 032500
S423 032502
S424 032506
$425 032512
5426 032514
S427 032520
5428 032524
S429 032530
S430 032532

.SBTTL TEST 9
DRIVE READY
BGNTST
s TEST 9
19::
012767 006543 150324
MOV
OTO9ERR ,ERMEAD ;SET ERROR HEADER
012701 003102
MOV
ONEWCYL ,R1
:GET POINTER TO DESIRED LOC
005021
CLR
(R1)+
1CLEAR NEW CYL
005021
CLR
(R1)+
;CLEAR CURRENT CYL
005021
CLR
(R1)e
'
DIFFERENCE
005011
CLR
(R1)
;
SIGN
004767 164304
JSR
PC, TSTINT
JINITIALIZE TEST
004767 164316
JSR
PC.GSTATR
1GET STATUS WITH RESET
033014
1004
004767 170012
JSR
PC.POSHSB
sPOSITION HEAD SELECTED BIT
010567 150366
MOV
RS . DESHD
1STORE AS DESIRED HEAD
004767 166346
JSR
PC. STMSEK
JEXECUTE SIMPLE SEEK
033014
1004
012703 010404
MOV
OMDRDY ,R3
1SET NAME MESSAGE PTR

CNRLIAO RLO1/02 DRIVE TEST 1
«TEST 9

MACRO M1200

19-DEC-83 09:36

PAGE 42-69

SEQ 0110

DRIVE READY

S431 032536
S432 032542

012704
004767

011353
164312

S434 032550
5435 032556

032767
001406

000001

S433 032546

5436 032560
032560
032562

033014

032572

000222

032570

S438 032574
S439 032600

S440 032604

S441 032606
5442 032612
5443 032616

S444 032620

032620
032622
032624

032626

5445 032630

032630

000121
164254

012703
026703
001406

000005
150242

013666

032710
032712
032714

5455 032716
032716

005767
100006

032730

104456

S460 032740
032740

032742

S461 032744
S462 032750
S463 032754

:
94:

150116

12¢;

CSEXIT

L10037-.

1EXIT

MOV
cHP
BEQ

#5,R3
T.STAT,.R3
74

t1SET EXPECTED STATE VALUE
1CHECK STATE IS S
s YES-SKIP

TRAP

CSERHRD

100¢

902.,.ERR7

.HORD
.HMORD
.WORD

ERR7

TRAP

CSEXIT

L10037-.
OMDRDY ,R3
S®DRDYMSK, T.CS
12¢
R1
9¢
1
1
Ss

TRAP

CSERMRD

ERRHRD

TST
BPL

903.,.ERRS

3+JSD REV A
:+JSD REV A

sREPORT READY ERROR

TST
CSEXIT

L10037-.

7.CS
15¢

904.,.ERR6

.HORD
.HMORD
.MORD

904
O
ERR6

.WMORD

;1CHECK READY SET
s YES-SKIP
sELSE DEC WAIT COUNT
1SKIP IF O

903
O
ERRS

ERRHRD

MOV
JSR
cHe

1ELSE REPORT

902
O

LMHORD
MOV
BIT
BNE
DEC
BEQ
TIMDLY
MAITUS
BR

EXIT
TRAP

15¢:

O
ERR4
TST

sREPORT READY ERROR

1SET WAIT COUNT
1GET STATUS

TRAP

010537
167556
150132

901.,.ERR4
CS$ERHRD

#81.,R1
PC,.GSTAT

.WORD

104432

012703
004767
020567

.WORD

MOV
JSR

EXITY
TRAP

001610
000000
012766

000052

901

.WORD
.MORD
.WORD

104432

S457 032722
S458 032726
032732
032734
032736

150176

78:

001607
000000
012716
000074

5459 032730

010404
000001

000735

- 032720

.HWORD

EXIT

104432

104456

s+TEST READY SET
iNO-SKIP

ERRHRD

001606
000000

032706

5454 032706

4%:
Ss:

104456

000162
012703
032767
001025
005301
001415

ODRDYMSK, T.CS
4%

TRAP

012701
004767

032632
5446 032634
S447 032640
S448 032646
S449 032650
SA4S0 032652
S451
5452 032654
5453 032704

BIT
BEQ

.HMORD
.WORD
EXIT

104432

033014

1SET CONDITION POINTER
1GET STATUS

ERRHRD
TRAP

001605

000000
012646

1004

150266

104456

032564
032566
5437 032570

MOV
JSR

s TEST IF ANY ERROR
3$NO-SKIP

ST
CSEXIY

L10037-.

MMHSTA RS
PC,.POSHSB
RS ,DESHD

31SET NAME MESSAGE PTR
;POSITION HEAD SELECT BIT FOR TEST
1CHECK IF CORRECT MEAD SELECTED

CNRLIAO RLO1702 DRIVE TEST 1
+TEST 9

MACRO M1200

19-DEC-83 09:36

PAGE 42-70

SEQ 0111

DRIVE READY

5464 032760
5465 032762
5466 032766
5467 032770

001415
005767
001406

032770
032772
032774
032776
5468 033000

104456
001611
000000
012600

033002
5469 033004
033004
033006
033010
033012

000012

033000

5470 033014
5471 033014
S472 033014

033014

s 033014

BEQ
ST
BEQ
ERRHRD

150124

TRAP
.MORD
'WORD
'WORD
EXIT

TRAP

104432

17¢:

104456
001612
000000
012532

208:
1004:
ENDTST

L10037:

104401

S474

S475 033016
033016
S476 033016
S477 033024
5478 033030
5479 033032
S480 033034
5481 033036
5482 033042
S483 033046

5484 033050
S485 033050

.SBTTL

BGNTST
012767
012701
005021
005021
005021
052721
004767
010521

006553 147766
003102
000001
167464
11048
BGNSUB

033050
5486 033052
5487 033056
5488 033062
S489 033064
5490 033070
5491 033072
S492 033076
S493 033102

004767
004767
033354
004767
033354
012703
012704
004767

163734
163746
166006
010404
011353
163752

$495 033110

032767

000001

033050

S494 033106

104402

033354

5496 033116 001406
S497 033120
033120 104456
033122
033124

001751
000000

033130
033132

104432
000222

126
5498 033130

012646

147726

208
DESHD
17%
905.,.ERR3
CSERMRD
905
O
ERR3
TST

s YES-SKIP
;ELSE TEST IF 1 DESIRED
iNO-REPORT SB O
;sELSE REPORT SB 1

CSEXIT

.MORD
ERRHRD
TRAP
.MORD
'WORD
'WORD

TRAP

CSETST

eTEST 10

SEEK SIGN SWITCH

MOV
MOV
CLR
CLR
CLR
BIS
JSR
MOV

s TEST 10
T10::
OT10ERR,ERHEAD ;SET ERROR HEADER
ONEMCYL .R1
(R1)+
;CLEAR NEW CYL
(R1)+
;CLEAR CURRENT CYLINDER
(R1)e
1CLEAR DIFFERENCE
#8IT0,(R1)+
:SET FOR SIGN OF 1
PC,POSHSB
sGET SELECTED MEAD
RS,(R1)+
:SET AS DESIRED HEAD

TRAP

CIBSUB

110.1:

JSR
JSR
604
JSR
608
MOV
MOV
JSR

PC, TSTINT
PC,GSTATR
PC, SIMSEK
@MORDY ,R3
OCORDY , R4
PC.GSTAT -

sINITIALIZE TEST
:GET STATUS
;D0 SEEK
;SET NAME MESSAGE PTR
+SET CONDITION MESSAGE PTR
1GET STATUS

8IT

ODRDYMSK,T.CS

;CHECK READY RESET

604

8EQ
at
ERRMRD 1001., ,ERR4
TRAP
CSERMRD
LMORD
JMORD

'MORD
EXIT

TRAP
LMORD

s YES -SKIP

sREPORT READY ERROR

1001
©

ERR4
SUB
CSEXIT

L10041-.

JEXIT SUBTEST

CNRLIAO RLO1/702 DRIVE TEST 1
«TEST

5500 033134
S501 033140
5502 033144
5503 033146
5504 033152
5505 033156
5506 033160
033160
033162
033164
033166
5507 033170

5508 033174
5509 033200
5510 033206
5511 033210
5512 033212
5513
5514 033214

5312 033244

MACRO M1200

PAGE 42-71

SEQ

SEEK SIGN SWITCH

012701
004767

000121
163714

012703
020367

000005
147702

033354

001406

4%
Ss:

012703
032767

001025
005301
001415

010404
000001

147636

7%:

94:

005767

001406

BNE
DEC
BEQ

TIMDLY

WAITUS

ERRHRD

TRAP

. WORD

147556

12¢:

TRAP
. WORD
ST

BPL

ERRHAD

TRAP
. WORD
. WORD
. WORD

1002., ,ERR?7
CS$ERHRD
1002

010537
167216

15¢:

147572

ERR7
SUB
CSEXIT
L10041 -,
OMDRDY ,R3
SORDYMSK, T.CS
124
R1
9
1
1

1SET NAME MESSAGE PTR
;CHECK READY SET
1 YES-SKIP

3100 WAIT COUNT
$SKIP IF O

1003., ,ERRS
CS$ERHRD
1003

+REPORT READY ERROR

SUB
CSEXIT
L10041-.
T.CS
154
1004., .ERR6
CS$ERHRD

sEXIT

sTEST IF ANY OTHER ERROR
1NO-SKIP
;REPORT ALL ERRORS

EXIT

$EXIT

MOV
JSR

1SET NAME MESSAGE PTR
sGET SELECTED HEAD BIT
sCHECK IF CORRECT
1YES - SKIP
sWAS IT SET
s1NO-SKIP
sREPORT SB 1

cp
TS7

BEQ

ERRHRD

TRAP

001755
000000
012600

sEXIT

5S¢

BEQ

147564

1REPORT STATE ERROR

TRAP
. WORD

104456

104432
000012

MOV
BIT

EXIT

104432
000052

020567

TRAP
. WORD

. WORD

104456
001754
000000
012766

001415

1SET EXPECTED STATE
sCHECK STATE IS S
1 YES-SKIP

. WORD

012716

012703
004767

@5,R3
R3,T.STAT
74

000000

100006

MOV
cHp

608

EXIT

104456

005767

+SET WAIT COUNT
1GET STATUS

TRAP
. WORD
. WORD
. WORD

000735

104432
000074

081..R1
PC,.GSTAT

ERRHRD

104456
001752
000000
013666
104432
000162

MOV
JSR

BEQ

001753

033332
033334
033336
5531 033340
033340
033342
5532 033344

19-DEC-83 09:36

.WORD
. WORD
. WORD

EXIT

174:

TRAP
. WORD

RRHRD

CSEXIT
1006. , ,ERR2

sREPORT SB 0

$1JSD REV A
sJSD REV A

011

CNRLIAO RLO1/702 DRIVE TEST 1
«TEST

033344
033346
033350
033352

5533
5534 033354
5535 033354
5536 033354

0333554
033354
5537 033356
5538 033362
5539 033364
5540 033370
5541 033374
5542 033374
033374
033374
5543
5544
5545 033376
033376
5546 033376
5547 033404
5548 033406
5549 033412
5550 033414
5551 033422
5552 033424
5553 033430
033430
033432
5554 033434
3555

5557

MACRO M1200

19-DEC-83 09:36

PAGE 42-72

SEQ 0112

SEEK SIGN SWITCH

104456
001756
000000
012532

TRAP

CSERHRD

'WORD

TRAP
TST

CS$ESUB
DESSGN

.WORD

1006

ERRZ2

20%:
:
604

104403
005767
001404

000167

L10041:

147526

BEQ
CLR

147520
177454

JMP

sCHECK IF BOTH SIGN USED

1 YES-SKIP
:SET FOR SIGN OF O

254
DESSGN
T104$

:D0 TEST AGAIN

ENDTST

L10040:

104401

.SBTTL
BGNTST

032767
001411
005767
001006

000010

147746

026767
001004
000167

000422

104432
000520
016767

147372

005046
156716
012746
016746
012746
012746
012746
010600
104417
062706
012746
012746
012746
010600
104417
062706
012746
012746

160722

147412

147363
006053
147346
006042
011567
000005
000014
007154
011753
000002

007237
011753

147366

TRAP

2%:

CSETST

|
HEAD ALIGNMENT SUPPORT

#TEST 11

;s TEST 11

1
-—

BIT
BEQ
ST
BNE
cHP

OHDALIGN,MISWIW ;CHECK IF RUN HEAD ALIGNMENT
sNO-EXIT
14
PASNUM
;TEST IF PASS O
sNO-EXIT
14
RLDRV , HADONE
s TEST IF HEAD ALIGN DONE THIS DRIVE

T115¢

BNE

1%:

147346

EXIT
TRAP
LHORD

MOV

CLR

BISB

MOV

Fi}

TST
CSEXIT
L10042-,

RLDRY , HADONE

;TELL DRV AND CNTRL HD ALIGN TO BE DONE ON

#BASADD, -(5P)

ADD

#14,5P

COPNTF

PRINTF OFMTO, OHAMES1

sHD ALIGN. RSETWRT LCK TO SEL MD O, SET WD 1

SHAMES]
, -(SP)
#FMT9, -(SP)
#2,-(SP)
SP,RO
COPNTF

#6,5p

PRINTF OFMT9, SHAMES2

MOV
MOV

1SET HEAD ALIGN DONE FLAG

-(SP)

OFMTS, -(SP)
o5, -(SP)
SP,RO

MOV
MOV
MOV
MOV
TRAP
ADD

;GO CHECK WRITE LOCK

RLDRV+1,(SP)

MOV
MOV
MOV

TRAP

sNO - SKIP

SHAMES2,
- (SP)
OFMT9, -(SP)

+*C TO RET TO SUPVR CMD MODE

;

I\~
CNRLIAO RLO1/702 DRIVE TEST 1

PAGE 42-73

SEQ 0114

HEAD AL IGNMENT SUPPORT

033570
033572
033574

5565 033600
033600
033604
033610
033614
033616
033620
5566

5567 033624

033624

033672
5568
5569 033676
033676

033676

5570 033700
5571 033704
5572
5573 033710
5574 033716
S375 033724
5576
S577 033732
5378 033740
5579
5580 033746
5581 033752
5582

5583 033754
5584 033760

5585 033766
5586 033770
5587 033776

012746
012746
012746
010600

MOV
MOV

000002

007406
011753

+IF HD SEL TP

(21, 22) DO NOT EXIST

#FMT9, -(SP)

SP,RO

CHPNTF
06,5P

OFMT9, IHAMES4
OHAMESA
, -(SP)

02,-(SP)
SP RO
CSOPNTF
#6,SP

1 JUMPER DRV RDY AND SEEK INCOMPLETE ON DRV

1LOGIC TMMOD

1SET WRITE LOCK

OFMTOP1, @0PR12A, SOPR1A, #BASADD ,RLBAS , SDRVNAM,

147201
006053
147164
006042
010135

010121
011442
000007

005067

163106
147076

016767
032767
012767

147116
000104
000013

016762
016762

147102
147070

003767
001775

147034

005067
012767
000240
032767
001003

OFMT9, OHAMES3

PRINTF

104417
062706

104402
004767

PRINTF

MOV
MOV
MOV
MOV
TRAP
ADD

007343
011753

062706

005046
156716
012746
016746
012746
012746
012746
012746
012746
010600
104417
062706

SP,RO
CSPNTF

ADD

000006

104417

012746
012746
012746
010600

TRAP

&3 ssasaatged aque 83

5561
5562 033554
033554
033560
033564

012746
010600
104417
062706

147026

114:

147116
147110
147106

13¢;

000021

147052

020000

147054

:
204

033540
033544
033546
033550

5563

19-DEC-83 09:36

g. 582 B2 83 38 oy

«TEST

MACRO M1200

csBSuB

Ti1.1:

PC,TSTINT
DONE

s INITIALIZE TEST

RLDRV,L.CS

1SET UP FOR GET STATUS

L.DA,RLDACR2)

;DO GET STATUS

DONE
13¢

1CHECK IF DONE
tNO-GO CLR CONTROLLER

;CLEAR DONE

OGTSTAT,L.CS
OGETSTAT!DRSET,L.DA

L.CS,RLCSR(R2)

DONE
#HDSEL !MBSETO,L.DA;LOAD FOR HEAD 1

QULSTAT, T.MP
224

1CHECK IF WRITE LOCK SET

1 YES-SKIP

CNRLIAO RLOL1/702 DRIVE TEST 1
«TEST

MACRO M1200

19-DEC-83 09:36

PAGE 42-74

SEQ

HEAD ALIGNMENT SUPPORT

5588 034000
SS589 034006
5590 034014
5591 034022
5592 034030
5593 034036

042767
016767
052767
016762
016762

5594
5595 034040

005767

034036

5596 034044

5597 034046

5598 034050
5599 034050

034050
034050

5600 034052
5601 034052

034052

000020
147020
000106
147012
147000

001775

146742

S59%:
ENDSUB

L10043:

104403

104402

T115%:
BGNSUB

162732
162744

5605 034066

032767

020000

034150

001425

034102
034106
034112
034114
034116
5608 034122

012746
012746
012746
010600
104417
062706
005067

034126
034130

104443
000404

0341
5610 034142
S611 034146

005767
001753

5609 034126

034132
034134
034136
034140

5612 034150
5613 034150
5614 034150

034150

104403

034152
617 034152

104401

S618
S619 034154
034154

5620 034154
S621 034162

184:

010102
011753
000002
000006
150236

100004:

150216

194
608:
ENDSUB

L10044;
204;
ENDTST

L10042:

006573
003102

OHDSEL ,L.DA
RLDRYV,L.CS
SEEK,L.CS
L.DA,RLDA(R2)
L.CS,RLCSR(R2)

TRAP

C$BRK

TST

DONE

11%

BEQ

CSESUB

TRAP

cs8SUB

146630

;ELSE CLEAR TO HEAD O
;LOAD IN DRIVE NUMBER
1SET FOR SEEK
;LOAD & EXECUTE SEEK
sALLOW OPERATOR TO INTERRUPT PROGRAM TO GET
1/BACK TO SUPERVISOR COMMAND MODE

30$

TRAP

;:LOOP

T11.2:

JSR
JSR

PC,TSTINT
PC.GSTATR

sINITIALIZE TEST
sCLEAR DRIVE

BIT

QULSTAT,T.MP

;CHECK WRITE LOCK RESET

MOV
MOV
MOV
TRAP
ADD
CLR

OFMT9, -(SP)
#2,-(SP)
SP,.RO
CSPNTF
#6,SP
OBUFF

;CLEAR FOR RESPONSE

TRAP
BR

C$GMAN
10000¢

BEQ
PRINTF
MOV

GMANIL

.SBTTL
BGNTST

012767
012701

BIC
MOV
BIS
MOV
MOV
BREAK

60$

146756

004364
000120
007470
000001

034150

5615 034152
5616 034152

30%:

000716

004767
004767

S606 034074
5607 034076
034076

22%:

104422

S602 034054
S603 034060

5604 034064

147032
147020
147012
000004
000000

.HORD
.WORD
.WORD
LMORD

19¢
OFMT9,00PR12
#0PR12, -(SP)

OPROO2,0BUFF,1,NO

1GET RESPONSE

OBUFF
T$CODE
OPROO2
1

ST
BEQ

OBUFF
184

TRAP

CS$ESUB

TRAP

CSETST

«TEST 12

MOV
MOV

s YES-SKIP
sREQUEST WRITE LOCK RESET

1WAS ANSWER YES
:NO-REPEAT REQUEST

HEAD SWITCHING
s TEST 12

#T12ERR,ERHEAD
ONEMWCYL ,R1

Ti2::
;SET ERROR HEADER
1GET POINTER TO DESIRED LOCATION

0115

CNRLIAO RLO1/702 DRIVE TEST 1
oTEST

5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633

034166
034170
034172
034174
034176
034202
034202
034202
034202
034204
034210
034214
034216
034222

5634 034224
5635 034230
5636 034234
5637 034240
5638 034242
5639 034250
5640 034252
034252
034254
034256

MACRO M1200

19-DEC-83 09:36

PAGE 42-75

SEQ 0116

HEAD SWITCHING

T124%:

CLR
CLR
CLR
CLR
MOV

(R1)»
(R1).
(R1).
(R1)»
01,(R1).

TRAP

Cs8SUB

sCLEAR NEW CYLINDER
1CLEAR CURRENT CrL.
1CLEAR DIFFERENCE
1CLEAR SIGN
1SET FOR HEAD 1

BGNSUB

Ti2.1:

162602
162614

JSR
JSR

PC,TSTINT
PC.GSTATR

s INITIALIZE TEST
sGET STATUS WITH RESET

164654

JSR

PC,SIMSEK

100 SEEK

010404

MOV
MOV

:g‘:

#MORDY ,R3
O®CDRDY ,R4

PC,.GSTAT

1SET NAME MESSAGE PTR
+SET CONDITION POINTER
1GET STATUS

BIT
BEQ

S#DRDYMSK, T.CS
St

;CHECK IF READY
1NO-SKIP
;1REPORT READY ERROR

604

011353
162620
000001

146574

ERRHRD
TRAP

. WORD

1201.,.ERR4
CS$ERHRD
1201

TRAP

CSEXIT

.WORD
.WORD
EXIT

Ss:
64:

000121
162562

146550

L10046-.

MOV
JSR

#81. ,R1
PC.GSTAT

1SET WAIT COUNT
$GET STATUS

MOV
cHp
BEQ

#5,R3
R3,T.STAT
74

TRAP

CS$ERMHRD

+SET EXPECTED STATE VALUE
1CHECK IF STATE IS S
s YES -SKIP
sREPORT STATE ERROR

.WMORD

60¢

. WORD

EXIT

TRAP

.WORD

146504

78:

MOV

BIT

BNE
DEC
BEQ

TIMDLY

WAITUS

BR
9¢:

EXIT

.WORD

ERRHRD

010404
000001

O
ERR4
SUB

ERRMRD

TRAP

. WORD
.WMORD

1202.,.ERR7

1202

SUB

COEXIT

L10046-.

#MDRDY,R3

S#DRDYMSK , T.CS

12¢
R1
9
1

1SET NAME MESSAGE PTR
1CHECK DRIVE READY
1 YES-SKIP
sDEC WAIT COUNT
1SKIP IF O

6
1203.,,ERRS

CS$ERHRD
1203
O

yREPORT READY ERROR

3JSD REV A
1JSD REV A

CNRLIAO RLO1/02 DRIVE TEST 1
«TEST

034406
5662 034410
034410
034412
5663
5664 034414
5665 034420
5666 034422
034422

MACRO M1200

19-DEC-83 09:36

PAGE 42-76

SEQ 0117

HEAD SWITCHING
.WORD

012716

104432

005767
100006

146424

12%:

104456
002264
000000
012766

026705
001415
005767

001406

010537

15¢:

146440

ERRHRD
TRAP

1204.,.ERR6
CS$ERHRD

.WORD

012532

:
208
:
604
ENDSUB
L10046:

146376
146370
177454

254
ENDTST
L1004S:

104401

.SBTTL
BGNTST
003102

146254

1204
O
ERR6
SUB

CSEXIT

L10046-.

17¢

1 YES-SKIP

DESHOD

1205.,.ERR3

1205
©
ERR3

tWAS HEAD O SELECTED
sREPORT HEAD SB 1

EXIT
TRAP

SuB
CSEXIT

JEXIT

ERRHRD
TRAP

1206.,.ERR2
C$ERHRD

;ELSE REPORT HEAD SB 0

LMORD

.MORD
.WORD
.MORD

000000

+REPORT ALL ERRORS

BEQ

.MORD
.MORD
.WORD

104456
002266

1NO-SKIP

1SET NAME MESSAGE PTR
sPOSITION HEAD SELECT BIT
1CHECK IF CORRECT HEAD SELECTED
s YES-SKIP

TRAP

17%:

s TEST IF ANY ERROR

154

OMHSTA,R3
PC,POSHSB
DESHD.RS
20¢

ERRHRD

000012

L10046-.

MOV
JSR
cHP
BEQ
TST

146432

104432

000167

1.C8

TRAP

104456
002265
000000
012600

104403
005767
001404

TST

BPL

.WORD
.WMORD
.WORD
EXIT

104432

000052
012703
004767

(EXIT

suB
CS$EXIT

.WORD

000074

ERRS

EXIT
TRAP

TRAP

L10046-.
1206
O
ERR2

CSESUB

TST

DESHO

TRAP

CSETST

BEQ
CLR
JMP

o«TEST 13

MOV
MOV
CLR
CLR
CLR

sCHECK IF HD O WAS DONE

: YES-SKIP
sELSE SET TO HEAD 0O
sREDO TEST

254
DESHD
Ti24¢

READ HEADER (PART 1)

s TEST 13

OT13ERR ,ERHEAD
ONEWCYL ,R1
(R1).
(R1)+
(R1).

118
$

;SET ERROR HEADER
+GET ADDRESS OF DESIRED LOCATIONS
1CLEAR NEW CYL
1CLEAR CURRENT CYL
;CLEAR DIFF

OLY

5695
569
5697
5698

034550
034552
034554
034554
034554
034554
5699 034556
5700 034562
5701 034566
5702 034570
S70% 034574
5704 034576
5705 034602
5706 034606
5707
5708 034610
5709 034614
5710 034616

READ HEADER (PART

PAGE 42-77

SEQ 0112

005021

71348

162230
162242
164302
000121

165754
10%:

165226

010537
165676
146260

sCLEAR SIGN

CiLR
CLR

(R1).
(R1)-.

csBSuB
PC,TSTINT
PC.GSTATR

s INITIALIZE TEST
1GET STATUS W/RESET

PC,SIMSEK

;100 SEEK

#81.,R1
PC.RDYWAIT

1SET WAIT COUNT
1WAIT FOR READY

PC . XROHOC

100 READ HEADER

OMHSTA
R3S

1SET NAME MESSAGE PTR
sPOSITION HS BIT IN HD WRD 1
sCHECK IF HEAD CORRECT
s YES-SKIP
1REPORT SB 1

oTESY

TEST 1

19-DEC-83 09:36

88248 343

CNRLIAO RLO1/702 DRIVE

MACRO M1200

PC.POSHU1
RS,DESHD
15¢
1301.,,.ERR3
CS$ERHRD
%30‘

;CLEAR HEAD

T135.1:

ERR3

17s;

suB
CSEXIT
le' »
1302.,.ERR2
CSERHRD
1302

sREPORT SB 0

0o
ERR2

146224
000001

146214
146212

000177
000177
146170

146202
146130

146150

5727 034714
5728 034722
5729 034730
S730 034732
5731 034736
034736
034740
034742
034744
5732 034745
S733 034746

204

146122

007070

224
ENDTST

L10050:

33885

15¢:
:
608

s TEST IF HEAD 1 DONE

3 YES -SKIP

;ELSE SEY TO HEAD 1
1STORE HDR WORD 1
1D0 _TEST AGAIN

sCLEAR ALL BUT CYLINDER IN 1ST MEADER
sCLEAR ALL BY CYL IN 2ND HEADER
1COMPARE IF EQUAL
1 YES -SKIP
1SET NAME MESSAGE PTR
tREPORT HEAD ALIGNMENT PROBLEM

MACRO M1200

CMRLIAO RLO1702 DRIVE TEST 1

19-DEC-83 09:36

Ci10

PAGE 42-78

SEQ 0119

READ HEADER (PART 1)

oTEST 13
034746

5756 034746

L10047;

104401

5735

573 034750
034750
S737 034750
5738 034756
5739 034762
5740 034764
5741 034766
$742 034770
5743 034772
5744 034772

034772

.SBTTL

BGNTST
012767 006621 146034
012701 003104
005021
005021
005021
005021
104402

T1538:
BGNSUB

TRAP

CSETST

eTEST 14

MOV
MOV
CLR
CLR
CLR
CLR

.
;TEST 14
T14::
OT14ERR,ERMEAD ;SET ERROR HEADER
OCURCYL .R1
sGET ADDRESS OF DESIRED VALUE
(R1).
;CLEAR CURRENT CYL
;CLEAR DESIRED DIFF
(R1)+
(R1)e
JCLEAR SIGN
(R1)+
:CLEAR DESIRED HEAD

TRAP

CIBSUB

READ HEADER (PART 2)

T14.1:

$745 034774
5746 035000
5747 035004
5748 035006
5749 035012
5750 035014
5751 035020
5752 035024
$753 035026

004767
004767
035204
004767
035204
012701
004767
035204
004767

162012
162024
164064
000310
165536
166212

JSR
JSR
604
JSR
60%
MOV
JSR
608
JSR

PC, TSTINT
PC.GSTATR
PC., SIMSEK
0200 ,R1
PC,ROYWAIT
PC,RDALHD

sINITIALIZE TEST
;CLEAR DRIVE
;D0 SEEK
;SET MAIT COUNT FOR 20 MS
sWAIT FOR READY
;D0 READ HEADER ALL HEADERS

5755 035034
5756 035040
$757 035046
5758 035050
5759 035054
5760 035060
g;:g 035064

005067
052767
005003
012704
012705
012701
011415

145754

CLR
8IS
CLR
MOV
MOV
MOV
MOV

MORECE
OHDRCMP,OPFLAG
R3
OIBUFF R4
STEMPO RS
€40, R1
(R4),(RS)

;CLEAR MORE COMPARE ERRORS FOR REPORT
;SET HOR COMPARE FLAG
;CLEAR FOR MDR COUNT
:GET POINTER FOR MOR TO BE CHECKED
sGET POINTER TO TEST AREA
;SET HDR COUNT
:GET FIRST MEADER WORD

5754 035032

5763 035066

5764 035072
5765 035076
5766 035100
S767 035104
5768 035110
5769 035112
$770 035114
5771 035116

035204

042715

104456
002735

035124

014076

5772 035126
5773 035130
$774 035132
$775 035134
$776 035136

$777 035140

005724
005203
005724
001406
022544

035140 104456
035142
035144
035146

000002

00273%
000000
014076

60%

145736

003764
003116
000050
000100

005767 146014
001404
052715 000100
005065 000002
021524
001406
005744

035116
035120

035122

8IC

106:

DESHD
108
OHDHSEL ,(RS)
2(RS)
(RS),(RA).
13%
-(R&)

TRAP
LMORD

CSERMRD
1501

'MORD

ERR10

ERRMRD

JMORD

138:

SHOMSEL
, (RS)

ST
B8EQ
8IS
CLR
Cw
BEQ
ST

1sT
INC
ST
8EQ
e

ERRMRD

TRAP

LMORD
MORD
‘WORD

1501.,.ERR10

s TEST IF HD O DESIRED
s YES -SKIP
;ELSE SET MEAD BIT
;CLEAR 2ND WORD OF TEST AREA
;COMPARE HEADER WORD
1SKIP IF OK
JELSE POSITION R4 TO BAD WORD
;REPORT ERROR

(R&)»
(R&)»
15¢
(RS)+,-(RS)

1501.,.ERR10

CHERHRD
1501
O
ERR10

;BUMP R4 TO NEXT WORD
:BUMP WORD COUNT
s TEST 2ND WORD IS O
sYES - SKIP
sPOSITION PTRS FOR REPORT
;REPORT ERROR

U
CNRLIAC RLO1702 "RIVE

MACRO M1200

19-DEC-83 09:36

PAGE

SEQ

READ HEADER (PART 2)

5778 035150
5779 035152
5780 035134
5781 035156
5782 035160
5783 035162
5784 035166
5785 035172
5786 035174
5787 035200
5788 035202
5789
5790 035204
5791 035204
035204
035204

035206
035212
035214
035222
035226

024524
005724
005203
005215
011500
042700
022700
001002
042715
005301
001342

15¢:

177700

-(RS),.(Ra).

1REPOSITION POINTER

INC
INC
MOV
B8IC

R3
(RS)
(RS),RO
RO
@*CHDSEC

1BUMP WORD COUNT
1BUMP SECTOR COUNT
sCHECK IF SECTOR IS PAST LAST SECTOR

BNE
BIC
DEC
BNE

178
OHDSEC,(RS)
R1
10¢

TRAP
ST

CSESUB
DESHD

cre
1SsT

000077

17s:

(R4).

#40. RO

sPOSITION R4 PAST ECC WORD

i NO -SKIP
;ELSE CLEAR SECTOR TO O
;1DEC HDR COUNT
s YES-SKIP

:
608

L10052:

104403
005767

145700

012767
000167

000001
177544

001005

145670

208
ENDTST
L10051:

5797 035226

104401

.SBTTL
BGNTSY
012767
012767
004767
004767
035642
022767
001404
012767
000403
012767
012704
012705
004767

104402
004767
035576

004767
000441

208
#1 ,DESHD
T153s

TRAP

CSETST

«TEST 15

;CHECK IF HD 1 TESTED

1 YES-SKIP
;sELSE SET TO HEAD 1
sREDO TEST

DIFFERENCE OF

sTEST 1S

1 SEEK (PART

1)
T1S::

145554
145652

MOV
MOV
JSR
JSR

OP2TO1E.ERHEAD
o4, TEMPO
PC,TSTINT
PC,.GSTATR

;SET ERROR HEADER
$SET PASS COUNT
sINITIALIZE TEST
1GET STATUS

000001

145012

177776

145626

cp
BEQ
MOV
R

01,7.DRIVE
2%
-2, TEMP2
s

;RLO1 OR RLO27?
;BRANCH TO SET UP DIFF ARGUMENT FOR RLO1
sELSE, SET -2 INTO DIFF ARGUMENT FOR RLO2
s/(RLO2 HAS DOUBLE THE TRACK DENSITY OF RLO1l)

177777
003104

145616

MOV
MOV
MOV
JSR

o-1,TEMP2
OCURCYL ,R4
ONEMCYL ,RS
PC,CHOSHD

1SET -1 INTO DIFF ARGUMENT FOR -1 SEEK
sSET POINTERS

TRAP

Ce8SUB

161542
161554

003102
164412

165570

117654

Ti724:
BGNSUB

gg:

PC.GETPOS

CSINLP
TRAP
%m;s

164452

ce
BNE
JSR
B8R

3GO CHOOSE HEAD
T1S5.1:

INL

104420
103003
021415
001005

BNE
MOV
N, J

006645
000004

5792
5793
5794
5795
5796

wnN

«TEST

TEST

sGET POSITION

sCHECK IF IN ERROR LOOP
3

(R4),(RS)
49
PC . ONSWAP
98

1IN0 - SKIP

sCHECK IF CURRENT = NEW
N0 - SKIP
sELSE SWAP OLD AND NEW
1SKIP TO SEEK

01,

CNRLIAO RLO1/02 DRIVE TEST 1
«TEST

5826 035346
5827 035352
5828 035354
5829 035360
5830 035362
5831 035370
5832 035372
5833 035400
5834 035402
5835 035410
5836 035412
5837 035414
5838 035416
5839 035424
5840 035426
5841 035434
5842 035436
5843 035444
5844
5845 035450
5846 035454
5847 035456
5848
5849 035462
5850 035466
S851 035472
5852 035474
035474
035476
035500
035502
5853 035504
5854 035506
5855

MACRO M1200

19-DEC-83 09:36

E10

PAGE 42-80

DIFFERENCE OF 1 SEEK (PART 1)

3s:

005467
011415
026714

145550

022767
001404
012767

000001

144706

177776

145522

012767
000415
005714
001013
022767
001404
012767
000403
012767
066715

177777

145512

001014

000421

004767
035576
004767
012703
020367
001405

as:

144722

64:
78:

000001

184652

000002

145466

000001

145456

145452

11$:
8s:

162632

032767

HLMTW,(R4)
7%
@1,7.DRIVE
64
e-2,TEMP2
8¢
o-1,TEMP2
8s

1BRANCH IF RLO1
1ELSE, SET UP DIFF ARGUMENT FOR RLO2

BNE
ce
BEQ
MOV
BR
MOV
ADD

8s
#1,7.DRIVE
11%
02, TEMP2
8s
o1,TEMP2
TEMP2,(RS)

608

(R4)

sMOVE CURRENT INTO OLD
1CHECK IF CURRENT AT 255
iNO - SKIP
s1RLO1 OR RLO2?

|g.fuglx CYL, MAKE NEXT SEEK REV
'

1TEST IF CURRENT AT O
1NO - SKIP
1RLO1 OR RLO2?
1BRANCH IF RLO1
1ELSE, SET UP DIFF ARGUMENT FOR RLO2

sAT CYL O, MAKE NEXT SEEK FWRD
1ADD DIFF TO NEW CYL (+1 OR -1 FOR RLO1,
17+2 OR -2 FOR RLO2)
;100 SEEK

PC.GDRSTA

1GET DRIVE STATE

145366

MOV
cp
BEQ

04 ,R3
R3,T.STAT
108

TRAP

CSERHRD

1SET EXPECTED STATE
sCHECK DRIVE STATE
1 YES -SKIP
sREPORT STATE ERROR

164

ERRHRD
LWORD
.HWORD
.WORD

'
12¢:

162360
145306

14%;

164766

145212

104403
104410
000032
005367
001411

cHP
BNE
cHP
BEQ
MOV
BR
MOV
BR

(R4),(RS)

JSR

000145
000000
013666
000427
012703

104456
000146
000000
013666
012701
004767
035576
012767

sCHANGE DIFF ARGUMENT FOR OPPOSITE DIR

MOV

162444

104456

004767
020367
001404

TEMP2

NEG

JSR
cw
BEQ

145270

S0.

PC.GDRSTA
R3,T.STAT
16¢

LMORD
.MORD
.WORD

1EXIT TEST
+SET EXPECTED STATE
5
sMAIT S MS FOR DRIVE STATE CHANGE FROM 4 0
4
T0
FROM
5
CHANGE
STATE
DRIVE
FOR
MS
S
tWAIT
sGET DRIVE STATE
+IS STATE 57
1 YES-SKIP
sREPORT STATE ERROR

:g:

#50. ,R1

PC.ROYMALT

s INITIALIZE WAIT COUNT
1GO WAIT FOR DRIVE READY

MOV

#2 ,ERRSMI

s INIT ERROR SWITCH

TRAP
ESCAPE
TRAP
LMORD

CIESUB
TST
CSESCAPE
L10053-.

TEMPO
243

1DEC_PASS COUNT
1SKIP IF O-DONE

BIT

#8170, TEMPO

s TEST IF PASS=2

166

MOV

604:

ENDSUB
L10054

101
O
ERR7

102..,.ERR7
CS$ERHRD
102
O
ERR7

ERRMRD
TRAP

DEC
BEQ

145300
000001

TIMOLY

HWAITUS

101.,,.ERR7

1EXIT TEST IF ERROR

1JSD REV A
:JSD REV A

CNRLIAO RLO1/702 DRIVE TEST 1
oTEST

DIFFERENCE OF

S871 035626

001003

S873 035634

035642

S872 035630

S874 035636
S875 035642
S876 035642

004767

000167

MACRO M1200
1 SEEx (PART

BNE

JSR

23s8:

177456

876 035642

24%:
T1765%:

104401

.SBTTL

S880 035644

S881 035644
S882 035652
S883 035660
S884 035664

S885 035670

S886 035672
S887 035676
S888 035704
5889 035710
S87%0 035714
5891 035720

BGNTST

012767
012767
004767
004767

006645
000004
161126
161140

004767
012767
012703
012704
012705

164034
177777
003102
003104
003100

036134

145140
145236

035720
S893 035722
S894 035726

S895 035730

035730

5896 035732
035732
S897 035734
5898 035736
S899 035740
S900 035744

5901 035746
5902 035752
S903 035754

5904 035760

S905 035762
5906 035770
5907 035772
S908 035774
S909 035776
5910 036004
5911 036010
9912 036014

5913 036016
5914 036022

5915 036026

5916 036030
S917 036034

5918 036036
5919 036040
S920 036042

243
JMP

TRAP

238
PC ., SWAPHD

T172%

1NO-SKIP

;GO SWAP TO HEAD 1 OR END TEST
1ABORT RETURN

145216
T187%:;

CSETST

eTEST 16

DIFFERENCE OF 1 SEEK (PART 2)

s TEST 16

OP2TO2E ,ERHEAD
o4, TEMPO
PC,TSTINT
PC.GSTATR

;SET ERROR HEADER
1SET PASS COUNT
s INITIALIZE TEST
1GET STATUS, CLEAR DRIVE

JSR
MOV
MOV
MOV

1GO CHOOSE HEAD
ISET DIFF ARGUMENT TO -1 (REVERSE)
1GET ADDRESSES

MOV

PC.CHOSHD
o-1,TEMP2
ONEMCYL ,R3
R4
OCURCYL
o0LDCYL ,RS

TRAP
JSR

Ce8SUB
PC.GETPOS

BGNSUB

104402
004767

036072

165170

604

INLOOP

TRAP

104420
103005
021413
001005
004767
000421

164052

005467
011413
026714

145150

012767

177777

001004

34:

44:

184322

145132

CeINLP

T16.1:

$sGET CURRENT POSITION
;CHECK IF IN ERROR LOOP

BNCOMPLETE
34
8CC
34
ce
(R4),(R3)
BNE
4%
Jsa
PC . ONSWAP
B8R
94

iNO - SKIP

BNE

sNO - SKIP

NEG
MOV
cp

TEMP2
(R4),(R3)
HLMTW,(RA)

|G€CK IF CURRENT = NEW
iNO ;ELSE Sw OLD AND NEW
$SKIP 7O SEEK
sCHANGE DIFF ARGUMENT FOR OPPOSITE DIR
mw CURRENT INTO NEW
sCHECX IF CURRENT AT 255

MOV
B8R
ST
BNE
MOV
ADD
JSR

o-1,TEMP2
8
(R4)
1]
o1, TEMP2
TEMP2,(R3)
PC, XSEEK

sAT MAX CYL, MAKE NEXT SEEK REV
1 SKIP
IYEST IF CURRENT AT O
1IN0- SKIP
le CYL 0, MAKE NEXT SEEK FWRD
sADD DIFF TO NEW CYL (1 OR -1)
100 SEEK

005714
001003
012767
066713
004767

000001
145112
162272

012701
004767

000226
164534

MOV
JSR

#150. .R1
PC.RDYWAIT

$sSET WAIT COUNT FOR 1S MS
1WAIT FOR READY

004767

165062

JSR

PC.GETPOS

1STORE POSITION

145042

MOV
SuUB
TST

(RS).R1
(R4),R1
DESSGN

1GET OLD POSITION
sSUBTRACT FROM NEW POINTER (FORWARD)
sCHECK IF SIGN FORWARD

036072

036072
036072

011501
161401
005767

74:

T16::

MOV
MOV
JSR
JSR

T1865¢

5892 035720

035720

SEQ Olice

ENDTST

L10053:;

5879

035644

F10

PAGE 42-81

164122

S877 035642

035642

19-DEC-83 09:36

145116

84:
9¢:

60¢

608
604

CNRLIAO RLO1702 DRIVE TEST 1
+TEST

MACRO M1200

19-DEC-83 09:36

G10

PAGE 42-82

SEQ 0123

DIFFERENCE OF 1 SEEX (PART 2)

5921 036046
5922 036050
5923 036052
5924 036054
5925 036060
5926 036062

BEQ

5932 036112
5933
5934 036114

5935 036122
5936 036124
5937 036130
59358 036132
5939 036134
5940 036134
5941 036134
036134
036134
5942 036136
5943
5944
S945 036136
5946 036136
036136
5947
5948 036140

161501
022701
001404

036156

036160
036162
036164

5953
5954 036166
036166

SuUB
cHp
BEQ
ERRHRD

(RS).R1
o1.R1
124
201.,,.ERR8

sSUBTRACT FROM OLD CyL
sCHECK IF RESULT IS DIFFERENCE OF 1
s YES-SKIP
1ELSE REPORT ERROR

220

. WORD
. WORD
. WORD

201
0
ERR8

60%:

MOV

#2 ,ERRSWI

sINIT ERROR SWITCH

TRAP
ESCAPE

CSESUB
TST
CS$ESCAPE

1EXIT TEST 1F ERROR

DEC
BEQ

TEMPO
30¢

1DEC PASS COUNT
$EXIT IF DONE

BIT
BNE

#B8IT0,TEMPO
204

sTEST IF PASS 1 OR 3
1 YES-SKIP

T187¢

1ABORT RETURN
;1LOOP

108:

TRAR

104456
000311
000000
013736
144716

104403
104410
000030
005367
001410

032767
001003
004767
036134
000672

104401

036140
036142
036144

5949
5950 036146
036146
036150
0361352
036154
5951
5952 036156

1 YES-SKIP, ELSE SUB FOR SEEK REVERSE

MOV

012767
036100
5930 036102
036102
036104
59351 036106

10s

001402
011401

ENDSUB
L10056:

TRAP
.WORD

145004

144774

JSR

163626

208 :

30%:
T18654:

ENDTST
L100S5:
ENDMOD

304
BR

TRAP

L100S5-.

PC, SWAPHD

1GET NEW CYLINDER

:1GO SWAP TO HEAD 1 OR END TEST

CSETST

PARAMETER CODING
HRDPRM

GPRML.

CNTYPE,CNT,1,YES

.WORD L10057-L$HARD/2

JMORD ~ T#CODE

CNTYPE
1

GPRMA

CSRMSG,CSR,0,160000,177776,YES

GPRMA

VECMSG,VECT,0,0,776,YES

GPRMD

DRMSG,DRSB,0, 3400,0,7,YES

177776

004032

CS$ERHRD

.SBTTL
BGNMOD
BGNFRD

.WORD
MORD

001031
036234
000000
000776

(R4),R1

.HMORD
.MORD
.WORD
LHORD

.WORD
.WORD
.WORD
.WORD

.WORD

T$CODE
CSRMSG
TSLOLIM
THHILIM

T$CODE
VECMSG
TSLOLIM
TSHILIM
T$CODE

= x ()

CNRLIAO RLO1/702 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

PAGE 42 83

PARAME TER CODING

036170
036172

036174

— 036176
5956 036200

036276
003400

.HMORD
.WORD

DRMSG
3400

000007

.WORD

TSHILIM

. WORD

000000

036200
036202

003130
036254

5958 036206
036206
036210
036212
036214
— 036216

002032
036243
000340
000000
000007

GPRML

GPRMD

5960 036220

ENDHRD

036220

L10057:

5961

DRTYPE,TYPDR,1,YES

. WORD
.WORD

T$CODE

DRTYPE

BRMSG,.PRIOR,0,340,0,7,VES
.WORD
T$CODE
BRMSG
.WORD
340
.WORD
TSLOLIM
.MORD
TSHILIM
LHWORD
.EVEN

.EVEN

5962
5963

5964 036220
036223

102
040

125
101

123
104

— 036231

123

000

5966 036234

126

105

5968 036243

102

5970 036254

036237

5972 036276

CSRMSG:

.ASCIZ

/BUS ADDRESS/

103

VECMSG:

.ASCIZ

/VECTOR/

122

040

BRMSG:

.ASCIZ

/BR LEVEL/

104

122

111

DRTYPE:

.ASCIZ

/DRIVE TYPE = RLO1/

104

122

124

o073 036301

126

5974 036304

122

036307

5975
5976 036311
5977

061

105

000

111

DORMSG:

.ASCIZ

/DRIVE/

114

061

CNTYPE:

.ASCIZ

/RL11/

000

BGNMOD

5980 036312

036312

122

.EVEN

5979

5981 036312

117

ENDMOD

5978

5982

TSLOLIM

000016

BGNSFT

SFTPRM

.WORD L10060-L$SOFT/2

SEQ 01c4

CNRLIAO RLN1/702 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

110

PAGE 42-84
LA

PARAMETER CODING

5983 036314
036314
036316
036320
5984
5985 036322
036322
036324
036326
5986
5987 036330
036330
036332
036334
5988
5989 036336
036336
036340

§ii 3

036342
036344
036346

GPRML

000130
036350
000004

SELQ,MISWI, 4, YES
T$CODE
.WORD
SELQ
.WORD
4
.WORD

ALGNQ,MISWI,10,YES
T$CODE
.WORD
ALGNQ
.WORD
10
.WORD

000130
036403
000010

MANQ,MISWI, 100000, YES
.WORD
TS$CODE

000130
036442
100000
004052
036477
000377
000000
000377

.WORD
.WORD

MANQ
100000

GPRMD
.WORD

ERLIMQ,.ERLIM,D,377,0,377,YES
TS$CODE

.WORD
.MORD
.WORD
.WORD

036350

ENDSFT

036350

L10060

ERLIMG
377
TSLOLIM
TOMILIM

.EVEN

5996
5997 036403

ERESRER

036406

117
101
101
111

105
111

SELQ:

.ASCIZ

/EXECUTE DRIVE SELECT TESTS/

ALGNQ:

.ASCIZ

/EXECUTE HEAD ALIGNMENT SUPPORT/

.ASCIZ

/DO MANUAL INTERVENTION TESTS/

CNRLIAO RLO1/02 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

J10

PAGE 42-85

PARAMETER CODING

036467
036472

p— 036475
6001 036477

036502

6002

036505
036510
036513
036516

116
105

123

040
123
000

111

116

105
117
114
111

122
122
111
124

125

124

124
124

120

040

ERLIMQ:

.EVEN

6005 036522

ENDMOD

6007 036522

LASTAD

6006

6008

036522
036524
036526

000000
000000

6009

6010 036526

6011

6012

LSLAST::
.EVEN
LSLAST::

000001

/INPUT ERROR LIMIT/

122
040
115
000

6003
6004

.ASCIZ

.END

.EVEN

.WORD
.WMORD

O
O

SEQ 0126

MACRO M1200

CNRLIAO RLO1/02 DRIVE TEST 1

19-DEC-83 09:36

PAGE 42-86

SEQ 0127

SYMBOL TABLE
000020 G
036403
000001
000002

BADADD=
BAMSK =
BANAM
BASADD
BELL
BHSTAT=
BITO
=
BITO00 =
BITO1 =
8IT02 =
B8ITO03 =
BITO4 =
BIT05 =
BIT06 =
BITO7 =
BITO8 =
BIT09 =
BIT1
=
B8IT10 =
BIT11 ~
BIT12 =

004000
000060
006125

000012
036304
007777
000004
015032
000040
003154

ANYERR= 100000
ASSEMB= 000010

000102
016444
003146

003144
016430 G
016212 G
002304
025042

ifli
s

1ennmBEN
H0) el

("]

021732

[

CAFDT
CAMSK
CCYLuP
CORDY
CHOSHD
CKXDATA=
CKERLM
CLKADR
CLKFLG
CLKINT
CLNCOD
CLRBYT
CLRPAR

333
an® JRaRE 1Y

BSNSTR

BYPSNM

BIT7
=
BIT8
~
BIT9
=~
BOE
=
BRMSG
BSFLAG
BSFYAL

=~
=
=

CSSEC
CS00MS
DANAM
DATACH=
OCKERR

B8IT4
BITS
B8IT6

BITS

036220

glalnl OOOO0OOOOOOOOOOOOOOOOOHOOOOND

=
=
=
=

006120

BIT13
BIT14
BIT1S
BIT2

006042
011274
000010
000001 G
000001 G
000002 G
000004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
001000 G
000002 G
002000 G
004000 G
010000 G
020000 G
040000 G
100000 G
000004 G
000010 G
000020 G
000040 G
000100 G
000200 G
000400 G
001000 G
000400 G
036243
003020
003372
010307
010240
011423
002312
011412
011353

CSPNTX=
C$QIO0 =
C$RDBU=
CSREFG=
CSRESE=
CSREVI=
CSRFLA=
CIRPT =
C$SEFG=
C$SPRI=
CSSVECCS$TPRI=
C10MS

000015
000377
000007
000047
000033
000003
000021
000025
000046
000041

012464 G
014076 G
012532 G
ERR3
012600 G
ERR4
012646 G
ERRS
012716 G
ERR6
012766 G
ERR7
013666 G
ERR8
013736 G
ERR9
014032 G
EVL
= 000004 G
030604
EXTOS
ESEND = 002100
ESLOAD= 000035

ERR1
ERR10

003570
011442
011471
011513
011534
011541
011760
011766
011774
012040
012072
012126
FMT17
012137
FMT18
012161
FMT19
012213
FMT2
011550
FMT20
012230
FMT21
012300
FMT22
012323
FMT23
012357
FMT24
012373
FMT25
012400
012410
FMT27
012434
FMT28
012453
FMT3
011553
FMTA
011556
FMTS
011567
FMT6
011607
FMT7
011651
FMT8
011721
FMT9
011753
FOLWRT= 000100
FRMWD
010232

FBSFIL
FMTOP1
FMTOP2
FMTOP3
FMT1
FMT1.1
FMT11
FMT12
FMT13
FMT14
FMT15
FMT16

FUWDSKO=
FUWDSKS=
FOAU
=
FSAUTO=
FSBGN =
FSCLEA=

FSDU
=
FSEND =
F $HARD
=

oOOO0

ADR
~
ALGNQ
ALLCYL=
ALLSEC=

MACRO M1200

CNRLIAO RLO1/02 DRIVE TEST 1

19-DEC-83 09:36

PAGE 42-87

SEQ 0128

SYMBOL TABLE

LAB1
LAB2

HOHSEL= 000100
HOMOVF
007031

000077

HOWD

010214

LBASE
LCLEXT
LCLK
LCLK1
LOCERR

HDSEL = 000020
HOWRD1

003052

006144
006157

L$SPCP
LS$SPTP
L$STA
LéSW
LSTEST
LSTIM
LSUNIT
L.BA
L.CS
L.DA
L-m
L10000
L10001
L10002
L10003
L10004

003150
031572
014544
014552
003364

L10005

L10006
L10007
L10010
L10011
L10012
L10013
L10015
L10016
L10017
L10020
L10021
L10022

L10023

015004

£
ee

002100 G

JIJMP = 000167

LAB

002074 G
002050 G
002000 G
002042 G
014404 G
002112 G
002062 G

ISTST = 000041
JJJ
002300

LILUN
LIMREV
LENAME
LIPRIO
LIPROT
LIPRT
LOREPP

LSLOAD

000041
000041
000041
000041
000040
000041
000041
000041
000041
000041
000041
000041
000041

002044 G
002102 G
002046 G
002064 G
002066 G
036140 G
002120 G
002016 G
002022 G
014310 G
002104 G
014412 G
002026 G
036526 G

ISHRD =
ISINIT=
I$MOD =
ISMSG =
ISPROT=
ISPTAB=
ISPUR =
ISRPT =
I4SEG =
I$SETU=
INSFT =
ISRV =
I$SUB =

002052 G

LSENVI
LSETP
LSEXP1
LIEXP4
LIEXPS
LIHARD
LIMIME
LINPCP
LIHPTP
Lo
LOICP
LOINIT
LOLADP
LOLAST

(21214]

LSEF

L10024

L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L100351
L10032
L10053
L10054
L10055
L10056

002020 G
002024 G
002030 G
014326 G
002114 G
002014 G
002012 G
003036
003034
003040
003042
012530
012576
012644
012714
012764
013664
013734

014030
014074
014304
014324
014342
015652

L10057

036220
036350
036442
005721
005742
010575

010415

011052

010437

005423
005242
010662
010715
MSTERR
MTMBS
006020
MTOSLO
006200
MULOAD
005434
MUNDEF
011103
MVOLCK
010551
MWDERR
010751
MWGERR
010700
MULSTA 010610
MWORD
006172
MWRCHK
005271
MWRITE
005303
MURSET
005400
MURTAB
011211
M4OHDR
005364
NEWCYL
003102
NOCLK
014654
NOCLR = 000010
NOCTLR
006754
003365
NOERCT
NOIRPT= 000002
NOOP
= 000100
NOPCLK
014472
NOPWR
006060
NOTRODY
007003
006664
NOTST
NSTACH 006416
NXMERR= 020000
NXTHL
002306
NXTPAS
015052
004364
OBUFF
003100
OLDCYL
ONSWAP
022016
OPFLAG 003004
OPIERR= 002000
OPMSGS 002224

MRSLT
MSEEK
MSPERR

OPROO2 007470
OPROO3 007515
OPROO4
010164
OPR1
007540
OPR1A
010135
010141
OPR18
010003
OPR10
010051
OPR11
010102
OPR12
OPR12A 010121
007616
OPR2
007651
OPR3
OPR6
007665
007720
OPR7
OPRS
007747
OPR9
007766
OUTINS= 000040
O$APTS= 000000

CNRLIAO RLO1/702 DRIVE TEST 1

MACRO M1200

19-DEC-83 09:36

M10O

PAGE 42-88

SEQ 0129

SYMBOL TABLE

0sAU = 000000
0$BGNR= 000000
0$BGNS= 000001
osDU = 000001
O$ERRT+= 000000
OSGNSW= 000001

READRL 016604
RELOWT= 040000

RESES
RESE4
RESES
RESE6
RESPAR
RESTAR
RESTBL

0$POIN= 000001
0$SETU= 000000

PART1 = 000001 G
PASCNT 003152

011300
011304
011311
011316
003062
015022
002320

PASNEW
PASNUM
PATTBL
PAT1
PAT10

015060
003360
002360
004764
005240

REVSKO= 001000
REVSKS= 000200
RLBA = 000002
RLBAS
003026
RLCS = 000000
RLCSR = 000000

PATS

005126

RLVEC

003030

RPTREM
RPTRES

024606
024400

PAT2
PAT3
PATA
PAT6
PAT?

PATS
PAT9

PCLK
PNT

004766
005026
005066

RLDA = 000004
RLDRV
003032
RLMP = 000006

005134
005174

RORWOP= 020000
RPTOP
023612

005176
005236

014440

RSTRT

= 001000 G
POSHDO 022536
POSHSB 022532
POSHW1 022524
PRI
= 002000 G

014740

= 000077
SBSFIL 003374
SECWD
010220
SEEX = 000106
SEEKOP= 010000

PRIOR = 000004
PRIOO = 000000 G
PRIO1L = 000040 G

SELQ
SEQMES
SETDON

036350
010253
015106

PRIOS = 000140 G
PRIOA = 000200 G

SGNMD
SIMSEK

010207
021076

PRIO2 = 000100 G

SFTPRM

PRIOS = 000240 G

SPDERR

PRIO6 = 000300 G

SPDSTA=

PSETNM
PHMCON
PWRFLG
P2TOLE
P2TOE

003362
015330
003370
006645
006645

SSINDX
STAMES
STAMSK=
STATE2
STATES

ROYCHK

021406

PRIO7 = 000340 G

ROALHD
RDOATA=
RDHEAD+=
RONOMR=
ROYMAI
.

ABS.

SPTCOD

023244
000114
000110
000116

006430

014324 G
003002
010276
000007
011323
011333

STATES 011343
STOSTA= 010000
SUBSTK 002404
SVCBGL= 000001

SVCGBL+= 000000

022562

SVCINS= 000000

036526

000000

036312 G

SvVCSUB= 000001
SVCTAG= 000000
SVCTST= 000001
SWAPHD 021756
S$LSYM= 010000
TBLSTR 003024

87
TCERR

TCLK
TEMPO

TEMP1
TEMP2
TEMP3
TEMP4
TEMPS

TEMP6
TEMP7
TEMPS

TSTLAB
TST4

006365
027322

TSTCLK
TSTINT

014606
017012

T$$AUT= 010016
T44CLE= 010017
T$$DU = 010020
T#$HAR= 010057
T4sHW = 010012
T$$INI= 010015
T$$MSG= 010011

T$$PRO= 010014
T$4SOF= 010060
T$$SRV= 010023
T$$SUB= 010056
T44SKH = 010013
T$$TES= 010055

T.BA
7.CS
T.DA

003046
003044
003050

T.MP
T.STAT

003052
003060

T.DRIV

TOSERR
TO9ERR

TYPDR = 000006
T$ARGC= 000002
T4CODE= 004052
TSERRN= 000311

T10
T10ERR
710.1
T104¢
T11

TOHILI= 000377

T12

TSEXCP= 000000
TSFLAG= 000040
T4GMAN= 000000
TSLAST= 000001
TSLOLI= 000000

TSLSYM= 010000

TSLTNO= 000020

TONEST= 177777
TENSO =
TENS1 =
TINS2 =
T$PTNU=
T4SAVL=

T4SEGL=
T4SUBN=
TOTAGL=
T4TAGN=

000000
000005
000002
000000
177777

177777
000001
177777
010061

T$TEMP= 000000
T$TEST= 000020

CNRLIA.BIN,CNRLIA.LST/-SP=SVC34 MLB/ML,CNRLIA.MAC
od

003132
003134
003136

003366
016436

001

00:41:04

003120
003122
003124
003126
003130

TRPFLG
TRPHAN

VIRTUAL MEMORY USED:
29464 WORDS ( 116 PAGES)
DYNAMIC MEMORY:
20060 WORDS ( 77 PAGES)
ELAPSED TIME:

014614
003116

TOSLOW= 000001

000

ERRORS DETECTED:

002544
010363

TTSTM= 177777
T$TSTS= 000001

Til.1
Ti1.2
T115¢

T12ERR
T12.1

T124¢
713

T13ERR

002276

006530
006543

025072 G
033016 G

006553
033050
033050
033376 G
033676
034052
034052

034154 G
006573
034202

034202

034530 G

T15.1
71344
T14
T14ERR
Ti4.1

034554
034554
034750 G
006621
034772

T16ERR

006635

T15
715.1
T153¢
T16

035230 G
035320
034772
035644 G

T16.1
Ti72¢
T1765¢
T1865¢
T187¢
T2

035720
035320

035642
036134
035720
025352 G
002430
002456
025560 G

T251BL
125782
T3
T33TBL
T365¢
T4
T4.1
T465¢
15

002504
027276
027300 G
027320
030070
030202 G

76.1

031224

75.1
7504
76
17
T8

79
UAM

030474
030526
030606 G
031574 G
032372 G

032460 G
= 000200 G

ULOAD = 000010
UNDTST 010151

UNXERR 006350
VCNRST 006327
VCSTAT= 001000
VECMSG 036234

VECT
= 000002
WAITIN 016636
WCMSK = 017777

WCRNG = 160000

WDESTA= 100000
WGESTA= 002000

WLSTAT= 020000
WRTSWI

003022

XROHD
XROHDC
XRDHOG
XSEEK
XSEEKT

022052
022042
022056
020306
020276

WTDATA= 000112

XSEEK1
X$ALWA=
X$FALS=
X$0FFS=

020312
000000
000040
000400

X$TRUE= 000020