Digital PDFs

AH-T752A-MC

April 1984

125 pages

Original

49MB

view download

OCR Version

59MB

view download

Document:	CNRLKA0 11-21,RL01-02 RL01-2 PERF EXER APR 1984 gray
Order Number:	AH-T752A-MC
Revision:	000
Pages:	125
Original Filename:	CNRLKA0__11-21,RL01-02__RL01-2_PERF_EXER__AH-T752A-MC__APR_1984_gray.pdf

OCR Text

Tl/21+

RLO1/0Z

B0ty

CHRLKRAO

PEREFSER

FIohe & oF 1

—

CO®IO VDWW

CNRLKAQ RLO1/702 PERF EXER

MACRO M1200

19-DEC-83 09:48

.TITLE

PAGE

SEQ 0001

CNRLKAO RLO1/02 PERF EX_R

LNLIST T0C
.ENABLE AMA
.ENABLE ABS
.REM &

IDENTIFICATION
..............

PRODUCT CODE:

AC-T751A-MC

PRODUCT NAME:

CNRLKAO RLO1/2 PERFORMANCE EXERCISER

PRODUCT DATE:

DECEMBER 19,

MAINTAINER:

ISS DIAGNOSTIC SERVICES

AUTHOR :

JAMES S. DOUCETTE

THE INFORMATION IN THIS

ooww

1983

SUBJECT

CHANGE

WITHOUT

NOTICE AND SHOULD NOT
CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGIYH. EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE SOFTWARE DESCRIBED IN THIS DOCUMENT
IS FURNISHED TO THE
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND

CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) OMLY
FOR USE IN SUCH SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED
IN
WRITING BY DIGITAL.

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

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19 -DEC-83 09:48

PAGE

Cl
3

53
s
5%
56

REVISION HISTORY

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

SEQ 0002

CHANGES MADE TO CZRLKBO IN PRODUCING CNRLKAO FOR THE SBC-11/21+ (FALCON-PLUS),

DEC. 19, 1983.

CHANGES ARE IDENTIFIED BY “;JSD REV A“,

63
64
22

1. CHANGED THE FORM OF THE ARGUMENT TO ALL "DELAY” AND "WAITUS” MACRO
CALLS FROM #<VALUE> TO <VALUE>., THE FORMER GAVE ASSEMBLY ERRORS
UNDER THE VAX/VMS DEVELOPMENT ENVIRONMENT (MCR MAC).

2. CHANGED THE WAITMS MACRO DEFINITION SO THAT “ARG” IS USED AS A DELAY
COUNTER, RATHER THAN "OARG"“.

68
69

72
;2

3. CHANGED THE GENERAL OPERATING PRIORITY OF THE PROGRAM FROM LEVEL 7 TO

LEVEL 6 TO ALLOW THE "BREAK” KEY TO INVOKE ODT. (THE TRAP

HANDLER AND CLOCK INTERRUPT SERVICE ROUTINES STILL RUN BRIEFLY
AT LEVEL 7).

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

77
78
79

S. FORCED THE PROGRAM TO ASSUME THAT NO CLOCK IS PRESENT. AS A RESULT,
(A) REMOVED THE ELAPSED TIME FROM ONLY THOSE FORMATTED MESSAGES
WHICH COULD BE PRINTED (I.E., SOME TIME MESSAGES
WILL NEVER

82
83
84

BE PRINTED)

(l)mn:

IN THE sutis

/ RUNNING MESSAGE PRINTED

T, AND (C) REMOVED THE SW QUESTION

REGARDING THE nt BETWEEN REPORTS. REASON: UNDER FALCON-PLUS,
CLOCK OPERATION IS NOT GUARANTEED. CLOCK INTERRUPTS MAY OR MAY
NOT BE MARD-ENABLED, AND EVEN IF THEY MERE, THE INTERRUPT RATE
COULD
BE S0, 60, OR 800 HERTZ.

FURTHERMORE,
THE DRS CLOCK

MACROS RETURN MISLEADING INFORMATION (UNDER FALCON-PLUS).

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGt

D1
4

SEQ 00072

aQQ
91
92

93
%4

TABLE N CONTENTS

119
120
121
122
123
124
125

127
128
129

131
132

ASSUMPTIONS

OPERATING INSTRUCTIONS
HOM TO RUN THIS DIAGNOSTIC
THE FIVE sms OF EXECUTION
CHAIN

DETAILS OF COMMANDS AND SYNTAX
TABLE OF COMMAND VALIDITY

COMMAND SYNTAX
EXTENDED P-TABLE DIALOGUE
HARDWARE PARAME TERS
SOF TWARE PARAMETERS

ERROR INFORMATION
ERROR REPORTING
ERROR HALTS

PERF ORMANCE A'D mess REPORTS

117
118

HARDWARE REQUIREMENTS

SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC WIERARCHY PREREQUISITES

WWO
.~0”

116

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

BBO

115

PERFORMANCE REPROR
PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES

111
112
113
114

106
107
108
109
110

Eel

105

GENERAL INFORMATION
PROGRAM ABSTRACT

100
101
102
103
104

97
98
99

~o
h)bb el el
)
NNN
tflOWdflD-k”‘Fr‘
PVBNN
W
L)
NN W
e
N
e
N
N

95
9%

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

E1l

PAGE 5

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
CHAINING PROCEDURE).
IT IS A SINGLE PROGRAM FROM THE STANDPOINT OF
THE DIAGNOSTIC USER, WHICH AT RUN TIME
IS APPENDED T0 A

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
%Nusfmdfs. SEVERAL COMMANDS AS DESCRIBED IN 2.0 “OPERATING
THE DIAGNOSTIC PROGRAM IS LOADED

161

163

1.5 OF MEMORY SPACE.

165

166

167

168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186

DIAGNOSTIC INFORMATION

1.1.2

THE RL11/RLV11 RLO1/02 EXERCISER
IS A
PROGRAM.
IT WILL RANDOMLY EXERCISE

DRIVES.

AFTER AN INITIAL WRITE OF EACH

KXT-11 (SBC-11/21.) BASED
(P T0 2 CONTROLLERS
AND 8

RLO1/02,

THE

RANDOMLY PICKED AND GIVEN A RANDOM STRING FUNCTION OF:

DRIVES

ARE

GET

SEEK, WRITE, WRITE-CHECK

SEEX, READ DATA, DATA COMPARE

gfig‘.’sfism HEADERS, READ 1 SECTOR W/NO HEADER COMPARE,

SEEK, READ, READ

1.2

SYSTEM REQUIREMENTS

1.2.1

HARDWARE REQUIREMENTS

187

188
189
190

THE LOWER 8K

--------------------

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 6

SEQ 0005

¢« SBC-11/21+ PROCESSOR, 28KW MEMORY, JUMPERED FOR MEMORY MAP O

+ CONSOLE DEVICE (LA30,LA36,VTS0,ETC.)
¢ 1 OR 2 RL11/RiLV11 CONTROLLER(S) WITH:

1-8 RLgéc?Rm;V’g%Lg;TH RLO1K CARTRIDGES CONTAINING

'‘BAD

1 - 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING

'BAD

SECTOR FILE'

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

1.2. 2

SOF TWARE REQUIREMENTS
....................

CNRLKAO RL11/RLV11 RLO1/RLO2 PERFORMANCE EXERCISER
(FORMERLY CZRLEBO)
1.3

RELATED DOCUMENTS AND STANDARDS

RLO1 DISK SUBSYSTEM USER’'S GUIDE (EK-RLO1-UG-002)
XXDP+/SUPERVISOR USER'S MANUAL

1.4

DIAGNOSTIC MIERARCHY PREREQUISITES
THE RLO1/702 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

PROGRAMS
:

CVRLABC

CNRLGAO
CNRLHAO
CNRLIAO
CNRLJAO

RUN

THE

FOLLOWING

RLV11 RLO1 DISKLESS TEST (RLV11 ONLY)

RL11/7RLV11 RLO1/702 CONTROLLER TEST (PART 1)
RL11/RLV11 RLO1/02 CONTROLLER TEST (PART 2)
RLO1/702 DRIVE TEST (PART 1)
RLO1/702 DRIVE TEST (PART 2)

1.5

THE HARDWARE OTHER THAN THE RLO1 SUBSYSTEM IS ASSUMED TO WORK
PROPERLY,
FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, ETC.., DO
NOT FUNCTION PROPERLY.

e.0

OPERATING INSTRUCTIONS

CNRLKAO RLO1702 PERF EXER

248
249

250
251
25¢
253
254
255

256

goRESTRTIN 33 333838

257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285

287

MACRO M1200

19-DEC-83 09:48

PAGE

Gl
7

SEQ 0005

e.1

HOW TO RUN THIS DIAGNOSTIC

e.1. 1

THE FIVE STEPS OF EXECUTION
.......................

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

MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR THE CNDP+
ENTE?E“D.

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

I?'SKEIYD.E

MONITOR

IS PRINTED.

THEN THE FOLLOWING TWO QUESTIONS ARE

2 N
SOHZ
W
T
L5k

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

RUN

WHEN THIS DIAGNOSTIC IS STARTED TME FOLLOWING STEPS WILL OCCUR:
848054008

¢ STEP
1 »
[TYYYTYT
Y Y

THE DIAGNOSTIC WILL ISSUE THE PROMPT “DR>".
FROM THIS POINT UNTIL
THE TIME WHEN YOU RESTART CNDP+,
YOU MWILL BE TALKING TO THE

DIAGNOSTIC., NOT CNDP+.

PROMPT

BEING

MWE WILL

REFER

THE

PRESENCE

THIS

WNOT

THE

DIAGNOSTIC COMMAND MODE. AS OPPOSED TO CNDP-.

AT THIS POINT YOU WILL ENTER A “START” COMMAND.

SAME AS THE CNDP.
“START” COMMAND, WHICH YOU ALREADY ISSUED IN
RESPONSE TO THE CNDP+ DOT PROMPT. THIS "START* COMMAND CAN TAKE A
NUMBER OF SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF
THESE ARE SET FORTH
HOWEVER,
IN ORDER

SOMETHING LIKE THIS:

IN
TO

2.3
USE

“DETAILS OF COMMANDS AND SYNTAX".
THE PROGRAM, ALL YOU NEED TO SAY IS

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

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

COMMAND

H1
CNRLKAO RLO1702 PERF

306
307
308
309
310
311
312
313
314
315
316

317
318
319

EXER

MACRO M1200

19-DEC-83 09:48

PAGE 8

SEQ 0007

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

PASS

CONSISTS

RUNNING THE FULL DIAGNOSTIC AGAINST

UNITS BEING TESTED (THIS WILL BE EXPLAINED

SHORTLY).

PASS IS SPECIFIED IN THE ABOVE EXAMPLE.

THE

"“FLAGS” SWITCH MAY SPECIFY ANY OF A

BUT THE MAIN USEFUL ONES ARE:

PNT
LOE
HOE

NUMBER

ALL

ONE

FLAGS,

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR
HALT ON ERROR
INHIBIT ERROR PRINTOUT

IER

THE HOE FLAG IS SPECIFIED IN
SHORTLY).

THE

ABOVE

EXAMPLE

(WE'LL

SEE

WHY

YTy YY)
LYY

« STEP 2 »

sssssssses

WHEN YOU HAVE TYPED IN A “START” COMMAND, THE DIAGNOSTIC WILL COME
BACK WITH THE QUESTION “® UNITS?” TO WHICH YOU SHOULD RESPOND BY
TYPING IN THE NUMBER OF DEVICES YOU MWISH TO TEST.

A WORD OF WARNING
MERE:

THE NUMBER OF UNITS DEPENDS ON THE

TARGET

DEVICE OF THE DIAGNOSTIC.
FOR EXAMPLE,
IF THE DIAGNOSTIC IS
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF UNITS WOWLD BE THE
NUMBER OF DRIVES TO BE TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
DIRECTED
AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOULD BE
THE NUMBER OF CONTROLLERS.
THE TARGET DEVICE OF A DIAGNOSTIC CAN
ALWAYS BE DETERMINED BY INSPECTING THE “HEADER” STATEMENT NEAR THE
BEGINNING
OF THE SOURCE CODE. ONE OF THE OPERANDS
OF THIS "HEADER”
STATEMENT SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC.
286448500

3 »
s STEP

[ YTYYY
YL Y}

WHEN YOU HAVE TYPED IN THE

NUMBER

UNITS

ASK YOU THE “HARDMARE QUESTIONS”.

BE_

TESTED,

THE

DIAGNOSTIC

WILL

THE ANSWERS TO

;E;%ES”'

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

THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED

“"HARDWARE

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

REPRESENTS

NEW

PHILOSOPHY

DIAGNOSTIC = ENGINEERING.

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

CNRLKAO RLO1/02 PERF EXER

362
363
364
365
366
367
368

369
370

371
372
373

374
375

MACRO M1200

19-DEC-83 09:48

PAGE

200

401
402
403
404
405

SEG 0008

54004000400

« STEP 4 »

PYTTTYYYY
VS

|
'

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS
(SEC
2.5)
FOR
ALL
THE
WUNITS,
YOU WILL BE ASKED "CHANGE SW?“ IF YOU WANT TO BE
ASKED THE SOF TWARE 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 THE PROGRAM.,

THE SERIES OF QUESTIONS

WILL

ASKED JUST ONCE, REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.

376

377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
39
397
398
399

£3

LI I LYY

5 »
4 STEP

4888888008

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL

BEGIN

T0 EXECUTE THE HARDWARE TEST CODE.

THERE ARE SEVERAL THINGS

THAT CAN HAPPEN
NEXT, DEPENDING
OM WHETHER A HARDMARE ERROR IS
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE
START COMMAND.
CONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY

EXECUTE

THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND

MODE (PROMPT DR>).

IF AN ERROR IS ENCOUNTERED, THEN ONE OF THREE THINGS
mgus.
DEPENDING ON THE SETTINGS OF
THE HOE AND LOE
HOE SET:
THE ERROR WILL BE REPORTED ON THE CONSOLE AND THE
DIAGNOSTIC WILL RETURN TO COMMAND MODE.

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

THE

BLOCK

NEITHER
HOE NOR LOE SET: THE ERROR WILL BE REPORTED ON THE
ggnsmemmexzcmzwunLaemusxrmmm

J1
CNRLKAO RLO1702 PERF EXER

407

408
409

410

411
412

413

MACRO M1200

19-DEC-83 09:48

PAGE

SEQ 0009

SAMPLE RUN- THROUGH

2.3.2

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION.
RECALL
THAT WE
ENTERED THE COMMAND “STA/PASS:1/FLAGS:HOE”.
THIS WOULD BE A VERY
TYPICAL WAY TO RUN THE DIAGNOSTIC.
IF NO ERRORS ARE ENCOUNTERED,
;E&IsgwngLE REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE
IF AN ERROR IS ENCOUNTERED, THE ERROR WILL BE REPORTED AND THE
PROMPT MWILL BE REISSUED (BECAUSE THE HOE FLAG IS SET).
AT THIS

:gi'l‘:l THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE

PROGRAM

GOING

ISSUE ANOTHER “START” COMMAND (THUS GOING THRU ALL OF STEPS
1, 2. 3, 4, AND 5 AGAIN)

ISSUE A "RESTART” COMMAND (SAME

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
HALT OCCURRED.

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

COMMAND

EXCEPT

NO QUESTIONS ASKED.

ISSUE A “PROCEED” COMMAND:

EXECUTION WILL

RESUME

THE

INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR).

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

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

iK1
CNRLKAO RLO1/02 PERF EXER

455
456

MACRO M1200

19%-DEC-83 09:48

PAGE

SEQ 0010

457

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

460

WHEN YOU'VE SEEN ENOUGH,

458
459

461
462
463
464

STUDY THE ERROR OR SCOPE IT OR WHATEVER.

START

466

RESTART

468

CONTINUE

465

467

YOU MAY HIT CONTROL/C.

THIS WILL TAKE YOU

%’;EENCMIEEESLW AND PUT YOU BACK INTO COMMAND MODE.

YOU NOW HAVE

469

470
471
472

473
474
475
476
477
478
479
480

481
482

483
484

485
486
487

488
489
490

LET'S SAY YOU'VE REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH
YOU WOWLD TYPE
RUNNING THE DIAGNOSTIC.
IER=0:LOE=0
:HOE :LAGS
CON/F

THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME
EXECUTION 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.

MACRO M1200

CNRLKAO RLO1702 PERF EXER

492

4933

SEQ 0011

MIGHT

(0=0PERATOR, D=DIAGNOSTIC):

495
436

B
501

PAGE 12

19-DEC-83 09:48

THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE

494

497
498
499

g T

AT L

e g

s el

AT SR

LOOK

BY
WHOM
ENTERED:
e.

502
503
504
505
506

.R NRLKAO
DRS LOADED
DIAG. RUN-TIME SERVICES REV. D APR-79
CNRLK-A-0
CNRLK RANDOMLY PERFORMS DRIVE SEEK, READ,

0
D
D
D
D

508

UNIT IS RLO1, RLO2

gi%

DR>STA/PASS: 1/FLAGS : HOE

D.0

gii
515

& UNITS (D) 72 2

D.0

517
S18
519

520
521
S22
Ssgz

UNIT O
RL11 (L) ¥ ?
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLO1 (L) Y ?
BR LEVEL (0) S5 ?

D
D.0
D.0

525
526

UNIT 1
RL11 (L) ¥ ?

0
D.0

S28
529
530

VECTOR (0) 160 ?
DRIVE (0) 0 72 1
DRIVE TYPE = RLO1 (L) ? N

D.0
D.0
D.0 (N=RLO2)

533

CHANGE SW (L) 7 N

509
510

516

527

ggé

35
536

AND WRITE FUNCTIONS

CHANGE HW (L) 2 Y

BUS ADDRESS (0) 174400 ?
BR LEVEL (0) 5 ?

D.0

D.0
D.0
D.0
D.0

D.0

CNRLK HRD ERR 00004 TST 003 SUB 002 PC:004130

gg;

ERR HLT

539

DR>PRO/FLAGS: IER:.OE : HOE=0

542
S43
S44

$488088088888845404404.. 0088080804888 8808888000040
AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE
ERROR WITHOUT PRINTING ANYTHING.
YOU CAN SCOPE

$884548804888880808080888000804084000080080000008

341

545

548

D.0

THE ERROR UNTIL YOU HAVE LOCATED IT, THEN *C OUT.
tC

THIS

CNRLKAO RLO1/02 PERF

EXER

MACRO M1200

19- DEC-83 09:48

550

551
552

553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
S84
585
586
587
588
589

PAGE

M1
13

SEQ 0012

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

D,0

CHANGE SW (L) ? N

0.0

EERLK EOP 1

DR>RESTART/PASS:1

D,0

CHANGE SW (L) 2 N

D.0

CHAIN MODE OPERATION

2.2

CHAIN MODE
PROGRAMS

OPERATION

WITHOUT

CONSISTS

OPERATOR

THE

INTERVENTION.

BEEN MODIFIED TO RUN IN CHAIN MODE

SEQUENTIAL

EXECUTION

ONLY PROGRAMS THAT HAVE

CAN BE CHAINED.

CHAINABLE

PROGRAMS ARE IDENTIFIED IN THE DIRECTORY BY A BIC EXTENSION.

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

ASCII

ENCOUNTERED.

FILE

ARE

EXECUTED

THE

COMMANDS

IN THE ORDER IN WHICH THEY ARE

COMMENTS MAY BE INCLUDED IN THE FILE.

TO EXECUTED A CHAIN FILE THE USER TYPES:

C FILNAM <CR> OR
<CR>
C FILNAM/QV

IN THE FIRST CASE THE PASS COUNT SPECIFIED IN THE CHAIN FILE IS
OF PASSES TO
MINE
THE NUMBER
USED BY THE CNDP+ MONITOR TO DETER
IS NOT
COUNT
PROGRAM
THE
CASE
IN THE SECOND
EXECUTE EACH PROGRAM.
USED AND EACH PROGRAM IS EXECUTED ONLY ONCE. THE /QV SWITCH
PROVIDES A SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.

WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE SOFTWARE SWITCH REGISTER
SHOUD BE SET TO 000000. THE CNDPe« 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 ANDA THE
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19- DEC-83 09:48

605
606
607
608
609
610

PAGE

IF THE USER WISHES

SEQ 0013

TERMINATE

CHAIN

MODE

BEFORE

ITS

NORMAL

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

CONTROL FROM THE PROGRAM CURRENTLY RUNNING.

2.3

DETAILS OF COMMANDS AND SYNTAX

2.3. 1

TABLE OF COMMAND VALIDITY

THERE ARE FOUR

WAYS

ENTERING

DIAGNOSTIC

COMMAND

MODE,

AND

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

OPERATOR ENTERED ‘'RUN DIAG’

DIAGNOSTIC HAS FINISHED ALL

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

ITS REQUESTED PASSES

B
CNRLKAQ RLO1702 PERF EXER

659

060
661

662
662
664
665

666

667
668
669
670
671
672
6738
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
703
704
705
706
707
708
709
710
711

MACRO M1200

19-DEC-83 09:48

PAGE

SEQ 0014

COMMAND SYNTAX

2:35.2

088888080080 08080080800000800888084000800000080000880080030000008000

STA(RT)/TESTS:TEST-LIST/PASS:PASS-CNT/FLAGS:FLAG-LIST/EOP :EOP - INCR
0088008888480 088008000080000000800800000000800000080880800000080080000

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

THE

MESSAGE "0 UNITS?” IS PRINTED.

SWITCHES

THE START COMMAND

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

OF THE FOLLOWING:

A) OPERATOR TYPED "RUN DIAGNOSTIC” B) DIAGNOSTIC

OPERATOR

CONTROL/C.

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH MOE

ENTERED

AFTER

THE

FLAG

SET

OPERATOR RESPONDS TO "¢

UNITS?*, THE HARDWARE DIALOGUE IS INITIATED.
WHEN IT IS COMPLETED,
THE QUESTIONS
“CHANGE
SW?” IS ISSUED, AND THE ANSWERS, IF GIVEN,

BECOME THE NEW DEFAULTS.

THEREFORE IT IS NECESSARY TO

PROGRAM IN ORDER TO RETURN TO THE LOAD DEFALLTS.

RELOAD

THE

THE SWITCH ARGUMENTS ARE AS FOLLOWS:

“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
EXECUTED. THE NUMBERS ARE SEPARATED
BY COLONS. THE NUMBERS RANGE
1

TO THE LARGEST TEST NUMBER IN THE DIAGNOSTIC.

SPECIFIED IN ANY ORDER.
TESTS WILL BE EXECUTED IN MUMERICAL ORDER
REGARDLESS OF THE ORDER OF SPECIFICATION.
THE DEFAWT IS 7O
EXECUTE ALL TESTS.

"PASS-CNT” IS A DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC

(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE DEFAULY IS
NON-ENDING TEST EXECUTION.
“FLAG-LIST” IS A SEQUENCE OF ELEMENTS
OF THE FORM <FLAG>, <FLAG=1>, OR

<FLAG=0>,

WHERE <FLAG> MAS ONE OF THE FOLLOWING VALUES:

SEPARATED

MOE MALY ON ERROR, CAUSING COMMAND MODE TO BE ENTERED
ERROR
IS ENCOUNTERED
LOE LOOP ON ERROR,

CAUSING THE DIAGNOSTIC TO LOOP

COLONS,

WHEN

CONTINUOUSLY

WITHMIN THE SMALLEST DEFINED BLOCK OF CODING (SEGMENT,
SUBTEST, OR TEST) CONTAINING THE ERROR

IER INMIBIT ERROR REPORTING

IBE INWMIBIT BASIC ERROR REPORTS
IXE INHIBIT EXTENDED ERROR REPORTS
PRI DIRECT ALL MESSAGES TO A LINE PRINTER

PNT PRINT NUMBER OF TEST BEING EXECUTED

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

71;

PAGF 16

SEGQ

BOE BELL ON ERROR

;}(;

UAM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS

;}8

ISR INMIBIT STATISTICAL REPORTS

;5‘,’

IDU INMIBIT DROPPING OF UNITS BY DIAGNOSTIC

;Si

ADR EXECUTE AUTODROP CODE

;g;

LOT LOOP ON TEST

;5'7’

EVL EVALUATE

728

729
;gg

732

733

;g;
736

0O01%

THE FLAGS NAMED OR EQUATED TO 1 ARE SET,

CLEARED.

THOSE

A FLAG NOT SPECIFIED IS CLEARED.

EQUATED

ARE

IF THE FLAGS SW1TCH IS

NOT GIVEN ALL FLAGS ARE CLEARED.

“EOP-INCR” IS A DECIMAL NUMBER INDICATING MOM OFTEN

(IN

TERMS

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

DEFAULT IS AT THE END OF EVERY PASS.

THE

888080840888 00800088840000000080020288008008080084880008580080000580808

737

RESCTART )/TEST: TEST-LIST/PASS:PASS -CNT/FLAGS :FLAG-LIST/EOP :EOP - INCR/UNITS : UNIT-LIST

740

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

;gg

741

744

008088008008 888800800200082800888008080800004088088888888880888088800

SPECIFIED.

MOMEVER,

NEW

“P-TABLES” ARE NOT BUILT.

THE QUESTION “CMANGE SW?" IS ASKED AND THE ANSMERS GIVEN BECOME THE

745

NEW

;;3

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

746
;:;

751
752

DEFAULTS.

ENTERED VIA
CONTROL/C .

DIAGNOSTIC

FINISHED

HWALT

ERROR

“UNIT-LIST” IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
TESTED.

THE

LOGICAL

UNIT

NUMBER

DESIGNATES TME POSITION OF THE P-TABLE IN CORE, ACCORDING
TO THE ORDER IN WHICH THEY MERE BUILT. THE UNITS SPECIFIED
MUST NOT MAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND.
THE UNIT-LIST DEFAULTS TO "ALL THAT MAVE NOT BEEN DROPPED
THE EFFECT OF THE UNIT-LIST LASTS
BY OPERATOR COMMAND”.
UNTIL THE NEXT START (WMERE IT IS AUTOMATICALLY RESET 70

;:2

762

THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN

WHICH UNITS ARE TO BE

754
755
756
757
758
759
763

SWITCHES

INSTEAD, THE

“ALL”) OR THE NEXT RESTART.

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19 DEC-83 09:48

765

PAGE

D
17

SEQ 001£

G042 08040000400000000500004000000040050000000

Téo
767
768
769

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

000440000000 0000000000000004000000000000000

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

770

771
772

THE TEST THAT WAS BEING EXECUTED WHEN THE HALT
OR
CONTROL/C
TOOK
PLACE.
SOFTWARE DIALOGUE MAY OPTIONALLY BE RE-EXECUTED.
HARDWARE
PARAMETERS MAY NOT BE CHANGED.

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT:

DEFAULT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

PREVIOUS START OR RESTART

FROM

THE

2088840800040 088808008000400

PROCCEED)/FLAGS: <FLAG-LIST>

$6008000008000000088008000088

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HWALT ON_ ERROR.
THE
EFFECTY OF THE COMMAND IS 7O BEGIN EXECUTION AT THE LOCATION
:“?'.LGf THE ERROR CALL. NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT:

T PR R

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

EXIT
essa

1 4 A

RETURN TO CNDP. PROMPT MODE.
BERGGL A
RAL
G2 A4F LI
$200

DRO(P)/UNITS:UNIT-LIST

$0680804344800000008080

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY

OR UNTIL A START COMMAND IS GIVEN.

THERE IS ALSO A "DROP” MACRO

INTERNAL

ARE

ADDED

DIAGNOSTIC,

WHICH

A DROP CANNOT BE FOLLOWED

THE

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

E2
o

CNRLKAO RLO1/02 PERF EXER

817

818

819

820

MACRO M1200

19 DEC-83 09:48

PAGE

SEQ 0017

2828882400080 4000000

ADD/UNITS:UNIT-LIST
8804000480400 000400

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

PRI(NT)
ssssese

ALL STATISTICS TABLES ACCUMULATED BY THE

DIAGNOSTIC

ARE

THE ISR (INMIBIT STATISTICAL REPORTING) FLAG IS CLEARED.
B

PRINTED.

DIS(PLAY)/UNITS: <UNIT-LIST>

48084000008 200800283808808

839

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT
1IN
THE FORMAT IN WHICH THEY WERE ENTERED.
ANY UNITS THAT WERE DROPPED
BY THE OPERATOR “DROP” COMMAND ARE SO DESIGNATED.
BEssBE
e

FLA(GS)
sssseee

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

ZFLCAGS)
EXE TR

855

ALL FLAGS ARE CLEARED.
EXTENDED P-TABLE DIALOGUE
.......................

859

861

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

863

AS SOON AS THE QUESTION “# UNITS?"” IS ANSWERED (WITH THE NUMBER N),

865
867
869
870

SPACE

CORE IS ALLOCATED FOR "N” P-TABLES.

ARE OF THE SAME FORMAT, AND THERE IS

ge;m rflfi tm

PARAMETER

IN GIVING A STRING OF VALUES,

REVEALED

THE

ALL OF THE P-TABLES

ONE-TO-ONE_

QUESTIONS

AND

CORRESPONDENCE

THE SLOTS IN THE

COMMAS WITHOUT INTERVENING VALUES MAY

BE USED TO INDICATE A REPETITION OF THE LAST NAMED VALUE.

CNRLKAO RLO1/02 PERF EXER

872
873
874
875
876

877
878
879
880
881
882
883
884

MACRO M1200

PAGE

19-DEC-83 09:48

Fe
19

SEQ 0018

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

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

S HARDWARE QUESTIONS IN THE DIALOGUE).
FOLLOWING IS THE DIALOGUE FOR

THIS

RLOX

DRIVE

P-TABLE,

SYSTEM.

THIS

885

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

889

@ UNITS (D)

886
887
888

890
891
892
893
8%4
895
396
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919

72 8

UNIT O
RL11 (L) Y ?

BUS ADDDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOL (L) Y ?
BR LEVEL (0) 5 ?
UNIT 4
RL11 (L) Y ?

BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 7 164
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLOL (L) Y 2 N
BR LEVEL (0) 5 ?
THE FIRST TIME THRU THE P-TABLE QUESTIONS THE

DEFAULT

VALUES

ARE

USED FOR THE CONTROLLER TYPE (QUESTION 1), CSR ADDRESS OF THE
CONTROLLER (QUESTION #2),
THE
CONTROLLER
VECTOR
ASSIGNMENT
(QUESTION #3),
THE DORIVE TYPE (QUESTION #5), AND THE "BR LEVEL"
(QUESTION #6). THE ACTUAL UNIT NUMBERS OF THE RLO1'S FOR QUESTION
@4 WAS ASSIGNED O THRU 3 FOR THE FIRST 4 P-TABLE SLOTS.

THE SECOND TIME THRU THE P-TABLE QUESTIONS (FOR THE RLO2 ASSIGNMENT

THE

SECOND CONTROLLER),

THE FIRST QUESTION DEFAULTED TO "RL11”"

TYPE CONTROLLER. THE SECOND QUESTION WAS ANSWERED TO REFLECT THE
MZNC”MSSFGM&OZW(1M). THE SECOND
THE
CONTROLLER'S VECTOR WAS ALSO CHANGED TO 164 IN QUESTION o3.
&4
QUESTION
IN
3
TO
O
VALUES
RLO2 TEST UNIT NUMBERS WERE ASSIGNED

921

AND THE DRIVE TYPE MWAS SET FOR RLO2'S FOR THE REMAINING 4 UNITS

923

FROM THE FIRST PASS.

QUESTION

#5.

THE LAST QUESTION WAS DEFAULTED USING THE "BR LEVEL"

CNRLKAO RLC1702 PERF EXER

925

MACRO M1200

19- DFC-83 09:48

2.5

PAGE 20

SEQ 0019

HARDWARE PARAMETERS

926

927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951

952
953
954
955
956
957
958

959
960
9%61
962

963
964
965
966
%7
968
969
970

971
972
973
974
975

976
977

978

979
980
981

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

RL11 (L) Y?

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

BUS ADDRESS {0) 1744007

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

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

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER

DRIVE TYPE = RLOL1 (L) ?
ANSWER
NO (N) IF DRIVE IS AN RLO2
BR LEVEL (0) 5?2

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER.
2.6

SOF TWARE PARAMETERS

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

THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM
OR CONTINUE.
BEMAVES.
THE SOFTWARE 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.W.

A YES ANSMWER WILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS,
WITH THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION
MARK.
(THE LAST ANSWER GIVEN IS THE DEFAULT) THE DEFAULT IS TAKEN

g;rca.wg?am Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND
“RETRY LMT (D) 1 2"

THIS IS THE NUMBER OF TIMES THE

PROGRAM

MWILL

ATTEMPT_

COMMAND

BEFORE IT QUITS AND REPORTS A HARD ERROR.
IF THE RETRY IS
guggisgu. BEFORE THE RETRY LIMIT IS EXCEEDED IT WILL PRINT AND LOG
LIMITS O - 65,535

He
CNRLKAO RLO1702 PERF EXER

983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999

1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010

1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037

MACRO M1200

19-DEC-83 09:48

PAGE 21

“SEEK RETRY LMT (D)

SEG 0020

1 2"

THIS IS THE NUMBER OF RETRYS THAT WILL BE ATTEMPTED TO

CYLINDER

ON A MIS-SEEK.

SEEX

AFTER RETRY IS EXHAUSTED, WE WILL NOT TRY

FOR THAT CYLINDER BUT CONTINUE WITH A NEW CYLINDER.

LIMITS O - 65,535

“DATA DMP ON DCK ERR (L) Y 2“

GIVES THE ABILITY TO SEE THE 1 SECTOR BUFFER THAT HAD A DATA CRC
ERROR.
THE RESULTS OF THE PRINTOUT ARE ONE OF TWO POSSIBILTIES.

ONLY THOSE WORDS OF THE SECTOR THAT WERE
WITH WHAT WAS EXPECTED.

BAD

ARE

PRINTED

IF ONE OF THE 1ST TWO WORDS IS BAD (USED TO KEY) THE ENTIRE

BUFFER IS DUMPED.

LIMITS Y OR N
"o OF ERR DUMPED (D) 128 ?*

THIS IS THE NUMBER OF MISCOMPARES THAT WILL BE PRINTED.
LIMITS O - 128
0060000800888004808080048080800848800848800048808404884084080888808088080¢

ses THE FOLLOWING QUESTION, ORIGINALLY PART OF CZRLKB, HAS BEEN
=«
ss+ REMOVED FROM CNRLK,
STATISTICAL REPORTS WILL ONLY BE PRINTED »
sse IF THE OPERATOR ISSUES THE DRS “PRINT“ COMMAND.
;JSD REV A
=«
006880008808 08808800800000000000000000000488088488048000008808800884800

“TIME BETW REPORTS (MIN) (D) 240 2*
THIS IS THE INTERVAL BETWEEN AUTOMATIC STATISTICAL REPORTS

g;{zes

CLOCK

ALL

IS PRESENT AND WAS ANSWERED SO IN THE INITIAL

LIMITS 1 - 65,535

“DROP DR ON ERR LMTS REACHED (L) Y 2~

GIVES THE ABILITY TO AUTOMATICALLY STOP TESTING ON A DRIVE ONCE ONE
OF THE ERROR LIMITS HWAVE BEEN EXCEEDED (SEEK, DRIVE, HARD, SOFT).
IF THE ANSWER IS YES THEN THE FOLLOWING FOUR QUESTIONS WMWILL BE
ASKED, IF NO THEN THE NEXT QUESTION WILL BE 2.3.13.11.

LIMITS Y OR N

CNRLKAO RLO1702 PERF EXER

1039

1040
1041
1042

1043
1044
1045

MACRO M1200

19-DEC-83 09:48

PAGE

12
22

SEQ 0071

“HRD ERR LMT (D) 3 2"
THIS IS THE LIMIT OF HARD ERRORS THAT A DRIVE WILL BE
DROPPED
A HARD ERROR IS ONE ON WHICH THE RETRY HAS BEEN EXHAUSTED.
LIMITS 1

ON.

- 65,535

1046

1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059

1060
1061
1062

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

“SFT ERR LMT (D) 10 2"
THIS IS THE LIMIT OF SOFT ERRORS THAT A DRIVE WILL BE

DROPPED

ON.

?H20:£T§$RE§H§$ AN ERROR ON AN OPERATION THAT WAS SUCCESSFUL WITHIN

LIMITS 1 - 65,535
“DATA MISCOMPARE LIMIT (D) 10 ?*
THIS IS THE LIMIT OF IN CORE MISCOMPARES THAT

CROPPED ON.

THE

DRIVE

WILL

LIMITS 1 - 65,535
“SK ERR LMT (D) 3 2*

THIS IS THE LIMIT OF MIS-SEEK AND TRACKING ERRORS THAT A DRIVE WILL
BE DROPPED.
LIMITS 1 - 65,535

“DR ERR LMT (D) 3 ?2“
THIS IS THE LIMIT OF DRIVE ERRORS THAT A DRIVE WILL BE DROPPED ON.

LIMITS 1 - 65,535

“DROP DR ON OPER LMTS REACHED (L) N 2~

GIVES THE ABILITY TO STOP TESTING ON A DRIVE THAT HAS EXCEEDED
CERTAIN OPERATION LIMITS (SEEK, BITS TRANSFERRED).
THE DRIVE WILL
BE DROPPED ONLY WHEN BOTHM HAVE BEEN EXCEEDED. IF THE ANSWER IS YES
THEN THE NEXT TWO QUESTIONS WILL BE ASKED.
LIMITS Y OR N

“DATA XFER LMT («10(10)) (D) 25000 2"

CNRLKAO RLOL1/02 PERF EXER

1092
1093
1094
1095
1096
1097
1098
1099
1100
1101

1102

1103
1104
1105
1106
1107
1108
1109
1110
1111
i112
1113

1114
1115
1116

1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131

1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142

MACRO M1200

19-DEC-83 09:48

PAGE 23

SEQ 0022

THIS IS THE LIMIT OF COMBINED BITS READ/WRITTEN (#10(10)) ON
THE DRIVE WILL BE DROPPED.

LIMITS 1

WHICH

- 65,535

“SK LMT («10(3)) (D) 10000 ?2”
THIS IS THE LIMIT OF SEEK OPERATIONS (+10(3)) ON
WILL BE DROPPED.

LIMITS 1 - 65,535

WHICH

THE

DRIVE

THE

ENTIRE

(+10(3))

“DO YOU WANT TO CHANGE SEEK, R/W PARAMETERS (L) N ?2“
THE NORMAL

CARTRIDGE,

OPERATION

CYLINDERS O - 255.

39 AND BOTH SURFACES.
1280 WORDS.

SEEK

AND

'TRANSFER

(RLO1) OR 511.

(RLO2), SECTORS O -

THE NORMAL TRANSFER IS RANDOM BETWEEN 3

AND

THE NEXT 8 PARAMETERS WILL ALLOW THE USER TO CONFINE THE TESTING TO
%‘L&Oé;gm SECTION OF THE CARTRIDGE AND CONTROL THE SIZE OF THE
A YES ANSWER WILL ASK THE NEXT 13 QUESTIONS.

“STIPULATE R/W XFER SIZE (L) N 2*
THE PROGRAM WILL NORMALLY MAXIMIZE THE TRANSFER SIZE BY

USING

ALL

OF MEMORY (<28K) AVAILABLE.
THIS QUESTION IF ANSWERED YES WILL
RESTRICT THE BUFFER TO THOSE VALUES GIVEN IN NEXT TWO QUESTIONS.
QUESTION IS 2.3.13.19.
LIMITS Y OR N
“MAX XFER (D) 2560 7"

REPRESENTS THE MAXIMUM AMOUNT OF WORDS TO READ OR WRITE
LIMITS 3 - 5120
“MIN XFER (D) 3 ?*

REPRESENTS THE MINIMUM AMOUNT OF WORDS TO READ OR WRITE
LIMITS 3 - 5120

CNRLKAQO RLO1702 PERF EXER

1144
1145
1146

1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
ile4
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177

1178
1179

MACRO M1200

19-DEC-83 09:48

“RD ONLY

PAGE

K2
24

(L) N 2%

GIVES THE ABILITY TO INHIBIT WRITING THE PACK
WHILE
TESTING,
INITIAL WRITE OF THE PACK FROM THE START COMMAND WILL STILL OCCUR.
LIMITS Y OR N
“RAN PAT (L) Y

NORMAL OPERATION SHOULD BE YES, BUT THIS PARAMETER WILL
ALLOW
THE
THE PATTERNS
WRITING OF ONLY ONE PATTERN OF CIGHT NORMAL PATTERNS.
IN NEXT QUESTION.
LIMITS Y OR N
“WHICH ONE (0) 4 2"

IT IS NOW POSSIBLE TO CONTAIN THE EXERCISER IN WRITING ONLY ONE
THE FOLLOWING EIGHT PATTERNS:
0

ALL 0'S

177777,177777,177777,52525,52525, 52525
177777.177777,52525,52525,177777,52525
177252,177252, 172765,172765
0,0,0,177777,177777,177777

0,0,177777,177777,0,177777,0,177777

0.,177777

25252,52525,52525, 125252, 125252, 125252
52525,52525, 125252, 125252, 52525, 125252
52525,125252,52525, 125252

1180
1181
1182
1183

WORST CASE DATA

1186
1187
1188
1189
1190
1191
1192
1193
1194

13211,105504,42642,21321,110550.44264
22132,11055,104426,42213

1184
1185

1195
1196
1197

SEQ 0023

155555,1353333,66666,155555,133333,
66666
155555,133333,66666.155555,133333,66666
6
. 155555
155555,133333,6666
121105,150442,64221,132110,55044
, 26422

ALL 1'S

45513,122645,151322,64551,132264,55132
26455,113226,45513, 122645, 151322, 64551
132264, 55132, 26455, 113226
LIMITS O - 7

“WORDS PER SECTOR COMPARED ON READ (D) 16 ?*

CNRLKAO RLO1/02 PERF EXER

1199
1200
1201
1202
1203
1204

1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247

MACRO M1200

19-DEC-83 09:48

PAGE 25

NORMAL
TRANSFERS
ARE
PARAMETER
WILL
ALLOW

SEQ 0024

RANDOM BETWEEN
3
AND
1280
WORDS,
THIS
YOU
TO
SPECIFY
HOW
MANY WORDS SHOULD BE

COMPARED PER SECTOR
IN CORE AFTER EACH READ.
IF
THE
VALUE
SPECIFIED
IS GREATER THAN THAT READ IN ONLY THE NUMBER READ IN ARE
COMPARED.
THE FEWER WORDS COMPARED IN CORE ON EACH READ THE FASTER
THROUGHPUT THE EXERCISER WILL HAVE.

LIMITS O -

128

“9 OF DATA ERR RPT'D PER BUF (D) 3 ?2”

THIS PARAMETER WILL LIMIT
THE NUMBER OF
IN CORE MISCOMPARES
PRINTED.
THE PROGRAM MWILL CONTINUE TO COMPARE AS MANY WORDS AS
SPECIFIED BUT WILL INHWIBIT THE PRINTOUT ONCE THIS LIMIT IS REACHED.
AFTER ALL WORDS ARE CHECKED A SUMMARY WILL BE PRINTED:
X WORDS BAD OUT OF 128 WORDS READ
LIMITS O - 126
"MAX HD (D) 1 2"

REPRESENTS MAXIMUM HEAD TO USE IN SEEK OPERATIONS.
LIMITS 0 - 1
“MIN HD (D) O 2*

REPRESENTS MINIMUM HEAD TO USE IN SEEXK OPERATIONS
LIMITS 0 - 1

“CHANGE VALUES OF MXCYL & MINCYL (L) Y 2"
IF NO THEN THE NEXT TWO QUESTIONS WILL BE SKIPPED
“MAX CyL (D) 511 ?*

MAXIMUM INNER CYLINDER TO BE USED IN SEEK OPERATIONS.

LIMITS O - 255.

(RLO1) OR 511.

(RLO2)

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19- DEC-83 09:48

1249
1250
1251
1252
1253
1254
1255
1256

1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277

“MIN CYL

(D) O

PAGE 26

SEQ 0025

2“

MINIMUM OUTER CYLINDER TO BE USED IN SEEK OPERATIONS.

LIMITS O

- 255.

(RLO1) OR 511.

(RLO2)

“MAX SEC (D) 0 ?*

MAXIMUM SECTOR TO START

TRANSFER ON

LIMITS O - 39
“MIN SEC (D) ©0 2“

MINIMUM SECTOR TO START TRANSFER ON

LIMITS O - 39

AFTER ANSWERING THE LAST SOFTWARE PARAMETER THE PROGRAM WILL
THE TESTING.

START

ERROR INFORMATION

3.0

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

THE FOLLOWING ARE ERROR HEADINGS

RUNNING.

THAT

A BRIEF DESCRIPTION IS GIVEN.

MAY

ENCOUNTERED

WHILF

“SFT ERROR"

AN ERROR WAS DISCOVERED, BUT ON RETRY THE ERROR
INFO GIVEN IS ERROR, RLCS, RLBA, AND RLDA

DID

NOT

PERSIST.

"EXH'D RETRY ON SEEK"

THE NUMBER OF RETRIES GIVEN HAVE FAILED TO POSITION DRIVE TO THE
INFO GIVEN IS RLCS,RLDA,RLBA, LAST POSITION,PRESENT
GIVEN TRACK.

POSITION, AND DRIVE STATUS

CNRLKAO RLO1702 PERF EXER

1299
1300
1301
1302
1303
1304
1305

1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318

MACRO M1200

19-DEC-83 09:48

PAGE 27

“VOL CHK WILL NOT RESET”

A DRIVE RESET WILL NOT RESET VOLUME CHECK BIT

“DID NOT REC'R FROM PWR UP"
DRIVE DID NOT COME BACK UP AFTER A POWER FAILURE

“DATA DMP - DATA CHECK/GARBBLED DATA"
THE PROGRAM ENCOUNTERED A DATA CHECK ERROR BUT WAS UNABLE
TO MAKE
SENSE OUT
OF
THE FIRST TWO WORDS, WHICH ARE USED TO KEY OFF OF.
THEREFORE
ALL
WORDS
OF
SECTOR
ARE
DUMPED.(REFER
TO
SECTION
2.3.13.21)

“LIMITS EXCEEDED!

HIGH - X LOW - Y"

ANSWER GIVEN IS NOT WITHIN LIMITS FOR QUESTION.
“NO DEFAULT PROVIDED!"
CANNOT <CR> TO THIS QUESTION

"ILLEGAL COMMAND*

START, RESTART, CONTINUE, PRINT TYPED IN WRONG FORM
“ILL ENTRY IN P-TABLE"
ANSWERS IN HARDWARE SECTION THAT ARE NOT LEGAL (I.E., MORE THAN TWO

CONTROLLERS)

“CAN'T READ FACTORY BAD SECTOR FILE"
PROGRAM IS UNABLE TO READ ANY OF THE FACTORY FILES

1343
1345
1347
1348
1349
1350

“CAN'T READ FIELD BAD SECTOR FILE"
PROGRAM IS UNABLE TO READ ANY OF THE FIELD FILES
“MORE THAN 16 BAD SECTORS"

Psggl"'g's' LIMITS EXERCISING CARTRIDGES TO THOSE WITH LESS THAN 16 BAD

SEQ

0026

B
CNRLXAO RLOL702 PERF

EXER

MACRO M1200

19-DEC-83 09:48

PAGE

“NO DRIVES ENTERED”

EITHER NO DRIVES WERE ENTERED OR ALL DRIVES THAT WERE ENTERED
WERE
DROPPED
FOR
ONE
REASON OR ANOTHER,
THE PROGRAM WILL LOOP AFTER
&Régg?g

THE
Y.

ERROR,

WAITING

FOR

*C.

START

COMMAND

WNOW

“DRV NOT RDY W/0 DRV ERR"

ON COMPLETION OF A COMMAND, DRIVE READY IS CHECKED FOR
TRACKIt.. DRIFT PROBLEM.

POSSIBLE

THERE IS NO DRIVE READY A GET STATUS IS

DONE TO VERIFY THAT THE DRIVE IS NOT IN PROCESS OF SEEKING.
IF
IT
IS SEEKING THE CONDITION IS LEGAL.
THWIS TYPEOUT IMPLIES THERE WERE
NO DRIVE ERRORS WHICH MAY HAVE CAUSED DRIVE READY TO GO AWAY,
“TRCK ERR"

THIS ERROR MEANS THAT THE DRIVE IS NO LONGER ON THE TRACK SELECTED.
ANY
SUBSEQUENT READ HEADER, READ OR WRITE COMMANDS WILL PRINT THIS
ERROR IF THE TRACK IS NOT CORRECT.
THIS ERROR WILL PRINT
THE
POSITION BEFORE
THE LAST
SEEX,
THE PRESENT POSITION AND THE
EXPECTED POSITION.
“MIS-SK ERR"

AFTER A SEEK WAS DONE, READ HEADER IS DONE TO VERIFY

ERROR

PRINTOUT

THE SEEK.

WILL INCLUDE THE LAST POSTION BEFORE THE SEEX,

PRESENT POSITION AND THE EXPECTED POSTION.

THE

“DRY STAT ERR”
1389
1391
1393
1394
1395
1396
1397

1398
1399
1400
1401
1402
1403
1404
1405
1406

THE RESULY OF A GET STATUS OPERATION IS INCORRECT.

BIT IS SET OR THE STATE IS WRONG

EITHER A

ERROR

“MRD ERR"

THE NUMBER OF RETRIES WERE EXMAUSTED MITH

?INYWT

CONSISTS

OUT

SUCCESS

THE

ERROR

ALL REGISTERS BEFORE COMMAND AND AT TIME OF

“INIT MR OF SEC BAD"

WHILE WRITING THE PACK INITIALLY,

THE SECTOR INDICATED COULD NOT BE

WMRITTEN AND VERIFIED.

THMIS SECTOR WAS NOT IN THE BAD SECTOR FILE.

AND

B8)

ONE OF THE FOLLOWING STEPS SMOULD BE ISSUED:
CHANGE

CARTRIDGE,

STOP

THE

A) STOP THE EXERCISER

EXERCISER

CARTRIDGE ON A PDP-11 (USE THE BAD SECTOR
C) IGNORE ALL ERRORS FROM THAT SECTOR.

AND

VERIFY

FILE TOOL - CZRLMA)

THE

)

MACRO M1200

CNRLKAD RLO1702 PERF EXER

1408

1409

19-DEC-83 09:48

3.2

110
1412
1415
1418
1419

1420

1423
i:g‘s

ERROR HALTS

WITH /FLAG:HOE.

1414
RS

PERFORMANCE AND PROGRESS REPORTS

4.1

PERFORMANCE REPORTS

THERE ARE NO OTHER HALTS.

4.0

R e

THE

ese RLOL PERFORMANCE REPORT sss

1428
1429
1430

RLCS: XXXXXX DRIVE: Y DRIVE TYPE = RLOX
PACK SERIAL _e: DODDDDDDDD
TOTAL SEEKS:
IIIII

{:g

WORDS WRITTEN:

KKKKKKKKK

1435
1436

1434

ERRORS
DRV-ER: N
HARD :
N

SEEK:
SOFT:

N
N

1438

OLT:

OoPI:

1431

1437

1439

SECTION

PERFORMANCE REPORTS ARE PRINTED BY OPERATOR REQUEST THROUGH THE
DRS "“PRINT” COMMAND. THE FORMAT IS:

ugg

SEG 0O0er

ERROR HALTS ARE SUPPORTED PER DESCRIBED

1413

1416}

PAGF 29

WORDS READ:

DCK:

N
N

NANNNNNNN]

HCRC:

TRACK:

DATA: N

NXM:

HNF: N

1440

WHERE:

1442
1443
1444
1445

XXXXXX IS ADDRESS OF CONTROLLER
Y
IS DRIVE NUMBER
0DDDDDDODD - IS 10 DIGIT OCTAL SERIAL NUMBER OF PACK
IIIX
IS TOTAL NUMBER OF SEEKS SINCE START

1441

1446
1447

1448

JJJJ
KKKK
N

IS TOTAL NUMBER OF WORDS READ SINCE START
IS TOTAL NUMBER OF WORDS WRITTEN SINCE START
IS NUMBER OF THAT TYPE ERROR SINCE START

CNRLKAQ RLO1/02 PERF EXER

1450
1451
1452
1453
1454
1455
1456
1457
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
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501

1502
1503
1504
1505
1506

MACRO 11200

19-DEC-83 09:48

PAGE

D4
30

SEQ 00e9

PROGRESS REPORTS
...............

THE

5.0

ONLY

PROGRESS REPORT

THE PERFORMANCE REPORT,

DEVICE INFORMATION TABLES
.......................

THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4)

CONTROL OF THE SUBSYSTEM,

RLCS - CONTROL AND STATUS REGISTER (XXXXX0)

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 (MITH BIT 10 SET)
DATA CRC (WITH BIT 10 CLEAR)
OPERATION INCOMPLETE
BIT 9/8 - DRIVE SELECT (0-3)
7 - CONTROLLER READY
BIT
BIT & - INTERRUPT ENABLE
BIT
S - EX
BUS ADDRESS (BIT 17)
BIT 4 - EX
BUS ADDRESS (BIT 16)
BIT 3-1 - FUNCTION CODE
0 - NOP (POP-11) MAINT (LSI-11)
1 - WRITE CHEK
2 - GET DRIVE STATUS

S - SEEK
4 - READ HEADER
z-I‘IYEDAYA
READ DATA
,
READ WITHOUT HEADER COMPARE

BIT

O - DRIVE READY

RLBA - BUS ADDRESS REGISTER (XXxxx2)

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

RLDA - DISK ADDRESS REGISTER (XXXXX4)

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

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

REGISTERS

FOR

1508
1509
1510
1511
1512
1513
1514
1515

1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
}527

1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564

MACRO M1200

19-DEC-83 09:48

PAGE

SEQ 003%0

FOR SEEK FUNCTION

BIT
BIT
BIT
BIT
BIT
BIT
BIT

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

FOR GET STATUS FUNCTION

BIT 15-4 - IGNORED SHOWLD BE ZERO (0)
BIT 3 - DRIVE RESET
2 - MUST BE ZERO (0)
BIT
1 - MUST BE ONE (1)
BIT O - MUST BE ONE (1)
RLMP - MULTIPURPOSE REGISTER

BIT 15 - O - WORD COUNT (TWO'S COMPLEMENT)
FOR READ MEADER FUNCTION

BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ?
- ZERO WORD (SECOND READ)
- MEADER CRC (THIRD READ)

FOR GET STATUS FUNCTION
.......................

HAS DRIVE STATUS

15 - WRITE DATA ERROR
14 - CURRENT HEAD ERROR (CHE)
12 - MWRITE LOCK STATUS (WL)
12 - SEEX TIME OUT (SKTO)
11 - SPlii ERROR (SPE)
10 - WRITE GATE ERROR (WGE)
9 - VOLUME
8 - DRIVE SELECT ERROR (DSE)
7 - DRIVE TYPE IS RLO2 IF SEY
6 - SURFACE (O=UPPPER, 1-LOMER)
S - COVER OPEN
HEADS HOME
;
BRUSHE
RIT 2-0 -STATE BITS

BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT
BIT

CNRLKAO RLO1702 PERF EXER

0 - LOAD STATE

1 - SPIN WP
2 - BRUSH CYCLE

S
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 32

1566

1567
1568
1569

3 - LOAD HEADS
4 - SEEK - TRACK COUNTING
S - SEEK - LINEAR MODE

1570
1571

6 - UNLOAD HEADS
7 - SPIN DOWN

1572
1573

1574

157
1576

SEQ

6.0 TEST SUMMARIES

1577

et e

PROGRAM DESCRIPTION

1579

THE PROGRAM WILL TRY TO SIMULATE A

USER

ENVIRONMENT

WITH

RANDOM

1580
1581

SELECTION OF ORIVES PERFORMING RANDOM OPERATIONS OF GET STATUS,
SEEK, READ AND WRITE.
:

1583
1584
1585
1587

INITIALLY THE BAD SECTOR FILE IS RECOVERED FROM EACH DRIVE AND
STORED, THEN EACH PACK IS ENTIRELY WRITTEN RANDOMLY WITH ONE OF
EIGHT PREDETERMINED PATTERNS.
THE MAIN LOOP IS A CONTINUOUS LOOP OF THE FOLLOWING STEPS

1589
1591

1304
1595
159
1597

1.
2.

RANDOMLY SELECT A DRIVE
CHECK CONTROLLER OF SELECTED DRIVE IS NOT BUSY:

RANDOMLY SELECT FUNCTION FOR DRIVE

3. THEN STEP 3; ELSE STEP 1

1598
1599
1600

IF SEEX/WRITE/MRITE CHECK - THEN GO TO STEP S
IF SEEX/READ - THEN
GO TO STEP 11

IF SEEX/READ/READ- THEN
GO TO STEP 15
IF SEEK/READ HORS/READ W/NO HOR COMPARE/GET STATUS
GO TO STEP 21

THEN

1602

1604
1606
1607

6. SEEK TO THE SELECTED CYLINDER AND WAIT TILL COMPLETED
7. GET_A RANDOM WORD COUNT FOR THE WRITE FUNCTION - MAKE SURE
THAT IT WON'T OVERFLOW
THE TRACK

1609
1611

8.
9.

1613

10.

1614

1615

GET A RANDOM CYLINDER ADDRESS (NOT THE BAD SECTOR FILE)

GET A RANDOM DATA PATTERN TO MRITE ON THE TRACK POINTED TO
ISSUE THE WRITE FUNCTION AND WAIT TILL COMPLETED
ISSUE A WRITE CHECK FUNCTION ON THE SAME

DISK

ADDRESS

COMPARE THE DATA JUST WRITTEN BY THE WRITE FUNCTION THEN GO
TO STEP @1

1617

11.

GET A RANDOM CYLINDER & FOR THE SEEK

1619
1621

12.
13.

SEEK TO THE SELECTED CYLINDER AND WAIT TILL COMPLETED
GET A RANDOM WORD COUNT FOR THE READ FUNCTION - MAKE SURE

1622

IT WILL NOT OVERFLOW THE SELECTED TRACK

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 33

SEQ 0032

1624

14.

{233

15.

GET A RANDOM CYLINDER FOR THE SEEK

{23‘1’

16.

SEEK AND WAIT TILL COMPLETED

{23‘3

17.

GET A RANDOM WORD COUNT FOR THE READ COMMAND

igg;

18.

ISSUE A READ COMMAND AND WAIT TILL COMPLETED

{23‘7’

19.

GET ANOTHER RANDOM WORD COUNT FOR SAME TRACK SELECTED

1638

20.

{:‘45

21.

ISSUE A SEEK TO A RANDOM CYLINDER AND WAIT TILL COMPLETED

%2‘42

22.

ISSUE A READ HEADER FUNCTION AND WAIT TILL COMPLETED

1645

23.

ISSUE A READ DATA WITH NO HEADER COMPARE (1

READ) AND WAIT TILL COMPLETED

ig:g

24.

ISSUE A GET STATUS FUNCTION THEN GO TO STEP @1

1625
{23?

isg

12.‘?
1650

1651

1652

1653

1635

‘

ISSUE THE READ FUNCTION

AND

WAIT

TILL

COMPLETED

...THE

INTERRUPT
SERVICE WILL INITIATE A DATA COMPARE ON THE DATA
READ (IF THE FUNCTION IS ENABLED) THEN GO TO STEP o1

ISSUE A SECOND READ FUNCTION AND WAIT TILL

GOTO STEP 01

THE PROGRAM WILL STAY WITHIN THAT MAIN LOOP UNTIL

COMPLETED

SECTOR

THEN

INTERRUPTED

OUT

SAVE

BY A FUNCTION FINISMING AT WHICH TIME THE INTERRUPT SERVICE ROUTINE
WILL START EXECUTION.

1656

READ ALL REGISTERS OF CONTROLLER THAT INTERRUPTED AND

{223

IF NO ERROR SET;

1661
1662
1663
1664
1665
1666

CHECK FUNCTION WHICH CAUSED INTERRUPT
IF WRITE CHECK; THEN STEP 3A
IF GEY STATUS; TMEN STEP S
IF SEEK; THEN STEP 4A.
IF READ MEADER; TMEN STEP 7
IF READ; THEN STEP 9

{gg:

3A. CLEAR WRITE CMECK NEEDED FLAG, THEN STEP 4

{2;3

38. SET WRITE CHECK NEEDED FLAG IF REQUESTED THEN STEP 4

{:;z

{:;2

4A, EXIT TO MAIN PROGRAM

1677
1678

1638

iz;

1679

1680

—

IF WRITE;

THEN STEP 3;

ELSE STEP 14

THEN STEP 38

IF RETRY > O THEN REPORT SOFT ERROR, ELSE STEP 4A

CHECK STATUS FOR:

NO ERRORS
COVER CLOSED

BRUSHES HOME

HEADS OUT

H
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 34

SEQ 0032

}ggg
{2:;
{::g

SEEK LINEAR/TRACKING
IF THEN STEP 4; ELSE STEP 6
6. REPORT STATUS ERROR; GO TO STEP 4A

}gzé
{2343

8. REPORT MIS-SEEK, SET NEW POSITION; GO TO STEP 4
9. 1IF DATA TO BE COMPARED; THEN STEP 10: ELSE STEP 4

§§§

10. g'%gki\{fLIDITV OF FIRST TWO WORDS; IF THEN STEP 12; ELSE

%;g%

12.

CHECK WORDS READ IN IF OKAY THEN STEP 4A ELSE STEP 13

{;gz

13.

REPORT DATA ERROR, GO TO STEP 4

i;gz

14.

IF DRIVE ERROR;

i?’g;

1S.

IF NxM;

THEN STEP 18;

ELSE STEP 16

{;gg

16.

IF OPI;

THEN STEP 18;

ELSE STEP 17

%;%g

17.

IF DLT;

THEN STEP 18;

ELSE STEP 20

}}{2

18.

IF RETRY < LIMIT THEN STEP 4A, ELSE STEP 19

{;{2

19.

REPORT HARD ERROR;

i;iz

20.

1IF HCRC;

THEN STEP 24;

ELSE STEP 21

}}g

21.

IF DCRC, THEN STEP 29;

ELSE STEP 22

%;gé

22.

IF WNF, THEN STEP 30;

ELSE STEP 23

i;gz

23.

YOU SHOULD NEVER GET HERE

%;g

24,

gFngoafim READ/WRITE THEN STEP 25 IF DOING READ HEADER

izgzé

25. CHECK IF DA IS BAD SECTOR THEN STEP 4A; ELSE STEP 18.

{;gg

26.

READ 40 HEADERS, IF ALL GOOD THEN STEP 27;

{;g“;

27.

REPORT SOFT HEADER CRC:

{:”gg

28.

gcuie OUT BAD MEADER IF IN FILE THEN STEP 4A;

29.

CHECK IF DA-1 IS IN FILE IF THEN STEP 4A;

ig?’g

1736

1737

11. REPORT GARBLED DATA; GO TO STEP 4
THEN STEP 33;

ELSE STEP 15

CLEAR FLAGS;

GO TO STEP 4A

THEN

ELSE STEP 28

GO TO 4A

ELSE

ELSE STEP 18

STEP

13
CNRLKAO RLO1702 PERF EXER

1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749

1750
1751
1752
1753
1754
1755
1756

MACRO M1200

19-DEC-83 09:48

PAGE

SEG 0034

IF ON CORRECT TRACK THEN STEP 31;

ELSE

30.

READ HEADER.
32

31.

CHECK IF DA IS IN FILE IF THEN STEP 4A, ELSE STEP 18

32.

REPORT TRACKI NG;

33.

ACT UPON:

34,

GO TO STEP 4

vC
SKTO
SPE
WGE
WDE
CHE

FIX POSITION,

GO TO STEP 4

STEP

CNRLKAO RLQ1/02 PERF EXER

MACRO M1200 19-DEC-83 09:48 PAGE 36

SEQ 0035

HEADER

.SBTTL

1758

1759

1760
1761
1762
1763
1764 002000
1765
1766
1767
1768
1769
1770
1771

002000

002010

101

HEADER
.=2000

.MCALL
svC
SVCINS=0
SVCTAG=0

POINTER BGNRPT,BGNSW,BGNSFT,BGNAU,BGNDU

MOHEDR
HEADER
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE
.ASCII
.ASCII
.HMORD
.MORD
.WORD
.HORD
LMORD
LMORD
.MORD
.HORD
LMORD
MORD

.HORD
.MORD
.MORD
.MORD
.MORD
.BYTE
.BYTE
.MORD

.MORD
.MORD
.MORD
.HORD
.MORD
.MORD
MORD
.MORD
.MORD
.MORD

EMT

002110

SVC

012644

.MORD
.MORD
.HORD
.WORD

CNRLK,AR,0,0,1,PRIO6
/C/
/N/
/R/
/L/
/K/
O
O
0
/A/
0/
O
O
L S$HARD
LS$SOFT
LéHW
L$SW
LSLAST
O
O
1

O
LSDISPATCH
PRIO6
O
O
CSREVISION
CSEDIT
©
O
O

LSDVTYP
LSRPT
O
O
LSAU
LSOV
O
LSDESC
ESLOAD

O
LSINIT

LSCLEAN
LS$AUTO

;JSD REV A - ADDED PRIO6

K3
MACRO M1200

CNRLKAO RLO1/02 PERF EXER

19-DEC-83 09:48

PAGE

36-1

SEQ 0036

HEADER

002130
002133
002136

002141
002144
002147
002152

002155
002160
002163
002166
002171
002174
002177
002202
002205
002210
002213
002216
002221
002224
002227

103
114
120
106
115
122
104
105
116
117
107

101

123
113
104
101
111

1776
1777 002230

002230
002233

002236
002241

1778
1779
1780
1781
1782
1783 002242
1784
1785 002242

L $PROT
O
O
©

ENDMOD

061
114

116
113
105
117
123
101
117

117
111

122
040
122
122
040
116
115
120
101

DESCRIPT <CNRLK PERFORMS RANDOM OPERATIONS OF GET STATUS, SEEK, READ, AND WRITE>
.ASCIZ
/CNRLK PERFORMS RANDOM OPERATIONS OF GET STATUS, SEEK, READ, AND WRITE/

117

123
106

040

123

124

105

101

116
127
124

104
122
105

DEVTYP
.ASCIZ

433

1772
1773 002122
1774
1775 002122
002122
002125

.WORD
.WORD
.WORD
.WORD

010756
000000
000000
000000

002112
002114
002116
002120

<RLO1,RLO2>
«RLO1.RLO2s

.EVEN

.SBTTL

BIT AND OFFSET DEFINITIONS

sDEFINITIONS
BGNMOD

GLBEQAT

EQUALS
’

s+ BIT DIFINITIONS
3

BIT15==
BIT14==
B8IT13==
BIT12==
BITil==
BIT10==

100000
40000
20000
10000
4000
2000

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-2

SEQ 00717/

BIT AND OFFSET DEFINITIONS

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT09== 1000
BITO8== 400
BITO7== 200
B8ITO6== 100
BITOS== 40
BITO4== 20
BIT03== 10
BIT02== 4
BITO1== 2
BITO0== 1

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

BIT9==
BIT8==
BIT7==
B8IT6==
BITS==
BIT4==
BIT3==
BIT2==
8ITi==
8ITO0==

BITO9
BITO8
BITO7
BITO06
BITOS
BITO4
BITO3
BITO2
BITO1
BITOO

+ EVENT FLAG DEFINITIONS

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION

000040
000037

000036
000035

000034

EF .START==
EF .RESTART ==

32.
31.

EF .CONTINUE==
EF .NEW==
EF .PWR==

30.
29.
28.

: PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
000100
000040
000000

PRIO7==
PRIO6==
PRIOS==
PRIO4==
PRIO3==
PRIO2==

340
300
240
200
140
100
PRIO1== 40
PRIOO== 0
i

;OPERATOR FLAG BITS

000004

000010
000020

000040
000100
000200
000400
001000
002000
004000

010000

EVL==

LOT==
ADR==

IDU==
ISR==
UAM==
BOE==
PNT==
PRI==
IXEs==

IBE==

10
20

40
100

200

400
1000
2000

4000
10000

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 POWER-FAIL/POWER-UP OCCURRED

P4
<

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-3

SEQ 0038

BIT AND OFFSET DEFINITIONS
020000
040000
100000

000000
000002
000004
000006

IER==
LOE==

HOE ==

20000
40000

100000

CS=0
BA=2

DA=4
MP=6

:CONTROL AND STATUS OFFSET
1BUSADDRESS OFFSET
sDISK ADDRESS OFFSET
sMULTI PURPOSE OFFSET

;CONSTANT OFFSETS FOR INDIVIDUAL DRIVE BUFFERS
;THE ONLY POSITION THAT IS CRITICAL IS THAT OF
‘ L “mos "n

SKCNT=0

RXFR1=2
RXFR2=4
WXFR1=6
WXFR2=10

ITMUS T (MUST) BE THE LAST ENTRY OF THE BUFFER

1 SEEK OPERATION COUNT
lREAD WERATIW CMT (BITS) LOW ORDER
"

HIGH ORDER

“

HIGH ORDER

nflITE CI'ERATIW CMT (BITS) LOW ORDER

ERRCNT=12
SFTCNT=14
SKECNT=16
DERCNT=20
DCRCER=22

:Em CMT - HARO
:ERROR COUNT - SOFT
: SEEK_ERROR COUNT
:DRIVE ERROR COUNT
:DATA CRC ERROR COUNT

DLTCNT=26
OPICNT=30
HNFERR=32

sMTA LATE ERROR COUNT
sOPERATION INCOMPLETE ERROR COUNT
sHEADER NOT FOUND ERROR COUNT
sNON EXISTENT MEMORY ERROR COUNT
mcsem RETRY NUMBER

HCRCER=24

tHEADER CRC ERROR COUNT

DISK ADDRESS CONTENTS
.
nssem MULTIPURPOSE CONTENTS
3LAST FUNCTION LOADED
;:CSR_IMAGE OF LAST COMMAND
sLAST POSITION ON DISK
+ERROR ON WMICH RECOVERY IS BEING TRIED
;Lw SEEK COUNT
s INTERNAL FLAGS

mcm ORDER READ COUNT

: THIRD ORDER MRITE COUNT

:DISK ADDRESS AT SOFT ERROR
1LAST DIFFERENCE WORD OF SEEK
sHOUR OF DRIVE DROPPED
sMINUTE OF DRIVE DROPPED
s TRACKING ERRORS COUNT

DlTA CMP ERRORS
weurm MRITE CHECK

000074
000076

000110

000114
000116

000122
000124

DCS=104
DRSEL =106
BBA=110
BSECPT=112
RSEEK=114

SOFTCS=116

TDR=120
WRIPG=122
PRP0OS=124

+SERIAL NUMBER OF CARTRIDGE
SERIN. NUMBER OF CARTRIDGE

lCSfl ADDRESS
sDRIVE SELECT BITS(8,9,.10)
sPRESENT BUS ADDRESS CONTENTS
+POINTER TO BAD SECTOR FILE
+SEEXK IN PROCESS OF RECOVERY
1CSR OF SOFT ERROR
;MRITE IN PROGRESS FLAG
;PRESENT POSITION ON DISK

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-4

BIT AND OFFSET DEFINITIONS
1840
1841
1842
1843
1844
1845
1846

1847
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

000001
000001
000100

100000
040000
100000
040000
020000
010000
004000
002000
001000
000400
020000
010000

SKDON=BITO
DRDY=BITO
INTEN=BIT6
ERR=BIT15
DERR=BIT14
WDE=BIT15
HCE=BIT14
WL=BIT13
SKT0=BIT12
SPE=BIT11
WGE=BIT10
vC=BIT9

DSE=BIT8

NXM=BIT13
OLT=BIT12

DCRC=BIT11

HCRC=BIT11
HNF=BIT12

OPI=BIT10
CRDY=BIT7
BA17=BITS
BA16=BIT4
WRCHK=BIT1
GSTAT=BIT2
SEEK=BIT1!BIT2
RDHDR=BIT3

WRITE=BIT3!BIT1

READ=BIT3!BIT2
DRST=BIT3!BIT1!bITO
GSBIT=BIT1!BITO
MK=BITO

SIGN=BIT2
SKHS=B1IT4
HEAD=BIT6

;DRIVE READY
+ INTERRUPT ENABLE
+COMPOSITE ERROR

:DRIVE ERROR
;WRITE DATA ERROR
sHEAD CURRENT ERROR
tWRITE LOCK
:SEEK TIMEOUT ERROR
;SPINDLE TIMEOUT/UNDER/OVER SPEED
sWRITE GATE ERROR

1 VOLUME CHECK
;DRIVE SELECT ERROR
;NON-EXISTENT MEMORY ERROR
:DATA LATE

:DATA CRC ERROR
sHEADER CRC ERROR
+HEADER NOT FOUND ERROR

;OPERATION INCOMPLETE ERROR
;CONTROLLER READY
;EXTENDED BUS ADDRESS BIT 17

;EXTENDED BUS ADDRESS BIT 16

sWRITE CHECK FUNCTION CODE
:GET DRIVE STATUS FUNCTION CODE
1 SEEK FUNCTION CODE

;sREAD HEADER FUNCTION CODE
sWRITE FUNCTION CODE

sREAD FUNCTION CODE
sDRIVE RESET COMMAND CODE FOR DRIVE COMMAND WORD
:GET STATUS COMMAND CODE FOR DRIVE COMMAND WORD

sMARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STATUS)

;+DIRECTION FOR SEEK(O=AWAY FROM SPINDLE)
sHEAD SELECT FOR SEEK
sHEAD SELECT FOR READ,.WRITE,.GET STATUS

;OFFSET FOR HARDWARE P-TABLE
CSR=0
VECT=2

PRIOR=4
TYPDR=6

DRBT=10
CNT=12

sOFFSET FOR SOFTWARE P-TABLE
RLT=0
ELT=2
SET=4

DAT=6
SKT=10
TYT=12
RDT=14
DDT=16
CHFLG=20
MXB=22
MXH=24

SEQ 0039

CNRLKAO RLOL1702 PERF EXER

MACRO M1200

19 DEC-83 09:48

PAGE

3% 5

SEQ 0OuA4C

BIT AND OFFSET DEFINITIONS

1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909
1910
1911

1912
1913
1914
1915
1916
97

1918

000026
000030
000032
000034
000036
000040

000042
000044
000046
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

MNH=26
MxC=30
MNC=32
MXS=34
MNS=36
DCKFG=40

DRFLG=42
MNB =44
SEL =46
OPFLG=50
DET=52
ROF =54
RAN=56
PAT=60
SRLT=62
CLMT =64
AUTO=66
STIP=70
WCK=72
DCD=74
ANS=76

i:g 002242

ENDMOD

{:225

.SBYTL

1923
1924
1925
1926
1927
1928

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MILLISECOND TIME COUNTS
.MACRO MWAITMS ARG, 2WAITY
fl
MOV
OARG ,DLYCNT
sINITIALIZE DELAY COUNTER
;JSD REV
A
MOV
ARG, DL YCNT
sINITIALIZE DELAY COUNTER
;JSD REV
A
ASL
DLYCNT
sMULTIPLY ARGUMENT BY 2
ASL
DLYCNT
sMULTIPLY ARGUMENT BY 2 AGAIN

1930
1931
1932

WAIT:

{:gz

.ENDM

1935
1936

sDELAY EXECUTION OF PROGRAM A SPECIFIED NUMBER OF 100-MICROSECOND TIME COUNTS
.MACRO WAITUS ARG

1929

1937

1938

sWAIT:

1939

1942
1943

1944

1949

1950
1951
1952
1953

DELAY

DELAY
DEC
BNE

DELAY

DELARY

#250.

250.
DLYCNT
WAIT

GRAG

ARG

s IMPLEMENT 25-MS TIME DELAY

s IMPLEMENT 25-MS TIME DELAY
sfiMt DELAY COUNT
sBRANCH IF TIME DELAY NOT EXPIRED

JSR
JSR

PC.CLKINI

PC.CLKST

CLKOFF

CLR
cHp
BNE
CLR

CLKSON
@1,CLKTYP
118
80172540

JSD REV A

s IMPLEMENT 100-US TIME DELAY, ARGUMENT SPECIFIES ;JSD REv A
1/THE NUMBER OF 100-US TIME COUNTS

nINITIN.IZE CLOCX
1START CLOCK

;DEACTIVATE THE CLOCK TO WALT THE GENERATION
.MACRO

;Jso REV A

s IMPLEMENT 100-US TIME DELAY, ARGUMENT SPECIFIES ;:JSD REV A

sACTIVATE THE CLOCK TO INITIATE THE GENERATION OF CLOCK INTERRUPTS
.MACRO CLKON
sACTIVATE CLOCK WITH 1-SEC INCREMENTS

1945

1948

MACRO DEFINITIONS

OF CLOCKX INTERRUPTS

1INDICATE “CLOCK OFF*"
1P-CLOCK?
1BRANCH TO CHECK FOR L -CLOCK
1CLEAR P-CLOCX

L4
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19 -DEC-83 09:48

PAGE

36-6

SEG 0041

MACRGC DEF INITIONS

cMP

02,CLKTYP

;L -CLOCK?

1954

118:

1957
{3553

12%:
.ENDM

1960
1961
1962

tREQUEST ELAPSED TIME IN SECONDS OCCURRING BETWEEN SUPERVISOR INITIATION
;AND THE GENERATION OF THE REQUEST
.MACRO REQTIM ARG

1964

.ENDM

}::?

SBTTL

1955
1356

1963

1965

}gg 002242
1970 00224:
1971 002244

0C0000
0000

1973 002250

00000%

1972 002246

1974 002252
1975 002253

00000¢

1989 002306
1990 002310
1991 002312
1992 002314

{gz 002316

RECNT:
RMCNT:

.WORD
.WORD

O
O

sREAD ERROR COUNT
sR/7W ERROR COUNT

TSTDRV: .WORD

;COPY OF SELECTED DRIVE FOR TESTING

WHY ;

.MORD

CMSK:
SMSK:

.MORD
.MORD

000000
000000
000000

CvL:
SUR:
SEC:

LMORD
LMORD
LMORD

000000

CLKADR:

000000
000000
000000
000000

1995

1996
{g‘

T.DRIVE: .WORD
SYSMSK: .MORD
HINUM:
.WORD
LONUM:
.WORD
CYLMSK: .WORD
SECMSK: .WMORD
WMRINIT:
:

REGEN:
KILLDC:
CLKFRQ@:
CLKTYP:

.WORD
JMORD

.MORD
.MORD
.MORD
.MORD

.WORD

évm.m: LHORD

2001 002324
2002 002326
2003 002330

000000
000000
000000

LSTOR1:
LSTOR2:
BCSR:

2006 002336

000000

2004 002332
2005 002334

2007 002340
2008 002342
2009 002344
2010 002346

000000
000000

000000
000000
000000
000000

O©

O
O

O
O
176543
123456
100177
100077

000177
000077

JREASON FOR DROPPING DRIVE
1DRIVES UNDER TEST
1DRIVES PRESENT

:TYPE OF DRIVE FROM P-TABLE
iMASK FOR 0-7 DRIVES
JPRIME FOR RANDOM
INUMBER GENERATOR
sMASK FOR CYLINDER ONLY
sMASK OUT SECTOR BITS

O
O

JMRITE INIT FLAG
JMRITE UNIT FLAG

O
O
©
O

1REGEN FLAG FOR BUFFERS
1INHIBIT DATA COMP FLAG
;CLOCK FREQUENCY FLAG, 180 MZ, 2-50 WZ
.cx.oo( TYPE FLAG, 1=P-CLOCK, 2=L-CLOCK

O
O
O

1CYLINDER @
iSURFACE ¢
:SECTOR @

;POINTER TO ADDRESS OF SUPERVISOR CLOCK TABLE

mc FOLLOWING LOCATIONS ARE CLEARED AS A GROUP (DOWN TO *'STFLG')
s THEREFORE DON’' T INSERT ANY CONSTANTS

1999 002320 174400

2000 002322 000000

CLKACC, ARG

GLBDAT

000177
000077

000000
000000

1BRANCH FOR NO CLOCK
;CLEAR L -CLOCK

BGNMOD

JBYTE
.BYTE

1984 002274
1985 002276

124
90177546

GLOBAL DATA AND CONSTANTS

:
DRPRS:

000000
000000
176543
123456
100177
100077

1986 002300
1987 002302
1988 002304

MOV

000
000

1976 002254
1977 002256
1978 002260
1979 002262
1980 002264
1981 002266

1982 002270
1983 002272

BNE
CLR

174400

1CSR or CONTROLLER1 (LUN O- s>

O
O
O

.mn POINTER OF DRIVE
1BUFFER POINTER OF DRIVE
1CSR FROM P-TABLE

JORIVE

CNTLR2: .WORD

BVEC:
BPRIOR:

O
O

.WORD
.WORD
.WORD

.WORD
.MORD

: LMORD

HORFND: .WORD
CHKSEC: .WORD
DECNT:
.WORD
TEMPO:
.WORD

O
O
O
O

;CSR
OF CONTROLLER
2 (LUN
4-7)
IVECTOR *
1PRIORITY *

.ruc TO INDICATE MDR IN BAD LIST
1SECTOR OF ERROR- USED BY BAD SECTOR LOCATION
1DATA ERROR COUNT
1 TEMP LOCATION

;

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19 -DEC-83 09:48

PAGE

36-7

SEQ 0047

GDDAT :

RNTEMP:

INTERVAL:

.WORD

TICK:

SECOND:

MINUTE:

HOUR:
E.CS:
E.BA:
E.DA:
E.MP:
E.MP1:
E.MP2:

o OOOOOOOOsr 00000 ‘ 000000000000 000000 OOOOOO;OOOOOOOOO

TEMPY:;
VECT1:
VECT2:
PRIOR1:
PRIOR2:

CLKACC:
CLKFLD:

s TEMP LOCATION
s TEMP LOCATION
'

sVECTOR OF FIRST CONTROLLER
“ 2ND
sVECTOR

»”

“

tKEEPS TRACK OF TIME BETWEEN STATISTICAL REPORTS
1 /(MINUTES RUNNING TIME)
sSTORAGE FOR TICK COUNT
s SECONDS OF SYSTEM CLOCK

sMINUTES OF SYSTEM CLODK
tHOURS OF SYSTEM CLOCK
1 IMAGES OF REGISTERS
1ON INTERRUPT

1NUMBER OF UNITS ON SYSTEM
1POMER FAIL INDICATOR
s INDICATES OCCURRENCE OF A TIME-OUT TRAP
1START FLAG

TEMPL:
TEMP2:
TEMPS:
TEMPA :
TEMPS:
TEMPG:
TEMPT:
TEMPS:

002350
002352
002354
002356
002360
002362
002364
002366
002370
002372
002374
002376
002400

2011
2012
2013
2014
2015
2016
2017
2018
2019
2020
2021
2022
2023

L
EE

GLOBAL DATA AND CONSTANTS

1CONTINUE FLAG
1ASCII MESSAGE OF FUNCTION
1POINTER
1ERROR COUNT

$1ERROR COUNT

1ERROR VECTOR
1STATES ALLOWED
1STATES ALLOMWED

tDELAY COUNTER FOR WAITMS TIMING MACRO

lFLfi INDICATING PRESENCE OF A SYSTEM CLOCK

1 “CLOCK ON" INDICATOR
.cm.ocx COUNTER TO STORE TICK VALUE
lCLxK BUFFER TO STORE CLOCK TICK COUNT
CLOCK ACCUMULATOR TO STORE ELAPSED TIME IN
/SECOOS OF SUPERVISOR TIME

lCLxK FIELD USED TC CHECK IF LSI-11 CLOCK
17IS "TICKING"

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19 -DEC-83 09:48

PAGE

36-8

SEQ 0047

GLOBAL DATA AND CONSTANTS
2068
2069 002516
2070
2071
2072
2073 002516
2074
2075
2076
2080
2081
2082

2083

2084
2085
2086
2087
2088
2089
2090
2091
2092
2093

MESSAGES

124

nrx*z

111
122

“

v mEs:
* (RLCS): "
“>> FUNCTION:
* "RLBA): ”
* (RLDA): "
* (RLMP): *

076

/0IF WD: /

111

/PACK SERIAL @:
/NO CRDY/

/DRIVE NOT READY/
#DR NOT RDY W/0 DR ERRs
116

ERR LMT EXC'D/
/BUFFER CHOSEN TOO BIG - WAS /
BY OPR/
/7REQ

D
ON SEEK/
RETRYH'
/7EX

SREERN b BRERGRRRERELRRERSEEE

2097

SWSEC:

/MORE THAN 16 BAD SECTORS/
/NO FACTORY FILE/
/NO FIELD FILE/

ILLEG:

/ILL P-TABLE/

MPT:

/P-TABLE: /

F4
CNRLKAO RLO1/702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-9

S5EQ 0044

GLOBAL MESSAGES
040
116
040
040
105
040

104
101
122
040
123
040
040
040
040

104

040
040
04y
040
040
040
040
124

127
120
103
123
120
104
116

123

126

117
104
i14
130
122
122
124
105
105
124
123
122
105
122
122
110
110
104
104

117

116
104
105
101

131
105
111
117
131

105

040
122

123
120
105
040

040
124

122
101

MVEC:
NODRIV:

.ASCIZ
.ASCIZ

7/ VECTOR: 7/
/NO DRIVES/

RPS:

.ASCIZ

/ REC POS:

DRNM:
LPS:
EPS:

NOPWR:
BUSAD:

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ

/ DRIVE: /
/ LST POS: /
/EXP POS: /

/DR DID REC'R FROM PWR UP/
/AT BUS ADDR: /

.ASCIZ /RETRYS: /

MRYT:

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

7/ ERROR TYPE: /
/STATUS WAS: /
/ SHOWD BE: /
7/ RETRIES ATTEMPTED/
/ EXP'D: /
/ REC'D: /

MTHNF:
MTHCRC:

.ASCIZ
.ASCIZ

/ WNF/
/ WCRC/

MTOLT:
MTOPI:
MTNXM:
MTDRV:

_ASCIZ
.ASCIZ

ERT:
MST:
MST1:
RT1:
EXP:
RCD:

DROP:

MSTART:

MSURPK:

NORDDC:
ERRMDR:
NOCLK:
NOREPT:
NOTROY:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

/DRIVE DROPPED/
/ DCk/
/ DLT/
/ OPIl/
7/ NXM/
/ DRv/

/TESTING STARTED/
/MRITING PACK /

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/PACK NOT FULLY INIT'D...DATA COMPARE INHIBITTED/
/CURRENT POSITION (HDR) = /
/SYSTEM CLOCK IS NOT AVAILABLE/
/PERFORMANCE REPORTS WILL NOT BE PRINTED/
/DID NOT RESPOND WITH “READY"/

ASCIZ

- INSUFFICIENT MEMORY BUFFER SPACE/
/SYSTEM FATAL ERROR

/NO CONTROLLER/

ITNIS LISY OF ASCII TEXT IS USED AS A TABLE FOR PRINTING
sFUNCTIONS IN ERROR MESSAGES

TABLE IS “MTCR
- MTRD",

IYNE ORDER IS IMPORTANT AS WELL AS THE LENGTH OF EACH
sASCIZ STRING. EACH STRING IS SEVEN(10) BYTES PLUS ZERO
sFILL BYTE (TOTAL SCEIGHT) BYTES) LONG. USED IN LINEL
I

333331

2128 004004
2129 004016
2130 004030
2131 004041
2132 004054
2133 004066
2134 004101
2135 004132
2136 004150
2137 004161
2138 004177
2139 004214
2140 004231
2141 004254
2142 004265
2143 004276
2144 004314
2145 004321
2146 004327
2147 004334
2148 004341
2149 004346
2150 004353
2151 004360
2152 004400
2153 004416
2154 004476
2155 004530
2156 004566
2157 004636
2158 004673
2159 004711
2160
2161
2162
2163
2164
2165
2166
2167
2168
2169 004777
2170 005007
2171 005017
2172
2173 005037
2174 005047
2175 005057
2176
2177
2178
2179
2180
2181
2182
2183
2184

107

I
R I

MTICR:

.ASC

MTSK:

.ASCIZ

/ SEEX

.ASCIZ

/ WRITE /

MTGS:

MTRH:
MTWR :

MTRD:

MTRNH:

ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

7 GVSTAY/

7/
/ RDHDR /

7/ READ

7/ RD-NHD/

Jeoeocvsssssvennsnnonnne

es 0

NG YOU WANT HERE
JEND OF "LIST - YOU CAN PUT ANYTHING
.NLIST
.EVEN

CND,MD,ME

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-10

SEQ 0045

GLOBAL MESSAGES

.SBTTL

ERROR MESSAGES
GLBERR

005070

s GENERAL ERROR REPORT

005162
2206 005162
2207 005166
005166

005172

004737

ERR1

JSR

006270
L10000:

104423

PC.LINES

C$MSG

sMIS-SEEK ERROR REPORT

:’HT:;I;IFHSG.DIF\D(R‘).OLPS.LSTM(RA).OEPS.WOS(M).“IPS.RI

1.'

PRPOS(R4), -(SP)
®EPS, -(SP)

000124

LSTHDR(R4), -(SP)

jogeasaass

010146
012746
016446
012746
016446
012746
016446
012746
012746
012746
010600
104414
062706

PC.LINE3

006270

004041

DIFWD(R4), -(SP)
®DIFMSG, -(SP)

002623
007044

OFNMT4, -(SP)

000011

SP,RO
CS$PNTB
024,5P

L10001:

104423

004737
016446
012746
017446
012746
016446
012746
012746
012746
010600
104414
062706
016437
004537
016446
012746
016446

006014

002577
000110
000116
006675
000007

006450
004161
000036

002346

»
3

004737

4333338333888343
@

005070
005070
005074
005074
005074

2196
2197
2198
2199 005076
2200 005076
2201 005102
005102
005104
005110
005114
005120
005124
005130
005134
005140
005144
005150
005152
005154
005160
005160
005160
2203

2210

ENDMOD

005070

PRINTB
MOV

2185
2186
2187
2188
2189
2190
2191
2192
2193
2194
2195

MOV

C$MSG

;SOFT ERROR RECOVERABLE ERROR REPORT

PC.LINEL
SFMT2A, 6CRLCS, SOF TCSCR4) , oCRLBA , 8BBACRA ), 8CRLDA , LSTDACRS )

LSTDACRS
), -(SP)

@CRLDA, -(SP)
@BBACRE), -(SP)
OCRLBA, -(SP)

), -(SP)
SOFTCS(R4
#CRLCS, -(SP)
OFMT2A, -(SP)

SP,RO

CSPNTB
920, 5P

LSTOACRA), TEMPO ;GET THE ACORESS TO PRINT

RS, TELCYL
OFMTS,

1CONVERT FOR PRINTING

OMRT ,RETRY(RA
), #ERT ,RTYPE(RA)

RTYPECRE), -(SP)

RETRY(R4), -(SP)

Ha
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-11

SEQ 004¢

ERROR MESSAGES

2226

2227

000014

@14,SP

L10002:

104423

+GET STATUS ERROR REPORT
006270

013746
013746
012746
013746
012746
012746
012746
010600
104414
062706

002472
002470
004214

MST1, -(SP)

E.MP,-(SP)

OFMT6, -(SP)

CS$PNTB

016,SP

000016

L10003:

C#MSG

;DATA ERROR SUMMARY

002344
007223
000003
000010

L10004

104423

3
s
‘
C

3
R g

004737
016400

010046
013746
012746
012746
010600
104414
062706

PC,LINE3
OFMT6,0MST E.MP,OMST1,ST1,ST2

ST1,-(SP)

004177
007113

iNON-RECOVERABLE ERROR REPORT

2230

2231

ERR4

004737

005370
005374
005374
005376

C$MSG

005364

05, -(SP)
SP,RO
CS$PNTB

82
3
LT 3

2223

OMRT, -(SP)
OFMTS, -(SP)

104423

2219
2221

012746
010600
104414
062706

004150
007077
000005

s { e é‘gs

2218

012746
012746

335

005264
005270
005274
005300
005302
005304
2211 005310
005310
005310
2212
<213
2214
2215 005312
2216 005312
2217 005316
005316

012746
016446
012746
012746

010600
104414
062706

004231

007155
000003
000010

SFMT8 RETRY(R4),RT1

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-12

SEQ 0047

ERROR MESSAGES

2232 005454
22%3 005460

006270
L10005:

104423

JSR
ENDMSG

PC,LINE3

TRAP

C$MSG

;BAD DATA COMPARE ERRCR REPORT
005462
005462
005466
005474
005500

004737
016437
004537

011246
012746
013746
012746
016446
012746
017446
012746
012746
012746
01€500
104414
062706
010246
012746
012746
010600
104414
062706

000040
006450

004737

016446
012746
010146
012746

012746
012746
010600
104414
062706

2251

2253
2254 005646

104423

PC.LINE2
BDA(R4
), TEMPO

002346

RS, TELCYL

sREPORT THE CYL & £ SECTOR/HEAD

OFMT10A, 6CRLBA,8BBA(R4),oCRLDA
,BDA(R4 ), #EXP ,GDDAT , #RCD,(R2)

(R2),-(SP)

#RCD, -(SP)

004265

002577
000110
007312
000011

007363

L10006

104423

frgtenseaths § { PR

2234
2235
2236
2237
2238
2239
2240
2241

004737

;:DRIVE ERROR

PC.LINES
OFMTLS, OMST R1,0PS,LSTHDR(RA)

006270

LSTHDR(RA), -(SP)

004041

004177
007421

000014
L10007:

TRAP

+ INVALID ENTRY IN P-TABLE REPORT
BGNMSG

ERR10

J4
CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

ERROR MESSAGES
2255 005646

005646
005652
005656
005662
005666
005670
005674
005700
005704
005706
005710
2256 005714
005714
e 005714

013746
012746
013746
012746
010146
012746
012746
012746
010600
104414
062706

PRINTB

002332
004004
002330
002525
003756
007371
000007

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

000020
L10010:

104423

BGNMSG

gggoosm. 004737 006270
2262 005722

a 005722
2264 005724

2265 005724
2266 005730
2267 005734
2268 005742
005742
005746
005752
005754
005756
2269 005762
005762

104423

004737
016403
016337
012746
012746
010600
104414
062706
013746

006270
000104
000006 002426
007501
000001

o 006012

104423

2272 006014
2273 006022
2274 006030
2275 006036
2276 006042
2277 006046

016437
012737
042737
006237
005337
001404

2282 006060

BGNMSG

TRAP

;28:
24:

BVEC, -(SP)
OMVEC, -(SP)
BCSR, -(SP)
OMRLCS, -(SP)
R1,-(SP)
oMPT,-(SP)
#FMT11,-(SP)
07, -(SP)
SP,RO
CSPNTB
020, 5P
C#MSG

PC.LINES

ENOMSG

TRAP
ERR13

C#MSG

JSR
MOV
MOV
PRINTE
MOV
MOV
MOV
TRAP
ADD
PRINTE
MOV

PC,LINES
ocsuu).as
MP(R3),E.MP
;GET MEADER
@FMT14C
1
CRLF
muc.-(sn
01,-(SP)
SP,RO
CHPNTB
#4,5P
@FMT12,0ERRHDR,.C.HDR ;PRINT THE HEADER MESSAGE
C.HOR, -(SP)

TRAP

CSPNTB

ADD
L10012:

©FMT11,o0MPT ,R1,OMRLCS,BCSR,oMVEC,BVEC

ERR12

MOV
MOV
MOV
MOV

000044 002460 LINE1:
004777 002456
000100 002460
002460
002460
18:

2278 006050 062737 000010 002456
gz 006056 000771

ENDMSG

JSR
L10011:

000004
002434
005766 012746 004476
005772 012746 007411
005776 012746 000003
006002 010600
006004
104414
006006 062706 000010
2270 006012
006012

!fit

SEQ 0048

‘

2258 005716

005722

PAGE 36-13

ENDMSG

.-(5P)
OFMT12, -(SP)
#3,-(SP)
SP,RO

#10,5P

TRAP

C#MSG

MOV
MOV
8IC
ASR
DEC
BEQ
ADD

FUNC(R4 ), FASPNT
OMTCR,FASCII
OINTEN,FASPNT
FASPNT
FASPNT
2¢

+GET FUNCTION
sFIRST FUNCTION ASCIZ
;CLEAR INTERRUPT ENABLE
(ALIGN- NOW = 1 TO 7
;DOMN COUNT FUNCTION
sFOUND?

B8R

#8. ,FASCII
14

INO NEXT ONE
:LOOP

PRINTB OFMT10,@TIME,HOUR,MINUTE
, SECOND, #MRLCS,DCSCR4), SDRNM, <B ,DRSEL +1(R4)>

:JSD

PRINTB

@FMT10,0MRLCS,DCSCRA4),0DRNM,
<B,DRSEL +1(R4)>

:JSD

1<4
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-14

ERROR MESSAGES

MOV

000120
010103
000002

013746
012746
012746
012746
010600
104414
062706
000207

002456
002547
006645
000003

OMRLCS, -(SP)
OFMT10, -(SP)

€14,SP
@FMTDT, TDR(R4)

000014

016446
012746
012746
010600
104414
062706

-(SP)
DRSEL+1(R4),(SP)
QDRNM, -(SP)
DCS(R4), -(SP)

SP,RO
CS$PNTB

OFMTDT, -(SP)

SP,RO
CS$PNTB
#6,5P

000006

OFMT1A, 8MFUNC ,FASCII
FASCII, -(SP)

000010

sLINE2
LINE2

z
@

#FMT10,0TIME ,HOUR ,MINUTE , SECOND , #MRLCS ,DCS(R4 ), 9DRNM, <B ,DRSEL +1(R4)>

;JSD

OFMT10,0MRLCS,.DCS(R4),
#DRNM, <B ,DRSEL +1(R4)>

:JSD

-(SP)
ORSEL +1(R4),(SP)
QORNM, -(SP)
DCS(R4), -(SP)

000107
000104

§§§§§§§§ 2 s

OMRLCS, -(SP)
#FNT10, -(SP)

002525
007277

SP,RO

CobwTe

000014

FMTDT, TOR(RA)
), -(SP)
TORCR4

000120
010103

CsPNTB
#6,SP

006014

000042
002611

002577
000110
002565

LINES:

PC.LINEL

OFMT2, #CRLCS ,BCSADR(R4 ), 0CRLBA ,88BA(R4 ), oCRLDA,.BDA(R4
), oCRLMP .BMP(R4)
BMP(R4), -(SP)
«-(SP)

2284 006146

CLR
B81SB
MOV
MOV

000107
004030
000104
002525
007277
000005

3 3

2283 006122

005046
156416
012746
016446
012746
012746
012746
010600
104414
062706

BDACR4), -(SP)
-(SP)
SBBA(CR4), -(SP)

006060
006062
006066

SEQ 0047

. -(SP)
BCSADR(R4), -(SP)

L4
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-15

SEQ 0050

ERROR MESSAGES

006330

012746

002535

MOV

006334
006340
006344
006346
006350

012746
012746
010600
104414
062706

006654
000011

006354
006360
006364
006370
006374
006400
006404
006410
006414
006420
006424
006426
006430
2295 006434
2296 006442

013746
012746
013746
012746
013746
012746
013746
012746
012746
012746
010600
104414
062706
013737
004537

002426
002611
002424
002577
002422
002565
002420
002535
006717
000011

000024
002424
006450

002346

013737

002346

002300

000337

002300

2294 006354

2297 006446

2299 006450

000207

000024

2300 006456

042737

2302 006470

000241

2305 006500

005237

002300

2307 006512

042737

177700

2309 006524

032737

2301 006464

2303 006472
2304 006476

2306 006504

2308 006520
2310 006532

2311 006534

2312 006540

2316
2317
2321

002300

013737

002346

001405

005237

042737

006562

012746

006600

104414

006602
gg{; 006606

2322 006610
2323 006632
2324 006645
2325 006654

000177

006137
103002

005037

062706
000205

MOV
MOV
MOV
TRAP
ADD

002302

000100

002302

177776

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR

RTS

002300

TELCYL: MOV

8IC

SWAB
CLC

002304
002304

1§:

002424

000014

&FMT3,0CRLCS,E.CS,oCRLBA,E.BA,#CRLDA,E.DA,0CRLMP
E . MP

E.MP,-(SP)
OCRLMP, -(SP)
E.DA,-(SP)
OCRLDA, -(SP)
E.BA,-(SP)
OCRLBA, -(SP)
E.CS,-(SP)
OCRLCS, -(SP)
OFMT3, -(SP)
11, -(SP)
SP,RO
C$PNTB
24,5P
E.DA, TEMPO
RS, TELCYL

+GET ADDRESS TO PRINT
sPRINT IT
SEXIT

TEMPO,CYL

:GET THE ADDRESS

0177,CvL

cyL

;SAVE ONLY CYLINDER BITS

cvL
1¢

MOV

TEMPO, SEC

+GET SECTOR ¢

CLR

SUR

+INIT TO HEAD O

BEQ

INC
8IC

[ (8

€177700,SEC
©100,E.DA

INC

SUR

MOV
MOV

SEC, -(SP)
SUR, -(SP)

MOV
MOV

#ORVER, -(SP)
SFMTIA, -(SP)

MOV
TRAP

C4PNTB

8IC

003061

OFMT2, -(SP)
011, -(SP)
SP,RO
CS$PNTB
024,5P

ROL
8CC

BIT

002302

#CRLCS, -(SP)

ADD
RTS

#177776,SUR

:SAVE ONLY THE SECTOR BITS
sHEAD 1?7

:NO

1 YUP

014 ,SP
RS

sFORMAT STATEMENTS

045
045
045
045

124
124
124
101

045
045
045
102

FMT1:
FMT17:
FMT1A:
FMT2:

.ASCIZ
,ASCIZ
.ASCIZ
.ASCII

2¢A
/#TeZ2wA:%Z%22/
/#T#06#Tw#01/
/#TsTsN/
/#ABEFORE ERR#T#06/

M4
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19- DEC-83 09:48

PAGE

36-16

SEQ 0051

ERROR MESSAGES

2337 007277
2338 007312
2339 007363
2340 007371
2341 007411
2342 007421
2343 007436
2344 007463
2345 007472
2346 007501
2347 007504
2348 007546
2349 007624
2350 007666
2351 007673
2352 007732
2353 010015
2354 010035
2355 010070
2356 010103
2357 010134
2358 010223
2359 010260
2360 010367
2361 010424
2362 010517
2363
2367

045
045
045
045
045
045
045
045
045
045
045
045
045
045

124
124
117
124

124

124
124
104

124
104

116
117
116
101
101
116
116
116
116
101
101
101
101
101
116
101
101
101

045
101
045
045
045
045
045
045

FMT2A:
FMT3:
FMT3A:
FMT4:
FMTS:
FMT6:
FMT7:
FMT8:
FMT9:
FMT9A:
:FMT10:

FMT10:
FMT10A:
FMT108:
FMT11:
FMT12:
FMT13:
FMT13D:
FMT14:
FMT14A:
FMT14C:
FMT148:
FMT1S:

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

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

124
101
116
116

045
045
045
045
045
045
045
045
045
045

ASCIZ

FRMT16:

FMT18:

FMTXS:

FMTS1:
FMTS1A:
FMTS18B:

FMTS2:

FMTDT:
FMTS2A:
FMTS28B:

FMTS3:
FMTS3A:
FMTS4:

/% TH06% TH06% TH06%N/
/#AAT ERR
STe06%
TH06% TH06% T%06 /
/8NSTeSA ADDR = CYL: #Z3#A, SUR: s#01%A SECT:
/78NS TS06% TH06%NS TH06% THO68N /
/8To06%TETEN/
/9Te8068TS068A OR #06%N/
/8TeA - #TeEN/
/8D6STEN/

/8THZ2uA
: 8Z2%A : 8228 TH06% TS0 18N/
/8D6%A. WORDS BAD OUT OF #D6%A. WORDS READSN/
/8THZ2uA : %Z2uA : 8228 TH06% T801 /
/9780647801 /
/8Te06% TH068NS TE068 TH06%A AT BUS ADDRESS /

/8 T802¢8 TH06% 803/
/8 TH06%N/
/8T806% TH06%N/
/8TeZ4sA NOW IS wZ4awN/
/78NS TSN/
/806%A /
/9N/

75AMORD #D3sA. S/B #068A WAS ®06%N?

/uNSAXFER SIZE = #Z6#A. WORDSSN/
/9NsiNSS10%As2s RLOL1-RLO2 PERFORMANCE REPORT ssesNsN/
/sAses RUNNINGSN/
/8Asss DROPPED #Z2wA:w8Z2#N/
/78 T80580SEN/
/8A DRIVE TYPE = RLOSO1SN/
/8ATOTAL SEEKS:
wD6%Z 38NSAWORDS READ:
/8AMORDS WRITTEN: sD68Z4sZ4sN/

FMTSS:

.SBTTL

2372
2373
2374 010556
2375
2376 010556
010556

010560
010562
010564
010566
010570
010572

DEFAULT HARDWARE P-TABLE PARAMETERS

L10013-LéHuW/2
174400
000160
000240
000001
000001

;JSD REV
;JSD REV

/906%8N/

2368
2369
2370 010556

2371

#Z2#A. sN/

/#AERRORCS) SET:s#TSNSARECOVERY BEING ATTEMPTED/
IINI#’DT TESTING CS=s06%A DR=#01%N/

006675
006717
006760
007044
007077
007113
007141
007155
007165
007223

2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336

174400
160
240
1
0
1

1DRIVE CSR
1DRIVE VECTOR
1DRIVE PRICRITY
iDRIVE TYFE
1DRIVE NUMBER
;CONTROLLER TYPE

#D6%Z4nZ4%N/
SDE6%N/

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-17

SEQ 0052

DEFAULT HARDWARE P-TABLE PARAMETERS
2385 010574
2386

ENDHW

010574

L10013:

gm 010574

ENDMOD

g;gg
<

gg:é 010574
2393 010574

Jo— 010574

000037

2395 010576
2396 010600
2397 010602
2398 010604
2399 010606

000001
000003
000003
060650
023420

000020

2400 010610
2401

2402 010612
2403 010614
2404 010616
2405 010620

2406 010622
2407 010624
2408 010626
2409 010630
2410 010632
2411 010634
2412 010636

000360

000003
000000
002400
000100
000000

2413 010640
2414 010642
2415 010644
2416 010646

177600
000000
000000
000000
000001
000001
000003
000012
000000

2418 010652
2419 010654
2420 010656
2421 010660
2422 010662
2423 010664
2424 010666

000000
000001
000004
000001
000200
000000
000001

2417 010650

2425 010670
g:gg 010672

DEFAULT SOFTWARE P-TABLE PARAMETERS

BGNMOD

SPTCODE

BGNSW

.WORD

L10014-Ls$SW/s2

LIMIT:
ERLMT:
SELMT:
DALMT:
SKLMT:

.WORD
.WORD
.WORD
.WORD
.WORD

1
3
3
25000.
10000.
240.

CMRD :
DELMT:
XCHFLG:
T.MXB:

.WORD
.WORD
.WORD
.WORD

TYINT:

T.MXH:
T.MNH:
T.MXC:
T.MNC:
T.MXS:
T.MNS:
T.OCK:

T.ORP:
T.MNB:
SFLMT:
T.STA:

000003

DRLMT:

000012
000001

T.0CD:
T.ANS:

2428 010674
2429

.SBTTL

.WORD
_.WORD
.WORD
.WORD
.MWORD
.MORD
.WORD

O
1
4
1
128.
O
1

.WORD
.WORD

10.
1

L10014:
ENDMOD

ggg 010674

2435
2436 010700

.WORD
.WORD
.WORD
.WORD

177600
O
O
O
1
1
3
10.
O

.WORD

T.ROF:
T.RAN:
T.PAT:
T.SLT:
T.CLT:
7.STIP:
T.MCK:

ggg 010674

010674
010676

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

16.

3
O
1280.
100
O

ENOSW

010674

2434 010674

.WORD

BGNMOD
000001
014464

DSPCODE

DISPATCH

.WORD
.MORD

ENDMOD

1
T1

sRETRY LIMIT
;ERROR LIMIT
s SEEK ERROR LIMIT
;DATA XFER LIMIT (+(1043)) (BITS)
s SEEK LIMIT

sTIME INTERVAL IN MINS. BETWEEN STATISTICAL
s+ /REPORTS (4 HRS. TOTAL)
;WORDS TO COMPARE ON READ
;ERRORS TO REPORT ON DATA COMPARE
sCHANGE OTHER PARAMETERS
sMAXIMUM R/W TRANSFER BUFFER
sMAXIMUM HEAD SELECT
sMINIMUM HEAD SELECT
sMAXIMUM CYLINDER
sMINIMUM CYLINDER
sMAXIMUM START SECTOR
sMINIMUM START SECTOR
;DATA DUMP ON DATA CHECK ERROR

;DROP ON LIMIT REACHED
sMINIMUM BUFFER TRANSFER SIZE
+SOFT ERROR LIMIT
;DROP DRIVE ON PERFORMANCE REACHED

:DRIVE

LIMIT

sREAD ONLY FLAG
sRANDOM SELECT OF PATTERNS
sONLY ONE PATTERN 4 = WORST CASE
:SEEK RETRY LIMIT
tNUMBER OF ERRORS ON DCK DuUMP
sRESTRICT BUFFER SIZE
;00 WRITE CHECK

MACRO M1200

CNRLKAQ

RLO1702

DEFALLT

SOF TWARE P-TABLE PARAME TERS

PERF

EXER

2437

19 DEC-83 09:48

LSBTTL

24te
2439

012746
012746

007732
000001

010714

104416
062706

000004

010720
010722
010726

010732
010734

010740
010744
010750
010752
010754
010754
010754

010600

010446
012704
005764
001402
004737

062704
020427

001366
012604

030362
000104
013772
000126
031642

18:

2%:

ENDRPT
L1001S:

104425

MOV
MOV
MOV
TRAP
ADD

OFMTS]

MOV
ST
BEQ
JSR
ADD
e
BNE
MOV

, R4
GORBUF
DCS(R4)
2
PC.REPORT
R4
OS
#PRP< 2,
R4, GENDBUF
14
(SP)+ R4

TRAP

CSRPT

.SBTTL

STATISTICAL

HEADER

: "RLO1 -RLO2 PERFORMANCE REPORT"
:SAVE PRESENT VALUE OF R4

1START OF DRIVE BUFFER
+IS THERE A DRIVE?
iNO, GET NEXT ONE

s TYPE OUT SUMMARY
sNEXT DRIVE
1AT THE END?
iNO, TRY NEXT
sRESTORE R4

1777717
000010

ENDPROT

LOAD PROTECTION TABLE

010764

BGNINIT

012746
012746
012746

011012
011016

012700
104441

012746

104437
062706

104433

SETVEC

000010

MOV
MOV
HOV
MOV
TRAP
ADD

000300

MOV

000340
000140
000003

sNOT A MASS-BUS DRIVE
;P-TABLE OFFSET OF DRIVE

INITIALIZATION CODE
INITCODE

010764
010764
010770
010774
011000
011004
011006

;P-TABLE OFFSET OF CSR

0
-1
10

010764

2475
2476 011020
011020
2477

sPRINT

OFMTS1, -(SP)
e1,-(SP)
SP.RO
CSPNTS
04,5P

ENDMOD

.SBTTL

2473
2474 011012

36 18

STATISTICAL CODE

PRINTS

010756
010756
010756
010760
010762
010764

RP TCODE

2440 010700
2441
2442 010700
2443 010700
010700
010704

010710
010712

PAGE

SETPRI
SETPRI
TRAP

BRESET
TRAP

1START OF INITIALIZE CODE

@140, 9170000, 0340

10DT STARTING ADDR

0340
0300

1PRI T0 7 TO INMIBIT INT'S
PRI TO 6 TO INMIBIT INT'S

0340, -(SP)
#170000, -(SP)
€140, -(5P)
o3, -(SP)
CHSVEC
€10,5P

0300, R0

C#SPRI

CSRESET

;CLEAR OPERATION FLAGS

1FOR LSI-11 CPU'S

:JSD REV A

CNRLKAQ RLOL1702 PERF EXER

MACRO M1200

19 DEC-83 09:48

PAGE

36 19

SEQ 0US4

INITIALIZATION CODE

2478 011022

005037

000050

2479 011026
2480 011032
2481 011036

005037
005037
005037

002476
002452
002454

2483 011042

005037

002502

2482

2484 011046
2485 011050
011050
011054
011056
2486 011062
011062
2487 011064
2488 011072
2489 011076
2490 011100
011100
011104

011106
2491 011112
011112
2492 011114
2493 011116
011116
2494 011120
011120
2495 011122
2496 011126
011126
011132
011136
011142
011146
011150
2497
2498 011154
011154

011160

2499 011162

2500

011200
011204
011206
011212
011214
011220
011222
011226

000536
012700 000120
104462
010037 002316

OPFLG

INCALL
STFLG
CNTFLG

;CHECK FOR PRESENCE OF A SYSTEM CLOCK
CLR

104462

010037 002316
103401

000467

18:

104407

103057
005037
012746
012746
012746
012746
104437
062706
012700
104441
012727
000000
013727
000000
005367
001375
005367
001367

002514
000340
017040
000100
000003
000010
000240

SYSCLK

104441

011244 012700 000100
011250
104436
2503 011252 005737 002514
2504 011256 001406

TRAP

C#CLCK

TRAP

CSSPRI

MOV
LMORD
MOV
LMORD
DEC
BNE
DEC
BNE
SETPRI
SETPRI
MOV

€250..(PC)e
©
LSDLY,(PC)»
O
-6(PC)
. -8
-22(PC)
.-20
0340
9300
#300,R0

CLRVEC

€100

JCLEAR CONT

{CLEAR SYSTEM CLOCK FLAG

{FORCE THE PROGRAM TO ASSUME NO CLOCK
4P-CLOCK?

;JSD WEV &

;BRANCH IF NO P-CLOCK
{IDENTIFY P-CLOCK TYPE
s INDICATE PRESENCE OF A SYSTEM CLOCK
;BRANCH TO CHECK POMWER
1L -CLOCK?

MOV
RO, CLKADR
BCOMPLETE
14
sBRANCH IF L-CLOCK
8CS
18
8R
NILCLK
+ELSE, INDICATE CLOCK IS NOT PRESENT
READBUS
;CHECK TYPE OF BUS
TRAP
CORDBU
BNCOMPLETE
2
sBRANCH IF NOT Q-BUS
8cc
2
CLR
CLKFLD
;CLEAR CLOCK FIELD FOR STORING “TICKS”
SETVEC €100, #CLKTIK,0340
1SET UP L-CLOCK INTERRUPT VECTOR TO CHECK
MOV
0340, -(SP)
MOV
oCLKTIK, -(SP)
MOV
9100, -(SP)
MOV
o3, -(SP)
TRAP
CSSVEC
ADD
#10,5P
+/IF CLOCK IS "TICKINGTM
SETPRI 0240
sSET PRIORITY TO S TO ALLOW CLOCK INTERRUPTS
MOV
0240,R0
WAITHS

000372
002116
177772
177756

011236 012700 000300
011282

CLR
CLR
CLR

B8R
PWRCH
CLOCK
P,CLKADR
MOV
¢'P.RO
CSCLCK
TRAP
MOV
RO, CLKADR
BNCOMPLE TE
LCLKCH
LCLKCH
8cC
103006
o1,CLKTYP
MOV
012737 000001 002314
005237 002502
INC
SYSCLK
000522
8R
PURCH
LCLKCH: CLOCK
L,CLKADR
®'L,.RO
MOV
012700 000114

2501 011236
2502 011244

CLR

TRAP

MOV
TRAP
ST
BEQ

CHSPRI

#100,R0
CHCVEC
CLKFLD
NILCLK

+PAUSE TO ALLOM CLOCK INTERRUPTS

JRESTORE PRI TO 7 TO INMIBIT INT'S

{RESTORE PRI TO 6 TO INWIBIT INT'S
;CLEAR L-CLOCK INTERRUPT VECTOR

JL-CLOCK “TICKS"“?
{BRANCH IF NO “TICKS®

:JSD REV A

1 JSD REV A

CNRLKAO RLO1702 PERF EXER

DS
MACRO M1200

19-DEC-83% 09:48

PAGE

36-20

SEG

INITIALIZATION CODE

2505
2506
2507
2508

011260
011266

o11272
011274
011274
011300
011304
011310

011312
011314
2509 011320
011320
011324
011330
011334
011336
011340
011344
011344
011350
011352
011352
011354
011360
011364
011370
011374
011376
011402
011406
011412
011416

011424
011426
011444
011450
011452
011456
011460
011464
011466
011472
011502
011504
011506
011514
011520

011524
011530
011534
011540
011544
011550
011554

2538 011560

012737
005237

000002
002502

012746
012746
012746
010600
104417
062706

004530
007463
000002

012746
012746
012746
010600
104417
062706

004566
007463
000002

000424

012700
104447

103121

005237
012704
012702

130237
001471
016400
052700
010074
012701

032774
001037
012727
000000
013727

002314

2%:

002446
030362
000001
002252

11$:

000104

12¢:

000372
002116

177772
177756

024376
025620
000056
000036
000076
000052
000114
000126

SYSCLK

PWRCH
@FMT14,0NOCLK

\POMER FAIL SEQUENCE

PWRCH:

000034

023450
011560

02,CLKTYP

MOV
ONOCLK
. -(SP)
MOV
OFMT
14, -(SP)
02, -(SP)
MOV
MOV
SP,RO
CSPNTF
TRAP
ADD
% ,5P
PRINTF OFMT14, ONOREPT
MO\
ONOREPT, -(SP)
MOV
oFMT14, -(SP)
MOV
02,-(5?)
SP.RO
MOV
CHPNTF
TRAP
ADD
6, 5P

000006

004101

INC

BR
NILCLK: PRINTF

000006

000106
000200
000104
000170
000001

MOV

002246
156:

READEF

JSR

JSR
CLR

136:

OEF .PWR

RO
9EF .PWR,
MOV
TRAP
CHREFG
58
BNCOMPLETE
31
BCC
INC
PURFLG
, R4
SORBUF
MOV
MOV
o1,R2
R2.DRUT
BIT8
134
8EQ
MOV
DRSEL(R4),RO
RO
8IS
MOV
RO, BOCS(RS)
MOV
0120, ,R1
BIT
01,80CS(Re)
156
BNE
WAITMS
810.
MOV
€250.,(PC)+
. WORD
LIDLY,(PC)e
MOV
. WORD
DEC
-6(PC)
BNE
. -4
DEC
~22(PC)
BNE
.-20
DEC
R1
12¢
BNE
, WHY
ONOPUR
MOV
RS, DRDRV
JSR
»P
134
RS, ISDRST

RS , HOHOME

PRFLGSCR4)

CLR
CLR

RETRY(R4)
)
DOMCK(RA

ADD

+ 2, R4
OPRPOS

CLR
CLR

RTYPECRS)
RSEEK(RA)

s IDENTIFY L-CLOCK TYPE

1 INDICATE PRESEMCE OF A SYSTEM CLOCK
1BRANCH TO CHECK POMER
sREPORT “SYSTEM CLOCK IS NOT AVAILABLE"

sPRINT

“PERFORMANCE REPORTS WILL NOT BE PRINTED”

;1POMER FAILURE?

1BRANCH IF NO POWER FAILURE
;sINDICATE POWER FAIL

s INITIALIZE POINTER TO DRIVE PARAMETER BUFFERS

s INITIALIZE WAIT COUNT

s IMPLEMENT 1 SECOND TIME DELAY

sMSG.

“DR DID REC'R FROM PWR uP”

001

CNRLKAQO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-21

SEQ 00%¢

INITIALIZATION CODE

2539 011564

106302

2541 011570

005737

2540 011566

2542 011574

103300

001406

002502

2543 011576
2544 011606
2545 011612 000137 012642
2546
2547 011616
011616 012700 000036
011622
104447
2548 011624

ASLB

SYSCLK

BCC

BEQ

118

;SYSTEM CLOCK AVAILABLE?

CLKON
JACTIVATE CLOCK WITH 1-SECOND INCREMENTS
RO
tREQUEST ELAPSED SUPERVISOR TIME
as:
JMP
INIEND
: “CONTINUE* COMMAND SEQUENCE
3s:
READEF ©EF.CONTINUE
;CONTINUE FROM CONSOLE?
MOV
@EF . CONTINUE
,RO
TRAP
CSREFG
BNCOMPLE TE
1
sNO, CONTINUE W/ INIT CODE
REQTIM

s 011624

103004

2550 011626
gssgé 011632
2553 011636
2554 011642
2555 011650
2556 011656
2557 011662
2558 011664

005237
000137
004537
012737
012737
012700
005020
020027

002454
INC
012170
MP
027124
18:
JSR
176543 002260
MOV
123456 002262
MOV
002320
2¢:
MOV
CLRDAT: CLR
002454
cP

CNTFLG
END
RS,CLEAR
176543, HINUM
123456, LONUM
OCNTLR1,RO
(RO)+
RO, 0STFLG+2

sYES SET CONT FLAG, GO TO END OF INIT

2561 011672
2562 011676
2563 011702
2564 011706

012704
012702
013703
010337

030362
027314
002012
002444

MOV
MOV
MOV
MOV

SDRBUF ,R4
#BSECO,R2
LOUNIT,RS
RS, WT

sSET UP DRIVE INFORMATION BUFFER POINTER
sSET UP BAD SECTOR POINTER
:GET NUMBER OF UNITS
sSAVE LSUNIT

2566 011714

005703

1ST

;ANY

2559 011670 001374

2565 011712

2567 011716

005001

001524

2568 011720
011720
011722

010100
104442

011724

103112

2569 011724

BCC

BNE

18:

CLR

8EQ

GPHARD
nov

CLRDAT

END

R1,RO
R1,RO
C4GPHRD
mete
12

;CLEAR ALL DRIVE BUFFERS
.mxve RANDOM GENERATOR
.xunm.m ronuea TO GLOBAL DATA AREA
sMASS CLEAR OF GLOBAL DATA AREA
AT END OF GLOBAL DATA AREA?

;INITIALIZE P-TABLE FOR LOGICAL UNIT
P-TABLES LEFT?

:NO,GO TO END

;REQUEST A P-TABLE FOR DRIVE

8cc
124
TO LOCAL STORAGE
CONTENTS
P-TABLE
sMOVE
2570
2571 011726 012037 002330
MOV
(RO)+,BCSR
:GET CSR
2572 011732 012037 002332
MOV
(RO)+ ,BVEC
1GET VECTOR
2573 011736 012037 002334
MOV
(RO)+,BPRIOR
:GET PRIORITY
2574 011742 012037 002254
MOV
(RO)+,T.DRIVE
;GET DRIVE TYPE
2575 011746 011037 002336
MOV
(RO),BORSEL
;GET DRIVE NUMBER
2576 011752 005737 002320
1ST
CNTLR1
;00 WE MAVE CSR 1 YET?
2577 011756 001011
ane
24
sYES, THEN SEE IF IT THIS DRIVE IS
2578
+ /ASSOCIATED WITH CNTLR1
2579 011760 013737 002334 002376
MOV
BPRIOR,PRIORL
2580 011766 013737 002330 002320
MOV
BCSR,CNTLR1
1NO,MAKE THIS ONE CSR 1
2581 011774 013737 002332 002372
MOV
BVEC,VECT1
tMAKE THIS VECTOR VECT1
2582 012002 023737 002330 002320 2%:
cHe
BCSR,CNTLR1
1IS THIS CSR ONTLR1?
2583 012010 001012
ONE
5
1NO,GO CHECK AGAINST @2
2584 012012 023737 002332 002372
cP
BVEC,VECTL
+IS VECTOR PROPER?
2585 012020 001050
BNE
104
iNO, REPORT ERROR
2586 012022 012737 002436 002350
MOV
BUF 1, TEMPL
+FIRST CONTROLLER/FIRST BUFFER
2587 012030 004537 013442
JSR
RS,FILINF
tFILL BUFFER
2588 012034 000450
8R
114
1GO GET NEXT P-TABLE
2589 012036' 005737 002322
S4:
ST
CNTLR2
{MAVE WE GOT CSR @2 YET?

CNRLKAO RLO1702 PERF EXER

MACRO M1200

F‘ r'l
PAGE 36-22

19-DEC-83 09:48

SEQ 0057

INITIALIZATION CODE
2590
2591
2592
2593
2594
2595
2596
2597

2598
2599
2600
2601

012042
012044
012052
012054
012062
012070
012076

012104
012106
012114
012116
012124

2602 012126
2603 012134
2604 012140
2605 012142
012142
012144
012146

001015
023737
001433
013737
013737
013737
023737
001016
023737
001012
023737
001406
012737
004537
000406

002372

002330

002330
002332
002334
002330

002322
002374

002332

002374

002372

013442

68:

002350

10s:

104455

012150
012152
012156
012160

002322

BNE

000104

128:

118:

012162
012166

sERReE 3

012232
012232
012236
012240
012240
012242

2631
2632
2633
2634
2635
2636
012312

VECT1,BCSR
104
BCSR, CNTLR2
BVEC
. VECT2
BPRIOR, PRIOR2
BCSR,CNTLR2
104
BVEC,VECT2
104
VECT2,VECT1
104
MBUF2, TENP1
RS, FILINF
114

TRAP
.MORD

CSERDF
160

CLR

DCS(R4)

ERRDF

'MORD
'WORD

INC

DEC
ADD
B8R

160.,ILLEG,ERR10

1 YES, CHECK THIS ONE AGAINST IT
+IS THIS VECTOR SAME AS CNTLR1
+IF SO, DON'T ALLOW IT
tMAKE

THIS ONE CSR 2

1SETUP SECOND VECTOR

1 IS THIS CSR @ 27
sNO, MELL WE DON'T ALLOW 3
;DOES IT HAVE PROPER VECTOR
iNO, GO REPORT ERROR
+IS VECTOR OF FIRST EQUAL TO
;VECTOR OF SECOND, YES REPORT ERROR
;OTHER CNTLR/OTHER BUFFER
;LOAD BUFFER
sNEXT

;BAD P-TABLE

ILLEG
ERR10
R1

sPOINT TO NEXT
1DOWN COUNT
sNEXT BAD SECTOR FILE
;00 WHILE

1SETUP FOR EIGHT DRIVES
sMORE THAN FOUR
sYES, THEN MASK IS OKAY
1SETUP FOR FOUR DRIVES

R3
034, .R2
18

END:

012170

012170
012176
012204
012206
012214
012222
012224

cHP
BEG
MOV
MOV
MOV
cHe
BNE
cHP
BNE
cHP
BEQ
MOV
JSR
B8R

012737
023727
003012
052737
023727
003003
052737

002444

MOV
cre

0177770, SYSMSK
d

000004
002444

Wi,
e2

177770

8GT

8IS

o
Y

92, 5YSMSK

s "START* COMMAND SEQUENCE

2¢:

012700

104447

103006
005237
005037
005037
005737
001047
005737
001420
005037
005237
005037
012746
012746

002452
002274
002310
002454
002274
002274
002310
010612
004416
007666

READEF

OEF .START

MOV
OEF . START
RO
TRAP
CSREFG
RESTART
BNCOMPLETE
RESTART
8cc
STFLG
INC
WRINIT
CLR
KILLOC
CLR

RESTART;:

BNE
6T
BEQ
CLR
INC

CNTFLG

1)
WRINIT
114
WRINIT
KILLDC

SRINTF
e
18, #NORDOC
MOV
#NORDOC
, - (SP)
MOV

OFMT18, -(SP)

sMORE THAN TWO
s YES, IT*'S OKAY
:SET FOR ONE OR TWO
1START COMMAND

iNO, CHX RESTART

1SET STARY INDICATOR
sCLEAR THE WRITE INIT FLAG ON START
1CLEAR DATA COMP FLAG ON START ONLY
s CONTINUING
1YES GO TO 3%

+IN PROCESS OF INITTING THE PACK?

1NO
1YES - CLEAR THE FLAG

;INMIBIT DATA COMPARES!
1AND SET DAT COMPARE TO O WORDS
1 TELL OPR PACK NOT INITTED YET

CNRLKAQ RLO1702 PERF

EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-23

SEQ 00LA

INITIALIZATION CODE
012316
012322
012324
012326

012746
010600
104417
062706

000002

MOV
TRAP
ADD

000006

SP,RO
CSPNTF
06 ,SP

sLET'S CREATE INTERNAL BITMAP
012332
012336
012342
012346
012352
012354
012360
012362
012366
012372

012701

012374

113737

105037

012704
005764
001402
150137
006301
062704
022704
001365

000001

11%:

000104

18:

002253
030362
002253
000126
031642

002253

#1,R1
DRPRS
R4
ODRBUF

;1BIT MASK
;CLEAR OUT DRIVES PRESENT
;START OF DRIVE BUFFERS

BEQ
BISB
ASL
ADD

24
R1,DRPRS
R1
#PRPOS+2,R4

;NO, NO DRIVE THEN

TST

cHP

BNE

MOVB

002252

DCS(R4)

GENDBUF ,R4
14

sNEXT POSITION
sNEXT DRIVE BUFFER
3 DONE

3NO

sSET UP DRIVES UNDER TEST

SETVEC

VECT1,¢INTR1,PRIOR1

$SET CONTROLLER 1'S VECTOR

002376
017046
002372
000003

MOV
MOV

VECT1, -(SP)
#3,-(SP)

012424

000010

ADD

€10,5P

012430
012434

005737
001413

002322

012435
012436
012442
012446
012452
012456
012460

013746
012746
013746
012746
104437
062706

012464
012470

005737
001412

012472
012476

005737
001461

012516
012516
012520
012522
012526

s INDICATE DRIVE IN BITMAP

, DRUT
DRPRS

013746
012746
013746
012746
104437
062706

012500
012510
012514

sANY CSR?

3s:

012402
012402
012402
012406
012412
012416
012422

2s:

MOV
CLRB
MOV

TRAP
TST

BEQ
SETVEC

MOV
MOV
MOV
MOV
TRAP
ADD

017056
002374
000003
000010

002454

as:

Cs$SVEC

CNTLR2

;a'gum; TWO CONTROLLERS?

VECT2,@INTR2,PRIOR2

s YES SET CONTROLLER 2'S VECTOR

PRIOR2, -(SP)
®INTR2, -(SP)
VECT2, -(SP)
o3, -(SP)
CSSVEC
#10,5P

BEQ

F INDBF

CNTFLG

sCONTINVE?
tNO, GO PAST RESTART OF CLOCK

157

SYSCLK

a% WE MAVE SYSTEM CLOCX?

BEQ
CLKON

REQTIM

000452

PRIOR1, -(SP)
@INTR1, -(SP)

INIEND

sACTIVATE SYSTEM CLOCK
IREQUEST ELAPSED SUPERVISOR TIME
1GO TO END

sREQUEST MEMORY BUFFER SPACE TO PERFORM READ/WRITE OPERATIONS

FINDBF: MEMORY

104431

010002
022712
003413

002400

TRAP
MOV

cHp
BLE

tREQUEST MEMORY BUFFER SPACE

#1280.,(R2)
14

100 WE HAVE A MINIMUM OF 1280 WORDS?
1YES - BRANCH

CoMEM
RO,R2

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19 DEC-83% 09:48

PAGE 36-24

SEGQ 00%7

INITIALIZATION CODE
2677 012530

012530

012746

012544

010600

004711

2682 012566
2683 012570

104417

2684 012574
2685 012602
2686 012606
2687 012610
2688 012614
2689 012622
263 012624
1
2692 012632
2693

001410
042712

013737
061237
006212
011237
023727
003403
012737

012642
012642

269 012644

18:

002436 002440
002440
002442
28:
002442 012000
012000 002442
38:
INIEND:

L10017:

104411

oFMT14, -(SP)
02, -(SP)

TRAP

06, 5P

ADD

000001

2694 012642
2695 012642

MOV
MOV

MOV

012550 062706 000006

2678
2679 012554 000000
2680 012556 010237 002436
2681 012562 005737 002322

oFMT14,0INSMEM

MOV

012534 012746 007463
012540 012746 000002
012546

PRINTF

ENDMOD

HALT

OINSMEM, -(SP)

- PRINT MSG.

"SYSTEM FATAL ERROR

SP,RO

CSPNTF

MOV
ST

R2,BUF 1
CNTLR2

MOV
ADD
ASR
MOV
cHP
BLE
MOV
CLKON

BUF1,BUF2
(R2).BUF2
(R2)
(R2), MAXWC
MAXWC , #5120,
)
#5120, ,MAXWC

BEQ
BIC

iNO

24
*1,(R2)

s /INSUFF ICIENT MEMORY BUFFER SPACE
sGET ADDRESS OF FREE MEMORY
: TWO CONTROLLERS?

iNO - ASSIGN ALL BUFFER TO SINGLE CONTROLLER
{MAKE LENGTH OF FREE MEMORY EVEN

1SET UP FOR BUFFER 2
{ADD MALF OF BUFFER
;DIVIDE BUFFER SPACE BY 2
JINITIALIZE MAXIMUM WORD COUNT
1 IS WORD COUNT LESS THAN OR EQUAL TO 51207
sBRANCH IF TRUE
iNO - INITIALIZE VALUE TO 5120 WORDS
;ACTIVATE SYSTEM CLOCK TO INITIATE GENERATION
:/0F TIMING INTERVALS

ENDINIT

TRAP

CSINIT

2698
2700

.SBTTL AUTO DROP SECTION
THE AUTO DROP SECTION IS COMDITIONALLY EXECUTED AFTER THE INITIALIZATION CODE

2703

;DROPPED FROM THE TEST CYCLE. THE HARDMARE TESTS ARE PERFORMED IMMEDIATELY

2701

{MMEN THE OPERATOR "ADR" FLAG IS SET. EACH DRIVE IS CHECKED TO DETERMINE
IF

2702

IS READY TO TRANSFER DATA. IF THE DRIVE DOES NOT RESPOND WITH “READY" IT s’

2704

{AFTER THE READY STATUS OF ALL DRIVES HAVE BEEN CHECKED.

2706 012644

2707 012644
2708 012646
2709 012650
2710 012654

010346
010446
013703 002012
012704 030362

012670
012674
012700
012704
012706
2713
2714 012712
2715 012716
2716 012722
2717 012724
0127284

012746
013746
012746
104437
062706
005774
005737
001425
005046

2711 012660 005037 002450
2712 012664
012664 012746 000340

012726

156416

013764
002466
000003
000010
000104

002450
000107

BGNAUTO

14:

MOV
MOV
MOV
MOV

RS, -(SP)
R4, -(SP)
LOUNIT RS
SORBUF . R4

1SAVE REGISTERS
sINITIALIZE NUMBER OF DRIVES UNDER TEST
sINITIALIZE START OF DRIVE BUFFERS

MOV
MOV
MOV
TRAP
ADD
ST
ST
BEQ
PRINTF
CLR

STRPMAN, -(SP)
ERRVEC, -(SP)
o3, -(SP)
CSVEC
€10,5P
+ /NON-EXISTENT CONTROLLER
8DCS(R4)
+ACCESS CONTROLLER
TRPFLG
1DID TRAP OCCUR?
24
;BRANCH TO CHECK DRIVE IF TRAP DID NOT OCCUR
#FRMT16.DCSCRA
), <B,DRSEL+1CR4)> ;PRINT CONTROL STATUS AND DRIVE
-(SP)

CLR
TRPFLG
CLEAR TRAP FLAG
SETVEC ERRVEC,OTRPHAN, 9340
+SET UP TIME-OUT VECTOR TO DETECT
MOV
0340, -(SP)

8ISB

DRSEL+1(R4),(SP)

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-25

SEGQ 0060

AUTO DROP SECTION

012732
012736
012742
012746
012750
012752
2718
2719 012756
2720
2721 012764
2722 012770
2723 012774
2724 012776
2725 013004
2726 013012
2727 013020
2728 013022
013022
013024

013030
013034
013040
013044
013046
013050
2729
2730 013054
2731
2732 013062
2733 013066
2738 013072
013072
013076
2735 013100
2736
2737 013104
2738 013106
2739 013110

016446 000104
012746 007624
012746 000003

010600
104417
062706 000010

012737
004537
005064
000436
056474
052774
032774
001024
005046
156416

016446
012746
012746
010600
104417
062706
012737
004537
005064
013700
104436
062704
005303
001264
012604

000104
007624
000003
000010
004636 002246
023450
000104
002466
000126

ENDAUTO
L10020:

104461

BGNMOD

g;:z 013116
013116
013122
013126
013132
013136
013140
2748 013144
013144

013150

38:

DCSCRA), -(SP)
OFRMT16., -(SP)
03, -(SP)
SP.RO
010,5P

CSPNTF

; /NUMBER INFORMATION

MOV
JSR
CLR
BR
BIS
8IS
BIT
BNE

ONOCTLR , WHY
;PROVIDE REASON FOR DROPPING DRIVE 1/"NO CONTROLLER"
RS, DRORV
;D0 DROP UNIT ON DRIVE FROM TEST CYCLE
DCSCRA)
s TAKE DRIVE OUT OF BUFFER
34
sBRANCH TO GET NEXT C IVE
DRSEL(R4),B0CS(RA)
;GET SELECTED DRIVE NUMBER
0200,80CS(R8)
;SET CONTROLLER READY
01.80CSCR4)
:IS DRIVE READY?
38
;BRANCH TO CHECK NEXT DRIVE IF READY

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
JSR
CLR
CLRVEC
MOV
TRAP
ADD
DEC
BNE
MOV

DCSCR4), -(SP)
OFRMT16, -(SP)
03, -(SP)
SP,RO
CSPNTF
010,5P
ONOTROY , WHY
RS, DRDRV
DCSCR4)
ERRVEC
ERRVEC
, RO
CSCVEC
PRPOS+2, R4
/3
14
(SP)+.R4

TRAP

CS$AUTO

PRINTF
CLR
BISB

000107

_‘2,;:2 013116

2747 013116

MOV
TRAP
ADD

004673 002246
023450
000104
000106 000104 28:
000200 000104
000001 000104

2740 013112 012603
2741 013114
013114
e 013114

MOV
MOV
MOV

MOV

#FRMT16,DCSCR4),<B,DRSEL+1(R4)> ;PRINT CONTROL STATUS AND DRIVE
-(SP)
DRSEL+1(R4),(SP)

(SP)+.R3

s /NMBER INFORMATION
;PROVIDE REASON FOR DROPPING DRIVE . 3/*DID NOT RESPOND WITH “READY”
;00 DROP UNIT ON DRIVE FROM TEST CYCLE
:TAKE DRIVE OUT OF BUFFER
JRELEASE THE ERROR VECTOR

JUPDATE POINTER TO ACCESS DRIVE BUFFER
;/FOR NEXT DRIVE
;DECREMENT DRIVE COUNT
sBRANCH TO GET NEXT DRIVE IF MORE
;RESTORE REGISTERS

CLNCODE

BGNCLN
012746
012746
013746
012746
104437
062706
012700
104441

000340
013764
002466
000003
000010
000000

SETVEC

MOV
MOV
MOV
MOV
TRAP
ADD
SETPRI
MOV
TRAP

ERRVEC, #TRPHAN, #340

#340, -(SP)
OTRPHAN, -(SP)
ERRVEC, -(SP)
#3,-(5P)
COSVEC
#10,5P
#PRIOO
#PRI00,RO
C$SPRI

;PRIORITY TO ZERO

CNRLKAO RLO1/702 PERF EXER
AUTO DROP

2749
2750
2751
2752
2753

MACRO M1200

19-DEC-83 09:48

PAGE

36-26

SEQ 0061

SECTION

013152
013160
013162
013170
013170
013174

2754
2755 013176

2756 013202
27157
2758 013204
2759 013212
2760 013214
2761 013222
013222
013226

2762
2763 013230

2764 013234
2765 013240
013240

013244
2766 013246
2767 013252
2768 013254
2769 013310
013310
2770 013312
013312
013312
2771
2772 013314
2773
2774 013314
2775
2776 013314
2777
2778 013314

2779 013320
2780 013324
2781 013326
2782 013330
2783 013332
2784 013336
2785 013340
2786 013342
2787 013344
2788 013350
013350
013352
013354
2789 013356
2790 013362
2791 013366
2792 013370
2793 013372

032777
001774
042777

000200

167140

000100

167130

013700
104436

002372

005737
001412

002322

032777
001774
042777

167110
000100

013700
104436

002374

005037
005037

002476
002474

1%:

©CRDY,8CNTLR1

1
@INTEN,3CNTLR1

VECT1
VECT1,RO
C$CVEC

2%:

167100

013700
104436
005737

;

sCLEAR INTERRUPT IF PENDING
;RELEASE VECTOR OF FIRST CONTROLLER

CNTLR2
3¢

s TWO CONTROLLERS

®CRDY,8CNTLR2

;WAIT FOR OTHER CONTROLLER TO FINISH

24
@INTEN,BCNTLR2
VECT2

VECT2,RO
C$CVEC

3s:

sWAIT FOR CONTROLLER TO FINISH

:NO
;

;CLEAR OUT INTERRUPT ENABLE
s YES,

WELL RELEASE

ITS VECTOR

INCALL
OPCALL
ERRVEC
ERRVEC,RO

CSCVEC
SYSCLK

001416

4%:

104433

L10021:

104412

CSRESET

sDEACTIVATE SYSTEM CLOCK
;TAKE CARE OF LSI-11

CSCLEAN

BGNMOD
BGNAU
012704
012701
010002
005700
001405
062704
006301

005024
005300

#1.R1

1%:

000126

000771
150137
010200
104442
010001
011164
012700

S®DRBUF ,R4

030362
000001

RO,R2

RO
24
OPRPOS+2,R4

2%:

000104
000100
a4

RO
ié
R1.DRUT

R2.R1
R2.RO
CoGPHRD
RO,.R1
(R1),DCS(R4)
OSERNM1 ,RO
RO
(R4).
RO

1START OF DRIVE BUFFERS

sMASK TO FIND DRIVE
;SAVE WHICH TO FIND
: THIS ONE
1YES
sNEXT
sNEXT MASK

1 INSERT IN DRIVE UNDER TEST

1SETUP TO CLEAR STATUS

l( F)
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-27

SEGQ

AUTO DROP SECTION

2794 013374
2795 013376
2796

2797 013376
013376
013376
2798
2799 013400
2800
2801 013400
2802
2803 013400
2804
2805 013400
2806 013404
2807 013406
2808 013412
2809 013414
2810 013416
2811 013420
2812 013424
2813
2814 013426
2815 013434
2816 013440
2817
2818 013440
013440
013440
2819
2820 013442
2821

001375

5%:

ENDAU
L10022:

104452

BNE

TRAP

CsAV

ENDMOD

BGNMOD

DROPCODE

BGNDU

005737
001015
012704
005700
001404
005300
062704
000772
012737
004537

002476

BNE

030362

28:

000126

003510
023444

002246

18:
3s:

ENDDU
L10023:

104453

MOV

INCALL

F
, R4
SDRBU

TST

DEC
ADD
B8R
MOV
JSR

RO
OPRPOS +2,R4
24
OREQ, WHY
RS, ODRDRV

TRAP

CsDu

BEQ

ENDMOD

013442

.SBTTL

GLOBAL SUBROUTINES

BGNMOD

GLBSUB

:mne TO FILL DRIVE PARAMETER BUFFERS WITH INFORMATION
013442
013450
013456
013460
013466
013474
013502
013510
013514
013520

013764

022737
001403
012737
012764
013764
013764
010264
062704

002336

FILING: MOV

BORSEL
, DRSEL(R4)

000112
000126

BEQ
MOV
FILTD: MOV
MOV
MOV
MOV
ADD

FILTD
02, T.DRIVE
T.ORIVE, TOR(R4 )
BCSR,DCSCRE)
TEMP1,BBACRE)
R2,BSECPT(RS)
+2, R4
PRPOS

000001

RTS

#1,T.DRIVE

:SET DRIVE SELECT BITS

sORIVE = RLO1?
s YES
sDRIVE IS AN RLO2

1SET CSR
1SET R/W BUFFER
;SETUP BAD SECTOR POINTER
1UPDATE POINTER

sSETS UP CLOCK INTERRUPT VECTOR, CLOCK COUNT, AND IDENTIFIES CLOCK FREQUENCY
013522
013524
vilsS32
013534
VL3534
013540

010346
022737
001014
012746
012746

002314
000340
016636

CLKINI: MOV

R3,-(SP)

cHP
BNE

#1,CLKTYP
LCLK

MOV
MOV

€340, -(SP)
OUPDATE, -(SP)

SETVEC

@104,0UPDATE,#340

1SAVE R3
1P-CLOCK?
1BRANCH IF NOT P-CLOCK
1SET P-CLOCK INTERRUPT VECTOR

0062

LS
CNRLKAO RLO1/702 PERF EXER
GLOBAL

MACRO TMM1200

19-DEC-83 09:48

PAGE

36-28

SEQ 0062

SUBROUTINES
012746
012746
104437
062706
000417
022737
001036

000104
000003

013544
013550
013554
013556
2845 013562
013564
2847 013572
2848 013574
013574
013600
013604
013610
013614
013616
013622
013626
013634
013636

01274¢
012746
012746
012746
104437
062706
013703
022763
001007
012737

013644
013652
013654

012737
000406
012737

002312

013662
013670
013672

012737
012603
000207

002312

C$SVEC

@10, SP
FRQCHK
02,CLKTYP

000010

002314

LCLK:

ENDINI
€100, #UPDATE, #340
0340, -(SP)

;BRANCH FOR SYSTEM FREQUENCY CHECK
;L-CLOCK?
1BRANCH IF NO CLOCCK
$SET L-CLOCK INTERRUPT VECTOR

OUPDATE, -(SP)
@3, -(SP)

C$SVEC

010,SP

FRQCHK :

CLKADR,R3

sGET BASE ADDRESS OF THE SUPERVISOR CLOCK TABLE

#60. ,CLKCNT

sINITIALIZE CLOCK COUNT FOR 60 TICKS

#60. ,6(R3)
FRQ@S0

160 HZ?
;BRANCH FOR S0 HZ

s/PER SECOND
sIDENTIFY CLOCK FREQUENCY IS 60 HZ
sRETURN

#1,CLKFRQ
ENDINI

#50. ,CLKCNT

FRQ50:

MOV
ENDINI: MOV
RTS

sINITIALIZE CLOCK COUNT FOR SO TICKS

lIPER SECOND

#2,CLKFRG
'(’CSP)o.RS

sIDENTIFY CLOCK FREQUENCY IS S0 HZ
;RESTORE R3

013674
013700
013706
013710
013716
013722
013724
013732
013734
013742

005037

013750
013754
013762

005237
013737
000207

013764
013770

005237
000002

022737

001006
012737
005237
000414
022737
001013
012737
012737

002512
000100

002314
177546

002314
000001
000115

CLKST:

1¢:

172542
172540

002510
002450

A a 3% 23RIPAIRIC

;DETERMINES CLOCK TYPE AND INITIALIZES THE CLOCK FOR OPERATION IN REPEAT
;s INTERRUPT MODE AT LINE FREQUENCY

RTI

.SBTTL

CLKACC
02 CLKTYP

sCLEAR CLOCK ELAPSED TIME INDICATOR
iL-CLOCK?

0100..01775“

lSET INTERRUPT ENABLE BIT TO 1

CLKSON

2
#1,CLKTYP
34

01,80172542

0115.80172540

CLKSON

CLKCNT,CLKBFR

sBRANCH FOR P-CLOCK

;sINDICATE “CLOCK ON”

sBRANCH TO SET UP TIME INCREMENTS
lP-CLW?
sBRANCH IF NO CLOCK

sif UP P-CLOCK FOR 1 INTERRUPT PER TICK

;SET INTERRUPT ENABLE,REPEAT INTERRUPT MODE,

;s/LINE FREQUENCY RATE,START CLOCK

;sINDICATE “CLOCK ON*

;SET UP TIME INCREMENTS

1RETURN

TRPFLG

REPORT ROUTINE

sROUTINE TO PRINT STATISTICAL REPORT OF DRIVE(S)

REV

013772

013772
013774
014000
014004

156416
012746
016446

000107
004030
000104

sREPORT :PRINTS

#OFMT10, #TIME,HOUR,MINUTE , SECOND , #MRLCS,.DCS(R4), #DRNM, <B ,DRSEL +1(R4)>

:JSD

REPORT: PRINTS

@FMT10,8MRLCS,DCS(R4),DRNM, <B,DRSEL+1(R4)>

:JSD

-(SP)

DRSEL +1(R4),(SP)
QORNM, -(SP)
DCSCRA), -(SP)

M5
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19 DEC-83 09:48

PAGE

36-29

SEQ 0064

REPORT ROUTINE

33#

014026
014030
2888 014034
014034
014040
014044
014050
014052
014054
2889 014060
2890
2891 014062
2892 014066
2893
28%
2895
2896 014070
014070
014072
014076
014100
014104
014110
014114
014116
014120
014124
014126
014126
014132
014136
014140
014142

2900
2901 014146
014146
014152
014156
014162
014166
014172
014174
014176
2902 014202
014202
014206
014212
014216
014222
014226
014232
014236

012746
012746
012746
010600

104416
062706

MOV
MOV
MOV

002525
007277
000005

MOV

TRAP

ADD

000014

016446
012746
012746
010600
104416
062706
000432

000120
010103
000002

005764
001417

000070

PRINTS

MOV
MOV
MOV
MOV

TRAP

ADD
BR
TST

BEQ

OMRLCS, -(SP)
OFMT10, -(SP)

SP,RO
CS$PNTS
@14,SP
#FMTDT, TDR(R4)
TDR(R4), -(SP)

CS$PNTS

06,SP
2¢

DPHOUR(R4)

;SKIP THIS BECAUSE DPHOUR(R4) WILL ALWAYS
i...BE ZERO, EVEN FOR DROPPED UNIT

;00 WE HAVE ANY DROPPED TIME
sNO,

THEN PRINT “RUNNING”

;PRINT THE TIME THE DRIVE WAS DROPPED FROM TESTING
PRINTS

156416

000071

156416
012746
012746
010600
104416
062706
000410

000070
010035

012746
012746
010600
104416
062706

010015
000001

016446
016446
012746
012746
012746
010600
104416
062706

000100
000102

016446

016446
016446
016446
012746
012746
010600

CLR
BISB
CLR
B8ISB
MOV
MOV
MOV

000003

000010

1¢:

010070

DPMINCRA), (SP)
-(SP)
DPHOURCRA
), (SP)

TRAP

PRINTS

OFMTS1A

TRAP

2%:

.u(-’g;s;u.ta.m(m».<s.opn1mm)>

03, -(SP)
SP.RO
CSPNTS
€10,5P
2

3333333338¢33888 3 3 338

014010
014014
014020
014024

OFMTSI1A, -(SP)
01,-(SP)
SP.RO

;PRINT *ese RUNNING'

CIPNTS
04,5P

FMTS2,

CART , SERNM2(R4
), SERNM1(R4)

SERNM1(RA4), -(SP)
)
. -(SP)
SERNM2(R4
OCART, -(SP)

CSPNTS

012,5P

SFMTS2A, SKCNTCRA ), SKCNT1(R4 ) ,RXFR3(RE) ,RXFR2(R4 ) ,RXFR1(R4)
RXFR1CR4), -(SP)
RXFR2(R4
). -(SP)
RXFR3(R4
), -(SP)

SKCNT1(R4), -(SP)

SKCNT(R4), -(SP)
OFMTS2A, -(SP)
SP.RO

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-30

REPORT ROUTINE

014240

014242
2903 014246
014246
014252
014256
014262
014266

014272
014274
014276

2904 014302
014302

014306
014312
014316
014322
014326
014332

014334
014336

2905 014342
014342

104416

016446
016446
016446
016446
012746
012746
010600

000074
000072
000016
000020
010260
000005

PRINTS
MOV
MOV
MOV
MOV
MOV
MOV
MOV

062706

000014

ADD

016446

000014

MOV

104416

016446
016446
016446
016446
012746
012746
010600
104416
062706
016446
016446
012746
012746
010600
104416
062706

euka
2913 014464
2914 014464

2915
2916

SP,RO
CSPNTS
012,5P

000006
000010
000062
010223
000004

014372
014376
014402
014406
014412
014416
014422
014424
014426
2907 014432
014432
014436
014442
014446
014452
014454
014456

2912

MOV
TRAP
ADD

016446
016446
016446
012746
012746
010600
104416
062706

016446
012746
012746
010600
104416
062706

2908 014462

C$PNTS

000016

014346
014352
014356
014362
014364
014366

2906 014372

TRAP

062706

000207

000012

000012
010367
000003
000010
000032
000034
000024
000022
010424
000005
000014

000030
000026
010517
000003
000010

ADD
PRINTS
MOV
MOV
MOV
MOV
MOV

TRAP

#16,SP
OFMTS2B,WXFR3(R4),WXFR2(R4),WXFR1(R4)
WXFR1(R4), -(SP)
WXFR2(R4), -(SP)
WXFR3(R4), -(SP)
OFMTS28B, -(SP)
#4,-(SP)

@FMTS3,DERCNT(R4),SKECNT(R4), TRERR(R4),DATCER(RS)
DATCER(R4), -(SP)
TRERR(R4), -(SP)
SKECNT(R4), -(SP)
DERCNT(R4), -(SP)
OFMTS3, -(SP)
5,-(SP)
SP.RO

CSPNTS
#14,5P

PRINTS @FMTS3A,ERRCNT(R4),SFTCNT(R4)
SFTCNT(R4), -(SP)

MOV
MOV
MOV
MOV
TRAP
ADD

ERRCNTCR4
). -(SP)
OFMTS3A, -(SP)
e3,-(SP)
SP,RO
CSPNTS
010,5P

HOV
MOV
MOV
10V
MOV
MOV
MOV
TRAP
ADD
PRINTS
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

MNFERRCRE
), -(SP)
NXMCNT(R4
), -(SP)
HCRCER(R4 ), -(SP)
DCRCERCRS
), -(SP)
OFMTSA, -(SP)
o5, -(5P)
SP.RO
CSPNTS
014,5P
@FMTSS,DLTCNT(R4),OPICNT(RA)
OPICNT(R4), -(SP)
DLTCONTCRA
). -(SP)
OFMTSS, -(SP)
03, -(SP)
.
CSPNTS
010, 5P

PRINTS

RTS

OFMTSA,DCRCERCRA).HCRCER(R4
) ,NXMCNT(R4 ), HNFERR(R4 )

—

.SBTTL PROGRAM MAIN LOOP

BGNTST
STARS
33 8880088068800 084208000088808002008000200000808488208020028000000004000

;PROGRAM WILL RANDOMLY PICK ONE OF THE DRIVES TO
;PERFORM AN OPERATION.

WE WILL ALWAYS PICK ONE OF FOUR

SEQ 0065

CNRLKAQ RLO1/702 PERF

EXER

MACRO M1200

19 -DEC-8% 09:48

PAGE

B
36

351

SEQ

PROGRAM MAIN LOOP

;OR EIGHT DRIVES (ONE OR TWO CONTROLLERS) “DRUT" WILL BE
ONCE DRIVE IS PICKED
;CHECKED TO SEE IF DRIVE IS ON SYSTEM,
FOR THAT
RANDOMLY
SELECTED
BE
WILL
FUNCTION
A
s THEN
FUNCTIONS OF CONTROLLER RESET, GET STATUS, SEEX, READ, WRITE
1ORIVE.
sWILL BE SELECTED, EACH FUNCTION WILL HAVE ITS OWN ROUTINE

2917
2918
2919
2920
2921
2“&
2923 014464

2924
2925 014464
014464
014470
2926
2927
2928 014472
014476
2930 014500
014504
014510
014514
014516
014522
014526
014532

170 GET PARAMETERS FOR

STARS

DRIVE.

1100800800080 00000000000088A0000800000080000000000000000080000000000

MTEST:

012700
104441

005737
001407
013704
013701
005237
000410
012704
012701
010437
010137

161¢%:

130137

014536
014542

001442

014544
014552
014360
014564
014566
014570
014576

012774
056474
012700
005300
001376
032774
001006

000104
000104

014600
014606
014612

012737
004537
000416

002246

014614
014620
014624
014630
014634
014636
014642

004537
003064
003064
005764
001003
005737
001402

014644

004537

024552

994:

01450
01" 54
014660

062704
010437
006337
106301
103323

000126
002274
002276

15¢:

014664
014666

THE

16%:;

13s:

SETPRI

MOV

TRAP

CSSPRI

WRINIT

BEQ
MOV
MOV
INC
B8R
MOV
MOV
MOV
MOV

1614
a4
WRINIT,
WRPOS ,R1
STFLG
168
, R4
SORBUF
o1,R1
R4, WRINIT
R1.WRPOS

8IT8

R1,DRUT

BEQ
MOV
8IS
MOV
DEC
BNE
BIT

000104

BNE

14%:

0240

9240 ,RO

158
0200, 8DCS(R4E)
DRSEL
(R4 ),80CS(R4)
0. RO
RO
138
, BOCS(RA)
SORDY

144

MOV
JSR
B8R
JSR
CLR
CLR
ST
BNE
ST
BEQ
JSR

SONRDY , WY
RS, DRORV
154
RS, RDBOSC
PRFLGS(R4)
RSEEK(RE)
WRIPG(R4)
994
STFLG
154
RS, MRPACK

&
ASL

R4 um’agi“

8cC

164

ASLE

WRPOS
Ri

iPRIORITY TO S TO ALLOW CLOCKX INTERRUPTS
s/AND TO INMIBIT DRIVE INTERRUPTS
;%fli AFTER PWR FAIL DURING WRITE
:

sYES - RESET R4
sAND R1 POINTERS

sFAKE OUT THE START FLAG
;AND CONTINUE WRITE INIT CODE
sGET DRIVE BUFFERS
$ MASK
1COPY THE R4 AND
sPOINTERS

sDRIVE UNDER TEST
sNO

;CHECK IF DRIVE THERE
sSTALL

sMAIT FOR DRIVE TO BECOME ‘'READY’
sAFTER THE HEADS HOME COMMAND

1MSG.

“DRIVE NOT READY"

+GO GET BAD SECTYORS

1SEE IF WRITE IN PROGRESS FLAG SET
JUMP IF SET

iNEXT DRIVE
1SAVE CURRENT R4 POINTER
1AND SHIFT COPY OF R1 POINTER
1DONE?
iNO GO FOR NEXT ONE

sHERE WHEN ALL FINISHED WITH THE WRITE INIT CODE

OO#

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19 -DEC-83 09:48

PAGE

Ce)

36-32

SEQ 007

PROGRAM MAIN LOOP

2971

2972 014670
2973 014674
014674
014700

014704
014710
014712
014714
2974 014720
014720
014724

22;;2

2977 014726

2978 014732
2979 014736
2980 014742
2981 014746
2982 014750
2983 014752
2964 014754
2985 014756
2986 014760

2987 014764

2989 014766

014766

005037

002274

012746
012746

004360
007463

012746
010600
104417
062706

000002

012700
104441

000000

004537

024454

MAIN:

105737

002252

2s:

000137

030354

130137

002252

000000

001747
010137

002250

2997
2998

€0,RO
C$SPRI

, .,

;CLEAR THE WRITE INIT FLAG
sMSG.

"TESTING STARTED"

1PRIORITY TO O TO ALLOW BOTH

+/CLOCK AND DRIVE INTERRUPTS

RS ,RAND

sGET A DRIVE?2(LUN)

TST8

DRUT

sANY DRIVES ON LINE

BNE

LONUM, R2
SYSMSK ,R2
#1,R1
R2
24
R1
R2
1
S

170.,NODRIV

CSERSF

LMORD
.MORD

170
NODRIV

ENDOF PROGRAM

. WORD

S$:

02,-(SP)
SP,RO
CSPNTF
06 ,5P

JSR

TRAP

2991 014776

2994 015006
2995 015010

ERRSF

000252
004016

2993 015002

SETPRI

MOV
PEROTH: BIC
MOV
18:
ST
8EQ
ASL
DEC
BR

104454

WRINIT

OFMT14,0MSTART
MMSTART, -(SP)
OFMT14,-(SP)

MOV
TRAP

013702 002262
043702 002256
012701 000001
005702
001403
006301
005302
000773
001006

CLR

PRINTF
MOV
MOV

MOV
MOV
TRAP
ADD

000006

014770
014772

2990 014774

12%:

B8IT8

8EQ
MOV

sGET THE SELECTED DRIVE (LUN)
sMASK TO DRIVES ON SYSTEM
sLET'S SEE IF DRIVE IS THERE
JHAVE WE GOT PROPER MASK YET
.vzs. GO T0 2%
SHIFT FOR NEXT DRIVE
éa:mn DRIVE NMUMBER
1GO CHECK NEW DRIVE NUMBER
1 YES, CHECK
sNO DRIVES

R1,DRUT

MAIN
R1, TSTDRY

.xs THIS DRIVE PRESENT?

GO BACK TRY AGAIN
.covv UNIT UNDER TEST FOR LATER CHECK

JME NOM MAVE A DRIVE, CHECX TO SEE IF ITS CONTROLLER
;IS FREE BEFORE ME GO ANY FURTHER

3000 015014 023737
3001 015022 002403
3002 015024 005037
gggg
3005 015030

002406

0.5030

104424

3007 015032
3008 015036
3009 015042
3010 015046
3011 015050
3012 015052
3013 015056
3014 015060

012704
013702
043702
005702
001404
062704
005302
000772

030362
002262
002256

010610

cHe
BLY
CLR

002406

DORPT

000126

68:
3¢

INTERVAL
. TYINT
6
INTERVAL

TRAP

CSDRPT

MOV
MOV
8IC
ST
BEQ
ADD
DEC
BR

SORBUF , R4
LONUM, R2
SYSMSK ,R2
R2
4
#PRPOS +2,R4
R2
3¢

;TIME FOR STATISTICAL REPORT?
:NO, PERFORM FUNCTION
;CLEAR INTERVAL TO INITIALIZE TIME INTERVAL
s 7BEFORE THE NEXT STATISTICAL REPORT

sPRINT STATISTICAL REPORT
:GET START OF DRIVE BUFFERS
;GET RANDOM DRIVE BACK (LUN)
tMASK TO SYSTEM SYS
100 WE MAVE BUFFER FOR THAT DRIVE
1YES, GO CHMECK ITS CONTROLLER
tNO, UPDATE FOR NEXT BUFFER
;00MN COUNT DRIVE NUMBER (LUN)
:GO BACK AND CHECK FOR FOUND

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

Dr)

36-33
SeQ

PROGRAM MAIN LOOP
3015 015062
3016 015070
015072
015100

032774

001716
032774
001312

000200

000104

000100

000104

BIT
BEQ
BIT
BNE

oBIT7,80CS(R4)

IS&TRQ.LER ASSOCIATED WITH DRIVE

oB176,80CS(R4)

s INTERRUPT BEEN SERVICED?
iNO - WAIT FOR THE INTERRUPT

MAIN

[

;WE CAN NOW PROCEED IN GETTING A FUNCTION AND RELATED DATA
R4 HAS DRIVE BUFFER POINTER
1FOR THE DRIVE RANDOMLY.

010600

003322

002246

000014

010644

003365

002246

000074

010670

003407

002246

000016

9s:

10¢:

110%:

o060
003344

BLO
MOV

002246
010650

76:

003432
023450
014726

11¢:

3% 30YBICIZIBICIRALTS

000012

TST
BEQ

TAGX
:

010640

T.DRP

3%0 ON ERROR LIMITS REACHED?

ERRCN. T(R4),ERLMT

sHARD REACHED?

WHY
SERLMTM,
114
SFTCNT(R4),SFLMT
104
:.;::EHSG.WY

1SOFT REACHED?

GETFNC

’

DATCER(R4),7.0CO
110¢
3(.:0156.&"

SKECNT(R4),R1

TRERR(R4),R1
;%.SELHY
osen.u‘MY, WY

DERCNT(R4) ,DRLMT
GETFNC
G
, WHY
ODERMS

;:DRIVE ERROR REACHED?
iNO - TIME TO DO SOMETHING

RS, DRDRYV

sDROP THIS DRIVE:!:!!
GO GET ANOTHER

MAIN

015322
015326
015332

GETFNC:

187
BEQ

T7.STA
984

-o“g WE WISH TO DROP ON OPR LIMITS

SSEpspRERReRsas

sMERE TO GET A 'STRING' FUNCTION - LIST OF COMMANDS TO ISSUE

sPAST THE SEEX LIMIT??

003611
023450
014726

SKLMT
),(R4
SKCNT
984
RXFR3(R4),R0O
WXFR3(R4),RO
RO, DALMY
984
T
, WY
OSOPLM
RS ,DRDRY
MAIN

024454

RS, RAND

002262
177770

LONUM,R2

1GET A RANDOM FUNCTION INDEX NUMBER
10 € 7 ARE NOT LEGIT

8s:

010646

000000

000060
000062
010604

010606

8LO

#177770,R2
64

i1ND,

THEN GO TEST

lfi* READ COUNT

1ADD IN WRITE COUNT
sLIMIT REACHED??
iNO, THEN GO TEST
1OROP THE ORIVE
1GO FOR ANOTHER DRIVE

0065

E¢
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-34

SEQ 0069

MAIN LOOP

005202
022702
001001
005302
006302
000172

6%:

022566

1SHIFT LEFT (X2)

1GO TO FUNCTION ROUTINE

i SKWRT -- ISSUE:
SEEK TO A CYLINDER
:
WRITE DATA
i
WRITE CHECK
P

STARS

110808000088 000400880880804880008002820008088880008845084888858084088008

004537
004537
004537
004537
004537
004537
000137

015716
015470
016360
015470
015654
015470
014726

SKWRT:

JSR
JSR

JSR

JSR
JP

RS, SKFNC
R3, 0PROK

sRANDOM SEEK LOAD
sWAIT TILL DONE
tWRITE DATA LOAD

RS ,WRTCKF

sWRITE CHECK LOAD

RS, WRTFNC
RS, OPROK
RS, OPROK
MAI

sGET NEXT COMMAND

STARS

015410

11900000000080408000000800080080000000000000880088048804688880088808888

$SKRD -- ISSUE:
RANDOM SEEK TO A CYLINDER
;
READ DATA
3

STARS

015410

015410
015414
015420
01542¢
015430

SLIST(R2)

IS IT 72
1IF 7, MAKE 6

1100888880088 8008004808000084808000008800008000000080080000000008

015354
015354
015360
015364
015370
015374
015400
015404

JMP

R2
97 ,R2
54
R2
R2

STARS

015354

3085

S5¢:

INC
CMP
BNE
DEC
ASL

|.‘.0.“‘...‘.‘..“‘..‘.....‘“0‘.‘.0‘..‘.‘0.“.‘.“.0..‘.....‘0.

004537
004537
004537
004537
000137

015716
015470
016430
015470
014726

SKRD:

JSR

38%%

015334
015336
015342
015344
015346
015350

RS, SKFNC

:LOAD SEEK

RS ,RDDFNC

1LOAD READ DATA CMD

RS, OPROK

RAIN

sGET THE NEXT COMMAND

STARS

015434

1506868000000000800008080080006000000000000008808400000000850808800

$SKRDRD -- ROUTINE TO DO:
SEEK TO A CYLINDER
:
'

015434
015434
015440
015444
015450
015454

015460
015464
015470

READ (AND COMPARE DATA)
READ (AGAIN)

'|.‘.‘.‘..‘.‘.“...“‘..“.....““..‘..“....“.‘.‘.....‘.‘.““

004537
004537
004537
004537
004537
004537
000137

015716
015470

016430
015470
016430
015470
014726

SKRDRD: JSR
JSR
JSR
JSR
JSR
JSR
P
STARS

RS, SKFNC
RS, OPROK
RS, RDDFNC
RS, OPROK
RS . RDDFNC
RS .OPROK
MAIN

;LOAD SEEK
;LOAD READ
;LOAD READ
JEXIT

11008860888 888808004000080000008882000800000000000020002028000000
00

F e
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-35

SEQ 0070

PROGRAM MAIN LOOP

;OPROK -- ROUTINE TO ISSUE THE FUNCTION AND WAIT FOR 'READY'...IF AN

éTARS

3124 015470

3129 015506
3130 015510
3131 015512
3133
3134
3135
3136
3137
3138
3139
35140
3141

015516
015522
015524
015530
015532
015536
015540
015544
015546

JSR
JSR
BITB
BNE
TST
JMP

RS, LDFUNC
RS,WTRDY
TSTORV,DRUT
14
(SP).
MAIN

1 ISSUE THE FUNCTION
sWAIT TILL READY
1ORIVE STILL AVAILABLE?
1YUP - CONTINUE
iNO - FIX THE STACK
1BACK TO THE MAIN LOOP - FORCED EXIT FROM

000036

18:

;g;

gETRV(RQ)

l'fiED TO RETRY FUNCTION?

016472

2s:

000114

3s:

016524
024270
002250

005764
001403
004537
000757
005764
001403

004537
000751

002252

014726

015716

4%:

:
:
i
3

STARS

JSR
BR
RTS

RSEEK(RQ)

RS SKFNC
OPROK
RS

lYES - ISSUE THE FUNCTION AGAIN

sAND DO IV

JSEEK RETRY?

iNO - EXIT NOW

100 A SEEK AGAIN
s ISSUE € EXECUTE THE SEEK
sEXIT

RANDOM SEEK
READ HEADERS
READ DATA W/NO HDR CMP
GET STATUS

|g‘.“.‘0..0‘.“0‘....0.“0‘.“.0“...0‘.0.000‘...0..00‘.0‘.0“..

004537
004537
004537
004537
004537
004537
004537
004537
004537
004537
004537
004537
000137

SKRH :

015716
016524
024270
016346
016524
024270
015634
016524
024270
015676
016524
024270
014726

STARS

3167 015634

STARS

3173 015654

TST

B8EQ

RS, ISSUE

OPROK

1100808088088 800080808800880488000000008000800048004080808480084888888848000

3165 015634

3169 015634
3170 015642
3171 015650

JSR

s THE STRING FUNCTION

STARS

3149 015550

015550
015554
015560
015564
015570
015574
015600
015604
015610
015614
015620
015624
015630

THEN ISSUE THE FUNCTION AGAIN,

OPROK:

004537
004537
133737
001003
005726
000137

3143 015550

3151
3152
3153
3154
3155
3156
3157
3158
3159
3160
3161
3162
3163

11000000000000000000000000000000000000000000000000000000000000000

JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JSR
JP

RS, SKFNC
RS, LOFUNC
RS ,WTRDY
RS, RDHFNC
RS ,LDFUNC
. WTRDY
RS
RS , RDNMC
RS ,LDFUNC
RS,NTRDY
RS,GSTFNC
RS, LOFUNC
RS,WTROY
MAIN

sLOAD SEEX
s ISSUE

1LOAD READ HDRS
1 ISSUE
sLOAD READ W/NO HDRS
1 ISSUE
;LOAD GET STATUS

s ISSUE

1GET THE NEXT COMMAND

110008800800888088008800488848880080000008800880008080080088000080800200

sREAD DATA W/NO HDR COMPARE

15000848880 0000850088888848000088800080280000080080280000000000000020

012764
012764
000137

177600

000016
016472

000042

RONMC :

STARS

338

3126 015470
3127 015474
5128 015500

ERROR RETRY IS NEEDED

¢-128. ,.BMP(R4)
016 ,FUNC(R4)
ISSUE

;SET FOR A 1 SECTOR READ

1LOAD THE COMMAND
+PROCESS IV

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-36

SEQ 0071

PROGRAM MAIN LOOP
11000800000 0080000000000000000000000000000400000000000ttttststts

iWRTCKF
STARS

3174
3175 015654

3176

3177 015654
3178 015660
3179 015662
3180
3181 015664

3182 015672
3183
3184
3185 015676

015676
015704
015712

005737
001401

010652

012764
000137

000002
016472

WRTCKF: TST

000044

T.ROF

sREAD ONLY SET?

BEQ
RTS

1%
RS

18:

MOV
JMP

OWRCHIK ,FUNC(R4) ;SAVE CMD
ISSUE
1+PROCESS IT

smgL

ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK

itNO - DO THE WRITE-CHECK FUNCTION
$YES - EXIT NOW

1100080000000 8000000000000000080040400000480050000048008840088004

é{TiETsSTAYUS FUNCTION

1100088028 888000082888048080084808800480458800808484800808888888484408s

012764
012764
000137

000003
016472

000040

GSTFNC: MOV

MOV
N

015716

STARS

3194
3195 015716

STARS

OGSTAT ,FUNC(R4) ;LOAD GET STATUS

OGSBIT,BDA(R4)
ISSUE

;;SET GSBIT IN COMMAND WORD
sGO ISSUE FUNCTION

11000000000000000000000040000800000000000000000008000000000000000

1 SEEK FUNCTION

1198888808880 8008008288042040000800804888408508888888348008408088088080848

3196
3197
3198

3199
3200
3201 015716
3202 015722
3203 015724
3204 015730
3205 015732
3206 015736
3207 015742
3208 015746
3209 015752
3210 015754
3211 015760
3212 015764
3213 015770
3214 015774
3215
3216 015776
3217 016004
3218 016006
3219 016012
3220 016016
3221 016020
3222 016022
3223 016026
3224 016030

WRITE CHECK FUNCTION

1180000000000 0000040000000000000000080000000000008000000000000000

3186
3187 015676

3188
3189
3190
3191
3192
3193

sME WILL CALL "RAND” FOR A NEW DISK ADDRESS TO SEEK
ANY TRACK BUT LAST IS LEGAL. WE WILL ALSO INCREMENT
:70.
1 ITS SEEK COUNT

SKFNC:

000114

TST
BNE

RSEEX(R4)
104

1 TRYING TO RECOVER
:YES - DO IT

10%:

BEQ
MOV

98¢
LSTHOR(R4),R1

NO
- NORMAL SEEK REQUIRED
;YES SET UP FOR RESEEX

98¢ :

8IC
BR
JSR
MOV
BIC

000036

000100
000100

002272
000124

cHP

000120

001007
001003

9808:

100000
077700

177700

MOV
8IC

981s:
9824:

RETRY(R4)

PRPOS(R4),R2
#100,R1
#100,R2
44
RS ,RAND
LONUM, R2
SMSK ,R2

R2.PRPOS(R4)

.ltcovav FROM A ‘DRIVE’' ERROR?

170 CYLINDER
sHEAD SET IN LATER

[
1SKIP RANDOM PART
1GET A RANDOM NUMBER
1GET THE RANDOM NUMBER
1LEAVE CYL AND HEAD

1ON THAT TRACK ALREADY

BEQ

98¢

1 YES - RESELECY

O
BNE
8IC
cMP
BNE
BR
CwP
BNE

#1,TDR(R4)
9814
#BIT15,R2
#077700,R2
964
9824
#177700,R2
964

1 THIS DRIVE AN RLO1?
iNO - MUST BE AN RLO2
sKILL UPPER BIT OF CYL ADDRESS
+POINTING TO THE BAD SEC FILE?
iNO - PROCEED
1YUP - CORRECT THE POSITION
1RLO2 BAD SECTOR FILE?
iNO - PROCEED

NOP

1 TRAP

e
CNRLKAO RLO1/702 PERF EXER
ROUTINES

042702

000100

016036
016042
016046
016052
3231 016054
3232 016056
3233 016060

010237
004537
005737
001340
005003
010200
042700

002342
027224
002340

3234 016064
3235 016072
3236 016074
3237 016100
3238 016106
3239 016110
3240 016114
3241 016116
3242 016122
3243 016126
3244 016130
3245 016132
3246 016136
3247 016140
3248 016142
3249 016146
32350 016150
3251 016154
3252 016156
3253 016160
3254 016164
3255 016166
3256 016170
3257 016172
3258 016176
3259 016202
3260 016210
3261
3262
3263
3264
3265
3266
3267
3268
3269
3270
3271
3272
3273

023737

001011
013702
022764
001031
042702
000426
042702
023702
103010
005203
020327
001706
006202
062702
000763
023702
101406
005203
020327
001673
006302
000764
016401
042701
022764
001002
042702
016464
010264
050064
023737
001012
005737
001004
042764
000403
052764

PAGE

36-37

SEQ 0072

010630

010626
000001

000120

OHEAD ,R2

1POINT TO HEAD O LAST TRACK

968:

MOV

R2,CHKSEC

;SAVE THE ADDRESS FOR THE BAD SEC FILE CHECK

90%:

BNE
CLR
MOV

984
R3
R2,R0O

;YES - RESELECT THE ADORESS
;COPY ADDRESS - NO SECTOR YET

000012

91%:
93s:

010630

BIC

@177677,R0

954
T.MXC,R2

BNE
BIC
BR

924
#BIT1S,.R2
924

BIC
CM
BHIS
INC
cHe
B8EQ
ASR
ADD
B8R
(WP

uflgs
o

000012

928:
000120

256:

97¢:

:go

tMIN AND MAX CYLINDERS THE SAME

iNO, BRANCH AND STAY IN LIMITS
sMAKE CYLINDER MAX/MIN

iDRIVE = RLO1?

s NO
sFORCE CYL TO PROPER LIMIT
1GO CALCULATE DIFF AND SEEK

sSTRIP OUT M.S. BIT
IS ADDRESS LESS/EQUAL THAN MAX
:YES, CHECK LOW END
:BUMP A TALLY COUNTER
;IF CAN'T FIND ADDRESS IN 10 TIMES THEN RESELECT
sRESELECT
JHALF IT AND CHECK AGAIN
s JUST TO MAKE NON ZERO
1GO BACK AND CHECK AGAIN
;IS MIN GREATER/EQUAL THAN ADDRESS
:YES, CALCULATE DIFF AND SEEK

RS, 010.

;TIME TO RESELECT?

PRPOSCR4).R1
0177.R1

$GET PRESENT DISK POSITION

cwe
BNE
BIC

01, TDRCRA)
254
#BIT15,R2

sRLOL=1
;BRANCH.
. .MUST BE RLO2
JCLEAR THE MIGH BIT FOR RLO2 CYL @

R2,PRPOS(R4
)

INEW HEADER AFTER SEEK

T.MXH, 7. MNH
&8

sMIN AND MAX HEAD SELECT THE SAME
iNO, THEN WE CAN USE BOTH SURFACES

MOV
BIC

MOV

TST

000124

OHEAD,R2
T.MXC.R2
93%
RS
RS, 010.
984
R2
BIT7.R2
954
T.MNC.R2

sLEAVE ONLY HEAD

984
R2
914

cHe
BNE

000124

o1, TDR(R4)

sSEE IF THIS ADDR IN BAD SECTOR FILE
sWAS IT?

B8EQ
ASL
BR

8IS

010624

T.MXC,T.MNC

BNE
MOV

cHP

95s:
9as:

000200

RS,CKBDTK
HDRFND

cMP

100000
000100
010626

JSR
1ST

;YUP - DO IT NOW
:NO, DOUBLE IT
;GO CHECK MAX/MIN AGAIN

PRPOS(R4
) ,LSTHOR(RA)

RO, PRPOS(RA )
T.MXH

1SET IN RANDOM HEAD GOTTEN

sWHICH IS OUR SURFACE FOR USE

BNE
gc

974
1 TOP_SURFACE BRANCH
m PRPOS(R4) |Lw SURFACE ONLY

BIS

uem PRPOS(R4)

;TOP SURFACE ONLY

§18065686060000008080004004800006040004800848804086000088000008008800000

ggggulffi THE DIFFERENCE WORD AND STORE IT IN BDA

3275 016270

3277 016270
3278 016272
3279 016274

177677
010626

BIC

STARS

3274

3276

19-DEC-83 09:48

TO SETUP AND ISSUE GET STATUS € SEEK

016032

3225
3226
3227
3228
3229
3230

MACRO M1200

1168860006680 808008084084000040880800040048000002000888800000808000

160102
103002
005402

SUB

8CC
NEG

R1,R2

1¢
R2

1SUBTRACT PRESENT FROM NEXT

+IF POSITIVE RESULT GO TO 1
tNEG RESULT, NEGATE IT

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-38

SEQ 0072

ROUTINES TO SETUP AND ISSUE GET STATUS & SEEK
016276
016300
016304
0163510
016316
016320
016324
016330
016334
016342

000402
052702
052702
032764
001402
052702

010264

012764
000137

000004
000001
000100
000020
000040
000066
000006
016472

000124

1%:
24:

3%:
000044
.SBTTL.

016346
016354

012764
000137

000010
016472

000044

005737
001021
004537
005737

001404
005237

1GO SET DIRECTION OUT

R2,DIFWD(R4)

1+LOAD DIFFERENCE WORD

@SIGN,R2
oMK, R2
OHEAD ,PRPOS(R4)
38
@SKHS ,R2
R2,BDA(R4)

MOV
JMP

OSEEK,FUNC(R4)
ISSUE

MOV

JMP

;LOAD SEEK

ORDHOR ,FUNC(R4)

ISSUE

;LOAD READ HEADER

ROUTINE TO LOAD WRITE DATA COMMAND

T.ROF

sREAD ONLY

CMRD

1COMPARE DATA ON A READ?

025714

BNE
JSR

RDDFNC
RS, GWCDA

002306

BEQ
INC

14
REGEN

TST

010612

+DIRECTION OUT, MARKER
+MARKER BIT
;WHICH SURFACE SELECTED?
1 TOP, THEN 3%
1BOTTOM SET HEAD BIT
sMOVE DIFFERENCE WORD TO DA

ROUTINE TO LOAD READ HEADER AND ISSUE IT

WRTFNC: TST

010652

2¢

BIS
BIS
BIT
BEQ
8IS
MOV

RDHFNC: MOV

.SBTTL
016360
016364
016366
016372
016376
016400

s YES
1GET WORD COUNT,DA

sNO - SO DON'T GEN A WRITE BUFFER
s:YES - SET THE GENERATE DATA FLAG

:lfi NOW HAVE SECTOR AND WORD COUNT, LET’'S WRITE BUFFER IN MEMORY
17O WRITE OUT TO DISK

;FORMAT :
;
s
;

WORD 1 - @ OF WORDS IN SECTOR
WORD 2 - ADDRESS OF PATTERN WRITTEN ON SECTOR
WORD 3 - 127

DATA PATTERN

016404
016410
016416
016424

004537
012764
012764
000137

000044

000122

RS, WRBUF
OURITE ,FUNC(R4)
01 ,WRIPG(R4)
ISSUE

sWRITE BUFFER INTO MEMORY
;LOAD MWRITE
1SET _THE WRITE IN PROGRESS FLAG
1GO ISSUE FUNCTION

1%:

JSR
MOV

.SBTTL

ROUTINE TO LOAD READ DATA COMMAND

s THIS ROUTINE WILL FIRST CLEAR OUT THE BUFFER AREA,
sSELECT A RANDOM NUMBER OF WORDS TO READ AND A
OR CYLINDER TO READ FROM
ON THE PRESENT
sRANDOM SECT
016430
016434

016442
016446
016452
016454
016456

016460
016466

004537
005737
001407

025714
010612

017401
005021

000110

001375
012764
000137

000014
016472

RDDFNC: JSR

18:

000044 2:
.SBTTL

BEQ
MOV
MOV
CLR
INC
BNE
MOV
P

asimn

tGET WORD COUNT, DA

24
BMP(R4),R2
SBBACR4 ),R1
(R1)»
R2
14
SREAD,FUNCCR4)

iNO - SO SKIP THE CLEAR BUFFER CODE
;CLEAR OUT BUFFER AREA
1SO WE KNOW READ

ISSUE

:GOING TO COMPARE DATA AFTER READING?

1 WORKED!!

;LOAD READ

SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING

sME COME HERE BEFORE ISSUING ANY FUNCTION SO THAT ON INTERRUPT

CNRLKAO RLO1/702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-39

SEQ 0074

SETUP CONTROLLER AND DRIVE INFO FOR INTERRUPT PROCESSING

33%7
3338
3339

:WE CAN PROPERLY PROCESS THE INTERRUPT,
WE WILL CHECK WHICH
;CONTROLLER WE ARE WORKING WITH AND STORE OFF THE DRIVE BUFFER
sPOINTER IN ITS “LSTDR"

3342 016472

026437

000104

3344 016502

010437

002324

3346 016510

010437

002326

g;:g 016522

000205

3343 016500

001003

3345 016506 000402
3347 016514

052764

000100

002320

000044

3350

ISSUE:

1¢:

2%:

CMP

DCS(R4),CNTLR1

;DRIVE ON CONTROLLER 17?7

MOV

R4 ,LSTDR1

1PUT BUFFER POINTER IN 1

MOV

R4 ,LSTDR2

BNE

B8R

BIS

RTS

1SKIP OVER NEXT INSTRUCTION
1PUT BUFFER POINTER IN 2

OINTEN,FUNC(R4) ;ALLOW INTERRUPTS

sEXIT

STARS

3 ;....““.“.“‘..“.“.‘.““““““.“““.“.‘.0“““‘0t‘.‘

3352

iCALL

3353
3354

JSR

RS, LDFUNC

sALL INFORMATION MUST BE SET UP IN DRIVE BUFFER
;R4 HAS POINTER TO BUFFER

3355 016524

STARS

3356

LDFUNC: MOV
BIT
BNE

3 ;..“..".“.“.“.‘.‘..“‘.‘..“.““.“‘““‘.“‘..‘...‘.“0‘.

3357 016524 016403 000104
3358 016530 032713 000200
3359 016534 001004
016536

iNO, ASSUME ON CONTROLLER 2

.SBTTL ROUTINE TO LOAD FUNCTION

3351 016524

3361 016536

104454

DCSCR4),R3
#8IT7,(R3)
14

;GET CSR FOR DRIVE
sCAN WE ISSUE COMMAND?
:YES, GO ISSUE COMMAND

ERRSF

200.,PRGER

;THIS ERROR SHOULD NEVER PRINT

LMORD
'WORD

200
PRGER

TRAP

CSERSF

016540
016542

000310
002732

3363 016546
3364 016554
3365 016562
3366 016570

017463
016463
016463
016464

000110
000040
000042
000044

000002 18:
000004
000006
000046

MOV
MOV
MOV
MOV

SBBACRS um ;LOAD BUS ADDRESS REGISTER
BDACRS),DACRS) ;LOAD DISK ADDRESS REGISTER
BMP(RE) mus)
&ono MU TI-PURPOSE REGISTER
FUNCCRS)
sGET FUNCTION

3368 016604

052764

000201

000046

8IS

SCRDY !DRDY ,BCSADR(RS
)

3371 016626

042763

000200

000000

8IC

#CROY, CS(RS)

362 016544

000000

. WORD

3367 016576 056464 000106 000046

8IS

3369 016612 042764 002000 000046
3370 016620 016463 000046 000000

8IC
MOV

gg;g 016634 000205

RTS

g;;;

.SBTTL

3376

oasa.(ui..csm(m>

1SET DRIVE SELECT BITS

#0PI ,BCSADR(R4)
MCN) CS(RS3)

ME'RE CLEAR BIT 10 FOR DRIVE 7-4 (OKAY?2)
;LOAD CSR

JEXIT

1SET CRDY:DRDY IN IMAGE

sISSUE FUNCTION

INTERRUPT SERVICE ROUTINES

;CLOCK INTERRUPT MANDLER

3377

;UPDATES TIME EVERY 1/60 SECOND (60 MZ) OR EVERY 1/50 SECOND (S0 MZ)

3378 016636

3379 016636 010446
3380
3381
3382 016640 022737 000001 002314
3383 016646 001004
3384 016650

042737

000100

172540

3386 016656
3387 016660

000403
042737

000100

177546

3385

BGNSRV

UPDATE

MOV
1SAVE R4
;CLEAR
CLOCK
maimem
70
INMIBIT CLOCK INTERRUPTS DURING UPDATING
;OF TIME FIELDS
e
01,CLKTYP
+P-CLOCK?
BNE
14
JBRANCH IF NOT P-CLOCK
BIC

9100,80172540

;1DISABLE P-CLOCK INTERRUPT FACILITY

BR
8IC

28
9100,80177546

1DISABLE L-CLOCK INTERRUPT FACILITY

sUPDATE TIME FIELDS
1%:

<6
CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-40

SEG 0075

INTERRUPT SERVICE ROUTINES

3388 016666
3389 016672
3390 016674
3391 016702
3392 016704
3393 016710
3394 016712
3395 016714
3396 016716
3397 016722
3398 016724
3399 016726

3400 016730
3401 016732
3402 016736
3403 016740
3404
3405 016744
3406 016746
3407 016750
3408 016752
3409 016756
3410 016760
3411 016762
3412 016764
3413 016766
3414 016772

012704
005214
023727
001005
021427
001026
005014
000404
021427
001021

002410
2:
002312 000002
000062
000074

3418 017006

005014
005724

005014

3422 017026

052737

3423 017034 012604
3424 017036
017036
ks 017036 000002
3426

INC
cHe
BNE
INC

(R4)
(R4),060.
EXIT2
INTERVAL

TST
INC
e
BNE
CLR
ST
INC
EXIT2: DEC
8GT

(R&).
(R4)
(R4 ),060.
EXIT2
(R&)
(R&)+
(R&)
CLKBFR
S

s INCREMENT “SECOND” TIME FIELD
1C(R4))=60?
+IF NOT,UPDATING IS COMPLETE
s INCREMENT INTERVAL TIME FIELD (STORES
s /RUNNING TIME BETWEEN STATISTICAL REPORTS)
1ELSE, (CR4))=0 (RESET COUNT)
sACCESS “MINUTE” TIME FIELD
s INCREMENT “MINUTE” TIME FIELD
1((R4))=607?
+IF NOT,UPDATING IS COMPLETE
1ELSE,((R4))=0 (RESET COUNT)
;ACCESS “HOUR” TIME FIELD
s INCREMENT “MOUR” TIME FIELD
sCOUNT CLOCK TICKS
;TIME NOT EXPIRED

CLR
TST

CLR

005724
005214
021427 000074
001003
005014
005724
005214
005337 002510
003005

3419 017014 001004
3420 017016 052737
3421 017024 000403

JINITIALIZE TICK ADDRESS
s INCREMENT TICK TIME FIELD
150 HZ CLOCK?
iNO- -BRANCH FOR SERVICING 60 HZ CLOCK
1((R8))=50?
+IF NOT,UPDATING IS COMPLETE
1ELSE,((R4))=0 (RESET COUNT)
sBRANCH TO UPDATE “SECOND” TIME FIELD
1((R4))=607?
+IF NOT,UPDATING IS COMPLETE

as:

005214
021427 000074
001013
005237 002406

022737

oTICK,R4
(R4)
CLKFRQ, 62
33
(R4),050.
EXIT2
(R4)
"
(R4),060.
EXIT2

38:

3415 016774 005237 002512
3416 017000 013737 002506 002510

3417

MOV
INC
cMP
BNE
cHP
BNE
CLR
BR
cHP
BNE

000001

002314

000100

172540

000100

177546

INC
MOV

(R4)
(R&)+

(R4)

cuw:c

68:

BNE
8IS
8R

8IS

78:
MOV
ENDSRV
L10025:
RTI

01,CLKTYP

1P -CLOCK?

0100,90177546

;SET L-CLOCK INTERRUPT ENABLE BIT

64
#100,80172540
7

(SP)+,R4

3432 017044

ENDSRV

3433

017044

3333 017046
3436
3437
3438
3439
3440

000002

;BRANCH IF NOT P-CLOCK
;SET P-CLOCK INTERRUPT ENABLE BIT
JEXIT

;RESTORE R4

;L-CLOCK “TICK” CHECK ROUTINE FOR LSI-11

BGNSRV CLKTIK
INC
CLKFLD

017044

;BUMP ELAPSED TIME
JRE-INITIALIZE TIME INCREMENT

sRE-ENABLE CLOCKnateaiwr FACILITY

S§:

zgz 017040
3429 017040 005237 002514
zgg

CLKBFR

+ELSE,(CR4))=0 (RESET COUNT)
;(R8)=(R4)+2 (GO TO NEXT TIME FIELD)

L10026:

s INCREMENT CLOCK FIELD TO INDICATE THAT
1 /CLOCK IS “TICKING*

RTI

BGNSRV INTR1
;ON INTERRUPT WE CMECK FOR ERRORS FIRST, IF NO ERRORS WE
;CHECK FUNCTION PERFORMED. WE ACT ACCORDING IF FUNCTION IS:
s 1WRITE CHECK - NOTHING IF NO ERROR
s 2GET STATUS - READ AND CHECK DRIVE STATUS
s 3-

SEEK - NOTHING RTI;

SET RD HOR AS NEXT COMMAND

L6
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-41

SEQ 0076

INTERRUPT SERVICE ROUTINES

3441
3442
34453
2444
3445

;
i
s
:

3448

:IF RETRY = O, THEN NOTHING

3446
3447

3450

:ON ERRORS - IF DRIVE ERROR - UNDER NON-INTERRUPT

3451
3453

:
:

3454
3455

:
:

3457

3458
3459
3460
3461
3463
3464
3465

:
:
:
:
B
:
:
:

3466
3467

3469 017046
3470 017050
3471 017054
3472 017056
3473 017060
3474 017064
3475 017070
3476 017074
3477 017100
3478 017104
3479 017110
3480 017114
3481 017120
3482 017124
3483 017130
3484 017134
3485 017140
3486 017144
3487 017146
3488 017150
3489 017152
3490 017154
3491 017160
3492 017164
3493 017172
3494 017200
3495 017206
3496 017214
3497 017222

RDHDR - COMPARE HEADER TO PRESENT POSITION
WRITE - UPDATE XFER COUNT, EXIT
READ - COMPARE DATA IF REQUESTED, UPDATE XFER COUNT, EXIT
READ W/NO HDR COMPARE - UPDATE XFER COUNT, EXIT

sALL SUCCESSFUL EXITS FROM INTERRUPT ROUTINE TEST RETRY
;LIMIT IF RETRY IS LESS THEN LIMIT THEN LOG SOFT ERROR, CLEAR RETRY

3468

4567-

3
3

010446
013704
000403
010446
013704
013746
013746
013746
013746
013746
013746
013746
013746
013746
013746
013746
013746
010346
010246
010146
010046
005064
016403
016337
016337
016337
016337
016337
016337

GET STATUS - INVESTIGATE ERROR TYPE
DRIVE RESET - IF ERROR OCCURS AGAIN - FATAL ERROR

IF NO ERROR, EXIT
DRIVE ERROR IS LOGGED UNDER ALL CIRCUMSTANCES

IF DCRC, HMCRC, MNF CHECK BAD SECTOR LIST, IF IN LIST
IGNORE ERROR EXIT AS NORMAL, IF NOT IN LIST
INCREMENT RETRY; IF RETRY LIMIT EXCEEDED
LOG HARD ERROR, ELSE RETRY FUNCTION
IF OPI,NXM INCREMENT RETRY CHECK RETRY LIMIT
IF RETRY EXCEEDED LOG HARD ERROR EXIT
IF RETRY NOT EXCEEDED RETRY FUNCTION

MOV
MOV
B8R
INTR2: MOV
002326
MOV
002420
SAVE:
MOV
002422
MOV
002424
MOV
002426
MOV
002430
MOV
002432
MOV
002342
MOV
002340
MOV
002350
MOV
002246
MOV
002474
MOV
002476
MOV
MOV
MOV
MOV
MOV
000122
CLR
000104
MOV
000000 002420
MOV
000002 002422
MOV
000004 002424
MOV
000006 002426
MOV
000006 002430
MOV
000006 002432
MOV

002324

INTR1:

DO:
00:

R4, -(SP)
LSTOR1.R4
SA
R4, -(SP)
LSTOR2,Re
E.CS,-(SP)
€.BA,-(SP)
E.DA,-(SP)
E.MP, -(SP)
E.MP1,-(SP)
E.MP2, -(SP)
CHKSEC,
- (SP)
HDRFND
. -(SP)
TEWPL, -(SP)
WHY, -(SP)
OPCALL
, -(5P)
INCALL
, -(SP)
RS, -(SP)
R2, -(SP)
R1.-(SP)
RO, -(SP)
WRIPG(RA)
DCSCR4),R3
CSCR3),E.CS
BACR3).E.BA
DACR3).E.DA
MP(R3),E.MP
MP(R3).E.MP1
MP(R3).E.MP2

;SAVE PRESENT R4 VALUE
;GET THE DRIVE BUFFER OF INTERRUPTING DRIVE
;GO SAVE RO-R3
sSAVE PRESENT R4 VALUE
;GET THE DRIVE BUFFER OF INTERRUPTING DRIVE

;SAVE R3S
IR2
sR1
1RO
JCLEAR THE WRITE IN PROGRESS FLAG
1GET CSR FOR INTERRUPT
1SAVE ALL REGISTERS NOW!!

M6
CNRLKAQO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-42

SEQ 0077

INTERRUPT SERVICE ROUTINES
3498 017230
3499 017234
017236

005737
100402
000137

TST
BMI
JMP

002420

020362

.SBTTL

E.CS
14

CHIKFNC

s ANY ERRORS?
:YES, GO SOLVE ERROR MYSTERY

s1NO, GO SEE IF WE HAVE TO DO ANYTHING

CONTROLLER ERROR CHECK ROUTINE

;WE HAVE SOME SORT OF ERROR LET'S FIND OUT WHICH ONE
:IT IS.
017242
017250
017256
017260
017264
017272
017274
017300

017304
017310

017312
017316
017316
017320
017322
017324

013764
032737
001402
000137
032737
001017

004537
042701
020127

001410

002424
040000

002420

021350
000001

002420

2%:

024362
000100
000034

MOV

E.DA,LSTDACR4)

JMP

CKDERR

BNE
JSR

234
RS,GETDST

CHP
BEQ

R1,034
23¢

sSAVE DA FOR SOFT ERROR PRINT
+DRIVE ERROR?
iNO, CONTINUE
:YES, GO CHECK DRIVE ERROR
;DRIVE READY THERE
s YES, CONTINUE CHECKING
sNO,GET DRIVE STATUS
3GET RID OF HEAD
sALLOW ONLY SEEK TRACKING STATE
1WAS 34 SKIP ERROR

INC

ERRCNT(R4)

s INDICATE HARD ERROR

TRAP

CSERDF

.WORD

NORDY

BIT
BEQ
BIT

8IC

000012

ERRDF

104455
00175¢
002704

.WORD

.MORD

017326

000137

017332
017340
017342
017350
017354

032737
001407
012764

004346

000137

017766

017360
017366

032737
001020

014000

017370
017376

032737
001006

017400
017400
017402
017404
017406
3536 017410
017410
3537 017412
3538
3539 017414
3540 017422
3541 017426
3542
3543
3544
3545

1$:

000557

1000

ERR9

sNON-EXISTENT MEMORY?
iNO, KEEP CHECKING
MMTNXM, RTYPE(RE)
;:ERROR MESSAGE
NXMCNT(R4)
:LOG ERROR
111%
;CHECK RETRY, EXIT BACK

3s:

;QUALIFING BITS SET?
#BIT12!8IT11,.E.C S
S¢
sYES, CAN'T BE OPI ALONE

33¢:

004341
000030

1000.,NORDY,ERR9

;O.GH.E .CS

104454

012764

€100,R1

23%:

002420

104422
000776

®DRDY,E.CS

EXIT1

021204

003007
005070

ODERR,E.CS
24

44:

.MORD
.WORD
BREAK

TRAP
BR
MOV

INC
BR

#0PI .E.CS
a4

;OPI SET?
;YES, CONTINUE

10. ,UDERR ,ERR1

tWE HAVE AN UNDIAGNOSABLE CONDITION. ONLY COMPOSITE SET

COERSF
10
UDERR
ERR1

C#BRK
33¢
OMTOPI ,RTYPE(R4);SET UP FOR “OPI" PRINT

OPICNT(R4)
111¢

:LOG ERROR
1CHECK RETRY EXIT BACK

JME KNOW IT'S NOW EITHER DLT, DCRC,.HNF, OR HCRC
sCHECK FOR EACH

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-43

SEQ 0078

CONTROLLER ERROR CHECK ROUTINE
3546
3547
3548
3549
3550
3551
3552

017430
017436

032737
001060

002000

002420

5S¢:

BIT

BNE

;OPI QUALIFIER SET?

tYES,

THEN IT'S HCRC OR HNF

:IT'S NOW DOWN TO DiLT OR DCRC

017440
017446
3553 017450
3554 017456
gggz 017462

032737
001406
012764
005264
000541

010000

002420

BIT

004334

000052

MOV
INC
BR

3557 017464
3558 017472
3559 017476
3560 017502
3561 017506
3562 017512
3563 017514
3564 017520
3565 017526
3566 017534
5567 017536

013737
005364
005337
004537
005737
001117
005264
012764
022764
001001
000513

002424
000064
002342
027146
002340

002342

3569 017540
3570 017544
3571 017546
017546
017552
017556
017562
017564
017566
3572 017572

005737
001510

010636

012746
012746
012746
010600
104417
062706
004537

003265
007463
000002

3574 017576

000473

000026

000022
004327
000102

000052
000044

BEQ

6%:

117¢:

1188:

DLTCNT(R4)
111

;LOG ERROR
1CHECK RETRY, EXIT

JSR

E.DA,CHKSEC
LSTDACR4)
CHKSEC
R5,CKBDSC

$1SET UP SECTOR TO LOOK FOR
sDOWN CUUNT FOR PRINT OUT
;DOWN COUNT FOR LOOP UP
sCHECK BAD SECTOR LIST

BNE
INC
MOV
cHe
BNE
BR

1104
OCRCER(R4)
MCCMT FOR ERROR
OMTDCRC,RTYPE(R4);SET UP FOR "DCRC” PRINT
@INTEN!WRCHK,FUNC(R4)
118¢
111¢

TST
BEQ

T.0CK
1114

MOV
DEC
DEC

PRINTF

MOV
MOV
MOV
MOV

TRAP
ADD

000006
026222

+DATA LATE?
o0LT,E.CS
#NO, MUST BE DATA CRC
6%
MTOLT, RTYPE(R4)|SET UP FOR “DLT“PRINT

HORFND

@FMT14,8DMPDCK

ODMPDCK
, -(SP)
OFMT14, -(SP)
02, -(SP)
RO
CSPNTF
#6,SP

;:DUMP BUFFER?
sNO, EXIT

JSR

RS ,DMPBUF

:DUMP BUFFER

111

$EXIT

sIT'S NOW EITHER HNF OR MCRC.
sIF HCRC AND RDHDR, DETERMINE IF BAD SECTOR BY DOING 40 RDHDRS

+IF HCRC AND R/W, CHECK IF DA IS IN BAD SECTOR FILE
:IF HNF READ HEADER TO VERIFY IF ON CORRECT CYLINDER
m:u:racmctcmmsserroaxsnmsecrm
sIF NOT ON CORRECT CYLINDER REPORT MISSEEK, LOG MISEEK
sAND PRESENT POSITION UPDATE

3584 017600
3585 017606
3586 017610
3587 017614
3588 017620
3589 017624
3590 017630
3591 017634
3592 017640
3593 017644
3594 017646
3595 017650
3596 017654

032737
001470
012701
004537
016402
052702
016403
010263
004537
005301
001424
005763
100757

010000
000051
024376
000106
000010
000104
000000
024270
000000

002420

7%:

B8IT

oHNF E.CS

8s:

JSR
MOV
8IS
MOV
MOV
JSR
DEC
B8EQ
ST
BMI

RS, ISDRST
DRSEL(R4),R2
ORDHDR
, R2
DCS(R4 ),R3
R2,CS(RS)
RS .WTRDY
R1
9
CSCR3)
8t

MOV

1AL

tHEADER NOT FOUND SET?

iNO IT MUST BE HCRC
sALLOW FORTY READ HEADERS TO

sFIND CYLINDER

1READ HEADER

: ISSUE READ HEADER

IWAIT

DOC 40 OF THESE?

lYES. GIVE UP WE DON'T HAVE ALL DAY!
+IS ERROR SET?
+YES, GO DO IT AGAIN

CNRLKAO RLO1/702 PERF EXER

MACKO M1200

19 DEC 83 09:48

PAGE

36 -44

CONTROLLER ERROR CHECK ROUTINE
MP(R3),R1
R1,C.HOR

+GEY HEADER
1SAVE FOR ERROR REPORTING

000006
002434
002272
000124

R1,PRPOS(R4)
10¢

3+ IS CYLINDER HEAD CORRECT?
s YES, GO CHECK BAD SECTOR LIST

005264

000072

TRERR(R4
)
20.,TRACK,ERR2

CSERMRD
20

104456
000024
003305
005076

017720
017720
017722
017724
017726

104456
00003¢&
002773
005070

017730

000410

017732

013737
004537
005737
001401
000577

002424
027224
002340

005264
012764
000573

000032
004314

017766

020700
9s:

ERRMRD

SKRETRY

sFIX TRACKING ERROR

30. ,EXHAUS ,ERR1
CSERMRD
30
EXHAUS

;WE CAN’'T FIND GOOD HEADER ON THIS TRACK

ERR1

BR
002342

108:

1108:

11¢:
111%;

MOV

110¢
E.DA,CHKSEC

R5,CKBDTK
HORFND

INC

HNFERR(RS )

sLOG IV

GOF IN

sEXIT

MOV
B8R

1GO CHECKX BAD SECTOR FILE
sWAS IT THERE

GOERRX

1 YES IGNORE ERROR

118

sNO, LOG IT EXIT

OMTHNF .RTYPE(R4);SET UP FOR “HNF“ PRINT

11T WAS A MEADER CRC ERROR, FIGURE OUT IF IT WAS
10N A READ HEADER OR READ/MRITE

017770

022764

020000
020006
020012
020016
020020

013737
004337
005737
001401
000554

017776

;TRACKING DRIFT ERROR

-1

3333 b
R

000137

017754
017760

1MASK OUT SECTOR BITS

TRACK
ERR2

017714

017740
017744
017750
017752

SMSK,R1

$8e8

016301
010137
043701
020164
001415

3597
3598 017656
3599 017662
017666
3601 017672
3602 017676
3603
017700
017704
017704
017706
017710
017712

001417

112¢6:

000110

027146
002340

005264
012764
000550

004321

017401
012737
012702
056402
016403

000110
000050
000010
000106
000104

002342

124

002350

13s8:
144

OINTEN!ROMDR ,FUNC(R4)

MOV
JSR
ST
BEG
BR

RS, CKBOSC
124
GOERRX
HCRCER(RA)

BEQ

INC
MOV
BR

MOV

MOV
MOV
8IS
MOV

138

£.DA, CMKSEC

;READ HEADER?

1YES, GO FIND OUT MORE ABOUT IT
tNO, IT MUST BE R/M

48AD SECTOR SEARCH
IMAS OUR DA THERE?
INO, MUST BE LEGIT ERROR
LYES, IGNORE ERROR
LOG ERROR

@NTHCRC ,RTYPE(RA)

GOF IN

SBBACRA
(R4),R1

JUSE IT'S BUFFER TO STORE MORS

ORDHOR , R2

{READ HEADER

040, , TEMP1

DRSEL(R4),R2

DCSCRA),R3

140 CONSECUTIVE HEADERS

CNRLKAQ RLOL1/02 PERF EXER

MACRO M1200

19 DEC-8% 09:48

PAGE

3¢-45

CONTROLLFR ERROR CHECK ROUTINE

3667 020154

3669
3670 020160
3671 020164
3672
3673
3674
3675
3676 020166
3677 020172
3678 020176
3679 020202

JSR
MOV
MOV
MOV
MOV
DEC
BNE

016321
016321
005337

001353

R2,CS(R3)
RS,WTRDY

CS(R3),(R1).

MP(R3),(R1).
MP(R3),(R1).
MP(R3),(R1).
TEMPL
144

tWAIT FOR READY
sREAD ALL REGISTERS
K
i

’

;OONE 40 YET?
1NO, GO BACK

;WE HAVE 40 HEADERS NOW LETS SEE IF WE CAN VERIFY WHETHER
CHECK FIRST TO SEE
sOR NOT A BAD SECTOR CAUSED THE ERROR,
:IF WE HAVE ANY BAD SECTORS ON THIS TRACK,

001046

000110

99
:

MOV

@BBA(R4),R2

15s:

BIT
BEQ
BIT

e0PI,(R2)
16¢

000010

16%:

000110

17s:

000110
000010

184:

000017
003667

023450
021204

19¢:

017402
012701
032712
001403
032712
001005
062702
005301
001366
000721

A3 SRRER

£5
388

344

3653 020120
3654
3655
3656
3657
3658
3659 020122
3660 020126
3661 020132
3662 020136
3663 020140
3664 020144
3665 020146

MOV

000000
024270

(2]

3650 020104
3651 020110
3652 020114

010263
004537
016321
016321

020064
020070
020074
020100

22 538 338 338 RIA gaBn8ds

3646
3647
3648
3649

177700

20¢:

040, ,R1

®HCRC, (R2)

;GET BUFFER START
iFORTY HEADERS
sIS OPI SET IN CS
sNO, WELL CAN'T BE HCRC
s INSURE HCRC W/0PI
sFOUND GO SEE IF IT COMPARES

sNEXT CS IMAGE
;DONE 40

R2,8BBA(R4)
218

@BBA(R4),R1

+ IS HEADER FIRST ONE?
iNO, READ PREVIOUS HEADER
sYES, WE'LL HAVE TO GO THRU
1AND CHECK OTHERS BEFORE WE
sCAN SAFELY CALCULATE
s “SUPPOSED” BAD SECTOR

#1,R3
#10,R1

®0PI,(R1)
19¢

OHCRC, (R1)

+DROP DRIVE DUE TO
+MORE THAN 16 BAD SECTORS
1CLEAR THIS CS

s1GET IT'S HEADER ADDRESS
1GET HEADER
1SAVE HEADER

1 MASK

ONLY SECTOR

sBACK UP TO SECTOR WHICH IS BAD
1 IF MINUS DO MAGIC
1NO THEN SUBTRACTY IS LEGAL
1BRANCH TO CHECK FILE
1THIS SUB PRODUCES WRONG ANSHER
FIX IT UP

1GO0 CHECK FILE

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

PAGE

19-DEC-83 09:48

36-46

SEQG 0081

CONTROLLER ERROR CHECK ROUTINE
020302
020304
020310
020312
020314
020316
020322
020326
020330
020334

005012
162702
011201
005201
010102
042701
022701
002402
162702
010237

35716 020350

001664

994

004537
005737

000137

021210

GOERRX: JMP

000137

021312

GOFIN:

.SBTTL

COMMAND SERVICE ROUTINES

22%:

TST

HORFND

ERREX

FINERR

sNOM WE WILL FIND OUT WHICH FUNCTION WE DID TO CAUSE
+ INTERRUPT AND ACT ACCORDINGLY.

3743 020424

000137

052764

CHKFNC: MOV

000040

8IC

ASR

020540
2s:

021066

18:

021152

000001

000056

FUNC(R4),R1

®40,R1

sGET FUNCTION OF DRIVE
tALIGN THE FUNCTION CODE

sWIPE OUT INT. ENAB (SHIFTED)
tWRITE CHECK??

1NO, BRANCH
stFUNCTION #1

005301
001002
000137

000044

016401
006201
042701

005301
001565
005301
001421
005301
001500

3755 020456

BEQ

€177700,R1

000050
002342
027146
002340

3735 020404
3736 020406
3737 020410
3738 020412
37359 020414
3740 020416

3751 020452

#40. ,R1
224
040, ,R2
R2,CHKSEC
RS5,CKBOSC

+CLEAR THIS CS OuT
1GET PREVIOUS HEADER

1GET STATUS?

1BRANCH IF SO...FUNCTION @2
ISER?
tBRANCM IF SO...FUNCTION @3
1ROHOR?

am IF SO...FUNCTION #4
IWRITE?
sND, BRANCH
sFUNCTION o5
1READ?
1BRANCH IF SO...FUNCTION @6
sREAD W/NO HDR COMPARE?
1YES - TREAT AS IF WRITE CHECK
sSHOULD NEVER GET MERE!!!

;

3731 020374
3732 020376
g;;z 020400

cMP
BLTY
SuB
MOV
JSR

o fa

3721
3722
3723
3724
3725
3726
3727
3728 020362
3729 020366
3730 020370

R1
R1,R2

3720

INC
MOV

8IC

177700
000050

(R2)

#6,R2
(R2),

3719 020356

SuB
MOV

DpD

g;i; 020352

CLR

nsn
w

3714 020340
3715 020344

21s:

000006

255s i BRIRIANIRTRER AR

3703
3704
3705
3706
3707
3708
3709
3710
3711
3712
3713

XEXIT:

EXIT

.SBTTL

SEEK INTERRUPT SERVICE

ASEEXK:

B8IS

OSKDON,PRFLGS(R4)

SET SEEK VERIFY NEEDED

CNRLKAO RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

£/

PAGE 36-47

SEQ 00ry

SEEK INTERRUPT SERVICE

3756 020464

005064

000114

005064

000054

CLR

3757 020470 005264 000054
3758 020474 026427 000054 001750
3759 020502 002404
3760 020504 005264 000000
3761 020510

3762 020514

000137

998:

021152

3322

.SBTTL

3766 020520
3767
3768 020526

042764

000001

000056

3771 020540

3772 020544
3773 020546
3774 020552
3775 020560
3776 020562
3777 020566
3778 020574
3779 020602
3780 020604
3781 020610
g;:g 020616

016401

005401
060164
022764
101016
005264
162764
022764
101005
005264
162764
000555

000042

1CLEAR THE RETRY FLAG

SKCNT1(R4)
s INCREMENT COUNT
SKCNT1(R4),01000. ;10(3) REACHED
99¢
INO, EXIT
SKCNT(R4)
{YES, BUMP THOUSANDS

EXIT

CLR

SKCNT1(R4)

READ INTERRUPT SERVICE

AFREAD: BIC
:
SETPRI
SETPRI

MOV
TRAP
JSR

020526 012700 000300
020532 104441
g;gg 020534 004537 023672

RSEEK(R4)

INC
cMP
BLT
INC

AFWRCK: MOV

#SKDON, PRFLGS(R4)
@340
0300

;CLEAR THE SEEK VERIFY FLAG
1JSD REV
:JSD REV

#300,R0
C$SPRI
RS,CKDATA

;CHECK DATA

wuu) R1

;BUMP P XFER COUNT

NEG
ADD
o
8HI
INC
SuB
cHP
8MI
INC
SuB
BR

g;.o;

.SBTTL

READ HEADER INTERRUPT SERVICE

3786 020620 013701 002426
3787 020624 043701 002272
3788 020630 026401 000124
;;:3 020634 001442

ARDMOR: MOV
8IC
P
8EQ

3791 020636

032764

020654
020656
020660

000062
003031
005076

000002

023420

000004
023420 000002
023420 000004
000060
023420 000004

000001

g;g 020644 001407
3794 020646 005264 000016
3795 020652
020652 104456
g% 020662 000406
3798 020664 005264 000072
3799 020670

020670 104456
020672

000067

020676

005076

020674 003305

3801

020700

000002

000056

2¢:

sMAKE POSITIVE
vu RXFRICR4)
;ADD THE BITS
010000, ,RXFR1CR4)
$10(8) REACHED YET
24
INO, EXIT
RXFR2(R4 )
BUMP 10(10)
€10000. ,RXFR1(R4) ;START 10(8) AT ©
#10000. ,RXFR2(R4) ;10(10) REACHED YET
2
yNO, EXIT
RXFR3(R4)
;YES BUMP 65K 10(10)
©10000. ,AXFR2(RE) MAKE 10(10) O
EXIT
JEXIT
E.MP.R1
SMSK, R1
PRPOSCRE),R1
14

1GET MEADER
sMASK OUT SECTOR BITS
;IS HEADER CORRECT?
s YES, CONTINUE

BIT

#SKDON,PRFLGSCRA)

LMORD
"MORD
‘MORD

S0
MSKER
ERR2

TRAP

ebao

"WORD

ERR2

;IS THIS MIS-SEEK OR TRACKING ERROR

BEQ
2s
INC
SKECNT(R4)
ERRMRD
SO, ,MSKER,ERR2
TRAP
CSERMRD

sBRANCH IF TRACKING
sACCOUNT FOR SEEK ERROR

B8R
s
INC
mnR4)
ERRHRO
TRACK,ERR2

sBRANCH AROUND TRACKING #RROR REPORT
sACCOUNT FOR TRACKING ERROR
; TRACKING ERROR

. WORD

- WORD

SKRETRYs

TIIACK

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

F 7

36-48

SEQ 0057

READ HEADER INTERRUPT SERVICE

3803 020700
3804 020704
3805 020712

005264
026437
101405

020714
020716
020720
020722
020724

104456
000515
003523

020726
3811 020732
3812
3813
3814
3815
3816
3817
3818
3819

010164
042764
000504
042764
005064
010164
000474

258

3806
3807 020714

§EEESELR

3821

000114
000114

010660

3s:

000001

000056

000001
000114
000124

000056

18:

AGSTAT:

000100
010652

177400

2s:

177700
000034

333.,SEXHAU,ERR2

333
SEXMAU
ERR2

BIC
CLR

#SKDON,PRFLGS(R4)
RSEEK(R4)

B8R
MOV
8IC
B8R

14
R1,LSTHOR(R4)
;SET UP RETRY
OSKDON,PRFLGSCR4)
;ALLOW SEEK
JEXIT
EXIT
R1,PRPOSCR4)
EXIT

§SET VERIFICATION DONE

jMAKE THIS HEADER PRESENT POSITION
JEXIT

GET STATUS INTERRUPT SERVICE

MOV
8IC
TST
8EQ
8IC
8IT
BEQ
INC

€.MP.R1
#100,R1
T.ROF
24
ol ,R1
#177400,R1
14
ERRCNT(R4)

TRAP

COERMRD

60.,MDSER,ERR4

.MORD
.MORD
.MORD

60
MDSER
ERRA4

MOV
8IC
cH
BEQ
o
8€Q

R1,R2
0177700,R2
#34,R2
exI?
#35,R2
ExI?

021062

70
MDSER
ERR4

021064

B8R

EXIT

.SBTTL
000001
000042

THEN RETRY

CS$ERMRD

.MORD
"WORD
.MORD

042764
016401
005401

:NO,

1GET STATUS
iCLEAR OUT HEAD SELECT
JREAD ONLY
sANY BITS WRONG
iNO, CONTINUE
1STATUS BITS WRONG
)

1COPY STATUS WORD
1GET STATE BITS
:COVER CLSD, MEADS OUT, BRUSMES HOME, SEEK TRACK COUNTING?
s YES, EXIT
1:COVER CLSD, HEADS OUT, BRUSHES MOME, SEEK LINEAR MODE
JVES, EXIT

70, MDSER ERR
ERRHRD
TRAP
CSERMRD

000012

021066
021074
021100

;SET RETRY IN PROGRESS

RSEEK(R4),T.SLT jRETRY EXMAUSTED??277?

.WORD
WORD
WORD

ERRMRD

104456
000074
003116
005312

3838

MOV
B8R

000012

3837

BLOS
TRAP

.SBTTL

3831
3832
3833

RSEEX(R4)

ERRHRD

005076
000406

013701
042701
005737
001402
042701
032701
001406

INC

CMP

000056

WRITE INTERRUPT SERVICE

AWRITE: BIC

MOV
NEG

#SKDON,PRFLGSCRE) ;CLEAR SEEK VERIFY FLAG

BMP(R4),R1
R1

JGET WORD COUNT
JMAKE POSITIVE

CNRLKAO RLO1/02 PERF EXER

WRITE INTERRUPT SERVICE

3848 021102
3349 021106
3850 021114
3851 021116
3852 021122
3853 021130
3854 021136
3855 021140
38% 021144
3858 021152
3859 021156
3860 021160
3861 021166
3862 021170

060164
022764
101016
005264
162764
022764
101005
005264
162764
005764
001414
026427
001406
005264

3864 021176
021174
021176
021200
sogs 021202

104457
000120
003042
005162

MACRO M1200

000006
023420 000006
000010
023420 000006
023420 000010

3868

3871 021216
3872 021220
3873 021222
3874 021224
3875 021226
3876 021232
3877 021236
3878 021242
3879 021246
3880 021252
3881 021256
3882 021262
3883 021266
3884 021272
3885 021276
3886 021302
3887 021306

3888 021310

021310

042774

012600
012601
012602
012603
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012637
012604

021310

000002

3890 021312
3891 021316
3892 021320
3893 021326

004537
000405
013764
000137

”’530’. 021332
3896 021336

021336

021340

005264

104456

000132

000100

ERRSOFT
TRAP
.MORD
WORD
'MORD

80.,MSFER,ERR3
CSERSOFT
80
MSFER
ERRS

;REPORT SOFT ERROR

EXIT1: CLR

RETRY(RA)

CLEAR RETRY

ERREX:

@INTEN,SDCS(R4)

.SBTTL EXIT FOR INTERRUPT SERVICE

000104

L10027:
022546

000012

SEQ 0084

R1,WXFRI(RA)
;ADD THE BITS
210000, ,UXFRICRA) 310(5) YET?
EXIT
INO - EXIT
WXFR2(R4)
{YES BUMP 10(10)
#10000. ,WXFR1CR4) ;10(5) GOES TO ZERO
210000 .WXFR2(R4) 110(10) YET?
EXIT
iNO - EXIT
WXFR3(R4)
JINC 65K (10)(10)
#10000. ,WXFR2(R4) ;MAKE 10(10)
RETRY(R4)
+IN PROCESS OF RETRYING?
ERREX
iNO
RTYPECRA
), OMTDRY
EXIT1
SFTCNT(RA4)
JYES, LOG SOFT ERROR

002476
002474
002246
002350
002340
002342
002432
002430
002426
002424
002422
002420

002420
021210

PAGE 36-49

ADD
cHe
BHI
INC
SuB
cHe
BHI
INC
suB
TST
BEQ
ce
8EQ
INC

000062
023420 000010
000036
EXIT:
000052 004353
000014

3866 021204 005064 000036
3870 021210

19-DEC-83 09:48

000116

BIC

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

ENDSRV

RTI

FINERR: JSR
BR
MOV
JP

18:

(SP)+,RO
(SP)+,.R1
(SP)«,R2
(SP)+,R3
(SP)e,INCALL
(SP)+,0PCALL
(SP)e
, MY
(SP).,TENPL
(SP)+ ,HDRFND
(SP)+ ,CHKSEC
(SP)« ,E.MP2
(SP)+ .E.MP1
(SP)+ .E.WP
(SP)+ ,E.DA
(SP)..E.BA
(SP).,E.CS
(SP)+,Re

INC

RS ,RCNT
1CHECK TO SEE IF WE HAVE EXCEEDED
1s
sRETRY LIMIT, IF SO 18 AND REPORT HARD
€E.CS,SOFTCS(R4)
ERREX
1NOT EXCEEDED EXIT

ERRCNT(R4)

1INDICATE ERROR

ERRHRD

90.,MHDER,ERR13 ;NON-RECOVERABLE ERROR

.WORD

TRAP

CSERMRD

’

H/
CNRLKAO RLO1/702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-50

SEQ 008%

EXIT FOR INTERRUPT SERVICE
021342
021344

3897 021346

3898
3899

3900
3901
3902
3903 021350
3904 021354
3905
3906 021360

021360
021362
021364
021366

.WORD
. WORD
BR

003252
005724
000716

.SBTTL

MHDER

ERR13
EXIT1

DRIVE ERROR INTERRUPT SERVICE

;WE HAVE A DRIVE ERROR, LET'S GET THE STATUS
004537

000020
024362

CKDERR:

INC
JSR

DERCNT(R4)

RS,GETDST

+REPORT DRIVE ERROR
ERRHRD
TRAP

104456

. WORD
. WORD
. WORD

000340
003061

sACCOUNT FOR ERROR
tGET DRIVE STATUS

224 . ,DRVER,ERR9 1DRIVE ERROR
CS$ERHRD
224
DRVER
ERR9

ODD®
DD

144000

024376
024376
024362

20%:

003157

024376

021464
021470
021472

004537
004537
032701
001407
012737

021500
021504
021510
021516

004537
000137
032763
001004

023450

91¢:

000001

10%:

021520
021526

012737
000764

021530
021530
021534
021540
021544
021546
021550

012746
012746
012746
010600
104414
062706

021454
021460

98:

001000

003132

003212
007463

oVC,.R1

101¢:

s VOLUME CHECK?
1YES, GO ISSUE RESET
sSEEK TIME OUT?
s1YES, ISSUE RESET
;WRITE DATA, CURRENT HEAD, SPINDLE?

;GO WAIT FOR HEADS TO UNLOAD
sWRITE GATE ERROR
sYES, ISSUE RESET
s ISSUE RESET
1GO CHECK DRIVE READY
s ISSUE RESET
sRESET WORK?
1WGE CLEAR
:YES GO CHECK DRIVE READY
1REPORT WGE DIDN'T CLR

[]

000431
004537
004537
032701
001422
012737
000412

010000

021426
021432
021436
021442
021444
021452

001153
032701
001003
004537

001000

021404
021410
021412
021416
021420

032701
001027
032701
001070
032701

[ ]

021370
021374
021376
021402

£ A
33338e3 %2 § 3¢ 3B%gg 3 b

sACT ACCORDINGLY TO DRIVE ERROR

;OROP DRIVE

1 ISSUE RESET

sRESET WORK
:VOL CHK CLEAR
1 YES, CHECK DRIVE READY
sDROP THE DRIVE

RS ,DRDRV
EXIT1
®DRDY,CS(R3)
101

:DRIVE READY POSTED?

1 YES, PRINT RECOVERED

SONRDY , WHY

91¢

OMRDER, -(SP)
OFMT14, -(SP)
02, -(SP)
SP,RO
CSPNTB
6,5P

1PRINT DRIVE RECOVERED

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

17
19-DEC-83 09:48 PAGE 36-51

SEQ 0086

DRIVE ERROR INTERRUPT SERVICE
3942 021554
3943 021560

3944 021564
3945 021570
3946
3947 021574

004537
000137
012702
004537

022246
021312
000004

012727
000000
013727
000000
005367

000372

02i612
021616
021620
021624
021626
021632
021634
021640

001375
005367
001367

021650
021656
021660
021662

024376

12%:
138

JSR
JMP
MOV
JSR
WAITMS
MOV
. WORD
MOV

002116

R5,GHOR

tGET THE CURRENT DISK POSITION - HEADER

04 ,R2
R5,ISDRST

1 SEEK TIME OUT
1 ISSUE DRIVE RESET
1FOUR TIMES BEFORE
1DROPPING DRIVE

F INERR

015.

8250..(PC)0
gODLY.(PC)o

177772

-6(PC)

177756

-22(PC)

032763
001006
005302
001342

000001

@DRDY,CS(R3)

3954 021664
3955 021672

012737
000702

003070

3957 021674
3958 021702
3959 021704
021704
021710
021714
021720
021722

032763
001370

021740
021744
021750
021754
021756
021774
022000
022002
022006
022010
022014
022016
022022
3968 022032
3969 022034

3970
3971
3972
3973
3974

022036
022044
022046
022052

022070
022074

sDRIVE READY YET?
s YES, CHECK IF ERROR CLEARED

13¢

sORIVE ERROR SET STILL

1YES, DROP DRIVE

14%;

012746
012746
012746
010600
104414
062706
004537
000137

003212
007463
000002

012702
004537
032701
001434

000004
024362
000020

012727
000000
013727
000000
005367
001373
005367
001367
005302
001343
012737
000615

000372

004537

024376

012727
000000

000372

000006
022246

021152
15%:
164:

002116

177772
177756

003547
17¢:

"Y‘E)'i’ HAVE WE DONE IT FOUR TIMES
1YES, DROP DRIVE

141%:

83 ’§R§!§R§§§§§ Ei -

3963
3964
3965
3966
3967

14%

582 53 3383233858

021724
3960 021730
3961 021734

.-20

(35

3949
3950
3951
3952

-4

sWAIT FOR HEADS TO UNLOAD

8250. LCPC)e

sGET STATUS
sUNLOAD STATE
1 YES, CONTINUE W/ RECOVERY
tWAIT A WHILE

-sgn)

-22(PC)

. ‘m
R2
164
WHY
SUNLO,AD
914

RS, ISORST
.1-

8250..(PC)0

tWAIT LONG ENOUGH

1 ISSUE RESET
:

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

J7/

36-52

SEQ 0087

DRIVE ERROR INTERRUPT SERVICE
022076

013727

002116

022104
022110
022112
022116

005367
001375
005367
001367

177772

022102

3975
3976
3977
3978

022126
022134
022136
022142

022160
022164
022166
022172
022174
022200
022202
022206
3979 022216

3980 022224
3981 022226
3982 022230
022230
3983 022232
3984 022234
3985 022242
3987
3988
3989
3990
3991
3992
3993
3994
3995

022246
022254
022262
022270
022274
022300
022304
022310
022316

000000

032763
001253
012702

012727
000000
013727
000000
005367
001375
005367
001367
032763
001223
005302

000000

000075

188:

000372
002116

012763
056463
042763
004537
016301
043701
010164
012764
000205

BNE
DEC
BNE
BIT
BNE
MOV
WAITMS
MOV
LMORD
MOV
DEC
BNE
DEC
BNE
BIT
BNE
DEC
BREAK
TRAP
BNE
MOV

.-4
22(PC)
.-20
@DERR,CS(R3)
1418
061. .R2
10,
0250.,(PC)+
O
L#DLY. CPC).
-6(PC)
133¢PC)
-20
@DRDY,CSCR3)
144
R2

MOV

@CROY !RDHOR , CSC(R3)

MOV
8IC

wilm.lu
SMSK,R1

177772
177756
000001

000000

104422

001343
012737
000137

LSDLY,(PC)s

LMORD
DEC

177756
040000

MOV

003573
021500
000210
000106
000200
024270
000006
002272
000124
004353

002246
000000

000000
000000

GHDR:

8IS
8IC

JSR

MOV
MOV

000052

RTS

.SBTTL
STARS

O
-6(PC)

;DRIVE ERROR CLEAR?
sNO, DROP DRIVE
1YES, WAIT 60 SECONDS

C#BRK

184
ONOLOAD , WHY
914

;FOR DRIVE READY T0

;COME BACK
fl

s INITIATE PROGRAM CALL TO SUPERVISOR

sNO READY DROP DRIVE

DRSEL(R4),CSCRS)
oeoo csam

R1
R4)
OMTDRV,RTYPEC(RA)
RS

;SETUP DRIVE ERROR

BUFFER GENERATION ROUTINE FOR THE ‘MRITE' FUNCTION

11006060000006000000004800040006000000800004008008000480800040008040

.m -- ROUTINE TO WRITE A BUFFER INTO MEMORY. USES WORD COUNT AND BUS
ADDRESS FROM DRIVE BUFFER (R4). WILL WRITE RANDOM FROM ONE OF
8 PATTERNS.
USED BY WRITE FUNCTION AND WRPACK ROUTINE.

$TARS

’ |‘."..““‘““.“..‘.“..‘.‘.0‘.‘.“.““.“‘.“.‘.‘.““‘.‘.‘

4004 022320

4012 022344

005737

017401

002306

000110

WRBUF:

24:

TST
BEQ
MOV
MOV
MOV
MOV
MOV
NEG
MOV
cHe
B8GE

REGEN
9
RS, -(SP)
R2, -(SP)
R1,-(SP)
RO, -(SP)
B8MP(R4),R2
R2
SBBACR4),R1
R2,0128.
as

(REBUILD THE DATA BUFFER?
iNO --EXIT
sSAVE REGISTERS

;R2 HAS TOTAL MWORDS TO SET UP FOR
+POSITIVE NUMBER
|WHERE BUFFER IS
sMORE THAN 128 WORDS
1YES. BRANCH

<7
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

BUFFER GENERATION ROUTINE FOR THE 'WRITE'
4015
4016
4017
4018
4019

022356
022362
022364
022370
022376

020227
002005
062702
162764
010221
005302
010237
000405
012737
012721
005737
001003
013703
000406
004537
013703
042703
006303
062703
011303

010337
010321
005337
013703
012737

012321
005337
001404
005337
001371
000763
162702
003306
012600
012601
012602
012603
000205

19-DEC-83 09:48

3%:

4as:
S$:

010656

S5¢:

024454

002262

177770

564 :

027734
002364
002362

002364

000020

R2,03

SuUB
MOV
DEC

03,BMP(R4)
R2,(R1)«
R2

BR
MOV

S¢
0127.,TEMP6

MOV
002362

002366

002362

68:
78:

84:

000200

SEQ 0088

CMP

BGE
ADD

002362
000177
000200
010654

36-53

FUNCTION

000003

000003
000003

PAGE

9¢:

.SBTTL

MOV

TST

BNE
MOV
BR
JSR

R2,TEMP6

DEC

BEQ
DEC
BNE
BR

SuUB
BGT
MOV
MOV
MOV
MOV
RTS

]

iNO GET PATTERN OPERATOR
;WANTS TO USE

;GET RANDOM ¢ FOR PATTERN
l?; RANDOM PATTERN

RS ,RAND

ASL

MOV

al;ehADOH SELECT OF PATTERNS

T.RAN

554
T.PAT,R3
564

LONUM,R3

ADD
MOV
MOV
MOV
DEC
MOV
MOV

1LOAD DOWN COUNTER

0128.,(R1)+

MOV
BIC

;GREATER THAN THREE WORDS
;YES, BRANCH
s1ADD 3
sWC UP BY 3
1STORE WC
sACCOUNT FOR WC
;LOAD DOWN COUNTER

34
@3,R2

#177770,R3

IV,

:1WORD OFFSET
sGET PATTERN LIST
sGET LIST ADDRESS
1STOR FOR RECALL
;LOAD IT
sACCOUNT FOR IT

OPATLST,R3
(R3),R3
R3,TEMP7
R3,(R1)+
TEMP6
TEMP7,R3
016. . TEMPS

;PATTERN START

116 ENTRIES

1STORE PATTERN
s1DOWN COUNT
?
;DONE
sDONE WITH PATTERN
iNO, GO BACK
tRESTART PATTERN

(R3)+,(R1).

TEMP6

8s
TEMPS
7%
64

#128. ,R2
24
(SP)+.RO
(SP)+,R1
(SP)+ ,R2
(SP)+.R3

;ANOTHER SECTOR TO USE

s YES GO BACK
;RESTORE REGISTERS

RETRY LIMIT ROUTINE

sRETRY BUMP, TWO RETURNS - CALL

- RETRY EXCEEDED

CALL +4 - CONTINUE RETRY

026437
001403
005725

4069
4070 022566
4071 022570

010576

RCNT;

cHP
BEQ
INC

RETRY(R4),LIMIT sLIMIT REACHED?
;1YES TAKE FIRST RETURN
is
RETRY(R4)
1ACCOUNT FOR RETRY
sNEXT RETURN

16:

TST
RTS

.SBTTL

LIST OF FUNCTION ROUTINES

(RS)e
RS

;RETURN

sWE GO THRU THIS LIST WHEN CALLED IN “GETFNC*"
sLIST IS IN NUMERICAL ORDER 1-6
015354

LIST:

.MORD

SKWRT

;SEEK - WRITE DATA - WRITE CHECK

CNRLKAO RLO1702 PERF EXER
LIST

MACRO M1200

19-DEC-83 09:48

PAGE 36-54

SEQ 0089

FUNCTION ROUTINES

4072 022572

4073 022574
4074 022576
4075 022600

:g;’g 022602

015410

015550
015354
015410

SKRD

1SEEK - READ DATA

SKRDRD

1SEEK - READ DATA - READ DATA

SKRH
SKWRT
SKRD

015434

4078

.SBTTL

4079 022604

STARS

iSEEK - READ HDR - READ W/NO HDR CMP - GET STATUS
;SEEK - WRITE DATA - WRITE CHECK
1SEEK - READ DATA

BAD SECTOR FILE ROUTINE

1100000000000 000004004080000080000080000040088004886480804800800088

4080
4081
4082

;RDBDSC -- ROUTINE TO RECOVER BAD SECTOR FILE AND SAVE IT FOR
;COMPARISON UPON ERROR ON READS/MWRITES £ FOR THE SEEK FUNCTION. WE
sWILL ONLY RESERVE SPACE FOR 16 BAD SECTORS PER DRIVE AND 1 ENTRY FOR

4083
4084
4085
4086

:THE BAD SECTOR FILE AREA POINTER - LAST TRACK ON THE CARTRIDGE.
1WE WILL ISSUE A DRIVE RESET FIRST, READ HEADER, POSITION TO THE LAST
;TRACK (CYLINDER 255. OR S11., SURFACE 1) AND READ IN THE FIRST SECTOR
;:FOR FACTORY BAD, AND THE 20TH FOR FIELD BAD SECTORS.
R4 WILL CONTAIN

:THE BUFFER POINTER TO THE DRIVE WE WANT TO READ.
B

4089
4090

s CALL
.

4092

4091

JSR

RS.RDBDSC

3sGET THE BAD SECT FILE ENTRYS

;:THE BAD SECTOR FILE (BOTH FACTORY AND FIELD) LOOKS LIKE THIS:

4093
4094

3
:

4095
4096

3
i

4097

4098

4099

:ia“i

H
H

4102
4103
4104

4106

4107 022604

SERIAL NUMBER LOW S DIGITS (OCTAL SERIAL NUMBER)
SERIAL NUMBER HIGH S DIGITS
0'S

0'S

ENTRY - CYLINDER @ FROM O TO 1777 MAX (RLO2) OR 777 (RLO1)

ENTRY - HEAD &€ SECTOR NUMBER

3
3
3

ENTRY - CYL
ENTRY - HMEAD & SECTOR

-1 ...TO WORD 256. (END OF SECOND SECTOR IN PAIR)

STARS

1 80 808 58 0000000888088080080800000080008088004000800088080080020

4108
4109 022604

010046

RDBDSC: MOV

4110 022606
4111 022610
4112 022612
4113 022614

010146
010246
010346
004537

024376

4115 022626

004537

016524

4114 022620

:{{g 022632

4118 022636

4119 022642

4120 022650
4121 022652
4122 022656
4123 022662
4124 022664
4125 022670
4126 022674

012764

004537

016300

022764

001005
043700
012701
000404
043700
012701
160001

000010

000044

218:

024270
000006

000001

002270
177600

JSR

RS, LDFUNC

tON

MOV

MP(R3),.RO

1GET HEADER AND CALCULATE

BNE
BIC
MOV
BR
BIC
MOV
SuUB

238
CYLMSK,RO
#77600,R1
254
CMSK ,RO
#177600,R1
RO,R1

1JUMP IF RLO2
1HERE FOR RLO1

MOV

cHe

002264
077600
238:
254:

1SAVE REGISTERS

R1,-(SP)
R2,-(SP)
RS, -(SP)
RS, ISDRST

JSR

000120

RO, -(SP)

MOV
MOV
MOV
JSR

1ISSUE A DRIVE RESET

OROMDR ,FUNC (R4);READ MEADER TO FIND POSITION

RS,WTRDY

01.7“&”)

DISK

1RLO2 TYPE DRIVE?

1HERE FOR RLO2

M7
CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-55

SEQ 0090

BAD SECTOR FILE ROUTINE

010164

000040

4129 022710

012764

000006

4131 022722
4132 022726
4133 022734
4134 022740
4135 022744

004537
012764
004537
004537
016300

4130 022716

052764

004537

4136 022750
4137 022754
4138 022762
4139 022764
4140 022770

042700
022764
001007
022700
001311

4142 023000

000406

4141 022772

000025

016524

024270
000010
016524
024270
000006
000077
000001

000044

077700

022700

177700

012764

177700

000040

012764

000014

000044

4149 023032
4150 023036

005037
012737

002354
003720

4152 023050

012700

000021

4144 023006

4145 023010

4146 023016

:{:‘ 023024

4151 023044

4153 023054
4154 023060
:}32 023062

001302
012764

016402

012722
005300

177400

000112

000040
3008:
000042

001374

016402
016422
012700

000112
000040
000020

:{g 023104

004537

024270

4163 023110

005774

000104

4166 023116
4167 023122
4168 023130
4169 023134
4170 023136
4171 023144

004537
062764
005737
001414
012737
022764

024376
000004
002354

000040

003740
000001

002246
000120

4173 023154

022764

077750

000040

:{:?, 023114

4172 023152
4174 023162

:{;2 023164

004537

100042

001011
001346

4%:

000516

4177 023166
4178 023174
4179 023176

026427
000410
022764

4181 023206
4182 023210
4183 023216

000505
026427
001330

4180 023204

016524

001335

JSR

RS, LDFUNC

000040

077724

5%:

177750

000040

400%:

000040

177724

55%:

OSEEK,FUNC(R4)

1SEEK TO THE BAD SECTOR FILE AREA

JSR
MOV
JSR
JSR
MOV

RS,WTRDY
ORDHDR ,FUNC(R4)
RS, LDFUNC
RS,WTRDY
MP(R3),RO

MOV

977700,BDA(R4)

:CLEAR SECTOR NUMBER READ
sDRIVE = RLO1?
s1NO - MUST BE AN RLO2
1YES - ON BSF AREA?
iNO- SEEK AGAIN
sSAVE THIS HEADER FOR READ COMMAND

#177700,R0

1RLO2 BSF AREA?

B8R

CMP

BNE

MOV
MOV

MOV
CLR

11%:

4157 023064
4158 023070
4159 023074

4160 023100

555%:

002246

177777

#SKHS ! SIGN!MK ,BDA(R4)

8IC
CcMP
BNE
cMP
BNE

000120

R1.BDA(R4)

BIS

MOV

000044

012764

4143 023002

MOV

000040

AeoRese BRIAII[aBE o gpddd FRIES

4127 022676

4128 022702

@77, ,RO
¢1,TOR(R4)
3004
@77700,R0
21
555¢
214

sWAIT FOR DRIVE READY

tREAD A HEADER ON THE BSF
sWAIT FOR DRIVE READY

1GET THE HEADER WORD READ

1NO- SEEK AGAIN

;;SETUP FOR A 2 SECTOR READ IN BSF

TEMP3
SHMSEC , WHY

sMANUFACTURING/FIELD FILE SWITCH
sSTART WITH MANUFACTURING BAD

017.,RO

:SIXTEEN ENTRIES + 1 FOR BSF POINTER

OREAD,FUNC(R4)

BSECPT(R4),R2

#-1,(R2)+
RO
114

;GET THE READ FUNCTION ¢

;INITIALIZE LIST TO ALL 1'S

s INIT STORAGE 7O -1°'S
1DONE?
sNO - DO THE NEXT ONE

BSECPT(R4),R2
),
BDACR4),(R2)+
#16..RO

;GET POINTER TO LIST TO STORE BSF ENTRYS
;SAVE 1ST ENTRY AS BSF POINTER
1 SIXTEEN ENTRIES

RS,WTRDY

sMAIT FOR DRIVE READY

RS .LOFUNC

;READ THE BSF SECTOR PAIR

SOCS(R4)

sWAS THE READ GOOD?

RS, ISORST
04 ,BDA(RA)
TEMP3
S5¢
OSWSEC , WHY
01,TDR(R4)

iNO - ISSUE A DRIVE RESET
sPOINT TO NEXT SECTOR
tMANUFACTURING OR FIELD BAD
sMANUFACTURING = O
+FIELD uo
1DRIVE
= RLO1?

3¢

4008

#77750,8DA(R4)

s YES

tNO
- MUST BE RLO2

|YES - AT END OF FIELD FILE?

tNO
- CONTINUE

BDA(R4),877724
55¢
#177750,BDACR4)

;AT END OF MANUFACTURING BAD
1SEE_IF DONE
;AT END OF FIELD BAD FOR RLO2

a4
64

sm DRIVE AND EXIT

1NO GO BACK FOR NEXT
1OROP THE DRIVE AND EXIT

BDA(R4), 0177724 IAT END OF MANUFACTURING BAD?
a4

1BR IF NOT DONE

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-56

SEQ 0091

BAD SECTOR FILE ROUTINE
4184 023220
4185

4186

4187
4188
4189
4190
4191
4192
4193
4194

000500
017401
012164
012164

022121
012137
100444
012137
000337
000241
006037

4195
4196
4197
4198
4199

3s:

MOV

1s:

MOV

002350

013712
013737
042737
053712
006237
006237

002350
002350

042737
053722
005300
001335

022764
001004
012764
000403
012764
012737
000627

8B8BA(R4),R1

+START OF BSF ENTRY LIST

(R1)+,SERNM1(R4)
;GET LOW PART OF SERIAL ¢
(R1)+,SERNM2(R4)
:GET HIGH PART OF SERIAL ¢
(R1)+,(R1)+
1 SKIP PAST JUNK
g’:l)O.TEWI
1GET CYLINDER

1118:

MOV

002352

:+STORE THE CYLINDER PART
1GET SECTOR
sLEAVE ONLY SECTOR
1SET IN SECTOR BITS

1
WHY
OMBOM,SC
6t

;ALLOW MORE ENTRYS?
sMORE THAN 16 BAD SECTORS
sDROP THE DRIVE & ERROR EXIT

01,TOR(R4)
3504

gz"!‘ .BDA(R4)

077724

177724

002354

iNO - GET HEAD (0 OR 1) £ SECTOR NUMBER
+PUT CYLINDER IN HIGH BYTE

TEMP1,(R2)
TEMP2, TEMP1
#177700, TEMP1
TEMP1,(R2)
TEMP2
TEMP2
0177677, TEMP2

000120

000001

#8IT15,TEMPL

;SFPZ. (R2)+

2s:

002354

;END OF THE ENTRYS?

TEMP1
1114

012737
000422
001021

:YES - REPORT ERROR AND EXIT

(R1)+,TEMP2
TEMP1

103003
052737

005737

#177724 ,BDA(R4)
o1, TEMPS

350¢:
364:

;1POSITION THE HEAD SELECT BIT
;CLEAR ALL OTHER BITS
$SET IN HEAD
sCOUNT THIS ENTRY FROM BSF

sSWITCH TO FIELD BAD OR QUIT
QUIT, 78
= RLO1?
:DRIVE
sNO- MUST BE AN RLO2

IVES - POINT TO FIELD BSF 1ST SECTOR

sPOINT TO 1ST SECT IN FIELD FILE FOR RLO2
s INDICATE NOW DOING FIELD BSF
+PROCESS THE FIELD BSF

sHERE TO DROP THE DRIVE IF MORE THAN 16. ENTRYS OR IF CAN'T FIND A BSF
023422

004537

64:

1DROP THE DRIVE

JSR

023442
023444

004537

012603
012602
012601
012600
000205

76:

RTS

.SBTTL
STARS

» HOHOME

eeQeed

023426
023432
023434
023436

8383

JHERE TO PUT MEADS ‘HOME' AND TO EXIT
)+,.R3

,'0.2

)e,R1
de ao

ROUTINE TO DROP DRIVE

1 1800000000000000000000000000008000000000000000000000000000000000

aoaoav -- ROUTINE TO DROP A DRIVE FROM RUNNING
023444

S!MS

R4 HAS BUFFER POINTER OF DRIVE TO DROP
WE CLEAR BIT IN “DRUT", NOT “DRPRS*"

RLO1702 PERF

EXER

MACRO M1200

19 DEC 8% 09:48

PAGE

3¢ 57

10 DROP DRIVE
530 0 0 0 0 0 000000000000000000000000000800008000000080000800
0000000

0052387
010146
010246

010346
005237
005003
012702
012701
020402

001405
005203
006301
062702
000771
005737
001002
010300
104451
005037
0050387

113764
113764

001002
105264
140137

012746
012746
010600
104417

4269

4270
4271
4272
4273
4274
4275
4276

002476
030362
000001

002474

MOV
MOV
INC
CLR
MOV
MOV
cHe
BEQ
INC

002476
002474
002416
002414

000071
007501
000001

1SAVE REGISTERS

é'sCALL

ODRBUF ,R2
01.R1

R4 ,R2

s MASK
$IS

THIS

THE

DRIVE?

sYES GO DROP IT

sNO SHIFT MASK

1GO BACK

OPCALL

1CALLED VIA OPERATOR?

#PRPOS .2 ,R2

2s:

1START OF DRIVE BUFFERS

'2.;

68
R3

R3.RO

004737

004276
007141
000003
000010

012746
012746
010600
104417
062706

007732
000001

004737

013772

012603
012602
012601

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

ASL

000126

062706

013746
012746
012746
012746
010600
104417
062706

18:

OPCALL

INC

MOV

iNEXT BUFFER

s YES - SKIP CODE
sNO - CALLED BY DIAGNOSTIC

CsD0DUV
INCALL
OPCALL
HOUR ,DPHOUR(RA
) ;TIME AT WMICH IT WAS DRUPPED
E.OPMIN(RA)
;HOUR/MINUTE
s IF MINVTE O,

000070
000071

3s:

OPMIN(R4)
R1,DRUT
FMT14C

sMAKE 1.
1CLEAR THE DRIVE FROM BIT MAP

sPRINT A <CR> £ <LF-

(SP).,R2

1RESTORE REGISTERS

)

4267
4268

ODRDRYV
:
:
DRDRV

002474

33 § sjadenEgaed 33453882

023444

000004

(
CNRLKAQ RLOL1702 PERF EXER
ROUTINE

MACRO M1200

PAGH

56 -58

SEQ 0097

TO DROP DRIVE

4277 023670
4278

000205

.SBTTL

4279

4280

4281
4282
4233 023672
4284 023676
4285 023702

4286
4287
4288
4289
4290
4291
4292

19 DEC-83 09:48

023704
023706
023712
023714

023716

023716
023722
4293 023724

4294 023730

4295 023736
4296 023742

4297 023750
4298 023754

4300 023770

RTS

ROUTINE

TO CHECK DATA

sROUTINE TO CHECK DATA ON READ
005037
005737
001001
000205
005737
001401

CKDATA:

002306

010612

108:

002310

1978:
97s:

012700
104441
017402
016437
005437
013737
005037
013737
012737
012201
005337
001522
005301
012237

CLR

REGEN

CMRD
10%

18T
BNE
RTS
TST

RS
KILLDC

RTS

SETPRI
SETPRI

@340
0300
€300,R0

BEQ

974

CSSPRI
®BBA(R4),R2
.%M).Timt
TEMPL
DELMT, TEMP2
DECNT
CMRD, TEMP3

002350
002352

002354
002346

0126. ,TEMPO
(R2).,R1
TEMPL

1CLEAR THE REGENERATE DATA FLAG
;00 WE WANT TO CHECK ANY?
sYES

SEE IF FORCED EXIT

iNO - EXIT NOW

s INMIBIT FLAG SET?
tNOPE - OK TO PROCEED

1NO, EXIT

;JSD REV A
:JSD REV A

1BUFFER START
1WORDS READ IN
iMAKE POSITIVE
1® ERRORS TO BE PRINTED
s INIT ERROR COUNT
:1® WORDS TO BE COMPARED
1126 WORDS

CEND

sPATTERN ADDRESS

tMAKE SURE PATTERN ADDRESS IS LEGAL

4320

4321
4322
4323
4324
4325
4326

024054
024056
024062
024066
024074
024100

4327 024102

001373
003237

104456

003631
005716
004537
005301
013703
005337
012737
005737
001461
005737

026736
994¢:

002350
002354

PATLST,RO
e8. A3

(RO)., TEMPS
994
RS

hggiggii AR

4318 024046
4319 024052

000010
002356

024036
024040
024042
024044

MOV
cw
BEQ

18;

4317 024036

MOV

2823RS % 3...43

4314
4315 024030
4316 024034

027734

012700
012703
022037
001414

98¢
REGEN

-(R2), -(R2)
180. ,NOREV ,ERR12
CIERMRD
180
V
NORE

sGET LIST OF PATTERNS

sONLY EIGHT

sFOUND IT YET
1YES, CONTINUE
iNO, EXMAUST LIST YET
iNO, GO BACK
sSET THE DATA REGENERATE FLAG

ERR12
RS, STOMP

JACCOUNT FOR PATTERN ADDRESS

gggs

iNO, GO TO END

TEMP4 RS
TEMPL
016, , TEMPS
TEMPL

1GET ADORESS
sACCOUNT ONCE AGAIN
116 ENTRIES TO PATTERN
1ANY WORDS READIN LEFT?

tHAVE WE EXMAUSTED COMPARE LIMIT?

D&
CNRLKAO RLO1702 PERF EXER
ROUTINE

70 CHECK

4328 024106
4329 024110
4330 024112
4331 024114
4332 024116
4333 024122
4334 024124
4335 024130
4336 024136
4337 024142
4338 024146
4339 024150
024154
4341 024160
4342 024162
4343 024166
024172
4345 024176
4346
4347
4348

MACRO M1200

19-DEC-83 09:48

PAGE

36-59
SEQ

DATA

001456
005701

BEQ

CEND

1YES GO TO END

005301
005737
001005
013703
012737
012337
005337
000402
0050387
023712
001417
005237
005237
005264
005737
001406

BEQ

DEC

1 ZERO FILL SKIP

BNE

MOV

016.,TEMPS

gE“C

IEFPS

CLR

GDDAT

TST

001416

104456
000271
003235
005462
005337

TST

002360

002356
002360
002402
002402

002360

MOV

2s:
3s:

4s:

MOV

cHe
BEQ

002350

005737
001406
003464

002344

002354

000205

116 _ENTRIES

:DOWN COUNT

s ZERO FILL

REGEN

DATCER(R4)

5S¢

tNO - SET REGENERATE FLAG FOR WRT OPERATION
sCOUNT ERROR FOR TrIS DRIVE
100 WE WANT TO PRIMT IT

sNO, SKIP

185. ,MOCER,ERRS

TRAP
.HORD

CSERHRD
185

DEC

TEMP2

sACCOUNT FOR PRINT

DEC
BEQ

TENPL
CEND

1WORDS READ IN

DEC
B8EQ
DEC

TEMPO
9%
TEMPS

TST
B8EQ

DECNT
i
BMP(R4)

ERRMRD
TRAP
LMORD
.WORD
.HORD

104456
000276
003235
005364

1GET PATTERM

TEMP2

CEND:

(R3)+,GDDAT

TST

002346

tNO, START OVER

1COUNT THE DATA ERROR

.WORD
.WORD

S¢:

1 YES SKIP

TEMP4 ,R3

DECNT

ERRMRD

005337
001407
005722
005337
001652
005337
000714

IMITHIN PATTERN

INC

8EQ

002352

+PATTERN

1CORRECT DATA
sYES YES NEXT

INC

000074
002352

TEMPS

tWE CHECKING PATTERN OR ZERO FILL?

GDDAT, (R2)
S¢

INC

002306

MDCER
ERRS

(R2). .

tNEXT WORD

sWORDS TO CHECK

D0 WE WANT TO PRINT SUMMARY
sNO,EXIY
sMAKE POSITIVE WORD COUNT

190. .MDCER,ERR6 ;DATA ERROR SUMMARY
CHIERMRD
190
MDCER
ERRG

is:

RTS

.SBTTL

ROUTINE TO WAIT FOR CONTROLLER READY

IWTD‘ TO WAIT FOR CONTROLLER READY UNDER FLAG
sMODE.

USED IN INITIALIZE PORTION OF PROGRAM, I.E.,

WTRDY:

MOV
MOV

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

WAITUS

@2.

IGEYYI'G BAD SECTOR FILE, WRITING PACK INITIALLY.
024270
024272
024274

010046
010146
012701

001750

MOV

#1000, ,R1

1SAVE REGISTERS

tWAIT A WHILE

1JSD REV A

0094

E 4
CNRLKAO RLO1702 PERF EXER
ROUTINE

MACRO M1200

19-DEC-83 09:48

PAGE

36-60

SEQ

TO WAIT FOR CONTROLLER READY

4377 024300

024300

024304
024306

024312

012727

000000
013727

000000

002116

024314 005367 177772
024320 001375
024322 005367 177756
024326 001367

4378 024330

4379 024336

032774

001006

14%:

000002

000200

WRITUS

. WORD
MOV

0
L$DLY,(PC).

DEC
BNE
DEC
BNE

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

BNE

MOV

.MORD

000104

BIT

4380 024340 005301

DEC

4383 024344

ERRDF

:33:3 024342 001356
024344

024346
024350
- 024352

104455

TRAP

001752
002654
005716

3JSD REV A

02.,.(PC).

OCRDY,3DCS(R4)

;;READY SET?

s TIMED OUT?

s YES, EXIT

iNO GO BACK

1002.,NOCRDY,ERR12

CSERDF

LMORD
"WORD
'MORD

1002
NOCROY
ERR12

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

4385 024354 012601
4386 024356 012600
:.;:; 024360 000205

2¢:

MOV
MOV
RTS

:gg

.SBTTL

GET STATUS/DRIVE RESET ROUTINE

4391

;ROUTINE TO ISSUE DRIVE RESET

4392
4393
4395 024362

;RESTORE REGISTERS

+ALSO GET STATUS, R1 MAS STATUS IF GS
JUSES RS, DOES NOT SAVE IT

4396 024366 012763 000003 000004

016403

000104

GETDST: MOV

4398 024376

016403

000104

ISDRST: MOV

4401 024416

056463

000106

4397 024374 000405

MOV
8R

DCSCR4),R

oGSBIT, 6mm
CSTUFF

DCS(R4),RS

4399 024402 012763 00001 000004
MOV
4400 024410 012763 000204 000000 CSTUFF: MOV

SORST ,DACRS)
OCROY IGSTAT ,CS(RS)

4402 024424
4403 024432

#CROY,CSCRS)
RS, NTROY

000000

8IS

042763 000200 000000
004537 024270

8IC
JSR

4405 024444

001402

8EQ

4407 024452

000205

4404 024436 022763 000013 000004
4406 024446 016301 000006
4409 024454

18:

MOV
RTS

onsaam CSCR3)

coist DACRS)
nmm.n

STARS
' 0080858080808 8008080800008088842880800002002230000000002000000000

4410

-- ROUTINE TO GENERATE
A RANDOM NUMBER

4411 C24454

STARS

“12

] ".‘.‘.0..“.“‘.‘.“..“"....‘..“.‘..“.‘.“..“‘.‘.‘..“.‘..

4413 024454

010146

4414 024456 010246

:{2 024460 010346

RAND:

4417 024462 013703 002262
4418 024466 013701 002260
4419 024472 012702 177771

MOV

R1,-(SP)

MOV

RS, -(SP)

MOV

MOV
MOV
MOV

R2.-(SP)

LONUM,
RS
HINUM,R1
e-7,R2

009%

CNRLKAO RLO1/02 PERF EXER

F&
MACRO M1200

19-DEC-83 09:48

PAGE

36-61
SEG 009

GET STATUS/DRIVE RESET ROUTINE
4420 024476
4421 024500
4422 024502
4423 024504

4424 024506

4425 024512
4426 024514

4427
4428
4429
4430
4431
4432
4433

024520
024524
024526
024532
024536
024542
024544

4434 024546
4435 024550

18:

006303
006101
005202
001374

063703

005501
063701

062703
005501
062701
010337
010137
012603
012602

002262
002260
001057
047401
002260
002262

ASL

INC
BNE

R2
1

ROL

ADD
ADC
ADD
ADD
ADC
ADD

LONUM,R3
R1
HINUM, R1
91057,R3
R1
047401 ,R1

RTS

MOV
MOV
MOV
MOV
MOV

012601
000205

.SBTTL
STARS

R3,HINUM
R1,LONUM
(SP)+,R3
(SP)+,R2
(S5P)+,R1

ROUTINE TO WRITE PACKS INITIALLY

119080008808 048888080088808080808488884488884080888808458585000880808080048

tWRPACK -- ROUTINE TO WRITE PACK WITH PATTERN, ALL TRACKS WILL BE
:
WRITTEN (EXCEPT BAD SECTOR TRACK)
FORMAT IS # OF WORDS (WORD 1), PATTERN ADDRESS (WORD 2)
PATTERN (WORDS 3 - 128)

WE MILL ATTEMPT TO WRITE MALTIPLE SECTORS AT
A TIME
(MINIMUM 10 SECTORS) IF AN ERROR OCCURS WE WILL THEN

WRITE INDIVIDUAL SECTORS FOR THAT TRACK.
READS AND INCORE COMPARISONS TO VERIFY,

4449 024552

4450
4451 024552

4452
4453
4454
4455
4456

024554
024556
024560
024562
024566

4457 024572
4458 024574

4459
4460
4461
4462
4463
4464

4465
4466

4467
4468

010046

010146
010246
010346
016446
005764
001016

012746

024610
024612
024614

010600
104417
062706

024620
024622
024624
024630

JSR

RS, MRPACK

JMRITE THE PACK SELECTED

‘...‘.‘.‘..“““.‘.‘.O.‘....“‘.....“...“.‘.“‘.O.‘......‘.“.

024574

024600
024604

CALL:

WE DO WRITES,

012746
012746

000240
000240
004737
004537

000110
000122

004400

007666
000002

WRPACK: MOV
MOV
NDV
MOV
MOV
ST
BNE
PRINTF
MOV
MOV

MOV
MOV
TRAP
ADD

000006
006200
025620

18:

JSR
JSR

RO, -(SP)
;SAVE REGISTERS
R1.-(SP)
fl?.-(S’)
RS, -(SP)
BBACR4), -(SP)
WwR
SEE_IF WRITE
IN PROGRESS
1t
;JUMP IF DON'T WANT ME SSAGE ON RECOVERY
OFMT18,0MSWRPK
;MSG. “WRITING PACK"
mswx -(SP)
18, -(SP)

oa.-(si
cohmr
#6,5P

PC,LINE2
RS , HOHOME

{PRINT TIME-RCLS & DRIVE ID
{HEADS HOME

:W ACTUALLY WRITE DATA OUT ON PACK, WILL NOT WRITE LAST
1 TRACK
;

CNRLKAO RLO1/702 PERF EXER
ROUTINE

4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481

4482
4483
4484
4485
4486
4487
4488

MACRO M1200

19-DEC-83 09:48

PAGE

36-62

SEG 0097

TO WRITE PACKS INITIALLY
024634
024640
024642
024650
0246352
024656
024660
024664
024666
024670
024674
024676
024702

024704
024710
024714
024716
024720
024722
024724

005037
005001
022764
001007
022701

001023
005737

001420
000406

022701
001014
005737

001411
004537
012664
012603
012602
012601
012600

002350
000001

000120

CONMR:

CLR
CLR
CMP

TEMP1
R1
@1,TDR(R4)

i TEMP1=HEAD
;R1=CvL

077600

002350
q4ce;

177600

iNO GO WRITE TRACK
1YES, CHECK IF HEAD = 1?
tHEAD = 0 GO WRITE
tHEADS HOME

002350
025620
000110

sEND EXIT

1 THIS PORTION H‘ILL WRITE THE PACK USING MULTIPLE SECTORS IF A
WILL GO TO 2% AND INDIVIDUAL SECTORS.
1ERROR OCCURS

201%:

8IS
TST
B8EQ

BEQ

000110

762%:

:
2038

4519
4520
4521
4522
4523
4524
4525

025076
025100
025104
025110
025112

1 INITIAL SECTOR O
1BUFFER START
110 SECTORS
1SET _THE GENERATE BUFFER FLAG
sWRITE BUFFER INTO MEMORY
1SET UP SECTOR

353335

STWRT:

3738 3oged Sglaggddny E

000110
000042

7624

s\CITE IN PROGRESS?

mscnnmmiJYUP- ON CYLINDER NOW?
JUMP OVER

- WRITE THIS AREA
1YUP
sNO - LOOK AT NEXT AREA ON DRIVE
1SET UP TO WRITE

IWRITE

tHAIT FOR READY

s ERROR

1 ERROR
1 YES GO DO SECTORS INDIVIDUALLY
iNEXT GROUP
?
1DONE
i1NO, GO BACK

1 YES NEXT TRACK

CNRLKAC RLO1/702 PERF EXER
ROUTINE

Hés
MACRO M1200

19-DEC-83 09:48

PAGE

36-63

SEG 0098

TO WRITE PACKS INITIALLY

:IF AN ERROR OCCURS THEN WE COME HERE AND DO THE TRACK SECTOR
:BY SECTOR.

4529 025116

025144
025152
025156
025162
025166
025174

4545 025210

012764
004537
005037
005037
012764
004537
004537

tR2 = SECTOR

3s:

MOV
MOV
BIS

@-128. ,BMP(R4)
R1,BDA(R4)
TEMP1,BDA( R4)
R2,.BDA(R4)

1LOAD WORD COUNT
s SETUP DISK ADDRESS

#BUF 1,BBA( R4)
RS, WRBUF
RWCNT
DECNT
OWRITE ,FUNC(R4)
RS, LOFUNC
RS ,WTRDY

91s¢:

984:
964:

005774
100021
016437
004537
005737
001050

002342

005237

023727

001440
004537
000745

005037
012764
004537
004537

005774
100025
016437
004537

005737
001013
005237
023727
001403
004537
000745
004537
004537
062702
020227
003002

024376

016524
024270
000104

027146
002340

002342

002242

024376

024376
000012
000047

801¢:
8024
:
95¢:

4% 5g83R R g8 34 g3 gE3% R

4536
4537
4538
4539
4540
4541

4533 025132
4534 025140

012764
010164
053764

CLR

a 38

4531 025120

2%:

tWRITE A BUFFER
s1CLEAR RETRYS OUT
;

tWRITE FUNCTION

sWAIT FOR WRITE TO FINISH

S8DCS(R4)
85

;ERROR ON WRITE?
iNO, GO READ

4
), CHKSEC
BDA(R

1YES, CHECK IF SECTOR IS IN

RS,CxBDSC
HDRFND
802¢

+BAD SECTOR FILE

+IF SET, IT WAS
sYES GO TO NEXT SECTOR

DECNT
DECNT, @3,
8014
RS, ISDRST
9%

sNO, GIVE IT 3 TRYS TOTAL
:IT MAY HAVE BEEN NOISE.

RECNT

sCLEAR RETRY COUNT
-uwmm THE 1 SECTOR WRITTEN

OURCHIC ,FUNC(R4)

RS, LDFUNC
RS ,WTRDY

18R _IF AT RETRY LIMIT - BAD SECTOR

lKSEY THE DRIVE &€ TRY AGAIN

1 TRY RECOVERY AGAIN

1 ISSUE' A WRITE-CHECK FUNCTION

sWAIT FOR DRIVE READY

SDCS(R4)
95

READ?
ON OR
1ERR
s8R IF OK ... GET THE NEXT SECTOR

BDA(R4
), CHKSEC

1CHECK IF SECTOR IS

RS,CKBDSC

1A KNOWN BAD SECTOR

1IT WAS THEN
1GO TO NEXT SECTOR

RECNT
RECNT, #16.
8014
RS, ISORST
804

1GIVE IT ANOTHER CHANCE
116 RE-READS BEFORE HARD ERROR
s1REPORT ERROR IF AT RETRY LIMIT
1RESEY THE DRIVE
1AND RETRY AGAIN

RS, INBAD
RS, ISORST

tREPORT THE BAD SECTOR
tRESET THE DRIVE FOR THE NEXT OPERATION

#10. ,R2
R2,039.
9514

tNEXT SECTOR (OFFSET BY 10)
tOONE WITH TRACK?
1 YES NEXT TRACK

CNRLKAO RLO1/02 PERF EXER

4583
4584
4585
4586
4587
4588
4589
4590

025370
025374
025374
025376
025402
025406
025410
025414

025126

005202
162702
020227

000050
000012

005737
001420

002350

4595 025422
4596 025426
4597 025432

4600 025452

005037
062701
012764
012764
004537
004537

002350
000200
000205
000006
016524
024270

4602 025456

000137

024642

4604 025462
4605 025470
4606 025476

012737
012764
000760

000100
000021

4608 025500

010146
016403
016337
016337
016337
000240
000240
004537
010137

025502

4610 025506
4611 025514
4612 025522
4613 025530
4614 025532

951%:

012705

sNEXT

R2,010.
9524

fl
s YES

TEMP1

;sWHICH SURFACE?

TEMP1

;BOTTOM, SWITCH TO TOP WITH

9205,BDA(R4)

;1SEEK, GO IN ALSO

O®SEEK,FUNC(R4)

44:

RS, LDFUNC

SECTOR

sDONE WITH TRACK?
s NO

;TOP (0), BRANCH

;GO SEEK

RS ,WTRDY

CONWR
Ss:

MOV

S#HEAD, TEMP1

#21,.8DA(R4)

N
Fi

.SBTTL

HEADS HOME ROUTINE

sWAS TOP, MAKE BOTTOM.

[}]

R1,-(SP)

sSAVE R1

CS(R3),E.CS
BA(R3),.E.BA
DA(RS),.E.DA

;GET THE ERROR INFO FROM CSR

DCS(R4),R3

sGET THE CSR ADDRESS

RS,GETDST

:GET THE CURRENT DRIVE STATUS

R1,.E.MW
sSAVE IT AS “(RLMP)” DATA
199. .NURTS ,ERR12
CS$ERMRD
199
NWRTS
ERR12
ERRCNT(RS)
;‘”

002736

003322
023450
024704

#200,R1

024362
002426

000012

iNO GO BACK FOR NEXT

000104

005716
005264
005737
001413
026437

012601
000205

SEQ CO9Y

952%:

104456
000307

103407
012737
004537

36-64

#40. ,R2

025126

4592 025414
4593 025420

4598 025440
4599 025446

PAGE

INITIALLY

000137

001402
000137

19-DEC-83 09:48

g §§§§3§§8§§§§2§§§§§§§§§ %3

TO WRITE PACKS

MACRO M1200

000012
010640

1'%5 WE COUNTING ERRORS
i

ERRCNT(R4) ,ERLMT;PAST IT
24
iNO
SERLMTHM,
WHY
RS ,DRDRYV

010600

S®ENDUR
RS

STARS

RTS

(SP)e,R1

tRESET R1

5180888888808 058480800004848808004000083888088880480084828420200000000
.

STARS

-- ROUTINE TO BRING HEAD

OVER TRACK 0O

1508888880048840000088848008880488880088000080000808020200000000002

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-65

SEQ 0100

HEADS HOME ROUTINE

4634

4635 025620
4636 025622

4637 025630
z;g 025634
4640 025640

010046
012764

004537
004537
016300

000010
016524

RC, -(SP)
1 SAVE RO
ORDHDR ,FUNC(R4) ;READ HEADER
RS ,LDFUNC
+GO DO IT.

JSR
JSR

000006

MOV

MP(R3),R0

1GET HEADER

000050

MOV

RO,LSTHDR(R4)

;SAVE THIS CYL @ AS THE LAST POSITION

042700

000177

4643 025654
4644 025660
4645 025666
4646 025674
4647 025700
4648 025704
4649 025710
gg‘g’ 025712

010064
052764
012764
004537
004537
005064
012600
000205

000040
000001
000006
016524
024270
000124

010064

HDHOME: MOV
MOV

024270

4641 025644

4642 025650

000044

8IC

MOV
BIS
MOV
JSR
JSR
CLR
MOV
RTS

000040
000044

4652

.SBTTL

RS,WTRDY
#177,R0

RO,BDA(R4)
oM< ,BDA(R4)
OSEEK,FUNC(R4)
RS, LDFUNC
RS,WTRDY
PRPOS(R4)
(SP)+,RO
RS

sONLY CYLINDER

sMOVE IT TO BUFFERED DA
1SET MARKER FOR SEEK TO 000
;LOAD SEEK
+ SEEK!
sWAIT,
+SET BUFFER TO HOME CYLINDER (000)

RANDOM WC AND DA ROUTINE

4653 025714

STARS

4654
4655
4656
4657
4658
4659
4660

sGWCDA -- ROUTINE TO GET RANDOM SECTOR AND WORD COUNT FOR R/W TRANSFER.
i
SECTOR IS CHOSEN BETMEEN MIN/MAX LIMITS, WORD COUNT IS BETWEEN
:
MIN/MAX WORD COUNT. WORD COUNT WILL BE ADJUSTED NOT TO CAUSE
:
TRACK OVERFLOW
IF HIGH SECTORS
ARE CHOSEN....
;
R4 HAS BUFFER OF DRIVE ME'RE WORKING WITH
:
ON EXIT - BMP(RA) HAS WORD COUNT
3
- BDA(R4) HAS DISK ADDRESS

1106088068800004080008400008480808848304808804488840006448488888008444888

4661 025714

STARS

$10680888880804404080000804000088480080000888808880808844084484008008

4663 025714
4664 025722
4665 025724
4666 025730
4667 025
4668 025736
4669 025742
4670 025746
4671 025752
4672 025754
4673 025756
4674 025760
4675 025762

023737
001003
013702
000421
004537
013702
042702
023702
103003
006202
005202
000770
020237

4677 025770

006102

4676 025766

:;: 025772

103002

010632

010634

010632
024454

99¢:

177700
010632

1¢:

010634

3¢:

002262

000763

4688 026020

CvP
BNE
MOV
BR
JSR
MOV
8IC
cwe
BHIS
ASR
INC
BR
cHpe

T.MXS,T.MNS
994
T.MXS,R2
¢
RS ,RAND
LONUM,
R2
#177700,R2
T.MXS,R2
3¢
R2
R2
14
R2,T.MNS

ROL

BHIS

5S¢

sMIN MAX SECTORS EQUAL
iNO, CALCULATE ONE
:LOAD SECTOR
;GO GET WC
;+GET RANDOM ¢ FOR SECTOR 10-77 ONLY
1R2 LOWER THAN MAX
:BRANCH IF YES
sHALF IT
+INC SO NOT O
+MIN OKAY

sNOW GET WORD COUNT

‘“‘m1
4682 025774
4683 026000
4684 026002
4685 026010
% 026016

GWCDA:

005737
001003
013737
023737
103021

010664
002442
002442

S$:
010620
010620

954:

ST
BNE
MOV
cHP
BHIS

T.STIP
954
MAXWC, T.MXB
MAXWC, T.MXB
974

tRESTRICT THE XFER SIZE?
1BR IF YES
iNO - MAKE MAXWC = BIGEST XFER SIZE AVAIL.

PRINTF OFMT13D,#OVER, T.MXB,MAXWC

K&
CNRLKAO RLO1/02 PERF EXER
RANDOM WC

MACRO M1200

19-DEC-83 09:48

PAGE 36-66

SFQ 010

AND DA ROUTINE

026020
026024
026030
026034
026040
026044
026046
026050
4689 026054
4691 026062
4692 026070
xgz 026072
95 026100
6% 026104
4697 026106
4698 026112
4699 026116
4700 026122
4702 026130
4703 026132
4704 026134
4701 026126

4705 026136
4706 026142

013746
013746
012746
012746
012746
010600
104417
062706
013737
023737
003006
013737
013703
000421
004537
013703
042703

002442
010620
003453
007436
000004
000012
002442 010620
010620 010642 978:
010620 010642
010620
024454
68:
002262
160000
78:

023703 010620
103003
006203
005203
000770
020337
103002

010642

8s:

4707 026144 006103

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
CMP
8GT
MOV
MOV
B8R
JSR
MOV
8IC

cHe
BHIS
ASR
INC
8R

P
BHIS

ROL

:;g 026146 000763

B8R

MAXUC
, -(SP)
T.MXB, -(SP)
QOVER. -(SP)
mmso. (SP)
,-(SP)
sp.no
CSPNTF
012,5P
MAXWC, T.MXB
T.MX8,T.MN8
64
T.MXB,T.MN8
T.MXB,R3
9
RS, RAND
LONUM,R3
#160000,R3
T.MX8,R3
R3
R3
74

sMIN MAX EQUAL

{YES SET WC
;GET RANDOM WORD COUNT
JMAX 01

RS,T.MN8
9%

4710

sNOW WE HAVE SECTOR AND WORD COUNT,

4713 026150 012701 000050
4714 026154 005403
4715 026156 010364 000042

;IF NOT LOWER SECTOR START

:;g

4716 026162

005301

11$:

4717 026164 062703 000200
4718 026170 100774
4719 026172 020201
4720 026174

101401

4721 026176

010102

4723 026206
4724 026214

042764
050264

:;g 026220 000205

000077
000040

4727
4728 026222

040. .R1
R3S
R3,BMP(R4)

+SETUP FOR FOURTY SECTORS
JMAKE WORD COUNT NEGATIVE
;LOAD WORD COUNT

ADD
8MI
o

0128. .R3
114
R2,R1

JONE SECTOR'S WORTH
sSTILL NEED ANOTHER SECTOR
IDID RANDOM SECTOR SUFFICE

MOV

R1,R2

8IC
8IS

077 ,BDACR4)
R2,BDACRS)

DEC

000040

MOV

RTS

124

;D0MN COUNT MINIMUM START SECT NEEDED

sBRANCH IF SUFFICED

PRPOS(R4
), BDACRA

NO, THEN MAKE IT FIT

.SBTTL
ROUTINE TO DUMP BUFFER ON DCX
STARS
(¥ 8888888848888 888000880080208804200000838080482340880080002000800000

4729

;OMPBUF -- ROUTINE TO DUMP BUFFER ON DCK ERROR, TWO DUMPS ARE POSSIBLE

4730

4731

4732 026222

ONE WHERE WE CAN COMPARE WHAT IT SHOULD BE AND THE OTHER
WHEN WE CAN'T.

STARS

‘733

4734 026222

MOV
NEG
MOV

BLOS

4722 026200 016464 000124 000040 126:

CHECK THAT WORD COUNT WILL FIT ON SECTOR

] "..‘.‘.““““.“...‘.“..“.“.““."....“‘...‘.“‘..‘.‘.0.

004737

006270

DMPBUF: JSR

PC,LINES

CNRLKAO RLO1/02 PERF EXER
ROUTINE

4736
4737
4738
4739
4740
4741
4742
4743
4744
4745
4746
4747
4748

MACRO M1200

PAGE

36-67
SEQ

TO DUMP BUFFER ON DCK

;CALCULATE THE STARTING BUS ADDRESS FOR THE COMPARE
026226
026234

012737
016400

000200
000040

026240
026244
026250
026254
026256
026260
026262
026264

013701
042700
042701
010002
010103
160203
005002
062702
005303
001374
016403

002424

4749 026270

002464

MOV

93s:

002422
002342
002577

964 :

004132
007421

026372
026374
026376

026402
026406
026412
026416
026420
026422

026424
026424

026430
026434
026440
026442
026444

4774 026450
4775
4776 026452
4777 026456

027734
000010

003631
007463

000200

BDACR4),RO
€.DA,R1

MOV
MOV
SuB

RO,R2
R1,R3
R2,R3

DEC
BNE
MOV
NEG
cve
8GT
MOV
suB
BR
SUB
MOV
SuB
MOV
ASL
MOV
SuB
PRINTB
MOV
MOV
MOV
MOV
MOV

; DONE
RS
934
:NO
BMP(R4),R3
;GET WORD COUNT
R3S
sMAKE IT POSITIVE
R2,R3
;WORKING WITH FULL SECTOR
944
i1NO, GO CALC PARTIAL SECTOR
€.8A,R2
;PRESENT BUS ADDRESS
0400 ,R2
;START OF COMPARE
%4
;GO COMPARE BUFFER
R3,R2
:GET SECTOR DIFF
0128, ,RO
R2,RO
RO,DMCNT1
RO
€.BA,R2
RO, R2
OFMT13, 8BUSAD ,R2, #CRLDA, CHKSEC
CHKSEC, -(SP)
OCRLDA, -(SP)
R2,-(SP)
nusno.-(sn
13, -(SP)

ADD
MOV
MOV
[o o
BEQ
DEC
BNE

014,5P
mm.st RO
R1
(ao)o.z(na)
24
R1
14

CLR
ADD

g
TRAP

000014

14:

38:

2¢:

€128, ,DUCNT1

MOV
MOV

BIC
BIC

177700
177700

94s:

4766
4767
4768
4769
4770
4771
4772
4773

19-DEC-83 09:48

PRINTB

MOV
MOV
MOV
MOV
TRAP
ADD
B8R
cHe
BHI

€177700,R0
®177700,R1

R2
0128. ,R2

:GET STARTING BUS ADDRESS
:GET PRESENT DISK ADDRESS
1 SAVE SECTOR BITS
’

1SAVE A COPY
i SAVE ANOTHER
1GET DIFF OF SECTORS
;CALCULATE WORD COUNT
sONE SECTORS WORTH

os..(sfi
ohm

@FMT14,ONOREV

ONOREV
, -(SP)
OFMT14, -(SP)
02,-(SP)
SP,RO
COPNTB
6, 5P
STOMP
(R2),0128.
3

sCHECK PATTERN LIST

0102

CNRLKAO RLO1702 PERF EXER
ROUTINE

MACRO M1200

19-DEC-83 09:48

PAGE 36-68

SEGQ

TO DUMP BUFFER ON DCK

4778 026460

:;;3 026464

4781 0264;O

005037

013701

012237

002344

010662
002346

013737
005437

002346
002462

002462

4785 026512
4786 026520

162737
012737

000002
000002

002346
002352

000020

002360

4784 026506

4787 026526

4788 026532

4789 026540
a
026544
4791 026546

4792 026552

012237

013703
012737

005737

001417
005337

005737

002350

002350
002346

CLR

DECNT

MOV

(R2)+,TEMPO

MOV

4782 026474
4783 026502

SuB
MOV

#2,TEMPO
02, TEMP2

1 WORD

MOV

016.,TEMPS

116 ENTRIES

BEQ
DEC

64
TEMPO

BNE
MOV
MOV
MOV
DEC
BR
CLR
INC
[
BEQ

-1
016.,TEMPS
TEMP1,R3
(R3)+,GDDAT
TEMPS
74
GDDAT
OWCNT
(R2),GDDAT
8¢

INC

DECNT
8¢
R1

MOV

002346
002360

TST

001005
012737
013703
012337
005337
000402
005037
005237
021237
001422

4804 026622

005237

4806 026630
4807 026632

001416
005301

BEQ
DEC

011246
013746
013746
012746
012746
010600
104414
062706

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

4805 026626
4808 026634

026634
026636
026642
026646
026652
026656
026660
026662

4810 026666

005701

000020
002350
002402
002360

002402
002352
007504
000004
000012

002352

026704
026710
026714
026720
026724
026726
pa— 026730

013746
013746
012746
012746
010600
104414
062706

002352
002344
007223
000003

g{g 026734

000205

4814 026704

TST

PRINTB

023737
003716

4812 026674
4813 026702

64:
7%:

002344

002352

005722

S5s:

002402
002462
002402

005237

4811 026672

002360

000010

8s:
002464

iNONZERO WORD COUNT

TEMPC, DWCNT
DWCNT

MOV

4%:

T.CLT,R1

MOV
NEG

4793 026556
4794 026560
4795 026566
4796 026572
4797 026576
4798 026602
4799 026604
4800 026610
4801 026614
0‘03 026620

4818
4819

(R2)+,TEMP1

TEMP1,R3
TEMPO

TEMPS

: ZERO BRANCH

sWITHIN LIST

@FMT148,TEMP2,GDDAT,(R2)

(R2),-(SP)
GDDAT, -(SP)
TEMP2, -(SP)
OFMT148, -(SP)
o4, -(SP)
.
CIPNTB
#12,SP
TEMP2

cHe
BLE

TEMP2,DMCNT1
ai

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

TEMP2, -(SP)
DECNT, -(SP)
OFMT9A, -(SP)
3, -(SP)
,RO
C$PNTB
#10,5P

RTS

PRINTB

:+ZERO OR PATTERN

INC
TST

sPATTERN ADDRESS

(R2)+

&FMTOA,DECNT,TEMP2

sROUTINE TO DUMP THE CONTENTS OF THE READ BUFFER ON ERROR DETECTED
sWILL ALSO TELL HOW MANY WORDS WERE IN THE XFER

0103

CNRLKAO RLO1/702 PERF EXER

PAGE

36-69

SEQ 0104

TO DUMP BUFFER ON DCk

026736
026744
026750
026756

026756
026762
026766

026772
026774
026776

4825 027002
4826 027006
4827 027012

027012
027014
027020

016437
005437
012737

000042

013746
012746
012746
010600
104414
062706
013701
012703

002346
007673
000002

011246
012746
012746
010600
104414
062706
005722
005303
001012

012746
N12746
010600
104414

002346
000200

000006
010662
000012

002346

BMP(R4), TEMPO

STDMP:

002464

#6,5P

T.CLT,R1
#10.,R3
#FMT14A,(R2)

1%:

THE & POSITIVE

;SET THE SIZE OF SECTOR
; TELL TRANSFER SIZE

(R2),-(SP)

;GET THE PRINT LIMIT
sSETUP LINE LIMIT
sPRINT A DATA WORD

OFMT14A, -(SP)

000006

007501
000001

24:
3s:

;POINT TO THE NEXT DATA WORD
;DOONE WITH THE LINE?
;BR IF NO
:YES - PRINT <CR>

sRESET THE LINE LIMIT
sEND OF SECTOR?
:BR IF NO
sYES - EXIT
;AT PRINT LIMIT?

:BR IF NO

iPRINT <CR>

sEXIT

007501
000001

tMAKE

SP,RO
C$PNTB

007472
000002

000012

;GET NEGATIVE WORD COUNT

OFMTXS, -(SP)

4820
4821
4822
4823
4824

19-DEC-83 09:48

SRR
OR

ROUTINE

MACRO M1200

:mm 70 CLEAR ALL DRIVE INFO, USED ON START OR
ks

CALLED. CAN BE USED TO CLEAR INDIVIDUAL DRIVE
tRESTART
sINFO BY BITMAP FOLLOWING CALL
RS,CLEAR
JSR
sCALL

a%:

“’

246:

3g® !i

4854 027144

031642

CLEAR:

~
r

4850 027132
4851 027134
4852 027140
4853 027142

030362

4848 027124
4849 027126

3RIcES

R4
.

. SENDBUF
)+ ,R4

1SAVE R4
1GET BUFFER STARTS

;1CLEAR
+AT END OF BUFFERS
iNO, GO TO 2%
'?g;“ CURRENT BUFFER POINTER
1EX

£
CNRLXAQ RLOL1/702 PERF EXER
ROUTINE

MACRO M1200

19 DEC-8% 09:48

PAGE

3670

K0 QLS

10 DUMP BUFFER ON DCx

4855

485¢

.SBTTL

4857 027146

STARS

ROUTINE TO CHECK FOR BAD SECTOR

1300800008000 000000000000008000000000808080%808000008000000000008000
0

4858

;CXBDSC

4859
4860 027146

3
STARS

- - POUTINE TO MATCH BAD SECTOR..... BDA(R4) IS SECTOR WE ARE LOOKING

FOR IN LIST POINTED

TO BY BSECPT(RA)...... HORFND IS SET

WE FIND IT.

1100000800800 00300000808088008000000000000000800800000000000008000

4861

4862 027146

005037

002340

012700

000021

001411
023712
001404

002342

4863 027152
4864 027154

010046
010246

4866 027162
4867 027166

016402
022712

4865 027156

4868 027172
4869 027174
4870 027200

4871 027202

4872 027204
4873 027206
4874 027210
4875 027212
4876 027216
4877 027220

::;g 027222

000112
177777

005300
001367
000402
005237
012602
012600

002340

as:

1CLEAR FLAG

017.,RO

116 ENTRIES + BSF POINTER

RO, -(SP)
R2,-(SP)

BSECPT(R4),R2
0-1,(R2)

BEQ
cHe
BFQ
TST

&%
CHKSEC, (R2)
38
(R2).

MOV
MOV

(SP).,R2
(SP)+,RO

RO
24
a8
HORFND

i SAVE RO
sSAVE
R2

;GET WHERE WE'RE LOOKING
1END OF ENTRY LIST?

$BRANCH IF END
sHAVE WE GOT A MATCH
s THEN GO SET INDICATOR, ELSE

1SET FLAG FOUND

§10000000000000000000000000000000000000000000000080000800800808005

;CKBDTX -- HMERE TO CHECK IF CYLINDER € MEAD SELECTED IS IN THE BAD SECTOR FILE

STARS

110080000000000000000000000000000000800000000000000000000000000800

4884 027224
4885 027230
4886 027232
4887 027234
4888 027236
4889 027242
4890 027246
4891 027252
4892 027254
4893 027256
4894 027262
4895 027266

005037
010046
010146
010246
012700
016402
022712
001414
011201
043701
023701
001404

4897 027272

005300

4904 027312
4905
4906 027314

38:

DEC
BNE
BR
INC

HORFND

STARS

4900 027300
4901 027304
4902 027306
4903 027310

MOV
cHp

RTS

4882 027224

48948 027274
4899 027276

MOV

18%:
2%:

000205

4881

4896 027270

MOV
MOV

005722

4880 027224

CxBDSC: CLR

002340

000021
000112
177777

002272

002342

005722

001364
000402

005237
012602
012601
012600

CXBDOTK: CLR
MOV
MOV
MOV
MOV
18:
MOV
2%:
ce
B8EQ
MOV
8IC
cHe
BEQ
TST

DEC

002340

3s:
44:

000205

BNE
B8R

INC
MOV
MOV
MOV
RTS

HORFND
RO, -(SP)
R1,-(SP)
R2,-(SP)
#17.,R0
BSECPT(R4A)
,R2
e-1,(R2)
4
(R2).R1
SMSK,R1
CHXSEC,R1
3¢
(R2)+

1CLEAR FLAG
i5AVE RO
1SAVE R1
1SAVE R2
116 ENTRIES . B5F POINTER
;GET WHERE MWE'RE LOOXING
iEND OF LIST?
tBRANCMH IF END
1GET THE ENTRY FROM BAD SECT FILE
sLEAVE ONLY CYL & & MEAD
sHAVE WE GOT A MATCH
s THEN GO SET INDICATOR, ELSE

24
4%
HORFND
(SP)+,R2
(SP).,R1
(SP)«,RO

1SET FLAG FOUND

STARS
10 80 80 0 0080080000800080000000000000000000000000000
0800000000

C4
CNRLKAO RLO1/02 PERF EXER
ROUTINE

MACRO M1200

19 DEC-83 09:48

PAGE

36 71

T0 CHECK FOR BAD SECTOR

4907 027314

STARS

4308

{BUFFER TO STORE BAD SECTOR LISTS

3"0.“..‘0‘.0‘......‘...........‘........‘...!0‘0..0.000.00..O..

4909
4910 027314

BSECO:

.BLKW

17,

4912
4913
4914
4915

BSEC2:
BSEC3:
BSECA:
BSECS:

.BLKW
.BLKW
.BLKW
.BLKW

17.
17.
17.
17.

4911 027356

BSEC1:

027420
027462
027524
027566

4916 027630
4917 027672

BSEC6:
BSEC7:

4918 027734

STARS

.BLKW

.BLKW
.BLKW

17.

17,
17.

1108080008000 000000088000080008804802800000048000000800000888080808

4919 027734

STARS
3:0000888888000000000000000880088008000800000%88008008000000%8000080

4920

4921

4923
4924
4925
4926
4927
4928

sLIST OF PATTERNS USED IN WRITING
027734
027736
027740
027742
027744
027746

027754
030014
030054

::g? 027752

030314

030114

PATLST: PATO
PATL
PAT2
PATS
PATA
PATS

4929 027750

030154
030214
030254

4932
4933
4934
4935
4936
4937
4938
4939
4940
4941

027754
027756
027760
027762
027764
027766
027770
027772
027774
027776

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

PATO:

4949 030014

177777

PAT1:

4952 030022
4953 030024

052525
052525

4942
4943
4944
4945
4946
4347

030000
030002
030004
030006
030010
030012

4950 030016
4951 030020
4954
4955
4956
4957
4958

030026
030030
030032
030034
030036

4959 030040
4960 030042

PAT6

PAT?

000000
000000
000000
000000
000000
000000
177777
177777

052525
177777
177777
052525
052525

177777

052525

;ALL 0'S
;-1'S _TO ALT BITS
;0'S TO ALT BITS
;SHMIFTING ALT BITS
;WORST CASE DATA
;STRANGE DATA
jALL

1'S

;STRANGE DATA

.MORD
.MORD
JMORD
.MORD
.MORD
JMORD
JMORD
.MORD
.MORD
.MORD

.MORD

177777

.MORD
.WORD

052525
052525

JMORD
.MORD
.MORD
JMORD
JMORD
JMORD
LMORD
JMORD
.MORD
JMORD
JMORD
.MORD
.MORD

JMORD

.MORD

052525
177777
177777
052525
052525

177777

052525

D9
CNRLKAO RLO1702 PERF EXER

177252

4963
030080 172765
172765
4964 030052
::2 030054 000000

4972
4973
4974
4975
4976
4977
4978

4979
4980
4981

030056
030060
030062
030064
030066

030070
030072
030074
030076
030100
030102
030104
030106
030110
030112

000000
000000
177777
177777
177777

.WORD

PAT2:

000000
000000
177777
177777

[ORD
. WORD

177252

172765
172765

000000
177777
000000

177777
000000
177777
PATS:

030122
030124
030126
030130
030132
030134
030136
030140
030142
030144
030146
0301350
030152

025252
052525
052525
123252
125252
125252
052525
0352325
1252S2
123252
052525
1235252
0352525
125252
052525
125252

S000 030154
S001 030156
5002 030160
S003 030162
S004 030164
5005 030166
S006 030170
5007 030172
5008 030174
5009 030176
5010 030200
5011 030202
5012 030204
S013 030206
5014 030210
558{2 030212

155555
066666
133333
155555
066666
133333
155555
“g‘“
133333
155555
066666
133333
155555
066666
133333
155555

PATA:

5017 030214

121105

PATS:

&
030114
4984 030116
4985 030120

4986
4987
4988
4989
4990
4991
4992
4993
4994
4995
4996
4997
4998
4

PAGE

TO CHECK FOR BAD SECTOR

4961 030044

4967
4968
4969
4970
4971

19 DEC-83 09:48

§8838885

ROUTINE

MACRO M1200

155555

121105

36-72

E9
CNRLKAO RLO1/02 PERF EXER
ROUTINE

MACRO M1200

19-DEC-83 09:48

36-73

TO CHECK FOR BAD SECTOR

5018 030216
5019 030220
5020 030222
5021 030224
5022 030226
5023 030230

5024 030232
5025 030234

5026 030236

5027 030240

5028 030242
5029 030244
5030 030246
5031 030230
gg 030252

150442
064221
132110

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

055044
026422
013211
105504
042642
021321
110550
044264
022132

.WORD

.WORD
.MORD
.WORD
.MORD
.WORD

011055
104426
042213

5034 030254
5035 030256
5036 030260
S037 030262
5038 030264
5039 030266
5040 030270

177777
177777
177777
177777
177777
177777
177777

PAT6:

5051
5052
S053
S054

030314
030316
030320
030322

045513
122645
151322
064551

PAT7:

5056 030326

055132

. WORD

S068 030354
5069 030356

000240

ENDOFPROGRAM:
ENDTST

S041 030272
5042 030274
S043 030276
S044 030300
S045 030302
5046 030304
S047 030306
5048 030310
5049 030312

5057 030330
5058 030332
5059 030334
S060 030336
S061 030340
5062 030342
S063 030344
S064 030346
S065 030350
% 030352

030356
030356
Ssgzg 030360
S072

PAGE

177777
177777
177777
177777
177777
177777
177777
177777
177777

104401
000000

.SBTTL

11055

104426
42213

177777
177777
177777
177777
177777
177777
177777

.MORD
LMORD
.MORD
.MORD

45513
122645
151322
64351

.HORD
LHORD
.WORD
LWORD
.WORD
.WORD
LMORD
.MORD
.MORD
.HORD

L10024:

55044
26422
13211
105504
42642
21321
110550
44264
22132

.MORD
.HORD
.MORD
LMORD
LHORD
.WORD
LMORD

LMORD
.MORD
LMORD
.WORD
LHORD
.WMORD
.MORD
LMORD
LMORD

026455
113226
045513
122645
151322
064551
132264
055132
026455
113226

150442
64221
132110

TRAP
HALT

177777
177777
177777
177777
177777
177777
177777
177777
177777

5132

26435
113226
45513
122645
151322
64551
132264
55132
26455
113226
NOP

CSETST

DORIVE INFORMATION BUFFERS

SEQ 0108

F9
CNRLKAQ RLO1/702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-74

DRIVE INFORMATION BUFFERS
5073

5074

5075
5076
5077
5078 030362
5079
5124

;:DRIVE INFORMATION BUFFER
AISYT
:
DRBUF

.REPT

1 SEEK OPERATION COUNT
IREAD U’ERATIM CO\.NT (BITS) LOW ORDER
"

HIGH ORDER

”

HIGH ORDER

nflITE WERAYIM CMT (BITS) LOW ORDER
3Em CO\NT - HARD
1ERROR COUNT - SOFT

1SEEK ERROR COUNT
sDRIVE ERROR COUNT

1DATA CRC ERROR COUNT

tHEADER CRC ERROR COUNT
1DATA LATE ERROR COUNT
sOPERATION INCOMPLETE ERROR COUNT
sHEADER NOT FOUND ERROR COUNT
sNON EXISTANT MEMORY ERROR COUNT
IPRESENY RETRY NUMBER
a

DISK ADDRESS CONTENTS

IFRESENY MULTIPURPOSE CONTENTS
sLAST FUNCTION LOADED
1CSR_IMAGE OF LAST COMMAND
ILAST POSITION ON DISK
;ERROR ON WHICH RECOVERY IS IN PROGRESS
lSEEK COUNT LOW ORDER
1PROGRAM INTERNAL FLAGS

sWRITE COUNT THIRD

1DISK ADDRESS OF SOFT ERROR

sLAST DIFFERENCE WORD OF SEEK
1 TIME DRIVE WAS DROPPED
1 TRACKING ERROR COUNT
1MRITE CHECK NECESARY

1SERIAL NUMBER OF CARTRIDGE
1SERIAL NUMBER OF CARTRIDGE
1CSR ADDRESS
lNIVE SELECT BITS(8,9,10)
sPRESENT BUS ADDRESS CONTENTS
1POINTER TO BAD SECTOR FILE

1CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLO1 =1)
tMRITE IN PROGRESS FLAG

+PRESENT POSITION ON DISK
1 SEEK OPERATION COUNT

lREAD WERATIW COUNT (DITS) LOW ORDER

HIGH ORDER

nlute WERATIW CMT (BIYS) LOW ORDER
HIGH ORDER
*
!

CNRLKAO RLO1/02 PERF EXER
DRIVE

MACRO M1200

19-DEC-83 09:48

PAGE

36-75
SEQ

INFORMATION BUFFERS
030522
030524
030526
030530
030532
030534
030536
030540
030542

030544
030546
030550
030552

000012
000014
000016

ERRCNT
SFTCNT
SKECNT
DERCNT
DCRCER

HCRCER
DLTCNT

OPICNT
HNFERR
NXMCNT
RETRY

BDA
8MP

FUNC

BCSADR
LSTHOR
RTYPE

SKCNT1

PRFLGS
RXFR3
WXFR3

LSTDA

DIFWD

{ERROR COUNT

HARD

1ERROR COUNT - SOFT
s SEEK_ ERROR COUNT
1ORIVE ERROR COUNT
sDATA CRC ERROR COUNT
tHEADER CRC ERROR COUNT
:DATA LATE ERROR COUNT
sOPERATION INCOMPLETE ERROR COUNT
sHEADER NOT FOUND ERROR COUNT
sNON EXISTANT MEMORY ERROR COUNT

;PRESENT RETRY NUMBER

;
=
DISK ADDRESS CONTENTS
sPRESENT MULTIPURPOSE CONTENTS
:LAST FUNCTION LOADED
1CSR_IMAGE OF LAST COMMAND
ILAST POSITION ON DISK
1ERROR ON WHICH RECOVERY IS IN PROGRESS

tWRITE COUNT THIRD

1DISK ADDRESS OF SOFT ERROR

1LAST DIFFERENCE WORD OF SEEK
: TIME DRIVE WAS DROPPED
s TRACKING ERROR COUNT

sWRITE CHECK NECESARY
s SERIAL NUMBER OF CARTRIDGE

+SERIAL NUMBER OF CARTRIDGE
1CSR ADDRESS
sDRIVE SELECT BITS(8,9,10)

sPRESENT BUS ADDRESS CONTENTS
sPOINTER TO BAD SECTOR FILE

1CSR AT TIME OF SOFT ERROR
sDRIVE TYPE FLAG (RLO1 =1)
iWRITE IN PROGRESS FLAG
sPRESENT POSITION OM DISK
s SEEK OPERATION COUNT
.neno MTIOC CMT (BITS) LOW ORDER

IRITE MTIN CMT (DITS) LOuW
.m CMY - m
;ERROR COUNT - SOFT
1SEEK ERROR COUNT
;DRIVE ERROR COUNT
1 HEADER

lel LATE ERROR COUNT
tOPERATION INCOMPLETE ERROR COUNT

.rcw NOT FOUND ERROR COUNT

sNON EXISTANT MEMORY ERROR COUNT
lPRESENT RETRY NUMBER
-

DISK ADDRESS CONTENTS

lPflESENT MULTIPURPOSE CONTENTS

0110

H
CNRLKAQ RLO1/02 PERF EXER

MACRC M1200

19-DEC-83 09:48

PAGE

36-76
SEQ 0111

DRIVE INFORMATION BUFFERS
iLAST FUNCTION LOADED

030702
030704
030706
030710
030712
030714
030716
030720
030722
030724
030726

030730
030732
030734
030736
030740
030742
030744
030746
030750
030752
030754
030756
030760
030762

030764
030766
030770
030772
030774
030776
031000
031002
031004
031006
031010
031012
031014
031016
031020
031022
031024
031026
031030
031032
031034
031036
031040
031042
031044
031046
031050
031052
031054
031056
031060

:CSR _IMAGE OF LAST COMMAND

.3LAST POSITION ON DISK

+ERROR ON WHICH RECOVERY IS IN PROGRESS
1 SEEK COUNT LOW ORDER
1PROGRAM INTERNAL FLAGS
sREAD COUNT THIRD
tWRITE COUNT THIRD
+DISK ADDRESS OF SOFT ERROR
sLAST DIFFERENCE WORD OF SEEK
+TIME DRIVE WAS DROPPED
s TRACKING ERROR COUNT

000110
000112
000114
000116

iMRITE CHECK NECESARY
s SERIAL NUMBER OF CARTRIDGE
1 SERIAL NUMBER OF CARTRIDGE
1CSR ADDRESS
sDRIVE SELECT BITS(8,9,10)
sPRESENT BUS ADDRESS CONTENTS
+POINTER TO BAD SECTOR FILE

;CSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLO1 =1)
sMRITE IN PROGRESS FLAG
sPRESENT POSITION ON DISK

s SEEK OPERATION COUNT
meno MYIOC CMT (BITS) LOW ORDER
*

HIGH ORDER

IIRITE OERM’IDC CMY (BITS) LOW ORDER
am lel‘r - M
- SOFT
;ERROR COUNT
;SEEXK ERROR COUNT
sDRIVE ERROR COUNT
sDATA CRC ERROR COUNT

sHEADER CRC ERROR COUNT

DMA LATE ERROR COUNT
smtlfll INCOMPLETE ERROR COUNT

sHEADER NOT FOUND ERROR COUNT

iNON EXISTANT MEMORY ERROR COUNT

m!sem RETRY NUMBER
"

DISK ADDRESS CONTENTS

’IESEN‘I’ MULTIPURPOSE CONTENTS

lLAST FUNCTION LOADED
:CSR IMAGE OF LAST COMMAND
;LAST POSITION ON DISK
;1ERROR ON WHICH RECOVERY IS IN PROGRESS
1SEEK COUNT LOW ORDER
1PROGRAM INTERNAL FLAGS
1READ COUNT THIRD
JWRITE COUNT THIRD
1DISK ADDRESS OF SOFT ERROR

1LAST DIFFERENCE WORD OF SEEX
1 TIME DRIVE WAS DROPPED

1 TRACKING ERROR COUNT

CNRLKAO RLO1702 PERF EXER
DRIVE

MACRO M1200

19-DEC-83 09:48

PAGE

36-77

INFORMATION BUFFERS

031062
031064
031066
031070
031072
031074
031076
031100
031102
031104
031106
031110

031112
031114
031116
031120
031122
031124
031126
031130
031132
031134
031136
031140
031142
031144
031146
031150
031152
031154
031156
031160
031162
031164
031166
031170
031172
031174
031176
031200
031202
031204
031206
031210
031212
031214
031216
031220
031222
031224
031226
031230
031232
031234
031236

000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124

DOWCK
SERNM1
SERNM2
DCS
DRSEL
BBA
BSECPT
RSEEK

tWRITE CHECK NECESARY

i SERIAL NUMBER OF CARTRIDGE
1 SERIAL NUMBER OF CARTRIDGE
1CSR ADDRESS
+ORIVE SELECT BITS(8,9,10)
1PRESENT BUS ADDRESS CONTENTS
1POINTER TO BAD SECTOR FILE

SOFTCS

1CSR AT TIME OF SOFT ERROR
sORIVE TYPE FLAG (RLO1 =1)
sWRITE IN PROGRESS FLAG
sPRESENT POSITION ON DISK

SKCNT

1 SEEK OPERATION COUNT
IREM mnxon CMT (BITS) LOW ORDER

TOR
WRIPG
PRPOS

RXFR1
RXFR2
WXFR1

WXFR2
ERRCNT

SFTCNT
SKECNT
DERCNT
DCRCER

HCRCER

”

HIGH ORDER

lWITE MAYIW CMT (BITS) LOW ORDER
|ERROR COUNT - HARD
1ERROR COUNT - SOFT
s SEEK ERROR COUNT

“

HIGH ORDER

sORIVE ERROR COUNT
sDATA CRC ERROR COUNT

DLTCNT
OPICNT

HNFERR

NXMCNT
RETRY

.004 EXISTANT MEMORY ERROR COUNT
1PRESENT RETRY NUMBER
DISK ADDRESS CONTENTS

1CSR_IMAGE OF LAST COMMAND

iLAST POSITIN ON DISK

+ERROR
ON WMICH RECOVERY IS IN PROGRESS

000074
000076
000100
000102
000104
000106
000110
000112
000114
000116

000122
000124

1MRITE CHECK NECESARY

1 SERIAL NUMBER OF CARTRIDGE

sSflIfl. NUMBER OF CARTRIDGE
1CSR ADDRESS

1DRIVE SELECT BIT7S(8,9,10)

1PRESENT BUS ADDRESS CONTENTS

OPOINYER TO BAD SECTOR FILE
1CSR AT TIME OF SOFT ERROR
tORIVE TYPE FLAG (RLO1 =1)
JWRITE IN PROGRESS FLAG
+PRESENT POSITION ON DISK

J9
CNRLKAQ RLO1/02 PERF EXER
DRIVE

MACRO M1200

19-DEC-83 09:48

PAGE

36-78
SEQ

INFORMATION BUFFERS
SKCNT

031240
031242
031244
031246
031250
031252
031254
031256
031260
031262
031264
031266
031270
031272
031274
031276

031300
031302
031304
031306
031310
031312
031314
031316
031320
031322
031324
031326
031330
031332
031334
031336
031340
031342
031344
031346
031350
031352
031354
031356
031360
031362
031364

031366
031370
031372
031374
031376
031400
031402
031404
031406
031410
031412
031414
031416

RXFR1
RXFR2
WXFR1
WXFR2

ERRCNT
SFTCNT
SKECNT
DERCNT
DCRCER
HCRCER
DLTCNT
OPICNT
HNFERR

NXMCNT
RETRY
BDA
8MP

s SEEK OPERATION COUNT

lREAD MRATIM COl.NT (BITS) LOW ORDER
;WIYE WERAYIW CO\NT

"
HIGH ORDER
(BITS) LOW ORDER

.ennoa CMT - HARD
1ERROR COUNT - SOFT
: SEEK_ERROR COUNT

“

HIGH ORDER

1DRIVE ERROR COUNT
1DATA CRC ERROR COUNT
1HEADER CRC ERROR COUNT
1DATA LATE ERROR COUNT
1OPERATION INCOMPLETE ERROR COUNT
tHEADER NOT FOUND ERROR COUNT
sNON EXISTANT MEMORY ERROR COUNT

IPRESENT RETRY NUMBER
e

DISK ADDRESS CONTENTS

FUNC

lFlESENT MULTIPURPOSE CONTENTS
sLAST FUNCTION LOADED

RTYPE

tLAST POSITION ON DISK
sERROR ON WHICH RECOVERY IS IN PROGRESS

BCSADR
LSTHDR

SKCNT1

sCSR_IMAGE OF LAST COMMAND

PRFLGS
RXFR3
WXFR3

LSTDA
DIFWD
DPHOUR
TRERR

DATCER

000110
000114

1 TIME DRIVE MWAS DROPPED
1 TRACKING ERROR COUNT
1SER
oSElIM. NUMBER OF CARTRIDGE
:CSR ADORESS
INIVE SELECT BITS(8.9,10)

1PRESENT BUS ADDRESS CONTENTS

wonam TO BAD SECTOR FILE
1CSR AT _TIME OF SOFT ERROR
tORIVE TYPE FLAG (RLO1 =1)
tWRITE IN PROGRESS FLAG

1PRESENT POSITION ON DISK
1 SEEX OPERATION COUNT
.m MTIN cm (BITS) LOW ORDER
HIGH ORDER
*
llflITE MTIN M (BITS) LOW ORDER
'

HIGH ORDE

1DATA CRC ERROR COUNT

tHEADER CRC ERROR COUNT

lDlTA LATE ERROR COUNT
JOPERATION INCOMPLETE ERROR COUNT

0117

<9
CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-79

SEQ 0114

DRIVE INFORMATION BUFFERS

031420
031422
031424
031426
031430
031432
031434
031436
031440
031442
031444
031446
031450
031452
031454
031456
031460
031462
031464
031466
031470
031472
031474
031476
031500
031502
031504
031506
031510
031512
031514
031516
031520
031522
031524
031526
031530
031532
031534
031536
031,40
031542
031544
031546
031550
031552
031554
031556
031560
- 031562
031564
031566
031570
031572
031574
031576

000032
000034
000036
000042

HNFERR

+HEADER NOT FOUND ERROR COUNT

RETRY

sNON EXISTANT MEMORY ERROR COUNT
lPRESENY RETRY NUMBER

FUNC

lPRESENY MUL TIPURPOSE CONTENTS
iLAST FUNCTION LOADED

RTYPE

sLAST POSITION ON DISK
+ERROR ON WHICH RECOVERY IS IN PROGRESS

NXMCNT

BDA

BCSADR
LSTHOR

SKCNT1
PRFLGS
RXFR3
WXFR3

LSTDA
DIFWD
TRERR

DATCER
SERNM1
DRSEL
BBA
BSECPT
RSEEK

SOFTCS

WRIPG

SKCNT

RXFR1

DISK ADDRESS CONTENTS

iCSR_IMAGE OF LAST COMMAND
1 SEEK COUNT LOW ORDER

1PROGRAM INTERNAL FLAGS

+READ COUNT THIRD
IWRITE COUNT THIRD
1DISK ADDRESS OF SOFT ERROR

;LAST DIFFERENCE WORD OF SEEK
; TIME DRIVE WAS DROPPED
s TRACKING ERROR COUNT
sWRITE CHECK NECESARY
1 SERIAL NUMBER OF CARTRIDGE
:SERIAL NUMBER OF CARTRIDGE
1CSR ADDRESS
;ORIVE SELECT BITS(8,9,10)
sPRESENT BUS ADDRESS CONTENTS
;POINTER TO BAD SECTOR FILE

1CSR AT TIME OF SOFT ERROR
1DRIVE TYPE FLAG (RLO1 =1)
sWRITE IN PROGRESS FLAG
sPRESENT POSITION ON DISK
s SEEK OPERATION COUNT
am OEIAYIOI M (BITS) LOW ORDER
*

HIGH ORDER

l'IYE MTIOC CGNT (IIYS) LOW ORDER
'
HIGH ORDER

+SEEK COUNT LOW ORDER

1PROGRAM INTERNAL FLAGS

.neno COUNT THIRD
1WRITE COUNT THIRD

CNRLKAO RLO1/02 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

36-80
SEQ

DRIVE INFORMATION BUFFERS

031622
031624
031626
031630
031632
031634
031636
031640

5125
5126
5127 031642

5129
5130
5131 031644
5132 031644
031644
5133
5134 031646
031646
031650
031652
5135 031654
031654
031656
031660
031662
5136 031664
031664
031666
031670
031672
5137 031674
031674
031676
031700
031702
031704
S138 031706
031706
031710
031712
5139 031714
031714
031716
031720
031722
031724

000064
000066
000070
000072
000074
000076
000100
000102
000104
000106
000110
000112
000114
000116
000120
000122
000124
000000

1DISK ADDRESS OF SOFT ERROR
1LAST DIFFERENCE WORD OF SEEK

LSTDA
DIFWD
DPHOUR
TRERR

+ TIME DRIVE WAS DROPPED
s TRACKING ERROR COUNT

‘DATCER
DOWCK
SERNM1
SERNM2
DCS
DRSEL
BBA
BSECPT

tWRITE CHECK NECESARY
1 SERIAL NUMBER OF CARTRIDGE
: SERIAL NUMBER OF CARTRIDGE

sORIVE SELECT BITS(8,9,10)
+PRESENT BUS ADDRESS CONTENTS
sPOINTER TO BAD SECTOR FILE

RSEEK

sCSR AT TIME OF SOFT ERROR
;DRIVE TYPE FLAG (RLO1 =1)

SOFTCS

TDR
WRIPG

NLIST

PRPOS
ME

ENDBUF:

.WORD

tWRITE IN PROGRESS FLAG
sPRESENT POSITION ON DISK

;QUESTIONS TO GET PARAMETERS FOR HARDWARE P-TABLE

000030

005130
031726
000001

000031
031733
177776
001031
032002

000776
004032
032011
003400
000007

003130
031760
000001

002032
031747
000340

.WORD L10030-L$HARD/2

sissaaadannntunnnin

031600
031602
031604
031606
031610
031612
031614
031616
031620

CNTYPE,CNT,1,YES
T4CO0E
?‘TV’E

T4CODE

CSRMSG

TOLOLIM
TSHILIM

T $CODE
VECMSG

THLOLIM
TOMILIM
DRMSG,DRBT,0,03400,0,7,YES
T4CODE

DRMSG
03400

TOLOLIM
TOHILIM

DRTYPE, TYPDR, 1, YES
T4CODE
glmrre

BRMSG,PRIOR,0,340,0,7,YES
T4CODE

BRMSG
340

TOLOLIM
TOHILIM

011°

M
MACRO M1200

CNRLKAO RLO1702 PERF EXER
DRIVE

19-DEC-83 09:48

PAGE

36-81

SEQ 0116

INFORMATION BUFFERS

5140
S141 031726

104
126
104

;QUESTIONS TO GET PARAMETERS FOR SOFTWARE P-TABLE

5175
5176 032100

BGNSFT
.WORD L10031-L$SOFT/2
RTMSG,RLY,D,177777,0,177777,YES

T4CODE

000052
032707
177777
000000
177777

RTMSG

m
v

-~
~
4
-~

(=]

[

~
-~
~
-~
~

m
w

~4
-~

~
~
~4

032052
032551
177777
000000
000200

~
~
~
~
-~

020130

031052
032532
177777
000000
177777
033175
000001

177777

000210

SFTPRM

5173
5174

BGNMOD

S172

S171

/RL1l/
/BUS ADDRESS/
/BR LEVEL/
/DRIVE TYPE = RLOl/
/VECTOR/
/DRIVE/

P>
-

5170

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

5169

111
103
111

CNTYPE:
CSRMSG:
BRMSG:
DRTYPE:
VECMSG:
DRMSG:

5167
5168

122
122
105
122

061
123

ENDMOD

5162
5163
5164

5165
5166

114

5150 031760
5151 032002
5152 032011
5153
5157
5158
5159
5160 032020
5161

122
102

031726
S142
5146
5147 031726
5148 031733
5149 031747

021130
033256
000001
032044

ERMSG,ELT,D,177777,0,177777,YES

:JSD REV A

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE 36-82

DRIVE INFORMATION BUFFERS

032100
032102
032104

001052
032623
177777

032106
032110
5177 032112
032112
032114
032116
032120
032122
5178 032124

000000
177777

032130
032132

177777
000000
177777

032124
032126

032134
5179 032136
032136
032140
032142
032144
032146
5180 032150
032150
032152
032154
032156
032160
5181 032162
032162

032164
032166

5182 032170
032170
5183 032172
032172
032174
032176

032200
032202

5184 032204
032204

032206
032210
032212
032214
5185 032216
032216
032220
032222
5186 032224

.WORD
.WORD
GPRMD
.WORD
.MORD
.WORD
.WORD
.WORD
GPRMD

023052
032637

177777
000000
177777

036052
033312

.WORD
.MORD
.MORD
.MORD

002052
032721
177777
000000
177777

025052
032734
177777
000000
177777
024130

033221
000001

013044
003052
032747
177777
000001
177776
004052
032777
177777
000001
177776

010130
033017
000001

032224

107044

032230
032232

034130
032502
000001

5187 032226
032226

.WORD
.WORD
.WORD

177777
TS$LOLIM
TS$HILIM
DERPMS,DCD,D,177777,0,177777,YES
T$CODE
DERPMS

LWORD
GPRMD
.WORD
.WORD
.MORD
.HORD
LWORD
GPRMD
.WORD
.HORD
.WORD
.MORD
LMORD

177777
TSLOLIM
TSHILIM
SEMSG,SET,D,177777,0,177777,YES
T$CODE
SEMSG
177777
TSLOLIM
TOHILIM
DREMSG,DET,.D,177777,0,177777,YES
TSCODE
DREMSG
177777
THLOLIM
TOHILIM

.MORD
LHORD

STLMT
1

GPRML
.WORD

STLMT,OPFLG,1,YES
T$CODE

XFERF
.MORD
GPRMD
.WORD
.MORD
MORD

24
T$CODE
DAMSG,DAT,D,177777,1,177776,YES
T$CODE
DAMSG
177777

GPRMD
.MORD

SKMSG,SKT,.D,177777,1,177776.YES
T4CODE

LHMORD
LHORD

2¢:

Ts$CODE
ERMSG
177777
TSLOLIM
TS$HILIM
SFTMSG,SEL,D,177777,0,177777,YES
T$CODE
SFTMSG

.a
.
LMORD
LHORD
GPRML
.MORD
.HORD
.MORD
XFERF

.MORD

GPRML
.WORD

.MORD
.WORD

TSLOLIM
THHILIM

SKMSG
177777
THLOLIM
THMILIM
CHANGE ,CHFLG,1,YES
T$CODE
CHANGE
1
14

T4CODE

STIPMS,STIP,1,YES
T$CODE

STIPMS
1

SEG 0117

B1O
CNRLXAQ RLOL1/702 PERF EXER
DRIVE

MACRO M1200

19-DEC-B% 09:48

PAGE

3¢ 8%

INFORMATION BUFFERS

5188 032234
032234
S189 0322%6

032236
032240

032242
032244

032246
5190 032250
032250

032252

032254

013044
011052
033053

177777

. WORD

033064

026130
032571
000001

032270
032272
032274
5193 032276
032276
5194 032300
032300
032302
032304
032306
032310

027130
032601
000001

032312

006052

032611
000017
000000
000007

032320
032322
S196 032324

000000
000200

032326

032653

032330

177777

007052
177777

032332
032334
5197 032336

000000
000175

032340
032342
032344
032346
5198 032350

033075
000100
000000
000001

032352
032354
032356
032360

033104
000100
000000
000001

032362

037130

032336 012052

032350 013052

5199 032362
032364

68:

030032

033340

032324

'WORD

006024

032314

032316

177777
TSLOLIM

022052

032262
032264
032266

5195 032312

. WORD
.WORD

'WORD
GPRMD
JMORD

012000

000003
012000

5192 032270

68
T$CODE
MxBUF ,MXB,D,177777,3,5120.,7ES

_WORD
"WORD

177777
000003

032256
032260

5191 032262

XFERF
.WORD
GPRMD

032442

7¢:

'WORD
'WORD

T$CODE
MXBUF

TOWILIM
MINBUF ,MNB,D,177777,3.,5120.,YES
T$CODE

MINBUF

1777

TSLOLIM
TSHILIM

GPRML

RDONLY,ROF,1,YES

GPRML

RANPAT ,RAN,1,YES

.MORD
"WORD
WORD

.MORD
'MORD
TMORD
XFERT
.MORD
GPRMD
.MORD
'WORD
JMORD
'WORD
'MORD

GPRMD

.MORD

T$CODE
RDONLY
1

" $CODE
NANPAT
1
78
TSCODE
ONLONE,.PAT,0,17,0,7,YES
T$CODE
ONLONE
17
TSLOLIM
TSHILIM

CMMSG,RDT,D,177777,0,128.,YES

T$CODE

JMORD

CMMSG

'MORD
"MORD
GPRMD

THLOLIM
TSHILIM
DEMSG,DOT.D,177777,0,17S,YES

.MORD

DEMSG

CWORD
'MORD
GPRMD

TSLOLIM
TOMILIM
MXMD,MXH,.D,100,0.1,VES

JMORD
JMORD
'WORD
(MORD
GPRMD

MXMD
100
THLOLIM
TSMILIM
MINMD,MNM.D.100,0.1,YES

[MORD
'MORD
'WORD
'WORD

MINWD
100
THLOLIM
TOMILIM

. WORD

LMORD

. WORD

.MORD

LMORD

GPRML

.MORD

"WORD

177777

TSCODE

177777

T#CODE

TSCODE

ASK,ANS,1,YES

TSCODE

ASK

CNRLKAQ RLO1/02 PERF EXER

19 DEC 83 09:48

PAGE

Ci0

36 84

INFORMATION BUFFERS

032366
5200 032370
032370
5201 032372

000001
013044

032372
032374
032376
032400
032402
5202 032404
032404
032406
032410
032412
032414
5203 032416
032416

014052
033113
177600
000000
000777

032426
5204 032430
032430
032432
032434
032436

000047

032420
032422
032424

032440

5205 032442

015052
033123
177600
000000
000777

15¢:

016052
033133
000077
000000
017052
033154
000077
000000
000047

18:

032442

L10031:
103

110

101

/MIN HD/

MINCYL: .ASCIZ

/MIN CYL/

105

110

101 CHANGE:

5233 033104

115

111

116

5234 033113

5235 033123

115

101

111

STIPMS:
SRTMSG:
CHXLNT:
RDOMLY:
RANPAT:
ONLONE:
ERMSG:
SFTMSG:
DEMSG:

SEMSG;
SKMSG:
INMSG;

130
116
130

MXBUF:
MINBUF
;
MXWD:

130

MxCviL:

116

ENDSF7
.EVEN

.ASCIZ

5229 033017

101
111
101

THHILIM

ASCIZ
ASCIZ
ASCIZ
ASCIZ
IZ
IZ
ASCIZ
ASCIZ
IZ

111
105
117
040
116
111
104
124
117
124
zg
124
040

JMORD

TSHILIM
MINSEC,.MNS.D,77,0,39.,7YES
T4CODE
MINSEC
77
THLOLIM

/RETRY LMT/
/SK ERR LMY/
/DR ERR LNT/
/DATA XFER LMT (+10(10))/
/SK LMY («10(3))/
/TIME BETW REPORTS (MIN)/
#CHANGE SEEX, R/W PARAMETERSS
/MAX XFER/
/MIN XFER/

124
105
040
104
101
110
122
106
040
105
113
122
101
113

115
115
115

MXSEC
77
TSLOLIM

T$CODE
MXCYL
177600
THLOLIM
TSHILIM
MINCYL,MNC,D,177600,0,511.,YES
T4CODE
MINCYL
177600
THLOLIM
THHILIM
MXSEC,Mxs,D,77,0,39.,YES
T4CODE

/CHANGE VALUES OF MxCYL € MINCYL/
wSTIPULATE R/M XFER SIZEs
/SEEX RETRY LMY/
/6 OF ERR DUMPED/
/RD OMLY/
/RAN PAY/
/WMICH ONE/
/HRD ERR LMY/
/SFT ERR LMY/

123
123
043
122
122
127
110
123
043
122
123
104
104
123

5230 033053
5231 033064
5232 033075

.MORD
.MORD
.MORD

.WORD
JMORD
.WORD
.MORD
.WORD
GPRMD
.MORD
.MORD
.MORD
JMORD
.MORD
GPRMD
.MORD

ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ
ASCIZ

ASK:

5214 032502
5215 032532
5216 032551
5217 032571
5218 032601
5219 032611
5220 032623
5221 032637
5222 032653
5223 032707
S224 032721
5225 032734
5226 032747
5227 032777
5228

1
158
T$CODE
MXCYL,MXC,D,177600,0,511.,YFS

.MORD
GPRMD
.MORD
.MORD
.MORD
JMORD

5206
5207 032442

5208
5212
5213 032442

.WORD
XFERF
.WORD
GPRMD

MINMD:

DRIVE

MACRO M1200

.ASCIZ
.ASCIZ

/7@ OF DATA ERR RPT'D PER BUF/

/MAX MD/

/MAX CvL/

:1JSC REV A

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

D10

36-85

DRIVE INFORMATION BUFFERS

5252
5253

033402
033404
033406

123
123
104
104
104
104
127

124
124
101
122
122
101
117

101
101
124
117
117
124
122

MXSEC:
MINSEC:
FDCHK:
STLMT:
DRPMS:
DERPMS:
CMMSG:

.ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ

/STARTING MAX SEC/

/STARTING MIN SEC/
/DATA DMP ON DCK ERR/

/DROP DR ON OPER LMTS REACHED/

/DROP DR ON ERR LMTS REACHED/
/DATA MISCOMPARE LIMIT/
/WORDS PER SECTOR COMPARED ON READ/

.EVEN
ENDMOD

LASTAD

LSLAST::

.END

.EVEN
. WORD
.WORD

(=]

5236 033133
5237 033154
5238 033175
5239 033221
5240 033256
S241 033312
5242 033340
5243
5244
5248
5249 033402
5250
S5es51 033402

CNRLKAO RLO1702 PERF EXER

E10O

36-86
S5eQ

000002
000020
000040
000110
000046
002330
000040
002336
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
000042
000400 G
002334
031747
000112
027314
027356
027420
027462
027524
027566

032551

002342
027146

027224
023672
021350
027124
002512
002316
002510
002506
002514
002312
013522
002504
013674
017040
002314
000064

013116
011662

C$D00V~
=
CSDRPT
=
CsDVU
CSEDITCSERDF
=
CSERHR=
CS$ERROCSERSF
=
CS$ERSO=
CSESCACSESEG=
CSESUB~
CSETSTCSEXIT=
CIGETBCSGETUCSGMAN=
CSIGPHR=
C4GPLO=
CSGPRI=
COINIT=
CSINLP=
CSMANI
COMEM -

000036
000044

=
ERRCNT
ERREX
ERRHOR
ERRVEC
ERR1
ERR10
ERR12

ERR13
ERR3
ERR4

ERR?
ERRS

CISPRI=

ERT
EVL
EXIT
EXIT1
EXIT2

ESEND =
ESLOAD-

032734

010650
032011
004030
004276
013400
033256
002253
000106
000013
031760
002252
003061
000400
010674
002462
002464
000036
000035
000034
000037
000040
000002
012170
031642
013670
030354
024704

E.CS

o000 n0nn

020762

EPS
ERLMT
ERLMTM
ERMSG

000045
000062
000012
000035
000006

000076
020620
020456
032442
000010
000066
021066

CS$CEFG=
C$CLCK=
CSCLEA=
C$CLOSCsCLP1=
CSCVECCSDCLN-

ANS
=
ARDHDR
ASEEXK
ASK
ASSEMB=
AUTO
=
AMRITE

027630
027672
002436
002440
004132
002332
002634
024244
033017
000020
020362

(21217171}

020520
020540

BSEC6
BSEC?7
BUF
1

-fii-q
$etia
R

AFREAD
AFWRCK

BA
=
BA16
=
BA17
=
8BA
=
BCSADR=
BCSR
BDA
=
BDRSEL
BITO
=
BITO0 =
B8ITO1 =
BIT02 =
BITO3 =
BITO4 =
BITOS =
BIT06 =
BITO7 =
BIT08 =
BIT09 =
BIT1
=
B8IT10 =
BIT11 =
8IT12 =
BIT13 =
BIT14 =
BIT15 =
BIT2
=
BITS
=
BIl4
=
BITS
=
BIT6
=
BIT7
=
BIT8
=~
BIT9
=
8
=
BOE
=
BPRIOR
BRMSG
BSECPT=
BSECO
BSEC1
BSEC2
BSEC3
BSECA
BSECS

PAGE

TABLE

ADDCOD
013314 G
ADR
= 000020 G

AGSTAT

19-DEC-83 09:48

SYMBOL

MACRO M1200

FRQS0
FUNC
=

FSAU

FSAUTO=

F$BGN =
FSCLEA=
=
FSDU
FSEND =

F $HARD
=
FSrd

FSINIT=
F®P =

F$MOD =
F$MSG =
F$PROT=

FIPUR =

FIRPT =
F$SEG =

FeSOFT=
FISRY =

FSSUB =
FISW
=
FSTEST=

GODAT

GS$YES

000120

LCLK

LSMREYV

L $NAME
LS$PRIO
LS$PROT
LSPRT
LSREPP
LSREV
LSRPT
LSSOFT
L$SPC
L4SPCP
L$SPTP
LSSTA
LS
LSTEST
LeTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10014

013564

LCLKCH 011100
LDFUNC 016524
LIMIT
010576
LINEL
006014
LINE2
006200
LINES
006270
LIST
022566
LOE
= 040000
LONUM
002262
LOT
= 000010

LPS

LSTDA =
LSTOR1
LSTOR2
LSTHDR=
LSACP
LSAPT

LSAU

LSAUT
LSAUTO
LSCCP
LSCLEA

L$CO

LSDEPO
LSDESC
LSDESP
LSDEVP
LSDISP
LODLY
LIDTP
LSOTYP

LDV

LIDUT
L$DVTY
LSEF
LSENVI

004041

000064
002324
002326
000050
002110
002036

013314

002070
012644
002106
013116

002032

002011
002122
002076
002060
010676
002116
002040
002034

013400
002072
002230
002052
002044

L1001S

L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026

L10027

L10030
L10031

§§§§§§§§§§§§s§§§s

LeICP
LSINIT
LSLADP
LSLAST
L$LOAD
LSLUN

oo C‘CHDG\GHDCfiCHDC\CHDC\CNDC\CHDC1CND

GS$PRMD

ISCLN = 000041
IS0V
= 000041
I$HRD = 000041
ISINIT= 000041
I$MOD = 000041
ISMSG = 000041
ISPROT= 000040
ISPTAB= 000041
ISPWR = 000041
ISRPT = 000041
I$SEG = 000041
IS$SETU= 000041
ISSFT = 000041
ISSRV = 000041
I$SUB = 000041
IS$TST = 000041
JIJMP = 000167
KILLDC
002310

025714

000200
000372
000003
000400
000002
000001
000000
000400
000376
000001
000002
000000
000140

LSETP
LSEXP1
LSEXP4
LSEXPS
L $HARD
LSHIME
L $HPCP
LSHPTP
LeHu

IsAU
= 000041
ISAUTO= 000041

go85

FMT6
FMT?
FMTS
FMT9
FMT9A
FRMT16
FRQCHX

002516 G
020352
020356
000003
000004
015676

82828288222228

FMT130

FMT14
FMT14A
FMT148
FMT14C
FMT1S
FMTL17
FMT18
FMT2
FMT2A
FMTS
FMT3A
FMT4
FMTS

36-87

007312
007363
007371
007411
007421
007436
007463
007472
007504
007501
007546
006632
007666
006654
006675
006717
006760
007044
007077
007113
007141
007155
007165
007223
007624
013622
013654

PAGE

FMT10A

FMT108
FMT11
FMT12
FMT13

19-DEC-83 09:48

SEG

G ki isi;afigiii

TABLE

OOO0OO0

SYMBOL

MACRO M1200

(A1 1212112191212171

CNRLKAO RLO1/702 PERF EXER

F10

003031
004177
0c4214

004777
004327
004353
014464
005007
004321
004314
004346
004341
005047
005027
005057
0035017
005037
003132

033053

033113

033075
033133
011274
004530

(/.i‘.

CNRLKAQ RLO1702 PERF EXER

MACRO M1200

19-DEC-83 09:48

PAGE

G10

-88

SEQ

SYMBOL

PRIO1

PRIOS
PRIO4
PRIOS

ABS.

311212111

PRIOR1

003365
032637

SF TPRM
SIGN
=
SKCNT =
SKCNT1=
SKDON =
SKECNT=
SKFNC
SKHS
=
SKLMT
SKMSG

032020 G
000004
000000
000054
000001
000016
015716

000020

010606

TEMPS
TEMPY
TICK
TIME
TRACK
TRERR =
TRPFLG

002366
002370
002410
002516
003305
000072
002450
013764
TSTODRV
002250
TYINT
010610
TYPDR = 000006
TYT
= 000012
T$ARGC= 000001
T4CODE= 017052
TSERRN= 000307
TSEXCP= 000000
T$GMAN= 000000
TSHILI= 000047
TSLAST= 000001
TSLOLI- 000000
TOLSYM= 010000
TSLTNO= 000001
TONEST= 177777
TENSO = 000000
TENS1 = 000005
TSPTNU= 000000
T4SAVL
= 177777
T4SEGL
= 177777
T4SUBN= 000000
TSTAGL= 177777
TSTAGN= 010032
TSTENP= 000000
TSTEST~ 000001
T$TSTH- 177777
T4TSTS- 000001
TSSAU = 010022
TSSAUT= 010020
TS$SCLE= 010021
TESOU = 010023
TSSHAR= 010030
TSSHM = 010013
TS$4INI= 010017
T$8MSG= 010012
T$4PRO= 010016
TSIRPT= 010015
T$4SOF
= 010031
TS4SRY= 010027
T44SU = 010014
T4S$TES- 010024

010672

010662
010670
010635

T.DRIV
T.DRP

T.MNB
T.MNC
T.MNH
T.MNS
T.MXB
T.MXC
T.MXH
T.MXS
T.PAT
T.RAN
T.ROF
T.5LT
T.STA
T.STIP

T.WCK
T1

002254
010640
010642
010630
010624
010634
010620
010626
010622
010632
010656
010654
010652
010660
010646
010664

010666
014464
= 000200

WRITE = 000012

XEXIT

X$ALWA=
X$FALS=
X$OFFS=
X$TRUE=

020452

000000
000040
000400
000020

NOCTLR
NODRIV

557

PRIO6 = 000300 G
PRIO7 = 000340 G
PRPOS = 000124
PUWRCH
011344
PWRFLG
002446
RAN
= 000056
RAND
024454
RANPAT
032601
004265
RCO
022546
RCONT
022604
RDBOSC
RDOFNC
016430
RDHDR = 000010

NOCRDY

0127

CNRLKAO RLO1702 PERF EXER
SYMBOL

MACRO M1200 19-DEC-83 09:48 PAGEHS(}SD

TABLE

ERRORS DETECTED:

ELAPSED TIME:

00:30:10

m..n.m.uu-vm.m.m.m

SEQ Olc4