Digital PDFs

AH-T754A-MC

April 1984

75 pages

Original

28MB

view download

OCR Version

33MB

view download

Document:	CNRLLA0 11-21,RL01-02 RL01-2 DRIVE COMPAT APR 1984 gray
Order Number:	AH-T754A-MC
Revision:	000
Pages:	75
Original Filename:	CNRLLA0__11-21,RL01-02__RL01-2_DRIVE_COMPAT__AH-T754A-MC__APR_1984_gray.pdf

OCR Text

11/Z1+

RLOL,/0Z

RLO1/Z ORIVE

CNRLLAO

L
AH-T7S4A-HC

FIGHE 1 OF i

EOENGED

Bl
MACRO M1200

19-DEC-83

10:01

PAGE 2

CNRLLAO RLO1702 DRIVE T IMPAT
.TITLE
.ENABLE AMA
.ENABLE ABS
NLIST TOC
.REM 8

gnwnnwo—n
O®SOND
WN

—

- i Dl
e

CNRLLAQ RLO1/0c DRIVE COMPAT

IDENTIFICATION

PRODUCT CODE:

AC-T7S3A-MC

PRODUCT NAME:

CNRLLAO RLO1/2 DRIVE COMPATIBILITY

PRODUCT DATE:

DECEMBER

MAINTAINER:

ISS DIAGNOSTIC SERVICES

AUTHOR :

JAMES S. DOUCETTE

THE INFORMATION IN THIS

DOCUMENT

19,

1983

SUBJECT

CHANGE

WITHOUT

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

CAN BE COPIED (WITH INCLUSION OF DIGITAL'S COPYRIGHT
FOR

USE

1IN

SUCH

WRITING BY DIGITAL.

SYSTEM,

NOTICE)

ONLY

EXCEPT AS MAY OTHERWISE BE PROVIDED IN

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
gGwMILITY OF ITS SOFTWARE ON EQUIPMENT TMAT IS NOT SUPPLIED BY
COPYRIGHT (C) 1983, DIGITAL EQUIPMENT CORPORATION

{

CNRLLAD RLOL/

02 DRIVE COMPATY

MACRO M1200

19-DEC-8Z%

10:01

PAGE

{
.

32
v

53
54
55
56

REVISION HISTORY

59
60
61

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

CHANGES MADE TO CZRLLCO IN PRODUCING CNRLLAO FOR THE SBC-11/21+
(FALCON-PLUS), DEC. 19, 1983.
CHANGES ARE IDENTIFIED By ";JSD REvV A",

62
e3

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

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

67
68
69

CHANGED REGISTER USAGE NEAR LABEL "CMPENA" AT THE END OF THE INIT
CODE.
NUMBER OF UNITS LOADED INTO R2 INSTEAD OF RO, WHICH GETS
DESTROYED BY DODU MACRO EXPANSION.

CHANGED "POINTER" MACRO ARGUMENT FROM "NONE"” TO "BGNDU" IN ORDER TO
FIX TRAP ERR CAUSED BY A ZERO DROP UNIT ROUTINE ADDRESS IN THE

70
71

73
74

LEVEL 6 TO ALLOW THE

“BREAK" KEY

DRS HEADER AREA (LOCATION 2072).

TO INVOKE 0OT.

CNRLLAO RLOL1702 DRIVE COMPAT

MACRO M1200

19 -DEC-83

10:01

PAGEt

D1
4

e
N

PROGRAM ABSTRACT

;nbuu-v-mr-»r-

GENERAL INFORMATION

ERROR INFORMATION
ERROR REPORTING
ERROR MHALTS

HARDWARE PARAMETERS

SOF TWARE PARAMETERS

PERFORMANCE AND PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRESS REPORTS

DEVICE INFORMATION TABLES
TEST SUMMARIES

THE FIVE STEPS OF EXECUTION

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

110
111
112
113
114
115
116
117
118
119

ASSUMPTIONS

OPERATING INSTRUCTIONS
HOW TO RUN THIS DIAGNOSTIC

2RO
[

107

HARDWARE REQUIREMENTS

SOF TWARE REQUIREMENTS
RELATED DOCUMENTS AND STANDARDS
DIAGNOSTIC HIERARCHY PREREQUISITES

MNN
vNO
EUBNN
W
W
e
N
e

103

STRUCTURE OF PROGRAM
DIAGNOSTIC INFORMATION
SYSTEM REQUIREMENTS

WWO

—

-0

TABLE OF CONTENTS

CNRLLAO RLO1702 DRIVE COMPAT

121
122

128
124
125
126
127
128
129
130
121
132
133
134
135

MACRO M1200

19-DEC-83

10:01

PAGE

E1
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

THE

RUN
STANDALONE
UNDER
CNDP+.
IT
IS
A SINGLE PROGRAM
FROM THE
STANDPOINT OF THE DIAGNOSTIC USER, WHICH AT RUN TIME IS APPENDED TO
A COMMON
FRONT-END PIECE OF SUPERVISOR SOF TWARE
THROUGH WHICH THE
DIAGNOSTIC
PROGRAM INTERFACES
TO THE ENVIRONMENT
AS IT EXECUTES.
g $'SCTE=§S DOCUMENT,
“CNDP+"” REFERS
TO THE
FALCON-SPECIFIC
XXDP«
WHEN

THIS

DIAGNOSTIC

STARTED,

CONTROL

GOES

FIRST

SUPERVISOR
PORTION,
WHICH
WILL ASK CERTAIN "HARD CORE" QUESTIONS
ABOUT THE ENVIRONMENT.
THEN IT WILL ENTER COMMAND MODE.,
INDICATED
B8Y
A PROMPT
CHARACTER
(DR>).
AT COMMAND MODE THE OPERATOR MAY
%:g;w{ U?S 3 SEVERAL
COMMANDS
AS
DESCRIBED
IN
2.0
"OPERATING
THE DIAGNOSTIC PROGRAM IS LOADED IN THE LOWER 8K
OF
MEMORY.
THE
DIAGNOSTIC
SUPERVISOR
CODING OCCCUPIES 6.25K OF THE UPPER PART OF
MEMORY JUST BELOW THE CNDP+ MONITOR WHICH RESIDES IN THE
UPPERMOST
1.5k OF MEMORY SPACE.

1.1.2

DIAGNOSTIC INFORMATION

THE RLO1
DRIVE COMPATABILITY TEST IS A
KXT-11 (SBC-11/21+)
BASED
PROGRAM
THAT
WILL
TEST
INTERCHANGEABILITY OF CARTRIDGES BETWEEN

DRIVES.
THE TEST
PERFORMS WRITES,
READS,
OVERWRITES,
ADJACENT
CYLINDER WRITES
TO PROVE COMPATABILITY.
SINCE THE PROGRAM RELIES
ON MANUAL INTERVENTION,
A
TOTAL
TEST
TIME
IS
NOT
APPLICABLE.
HOWEVER, TO TEST TWO DRIVES REQUIRES A MINIMUM OF THREE PASS.
EACH
PASS REQUIRES APPROXIMATELY

70 SECONDS.

1.2

SYSTEM REQUIREMENTS

1.2.1

HARDWARE REQUIREMENTS

» SBC-11/21+ PROCESSOR, 28KW MEMORY,
175

JUMPERED FOR MEMORY MAP 0

¢ CONSOLE DEVICE (LA30,LA36,VTS0,ETC.)

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

F i

19-DEC-83 10:01 PAGE &

177

i;g

OR 2 RL11/RLV11 CONTROLLER(S) WITH:

180

181
182

{:2

SECTOR FILE'
- 8 RLO2 DRIVES WITH RLO2K CARTRIDGES CONTAINING
SECTOR FILE'

i:z

&« LINE PRINTER (OPTIONAL)

189

193

1.2.2

1.3

199

1.4

207

SOF TWARE REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

DIAGNOSTIC HIERARCHY PREREQUISITES

PROGRAMS :

210
211
212
213
214
giz

CVRLABO
CNRLGAO
CNRLHAO
CNRLIAO

CNRLJUAO

CNRLKAO
1.5

RUN

THE

FOLLOWING

RLV11 RLO1/02 DISKLESS TEST (RLV11 ONLY)
RL11/RLV11 RLO1702 CONTROLLER TEST (PART 1)
RL11/RLV11 RLO1/02 CONTROLLER TEST (PART 2)
RLO1/02 DRIVE TEST (PART 1)
RLO1/02 DRIVE TEST (PART 2)
RL11/RLV11 RLO1/02 PERFORMANCE EXERCISER

ASSUMPTIONS

221
222
223

226

ETC.)

THE RLO1/702 SUBSYSTEM SHOULD HAVE SUCCESSFULLY

2283

224
225

'BAD

XXDP+/SUPERVISOR USER'S MANUAL

206

217

RLO1 DISK SUBSYSTEM USER'S GUIDE (EK-RLO1-UG-002)

2283

218

RXx02,

'BAD

(FORMERLY CZRLFB)

200
203
%S

(XXDP+) LOAD DEVICE (RLO2,

CNRLLAO RLO1/02 DRIVE COMPATABILITY

194

ig;

CNDP+

- 8 RLO1 DRIVES WITH RLO1K CARTRIDGES CONTAINING

igz

190

SEQ 0005

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

OPERATING INSTRUCTIONS

CNRLLAO RLO1702 DRIVE COMPAT

229
230
231

MACRO M1200

19-DEC-83

10:01

PAGE

Gl
7

SEQ 000¢

HOW TO RUN THIS DIAGNOSTIC

2.3. 1

THE FIVE STEPS OF EXECUTION

232

233
234
235
236
237
238
239
240
241
242
243
264

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

USING THE APPROPRIATE BOOTSTRAP PROGRAM.
THE MONITOR WILL PRINT
A
MESSAGE
IDENTIFYING ITSELF AND REQUESTING THAT THE CURRENT DATE BE
&N»T&?Emp
AN EXAMPLE OF THIS MESSAGE IS GIVEN BELOW FOR
THE
CNDP+

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

245
246

247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273

274
275
276

277

278
279

AFTER THE DATE HAS BEEN ACCEPTED BY

fSKEI?‘E

MONITOR

IS PRINTED.

THE MONITOR THE RESTART ADDRESS

THEN THE FOLLOWING TWO QUESTIONS ARE

HZ ? N
SO

LSI?

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

RUN

WHEN THIS DIAGNOSTIC IS STARTED THE FOLLOWING S5 STEPS WILL OCCUR:
Yy ryyYYY!

& STEP 1 »
shssnssses

THE DIAGNOSTIC WILL ISSUE THE PROMPT “DR>”.
THE
TIME
WHEN
YOU
RESTART
CNDP+,
YOU

DIAGNOSTIC, NOT CNDP..
ER”T
AS BEING
IN

FROM THIS POINT
UNTIL
WILL
BE TALKING TO THE

WE WILL REFER
TO
THE
PRESENCE
OF
THIS
DIAGNOSTIC COMMAND MODE, AS OPPOSED TO CNDP.

AT THIS POINT YOU WILL ENTER A

“START” COMMAND.

THIS

NOT

THE

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:

2.3

USE

STA/PASS:1/FLAGS :HOE

“DETAILS

THE

PROGRAM,

COMMANDS

AND

SYNTAX",

ALL YOU NEED TO SAY IS

H1
CNRLLAO RLO1/02 DRIVE COMPAT

SAE3
114 133 PR 2

281
282
283
284
285
286
287
288
289
290
291
29z
293
294

315

MACRO M1200

19-DEC-83

10:01

PAGE

SEQ 0007

THINGS

TO NOTE HERE:

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

THE "PASS” SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE.
A PASS
CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL UNITS BEING
TESTED (THIS WILL BE EXPLAINED SHORTLY).
ONE PASS IS SPECIFIED
IN THE ABOVE EXAMPLE.

THE "FLAGS" SWITCH MAY SPECIFY ANY OF A NUMBER
THE MAIN USEFUL ONES ARE:

PNT
LOE

PRINT NUMBER OF TEST BEING EXECUTED
LOOP ON ERROR

IER

INHIBIT ERROR PRINTOUT

HOE

THE

FLAGS,

B8uUT

HALT ON ERROR

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL
SHORTLY).

SEE

wWHY

Asshbtanis

s STEP 2 »
R RN
S

WHEN YOU HAVE TYPED IN A “START" COMMAND,

BACK

WITH

THE

THE DIAGNOSTIC WILL

COME

QUESTION "€ UNITS?” TO WHICH YOU SHOULD RESPOND BY

TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST.

A WORD OF WARNING
HERE:

THE NUMBER OF UNITS DEPENDS

ON THE

TARGET

DEVICE
OF
THE OIAGNOSTIC.
FOR EXAMPLE,
IF
THE DIAGNOSTIC IS
DIRECTED AT A DISK DRIVE, THEN THE NUMBER OF
UNITS WOULD BE
THE
NUMBER
OF
DRIVES
TO BE
TESTED.
WHEREAS IF THE DIAGNOSTIC WAS
DIRECTED AT THE DISK CONTROLLER, THEN THE NUMBER OF UNITS WOUWLD 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.
EEETR

& STEP 3 »
CYTY
Ty YYYs

WHEN YOU HAVE TYPED IN THE

NUMBER

UNITS

TESTED,

THE

DIAGNOSTIC
MWILL
ASK YOU THE “HARDWARE QUESTIONS”.
THE ANSWERS TO
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE, CALLED
"HARDWARE
';é;%ES".
ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE
THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL
POSED N TIMES, WHERE N IS THE NUMBER OF UNITS.

CNRLLAO RLO1702 DRIVE COMPAT

337
338
239
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356

357
358
359
360
361
362
363
364
365
3656
367
368
369
370
371
372
373

374
375
376
377
378
379
380

381
382
383
384

MACRO M1200

11
19-DEC-83

10:01

PAGE 9
SEG 0008

THIS

REPRESENTS

NEW

PHILOSOPHY

THEY

NEED

1IN

DIAGNOSTIC

ENGINEERING.

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

INFORMATION

TEST

THE DEVICE.

&« STEP 4 »

sensssstas

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 SOFTWARE QUESTIONS THAT DETERMINE THE
BEMAVIOR
OF
THIS

PROGRAM,

TYPE

“vy”,

IF YOU WANT TO TAKE ALL

THE DEFAULTS TO THESE

QUESTIONS, TYPE “N”.
IF
YOU
TYPE
“Y”
YOU MWILL
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
BE
ASKED JUST ONCE,

REGARDLESS OF THE NUMBER OF UNITS TO BE TESTED.

hebebbhkdrs

& STEP S »
LI T

T TR
Y

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS,

BEGIN

TO EXECUTE THE HARDWARE TEST CODE.

THE DIAGNOSTIC WILL

THERE ARE SEVERAL THINGS

THAT CAN HAPPEN NEXT, DEPENDING
ON WHETHER
A
HARDWARE
ERROR
IS
ENCOUNTERED
AND
ALSO
ON
WHAT
SWITCH VALUES YOU SELECTED ON THE

START COMMAND.

CONSIDER THE POSSIBILITIES:

IF NO ERROR IS ENCOUNTERED, THEN
THE
DIAGNOSTIC
WILL
SIMPLY
%XECUT; &E)DESIRED NUMBER OF PASSES AND RETURN TO COMMAND MODE

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

HAPPENS,

HOE SET:
THE ERROR WILL BE REPORTED ON
DIAGNOSTIC WILL RETURN TO COMMAND MODE.

AND

THE

BLOCK

THE

CONSOLE

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

THE

NEITHER HOE NOR LOE SET:
THE ERROR WILL BE REPORTED ON
THE
&O‘S&Eo AND NORMAL
EXECUTION WILL RESUME AS IF NO ERROR HAD

CNRLLAO RLO1702 DRIVE COMPAT

386
387
388
389
390

391
392

393
394
395
396
397
398
399

400
401
402

403
404
405
406
407
408
409
410
411
412
413
414

J1
MACRO M1200

19-DEC-83 10:01

2.1.2

SEQ 0009

SAMPLE RUN- THROUGH

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

IF AN ERROR IS ENCOUNTERED, THE ERROR
WILL
BE
REPORTED
AND
THE
PROMPT
WILL
BE
REISSUED
(BECAUSE THE HOE FLAG IS SET).
AT THIS
:?;JI\'I"TJ THERE ARE FOUR DIFFERENT WAYS YOU CAN GET THE
PROGRAM
GOING

ISSUE ANOTHER “START” COMMAND (THUS GOING THRU ALL OF STEPS

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.
NO QUESTIONS ASKED.

4.,

ISSUE A "PROCEED” COMMAND:

415

416
417
418
419

PAGE

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

START

THAT THE HARDWARE QUESTIONS ARE NOT ASKED)

EXECUTION WILL

COMMAND

RESUME

EXCEPT

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 (INHIBIT ERROR PRINTOUT) FLAG

TURN ON THE LOE FLAG

TURN OFF THE HOE FLAG

RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT

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

CNRLLAO RLO1702 DRIVE COMPAT

438

az9
440
a4
aa;
443
444
445
446
447
448
449
450

451
452
453
454
455
as6
457
458
459
460
461
462
463
464

465
a66
467
468
469
470

<1
MACRO M1200

19-DEC-83

10:01

PAGE

SEQ 0010

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C.
THIS WILL TAKE YOU
%EEGC-HO}'(%SLW AND PUT YOU BACK INTO COMMAND MODE.
YOU NOW HAVE

START

RESTART

CONTINUE

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

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

EXECUTION

THE

ORIGINAL

VALUES

AND

RESUME

BEGINNING OF THE HARDWARE TEST YOU WERE IN.

THE ERROR DOES NOT RECUR,

THE EXECUTION WILL FLOW RIGHT ON THRU

THE NEXT ERROR OR TO END OF PASS.

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC
TWO CHOICES:

START

RESTART

AGAIN,

YOU

HAVE

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

CNRLLAO RLO1702 DRIVE COMPAT

472
473
474

475

MACRO M1200

19-DEC-83

10:01

PAGE

L1
12

SEG 0011

THE FULL PRINT-OUT

FROM THE

(0=0PERATOR, D=DIAGNOSTIC):

ABOVE

DIALOGUE

476
477
478
479

480
481
482

483

484

MIGHT

BY
WHOM
ENTERED

.R NRLLAO
DRS LOADED
DIAG. RUN-TIME SERVICES REV.

C APR-79

0
D
D

485

CNRLL-A-0

489

DR>STA/PASS : 1/FLAGS : HOE

D
D.0

CHANGE HW (L) ? Y

D.0

@ UNITS (D)

D.0

486
487
488

490
491
492
493

LOOK

CNRLL VERIFIES INTERCHANGEABILITY OF
CARTRIDGES BETWEEN DRIVES
UNIT IS RLO1, RLO2

2?2 2

UNIT O
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ?
DRIVE TYPE = RLO1 (L) Y ?

D
D.O
0.0
D.0
D.0

UNIT 1
BUS ADDRESS (0) 174400 ?
VECTOR (0) 160 ?
DRIVE (0) 0 ? 1
DRIVE TYPE = RLO1 (L) ? N

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

CNRLL HRD ERR 00004 TST 003 SUB 002 PC:004130
ERR HLT

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

0.0

S8884845450804548588000404048848848080000000000048

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE

ERROR WITHOUT PRINTING ANYTHING.

YOU CAN SCOPE

THE ERROR UNTIL YOU HAVE LOCATED IT,

THEN tC OUT.

2588088454288
4888855852 0885800080000
0 0000t bbkbkt

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

D.0

THIS

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19- DEC-83

523
524
525

2.2

10:01

PAGE

M1
13

SEG 0012

CNRLL EOP 1
tC

DR>RESTART/PASS:1

D.0

CHAIN MODE OPERATION
e

me-.

meem.

eeEm---—--

NOTE THIS PROGRAM IS NOT CHAINABLE.
CHAIN MODE
OPERATION CONSISTS
OF
THE
SEQUENTIAL
EXECUTION
OF
PROGRAMS
WITHOUT
OPERATOR
INTERVENTION.
ONLY PROGRAMS THAT HAVE
BEEN
MODIFIED
TO
RUN
1IN
CHAIN MODE
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 (KNCWN AS A
CHAIN FILE) LISTING THE PROGRAMS TO BE RUN AND THE NUMBER OF PASSES
EACH PROGRAM SHOULD RUN.
THIS FILE MUST BE ON THE SYSTEM DEVICE.
A CHAIN FILE MAY BE GENERATED BY USE
OF
THE
XTECO
TEXT
EDITOR.
THIS
FILE
MUST
HAVE A CCC EXTENSION.
THE CHAIN FILE MAY CONTAIN
ANY OF THE COMMANDS SUPPORTED BY THE CNDP+ MONITOR.
THE
COMMANDS
éN
TO-E7
ASCII
FILE
ARE
EXECUTED
IN THE ORDER IN WHICH THEY ARE
TO EXECUTE A CHAIN FILE THE USER TYPES:

C FILNAM <CR> OR
C FILNAM/QV
<CR>
IN THE FIRST CASE THE PASS COUNT SPECIFIED IN THE
CHAIN FILE
IS
USED BY
THE CNDP+
MONITOR
TO DETERMINE THE NUMBER OF PASSES TO
EXECUTE EACH PROGRAM.
IN THE SECOND CASE THE PASS
COUNT
IS NOT
USED AND EACH PROGRAM IS EXECUTED ONLY
ONCE.
THE /QV SWITCH
PROVIDES A SINGLE EXECUTION MODE OF OPERATION OF QUICK VERIFY.
WHEN PROGRAMS ARE RUN IN CHAIN MODE, THE SOFTWARE
SWITCH REGISTER
SHOULD 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 CHAIv MODE WILL CONTINUE AND
THE
CHAIN FILE SPECIFIED BY THIS NEW C COMMAND WILL BE USED.

IF THE USER WISHES
TO
TERMINATE
CHAIN MODE
BEFORE
ITS NORMAL
TERMINATION HE
MAY
DO
SO BY
TYPING A CONTROL/C.
HOWEVER, THE
MONITOR WILL NOT ABORT THE CHAIN MODE UNTIL
IT
RECEIVES PROGRAM

CONTROL FROM THE PROGRAM CURRENTLY RUNNING.

CNRLLAO RLO1702 DRIVE COMPAT

579
580
581

582
583
584
585
586
587
588
589
590
591
592
593

MACRO M1200

19-DEC-83

10:01

PAGE

N1
14

SEQG 0012

e.3

DETAILS OF COMMANDS AND SYNTAX

2.3.1

TABLE OF COMMAND VALIDITY

THERE ARE FOUR

WAYS

ENTERING

DIAGNOSTIC

COMMAND

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

OPERATOR ENTERED ‘RUN DIAG’

LEGAL COMMANDS

START

DISPLAY

FLAGS

ZFLAGS
EXIT

DIAGNOSTIC HAS FINISHED ALL
ITS REQUESTED PASSES

START
RESTART
PRINT

DISPLAY

FLAGS

ZFLAGS
EXIT

OPERATOR INTERRUPTED THE
DIAGNOSTIC WITH CTRL/C

START
RESTART
CONTINUE
PRINT
DISPLAY
FLAGS

ZFLAGS
EXIT

AN ERROR WAS ENCOUNTERED
WITH THE HOE FLAG SET SET

START

RESTART

CONTINUE

PROCEED
PRINT
DISPLAY

FLAGS

ZFLAGS
EXIT

CNRLLAO RLOL1702 DRIVE COMPAT

629
6320
631
632

633
634
635
636
637
638
639
640
641
642

MACRO M1200

19-DEC-83

10:01

PAGE

B,
15

SEG 0014

COMMAND SYNTAX

2.5.2

8880488880880 08008000800000800800800080008080000000008000000000000
0

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

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.

THE

MESSAGE

"® UNITS?" IS PRINTED.

SWITCHES

THE START COMMAND

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

OF THE FOLLOWING:

A) OPERATOR TYPED “RUN DIAGNOSTIC” B) DIAGNOSTIC

FINISHED EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE

FLAG

SET

643

OPERATOR
ENTERED
CONTROL/C.
AFTER
THE
OPERATOR RESPONDS TO "¢
UNITS?”, THE HARDWARE DIALOGUE IS INITIATED.
WHEN IT IS COMPLETED,

645

BECOME THE NEW DEFAULTS.

644

646
647
648
649

650
651
652
653
654
655
656
657
658
659
660
661
662

663
664

665
666
667
668
669
670
671

672

673
674
675
676
677
678

679
680

THE

QUESTIONS

“CHANGE

SW?"

IS ISSUED,

AND THE ANSWERS,

THEREFORE IT IS NECESSARY TO

PROGRAM IN ORDER TO RETURN TO THE LOAD DEFAULTS.

IF GIVEN,

RELOAC

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 NUMERICAL
ORDER
REGARDLESS OF
THE
ORDER OF
SPECIFICATION.
THE
DEFAULT IS TO
EXECUTE ALL TESTS.
"PASS-CNT” IS A DECIMAL NUMBER INDICATING
THE
DESIRED
NUMBER
OF
PASSES.
A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC

(ALL SELECTED TESTS) AGAINST ALL UNITS SUBMITTED.
THE
DEFAWLT
IS
NON-ENDING
TEST
EXECUTION.
“FLAG-LIST” IS A SEQUENCE OF ELEMENTS
OF THE FORM <FLAG>, <FLAG=1>, OR
<FLAG=0>,
SEPARATED
BY
COLONS,
WHERE <FLAG> HAS ONE OF THE FOLLOWING VALUES:

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

WHEN

LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO LOOP
CONTINUOUSLY
WITHIN
THE
SMALLEST
DEFINED
BLOCK
OF
CODING (SEGMENT,

SUBTEST, OR TEST) CONTAINING THE ERROR

IER INMIBIT ERROR REPORTING
IBE INMIBIT BASIC ERROR REPORTS
IXE INMIBIT EXTENDED ERROR REPORTS
PRI DIRECT ALL MESSAGES TO A LINE PRINTER

PNT PRINT NUMBER OF TEST BEING EXECUTED

C“:

CNRLLAO RLO1702 DRIVE COMPAY

682
6:2
6

MACRO M1200

19-DEC-8% 10:01

PAGE

SEQ 00i1%

B0E BELL ON ERROR

:gz

UAM RUN IN UNATTENDED MODE,

g:;

ISR

Ggg

IDU INHMIBIT DROPPING OF UNITS BY DIAGNOSTIC

235

ADR EXECUTE

693

LOT LOOP ON TEST

695

EVL EVALUATE

694

697

698
699
;8?

702

703
;845
7“

707

;gg

710

711
;{g
714

715
716

INMIBIT

BYPASSING MANUAL

INTERVENTION TESTZ

STATISTICAL REPORTS

AUTODROP CODE

THE FLAGS NAMED OR EQUATED TO 1 ARE SET, THOSE EQUATED
TO O ARE
CLEARED.
A FLAG NOT SPECIFIED IS CLEARED.
1IF THE FLAGS SWITCH IS

NOT GIVEN ALL FLAGS ARE CLEARED.

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

(IN

888200800800 82888082084888008080008008808082800080808823080008000000000000

0588808808008 0858008000080020000080008088080080880000088000820000800000

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE

SPECIFIED.
HOMEVER,
NEW
ONES IN CORE ARE USED.
THE QUESTION "CHANGE SW?”

“P-TABLES” ARE NOT BUILT.

THE

IS ASKED AND THE ANSWERS GIVEN BECOME

THE

NEW DEFAULTS.
THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN
ENTERED
VIA
A)
DIAGNOSTIC
IS
FINISHED
B)
HWALT
ON
ERROR
C)

;%3

THE SWITCH ARGUMENTS ARE AS IN THE STARY COMMAND EXCEPT:
1.

724
725
726

"UNIT-LIST” IS A SEQUENCE OF LOGICAL UNIT
NUMBERS
RANGING
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING
WHICH UNITS ARE TO BE
TESTED.
THE
LOGICAL
UNIT
NUMBER

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

727
728

THE UNIT-LIST DEFAULTS TO “ALL THAT HAVE NOT
BEEN
DROPPED
BY
OPERATOR
COMMAND”.
THE EFFECT OF THE UNIT-LIST LASTS

729

UNTIL THE NEXT START (WHERE IT IS

;g?
733

SWITCHES

INSTEAD,

CONTROL /C.

732

THE

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

;{z

73
722
723

TERMS

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

"ALL") OR THE NEXT RESTART,

AUTOMATICALLY

ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED.

RESETYT

CNRLLAO RLOL~

735
7%

2 DRIVE COMPAT

MACRO M1200

19 DEC-83

PAGE

10:01

D¢
17

SEQ 001

8288088800008 0080200000800000000000000000000

787
738
739
740

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

742
743
744
745

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

741

746

747

0888808800008 0080002080000008080004000000000

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT

CONTROL /C.

THE

ERROR

SWITCH ARGUMENTS ARE AS

IN THE

DEFAULT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT

751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

773

774
775
776
777
778
779
780
781
782
783
784
785
786

START COMMAND EXCEPT:

748

749
750

THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF

PREVIOUS START OR RESTART

FROM

THE

BHIEHABRCIBIBAEREL4ERILRS

PROCCEED)/FLAGS: <FLAG-LIST>
284888008008 2808008088008000

COMMAND MODE MUST HAVE BEEN ENTERED
VIA
A HALT
ON ERROR.
THE
EFFECT
OF
THE
COMMAND
IS
TO
BEGIN EXECUTION
AT THE LOCATION
%L&IEYE;EEDEW CALL.
NEITHER HARDWARE NOR SOF TWARE PARAMETERS
THE SWITCH ARGUMENTS ARE

THE SAME AS THE

START COMMAND EXCEPT:

UNSPECIFIED FLAG SETTINGS ARE UNCHANGED

Hedn

EXIT
ssee

RETURN TO CNDP. PROMPT MODE.
2888082824800 8008288808

DROCP)/UNITS:UNIT-LIST
6022800808008

06000nRS

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY

gcc:

OR W;IL A START COMMAND IS GIVEN.

THERE IS ALSO A "DROP” MACRO

INTERNAL

ARE

ADDED

DIAGNOSTIC,

WHICH

A DROP CANNOT BE FOLLOWED

THE

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

CNRLLAO RLO1702 DRIVE COMPAT

788
789
790

791

MACRO M1200

19- DEC-83 10:01

PAGE

18
SEG 0017

0842084804800 000002

ADD/UNITS:UNIT-LIST
2882804000808 8800400

792
793
794
795

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.

799

PRICNT)

796
797
798

800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816

817

YY)

sssssee

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

PRINTED.

8888880888888 82080008000000

DISC(PLAY)/UNITS:<UNIT-LIST>
000084088880008008008000000

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

FLACGS)

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED.

ZFL(AGS)

sbhbbdens

ALL FLAGS ARE CLEARED.
EXTENDED P-TABLE DIALOGUE
831

833

834
835

837
838
839

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

REVEALED

THE

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

SPACE

CORE IS ALLOCATED FOR “N” P-TABLES.

ARE OF THE SAME FORMAT,
gE}EE'E‘ F"E 1HMOHARE

ALL OF THE P-TABLES

AND THERE IS
A
ONE-TO-ONE
CORRESPONDENCE
PARAMETER
QUESTIONS
AND
THE SLOTS IN THE

f:'l
{

CNRLLAD RLO1702 DRIVE COMPAT

841

842
43
44

845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870

871
872
873
874
87s
876
877
878
879
880
881
882
883
884
885
886
887
888

MACRO M1200

19-DEC-83

10:01

PAGE

SEQ 0018

IN GIVING A STRING OF VALUES,

COMMAS WITHOUT

INTERVENING VALUES MAY

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

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
6,8,10 (AN INCREMENT OF 2).

SAMPLE RANGE TRANSLATES TO THE STRING

NOW LET US SEE HOW WE COUWLD USE THESE CAPABILITIES TO
CONSTRUCT
A
SET
OF
P-TABLES.
ASSUME THAT WE HAVE 8 RL UNITS, AND THAT THERE
ARE FIVE

(5) HARDWARE PARAMETERS FOR EACH (S SLOTS IN THE

S HARDWARE QUESTIONS IN THE DIALOGUE).
FOLLOWING IS

THE DIALOGUE FOR

THIS

RLOX

DRIVE

P-TABLE,

SYSTEM.

THIS

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

UNIT O

BUS ADDRESS (0) 174400 ?

VECTOR (0) 160 ?
DRIVE (0) 0 ? 0-3
DRIVE TYPE = RLO1 (L) Y ?

UNIT 4
BUS ADDRESS (0) 174400 ? 175400
VECTOR (0) 160 ? 164
DRIVE (0) 0 7 0-3
ORIVE TYPE = RLO1 (L) Y 2 N

THE FIRST TIME THRU THE P-TABLE QUESTIONS THE

DEFAULT

VALUES

ARE

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

THE SECOND TIME THRU THE P-TABLE QUESTIONS THE FIRST
ANSWERED
TO
REFLECT
THE
CHANGE
IN
CSR
ADDRESS

QUESTION WAS
FOR
THE RLO2

ASSIGNED VALUES O TO 3 IN QUESTION €3 AND THE DRIVE
FOR RLO2'S FOR THE REMAINING 4 UNITS IN QUESTION @4,

TYPE

CONTROLLER (175400).
CHANGED
TO
164
IN

THE
SECOND
QUESTION 2.

CONTROLLER'S VECTOR MWAS ALSO
THE RLO2 TEST UNIT NUMBERS WERE
WAS

SET

CNRLLAO RLO1702 DRIVE COMPAT

890
891
892

893
894
895
896
897
898
899
900
901
902
903
904
905
206
907
908
909
210
911
912
913
914
915
9216
917
918
9219
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941

MACRO M1200

19 -DEC-83

10:01

PAGE

Ge
20

SEQ

HARDWARE PARAMETERS

2.9

THE FOLLOWING QUESTIONS WILL BE

ASKED

START

COMMAND,

THE

THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. '~ o - ‘"o
BUS ADDRESS (0) 174400?
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 = RLO1 (L) ?
ANSWER NO (N) IF DRIVE IS AN RLO2

SOF TWARE PARAMETERS

2.6

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

OR
CONTINUE.
THEY
ALLOW FLEXABILITY
IN
THE
WAY
THE PROGRAM
BEMAVES.
THE SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY
IN
THE

WAY

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 ANSWER WILL ASK THE FOLLOWING SOFTWARE

WITH

MARK.,

PARAMETER

QUESTIONS,

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

TAKEN

gtlulntgz.reg?flflu. Z (*Z) WILL DEFAULT ALL REMAINING QUESTIONS AND

THERE ARE NO SOF TWARE PARAMETERS.
3.0

ERROR INFORMATION

ERROR INFORMATION IS COMPLETE IN GIVING ALL INFORMATION NECESSARY.
ALL
REGISTERS
ARE
GIVEN AS
WELL
AT
TRACK,
SECTOR AND DRIVES
INVOLVED IN ERROR.

0017

CNRLLAO RLO1702 DRIVE COMPAT

943
BT

945

946

947
948
949

MACRO M1200

19-DEC-83 10:01

3.1

He
PAGE 21

SEQ 0020

ERROR REPORTING

ALL ERROR INFORMATION IS PRINTED

?EPG“S

ARE

AIMED

951

CNRLL

XXX

953

WHERE
:

BEING SELF

CONSOLE

969

EXAMPLE:

961

YYYYY
z22

963

RRRRRR

965

970
971
972
973
974
975

PPP

ERROR

FORMAT

ALONG

959

SUB

GENERAL

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR
WITH A ONE LINE DESCRIPTION AND RELEVENT DATA.

957

22Z

DEVICE.

967

TST

THE

RRRRRR

XXX

YYYYY

THE

EXPLANATORY.

PC:

955

ERR

IS PROGRAM LETTER
IS SFT
HRD

OV
SYS
IS
IS

FAT
FAT

- SOFT ERROR
- HARD ERROR

- DEVICE FATAL ERROR
- SYSTEM FATAL ERROR

THE ERROR NUMBER
THE TEST NUMBER

IS THE SUBTEST NUMBER

IS THE PROGRAM LISTING LOCATION

ONE LINE DESCRIPTION
(OPTIONAL SECOND LINE)
(OPTIONAL THIRD LINE)
BEFORE CS:XXXXXX BA: XXXXXX DA :XXXXXX MP: XXXXXX
AFTER

CS:XXXXXX BA: XXXXXX DA: XXXXXX MP: XXXXXX

976
977
978
979
980
981

OTHER PERTINENT INFORMATION IS GIVEN AT THIS TIME.

983

"ERROR READING SECTOR"

985

ERROR WAS ENCOUNTERED WHILE TRYING TO READ VERIFY THE SECTOR
IT WAS WRITTEN BY THE SAME DRIVE.

987
989

“MINIMUM OF TWO DRIVES REQUIRED"

AFTER

CNRLLAO RLO1/02 DRIVE COMPAT

12
MACRO M1200

19- DEC-83

10:01

PAGE

22
SEQ

991
992

993

THE PROGRAM REQUIRES AT

LEAST

“MAXIMUM OF FOUR DRIVES

ALLOWED”

THE PROGRAM ONLY

A MAXIMUM OF

ALLOWS

“CAN'T FIND FIVE ADJACENT

TWO DRIVES

TO PROVE

COMPATABILITY,

FOUR DRIVES.

TRACKS"

THE
PROGRAM
REQUIRES
TEN
SETS
OF
FIVE
ADJACENT
TRACKS
AT
PREDETERMINED
SPOTS
ACROSS
THE PACK.
IT WAS UNABLE TO FIND FIVE
COMPLETELY GOOD ADJACENT TRACKS IN THE LIMITS GIVEN.

“ERROR WRITING SECTOR"
AN ERROR WAS ENCOUNTERED WHILE

TRYING TO WRITE

THE GIVEN SECTOR.

“"OVERWRITE ERROR"
AN ERROR WAS
ENCOUNTERED
WHILE
TRYING
TO
READ
DATA
OVERWRITE BY ONE DRIVE.
BOTH DRIVES INVOLVED ARE GIVEN.

AFTER

“READ RECOVERY ERROR"
IA):TEW WAS ENCOUNTERED WHILE TRYING

RECOVER

ANOTHER

DRIVES

“ADJACENT TRACK TEST"
AN ERROR WAS ENCOUNTERED WHILE IN THE ADJACENT TEST PART, A FURTHER
DESCRIPTION IS GIVEN.
3.2

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

THE

PERFORMANCE AND PROGRESS REPORTS

4.1

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS.

SECTION

0021

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

1045

1046

19-DEC-83 10:01

4.2

1048

‘8‘53

1055
1056

1057
1058
}gg

1061

PAGE 23

s e

Rt e

5.0

SEG Ouz2

PROGRESS REPORTS
e eme s

semeeew

THIS PROGRAM WILL

1
1051

1052

NOT

GIVE

ANY

PROGRESS REPORTS.

DEVICE INFORMATION TABLES

g o S

THE RL11/RLV11 CONTROLLER WAS THE FOLLOWING FOUR(4)
CONTROL OF THE SUBSYSTEM.
RLCS

CONTROL AND STATUS REGISTER (XXXXXO0)

1062
1063
1064
1065
1066
1067
1068
1069

BIT 15
BIT 14
BIT 13
BIT 12

1075

BIT 3-1 - FUNCTION CODE

1070
1071
1072
1073
1074

1076
1277
1078
1079

- COMPOSITE ERROR
- DRIVE ERROR
- NON EXISTANT MEMORY ERROR
- HEADER NOT FOUND (WITH BIT 10 SET)
- DATA LATE (WITH BIT 10 CLEAR)
BIT 11 - HMEADER CRC (WITH BIT 10 SET)
- DATA CRC (WITH BIT 10 CLEAR)
BIT 10 - OPERATION INCOMPLETE
BIT
BIT
BIT
BIT
BIT

1080
1081
1082

9/8
7 6 S 4 -

- DRIVE SELECT (0-3)
CONTROLLER READY
INTERRUPT ENABLE
EXTENDED BUS ADDRESS (BIT 17)
EXTENDED BUS ADDRESS (BIT 16)

0
1
2
3

NOP (PDP-11) MAINT (LSI-11)
WRITE CHECK
GET DRIVE STATUS
SEEK

- READ WITHOUT HEADER COMPARE

4 - READ HEADER
5 - WRITE DATA
6 - READ DATA

%ggz

1085

BIT

RLBA - BUS ADDRESS REGISTER (XXXXX2)

1086
1087

1090

O - DRIVE READY

1091

BITS 15-1 BUS ADDRESS OF DATA TRANSFER

1094

RLDA - DISK ADDRESS REGISTER (XXXXX4)

{ggg

BIT O SHOUWLD BE 0

REGISTERS

FOR

CNRLLAO RLO1702 DRIVE COMPAT

1097

1098
1099

1100
1101
1102
1103
1104

MACRO M1200

19-DEC-83

10:01

PAGE

I<2
24

SEQ 0022

FOR

MEAD/WRITE FUNCTIONS

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

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

1105

FOR SEEK FUNCTION

1107
1108
1109
1110
1111
1112
1113
1114
1115

BIT
BIT
BIT
BIT
BIT
BIT
BIT

1106

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
1143
1144
1145

1146
1147
1148
1149

1150

15-7 - DIFFERENCE TO NEW CYLINDER
6-5 - MUST BE ZERO (0)

4
3
2
1
O

SURFACE (0=UPPER, 1=LOWER)
MUST BE ZERO (0)
SEEK DIRECTIONC 1=IN / 0=0UT
MUST BE ZERO (0)
MUST BE ONE (1)

)

FOR GET STATUS FUNCTION

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

BIT 15 - O - WORD COUNT (TWO'S COMPLIMENT)
FOR READ HEADER FUNCTION

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

HAS DRIVE STATUS

BIT
BIT
BIT
LIT
BIT
BIT

15
14
13
12
11
10

- WRITE DATA ERROR
- CURRENT HEAD ERROR (CHE)
- WRITE LOCK STATUS (MWL)
- SEEK TIME OUT (SKTO)
- SPIN ERROR (SPE)
- WRITE GATE ERROR (MWGE)

19-DEC-83

PAGE

L&
25

SEQ 00-4

1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163

6.0

W+

BIT
9 - VOLUME CHECK (VC)
BIT
8 - DRIVE SELECT ERROR (DSE)
BIT
7 - DRIVE TYPE IS RLO2 IF SET
BIT
6 - SURFACE (O=UPPPER, 1=LOWER)
BIT
S5 - COVER OPEN
BIT
4 - HEADS HOME
BIT
3 - BRUSHES HOME
BIT 2-0 -STATE BITS
0 - LOAD STATE
SPIN UP
BRUSH CYCLE
LOAD HEADS
SEEK - TRACK COUNTING
SEEK - LINEAR MODE
UNLOAD HEADS
SPIN DOWN

1164

1165
1166
1167
1168
1169
1170
1171
172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201

10:01

MACRO M1200

SLE'W

CNRLLAQC RLO1702 DRIVE COMPAT

TEST SUMMARIES
THE FOLLOWING IS

BRIEF

DESCRIPTION

THE

WAY

THE

PROGRAM

EXECUTES.
THE
PROGRAM
WILL
CHECK
COMPATIBILITY
BETWEEN 2 - 4
DRIVES USING THE SAME RLO1K CARTRIDGE OR SAME RLO2K CARTRIDGE.
THE
PROGRAM
WILL
ASK
THE
OPERATOR
TO SEQUENCE THE PACK BETWEEN THE
DRIVES GIVEN IN THE FOLLOWING MANNER.
PLACE PACK IN DRIVE N ON CONTROLLER X AND LOAD

UNLOAD DRIVE N ON CONTROLLER X
PLACE PACK IN DRIVE N+1 ON CONTROLLER X AND LOAD
UNLOAD DRIVE N+1 ON CONTROLLER X
E€TC......
THE PROGRAM WILL SEQUENCE IN
HARDWARE QUESTIONS.
I.E.

THE

ORDER

THAT

DRIVE ? 0,1.2,3

PROGRAM WILL SEQUENCE 0,1.2,3.2.1,0
DRIVE ? 1,0,3.2
PROGRAM WILL SEQUENCE 1,0,3,2,3,0,1

WAS

GIVEN

THE

CNRLLAO RLO1702 DRIVE COMPAT

1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228

M
MACRO M1200

19-DEC-83

10:01

PAGE 26

SEQ 0025

WHEN THE FIRST DRIVE

IS LOADED THE PROGRAM WILL ATTEMPT

TO FIND TEN

SETS OF FIVE ADJACENT TRACKS AT PREDETERMINED SPOTS THAT CONTAIN NO
BAD SECTORS USING THE BAD SECTOR FILE.
THE 10 SPOTS ARE:
ON
BOTH
SURFACES,
INNER,
OUTER,
MIDDLE,
ONE QUARTER AND THREE QUARTERS.
AFTER THIS IS DONE

THE OVERMWRITE

TEST

IS PREPARED(FIRST DRIVE CAN'T

OVERWRITE)
AS
MWELL
AS
THE ADJACENT TEST.
BETWEEN DRIVES THE FOLLOWING CHECKS ARE MADE:

AS THE PACK IS CYCLED

EACH DRIVE CAN OVERWRITE EACH OTHER DRIVE

EACH DRIVE CAN RECOVER EACH OTHERS DATA

EACH DRIVE CAN WRITE ADJACENT TO EVERY OTHER
DRIVE WITHOUT DISTURBING THE OTHER’S DATA.
READS AND WRITES TAKE PLACE AFTER SEEKS FROM

BOTH DIRECTIONS.

ADJACENT WRITES TAKE PLACE TO BOTH SIDES OF EACH WRITE
TESTS ARE PERFORMED AT ALL TEN SPOTS ACROSS THE PACK.

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

N2
27

SEQ 0026

MACRC DEF INITIONS

123C
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247 002000
1248
1249
1250
1251
1252
1253
1254
1255

.SBTTL

MACRO DEFINITIONS
.MCALL
. =2000

SVC

WAITUS
MOV
JSR

ARG
ARG, XDELAY
PC,TIME

;MACRO MICRO-SECOND WAIT
: SAVE ARGUMENT
;CALL. TIMING ROUTING

WAITMS
MOV
JSR

ARG
ARG, YDELAY
PC,XTIME

sMACRO MILLI-SECOND WAIT

002000

.MACRO
.ENDM

.MACRO
.ENDM
.NLIST

: SAVE ARGUMENT
;CALL TIMING ROUTINE

CND,MD,ME

svC
SVCINS=0
SVCTAG=0

;
BGNMOD

103

002222

POINTER NONE

POINTER BGNDU

MDHEDR
HEADER
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE
.ASCII
.ASCII
.WORD
.WORD

.WORD
.HMORD
.MORD
.WORD
.WORD
.HORD
.WORD
.WORD
.WORD
.MORD
.WMORD
.MORD
.MORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD

CNRLL,A,0,0,1,PRIO6
/C/
/N/
/R/
/L/
/L/
O
©
©
/A/
/0/
O
O

LS$HARD
O
L$HW
©
LS$LAST
O
O
1
O
L$DISPATCH
PRIO6
O
O
CS$REVISION
CS$EDIT
O
O
O
L$DVTYP

:JSD REV A
:JSD REV A
:JSD REV A - ADDED PRIO6

CNRLLAQ RLOL1/702 DRIVE

COMPAT

MACRO M1200

19 DEC-83 10:01

PAGE

MACRC DEF INITIONS

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

.WORD
EMT
.WORD
.WORD
.WORD
.WORD
.WORD
.WMORD
.WMORD
.MORD
ENDMOD

1256
1257
1258

103
114

111

111
040

111

122
111

127

116
122

105
1259
1260

122
061
114

DESCRIPT

.ASCIZ

O
O
O
©
LDV
O

LS$DESC
ESLOAD
O
LSINIT
LSCLEAN
LS$AUTO
LS$PROT
©
O
O

/CNRLL VERIFIES INTERCHANGEABILITY OF CARTRIDGES BETWEEN DRIVES/

122

124
103
116
101
114
131
106
101
122
107
040
124
105
104
126
000

060

.EVEN

DEVTYP

122
062

.ASCIZ

<RLO1,RLO2>
#RLO1,RLO2¢

.EVEN
.SBTTL GLOBAL EQUATES SECTION

sDEFINITIONS
002234

002234

BGNMOD

GLBEQAT
EQUALS

CNRLLAQ RLO1702 DRIVE COMPAT
GLOBAL

MACRO M1200

19-DEC-83 10:01

PAGE

27 2

SEQ OLen

EQUATES SECTION

; BIT DIFINITIONS
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

001000

B8IT15==
B8IT14+==
BIT13==
BIT12==
BITll==
B8IT10==
B8IT09==

100000
40000
20000
10000
4000
2000
1000

BITO07==
BIT06==
BIT0S==
BIT04==
B8IT03==
8IT02==
BITOl==
BIT00==

200
100
40
20
10
4
2
1

BIT08== 400

BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
8IT73==
BIT2==
8ITl-=
B8ITO==

BITO9
BITO8
BITO7
BITO6
BITOS
BITO4
BITO3
BITO2
BITO1
BITOO

s+ EVENT FLAG DEFINITIONS
s
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
3

000040
000037

3
EF .START ==
EF .RESTART ==

32.
31.

BIT POSITION IN SECOND STATUS WORD
(100000) START COMMAND WAS ISSUED
(040000) RESTARY COMMAND WAS ISSUED

000035
000034

EF .NEW=»
EF .PWR==

29.
28.

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

EF .CONTINUE==

30.

:
1

1+ PRIORITY LEVEL DEFINITIONS
]

PRIO7== 340

PRIO6== 300

PRIOS== 240

PRIO4==
PRIO3==
PRIO2==
PRIO1==
PRIOO==

200
140
100
40
0O

]

1OPERATOR FLAG BITS
3

EVLe=e
LOT==

ADR==

(020000) CONTINUE COMMAND WAS ISSUED

CNRLLAO RLOL1702 DRIVE COMPAT
GLOBAL

1269
1270
1271
1272
1273
1274
1275
1276

D4
MACRO M1200

19-DEC-8% 10:01

PAGE

27-3%

EQUATES SECTION
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

000000
000002

1Dy~
ISR==«
UAM= BOE = =
PNT==

40
100
200
400
1000
2000
4000

PRI ==

IXE=»

IBE==
IER==

LOE==
HOE ==

10000

20000

40000
100000

;CONTROL AND STATUS OFFSET
:BUSS ADDRESS OFFSET
1DISK ADDRESS OFFSET
sMULTI PURPOSE OFFSET

CS=0
BA=2

DA=4
MP=6

sCONSTANT OFFSETS FOR INDIVIDUAL DRIVE BUFFERS

1277

1278
1279

CSR=0
VEC=2
0SB-4

sCONTROLLER ADDRESS
«VECTOR OF CONTROLLER

DRDY=BITO
INTEN=BIT6
ERR=BIT15
DERR=BIT14
NXM=BIT13
DLT=BIT12
DCRC=BIT11
HCRC=BIT11

1CRIVE READY

OPI=BIT10
CROY=BIT?
BA17-BITS

sOPERATION INCOMPLETE ERROR
sCONTROLLER READY
tEXTENDED BUS ADDRESS BIT 17
sEXTENDED BUS ADDRESS BIT 16
1CONTROLLER RESET FUNCTION CODE
1GET DRIVE STATUS FUNCTION CODE
1SEEK FUNCTION CODE
sREAD HEADER FUNCTION CODE
sWRITE FUNCTION CODE
sREAD FUNCTION CODE
sORIVE RESET COMMAND CODE FOR DRIVE COMMAD WORD
sGET STATUS COMMAND CODE FOR DRIVE COMMAND WORD
sMARKER BIT FOR DRIVE COMMAND WORD(SEEK,GET STATUS)
1DIRECTION FOR SEEK(O=AWAY FROM SPINDLE)
sHEAD SELECT FOR SEEK
sHEAD SELECT FOR READ,WRITE,GET STATUS

sDRIVE SELECT

PAT=6

1281

1283

1 PATTERN UNIQUE TO DRIVE

HNF=BIT12

BA16-BIT4
CRSET=BIT1
GSTAT=BIT2
SEEK=BIT1!BIT2

RDMDR=BITS
WRITE=BIT3!BIT1
READ=BIT3!BIT2
ORST=BIT3!BIT1!BITO
GSBIT=BIT1!BITO
MK=BITO

000100

SIGN=BIT2
SKHS=BIT4
HEAC-BIT6

s INTERRUPT ENABLE
;COMPOSITE ERROR

;1ORIVE ERROR
sNON-EXISTANT MEMORY ERROR
1DATA LATE
1DATA CRC ERROR
sHEADER CRC ERROR
sHEADER NOT FOUND ERROR

;OFFSET FOR HARDWARE P-TABLE

CSR=

PRIOR=
TYPDR=
DRBT=

4
6
10

VECT=

1BUS ADDRESS
1VECTOR ADDRESS
1PRIORITY (BREAK LEVEL)
;1DRIVE TYPE

1DRIVE SELECT

SEQ 0029

ES
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE 27-4

SEQ 00%0

GLOBAL EQUATES SECTION

1315

ig{g 002234

ENDMOD

{gig

.SBTTL GLOBAL DATA SECTION

ggg 002234

BGNMOD

GLBDAT

HMDRFND:

.WORD

{;gg 002234

000000

1324

JMERE IS THE LIST OF TRACKS TO USE FOR THIS TEST

s TRACKS ARE ENTERED BY

1327 002236
1328 002240
1329 002242
1330 002244
1331 002246
1332 002250
1333 002252
1334 002254
1335 002256
1336 002260
1337 002262
1338 002264
1339 002266
1340 002270
1341 002272

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

OUT10:
OUT20:
OUT30:
OUT40:
OUTSO:
OUT11:
O0UT21:
OUT31:
OUT41:
OUTS1:
0QU1O:
0QU20:
0QU30:
0QU4O:
0QUSO:

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

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

1343 002276
1344 002300
1345 002302
1346 002304
1347 002306
1348 002310
1349 002812
1350 002314
1351 002316
1352 002320
1353 002322
1354 002324
1355 002326
1356 002330
1357 002332
1358 002334
1359 002336
1360 002340
1361 002342
1362 002344
1363 002346
1364 002350
1365 002352
1366 002354
1367 002356
1368 002360
1369 002362
1370 002364
1371 002366

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

OQU21:
OQU31:
0QU4l:
OQUS1:
MID1O:
:
MID30:
MIDAO:
MIDSO:
MID1i:
MID21:
MID31:
MID41:
MIDS1:
TQUIO:
TQU20:
TQU30:
TQUAO:
TQUSO:
TQUI1:
TQU21:
TQUS1:
TQUA1:
TQUSL:
INN1O:
:
INN3O:
INNAO:
INNSO:

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

O
©
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

1342 002274

;1=HEADER IN BAD SECTOR LIST

000000

0QU1l:

.WORD

'FNDTRK'

ROUTINE &

'FIXTRK'

;OUTER TRK MEAD O

;OUTER TRK HEAD 1

:1ST QUARTER TRK HEAD O

11ST QUARTER TRK HEAD 1

sMIDDLE TRK HEAD O

sMIDDLE TRK HEAD 1

+3RD QUARTER TRK HEAD O

:3RD OGUARTER TRK HEAD 1

1INNER TRK HEAD O

ROUTINE

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-5

SEG 0031

1377

1378
1379
1380
1381
1382 002402
1383
1384
1385
1386 002442
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399

. WORD
.WORD
.WORD
. WORD
. WORD

: INNER TRK HEAD

;SECTOR LIST FOR LAST DRIVE WRITTEN
;MAP OF 16 SECTOR DRIVE BITS
SECLST:

.BLKW

16.

;BUFFER TABLE FOR 24 X 5 MATRIX USED FOR ADJACENT CYLINDER TESTING.
SECBLY
:

.BLKW

Se24,

sLIST OF TRACKS USED TO OVERWRITE TEST.
sFIRST FIVE ARE CYLINDER ADDRESSES OF TOP SURFACE.
;LAST FIVE ARE CYLINDER ADDRESSES OF BOTTOM SURFACE.
OVMTRK; 0uUT30

MID30
TQU30

INN3O
0uUT31
0Qu31

MID31
TQUS1

INN3L

PATLST:

152525
133333

066666

155555

0000000000000 00000000

1374 002374
1375 002376
1376 002400

INN11:
INN2L:
INN31:
INNGL:
INNSL:
.EVEN

1372 002370

1373 002372

C000C

GLOBAL DATA SECTION

sLAST CONTROLLER
sDRIVE ERROR REASON
1ERROR FLAG
1PROGRAM START UP FLAG
1 TRACK INDEX FOR ADJ. CYL TEST
tFLAG FOR ADJ. STORE OR RETRIEVE
sADJACENT SEEK DIRECTION

1SURFACE FLAG
1DIRECTION OF SEEK
1REVERSE SEEK
1FORWARD SEEK

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19 -DEC-83

10:01

PAGE

G35
27-6

SEQ 0032

1457

1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1472
1473
1480

003232
017232
017234
017236

- WORD

I
338: U

1429 003130
1430 003132
1431 003134
1432 003136
1433 003140
1434 003142
1435 003144
1436 003146
1437 003150
1438 003152
1439 003154
1440 003156
1441 003160
1442 003162
1443 003164
1444 003166
1445 003170
1446 003172
1447 003174
1448
1449
1450
1451
1452
1453
1454
1455
1456

017240

017240
017242
017244
017246

OOOSOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

GLOBAL DATA SECTION

;UNIT UNDER TEST
:SECTOR
;LAST DRIVE

;GOOD DATA
;BAD DATA
;WORD COUNT
;SECTOR WORD

i INCREMENT

;LAST TRACK OF SEARCH

sFIRST TRACK OF SEARCH
;1PRESENT TRACK
; TRACK
:IMAGE
: IMAGE
;IMAGE
:IMAGE
'

COUNT
OF CSR
OF BUS ADDRESS
OF DISK ADDRESS
OF MULTI-PURPOSE WORD é
"

”

; COMMAND L
:BUS ADDRESS LOADED
;DISK ADDRESS LOADED
;WORD COUNT LOADED

sSEBIRL N.l"OER OF CATRIDGE
:

;sINSIDE/OUTSIDE FLAG
;UWUT FOR "ADJCYL"”
:TEMP LOC FOR

“ADJCYL"

”

;SECTORS TO WRITE “ADJCYL”
'

”

1BUFFER FOR 24 SECTOR READS
;DELAY FOR WAIT MICRO-SECOND MACRO
;DELAY FOR WAIT MILLI-SECOND MACRO
1RESPONSE BUFFER

;DRIVE INFORMATION BUFFERS

CSR
DsB

PAT

;1CONTROLLER ADDRESS
1 VECTOR
;ORIVE SELECT BITS
;PATTERN UNIQUE TO DRIVE

017250
017252
017254
017256

PAT

sCONTROILLER ADDRESS
s VECTOR
+DRIVE SELECT BITS
sPATTERN UNIQUE TO DRIVE

017260
017262

CSR
VEC

s1CONTROLLER ADDRESS
s VECTOR

CSR
VEC

H4
CNRLLAO RLO1702 DRIVE COMPAT
GLOBAL

MACRO M1200

19-DEC-83

10:01

PAGE

27-7

SEQ 00%3%

DATA SECTION
017266

017264

000004
000006

017270
017272
017274
017276

000000
000002
000004
000006

017300
017302

000000

DsB

;DRIVE SELECT BITS

PAT

:PATTERN UNIQUE

CSR
VEC
0s8

;CONTROLLER ADDRESS

;VECTOR

;:ORIVE SELECT BITS
;PATTERN UNIQUE

PAT

ENDBUF:

.WORD
ENDMOD

TO DRIVE

:END OF DRIVE BUFFERS

.SBTTL GLOBAL TEXT SECTION
GLBTXT
BGNMOD

017302

sGLOBAL TEXT
117

102

117
122
122

111
101
105
122

101
126
105
122
111

117
122
122
104

OPROO1:
OPRO02:
CNTTOT:
INITWR:
DCKER:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/CONTINUE TEST?/
/ABOVE CONDITIONS MET/
/CONTROLLER TIMED OUT/
/ERROR ON RECOVERING INITIAL WRITE BY FIRST DRIVE /
/ERROR ON READ/

MANY :

.ASCIZ

/MAXIMUM OF FOUR DRIVES ALLOWED/

FEW:

NONE :

OVMES:
RECMS:
ERRFND:

RECER:

FUNERR:

SKER:

FWD:

REV:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/TEST ABORTED - CAN'T FIND ANY GOOD SPOTS/
/TRYING TO OVERWRITE DRIVE /
/TRYING TO READ DATA WRITTEN BY DRIVE /
/CAN'T FIND FIVE ADJACENT TRACKS/
/OVERWRITE ERROR/

.ASCIZ /READ RECOVERY ERROR/
.ASCIZ

/ERROR IN SEEK OPERATION/

.ASCIZ

/FORWARD/

.ASCIZ
.ASCIZ
.ASCIZ

/ERROR WRITING SECTOR/
/ERROR READING SECTOR/
/ADJACENT CYLINDER TEST/

= .ASCIZ

WRIT1:
READ1:
ADJTXT:
.EVEN

/MINIMUM OF TWO DRIVES REQUIRED/

/MIS SEEK ERROR/

"ASCIZ /REVERSE/

ENDMOD

.SBTTL GLOBAL ERROR REPORT SECTION

013746
013746
013746
012746
012746
010600
104414

003156
003150
003152
021545

BGNMOD

GLBERR

BGNMSG

ERR1
PRINTB

MOV
MOV
MOV
MOV
MOV

TRAP

&FRM10,FRTTRK,LSTTRK,SURFACE

SURFACE, -(SP)
LSTTRK, -(SP)
FRTTRK, -(SP)
OFRM10, -(SP)
SP,RO

C$PNTB

;BETWEEN _ _ HEAD _

CNRLLAO RLO1/02 DRIVE COMPAT

MACRO M1200

19-DEC-8% 10:01

PAGE 27-8

SEQ 0034

GLOBAL ERROR REPORT SECTION
020270

062706

1529 020274
020274
020274

1530
1531 020276
1532 020276
020276
020300
020304
020310
020314
020320
020322

1533
1534

3535
1536

ADD

000012

L10000:

104423

BGNMSG
005046
156416
016446
012746
012746
010600
104414
062706
004737

L10001:

BGNMSG

1537

1540
1541

1542
1543
1544
1545 020464

013746
013746
013746
012746
012746
010600
104414
062706

ERR2

PRINTB

ADD
JSR
ENDMSG
TRAP

ERR3

PRINTB

CLR
BISB
MOV
MOV

156416

1538
1539

TRAP

MOV
MOV
MOV
MOV
TRAP

000010
026550

104423

016446
012746
012746
010600
104414
062706
004737

ENDMSG

CLR
BISB

021246
000003

@12,5P

C$MSG
0?2:;.CSR(R‘).‘B.DSBOI(RG)>

104423

_ DRIVE

9FRM4, -(SP)

SP,RO

C$PNTB

€10,SP
PC,REGDMP

;REGISTER DUMP ROUTINE

C$MSG

o:ggg.csn(a4).<a.osaoxcn4)>

;:CONTROLLER _ DRIVE _

DSB+1(R4),(SP)
CSR(R4), -(SP)
OFRM4, -(SP)

#10,5P

TRAP

C$MSG

SP,RO
CSPNTB
#10,SP

000010
026550

PC ,REGDMP

OFRMS , <SURF >, <CYL>,SECT

SECT, -(SP)

003132
003122
003120
021307

000012

0?22%6.CSR(R3).‘B.DSBOI(R3)>

156316
016346
012746
012746
010600
104414
062706

sCONTROLLER

DSB+1(R4),(SP)
CSR(R4), -(SP)

sgReatgel sueRnnauaes

1528

DSB+1(R3),(SP)
CSR(R3), -(SP)
OFRM16, -(SP)

022076

e3,-(SP)

000003

SP,RO
C$PNTB

000010
L10002:

BGNMSG

ERR4

;REGISTER DUMP ROUTINE

;HEAD _ CYLINDER _ SECTOR _

;ADJACENT WRITTEN BY CONTROLLER
:. DRIVE _

J3
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE 27-9

SEQ 003%

GLOBAL ERROR REPORT SECTION
1546

1547 020464

020464
020466
020472
020476
020502
020506
020510
020512
1548 020516
1549 020522

020522
020526

020532
020536
020542
020546
020550
020552
1550 020556
020556
020562
020566
020572

020576

020602
020606
020610
020612
1551 020616
020616
020622
020626
020632
020634
— 020636
1553 020642
020642
1984 020642

1555 020644
1556 020644

005046
156416
016446
012746
012746
010600
104414
062706
004737

000005
000000
021246
000003

000010
026550

PRINTB

003132
003122
003120
021307
000004
000012

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

013746
013746
013746
013746
012746
012746

003134
003070
003134
003072
021356
000005

MOV
MOV
MOV
MOV
MOV
MOV

010600
104414
062706

013746
012746
012746
010600
104414
062706

PRINTB

MOV
TRAP
ADD
PRINTB
MOV
MOV
MOV
MOV
TRAP
ADD

000014
003116
021377
000002
000006

L10003:

104423

BGNMSG
005046

020652
020656
020662
020666
020670
020672
1557 020676
1558 020702
020702
020702
1559

016446
012746
012746
010600
104414
062706
004737

156416

104423

000000
021246
000003
000010
026550
L10004:

SECT, -(SP)
CyL,-(SP)

;CONTROLLER

DRIVE

;REGISTER DUMP ROUTINE
sHEAD _ CYLINDER _ SECTOR _

SURF
, -(SP)
OFRMS, -(SP)
04, -(SP)
SP,RO
CSPNTB
#12,SP
@&FRM6,REASON,LSTDRV,LSTCLR,LSTDRV
LSTDRV, -(SP)
LSTCLR, -(SP)
LSTDRV, -(SP)
REASON, -(SP)

OFRM6, -(SP)

#5,-(SP)
SP,RO
C$PNTB
€14 ,5P
&FRM7,DIRC
DIRC, -(SP)
OFRM7, -(SP)
@2,-(SP)
SP,.RO
CSPNTB
#6,SP

;SEEK DIRECTION

ENDMSG
TRAP

ERRS
PRINTB
CLR

000005

#FRM4,CSR(R4),<B,DSB+1(R4)>

CLR
-(SP)
BISB
DSB+1(R4),(SP)
MOV
CSR(R4), -(SP)
MOV
OFRM4
, -(SP)
MOY
03, -(SP)
MOV
SP,RO
TRAP
CS$PNTB
ADD
€10,SP
JSR
PC,REGDMP
@FRMS,<SURF>,<CYL>,SECT

013746
013746
013746
012746
012746
010600
104414
062706

020644

020646

PRINTB

C$MSG
@FRM4,CSR(R4),<B,DSB+1(R4)>
-(SP)

B8IS8

DSB+1(R4),(SP)

TRAP

C$MSG

MOV
MOV
MOV
MoV
TRAP
ADD
JSR
ENDMSG

CSR(Ra), -(SP)
OFRM4, -(SP)
#3,-(SP)
SP,RO
C4PNTB
€10,SP
PC,REGDMP

;CONTROLLER _ DRIVE _

I<4
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-10

SEQ 0036

GLOBAL ERROR REPORT SECTION

1560 020704
1561 020704
020704
020706
020712
020716
020722
020726

020730
020732

1562 020736
1563 020742
020742
020746
020750
020754
020760
020762
020764
020770
020770
020770

BGNMSG
005046

fl'('gm.CSR(RC)JB.DSBol(RA))

000002

DSB+1(R4),(SP)
CSR(R4), -(SP)

000003

@3, -(SP)

062706
004737

000010

013746
010146
012746
012746
010600
104414
062706

003172

#10,SP
PC,REGDMP
#FRM17 ,R1,E.MP

156416

016446
012746
012746
010600

104414

000000
021246

SP,RO
C$PNTB

026550

E.MP, -(SP)

022163
000003

OFRM17, -(SP)
@3, -(SP)

000010

€10,SP

SP,RO
C$PNTB

C$MSG

104423

STATMENTS
020772
021067

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

116
116
116
101
101
124
101
101

021167
021246
021307
021356
021377
021437
021503

021545

022440

UNSAMRONG PACK

¢ IS #05S#05S#A
@ S/B #0S#0SSNSN'

/SACONTROLLER: #06%A DRIVE: s01sN/
/#AHEAD: #01sA CYL: #Z38A SECTOR: #Z2#N/
/8T801%A ON ®06%N/
/#ASEEK DIRECTION: #TeNSADATA:sN/

{SAMORD: #Z38A S/B: S068A WAS: SO6®N!

/#D3%A WORDS BAD OUT OF 128 READSN/

/SABETHEEN #Z3#A - #Z38A HEAD: w01%N/
/uNSAPUR FAIL NOT SUPPORTEDSN/
/SABEFORE CS: #06#A BA: #06%A DA: sS06%A MP: %06/
/SNSAAFTER
CS: #068A BA: #S06%A DA: S068A MP: S06%N/

101
116
101
116
116
116
101
101
116
116
116
116

021611
021646
021725
022010
022037
022076
022163
022217
022303
022341
022412

/8NsSAUNLOAD DRIVE #01%A ON CONTROLLER #06%A AND REMOVE PACK®N/
/8NSAPLACE PACK IN DRIVE #01sA ON CONTROLLER #06%A AND LOAD ITsN/

/8NsSA DRIVE STATUS: %06/
/uNSACAN’'T FIND BAD SECTOR FILE/
/8AADJACENT WRITTEN BY CONTROLLER: s06%A DRIVE: s01%N/
/SAEXP'D: #06#A REC’'D: #068N/
/UNSAUNLOAD AND WRITE ENABLE ALL DRIVES TO BE USEDsN/
/8NSADRIVE TYPE IS DIFFERNT .wN/
/8NSADRIVE NUMBER PREVIOUSLY SPECIFIED.®N/
/8NsA END OF TEST#NsN/

ENDMOD

:LOAD PROTECTION TABLE
BGNPROT

022440

000000

. WORD

tOFFSET OF CSR IN P-TABLE

CNRLLAO RLO1702 DRIVE COMPAT
GLOBAL ERROR REPORT
1606 022442

022444

MACRO M1200

19-DEC-83

177777

s:NOT A MASS-BUS DRIVE

.WORD

022446
022446

BGNMOD
BGNHW

1613
1614
1615
1616
1617
1618

022450
022452
022454
022456
022460
022462

;:OFFSET OF DRIVE IN P-TABLE

ENDPROT

000006

HPTCODE
.WORD

L10007-L$HW/2

.WORD
.WORD
.WORD
.WORD

160
24C
1
O

.WORD

174400
000160
000240
ENDHW
L10007:

174400

;BASE ADDRESS DEFAULT

;VECTOR DEFAULT
;PRIORITY DEFAULT
;RLO1 OR RLO2 (RLO1=1)
;:DRIVE NUMBER DEFAULT

ENDMOD

BGNMOD

DSPCODE

DISPATCH

000001
032734

.WORD
.WORD

1
T1

ENDMOD

1627

1628
1629
1630 022466
1631
1632 022466
1633
1634
1635 022465
022466
022472
022476

27-11

SEQ 0037

022446

1625
1626 022466

PAGE

SECTION

1607
1608
1609
1610
1611
1612

1619
1620 022462
1621
1622 022462
1623
1624 022462

10:01

.SBTTL INITIALIZATION SECTION

BGNMOD

INITCODE

BGNINIT

SETPRI

6340

SETVEC

013746
012746
012746
012746
104437
062706

000340
170000
000140
000003

MOV

PRIO7, -(SP)

000010

ADD

TRAP

C$SVEC

012700

000300

SETPRI

MOV

300

TRAP

C$SPRI

023727
002006

002012

104441

MOV
MOV
MOV

cHP

BGE
ERRSF

104454
000023
017473

000000
000137
023727
003406

002012

000004

90%:

:JSD REV A
:JSD REV A

#170000, -(SP)
9140, -(SP)
#3,-(SP)

;JSD REV A

@300,R0

LSUNIT, #2

+MORE THAN TWO

19, ,.FEW

;MININUM OFF TWO DRIVE REQUIRED

90¢

:YES, OKAY

TRAP

CSERSF

JMP

CMPENA

;CLEAN CODE WHEN < 2 DRIVES

CMP
BLE

LSUNIT, &4
91

1MORE THAN FOUR
iNO, OKAY

.MORD
.MORD
.WORD

024314

:0DT ROM ADDRESS

19
FEW
O

M4
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-12

SEQ@ 00%8

INITIALIZATION SECTION
1647 022556
022556
022560
022562

104454
000024
017532
000000
000137

013737
005001
012704
012702
005737
001513

ERRSF

20. ,MANY

.WORD
.WORD
.WORD

20
MANY
©

CMPENA

;:CLEAN CODE WHEN > 4 DRIVES

MOV

LSUNIT,UUT

MOV
MOV

#DRBUF ,R4
OPATLST ,R2

:GET NUMBER OF UNITS
+INIT P-TABLE
:SET UP DRIVE BUFFER
:GET LIST OF PATTERNS
s ANY
P-TABLES LEFT?
:NO,GO TO END
:GET A P-TABLE

TRAP

JMP

024314

002012

003130

017240
003046

003130

91%:

1s:

010100

104442
012064

012064
012064

CLR

TST

uuT

MOV
TRAP
MOV
MOV
MOV

R1,RO
C$GPHRD
(RO)+,CSR(R4)
(RO)+,VEC(R4)
(RO)+,PRIOR(R4)

MOV
MOV

(RO),DSB(R4)
(R2),PAT(R4)

BEQ
GPHARD

MOV

012037
011064
011264
005722

CS$ERSF

TsT

END
R1,RO

(RO)+,T.DRIVE

sMAXIMUM OF FOUR DRIVES ALLOWED

:GET CSR

:GET VECTOR
;GET BREAK LEVEL
sRLO1/2 TYPE ... RLO1-1
:GET DRIVE

(R2)+

: TEST FOR DRIVES OF SAME TYPE AND NO REPEATED DRIVE NUMBERS
023737
001462

002012

003130

LSUNIT,WT

sSKIP TEST FOR FIRST DRIVE

GPHARD

@0,RS5

;BASE ADDRESS OF FIRST P TABLE

MOV

012700
104442
010005

022736
022740
022742
1677 022742
1678 022746
1679 022750
1680
1681 022754
1682 022762

CcMP

BEQ

TRAP

023765
001423

003060

012746
012746
010600
104417
062706

022303
000001

000006

cHP
BEQ

T.DRIVE, TYPDR(RS)
44

MOV

SFRM19, -(SP)

026465
001023

000004

100004 :

#1,-(SP)
SP,RO
CSPNTF
04,5P

GMANIL

OPROO1,0BUFF,1,YES

.WORD
.MORD
.WORD
.WORD

TST

BNE
JMP

024314
000010

43:

&FRM19

MOV
MOV
TRAP
ADD

017236

C$GPHRD

RO,R5

TRAP

005737
001002
000137

MOV

PRINTF

104443
000404
017236
000130
017302
000001

CS$GMAN

;CHECK DRIVE TYPE

:PROMPT

- DRIVE TYPE DIFFERNT

;PROMPT - CONTINUE TEST

100004

OBUFF
T$CODE
OPROO1
1
OBUFF

4%
CMPENA

sRETURN TO SUPERVISOR

2'..58(R4).DRBT(RS)

1CHECK DRIVE NUMBER

...

CNRLLAO RLO1/702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-13

SEQ 00327

INITIALIZATION SECTION
1683 022764
022764
022770
022774
022776
023000
1684
1685 023004
023004
023006
023010
023012
023014
023016
023020

1686 023020
1687 023024

1689
1690 023032
1691 023034
1692 023040
1693 023044
1695
1696
1697
1698

023054
023060
023064
023070

1699 023076

1700 023100

1701
1702
1703
1704
1705

023114

012746
012746
010600
104417

PRINTF

022341

000001

000404
017236

000130
017302
000001

005201
005337
062704
000662
013737
012704
005037
005037
012700
104447

10001$:

017236

024314

68:

003130
000010

002012
017240
003064
003062

003130

04,SP

GMANIL

OPROO1,0BUFF,1,YES

BR
.WORD
.WORD
.WORD
.WORD

10001
¢
OBUFF
T$CODE
OPROO1
1

TST

R1
WwT
OPAT+2,R4

CLR

FADJ

SDRBUF ,R4

FOWR

MOV

021611
000001

MOV

TRAP

ADD

;PROMPT - CONTINUVE TEST

;NEXT P TABLE

;iNEXT DRIVE

@EF .PUR

;GET BEGINNING OF BUFFER
;:CLEAR ADJ. TEST FLAG
;CLEAR OVERWRITE FLAG

OEF .PUR,RO
CS$REFG

BNCOMPLETE
8CC
PRINTF

...

LSUNIT,UUT

TRAP

DRIVE NUMBER

;RETURN TO SUPERVISOR

MOV

OBUFF

INC
DEC
ADD
B8R

READEF

000034

C$GMAN

6%
CMPENA

MOV

;PROMPT

CSPNTF

BNE
JMP

CLR

SETUP
&FRM11

SETUP

@FRM11, -(SP)

;PROMPT

PWR FAIL NOT SUPPORTED

SP,RO

CSPNTF

@4 ,SP

s INITIALIZE ROUTINE
sWE ATTEMPT TO LOCATE 5 PERFECT ADJACENT TRACKS AT 5 SPOTS

+ACROSS THE PACK.

;THE 5 SPOTS ARE: (EACH SURFACE)

1706

1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718

END:

103010
012746
012746
010600
104417
062706

ADD

TRAP

104443

005737
001002
000137

#FRM20, -(SP)
@1, -(SP)
SP,RO

TRAP

062706

&FRM20

MOV
MOV
MOV

sOUTER - TRACK O - 16 (BOTH RLO1 € RLO2)
;INNER - TRACK 238 - 254 (RLO1) OR 494 - 510 (RLO2)
sMIDDLE - TRACK 120 - 136 (RLO1) OR 248 - 264 (RLO2)
1ONE QUARTER - TRACK 56 - 72 (RLO1) OR 120 - 136 (RLO2)
i THREE QUARTER - TRACK 184 - 200 (RLO1) OR 376 - 392 (RLO2)
[

:IF WE FIND ANY BAD SPOTS, WE WILL REPORT SO............
023120
023124
023132
023140
023140

005237
012737
012737

003076

012746

022217

177777

003210
003212

SETUP:

1$:

INC
MOV
MOV
PRINTF
MOV

STFLG

¢-1,SERNM2

OFRM18
#FRM18, -(SP)

;INDICATE A START COMMAND
:PROMPT - UNLOAD DRIVES TO BE USED

Eies
CNRLLAO RLO1/02 DRIVE COMPAT

MACRO M1200

19 DEC 83

10:01

PAGE

14
SEG

INITIALIZATION SECTION

025144
023150
0235152
023154
1719 023160
025160
023162

012746
010600
104417
062706

MOV
MOV

000001
000004

TRAP
ADD
GMANIL

CSPNTF
04,5P
OPROO2,0B8UFF
,1, NO

.WORD
.WORD
.WORD
.WORD

OBUFF
T$CODE
OPROOZ2
1

TRAP
BR

104443
000404

025164
023166
023170
023172
023174
1720 023174

017236
000120
017321
000001
005737

017236

1723 023202
1724 023206
1725 023212
1726 023216
1727 023222
1728 023226
1729 023232
i;;? 023234

004537
004537
004537
012701
012700
012721
005300
001374

032326
031554
031030
002236
000062
177777

1732 023236
1733 N23242

004537
000001

031256

1736 023246

000000

000020

1739 023256
1740 023262
1741
1742 023264

005737
001005

003160

10002%
:

3%:

o1, -(5P)
SP,.RO

CSGMAN
10002%

;PROMPT

ABOVE CONDITIONS MET

ASK AGAIN

TST
BEQ

OBUFF
14

iNO

JSR
JSR
JSR
MOV
MOV
MOV

R5,LOAD
RS, SERNUM
RS, MERGE
o0UT10,R1
50. ,RO
0177777.(R1).

; TELL OPERATOR

i!Sfl

RS ,FNDTRK

DEC
BNE

TS7

BNE
ERRMRD

:TRY

TO FIND FIVE

: INWARD SEARCH

TRACKS

: TOP SURFACE

0,16.
0,16.

TRKFND

;WAS SEARCH SUCCESSFWL22??
; YES

10.,ERRFND,ERR1

;CAN'T FIND S ADJACENT TRACKS

TRAP
.MORD

CSERMRD
10

B8R

.HMORD
.MORD

TO LOAD

1GET SERIAL NUMBER
sMERGE BAD SECTOR F ILES
s INITIALIZE ALL TRACKS

RO
3

.MORD
.WORD

ERRFND
ERR1

{;:2 023274

000404

1745 023276
{;:g 023302

012700
004537

002236
031520

S58:

MOV
JSR

RS, FIXCYL

@0UT10,R0O

1STORE AWAY TRACKS FOUND

1748 023306
1749 023312
1750 023314
1751 023316
{% 023322

004537
000001

031256

74:

i‘Sfl

RS ,FNDTRK

:TRY TO FIND FIVE TRACKS

1754 023326
1755 023332
1756
1757 023334
023334
023336
023340

005737
001005

000001
000000
000000

104456
000012
017743

000020
000020
003160

.MORD
.MORD

O0,16.
0,16,

: INWARD SEARCH
1BOTTOM SURFACE

SUCCESSFUL?22?

BNE

TRKFND

1 WAS

ERRMRD
TRAP
.WORD
.WORD

10.,ERRFND,ERR1
CS$ERHRD

1CAN'T FIND S ADJACENT TRACKS

TST

10
ERRFND

s YES

QLA

CNRLLAO RLO1702 DRIVE COMPAY

MACRO M1200

19 -DEC-83

10:01

PAGE

Ca
27

INITIALIZATION SECTION
1758
1759
1760
1761
1762

023342
023344

020240
000404

023346
023352

012700
004537
004537
177777
000000
000376
000776

023356
1763 023362
1764 023364
1765 023366
1766 023372
1767
1768 023376
1769 023402
1770
1771

005737
001005

ERR1
108

002250
031520
031256

9s:

108:

000356
000756

254, ,238.
510.,494,

003160

TRKFND

104456

000012
017743

1772
1773
1774
1775
1776

1777
1778
1779
1780
1781
1782

1783
1784
1785
1786

020240
000404

012700
004537

002356
031520

12%:

004537
177777

031256

14%;

000001
000376

000776

005737
001005

1801

1803
1804
1805 023540

;STORE

TRACKS AWAY

sFIND NEXT S TRACK
1 OUTWARD SEARCH
: TOP SURFACE
s TRACK RANGE

;1WAS SEARCH SUCCESSFUL?

12¢

s YES

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND
ERR1

;CAN'T FIND S ADJACENT

144

: SKIP

#INN10O,RO

;STORE AMWAY TRACKS FOUND

RS ,FNDTRK

sNEXT SET
;OUTWARD SEARCH
sBOTTOM SURFACE

RS, FIXCYL

TRACKS

000356
000756

254,238,
510. ,494.

003160

TRKFND
16

: SEARCH SUCCESSFUL?
s YES

10. ,ERRFND,ERR1
CSERMRD
10
ERRFND
ERRL
184

:CAN'T FIND S ADJACENT TRACKS

104456

000012
017743

1787

o0UT11,RO

RS,FIXCyL
RS ,FNDTRK

020240
000404

012700
004537

002370
031520

164:

@INN11,RO
RS FIXCYL

1STORE AWAY TRACKS FOUND

004537
000001
000000
000176
000376

031256

18¢:

RS,FNDTRK

sNEXT SET
: INWARD SEARCH
; TOP SURFACE

000210
000410

126.,136.
254
. ,264,

005737
001020

003160

TRKFND
204

;:0ID WE FIND A SET
1 YES

004537
177777
000000
000202
000402

031256

RS ,FNDTRK

iNEXT SET (OTHER SIDE)
1OUTWARD SEARCH

000170
000370

130.,120.
258. ,248.

1 TRACK RANGE

CNRLLAO RLO1702 DRIVE COMPAT

D4
MACRO M1200

19-DEC-83

10:01

187
BNE

20%

PAGE

27-16

SEG 004,

INITIALIZATION SECTION
1806 023544
1807 023550
1808
1809 023552
023552
023554

005737
001005

003160

ERRHRD
TRAP

104456

. WORD
. WORD
. WORD
BR

000012

TRKFND

;1DID WE FIND A SET
s YES

10. ,ERRFND,ERR1
CS$ERHRD
10

sCAN'T FIND S ADJACENT

oMID10,RO
RS,FIXCYL
RS ,FNDTRK

s STORE AMWAY

TRACKS

023556
023560
023562

017743
020240
000404

023564
023570
023574
023600
023602
023604
023610

012700
004537
004537
000001
000001
000176

002306
031520
031256
000210
000410

126.,136.
254, ,264.

023614
023620

005737
001020

003160

TRKFND
PR

1 SUCCESS?
s YES

023622
023626
023630
023632
023636

004537
177777

031256

RS ,FNDTRK

000001
000202
000402

;LOOK THE OTHER SIDE
;sOUTWARD

000170
000370

130.,120.
258. ,248.

023642
023646

005737
001005

003160

TRKFND
244

1 SUCCESS?

10. ,ERRFND ,ERR1

sCAN'T FIND S ADJACENT TRACKS

023650
023650
023652
023654
023656
1833 023660
1834
1835 023662
1836 023666
1837
1838 023672
1839 023676
1840 023700
1841 023702
1842 023706
1843
1844 023712
1845 023716
1846
1847 023720
1848 023724
1849 023726
1850 023730
1851 023734
1852
1853 023740
1854 023744

000376

20¢%:
22%:

MOV
JSR

JSR

ERRFND
ERR1
224

CS$ERMRD
10
ERRFND
ERR1L
268

104456

000012
017743
020240
000404

sNEXT SET

: INWARD SEARCH
;BOTTOM SURFACE
1 RANGE

:BOTTOM SURFACE

s YES

012700
004537

002320
031520

24%:;

OMID11,RO

sSTORE AWAY THE TRACKS FOUND

004537
000001

031256

268:

RS ,FNDTRK

iNEXT SET

62.,72.
126.,136.

1 RANGE

28¢

TRKFND

1 SUCCESS?
1 YES
1LOOK OTHER SIDE

000000
000076
000176

000110
000210

RS, FIXCYL

005737
001020

003160

004537

031256

R5,FNDTRK

000000
000102
000202

000070
000170

66.,56.
130.,120.

177777

005737
001005

003160

TRKFND

284

: INWARD
: TOP SURFACE

1 SUCCESS?

1 YES

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE

27-17
SEQ 0047

INITIALIZATION SECTION
1855
1856 023746
023746
023750
023752
023754
1857 023756

104456
000012
017743
020240
000404

1859
1860
1861
1862
1863
1864
1865

023760
023764
023770
023774
023776
024000
024004

012700
004537
004537
000001
000001
000076
000176

002262
031520
031256

1867 024010
1868 024014

ERRHRD
TRAP

00QU10,RO

+STORE AWAY NEXT SET

ERR1
30¢

MOV
JSR
JSR

RS,FIXCYL
RS ,FNDTRK

000110
000210

62.,72.
126.,136.

005737
001020

003160

TST
BNE

TRKFND
32%

s SUCCESS?
: YES

004537
177777
000001
000102
000202

031256

JSR
-1

RS, 'NDTRK

;LOOK FOR ANOTHER SET

005737
001005

003160

28%:

000070
000170

66.,56.
130.,120.

000012
017743

020240
000404

;LOOK FOR NEXT SET
s INWARD
sBOTTOM
: RANGE

;sOUTWARD
;BOTTOM
3 RANGE

TRKFND

s SUCCESS?
s YES

10. ,ERRFND,ERR1
CS$ERHRD

sCAN'T FIND S ADJACENT TRACKS

@0QU11,RO
RS,FIXCYL

s STORE AWAY TRACKS

RS ,FNDTRK

sNEXT SET OF TRACKS
s INWARD
; TOP SURFACE

Bk HER

TST

104456

002274
031520

32¢:

004537
000001
000000

031256

34%:

000276
000576

000310
000610

005737
001020

003160

004537

031256

RS ,FNDTRK

000000
000302
000602

000270
000570

194,184,
386.,376.

003160

TRKFND

1 SUCCESS

10. ,ERRFND,ERR1

tCAN'T FIND 5 ADJACENT TRACKS

177777

005737
001005

—

012700
004537

-t

1880 024054
1881
1882 024056
1883 024062
1884
1885 024066
1886 024072
1887 024074
1888 0240786
1889 024102
1890
1891 024106
1892 024112
1893
1894 024114
1895 024120
1896 024122
1897 024124
1898 024130
1899
1900 024134
1901 024140
1902
1903 024142

sCAN'T FIND S ADJACENT TRACKS

.WORD
. WORD

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND

190.,200.
382.,392.
TRKFND
364

364

s RANGE

1+ SUCCESS?

:YES

;LOOK OTHER SIDE
sOUTWARD SEARCH

1 TOP

1 YES

F4
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-18
SEQ 0044

INITIALIZATION SECTION
024142
024144
024146
024150
024152

024154
024160

104456

TRAP

017743
020240
000404

. WORD
BR

000012

012700
004537
004537
000001
000001
000276
000576

002332
031520
031256

024204

005737
001020

003160

024212
024216
024220
024222
024226

004537
177777

024164
024170
024172
024174
024200

024210

MOV
JSR
JSR

000310
000610

1930
1931
1932
1933
1934
1935
1936
1937
1938

1939
1941
1942

1943
1944
1945
1946

384

€TQU10,RO
RS,FIXCYL
RS ,FNDTRK

;STORE TRACKS AWAY

190.,200.
382.,392.

: RANGE

iNEXT SET
1 INWARD
;BOTTOM SURFACE

TRKFND
404

: SUCCESS?

031256

RS ,FNDTRK

;OTHER SET

000302

000270
000570

194,184,
386.,376.

005737
001005

003160

TRKFND
408

: SUCCESS

10. ,ERRFND,ERR1
CSERHRD
10
ERRFND
ERR1

sCZN'T FIND S ADJACENT TRACKS

#TQUL1,RO

:STORE SET AWAY

#0UT10,RO

;:DID WE FIND ANY AT ALL

000001

000602

104456

1927
1928

C$ERHRD
10
ERRFND
ERR1

000012
017743
020240
000404

002344
031520

40%:

012700
012701
022720
001017
005301
001373

002236
000062

42%:

177777

444
;

005302
001373

;YES

RS,FIXCYL
050.,R1
0-1,(RO)
EXIT
R1
3. . NONE

glERSF

000003
017571
000000
005001

104451
005201

;B0TTOM SURFACE
: RANGE

444

104454

010100

;sOUTWARD

424

012700
004537

013702

sYES

CMPENA:
002012

484

NONE
0
R1

LSUNIT,RO
LSUNIT,R2

R1,RO
C$DOOV

R1
RO
R2
484

tUSE R2 BECAUSE RO IS USED IN
i1...000U MACRO EXPANSION
100 DROP UNIT

:1JSD REV A
1JSD REV A

:JSD REV A
:1JSD REV A

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19- DEC-83

10:01

PAGE

G4
27

SEQ 0045

INITIALIZATION SECTION
1947 024334
024334
1948
1949 024336
1950 024336
024336
024336
1951 024340
1952
1953 024340
1954 024340

1955
1956 024340
1957
1958 024342
024342
024342
1959 024344

DOCLN

TRAP

104444
EXIT:

L10010:

104411

1965

1970
1971
1972

1973
1974
1975
1976
1977
1978
1979

TRAP

CS$INIT

AUTOCODE
BGNMOD
BGNAUTO

;AUTO DROP SECTION

NOP

000240

ENDAUTC
L10011:

104461

ENDMOD

BGNMOD

TRAP

;D0 NOTHING

C$AUTO

CLNCODE
BGNCLN
NOP

000240

1966

1967
1968
1969

ENDINIT
ENDMOD

1960
1961
1962

1963
1964

CS$DCLN

L10012:

104412

ENDCLN

TRAP

ENDMOD
BGNMOD

000240

L10013:

104453

CS$CLEAN

DRPCODE
BGNDV
NOP
ENDDU

TRAP
ENDMOD

CsDU

GLOBAL SUBROUTINES SECTION
BGNMOD

GLBSUB
3

s TIMING ROUTINES
3

sCALL 1:
3

sCALL 2:

JSR

PC,TIME

JSR

PC.XTIME

012737
005437

000160
017232

002116

TIME:

012727

000001

€160,L$DLY
XDELAY

TRAP

CS$RDBUY

DELAY
MOV

1
01,(PC)e

READBUS

104407
103420

MOV
NEG

1%:

BCOMPLETE
2
B8CS

sGET OUTER DELAY LOOP
1GET NEGATIVE OF MULTIPLY FACTOR

1Q-BUS?

:1BRANCH - IF YES
sMAIT

CNRLLAO RLO1/02 DRIVE COMPAT
GLOBAL

H4
MACRO M1200

10:01

PAGE

27-20

SEG Ouas

SUBROUTINES SECTION

024376
024400
024404
024406
024412
024414
024420
1992 024422

1993 024426
024430
1995
1996

000000
013727
000000
005367
001375
005367
001367
005237
002761
000422
012737

002116

177772
177756
017232

000150

012727
000000
013727
000000
005367
001375
005367
001367
005237
002761
000207

000001

012737
006337
006337

000160
017234
017234
017234

005437

002116

2%:
3s:

002116

177772
177756
017232
43

002116

XTIME:

104407

103023

2010
2011
2012

19-DEC-83

.WORD
MOV
.WORD
DEC
BNE
DEC
BNE

O
L$DLY,(PC)+

BLT

INC

O
-6(PC)
.-4
-22(PC)
.-20
XDELAY

BR
MOV
DELAY
MOV
.WORD
MOV
.WORD
DEC
BNE
DEC
BNE
INC
BLT

44
€150,L80DLY
1
e1,(PC).
O
L$DLY,(PC)e
O
-6(PC)
.-4
-22(PC)
.-20
XDELAY
3

MOV
ASL
ASL
NEG
READBUS
TRAP

€160,L$DLY
YDELAY
YDELAY
YDELAY
CS$RDBU

8CC
MOV

1s
0150,L$DLY

RTS

BNCOMPLETE

012737

000150

012727
000000
013727
000000
005367
001375
005367
001367
005237
002761
000417

000020

012727
000000
013727
000000
005367
001375
005367
001367
005237
002761
000207

000050

002116

2%:

002116

177772

DELAY
MOV
.MORD
MOV
.WMORD
DEC
BNE

DEC
BNE

177756

INC

017234

1s:

002116
177772
177756
017234
3s:

tWAIT FACTOR EXPIRED?

20
920,(PC)+
O
LS$DLY,(PC)e
O
-6(PC)
.-4

-22(PC)
.-20

YDELAY

IF NO

:GET OUTER DELAY LOOP

;WAIT WITH RESPECT TO FONZ BUS

;WAIT FACTOR EXPIRED?
sBRANCH ;RETURN

IF NO

;GET OUTER DELAY LOOP

sMULTIPLY FACTOR BY 4
'

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

sGET NEGATIVE OF RESUWLT
;@-BUS?

;BRANCH - IF NO
:GET OUTER DELAY LOOP
sWALIT WITH RESPECT TO FONZ BUS

YDELAY
1

;WAIT FACTOR EXPIRED?
1BRANCH - IF NO

MOV
LMORD
MOV
L.MORD
DEC
BNE
DEC
BNE

#50,(PC)e
O
LSDLY,(PC)e
O
-6(PC)
.-4
-22(PC)
.-20

RTS

3¢
S0

INC
BLTY

sEXIT

;WAIT FACTOR EXPIRED?
;1BRANCH - IF NO
EXIT
sWAIT

BLT

B8R
DELAY

:+BRANCH

1RETURN

14
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGF 27-21

SEG 0047

GLOBAL SUBROUTINES SECTION
2016

2017
2018
2019
2285(1)

;ROUTINE 10 PERFORM OVERWRITE
sCALL:
JSR
RS, OVWPER
:
SECTORS TO WRITE FORWARD
:
SECTORS TO WRITE REVERSE

2022 024634

010046

2026 024644

005000

2023 024636
2024 024640
2025 024642

2027 024646
2028 024652

2029
2030 024656

2031 024662

2032 024664
228;2 024670
2035 024672

2036 024676
2037 024702
2038 024706
2039 024710
2040 024714

2041 024720
2042 024724

g‘l, 025036

003022

MOV

Q0VMTRK ,R1

s DONE.
sGET START OF LIST OF TRACKS

021227
001500

177777

CHP
BEQ

(R2),0-1
38

1LEGIT TRACK?222?2?
iNO, EXIT

005037

003122

crL

;:CLEAR CYLINDER/MHEAD FOR SEEK

011102

005037
020027
002402
005237
004537

005037
051237

1s:

003120
026302

2s:

003122
003122

052737
000403
052737
004537
005037

000377

003122

000777
026302

003122

051237

003122

004537
013703
004537
000034
012737
004537
004537

2069 025072

005721

005200
020027
001267

CLR
cMP
BLT
INC
JSR

CLR

BIS

026302
003126
025116
003116

005037

MOV

CLR

003120
000005

020116
027226
027612
003122
000001

2062 025042
2063 025046
2064 025052
2065 025054
2066 025062
2067 025066

2070 025074
2071 025076
2072 025102

3RO HAS COUNT IF RO<S.

012701

012737
004537
004537
005037
022737
001004

2059 025032

(R5)+,FORSK
(R5)+,REVSK

CLR

MOV
MOV

2047 024746
2048 024754
2049 024760
2050 024764
2051 024770
2052 024776

2058 025026

:SAVE RO, R1, R2, R3

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

003126
003124

004537
013703
004537

025000
025006
025010
025016
025022

RO, -(SP)

MOV
MOV
MOV

012537
012537

2043 024730
2044 024734
2045 024740

2053
2054
2055
2056
2057

OVWPER: MOV

010146
010246
010346

003060

003122

S0s:
S1s¢:

(R1).R2

SURF
RO, #5
24
SURF
RS,SKCYL
cyL

(R2),.CYL

sUSE TOP SURFACE, IF RO>S.
;USE BOTTOM SURFACE, IF RO>1
:GET POINTER TO TRACK

s TOP/BOTTOM
: TOP, BRANCH
;BOTTOM SURFACE

;SEEK TO CYLINDER

JSR
MOV
JSR

RS, SKCYL
FORSK,R3
RS, WRSEC

:SEEK TO PROPER CYLINDER
+SECTORS TO WRITE
1GO WRITE SECTORS

MOV
JSR
JSR
CLR
ce
BNE

OF WD ,DIRC
RS, VEROW
RS, VEROD
criL
#1,7.0RIVE
S0s

sSET FORWARD DIRECTION
:VERIFY OVERWRITE
:VERIFY OTHER DRIVES DATA

BIS
BR
8IS
JSR
CLR

377,CYL
S1¢
#777,CvL
RS, SKCYL
cyL

1RLO1?
iNO
+SET TO GO TO MAX CvL
sMAX CYL FOR RLO2
$SEEK TO MAX CYLINDER ON DRIVE

003120

CLR

026302

JSR

RS,SKCYL

100 ANOTHER SEEK

003124
025116

MOV
JSR
.WORD
MOV
JSR
JSR

REVSK,R3
RS, WRSEC
28.
OREV,DIRC
RS, VEROW
RS, VEROD

1SECTORS TO WRITE
tWRITE THEM

(R1)e

s+ INCREMENT TO NEXT TRACK

020126
027226
027612

BIS

003116

38:

000012

TST

INC
CcHP
BNE

SURF

(R2),CYL

RO
RO,#10
14

1SET DIRECTION
1 VERIFY OVERWRITE
;VERIFY OTHER DRIVES DATA
sACCOUNT FOR IT
1DONE
?
1NO, GO BACK

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

J4
19-DEC-83

10:01

PAGE

27-22

SEG 004#

GLOBAL SUBROUTINES SECTION
2073

2074

2075
2076
2077
2078
2079
2080
2081
2082
2083
2084
2085
2086

2087

2088
2089
2090
2091
2092

025104
025106
025110

025112
025114

012603
012602
012601
012600
000205

MOV
MOV
MOV

(SP)+,R3
(SP)+,R2
(SP)+,R1

sRESTORE REG.

RTS

JEXIT

MOV

(SP)+,RO

;ROUTINE

TO WRITE SECTORS

. WRD

;USED IN OVERWRITE TEST;ADJACENT CYLINDER TEST
sCALL
JSR
RS,WRSEC

s STARTING SECTOR

:R3 HAS BITMAP OF SECTORS TO WRITE
;R4 HAS DRIVE BUFFER POINTER
025120
025122
025124
025130
025134

010046
010146
010246

012701
012702
016421

001374
012701
012737
053702
005337
001374
005737
001402
052702
052502
030103
001452

WRSEC:
003232

2%:
100000
000007
003122

003120

003206

003204
003202

MOV
MOV

#BUF ,R1
€128. ,R2

;WRITE PATTERN INTO
sMEMORY THAT WE

DEC
BNE

R2
24

MOV

6%:

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

PAT(R4),(R1).

#100000,R1
@7,TEM

BIS
ASL

CYL,.R2
R2

TST

SURF

DEC
BNE

;MASK FOR BIT MAP

TEM
120%

(RS)+,R2

BEQ

:NO

BIT

R1,R3

CLR
MOV
MOV
MOV

HSFLG
€-128. .8
R2,8DA
R2, TEMP

cHP

R2,039.

suB
MOV
MOV

940, ,BDA
#BUF ,BBA

1LOAD BUS ADDRESS

fifE

RS, LDFUNC

;GO WRITE

TST

ERFLG

TST

HSFLG

®177700,.R2

TEMP ,R2

104

TRAP

CSERSOFT

.WORD

ERR2

. WORD
. WORD

INC

sMRITE THIS SECTOR?

;LOAD WORD COUNT
1LOAD DISK ADDRESS
s SAVE DISK ADDRESS

ERRSOFT 100.,WRIT1,ERR2

003110

;PACK FOR THIS
sORIVE

10, SKIP
;SET BOTTOM HEAD
sSTART AT SECTOR 28.

BNE

104457

sWILL WRITE ONTO

3¢
OHEAD ,R2

BEQ

000144
020136

1SAVE R1
1SAVE R2

BEQ
BIS
8IS

BLE

114

005737
001416
005737
001007

005237

; SAVE RO

BIC

162737
012737
013702
004537

020276

3s:

4%:

005037
012737
010237
010237
042702

2125 025320

1208:

000100

RO, -(SP)

MOV
MOV

003056

MOV

MOV
MOV

100
WRIT1

HSFLG

1RESTORE DISK ADDRESS
1ERROR IN WRITING

3$NO, OKAY

<4
CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-23

SEQ 0047

GLOBAL SUBROUTINES SECTION

2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154

000760

10¢:

104456
000156
020136
020276

025336
025540
025342
025344
025346
025350
025352
025354

Ss:

025356
025362
025366
025374
025400
025404
025406

ADJCYL :

ROR

MOV
MOV
MOV
RTS

003216

21%:
208:

1%:

003230

2%:

CLR
CLR

11%

110. ,WRIT1,ERR2
CSERHRD

110
WRIT1
ERR2

sNEXT SECTOR
;CLEAR CARRY BIT
?
;DONE
;NO GO BACK
;RESTORE REGISTERS AND EXI1

R2
R1
44

(SP)+,R2
(SP)+,R1
(SP)+,RO

ADJTRK
HEADOL

@1,ADJWT

@0UT10,R1

(RS)+,ADJLOC
1s
ADJDIR
RS
(R5)+,ADJLC2
(R5)+,ADJLC3
(RS5)+,ADJLCA
ADJLOC,RO
€16.,STSEC

s INSIDE/OUTSIDE TRACK FLAG
s INIT TO TOP SURFACE
:+START OF TRACK LIST
i

;PICK UP TRACK OFFSET
+IS THERE ONE?

sNO EXIT
:YES, GET REST OF INFO
s:GET OFFSET

+STARTING SECTOR IS 16

R1,R2

;GET START INTO R2

sDOWN COUNT OFFSET
sFOUND IT?

€34, ,STSEC

(R2).

: INDEX (R2)
sNO, NEXT SECTOR

#40. ,STSEC
3¢

1BACK FOR NEXT

177777

(R2),0-1
5S¢

sLEGAL TRACK?
s YES, CONTINUE

026154

13¢

iNO PICK UP NEXT SET

SURF

+SET UP FOR OUTER TRACK

HEADO1
6%

sWHICH HEAD?
1 TOP, SKIP

025442
025444

2158 025452
2159 025460
2160 025466
2161 025470
2162 025476
2163
2164 025500
2165 025504
2166
2167 025506
2168
2169 025512
2170 025516
2171
2172 025522
2173 025526
2174
2175 025530
2176
2177 025536
2178

INC
CLC

8CC

025412
025414
025420
025424
025430
025434

2155 025446
2156
2157 025450

BR
ERRHRD
TRAP
. WORD
. WORD

209333
8%2 BR BR 3 333335CR3E8

2126 025324
2127 025326

3%:

000042
000050

003230
003230

003230

003120
003122

Ss:

003114
000001

026302

;:o..svsec

cvL

#1,SURF

003120
64:

RS,SKCYL

;LOWER HEAD,

SET IT!

1SEEK TO OUTER TRACK

L4
CNRLLAO RLO1/702 DRIVE COMPAT
GLOBAL

MACRO M1200

19-DEC-83 10:01

PAGE 27-24

SEQ 000

SUBROUTINES SECTION

gizg 025542

011237

003122

2181 025546
2182 025552
2183 025560
2184 025564

004537
012737
113703
000303

026302
020116
003101

042703

000377

2187 025572
S{&'} 025600

022737
002003

000047

003230

2190 025602
g{:é 025610

162737
013737

000050
003230

003230
025622

2193 025616

004537

025116

2195 025624
2196 025632
2197 025636

013737
004537
000000

025622
030140

025636

025636
030404

025652

003230
000010
000047

003226
003226
003226
003226

gi:z 025566

2194 025622

2198 025640
2199 025646
2200 025652
2201 025654
2202 025662
2203 025670
2204“!205 025676

000000

013737
004537
000000
013737
062737
022737
002003

2228_? 025700

162737

000050

gggg 025706

013703

003220

g{g 025712

013737

003226

2212 025720

004537

025116

2213 025724
2214 025726
2215 025734
2216 025740
2217 025742
2218 025750
2219 025754
2220 025756
2221 025764
2222 025766
2223 025774

000000
013737
004537
000000
013737
004537
000000
022737
001004
012737
000403

003116

025754

000001

003060

000377

003122
003122

g‘ 026004

004537

026302

gggg 026010

011237

003122

2231 026014
2232 026020
gggz 026026

004537
012737
113703

026302
020126
_003223

2235 026032

000303

8%:

108%:
208%:

025724

025740
030404

000777

7%:

9%:

025740

012737

(R2),CvL

;GET DESIRED TRACK

JSR
MOV
MOVB
SWAB

RS, SKCYL
&FWD,DIRC
ADJLOC+1,R3
R3

;SEEK TO IT
;SEEK DIRECTION
;GET SECTORS TO WRITE
sALIGN IT

cMP
BGE

@39, ,STSEC
74

;OVER FORTY?
;NO, CONTINUE

SuB
MOV

040, ,STSEC
STSEC,8%

;YES BACK IT uP
;STARTING SECTOR

JSR

RS, WRSEC

;WRITE SECTORS

MOV
JSR
.WORD

84$.108¢
RS, VAJWR
O

;VERIFY THIS WRITE

BIC

025724
030140

gg 025776

MOV

003116

10s:
110¢:
210¢:

.WORD

MOV
JSR
.WORD
MOV
ADD
cMP
BGE

0377,R3

;:CLEAR OUT HIGH BYTE

108%,208¢
RS,BSVMWR
O
STSEC,STSEC1
#8.,STSEC1
039, ,STSEC1
9s

;GET OTHER SECTORS TO WRITE
;8 SECTORS GONE BY
;GONE PAST 40?7
iNO, OKAY

SuB

€40, ,STSEC1

:YES BACK IT uUP

MOV

ADJLC2,R3

;:GET SECTORS TO WRITE

MOV

STSEC1,10¢

;STARTING SECTORS

JSR

RS, WRSEC

;WRITE SECTORS

.WORD
MOV
JSR
L.MORD
MOV
JSR
LMORD
cHP
BNE
MOV
BR

O
104,110¢
RS, VAJWR
O
1104,2104
RS,BSVWR
O
#1,7.0RIVE
774
377,CYL
88

sVERIFY THIS WRITE
sVERIFY ADJU CYL + 1

77%:

MOV

€777,CYL

88s:

JSR

RS, SKCYL

MOV

(R2),.CYL

$1SEEK BACK TO PROPER TRACK

JSR
MOV
MOVB

RS, SKCYL
OREV,DIRC
ADJLC3+1,R3

;SEEK TO PROPER CYLINDER
s SEEK DIRECTION
;GET SECTORS TO WRITE

SWAB

sALIGN IT

M4
CNRLLAO RLO1/02 DRIVE COMPAT
GLOBAL

MACRO M1200

PAGE

27-25

SEQ 0051

SUBROUTINES SECTION

2236 026034

042703

000377

2239 026046
gg:? 026052

004537
000000

025116

2242 026054
2243 026062

013737
004537

026052
030140

026066

2245 026070

013737

026066

026102

2248 026104
gg;g 026110

013703
013737

003224
003226

2251 026116

004537

025116

2254 026124
2255 026132

013737
004537

026122
030140

026136

2258 026140
2259 026146

013737
004537

026136
030404

026152

2262 026154
2263 026160
2264 026162
2265 026166
2266 026170
2267 026174
2268 026200
2269 026204
gg;g 026206

005737
001003
005237
000402
005037
062701
020127
002002
000137

003114

gg;; 026040

2244 026066

2246 026076
2247 026102

gzzgg 026122

25553 026136

22222 026152

013737

000000

004537
000000

000000

003230

030404

026052

026122
12%:

1128:

212¢:

13s:

003114
148:
998 :

025430

005737

003064

2276 026220
2277 026224

005037
000421

003064

2278 026226

2279 026232
2280 026234
2281 026240
2282 026244
2283 026250
2284 026254
2285 026262

2286 026264

2287 026270

2288 026272
2289 026274
ggg 026300

;:CLEAR QUT HIGH BYTE

JSR
.MORD

RS, WRSEC
©

;WRITE PROPER SECTOR

MOV
JSR

118,111%
RS, VAJWR

;VERIFY THIS WRITE

.WORD

MOV

STSEC,11$

111%,211%

JSR
.WORD

RS,BSVWR
O

ADJLCA4,R3
STSEC1,12%

:GET SECTORS
:GET SECTORS TO WRITE

JSR

RS, WRSEC

;WRITE PROPER SECTORS

MOV
JSR

12%,112%
RS, VAJWR

;VERIFY THIS WRITE

MOV
JSR

112%,212%
RS,BSVWR

;VERIFY ADJ CYLINDERS + 1

TST
BNE
INC
Rl
CLR
ADD
cHP
BGE
JMP

HEADO1
144
HEADO1
954
HEADO1
#10. ,R1
R1,2INNS1
18$
2s

MOV
MOV

L.MORD

.WORD

.MORD

;WHICH HEAD WERE WE DOING?
sNEXT SET OF TRACKS
:NEXT SET OF TRACKS
;END OF LIST
;END OF TRACK LIST
iNO GO BACK

;AT END OF TRACK LIST NEXT GROUP OF WRITES

2274 026212
2275 026216

1118:
211%:

003114
000012
002400

BIC

MOV
11%:

gg;g

2292

19 DEC-83 10:01

001403
005737

001004
005237
000137
005037
005237
023737
001402

000137

005725

001376
005037

000205

18%:

003214

154

003214
025374
003214
003216
003216

16%:

025374
003104

003130
178:

18T

FADJ

sFIRST SET?

CLR
B&

FADJ
17s

:YES, CLEAR FIRST
JEXIT

164
ADJTRK
214
ADJTRK
ADJWIT
ADJUUT ,WUT
178

s TRACKS, YES 16%
iNO, SET INSIDE FLAG
;GO DO INSIDE TRACK
;BACK TO OUTSIDE TRACK
;DONE WITH ANOTHER
;DONE TABLE FOR ALL WT?
:YES, FOR EXIT

BEQ
TST

BNE
INC
JMP
CLR
INC
cMP
BEQ

JMP
TST

BNE
CLR
RTS

154

. ADJTRK

214

(RS)+

17¢
ADJDIR

sNO, CONTINUE

;DONE BOTH INSIDE OUTSIDE

tNO, GO BACK FOR NEXT
1BUMP EXIT TO END OF

s TABLE FOR PROPER RETURN
JEXIT

;ROUTINE TO SEEK TO A DESIRED CYLINDER

CNRLLAO RLO17/02 DRIVE COMPAT
GLOBAL

MACRO M1200

19-DEC-83

10:01

PAGE

27-26

SEQ LLS¢

SUBROUTINES SECTION

sCALL:

JSR

RS, SKCYL

MOV

R1,-(SP)

:SAVE R1
;GET PRESENT POSITION

TST

ERFLG

;:ERROR FLAG SET
s YES, SKIP

CLR

BIS

CYL,R1

ASL
DEC
BNE

R1
TEM
120%

SuB

E.MP,.R1

NEG

BIS
BIS

#SIGN,R1
oMK, R1

iNEGATE
:SKIP SETTING DIRECTION
;SET FOR FORWARD SEEK
;SET MARKER BIT

; TOP

;ROUTINE HAS DESIRED CYLINDER

IN LOC

“CvL"

010146
004537
000010

005737
001104
005001
012737
053701

006301
005337
001374
042737
163701
103002
005401

052701
052701
005737
001402
052701
010137
004537

90$:

032432

003074

000007
003122

120%:
003172

18:
24:

003204
032432

TST

032432

000077

003172

012737
053701

000007
003122

003056

005337
001374
005737
001402
052701
020137
001414

003056

SURF

sCALCULATE DIFFERENCE WORD
:IF POSITIVE SET DIRECTION

;BOTTOM
;LOAD DIFFERENCE WORD
;EXECUTE SEEK

TST

ERFLG

;ERROR?
s YES, SKIP

JSR

RS,LDFUNC

:VERIFY POSITION?

TST

ERFLG

BIC

#77,.E.MP

CLR
MOV

R1
e7,TEM

ASL

8IS

DEC
BNE
TST

BEQ
4%;

€177 ,E.MP

:GET THE SELECTED CYLINDER NUMBER

RS,LDFUNC

BNE

003120

&7,TEM

JSR

RDHDR

2208

OSKHS ,R1

BNE

003074

RS, LDFUNC

BIS

SEEK

004537
000010
005737
001033
042737

000014
020077
020704

BEQ

003074

104455

BIC

8CC

000001
003120

000100
003172

RDHDR

MOV

003056

000177
003172

JSR

BNE

005737

001041

2345 026514
026514
026516
026520
026522

;

SKCYL:

BIS
cMP

BEQ

ERRDF

CYL,R1

TEM
2208

SURF

OHEAD,R1
R1.E.MP

12. ,SKER,ERR6

TRAP

CSERDF

.WORD
.WORD

SKER
ERR6

. WORD

;VERIFY POSITION

;MIS SEEK ERROR

CNRLLAQ RLO1702 DRIVE COMPAT
GLOBAL

MACRO M1200

19 DEC-8%

10:01

JMP

908

ERRDF
TRAP

13. . FUNERR,.ERRS
CSERDF
13
FUNERR

;ERROR

(SP)+,R1

;CANT GET THERE

PaGE

SUBROUTINES SECTION

2346 026524
2347
2348 026530
026530
026532
026534
026536
2349 026540
2350 026544
2351 026546
2352
2353
2354
2355
2356 026550

000137
104455
000015
020047
020644
000157
012601

. WORD
WORD

026304

64:

REGDMP:

000014

003172
003170
003166
003164
021725

000014

2359 026650

026752
2370 026756
2371
2372
2373
2374

Ss:

.WORD
JMP

MOV

RTS

ERRS
908
RS

IN SEEX OPERATION

sEXIT

;ROUTINE TO PERFORM REGISTER PRINTOUT DUMP
PC , REGOMP
JSR
sCALL:

2357
2358 026610

2363 026672
2364 026700
2365 026706
2366 026714
2367 026722
2368 026724
2369 026732
026732
026736
026742
026746

026304

24:

016337
013746
012746
012746
010600
104414
062706
000207

1s:

;PROMPT
oFRM12,BCS,BBA,BDA,BMP

BEFORE

;PROMPT

AFTER CS:

PRINTB

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

BMP,
- (5P)
BBA, -(5P)
B8CS, -(SP)
OFRM12, -(SP)
o5, -(SP)
SP.RO
CSPNTB
014,5P

PRINTB

OFRM13,E.CS.E.BA,E.DA,E.MP

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
8IT
BEQ
MOV
MOV
MOV
8IS
MOV
8IT
8EQ
MOV
PRINTE
MOV
MOV
MOV
MOV
TRAP
ADD

E.DA, -(SP)
E.BA,-(SP)
E.CS.-(SP)
SFRM1S, -(SP)
o5, -(SP)
SP.RO
CSPNTB
014,5P
eBIT14,E.CS
14
CSR(R4),R3
#13,DACRS)
04,8CS
DSB(R4),BCS
8CS,CS(R3)
0200,CS(R3)
2
MP(R3),DRSTAT
OFRM14.DRSTAT
DRSTAT, -(SP)
OFRM14 . -(SP)
02, -(SP)
SP,RO
CSPNTB
#6,5P

RTS

;PROMPT

CS:

BA:

_ BA:

DA:

DA;

DRIVE STATUS

tROUTINE TO STORE OR RETRIEVE ADJACENT CYLINDER SECTOR DRIVE
+ INFORMATION FROM THE 24X5 “SECLST" BUFFER.
sENTER WITH RO = SECTOR REQUEST

{

CNRLLAO RLO1/702 DRIVE COMPAT
GLOBAL

MACRO M1200

19 DEC-8%

PAGE

27-28

5£G 0054

SUBROUTINES SECTION

2375
2376
2877

sEXIT WITH RO = ADJACENT CYLINDER DRIVE INFORMATION FOR SECTOR
sEXIT WITH RO = O IF SECTOR REQUESTED IS NOT IN BUFFER MAP

sCALL 1:

2378
2379

JSR R5,RSADJS
.WORD
O
JSR RS,RSADJS

;CALL 2:
026760

. WORD

RSADJS:

010146
010246

010346
042700
012537
012701
012702
012703

@SECBUF ,R2

1START OF 24XS BUFFER

#16. ,R3

se.LOC.RI

R3,040.
1s
040. ,R3
18
024, ,R1

020003

RO,R3
54
(R2)+
R3

001413
005722

L 1 viet HET

1SAVE SECTOR BITS
1SAVE RETRIEVE/STORE FLAG

048, ,R2
034, ,R3

012701

:3.039.
4%

s INDEX TRACK REFERENCE

tUPDATE BUFFER TO NEXT TRACK REF
.,
sUPDATE SECTOR START FOR NEXT TRACK

H
;SET COUNTER FOR 24 SECTORS

sCOMPARE SECTOR TO SECTOR TABLE

sYES,STORE OR RETRIEVE SECTOR INFO.
s INDEX SECLST BUFFER IN WORD FORMAT
1 INDEX SECTOR COUNT

sCOMPARE SECTOR COUNT FOR <40

sEXIT ROUTINE,SECTOR NOT FOUND

(R2),RO

1CHECK TRACK INDEX

R4 ,(R2)

RTS

;SECTOR 16 START FOR (N-2) TRACK

sKEEP SECTOR COUNT<40
;1PASSED 24 SECTORS?
;COMPARE NEXT SECTOR

GNI LG

Ss:

;START WITH TRACK (N-2)

#40. ,R3
R1
3

RO
003102

:STORE SECTOR INFO.

€177700,R0
(R5)«,ADJFLG

020327
002765
162703
000762

SECTOR INFO.

R2,-(SP)

18:

001413
005201
062702
062703

tRETRIEVE

01.R1

123701

RRERRYRRRRRRRRRY 2222

10:01

(SP).,R2
(SP).,R1

1SETUP RO FOR EXIT

1FLAG=0 FOR RETRIEVE

;STORE DRIVE INFO. INTO BUFFER

;SAVE DRIVE INFO. INTO RO FOR EXIT

EXIT

sROUTINE TO SET DRIVE IN SECTOR LIST
RS,SETLST
1RO HAS SECTOR
JSR
sCALL:
sDRIVE GOTTEN F ROM R4

027126

010146

027130
027134
027136
027142
027146
027150
2431 027152

162700
062700
012701
005700
001403
005300

SETLST: MOV

R1,-(SP)

1SAVE R1

SUB
BPL
ADD
MOV

gio..ao

1START LIST AT O

000034
002402

3¢:

1%:

TST
BEQ
DEC

#40. ,RO

@SECLST,R1
RO

1BEGINNING OF SECTOR LIST
1FOUND SECTOR?

1DECREMENT SECTOR

1BRANCH IF YES

CNRLLAO RLOL1/702 DRIVE COMPAT

2432
2413
2434
2435
2436
2437
2438
2439

2440
2441

19-DEC-83

10:01

PAGE

27-29

5EQ 005%%

SUBROUTINES SECTION
027154
027156
027160
027162
027164

2442 027166
2443 027170
2444 027174
2445 027176
2446 027202
2447 027206
2448 027210
2449 027212
2450 027214
2451 027216
2452 027220
2453 027222
2454 027224
2455
2456
2457
2458
2459
2460
2461
2462
2463
2464 027226
2465 027230
2466 027232
2467 027234
2468 027242
2469 027246
2470
2471 027254
2472 027262
2473 027270
2474 027276
2475 027304
2476 027306
2477 027310
2478 027314
2479
2480 027316
2481 027322
2482
2483 027324
2484 027330
2485 027332
2486 027340
2487 027346
2488 027354

005721
000773
010411
012601
000205

1ST

28:

RTS

sROUTINE

010146

162700

100002
062700
012701
005700
001403
005300
005721

BR
MOV
MOV

000034

JSR

FNDDRvV:

MOV
SuUB
BPL
ARDD
MOV
TST
BEQ
DEC
TST
BR
MOV
MOV

3s:
18:

002402

000773

24:

011100
012601
000205

(R1).
1%

R4,(R1)

(SP)+,R1

sNEXT ENTRY IN LIST
1GO BACK
1STORE DRIVE BITS IN LIST
;RESTORE R1

TO LOCATE DRIVE THAT WROTE SECTOR LAST
RS ,FNDDRV
+RO-CONTAINS SECTOR

;CALL:

RTS

31ON EXIT RO-DRIVE

R1,-(SP)
#28. .RO

240, ,RO
@SECLST,R1
RO
24
RO
(R1)e
1¢

(R1),RO
(SP)+,R1
RS

1 SAVE R1

sSTART LIST AT O

1START OF LIST

1FOUND SECTOR?

sYES, GET DRIVE @, EXIT
i1NO, DOWN COUNT SECTOR
tNEXT ENTRY IN LIST

GO BACK
:GET DRIVE BUFFER POINTER
sRESTORE R1
tEXIT

sROUTINE TO VERIFY THAT THE OVERWRITE OID ACTUALLY OVERWRITE THE
:1PREVIOUS DATA ON THE PACK.
:

sCALL:

JSR

RS, VEROW

010046
010146
010246
012737
012701
016437

VEROW:

000034
100000

012737
012737
042737
053737
030103
001521
004537
000014

177600
003232
000077
003132

005737
100107

003164

005737
001412
012737
016437
016437
000415

003062

1¢:
Fi

032432

017373
000000
000005

003072
003070
003134

USES R3 AS BIT MAP OF SECTORS TO
CHECK.
R3 IS LOADED PRIOR TO
WRITING SECTORS.

32 3gBonndd d839d¢

GLOBAL

MACRO M1200

RO, -(SP)
#28. ,SECT

1 SAVE REGISTER CONTENTS
s START VERIFY AT SECTOR 28

#100000,R1
PAT(R4),GDATA

1BIT MASK FOR VERIFICATION
1GET PATTERN FOR THIS DRIVE

#-128. .8

1SET UP READ-ONE SECTOR

#77,80

sCLEAR OUT SECTOR BITS

#B8UF ,BBA
SECT,BDA

1BUS ADDRESS
+SET SECTOR

R1.R3
S¢

;100 WE READ THIS ONE?
1NO, BRANCH

E.CS

1 ERROR

FOWR

1 INITIAL WRITE

RS ,LDFUNC

;READ

1NO CONTINUE

214
1NO
@INITWR,REASON
;;SETUP INITIAL WRITE OF SECTOR
CSR(R4),LSTCLR
DSB+1(R4),LSTORYV
224

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

ES
PAGE 27-30

S5EQ 00%

GLOBAL SUBROUTINES SECTION

027356
027364
027370
027374
027402
027410
027410
027412
027414
027416
2495 027420
2496 027424
2497 027430

012737
013700
004537
016037
116037
104455
000015
020003
020464
005037
005037
012702

017642
003132
027166
000000
000005

003072
003070
003134

003142
003144
003232
003136

2498 027434
2499 027440
2500 027442
2501 027446
027446
027450
027454
027460
027464
027470
027472
027474

023712
001417
005237

2503
2504
2505
22%

027500
027502
027506
027514

005722
005237
023727
001347

027516
027522
027526
027532
027534
027536

013746
012746
012746
010600
104417
062706

003142
021503
000002

2510 027542
2511 027546

013700
004537

003132
027126

2513 027552
2514 027556
2515 027564
2516 027566
2517 027574
2518 027576
2519 027600

005237
023727
001003
162737
000241
006001
103225

003132
003132

000050

003132

2521 027602
2522 027604
2523 027606
2524 027610

012602
012601
012600
000205

3%:

003142

TRAP

31%:

000200

000006
4%

Ss:

68:

SECT,RO
RS, FNDDRV

;SET MESSAGE FOR OVERWRITE

+FIND DRIVE THAT LAST WROTE
1SECTOR

CSR(RO),LSTCLR
;GET IT'S CSR
DSB+1(RO),LSTDRV
;GET THE DRIVE
13.,0VWER,ERR4
;PRINT ERROR
CS$ERDF
13
OVMER
ERR4

WCOUNT
SECWRD
#BUF ,R2
GDATA,(R2)

1CLEAR BAD WORD COUNT W/IN SECTOR
:CLEAR WORD IN SECTOR
sGET BUFFER START
+IS DATA CORRECT?

PRINTF

WCOUNT

OFRM8,
SECWRD ,GDATA, (R2)

sNO ACCOUNT FOR IT

s YES CHECK NEXT

(R2), -(SP)

MOV

SECWRD, -(SP)

MOV

SP,RO
CSPNTF
012,5P

TST

(R2).
SECWRD
SECWRD,#128.

sNEXT
sNEXT
;DONE WITH SECTOR?

SFRMI, WCOUNT

sPRINT SUMMARY

TRAP

000012

O0VMES ,REASON

CLR
CLR
MOV
cMP
BEQ

MOV

003136
003144
021437
000004

003144
003144

JSR
MOV
MOVB
ERRDF

—

013746

012746
012746
010600
104417
062706

22%:

MOV
MOV

011246
013746

21s:

333 33C5R3R 82 8 2 33883 %3

2489
2430
2491
2492
2493
2494

RTS

3¢

WCOUNT, -(SP)

iNO GO BACK

SP,RO
CSPNTF
#6,5P

SECT,.RO
RS5,SETLST

1SET SECTOR IN LIST TO THE
s+CREDIT OF THIS DRIVE

SECT

sNEXT SECTOR

SECT,940.

64
@40, ,SECT

1¢

(SP).,R2

(SP)+,R1
(SP)+,RO

1CLEAR CARRY
sNEXT BIT

1+ IF CLEAR NEXT

tRESTORE R2-RO, EXIT

sROUTINE TO VERIFY THAT A DRIVE CAN RECOVER ANOTHER DRIVE'S DATA.

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE

27-31

SEQ 0057

GLOBAL SUBROUTINES SECTION

2528

;CALL:

2530
2531

:
:

2529

2532
2533 027612

010046

2536 027620
2537 027624

012701
012737

2534 027614
2535 027616

2538 027632

zzgzg 027636

2541 027640

010146
010246
005737

001134

012737

2542 027646
2543 027654
2544 027662

012737
042737
053737

g_bl 027672

001103

2545 027670

030103

VEROD:

100000
000034
003062

177600

003232
000077
003132

2548 027674
2549 027700
2550 027704

013700
004537
016037

003132
027166
000000

ggg 027720

016037

000006

2554 027726

004537

032432

2557 027734
2558 027740
2559 027742

005737
100060
012737

003164

027750

104455

2551 027712

ggz 027732

2560 027750

116037

000014

000005

017675

627752
027754
— 027756

000016
020023
020464

2562
2563
2564
2565
%

027760
027764
027770
027774
030000

005037
005037
012702
023712
001417

003142
003144
003232
003136

2568 030002
2569 030006
030006
030010
030014
030020
030024
030030

005237

003142

011246
013746
013746
012746
012746
010600

003136
003144
021437
000004

030032
po— 030034

2571 030040

2572 030042

104417
062706
005722

005237

TMMOV

003202
003204
003204

1%:

2%:

MOV

0-128. ,8MP

sCHECK FOR FIRST OVERWRITE

;SET UP READ (ONE SECTOR)

sCLEAR SECTOR BITS
1SET IN SECTOR BITS

BNE

:NO BRANCH

R1,R3

;BUS ADDRESS

;CHECK THIS SECTOR?

MOV
JSR
MOV

SECT,.RO
RS ,FNDDRV
CSR(RO),LSTCLR

sFIND DRIVE THAT WROTE
1SECTOR LAST
;GET CSR OF DRIVE

MOV

PAT(RO),GDATA

;GET PATTERN

JSR

RS,LDFUNC

;READ

TST
B8PL
MOV

E€.CS
5S¢
ORECMS,REASON

:ERROR?
iNO, NEXT SECTOR
;SET READ RECOVERY MESSAGE

TRAP

CSEROF

DSB+1(RO),LSTDRV

14, ,RECER,ERR4

;GET DRIVE

;REPORT ERROR

.MORD
.WORD
.WORD

14
RECER
ERR4

CLR
CLR
MOV
cHp
BEQ

WCOUNT
SECWRD
#BUF ,R2
GDATA,(R2)
48

INC
PRINTF
MOV
MOV

WCOUNT
sACCOUNT FOR ERROR
OFRMB,SECWRD,GDATA,(R2)
;PRINT ERROR
(R2),-(SP)
GDATA, -(SP)
SECWRD, -(SP)
OFRM8, -(SP)
o4, -(SP)
SP,RO

MOV
MOV
MOV
MOV

TRAP
ADD

44:

MOV
BIC
BIS

ERRDF

3s:

;:BIT MASK FOR SECTORS
;START WITH SECTOR 28

FOWR

R3 IS LOAD BY WRSEC (ME

TST

MOVB

003136

CHECK.

;1SAVE RO-R2

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

BIT

003070
003134

USES R3 AS BIT MAP OF SECTORS TO

RO, -(SP)

MOV
MOV

BNE
003206

RS, VEROD

USE R3 COMPLIMENTED.

MOV
MOV

003132

000012
003144

JSR

TST

INC

;CLEAR BAD WORD COUNT
;CLEAR WORD W/I SECTOR
sSTART OF BUFFER
1DATA COMPARE
1 YES, CHECK NEXT

COPNTF
#12,SP
(R2)+

SECWRD

sNEXT

tNEXT WORD IN SECTOR

CNRLLAO RLO1/702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE

27-3%2

SEQ 00%%&

GLOBAL SUBRCUTINES SECTION

2573 030046

023727

003144

030056
030062
030066
030072
030074
o 030076

013746
012746
012746
010600
104417
062706

003142
021503
000002

2577 030102
2578 030106
2579 030114

005237
023727
001002

2581 030122
2582 030124

000241
006001

2574 030054
2575 030056

2580 030116

2583 030126

2585 030130
2586 030132
2587 030134
252533 030136

001347

005037

000200

000006

003132
003132

000050

003132

5%:

7s:

103244

SECWRD, ¢128.

MOV
MOV
MOV
MOV
TRAP
ADD

WCOUNT, -(SP)
OFRM9, -(SP)
2, -(SP)
SP,RO
CSPNTF
06,5P

INC
CMP
BNE

SECT
SECT,#40.
7

iNEXT SECTOR

cLC
ROR

iNEXT BIT MAP

MOV
MOV
MOV
RTS

(SP)+,R2
(SP)+,R1
(SP)+,RO
RS

sRESTORE R2-RO, EXIT

CLR

8CC

012602
012601
012600
000205

63:

2590
2591
2592

33
@FRM9,WCOUNT

;DONE?

iNO
iPRINT SUMMARY

SECT
1s

sROUTINE TO VERIFY THE ADJ. CYL. WRITE IS GOOD
tUSES RS AND WORD FOLLOWING CALL
+IF WRITE WAS GOOD,SECTOR WILL BE STORED IN MAP

g:z

1USING RSADJS/.WORD 1

2595 030140
2596 030142
2597 030144

010046
010146
010246

2601 030156

053700

2598 030146
2599 030152
2600 030154

262“263 030162
2604
2605
2606
2607
2608

cMP

BNE
PRINTF

012701
012502
005000

012737

030170
030172
030176
030200
030204

006300
005337
001374
005737
001402

2610 030212
2611 030214
2612 030216
2613 030220
2614 030226
2615 030232
2616 030236
2617 030242
2618 030246
2619 030250
2620 030256
2621 030264
2622 030272

050200
030103
001462
012737
010037
010037
042700
020027
003406
162737
162737
012737
005037

2609 030206

2623 030276

052700

013700

VAJWR:
100000
003122

000007

24:

003120
000100

3:
4%:

177600
003204
003066
177700
000047

003206

000050
000050
003232
003110
003066

003204
003066
003202

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

MOV

07,TEM

BIS

003056

MOV
MOV
MOV
MOV
MOV
CLR

6¢%:

ASL
DEC
BNE
TST
BEQ

#100000,R1
(RS)+,R2
RO
CYL,RO

RO
TEM
2%
SURF
3%

8IS

#HEAD RO

MOV

TEMP,RO

8IS
BIT
8EQ
MOV
MOV
MOV
8IC
cHe
BLE
SUB
SUB
MOV
CLR

R2,RO
R1,R3
S
#-128. ,8M°
RO,BDA
RO, TEMP
#177700,R0
RO, 9839,
64
040. ,BDA
#40.,TENWP
#BUF ,BBA
HSFLG

1SAVE REGISTERS
;B8IT MASK FOR CYLINDER
:STARTING SECTOR

l‘ll—l
CNRLLAO RLO1702 DRIVE COMPAT
GLOBAL

2624
2625
2626
2627
2628
2629
2630

MACRO M1200

19-DEC-83

10:01

PAGF

27-33%

SUBROUTINES SECTION

030302
030306
030310
030314
030316
030322
030324
030324
030326
030330
030332
030334
030340
030342
030342
030344
030346
030350
030352
030354
030360
030362
030364
030366
030370
030372
030374
030376
030400
030402

004537
000014
005737
001416
005737
001007

104457
000170
020163
020276
005237
000760

10s¢:

032432

003074

RS ,LDFUNC

BEQ

ERFLG
78

TST

003110

BNE
ERRSOFT

104456

020276

026760

11%
120.,READ1,ERR2

CSERSOFT

.WORD

INC

HSFLG

. WORD

003110

120

ERR2

118:

BR
ERRHRD

TRAP
.WORD
.WORD

CSERMRD
130
READ1

7%:

MOV

RO, -(SP)

Ss:

.WORD

JSR

MOV

INC
cLC

ROR
8CcC
MOV
MOV
MOV
RTS

sREAD FUNCTION

HSFLG

TRAP

.WORD

000202
020163

010046
004537
000001

JSR

READ
TST

108
130.,READ1,ERR2

ERR2

F.RSADJS

;STORE ADJ. CYL. SECTOR INFO.

(SP)+,RO

;RESTORE RO

R1
43
(SP)+,R2
(SP)+,R1
(SP)+,RO

;RESTORE REGISTERS AND EXIT

sROUTINE TO VERIFY THAT WRITE DID NOT DISTURB ADJACENT TRACKS
sWRITTEN BY OTHER DRIVES.
tCALL JSR R5,BSVMWR
WORD

:STARTING SECTOR

010046
010146
010246
013746
013746

123727
001455
162716
062716

123727

2669
2670 030466
2671 030472
2672 030476

001412
105337
005337
004537
005237
105237

BSVWR:;
003122
003120
003100

003100

003100
003122
030614
003122
003100

000001

1t%:

LRI PLLLELE

;USES “ADJLOC” TO GET +1/-1 CYLINDER OFFSET
sUSES R3 FOR SECTOR MAP, USES MAP AT “SECBUF“ FOR INFO
RO, -(SP)

1 SAVE REGISTERS

R2,-(SP)

(RS)+,-(SP)
ADJLOC, #3
BSEXIT

1GET STARTING SECTOR
sON MIDDLE TRACK?2?
s YES, THEN NO CHECK

034, ,(SP)
i
#40.,(SP)

1SETUP SECTOR START FOR OUTSIDE
1+ IF POSITIVE OKAY ELSE FIX
FIX IT

SI').LI.OC

1OUTER ADJ TRACK

ADJLOC, o1
INAWR

RS ,CHECK
cyL

;ON OUTER LIMIT?22?
s YES,SKIP CHECK

+GO CHECK ADJ SECTORS

1FIX BACK

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19 DEC-83 10:01

15
PAGE 27-34

SEQ 0060

GLOBAL SUBROUTINES SECTION

2673
2674
2675
2676
2677
2678
2679
2680
2681
2682
2683

030502
030506
030512
030514

2685

2687

062716
021627
002407
162716
021627
002402

INAWR:

000104

ADD

cMP

BLT

000005

001412

105237
005237
004537
105337
005337
005726
012637
012637
012602
012601
012600
004537

14:

BSEXIT:

(SP),040.
13

SuUB
cMP

SuUB
CcMPB

BLT

162716
123727

068.,(SP)

BEQ

INCB
INC
JSR
DECB
DEC
TST

MOV
MOV

NCHECK: MOV

MOV
MOV
JSR
RTS

s INNER SECTOR START
sWITHIN LIMITS??2?
: YES, OKAY
sFIX

SECTOR

BSEXIT

ADJLOC
CrL
RS, CHECK
ADJLOC
CvL

s INNER LIMIT?2?
s YES,SKIP CHECK
sFIX FOR INNER
5

:+GO CHECK ADJ SECTORS
sFIX BACK
i

(SP).

(SP)+,SURF
(SP)+,CyL

; THROW OFF SECTOR

(SP)+,R2

(SP)+,R1
(SP)+,RO
RS,SKCyL

;1SEEK BACK
sRETURN

;ROUTINE TO VERIFY AN ADJACENT SECTOR
:CALLED FROM BSVWR
sCALL
JSR
RS, CHECK
i

2702

2703

2704
2705
2706

2707
2708
2709
2710
2711
2712
2713
2714
2715 030672
2716 030674
2717 030700
2718 030704
2719 030706
2720 030712
2721 030716
2722 030722
2723 030724
2724 030726
2725 030730
2726 030734
2727 030742
2728 030746
2729 030750

CHECK:

100000

003122

003056

MOV

RS,SKCYL
R2

MOV
ASL
DEC
BNE

#7.TEM
R2

BIS

2s:

TST

BEQ
3%:
4as:

003074

003206

SURF

#177700,R0

SuUB
SUB
JSR

.MORD

BEQ
MOV
MOV
JSR

READ
TST

:GET TO DESIRED CYLINDER
:CREATE ADDRESS

iNO

BIC

BEQ
MOV

:SECTOR MASK

TEM
2

OHEAD ,R2
2(SP),R2
R1.R3

TST

003204
177600
032432

CvL,R2

BIS
8IS
B8IT

cHe
BLY
64:

#100000,R1

JSR
CLR

sSET IN SECTOR

s THIS SECTOR IN LIST?22?

5S¢
R2,RO

RO,#40.
64

sNO, NEXT

sCOPY SECTOR
sONLY SECTOR LEFT

;SECTOR OKAY?272?

#40. ,RO
840, ,R2
R5,RSADJS
O

s YES

+FIX SECTOR

+FIND IF SECTOR PREVIOUSLY WRITTEN

1WAS IT?2?
iNO
;LOAD DISK ADDRESS
sLOAD WC
;1LOAD

ERFLG

1WAS READ GOOD

J5
CNRLLAO RLO1/02 DRIVE COMPAT

19-DEC-83

10:01

PAGE

27-35
SEQ 0061

SUBROUTINES SECTION

2730
27%1
2732
2733
2734
2735

030754
030756
030760
030764
030766
030774
030774
030776
031000
031002
2736 031004
2737 031006
031006
031010
031012
031014

031016
031020
031022

001420
010346
010237

010003
042737

003132
177700

BEQ
MOV
MOV
MOV

8IC
ERRHRD

003132

TRAP

104456

.WORD
.WORD
. WORD
MOV
ERRHRD

000214

020210
020336
012603

TRAP

104456
000156
020163
020276

S$:

. WORD
. WORD
WORD
INC
CLC
ROR

8CC

031024
031026

RTS

R2,SECT
RO,R3
€177700,SECT

140. ,ADJTXT ,ERR3
CS$ERHRD
140
ADJTXT
ERR3
(SP)+,R3
110. ,READ1,ERR2
CS$ERHRD
110
READ1
ERR2
R2

sNEXT SECTOR

R1
4
RS

sSHIFT MASK

sROUTINE TO MERGE BAD SECTOR FILES

;ENTRY INTO THIS ROUTINE WILL OCCUR AFTER THE “SERNUM” ROUTINE
+IS PERFORMED. THE FACTORY BAD SECTOR FILE WILL BE LOCATED IN
1FIRST 400(8) LOCATIONS.
1 THIS ROUTINE WILL STORE THE FIELD BAD SECTORS INTO THE NEXT
;400 LOCATIONS AND THEN MERGE THE FACTORY BAD FILE
sWITH THE FIELD BAD FILE.
sFACTORY BAD AT BUF
:FIELD BAD AT BUF . S12.
031030
031032
031034
031036
031044
031052
031054
031062
031064

010146
010246
010346
012737
022737
001004
012737

003632
000001

003202
003060

077724

003204

012757

177724

003204

031072
031100
031104
031106
031112
031114
031122
031130
031132
031140

012737
004537
000014
005737
001431
062737
022737
001004
022737
001357

177400
032432

003206

031142

022737
001353

031150
031152

:
664
97¢:

003074
000001

003204
003060

077750

003204

177750

003204

4004
:

3 #3 AIR3BR2Z03 33377283

GLOBAL

MACRO M1200

NTF

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

#1,7.DRIVE
55

:SAVE R1, R2, R3
sBUFFER START FOR FIELD BAD

077724 ,8DA

664
€177724 ,BDA
0-256. ,8MP
RS, LDFUNC

ERFLG
984

4 ,8D0A

#1,7.DRIVE
4004
#77750,B8DA
97

#177750,B8DA
974
OFRM1S

1LOAD READ FUNCTION
s TEST ERROR FLAG

s YES;MERGE BAD SECTOR FILES
1 TRY NEXT FIELD BAD SECTOR FILE

#NO,DO NEXT FIELD BAD SECTOR

1<%
CNRLLAO RLO1702 DRIVE COMPAT

GLOBAL

2779

19-DEC-83

10:01

PAGE

27-36
"

SUBROUTINES SECTION
03115¢
031156
031162
031164
031166
031172
031172
031174
031176
031202

2780
2781
2782
2783 031206
2784 031210
2785 031212
2786 031214
2787 031216
2788 031220
2789 031222
2790 031224
2791 031230
2792 031234
2793 031236
2794 031240
2795 031242
2796 031244
2797 031246
2798 031250
2799 031252
2800 031254
2802
2803
2804
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814

MACRO M1200

031256
031262
031266
031274
031276
031300
031302
031306
031312
031316
031322
031330
031330

012746
012746

022037
000001

104417
062706

000004

010600

104422
000776
012701
012702
005721
100404
005721
005302
001373
000401
005741
012703
012702
012221
100403
012221
005303
001373
012603
012602
012601
000205
012537
012537
022737
001001
000401
022325
012537
012537
005037
005037
013737

2815 031334
2816 031340
2817 031342
2818 031346
2819 031350
2820 031354
2821 031362
2822 031364
2823 031370
2824 031376
2825 031400

004537
005737
001003
005237
000402
005037
023727
001011
005237
022737
001002
062705

2828 031406
2829 031414

000205
023737
001001

2826
2827 031404

MOV
MOV
MOV
TRAP

999
:

003242
000176

1s:

2s:
3s:

000176
003642

BREAK
TRAP
BR
MOV
MOV
TST
BMI
TST

TST

FNDTRK
:

003160
000001

(R1)+
24
(R1)«

1s
34
-(R1)
0126. ,R3
#BUF +410,R2

(SP)+,R3
(SP).,R2
(SP)+,R1

sGET PAST ID ETC.
tMAX = 126
:SECTOR OR END
;END, GO GET FIELD
sREST OF SECTOR
:MAX REACHED

:NO, KEEP GOING
s YES, SKIP BACK UP
1BACK UP PAST TERMINATOR
sSET 126 MAX
;GET FIELD SECTORS
;MERGE AT END OF FACTORY
?
;DONE
sNO, MERGE REST OF SECTOR
: DONE
;NO, GO BACK
;RESTORE R3, R2, R1

sEXIT

(RS)« ,OFFSET
(RS)+,SURFACE

:GET INCREMENT/DECREMENT
:GET HEAD (SURFACE)

(RS)+ ,FRTTRK
(RS)+,LSTTRK

18:

003162
003162
003162

#8UF +10,R1

€126. ,R2

904
(RS)+,(RS).

80%:
904
:

031430
002234

9994

#1,7.DRIVE
80¢

003060

003154

C$BRK

R3
44

RTS

003152
003150
003160
003162
003152

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

43
:

S5s:

003146
003156
000001

o1, -(SP)

24:
3s:

TRKFND
TRKCNT
FRTTRK ,PRSTRK

1CLEAR QUT FLAG FOUND
sCLEAR OUT TRACK COUNT
:GEYT FIRST TRACK

RS,FNDBSC
HORFND
24
TRKCNT
3
TRKCNT
zRKCNT 95

+IS TRACK IN BAD SECTOR FILE
tWAS IT?
1 YES, CLEAR TRKCNT
1NO, INDICATE GOOD TRACK
1 CONTINUE
1START COUNT OVER
1FIND S TRACKS YET?
iNO, CONTINUE
s YES, EXIT WITH GOOD FLAG

TRKFND
#1,7.DRIVE
81¢

003060

#4,RS

003154

003150

81s:

RTS

cHP
BNE

gl‘lSTRK +LSTTRK

1ARE WE DONE?

iNO,

KEEP LOOKING

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

RTS

PAGE

27-37

GLOBAL SUBROUTINES SECTION
2830 031416
2831 031420
2832 031426
2833
2834
2835
2836
2837 031430
2838 031434
2839 031436
2840 031440
2841 031444
2842 031446
2843 031450
2844 031454
2845 031456
2846 031460
2847 031464
2848 031466
031470
031472
031476

105744
000403
005237
000405

031500
031502
031504
031510
031512
031514
031516

005721
005202
020227
001355
012601
012602
000205

031520
031524
031530
031532
031536
031542
031544
031546
031550
031552

013701
005737
100402
162701
012702
010120

000205
063737
000740

003146

003154

5%:

ADD

sROUTINE

;CALL
005037

010146
010246
012701
005711

100421
023721
001011
105724
123711

001402

002234

TO FIND BAD

JSR

FNDBSC: CLR

003242

1s:

003154

MOV

OBUF +10,R1

CMP
BNE

PRSTRK,(R1)+
3¢

;SETUP FOR BEGINNING OF FILE
;END?
:IF MINUS AT END, EXIT
;CYLINDER CORRECT?

CMPB

SURFACE, (R1)

;UPPER HALF OF WORD
;CORRECT SURFACT

3
HORFND
24

;SET FOUND

(R1)+

sNEXT WORD

TST
BMI

4%:

BR
INC
BR

34:

TST

000374
2%:

003154
003146

(R1)
28

(R4)+

4%
-(R4)

INC
cHP

R2
R2,0252

RTS

BNE
MOV
MOV

FIXCYL: MOV
TST
BMI
SUB
1s:
MOV
2s:
MOV
INC
DEC
BNE

000004
000005

IN FILE

s INITIALIZE FLAG
sSAVE R1, R2

BEQ
TSTB

002234

TRACK

RS ,FNDBSC

sEXIT WITH NOT FOUND
iNEXT TRACK

HDRFND

TST8

003156

OFFSET,PRSTRK

RTS

1
(SP)+,.R1
(SP)+,R2

PRSTRK ,R1
OFFSET
1s
04 .R1
#5,R2
R1,(RO).
R1
Re
28

sNO, NEXT

sACCOUNT FOR IT
?
;DONE
:NO, KEEP CHECKING
sRESTORE R2, R1, EXIT

:GET TRACK WHICH IS GOOD

sWHICH WAY WERE WE LOOKING
: IN WORD, BRANCH
+BACK IT UP BY FOUR
;GOING STORE AWAY S5 TRACKS
;STORE THEM 1 WD/PER

sROUTINE TO GET SERIAL NUMBER

sCALL
031554
031562
031566
031570
031574
031576
031602
2883 031606
031614
2885 031616
031622

012737
004537
000004
004537
000010
013700
042700

022737
001003
020027
001446

000013

032432

003204

SERNUM: MOV

077700

003060

#13,80A

RS ,LDFUNC

1GET STATUS

JSR

RS,LOFUNC

;READ HEADER

MOV
8IC
cMP

E.MP,RO
#77,R0
#1,T7.DRIVE

1GET THE HEADER
:CLEAR SECTOR BITS

cHP

RO, 277700

RDHOR

1s%:

RS, SERNUM

JSR

GSTAT

032432
003172
000077
000001

JSR

BNE

BEQ

23¢
24

M5
CNRLLAO RLO1/02 DRIVE COMPAT
GLOBAL
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902

020027
001443
042700
022737
001003
012701
000402
012701

031660
031662
031666
031674
031700
031702
031706
031710
031714
031722
031724
031730
031732

160001
010137
052737
004537
000006
004537
000010
013700
022737
001003
022700
000402
022700

031736
031740
031746
031750
031756

103321
022737
001004
012737
000403

2916 031760
2917 031766
2918 031774
2919
2920
2921

012737
012737
012737
004537
000014
005737
001421
062737

2910
2911
2912
2913
2914
2915

2923

19-DEC-83

10:01

PAGE

27-38

SEQ Ouna

SUBROUTINES SECTION
031624
031630
031632
031636
031644
031646
031652
031654

2903
2904
2905
2906
2907
2908
2909

MACRO M1200

23%:

177700

000100
000001

003060

077600

328:

177600

003204
000025
032432

33s%:

003204

003060

077700

424:

177700
000001

003060

077700

003204

177700
003232
177400
032432

003204
003202
003206

003204

001004

003212

3s:

003212

026137

001437

013746
013746

984 :

003232
003210

003210

62%:

003210
003212

4as:

RO,R1

sCLEAR HEAD

R1,BDA
25,807
RS,LDFUNC

;SET UP DIF WORD
;SEEK IN, HEAD 1
;s SEEK

JSR

R5,LDFUNC

s VERIFY POSITION

MOV
cMP
BNE

E.MP,RO
#1,T.DRIVE
42

sGET HEADER

cHP

#177700,R0O

cHP
BR

BHIS
cHP

€77700,R0
43

1s
€1,7.DRIVE

BNE
MOV
B8R

S24
€77700,BDA
974

MOV
MOV
MOV
JSR

BEQ

984

cHP

#1,7.DRIVE

ADD

003060

177724

016137

52%:
97%:

003204

003210

SuUB

24
©100,R0O

MOV
BIS
JSR

TST

077724

021137

43%:
2%:

003074

022737
001351
000453
022737
001344

100005
011137

READ

000001

000446
012701
005737

cMP
BNE
MOV
BR
MOV

RDHDR

022737

001005

RO, #177700

SEEK

032432

003172
000001

cMP

BEQ
BIC

BNE
cHP
BNE
BR
cHP
BNE
BR

4 ,BDA

9177724 ,BDA
974
994

OBUF ,R1

BPL

MOV
MOV
cHP

s TEST ERROR FLAG

: YES,COMPARE SERIAL NUMBERS

sNO,SETUP FOR NEXT FACTORY BAD SECTOR

624
977724 ,BDA
97%
99%

MOV
TST

;READ

SERNM1

(R1),SERNM1
2(R1),SERNM2
(R1),SERNM1

+GET NEXT FACTORY BAD SECTOR
+REPORT ERROR
sCOMPARE SERIAL NUMBERS
sHAVE WE GOT ONE TO COMPARE
1 YES,

BRANCH

sNO, CALL THIS ONE IT
i

1 SERNUM OKAY
iNO, PRINT ERROR
1OTHER HALF OKAY
1 YES, EXIT

BNE

PRINTF

OFRM3,2(R1),(R1),SERNM2,
SERNM1

CcHP
BEQ
MOV

2(R1),SERNM2
54
SERNM1, -(SP)
SERNM2, -(SP)

CNRLLAO RLOL/702 DRIVE COMPAT

MACROC M1200

19-DEC-83

10:01

PAGE

27-39

SEQ 0065

GLOBAL SUBROUTINES SECTION

¥ §33EEe

032132
032134
032140
032144
032150
032152
032154
2942 032160
032164
2944 032170
2945 032174
032174
032200

011146
016146

012746
012746
010600
104417
062706
004537
004537
000137

012746
012746
010600
104417
062706

MOV
MOV
MOV
MOV
MOV
TRAP

000002
021167
000005

000014
032222
032326
031554

ADD
JSR

PRINTF

022037
000001

)
OFRM3, -(SP )

#5, -(SP)
SP,RO
C$PNTF

#14,SP
RS, UNLOAD
RS,LOAD

SERNUM

OFRM15
OFRM15, -(SP)

;LET OPERATOR CHANGE
;PACK

;GO CHECK IT AGAIN.
; MESSAGE

SP,RO
CEPNTF
®4,SP

000004

C$BRK

104422
000776
000205

999¢
RS

R5,UNLOAD
;PROMPT

CSR(R4), -(SP)
-(SP)
DSB+1(R4),(SP)

156416
012746
012746
010600
104417
062706
012701
012700

_ ON CONTROLLER _

;AND REMOVE PACK

OFRM1, -(SP)
03,-(SP)
SP,RO

C4PNTF

#10,5P
#60. ,R1
#200,R0

;SETUP 60 SECOND TIMER

DSB(R4),RO

010074
032774
001410

000000

005301
001365
000737

RO,8CSR(R4)
;t.)aov.acsa(an
#10.

1CHECK DRDY FOR ZERO
1 PACK UNLOADED
sWAIT 1 SECOND

3%:

24
UNLOAD
RS

sRETURN WITH PACK UNLOADED

sROUTINE LOAD
JSR
;CALL

R5,LOAD

LOAD:

sPLACE PACK IN DRIVE _ ON CONTROLLER _ AND
OFRM2,<B,DSB+1(R4)>,CSR(R4)
;LOAD IT

2%:

016446

156416
012746
012746
010600

- UNLOAD DRIVE

OFRM1,<B,DSB+1(R4)>,CSR(R4)

016446

032326
032326
032332
032334
032340
032344
032350

(R1),-(SP)

021067
000003

PRINTF

MOV
CLR
B8ISB
MOV
MOV
MOV

CSR(R4), -(SP)
-(SP)
DSB+1(R4),(SP)

OFRM2, -(SP)
03, -(SP)

1HAS 60 SEC PASSED?
iNO, RETEST DRDY, CONTINUE WAIT
1 YES, REPEAT MESSAGE CONTINUE WAIT

CNRLLAO RLOL1702 DRIVE COMPAT

SN
MACRO M1200

19 DEC-85

10:01

PAGE

27-40
f

GLOBAL

2972
2978
2974
2975
2976
2977
2978
979

SUBROUTINES SECTION

032352
032354
032360
032364
032370
032374

032400
032406
032410

104417
062706
012701
012700
056400
010074

032774
001010
005301
001365
000737

2983 032430

000205

R LT : g

032422
032424
2981 032426

TRAP

000010
000170
000200
000004
000000

000001

000000

MOV
8ITY
BNE

WAITMS

CSPNTF

@10,5P

€120. ,R1
#200,R0

1SETUP 120 SEC TIMER
+SETUP CONTROLLER READY BIT

DSB(R4),RO

1SELECT DRIVE

RO,8CSR(R4)

;DQDV.xSR(Rd)
$

DEC
BNE
238
3s:

RTS

sROUTINE LDFUNC
RS, LDFUNC
JSR
sCALL

032432
032434

010046
010346

032440
032444
032450
032456
032464
032472
032476
032504

005037
016403
013763
013763
01376F
011537
056437
012701

003074
000000
003206
003204
003202
003200
000004
000031

016337

000000

032436

032510

KOD
MOV
MOV
BIS

0323524

032532

032540

032546

010146

052737
013763
042763

032763

001036

005301
001365

032566
032574
032602
032610
032616
032624

016337
016337
016337
016337

032632
032634
032636
032640
3016 032642

104455
000322
017346
020644
000425

3018
3019
3020
3021
3022

016337
016337
016337
016337
016337

032562
032564

032644
032652
032660
03266
0326 .

016337
016337

000200
003200
000200

000200

000006
000004
000002

LOFUNC: MOV
MOV
MOV
CLR
MOV

000000
003200
000000
000000

MOV
MoV
8IC
8IT
BNE

DEC
BNE

003164
003166
003170
003172
003174
003176

MOV
ERROF
. WORD
. WORD
.m
3R

003164

003166
003170
003172
003174

$SET WATCHDOG TO 250MS

2%:

:GET CSR
1LOAD MUL TIPURPOSE
+LOAD DISK ADDRESS
1LOAD BUS ADDRESS
sGET FUNCTION TO LOAD
s SELECT BITS

BCS,CS(R3)

:LOAD FUNCTION

CS(R3),BCS

#200,CS(R3)

0200,CS(R3)

sCNTLR READY?

9100.

tWAIT 10 MILLISECONDS

MOV
MOV
MOV
MOV
MOV

TRAP

000000
000002
000004
000006
000006

#25. .R1

#200,8CS

WAITUS

000000
000002
000004
000006
000006
000006

sCLEAR ERROR FLAG

BIS

MOV

ERFLG

BIS

MOV

003200

R1,-(SP)

CSR(R4),R3
8MP ,MP(R3)
BDA,DA(R3)
B8BA,BA(R3)
(R5),BCS
DSB(R4),BCS

MOV
MOV
MOV

003200

RO, -(SP)

s YES, GO

tREAD ALL REGISTERS

1
2

210. ,CNTTOT,ERRS ;CNTLR TIMEOUT

EROF

sREAD ALL REGISTERS

MOV

MOV
MOV
MOV
MOV

Cé,
CNRLLAD RLO1702 DRIVE COMPAT

GLOBAL

MACRO M1200

19 DEC-8% 10:01

PAGE

SUBROUTINES SECTION

5023 032702
3024
3025 032710
3026 032714
3027 032716
3028 032722
3029 032724
3030 032726
5031 032730
3032 032732
3033
3034 032734
3035
3036 032734

016337

000006

005737
100002
005237
005725
012601
012603

003164
003074

003176

44:

3s:

012600

MOV

MP(R3),E.MP2

1ST
BPL
INC
1ST
MOV
MOV
MOV

£.CS

3s
ERFLG
(R5).

(SP)+,R1
(SP)+,R3
(SP)+ ,RO

RTS

000205

1ANY ERRORS?
1YES, GO SERVICE

ENDMOD

BGNMOD

HROWTST

3037
3038
3039
3040 032734

BGNTST

3044
3045

sCONTROL SECTION COMPATIBILITY PROGRAM
sPRINT UNLOAD AND LOAD DRIVE MESSAGES
sPERFORM SERIAL CHECK ROUTINE
sPERFORM READ/WRITE CHECKS ON DRIVES

.SBTTL CONTROL ROUTINE

3047

3049

012701
012700

002442
000170

3051

3053

COMPAT: MOV

#SECBUF ,R1

(R1).

gRRRCS

~NOVRD W
~
§EggEEeE
L

3041
3042
3043

FOWR
FADJ

1CLEAR FIRST OVERWRITE
'gs;t F{lSY ADJ. FLAG

032222

AND SECTORS FOR

+1OUTWARD SEEK
s TERMINATOR

tUNLOAD PACK FROM DRIVE UNIT
1UPDATE POINTER FOR NEXT DRIVE
1LOAD INTO SECOND DRIVE UNIT
1CHECK PACK SERIAL NUMBER
{PERFORM R/W OVERWRITE

mom

+IN 170 OUTSIDE
sOUT 170 OUTSIDE

1IN 170 INSIDE

3079 033072

017

=<
=

003104
025356

<0
=~

031554
024634

§§§§§§§5

o-g

3072
3073
3074
3073 033062
3076 033064

RS ,OVWPER

RO
44
FOWR

3055

sADJ. CYLINDER BUFFER

tADJ. CYLINDER BUFFER COUNT
sCLEAR ADJ. CYL. BUFFER AT STARTUP
1BUFFER CLEARED?
1CLEAR NEXT BUFFER WORD
1SET FIRST OVERWRITE FLAG
1PERFORM OVERWRITE ON FIRST DRIVE

#120. ,R0

r
D

ROUT INE

" 3

§ 3

RLO1702 DRIVE COMPAT

19-DEC-83 10:01

PAGE

27-42
F G

004

017

3083 033102

004537

032222

JSR

3085 033114
3086 033116
3087 033122
3088 033126
3089 033132
3090 033136

001002
000137
062704
004537
004537
004537

033532
000010
032326
031554
024634

BNE
JMP
ADD
JSR
JSR
JSR

3092 033144

001403

005237
004537
002

003104
025356
000

INC
JSR
.BYTE

ADJDIR
R5,ADJCYL
2,0

1IN 270 OUTSIDE

002

000

.BYTE

2,0

10UT 270 OUTSIDE

004

000

.BYTE

4,0

1IN 270 INSIDE

004

000

.BYTE

4,0

;0UT 270 INSIDE

001
000000
001
000000
005
000000
005
000000

200

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

1,200
O
1,100
O
5,200
O
5,100

:IN 271 OUTSIDE

3081 033076
3082 033100

3084 033106

3091 033142

3093 033146
3094 033152
3095 033156

3096 033160

3097 033162

000000
000000

023727

006014

170000

3096 033164

007400

3100 033170

170000

5102 033174

007400

3099 033166

35101 033172

5103 033176
3104 033200
3105 033202
35106 033204
3107 033206
3108 033210
3109 033212
3110 033214

003130

100

200
100

.BYTE

.WORD
.WORD

cMP

6014

1403

.HORD

.WMORD
.HORD
.WORD

.BYTE

4,17

10UT 170 INSIDE

RS, UNLOAD

tUNLOAD PACK FROM DRIVE UNITY

10¢
24
OPAT -2, R4
R5,LOAD
RS, SERNUM
RS, 0VWPER

1 YES,GO TO NEXT DRIVE
1GO TO FIRST DRIVE
tUPDATE DRIVE BUFFER FOR THIRD DRIVE
1LOAD PACK FOR THIRD DRIVE
1CHECK SERIAL NUMBERS
{PERFORM R/W OVERWRITE ON THIRD DRIVE

O
O

WwrT.e2

170000

7400
170000
7400

g.aoo
Y
g

3080 033074

MACRO M1200

RS, SERNUM

3123 033270
3124 033272
3125 033274
3126 033276
3127 033300
3128 033302
3129 033304
3130 033306
3131 033310
3132 033312
3133 033314
3134 033316
3135 033320
3136 033322

002
000360
002
000017
004
000360
004
000017
001
000000
001
000000
005
000000

000
000
000

000
040

020
040

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

2,0
360
2,0
17
4,0
360
4,0
17
1,40
O
1,20
O
5,40
O

1CHECK FOR > 2 DRIVES

10UT 271 OUTSIDE

sIN 271 INSIODE
1OUT 271 INSIDE

s TERMINATOR
tUNLOAD PACK ON THIRD DRIVE
1CHECK FOR > 3 DRIVES
iNO, GO TO 2ND DRIVE
sUPDATE DRIVE BUFFER FOR 4TH DRIVE
1LOAD PACK ON 4TH DRIVE

sCHECK PACK ON FOURTH DRIVE
;PERFORM R/W OVERWRITE

1IN 370 OUTSIDE
+OUT 370 OUTSIDE
+IN 370 INSIDE

1OUT 370 INSIDE
+IN 371 OUTSIDE

1OUT 3/1 OQUTSIDE
1IN 371 INSIDE

CNRLLAO RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83

10:01

PAGE

27-43

CONTROL ROUTINE
020

032222
000010
032326
031554
024634

010000
004537
001
001
000100

000100

004S*7
162704
004537
004537
004537

1¢:

004537

:0UT 372 OUTSIDE

s+ IN 372 INSIDE
sOUT 372 INSIDE
s TERMINATOR

tUNLOAD PACK FROM 4TH DRIVE
:SET DRIVE BUFFER FOR 3RD DRIVE
:LOAD PACK ON 3RD DRIVE
1CHECK FOR PACK SERIAL NUMBER

sPERFORM R/W OVERWRITE ON 3RD DRIVE

+IN 2/3 OUTSIDE
sOUT 2/3 OUTSIDE

:IN 273 INSIDE
s10UT 2/3 INSIDE

004537
004537
004537

.BYTE
.WORD
.WORD
JSR
SUB
JSR
JSR
JSR
20000
10000
JSR
.BYTE
. WORD
.BYTE
WORD

+IN 372 OUTSIDE

g-t 2

100000

001
040000
005
100000
005
040000
000000
004537
162704

;0UT 371 INSIDE

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

J33%3°
A g 80858

gogogo *

3160 033416
3161 033420
3162 033422
3163 033424
3164 033426
35165 033430
3166 033434
5167 033440
3168 033444
3169 033450
3170 033454
3171 033456
3172 033460
3173 033464
3174 033466
3175 033470
3176 033472
3177 033474
3178
3179
3180
3181
3182
3183
3184
3185
3186
3187
3188
3189
3190
3191
3192
3193

005
000000
001

waun
*o e VRO LReR
oo R0 &
°3 o o e

3137 033324
3138 033326
3139 033330
3140 033332
3141 033334
3142 033336
3143 033340
3144 033342
3145 033344
3146 033346
3147 033350
3148 033352
3149 033356
3150 033362
3151 033366
3152 033372
3153 033376
3154 033400
3155 033402
3156 033406
3157 033410
3158 033412
3159 033414

24:

RS, UNLOAD

#PAT+2,.R4
.LOAD
RS, SERNUM

1 TERMINATOR

sUNLOAD PACK FROM 3RD DRIVE

sSET DRIVE BUFFER FOR 2ND DRIVE
1LOAD PACK ON THIRD DRIVE
sCHECK PACK SERIAL NUMBER
:PERFORM R/W OVERWRITE ON 2ND DRIVE

+IN 172 OUTSIDE

1OUT 172 OUTSIDE
+IN 172 INSIDE

10UT 172 INSIDE
+IN 1/3 OUTSIDE

+OUT 1/3 OUTSIDE
$IN 173 INSIDE
1OUT 1/3 INSIDE

R, o e oty

1SET DRIVE BUFFER FOR 1ST DRIVE
sLOAD PACK INTO FIRST DRIVE UNIT

1CHECK SERIAL NUMBER

F e
RLO1702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE

27-44
SEQ 0070

ROUT INE
033546
033552
033554

004537
001042
000421

033564

000000

033556
033562
033566

3225

3227

1,0

;0UT 0/2 OUTSIDE

35,0

+IN 072 INSIDE

S,0

;OUT 0/2 INSIDE

1,0

+IN 0/3 OUTSIDE

1,0

;OUT 0/3 OQUTSIDE

5,0

:IN 0/3 INSIDE

.BYTE

5,0

sOUT 0/3 INSIDE

RS, UNLOAD
#ENDPAS
®ENDPAS, -(SP)
01,-(SP)
SP,RO
CSPNTF
04,5P

005

000

001

000

.BYTE

001

000

.BYTE

005

000

005

000

004537

032222

012746
012746
010600
104417
062706

022412
000001
000004

JSR
PRINTF
MOV
MOV
MOV
TRAP
ADD

000137

024314

JMP

CMPENA

TRAP

CSETST

033624

000010

033630

000004

033634

000010

033640
033642

000004
000000

3228 033674

104401

3231 033676
3232 033676
033676

000025

033702
033704
033706

000031
033752
160000
177776

3235
3236 033710
033710
033712

+IN 072 OUTSIDE

000

002000

3233
3234 033700
033700

1,0

005

033620

033674
033674
3229 033676

;0UT 071 INSIDE

000

004000

033670

5,4

001

033614

033644
033650
033650
033654
033660
033662
033664

:IN 071 INSIDE

000

002000

033636

5,10

001

033610

033632

;0UT 0/1 OUTSIDE

004

004000

033626

1.4

005

033604

033622

+IN 071 OUTSIDE

010

000000

033616

005

033600

033612

.MORD

RS5,ADJUCYL
1,10

004

000000

033606

;PERFORM R/W OVERWRITE

001

033574

033602

RS, 0VWPER

025356
010

000000

033576

JSR
1042
421

004537
001

033570

033572

024634

JSR
.BYTE

.BYTE

.WORD

.BYTE

.WORC

.WORD

4000

.WORD

2000

.WORD

4000

.WORD

2000

.BYTE

BYTE

.WORD

.HMORD
.MORD

ENDTST
L10014:

ENDMOD

.MORD

.BYTE

BGNMOD

001031
034010

.WORD

&
O

s TERMINATOR

sUNLOAD PACK
:END OF PASS

tRETURN TO SUPERVISOR

HRDPRM
BGNHRD

.WORD L10015-L$HARD/2

GPRMA

CSRMSG,CSR,0,160000,177776,
YES

GPRMA
.WORD
.WORD

VECMSG,VECT,0,0,776,YES
T$COOE
VECMSG

.WORD
.WORD
LWMORD
L.WORD

T$CODE
CSRMSG
TSLOLIM
THHILIM

(56,
CNRLLAO RLO1/702 DRIVE COMPAT

MACRO M1200

19-DEC-83 10:01

PAGE

27-45

CONTROL ROUT INE

32387
3238 033720
033720
033722
033724
033726
033730
5239
033732
033732
033734
033736
3241
3242 033740
033740
033742
033744
033746
033750
3243
3244 033752

000000
000776

. WORD
.WORD

TSLOLIM
TSHILIM

GPRMD

7,
DRMSG,DRBT,0,03400,0,YES

egad saed aaae

033714
033716

004032
034017
003400
000000
000007

003130
033766

000001

002032
034025
000340
000007

033752
3245
3246 033752
033755
033760
033763
3247 033766
033771
033774
033777

L1001S:

3248

VECMSG:

T$CODE

DRMSG
03400

TSLOLIM
TSHILIM

DRTYPE,TYPDR,1,YES
T$CODE

DRTYPE
1

BRMSG,PRIOR,0,340,0,7,YES
T$CODE

BRMSG
340

TSLOLIM
TSHILIM

CSRMSG

/BUS ADDRESS/

DRTYPE:

/DRIVE TYPE

.EVEN
ENDMOD

LASTAD

LSLAST:

.END

.ASCIZ

/VECTOR/

.ASCI1Z

/DRIVE/

.ASCIZ

/BR LEVEL/

= RLO1/

[
CNRLLAO RLO1/02 DRIVE COMPAT

MACRO M1200

TABLE

ADJCYL
ADJDIR
ADJFLG
ADULC2
ADJLC3

025356
003104
003102
003220
003222

CRDY
=
CRSET =
CS
=
CSR
=
CSRMSG

ADJLOC

003100

C$AU_

003224

ADJTRK
ADJTXT

cvL

003214
020210

ADJWT

003216

024340 G
000002
000020
000040
003202
003200
003204
003140
000001
000001
000002
000004

BITO
BITOO
B8ITO1
BIT02

=
=
=
-

G
G
G
G

BITO4
BITOS
BIT06
BITO7
BITO8
BITO9
BIT1
BIT10
BIT11
B81IT12
BIT13
BIT14
BIT1S
BIT2
BITS
BIT4
BITS
BIT6
BIT7
BIT8
BIT9

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

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

BOE
=
BRMSG
BSEXIT
BSVWR

000400 G
034025
030566
030404

BITO3 = 000010 G

BUF

CHECK
CLNCOD
CMPENA
CNTTOT
COMPAT

003206

003232

000200
000002
000000
000000
033752

003122

= 000052

C$AUTO= 000061
C$BRK = 000022

ADR
= 000020 G
ASSEMB= 000010

AUTOCO
BA
=
BAl16 =
BA17
=
B8BA
BCS
BDA
BDATA

PAGE

27-46
SEG 007¢

SYMBOL

ADJLC4

19-DEC-83 10:0i

030614
024344 G
024314
017346
032734

C$BSEG= 000004

C48SUB= 000002
C$CEFG= 000045
C$CLCK=
CS$CLEA=
C$CLOS=
CsCLP1=
C$CVEC=
C$DCLN=
C$DODU=
CS$DRPT=

C$DU_
=
CS$EDIT=
C$ERDF=
CS$ERHR=

000062
000012
000035
000006
000036
000044
000051
000024

000053
000003
000055
000056

C$ERRO= 000060

C$SVEC=
C$TPRI=
DA
=
DCKER
DCRC
=

000037
000013
000004
017455
004000

FRM12
FRM13
FRM14
FRM15S
FRM16

021646
021725
022010
022037
022076

GSOFSI=
G$PRMA=
G$PRMD=
G$PRML=
G$RADA=

DIAGMC= 000000

FRM18

022217

GS$RADD= 000040

DERR

= 040000

DIRC
OLT

003116
= 010000

DRBT

FRM17

FRM19
FRM2

= 000010

DRMSG
DRPCOD
DRST =
DRSTAT
DRTYPE
DSB
=
DSPCOD
EF .CON=

034017
024350 G
000013
003106
033766
000004
022462 G
000036 G

END

023046

000035
000034
000037
000040

G
G
G
G

CS$ERSF=
C$ERSO=
CS$ESCA=
C$ESEG=
C$ESUB=
CSETSTCS$EXIT=
C$GETB=
C$GETW=
CSGMAN=
CS$GPHR=
C$GPLO=
CS$GPRI=
CSINIT=
CS$INLP=
CSMANI=
CIMEM =
CSMSG =
CS$OPEN=
CSPNTB=
CSPNTF=

000054
000057
000010
000005
000003
000001
000032
000026
000027
000043
000042
000030
000040
000011
000020
000050
000031
000023
000034
000014
000017

ENDBUF
017300
ENDPAS 022412
ERFLG
003074
ERR
= 100000
ERRFND 017743
ERR1
020240 G
ERR2
020276 G
ERR3
020336 G
ERR4
020464 G
ERRS
020644 G
ERR6
020704 G
EVL
= 000004 G
EXIT
024336
ESEND = 002100
ESLOAD= 000035
E.BA
003166
E€.CS
003164
E.DA
003170
E.Wp
003172
E.MP1L
003174
E.MP2
003176

CSPNTX=
C4QI0 =
C$RDBU=
CSREFG=

000015
000377
000007
000047

FEW
FIXCYL
FNDBSC
FNDDRV

CS$REVI=
CSRFLA=
CSRPT =
C$SEFG=
C$SPRI=

000003
000021
000025
000046
000041

CSIPNTS= 000016

CSRESE= 000033

FADJ

003064

FNDTRK

031256

FORSK
FOWR
FRM1
FRM10
FRM11

017473
031520
031430
027166

003126
003062
020772
021545
021611

G$RADB= 000000

022303
021067

FRM20

DRBUF
017240
DRDY = 000001

EF .NEW=
EF .PWR=
EF .RES=
EF.STA=

022163

GS$RADL= 000120
G$RADO= 000020

022341

FRM3
FRM4

G$XFER= 000004

021167
021246

FRMS
FRM6
FRM7
FRM8
FRM9
FRTTRK
FUNERR
FWD

021307
021356
021377
021437
021503
003152
020047
020116

F$DU

= 000016

F$AU
=
F$AUTO=
F$BGN =
FS$CLEA=

000041
000004
000013
000006
000050
000000
000011
000021
000017
000012
000003
000005
000010
000002
000014
000001
003136
002234
002234
020240
024354

GSBIT =
GSTAT =
GSCNTO=
GS$DELM=

000003
000004
000200
000372

GLBTXT

HORFND 002234
HEAD = 000100
HEADO1L 003114
HNF
= 010000
HOE
= 100000 G
HPTCOD 022446 G
HRDPRM 033676 G
HRDOWTS 032734 G

HSFLG
003110
IBE
= 010000 G
IDU
= 000040 G
IER
= 020000 G

INAWR

G
G
G
G

017302 G

G$DISP= 000003
GSEXCP=
GS$HILI=
GSLOLI=
GS$NO
=
GS$OFFS=

GS$YES = 000010
HCRC = 004000

000015
000020
000040
000007

FSEND =
F$HARD=
F$HW
=
F$INIT=
F$JHP =
F$MOD =
F$MSG =
FS$PROT=
F$PWR =
FSRPT =
F$SEG =
F$SOFT=
F$SRV =
FISUB =
F$SW
=
FSTEST=
GDATA
GLBDAT
GLBEQA
GLBERR
GLBSUB

000400
000002
000001
000000
000400

000376
000001
000002
000000
000140

030502

INITCO
022466 G
INITWR
017373
INN1O
002356
INN11
002370
INN20
002360
INN21
002372
INN3O
002362
INN3S1L
002374
INNAO
002364
INNA1
002376
INNSO
002366
INNS1
002400
INTEN = 000100
ISR
= 000100 G
IXE
= 004000 G
ISAU
= 000041
ISAUTC= 000041
ISCLN = 000041
ISOU
= 000041
ISHRD = 000041
ISINIT= 000041

ISMOD = 000041
ISMSG =
IS$PROT=
ISPTAB=
ISPWR =

000041
000040
000041
000041

I$SEG =
IS$SETU=
IS$SRV =
Is$SUB =
ISTST =

000041
000041
000041
000041
000041

ISRPT = 000041

CNRLLAQ RLO1702 DRIVE COMPAT
SYMBOL

MACRO M1200

19-DEC-83 10:01

PAGE

27-47
SEQ 0072

TABLE

JESJMP = 000167
LOFUNC
032432

L$SPC
L$SPCP

002056 G
002020 G

0QU40
oQuUal1

002270
002302

REV
REVSK

020126
003124

TS$HILI= 000007
TSLAST= 000001

LOE
LOT

= 040000 G
= 000010 G

LS$STA
LS$TEST

002030 G
002114 G

0QUS1
OSECT

002304
003112

SECBUF
SECLST

002442
002402

TSLSYM= 010000
TSLTNO= 000001

003134
003150
002110
002036
002070
024340
002106
024344
002032

LSUNIT
L10000
L100C1
L10002
L10003
L10004
L10005
L10007
L10010

002012 G
020274
020334
020462
020642
020702
020770
022462
024336

002122
002076
002060
022464

G
G
G
G

L10012
L10013
L10014
L10015

LOAD

LSTCLR

LSTDRV
LSTTRK
LSACP
LS$SAPT
LSAUT
LSAUTO
LS$CCP
LSCLEA
LsCO

032326

L$SPTP

003070

LSTIML

G
G
G
G
G
G

LSDEPO

002011 G

LSDLY

002116 G

MANY

002034 G

MERGE

LSDESC
LSDESP
LSDEVP
LSDISP
LSDTP

LSDTYP

LsDV
LSDUT

LSOVTY
LSEF
LSENVI
LSETP
LSEXPL
LSEXP4
LSEXPS
LSHARD
LSHIME
L¢HPCP
LIHPTP
Lér
L$ICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LENAME
LSPRIO
LSPROT
LSPRT
LSREPP
LSREV
.

ABS.

L10011

002040 G

MDHEDR

024350 G
002072 G

MID1O
MID11

002222 G
002052 G
002044 G
002102 G
002046 G
002064 G
002066 G
033700 G
002120 G
002016 G
002022 G
022450 G
002104 G
022466 G
002026 G
034042 G
002100 G
002074 G
002050 G
002000 G
002042 G
022440 G
002112 G
002062 G
002010 G
034042

000000

ERRORS DETECTED:

MID20
MID21
MID30
MID31
MID4O
MID4A1
MIDSO
MIDS1
MK
=
MP
=
NCHECK
NONE
NXM
=
OBUFF
OFFSET
OPI
=
OPROO1
OPROO2
0QU1C
oQU11I
0QU20
oQu2L
0QU30
oQU31

002024 G

002014 G

024342

024346
024352
033674
033752

017532

002000 G

031030

002306
002320

002310
002322
002312
002324
002314
002326
002316
002330
000001
000006
030600
017571
020000
017236
003146
002000
017302
017321
002262
002274
002264
002276
002266
002300

000

001

VIRTUAL MEMORY USED:
28621 WORDS
( 112 PAGES)
DYNAMIC MEMORY:
20060 WORDS
( 77 PAGES)
ELAPSED TIME:
00:16:33

0QUS0

002272

OUT10

002236

OUT11
0UT20
ouT21
OUT30
OUT31
OUT40
0UT41
OUTSO
OUTS1

002250
002240
002252
002242
002254
002244
002256
002246
002260

OVMES

OVWER
OVWPER
OVWTRK
0$APTS=

0$AU

017642

020003
024634
003022
000000

= 000000

0$8GNR= 000000

0$BGNS= 000000

0$DU
= 000001
O$ERRT= 000000
O$GNSKW=
O$POIN=
0$SETU=
PAT
=
PATLST
PNT
=
PRI
=
PRIOR =
PRIOO =
PRIO1 =
PRIO2 =
PRIO3 =
PRIO4 =
PRIOS =
PRIOS =
PRIO7 =
PRSTRK
RDHDR =
READ
=
READ1L
REASON
RECER
RECMS
REGDMP

000000
000001
000000
000006
003046
001000 G
002000 G
000004
000000 G
000040 G
000100 G
000140 G
000200 G
000240 G
000300 G
000340 G
003154
000010
000014
020163
003072
020023
017675
026550

RSADJS
SECT

SECWRD
SEEK
=
SERNM1
SERNM2
SERNUM
SETLST
SETUP
SIGN
=
SKCYL

SKER

SKHS
=
STFLG
STSEC
STSEC1

SURF

SURFAC

026760
003132

003144
000006
003210
003212
031554
027126
023120
000004
026302

020077

000020
003076
003230
003226

003120

003156

SVCGBL= 000000

SVCINS= 000000
SVCSUB= 177777

SVCTAG= 000000
SVCTST= 177777
S$LSYM= 010000
TEM
003056
TEMP
003066
TIME
024354
TQU1O
002332
TQUL11L
002344
TQU20
002334
TQU21
002346
TQU30
002336
TQU31
002350
TQU4AO
002340
TQUAL
002352
TQUSO
002342
TQUS1
002354
TRKCNT
003162
TRKFND
003160
TYPOR = 000006
T$ARGC= 000001
T4CODE= 002032
TSERRN= 000322
TS$EXCP= 000000
T$GMAN= 000000

TSLOLI= 000000

TSNEST= 177777
TSNSO =
TSNS1 =
T$PTNU=
T$SAVL=
TSSEGL=
T$SUBN=
T$TAGL=
T$TAGN=
TS$TEMP=

000000
000004
000000
177777
177777
000000
177777
010016
000000

T$TSTM=
T$TSTS=
T$$AUT=
T$$CLE=

177777
000001
010011
010012

TS$TEST= 000001

T$$DU = 010013

T$$HAR= 010015

T$sHW = 010007

T$$INI= 010010
T$$MSG= 010005

T$$PR0O=
T$$TES=
T.DRIV
Tl
UAM
=
UNLOAD
wT
VAJWR
VEC
=
VECMSG
VECT
=
VEROD
VEROW
WCOUNT
WRITE =
WRITL
WRSEC
XDELAY
XTIME
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
YDELAY

010006
010014
003060
032734 G
000200 G
032222
003130
030140
000002
034010
000002
027612
027226
003142
000012
020136
025116
017232
024500
000000
000040
000400
000020
017234

CNRLLAO RLO1702 DRIVE COMPAT
SYMBOL

MACRO M1200

19-DEC-83 10:01

TABLE

CNRLLA.BIN,CNRLLA.LST/-SP=SVC34.MLB/M.
,CNRLLA . MAC

PAGE

27-48

SEQ 0074