Digital PDFs

AH-9102D-MC

March 1982

192 pages

Original

11MB

view download

OCR Version

10MB

view download

Document:	CZR6BD0 RK611,RK06,RK07 RK611 DSKLS PRT 2 MAR 1982 bw
Order Number:	AH-9102D-MC
Revision:	000
Pages:	192
Original Filename:	CZR6BD0__RK611,RK06,RK07__RK611_DSKLS_PRT_2__AH-9102D-MC__MAR_1982_bw.pdf

OCR Text

RK611
K06, RKO7

RK611

DSKLS PRT 2
CZR6BDO

AH
- 9102
k1l CHE 1

Pory Emisis
e HIBTNE]D

(IROGBDO RK611 DSKLS CTRL PRYZ
16=SEP-81

13:4

30(1046)

14=~SEP-81

.REM %

15:10

PAGE 2

SEG 0001

IDENTIFICATION

PRODUCT CODE:

AC-9100D-M(C

PRODUCT NAME:

(ZR6BDO RK611

DATE:

AUGUST

MAINTAINER:

DIAGNOSTIC

AUTHOR:

BRIAN LE BLANC

DKSLS PRTC

10 1981
GROUP

FOPNONLUNUNONINON)
—b w2
<
~ o B NN = OO 0D

2 =2

bbb -4

NP NN
O OO0 NN N oo

TIR6BD.PT

MACY11

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES
NJ RESPONSIBILITY FOR ANY ERROR THAT MAY APPEAR IN THIS DOCUMENT.
THE

SOF TWARE

DESCRIBED

THIS

DOCUMENT

LICENCE AND MAY ONLY BE USED OR COPIED
TERMS OF

SUCH LICENSE.

FURNISHED UNDER A

IN ACCORDANCE WITH

THE

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR

YHE USE OF RELIABILITY OF
NOT SUPLIED BY DIGITAL.

(C)

ITS

1976,1981

SOFTWARE

ON EQUIPMENT

THAT

BY DIGITAL EQUIPMENT CORPORATION

30(1046)

14-SEP-81
TABLE

15:10

1
c
PAGE 3

SEQ 0002

CONTENTS

1.0 ABSTRACT

2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 PRELIMINARY PROGRAMS
OPERATING PROGRAMS

LOADING PROCEDURE
STARTING PROCEDURE
OPTIONAL SWITCH SETTING
RUN TIME

O OPERAIING PROCEDURES

(¥, |

3.1
3.2
3.3
3.4

.0 PROGRAM DESCRIPTION
.

MACY11

(ZR6BDG RK611 DSKLS CTRL PRT?
14=SEP=-81 13:47
CIR6BD.P1

0 ERROR REPORTING

1.0 0 ABSTRACT

THE RK611 DISKLESS CONTROLLER DIAGNOSTIC. PART 2 TEST THE LOADING
OF THE DRIVE BUS MESSAGES BY EXECUTING CLASS A COMMANDS.
SOME
TESTS EXECUTE COMMANDS PARTIALLY MAINTENANCE MODE AND PARTIALLY
AT NORMAL SPEED TO FOOL THE CONTROLLER AND FORCE ERRORS.
PROGRAM DOES NOT REQUIRE THE PRESENCE OF AN RKO6 DRIVE.

THIS

2.0 REQUIREMENTS
2.1

EQUIPMENT
PDP-11 SYSTEM (16K CORE MEMOKY)
CONSOLE TERMINAL
DECTAPE, PAPER TAPE READER, OR DECDISK
RK611 CONTROLLER

2.2 PRELIMINARY PROGRAMS
RK611

DISKLESS CONTROLLER DIAGNOSTIC:
CZR6AXX

PART

3.0 OPERATING PROCEDURES

3.1

LOADING PROCEDURE

THE

PROGRAM (AN BE

LOADED

FROM PAPER

OR FROM ANY MEDIA SUPPORTED BY XXDP.

3.2 STARTING PRGCEPURE

TAPE

USING ABSOLUTE

LOADER

(ZR6BDO RK611

TIR6BL.PT

DSKLS CTRL PRT?
14=SEP=81

13:4°

MACY11

30(1046)

14~SEP-81

15:10

1
D
PAGE 4

SEQ 0003

LOCATION 200

= START PROGRAM

LOCATION 204

= RESTART PROGRAM

LOCATION 214

- REQUEST BUS ADDRESS,

PRIORITY MODIFICATION

VECTOR ADDRESS, AND

3.3 OPTIONAL SWITCH SETTiNGS
SW15
SW14
SW13
SW12
SW11
SW10
SW9
SW8

NS W =200V ~NOW
=O VDN

3.5 RUN TIME
FIRST

PASS

7 SECONDS

SUBSEQUENT PASSES

4.0
THE

2 MINUTES

OPERATING PROCEDURES
PROGRAM

EXECUTED BY

STARTING AT

THE

APPROPIATE

ADDRESS.

5.0 PROGRAM DESCRIPTION
**DRIVE

MESSAGE

TEST

FIRST

COMMAND

IN MAINT MODE

INITIALIZE RK611

WITH CONTROLLER CLEAR.

PUT CONTROLLER

MODE. ISSUE SELECT DRIVE. WAIT AND MA¥E SURE (S1
THE SAME. CLOCK IN MESSAGES A AND B. MAKE SURE

%?g?ECT MSG ARE

TEST 2

DRIVE

INITIALIZE RK611

ZERO.

LOADED.

CHECKING

IS DONE

REMAINS

A FIELD AT A

SELECT BITS LOADING FOR DRIVE MESS.

DIAGNOSTIC MODE.

AN DOV YO NS W

HALT PROGRAM
LOOP ON TEST
INHIBIT ERROR TYPE QUT
ABORT AFTER 20 ERRORS
INHIBIT ITERATION COUNT
BELL ON ERROR
LOOP ON ERROR
LOOP CON TEST IN SWITCHES 0-7

WITH CONTROLLER CLEAR.
LOAD

COMMAND AND

PUT CONTROLLER

STATUS REGISTER 2 WIT

LOAD COMMAND AND STATUS REGISTER WITH A SELECT

COMMAND.
CLOCK IN MESSAGES A AND B INTO SHIFT REGISTER.
QQEEC¥URE1C?§RECT MESSAGES ARE (OADED.
REPEAT FOR DRIVE

d
d
) ek =D

2 e 2 OO OO

D ed
D ek
)
D e
B

3 d 2 be
=

D
P ed e
D
d
b
D ed
D
=D ed
DD ed ad—d
d
— e

NN N AR AN AT AN NN NN PO PO PO AL NNV

104

=
-

TEST

FORMAT BIT LOADING TO FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER N
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 WifT

(ZROBDO RK611 DSKLS CTRL PRT?
TIR6BD.P11
14=SEP=-B81 13:4

MACY11

30(1046)

14-SEP~81

15:10

PAGE

145

146
OO ~NO NS WO 2

) —s
P
Y
N
S
JYT S
T

VAV
IV IV LV IV TV, 1V, ) P

SEQ 0004

A SELECT COMMAND AND 24 SECTOR MODE
CORRECT MESSAGE IS _OADED.

164

147
148

TEST

HEAD

SELECT BITS

LOADING FOR DRIVE

FORMAT.

MAKE

SURE

MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD TRACK ADDRESS WITH ZERO.
LOAD
(OMMAND AND STATUS REGISTER 2 WITH ZERO.
LOAD COMMAND

AND STATUS REGISTER WITH SELECT COMMAND.
(LOCK
MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE

TEST

MESSAGE

IS LOADED.

REPEAT FCR

TRACK ADDRESS =

MESSAGE

SELECT BITS LOADING FOR DRIVE MESS.

IN
CORRE(T

1-7.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE AND ZERO IN MESSAGE SELECT BITS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SELECT COMMAND.
1
IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE
CORRECT MESSAGE IS LOADED.
REPEAT FOR MESSAGE SELECT CLEAR DR.VE

TEST

COMMAND LOADING FOR DRIVE MESS

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER

DRIVE

CLEAR.

(LOCK MESSAGE

A AND B

MAKE SURE SHIFT REGISTERS ARE LOADED
FOR 24 SECTOR FORMAT,
TEST

INTO SHIFT

CORRECTLY.

IN
1 WIT

REGISTE

REPEAT

UNLOAD COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 WiIT

AN UNLOAD COMMAND.
CLOCK IN MESSAGES A AND B INTO SHIFT
REGISTERS.
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECT

REPEAT FOR 24 SECTOR FORMAT.
TEST

10 PACK ACKNOWLEDGE

COMMAND LOADING FOR

CLEAR RK611 WITH CONTROLLER CLEAR.
DIAGNOSTIC MODE.

DRIVE

MESS.

PUT CONTROLLER

LOAD COMMAND AND STATUS REGISTER 1

WIT

A PACK ACKNOWLEDGE.
CLOCK MESSAGES A AND B INTO SHIFT
REGISTERS.
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECT

REPEAT FOR 24 SECTOR FORMAT.
TEST

RECALIBRATE

COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD COMMANC AND STATUS REGISTER 1 wlT

A RECALIBRATE.
(CLOCK MESSAGES A AND B INTO SHIFT
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.

REGIST
—"

CZR6BDO RKOI1T DSKLS CTRL PRT2
“IR6BD.P1Y
14=SEP=-B1 13:4

%%g

WA(CY11

30(71046)

14-SEP-81

15:10

PAGE 6

TEST

12 START

204
205
206
207
TEST

13 SEEK AND

212
213

218
%Bg

TEST

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER IN
DIAGNOSTIC MODE.
LOAD 1000 IN CYLINDER ADDRESS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SEEK (OMMAND.
CLOCK IN MESSAGE A AND B INTO SHIFT REGISTERS.
MAKE
SURE CYLINDER BIT 9 IN MESSAGE [N RESET.
REPEAT FOR
CYLINDER = 1400.

%%%

TEST

SEEK AND

CYLINDER ADD 0,777-1777 LOADING FOR DRIVE MESS

(OMMAND AND STATUS REGISTER 1 WITH SEEK COMMAND AND
CDT SET.
CLOCK IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE CYLINDER CORRECT.
REPFAT FOR CYLINDER = 777-1
TEST 16 OFFSET COMMAND LOADING FOR DRIVE MESS.
CLEAR RK611

241
242
243
244
245

251
252
253
254
255

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD O IN CYLINDER ADDRESS.
LOAD

‘

240

CYLINDER ADD 0-777 LOADING FOR DRIVE MESS

14 SEEK AND CYLINDER BIT 9 AND RKO6 FOR DRIVE MESS.

221
222
c23
224
225
22

246
247
248
a%%

COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD ZERQ IN CYLINDER ADDRESS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SEEK COMMAND.
CLOCK IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE
CORRECT MESSAGE IS LOADED.
REPEAT FOR CYLINDER = 1-777.

214
215
S}g

237
%gg

SPINDLE

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 wlT
A START SPINDLE.
(CLOCK MESSAGES A AND B INTO SHIFT KEGI
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.

%xq

231
232
233
234
S%g

SEQ 0005

WITH CONTROLLER CLEAR.

PUT (ONTROLLER

DIAGNOSTIC MODE.
LOAD OFFSET REGISTER WITH 0.
LOAD
COMMAND AND STATUS REGISTER 1 WITH AN OFFSET.
(LOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE SHIFT
REGISTERS ARE _LOADED CORRECTLY.
REPEAT FOR OFFSET
REGISTER = 1-377.

TEST

17 CYLINDER ADDRESS LOADING OF DRIVE MESS

(PART

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER N
DIAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A SELECT.
CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE

(ZR6BDD RK611 DSKLS CTRL PRT2
TIR¢BD.P1T
14-SEP-81 13:4

MACY11

30(1046)

14~SEP-81

15:10

1
G
PAGE 7

SEQ 0006

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

ADDRESS
TEST

FIELD

IS ZERO

'N DRIVE

MESSAGE.

20 CYLINDER ADDRESS LOADING OF DRIVE MESS

(PART ?2)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DJAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A PACK ACKNOWLEDGE.
(LOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CCRRECTLY AND THE CYLINDER
ADDRESS

TEST

FIELD

ZERO

IN DRIVE

MESSAGE.

21 CYLINDER ADDRESS LOADING OF DRIVE MESS
CLEAR RK617

WITH CONTROLLER CLEAR.

WITH 777.

LOAD THE OFFSET REG TO 52.

DIAGNOSTIC MODE.

LOAD

(PART

PUT CONTROLLER

CYLINDER ADDRESS REGISTER

LOAD COMMAND

AND STATUS REGISTER 1 WITH A CLEAR DRIVE.
(LOCK
MESSASES A AND B INTO SHIFT REGISTERS.
MAKE SURE

SHIFT REGISTERS ARE LOADED CORRECTLY AND

ADDRESS

TEST

FIELD

IS ZERO

IN DRIVE

MESSAGE.

22 CYLINDER ADDPRESS LOADING OF DRIVE MESS

THE

CYLINDER

(PART 4)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNCSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD (OMMAND

AND STATUS REGISTER 1 WITH AN UNLOAD.
MESSAGES A AND B INTO SHIFT REGISTERS.

(LOCK
MAKE

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE

ADDRESS

TEST

FIELD

IS ZERO

IN DRIVE

MESSAGE.

23 CYLINDER ADDRESS LOADING OF DRIVE MESS

SURE

CYLIMDER

(PART 5)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A START SPINDLE.
(CLOCK

MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE
ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.
TEST

24 CYLINDER ADDRESS LOADING OF

DRIVE MESS

CLEAR RK611 WITH CONTROLLER CLEAR.

DIAGNOSTIC MODE.

WITH 777.

SURE
CYLINDER

(PART 6)

PUT CONTROLLER

LOAD CYLINDER ADDRESS REGiSTER

LOAD THE OFFSET REG TO 52.

AND STATUS REGISTER 1

LOAD COMMAND

WITH A RECALIBRATE.

<CLOCK

MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE

SURE
CYLINDER

(ZR6BDO RK611 DSKLS CTRL PRTZ2
“IR6BD.P1T
14-SEP=-81 13:4

MACY11

30(1046)

14-SEP-81

15:10

PAGE 8

312

i
%}Z

ADDRESS FIELD

TEST 26 MESSAGE

TEST 27 MESSAGE

359

362
363
364
365
366

(PART

SELECT BIT

CLEARING FOR CLASS A

(PART

(PART &)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LCAD
COMMAND AND STATUS REGISTER 1 WITH A START SPINDLE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

TEST

353
354
355
. 356
%gg
%z?

CLEARING FOR (LASS A

TEST 30 MESSAGE SELECT BIT CLEARING FOR CLASS A

gzg

350

SELECT BIT

CLEAR RKG11 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATLS REGISTER 1 WITH AN UNLOAD.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.

344
345
346
347

%g}

(PART 1)

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTRGLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A DRIVE (CLEAR.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.

335
336
337
338
339
%2%

IN DRIVE MESSAGE.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATUS REGISTER 1 WiTH A PACK ACKNOWLEDGE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.

326
327
328
329
330
%gz

IS ZERO

TEST 25 MESSAGE SELECT BIT CLEARING FOR CLASS A

217
318
319
320
321
%%%

SEQ 0007

MESSAGE

SELECT BITS ARE

MESSAGE

SELECT BIT

CLEARED.

CLEARING FOR CLASS A

(PART

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A RECALIBRATE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.
TEST

32 MESSAGE

SELECT BIT

CLEARING FOR CLASS A

(PART

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROL!'ER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A OFFSET.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.

(ZR68DO RKk611 DSKLS CTRL PRT?

ZIREBD.PYY

14~SEP-81

13:47

MACY11

30(1046)

14-SEP-81

15:10

1
[
PAGE

SEQ 0008

TEST 33 MESSAGE

SELECT BIT CLEARING FOR CLASS A

(PART

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER iN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SEEK.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

MESSAGE

*+DRIVE

MESSAGE

SELECT BITS ARE

CLEARED.

LOOPBACK AND PARITY GENERATION TESTS

TEST 34 DRIVE MESSAGE

LOOPBACK

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE INDICATING MESSAGE 3. LOAD COMMAND
STATUS REGISTER FOR DRIVE 5. LOAD COMMAND AND STATUS
REGISTER 1 WITH A SELECT COMMAND.
C(LOCK 4 BITS

THROUGH THE DRIVE MESSAGE
ARE INDEED LOOPED BACK.

TEST 35 DRIVE MESSAGE

LOOPBACK.

VERIFY

THAT BITS

SHIFT

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MOCE. LOAD CYLINDER ADDRESS WITH 441,
LOAD HEAD ADDRESS WITH 1. LOAD COMMAND AND STATUS

THROUGH THE

WITH A SEEK

[N 24 SECTOR MODE.

DRIVE MESSAGE

SHIFTED FROPERLY.
TEST 36 DRIVE MESSAGE

LOOPBACK.

VERIFY

CLOCK 8 BITS

THAT BITS ARE

PARITY PRECONDITIONING

CLEAKR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER 1 W

A SELECT COMMAND. CLOCK ALL 16 BITS THROUGH THE
DRIVE MESSAGE LOOPBACK. VERIFY PARITY HAS BEEN PRECONDIT
PROPERLY.

TEST

REPEAT

FOR BAD PARITY GENERATION.

37 0DD DRIVE MESSAGE PARITY GENERATION

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE AND MESSAGE SELECT = 1.
LOAD COMMAND AND STATUS REGISTER 2 WITH DRIVE
SELECT = 1. LOAD COMMAND AND STATUS REGISTER 1 WITH

A SELECT

COMMAND.

VERIFY

GENERATED CORRECTLY.

DRIVE SELECT = 2-17.
TEST 40 DRIVE MESSAGE PARITY

THAT PARITY HAS BEEN

REPEAT FOR MESSAGE

SELECT

INTERACTION

CLEAR THE RK611 WITH A CONTPOLLER CLEAR, PUT CONTRCL.ER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER ¢

CZR6BDO RK611 DSKLS CTRL PRT?

"TIR6BD.P1?

14=-SEP-81

13:47

MACY11

30(1046)

14~SEP-81

624
425
426
427
428
429
430

15:10

PAGE 10

WITH DRIVE SELECT = 1. LOAD COMMAND AND STATUS REGISTER
WITH A SELeCT COMMAND, VERIFY THAT THE (CORRECT PARITY
IS GENERATED FOR BOTH MESSAGES. REPEAT FOR MESSAGE

SELECT = 1

432
433

CLEAR RK611

GE PARITY GENERATION

WITH CONTROLLER CLEAR.

IN DIAGNOSTIC MODE AND MESSAGE

434
435
436
437
438

AND BAD PARITY

SET.

LOAD

PUT CONTROLLER

SELECT

COMMAND

AND

STATUS

REGISTER 2 WITH DRIVE SELECT = 1. LOAD COMMAND
AND STATUS REGISTER SELECT COMMAND. VERIFY THAT
EVEN PARITY IS GENERATED.
REPEAT FOR MESSAGE SELECT

DRIVE

439

453%
454
455

AND DRIVE SELECT = 0.

EST 41 EVEN DRIVE MEL

440
441
462
443
444
445
446
447
448
445
450
451
452

SEQ 0009

**(

SELECT = 2-17.

ASS A COMMAND EXECUTION

TEST 42 RELEASE

COMMAND

IN DIAGNGSTIC

MODE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT

CONTROLLER

IN DIAGNOSTIC

STATUS RLGISTER 2 WITH DRIVE

MODE.

LOAD

SELECT =

COMMAND

10.

LOAD

COMMAND AND STATUS REGISTER 1 WITH A SELECT.
CLOCK COMMAND TO COMPLETION. MAKE SURE UNIT
FIELD ERROR DOES NOT SET (SACK HIGH). REPEAT
DRIVE SELECT = 11-17.

TEST 43 SELECT COMMAND

456

FOR

IN DIAGNOSTIC MODE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

457
458

PUT

CONTROLLER

IN DIAGNOSTIC

MODE.

LOAD

COMMAND

STATUS REGISTER 2 WITH DRIVE SELECT = 0. LOAD
COMMAND AND STATUS REGISTER 1 WITH A SELECT.
CLOCK COMMAND TO COMPLETION. MAKE SURE MESSAGE

459
460
461
46?2
463

AND

AMND

SHIFT IS
NOT DONE DURING THE RECEIVE CYCLE OF DRIVE MESSAGE.
MAKE SURE NO ERRORS SET. REPEAT FOR DRIVE SELECT = 1-7,

464

465

466

TEST

467
468

COMMAND

IN NORMAL MODE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

LOAD COMMAND AND STATUS REGISTER 2 WITH DRIVE SELECT
LOAD COMMAND AND STATUS REGISTER 1 WITH A SELECT.
??KEC¥URE1?O1;RRORS OCCUR. REPEAT FOR DRIVE

469
470
471
472
473

474
475
476
477
478
479

RELEASE

TESTM

11-

INTERRUPT AT COMMAND COMPLETION

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
LOWER PROCESSOR PRIORITY TO ZERO. ISSUE A RELEASE
COMMAND WITH

INTERRUPT ENABLE

INTERRUPT OCCURS.

SET.

MAKE

LOWER PRIORITY AFTER

SURE

INTERRUPT

CZR6BDO RK611 DSKLS CTRL PRT2
TIR6BD.P11
14=SEP-81 13:47

MACY11 30(1046)

14-SEP-B1

15:10

PAGE 11

28?

AND MAKE

, 482

TEST

490
491

232

ggg

SILO

IN DIAGNOSTIC MODE

**ERROR AND STATUS BIT FORCING WITH DRIVE MESSAGES
TEST 50 DRIVE STATUS FROM SHIFT REGISTER
CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
TO AN RKOGL IN 26 SECTOR FORMAT, CYLINDER 757, HEAD

YA NN
NN N VLA

AN NN AT VTNV

WIWWWWWNDTURONOROAONUNONIND)
= — o g s
N
WA= OV
NN
NN = OV
NN NN W) —

CLEAR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. iSSUE A SEEK WITH (DT
24 SECTOR FORMAT TO CYLINDER 1714, HEAD 7, DRIVE 0.
MAKE SURE NO STATUS BITS ARE SET AND NO ERROR
BITS ARE SET.

510

TEST 47 SEEK COMMAND

499
500
501
502
503

305

REISSUE RELEASE

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM (LEAR.
WRITE ONE WORD INTO THE SILO.
ISSUE A RelLEASE COMMAND
WITH INTERRUPT ENABLE RESET.
WAIT FOR READY.
READ THE DATA BUFFER TO MAKE SURE THE SILO HAS BEEN
CLEARED. (DATA LATE SET AFTER READ OF DATA BUFFER)

492
493

%8?

INTERRUPT HAS CLEARED.

WITH INTERRUPT ENABLE RESET.
MAKE SURE NO INTERRUPT
OCCURS.
SET INTERRUPT ENABLE AND MAKE SURE NC
INTERRUPT OCCURS.

2%%

496

SURE

LOWER PROCESSOR PRIORITY TO ZERO.

483
484
485
486
487

22;

SEQ 0010

DRIVE 0.
(CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS
6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE SPEED LOSS,
DRIVE AVAILABLE,
AND WRITE

TEST

DRIVE

VOLUME

LOCK ARE

AVAILABLE

SET.

VALID,

OFFSET,

DRIVE READY,

SETTING

CLEAR RKO6 SUBSYSTEM WIIH A SUBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A SEEK

26 SECTOR FORMAT TO CYLINDER 2, HEAD O, DRIVE (.

TO A RKO

CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILIABLE SETS.

TEST 52 DRIVE BUS PARITY ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR,

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A SEEK

TO A RKO6, 26 SECTOR FORMAT TO CYLINDER 3, HEAD O,
ORIVE 0. CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 5.
TURN OFF

DIAGNOSTIC MODE

AND MAKE

SURE

DRIVE 8US

(ZR6BDO RK611 DSKLS CYRL PRT?

CIR6BD.P11

14=-SEP=81

13:47

MACY11

30(1046)

14-SEP-81

15:10

PAGE

SEQ 0011

PARITY,

DRIVE

AVAILIABLE,

AND

CONTROLLER

ERROR ARE

SET.

TEST 53 DRIVE AVAILABLE RESET ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A SELECT

TO A RKO6, 26 SECTOR FORMAT, AND DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF

DIAGNOSTIC MODE

AND MAKE

SURE

IS RESET AND CONTROLLER ERROR IS SET.

TEST

54 CDT SET DRIVE

DRIVE

AVAILIABLE

TYPE

(I,
IV, [V, 1V, IV, ]
(ALY
IV, IV, NV, TV, |

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT

CONTROLLER

IN DIAGNOSTIC

MODE.

ISSUE

A SEEK

WITH CDT SET, 26 SECTOR FORMAT, TO CYLINDER 23,
HEAD 0, DRIVE 0. CLOCK IN DIAGNOSTIC MODE
UNTIL PHASE ADDRESS 6. TURN OFF DIAGNISTIC MODE
AND MAKE SURE ONLY DRIVE AVAILIABLE SETS.
TEST

55 (DT SET AND DRIVE

TYPE ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT

CONTROLLER

IN DIAGNOST!C

MODE.

ISSUE

SEEK

WITH CDT JET, 26 SECTOR FORMAT, TO CYLINDER 2,
HEAD 0, DRIVE 0. CLOCK IN DIAGNOSTIC MODE

UNTIL PHASE ADDRESS 6.

TURN OFF

AND MAKE SURE DRIVE AVAILIABLE,
AND CONTROLLER ERROR SET.
TEST

56 RKO6 AND DRIVE

TYPE

DIAGNOSTIC MODE

DRIVE

TYPE

ERROR

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR

PUT

CONTROLLER

ERROR,

IN DIAGNOSTIC MODE.

ISSUE

SEEK

DRIYVE

TYPE

TO A RKO6, 26 SECTOR FORMAT, TO CYLINDER 23,
HEAD 0, DRIVE 0. CLOCK IN DIAGNOSTIC MODE
UNTIL PHASE ADDRESS 6. TURN OFF DIAGNOSTIC

MODE AND MAKE SURE DRIVE AVAILIABLE,
AND CONTROLLER ERROR SETS.

TEST

ERROR,

57 SPEED LOSS FROM SHIFT REG.
CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A SEEK

TO A RKO

26 SECTOR FORMAT, TO CYLINDER 3, HEAD 1, DRIVE O.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6. TURN

OFF DIAGNOSTIC MODE AND MAKE
SPEED LOSS ARE SET.
TEST

60 DRIVE OFF

SURE DRIVE AVAILIABLE

TRACK FROM SHIFT RES.

AND

CZR6BD.P11T

14=-SEP-81

13:47

MACY11

30(1046)

14-SEP-81

15:10

m
1
PAGE

SEQ 0012

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A SEEK

TO A RKO

26 SECTOR FORMAT, TO CYLINDER 3, HEAD 2, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.

TURN OFF DIAGNOSTIC MODE AND MAKE
AND DRIVE OFF TRACK ARE SET.
TEST 61

WRITE

SURE

DRIVE

AVAILIABLE

LOCK ERROR FROM SHIFT REG.

CLEAR RK0S SUBSYSTEM WITH A S'UBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A PACK ACKNOWLE

TO A RKO6, 26 SECTOR FORMAT, WITH CYLINDER 0,
HEAD 1, DRIVE 0. CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE AND MAKE
SURE SPEED LOSS, WRITE LOCK ERROR AND CONTROLLER ERROR
ARE SET WITH DRIVE AVAILIABLE RESET.
TEST 62 SEEK

INCOMPLETE

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAG*OSTIC MODE.

ISSUE AN UNLOAD

TO A RKO6, 26 SECTOR FORMAT, WITH CYLINDER O,
HEAD 1, DRIVE 0, CLOCK IN DIAGNOSTIC MODE UNTIL

PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE AND MAKE
SURE SPEED LOSS, SEEK INCOMPLETE, AND CONTROLLER ERROR
ARE SET WITH DRIVE AVAILIABLE RESET.

TEST 63 NON-EXECUTABLE DRIVE

FUNCTION FROM SHIFT

REG.

(LEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A DRIVE CLEAR TO A RKO6, 26 SECTOR FORMAT,
WITH CYLINDER O, HEAD 1, DRIVE 0. CLOCK IN DIAGNOSTIC
MODE UNTIL PHASE ADDRESS 6. TURN OFF DIAGNOSTIC

MODE AND MAKE SURE SPEED LOSS, NON-EXECUTABLE DRIVE FUNC
CONTROLLER ERROR ARE SET WITH DRIVE AVAILIABLE RESET.
TEST

-y,

el
—
T

c—mpa

64 AC

LOW AND C=D PARITY

FROM SHIFT

REG.

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR, PUT RK611
CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A START SPINDLE
TO AN RKOG6, IN 24 SECTOR FORMAT, CYLINDER 0, HEAD O,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6
TURN OFF

DIAGNOSTIC

MODE

DETECTED SERCOM PARITY,
DRIVE AVAILABLE RESET.

AND MAKE

SURE

LOW,

AND CONTROLLER ERROR

TEST 65 ILLEGAL DISK ADDRESS ERRQOR FROM SHIf1 REG.
%

(ZR6BDO RK611 DSKLS CTRL PRT?

DRIVE

SET WITH

(ZR6BDO RK61Y DSKLS ZTRL PRTg
TIR6BD.P11
14=SEP=-81 13:4"

MACY11

30(1046)

14~SEP-81

15:10

1
N
PAGE

648
649
650
651
652
653
gg
656

)

659
660

694

695
696
697
698
699
Z%?

IDAE

DETECTION

IN RK611

CONTROLLER

(PART

(I FAR RKOS SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
Rau11 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A
SEEK TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 1003,
HEAD 0, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE

TEST 67 IDAE

678
223

%3%

SURE DRIVE AVAILABLE,

667

684
685
68¢
687
688
689
690
691

.
SEQ 0013

ILLEGAL DISK ADDRESS ERROR,

AND CONTROLLER ERROR ARE SET.

22%

683

TEST

)

661
662
663
664
665
666

681
682

CLEAR RK(6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
eyT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
[SSUE A RECAL IBRAT
TO AN RKO6, IN 26 SECTOR FORMAT, CYLINDER 0, HEAD 1,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE
ADDRESS 6.
TURN OFF DIAGNCSTIC MODE AND MAKE SURE
SPEED LOSS, ILLEGAL DISK ADDRESS ERROR, AND C(ONTROLLER
ERROR ARE SET WITH DRIVE AVAILABLE RESET.

22;

670
671
672
673
674
675
2;9

TEST

DETECTION IN RK611

(ONTROLLER

(PART 2)

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT
RK611 CONTRULLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
WITH CDT SET IN 26 SECTOR FORMAT, CYLINDER 1022, HEAD
0, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
DRIVE AVAILABLE AND POSITIONING IN PROGRESS ARE SET
WITH ILLEGAL DISK ADDRESS ERROR RESET.
70

IDAE

DETECTION

IN RK611

CONTROLLER

(PART

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT
RK617 CONTROLLER IN DIAGNOSTIC MODE.
[SSUE A SEEK

TO AN _RKO6 IN 26 SECTOR FORMAT, CYLINDER 2,

HEAD 3, DRIVE Q.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADLCRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE
SURE DRIVE AVAILABLE, DRIVE OFF TRACK, SPEED LOSS,
ILLEGAL DISK ADDRESS ERROR, AND (ONTROLLER ERROR ARE
SET.

TEST

ITAE

DETECTION

IN RK611

CONTROLLER

(PART4)

(LEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR,

PyT

RK611 CONTROLLER IN DIAGNOSTIC MODE.
[SSUE A SEEK
TO AN RKO6 IN 26 SECTOR FORMAT CYLINDER 3, HEAD
4, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
DRIVE AVAILABLE, UNSAFE, ILLEGAL DISK ADDRESS ERROR
AidD (ONTROLLER ERROR ARE

SET,

TEST 72 IDAf DETECTIUN IN RKe'T (INTRO.
R BART ¢

14-SEP-81

15:10

PAGE 15

SEQ 0014

704
705
706

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
iSSUE A SEEK

709
710
711

6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILABLE, UNSAFE, SPFED LOSS, ILLEGAL DISK ADDRESS
ERROR, AND CONTROLLER ERROR ARE SET.

707
708

WITH CDT SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD 5,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS

;}g

TEST

73 IDAE DETECTION IN RK611

CONTROLLER

(PART 6)

716
717
718
719

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK

;S%

DISK ADDRESS ERROR, AND CONTROLLER CLEAR ARE SET.

WITH CDT SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD 6,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS

720
721

6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILABLE, UNSAFE, DRIVE OFF TRACK, ILLEGAL

724
;%2

TEST 74 NON~STANDARD MESSAGE RECEIVING

727
728

CLEAR RK(6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK

729

730
731
732
733
734
735
;%g

WITH (DT SET

IN 24 SECTOR FORMAT,

TEST

738

75 DRIVE BUS PARITY ON NON-STANDARD MESSAGE

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

739

PUT

741
742

HEAD O, DRIVE 1.
PHASE ADDRESS 6.

740

748
749
750
751
752
753
754

;gg

757
758

THE

RK611

CONTROLLER

IN DIAGNOSTIC MODE.

A SEEK TO AN RKO6 IN 26 SECTOR FORMAT,

;22

745
;29

CYLINDER 1757, HEAD 7,

DRIVE 1.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6
TURN OFF DIAGNOSTIC MODE AND MAKE SURE NO ERRORS SET
AND DRIVE STATUS IS NOT REPORTED.
REPEAT FOR DRIVES
2 AND 4.

ISSUE

CYLINDER 2,

CLOCK IN DIAGNOSTIC MODE UNTIL
TURN OFF DIAGNOSTIC MODE AND MAKE

SURE DRIVE BUS PARITY ERROR AND CONTROLLER ERROR SETS.

TEST

76 NON-EXISTENT DRIVE

(DRIVE MESSAGE

TIME OuT)

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.
PUT THE RK611 CONTROLLER IN DIAGNOSTIC MODE.
[SSUE
A SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER O,
HEAD 0, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 5.
TURN OFF DIAGNOSTIC MODE

AND MAKE SURE NON-EXISTENT DRIVE AND CONTROLLER
ERROR ARE

DUE

SET.

THIS

TO DRIVE MESSAGE

TEST 77 NON-EXISTENT DRIVE

TEST

CHECKS NON-EXISTENT

TIME OUT.

AND NO SA(CK

DRIVE

Yo~

MALY11 30(1046)

CZR6BDO RK611 DSKLS CTRL PRT2
(ZR6BD.P1
14-SEP=-81 13:4°

CZR6BDO RK611 DSKLS CTRL PRTZ
CZR68D.P11
14=-SEP=-81 13:47

MACY11 30(1046)

14-SEP-81

15:10

PAGE 16

SEQ 0015

760

CLEAR THE RKO6 SUBSYSTEM WiTH A SUBSYSTEM CLEAR.

752
763
764

;gz

SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER O,
HEAD O, DRIVE 0.
(CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 4.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
NON-EXISTENT DRIVE AND CONTROLLER ERROR ARE SET.

767

THIS

761

THE RK611

CONTROLLER IN DIAGNOSTIC MODE.

TEST EXERCISES

THE NON-EXISTENT DRIVE

[ISSUE A

PJT

LOGIC

;28

DUE TO RELEASE BIT RESET AN) SACK RESET BUT THE PASSING

770
;;5

OF THIS TEST DOES GUARENTEE THAT THIS SITUATION DID
INDEED CAUSE A NON-EXISTENT DRIVE.

773

;;g

«*«]LLEGAL FUNCTION CODE

;;?

TEST

100

TEST
ILLEGAL

FUNCTION CIDE

778

CLEAR RK611

;g?

SETTING CONTROLLER READY WITH PROPER ERROR CONDITIONS.

779

COMMAND

782
;gz

6.0 ERROR REPORTING

;gz

THE

787
788
789
790
79N

OPERATION DESCRIPTION AND ERROR DESCRIPTION
TeST
ERROR
NUM
PC
XXXXXX
YYYYYY
EXPECT
ACTUAL
OTHER PERTENANT

792

;gz
795

796

797

CENERAL

REG

1117117

NOTE:

FORMAT

WWWWWW
MOVE

AAAAAA

THAN ONE

AND MAKE

IS:

INFORMATION

PRINTED OUT.

ERROR REPORTS

WITH A CONTROL ER CLEAR.

IN NORMAL MODE

SET OF

OTHER

THAN ONE

EXPECT/ACTUAL

PERTENANT

WORD.

REGISTERS MAY BE

INFORMATION MAY

CONSIST

SURE

ISSUE AN ILLEGAL

COMMAND FINISHES

MACY11

30(1046)

14-SEP-81

15:10

D
2
PAGE 17

SEQ 0016

; *xx REV 003 ##+
CTITLE
CZR6BDO RKk611 DSKLS CTRL PRT2
*COPYRIGHT (C) 1976,1981
“«DIGITAL EQUIPMENT (OKP.

**MAYNARD, MASS. 01754
x

; *PROGRAM BY ROY

SPITZER

c %

;*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
;*PACKAGE

(MAINDEC-11-DZQAC-(C5),

JAN,

1981,

*®

.SBTTL

SWITCH SETTINGS

SWITCH

USE

O 00 O

X
%
¥

STACK=

000011
000012
000015
000200

HT=

177774
177772
177570
177570

INHIBIT ERROR TYPEOUTS
ABORT PROGRAM AFTER 20 ERRORS

LOOP ON TEST
INHIBIT

BASIC

ITERATIONS

BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER **x 1100 #*x
1100

001100

177776

13
i2
10
9

.SBTTL

HALT ON ERROR

15
14

S W20 00NN

rororOND rO POPONVPNUND
— a2 22
s

OPERATIONAL

. %

00 0o Oo 0o Co 00 00 0o 00 0o 0o 0o 0o Co 0o 0o 0o O

811

JEQUIV
LEQUIV

EMT,ERROR
10T.SCOPE

::BASIC DEFINITION OF ERROR CALL
::BASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEFINITIONS

LF=
CR=
CRLF=

PS=
.EQUIV

;:CODE FOR HORIZONTAL

177776
PS,PSW

L :PROCESSOR STATUS WORD

177772

:*PROGRAM INTERRUPT REQUEST REGISTER

12
15
200

TAB

::CODE FOR LINE FEED
. CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED

STKLMT= 177774

;;STACK LIMIT REGISTER

DSWRDDISP=

. HARDWARE SWITCH REGISTER
: *HARDWARE DISPLAY REGISTER

PIRQ=

177570
177570

; *GENERAL PURPOSE REGISTER DEFINITIONS

000000
000001
000002
000003
000004
000005
00C006
000007
000006
000007

ROR1R2=
R3=

%0
11
12
13

: ; GENERAL
: :GENERAL
: *GENERAL
. :GENERAL

R5=
R6=
7=

15
%6
17

. :GENERAL REGISTER
: :GENERAL REGISTER
::GENERAL REGISTER

000000

PRO=

P4z

SP=

PC-

: :GENERAL

:STACK POINTER

;*PRIORITY

: :PROGRAM COUNTER
LEVEL

DEFINITIONS

::PRIORITY _EVEL

CZR6BDO RK611 DSKLS CTRL PRT?
CZR6BD.P11
14-SEP-81 13:47

855
354
857
858
855
860
32}

863
864
865
866
867
868
869
870
871
872
873
874
875

876
877
878
879
880
881
882
883
884

000040
000100
000140
000200
000240
000300
000340

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

885

886
887

PR1=
PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

40
100
140
200
240
300
340

JLQUIV

SW04,SWé

CEQUIV
_EQUIV

SWOT.SwWi
SW00,Sw0

100000
040000

;*DATA BIT DEFINITIONS
BIT15=
100000
BIT14=
40000

895
89¢
897
898
899
900
901
902
903
904
905
906

010000
004000
002000
001000
000400
000200
000100
000040
000020
000010
000004
000002

BIT12
BITI1BIT1C=
BITOYBITO8=
81T07=
BIT06=
BIT05=
BIT04=
BIT03=
BIT02=
BITOT=

10000
4000
2000
1000
400
200
100
40
20
10
4
2

.EQUIV
.EQUIV
.EQulv

BIT09,BIT9
BIT08.BIT8
BIT07.BIT7

907

908
309
910

020000

000001

PAGE 18

;:PRIORITY
::PRIORITY
:*PRIORITY
::PRIORITY
**PRIORITY
*:PRIORITY

SEQ 0017
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

*PRIORITY LEVEL

SW03.SW3
SW02.SW2

891
852
893

89¢L

S«"'SWITCH REGISTER'' SWITCH DEFINITIONS
Swi5=
100000
Swik=
40000
SWwi3=
20000
Swi2=
10000
swil=
4000
SWw10=
2000
SW09=
1000
SWw08=
400
SWwo7=
200
SWwo6=
100
SW05=
40
SWwob=
20
“W03=
10
SW02=
4
SWwol=
2
SWw00=
1
LEQUIV
SW09,SW9
-EQUIV
Sw08,Sw8
JEQUIV
SW07.SwW7
JEQUIV
SW06.SW6
_EQUIV
SWOS.SW5S
JEQUIV
CEQUIV

888
ggg

15:10

—

MACY11 30(1046)
14-SEP-81
BASIC DEFINITIONS

8IT13=

8IT00=

20000

(BITOO TO BIT15)

1
2
3
4
S
6

CZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14=SEP<B1 13:4°

CZR6BDO RK6IT DSKLS CTRL PRT?
14-SEP=-81 13:4°
CZR6BD.P1Y
911
912
913
914

915

97
920
921
922
923
924
925
926
927
928
929
930
931

932
933
G634
935
936

937

938
939
940
941

942
943
944
945

946

947

948
949

950
951
952
953
954
955
956

657

958
959
960
961
962
963
964
965
966

14-SEP-81
30(1046)
BASIC DEFINITIONS
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUIV
.EQUlV
.EQulv

916

918
919

MACY11

000004
000010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240
000114

172100

000001

120210

000005

177440

000000
000092
000004
000006
000010
000012
000014
000016
000020
000024
000026
000034
000036
000030
000032
000022

000001
000003
000005
000007
000011
000013
000015

15:10

F
2
PAGE 19

SEQ 0018

BI]
Bl
BI
BI
BI
BI
8l

"'CPU"" TRAP VECTOR ADDRESSES
;;TIME OUT AND OTHER ERRORS
::fl;fifgygD AND ILLEGAL INSTRUCTIONS
; :TRACE

TRAP

: ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP

;sPOWER FAJL

:;EMULATOR TRAP (EMT)

TRAPVE(C=34
TKVEC=
60

::"'TRAP'' TRAP

17 76440

.3BTTL

RK611

RKCS2=
RKDS=
RKER=

JDEFINE RK611

.SBTTL

DR IVE

SELDRvV- 01

PACK=

CLEAR=
Q5
UNLOAD= 07
SRTSPL= 11
RECAL=
13
OFFSET= 15

PRIORITY

:DEFINE BASE OF RK611 REGISTERS
CONTROLLER REGISTER DEFINITION

;CONTROL AND STATUS REGISTER 1
sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
JERPOR REGISTER

16
20
24
26
34
36
30
3?2
22

VECTOR

;DEFINE RK611 VECTOR ADDRESS

0
2

RKASOF=
RKDCYL=
RKDB=
RKMR1=
RKMR2RKMR3RKECPS=
RKECPT=
RKSPAR=

=<~ERROR«x+#

;VECTOR FOR MEMORY CHECK ENABLE
;BUS ADDRESS FOR MEMORY (HECK ENABLE
JMEMORY [NABLE PARITY CHECKING

RKCS1RKW(=
RKBARKDA=

=x«SCOPEx+

;:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST

TPVEC=
64
PIRQVEC=240
MEMVEC= 114
MEMBAS= 172100
PAR.EN= 1
AVECT1= 120210
APRIOR= 5

ABASE=

(JOT)

JATTENTION SUMMARY AND OFFSET

;DESIRED CYLINDER REGISTER
;DATA BUFFER
JMAINTENANCE REGISTER

;MAINTENANCE REGISTER 2

SMAINTENANCE REGISTER 3

JECC POSITICN INFORMATION
JECC PATTERN INFORMATION

;SPARE REGISTER
COMMANDS

;SELECT DRIVE

;PACK ACKNOWLEDGE

;DRIVE CLEAR
;UNLOAD
;START SPINDLE
;RECALIBRATE
JOFFSET

(ZR6BDO RK611 DSKLS CTRL PRT?

TIR6BD.PY

14-SEP-81

967
9¢8
969
970
971

000017
000021
000023
000025
000027
000031
000300

972

973
6974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
90
991
9G¢
993

000001
000100
000200
000400
001000
002000
004000

010000
020000

040000
100000
100000

000007
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

—=O

2 ed —d —2 —
b =

NN B W

= OV

PONOND =

S
U
P U QU G
G

jsleleleleolelolololololele]

100000

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000

13:47

MACY11

30(1046)

164-SEP-81

DRIVE COMMANDS

SEEK=

15:10

PAGE 20

SEQ €019

s SEEK

RDDATA=
WRDATA=
RDHEAD=
WRHEAD=

2]
23
25
27

;READ DATA
JWRITE DATA
;READ HEADER
JWRITE HEADER AND DATA

INTR=

309

;GENERATE INTERRUPT TN CPU

.SBTTL

(ONTROL AND STATUS REGIiSTER 1 BITS

GU=
IE=

BITO
BITé

;G0 BIT
JINTERRUPT ENABLE

BA16=
BA17=

BIT8
BITS

;BUS ADDRESS BIT 16
;BUS ADDRESS BIT 17

WRT(HK= 31

RDY=
(DT=
(10=

BIT7

BIT10
BIT11

sWRITE CHECK

;CONTROLLER READY

;CONTROLLER DRIVE
;CONTROLLER TIMED
DRIVE RESPONSE
;.
;CONTROLLER DRIVE
sDRIVE BUS PARITY
:DRIVE INTERRUPT
;CONTROLLER ERROR
;CONTROLLER CLEAR

CFMT=
SPAR=
Dl=
CERR=
CCLR=

BIT12
BIT13
BIT14
BIT15
BIT1S

.SBTT_

CONTROL AND STATUS REGISTER 2 BITS

TYPE (0=RK06.
OUT WAITING FOR

FORMAT (0=26 SECTOR, 1=24 SECTOR)
ERROR DETECTED BY (ONTROLLER

DRVMSK= 7
RLS=
BIT?

JMASK FOR DRIVE SELECTION CODE
JDESELECT OR RELEASE DRIVE IN BITS 0-2

SCLR=
IR=
OR=
UFE=
MDS=

BITS
BITé
BIT7
BIT8
BITS

;CLEAR CONTROLLER AND ALL DRIVES
;s INPUT READY
;OUTPUT READY
;UNIT FIELD ERROR
JMULTIPLE DRIVE SELECT

BIT11]

sNON-EXISTENT MEMORY

UPE=
WCE=
DLT=

BIT13
BIT14
BIT1S

;UNIBUS PARITY ERROR
;WRITE CHECK ERROR
;DATH LATE ERROR

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=
SKI=

BITO
BIT1

sILLEGAL FUNCTION CODE
sSEEK INCOMPLETE

FMTE=

BIT4

;FORMAT

BAlI=

BITS

PGE=

BIT10

NEM=
NED=

NXF =
DRPAR=

BIT1?

BIT?2
BIT3

DTYE=
ECH=
BiE=

BITS
BIT6
BIT7

(OE=
IDAE=
WLE=
DTE=

BIT9
BIT10
BIT1
BIT1?

HVRC=

BIT8

sBUS ADDRESS INCREMENT INHIBIT

;PROGRAMMING ERROR

JNON-EXISTENT DRIVE

sNON-EXECUTABLE DRIVE FUNCTION
;DRIVE DETECTED DRIVE BUS PAR]TY ERRGR
ERROR

;DRIVE TYPE ERROR
JECC HARD
sBAD SECTOR ERROR

JHEADER VR(C ERRROR

;CYLINDER ADDRESS OVERFLOW ERROR
;INVALID DISK ADDRESS ERROR
JWRITE LOCK ERROR
;DRIVE TIMING ERROR

CIR6BDO RK611
CIR6BD.P11

1023

1024

DSKLS CTR. PRT'
14-SEP=81 13:4

H 2
30(1046)
14~SEP-81
15:10
PAGE 21
ERROR REGISTER BIT DEFINITION

SEQ 0020

020000

OPl=

BIT13

100000

DCK=

BIT1S

.SBTTL

STATUS REGISTER BIT DEFINITION

040000

}852

MACY1Y

}855

UNS=

;OPERATION (SEARCH)

BIT14

sDRIVE UNSAFE

;DATA CHECK

1029

000001

DRA=

BITO

1037
1038
1039
1040
}825

000004
000010
000020
000040
000100
000200
000400
004000
020000
040000
100000

OFST=
ACLO=
SPDLSS=
DROT=
vv=
DRDY=
DDT=
WRL =
PIP=
DSC=
SVAL=

RIT?
BIT3
BIT4
BITS
BIT6
BIT?7
BIT8
BIT1
BIT13
BIT14
BIT15

.SBTTL

MAINTENANCE REGISTER 1 BIT DEFINITION

1030
1031
1032
1033
1034
1035
1036

}892

IN{OMPLETE

;DRIVE AVAJLABLE

(CONTROLLER

;
THIS BIT IS RESET)
;DRIVE OFFSET
;AC LOW
;SPEED LOSS
:DRIVE OFF TRACK
. VOLUME VALID
;DRIVE READY

IS SET

:DRIVE TYPE (0=RK06)
JWRITE LOCK
;POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE
;STATUS VALID

[

}822

000017

MESMSK= 17

;MESSAGE MASK

1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
}923

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

PAT=
DMD=
MSP=
MIND=
MCLK=
MERD=
MCWD=
PCA=
PCD=
ECCWw=
WRTGAT=
RDGATE=

BIT4
BITS
BIT6
BIT?
BiTS8
BIT9
BIT10
BIT1]
BIT12
BIT13
BIT14
BIT15

;FORCE EVEN PARITY ON DRIVE MESSAGE
;DIAGNOSTIC MODE
;MAINTENANCE SECTOR PULSE
;MAINTENANCE INDEX
MAINTENANCE CLOCK
;MAINTENANCE ENCODED READ DATA
JMAINTENACNE ENCODED WRITE DATA
;PRECOMPENSATION ADVANCE
:PRECOMPENSATION DELAY
;ECC WORD IS BEING READ OR WRITTEN
;WRITE GATE
;READ GATE

.SBTTL

TRANSMITTED MESSAGE A

}829
1062

000020

S.SEEK= BIT4

;SEEK COMMAND

1064
1065
1066
1067

000100
000200
000400
001000

S.STSP=
S.RTC=
S.CLR=
S.FMT=

;START SPINDLE COMMAND
;DRIVE RETURN TO CENTERL INE
:CLEAR ERROR AND DSC
:FORMAT

1069
1070
1071
1072
1073
1074
1075
1076

004000

S.PACk= BITN
.SBTTL
TRAP CAT(CHER

000000

.=0
;*ALL UNUSED LOCATIONS FRCM & = 776 CONTAIN A ''.+2 HALT"
;*SEQUENCE TO CATCH JLLEGAL TRAPS AND INTERPUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS
=174

1063

000040

1068

1077
1078

002000

000174
000176

000174

000000
000000

S.RECL= BITS

;RECALIBRATE

BITé
BIT7
BiT8
BIT9

S.UNLD= BIT10

DISPREG:
SWREG:

.WORD
.WORD

0
0

;UNLOAD
;SET

VOLUME

LINES

COMMAND

VALID

COMMAND

(PACK ACKNOWNLEDGE)

;:SOF TWARE DISPLAY REGISTER
;sSOFTWARE SWITCH REGISTER

CZR6BDO RK611 DSKLS CTRL PRT2

(ZR6BD.PI1T
1079

1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092

1093
1094

000200
000204
000214

14-SEP-81

13:47

000137

004316

000214
000137

004276

000137

MACY11

.SBTTL

004306
LSBTTL
R

000046
000052

000220
000046
042340
000052
000000
000220
001000

d#START
RESTRT

CVNEWN
2OV
NN
W —=O

S
A
I
YR
QP
Y
S
N
S
J

SEQ 0021

Jfip

PARM

;;JUMP TO STARTING ADDRESS OF PROGRAM
;sJUMP TO RESTART ROUTINE

;JUMP TO OPERATOR ASSIGNED PARMETERS

ACT11 HOOKS

0000000 R2RRRARRARRARRRRRRR2R2RR2222
222222820082 ]

*HOOKS REQUIRED BY ACT11

.SBTTL

PAGE 22

STARTING ADDRESS(ES)

JMP
JMS14

55!2“-

;SAVE PC

SEggAD

;s 1)SET LOC.46 TO ADDRESS OF

.WORD
0
.=$SVP(
.=1000

2;2)SET L0C.52 TO ZERO
;s RESTORE PC

$ENDAD

IN .S$EOP

APT PARAMETER BLOCK

AR AEAEARASS

[P
R R O
e Y
WP S QP
R O e Y )
==
2SSO0 00000000

30(1046)
14-SEP-81
15:10
STARTING ADDRESS(ES)

SRRl

0222220002

]

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

AR
AR
R R
R R R R
AR R AR KRR R AR RA RN RRRRRRRRRRRRR AN KRS

001000

000024
000044

L8X=.

.=24
200
.=b4

000024
000200
000044
001000
001000

;2 SAVE CURRENT LOCATION

;.SET POWER FAIL TO POINT TO START OF PROGRAM
;;FOR APT START UP
;sPOINT TO APT INDIRECT ADDRESS PNTR.

$APTHDR ;;POINT TO APT HEADER BLOCK
LT 8X
;;RESET LOCATION COUNTER

R AR

AR AR R AN A

AR NN R

R AR AR AR R AR AR R R AR R R AR

RN R AR

;SETJP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
JINTERFACE SPEC.
001000
001000
001002
001004
001006
001010
001012

000000
001214
000001
000007

000007
000032

$APTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
$UNITM:

.WORD
.WORD
_WORD
.WORD
_WORD

.WORD

0
SMAJL
1
7
7

..TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
. ADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST
J;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
..ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL

SETEND-$MAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

UNIT

16-SEP-81

;;;g

.SBTTL

(COMMON TAGS

1119

1120

:*THIS

14=-SEP=-81 13:4

}}S;

1123

1124
1125
1126
1127
1128
1129
1130
1131
1132
1123
1134¢
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168

COMMON TAGS

AR AR A AN R AN AR AR

TABLE

J
2
PAGE 23

15:10

T RN AR AN A AR

—

30(1046)

CIR6BD.P11

MACY11

SEQ 0022

AA R R A A AR TR

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

:*USED IN THE PROGRAM.
001100
0G1100
001102
001103
001104
001106
001110
001112
001114
001115
001116
001120
001122
001124
001126
001130
001132
001134
001135
001136
001140
007142
001144
001146
001150
001152
001154
001155
001156
001157
001160
001162
001164
001166
001170
001172
001174
001176
001200
001202
001204
001210
001211
001212

001100

$CMTAG:

000000
000
000
000000
000000
000000
000000
000
001
000000
000000

$TSTNM:
$LRFLG:
$ICNT:
$LPADR:
$LPERR:
$ERTTL:
SITEMB:
$SERMAX:
$ERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

000000
000000
000000
000000
000000
000

$AUTOB:
$INTAG:

000
000000
177570
177570
177560
177562
177564
177566
000
002
012
000

000000
000000
000000
000000
000700
000000
000000
000000
000000
000000
177607
077
015
000012

.=1100
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD

.WORD
.WORD
.WORD
LWORD
.WORD
.BYTE

.BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$TPR:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
$TMP1:
$TMP2:
$TMP3:
$TMP4:
$TMPS:
$TMP6:
$TMP7:

000377

.WORD
.WORD
_WORD
_WORD
.WORD
_WORD
.WORD
_WORD

STIMES: 0
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
LASCII
$LF:
LASCIZ

0
0
0
O
0
0
O
0
1
0
0

0
O
0
0
0
0

0
0
DSWR
DDISP

0
2
12
O
0
O
O
O
O
O
O
O

::START OF

COMMON TAGS

:;CONTAINS THE TEST NUMBER
;:CONTAINS ERROR FLAG
;:CONTAINS SUBTEST ITERATION COUNT
: :CONTAINS SCOPE LOOP ADDRESS
:;CONTAINS SCOPE RETURN FOR ERRORS
:;CONTAINS TOTAL ERRORS DETECTED
::CONTAINS ITEM CONTROL BYTE
;;CONTAINS MAX. ERRORS PER TEST
:;CONTAINS PC OF LAST ERROR INSTRUCTION
:;CONTAINS ADDRESS OF 'GOOD' DATA
:;CONTAINS ADDRESS OF °'BAD' DATA
:;CONTAINS 'GOOD' DATA
:;CONTAINS 'BAD' DATA
:;RESERVED--NOT TO BE USED
::AUTOMATIC MODE
::INTERRUPT MODE

INDICATOR
INDICATOR

:;ADDRESS OF SWITCH REGISTER
:;ADDRESS OF DISPLAY REGISTER
::TTY KBD STATUS
;. TTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
::;CONTAINS NULL CHARACTER FOR FILLS
::CONTAINS # OF FILLER CHARACTERS REQUIRED
;> INSERT FILL CHARS. AFTER A '‘LINE FEED"
;:'TERMINAL AVAILABLE'' FLAG (B]T<07>=0-YES)

: ;USER DEFINED
::USER DEFINED
:;USER DEFINED
:;USER DEFINED
:;USER DEFINED
:;USER DEFINED
:;USER DEFINED
::USER DEFINED
:;MAX. NUMBER OF ITERATIONS
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:CODE FOR BELL
/?/
:;QUESTION MARK
<15
;;CARRIAGE RETURN
2>
::LINE FEED

'-'-tttttttttltttttttttttt'ttttttttttQttttttt’tttttt.tttttttntttttt

;}98

.SBTTL

APT MAILBOX-ETABLE

1171
1172

""ttRtttttfittttittttt'tt'ttt'ttttt.tt"'tt"ttttnttttttn'!ttttttt
.EVEN

“e

CZRO6BDO RK611 DSKLS CTIRL P RTZ

(ZR6BDO RK611
(ZR6BD.P11

DSKLS CTRL PRTZ2
14-SEP-81 13:4°

1173
11764
1175
1176
1177
1178
1179
1180
1181

001214
001214
001216
001220
001222
001224
001226
001230
001232

000000
000000
000000
000000
000000
000000
000000
000000

1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1168
1199
1200
1201

001234
001235
001236
001240
001242

000
000
000000
000000
000000

001244
001245

000
000

001246

000000

1182

1202

001234

001250

000

1203
1204
1205

001251
001252
001254

000
000000
000

1207
1208

001256
001260

000000
000

1210
1211
1212
1213
1214
1215

001262
021264
001266
001270
003272
001274

000000
120210
000000
177440
000000
000000

;S;g

001300

1206
1209

1216

001255
001261

001276

MACY11

30(i046)
14-SEP-81
APT MAILBOX-ETABLE
$MAIL:
$MSGTY:
$FATAL:
$TESTN:
$PASS:
$DEVCT:
SUNIT:
$MSGAD:
$MSGLG:

$ETABLE:

$ENV:
$ENVM:
$SWREG:
$USWR:
$CPUOP:
i
it
Jx
i
i
i*
$MAMS1:
$MTYP1:
i
B
M
J*
$MADR1:
i*

$SMAMS?2:

.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN
APASS
ADEV(T
AUNIT
AMSGAD
AMSGLG

.BYTE
_BYTE
.WORD
.WORD
.WORD

AENV
AENVM
ASWREG
AUSWR
ACPUOP

.BYTE
.BYTE

AMAMS!
AMTYP1

_WORD

AMADR1

.BYTE

AMAMS2

K
2
PAGE 24

SEQ 0023

;s APT MAILBOX
;:MESSAGE TYPE (ODE
;.FATAL ERROR NUMBER
;TEST NUMBER
;;PASS COUNT
;.DEVICE COUNT
;;1/0 UNIT NUMBER
;;MESSAGE ADDRESS
; ;MESSAGE LENGTH

;s APT ENVIRONMENT TABLE

; ENVIRONMENT BYTE
;.ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCHES
;;CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10
BIT 10=REAL TIME CLOCK
BIT
9=FLOATING POINT PROCESSOR
BIT
8=MEMORY MANAGEMENT
;;HIGH ADDRESS,M.S. BYTE
;MEM. TYPE,BLKA1
MEM.TYPE BYTE
=~-~
(HIGH BYTE)
900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003
;;HIGH ADDRESS,BLK#1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF '‘'TYPE'' ABOVE

;;HIGH ADDRESS,M.S. BYTE

SMTYP2:
$MADRZ2:
$MAMS3:

.BYTE
.WORD
.BYTE

AMTYP2
AMADRZ2
AMAMS3

;:MEM.TYPE ,BLK#?2
;;MEM.LAST ADDRESS,BLK#2
;;HIGH ADDRESS,M.S.BYTE

$SMADR3:
$MAMS4:

_WORD
BYTE

AMADR3
AMAMS4

;:MEM.LAST ADDRESS,BLK43
[ HIGH ADDRESS,M.S.BYTE

$MADR4:
$VECT1:
$VECT2:
$BASE:
$DEVM:
$COW1:

.WORD
.WORD
.WORD
.WORD
_WORD
.WORD

AMADR4
AVECT1
AVECT2
ABASE
ADEVM
A(DWI

;;MEM.LAST ADDRESS,BLKA4
;;INTERPUPT VECTOR#1,BUS PRIORITY#1
;;INTERRUPT VECTORA2BUS PRICR]TY#?
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
;;CONTROLLER DESCRIPTION WORDA1

$(DW2:

.WORD

ACDW2

;;CONTROLLER DESCRIPTION WORDA?2

000

SMTYP3:

000

$MTYP4:

000000

15:10

SggET?:
.MEX

_BYTE

AMTYP3

;.MEM.TYPE,BLKA3

AMTYP4L ; MEM.TYPE ,BLKAS

(ZR6BDO RK611 DSKLS CTRL PRTZ2

C(ZR6BD.P11

164-SEP-81 13:47

MACY11

30(1046)

14-SEP-81

ERROR POINTER TABLE

15:10

L 2
PAGE 25

SEQ 0024

1219

.SBTTL

1221

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
J*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

1220

;*LOCATION $ITEMB.

1224

;sNOTE1:

}Ssg

iw
o
ox

]S%?

s *

0013C0
001300
001302
001304
001306

000000
000000
046602
047236

12640
1241
1242
1243
1244
1245
1246
1247

001310
001312
001314
001316

052472
057223
Q46622
047272

001320
001322
001324
001326

052472
057266
046622
047272

1250
1251
1252
1253
1254

001330
001332
007334
001336

052472
057145
046622
047272

1256

001340

001342

052472

057174

1258
1259

001346

047272

1239

1248
1249

1255

1257
1260

001344

007350

052576

001352
001354
001356

057223
046644
047326

1266
1267

001360

001362
001364

052576

1268
1269
1270
1271

1272
1273
1274

001366

;

047326

(052576

001374
001376

046644
047326

THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

$ITEMB IS O THE ONLY PERTINENT DATA IS

(SERRPC).

EACH ITEM IN THE TABLE CONTAINS &4 POINTERS EXPLAINED AS FOLLOWS:
EM
DH
DT

:;POINTS TO THE ERROR MESSAGE
::POINTS TO THE DATA HEADER
::POINTS TO THE DATA

::POINTS

ERROR 1:
0
0
DT001
DF001
ERROR 2.
EM106
EM2003
DT002
DF002
ERROR 3:
EM106
EM2004
DT002
DFO02
ERROR &4:
EM106
EM2001
DT002
DF00?2
ERROR S:

EM106

ATTEMPTING

THE

DATA FORMAT

TO SET CMD BIT DRIVE MESS A

ATTEMPTING A SELECT OF

ATTEMPTING A SELECT

DRIVE

NUM =

CS1

INCORRECT

DRIVE NLM = DRIVE NUM INCORRECT

ATTEMPTING A SELECT OF

DRIVE NUM - MESSAGE

INCORRECT

ATTEMPTING A SELECT OF

DRIVE NUM - MESSAGE 8

INCORRECT

EM2002

DT002
;

DFO02
ERROR 6:

ATTEMPTING A SELECT WITH HEAD ADD =~ CS1

;

EM2003
DT006
DFO06
ERROR 7:

ATTEMPTING A SELECT WITH HEAD ADD - HEAD

057337
046644

001370

001372

$ERRTR:
:
EMIN:

046622

12617
1262
1263
1264

1265

:*NOTE2:

1227
1228
1229

1232
1233
1234
1235
1236
1237
1238

ERROR POINTER TABLE

EM107

INCORRECT

EM2005
DT006

057145

DFC06
ERROR 10: ATTEMPTING A SELECT WITH HEAD ADD - MESSAGE A INCORRECT
EM107
EM2001

DT006
DFOQ6

ERROR

11:

ATTEMPTING A

SELECT

WITH HEAD ADD - MESSAGE

INCORRECT

(ZR6BDO RK611
CZR6BD.P11
1275
1276
1277

1278

1279

1280

001400
001402
001404
001406

001410

DSKLS CTRL PRT2
14-SEP-81 12:47

047326

052673

001412

(057223

1283
1284
1285

001416

047362

001420

052673

1286

1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322

1323
1324
1325
1326

1327

1328
1329

1330

0014146

057404

001430
001432
001434
001436

052675
(057433
046666
047362

001440
001442
001444
001446

052673
(057145
046666
047362

001450
001452
001454
001456

052673
057174
0456666
047362

001460
001462
001464
00466

052773
057223
046714
047416

001470
001472
001474
001476

052773
057067
046714
0474616

001500
001502
001504
001506

052773
(57503
046714
047416

001510
001512
001514
001516

052773
057145
046714
047616

001520

052773

001524

046714

001522
(001526

001530

046666
047362

053046

SEQ 0025

DFO06

ERROR 12:
EM108

ATTEMPTING A SELECT WITH MESS SELECT BITS = (ST

INCORRECT

ATTEMPTING A SELECT WITH MESS SELECT BITS = MR1

INCORRECT

EM2003

DTO12
;

DFO1?2
ERROR 13:
EM108
EM2006

;

057174

046714

M 2
PAGE 26

EM107
EM2002
DT006

046666

001422

001424
001426

30(1046)
14-SEP-81
15:°0
ERROR POINTER TABLE

05257¢
057174
046644

1281

1282

MACY11

DTO12
DFO12
ERROR 14:
EM108
EM2007
DTO12
DFO12
ERROR 15:
EM108
EM2001
DTO12
DFO12
ERROR 16:
EM108
EM20Q2
DT012
DFO12
ERROR 17:
EM109
EM2003
DTO17
DFO17
ERROR 20:
EM109
EM2000
DTO017
DFO17
ERROR 21:
EM109
EM2008
DT017
DFO17
ERROR 22:
EM109
EMc001
DT017

DFO17
ERROR 23:
EM109

ATTEMPTING A SELECT WITH MESS SELECT BITS - MESS SELECT CODE

ATTEMPTING A SELECT WITH MESS SELECT BITS - MESS A

INCORRECT

ATTEMPTING A SCLECT WITH MESS SELECT BITS - MESS B

INCORRECT

ATTEMPTING A SEEK

TO AN RKC6 = (S1

ATTEMPTING A SEEK

TO AN RKQ6 - SEEK BIT

ATTEMPTING A SEEK

TO AN RKO6 - CYLINDER ADD

INCORRECT

ATTEMPTING A SEEK TO AN RK06 - MESSAGE

IN MESS A NOT SET

INCORRECT

IN{ORRECT

ATTEMPTING A SEEK TO AN RKO6 - MESSAGE B

INCORRE(T

EM2002
DT017

;

DT017
ERROR 24:
EM110

ATTEMPTING A SEEK WITH (DT

INCORRECT

SET = (S1

INCORRE(T

IN MESS B

D b,
b =) ad ad ) d D ad —d ) d md d D ) D D D emd ) —d D d D ) d —md D ) Dy

020

N NN (NN NN NN W AN N W
ggwuwwwwwwwwwwwwww
PN NNNNNNNNYNNOOOONO e [o.Yo
Yo Yo NV, IV IV IV LV, LV, TV TV, AN
NN
AN N AN (NN NN N DNNNN
N AN WA CLIWWNWNWIN
QN NN (N g (o]
3w 3 N2 O OO YO NS AW2OV~ £H W2
OOV NGWNH WSO 0V00 VOV
W
2O N0 00 NN NS ANND
O

w1532
001534
06536
001540
001542
001544
001546

DSKLS CTRL PRT?
14-SEP-81 13:47

057223
046714

047416

001570
001572
007574
001576

053046
057174
046714
047476

001600
001602
001604
007606

053123
057223
046736
047452

001610
001612
001614
00616

053123
057554
046736
047452

) od D el e

001620
001622
001624
001626

053123
057145
046736

b o

001630
001632
001634
001636

o el i o) el ) e

047416

001650
001652
001¢54
J016%¢

30(1046)
14-SEP-81
ERROR POINTER TABLE

15:10

PAGE 27

£33 0026

EM2003
DT101?
DFO17
Eg??g 25: ATTEMPTING A SEEK TO AN RKKQ7 - SEEK BIT [N MESS A NOT SET

CYLINDER ADD

001550
001552
001554
001556

001640
001642
001644
001646

MACY11

EM2000
DT017
DFO17
ERROR 26: ATTEMPTING A SEEK WITH (DT SET

001560
001562
001564
001566

B C RK611
.P1)}

047452

INCORRECT

IN MESS B

EM110
EM2008
DT017
DFO17
Eg??g 27:

ATTEMPTING A SEEK WITH (DT SET - MESSAGE A

EM2001
DTO017
DFO17
Eg??g 30:

ATTEMPTING A SEEK WITH CDT SET - MESSAGE B INCORRE(CT

INCORRECT

EM2002
DT017

DFO17
ERROR 31: ATTEMPTING OFFSET
EM111
EM2003
DTO31
DFO31
ERROR 32: ATTEMPTING OFFSET
EMI
EM2009
DTO31

DFO31
ERROR 33:
EMI111
EM2001
DT0O31

ATTEMPTING OFFSET

CST

INCORRECT

OFFSET BITS

MESS A

INCORRECT

DFO31
ERROR 34: ATTEMPTING OFFSET
MESS B INCORRECT
EM111
EM2001
DTC31
DFO31
ERROR 35: ATTEMPTING COMMAND WITH NON-ZERQ (YL ADD AND OFFSET(ST

ERROR 36:
EM112

Em2000

progs

DEGEC
-

INCORRECT

ATTEMPTING (CMMAND w]TH NON-ZERO (YL APD AND OFFSET-

DRIVE

(OMMAND BIT NOT

SET

[M MESS A

CZR68DO RK611 DSKLS CTRL PRT?

rIREBD . PN
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398

1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
—
D e
e
D
D
b
)
D o
b
b
b
ek
d
d
e
) =D
D
e
e
e
— b

Pl
o o EF AP o o 2R 2 ¥ LI
SR
S S SR
R Rl 2l a P Sl SN o3P L3 o W S N
2
D
DD e a2
NN
N WWWWWNOMNONONDI ORIV
NOLW S NWN =200
NO NS WN - OV
NN
NN —

16410

1438
1439
1440
1441
1447

14~-SEP-81

13:47

MACY11

30(1046)

14-SEP~81

ERROR POINTER TABLE

15:10

PAGE 28

SEQ 0027

ERROR 37: ATTEMPTING COMMAND WITH NON-ZERO (YL ADD AND OFFSET-

001660
001662
001664
001666
001670
001672
001674

(001676

053166
057503
046760
047506
053166
057145
046760

047506

0017C0
001702
001704
001706

053166
057174
046760
047506

001710
001712
001714
001716

053321
057223
046666
047362

001720
001722
007724
001726

053321
057404
046666
047362

001730
00732
001734
001736

053321
057067
046666
046666

001740
001742
001744
001746

053321
057433
046666
047362

001750
001752
001754
001756

05332°
057145
046666
047362

001760

053321

001762
001764
001766

057174
046666
047362

EM112

CYLINDER ADDRESS BITS

INCORRECT

IN MESS B

EM2008
DTO35
DFO35
ERROR 40: ATTEMPTING COMMAND WITH NON-ZERO CY!
EM112

MESS

EM2001
DTO35
DFO35

ERROR &41:
EM112

INCORRRECT

ADD AND OFFSET=-

ATTEMPTING COMMAND WITH NON-ZERO (YL ADD AND OFFSET-

MESS B

INCORRECT

EM2002
DTO35
DFO35
ERROR 42: ATTEMPTING COMMAND WITH NON-ZERO MSG SELECT
EM113

CS1

INCORRECT

EM2003
DT012
DFO12
ERROR 43: ATTEMPTING COMMAND WITH NON-ZERO MSG SELECT
EM113

MAINT REG 1

INCORRECT

EM2006
DT012
DFO12
ERROR 44: ATTEMPTING COMMAND WITH NON-ZERO MSG SELECT
EM113

DRIVE

COMMAND BIT

INCORRECT

EM2000
DT012
DT012
’
.
ERROR 45: ATTEMPTING COMMAND wITH NON-ZERQ MSG SELECT
EM113

MESSAGE

SELECT

CODE

IN MESSAGE B

INCORRECT

EM2007
DTO1?2
DFO12
ERROR 46: ATTEMPTING COMMAND WITH NON-ZERO MSG SELECT
EM113

MESS A

INCORRECT

EM2001
DT012
DFO12
ERROR 47: ATTEMPTING COMMAND WITH NON-ZERQO MSG SELE(CT
EM113

MESS B

EM2002
DTO12
DFO12
ERROR 5C:

INCORRECT

ATTEMPTING TO SHIFT DRIVE MESSAGE
SHIFT REG A INCORRE(CT

CZR6BDO RK611 DSKLS CTRL PRT?
14-SEP-81 13:47
CZR6BD.P1T
1443

1644

o oo~ e SRV
IV TV TV TV IV, 1V, |
(S,
P o WA
— OV
N
NI WN) —

oY >

d
) wed
D

053433

057145
047004
047542

1466
1467
1468

1469
1470
1471
1472
1473
16474
1475
1476
1477
1478
1479
1480
1481
1482

1483

1484
1485

1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498

14-SEP-81
30(1046)
ERROR POINTER TABLE

EM114
EM2001
DT050
DFO50
ERROR 51:

002000
002002
002004
002006

053433
057174
047004
047542

EM114

002010
002012
002014
002016

053476
057625

EM115
EM2010
DT052
DFOS2
ERROR 53:

Y
Y

d
ek

LW W

D el
md
RN —_— —_—

S Hae o

1645
1646
16447

001770
001772
001774
00177¢

MACY11

002020
002022
002024
002026

047026
047576

053476
057667
047026
047576

EM2002
DTO50
DFO50
ERROR 52:

EM115
EM2011
DT052
DFOS52
ERROR 54:

002030
002032
002034
002036

053476
057145
047026
047576

EM115
EM2001
DT052
DFO52
ERROR 55:

002040
002042
002044
002046

053476
057174
047026
047576

EM115
EM2002
DT052

002050
002052
002054
002056

053570
057625

EM116
EM2010

DFO52
ERROR 56:

DT052
DFO52
ERROR 57:

002060
002062
002064
002066

EM116
EM2011
DTOS52
DFO52
ERROR 60:

002070
002072
002074
002076

EM116
EM2001
DT052
DFO52
ERROR 61:

002100
002102

EM116
EM2002

15:'0

PAGE 29

ATTEMPTING

SEQ 0028

SHIFT

DRIVE

SHIFT REG B INCORRECT

MESSAGE

ATTEMPTING TO GENERATE ODD PARITY ON SELECT
PARITY ON MESSAGE A INCORRECT

DRIVE MESSAGE

ATTEMPTING
PARITY

ATTEMPTING

MESSAGE

TO GENERATE

ODD PARITY ON SELECT

DRIVE

MESSAGE

TO GENERATE

ODD PARITY ON SELECT DRIVE

MESSAGE

ODD PARITY CN SELECT

MESSAGE

ON MESSAGE

INCORRECT

INCORRLCT

ATTEMPTING TO GENERATE
MESSAGE B INCORRECT

DRIVE

ATTEMPTING TO GENERATE EVEN PARITY ON SELECT
PARITY ON MESSAGE A INCORRECT

DRIVE

MESSAGE

ATTEMPTING

TO GENERATE

EVEN PARITY ON SELECT

DRIVE

MESSAGE

ATTEMPTING TO GENERATE
MESSAGE A INCORRECT

EVEN PARITY ON SELECT

DRIVE

MESSAGE

ATTEMPTING TO GENERATE
MESSAGE B INCORRECT

EVEN PARITY ON SELECT

DRIVE

MESSAGE

PARITY

ON MESSAGE

INCORRECT

CZR6BDO RK611 DSKLS CTRL PRT2
(ZR6BD.P11
14-SEP-81 13:47
1499

002104

1500
1501

002106

1503
1506
1505
1506
1507
1508
1509

002110
002112
002114
002116

1502

002120

04702¢

04757%

053663
057223

053663

002122

057731

1512

002126

047622

1513

1514
1515
1516

002124

053663
057774
047042
047622

1522
1523

002140
002142

054000
060020

1525
1526
1527
1528

002146

047646

1517
1518
1519

1520
1521

1524

1529

1530

1531
1532

1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544

1545
1546
1547
1548
1549

1550
1551
1552

1553
1554

002144

054000

002154
002156

(047066
047646

054000
060200
047076
047672

002170
002172
002174
002176

054000
060300
047076
047672

002200

002206

054000

SEQ 0029

DFO52
ERROR 62:
EM117
EM2003

DT062
DF 062
ERROR 63:

EM117

ATTEMPTING COMPLETE EXECUTION OF DESELECT DRIVE

MAINT MODE - COMMAND AND STATUS REG

INCORRECT.

ATTEMPTING COMPLETE EXECUTION OF DESELECT DRIVE IN
MAINT MODE - COMMAND AND STATUS REG 2 INCORREC(T.

DT062
;

;
:

DF 062

ERROR

64:

EM117
EM2013
DT062
DFO62
ERROR €5:

EM118
EM2014

ATTEMPTING

COMPELTE

MAINT MODE

- ERROR REG.

EXECUTION OF

DESELECT

DRIVE

INCORRECT.

ATTEMPTING COMPLETE EXECUTION OF SELECT DRIVE IN
MAINT MODE - COMMAND AND STATUS REGISTER 1 INCORRECT AT
PHASE ADDRESS &

DT065

;
;
H

DFO65
ERROR 66:
EM118

ATTEMPTING COMPLETE EXECUTION OF SELECT DRIVF IN
MAINT MODE - COMMAND AND STATUS REG 1 INVALID DURING
COMMAND EXECUTION.

EM2015
:
;

:
;
:

;
;

057223
047042
047622

3
PAGE 20

EM2012

060106

002160
002162
002164
002166

002202
002204

047066

002150

002152

047042

002130
002132
002134
002136

DT052

047042
047622

1510

1511

MACY11 30(1046)
14=-SEP-81
15:10
ERROR POINTER TABLE

DT065
DFO65

ERROR 67:
EM118
EM2016
DT067
DF 067
ERROR 70:
EM118
EM2017
DT067
DFO67
ERROR 71:
EM118

ATTEMPTING COMPLETE EXECUTION OF SELECT DRIVE IN
MAINT MODE - MAINTENANCE REG 2 UNEXPECTEDLY (HANGED
DURING COMMAND EXECUTION.

ATTEMPTING COMPLETE EXECUTION_O+ SELECT DRIVE iN
MAINT MODE - MAINTENANCE REG 3 UNEXPECTEDLY CHANGED
DURING COMMAND EXECUTION.

ATTEMPTING COMPLETE EXECUTION OF SELECT DRIVE IN
MAINT MODE - COMMAND AND STATUS REG 1 INCORRELT.

EM2003
DT062
;
:

DF062

ERROR 72:

ATTEMPTING COMPLETE EXECUTION OF SELECT DRIVE IN
MAINT MODE - COMMAND AND STATUS REG. 2 INCORRECT,

00 ~NNNNNNYNYN
o OO0 NONN
S NN —t

)
)
—nh —d —D —d
g
d

|9,] VIV

002224
002226

002230
002232
002234
002236

—

1607
1608
1609

1610

MACY11

14-SEP-81
30(1046)
ERROR POINTER TABLE

054000
05773
047042
047622

EM118
EM20°2
DT062
DF 062
ERROR 73:

054000
057774
047042
047622

EM118
EM2013
DT062
DF 062
ERROR 74&:

054113

002240
002242
002244
002246
002250
002252
002254
002256

054113
057774

NO2cov
002262
002264
002266

054202
057223
047066
047646

047042
047622

D md md

) oD o

IV, IV, IV IV TV 1V, |

[0 2% 0 Yo NV, LV LV 1V, ]

(ZR6BDO RK611 DSKLS CTRL PRT2
CIR6BD.P11
14-SEP-81 13:47

PAGE

SEQ 0030

ATTEMFTING COMPLETE EXECUTION OF SELECT DRIVE
MAINT MODE =~ ERROR REGISTER INCORRECT.

ATTEMPTING EXECUTION OF

DESELECT DRIVE

AT NORMAL

EM119
EM2001
DT062
DF06C
ERROR 75:

ATTEMPTING EXECUTION OF

DESELECT DRIVE

AT NORMAL

EM119
EM2012
DT062
DFO062
ERROR 76:

ATTEMPTING EXECUTION GF

DFSELECT

ATTEMPTING

IN MAINT MODE

EM119
EM2013
DT062
DFO62
ERROR 77:
EmM120
EM2003
DT065
DFO065
ERROR 100:

002270
002272
002274
002276

054276
060400
047112
047716

EM121
EM2018
DT100
DF100
ERROR 101:

00<300

054276
060430
047042
047622

EM121
EM2019
DT062
DF06?2
ERROR 102:

002324

15:10

054276
060513
047042
047622

EM121
EM2020
DT062
DF06?2
ERROR 103:

054276
060576
047042

EM121
EM2021
DT062

SPEED - COMMAND AND STATUS REG.

SPEED -~ ERROR REG

INCORRECT.

TO WRITE

(S?

ATTEMPTING EXECUTION OF

INCORRECT.

2 INCORRE(T.

DRIVE

NORMAL

= (S1

INCORRECT

DRIVE WITH

SET

ATTEMPTING EXECUTION OF DESELECT DRIVE WITH
CS1 INCORRECT AFTER INTERRUPT.

SET

ATTEMPTING EXECUTION OF

SET

ATTEMPTING EXECUTIOM OF DESELECT
DRIVE WITH lE
CT
DRI
ERROR REGISTER IN CORRECT AFTER INTERRUPT

SET

INTERRUPT DID NOT OCCUR.

DESELECT

(S2 INCORRECT AFTER INTERRUPT,

DRIVE

WilTA

(ZR6BDO RK611 DSKLS CTRL PR
164~SEP-81 13:
CIR6BD.P11

U
U U
S W
U S S
S S Gy
—

o ocoooocoocOrOrONONONONMOOONON
n PORALPNVRINVNIONININD)
— = b b b 2 s
O 00 ~NON\N SN
= O V00 NNV SN

002326

1630

002330
002332
002334
002336

002340
002342
002344
002346

047622
054276
060647
047112
047716

054377
057731
047042
047622

MACY11

14-SEP-81
30(1046)
ERROR POINTER TABLE

EM121
EM2022
DT100
DF100
ERROR 105:

ATTEMPTING DESELECT

COMMAND At TER WRITING SILO

EM122
EM2012
DT062
DF{B2
ERROR 106:

ATTEMPTING DESELECT

COMMAND AFTER WRITING SILO

ATTEMPTING COMPLETE

EXECUTION OF

SEEK

IN MAINT

ATTEMPTING COMPLETE

EXECUTION OF

SEEK

IN MAINT MODE

ATTEMPTING COMPLETE

EXECUTION OF

SEEK

IN MAINT MODE

ATTEMPTING COMPLETE

EXECUTION OF

SEEK

IN MAINT MODE

ATTEMPTING COMPLETE

EXFCUTION OF

SEEK

IN MAINT MODE

ATTEMPTING

EXECUTION OF

SEEK

IN MAINT

EM122
EM2023
DT062
DFO62
ERROR 107:

002360
002362
002364
002266

054500
060020
047066
047646

EM123
EM2014
DT065
DFO65
ERROR 110:

EM123

VIV
AT AN

047672

0o NONWN
S 0=

) —D
)
d
e
e
—

(o Yo Jo T o N e Yo No Yoo

054500
060200
047076

1659

002426

002430
002432

DESELECT DRIVE WiTH

INTERRUPT DID NOT CLEAR IN Rk611

TO (HECK GO CLEAR=(CSZ2

SET

INTORRECT

TO CHECK GO CLEAR-DATA LATE
READING SILO

COMMAND AND STATUS REG 1

DID NOT

OCCUR WHEN

MODE

INCORRECT AT PHASE ADDRESS 4

COMMAND AND STATUS REG 1

INVALID DURING COMMAND EXECUTION

EM2015
DT065
DF 065
ERROR 111:

002400

SEQ 0031

ATTEMPTING EXECUTION CF

054377
060710
047042
047622

054500
060106
047066
047646

F
3
PAGE 32

DFO62
ERROR 104:

002350
002352
002354
002356

002370
002372
002374
002376

15:10

EM123
EM2016
DT067
DFO67
ERROR 112:

054500
060300
047076
047672

EM123
EM2017
DT067
DFO67
ERROR 113:

054500

EM123
EM2003
DT062
DF062
ERROR 114:
EM123
EM2012

MAINTENANCE REG 2 UNEXPECTEDLY (HANGED DIJRING COMMAND EXECUTION

MAINTENANCE REG 3 UNEXPECTEDLY (HANGED DURING COMMAND EXE(UTION

COMMAND AND STATUS REG.

COMPLETE

(OMMAND AND STATUS REG.

INCORRE(Y

2 INCORRE(T

MODE

(ZR6BDO RK611
TIR6BD P11

1667

1668

1669

1670
1671

1672
1673
1674
1675

1676

1677

1678

1679

1680
1681
1682
1683
1684
1685
1686

1687

1688
1689
1690

1691
1692
1693

002434
002436

002440
002442
002444
002446
002450
002452
002454
002456
002460
002462
002464
002466
002470
002472
002474
002476

002500

DSKLS CTRL PRT?
14-SEP=81 13:4°

047042
04762¢

054500

057774

047062
047622

054564
057223
046602
047236
054564
057266
046602
047236

NONIND s a b
a
N—=O VNN

=D -

NN NN Y
s a0 o
NN—OO oo

=D =
) i
b e
ad
e
D

NN I NN NN N NN

— e

30(1066)

14=SEP=-81

ERROR POINTER TABLE

DF Q62
ERROR 115:

EM123
EM2013

DT562
DF 062
ERROR 116:

EM124
£EM2003
DT007

DFO01
ERROR 117:

EM124
EM2004
DT001
DFO001
ERROR 120:

054564
060762
046602
047236

EM124
EM2024
DT001
DFOO01
ERROR 121:

054564

EM124
EM2005
DT001
DFO01
ERROR 122:

057337

046602
047236

002526

MACY11

054564
057625
046602
047236

EM124
EM2010
DT001
DFO01
ERROR 123:

054564
057433
046602
047236

EM124
EM2007
DT001
DF001
ERROR 124:

002530
002532
002534
002536

054564
057503
046602
047236

EM124
EM2008
DTOG1
DF001
ERROR 125:

002540
002542
002544
002546

054564
057667
046602
047236

EM124
EM2011
DT001
DFO001

15:10

PAGE

SE3 0032
[

ATTEMPTING

COMPLETE

EXECUTION OF

ATTEMPTING

SELECT

DRIVE

IN MAINT MODE

ATTEMPTING SELECT

DRIVE

IN MAINT MODE

ATTEMPTING

DRIVE

IN MAINT MODE

. ERROR REGISTER INCORRECT

COMMAND AND STATUS REG.

DRIVE

SELECT

CODE

SELECT

COMMAND BiTS

SEEK

IN MAINT MODE

INCORRE(CT

IN MESSAGE

[N MESSAGE

INCORRECT

ATTEMPTING SELECT DRIVE IN MAINT MODE
HEAD ADD CODE IN MESSAGE A INCORRECT

ATTEMPTING SELECT DRIVE IN MAINT
PARITY BIT IN MESSAGE INCORRECT

MODE

ATTEMPTING SELECT DRIVE IN MAINT MODE
MESS SELECT CODE IN MESSAGF IN CORREC(T

ATTEMPTING

SELECT

CYLINDER AND B ITS

DRIVE IN MAINT MQODE
IN MESSAGE IS INCORRECT

ATTEMPTING S 3 LEC T DRIVE IN MAINT MODE
PARITY BIT T 1 IN MESSAGE IS INCORRECT

CZR6BDO RK611 DSKLS CTRL PRT?

CZR6BD.P11

14=~SEP=-81

13:4~

MACY11

30(1046)
14=-SEP-81
ERROR POINTER TABLE

15:10

ERROR 126:

053663

061032

EM117
EM2025
DT062

DF062
ERROR 127:

U S
S
SNUUIS QS S
W
S
QS Y
U
QU SOV

002570
002572
002574
002576
002600
002602
002604
002606

054113
061032
047042
047622
054500
061032
0470642
047622

T
T
Y YN A
S
S N

gO*O*O‘O‘O*

T VAT S
S
N
N

002610
002612

002614

002616
002620
002622
002624
002626

054632
061072
047112
047716
054632
061127
047042
047622

ATTEMPTING EXECUTION OF

SPEED - DRIVE

EM119
EM2025
DT062
DFO62
ERROR 121:

EM123
EM2025
DT062
DF 062
ERROR "32:

DRIVE

ATTEMPTING

DRIVE

STATUS REG

COMPLETE

DESELECT

DRIVE

SEEK

IN MAINT MODE

INCORRECT

EXECUTION OF

STATUS REG INCORRECT

NORMAL

ATTEMPTING

TO FORCE

DRA,SPDLSS,VV,OFST,DRDY
,WwRL

ERROR 133:

ATTEMPTING

TO FORCE

DRA,SPDLSS,VV,OFST,DRDY
,WRL

EM125
EM2027
DT062
DF062
ERROR 134:

ATTEMPTING

TO FORCE

DRA,SPDLSS,VV,OFST,DRDY,WRL

EM125
EM2026
DT100
DF100

CONTROLLER READY DID NOT SET

LOAD STATUS DID NOT LOAD DRIVE

(S1

INCORRECT

STATUS REF

002630
002632
002634
002636

054632
057223
047042
047622

EM125
EM2003
DT062
DF062
ERROR 135:

ATTEMPTING TO FORCE DRA,SPDLSS,VV,OFST,DRDY
,WRL

002640
002642
002644
002646

054632
057731
047042
047622

EM125
EM2012
DT062
DF 062
ERROR 136:

ATTEMPTING

EM125
EM2013
DT062
DF 062
ERROR 137:

ERROR REG.

INCORRECT

ATTEMPTING

TO FORCE

002650
002652
002654
002656

054632
057774
047042
047622

ATTEMPTING EXECUTION OF SELECT DRIVE IN
MAINT MODE - DRIVE STATUS REG INCORRECT

EM118
EM2025
DT062
DFO06?2
ERROR 130:

002564
002566

054000
061032
047042
047622

SEQ 0033

ATTEMPTING COMPLETE EXECUTION OF DESELECT
MAINT MODE -~ DRIVE STATUS REG INCORRECT

W
NNN SNINNNNSNSNNNNSNNSNNNNNSNNYNNNNNYN NNNNNNNNNNNINN
W
S IS 8BS EN S SWwW W W
RO~
[ VIV AWIWNNWNVNNWN
v
000~
VB NN 22OV
N NS W
—2O VOO NN
W -2 OO 0o ~

e g

}

047042
047622

H
3
PAGE 34

(S2 INCORRECT

DRIVE

TO FORCE DRA,SPDLSS,VV,OFST,DRDY,
WL

STATUS REG.

DRA,SPDLSS,VV,OFST,DRDY
Wl

INCORRECT

CZR6BDO RK611 DSKLS CTYRL PRT2
CZR6BD.P1
14~SEP=-B81 13:47
1779

1780

1781
1782
1783

002660

002662

002664
002666

MACY11 30(1046)
14-SEP-B1
15:10
ERROR POINTER TABLE

054632

SEQ 0034

EM125

061032

047042
(047622

3
I
PAGE 35

EM2025
;

DT062
DF 062
ERROR 140:

ATTEMPTING

'O FORCE DRIVE

AVAI_IABLE

CZR6BDO RKk611 DSKLS CTRL PRT?

CIR6BD.PIT
1784
1785

1786
1787
1788

1789
1790
1791
1792
1793
1794
1795

= OO0 NV

OO0 00N

NN W) —

WWNWWINWWWNDNONO
RN
R D
Do

]
I
e
e
R
JP
R
YR JR
Y
s T
e
R
R
e
i
e
N
N
S
R
J

00 00 00 00 0o 00 00 00 00 00 O 00 0o 00 00 0o Co ©o 00 00 OB 0o O ©O 00 00

1796
1797

1837

002670
002672
002674
002676

14-SEP-81

05505
057223
047042
047622

13:47

MACY11

14-SEP-81
30(1046)
ERROR POINTER TABLE

EM126
EM2003
DT062
DF 062
ERROR 141:
EM126
EM2012
DT062
DF062
ERROR 142:

002700
002702
002704
002706
002710
002712
002714
002716

055051
061032
047042
047622

EM126
EM2025
DT06¢
DF062
ERROR 143:

002720
002722
002724
002726

055051
057774
047042
047622

EM126
EM2013
DT062

002730
002732
002734
002736

055116
057223
047042
047622

EM127
EM2003
DT062
DF062

002740
002742
002744
002746

055116
057731
047042
047622

DF 062
ERROR 144:

ERROR 145:
EM127
EM2012
DT062
DF 062

15:10

(S1

PAGE 36

SEQ 0035

INCORRECT

AT.EMPTING

TC FORCE

(S2 iNCORRECT

DRIVE

AVAILABLE

ATTEMPTING 10 FORCE DRIVE AVAILIABLE
DRIVE STATUS REC INCORRECT

ATTEMPTING TO FORCE DRIVE
ERROR REGISTER INCORRECT

AVAIVIABLE

ATTEMPTING

TO FORCE

DRIVE BUS PARITY ERROR DETECTED BY RK611

ATTEMPTING

TO FORCE

DRIVE

(S1

INCORRECT

(S2 INCORRELT

BUS PARITY ERROR DETECTED BY RKk611

ERROR 146:

ATTEMPTING TO FORCE

DRIVE BUS PARITY ERROR DETECTED BY RKk611

EM127
EM2025
DT062
DF 062
ERROR 147:

ATTEMPTING

DRIVE BUS PARITY ERROR DETECTED BY RK611

EM127
EM2013
DT062
DFO62
ERROR 150:

ATTEMPTING TO FORCE

DRIVE

AVAILIABLE

002770
002772
002774
002776

EM128
EM2003
DT062
DF 062
ERROR 151:

ATTEMPTING TO FORCE

DRIVE

AVAILABLE

003000

EM128

002750
002752
002754
002756
002760
002762
002764
002766

DRIVE STATUS REG INCORRECT

ERROR REC

(S1

TO FORCE

INCORRRECT

INCORRECY

(S2 INCORRECT

RESET ERROR

RESET

ERROR

CZR6BDO RK611
(ZR6BD.P1T

W'Y
S
S
QU
WY QUUIY S
Y
Y
Y
U
T SIS QU
S
N
) T QU

00 00 0o 0o 0o 0o 0o 00 00 0o 0o 0o 00 0o 0o 0o 0O 0O 00 00 Co
NOOOOO O~
oo Yo XU, IV, IV, IV AV 1L IV IV TV T
O000 NN N =0V
NOWVNE WO

—_—

NN
WM

——

o
-Te
-]

1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894
1895

NN
—=

OO0
Pl
oo 3V, |

003026
003030
003032
003034
003036

21
C3
04
62

[AS 11,0
P ol

057731
047042
047622

1840
1841
1842
1843
1844

1871

DSKLS CTRL PRT?2
14-SEP-81 13:47

055214
057774
047042
047622

055275
057223
047042
047622

003040
003042
003044
003046
003050
003052
003054
003056
003060
003062
003064
003066
003070
003072
003074
003076
003100
003102
003104
003106

MACY11

EM2012
DT062
DF062
ERROR 152:
EM128
EM2025
DT062
DF 062
ERROR 153:
EM128
EM2013

DT062
DFO62
ERROR 154:

EM129
EM2003
DT062
DFO62
ERROR 155:
EM129
EM2012
DT062
DF 062
ERROR 156:

055275
061032
047042
047622
055275
057774
047042
047622

K
3
PAGE 37

14=-SEP-~81
15:10
30(1046)
ERROR POINTER TABLE

EM129
EM2025
DT062
DF062
ERROR 157:
EM129

EM2013
DT062
DF062
ERROR 160:
EM130
EM2003
DT062
DF062

ERROR 161:

EM130
EM2012
DT062
DF062

ERROR 16¢2.

EM130

EM2025

DT062

SEQ C036

ATTEMPTING

TO FORCE

AVAILABLE

RESET ERROR

ATTEMPTING
ERROR REG.

TO FORCE DRIVE AVAILABLE
INCORRECT

RESET ERROR

DRIVE

STATUS REG.

TESTING

DRIVE

INCORRECT

CDT

SET

DRIVE

TYPE

DETECTION

TESTING CDT

SET

DRIVE

TYPE

DETECTION

TESTING

CDT

SET

DRIVE

TYPE

DETECTION

TESTING

CDT

SET

DRIVE

TYPE

DETECTION

CS1

INCORRECT

CS2 INCORRECT

DRIVE

STATUS REG

INCORRECT

ERROR REG INCORRECT

ATTEMPTING

TO FORCE

DRIVE

TYPE

ERROR ADDRESSING RKO6

ATTEMPTING

TO FORCE

DRIVE

TYPE

ERROR ADDRESSING RK06

ATTEMPTING TO FORCE DRIVE TYPE
DRIVE STATUS REG INCORRECT

ERROR ADDRESSING Rk0Q6

CS1

INCORRECT

(SZ2 INCORRECT

CZR6BDO RK611 DSKLS CTRL PRT?

(ZR6BD.P1
1896

1897
1898
1899
1900
1901

003116

—O
WO CONORWVIES NN = OV

= =
a2
NN NOPOMNONINONONONIN)

e
ed md
D o
)
d
b
D
D et
d
b e
d
b
s ad

003140
003142
003144
003146
w3150
003152
003154
003156

003160
003162
003164
003166
003170
003172
003174
003176
003200
003202

951

003226

13:47

5:10
14-SEP-81
30(1046)
ERROR POINTER TABLE

047622

DFO62
ERROR 163:

055342
057774
047042
047622

EM130
EM2013
DT062
DF062
ERROR 164:

055424
057223
047042
047622
055424
057731
047042
047622

055424
061032
C47042
047622
055424
057774
047042
047622
055511
057223

055511
057731
047042
047622
055511

BN B BN B8 8

0 BN W NN NN N NN

OWOONOWVSWNI=OVO
N NS

ANVES

D
e cemd
)
D
b e
b
D
)
) e md e
h
d e d
b
D
B

O O O O O O OO OO0 000000000

NO O O NOND O O O N0 OO OO OO OO0

003136

14=-SEP-81

MACY11

PAGE

SEQ 0037

ATTEMPTING TO FORCE DRIVE
ERRCR REG INCORRECT

TYPE ERROR ADDRESSING Rx06

ATTEMPTING

ERPOR WITH (TD SET

TO FORCE

DRIVE

TYPE

EM131
EM2003
DT062
DF062
ERROR 165:

ATTEMPTING TO FORCE

DRIVE

TYPE ERROR WITH (DT

EM131
EM2012
DT062
DFO62
ERROR 166:

ATTEMPTING

TO FORCE

DRIVE

TYPE

ERROR WITH (DT SET

EM131
EM2025
DT062
DF062
ERROR 167:

ATTEMPTING

TO FORCE

DRIVE

TYFE

ERROR WITH (DT SET

ATTEMPTING

TO FORCE

SPEED LOSS

DT062
DF062
ERROR 171:

ATTEMPTING

TO FORCE

SPEED LOSS

EM132
EM2012
DT062
DFC62
ERROR 172:

ATTEMPTING

TO FORCE

SPEED

EM132
EM2025
7062
DF062
ERROR 173:

ATTEMPTING

TO FORCE

SPEED LOSS

EM132
EM2013
DT062
DF 062
ERROR 174:

ATTEMPTING

TO FORCE

DRIVE

EM131
EM2013

DT062
DF 062
ERROR 170:

EM132
EM2003

CS1

INCORRECT

(S2 INCORRECT

DRIVE STATUS REG

TNCORRE(CT

ERROR REG INCORRECT

CS1

INCORRECT

(S2 INCORRECT

DRIVE STATUS REG INCORRECT

ERROR REG.

INCORRECT

LOSS

OFF

TRA(K

SET

003240
003242
003244
003246

14-SEP-81

55
22
04
62

PNOPONO

003230
003232
003234
003236

DSKLS CTRL PRT?

OOOO
&£H & onun
NN YWD

(ZR6BDO RK611
(ZR6BD P

055550
057731
047042
047622

003250
003252
003254
003256

055550
061032
047042
047622

003260
003262
003264
003266

055550
057774
047042
047622

13:4°

MACY11

14-SEP-81
30(1046)
ERROR POINTER TABLE

INCORRECT

OFF

TRA(K

EM133
EM2012
DT062
DF 062
ERROR 176:

ATTEMPTING

TO FORCE

DRIVE

OFF

TRACK

ATTEMPTING TO FORCE
ERROR REG INCORRECT

DRIVE

OFF

TRACK

ATTEMPTING

WRITE

LOCK

ERROR

EM133
EM2025

DT062
DFO62
ERROR 177:

EM133
EM2013
DT062
DF 062
ERROR 200:

055614
057731
047042
047622

EM134
EM2012
DT062
DF062
ERROR 202:

055614
061032
047042
047622

EM134
EM2025
DT062
DF062

055614
057774
047042
047622

EM134
EM2013

055661

SEQ 0038

DRIVE

003300

003340

TO FORCE

EM134
EM2003
DT062

055661
057223
0470642
047622

PAGE

ATTEMPTING

055614
057223
047042
047622

003330
003352
003334
003336

(S1

EM133
EM2003
DT062
DFO62
ERROR 175:

003270
003272
Gu3274
003276

00332¢

15:10

DFO62
ERROR 201:

ERROR 203:

(S2 iNCORRECT

DRIVE

(S1

STATUS REG

INCORRE(CTM

TO FORCE

INCORRECT

ATTEMPTING TO FORCE WRITE
(S2 INCORRECT

LOCK ERROR

ATTEMPTING TO FORCE WRITE LOCK ERROR
DRIVE STATUS REG INCORRECT

ATTEMPTING TO FORCE WRITE
ERROR REG INCORRE(CT

LOCK ERROR

DT062
DF062
ERROR 204:

ATTEMPTING

TO FORCE

SEEK

INCOMPLETE

EM135
EM2003
DT06?2
DF 062
ERROR 205:

ATTEMPTING

TO FORCE

SEEK

INCOMPLETE

EM135

(S1

(NCORRE(CT

(S2 INCORRECT

(ZR6BDO RK611
TIR68D.P11T

OOOOOO0O

AONININLNINI
A

003342

DSKLS CTRL PRT?
164-SEP-81 13:47

057731
047042
047622
055661
061032
047042
047622

003360
003362
003364
003366

055661
057774
047042
047622

003370
003372
003374
003376
003400
003402
003404
003406

003410
003412
003414
003416

MACY11

30(1046)
14~SEP-~81
ERROR POINTER TABLE

EM2012
DT062
DF 062
ERROR 206:

PAGE 40

SEQ 0039

TO FORCE

SEEK

INCOMPLETE

DT062
DFO62
ERROR 207:

ATTEMPTING

TO FORCE

SEEK

INCOMPLETE

EM135
EM2013
DT062
DF062
ERROR 210:

ATTEMPTING TO FORCE NON-EXECUTABLE

FUNCTION

ATTEMPTING TO FORCE NON-EXECUTABLE

FUNCTION

ATTEMPTING 10 FORCE NON-EXECUTABLE
DRIVE STATUS REG INCORRECT

FUNCTION

DT062
DF062
ERROR 213:

ATTEMPTING

FUNCTION

EM135
EM2025

DFO062
ERROR 211:

055725
061032
047042
047622

ATTEMPTING

EM136
EM2003
DT062

047042
047622

15:10

EM136
EM2012
DT062
DF 062
ERROR 212:

EM136
EM2025

DRIVE

STATUS REG

INCORRECT

ERROR REG INCORRECT

CS1

INCORRECT

(S2 INCORRECT

ERROR REG

TO FROCE NON-EXECUTABLE

INCORRECT

003420
003422
0C3424
003426

055725
057774
047042
047622

EM136
EM2013
DT062
DF062
ERROR 214:

AT TEMPTING TO FORCE AC LOW AND (=D PARITY ERROR

003430
003432
003434
003436

056001
057223
047042
047622

EM137
EM2003
DT062
DF062
ERROR 215:

ATTEMPTING

003440
003442
003444
003446

00345¢
003452
0C3e5¢4

056001
057731
0670642
047622
0S¢0
0603,
06704,

EM137
EM2012
D1062

DF 06?2
ERRJR 216:

Er37

Em028
[7oel

(S1

INCORRECT

TO FORCE

(S2 INCORRECT

LOW AND

(=D BARITY ERROR

ATTEMPTING TO FORCE AC [Ow AND (=D PAR[TY
Ohiot STATUS REG INCORRECT

ERKOR

2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
2082
2083

2084

003456

047622

003460
003462
003464
003466

056001
057774
047042
047622

003470
003472
003474
003476

056061
057223
047042
047622

003500
003502
003504
003506

056061
057731
047042
047622

2085
2086
2087
2088
2089

003510
003512
003514
003516

2091
2092
2093
2094
2095

003520
003522
003524
003526

056061
057774
047042
047622

2097
2098
2099
2150
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
2115
2116
2117
2118

003530
003532
003534
003536

056171
057223
047126
047756

003540
003542
003544
003546

056171
057731
047126
047756

003550
003552
003554
003556

056171
061032
047126
047756

003560
003562
003564
003566

056171
057774
047126
047756

2090

2096

2119

056061
061032
047042
047622

YACY11 30(1046)
14-SEP-81
15:10
ERROR POINTER TABLE
:
:

:
;

;
:

DF 062
ERROR 217:
EM137
EM2013
DT062
DFO62
ERROR 220:
EM138
EM2003
DT062
DF062
ERROR 221:

;

EM138
EM2012
DT062
DFO62
ERROR 222:

EM138
EM2025
DT062
DF062
ERROR 223:

;

:
;

.
;

;
:

;

EM138
EM2013
DT062
DF062
ERROR 224:
EM139
EM2003
DT224
DF224
ERROR 225:
EM139
EM2012
DT224
DF 224
ERROR 226:
EM139
EM2025
DT224
DF224
ERROR 227:
EM139
EM2013
DT224
DF 224

ERROR 230:

PAGE 41

SEQ 0040

ATTEMPTING TO FORCE AC LOW AND (=D PARITY ERROR
ERRCR REG INCORRECT

ATTEMPTING TO FORCE ILLEGAL
CS1 INCORRECT

DISK ADDRESS ERROR (DRIVE)

ATTEMPTING TO FORCE ILLEGAL DISK ADDRESS ERROR (DRIVE)
(S2 INCORRECT

ATTEMPTING TO FORCE
DRIVE

STATUS REG

ILLEGAL DISK ADDRRESS ERROR (DRIVE)

INCORRECT

ATTEMPTING TO FORCE ILLEGAL CISK ADDRESS ERROR (DRIVE)
ERROR REG INCORRECT

ATTERMPTING TO CLEAR RK611 WITH A CONTROLLER CLEAR
CS1 INCORRE(T

ATTERMPTING TO CLEAR RK611 WITH A CONTROLLER CLEAR
CS2 INCORRECT

ATTERMPTING TO CLEAR RKE"1 WITH A CONTROLLER CLEAR
DRIVE STATUS REG INCORRECT

ATTERMPTING TO CLEAR RK611 WITH A CONTROLLER CLEAR
ERROR REG INCORRECT

TESTING ILLEGAL DISK ADDRESS ERROR LOGIC IN Rké1i

(ZR6BDO RK611 DSKLS CTRL PRT2
TIR6BD.P1T
1o=SEP=-81 13:47

6BDO RK611
68D.P11

121
122
123
126

125
126
127

128

129
130
131
132
133
134
135

136

137
138

139

140
141
142
143
144

145

003570
003572
003574
003576
Q02600

003602

003604
003606

003610
003612
003614

003616

003620

003622
003624
003626

003630

DSKLS CTRL PRT2
14=-SEP=-81 13:47
056253
(57223
047162
050012
056253

047162
050012

056253
061032
047162

050012

056335

151
152
153
154
155
156
157
158
159
160

003640
003642
003644
003646

056335
057731
047042
047622

162
163

003656

056335
061032
047042

003660

056335

057774
047042
047622

169
170
171
172

003670
003072
003674
003676

056411
057223
047042
047622

0C3700

056411

173

174

‘75

.
.

;

ERROR 231:
EM140

DT230
DF230
ERROR 232:

EM140
EM2025
DT230
DF230

ERROR 233:

EM140

;

N
:

;

003662
003664
003666

EM140
EM2003
DT230
DF230

15:10

(SI

&
C
PAGE 42

SEQ 0041

INCORRECT

TESTING ILLEGAL DISK ADDRESS ERROR LOGIC
(S2 INCORRECT

IN Rké611

TESTING ILLEGAL DISK ADDRESS ERROR LOGIC
DRIVE STATUS REG INCORRE(T

IN RKkA11

TESTING ILLEGAL DISK ADDRESS ERROR LOGIC
tRROR REGISTER

IN RKo611

EM2012

047622

164
165
166

167
68

;

056253

057223
047042
047622

161

;

057774
047162
050012

003632
003634
003636

0GC3650
003652
003654

30(1046)
14-SEP-81
ERROR POINTER TABLE

057731

146
147
148
149

150

WMACY11

;

.
.

EM2013
pT230
DF230
ERROR 234:

EM141
EM2003
DT062
DFO62
ERROR 235:
EM141
EM2012
DT062
DF062
ERROR 236:

EM141
EM2025
DT062

DFO62
ERROR 237:

EM141

EM2013
DT062
DF062

ERROR 240.

EM142
EM2003
DT062
DF 062

ERROR 241:
EMI14?2

ATTEMPTING
(S1

TO RECEIVE NON-STANDARD MESSAGES

INCORRECT

ATTEMPTING TO RECEIVE
(S2 INCORRECT

NON-STANDARD MESSAGES

ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES
DRIVE

STATUS REG.

ATTEMPTING

ERROR REG.

INCORRECT

TO RECEIVE

INCORRECT

NON-STANDARD MtSSAGES

ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES WITH
BAD PARITY = (S1 INCORRECT

ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES W!TH

BAD PARITY - (S2 INCORREC(T

(IR6BDO RK611 DSKLS CTRL PRT?
14-SEP-81 13:47
CZR68BD.PYY

d
o
d
B
D
D
h
e
oD
d
D _h md med
d oed ek
D

003726

4
D
PAGE 43

SEG C042

EM2012
DT062
DF 062
ERROR 242: ATTEMPTING TO RECEIVE NON~STANDARD MESSAGES WITH

056411
061032
067042
047622

EM142
EM2025
H*06¢
DF 062
ERROR 243: ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES WITH

056411
05777«
0647042
047622

EM14c
EM2013
DT062
DF062
ERROR 244: ATTEMPTING TO FORCE NON-EXISTENT DRIVE

056507
057223
047042

EM143
EM2003
DT062
DFO62
ERROR 245: ATTEMPTING TO FORCE NON~EXISTENT DRIVE
(S2 INCORRECT
EM143
EM2012
DT062
DF 062
ERROR 246: ATTEMPTING TG FORCE NON-EXISTENT DRIVE

003730
003732
003734
003736

047622

003749
003742
003744
003746

056507
057731
047042
047622

003750
003752
003754
003756

14-SEP-81
15:10
30(1046)
ERROR POINTER TABLE

057731
047042
047622

VolVeXVoXVo RV RVoRVo RV 0 X0 -To - Yo Yo :Jo -To o Jo -To .o Y5 ]
NOWVNES WA= OVO NN WN
O

[A91aN1aN 1, N1,V N1 G1aVIaU I U1, U1 N1, W1,C 1,V 1,U1,01,$1, V)

003702

MACY11

056507
061032
047042
047622

003760
003762
002764
003766

056507
057774
047042
047622

003770
003772
003774
003776

056602
057223
047042
047622

004000
004002
004004
004006

056602
057731
047042
047622

056602
061032
047042

BAD PARITY = DRIVE

STATUS REG.

BAD PAR]TY = ERRCR ERRCR

(S1

INCORRECT

INCOMPLETE

INCORRECT

DRIVE

STATUS REG INCORRE(T

EM143
EM2025
DT062
DFO62
ERROR 247: ATTEM +]JinG TO FOUCE NON-EX]ISTENT DRIVE
ERROR “EG IN'ORREC(T

EM143
EM2013
DT062
DF062
ERROR 250: ATTEMPTING TO FORCE NON-EXISTENT DRIVE
(S1 INCORRE(T

(DRIVE

BUS

TIMEOUT)

(DRIVE

BUS

TIMEOUT)

(DRIVE

BUS

TIMEGUT)

(DRIVE BUS

TIMEOUT)

(NO

SA(CK)

(NO

SACK)

EMI144
EM2003
DT062

DFO62
ERROR 251: ATTEMPTING TO FORCE NON-EXISTENT DRIVE
(S2 INCORRE(CT
44
EM1
EM2012
DT062
DF062
ERROR 252: ATTEMPTING TO FORCE NON-EXISTENT DRIVE
EM144
EM2025
DT062

DRIVE STATUS REG INCORRECT

(NO SA(K)

(ZR6BDO Rk611 DSKLS CTRL PRT2

TIR6BD.P11

004016
004020
004022
004024
004026

14-SEP-81

047422

13:4°

MACY11

30(71046)

14-SEP-81

ERROR POINTER TABLE

15:10

PAGE 44

SEQ (043

DF 062
ERROR 253: ATYEMPTING TO FORCE NON-EXISTEN" DRIVE
ERROR REG INCORRECT

(NO

SA(K)

056602

EM144
EM2013
DT062
DF 062
ERROR 254: ATTEMPTING EXECUTION OF DESFLECT DPIVE WITH IE RESET

057774
047062
047622

UNEXPECTED INTERRUPT OCCURRED

004030
004032
004034
004036

056663

061202
047112
047716

EM145
EM2028
pT100
DF100
FRROR 255: ATTEMPTING EXECUTION FO DESELECT DRIVE WITH IE RESET

004040
004042
004044
004046

056663
061240
047112
047716

EM145
£EM2029
DT100
DF100
ERROR 256:

004050
004052
004054
004056

056750
057223
047214
050046

EM146
EM2003
DT256
DF 256
ERRQR 257:

004060
004062
004064

004066

056750
057774
047214
050046

EM146
EM2013
D1256

004070
004072
004074
004076

057022
057223
047214
050046

004100
004102
004104

057022
057774
047214
050046
052950
050322
046576
047232

DF256
ERROR 260:
EM14?7
EM2003

INTERRUPT OCCURRED WHEN INTERRUPT ENABLE

ATTEMPTING

CS1

TO EXECUTE AN ILLEGAL

INCORRECT

SET

FUNCTION

ATTEMPTING TO EXECUTE AN ILLEGAL FUNCTION
ERROR REG INCORRECT

ATTEMPTING

TO CLEAR

ILLEGAL

FUNCTION - (S1

INCORRECT

ATTEMPTING

TO CLEAR

JLLEGAL

FUNCTION = ERROR REG

DT256

DF 256
ERROR 261:
EM147

EM2013
DT256
DF256
ERROR 262:
EMOOO
DHO00C
DTO00

DFO00

UNEXPECTED MEMORY PAR]TY ERROR TRAP

INCORRECT

(IR6BOC RKE'1 DSKLS CIRL PRT2

"ZR6BD.P11

'4=SEP=81 13:47

SS;g

WAZVY11

30(1046)

14=SEP-81

15:'0

PAGE 45

TEMPORARY STORAGE FOR RK611 [ONTROLLER REGISTER
.SBTTL

TEMPORARY STORAGE FOR RK611

SEQ 0044

(ONTROLLER REGISTER

2280
228"
2282
2283
2284

004120
004122
004124
004126
004130

000000
000000
000000
000000
000000

T.(S1:
T.w(:
T.BA:
T.DA;
7.(S2:

.WORD
.WORD
WORD
.WORD
.WwORD

0
0
0
0
0

;CONTROL AND STATUS REGISTER 1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS RFGISTER 2

gsgg

004156

000000

T.SPAR:

.WORD

;SPARE REGISTER

2285
2286
2287
2288
2289
2290
2291
2292
2293
2294

004132
004134
004136
004140
004142
004144
004146
004150
004152
004154

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

Sggg
2299
2300
2301
2302
23G3
2304
2305
2306
2307
2308
2309
231u
2311
2312
2313
S;}é

004160
004162
004164
004166
004170
004172
004174
004176
004200
004202
004204
904206
004210
004212
004214
004216

000000
000000
000000
000000
000000
000000
000000
000000
0C0000
000000
000000
000000
000000
000000
000000
000000

S%;g
2318

2319
2320
2321
2322
323

004220

00«222
004224
004226
004230
004232

000000

000000
000000
000000
000000
000000

T.DS:
T.ER:
T.ASOf:
T.DCYL:
T.DB:
T.MR1:
T.MR2:
T.MR3:
T.ECPS:
T.ECPT:

.WORD
.WORD
.WORD
.WORD
LWORD
_WwORD
_WORD
_WORD
.WORD
.WORD

0
0
0
O
0
0
0
0
0
0

LSBTTL

EXPECTED RK611

£E.CS1:
E.WC:
E.BA:
E.DA:
E.CS2:
E.DS:
E.ER:
E.ASOF:
E.DCYL:
E.DB:
E.MR1:
E.MR2:
E.MR3:
E.ECPS:
E.ECPT:
E.SPAR:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_.WwORD
.WORD
.WORD
.WORD
.WwORD
.WORD

ORTTL

PREvIOUS RKE11

P..71:

_WORD

P.CS2:
P.DS:
P.ER:
U.MRZ2:
U.MR3:

.WORD
.WORD
.WORD
_WORD
_WORD

O
0
0
0
0
0
0
0
O
0
O
O
O
O
0
O

0
0
0

;DRIVE STATUS REGISTEP
JERROR REGISTER
JATTENTION SUMMARY AND OFFSET REGISTER
sDESIRED CYLINDER REGISTER
;DATA BUFFER
JMAINTENANCE REGISTER 1
JMAINTENANCE REGISTER 2
;MAINTENANCE REGISTER 3
JECC POSITION INFORMATION
JECC PATTERN NFORMAT]ON

CONTROLLER REGISTERS
;CONTROL AND STATUS REGISTER 1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
JDESIRED TRACK SECTOR REGISTER
;CONTROL AND STATUS REGISTER 2
;DRIVE STATUS REGISTER
sERROR REGISTER
JATTCNTION SUMMARY AND OFFSET REGISTER
JDESIRED CYLINDER REGISTER
;DATA BUFFER
;MAINTENANCE REGISTER 1
JMAINTENANCE REGISTER ¢
JMAINTENANCE REGISTER 3
JECC POSITION INFORMATION
SECC PATTERN INFORMAT]ON
;SPARE REGISTER

(ONTROLLER REGISTERS
JPREVIOUS COMMAND AND

STATUS REG

JPREVIOUS (OMMAMT AND STATUS KEG 2
;PREVIOUS DRIVE STATUS REG
sPREVIOUS ERROR REG
JUNSHIFTED MAINTENANCE REG 2
JUNSHIFTED MAINTENANCE REG 3

TIR6BUO RKGTT

"IR&8D ., P

DSKLS

CTRL

T4=S5EP=87

g;gg
2

2326
2327
2328

2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2360
2361
2342
2363
2364
¢365

PRT2

13:4

MACY1Y

30(1046)

164=SEP-B1

15:10

PROGRAMTM DEF INED VARJABLES

PAGE

.SBTTL

PROGRAM DEF iNED VARIABLES

00423%
004&23%
004240

000210
000240
000000

RKVEC:
RKPR]:
SRTFLG:

.wORD
.WCORD
.WORD

210
PRS
O

004242
0046244
004246
004250
004252
034254
004256
004260
004262
004264
004266
004270
004272
004274

000000
Q00000
000000
Q00000
000000
000060
000000
000000
000015
000144
(00000
000000
000000
000000

ERRCNT:
DRVCOD:
MsGCOD:
HDCODE:
CYLIN:
OFFVAL:
SFTCNT:
PARBIT:
WAITIM:
STALL:
DRYTYP:
ILLFUN:
TRAPP(:
SAVSWR:

.WORD
.WORD
.WORD

0
0
0
0
0
0
O
0
15
100.
0
0
0
0

.WORD
L.WORD
WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.WORD
.WORD

:RKE&11 VECTOR
;RK611 PRIOR]ITY
ISTART FLAG
;
0 =200
.
1 =214
;=1 = 204
JERROR COUNT FOR SWIT{H 12 AKORT
;DRIVE SELECT CODE
JMESSAGE ScLECT CODE

JHEAD SELECT CODE
JCYLINDER ADD VALUE
;OFFSET VALUE
ISHIFT COUNT FOR DR]VE MESSAGE SHIFTING
JPARITY BIT FOR SHIFT
JWAITING FOR DESELECT COMMAND
JSTALL TIME FOR MESSAGE TIME OUT (NED)
;DRIVE TYPE INDICATOR
JILLEGAL FUNCTION CODE
;ADDRESS OF TRAP FROM MEMORY (HECK
JSAVED SWITCH REG FOR POWER FAIL

SEs (045

CIR6BDD RK61T
"IR6BD.P1Y

DSKLS CTRL PRT2
T4=SEP=81 13:47

MACY1T

g%:;
2348
g%ég

30(10466)
14=SEP=-81
PROGRAM SETuP

15:10

.SBTTL

PROGRAM SETUP

H
4
PAGE 47

SEa (04t

004276
004304

012737
000406

000001

004240

PARM:

MOV
B8R

#1,SRTFLG
START1

sLOAD START FLAG FOR PARMETER START

2351
S%g%

004306
004314

012737
000402

177777

004240

RESTRT: MOV
BR

#-1,SRTFLG
START1

sLOAD START FLAG FOR RESTART

2354
2355
2356
2357
2358
S%gg

004316
004322
004324
004330
004334
004340

005037
000005
012706
012746
012746
000002

004240

START:
(LR
START1: RESET
MOV
mMov
MOV
RTI

SRTFLG

;CLEAR START FLAG
JRESET THE WHOLE SYSTEM
JINITIALIZE STACK POINTER
JLOAD STACK TO LOCK OUT ALL
;LOAD START OF PROGRAM
;LOAD PSW

2361
2362
2363
2364
2365
2366
2367
2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379
2380
2381
2382
2383
2384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
Sggg

004342

004502
004506
004514
004522
004530
004536

(13746
012737
012737
012737

00454C
004542
004545
004550
004596
004564

000403
012716
000002
012737
012737
012637

000176
000174
000004

2600
2-01

(004570
004574

005037
132737

001222
000200

001160
000340
004342

004342
004346
004350
004354
004356

012706
005026
022706
001374
012706

001100

004362
004370
004376
004404
004412
004420
004426
004434
004442
004450

012737
012737
012737
012737
012737
012737
012757
012737
013737
005037

042512
000340
043516
000340
046506
000340
0463546
000340
042204
001200

004454
004460
004466
004«74

005037
112737
012737
012737

022777
001012

(01140

001100

0012C°
000001
006466
004474

000004
004542
177570
177570

177777

000020
900022
000030
000032
000034
000036
000024
000026
042°75
001115
001106
001110

000004
001140
001142
174402

004550

001140
001142

001235

#STACK,SP
#PR7 ,-(SP)
#1$,-(5P)

INTERRUPTS

18:
LS8ITL
INITIALIZE THE COMMON TAGS
;s CLEAR THE COMMON TAGS ($CMTAG) AREA
MOV
#SCMTAG,R6
;sFIRST LOCATION TO BE CLEARED
CLR
(R6) +
s CLEAR MEMORY LOCATION
(MP
#SWR,R6 ;;DONE?
BNE
.<6
;;LOOP BACK IF NO
Mov
#STACK,SP
;sSETUP THE STACK POINTER
;o INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,a#I0TVEC .;]OT VECTOR FOR SCOPE ROUTINE
MOV
#340,a#]0TVEC+2 ;;LEVEL 7
MOv
#S$ERROR ,@#EMTVEC ;.EMT VECTOR FOR ERROR ROUTINE
MOV
#340 INEMTVEC+2 ;;LEVEL 7
Mov
#$TRAP ,@#TRAPVEC ;;TRAP VECTOR FOR TRAP (ALLS
MOV
#340,3# TRAPVEC+2;LEVEL 7
MOV
#$PWRDN ,a#PWRVE(C ;;POWER FAILURE VECTOR
MOV
#340,3#PWRVEC+2 . LEVEL 7
MOV
SENDCT,$EOPCT
;. SETUP END=-OF -PROGRAM COUNTER
CLR
$TIMES
;o INITIALIZE NUMBER OF ITERATIONS
(LR
$ESCAPE
;. CLEAR THE ESCAPE ON ERROR ADDRESS
MOvA
#1,SERMAX
;;ALLOW ONE ERROR PER TEST
MOV
#.,SLPADR
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
MoV
#.,SLPERR
.. SETUP THE ERROR LOOP ADDRESS
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT [S
;;EQUAL 70 A "'-1'", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
S#ERRVEC,-(SP)
;;SAVE ERROR VECTOR
MOV
#64S ,NERRVEC
;;SET UP ERROR VECTOR
MOv
#DSWR,SWR
;.SETUP FOR A HARDWARE SWICH REGISTER
MOV
#DDISP,DISPLAY
;;AND A HARDWARE DISPLAY REGISTER
(MP
#-1,3SWR
::TRY TO REFERENCE HARDWARE SWR
BNE
66%
;;BRANCH IF NO TIMEOUT TRAP O7CURRLC
;;AND
THE HARDWARE SWR IS NOT = -1
BR
65%
;;BRANCH [F NO TIMEQUT
648
MOV
#6358, (SP)
;;SET UP FOR TRAP RETURN
RTI
65%:
MOV
#SWREG, SWR
;;POINT TO SOFTWARE SWR
MOV
#DISPREG,DISPLAY
668%:
MOV
(SP)+ ,3#ERRVEC
;;RESTORE ERROR VECTOR
(LR
BITB

$PASS
#APTSIZE ,$ENVM

5 CLEAR PASS CQUNT
;.TEST USER SIZE UNDER APT

(ZR6BDO Rx611 DSKLS CTRL PRT?
14-SEP-81 13:47
~IR68D.P11
2402

2403
2604
2605
2406

2407
2408
2409
2610
2611
2412
24613

2614
2615
2416
2h17
2418
2419
2420
2421
24622
2423
2424
2425
24626
2427
2428
2429
24630
24631

2632
2433
2434
2435
2436
2437
2438
2439

2440
2441
24642
2443
2444

004602
004604
004612
004612

001403
012737

001236

005037

004242

004616
004622
004624
006632
0046634

005227
001055
022737
001451

177777

10440

004702

004640
004644
004646
004654
00465€
004664
004666
004670
004672
004700
004700

005737
061012

000042

004756
004756
004764
004766
004772
004776
005000
005004
005006
005012
005014
005022
005024
005032
005036
005042

001406

023727
601005

2446
2447

000403
112737

LSBTTL

001140

000176

000001

022737
001122
104401

013746
104402
1044C1
1046412

000001

001134

004240

050072
00127¢C

160000

001160

013737

001160
050127
001264

001270

013746
042716
104402
104401

CLR

ERRCNT

;CLEAR ERROR (OUNT FOR SWIT(H 12 ABORT

TYPE PROGRAM NAME

THE

INC
BNE
(MP
BEQ

NAME

TYPE

TST

BNE
(MPB
8EQ
(MP
BNE
GTSWR
8R

001160

017777
001160
050157

01264
001264

10%:

THE

PROGRAM

L0698

ans?

708
. #1
SENV
708
SWR,#SWREG
71%
718

FIRST PASS

JoFIRST TIME?
;sBRANCH IF NO

JACT=17?

s cBRANCH IF YES
;o TYPE ASCIZ STRING

SWITCH REGISTER
. 2ARE

RUNNING UNDER

;;ARE

RUNNING UNDER APT”

;;BRANCH [F

;sBRANCH IF
;2SOFTWARE

XXDP/ACT?

YES

SWITTH REG SELECTED?

;c;BRANCH IF NO

J:GET SOFT-SWR SETTINGS

MNVR

#1,8A_T08

;. SET AUTO-MODE

BR
LASCI2

68%

;;GET OVER THE ASCIZ

(me
BNt

#1,SRTFLG
15¢
.OPR0OO1

;CHECK IF PARAMETER START
;NO, CONTINUE SETUP

TYPE
MOV

$BASE ,-(SP)
,OPROO?2
(SP)+,$TMPO

#160000,$TMPO

MOV

$TMPO, $BASE

MOV

SVECT1,-(SP)

TYPE

INDICATOR

<CRLF>/RK611 DISKLESS DIAGNOSTIC: PART 2 CZR6BDO/<(RLF>

(MP

MOV

001000

”-1
68%
#SENDAD ,a#s?
68%

GET VALUE FOR SOFTWARE

TYPO(
TYPE
RDOCT

001160

SE3 (047

2 YES,USE NON-APT SWIT(H
;sNO,USE APT SWIT(H REGISTER

BIC

050121

67%

BHI

160000

COMMON TAGS

PAGE 48

#$SWREG,
SWR

BEQ

7%:

15:10

MOV

TYPOC
TYPE
RDOCT
MOV

001160

104401

::69%:
6£8%:
5%:

012637
001407
022737
101361

708
:
71%:

050121

001265

005130

67%:

000042

000001

THE

BEQ

;. TYPE

001234

14~SEP-81

INITIALIZE

LSBTT,

030426

101757

00512

001140

30(1046)

104406

1064412
012637
001412
022737

24645

2448
2449
2450
2451
2452
2453
2454
2455
24656
2457

123727

062340

MACY11

,OPRO0O3

;TYPE "RK611

BUS ADDRESS

JUHECK

JCHECK IF

(

)

<(R>

IN 1/0 PAGE

;LOAD NEW BUS ADDRESS
;TYPE

"RK611

VECTOR ADDRESS

#160000, (SP)
,OPR002

(SP)+,$TMPO

JGET VALUE

108
#1000,8TMPO
7%
#7777 ,8VECT
$TMPQ,SVE(CT

;CHECK [F <CR>
sCHECK [F LEGAL

(LR
MOVB
4ASR

-(SP)
SVECT1+1,(SP)
(SP)

sMAKE ROOM ON THE STACK

ASR
ASR
ASR

)

JGET VALUE

BEQ
CMP
BLOS
BIC
BIS
TYPE

(

;. SAVE $BASE FOR TYPEOUT
;.60 TYPE-=-OCTAL ASCII(ALL DIGITS)

,OPRO04

(SP)
(SP)
(SP)

;LOAD NEW VECTOR ADDRESS
JTYPE

*Rr 11

PRIORITY

JSHIFT 5 BITS RIGHT

()

-**

CZROBDD RK611 DSKLS CTRL PRT2
14=SEP=81 13:4°
C(ZR68D.P11

2478
2479
2480
2481
2482

005254
005260
005264
0Cs270

2464

2665
2466
2467
24L68

2469
2470
2671
2672
2473
2674

o677

00621¢
104400

(e OO0
—=0O =
o QOOONON)
OO OO = PO
WA NN LN AN =N N
NN N NN £ NN
NN N NN NN NW NO

2475
2476

005132
005134
005136
005142
005144
005150
005152
005160
005162
005170
005172
605176
005202
005206
005212
005216
005224
005232
005240

2458
2459
2460
2661
2462
2463

007160

000007

001160

000004

001160

001160
001160
001169
001160
001160
160000

001265

000002

TYPOC
TYPE
RDOCT
Mov

050121

160000

004737
012746
012746

042360
000340
005272

BEQ
(MP
8LO
(mp

8H]

ASL
ASL
ASL

001264
001265
004234
004234
004236

14-SEP-81
30(1046)
15:10
PAGE 49
GET VALUE FOR SOFTWARE SWITCH REGISTER

ASR

001160
001264

005246

MACY11

15%:

NEWPAS:

ASL
ASL
BIC
BISB
MOV
BIC
MOVBR

JSR

MOV
MOV
kT]

SEQ 0048

(SP,

.0OPR0O0O?2
(SP)+,$TMPO
15%
#7,8TMPQ
108

sGET VALUE
sCHECK FOR DEFAULT
sCHECK [F LEGAL

#6,$TMPO

103

$TMP(Q
$TMPQ

S TMPO
$TMPO
s$TMR
#160000,8vECT

141
$TMPO,SVECT

$VECT,RKVEC
#160000,RKVE(

JSHIFT S BITS LEFT

;STORE NEW PRIORITY
JSTORE RK611

VECTOR

$VECT1+1,RKPR]

;STORE RK611

PRIORITY

P(.,(HKPAR
#PR7 ,-(SP)

sCHECK FOR MEMORY (HECK ENARLE
LOCK OUT INTERRUPTS

aT1ST1,=(SP?

(ZROBDD RK611 DSKLS CTRL PRT?

TIR6BD.P

14=-SEP=81

13:4"

MACY1Y

30(1046)
14-SEP-81
'5:°0
«*DRIVE MESSAGE LOADING

2483
2484

.SBTTL

2486
2487
2488

SeTEST 1

2485

(I IV VRV LV L RV, [V, TV, IV, |
A
b b b
b b )
b d =

NO N WN—O

roRUrORLNLRLRNDPL
PO NN

SEG (049

0,0

0
%

%
%
%

Sivi
.

FIRST

(OMMAND

IN MAINT

MODE

INITIALIZE RK511 WITH CONTROLLER CLEAR. PUT (7WTROLLER

MODE. ISSUE SELECT DRIVE. WAIT AND MAKE SURE rS' REMAINS
THE SAME. (LOCK IN MESSAGES A AND B. MAKE SURL
(ORRECT MSG AKE LOADED. CHECKING IS DONE A FleLD AT A
TIME.

005370
005374
005402
005410
005412
005414

005422
005430
005436
005444
005450
005454
005462
005464
005466

OO
md a2 D

';."t."'.il'!'ht."""tt"l'..Q..."t"t"t't.'.'.'t.'.Q".'Q.

005272
005274
005302
005306
005314
005322
005330
005334
005336
005340
005346
005354
005362
005364
005366

000144
001270

100000

000040
000001
000015

000000
000001
004160

001200

?ST?:

000000
000026
000000
1%:

004120
004160
004120

DEC
BNE

(MP
BEQ

ERROR
BR

000503
012700

SCOPE

MoV
MOV
MOV
MOV
MOV
MV

MOV
MOV

000016
000440
010040

000000
000034
000036
000001
004206
004210
004160

000026

2%:
$%:

0046120
004146
0046150
004160

000017

004146

007760

004146

5%:

070000

004146

100000

004146

7%:

$BASE ,RZ

;.D0

100.

ITERATIONS

;LOAD RK611 BASE

#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(RZ)
;PUT RK611 IN DiAGNOSTI( MODE
#SELDRV ,RKCS1(R2)
;LOAD CS) wivm SELECT

;65,R0

JWAIT FOR READY TO SET

18
RKCST1(R2),T.CS1
#SELDRV,E.CST

;STORE COMMAND AND
sLOAD EXPECT (S1

sNO,

E.CS1,T7.CS?
77

TST?

JCHECK IF
;CS1

CS1 CHANGED

INCORRECT

;.60 ON TO NEXT

TEST

MOV
MOV
MOV
MOV

RKCT1(R2),T7.CS1

;STORE

COMMAND AND

#SELDRV,E.CST

;LOAD EXPECTED (S1

E.CS1,7.CST
43
116

;CHECK COMMAND AND STATUS REG.
JYES, CHECK MESSAGES A & B
;CS1 INCORRECT

#17,T.MR?

;CHECK

117
77760,7.MR2

JMESSAGE SELECT BITS NOT ZERC
;CHECK IF COMMAND BITS ZERO

BIT
BEQ
ERRCR
BIT
BEQ
ERROR

RKMR2(R2) ,T.MR2 ;<"ORE MAINT REG.
RKMR3(R2),T.MR? ;STORE MAINT REG.

E.MR?
E.MR3

TST?

;LOAD EXPECTED MAINT REG.
JCAD EXFLCTED MAINT REG.

DRIVE

JYES,

CONTINUE

121

;VES,

CONTINUE

SELECT BITS ZERO

;YES,

#BIT115,T.MR?
8$

2
3

.60 ON TO NEXT TEST

BIT

BEQ

STATUS REG.

; COMMAND BITS NOT ZERO

#70000, T.MR?

BEQ
ERROR

¢
3

120

8IT

CONTINUE

IN DRIVE MESSAGE

DRIVE

STATUS RFG.

#3x4+2 RO
:CLOCK
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)

(LR
CLR
CMP
BEQ
ERROR
BR

004120

#100.,8TIMES

MOV
MOv
MoV

DEC
BNE

N AN AN NN N N ANIND D
OO NN
NN = OO0

ST N1, 0 1, ST, N1, N1, ¥1,¥1,8}

WALV

24N

MESSAGE

PAGE

':.l.".'.."'Q..""Qt'"'Q"'t.tt.'tt.'."t't'.'.l'.".Q.'Qt"'

2489
2490

2492
2493
2494
2495
2496
2497
2498
2499
2500
2501

++DRIVE

;CHECK

HEAD

CONTINUE

SELECT BITS ZERD

JHEAD SELECT NOT

ZERQ

JsCHECK PARITY BIT ON MESS A ZtRC
JYES, CONTINUE

CORRECT

VMACY11

3?%1046)

000017

004150

8%:

077760

004150

9%:

100000

004150

:
108

CZR6BDO RK611 DSKLS CTRL PRT2
005536
005540
005546
005550
005552
005560
005562
005564
005572
005574

13:47

FIRST

15:1C

COMMAND

ERROR

PAGE

BEQ
ERROR

BIT

JPARITY ON MESS A NOT ZERO

"
123
#77760,7.MR3

;YES, CONTINUE
JMESSAGE SELECT BITS NOT ZERO
JCHECK CYLINDER ADDRESS BUFFER

108
124
#BiT15,T_MR3

BEQ
ERROR

8IT

TST2

REQ
ERROR

SEQ 0050

122

817,71 .MR3

BIT

[N MAINT MODE

125

sCHECK MESS SELECT BITS ZERO

;YES, CONTINUE
;CYLINDER ADD BITS NOT ZERD
;CHECK PARITY BIT ON MESSAGE B

;.YES,

GO ON TO NEXT

JPARITY ON MESS.

TEST

B NOT ZERO

':t'*t'.Q't'it'tit!i.t"'t't'ltltfit..'.tt.t'.fi.i't'..'tt't'tt.tQ'

;*TEST 2

SELECT BITS LOADING FOR DRIVE MESS.

e Ss v, 0, n, 0w,

DRIVE

INJTIALIZE RK61" WwITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOST]C MODE.
LOAD COMMAND AND STATUS REGISTER 2 WiTH
ZERO.
LOAD COMMAND AND STATUS REGISTER WITH A SELECT
COMMAND.

MAKE

SURE

SELECT

CLOCK

IN MESSAGES A AND B INTO SHIFT REGISTER.

CORRECT MESSAGES ARE
1-17.

LOADED.

REPEAT

FOR DRIVE

QN NN N NNV
S B 0 0 S
OV
WNINAWNN) 2O 000 O NS

PONIAL AL NPV
PO NI N AN NI NN
(YAl ANV IV IV W, RV RV RV [V, AV LV RO LV RV, LV LV, ]

2539

14~-SEP-81
—OO=O0OO0—=OO
=
OOWOOWOOWD
Pty
Qut Y Pur? Y 4
SN
NS
PO NN DANNI
O NN
NN
D
W= NN

(ZR6BD.P11

164-SEP-81

'.'fi"tfittttttt*'fifitttt"ittttttttttttttt*tttittttittt'ttitt.tt.t'

005576
005600
005606
005612
005616
005624

000004

005632
005632
005640
005646
005654

001200

100000

000000
000C26
000010
000000

000040
004244
000001
000016
000440
000040

005662
005666

005674
005702
005704
005706
005714
005722
005730
005736
005742
005750
005752
005754
005762

005764
005772
006200
006006
006010

000144
001270
004244
000001
005632

000000
000034
000036
004244
004210
004160

1512:

(LR

004160
001110

000026
000026

MOv
MoV

1%:

2%:

104003

0046146

177760

004244

MOV
MOV
MOV
MOV
MOV
MOV
MOV

DEC
BNE
MoV

004120
004146
004150
004206

MOV
MOV
MOV

(LR
cMP
BEQ
ERROR

004120

10C000

013737
042737
023737
001402

SCOPE

MOV
MOV

MOV

B8R

MOV

BI(
(MP
BEQ
ERROR

#100. ,8TIMES

$BASE ,R2
DRV(COD
#SELDRV,E.CS1T
#1% ,SLPERR

#CCLR,RKCS1(RZ2)
#DMD ,RKMR1(R2)

DRVCOD ,RKCS2(R2)

;:D0

100.

ITERATIONS

;LOAD RK611 BASE
JINITIALIZE DRIVE SELECT (ODE
JLOAD EXPECTED (S
;LOAD

;

LOOP ON ERROR LOCATION FOR

SUBTEST LOOP

;CLEAR RK611
;PUT RK611 IN DIAGNOSTIC MODE

;LOAD DRIVE NUMBER

#SELDRV,RKCST(R2) ;LOAD SELECT CIMMAND
#3%4+2 RO
:CLOCK IN DRIVE MESSAGE
#DMD MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R?2)
RO

2%
RKCS1(R2),7.CS1

;STORE COMMAND AND STATUS REG.
RKMR2(R2) ,T.MR2 ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3

DRV(CQD,E .MR?2
E.MR3

JLOAD EXPECTED MAINT REG. 2
JLOAD EXPECTED MAINT REG. 3

#CCLR,RKCS1(R2)

;CLEAN UP FOR NEXT

T.MR2,$TMPQ

JMASK BITS MOT UNDER TEST

DRV(COD,$TMPO

JCHECK JF DRIVE SELECT BITS CCRRE(CT

:DKIVE SELECT BITS INCORRE.T

E.CST1,T.CST
35

25%

#177760,8TMPQ

JCHECK IF CS1 CORRECT
JYES, C(HECK MESSAGE A&B

CONFIGURATIO\

;CHECK IF LOOP ON ERROR

JYES,

CHECK MESSAGES AEB

CZR6BDO RK6'1 DSKLS CTRL PRTQ
14~SEP<81 13:47
(ZR6BD.PY
000412

006014
006022
006024
006026
006034
00€036
006040
006042
006046
006054

023737
001401
104004

004206

023737
001401

00410

005237
022737

004244
000017

104005
104415

103266

004146

6%:

004150

5%:

25%:
004624¢

M
4
164-SEP-81
15:10
PAGE 52
DRIVE SELECT BITS LOADING FOR DRIVE MESS.

25%

;CHECK IF LOOP ON ERROR

(MP

E.MR2,T.MR?

sCHECK

ERROR

JMESSAGE

BtQ

25%

JYES, CHECK IF LOOP ON ERROR

DRV(OD
#17 ,DRVCOD

JCHECK IF LOOP ON ERROR
s INCREMENT DRIVE SELECT "ODE
JCHECK IF fINISHED

BEQ

(MP

F"\0R

>(0P1
INC
(mMp

E.MR3,T.MR3
5

SeTEST 3

IF MESSAGE A CORRECT

JYES, CHECK MESSAGE B
;CHECK

RAR SRR

;NO,

INCORRECT

IF MESSAGE B CORRE(T

;MESSAGE B

':tlttt'ttttttt AR

SEQ (051

BHIS

PR
IR YR }

2600
2601

006012

3?51046)

INCORRECT

TRY NEXT CONFIGURATION

RRRRRREd

022222280

FORMAT BIT LOADING TO FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.

PUT CONTROLLER IN

DIAGNOSTIC MODE.
LOAD COMMAND AMD STATUS REGISTER 1 WITH
A SELECT COMMAND AND 24 SECTOR MODE FORMAT.
MAKE SURE
CORRECT MESSAGE IS LOADED.

2595
2596
2597
2598
2599

MACYN

I
006056
006060
006066
006072
006100
006106
000114
00612¢
006130
006134
006142
006150
006152
006154
006162
006170
006176
006204
006210
00¢216
006220
006226
006230
006236

000144
001270

052115

100000

006240
006246
006250
006256
006260
006262
006270
006272

023737
001404
012737

001200

TST3:

201300
000000

000040
010001
010001
010016
000440
000040

000026
000000

000000
000034
000036
001000
004210
004160

004120
004146
004150
004206

057223

001302

100000

000000

001000

004146

057067

001302

004160

000026

000C26

1$:

004140

057145

0013C2

#100.,8TIMES
:.D0 100. ITERATIONS
$BASE ,R?
;LOAD RK611 BASE
#EM100,EMIN
;LOAD ERROR MESSAGE
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK6'1 IN MAINTENANCE MODE
#CFMT!SELDRV,RKCST(R2)
;LOAD CFMT!SELDRV INTO COMMAND AND STATUS REG.
#CFMT!SELDRV,E.CS1
;LOAD EXPECT (S1
#3+442 RO
:CLOCK IN DRIVE MESSAGES
#DMD !MCLK ,RKMR1
(R?)
#DMD ,RKMR1(R2)
RO

MOV
MoV

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2(R2) ,T.MR2 ;STORE MAINT REG. 2

BNE

MOV
MOV
(LR
(MP
BEQ

004120

004206

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MoV
MOV«
MOV
DEC

2%:

3%:

?gXOR

RKMR3(R2",T.MR3
#S.FMT E.MR2
E.MR3
E.CST,T.CST
2%

qEM2003.EM1N’2

;STORF MA ;N7 REG. 3
;LOAD EXPECTED MAINT REG.
JLOAD EXPECTED MAINT REG.
;CHECK IF CS1 CORRECT
JYES, CHECK MESSAGE A&B

MOv
BR

#CCLR,RKCST1(R2)
TSTé

;CLEAN UP FOR NEXT TEST
;.60 ON TO NEXT TEST

8IT

#S.FMT T _MR?

JCHECK IF

MOv
ERROR
8R

#EM2000,EMINe2
1
TSTé

;LOAD ERROR MESSAGE

5:G0 ON TO MEXT

(me
BEQ

E.MR2,T.MR?
‘8

JCHECK 1F DRIVE MESSAGE A CORRE(”
LYES, CHECK MESS>AGE B

BNE

MOV

#EM2001 ,EMINe2

;LOAD ERROR MESSAGE

S.FMT SET

IN M_SSAGE

;YES, CHECK MESSAGES Afb

TEST

;LCAD ERROR MESSAGE

MACY11

30.1046)
13

&
N
PAGE 53
FORMAT BIT LOADING TO FOR DRIVE MESS.

004210

004150

ERROR
CMP

1
E.MR3,".MR?

CHECK IF DRIVE MESSAGE ? CORRECT

057174

001302

?gXOR

1&"2002,EH1N’2

LOAD ERROR MESSAGE

(ZR6BDO RK611 DSKLS CTRL PRT?
CZR6BD.P1
(~SEP-81 13:4°

2670
2671
2672
2673
2674
2675
2676
2677
2678
2679
2680
26
268c
2683
2684
2685

104007
023737
001404
012737
104001

TST4

;YES,

SES 0052

GO ON TO NEXT

TES

SELECT BITS LOADING FOR DRIVE MELS.

HEAD

CLEAR RK611 WITH CONTROLLER (LEAR.

DIAGNOSTIC MODE.

000004
012737
013702
005037
012737
012737

006356
006356
006364
000372
006374
006402
0066406

012762
012762
005046
113766
012662
012762

006414
006420
006426

012700
012762
012762

2700
2701
g{g%

006530
006532
006540

006520
006526

006542

006550
006556

023737
001405

000144
001270
004250
000001
006356

004160
001110

100000
000040

000000
000026

004250
010006
000001

000001

000016
000440
100040

000000
000034
000036
004206
004250
004206
004206
004206
004206
004210

001200

10000C

000000

013737

004146

001160
01160

103777
004206

®»

¢
%

TST4:

001160

REPEAT FOR TRACK ADDRESS = 1-7.

SCOPE
MOV
MOV
CIR

#100. ,$TIMES
$BASE ,R?
HDCODE

;.D0 100. ITERAT.ONS
;LOAD RK611 BASE
sCLEAR HEAD SELECT CODE

MOV

#1%,$_PERR

;LOAD LOOP ON ERROR LOCATION FOR

MOV

1%:

#CCLR,RKCST1(RZ)
#DMD ,RKMR1(R2)

MOvVB

HDCODE, 1(SP)

(LR

2%:

-(SP)

sLOAD EXPECTED (CS1
s

SUBTEST LOOP

;CLEAR RK611
;PUT RK611 IN DJAGNOSTIC MODE
;MAKE ROOM ON STA(CK

sLOAD HEAD ADDRESS

MoV
MOV
MOV
MOV
MOV
DEC

(SP) + ,RKDA{R2)
#SELDRV ,RKCS1(R2) ;LOAD SELECT COMMAND
#3%4+2 RO
:CIOCK IN DRIVE MESSAGE
#DMD 'MCLK ,RKMR1(RZ2.
#DMD ,RKMR1 (R2)
RO

MOV
Mov
MOV

RKCS1( RSV, T.CS 1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3

,STORE COMMMAND AND STATUS REG.
;STORE MAINT REG. 2
;STORE MAINT REG. 3

MOVB
ASL

HPCODE ,E.MR2+1
E.MR?

;GENERATE

ASL
ASL

£.MRQ
E.MR?2

CMP
8EQ
ERROR
MOV

£.CS1,7.CS1
38
6
#CCLR,RKCSTAR2)

BNE

CLR

(LR

3s:

#SELDRV,E.CS1T

MOv
MCv

ASL

104006
012762
000426

IS LOADED.

AA2 LA
iRt
RRRRRRRRR R A

004207

004120

04&c737
023737

MESSAGE

004120
004146
004150

004160

LOAD

LOAD CGMMAAND

AND STATUS REGISTER WITH SELECT COMMAND.
(CLOCK IN
MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE CORRECT

000000
000026
000026

PUT (ONTROLLER IN

LOAD TRACK ADDRESS WITH ZERO.

COMMAND AND STATUS REGISTER 2 WITHY ZERO.

006322
006324
006332
006336
006342
006350

005300
001370
(16237
016237
016237
005037
113737
006337
006337
006337
006337
005037

crvS
2706

006434
006436
006440
006446
(06454
006462
000466
006474
006500
006504
006510
Q06514

2706

15:10

CrARRRRRRNNRNRNRNFIAAARANCR
AR ORARERAER AN AR
AAARCEACANNA R AR AR OO
ETS

2686
2587
2688
2689
2690
2691
2692
2693
2694
2695
2696
2697

2698
2699

BEQ

-TEST

2665
2666
2667
2668
2669

006300
006302
006310
006312
006320

2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664

14-SEP=-81

MOV

E.MR?

EXPECTED MAINT REG.

E.MR2

£.MR3

;LOAD EXPECTED MAINT REG.

258

SCHECK |F LOOP ON ERROR

1.%R2 §TMPO

;MASK BITS NOT UNDER TEST

£.MR7,$TMp°

SOHEC)

825357, 87mp)

“CHECK IF (ST CORRECT
LYES, CHECK MESSAGE ALB
;CLEAN UP FOR NEXT

CONFIGURATION

IF WEAD SELECT B]'S

_RK{

C2R6BDO RK611T DSKLS CYRL PRT2
TIR6BD.P11
14-SEP-81 13:47
2707
2708
5;98

006564
006566
006570

001402
104007
000412

2711
2712
2713
2714
2715
2716
2717
2718
2719
S;S?

006572
006600
006602
Q06604
006612
006614
006616
006620
006624
006632

023737
001401
104010
023737
001401
104011
104415
005237
022737
103251

MACY11

B 5
30(1046)
14-SEP-81
15:10 PAGE 54
T4
HEAD SELECT BITS LOADING FOR DRIVE MESS.

004206

004146

4$:

004210

004150

5%:

004250
000007

;
25%:

(004250

SEQ 0053

BEQ
ERROR
BR

48
7
25%

JYES, CHECK MESSAGES A&B
JHEAD SELECT BITS INCORREe(T
;CHECK IF LOOP ON ERROR

(MP
BEQ
ERROR
CMP
REQ
ERROR
SCOP1
INC
CMP
BHIS

E.MR2,T.MR?
5%
10
E.MR3,T.MR3
25%
11

sCHECK IF MESSAGE A CORRECT
JYES, CHECK MESSAGE B
JMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRECT
JYES, CHECK IF LOOP ON ERROR
sMESSAGE B INCORRECT
;CHECK IF LOOP ON ERROR
s INCREMENT HEAD SELECT CODE F
sCHECK IF FINISHED
sNO, TRY NEXT CONFIGURATION

HDCODE
#7 ,HDCODE
1%

2722

""ttt*ttt'tt'tt'Qt*t'ti"'t"l’*t**Qtttittt*tttttttttttt'ttfitttitt

5;52

J*TEST 5

MESSAGE

SELECT BITS LOADING FOR DRIVE MESS.

* &

2725
2726
2727
2728
s;%g

2731
2732
2r33
2734
2735
2736
2737
2738
2739
2740
2741
2742
27643
2744
2745
2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
2761

276¢

*
*
*
*
*
006634
006636
006644
000650
006654
006662

000004
012737
013702
005037
012737
012737

006670
006670
006676
006704
006712
006720
006724
006732
006740
006742
006744
006752
006760
006766
006774
007002

012762
013762
052762
012762
012700
052762
042762
005300
001370
016237
016237
016237
016237
013737
052737

007010
007016
007020
007026
007032
007040

007046

032737
001403
052737
005037
013737

023737

001405

000144
001270
004246
000001
096670

001200

100000
004246
000040
000001
000016
000400
000400

000000
000026
000026
000000

000000
000026
000034
000036
004246
002040
020000

004120
004144
004146
004150
0046204
004204
004144

020000
004206
004246

004204

004160

004160
001110

000026
000026

004210

004120

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MOD. AND ZERO IN MESSAGE SELECT BITS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SELECT COMMAND.
(LOCK
IN MESSAGE A AND B INTO SHIFT REGISTER.
MAKE SURE
CORRECT MESSAGE IS LOADED.
REPEAT FOR MESSAGE SELECT = 1-17.

:’"tk*ttt*fitttttti*tttti*tttt*tt*ttfi*tit*tittttt*ttttttttttttttttt
TST5:
SCOPE
MOv
#100. ,$TIMES
;.D0 100. ITERATIONS
Mov
$BASE ,R2
JLOAD RK611 BASE
CLR
MSGCOD
sINITIALIZE MESSAGE SELECT
MOV
#SELDRV,E.CST
;LOAD EXFECTED (S1
Mov
#1%,8LPERR
;LOAD LOOP ON ERROR LOCATION FOR
;
SUBTEST LOOP
1%:

2%:

10%:

MOV
MOv
BIS
MOV
MOV
BIS
BIC
DEC
BNE
MOV
MOV
Mov
MOV
MOV
BIS

BIT
BEQ
BIS
(LR
MOV

(MP

BEQ

#CCLR,RKCS1(R2) ;CLEAR RK611
MSGCOD ,RKMR1(R2) ;LOAD MESSAGE SELECT BITS
#DMD ,RKMR1(R2)
;PUT RK611 IN DIAGNOSTIC MODE
#SELDRV RKCS1(R2) ;LOAD SELECT COMMAND
#3x4+2 RO
;CLOCK IF DRIVE MESSAGE
AMCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)
RO
2%
RKCST(R2),T7.(S1 ;STORE COMMAND AND STATUS REG.
RKMR1(R2),T.MR1 ;STORE MAINTENANCE REG. 1
RKMR2(R2) ,T.MR2 ;STORE MAINTENANCE REG. 2
RKMR3(R2),T.MR3 ;STORE MAINTENANCE REG. 3
MSGCOD,E .MR1
JLOAD EXPECTED MAINT REG. 1
#MEWD
! DMD ,E .MR1

HECCW,T.MR1
10%
#ECCW,E.MR1
E.MR2
MSGCOD ,E .MR3

;LOAD EXPECTED MAINT REG. 2
JLOAD EXPECTED MAINT REG. 3

JYES,

E.CS1,T.CST

;CHECK IF

CS1

CORRECT

CHECK MAINT REG.

CIR6BDO RK611 DSKLS CTRL PRT?2
CIR6BD.P11
14-SEP=-81 13:47

MACY11

2763
2764
5;22

007050
007052
007060

104012
012762
000437

100000

000000

2767

007062

023737

004204

004144

2769
2770
S;;;

007072
007074
067102

104013
012762
000426

100000

000C00

004150
177760
004246

00116C
001160
001160

2768

007070

001405

2773
2774
2775
2776

007104
007112
007120
007126

013737
0642737
023737
001402

S;;g

007132

000412

007134
007142
007144
007146

023737
0014601
104015
023737

2777

2780
2781
2782
2783

2784
2785
2786
2787
2788
S;gg

007130

007154
007156
007160
007162
007166
007174

5
cC
30(1046)
14~-SEP-81
15:10 PAGE 55
TS
MESSAGE SELECT BITS LOADING FOR DRIVE MESS.
ERROR
MOV
BR
3%:

(MP

104014

001401
104016
104415
005237
022737
103235

004146

5%:

004210

004150

68%:

004246
000017

004246
IR

5;3%

J*TEST 6

2794
2795
2796
2797

o
.
ot
S
o

007176
007200

000004
012737

000144

001200

2804
2805
2806
2807

007212
007220
007226
007234

012737
012737
012737
012737

052203
000005
000400
007242

001300
004160
004206
001110

007242
007242
007250
007256
007264
007270
007276
007304
007306

012762
012762
013762
012700
012762
012762
005300
001370

100000
000040
004160
000016
000440
000040

000000
000026
000000

2813
2814
2815
2816
2817
2818

T.MR3,$TMPO
#177760,$TMPO
MSGCOD,$TMPO
5%

JMASK BITS NOT UNDER TEST

25%

cmpP

E.MR2,T.MR?
6%
15
E.MR3,T.MR3

R AR AN

25
16

MSGCOD
#17 ,MSGCOD
1%

AR RN A R A

T E

JYES, CHECK MESSAGE A&B

JCHECK ]F MESSAGE SELECT CODE CORRECT
JYES, CHECK MESSAGES A&B
JMESSAGE

SELECT CODE

INCORRECT

JCHECK JF MESSAGE A CORRECT
JYES, (HECK MESSAGE B
JMESSAGE A INCORRECT
JCHECK ]F MESSAGE B CORRECT

JYES, CHECK IF LOOP ON ERROR
JMESSAGE B INCORRECT
JCHECK IF LOOP ON ERROR
s INCREMENT MESSAGE SELECT CODE
JCHECK [F FINISHED

;NO,

N AR R RN R AR AN

TRY NEXT CONFIGURATION
A AR AR AR AN N R AR AR R AR

RN RS

CLEAR "®IVE COMMAND LOADING FOR DRIVE MESS
CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD (OMMAND AND STATUS REGISTER 1 WITH
A DRIVE (LEAR.
(LOCK MESSAGE A AND B INTO SHIFT REGISTERS.
MAKE SURE SHIFT REGJSTERS ARE LOADED CORRECTLY.
REPEAT
FOR 24

SECTOR

FORMAT.

. ¥

2800
2801
2802

2808
2809
2870
2811
2812

1 CORRECT

MOV
BI(
CMP
BEQ

S;gg

2803

JCHECK IF MAINT REG.

;MR1 INCORRECT
,CLEAN UP FOR NEXT (OHFIGURATION
;CHECK IF LOOP ON ERROR

BHIS

2791

E.MR1,T.MR1

13
#CCLR,RKCST(R2)
25%

BEQ
ERROR
(MP
BEQ
ERROR
SCoP1
INC
(MP

25%:

;CST INCORRECT
;CLEAN UP FOR NEXT (ONFIGURAT]ON
JCHECK IF LOOP ON ERROR

ERROR

004206

12
#CCLR,RKCST(R2)
25%

BEQ

ERROR
MOV
BR
4%:

SEQ (054

007206

013702

001270

000026
000026

:-;t*'ttttttlttttttttt't'Qtttttttttttttttttttttttttttttttttttttttt
TST6:
SCOPE
[ [0)%
#100.,8TIMES
;:D0 100. ITERATIONS
MOV

1%:

2%:

$BASE ,R?

;LOAD RK611

;LOAD
JLOAD
JLOAD
;LOAD

BASE

MOV
MOV
MOV
MOV

#EM101,EMIN
#CLEAR,E.CST
#S.CLR,E.MR?2
#1% ,SLPERR

MOV
MOV
MOV
MOV
MOV
MOV
DEC
BNE

#CCLR,RKCS1(R2) ;(LEAR RK611
#DMD ,RKMRT(R2)
.PUT RK611 [N MAINTENANCE MODE
E.CST,RKCST1(R2) ;LOAD CLEAR INTO COMMAND AND STATUS REG.
#3+4+2 RO
;CLOCK IN DPIVE MESSAGE
#DMD !MCLK ,RKMR1
(R2)
#DMD ,RKMR1(R2)
RO
2%

;

ERROR MESSAGE
EXPECTED COMMAND AND STATUS REG.
EXPECTED MAINT. REG. 2
LOOP ON ERROR LOCATION FOR

SUBTEST LOOP

CZR6BDD RK611 DSKLS CTRL PRT?

007410
007412
007420
007422
007424
007432
007434
007442
007444
007452
007454
007462
007464
007466
007474
007476
007504
007512

OB
N =2 WO o
S NO NSO o
(WO O N~ WA NN W
NNV
NO NN ~
WROW
NNN
WNWW
NNN

007366
007374
007402

CO—-"000000 (e]

007364

000000
000034
000036
004210
004160

004146

AP
X
]

007310
007316
007324
007332
007336
007344
007346
007354
007356

13:47

OO0

001404
012737
104001
104415

032737
001007
052737
052737
000653

057223

001302

100000

00C000

176377

004206

001160
001160
001160

057067

001302

00420¢

004146

057145

001302

004210

004150

057174

001302

010000

004160

010000
001000

0046160
00476

CLEAR DRIVE

Té

004120
006146
004150
004120

14-SEP-81

30(1046)

4%:

PAGE

SEQ 0055

COMMAND LOADING FOR DRIVE MESS

RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2{(R2),T.MR2 ;STORE MAINTENANCE REG. 2
RKMR3(RZ),T.MR3 ;STORE MAINTENANCE REG. 3

E.MR3
E.CST1,T.C
3%
7EM2003.EH1N*2

JSTORE EXPECTED MAINT REG.
JCHECK IF CS1 CORRECT
JYES, CHECK MESSAGE A&B
;LOAD ERROR MESSAGE

MOV

#CCLR,RKCST(R2)

;CLEAN UP FOR NEXT CONFIGURATION

T.MR2,$TMPQ

JMASK BITS NOT UNDER TEST

BEQ
?g;OR

R#AC<S.FMT.S.CLR>,$TMPO
JCHECK TF S.CLR AND FORMAT
E.MR2,$TMPO
BITS IN MESSAGE CORRECT
;
3
JYES, CHECK MESSAGE AgB
:EM?OOO.EH1N*2
;LOAD ERROR MESSAGE

25%

;CHECK IF LOOP ON ERROR

(MP
8EQ
QQXOR

E.MR2,T.MR?
5%
:EM2001.EM1N*2

sCHECK IF DRIVE MESSAGE A (ORRE(T
;YES, CHECK MESSAGE B
:LOAD ERROR MESSAGE

BEQ
?g;OR

(MP

E.MR3,T.MR3
25%
qEM2002.5M1N+2

sYES, CHECK IF LCOP ON EROR
;LOAD ERROR MESSAGE

SCOP1
BIT
BNE
BIS
BIS
8R

#CFMT E.CST
TST7
#CFMT ,E.CST
#S.FMTE.MR?
1%

BR
3%:

15:10

MOV
MOV
MOV

(LR
cMP
BEQ
?g;on

MOV

8I1C
(MP

5%:

2>s:

25%

JCHECK IF LOOP ON ERROR

;CHECK IF DRIVE MESSAGE B CORRECT

sCHECK IF
;CHECK IF
;. YES, GO
;INDICATE

LOOP ON ERROR
ISSUED IN 24 SECTOR FORMAT
ON TO NEXT TEST
COMMAND IN 24 SECTOR FORMAT

;REISSUE

IN 24 SECTOR FORMAT

;'ttl*'tQQt.tttt*Qfittt't't'tttt'ilfitt'tfittttiit'tttittt't't't'Q"

»
P

LRTEST 7

2819
2820
2821

14~SEP=-81

Q=00
QO —=O
O
o~ oS
~ny OWO
o = NWV

TIR6BD.P1Y

MACY1?

UNLOAD COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER iN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 WITH

AN UNLOAD COMMAND.
CLOCK IN MESSAGES A AND B INTO SHIFT
REGISTERS.
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.
REPEAT FOR 24 SECTOR FORMAT.

007514
00751€
007524
007530
007536
007544
007552

000144
001270
052252
000007
002000
007560

001200

007560
007560

100000

000000

15717:

IS EAALESRSRE0RRRARARSARRERARRsRdRRlRSRRRRRRRRRRSRERRARER
A

SCOPE
MOV

#100.,°TIMES

;:DO

MOV

NEM102,EMIN

"LOAD ERROR MESSAGE

MOV
MOV

#S.UNLD,E.MR2
#18,SLPERR

;LOAD EXPECTED MAINT. REG. 2
sLOAD LOOP ON ERROR LOCATION FOR

#CCLR,RKCST1(RZ)

;CLEAR RK611

MOV

001300
004160
004206
001110

MCv

1%:

MOV

$BASE 'R2

#UNLOAD ,E.CS1

100.

ITERATIONS

*{0AD RK611 BASE

;LOAD EXPECTED COMMAND AND STATUS REG.

;

SUBTEST LOOP

WO OW—=WWWWANNOOr
O OO
NN~ NO NN NN NOOMNrRO
RN

000040
004160
000016
000440
000040

WW
NN

004146

2%:

000000
000034
000036
004210
004160

0046120
004146
004150

057223

001302

100000

000000

001405

007742
007750
007752
007760
007762

023737

004206

004146

012737

057145

001302

004210

004150

057174

001302

010000

004160

010000
001000

004160
004206

W
NN

007726
007730
007736
007740

012737
104001

057067

MOV

#DMD 'M(LK ,RKMR1 (R2)

MOV

SCLOCK IN DRIVE MESSAGE

#DMD
. RKMR T (R2)

RO
28

RKCS 1(R2),T.(S1 ;STORE COMMAND AND STATUS REG.
RKMR2(R2) ,T.MRZ ;STORE MAINTENANCE REG. 2
RKMR3(R2),T.MR3 ;STORE MAINTENANCE REG. 3

?SXOR

qEM2003.EM1N*2

sLOAD ERROR MESSAGE

MOV

#CCLR,RKCST(R2)

;CLEAN UP FOR NEXT CONFIGURAT]ION

T.MR2,$TMPQ

;MASK BITS NOT UNDER TEST

E.MRZ2,$TMPO

sCHECK IF S.UNLD AND FORMAT
BIT5> IN MESSAGE CORRECT
;

MOV

25%

JYES, CHECK MESSAGE AgB
;CHECK IF LOOP ON ERROR

BIC

#*C<S.FMT!S_UNLD>,6$TMPO

BEQ
ggXOR

4%
qEM2000,EM1N*2

25%

;CHECK IF LOOP ON ERROR

cMP

(MP

:PUT RK611 IN MAINTENANCE MODE
:LOAD UNLOAD INTO COMMAND AND STATUS REG.

;STORE EXPECTED MAINT REG.
;CHECK IF CS1 CORRECT

001302

#3+4+2,R0

SEQ 0056

E.MR3
E.CS1,T.0S1

BEQ

000420

JYES, CHECK MESSAGE Ag&B
;LOAD ERROR MESSAGE

BEQ
?EXOR

E.MR2,T.MR?

5%
:EM2001,EM1N+2

;sCHECK

5%:

cmp
BEQ
?g;on

E.MR3,T.MR3
25%
fEMZOOé.EM1N*2

;CHECK IF DRIVE MESSAGE B CORRECT
JYES, CHECK [F LOOP ON EROR
;LOAD ERROR MESSAGE

25%:

SCOP1
BIT
BNE

#CFMT E.. 51
TST10

sCHECK IF LOOP ON ERROR
;CHECK IF ISSUED IN 24 SECTOR FORMAT
;.YES, GO ON TO NEXT TEST

BIS

BIS
BR

H#CFMT ,E.CST
#S.FMT E.MR?
1%

DRIVE MESSAGE

;YES, CHECK MESSAGE B
;LOAD ERROR MESSAGE

A CORRE(CT

JINDICATE COMMAND [N 24 SECTOR FORMATM
JREISSUE

IN 24 SECTOR FORMAT

;;'l.!."'tfit"lt"fit'i"'fl'lttttlt.‘t'.titt"fil"ifilit.t'ti"t‘t

Y
SRR

2
B

J*TEST 10

001404

#DMD ,RKMR1(R2)
E.CST,RKCST1(R2)

CLR
(MP

004206

MOV
MOV

MOV
MOV
MOV

3%:

174777

16-SEP-81
15:10
PAGE 57
UNLOAD COMMAND LOADING FOR DRIVE MESS.

DEC
BNE

004120

007704
007712
007720

042
023737

39;1046)

PACK ACKNOWLEDGE COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT C(ONTROL._ER IN
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 WlTH

A PACK ACKNOWLEDGE.
CLOCK MESSAGES A AND B INTO SHIFT
REGISTERS.
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.

REPEAT FOR 24 SECTOR FORMAT.

— O

ORI NNONONO = NPONIND NN
S NONSVONMPNPRIOIWWSN
NINNN

O=QO—=ONO—= =002

007642
007650
007654
007662
007664
007672
007674
007702

OO0—=2O000O0OOOOOOOOOOOO

007566
007574
007602
007606
007614
007622
007624
007626
007634

113:47

MACY !

2875
2876
2877
2878
2879
2880
2881
2882
2883
2884
2885
2886
2887
2888
2889
2890
2891
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2511
2912
2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
2930

TRL PRT?

&S0
x

(ZR6BDC RK61
"IR6BD P

E;tt'!'.t'..t..t.tt't""".t.“tfi'!‘tttttt'ttlttttt'ttt‘ttt'!"t
000144
001270
052314

001200

001300

7§110:

SCOPE

MOV

#100.,$TIMES

::DD 100.

MOV

#EM10%, EMIN

*LOAD ERROR MESSAGE

MOV

$BASE ‘R

ITERATIONS

‘[ OAD RKk611 BASE

cIR6BDD RK61T DSKLS CTRL PRT?2
ZIR6BD.P
164-SEP=-81 13:47

2931

2932
2933
2934
2935

2936

010054

010062
010070
010076

MACYT1

012737

000003

004000
01007¢

004206
001110

012737
012737

004160

18:

#PA(CK E.CST

#CCLR,RKCST(R2) ;CLEAR RK611
#DMD _RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
E.CST,RKCST(R2) ,LOAD PACK INTO COMMAND AND STATUS REG.
#324+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2’
RC
2%
RKCST1(R2),T.CS1 .STORE (OMMAND AND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINTENANCE REG. ¢
RKMR3(R2),T.MR3 ;STORE MAINTENANCE REG. 3
£.MR3
JSTORE EXPECTED MAINT REG. 3
E.CST1,T.CS1
JCHECK IF €S CORRECT

KEM2003,EMIN+2

010076
010104
010112
010120
0101246
010132
010140
010142
010144
010152
010160
010166
010172

012762
012762
013762
012700
012762
012762
005300
001370
016237
016237
016237
005037
023737

100000
000040
004160
000016
000440
000040

000000
000026
000000

000000
000036
000036
004210

00412C
004146
004150

004160

004120

MOV
MOV
MOV
MOV
MOV
MOV
DE(
BNE
MOV
MOV
MOV
(LR
(MP

2951

010202

012737

057223

001302

MmNV

100000

000000

004146
172777

201160
001160

2950

2952
2953
Sg§g
>

29°n
2957
2958

2959
2960

2961

2962

2322
4

2965
2966
2967
2968
2969
2970
2971
2972
2973
2974
2975
2976
2977
Sg;g

010200

001410

010210
010212
070220

104001
012762
000437

(010222
010230

013737
042737

010244
010246
010256

001405
012737
104001

010236

023737

010256

000420

010260
010266
010270
010276
010300
010306
010310
01C316
010320
010322
010330
010332
010340
010346

023737
001404
012737
104001
023737
001404
012737
104001
104415
032737
001007
052737
052737
000653

004206

057067

<¢5:

#S.PACK ,E.MR?
#1%,$LPERR

BEQ

ERROR
MOV
BR

3%:

001160

004146

057145

(001302

004210

004150

057174

001302

010000

004160

010000
001000

(04160
004206

4%:

S¢:

25%:

JLOAD EXPECTED MAINT, REG. 2
JLOAD _00OP ON ERROR LOCATION FOR
.
SUBTEST LOOP

JYES,

CHECK MESSAGE ARR

1
#CCLR,RKCST(R2)
25%

;CLEAN UP FOR NEXT (ONF]GURATION
JCHECK If LOOP ON ERROR

LOAD ERROR MESSAGE

T.MR2,$TMPQ
JMASK B] TMS NOT UNDER TEST
#AC<S.FMT
IS . PACK>,$TMPQ
E.MR2,$TMPO

JCHECK

BEQ
MOv
ERROR

L8
#EM2000,EMIN+?
1

;LOAD ERROR MESSAGE

25%

JCHECK [F LOOP ON ERROR

CMP
8EQ
MOV
ERROR
(MP
8EQ
MOV
ERROR
SCOP1
BIT
BNE
BIS
BIS
BR

E.MR2,T.MR?
5%
#EM2001 ,EMIN+Z
1
E.MR3,T_MR3
25%
#EM2002 ,EMIN+?
1

JCHE(K IF DRIVE MESSAGE A (ORRECT
JYES, (HECK MESSAGE B
;LOAD ERROR MESSAGE

R R R

R A NN

B8R
004206

;LOAD EXPECTED COMMAND AND STATUS REG. 1

MOV
BI(

(MP

001302

SES 0057

MOv

MOv
MOV

2937
2938
2939
29640
29417
2942
2943
2944
2945
2946
2947
2948
2949

000024
0000co

30(1046)
14-SEP=-81
15:10 PAGE 58
710
PACK ACKNOWLEDGE COMMAND LOADING FOR DRIVE MESS.

2980

ggg;

JCTEST N

2983
2984
2985
2986

.
.
M
o

R R

NCFMT E.CST
TST1
#CFMT E.CST
#S . FMT E.MR?
1%
PP LN AN NN A

S.PACK AND FORMAT

;
BITS IN MESSAGE CORRE(CT
JYES, (HECK MESSAGE AgB

;CHECK IF DRIVE MESSAGE B CORRECT
JYES, CHECK IF LO0P ON EROR
;LOAD ERROR MESSAGE
JCHECK [F
JCHECK IF
;.YES, GO
JINDICATE

LOOP ON ERROR
ISSUED [N 24 SECTOR FORMAT
ON TO NEXT TEST
COMMAND IN 246 SECTOR FORMAT

JREISSUE

IN 246 SECTOR FORMAT

R R R A

A NN

RN AN R AN RN AR AT NN

R TR TN

RECALIBRATE (OMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER IN
DIAGNOSTIC MODE,
LOAD COMMAND AND STATUS REGISTER 1 WITH
A RECALIBRATE.
(LOCK MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE SHIFT REGISTERS ARE LOADED CORRECTLY.

CIRGBLT Rxe1!

“IR6BD.P11

tSKLQ TIRL PRT2
To-<FDogl

13:4°

MA(Y1T

2987

2989

010350

010352

010360
010364
010372
010400
010406

00000«

012737

001200

001300
000000
000026
000000
006160
,
0000c6
000026

010414
010422
010426
010434
010442
010444
010446
010454
010462
010470
010476
010502
01050
010512
070520
010522
010530

012737
012700
012762
012762
005300
001370
016237
(16237
016237
012737
005037
023737
001410
012737
104001
012762
000431

000013
000016
000440
000040

3074
3015
3016
3017
%8;3

010532
070540
010542
010550
010552

3020
3021
30¢2
3623

010554
010562
010564
010572

3027
3028

010612

010574
010602
010606

013702
012737
012762
012762
0127¢2

000144

2991
2992
2993
2994
2995
2996
2997
2998
2999
3000
3001
3002
3003
3006
3005
3006
3007
3008
3009
3010
3071
%81%

3024
3025
302¢

001270
052370
100000
000040
0000'3

000000
000034
000036
000040
004210
00410

004120

057223

001302

100000

000000

032737
001005
012737
104001
000420

000040

004146

057067

001302

023737
001404
012737
104001

004206

(004146

057145

001302

004210

004150

057°74

001302

023737
001404
012737

104001

'$:

2%:

3%:

4§:

14-SEP-B1

RECALIBRATE

SCOPE

MOV

15:10

G 5
PAGE 59

COMMAND LOADING FOR DRIVE

MESS.

#'00.,8TIMES

;.D0 100,

ITERATIONS

MOV
MOV
MOV
MOV
MoV

MOV
MOV
MOV
MOv
DEC
BNE
MOV
MOV
MOV
MoV
CLR
(MP
BEQ
MOV
ERROR
MOV
BR

$BASE ,R2
;LOAD RK611 BASE
#EM10« EMIN
JLOAD ERROR MESSAGE
#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 [N MAINTENANCE MODE
#RECAL ,RK(S1(R2)
:LOAD RECAL INTO (OMMAND AND STATUS REG.
#RECAL ,E.CST
sLOAD EXPECT (S1
#3642 RO
;CLOCK IN DRIVE MESSACGES
#DMD !MCLK ,RKMR1{(R2)
#DMD ,RKMR1 (R2)
RO
18
RKCS1(R2), .CS1 ;STORE COMMAND AND STATUS REG. 1
RKMR2(R2) ,T.MR2 ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3
_
#S.RECL,E.MR2 ~ :LOAD EXPECTED MAINT REG. 2
E.MR3
sLOAD EXPECTED MAINT REG. 3
E.CST,T.CST
sCHECK IF CS1 CORRECT
2%
JYES, CHECK MESSAGE A&B
#EM2003,EMIN+2
:LOAD ERROR MESSAGE
1
#CCLR,RKCST(R2) ;CLEAN UP FOR NEXT TEST
TST12
;.60 ON TO NEXT TEST

BIT
BNE
MOV
ERROR
BR

#S.RECL,T.MR2
3%
#EM2000,EMIN+2
1
TST12

(CHECK IF S.RECL SET [N MESSAGE A
JYES, (HECK MESSAGES AEB
;LOAD ERROR MESSAGE

cmMP
BEQ
MOV
ERROR
(MP
BEQ
MOV
ERROR

E.MR2,T.MR?
3
#EM20CT,EMIN+2
1
E.MR3,T.MR3
TST12
HEM2002,EMIN+2
1

s HECK IF DRIVE MESSAGE A (ORRE(T
sYES, CHECK MESSAGE B
LOAD ERROR MESSAGE

'7557 12

3232
3057
3034
;8;2

.
*
*
*

;:60 ON TO NEXT TEST

JCHECK JF DRIVE MESSAGE B (ORRECT
;:YES
GO ON TO NEXT TEST
; _OAD ERROR MESSAGE

30%7
3038
3039

010614
0106:6

(000004
012737

000144

001200

30«1

010630

012737

052437

001300

010626

(1063¢

013702

012762

001270
100000

000000

START SPINDLE COMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER [N
DIAGNOSTIC MODE.
LOAD COMMAND AND STATUS REGISTER 1 wlTw
A START SPINDLE.
(CLOCK MESSAGES A AND B INTO SHIFT REGISTERS.

MAKE

SURE

SHIFT REGISTFRS ARE

LOADED CORRECTLY.

.'.ttt'ttttttttiQtlt't"t"'ttt'tttltt'tt!'tt'tttt'tttttttt.nttttt
TST12:
SCOPE
MOV
#100. ,8TIMES
2.D0 100, ITERAT]IONS

MoV

MOV
MOV

$BASE 'R2

;LOAD RK611 BASE

#CCLR,RKCST(R2)

:(LEAR RK611

#EMTO5 EMIN

SEQ (058

R N
N R R R R R R R R RR R R

%8;?

TST11:

004120
004146
004150
006206

3029

304C

T11

988

2990

30(1 046)

;LOAD ERROR MESSAGE

“IRGBDC RRE't
"IR¢BD.P1Y

3043
066

0'0644
070652

3046
3067
3C48

010666
010672
010700

3065

010660

30649
3050
3051
3052
3053
3054
3055
3056
3057
3058
3059
3060
%82;

010706
010710
019712
010720
010726
010734
010742
010746
010754
010756
010764
010766
010774

3063
3064
3065
3066
gggg

010776
011004
011066
011014
011016

30¢9
3070
3071

011020
011026
011030

3072
3073

3074
3075
3076
3077

011036
011040

011046
011050
011056

DSK.S CTRL PRY2
'¢-SEP-81 13:47

012762
012762
012737
012700
012762
012762
005300
001370
016237
016237
(16237
012737
005037
023737
001410

000040
000011
000011

000016
000440
000040

WMACY11

GOCH2¢
000000
004160
000026
000026

000000
000034
000036
000160
004210
004160
.

004120
004146
00415¢C
006200

057223

001302

100000

000000

032737
001005
012737
104001
000420

000100

004146

057067

001302

023737
001404
012737

004206

004146

057145

001302

004210

004150

057174

001202

012737
104001
012762

(00431

104001
023737

001404
012737
104001

H
5
14-SEP-8B1
15:10
PAGE 60
START SPINDLE COMMAND (OADING FOR DRIVE MESS.

30(1046)
T2

004120

3078

MOV
MOV

#DMD ,RKMR1(R2)
:PUT RK611 [N MAINTENANCE MODE
#SRTSPL ,RK(S1(R2)
;LOAD SRTSFL INTO (OMMAND AND 5TATUS REG.

MOv
MOV
MOV

#3+442,R0
;CLOCK [N DRIVE MESSAGES
#DMD MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

MOV

18:

'
2%:

3$:

4$:

SEQ (059

#SRTSPL,E.CST

;LOAD EXPE(T (S1

DEC
BNE
MOv
MoV
MOV
MOV
(LR
(MP
BEQ
MOV
ERROR
MOV
BR

RO
1$
RKCS1(R2),T.CS7
RKMR2(R2) ,T.MR2
RKMR3(R2) ,T.MR3
#S.STSP,E.MR2
E.MR3
E.CST1,T.(ST
2%
#EM2003,EMIN+2
1
JCCLR RKCS1(R2)
TST13

BT
BNE
MOV
ERROR
BR

#S.STSP,T.MR2
33
#EM2000 ,EMIN<2
1
TST13

;(HECK IF S.STSP SET [N MESSAGE
sYES, CHECK MESSAGES ALB
;LOAD ERROR MESSAGE

(MP
BEQ
MOV

E.MR2,T.MR?
3]
#EM2001,EMIN+2

sCHECK IF DRIVE MESSAGE
JYES, CHECK MESSAGE B
;LOAD ERROR MESSAGE

ERROR
(MP

BEQ
MOV
ERROR

1
E.MR3,7T .MR3
TsT1?
WEM2CC2 ,EMIN+2
1

A R AR AN

R A R R

RN T

;LCAD ERROR MESSAGE
;CLEAN UP FOR NEXT

::60 ON TO NEXT

TEST

A CORRECT

CHECK IF DRIVE MESSAGE B (ORRECT
JYES, GO ON TO NEXT TEST
LOAD ERROR ME SSAGE

AN R RN R R AR R RN R R AN AN R C TR AR R

3081
3082
3083
3084

;'
A
:*
.t

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER iN
DIAGNOSTIC MODE.
LOAD ZERQ IN CYLINDER ADDRESS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH A SEEK COMMAND.
CLOCK IN MESSAGE A AND B INTQO SHIFT REGISTER.
MAKE SURC

3087

3088

3089
3090
3091
3092
3093
3094
3095
3096
3097
3098

011060

000004

'-XA

071062
011070
011074
011100
011106

012737
013702
005037
012737
012737

000144
001270
004252
000017
011114

001200

011114
011114
011122

012762
012762

100000
000040

000009
000026

T§113:

0064169
001110
1$:

CYLINDER ADD

R AN R A KR P RN TR RO N

. *

CORRECT MESSAGE IS LOADED.

SCOPE

;.60 ON TO NEXT TEST

tTEST

AND

379

%832

SEEK

;STORE COMMAND AND STATUS REG.
;STCRE MAINT REG. 2
;STORE MAINT REG. 3
;LOAD EXPECTED MAINT PEG. 2
;LOAD EXPECTED MAINT REG. 3
;CHECK TF (S1 CORRECT
;YES, CHECK MESSAGE AEB

0-777 LOADING FOR DRIVE

MESS

REPEAT FOR CYLINDER = 1-777,

R R

R R R

MOV
MOV
CLR
MOV
MOV

#100.,$TIMES
$BASE ,R2
CYLIN
#SEEK ,E.CST
#1$,SLPERF

::00 100. ITERATIONS
;LOAD RK611 BASE
JINITIALIZE CYLINDER
;LOAD EXPECTED (S1
;LOAD LOOP ON ERROR LOCATION fOR
;
SUBTEST LOOP

MoV
MOV

#CCLR,RKCST1(R2)
#DMD ,RKMR1(R2)

;CLEAR RKk611
;PUT RK611 [N MAINTENANCE MODE

CZR6BDO RKk611
ZZR6BD.P1Y

3099
3100

011130
011136

3102
3103
3104
3105
3106
3107
3108
3109

011150
011156
011164
011166
011170
011176
011204
011212

3101

011144

DSKLS CTRL PRT2
14-SEP-81 13:47

013762
012762

012700

012762
012762
005300
001370
016237
016237
016237
012737

3110
3111
3112
3113
3114
3115
3116
3117
3118

011220
011226
011232
011236
011242
011246
011254
011256
011260

013737
006337
006337
006337
006337
023737
001405
104017
012762

3121
3122
3123
g}%g

011270
01276
011300
011302

3126
3127
3128

3133
3134
3135
313¢

%};8

3129
3130
;}g;

MACY1'

004252
000017

000020
000000

000440
000040

000026
000026

000000
000034
000036
000020
004252
004210
004210
004210

004120
004146
004150
004204
Qw20

00C016

004210
004160

004120

100000

000000

032737
001002
104020
000426

000020

004146

011304
017312
011320

013737
042737
023737

004150
140017
004210

011334
011342
011344
011346

023737
001401
106022
023737

011266

011326
011330
011332

000434

001402
104021
000412

30(1046)
T3

2%:

5
I
14-SEP-81
15:10
PAGE £ 61
SEEK AND (YLINDER ADD (=777 LOADING FOR DRIVE MESS
MOv
MOV

CYLIN,RKDCYL(RZ2) ;LOAD CYLINDER ADDRESS
#SEEK RKCST(RZ) ;ISSUE SEEK

MOv
MOV
DEC
BNE
MOV
MOV
MOV
MOV

#DMD !M(_K ,RKMR1T(R2)
#DMD ,RKMR1 (R2)
RO
2%
RKCS1(R2),T.CS1 ;STORE (OMMAND AND STATUS REG.
RKMR2
(R2) ,T.MR2 ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3
#S.SEEK,E.MR2
;LOAD EXPECTED MAINT REG, 2

MOV

MOV
ASL
ASL
ASL
ASL
(MP
BEQ
ERROR
MOV

#3443 R0

CYLIN,E.MR3
E.MR3
E.MR3
E.MR3

E.MR3
E.CST1,T.CS1
33

SEQ 0060

;CLOCK IN DRIVE MESSAGE

;GENERATE EXPECTED MAINT REG.

;CHECK IF (S1 CORRECT
JYES, CHECK MESSAGE Ag&B

17
#CCLR,RKCST1(R2)
25%

;CLEAN UP FOR NEXT CONFIGURATION
;CHECK IF LOOP ON ERROR

3$:

BIT
BNF
ERROR
BR

#S.SEEK,T.MR2
(s
20
25%

;(HECK IF SEEK COMMAND BIT SET
JYES, CHECK CYLINDER ADDRESS BITS
JSEEK BIT NCT SET
;CHECK IF LOOP ON ERROR

001160
001160
001160

4$:

MOV
8I1C
CMP

JMASK BITS NOT UNDER TEST

BEQ
ERROR
BR

T.MR3,$TMPO
#160077,8TMPQ
E.MR3,$TMPO
5%
21
25%

(04206

004146

5%:

004210

006750

6%:

CMP
BEQ
ERROR
(MP

E.MR2,T.%R2
6%
22
E.MR3,T.MR3

JCHECK

CYLINDER ADDRESS BITS CORRE(T

JYES, CHECK MESSAGES A&B
sCYLINDER ADDRESS BJITS INCORRE(T
;CHECK IF LOOP ON ERROR
;CHECK IF MESSSAGE A CORRECT
sYES, CHECK MESSAGE B
sMESSAGE A INCORRECT
;CHECK JF MESSAGE B CORRECT

(IROBDO RKE11

TIR6BD.P11
3137
3138
3139
3140
3141
%1:%

011354
011356
011360
011362
011366
011376

DSKLS

CTRL

PRT2

14=-SEP=81 13:4~
00140
104023
104415
005237
022737
103247

006252
000777

MACY1Y

30(1046)

14-SEP-81

15:10

PAGE

113

SEFK AND CYLINDER ADD (0-777 LCADING FOR DRIVE MESS

25%:

BEQ
ERROR
SCOP?
INC
(MP

(004252

BHIS

25%
23
C/LIN
8777 ,CYLIN
1%

SEQ 0061

JYES, (HECK IF LOOP CON ERROR
JMESSAGE B INCORRECT
JCHECK IF LOOP ON ERROR
s INCREMENT CYLINDER NUMBER
JCHECK IF FINISHED
JNO,

TRY NEXT CONFIGURATION

31“

""..'..'..".'Q"Q.Q.'""""'Q.t"‘"'.'Q"'tfifi.'t.7".."'!..'

%;45

JeTEST

3147
2148
3149
3150
3151
3152

.
.
A
M
.
.

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER ]N
DIAGNOSTIC MODE.
LOAD 1000 IN CYLINDER ADDRESS.
LOA"D
(OMMAND AND STATUS REGISTER 1 WITH A SEEK COMMAND.
CLOCK IN MESSAGE A AND B INTO SHIFT REGISTERS.
MARE
SURE CYLINDFR BIT 9 [N MESSAGE IN RLSET.
REPEAT fFOR
CYLINDER = 1400.

3‘5‘

".'"..4.".......'.'""""'.'.'.'.'fi""'.t".""‘Q.l.'.‘.Q".

3153

3155
3156
3157
3158
23159
3160
3161

316¢
3163
3164
3165
3166
2167
3168
3169
3170
3171
3172
3173
3176
3175
3176
3177

011376
0116400
011406
011412
011420
0114246
0114632

011440
017440
011446

000004
012737
013702
012737
005037
012737

012737

012762
012762

013762
012762
012700
012762
012762
005300
001370
016237
016237
016237
012737
023737
001405
104017
012762
000434

000144
001270
001000
004210
000017
011440

10000C
000040

004252
000017
000016
000440
0C0040

001200

TST14:

004252
Q04760

00110

000000
000026

MOV

1%:

3178
3179
3180
3181
%}g%

01164546
011462
011470
01476
011502
011510
011512
011516
011522
011530
011536
01i544
011552
011554
011556
011564

000020
000000

3186
3'85
3186
;;gg

011566
011574
011576
011600

032737
001002
104020
000426

000020

Q204146

3%:

3189
3190
3191
3192

011602
011610
011616
0'1624

013737
042737
023737
001402

004150
140017
004210

001160
001160
001160

«4%:

000026
000026

000000
0000346
000036
000020

004120
004146
004150
004206

100000

000000

004160

SCOPE
MOV
M}y
MOV
(LR
MOV

2%:

006120

MOV
MOV

MOV
MOV
MOV
MCv
MOV
DEC(
BNE
MOY
MOV
MOV
MOV

(MP
BEQ
ERROR
MOV
B8R

SEEK AND CYLINDER BIT 9 AND RKO6 FOR DRIVE MESS.

#100.,8TIMES
$BASE ,R?
#1000,CYLIN
E.MR3
#SEEK,E.CST
#18,$LPERR

#CCLR,RKCST(R2)
#DMD ,RKMR1(R2)

;:D0 100.

ITERATIONS

;LOAD RK611 BASE
JINITIALIZE CYLINDER
sLOAD EXPECTED
;LOAD EXFECTED (S1

;LOAD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

;CLEAR RK611
;PUT RK611 [N MAINT MODE

CYLIN,RKDCYL(R2) .LOAD CYLINDER ADDRESS
#SEEK ,RKCST(R2) ;ISSUE SEEK
#3¢4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2)
RO
2%
RKCST(R2Y,T.CS1 ,STORE COMMAND AND STATUS REG.
RKMR2(R?2) ,T.MR2 ;STORE MAINT REG.?
RKMR3(R2),T.MR3 .STORE MAINT REG.3
#S.SEEK,E.MR2
;LOAD EXPECTED MAINT REG. 2

E.CST,T.C(ST
3%
17
#CCLR,RKCST(R2)
25%

JCHECK IF (S1 CORRECT
JYES, CHECK MESSAGE AER

BIT
BNE
ERROR
BR

#S.SEEK,T.MR2
4%
20
25%

JCHECK [F SEEK COMMAND BIT SEEK
JYES, CHECK CYLINDER ADDRESS BI°S
JSEEK BIT NOT SET
JCHECK IF LOOP ON ERROR

MOV
BI(
{MP
BtQ

T.MR3,$TMPO
#1409017,$TMPO
£.MK3,8TMPO
5%

JMASK BITS NOT UNDER TEST

;CLEAN UP FOR NEXT CONFIGURATION
sCHECK [F LOOP ON ERROR

JCHECK ]F CYLINDER ADDRESS BITTMS (OQORRE.T
JYES, C(HECK MES3AGES ARB

"IR6BDO RK€11

“IREBD. P11

011626
011630

DSKLS CTRL PRT2
14-SEP-81

3?%10‘6)

106021

000412

023737

jelelololololololelolols)

13:47

VMACYT

004206

004146

5%:

004210

004150

6$:

001400

00425¢

001400
010000

004252

K
5
14-SEP-81
15:'0
PAGE 63
SEEK AND CYLINDER BIT O AND RKO6 FOR DRIVE MESS.

ERROR
BR

21
25%

;CYLINDER ADDRESS BITS INCORRE(T
JCHECK IF LOOP ON ERROR

(MP

E.MR2,T.MR?

sCHECK

ERROR
(MP

22
E.MR3,T.NR3

;MESSAGE B INCOPRECT
JCHECK [F MESSAGe IS CORRE(CT

ERROR
SCoP1
CMP
BEQ

BEQ
BE~

25%:

MOV
MOV
BR

004210

N LA A

AR AR

004

014
016

[e Yo NoNUN,8Y0 Yo Yo RV, 1,V1, 01, V1, STRN], V1, ¥}

012737

o jeleleleolelaleolelolelololeololele
|=] OO
0 et d QOO =t —d b
=k —b =2

-l

i
=t

el wmd

el
)

o
—

wlelelelelelelololalelelolalelolololelalelel

000004

—

leleleolels
o)

00
5

»
2

000144
00127¢
004252
012017
011742

100000
000040

004252
002017
000016
000440
000040
000000
000034
000036
000020
004252
0046210
004210
004210
004210
004160

001200

258

JYES, CHECK IF LOOP 0N ERROR

JMESSAGE INCORRECT
;CHECK IF LOOP ON ERROR
JCHECK 1F CYLINDER 1400
;.YES, GO ON TO NEXT TEST

#1400,CYLIN
TST15

#1600,CYLIN
#10000,E .MR3
18
A

[F MESSAGE A CORRECT

JYES, CHECK MESSAGE B

<SET CYLINDER=1400
;LOAD EXPECTED CONFIGUR
s TRY NEXT CONFIGURATION
A

R R

RS R

1ST15:

SEEK AND CYLINDER ADC 0,777-1777 LOADING FOR DRIVE MESS

(LEAR RK611

WITH CONTROLLER CLEAR.

PUT (ONTROLLER IN

DIAGNOSTIC MODE.
LOAD O IN CYLINDER ADDRESS.
LOAD
COMMAND AND STATUS REGISTER 1 WITH SEEK C(OMMAND AND
(DT SET.
(LOCK IN MESSAGE A AND B INTO SHIFT REGISTER.

MAKE

SURE

CYLINDER

CORRECT.

SCOPE

REPLAT

FOR

MOV
MOV

#100. ,STIMES
$BASE ,R?

MOV
MOV

#CDT'SEEK,E.CST
#18, SLPERR

CLR

004160
001110

CYLINDER =

777-1777.

CYLIN

2,00 100. ITERATIONS
;LOAD RK611 BASE

SINITIALIZE

CYLINDER

:LOAD EXPECTED CS?
SLOAD LOOP ON ERROR LOCATION fOR

SUBTEST LOOP

1¢:

000000
000026
000020
000000
000026
000026
006120
004146
004150
004206
004210

004120

]

PR JPS

SOTEST 3§

0127%7
013702
005037
012737

SEQ J062

MOV
MOV
MOV

#CCLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMRT(R2)
:PUT RK611 IN MAINTENANCE MODE
CYLIN,RKDCYL(R2) :LOAD CYLINDER ADDRESS

MOV
MOV

#3+4+2 RO
;CLOCK
#DMD 'MCLK ,RKMR1(R2)

MOV

2s:

MOV
DEC

BNE
MOV
MOV
MOV

#CDT SEEK,RKCST(R2) :ISSUE SEEK WITH (DT SET

#DMD RKMR T (R2)
RO

2
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RKMR2 (R2) .T.MR? :STORE MAINT REG. 2
RKMR3(R2) | r MR3 :STORE MAINT REG. 3

MOV

#S.SEEK,E.MR2

ASL
ASL
ASL
ASL

£.MR3
£.MR3
E.MR3
£.MR3

MOV

CMP
BEQ
ERROR

IN DRIVE MESSAGE

CYLIN.E. nns

£.CS7,T.CS1
38
24

:LOAD EXPECTED MAINT

REG.

*GENERATE EXPECTED MAINT REG. 3

;CHECK IF CS1 CORRECT
SYES, CHECK MESSAGE ARB

CZR6BDO RK611 DSKLS CTRL PRT?
CZR6BD.P1Y
14=-SEP=-81 13:4”

MACY1Y

2269
%Sg?

012106
012''¢

012762
000436

100000

000000

3252
2253
3254
%ng

012114
012124
012126
012130

032737
001002
104025
000426

000020

0046146

3257
3258
3259
3260
3261
gsgg

012132
012140
012146
012154
(012156
012160

013737
042737
023737
001402
104026
000412

004150
140017
004210

3264
3265
3266
3267
3268
3269
3270
3271

012162
012170
012172
012176
012202
012204
012206
012210

023737
001401
104027
023737
001401
104030
104415
005737

3272
3273
3274
3275
%S;g

012214
012216
(012224
012230
012236

001003
012737
(05237
(22737
103241

L 5
14=SEP=-81
15:10
PAGE 64
301 046)
1S
SEEK AND “YLINDER ADD (,777=1777 LOADING FOR DRIVE MESS
MOV
BR

#CCLR,RKCST(R2)
25%

;CLEAN UP FOR NEXT CONF]GRURATION
JCHECK ]F LOOP ON ERROR

3%:

BIT
BNE
ERROR
BR

#S.SEEK,T.MR?
3
25
25%

JCHECK IF SEEK COMMAND BIT SET
JYES, CHECK CYLINDER ADDRESS BITS
JSEEK BIT NOT SEEK
sCHECK IF LOOP ON ERRNR

001160
001160
001'1¢6

4%:

MOV
BI(
(MP
BEQ
ERROR
BR

T.MR3,$7MPO
#140017,8TMPO
E.MR3,$TMPO
5%
26
25%

;MASK BITS NOT UNDER TEST

004206

004146

5%:

004150

6$:

E.MR2,T.MR2
6%
27
E.MR3,T.MR3
25%
30

JCHEIK JF MESSAGE A (ORREC(CT
JYES, CHECK M MFSSAGE B

004210

cmp
BEQ
ERROR
cmMP
BEQ
ERROR
SCOP1
TST

25%:

004252

26%:

BNE
MCV
INC
(mMpP
BHIS

1278

NN R

%5;8

JeTEST 16

3281
3282
3283
3284
3285
3286
3287

*
*
*
»
*
.
X

000776
004252
001777

004252
004252

1288

3289
3290
3291
3292
3293
3294

012240
012242
012250
012254
012260
012266

3295
3296
3297
3298
3299
3300
3301

012309
012300
012306
012314

3303
3304

012330
012334

3302

012272

012322

000004
012737
013702
005037
012737
005037

012737

000144
001270
004254
000015
004206

012300

TST16:

001200

004160

001110

100000
000040
004254
000015
000016
000440

's:

000000
000026
000016
000000

000026

2%:

;CHECK ]F MESSAGE B
JYES, CHECK IF LOOF ON ERROR
JMESSAGE B INCORREC(CT
JCHECK IF LOOP ON ERROR
;CHECK IF ZERO

CYLIN
269%
#776,CYLIN
CYLIN
#1777 ,CYLIN
1%
A R RN AR

RPN

JCHECK JF CYLINDER ADDRESS BITS (ORRE(T
JYES, C(HECK MESSAGES A&R
;CYLINDER ADDRESS BIT INCORRE(T
JCHLCK IF LOOP ON ERROR

sNO, INCREMENT CYLINDER
JNEXT CYLINDER=777
s INCREMENT CYLINLER NUMBER
JCHECK IF FINISHED
;NO, TRY NEXT CONFIGURATION
A AR R RO R R AR N RN RN ANRR

AN R AN AR

AR N RS

OFFSET (OMMAND LOADING FOR DRIVE MESS.

CLEAR RK611 WiTH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOST]C MODE.
LOAD OFFSET REGISTER WITH 0.
LOAD
COMMAND AND STATUS REGISTER 1 WITH AN OFFSET.
(CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE SHIFT
REGISTERS ARE LOADED CORRECZTLY.
REPEAT FOR OFFSET
REGISTER = 1-377.
R R A R AN R AR R

AN RN E P T A AP AN R R AN R AN AR R AN

N R R AR

AN SR AR

SCOPE
MOV
MOV
(LR
MOV
(LR

#100, ,8TIMF 5
$BASE ,R?
OFF VAL
NOFFSET,E.CST
£.MR2

MOV
MOV
MOV
MOV
MOV
MOV

#(CLR,RKCST(R2) ;CLEAR RK611
#DMD ,RKMR1(R?2)
;PUT RK611 !N MAINT MODE
OF F VAL ,RKASOF
(R2) ;LOAD OFFSET VALUE
#OFFSET ,RKCST(R2); ISSUE OFFSET
#3+44+2 RO
;CLOCK IN DRIVE MFSSAGE
#DMD _MCLK ,RKMR1(R2)

MOV

012762
012762
013762
012762
012700
012762

SEQ 0063

#13,SLPERR

;:D0 100. ITERATIONS
JLOAD RK611 BASE
JINITIALIZE OFFSET VALUE
JLOAD EXPECTED (S1
JLOAD EXPECT MAINT REG 2

JLOAD LOOP ON ERROR LOCAT]ION FOR
;
SUBTEST LOQP

(ZR6BDO RKE11 DSKLS CiRL PRT2
CIR6BD.P
14-SEP-81 13:47
3305
3306
3307
3308
3309
3310
3311
3312
3313
3314
3315
3316
3317
3318
3319
3320
3321
3322

3323
3524
3325
3326
%%Sg

012342
012350
012352
012356
012362
012370
012376
012402
012410
012414
012422
012426
012432
012436
012442
012450
012456
012460

012466
012474
012476
012500
012506

012762
005300
001370
016237
016237
016237
005037
013737
005137
042737
006337
006337
006337
006337
052737
(32737
001003
052737

023737
001405
104037
012762
000426

MACYN

000040

(00026

000000
000034
00Cu36
004210
004254
004210
177700
004210
004210
004210
004210
014000
000200

004120
004746
004150

002000
004160

004210
004120

100000

000000

3?(1046)
14-SEP-81
15:10 PAGE 65
16
OFFSET COMMAND (CADING FOR DRIVE MFSS.

0064210
004210

004210
004254
10%:

MOV
DEC
BNE
MOV
MOV
MOV
(LR
MOV
(OM
BIC
ASL
ASL
ASL
ASL
BIS
BIT
BNE
BIS

;STORE COMMAND AND STATUS REG.
;STORE MAINT REG. 2
;STORE MAINT REG. 3
;LOAD EXPECTED MAINT REG. 2
JGENERATE EXPEFTED MRJ

JDETERMINE SIGN

E.CST,T.CST
4%
31
#CCLR,RKCST(R2)
25%

;CHECr IF CS1 CORRECT
JYES, THECK MESSAGE ARB

MOV
BIC
(MpP
BEQ
ERROR
BR

T.MR3,$TMPO
#140017,8TMPO
E.MR3,$TMPO

JMASK BITS NOT UNDER TEST

25%

JCHECK IF LOOP ON ERROR

CMP

E.MR2,T.MR?2

25%:

CMP
8EQ
ERROR
SCOP1
INC
CMP
BHIS

E.MR3,T_MK3
25%
34

3347

A R A A R R R

%%23

J*TEST 17

3350
3351
3352
3353
3354
3355

.t
M
o
.t
M
M

3358
3359
3360

'-;ntnttttttttttnnntn-tt-'ntttttfintttttttntttttttnt-'t-tttt--t-ttt
1ST17:
SCOPE
MOV
#100.,8T.MES
;:D0 100. ITERATIONS

3329
3330
3331
3332
3333
%%%2

012510
012516
012724
012532
012534
012536

013737
042737
023737
001402
104032
000412

004150
001160
140017 001160
004210 001160
_

3336

012540

023737

004206

004146

5%:

3339
3340
3361
3342
3343
3344
ggzg

012552
012560
012562
012564
(012566
012572
012600

023737
001&4M
104034
104415
005237
022737
103237

004210

004150

6%:

3337
3338

012546
012550

001401
104033

004254
000377

4%:

004254

gggg

0126072
012604

000004
012737

000144

001200

(MP
BEQ
ERROR
MOV
B8R

#DMD ,RKMR1(R2)
RO
2%
RKCST(k2),7.(S1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
E.MR3
OFFVAL ,E .MR3
E.MR3
#177700,E.MR3
E.MR3
E.MR3
E.MR3
E.MR3
#16000,E.MR3
#BIT7,0F FVAL
108
#81T10,E.MR3

SEQ 0064

BEQ
ERROR

5%
32

6%
33

OF F VAL
#377,0FFVAL
1%
R R R R R R R

P R

;CLEAN UP FOR NEXT CONFISURATION
JCHECK IF LOOP ON ERROR

;CHECK IF OFFSET VALUE C(CORRECT
;YcS, CHECK MESSAGES AEB
JOFFSET VALUE INCORRECT

sCHECK IF MESSAGE A CORREC(T

;YES, CHECK MESSAGE B
JMESSAGE A INCORRECT

;CHECK IF MESSAGE B8 CORRECT
JYES, CHECK IF LOOP ON ERRMR
JMESSAGE B INCORRECT
;CHECK IF LOOP ON ERROR
s INCREMENT OFFSET VALUE
JCHECK IF FINISHED
JNO, TRY NEXT CONF ]GURATION
E N R AR R AR

AR A AR RN R AR AR R R

N RN LS

CYLINDER ADDRESS OADING OF DRIVE MESS (PART 1)

CLEAR RK61" WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNQSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 W]JTH A SELECT.
C(LOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE >URE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER
ADDRESS FIELD

IS ZERO IN DRIVE MESSAGE.

TIRGBLG RKETT LKL
S (YRL PRT2
IR6BD . P
14-SEP-81 13:47

3361
336%
333

012672
012416
. 2%

3365

(12640

367

026564

336
33¢8

3369

3370
3371
3372
3373
33764
3375
3376
3377
3378

012666

013702
Q12737
012737
012737
072762
012762

001270
001777
000052
000001
100000
000040

(Cr2662

012762

000052

' 482

012670

012676
012702
012710

012762
012762

012700
012762
012762

012716
012720
0127c2
012730
012736
012744

00°300
001370
016237
016237
016237
012737

3380
3381
3382
3383
gggg

012756
012764
012766
012770
012776

023737
001405
104035
012762
000423

3386

013000

3388
3389
3390

013006
013014
013016

3379

3387

%gg;

3393
3394
3395
3396
2397
%ggg

012752

013000

013020

013022
013030
013032
013034
013042
013044

005037

013737

042737
03071402
104037

001777
000001

000016
000440
0000640

MA(Y]?

$BASE ,R2
#1777 ,CYLIN
#52,0FFVAL

000026

MOV
Mov
MOV
MOv
MOV
MOV

000016

MOV

#52 ,RKASOF
(R2) .LOAD OFFSET VAl UE

Mov
Mov
MOV

#3+4+2 R0
:CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1
(R2)
#DMD ,RKMR1 (R2}

004160

000000

000020

MOV

000000
000024
0000co
004120
004146
006150
004206

006160

004120

100000

000000

004150

001160

140017

MOV
13:

DEC
BNE
MOV
MOV
MOV
MOV

CLR

(MP
BfQ
FRROR
MoV
BR
2$:

MOv

001160

000412

023737
001401
104040
025737
001401

14-SEP-81
15:10 PAGE 66
CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 1)

006252
0064254

000000
000034
000036
000000

004210

39£;046)

004745

4$:

006210

004150

S%:

104041

;LOAD RKE11 BASE
;LOAD CYLINDER VALUE
;LOAD OFFSET VALUE
.
#SELD"v,E.CST
JLOAD EXPECTED (S
#CCLR,RKCS1(R2) ;CLEAR RK611
#DMD RKMRT(R2)
;PUT RK611 IN MAINTENANCE MODE

WSELDRV,RKCST(R2) ;ISSUE SELDRV
RO
1%
RKCS1(R2),T.CS1
RKMR2(R2) ,T.MR2
RKMR3(R2),T.MR3
#0,E.MR2

E.MR3

E.CS1,T.CST
2%
35
#CCLR,RKCS1(R2)
TST20

T.MR3,8$TMP0

;STORE COMMAND AND STATUS REG.
;STORE MAINI REG. 2
;STORE MAINT REG. 3
;LOAD EXPECTED MAINT REG. 2
JCHECK IF CS1 CORRECT
;YES, CHECK MESSAGES /8B

;CLEAR CONTRJLLER FOR NEXT TEST
;:GO ON 70 NEXT TEST

;MASK OUT BITS NOT UNDER TEST

T1ST20

2:G0 ON TO NEXT 7TEST

CMP
BEQ
FRROR
CMP
8EQ

E.MR2,T.MR2
5%
40
E.MR3,T .MR3
1ST20

;CHECK IF MESSAGE A (ORRECT
JYES, CHECK MESSAGE B
JMESS A INCORRECT
JCHECK ]F MESSAGE B CJRRECT
;,YES, GO ON TO NEXT TEST

AR AR

R R R AR R R R T R E RN

;CHECK IF CYLINDER ADDRESS ZERO
;CYLINDER ADDRESS BITS INCORRECT

JMESS B INCORRECT

2400

;28}

J*TEST 20

3403
3404
3405
3406
3407
3408
gz?g

*
.
.
.
.
.
.

L1
3412
3413
3474
315
3¢t

:-.ttn.tt.tt.t.t.!ltltttttttll.ttllllltl.lltl‘.ttQtttnttt..ttttt.t
T5T¢0:
SCOPE
MOV
#100.,8TIMES
:;00 100, ITERATIONS
MOV
$BASE [R?
JLOAD Rk611 BASE
MOV
81777 (YLIN
sLOAD CYLINDER vALuUE
Wy
852,08F vAL
J.CAD OFFSET vALUE

013046
0130¢0
013056
013362
013070

000004
01;737
013702
012737
012737

000144
001279
GO01777
000052

(01200

004252
0(0el54

;LOAD EXPECTED MAINTENANCE REG. 3

#160017,8TMPO
4%
37

ERROR

#1777 ,RKLCYL(R2);LOAD CYLINDER VALUE

BIC
BEQ
ERROR

BR
004206

SEQ 0065

AR AN R R AR R AR R AR E RN AR

A AR RA RN

RN AR

T EN

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART ?2)

CLEAR RK611 WITH CONTROLLER (LEAR.
PUT (ONTROLLER IN
DIAGNQSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A PACK ACKNOWLEDGE.
(LOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER
ADDRESS FIELD 1S ZERO IN DRIVE MESSAGE.

(ZR6BDO RK611
F7368D.P11
3,17
3,18

3,19

3,20

013076
013106

012737
012762

013120

012762

013112

3421
3,02

013106
013136

3404

012146

3423

DSKLS CTRL PRT?
14-SEP=81 13:47

013142

012762

3,27
3,28
3,09
3430
34,31
3,32
3433
3,3,
3,35
3436

013164
013166
013174
013202
013210
013216
013222
013230
013232
01323¢

001370
016237
016237
016237
012737
005037
023737
001405
104035
012762

013162

gzgg 013242

34,39
§24?

013244

005300

000431

013244

032737

3442
3443
gzzg

013252
013254
013256

001002
104036
000423

3446

013260

“

3647
3,48
3449
34,50
5223

#PACK ,E.CS1
#CCLR.RKCST(R2)

001777

000020

MOV

#1777 ,RKDCYL (R2) " ;LOAD CYLINDER VALUE

000052
000603

013154

3,06

000016
000440

000040

000026

000026
000026

000000
000034
000036
004000
004210
004160

004120
004146
004150
004206

100000

000000

004000

004746

006150
140017

001160
001160

3453

013302

023737

004206

004146

3455
3,56

013312
013314

104040
023737

3,57
gzgg

013322
013324

007401

001401
104041

004210

MOV
MOV

MOV

1$:

MOV
MOV

DEC

004120

013737
042737
001402
104037
000412

013310

MOV

000016
000000

013260
013266
013274
013276
013300

3454

004150

3$:

4$:

#DMD .RKMRT (R2)

T.MR3,$TMPO
#140017.8TMPO
4%
37
TST21

:MASK OUT BITS NOT UNDER TEST

CMP

E.MR2,T.MR2

;“HECK IF MESSAGE A CORRECT

ERROR
CMP

40
E.MR3,T.MR3

*MESS A INCORRECT
“CHECK IF MESSAGE B CORRECT

34,63
34,64

e
‘e

34,68

TST21

26O ON TO NEXT TEST

;cng§§ éETPACK COMMAND

;YES, CHECK CYLINDER ADDRESS BITS
:S.PACK BIT NOT SET
;:GO ON TO NEXT TEST

15721
41

AR A

:CLEAR CONTROLLER FOR NEXT TEST

AR A A A

:STORE COMMAND AND STATUS REC. 1
:STORE MAINT REG. 2
:STORE MAINT REG. 3
:LOAD EXPECTED MAINT REG. 2
*LOAD EXPECTED MAINTENANCE REG. 3
*CHECK IF (ST CORRECT
‘YES, CHECK MESSAGES ARB

:CHECK IF CYLINDER ADDRESS ZERO
*CYLINDER ADDRESS BITS INCORRECT
©:G0 ON TO NEXT TEST
*YES.

CHECK MESSAGE B

*IYES, GO ON TO NEXT TEST
*MESS B INCORRECT

R AR AR AR R

R AN R AN AP R AR RAR RN AR

TN AR O NN

*YLINDER ADDRESS LOADING OF DRIVE MESS (PART 3)

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER IN
DIAGNOSTIC MODE. LOAD CYLINDER ADDRESS REGISTER

‘e
x
P

WITH 777.
LOAD THE OFFSET REG TO 52.
LOAD COMMAND
AND STATUS REGISTER 1 WITH A CLEAR DRIVE.
CLOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE

ADDRESS FIELD 1S ZERG IN DRIVE MESSAGE.

- &

000004

SCLOCK IN DRIVE MESSAGE

#DMD 'MCLK ,RKMR1
(R2)

MOV
BIC
BEQ
ERROR
BR

TRTEST 21

013326

#3%4+9 R0

3%
36
1ST21

gzg;

3471
3,72

#52,RKASOF
(R2) :LOAD OFFSET VALUE
#PACK ,RKCS1(R2) " ; ISSUE PACK

BNE
ERROR
BR

gzgg

IN MAINTENANCE MODE

#S.PACK,T.MR2

BEQ
ERROR
R

:PUT RK611

BIT

BEQ

5$:

;LOAD EXPECTED (S1
:CLEAR RK6%1

18
RKCS1(R2),T.CST
RKMR2
(R2) .T.MR2
RKMR3(R2) .T.MR3
#S.PACK,.E.MR2 _
E.MR3
£.CS1,T.CS1
28
35
#CCLR,RKCST1(R2)

B8R
2%:

#DMD ,RKMR1(R2)

SE0 0066

BNE
MOV
MOV
MOV
MOV
CLR
CMP
BEQ
ERROR
MOV

3460

3465
3466
3467

(PART 2)

MOV
MOV

012762
012762

3,25

120

B 6
15:10
PAGE 67
CYLINDER ADDRESS LOADING OF DRIVE MESS
14~SEP-81

004160
000000

000040

012762

30(1046)

000003
100000

012762

012700

MACY11

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER

:-"ttttttttttttt!ttttttttt!ttttttttttttt'lfitttttit!'tt"ttttttttt'
T§121:
SCOPE

CZR6BDO RK611 DSKLS CTRL PRT2
rIR6BD.P11
164-SEP-81 13:47
3,73
3476
3475
3,76
3477
3,78
3479

013330
013336
013342
013350
013356
013364
013372

012737
013702
012737
012737
012737
0 2762
012742

000144
001270
001777
000052
000005
100000
000040

3481
3482

013406
013414

012762
012762

2480

3483

013400

013422

012/0e

012700

MACY11

004252
004254
004160
000000
000026

#100.,$TIMES
$BASE ,R2
#1777 CYLIN
#52,0FF VAL
#CLEAR,E.CST
#CCLR,RKCST(R2)
#DMD RKHR1(R2)

000052
000005

000016
000000

MOV
MOV

#52, RKASOF(RZ) LOAD OFFSET VALUE
#CLEAR,RKCST(R2) ;ISSUE CLEAR

000016

000020

013426
013434
013442
013444
013446
013454
013462
013470
013476
013502
013510
013512
013514
013522

012762
012762
005300
001370
016237
016237
016237
012737
005037
023737
001405
104035
012762
000431

000440
000040

0000c6
000026

000000
000034
000036
000400
004210
004160

004120
004146
004150
004206

100000

000000

3499
%28?

013524
013524

032737

000400

004146

3502

013532

001002

3506

013540

3507
3508
3509
3510
gg};

013534
013536

MOV

1%:

004720

2$:

104036
000423
3¢

013737
042737
001402
104037
000412

004150
140017

001160
001160

3513
3514
3515
3516

013562
012570
013572
013574

023737
001401
104040
023737

004206

004146

4%:

004210

004150

S%:

gg}g

0136064

104041

013602

001401

MOV

::D0 100. ITERATIONS
:LOAD RK6'1 BASE
:LOAD CYLINDER VALUE
:LOAD OFFSET VALUE
:LOAD EXPECTED CST
:CLEAR RK6T1
JPUT RK611 IN MAINTENANCE MODE

#1777,RKDCYL (R2) " ;LOAD CYLINDER VALUE
#3+¢4642 RO

;CLOCK IN DRIVE MESSAGE

BIT

#S.CLR,T.MR?

:(4g§§ éETCLEAR COMMAND

BNE

SYES,

MOV
8IC
BEQ
ERROR
BR

r MR3,$TMPO
40017,8TMPO
4s
37
TST22

;MASK OUT BITS NOT UNDER TEST

CMP
BEQ
ERROR
CMP

E.MR2,T.MR2
5¢
40
E.MR3,T.MR3

;CHECK ]F MESSAGE A CORREC(T
*YES, CHECK MESSAGE B
*MESS A INCORRECT
SCHECK IF MESSAGE B CORRECT

ERROR

*MESS B INCORRECT

MoV
MOV
DEC
BNE
MOV
vov
MOV
MOV
CLR
CMP
BEQ
ERROR
VoV
B8R

ERROR
BR

013540
013546
013554
013556
013560

3517

C
6
15:10
PAGE 68
14=SEP-81
(YLINDER ADDRESS LOADING OF DRIVE MESS (PART 3)
MOV
MOV
MOV
MOV
MOV
MOV
MOV

001777

001200

3484
34,85
3486
3,87
3,88
3489
3490
3491
3492
3493
3494
3495
36496
%zgg

3503
gggg

30(1046)
121

BEQ

#DMD 'MCLK ,RKMR1(R2)
#DMD
. RKMRT (R2)
RO
18
RKCS1(R2).7.CS1 :STORE (CMMAND AND STATUS REG. 1
RKMR?(RZ).T MR2 :STORE MAINT REG. 2
RKMR3(R2).T.MR3 :STORE MAINT REG. 3
#S.CLR,E.MR?
:LOAD EXPECTED MAINT REG. 2
E.MR3
;LOAD EXPECTED MAINTENANCE REG. 3
E.CS1,7.CS1
JCHECK [F CS1 CORRECT
2$
SYES, CHECK MESSAGES A&B
35
#CCLR,RKCST(R2) :CLEAR COUNTROLLER FOR NEXT TEST
TST22
2;G0 ON TO NEXT TEST

36
TST22

15722

CHECK CYLINDER ADDRESS BITS

:S.CLR BIT NOT SET
;260 ON TO NEXT TEST

:CHECK IF CYLINDER ADDRESS ZERO
*CYLINDER ADDRESS BITS INCORRECT
©:G0 ON TO NEXT TEST

$;YES, GO ON TO NEXT TEST

3520
gggg

'"tttlttttttttt!!ttttttttttQttttttttttttttttttttttt'ttttttttt'xtt
SxTEST 22
CYLINDER ADDRESS LOADING OF DRIVE MESS {(PART &)

3523

3506

3524
2525

3507
3528

CLEAR RK611 WITH CONTROLLER CLEAR.

PUT CONTROLLER IN

o
o *

DIAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER
WITH 777.
LOAD THE QOFFSET REG TO 52.
LOAD COMMAND

MESSAGES A AND B INTO SHIFT REGISTERS.

AND STATUS REGISTER 1 WITH AN UNLOAD.

CLOCK

MAKE SURE

SHIFT REGISTERS ARE LOADED (ORRECTLY AND THE

CYLINDER

SEQ 0067

CZR6BDO RK611 DSKLS CTRL PRTZ
CIR6BD.PI
14-SEP=-81 13:47

MA(CY1]

3?5;046)

14-SEP-81
15:10
PAGE 69
CYLINDER ADDRESS LOADING OF DRIVE MESS (PART &)

%2%8

531
3532
3533
3534
3535
3536
3537
3538
3539

013606
013610
013616
013622
012630
013636
013644
013652

000004
012737
013702
012737
012737
012737
012762
012762

:-:tttttntttt'tttttt!ttttt'ttt.'titttttttttttt'ttttttttttttt'tt'ti
TST22:
SCOPE
MOV
#100. ,8TIMES
;:D0 100. ITERATIONS
MOV
$BASE ,R?
sLOAD RK611 BASE
MOV
#1777 ,CYLIN
sLOAD CYLINDER VALUE
MoV
#52,0FFVAL
;LOAD OFFSET VALUE
MOV
#UNLOAD ,E.(CS1
;LOAD EXPECTED (51
MOV
#CCLR,RKCST1(R2) ;CLEAR RK611
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE

3541
354¢
3543
3544
3545
3546
3547
3548
35649
3550
3551
3552

013666
013674
013702
013706
013714
013722
013724
013726
013734
013742
013750
013756

012762
012762
012700
012762
012762
005300
001370
016237
016237
016237
012737
005037

3554
3555
3556
%ggg

(013770
013772
013774
014002

001405
104035
012762
000431

3559

074004

014004

032737

3562
3563
%ggg

014012
014014
014016

001002
104036
000423

3566
3567

014020
014020

013737

3540

3553

%gg?

3568
3569
3570
%2;;

3573
3576
3575
3576
3577
;g;g

013660

013762

014026
014034
014036
014040

014042
014050
014052
014054
014062
014064

012762

023737

042737
001402
104037
000412

023737
001401
104040
023737
001401
104041

000144
001270
001777
000052
000007
100000
000040

001200

(00052
000007
000016
000440
000040

9000016
9000000

001777

004252
004254
004160
000000
000026

000020

000026
000026

000000
000034
000036
002000
004210
004160

004120
004146
004150
004206

100000

000000

002000

004146

004750

140017

MOV

1%:

004120

001160

ADDRESS FIELD

3%:

001160

004206

004146

4%:

004210

304150

S%:

#1777 ,RKDCYL (R2) ;LOAD CYLINDER VALUE

MOV
MOV
MOV
MOV
MOV
DEC
BNE
MOV
MmNV
MOV
MOV
(LR

#52 ,RKASOF
(R2) ;LOAD OFFSET VALUE
#UNLOAD ,RKCS1(R2) ;ISSUF UNLOAD
#3%4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD .MCLK ,RKMR1(R?2)
#DMD ,RKMR1(R2)
RO
1%
RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REG. 1
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2
RKMR3(R2),T.MR3 ;STORE MAINT REG. 3
#S.UNLD,E.MR2
JLOAD EXPECTED MAINT REG. 2
E.MR3
JLOAD EXFECTED MAINTENANCE REG. 3

BEQ
ERROR
MOV
BR

2%
35
#CCLR,RKCS1(R2)
1ST23

BIT

#S.UNLD,T.MR?

:CH5E§ éETUNLOAD COMMAND

BNE
ERROR
B8R

3%
36
TST23

JYES, CHECK CYLINDER ADDRESS BITS
;S.UNLD BIT NOT SET
;:G0 ON TO NEXT TEST

T.MR3,8$TMPO

JMASK OUT BITS NOT UNDER TEST

(MP

2%:

IS ZERO IN DRIVE MESSAGE.

MOV

E.CS1,T.CS1

BIC
BEQ
ERROR
BR

#1640017,$TMPO
3
37
15723

(MP
BEQ
ERROR
CMP
BEQ
ERROR

E.MR2,T.MR?
5%
40
E.MR3,T.MR3
TST23
41

JCHECK IF

JYES,

CS1

CORRECT

CHECK MESSAGES AgB

;CLEAR CONTROLLER FOR NEXT TEST
;.60 ON TO NEXT TEST

JCHECK IF CYLINDER ADDRESS ZERO
JCYLINDER ADDRESS BITS INCORRE(CT
;.G0 ON TO NEXT TEST

JCHECK IF MESSAGE A CORRECT
JYES, CHECK MESSAGE B
JMESS A INCORRECT
JCHECK ]F MESSAGE B CORRECT
;.YES, GO ON TO NEXT TEST
JMESS B INCORRECT

3580
ggg;

R
R AR AN R R A AR RN IR AR R RN T AR RN RN AN AR P NN R AN AN AN RN C AR N
J*TEST 23
CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 5)

3583
3584

L
i

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER

SEQ 0068

CZROBDO RK611 DSKLS CTRL PRT2
14-SEP=81

13:4°

30¢( 1046)
T2 3
2N

rIR68D. P 1

MACY1Y

14-SEP-81

15:10

PAGE

(PART 5)

WITH 777,

LOAD COMMAND

LOAD THE OFFSET REG TQ 52.

AND STATUS REGISTER 1 WITH A START SPINDLE.
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE

SEG 0069

CYLINDER ADDRESS LOADING OF DRIVE MESS

(LOCK
SURE

SHIFT REGISTERS ARE LOADED CORRECTLY AND THE CYLINDER
IS ZERO IN DRIVE MESSAGE.

ADDRESS FIELD

[

NN
N

~NOO
OO
NWNWWO WO
oo NIOMNIMNIMNININD
NN NN NS~

;\l\l\l\l\l\l\l\l\l\l\lo

ololelolalolalololelolololololelelo
el
S ad ad e (O Q) rd b wd e d d d
D D b ek b O
ONONON = \NPONO PRI
NI PO NI PNONINJANN O

=
b
—t b nd e
b
e
O~NOON NV ES B AN) = = O N NO
ACR
oY 0 Y, V) Ssoors~ocOrnoe oo
N

032737

000100

004746

001002
104036
000423

104041

N
-

oo~
OO

004210

—

023737
001401

104040

—

004206

00140¢
104037
000412

1%:

004146

004150

2332 28RN
R0
Rl

SCOPE

MOV
MOV
MOV
MOV
MoV
MOV
Mov
MOV
MOV
MOV
MOV
MOV
MoV

DEC
BNE

MOV
MOV
MOV
MOv
CLR

004120

OO
OO

023737
001401

~NO

013737
042737

-0
HO
o~
(e 0

d
D =D
) e
D
D

ol o I o
AW

D
D

o 2R R

D e
d ad oD
D

ol o I i

000000

ol o

100000

D ad o

012762
000431

004120
004146
004150
004206

ol ol S

000000
000034
000036
000100
004210
004160

2P 2T 2 W ¥

md md

000026
000026

)

00425¢
004254
004160
000000
000026
000020
000016
000000

oW AN

100000

000040
001777
000052
000011
000016
000440
000040

001200

001270
001777
000052
000011

0¥ 0¥ LW P o
WWWWW

—

)

OO0

ek
—h

med e

OO0

b
—d
D
md

204
206

000144

Pl a B ol o SR N
WIWWIWNIWNN

OO0 OCOOOOOOOOOOODOOOOOOOOO

3640

36¢2
3623
3624
3625
3626
3627
3628
2629
3630
3631
3632
3¢33
3634
3635
3636
3637
362
2639

OOOOOD

3619
3620
3521

ol o8 o N
a2 O lole]

15 T23:

CMP

3%:

5%-

ITERATICNS

#1777 ,CYLIN
#52,0FFVAL
#SRTSPL ,E.CS1
#CCLR,RKCST(R2)
#DMD ,RKMR1(R2)

:sLOAD CYLINDER VALUE
;LOAD OFFSET VALUE
;LOAD EXPECTED (S1
:CLEAR RK611
:PUT RKk611 IN MAINTENANCE

;LOAD RK611 BASE

MODE

#1777 ,RKDCYL(R2)” ;LOAD CYLINDER VALUE

#52,RKASOF (R2) .LOAD OFFSET VALUE
#SRTSPL,RKCS1(R2) :ISSUE SRTSPL
#3%4+2 R0
:CLOCK IN DRIVE MESSAGE
ADMD 'MCLK ,RKMR1
(R2)
#DMD
. RKMR1 (R2)
RO
1%
RKCS1(R2),T.CS1 ;STCRE CUMMAND AND STATUS REG.
RKMR2(R2),T.MR2 ;STORE MAINT REG. 2

RKMR3(R2),T.MR3 ;STORE MAINT REG.

#S.STSP,E.MR2

:LOAD EXPECTED MAINT REG.

E.CS1,T.CS

sCHECK

E.MR3

JLOAD EXPECTED MAINTENANCE REG.
IF

CS1

CORRECT

JYES,

MOV

#CCLR,RKCST(R2)
TST24

:CLEAR CONTROLLER FOR NEXT
©:GO ON TO NEXT TEST

BIT

#S.STSP,T.MR2

;cng§§ éérsnrspL

BNE
ERROR
BR

3¢

SYES, CHECK CYLINDER ADDRESS BITS

1ST24

;260 ON TO NEXT

MOV

T.MR3,$TMPO
#140017,$TMPO
4$

:MASK OUT BITS NOT UNDER

T1ST24

;:G0 ON TO NEXT TEST

BIC
BEQ
ERROR
BR

4%:

;.D0 100.

$BASE ,R2

2%
35

BEQ
ERROR

2%:

#100. ,$TIMES

CMP
BEQ
ERROR
(MP
BEQ
ERROR

CHECK MESSAGES A&B

C OMMAND

;S.STSP BIT NOT SET

:CHECK

TEST

CYLINDER ADDRESS ZERO

SCYLINDER ADDRESS BITS INCORRE(CT

E.MR2,TM .MR2

;CHECK IF MESSAGE A CORRECT

*MESS A

1$124

©.YES, GO ON TO NEXT TEST

E.MR3.T.MR3
41

TES®

“YES, CHECK MESSAGE B
INCORRECT

SCHECK IF MESSAGE B CORRECT
:MESS B

INCORRECT

;:'!'t.tit.tttttttt't't"tt"fit.t'."'.t‘..lt.".tt't""".'!"t

CZROBDO RKk611 DSKLS CTRL PRT2

"7R68BD.PN

14-SEP=-81

13:¢

MACYT

gg‘}

39(!066)

164-SEP-81

15:10

PAGE 71

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 6)

J*TEST 2¢

CYLINDER ADDRESS LOADING OF DRIVE MESS (PART 6)

3645

oTM

WITH 777.

ADDRESS FIELD IS ZERO IN DRIVE MESSAGE.

3643
3644

ot
M

3646
3647
3648

Je
M
M

%ggg
3651
3652

3653

3654
3655
3656
3657
3658
3659

3660

014346

014350

014356
014362
014370
014376
014404
014412

014420

000004

012737

013702
012737
012737
012737
012762
012762

012762

3661
3662
3663
3664
3665
3666
7667
3668
3669
3670
2671
3672

014426
014434
014442
014446
014454
014462
014464
014466
014474
014502
014510
014516

012762
012762
012700
012762
012762
005300
001370
016237
016237
016237
012737
005037

36764
3675
3676
%2;;

014530
014532
014534
014542

001405
104035
012762
000431

3673

3679

014522

014544

023737

ggg?

014544

032737

3682
3683
%ggg

014552
014554
014556

001002
104036
000423

3686
3687
T688
3689

014560
014560
014566
014574

369%
7694
2695

3690
%23;

3696

000144

001270
001777
000052
000013
100000
000040

001777

000052
000013
000016
000440
000040
000000
000034
000036
000040
004210

)

001200

000016
000000

1%:

004120
0046146
004150
004206

0064°2)

100000

000000

000040

004146

2%:

3%:

004150
140017

001160
201160

014576
014600

014602
014670
014612

023737
007407
104040

004206

004146

4$:

004210

004150

6S%:

023737

LOAD COMMAND

MOV

#100. ,9$TIMES

MOV

11777,RKDCYL(R2) ;LOAD CYLINDER VALUE

$8ASE ,R?
#1777 ,CYLIN
#52,0FFVAL
#RECAL ,E.CST
#CCLR,RKCS1(R2)
#DMD _RKMR1(R2)

;.00 100. ITERATIONS

;LOAD RK611 BASE
;LOAD CYLINDER VALUE
;LOAD OFFSET VALUE
JLOAD EXPECTED S
;CLEAR RK611
;PUT RK611 IN MAINTENANCE MODE

MDV
MOV
MCv
MOV
MOV
DEC
BNE
MOV
MOV
MOV
MOV
(LR

#52 ,RKASOF
(R2) ;LOAD OFFSET VALUE
#RECAL ,RKCST(R2) ;ISSUE RECA!
#3«4+2 RO
;CLOCK IN DRIVE MESSAGE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R?)
RO

8EQ
ERROR
MOV
BR

2%
35
#CCLR,RKTST1(R2)
TST25

JYES,

BIT

#S.RECL,T.MR?

;CH%E? éETRECAL C OMMAND

BNE
ERROR
BR

3%
36
TST25

JYES, CHECK CYLINDER ADDRESS BI'S
JS.RECL BJT NOT SET
;.60 ON TO NEXT TEST

MOV
8IC
8EQ
ERROR
BR

T.MR3,$TMPO
#140017,8TMPO
(3
37
15125

JMASK QUT BITS NOT UNDER TEST
JCHECK [F CYLINDER ADDRESS ZERO
JCYLINDER ADDRESS BITS INCORRE(C”
;5:G0 ON TO NEXT TEST

CMP
BEQ
ERROR

E.MR2,T.MR?
5%
40

JCHECK [F MESSAGE A (ORRECT
JYES, CHECK MESSAGE B
JMESS A INCORRECTY

CMP

013737
042737
0014602
104037
000412

014674

LOAD THE OFFSET REG TO S2.

AND STATUS REGISTER 1 WITH A RECALIBRATE.
(LOCK
MESSAGES A AND B INTO SHIFT REGISTERS.
MAKE SURE
SHIFT REGISTERS ARE LOADED CORRECTLY AND THE C(YLINDER

MOV
MOV
MOV
MOV
MOV
MOV

000020

004160

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT (ONTROLLER IN
DIAGNQSTIC MODE.
LOAD CYLINDER ADDRESS REGISTER

:'."'tt"t.'tt't..ttttittiit'ttttttt!ttt'*tt'i\"tttttQittt't'tttt'
TS124:
SCOPE

004252
004254
004160
000000
000026

000020
000026

SE3 0070

(MP

1%
RKCST1(R2),T.CS1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
#S.RECL,E.MR?
E.MR3

E.CST1,T.(S

£.MR3, T MR3Z

;STORE COMMAND AND STATUS REG. 1
;STORE MAINT REG. 2
;STORE MAINT REG. 3
;LOAD EXPECTED MAINT REG. 2
;LOAD EXPECTED MAINTENANCE REG. 3

JCHECK JF CS1 CORRECT

CHECK MESSAGES ARR

;CLEAR (ONTROLLER FOR NEXT
;.60 ON TO NEXT TEST

JCHECK JF MESSAGE B8 (QRREC”

TEST

(2R6BDO RK611

fIR68D.P11

3697
3698
3699
3700
3701
3702
3703

016622
014624

DSKLS CIRL PRT?
14=SEP=81 13:47

MACY1Y

30(1046)
124

00140°

15:10

PAGE

CYLINDER ADDRESS LOADING OF
BEQ
ERROR

10404

TST25

DwIVE MESS

(PART 6)

;. YES, GO ON TO NEXT

JMESS B

SEa 007

TEST

INCORRECT

CTRRAARNAANAANANNRNACROINCTC
RN AN RN ARNRRNRNRNARNAANRANRARNARAORRN PR PRI ROERN

J*TEST 25

MESSAGE

SELECT

BIT

CLEARING

CLEAR RK611 WITH CONTROLLER CLEAR.

DIAGNOSTIC MODE WITH MESSAGE

3705

a
AL

014626
014630
014636
014642
014650
014656
014664

015034
015042
015044
075046
015054

015056
015056
015064
015066
015070

100000

000057

00120C

SCOPE

Mov

#100. ,$TIMES

MOV
MOV
MOV
MOV

#PACK ,E.CST
#CCLR,RKCST1(R2)

MOV

004246
004160
000000
000026

000000
000026
000034

004120
004144
004146
004150
004204
004744

MOV
MOV
MOV
MOV
MOV
BIT

020000
004000
004210
004160

004204
004206

BIS
MOV

100000

000000

004204

0041464

012762
000431

100000

000000

032737

004000

004146

22 a2 a3 OO

000000

000442

023737
001405

104043

001002
104044

000423

010036

002040
020000

0000206
000026

MOV

1%:

MOV

BIS
BIC
DEC
BNE

004120

PUT

SELECT BITS =

$BASE ,R2
#17 ,MSGCOD

;:D0 100, ITERATIONS
;LOAD RK611 BASE
;LOAD MESSAGE

(ODE

sLOAD EXPECTED
.CLEAR RK611

(S1

#DMD!17 ,RKMR1(R2)

;PUT RK611

FOR PRINT QuT7

IN MAINTENANCE MOLE

SELECT MESSAGE 17

#PACK ,RKCS1(R2)
#3442 RO
AMCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)

;ISSUE
;CLOCK

RKCST1(R2),T.CS1
RKMR1(R2),T.MR1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3

;STORE COMMAND AND STATUS REG.
;STORE MAINTENANCE REG. 1
;STORE MAINTENANCE REG.2
;STORE MAINTENANCE REG. 3

MESSAGE

;LOAD EXPECTED MAINT REG.

(MP

E.CST,T.C51
zg

JCHECK IF CS1 CORRECT
JYES, CHECK MAINT REG.

MOV
BR

#CCLR,RKCSV1(R2)

;CLEAR RK611

(MP
BEQ
ERROR

E.MR1,T.MR1
3$
43

JCHECK [F MAINT REG. 1 CORREC(T
JYES, CHECK MESSAGES ARB
JMAINT REG. 1 INCORRECT

TST26

;:G0 ON TO NEXT

(LR

#MEWD
!DMD ,E .MR1 ;LOAD
HECCW,T.MR1

PACK
IN DRIVE

#ECCW,E.MR1
#S.PACK,E.MR2

EXPECTED MAINT

108

E.MR3

1S726

MOV

#CCLR,RKCST(R2)

BIT

#S.PACK,T.MR2

BNE
ERROR
BR

:
3¢

(PART

BEQ
ERROR

REG.

BEQ

10%:

CLASS

ARARl
a2 2RSSR RY |

000003
000016
000400
000400

QO=2 \NOW—

014672
014700
014704
014712
014720
014722
014724
014732
014740
014746
014754
014762
014770
014772
015000
015006
015012
015020
015022
015024
015032

000144
001270
000017
000003

TST2S:

FOR

CONTROLLER IN
17,
LOAD
(OMMAND AND STATUS REGISTER 1 WITH A PACK ACKNOWLEDGE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MESSAGE SELECT BITS ARE CLEARED.

3704

3706
3707
3708
3705
3710
3717
3712
3713
3714
3715
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734,
3735
3736
3737
3738
3739
3740
3741
37642
3743
3744
3745
3746
3747
3748
3749
3750

14-SEP-81

TST26

JLOAD EXPECTED MAINT REG.

CONTROLLER FOR NEXT

22G0 ON TO NEXT TEST

:CLEAR RK611

;CHECK IF

BIT SET

JYES,

CONTROLLER FOR NEXT

TEST

PACK (OMMAND

CHECK MESSAGE

:S.PACK BIT NOT

::G0 ON TO NEVT

SET

TEST

SELE(T B:~

TEST

CIR6BDD RK6M1T DSKLS CTRL PRT2
"IR6BD.PYI
14=SEP=81 13:47
3753

3756

3755
3756
3757
%Zgg
3760
3761
3762
3763
37646
%;25

3769

015072

015100
015106
015110
C15112

015114
015122
015124
015126
01513
015136

013737

(42737
001402
104045
000412
023737
001401
104046
023737
001607
104047

g;gg

00415C

001160

004206

004146

5%:

004210

O00615C

¢3:

3776
3777
3778
3779
3780
3781
3782
3783

015140
015142
015150
015154
015162
015170
015176

Q00004
012737
C€13702
012737
012737
012762
012762

000144
001270
000017
000005
100000
000057

9001200

3785

015204

012762

000005

000CG)

3802
3803

015332
015334

015336
015344

023737
001405
104042
012762
000442

3807
3808

015346
015354

023737
001405

3804
%382

015324

012700
052762
042762
(05300
001370
016237
016237
016237
016237
012737
032737
001403
052737
012737
005037

C00016
000400
000400

(MP
REG
ERROR
(MP
BEQ
ERROR

E.MR2,T.MR2
63
46
E.MR3,T.MR3
TST26
47

015212
015216
015224
01523
015234
015236
015244
015252
015260
015266
015274
015302
015306
075312
015320

T.MR3, $TMPQ

#177760,8TMPO
5%
45
TST26

;*TEST 26
ot
H
M
M

3786
3787
3788
3789
3790
3791
5792
3793
3794
3795
3796
3797
3798
3799
3800

MOV

BIC
BEQ
ERROR
BR

SEs 0077

JMASK QUT BITS NOT UNDER TEST
JCHECK IF MESSAGE SELECT ZERO
JMESSAGE SELECT BITS NOT ZERO
;:G0 ON TO NEXT TEST
sCHECK ]F MESSAGE A CORRECT
JYES, CHECK MESSAGE B
JMESSAGE A INCORRECT
sCHECK ]JF MESSAGE B (ORRECT
;.YES, GO ON TO NEXT TEST
JMESS B INCORRECT

RN A R AR AR A AR R AR R TP R R R AR AN R AR AR RN R R AR R AN AR RN AR RO RO RS

%;;g

3801

‘$:

177760

3770
3771
3772
3773

3784

VACYTT 30(1046)
“4=-SEP-81
15:10 PAGE 73
125
MESSAGE SELECT BIT CLEARING FOR (LASS A (PART 1)

004246
004160
000000
000026

000026
000026

00000C
000026
000034
000036
002040
020000

004120
004144
004146
004150
004204
004144

020000
000400
004210
004160

004204
004206

100000

000000

004204

004144

MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 2)

(LEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROL R N
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
.OAD
COMMAND AND STATUS REGISTER 1 WITH A DRIVE (LEAR.
(1 0CK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

MESSAGE

SELECT BITS ARE

CLEARED.

'-.-ttttttttfittttttttttfittttt'ttn-tttttttt.ttttatttqtttnntnnttttnt'
TST26:
SCOPE
MOV
#100.,8TIMES
2.D0 100. ITERATIONS
MOV
$BASE ,R2
:LOAD RK611 BASE
MOV
#17 ,MSGCOD
;LOAD MESSAGE CODE FOR PRINT 0UJT
MOV
#CLEAR,E.CST
sLOAD EXPECTED (St
MOV
#CCLR,RKCST1(R2) ;CLEAR RK611
MOV
#DMD ! 17 ,RKMR1(R2) ;PUT RK611 IN MAINTENANCE MODE

MOV
1$:

10%:

004120

MOV
BIS
BIC
DEC
BNE
MOV
MOV
MOV
MOV
MOV
BIT
BEQ
BIS
Mov
CLR

(MP

#3%4+2 RO
#MCLK ,RKMR1(R2)
#MCLK ,RKMR1 (R2)
RO
1%
RKCST(R2),T.(S1
RKMR1(R2),T.MR1
RKMR2(R2) ,T.MR2
RKMR3(R2),T.MR3
#MEWD
!DMD ,E .MR1
#ECCW,T.MR1
108
HECCW,E.MR1
#S.CLR,E.MR?
E.MR3

MOV
BR

E.CS1,T.CST
2%
&2
#CCLR,RKCST1(RZ)
18127

(Mp
BEQ

E.MR1,T.MR1
3%

BEQ
ERRCGR

#CLEAR,RKCST1(RZ)

;

SELECT MESSAGE

;CLOCK

s ISSUE CLEAR

IN DRIVE MESSAGE

;STORE COMMAND AND STATUS REG.
;STORE MAINTENANCE REG. 1
;STORE MAINTENANCE REG./?
;STORE MAINTENANCE REG. 3
;LOAD EXPECTED MAINT REG. 1

;LOAD EXPECTED MAINT REG.
JLOAD EXPECTED MAINT REG.

JCHECK IF (ST LORRE(CT
JYES, CHECK MAINT REG. 1

2
3

;CLEAR RK61' CONTROLLER FOR NEXT TEST
;G0 ON TO NEXT TEST
;sCHECK IF MAINT REG. 1 CORRE(T
JYES, (HECK MESSAGES ARB

oo
[o gy@Yo
o

(NWNW

WWIAN

e
—

—

OO
OO0

3?( 1046)

e kb
d

OO0V

—d
b

SES 0073

(PART 2)

43
#CCLRLRKCST(R2)
15°27

;MAINT REG. 1 INCORRE(CT
“CLEAR RK611 CONTROLLER FOR NEXT TEST
1:G0 ON TO NEXT TEST

BIT

#S.CLR,T.MR?

““55? éETCLEAR COMMAND

001002

BNE

000423

1$T27

032737

100000

000400

000000

004746

3%:

ERROR

(%:

013737
042737
001402

004159
177760

001160
001160

023737
001401

004206

004146

5%:

023737
001401

004210

004150

6%:

104045
000412

OOOOOO

I
6
14=-SEP-81
15:10
PAGE 74
MESSAGE SELECT BIT CLEARING FOR CLASS A

ERROR
MOV
BR

1064043
012762
000431

104046

104047

MOV

SYES, CHECK MESSAGE SELECT BITS

*S.CLR BIT NOT SET

T.MR3,$TMPO

:MASK OUT BITS NOT UNDER

1:GC ON TO NEXT TEST

BIC
BEQ
ERROR
BR

#177760,$TMPO
5$
45
15127

CMP
BEQ
ERROR
CMP
BEQ
ERROR

E.MR2,T.MR2
6%
46
E.MR3,T.MR3
15727
47

TEST

;CHECK [F MESSAGE SELECT ZERO
"MESSAGE SELECT BITS NOT ZERO
©:GO ON TO NEXT TEST
;CHECK IF MESSAGE A CORRE(CT
"YES. CHECK MESSAGE B
*MESSAGE A INCORRECT
“CHECK IF MESSAGE B CORRE(CT
1IYES, GO ON TO NEXT TEST
“MESS B iNCORRECT

;'ttittttt'ttQQittttiit'Qtfittttttttttfifititi't't"tittt'tt'tttt't!

w8
»
»
¥

MESSAGE

SELECT BIT CLEARING FOR (LASS A

(PART

PUT CONTROLLER IN
CLEAR RK611 WITH CONTROLLER CLEAR.
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD

COMMAND AND STATUS REGISTER 1 WITH AN UNLOAD.
CLOCK MESSAGE

MESSAGE

SELECT

TO LOAD B SHIFT REG.
BITS

ARE

CLEARED.

TIME.

MAKE

SURE

)
TR
T

SRTEST 27

— OO N
NWNIE IS
—
S OONHBOOORAAOSTON

OOOOCOOO
QOO OCOOOODOOOO

—O ~NONO~
ON HONPNO

Vi
SH e

\UALV,
LV, LV, (W,|

[0 Y@ No NV RV W, LV LV LV, IV, IV, LV, 1V ]

d
b

(O ARV LV TV LV RV AV, LV LV LV, LV 1W,1V ]

—d

OOOOOO

—ad

—

—d

OOOOCOOO

SR LAAAE

b ed

3819
3820
3821
3822
38232
3824

MACY T

1046044

OO0V

3809
3810
3811
3872
3813
3814
3815
3816
3817
3818

oO0OO

CIR6BDD RK611 DSKLS CTRL PRT?
ZZR68BD
14-SEP=-81 13:4~

000144
001270
000017
000007
100000
000057

001200

15127

RS RARERSSRRRRRRRRRNRRSR2
R
sRRRARRRRRRRRR X

SCOPE

;:D0 100. ITERATIONS
;LOAD RK611 BASE

#100. ,$TIMES

004246
004160
000000
000026

MOV
MOV

MOV
MOV
MOV
MOV

#17 ,MSGCOD
#UNLOAD ,£.CS1
#CCLR,RKCS1(R2)

000007
0006016
000400
000400

000000

MOV
MOV

000000
000026
000034
000036
002040
020000

004120
004144
004146
004150
004204
004144

BIS
BI(C
DEC
BNE

#UNLOAD ,RKCS1(R?)
#3x4+2 RO
;CLOCK
AMCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)
RO
1%

BIT

75§(U,T.HR1

000026
000026

1%:

MOV
MOV
MOV
MOV
MOV

BFQ

$BASE ,R2

;LOAD MESSAGE CODE FOR PRINT 0OJT
;LOAD EXPECTED (S1
:CLEAR RK611
#DMD !17 ,RKMR1(R2) ;PUT RK611 IN MAINTENANCE MODC

RKCST1(R2),T.CS?
RKMR1(R2),T.MR1
RVYMR2(R2),T.MR2
RKMR3(R2),T.MR3
W#MEWD .DMD,E.MR1

SELECT MESSAGE 17

;STORE
;STORE
;STORE
;STCRE

; ISSUE UNLOAD
IN DRIVE MESSACE

COMMAND AND
MAINTENANCE
MAINTENANCE
MAINTENANCE

STATUS REG.
REG. 1
REG.?
REG. 3

;LOAD EXPECTED MAINT REG.

(ZR6BDO RK611
TZRGBD P

100000

000000

015660
015666
015670
015672
015700

004204

004144

000431

100009

000000

015702
015702

032737

002000

004146

015710
015712
015714

015716
015716
015724
015732
015734
015736
015740
015746
015750
015752
015760
015762

004204
004206

30(1046)

127

108 :

14-SEP-81
15 1 0
MESSAGE SELECT BIT
IT

BIS

#ECCW,E.MRT

(PART

SEQ 0074

MOV
(LR
(MP
BEQ
ERROR

#S.UNLD,E.MR?2
E.MR3
£.CS1,1.C81
2%
42

JLOAD EXPECTED MAINT REG. 2
JLOAD EXPECTED MAINT REG. 3
JCHECK IF (S1 CORRECT
JYES, CHECK MAINT REG. 1

18730

;.60 ON TO NEXT TEST

MOV

2%:

J
6
PAGE 75
CLEARING FOR rLASS A

(MP
8EQ
ERROR

#CCLR,RKLST1(R2)

;CLEAR RK611

E.MR1,T.MR"
3%
43

;CHECK [F MAINT REG. 1 CORRE(CT
sYES, CHECK MESSAGES A&B
JMAINT RES. 1 INCORRECT

TST30

2:G0 ON TO NEXT TEST

#CCLR,RKCST(R2)

BIT

#S.UNLD,T.MR?

:CH5§§ éETUNLOAD COMMAND

001002

BNE

(A 3

JYES, CHECK MESSAGE SELECT BITS

000423

1S730

;G0 ON TO NEXT TEST

B8R
3%

104044

013737
042737

001402

ERROR

004150
177760

001160
001160

104045

023737
001401

004206

004146

5%:

023737
001401

004210

004°5)

A ¥

104047

T.MR3,$TMPO

CONTROLLER FOR NEXT

;S.UNLD BIT NOT

JMASK OU'

SET

BITS NGT UNDER

TEST

BIC
BEQ
ERROR

#177760,%$TMPO
5%
45

JCHECK ]F MESSAGE SELECT ZERO
JMESSAGF SCLECT BITS NOT ZERO

(MP
BEQ
ERROR
CMP
BEQ

E.MR2,T.MR?
6%
46
E.MRZ,T _MR3
TST30

JCHECK ]F MESSAGE A CORRECT
JYES, C(HECK McSSAGE B
JMESSAGE A INCORRECT
JCHECK JF MESSAGE B8 CORRE(CT
J:YES, GO ON TO NEXT TEST

B8R

000412

104046

MOV

;CLEAR RK611

CONTROLLFR FOR NEXT

MOV

LAPNR

1ST30

.60 ON TO NEXT TEST

JMESS B INCORRECT

.'"'It‘tl’.l'..Q'*'it"it'."'li"tfi*.*.fit..fifi"tii.tt"*tt".tt"'

;*TEST 30
* %

.t
o
.
o
ot

MESSAGE SELECT BIT CLEARING FOR CLASS A (PART &)

(LEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17.
LOAD
(OMMAND AND STATUS REGISTER 1 WITH A START SPINDLE.
CLOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE
MFSSAGE SELECT BITS ARE CLEARED.

. R

\:de\nwo
[2)

N ~N

:'".fi.t'tfiti.i.fittt'tt.""'"'ttilttl’l’t'Qfittttttt*tfi‘t.ttttfi'ttt"t
000144
001270
000017
000011
100000

000057

000011
000016

016030
016036

o
o

015764
015766
015774
016000
016006
016014
016022

nono

3920

004120

OOO0OO0O0OO
parQururgurGurur®
o
LR WNG

3917
3918
3919

020000
002000
004210
004160

3887
3888
3839
3850
3891
3892
3893
3894
3895
3896
3897
3898
3899
3900
3901
3902
3903
3904
3905
3906
3907
3908
3909
3910
3911
3912
3913
3914
3915
3916

13:47

MACY11

015616
015624
015632
015636
015644
015646
015650
015656

—

3885
3886

14-SEP-81

3865
3866
3867
3868
3869
3870
3871
3872
3873
3874
3875
3876
3877
3878
3879
880
3881
3882
3883
3884

DSKLS CTRL PRT?

001200

004246
004160
000000
000026
000000

15730:

S{OPE
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#17 ,MSGCOD

;:D0 100. ITERATIONS
;LOAD RK611 BASE
;LOAD MESSAGE CODE FOR PRINT QU~

MOV

#CCLR,RKCST1(R2)

;CLEAR RK61?

MOV

#SRTSPL,E.(CST

:LOAD EXPECTED (CS?

MOV

#DMD!'17 ,RKMR1(R2)

[0
MOV

#SRTSPL ,RKCST(RZ)
#3%4+2 RO
+CLOCK

;

;PUT RK611

IN MAINTENANCE MODE

SELECT MESSAGE 17

JISSUE SRTSPL
IN DRIVE MESSAGE

TEST

(ZR6BDD RK611 DSKLS CTRL PRT2
"IR6BD.P1Y
14-SEP-81 13:47
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934

016042
016050
016056
016060
016062
016070
016076
(1€104
016112
016120
016126
016130
016136
016144

052762
042762
005300
001370
016237
016237
016237
016237
012737
032737
001403

3936
3937
3938
%gzg

016156
016160
016162
016170

001405
104042
012762
000442

3941
3942
3943
3944
%gzg

016172
016200
016202
016204
016212

3947
ggzg

3935

000026
000026

000000
000026
000034
000036
002040
020000

004120
004144
004146
006150
004204
004144

020000
000100
004210

004204
004206

004120

100000

000000

023737
001405
104043
012762
000431

004204

004146

10006C0

000000

016214
016214

032737

000100

004146

3950

016222

01002

3954
3955
3956
3957
3958
%ggg

016230
016230
016236
016244
016246
016250

013737
042737
001402
104045
000412

004150
177760

001160
001160

3961

016252

023737

004206

004146

3963
3964
3965
gggg

016262
016264
016272
016274

104046
023737
001401
104047

3962

016224
016226

01¢260

023737

000400
000400

004160

3951
%gg%

016150

052737
012737
005037

MA(CY11

1%:

10%:

BIS
Bi(
DEC
BNE
MOV
MOV
MOV
MOov
MOV
BIT
BEQ

2%:

BIS
Mov
CLR

BEQ
ERROR
MOV
BR

2%
42
#CCLR,RKCST(R2)
ST

(MP
BEQ
RROR
MOV
BR

E.MR1,T.MR|
33
43
#CCLR,RKCST(R2)
TST31

sCHECK IF MAINT REG. 1 CORRECT
JYES, CHECK MESSAGES AEB
JMAINT REG. 1 INCORRECT
;CLEAR RA611 CONTROLLER FOR NEXT
;GO ON TO NEXT TEST

B!T

#S.STSP,T.MR2

;CHEE? gETSRTSPL COMMAND

BNE

JYES, CHECK MESSAGE SELECT BITS

MOV
81C
BEQ
ERROR
BR

T.MR3,$TMPO
#177760,8TMPO
5%
45
TST31

JMASK OUT BITS NOT UNDER TEST
JCHECK IF MESSAGE SELECT ZERO
JMESSAGE SELECT BITS NOT ZERO
;.60 ON TO NEXT TEST

E.MR?,T .MR2

sCHECK [F MESSAGE A CORRECT

46
E.MR3,T.MR3
TST31
47

.MESSAGE A INCORRECT
JCHECK IF MESSAGE B CORRELT
;. YES, GO ON TO NEXI TEST
;MESS B INCORRECT

ERROR
B8R

004210

004150

58:
68%:

SEQ 0075

#MCLK ,RKMR1(R2)
#MC. K ,RKMR1(R2)
RO
1%
RKCST1(R2),T.CST
RKMR1(R2),T.MR1
RKMRZ (R2,,T.MR2
RKMR3(R?2),T.MR3
W#MEWD 'DMD,E.MRT
NECCW,T. MR
108
WECCW,E.MRY
#S.STSP,E.MR2
E.MR3

(MP

104044
000423

001401

15:'0
PAGE 76
30(1046)
14-SEP-81
T30
MESSAGE SELECT BIT CLEARING FOR (LASS A (PART 4)

(MP

BEQ

FRROR
(MP
BEQ
ERROR

E.CST1,T.(S1

44
TST31

;STORE COMMAND AND STATUS REG.
;STOKE MAINTENANCE REG. 1
;STORE MAINTENANCE REG.?2
:STORE MAINTENANCE REG. 3
;LOAD EXPECTED MAINT REG. 1

;LOAD EXPECTED MAINT REG.
;LOAD EXPECTED MAINT REG.

JCHECK IF CS1 CORRECT
JYES,

CHECK MAINT REG.

2
3

;CLEAR RK611 CONTROLLER FOR NEXT
;.60 ON TO NEXT TEST

;S.STSP BIT NOT SET
;.G0 ON TO NEXT TEST

JYES,

CHECK MESSAGE B

3968

""t."l....t.t.!....'.'...."...".t"..""'li"til.i.ttl"ttt <&

;g?g

JeTEST

3971
3972
3973
3974
3975
3976

.
.t
;"
;"
A

MESSAGE

SELECT BIT

CLEARING FOR CLASS A

(PART

TEST

(ZR6BDO RK611

CZREBD.P11

3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992

016342
016350
016354
016362
016370
016372
016374

39946
3995
3996
3997
3998
3999

016410
016416
016424
016432
016440
016442

016276
016300
016306
016312
016320
016326
016334

016402

000144

(PART

SEQ 0076

001270
000017
000G13
100000

000057

000013

000016
000400
000400

000000

000026
000034

000036
002040
020000

1S731:

004246
004160
000000
000026

SCOPE
MOV
MOV

#100. ,8TIMES
$BASE k2

MOV
MOV
MOV

#RECAL ,E.CS1
JLOAD EXPECTED (S1
#CCLR,RKCST(R2) ;CLEAR RK611
#DMD'17 ,RKMR1(R2) ;PUT RKO611 IN MAINTENANCE MODE

000000

MOV

#RECAL ,RKCST1(R2)

BIS

#MCLK,RKMRT
(RS

001200

0000co
000026

MOV

1%:

MOV

BIC
DEC

BNE
MOV
MOV
MOV
MOV
MOV

004120
004144
004146
004150
004204
004144

#17 ,MSGCOD

#324+2 RO

;.00 100. ITERAT]IONS
;LOAD RK611 BASE

;LOAD MESSAGE CODE FOR PRINT Qur

SELECT MESSAGE 17
;ISSUE RECAL

;CLOCK

IN DRIVE MESSAGE

AMCLK ,RKMR1(R2)
RO

1%
RKCS1(R2),T.CS1
RKMR1(R2),T.MR1
RKMR2(R2),T.MR2
RKMR3(R2),T.MR3
#MEWD
'DMD ,E .MR1

,STORE COMMAND AND STATUS REG.
;STORE MAINTENANCF REG. 1
;STORE MAINTENANCE REG.?
;STORE MAINTENANCE REG. 3
;L OAD EXPECTED MAINT REG. 1

#S_RECL ,E.MR¢

JLOAD EXFECTED MAINT

MOV

#CCLR,RKCST(R2)

;CLEAR RK611

CONTROLLER FOR NEXT

TESI

(MP
BEQ
ERROR
MOV

E.MR1,T.MR1
3$
43
#CCLR,RKLST(R2)

;CHECK IF MAINT REG. 1 CORRECT
JYES, CHECK MESSAGES A&B
JMAINT REG. 1 INCORRECT
:CLEAR RK611 CONTROLLER FOR NEXT

TEST

8lT

#S.RECL,T.MR?2

;CH55§ gETRECAL COMMAND

BIT
BEQ
BIS

HECCW, T.MR1
108
NECCW,E.MR

(LR
(MP
BEQ
ERROR

E.MR3
E.CST,T.(M
2$
42

10000C

000000

023737
001405

004204

004144

012762
000431

100000

000000

016526

032737

000040

004146

016534
016536
016540

001002

BNE

JYES,

000423

TST3?

;:G0 ON TO NEXT TEST

016564

016572
016574
016576
016604

013737
042737
001402

2%:

B8R
3%:

ERROR

004150

N23737
001401

004206

004146

023737
001401

004210

177760

4%:

104045

000412

104046

MOV

B8R

104044

016542
016542
016550
016556
016560
016562

104043

904120

—

016526

000442

10%:

—

016504
016512
016514
016516
016524

023737

4029
4030
4031
4032

15:10
14-SEP-81
PAGE 77
MESSAGE SELECT BIT CLEARING FOR (LASS A

004204
0042006

4015
4C16
4017
4018
4019
4020
4021
4022
4023

4027
4028

30(1046)
13

020000
000040
004210
004160

016450
016456
016462
016470
016472
0106474
016502

4024
4025
4026

13:47

MACY11

:;'QQ..'Q.'..'......'.""'Q..Q...'Q.."'Q.fi...QQQ.Q'Q."."‘.t"

4000
4001
400¢
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4613

40146

14-SEP-81
[eolelolololololelololelolololaleoelelelelelolo)
— i e i ek b O
O=\VNO W=
o2 2 =2 OO
\N—2 2
VNN = PRORVONONONON
=
NURNUNUND
RUNPNOUNDWN
O
O NN NNNPRONIN
NN
NN
ONNNNNNO
WWWO WWWINWWANNG
W
~
NN NWNNNNNNOO

3993

DSKLS C(TRL PRT?

004150

5¢%:
6$:

MOV

T1ST32

18732

T.MR3,$TMPO

REG.

JLOAD EXPECTED MAINT REG,
JCHECK [F CST1 CORRECT
JYES, CHECK MAINT REG. 1

;.60 ON TO NEXT TEST

CHECK MESSAGE SELECT R]TS

;S.RECL BIT NOT

SET

;MASK OUT BITS NOT UNDER TEST

BIC
BEQ
ERROR
BR

#177760,%$TMPO
5%
45
TST32

(MP

E.MR2,T.MR?

JCHECK IF MESSAGE A CORRE(T

ERROR
(MP

46
E.MK3,T.MR3

JMESSAGE A INCORRECT
JCHECK IF MESSAGE B CORRECT

BEQ
BEQ

TST32

JCHECK ]F MESSAGE SELECTY ZERO
JMESSAGE SELECT BITS NOT ZERO
;:6G0 ON TO NEXT TEST
JYES, CHECK MESSAGE B
;:YES, GO ON TO NEXT

TEST

CZR6BDO RK611 DSKLS CTRL PRTZ
14-SEP=-81 13:4~
TIR6BD. P11

4088

14-SEP-81

.
M
M
Pe

SELECT BIT CLEARING FOR CLASS A

ERROR

PUT (ONTROLLER IN

MESSAGE SELECT BITS ARE CLEARED.

2 2222222222222 22R 2222222222822

E2XRERR2 2R 8 23]

000000

#OFFSET ,RKCST1(R2)

BIS

#MCLK ,RKMR1(R2)

000000
000026
000034

004120
004144
004146
004150
004204
004144

000026
000020

020000
004206
017760
004160

004204

100000

000000

004204

004144

100000

000000

—

oo
OO

——

004210
004120

TST%2:

WITH CONTROLLER CLEAR.

000015
000016
000400
000400

€00057

—

~N)

(PART 6)

004760
000000
000026

100000

001200

—

ol
lolololelw]
D
b
) —d
ed
d

o
~

D —d
)
d

CLEARING FOR CLASS A

004246

013737
042737
001402

1%:

004206

004146

MOV

BIC
DEC

BNE
MOV
MOV
MOV
MOV

MOV

10%:

2%:

3s:

5¢:

;

#3%4+2 RO

SELECT MESSAGE 17
JISSUE OFFSET

;CLOCK

IN DRIVE MESSAGE

;STORE
;STORE
;STORE
;STORE

COMMAND AaND
MAINTENANCE
MAINTENANCE
MAINTENANCE

#MCLK ,RKMR1(R2)
RO

1%
RKCST{(R2),T.CS1
RKMR1(R2),T.MR1
RKMR2(R2).T.MR2
RKMR3(R2),T.MR3
AMEWD 'DMD

,E.MR1

STATUS REG.
REG. 1
REG.?
REG. 3

;LOAD EXPECTED MAINT REG.

RECCW,T. MR1
10%
#ECCW,E.MR1
E.MR?2
#17760,E.MR3
E.CS1,T.CS
2%
4?2
#CCLR,RKCST(R2)
TST33

CMP
BEQ
ERROR

E.MR1,T.MR1
3
43

;CHECK [F MAINT REG. 1 CORRECT
JYES, CHECK MESSAGES AgB
;MAINT REG. 1 INCORRECT

B8R

TST33

23G0 ON TO NEXT TEST

T.MR3,$TMPO

JMASK OUT BITS NOT UNDER TEST

MOV

#CCLR,RKCST(R2)

B8IC
BEQ
ERROR
B8R

l1 7760,%TMPO
5%
45
15733

(MP

E.MRZ2, T .MR?

BIT
BEQ
BIS
(LR
MOV
CMP
BEQ
ERROR
MOV
BR

MOV

104045
000412

023737

SELECT BIT

#100.,$TIMES
;:D00 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#17 ,MSGCOD
;LOAD MESSALE CODE FOR PRINT QuT
#OFFSET,E.CST
;LOAD EXPECTED rS1
#CCLR,RKCSY(R2) ;CLEAR RK611
#DMD .17 ,RKMR1/R2) :PUT RK611 IN MAINTENANCE MODE

020000

) wd

017062

2232222AZ2 2222222223822 2222222222t
AR R R ]

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV

000144
001270
000017
000015

000036
012040

017056
017060

SEQ 0077

JMESS B INCORREC(T

MESSAGE

CLEAR RK611

:" | Z 2 RS XXX

023737
001405
104043
012762
000423

(PART

DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17. LOAD
COMMAND AND STATUS REGISTER 1 WITH A OFFSET.
(LOCK MESSAGE TO LOAD B SHIFT REG. TIME.
MAKE SURE

* R

PAGE 78

62
62

15:10

MESSAGE

2222222232322

SRTEST

o0
0O

4077
4078
4079
4080
4081
4082
4083
4084
4085
4086
4087

S22

)

‘048

4049
4050
4051
4052
4053
6054
4055
4056
4057
4058
4059
4060
4061
60562
4063
4064
4065
4066
4067
4068
4069
4070
4071
4072
4073
4074
4075
4076

30(1046)

104047

—

4040
4046
L0462
4063
64044
6045
6046
4047

016606

elelele NoleloleleBolalolalololeololololalalalalelololalolelo

4033
4034
4035
4036
4037
4038
4039

MACY11

:LOAD EXPECTED MAINT REG 2
JLOAD EXPECTED MAINT REG 3
;CHECK IF CS1 CORRECT
JYES, CHECK MAINT REG. 1
;CLEAR RK611 CONTROLLER FOR NEXT TEST
;:60 ON TO NEXT TEST

;CLEAR RK611

CONTROLLER FOR NEXT

JCHECK IF MESSAGE SELECT ZERO
JMESSAGE SELECT BITS NOT ZERO
;:G0 ON TO NEXT TEST

:CHECK IF MESSAGE A (ORRECT

TgST

(ZR6BDO RK611 DSKLS CIRL PRTM2
14~SEP-81 13:47
CIR6BD.P11T

6111
6112

6%:

104047

BEQ
ERROR
CMP
BEQ
ERROR

SEQ 0078

JYES, (HECK MESSAGE B
JMESSAGE A INCORRECT
JCHECK JF MESSAGE B (ORRECT
;. YES, GO ON TO NEXT TEST

JMeSS B

MESSAGE

(PART 6)

INCORRE(CT

AR RS
RRRRRN]

SE_ECT P.T CLEARING FOR CLASS A

(PART

M
M
.t

M
.*
- %

CLEAR RK611 WITH CONTROLLER CLEAR.
PUT CONTROLLER IN
DIAGNOSTIC MODE WITH MESSAGE SELECT BITS = 17,
LOAD
(OMMAND AND STATUS REGISTER 1 WIT4 A SEEK.

C(LOCK MESSAGE TO LOAD B SHIFT REG.
MESSAGE SELECT RITS ARE CLEARED.

TIME.

MAKE SUKE

E'..'..'.'.*.'.'....""""'.Q'....“".'.'.".".fi"tfi‘ittit‘.I

017122
017130
017136
017144

000057

000017
000016
000400
000400

d wmd b O

017106
017110
017116

017272
017300
017302
017304
017312

161
L1642
47463

004150

[

41¢9
4130
4131
4132
6133
§134
4135
613
4737
«138

4139

004270

2222322220222
R

(017152
017160
017164
017172
017200
017202
017204
017212
017220
017226
017234
017242
017250
017252
017260

6140

PAGE 79
14-SEP-81
30(1046)
15:10
T
132
MESSAGE SELECT BI
CL EARING FOR CLASS A

'TEST 33

41'3
4114
4115
4116
4117
4118
4119
4120
6121
4122
4123
6126
4125
4126
6127

4128

023737
001401

4108
4109
4110

MACY11

701407

104046

—

4100
4101
6102
4103
4104
4105
4106
4107

017070
017072
017074
017102
017104

OOOOOOOO

4089
4090
4091
4092
4093
4094
4095
4096
6097
4098
4099

OOO0OOOOCOOOOCOOOOOO
B ANON = b =d e = OO
N2

000144
001270
000017
000017
100000

090000
000026
000034
000036
002040
020000

001200
004246
004160
000u00
000026

000026
000026

000000

023737
001405

004204

006144

01733

012762
000431

100000

000000

01733%
017336

032737

000020

004146

017364

001002

104043

MOV

#SEEK ,RKCS1(R2)

8IS
BIC

#MCLK ,RKMR1(R2)
AMCLK ,RKMR1(R2)

MOV

C04° 45
004150
004204
004 144

100000

#100.,8$TIMES
$BASE ,R?2

DEC
BNE
MOV

004120 °

012762
000442

017314
017322
017324
017326

006144

004204
004206

SCOPE

MOV
MOV

MOV
MOy
MOv
MOV

000000

020000
000020
004210
004160

017266

TST33:

10%:

004120

28:

MOV
MOV
MOV
817
BEQ
BIS
MOV
CLR
(MP
BEQ
ERROR
MOV
8R

#17,MSGCOD
;LOAD MESSAGE CODE FOR PRINT OUT
#SEEK ,E.CST
;LOAD EXPECTED (S1
#CCLR,RKCS1(R2) ;CLEAR RK611
#DMD'17 ,RKMR1(R2) ,PUT RK611 IN MAINTENANCE MODE

;

SELECT MESSAGE 17

;ISSUE SEEK

#3x4+2 R0

;CLOCK

RO
1%
RKCST1(R2),T.CS1

,STORE COMMAND AND STATUS REG.

RKMR1(R2),T.MR1

IN DRIVE MESSAGE

;STORE MAINTENANCE REG.

RKMRZ2(R2),T.MR2
RKMR3(R2),T.MR3
#MFWD
'DMD ,E.MR1
#ECZW,T.MR1
108
#ECCW,E.MRT
#S.SEEK,E.MRZ
E.MR3
E.CST,T.CST
2%
42
#CCLR,RKCST1(R2)
TST34

;STORE MAINTENANCE REG.?
:STORE MAINTENANCE REG. 3
;LOAD EXPECTED MAINT REG. 1

£E.MR1,T.MR1

JCHECK IF MAINT REG.

JMAINT REG,

;LOAD EXPECTED MAINT REG.
JLOAD EXPECTED MAINT REG.
;CHECK [F CS1 CORRECT
JYES, CHECK MAINT REG. |

:CLEAR RK611 CONTROLLER FOR NEXT TEST
:;G0 ON TO NEXT TEST

1 CORRECT

MOV

#CCLR,RKCST(R2)

#S.5E5Ex,T MR

(Hgg? l: SEEK (OMMAND

BNt

I8 3

DVES, (MECK MESSAGE SELECT BITS

B8R

TST34

2
3

B8EC

ERROR

b1 ¥

;200 100. ITERATIONS
:LOAD RK611 BASE

JYES, CHECK MESSAGES AEB
;CLEAR RK611

INCORRE(CTY

(ONTROLLER FOR NEXT TEST

;.60 ON TO NEXT TEST

4153
4154
4155
4156
4157
4158
4159
4160
4161
4162
4163

017366
017370
017372

017374
017402
017404
017406
017414
017416

—

013737
042737
001402

023737
001401

004206

004144

5%:

023737
001401
104047

004210

004150

68:

.SBTTL

4165
4166
4167
4168
4169
4176
4171
4172

;S.SEEK BIT NOT SET

T.MR3,$TMPO

;MASK QUT BITS NOT UNDER TEST

TST34

;;G0 ON TO NEXT TEST

BIC
BES
ERROR
BR

#177760,%TMPO
5%
45
TST34

CMP
BEQ

E.MR2,T.MR?
6%

JCHECK 1F MESSAGE A CORRECT
;YES, CHECK MESSAGE B

(MP
BEQ

E.MR3,T.MR3
TST34

JCHECK IF MESSAGE B CORRECT
;sYES, GO ON TO NEXT TEST

ERROR

JCHECK [F MESSAGE SELFCT ZERO

JMESSAGE SELECT BITS NOT ZERO
;:G0 ON TO NEXT TEST

JMESSAGE

INCORRECT

JMESS B

INCORREC(T

««DRIVE MESSAGE LOOPBACK AND PARITY GENERATION TESTS

EAEEREARERASR

SRRt RRRRRRRRRRttttttRRRRRRRRRRtsRt
RS

SHTEST

DRIVE MESSAGE LOOPBACK

* %

i
*

i
i
i
i

CLFAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE INDICATING MESSAGE 3. LOAD COMMAND

STATUS REGISTER FOR DRIVE 5. LOAD COMMANC AND STATUS
REGISTER 1 WITH A SELECT COMMAND.
C(LOCK & BITS
THROUGH THE DRIVE MESSAGE LOOPBACK. VERIFY THAT BITS
ARE

INDEED LOOPED BACK.

PN NINOWNNOWNO

OOOOCOO0OOOO0O

017504
017512
017520
017524
017532
017540
017542
017544
017552
017560
017566
017570
017572

NNNNNO

017420
017422
017430
017434
017442
017446
017454
017462
017470
017476

J\Ob\JNNWWVg\I\JN

WO WW
—=ONINN

e
s R R el TM ]

:" L2328 22222233803R0202R

Q=200 O0CO0O0COOOO0
QOOON
= =00
N
Q& = NOO =R

<200

MOV

ERROR

4164

4173
4174
4175
4176
4177
4178
4179
4180
4181
4182
4183
4184
4185
4186
4187
4188
4189
4190
4191
4192
4193
4194
4195
4196
4197
4198
4199

48:

104045
000412

104046

14-SEP-81
15:10
PAGE 80
MESSAGE SELECT BIT CLEARING FOR CLASS A (PART 7)
ERROR
BR

104044

oo
OO

017352
017352
017360

3?;%046/

000423
—

017346
017350

OO
OO

4145
4146
6147
4148
4149
4150
4151
4152

MACY1

000144
001270
100000
004256
000005
000005
000003
000003
000043

001200

000005
000001
000016
000400
000400

000010
000000

000034
000036

004146
004150
004146

004206

TST34:

MOV

000000

MOV
CLR
MOV
MOV
MOV
MOV
MOV

004206
004230
004210
004232
600026

000026
00C026

SCOPE
MOV

#100.,8TIMES

$BASE .R2

8200202222822

;;DO 100,

RRRRRRRSRRR

ITERATIONS

:LOAD RK611 BASE

MoV

#CCLR,RKCST(R2) :CLEAR RK611
SFTCNT
;INITIALIZE SHIFT COUNT
#5,E.MR2
:LOAD EXPECTED SHIFT REG, A
#5.U.MR2
:LOAD UNSHIFTED SHIFT REG. A
#3.E.MR3
:LOAD EXPECTED SHIFT REG.B
#3’U.MR3
:LOAD UNSHIFTED SHIFT REG.B
#DMD . 3, RKMR1 (R2)
;PUT_RK611 IN MAINT. MODE
;
MESSAGE SELECT = 3
#5,RKCS2(R2)
_:LOAD DRIVE NUMBER
= 5

MOV
BIS
BIC
DEC
BNE
MoV
MOV

#3%4+2 RO
#MCLK ,RKMR1(R2)
#MCLK ,RKMR1 (R2)
RO
1$
RKMR2(R2),T.MR2
RKMR3(R2);T.MR3

ERROR

MOV

18:

2202028300

CMP
BEQ
BR

#SELDRV,RKCS1(R2)

; ISSUE SELECT DRIVE

;CLOCK IN MESSAGE
:ISSUE CLOCKS

E.MR2,T.MR2
2%

;STORE SHIFT REG. A
:STORE SHIFT REG. B
:CHECK SHIFT REG A CORRECT
:YES, CHECK SHIFT REG. B

TST35

;G0 ON TO NEXT TEST

:SHIFT REG A INCORRE(CT

SEQ 0079

Y r—

(ZR6BDO RK611 DSKLS CTRL PRT2
CZREBD.P11
14-SEP-81 13:4~

(ZR6BDO RK611 DSKLS CTRL PRT?

13:47

0 17574
0 17602
0 17604
0 17606

023737
001402

004210

017610
017616
017620

032737
001402
000261
000401

[ )\ N0 JPE YU S

NP W

OO0 00NN
WY

PP 2P 2 W oW ol o o a2
norurorONOrPONONORY

017622

017624
017626

017632
017636
017642
017646
017654

14-SEP-81
15:10
PAGE 81
DRIVE MESSAGE LOOPBACK

004150

28%:

CMP
BEQ

E.MR3,T.MR3
3%

TST35

ERROR

104051

000423

000241
006037
006037
012700
005237
022737
103323

3%:

000001

004206
004210
000004
004256
000004

4201
4202
4203
4204
4205

14=5EP-81

BIT

BEQ
SEC
BR

SEQ 0080

sCHECK SHIFT REG B CORRECT
JYES, SHIFT A BIT

JSHIFT REG B INCORRECT

#BITO,E.MR3

JCHECK IF

;:G0 ON TO NEXT TEST

SHIFT BIT =1

JNO, CLEAR SHIFT BIT
JSET SHIFT BIT
JGENERATE EXPECTED SHIFT

;

REGISTERS A & B

CLC
ROR

E.MR?

JCLEAR SHIFT BIT
sGENERATE EXPECTED SHIFT REG A

MOV
INC
CMP

#4 ,RO
SFTCNT
#4,SFTCNT

sLOAD COUNT FOR 1 BIT SHIFT
o INCREMENT SHIFT BIT COUNT
JCHECK IF FINISHED

ROR

E.MR3

BHIS

sGENERATE EXPECTED SHIFT REG B

JNO,

SHIFT IN NEXT BIT

M ASASEEASRRARaRSSRSRARRRRRERSR
R R0
2202322222228}

I
I

%
%
P’

THROUGH

004206

S~
oo

000034
000036

1%:

737
402
104C050
431

000016

000400
000400

MESSAGE

THE

SHIFT

WITH A SEEK
DRIVE

SHIFTED PROPERLY.
ASEEEERSSesR

T9T35

(e
o

o OCOOO0OVOOT
OOOOCOOOO
ON==OOH
N
—emd
el —d—d—d
=S WONON
s nrrOND) . NP

237
237

020036

IN c4

MESSAGE

SECTOR MODE.

LOOPBACK.

VERIFY

CLOCK 8 BITS

THAT BITS ARE

SCOPE

SRRt RARRSRRRRRRRR2E2S0RRZR222
2222 2R

MoV

#100.,8$TIMES

::D0 100.

MOV

#3%4+2 RO

sCLOCK

[N MESSAGE

BNE
MoV
MOV
CMP

1%
RKMR2(R2) ,T.MR2 ;STORE

SHIFT REG.

MOV
MOV
CLR
MOV
MOV
MOV
MOV
MOV
MoV
MOV
Mov

762
762

DRIVE

CLEAR THE RK611 WITH A CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. LOAD CYLINDER ADDRESS WITH 441,
LOAD HEAD ADDRESS WITH 1. LOAD COMMAND AND STATUS

000004

LIPS
TR

SRR I

*TEST

4256

30(1046)
T34

(WL
o

TIR6BD.

MACY11

BIS
BIC
DEC

BEQ

ERROR

ITERATIONS

$BASE ,R¢
JLOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RK611
SFTCNT
JINITIALIZE SHIFT COUNT
H#S.FMT!S.SEEK!BIT12,E.MR2
sLOAD EXPECTED SHIFT REG. A
#S.FMT!S.SEEK.BIT12,U.MR2
sLOAD UNSHIFTED SHIFT REG.
#11020,E .MR3
sLOAD EXPECTED SHIFT REG. B
#11020,U.MR3
sLOAD UNSHIFTED SHIFT REG. B
#DMD ,RKMR1(R2)
;PUT RK611 [N MAINT. MODE
#4461 ,RKDCYL(R2) ;LOAD CYLINDER ADD. REG.
#400,RKDA(R2)
;LOAD DISK ADDRESS REG.
#SEEK.CFMT ,RKCS1(R2)
s ISSUE SEEK

#MCLK ,RKMR1(R2)
AMCLK,RKMR1(R2)
RO

;IZSUE CLOCKS

RKMR3(R2),T.MR3 ;STORE SHIFT REG. B
E.MR2,T.MR2
JCHECK SHIFT REG A CORRECT

JYES, CHECK SHIFT REG. B

TST356

;.60 ON TO NEXT TEST

50 _

JSHIFT REG A INCORRECT

(ZR6BDO RK611
{IR6BD P11

4305
4306
4307
4308
4309
4310
(311

4312

023737

001402

004210

004150

28:

(MP
BFQ
EKROR
BR

E.MR3,T.MR3
3s
51
TST36

000C01

004210

3%:

BIT

#BITO,E.MR3

104051

000423

020054
020062
020064
020066

022737
001402

020070
020072
020076
0201G2
020106
020112
020120

000241
006037
006037
012700

000261
000401

005237
022737
103323

004206
004210
000004
004256
000010

6%:

5%:

BEG
SEC
BR
CLC

ROR
ROR
MOV

INC
(MP
BHIS

004256

3 3

SEq (087

sCHECK SHIFT REG B (ORRECT
JYES, SHIFT A BIT
;SHIFT REG B INCORRE(CT
;.60 ON TO NEXT TEST
;CHECK IF SHIFT BIT = 1

sNO, CLEAR SHIFT BIT
JSET SHIFT BIT
JGENERATE EXPECTED SHIFT
;
REGISTERS A & B
;CLEAR

E.MR?
E.MR3
#4 ,RO

SFTCNT
#8.,SFTCNT
1%

SHIFT BIT

;GENERATE EXPECTED SHIFT REG A
JGENERATE EXPECTED SHIFT REG B
sLOAD COUNT FOR 1 BIT SHIFT
s INCREMENT SHIFT BIT COUNT
;CHECK IF FINISHED
JNO, SHIFT IN NEXT BIT

""tl'ttttttt*ttttttfittttt"ttl'tt\"tfit't'ttt'tttttttt't'ttttt'tttfit

;*TEST 36

4271
4272
4273
4274
4275
4276
4277
4278
4279
4280
4231
L28¢
(283
4284
4285
4286
4287
4288
£289
4290
4291
4292
4293
4294
4295
4296
4297
4298
4299
4300
4301
4302
4303
4304

14-SEP-81
15:10
PAGE 82
DRIVE MESSAGE SHIFT

TR IR

4270

020040
020046
020050
020052

3?§;046)

DRIVE MESSAGE PARITY PRECONDITIONING

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER 1 WITH

A SELECT COMMAND. CLOCK ALL 16 BITS THROUGH THE
DRIVE MESSAGE LOOPBACK. VERIFY PARITY HAS BEEN PRECONDITIONED
PROPERLY.

REPEAT

FOR BAD

PARITY

GENERATION.

4257
4258
4259
4260
4261
4262
4263
4264
4265
(266
4267
4268
4269

VACY1Y

DSKLS CTRL FRT2
14~SEP-81 13:47

E;tttt*ttttttttttttttttttttttttttttttttttttttttttttttttttttt'tttt
020122
020124
020132
020136
020144
020152
020160
020164
020172
020200
020202
020204
02C212
020220
020226
020234

000144
001270

100000

000040
000001
000116
000440
000040

000034
000036

100000
100000
100000

001290

TST36:

000C00
000026
000000
000026
000026

1%:

SCOPE
MOV
MOV
MOV
MoV
MOV
MOV

#100.,8TIMES
;.D0 100. ITERATIONS
$BASE ,R2
;LOAD RK611 BASE
#CCLR,RKCST1(R2) ;CLEAR RK611
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
#SELDRV,RKCST1(R2) ;ISSUE SELECT DRIVE
#19.%442 RO
;LOAD DRIVE MESSAGE AND SHIFT

MOV

#DMD ,RKMR1 (R2)

MOV

DEC
BNE
MOV
MOV
MOV

004146
004150
004206
004210
004150

MOV

000412

020264

023737

ALL

16 BIIS

RO
1%
RKMR2
(R2) ,T.MR2 ;STORE SHIFTED MESSAGE B
RKMR3(R2),T.MR3 ;STORE SHIFTED MESSAGE A
#100000,E.MR2
;LOAD EXPECTED MESSAGE B
;LOAD EXPECTED MESSAGE A

BNE

JYES,

;TRY EVEN PARITY

ERROR

020250
020256
020260
020262

;

#100000,E.MR3

BIT

020242
020244
020246

#DMD !MCLK ,RKMR1(RZ2)

#BIT15,T.MR3
52

sCHECK

IF PARITY ON MESSAGE A (ORRECT

CHECK PARITY ON MESSAGE B

;PARITY ON MESSAGE A INCORRECT

100000

004146

2%:

BIT

#BIT1S,T.MR?

sCHECK

004210

004150

3%:

(MP

E.MR3,1.MR3

sCHECK JF MESSAGE A CORRECT

BNE
ERROR
BR

3%
53
5%

PARITY ON MESS B CORRECT

JYES, CHECK MESSAGE A AND B
JPARITY ON MESSAGE B INCORRECT
;TRY EVEN PARITY

ZIR6BDD RK611
TIR6BD LU
020272
020274
020276
020304
020306
0290310
020316

DSKLS CTRL PRTZ
14-SEP-81

30(1046)
136

001407

104054

023737

001401
104055

004206

004146

4$:

100600

000000
000026

000060

020324
020332
020336
020344
020352

020354
020356

020364
020372
020376
020402
020410
020412
020414

13:47

MACY11

BEQ

SYES,

CMP

£.MR2,T.MR2

“CHECK

ERROR

CHECK MESSAGE 8

*MESSAGE A INCORRELT
IF

BEQ
ERROR
MOV

5%
55
#CCLR,RKCST(R2)

MOV

:
#SELDRV,RKCS1(R2)

MOV

#DMD ' PAT 'MCLK,RKMRT(R2)

MOV

SEQ 0082

MESSAGE B CORRECT

LYES, TRY EVEN PARITY
*MESSAGE B INCORRE(CT
:CLEAR RK611

#DMD . PAT ,RKMRT
(R2)

;PUT RK611

MAINTENANCE MODE

AND EVEN PARITY
;ISSUE SELECT DRIVE

000001
000116
000460
000060

000000

000034
000036
004206
004210

004146
004150

BNE
MOV
MOV

6$
RKMR2 (R2),T.MR2 :STORE
RKMR3(R2) .T.MR3 :STORE

SHIFTED MESSAGE B
SHIFTED MESSAGE A

004150

BIT

#BIT15,T.MR3

ERROR
BR

56
15137

100000

000024
0000¢co

6% :

BFQ

032737
001402

020432
020440
020442
020444
020452
020454

023737
0016401

004210

004150

8% :

023737
0014017

004206

0047456

9% :

004146

MOV

CLR
CLR

0204616
020624
020426
020430

100000

MOV
DEC

00v420
7%:

104057

000412

104060

14-SEP-81
15:10
PAGE 83
DRIVE MESSAGE PARITY PRECONDITIONING

104061

#19.%4+2,R0

:LOAD DRIVE MESSAGE AND SHIFT

#DMD . PAT ,RKMRT
(R2)

ALL 16 BITS

E.MR2
E.MR3

*LOAD EXPECTED MESSAGE B
*LOAD EXPECTED MESSAGE A

“YES,

CHECK

PARITY ON MESSAGE A CORRE(T

CHECK PARITY ON MESSAGE B

"PARITY ON MESSAGE A
©:G0 ON TO NEXT TEST

BIT

#BIT15,T.MR2

:CHECK

ERROR
BR

57
1ST37

*PARITY ON MESSAGE B INCORRECT
©:G0 ON TO NEXT TEST

BEQ

“YES,

INCORRECT

PARITY ON MESS B

CHECK MESSAGE A AND B

CMP
BEQ
ERROR

E.MR3,T.MR3
9%
60

;CHECK IF MESSAGE A CORRE(CT
*YES, CHECK MESSAGE B
"MESSAGE A INCORRECT

BEQ
ERROR

15737
61

“.YES, GO ON TO NEXT TEST
:MESSAGE B INCORRECT

CMP

E.MR2,T.MR2

“CHECK

CORRET

MESSAGE B CORRE"T

'-:ltt"Qtttt!"ttfittttt'tttttttttittttt't’i'fiitt.tttttt!Qt'ttittt

LeTEST 37
e
D

ODD DRIVE MESSAGE PARITY GENERATION

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE AND MESSAGE SELECT = 1.

D
i

LOAD COMMAND AND STATUS REFISTER 2 WITH DRIVE
SELECT = 1. LOAD COMMAND AND STATUS REGISTER 1 WITH

DRIVE SELECT = 2-17.

D
s
b

A SELECT COMMAND. VERIFY THAT PARITY HAS BEEN
GENERATED CORRECTLY. REPEAT FOR MESSAGE SELECT =

:"'t'l'ttltitttt!.ttt.tt""ittlt'tl'ltt'tltttt'tttt'tttttt.ttt-.l
020456
020460
020466
020472
020500

020506

000144
001276
000001
020506

001200

T5737.

SCOPE

MOV

#100.,$TIMES

;:DO 100.

MOV
MOV

#1,DRYCOD
#1%,$LPERR

*LOAD DRIVE CODE
*LOAD LOOP ON ERROR

MOV

004244
001110
1%:

$RASE . R2

ITERATIONS

‘L 0AD RK611

;

BASE

SUBTEST LOOP

LOCATION FOR

4370
371

(372

6373

4374
4375
4376
4377

4378
4379
4380
4381
4382
4383
4384
4385
4386
4387
4388
(389

4390

4391
4392
4393
4394
4395
4396
4397
4398
4399
4400

46O

L4072

4403

L4604
4405
44Ut

L4007
L4408
4609
4410
L6111
L6132

4413
L4614

L4615

4616

4617
4418

419
64620
6.1
6622
L6:%
AA

020506
020514
020522
020530
020536
020544
020550
020556
020564
020566
020570
020576
020604
020610
020614
020610
020620
020622
020624
020626
020630
020636
020644
020650
020654
020656
020664
020672
020700
020706
020714
020722
020724
020726

14-SEP-81

13:47

100000

004244
00040
004244
000001
000116
000400
000400
000034
000036
004244
000004

30(1046)

000000
000026
000026
000010

BIS

000000

000026
000026
0041
0041

2$:

004206
004210

10000C
100000
100000

004260
004206
004210
001160
001160

0046150
077777
014260

020760
020766
020770
020772
021000
021002

023737
001401

004210

023737

004206

004146
077777
004260

6%:

104053

000412

104054

004244
000017

0046150
004146

7%:

8%:

2°%:

0064244
WA

DRVCOD,RKMR1(R2)

#DMD ,RKMR1(R2)

DRVCOD,RKCS2(R2)

;CLEAR RK611
;LOAD MESSAGE SELECT (ODE
JPUT RK611 IN MAINTENANCE MODE

;LOAD DRIVE SELECT CODE
s ISSUE SELECT DRIVE
;LOAD DRIVE MESSAGE AND SHIFT

#SELDRV,RKCS1(R2)

#19.%4+2
R0

AMCLK ,RKMR1(R2)
#MCLK ,RKMR1(R2)

;

ALL

16 BITS

MoV
MoV
MOV
ROR
BCC
INC
DEC

4%
R&
R3

mMnv
MOv

DRVCOD,E .MR?
DRVCOD,E.MR3

JLOAD EXPECTED SHIFTED REG. B
sLOAD EXPECTED SHIFTED REG. A

5¢

JPARITY ALREADY ODD

CLR

MOV

5%:

#CCLR,RKCSY(R2)

SEQ 0083

RKMR2 (R2) ,T.MR2 ;STORE SHIFTED MESSAGE B
RKMR3(R2).TT.MR3
.
;STORE SHIFTED MESSAGE A
P
DRVCOD,
;DETERMINE PARITY
#4 R3

CLR
BIT
BNE

001160

001160
001160
001160

BIS
BI(C
DEC
BNE

BNE

000426

013737
042737
023737
001402

MOV
MOV
MOv

mMov

4%:

004244
004244
004260
000001

F
7
15:10
PAGE 84
ODD DRIVE MESSAGE PARITY GENERATION
14-SEP-81

MOv
MOV

3%:

020730
020736
020744
020752
020754
0¢0756

021004
021006
021912
021020

MACY1Y

(AP
o
[aPR%

4349

DSKLS (TRL PRT?

SIS L300
FR NS S Sx

"IRABDO RKET1T
"IR68D P11

BIS
BIS

Mov

BIC
(MP
BEQ
ERROR
BR
MOV

R4
R1

PARBIT
#BIT0,R4

JCHECK FOUR PARITY ON WORD

#81T15,PARBIT
#BIT15..E
MR
#BIT15.E.MR3
T.MR3,$TMPO

477777, $1MPO
PARBIT.$TMPO

;SET PARITY BIT

JMASK ALL BITS EXCEPT PARITY

JCHECK IF PARITY CORRECT

6$
52
25%

;CHECK IF LOOP ON ERROR

T.MR2,$TMPO

JMASK ALL BITS EXCEPT PAR]ITY

PARBIT.$TMPO

sCHECK IF PARITY CORRECT
ON MESSAGE B
;

;

ON MESSAGE A

;PARITY

ON MESSAGE

INCORRECT

BIC
(MP
BEQ
ERRCR
BR

#77777.$TMPO
53
258

;PARITY

(mMP

E .MR3,T.MR3
8$

sCHECK IF MESSAGE A CORRECT
JYES, CHECK MESSAGE B
JMESSAGE A INCORRECT
;(HECK IF MESSAGE B CORREC(T
JYES, CHECK IF LOOP ON ERROR
;MESSAGE B INCORRECT
sCHECK IF LOOP ON ERROR
s INCREMENT DRIVE SELECT CODE
sCHECK [F FINISHED

BEQ
ERROR

(MP
BEQ
ERROR
SCoP1
INC
(MP
BHIS
AR AR

LeTEST 40

54
E .MR2,T.MR?
2 5%
55
RvCOD
DRV
1 17,0 ,DRVCOD

SRR

ON MESSAGE

INCORRE(T

;CHECK IF LOOP ON ERROR

sNO,
A

DRIvE MESSAGE

TRY NEXT
X

COMF]GURAT]ON

AR 2R

PARITY

INTERACTION

R XX 2

SRR

IR6BDI RK61Y
. F11
"IR6BD

4459
4660
4661

b
b
—d
ek

d od —d
b

eolelolololelels
o]
e
= BI P ¥ g )
NINUPNINIWNININN
O
NN NNO NNNO
INNWNWIWNWO
WO
NNNN NN
NS

000144
001270
000001
004246
100000

000001

100000

021100

100000

004246
000040
006244
000001
000116
000400
000400

NONO
VNN S WWN
OMNOOONONON

4453
4454
4455
64656
4457
4458

4651
6452

021100
021100
021106
021114

L4447
4448
L4449
4450

021050
021056
021064
021072

4443

L6446
4445
INANS

010034
000036
004150
0727777
004260

001200

004244
004206
004270
004269
001110

000000
000026
000026
000010
000000
000026
000026

1%:

2%:

004146
0046150
001°63

AND DRIVE

001160
001160

023737

004210

004150

004206

004146

5%:

004244

SELECT = 0.
R

RS RN

ENNY

MSGCOD
#BIT15,E.MR2
#8170 ,E .MR3
#BI1T15,PARBIT

JSET INITIAL MESSAGE SELECT (ODE
:LOAD EXPECTED MAINT. REG. 2 (MESS B)
:LOAD EXPECTED MAINT. REG. 3 (MESS A)
:LOAD PARITY FOR MESSAGE B

#1,DRVC0OD

#18,$LPERR

;SET INITIAL DRIVE SELECT CODF

:LOAD

LOOP ON ERROR

SUBTEST LOOP

LOCATION

MOV
MOV

#CCLR,RKCS1(R2) :CLEAR RK611
MSGCOD,RKMR1(R2) ;LOAD MESSAGE

SELECT

MOV

#SELDRV,RKCS'(R2)

;I1SSUE

SELECT

AMCLK ,RKMR1(R2)
K
. RKMR1(R2)
#MCL
RO
2%

ALL

MOV

BIS
BIC
DEC
BNE

#19.%44+2,R0

CODE

DRIVE

;LOAD DRIVE MESSAGE AND SHIFT
:

16 BITS

RKMR2 (R2),T.MR2 :STORE SHIFTED MESSAGE B
RKMR3(R2).T.MR3 :-STORE SHIFTED MESSAGE A
T.MR3, $TMPO
;MASK ALL BITS EXCEPT PAR]TY

877777, $TMPO
PARBIT.$TMPQ

B8R

25%

MOV

FOR

#DMD,RKMR1(R2)
;PUT RKk611 IN MAINTENANCE MODE
DRVCOD,RKCS2(R2) ;LOAD DRIVE SELECT CODE

BIC
(MpP

;CHECK IF PARITY BIT CORRECT

3
52

:
ON MESSAGE A
*NC, PARITY ON MESSAGE

T.MR2,$TMPO

:MASK ALL

PARBIT.$TMPQ
43

;CHECK IF PARITY
:
MESSAGE B

:CHECK IF LOOP ON ERROR
BITS

EXCEPT

INCORRE(CT

PARITY

BIC

#77777.$TMPO

ERROR
BR

53
25%

SPARJTY ON MESSAGE B INCORRE(CT
;(HECK IF LOOP ON ERROR

CMP
8EQ
ERROR

E.MR3,T.MR3
5¢
54

;CHECK [F MESSAGE A CORRECT
SYES. CHECK IN MESSAGE B CORRE.T
*MESSAGE A INCORRECT

BEQ
ERROR
SCOP1

2S$
55

SYES, CHECK IF LOOP ON ERROR
sMESSAGE B !NCORRECT
;CHECK IF LOOP ON ERROR

CMP
BEQ

25%:

CLR
MOV
MOV
MOV

BNE
ERROR

3%:

;:D0 100. ITERATIONS
;LOAD RK611 BASE

MOV
MOV
MOV

004146
077777
004260

LLBD)

SEG 0084

#100.,8TIMES
$BASE ,R2

BIS
MOV

013737
0462737
023737
001402
104053
000412

L4667
4468
L4469
4470
L4671
4672
4673
L4746
2675
4476
4477
W78
(479

[NTERACTION

4464

4466

PAGE

SCOPE
Mov
MOV

MOV

000426

4465

DRIVE MESSAGE PARITY

MOV

4462

4463

15:10

MARASESAASRSARS SRRl

0c1022
021024
021032
021036
021044

44642

14-SEP-81

SELECT = 1

—

4635
64640
4441

30(1046)
140

WwITH DRIVE SELECT = 1. LOAD COMMAND AND STATUS REGISTER
WITH A SELECT (OMMAND. VERIFY THAT THE (ORRECT PARITY
IS GENERATED FOR BOTH MESSAGES. REPEAT FOR MESSAGE

(438

ALY

CLEAR THE RK611 WITH A CONTROLLER (LEAR. PUT (ONTROLLER
IN DIAGNOSTIC MODE. LOAD COMMAND AND STATUS REGISTER 2

OOOOODO
LaSIANTN
T N1, N1 VTN

&425
L4626
627
G428
4429
463C
4631
6632
4433
«634
4435
4636
6637

DSKLS TTR. PRT?
'4~SEP=-81 13:47

(MP

£.MR2,T.MR?2

DRV

(LR

DRvVCOD

BEQ

TST41

CORRECT

;CHECK IF MESSAGE B CORRECT

;CHECK

DRIVE

SELECT

::YES,GC ON TO NEXT TEST
;SET DRIVE SELECT CODE

= 0

(FINISHED)

TI549BDD R
"IR6BD . P11
4B1
B2
GGB3
W B6
GGBS
4486
4487
(B8

021316
021326
021332
027340
021344

DSK.S TTRL PRT?
164=-SEP=81 13:47
(12737
012737
0127%7
005037
D00655S
1

000001
000001
100000
004260

MACY11

6502
6503
4504
4505
6506
4507
4508

2298

6511
6512
6513
6514
6515

4516

4517
6518
€519
4520

4521
4522

6525
6526
6527
4528
4529
4530
4531
4532
4533
4536
4535
453¢

14=-SEP=-B81

15:10

PAGE

DRIVE MESSAGE PARITY

INTERACTION

SEQ C08S

MOV
MOV

#1,MSGCOD
#3110 ,E.MR?

;SET MESSAGE SELECT CODE
*LOAD EXPECTED MAINT REG 2

CLR
BR

PARB]T
1%

*LOAD PARITY FOR MESSAGE B
*TRY SECOND CONFIGURAT]ON

MOV

#RIT15,E.MR3

(MESS B)

:LDAD EXPECTED MAINT REG 3 (MESS A)

.""t"..'t!.t.'t.tfl't."'l"t"Q't't't.fi'ti""t!t.t""'.t'tt'!.Q

LRTEST 41
(381

4490

4501

140

004246
004206
004210

LLB9

44N
4492
4493
4494
4495
4496
04697
4498
4499
6500

30(10466)

T
Do

e
i
i
e

EVEN DRIVE MESSAGE PARITY GENERATON

CLEAR RK611 WITH CONTROLLER CLEAR. PUT CONTROLLER
IN DIAGNOSTIC MODE AND MESSAGE SELECT = 1

AND BAD PARITY

SET.

LOAD

COMMAND AND

STATUS

REGISTER 2 WITH DRIVE SELECT = 1. LOAD COMMAND
AND STATUS REGISTER SELECT COMMAND. VERIFY THAT
EVEN PARITY IS GENERATED.
RFPEAT FOR MESSAGE SELECT =
DRIVE

SELECT = 2-17.

:','ttt't.ttt..tlt"'tt'"t"'.ttt.!Q.Q'Qt'.tt.t'fi.tit'it!'t"ttttt
(021346

021350
021356
021362
021370
021376
021376
021404

021412

021420
021426
021434
027440
021446

021454

021456
021460
021466
021474

021500
021504

021512
021514
021516
1520
021526
021534
021540
021544
021546
021554
0215¢2
021570

000

012737
013702
012737
012737

012762
013762

052762

013762
012762
012700
052762
042762

005300

001370
016237
016237
013701

012703
005004

005204
005303
001373
013737
013737
005037
032704
001411
012737
052737
052737
013737

000144
00127¢C
000001
021376

100000
006244

000060

001200

000000
000026
000026
000010
000000

000034

004146
006150

004244
000004

000026
000026

MOV
MOV

1¢:

100000
100000
100000
004150

004260
004206
004210
001160

$BASE _R2

#1,DRVCOD
#1$,$LPERR

:;DO

2%:

BIS

#DMD 'PAT ,RKMR1 (R2)

MOV

DRVCOD ,RKCS2(R2)

5¢:

#SELDRV,RKCS1(R2)

BIS
B1C
DEC
BNE
MOV
MOV
MOV
MOV
CLR
ROR
BCC
INC
DEC

#MCLK,RKMRT(R2)
#MCLK _RKMR1(R2)
RO
28
RKMR2 (R2',T.MR2
RKMR3(R2) .T.MR3
DRVCOD.R?
#4 R3
Ré
R1
48
R4
R3

MOV
MOV
CLR

DRVCOD.E.MR2
DRVCOD.E.MR3
PARB] T

BNE

BIT
BEQ
MOV
BIS
BIS
MOV

#19.%4+3 RO

#BIT0,R4
5$
#BIT1S,PARBIT
#BIT15
€ MR2
#RIT15
F .MR3
T.MR3,$TMPQ

BASE

SUBTEST LOOP

:CLEAR RK611

MOV

ITERATIONS

SLOAD DRIVE CODE
*LOAD LOOP ON ERROR _OCATION FOR

#CCLR,RKCST(R2)

DRVCOD ,RKMR1(R2)

100.

*C0AD RK&11

MOV

4$:

204206
004210

#100..$TIMES

004244
004244
00426(
000001

SCOPE

MOV

006244
001110

(004244
000001
000116
000400
000400

($0003¢

TST47:

:LOAD MESSAGE

SELECT

CODE

*PUT RK611

IN MAINTENANCE MODE

;LOAD DRIVE

SELECT

AND SET BAD PARITY
SISSUE

SELECT

DRIVE

CODE

;LOAD DRIVE MESSAGE AND SHIFT
-

ALL

16 BITS

:STORE SHIFTED MESSAGE B
-STORE SHIFTED MESSAGE A
*DETERMINE PAR]TY

;LOAD EXPECTED SHIFTED REG.
:LOAD EXPECTED SHIFTED KEG.
-

:CHELx FOR PARITY ON WORD
*PARITY ALREADY EVEN
-SET PARITY BIT

:MASK ALL BITS EXCEPT PAR]TY

B
A

TIREBULD RKEYT DSKLS C(TRL PRT2
"IREBD.PVY
14=SEP-81 13:47
4537

021576

042737

6538

021604

023737

645640

027614

104056

6539

422;

021612

001402

077777

004260

WMACYT
001160
001160

021616

000426

6543

021620

013737

004146

001160

6545
6566
6547

021634
021642
Q21644

023737
001402
104057

004260

001160

4550
4551
6552
6553

027650
021656
021660
021662

023737
001401
104060
023737

4564

2228

4556
4555
6556
4557
4558

2228

021626
021646

021670
021672
021674
021676
021702

021710

042737

3?2;046)

103232

077777

001160

¢6%:

006210

004750

7%:

004206

004146

8%:

0046244
000017

MOV

004244

LSBTTL

4567
4568
4569
4570
4571
4572
4573
4574

A
.t
.
it
it
i
.
tx

4575

021712

021714

021722
021726
021734

021742
021742
021750
021756
021764
021772
021776
022004
022012
022014

000004

012737

013702
012737
012737

000144

001270
000010
021742

012762

000040

012700

000120

012762
013762
012762
012762
012762
005300
001370

000040
004244
000001

000440
000040

001200

000010

000026
000010
000000
000026
000026

INCORRECT

JMASK ALL BITS EXCEPT PARITY

PARBIT,$TMPO
7%
57

JCHECK IF PARITY CORRE(T
;
ON MESSAGE B
JPARITY ON MESSAGE B IN(ORRE(CT

E.MR3,T.MR3
8%
60
E.MR2,T.MR?

sCHECK IF MESSAGE A CORRECT
JYES, CHECK MESSAGE B
JMESSAGE A INCORRECT
;CHECK IF MESSAGE B CORRE(CT
;YES, CHECK IF LOOP ON ERROR
JMESSAGE B INCORRECT
sCHECK IF LOOP ON ERROR
s INCREMENT DRIVE SELECT CODE
JCHECK IF FINISHED

25%
61

DRV(OD
#17 ,DRVCOD

;CHECK IF LOOP ON ERROR

;NO,

TRY NEXT CONFIGURATION

[(OMMAND EXECUTION

AN R AN AR A NN RN RN

R AN AR AR RN

RN R RN KRR R AR AR C AR AN R R

RELEASE COMMAND IN DJAGNOSTIC MODE

A N

STATUS REGISTER 2 WITH DRIVE SELECT = 10. LOAD
COMMAND AND STATUS REGISTER 1 WITH A SELECT.
CLOCK COMMAND TO COMPLETION. MAKE SURE UNIT
FIELD ERROR DOES NOT SET (SACK HIGH). REPEAT FOR
DRIVE SELECT = 11-17,
R

RN AR A RN R AN AN

SCOPE

MoV

P P R R

R R

#100.,8$TIMES
$RASE ,R?
#10,DRVCOD
#1%,$LPERR

AR AN R AR AR

..D0 100.

AN RN

AN AR R AR C AR

ITERATIONS

#SCLR,RKCS2(R2)

;CLEAR RKO6 SUmSYSTEM

MoV

#20.+4 RO

;LOAD COUNT

MOV
MOV
DEC
BNE

C RN R AN

;LOAD RK611 BASE
;INITIALIZE FOR DESELECT OF DRIVE
sLOAD LOOP CN ERROR LOCATION FOR
.
SUBTEST LOOP

MOV

MOV
MOV
MOV
2%:

MESSAGE

T.MR2,$TNPQ

25%

MOV
MOV
MOV

18:

;CHECK IF LOOP ON ERROR

CLEAR THE RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. LOAD COMMAND AND

TST42:

004244
001170

25$%

*«7_ASS A

ON MESSAGE A

JPARITY

JYTEST 42

JCHECK ]F PARITY (ORRECT

;

#77777 ,$TMPO

BHIS

SEQ 0086

BIf

(mp
BEQ
ERROR
(MP
BEQ
ERROR
SCOP1
INC
(MP

¢5%:

2222

4578
6579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592

ERROR

{MP
BEQ
ERROR

4563
4564

4576

477777 ,81MPO
PARB] " ,$TMPD

4561
6562

64577

BIC
(MP
BEQ

000412

001401
104061
104415
005237
022737

7
I
14-SEP-81
15:10 PAGE 87
EVEN DRIVE MESSAGE FARITY GENERATION

#DMD ,RKMR1(R2)
;PUT RK611 [N MAINT MODE
DRVCOD ,RKCS2(R2) ;LOAD DRIVE SELECTION
#SELDRV,RKCS1(R2) ;ISSUE DESELECT
#DMD 'MCLK ,RKMR1(R?2)
#DMD ,RKMR1 (R2)
RO
2%

TO COMPLETE

;CLOCK THRU C(OMMAND
e

(OMMAND

SNNNNSNNNNNN
—_

104062

104064

023737
001401

000000
000010
000012
000014
000200
004244
000100
004172
004174
004160

004120

004170

004130

004172

022156
022164

005237

022737
103266

004244
000017

004134

004132

4632
4633
4634
4635
4636

4637
4638

4639
4640
4641
4642
4643

4644
4645
4646
4647
L64LE

4%:

5%:

6%:
004240

SEQ rnaz

COMMAND

MOV

RKCST1(R2),T

:STORE COMMAND AND STATUS REG.

MOV
MOy
MOV

RKDS(R2),T.
RKER(RZ),T.
#RDY ,E.CST

;STORE DRIVE STATUS REGISTER
;STORE ERROR REGISTER
;LOAD EXPECTED COMMAND AND STATUS REG.

(LR
(LR

E.DS
E.ER

TAGNCSTIC MODE

RKCS2(R2),T.

DRV(COD,E,CS2
#IR,E.CSc

(MP

7%:

15:1

RELEASE

L0}
BIS

BEQ
ERROR

(MP

E.CS1,T.(CS?
3%
62
E.CS2.T7.(S2

BEQ

(MP

E.ER,T.ER

ERROR

BEOQ

ERROR
(MP
BEQ

64
E.DS,T.DS
6%

INC
(MP

DRVCOD
#17 ,DRvCOD

ERROR
SCOP1

BHIS

126

;STORE

COMMAND AND

STATUS REG.

;GENERATE EXPECTED COMMAND AND
;
STATUS REG. 2

;LOAD EXPECTED DRIVE STATUS REGISTER
JLOAD EXPECTED ERROR REGISTER

*TEST 43
i

JYES,

CHECK ERROR REGISTER

;COMMAND AND STATUS REG. 2 INCORRECT
;CHECK ERROR REGISTER

CORREC(CT

JYES, CHECK DRIYVE STATUS REG

;ERROR REGISTER INCORRECT
;CHECK DRIVE STATUS REG CORRECTY
:YES, CHECK IF LOOP ON ERROR

;DRIVE STATUS REG INCORRECT
JCHECK IF LOOP ON ERROR

;s INCREMENT DRIVE NUMBER
;CHECK IF ALL DRIVE NUMBERS TESTED
JNO, DO IT FOR NEXT DRIVE NUMBER

SELECT COMMAND IN DIAGNOSTIC MODE

CLEAR THE RK0O6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

S®
i*
M
oY

COMMAND AND STATUS REGISTER 1 WITH A SELE(T.
CLOCK COMMAND TO COMPLETION. MAKE SURE MESSAGE SHIFT IS
NOT DONE DURING THE RECEIVE CYCLE OF DRIVE MESSAGE.
MAKE SURE NO ERRORS SET. REPEAT FOR DRIVE SELECT = 1=/,

* %

CONTROLLER

IN DIAGNOSTIC MODE.

LOAD COMMAND AND

STATUS REGISTER 2 WITH DRIVE SELECT = 0.

LOAD

:°"tttttttfittt*ti*titl‘ttI'itififitttitQ.*ttlttt"tti'tt'it'ittt'Q'Qt
022166
022170
022176
022202
022206

022214
22214
022222
022230
022236
022244
022250
022256
022264
022266
022270

000004

000144
001270
004244
022214

vJ1200

TST43:

000010
000026
000010
000000

000000

004120

000026
000026

#100. ,8TIMES
$8ASE ,R?

MOV

#1%,$LPERR

(LR

001110

000040
000040
004244
000001
000120
000440
000040

SCOPE
[0}
MOV

1%:

;:D0 100. ITERATIONS
;LOAD RK611 BASE

JINITIALIZE FOR SELECT OF DRIVE O
:LOAD LOOP ON ERROR LOCATION FOR

SUBTEST LOOP

MOV
MOV

#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)

MOV
MOV

#SELDRV,RKCS1(R2)
JISSUE DRIVE SELECT
#20.+4 RO
JLOAD COUNT TO DESELECT COMPLFTE

MOV

#DMD ,RKMR1(R2)

MOV

2$:

DRV(COD

MOV
DEC
BNE
MOV

DRVCOD ,RKCS2(R?2)

;CLEAR RKQ6 SUBSYSTEM
:PUT RK611 IN MAINT MODE

;LOAD DRIVE SELEC(CT

#DMD .MCLK ,RKMR1(R?2)
RO
2%
RKCST1(R2),T.CS1

;sCHECK COMMAND AND STATUS REG 1 CORRECT
;JYES, CHECK (S2
;COMMAND AND STATUS REG. 1 INCORRECT
;CHECK COMMAND AND STATUS REG. 2 CURRECT

;.'ttittttitttittit**l’t'ttttl'ttttt.tfittt*t*tiifitit.tt'tii.ittitl'

4621
4622
4623
4624
4625
4626
4627
4628
4529
4630
4631

742

14~SEP-81

MOV

104126

104415

30(1046)

hr a0 Lo

MACY1Y

—O

13:47

004174

4510
4611

4616
4677
4618
4619
4620

WWAIWNINDWNOORONONO

4602

4603
4604
4605
4606
4607
4608
4609

£H NOO NN NN
o (N NN N N AN NN AN N

“6M

4612
4613
L614
4615

14=SEP=81
QOOOOOOOOOOOO

4593
4594
4595
4596
4567
4598
4599
4600

DSKLS CTRL PRT?

—_

TIR6BDD RKE11
rIREBD..PYT

JCLOCK UNTIL DESELECT FINISHED

;STORE (OMMAND AND STATUS REG,

4660
4661

oSO

013703
012701

4664

4665

4666
4667
4668
4670
L671

4672
6673
4674

L676
L677
4678
4679
4680
4681
4682
4683
4684
4585
4686
4687
4688
4689
4690
4691
4692

J00505

022462
022470
022472
022474

023737
001402

022476
022504

023737
001402

004210

100000
100000

004210
004206

000003
000004
000440
000040

004206

012762

022572
022600

6%:

7%:

BS:

000004
000440
000040
000000
000010
000012
000014
000200

004244

MOV
MOV
MoV
Mov
MoV

MOV
MOV

CMP
BEQ
ERROR
BR

004150

DRVCOD,R3

;GENERATE EXPECTED MAINT REG 3

#3,R1

BIS

MoV

004146

;GO CHECK [F LOOP ON ERRCR

BC(C
INC
DEC
BNE

DEC
BNE

:
9%

104067

104070

(LR
ROR

;LOAD EXPECTED COMMAND AND STATUS REG. 1
sCHECK IF READY RESET
;YES, CONTINUE COMMAND
; COMMAND AND STATUS REG. 1 INCORRECT

£.CS1,70CST
3$
65
25%

BIT
BNE

000477
004210

MOV
MOV

#SELDRV,E.(S1

SEQ 0088

MOV

000000
000034
000036
004160

000471

4696

4697
4698
4699
4700
4701
4702
4703
4704

0046244
000001

104066

022460

4693
4694
4695

(MP
BEQ
ERROR
BR

004244
000003

14-SEP-81
15:10
PAGE 89
SELECT COMMAND IN DIAGNOSTIC MODE
MOV

5%:

O W
NN

4675

004160
004120

L669

30(1046)
743

104065

(&) [eolelolelslelo]lolelololele
3 \NOAN
[=1\V} — ek 2 OO b = e
- (N ONONON =NV
NOND =N
s~

6662
4663

000001
004160

VACY11

000566

OOOOOO0OO0O
P
= OO —
WNOORONONON =N
N NN PLNVINIANY
WNWNWNINNN
O O
NNNNNNOOMN

4655
4656
4657
4658
4659

WNWNWNWNND
— O~

L654

012737
023737
001402

OoOSHANOSHO

L649
4650
4651
4652
4653

WWINWWNWNINWNG
S WNWWNRNOND

(ZRABDO RK611 DSKLS C(TRL PRT?
14=SEP-81 13:47
"IR6BD.P11

:
108

;STORE EXPECTED MAINT REG 2

;ISSUE 3 CONTROL CLOCKS
#DMD !MCLK ,RKMR1(R2)
4DMD ,RKMR1 (R2)
RO

RKCS1(R2),T .CS1
RKMR2(R2)
, T.MR?
RKMR3(R2),T .MR3
E.CS1,T.CS1
9%
66

25%

;STORE COMMAND AND STATUS REG.
;STORE MAINT REG 2

;STORE MAINT REG 3

sCHECK CO: MAND AND STATUS REG 1
JYES, CHECK MAINTENANCE REG. 2

1
CORRECT

¢CST INCORRECT
;CHECK IF LOOP ON ERROR

;CHECK MAINT REG 2 CORRECT

cmp
BEQ
ERROR
B8R

E.MR2,T.MR?

cMP
BEQ
ERROR
BR

E.MR3,T.MR3

DEC
BNE
MOV

R1
sCHECK IF CCMMAND FINISHED
’$
sNO, ISSUE ANOTHER CONTROL CLOCK
#4 RO
; ISSUE LAST CONTROL CLOCK FOR READY
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)

MOV
MOV

DEC
BNE

MOV
MOV
MOV
MOV
MoV
MOV

108

67
25%
11%

25%

JYES, CHECK MAINTENANCE REG 3
;MR2 INCORRECT
sCHECK IF LOOP ON ERROR

JCHECK IF MAINT REG 3 CORRECT
JYES, CHECK COMMAND COMPLETE
:MR3 INCORRECT
sCHELK IF LOOP ON ERROR

;STORE COMMAND AND STATUS REG. 1
;STORE COMMAND AND STATUS REG. 2
;STORE DRIVE STATUS REGISTER
;STORE ERROR REGISTER
sLOAD EXPECTED COMMAND AND STATUS REG 1
;GENERATE EXPECTED COMMAND AND STATUS REG. ¢

(ZR6BDO RK6'1 DSKLS CTRL PRTZ2
CZR6BD.P1
14=-SEP-81 13:47

MA(Y1 3?2;046)

4705
4706

022606
0226°4

052737
005037

000100
004172

G04170

4708
4709

022626
022632

023737
001401

004160

004120

4711

022636

023737

004170

004130

13%:

004174

004134

14%:

4707

4710

4712
4713
L7146
4715

4716
6717
4718
4719
4720
4721
4722
4723

2;52

022620

022634

022644
022646
0c265"
022656
022660
022662
022670
022672
022674
022676
022702
022710

022712

005037
104071

091401
104072
N°3737
001401
104073
023737
001401
104127
104415
005237
022737
103402

000137

004174

004172

004244
000007

004132

7
L
14=-SEP-81
15:10 PAGE 90
SELECT COMMAND [N DIAGNOSTIC MODE
BIS
CLR

#IR,E.CS2
E.DS

JLOAD EXPECTED DRIVE STATUS REGISTER

(MP
BEQ

E.CS1,T.(81
13%

;CHECK COMMAND AND STATUS REG 1
JYES, CHECK (S2

E.CS2,7.(S2

;CHECK COMMAND AND STATUS REG 2 CORRECT

CLR

15%:
25%:

004244

ERROR

CMP

BEQ
ERROR
(Mp
BEQ
ERROR
CMP
BEQ
ERROR
(oP1
INC
(MP
BLO

022214

SEQ 0089

JMP

E.ER

;LOAD EXPECTED ERROR REGISTER

;CS1

148
72
E.ER,T.ER

CORRECT

INCORRECT

JYES, CHECK ERROR REG
;CS2 INCORRECT
;CHECK IF ERROR REG CORRECT
;YES, CHECK DRIVE STATUS REG CORRECT
JERRCR REG INCORRECT
;CHECK DRIVE STATUS REG CORRECT
JYES, CHECK IF LOOP ON ERROR
;DRIVE STATUS REGISTER INCORRECT
;CHECK IF LOOP ON ERROR
s INCREMENT DRIVE NUMBER
sCHECK IF ALL DRIVES TESTED

15%

73
E.DS,T.DS
25%
127
DRVCOD
#7 ,DRVCOD
TST44

;.YES,

GO TO NEXT

;TRY NEXT DRIVE

AR RN RN AN AR AR AR AN

TEST

4726

AR R

A AR AR AR

AR R R AR NN

AR R RN

2;5;

J*TEST

RELEASE

COMMAND

6729
4730
4731
4732
4733
4734

.
i
i
i
i
‘e

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
LOAD COMMAND AND STATUS REGISTER 2 WITH CRIVE SELECT
LOAD COMMAND AND STATUS REGISTER 1 WITH A SELECT.
MAKE SURE NO ERRORS OCCUR. REPEAT FOR DRIVE
SELECT - 11-17

TST44:

SCOPE
MOV
MOV
MOV
MOV

#100. ,$TIMES
$BASE, R2
#10,DRVCOD
418 ,8LPERR

::D0 100. ITERATIONS
JLOAD RK611 BASE
JINITIALIZE FOR DESELECT OF DRIVE
;LOAD LOOP ON ERROR LOCATION FOR

MOV

#SCLR,RKCS2(R2)

;CLEAR RKO6 SUBSYSTEM

MOV

WAITIM, RO

;WAIT FOR READY

IN NORMAL

RN RN N AR

RN R AR RN

MODE

. %

4735

4736
4737
4738
739
4740
4741

4742

4743
4744

4745
47646

4747
4748

4749
4750
4751
4752
4753

4754
4755

4756
4757
4758
4759
4760

RN AR AR R AR R AR

022716
022720
022726
022732
022740

000004
v12737
013702
012737
012737

000144
001270
000010
022746

00139

022746
022746

012762

000040

000010

022770

012700

004262

022754
022762

022774

023000

013762
012762

105762

100402

006244
000001

0064244

001110

000010
000000

000000

005300
001373
016237
016237

000000
000010

004120
004130

023036
023044
023052
0°3060
023064

012737
013737
052737
005037
005037

000200
004244
000100
004172
004174

004160
004170
004170

016237
016237

000012
000014

MOV
MOV

2%:

023002
023004
023006
023014

023022
023030

1%:

004132
004134

38%:

TSTB

BMI]

RN R AR R AR R AR

;

SUBTEST

DRVCOD,RKCS2(R2)
#SELDRV,RKCS1(R2)

RKCS1(R2)

10.

R RN RN RN NN

LOOP

;LOAD DRIVE SELECTION
; ISSUE DESELECT

DEC
BNE
MOV
MOV

RO
2%
RKCS1(R2),7.CS1 .STORE
RKCS2(R2),T.CS2 ;STORE

MOV
MOV
B!
(LR
(LR

#RDY ,E.CS1
DRVCOD,E.CS2
#IR,E.CS2
E.CS
E.ER

MOV
MOV

AR RN AR AR RN

RKDS(R2),7.DS
RKER(R2) ,T.ER

COMMAND AND STATUS REG.
COMMAND AND STATUS REG.

;STORE DRIVE STATUS REGISTER
;STORE ERROR REG.

1
2

;LOAD EXPECTED COMMAND AND STATUS REG. 1
;GENERATE EXPECTED COMMAND AND STATUS REG.

JLOAD EXPECTED DRIVE STATUS REG
;LCAD EXPECTED ERROR REG.

Jy——
Y
Y
S
S
N
S
N P
N

4774
4775
4776
4777

4773

S B BNNNUNUND
= = -2 O
SOOI
PIODN

4770
L771
4772

[

4769

[elelololololelelololole]

4761
4762
«763
{764
4765
L766
4767
4768

A~ RO RORD RO RO RD RD RO RO RO RO
N LN AN N N N
NN
A
NN

CZR6BDO RK611 DSKLS CTRL PRT?
CZR6BD.P11
14=-SEP=-81 13:47

MACYN

023737
001401

004160

004120

023737

004170

004130

6$:

004174

004134

5%:

004172

004132

6$:

104074

004244
000017

7$:

004244

4778

4779
4,780
4781
4,782
{783
4784
4785
(786
4787
4788
(789
4790
4791
4792
4793
L7946
4795
4796
4797

4738
{799
4800
4801
4802

4803
4804
4805
4806

4807
LBNS

4EUY
4810
4811
4812

4813

4814
(815

4816

3?21066)

14-SEP-81

15:10

m
7
PAGE 91

SEa 0090

RELEASE

COMMAND

cMP
BEQ
ERROR
(MP
BEQ
ERROR
CMP
BEQ
ERROR

E.CS1,T.CS1
(s
74
E.CS2,1.CS2
5%
75
E.ER,T.EK
6$
76

sCHECK COMMAND AND STATUS REG 1 CORRECT
JYES, CHECK (S2
2CS1 INTORRECT
sCHECK COMMAND AND STATUS REG 2 (ORREC(T
;YES, CHECK ERROR REGISTER
;€S2 INCORRECT
;CHECK ERROR REG CORRFCT
;YES, CHECK DRIVE STATUS REG CORRE(T
;ERROR REG INCORRECT

130

;DRIVE STATUS REGISTER INCORRE(CT

CMP
BEQ
ERROR
SCOP1
INC
CMP

BHIS

IN NORMAL MODE

E.DS,T.DS
7$

;CHECK DRIVE STATUS REG CORRECT
JYES, CHECK IF LOOP ON ERROR
;CHECK IF LOOP ON ERROR
s INCREMENT DRIVE NUMBER
;CHECK IF ALL DRIVE NUMBERS

DRVCOD
#17 ,DRVCOD

JNO, DO IT FOR NEXT DRIVE

TESTED

':'tt't.'tt'ttttttttttt'ttttttttfi!tt.ttttttitittfittttttltt't'ltt.

SATEST 45

INTERRUPT AT COMMAND COMPLETION

;v
It
J®
M
b1

N
;¥

Cl EAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

LOW'R PROCESSOR PRIORITY TO ZERO. ISSUE A RELEASE
CO"MAND WITH INTERRUPT ENABLE SET. MAKE SURE
I* TERKUPT OCCURS
LOWER PRJIORITY AFTER INTERRUPT
AND MAKE SURE INTERRUPT HAS CLEARED.

LOWER PROCESSOR PRIORITY TO 2ERO.

WITH

INTERRUPT ENABLE

RESET.

MAKE

REISSUE RELEASE

SURE NO INTERRUPT

OCCURS.
SET INTERRUPT ENABLE AND MAKE SURE NO
INTERRUPT OCCURS.

E;tttt'..i't."‘l"fi*'t."t't'*tt"'fifittfi""fiiittitt'l'.'fititlt'
023156
023160
023166
023172

023200
023206
023212
023216
023222
023224
023230
023232
023232
023240
023244
023250
023252
023254
023256
023262
02326¢€
023270

000144
001270
000040
000010

004234
023274
000340

001200

TST4S

#100.,8$TIMES

MOV
MOV
(LR

#5%,(R1)+
#PR7,(RT)
-(SP)

MOV
MOV
MOV
MOV

000010
000010

023232

000101
004262
000000

SCOPE

MOV

MOV
RT]

000000

648

’%:

MOV
MOV
TSTB

MOV

8M]
DEC
BNE

MOV
RT]

ERROR

$BASE ,R2
#SCLR,RKCS2(R2)
#10,RKCS2(R2)
RKVEC ,R1

#64%,-(SP)

;:D0 100.

ITERATIONS

:LOAD RK611 BASE
;CLEAR RK06 SUBSYSTEM
JSET DESELECT BIT
;LOAD INTERRUPT VECTOR
;LOAD STACK TO ALLOW ALL
:LOAD NEXT ADDRESS
;CLEAR PSW

INTERRUPTS

#SELDRV!IF ,RK(S1(R2)
;ISSUE SELECT DRIVE
WAITIM,RO
;WAIT FOR READY
RKCST(R2)

3%
RO
2%
#PR7 ,-(SP)

JLOCK QUT

100

;INTERRUPT DID NOT OCCUR

#68%,-(SP)

IMTERRUPTS

CZR6BDO RK611
(ZR6BD.P1T

4832
4833
4834
4835
4,836

L4837

4838
4839
4840
4841
4847
(843
4844
4845

(846
4847

4848
4,849

4850
4851
4852
4853
4854
4855
4856
4857
4858
4859
4860
4861
4362
4863
4864
4865
4866
%867
4868
4869

4870

L871

«872

023274

30(1046)
745

000004
000000

000010
0000614
000300
000110
004174
004160

004120
004130
004134
004160
00417¢C

5%:

004120

004170

004130

6%:

0046174

004134

It ¥

023512

160626

8%:

023417¢

023414

023522
000010
000001
004262
000000

023532
000100

160606

000010
000000
9%

160544

11%:

000000

062706

023522
02352¢
023530

062706

023532

023540
023546
023552
G235%4

104 °04

000004

10%:

000407

000004

15%:

062706

000004

012762

000040
004234

104254

013701

010111

062721

000002

000010

PAGE 92

SEQ 0091

25%

ADD
MOV
MOV
MOV
MOV
MOV

¥4, SP

JADJUST

#RDY!IE,E.CST

;LOAD

E.CS1,T.CST
6%

JCHECK IF CS1 CORRECT
JYES, CHECK (S2

(LR
(Mp
BEQ
ERROR
cmp
BEQ
ERROR
cMp
BEQ
ERROR
MoV

CLR

NOP

MOV
MOv
MoV
MoV

TSTB
BMI
DEC
BNE
NOP
Mov
MOV

STA(K

RECS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.
RK(S2(R2),T.(S2 ;STORE COMMAND AND STATUS REG.
RKER(RZ),T.ER
;STORE ERROR REG.
#IR!10,E.CS2
E.ER
101

£.CS2,T.CS2

EXPECTED

(SI

;LOAD EXPECTED (S2
;LOAD EXPECTED ERROR
;CS1

INCORRECT

;CHECK IF CS2 INCORRECT

JYES, CHECK IF EQROR REG CORRECT
:(S2 INCORRECT
;CHECK IF ERROR REG CORRECT
JYES, CHECK IF INTERRUPT CLEARED
;ERROR REG. INCORRECT

-(SP)
#65%,-(SP)

JLOAD STACK TO ALLOW ALL
sLOAD NEXT ADDRESS

#7108 ,aRKVEC

sLOAD VECTOR FOR UNEXPECTED INTERRUPT

JWAIT FOR INTERRUPT
#15% ,aRKVE(
;sLOAD VECTOR ADDRESS FOR UNEXPECTED
#10,RKCS2(R2)
:ISSUE DESELECT
#SELDRV,RKCST(RS)

11$%
RO
9%

#20% ,a8RKVEC

WAIT FOR

INTERRWH
T

sLOAD VECTOR ADDRESS FOR UNEXPECTED INTERRUPT

MOV
MOV
RTI

#PR7,=(SP)
#25%.-(SP)

SLOCK OUT INTERRUPT
*RESTORE TRAP CATCH:R

ADD

26, SP

;ADJUST

25%

:RESTORE TRAP (CAT(HER

104

2,57

20%:

ADD

&84

25$:

MOV

OSCLR,RKCS2(R2)

ERROR

Moy
ADD

INTERRUPT

RO
WAITIM,
RKCS1(R2)

;SET

ERROR
BR

INTERRUPTS

;CLEAR PSW

#1E,RKCST(R2)

ERROR
BR

1
2

’$
102
E.ER,T.ER
8%
103

ADD

000403
104255

15:10

INTERRUPT AT (OMMANy (OMPLETION

NOP

000340
023540

025512
023516
023520

164-SEP-81

Mov
RTI

65%:

023416
023416
023420
023426
023434
023442
023446
023452
023454
023456
023460
023462
023470
023476
023500
023504
023510

023536

MACY11

000522

[elef leolefHolololololols]
ONOONOONO
— — = =
—d N8 = NS
NN
OO
SN =
N =S NNO
NN
O WO O WO O WNIN NN
— NN b Sy b e NN NN NN

4830
4831

023272

NOO
O NN S NN

(817
4818
4819
4820
4821
4822
4323
4824
4825
(826
4B27
4828
4829

DSKLS CTRL PRT?
14-SEP-81 *3:47

254
25$

25§

_SP

RKVE . ,RI
R, .RD)
).
8.,(R1

INTERRUPT ENAVE

;ALLOW INTERRUPT TL OC(UR

STACK

SUNEXPECTED

INTERRUS
T

;ADJUST

STACK

JADJUST

STACK

SUNEXPECTED INTERRUPT ON DESELECT
*RESTORE TRAP (AT(CHER

SUNEXPECTED INTERRUPT wHEN SE”TING
;.
INTERRUPT ENABLE
;(LEAR RKO6 SUBSYSTEM
JRESTIRE

TRAP

(AT(MER

(ZR6BD.P11

14-SEP-81

4873
4874
4L875
4,876
4877
4878
4879
4880
4881
L88?
4L883
4884
L885
4886
4887
4,888
4,889
4890
48N
4892
4893
4,894

00501~

SILO

ONE WORD

INTO THE

SILO.

ISSUE A RELEASF

COMMAND

WITH INTERRUPT ENABLE RESET.
WAIT FOR READY.
READ THE DATA BUFFER TO MAKE SURE THE SILO HAS BEEN
CLEARED. (DATA LATE SET AFTER READ OF DATA BUFFER)

. %

=0 OO0 ==

000144
001270
000040
000024
000010
000001
004262
000000

= e

023562
023564
023572
023576
02360¢
023610
023616
023624
023630
023634
023636
023649
023642
023650
023656
023664
023672
023700
023706
023712
023716
023724
023726
023730
023734
023742
023750
023756
023764
023772
024000
024002
024004

037
401

001200

000010

004120
004130
004132
004134
004160
004170

004170

004°30

000024
000000

100000

202

ST
MOV
MOV
MOV
MOV
MOV

BEQ
ERROR

118
106

MOV
EAASR

#SELDRV,RKCS17R2}
- ISSUE DESELECT
WAITIM,RO
:WAIT FOR READY
RKCS1(R2)
38
RO
28
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. 1
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
RKDS(R2),7.DS
:-STORE DRIVE STATUS REGISTER
RKER(R2).T.ER
-STORE ERROR REGISTER
#RDY ,E.CS1
*LOAD EXPECTED CS1
#IR'10,E.CS2
:LOAD EXPECTED (S2
E.DS
*LOAD EXPECTED DRIVE STATUS REG
E.ER
:LOAD EXPECTED ERROR REGISTER
£.(S2,7.CS2
*CHECK IF CS1 CORRECT
108
*YES, READ WORD FROM SILO
105
+CS2 INCORRECT
RKDB(R2)
*READ SILO TO MAKE IT IS CLEAR
RKCS1(R2),T.CS1 -STORE COMMAND AND STATUS REG. 1
RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG. 2
RKER(R2),T.ER
:STORE ERROR REG.
#CERR'RDY,E.CS1 :LOAD EXPECTED CS1
#DLT'IR'10,E.CS2 ;LOAD EXPECTED CS2

CMP

11%:

MOV
MOV

CMP
BEQ
ERROR

100200
100110
004170

#SCLR.RKCS2(R2)
RKDB(R2)
#10,RKCS2(R2)

MOV
MOV
CLR
CLR

108 :

RRR

#100.,$TIMES
$BASE .R2

TSTB
BMI
DEC
BNE
MOV
MOV
MOV
MOV

000010
000014

«0

SCOPE

SRR

MOV
MOV

MOV
CLR
MOV

000010
000000

000000
000010
000012
000014
000200
000110
004172

004174

AAESEEELRRRSS

T §T46:

TRTEST 47
.

4919
4920
4921
4922
4923
4924
4925
4926
4927
4928

WRITE

J*
o
o*

4917

4918

GO CLEAR OFf

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

4916

4914
4915

(R1)

CLR

4909
4910
4911
4912
4913

SEQ 0092

;:DO 100. ITERATIONS
*LOAD RK611 BASE

:CLEAR RK06 SUBSYSTEM
*LOAD 1 WORD IN SILO
:LOAD DESELECT DRIVE 0

E.CS2,T.(S2

;CHECK IF DATA LATE SET

#CCLR,RKCS1(R2)

:CLEAR RK611

*YES, CLEAR CONTROLLER REG.
*DATA LATE NOT SET

CONTROLLER

SRR RsRRRSRSRRRaRRRRR
iRttt
it i s ARRRRRRRRRR 2]

SEEK COMMAND IN DIAGNOSTIC MODE

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE_A SEEK WITH CDT

24 SECTOR FORMAT TO CYLINDER 1714, HEAD 7, DRIVE 0.

MAKE

SURE NO STATUS BITS ARE

BITS ARE SET.

SET AND NO ERROR

4903
4904
4905
4906
4907
4908

4900
4901
4902

14-SEP-81
15:10
PAGE 93
INTERRUPT AT (OMMAND (OMPLETION

J*TEST 46

2 0 OO OO

4,896
4897
4,898
4899

3?(1046)
45

Py
P T T R T T

S OON) === e

4895

023560

13:47

MACY1T

':t!ttttitt't*ttttttittttit'iti'ttttittt""'tttttttttt'tttt'titt

SET

CZR6BDO RK611 DSKLS CTRL PRT2

4932
4933
4934
4935
4936
4937
4938
4939
4940
4941
6942
4963
4944
4945
4946
4947
6948
4949
4950
4951
4952
4953
4954
4955

4956
4957
4958
4959
4960
4961
4962

2322

024012
024014
024022

024026
024034
024042
024050
024056
024064
024070
024076
024104
024106
026110
024116
024124
024132
024134
024136

000004
012737
013702
2762

762
762
762
762
700
762
762
300
370

237

737
737

402
107
543

023737
001402
104110

004160

024240

370
6237
016237
016237

2323

024254

000474

024250
024252

001402
104111

4970

024256

023737

4972
23;2

024266
024270

104112
000466

4975

024272

005301

4978
4979
4980
4981
4982
4983

024276
024302
024310
024316
024320
(024322

012700
012762
012762
005300
001370
016237

4984

024264

024274

024330

136300
000003
000004
000440

000040
000000
000034
000036

001200

SCOPE
MOV
MOV
MOV

#100.,$TIMES
$BASE ,R2
#SCLR,RKCS2(R2)

:.D0 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM

Mov

RKCST1(R2),T.CS1

;STORE COMMAND AND STATUS REG.

3s
107
TST50

;YES,

2%:

9004120
004160
004120

001402

BEQ
ERROR
BR

38:

000026

6%:
5%:

004120
004146
004150

004120

mMov

0064206

004210

004146

004150

6%:

7%:

8$:
000004
000440
000040

000026
000026

000000

004120

000010

004130

9%:

SEQ (093

ADMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#1714 ,RKDCYL (R2)
;LOAD CYLINDER ADDRESS
#3400,RKDA(R2)
;LOAD HEAD 7
#SEEK!CFMT!CDT,RKCST(R2)
;ISSUE SEEK CDT SET,24 SECTOR
#20.+4 RO
;LOAD COUNT TO DESELECT DECISION
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
2%
HSEEK!CFMT!CDT,E.CST
E.CS1,7.C81
;CHECK

:LOAD EXPECTED
IF READY RESET

CONTINUE COMMAND

;.60 ON TO NEXT TEST

#S.SEEK!S.FMT!70000,E.MR3

;LOAD EXPECTED MAINT REG.

#136300,E.MR2
;LOAD EXPECTED MAINT RFG.
#3,R1
;ISSUE 3 CONTROL CLOCKS
#4 ,RO
#DMD .MCLK,RKMR1(R2)

BNE
Mov
MOV
MOV
CMP
BEQ
ERROR

5%
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKMR2(R2) ,T.MR2 ;STORE MAINT REG ¢
RKMR3(R2),T.MR3 ;STORE MAINT REG 3
E.CS1,T.CS
6%
110

;CHECK COMMAND AND STATUS REG.
JYES, CHECK MAINTENANCE REG. 2
;CS1 INCORRECT

CMP

E.MR2,T.MR?

;CHECK MAINT REG 2 CORREC(T

TSTS50

;.G0 TO NEXT TEST

ggg

BEQ
ERROR

ggMD,RKMR1(R2)

TST50

7$
1N

CORRE(T

JYES, CHECK MAINTENANCE REG 3
sMAINT REG 2 INCORRECT

E.MR3,T.MR3

sCHECK

ERROR
BR

112
TST50

:MR3 INCORRECY
;.G0 TO NEXT TEST

;.G0 TO NEXT TEST

CMP

BEQ

COMMAND AND STATUS REG

MOV
MOV
Mov
MoV

001331

016237

MOV
MOV
MOV
MOV
MOV
MoV
MOV
DEC
BNE

MOV
CMP

0Q042°0

900026

c 8
PAGE 94

TST47:

000026
000020
000006
000000

004206

15:10

SEEK COMMAND [N DIAGNOSTIC MODE

000010

000026
000026

14-SEP-B1

147

000502

023737

23;9

012017
004160

024226
024234
024236

588

024242

4971

000000

071020

737
701
700
762

6965

64966
64967

000040
001714
003400
012017
000120
000440
000040

024140
024146
024154
024160
024164
024172
024200
024202

024204
024212
024220

737

000144
001270
000040

[elelelolelalolele
OO
G aaa
= VANOMNOMNONIMNONS

4929
4930
4931

14-SEP-81 13:47

el
jololelolololelelelelolelele]
OO0OON 22000
OS2 N0 =DM

CZREBD.P1T

MACY11 30(1046)

JYES,

Mov
MOV
MOV
DEC
BNE
MOV

#4 RO
: ISSUE LAST CONTROL CLOCK FOR READY
#DMD !MCL K ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
9%
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG. °

MOV

RKCS2(R2),T7.CS2

sNO,

COMMAND COMPLETE

DEC

BNE

sCHECK

IF MAINT REG 3 CORRE(CT

CHECK

COMMAND fINISHED

ISSUE ANOTHER CONTROL

;STORE

COMMAND AND

(LOCK

STATUS REG.

4985
4986

024336
024344

016237
016237

(988
4989
4990

024360
024366
024372

012737
005037
005037

4987

4991
4992

024352

024376
024404

MOV
MOV

RKDS(R2),T.DS
RKER(R2),T.ER

:STORE DRIVE STATUS REGISTER
;STORE ERROR REGISTER

000100
004172
004174

004170

MOV
CLR
CLR

#IR,E.(S2
E.DS
E.ER

;LOAD EXPECTED (€S2
;LOAD EXPECTED DRIVE STATUS REGISTEK
:LOAD EXPECTED ERROR REGISTER

113
£.CS2,T.CS2
118
114
E.ER,T.ER
12%
115
E.DS,T.DS

;ST INCORRECT
:CHECK COMMAND AND STATUS REG.
;YES, CHECK ERROR REG
;€S2 INCORRECT
;CHECK ERROR REGISTER
:YES, CHECK DRIVE STATUS REG
;ERROR REG. INCORRE(CT

004160

004120

004170

004130

10$%:

004174

004134

11%:

004172

004132

12%:

024434

288%

024464

104131

001401

SEQ 0094

004132
006134

023737
001401

104113
023737
001401
104114
023737
001401
104115
023737

D
8
14-SEP-81
15:10 PAGE 95
SEEK COMMAND IN DIAGNOSTIC MODE

000012
000014

012216

024406
024410
024416
024420
024422
024430
024432

024442

3?2;046)

012737

4993
4994
4995
4996
4997
4998
4999
5000

5001

MACYN

(004160

MOV

CMP
BEQ
ERROR
cmP
BEQ
ERROR
(MP
BEQ
ERROR
CMP

BEOQ

ERROR

#RDY . CFMT!CDT!'<SEEKR~(<GO>>,E.(CST

E.CS1,T.(S1
10%

TSTS50
131

:LOAD EXPECTED (S?

;CHECK IF COMMAND AND STATUS REG. 2
:YES, CHECK (S2

2 CORRECT

;CHECK DRIVE STATUS REGISTER CORRE(CT

::YES, GO ON TO NEXT TEST

;DRIVE STATUS REGISTER INCORRE(CT

gggg

.SBTTL

5006

'-;QtQttttttttt..tttQtttt'tttt'tttttttttttttttttt'ttttttittttttttt

288;

;*TEST 50

5009
5010
50"
5012
5013
5014

;*
"
.
.
’
.

SO]?

:'.'ttttttttttttttttttl"t'Qttttttti'tttttttt'tttttttttt'tttttit'tt

28}2

5018
5019
5020
5021
5022
5023

024446
024450
024456
024462
024470
024476

(000004
012737
013702
012762
012762
012762

5025
5026
5027
5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038

024512
024520
024524
024532
024540
024542
024544
024550
024554
024560
024562
024564
024566
024574

012762
012700
012762
012762
005300
001370
005062
013700
105762
100412
005300
001373
016237
012737

5024

5039

5040

024504

024602
024604

012762

104132

000460

000144
001270
000040
000040
000757

001200

000017
000132
000440
000040

000000

000400

000010
000026
000020

000006
000026
000026

000026
004262

00C000

000000
000216

7ST50:

1%:

DRIVE STATUS FROM SHIFT REGISTER

CLEAR RK0O6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK631 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 757, HEAD 1,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS
6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE SPEED LOSS,
DRIVE AVAILABLE, VOLUME VALID., OFFSET, DRIVE READY,
AND WRITE LOCK ARE SET.
SCOPE
MOV
MOV
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#757 ,RKDCYL(R2)

MOV
MOV
MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BM]
DEC
BNE
MOV
MOV

#SEEK ,RKCST1(R2) ;ISSUE SEEK
#22.%4+2 R0
JISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKMR1(R2)
:FINISH COMMAND IN NORMAL MODE
WAITIM,RO
:WAIT FOR FOR READY
RKCST1(R2)
3%
RO
2%
RKCS1(R2),7.CS1 :STORE COMMAND AND STATUS REG 1
#RDY ' SEEKE<AC<GO>>,E.CST1 ;LOAD EXPECTED (S?

MOV

2%:

004120
004160

««ERROR AND STATUS BIT FORCING WITH DRIVE MESSAGES

ERROR

#6400 ,RKDA(R?)

132
108

;:D0 100. ITERATJONS
:LOAD RK611 BASE
;CLEAR RK06 SUBSYSTEM
:PUT RK611 IN MAINT MODE
;LOAD CYLINDER ADDRESS

:LOAD RWEAD ADD =1

:READY NOT SET
:CLEAR RKO6 SUBSYSTEM

£~

(ZR6BDO RK611 DSKLS CTRL PRT2
rZR6BD.P11
14-SEP=-81 13:47

CZRO6BDO RK61T DSKLS CTRL PRT2
"IR6BD.P11
14-SEP-81 13:47
5041

5042
50643
5064
5045
5046
5047
5048
5049
5050
5051
5052
5053
5054
5055
505¢

024606
024614
024622
024630
024636
024644
Q24652
024660
024664
024672
024674
024676
024704
0247G6
024710

016237
016237
016237
016237
012737
012737
012737
005037
032737
001001
104133
023737
001401
104134
023737

E
8
MACY1Y 30(1046)
14-SEP-81
15:10 PAGE 96
150
DRIVE STATUS FROM SHIFT REGISTER

000000
000070
000012
000014
000216
000100
104325
00474
004325

004120
004130
004132
004134
004160
004170
004172

3$%:

0046132

004160

004120

4%:

004170

004130

S%:

MOV
MOV
MOV
MOV
MOV
MOv
MOV
(LR
BIT
BNE
ERROR
(MP
BEQ
ERROR
(MP

RKCST1(R2),T.CS1 .STORE COMMAND AND STATUS REG !
RKCSZ(BZ), .(S2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DSTM
:STORE DRIVE STATUS REF
RKER(R2),T.ER
:STORE ERROR REG.
#RDY ! SEEKE<<AC<G0>>,E.CST ;LOAD EXPECT (S1
#IR,E.CSc
:LOAD EXPECTED (S2
#DRA'OFST!SPDLSS VV!DRDY'WRL'SVAL E.D5 ;LOAD EXPECTED DRIVE STATUS
E.ER
:LOAD EXPECTED ERROR REGESTER
#DRA'OFST.SPDLSS. VV'DRDY!WRL,T.DS ;CHECK LOAD STATUS SET
4
:YES, CHECK REGISTERS
133
INO BIT [N DRIVE STATUS SET
E.CS1,T.(S
ZCHECK (S1 CORRECT
5%
JYES, CONTINUE
134
;CS1 INCORRECT
£.CS2,7.CS2
;CHECK CS2 CORRECT

SEG 0095

5057
5058
5059
5060
5061
5062
5063
5066
5065

024716
024720
024722
024730
024732
024734
(024742
024744
0247646

00140
104135
023737
001401
104136
023737
001401
104137
013737

5067
5068

Q24762
024770

013737
013737

5070
5071
5072

024776
025004
025012

S074
5075
5076
5077
5078

025026
025034
025042
025050
025054

5066

5069

5073

5079

024754

025020

025060

5080
5081

025066
025070

5083
5084
5085
5086
5087
5088
5089
2889

025100
025102
025104
025112
025114
025116
025124
025126

5082

025072

39;8046)

€3
135
E.ER,T.ER
7%
136
E.DS,T.DS
10%
137
T.(S1,P.CS1

JYES, CONTINUE
;CS2, INCORRECT
;CHECK ERROR REG CORRECT
;JYES CONTINUE
JERROR REG INCORRECT
;CHECK DRIVE STATUS CORRECT
;CLEAR RK611
sDRIVE STATUS INCORRE(CT
JSTORE PREVIOUS CONTENTS OF

MOV
MOV

1.DS,P.DS
T.ER,P.ER

;
;.

004774

004134

€$:

004172

004132

7%:

004120

004220

10%:

004132
004134

004224
0042c0

012762
016237
016237

100000
000000
000010

900000
004120
004130

MOV
MOV
MOV

#CCLR,RKCST1(R2) ;CLEAR RX611
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2

016237
012737
012737
005037
005037

000014
000200
000100
004172
004174

004134
004160
004170

MOV
MOV
MOV
(R
(LR

RKER(R2),T.ER
#RDY ,E.CSHT
#IR,E.CS2
E.DS
E.ER

;STORE ERROR REG
JLOAD EXPECTED (S1
;LOAD EXPECTED (S?2
.
;LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG

1%
224

JYES, CHICK (€S2
;CS1 INCORRECT

013737

016237

023737
001401
104224

023737

001401
104225
023737
0014607
104226
023737
001401
104227

004130

000012

006222

004132

MOV

004160

004120

CMP

004170

0D(Q4&130

118:

004172

006132

12%:

004174

004134

13%:

BEQ
ERROR

(MP

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

2832

;*TEST 51

5095
5096
5097
5098

M
ML
¥
*

5099
2189

*
-

5102
5103
S104
5105
5106
5107
5108

025130
025132
025140
025144
025152
025160

000004
012737
013702
012762
012762
012762

000144
001270
000040
000040
000002

001200

5110
$111
511¢

025174
025202
025206

012762
012700
012762

000017
000132
000440

000000

025166

SES 0096

BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEG
ERROR
MOV

5092

5109

14-SEP-81
15:10 PAGE 97
DRIVE STATUS FROM SHIFT REGISTER

012762

000000

000010
000026
000020

000006
000026

R R

R R AN

1.(S2,P.(CS2

RKDS(R2),T7.DS

E.C(S1,T7.CS1

E.CS2,T.(CS2
12%
225
E.DS,T.DS
13%
226
E.ER,T.ER
TSTS1
227
RN A AR RN

;

(OMMAND AND STATUS REG 1

COMMAND AND STATUS REG 2

DRIVE STATUS REG

AND ERROR REG

;STORE DRIVE STATUS REG

JCHECK COMMAND AND STATUS REG 1 CORRE(T

JCHECK COMMAND AND STATUS REG 2 CORRECT
JYES, CHECK DRIVE STATUS REG
;CS2 INCORRECT
;CHECK ]F DRIVE STATUS REG CORRE(CTY
JYES, CHECK ERROR REG
;ERROR REG INCORRECT
;CHECK IF ERROR REG CORRE(T
JoYES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

R RN R A RN A R

A NR RO A NN

RN ERRANRN SRR

R RN

DRIVE AVAILABLE SETTING

CLEAR RK0O6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SEEK TC A Rk(Qs,
26 SECTOR FORMAT TO CYLINDER 2, HEAD O, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILIABLE SETS.

:-'-tttttttt!tttttttttttttttittlttttt'ttttt'tttttttitttttn't't'tttt
TST5*:
SCOPE
MOV
#100. ,$TIMES
2:D0 100. ITERATIONS
MOV
$BASE ,R?
;LOAD RK611 BASE
MOV
#SCLR,RKCS2(R2) ;(LEAR RKQ6 SUBSYSTEM
MOV
#DMD ,RKMR1(R2)
:PUT RK611 IN MAINT MODE
MOV
#2 ,RKDCYL (R2)
;LOAD CYLINDER AND

MOV

MOV
MOV
MOV

#0 ,RKDA(R?2)

;LOAD HEAD ADDRESS

#SEEX ,RKCST1(R?2) ;ISSUE SEEK
422 .%4+2 R0
JISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD 'MCLK ,RKMRT(R2)

Yern )

MA(CYTY

CZR6BDO RK611 DSK.S C(TRL ~RT2
IR68D.PMY
14=SEP=-81 13:4"

5113
5114
5115
5116
5117
5118
5119
5120
5121
$122
5123
5124
5125
5126
5127
5128
5129
5130

5131
5132

5133

5134
5135
5136
5137
5138
5139
5140

5141

5142

S143
S144
5145
5146

5147
5148
5149
5150
5151
5152
5153
5154
5155
5156
5157
5158
5159
5160
5'61
5162
5163
5164
5165
5166

g}gg

025214
025222
025224
025226
025232
025236
025242
025244
025246
025250
025256
025264
025272
025300
0253C6
025314
025322
025330
025336
025340

025342

025350
025352
025354
025262
025364
025366
(25374

025376

012762
0053C0
001370
005062
013700
105762
100402
005300
001373
016237
016237

016237
016237
012737
012737
012737
012737
023737

001401
104140
023737
001401
104141
023737
001401
104142
023737
001401

104143

000040

MACY11

G 8
15:10
30(1046)
14~SEP-81
PAGE 98
*51
DRIVE AVAILABLE SETTING

(00026

000026
004262
000600

2%:

000000
000010

004120
00412C

3%:

004170

004130

4%:

000012
000014
000216
000100
100001
000000
004160

004132
004134
004160
004170
004172
004174
004120

004172

004132

5%:

0064174

004134

¢€$:

025400

013737

004120

004220

025430
025436
025444
025452
025460
025466
025474
025502
025506
025512
025520
025522
025524
025532
025534
025536
025544
025546
025550
025556

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737
001401
104225
023737
001401
104226
023737
001401

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
004160
004170

004170

004130

1's:

)
0064172

004132

12%:

004174

0061364

138:

025406
025414
025422

02556C

013737
013737
013737

104227

004130
004132
00461346

004222
004224
004026

“$:

004120

MOv
DEC
BNE
(LR
MOV

TSTR
BM]
DEC
BNE
MOV
Mov
MOV
MOV
MOV
MOV
MOV
MOV
(MP
BEQ
ERROR

CMP

BEQ
ERROR
CMP
BEQ
ERROR
(MP
BEQ

ERROR

MOV

#DMD ,RKMR1(R2)
RO
1%
RrMR1 (k2)
WAITIM, RC

JFINISH COMMAND [N NORMAL MODE
;WAIT FOR READY

E.(S2.T1.CS2

sCHECK COMMAND AND STATUS REG. 2 CORRECT

RKCST(R2)
3s
RO
2$
RKCST1(R2),T.CS1 ;STCRE COMMAND AND STATUS REG 1
RKCS2(R2),T.(S2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
;STORE DRIVE STATUS REG
RKER(RZ) ,T.ER
;STORE ERROR REG
#RDY . SEEK§<*(<GO>>,E.CST ;LOAD EXPECTED (Si
#IR,E.CS2
;LOAD EXPECTED (S2
#SVAL !DRA,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#0,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.(S1
sCHECK COMMAND AND STATUS REG.1 CORRECT
‘s
JYES, CONTINUE
140

141

E.DS,T.DS
6%
142
E.ER,T.ER
7%

143

1.(S1,P.CS]

MOV
MOV
MOV

T.0S2,P.(S2
1.DS,P.DS
T.ER,P.ER

MOV
MOV
Mov
MOV
MOv
MoV
MoV
(LR
CLR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ

#CCLR,RKCST(RZ)
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T.DS
RKER(R2) ,T.ER
#RDY E. (ST
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CST
11%
224
£.(S2,7.CS2
12%
225
£.DS,T.DS
13$
226
E.ER,T.ER
TSTS5¢

ERROR

SEQ 0097

227

JYES,

CONTINUE

s CHECK DRIVE STATUS REG.
JYES, CONTINUE

CORRECT

;CHECK ERROR REGISTER CORRECT

JYES,

CLEAR

RK611

;STORE PREVIOUS CONTENTS OF

;

COMMAND AND STATUS REG !
COMMAND AND STATUS REG 2
DRIVE STATUS REG

AND ERROR REG

;CLEAR RK611
;STORE COMMAND AND STATUS REG 1
.STORE COMMAND AND STATUS REG 2
;STORE DRIVE STATUS REG
;STORE ERROR REG
;LOAD EXPECTED CS1
;LOAD EXPECTED (CS?2
sLOAD EXPECTED DRIVE STATUS REG
sLOAD EXPECTED ERROR REG
sCHECK COMMAND AND STATUS REG 1 CORRE(T
;YES, CHECK (€S2
2CS1 INCORRECT
;CHECK COMMAND AND STATUS REG 2 (ORRECT
JYES, CHECK DRIVE STATUS REG
;€S2 INCORRECT
sCHECK IF DRIVE STATUS REG CORRECT
JYES, CHECK ERROR REG
;ERROR REG_INCORRE(CT
sCHECK IF ERROR REG CORRECT
;.YES, GO ON TO NEXT TEST

;ERROR REG INCORRECT

e Wan

TIRO6BDO RK61T DSK(S CTRL PRT2
P11
~SEP-81 13:47

(IR6BDD RK611 DSKLS CTRL PRT?

FIR6BD.P11

14-SEP-81 13:4°

MACY1T 30(1046)

152

14=-SEP-BT1

5169

'TEST 52

5172

5175

5176
g;;g

5179
5180
5181
5182
5183
5184
5185
5186
5187
5188
5189
5190
5191
5192
5193

5164

5195
5196
5197
5198
5199
5200
5201
5202
5203
5204
5205
5206
5207
5208
5209
5210
5211

5212
5213
5214
5215
5216
5217
5218
5219

5220
5221
5222
5223
5224

025562
025564
025572
025576
025604
025612
025620
025626
025634
025640
025646
025654
025656
025660

025664

025670
025674
025676
025700
025702
025710
025716
025724
025732
025740
025746
025754
025762
025770
025772
025774
026002

026004
026006
026014
026016
026020
026026
026030
026032

026040
026046
026054
026062

000004
012737
013702
012762
012762
012762
012762
012762

012700
012762
012762
005300
001370
005062

013700

105762
100402
005300
001373
016237
016237
016237
016237
012737
012737
012737
012737
023737
001401
104144
023737
001401

104145
023737
001401
104146
023737
001401
104147
013737

013737
013737
013737
012762

000144
071270
000040
000040
000003
000000
000017
000132
000440
000040

001200
000010
000026
000020
000006
000000
000026
000026

000000

RR RPN

DRIVE BUS PARITY ERROR

C(LEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR,

i
;e

TURN OFF DiACNOSTIC MODE AND MAKE SURE DRIVE BUS
PARITY, DRIVE AVAILIABLE, AND CONTROLLER ERROR ARE

DRIVE 0.

CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
SET.

'-R AR
TS152:
SCOPE
MOV
#100. ,$TIMES
;.D0 100. ITERATIONS
MOV
$BASE ,R2
JLOAD RK611 BASE
MOV
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
MoV
#3,RKDCYL(R2)
;LOAD CYLINDER AND
MOV
#0,RKDA(R2)
sLOAD HEAD ADDRESS
MOV
#SEEK ,RKCST(R2) ;ISSUE SEEK
1$:

2$:

004120
004130
004°32
004134
004160
004170
004172
006174
004120

3%:

004170

006130

4%:

004172

004132

5%:

004174

004134

6$:

006120

004220

7$:

100000

000000

004222
0064224
004226

P R R AR AN N AN N AP E PR P RN N AR IR RN A R E PR AR AP P

SEL 0098

PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SEEK
TO A RKO6, 26 SECTOR FORMAT TO CYLINDER 3, HEAD 0,

000000
000010
000012
000014
120216
000100
100001
000000
004760

004130
004132
004134

PAGE 99

ot
A

000026

004262

DRIVE BUS PARITY ERROR

2};9
5173
5174

15:°0

MOV
MOV
MOv
DEC
BNF
(LR

#22.%4+2 ,R0
; ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%
RKMR1(R2)
sFINISH COMMAND [N NORMAL MODE

TSTB
BMI
DEC
BNE
MOV
MOV
MoV
MOV
MOv
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP
BEQ

RKCS1(R2)
3%
RO
2%
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG !
RKCS2(R2),T.CS2 .STORE COMMAND AND STATUS REG 2
RKDS(R2),T. S
:STORE DRIVE STATUS REG
RKER(R2),T.E
. STORE ERROR REG
#CERR‘SPAR'RDY'SEEK&<‘C<GO>>,E.CS1 ;LOAD EXPECTED (S?
#IR,E.CS2
;LOAD EXPECTED (S2
#SVAL 'DRA,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#0,€ E ;LOAD EXPECTED ERROR REG
E.CST,T.CST
sCHECK COMMAND AND STATUS REG.1 CORRECT
49
JYES, CONTINUE
144
£.CS2,7.(S2
sCHECK COMMAND AND STATUS REG. 2 CORRE(T
5%
sYES, CONTINUE

MOV

ERROR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
MOV

MOV
MOV
MOV
MOV

WAITIM, RC

145
E.DS,T.DS
6%
146
E.ER,T.ER
7%
147
T.CS1,P.CS?

1.(S2,P.(CS2
I.DS,P.DS
T.ER,P.ER

WAIT FCR READY

;CHECK DRIVE STATUS REG.
JYES, CONTINUE

CORRECT

;CHECK ERROR REGISTER CORRECT
JYES, CLEAR RK611

;STORE PREVIOUS CONTENTS OF

:
COMMAND AND STATUS REG 1
:
COMMAND AND STATUS REG 2
;
DRIVE STATUS REG
.
AND ERROR REG
#CCLR,RKCST(RZ) ;CLEAR RK611

"IR6BDD RKO1' DSK.S CTRL PRT2
CIR6BD.P11
14-SEP=-81 13:47
5225
5226
5227
5228
5229
5230
5231

026070
026076
026104
026112
026120
026126
026134

016237

5233
5236

026144
026152

023737
001401

5236

026156

5232

5235

5237
5238
5239
5240
52641
5242

5243
252?

026140

026154

026164
026166
026170
026176
026200
026202

026210
026212

MA(Y11

016237
016237
016237

000000
000010
000012

004120
004130
004132

012737
012737
005037
005037

000200
000100
004172
004174

004160
004170

104224

0c3737
001401
104225
023737
001401
104226
023737

001401

000014

I
8
30('046)
14-S°P-81
15:10 PAGE 100
152
DRIVE BUS PARITY ERROR
MOV
Mov
MOV

RKCST1(R2),7.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),7.CS2 ;STORF COMMAND AND STATUS REG 2
RKDS(R2),T.DS
;STORE DRIVE STATUS REG

MOV
MOV
(LR
(LR

#RDY ,E. (ST
#IR,E.CS?
E.DS
E.ER

Q04134

004160

004120

(MP
BEQ

004170

004130

11%:

004172

004132

12%:

004174

0046134

13%:

104227

ERROR

(MP

BEQ
ERROR
CMP
BEQ
ERROR
CMP

BEQ

ERROR

5246

ggzg

J*TEST 53

5249
5250
5251
5252
5253

M
Iw
M
S x
o

25215'

5256
5257
5258

026214
026216

0u0004
012737

000144

001200

5260
5261

026230
026236

012762
012762

000040
000040

000010
000026

5264
5285
5266
5267
5268

026256
026264
026272
026274
026276

000440
000040

000026
000026

5259
5262
5263

5269
5270
5271
5272
5273
5274
5275
5276
5277

5278

5279
5280

026224

026244
026252

026302
026306
026312
026314
026316
(026320
026326
026334
026342

026350

026356
026364

(013702

012762
012700
012762
012762
005300
001370
005062

013700
105762
100402
005300
001373
016237
016237
016237
016237

012737

012737
012737

001270

000001
000132

004262
000000

904120
004130
004132
0046134

000100
100000

0064179
004172

100200

004160

;STORE ERROR REG

£.(CS1,T.CS1
119%

;CHECK COMMAND AND STATUS REG 1 CORRECT
JYES, CHECK (CS?2

224

E.(S2,T1.(S2

;JLOAD
;LOAD
JLOAD
JLOAD

EXPECTED
EXPECTED
EXPECTED
EXPECTED

2CS1

INCORRECT

(S1
(€S2
DRIVE STATUS REG
ERROR PEG

JCHECK COMMAND AND STATUS REC 2 CORRECT

12%
225
€.DS,T7.DS
13%
226
E.ER,T.ER

JYES, CHECK DRIVE STATUS REG
;€S2 INCORRECT
JCHECK IF DRIVE STATUS REG CORRECT
JYES, CHECK ERROR REG
JERROR REG INCORREC(CT
JCHECK IF ERROR REG CORRECT

227

JERROR REG INCORREC(T

15155

AR AN R A RN RN AN R AR R A R

$:YES, GO ON TO NEXT TEST

R AR AN RN AN

AR AR R AR AR

N R AR AR TR AR RO RRS

DRIVE AVAILABLE RLSET ERROR

CLEAR RK06 SUBSYSTEM WITH A SUBSYSTEM (LEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SELECT
TO A RKO6, 26 SECTOR FORMAT, AND DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.

TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE AVAILIABLE

IS RESET AND CONTROLLER ERROR IS SET.

MOV

1$%:

]
2%:

00000C
000016
000012
000014

RrKER(RZ) ,T.ER

:-;tttt'ttttt.ltttttttttttttttittttttttt'ttttttttttttttttttttttttQ
TST53:
SCOPE
MOV
#100.,8TIMES
2:D0 100. ITERATIONS

000000

000026

SEQ 0099

3$:

$BASE ,R?2

;LOAD RK611 BASE

MOV
MOV

#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)

MOV
MOV
DEC
BNE
(LR

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%
RKMR1(R2)
JFINISH COMMAND

MOV
MOV

MOV
TSTR
BM]
DEC
BNE
MOV
MOV
MOV
MOV

MOV

MOV
MOV

;(LEAR RK(Q6 SUBSYSTEM
;PUT RKET1 IN MAINT MODE

#SELDRV,RKCST1(R2)
; ISSUE SELDRY
#22.%64+2 R0
;ISSUE CLOCKS UNTIL PHASE ADDRESS 6

WAITIM, RO
RKCS1(R2)
39
RO
2%
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),1.DS
RKER(R2),T.ER

JWAIT FOR READY

;STORE
:;STORE
JSTORE
STORE

IN NORMAL MODE

COMMAND AND STATUS REG *
COMMAND AND STATUS REG 2
DRIVE STATUS REG
ERROR REG

#CERR'RDY
' SELDRVE<*C<GO>>,E.CST ;LOAD EXPECTEL (S
#IR,E.(S2
;LOAD EXPECTED (S2
#SVAL .0,E.DS ;LOAD EXPECTED DRIVE STATUS REG

WWWWWWWRINMNMNONRDMNAN IO
D
s D
S a0
AWVNEB W
=000 NN
WSOV
NOWNBWN
OO

(O VLW AV TV, LNV, [V LV, W, [V, W, AV, LV XV AV IV, XV, [V, [V, R LV TV, [V, [V, VW, [V, LV, |
LN AN WA UN U VNN N AN W U
AN A U AN NN NN N AN N N NN

5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
5297
5298
5299
5300
5301
5302
5303
5304
5305
5306
5307
5308

026372
026400
026406
026410
026412
026420
026422
0@6424
(026432
JC6434
026436
026444
026446
026450
026456
026464
026472

(12737
023737
001401
104150
023737
001401
104151
023737
001401
104152
023737
0014601
104153
013737
013737
013737
013737

026500
026506
026514
026522
026530
026536
026544
026552
026556
026562
020570
026572

012762
016237
016237
016237
016237
012737
012737
005037
095037
023737
001401
104224

026602
026604
026606
026614
026616
026§20

001401
104225
023737
001401
104226
023737

026574

026626
026630

023737

001401
104227

J
8
(10646)
14=-SEP-81
15:10
PAGE 101
3001
153
DRIVE AVAILABLE RESET FRROR

000000
006760

(04174
006120

004170

0064130

4$:

004172

006132

S%:

004176

00&813L

-%:

004120
004130
0046132
006134

004220
004222
006224
004226

7%:

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
G°4160
004170

0N4170

004130

11%:

004172

004132

12%:

004174

(004134

13%:

004120

SEG 0100

MOv
(Mp

#0,E.ER ;LOAD EXPECTED ERROR REG
€.0S1,7.CST
JCHECK COMM ND AND STATUS REG.1 CORRE’T

(mP
BEQ

€.082.7.C52
5$

8EQ
ERROR

ERROR
(Mp
REQ
ERROR
(mp
80
ERROR
mOv
MOV
MOy
MOV

8
150

JYES,

141
£.DS,T.DS
63
15
£E.'
,T.ER
s
1S3
1.(51,P.CST
1.(S2,P.CS2
1.05.P.DS
T.ER, P ER

CONTINIE

JCHECK COMMAND AND STATUS REG. 2 CORKRECT
JYES, CONTINUE
;CHECK DRIVE STATUS REG.
JYES, CONTINUE

CORREC(CT

JCHECK ERRJIR REGISTER CORREC(CT
:YES, CLEAR RK611

MOV
MOV
MmNy
MOV
MOV
MOV
MOV
(LR
(LR
(MP
BEQ
ERROR

;STORE PREVIOUS (ONTENTS OF
s
COMMAND AND STATUS REG :
.
COMMAND AND STATUS REG ¢
DRIVE STATUS REG
.
AND ERROR REG
#CCLR,RKCST(R2) ;(LEAR RK611
RKCST1(R2),7.CSY1 ;STORE COMMAND AND STATUS REG 1
R .S2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2).,T1.DS
;STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
#RDY ,E.CS?
;LOAD EXFECTED (S1
#IR,E.CS2
:LO0AD EXPECTED (CS?
£.DS
;LOAD EXPECTED DRIVE STATUS REG
E.ER
cLOAD EXPECTED ERROR REG
i
E.CS1,T.CS1
JCHECK COMMAND AND STATUS REG 1 (CURRF(CT
11%
JYES, CHECK (S2
224
;CS1 INCORRECT

BEQ
ERROR
(MP
BEQ
ERROR
CMP

12%
225
E.DS,T.DS
13%
226
E.ER,T.ER

(mMp

BEQ
ERROR

E.(S2.7.(S2

T1ST54
227

;CHECK COMMAND AND STATUS REC 2 (ORRECT

JYES, CHECK DRIVE STATUS REu
;€S2 INCORRECT
;CHECK IF DRIVE STATU> REG CORRECT
JYES, CHECK ERROR REG
JERROR REG INCORRECT
JCHECK [F ERFOR REC CORREC(CT

JJYES, GO ON TO NENT TEST
JERROR REG INCORRECT

';tt.'tt'ttfittttttttt't"t"t!tttt‘lfllt..lfit.ti'li.tl!tittt!tt'tt

TRTESI Sé
s
I

;e
S
i
026632
026634
026642
026646
026654

000004
012737
013702
012762
012762

CDT SET DRIVE TYPE

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A SEEK

WITH (DT SET,

26 SECTOR FORMAT,

TO CYLINDER 23,

HEAD 0, DRIVE 0. CLOCK IN DIAGNOSTIC MODE
UNTIL PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE
AND MAKE SURE ONLY DRIVE AVAILIABLE SETS.

;;ttttttli..t'ttfi.t't""'"ifififit.tit’tfitt'ttlt'tt"!lt't't"t“'
000144

001200

000040

000010
00026

001270
000040

TSTS54:

SCOPE
MOV

#100.,8TIMES

;DO 100.

[TERATIONS

MOV

#DMD ,RKMRT(R2)

;PUT RK611

[N MAINT MODE

MOV
MOV

$BASE ,R?
#SCLR,RKCS2(R2)

;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM

Wty

WwACY1Y

“IR6BDI RKOH1T DSKLS CTRL PRT2
"IR6BD.P1T
14-SEP-81 13:4°

026760
026766
026774
027002
027010
027016
027024
027032
027040
027042
027044
027052
027054
027056
027064
027066
027070
027076
027100
027102
027110
027116
027124

027132
027140
027146
027154
027162
027170
027176
027204
027210
027214
027222
027224
027226
027234
027236
027240
027246

000023
000000
002017

000020
000006
000000

-0

x
"

wr
OO0 =
OO0

MACY11

13:47

000132
000440
000040

000026
000026

000026
004262
000000

000000
000010
000012
000014
002216
000100

30(1046)
154

1%:

2%:

3%:

000000
004160

004120
0046130
004132
004134
004160
004170
004172
004174
004120

004170

004130

4%:

004172

004132

5%:

004174

004134

6%:

004120
004130
004132
004134

004220
004222
004224
004226

7%:

100000

000000
004120

Nt DB ed 3 b

aonon WA YU
LW TN
VA VTN A VT
A VT LA VTV A VT A T
AN NN WN AN LN AN N NN NN N AN N W N NN W N AN AN AN N N AN N AN O
N N

00
0o Co O 00000000 N NNNNNNNNNOOON OO
O N NN NI LAV
NONW S WOV
NN NS NN —=O VO~ OV
W2 OV
NN
WO

AL A
U
N AN AN NN

026662
026670
026676
026704
026710
026716
026724
0267¢6
026730
026734
026740
026744
026746
026750
026752

L PRT?

OOOCO

5337

5338
5339
5340
5341
5342
5343

OOOOOOOOOOO
ONOQOQO
= d ) —d ek b

CZR6BDO RK611
TIR6BD.P11

023737
001401

100401

000000
000010
000012
000014
000200
000100
004172

MOV
Mov
MoV
MOV
MOV
MOV
DEC
BNE
(LR
MOV

004174
004160

004120

004170

004130

11s:

0046172

004132

12%:

102

SEQ 0107

#23 ,RKDCYL(RZ2)
;LOAD CYLINDER AND
#0,RKDA(R2)
:LOAD HEAD ADDRESS
#CDT!SEEK,RKCST(R2)
s ISSUE (DT!SEEK
#22.%4+2,R0
s ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%
RKMR1(R2)
sFINISH COMMAND [N NORMAL MODE
WAITIM, RO
JWAIT FOR READY

TSTR

RKCST(R2)

MOV
Mov
MoV
MOV
MOV
Mov

RKCS1(R2),T.(S1 ;STORE COMMAND AND STATUS REG 1!
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG ¢
RKDS(R2) ,T.DS
;STORE DRIVE STATUS REG
RKER(R2) ,T.ER
;STORE ERROR REG
#CDT.RDY!CDT.SEEKR<~C<GO>>,E.CST :LOAD EXPECTED (S1
#1R,E.CS2
;LOAD EXPECTED (S?2

MOV
(MP
BEQ

#0,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.051
;CHECK COMMAND AND
4%
JYES, CONTINUE

BMI
DEC
BNE

MoV

004130
004132
004134
004160
004170

14-SEP-81
15:10
PAGE
(DT SET DRIVE TYPE

ERROR
(MP
BEQ
ERROR
CMP

3%
RO
2%

#SVAL !DRA!DDT,E.DS

154
E.(S2,T.CS2
5%
155

E.DS.T.DS

;LOAD

sCHECK DRIVE

6%
156

JYES,

BEQ
ERROR

7$
157

;YES,

MOV
MOV

;STORE PREVIOUS CONTENTS OF
;.
COMMAND AND STATUS REG 1

#CCLR,RKCS1(R2)
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T7.DS
RKER(R2) ,T.ER
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER

{MP

E.CST1,T.CS1
118
224

E.CS2,T.CS2
12%
225
E.DS,T.DS
13%

CORRE(CT

CORRECT

T.CS1,P.CS]
1.(S2,P.rS2

MOV
MoV
MOV
MOV
MOV
MOV
MOV
CLR
CLR

8EQ

STATUS REG.

CONTINUE

;CHECK ERROR REGISTER CORRECT

T.DS,P.DS
T.ER,P.ER

CMP

STATUS REG.1

E.ER,T.ER

MOV
Mov

BEQ
ERROR
CMP
BEQ
ERROR

STATUS REG

sCHECK COMMAND AND STATUS REG. 2 CORRE(T
JYES, CONTINUE

BEQ
ERROR
CMP

EXPECTED DRIVE

;

CLEAR RK611

COMMAND AND STATUS REG 2
DRIVE STATUS REG

AND ERROR REG

;CLEAR RK611
;STORE COMMAND AND STATUS REG 1
.STORE COMMAND AND STATUS REG 2
;STORE DRIVE STATUS REG
;STORE ERROR REG
sLOAD EXPECTED (CS1
;LOAD EXPECTED (S?2
;LOAD EXPECTED DRIVE STATUS RE%
;LOAD EXPECTED ERROR REG

: CHECK COMMAND AND STATUS REG 1

CORRECT

;YES, CHOCK (€S2
2CS1 INCORRECT
;CHECK COMMAND AND STATUS REG 2 (ORRECT
JYES, CHECK DRIVE STATUS REG
;€S2 INCORRECT
JCHECK

JYES,

DRIVE

STATUS REG CORRECT

CHECK ERROR REG

CZR6BDO RK611 D SK L S (TRL PRT?
1 4 -SEP-81 13:47
TZR6BD.P1T

027250
027¢52
027260

027262

104226
0237 37

0014 91
1042 27

006174

3?;2046)

004134

13$:

5601

5423
5424
5425

5426
5427
5428
5429
5430
5631
5632

5633
5634
56435
5436
5437
5438
56439
5640
5641
5442
5443
5644
5445
5446
5647
5448

027264
027266
027274
027300
027306
027314
027322
027330
027336
027342
027350
027356
027360
027362
027366
027372
027376
027409
027402
027404
027412
027420
027426
027434
027442
027450
027456
027464
027472
027476
027476
027504
027506
027510
027516
027520
027522
027530
027532

000144
001270
000040
000040
000002
000000
002017
000132
000440
000040

062

NSNS
SN
S NN
OOWOOWO
OO O NININININN
N2 NN = N 2 =
O =2 NININININ

5408
5409
5610
5611
5612
5413
5414
5415
5616
5477
5418
5479
5620
5621
5422

e =le P leolol Helo D
Hololeleololelalololelolaol
Lo loleleolelelolelalolelslelo o]

5402
5403
5404
5605
56046
5407

001200

;ERROR REG INCORRE(T
“CHECK IF ERROR REG CORRECT

ERROR

227

*ERRCR REG INCORRECT

BEQ

1ST56"

CDT

S:YES, GO ON TO NEXT TEST

CONTROLLER

000100
100001

004170

004130

00417¢

004132

5%:

004174

006134

6$%:

ISSUE A

SEEK

DRIVE

TYPE ERROR,

TS T

MOV
MOV
MoV

#100.,8TIMES
$BASE ,R2
#SCLR,RKCS2(R2)

MOV
MOV
MOV

#0,RKDA(R2)
:LOAD HEAD ADDRESS
#CDT!SEEK,RKCS1(R2)
;ISSUE CDT!SEEK
#22.%4+2 RO
: ISSUE CLOCKS UNTIL PHASE ADDRESS 6

MOV

#DMD ,RKMR1(R2)
#2 ,RKDCYL (R2)

;.D0 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM

;PUT RK611 IN MAINT MODE
sLOAD CYLINDER AND

#DMD .MCLK ,RKMR1(R2)

MoV
DEC
BNE

#DMD ,RKMR1(R2)
RO
1$

DEC
BNE
MOV
MOV
MoV
MOV
MOV
Mov

RO
2%
RKCS1(R2),7.CS1 ;STORE COMMAND AND STATUS REG
1
RKCS2(R2Y,T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),7.DS
:STORE DRIVE STATUS REG
RKER(R2) ,T.ER
:STORE ERROR REG
#CDT!CERR!RDY!
(DT !SEEKR<*C<GO>>,E,CST ;LOAD EXPECTED (S1
#1R,E.CS2
;LOAD EXPECTED (S

(MP
BEQ

E.CS1,7.CS1
48
160

(LR
MOV
TSTR
BMI

Mov
MOV

000040
004160

ERROR

IN DIAGNOSTIC MODE.

AND MAKE SURE DRIVE AVAILIABLE,
AND “ONTROLLER ERROR SET.

MOV
MOV

3%:

TYPE

WITH CDT SET, 26 SECTOR FORMAT, TO CYLINDER 2,
HEAD 0, DRIVE 0. CLOCK IN DIAGNOSTIC MODE
UNTIL PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE

1$:

SET AND DRIVE

(LEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

SCOPE

2%:

000000
000010
000012
000014
102216

226
E.ER,T.ER

010026

004262
000000

SEQ 0102

ERROR
CMP

TST55:

000010
000026
000020
000000
000000
000026
000026

L
8
14-SEP-81
15:10 PAGE 103
(DT SET DRIVE TYPE

2322222322222 222223222232222322232Z22322222328223Z82X232X22X2RRAR
N2 ]

S*TEST
II'!I.'..

5393
5394
5395
5396
5397
5398
5399
5400

MACY11

ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

(Mp
BEQ
ERROK

RKMR1(R2)
WAITIM, RO
RKCS1(R2)
3%

#SVAL 'DRA,E.DS
#DTYE ,E.ER

JFINISH COMMAND IN NORMAL MODE
WAIT FOR READY

;(0AD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG

;CHECK COMMAND AND STATUS REG.1
JYES, CONTINUE

CORRECT

E.(S2,7.(CS2
5%
161

;CHECK COMMAND AND STATUS REG. 2 CORRE(T
JYES, CONTINUE

E.ER,T.ER
7%
163

JCHECK ERROR REGISTER CORRECT
.YES, CLEAR RK611

£E.DS,T.DS
0$
162

;CHECK DRIVE STATUS REG.
JYES, CONTINUE

CORRECT

027564
027572
027600
027606
027614
027622
027620
027636
027642
027646
027654
027656
027660
027666
027670
027672
027700
027702
027704
027712
027714

13:47

013737

004120
004130
004132
004134

004220
004222
004224
004226

100G00

000000
004120
004130
004132
004134
004160
006179

}

NN
NN

OO0

13737

37
k &ad

104225

000000

30(1046)
T55
7$:

004120
004130

11$:

004132

128:

023737
001401

004174

004134

13%:

104227

15:10

(DT SET AND DRIvE

m
8
PAGE 104
TYPE ERROR

SEQ 0103

MOV

T.¢S1,P.CS]

:STORE PREVIOUS CONTENTS OF

Mov

r.DS,P.DS

MOV

1.0(52,P.CS2

COMMAND AND STATUS REG 1

COMMAND AND STATUS R:G 2

MOV

T.ER,P.ER

MoV
MOV
MOV

#CCLR,RKCST1(R2) ;CLEAR RK611
RKCS1(R2,,T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2

MoV

.
.

DRIVE STATUS REG
AND ERROR REG

RKER(R2),T.ER

RKDS(R2),7.DS

;STORE DRIVE

MoV

#RDY ,E.CST

JLOAD EXPECTED (S1

ERROR
CMP
BEQ
ERROR
(MP
BEQ
ERROR

224
£.(S2.T7.CS2
12%
225
E.DS,T.DS
13%
226

:CS1 INCORRECT
;CHECK COMMAND ANZ >TATUS REG 2 CORRECT
;YES, CHECK DRIVE STATUS REG
;CS2 INCORRECT
;CHECK IF DRIVE STATUS REG CORRE(T
;YES, CHECK ERROR REG
JERROR REG INCORRECT

MOv
(LR
(LR
CMP
BEQ

004172

104226

14-SEP-81

MOV

023737
001401

cMp

BEQ
ERROR

STATUS REG

;STORE ERROR REG

#IR,E.(S2
E.DS
E.ER
E.CS1,T.CST
118

;LOAD EXPECTED (S2
;LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG
;CHECK COMMAND AND STATULS REG 1 CORRECT
;YES, CHECK CS¢

E.ER,T.ER

JCHECK

ERROR REG CORRECT

;.YES, GO ON TO NEXT TEST
JERROR REG INCORFRECT

TST56
227

;:ttt.i*t.t.ttfi‘*ttfit""""..Q.'.Q"...t'..'"..'..'.'."Q'...Q

J*TEST 56

RKO6 AND DRIVE

TYPE

ERROR

- %

b
T

it
o*
o
i

it
b

000144
001270
000040
000040

p=
o

027716
027720
027726
027732
027740
027746
027754
027762
027770
027774
030002
030010
030012
030014
030020
030024
030030

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

A SEEK

TO A RKO6, 26 SECTOR FORMAT, TO CYLINDER 23,
HEAD 0, DRIVE 0. CLOCK IN DIAGNOSTIC MODE
UNTIL PHASE ADDRESS 6.

MODE

AND MAKE

SURE

TURN OFF

DRIVE

DIAGNOSTIC

AVAILIABLE,

AND CONTROLLER ERROR SETS.

DRIVE

TYPE

ERROR,

E;fitt'tti.'..tifit't'tfi"t*"'tt.filtit.t.t!fii'..".t"".ttt'tt"t

5461
5462
5463
5464
5465
5466
5467
5468
5469
5470

027534
0275642
027550
027556

MACY11

14-SEP-B81

il lelelalelololelelelele o)
OO—=OOO
g ==
O \VUANWN =2 AR
NN
PO
NN

5449
5450
5451
5452
5453
5454
5455
5456
5457
5458
5459
5460

DSKLS CTRL PRT?

OQOOOOOOOOOOO
OO
Db
d
=S WNWNNONOCONONONNY)
S NOONNMNMNINONN
O WWNINNINININNINC
=NNNN
N NN NN

CIR6BDO RKE11
(ZR6BD.P11

000023
000000
000017
000132
000440
000040

000026
004262
000000

001200

TST56:

000010
000026
000020
000006
000000
000026
000026

1%:

2$:

SCOPE

MOV
MOV
MOV
MOV
MOV
MoV
MOV
MOV

#100. ,$TIMES
$BASE ,R2
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#23 ,RKDCYL(R2)
#0,RKDA(R2)
#SEEK ,RKCS1(R2)
#22.+4+2 RO

;D0 100. ITERATIONS
:LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE

DEC
BNE
CLR

RKMR1(R2)

sFINISH COMMAND IN NORMAL MODE

MOV
MOV

MOV

TSTB
BM]

;LOAD CYLINDER AND
;LOAD HEAD ADDRESS
;ISSUE SEEK
: ISSUE CLOCKS UNTIL
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1$

WAITIM, RO
RKCST(RZ)
3%

;WAIT FOR READY

PHASE ADDRESS 6

5505
5506
5507
5508
5509
S510
5511
5512
5513
5514
5515

030032
030034
030036
030044
030052
030060
030066
030074
030102
030110
030116

005300
001373
016237
016237
016237
016237
012737
012737
012737
012737
023737

5518
5519

030130
030136

023737
001401

5516
5517

5520
§521
5522
5523
§524
5525
5526

5627
5528
5529
5530
5531
5532
5533
5534
5535
5536
5537
5538
5539
5540

030124
030126

0C4170

004130

4$:

0046172

004132

S$:

004174

004134

6$:
7$%:

004120
004130
004132
0064134

004220
004222
004224
004226

030216
030224
030232
030240
030246
030254
030262
030270
030276
030300
030306

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401

100000
000000
000010
000012
000014
000200
000100
004172
006174
004160

000020
004120
004130
004132
004i34
004349
004170

004170

004130

030322
030326

5549
5550

030334
030336

gggg

3$:

013737
013737
013737
013737

5546
5547

5551

004120
004130
004132
004134
004160
004170
004172
004174
004120

104165
023737
001401
104166
023737

030310
030312

5548

000000
000010
000L12
000014
100216
000100
100401
000040
004160

030140
030142
030150
030152
030154
030162
030164
030166
030174
030202
030210

5541
5542
5543
5544

5545

001401
104164

030320

030332

030344

030346

001401
104167

104224
023737

001401

104225
023737

001401

104226
023737

001401

006172
004176

004134

RO
28

CMP
BEQ
ERROR
CMP
BEQ
ERROR
CMP

£.CS2,7.CS2
5%

BEQ
ERROR

8FQ
ERROR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CMP
BEQ

004120

0064132

DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP

11$:
12%:
13$:

104227

(8
164

165
£.DS.T.DS
68
166
E.ER,T.ER

CORRECT

CLEAR RK611

;STORE PREVIOUS CONTENTS OF
:
COMMAND AND STATUS REG 1
:
COMMAND AND STATUS REG 2
:
DRIVE STATUS REG
:
AND ERROR REG
#CCLR,RKCST(R2) :CLEAR RK6T1
RKfS1(R2).T CS1 :STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 :STORE COMMAND AND STATUS REG ?
RKDS(R2),T.DS
:STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
#RDY ,E.CS?
:LOAD EXPECTED (CS1
#IR,E.CS2
E.DS
E.ER

225
£.DS.T.DS

ERROR
(MP

226
E.ER,T.ER

ERROR

227

:LOAD EXPECTED €S2
:LOAD EXPECTED DRIVE STATUS REG
:LOAD EXPECTED ERROR REG
;CHECK COMMAND AND STATUS REG 1 CORRECT
:YES, CHECK €S2

:CST INCORRECT
;CHECK COMMAND AND STATUS REG 2 CORRE(T

:YES, CHECK DRIVE STATUS REG

138

:YES, CHECK ERROR REG

15157

JoTEST S7

5557

€569

bd
<

2 CORRECT

T.CS1,P.CSY
T.CS2,P.CS2
1.0S,P.DS
T.ER,P.ER

3222

;YES,

ERROR
CMP

BEQ

;CHECK COMMAND AND STATUS REG.
:YES, CONTINUE

:CHECK ERROR REGISTER CORRECT

ERROR
CMP

8EQ

CONTINUE

:CHECK DRIVE STATUS REG.
:YES, CONTINUE

7$
167

SN NN NN AN AT RN

:YES,

£.CS1,7.CS1
11$
224
£.0S2,7.CS2

BEQ

SEQ 0104

RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(K2),T.CS2 :STORE COMMMND AND STATUS REG 2
RKDS(R2),7.DS
:STORE DRIVE STATUS REG
RKER(R2),T.ER
:STORE ERROR REG
#CERR.RDY. SEEKR<*C<GO>>,E.CST :LOAD EXPECTED CS1
#IR,E.CS2
:LOAD EXPECTED (S2
#SVAL 'DRA.ODT,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#DTYE E.ER
:LOAD EXPECTED ERROR REG
£.CS1,7.CS1
:CHECK COMMAND AND STATUS REG.1 CORRECT

SSSI.

3258

MACY11 30(1046)
14-SEP-81
15:10 PAGE 105
156
RKO6 AND DRIVE TYPE ERROR

:£S2 INCORRE(!
:CHECK IF DRIVE STATUS REG CORRECT

:ERROR REG INCORRECT
:CHECK IF ERROR REG CORRECT

::YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

T O T RPN AN O LN RO NN

R AN RN RIS NGIROOOREIROIRROIRIOIOITCTTSY

SPEED LOSS FROM SHIFT REG.

CLEAR RK06 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE. [SSUE A SEEK
TO A &r (s,

C.OCK IN DIAGWOSTIC MODE NTIL PMASE ADDRESS 6. T_QN

26 SECTOR FURMAT,

TO CYLINDER 3, WEAD ', DRIVE

CZR6BDO RKk611 DSKLS CTRL PRT2
CZR6BD.P1
14-SEP=-81 13:47

WACY11

5561

ggg%
5564
5565
5566
5567
5568
5569
5570
5571
5572
5573
5574
5575
5576

5577
5578
5579
5580
5581
5582

5583
5584
5585
5586
5587
5588
5589
5590
5591
5592
5593
5594
5595
5596
5597

5598
5599

5600
5601
5602
5603
5604
5605
5606
5607
5608
5609
5610
5611
5612
5613
5614

5615
5616

B 9
30(1046)
14-SEP-81
15:10 PAGE 106
157
SPEED LOSS FROM SHIFT REG.

* %

030350
030352
030360
030364
030372
030400
030406
030414
030422
030426
030434
030442
030444
030446
030452
030456
030462
030464

030466
030470
030476
030504
030512
030520

030526
030534
030542
030550
030556
030560
030562
030570
030572

030574
030602

030604
030606
030614
030616
030620
030626
030634
030642

030650
030656
030664
030672
030700
030706
030714
030722

000004
012737
013702
012762
012762
012762
012762
012762
012700
012762
012762
005300
00370
007062
01.700
10,762
10402
005300

001373
016237
016237
016237
016237
012737

012737
012737
012737
023737
001401
104170
023737
001401
104171

023737
001401

000146
001270
000040
000040
000003
000400
000017
000132
000440
C 2040

001200
000010
000026
000020
000006
0000GV
900026
000026

000026
004262
0000C0

SEQ €105

OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE AVAILIABLE AND

SPEED LOSS ARE SET.

E;Q'tfittitifi'Q.Qttt.Q"'i'Qt.i'Qtttttttifit.ittt*t’tt*ttitt'tttt'i
TST57:
SCOPE
MOV
#100.,8TIMES
;;D0 100. ITERATIONS
MOV
$BASE ,R2
;LOAD RK611 BASE
MoV
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
MoV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
MOV
#3,RKDCYL(R2)
;LOAD CYLINDER AND
MOV
#400,RKDA(R2) ~ ;LOAD HEAD ADDRESS
Mov
ASEEK ,RKCS1(R2) ;ISSUE SEEK
Mov
#22.%4+2 RO
: ISSUE CLOCKS UNTIL PHASE ADDRESS 6
18:
MOV
#OMD !MCLK ,RKMR1(R2)
MoV
#DMD ,RKMR1 (R2)
DEC
RO
)
¢$:

000000
000010
000012
000014
000216
000100
100021
0170000
004160

004120
004130
9004132
004134
004160
004170
004172
004174
004120

3%:

004170

004130

4%:

004172

004132

5%:

104172
023737
001401
104173
013737
013737
013737
013737

004174

0046134

6%:

004120
004130
004132
004134

004220
004222
006224
004226

7%:

012762
016237
016237
016237
016237
012737
012737
005037

106000
000000
000010
000012
000014
000200
000100
004172

000000
004120
004130
004132
004134
004160
004170

BNE
CLR
MoV
TSTB
BMI
DEC
BNE
MoV
MoV
MOV
MOV
MOV
mMov
MOV
MOV
cMp
BEQ
ERROR
(MP
BEQ
ERROR

C(MP
BEQ
ERROR
cMP

BEQ
ERROR
MOV
MOV

MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
Mov
(LR

1%
RKMR1(R2)
WAITIM, RO
RKCS1(R2)
3s
RO

;FINISH COMMAND [N NORMAL MODE
;WAIT FOR READY

2%
RKCS1(R2),T.CS1 ;STORE CUMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
;STORE DRIVE STATUS REG
RKER(RZ) ,T.ER
;STORE ERROR REG
HRDY ! SEEKE<*(<GO>>,E.CS1 ;LOAD EXPECTED (S1

#1R,E.CS2
;LOAD EXPECTED (S?2
#SVAL !DRA!SPDLSS,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#40,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CS1
;CHECK COMMAND AND STATUS REG.' CORRECT
4%
170
£.CS2,7.CS2
5%
171

E.DS,T.DS
(0}
172
E.ER,T.ER

’$
173
T.€S1,P.CS1
T.(S2,P.CS2

;YES,

CONTINUE

;CHECK COMMAND AND STATUS REG. 2 CORRE(CT
;YES, CONTINUE

;CHECK DRIVE STATUS REG. (v
JYES, CONTINUE

;CHECK ERROR REGISTER CORRECT
JYES, CLEAR RK611

;STORE PREVIOUS CONTENTS Of
.
COMMAND AND STATUS REG 1
1.DS,P.DS
.
COMMAND AND STATUS REG 2
T.ER,P.ER
;
DRIVE STATUS REG
;
AND ERROR REG
#CCLR,RKCS1(Kk2) .CLEAR RK611
RKCST1(R2),T7.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2) ,7.DS
;STORE DRIVE STATUS REG
RKER(R2) ,T.ER
;STORE ERROR REG
#RDY ,E.CST
sLOAD EXPECTED CS1

#IR.E.CS2
E.D>

;LOAD EXPECTED (S2
"LOAD EXPECTED DRIVE STATUS REG

CZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P1T
14-SEP-81 13:47

030726
030732
030740
030742
030744
030752
030754
030756
030764
030766
030770
030776
031000

OO —=00 =000
ONOONOONO
= NS BN
N
SNSNS
No

004120

004170

004130

11%:

004172

004132

12%:

004174

00612¢

13%:

164-SEP-81

15:10

PAGE

107

SEQ 0106

SPEED LOSS FROM SHIFT REG.

(LR
(MP
BEQ
ERROR
CMP
BEQ
ERROR

E.ER
E.CS1,7.CS1

ERROR
CMP
BEQ
ERROR

226

CMP
REQ

;LOAD EXPECTED ERROR REG
;CHECK COMMAND AND STATUS REG 1

CORRECT

118

JYES,

CHECK (S¢2

12%

JYES,

CHECK DRIVE STATUS REG

E.DS,T.DS
138

;CHECK IF DRIVE STATUS REG CORRECT
;YES, CHECK ERROR REG

E.ER,T.EK
TST60

sCHECK IF ERROR REG CORRECT
;.YES, GO ON TO NEXT TEST

226
£.0S2,7.CS2

;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG 2 CORRECT

225

;CS2 INCORRECT

sERROR REG INCORRECT

227

;ERROR REG INCORRECT

:'tttttttttttttttt'ttt"'tittttttttttt't.fititt'tttittttttttttttt.

DRIVE

OFF

TRACK

FROM SHIFT

REG.

%
B
%
¥
¥

I
T
R

X%
%

PRR

SHTEST 60

5637

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE A SEEK

TO A RK06,

26 SECTOR FORMAT, TO CYLINDER 3, HEAD 2, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF

DJAGNOSTIC

AND DRIVE OFF

MODE

TRACK ARE

AND MAKE

SET.

SURE

DRIVE

AVAILIABLE

';t*tttttt*fitttttt*t't*tit't’tt*tk*'tttfittt*ktfitttttttttttt‘tttnt

000144
001270
000040
000040

010003
001000
000017
000132
000440
000040

00002¢
004262
000000

ek
b md =

=D SONO RN
£SO

d D
b

e I
R
e R

POMOROIND == =2

e
T
R R

WWRIN = —
ONORSO

031002
031004
031012
031016
031024
031032
031040
031046
037054
031060

lelelololelelolelelolelelele) o
AN A NN NN NN N N N N NN N W

5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
5661
5662
5663
5664
5665
5666
5667
5668
5669
5670
5671
5672

004174
0046160

5635
5636

5638
5639
5640
5641
564¢
56643
5644
5645
5646

3? (1046)

001373

000000
000010
000012
000014
000216
000109
100041
000000

001200

15T60:

000010
000026

000020

MOV

000006

000009

000026
000026

1%:

2%:

3%:

004160
004170

SCOPE
MOV
MOV
MOV
MOV

4%:

Mov
MOV
MOV
MOV
MOV

#100. ,$TIMES

$BASE ,R2

#DMD ,RKMR1(R2)

RO
1%
RKMR1(R2)

TSTB
BMI
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RKCS1(R2)
3%

CMP
BEQ
ERROR
CMP

ITERATIONS

;LOAD RK611 BASE

#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINT MODE
#3,RKDCYL(R2)
sLOAD CYLINDER AND
#1000,RKDA(RZ2)
;LOAD HEAD ADDRESS
#SEEK ,RKCS1(R2) ;ISSUE SEEK
#22.%4+2 RO
; ISSUE CLOCKS UNTIL PHASE ADDRESS 6
#DMD !MCLK ,RKMR1(R2)

DEC
BNE
CLR

MoV

:.D0 100.

WAITIM, RO

RKCS1(RZ2),T.CS1

;FINISH COMMAND IN NORMAL MODE

;WAIT FOR READY

;STORE COMMAND AND STATUS REG 1

RKCS2(R2),T.(S2 ;STORE COMMAND AND STATUS REG 2

RKDS(R2),7.DS
;STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
ARDY ! SEEK&<*(<G0>>,E.CS1 ;LOAD EXPECTED (S1
#IR,E.CS2
;LOAD EXPECTED (CS2
#SVAL !DRA'!DROT,E.DS ;LOAD EXPECTED DRIVE
#0,E.ER ;LOAD EXPECTED ERROR REG

STATUS REG

E.CS1,T7.C81

;CHECK COMMAND AND STATUS REG.1 CORRECT

E.CS2,T.CS2

;CHECK COMMAND AND STATUS REG. 2 CORRECTY

;YES,

CONTINUE

MACYT

5617
5618
5619
5620
5621
5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634

W
~

CIR6BDO RK611 DSKLS CTRL PRT?
14~SEP-81 13:47
ZZR6BD.P11

NN NN

NN NN W

OOOCOOOOOOOOO

D 9
3010467
14-SEP-81
15:10
PAGE 108
T60
DRIVE OFF TRACK FROM SHIFT REG.

104175

BEQ

023737
00140

004172

004132

5%:

023737

006174

004134

6%:

004120
004130
004132
004134

004220

7%:

100000
000000
000010

200006
004120
004130
004132
004134
004160
004170

104176

000012
000014
000200
000100
004172
004174
004160

031332

004222
004224
004226

118:

004172

004132

12%:

004174

004134

13%:

104227

JCHECK DRIVE STATUS REG.
;YES, CONTINUE

176
E.ER,T.ER
7$
177

T.C(S1,P.CST

T.0S2,P.CS2
71.DS.P.DS
T.ER,P.ER
#CCLR,RKCS1(R2)
RKCS1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T7.DS
RKER(R2) ,T.ER
#RDY ,E.CS1
#IR,E.CS2

CMP

E.CST1,T.CST

BEQ
ERROR
(MP
BEQ
ERROR
CMP
BEQ

ERROR
CMP

BEQ

ERROR

CORRECT

;CHECK ERROR REGISTER CORRECT
JYES, CLEAR RK611

MOV
MoV
MOV
MOV
MOV
MOV
Mov
CIR
(LR

0064130

ERROR
CMP
BEG
ERROR
MOV
MoV
MOV

004170

;YES, CONTINUE

175
E.DS,T.CS

MoV

004120

ERROR
CMP

BEQ

SEQ 0107

E.DS
E.ER

11%
224
£.(S2,7.(S2
12%
225
E.DS,T.DS
13%

226
E.ER,T.ER
TST61

;STORE PREVIOUS CONTENTS OF
;
;

;

COMMAND AND STATUS REG 1
COMMAND AND STATUS REG 2
DRIVE STATUS REG

AND ERROR REG

;CLEAR RK611
;STORE COMMAND AND STATUS REG 1
;STORE COMMAND AND STATUS REG 2
;STORE DRIVE STATUS REG
;STORE ERROR REG
;LOAD EXPECTED (S1
;LOAD EXPECTED (S2

sLOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG

;CHECK COMMAND AND STATUS REG 1

;ERROR REG INCORRECT
;CHECK IF ERROR REG CORRECT
;.YES,

227

CORRECT

JYES, CHLCK €S2
:CST INCORRECT
;CHECK COMMAND AND STATUS REG 2 CORRECT
JYES, CHECK DRIVE STATUS REG
;€S2 INCORRECT
;CHECK IF DRIVE STATUS REG CORRECT
;YES, CHECK ERROR REG
GO ON TO NEXT TEST

;ERROR REG INCORRECT

;;ttt*tttt'lt*tttttti'ttii'tttttttttttti'ti*flfifittttitt*ttttttfiitt

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE A PACK ACKNOWLEDGE

HEAD 1, DRIVE 0. CLOCK IN DIAGNOSTIC MODE UNTIL

i*
it

SURE SPEED LOSS, WRITE LOCK ERROR AND CONTROLLER ERROR
ARE SET WITH DRIVE AVAILIABLE RESET.

TO A RKO6,

MNNN%NWNO
o

R
e
—_—

031506

001200
000010
000026
000020
000006
000000

26 SECTOR FORMAT, WITH CYLINDER O,

PHASE ADDRESS 6.

00C144
001270
000040
000040
000000
000400
000003
000132

WRITE LOCK ERROR FROM SHIFT REG.

.
i*

(elelelelelelele
e

NONLNONLNNONONN
) 2
a2
OO NS W =2OV00 NN NN =

A
AT AV A VT AN N N NN N
NNNNSNNNNNNNNN
NN

J*TEST 67

TURN OFF

DIAGNOSTIC MODE

AND MAKE

EASASSS SRRl
st
R
RRR]

T$T61:

SCOPE

MOV

#100.,8TIMES

MOV
MOV
MOV
MOV
MOV

#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#0 ,RKDCYL(R2)
#400,RKDA(R2)
#PACK,RKCS1(R2)

MoV

MOV

$BASE ,R?

;:D0 100. ITERATIONS
sLOAD RK611 BASE

#22.%4+2 R0

s ISSUE

;CLEAR RKO6 SUBSYSTEM
;PUT RK611 IN MAINT MODE
;LOAD CYLINDER AND
;LOAD HEAD ADDRESS
;ISSUE PACK

CLOCKS UNTIL PHASE

ADDRESS 6

[ e Fan

MACY11

001401

WININWIN
N—=
O
S ON0ON

—_ b
)

5685
5686

NINWNIN

5684

OOO0OO

5673
5674
5675
5676
5677
5678
5679
5680
5681
5682
5683

PPN
PN NN
NOON\WNILWS
S NN NN
S ONONOOROONSONEN

CZR6BDO RK611 DSKLS CTRL PRT?
14-SEP-81 13:47
TZR6BD.P11

DSKLS (1 RL PRT2
14-SEP=81 13:47

5729
§730
5731
5732
5733
5734
5735
5736
5737
£738

031512
031520
031526
031530
031532
031536
031542
031546
031550
031552

012762
012762
005300
001370
005062
013700
105762
100402
005300
001373

5747

031634

023737

5739
5740
5741
5742
5743
5744
5745
5746

031554
031562
031570
031576
031604
031612
031620
031626

016237
016237
016237
016237
012737
012737
012737
012737

5748
§749
5750
5751

031642
031644
031646
031654

001401
104200
023737
001401

5753
5754
§755
5756
5757
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770
5771
5772
5773
5774

031660
031666
031670
031672
033700
031702
031704
031712
031720
031726
031734
031742
031750
031756
031764
031772
032000
032006
032012
032016
032024

5752

5775
5776

5777

031656

032026
032030

032036

5778
5779

032040
032042

5781
5782

032052
032054

5784

032064

5780

5783

032050

032062

000440
000040

MA(Y11

000026
000026

000026
004262
000000

000000
000010
000012
000014
100202
000100
100020
004000

004160

30(1066)

3%:

023737
001401
104202
023737
007401
104203
013737
013737
013737
013737

004172

004132

5$:

0041764

004134

6$:

004120
004130
004132
004134

004220
006222
004224
004226

7%:

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401

100000
000000
000010
000012
000014
000200
000100
004172
004174
006160

000000
004120
0064130
004132
004134
004160
004170

104224
023737

004170

004130

104225
023737

.
004172

104226
023737

007407

104227

004174

004134

11%:
12%:
13$:

#DMD 'MCLK ,RKMR1
(R2)
#DMD .RKMRT (P2)
RO
1¢
RKMR1(R2)
;FINISH COMMAND IN NORMAL MODE
WAITIM,RO
*WAIT FOR READY
RKCS1(R2,
:
38
——————
RO
2%

RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG 1
RKCS2(R2).T.CS2 -STORE COMMAND AND STATUS REC 2
RKDS(RZ),T.DS
-STORE DRIVE STATUS REG
RKER(R2).T.ER
:STORE ERROR REG
#CERR'RDY'PACK&<‘C<GO>> E.CS1 ;LOAD EXPECTED CS1
#IR,E.CS2
LOAD EXPECTED (S2
#SVAL
! SPDLSS.E.DS ;LOAD EXPECTED DRIVE STATUS REG
#WLE ,E.ER
:LOAD EXPECTED ERROR REG

BEQ
ERROR
CMP
BEQ

4$
200
£.CS2.T.CS2
5¢

ERROR

(MP
BEQ
ERROR
CMP
BEQ
ERROR
MOV
MOV
MOV
MOV

E.CST,T.CST

201

*CHECK COMMAND AND STATUS REG.1 CORRECT
SYES,

CONTINUE

:CHECK COMMAND AND STATUS REG.
*YES, CONTINUE

E.DS.T.DS
6$
202
E.ER,T.ER
7%
203
T.CS1.P.CST
T.CS2.P.(S2
T.DS.P.DS
T.ER.P.ER

;CHECK DRIVE STATUS REG.
*YES, CONTINUE

12$

SYES, CHECK DRIVE STATUS REG

138

*YES, CHECK ERROR REG

2 CORRECT

CORRECT

:CHECK ERROR REGISTER CORRECT
“YES, CLEAR RK611

ERROR
CMP

:STORE PREVIOUS CONTENTS Of
*”
COMMAND AND STATUS REG 1
©
COMMAND AND STATUS REG 2
*
DRIVE STATUS REG
>
AND ERROR REG
#CCLR,RKCS1(R2) :CLEAR RK611
RKCS1(R2),7.CS1 :STORE COMMAND AND STATUS REG 1
RKCS2(R2).T.(S2 :STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS
:STORE DRIVE STATUS REG
RKER(R2).T.ER
:STORE ERROR REG
#RDY ,E.CS1
*LOAD EXPECTED CS1
#IR,E.CS2
*LOAD EXPECTED €S2
E.DS
:LOAD EXPECTED DRIVE STATUS REG
E.ER
*LOAD EXPECTED ERROR REG
£.0S1,7.CS1
*CHECK COMMAND AND STATUS REG 1 CORRE(CT
118
*YES, CHECK €S2
224
+CS1 INCORRECT
£.052.7.CS2
“CHECK COMMAND AND STATUS REG 2 [ORRECT

ERROR
CMP

225
£.DS,T.DS

ERROR
CMP

226
E.ER,T.ER

ERROR

227

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
CMP
BEQ

004120

SEQ 0108

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

CMP

&$:

001401

109

MOV
MOV
DEC
BNE
CLR
MOV
TS'B
BM]
DEC
BNE

004120

004132

PAGE

°$:

004130

001401

WRITE LOCK ERROR FROM SHIFT REG.

004170

104201

15:10

004120
004130
004132
004134
004160
004170
004172
004174

14-SEP-81

BEO
BEQ

BEOQ

15760

+(S2 INCORRECT
“CHECK IF DRIVE STATUS REG CORRE(T
:ERROR REG INCORRECT
;CHECK 1F ERROR REG CORRECT

;YES, GO ON TO NEXT TEST

*ERROR REG INCORRECT

[an Yand

CIR6BDO RK611
rZR68D.P11

VALY

5785
5786
5787
5788
5789

T61

3
9
16-SEP-81
15:10
PAGE 110
WRITE LNCK ERROR FROM SHIFT REG.

A2l

ARl

'YEST 6l

SEEK

SEQ 0109

RRR

INCOMPLETE

.
»

[ YT Y Y N

C(LEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT CONTROLLER IN DIAGNOSTIC MODE. ISSUE AN UNLOAD
TO A RKO6, 26 SECTOR FORMAT, WITH CYLINDER 0,
HEAD 1, DRIVE 0, C.OCK IN DIAGNOSTIC MODE UNT:L
PHASE ADDRESS 6. TURN OFF DIAGNOSTIC MODE AND MAKE

SURE

ARE

SPEED LOSS,

SEEK

SET WITH DRIVE

INCOMPLETE, AND (ONTROLLER ERROR

AVAILIABLE

RESET.

.« .,

579C
5791
5792
5793

000144
001270
000040
000040
000000
000400

000007
000132
000440

(=]
o

000040

762
402
NN
NN NN N WN~N
NNNNNNN N NN

S NNNNINforor NN

266
2070

[e]elalalelolalololelolel Elololelololelelolelolelolelo o]
ON) B ed et et ed 2 2 2 OO OO OO A=
DD
=S WNINLPRONONONONON
= NO NN
2 NRORNONO RN RO NN WO

AN AN AN AN AN N AN N AN NN W W AN N
PONLAD NP NN ANV NN
— ek b
b ek
b
b (=]
(220 NS
NN — — o~
nNO NS ONSONO [aS
o)

S iAiii2222230023222020203002i
200 2202 R
AR
RRRARRRRR R

OQOOOOCOOOOOOO0OO0OVO

5794
5795
5796
5797
5798
5799
5800
5801

30(1046)

001200

000010
000026
000020
000006
000000
000026
000020

1%:

2%:

004°29
004130
004132

000002
004160
004170

004130

A ¥

004172

004132

5¢:

004134

6%:

004220
004222
004224
004226

7%:

000100

100020

MOV
MoV
MoV
MoV
MOV
MOV
MoV

DEC

006134
004160
004170
004172
004174
006120

100206

SCOPE

MoV
MOV
MOV

BNE
(LR

000026
004262
00000¢C

000000
000010
000012
000014

15162:

MOV
1STB
BMI

DEC
BNE

MOV
MOV
MoV
MOv

MoV
Mov
Mov
MOV

CMP
BEQ
ERROR
CMP
BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR
MOV
MOV
MoV
MOV

#100. ,8TIMES

;:D0

100.

ITERATIONS

$BASE ,R2

sLOAD RK611 BASE

#DMD ,RKMR1(R2)
#0,RKDCYL (R2)

;PUT RK611 [N MAINT MODE
sLOAD CYLINDER AND

#SCLR,RKCS2(R2)

;CLEAR RK06 SUBSYSTEM

#400,RKDA(R2)
;LOAD HEAD ADDRESS
#UNLOAD ,RKCS1(R2)
; ISSUE UNLOAD
#22.%4+2 RO
; ISSUE CLOCKS UNTIL PHASE
#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR Y (R2)

RKMR1(R2)
WAITIM, RO
RKCS1(R2)

;FINISH COMMAND
;JWAIT FOR READY

ADDRESS 6

[N NORMAL MODE

2%
RKCS1(R2),T.CS1
RKCS2(R2),T.(S2
RKDS(R2),7.DS
RKER{R2) ,T.ER

;STORE COMMAND AND STATUS REG 1
.STORE COMMAND AND STATUS REG ¢
;STORE DRIVE STATUS REG
;STORE ERROR REG
#CERR'RDY
' UNLOADE<~C<GO>>,E.CST ;LOAD EXPECTED (S1
#IR,E.CS2
:LOAD EXPECTED (S?2
#SVAL 'SPDLSS.E.DS :LOAD EXPECTED DRIVE STATUS
#SK] E.ER
:LOAD EXPECTED ERROR REG

REG

E.CS1,T.CS1
334

:CHECK COMMAND AND STATUS REG.1 CORRECT
JYES, CONTINUE

E.CS2,T7.CS2

:CHECK COMMAND AND STATUS REG. 2 CORRECT

'335

E.DS,T.DS

836

E.ER,T.ER

:YES, CONTINUE

:CHECK DRIVE STATUS REG.

:YES, CONTINUE

CORRECT

;CHECK ERROR REGISTER CORREFTY

587

:YES, CLEAR RK611

T.CS1,P.CST
1.€S2,P.CS2
1.05,P.DS

:STORE PREVIOUS CONTENTS OF
;
COMMAND AND STATUS REG !
:
COMMAND AND STATUS REG 2

T.ER,P.ER

DRIVE

STATUS

REG

(e Xan

CIR6BDO Rxk611 DSKLS CTRL PRT2
14-SEP=-81 13:4"
CZR6BD.P1T

03236¢
(32374
032402
032410
032416
032424
(032432
032440
(032444
032450
032456
(032460
032462
(032470
032472
032474
032502
032504
032506
032514
032516

14~SEP=81

PRT?

13:4°

MACYTY

30(1046)

162

100000

000000
000C10
000012
000614
000200
000100
004172
004174
0041€0

00412¢G

004170

004130

006172

004132

128 :

004174

004134

13-

14-SEP-81

SEEK

15:10

PAGE

INCOMPLETE

111

SEQ 0110

MOV
MOV

#CCLR,RKCST1(R2)
RKCS1(RZ),T.CS1

.
AND ERROR REG
;CLEAR RK611
;STORE COMMAND AND

MOV
MOV
MOV
MOV
(LR

RKDS(R2),7.DS
RKER(R2) ,T.ER
#RDY,E.CST
#IR,E.CS2
E.DS

;STORE DRIVE STATUS REG
;STORE ERROR REG
sLOAD EXPECTED (S1
JLOAD EXPECTED (S2
;LOAD EXPECTED DRIVE STATUS REG

CMP

£.CS1,T.CS1

:CHECK COMMAND AND STATUS REG 1

STATUS REG 1
RK(S2(R2),T,C(S2 ;STORE COMMAND AND STATUS REG 2

MOV

CLR

£E.ER

BEQ
ERROR

11$
224

CMP

E.CS2,7.CS2

CMP

£.DS.T7.DS

BEQ
ERROR
BEQ
ERROR
CMP

BFQ

104227

ERROR

*LOAD EXPECTED ERROR REG

PYES, CHECK €S2
1CS1 INCORRECT
:CHECK

rORRECT

COMMAND AND STATUS REG 2 CORRECT

128
225

*YES, CHECK DRIVE STATUS REG
1CS2 INCORRECT

138
226

SYES, CHECK ERROR REG
SERROR REG INCORRECT

*CHECK IF DRIVE STATUS REG CORRECT

E.ER,T.ER

SFHECK

15763

ERROR REG CORRECT

::YES, GO ON TO NEXT TEST

227

$ERROR REG

INCORRECT

".'t'lttQflitttttifitttttt"ii'ttttt't'ttttnttttttttttttttttttittfit'

DRIVE

FUNCTION FROM SHIFT REG.

CLEAR RKO6 SUBSYSTEM WwI'TM A SUBSYSTEM (CLEAR

ISSUE
FORMAT,
WITH CYLINDER O, HEAD 1, DRIVE 0. CLOCK IN DJAGNOSTIC
MODE UNTIL PHASE ADDRESS 6. TURN OFF DIAGNOSTIC
MODE AND MAKE SURE SPEED LOSS, NON-EXECUTABLE DRIVE FUNCTION,
CONTROLLER ERROR ARE SET WITH DRIVE AVAILIABLE RESET.

B
&+

NON-EXECUTABLE

PUT CONTROLLER IN DIAGNGSTIC MODE.
A DRIVE CLEAR TO A RK06, 26 SECTOR

PR IPRC IR SR

TSR TR

SeTEST 63

000026
000026

00C026
00426¢
00000C

2$:

—

000000
000010

15763:

000019
000026
000020
000006
000000

NNW

001260

winy
OO

02
00

000144
001270
000040
000040
000000
000400
00000%
000132
000440
000040

0O
QO

WA
N

032520
032522
032530
032534
032542
032550
032556
032564
032572
032576
032604
(032612
032614
032616
032622
032626
(032632
032634
032636
(032640
(32646

il lololelololeololaloloe)

(elelele

5841
5862
5863
58464
5845
584646
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
58¢7
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896

DSKLS (IRL

jelelalelololelolole
NOO
= et b a2 2
WWAWNNNOONONONONND
NOO N~
N
NN NN N NANNN
O
SNNNNNNNN NN

" 786800 RK61T
TIR6BD.P1T

3%:

AARS

LRSSl

SCOPE

MOV

MOV
MOV
MOV
MoV
MOV
MOV
MOV
MOV
MOV

#100.,8$TIMES

5:00 100.

223 2

XA RL

RO
1%
RKMR1(R2)
33
RO
2%

MOV

RK(S2(R2),T,.(S2 ;STORE

WAITIM, RO
RKCS1(R2)

RKCST(R2),T.CS1

;FINISH COMMAND
;WAIT FOR READY

;STORE

RE RN

ITERATIONS

$BASE ,R2
:LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RKQD6 SUBSYSTEM
#DMD ,RKMR1(R2)
:PUT RK611 IN MAINT MODE
#0 ,RKDCYL (R2)
JLOAD CYLINDER AND
#400,RKDA(R2)
;L0AD HEAD ADDRESS
#CLEAR,RKCST(RZ)
JISSUE CLEAR
#22.%4+2 RO
+JSSUE CLOCKS UNTIL PHASE
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R?2)

DEC
BNE
CLR
MoV
TSTR
BMI
DEC
BNE
MOV

ADDRESS ¢

IN NORMAL MODE

(OMMAND AND

STATUS REG

C(OMMAND AND STATUS REG 2

AND

IR6BD.P1
5897

032654

DSKLS CTRL PRT2

14-SEP=-81

13:47

016237

000012

5898
5899
5900

032662
032670
032676

016237
012737
012737

5902
5903
5604
5905
906

032712
032720
032726
032730
032732

012737
023737
00401
104210
023737

5008
5909
5910
5911
5912
5913
5914

032742
032744
032752
032754
032756
032764
032766

104211
023737
001401
104212
023737
001401
104213

5616
5917
5918

032776
033004
033012

013737
013737
013737

5901

032704

012737

MACY?1

163

#SVAL SPDLSS,E. DS JLOAD EXPECTED DRIVE STATUS REG

004174
004120

004132

5%:

004174

0064134

6%:

013737

004120

004220

7%:

592¢

033020
033026
033034
033042
033050
033056
033064

012762
016237
016237
016237
016237
012737
012737

100000
000000
000010
000012
000014
000200
000100

000000
004120
9Q0s4130
004132
004134
004160
004170

5628

033076

005037

004174

5819
5620

5621
592¢
5923
5924
5925

5927

5929
5930
5931
5932
5933
5934
5935
5936

5937

5638
5939
ggz?
5942

ggzz

5945
5946
5947
5948
5949

5950
5951
595¢

032770

033072

005037

033102
033110
033112
033114
033122
0337124
033126
033134

023737
001401
104224
023737
001407
104225
023737
001401

033140
033146
032150

023737
001407
104227

033136

104226

004130
004132
004134

(014172

004222
004224
004226

004:2)

004170

00430

11%:

004772

0046132

12%:

00417¢

004134

13%:

MOV
(MP
8EQ
ERROR
(MP

#NXF E.ER
E.CST.T.LS1
43
210
E.(S2,T7.(S2

BEQ

BEQ
ERROR

211
E.DS,T.DS
6%
2712
E.ER,T.ER
7%
213

MOV
MDYV
MOV

1.052,P.(S2
T.DS,P.DS
T.ER,P.ER

C(MP

MOV

M
M

JCHECK COMMAND AND STATUS REG. 2 CORRECT

JYES, CONTINUE

;CHECK DRIVE STATUS REG.
JYES, CONTINUE
JYES,

T.CS81,P.CST

CLEAR RK611

;STORE PREVIOUS CONTENTS OF
;
;
;

#CCLR,RKCST(R2)
RKCST1(R2),1.CS1
RKCS2(R2),T7.CS2
RKDS(R2),T.DS
RKER(R2) ,T.ER
#RDY E.CST
#IR.E.CSZ

(IR

E.ER

E.DS

CORRECT

JCHECK ERROR REGISTER CORRECT

MOV
MOV
MOV
MOV
MOV
MOV
MOV

COMMAND AND STATUS REG 1
COMMAND AND STATUS REG 2
DRIVE STATUS REG

.
AND ERROR REG
;(CLEAR RA611

;STORE COMMAND AND STATUS REG 1
;STORE COMMAND AND STATUS REG 2
;STORE DRIVE STATUS REG
;STORE ERROR REG
JLOAD EXPECTED (S1
JLOAD EXPECTED €S2

JLOAD EXPECTED DRIVE STATUS REG
JLOAD EXPECTED ERROR REG

(mpP
BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ

E.CST1,T.C(S
1%
224
€.0S2,1.7S2
12%
225
E.DS,T.DS
13%

s CHECK COMMAND AND STATUS REG 1 CORREC(T
JYES, CHECK (S2
JCS1 INEORRECT
;CHECK COMMAND AND STATUS REG 2 CORRECT
JYES, CHECK DRIVE STATUS REG
;CS2 INCORRECT
;CHECK IF DRIVE STATUS REG CORRE(T
JYES, CHECK ERROR REG

CMP
BEQ
ERROR

E.ER,T.ER
1ST64
227

;CHECK IF ERROR REG CORREC(T
J;YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

ERROR

AR R R

JeTEST 64

o x
.
i
M
. *

STATUS REG

LOAD EXPECTED ERROR REG
:CHECK COMMAND AND STATUS REG.1 CORRECT
JYES, CONTINUE

ERROR
(MP
BEQ
ERROR

DRIVE

RKER(R2),T.ER
;STORE ERROR REG
lCERR'RDY‘CLEAR&<‘C<GO>> E.CST ;LOAD EXPECTED (CS1
#!R,E.CS?
;LOAD EXPECTED €S2

(LR

004160

JSTORE

SEQ 0111

MOV

000004
004160

MOV
MOV
MOV

004172

5915

NON=-EXECUTABLE DRIVE FUNCTION FROM SHIFT REG.

004172

006134
004160
004170

«%:

001401

H
9
PAGE 112

RKDS(R2),T1.DS

004130

032740

15:10

MOV

004170

5907

14-SgEP-81

(04132

(000014
100204
000100

100020

30(1046)

226

R R

R RN

N L R

JERROR REG INCORRECT

R RN R AN RN AN

R AR AN RN R AR AR AR RN

AC LOW AND (=D PARITY FROM SHIFT REG.

NN RN E I RN

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR, PUT RK61°
CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A START SPINDLE
TO AN RK06, IN 24 SECTOR FORMAT, CYLINDER O, HEAD O,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.
TURN OFF DJAGNOSTIC MODE AND MAKE SURE AC LOW, DRIVE

DETECTED SER{OM PARITY, AND (ONTROLLER ERROR SET WlTH
DRIVE AVAJLABLE RESET.

TIR6BDD Rk61?

5953
5954

5955
5956
5957
5958
5959
5960
5961
5962
5963

5964
5965
5966
5967
5968
5969
5970
5971
5972
5973
5974
5975
5676
5977
5978
5979
5980
5981
5982

5983

5984
5985
5986
5987
5988
5989
5990
5991
5992
5993

5994
5995
5096
5997
5998
5999
6000
6001
6002

6003
6004
6005
6006
6067
6008

033152

033154
033162
033166
033174
032202
032210
033214
033222
033230

033232
033234
033240
033244
033250
033252
033254
033256
033264
033072
033300
033306
033314
033322
033330
033336
033344
033346
033350

033356

000004

012737
013702
012762
012762
012762
012700
012762
012762
005300

001370
005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737
012737
012737
012737
(23737
001401
104214
023737

007401

033360
033362
033370
033372
033374
033402
033404
033406
033414
033422

104215
023737
007401
104216
023737
007401
104217
013737
013737
013737

033436
033444
033452
033460
033466
474
02

012762
016237
016237
016237
016237
012737
012737

033430

10
164
20
526
30
32

013737

005037
005037
023737
001401
104224
023737

000144
001270
000040
000640
010011
000132
000440
000040

9
I
MACY11 30(1046)
14-SEP-81
15:10 PAGE 113
T64
AC LOw AND (=D PARITY FROM SHIFT REG.

001200

""'lt.'.!Q.Q.'..".t""""..".'.Q."""tfi"ttttttt" (ZA
R R XN RN 1
8T64:
SCOPE

000010
000026
000000
000026
000026

000026
004262
000000

18:

000000
000010
000012
000014
110210
000100
100010
000010
004160

004120
004130
004132
004134
004160
004170
004172
004174
004120

3$:

004170

004130

4$:

004172

004°32

S$:

006174

004134

68:

004120
004130
004132

004220
004222
00422

7$:

100000
000000
000010
000012
000014
000200
000100

000000
004120
004130
004132
004134
004160
004170

004134

00417¢
004174
004160
004170

004226

BNE
CLR
MOV
TSTB
BM]
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CMP
BEQ
ERROR
CMP

BEQ

ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV
MOV
MOV

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV

004120
004130

MOV
MOV
MOV
MOV
MO\
MOV
MOV
MOV
DEC

'18:

(LR
CLR
(MP
BEQ
ERROR
(MP

#100.,$TIMES
;DO 100, ITERATIONS
$RASE ,R2
:LOAD RK611 BASE
#SLR,RKCS2(R2) :CLEAR RK06 SUBSYSTEM
#DMD,RKMRT
(R2)
:PUT RK611 IN MAINT MOXE
#SRTSPL'CFMT,RKCS1(R2)
;ISSUE SRTSPL.CFMI
#22.%4+2 RO
;ISSUE CLOCKS UNTIL PHASE ADDRESS 4
#DMD . MCLK ,RKMR1
(R2)
#DMD
. RKMR T (R2)
RO

18
RKMR1(R2)
;FINISH COMMAND IN NORMAL MODE
WAITIM,RO
*WAIT FOR READY
RKCST(R2)
38
RO
2%
RKCST(R2),T.CS1 :STORE COMMAND AND STATUS REG 1
RKCS2(R2).T.CS2 STORE COMMAND AND STATUS REG 2
RKDS(R2),T.DS”
+STORE DRIVE STATUS REG
RKER(R2),T.ER
:STORE ERROR REG
#CERR'CFMTIRDY!SRTSPL
| CFMTE<*(<GO>>,E.CS1 ;LOAD EXPECTED CS1
#IR,E.CS2
:LOAD EXFECTED (52
#SVAL .ACLO,E.DS LOAD EXPECTED DRIVE STATUS REG
#DRPAR, E . ER
*LOAD EXPECTED ERROR REG
E.CS1,T.CST
*CHECK COMMAND AND STATUS REG.1 CORRECT
4$
‘YES, CONTINUE
214
E.CS2,T.CS2
:CHECK CGMMAND AND STATUS REG. 2 CORRECT
5%
YES, CONTINUE
215
E.DS.7.DS
:CHECK DRIVE STATUS REG. CORRECI
6$
YES, CONTINUE
216
E.ER,T.ER
:CHECK ERROR REGISTER CORRECT
7$
YES, CLEAR RK611
217
T.CS1.P.CS1
:STORE PREVIOUS CONTENTS OF
1.(52.P.(S2
"
COMMAND AND STATUS REG 1
1.D5,P.DS
:
COMMAND AND STATUS REG 2
T.ER.P.ER
*
DRIVE STATUS REG
:
AND ERROR REG
#CCLR,RKCST(R2) :CLEAR RK611
RKCS1(R2),T.CS1 *STORE COMMAND AND STATUS REG
1
RKCS2(R2)T.CS2 :STORE COMMAND AND STATUS REG 2
RKDS(R2),7.DS
:STORE DRIVE STATUS REG
RKER(R2) .T.ER
:STORE ERROR REG
#RDY ,E.CS1
*LOAD EXPECTED CS1
#IR,E.(S2
:LOAD EXPECTED (52

E.DS
E.ER
£.CS1,T.CS!
1is
224
E.CS2,1.CS2

*LOAD EXPECTED DRIVE STATUS REG
:LOAD EXPECTED FRROR REG
:CHECK COMMAND AND STATUS REG 1 CORRECT
YES, CHECK €S2
€S INCORRECT
*CHECK COMMAND AND STATUS REG 2 CORKE(T

SEQ 0112

[
Yan

“IR6BDD RKO11 DSKLS CTRL PRT2
IR6BD.P1'
14-SEP<81 13:4~

oou\\‘f\.flbbb
o »o
rnENNO

6017

104225

023737
001401

104226

023737
001401

9
J
PAGE 114
AC LOw AND C=D PARITY FROM SHIFT REG.
164-SEP-81

BEQ

001407

004172

006132

128 :

004174

006134

13$:

104227

6018
6019
6020

15:10

12%

:YES,

£.DS,T.CS

“CHECK

ERROR

225

BEQ

138

CMP

ERROR

226

CMP

E.ER,T.ER

ERROR

227

BEJ

15166

SEQ 0113

CHECK DRIVE STATUS REG

+CS2 INCORRECT
IF

DRIVE

STATUS REG CORRECT

$YES, CHECK ERROR REG
*ERROR REG INCORRECT
“CHECK

ERROR REG CORRECT

*;YES, GO ON TO NEXT TEST
*ERROR REG INCORRECT

:;ttttttflttttttttttititttittitt*t.tt!*fi*fi*t.i*fitttttttttfittt.Qt.t

B
%
»
%

0,0,
0,

»
%

Rev,
s

6024
6025
6026
6027
6028
6029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
6046
6047
6048
6049
6050
6051
6052
6053
6054
6055
6056

0,8,

;*TEST 65

6021
6022
6023

ILLEGAL DISK ADDRESS ERROR FROM SHIFT REG.

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A RECALIBRATE
TO AN RK06, IN 26 SECTOR FORMAT, CYLINDER 0O, HEAD

DRIVE 0.

CLOCK IN DIAGNOSTIC MODE UNTIL PHASE

ADDRESS 6.
SPEED LOSS,

TURN OFF DJAGNOSTIC MODE AND MAKE SURE
ILLEGAL DISK ADDRESS ERROR, AND CONTROLLER

ERROR ARE SET WITH DRIVE AVAILABLE RESET.

000144
001270
000040
000040
000000
000400
000013
000132

001200

000040

000026

000440

062

NNV
NN S NN
N Nhoru o
O AN O NN O NN N NN N NN N
N
= NO =NNNNNNNN
YN

034022

[elellelel
lelaleloleleolololeleolelal
L lolelelolelolelalelelelele o o]

6057
€058

6059
6060
6061
6062
6063
6064

3?&1046)

000010
000026
000020
000006
000000

000026

000026
004242
000000

000000
000010
000012
000014
100212
000100
100020
002000
004160

TST65:

SCOPE
MOV
MoV
MOV
MOV
MOV

#100.,8TIMES
$BASE ,R2
#SCLR,RKCS2(R2)
#DMD,RKMR1 (R2)
#0 ,RKDCYL (R2)

MOV

#RE CAL

MOV
1$:

2%:

3%:

MOV

MOV
MOV
DEC
BNE
(LR

MOV

TSTR
BM]
DEC
BNE
MOV

004130

004172

004132

5%:

#22. %442 ,R0

;LOAD HEAD ADDRESS

s ISSUE RECAL

;iSSUE CLOCKS UNTIL PHASE ADDRESS 6

#DMD !MCLK ,RKMRT(R2)
#DMD ,RKMR1(R2)

RO
1%

RKMR1(R2)

WAITIM, RO

sFINISH COMMAND

JWAIT FOR READY

IN NORMAL

MODE

MOV
MOV
may
MOV
MOV

(MP

E.CST.T.CST

BEQ

004170

,RK(ST(R2)

RKCST(R2)
3s
RO
2%
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG 2
RKDS(R2),T7.DS
;STORE DRIVE STATUS REG
RKER(R2) ,T.ER
;STORE ERROR REG
#CERR'RDY .RECALE<*(<GO>>,E.CST ;LOAD EXPECTED (S
#IR,E.CS2
;LOAD EXPECTED (S

MOV
MOV

004120

#400,RKDA (R2)

:.D0 100. ITERATIONS
;LOAD RKG11 BASE
;CLEAR RKO6 SUBSYSTEM
:PUT RK611 IN MAINT MODE
sLOAD CYLINDER AND

ERROR
CMP

BEQ
ERROR
(MP
BEQ

#SVAL 'SPDLSS,E.DS ;LOAD EXPECTED DRIVE STATUS REG
#IDAE E.ER
;LOAD EXPECTED ERROR REG

‘%

220

£.(S2,T.CS2

5%
221
E.DS,T.DS
6%

:CHECK COMMAND AND STATUS REG.1 CORREC!
;YES,

CONTINUE

sCHECK COMMAND AND STATUS REG.

JYES, CONTINUE

;JCHECK DRIVE STATUS REG.
JYES, CONTINUE

2 CORRECT

CORRECT

VACYN

6016

[elelololelelola]

6009
6010
6C11
6012
6013
6014
6015

NN N AN NN NN
NN NN NN NN
NN
UM NAN AN

CIR6BDO RKG11 DSKLS C(TRL PRT?
14-SEP-81 13:47
'ZRbBD P11

(ZR6BDD RK611 DSKLS CTRL PRT2
"IR6BD.PVY
14-SEP-81 13:47
6065
6066
6067
6068
6069

036026
034026
034036
034036
034040

104222
023737
001401
104223
013737

6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082
6083
6084
6085
6086

034056
034062

013737
013737

6070

6087
5088
6089
6090
6091
6092
6093
283?

034046

034070
034076
034104
034112
036120
034126
034134
034142
034146
034152
034160
034162
034164

034172
034174
034176
034204
034206
034210
034216
034220

013737

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224
023737

001401
104225
023737
001401
104226
023737
001401
104227

MACY11

30(1046)
165

004174

004134

68:

004120

004220

78%:

004132
004134

004224
004226

004130

004222

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
004160
004170

004170

0064130

11$:

004172

006132

12%:

004174

004134

13%:

004120

14-SEP-81
15:10 PAGE 115
ILLEGAL DISK ADDRESS ERROR FROM SHIFT REG.
ERROR
CMP
BEQ
ERROR
MOV

222
E.ER,T.ER
7$
223
T.CS1,P.CS1

MOV
MOV

T.DS.P.DS
T.ER,P.ER

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
CLR
C(MP
BEQ
ERROR
CMP

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

sSTORE PREVIOUS CONTENTS OF

r.(se2,pP.CS2

;

COMMAND AND €<fATUS REG 1

.
COMMAND AND CTATUS REG 2
:
DRIVE STATUS REG
:
AND ERROR REG
#CCLR,RKCS1(R2) ;CLEAR RK611
RKCS1(R2),T..S1 ;STORE COMMAND AND STATUS REG 1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REC 2
RKDS(R2),7.DS
;STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
#RDY ,E.CS1
;LOAD EXPECTED (S1
#IR,E.CS2
;LOAD EXPECTED (S2
E.DS
;LOAD EXPECTED DRIVE STATUS REG
E.ER
sLOAD EXPECTED ERROR REG
E.CS1,T.CST
;CHECK COMMAND AND STATUS REG 1 CORRECT
118
:YES, CHECK (CS¢2
224
;CS1 INCORRECT
E.(S2,7.CS2
;CHECK COMMAND AND STATUS REG 2 CORRECT
12%
225
E.DS,T.DS
13$
226
E.ER,T.ER
TST66
227

6099
6100
6101
6102
6103
6104
2}82

i
*
*
o
i
;¥
i

6107
6108
6109
6110
6111
6112

034222
034224
034232
03423¢
034244

000004
012737
013702
012762
012762

:-;-tttttttttttttttatttttn':ttttttttttttttntttttt'nttn-nnntnat.-na
TST66:
SCOPE
MOV
#100.,8TIMES
;:D0 100. ITERATIONS
MoV
$BASE ,R?
;LOAD RK611 BASE
MOV
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
MOV
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE

6114
6115
6116
6117
6118
6119
6120

034260
034266
034274
034276
034306
034310
03437¢

012737
012737
005046
113766
012662
012737
012762

AN AR R

;YES, CHECK DRIVE STATUS REG
:CS2 INCORRECT
JCHECK IF DRIVE STATUS REG CORRECT
;YES, CHECK ERROR REG
JERROR REG INCORRECT
;CHECK IF ERROR REG CORRECT
;.YES, GO ON TO NEXT TEST
;ERROR REG INCORRECT

J*TEST

AR AN

;CHECK ERROR REGISTER CORRECT
;YES, CLEAR RK611

6096

gggg

SEQ 0114

IDAE

AN P A A R AR AN AN

DETECTION

NN AR R AN AR R R RN RR AR

IN RK611

CONTROLLER

(PART

R NN

6713

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A
SEEK TO AN RK06 IN 26 SECTOR FORMAT, CYLINDER 1003,
HEAD 0, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE
SURE DRIVE AVAILABLE, ILLEGAL DISK ADDRESS ERROR,
AND CONTROLLER ERROR ARE SET.

. %

034252

012762

000144
001270
000040
000040

001200

001002
000000

004252
004250

00100

004250
000006
000006
000017

000010
000026

000020
000001
004266
000000

MOV

MOV
MOV
CLR
MOVB
MOV
MOV
MOV

#1002 ,RKDCYL (R2)
#1002,CYLIN
#0,HDCODE
=(SP)
HDCODE ,1(SP)
(SP)+ ,RKDA(R?)
#6,DRVTYP
#SEEK,RKCST1(R2)

<LOAD CYLINDER ADDRESS

;LOAD HEAD ADDRESS

;LOAD DRIVE TYPE FOR PRINT Qu?
;ISSUE SEEK TO RKO6

(ZR6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P11
14~SEP-81 13:47

MACY11

30(1046)
T66

000026
000026

1$:

6121
6122
6123
6124
6125
6126
6127
6128
6129
6130
6131
6132
6133
6134
6135

034324
034330
034336
034344
034346
034350
034354
034360
034364
034366
034370
034372
034400
034406
034414

012700
012762
012762
005300
001370
005062
013700
105762
100402
005300
001373
016237
016237
016237
016237

000132
000440
000040

000000
000010
000012
000014

0041c0
004130
004132
004134

6138
6139
6140
6141
6142
6143
2}??

034430
034436
034444
034452
034460
034462
034464

012737
012737
012737
023737
001401
104230
023737

000100
100001
002000
004160

004170
004172
0046174
004120

004170

004130

6146
61647
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162
6163
6164
6165
6166
6167
6168
6169
6170

034472
034474
034476
034504
034506
034510
034516
034520
034522
034530
034536
034544

001401
104231
023737
001401
104232
023737
001401
104233
013737
013737
013737
013737

034552
034560
034566
034574
034602
03461C
034616
034624
034630
034634
034642
034644

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
104224

gl%g

6171
6172
6173
6174
6175
6176

034422

034646
034654
034656
034660
034666
034670

012737

023737
001401
104225
023737
001401
104226

000026
004262
000000

100216

2%:

3%:

004160

9
L
14-SEP-81
15:10 PAGE 116
IDAE DETECTION IN RK611 CONTROLLER (PART 1)
MOV
MOV
MOV
DEC
BNE
CLR
MOV
TSTB
BM]
DEC
BNE
Mov
MOV
MOV
Mov

#22.%4+2 RO
;ISSUE CLOCK TO GET THROUGH PHASE 6
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO
1%
RKMR1(R2)
JALLOW COMMAND TO FINISH
WAITIM,RG
JLOAD WAIT TIME
RKCST1(R2)
JWAIT FGR READY
3%
RO
2%
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REC.1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.Z
RKDS(R2),7.DSTM
:STORE DRIVE STATUS REG
RKER(R2),T.ER
:STORE ERROR REG

Mov
MOV
MOV
CMP
BEQ
ERROR
CMP

#IR,E.CS2
#SVAL !DRA,E.DS
#IDAE E.ER
E.CS1,T.CST
4$
230
E.CS2,T.CS2

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
MOV
MOV
MOV
MoV

5%
231
E.DS,T.DS
6$
232
E.ER,T.ER
7%
233
T.CS1,P.CST
1.0S2,P.CS2
T.DS,P.DS
T.ER,P.ER

Mov

4$:

004172

004132

5%:

004174

004134

6S:

004120
004130
004132
004134

004220
004222
0046224
004226

78%:

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
004130
004132
004134
004160
004170

004176

0064130

10%:

004172

004132

11%:

004120

Mov
MOV
MOV
MoV
MOV
MOv
MOV
CLR
CLR
CMP
BEQ
ERROR

(MP
BEQ
ERROR
(MP
BEQ
ERROR

#CERR.RDY.<SEEKE*(<GO>>,E.CST

;LOAD EXPECTED (S1

;LOAD EXPECTED COMMAND AND STATUS REG.2
LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG
;CHECK COMMAND AND STATUS REG? CORRECT
;YES, CHECK CS2
;CS1 INCORRECT
;CHECK COUMMAND AND STATUS REGZ CORRECT

;YES, CHECK DRIVE STATUS REG.
;€S2 INCORRECT
;CHECK DRIVE STATUS REG. CORRECT
;YES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRECT
;CHECK ERROR REG. CORRECT
sYES, CHECK CONTROLLER CLEAR
;JERROR REG. INCORRECT
;STORE PREVIOUS VALUES OF
;
COMMAND AND STATUS REG.1
;
COMMAND AND STATUS REG./
.
DRIVE STATUS REG.
;
_ERROR REG.
#CCLR,RKCS1(R2) ;I1SSUE CONTROLLER CLEAR
RKCST1(R2),T.CS1 ;STORE COMMAND AND STATUS REG.1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.Z
RKDS(R2),T.DS
;STORE DRIVE STATUS REG.
RKER(R2) ,T.ER
:STORE ERROR REG
#RDY ,E.CS1
;LOAD EXPECTED (S1
#IR,E.CS2
;LOAD EXPECTED (S2
E.DS
JLOAD EXPECTED DRIVE STATUS REG.
E.ER
sLOAD EXPECTED ERROR REG.
E.CS1,T.CST
sCHECK COMMAND AND STATUS REG.: CORRECT
108
JYES, CHECK (S2
224
;CS1 INCORRECT

£.(S2,7.CS2
118
225
£.DS,T.DS
12%
226

;CHECK COMMAND AND STATUS REGZ2 CORRECT
;YES, CHECK DRIVE STATUS REG
;CS2 INCORRECT
;CHECK DRIVE STATUS REG CORRE(CT
JYES, CHECK ERROR REGISTER
JDRIVF STATUS REG INCORRECT

SEQ 0115

(ZR6BDO RK611 DSKLS CTRL PRTZ
14-SEP-81 13:47
CIR6BD.PYI
023737
001401

004174

(004134

30(1046)
166
12%:

104227

164-SEP-81

15:10

m9
PAGE 117

SEQ 0116

IDAE DETECTION IN RK611

CONTROLLER (PART 1)

CMP

E.ER,T.ER

:CHECK ERROR REG CORRE(T

ERROR

227

:ERROR REG.

BEQ

1ST67

$;YES,GO ON TO NEXT TEST
INCORRECT

::Qttttttttttttt'tfittt'ttt'tttttttttttttttttttttttttt.'tt"ttt'tt

SeTEST 67
[

(PART 2)

CLEAR RKO6 SUBS/STEM WITH A SUBSYSTEM CLEAR. PUT

RK611 CONTROLLEK IN DIAGNOSTIC MODE.
ISSUE A SEEK
WITH (DT SET IN 26 SECTOR FORMAT, CYLINDER 1022, HEAD

WITH

0, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
DRIVE AVAILABLE AND POSITIONING IN PROGRESS ARE SET

OO WONO £
OO o~

005300

15T47:

ILLEGAL DISK ADDRESS ERROR RESET.

SCOPE
MOV

#100.,$TIMES

000010
000026
000020
004252
004250

MOV
M)V

#SCLR.RKCS2(R2)
#DMD ,RKMR1(R2)

000001

MOV
MOV
CLR

MOVB
MOV

#1022,CYLIN
#0,HDCODE
-(SP)

000144
001270
000040
000040
001022
001022
000000

001200

004250
000006
000007
002017
000132
090440
00N040

MOV

004266
000000
000026
000026

000026
004262
000000

1%:

000000
000010
000012
000014
002216

004120

000100
120401
00C€000

004170
004172
004174

004160
004170

004130
006132
004134
004160

004130

ITERATIONS

:CLEAR RK06 SUBSYSTEM
:PUT RK611 IN MAINTENANCE MODE

:LOAD CYLINDER ADDRESS

:LOAD HEAD ADDRESS

HDCODE,1(SP)
(SP)
+ ,RKDA(R2)

MOV
MOV

#LMD 'MCLK ,RKMR1
(R2)
#DMD _RKMR1 (R2)

MOV

2%:

BNE
MOV

#22.+%4+2,R0

RO
1%
RKMR1 (R2)

;ISSUE CLOCK TO GET THROUGH PHASE 6

WAITIM,RO

:ALLOW COMMAND TO FINISH
SLOAD WAIT TIME
“WAIT FOR READY

MOV
MOV
MOV
MOV

RKCST(R2)
3¢
RO
2$
RKCS1(R2),T.CS1 :STORE CUMMAND AND STATUS REG.1
RKCS2(R2).T.CS2 :STORE (OMMAND AND STATUS REG.?2
RKDS(R2),T.DS
:STORE DRIVE STATUS REG
RKER(R2).T.ER
:STORE ERKOIR REG
#CDT'ROY
! <SEEKE~C<GO>>,E.CS?
:LOAD EXPECTED (S1

MOV

#IR,E.CS2

:LOAD EXPECTED COMMAND AND STATUS REG.2

MOV

#0,E.ER

BM]

MOV

CMP

4$:

#1022 ,RKDCYL (R2)

::D0 100.

:LOAD RK611 BASE

#7 ,DRVTYP
:LOAD DRIVE TYPE FOR PRINT OUT
#CDT!SEEK,RKCST(R2)
:ISSUE SEEK TO RKO6

DEC
BNE
(LR
MOV
TSTB

004120

$BASE ,R?2

MOV
MOV

DEC

CONTROLLER

E;ttttttttttfittttttttttttttfiitttttttttttttttttttttttttitttttt'itt

fVNHvNHUVfigNHVNNUNMN
NNNNONN

034704
034706
034714
034720
034726
034734
034742
034750
034756
034760
034766
034772
035000
035006
035012
035020
035026
035030

IDAE DETECTION IN RK611

e
o

i
o
o

—=O
O

6198
6199

034672
034700
034702

SN
NS ONONY

6177
6178
6179
6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194
6195
6196
6197

MACY11

#SVAL 'DRA'PIP.DDT,E.DS

STATUS REG

E.CST,T.CS

;CHECK COMMAND AND STATUS REG!

£.CS2.T..52

SCHECY. COMMAND AND STATUS REG2 CORRECT

BEO
ERROR

(%
230

BEQ
ERROR

5¢
231

CMP

:LOAD EXPECTED DRIVE

;LOAD EXPECTED ERROF REG

SYES, CHECK CS2
$CS1 INCOPRECT

:YES, CHECK DRIVE STATUS REG.
$(S2 INCORRECT

(ORRECT

MACY11 30(7046)
167

14=-SEP-81
15:10 PAGE 118
IDAE DETECTION IN RKS1% CONTROLLER (PART 2)

004172

004132
:

5$:

(MP
8tQ
ERROR
(MP
BEQ
ERROR
MOV
MOV
MOV
MOV

SEQ Q117

6233
6236
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
62647
6248
6249
6250
6251
6252
6253
6256
6255

035160
035166
035170
035172
035200
035202
035204
035212
035220
035226

023737
001401
104232
023737
001401
104233
013737
013737
013737
013737

00461746

0046134

6$:

004120
004130
004132
00461346

004220
004222
004224
004226

7¢:

035234
035242
035250

012762
016237
016237

100000
000000
000010

000000
004120
004130

MOV
MOV
MOV

035264
035272
035300
035306
035312
035316
035324
035326

016237
012737
012737
005037
005037
023737
001401
104224

000014
000200
000100
004172
004174
004160

004134
004160
004170

MOV
MOV
MOV
CLR
(LR
CMP
BEQ
ERROR

JCHECK DRIVE STATUS REG. (ORRECT
JYES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRE(T
JCHECK ERROR REG. CORRECT
JYES, CHECK CONTROLLER CLEAR
JERROR REG. INCORRECT
;STORE PREVIOUS VALUES OF
;
COMMAND AND STATUS REG.?
.
COMMAND AND STATUS REG.?
DRIVE STATUS REG.
.
ERROR REG.
#CCLR,RKCST(RZ) ;ISSUE CONTROLLER CLEAR
RKCST(R2),T.CS1 ;STORE COMMAND AND STATUS TEG.1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.?
RKDS(RZ2),7.DS
;STORE DRIVE STATUS REG.
RKER(R2),T."R
.STORE ERROR REG
#RDY E.(Si
:LOAD EXPECTED CS1
#IR,E.CS2
;LOAD EXPECTED (S2
E.DS
JLOAD EXPECTED DRIVE STATUS REG.
E.ER
JLOAD EXPECTED ERROR REG.
E.CS1,7.CS1
JCHECK COMMAND AND STATUS REG.1 CORREC(CT
108
JYES, CHECK (S2
224
(ST INCORRECT

6257
6258
6259
6260
6261
6262
6263
2§2g

035336
035340
035342
035350
035352
035354
035362
035364

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR

11%
225
E.DS,T.DS
12%
226
E.ER,T.ER
1ST70
227

8256

035256

035330

016237

023737

001401
104225
023737
001401
104226
023737
001401
104227

000012

004132

MOV

004120

004170

004130

10%:

004172

004132

1'1$:

004174

004134

12%:

CMP

E.DS,T.DS
6%
232
E.ER,T.ER
7%
233
1.0S1,P.(S1
T.(S2,P.(S2
1.DS,P.DS
T.ER,P.ER

E.CS2,T7.(S2

;CHECK CUMMAND AND STATUS REGZ2 CORRECT
;YES, CHECK DRIVE STATUS REG
;CS2 INCORRECT
JCHECK DRIVE STATUS RtG CORRE(T
JYES, CHECK ERROR REGISTER
;DRIVE STATUS REG INCORRECT
;CHECK ERROR REG CORRECT
JsYES,GO ON TO NEXT TEST
JERROR REG. INCORREC(CT

6266

R R
R
ey

ggg;

;«TEST

IDAE

DETECTION IN RK611

CONTROLLER

(PART

- w

6269
6270
6271
6272
Lerd
6274
6275
6276

ot
.
.
L
o
ML
M
;e

6277
6278

6279
6280
6281
6282
6283
6286
6285

6286
6287
6288

.
N

035366
035370
035376
0356402
035410
03516
0356246

035432
(035660
03542

000004
012737
013702
012762
012762
012762
012737

012737
005046
113766

000144
001270
000040
000040
000002
000002

000010
000026
000020
004252

004250

20C001

000003

001200

004250

CLEAR RK0O6 SUBSYSTEM WITH A SUBSYSTEM CLEAR. PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 2,
HEAD 3, DRIVE O.
CLOCK IN DIAGNOSTIC MCDE UNTIL
PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MCDE AND MAKE
SURE DRIVE AVAILABLE, DRIVE CFF TRA(CK, SPEED LOsS,
ILLEGAL DISK ADDRESS ERROR, AND CONTROLLER ERROR ARE
SET.
R

TST70:

SCOPE
MOV
MOV
MOV
MOV
MoV
MOV

MOV
(LR
mOv8

R R R

R AT

L RN VRN C R RO N LR R LR

#100.,8TIMES
$BASE ,R?
#SCLR,RK(S2(R2)
#DMD ,RKMRT(R?2)
#2 ,RKDCYL(R2)
#2,CYLIN

23 ,~D(0DE
-(S¥F)
HDCODE ,1(5P)

PR RSN

ONTIROOIOIOTY

;D0 100. ITERATIONS
JLOAD RK611 BASE
;(LEAR RK(Q6 SUBSYSTEM
PUT RK611 [N MAINTENANCE MODE
;LOAD CYLINDER ADDRESS

;LOAD HEAD ADDRESS

[T
an ]

CZR6BDO RK611 DSKLS CTRL PRT?2
CIR6BD.P11
14=-SEP=-81 13:47

004266
000000

000040

000026
000026

~nJ

000026
004262
000000

004120
004130
004132
006134
004160

000100

004170
0046172
0046174
004120

100216
100061

002000
004160

1%:

004130

104231

023737
001401

004172

023737
001401

004174

004132
004134

004120
004130
0046132
004134

004220
004222
004224
004226

100000

000000
004120
004130
004132
004134
004160
004170

000000
000010
000012
000014
000200
000100
004172
004174
004160

004170

3%:

MOV
MOV
MOV
MOV

MOV
TSTB

WAITIM,
RO
RKCST(R2)

BM]
DEC
BNE

MOV
MoV

7%:

3s
RO
2%

;ALLOW COMMAND TO FINISH
;LOAD WAIT TIME
JWAIT FOR READY

RKCS1(R2), T.CS1 ;STORE COMMAND AND STATUS REG.1
RKCS2(R2), T.CS2 ,STORE COMMAND AND STATUS REG.2

;STORE DRIVE STATUS REG
:STORE ERKOR REG
#CERR'RDY!<SE EKR*C<GO>>,E.CST
;LOAD EXPECTED (S1

RKDS(R2),T.DS
RKER(R2),T.ER
#IR,E.CS2

:LOAD EXPECTED COMMAND AND STATUS REG.2

CMP

E.CS1,T.CS1

sCHECK COMMAND AND STATUS REGT CORRE(T

ERROR
(MP

230
E.CS2.T1.CS2

;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG2 CORRE(CT

BEQ
LRROR

5%
231

;YES, CHECK DRIVE STATUS REG.

BEQ
ERROR

6%
232

JYES,

CHECK ERROR REG

BEQ
ERROR

7%
233

JYES,

CHECK

(MP

CMP

MOV

#SVAL !DRA!DROT!SPDLSS,E.DS
;LOAD EXPECTED
#]DAE E.ER
;LOAD EXPECTED ERROR REG

£.DS,T.DS

E.ER,T.ER
T.CS1,P.CS1

T.(S2,P.CS2

.YES,

;CS2 INCORRECT
;CHECK DRIVE

STATUS REG.

CONTROLLER

CLEAR

sERROR REG. INCORRECT
;STORE PREVIOUS VALUES OF
COMMAND AND STATUS REG.1
;

;
;

COMMAND AND STATUS REG.2

MOV
MOV
MOV
MOV
MOV

#CCLR,RKCS1(R2)
RKCST1(R2),T.CS1
RKCS2(R2),T1.CS2 ;STORE COMMAND AND STATUS
RKDS(R2),T.D
sSTORE DRIVE STATUS REG.
RKER(R2),T.E
;STORE ERROR REG
#RDY E.CST
;LOAD EXPECTED (S1

CLR
CLR

E.DS
E.ER

CMP

BEOQ

ERROR
(MP
BEQ

ERROR

#IR,E.CS2

F.CS1,T.CS1

108

224
E.CS2.T.CS2
1%

225

CORRECT

sDRIVE STATUS REG. INCORRECT
;CHECK ERROR REG. CORRECT

7.DS,P.DS
T.ER,P.ER

MOV

DRIVE STATUS REG

CHECK (S2

MOV
MOV

MOV

10%:

RO
1%
RKMR1(R2)

MNV

BEOQ

6%:

SEqQ 0118

MOV

MOV
MOV

5%:

15:10

(SP)+ ,RKDA(R2)
#6 ,DRVTYP
LOAD DRIVE TYPE FOR PRINT OUT
#SEEK ,RKCS1(R2)
ISSUE SEEK TO RKk06
#22.+4+2
R0
5SSUE CLOCK TO GET THROUGH PHASE 6
#DMD 'MCLK ,RKMR1 ( R2)
#DMD,RKMR1(R2)

MOV

L$:

8 10

PAGE 119
IDAE DETECTION IN RK611 CONTROLLER (PART 3)

MOV
MOV

004120

004130

14-SEP-81

DEC
BNE
(LR

001401

104232

036022

30(1046)
170

2%:

000000
0009010
000012
000014

004170

035630

935636
035640
035642

000006
000006
000017

000132
000440

023737

MACY1T1

DRIVE STATUS REG.
ERROR REG.
;
s ISSUE CONTROLLER CLEAR
;STORE COMMAND AND STATUS REG.1

REG.Z

;LOAD EXPECTED (S?2

;LOAD EXPECTED DRIVE STATUS REG.
;LOAD EXPECTED ERROR REG.
sCHECK COMMAND AND STATUS REG.1 CORRECT

JYES, CHECK CS2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REGZ CORRECT
JYES, CHECK DRIVE STATUS REG
;€S2 INCORRECT

L PRT?
13:47

2t ed b b 2

PDONONONON
= \VNOWNIWWN = NN
NN

- B ad e e OOOO
ek —d
—

6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6373
6314
6315
6316

ololelNolelolalelelal
P leolalolalolalololelol

6298
6299
6300

035450
035454

WNWNWNINON
= — — O
ENNOSH OO N

6289
6290
6291
6262
6293
6294
6295
6296
6297

DS
14

CZR6BDD Rk6'1
CZR68BD. P11

6345
6346
6347
6348
6349
g%g?

036024
036032
036036
036036
0360644
03¢ W6

023737
001401
104226
023737
001401
104227

WACYM

3?;8046)

004172

0046132

11%:

004174

0046134

12%:

c 10
14-SEP-81
15:10 PAGE 120
IDAE DETECTION IN RK61T (ONTROLLER (PART 3)

(MP
BEQ
ERROR
(MP
BEQ
ERROR

6352

2223

JeTEST 71

6355
6356
6357
6358

*
o
*
»
*
«

6359
6360
g%g;

6363

6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374

6375
6376
6377
6378
6379
6380
6381
6382
6383
6384

6385
6386
6387
6388
6389

6390
6391
ggg%

036050
036052
036060
036064
036072
036100
036106
(036114
036122
036124
036132

036136
036144
036152
036156
036164
036172
036174
036176
036202
036206

036212
036214
036216
036220
036226

036234
036242
036250

000004
012737
013702
012762
012762
012762
012737
012737
005046
113766
012662

012737
012762
012700
012762
012762
005300
001370
005062
013700
105762

100402
005300
001373
016237
016237

T TR

IDAE DETECTION IN RK611

CONTROLLER

(PART &)

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER 3, HEAD
4, DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE
ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE
DRIVE AVAILABLE, UNSAFE, ILLEGAL DISK ADDRESS ERROR
AND CONTROLLER ERROR ARE SET.

001200

004250
000006

000001

000006
000017
000132
000440
000040

004266
000000
000026
000026

004262

000000

2%:

004170
004172
004174

001401
104230

023737

1%:

000026

000100
100001
042000

036306
036310

TST7?:

000010
000026
000020
004252
004250

016237
016237
012737

6398
6399

036312

000144
001270
000040
000C40
000003
000003
000004

004120
004130
004132
004134
004160

012737
012737
012737

036300

;:tt*ttttttttt'ttttttttttttttfitttttttttt*ttttttttttt*tttttttttttt

000000
000010
000012
000014
100216

036256
036264
036272

6400

JCHECK DRIVE STATUS REG (ORRE(T
JYES, CHECK ERROR REGISTER
;DRIVE STATUS REG INCORRECT
sCHECK ERROR REG CORRECT
J:YES,GO ON TO NEXT TEST
JERROR REG. INCORRECT

6394
6395
6396

6397

E.DS,T.DS
12%
226
E.ER,T.ER
15171
227

SEQ 0119

004160

004170

3%:

#100.,8TIMES
$BASE ,R?
#SCLR,RKCS2(R2)
#DMD ,RKMRT(R2)
#3,RKDCYL(RZ}
#3,CYLIN
#4 ,HDCODE
-(SP)
HDCODE ,1(SP)
(SP)
+ ,RKDA(R2)

BMI
DEC
BNE
MOV
MOV

3s
RO
2%
RKCS1(R2),T.CST ;STORE COMMAND AND STATUS REG.1
RKCS2(R2),T.CS2 ;STORE COMMAND AND STATUS REG.?

MOV
MOV
MOV
MOV
MOV
DEC(
BNE
CLR
MOV
TSTB

MOV
MOV
MOV

0064120
004130

SCOPE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
CLR
MOVB
MOV

;LOAD HEAD ADDRESS

#6,DRVTYP
JLOAD DRIVE TYPE FOR PRINT QuT
#SEEK ,RKCST1(R2) ;ISSUE SEEK TO RKO06
H22.+6+2 RO
JISSUE CLOCK TO 6E7 THROUGH PHASE 6
#DMD 'MCLK ,RKMR1(R2)
#DMD ,RKMR1(R?2)
RO
1%
RKMR1(R2}
JALLOW COMMAND TO FINISH
WAITIM, RO
JLOAD WAIT TIME
RKCS1(R2)
JWAIT FOR READY

RKDS(R2),7.DS
;STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
#CERR'RDY!<SEEKE*(<GO>>,E.CST
;LOAD EXPECTED (S1

MO,
g1
MOV

#IR,E.CS?
#SVAL'DRA,E.DS
#UNS
! IDAE ,E.ER

JLOAD EXPECTED COMMAND AND STATUS REG.?
;LOAD EXPECTED DRIVE STATUS REG
;LOAD EXPECTED ERROR REG

BEQ
ERROR

4%
230

JYES, CHECK (S?
;CS1 INCORRECT

CMP

4%:

;:D0 100. [TERATIONS
;LOAD RK611 BASE
;CLEAR RKO6 SUBSYSTEM
;PUT RK671 IN MAINTENANCE MODE
;LOAD CYLINDER ADDRESS

(MP

E.CS1,T.C(HT

E.CS2,T.(S2

;CHECK COMMAND AND STATUS REG1 CORRE(T
sCHECK COMMAND AND STATUS REGZ (ORREC(T

rYr~

CZR6BDO RK611 DSKLS CTRL PRTZ2
(IR6BD.P11
14=SEP-81 13:4"

6401

6602
6603
6604
6405
6606
6407
6408
6609
64610
6411
6412
6413

036320
036322
036324
036332
036334
036336
036344
036346
036350
036356
036364
036372

00140°
104231
023737
001401
104232
023737
001401
104233
013737
013737
013737
013737

6415
64616
64617
6618
6619
6420
6421
6622
6423
5424
6425
6426
64c7
6428
6629
6430
6431
6432
6433
6436
22%2

0364C0
03€406
036414
036422
036430
036436
036444
03645¢
036456
036462
036470
036472
0364746
036502
036504
036506
036514
036516
036520
036526
036530

012762
016237
016237
016237
016237
012737
012737
005037
005037
023737
001401
1046226
023737
001401
104225
023737
001401
104226
023737
001401
104227

6414

30(1046)
171

004172

004132

5%:

004174

004134

6$:

004120
004130
004132
004134

004220
004622¢
00462¢4
004226

7$%:

100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

000000
004120
006130
006132
006134
004160
004170

004170

004130

108:

004172

004132

11%:

004174

00473

12%:

004120

6437

gz;g

SRTEST

6440
6441
6442
6443
6444
6445

oY
i
¥
it
o
o*

D 10
14-SEP-81
15:10 PAGE 121
IDAE DETECTION IN RKS17 CONTROLLER (PART 4)

TM~

MALY11

SEQ 0120

BEQ
ERROR
(MP
BEQ
ERROR
(MP
BEQ
ERROR
MOV
MOV
MOV
MOV

5%
231
E.DS,T.DS
6%
232
E.ER,T.ER
7$
233
T.€S1,P.(ST
1.(s2,P.CS2
T.DS.P.DS
T.ER,P.ER

sYES, CHECK DRIVE STATUS REG.
;(S2 INCORRECT
;CHECK DRIVE STATUS REG. CORRE(T
;YES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRECT
;CHECK ERROR REG. CORRECT
;YES, CHECK CONTROLLER CLEAR
;ERROR REG. INCORRECT
;STORE PREVIOUS VALUES OF
;
COMMAND AND STATUS REG.1
;
COMMAND AND STATUS REG.2
.
DRIVE STATUS REG.

MOV
MOV
MOV
MOV
MOV
MOV
MoV
(LR
(LR
(MP
BEQ
ERROR
CMP
BEQ
ERROR
cmp
BEQ
ERROR
CMP
BEQ
ERROR

#CCLR,RKCS1(R2)
RKCS1(R2),T.CS1
RKCS2(R2),T.(S2
RKDS(R2),T.DS
RKER(R2) ,T.ER
ARDY,E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CST
108
224
E.(S2,T.CS2
11%
225
E.DS,T.DS
129
226
E.ER,T.ER
18172
227

;1SSUE CONTROLLER CLEAR
;STORE COMMAND AND STATUS REG.’
;STORE COMMAND AND STATUS REG./
;STORE DRIVE STATUS REG.
;STORE ERROR REG
;LOAD EXPECTED (S1
;LOAD EXPECTED (S2
;LOAD EXPECTED DRIVE STATUS REG.
sLOAD EXPECTED ERROR REG.
;CHECK CUMMAND AND STATUS REG.1 CORRECT
:YES, CHECK (S?2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REGZ CORREC(T
JYES, C(HECK DRIVE STATUS REG
;€S2 INCORRECT
sCHECK DRIVE STATUS REG CORRECT
sYES, CHECK ERROR REGISTER
;DRIVE STATUS REG INCORRECT
;CHECK ERROR REG CORRE(T
;.YES,GO ON TO NEXT TEST
;ERROR REG. INCORRECT

AR AR

IDAE

;

ERROR REG.

AR AR

DETECTION IN RK611

RN A AN R AR

AR R R

CONTROLLER

A SRR

(PART

R R NN

]

222?

6448

6449
6450
6451
6452
6453
6454
6455
6456

036532
036534
036542
036546
036554
036562
036570
036576

000004
012737
013702
012762
012762
012762
012737
012737

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE_A SEEK
WITH CDT SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD 5,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS
6.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAILABLE, UNSAFE, SPEED LOSS, ILLEGAL DISK ADDRESS
ERROR,

AND

CONTROLLER ERROR ARE

SET.

:'.'ttttttt*ttttttttttttttttttttttt*ttttttttfitttfitltttttfitttttntatt
000144
001270
000040
000040
000023
000023
000005

001200
000010
000026
000020
004252
004250

TST72:

SCOPE
MOV
MOV
MOV
MOV
MOV
MoV
MOV

#100.,$TIMES
$BASE ,R2
#SCLR,RKCS2(RZ)
#DMD ,RKMRT(R2)
#23 ,RKDCYL(R2)
#23,CYLIN
#5,HDCODE

:;D0 100. ITERATIONS
;LOAD RK611 BASE
;CLEAR RK06 SUBSYSTEM
;PUT RK611 IN MAINTENANCE MODE
;LOAD CYLINDER ADDRESS

;LOAD HEAD ADDRESS

£y

CIREBDO RKO11 DSKLS CTRL PRT2
CIR6BD.P1T
14~SEP-81 13:47

TIR6BDO RK61T DSKLS CTRL PRTZ2
ZZR6BD P11
14=SEP=-81 13:47
6457
6658
66459

036604
036606
036614

005046
113766

004250
000006

YA(YTMM]

6466

036656

6468
6469
6470
6471
6472
6473
6474
6475
6476
22;;

036664
036670
036674
036676
036700
036702
036710
036716
036724
036732

013700
105762
100402
005300
001373
016237
016237
016237
016237
012737

000000
000010
000012
000014
102216

004120
Q04130
004132
004134
004160

6479

036740

012737

000100

004170

006130

6467

5480
6481
6482
6483
6484
22%2

6487
6488
6489

6490
6491
6492
6493
6494
6495
6496
6497
6498
6499
6500

6501

6502

6503
6504
6505
6506
6507
6508
6509
6510
6511
6512

036620
036626
0366346
036640
036646
036654

036660

036746
036754
036762
036770
036772
036774

037002
037004
037006

037014
037016
037020
037026
037030
037032
037040
037046
037054

037062
037070
037076

037104
037112
037120
037126
037134
037140
037144
037152
037154
037156

005062

012737
012737
023737
001401
104230
023737

00140°
104231
023737

001401
104232
023737
001401
104233
013737
013737
013737
013737

012762
016237
016237

016237
016237
012737
012737
005037
005037
023737
001401
104224
023737

000007
002017
000132
000440
000040

(SP) +,RKDA(R2)
#7 ,DRVTYP
;LOAD DRIVE TYPE FOR PRINT OUT
#CDT!SEEK,RKCST1(R2)
ISSUE SEEK TO RKO6
#22.%4+2 RO
;ISSUE CLOCK TO GET THROUGH PHASE 6
#DMD .MCLK ,RKMR1(R2)
#DMD ,RKMR1 (R2)
RO

CLR

RKMR1(R?2)

JALLOW COMMAND TO FINISH

MoV

#I1R,E.CS2

;LOAD EXPECTED COMMAND AND STATUS REG.2

43:

MOV
MOV
(MP
BEQ
ERROR
CMP

BEQ
ERROR
CMP
BEQ
ERROR
(MP
BEQ
ERROR
MOV
MoV
MOV
MOV

3%
231
E.DS,T.DS
6%
232
E.ER,T.ER
7%
233
T.CS1,P.CS1
7.0S2,P.(S2
T.DS,P.DS
T.ER,P.ER

;YES, CHECK DRIVE STATUS REG.
;(S2 INCORRECT
;CHECK DRIVE STATUS REG. CORRECT

MOV
MOV
Mov

#CCLR,RKCS1(
RKCS1(R2),T.
RKCS2(R2),T.

1%:

BNE

000026

004262
000009

100421
042000
004160

2%:

3%:

004172
004174
9004120

004172

004732

5%:

004174

004734

6%:

004720
004130
004132
004134

004220
004222
004224
004220

7%:

100000
000000

000000
004120
004130

000010

000012
000014
000200
000100
004172
004174
004160
004170

004132
004134
004160
004170
004120

004130

=(SP)
HDCODE ,1(SP)

MOv
MOV
MOV
MOV
MOV
DEC

004266
000000
000026
000026

E 10
14-SEP-81
15:10 PAGE 122
IDAE DETECTION IN RK617 CONTROLLER (PART 5)
CLR
MOVB
MOV

000001

012662
012737
012762
012700
012762
NI12762
005300
001370

6460
66461
6462
6463
hLhL
6465

3?;5046)

10%:

MOV
TSTB
BM]
DEC
BNE
MOV
MOV
MOV
MOV
MoV

MOV
MoV
MOV
MOV
CLR
(LR
(MP
BEQ
ERROR
(MP

WAITIM, RO
JLOAD WAIT TIME
RKCS1(R2)
;WAIT FOR READY
3%
RO
2%
RKCS1(R2),T.
;STORE COMMAND AND STATUS REG.1
RKCS2(R2),T.
:STORE COMMAND AND STATUS REG.?Z
RKDS(R2),T.D
;STORE DRIVE STATUS REG
RKER(R2),T.E
; STORE ERROR REG
#CERR!CDT!RDY!<SEEKR*(<GO>>,E.CST1
;LOAD EXPECTED (S1
#SVAL !DRA!SPDLSS!DDT,E.D5
;LOAD EXPECTED DRIVE STATUS REG
#UNS
! IDAE ,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CST
;CHECK COMMAND AND STATUS REG1 CORRECT
3]
JYES, CHECK (S2
230
;CS1 INCORRECT
E.CS2,T.CS2
;CHECK COMMAND AND STATUS REGZ CORRECT

RKDS(R2),T7.D
RKER(R2),T.E
#RDY ,E.CS1
#IR,E.CS2
E.DS
E.ER
E.CS1,T.CS1T
108
224
£.CS2.T.CS2

;YES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRECT
;CHECK ERROR REG. CORRECT
JYES, CHECK CONTROLLER CLEAR
;ERROR REG. INCORRECT
;STORE PREVIOUS VALUES OF
;
COMMAND AND STATUS REG.]
.
COMMAND AND STATUS REG.?
;
DRIVE STATUS REG.
;
ERROR REG.
;ISSUE CONTROLLER CLEAR

;STORE COMMAND AND STATUS REG.1

;STORE COMMAND AND STATUS REG.?2

;STORE DRIVE STATUS REG.
;STORE ERROR REG
;LOAD EXPECTED (S1
;LOAD EXPECTED (€S2
;LOAD EXPECTED DRIVE STATUS REG.
;LOAD EXPECTED ERROR REG.
;CHECK COMMAND AND STATUS REG.1 CORKECT
;YES, CHECK (S2
sCS1 INCORRECT
;CHECK COMMAND AND STATUS REGZ CORRECT

SEQ 0121

(ZR6BDD Rk611 DSKLS CTRL PRT2
CIR68D.P1
14-SEP-81 13:47
6513
6514
6515
6516
6517

037164
037166
037170
037176
037200

6519

037210

6518

ggg?

001407
104225

037202

023737
001401
104225
02370

037212

1M4227

001401

VACYN 3?;;046)

006172

0064132

118:

004176

006136

128

14-SEP-81
15:10 PAGE 123
IDAE DETECTION IN RKS51Y CONTROLLER (PART 5)
BEQ
ERROR

(MP
BEQ
ERROR

{mMP

BE3

ERROR

NN R

AR R AR AR

gggz

JeTEST

11%
225
£E.DS,T.CS
129
226

JYES, CHECK DRIVE STATUS REG
2CS2 INCORRE(CT

1517$

$:YES,GO ON TO NEXT TFST

E.ER, T.ER

JCHECK DRIVE STATUS REG CORRE(CT
JYES, CHECK ERROR REGISTER
JDRIVE STATUS REG INCORRECTY
;CHECK ERROR REG CORRECT

227

JERROR REG.

R P RN T E TR

IDAE

R R R A AR R RN N RN

DETECTION

IN RK611

INFORREC(CT

AN AN RN RO R R R RN

CONTROLLER

O NN TR

(PART

6522

SEQ 0122

’
o
o
i
X
b

702
762
762
762
737
737
046
766

662

737
762

700
762

ggg

0001446

001270
000040
000040
000023
000023
00000¢

001200

"-Qtttttt.t.ttttttttttttttfitttttt'ttitt't.tttt'tttt'n'tttttttttt'
1ST773:
S(COPE
MOV
#100.,8TIMES
;:D0 100. ITERATIONS

004250

000001

MOv
MOV
MoV
MOv
MOv
MOV
CLR
MOVR

000007
002017

004ch5
000000

MOV
MOV

47 ,DRVTYP
;LOAD DRIVE
#CDT!SEEK,RKCST(R2)
;ISSUE

000440

000026

MOV

#DMD !MCLK ,RKMR1(R2)

000006

000132
000040

000010
000026
000020
004252
004250

000026

MOV

18:

MOV

gg¥

BNE
CLR

~
(e

037422
037430
037436
037444
037452

0004
2737

Pl LS 1aS1, ¥} r\)o~o~o~o~—A\nOmum:mmNmmm\:memmmmu

6564
6565
6566
567
6568

6546
6547

OOOOOOO—=—=OOOQQOOOOOO—LOO0OO0QQOOOOOD

6548
6549
6550
6551
6552
6553
6554
6555
6556
6557
6558
6559
6560
6561
222%

037214
037216
037224
037230
037236
037244
037252
037260
037266
037270
037276
037302
037310
037316
037322
037330
037336
037340
037342
037346
037352
037356
037360
037362
037364
037372
037400
037406
037414

6536
6537
6538
6539
6540
6541
6542
6543
6544
6545

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.
PUT
RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SFEK
WITH CDT "SET IN 26 SECTOR FORMAT, CYLINDER 23, HEAD 6,
DRIVE 0.
CLOCK IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS
6.
TURN GFF DIAGNOSTIC MODE AND MAKE SURE DRIVE
AVAJLABLE, UNSAFE, DRIVE OFF TRACK, ILLEGAL
DISK ADDRESS ERROR, AND (ONTROLLER CLEAR ARE SET.

[

062
700
762
402
300
373
237
237
237
237
737

000026
004262
000000

000000
000010
000012
000014
102216

004120
004130
004132
004134
004160

012737
012737
012737
023737
001401

000100
100441
042000
004160

006170
006172
004174
004120

OO0

6533
6534
6535

6525
6526
6527
6528
6529
6530
gg%}

2%:

3%:

$BASE ,R?
#SCLR,RKCS2(R2)
#DMD ,RKMR1(R2)
#23 ,RKDCYL(R2)
#23,CYLIN
#6 ,HDCODE
~(SP)
HDCODE ,1(SP)

;LOAD RKG11 BASE
;TLEAR RKQ6 SUBSYSTEM
;PUT RK611 IN MAINTENANCE
;LOAD CYLINDER ADDRESS
;LOAD -EAD ADDRESS

(SP)+ ,RKDA(R2)

#422.%4+2 RO

MODE

TYPE FOR PRINT QuT
SEEK TO RK06

:ISSUE CLOCK TO GET THROUGH PHASE €

ggMD,RKMR1(R2)

BNE
MOV
MOV
MOv
MoV
MOV

1%
RKMR1(R2)
;ALLOW COMMAND TO FINISH
WAITIM, RO
;LOAD wAIT TIME
RKCST(R2)
JWAIT FOR READY
3%
RO
2%
RKCST1(R2),T7.CS1 ;STORE COMMAND AND STATYUS REG.]
RKCS2(R2),T.CS2 ,STORE COMMAND AND STATUS REG.Z2
RKDS(R2) ,7.DS
;STORE DRIVE STATUS REG
RKER(R2),T.ER
;STORE ERROR REG
#CERR!CDT!RDY.<SEEKR*C<GO>>,E.CST
;LOAD EXPECTED (S?

MOV
MOV
MOV
(MP
BEQ

#IR,E.CS2
;LOAD EXPECTED COMMAND AND STATUS REG.?
#SVAL .DRADROT.DDT,E.DS
;LOAD EXPECTED DRIVE STATUS REG
#UNS
: IDAE ,E.ER ;LOAD EXPECTED ERROR REG
E.CS1,T.CS1
s CHECK COMMAND AND STATUS REG! (ORRECT
31
JYES, CHECK (S2

MOV
TSTR
BM]
DEC

6$:

004132

5%:

004774

004134

6%:

004120

0042¢v
004222
004224
004226

7%:

004130
004132

004134

100000

000000
000010
000012
000014
000200
000100
004172
004174
004160

00417C

001401

004130

6623
6624

5%
231

;YES, CHECK DRIVE STATUS REG.
2CS2 INCORRECT

232

;DRIVE STATUS REG.

(mp
BES

E.DS,T.DS
6%

(MP

E.ER,T.ER

11$:

004174

004134

12%:

MOV

#RDY ,E.(S1T

BEQ
ERROR

108
224

Ne v, w,

¥R

#IR,E.CSC
E.DS
E.ER
E.CS1,T.CS?

CMP

E.CS2,T.CS2

ERROR
CMP

225
E.DS,T.DS

(MP

E.ER,T.ER

BEQ
ERROR

AAAAAAE RS

001200

004244
001110

COMMAND AND STATUS
DRIVE STATUS REG.

ERROR REG.

;ISSUE
;STORE
;STORE
;STORE
;STORE

REG./

CONTROLLER CLEAR
COMMAND AND STATUS REG.!
COMMAND AND STATUS REG.?2
DRIVE STATUS REG.
ERROR REG

;LOAD EXPECTED (S1

JYES, CHECK (S2
;CS1 INCORRECT

(S2
DRIVE STATUS REG.
ERROR REG.
AND STATUS REG.1 CORRECT

;CHECK COMMAND AND STATUS REGZ CORREC(”

11%

JYES,

12%
226

JYES, CHECK ERROR REGISTER
;DRIVE STATUS REG INCORRE(T

CHECK DRIVE

STATUS RFG

;€S2 INCORRECT
sCHECK DRIVE STATUS REG CORRE(CT
;CHECK ERROR REG CORREC(T

;;YES,GO ON TO NEXT TEST
;ERROR REG. INCORRECT

RSl

RSt

2RRRRR

NON~STANDARD MESSAGE RECEIVING

CLEAR RKO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT

RK611 CONTROLLER IN DIAGNOSTIC MODE.
ISSUE A SEEK
WITH (DT SET IN 24 SECTOR FORMAT, CYLINDER 1757, HEAD 7,

000144
001270
000001
037726

INCORRECT

CORRECT

;.
.

;LOAD EXPECTED
sLOAD EXFECTED
sLOAD EXPECTED
;CHECK COMMAND

1ST74
227

"EST 764

CORREC(T

;STORE PREVIOUS VALUES OF
;
COMMAND AND STATUS REG.!

#CCLR,RKCS1(R2)
RKCST1(R2),T.CS1
RKCS2(R2),T.CS2
RKDS(R2),T.DS
RKER(R2) ,T.ER

BEQ
ERROR

STATUS REGZ CORRECT

JYES, CHECK CONTROLLER CLEAR
JERROR REG. INCORRECT

T.DS,P.DS
T.ER,P.ER

BEQ

104227

s CHECK ERROR REG.

T.(S1,P.CST
1.(S2,P.(S2

MOv
(LR
(LR
(MP

COMMAND AND

;CHECK DRIVE STATUS REG.
sYES, CHECK ERROR REG

7$
233

MOV
MOV
MOV
MOV
MOV

004132

INCORRECT

BEQ
ERROR

MOV
MOV

10%:

;CS1

SEa 0123

sCHECK

MOV
MOV

004172

1.,

CLOCK

DRIVE
TURN

OFF

6615

6616
6617
6618
6619
6620
6621
6622

230

124

CONTROLLER (PART 6)

£.0Sc,7.CS2

BEQ
ERROR

D046120

PAGE

(MP

ERROR

000000
00412C
0046130
004132
004134
004160
004170

G 10

15:10

IDAE DETECTION IN RKkS17
ERROR

001401

004172

14-SEP-81

AND

DRIVE

2 AND &,

IN DIAGNOSTIC MODE UNTIL PHASE ADDRESS 6.

DIAGNOSTTC

STATUS

MODE

AND

MAKE

SURE

REPEAT

ERRORS

FOR

SET

NOT

REPORTED.

DRIVES

51764:

AN AR

SCOPE

AR R

R R AN AR R E R R R AR NRNR R TR R R A AN ON IR

MOV

#100.,8TIMES

MOV
MoV

#1,DRV(OD
41%,8LPERR

MOV

$BASE ,R?

;.00

100.

IYERATIONS

;LOAD RK611

BASE

;LOAD INITIAL DRIVE CODE
JLOAD LOOP ON ERROR LOCATION fOR

SUBTEST LOOP

—~

004130

037544
037552
037560
037566
037574
037602
037610
037616
037622
037626
037634
037636
037640
037646
037650
037652
037660
037662
037664
037672
037674

004170

39;;046)

#579
6580
6581
6582
6583
6584
6585
6586
6587
6588
6589
6590
6591
5592
6593
6554
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
65605
6606
6607
6608
6609
6610
6611
6612
6613
6614

037464
037466
037470
037476
037500
037502
037510
937512
037514
037522
037530
037536

104230

023737

VALY

-—.......h...i...l

6573
6574
6575
6576
6577
6578

037454
037456

OOOO —
-—l—l—-j—lo
WNWWNINWN ~

6569
6570
6571
6572

DSKLS (TRL PRT?
14-SEP-81 13:47

OOOOOOOOC
OO s a0
VNN
ONONONN)

TIR6BDG RK61T
ZIR6BD.P11

ZIR6BD.P1?

NNNNWONNO OO MNINRORNINININLNIN

6644

6545
6646
6647
5648
6649
6650
6651
6652
6653
6654

€655

6660
6561
6662

6663

6673
6674
6675
6676
6677
6678
6679
6680

00001(C
000026
000020
000006
000010
000000
000026
000024

000026
00426¢
000000

1¢:

2%:

004179

004130

023737
001401
104236
023737
001401
104237

004172

004132

6% :

004174

004734

7% :

006337
032737
001647

004244

000010

14-SEP=-81

4$:

004132
004134

004160
004170
004170

004244

SEQ 0124

MOV
MOV
MOV
MOV
MOV

;CLEAR RK06& SUBSYSTEM
:PUT RK611 IN MAINTENANCE MODE

#3400. RKDA(R2)
:LOAD HEAD 7
DRVCOD,RRCS2(R2)" ;LOAD DRIVE NUMBER
#CDT'SEEK,RKCST(R2)
;ISSUE A SEEK WI°H (DT SET
#22.%4+2 R0
:ISSUE CLOCKS THROUGH PHASE 6
#DMD 'MCLK ,RKMR1
(R2)

#1757,RKDCYL (R2)" :LOAD CYLINDER ADDRESS REG

MOV

#DMD
. RKMR1 (R2)

DEC
BNE
CLR

RO
2$
RKMR1(R2)

TSTB
BM]
DEC
BNE

RK(S1(R2)
4$
RO
3¢

MOV

CALLOW COMMAND TO FINISH

WAITIM,RO

SLOAD WAIT

RKCS1(R2),7.CS1

8IS

#IR,E.CS2

MOV
MOV
MOV
MOV
MOV

TIME

“WAIT FOR READY

MOV

;STORE

COMMAND AND

STATUS

REG.1

RKCS2(R2).T.(S2 :STORE COMMAND AND STATUS REG.2
RKDS(R2),T.DS
:STORE DRIVE STATUS REG.
RKER(R2).T.ER
:STORE ERROR REG
#CDT!RDY
. <SEEKRAC<G0>>,E.CST
;LOAD EXPECTED (S1
DRVCOD,E.CS2
:LOAD EXPECTED €S2

ERROR

E.DS
E.ER

;LOAD EXPECTED DRIVE STATUS REG.
*LOAD EXPECTED ERROR REG.

234

:CS1

E.CS1,7.CS
5

CMP
BEQ

E.CS2.7.CS2
6$

ERROR
CMP
BEQ
ERROR

:CHECK COMMAND AND STATUS REG.1
SYES, CHECK €S2

INCORRECT

CMP

£.ER,T.ER

+CS2 INCORRECT
“CHECK DRIVE STATUS REG CORRECT
SYES, CHECK ERROR REG
*DRIVE STATUS REG INCORRECT

BEQ
ERROR
SCOPY

8$
237

SYES, CHECK IF LOOP ON ERROR
*ERROR REG INCORRECT
:CHECK IF LOOP ON ERROR

BIT

#B1T3,DRVCOD

ASL

SCHECK

DRYLOD

CORRECT

:CHECK COMMAND AND STATUS REG.2 CORRECT
SYES, CHECK DRIVE STATUS REG.

235
£.DS,T.DS
7%
236

BEQ
.

125

#SCLR,RKCS2(R2)
#DMD ,RKMRT(R2)

CMP
BEQ

8$:

PAGE

MOV
MOV

CLR
CLR

0046120

H 10

15:10

NON-STANDARD MESSAGE RECEIVING

MOV

023737
001401

104415

040200
040206

000040
000040
001757
003400
004244
002017
000132
000440
000040

39;2046)

004120
006130

104235

6659

13:4°

WALV

000000
000010
000012
000014
002216
004244
000100
004172
004174
004160

104234

6656
6657
6658

6664
6665
6666
6667
6668
6669
6670
6671
6672

14-SEP=-B1

PINRNOONONONON
= N O NN
=
NI NU RN NN RO MO
PRORVPNONVD
NN S NN OWWNNNNNNNNN
WWNWNNOO OO A NOO OO

6625
6626
6627
6628
6629
663C
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643

DSKLS fTRL PRT?

*GENERATE

ERROR CORRECT

DRIVE

“CHECK IF FINISHED
*NO,

COME

TRY NEXTM COME

lttt'ttttttttttttttl’l’tt"ttttttttt‘ttttttt‘tlttt'tttt.'.'t't'tt

~rfsr
'Ql.#l.l

"IROBDD RK61T1

DRIVE BUS

PARITY ON NON-STANDARD MESSAGE

CLEAR THE RK0O6 SUBSYSTEM WITH A SUBSYSTEM (LEAR,

PUT

THE

A SEEK

RK611

CONTROLLER

TO AN RKO6

IN DIAGNOSTIC

IN 26 SECTOR FORMAT,

MODE.

ISSUE

CYLINDER 2,

HEAD 0, DRIVE 1.
(CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 6.
TURN OFF DIAGNOSTIC MODE AND MAKF
SURE DRIVE BuS PARITY ERROR AND (ONTROLLER ERROR SETS.

"'l!tlttt..fi.tttt'ti"""'ttttttt'itt‘.t't."fi't.l"!!'t't'lt."

CIR6BDY RKO61T
ZZREBD.P1T

6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
5692
6693

6696
6695
6696
6697
6698
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708

040210
040212
040220
040226
040232
040240
040246
040254
040262
060266
040274
040302
040304

040306
040312
0640316
040322
040326
040326
040330
040336
060344
040352
040360
040366
040374
040400
040404

6709
6710
€711
6712
6713
6714

040412
04046146
040416
040424
0460426
040430

6716

040440

6715

6717

6718
6719
6720
6721
6722
6723
6724
6725
6726
6727
6728
6729
6730
6731
6732
6733

6734
6735
6736

040436

040442

040450
060452
040454
040462
040470
040476
040504
040512
040520
040526
040534
040542
040550
040556
040562
040566

0405746
040576
040600

DSKLS CTRL PRT2
14-SEP-81 13:47

000004
012737
0137202
012762
012762
012762
012762
012762
012700
012762
012762
005300
001370

005062
013700
105762
100402
005300
001373
016237
016237
016237
016237
012737
012737
005037
005037
023737

001401
104240
023737
001401
104241
023737

001401

104242

023737

001401
104243
013737
013737
013737
013737
012762
016237
016237
016237

016237
012737
012737
005037
005037
023737
001401
104224
023737

000144
001270
000040
000040
0000602
000001
000017
000132
000440
000040

MA(Y!Y

001200

3?;;046)

TST75:

000010
000026
000020
000010
000000
000026
000024

000026
004262
000000

1$:

3%:

000000
000010
000012
000014
120216
000101
004172
004174
004160

004120
004130
004132
004134
004160
004170

094170

004130

5%:

0064172

004132

6%:

004174

004120
004130
0046132
006134
100000
000000
000010
000012
000014
000200
000100
004172
004174
004160

004170

4$:

004120

(004134

004220
004222
004224
004226
000000
004120
004130
004132
0064134
004160
004170

7%:

8%:

004120
004130

10%:

14~SEP-81
15:10
PAGE 126
DRIVE BUS PARITY ON NON-STANDARD MESSAGE

SCOPE
MOV
MOV
MOv
MOV
MOV
MOV
MOV
MoV
MOV
MOV
DEC
BNE

SEQ (125

#100. ,$TIMES
::D0 100. ITERATIONS
$BASE ,R?
;LOAD RK611 BASE
#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMR1(R2)
;PUT RK611 IN MAINTENANCE MODE
#2 ,RKDCYL(R2)
;LOAD CYLINDER ADDRESS REG
#1,RKCS2(R2)
;LOAD DRIVE NUMBER 1
W#SEEK,RKCST(R2) ;ISSUE SEEK
#22.%4+2 RO
; ISSUE CLOCKS THROUGH PHASE 6
#DMD !MCLK ,RKMR1
(R2
#DMD ,RKMR1(R2)
RO
1%

CLR
MoV
TSTR
BMI
DEC
BNE
MOV
MOV
MOV
MOV
MoV
MOV
(LR
CLR
CMP
BEQ
ERROR
(MP
BEQ
ERROR
CMP

RKMR1(R2)
JALLOW COMMAND TO FINISH
WAITIM, #O
JLOAD WAIT TIME
RKCST(R2)
;WAIT FOR READY
4%
RO
3%
RKCST1(R2),T.CST ;STORE COMMAND AND STATUS REG.1
RKCS2(R2),T.(S2 ;STORE COMMAND AND STATUS REG.?2
RKDS(R2),7.DS
;STORE DRIVE STATUS REG.
RKER(R2) ,T.ER
;STORE ERROR REG.
#CERR!SPAR!RDY!SEEKR*C<GUL>,E.CST
;LOAD EXPECTED (S1
#IR.1,E.CS2
sLOAD EXPECTED (S1
E.DS
;LOAD EXPECTED DRIVE STATUS REG.
E.ER
;LOAD EXPECTED ERROR REG.
E.CS1,T.CS7
sCHECK COMMAND AND STATUS REG.1 CORRF(T
5%
JYES, CHECK CS2
240
;CS1 INCORRECT
£.(S2.7.CS2
;CHECK COMMAND AND STATUS REG.2 CORRECT
6%
JYES, CHECK DRIVE STATUS REG
241
;CS2 INCORRECT
E.DS,T.DS
;CHECK DRIVE STATUS REG. CORRE(T

ERROR

242

BEQ

CMP

BEQ
ERROR
Mov
MOV
MOV
MOV
MOV
MOv
MOV
MOV

MOV
MoV
MOV
CLR
(LR
CMP
BEQ
ERROR
(MP

’$

JYES,

E.ER,T.ER

sCHECK ERROR REG CORRECT

8%
243
T.CS1,P.CSY
T.(S2,P.(S2
1.DS,P.DS
T.ER,P.ER
#CCLR,RKCST1(R2)
RKCST(R2),T.CS1
RKCS2(R2) ,T.(S2
RKDS(R2),T.DS

RKER(R2) ,T.ER
#RDY,E.CST
#IR,E.CS2
E.DS
E.ER
E.CS1,T.(ST
10%
224
£.(S2,7.CS2

CHECK ERROR REG.

:DRIVE STATUS REG.

INCORRE(CT

;YES, CLEAR RK611
JERROR REG. INCORRECT
;STORE PREVIOUS (CS1, (S2,
.
DRIVE STATUS REG.,
;
AND ERROR REG.

;CLEAR RK611
;STORE COMMAND AND STATUS REG.1
;STORE COMMAND AND STATUS REG.?2
;STORE DRIVE STATUS REG.
;STORE ERROR REG:
JLOAD EXPECTED (S1
;LOAD EXPECTED (S2
;LOAD EXPECTED DRIVE STATUS REG.
:LOAD EXPECTED ERROR REG.
sCHECK COMMAND AND STATUS REG.1 CORRE(T

JYES, CHECK (S2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG.2 CORRECT

(IR6BDO RK611 DSKLS CTRL PRT?

6737
6738
6739
6740
6741
6742
6743
6764
6745

001401
04 225
23 37
01
04
23
01
04

13:4”

J 10
164-SEP-81
15:10
PAGE 127
DRIVE BUS PARITY ON NON-STANDARD MESSAGE

3?;;046)

BEQ

004172

004132

11$:

004174

006134

12%:

€€0 0126

ERROR

11%
225

;YES, CHECK DRIVE STATJS REG
2(S2 INCORRECT

BEQ
ERROR

12%
226

;YES, CHECK ERROR REG
;DRIVE STATUS REG. INCORRECT

(MP

E.DS,T.CS

CMP

;JCHECK DRIVE

E.ER,T.ER

BEG

;CHECK ERROR CORRECT

1ST76

ERROR

STATUS REG CORRECT

;.YES, GO ON TO NEXT TEST

227

JERROR REG INCORRECT

Py R
e T T
T TR 2

NON-EXISTENT

DRIVE

(DRIVE

MESSAGE

TIME

OuT)

2
¢
%
%
%
%

I
S

001200

ST76:

000026

000026
004262
000000

2%:

004264

3%:

4%:

000000
000010
000012
000014
100200
020000
5%:

100000

004120

RK611

CONTROLLER

IN DIAGNOSTIC MODE.

ISSUE

ERESR

SRR RRRARRRRRRRARERRRRRRRRRRRRR
SRR
RRRRRER)

SCOPE
MOV

#100. ,$TIMES

MOV
MOV
MOV

#SCLR,RKCS2(R2) ;CLEAR RKO6 SUBSYSTEM
#DMD ,RKMRT(R?2)
;PUT RK611 IN MAINTENANCE MODE
#SELDRV,RKCST(RS)
;ISSUE SELECT DRIVE

MOV
MOV
DEC
BNE

#DMD !MCLK ,RKMR1(R2)
#DMD ,RKMR1(R2)
RO
1%

MoV

CLR
mMov

1ST8
BMI
DEC
BNE
MoV
DEC

$BASE ,R?2

;.D0 100.

ITERATIONS

;LOAD RK611 BASE

#21.+*4 R0

:ISSUE CLOCKS THROUGH PHASE 4

RKMR1(R2)
wAITIM, RO
RKCST(R)
3$
RO
2%
STALL RO

JALLOW COMMAND TO FINISH
;LOAD WAIT TIME
;WAIT FOR READY

;STALL 100 USEC FOR MESSAGE

TIME OUT

BNE
MOV
Mov
MOV
MOV

3
RKCST1(R2),T7.CS1
RKCS2(R2),T.CS2
RKDS(R2),7.DS
RKER(R2),T.ER
#CERR!RDY,E.CST
ggPAR,T.CS1

;LOAD EXPECTED (S1
;CHECK FOR BUS PARITY ERROR

BIS
MOV

#SPAR E.(S1
ANED!IR,E.CS2

;PUT BUS PARITY ERROR IN EXPECTED (S?
;LOAD EXPECTED (S2

CLR
(MP

E.ER
E.CSY,T.CST

sLOAD EXPECTED ERROR REG.
s CHECK COMMAND AND STATUS REG.1

MOV
gég

020000
010100
004174
004160

MOV

200010
000026
000000
000026

THE

A SELECT TO AN RKO6 IN 26 SECTOR FORMAT, CYLINDER O,
HEAD O, DRIVE Q.
(CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 5.
TURN OFF DIAGNOSTIC MODE
AND MAKE SURE NON-EXISTENT DRIVE AND (ONTROLLER
ERROR ARE SET.
THIS TEST CHECKS NON-EXISTENT DRIVE
DUE TO DRIVE MESSAGE TIME OUT.

4% v.w,

000144
001270
000040
000040
000001
000124
000440
010040

£ NN
S PORONONONON
NS NONININ
S NN no
S O WNWNWWNWIWO
WWIN NN (NN
BN SNNNNNWNNN
N ~NN

040636
040640
040646
040652
040660
040666
040674
040700
040706
040714
040716
040720
040724
040730
040734
040736
040740
040742
040746
04C750
040752
040760
040766
040774
041002
041010
041016
041020
041026
041034
041042
041046
041054
041056

CLEAR THE RKQO6 SUBSYSTEM WITH A SUBSYSTEM (LEAR.

PUT

2
%

I
P R

;*TEST

peleloleleleleolelelealelele]
QOOMNO
= == \VNO N~ —d od =d —

6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
€167
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781
6782
6783
6784
6785
6786
6787
6788
6789
6790
6791
6792

040606
040610
060612
040620
040622
0460624
040632
040634

N &S
~NIND
S~ N
NOWNO
N
NON -2

14-SEP-81
=00 =00

TIREBD.P1T

MACYT

MOV

BEQ
ERROR

#SVAL ,E.DS

6$
244

;STORE
;STORE
;STORE
;STORE

COMMAND AND STATUS REG.]
COMMAND AND STATUS REG.?
DRIVE STATUS REG
ERROR REG

sLOAD EXPECTED DRIVE

:YES, CHECK (S2
;CS1 INCORRECT

STATUS REG.

CORRE(T

0064172

004132

7%:

023737

004176

004134

8S$:

004220
00422¢
004226
004226
000000
004120
004130
004132
004134
004160
004170

9%:

005037
005037

004120
004130
004132
004134
100000
0000600
000010
000012
000014
000200
000100
004172
004176

6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812

041112
041114
041116
041126
041132
041140
041146
041154
041162
041170
061176
041204
041212

001401
104247
013737
013737
013737
013737
012762
016237
016237
016237
016237
012737
012737

6815

041230

6799

6813
6814

5816
6817
6818
6819
682C
6821
6822
6823
6824

6825

2359

041106

041220
041226

041236
041240
041242
061250
041252
041254
041262
0412646
041266

061274

041276

023737

001401
104224
023737
001401
104225
023737
001401
104226
023737

001401

CMP
BEQ
ERROR
(MP
BEQ
ERROR

E.(S2,T.(S2
7$
245
E.DS,T.DS
8$
246

;CHECK COMMAND AND STATUS REG.Z2 CORRE(CT
;YES, CHECK DRIVE STATUS REG
;€S2 INCORRECT
;CHECK DRIVE STATUS REG CORRE(CT
;YES, CHECK ERROR REG.
;DRIVE STATUS INCORRECT

8EQ
ERROR
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

9%
247
T.CS1,P.CS)
1.0S2,P.CS2
1.DS,P.DS
T.ER,P.ER
#CCLR,RKCS1(R2)
RKCS1(R2),T.CS1
RK(S2(R2),T.(S2
RKDS(R2),7.DS
RKER(R2) ,T.ER
#RDY ,E. (ST
#IR,E.CS2

;YES, ISSUE CONTROLLER CLEAR
;ERROR REG INCORRECT
;STORE PREVIOUS (S1,(S2
;
DRIVE STATUS REG.,
.
AND ERROR REG.

CMP

(LR
(LR

004160

004120

CMP

004170

004130

10%:

004172

004132

1'$:

004174

0C4136

12%:

BEQ
ERROR
CMP
BEQ
ERROR
CMP
BEQ
ERROR
(MP

BEQ

104227

ERROR

E.ER,T.ER

E.DS
E.ER

E.CST1,T.CST

108
224
E.CS2,T.CS2
11$
225
E.DS,T.DS
128
226
E.ER,T.ER

1S177

227

AR AN A RN A RN

;CHECK ERROR REG CORRF(T

;ISSUE CONTROLLER CLEAR
;STORE COMMAND AND STATUS REG.1
;STORE COMMAND AND STATUS REG.?
:STORE DRIVE STATUS REG.
;STORE ERROR REG.
;LOAD EXPECTED (S1
;LOAD EXPECTED (S2

;LOAD EXPECTED DRIVE STATUS REG.
;LOAD EXPECTED ERROR REG.

;CHECK COMMAND AND STATUS REG1 CORRE(CT

;YES, CHLCK CS2
;CS1 INCORRECT
;CHECK COMMAND AND STATUS REG.2 CORRE(CT
:YES, CHECK DRIVE STATUS REG.
;CS2 INCORRECT
;CHECK DRIVE STATUS REG CORRECT
;YES, CHECK ERROR REG
;DRIVE STATUS INCORRE(CT
;CHECK ERROR REG CORRE(CT

::YES, GO ON TO NEXT TEST

;ERROR MESSAGE
AR

INCORRECT

6828

23%8

;*TEST

6831

gggg

NON-EXISTENT DRIVE AND CONTROLLER ERROR ARE SET.

6838
6839
6840

i*
B
o

THIS TEST EXERCISES THE NON-EXISTENT DRIVE LOGIC
DUE TO RELEASE BIT RESET AND SACK RESET BUT THE PASSING
OF THIS TEST DOES GUARENTEE THAT THIS SITUATION DID

68[,3
6844
6845
6846
6847
6848

:"'tttttttttttttttltttttt'ttttttttttttttttttttttt'tttttttttttt'ttt
1S177:
SCOPE
MOV
#100.,$TIMES
;.00 100. ITERATIONS
MOV
$BASE ,R2
;LOAD RK611 BASE
MOV
#SCLR,RKCS2(R2) ;CLEAR RKQ6 SUBSYSTEM
MOV
#DMD ,RKMR1(R2)
;PUT RK611 [N MAINTENANCE MODE

NON-EXISTENT

AR R AN A AR AR R R AR AR AR AR AN R R AR AR R

DRIVE

R TR

AND NO SACK

6832
6833
6834
6835

ot
o*
i*
i*

232;

041300
041302
041310
041314
041322

000004
012737
013702
012762
012762

000144
001270
000040
000040

001200
000010
000026

CLEAR THE RKO6 SUBSYSTEM WITH A SUBSYSTEM CLEAR.

PUT

THE RK611 CONTROLLER IN DJAGNOSTIC MODE.
ISSUE A
SELECT TO AN RK0O6 IN 26 SECTOR FORMAT, CYLINDER 0,
HEAD 0, DRIVE 0.
(CLOCK IN DIAGNOSTIC MODE UNTIL
PHASE ADDRESS 4.
TURN OFF DIAGNOSTIC MODE AND MAKE SURE

INDEED CAUSE A NON-EXISTENT DRIVE.

68$:

023737
001401
104245
023737
001401
104246

PAGE 128
(DRIVE MESSAGE TIME OuT)

N
~

(06130

041060
041066
041070
041072
041100
061102

15:10

(]

004170

hay

6793
6794
6795
6796
6797
6798

164-SEP-81

NON-EXISTENT DRIVE

3?;;046)

MACYN

CZR6BDO Rk611 DSKLS CTRL PRT2
14-SEP=-81 13:47

(ZR6BD.P11

K 10

6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866

6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882

6883
6884

6885

6836

6887
6888
6889
6890
6891
6892
6893
6894
6895
6896
6897
6898
6899

6900
6901
6902
6903
6904

041330
041336
041342
041350
041356
041360
041362
041366
041372
041376

041400
041402
041404
041412
041420
041426
041434
041442
041450
041454
041460
041466
041470
041472
041500
041502
041504
041512
041514
041516

041524
041526
041530
041536
041544
041552

041560
041566
041574
041602
041610
041616
041624
041632
041636

041642
041650
041652
041654
041662
041664
041666
041674
041676
041700
041706

D SK
1

CTRL PRT2
-81 13:47

000001
000116
000440
000040
062

100200
010100
006172

004174

104252

001401

104226

023737
001401

MACY'1

30(1046)

177

000026
000026

1%:

006120
004130
004132
004134
004160
006170

4%:

004170

004130

5%:

004172

004132

6%:

004174

004134

’%:

004120
004130
004132
004134

004c20
004222
004224
004226
000000
004120
004130
004132
004134
004160
004170

8%:

100000

#19.44+3,R0

DEC
BNE
CLR
MOV

RO
1%
RKMR1(R2,

MOV
MOV

TSTB

CMP
BEQ
ERROR
CMP
BEQ
ERROR

004172

004132

11%:

004174

004134

128:

RK(CS1(R2)

;ALLOW COMMAND TO FINISH
*LOAD WAIT TIMF
“WAIT

FOR READY

RKCST1(R2),T.CS1

;STORE

RKDS(R2),T.DS
RKER(R2).T.ER
#CERR'RDY,E.CST
ANED'IR,E.CS2
E.DS
E.ER
£.CS1,7.CS1

:STORE DRIVE STATUS REG
:STORE ERROR REG
:LOAD EXPECTED CS1
:LOAD EXPECTED (S2
:LOAD EXPECTED DRIVE STATUS REG.
“LOAD EXPECTED ERROR REG.
*CHECK COMMAND AND STATUS REG.1 CORRECT

251

ERROR

252

*DRIVE STATUS INCORRECT

BEQ
ERROR

8%
253

CMP
BEQ

CMP

MOV
MOV

5%
250
E.CS2,T.CS2

COMMAND AND STATUS REG.1

SYES, CHECK (S2
:CS1 INCORRECT
“CHECK COGMMAND AND STATUS REG.2 CORRECT
*YES, CHECK DRIVE STATUS REG
+CS2 INCORRECT

E.DS,T.DS
7$
E.ER,T.ER

*CHECK DRIVE STATUS REG CORRECT
*YES, CHECK ERROR REG.
*CHECK ERROR REG CORRECT

SYES. I1SSUE CONTROLLER CLEAR
*ERROR REG INCORRECT

T.CS1.P.CST
T.CS2.P.CS2

*STORE PREVIOUS CS1,(S2
*"
DRIVE STATUS REG.,

MOV
MOV
MOV
MOV
MOV

#CCLR,RKCST(R2)
RKCS1(R2Y,7.CS1
RKCS2(R2).T.CS2
RKDS(R2),T.DS
RKER(R2).T.ER

;ISSUE
:STORE
:STORE
:STORE
:STORE

CLR

E£.DS

*LOAD EXPECTED DRIVE STATUS REG.

CMP

10%:

WA TIM,RO

RKCS2(R2).T.CS2 :STORE COMMAND AND STATUS REG.?2

(LR

004130

#DMD 'MCLK ,RKMR1
(R2)
#DMD .RKMR1 (R2)

MOV

MOV
MOV

004170

;ISSUE SELECT DRIVE

S ISSUE CLOCKS THROUGH PHASE 3

4%
RO
3¢

MOV
MOV

004120

SEQ 0128

BMI
DEC
BNE

CLR
CLR

004120

#SELDRV,RKCS1(R2)

MOV

MOV
MOV
MOV
MOV

004160

000000
000010
000012
000014
000200
000100
004172
004174
004160

L 10

14-SEP=-81
15:10
PAGE 129
NON-EXISTENT DRIVE AND NO SACK
MOV

000000

000026
004262
000000

000000
000010
000012
000014

QOO OOOOOOOOOOO— o0
Ot md b ed e od b e d ad 2 O on
—a N
VNN
NP W NN
O NNMNUNININD
NN SN N NN S ~
N NN IN NN NN NN N NN O W
SNNNNNNNNVNNSNNW—
N

CZR6BDO RK611
TZR6BD.P1Y

BEC
ERROR

CMP

BEQ
ERROR
CMP
BEQ
ERROR
CMP

BEQ

1.DS.P.DS
T.ER,P.ER

ARDY ,E.CS1
#IR,E.CS2

E.ER

£.0CS1,T.CS1
108
224

£.CS2,71.CS2
11$
225
£.DS,T.DS
12%
226

E.ER,T.ER

17100

AND

ERROR REG.

CONTROLLER CLEAR
COMMAND AND STATUS REG.1
COMMAND AND STATUS REG.2
DRIVE STATUS REG.
ERROR REG.

*LOAD EXPECTED CS1
*LOAD EXPECTED €S2

*LOAD EXPECTED ERROR REG.

*CHECK COMMAND AND STATUS REG1 CORRECT
SYES, CHECK €S2
2CS1 INCORRECT

*CHECK COMMAND AND STATUS REG.2 CORRECI
*YES, CHECK DRIVE STATUS REG.
:CS2 INCORRECT
*CHECK DRIVE STATUS REG CORRECT
*YES, CHECK ERROR REG
*DRIVE STATUS INCORRECT
*CHECK ERROR REG CORRECT

2:YES, GO ON TO NEXT TEST

CZR6BDO RK61T1 DSKLS CTRL PRT2

CZR6BD.P1T

6905
6906
6907
6908
6909
6910
6911
6912
6913

6914
6915
6916
6917
6918
6919
6920
6921
6922
6923
6924
6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941
6942
6943
6944
6945
6946
6947
6948
6949
6950
6951

692
6753
€ 954

14=-SEP=-81

041710

13:47

MACY1

3?;;046)

Mm10
PAGE 130
NON-EXISTENT DRIVE AND NO SA(K

14-SEP-81

ERROR

106227

.SBTTL

227

SEQ 0129

INCORRELT

JERROR MESSAGE

+«]LLEGAL FUNCTION CODE TEST

I SA22RRE22RZ222

TRTEST 100
. %

15:10

2220222022222

ILLEGAL FUNCTION CODE

RRRRRARRRtRRRiRRltRR

CLEAR RK611 WITH A CONTROLLER CLEAR.

SETTING CONTROLLER READY WITH PROPER ERROR CONDITIONS.

T
-

ISSUE AN ILLEGAL

COMMAND IN NORMAL MODE AND MAKE SURE COMMAND f INISHES

'".'""QQQ.'Q'.‘Q".Q"Q""Q"tfit"tl’itfi.t'fi'.'i."ttittt't"t"

061712
0461714
04172
041730
041736
041736
041744
041752
041760
041766
041774
042002
042010
042016
042024
042032
042034
042036
042044
042046
042050
042056
042064
042072
042100
042104
042112
042114
042116
042124
042126
042130
042132
042140
042146

1 ST100:

000764
000033
061736

100000

MPY
1%:

#500.,8TIMES
#33,ILLFUN
#1%,8LPERR

;D0 S00. ITERATIONS
JSET ILLEGAL FUNCTION

:LOAD LOOP ON ERROR LOCATION FOR

;

SUBTEST LOOP

MOV
MNV
BIC
BIS
MOV
MOV
MOV
MOV

#CCLR,RKCST(R2) ;CLEAR RK611 CONTROLLER
ILLFUN,E.CST
JGENERAIE EXPECTED (S1
#G0,E.CST
#CERR!RDY,E.CST
#ILF E.ER
;LOAD EXFECTED ERROR REG
#DMD ,RKMRT(R2)
;PUT RK611 IN DIAGNOSTIC MODE
JLLFUN,RKCS1(R2) ;ISSUE ILLEGAL FUNCTION
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REG 1

3%
256
E.ER,T.ER
4%
257
#CCLR,RKCS1(R2)

000001
000040
004270
000000
000014
004160

000000
004160
004160
004160
004174
000026
200000
004120
004134
004120

004174

004134

3%:

100000

000000
0046120
004134
004160

4%:

BEQ
ERROR
(MP
BEC
ERROR
MOV

6%:

BEQ
ERROR
CMP

6%
260
E.ER,T.ER

;YES, CHECK IF ERROR REG (CORRECT
;CONTROL CLEAR DID NOT CLEAR (ERR
JCHECK IF ILF CLEARED

ERROR

261

JCONTROLLER CLEAR DID NOT CLEAR |LF

ADD
(MP

#2,ILLFUN
#61,1.LFUN

004270
000001
100200

000000
000014
000200
004°74
004160
004174

101273

SCOPE
MOV
MOV

000002
000041

MOV
(MP

(MP

004120
004134

004270
004270

MOV
MOV
MOV
(LR

7%:

B8EQ

SCoP1

BHI

RKER(R?2),T.ER
E.CS1,T.CS1

RKCS1(R2),T.CS1
RKER(R2),T.ER
#RDY ,E.CST
E.ER

E.CST1,T.CS

:STORE ERROR REG
JCHECK IF CS1 CORRECT

JYES, CHECK ERROR REG
;CST INCORRECT AFTER ILL FUNCT
;CHECK IF ERROR REG CORRECT
JYES, CLEAR CONTROLLER
JERROR REG INCORRECT AFTER JLL FUN(T
;CLEAR RK611 CONTROLLER
;STORE COMMAND AND STATUS REG.
;STORE ERROR REG
;LOAD EXPECTED (S
;LOAD EXPECTED ERROR REG

°*

JCHECK IF CS1 CORRECT (CERR CLEAR)

JYES, GO ON TO NEXT CONF]IGURATION
JCHECK

LOOP ON ERROR

JGENERATE NEXT JLLEGAL FUNCTION
:CHECK [F FINISHED

:NO, USE NEXT CONF]GURATION

6979

69%0

6981
6982
6983
6984
6985
6986
6987
6988
6989
6990

6991
6992
6993
6994
6995
6996
6997
6998
6999
7000
7001
7002
7003
7004
7005

7007

7008
7009

7C10

SEQ 0130

PASS ROUTINE

THE PASS NUMBER

(SPASS)

:*TYPE 'END PASS #XXXXX TOTAL NUMBER Oi ERRORS SINCE LAST REPORT YYvyv'
:«WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
;*IF THERES A MONITOR GO TO [T

;J*]F

042150
042150
042152
0462156
042162
0462166
042174
042176
042200
042202
042204
042206
0642210
042214

042234
062234

000004
005037
005037
005237
042737
005327
000001
003063
012737
000001
042176
104401

000407

073746

001222
SEOPCT:
$END(CT:

04221€¢

SCOPE
(LR
(LR
INC

00112

;

$LAGN
(PC) e+, @(PC)e

;I YES
s sRESTORE COUNTER

653

J:TYPE

.WORD
$FOPCT

B8R

648

MOV

$PASS,=(SP)

LASCIZ

RESET

JSR
NOP

TOTAL

ERRORS

LSCRLF

377

042432
000340
172100

000

000004
000006

TYPE--DECTMAL

WITH

SIGN

::GET OVER THE ASCIZ

SINCE

LAST REPORT

;s SAVE SERTTL FOR TYPEOUT
;. TOTAL NUMBER OF ERRORS
;.60

TYPE--DECIMAL

;3TYPE

CARRIAGE

ASCII

RETURN,

;sCLEAR ERROR TOTAL
;.GET MONITOR ADDRESS
;;BRANCH IF NO MONITOR

PC, (RD)

;:GO TO MONITOR
.+ SAVE ROOM

;:CLEAR

THE

WITH

LINE

SIGN

FEED

WORLD

;:FOR

NOP

JSACTN

SRINAD:
$ENULL:

JMP
.WORD
.BYTE
.EVEN

LOBTTL

(HECK FOR MEMORY CHECK ENABLE OPTIIN

(HKPAR: MOV
MOV
MOV

ASCIIl

SERTTL
aNé2 RO
$DOAGN

NOP

$DOAGN:

STRING

JsTYPE ASCIZ STRING

$ERTTL ,=(SP)

BEQ

ASCIZ

;s SAVE $FASS FOR TYPEOUT
;;TYPE PASS NUMBER

..,00

,67%

MOV

CLR
$GET4L2: MOV

;LOOP?

<12><1S5>/END PASS #/

66%

.ASCIZ

..DON T ALLOW A NEG. NUMBER

::GET OVER THE ASCI2

TYPE

$ENDAD:

(PC)+
1

BGT
MOV

TYPDS

005037
013700
001405
000005
004710
000240
000240
000240

;3IERD "HE TEST NUMBER
.sJERO THE NUMBER OF ITERATIONS
::‘NCREMENT THE PASS NUMBER

#100000, $PASS

DEC
.WORD

TYPE

66275:

$TSTAM
$TIMES
$PASS

8IC

TYPDS

104405
10440,

000137
005254
377
062360

ISN'T JUMP TO NEWPAS

TYPE

éigss:

062250

042312
042312

0423¢€0
042366
042374

100000

1046405
104401

000421

042316
042320
042324
042330
042334
042336
042340
042342
0627344
042346
042350
042350
042352
042354

001102
001209
001222

001222

042240
042242
062246

THERE

$EOP:

013746

6974
6975
6976
6977
6978

END OF

N 10
PAGE 131

15:10

PASS ROUTINE

:*INCREMENT

vl
) dh

6973

END OF

14-SEP-81

A 2222222222202

rOrORD
NN
O WA

€964
6965
6966
6967
6968
6969
6970
6971
6972

TJ(1046)

.SBTTL

OO0

6955
6956
6957
6958
6959
6960
6961
696¢
6963

MACYTY

a(P()+
NEWPAS
=-1,-1,0

#208 ,ERRVE(
#PR7 ,ERRVE(¢2
#MEMBAS RS

. sRETURN

;sNULL

CHARA(CTER STRING

JSET VECTOR FOR MEMORY PARITY ME(K

sLOAD REGISTER TO DETERMINE

;

[i
AVA]LIABLE
MEMORY (HEIK ENABLE

[Bn Xan

CZR6BDO Rx611 DSKLS CTRL PRT?
14=SEP=81 13:4”
(2R6BD.P11

7011
7012

7013
7014
7015
7016

7017
7018
7019
7020
7021
7022

7023

D SK
14~

CTRL PRT?

-81

13:47

000020
000001
042450
000340

042400
042604
042410
042416
042424
042426
042430

000114
000116

7034

7035

7036
7037
7038
7039
7040
7041
7042
7043
7044
7045
7046
7047
7048
7049
7050
7051
7052

7053
7054
7055
7056
7057
7058
7059

7060
7061
7062

7063
7064

7065
7066

MOV
MOV

16%:

042432
042434
0642442
042446

000006
000006

000004

MOV
DEC

(MP
MOV
CLR

(SP)+,(SP)+
JADJUST STACK
HERRVEC+2,ERRVEC
;RESTORE TRAP CAT(HER
ERRVEC+2

MOV

20%:
22%:

042450
042456
042462
042464
042470
042476
042500

000002

042502
042506

012706
000177

042464
004272

001202
001000

16$
22%

RTS

001202

136442

MEMERR: MOV

;CHECK

FINISHED

sNO, SET UP NEXT MEMORY PARITY MODULE
JRESTORE TRAP VECTOR

TRAP

#10$,$ESCAPE

sLOAD ESCAPE

ERROR

262

JREPORT MEM PARITY ERROR

BIT
BNE

#5W9,aSWR
15%

15%:

Mov

#STACK,SP

.SBTTL

SCOPE HANDLER ROUTINE

MOV

108 :

CLR

RT]

001100
136376

sLOAD COUNT
;EMABLE MEMORY CHE(K
;LOAD MEMORY (HECK VECTOR

JRETURN

MEMORY (HECK ENABLE

LSBTTL

SEQ 0131

#16.,R4
#PAR.EN, (R3)+
#MEMERR ,MEMVEC
#PR7 ,MEMVE(+2
Ré

BNE
BR

7024

7025
7026
7027
7028
7029
7030
7031
7032
7033

8 11
30(1046)
14-SEP-81
15:10
PAGE 132
CHECK FOR MEMORY CHECK ENABLE OPTION

(SP) , TRAPP(

:STORE

$ESCAPE

;CLEAR ESCAPE

;CHECK IF LOOP ON ERROR
;YES, FORCE STACK AND TRY AGAIN
;NO,

RETURN

JINITIALIZE STACK
;LOOP ON ERROR

d$LPERR

JMP

:;ttttttttttttttttttttttt**tttt*ttfit*tt*ttlttttt*tittttttti*tttt*

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTES,S.

;*AND LOAD THE TEST NUMBER($TSTNM)

;*AND LOAD THE ERROR FLAG
s*THE

;*SW14=1
JeSW11=1
s %SW09=1
;*SW08=1

;«CALL

042512
042512
042514
042522

032777
001131

042524

000416

042526
042532
042540
042544
042550
042552
042554
042560
042562

013746
012737
005737
012637
000500
022626
012637
000440

104407

$SCOPE:

040000

136416

1%:

LOOP ON
INHIBIT
LOOP ON
LOOP ON

CKSWR
BIT
BNE

$XTSTR: BR

000004

5%:

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

#BIT14,aSWR
$OVER

CODE

FOR

THE

XOR

AERRVEC,-(SP)
#5$ ANERRVEC

MOV

(SP)+,a#ERRVEC

an177060

B8R

$SVLAD

MOV

(SP)
+ ,@#ERRVEC(

CMP

6%:;#4#4REND OF

ARE:

;sTEST
FOR CHANGE IN SOFT-~SWR
;;LOOP ON PRESENT TEST?

MOV
MOV

INTO DISPLAY<15:08>

THIS ROUTINE

::SCOPE=]0T

SCOPE

JAABBRSTART

000004
042552
177060
000004

(SERFLG)

SWITCH OPTIONS PROVIDED BY

IT WILL INCREMENT
INTO THE DISPLAY REG.(DISPLAY<7:0>)

(SP)+,(SP)+

CODE FOR THE

JYES IF

SW14-1

TESTERA#AAA

::1F RUNNING ON THE ''XOR'' TESTER CHANGE

*:THIS INSTRUCTION TO A 'NOP’* (NOP=240)
::SAVE THE CONTENTS OF
S SET FOR TIMEOUT

THE

ERROR VECTOR

::TIME OUT ON XOR?
;.RESTORE

THE

ERROR VECTOR

;.60 TO THE NEXT TEST

;.CLEAR THE STACK AFTER A TIME OQUT
..RESTORE

THE

ERROR VECTOR

;LOOP ON THE PRESENT TEST

XOR TESTERA##AH

CZR6BDO RK611

CZR6BD.P11

MACY11

{ZR6BD.PI

14-SEP-81

13:47

000400

7067
7068
7069
7070
7071
7072
7073
7074
7075
7076
7077

VMACY11

30(1046)

136350

001102
043024
001166
8%:
2%:

001103
001115

001103

001000

136260

001110

001106

001103
001200

004000

7%:
4%:

136226

3%:

001222

(01104
0N1200
000001
043022
001102
001102
001106
001110
001202
000001
001102
001106

001°04
001200

001220

$SVLAD:

NN SN
N = OO0

=D
ek
b =k =D
b —d —d
b

NOPLND
= =
b e B a =

N NNNNNNNNNYN

—h

BEQ
CMP
BLT

8$
#100, (SP)
8%

;BRANCH IF BAD TEST NUMBER IN SWR
;s CHECK THE NUMBER IN THE SWR
;;BRANCH [F TEST NUMBFR IS OUT OF RANGE

ggv

ghPEzR,SLpADR

MOV
DEC
ASL
ADD
MOV
BR
TST
TSTB
BEQ
CMPB
BHI
BIT
BEQ

$OVER:

2%
-(SP)
aSWR, (SP)

(SP) ,$TSTNM
(SP)
(SP)
#8SWOBTBL,(SP)
@ (SP)+,SLPADR
$OVER
(SP)+
$ERFLG
3%
SERMAX ,SERFLG
3%
#B1T09,3SWR
4%
v

TEST?

;+BR IF NO
;:CLEAR A TEMP, LOCATION
;sPICKUP THE DESIRED TEST NUMBER

;;UPDATE THE TEST NUMBER
;:BACKUP BY ONE
:2SCALE THE TEST NUMBER AS AN INDEX
;:FORM THE ADDRESS OF TEST POINTER
;:SET LOOP ADDRESS TO DESIRED TEST
;;G0 LOOP ON THE TEST
.. CLEAN THE BAD TEST NUMBER OFF OF THE, STA(CK
: JHAS AN ERROR OCCURRED?
.:BR IF NO
:sMAX. ERRORS FOR THIS TEST OCCURRED?
;.BR IF NO
;:LO0P ON ERROR?
;:BR IF NO
;:SET LOOP ADDRESS

TO LAST

CLRB

$ERFLG

;s JERO THE ERROR FLAG

BIT

#B81T11,3aSWR

;o INHIBIT ITERATIONS?

TST

$PASS

CLR
BR
BNE

CMP
BGE

$TIMES
1%
1%

SCOPE

:3CLEAR THE NUMBEP OF ITERATIONS TO MAKE
;:ESCAPE TO THE NEXT TEST
;:BR

YES

;2
1F FIRST

PASS

PROGRAM

$TIMES,SICNT
$OVER

;s CHECK THE NUMBER OF JTERATIONS MADE
;2BR IF MORE ITERATION REQUIRED

S$ICNT

INHIBIT

ITERATITIONS

:;INCREMENT ITERATIOAN (OUNT

MOV

#1,81CNT

JsREINITIALIZE

IN(CB
MOVB
MOV
MOV

$TSTNM
$TSTNM,STESTN
(SP) ,$LPADR
(SP) ,$LPERR

;sCOUNT TEST NUMBERS
;sSET TEST NUMBER IN APT MAILBOX
;2SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS

MOVB
MOV
Mov
RTI
2000.

#1,8ERMAX
$TSTNM,aDISPLAY
$LPADR, (SP)

;;ONLY ALLOW ONE(1) ERROR ON NEXT
;;DISPLAY TEST NUMBER
;;FUDGE RETURN ADDRESS
;.FIXES PS
;JMAX, NUMBER OF ITERATIONS

TST1+2
TST2+2
TST3+2
TST4+2
TST5+2
TST6+2
TST7+2
TST10+2
TST11+2
TST 242
TST13+2

;:STARTING
;:STARTING
:;STARTING
;:STARTING
::;STARTING
;s STARTING
:;STARTING
:;STARTING
;:STARTING
::STARTING
;:STARTING

MOV

CLR

SMXCNT:

043044
043046
043050

2:LO0P ON SPEC.

INC

1%:

SEQ 0132

#81708,aSWR

BEQ

001104

cn
PAGE 133

BIT

BEQ
CLR
MovB

000100

7079
7080
7081
7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092
7093
7094
7095

15:10

SCOPE HANDLER ROUTINE

136340

7078

14-SEP-81

$SWOBTBL:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$SMXCNT ,STIMES

$ESCACE

;;SET NUMBER OF

THE

ITERATION COUNTER

ITERATIONS TO DO

;3CLEAR THE ESCAPE FROM ERROR ADDRESS

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

1
2
3
4
S
6
7
10
11
12
13

TEST

TM~

CZR6BDO RK611 DSKLS CTRL PRT?

GurPurSnsd
v Qi

GhnrGiny

7135
7136
7137
7138
7139
7140
7141
71462
7143
7144
7145
7146
7147
7148
7149
7150
7151

400

TSTi4e2
TST1542
TST16+2
TST17+¢
TST20+2
TST21¢2
TST22+2
TS723+2
TST24+?
TST25+2
TST26+2
TST27+2
TST30+2
TST31+2
TST32+2
TST33+2
TST34+2
TST35+2
TST36+2
TST37+2
TST40+?2
TST41+2
TST42+42
TST4342
TST44+2
TST45+2
TST&46+2

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

TSTS50+2
TSTS51+2
TSTS52+2
TST53+?
TSTS54+2
TSTS55+2
TSTS6+2
TSTS57+2
TST60+2
TST61+2
TST62+2
TST63+2
TST64+2
TST65+2
TST66+2
TST67+2
TST70+2
TST71¢2
TST72+2
T5T73+2
TST74+2
TST75+2
TST76+2
TST77+2
TST100+¢2

.WORD

7152

7153
7154
7155
7156
7157
7158
7159

7160
7161
7162

7163
7164

7165
7166
7167
7168
7169
7170
717
7172
7173
7174
7175
7176
7177
7178

JWORD
.WORD
.WORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
LWORD
JWORD
LWORL
JWORD
LWORD
JWORD
.WORD
.WORD

043222

041714
AR

AR RN AR AR AR AN

"SBTTL

LOOP ON

PAGE

SEQ 0133

;:STARTING ADDRESS OF
::STARTING ADDRESS OF
;s STARTING ADDRESS OF
;sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
;s STARTING ADDRESS OF
;STARTING ADDRESS OF
;:STARTING ADDRESS OF
2 ;STARTING ADDRESS OF
;:STARTING ADDRESS OF
+STARTING ADDRESS OF
. :STARTING ADDRESS OF
;:STARTING ADDRESS OF
::STARTING ADDRESS OF
;:STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
:;STARTING ADDRESS OF
;s STARTING ADDRESS OF
. :STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
:;STARTING ADDRESS OF
::STARTING ADDRESS OF
:;STARTING ADDRESS OF
;s STARTING ADDRESS OF
2 s STARTING ADDRESS OF
;s STARTING ADDRESS OF
s :STARTING ADDRESS OF
::STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;s STARTING ADDRESS OF
;:STARTING ADDRESS OF
;s STARTING ADDRESS OF
;:STARTING ADDRESS OF
;;STARTING ADDRESS OF
::STARTING ADDRESS OF
;s STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
::STARTING ADDRESS OF
;s STARTING ADDRESS OF
;:STARTING ADDRESS OF
;s STARTING ADDRESS OF
;:STARTING ADDRESS OF
;:STARTING ADDRESS OF
;s STARTING ADDRESS OF
J:STARTING ADDRESS OF

TST47+2

AN NI R AR

INTERNAI

134

RN RARAAN

ERROR

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST 60
TEST
TEST
TEST
TEST
TtST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
;s STARTING ADDRESS Of TEST

AR AAARA
RN R AR NIRRT
RRN
ROERNY

100

D 1N

BN BN BN B BN NN NN NN WP NN PO RO PO NN — — —a
NOWNESB W= ONO VS NN =S ONO N
NN = O NN
W) SO NN N S

7134

30(1046)
14-SEP-81
15:10
SCOPE HANDLER ROUTINE

VIV
S S BN

7129
7130
45}
7132
7133

GuurSas QGGG

7127
7128

Guur G

7126

043052
043054
043056
043060
063062
043064
043066
042070

MACY11

NNOONNWNNES
B D NWNWNININ — —
S =N
2 ONANOON Woo~
N = =20
NS W~
(W Vi
& —
NONOOAAENNOOOOO OO

7123
7126
7125

DSKLS CTRL PRT?
4~SEP-81 13:4~
elelelalelololelolalelalalelelelol

(ZR6BDO RK611
TIR6BD.P1

CZROBDO RKE11 DSKLS CTRL PRT2
~IR6BD P11
14~SEP-81 13:47
7179
7180
7181
7182
7183
7184

043224
043232
043234
063240
043242
043246

032777
001405
105737
001402
013716
000002

001000

7188

043250

112737

000001

7190

043264

;}gg

MA(Y1?! 30(1046)
14-SEP-B81
15:10
LOOP ON INTERNAL ERROR
135706

001103

007110

5% :

.SBTTL

7187

7189

043256

7191
7192
7193
7194

043266
043274
043274
043276

7196
7157
7198
7199

043304
043306
043314
043316

7195

7200
7201

7202
7203
7204
7205
7206
7207
7208

7209

043300

043324
043326

043332
043340
043344
043346
043352
043354
043356

043362

112737

000403

112737

010046
010146
105737
001450
122737
001031
132737
007425
017600
062766
005737
001375
010037
105720

001376

7233
7234

043464
043470
043474
043500
043504
043506

043510

043572

000004

001230

105737

043514

013746

177776

001214

005237
105037
105037
105037
012601
012600

001214
043514
043513
043512

000

A AR AR RN

#1,8FFLG

B8R

SATYC

1$:

0000064

000002

MOVB

3$:

118:
001216
000004

12%:

$MFLG:

PR R

R A

AR AR

$MFLG

AR NN AR ARAR AR

::TO REPORT

2:TO TYPE

FATAL

AN ANARI

AN O TN

ERROR

& MESSAGE

#1,8FFLG

;2T0O ONLY REPORT FATAL

MOV
MOV
TST8
BEQ
CMPB
BNE
BITR
BEQ
MOV
ADD
1ST
BNE
MOV
TSTR

RO,=(SP)
R1,-(SP)
$MFLG
5%
RAPTENV, SENV
3¢
#APTSPOOL ,$ENVM
3$
34 (SP) RO
42,4 (SP)
$MSGTYPE
1%
RO, SMSGAD
(RO) +

:;PUSH RO ON STACK
SSPUSH R1 ON STACK
S SSHOULD TYPE A MESSAGE?
S IF NOT:
BR
:OPERATING UNDER APT?
S:IF NOT:
BR
::SHOULD SPOOL MESSAGES?
S:IF NOT:
BR
*:GET MESSAGE ADDR.
,:BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
SIF NOT:
WAIT
S:PUT ADDR IN MAILBOX
SSFIND END OF MESSAGE

SUB

$MSGAD , RO

::SUB START OF MESSAGE

MOV
MOV
BR
MOV
ADD

RO, SMSGLGT
#4 SMSGTYPE
5
94 (SP) ,4$
#2,4(SP)

S PUT LENGTH IN MAILBOX
SSTELL APT TO TAKE MSG.

JSR
.WORD

PC,$TYPE
0

TSTB

$FFLG

::SHOULD REPORT FATAL ERROR?

TST
BNE
MOV

$MSGTYPE
11¢
84 (SP),$FATAL

SFINISHED LAST MESSATE?
SUIF NOT:
WAIT
::GET ERROR #

BNE

MOV
4%:
5¢:
108 :

SCHECK IF ERROR OCCURRED
*NO, CONTINUE
*LOAD ERROR RETURN
*RETURN

MOVB

ASR

001234

005737
001375
017637

000207

AN AR R

S$ATY4L:
SATY(:

;CHECK IF LOOP ON ERROR
:NO, CONTINUE

APT COMMUNICATIONS ROUTINE

MOVB

SATY3:

SEQ 0134

$ERFLG
5%
$LPERR, (SP)

2%:

0446200

062766

7227
7228
7229
7230
7231
7032

000004
000002
001214

004737
000000

043456

7226

001235

043424
0C0004

001416
205737
001413

063442
043446
043450

00010C

000004
000002

043632
043434
043440

7223
7224
7225

001234

001214

7220
7221
7222

043426

000001

TSTR
BEQ
MOV
RTI

PAGE 135

#SW9,aSWR
5¢

$ATY1:

043512

001232
000004

063420
043424
043426

7219

043514

010037
012737
000413
017637
062766

006200

7216
7217
7218

043416

000007

043517

001230

043364
043370
043376
043400
043406

7215

000001

043514

163700

7210
7211
7212
7213
7214

SCOP1$: BIT
BEQ

E N

BEQ
ST
BEQ

177776,~(SP)

12%
SENV
128

ADD

#2,4(SP)

RTS

INC
CLRB
CLRB
CLRB
MOV
MOV
.BYTE

ERROR

$:GET MESSAGE LNGTH IN WORDS

;;PUT MSG ADDR IN JSR L INKAGE
- -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK
S:CALL

TYPE MACRO

S:IF NOT:
BR
S :RUNNING UNDER APT?
::1F NOT:
BR

- :BUMP RETURN ADDR.

$MSGTYPE
$FFLG
$LFLG
$MFLG
(SP) +,R1
(SP) « RO

;:TELL APT TO TAKE ERROK
S CLEAR FATAL FLAG
::CLEAR LOG FLAG
2:CLEAR MESSAGE FLAG
SIPOF STACK INTO R1
$:P0P STACK INTO RO

soMESSG.

*RETURN

FLAG

CIR6BDO RK611

TIR6BD.P1Y

7235
7236
7237
7238
7239
7240

043513
043514

7241

7242

DSKLS CTRL PRT?
14-SEP=81

13:47

MACY11

000
000

$LFLG:

043516
000200
000001
000100
000040

7275
7276
7277

7278
7279
7280
7281
7282

7283
7284
7285
7286

7287
7288

7289
7290

SEQ G135

::L0G FLAG
FATAL FLAG

S 2222222222033
RRR 2K

:*THIS

;*SAVE

ROUTINE

WILL

THE ERROR

INCREMENT

THE

ITEM NUMBER AND

:«AND GO TO TYPERR ON ERROR

s*THE

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR
;*SW15=1

:*SW13=1
*SU10-1
*SH09=1

7250

7268
7269
7270
7271
7272
7273
7274

.BYTE
EVEN

136

APTSI2E= 200
APTENV=001
APTSPOOL=100
APTCSUP=040
.SBTTL
ERROR HANDLER ROUTINE

7244
7245
7246
7247
7248
7249

7267

0
0

.BYTE

$FFLG:

7243

7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266

F 1
15:10
14=SEP=-81
30(1046)
PAGE
APT COMMUNICATIONS ROUTINE

:'CALL
.®

043516
043516
043520
043524
043526
043534
043542
043544
043550
043554
043560
043566
043574
043602
043604
043610
0463614
043614
043622
043624

043632
043636
043637

043640
043642
043646
043650
043652

043654
043662

043664
043670

043674
043%67¢
043707

104407

105237

001775
013777
032777
001402
104401

005237
011637

162737
117737

032777
001004
004737
104401

122737
001007
113737

004737
J00
000

000777
005777
100002

$ERROR:

001103

7%:

001102
002000

001204
001112
091116
000002
135324
020000

000001

0012%%

001114
043266

043636

135272

032777
001402
013716
005737
007402
013716

ERROR

(KSWR

INCR
BEQ
MOV

001110
001202
001202

;. ERROR EMT AND N=ERROR

$ERFLG

$TSTNM,3DISPLAY

#BIT10,3SWR
1%

INC
MOV
SuUB

#2,8ERRPC

TYPE

LSBELL
$ERTTL
(SP) ,$ERRP(

::TEST

::SET

FOR

THL

ITEM NUMSER

CHANGE

ERROR FLAG

“JFT-SWR

::DON'T LET THE FLAG GO TO ZERO
:;DISPLAY

TEST NUMBER AND ERROR FLAG

;;BELL ON ERROR?
;oNO - SKIP

;sRING BELL
;s COUNT THE NUMBER OF ERRORS
::;GET ADDRESS OF ERROR INSTRUCTION
;:STRIP AND SAVE THE ERROR
;:SKIP TYPEOUT [F SET

JSR

PC,TYPERR

LSCRLF

;:G0

TYPE

HAPTENV, SENV

21%:

(MPB
BNE
MOVB
JSR
.BYTE

2°2%:

20%:

35:
4%:

5%:

COUNT,

ARE:

o$ERRPC,SITEMB
#BIT13,aSWR

2%:

135256

8IT
BEQ

.BYTE

TST

BPL

HALT

001000

ERROR

ERROR C(AL.

MOVB

000000

104407

THIS ROUTINE

THE

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

BIT
BNE

043716
001211

ERROR FLAG AND

THE ADDRESS OF

CKSWR

81.
BEQ

MOV
TST

8EQ

MOV

20%

2%
$ITEMB,21%
SC.SATY4

0
22%
aSwR
3%
#RIT09,aSWR
4%

$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;:SKIP TYPEQUTS

TO USER ERROR

;JRUNNING

ITEM CODE

ROUTINE

IN APT MODE

::;NO,SKIP APT ERKRJR REPORT
J:SET ITEM NUMBER AS ERROR NUMBER
;:REPORT FATAL ERROR TQ APT

;:APT ERROR LOOP

;:HALT ON ERROR
;:SKIP IF CONTINUE

;:HALT ON ERROR.

;sTEST FOR CHANGE [N SOFT-SWR
;:L00P ON ERROR SWIT(CH SET?
;:BR

::FUDGE
csCHECK
::BR IF
;:FUDGE

RETURN FOR LOOPING
FOR AN ESCAPE ADDRESS
NONE
RETURN ADDRESS FOR ESL_APE

7291
7292

7293

7294
7295
7296

043702
043710
043712
043714
043714

002737
00100°
000000

042340

000002

7304

7329
7330
7331
7332
7333

7334
7335
7336
7337
7338
7339
7340
7341
7342
7343
7344
7345
7346

RT!

BRANCH [F NO
YES

RETURN

TYPE

ERROR ROUTINE

THE

''ITEM CONTROL

BYTE'' (SITEMB)

TO DETERMINE

s*ERROR IS TO BE REPORTED. IT THEN USES THE ''ERROR TABLE'' (SERRTB)
s*ENTRY TO -DEFINE WHAT INFORMATION IS TO BE REPORTED (GONCERNING

7305

7327
7328

HALT

ssACT=11 AUTO=ACCEPT?
.0
..

s*THIS ROUTINE USES

7303

7325
7326

;*THE

ERROR.

':tQQQ.Q"tiitlttfi.t*'t'it"Ql'tlQ*t'ttttt.ttQi'fittt'ttttt't'tttt

043716
043720
043724
043730
043732
043734
043736
043740
043744
043750
043752
043756
043760
043762

043766

043770
043774
043776
044000
044002
044004
044006
044010
044012
044016
044020
044022
044024
044026
044030
044032
044034
044036
044040

044062
044046
044050
044054
044056
044060

TYPERR: SAVREG

104413
113700

042700
005300
006300
006300
006300
062700
012037
001404

MOVB

BIC
DEC

001300
043760

104401
104401

00121

012037
001404

043776

000000
104401
104401

000000
012001
001445
005004
012000
012002
104401

112003
105720

104401

$%:

4%:
5¢:

001211

10%:

TYPE
TYPE

001211

.SCRLF

.WORD
MOV
BEQ
CLR
MOV
MOV

0
(RO) +,R1
20%
R4

MOVB
1ST8
TST
BEQ

(RQ)
+ ,R3
(RO)+
R3
148

BNE

128

TYPE
TYPE

TYPE

Mov
TYPOC

050201

RO
RO
RO
#SERRTB
RO
(RO)+,2%
3%

.WORD
MOV
BEQ

TST

104402

000771
104401
005710
001401
005104

2%:

001211

005703
001416
005704
001004
013146
005303
001403

ASL
ASL
ASL
ADD
MOV
BEQ

$ITEMB,I.0

#177400,R0
RO

(RO)+,4%

.SCRLF

(RO)+,RO
(RO)+,R2

.SCRLF

@(R1)+,-(SP)

INDEX

FOR

;TYPE
;TYPE

;STORE NUMBER OF

JTYPE

;BUMP PAST FORMAT WORD

:TEST IF ANY DATA FOR THIS HEADER

;NO - SKIP DATA PRINT

;CHECK FOR INDENT
JYES, GO INDENT
JPUT FIRST DATA WORD ON STA(CK

LSCRLF

JTYPE

(RQ)
14%
R4

DH'S

JGET & STORE NUMBER OF DATA WORDS

SEPARATORS

TST
BEQ
(oM

FEED

;EM POINTER GOES HERE
:GET DH POINTER
;BRANCH IF THERE ISN'T ONE
JTYPE (R-LF
s TYPE DATA HEADER
:DH POINTER GOES HERE
;GET DT POINTER
;BRANCH [F THERE ARE NONE
JRESET INDENT SWITCH
;GET DF POINTER

;TYPE

11$%

TABLE

CARRIAGE RETURN LINE
ERROR MESSAGE (EM)

,SPA(CE?2

ERROR

;FORM ADLRESS OF EPROR ENTRY
;GET EM POINTER
;BRANCH IF THERE ISN'T ONE

R3
13%

TYPE

;FORM

JTYPE

DEC
BEQ

TYPE

;ENTER ERROR NUMBER
sCLEAR UNUSED BITS

:MORE DATA WORDS
;NO~BRANCH

,LOOP
JCHECK

IF NEXT HEADER AVAILIBLE

;NO, DO NOT CHANGE
;s CHANGE [INDENT

INDENT

wHI(H

SEQ (136

7302

7322
7323
7324

#SENDAD ,a#42

137

;*RETURN RTS PC

7301

7321

PAGE

s*ENTRY JSR P(C,TYPERR

7300

7316
7317
731
7319
7320

CMP
BNE

G 11

CEANRNARANA RN AN AN AR AT RN AN AN PR ANRRENAAANRNNIARANANINACON
O RRROERNOERIRS

7299

735

000042

“SBTTL

7298

7314

15:10
14-SEP-81
30(1066)
ERROR HANDLER ROUTINE

6%:

7297

7306
7307
7308
7309
7310
7311
7312
7313

MACY11

CZR6BDO RKE11 DSKLS CTRL PRT?
14-SEP=81 13:47
CZR6BD P11

“IR6BDD RKO1T DSKLS CTRL PRTZ2
“IR68D.P1?
14-SEP-81 13:4”
7347

7348

7349
7350
7351
7352
7353
7354

7355

7356

7357
7358

7359

7360

73617

044062

005302

044066
044072
044074
044076

012037
001751
005704
001402

044064

044700
044104

003414

104401

001211

044114
044116

000740
104414

0441264

032777

(44120
044132

044106

050201

000000

044110

148:

104401
104401

044106

005237

004242

(RO)+,18%
108
Ré
17%

TYPE
TYPE

17%:

18%:

,SPACE?

JYES=-TYPE
;TYPE DH

;GET NEXT DH POINTER
;1IF NO HEADER GO GET DATA
; INDENT?
;NO=-BRAN(CH

BR
RESREG

108

;GO

ERRCNT

:INCREMENT

25%

:NG,

RETURN

:NO,

RETURN

INC

:DH POINTER GOES HERE

LSCRLF

000024

006242

(MR .

#20. ,ERRCNT

104401

050204

TYPE

,ABORT

044150
044154

005737
001407

000042

;gzg

044170

000137

042150

103015

012737
012706

0000017
001100

#SW12,3SWR

BEQ

BHIS

042176

SPA(CES

.WORD

TYPE

20$:

;MORE DH'S?

:NO-BRANCH

022737

001421

0464164

044156
044164

MOV
BEQ
TST
BEQ

SEQ 0137

208

BIT

7364
7365
7366
7367

7368
7369

PAGE 138

135006

044134

044142

DEC

BLE

15%:

15:10

010000

7362

7363

MACY11 30(1046)
14-SEP-81
TYPE ERROR ROUTINE

H 11

25$

TYPE

JCHECK

QUT

DATA

THE ERROR COUNT

SWITCH 12 SET

;CHECK IF ERROR THRESHOLD EXCEEDED

TST
BFQ

42
22%

:TYPE '‘PROGRAM ABORTED BECAUSE ERROR
:
THRESHOLD EXCEEDED'’
;CHECK IF IN (CHAIN MODE
:NO, HALT PROCESSOR

JMP

$EOP

;BRING [N NEXT PROGRAM

MOV
MOV

#1,8EQOPCT
A#STACK,SP

:FOR PASS COUNT FOR ABORT
JINITIALIZE STACK

737¢
7373
7374
7375

044174
044176

000000
(000207

22%:
25%:
.SBTTL

HALT
RTS
PC
TYPE ROUTINE

7376

7377
7378
7379
7380

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE POUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
:*NOTE1:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
:«NOTE2:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

;gg;

J*NOTE3:

7383

:*1)

7387

;ggz

;-OR

7388
7389
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
76401

7602

044200
044204
044206
(044210
044212
044214
044220
044226
044230
044236
064240

044244

105737
100002
000000
000430
010046
017600
122737
001011
132737
001405
010037

004737

001157

000002
000007

.
001234

000100

001235

044250

04325¢

USING A

TYPE

TRAP

A AR

R AR R AN AN RN NI

R AR

AN A

A RN

E RN

INSTRUCTION

,MESADR

:;MESADR

IS FIRST ADDRESS OF

AN ASCIZ STRING

TYPE

i
M

ME SADR

$TYPE:

TSTB
BPL
HALT
BR
MOV

1%:

AR R

SFILLC CONTAINS THE (HARACTER TO FILL AFTER.

;*CALL:

7384

7390

A NN RN AR A R AR R

MOV
CMPB
BNE
BITR
B8EQ
MOV
JSR

$TPFLG
1%

::1S THERE A TERMINAL?
.;BR [F YES
::HALT HERE IF NO TERMINAL
3%
;. LEAVE
RO,=(SP)
::SAVE RO
@2(SP) RO
::GET ADDRESS OF ASCIZ STRING
#APTENV, SENY
:;RUNNING IN APT MODE
62%
;:NO,GO CHECK FOR APT (ONSOLE
#APTSPOOL ,$ENVM ;;SPOOL MESSAGE TO APT
62%
;sNO,GO CHECK FOR CONSOLE
RO,61%
:;SETUP MESSAGE ADDRESS FOR APT

PC,3ATY3

::SPOOL MESSAGE

TO APT

TIR6BDC RK611 DSKLS CTRL PRT2

T1R68D.P1°

14=-SEP=-81

7403
7404
7405

000000

7406
7407

7408
7409
76410
7411
7412

76413
7414

7415
7416
7417
7418
7419
7420
7421
7422
7423
7424
7425
7426
7427
7428
7429
7430
7431
7432

74633

7434
7435

7436
7437

7438
7439

7440
7441
7442
76443
7444
7445
7446
7447

7448

7449

7450
7451
7452
7453
7454
7455
7456

7457

7458

044250
0446252
044260
0446262
044264
044266
044270
044272
044276
044300
044304
044306
044372

044314
044316
044320
064322
044326
044330

044334
044340
044342
044346
044352
044354
044360
0464364

132737

001003

13:47

000us0

MACY1T

30(1046)

001235

61%:
62%:

001005
005726
012600
062716
000002

TYPE ROUTINE

Pi ¥

112046

000002

60%:
3%:

122716

000011

4%:

122716
001006

000260

001430

14-SEP-81

.WORD
BITR

BNE

MOVB
BNE

TST

MOV
ADD

RTI
(MPB

$CRLF

044530

123726

044412
001156

001350
013746
105366

002770
004737
105337
000770

5¢%:

t£$:

001754
7%:

044412
044530

044460
044462
044462
0644464
044464
064470

000040
0446412
000207
000724
105777

13452¢

044530

STYPEC(:

000023
134502

101¢%:

134476

000021

102%:
105777

100375

134460

10%:

J;BR IF IT ISN'T THE TERMINATOR
;31F

TERMINATOR POP ]T OFF

JRESTORE RO
;;ADJUST RETURN P(

:JRETURN

:;BRANCH IF

THE

STA(K

<HT>

<(CR><LF>

EQuUIV

CLRB
BR

$CHARCNT
2$

(MPR

$FILLC,(SP)+
2%
$NULL ,=(SP)

::CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;G0 TYPE THIS CHARACTER
;1S IT TIME FOR FILLER CHARS.?
IF NO GO GET NEXT (HAR.
;o
;.GET # OF FILLER CHARS. NEEDED
;.AND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF QOF STA(Kk
;:G0 TYPE A NULL
;:D0 NOT COUNT AS A (COuNT
.:LOOP

JSR

BNE

DECR

BLT
JSR
DECB

MOVB
JSR

BITR
BNE
TST
BR

TSTB

PC,S$TYPEC

1(SP)

PC,STYPEC

$CHARCNT
3

TAB PROCESSOR
#' ,(SP)
PC,STYPEC
#7,$CHARCNT

;:TYPE

;;GET NEXT CHARACTER

9%
(SP)
+

a$7kKS
10%
a%$7KB,~(SP)

BIC
(MPB
BNE

#177600, (SP)
#S$XOFF ,(SP)
102%

TSTB

as$TKS
101$
a$TKB,

BPL
MOVB

177600

OuT

;+PUSH CHARACTER TO BE TYPED CONTO STA(K

A CR AND

MOV

177600

SUPPRESSED

TYPE

;:TYPE

BPL

134522

CONSOLE

::POP

8%:
69%:

;;APT

(SP)+

JHORIZONTAL

044366
044372
044376
044404
044406
044410
044412
044412
044416
044420
044424
064430
044434
044436
044436
0464442
044444
044450
044454

;:YES,SKIP

;:BRANCH [F NOT <(CRLF>

MOV

0000C1

6 0%

ACRLF, (SP)

TYPE

105037

Seaq C138

s sMESSAGE ADDRESS

001211

139

#APT(SUP, SENVM

AHT, (SP)

005726

000755
004737

I N

PAGE

(RO)+,=(SP)
4%
(SP)+
(SP)+ R0
n2,(SP)

BEQ
(MPR
BNE
TST

104401

15:10

. sREPLACE

;:BRANCH IF NOT AT
;. TAB STOP
;.POP SPACE

OFF

STAC(CK

2 sCHAR IN KYBD BUFFER?
:;BR _IF NOT
;:GET CHAR

::STRIP EXTRANEOUS BITS
;sWAS

CHAR XOFF

;:BR IF NOT
;;WAIT

(SP)

TAB WITH SPACE

A SPACE

FOR

CHAR

::GET (HAR

BIC
(MPB
BNE

#177600, (SP)

#$XON, (SP)
101$

J:STRIP IT

TST

(SP)+

J:FIX STACK

TSTR

d$TFS
10%

soWAIT UNTIL PRINTER IS READY

8PL

;sWAS IT XON?
;:BR IF NOT

;MJDOO1
:MJDOO1
JMJDO0T
;MJuDOO1
:MJDQO1
;MJD00I
;MJDOON
;MJD0O01
sMJDOON
;MIDOON
;MJDOOY
:MJDOC
;MJDO0
:MJD00?
;MJDO01
;MJDO01

MIDEN

(ZR6BDO RK611

TIR6BD.P1T
7459
7460
7461
7462
7463
7464

7465
7466
76467
7468

7469

044472
044500
044506
044510
044514
044516
044524
044526
044530
044532

DSKLS CTRL PRT?
14-SEP=-81

13:47

000002
00C015

MACY11
1346452

044530
000012

000002

000207

1%:

(MPB
BNE
CLRB
BR

(MPR

BES
INCB
$CHARCNT
: ,WORD
$TYPEX: RIS
.SBTTL

PAGE

140

SEQ (139

;.LOAD CHAR TO BE TYPED iNTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
2sBRANCH IF NO
::VES;°CLEAR CHARACTER COUNT

$CHARCNT
$TYPEX

s EXI

STYPEX

2:1S CHARACTER A LINE FEED?
;sBRANCH IF YES

;s CHARACTER COUNT STORAGE

KLF ,2(SP)

;s COUNT THE CHARACTER

(PC)+

BINARY TO OCTAL

(ASCIID)

AND

TYPE

".'tt'tfittttttiltittt""'t"ttttttttttt'*tt*ttttttttttttitt'tt"t

s*THIS ROUTINE

IS USED

TO CHANGE

16-BIT BINARY NUMBER

TO A 6-DIGIT

s*OrFTAL (ASCII) NUMBER AND TYPE IT.
;*$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS ANC NUMBER OF

s«(CALL:
o
o

MOV
TYPOS

.BYTE

= (SP)
NUM,
N
M

DIGITS

10 TYPE

;JNUMBER TO BE TYPED

:;CALL FOR TYPEOUT
JoN=1 TO 6 FOR NUMBER OF DIGITS
:;M=1 0R 0
;:1=TYPE LEADING ZEROS

T0O

~YPE

. ;0=SUPPRESS LEADING ZEROS

,Q
't

;*STYPON--=-<~ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS
;*$TYPOS OR $TYPOC
;«CALL:
,
- (SP)
NUM
MOV
.
;sNUMBER TO BE TYPED

7488

7489

THE

;. CALL FGR TYPEQUT

TYPON

* &

S*$TYPOC-=-~ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

s«CALL:

MOV

- (SP)
NUM,

:;NUMBER TO BE TYPED
;. CALL FOR TYPEOUT

$TYPOS:

MOV
MOVB
MOvVB
ADD
BR

a(SP) ,-(SP)
1(SP) ,$0FILL
(SP)+,$OMODE
+1
#2,(SP)
$TYPON
#1,80F1ILL

;.PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
:-NUMBER OF DIGITS TO TrPE
;:ADJUST RETURN ADDRESS

044534
044540
044546
044552
044556
044560
044566
044574
0446072
044604
044606
044610
044614
044616

044622
044626
044632
044636
044640
044642

017646
116637
112637

062716

000406
112737

et
i elelJelele
B
B
T Yo Yo T R
O
e
WOMNIWNWOOON n
SNNSNN ~
QOIS
W (V]
EaR X e Yo Yo BN ~

7503
7504
7505
7506
7507
7508
7509
7510
7511
7512
7513
7514

15:10

MOVB

000002

7470
747
7472
7473
7674
7475
7476
4677
7478
7679
7480
7481
7482
7433
7484
7485
7486
76487

7490
7491
7492
7493
7494
74695
7496
74G7
7498
7499
7500
7501
7502

14-SEP-81
TYPE ROUTINE

30(1046)

437

000000
000001
044761
000002

000001
000006
000005

044757

044757
044761
044756

$TYPGL:
$TYPON:

044761
000006
044760
044757
000012
1%:

TYPOC

MOVR

MOVB

MOVR

MOV
MOV
MOV
MOvB
NEG
ADD
MOVB
MOVB
MOV

#6,30MODE
+1

#5,80CNT
R3,-(SP)
R4 ,-(SP)
R5,-(SP)
$OMODE +1,R4

R4
#6,R4
R4 ,$0MODE

;:;SET THE ZERO FILL SWIICH
2:SET FOR SIX(6) DIGITS
:2SET THE ITERATION COUNT
::SAVE R3

;. SAVE R4
;:SAVE RS
:;GET THE NUMBER OF

DIGITS TO "YPE

(LR

;sSUBTRACT IT FOR MAX. ALLOWED
;:SAVE IT FOR USE
;sGET THE ZERO FILL SWITCH
JsPICKUP THE INPUT NUMBER
;;CLEAR THE OUTPUT WORD

;.60 DO MSB

ROL

$OFILL,RG
12(SP) RS

:;ROTATE MSB INTO ''C*'

LAST

BDO RKE11

680 .F1"

DSKLS CTRL PRT2

16~SEP=81

7515
7516
7517
7518
7519
7520
7521
7522

064644
044646
044650
044652
064656
044656
044662
044664

006105
006105
006105
010503
006103
105337
100016
042703

7524
7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
75643
7544
7545
7546

0644672
044674
044676
044700
044704
044710
044714
044720
044724
044726
044730
044732
064734
044736
044740
044742
044750
044752
044754
044755
044756
044757
044760

005704
001403
005204
052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
Co0
000
000
000
000000

7523

;22;

044670

001002

13:47

WMALY1T

30(1046)

BINARY TO OCTAL
28:

3$:

044760
177770

(%:
5%:

7% :

6$:

000002

000004
8%:
$SOCNT:
$OFILL:
$SOMODE:

.SBTTL

75‘09
7550
7551

15:10

ROL
ROL
ROL
MOV
ROL
DECR
8PL
BIC

RS
RS
R5
R5,R3
R3
$OMODE
7$
#177770.R3

3
BEQ
INC
BIS
BIS
MOVB
TYPE
DECB
8GT
BLT
INC
BR
MOV
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BYTE
.BYTE
.WORD

R4
5¢
R4
#'0,R3
#' ,R3
R3,8%
.
,8%
$OCNT
2%
6$
R4
2
(SP)+,RS
(SP) + R4
(SP)+,R3
2(SP) ,4(SP)
(SP)+. (SP)

BNE

000060
000040
044754
044754
044756

K 11
PAGE 161
(ASCII) AND TYPE

14=SEP=-81

SEQ 0140

::FORM THIS DIGIT

;:GET LSB OF THIS DIGIT
SSTYPE THIS DIGIT?
Z:BR IF NO
S:GET RID OF JUNK

STEST

FOR 0

0
0
0
0
0

; ;RETURN
;;STORAGE FOR ASCII DiGlT
;:TERMINATOR FOR TYPE ROUTINE
::0CTAL DIGIT COUNTER
*:7ERO FILL SWITCH
*NUMBER OF DIGITS TO TYPE

2 :SUPPRESS THIS 0?
$:BR IF YES
J:DON'T SUPPRESS ANYMORE Q'S
T:MAKE THIS DIGIT ASCII
;sMAKE ASCII IF NOT ALREADY
:2SAVE FOR TYPING
$:G0 TYPE THIS DIGIT
:COUNT BY 1
;;BR IF MORE 10 DO
*:BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
::60 DO THE LAST DIGIT
S RESTORE RS
;JRESTORE R4
;;RESTORL R3
J3SET THE STACK FOR RETURNING

CONVERT BINARY T0O DECIMAL AND TYPE ROUTINE

7552
7553

e
2322282222222 232322232222222222222
223 X R R R R R R RS XSS RS RELR B 4
tTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. CEPENDING ON WHETHER THE
:'NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
J«BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

7555
7556
;ggg

“wCALL:
o
MOV
o
TYPDS

7554,

7559
7560
7561
7562

**REPLACED WITH SPACES.

7563
7564

044762
044762
0447646
044766
044770
044772

7566
7567
7568
7569
7570

045000
045006
045006
045010
045076

7565

064774

$TYPDS:

010046
010146
010246

010346
010546

012746
016605
100004
005405
112766
005000

e. MOV
=" MOV

020200

MOV

000020
000055

MOV
MOV
MOV

000001

1$:

MOV
8FL
NEG
MOVB
CLR

NUM, - (SP)

;:PUT THE BINARY NUMBER ON THE
;60 TC THE ROUTINE

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

;:PUSH RO ON STA(CK
::PUSH R1 ON STACK
2:PUSH R2 ON STA(K

#20200,-(SP)

$:SET BLANK SWITCH AMD SIGN

R3.-(SP)
RS,=-(SP)

20(SP) ‘RS
1$
RS
#'-,1(SP)
RO

1:PUSH R3 ON STACK
::PUSH RS ON STACK

S:GET TRE IMPUT NUMBER
“:BR IF INPUT IS POS.
*MAKE THE BINARY NUMBER POS.
T:MAKE THE ASCII NUMBER NEG.
1:JERO THE CONSTANTS INDEX

STACK

(ZR6BDO RK611
(ZR6BD.P1
7571
7572

7573
7574
7575

7576
7577
7578

7579

7580
7581
7582
7583
7584
7585
7586
7587
7588
7589
7590
7591

L PRT?

13:4"

MACY1T

045166

3%:

045042
045044
045046

4%:

045050
045052
045054
045056
045060
045062
045064

5%:

0450/
¢

177777

7594
7595
7596
7597
7598

8%:
177777

7599
7600

177776

9%:

7601

7602

7603
7604
7605
7606
7607
7608
7609
7610
7611
7612
7613
7614

045176
000002

045174
045176

&' ,(R3)+
R2

(LR

MOV
SUB
BLT
INC

$DTRL (K0) ,R1
R1,RS
4%
R2

ADD
TST

R1,RS
R2

1STR

(SP

BIS
BIS
MOVB

TST
CMP
BLT
BGT
MoV

#'0,RC
#' ,R?
R2.(R3)+
(RO)
+
RO.#10
2%
8%
RS,R2

TSTR

(SP)
+

(SP)

9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+,R?
(SP)+,R1
(SP)+,RO

,$DBLK

MOV

$DTRL:

MOV
RT]
10000.

$DBLK:
SBTTL

TTY

2(SP) ,4(SP)
(SP)+,(SP)

1000.
100.
10.
BLKW

;:BR IF NO
JJYES-=SET THE SIGN
;:MAKE

THE

. sPUT

THIS

J:BR

IF NO

;:SET

THE

BCD

DIGIT ASCII

JsMAKE IT A SPACE IF NOT ALREADY A DIGIT

TYPE

000004

THROUGH

;;MSD?

1(SP) ,=1(R3)

BPL
MOVB
CLRB
MOV
MOV

;:BR IF DONE
;;INCREASE THE BCD DIGIT BY 1

2,STILL DOING LEADING 0°'S?
;s.:BR IF YES

BL(C

B8R

;2FORM THIS B8CD DIGIT

;eCHECK IF BCD DIGIT=0

ASLB

SEQ 0141

;;SETUP THE QUTPUT POINTER
;2SET THE FIRST (CHARACTER TO A BLANK
;:CLEAR THE BCD NUMBER
J:GET THE CONSTANT

;oFALL

8M]

MOV
MoV
MOV

023420
001750
000144
000012
000004

142

::ADD BACK THE CONSTAN?

MOVB

000010

7592
7593

PAGE

#$DBLK ,R3

MOVB

BNE

000001
000060
000040

L 11

15:10

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE
MOV

045176
000040

045020
045024
045030
04503?
045036
045040

14-SEP-81

30(1046)

CHARACTER

THE

OQUTPUT BUFFER

::JUST INCREMENTING
J:CHECK THE TABLE INDEX
;:6G0 DO THE NEXT DIGIT
::6G0 TO EXIT
J;GET THL LSD
2 .G0 CHANGE TO ASCI!I
;;WAS THE LSD THE FIRST NON-ZERO?

JsYES=~SET THE SIGN FOR TYPING
TERMINATOR

;<sPOP STACK INTO RS
;;POP STACK

INTO R3

;sPOP

INTO R1

;:POP STACK INTO R2
STACK

-;:POP STACK INTO RO
;sNOW TYPE THE NUMBER
::ADJUST THE STACK
JJRETURN

TO USER

INPUT ROUTINE

':i*ttt.*ttttttlt*ttt.t'ttittQtttfittti'ltt'it"tttt'tt'tttttttitt

.ENABL

LSB

*SOFTUARE
J*ROUTINE

:*SERVICE

045206
045214
045216

022737
001074
105777

000176
133722

001140

IS ENTERED

THE

C(MP

BNE
TSTB

FROM

THE

TEST FOR CHANGE

; *WHEN OPERATING

$CKSWR:

2880028220222

R0RRRRRRRRRRRRRRRARRRRRRE]

SWITCH REGISTER CHANGE ROUTINE.

TRAP HANDLER,

IN SOF TWARE

IN TTY FLAG MODE.
#SWREG, SWR
;1S

15%
9$TKS

AND WILL

SWITCH REGISTEK

TRAP CALL

THE SOFT=-SWR SELECTED?
;;BRANCH IF NO
::;CHAR

THERE?

7639
7640
7641
76462
7643
7644

7645

7646
7647
7648
7649
7650
7651
7652
7653
7654
7655
7656
7657
7658
7659
7660
7661
7662
7663
7664
7665
7666
7667
7668
7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682

1046401
104401

046071
046076
000176

104402
104401

005046
005046

105777
100375

117746
042716

045316
045322
045324
045330
045334

021627
001005

045336
045342
045344
045350
045352
045360
045364
045370

021627
001022
005766
001403
016677
062706

045376
045400
045406
045410
045414
045420
045422
045426

045430
045434
045440
065442
045444
045446
045450
065454
045460
045462

000007
001134

013746

104401

062706
000757

104401
123727

001003
012777
00002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000707
104401

BIC

177600

123727
0014456

045306
045312

133716
000001

$GTSWR:

046107

19%:

133640

r$:

15:10

MmN

PAGE

143

SEQ 0142

15%

;:]F NO, DON'T WAIT AROUND

#AC177,(SP)

;;STRIP=-0FF THE ASCII
;18 IT A CONTROL G?
;:NO, RETURN T0O USER
;;ARE WE RUNNING IN AUTO~-MODE:

a$TKB,-(SP)

;s SAVE

THE

(HAR

CMF
BNE
CMPB
BEQ

#7,(SP)+
15$
SAUTOB,#1
15$

TYPE
TYPE
MOV
TYPOC

L$CNTLG
$MSWR
SWREG,
= (SP)

;;ECHO THE CONTROL-G (*G)

TYPE
CLR
CLR
TSTB
BPL

SMNEW
Z(sP)
-(SP)
as$TksS
7%

;;PROMPT

MOVB

a$TKB,-(SP)

;.PICK UP CHAR

BIC

#AC177,(SP)

;;BRANCH [F
;. TYPE

YES

CURRENT

CONTENTS

;"SAVE SWREG FOR TYPEOUT
;.60 TYPE--OCTAL ASCII(ALL DIGITS)
FOR NEW SWR

;. CLEAR COUNTER
;. THE NEW SWR

;s CHAR THERE?
;s
1F NOT TRY AGAIN

;MAKE IT 7-BIT ASCII

000025

9%:

046064
000006

CMP
BNE

(SP)
, #25
108

;.18 IT A CONTROL-U?
;sBRANCH [F NOT

20%:

ADD

#6,SP

;. IGNORE PREVIOUS INPUT

010015

10%:

CMP
BNE

(SP) 415
16$

;0IS IT A <CR>?

11$
2(SP) ,dSWk

::BRANCH IF YES
;. SAVE NEW SWR
;o CLEAR UP STACK
;sECHO <CR> AND <LF>
::RE-ENABLE TTY KBD INTERRUPTS?
;;BRANCH IF NOT
::RE-ENABLE TTY KBD INTERRUPTS

000004
133560

000002
000006
001211
001135

000001

000100

133536

0644412
000060

7638

045252
045256
045262
045266
045270
045274
045276
045300
045304

042716
022726
001062

BPL

MOVB

—

7636
7637

100077
117746

—

7635

045222
045224
045230
045234
045240
045242
045250

14~SEP-81
30(1046)
TTY INPUT ROUTINE

£ —a

7627
7628
7629
7630
7631
7632
7633
7634

MACY11

16$:

000067

000060
000002

TYPE

4(SP)

ADD

#6,SP

(MPB
BNE
MOV

$INTAG.#°
15%¢
#100,38$7KS

JSR
CMP
BLT
CMP
BGT

PC.S$TYPEC
(SP) ,#60
18%
. #67
(SP)
18%

BEQ
MOV
TYPE

RT]

001210

18%:

L$CRLF

BIC

#60,(SP)+

BEQ

17%

ASL
ASL

1/$%:

19%

000002
177776

JSONTLU

ASL

2(SP)
(SP)
(SP)

(SP)

INC
8IS

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

TYPE

,$QUES

B8R

;. YES,

ECHO CONTROL-U

(*U)

;;LET'S TRY IT AGAIN

:;:BRANCH IF NO
J;YES,

THE

FIRST

(HAR?

; :RETURN

;.ECHO CHAR
::CHAR < 0?

; ;BRANCH

;:(4AR > 7?

YES

;sBRANCH IF YES
;:STRIP~OFF ASCII

;:1S THIS THE FIRST (HAR

;;BRANCH IF YES
JoNO, SHIFT PRESENT
N
CHAR OVER TO MAKE

ROOM FOR NEW ONE.

;oKEEP COUNT OF (HAR
;:SET IN NEW CHAR
GET

TYPE

THE NEXT ONE
?2<CR><LF>

£~

CZR6BDO Rk611 DSKLS CTRL PRT?
14-SEP=-81 13:47
CZR6BD.P11

7683
7684
7685
7686

0465466

MACY1T

000720

;ggg

J*
;
it
:

045470
065472

011646
016666

7702
7703

045530
045532

001013
105777

7705

045540

117746

045514
045522

045536

105777
100375
117766

042766
026627
100375

7706

045544

042716

7708
7709
7710
7711

045554
045556
045560
045566

001366
000750
026627
001744

7707

7712

7713
7714
7.15
7716
7717
7718

045550

045570

045576
065600
045606
045610
045616

022627

026627

002407
026627
003003
042766
000002

000004
133440

000002

133434

000004

177600
000004

'$:

SEQ 0143

AR AN NN RN N

(ONTROL=-U

A RN

RO RN

RO N R OR S

133406
133402

177600

000021

000004

100140

000004

000175

000040

000004

3s:

BPL

;;LOOP UNTIL

81C

#~C177,(SP)

JoMAKE 17 7-BIT ASCII

BNE
BR
CMP
BEQ

2%
18
4(SP) ,#$XON
s

;o
1F NOT DISCARD IT
;s YES, RESUME
;. 1S IT A RANDOM XON?
s .BRANCH IF YES

4«(SP),#140

2:1S

BLT
cMp
8GT
BiC
RTI

R AR

045620
045622

045626

010346

005046

012703

7730
7731
7732
7733
7734
7735

045630
045634
045636
045640
045642
065646
045650
045652

104410
112613
122713
001022
005716
001007

7737
7738

06566c
(45666

1064401
012716

045654

022703
101456

112737

046054

046064

000134

WILL

R AN

;RANOO1
:RANOO1

IT UPPER CASE?

s :BRANCH IF YES
;.18 IT A SPECIAL (HAR?
: sBRANCH IF YES
;;MAKE IT UPPER CASE
;.60 BACK TO USER

INPUT

THERE

;.15 IT A CONTROL-Q?

3
4(SP) #1175
4
#40,4(SP)
R A A

ITS

CHARA(CTER

R R AN R R RN N NN R

R R A AR AN R R R

STRING FROM THE

AN AN SRR RN

TTY

;. INPUT A STRING FROM THE

RETURN HERE

; ;ADDRESS OF

TTY

FIRST CHARACTER WILL BE ON THE STACK

;cTERMINATOR WILL BE A BYTE OF
MOV

R3,-(SP)

;:SAVE R3

MOV

#$TTYIN,R3

;.GET ADDRESS

S ¥

046050

;.GETM

(SP)+, 421

AN RN A

:1GET RID OF JUNK IF ANY
;s1S 1T A CONTROL-S?

$RDLIN:
2$:

000177

046052
177777

2$7KB,-(SP)

(MP

JoWAIT FOR
;cA CHARA(CTER
ssREAD THE TTY

s :BRANCH iF NO
soWAIT FOR A (CHARA(TER

(MP

0000064

1$
@$TKkB,4(SP)

33
a$TKS

MOv8

(LR

(MP
BLOS
RDCHR
MOv8
(MPB
BNE
TST
BNE

=(SP)

#$TTYIN+B
3

TTY

¢ sPUSH DOWN THE PC
;. SAVE THE PS

#2C<177>,4(SP)
4(SP),#2%

BNE
TST8

2%:

s INPUT A SINGLE CHARACTER FROM THE
s CHARACTER IS ON THE STA(K
;cWITH PARITY BIT STRIPPED OFF

BI(
(MP

7736

PP R P

(SP) ,=(SP)
4(SP),2(SP)
a$TKS

TSTB
BPL
MOVB

;;Sz

7728
7729

NN RO N R

$RD"HR: MOV
MoV

000004
000023

7722

7727

144

;¢ SIMULATE

RDCHR
RETURN HERE

;*THIS ROUTINE
J*(ALL:
A
DL IN

7726

PAGE

20%

N R R AN

7719
7720
7721

7725

15:10

:-g:xs ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

045560
045504
045506

7704

R R

.+(ALL:

7698
7699

7700
7701

BR
LSB

.DSABL

7687

7690
7691
7692
7693
7694
7695
7696
7697

14-SEP-81
30(1046)
TTY INPUT ROUTINE

;s CLEAR

,R3

THE

ALL 0°'S

RUBOUT KEY

MOvB

(SP)+,(R3)
£177,(R3)
5%
(SP)
63

'\, 98

;. BUFFER FULL?
;:BR IF YES
;.60 READ ONE CHARA(CTER FROM THE
s.GET CHARA(CTER
;o 1S 1T A RUBOUT
;:BR IF NO
s.1S THIS THE FIRST RUBQUT?
:;BR _IF NO

TYPE
MOV

.
£-7,(5P)

ssSET

;:TYPE A BACK SLASH

THE RUBOUT KEV

TTy

Yoy

DSKLS CTRL PRT?
14-SEP-81 13:47

‘

CIR6BDD RK611
(ZR6BD.P11

CZR6BDO RK611
(ZR6BD.P11T
7739
7740
7741
7762
7743
7744

7745

7746

7747

7748

7749

7750
7751
7752
7753
7754
7755

7756
7757
7758
7759
7760
7761
7762
7763

7764
7765
7766
7767
7768
7769

7770
7771
7772
7773
7774
7775
7776

777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
7790
7791
7792
7793
7794

045672
045674
045700
045702
045706
045712
045714
045716
045720
045726
045732
045734
045740
045742
045746
045750
045754
045756

DSKLS CTRL PRT?
14-SEP=-B81

05303
20327
03434

11337
04401
00746
05716
0
1

0
0
2

13:47

30(1046)
TTY

5%:

046034
046042
046050
046052
046053
046054
046064
046071
046076
046104
046107
046114

.99

2:G0 TYPE

(SP)

;:RUBOUT KEY SET?

(R3),9%

BEQ

7%
#'\,9%

THE DELETED CHAR.

;:BR IF NO

;sTYPE A BACK SLASH

;. CLEAR THE RUBOUT KEY
;s 1S CHARACTER A CTRL U?
J:BR IF NO

BR
(MPR
BNE
CLRB

1%
#22,(R3)
3%
(R3)

;G0 START OVER
;. 1S CHARACTER A '"R'%
;;BRANCH IF NO
;s CLEAR THE CHARA(TER

TYPE

LSTTYIN

;. TYPE

BNE

8%:

;;SETUP TO TYPEOULT

;:G0 READ ANOTHER (HAR.

.98
(SP)
#25,(R3)

TYPE

000022

001211
046054

TYPE

TYPE
(LR
(MPB

046064

SEQ 0144

;sBACKUP BY ONE
;sSTACK EMPTY?
;<BR IF YES

MOovB
7%:

B 12
PAGE 145

R3
R3,#87 YIN
4

TST

046052

000025

15:10

DEC
CMP
BLO

MOVB

046052
046052

000134
046052

14-SEP-81

INPUT ROUTINE

6%:

046054

045760
045764
045770
045772
045776
046000
046004
046010
046014
046016
0406022
046026
046030

046032

MACY11

JSCNTLU

TYPE

LSCRLF

;. TYPE

A CONTROL

::TYPE A "'CR'' & "'LF"
THE

INPUT

STRING

BR
MOVB

1%
(R3),9%

177777

(MPR
BNE
CLRB

#15,(R3)~
2%
~1(R3)

::CHECK FOR RETURN
;;LO0OP IF NOT RETURN
;s CLEAR RETURN (THE 15)

000004
046054

MOV
MOV
MOov
MOV

(SP)+,R3
(SP) ,-(SP)
4(SP) ,2(SP)
#STTYIN,L(SP)

J;RESTORE R3
..ADJUST THE STACK AND PUT ADDRESS OF
332
FIRST ASCI! CHARACTER ON IT

.BYTE

001210

4%:

046052
046052
000015

TYPE
TYPE

001212

.98

TYPE
TST

000002
000004

000
000012
020122

053505

LSLF
(SP)+

RTI]

0% :

005015
006507
053523
000
047040
000040

,SQUES

$TTYIN:

BYTF

;sCLEAR THE BUFFER AND LOOP
s sECHO ThE CHARACTER

;oTYPE A LINE FEED
;s CLEAN RUBQUT KEY FROM THE

;JRETURN

::TERMINATOR

SCNTLU: .ASCIZ

::TYPE A

;sSTORAGE FOR ASCI]

.BLKRB

;260 PICKUP ANOTHER CHA(TER

74U/<15><12>

;;RESERVE

8 BYTES FOR

S CONTROL ‘U

$CNTLG:
$MSWR:

.ASCIZ
.ASCIZ

/74G/<15><12>
::CONTROL ''G"’
<15><12>/SWR = /

SMNEW:

.ASCIZ

.SBTTL

READ AN OCTAL NUMBER FROM THE

AN AR

AN A A AR

tTHIS ROUTINE

:*CHANGE
:*THE

INPUT

CHAR.
TTY

STAC(CK

THE

TO TYPF
[NPUT

NEW =

RN AR AN AR AR AN

WILL

A AN AN AR AN AR

READ AN OCTAL

TO BINARY.

CHARACTERS WILL BE

TTY

(ASCII)

CHECKED

AR R AAN RN AN

RRA

NUMBER FROM

THE

INSURED

ARE

THEY

TTY AND
LEGAL

;*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ''?'" UILL BE TYPED
;*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
;*THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
;+CALL:
o*
RDOCT
2 JREAD AN OCTAL NUMBER
M
RETURN HERE
;.LOW ORDER BITS ARE ON TOP OF THE STArK

(ZR6BDO RK611

(ZR68D.P11
7795
7796
7797
7798
7799
7800
7801
7802

7803
7804
7805
7806
7807
7808
7809
7810
7811

7812

7813

7814
7815
7816
7817
7818
7819
7820
7821
7822
7823

7824
7825
7826
7827
7828
7829
7830
7831
7832
7833

7834
7835
7836
7837
7838
7839
7840
7841
7842

7843

7844
7845
7846
7847
7848
7849
7850

DSKLS CTRL PRT?
164-SEP-81

13:47

MACY11

30(1046)

14-SEP-81

READ AN OCTAL

15:10

000004

000002

$RDOCT:

046246

(SP) ,=-(SP)
&'SP) ,¢(SF)
RO,=(SP)
R1,=-(SP)
RZ.-(SP)

[0}

(SP)+,RO
ROass
R1
R2
(gO)*,-(SP)
3

MOV
MoV
Mov
MOV
RDLIN

(LR
(LR
MOVB
BEQ
(MPB
BGT
CMPB
BLT

000060

000067

ASL
ROL
ASL
ROL
ASL
ROI

177770

BIC

ADD

TST

3%:

Mov
MOV

MOV

MOV
MOV
RTI

000000

MOV

2%:

001210

146

SEQ 0145

TTY

;sHIGH ORDER BITS ARE IN S$HIOCT

1%:

000012
046256

PAGE

NUMBER FROM THE

* %

046120
046122
046130
046132
046134
04€136
046140
046142
046146
046150
046152
046154
046156
046162
046164
046170
046172
046174
046176
046200
046202
046204
046206
046212
046214
046216
046220
046224
046230
046232
046234
046236
046240
046242
046244
046246
046250
046254
046256

¢ 12

.SBTTL

(SP)+
R1,12(SP)
R2.$HIOCT
(SP)+ R2
(SP)+ ,R1
(SP)+ ,C

+
(SP)
(RO)

.WORD

0
. $QUES

TYPE

$HIOCT:

TST
CLRB
TYPE

5%:

#'0,(SP)
4%
#'7,(SP)
3]
R1
R2
R1
R2
R1
R2
#AC7,(SP)
(SP)+ ,R1

BR
.WORD

;;PRCVIDE

SPACE

FOR

THE

;s INPUT NUMBER
::PUSH RO ON STACK
::PUSH R1 ON STACK
;;PUSH R2 ON STACK
;.READ AN ASCI7 LINE
;.GET ADDRESS OF 1ST (HARACTER
;AND SAVE IT
;s CLEAR DATA WORD
J:PICKUP

THIS

CHARACTER

1F ZERO GET OuT
;.
:sMAKE

SURE

THIS

CHARAC(TER

::1S AN OCTAL DIGIT

J.%2
L

;.8
;oSTRIP THE ASCII JUNK
::;ADD IN THIS DICIT
;. LO00P
;;CLEAN TERMINATOR FROM STA(CK
::SAVE THE RESULT

;sPOP STACK INTO R?2
;;POP STACK INTO R1

;;POP STACK

INTO RO

;JRETURN
. sCLEAN PARTIAL FROM STA(CK

JsSET A TERMINATOR

;2 TYPE
:;..?.l

THRU

Ilchl

THE BAD

(HAR,

"LF'.

::TRY AGAIN

:;HIGH ORDER BITS GO HERE
SAVE AND RESTORE RO-R5 ROUTINES
0

':*tfit'tttttttttttttttt'ttittfitttttitti.tttfil't"t."tttt"ttt'lt

; *SAVE RO=-RS
JeCALL:

SAVREG
it
;*UPON RETURN FROM $SAVREG THE STA(CK WILL LOOK LIKE:
R

PeTOP===(+16)
;* #2---(418)

+4=---RS

;* +6=--R4

;* +8---R3

J*+10---R2
Jve12--=R1

CZR6BDO RK611

CZR6BD.P11
7851
7852
7853
7854

7855
7856
7857
7858

7859

7860
7861

7862
7863
7864

7865

7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879

7880

7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892

7893
7894
7895

7896
7897
7898
7899
7900
7901
7902

7903
7904
7905

7906

DSKLS CTRL PRT2
14-SEP-81

13:47

MACY11

30(1046)
SAVE

14=-SEP-81

15:10

D 12

PA GE 147

AND RESTORE RO=-RS5 ROUTIN ES

SEQ 0146

;e+14=-=-<R0

$SAVREG:

046260
046260
046262
046264
046266
046270
046272
046274
046300
046304
046310
046314

046316
046316
046322
046326
046332
046336
046340
046342
046344
046346
046350
046352

MOV
MOV
Mov
MOV

RO,=(SF)
R1,-(SP)
RZ,=(SP)
R3,-(SP)

;;PUSH RO
:sPUSH R1

MoV
MoV
MOV
Mov
MoV

R5,=(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,-(SP)

;PUSH RS

R&4,~(SP)

MOV

000022
000022
0000¢2
000022

RTI

;*RESTORE RO-R5
'CALL
RESREG
$RESREG

000022
000022
000022
000022

;:PUSH R4
;s SAVE PS
:;SAVE PC
2 :SAVE PS

MAIN FLOW
MAIN FLOW
CALL
CALL

;s SAVE PC

(SP)+,22(SP)
(SP)+.22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS

;sRESTORE

MOV
MOv

(SP)+,R3
(SP)
+ ,R?

;;POP STACK INTO R3

MOV
MoV
RTI

.SBTTL

;sPUSH R?2

;:PUSH R3

MOV
MOV
MOV
MoV
MoV
MOV

000002

STACK
STACK
STA(CK
STACK
STA(CK
STACK

CALL

;sRESTORE PC
. sRESTORE PS

OF
OF

MAIN FLOW
MAIN FLOW

(SP)+ ,R4

;sPOP STA(K

INTO R4

(SP)+ ,R1
(SP)+,R0

s :POP STA(K INTO R
s sPOP STACK INTO RO

;;POP STACK

INTO R2

;sRESTORE PS OF CALL

::POP STACK INTO RS

POWER DOWN AND UP ROUTINES

AL RRRRERRRRRRRRRRRRRRRRRRRRRRRRRE
2]

046354
046362
046370
046376
046400

017737

132560
046402

000340

004274
000024
000026

POUER

$PWRDN:

046472
000744
046472

132414

#SPWR
, PWRVE
UP C
#PR7 ,PWRVE(+?

aSWR, SAVSWR

s SAVE SWITCH REG
JSET UP VECTOR

;HANG UP

ARS

SRR RARARRRRRRARRRRRRRRRRRRRRRARRRRRRRRRRR
SRR

*POWER UP ROUTINE

046474

046474
046354
000340
001100
046476
042360
004274

MOV
MOV
MoV

HALT

046402
046406
046414
046420
046422
046426
046430
046436
046444
046450
046454
046460
046466

DOWN ROUTINE

000024
000026

132452

$PWRUP:
1%:

(LR

MOV

INC
BNE
DEC(
BNE

MOV
MOV

MOV
TYPE

JSR
MOV
JMP

SPWRCT
#100. ,8PWRCT+?
SPWR(T
1%

;LOOP LOOP TIMER

JWAIT FOR TELETYPE

$PWR(T+2
1%

#$PWRDN, PWRVEC

;SET UP THE POWER DOWN VECTOR

#STACK,SP

sFORCE STACK POINTER

PC, CHKPAR

sCHECK FOR MEMORY CHECK ENABLE OPTION
JRESTORE SWITCH REG

#PR7 ,PWRVE( +2

. SPOWER

SAVSWR ,aSWR

d$LPADR

;TYPE

JSTART

POMWER

TEST AGAIN

CZR6BDO RK611 DSKLS CTRL PRT2

{ZR6BD.P11
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917

046472
046476
046504

14-SEP-81

13:47

000000
005015
000122

000000

047520

MACY11

30(1046)

14~SEP-81

042527

$PWRCT:
$POWER:

.WORD
.ASCIZ

.SBTTL

.EVEN
TRAP DECODER

7925
7926
7927

7931

793¢

7933
7934

7935
7936
7937
7938
7939
7940
7941
7942
7943

7944
7945
7946

7947
7948
7949
7950
7951

7952
7953
7954
7955
7956
7957

148

SEQ 0147

0.0
;COUNTER FOR TELETYPE
<15><12>/POWER/

""tfit*ttt*tttfittt'tttt"t'tt'i'ttt*tt't'ttttfl'titttitv'tti't'."'

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

:*AND USE

;*OF

THE

046506
046510
046514
046516
046520
046522
046526

010046
016600
005740

000002

006300
216000
000200

046542

$TRAP:

DESIRED ROUTINE.

''TRAP’

INSTRUCTION

THEN USING THE ADDRESS OBTAINED

MOV
MoV

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

;. SAVE RO
;:GET TRAP ADDRESS

MCvB
ASL
MOV
RTS

(RO) ,RO
RO
$TRPAD(RO)
,RO
RO

;.GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;. INDEX TO TABLE
;.60 TO ROUTINE

TST

111000

THE

IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS

;*GO TO THAT ROUTINE.

7928
7929

7930

PAGE

POWER DOWN AND UP ROUTINES

7918

7919
7920
7921
7922
7923
7924

E 12

15:10

=(R0O)

IT WILI

. ;BACKUP BY 2

;o THIS IS USE TO HANFLE THE ''GETPRI'' MACRO
046530
066532
046540

011646

016666
00002

000004

900002

$TRAP2: MOV

(SP) ,=(SP)

MOV
RTI

.3BTTL

TRAP

4(SP),2(SP)

;:MOVE

THE PC DOWN

;:MOVE THE PSW DCWN
;sRESTORE THE PSW

TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THF "'TRAP'' INSTRUCTION.

THE

ROUTINES

CALLED

ROUTINE

$TRPAD:

.WORD
STYPE

$TRAPZ2
;. CALL=TYPE

TRAP+1(104401)

TTY TYPEOUT ROUTINE

$TYPON
$TYPDS

;. CALL=TYPON
;. CALL=TYPDS

TRAP+4(104404)
TRAP+5(104405)

TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

0465642
046544
046546
046550
046552
046554

046530
044200
044560
0464534
044574
0447672

046556

045256

$GTSWR

;. CALL=GTSWR

TRAP+6(104406)

046560
046562
04656¢
046566
046570
046572
046574

045206
0645470
045620
046120
046260
04e316
043224

$CKSWR
$RDCHR
$RDLIN
$RDOCT
$SAVREG
SRESREG
SCOP1$

;. CALL=CKSWR
;;CALL=RDCHR
;;CALL=RDLIN
;. CALL=RDOCT
;.CALL=SAVREG
,.;CALL=RESREG
;. CALL=SCGPI

TRAP+7(104407)
TEST FOR (HANGE IN SOFT-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL WUMBER FROM TTY
TRAP+13(104413) SAVE RO-RS5 ROUTINE
TRAP+14(104414) RESTORE RO-RS ROUTINE
TRAP+15(104415) INTERNAL LOOP ON ERROR

$TYPOC
$TYPOS

;. CALL=TYPOC
;. CALL=TYPOS

TRAP+2(104402)
TRAP+3(104403)

TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)

GET SOFT-SWR SETTING

CZR6BDO RK61T1 DSKLS CTRL PRT?
14=SEP=81 13:4°
CZR6BD.PN

VMACY11

7966

7967

7968
7969
7970
7971
7972
7973
7974
7975
7976
7977
7578
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993

-—l

7962
7963
7964
7965

046576
0466602
046610
046616
046622
046630
066636
0466644
046652
046660
046666
046674
046702
046704
046712
046714
046722
046730
046736
046744
046752

0012

PNONNO
TN SN
ESNON = NONIND
[elelaledodolelodaolel Jololalolels]

7961

7960

o
o

7958

7959

004272

001116
004206
004150
001116
004244

004210
001116
004250
004210
001116
004204

004160
004206
004150
004160
004204
004159
0046160
004144

004146

004210

046760
046766
046774
047002
047004
047012
047020

047026
047034
047042
047050
047056
047064
047066
047074
047076
047104

047112
047116
047124
047126
047134
047142
047146
047154

047162
047170
047176

047204
047212
047214
047222
047230

004160
0046146

14=-SEP-81

15:10

F 12
PAGE 149

DATA PRINTED BY ERROR ROUTINES

SE3 (148

SBTTL

DATA PRINTED BY ERROR ROUTINES

DT000:
DT001:

.WORD
.WORD

S$TESTN, TRAPP(
$TESTN,SERRPC,E.CST,T.CS',E.MRZ,T.MR2
E.MR3,T MR3

DT002:

.WIRD

$TESTN,SERRPC,E.CST1,T.CST1,DRVCOD,E.MR?,7
. MR2 E.MR3, T .MR3

DT006:

.WORD

$TESTN,$ERRPC,E.CS1,T.CS1,HCCODE ,E.MR2,T.MR2,E.MR3, T .MR3

DT012:

.WORD

$TESTN,$ERRPC,E.CST,T.CST1,E.MR1,T.MR1
MSG(OD

.WORD

E.MR2,T.MR2,E.MR3,T
MR3

004160
004206
004150
004160
004206
004150
004160
004254
004210

DT0*7:

.WORD

$TESTN,SERRPC,E.CST,T.CS1,CYLIN,E.MR2,T
. MR2 E.MR3,T _MR3

DT031:

.WORD

$TESTN,$ERRPC,E.CST1,T.CS1,0FFVAL
,E.MR2,T.MR2 E.MR3,7.MR3

DT035:

.WORD

$TESTN,SERRPC,E.CST,T.CS",CYLIN,OFF
VAL

.WORD

E.MR2,T.MR2 ,E.MR3,T.MR3

004230
004206
004150
004210
004146
0047°6)
004130
004174

DT050:

.WORD

$TESTN,SERRPC,U.MR2,U.MR3,SFTCNT
,E.MR2,T . MR2, E.MR3,T MR3

DT0S2:

.WORD

STESTN,SERRP(,E.MR3,T .MR3,E.MR2, T MR2

DT0K2:

.WORD

$TESTN,$ERRPC ,E.CST,T.CS1,E.CS2,T7.CS2,E.DS.T.DS,E.ER,T.ER

006160

DT065:

.WORD

$TESTN,$ERRP(,E.CST,T.CSi

004206
004150

DT067:

.WORD

$TESTN,SERRPC,E.MR2,T.MR2
,E . MR3, T .MR3

DT100:
DT126:

.WORD
.WORD

$TESTN, SERRP(
$TESTN,$ERRP(,E.CST,T.CST

DT224:

.WORD

$TESTN,SERRPC,E.CST1,T.CS1,E.(S2,T7.(S2,E.DS,T.DS

.WORD

E.ER,T.ER,P.(S1,P.(S2,P.DS,P.ER

.WORD

$TESTN,$ERRPC,DRVTYP,CYLIN,
HDCODE E.CST,T.(ST,E.CS2,T.(S2

.WORD

E.DS.T.DS,E.ER,T.ER

.WORD

STESTN,SERRPC,E.CST,T.CST,E.ER,
T.ER, ILLFUN

004160

004120
004172
004174
004222
001220
004252
004120
004172
004134
001220
004120
004270

30(1046)

0046160
004130

004132

004220
004226
004266
004160
004130
004174

001116
004174

004160
(06134

DT23(C:

DT256:

8060
8061

8062
8063
8064
8065
8066
8067
8068
8069

04734¢
047346
047350
047352
047254
047356
047360
047362
047364
047366
047370
047372
047374
047376
047400
047402
047404

£00

050619
003
050410
000
050447
004
000007
000
050271
000

050307
002
050634
000
050701
005

c00
000
000

000

DFG06:

000
000

.WORD

000
000
000
000

00(¢
000

000

.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE

PFO12:

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

O
O

(]

®»

—

O
O

-—
-—

O
O
O

;ERRORS 6-11

[v o]

00C

SI = B - |
> [0 o]
>

000

;ERRORS 2-5

LA
[an] [vel

DFO02:

000

.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYIE
.WORD
.BYTE
.WORD
BYTE
.WORD

—
<o

000

[

000

(=)
p-

060

o
o

000

o
o
p-J

000

;ERROR 1
(o)

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

SEQ 0149

DFOO01:

;ERRORS12<-16

8059

04734

.WORD

150

O
N
@

8052
80532
8054
8055
8056
8057
8058

DFO00:

PAGE

O
-

8039

8040
8041
8042
8043
8044
8045
8046
8047
8048
8049
8250
8051

¢00

DATA FORMATS

G 12

O
o

3038

7276

047300
047302
047304
047306
047210
047312
047314
047316
047320
047322
047324
047326
047330
047332
047334
047336
047340

000

.SBTTL

O
O
>

8032
8033
8034
8035
8036
8037

047262
047264
047266
047270
047272
047274

000001
002
000007
000
050271
000
050307
002
050353
000
050372
002
050410
000
050447
004
000007
000
050271
000
050307
002
050506
000
050534
003
050410
000
050447
004
000097
000
050271
000
050307
002
050563

13:47

15:10

14-SEP-81
30(1046)
DATA FORMATS

-0
N
O
»
®

8026
8027
8028
8029
8030
8031

047232
047234
047236
047240
047242
047244
047246
047250
047252
047254
047256
047260

14-SEP=81

MACY1T1

8014
8015
8016
80°7
8018
8019
8020
8021
8022
8023
8024
8025

DSKLS (TRL PRTQ

MO OUNVDCODONITODOUDWOOODNIIDODONSTNDODWODODNIDODONHFODOUTUNODODNODOD
O NN
—
I~
s
Lo
Xs
s
I~
I~
I~
[
&Y
Is
X+
X
s X
X+
X b i Y
X
«
Xs
XIs»
X+
XIs
XIv
I
OQOOOOOOTOO
OO0OOOOOOOOOQOOO0
COOOQOOOOOOOOOU
OOOOQOOOCOVOOOO0
O

(IRABDO RK611
(ZR6BD,.P1?

CZR6BDG RKG11
ZIR6BD P11
8070
8071
8072
8073
8074
8075
8076
8077

047406
047410
06474612
0476414
047416
047420
047422
047426
067426
0467430
0474632
0474634
047436
047440

md —D
oD —d
od
o
d
b
b
b
d —d —d mad
md
md o
» b
—

047502
047504
047506
047510
047512

MNOPUMNONUNUND
= = a2
a2 e at OO
O
NS W= OV
NN
W —=2O000~N (o

0o 0o 00 00 0o K0 0o 0o Co 00 0o GO 1O 0o OB 00 00 0o On 0o 0O

04674472
047444
067446
047450
047452
047454
047456
047460
067462
067464
047466
0467470
047472
047474
067476
047500

047514
047516
047520
047522
047524
047526
047530
047532
047534
047536
047540

047542
047544
047546
047550
047552
047554
047556
047560
047562
047564

DSKLS TRy PR72
14=SEP=81 13:4°

050410
000
050447
004
000007
000
050271
000
050307
002
050747
000
050775
003
050410
000
050447
004
000007
000
050271
000
050307
002
051021
000
051050
003
050410

MACY11

30(1046)

DATA FORMATS

.WORD
BYTE
.WORD

000
000
¢00

DFO17:

000

000
000

000
000
000
000

DFO37:

000
000

000

DF(35:

000
000

000
000
000
000
000

00C
000

000
000

DFO50:

-.10

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

.WORD
BYTE
.WORD

DHQOO1D
4,0
7
0,0
DHOO0A
0,0
DHO00B
2.0
DHO31A
L0
DHO31B

.WORD
.BYTE
.WORD

DHOO01C
.0
DHO01D

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

BYTE
.WORD
BYTE
.WORD
.BYJE

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

] 12

PA GE

151

SEQ C150

DHOO1(
0,0
DMQO1D

BYTE
.WORD

.BYTE

000
000

14-SEP=81

0,0
DKOO0A
0.0
DHO00B
2,0
DHO174
0.0
DH0178
3.0
DHOO01(
.0

;ERRORS 17-30

;ERRORS 31-34

4,0
7
0,0
DHO000A
.0

DHO00B
.0
DHQ35A
,0
DHO35B
4,0
DHOO1C
.0
DHOO1D
4,0
7
0,0
DHOQOA
0.0
DHOOOB
2.0
DHOS50A
0,0
DH(S0B
3.0

JERROR 35-41

;ERRORS 50 & 51

"IR6BDY RK611
“ZR68D.P1I

8126
guird
i Salr el Suir i
Sur Suir Suir S
i S
S
i Sl S
i SuirSuir i St
O
il
ek
pir@uirGuirguirir S iruir el
—a ——d

ed —d —2
b md —d
b
)
D
A e
e

oo [0 .76 Yo Ne Yo, O NN
VNN
ES 8N B BN 8 8 8 2 5 B NN N IWNAN N NN N NN N N
~
NNONONO
oo ~NON NS INPNY — QWO NOT NS W
- O OV~
2OV
NN
W
OV
NS WA 2O 00

00 00 00 0o Go 00 0o 0o 0o 0O 0o 0o 0o 0o 0o 00 0o 0o 0o 0o Co 00 0o Co Bo GO Co 0o 0o 0o 0o OL Lo 0o Co Co 0o Jo Co Ot B Co 0O 0o Co 0o (10 0o 0o OO 0o 0o 0 0O OO

127

047566
047570
047572
04757«
047576
047600
047602
047604
047606
047610
047612
047614
047616
047620
047622
047624
047626
047630
047632
047634
047636
047640
047642
047644
047646
047650
047652
047654
047656
047660
047662
047664
047666
047670
047672
047674
047676
047700
047702
047704
047706
047710
047712
047714
047716
047720

047722
047724
047726
047730
047732
047734
047736
047740
067742
047744

DSKLS CTRL PRT2
14=-SEP-81 13:4°

050410
000
05047
004
0000C5
000
050271
000
050307
002
050410
000
050447
004

000005
000
050271
000
050307
002
051247
000
051346
010
000005
000
050271
000
050307
002

050353

000
050372
002
00005
000
050271
000
050307
002
051443
000
051502
004
000003
000
050271
000
050307
002
000005
000

050271
000
050307
002

MACY1'

14{-SEP-81
30(1046)
DATA FQORMATS

000
009

400

DFOS52:

000

000
000
000

000

DFO62:

000

000
000

DFO65:

000

000
000
000
000

DFO67:

000

000
000

000

DF100:

000

00C
000

000
000

Dr12é6:

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

.BYTE

.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
BYTE
.WORL
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE

15:10

DHOQ1C
0,0
DHOO1D
6,0
b)
0.0
DH0O00A
0,0
DHO00B
2.0
DHOO01C
0,0
DHOO1D

4,0

5
0.0
DHOO0A
0.0
DHO008B
2.0
DHO62A
0.0
DH062B
8..0
5
0,0
DHOO00A
0.0
DHOO0O0B
2.0

[

PAGE

152

;ERRORS 52-61

JERRORS 62-64

;ERRORS-65-66

DHOO1A

0,0
DHOQ18
2.
5
0,
DHOO0A
0.
DHGOOB
2.0
DHO67A
0.0
DHO678B
4,0
3
0.0
DHO00A
0,0
DHOO0B
2.0
5
a,0
DHO00A
0.0
DHOUOB
2,0

JERRORS 67-70

;ERROR 100

JERROR 126

SEQ 0157

CZR6BDO RK611
CZR6BD.P1Y

8182
8183
8184
8185
8186
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196

047746
047750
047752
047754
047756
047760
047762
047764
047766
047770
047772
047774
047776
050000
050002
050004
050006
050010

050012
050014
050016
050020
050022
050024
050026
050030
050032
050034
050036
050040
050042
050044
050046

DSKLS CTRL PRT?
14-SEP=-81 13:4"

051540
000
051557
002
000007
000
050271

000
050307
002
051247
000
051346

MACYTT

14=SEP=-81
30(1046)
DATA FORMATS

000

-- 000
coo0

DF22¢4:

000

000
000

DF230:

000
000

000
000
000

000

DFe56:

15:10

.WORD
BYTE
.WORD

DH126A
0,0
DH1268
.

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

0.0
DHO00A
0.0
DHQ008
2,0
DHO62A
0,0
DH0628B
8..,0
DH224A

BYTE
.WORD

.BYTE
.WORD
.BYTE

0.0
DHZ224B
.

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

0,0
DHOOO0A
0.0
DH0O00B
2.0
DHZ230A
0,0
DH2308
3,0
DHO62A
0.0
DHO628
8..,0

.WORD

J 12

PAGE

153

SEQ 0152

;ERRORS 224=227

;EKRORS 230-233

JERRQR 256

CZR6BDO RK611 DSK.S CTRL PRT2

(ZR6BD.P1Y
8215
8216
8217
8218
8219
8220
8221
8222
8223

050050
050052
050054
050056
050060
050062
050064
050066
050

14=-5EP-81 13:47
000
05027°
000
050307
002
051736
000
052002
005

000

000
000
000

MACY11 30(1046)

14=-SEP-81

DATA FORMATS

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

15:10

0,0
DHOOCA
0,0
DH000B
2,0
DHZ256A
0,0
DHZ256B
5,0

PAGE 154

SEQ C153

CZR6BDO RK611 DSKLS CTRL PRT2
CIR6BD.P11
164-SEP=-81 13:4”

MA(Y1Y

gggg

8226
8227
8228
8229
8230
8231
8232
8233
8234
8235

8236
8237
8238
8239
8240
8241
8242
8243
8244
8245
8246
8247
8248
8249
8250

050072
050100
050106
050114
050121
050126
050127
050134
050142
050150

050156
050157
050164
050172
050200
050201
050204
050212
050220
050226
050234
050242
050250
050256
050264

005015
020061
042101
020123
040
000
122
053040
020122
051505
000
122
050040
052111
000
040
005015
040522
051117
042502
020105
020122
044123
054705
042105

30(1046)
14=-SEP-B81
ASCI] MESSAGES

15:10

L 12

PAGE 155

.SBTTL

ASCII MESSAGES

OPROO1:

.ASCIZ

<15><12>/Rk611 BUS ADDRESS ( /

OPR002:

.ASCIZ

045522
052502
05104
020050
020051

030466
020123
051505
000
020975

033113
041505
042101
020123

030461
047524
05110¢
02005V

OPRO03:

.ASCIZ

/RK611

VECTOR ADDRESS ( /

033113
044522
020131

030461
051117
020050

OPROO4:

.ASCIZ

/Rk611

PRIORITY

000040
051120
020115
042524
040503
051105
044124
046117
042503
005015

043517
041101
020104
051525
047522
042522
020104
042105
000

SPACEZ2:
ABORT:

.ASCIZ
.ASCIZ

/
/
<15><?2>/PROGRAM ABORTED BECAUSE ERROR THRESHOLD EXCEEDED/<15><12>

(

SEQ 1564

(2R6BDO RK611 DSKLS CTRL PRT2
CZR6BD.P1T
14-SEP-81 13:47

MACY11

050454

020101

051505
062440
000
046525
050040
052123
051124

020124
051122

DHOOOA:

.ASCIZ

/TEST

ERROR/

020040
000103
020040
050101

DHOO0B:

.ASC'Z

/NuM

PC/

DHOO0C:

.ASCII

/TEST

TRAP/<15><12>

020115
041520
050130
040440
000114
051503
045522

020040
00v
041505
052103

LASCIZ

/NUM

PC/

DHOD1A:

_ASCIZ

/EXPECT

ACTUAL/

020061
051503

DHOO01B:

.ASCIZ

/RKCS1

RK(CS1/

042520
041501

052103
052524

DHOO01C:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

.ASCIZ

/MESS A

MESS A

MESS B

MESS B/

.ASCIZ

/EXPECT

ACTUAL

DRIVE/

.ASCIZ

/RKCS1

RKCST

SELECT/

DHOO6A:

.ASCIZ

/EXPECT

ACTUAL

HEAD/

DHOO6B:

.ASCIZ

/RK(CS1

RK(CS1

ADD/

DHOT2A:

_ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL

MESS/

DHO12B:

.ASCIZ

/RK(S1

RK(S1

RKMR!1

RKMR1

SELECT/

O SH~OMN
WhOOWVIWKW

O =2 NOWVIWNO

OO0
OO0

o
HN—

OO0

o
N=O

OO0
OOO0OOVOO

WVNES
AN
— O
OV
Sy
OWW

OO0

£~

£H

£&H

——
SN
—

DHO0Z2B:

- A\
—2

OO
&I
W
HODONOON
OWWVOWW—

oo
OOO0N—=O
oo
=N

DHOO2A:

OO0OO0O0O

DHOO1D:

S
O

046440

(=]

—

~no
&

o
no
o

SEQ 0155

O
—

8276

PAGE 156

- \NO

126
020040
051117
116
020040
042524
020040
005015
052516
020040
105
020124
040525
045522
020040
000061
054105
020040

DATA HEADERS

m12

OO0
—WN-=

050271
050276
050304
050307
050314
050322
050330
050336
050340
0503.6
050353
050360
050366
050372
050400
050406
050410
050416

OO
&
O

8253
8254
8255
8256
8257
8258
8259
8260
8261
8262
8263
8264
8265
8266
8267
8268
8269
8270

.SBTTL

15:10

Wnsfhowviauv
—=ONO MV
N
O ==
O
ONO
WOV
W

ggg;

30(1046)
14-SEP-81
DATA HEADERS

N N

N NN W

N AN N N NN W

NN NN AN
N N A AN N NN AN N AN N

—d o

e nd

TNV IV IV TV LV

b —d md

D ad —d

D cad mad

mad

b md o}

d e

d oD e

D md

d b

041513
051040

020040
020040
046101

051503
045522
051503
OO

—ru—

QOO
&un e~
DWUWWOOWWNM

H-aNOSOO

HS NN O S 2

O—n

200
SN

~NO

—_n0

htlelel

O0O
VT,
N]

DSKLS CTRL PR
164-SEP-81 13:

O
OO0
OO0
OO0
OO0O0C0
ETR SV LS RV
FIVB
N
R I
YV IRV [ WAV,
IV, ]
-— O
= N—
NNCO—O
NNONTN
WO S
S \NADE NSO
NN
O
P OOV
ONO NN — —
OWNO DWVNIWNO O =N
WNMOOWWNW
WnNo

n50722

NOBNVON)
=
WO
= = L S NO RN
N

050730
050736
050744
050747
050754

-—

WNINO =N
— -2

WLV AV, LV (W, LU RV LV NV AV LV RV LV LV LU LV LV, AV LV LV RV RV LV RV RV RV RV, AV LV LV LV, JV, LV,

b o

U LV LW LV, RO

AW AN AN AN W AN AN AN AN AWNAWINOD PONO RO N NNV
—m D
Db
v a2 O
NNOAWNE S ANNVN O NI NO NS BN
= OO N NN
WY 2O
CONSRLVESOONNBROONSNNVEON =00 AN ONWVMESOOMNS o

[ololelelelololalalelalolalelelelelalelaleololeolelolelolaloleololsleleololelelololeleleloleleloel
o]

8345

(W A

N (NN N

8307
8308
83?9

AL = —d —2 2 b b ed 2 —b
B 8B BS DNNNININ
N NN NN WP nony PORUNINUNL
00 ~NON VIS NN — OO
£ WP = O
00NN NS WNND — OO
VNOAWN
W
- O

0o 0o 0o 0o 0o 0o Oo 0o Co 0o Oo 0o 0o 0L Q0 0o 0o 0 00 00 0o 00 00 00 0o 00 0B 0o OB 0O 00 0D OO 00 OB

(ZR6BDO RK611
CZROBD. P11

MACY11

052103

020061
051503
045522
020040
220062

30(1046)
14~SEP-81
DATA HEADERS
15:10
N 12
PAGE 157

SEQ 0156

052103

DHO17A:
LASCIZ
/EXPECT
ACTUAL

CYLIN/

DHO178:
LASCIZ
/RK(S1

RK(S?
ADD/

DHO31A:
LASCIZ
/EXPECT

ACTUAL
OFFSLT/

DHO31R:
LASCIZ
/RK(S1

RKCS1

VALUE/

DHO35A:
ASCI2
/EXPECT
ACTUAL

CYLIN
OFFSET/

DHO358:
LASCIZ
/RK(S1

RKCS?
ADD
VALUE/

DHCSOA:
LASCIZ
/BEFCRE
SHIFTING

SHIFT/

DHOS0B:
LASCIZ
/MESS
A
MESS B

COUNT/

DHO62A:

.ASCIZ
JEXPECT

ACTUAL

EXPECT
ACTUAL
EXPECT
ACTUAL

EXPECT
ACTUAL/

DHO62B:
LASCI2
/RK(S1

Rx(S?

RK(SZ
RK(S2
RkDS
RKDS
RKER

RRER/

(ZR6BDO RK611 DSKLS CTRL PRT2
(ZR6BD.P11
14~SEP-81 13:47

8415
8416

052040
052046

020040
000124

041505
052103
042440
020124
04052°¢

DHO67A:

.ASCIZ

/EXPECT

ACTUAL

EXPECT

ACTUAL/

051115
045522
020040
020063

020062
051115
045522
020040

DHOA7B:

.ASCIZ

/RKMR2

RKMR2

RKMR3

RKMR3/

DH126A:

.ASCIZ

/EXPECT

ACTUAL/

030523
061513

DH126B:

.ASCIZ

/RK(CS?1

RKCS1/

044520
042522
051105
0425264

DH224A:

_ASCIZ

/PREVIOUS REGISTER CONTENTS/

020061
051503
045522
020040
¢o9
042526
046131
044040

DH224B:

.ASCIZ

/RK(CS1

RK(S2

RKDS

)
DH230A:

_ASCIZ

/DRIVE

CYLIN

HEAD/

020040
020104
042101

DH230B:

.ASCIZ

/TYPE

ADD

ADD/

052103
052524
054105
020040
046101
000114
020061
051503
045522
020040
020040

DH2S6A:

.ASCIZ

/FXPECT

ACTUAL

EXPECT

ACTUAL

ILL/

DH256B:

.ASCIZ

/RK{S1

RK(S1

RKER

FUNCT/

e
T
S
B
T
T
T
T
W
B
T
e
T
T
S
T
T
e
Ee
W
e
W
e
W
T
S

000063
052103
052524

RKER/

051115
042520
041501
000
041513
051040
000
042522
020123
052123
047117
000123
051503
045522
020040
020040
051105
044522
041440
020040
000104
042520
042101
020040

050130
040440
020114
041505
052103

051706
051712
051720
051726
051734
051736
051744
051752
051760
051766
051774
05200¢
052010
052016
052024
052032

051504
045522
020040
020040
051105

051652
051660
051665
051672
051700

045522
020040
020040
051105
045522

8394
8395
8396
8397
8398
8399
8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8470
8411
8412
8413
8414

051575
051602
051610
051616
051624
051630
051636
051644

122
020040
030523
120
052517
044507
041440
052116
045522
020040
020062
051504
045522
106
020040
047111
040505
054524
020040
020040
000104
054105
020040
046101
042520
041501
020040
045522
020040
020061
051105
045522

SEQ 0157

042520
041501
020040
052103
052524
046111
051503
045522
020040
020040
051105

052506

041516

8386
8387
8388
8389
8390
8391
8392
8393

051557
051564
051572

045522
054105
020040
046101

B 13
PAGE 158

8383
8384
8385

051532
051540
051546
051554

020040
020040
051504
045522
020040
000
105
020124
040525
050130
040440
000114
045522
020040
020062
051115

15:10

8379
8380
8381
8382

051404
051412
051420
051426
051434
051442
051443
051450
051456
051464
051472
051500
051502
051510
051514
051524

30(1046)
14<-SEP-81
DATA HEADERS

8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
278

MACY11

(ZR6BDO Rr611 DSKLS CTRL PRT?

SOV LD
NWN=SNNOOW—ES

EM*00:

LASCIZ

/ATTEMPTING

SELECT

IN 24 SECTOR FORMAT

WO VNS
VON = W=

046505
020107
053111
040505
046440
046440

EMIG:

LASCIZ

/ATTEMPTING

DRIVE

CLEAR IN MAINT MODE/

050115
040440
040517

EM102:

LASCIZ

/ATTEMPTING

UNLOAD

EM103:

LASCIZ

/ATTEMPT
ING

PACK

046440

050°15
040440
020113
053517
020105
044501

042117

042524
043516
041505
040522

050115

EM104:

LASCIZ

/ATTEMPTING

RECALIBRATE

EM105:

LASCIZ

/ATTEMPTING

START SPINDLE/

EM106:

LASCIZ

/ATTEMPT
ING

SELECT USING ALL DRIVE SELECTION CONFIGS

YO =2 = OO =N

OOOOOoO

020124
046104
052101
044524
051440
020124

SEQ 0158

/UNEXPECTED MEMORY

101

052120
02010
020105
020122
044501
0462117
052101
044524

159

LASCIZ

NON=

052120
020101
052103
032062
047524
046522
020116
020124
000

PAGE

EMO00:

RV, Py SV PV]
=OHN-2r0
NONNO =N
NN
= 2 —
NN =
NN
—
=L
OMNSNVN
=200

101

ERROR MESSAGES

S [pS 1V,
P o AR SV

04712>
052103
046505
040520
042440
020105
000

15:10

SBTTL

OO0OOOOOOOQOO

052050
052056
(052064
052072
052100
052106
052114
052115
052122
052130
052136
052144
052152
052160
052166
052174
052202
052203
052210
052216
(052224
052232
052240
(52246
052252
052260
052266
052274
052302
052310
052314
(052322
052330
052336
052344
052352
052360
052366
052370
052376
052404
052412
052420
052426
052434
052437
052444
052452
052460
052466
(52472
052500
052506
052514

13:47

Husn

8417
8418
8419
8420
8421
8422
8423
8624
8425
8426
8427
8428
8429
8430
8431
8432
8433
8434
8435
8436
8437
8438
8439
8440
8441
8442
8443
8444
8445
8446
8447
8448
8449
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459
8460
8461
8462
8463
84664
8465
8466
8467
8468
3469
3470
8471
8472

14-SEP-81

QOO0

TIR6BD.P1T

14-SEP-81
30(1046)
ERROR MESSAGES

PARITY ENABLE

TRAP/

[N MAINT MODE/

04711
042504

[N MAINT MODE/

046440

046440
ACKNOWLEDGE

IN MAINT MODE/

[N MAINT MODE/

MACY11

b 13
PAZE

160

SEc 0159

e R R

OO 0N
=

Pl R
N

EM107:

LASCIZ

/ATTEMPTING A

SELECT

USING ALL

HEAD

ADD

EM108:

JASCIY

/ATTEMPTING A

SELECT

USING ALL

MESS

SELECT

EM109:

LASCIZ

/ATTEMPTING A

SEEK

EM110:

LASCIZ

/ATTEMPTING A

SEEK WITH

EM1*"-

LASCIZ

/ATTEMPTING AN OFFSET

EM112:

LASCII

/ATTEMPTING

CONFIGS

IN MAINT

MODE/

=L OHNOOMNO

VWNINO
= 2NN

NO =220

VIS
=
NN

Y, puronry Ny, par e

15:10

TO AN RKO6

SET

IN MAINT MODE/

MQDE/

[N MAINT MODE/

—_— e

O &

RNV, IV, IV o]

(DT

IN MAINT

CONFIGS

NIV

2 OOO

IN MAINT

MODE/

b ek N e O

iV 1V Te

NN
=
— e BN and cd md b mad ek \ Y

053440

(@ e T

04252
052440
040440
051505
042514
047117
044440
047111
042504
052124
047111
042523
020117
030113
046440
046440

046505
020107
062514
044523
046114
020123
n52103
044506
020116
020124
000
046505
020107
045505
047101
020066
044501
0462117

OSSO
WSS
OMN=OOMNINWOON

=SONOOR
NS WAWNIN—=O NN
OO OCONISONOINON S oo

AN LU N WA N N WA N N NN NN N ¥ Y
POND b aed e e ed b e = ek D -2 [ole]

jeoleolelelelaleleolelelolelelele)

AV LV LV LV LV, LW, AV LV, RV, LV, LV, LV, |

053062

12
11

N~
&

WY,

30(1046)
14-SEP-81
ERROR MESSAGES

= ONOOO
=

13:47

i gl aui g g

OMNOON = OO—=ON S NVVOO R
warnO
SOOI ONSOL
DN
NS

047

OCO=2=HL0ONO—=
2O

040

(VL RV L

NNV
bbb D2
=
WA= OV
NN
AR —

VLAV
VIV
L
N A VN

8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501
8502
8503
8504
8505
8506
8507

00 00 00 0o Co Co 0o 0o 0o 00 00 Ko 00

14-SEP-81

O NNO
NS WNWNAD
S2ONSONONOSONOML

[eleolelolelelelelols]

vV
I
NYWILN
[AS1ACT N, ST W1 N1, W1,V 1, ST, §

8473
8474
8475
8476
8477
8478
8479
8480
8481
8482
8483
8484
8485
8486
8487

[0 304 RV2 1ALV, [V, [V, LV, [V, 1V ]

CZR6BD.P1

DSKLS CTRL PRT?

OOOOOOOOOOODOOOD
PN S BBV
S NO NS S
OQOHMMNNIOO
2L NONINIWSN

CZR6BDO RK611

(OMMAND

WwITH NON-ZERO

(YLINDER

ADDRESS

AND/<

5>/,

TIR6BDO RK61T DSKLS CYRL PRT2
TIREBD.PT
14-SEP-81 13:47

MACY11

8529
8530
8531
8532
8533
85346
8535
8536
8537
8538
8539
8540
8541
8542

053216
053226
053232
053240
053246
053254
053255
053262
053270
053276
053304
053312
053320
053321

047516
047522
047111
042101
020123
012
116
051105
051506
020116
042524
020105
000
161

026516
041440
042504
051104
047101

042532
046131
020122
051505
006504

047117
020117
052105
040515
040516
047515

055055
043117
064440
Q471"
041514
042504

052124

046505

8545
8546
8547
8548
8549

053342
053350
053356
053364
053372

020104
047040
051105
051523
042523

044527
047117
020117
043501
0425714

044124
055055
042515
020105
052703

8543
8544

8550
8551
8552
8553
8554
8555
8556
8557
B558

8559

8560
8561
8562
8563
8564
8565
8566
8567
8568
8569
8570
8571
8572
8573
8574
8575
8576
8577
8578

8579
8580
8581
8582
8583
8584

053326
053334

053400
053406
053407
0534146
053422
053430
053433
053440
053446

053454

053462
053470
053476
053504
053512
053520
053526
053534
053542
053550
053556
053564
053570
053576
053604
053612
053620
053626
053634

053642
053650
053656
053663
053670
(053676

052120
047503

041640
012
111
047111
041516
042504
101
052120
047524

052106

042526
040523
052101
044524
020117
040522
042104
052111
051440
020124
020105
043501
052101
044524
020117
060522
042526
044522
020116

052103
042526
040523
101
052120
047503

047111
046515

042117
020116
042524

020105
000
052124
047111
051440
042040
046440
042507
042524
043516
042507
042524
050040
020131
046105
051104
042515
000105
042524
043516
042507
042526
020116
054524
042523
042040
046440
042507
052124
047111
050115

020107
047101

30(1046)
14-SEP-81
ERROR MESSAGES

EM113:

15:10

E 13
PAGE 161

SEQ 0160

LASCIZ

/NON-ZERU OFFSET

IN MAINTENANCE MODE/

_ASCII

/ATTEMPTING COMMAND WITH NON-ZERO MES"AGE SELECT CODE/<15><12>

LASCIZ

/IN MAINTENANCE MODE/

006505

040515
040516

9047515

046505
020107
064510
047522
051505
000°23
050115
052040
042516
047440
051101
047117
041505
053111
051523

EM114:

_ASCIZ

/ATTEMPTING TO SHIFT DRIVE MESSAGES/

EMI15:

_ASCIZ

/ATTEMPTING TO GENERATE ODD PARITY ON SELECT DRIVE MESSAGE/

050115
052040
042516
042440
040520
047440
042514
044522
051505
000
046505
020107
042514

EMI16:

_ASCIZ

/ATTEMPTING TO GENERATE EVEN PARITY ON SELECT DRIVE MESSAGE/

EM117:

_ASCII

/AT EMPTING COMPLETE EXECUTION OF

DESELECT DRIVE

(OMMAND/

13:4°

PAGE

162

SEQ 0167

LASCIZ

<15><12>/IN MAINTENANCE MODE/

LASCII

/ATTEMPTING COMPLETE

LASCIZ

<15><12>/IN MAINTENANCE

EM119:

LASCIZ

/ATTEMPTING EXECUTION OF

EM120:

LASCIZ

/ATTEMPTING

EM121:

LASCiZ

/ATTEMPTING EXECUTION OF

EM122:

LASCI]

/ATTEMPTING DESELECY

EXECUTION OF

SELECT

DRIVE

(GMMAND/

MODE/

DESELECT

DRIVE

NORMA_

SPEED/

NOMND
O NN

NS
AN

000

o OQOOOOOOOOOO
&~ NO WSS SN S S oo
no OQOOMNINWRLONOININVO
SPBd
a N—
N O —

047

EM118:

&»

047

OO0 OOOODOOOO0
O
2 o SN S
s
winoro SO DNON—KWND
VNN = NO O — — N = W
NNOQOMN
=B BN OAN
OONOON=N)
S NDADNDOOWOWOR
RN =OWSRWNOS

054377

F 13

DN -2NHOO
— —
VO SNWOS —

047

8615

15:10

SN S

043
046

OOOOOO0O o
(S STNIV
OF
o~
O—=OO—=O— ~

G Y o PN
GIFY o, PY
Ve 1,V ] o P

040

el SN

043

14-SEP-81
30(*046)
ERROR MESSAGES

—NOO =N

042524
052503
047440
042523
062040
041440
042116
005015
044501

8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
3609
8610
8611
8612
8613
8614

MACY1Y

14~SEP=-81

NU2ONO
SO SNO =2
OO
WNWVMS VNNV
NSO

TIR6BD.P1Y

DSKLS (TRL PRTQ

CIROBDD RK611

000
046505

TO WRITE

(OMMAND

AND

DESELECT

STATUS

REG.

[N MAINT

DRIVE

WITH

INTERRUPT

COMMAND AFTER WRITING SILO /

MODE/

ENABLE

SET/

047111
062523
061440
042116
05105

163

SE3 (162

EMI123:

LASCIZ

/ATTEMPTING COMP_ETE EXECUTION OF

SEEK

050115
051440
020124
020105
04450°
042117

EM1 e

LASCIZ

/ATTEMPTING

SELECT

MODE/

050115
061440
021040
051440
021123
047506
006567

EM125:

LASCII

/ATTEMPTING

CHECK

LASCII

/DRIVE

LASCII

/OFFSET,

LASCIZ

/DRIVE

LAS(I1Z

/ATTEMPTING

30 CLEAR/

DRIVE

“'LOAD

AVAILIABLE,

SPEED

IN MAINT

STATUS'' Bv

LOSS,

[N MAINT MODE/

FORCING/<15><12>

VOLUME

VALID,/<15><12>

SN
22—

DRIVE

READY,

AND WRITE

LOCK/<i5><12>

WSO

(HECK

N0
O
=AY
O

NN
b b o ek
- \ Y\

oOnrfy
NSO

£H

orroNurROWIND
NPl

b \ Y

—OON

054762
054770

052124
04711
043040

PAGE

/T0

054750
054756

044522
040524
042522

G 13

*5:10

LASCIZ

—OC0
NNV

042524
043516
045503
042101
062524
020131
047111

164=SEP-81
30(1046)
ERROR MESSAGES

020107

—

8649
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660
8661
8662
8663
8664
8665
8666
86€7
8668
86¢€9
8670
8671
8672
8673
8674
8675
8676
8477
8678
8679
8680
8681
8682
8683
8684
8685
€486
8687
8688
8689
8690
8691
8692
8693
8694
8695
8696

05¢120
062504
052103
040515
052106
044522

8647
8648

153:47

VMACY1T

2O
= OO0

B64S
8646

VAV
VLA WA

8646

054404
054412
054420
054426
054434
054442
054450
054456
054464
0564472
054500
054506
054514
054522
054530
054536
054544
054552
054560
054564
054572
054600
054606
054614
054622
054630
054632
054640
054646
054654
054662
054670
054676
054704
054705
054712
054720
054726
054734
054742

COLVLOOOO0O

8641
8642
8643

‘a=SEP-81

VION SN

TIR€8BD P11

DSKLS (TRL PRTQ

OO
==
O
—

JIR4BUC RKEMT

EM126:

STATUS REG./

TO FORCE

DRIVE

AVAJLIABLE/

(ZR6BDD RK611
TIR68D.P11

DSKLS CiRL PRT2
14=SEP=81 13:47

8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8711
8712

055072
055100
055106
055114
055116
055126
055132
055140
055146
055154
055162
055170
055172
055200
055206
055214

042503
042526
046111
000105
052101
044524
020117
020105
020105
040520
042440
005015
042504
042105
045522
052101

714

055230

020117

8713

055222

044524

8715
8716
8717
8718
8719
8720
8721
B72¢
8723
8724
8725
8726
8727
8728
8729
8730
8731
8732
8733
8734
8735
873¢
8737
8738
8739
874(
8741
8742
8743
8744
8745
8746

055236
055244
055252
055260
055266
055274
055275
055302
055310
055316
055324
055332
055340
055342
055350
055356
055364
055372
055400
055406
055414
055422
055626
055432
055440
055446
055456
055662
055470
055476
055504
055511

020105
020105
044514
051040
062440
000
1264
043516
(51440
044522
050131
042524
000116
052101
044524
020117
020105
020105
062440
052440
042103
000124
052101
044524
020117
020105
020105
042440
060640
051523
045522
101

8748
87649
8750
8751
8752

055524
(55532
055540
055546
055520

047524
042503
042105
000123
052101

8747

055516

052120

MACYTY

042040
0404640
040511

(44522
040526
046102

042524
043576
047506
051104
052502
044522
051122

050115
052040
041522
05311
020123
054524
051117

042524
041040
030466
042524
043516

052103
020131
000067
050115
052040

051106
053101
(41101
GS51505
051122

053111
044501
042514
052105
(051117

051505
041440
052105
042526
020105
052103
042526
043516
047506
0511064
054524
051122
052111
020124

30(1046)
14=SEP=81
ERROR MESSAGES

H13
PAGE 164

SEG C163

_ASCI]

/ATTEMPTING TO FORCE DRIVE BUS PARITY ERROR/<¢15><12>

.AS(IZ

/DETECTED BY Rk611/

EMI28:

,ASCIZ

/ATTEMPTING TO FORCE DRIVE

044526
9052104
042040
052040
042504
047511

EM129:

_ASTIZ2

/TESTING (DT SET DRIVE

EM130:

_ASCIZ

/ATTEMPTING TO FORCE DRIVE

TYPE ERROR WITH (DT SET/

042524
043516
047506
051104
054524
051122
042106
(047111
033060
05212«

050115
052C4)
041522
053111
04252C
051117
020110
042523
)
050115
052040
041522
053111
042520
051117
042522
020107
000
046505

EM137:

_ASCIZ

/ATTEMPTING TO FORCE DRIVE

TYF- ERROR ADDRESSING RK06/

EMI3C:

_ASCIZ

/ATTEMPTING TO FORCE

043040
051640
046040

05117
042520
051517

042524

050115

EM133:

_ASCIZ

/ATTEMPTING TO FORCE DRIVE OFF

047506

047111

EM127:

15:10

AVAILIABLE RESET ERROR/

041522

020107

TYPE DETECTION/

SPEED L0SS/

TRA(CK/

NN = PNOOWVIWWNO
- NOO

15:10

113

PAGE 165

SEQ C164

LASCIZ

/ATTEMPTING

7O FCRCE

WRITE

LOCK

EM135:

LASCIZ

/ATTEMFTING

~O FORCE

SEEK

INCOMPLETE/

EM136:

LASCIZ

/ATTEMPTING

TO FOR(CE

NON-EXECUTABLE

EM137:

LASTIE

/ATTEMPTING TO FORCE AC

EMI138:

LASCII

/ATTEMPTING

LASCIZ

<15><12>/FROM DRIVE

EM13G:

LASCiZ

/ATTEMPTING

ERROR/

S WVIINNINNWY

NOO—=—200
—NODODOO =00

DNN YWY

QOO0
rowvisSsunro
S
ONN—OON

S WY

EM134:

OO
= 20O

164=-SEP-B1
30(1046)
ERROR MESSAGES

PO
=
OO

20000 elelololeleololelelol ol

[V,
VP LRV, P W, PV W
] (S IV, P V)
N NSO
=N
= NIOOOW
N
SN0
===
N0
OO =OO
PO SN
= SO =N

FUNCTION/

10w AND (=D PARITY ERRJR/

ed =2 O = =d =2\ N

NOW—PNOMNOIW
= O & NN W

NN =2\ N
N
——t ALY —d B\ =

AN =2 NSV

=Ny

f=}

A%,]

N NPVWNOON

0430

ONONON—=O

PO
NN
=\ NN
O =
e

PO =N
OV
—
OB =NOO—O=-NIO=O
NN
= OQO—2HOWVMNEINNIWVIWN—S
OO =S

056152
056160
056166
056171
056176
056204
056212
056220
056226
056234

—t ed SN e\t =2 NN =

056144

—= =0 ONINONVIOO
2000
QOO OSSN

056137

042503

OO
s
——-—n

(56060
056061
056066
056074
056102
056110
056116
056124
056132

OO0
ViSO
= WNOO

8791
8792
8793
879
8795
8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808

MACY11

056014

OOOOOO
VIRDWNWAES
WV
OO =N

8788
8789
8790

NN -

056022
056030
056036
056044
056052

8782

8783
8784
8785
8786
8787

0435

055556
055564
055572
055600
055606
055614
055622
055630
055636
055644
055652
055660
055661
055666
055674
055702
055710
055716
055724
055725
055732
055740
055746
055754
055762
(55770
055776
056001
050006

13:47

—

8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
8775
8776
3777
8778
8779
8780
8781

14=-SEP=81

OOO0OOOOOOOO
NS NN
SN = NWNRD SN

“IROBD P11

DSKLS CTRL PRT?

o OO0
&~ NS
N
~ =HIANNN
—-— N
= -

“IR6BLD RKE'Y

TO FORCE

ILLECAL

MESSAGE

TO CLEAR RK611

DISK

ADDRESS ERROR/

BITS/

WITH A (ONTROLLER (LFAR/

’

051105
051101
126
043516
043505
051511
051104
051105
047514
047111
030461
101
052120
047524
044505
047117
042116
042515
051505
101
052120
047524
044505
047117
042116
042515
051505
053440
040520
042440
000
101
052120
047524
042503
0424
047
05
04
05
04
052
044
020
020
054
052
042
051

041440
000
051505
064440
046101
020113
051505
047522
044507
051040
000
0521246
047111
051040
042526
051455
051101
051523
000
052124
047111
051040
042526
051455
051101
051523

14=-SEP=81

ERROR MESSAGES

044524
046114
042040
042107
020123
020122
020103
033113
.
046505
020107
061505
047040

EMI40:

15:10

J 13
PAGE

166

SES C165

046505
020107
061505
047040
04052«
020104
043501

-—

ASCIZ

/TESTINC ILLEGAL DISK ADDRESS ERROR LOGIC

IN Rk611/

)

EM141:

A
_ASC1Z
-

/ATTEMPTING TO RECEIVE NON=-STANDARD MESSAGES/

EM142:

_ASCI1

/ATTEMPTING TO RECEIVE NON-STANDARD MESSAGES/

LASCIZ

/ W]TH PARITY ERROR/

EM143:

_ASCIZ

/ATTEMPTING TO FORCE NON-EXISTENT DRIVE

(DRIVE BUS TIMEOUT)/

EM144:

ASCIZ

/ATTEMPTING

(NO SA(CK)/

EM145:

_ASCI2

/ATTEMPTING EXECUTION OF DESELECT DRIVE WITH 1E RESET/

040524
020104
043501

OO —-NOO

jelelelelolelaleleololelelolelolele)
NSO
nnessni

OOOOO00O
VASS SRS

052124
047711
043040
047040

OTM —==20—MNON

02011
05452
0511

30(1046)

042514

NO—=O—=N)

052
054
0475
04204
041505

YMALY1®

052111
044522
051122

056242
056250
056253
056260
056266
056274
056302
0563'0
056316
056324
056332
056335
056342
056350
056356
056364
056372
056400
056406
056411
056416
056424
056432
056440
056446
056454
056462
056464
050472
056500
056506
056507
056514
056522
056530
056536
056544
056552
056560
056566
056574
056602
056610
056616
056624
056632
056640
056646
056654
056662
056663
056670
056676
056704
056712
056720

13:47

WO O WL

8809
8810
8811
882
8813
8814
8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838
8839
8840
8841
8842
8843
8R44
8845
8846
8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
8862
8863
8864

14-SEP=81

"IREBD.P1

DSk S (TRL PRT2

=
IS N
_— e = O SN
b
N =2\
=
—ONOOHNNL=OO=NHOONIN
2O W
O =2\NO—=OORONN
NN
2NN
=
N

"IREBDS RKOTT

TO FORCE

NON-EXISTENT DRIVE

0201
0304
0511

= nownessun~y
NNV
NOVS WO

OOOOOOOOOOOOOOOOO
S NS SN0
NNIOND S~

020
047
020
043
047
041

15:10

K 13
PAGE 167

SEQ 0166

EMIL6:

LASCIZ

/ATTEMFTING TO EXECUTE AN JLLEGAL FUNCTION/

EMI47:

LASCIZ

/ATTEMPTINC TO CLEAR JLLEGAL FUNCTION/

.ASCIZ

/DRIVE

EM2001:

.ASCIZ

/DRIVE MESS A INCORRECT/

EM2002:

.ASCIZ

/DRIVE MESS B IN{ORRECT/

EM2CO3:

.ASCIZ

/(UMMAND AND STALS REG.

EM2004:

.ASCIZ

/DRIVE

N3O WSO NOWNWNIWWM S WO NN NO NO WM S WWOROWNM S NO =N

047111
027107
041516

040
042
051
020
047
000
02C
052
020
051
040
051

30(1046)
14=SEP-81
ERROR MESSAGES

EM2000:

EM2005:

.ASCIZ

/HEAD ADD CODE

IN MESSAGE A INCORRECT/

NOH

040
044
05
04
04
05
05
04
052
0465
040440
040524
043505
047111
041505
053111
042514
042117
046440
042507
041516
052103
040505
020104
044440
051523
020101
051122

OOCOOOOO
SuwninsSsnesS

BN
2O SN0

N)= = Q=N =2 LN L OO =)

WO
&~

&
£

042
051
020
020

O = OMNISO =N —aN)

051523
104
046440
020101
051122
051104
042515
044440
042522
103
042116
051440
051040
020061
051122
051104
042523
041440
047111
040523
044440
042522
110
042101
042504
042515
020105
047503
000124
040515
042522
044440

046

NWNWR W= NNV OWVIONO SO NN

041 4
0421
042040
052117
044440
053111

O =)

046
046
020

b N -

057140
057145
057152
057160
057166
057174
057202
057210
057216
057223
057230
057236
057244
057252
057260
057266
057274
057302
057310
057316
057324
057332
057337
057344
057352
057360
057366
057374
057402
057404
057412
057420

0445
020117
020122
040507
0413

020105
044440
042523
0425
043
05
02
04
04
047
042

— ok

8889
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907
8908
8909
8910
8911
8912
8913
8914
8915
8916
8917
8918
8919
8920

057030
057036
057044
057052
057060
057066
057067
057074
057102
057110
057116
057124
057132

053111
044126
042522
052101
044504
020117
052125
044440
046101
052103
052101
=5 OO—=0ON
=N

8876
8877
8878
8879
8380
8881
8882
8883
8884
8885
8886
8887
8888

056726
056734
056742
056750
056756
056764
056772
057000
057006
057014
057022

COHrOONNNINS

BB6S
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875

MACY11

OO
rISS

(ZR6BDO RK611 DSKLS CTRL PRT2
TIR6BD.P11T
14-SEP-81 13:47

COMMAND BIT7 DID NOT SET

EM2006:

.ASCIZ

/MAJNT REG.

INCORRECT/

SELECT CODE

IN DRIVE MESS A/

INCORRECT/

IN MESSAGE A INCORRECT/

S aOoNO
==L OMNNONOMN—=NIN

LASCIZ

/CYLINDER ADD BITS

IN MESSAGE

INCORRECT/

EM2009:

LASCIZ

/OFFSET

IN MESSAGE

INCCRRECT/

= O —ON)

EM2010:

LASC1Z

/PARITY BIT

IN MESSAGE

INCORRECT/

=== O

EM2C*1:

LASClZ

/PARITY

IN MESSAGE

INCORRECT/

NNVO

EM2012:

LASCIZ

/COMMAND

EM2013:

LASCIZ

/ERROR REG

EM2014:

LASCIZ

/COMMAND AND

STATUS REG

INCORRECT

EMZ015:

LASCIZ

/COMMAND AND

STATUS REG

INVALID DURING C(OMMAND EXECUTION/

OOOCOOO

NSNS NO BN

OOOOOCOOOOOOOOOD
OOOOOO

N=a NOQO -2 OWN—=
O =AM N
OO
N=
N
NN =
O S OV =
D
N2
O
SO
RO 2O O—OMNNONOO
- NVO RO
HOO0OOMNO
S ONNO NOWMS
O NOWME 2O NOWVIWWNMWNMS
WU
= 20O NOWVMIWMIWWNG

EM2008:

(O R AV, [ NIV, 1,V

/MESS

wvissunnrnouwn

OOO0OOO0

SEQ 0167

.ASC!Z

(V. R AV, T,G LV, ]

OO0

168

EM2007:

(VP L o

O NSV
20NN =

o —
N
=D

OO—=NLUONIO—-OO0O—=
—_ S NN
O WO N = — .

8976

060072
060100
060106
060114
060122

PAGE

SELECT

CODE

VALUE

BIT

AND

BITS

IN MESSAGE B

STATUS REG 2

INCORRE(T/

INCORRECT/

041505

047101
020104
051525

PHASE

ADDRESS &/

=R AN\

8969
8970
8971
8972
8973
8974
8975

L 13

15:70

8964
8965
8966
8967
8968

14-SEP-81
30(1046)
ERROR MESSAGES

8963

042522
047503
000124
047503
020104
052123
051040
044440
042522
020124
020105
051505
047503
020104
052123

?OOOOOOOO?
S F YR SN P o
Y, P

8960
8961
8962

MNONO
PP

046

WV —=

046
042

d ALY

8950
8951
8952
8953
8954
8955
8956
8957
89-8
8959

——t

8946
8947
8948
8949

—=un w

&
N

8945

2 WA NO =

8940
8941
8942
8943
8944

NN NOMN
=2
NON

»H

ONOUN) = (N0

042

MACY11

=SO=20Hh 0000000020000
—=OMNIWO =OH— 200

115

042523
041440
047111
040523

QOO

062522

N —NOONNLON

057426

NONONORN
. ND =2 WAL YON

8921

8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939

£Hoon
-

(ZR6BDO RK611 DSKLS CTRL PRT?
14-SEP-81 13:47
TIR68BD PN

CIR6BDO RK611 DSKLS CTRL PRT2
TIR6BD.PY
14-SEP-81 13:47

MACY11

30(1046)
14~SEP-81
ERROR MESSAGES

15:10

n13
PAGE 169

SEQ C168

8977
8978
8979
8980
8981
8982
8983
8984

060130
060136
060144
060152
060160
060166
060174
060200

051040
044440
062111
047111
046515
054105
047511
040515

043505
053116
042040
020107
047101
041505
000116
047111

0462524

EM2016:

,ASCIZ

/MAINTENANZE REG 2 UNEXPECTEDLY CHANGED DLRING C(OMMAND EXECUTION/

8995

060300

040515

047111

042524

FM2077:

_ASCIZ

/MAINTENANCE REG 3 UNEXPECTEDLY (HANGED DURING COMMAND EXETUTION/

051122
044504
020124
000°22
047101
020104
051525
030440
051117
040440
044440
052522

EM2018:

.ASCIZ

/INTERRUPT DID NOT OCCUR/

EM2019:

.ASCIZ

/COMMAND AND STATUS REG 1

040515
042116
052524
020107
047503
020124
020122

EM2020:

.ASCIZ

/(OMMAND AND STATUS REG 2 INCORRECT AFTER INTERRUPT/

020122
052123
041516
052103
051105

EM2021:

.ASCIZ

/ERROR REGISTER INCORRE(CT AFTER INTERRUPT/

8985
8986
8987
8988
8989
8990
8991
8992
8993
8994

8996
8997
8998
8999
9000
9001
9002
9003
9004
9005
9006
9007
9008
9009
9010
9011
9012
9013
9014

060206
060214
060222
060230
060236
060244
060252
060260
060266
060274
060306
060314
060322
060330
060336
060344
060352
060360
060366
060374
060400
060406
060414
060422
060430
060436
060444
060452
060460

9015
9016
9017
9018
9019
9020
9021
9022
9023
9024
9025

060466
060474
060502
06C510
060513
060520
060526
060534
060542
060550
060550

9027
9028
9029
9030
9031
9032

060572
060576
060604
060612
060620
060626

9026

060564

040516
042522
047125
052103
041440
042105
047111
046515
054105
047511
040516
042522
067125
05103
061440
0627105
047111
046515
054105
047571
047111
050125
020104
041517
0475G3
020104
052123
051040
0646440

041516
020107
054105
042105
040510
042040
020107
047101
041505
000116

041516
020107
054105
042105
040510
0462040
020107
047101
041505
000116
042524
020124
047516
052503
046515
047101
052101
043505
041516

042522
052106
052116
052120
103
042116
051440
020123
020062
051122
043101

052103
051105
051105
000
046517
040440
040524
042522
047111
041505
042524

050125
051105
042522
0517105
051117
040440

000124
047522
044507
044440
042522
052106

047711

042526

030440
046101
051125
047503
020104
052125
020105
020062
04252C
054514
043516
051125
047503
020104
052125
020105
020063
042520
054514
043516
051125
047503
020104
052125

INCORRECT AFTER INTERRUPT/

051122

061312

14=SEP=81

N 13

170

/INTERRLPT

DID NOT

(LEAR

EM2023:

LASCIZ

/DATA

DID NOT

OCCUR WHEN LEAVING

EM2C24:

LASCIZ

/DRIVE

COMMAND

W= —aaut

EM2025:

LASCIZ

/DRIVE

STATUS

EM2C26:

.ASCIZ

/CONTROLLER READY DID NOT

SET/

EM2027:

LASCIZ

/LOAD

DRIVE

EM2023:

LASCIZ

/UNEXPECTED

EM2029:

LASCIZ

/INTERRUPT OCCURRED WHEN INTERRUPT ENABLE

O=—uNO

— N
O

NN\

BITS

IN MESSAGE

$IL0O/

INCORRECT/

NNO

OOOOO

LATE

IN RKH11/

PROVWNE

LASTIZ

OO0OOO

SEQ 0169

HNNED
VI
WISV
WNIWNON—=O
NN =N
N2 = NO N =200V
OO
=S NOO=I
BN
W=
a2 ~NO AHONOON

PAGE

OOOOOO0O0O

15:10

EM2022:

NSNS
S AOSWVME
DN
N
ON = = O NN
fy bt
DN
a2 NN
N
S OO
= NVOOMNHISN)
OO
WNNIN S IWNNOO

B W=V
=2 S0 NNV
S 2O SO0 0O0
NNV
OWNS OS2 NNO B NON

30(1046)

ERROR MESSAGES

OOOOOOOOOOO0

D e — et et PANASY)
e wd

9077
9078
9079
9080
9081
9082
7083
9084
9085
9086
9087

OOOCTCOOOOOO
PRV
Y
VIV VY SV IV IV, )
= O NWRNLO Y—PUPON)

9073
9074
9075
9076

ON == SO
= NN — O
S N
ONWN =2 NO NN

—

9072

051440

H
FL
V)

040504
052101
020104
041517
0464127
040505

HSMNNOH—O—OSHOD=

9050
9051
9052
9053
9054
9055
9056
9057
9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9769
9070
9071

046440
030466

HOOOC

9048
9049

111

052522
042111
041440

051105

Q2 ad Q= =2 N = O \N—s —

9042
9043
9044
9045
9046
9047

0446440
052522

P o R QY

9041

060634
060642
060647
060654
060662
060670
060676
060704
069710
060716
060724
060732
060740
060746
060754
060762
060770
060776
061004
061012
061020
061026
061032
061040

14-SEP=81

MACYY1

OOOOOOOOO o [ leolalelale]
B8N0 ny I 2RV, TV, IV IV |
SNV NVNOOO L 1o SRRV W1VT,V
1,¥]
— ol \ S} —md —d —d
=\
= =\ — AN 2 NO
N
b = b
NNNOO2MNOO Ot w2 PNV
OOV
=2 = NN — N

Q03?7

9034
9035
9036
9037
9038
9039
9040

DSKLS C(TRL

o jololele] =lelolole R eolelolels
(%, SN N &
o
wVinL
N (¥,
) — o0 NN
=
=S O WNIW

CIR6BDO RK611
IR6BD.P11

STATUS CID NOT

INCORRECi/

LOAD

STATUS REG./

INTERRUPT OCCURRED/

SET/

BA]
BA16

000020
- 000400

WY
g

SEQ 0170

VL W

7
4
2
?

)

U
G

e B

Qi QO
g
T
S U
Uy AU ST U
Sy N
L

—

Qi QN

1
1
1
1
1

SN = ccd NDNIN) =2 =2 =2 2 PO NIN) =2 NIAUNIND = b —a Y =
ONNOOO
OV NOOOOODNOV—=OOONWo—
NNOOAR NN
=OWNNI SO NSOV
WS

1
1
1
1
1
1

394
384

7273
7399

000000
000000
0000060
000000
000000
000000
000000
000005
000040
000001
000200
000100
000000
000000
000000
000000
120210
000000

1
1
1
1
1

1
1
1

AMSSLG=
AMSGTY=
AMTYP1AMTYP2AMTYP3AMTYP4=
APASS =
APRIOR=
APTCSU=
APTENV=
APTSIZ=
APTSPO=
ASWREG=
ATESTNAUNIT =
AUSWR AVECT1=
AVECT2=

000000
000000
000000
000000
000000

9354
1172

9954
9804

AMAMS1=
AMAMSZ2=
AMAMS 3=
AMAMS4=
AMSGAD=

8 14

30(1046)
14-SEP-81
15:10
PAGE 172
CROSS REFERENCE TABLE == USER SYMBOLS
1213

N = b b ed =2 NI
-~ JOO ~
OO
(AN 1N To R ele XV, |

AMADR3= 000000

£ YADR4= 000000

9374

000000

AFATAL= 000000
AMADR1= 000000
AMADRZ2= 000000

1
1
1
1
1
|
1
1
1
1
1
}

VACY11

NNV AL NN PO NN

000000
000000
000000
000000
000000
000060
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

7
1
1
1
1
1
1
1

NN NSNNNNNNN NN NN NSNSNNSNNNSNNNSNSNNNSNSNNSNNNN NNNW NN

7 B

T I

1 I

T I

T A

ABASE = 177440
ABORT
050204
ACDW1 = 000000
ACDWZ = 000000
ACLO
000010
ACPUOP=
000000
ADDWO = 000000
ADDW1 = 000000
ADDW10=
000000

DSKLS CIRL PRT2
14~SEP-81 13:47

NORINLAVLNUNLNINL AL NNLNLNLNL NN NNV NNV AL ANV NN NV NN AL NN

CZR6BDO RK611
(ZR6BD.P11

7397

CZR6BDO RK611 DSKLS CTRL PRT2
CIR6BD.P11
14=SEP=B1 13:47
BA17

BITO
BITOO
BITO1
BITO2
BITO3
BIT04
BITOS
BITO6
BITO7
81708
BITO9
BIT1

BIT10
BITI1
BIT12
BIT13
BIT14
BIT1S
BIT2
BIT3
BIT4
BITS
BIT&
BIT7
BIT8

= 001000

=
=
=
=

=
=
=
=
=
=
=

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

BIT9
=
BPTVEC=
BSE
CCLR
=

000001
00000]
000002
000004

000010
000020
000040
000100
000200
000400
001000
000002

002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400

001000
000014
000200
100000

9814

9174
9074
906#
9054

914
913
912
91
910
909
903
1011

4394
9154

4395
1012

8974
896#
8954
89,4
8934
89524
914k
9134
9124
9114
910#
9094

9084
9244
10174
9894

2874
3249
3658
3944

- 002000

CERR

160000

CFMT

- 010000

CHKPAR
(KSWR =
CLEAR
=
COE

042360
104407
000005
001000
(R
= 000015
CRLF
= 000209
= 004000
(10
CYOIN
004252

= 100000
DK
DDISP = 177570

977
917
916
915

9C4H
90
9024
9014
9004
8994
8984
9164

4318

C 14

WA(Y11 30(1046)
*4=SEP-B1
15:10 PAGE 173
CROSS REFERENCE TABLE == USER SYMBOLS

982
983
985
986
987
988

994
995
996
978
979
980
981

2498

2890
3299
3676
3983

4360

1010

1029

7067
7085

7284

1001
1002
1003
1006
1005
989

1020
1021
1022
1023
1024
1006

SEa 0171

4206

4262

4392

4439

4440

1068
1054
4236
1056
1057
1041

3322
1069
4237
7268
7053
1058

726!
7092

4438

1053
1038
1055
1039
1040
1025

4533

4534

1013
1014
1015
997
998
999

1032
1033
103%
1076
10i7
1018

6667
1047
1048
1035
1036
1037

1062
1063
1049
1050
1051

1064
1065
1066

3320

2570

2587

2621

2639

2677

4050

4072

5996

4396
1031

1000

2937
3326
3715
4005

4445

5842
6924
3231
6562
5203
6562
2624

1019

2953
3365
3737
4011

4507

5586
6806
9824
6477
9884
6392
QB5r

5764
6885
3223
6546
4912
6477
2623

5920
6939
4936
6632
5278
6704
2848

2479
7052
9624
10194
8320
8334
9834
23364
3271
6370«
10254
8304

70074
7257
2805

7904
7283
3477

79514
3482

7460
2426

7470
7414

7470

3091+
273«
6455«

3099
3274+
6540

3110
3275
7975

1145

2389

44B2

4531

4664

2546

4301

4307

4332

4337

2701

2741

2764

2770

2811

2827

4078

4110

4132

4138

4179

4234

4289

6074

6159

6244

6330

6415

6500

6585

6724

4943
6648
5433
6783
2850

4987

5339

5355

5417

5433

6205

6221

6461

S511
6B6S
2911

5743
6927
2913

5821

5899

5975

6053

6136

6307

2974

2976

4243

4936

493

4987

3781

3785

5883

5899

3140«
3362+
7387

3141
3415+«
8006

3158«
3475«

3167
3535«

3203
3505«

3205+
3655«

3222+
g114e

3230
£199%

3241
£285e

1052

2993
3383
3743
4917

4483

1067

3011
3418
3782
5070

3042
3436
804
S147

2537

3060
3478
3810
5224

4535

3097
3496
3849
5299

4666

3118
3538
3871

5376

4667

3165
3556
3877

5454

3181
3598
3916

5532

3228
3616
938
5609

DFO50
DFOS2
CFO62

047542
047576
047622

DFO65
DFO67
DF100
DF126
DF224
DF230
DF256
DHOOCA

047646
0476772
047716
047732
047756
050012
050046
050271

DHO00B

050307

DHO00C
DHOOTA
DHO01B
DHO01C
DHOO1D
DHOO02A
DH0228
DHOO6A
DHOO6B
DHO12A
DHO12B
DHO17A

050322
050353
050372
050410
050447
050506
050534
050563
050610
050634
050701
05G747

DHO178
DHO31A
DHO31B
DHO35A
DHO35B
DHO50A
DHOS0B
DHO62A
DHO62B
DHO67A
DHO678
DH126A
DH1268B
DH224A

050775
051021
051050
051076
051135
051173
051221
051247
051346
051443
051502
051540
051557
051575

10374

2277
1238
1243
1263
1283
1308
1359
1380

14646
1458
1506

1631
1788
1866
1944

2022
2148
2226
1525
1539
1593
81764

2100

2124
2256
8020
8178

8022
8180

2275
8024
8026
8028
8030
8038
8040
8052
8054
8066
8068
8080

8082
8094
8096
8108
3110
8122
8124
8146
8148
8166
8168
8182
8184
8196

5357

80164
1680
1248
1268
1288
1313
1364
1386

5513

62264

6480

6565

1686
1253
1273
1293
1318
1369
1392

1692
1258
1278
1298
1323
1374
1398

1698
80324
80464
1303
1333
8088+
1404

1704

1710

1716

1722

80184

1410
1338

1416
1344

1428
1349

1434
1354

1440
80744

80604

81024

1476

1482

1488

1494

1500

81304

1674
1806
1884
1962

1728
1812
1890
1968

1734
1818
1896
1974

1740
1824
1902
1980

1746
1830
1908
1986

1758
1836
1914
1992

1582

1599

1605

1452
1464
151¢

81164
16470
1518

2028
2154
2232
1532
1546
1617

2034
2160
2238
1587
1650
1752

2040
2166
81404
1637
1656
2244

2046
2172

205¢
2178

1643
81604
2250

81504

2106

2112

2118

81864

1662
1794
1872
1950

2130
2262
8034
8188

8036
8190

82584
8156
81°8
8042
8044
82814
82854
82894
82934
82974
83044
83114
83154
83194
83234
83274
83334
83394
83434
8192
8194

83694
83754
83804
83834
83864

1648
1800
1878
1956

2136
2267
8048
8202
3059
8204

1552

2142
2272
8062
8216
8064
8218

82634
82664
8056
8058

8070
8072

821G
8212

83474
83584

1558

1564

1570

1576

mam

047232
047236
047272
047326
047362
047416
047452
047506

SEQ 0172

1764
1842
1920
1998

1770
1848
1926
2004

AML
A
s

= 000400

D 14
30(1046)
14-SEP-81
15:10 PAGE 174
CROSS REFERENCE TABLE == USER SYMBOLS

1611

1624

2082
2208

1776
1854
1932
2010

2088
2214

1782
1860
1938
2016

2058
2184

2064
2190

2070
2196

2076
2202

8090

8104

8118

8132

8142

8152

8162

8172

8078
82564

8092

8106

8120

8134

8144

8154

8164

8174

8084
8086

8098
8100

2112
8114

8126
8128

8136
8138

82694
8275#

82004
82144
8076
82534

2094
2220

81704

00T

DFO00
DFOO1
DFO0C
DFO06
DFQ12
DFOI7
DFO31
DFO35

MACY11

CIR6BDO RK611 DSKLS CTRL PRT2
TZR6BD.P1T
164-SEP-81 13:47

CIR6BDO RKE11
(ZR6BD.P
DH224B
DH230A
DH230B
DH2S6A
DH2568
DI
=
DISPLA
DISPRE
DLT
=
DMD

051630
051665
(051712
(051736
052002
040000
001142
000174
*09000

= 000040

DSKLS (TRL PRT2
14=SEP-81 13:4°
8198
8206
8208
8220
8272
9R7#
1145#
1077~
10064

7260+

10484

2512

2513

2571

2575

2996

3043

3047

3048

2098

3102

DRVMSK=
DRVTYP
DSC
=
DSWR
=
DTE
=
DTYE
=
DT000
DTO01
DT002
DT006
DT012
DI017
DT031
DT035
DT050
DT052
D102

000007
00/ 266
040000
177570
010000
000040
046576
046602
046622
Q46644
046666
046714
046736
046760
047004
047026
047042

275¢%
3304

2812

3366

3929

23984

4294

4319

4323

5414
5729

5419
5730

5420
580¢

6453
6766

1029#

6395

10364
10344
10134
23334

4418+

4558
4739
9934
23428
10404
8384
1022#
10154

2276
1237
1242
1262
1282
1307
1358
1379
1445
1457
1505

1630
1787
1865
1943

2021
2147
2225

3917

L671
5107

6112

3599

3604

<996

5050

5128

2678

2684

2685

3103

3166

3170

3171

3229

3233

3234

324

3425

4051

4063

411

4,938
5189

4939
5190

4953
5261

3659

5498
5880

6538
6851

2627

3419

5467
5808

4933
5184

2626

3372

5492
5807

65123

6565

3605

2622

2878

4447

6122

6480

3371

2576

2875

4371

4696
5113

6464
6848

2816

6324

4695
5112

6463
6767
5048

2815

33905

3545

6040

000200
000040
000010
004244

23809

3544

4670
5028

DRDY
DROT
=
DRPAR =
DRVCOD

84004
8404
846104

7107

2743

SEQ 0173

8391«
83964

2397+

3867

- 000001

E 14

30(1046)
14=-SEP=-B1
15:10
PAGE 175
CROSS REFERENCE TABLE == USER SYMBOLS

2397
4913
2499

2300

DRA

MACY11

3664

4509

5569
5885

2879
3665

2938

2941

2942

2994

3479

3484

4123

4185

4240

4290

4293

4954
5264

4979
5265

4980
5336

5022
5341

5027
5342

3716

4585

4589

5574
5886

5575
5958

3728

4590

5646
5961

3783

4640

3485

2998

3795

4644

3539
3850

4645

5651
5962

5652
6034

5724
6039

6691

6763

6197

6207

6208

6283

6293

6294
6685

6690

5205

5357

5435

5513

5590

5667

6139

6224

6310

2605

4364

4370

4372

4,381

4389

4360

4655
6666

4663
6667

4704
7964

4721«

4722

’970#

6548
6852

6549
6929

6628

6634

6635

6368

6378

6379

5048
5667
5978
2564+

5050
6310

6565

2572

2582

2592

4579+
4745

4586
4757

4598
L4774

L4615«
4775

4616
6622+

4634
6631

4641
6649

6290+

6375+«

6460+

€545+«

8006

1691
1257
1277
1297
1322
1373
1397

1697
79644
79674
1302
1327
7978#
1403

1703

1709

1715

1721

796
#

1409
1328

1415
1332

1421
1337

1422
1343

1427
1348

1433
1353

1439
79754

1475
1551

1481
1557

1493
1569

1499
1575

7988«
1581
1757
1835
1913
1991

1604
1769
1847
1925
2003

1623

1745
1829
1907
1985

1598
1763
1841
1919
1997

1619

1739
1823
1901
1979

1775
1853
1931

1781
1859
1937

2009

2015

4419

4436

6119+«

6204

1144

2388

5436
79604
1679
1247
1267
1287
1312
1363
1385
1451
1463
1511
1661

5514
1685
1252
1272
1292
1317
1368
1391
79854
1469
1517
1667

1871
1949

1877
1955

1793

2027
2153
2231

1799

2033
2159
2237

4448

1673
1805
1883
1961

2039
2165
79904

L4478

1727
1811
1889
1967

2045
217

2604

4480+

4502+

4508

451

4520

4528

4529

4557

79814
1487
1563
1733

1817

1895
1973

2051
2177

2057
2183

2063
2189

2069
2195

2075
220

2081
2207

2087
2215

2093
2219

cIR6BDO RKO1T
TIR6BD.P1T

DSKLS CTRL PRY2
"4=SEP=-B1 13:47

DT065
DT067
DTI00
DT126
DT224
DT230
DT256
ECCw
=

047066
047076
047172
047116
047126
047162
Qu7214
020000

1524
1538
1592
7999#
2099
21¢3
2255
10564

EcH
=
EMTVEC=
EMO00
EMIN

000100
000030
052050
001300

EMI00
EMI101
EM102
EM103
EM104
EM105S
EMI06
EM107
EMI08
EMI09
EMI10
EMI11
EM112
EM113
EM114
EM11S
EM116
EM117
EM118
EMI119
EM120
EM121
EM12¢
EM123
EM126
EM125
EM126
EM127
EM128
EM129
EM130
EM131
EM132
Em133
EM134
EM135
EM136

052115
052203
052252
052314
052370
(052437
052472
052576
052673
052773
(053046
053123
053166
053321
053433
053476
053570

10164
9274
2276
12358
2898+
3047«
2620
2804
2867
2930
2992
3041
1240
1260
1280
1305
1330
1356
1377
1407
1443
1455
1479
1503
1522
15€7
1584
1590
1621
1634
1677
1749
1785
1809
1833
1857
1881
1905
1929
1653
1977
2001
2025

EM137
Em138
EmM136
EMIL0

053663

054000
054113
054202
054276
054377

054500
054564
054632
055051
055116
055214

(55275
055342
055424
055511
055550
055674
055661
055725
056001
056061
05617
0562°3

4064

2049
2073
2097
2121

MA(Y'Y

30(1046)
14=-SEP-81
15:10
PAGE 176
CROSS REFERENCE TABLE == USER SYMBOLS

SEG 0174

1531
1565
1616

1586
1649
1751

1636
1655
2243

1642
79964
2249

79984

2105
2129
2261
2756

2111
2135
2266
2758

2117
2141
2271
3729

80014
80064
8011«
33

3796

3798

3863

3865

3930

3932

3997

3999

2372+
8415#
2620«
2904+
3058«
84204
B436a
84434
84494
84574
846w
1245
1265
1285
1310
1335
1361
1383
1413
1449
1461
1485
15C¢6
1529
1573
8694
1596
1628
"640
1683
1755
1791
1815
1839
1863
1887
1911
1935
1959
1983 2007
2031

2573«

2637+
2G08+
3065+

2644+
2930«
3071«

2650
2951+
3075+

2654+
20671+

2804+
2067+«

2825+
2971«

2835+
2992«

2841+
3009+

284S+
3016+

2867+
3022+

2588+
3026*

1259
1270
1290
1315
1347
1366
1389
1419
85564
1467
1491

1255
175
1295
1320
1346
1371
1395
1425

84694
84814
1300
1325
1351
85164
1401
1431

1473
1497
1725
1543
1737

85624
85724
8582#
1549
86094

1608

1614

86294

1653
1695
1767
1803
1827

1659
1701
1773
BG94n
87014

1665
1707
1779

1875
1899
1923
1947
1971
1995
2019
2043
2067
2091
2115
2139

87214
87284
8734
874€N
87524
87584
87654
87724
8780#
87894
8802#
8811«#

40¢6

2055
2079
2103
2127

4124

1515

1536
1579
1602
864u4

1647
1689
1761
1797
1821
1845

1869
1893
917
1941
1965
198¢
2013
2037
2061
2085
2109
2133

6126

1851

87124

79944

84924
85034
85114
85254
1437

85424

1555

1561

1731

87764

1671
1713
86674

1743
1719

86514
86604

1306
1834

1331
1858

135”
1882

2146

89224
1714

2170

3065
1444

16492

1568

1450

1474

1498

2845

2908

1408

1504
1954

1550
1678

219¢

1930

2256

2265

2637

N =Py
—
nNO
— Qo
— O ~NON

1402

3016

N =Py
—
-~ 00 —
Q0 ~ W
oG

1352

88944

1432

ND
— =2

1326

1396

N —aN\)
—a

3071

— QD ~2 N
S O0DWoD
WONY
OGO MNOD

3022

2961

NOW
—=ON
OO0

2967

1307

1660

2026
2888

1678

2050
2951

89294

1666

2056
1774
2092

1622

2032
1672
2068

— Q0 — G0
O~
H NN

8949

N =2\
—>
=00
—
HNOO
N0
O00
N

89432

9006:
90104
90194
90284
90354
90414
9048#
1732

174«

1780

2386

2398+

7007«

7020+

2519«
2848
3007

2522
2850+
3045+

3801
4649

3848+
4650

1888

1912

1936

2200

2224

89554

2236

2260

2270

1942

1966

1924

1948

3433

1918

7061+

7064+

2698
2931+
3223+
3613

2736+
2939
3246
3657+

2230

90554

3417+«

‘894
2206

7362

2086

S NNWNNLND
N
H OOV
O = OO0~
WWANNNO
O &

2062

1822
2134

2014
90614
90664
90744
9079
2405+

061072
061127
061202
061240
ERRCNT
004242
ERRVE(= 000004
£ .ASOF
004176
£.BA
004164
004160
: .08

2835

1347

EM2026
EM2027
EM2028
EM2029

060106
060200
060300
060400
060430
050513
060576
060647
060710
060762
061032

2644

1321

EM2025

060020

1420

N —
—~

EM2014
EM2015
EM2016
EM2017
EM2018
EM2019
EM2020
EM2921
EM2022
EM2023
EM2024

057774

8828#
8840«
88504

~
=
o
oo

EM20°3

057667
057731

918«

8820«

2187
221
2235

SN NWNINNL
R
OO HOCIV
NONNWNOAO
~NOO~NO0oW

Em2007
€m2008
EM2009
EmM2010
Em2011
EM20°2

— —~ 000000 CON) = —4 N —NY —2>—20000C0NLMNIND no
O hele =2 00NV
O W ONINOCOCONIN)
——
O 0N — U0 NO O V00 ~NONNUO
00 (¥,]
o
£Soor0
~
» LR3

EM2004
EM2005
EmM2006

1786

2163

SEQ 0175

1972

l\m —_Nn

057223

Em2i02

057174

EM2002

—B A 2P~ —2PNINLAONOAIPON
DY
'Uo'\)w'\)u'\)l\)“)'\) — el
ONND NS NWON N SN O
W
OO 2O OO NN O W —

057067
057145

=2 2 OO — — —a

m2000
#2001

056750

OOV
&S O0OWS
NONoOWN00
o
O
ONOO

057022

N~ —d =

EMI4?

EM14S
EWIL6

G 14

30(1046)
15:10
PAGE 177
14-SEP-81
CROSS Rf FEREN (E TABLE == USER SYMBOLS

[N
P o S

056507
C56€0

—

EMIL4

13:4"

oo~ AOr

056335
05641°

14=5¢P=81

VALYTT

S uanorOne
N NIWAW
O Qo Ve
WO
AYEW N JVNLV,
e
]

Em141
EMI42
EM 63

DSKL.S CTTRL PRT?

£ wwnorororong
PO RO
PONUND = —d ced =t =d D e —d =t —d ok md B B b (YD) —h D e =D D D —d —d —b b b NN b =R —A N —2 =2 PINUNONI
— NANNO T TOWWNONITOUN Y NONO OO O O
e O NOVINO
WV E S NN
N O O NN OPUONUNROIRNIFON)
— — —a
N =N
DOOMNIWES
DTM NNONIONR
OO OO0 S WL OO —=OQO =N =20VOREO
&~
O
YNV NN 2NN 2 OO0
OB WS NO200ONIONIROOO
O NOW N =& YOW it al’al =l 1aVTe RiV o b nte Yo Yo XV W N NE_PAYe Yo P ol YV RS B NIV RFo IV, }
»
s Ry

"IROBUI RK61T
“1R68D.P11

4049+
4823+

6067
482¢

2761
2949
3293
3673

6105
4501

TIREBDY RKOYY
CIR6B8D.PY

£.7S¢?

0675

DSK.S CYRL PRT2
T4=SEP=B81 13:47

MAIVY'Y

4912«

(943

004166

5¢03«
5437
5691«
5929
6227
6482
6783
6942

5207
5459«
5695
5975«
6226
6505«
6786+
6944

2303

(598

4599

4605

5204

5210

5230«

5236

7999

4905

5046+

5053

5075+

5079

5126«

5130

5278«
5515
5769«
6005
6307«
6567
6815
7967

5282
5537«
5773
6053«
6312
6590
6865+
7970

5304
5541
5821+
6057
6335«
6594
6869
7975

5308
5588«
5825
6079+
6339
6648+
6890
7978

5355«
5592
5847«
60583
6392«
6653
6894
7981

5359
5614
5851
6136
6397
6704+
6925+
7990

5381+
5418
5899+
6141
6420+
6708
6926+
7994

4704

4705+

4711

4757+

4758+

4764

4824

4829

4902+

5279«

5285

5305«

5311

5356

5362

5382«

5388

5434

(988«

4994

5466
5744
5982

5512«
5750
6002

5518
5770«
6008

5538«
5776
6054+

5544
5822+«
6060

5589«
5828
6080+«

5595
5848«
6086

5615+
5854
6138+

5621
5900+
6144

5666+
5906
6165+

5672
5926
671

5048«
5288
5539+«
5779
6055
6319
6592+
6875

5062
5306+
5547
5823+
6063
6337«
6600
6692+«

5077
5314
5590«
5831
6081+
6345
6651+
6900

4601+
5078+«
5317

4608
5088
5358«

4707
5129«
5368

4714
5139
5384

4760
5155+
5394

4767
5165
5636

4825«
5206«
5446

4832
5216
5462«

4904
5232«
5472

4990
5242
5514+

4997
5281+«
5524

2 OTA
T
5291
5540+

6928
2755+

6936
2758«

;gz«
!/

7629+

3932+

6903
2754+«

3941

3996

5668«
5912
6167«
6433
6732«

5694+
5938
6225
6492
6789«

3999«

5678
5928+
6177
6481+
6742
7990
3731

6947
3728+

6421
6705
8001

6427
6711
8006

5159

5000
5280+
5521
5771«
6011
6310
6574
6867+«

5627
5902+
6151
6423+
6717
6943«
2767

6400
6656
7990

5153«

4989+
5239
5513«
5753
6003«
6259
6565
6821

5617«
5860
6140
6407
6707«

6394+
6650+
(6897

5133

4903+
5231+
5469
5745«
5985
6251+
6515
(13«

5601
5850+
6092
6396«
6662

6342
6649«
6891+

5127

4770
5213
5467%x
S701
5977+
6233
6507+
6796

5591~
5834
6082+«
6348
6652+

6336
6597
6872

5082

«759+
5205+
5443
5693+
5935
6224
6489
€788+

3009

6315
6591+
6866+«

5976«

4717
5162
5435+
5675
5927+
6174
6480«
6739

8001

6309+
6570
6818

5056

4706«
5154~
5391
5667«
5909
6166%
64630
6731+

7990

6256
6564
6812«

5047+

4611
5136
5383«
5624
5901«
4748
€42«
6714

23124
23134
23054
5059
5307«
5550
5824+
6066
6338«
6603
6893«
23094

6479
6730

8004
3740

5704
5978+«
6236
6508+
4799
8009
3795

57646
5988
6252
6518
6814+
8011
3798+

5756
6004
6262
6566«
6824

5772«
6014
6311+
6577
6868+

5782
6056+
6322
6593
6878

3807

3862+«

3865+

4008

4063«

4066+

4075

4123«

4126+

4135

23104
2711
2965

2520«
2759«
2977+«

2582+
2780
3005+«

2597
2806+
3020

2633+
2832
3054

2648
2839
3069

2691«
2851«
3109«

2692+
2B69+
3133

2693+
2895
3177«

2694+
2902
3194

2655+
2914+
3240«

2696+
2932«
3264

2706
2958
LT

3730

3760

379G«

3827

3866+

38654

3933«

30661

4000«

4028

4067+

4LYBS

4127

4315
L682

4330
4950

4345
4965

4389+
7961

4305
7964

2760«
T 1w
3244

2783
3112y
3245

2822+
3113
3259

2843
T 1.
3cn?

2885+
3128
3311

3336

004210

5038+«

5233
5511«
5747
€001«
6253
6562«
6811+
7964

4600+
5128«
5345
5616
5857
6139+
6404
6706

2302#

004212
004214
00/ 174

E.MRY

54660«
5698
5976«

4914

8011

(991

5229+«
5463
5743«
5979
6249+
6509
6790
7961

6250«
6512
6793

E.ECPS
E.ECPT
E.ER

(004206

4913«

8006

4987+

SE3 G176

6229
6506
6787+

2308#
2307«
23044
5085
5357+«
5598
5849«
6089
6395«
6659

E.MR?

8001

6223
6485
6736

004202
004200
004172

004204

4960

5156
5633«
5669
5925+«
£168
6477«
6733
6933

£.08
E.DCYL
£.DS

E.MRT

4944

515¢+«
5385
5665+«
5902
6164
6424
6729«
6927«

5449
5692+«
5932

E£.DA

30(1(046)
14-SEP-81
15:°0
PAGE 178
CROSS REFERENCE TABLE =-- USER SYMBOLS

4155
4414
7967

23114
2906
313¢

3378+

4181«
4438
7973

2521«
2948
3159«

73912

4196
4474
7675

2583«
2969
3191

3431

6213«
4682
7978

2600
3006+
3196

7453

4236
(S28B+
7983

26340
3024
32060

391«

4252
L4534«
7985

2652
2055
3241

3513

4269
4553
7988

2697+«
3073
3242w

3551«

4299+
4667
7996

2714
3110«
3243

3573

3611

3633

3671

3693

(IROBDD RKG11
CIR6BD.PM

DSKLS CIRL PRT2
164=SEP=81 13:4

MA(Y1Y

3312«
3432«
3830

3313«
356
3867

4206
L4639

E.SPAR
£.w(
FMTE
=
GNS
=
GO

(004216
004162
000020
weeven

= 000001

GTSWR = 104406

HDCODE

HVRC

004250

= 000011

= 000400

IDAE
=
IE
=
ILF
=
ILLFUN
=
INTR

7967

§2140
4471
797%

[ 14
30(1046)
14=SEP-81
15:10
PAGE 179
CROSS REFERENCE TABLE == USER SY"BOLS

3T
3492+
31897

4238«
4683
7975

3IiS5«
3516
3934

4257
4529+
7978

3T he
I55¢
3964

4262
4535+
7983

TT17¢
3576
4001

IF18e¢
3612«
4031

7985

4270
4550

Sea €177

3319
3636
4068+

33U
3690
4128

3339
3733«
4158

3379«
3763
4183

3396
3800
({201

7988

6312
L666%
7996

3322«
3472«
409N

4300+
6663

4331«
LEB7

4342
4949«

4390
4970

4396
7961

44531
7964

2314n
2300+
1014w
1076
7954
9774
5821

2425
7955
4987
5899

6978
7956
5038
5975

6985
7657
046
6053

7943

7944

7945

7946

7947

7949

7951

7952

7953

5126
6136

5203
622"

5278
6307

5355
6392

5433
6477

5511
6562

5588
6648

5665
6704

5743
6926

23354

2671«

2680

2692

2718«

2719

6115«

6117

6200

6202

6286+

6288

6371

6140
4823

6311
4852

6356

6481

6566

6925

6930

6951«

6952

8011
4988

5047

5076

5127

24620

6373
8304
10184

79494

6456
7412

6458
7470

6541«

6543

7967

8006

002000
000100
000001
004270
000300

10204
9784
10104
2343
9734

6056
4806
6928
6919

= 000100

9974

4599

4705

4758

4824

4902

4913

5460
5976
6506

5512
6002
6564

5538
6054
6591

5589
6080
6650

5615
6138
6705

5666
6165
6730

5692
6223
6787

10514

2512

2575

2626

2684

2746

2747

2815

2878

2941

2998

3047

3102

4247
4938

4293
4953

4323
4979

4375
5027

4376
5112

6122

4451
5189

6207

00000
172160
042450
000114

1000#
9338
7013
9324

7009
70264
7013«

7014

ME SMSk= 000017
MEJD
= 002000

10454
10534

2755

3728

3795

3862

2735+«
4108r

2742
4437+

2754
4446

6787

€£86¢

4049
3312

IOTVEC= 000020

MC(LK

000012

- 000400

9254

5230
5744
6250
6812
8314
3170
3854

239;
MDS
=
MEMBASMEMERR
MEMVEC=
MERD

001000

MIND
= 000200
MSGCOD
004246

MSP
=
NED
NEM
=
NEWPAS
NXF
=

000100
010000
004000
005254
000004

1052#

10504
233%#a
G048
10454
10034

OFFSET= 000015
OFFVAL
004254

10024
24794
10124
9664
%g;gv

OFST

10318

= 000004

2370+«

5276
5770
6309
6866
7464
3233
38°S

5885

7001
5902

2371+

530¢
5822
6336
6861
7470
3304
3921

5961

3293
;ggfin

3302
3301

5048

5050

5356
5848
6394

3371
3922

6039

5382
5900
6421

3424
3988

5434
5926
6479

3484
3989

3544
4055

5153

5204

3604
4056

3664
4115

3720
4116

3721
4190

3787
4191

3788
4246

6293

4514
5341

6378

4515
5419

4589
5497

6548

4644
5574

6634

4670
5651

6690

(K95
5729

6766

3929

3996

4063

4123

2760
4481

2775
7970

2787«

2788

3713

3780+

3847+

3014+

3681«

4053
3329

3343

3344

3363

3416

3476+

3536+

3596+

36560

6452
5264

6463

rIR6BDD RK6TT
TIR68D,.PT

13:¢~

MACY11

004260

2660

3617

= 000003

8230~

3422

3714

4440+

3718

5727
4459

4812

4854

7008

7888+

7900~

7901+

6394

4399

4406

«323

6324

4509

2357
835

4800

2376+

7887«
5219«
6239+
5220+
6240
5221«
6241
5222+
YDA

PARM
004276
PAR.EN= 000001
PAY
= 000020

= 004000

5743

4466

4484~

4530~

7888

7901

6720
5605«
6721+«
5606+
6722+
5607+«
6723«

5604+

65330

4538

6565

5681+
6802+
5682+
6803+
5683+
6804+
5684«
6805+

5759+
6881+
5760+
6882+
5761
6883+
5762+
6884+

5837+
8004
5838+
8004
5839+
8004
5840
8004

5915

5075
5588

6079
6648

whrOrD
[@Te +To N
O —-ry
NN

PARBIT

P(D

SEQ C178

[0 Yo SV, 1V, ]
NO WO
VeV TWNY
OW~NO

050072
050123
0SC127
050157
000200

PCA

J 14

30(1046)
14-SEP-81
15:10
PAGE 180
CROSS REFERENCE TABLE == USER SYMBOLS

= 020C00

cPROOY
OPRO0Z2
OPROC3
OPROOG
OR
=

PACK

14=SEP=81

PRT?

nonONY

oP1

DSKLS C(TRL

= 010000

PGE
PIP

= 002000
= 020000

PRC
PR1

= 000000
= 000040

PR4
PRS
PR6

= 000270
= 000240
= 000300

PIRQ
= 177772
PIRQVE= 000240

1064410
000021
100000
000025
1064411
104412
000200

RECAL = 000013
RESREG= 104414

RESTRY
RESVEC=
RKASOF=
RKBA
=
RKCST -

004306
000010
C00014
(000004
000000

79524

79534

2444

4597

5229
5743
6249
6811
2995

79564

79544
4756

5304
5821
6335
6890
3657

4901

5381
5899
6420
6942
3982

4987
545G
5975
6505

6037

6053

5916+
5917+
5918«

5152
5665
6164
6729

23514

3301+

3421«

3541+

3661+

2498+
2682+
2876+

2504
2701+
2890+

2570+
2744w
2939+

2579
2764+
2953

RICNR =
RIDATA=
ROGATE=RDHEAD=
RDLIN =
RDOCT =
RDY
-

006226

P.ER

004224

5295+
6326+
529¢
6327+
5297+
6328+

5449+
6495+
5450+
6496+
56451
€497«
5652+
6498+

P.DS

5066+
6670+
5067«
60712
5068+
6072+

5371«
6410+
5372+
6411
5373+
6412+
5374«
6413+

004222

5294+
6325+

[V, Oy

P.(S2

5065
6069+

O =P

004220

P.(ST

= 177776

PWRVEC= 000024

77776

[+ X2 .3%,1Y,)
VOWVIO
RO =N
Ny — — 00

PSW

- 00C340

2327

O
WV
O
OO
WO~

PR7

= 000100
= 000140

rornurD

PRZ
PR3

2639+
2827
3042

5023+
6198+

5509
5999

5
5
6

5150

5027«

4246+
4447+
LE70v

5028+«

*
»

»
»
=
»

»
»
»
»
»
»
»
»

»
n
2
*
%
»

»
»

»
%
%
»

4
4
4

5031+«

4247+
4451
4671+

5335«
5662
5998
6367+
6687+

€276

5767
6305

6863

6220
6782

4240%
La46r
4645+

2
2
3
3
3
3
4

6461

5202

4191.
4376+
L6446
5022+

2575«
2812+«
3047+
3305+
3599«
3792
4051«

5613
5997
6217

5690

3783«
3988+

3539«

5
5
6

3725
3984+

5632
5924
6476

4SN00~N
NOooO~N
S~

4900

5380
5898
6419
6941
2571«
2751
3043+
3304
3545+
3788+
3993

[0 Y0
RV,
~N =~
rnNONON
NNOW

4822

5354
5846
6391
6932
2513«
2747+«
2999+
3300«
3544
3787«
3989«

OO Won
OOWNO

4755

5303
5820
6334
6889

NS
NWWWINND
—~ O VWAN—=00NrH
=008
N =t D AN = O NN
O~ Q0 £~ \0 =0 & O WNCO ~N

4702

6560

€503

6
6
6
5
6

6475

5
5

5897
6418

5260+
5585
5922
6282+
6631~

4985

»»

3420+
5570+
6686+

3367«
5493«
6629+

S O 8 BN NN NN
oo o VAV
[o YV] —— NO NVUN —= O NW—= 0O NN —
[
1o
-] o OO\ NS BN~ (N0~
[aS
e -] O NEHMAI—=OMNININN QO NV CD N &

3660+
5881+

3230
56415+
6539+

5457
5973

NVANVAWINASS
BN B BN
NN NN

3
5

6289+

6
6
6
¢

NO NVHN = O NN = O
WA —
N WWWS B NS ON 2SN~
O O W N N0 OO WNWON N

5726+

5109

6203+

5494+
6630+

6537+
6847+

6118+«

5431
5623

[0 Yo RV TV IV, IV LW B LW W
X
VI TWI VWS
=2 \O NN = 0O NWO O NN N —
SO ND WSOV
O =000~
OWN

474640
4984

5
5
5
5

5024+

4639+
4898

4511«
4BA43«
5149
5491w
5818
616

4899

2746+
2998+
3234+

4190
4375+
L6460
4980

6502
6808

6688+
6885+

6120+
6330«
6554
6772
6940

47564

4701
5379

2743«
2994«
3233«
3485+

4448w
4821
5123
5456
5801+
6133

6849+

5895

5277
5768
6306
6864

6075
6303
6546+
6764+
6939«

5687

VOV
WVNOWVIO
GOV
ooV

- 000026

4596

6454~

5891

5503

VNS BBNWNWNWNWNIND
——= OO
WN—=0
= WNOORNNNO
NN
WO SOV ororRVoN

63(9«

4595
5353

86+

5299+

RKMR1

6074x
6299
6501
6725
6931

4935«

5845
6390

RKECPS- 000030
RKECPT= 000032
= 300014
RKER

6474
6780

= 000006

- 000012

5«

4372+
4797+
5106+
5430
5766
6111+

RKDB
= 000024
RKDCYL= 000020
RKL'S

4243

3231
3428
3516
3804+
3986+

4138+
4507«
4820
5025+
5199
5417
5609+

4059
4291+
4674
4897
5110+

oNONN
S
VO WO
O —=0
2 OO0

RkDA

4050

NES BN 8 D WNWNINIWINUN
—ONWNNIOO
N NOOOON
= OOO\NAINONO
=N
——
NOONOO WO

RkCSZ2 = 000010

5042
5262+
5454+
5657
5843
6049
6291+
6500+
6724*

NHEONWO
N

5037
§225
5425
5649%
5842+
6045
6245
6473
6700

3852«

3118«
3
3
3
3

4077
4234+
4593
4BS2+

3106
3326+
3538«
3718+
3877+

NNO
O
ONWN-—=
S0

4005«
4188
4587+«
4846

SEQ (179

2 ONSNVOCORNOCOWVT
OOVWVNIOWNNORS—=NY
o

3668

3849+

3662+

3097+
3302+
3488
3676+
3858

13:4~

14=5EP=81

K 14

14-SEP-81
PAGE 1817
15:10
30(1046)
CROSS REFERENCE TABLE == USER SYMBOLS

ZIR6BD.PY

MACY11

(WL
U W P P o o
AV (VT W) N
OO OONNVO O N &N —_—
NONNOSHOWNY—=
0O O
&~ =2 NOD O N = N0 00 O

(IROBDD RKG11 DSKLS C(TRL PRT?

2685+
2941+
3171+
3479+
3720+
3900+

4120
4370+
4589+
4954
5790+

(Z ROBDO RK611 DSKLS CTRL PRTZ
TIR6BD.P1T
14-SEP=81 13:4

WACY11

§193e
56492

5261+
5497«

RKMR? = 00C034

RKMRY = D00C36

9524

3238

5730+
5965«
6283«
6548+
6767«
2517

3309

3609

§5414%
5651«

5419¢
5652+

5620+
5655+

5423
5724

5885«
6123+
6382+
6685+

5886+
6126
6453+
6690+

5889+
6197«
(4L
6691

5958«
6207«
6LbLr
6694

5961«
6208
6467
6767«

2883

2946

3003

3052

3107

3175

3669

3726

3793

3860

3927

3994

4455

4518

4675

4958

323G

3310

3377

3430

3490

3550

3610

3670

3727

3794

3861

3928

3995

9534

6062

2518

004256
000002
050201
020000
000020
004240
000011
001100
004264
004316
(004322
177774
100000

SWR

001140

000176
000001
000001
000002
000004
000010
000020

1078
8895«
8794
878«
8774
8764
8754

7179

2632

2690

2753

2821

2884

4195

4251

4298

4329

4380

4456

2475+«

2476+

4798

4835+

4842+«

4851+

4870

7965
4639
55¢8

4744
5645

4796
5723

4869
5801

4888
5879

4773

6665

6950

79574

2396

4614

2581

4122

5048
6055
2366

994H

SFTCNT
SK ]
=
SPACE2
SPAR
=
SPDL 55=
SRTFLG
SRTSPL=
STACK =
STALL
START
START1
STKLMT=
SVAL
=

=
=
=
=
=

3549

2820

5880+«
6122+
6379+
6638
5929«

5345+
5646+

4379

7957
3092
5038
5588
6546
2500
4188
52¢°2
L1800+
5824
7553
5203
5048
2348+
3044
2356
6776
2354#
2352

SWREG
sw0
SwQ0
SwO01l
Swd2
sw03
Swlé

3489

2752

5811
6112«
6378+
6635+
6855+

5342+
5578+

4328

71794
9674
5025
5572
6477
9604
3369
4891
23384
10114
7341
9864
10334
23284
9csw
8254
2341a
1080
2349
8364
10414
5977
11448

SELDRV= 000001

3429

2689

5808+
6043+
5368+
6634
6852+

5341«
5575«

4297

79554
7886+
4584
5491
6537
2717

SCOP1$ (43224
SEEK
= 000017

3376

2631

5807+«
6040+
6297+
6628+
6851«

5336+
5574«

4250

7307
23454
99¢Hh
5413
6452
2603

= 104415

2580

5802+
6039+«
6294
6552
6BLBv

5268+
5566+

4194

SAVREG= 104413
SAVSWR 004274
SCLR
= 000040
SCOP1

5733«
6034
6293«
6549
5770«

5265+
55071«

6121

23278
956
23264
9424

= 000010

5264+
5498«

SEQ (180

6061

RKPR]
004236
RKSPAR= 000022
RKVEC
004234
RKWC
= 000002

RL>

§729
5962+
62110
6538
6766

L 14
30(1046)
14=SEP-81
15:10 PAGE 182
CROSS REFERENCE TABLE == USER SYMBOLS

2477+

4720

7261

889
888
887
886
885

6627
2786
3100
5046
5649

6562
2505
4291

6684
2847

6762
2910

6847
2973

2947

3004

3053

3108

3176

4519

4676

4959

4932
5957

5021
6033

5106
6111

5183
6196

5260
6282

533§
6367

3139

3202

3270

3342

4417

4477

455A

3160
5110
5665

3168
5126
6120

3223
5187
6136

3231
5203
6205

4109
5339
6221

4113
5355
6291

4243
5417
6307

4936
5433
6376

4943
5495
6392

4987
5511
6461

2519
4321

2565
4373

2573
4449

2623
4512

2624
4587

2672
4642

2682
4649

2736
4746

2746
4806

3364
4844

4272+

4273

7985

5823

5901

_
6055

6310

6480

3915
7902

3919

5959

5975

5357
6395
2403+

5435
6480
2418

5513
6565
7030

5590
6788
7053

5667

5745

5823

5901

7067

7070

7085

7092

6632

6648

5¢78
4216+

5764
4217

6849
4235«

82414
6704
5050
2351«
3045
2368

6784
5590
2354«
3597
7034

6786
5745
2427
3602
7369

5128
6139
2388+

5205
6224
2390

52890
6310
2396«

2418

7624

7637

6688

6704

23554

7268

7280

7284

7360

7624

7661%

7886

7905

CIR6BDO RK611 DSKLS CTRL PRT2
TIR6BD.P1T
14=SEP-81 13:47
Sw0S5
Sw0é
Sw0?
Sw08
Sw09
SWwl
Sw10
Sw1l
SwiZ2
Swi3

Swl4
Sw15
Sw2
sw3
Swe
SWS
Sw6
Sw?
Sw8

=
=
=
=
=
=
=
=
=

000040
000100
000200
000400
001000
000002
002000
004000
0190000

8744
873#
872#
8714
8704
8884
8694
8684
8674

= 040000

B65#

= 020000

=
=
=
=
=
=
=
=

100000
000004
000010
000020
000040
000100
000200
000400

sw9
= 001000
S.CLR = 000400

S.FMT = 001000
S.PACK= 004000
S.RECL= 000040

S.RTC = 000200

S.SEEK- (00020
S.STSP= 000100
S.UNLD= 002C00

8664

Besn
8874
8864
8854
8844
883#
8824
8814
880#

10664
10674
10494
1063
10654
1062#
10644
1068

TBITVE=
TKVEC =
TPVEC =
TRAPPC
TRAPVE=
TRTVEC=
TST1
TST10
TST100
TST11
TST12
TST13
TST14
TST15
TST16
1ST17
TST2
TST20

000014
000060
000064
004272
000034
000014
005272
010032
041712
010350
010614
011060
011376
G1i706
012240
012602
005576
013046

9224
9254
9304
23444
9284
9234
2481
2912
6904
2975
3017
3061
31554
3204
3289
335904
2509
3384

TST26

015140

3738

1ST21
TST22
15723
1ST24
1ST25

1ST27
1513
1ST30
TST31

Q13326
013606
014066
014346
014626

015452
006056
(15764
016c76

R 14

MACY1! 30(1046)
14<3EP-81 15:10 PAGE 183
CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0187

884
883
882
881
880

7360

7030
2806
2633
2932
3005

7179
2831
2642
2957
3014

7491

2831
3431
3671

3500
2851
3440
3680

3799
2894
3732
4000

3814
2914
3747
4015

3109
3054
2869

3121
3063
2894

3177
3611
3551

3184
3620
3560

3240
3933
3866

3252
3948
3881

7027«
2374«

7960
2375

24954
29274
69174

7112
7119
7175
7
3025
3074

30384
3088

7121
7122

2547
3397
3651
351
357
3631
3691

25614
36120
3457
3517
3577
3637
3697

7113
7127
34720
35324
3592
36524
372104

7128
7129
7130
7131
7132

3818

3825

3831

38444

2989%
3018
3067
7123

3219

3437
3497
3557
2617
3677

7125
7126
2525
3391
3444
3504
3564
3624
3684

3805
26174
3872
3939

3811
7114
3878
3945

3744

7124

3751

3885
3952

3758

3892
3959

3764

3898
3965

37774

7133

39114
39784

7135
7136

7134

2957

2977

4236

4237

4949

4127

4142

6236

4237

4949

7143
44994
7145

02134¢
02171¢

TS143

022166

TSTLS
TST646
TST147

023156
023562
024012

TST150

024446

18744

007176
031002
031434

1S162

032066

TST63
T1ST64

032520
033152

TST65

033570

1S767

034704

15166

007514
035366

1S172

036532

1ST71

TYPERR
TYPOC =
TYPON =
TYPOS =
T.ASOF
T.BA
1.1

006120

S018#

24639

2443

2451

7833

7903

7172

6759
68444
6989
2429

1044601

(043716
104402
104404
104403
004136
004124

5001

66194

040210

4973

7144

653%4n

TST76
040636
TST?77
041300
TYPDS = 104405

TYPE

711§

64458

037214
037676

TST75

71462

25684

6163
2864n
62794
6364n

036050

18173
TS176

7151

7139

NTLDD2

1S17
TST70

030350

TST6
1S160
1ST161

LR R

02777

43614

4159

7137

1S156

TS157

7140
71461

60454
7 138
L1764

(026214
026632
027264

[ Yo SV 1V, |(LI IV RNV IV TV IV 1V 1V, [V ¥ R V]
— OO
00 NNON =N
SN
2O QW
N O NS —=ONW = WNROON
—
WO NN O N NWVOOO
N NOWIWON

TSTS53
1STS4
TSTSS

(VL LV LV LW, 1 N AV LV, LV 1V, 1V, IV,

025130
025562

00 N NONQO
WV B NN
—
O@MONIOWVININD
=
O
= ANANOD
— = (N WNOD WO

006634

1S751
TST52

2653

4153

4032
4105

7147

022716

1STS

2314
L2864
46346

4026
4092

7322
7636

7270
79464

7330
7652

7767
73078
2442

7341
7663

7343

7682

79434

7338

7638

79448

2516+
2886
3308

2522
2945
3323

6976

7354
7743

- 6983

7356

7748

6990

7271
7530
7758

7364
7752

7317
7605
7760

79454

2287%
22824
2280#
2810«

3178

25040
823

237

25006
2882+
324¢

579«

949

I78«

306
3463

(W IV 1 W
W~
[V RNy3
¥

15741
TST42

2646

4019
4086
4146

Sea 0182

Wit
[aemTe
NV

017656
020122
020456
006322
021022

4012
4079
4139
4206
4260
4340

13:4”

WO
NWNO

TST3S
TST36
18137
1814
SISO

4006
4073
4133
4193

164=5EP=81

N 14
30(1046)
14=SEP=-81
15:10
PAGE 184
CROSS REFERENCE TABLE == USER SYMBOLS

LNPNONY

016610

017106
017420

VACY1T

NNNNNNNE
e d d md ad b )
LAV LV IV LV AV, ]V 1o
O NN SN0

TST32

1ST33
18136

beLs TIRL PRTZ

LAY
O

(IR4BDO RK61
“lR€8D.P1T

(ZR6BDO RK611 DSKLS CTRL PRTZ2
CZR6BD.PT
14-SEP-81 13:47

3608+

4007
L475¢+
5042+
5225+

MACY11

3613

64059+«
4761
5053
5233

L4605

7999

004126
004142

22834
22894

7.0S

004132

22854

4595«

5276*

5288

004152
004154
004134

T.MRT

004144

T.MRZ

004146

8006

4594«

7994

T.DA
T.D8

T.ECPS
T.ECPT
T.ER

8001

56455+
5669
5857
6069
6303+
6501~
€733
6933

2284M

4984
.20
. 388
5605
5818+
5998+«
6229
6427
6701~

22884

5067

4994
5220
5630+
5611«
5828
6008
6240
6474
6711

5073«

3673

4119«
4826
5071«
5232

5449
5661+
5863+
6057
6253
6495
6725+
6931+

004130

004140

3668

4069
(4820
5065
5274+

$437
5618
5837
6049+
6245«
6482
6720
6894
T.CS2

T.DCYL

B8 15
30(1046)
14=-3EP-81
*5:10 PAGE 185
CROSS REFERENCE TABLE == USER SYMBOLS

5463
5481
5895+
6075~
6312
6509
6779«
6940«

37264

4126
L4897+
5079
5294

5507+«
5687+
5903
683
6325
6558+«
6784
6944
8011

3734

4593+
4909+
5122«
5300«

3791«

4602
4942+
5130
5308

SEQG 0183
3801

3858«

5592
5773
5991
6217«
6416«
6653
6869
7978

5604
5817«
5997+
6226
6424
6700«
6881
7981

5610+
5825
6005
6239
6473
6708
6886+
7990

4829

4898+«

4905

4910«

4914

5533«
5747
5929
6154
6388+«
€586+
807+«
7967

4711

4753«

4764

4821+

5123«
5301+
5518
5698
5916
6133«
6332+
6570
6803

5133
5311
5528
5740+«
5922+«
6144
6342
6581
6808+

4611

4701«

4717

47564

4770

4899+

4985«

5296

5302«

5314

5353

5365

5373

5379+«

5085

5056
5236
5450
5662«
5844+
6060
6256
6496
6726«

3124%

5066
5275«
5456+
5672
5854
6070
6304+
6502+«
6736

5136

5072+«
5285
5466
5682
5896«
6076+
6315
6512
6780«

5144

5082
5295
5508+«
5688+
5906
6086
6326
6559+
6793

5150«

5162

4699«
4991
5207
5385

3992+

5584
5765«
5979
6168
6410
6644
6861+
7975

5527
5739«
5921«
6141
6339
6580
6802
7964

4677
4983+
5199«
5377«

3935

5541
5759
5971~
6160«
6397
6594
6815
7970

5515
5695
5915
6132«
6331+
6567
6790
796"

4674
4960
5156
5371

3925«

4650
6957«
51648+
5359

4700%

5043+
5226
5440
5621
5838
6050«
6246
6485
6721

3868

4648+
4944
5142
5351«

5143
5352+«
£534%
5750
5932
6155
6389+
6587+
6818

5149+
5362
5544
5760
5972«
6161«
6400
6597
6862+

5159
5372
5585+«
5766
5982
6171
6411
€645%
6872

5000

5044+

5050

5391

5431+

5201+«

5213

5221

4708
5037
5219
5429+

5200+
5378+
5595
5776
5992
6218+
6417
6656
6882

5062

5227+

5239

5443

5451

5457«
5675
5857
6071
6305+
6503
gsgg

5469
3683
5897+«
6077«
6319
6515
6781+

5509+«
5689+
5909
6089
6327
6560
6796

5521
5701
5917
6134+
6333«
6574
6804

5529
5741«
5923«
6148
6345
6582
6809+

5535«
5753
5935
6156
6390
6588+
6821

5547
5761
5973+«
6162«
6404
6600
6863+«

5586+
5767«
5985
6174
6412
6646+
6875

5598
5779
5993
6219+
6418+
6659
6883

5606
5819+«
5999«
6233
6430
6702+«
6888+

3612+«
5831
6011
6241
6475+
6714
6900

5624
5839
6051«
6247+
6489
6722
7990

5663+
5845
€063
6259
6497
6727
8001

22934
22944
22864

4596+

4608

4702+

4714

4755«

4767

4822«

4LB3?

4900+

4911+

4986«

4997

6723
6932«

6728+
6925

6742
6941*

6782«
6947

6799
7990

6805
8004

6810
8009

6824
801

6864+

6878

6884

5045+
5228+
5646
5627
5840
6052+«
6248+
6492

22904

3926«

2291

2704

5059
5242
5452
5664«
5846+
6066
6262
6498
2751«

3930

2517«

2711

5068
5277+
5458+
5678
5860
6072
€306+
6504+
2756

3941

2527

2752«

5074~
529
5472
5684
5898+«
6078+«
6322
6518
2767

3993«

2530

2780

5088
5297
5510
5690
5912
6092
6328
6561«
3725«

5125«
5303«
5524
5704
5918
6135+
6334
6577
3729

5139
5317
5530
3742+«
5924+
6151
6348
6583
3740

5145
5354«
5536+«
5756
5938
6157
6391+
6585+
3792+

5151«
5368
5550
3762
5974+
6163«
6407
6603
3796

5165
5374
5587+
5768+«
5988
6177
6413
6647
3807

5202+«
5380+
5607
5782
5994
6220
6419y
6€62
3859+

5216
5394
5607
5820+
6000+
6236
€433
6703+«

5222
5632+
5613+
5834
6014
6242
6476+
6717

3863

3874

26438

2€89+

6889+«

3997

4008

4060~

4064

4075

4120

4124

6135

2820+

2830

2839

2883+

2893

2902

296+

295¢

2534

2537

2580

2590

2597

2631+

2642

6903

7970

2965

15
30(7046)
14-SEP-81
15:10 PAGE 186
CROSS REFERENCE TABLE -~ USER SYMBOLS

(ZR6BDO RK611 DSKLS CTRL PRT2
CIR6BD.P11
14~SEP-81 13:47

MACY11

3003+

3014

3020

3052+

3063

3069

3560
3827

3573
3860+

3609+
3881

3620
3894

3633
3927+

3669+
3948

3252

T.MR3

004150

WwCE

0046262

= 040000

wLE
= 004000
WwRDATA= 000023
WwRHEAD= 000027

WRL
=
WRTCHK=
WRTGAT=
$APTHD

SASTAT=
SATYL
$ATY1
$ATY3
$ATYL
$AUTOB
$BASE

004000
000031
040000
001000

swewre (
043274
063250
043256
043266
(00113564
101270

001122

001126
001204
001274
001276
044530
045206
001100

3133

3175«

3184

3196

3238+

3693
3994«

3726
4015

3747
4028

3760
4061+

3793«
4088
4345
4965

3%14
(121
4379
7961

2690

2714

2753«

2773

4411
7967

4456+
7973

4457
7975

6471
7978

3440

3680
3961

425?2
4518+
7983
2581

4297~
4543
7985
2600

4307
4553
7988
2632+

4257
4519+

4298+
4536

4301
4550

4312
L676%

4329+«
4687

4332
4959«

4342
4970

4380
7961

2783
3136
3630
3687
3964

2821x
3176«
3447
3696
3995«
7985

2843
3189
3456
3727«
4022
7988

2884+
3199
3490«
3754
4031
7996

2906
3239«
3507
3763
4062«

2947+
3257
3516
3794+
4082

2969
3267
3550
3821
4091

3004
3310«
3567
3830
4122«

3453

4315
4675+
7996
2652

3024
3329
3576
3861+
4149
4397
7964

3489+

4328+
4682

3053«
3339
3610«
3888
4158

3500

4337
64958+

3073
3377«
3627
3897
4195«

3513

2108«
3487
3636
3928+
4201

3549«

3126
3396
3670
3955
4251

22814

234604
5656
6695

10054

10214
9694
9714

10384
G724
10574
1104

2868
6396

3537
6481

3542
6566

4182+

4237+«

7985

4747

4807

4845

4,892

5966

6044

6127

6212

6298

6383

6468

6553

6639

2803
3594

2866
3654

2929
3712

2991
3779

3040
3846

4184
5048

5734
6771

4239+
5050

5812
£856

3848

3852

5805

5821

7985

5890

5032

5117

5194

5048

5346

5424

5502

5579

5050

11104

7402
7276
2422+
2430
3157

7632
2438
3221

)
7783
2497
3291

2563
3361

2619
3414

2670
3474

2734
3524

4795

(887

4931

5020

5105

5182

5259

5334

7234
71924

3980

5878

4047
5956

6107

4,178

6032

6110

4233

4,288

6195

6281

2379

2380

11364

11384
1 1644
12
12
7619«
76268
11240

5269

5746

7219
7190
71884
71894
71914
11418
12134
3090
gggg

$8DADR

3121

3429«

4250
4474
7978
2546

3913

$BDDAT
$BELL
$COW1
$COW2
$CHARC
$CKSWR
$CMTAG

3107

33093

4196
4464
7975
2543

9994
9634
10244
10044
23228
23234
10354

JAITIM

3376+

64194x
4455+
7973
2540

000400
000007
040000
020000
004230
U.MR3
004232
Vv
- 000100

=
UFE
UNLOAD=
UNS
=
=
UPE
U.MR2

006122

3336

4155
4614
7967
2518+

7983
22954

T.WC

3309«

6142
4404
7964
22927

004156

T.SPAR

3264

SEQ (184

7263

7296

7429«
7951
2363

7436

7462«

74674

2364

237¢

2378

6363

4435

4501

4578

4633

4738

6366

6457

6536

6621

€483

6761

5412

5490

5567

5644

572¢

CZRE6BDO RK611 DSKLS CTRL PRT2
CZREBD.P1T
14=SEP=81 13:47
$CM3
=
$CM4
=
SCNTLG
SINTLU
$CPUOP
$CRLF

000000
000010
046071
046064
001242
001211

1154
11564
7635
7652
11874
16

$DBLK
$DEVCT
$DEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
SEOP
SEOPCT
SERFLG
SERMAX
SERROR

045176
001224
001272
042350
045166
042340
042204
042354
001234
001235
042150
042176

$ERRPC

001103
001115
043516
001116

7571
“178#
12164
6972
75764
1090
2378
70024
11834
1184
6964#
2378+

SERRTB
SERTTL
SESCAP
SETABL
SETEND
SFATAL

001300
001112
001202
001234
001 300
001216

$FILLC
$FILLS
$GDADR
$GDDAT
SGET42
$GTSWR
$HD
=
$HIBTS
SHIOCT
SICNT

001156
001155
007120
001124
042330
045256
000000
001060
046256
001104

SFFLG

$INTAG

SITEMB
SLF

SLFLG
SLPADR

SLPERR

$MADR1
SMADR2
SMADR3
SMADRG
SMAIL
SMAMST
sMAMS2
SMAMS3

11274
11334
2372
11348
7988
12334
11314

001110

11634
11824
1116
11758
7188+«
11528
11514
11354
11374
69924
76364
810
11714
7824x
11284
1142¢
11324
11674
7229%
11294
11304

001246
001252
001256
001262
001214
001244
001250
001254

12004
12044
12074
12104
1112
11944
12024
12054

043514

007135

001174
001212

043513
001106

4441«

MACY11

D 15
30(1046)
14-SEP-81
15:10
PAGE 187
CROSS REFERENCE TABLE =- USER SYMBOLS

11554
77784
7752

7777

6999

7271

7605

7613

6993
76054
2410
69744

09994

2416
26401
7370
69718

7042
2381«
7256
7265+
7990
7314
6987

11564

11578

1158¢

11598

11604

11614

1°62#

729

7317

732

7330

733

735

7273
7404

7397

69954

7291

7197
7199

7221
7399

6975

SEQ 0185

7368e

708"
7083

7083
7106+

708%.
7111

7111

7181

7258+

7296

7266
7994

7267
7996

7296
7998

7961
7999

7964
8001

7967
B006

7970
8011

699.+
7026«

726ur
7029+

7296
7105«

7287

7289

7296

7219

7228+

72364

78354
7096«

7097

7099+«

7110

7267+
7296

7275
7470

7296
7767

7308
7777

7836

2383+
4503«

7078+
2566*
4580+

7087+
2673+
4635+

7103+
2737«
4740

7108
2807+
6623«

7110
2870%
6920«

7906
2933+
7035

1116

1°73¢

2400

2416

7102

7273

7397

2380«

1217#
7025+

7191«
7422
740

7470

7418

7470

7663

7757

7975

7978

798

7985

3224x
7110

3295+
7183

4365s
7286

7949

7664

72354
2382«

7783

)

3093+
7087

3161«
7104~

"IRAHBDO RK611

JZR6BD.PI

EMAMSS
$MBADR

SMFLG
SMNE
W
$MSGAD
$M3GLG
$MSGTY
$MSWR
SMTYP1

DSKLS CTRL PRT?
14-SEP=-81

13:47

001260
001002

043512
046107
001230
001232
001214

MACY11

30(1046)

7195
7781a
7205+
7210+
7203
77794

7230+

14=~SEP-81

E 15

15:10

PAGE

188

SEQ (186

CROSS REFERENCE TABLE == USER SYMBOLS

7234

7208

7217

7223

7227+

SMTYP?
tMTYP3

28544
3211
36404

40354
4424
49194

4037
LLB7n
4921

24”3

6966

5398#
5866
64374
6911

5400
594204
€439

54764
5944
65224

7509
7098
6969+~

7896
7900

7898+

7470

7682

7777

7833

7836

2378

2379

<380

2382

2410

~NO NS ()
—
OV
VOO0 —
&S NODOWVNOOr

6968+«

56314
6098
66704

3970

2793
32094
3582

GL22n
4877

W
(Wale
Jo
NDOMN)
WNY -

75444
750¢€
7088

46194
5094

LA2884

045620
04€120
000010
046316
042352

4434

5611
6450
7 )64

SN
O ONNNND

2 NWNO0
=

167400

7283

127777

042752
000220

2370

NONWN
S NN

2484

VOO ~NOON—
&0
S NOrUN

046260
042512
000137

(o Yo XV, ¥XU,
§1

$STUP $SVLAD
$SVP( $SWR

044756
044760
043006
001222
00° 006
046476
046472
046354
046402
007210
045470

[0 3V, FYVUIIVI]
8]
O 0000
O
A0
- OO0 W00
—
a0 ~NOMOONNL
S

$OCNT
$OMODE
$OVER
$PASS
$PASTM
$POWER
$PWRCT
$PWRDN
$PWRUP
$QUES
$RDCHR
$RDDEC=
$RD_IN
$RDOLT
$RDSZ $RESRE
$RTNAD
=
$R2A
$SAVRE
$SCOPE
$SETUP=

5092#
5556
60964
6609

39684
6351
L8754
5323
5864
6354
69094

2791#
3146
35804

NSNS NN
N NN
OO
4~ OMNONMANIANND
HNANANNIIN
NO

3702
61654
4566

2724
31444
3522

2552
2980
3349
37674
4167

~NON
N SN
orornun S~
00
N0 O —
OO
0D
N0 O

7470

25504
2919
33474

O~ 2N
ON00
OO OON— —a —
Q& —= NI N0
OO

SMTYP,
SMXCNT
SNULL
SNWTST= 0000C1

1163

2928

1164

2990
3778

371
4577

4632

704¢€

7047

5556
6620

5643
6€8¢

4886+

7102+«
7996

7960
7998

7961
7999

40461
4930+

4106+

7111a

2379+
3220+
5955«
6967+
7443

7441

24634

24L72%

4023+
4459

4082~

810
2657
2980
3148
3437
3564
3631
1818
3945

2485
26¢E9#
2990
3204
3444
3571
2697

001150

$TRAP
(046506
$TRAP? (046530
$TRP = 000016
$TRPAD

0465472

7970

7981

7985

7988

7990

2978
3711«

2990+
3778+
4632
5643+
6682+

35039
3845+

3089+
3912¢

8006
2669+
3473
L287+

5258+
6280+
7110

7628

7626

26447
2592
2956+
3330+
3688+

4149
4466

8011
2733x
3533«

L3620+

4577+«
5566+

5333«
6365+

6620«

7645
7642

7703

2450
2704*
2957+
3331
3754

2466
2773+
3127+
3447+
3822+
4399
4543

4150+
4536+

2668+

4737

5721«
6760+

2669

27740

2775

4404+
4544+

4405
4545

3128
3448
3888+«

23189
3507+
3889+

479

5799+

6845

2470w

2830+
3190«
3508+
3955+«

44606

4199

$TPS

4464~

7667

7290

8«

4422
L794a

001152
001157

2438
2590~
2894+
3259
3628«

4022+
L4458+

4072

$1PB
$TPFLG

7470

7110

5092
54114
5783
6096
64504
6828
7459«
7391
7457
79204
7942
7944n
79574
79424

3952

4079
4204
L6434
4875

57044
5473
5786
6109#
6519
68454
7470

2608

2640

2917
3078
3397
3520
36534
3778#
3901

64032
4159

4346
4726

001176

- 000101

2436
2474
2893+
3258~
3627«

7097
7470

7107

5006
53334
5705
608
63654
€746

$TN

S#4

7090+
7450
7448

6109~

7104

ONONAANNN
LSS 8N 8 8 S NN
OOV
OO
OO0 O
GO0 $SNOANON — 00 (N — 0D VN
OON0000
00 O N \ONILVNOD —
»

sTMP?7

001162
001164
001166
001170
001172
00i174

6031

4177
5104+

7092

O*W;IOWO*O"—'J‘\J\IOOO

$TMP1
$TMP?
sTMP3
$TMPL
$TMPS
$TMPE

507109+

2562+
3360~

AN NN NN NN N
QO NSO
O NS
WO NWVNO
-2 N0
—~ O N— OO

2832
3257+
3568+

2496
3290+

7083

NONONNAWNES
8 3 8 BN N W WL WO N
=2 NN NOWNNL O WNIN) = O 00 NON S NO 00N
=2 PNIONNON SO N NWO NN O S WS
O ONO
x
B

001144
001160

7048

7268

=2 O OWVWVNO0

$TkS
$TMPO0

001146

7047

SeEa €187

7082
7261

$TkB

5877«
6918+
11474

7071

2403
82¢

2156+
3979«

725"

7081
725¢

821

7077
11764
7994
11624

7250

7068

001200

11854

7067

$TIMES

7248

043024
001220

7065
7249

13:47

$SWOBT
$TESTN

7053

14-SEP=-81

F 15
14=-SEP-81
15:10
PAGE 189
30(1046)
CROSS REFERENCE TABLE == USER SYMBOLS

S B WNWPNONOND
N IO
VDN
SO WNOOWNEONON
=
a2l
ONCOCONINODNO
$~ =
OO 00
AN SNNO N = NV NI NO ~

$SWREG
00127%6
$SWRMk= 000000

VALY

OO ON VNN
B B 0 B LN
WNNWNWIND N
DN =28 —= O
IOV
NSO
WY
O N
OO
O WOON NN = NO
O N
2 00O NNV
2O NOOOWO
»
u
L
L 3
&
=

7IR6BD P

DSKLS (TRL PRT2

(ZR6BDO RK611

7470
2470

79454
79584

79464

79478

76484

7949

79504

7951

79524

7953#

7954#

79552

(ZR6BDO RK611
CZR6BD.P11
$TISTM
$TSTNM
$TTYIN
$TYPBN=
$TYPDS
$TYPE
$TYPEC
$TYPEX
$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM
$USWR
SVECT1

$VECT?2

$XOFF =
$XON
=
$XTSTR
$$GET4=
$$Sw08=

001004
001102
046054
XA

6966+

7042
7740

7074+
7758

7101+
7772

7935
7435

7943
74408

7668

2650

7728

.$ASTA

.$x

G 15
PAGE

190

SEQ 0188

CROSS REFERENCE TABLE == USER SYMBOLS
7102
77764

7107

71N

7260

2453

2473

2674

2675

2477

71154

71164
7129
71624
71554
71684

71174

10914

10934
70034

7296

044762
044200
044412
044532
044560

044574

044534
001226
001010
001240
001264
001266
000023
000021
042524
000000
000101

044757
LA8222

061315
L AR E

15:10

30(1046)

7947
73914
7428
76465
7944
7502#
7945

001000

74684

7946

2440

2449+

7470
7470

7710

7112

7113

71254
7138«
715°#

77640

$OFILL
$40CAT

14=~SEP-81

MACY11

7500+
7270
10764

2367

77768
7192
11¢S

71148

71264
713594
7152#
7165#

71274

7510

75454

10828

1088

2382

2777

716408
71534
71664

2383
7783

71284

71414
71544
71674

1089#

63794
7836

7002

7890

71304
71434
71564
71694

7121#

71344

71478

1608
71738

1103»

71228

7135#

71482
71618
71748

110%#
7470

(2ZR6BDO RK61T

DSKLS CTRL

’ZQbBD P11
CLRPSW
COMMEN

CYLWRY

ENDCOM
ERROR

PRT2

30('046)

34614

374

3534

3594

3654

2524

2529

2533

2536

2539

2542

2545

2548

2586

2594

25%9

2602

4025

4030

4033

4071

4077

4085

4090

4093

413

4137

4145

4152

4993
5135
5284

4996
5138
5287

14=SEP=-81

13:4°

1117#
1%

4801
9324

483%¢

14
B26#
2645
2846
3072
2266
3495
3675
3829

932#
2508
2651
2889
2076
3269
35C3
3683
3832

4160
4413
4679
4859
5055

4198
4616
4684
4863
5058

11178

4030

5167
5316
5468
5620

5758
5911
6062
6228

6350
6517
6713

3361

4018

5209
5319
5471
5623
5775
5914
6065
6232
6399
6520
6716

2555
2899
3117
3325
3510
3670
3870

4203
4461
4689
4867
5061

5212
5361
5474
5626
5778
5939
6068
6235
6403
6569
6719

2700
2905
3123
2333
3515
3695
3876

4254
4468
4710
4907
5064

5215
5364
5517
5629
5781
5934
6085
6238
6406
6573
6735

14=SEP=-81

CROSS REFERENCE

2708
2909
3130
333¢
3518
2698
3884

4259
4473
4713
4916
5081

5218
5367
5520
5671
5784
5937
6088
625¢
6409
6576
6718

2713
2652
3135
3341
4555
3736
3891

4304
4476
4716
4946
5084

5235
5370
5523
5674
5827
5940
6091
6258
6426
6579
6741

15:°0

H 15
PAGE 192

WA(Y11

TABLE

2716
2962
3" 38
3382
3563
3742
3896

4309
4540
4719
4962
5087

== MACRO NAMES

2763
2968
3180
3390
3570
3750
3899

6314
4547
4763
L0967
5090

2769
2972
3186
3395
3575
3757
3937

6317
4552
4766
4972
5132

5244
53293
5546
5697

SEs "

2777
3010
3193
3398
3578
3762
3943

4334
4555
(769

2782
2017
3198
3435
3515
3765
3951

4339
4604
4772

2785
3023
3201
3443
3623
3803
3958

2842
2066
31261
3458
3638
3824
4004

6347
4610
48728

4401
4613
4831

4408
4652
4834

4999
5141
5290

5002
5158
5293

5039
5161
5310

5052
5164
5313

5905
6016
6’76
6344
6511
6664
6823

5908
6059
6179
6347
6514
6710
68c6

5238
5387
5526
5677
5830
5981
6094
6261
6429
6596
6744

5241
5390
5543
5680
5833
5984
6143
6264
6432
6599
6732

5836
5987
6147
6314
6435
6602
6795

5853
5990
6150
6318

6484
6605
6798

5856
6007
6153
6321
6488
6655
6801

5859
6010
6170
6324
6491
6658
6817

5802
6013
6173
6341
6494
6661
6820

5396
5549
5700

5439
5552
5703

2¢%8

2836
3059
3254
3455
3635
1817
3966

4344
4607
4816

2826
3027
3248
3450
3630
38C»
3963

5442
5594
5706

5445
5597
5749

5448
5600
5752

4°57

5465
5603
5755

£SCAPE

687}‘

68%3'

6877

6880

6896

6899

6902

6905

6935

€938

6946

6949

7028

FORERR

11174

5105

5182

5259

5334

5412

5490

5567

5644

5722

5800

5878

5956

6032

24134
6195
2673

6281
2737

6366
2807

6451
2870

6536
2933

3093

3161

3224

3295

4365

644

6503

4580

25504

2929
2552

26084

2610

26574

2659

27228

2724

27914

2793

28544

2856

29 7%

44228
4921

44624
50064

L4874
5008

4489
50924

L5644
5094

4566
51694

3779

384¢€

3913

GETPR]
GE TSWR
IDAETT
LDLPER
MESCMD
MESSFT
MSCMDT
MSG

:SG?EL
U

NEWTST

14
14
11174
11178
4635
1574

9324
9324
613
2566
4740
2619

1117%
11°74
24854

4178
2803
2487

43494
4877

4351
49194

111;#

3;;5‘

2919
34,004
3836

54764
6020
66704
4

3278

4220

5321
€522

29804
34602
39014

6623
2991
4233
2866

2982
34604
3903

5478
60964
6672

35554k
6098
67468

9324

2485

4349

3347

4276

5398
6607

3400

5476
6670

6920
3040

30294
3462
39684

5556
61814
6748

303
35204
3970

30784
3522
40354

3080
35804
4037

31440
3582
40954

32094
3642
L1€54

3211
37004
4167

32784
3702
62208

3280
37674
4222

33474
3769
L2768

3349
3834
4278

L6198
5171

4621
52464

L7264
5248

4728
53214

47784
5323

4780
53982

(8754
5400

2917

2980

3029

4875

4919

563°4#
6183
(8284

5633
62664
6830

5708¢
6268
69094

4047

4107

2550

2608

2657

2722

2791

2854

4420

4487

4564

4619

4726

4778

3460

55564
6746

3520

5631
6828

3980
3580

5708
6909

3640

5786

5710
63524
6911

3146
36404
4097

3700

5864

57864
6354

3767

5942

5788
643748

3834

6018

58¢4n
6439

3901

6096

5866
65224

3968

5006

6181

594ch
6524

3G78

4035

5092

6266

S944
66078

3144

4095

5149

6352

60184
6609

3299

4165

5246

6637

CIROBDO RK611 DSKLS C(TRL PRTZ2
TIR68D.P1N
14=SEP=81 13:4~
PARGEN

POP

1117#

1Y J

4363

932

7232

7600

7825

7874

7799

7854

2495

2561

2617

2668

2732

2801

2864

4361

4433

4499

4576

443

473¢

4793

5954

6030

9324
9324

2361
2509

7945

794¢

7947

7949

7951

3204
277
3811
4012
L2
5318
6519

2525
3384
3617
3818
4019
4260
5395
6604

2547
3391
364
3825
4026
4335
5473
6743

2640
3397
3631
3831
6032
64340
5551
68¢5

932#
2667
3144
3591

1086
272¢
3154
3640

1097
2731
3209
3651

1099
2791
3218
3700

1106
2800
3278
3739

SCOPE

B27#8
3359

5410
€619
IX ]
79254

5488
6681
G322
7944

4286

SETPR]
SETTRA
SETUP
SKIP

SLASH
SPACE
STARS

14
1%

$$5KIP

5642
6844

3592

5720
6917

3652

5798
6965

2989

4885

4929

7952

2646
3437
3637
3872
4073
L4346
5¢28
6904

1119
2854
3288
3767

5876

3611

3038
3978

2088
4045

31¢5
41065

32°9
4176

3289
4231

6108

6193

6279

6364

6449

6534

7953

7954

7955

7956

7957

2653
3444
3677
3878
4079
4479
5705

2846
3451
3684
3885
4086
4723
5783

2912
3457
3691
3892
4092
4947
5861

2975
3497
3697
3898
4133
4963
5939

2012
2504
3738
2939
4139
4968
6015

3018
3511
3744
3945
4146
4973
6093

}
302>
351/
3741
3952
4153
5001
6178

3061
3557
1758
3959
4159
5089
6263

1168
2863
3347
3776

1171
2917
3358
3834

2485
2926
3400
3843

2694
2980
3611
3901

2550
2988
3460
3910

2560
3029
3471
39¢8

2508
3037
3520
3977

2616
3078
3531
4035

4875

4884

5017

5092

3777

3844

4165

4175

4726

4735

4220

4230

4276

4285

5102
5708
6278
6909
7718
1%

51¢9
5719
6352
6916
7785
9324

5179
5786
5363
6957
7838
23844

5246
5797
6437
7039
78E4

5254
5864
6448
7176
7892

5321
5875
6522
7187
7914

5331
5942
6533
7244

5398
5953
6007
7297

5409
6018
6618
7306

iF]

9324

6980
2406

6987

2430
6976

7637
6583

11174

14
14
3278

5321
6522
;zggl

14
2067
3564
3764

9324
9324
9324
9324
6324
9324

1154

4619

4630

4778

4792

9324
9324
3347

1155

1156

11587

1158

1159

1160

1161

2485
3400

2550
3460

2608
3520

2657
3580

2722
3640

2791
3700

2854
3767

5398
6¢07
7944

5476
6670
7945

5554
6746
7546

5631
6828
7947

5708
6909
7949

5786

5864

5942

2509
3204
3577
3811

2525
3384
3617
3818

4276

932#
3074
3571
3805

4349

4422

4487

2547
$391
3624
3825

4564

2640
3397
3631
3831

Stu L19C

2927

3710

4104

4220

5565
6759

3532

7559

4095

14
14
#
14
14
14
11174

ggsg;n

3472

7215

4575

TYPOEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
$$CMRE

$SESCA
SENEWT

3612

7194

4564

79354

SSCMTM

9324

7192

3074
3571
3805
4006
4204
5243
6434
9324

TRMTRP

TYPBIN

9328

3067
3564
3764
3965
4169
5166
6349
14
9324
18
2657
3087
3580
4044

SWRSU

I 15

30(1046)
14=SEP-81
15:10
PAGE 193
CROSS REFERENCE TABLE == MA(CRO NAMES

72%1

PUSH

REPORT

4501

MACY1T

4619

4726

7951
2646
3437
3€37
3872

5018

5103

5180

5257

5337

4349

4360

4422

4432

4487

5476
6029
6670
7376

5487
6096
6680
7472

5554
6107
6746
7549

5564
6181
6758
7616

5631
6192
6828
7619

5641
6266
6843
7687

2917
3834

2980
3901

3029
3968

3078
403y

3144
4095

3209
4165

€352

6437

3025
3517
375°
395¢

3061
3557
375%
3955

4919

4928

4778

4875

4919

6096

6181

6266

7952

7953

7954

7955

7956

7957

2653
3444
3677
3878

2849
3451
3684
3885

2912
3457
2691
3892

2975
3497
3697
2898

3012
3504
3738
3935

3018
3511
3744
3945

6018

5006

5092

51€9

4498

5246

C(ZR6BDO RK611 DSKLS CTRL PRT2
14=SEP=-81 13:47
CZR6BD.P11

7965

4006

4199

5166
6349
1
.
1
.
iy
800#
1%
14
14
1%
X

LEGUAT
.HEADE

LSETUP
. SWRH!
.SWRLO
LSACTH
.$APTB
SAPTH
LSAPTY
.SASTA
.SCAT(

MACY1T
4019
4240

4204
5243
6434

5395
€606

J 15

PAGE 194
14-SEP-81
165:10
30(1046)
CROSS REFERENCE TABLE == MACRO NAMES
4026
4335

5473
6743

4032
4340

5551
6825

X 4

1K 4
i J

LSC(MTA
.$D8B2D

.$DB20
.$D1v
.SEOP
.$ERRQ
.SERRT
JEMULY
. SPOWE

1%
1L J
1Y
M ]
Y]
1%
XJ
i J
‘8
N 4
'3

.$RAND
.SRODE
.$RDOC
.$READ

.SR2AZ
.$SAVE
.$582D
.$5820
.$SCOP
.$SIZE
. $SUPR
.$TRAP
.$TYPB
LETYPD
LSTYPE
$TYPD

N J
n
1%
14
1»
1Y
Y
14
1
i#
1%
1

L1170

iy 4

. ABS.

061315

.$460CA

ERRORS DETECTED:

800#
8004
800#

800w

7783
7614

8004

7836

800#

7037

800#

7912

8004
800#
800#

7547
7374
726470

000
O

(ZR6BD,CZROBD.LST/SOL/CRF/NL:TOC-SYSMA(,SML,CZR6BD.P11
RUN-TIME: 32 37 3 SECONDS

RUN-TIME

RATIO:

CORE USED:

42k

1641/73=1.9
(84 PAGES)

4073
L34¢

5628
6904

4C79
4479
5705

4086
4723

5783

SE3 {197
6139

4968
6015

130

437

6093

6153
5001
6178

6156

5089

263